(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[   4940228,     101051]
NotebookOptionsPosition[   4792412,      98574]
NotebookOutlinePosition[   4793022,      98596]
CellTagsIndexPosition[   4792979,      98593]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "4DN=4VMTM_offshell.nb\nNotebook Author: Kory Stiffler\nOff shell Holoraumy \
Calculations for the 4d, N=4 Vector Tensor multiplet analyzed in 2010.06124\n\
Here \[OpenCurlyDoubleQuote]off-shell\[CloseCurlyDoubleQuote] refers to the \
separate N=2 vector and tensor multiplets as these algebras close off-shell, \
where as the composite N=4 vector-tensor multiplet obviously does not.\n\
Original holoraumy done by Gabriel Hannon and  Rui Xian Siew \nSome \
corrections and the 1D holoraumy were calculated by KS, this file represents \
the final check of the holoraumy presented in 2010.06124\nThe algebra is as \
in 1812.04236\nAppendix F is checked for the cross term algebra  it is also \
checked the cross term  holoraumy ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], ",", 
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "b", "j"]}], "]"}], "Fermion"}], 
   TraditionalForm]],ExpressionUUID->"af747942-61a2-4efe-a363-8e399a51b709"],
 "  in the X and Y bases as well as the algebra ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], ",", 
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Fermion"}], 
   TraditionalForm]],ExpressionUUID->"82b2495e-7fc9-4fdb-b5e5-152a0518590c"],
 " in W-basis.\nAppendix H results of the V-tilded 16 color, 16 x 16 \
holoraumy added 11/14/21"
}], "Title",
 CellChangeTimes->{{3.431643447359375*^9, 3.43164348528125*^9}, {
   3.4332803471875*^9, 3.4332803938125*^9}, {3.439841647921875*^9, 
   3.439841676265625*^9}, {3.4399946617855*^9, 3.43999466687925*^9}, {
   3.44088192175*^9, 3.440881923578125*^9}, {3.4423479416875*^9, 
   3.442347948953125*^9}, {3.442980454609375*^9, 3.442980483234375*^9}, {
   3.443704482140625*^9, 3.443704510671875*^9}, {3.443704683796875*^9, 
   3.443704691203125*^9}, {3.44372638084375*^9, 3.443726451640625*^9}, {
   3.45355300203125*^9, 3.453553002890625*^9}, {3.454246287921875*^9, 
   3.454246303546875*^9}, {3.454246379453125*^9, 3.4542464184375*^9}, {
   3.454246473484375*^9, 3.454246483109375*^9}, {3.4544147554375*^9, 
   3.454414815859375*^9}, {3.454852671*^9, 3.4548527046875*^9}, {
   3.454856728203125*^9, 3.45485673075*^9}, {3.454926202984375*^9, 
   3.454926295546875*^9}, {3.455015384*^9, 3.455015392609375*^9}, {
   3.455015444671875*^9, 3.455015446890625*^9}, {3.455015517421875*^9, 
   3.455015519890625*^9}, {3.4550155711875*^9, 3.455015606859375*^9}, {
   3.455016320453125*^9, 3.45501632865625*^9}, {3.455042848390625*^9, 
   3.455042857671875*^9}, {3.455043636234375*^9, 3.4550436771875*^9}, {
   3.511555277628312*^9, 3.5115553207117767`*^9}, {3.511625771375633*^9, 
   3.5116258752865763`*^9}, {3.5116411679872684`*^9, 3.511641221284317*^9}, {
   3.5199454008058896`*^9, 3.5199454666306543`*^9}, {3.5199455739987955`*^9, 
   3.519945622294558*^9}, {3.5206458956356697`*^9, 3.520645943704419*^9}, {
   3.523718893836775*^9, 3.523718923873493*^9}, {3.536715674278531*^9, 
   3.5367157073544226`*^9}, {3.53853389765368*^9, 3.538533899967812*^9}, {
   3.538942345864266*^9, 3.538942357964958*^9}, {3.5389474299050565`*^9, 
   3.538947485150216*^9}, {3.5390845827297893`*^9, 3.5390846106083837`*^9}, {
   3.53908510341057*^9, 3.5390851199535165`*^9}, {3.539086064745556*^9, 
   3.5390861577368746`*^9}, {3.5451459061807747`*^9, 3.545145907619857*^9}, {
   3.54514596135293*^9, 3.5451460262956448`*^9}, {3.548677365614721*^9, 
   3.548677420252846*^9}, {3.5486904482318554`*^9, 3.5486904831498528`*^9}, {
   3.5507964280028415`*^9, 3.550796434750227*^9}, {3.5516981864105062`*^9, 
   3.5516981873125577`*^9}, {3.5517063670611444`*^9, 3.551706375990655*^9}, {
   3.5517143798937216`*^9, 3.5517143832039113`*^9}, {3.5517286202182903`*^9, 
   3.5517286597495513`*^9}, {3.5517928905442033`*^9, 3.551792917464743*^9}, {
   3.5521354453831377`*^9, 3.5521354853424234`*^9}, {3.552135534200218*^9, 
   3.552135558024581*^9}, {3.5521356059203205`*^9, 3.552135681027616*^9}, {
   3.5521357231810274`*^9, 3.5521357548318377`*^9}, {3.55231422706569*^9, 
   3.5523142637937903`*^9}, {3.552314318528921*^9, 3.552314318928944*^9}, {
   3.552314384905718*^9, 3.552314430815344*^9}, {3.552314502398438*^9, 
   3.5523146413143835`*^9}, {3.552473196132519*^9, 3.5524732208799343`*^9}, 
   3.5528371122703466`*^9, 3.5528444571634464`*^9, {3.5528449407701073`*^9, 
   3.5528450003105125`*^9}, {3.552866910465884*^9, 3.5528670764143763`*^9}, {
   3.5528755049588575`*^9, 3.552875669883291*^9}, {3.5528757974815893`*^9, 
   3.5528759485802317`*^9}, {3.552876032727044*^9, 3.5528760646078677`*^9}, 
   3.5528770280839753`*^9, {3.552905728992181*^9, 3.5529057870398817`*^9}, {
   3.552924313800542*^9, 3.552924357451039*^9}, {3.5529244139042673`*^9, 
   3.5529245023153243`*^9}, {3.5529245516931486`*^9, 3.552924613397678*^9}, {
   3.552928164005761*^9, 3.552928186311037*^9}, {3.5529298153452125`*^9, 
   3.5529298409716783`*^9}, {3.5532932040039682`*^9, 
   3.5532932496185775`*^9}, {3.553293282659467*^9, 3.553293292302019*^9}, {
   3.553293383011207*^9, 3.553293411333827*^9}, {3.5532981370511494`*^9, 
   3.553298408108653*^9}, {3.553298441734576*^9, 3.5532987180763826`*^9}, {
   3.5532987757606816`*^9, 3.5532988306618223`*^9}, {3.5533029743948298`*^9, 
   3.5533030195604134`*^9}, {3.553306886924614*^9, 3.5533068932679768`*^9}, {
   3.553311679995762*^9, 3.553311730478649*^9}, {3.553311805864961*^9, 
   3.5533118710006866`*^9}, {3.5533120465167255`*^9, 3.553312046787741*^9}, {
   3.5533122428069525`*^9, 3.5533122428069525`*^9}, {3.553312319318329*^9, 
   3.553312332850103*^9}, {3.5533123656929817`*^9, 3.5533123938585925`*^9}, 
   3.5533125753399725`*^9, {3.5533162583976316`*^9, 3.5533162749975805`*^9}, 
   3.5533163117066803`*^9, {3.5533163518819785`*^9, 3.5533164029468994`*^9}, {
   3.553357870429034*^9, 3.55335793120451*^9}, {3.553360423158042*^9, 
   3.553360477275137*^9}, {3.5533605162343655`*^9, 3.553360605248457*^9}, {
   3.55336064149253*^9, 3.5533607117395477`*^9}, {3.553360769712864*^9, 
   3.553360790017025*^9}, {3.553360827712181*^9, 3.5533608685515165`*^9}, {
   3.5533609116069794`*^9, 3.553360984719161*^9}, {3.553361035631073*^9, 
   3.5533610708610888`*^9}, {3.5533611506446514`*^9, 3.553361152577762*^9}, {
   3.553361571282711*^9, 3.553361617443351*^9}, {3.553362021762477*^9, 
   3.5533621970635033`*^9}, {3.55336225609488*^9, 3.553362258462015*^9}, {
   3.553362402136233*^9, 3.5533624518330755`*^9}, {3.553362520950029*^9, 
   3.5533625853667135`*^9}, {3.5533635314808273`*^9, 
   3.5533635853299074`*^9}, {3.553363685328627*^9, 3.553363698002352*^9}, {
   3.553363909535451*^9, 3.5533639144157305`*^9}, 3.553364219200163*^9, 
   3.5533644938708735`*^9, {3.553364575184524*^9, 3.553364599654924*^9}, {
   3.55336466183048*^9, 3.5533646655966954`*^9}, {3.553365137488686*^9, 
   3.553365145141124*^9}, {3.5533656688530784`*^9, 3.5533657248882837`*^9}, 
   3.553366821643014*^9, {3.5533671012070045`*^9, 3.5533671132246914`*^9}, {
   3.553367256017859*^9, 3.5533672954111123`*^9}, {3.5533673936717324`*^9, 
   3.553367442797542*^9}, {3.553393155762641*^9, 3.5533933527619085`*^9}, {
   3.5533934025587573`*^9, 3.55339343250747*^9}, {3.553393466195397*^9, 
   3.5533934799451838`*^9}, {3.5533936057913814`*^9, 3.553393621924304*^9}, {
   3.5533936651637774`*^9, 3.553393696448567*^9}, {3.5533938357385335`*^9, 
   3.5533938415228643`*^9}, {3.55339396837212*^9, 3.553393970315231*^9}, {
   3.553394007223342*^9, 3.5533940655636787`*^9}, {3.5533948267242146`*^9, 
   3.553394871172757*^9}, 3.5533949827821407`*^9, {3.553395879210414*^9, 
   3.55339590415384*^9}, {3.5533960192464232`*^9, 3.553396052167306*^9}, {
   3.5534453110074387`*^9, 3.5534453210730143`*^9}, {3.5543978769816384`*^9, 
   3.5543979153068304`*^9}, {3.5543979522839456`*^9, 3.554398051165597*^9}, {
   3.559413579039064*^9, 3.559414031602949*^9}, {3.5594140643608227`*^9, 
   3.559414824354292*^9}, {3.5594148673047485`*^9, 3.5594148697598886`*^9}, 
   3.559434854871258*^9, {3.5594361459001007`*^9, 3.5594361488202677`*^9}, {
   3.5594362074236193`*^9, 3.5594362074236193`*^9}, {3.5594413332417994`*^9, 
   3.559441339224142*^9}, {3.5594800125024767`*^9, 3.5594800206869445`*^9}, 
   3.55949611087125*^9, {3.5594961446901846`*^9, 3.5594963728392344`*^9}, {
   3.5594967272045026`*^9, 3.559496732893828*^9}, {3.559496827283227*^9, 
   3.559496972989561*^9}, {3.559498343667959*^9, 3.5594984776456223`*^9}, {
   3.5594985619584446`*^9, 3.5594986885086827`*^9}, {3.559504207814369*^9, 
   3.5595043347686305`*^9}, {3.5610849081423254`*^9, 3.561084919991003*^9}, {
   3.674997609869558*^9, 3.6749976403446026`*^9}, {3.7095691177887754`*^9, 
   3.7095692232638083`*^9}, {3.709569416628868*^9, 3.709569447700645*^9}, {
   3.709570025775709*^9, 3.7095700822929416`*^9}, {3.7095701212661705`*^9, 
   3.7095701302756863`*^9}, {3.7095701635905914`*^9, 
   3.7095701953544083`*^9}, {3.709570238234861*^9, 3.7095703996370926`*^9}, {
   3.7095705169488025`*^9, 3.709570536260907*^9}, {3.709570570671875*^9, 
   3.7095707000022726`*^9}, {3.7095707414556437`*^9, 3.709570911927394*^9}, {
   3.7095709420471168`*^9, 3.7095709556628957`*^9}, {3.709571091599671*^9, 
   3.7095711396634197`*^9}, {3.7095711775595875`*^9, 3.709571198140764*^9}, {
   3.709573470067711*^9, 3.7095735804760265`*^9}, {3.70957367197526*^9, 
   3.709573673761362*^9}, {3.709575309022894*^9, 3.7095753967389107`*^9}, {
   3.7108085535310116`*^9, 3.710808698160284*^9}, {3.7117169877149534`*^9, 
   3.71171700584299*^9}, {3.711843921222666*^9, 3.711843950188323*^9}, {
   3.7120954091535835`*^9, 3.712095410524662*^9}, {3.737153557144597*^9, 
   3.7371535573632975`*^9}, {3.737153660538913*^9, 3.737153677384055*^9}, {
   3.737289276440363*^9, 3.7372892764413633`*^9}, {3.7379791370084977`*^9, 
   3.7379791561145906`*^9}, {3.7379792255395613`*^9, 3.737979267044935*^9}, {
   3.738580160531347*^9, 3.7385801752121863`*^9}, {3.7422187903728733`*^9, 
   3.742218794232212*^9}, 3.7424478775638*^9, {3.74594526221448*^9, 
   3.745945264539792*^9}, {3.745945483092791*^9, 3.745945486075135*^9}, {
   3.751391341347107*^9, 3.751391342592647*^9}, {3.751391491416864*^9, 
   3.751391492527258*^9}, {3.7604673034267855`*^9, 3.7604673161716237`*^9}, {
   3.767539185633115*^9, 3.7675392073859653`*^9}, {3.768071011496874*^9, 
   3.7680710117906113`*^9}, {3.7680715441998997`*^9, 
   3.7680716108695507`*^9}, {3.768089948402124*^9, 3.7680899488063183`*^9}, {
   3.7680900605864277`*^9, 3.7680900612969027`*^9}, {3.8312203387233553`*^9, 
   3.8312203626988554`*^9}, {3.8312205617227626`*^9, 3.831220567778884*^9}, {
   3.8318218584907937`*^9, 3.831821858788004*^9}, {3.83182215639438*^9, 
   3.8318222219860415`*^9}, {3.831822317086855*^9, 3.8318223182480507`*^9}, {
   3.8318395266396294`*^9, 3.831839671629554*^9}, {3.8329475656660213`*^9, 
   3.8329476918836966`*^9}, {3.8329477851053867`*^9, 3.832947792242895*^9}, {
   3.832960664993324*^9, 3.8329606881532564`*^9}, {3.845852475514577*^9, 
   3.8458525470711107`*^9}, 3.845919586130344*^9, {3.846099889751545*^9, 
   3.8460999023111343`*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\
6353bcfa0aa5"],

Cell[CellGroupData[{

Cell["Preliminaries", "Chapter",
 CellChangeTimes->{{3.768087098573337*^9, 
  3.768087102303843*^9}},ExpressionUUID->"4c561efb-c217-4f68-a73a-\
f7dd1cfec01b"],

Cell[CellGroupData[{

Cell["Importing Adinkra", "Section",
 CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, {
   3.742447721149543*^9, 3.7424477566373158`*^9}, 3.768071293060499*^9, {
   3.855512827422538*^9, 
   3.85551282771047*^9}},ExpressionUUID->"8ce62cfa-2467-4484-bfab-\
5a2bb7149ea5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$RecursionLimit", "=", "Infinity"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"],

Cell[BoxData["\[Infinity]"], "Output",
 CellChangeTimes->CompressedData["
1:eJwVyWlIk3EAx/GlFuGVbmoYtvLAEvFAoyyH+LdUkr2YKwu0aJtHVh6gS0ml
TMEjTTBRqSaJR7O5lDSHWa2hsi5ZLlPmTItZNH0ej7whHf2eF18+L76ekmxh
6i4Wi5WELEuy6CMmirgeFGx+NVOkR2NnyZynyPmrJ4ry4dEq7rMSmDY2HF8O
PTsM9yphnMZlldE2SLDRQlGkpP2GoRX66QfODkJ1Qi77C2T1Cd0YjQsaHuO4
m00Goyk00l4PeYsVZxgVaSlPeYsUCctjs6Og1bKEGwuFmWpxPRxe5jY1QA/R
A0UjrDrGF4mXKKJ6yX/EKLJNnZRAWZxwIR2O1j1uvwb7Chq3GFUi2nAdKl3f
uj+Ea/tlh46vUqTrg3Uoo1H+bqgSCgpX9hqht7UsfRraLYSbZ6Auxj95co0i
cw4k8TusiL67/BOOVsQmbMMYt7beHRjpf6rad50iuaGSXgGUTpVr4+El71nf
czBsxoWXCp+3+JsZL+x8GrRi00R7h/M6ECbpO3N2c2hi8uLX7oH3b4/5OMLm
oXCHfVCVl13MWG+J6GAcUHi436qiyWGbnnlGMxWy1lCNXxBXKoeZifbJwzU0
EThxL3+GUdtynwQ5TWzel7WJ4Xiw7lcydHatyyqB/9JWZ5Ww5uR4rhFyE6c7
8xU0mddbgit7aPKGuvL3h4omXjP2AR/7aaIJsNvSwZEVqd83eMCx/7fPK5pM
dZeHB8Ck010bgTCCky2/CQ2THN8COCRVagthpFgZVAT5bZs5xXCieUvdDVOc
LjqPQO0LiZQxq7b/iQ6WaQNLDZA3p5AxhuxMmBbhaEbrn3WoU0+pogZo8h81
lJm7
  "],
 CellLabel->"Out[1]=",ExpressionUUID->"7db8a3bd-d53f-446b-8525-1ceb7bd15173"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "Adinkra`"}]], "Input",
 CellChangeTimes->{{3.742447734672681*^9, 3.742447736272915*^9}, {
  3.855512824736883*^9, 3.855512825852859*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BuildDate", "[", "Adinkra", "]"}]], "Input",
 CellChangeTimes->{{3.746787320836362*^9, 3.746787327269121*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"c17f1cbd-b2cc-47d8-bb22-2dea690d5840"],

Cell[BoxData["220305"], "Output",
 CellChangeTimes->CompressedData["
1:eJwVzX8s1HEYB/AvyfqD/LpZfoS4XWUjKtLS+HBjLbaTrlXTOm7scnVtSqdo
M2yFK2utSxd2OB2nLWPhaimS+ZUfdX+ck2Ml5PtF8mNsdev9+ePZa8/72fM8
+zKun8m0YxjmAupk8A5GsciSFv+Iu0rYWM9vKoKfhwZT7sGRksmyUmjjea9R
h3XizTqWJc51CnM9bLncdaoHRumV7qPw6MB5T2rNVH80VShzukrVzAmdxiFT
WyGkuiqvvYhextzk7R4HdXK5XyL0mutNfwI99gqq1ZA1VBqewph5kSR9hSXE
T6ShChNlExkwoVO8JIMFCbUNV2C2onqLqpOsmrOh90a31zPoK0/bH7nGktMW
0xEqb+zTx1IYWL69ywI5x1rZFLScIwtWyBQdlk6ss6QiNeHiNxirKfs9A5Ob
k8V/4QG1vu0fzQ0xKsEG9uxkbSI4yCvvS4Ft8b8EqTB2Zk90JvRlwheoiryv
PfbuHIl87/82FEqCP+Ts9OBI5buzjxyhqmqSvxt65sU5u8DniXmFVHN/fCN1
ITDA63Y5R6yCjkWq1jVqXa3iyFKAqFgPj1lcpL0POeLgGnRpCGYZW/liPe7d
V+nS4WaHaVYKG3gaRRHsc9z+8RLeSrLesEC//PlmpYEjo+MO4aWt+DsgXZ1u
50imxCdkoJMjljq3rRFY8if/oAmG+XT/5Bs5krry4EQITCt+vRkKXR7n6nMh
0+8juAPtPYx9+XBspvVQAcx2s+UUwsUvtq5XMGw2zW2Y9vFZN6lJQXLtCNQe
jyg2QzanpYo6VDD1fRnO2ZrmN6C6a7o97g1H/gOXNYu7
  "],
 CellLabel->"Out[3]=",ExpressionUUID->"15be8d40-2c5a-449f-8c50-53dde510071f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["FieldLists", "Section",
 CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, {
   3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 
   3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, {
   3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 
   3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, {
   3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 
   3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 
   3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, {
   3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 
   3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, {
   3.7113948776934385`*^9, 3.7113949804623165`*^9}, {3.7113952539569597`*^9, 
   3.711395261886413*^9}, {3.7114193010506587`*^9, 3.7114193015116854`*^9}, {
   3.73858035657756*^9, 3.7385804281216516`*^9}, {3.738580808452406*^9, 
   3.7385808207731104`*^9}, {3.742218923572253*^9, 3.742218931301695*^9}, {
   3.7422207869805517`*^9, 3.742220813310706*^9}, {3.745946114842868*^9, 
   3.745946150529788*^9}, {3.745946218451417*^9, 3.7459462286979723`*^9}, {
   3.746788281451227*^9, 3.746788291250942*^9}, {3.7468395874815607`*^9, 
   3.74683959779451*^9}, {3.747491409449876*^9, 3.7474914098577285`*^9}, {
   3.7513919513976793`*^9, 3.751391979675706*^9}, {3.751392041520072*^9, 
   3.751392049677381*^9}, {3.751396150008305*^9, 
   3.751396152645523*^9}},ExpressionUUID->"146d1a2f-83d1-445b-8d6a-\
794175dd6981"],

Cell[CellGroupData[{

Cell["FieldList:= list of all fields", "Subsubsection",
 CellChangeTimes->{{3.7371647409610195`*^9, 3.7371647437738266`*^9}, {
  3.7474915170494804`*^9, 
  3.7474915201855717`*^9}},ExpressionUUID->"38404d85-6a74-4447-aa3b-\
b53b5dce3a6b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FieldNameList", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"B", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"F", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"G", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"d", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{"Am", "[", "mu", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"At", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Bt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Ft", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Gt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"\[CurlyPhi]", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{"Bmn", "[", 
       RowBox[{"mu", ",", "nu"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Ah", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Ab", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Bh", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Bb", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Fh", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Fb", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Gh", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"Gb", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{"\[CapitalPsi]h", "[", 
       RowBox[{"kk", ",", "cc"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7676302393272047`*^9, 3.7676302693042603`*^9}, {
  3.76763042710898*^9, 3.767630429891818*^9}, {3.7676304730841312`*^9, 
  3.7676305921748333`*^9}, {3.7680704842610607`*^9, 3.7680704871322613`*^9}, {
  3.768071069496091*^9, 3.7680711345580273`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"8bdc923d-4011-4aa6-a9a8-0b2793ccab42"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FieldListDynamicalBosons", " ", "=", " ", 
  RowBox[{
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"B", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"At", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"Bt", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"\[CurlyPhi]", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Am", "[", "mu", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Bmn", "[", 
          RowBox[{"mu", ",", "nu"}], "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", 
          RowBox[{"mu", "+", "1"}], ",", "3"}], "}"}]}], "]"}], "//", 
      "Flatten"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Ah", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"Bh", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"Ab", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"Bb", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], "]"}], 
   "/.", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "3"}], "]"}], "\[Rule]", " ", 
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "1"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7371647681666255`*^9, 3.7371647892935534`*^9}, {
   3.737164819313388*^9, 3.7371648856185107`*^9}, {3.7371656041965075`*^9, 
   3.737165618979376*^9}, {3.737166395091236*^9, 3.737166423297084*^9}, {
   3.7385809380228167`*^9, 3.7385809723387794`*^9}, {3.74221898187416*^9, 
   3.74221898516984*^9}, {3.7467944645793705`*^9, 3.746794676786547*^9}, {
   3.746839384272541*^9, 3.746839418953623*^9}, {3.7468394490025725`*^9, 
   3.7468395119143877`*^9}, {3.7468395509244137`*^9, 3.746839572636593*^9}, {
   3.747420373512541*^9, 3.747420374055493*^9}, {3.747420407184679*^9, 
   3.747420416896228*^9}, 3.747420447760703*^9, {3.7474205769685974`*^9, 
   3.747420578159192*^9}, {3.747420616111844*^9, 3.747420634991326*^9}, {
   3.751396167913517*^9, 3.751396183627287*^9}, {3.751396229554102*^9, 
   3.751396230020978*^9}, {3.768071190982617*^9, 3.768071223460788*^9}, {
   3.768071332053891*^9, 3.7680713733785686`*^9}, {3.768088631184688*^9, 
   3.7680886344589453`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"9099ef07-609b-4251-9dee-91b068d2226b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"B", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"At", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Bt", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"\[CurlyPhi]", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "0", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "1"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "3"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "1"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"2", ",", "3"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Ah", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Bh", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Ab", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Bb", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.751396235239861*^9, 3.751562782313159*^9, 3.751727175921846*^9, 
   3.7517340852067213`*^9, 3.751737154226754*^9, 3.752250137709844*^9, 
   3.752256210337377*^9, 3.752265604535186*^9, 3.752321706458417*^9, 
   3.7523245092683105`*^9, 3.752408162020797*^9, 3.7524944912814302`*^9, 
   3.752496692385129*^9, 3.752499511317439*^9, 3.752536544922674*^9, 
   3.752537921668248*^9, 3.767539222713114*^9, 3.767629273097631*^9, 
   3.7680690143772287`*^9, {3.768071316273581*^9, 3.7680713376195917`*^9}, {
   3.768071374302793*^9, 3.768071383819664*^9}, 3.768086822929991*^9, {
   3.768088635557028*^9, 3.7680886438515873`*^9}, 3.768088682139181*^9, 
   3.768089603820253*^9, 3.768089922165814*^9, 3.831220425037173*^9, 
   3.831222101766999*^9, 3.831805857795911*^9, 3.8318397705556746`*^9, 
   3.832947480542252*^9, 3.8329617691269054`*^9, 3.8458268537446823`*^9, 
   3.845852452431415*^9, 3.845857062690034*^9, 3.8459196048775063`*^9, 
   3.846006559830946*^9, 3.846099870995217*^9, 3.8474704312806387`*^9, 
   3.8517006162130976`*^9, 3.853975435168041*^9, 3.8549773849648657`*^9, 
   3.854989248601933*^9, 3.85499988392023*^9, 3.8551652300970545`*^9, 
   3.855182300497947*^9, 3.855185845738593*^9, 3.85533061972106*^9, 
   3.855339824946294*^9, 3.855343157861649*^9, 3.8553439976524277`*^9, 
   3.855352727983735*^9, 3.855449592012426*^9, 3.855507594944003*^9, 
   3.8555083872295017`*^9, {3.855512843537847*^9, 3.855512866823838*^9}, 
   3.8555330817600737`*^9, 3.8555332855839453`*^9, 3.855578902968346*^9, 
   3.85559327734525*^9, 3.855750583054468*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"1defb68d-6d6e-4d01-b783-fa7fca4823a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FieldListAuxiliaryBosons", " ", "=", " ", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"F", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"G", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Ft", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Gt", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"d", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Fh", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Gh", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Fb", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Gb", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.747420586390733*^9, 3.747420591983321*^9}, {
  3.747420654207153*^9, 3.7474206764630346`*^9}, {3.7513962421753187`*^9, 
  3.751396259070472*^9}, {3.7513962936278563`*^9, 3.751396295578923*^9}, {
  3.767630263009091*^9, 3.767630265567815*^9}, {3.768071394406157*^9, 
  3.768071397587701*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"8066522e-c829-472d-be77-e6e61bd97324"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"G", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Ft", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Gt", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"d", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Fh", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Gh", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Fb", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Gb", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.751396264092161*^9, 3.751396304192374*^9, 3.751562782379534*^9, 
   3.751727176002096*^9, 3.751734085290132*^9, 3.751737154340394*^9, 
   3.752250137793144*^9, 3.752256210421276*^9, 3.752265604634334*^9, 
   3.7523217064739866`*^9, 3.75232450928393*^9, 3.752408162036414*^9, 
   3.7524944912814302`*^9, 3.7524966924040785`*^9, 3.752499511333397*^9, 
   3.752536544991817*^9, 3.7525379217503233`*^9, 3.767539222821011*^9, 
   3.7676292731064463`*^9, 3.768069014385929*^9, 3.7680713994668083`*^9, 
   3.7680868229899607`*^9, 3.768088643861619*^9, 3.76808868218813*^9, 
   3.7680896038869467`*^9, 3.7680899221822243`*^9, 3.831220425053083*^9, 
   3.831222101797063*^9, 3.8318058578208437`*^9, 3.831839770591592*^9, 
   3.8329474805852823`*^9, 3.832961769158148*^9, 3.845826853791546*^9, 
   3.845852452459115*^9, 3.84585706272718*^9, 3.845919604924902*^9, 
   3.846006559859869*^9, 3.846099871010846*^9, 3.847470431296265*^9, 
   3.85170061624434*^9, 3.8539754352084723`*^9, 3.854977385074216*^9, 
   3.854989248641836*^9, 3.854999883951462*^9, 3.8551652301439238`*^9, 
   3.8551823005448523`*^9, 3.8551858457458687`*^9, 3.8553306197679234`*^9, 
   3.8553398249931583`*^9, 3.8553431579397807`*^9, 3.8553439976836767`*^9, 
   3.8553527280232773`*^9, 3.8554495920553293`*^9, 3.855507594978705*^9, 
   3.8555083872626667`*^9, {3.855512843549275*^9, 3.8555128668333807`*^9}, 
   3.8555330818497257`*^9, 3.855533285590336*^9, 3.8555789029995923`*^9, 
   3.855593277359214*^9, 3.8557505830918517`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"12e08175-b90e-4b2c-82a5-b78d12156c99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FieldListFermions", " ", "=", " ", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
      "Flatten"}], ")"}], ",", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
      "Flatten"}], ")"}], ",", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
      "Flatten"}], ")"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.747420382357642*^9, 3.747420420079491*^9}, {
  3.751396276563796*^9, 3.751396276640635*^9}, {3.76807141419941*^9, 
  3.7680714158740683`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"d6cf5ead-d887-482f-96d5-830a92aa83e0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.751396280402501*^9, 3.751396311781858*^9, 3.751562782448288*^9, 
   3.7517271760718117`*^9, 3.75173408536944*^9, 3.751737154460112*^9, 
   3.752250137879944*^9, 3.752256210505006*^9, 3.752265604722473*^9, 
   3.7523217064896083`*^9, 3.752324509299554*^9, 3.7524081620520396`*^9, 
   3.752494491312674*^9, 3.7524966924226484`*^9, 3.7524995113503513`*^9, 
   3.7525365450741053`*^9, 3.752537921836905*^9, 3.767539222845684*^9, 
   3.76762927320759*^9, 3.768069014776231*^9, 3.7680714170052423`*^9, 
   3.7680868229981937`*^9, 3.768088643949231*^9, 3.768088682205563*^9, 
   3.768089603905438*^9, 3.76808992222626*^9, 3.8312204250740843`*^9, 
   3.8312221018329268`*^9, 3.8318058578527594`*^9, 3.8318397706334796`*^9, 
   3.8329474806165648`*^9, 3.832961769173812*^9, 3.845826853838411*^9, 
   3.8458524524679213`*^9, 3.84585706273479*^9, 3.845919604971766*^9, 
   3.8460065598967695`*^9, 3.846099871057695*^9, 3.8474704313431234`*^9, 
   3.8517006162912045`*^9, 3.8539754352180443`*^9, 3.854977385183565*^9, 
   3.85498924865036*^9, 3.854999883998325*^9, 3.8551652302064047`*^9, 
   3.8551823005916777`*^9, 3.8551858458080797`*^9, 3.8553306198304157`*^9, 
   3.8553398250556436`*^9, 3.8553431580178595`*^9, 3.8553439977360773`*^9, 
   3.85535272803216*^9, 3.855449592064636*^9, 3.855507594987711*^9, 
   3.8555083872707767`*^9, {3.8555128435797243`*^9, 3.8555128668673162`*^9}, 
   3.855533081860581*^9, 3.855533285627582*^9, 3.85557890301521*^9, 
   3.855593277383149*^9, 3.855750587246736*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"2f8edaf8-a3ae-4116-b875-4da56beb9cdb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FieldList", " ", "=", " ", 
  RowBox[{"Join", "[", 
   RowBox[{
   "FieldListDynamicalBosons", ",", "FieldListAuxiliaryBosons", ",", 
    "FieldListFermions"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.747420454471472*^9, 3.747420465958788*^9}, {
  3.747420684279863*^9, 3.7474206866330976`*^9}, {3.747420762063388*^9, 
  3.7474207642143497`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"198fb917-2abb-4596-bf71-170ffacf4abd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"B", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"At", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Bt", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"\[CurlyPhi]", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "0", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "1"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "3"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "1"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"2", ",", "3"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Ah", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Bh", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Ab", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Bb", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"F", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"G", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Ft", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Gt", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"d", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Fh", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Gh", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Fb", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Gb", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.75139631458607*^9, 3.75156278251258*^9, 3.751727176134603*^9, 
   3.751734085456604*^9, 3.751737154576592*^9, 3.752250137962596*^9, 
   3.752256210585684*^9, 3.752265604837291*^9, 3.752321706505229*^9, 
   3.7523245093307915`*^9, 3.7524081620676374`*^9, 3.7524944913283505`*^9, 
   3.752496692438604*^9, 3.752499511371295*^9, 3.752536545139895*^9, 
   3.752537921919572*^9, 3.767539222949088*^9, 3.767629273217387*^9, 
   3.7680690147941847`*^9, 3.768071420597164*^9, 3.768086823057947*^9, 
   3.768088643968824*^9, 3.768088682255598*^9, 3.768089603965917*^9, 
   3.768089922236497*^9, 3.83122042510201*^9, 3.831222101866006*^9, 
   3.8318058578908577`*^9, 3.8318397706823416`*^9, 3.8329474806681395`*^9, 
   3.83296176920508*^9, 3.8458268539008965`*^9, 3.8458524524943743`*^9, 
   3.84585706277359*^9, 3.8459196050362453`*^9, 3.8460065599376607`*^9, 
   3.846099871088936*^9, 3.8474704313743663`*^9, 3.85170061635369*^9, 
   3.853975435260778*^9, 3.854977385292914*^9, 3.854989248659663*^9, 
   3.8549998840608096`*^9, 3.855165230268898*^9, 3.8551823006385384`*^9, 
   3.855185845818182*^9, 3.855330619877272*^9, 3.855339825133756*^9, 
   3.8553431581115894`*^9, 3.8553439977829475`*^9, 3.8553527280758877`*^9, 
   3.855449592107724*^9, 3.855507595027647*^9, 3.8555083872811193`*^9, {
   3.855512843591527*^9, 3.85551286687606*^9}, 3.855533081947721*^9, 
   3.85553328563519*^9, 3.8555789030620747`*^9, 3.8555932774120984`*^9, 
   3.8557505874029503`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"e1e20fba-23fd-4ea7-b5ad-390bb8b6563a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
FieldListWithDerivatives:= list of all fields and all derivatives of fields, \
up to 2nd order\
\>", "Subsubsection",
 CellChangeTimes->{{3.747491503985871*^9, 
  3.7474915343535976`*^9}},ExpressionUUID->"3dcdbc13-3f52-49ae-8f7a-\
2ba58f9e9eb7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FieldListWithDerivatives", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{"FieldList", ",", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"FieldList", ",", 
          RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
      "Flatten"}], ",", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"FieldList", ",", 
          RowBox[{"\[CapitalStigma]", "[", "mu", "]"}], ",", 
          RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
      "Flatten"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474912152941847`*^9, 3.7474913919709916`*^9}, {
  3.7474919320023904`*^9, 3.747491933257946*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"1b56d7da-6bae-45fa-9eaa-9ce085f24d82"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
FieldProductList := List of all combinations of boson*fermion w/ derivatives \
on the bosons.\
\>", "Subsubsection",
 CellChangeTimes->{{3.7474915412731423`*^9, 
  3.747491569649689*^9}},ExpressionUUID->"5f079067-ab5b-4732-b778-\
bf9d364d51f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FieldProductsListDynamicalBosons", " ", "=", " ", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"FieldListDynamicalBosons", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], 
       RowBox[{"FieldListFermions", "[", 
        RowBox[{"[", "jhat", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "mu", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "FieldListDynamicalBosons", "]"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"jhat", ",", "1", ",", 
        RowBox[{"Length", "[", "FieldListFermions", "]"}]}], "}"}]}], "]"}], "//",
     "Flatten"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474203166575675`*^9, 3.74742032971872*^9}, {
  3.747420500190834*^9, 3.747420552719313*^9}, {3.7474207842399745`*^9, 
  3.747420929256092*^9}, {3.7474213462716775`*^9, 3.747421348646953*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"a258e7af-c0e2-4fb2-9b20-42c32a245bdf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FieldProductsListAuxiliaryBosons", " ", "=", " ", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"FieldListAuxiliaryBosons", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], 
       RowBox[{"FieldListFermions", "[", 
        RowBox[{"[", "jhat", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "FieldListAuxiliaryBosons", "]"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"jhat", ",", "1", ",", 
        RowBox[{"Length", "[", "FieldListFermions", "]"}]}], "}"}]}], "]"}], "//",
     "Flatten"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474213503127503`*^9, 3.747421387622363*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"eadedea2-d0ca-405a-acfd-2008d4caa418"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FieldProductsList", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{
    "FieldProductsListDynamicalBosons", ",", 
     "FieldProductsListAuxiliaryBosons"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.747421398201582*^9, 3.7474214203261704`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"20f10eb1-7c84-44ad-88f6-aa8e3d68c644"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Symmetries, Constraints, and raised indices such as Amup, etc. \
\>", "Section",
 CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, {
   3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 
   3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, {
   3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 
   3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, {
   3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 
   3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 
   3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, {
   3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 
   3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, {
   3.7113950004634604`*^9, 3.711395042032838*^9}, {3.746788296331828*^9, 
   3.746788298558612*^9}, 3.768071541074081*^9, {3.768087011674939*^9, 
   3.7680870182622967`*^9}},ExpressionUUID->"c50236d8-bfd6-4c67-bc1c-\
bc4c6ff2c66c"],

Cell[CellGroupData[{

Cell[TextData[{
 "\[CapitalPsi]up[i][a] := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[CapitalPsi]", "ia"], TraditionalForm]],ExpressionUUID->
  "dc52f130-c8ad-471f-a8e4-79f98086e1c8"]
}], "Subsection",
 CellChangeTimes->{{3.7113899424411583`*^9, 3.7113899579800467`*^9}, {
  3.738581167758957*^9, 3.7385811777485285`*^9}, {3.745946250409272*^9, 
  3.745946285660696*^9}},ExpressionUUID->"c9f8c06e-cccd-4878-9cf6-\
57c38c92fecd"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]up", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{"RaiseFermionIndex", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711389960589196*^9, 3.7113899896898603`*^9}, {
  3.7115833052759237`*^9, 3.711583306822012*^9}, {3.737159669684965*^9, 
  3.7371596726853886`*^9}, {3.7385811371562066`*^9, 3.738581145368676*^9}, {
  3.745946288267447*^9, 3.745946316041449*^9}, {3.7459464426280937`*^9, 
  3.745946444745284*^9}, {3.7459464867150393`*^9, 3.745946487257883*^9}, {
  3.746842111826688*^9, 3.7468421241791954`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"25922e74-2331-4af3-affc-1cf53f19daf7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"1deeca4a-a357-43a6-ab57-86bda9bbcedb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJwVxU1I2nEcB2ALMjpUmxHYoGDkZAYWXWK9842NVltvi9YLdCgNAs1ex8g6
uNkhWYzyEDHqEjnFXBsF2YqUSoqx8LKCXqzEVYr/X2/rlSjY5394eB7XN79p
CBEIBBkwv5L6Ie2cI63nz5IB926GR2xhX/9k4w6+GakM7OI4W55i84Kjq/W3
NR6szJg99eKc4vKKOzwaOzF1j486X/RJLznai9dMleIsb/9yGbaJTqTlWCmR
ZTXgGaIAv+Pr4WKoiFHwVj6XjKOyD9vCYhiJg8fZUbhKXxQZjV+P63X8o/ev
LPy736RxnZ8YtTxwBvlbr3MvBvsYqUuq9Wb8rE6scH1m5CmQ1f7GYf9ckgoz
owSXcawOG7e39xXYYjFpPuJKbci+DQ8W+tu38Bft6fh7KyNJWXSqYZLRhlV1
tjfNyO9Nl/+aYWQ3iG/c+PasR7aGVY/cB5KfjGyaoUw5PkpyXCVjlVFnfoe7
V55KtXhoYHW5C9dEzqd0Y6FI2K7DY0/Cnd+xQ618uIoDQnUH/8vniSY35vKt
+g0cmmkf5l/wHPiOcdPfH/5L7ONa7XmzjP4DO30FsQ==
  "],
 CellLabel->
  "Out[14]//MatrixForm=",ExpressionUUID->"1bd9a352-e1ed-496d-ad50-\
d3b8ceb244e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]up", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7113900099700203`*^9, 3.711390019309555*^9}, 
   3.711583315863529*^9, {3.738581159733498*^9, 3.7385811605575447`*^9}, {
   3.7459464217236357`*^9, 3.745946432377254*^9}, {3.7468421255567718`*^9, 
   3.746842126067292*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"ba5a332b-93ce-4e6f-8955-3f84c915f02f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuJTlSaNZp9fO/YeuXq4E0i/C+bivAWkc3u3ZtwF0hIs
US/uAekJuS7JN7+8drxkFhl1B0gverX7wwMgbX4uOPQPkA6cum7zXyB97adr
j9rX145X7udtDgDSccUTjwUCaYd979WCgfSJfG2bVCDNrOb8AkTbvX52iEno
jWOprd5uPSC9o+lZEavwG0dRrfe2fED6wSNfXn4gfex/cwOIPurpuwJEP9dV
l6zsfuPY/HL/KxB98bjDl2k9QPVXo5qXA+mGRMnkI31vHBW8tGJPA+l3hcdU
Qpe/cXz7f9KSRCC979udJ8lAeoLG8rwmIC3QyfRkDZDu9npRfAtI9/36sLp8
1RtHiYsChp2b3jieeJn98f62N45bEmx1T+5447jovsSPc0D6SWGb5hUgHTLr
/FOVnW8cb7ybaa0LpLV/7f+mB6QDhJqWlwJpr+NaalVA2mHipWPVQNqtd59+
DZDuDmIrbgDSO1LZ968H0p+SUwXPAGnP5zklIDpurvLSc0Bawmlt8w0gLZe/
fQ6I3hXz7NE7IK0rv/H5VyB9kLF4u9OuN44ACwUG3A==
  "],
 CellLabel->"Out[15]=",ExpressionUUID->"683edba1-926b-4df0-afc1-f447fa866658"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\[CapitalPsi]tup[i][a] := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    OverscriptBox["\[CapitalPsi]", "~"], "ia"], TraditionalForm]],
  ExpressionUUID->"7c73f669-839a-4cfb-9f0f-67c873ad3f30"]
}], "Subsection",
 CellChangeTimes->{{3.7113899424411583`*^9, 3.7113899579800467`*^9}, {
  3.738581167758957*^9, 3.7385811777485285`*^9}, {3.745946250409272*^9, 
  3.745946285660696*^9}, {3.745946592778892*^9, 
  3.7459465965249367`*^9}},ExpressionUUID->"f48df841-9404-4cf5-83d6-\
eea3d3cd97a7"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]tup", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{"RaiseFermionIndex", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711389960589196*^9, 3.7113899896898603`*^9}, {
  3.7115833052759237`*^9, 3.711583306822012*^9}, {3.737159669684965*^9, 
  3.7371596726853886`*^9}, {3.7385811371562066`*^9, 3.738581145368676*^9}, {
  3.745946288267447*^9, 3.745946316041449*^9}, {3.7459464426280937`*^9, 
  3.745946444745284*^9}, {3.7459464867150393`*^9, 3.745946487257883*^9}, {
  3.745946598779518*^9, 3.745946601523405*^9}, {3.7468421273883657`*^9, 
  3.746842137533628*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"398d0012-15b9-46cb-a62c-a89832b100a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"180036cb-cdfc-4b91-a64f-dd6f2b8cbd3b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuJbDVLfW1neOIpxzlFsA9Ii+l/U24G0y+kPtnzCbxy/
dCTw8gPp5+ZtDSBaQ8p/BYh+/0pdsrL7jWOb8sFXIPrSVccv03reOD5MiGle
DqQFH0olH+l743jAUzv2NJC+UHhCJXT5G0fJp5OXJAJp9qX3niQD6QKNlXlN
QPrDauYna4B0jdfL4ltAuvTXx9Xlq944MgUKGXZueuOYlJz78f62N45nBJ11
T+544zg5WOrHOSC9qLBd8wqQ/jfz4lOVnUD78mZb6wJprbAD3/SAtKFQy/JS
ID2JUVetCkizCV47Vg2k9XgP6NcAaa8Z7MUNQJrjFsf+9UBaYEOa4BkgfUI9
rwREa99WWXoOSB8J2th8A0g/aNoxB0Svinn+6B2QlpPf9PwrkL4SVbrdadcb
RwAfsLMe
  "],
 CellLabel->
  "Out[17]//MatrixForm=",ExpressionUUID->"c86dee1d-c9e7-490f-bb84-\
a5d1e9614bba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]tup", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7113900099700203`*^9, 3.711390019309555*^9}, 
   3.711583315863529*^9, {3.738581159733498*^9, 3.7385811605575447`*^9}, {
   3.7459464217236357`*^9, 3.745946432377254*^9}, 3.745946604452257*^9, {
   3.746842138406355*^9, 3.746842138948872*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"d9fbbd1a-8998-4914-9653-c319089f744a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuImfenvrSxvHDkWzFFsA9Iqh76otwPp7tpPtnzCbxyl
1NJ4+YH0HJ+OBhD9M9J/BYjOEL4oWdn9xtHt0cFXIDprk9OXaT1vHD/ciW1e
DqQZH0onH+l747jjpHbsaSC9pfCUSujyN44HZaYsSQTSeg/vPUkG0lErVuU1
Aelda1ierAHS5V6vim8B6fxfn1aXr3rj+PqCsGHnpjeOquvzPt7f9sYx4WKI
7skdbxy5l0n/OAekz3xs17wCpOWkLj9V2fnGcd27Oda6QDpj8oFvekD6zsTW
5aVAegujvloVkJ7Re/NYNZD27T2oXwOkBc5zFDcAaRkHrv3rgbTHmzTBM0B6
WXxeCYhu/6m69ByQznm4sfkGkE6ZsnMOiF505/mjd0BabP6m51+BdMnMsu1O
u944AgAoD7nO
  "],
 CellLabel->"Out[18]=",ExpressionUUID->"9e388621-7d92-482a-b9bb-63c69e688cde"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\[CapitalPsi]hup[i][a] := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    OverscriptBox["\[CapitalPsi]", "^"], "ia"], TraditionalForm]],
  ExpressionUUID->"a66c3805-55c2-432f-95f7-4504500a133a"]
}], "Subsection",
 CellChangeTimes->{{3.7113899424411583`*^9, 3.7113899579800467`*^9}, {
  3.738581167758957*^9, 3.7385811777485285`*^9}, {3.745946250409272*^9, 
  3.745946285660696*^9}, {3.745946592778892*^9, 3.7459465965249367`*^9}, {
  3.751392224449909*^9, 3.75139223200811*^9}, {3.751392277817267*^9, 
  3.751392281467915*^9}},ExpressionUUID->"05fd81b8-c980-4f98-b396-\
d779a42a978c"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]hup", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{"RaiseFermionIndex", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711389960589196*^9, 3.7113899896898603`*^9}, {
  3.7115833052759237`*^9, 3.711583306822012*^9}, {3.737159669684965*^9, 
  3.7371596726853886`*^9}, {3.7385811371562066`*^9, 3.738581145368676*^9}, {
  3.745946288267447*^9, 3.745946316041449*^9}, {3.7459464426280937`*^9, 
  3.745946444745284*^9}, {3.7459464867150393`*^9, 3.745946487257883*^9}, {
  3.745946598779518*^9, 3.745946601523405*^9}, {3.7468421273883657`*^9, 
  3.746842137533628*^9}, {3.751392295434292*^9, 3.751392310793388*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"86313cce-3736-408a-97c3-dcafebc2821a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"a54d5106-5a0d-4fed-8627-385765bcbd82"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuKKwI52s8+vHZOu3TjcCaT3WPJy3gLSt9btyLgLpDOl
4l7cA9Jx39ySb3557XjuYEzUHSB9KH3/hwdA2uxcSOgfIF2zYv3mv0D6TKVb
j9rX144qCfmbA4C0XcKkY4FAmmXxB7VgIM3ToGeTCqT5DKJegGg2r1eHmITe
OCa1GO7WA9J7vN4UsQq/cdzS/MWWD0g/WJjOyw+kzXZ0NYDoN2WBK0D0j31X
JCu73zi2XDr0CkQzH3b+Mq3njeOLmPjm5UD6TYJs8pG+N44rT+rEngbSl9Qu
qoQuf+OYwzJ1SSKQ9rS5/yQZSDtprMlrAtF3WJ+sAdLhXq+LbwHp7F+fV5ev
euM4KUDUsHPTG0dxnYKP97e9cbScEK57cscbRyFR2R/ngHT3xw7NK0D6r+TV
pyo73zgG5M2z1gXSQosOfdMD0sxC7ctLgfQRRkO1KiAtOeXusWogHcJ7WL8G
SJv5cBU3AOlb17j3rwfSB3wyBM8A6bzu/BIQPStefek5IN3BuK35BpAWfLxz
DoiedOfFo3dAWkV+8/OvQDpKpWK70643jgCrgf6q
  "],
 CellLabel->
  "Out[20]//MatrixForm=",ExpressionUUID->"4e787f58-f0ac-4aa4-b0ba-\
d82b4cd6238b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]hup", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7113900099700203`*^9, 3.711390019309555*^9}, 
   3.711583315863529*^9, {3.738581159733498*^9, 3.7385811605575447`*^9}, {
   3.7459464217236357`*^9, 3.745946432377254*^9}, 3.745946604452257*^9, {
   3.746842138406355*^9, 3.746842138948872*^9}, 3.75139229615466*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"38eafbe9-cbc5-4800-928b-47635a85c495"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuIWxe52s8+vHS8L3z7cCaQNFvNz3gLSInm7Mu4C6XmF
SS/uAem+fR7JN7+8dqyaGR91B0hP2nrwwwMgbXYuJPQPkD6lsWHzXyD94adb
j9rX147X7udvDgDSLocmHQsE0iZ6H9WCgXTWGQObVCC9TTjmBYie1v3qEJPQ
G0fZJpPdekA6ye1TEavwG0cB/q+2fED6TlomLz+Q/hDc3QCiGe4HrQDRb+9c
lazsfuN4pe/wKxB9p9/ly7SeN44iPgnNy4H0kweyyUf63jgu89SNPQ2k1y+7
pBK6/I1jrNPUJYlAelLMgyfJQLqgdW1eE5C2e8T2ZA2QDjj1uvgWkD6V+HV1
+ao3jnsuiBl2bgKan1Hw8f62N45dhyN1T+5448gVIvvjHJCeUNileQVIv5l5
7anKzjeOhnkLrHWBtE3rkW96QHrtxI7lpUDamdFYrQpIv5n84Fg1kBbrPaJf
A6TVeriKG4D0FSme/euB9JmGTMEzQFrpYH4JiJ6yVn3pOSB96NyO5htAeon0
rjkguuXOy0fvQPzPm59/BdIZupXbnXa9cQQA0oMG2A==
  "],
 CellLabel->"Out[21]=",ExpressionUUID->"ce35651f-5027-481c-9129-7de48caf4191"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "The Field strength, covariant and contravariant:  Fmn[\[Mu],\[Nu]]:=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubscriptBox["A", "\[Nu]"]}], " ", "-", " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Nu]"], 
      SubscriptBox["A", "\[Mu]"]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"10fce0ba-5bf2-408e-90d0-98c0b8045a5e"],
 "  ,  Fmnup[\[Mu],\[Nu]][t,x,y,z] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Mu]"], 
      SuperscriptBox["A", "\[Nu]"]}], "-", 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Nu]"], 
      SuperscriptBox["A", "\[Mu]"]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"53db7721-65a6-4a01-8a91-45c07c670a24"]
}], "Subsection",
 CellChangeTimes->{{3.559435749243413*^9, 3.5594358115719786`*^9}, {
  3.7095723534978476`*^9, 3.709572367764663*^9}, {3.7467876591178255`*^9, 
  3.746787661816454*^9}, {3.746788069746798*^9, 
  3.746788071230805*^9}},ExpressionUUID->"6044be20-c5be-443e-a695-\
41d6db5e4ca0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Fmn", "[", 
       RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Am", "[", "\[Nu]", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "\[Mu]", "]"}]}], "]"}], " ", "-", 
      " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Am", "[", "\[Mu]", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "\[Nu]", "]"}]}], "]"}]}]}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.559435816934285*^9, 3.5594358798158817`*^9}, {
  3.5594391240094385`*^9, 3.5594391253525157`*^9}, {3.746787673699049*^9, 
  3.7467876753293724`*^9}, {3.7467877475058484`*^9, 3.7467877478651915`*^9}, {
  3.7467881496154876`*^9, 3.7467881531433935`*^9}, {3.746788310444552*^9, 
  3.7467883112275906`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"7a3a156c-a91c-452a-9cad-35dbb7a0b895"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Fmnup", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", "  ", 
    RowBox[{
     RowBox[{"RaiseSTIndex", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"FmnHolder", "[", 
         RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", 
       "UP"}], "]"}], "/.", 
     RowBox[{"FmnHolder", "\[Rule]", "Fmn"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.55943589149255*^9, 3.559435933415947*^9}, {
  3.559439144588616*^9, 3.5594391665908747`*^9}, {3.711387927585915*^9, 
  3.7113879458169575`*^9}, {3.7371540737848773`*^9, 3.7371540855203824`*^9}, {
  3.7371542090498376`*^9, 3.7371542704641705`*^9}, {3.7371590519180546`*^9, 
  3.7371590745762577`*^9}, {3.737159110454631*^9, 3.737159114437681*^9}, {
  3.73715917228938*^9, 3.73715919107272*^9}, {3.7371682860288363`*^9, 
  3.7371682882633696`*^9}, {3.746788062513255*^9, 3.746788064268934*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"5fbdfbe1-c567-4dc5-91cf-ab612175844c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Fmn", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.5594359455036387`*^9, 3.55943595864439*^9}, {
  3.5594391511239896`*^9, 3.559439152285056*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"42a7688c-56f0-4c57-b339-cb9446a84602"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuJ/hb0dZp9fOx5Qu3e4E0g/myfEeQtI+2Xty7gLpGP8
0l7cA9Izbnkn3/zy2nHazdSoO0Cay+DShwdA+tfZ8NA/QFrh2cbNf4H0op+e
PWpfXzsaJRRtDgDSe35MPhYIpDlaP6kFA+meaBObVCDd9THuBYgW5ftwiEno
jaPMW7vdekCaRfJ/EavwG8fcpz9s+YD0HKlcXn4g/elcbwOIfiSSsgJEJyTd
kKzsfuO4TPXoKxCd1uX2ZVrPG0enzUnNy4F0mrlC8pG+N46rDfRjTwPpRSXX
VEKXv3H0ezttSSKQjrj48EkykBZ02ZDXBKSXhXI/WQOkjU+9Lb4FpB9w/Fhd
vuqN44edkoadm944dnYVfby/7Y2jwIRY3ZM73jiuaZD/cQ5IX9vfo3kFSE9b
evOpys43jjzvFlnrAmmZhuPf9IC0g3vP8lIgzcloqVYFpKcLPztWDaTZeI/r
1wDpaet4ihuAdE8M3/71QNo9MlvwDJD2LCssAdF/lmkuPQekW1bubb4BpFs7
ds8B0TExbx69A9IK0VuffwXZs7Z6u9OuN44AI1kCsw==
  "],
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"4acb5096-b9f4-4c38-a74c-\
871b6bfdc20f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Fmnup", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.559436043031217*^9, 3.559436043136223*^9}, {
  3.559439155236225*^9, 3.5594391563652897`*^9}, {3.7467880796821976`*^9, 
  3.746788081424588*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"a45cd7bf-e473-4c27-995b-f58e166cf9e4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Am", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAmLXlAkdZp9fO7Ksun+4E0gfCxHhvAWkxbwPZtwF0qdP
Zr64B6R1tPySb3557XhgfUbUHSAt8vDKhwdA+u3ZiNA/QPrazE2b/wLpnkqv
HrWvrx1nxRdvDgDSVWumHAsE0lsDP6sFA+lnimY2qUA6hSPpBYg+kv7hEJPQ
G8crEfa79YD0q5L/RazCbxxnZP+y5QPSXltzefmBtIlDXwOI1uPOWgGi1x+8
KVnZ/cZRXPvYKxDdtsH9y7SeN45W1inNy4F0yizl5CN9QHMMDGJPA2nePzdU
Qpe/cbx2fPqSRCD99N+jJ8lAep/lprwmIL3sKs+TNUBa1ut98S0g3cPxc3X5
qjeOjyylDTs3vXFU+VP88f62N45JT+J1T+5449j7VuHHOSC9yb5P8wqQXqR6
96nKzjeOX3KXWOsC6Zj1J7/pAWm7473LS4H0vwZrtSogHSX86lg1kH7Xc0K/
Bkg/+sJb3ACknbbx718PpC/NzxE8A6SFJheVgOgSXq2l54B0Uf6+5htAum7b
njkg2i/m7aN3QDpPftvzr0BaS7d2u9OuN44AoAYFsQ==
  "],
 CellLabel->
  "Out[25]//MatrixForm=",ExpressionUUID->"48047971-8cc0-459e-af58-\
cd4d7cc578f7"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Hard code the indices of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["B", "\[Mu]\[Nu]"], TraditionalForm]], "None",ExpressionUUID->
  "3b371996-2ec2-4967-9472-bffc7a280b68"],
 " so the independent fields are: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["B", 
     RowBox[{"0", "i"}]], ",", " ", 
    SubscriptBox["B", "12"], " ", ",", " ", 
    SubscriptBox["B", "23"], " ", ",", " ", 
    SubscriptBox["B", "31"]}], TraditionalForm]], "None",ExpressionUUID->
  "0da6f21b-eff3-42d2-a4a6-a67d09535e1e"]
}], "Subsection",
 CellChangeTimes->{{3.5367157366901007`*^9, 3.5367157585583515`*^9}, {
  3.5594349997035418`*^9, 3.559435007078964*^9}, {3.5594350495613937`*^9, 
  3.5594351128710146`*^9}, {3.7095716264722633`*^9, 3.709571628134359*^9}, {
  3.7467888764113293`*^9, 
  3.746788887432037*^9}},ExpressionUUID->"d2401969-ef87-4fee-94aa-\
7b7fbe051ef7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "0"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"Bmn", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"2", ",", "0"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"Bmn", "[", 
      RowBox[{"0", ",", "2"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "0"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"Bmn", "[", 
      RowBox[{"0", ",", "3"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"2", ",", "1"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"Bmn", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "3"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"Bmn", "[", 
      RowBox[{"3", ",", "1"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"Bmn", "[", 
      RowBox[{"2", ",", "3"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Bmn", "[", 
       RowBox[{"mi", ",", "mi"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
     "0"}], ",", 
    RowBox[{"{", 
     RowBox[{"mi", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.536715241146757*^9, 3.536715369286086*^9}, {
  3.5594350106271667`*^9, 3.5594350334044695`*^9}, {3.559435125076713*^9, 
  3.5594351491560903`*^9}, {3.5594352409843426`*^9, 3.5594352499038525`*^9}, {
  3.5594387483699536`*^9, 3.559438819557025*^9}, {3.559489972490155*^9, 
  3.5594899888800926`*^9}, {3.709571409139833*^9, 3.70957162238603*^9}, {
  3.711396588085267*^9, 3.7113966704349775`*^9}, {3.7467888964325914`*^9, 
  3.746788899692309*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"aa69d12c-7633-4335-8c98-95f3ebd3071b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"0", ",", "1"}], "]"}], "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.7113967266311913`*^9, 3.7113967297583704`*^9}, 
   3.7467889152019606`*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"c668e0e1-7742-4595-9758-9369ae3cbee7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"0", ",", "1"}], "]"}], "[", "t", "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKzS0S/t7K8cTz2eLpiG5CeX/levR1I+/T/seUTfuO4
LCCflx9It62e3ACim9uzV4Bo1qDbkpXdbxyNFI6/AtGbz3h8mdbzxpFjZWrz
ciDtI6WafKTvjeOEDQaxp4H0i+rbKqHL3zhynZ6xJBFIs8Y+eZIMpDft3JzX
BKS/mfA9WQOkub0+FN8C0ps7fq0uXwXUv1PGsHPTG0fbutKP97e9cWSxTNI9
ueONY2eN0o9zQHrF/n7NK0C6aum9pyo73zh+119mrQukL209800PSCe19S8v
BdIyB2zVqoA0x+T3x6qBNBvvKf0aIG0QyV/cAKTfBAjuXw+ky6TzBM8AaY83
z0tANJ+79tJzQHrPjYPNN4B0x9e9c0C0Xcy7R++AdE3ZtudfgfT/CXXbnXa9
cQQA6gK4Kw==
  "],
 CellLabel->"Out[33]=",ExpressionUUID->"3cca11de-2a8b-4d63-9417-f3ae61054c36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"3", ",", "3"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.55948999932469*^9, 3.55949001138938*^9}, {
   3.709571561148527*^9, 3.709571562893627*^9}, 3.7467889174439216`*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"bada0ece-857f-4882-b02c-b67c7e395909"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuJLTmLfW1neOEZFzFBsA9K3pD6otwPpDOt/tnzCbxwD
vxXw8gPpBe8mN4BoPu/cFSD68ow7kpXdbxxbLh1/BaLnNHp+mdbzxnHJtrTm
5UB6kpRa8pG+N451Boaxp4H0td93VEKXv3G8/XvGkkQgLTXtyZNkIN1ouS2v
CUgX+vA/WQOkmU99KL4FpJs6fq8uX/XGsdhSzrBz0xvHynWlH+9ve+NYIpui
e3LHG0ex9Uo/zgHpnv0TNK8A6UTVB09Vdr5xfKu/3FoXSP/KPv9ND0hnsE1c
XgqkPQ7Yq1UB6euTPh2rBtKHek7r1wBpiZUCxQ1Ammez0P71QNrOMF/wDJBe
9fBFCYhmzdZZeg5IfxE92nwDSN/T2DcHRJvdeffoHZAu+7bt+Vcg/XlC/Xan
XW8cAfRiuk4=
  "],
 CellLabel->"Out[34]=",ExpressionUUID->"6dc7d8d2-b04b-48ab-8a87-3c02a8aa8f10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "3"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.559490017988757*^9, 3.559490022317005*^9}, {
   3.7095715875650387`*^9, 3.709571589308138*^9}, 3.7467889175689087`*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"58c27cb0-ac87-4463-9ed6-be35908513b0"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmKX7WLfW1neOL6+NkOxDUi7ZX9QbwfSfyv+2fIJv3Fc
1lDIyw+kXddObQDRt67nrgDRh1rvSlZ2v3E8kHviFYj2v+z5ZVrPG8cTWhnN
y4H0JCm15CN9bxxrMo1iTwPpfdX3VEKXv3Hk2j1zSSKQ/rDy6ZNkIJ21c3te
E5CuiBJ4sgZIc3h9LL4FpNvi/qwuX/XGsdhSzrBz0xvH6h9lH+9ve+OYoJGm
e3LHG8egR0o/zgHpAPuJmleAdPjSh09Vdr5xvLZ+hbUukN727/I3PSCt3jZ5
eSmQVnZwVKsC0hsmfT1WDaRP9pzRrwHSPHcFihuA9I0XQvvXg/Ql5wueAdKa
Si9LQPT8NTpLzwFpuf9Hm28A6Y7o/XNAtEHM+0fvgHRB2fbnX4H0XYHG7U67
3jgCAAF2u5U=
  "],
 CellLabel->"Out[35]=",ExpressionUUID->"b8a7be6d-6fca-42e8-b912-c2b5ab6de31b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"1", ",", "0"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.709571591183245*^9, 3.7095715972605925`*^9}, 
   3.7467889194977036`*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"89e2113b-073e-4431-8f49-934eb67fa2f7"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"Bmn", "[", 
    RowBox[{"0", ",", "1"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmJnC/HvrSxvHAVcZyq2AWkVgY/q7UD6nD2DHZ/wG0e7
V0W8/ED6xIepDSB6m3n+ChDdlnVPsrL7jaOG4MlXIHrifK8v03qA4imZzcuB
tNos9eQjfW8cT780ij0NpHfteqASuvyN45U3M5ckAmmlB0+fJAPpjJ078pqA
tE2i4JM1QPrLyY/Ft4C03b0/q8tXvXGM3ilv2LnpjWOKdvnH+9veOIZsStc9
ueON4xZR5R/ngLSD/STNK0CaRfXxU5Wdbxw36q+21gXSHQeufdMD0jdYpy4v
BdKX7J3VqoB0zaQfx6qBdEXPef0aIH1RWLC4AUhHeInsXw+k583IFzwDpJM8
X5WA6KW3dZeeA9Iqa0823wDSCX3754BotTvvH70Dqf+2/flXIK25rWm70643
jgBInbgE
  "],
 CellLabel->"Out[36]=",ExpressionUUID->"496771e6-6341-4ea6-b7a2-9a18403063e6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"Bmnup", "[", 
     RowBox[{"\[Mu]_", ",", "\[Nu]_"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "  ", "=", " ", 
   SuperscriptBox["B", "\[Mu]\[Nu]"]}], 
  TraditionalForm]], \
"None",ExpressionUUID->"469647f8-8ff1-4423-b11d-dd3ce5f0ec72"]], "Subsection",\

 CellChangeTimes->{{3.5595058748817196`*^9, 3.559505896619963*^9}, {
  3.5595059940175343`*^9, 3.5595060010259347`*^9}, {3.74678782171711*^9, 
  3.74678786098053*^9}, {3.7467881807248545`*^9, 3.746788190022028*^9}, {
  3.746788346555399*^9, 3.746788346555399*^9}, {3.746788643343294*^9, 
  3.746788643815591*^9}},ExpressionUUID->"85c737f0-5f0e-4eb9-9db4-\
06c56723af04"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Bmnup", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"RaiseSTIndex", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"BmnHolder", "[", 
         RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", 
       "UP"}], "]"}], "/.", 
     RowBox[{"BmnHolder", "\[Rule]", "Bmn"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5595058981330495`*^9, 3.5595059444937015`*^9}, {
   3.7113879792638707`*^9, 3.7113880306928124`*^9}, {3.737154372023514*^9, 
   3.7371543849622355`*^9}, {3.737159515714714*^9, 3.7371595253561463`*^9}, {
   3.74678782201628*^9, 3.746787825946167*^9}, 3.7467878778048897`*^9, {
   3.746787909745264*^9, 3.746787924140156*^9}, {3.7467879975357356`*^9, 
   3.7467879981953106`*^9}, {3.7467881857567434`*^9, 
   3.7467881927209597`*^9}, {3.746788351399992*^9, 3.7467883622182903`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"5f7bfa1e-6b2f-4bba-8fa2-3401d1846a88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"1", ",", "0"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.737154400322974*^9, 3.7371544155276656`*^9}, 
   3.7467878270506954`*^9, 3.7467883634435215`*^9, {3.7467884066390657`*^9, 
   3.746788406756423*^9}, {3.746788439379644*^9, 3.746788439504629*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"a7dcd25d-2558-4472-b830-baf510b9fcf0"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"Bmn", "[", 
    RowBox[{"0", ",", "1"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuJzN+W/t7K8cTTynq/YBqT71nJptANptX8MdnzCbxwN
XDt4+YG0d8uMBhD9TrhwBYj+u+C+ZGX3G8cH0qdegWiDtd5fpvW8cYzmzW5e
DqQjFmkkH+l743j8pXHsaSB9W+KxSujyN46/rs5akgiki5SfP0kG0jY7d+U1
AelpG4SerAHSdzw/F98C0kniDGvKVwHV7VQy7Nz0xnFjZ/nH+9veOG64kKV7
cscbxy19Kj/OAel0+8maV4C0surTpyo73zjOXL/GWhdINx68+U0PSH9rnba8
FEg/s3dVqwLSIZN+H6sG0lo8F/VrgPSrSqHiBiDtdFt0/3og7fi0QPAMkN6z
93UJiE6I0lt6DkhL5Z9tvgGkN3w+MAdEi9/58OgdSL5sx/OvIHPzW7Y77Xrj
CABperku
  "],
 CellLabel->"Out[38]=",ExpressionUUID->"67c6fbf9-e257-4456-8d58-1bd8304ec86e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Bmnup", "[", 
    RowBox[{"0", ",", "1"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.559505958595508*^9, 3.5595059664489574`*^9}, 
   3.7467878284123306`*^9, 3.7467878846398506`*^9, {3.746788363975465*^9, 
   3.746788374605817*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"7a1952d2-53db-4d02-ac22-44de19342370"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"Bmn", "[", 
    RowBox[{"0", ",", "1"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuJ/fgrfW1neOE5bNV+xDUjLanBrtANp/tlMdnzCbxwn
8vTy8gNphqRZDSC6bUHhChD9qveBZGX3G8eVp0+9AtFvE3y+TOt547jnf07z
ciBts0Ez+UjfG8cNmSaxp4H0XomnKqHL3zieY5u9JBFI/7F88SQZSKtb7slr
AtLuJ4WfrAHS905+Lr4FpOvEGdeUr3rjmLBT2bBz0xtHhbMVH+9ve+P4YXaO
7skdbxwtbqr+OAek/fZP0bwCpNlVnz1V2fnGsUl/nbUukJ7+6eY3PSD9jnXG
8lIg/djDXa0KSC+Y8u9YNZCO47mkXwOkv6wXKm4A0gECYvvXA+l/EoWCZ4D0
qx+vS0D07yj9peeA9IFJ55pvAGkNoUNzQDT7nY+P3oHM/7/j+Vcg/W1t63an
XW8cAcGDujY=
  "],
 CellLabel->"Out[39]=",ExpressionUUID->"adf29483-9f09-4de4-97f2-30cb28f150fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmnup", "[", 
   RowBox[{"1", ",", "0"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.7113886881014137`*^9, 3.7113886931577034`*^9}, 
   3.7467878288362474`*^9, 3.7467878851583223`*^9, {3.746788364492631*^9, 
   3.746788374985256*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"49ff588e-352e-4612-a507-467efc39b930"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"0", ",", "1"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmKuywrfW1neOJYYLVBsA9IHrnFrtIPoW0x2fMJvHD8E
9PLyA2mdZbMaQPRtzuIVIHpD0UPJyu43jln5p1+BaCZV3y/Tet447qrPa14O
pE0MtJKP9L1xDHlpEnsaSC+b8UwldPkbxx6r2UsSgfTTvBdPkoG0qOXevCYg
/eWh2JM1QPqi55fiW0A6ajrjmvJVbxw5LFUNOze9cdRgqPx4f9sbxxvSebon
d7xx3CKo9uMckPbbP0XzCpD+teT5U5Wdbxzr1q+z1gXSepPvfNMD0otmz1xe
CqQPnPBQqwLSno8ZjlcD6V/cV/RrgHTtS6HiBiB9okJ8/3ognRZYKHgGSLs4
vi0B0Vbz9ZeeA9Krz1xsvgGkU10PzQHR/6I/PXoHpIsqdj7/CrLHr3270643
jgDXf7cH
  "],
 CellLabel->"Out[40]=",ExpressionUUID->"3f0d1819-6d0f-4ea3-a1a0-1ec1c8d14e62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmnup", "[", 
   RowBox[{"3", ",", "0"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.711388717496095*^9, 3.7113887220143538`*^9}, 
   3.746787829244749*^9, 3.7467878855124025`*^9, {3.746788365057683*^9, 
   3.7467883753118587`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"7b346bd8-521c-40cc-be19-7d667555535f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"0", ",", "3"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuIyd8XvrSxvHENbFyi2AWkGZx6NdiDtMJXFjk/4jaPM
qj5efiAtf3pOA4hWii1eAaKLwh9JVna/cTwvdOYViBZ/6ftlWs8bx+ap+c3L
gTSDv3bykb43jm4vTWNPA+kry1+ohC5/48jyZfaSRCBts+jFk2QgzbBzX14T
kJ74XvzJGiD96eSX4ltA2mM605ryVW8cXXaqGnZueuO4x6nq4/1tQFq6QPfk
jjeOF+LUf5wD0jH20zSvAOkHKi+fqux845i3fr21LpC+duTONz0gHTJ71vJS
IL3mhJdaFZD+kMR8vBpIf+m+ol8DkucWKW4A0qvWiu9fD6Q3pRYJngHSdfVv
S0A0x3aDpeeA9M39V5tvAGn55kNzQPSP258evQPSex7sfP4VSLMfbN/utOuN
IwBcvrgM
  "],
 CellLabel->"Out[41]=",ExpressionUUID->"ad9865c4-0878-4d00-b5ef-01d9089ac03f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmnup", "[", 
   RowBox[{"0", ",", "3"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.711388724410491*^9, 3.7113887281387043`*^9}, 
   3.74678782965279*^9, 3.7467878867116165`*^9, {3.746788365620965*^9, 
   3.7467883756261673`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"564d83af-d107-48fd-8a56-4b5010483e24"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"Bmn", "[", 
    RowBox[{"0", ",", "3"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuIpFxW/t7K8cQx4tkCxDUiXbuHRaAfSmVdY7PiE3zhu
Vevn5QfSCevmNoDo1t8lK0B0j89jycruN46stWdegegJm/y+TOt54+iysqB5
OZB+IamXfKTvjaP6GrPY00D63LOXKqHL3ziuUJ+zJBFIm9x+8SQZSH+yOJDX
BKRV/ko8WQOk93l+Lb4FpLWnM68pX/XG0WynmmHnpjeOymVVH+9vA+qfXah7
cscbxx2T1X+cA9IG+6drXgHSfUtePVXZ+cYxZv0Ga10gzdZ//5sekK6UnrO8
FEh3ePioVQHpP49Yj1cD6WenrunXAOkTTiLFDUDaRVpy/3ogrTOrSPAMkOZ4
/K4ERMv9NFh6DkgnCV9rvgGko3YfmgOiX93+/OgdkPaP3vX8K5AOet+x3WnX
G0cA9jm5Dw==
  "],
 CellLabel->"Out[42]=",ExpressionUUID->"da76cb66-71ef-4802-bbc8-07934e84f90c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Bmnup", "[", 
     RowBox[{"2", ",", "1"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", "t"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.55950597052219*^9, 3.559505983126911*^9}, {
   3.7113880120597467`*^9, 3.71138801247377*^9}, 3.746787830232757*^9, 
   3.7467878888120193`*^9, {3.7467883662337914`*^9, 3.7467883762209516`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"e417543e-1175-4e19-979a-4ba681d41661"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmInO6XvrSxvHDcs3arYBqTzLHk12oG09Hw2Oz7hN47z
Vkzg5QfS3s3zG0B0nE3pChDtb/hEsrL7jWOOwtlXIHpZmf+XaT1vHPsPFTYv
B9J+h/WSj/S9cRTRMY89DaSbWl+rhC5/4/js9ZwliUA6l+HVk2QgfcviYF4T
kD7EJfVkDZBecfJb8S0g/eshy5ryVUDxc+qGnZveOBofqv54f9sbx47Zxbon
d7xxnPlU48c5IL151gzNK0A6uvTNU5Wdbxy99DdZ6wLpXyfvf9MD0nHSc5eX
AukVHn5qVUD6ahnH8Wog/cXthn4NkPZpEy1uANLRpjL71wPp3otFgmeAdJfK
+xIQzWFktPQckN5352bzDSD96ODhOSDaR+3Lo3dAet3ZXc+/AmnWg13bnXa9
cQQAvwW32w==
  "],
 CellLabel->"Out[43]=",ExpressionUUID->"b4e5d15d-6955-410e-89c4-d497a02ee81b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Bmnup", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.559436043031217*^9, 3.559436043136223*^9}, {
   3.559439155236225*^9, 3.5594391563652897`*^9}, {3.7371595585001616`*^9, 
   3.7371595613751593`*^9}, 3.7467878329757724`*^9, 3.7467878909914985`*^9, {
   3.7467883677232*^9, 3.7467883775062885`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"fb684aa5-0a44-4179-8487-b6322ba5b7e8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"Bmn", "[", 
         RowBox[{"0", ",", "1"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"Bmn", "[", 
         RowBox[{"0", ",", "2"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"Bmn", "[", 
         RowBox[{"0", ",", "3"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"Bmn", "[", 
        RowBox[{"0", ",", "1"}], "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "0", 
      RowBox[{
       RowBox[{"Bmn", "[", 
        RowBox[{"1", ",", "2"}], "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"Bmn", "[", 
         RowBox[{"3", ",", "1"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"Bmn", "[", 
        RowBox[{"0", ",", "2"}], "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"Bmn", "[", 
         RowBox[{"1", ",", "2"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"Bmn", "[", 
        RowBox[{"2", ",", "3"}], "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]},
     {
      RowBox[{
       RowBox[{"Bmn", "[", 
        RowBox[{"0", ",", "3"}], "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       RowBox[{"Bmn", "[", 
        RowBox[{"3", ",", "1"}], "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"Bmn", "[", 
         RowBox[{"2", ",", "3"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKOx0rfW1neOG4N2qnYBqQF7vJqtANpAy12Oz7hN458
bBN5+YG0e8mCBhBd9LZsBYiWcn8qWdn9xrHux9lXINr4o/+XaT1vHO+wFTcv
B9JrJAySj/S9cdy+2jz2NJB+t/mdSujyN44h2nOXJAJpK7tXT5KB9KEdh/Ka
gPQKF+kna4D0jJPfi28B6SpetjXlq944pvhpGnZueuPoxFrz8f62N47zZ5fq
ntzxxnGequaPc0DaznWW5hUg7fb17VOVnW8c9dZvttYF0t8qH33TA9Ihs+ct
LwXSnR4BalVA+uk3ruPVQLrs/E39GiB964RocQOQPlUhs389kBYRLxY8A6Q1
F30oAdEv2oyWngPSSW63mm8A6a2/Ds8B0U5qXx+9A9JvMnY//wqk//L3bHfa
9cYRAAaxtwA=
  "],
 CellLabel->
  "Out[44]//MatrixForm=",ExpressionUUID->"1804ac90-8a00-4e8f-b9b3-\
12fa7464225f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Hamn[ap_,mu_,nu_][t,x,y,z] = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["H", "\[Alpha]\[Mu]\[Nu]"], " ", "=", " ", 
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{
      SubscriptBox["\[PartialD]", 
       RowBox[{"[", "\[Alpha]"}]], 
      SubscriptBox["B", 
       RowBox[{"\[Mu]\[Nu]", "]"}]]}]}]}], TraditionalForm]],ExpressionUUID->
  "85816ad9-3c5f-457c-a45d-7420a5bb7fad"],
 "=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Alpha]"], 
     SubscriptBox["B", "\[Mu]\[Nu]"]}], "+", 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Nu]"], 
     SubscriptBox["B", "\[Alpha]\[Mu]"]}], "+", 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     SubscriptBox["B", "\[Nu]\[Alpha]"]}]}], TraditionalForm]],ExpressionUUID->
  "c3c33787-a16c-4fa6-8afe-61e2ad3f52b6"]
}], "Subsection",
 CellChangeTimes->{{3.746788624113227*^9, 3.7467886865274286`*^9}, {
  3.7467891308789663`*^9, 
  3.7467891866674433`*^9}},ExpressionUUID->"7325738e-c08f-44a5-952a-\
dbfc829a3037"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Hamn", "[", 
       RowBox[{"ap", ",", "mu", ",", "nu"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmn", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}], " ", "+", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmn", "[", 
           RowBox[{"ap", ",", "mu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], " ", "+", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmn", "[", 
           RowBox[{"nu", ",", "ap"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], " ", 
      ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4614478885878*^9, 3.4614479954477997`*^9}, {
   3.461532549956457*^9, 3.461532552514857*^9}, {3.461532623292057*^9, 
   3.4615326260844564`*^9}, 3.746788690790016*^9, {3.746789037286188*^9, 
   3.7467891208281794`*^9}, {3.7467891926573086`*^9, 3.7467892024427953`*^9}},
 
 CellLabel->"In[45]:=",ExpressionUUID->"f6ae09ce-daf6-40b6-b5bf-f4f20ccb79ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hamn", "[", 
   RowBox[{"0", ",", "1", ",", "3"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467892790054564`*^9, 3.7467892887917233`*^9}, {
  3.746789339186306*^9, 3.7467893392800493`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"b59e29df-e259-4559-9fc8-305db75661d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "1"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "3"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "1"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKOzcrfW1neOO4w2aXYBqQDF/JptAPpU/857PiE3zje
8JjMyw+kEz4sagDRs49XrADRTvOeSVZ2v3H89vfcKxCtxh/4ZVrPG8f1dSXN
y4H0HAnD5CN9bxyLLlvEngbSwW8/qIQuf+PopzFvSSKQNpn4+kkykF6840he
E0h8i8yTNUC64+SP4ltAeiEv+5ryVW8cY85pGXZueuMo1VL78f62N44lsyt0
T+544xg3X+vHOSAdEzdb8wqQFvv64anKzjeOEvpbrXWBtMqcp9/0gLTW7AXL
S4G0+4kgtSogvfEb7/FqIJ139LZ+DZD+FiBe3ACkz7DJ7V8PpHd4lQieAdI3
4z6VgGiWk8ZLzwHp9th7zTeAdLHH0Tkg2kTt26N3QDojbc/zr0A6/GLvdqdd
bxwBXyG4QA==
  "],
 CellLabel->"Out[46]=",ExpressionUUID->"dd6953eb-78fd-4348-a8ec-d69e8b265c03"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hamn", "[", 
   RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467892790054564`*^9, 3.7467892887917233`*^9}, {
  3.746789339186306*^9, 3.74678936684441*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"053d4251-30ad-4fd6-ac88-f6a97bfc4e3f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "1"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmI9DZXvrSxvHMVEdiu2AekjQfwa7UA6bSGXHZ/wG8dq
lqm8/ECaUWxpA4ium9m5AkRHTn4uWdn9xrFo//lXINrmcuCXaT1vHM9sKW1e
DqR7JIySj/S9cTx92TL2NJC2evtJJXT5G8c7SfOWJALpFxdfP0kG0j+/HM1r
AtISp2SfrAHSyzx/Ft8C0om8HGvKV71xzPPTMezc9MbRYGftx/vb3jgGza7S
PbnjjeOFq1o/zgHpWVvmaF4B0sdKPj1V2fnGkUd/m7UukA7OePFND0g/kFq0
vBRIW50IUasC0sfKBI5XA+ltcnf1a4D0m27x4gYg3VYiv389kP5UXyp4Bkgz
PPlcAqLPvDNZeg5IS7E+ar4BpA2Sj80B0VrLvj16B6R3P9jz/CuQrvjet91p
1xtHAN1juL8=
  "],
 CellLabel->"Out[47]=",ExpressionUUID->"6dfec90c-ce66-46a4-a59b-bd7218a6985f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hamn", "[", 
   RowBox[{"1", ",", "2", ",", "3"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467892790054564`*^9, 3.7467892887917233`*^9}, {
  3.746789339186306*^9, 3.7467893392800493`*^9}, {3.7467893704982677`*^9, 
  3.7467893716274185`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"3c94b764-1fc6-4a76-b789-ad9168d8e5fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"3", ",", "1"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"2", ",", "3"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuIzt1W+t7K8cdTYsVuxDUiXSwtotAPpgkBeOz7hN45Z
+VN5+YH0mrdLG0D0Ob6+FSC6pOOFZGX3G0elgguvQLTgvKAv03reODoIlzcv
B9JlM4yTj/S9cbwSbBV7GkibTPqiErr8jaPdzHlLEoF0BeebJ8lA+rDa8bwm
IL3kkdyTNUC66uTP4ltAOoiXc035qjeO2n66hp2bgPYw1H+8v+2NI4t0je7J
HW8cO3i1f5wD0rO2zNG8AqT/fPn0VGUnUN+u7da6QFpz8YtvekD66qzFy0uB
9Cf3MLUqIB1fJny8GkhHCd7XrwHSXCfEixuANMd6+f3rgfSEXaWCZ4B0ovqX
EhAdYmq69ByQPpz6qPkGkPaYcWwOiBZV+/HoHZCWCt77/CuQ9rGbsN1p1xtH
APIbsiQ=
  "],
 CellLabel->"Out[48]=",ExpressionUUID->"b0139b62-d686-44f3-aa9e-8576b63aafeb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"Hamnup", "[", 
     RowBox[{"\[Alpha]_", ",", "\[Mu]_", ",", "\[Nu]_"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "  ", "=", " ", 
   SuperscriptBox["H", "\[Alpha]\[Mu]\[Nu]"]}], 
  TraditionalForm]], \
"None",ExpressionUUID->"023a26d8-a20f-4100-9479-bcf4d8fdac83"]], "Subsection",\

 CellChangeTimes->{{3.5595058748817196`*^9, 3.559505896619963*^9}, {
  3.5595059940175343`*^9, 3.5595060010259347`*^9}, {3.74678782171711*^9, 
  3.74678786098053*^9}, {3.7467881807248545`*^9, 3.746788190022028*^9}, {
  3.746788346555399*^9, 3.746788346555399*^9}, {3.746788643343294*^9, 
  3.746788643815591*^9}, {3.746789219782315*^9, 3.7467892327038193`*^9}, {
  3.74678940613883*^9, 
  3.746789406624868*^9}},ExpressionUUID->"65850737-f21f-4aca-b28a-\
60c807456cd6"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Hamnup", "[", 
      RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"RaiseSTIndex", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"HamnHolder", "[", 
         RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", 
       "UP", ",", "UP"}], "]"}], "/.", 
     RowBox[{"HamnHolder", "\[Rule]", "Hamn"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5595058981330495`*^9, 3.5595059444937015`*^9}, {
   3.7113879792638707`*^9, 3.7113880306928124`*^9}, {3.737154372023514*^9, 
   3.7371543849622355`*^9}, {3.737159515714714*^9, 3.7371595253561463`*^9}, {
   3.74678782201628*^9, 3.746787825946167*^9}, 3.7467878778048897`*^9, {
   3.746787909745264*^9, 3.746787924140156*^9}, {3.7467879975357356`*^9, 
   3.7467879981953106`*^9}, {3.7467881857567434`*^9, 
   3.7467881927209597`*^9}, {3.746788351399992*^9, 3.7467883622182903`*^9}, {
   3.7467892446039696`*^9, 3.746789271934366*^9}, {3.746789484475436*^9, 
   3.746789486795743*^9}, 3.7467895270614786`*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"72752acd-bf43-49f2-9f39-974f7c38fbdb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hamn", "[", 
   RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.737154400322974*^9, 3.7371544155276656`*^9}, 
   3.7467878270506954`*^9, 3.7467883634435215`*^9, {3.7467884066390657`*^9, 
   3.746788406756423*^9}, {3.746788439379644*^9, 3.746788439504629*^9}, 
   3.7467894174586935`*^9, {3.746789564269497*^9, 3.746789564349372*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"928f03b3-98d8-4b0a-b9cd-2fba3aeb717b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Bmn", "[", 
      RowBox[{"0", ",", "1"}], "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmKbQ6rfW1neOCr07FFsA9JFWwU02oH0015BOz7hN47y
E6fz8gPpbUwrGkC0xsr+FSD6yPOXkpXdbxyP5V98BaJNZoZ8mdbzxpGlr6J5
OZBOm2GSfKTvjWNIsHXsaSD9ce03ldDlbxzDO+cvSQTSa5LePkkG0g3WJ/Oa
gPQfR4Una4D06rjfxbeAdE4v15ryVUD95/QMOzcB3ZdY//H+tjeOorPrdE/u
eOM4WUvvxzkgfcdknuYVID37y5enKjvfOFpY7bTWBdJ/J7/+pgek10ktXV4K
pC+7R6lVAWn7KWLHq4H0m68P9GuAtJG3VHEDkG5zV9y/HkjbmpULngHSi299
LQHRGivMlp4D0j5hz5pvAOmKt8fmgOhvqr8evQPS3Pz7nn8F0jUak7Y77Xrj
CADFcrb9
  "],
 CellLabel->"Out[50]=",ExpressionUUID->"1d2807a5-ce27-4fcf-9102-4ca93ee9eb66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Hamnup", "[", 
    RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.559505958595508*^9, 3.5595059664489574`*^9}, 
   3.7467878284123306`*^9, 3.7467878846398506`*^9, {3.746788363975465*^9, 
   3.746788374605817*^9}, 3.7467894206570187`*^9, {3.746789571781282*^9, 
   3.7467895917565603`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"e6ff90b9-c864-436f-bf03-d5b47133a2a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "1"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmKfULXvrSxvHF/836PYBqQFlglqtAPpB5bCdnzCbxwV
LGfy8gPpr1arGkD0Er8JK0D0gzuvJCu73zia6Fx6BaI9Y0O/TOt547jsTGXz
ciAdNsM0+UjfG0efy9axp4H0o7XfVUKXv3Fcs3XBkkQgzTbx3ZNkIJ1lfSqv
CUhP9ld8sgZIz7v3u/gWkK7k5V5TvuqNo0SSgWHnpjeOKrPrP97f9sbxmFSD
7skdbxzL6vR/nAPSm7bM17wCpI+XfHuqsvONo6bVLmtdIO0Q9O6bHpC+M2vZ
8lIgfcE9Rq0KSD88JnG8Gki3+T7SrwHSwZXSxQ1A2nmt0v71QDrqS4XgGSCd
G/q9BER/2Ga+9ByQfvLpZfMNID3l2/E5IPrd0l+P3gHpNzP3Pf8KpBfWT97u
tOuNIwCm9bvu
  "],
 CellLabel->"Out[51]=",ExpressionUUID->"f525751e-77d5-4786-8045-0a6c60813d57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Hamnup", "[", 
    RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "\[Equal]", 
  RowBox[{"-", 
   RowBox[{
    RowBox[{"Hamn", "[", 
     RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.559505958595508*^9, 3.5595059664489574`*^9}, 
   3.7467878284123306`*^9, 3.7467878846398506`*^9, {3.746788363975465*^9, 
   3.746788374605817*^9}, 3.7467894206570187`*^9, {3.746789571781282*^9, 
   3.7467896059005184`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"2a78b93c-639f-41c7-ac75-7cfdf30c5efd"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuILG9W+t7K8cVQK2avYBqTzJYQ02oH0wmZhOz7hN44K
DTN5+YF055FVDSBaYNfEFSD618XXkpXdbxyn3r70CkQziYZ9mdbzxvEvY03z
ciAdNsM0+UjfG8d5wTaxp4H0ad2fKqHL3zjeeL5gSSKQLjr+7kkykA7ZfTqv
CUinhSs9WQOk++79Kb4F4vPyrClf9caRNcnQsHPTG0efhw0f729747hKqkn3
5I43jlLb9X+cA9LTtizQvAKkF335/lRlJ1Dcare1LpDeseHdNz0gfURqxfJS
IL3ueKxaFZB+5CZ9vBpIH1v5WL8GSB/YKF3cAKQVXyjtXw+kIywqBc8A6a8T
v5eA6DM/zJeeA9ICS9423wDSZlon5oDoe0t/P3oHpIN49j//CqSVnk/Z7rTr
jSMA56+6Yg==
  "],
 CellLabel->"Out[52]=",ExpressionUUID->"8930d3a6-025a-4dbe-949d-3811f87ad0c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hamnup", "[", 
   RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.7113886881014137`*^9, 3.7113886931577034`*^9}, 
   3.7467878288362474`*^9, 3.7467878851583223`*^9, {3.746788364492631*^9, 
   3.746788374985256*^9}, 3.746789422941053*^9, {3.7467896326806693`*^9, 
   3.7467896342822237`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"501f5960-0620-4343-8bde-95313fbca489"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Bmn", "[", 
      RowBox[{"0", ",", "1"}], "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"0", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Bmn", "[", 
     RowBox[{"1", ",", "2"}], "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKbEerfW1neOK7o3KfYBqSLVwpptANpnVBROz7hN44s
hrN5+YG03to1DSB6/abJK0D0i31vJCu73zg6RF55BaKdHoZ9mdbzxrFGo7Z5
OZCO5zRPPtL3xnHSZZvY00B6n+4vldDlQHrXwiWJQProxw9PkoG0rfXZvCYg
rZ+r/GQNkG6L+1t8C0i78/KuKV/1xnHZQyPDzk1vHPPWNX28vw1onlSL7skd
bxxfsRn+OAekp21ZoHkFSEeX/HyqsvONI/OuPda6QFrP++M3PSBdJrVyeSmQ
nnM8Xq0KSHcfkz1eDaRPPn2iXwOk//yRKW4A0sG+KvvXA+m3blWCZ4D0ths/
SkB0gpbl0nNAeg/7x+YbQPp2/Ik5IPqD5Z9H74A0T//+51+BdAnftO1Ou944
AgD9urjG
  "],
 CellLabel->"Out[53]=",ExpressionUUID->"b561de9a-1448-4835-a705-9a9b8cac57ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Hamnup", "[", 
    RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{
    RowBox[{"Hamn", "[", 
     RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7467896382482414`*^9, 3.746789659116749*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"117ae52b-058f-472e-9453-ca7c7b343dff"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuJ9j9W/t7K8cex6u0+xDUifkxXWaAfSX+eL2vEJv3Fk
rJzNyw+kd79f0wCiI39OXgGim2a/lazsfuNowH71FYh2mRP+ZVrPG8f+/Lrm
5UA6hNMi+UjfG0ejy7axp4H0yd7fKqHL3zg6vFu4JBFIexl9fJIMpHWsz+U1
AekFRSpP1gDpsrh/xbeAtAsv35ryVW8cbzw0Nuzc9Mbx7u/mj/e3vXHMl2rT
PbnjjeMfa8Mf54B0m8kizStAuvbLr6cqO984ft6511oXSC9s+vJND0gvmLVq
eSmQtjmeqFYFpA0aFI5XA+kpKs/0a4B0ibFscQOQzmpV2b8eSG9orBI8A6Rz
FH6WgOhLOZZLzwHpMPePzTeA9JvpJ+aA6Fc7/zx6B6Stfu5//hVI5/ZN2+60
640jAAx/u0s=
  "],
 CellLabel->"Out[54]=",ExpressionUUID->"a851a461-9523-4433-970a-5595bbacdbf9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Hamnup", "[", 
    RowBox[{"0", ",", "1", ",", "3"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{
    RowBox[{"Hamn", "[", 
     RowBox[{"0", ",", "1", ",", "3"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7467896382482414`*^9, 3.7467896701092043`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"6b584160-d819-42c3-8960-5efff7d806da"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKpfhrfW1neOLJU7VdsA9KH5wlrtAPptFRxOz7hN45+
FnN5+YG0vuj6BhCtdn3qChD9mPedZGX3G8eQBVdfgeh5CRFfpvW8cQxvrW9e
DqRDOC2Sj/S9cVQNtos9DaR39P5RCV3+xvHHxkVLEoG0UPinJ8lAWnT3+bwm
IM2cqfpkDZDOu/ev+BaQtuHlX1O+6o1jXaKpYeemN44phi0f729749gk1aF7
cgfQvW1GP84B6VqTxZpXgLTZlz9PVXa+cXxkud9aF0gvZPn+TQ9Ir5Fas7wU
SGu5J6tVAWn1BuXj1UDaw+u5fg2QLmiTK24A0jlvVPevB9J/+qsFzwBphZhf
JSA6ZI3V0nNA2iL5S/MNkDkzTs65Abbn76N3IP3JB55/BdJxfdO3O+164wgA
TsayEQ==
  "],
 CellLabel->"Out[55]=",ExpressionUUID->"0f4e0b87-0dc0-4cbf-98b4-0bb08afe3523"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Hamnup", "[", 
    RowBox[{"3", ",", "1", ",", "2"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"Hamn", "[", 
    RowBox[{"3", ",", "1", ",", "2"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7467896382482414`*^9, 3.74678968083384*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"85df3ca9-2a70-49f6-a5c0-2d11a352396a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmK2yxrfW1neOBrd26/YBqS/vBHWaAfSmzaK2/EJv3E0
+TqXlx9Iu4etbwDRnz2mrQDR/5jeS1Z2v3H8GXHtFYiOFon8Mq3njaPP4obm
5SBazTL5SN8bR5UZ9rGngfQy3n8qocvfOM5+umhJIpDO7v30JBlIK+2+kNcE
pF/lqT1ZA6ST7v0vvgWkJXkF1pSveuNYkmhm2LnpjeO8qtaP97cB5aW6dE/u
ALprt9GPc0A63mSJ5hUgzfrl31OVnW8cL1gesNYF0lvcvn/TA9IZUmuXlwJp
D/dUtSogLcegdrwaSM96+Fy/Bkgn7JUrbgDSK1XU9q8H0i3HqwXPAGnXeb9K
QPTrT1ZLzwHpByu/NN8A0i5nTs4B0Xd2/n30Dkgz3Tvw/CuQ9uSbud1p1xtH
AE24uKo=
  "],
 CellLabel->"Out[56]=",ExpressionUUID->"d0eb4c98-98ea-4768-b1e0-064048b28008"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Hamnup", "[", 
      RowBox[{"0", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.559436043031217*^9, 3.559436043136223*^9}, {
   3.559439155236225*^9, 3.5594391563652897`*^9}, {3.7371595585001616`*^9, 
   3.7371595613751593`*^9}, 3.7467878329757724`*^9, 3.7467878909914985`*^9, {
   3.7467883677232*^9, 3.7467883775062885`*^9}, 3.746789436415882*^9, {
   3.746789700548075*^9, 3.7467897007321877`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"b8ec9898-3a03-4f4d-801e-1fb1fa0fd926"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Bmn", "[", 
           RowBox[{"0", ",", "1"}], "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "2"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"1", ",", "2"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Bmn", "[", 
           RowBox[{"0", ",", "1"}], "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "3"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"3", ",", "1"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {"0", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "1"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "2"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"1", ",", "2"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Bmn", "[", 
           RowBox[{"0", ",", "2"}], "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "3"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"2", ",", "3"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {"0", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "1"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "3"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"3", ",", "1"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "2"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"0", ",", "3"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Bmn", "[", 
          RowBox[{"2", ",", "3"}], "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuL6Us3vrSxvHNcuPqDYBqS7nototAPpvCpJOz7hN46O
ofN5+YG0w6yNDSD6kMiMFSC6OuuDZGX3G8cHQddfgWh/y6gv03reOPZxNDUv
B9Imy6ySj/S9ceyWcIw9DaQLjv9XCV3+xlHDfPGSRCDdtenzk2Qg/XzXpbwm
IC1wTP3JGiAdcI+h5BaQFuMVXFO+6o1jxENzw85NbxwTzrd+vL/tjSOLVK/u
yR1vHH8Lmfw4B6TtTZZpXgHSiiUMz1R2vnE8tvOAtS6QVrn285sekPaRWr+8
FEgneqWrVQHpN/81jlcD6S3rXurXAGkjEfniBiDtOFt9/3og/VSyVvAMkJbx
+VMConVCbZaeA9LPhH803wDS4nyn5oDoUzv/PXoHpJcsPvj8K5DOPTNru9Ou
N44ASZWz+w==
  "],
 CellLabel->
  "Out[57]//MatrixForm=",ExpressionUUID->"a49f6fdd-af62-4ffc-8726-\
ad184e79e4d5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Check UD[Field_,\[CapitalStigma][\[Mu]]] := ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[PartialD]", "\[Mu]"], "Field"}], TraditionalForm]], 
  "None",ExpressionUUID->"f54d67dd-bd86-4c0e-a744-2f0caf6ddabc"],
 "   ,   Lap[Field_] := ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], "Field", " "}]}], 
   TraditionalForm]], "None",ExpressionUUID->
  "8f03f04b-a846-4264-ab44-8b5c5dbbe8b9"],
 "defined in SpaceTime2.nb. Doesn\[CloseCurlyQuote]t matter in which order \
these are taken when strung together."
}], "Subsection",
 CellChangeTimes->{{3.55718713999227*^9, 3.557187201431784*^9}, {
  3.5571879488795357`*^9, 3.5571879957402163`*^9}, {3.7113858177912416`*^9, 
  3.711385874307474*^9}, {3.7371600993718157`*^9, 3.7371601203114777`*^9}, {
  3.7371602125397243`*^9, 
  3.7371602221970606`*^9}},ExpressionUUID->"98e87774-272f-42ac-b4fa-\
5d65db3bb1ba"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"UD", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Am", "[", "0", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", 
   RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.737160138359976*^9, 3.7371601545178967`*^9}, {
  3.738581109224609*^9, 3.7385811123787894`*^9}, {3.746789722980807*^9, 
  3.7467897256169558`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"ffdd2876-f36c-440f-b110-9897c02218bf"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "0", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwBuIJNv09Zp9fO6YIPjrcCaT5/4pz3gLSXFVHMu4CaW7J
3Bf3gLTxtsDkm19eO6ZFZkfdAdJTZ1//8ABIP/ONDP0DpOcv3rT5L5Ce9NOr
R+3ra8f794s3BwDpzWJTjwUC6arVn9WCgXTdMwubVCB9b/HWFyC6pPrzISah
N45OK5x26wFp1l8sxazCbxy9Hkra8QFpe76NziA68Nt8Xn4gneGxpQFEh26Y
sQJEH0j/KFnZ/cbx0tfrr0D0Ht7oL9N63jjOcG9uXg6kf52zTj7S98aRY4Zj
7GkgHXGcQTV0+RtHT5YlSxKBtMrrz0+SgTTDt8t5TUA67LDGkzVA+sxsxpJb
QPpTj9Ca8lVvHBsSLQ07N71xVJJs/3h/2xtHPrZ+3ZM7gO7xMflxDkgbmCzX
vAKkeb4wPlPZ+cZxg+Uha10gXcf/65sekPaR2rC8FEj/6sxUqwLSp/9rHa8G
0r77XuvXAGkLH4XiBiAdfVd9/3ogvSm0VvAMkN7T9acERK9aabP0HJBekfij
+QaQtnc/NQdE79n5/9E7IL1k8cHnX4H0lM+ztzvteuMIAOs4Byw=
  "],
 CellLabel->"Out[58]=",ExpressionUUID->"b1f9ad1d-7864-4750-9502-3226516210a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Am", "[", "1", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.737160176567008*^9, 3.737160189584123*^9}, {
  3.7385811204712524`*^9, 3.738581123297414*^9}, {3.7467897328828726`*^9, 
  3.7467897337698545`*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"6d9b3fa3-8a68-4114-9b64-974c14f9bdec"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"3", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwVyW8o3HEAx/FDRDrMPXE8IVyuHKkhd0e+ZCkemAt1I9lNY8XUHcfRkj/p
+LWckFAInbjS3HBsS7F2GV1TNj+3DeVC7kv+3K01jM/vwbvXg3fE89f55R48
Hk+GiqW9TNK1k2TNONb0cN0g9LPD6TBrxW8oZ2tO9uCrOoVq1+Ukdz7Vyl/w
R6r94gA+5isLbuHPSLP5DhoachiR20nYUo05D/bU9H15CpP4LpECxmpl8nLo
w7eccH70da16BlOSLsz8EAfbB7zV3gJKzgfC0gKg7mY+k3NOOcYPhHktC82c
VYWDU5xDQdfChi5KcmfZU86trWeufoYSS1VbqxGe2eSqz2/xQzJKNmC21SO6
wEjJCzIxUQaLfN0OFazv+V7dAq++iR0m+HXIU2OHi4zApJ2mRFsmTdDPUfJJ
0XG5v0DJbo5Bsm6hRDqS+NcGY94bxdvQpvY6ilqiZDRlTSaB25bbP3EwcvCd
sRb+01eKdNB0L7E2QnbnLL4J5naGq5vhy2TxyizUdb95tAll/v81nGQpddIG
nzA3rSwMTd8Y5jSn8A7PYd/46rEbCvSjixnLlDwAMWEEiQ==
  "],
 CellLabel->"Out[59]=",ExpressionUUID->"be6febd9-8e3a-4fe4-8149-19b0812f904b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UD", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Lap", "[", 
      RowBox[{
       RowBox[{"Am", "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
     RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", 
   RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7371601998043656`*^9, 3.7371602524808755`*^9}, {
  3.738581193616436*^9, 3.7385811970866346`*^9}, {3.7467897440251675`*^9, 
  3.7467897465008492`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"ac87510e-9e32-4f96-8bce-d323bcd068c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Am", "[", "2", "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Am", "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwBuKcBdN6zD6/dpS58OxwJ5D+90ma8xaQtrp4MuMukJad
UPLiHpDesTg0+eaX144GKwui7gDpFU/vfHgApPOmRoX+AdKTFm/e/BdIG/30
7lH7+trxwv2SzQFAuuT31GOBQFo+/YtaMJDmmGRrkwqki5bsfAGiBWy/H2IS
euP4rMF1tx6QnubDXcwq/Mbx31NpOz4gXe2zzRlEh/xZyMsPpHkEtjeA6HkM
s1eA6CS1L5KV3W8cp2TffAWihebFfJnW88bx1rXW5uVA+omfbfKRvjeOH8Sd
Y08DaQZmZtXQ5W8c3ViXLkkE0ikOX58kA+m0SdfzmoD0nmdaT9YA6Z2zmUtu
Aek7PCJryle9cZR+aG3YuemN4595HR/vb3vjaDN1su7JHW8ca26Y/jgHpFW2
rNC8AqSv6bM+U9n5xrFr5xFrXSBtzvP3mx6QZp21eXkpkFbrylarAtJ19QbH
q4F0k9sH/Rogfea8YnEDkJaq0Ny/HkgbXqgTPAOkz/r8KwHRpzjslp4D0hFX
fzffANI5ZafngOilloyP3wHpPuXDz78Cab+ARduddr1xBAArgAXl
  "],
 CellLabel->"Out[60]=",ExpressionUUID->"229c37e9-7f5a-4f9d-8faf-ddacbd361855"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{"Lap", "[", 
   RowBox[{"A", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]], "Input",\

 CellChangeTimes->{{3.557187324200806*^9, 3.557187338928649*^9}, {
   3.5571873944078217`*^9, 3.557187453704213*^9}, 3.5571875139576597`*^9, {
   3.709575091516453*^9, 3.7095750917194643`*^9}, {3.7371602900941324`*^9, 
   3.737160292891345*^9}, {3.7385812011868687`*^9, 3.738581204834078*^9}, {
   3.746789751551484*^9, 3.746789753698559*^9}, {3.751392341884214*^9, 
   3.7513923709256973`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"43b758c6-bc68-4721-ad5e-962d85ac7d6c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["A", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "4"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "2", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["A", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "4", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2", ",", "2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["A", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "4", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["A", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.751392356791687*^9, 3.751392371430683*^9}, 
   3.751562783281386*^9, 3.751727176936573*^9, 3.751734086389303*^9, 
   3.751737155755669*^9, 3.752250138763405*^9, 3.7522562116043577`*^9, 
   3.752265606986741*^9, 3.752321706844948*^9, 3.7523245096449947`*^9, 
   3.7524081623898335`*^9, 3.7524944916679425`*^9, 3.752496692703904*^9, 
   3.7524995116515446`*^9, 3.752536545990345*^9, 3.7525379258664827`*^9, 
   3.767539223745557*^9, 3.767629274184104*^9, 3.768069016362598*^9, 
   3.768087024928109*^9, 3.768087069788151*^9, 3.768088685108426*^9, 
   3.768089605780403*^9, 3.768089924895112*^9, 3.831220431670577*^9, 
   3.831222102818318*^9, 3.8318058589232187`*^9, 3.8318397722230196`*^9, 
   3.8329474819471235`*^9, 3.832961770112334*^9, 3.845826856140973*^9, 
   3.845852453165285*^9, 3.845857063671343*^9, 3.8459196067834864`*^9, 
   3.846006561379002*^9, 3.846099872144003*^9, 3.8474704326775637`*^9, 
   3.8517006179180956`*^9, 3.853975436277265*^9, 3.854977388674472*^9, 
   3.854989249690947*^9, 3.854999885287624*^9, 3.8551652322089167`*^9, 
   3.8551823021788907`*^9, 3.855185847986916*^9, 3.8553306216594605`*^9, 
   3.855339827423069*^9, 3.8553431616079273`*^9, 3.855343999550887*^9, 
   3.855352729064762*^9, 3.8554495933385468`*^9, 3.855507595995633*^9, 
   3.8555083919921837`*^9, 3.855512873977461*^9, 3.855533088194131*^9, 
   3.855533286445142*^9, 3.8555789040539083`*^9, 3.8555932781137195`*^9, 
   3.8557505891191683`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"fb03e635-e760-499a-bb98-d7189bcaec06"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5571886193348837`*^9, 3.5571886544198904`*^9}, {
  3.7036111242894974`*^9, 3.703611128972766*^9}, {3.7036111919493675`*^9, 
  3.703611211587491*^9}, {3.709575109461479*^9, 3.709575110109516*^9}, {
  3.7371603078616962`*^9, 3.737160308893036*^9}, {3.7385812731839867`*^9, 
  3.738581273517006*^9}, {3.746789759029718*^9, 3.746789763216857*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"8da9bcb5-4f5c-4ed0-be3b-60bc976562b7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwBuLU7jk9Zp9fOwYKvT7cCaTbtBU4bwHptcrnM+4CaQf2
zS/uAekHlVHJN7+8dhRiLIu6A6TnqT768ABI+6+LDv0DpI8pb938F0hX/PTp
Ufv62vHM/dLNAUBajHP6sUAg3WL8VS0YSIfccLRJBdJxV/e+ANEhPL8PMQm9
cfxj5rFbD0gvqBcsZhV+49j0V9aOD0j/vbPTGURvlVjCyw+kowN2NoDocz/n
rADRtbO/SVZ2v3HMeHzrFYjOi4/7Mq3njWOqZ0fzciB9zM8++UjfG8cdk1xi
TwPp2WtZVUOXv3FMYV+2JBFIC235+iQZSFtNupXXBBI3132yBkjvk2ItuQWk
XWeKrSlf9cZR96GdYeemN46PtLo+3t/2xjFJZrruyR1vHNeEmf04B6SZTVZp
XgHSMfocz1R2AuUtj1vrAul9F/9/0wPSsyW3Ly8F0ss789WqgPRMU7Pj1UDa
yOizfg2QPhajXNwApFtEtPevB9Km4g2CZ4D0AQmGUhDtMtV+6Tkg3VDN1nID
SPO0npsDomfsZHr8Dkj/eHDk+VcgLRewdLvTrjeOADhUAA8=
  "],
 CellLabel->"Out[62]=",ExpressionUUID->"11afb4b5-629f-4663-882b-cfd73bbe9f86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5571886193348837`*^9, 3.5571886544198904`*^9}, {
   3.7036111242894974`*^9, 3.703611128972766*^9}, {3.7036111919493675`*^9, 
   3.703611211587491*^9}, {3.709575109461479*^9, 3.709575110109516*^9}, {
   3.7371603078616962`*^9, 3.737160308893036*^9}, {3.7385812731839867`*^9, 
   3.738581273517006*^9}, {3.746789759029718*^9, 3.746789776818725*^9}, 
   3.751392380478155*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"417fb4b9-da6b-40f3-ac1d-c5cd311fd1dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.751392356991308*^9, 3.7513923814524603`*^9}, 
   3.7515627834131727`*^9, 3.751727177072069*^9, 3.751734086556137*^9, 
   3.751737157742282*^9, 3.75225013889567*^9, 3.752256211770392*^9, 
   3.752265607200053*^9, 3.7523217068812084`*^9, 3.752324509676236*^9, 
   3.75240816242107*^9, 3.7524944917147703`*^9, 3.7524966927368126`*^9, 
   3.7524995116745214`*^9, 3.7525365461240377`*^9, 3.752537925999613*^9, 
   3.767539223861959*^9, 3.767629274264954*^9, 3.768069016555722*^9, 
   3.768087024992138*^9, 3.768087069893446*^9, 3.7680886851728888`*^9, 
   3.768089605858267*^9, 3.7680899249620533`*^9, 3.8312204317413864`*^9, 
   3.831222102861247*^9, 3.8318058589740825`*^9, 3.831839772296859*^9, 
   3.8329474820252295`*^9, 3.832961770158501*^9, 3.845826856208683*^9, 
   3.8458524531955442`*^9, 3.8458570637133617`*^9, 3.8459196068742533`*^9, 
   3.846006561424979*^9, 3.8460998721970205`*^9, 3.8474704327218647`*^9, 
   3.8517006179962006`*^9, 3.853975436325522*^9, 3.854977388800322*^9, 
   3.85498924973942*^9, 3.854999885365719*^9, 3.8551652323182974`*^9, 
   3.855182302256997*^9, 3.855185848073226*^9, 3.855330621768771*^9, 
   3.8553398275480633`*^9, 3.855343161772145*^9, 3.855343999635749*^9, 
   3.855352729112442*^9, 3.855449593388056*^9, 3.855507596041173*^9, 
   3.855508392041691*^9, 3.8555128740229063`*^9, 3.8555330882996902`*^9, 
   3.855533286485516*^9, 3.855578904100772*^9, 3.855593278152462*^9, 
   3.8557505892128997`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"08922bcb-309d-44f4-8b52-69956c024853"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]hup", "[", "2", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5571886193348837`*^9, 3.5571886544198904`*^9}, {
  3.7036111242894974`*^9, 3.703611128972766*^9}, {3.7036111919493675`*^9, 
  3.703611211587491*^9}, {3.709575109461479*^9, 3.709575110109516*^9}, {
  3.7371603078616962`*^9, 3.737160308893036*^9}, {3.7385812731839867`*^9, 
  3.738581273517006*^9}, {3.746789759029718*^9, 3.746789776818725*^9}, {
  3.751392380478155*^9, 3.75139239001615*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"7b711a68-2e1a-4a6f-a290-56ae7e78b4e2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.751392356991308*^9, 3.751392391024762*^9}, 
   3.751562783477375*^9, 3.751727177133175*^9, 3.751734086636606*^9, 
   3.7517371578572702`*^9, 3.752250138958304*^9, 3.752256211850604*^9, 
   3.752265607364126*^9, 3.7523217068812084`*^9, 3.752324509691885*^9, 
   3.752408162443077*^9, 3.7524944917147703`*^9, 3.752496692746786*^9, 
   3.752499511684499*^9, 3.7525365461883707`*^9, 3.752537926066264*^9, 
   3.7675392239611797`*^9, 3.767629274335218*^9, 3.768069016567442*^9, 
   3.76808702500086*^9, 3.768087069903687*^9, 3.7680886851910963`*^9, 
   3.7680896058667107`*^9, 3.768089924970495*^9, 3.8312204317752967`*^9, 
   3.831222102884186*^9, 3.831805859000013*^9, 3.8318397723377485`*^9, 
   3.832947485353904*^9, 3.8329617701740837`*^9, 3.8458268562555537`*^9, 
   3.8458524532191277`*^9, 3.845857063720786*^9, 3.8459196069055195`*^9, 
   3.846006561460991*^9, 3.846099872214157*^9, 3.847470432753607*^9, 
   3.851700618058685*^9, 3.853975436365924*^9, 3.8549773888628354`*^9, 
   3.85498924974615*^9, 3.8549998853969316`*^9, 3.855165232365156*^9, 
   3.8551823023038616`*^9, 3.855185848080093*^9, 3.8553306218000083`*^9, 
   3.8553398275949125`*^9, 3.8553431618502765`*^9, 3.855343999666986*^9, 
   3.855352729155365*^9, 3.855449593395472*^9, 3.855507596048112*^9, 
   3.855508392053097*^9, 3.855512874031416*^9, 3.8555330883102283`*^9, 
   3.855533286492465*^9, 3.855578904116392*^9, 3.855593278168089*^9, 
   3.855750589244137*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"0063cbf6-30be-485a-9d01-bdc2b808c4b2"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Transformation Laws", "Chapter",
 CellChangeTimes->{{3.768087110629075*^9, 
  3.768087112725606*^9}},ExpressionUUID->"79f74560-629f-4e38-96c3-\
715671f854fe"],

Cell[CellGroupData[{

Cell["\<\
4D, N=2 Vector transformation laws
Untilded, unhatted transformation laws Dia[1][ii][aa]\
\>", "Section",
 CellChangeTimes->{{3.4398675903125*^9, 3.439867599875*^9}, {
   3.440896666046875*^9, 3.44089674728125*^9}, {3.442439583875*^9, 
   3.44243963178125*^9}, {3.5367192257037*^9, 3.5367192280398335`*^9}, {
   3.536753484160329*^9, 3.536753546275882*^9}, {3.536757704238902*^9, 
   3.536757710183242*^9}, {3.5451474996309147`*^9, 3.5451475298776445`*^9}, {
   3.551718991736784*^9, 3.551719000776301*^9}, 3.551725337994161*^9, {
   3.5594360745480194`*^9, 3.5594361236078253`*^9}, {3.7113930771124516`*^9, 
   3.71139309981975*^9}, {3.711903460319059*^9, 3.711903497730199*^9}, 
   3.7371603760407314`*^9, {3.746790752680829*^9, 3.746790754295445*^9}, {
   3.746806144100352*^9, 3.746806152348056*^9}, {3.7468067803438563`*^9, 
   3.7468068142905307`*^9}, {3.746807309900429*^9, 3.7468073302533493`*^9}, 
   3.746807393818512*^9, 3.7468306727418213`*^9, {3.7468323326640205`*^9, 
   3.746832334944021*^9}, {3.746842594974427*^9, 3.746842595295275*^9}, {
   3.751395133465472*^9, 
   3.751395135090357*^9}},ExpressionUUID->"5a37422c-9958-4134-8fc9-\
4e234f8c2e51"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3W9MG2eeB3Dv3Zt7MS/OL3mBxMmy5BdIUYQsLShawQuiREgQbYUQycmC
qDlAd62T5gLbVYAqgdwLV9ca7dbsXbx3tXKq2zvrrnGreLu4Le4Ko8XZOgpW
5JQQ4QQnkBCCjGXAznBgxvgZDx577BnPDHw/0lbdNDbDzDy/+c3ze/783Xnz
L//hrzQazeW/2fnHL7sHmt57r/v9t/525/+0v3u5r+fdC2+ffvefL/RceO/n
5/965w9/tfO/3/9Mo9n9920AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgEPuTSJ671v3177wSlLuQwEAEEPq
lf+jVh2l2UG9ZZtdl/t4AA4BZAtye/PQcaZGw9CZXBG5DwhA7ZAtKEDqvu2E
lgls2j7X4pbcBwSgcsgWFGEj6v2wo05X1z50K/AcmTNAuZAtAMAhhGwBAAAA
AAAAAAAAAABAIejkathrH77QUkdRda3v3Pj027kYLfdBAQCULhULuwaaavQd
I59NTM18f7PXQGk01c2W6TV1BLdY+DOzkdJQJ8dnN9VxxHAEHN5sgU6sPouK
5kVMojEw9PJ3w02GpqFvosm98/7aP3JCPXNA6K25W53MEMgeVxQDhY48OpVM
lR1Byv0StWcLvJIBi04jNn1je7d58CO767tgZE2EZkwvei7VaztvzW3tn/FY
wNKY/llVJ+0P3pT/IyRFR9x9dZmT02gJxOQ+IJCbOO2urKekyrOFQiSJbKSq
uvZfj391N5ooOfzQ8cCH9dRZezhO/NljZ0dN+vup49ZgSoQTIZ3UiveqIXtC
Toz4X8t9SCA32SOb2rOFgrJvo0/nQ38J+CdcNwfb9RTnHOpah5yTwXCE7110
PhSY8Xu/dNhuXGk35nwFZXz74zsPVpPC01z6qbu3VtvrXiI+Si+5e5mXu2Nm
z3MRz4fo6LWp0XoteSYx0RhyeoEi4XuBwJT3tsN6sfWggFdlNF27+fkd30wg
EJonWtzLWAkNKv3jVZ4tlCa15rtWm3Nqa0b9G4LOYTIWCf7BPtCio1gXqGfc
F1kX9EXpIFbX731BfvmS28wEC63ZvaTkbqvYrK2DHeQPxQMRJEKvBsfa2TcM
ZbjoXiwxguX7KerOFkq34jFrWSdX0+GMlHJq6eTqgzuWc3ryq/TdY1OLRQej
1IrnslZ72bNCPEPoeWcn82TLuToKQxYOiKTNElByLAZ5cd5TxU/yVZ4tlIHb
CWByRUv/uo3o1G9N5BsudXrQ/bDI4jK9Gv4hEEkQf/ImbD/JfFFtr/upggMb
WTggfvse97LchwaKRUecHaz7RfSOWVVnC+URObJtZ+rL1WRwG5p4UtKDIRa0
tjBfUnWFdXWUhSkcUDpdTU5oKzEBhqMh6jKxbhfxi+kqzhbKJH5k294NbrP/
2cXO3IYnnwk+h/E/WzId8lX93rVyj0oqTOGAOmP1fz2SE9rwOgo8pI9sHGrJ
FsomSWTb3l1l3XfdSH6tvs/5KF74c1l03H8jU93I6ShQlL3CAWUYmFgh1yll
bp73vWuoIUAelY9sKskWRCBVZNuJTCszljay9EO1/m42UXzi9tI3eIL5ZO0N
f1yZWXOmcKC/5I5ubW9HXKacs4lpCIdaPGjv6zIRuswffOL8YT5WXC5UcmSj
49HA/9mGzKyfber6R8fsJv/H1JEtiEG6yLZzHl99P2Qkcxh9pyNc7Hrra97+
KiYi1o5MCcr2KocpHOz/Xiu+wXr22WyzhRR67CCCN099v/mVqVHPvugaqun6
RHSj8MdLi2z0M9+Nt3LHwu1OBf3gd76nvG8IqsgWRCJlZNve3lp09bFez4rd
S4IoTGtarEHictNr89OBYp+J0soUDrK56P7QbuFPYVCv5Er49nBTztC05rFg
wdBRSmRLLnkGDOwfpe/4V+9CEWNHVZEtiEXayLZzMicHDeQl19aPThWehJse
Xsh8omEsSKyYkR6fo4hZS5kZBydH/SuZ40tGXT3ss4lpCEdEYsFlZqduuk7n
fIE7vYTItvmjtYHdl2u44l4sIj9UR7YgHqkj2/aqf6SR/YQ571zg7QzYOdML
zk4mHNaccTwkEuz01ckZnyMPonCQvX3Tw4dYv211m+OnQ530QwbROc84aQ/z
l48ERzZ6I2A5xvpITZs9VFQPjxqyBTFJHtnITss9Vc22+7zXgogPOWGQXnB1
1xoGJ+Wu6eQUDrK4pxPjPo4MYkAF45xjnjebEhzZEmF7u9A8YY8asgVRSR7Z
yLf7jAK9l0RvVZuDSOjpeHCsmTplCcj9cMktHBD/Zd7Rxv5dtWbPijxHCRX2
Zs37PvtOL1R/FBzZnnvM7JStYFrIUH62ILYKRLbswgLZKzjiX83/geyDiZXw
bIUdnQb2258suIUDQu69KsH5BKUihvfvqelwPua7W4VGtjcP7CdZsbPoMWmK
zxZEV4HItr/MXZa2wfpj/hya3gyONezdGSN+JptPPpkYOq1tGp1clvnd7qDC
AQGvo0cZ57lW4OILjWzcKfTF3lwKzxYkUInIxq0YFsqi90f56t+2TUz7J/5r
pOMY1XjFGXot9xU4sHBA4E5DqB72CVvMCVRr3TdYzbr4Ike23JV5il8mS9HZ
giQqEdnoDf9oTU5ko95xL/P2WNJr899+OmLubNRV17VcGBz3hF4VO8hXMnkL
BwRMQzjChOZUQiNb7t8XMqZIudmCNCoR2bZTIVvO66gqh7DmLxwQuNMQ2u3h
RN6/DoeJkiPbtjKzBclUJLId0K+uviGsvIWDLExDOMI4ralAZbzCke1IkS2y
aU/Y7qtoAE2BwkEWt1PR0ONerNRhgqyEtiaBkY2zUuVhn9VeDtkim7pqhpnC
waU7hdYg5Q5qKlT6V5z1R56bFqW46Xmkom3jOL2sokY2TmPF60B+lYlsB21M
pp7IlikcaHucC4V7zFQ/7kPy3RuFUdXZe+HtZy8az781lLDIRq/7html125n
5PB2lJUJka0gpnBQ7AQ9ziuD2pb4o5/cufQL7maN8qB+cenOE/VkvPGQjT0H
hX/Mj7DIthVxdgv48iOuMpFtw5+7jLZqIhuzOHBRi9LsWXb3UNKfUlAibl8E
79RRYZGNM+Idu2zwQD8bv/hda/POG0DTkG+52JuIe0oP6W61wEVMPN/D28kv
KLLRPznayJdRldXgKk22yKaKXYbjYfvZ4goHBM7kPpUEcRBD7tXnnUgoKLLl
TkDgn3x95MkW2ZS/OTWdXPi8q+jCAQHTEI4yzkJDPBMJBUQ2znvuoV/uu0wV
iWwHFRAUv0EAvei5VL+7CPDIHxeigoTd/Ub2L1tonS44ROhFVzcruco/CUVA
ZMupumrrLX9WdvuRWyUiG7dbVfnb1XF2FSwLxh0dJfSSd6CBjEJ5X0iLjmy5
0bLoBSePrkpEto15x7mcpk51uaJKTqWZwoFYlP/qDSLK9GPsM1z1HrhibbGR
bS1oPUPUJbTGoe9fKbn5KEElIht3kngRm1/IiSkc6PtulxR+uTkq5vcdNfE5
B5lkVTdbpg/Y2KioyJYZKF4wTgKpApGNu2SZonPpkgsHWaqfhgDl23ro7D5O
3PNtlhnOjONiIlti1t5BbIpFtYxOvVBwVqAY0ke2A7YG6HYtKvbaMIWDorcE
Oghn1WhN9aBPRbMfQRT02t3xTmLbAsPl/83ZFbRgZEsvDkm8hx7vst+LKbbt
KIrkkW1zwXmePSS/YcArYHRYZQmfcXAgTEOANDp2z95FZG76C/bgy2z2zhvZ
6NgD18Cp7H1Eneh1IKwVTerItnXf1szqcyq0vpmsmMJBwaWKCuGe1WL3GFIC
rPUhJjrx2Gs5l32fpJovOqajifTdkC+y0fHo9K2BluxW8JTxn+wzz9GhIYC0
kY2OBz5kFw+UnLBlZhyUv+FF7kQYVXW0Ya0P8W29mr1t6WrYT8AoY9d1u9s/
+Ql7UG/DoPtuwPPpdVP2b2p0p8y2P4ZXsaaHQJJGtuScs8tAfDWl73UtJJUZ
2DKFA8OAZ6n8lrTo7jGwzmrBfR+UA2t9SGQnEwt8bR/padIVc3ar6tr7rc5J
xLQSSRjZkkueAVbz1ptdpVYbJccUDgxdzjkxMgTumuFYSgsYdGLl8eyfPJ/b
rYMm9mpuuhbzqNX+hcf348MXiu2yUQmpIttOCuTq1ZPPpvqL7gWlvlZkCgdt
9vCWKDcUd3AypiEAh+A94qFo0kQ2em3awhrDX9M6FlBsWYc5WuqMNSjWCpHc
3RCwZD1wILJJR/zIRieXp8fJSremumnom6hCu9f292EUo3BA4O7PhmkIkAuR
TToiR7ZULOwaaCKzNUPr6IRyw9r2xqL7SrozsMUaFPOmSgWtx1mnlcLyk5AL
kU06ucvZlb4EMR2b837SZyS71qjmi877in0J3abXFzzXmpgDFnkJNe5uCDUj
fqxkBCQk9pJJrfmu1WpyWuCof0NQMErGIsE/2AdaWLVsStf6gWv2pUjBgk6u
zvnd/2Hp72lv1Gt0jR3mUftXweVsKphKCksL6eSr+7dHzxLz8eovecSb8kW/
vj/+9zlPDE3zeEic8gQcDnvjJ1mJvbhdIrxEb1PyoROrz/aWRnw6H/pLwD/h
svW3HDC0Rtc65JwMhOb5FlecDwVm/N4vHbYbV9qNuV+haxu4lRllXb7k88Ct
99PHaWi5+LFzYiowM+ke3znyamPvrdnYViz0xe5ober08OQz/j2OYy8Wd47b
5/ni5vUuzkHvZphm25e+YDjyIiY4IO98N3Napryuf2eNtMyqbjT/m8cfCIb3
VrJcWhXrFIGSZdvdrkj4XmDnJrntsF5sPWhAdJXRdO3m53d8MwF2E3wZEzHO
iNamlEHyseWUrqnP8j9Tj0QbW0gnoz+MmdL9VfrusalFIuCkYnP/bTZUGa/+
9uMO5rfinXWeeuX9tZ7v4MnfQ+io2kTY3iF8aCt63o4GcdqdWL0lIrYpxZAk
slXVtZjMgx/ZXd7Aw2VRBxfuXIJvhvaKEfoL9tnXnO9OrXivEiOBq9scP+X/
+QIiG1X/L1PC1vtdD1pPCT91tWedc0jaDj8FRTZx2xSUgl7+bpipsebvAdv8
0dqw35vVbAmoab9igApDm5JfdtU+/h3xiL1ltZc9WGgUIB+0KfkRKy1TZ+3h
/Fv00AuurswrZptDyeuPA8gKbUp+9MrEgIHpjy+w+u66b5AZFIz9sgHyQptS
AHKQT22v+ynPRUiFbJm8uX7Qt1K5YwRQE7QpBYhPjdRmLkKBjWCI9TTQIQCQ
D9qU/Oi4/0Z2TkSBFbaJXbPVtBY3QCWhTSlBPGTb3+eKOmaZ4ZtouTFjOcY8
iTAlEyAPtCklIBfZLrCgGbHzHXZgB8gHbUoBWHsun3PM8zw0klFXL1XU3wQ4
wtCmlICch1I97FvnqeEQHQKs6Zd0cvnBdGhZqcuSA1QW2pQS7C7XmHlo8Hdg
Ek+iqn4vMQNkxTdYT/W4l6U/WAAVQJtShIjLlHnA8C7tS6zrWNPhfJx9Du1e
nZqT9geo6gCkoU0pAVHH4bkK9GpwrD3zHDplDWbXWUl3gYq87jeAmqFNKQG9
GRxrYIozlsDBS/tuRCeuN+2vhsZaS21zwXmeahgLbmK2G8AetClloCPuvr1u
zAMfE3uXoOa0qcPI7RTdum9rNrTZQ9ixGCALbUoR6OSi++Lu7F1K3+18RGwc
QCcWfLY+I3W8a3x6OR6yt9Wwy9OJBZdZb7jqxZQQABa0KYXY39qP0neMfDYx
tbtlw81rJmMVZeyz+RbSK/fSifCtLn36Ypmsd/x/8ty81Kg9PTTxBLVpAA60
KaWgE08DX9lHzJ2NOiqzsc5d9q4xdPJVyDM+dKGljqLqWt+54fAv4hIA5IM2
BQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh9L/A8Bo9zw=

    "], {{0, 120}, {414, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{188.44374999999985`, Automatic},
  ImageSizeRaw->{414, 120},
  PlotRange->{{0, 414}, {0, 
   120}}]], "Input",ExpressionUUID->"3f07afb7-8739-46e1-b40c-b773f5fb36d7"]], \
"Subsection",
 CellChangeTimes->{{3.4409027728125*^9, 3.44090277759375*^9}, {
   3.440902810171875*^9, 3.440902916953125*^9}, {3.44244004875*^9, 
   3.44244009975*^9}, {3.4429691378125*^9, 3.442969168609375*^9}, {
   3.443708024953125*^9, 3.44370804159375*^9}, {3.536754825460047*^9, 
   3.5367550087245293`*^9}, {3.5451486439623666`*^9, 
   3.5451486519678245`*^9}, {3.548688769506838*^9, 3.5486888065069537`*^9}, {
   3.548688855820774*^9, 3.5486888860005007`*^9}, {3.5507857157431355`*^9, 
   3.55078577649561*^9}, {3.5507950978337603`*^9, 3.550795109476426*^9}, 
   3.559436218390247*^9, {3.5594988398383384`*^9, 3.5594988412624197`*^9}, {
   3.656720940415642*^9, 3.6567209412857*^9}, {3.6750032306542063`*^9, 
   3.675003231207218*^9}, {3.711717036931768*^9, 3.711717043384137*^9}, {
   3.7117170774990883`*^9, 3.7117170802582464`*^9}, {3.711717111392027*^9, 
   3.7117171461800165`*^9}, {3.7117174710806*^9, 3.711717471329614*^9}, {
   3.711854506059084*^9, 3.7118545120154247`*^9}, {3.711903325602353*^9, 
   3.711903326224389*^9}, {3.71209560910502*^9, 3.71209560910602*^9}, {
   3.737289925753502*^9, 3.73728992712158*^9}, {3.737807642399249*^9, 
   3.737807643374305*^9}, {3.7385814169802113`*^9, 3.738581418650307*^9}, {
   3.7467907692860627`*^9, 
   3.7467907703835845`*^9}},ExpressionUUID->"fc00eaf6-70c4-4c04-8d33-\
aa6df0600733"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"A", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4409029566875*^9, 3.4409030128125*^9}, {
   3.440903077125*^9, 3.440903094765625*^9}, {3.440903156609375*^9, 
   3.4409031876875*^9}, {3.4409974896316195`*^9, 3.4409974934284945`*^9}, {
   3.4410603871875*^9, 3.441060394875*^9}, {3.441060997*^9, 
   3.441061003453125*^9}, {3.442440106640625*^9, 3.442440142109375*^9}, {
   3.442456105734375*^9, 3.442456108171875*^9}, {3.44245843034375*^9, 
   3.4424584311875*^9}, {3.4425045583125*^9, 3.442504558453125*^9}, {
   3.44250978125*^9, 3.442509781921875*^9}, {3.442511222109375*^9, 
   3.4425112223125*^9}, {3.442671207703125*^9, 3.442671226921875*^9}, {
   3.442716458734375*^9, 3.442716501453125*^9}, {3.4427167659375*^9, 
   3.4427167681875*^9}, {3.4427168285*^9, 3.442716831703125*^9}, 
   3.442963727140625*^9, {3.44296778709375*^9, 3.442967801515625*^9}, 
   3.44296786928125*^9, 3.44296791190625*^9, {3.44337453471875*^9, 
   3.443374535359375*^9}, 3.443397844734375*^9, {3.443708071921875*^9, 
   3.44370808871875*^9}, {3.506778268335153*^9, 3.5067782693842134`*^9}, {
   3.5067791460963583`*^9, 3.506779148675506*^9}, {3.5206470793953767`*^9, 
   3.520647081443494*^9}, {3.5367550519530015`*^9, 3.536755388956277*^9}, {
   3.5367556803421416`*^9, 3.536755681403202*^9}, {3.5367561000631485`*^9, 
   3.5367561435796375`*^9}, {3.5367565949394536`*^9, 
   3.5367565968755646`*^9}, {3.5451486580581727`*^9, 3.545148738990802*^9}, {
   3.5451488141070986`*^9, 3.545148888144333*^9}, {3.5486889386755133`*^9, 
   3.5486889809849334`*^9}, {3.5507951332147837`*^9, 
   3.5507951401591806`*^9}, {3.5517190796328115`*^9, 
   3.5517190822599616`*^9}, {3.5517253676208563`*^9, 
   3.5517253699409885`*^9}, {3.552315908057837*^9, 3.5523159098339386`*^9}, {
   3.5594367136555743`*^9, 3.5594368087460136`*^9}, {3.5594988442295895`*^9, 
   3.559498845916686*^9}, {3.656720957837866*^9, 3.6567209581638837`*^9}, {
   3.675003233844677*^9, 3.6750032345775423`*^9}, {3.7117171399576607`*^9, 
   3.71171716127888*^9}, {3.7117174931208606`*^9, 3.7117174939219065`*^9}, {
   3.711854517913762*^9, 3.7118545309225063`*^9}, {3.711903330225618*^9, 
   3.711903330575638*^9}, 3.7120956100350733`*^9, {3.73716040537171*^9, 
   3.7371604164821353`*^9}, {3.7371604653306093`*^9, 
   3.7371604863951163`*^9}, {3.7371658278287888`*^9, 3.737165828234808*^9}, {
   3.7372898882003536`*^9, 3.7372899191761255`*^9}, {3.737807817687275*^9, 
   3.737807911420636*^9}, 3.7379793842276382`*^9, {3.738581430790002*^9, 
   3.738581448455012*^9}, {3.746790941763169*^9, 3.7467909620381284`*^9}, {
   3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 
   3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 
   3.7468069922880526`*^9, {3.7468421445030813`*^9, 3.746842146254397*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"898da542-502e-45f3-9fc3-ae94defeddd0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"A", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
  3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 
  3.746807004048191*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"784324e1-d57e-4de8-8e9b-dad0c7f272d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAmIxB71VZp9fO+o9/3i4E0gfKFXnvAWk5eddz7gLpHuU
97+4B6SlnyYm3/zy2tHgcV3UHSAdlPP+wwMgHbA1NvQPkI5R3r75L5A+5eXf
o/b1teOG++WbA4B0+6kZxwKB9NpJ39SCgbS0jqdNKpA2WXvkBYh+V8p0mEno
jaOKju9uPSD9Sk+ymFX4jeO8Lil/PiC9reCdKD+QPhC+rwFEv2BauAJE87j/
kqzsfuPI7HT3FYhWF0j8Mq3njaPRhJ7m5UCaMXhd8pG+N44pQm6xp4G0wCtO
1dDlbxz5SpcvSQTSLL4/niQD6dnb7+U1AeljKgZP1gDpiCiOkltAWilSck35
qjeOKxOcDTs3vXG0Ue/9eH/bG0dFmXm6J3e8cYyMs/xxDkgfM16neQVIF+rz
PlPZ+cZRbudpa10gXZLC+l0PSM+ZuXt5KZA+t7xUrQpIh5naHa8G0puOfNev
AdJOTqrFDUDaQkxv/3ogHXq3UfAMkF7hzlwKos8t8V56DkhnJgq13ADSGYYn
54PovJ0sj98B6S8Pjj7/CqT/+a/e7rTrjSMAk6j57Q==
  "],
 CellLabel->"Out[66]=",ExpressionUUID->"8d04110b-1159-49c2-92c9-662de9603c25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", 
  RowBox[{"A", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
  3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 
  3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"e69ca3ae-2fdf-4f60-87b4-f429c799abc4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuIXAoarzD6/dvwW+/lwJ5DWWKfJeQtIb8m+mXEXSBsl
H3pxD0g3yKYk3/zy2nF1dGPUHSCd5P7pwwMg7WEaF/oHSP/SObX5L5AOv+zf
o/b1taNffMXmACD9XXjmsUAgrfb1m1owkP6Q5W2TCqSnvT32AkQ/EGU+zCT0
xnFRo+9uPSBt0SxZzCr8xnHSdSl/PiAdtPWdKD+QZj1/oAFEf3q1aAWIvhHz
W7Ky+43j39t3X4HoiDuJX6b1vHEUWt/bvBxIMwSvTz7S98bRyMw99jSQZvzK
pRq6/I3js53LlyQC6bzMn0+SgXSF+YO8JiC9y8nwyRogHXCLo+QWkPaKlFpT
vuqNo9RKV8POTW8cw6p7P97f9sbRYM583ZM73jj+2mr14xyQbjZer3kFSGut
53umsvONI5vlWWtdIL1tI+t3PSDdJ7l3eSmI31GuVgWkdbY6HK8G0hoRP/Vr
gPSKLtXiBiDd066/fz2QfvWzSfAMkM6+xlIKohfu9ll6DkjPOCLUcgNI1+Wc
nA+i43eyPn4HpF8nHHv+FUivOb9mu9OuN44AW2MEKA==
  "],
 CellLabel->"Out[67]=",ExpressionUUID->"a71bbaae-1f36-40d1-b8fc-4f7689f30808"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MG3eax627N/diXhwveRGJk2WJF5GiCFk6IrQyL4gSWYKoFbJoK8tE
5Qza60I2V9yuAqkaSNV1tVmjbUx1sW5j5S5Or1Zu41bxdnFb3BVmi7t1FKys
u4EIGtyGBAhyEAST4ZgZ2/Ob8dieGc94frafj7Sr/UPNeJh5nt/z7/v8y+nB
l/7tH3Q63dl/Ovi3l3od7b/8Ze/bL//zwX/p/sXZAfsv+l4/+Yv/6LP3/fJf
T//jwf84dPCvlw9+nvrP+wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFXAXmrpm+BN
v9/ncTkPuDBst1mtPd2nr8afk1pfG4AnL7aTd74IfBZOrKW1vhQAAADprATs
zbp8jnsSL7S+tMoBllw8e+uRS516gnpIiJfd88+0vh4AACTxJDxiNg9dunb7
61hiKZl8kkrzYhwynXqSXE7EIlP+K+9aj4+FN2vPGdDfkWIhdsNhzLi9hjb3
3T2tr6xSgCWXwovvvaeasscjvdW/rPUFAQAgiWW/VS8Q7AhCnHjr9oNdra9Y
TcidyHjWorWOhNe0vp5KAZZcEnt33W0N2fPRgH+lpt8JAKhBxDo+wjjgnlmp
9STYdsLTnTVoZ4Nr9RPwgSWXxE4y9IGlRd/SPXot+lOtvxQAUHuIcHzEMZvz
1vx6HRhDctHXk70bXd7FOmpsAUsOAED9QDs+0xtOp8PebeK4QL3JMjjuCcwu
bNSBy2NYCw5m4p66KvABAADUFbTjs/qTmf+aTj3+MZlM/rixXUfhTgbyWfj8
oYzXN41FNrS+HgAAAEANeI6vnkEKfI1vh2qweRUAAKAykOnkn932tgZ7YFXr
SxFCBce3F3MdPdw5ejORqqpkIbnktxkyVU2bP1l/ES8AAIAS7KXmf28zEDri
5PnpH7E0pWpEfKmE127QEfrO90PJHSU/WFU2Q8ONmXjvuOcexHsAAADSYb3e
6NQPuHbKqZPqJJ/Oe/oOwiei/cJUdfg+cifqPJJJdHY4o5taXw+AFWR6IxHy
nO8ztxBES+cbF69+cT+F5UEWADQl6/V0Lf3+RVy93r6KNT7y8cy4maga35dX
4CO3knc+9zodlK3TNbaYX3e4bkzXjpwXHpac3N74MakYj1Pq/HX2Ugm/o73J
YBm7PjUz99WV/uaD5/pQh3N2s3J3LCcuVCb50kwAoBRkeiUwRL8d7eNfr2P9
oOU7vnTq8XIiFj0gllguy5akF/39LVTJrOPS3Cbe9T5Oge+TpUdz3qEOgjB2
n3P7QzPRuemAe8hEefG2fs9fVss0HeReeq/sZ6KsD8HBktOko07RukGiMZi6
ewdHLnn8X8aWN8t3heTql+fbm9tHP09m/u5PI2Nt9INSGW23F5sz77USCt8j
osX8mn143H1jKvr3x9uQ1wcUgNycdXZQffENlv/6G+5jATnHx4QAo1aTgfuG
GLuHJ25GH8r7HuT6V6PGhoNPMfT7l3A+arIFvgZj31Cf8ZDB4gwuoH7g+er0
e+2U/TFYJmNlBUfKWHu7PynTqGttyRFUcXwojS3dv5r89NukbNtOrgTPtDb0
XLu/m/uTp6JOE/PhFakF760G3lDa73EgWnrOeUKJ+hnXBdSAflOo58kw4FvY
0vpqSkI7vtf+czrotBga9ObhyUAk8cM67ebSqeVY8PKAkXrrmuV2ae5tzl3q
YPyFZ35b8ctXBrTAp6Pi9JHAQv6XPYgKe+klDsQpV6yMIqC2jk97S45eTC7V
+XAx/tcoJYQ+0m3IN/P6zlHfdCyxXCyJtxiPzkVCf/C6L77ZbeR9BGF8/be3
721IPnqRW9EPWolXPAnkRSYf+CxNzKcedcUqkchIpx6j33Hqv8csR3g3iGh/
+/r0d8VvEAWVy5kJ3fK6hi0tBO8W1YMmIcBjJxm5eo56Xwi9+Zw/kZL7OdtL
/kE6ZDL0eBPVcITKSpYRHUPXY+sClmEnOXWBjnQIg+338zJ8H7kWGT9O/4ou
59wallEfUuA7+Jq9voVdwcvcXfb1Mj/UOBSU/024ha3lxJ0oY4uGOoX8YaPR
+u6VG7fDc9FofLHsYg0elrwYe5vhdw/z7kHTeGRH0pelzmx/9DjMeoJzJ+2T
4eVnEj6IfBjoP9zQH3iE/DPko0B/Rt7nyGDwJylXpRh5R6cTzuhTiZ/xYnt5
2m1v43q/ozbPHWjaqRv21md+3Y48AcQp74Kcgy+5u+Drpc+rRJcnIWw8cYNx
fCZHcLngYS/nuXRE81BgRbq9zSY8cS32IQU+nfFCeL3gFbIGRw0Ja3IjNtHN
O4bLu+GFfwWmlpwDKxyXxeJblnMPyPTGvdvOVzm5e0PvhOi4hr4zLcOhx8j/
ln4UyMnaDQYeaRIh5SU/D50PS/HnLOkfpkZPch8501shmGGtDzg7WWj0zqiM
JzrbyyHrAKYVmzHXa6cmvine1UCu+Hszb3vLQECGEdpd8Q/QH3Cow/Utdvlf
pMB3zPXd88I/iJy0Tc6o7LSAmM/PPIjKbgjC1ZJzyU8Fl9V1vJOc+dCKpk+J
kyOB70XENXtrwbMNvBMOImPOOz9UkLXwSCt6exoGg7IXaOUaEliaz4XqZy9J
PZP3ohE9viXJj3T6UdDBVIAMA7dq7cyExkStH0S3pH+97TvuTvp0wcuzYQCl
NJP9bkV38L3YDL3dmLUO9sCK4ldCLvssnCexbSyi4AkKW0vORWHHt5/tYkXM
u7jRWnIj8XV0GS1Mv0h4jmc+4nB/4KE2dwvdIUVxqMv79zKu5OCpeLMRvdu6
xg733Woo0wDlwYv45JWitr5xtjJPYxWFe+LZiru7sjeIFzKIJBf06Rp6/Ss4
GNgMO4veV7NH5+IJTOQnVdrWmvRbOSZI4bgSU0vOQ3nHt4/M1bK+T7qYUirm
Mmedw5tarWskF71dnLvT5Y6Xd5JkMx5Z2txxiPlqn71U/GOHuZlufpa3jwxb
q64U6aTfzp4Ih0NymhrZs8Hx8Qg+XS4/BQezPXIldvA9Dg23ZO+BOuUwlR1f
HlhYcj6qOL59qpQfvmBEP1Zq3zX7AMt9BRSADtvRbyG7wJeD/Lu3i5vt1PX6
liHmA0rBvhFtI+EnWl+NKnCskcwD4c6C9zXmzC23fUgFnoVHMi99qR18nBTT
CVdMhZG3Cjs+LCx5Hmo5PqpNa87ZhfZyEJ0fzYudUCW3Ihez7abykh6KoGSB
Lwty9qvMgwfUAkiSXF79qxrgWCO5PY1IkwwuCeG9uLtNnDUjk35bzmgW2lu0
FfMM2KwItsF3Lvu+XhQ5BiLb8ZFbyej/uUcHOb/bavu5d75wrw4mljwP9Rwf
0mCcRfzY0ZPwSPZJOXwxotVrrnCBjyE70wSODxAPWyKsKlV/8mni5ns2U7O+
fcB5+37J0XKuNZI9PU2102dcRzmjcIqBdIYT/UW/FNrZUnhv0YuH4d+9xVe/
ES9YKs/xkT+GL77MnwGkFDjf+Sj8sPADiYclz0dNx4dWJTI0DPhXRLg+thBG
HB6b0ao9S/kC3wEv7nmO84p83Z4ErmoTABaQz2MTx6rwaXmx4D2Vi1+I076l
Il38FBxrRLwRWJVXD0Lch4hfqj7PYq4TmS9VYngbTTHpe3xFi4HptcSt8+28
kbyOiVhJ5yLH8eXaidlfZbD8JrRUqvCDhyUXQF3Hd/DFp0ea0b9NQ+v4TCmR
UmToQ2d2xZA/Crm5OBsVG9GXiwoFvn2hwUlFPhaoZZ5GnVnLedyTqJp4j/cG
lTSw5LPwebb+XY7AB/uWNZ3yfq/1DcupdZWyrlszY4ez1lLUoFNOwydHKXe5
L8vxPf/OdYxrtprfDKyUjC4xseSCl6ay49vfiIyZOJ9f8gyGZCp0xyZiz9k/
Iz0aqezUSRH4BT4lNibnjzPgVPAF8IS1h6VaIzCDW7Mrme1h1boOODQSlt/Y
gdoQ7Y8KrOMrKlrwYjP8TjaqauryxEVVhZDWEbHfV7Lj46mMir48XCy5EKo7
PrS4mbH0xSfXyCVfT+bUwzut0ecHNWR8BOEX+JSoreQUaJGnbiyyocj1AjUK
+gZV2fZSulWD0Ju67Y6Jm7GSgh3oUbPM9wKdhtM8OcyOaRRzfIhxkKK6hgwL
ZHjVu1g0FpPs+FCVUeb6RCWQcbHkgqju+IQm14pVOZH0CO/2Ug/G4eaR6cq8
+XkFvvJtzt5m5P1W7p1osN3AepEKoD1IzqRQmx+20MZc7NQhkugr/71AhqZF
ZP/UhY2YmsYiBXwSLeycsXuSxA04/TA0pZonJTu+vEZ0UUE0LpZcmAo4PlaX
m73VhY9zSD6cM+lJbsUmOoiK9SfnFfjKtzk5PSXW7fV672NU7wVwBMk8KJFs
rzDMa9s6FFgqFe5tL/nsme+pyK6lnchY9m3TXiYr59MLTK+TqehExjgctXnj
kgJUxMUzNFl8D4p9XamOL68fT1x1BhNLXoAKOL7cCkLE4heWaWXDak5aYDfh
7WludkxVqjlZ6QIf+Xhm3MxTqC4mVg/UCGQ6XVY+B8k8VFmBLwOzDqDh1Ylv
iojVIFpPclSeBFkJ2LNlBe0j5a2E5xV6o4ZQkjC9HHSYMl5PxsYWviMrJX8u
1fHlq1qLklfHxJIXoBKOj6NElKFgsMx2brNpAXqvQUP7+PRqpRyFsgU+8um8
p4/bfAU7iWqa9FoidHXMfjzzbunbrSOeUGJN+uOLZh4Unv8ltx/Fpz++PPrz
zpbced5gsr7l8k3LXJRM7qX3hJ7p9MNp56sGos1++U8Cn3xwr247LcyiJeMb
V2NPFHrJ0cqUEoNI5V7OvMdiyNsBRKbXY9eH6CW6xAmH/54cm8DKwqjj+PiN
6CKNIR6WvBCVcHzkTmS8ief4igzp5CRfDK+7p2aZVbCE6U1f/GnFHIWSBb70
kxjP6xEnR4MPxGrYANUGmbrro0wZoW/vG7189fqVd63GxszfXYRaOxc0W1Kq
aUHCJW4uhi7bjbzSO2o6Xx77VMxSFfQzlwMDLQUTI7nfqD9uH/2d91YoEo1G
I6Fb3ktDZjou058YdAu5Rfmgxa9S2b9KQKZXZydtR6ldpbb3r0/NROemAx5m
FXij0X45tFhqzKsQUiMyqY6P//OipbMxsOQFqYTjQxV7xN3tg9fki6tjgz0m
/aEWc9/IZDC+Xkk1y7wCn8wGJOQ4l/V5+s7xTxfkPuEA9pCpO54D43Zwev/k
bnbVONq3YHHPS1HpQZVdFZr3JFP3/I4T3Ky7IJKSEsx3LNHlzsSY7vFhe7eJ
tjoGU3fv4OiHvlBsOaV8CIAWv8oajlAQKhVwzTn8uvkgyiZazNbB0cs3QneS
ZR2DsXV8+5pb8sJUxPHlZ6HV2rihDPwCXylBdQHI7YdR/0ULuqJC/9Lojb+u
Qg9nDUOuBM+0CkR2SGOztEYLNIulwDwamU5+6bTwpGKL0NLvXxTlkJhWfNyW
S6I5OumvcNWQZ8NLSApX0vFhi2aOD+NKPb/AJ+VS06lkIhLwZLNbNITx9K+v
y62bAFXDbjJwxqAzWDzz/K681YC9pPKwEGjKnbAHVsu7PnL96/F23mYQBoPJ
/DO+DGPm/xn0L5XsMWTCPfw2S6LGrWk8slOjnk+qDZfo+PIW1+KkNS0bzRyf
yNYgDcgr8DWZRzz+Ylz3uJxO5wU6g8NKE+pNVoeLyeJU7xv3bCF4xYkLV4IL
WOSrBCHXphzNhOAKEm7DuQTtZfTtLPd92f3e13uUvQp95xD1cC6usjnGF9sb
DxPR4NULNiObqCBKN+Ax4Z5IGd6KggrCy5W8rgLydO8VdXx5LqImRPUr4/jy
fwu+ji+vwCcLosX8mt3h9Pi/qGrHJ/SH0xBcn5n97Bq4Y45QfiIznfT3Iylv
8RYYbYcuczNIat5tyS4I6Bi8Eiqaf9hLLU65rFkvSbzmXSjSVMOEew2tzm+0
7pvMB13qWhPmWhj0a9IUlzmV5vi4AqoUNbE/FBwfn3J28KVTj5PLie/CAc8F
6zE29jOedvqjye2q0txgIH+4feZnIhohKgLxszO3f8D0DMFIJnZMxnfzLhBV
LNRJyrltxd253EM5hRVye/6jTmZIrv1X/oS4njq685z+h4o6NXzDvX3ODHVt
JOiEQZ8TmuJ9UNIcH0dAtfSHVwuVcXyIikIOTB2fUjv4yK1kxNOPVvpMZ73R
IjO8QPXCyAsLS2PRerzs8yRFkxy1260jYbk7kKmRYYNO/L62HOlFfz8dSjS/
ExauS+Ic7u1zFTtroiVDmHzVsqKTL9IcX578iMW3XP1+D2p8PBTdwUemk7cd
6Cpe4uTI7QdVs00NEAudaxJW7kU3sxzQNhJ+Iu1jRVmnIuythc5Rk3Ki9sjw
IR/dPkOtFSsQLpGPQo5juIZ7+9xccVUt8JUIIgfNUDS8leT40IEaCoybEiWh
mePD8zlUfAdfnjC1YopMADbszDmPEMLjBuSirwd5waQtoUabFuQ6vszqdsHi
oxgyu6QFA1V6zyyhsdpwMTiaUXietJWBL6dZRBNSouPjy7bUyjYZzRzfkcHg
T4r/nrIpp8BXgPxVRM2OYMkNLUAVkfrG1WX++a0H+X6Ps4K8uDkSoHzHl5GN
ErsfQRBGYFlgCoNej0u84klgmeakqBvHl785qMjUpwTHl5dElXZyw5iKOD6h
3hYM1PPyUarAxyE/Ay/VAAJVyrO4+yXk7/6SOy5pHAN1fPJa6Rh7WOYpndn/
zlftI1f8vQ3luVTV4XQk1rTjy/w5EApvIZTg+Hj9otgWc6VTCceXb/lx0EsX
QNECHwI6v8xwxBmt1XFaIMfz71zHWGNEnPIuSHvkyx9DexZznSA6JmJlndKZ
sJFXm2B8Ou6JLyUHITGHqbeKOV2Ldnx8Zypu/2x1UAnHh/ZWZW8hjpvFFC/w
ZRGIeDXfCg2oDbo5XSdrHSo289e0chon7b85PdJMEF2eRP74Bk7UkePbJ9NL
N2yo/SqkICfW8W3GXEieXtdgHP1qHeu/thQq4fjypC+134ksiAoFPoa8TY41
PU4LMDwJj7ShD1NAcmEXdXzalgbo3XbsWDTT8dLc61/C7y1G4Rxla93xHbB1
34uGaIc6nLMCgviiHB+5e/9ajxg3WqVUwPHxC2e4hsyqFPhoBCI+cHw1DrkW
HEIOO41DQembN5Xo6lQGekQ6t0qM6RQtONyHD/XT3JKFJ0xHdDnn8p47MY4v
sz0w9znm8ZnHEp/fvdTSN8Gbfr+PFnSkFB1tVmtP9+mr8ecYHJfUd3x5hTNM
C+JqFfj281uCNbdjgNrwxvfk1cKQHeIaPzB7q4E3iMwbgfnQOkr9OT5qEdC3
kz3IAo7mszeXuAWbko6PFe1hkLc1G316ERRYMqIEqju+50u+09zODtkjRaqi
WoEP2UTMUmQPL1AD8Mb3Wj+IymkvQZVbND4p0XaibSzyNJPCLSHgiQmo46th
5RY+maWQOQx9HnSvfVHHx1/XSLT1e2V4PeqT0qknSYqF2A2HMfNx2My/q+34
du+6OzjlLUH5egxQrcDH72mnb0KPD/PqSBbYziCH8sb3cqCOT+O5VzofQvkO
RoENz6RNHkqJnVYf5PaDkPNVNllJdAx5ZzNywYUcH7mVnL3mMLNhGmH8d89c
+SqL5E5kvCnzkWUo7ymLuo4P2T2dAc9wT80CHyNfzAHP3h4hYDuDHHhHHdkd
vDgFLJS1PLiG+3Rby9GhYFWoD6EnByZcrSt21+dvOW2oWr7tgicQmb7MnXU/
NhL4ltpGhejq6/QnBt1/UmiFKDJc33A2iEmHjKqOL33fZ0PTvISh37+E5Y4e
1Qp8GcUnDlXUHwXbGWTAG98TjO5f3P/k9ImXvX8r+hygA7BE8VUzqkM5PuLo
b7ye6mhrYfgpOJirdsk7fpDpjfuRwH85qV2bBp3eZBkc93waW2WN2F4aS4PG
chDHRT/zjNnb9WLe48aW7mGXT9Gt2Wjav8uLy4lfRceXfhR0cKqborY5a4Ja
BT5y/atRI8/vNdt896shbAHkwRvfE+75p1fTlq537MVcuVLNoZGwlnleukGr
0WQ6Vh1tLTSowLKMqnr6p+i1t82Uv2g2D/3WNzUTnZsOTA6b9YeM/dfmU7up
+MdUYrBK1HfJ7bUH838O3vC4Rqzc7X168+C4y/NxMPzd949VqEKxrX3YFPj2
1XN8ZHrJ329AzxitQ4ElXA2+OgU+Mhl6y8S9uYSh17eA98wvUB5ixveY5I/Z
FSvVr4Jq/qghoise1lCIuGxMQI2btICZTCe/nmBW8Rp6J2ZWkD/hXur+/w42
NxrPffhbix6LM4lUJG5gLw9UNQ4nnR91HB+5OevsQJdZNHVORGW1BlUENQp8
5NN5T5+Be2slL0QDqo7N0DDSzNXQHxAoaTOCBscmYiUHmqiQL+v5tC1w5lww
Ju3oYkCODYQ9sCr2Hzvwep+PttPmy9Dnmc/f25vd9KSguagkFXV8SIEPK5lK
5R0fmV6dnUSbaXWH2kc/T2KcCVe+wEc+Tfh/1c7LqQu/REAtwVFF1ukO9wce
5m9kZ6QvO9x3RdRR0CqVpqplGWuJ5zYxYZBEsYQkG7n65XnG6+lazwQL9K5y
yrh8+W7cqaTjI5f8tszxHy+ZSoUd314q4Xe0o7Fec+f4FM5eL2/WuOwCX3pl
ZqKXH+uZ3vTFwevVPJyJaeE8p7Tlrei6GU1H+TLWsoo0Zpmhe4aii1lRWOUT
ovnM7cIN6Mhecnw6FUVSScfHJkAwOzLli4rI3SxPpu6HLg8Y0TCH6Bjy3cU3
w5mBt3qjnALf7vr8H8YtR7g3lDBYP5yBDGddwHV8AllBcnv+o05CfH8IGkI2
WXwPtHqZMgfkKspzor6J6BcXLCNal8X3DCKBDEadiuLIi3XUm5Qhd6LOrDXE
Ki7e2wy/e1jHpWk8Im1jTjq1HPujx2HmtMsS+s53/PNPlEjNqNpRnCdpLu9k
kt6k7sFwF3/ojZobnVvFOuAFFISzgUvgBLV9x93ZJG2eBTmaCq5BrwhM2zNm
h/bioC2d4vw1uTblaM4YsRIT+vS6CuYHMepUFMVWwvMKtwhDNDumpAvJiiGv
wEduJe987nU6+swthK6xxfy6w3VjOrGmbgaf3N74kZaQST5cjP81Gpnyu4fN
AsMd+s5R33Q0vpgswmI8OhcJ/cHrvvhmt5H/Efoux7WsSkCZKNxRnE49ztyC
5cSd6Fz4tvc9m5G3N6HBOPw/keLfPncPojOhgM/jPNvdwt83SOV4R29Ek7Wx
rhgQCyNsIuynMhKIprdCUmodqAFvc8e1MbKbUWeHTnfCFaue7kU2yUYccc6J
SLigHkGwOMuyF3dng0lspEh4sNY+a+4OjNUtr2uoU0iRotFofffKjdvhuSjX
8D9JlXNo5xT4Pll6NOcd6iAIY/c5tz9EW3L3kImgVdE8f1ExOlBdhYPQtw84
P5lZUGb4UfGO4heb4XeEVFOVvgstPecmPwWXV6+k5t2WjP1k+zbJ9Hrs+sFb
L0fvFy3zvepd1CJnnunl0LS7Rhpokk1cF/3WzNjhXA9o8fUxyIJRbAt8ylj7
8v7i7Nmjwdg31Gc8ZLA4gwvooqTnq9Pv0U2ABstkTK2imCqO7yBctQ6OXPL4
Q9HvV5WbflSjo3jvcfBNdTy/wdTdS9+Eqdn4D2WdkYAagBW3pw/S169eHu2j
dDPklrzpaXeGEpGISmQuoEoE42gQlc7DFyOlD6Fc2YESqVGkKwDboqf2jg89
e+io3v6RwEIq75BwEBX20oacOOWK4VME1Iba7ygGapv0WiLkGbG2Z2yP/rh9
7GpIdi0DWWSsRZkvG3JWURcHe8eIw2MzIvqIUDnrUqnRnTnnkUxs2DQWga61
AqCZiiLCHbvLvt7Msy1nZ2UNUQ8dxQAgAU2ngLNai1WkT4JM5p5wRsVoU6PL
40rMPiABuMYrM7AGbXw1XgivF7TPbGxa12a8LjqKAUAS5JKvhxBllpX/1Zl2
nSrSJ0HOCR2TcTEKgRztpuKF1HTS30+I+sn6BinwFV/LhSRl63c9d310FAOA
RMgfg0NHtcgI5QY0qmetD7sDVPT+L7QiVkK/AinwcfQ/yfTqvdn4atVUQVUG
kc0p3viKTgA12wMrlbtEjKitjmIAUAxktaVY1RdF2IiMmej0i/TtBtqA3Cjx
85KoJmrxfhUkNuTWWymheymKoLWN+MZX5Cc1XzqpFTXWUQwACpLrf9M1dXni
FfJ8OTuPbfsiD0YRjvZL4tRQGZb91mzIV1SzkVz2WTI/xxXSoW5UUzUN+KsL
ojFbog6FCmfVZ8205jqKAUBJkFim9YNoReZEc10i1dK+SK74My0ChjOBpPjT
AdLVWcTxkRuxie7s0Zwzzk93vFTPwia1EV+H4lRXq0ohQTGgoxgAisKGM8L7
bZUmt6C5Wo7iT6POE7KCYmZlBhN2OKPCmo07yakL7MoVTu73+ZLvNCFmz1R9
gNShSvRikUm/LXdLsdpbVDmgoxgAioNIy1Yi6MsuaC5Rd8AE9Oa8H9mUWP4g
lwMDTBJJMHBjvF7TSavFyBgetAeGaqdprlz+GXeQvRgl5ME52rZ47S2qGNBR
DAClyc37qF/pq64CHxsOt4+GV6VbUDK9EhiiWsr509bk9lLYPWAkjtomZ1e3
4p6uJq7l2V7yDxokCY/XOM9irhMZ81xi8X32ZEUhugW3xoCOYgAQw27C20NP
sBoG/UsqbsfLFvhEijxry95m5H3ahjYYR79al2lAc+tECYNl7PrUDKXkf+Vd
q7GRMA64w0u0JCO5nbhmM9D+0eq6Hflz8MoZU8PJ0akfwOxkSUWdpox9Lr7d
Fe1mrNuTA3QUA4AoyPSSv5+2vUWljcokl4YSJ/KsKeTmrLODaqcgOi7NSU1y
8j5q+2H0U8/YYI9JT2SXoH3L3TVDptfjwclRarcO0dL5xkVvZAW8HgLr+IrK
u6JbAyrYqIwd0FEMACJJr4ZG6WJTS79/UR2rm202w7/lgFybc3ZRh+YGq+dv
0FepOew65mKOjx3PUeC4Us1ARzEAiIZ8enfyNSrxYbB7E2o888woFtE8Mo23
/nvuDGByBJch8sIAdi9D4ZZ7ZDaH6HLO1bM6NXQUA4AUsvuPiPZfzxQWAZYL
3WWN+7IYcnfB10tlfWUsOgRUI1e8KzC9TqaiE51Mj9BRmzeuYqG6KoCOYgCQ
RHo56DBRjRa238/nLzsr76Mfx/5484sExt4kt7UTvB5uZMUnBQdhMg+tDv5w
WaCjGAAkkon71PB9WEOmYpMWAxhPTNme91B/HaJ5KLDC7uYm0+ux60MdtE88
4fDfgz9cFugoBgCJpFdmJnoNukPtztl6qXC/eOA/fRSMJ8aQ6dXZSdtRna7R
aHufsuRz0wHPSDdltxuN9suhxU34u/GAjmIAkMjOauxPN8OL9VIuIVdjn332
NRhPzEmvJULXnMOvm1sadUSL2To4evlG6E5yG/5sAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdcD/A3kj2Xs=
    "], {{0, 112}, {595, 
    0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{249.7531249999995, Automatic},
  ImageSizeRaw->{595, 112},
  PlotRange->{{0, 595}, {0, 
   112}}]], "Input",ExpressionUUID->"12731b0e-9f22-4f64-a145-b2ab8b97e66b"]], \
"Subsection",
 CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 
   3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, {
   3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 
   3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, {
   3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 
   3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 
   3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, {
   3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 
   3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, {
   3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 
   3.7117171831101294`*^9}, {3.7117175469379387`*^9, 
   3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, {
   3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 
   3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, {
   3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 
   3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, {
   3.746790780119294*^9, 
   3.7467907805274167`*^9}},ExpressionUUID->"f9560984-e0cf-4af4-afec-\
0d033821ebc5"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"B", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"I", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5", "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "bb", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 
   3.746791220316177*^9}, 3.746807028665576*^9, {3.7468420772484903`*^9, 
   3.7468420780772743`*^9}, {3.746842147247383*^9, 3.7468421487670603`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"ba21e04b-e0f2-4bdd-8bf3-5e928cb1713e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"B", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, {
   3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9},
 CellLabel->"In[69]:=",ExpressionUUID->"cef848df-50ab-4b75-aecc-f720dca868b6"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuJQA5NVZp9fO06q/Hq4E0jXXdfhvAWkjVjvZtwF0u8W
HHtxD0gXWqcn3/zy2vHa7paoO0A6O/TbhwdAmuNoXOgfIL1I59zmv0B6TnBA
j9rX144GLyo2BwDp7cdnHgsE0oozvqsFA+m8Dj+bVCC9qvDkCxDd28V2mEno
jWOCdMBuPSDdtlG+mFX4jaOViKw/H5Dm7v4gyg+k23wPN4Bopr9LVoDoNVf+
SFZ2v3GUunjvFYhezJX8ZVrPG0dxrv7m5UD61rwNyUf6gPq2uceeBtKvSnhU
Q5e/cTTRW7kkEUiHnPj5JBlIG2x/mNcEpKesMnqyBkjvT+QquQWkfSKl15Sv
euPorelu2LnpjeM61v6P97e9cXR5vVD35I43jotMbX6cA9KMdzdoXgHSj5YJ
PFPZ+cbx/Y5z1rpAesIUju96QDpMcv/yUiB9rqNKrQokb+JyvBpId0T80a8B
0hYf1YobgPR0LcP964H0pvIWwTNAmomXvRREP+TyW3oOSJ/oEWu5AaSXmZyZ
D6L9H7I9fgeknz049vwrkM4oXbfdadcbRwDmIgD3
  "],
 CellLabel->"Out[69]=",ExpressionUUID->"8243197e-82cd-4e5d-b85a-ba86e28388c7"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MG2eex627N/diXhwveYHECVniRaQIIUsXFFXmBREREkRbIYu2skzU
HKC9LmR7xdtVIVUDObVeXWu0jVNdrG2srGr2anWvThW3h9vFWWFa3K1RQFmn
gcg0OMUJEOQgEwyT84xnPM94bM8/e/6Y30dq1T/O4Bmeeb7P7/+/nB3+xb/9
g8FgeP2fsn/7Rb+9/de/7n/zxX/O/kvvr14fGvjVuVdP/+o/zg2c+/W/nv3H
7H88l/3rYvbzxD8/BwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACd
cZCKfxf4zOfzup2OLBdHB2xWa1/v2WvLz3C1vxsAKMNhOrH4tf+LUGwzo/ZX
AQDg6LHuH2g2cDnljh2q/dWACgASw8vBVvj97iaMWPbYi66lp2p/HwAAjhp4
JvU4QbASnbabKBmuO+m6faD2NwNkAxIjgMO7njON9AG0yepbU/sLAQBwZMH3
wpP0fnRiLLSp9vcBZAMSI4SD266TdfQJdMi3vq/2FwIA4MiSjrl76e3o9cAm
GMT6ByRGEHuJ4O8srU2tvePXIz+DAx8AANXAV719TdSm3eNZhUStWgAkBgAA
QD9sBobrIEAMAAAAAKqAPw1daKDsYfNEeFvt7wMAAAAARwokQFz/ZnAHKpcA
AAAAQEHwuM9mzOkwZvMlIEAMAACgY/BM4q+ugZN1A/6k2l9FHQ6izpZj3eOf
xVL6CbTuBEfrKXv4lPsO2MMAAAC65SC19LHNiBmw0xdmHx5VuyoV8wwYDVhT
97vBxJ7aX0YI+F7EcZxyTHc4Ijtqfx8AqCp4ZjsWdF8419WKYa3dr1269vW9
1FHdrYCag1Hh8Zmf9FArkY4HJrqbGky2jxa2eKxXPP0g8uWfP/tyMZkR8Mbi
T5bc54wGA9Z+cUYHWswJEOO7icWvPA47sVMZ6lu7XrU7p2ehR6IOAInh5SAV
89nbG42WiU9m5hb+cnWwGTMYGjoc8zvwoADdQ6uwoXXQt6qLHRvf8A9SBTsn
J8JPyn52MzzRQX6yecC/Luzqj+YmuzBdaDErQPxpfGPBM9KBYabet1y+4Fxk
YdbvGjETd3Jy0P2toHOI4B+c2V6NzEy7JkcHes10DXMWo7m3f3j899dvzq9s
Qw8K4agtMXh6+2GiYjxKVWMbwZPfXGhvbh//KkGt5CfhiZPQAhSoCfDMun+E
fOvbJ29t6eNgebAZeJ3uOtTrjqXLfZYJoTZavPeF3l9m1TfYSrziHe8v7Gg4
XszcXZ3p3Mg5U4PR4gisoJv3s+Tsf7YTHYuNlivRSlhYh+nEvHfCZsKQMRNY
a9crL3W11htQsDabwxdJ7OpgTeEHmQPZX1PGRdSXmEzE0WSoNOSpbOx9t++b
6NqOXGnG1wPnT9T1Xb+3n3/IqYjDTP4gZbIjdld8b3UXLPLqYjS/+klMw9sP
UCnwnXlHB1GEWmf5w9/TOtgySTZDYyeopdo4Gd4r87XRGttOZ1TEnoZv/WXc
lFV7zDjoi1fSlqwgaIDYQBylxvwr3DSzrNXcTw5pws44o/KCyJnH0U/eIExs
A9bUPjDh/vzW0mpiG1k3mVRyNRr0fjDSRY+Fwjrtn97e0ugDpKmMDA34EpLU
Rn2JqZIQo9S39v72yo3vE2lpd4PvRn53AnvJHdtF/tt9r6WRvDjW4oxWX6/W
fNbqPqMiNDkiuvBRAnIgdwDi120c8q7s8n9eIyBteOuGA2UnHOwuu3ronUBs
je3BzsL7HTlb0r1U1upWCyRAnD0w9HtX9ovq3f6at596BiOBTcmSmPlpZvw0
4ec2n78ajG2X19bMzxHP62bKam5AbD1NoqYQa0FiUNf0g9Xlv0XCM76rY71G
jHOPTd3j3tlobK2cY3p1ObIQDv6vx3XpjV5TwSUw06sf3LzDs3iKfL0H/sFj
dYP+DeTPIfGp48OBnyv7PIpxkFq7HaGYC/p93qKPCOsYvvxpMLwQ4Sf7lG74
fP/jcTnGhvvMTdynbTBYfYnq3xigKum4b5iMLxr7PDEdxfPwVQ8trg09nh/L
vdJICNVg8a6JlQJ8Mzx5iny5ehwL0hWsWqB3Z7oYKp20xuiM5JEQlAqXMLqL
s78VdduonUrbWsyOkK7FFomd9nOPc6S7mD7Xm6zvXJ2+GcrutcuriAA9Tkm4
QU1ITFEOdkLvHCu4dR4HFJdMai36pdvexVKZetPAldDaU+EXIh9I62jwEXrl
DX++seuwf0MVuxE9Cedosnhi0r4Knk7G5j4Z72ZNGK8fDUIhRE2D7694+8lN
Eutxx4pbUtoEDRD3uJbLGvJICFVaE2baQa3JYDFyd23OH56V/iBi8JkdkZT4
n7R7z9NfJ0VMM8ngOD0oWbOOhdLg29GpXrahgjWP+Ncrd6LQqsSQMD3MaSSc
ZgnwzPadm46XjeiljP1Tc+vC7o185QvOkMigk4JjjIIgMTJqdZz1xsu8iPzg
6fsB0u+Uu5xC/hBALehkJIOh0xEpn3WsNZDFz+NtRkOokqf07q/7hsjdqKHD
+b2m3PdE9xFBd3e4E3yTTjERnDrOgO/fu95XZ2AHMYX/6WRovJ3eVyyuJQnH
ADXhOK0rOxpYsxJDwvXYy/KU7iXmPrSivlzs9Jj/rpAEQnw7diuyhp7iDmPu
U9RVjg36H6jzkNBRlTlOuWOyI/r4ztzkiboqLDZAa2Q2AvZc+o5x6HOdNUVE
Fj9fR0fEcYS95k9KPVqmF13djeRF2IE8ldlb9bxM3R2Pwxn5pIRXG98I2tuI
7Czzi9aBN6du3BGbeo2v+/rzk3Vt01rNfCsOvua1sLZa3nI5kdfXpsTkqLAQ
P6ertBqYC0psXJCKOruoK9S/odYAbiRGRt3MccdCJcod8xtXhRcboC12v3NQ
Jy7dmcPo4udNKP05MEwbxLJOqnmj2FDX71vXiowgd8czg/hRcLSV3itExxzx
uLeP5Zw9ORZ6LPKrol9Ab0su4bOyNltpvn3haEJiKCovxM+RrgWMFotu5cfs
YCpGUdEYWY6CEIN06AfPF3oDdIw2ZUUg6OLnOy4+DY01VOikyrz4pybD2sja
Yu6OL/zNcqCJq+FiW9M5JLjLUN+42u5WsSgsxJqQGJqqCHGWg63QRRN6WXFV
G/hu+BKdRVYx7RMPN0A8KLF+jQu16qQWxAHah3nTJZg2qoMsfr4E4INl10nq
o/JTT/dWPK/kDvHYGc+KBiYrIHfHsxfhCZ8tb3+IruHKF7QySiRh5DHLwatu
ApJYFBVijUgMTbWEmKhHWHD0sFrCdH+0JLSPwePQGL32j10Kq9UwpjoBYorc
qoMi4pola1G+QdkmJ34X0UPTIxbo4ufxx2YSvkH6TX/Zsyo3dIMEOrXgXD1I
+l/DBJ3DWdao+DmJBQUaZaqVy8La0pUtydmNuodsVgTb8NuXvbdWBRZhSRZi
fDcR+bNrfJj1s622X3qWSqfVakNi8lRPiJF6BBrBRZRMsQB2bGJOLddt1QLE
JLlVx7PFAbrl8K7nTCO5bHQ5Mg9Z/LyJ/Uhc8qRrWX6ojaz3zF1PVluMyvA0
6uyk7o7nQaAOtKY+r+g3G08tXh/pJPZjomXlDakDIlldiRrGQsq1Bj58EPr9
b6xmVumMQXgjcWlCjD8MXXqxsAaZGOXw9kehByXfO21IDEM1hRiNkVHUDfnW
eaUYqe0ydDmjyO8C31mdjwg9X8mligFiAnLVYUd2HG2Ngz+LTrVRy4avRbMW
QRc/37Inanvovk6sbX/v0fL3y0kJR1fEtJRdLSgbxGNcfm/cnZs4RjsGmt8K
qpb8w24PWEEnnkAym7HPL7QXlAR3TEV5rU4pQpyvSmB+lNHyX8F4+RYWGpEY
9BtVVYizB4/ZsWb0V1J3YnKOZ8gFch42tE1FnzGfJiuyFUszrmaA+Dm16sAz
XaM8iThoM0r5nbACoIufx9uM2M7sylnCud0o0RvA9DdoPOO5q+rzY4S47Nt6
uBN6m1aExh73snr909DEaRkNvmSRbyWXR4CLQIIQP/vB2ca2lprf8K/znf20
IjEI1Rbi59vhCTNbzniOuEgOf8E7SB5jFFtXVQ0QUy0CxAypAXQEYxxJbDOl
Muji56kLLjmeiRToDkdEUjoqulWqfJLJJHwD/EKcH/egfmewgob5/d41NQ4F
SE6y0N+jaCEumMRhEHgE0orEoFRdiNHktBz1Ha7bpZ8V8l4XSDax1I81j80q
k2de3QAx5XzTQLYeUHnQNS9ViVSFtfjLZ//mW3BkabgQYjyCZAaX9DQYtJZH
Xd8+s9s3ToRL7ADkNAFqn1C9V3aBEFe7GrcUSJUuBV8in2gh5vQfFhTI0IrE
sKi6EKNhcZpyrycSkWElMuG70akOTLEsSjkB4oPtqM/1x4VHPImmA1BEXKMg
XiDRNSxaoGDxlzapCioj0O64hEl7XE4aDNL1SEriUyXJ+zdKpFbiqcgUdRpp
sXmWVU4IYMYJqSvErBxyQVuoaCFGGq3kEOQ80YjEsFFAiAsXhqFsfRxzyGE5
gvZjnr7mZvuMUmdNOQFicnnwpI/imUTkxo2IdoekAJIR0RlSmxQs/paRQLFu
PPiTJfc5I9ZufeUF7tZxuOI5I3NP2wtP0NuG2o0pdmPul8ihHcUMrsxawG6m
VNi9KLYppUjwg8wBz08o3NLVEmL0KJWDLxInVogP77hPsaReWF8OjUgMGwWE
+PmT8MRJ9s8oM8GESTdlHEHkXLC69snZpFKZTXICxKQHQNGqAUBLIH5d/QeI
c8cJTvkJnroXdPYbye61z/Jlv/m8l0zcP3JCdjOxdf8Anf2kumMhveS2GDnz
gPDMVvSTEXKQMtZp94luDc1PZmct+o3P7Rgd6EWHqGKtZ14b/9A7W2xUceEc
H9WEmCOsfLmpYoWYOyVCUO6rNiSmACWEmMl2EKRreX+X8VXXzHx45o8TluOY
+Q3v8hPFjioyAsS5+KCKoy0BdRFT+CMSPL2xPPuny+O/7G7NGwJGs/U3TmJH
lpSQU8zAQhd/nfl0J7n/Y6az73m+IMbCEnPM37GaGpq63/YtPSa3rb3EzEWy
XKXF6rwRDn91bbQTE9dJryhoBFD1IA6eSc5fsbUQA15t734yMxdZmPW7c8PK
600Dl4OrPLUgon/cdix47aLVRP+isdauc6MTjim391Ove+q9sdwawJq63rwe
+RkVD44dqp4QM61BqyPEhUcOwQX7GpCYQpQQYnwvPNlYIMTlUzHxndWvr00M
95mbGrLrb+xKYHlLycQ/GQFi/GFgpKUi/YUAfYL6fyq3DLJvRPDygKkg2QLd
416cuCFozBlyzTX/UCvHeY4u/ux58mFm+17Y/wfSJDOSg4F6B+xOji22vx0j
3lhL9jNN7daxj2+JmUVeAjTIqI36gsxmLHjdMfpqV1YEs8poHR6/PB1cTAjt
FygMPHXva2a8O6n7s3cepTkKQ7STmiaGm7Om6nAjs+qluom1WMUKceHnxbTm
VlliOCghxGizVsEPWU0kB4ipcaKV6S8E6BH8R08PbQawsohlXDJ1x2fvxArf
IC6iYpS5RF9uuQdykKhs4bx4UOPuaMR69pIRz4iZXj/Glx2BH8v/QvHUXf/Y
aYyZPry77Cpw5smYSikTLQux1lBEiLnBAk0/NMkBYnoE/NHYNIBioO64ChTA
4pnENw7L8cK3pyStg75VQdqZq3vlNoBCE2BUb0WC+h5rvhls5nH02msmuqu1
0frhnJC2kHTONtbjjhGNqZHAOrXRqtcziCMudcOBzTKfByFGUUiItZvHIilA
jGe273yePZoSn4cA8dEFXTzy+5fiW7cm2xsMRTCau14o7K9L/Z9hX5zXFZkz
h4tU9CPzg8pkVCoFujs1Tob3aleJyWQh2umBGW0fL4nospj7bZITvjhh2ars
5wIRKy4ihZg1Z4pAz20ZVBNizXZ3FBwgxtPbDxOJtVg0PONz/baXyZ/RY29h
Lk9XAlcdWuFqYEUfPgb0fZK7wvfvevtbkBeme8TpDUZXk6n8VQ/T2w9ikcC1
izYTklHLX4KRM4eLNH5HI4xSZvBVGrQ3Re0ODGWpsAHr/jAqttcxvurta8ra
m48Kg4C8AzuqSkFrkQoLMUe7tBzu5EMZIeb+FO0KMSdALJbjjkgNHN2L/cpU
RKurpQC0QKChx/OjjHWQWnJZaD9lx/DVYNm86IPU6ozTSqs29opnpYwLJ2dA
1Z1wfMdJRN6JODqoi6heMUSAtk3W8zZbBrYKC3NocCEbkTW87prqY7836hqJ
7K7XBr7xVeKEGH8ausC2/lVq5lkRQIgL4AaIRSKsqFzz4D/dPP+CgAQhRcBe
OH/zJz0cbtBUGTkRKzy99FE3+fSx9t/6YsKqKpgtvajI5q9dyhxmBYjV7qGR
A2mCpGvHY0l2V7xDyHCEE+cDEmuvyS22ubW1wDGtrjZxMsfKpy+KE+L9NW+/
iItrHGWEGGmSk0ebQswJEBsaRv33E8VYi0UjkYXQzWmirJKp67T54rpdDYBM
UOE4MRYql5lSDqLJj9EgfJBrHjpd0ND8dqi4PVvGHEYDxGp3laRAO07rORWn
OAep6IfdyGFXVguUYuE/tdPtuLVUZQv6xAkxp08U2mFVd0CMmAU3QCwo8wpp
NlsbAWJAGhVxpR5sBt8iMl+FDHTjgG/cPE8MHi2V2LARtLeVGgvObAY8zm3F
QF39gts16AV0XgaBvI6gxRJiVU+3Q+Yc5Sjr1hAlxGidIHmzms3+FYRqQqzN
14obIBbYk4H2k9RGgBiQCJqdIlWID+96zmT35zZ7UJpveH/dN1RXIkRCtoDG
Ss2Xwbe+ddna6lr7xqZvV7lnskBYTfk0eXSXDN2/mgY741mRsyEW2WM1kG5X
2A667NlAlBBzOnmqf7NyUE2INVnjww0QC23NQWUO1EiAGJCIfCGmGuHK8lLm
pgUVybZ6EnF0GrCX3DG9zPyqWSHGN2fszagOy40FcGNqZYfcKQZnUmEZb7kI
IeY4vTVxszJQRIiL5Wqp3jy2CEUCxEJbc+R2DAgQH3FQIZaWJ5PbuGQe70nB
5YxCxsnpDLJnMSgJKzO2hoT4Wdx7lp0JKTOkxU0hxuTMoKwgeH4mCO+dihDi
gnzsstmJukAJIeaG7DVSHFGAxAAxSS4/EALERxz5da9Po85OrGMqKut4nzOr
C6I/T5ddv9CdB6+SddnaYf+2q4O9I8rNquIYntr5RefSEhDRLOmdFizEheJe
dDylvlBCiNHUR/rJaXFOq+QA8XNqBjEEiI86mmlAQXZYYnUU3Jkda8boRoi6
oRaFmBnDx69NQi8Z99mMrEvmR1KqD56JT9tQ3eQ2Vs0hVIh3os4zaLK5afwv
Wxq5V8koIcRcgdNIcQQb6QFiagYxBIiPPKgQqxt8IXsOM/0Tchlczf06C52w
nFS1IsRc61VGpVsOcv9BaDzjuaslh+PuPQ9qwjZ0OOaLjI0UJMT0YB1eWdcX
CggxV+A06UmQESDOvlt/910Yv7LwWFe7HFBxKpE1XRnIWEl+8k4uE7tkcbFm
qclkLc5chrrXA7KkhBMgrhv2b2jsURX0a8V6HAucPqxChDi95LYgtj/WNTn3
SOSue5CKfxf4zOfzup1E+9yLowM2q7Wv9+y1ZRV9CNUXYq7AaTJdRE6AGABy
oHusukJ8kPS/hlFWebkmHtqmFoWYu+XKHSz1ODSGtrbQ6C8a3/n+Sh8yR6z5
9c/i7E5YvEJc0A5U3NzPPJyDUA51m59UXYi5+YGSCySripwAMQDkQDtrqdwb
mXyzT06En1AbtVZ6dIgCFeJa6azFqeVsnAjL+cXgm4ERVqlu8W4tWgBPLbpt
iF1sPOeOPmYOV2WFuHAqN3Zy0CNBhYkrZVKPyd6IK9Fpu4l+air3A6m2EHPy
A7Huj5bS2tNhOQHi2gSmL0kAFWKVPSqkJ4oQL3zDP6izqqU8lerdrSUK5aZ5
wL8u43JU/5a8DGvTHM6Dp+8HHS8zzmWsY8Qzn0iTtmgpIcZ3E/PX7V2MGYuZ
/t298LNs9wi+F55spC4pO0wvk+oKcc4nhqJNc1hegLgmgelLUtCSBUdsa9nv
cI/cqFtGAg81+N7xgR5scta9/imUm05nVMZOU2Dp6CNzaX9r6XOHrY2Z/Giy
XXT7w7OX2UlsbWP+74khn1bmk4amzmHX/5WdRCYcJGtObpheNlUV4sw9rw31
xmPGQV88o8H9AALEHGD6khTQknl1R8HmNnys5b88bl2maeUgqwIppBXp45nt
e2H/HxyjA71mo6HJbBmedN+IJpld6CCj8I5UKMRyytwyGwE7ssO2DvpWBVwr
HQ9MdDc1mGwfLWzxrFA8/SDy5Z8/+3IxWfGnlLVzI1+4Jwbam4RsM/WtvaNO
72yFJDj3BYghztTl5YbpZVNFIS5YJJJHbSoAJ0CsybxuQPscRJ35GJjKThWy
GW+92dymeXdlSdDG/vkMcOFkfo5cf7OL2Oebu0Y+8M7MRRZm/VdGu7IaNHh9
KbWfWv4T4fDETl+YVdBdQJZ4M8ixxXa/c5zIGxCYsd+7IqBIPBeqIOF1MmyG
J3LzqWX6z8t+n/Tm/aW/BqbdzjEre3pxU9fwpNP9p0Doh7uPqhDOZLpVqx0g
fl49IcYzcd+gET3qnBjxxzXqXeQGiFUeHwbolqR/AKvsqyQV5tXuckbVTBuT
Dro7ifMv4JnErSkreSYy9k/NrSM7z0Hq3v8MN9eb3vrwA0uTCkemwuYbki3i
1JLLwuywQs0c1PvH52RgypMbLd77VT+riBuDKBO05ksDXciqI8T4zryjAz32
NXZPRbQxz6UInAAxdtyxoLsEU0ATECYxvTuqG9jOHwn0e6pETjXYgD8p9I9l
Vfir8XZy/zGecy894Ww89KBJioYez48Kbk4FhSTSqjPw9NJHyCxj82+CAlsV
It6/xslwuU6AqFTJC2QLRFEhRgLEWui3XHkhxjPJ+StojrqhoX38q4QWQ8M5
uAHiskMzAaAcaFhT1S6X1LamzXmjgkD8/CKch3jymws5FTacOB8okSr+7Adn
W/6lL5yOUW3YrZKl7DZsS8douRIVauYg3j9WB9QiICnrykiVkkKM+CU00W+5
wkJ8kIr57O2oLdzcPTmjYRV+XixAPKjm/gnoG7SBoaqlxNS2pt9BJLmeJCLV
iunghDWfv1m6QuNJeIJugqFCxmw+9kqq3EiA02SqHOxqXHFmDuL94/MDoC50
i3dNgS1cSSFmvO7aOKkWjleW/szx1L3g5SETa9Z1x4hXIxPGS8M6G5Po15UH
qA/q0FMkslYC6oit48WMaKXQszHS07j82GVUZdTImMU3bp7PzyMWMyE6q8Ke
wZP0nxTrbES9f3y90BmpUiiXiWMUVq8AEN+LOGi/ldL+kGIc7ITeOcbWYb7A
AZdMai36pdvexcpCx5q63/YtPa6EYVnVAoS9df8bhf3OlDn+AbUKcrhVbw5I
bsvVxmlfGmjKtLDjBL45Y6fVjaeBCZO6rFbGbCY5O9lOb5l1lv++neL9Fofp
+IzDkg98tFinbol0NiLePx5vMypVyjS72I25X2IXMmHN9hlRvgLBcALE+G5i
8SuPw36uqxUz1Ld2vWp3Ts/GNqviGMXT2w/Jzl6JB6vLf4uEZ3yu0a4iNVxN
3ePe2cjyaqIMq8uRhXDwfz2uS2/0mgov0dRjv043S5FJZQsQmCcQj0UjC6Ev
rn/wSzP3AWBttvc8N0PfRiKLsbX8LW9sV+SOgJoHVRDV+rPtRBwdCuXYVAnG
IhOYPInu5McG/Q/KbAgHyy7a2FavpRL+ZMl9jjbLMaP196G1p6W+M55+ME/t
hCTGlx3B+6JLepAAMV9gFJEqCYVjZWA2YYK12GIkMhf83OMc6S7WQKjeZH3n
6vTN0EKErUiPU3LCnawA8afxjQXPSAeGmXrfcvmCpMS4RghdwE4Our+tfAF1
1XslYU3tQ45P51YqU3Nd8QKE7NKyyOlQcdR7bQFCQcPEKnUspwIuqmaLyQK1
yIRVl+zOTRzLO3vL9wFAJqSr21IJ31m5Mdmdl9ecCXDr9mri4aPUPtkSeXXp
1hfXnecRi6m5y/7HSFLKokICxLyuEiTnsLLRjcrIkLyFjXjdTedGzpkajBZH
YAUdzPgsOfufpL9CTCKcQKoixFkr3jo89r7bF4zcTVau6LoaBQhPo85OGXd6
7CXvPTCJASEcxtyn6GVT3jSr7hfQSWPQYiApu8cuhXd5HyG+G77ERNl4tONR
cLRV2CcV4DBNdFLu4d+bCZPNHZTuL0UDxHytPBjXfaVrOdUXYvSMZyDi7GP+
FW5cIGs195MKg51xRlUPIquD9gsQAKAch3fcp+ikTBXCxLRJrnrjPskwDxA7
NjEnIJMJHQ/Bpx17C47jlIEpc/JR5cjK8eLXPjeVCcNgNPcOjDpIQ0dudykk
QMznB0Bc97XX7Bd1WJVpR7a/5u2nXmGRae01gj4KEACgDKq2C6Cb6Oo3mII4
UTsdESGzHtAhszy1Toi/ovZUpjRo/0CeE1om4RukXeE1Nw0WTZg3XQyV7rbN
2O5HUV90U4AAAGXA494+TJAuVP5HU82EFW4YVUGQY0zHlWUB/ZPZXWrLa0dN
q0xpkLMN7zgSxHVfe9NgkQBxm/OHMpkEiBNd5dniyqOrAgQAKA3+MDDSooZr
Kz8BSrdzA5nRfk19XmFHbDTy2HAhVDL7+DlLZViChGeSd+aXk3oNqvOABoj5
ToZIm1a2U2Xv0fL3y5LyxLQD0q6tfMI8OkmtijMvNIneChAAoCTIMO66Id96
5ca38bAdnjCTdk9Fq06UA3luwqfroi2+y+dfIbYzO3xPhFDFdLTWF2j/QB4/
AGI7swWIeHSNOq5MJxCeMI98UvXZ4gqjxwIEAChFPvHS0NjjXlZIifNCo34+
sCTwjaC9LaeTHa7bgh/ams9Km8Rlm/Tia14L9Tl237NaUJnSoK57nhNayfFM
pEDrPS0WKcviCWginpMjlUug4wIEACgKYtyd+F2EvwanEj+SNmc0kw8sDmYg
gvG8PyH88IJkTZcRYnw7OtVLn/VZ3U7IDC7dzovkgzVgrnz2YHrR1d1IfZLl
5Cdj64JKyTSM8IAmK+tAz41xRKP3AgQA4MDYd839vnj1t7C8OaPTM/yTiKNT
kg8BfxadaqPMF0ekeJPevcTMxXxXSbZhSI4mbJuKPtOzypSkYMBcv3etxKPF
NxccPUzXI7TZL/7AP3hcWCmZdkECmjyBcjzhs+UfhBbmJCoHFCAAtQeeiU/b
6hQziulQIE9kR5ugz+rd8I7IeBO+5h/KecmKGrY5FW48bbWYuOYekR7WrFz4
QGkKBsy1jASKNQTOtdzE2q2vvMD1LRyueM5gAkvJNAsyz4tnjAiaqaWNOYmK
AQUIQG2Sr8irfqRY1wFixnvQPh5Kit/58My6f4SouSjs0oCn4yHXkAlrsV2Z
T+4uu3sa2VtHOu4bNgpPDNMdrK2VVJb2izMJ1rZJzM5z9hux0+MzPz3LRwfy
LoJM3D9ygqeMRQcgzRV5KrjQo4vg1P3aAAoQgFplP+bpI2vejcO+eBWnA9Oh
wEq3JVSCg53wu+TeV2ca/8uWxI0vPw8dM1omPpmZI0bbXH3HaqrHTEOuUJxs
TYWnY9dtRlKvrc6b4b8Grp431xECVKv7BhogrjOf7iTbVmOms+95viCGKVCP
qAGZl5f34bdYnTfC4a+ujXZixiHviq7d0llSEYeZa+wXAU0bruETWlGgAAGo
WfBM3DdIbv5lm8XJJO9PEzYlQUvgO/OODiKNBut4f0GsU7rgUukHkRvuieE+
c1ZxqKmp37OHweGZreXAlXFi5h3W2v3aJU94vVZVmB0gPj4ceMiaKmvAmsy9
A3andza2zRoztL8d+/raxLCFmDzbbh37+FbpyVD6gRHisl3YD3dCb9NRUgXr
HbQCFCAANUwmGRwno5Otg77V6mz7dLqj7nJL8jlCdVb332szb1k9kFbAPIHR
mieT8A3wCzFTdViBY6EOgQIEoKbBn9y+8gphmxgHPLFqrNJcjSTWPDarq1LP
/BHFbA+sHWWdqArI/BFdZg5UEmbuUulaG6TkEOtxLBzBaQ9QgADUOpmfZsZP
Ex7q9vfmSneblwpZd6CzqW34/oq3n3Dat9jcixUe/AqwynB4WisfCfLB3xLd
PPBUZIoqo26xeZarmM+hZaAAAah5MmsBu5nIFLJ9vMSdgirv0o+iX372dUw/
cpYfOw4qXCXQMhz9ZQ5UAbqLctH6PurdNBz5BQkFCMARgLKLq6HFegJPRa9Y
jEd+06sqOxFHB6XDusscqBLpJTex6rDmEf86k5+GZ7ain4x0kBrdaffdOfIL
EgoQgCNAZn1uqt9oaGh3zB/RnIbD+76zLbDpVRckQFw36K9aur6+wDPJ+Su2
luzRxGR7l5CYhVm/e6yXEJR608Dl4OoOPKccUIAAHAH2ktH/+yy0elTjUMno
F1/cgk2vmiAB4iPWlYKXzGYseN0x+mpXa70Ba+2yDo9fng4uJtLwjAAAAIDK
wTRJwl7xrOitxQsAAAAA6Bx861uXra2utW9s+jb4/wEAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkMD/
Axr+BGc=
    "], {{0, 101}, {643, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{302.6062499999995, Automatic},
  ImageSizeRaw->{643, 101},
  PlotRange->{{0, 643}, {0, 
   101}}]], "Input",ExpressionUUID->"ffd69bb7-bb5f-4613-8a02-80f80419f73b"]], \
"Subsection",
 CellChangeTimes->{
  3.746790794639846*^9},ExpressionUUID->"b5a3c00d-e1be-4ad4-9a12-\
654b0d6734d3"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"F", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "bb", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 
   3.7468070324753675`*^9, {3.7468420788949604`*^9, 3.746842079908823*^9}, {
   3.7468421495908566`*^9, 3.7468421519597244`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"27123cbb-771f-4854-81f6-bade6618ce56"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"F", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 
   3.746807032959241*^9},
 CellLabel->"In[71]:=",ExpressionUUID->"d7f53fba-d399-4a9d-bfb5-4dea8dba5d4d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuJtrBarzD6/dux4+P1wJ5Cew2LAeQtIn+p6kHEXSC+K
PfXiHpC2Op2ZfPPLa0cdhY6oO0A6SuTXhwdAmuFofOgfID1B5/zmv0D6XGJg
j9rX146V6ys3BwBpt+JZxwKBNFfID7VgIO20PdAmFUh/UjzzAkTvSOY6zCT0
xlFjZtBuPSBtNE+1mFX4jeOZQ/L+fEC6xfaTKD+QDpx6tAFEy2gtXwGiw0r/
SVZ2v3Hku3v/FYjWsEr5Mq3njeOD+ROalwPpPfM2JR/pe+NYs80j9jSQvuLP
rxq6/I3jDIdVSxKB9KX/v54kA+nO7Y/zmoC0gJDJkzVAevtD7pJbQFr3psya
8lVvHE1Wehh2bnrj6Ddnwsf72944qmQv0T25442j1FnbH+eA9K+YTZpXgHTD
MuFnKjuB5u64YK0LpE83cX/XA9LskgeXlwLpORy1alVAeoKJ+/FqIK1R+0+/
BkhvidYobgDS/vuM9q8H0lqPWgXPAOkTUzlKQXRLjf/Sc0D6g750yw0gvU72
/HwQ7fCQ/fE7IG165/jzryC6dON2p11vHAFlSwBr
  "],
 CellLabel->"Out[71]=",ExpressionUUID->"0f9cd021-fae2-46ec-866a-2bafb9f24c53"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnV9sE2f6761zbs7FXJxc5iJSjixLvkBCKLJ0QKhKLoJAlhK0VWSlRZaD
4DicPWzC9hBvV02oSsKq9WpbRwumWqwtFj/h7A+LLqYnbjduG7OKaeNujUjE
mpIgp8SUhCREJnKIk+F4xn/mnfGf8fyfcZ6PtKvd1rHnnXnmfb/v8z5//sfx
vl/9r/+i0+ne+W/Z//pVj6Ptt7/teffN/579P12/eeeU/TcnTxz5zf89aT/5
2/95/L9m/+H/zv7nUvZ/EP/7NQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGiKz
Ohf58mbw+0RqW+lLAQAAAAAAAAA2Mj9PDB3BdAQNb/kSO0pfDwAAAAAAAABU
A9+IXNijK9DwTnAF3LAAAAAAAACAmtleCb7TkNevmPHM+DNc6StSOzvp5L2v
A1+E4ysZpS8FAAAAAACE7VTi++BNv9/ncTmznB+w26zW7q7jV2dfgb6pO9L/
9js69ZjJMvx5HOJgWdhejXzcoSdjLrA33TMvlb4eAAB2DyJtnyHxAahnFgN2
o66UQ544BEkCu5mdh96jzYX3QW/1Lyh9QQAA8ALfSN77xu9xDtjfNrc0km90
Y4v5bfuA0xO4M5vcUJ+zRqTt825PfHgeHjSb+z++Nn4nFk8kk89TGcajxjOp
58mFeCwy4b/ygfXQcHh9190jjUM+QYK52JjDVAiRPOi+Dxs2YFezfd99sBBz
0XDKv7il9AUBAMCVrdWZW07bAQwzdZ11esbGw9NRgunJgOcDq4lUs9gBm/Nm
bGlT6UtFEGf7DIkPC36rvoyDrizY4d+NP4ZZXrPgm5GRwjuzfzC8ovT1AICy
bCZDf7S06Fu6hq5Ff4E4WADQGhuJ8ffbMGPH0Fi0nKMVT8VvDrTm9YvptHfm
hVqcseJsnyHxoVYFi5lOuacWYZLXMum4p2sXb9YAAACAumF7deqjNqzVcXs+
XVm54avfDpkKKs/Q50+kZbzCKoi0fd7tiQ81KFjCA39rZhWcrxoHn/d1F551
p3d+123WAAAAgHohfxCP6dvsI/6ZVMUVLRVzmYtqxuiYWIG1r34gFWzraafT
Ye9qpWlZfaulb8QTuDu3Btq1LlgJ9uV3ohAECwAAAGgYfN7bSemVg4Ph5xU+
uLMeerex+MHGd0OQy1M/kArW6k/m/28mtfw0mUw+XavilQe0CP4yfK4p/w63
DkfWlL4eQBS21uKTPte7J80tGNZitvYPX/1mfjeeJQEAsLvIRJ2oz03vjFY6
i6d/0u5PQjhk3cBQsEC9ggTBwia0PsgsTrlPmTCjeeCSPzQ1Hb7ptO4jzsna
zk8k1ZR1CwCA9sAzyX+67Qcb7IElpS+lLPizQG9DUZfu6Q08qeB2Q1OYa1Cw
2zHXvj0dQzd3ZVhpKSo3A1Cw3NGiheMJv82QjwSy+ZPgYdc6uTKAhhOXp4tZ
APir2OgB8gkbTt2CRwwAAF+2UzOf2QyYDjtybvKpWueSzeTkxd42g05/qHf0
2ySzEGiRrQVfDxJu4J5lWbdTca/doMP0HR+GdrsrQP1mAAqWBxq08PXQQD4S
qPGQ5wF4YLUNvjw1YsYMdm88RfvnSb81v0vphZOycuCZtXjIcy4XdNFx+sLV
rx9VTgABgN0JpVuGJn7W/jyyHBpoKejXhgOuH1+x/gX+YsZz0rDbz7M0YQag
YHmhMQvHN6POvflXuN0ZXVf6egAhbK+Gz5sw88jUMrP7CJXa0OqMpsr/9e5l
OxX3O9qaDZbh6xNT099e6TViOl1Tu/PuuupFLJ7J8Dnv2c5U9EsBQHkKukXX
0uufV6tu4QC+Euwv5nEZzgSStWWm57wEYi7xomyfZUt80IoZ1LeCTSeCwx36
JpPt0+lVlqeMp59Ev/z85pf3lmqc9MW3cOkoCYIlevB95XU6iBeB6L53wuEa
mxTYnZlJ9oWdj06MuUcG6GUuDK1dPX1Df742DmUueLHxvXN/k2no21WmnaLJ
el2euFxlD/H02tOkaCynJJot8aVvzrUZ24a+Kpw2vogMHyT91QJaOkoAnl55
PPPP4Jjnk8E+G6M+DPmqDjg9/q/vJdPVD1LwTPKroTY9VB0BuIBnFgP95M6u
beROyQyjRTbinrew/OvDUYxl5v29hPMWa/94el3gayTG9lm+xAcNmUGpgs2k
lhfiMaItWyy+INl6IgdIpPfB4ciLqp9diQy3k5802gOLtf6AmBYuJbQg2BuJ
Z9Pe/naiB9977uyLQHTfc/e3Elr8YK/nu1oFfDV20sm7vmGbCUPW3uyG8dhb
hY7VxX94wOb0l+2lojrw7cy24MsU4Uu2Fv2nGsr3cNmYdRdcsE3nwi/luqmM
lGBxILc5gx97/N/EFtZFmIPwxeCZ/Q3d1x5tFW9LKupszclCNcTV4Oml+NRN
99DJNj1W/dbkX52W7sFrdyvpWDx1z2PLrm57+4K/yDwQQLvg63ed7cQmuMHy
13/XQzmi7dT9v1jyGmCfzXOPq8+z0A0BM/T6EwJWRhG2zzImPmjKDIoKNufi
HrK2GugTpalrYPRm9Inax1EGtOEam0uKChNttvge1z5WsSxcWqjRNZhO9p80
NRkszuAcuvl7tTT5hzZi5TRYLscERQZmnseunyX0MFloethz687MfBItzpZJ
Lc3HQr5P+s3Ggo0ddty4v6rau5dDHJ0mvJBL9oU17nd+v1H6b/CfvJ15F2xD
X1C+nsGSKFiUxpau31++/QOb17EK+Eb0j/uxtzxx5Lbhj32WZvL7sX2umHL7
z9zE+14XY3OXHXXHrwc/8YwFw9PRe/GFZDL5ZH72X9Ph8TGP82xXbneI6c2/
98WeM00qt9gRH3jbO6/y4yFANZC7PMJqDKd8c2UmGI2RWYlPjFoN5Hugf3P4
9kNe69r2+vTH7bmV0TPD81hL+PZZzsQHjZkBqWCP/WUy6LQYGvTmgcuBSPzn
VVJwZFILseClU+RcadRY6j3BSnhwf341aB6JbFYxX/T49bArxulIUQwLlxY0
CFZHnAsMBuZKHyWe8PeQkhI76orxDZQtLJ1Y65krofhadVGa+SXqfacVK1wV
tT9VJWpRsDvpteW1slqO6ljR1On9Sb5bSUUREBIrGpnwXxnsMpQ6EvUdQ77J
GKnFKjI/G52OhP7udV8oiDQKzHTik/EHLEZV/gqfBHr3NPQG0KbhyAGNUo7K
nHZ1mGlOV1KuZyfh5ao+Azy9PPvVJftBcqdIz7MohOgTsKddA1pnMxm5+h7x
smS3M+/547yj39MJfx9pNoZub1yT0V3pJ9Hg537/f3rdf/po8LQl54vTd/SP
fh5bErCPw1ciI4fICajTOc2jnZfw7bOciQ+aM4NCV1msvf96rJwfbDM5cZ70
zmEG22czGhKx2/fdBws9qFhcUsjxK49aqUItXGqQINjsQ+zxzW2VvUaq5Ehj
f5DPMPLytYJCLs/Wasxjy6sddYtYerTnQvxeNDoVuuV19XeUE7aNJusHV8bG
w9PR6Ow8otCep6QaoJBdmOhsr4c/2MO4JSy7yFKIHfSXJQLPZL8cXuAWIUGK
1ZaB0DL65c8CxQ51fYFnssdKZVbi45/YTI30obkCnE678BezPvK8gxKxxema
fKMGwyoK8AXEZ3t16qM25P3Ajnrn+JxU4Ftzvh5yHsY6PfHyC4Ta2UkE3rVZ
cxwj8jvIG9Jy9PSwJxB5xGfnW6Bw0sorXFD49lm+xActmkFOwbY6ggsVJ/Gi
QtNhxv7Aomo1Bh1ke8LmkkLCRHUW3wKPXZYQC5cadHSm8+HKGW2Ul7HhneAK
11FsPPL2NPBRoZml0JApf32q9WNXBl+LjXbRvYWKvCbCdmGiQzmEC/B6s0hH
5YNx59u02CZDz+jUYs2ik4wmYpg0Pu/rLhg7fXGRnnyFcFR36DvOjfGM1NpM
Bt8jXh/iyC+FRP3VtjgCmmbnofdoM+0tq9KYqgqFhI7s5tcZrZ4woh3w9HJ8
6sbIW4bcK2Z+91r0F747VTL7gNQS7a4fOJ2sC94+y5j4oEkzWI+5jh0d/b56
Qhy+6O/J3/GWUwFeC5HcoEGwne7ZqkaHhInyTd3lb+GSg4yueik85Jyc65EE
vvXoWneDjh7qU/tfL4WH2gqLucU9o7EyUCXxBXqrf0Hui0CCYFXRsaI06EJQ
wZPN5NRFKxqZgB0ZDNQa2Iavxe9EF9Cd0U7ccyj/RVVa+UgA/jIR+pOFNpCD
vZ4pASG+1B6q4c0TJ0zotgGCYOudkrcM6/YlOFtz5lnQkQsgq8dOKOipxD7b
5bs8U5XT99wdzeRNoscDsCB8+yxb4kNdmwHqx9v/x6gGcseRIFgWlxQaJrp/
MMzXEHhauOQQDcRqGt3OeujdwqEml4IMr4l9ZshxgNjntr5ptb87evsB55RP
aouka7CNqTcnrhz4gs9CW0ZYC19IAOXzVEVmvdgK9nWhHE0T9YX862ynYi5z
YXI4y/24gS+ZX6Yvn6A7k096SvOweECcMzJc3hAEuwtg+GD5hbFRxqMhzxsn
UjNuS2HT2NwxGuWV0lV0UukaevyLNX+D4O2zXIkPdW4GiL9ax3CJqxIkCJbN
JYWEiWKnA0u8J32eFi4xm/PetwvSsHpsAPJJjl5EPOHrpp2jHxwMP+d4nWjb
FK29QcWE0DzydxNAA6LU0bFCfAX7GimyXVyyefU6RPRe40BInpuFpx4GBo/Q
IwdE7OhHTT5FIAh2F7Cdmv2bgyjq0tjSNcTrlFydy5bI0Joa6NqGwkt8BkrN
G4dGIrwTXsTaPoub+FD3ZpBJ+u1FC5Bt2ucNEgTL6pL6JdhXcMEe8sSFeK/E
sXBxQUbX6Z2vdk2ohuQUQYdK3xw8jtFRD7D8oYnCUF7BqiwI9rVECvZ1Pi0X
/VrOJV/wjciFQpaZTJvxQnXWIhJkxW5MDe9Bt5EQBAvUALVm8XA7aAh0deOd
prQ55z2WTxDjmTEn4vZZ1Dl/F5gBbUVS+/kUGgTLdqT7MjxYiB/c65wW5hMR
w8LFhRodW4gv4rXmuKcrlrajJNxwZI3rldLO4hVJD+eN4gpWbUGwr6VTsIQ/
ZdrZSeuV0fHpDIckqOfhwYP5v9xzISJ9QJQc8pVgLTKMvoYQBAuwkl0oz+b9
BtoIDuQNVWmHxOyK8ZmikWg3fgeF4m2fxZzzd4UZ0FYkPrnqcoIEwbJd6vas
u7CeieC1EGzhIoOMjuV9wZN+W1EWcNvTodW6dFULdlWFZmHyepA2Yp5ThTos
JLa+9y/57tTab5q3gsU3ktHP3UN9tN+22n7tnamScFcGtQXBvpZSwSKlPwpw
KV1IJTZie4anJA9YzywEHaiwlK4JNe0UQ/VOBkAFUGG0qpk3uED0X579MfZw
qYb9K74ZGWmm3kK+gaNkaaz8VMun5qR422cR53yNmgH+In7zD7ZWo77tlHP8
EWsJI/qKJLwwu5Sg7kSWo/NM0t9bEG5ieC2EWri4bC8FTudHx9Kzg7b8cd3T
4al71/oPE+ZBdIm9zbfzRaE0cW6KkTOKb+dJ+M+/Y3ajq11s8FOw+NPwhTeZ
tWSxlo7T738afsJlGlFfEOxraRVsmbDP8tVmylwWVceG4YfB1+fvRmvds9RI
ibtYh3WNxtakqghMhU4JP04C6p5iT1KdSNVEZYXs05qb9hpNvdfjbCqWMSHx
qzpGWyix474EN0+DeNtnEed8rZrBzpz3aHFureFZ0AxAUMaT5KAzOVvDCyQ8
RhyvhTALF5mXMdfh/OhYbgTitdbpu31VVb9U0BSs0JhkHmRW4rfOtTFKu7aP
xlh3ynwUbLF0CfVTBsufQgkeRf2QgCj1HI5Iq2Cza8HkoBF9VA37R6aqlwQk
QDaYugOjsVfUH5BlG8UtIrG5GDhLf8QSt7mhQoa0kGwLKMyLqLOwOsg/2QoF
TS3X1XJmR5+QeJfNRJ2fzUe9D7ncNhG3zyIGwWrUDNBI0VrWXFTzs8ohZUGH
xjaTE6WmCm1NaU6/zeXZH2b5taLjb+Gig0SoVtcPaBqI8b2QMiqIFmyvkBgr
9tQrUoOe56FgX/3oOkDPHTeeDSzysjckIIrtxEFGpFawzLDPmjaMSNEMxrtJ
Li5imhzV3YayaH7VkmuneM9FbJIO1CvUnC9AzikGkqFMztJsucMMwSMgSg3d
BXOSfCJun0UMgtWsGdDjWlnP4GiB0Oqu04K6E1kCAxBvLb0CKhGH0MwzJoS3
hYsPpWCrHprsrIffLziLmjs9swp1Q6b7YHU9vgUlLqS0tCbrQ+SsYNESxIJv
O7VjUtMUJLmCRXMicjS2u+9XvYfIKsaQu3jC37PHODgpWgTGVtzbTd8JyVAm
uhg9pSVfCqAI6OujmtAjDtDTh7E33TPVJQndZysoUxitvcPh2F3M7bNoQbAa
NgMycwfTt3bZHaM3Y6yPE5WFfDLN5QMNgmWJdkD3ZTRTJJUt7wfK08IlgKqB
Vk3BEst3XsAq2hWXoWDlr0mVA6nXl4ctQJqzgmXkvgkJOEEPRwT04xAdyRUs
GlRWgCU5Aln1aM5qfCM22o6JmHqZ67CM0lC+q4645O85BMECrCBHGCqpv8eN
otelsaXLcTn8hEXA7DzwHGoU62VEWhLUHnEn4vZZxCBYLZsBqVtqrV6LnDKr
vGUS4lZleyjFLlo6RlthMr1LQKogLwuXAsrX1zwcqbCo4RvRP+Y3J/xauogF
/thnadZRKKVg6TndBGyxKJwVLOMITIjTTJVBsK9lUbBMg9Gxba6pjQNtQ0f4
S41Gx4RYpo8nb52ixw/UnGgmjPw9hyBYgA0OHX/Uytasp7O5NpcLssZlMTqC
Aks1bkaGCxNPzaXLRdw+izfna9sMcrduf38gwfY40wmfPT9OzvXDZYYR7lL5
JJqRJmzxLRQfHxEGsFdQqiAfC5eG4tajQoQknoqO5mX8Ppt3VjJ/Mb6d2eaW
LKqYgkU3IDmaLb7H1S6eq4KlOQQI+Je2VmcQ7GtZFOzrF5Hhg/TfaDjg+rGy
L5vKuqU2dJmfJ4aONLSNTC6JFDiKL4WH2hhXJYcD9nXBDiEItv7BMxlBe1XE
z6Om0CNu4On4NZuhwWC9OFW1YgyyxpF9nGdeCJ4mFwP2Qthdra5L8bbP4s35
mjcDfC022oU1vD36fZVudEgnR349HGUFjXYgVFl/sNwF4y9mPCcNWJv12Bul
yytZpUHgkSIPC5eIjbjnLeLhlT2npopV7rN57vHqFl2BzPpC7Bu/xzlg72rV
UxsFrOXo6aGLvsn4Wqkbn4rtqU0HSgdTkbKVXuGqYEvUHd/SLmoNgn0tj4Kl
NQrMU92bXdy3Gk64J+5GJv5j2LIXaz3rmxW+qOV/YCvuodfPkssB+7pghxAE
W69kVuKhq8P2Q/kXS99mHfSE4ivcpw4uyc4ig2dSz5OcWE5VEydxv6OtSWd4
a+TG1Nxa6Vu2k174dtSa7yci3puOhoF1umdr2Z6Kt30Wbc6Xygzw9LPZyb9d
Gvp1R0vRUWNotf7ORSz8vGbCKg6wzJNJ59sG7KD90j/KfHn2lRl3Wkj5iplO
X40957fOyjciWmMp0mhLSnriqUchV48BOzI08fOrYgOCYm5gJhHo3y+4NTAP
C5eM9IzHYsjeCWN/YJHSjXhmNXa9v518tIcd/gciyVc8s5adZc9bTYUHjbWY
Tw4MO0c9vhs+z+hHgzkbwPTmdxldvEs8n8opWKoqUR6RFSxTq/OOxkd6qfDt
MiMVcihYRpXynL2xFfrD1+e/vjrc192qb8qa5uDl4OyqiPKypEKCnHWhM6vz
sR/uLYi5EwVUAp667yOma0zfdnLo0tXrVz7Iz7HkQsZxXUYPL6Tu3ZZJLcRC
votDfVZzCyNsvXYwfYczXEHmZRf0rz0Osz57b0xdZy+4vf5g+LtodDoS+vtV
56m2nP9E3zng+Ua8as9opBnbCR11oaJsn0VMfJDADLKza+iS3VT5QevfHL79
kNsMhS8ETrVUC3Io/qj+kH3oz95boUg0Go2Ebnk/7jeTjkT94T53OX2rvhGh
QbANrUcO63Pa+/hH3i/C09lBTfiJF79J3/G+fyanxjeTE+fJEqD7rK7bkchX
VwcOYyJESvCycKnAM0t3LxN9LRtNtg+vT0xFpycDnsEuYmPSaLJfCs2z19Gs
6WeKMwkB+VuTD5bTJdKMaEQ1NtRhpM+9pdGnyiXBcfWRclWwzM9XLQWDv4gH
/tTbZtSbfz/GmOsyca8lf6GC91xiI4eCRVvO1XzzpYSsisO8HlXnvQJaIN+Y
GDvsuHF/Ne+FQPMXLO4ZLjaPHkPTEkDEvejsPO932g4wTiT4Qi8WVPpr6aV4
5P9dc18YsFu7cr1psBbzsd6BEbcvFFuo4sflBepv4VCaSYTts3hBsGKbAZ56
4HccruFxczrwzdk5e62enJvUPUKe+hK/Ymjt6ukbuijk6cs+ItQrvrcv+DSz
9igS+Ct5kk04IcnCC66SI+yttThhVZbsZ4hzmc/uLIjwSvO0cOkgTqCuOQdO
EBvh7Ktt7Ru6NBa6l+TQT74am0tRb39r4XUwvO0M/lT9geKph4HBIxg19zIq
VCvaNUNFCnYnFfmDqXhL7IEl5CqpnggNVs+/1eSAfS2Tgi2N96ihMqR0vEr4
jjOnO4G9IwEAXwye2V/G14rU4uCWbYGeMUkSc4Jnlqa9uQM+0VDZGRN6jiZn
AoKIiQ9imgGeSX7jtOwteWqVaOn1z9ckK3OFkhSoUa/IiBCvuOLpDEpZuPxk
nseunjYVmteyxtUXyQXYY52eOFHmHYkczsE/NlQwJeqroS9Y7bRGQgVLS1ZC
Er7wTMLfm094ryUZU3YUU7DKxQOXJOgJ7h0JAFvJwBmDzmDxzDBPpJYC9qJG
5JJtgZ5U0jfForCZnLpoNYioXjF9q21o7L66gmPQ+a15JLIp18WJl/ggohng
q3dG2ppKnxzhCDW/weycnv83ff4E6xlrzl3JWuhbfJQZEbqCKJ7OoJSFywwZ
i16YrTCD7bMZDrFGuad5cDD8vDT0VBLBUyNc1RdHBYsv+Cy0z1eJokf6Ahvs
3njua7dWY1d7C1FwgwGOQTjyoJiCVWzrg1QsL6KmCr0q4uVc8IpTLVwJzil/
RFYJfGXCYcSwjk9nSk7L6IkD9to9NuirKfLLgr+Y8Ra9GTmM5v5PfBN3Z+eT
a0REWSa1vBCP/uP6R8fpH9t/JqiuMCg20OrlHG6+MMRMfBDNDLYe+nr2IfNv
R7/LF4rNL1Fn9zvptSfxaPDqeRvy0DH2Cgw5d6VsmbBFFBoR2aMh91XVi+rI
gyIWLi80+arDOi7GuIbK4/O+bn1DX3CZGdCIKdq4mNFbQWQFWyLuqny+2JzU
2DF8Y4pIT/Bfyb81hra+y2LFMIuPPAq29FcUU7BkEWnGpWiuSLg8lHtqCqLg
aQ8bm3PeY5jugCNUGiPAsLfalxi0gkdTp/cn0SaQXIUf6pKIJIuJiqUSsttw
jw111e7/Y1RL8TZoD3RRY+9lSnwQywxSM25L4QC2ve9KqGrC1HZqfsJVKA2h
w45556oc1+YcXHKVIqRQakRoKpAasicks3CVQJevtbnQSyH7lzW94x7tpq8q
ylZlR58dSXU9zU3BosmkOar3z91JJ6M3R9/NBagT2Ql2h9MTiMytqnXZJdl1
CpZRx4+cz7RXJFwW8J/Hz7whapCkALA3zoz/rNKnlOtw3X55dqs0aRnpXa7j
dMyHZhyIGDS+uRg4i8SB7bOO3kmydD7aXp/+GAmW3dMbeKLSB1EGtK2tiKuV
bIkPopgBnp75tCNXabXt9/54bUUVKOVQVZ0q44BVcETrUWd7/oGowvUhkYWr
hI053ylku83/DIjUIMaWFkYMQXVRJzUlaWXVUzW5KditBV8Phy/XKPIoWKR1
SBFlFGxJHT/VVegFNEaucWr5ro6MqhdcWqKgC5NYUS7bqdjFDkqL1pyajT8N
9lPHtQp3/+EG2jtexI2AbIkPYpgB0Y6BUAGlNUtZyMz7e0kfkfH9cHmpppAD
VsERIUGw6ngRJLJwNcCYr4SdaJQLZVQ6jLm0tFfVcnncFGxJJym0H1zdsNvi
YJk1fnX1uG8F5IQ8CSrbieZ15lkANTcylYDT19Y0U9UKPe2lweQYZ/O+Un9K
O5DS0l4ePYXnXdC7FNkSH4SbwfZK6D3CJ2w8G1jkXEsWfzZ+xohVnCTxZyHH
AdkdsEqOCAmCLb9plR2JLFwFpO+5i036CIT1LyuXTq54GHNJVk5VNcJJwaLl
UMjB1qenTjEFq8y7hib2FpC6VjxQ12xOO/di5ffyZPoAZWjcKrahQf5iKFh8
JTKCpJSZzodXOcxn9LRW5WqAc4bWEFC8XbNsiQ+CzWDnofdos658kHYtbC36
TzVUOD4g+6JixsFJns3W+aHoiKgFkyWYVjYksnDFKbSpLYAd9c4JUQxlRIgK
wpiZlZGqimpOCrakea7yg5UCxRTs3r7gL6L/DitlAnK15FAC1Efqe1en+de3
HpdOruRqWNvUVAZxFSy+ERtFYlm5r/5oTTAtJYxIt77Lk/gg0AzyTXIFHb9u
TA3vwcrFfL6IOg/rsLc8cTkjCBQeEb76ndt2oKGle1AthePqU8Hmqrsg67RQ
j3cZ55UqisCjfYFJqgQ2cFCwJfEJqhisBMiiYMslcinTxLnMlRx0zwr0rb+6
7zlqZI4PgVjdrAXynWhyNL5Rl459gODlrPtXiBX8yj3LqRoYKl0EpxvkklMK
NHRfe1SadFYd2o5eQwqWFv+gwfVdoBnk1keB7hdS1+nanVGaYxJf9Pc0yN9l
sv5GJBCtW3hZSrsOCTz3KU3MV0sR+JzV1TRSDgqWUeVA/lIhciGHgi0NV1Ys
i7OMghU+3jKxtTXSdNjzABRsffLqR9cByiy4H4GJWOYx77YqwOv4lTZ5akjB
SllWVw4EmgERr4u1j8YEuV9y9sOI+8pt0OQ/mqy/EQlF4xZejq377na6ZBCa
clXi6lTPg86FXlNUPq2rWcEyVXH5NI26QA4FiyZLFu6oQgWsJFGwRPn3p8k8
iXgsGo1+Fw7+7cqgxaBjgrX2X/JPRLIfmZ1PJp+nak2lAbQFvhG5gFTR4nEE
JqKCfR4eRJJSeRV03Y65kNrxoGBlQx316slORrSWl+uTg0as0KlTg9TRiDRu
4aUwdtw6EVKu8ITfRl+ND4zGXqnkQeOZxJgNFZyVujPXqmDXY66jaAkH09C3
qyoZq+jIoWBLS7AqlsVZOtzm4YhU4fhlKnd1umKyJj0ACkEXjQ19gWdcFxZU
uggLuVkPDVD+DH5rwfZS4DQyJWoo+XF7JfhO8SXU4PounhkIguwmT5VbzyVD
GXv8Cc0ujHUzIq1beCml/lLB5QRpcyCx7B/1PlRT0YaNR17UadrU7rxbJhe0
JgWLbz261l2LHq4PZFCwpUJOOZ92mXBu6doil7ZgVryJNiAL+EqwH5kwG/uD
LF0syyBWJhcjhodfk1N6aUFVFHKvEa3nuYhdkoInZOl17HRgiVwKc9UAKpZU
1QR1MyKtW3gp5OYCpeGdoCANVhIEy8elIDGMFslYp3O6ZNGoRcGmZzzo2S9m
Hpla1tqmjAvSK9hS0ahkqDxzLyahgt1mtmCu04JsABNGGVh+AVfoNC5EutBP
QPhlpNJLvmiqh53W13exzEAgOSd8zgmsVBtZcambEWndwkso1SSdXmFHtvQT
MbU+aHz9h8vde6nLNL5zM0Evk8SqYBkdeGvvWaNdJFewpUmFvOv4iQGzzK8Y
tQjKk51YeukDF6uzEqBuGGVgecWd0psxCZAudPFJC/yrGXrZbW1VTUfXdy12
LBLJDARDLhQHhyMv8npALdVQ+VMvI9K6hZdQUntTYKQf40RM9gYcHMBT9zw2
xBNrOOmJPae2JFUVLJ564HccpuZp7GCvl7d83U4lvg/e9Pt9Hpczy/kBu81q
7e46fnVWLcHDBaRWsCVJhVjHpzNpBW8C0kwnvyBLdCTKKGch/ChEfl7OBa84
1cKV4BynalSKIawMbBFUuggonkw7dGjq9P7E/d1juJQ11M7gNb3zuBbXd5HM
QDDkURpxA3ONkrVWcqoM9TIirVt4CUydZrQHFgV8Xb6BRXFCVqcDtgiefhxy
vk3FAWDt/d67yTQpUSopWHwjefeaw0yFXmCm/+OZ/kWAN74kkCOHCsMgpVWw
udMZFEUdsLlLoiWJ60qrAopDrlUTitCjENkpV8ZXQTRyQMYoA8tb74nkWqFN
erxOAei1ZIV2xpEbVAHmHG7aQjUeNsKQshfwiNQD+/qDT7U1mZWhTkakdQsv
ganTDrtiAnwXDB+aNtKatlZnbjltB4oCAjPZznsCkclL9Ay3A4OBH6LBq+et
1Cd1+sN97n/E1wQ6mfFM6jlZW2kuNuYw5b9alWGQkirYzCOfDVXymKHXn1C8
ftTG9879aGZZY7v7vuiHCvUQBIv/PH7mDboKVw7sjTPjPyttOjXAKAPb7SuT
27zz6Mbxw296/13VHtAMLIzKmeYKbTngI6fpIQSK70C58kuwb6+Q4SuNSGYg
HMKQsH1/8nq0mvFUQp2MSLiF45m1R5HAX50D9q5Wg07faukb8dyOLVEr9XZG
zlWbqWCFFJHLPAs6EAnS0uufr+270ongcIe+yWT7dJqt+zaefhL98vObX95b
Evcu4RvJ6BeeYXubvpZFuLGla8DlmxSsXZkXsRkZac7/hCrDICVUsAzj0ekM
ff6EGlYQZsNlvpGKVZCgHgigARge/vLFeXbinkM17GjQEqxNg2GebgjacsBj
LUjFXObi32uvWiYa915MPNcU4piBcMi+LY2trQdUfw5bK/UxIoEWnvkleu1d
M6GRjOb+T3wTU9HpycDlAXNWvPVem0ltpWb/RhxPY0fOTcrlo2bU8BESfUfz
VmGGHt9cbdNXLrCEhNWtvRIZbs/N9sKiHSpfTHrl8cw/g2Me16CVHpioN/eN
uDx/C4Z/fLgsUWgmomTUGQYplYLFMwl/rwHVifv7AwmVnAKX9FzefyYoagxU
aUsRLRUgAnhTSxnY3JxQQ1WrpYC9aKS830r0S5rOhV9yM3P6m3JoJMK9Kpiy
oPObkh5MAYhiBsKh7iS/gmzqoz5GxN/C8UzyzqiV3B4ZekanFpGpajv16D/7
jI2m9y5+Ysl/u3y7J2b3Ad4+2NSM20It8xwcaGiJXTa3NpVo0GzxPZZ2euTQ
VVYk0KxkdYZBSqNg8fW7znZ0H9XcMRpVU1UHRnR3VsN+GFkXa3krjf7VVgEi
gC/0Wm0NvYEyJ+654gC1dIQhvG+FCZh3EDCtGjPXtSDXPj4/Gk02dkHkH2YP
LCl9OXwQxQyEU7yTKszm4Ed9jIinhWfl61dDbeQabTjpmXlR8mZvr4TeQ45Q
+SWB8oNRv4hf/xQ8PfNpB/Utrb8L1b4CIxUIm0cim1X+Dq00KyxetxbkV7Dk
OUVu/ldpGKT4ChbPLN29jFaE0DW1DX2VVDz8lUFm3t/bQrvIkTuiLNB4Kjra
0Uy/p9oqQATwg1E3e09v4EmJQeUbstcWeo1GuPF2RKD1YDmtBbQlAGv/eFq0
LZ58IEfwap2B2RHFDASTXz3raCqrixHxs3B86ZtzOfla5fyRFtIvTb5zpctb
9CMdqloGQsucv4HmQzNYLsc4ONCQXT9b+UGkEIQMx6xyK1h0ReNX1Vx6RFaw
26m439GGel+NHSMTqpOvJMhbnEOE8r/Mem5KvP6AQtBKi5cPIcCfhRwHai5I
iEZT856s0NBcDmsBvnpnpPh2qCWCnStoM1w+66A6EMUMBJNfPbWYDVeBehgR
Lwun2j9hxjPjlTMzkU58csdAFoNLSW3IsachfRXm7EBDejCxeZ7RgAeLb0Fq
mSO3gkVmHtWGQVJeYp3AB4GnHoUunTKh4aVYe7/vvpqCBxiUBuvus47e4au3
qbAirG34q3HnAeoNVOvTB8SErmDLHE3mvJq1p42gW2ABQVZbs57OZk5rAW0J
KH/IqAmQJRjrVcx7KRSRzEAYeVeHpg/c6dTFiHhY+MYjb8HBib3liVeeilB5
JnsMJP5s/EwxAr/6dTL+MHXP23uw8Jc8zn/RINhcy7bKUGFjchzxlLgbJS6v
hxiAWsMgt9fDH9CLo7IGfpSSSS3EvvQ4zLSaD5i+433/zHOR1gzpyn0g4UCF
KzdYnOPxFU5XTtTTGDvXQdwBzGC9OJXcREOg+TVCArQGWvio3ENP33N3NHMr
SIhsMBsHQnz9+Nur4fOmmtcCVL5iptNercpXepq2poWKOGYghNyyru0Ddzp1
MSLuFo7mZrI0caBqAigSgZNZmhxpK2iKBstf7qdYL2EnnZhwWoohN/z8UUjY
FYvrCd+MOgs/JkOtoZIaSjrM6JiQMLeW0ufqeE3w9NpTskht8sn87L+ikQm/
e8BcptSYvmPINxmdnU9WYX42Oh0J/d3rvnC2y8T8Cn2n41qhi4RwJC/3gWdW
799A27ER7O0a/OzL2EKKxf5J9X71vNVEPmnsoN09uZAfeDGfS84YeEBJkBos
JUoj37GaU0IBfYUS0v4YX4uNduUsHOu4GKu4FmytztwoRAFlt3IfTya12Gez
ADUDY3ud0xoeiVhmwJ/1qLNdjlwV+aiLEXG2cFQFlQ3Up0BKmitUChJ/MeM5
WfACYwbrn8MLFWup4Oknd/M6gcTwtjP0mE+FKSQIls3xiByyi1ipj9JpBAvx
e9HoVOiW19XfUa6/UKPJ+sGVsfHwdJQu2Z6zSRf260D0uTrCICVvsYTp2045
b0zNiVZTV8ZyH/jLhTt/HTAzO6lhLUdPD/3ZeysUif5rdv5J3qKmw8Gb1z3O
AWtrseiH0TzgCTE8t/jy1IgZYz2JAOoHpH4LVW0gu0WKXe9vx/gEWqMxkPxy
cgtknkzmmxWWPR/JpBLf+53H89tRYhM6LXKBbrlBZ2C1piHUinhmwI98Uo9y
eWSiUw8j4m7hG1PDe4pH88d9iSr9rjfnvW/nP6lgIVB8fe72SEdRl2IHbB95
x+/cn08+XU5tkX2j5mfufHHNdQbxxRnNjv+ILvF8R5AgWFbHI5JiKeIRjzg6
TbhhlwTB4hvJe195nY6T5hZM19hiPuFwjU1yPK0WhCQKNjsQa9/gxx5/KPpw
SdSiukqU+8isxCevO3sP1X6fsBbLwKh/am61/HPMPIt9Pb0gUbFhQIXkfa26
/O74+tVLQyeJpip8Y8LJ9gc5WHwm7GSXg+Anttx5AdHD5bfDLo/vhtftHDzd
0ZJfAPQd/aOfx/jO/2oCSRPecyEicssSuRHTDHj/ukb6OtdCXYyIq4XT+62w
iK7l0EBLbZ+Ump108u41Ryf7ooyZut4r8SNxAw2CZetlQEVZiHrEoxIFSwuC
vZF4Nu3tb8eIO+z2h8hzcHd/KxE1ebDX853GfR2SoGi5j5308k/RkN/zyVCf
7c1WeqAF1mI+Zusb/MQzFrwTE1m0A3VBdh8U8gxa2/LzkP6Qffgq/3k1Vz+W
RJQYSDydvBfyuRwnzC3FoF1M39rdN3TRFyLiZgT/gjqg7hu2Z3hK86cgYpsB
FwreGHWWNOdDXYyIs4UjipdVdG1OO/fmF77m4YgKNrRZHXvva78nnwtDYWjt
sg84SReaCH2pkCBYNs8zEmWxty/4i9BfVhtIkprpZP9JU5PB4gzOrSN3+NXS
5B/IQGWOxcp2Axoo9wEA8qCFkibqAzkNPOyMVu8LqQmUM4NCUqqSPW3FpS5G
xN3CFwP24qElS+ktxOdfj/KsEmj/F5bdTSbp7y34tpQI7JEWNECFeFHaBgNz
pdkTeMLfQ1oUdtQVU0GgrFrQRrkPAJAHPOHrxmpad4ACiN5rvzxbWzN0laOU
GRTyE+snI7UuRsTdwmnt+aqLrvqWZxVBNgUYW4deJMpCmeRKSUED7zFDj2+u
vIFtLfh68rtqjjV76xjtlPsAAFnAnwb798FEwYGt++723BmYvttXL1tbZcyg
WCOOLSxQM9TFiHhYOBpg2XQuXDGt/zVNntGUHJ5ZenB3dqleIo0YoEGwbJtE
pNcz3ZO/uTz7w6zW8whQ36DpfHi1oraibAoOwfNoqtwHAMhBsTKbruZ+XrsZ
5HZxqr6rdhQxg7XIcCvpiRGvXpDC1MGIeFk4IrpYkrMQby096JoIE8XsgSWB
l69SODTgRry1RntgkfoXxK1rVkX1VCEgQbAHXD9WqViB7IqUaxeoKjRX7gMA
ZKAYcaRr7vTMgoStRq51L7n8trvv19W9kt8MimJG0y0hUOpgRDwtfMFvLciN
qr3j8QWfJf85eg+4+pBnlUCjLFh2N6i3ltaVmFS26qieKgBir1OTbxBt4kNX
8rsUjZb7AACpQbwu+/8Y1XhtKEnBF/35MHrDmUCyrgSs/GZQ9DWpIyFdBOpg
RHwtHKlFUEXBIt1PGB0fyPQusytWn642xK3KliyZ666YgxaPQcYPa752X+2+
QeSTUre41QaaLvcBAFJCOV6MPf6EpqdIKXkRdR6uZ2e1rGZQ9DXVTUJ6HYyI
t4Xjr2KjOdPR7XVGy/eO30xOnC/2cqW7Il8lfMcxqlFLnYG6VbP0+BYq3Fp8
ZdrZSVXYtPgWivcDfxLo3av92n1IpwaWBHnEi6jhF0pEoNwHAFQCzyTGbA3g
hq0Ceos+jKzXZWSRnGZQiAxkCejSEFofkTALxxcCp3KSo6wrNSdfm49YLaZS
ByORO2asz10hARoEm2Vff7Bck/pco1uszXrsjfwHEW/2zpz3KKb92n21J8jT
qltovEGzKEC5DwCoRrHQXJ06GAVC+SfbhsJL9Svx5TKDOggZZaD1EQm1cDyz
GOgnSv0wSyTh6UTYfcqE7bNdvru0MevpbKavremEv89QV3mRdGjag9zitJ2f
SNJ0BZ56FHL1GLAjQxM/vyoGchSd0plEoH8/S/UkLYAkyLN4EfGk31Z0RkOt
8tdQ7gMA2NiKe7vJOieGPn8izf75XcT2euRD0o3SYBr6dlXj6wgLsphBITJQ
1KaZiqLxEYli4dupuN9B9LvEDJbh6xNT0ciE/8oHVlMjZjrlDifIvlZ4On7N
ZiCFrtU1Hvln8MqZ1gZCudXrwooGwTa0HjlMNuLETMc/8n4Rno4WblGTvuN9
/8xz8iYUwy32WV23I5Gvrg4cxgynfHMajyB4vb0UOJ2XpVhv1da0aBqXDrP5
k/U95dYClPsAABbwTMLfSy4uVdvV7Trw9bvOduL0C2v/eLo+4wdQZDCD4grV
OhxZk+IHZEfbIxLRwvH0k+htz3BfN9EzXd9q6Rvx3P4hmUZXXDyzOhu8PHTS
3IJhLR2nL3gji/UqX+lBsHv7gk8za48igb8WOthi+tYuu8Plm4yvZdA3bWst
/vXV4T5L9jP6NuvgZ3cWqjndNMLLmOtwOd9gKWjcRR2V3RYElPsAAFYyS6Eh
MlCtpdc/X7/LCheK6RUNVs+/6zNXugSpzaCQV1s/54NaHtFutHDZQNrTszge
655U1NlaiwajFT6t4/ASbkC5DwCoAfzF/cvHCKeBwe6Ng7UXtVyrI7iwi5Yf
ac0gl5KMGQcntV3dkkK7I9qtFi4POw88hwrn4RoNkBYNSsHqndHKlrazHn6/
kHUPSRlFoNwHANRG5ueJoSPEKXLbR1OVu/7tAvCtOV8PcZ6+z+a5l9ptr76E
ZkBWhsGOumJak3sV0eiIdreFSw+SkcTSgmoXkEn67ewKlmqtskuitmoGyn0A
QI1kFoKOViLbwvbZTGp3ziF4JvnVEJGWsosXd6nMILMc+/Lm1/E6uqtaHBFY
uNSgGUmaDJAWFXwz6sxVg61cZh/pq4J1OqdXwCoRoNwHANRM3gW3S0Usnopd
thhgcd/lZlDHgIVLz3rU2Z4XsFoMkBadYoBrhXYGeCo6mm9Jts/mnYWCOCVA
uQ8AqJnM4tRoj0HX1Oa8u7siYnce+4/v02GHHf4HsLjvXjOoY8DCZQAJgm3o
DUB1l6yEjXveIquJlev6kT/x0cGuqjpQ7gMAamZzKfaPm+H53bUdxpdiX3xx
Z34dJtECu9IM6hiwcOlBgmChJFSB9IyH8Pxjxv7AIlVALKu4Ytf720lxC7sq
AAAAAAAAxaDaKGHHvHMabHMhCXhm6e5l2z6drtFk+5A4B5+eDHgGu4hT70aT
/VIIdlUAAAAAAADKga9+57YdaGjpHhy7D05FGpmVeOiac+CEuaVRh7WYrX1D
l8ZC95JpuEsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKiA/w+N+lK8

    "], {{0, 106}, {918, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{431.32812499999926`, Automatic},
  ImageSizeRaw->{918, 106},
  PlotRange->{{0, 918}, {0, 
   106}}]], "Input",ExpressionUUID->"7bb8ca2c-a27b-49d4-8e51-f72bc352995f"]], \
"Subsection",
 CellChangeTimes->{
  3.7467908610581846`*^9},ExpressionUUID->"2bb1e4eb-51b8-4951-b32f-\
2c268171ecfc"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"G", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"I", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"sigma", "[", "3", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 
   3.746807033746698*^9},
 CellLabel->"In[72]:=",ExpressionUUID->"98254835-0aee-4877-97ca-f3aac4f1a0f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"G", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, 3.746807034420087*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"3dd8b134-77de-430c-8b15-fa245e43cb8b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuIUTutVZp9fO/rI/j7cCaRN7Iw5bwFpZr/HGXeB9LT5
517cA9Iaq3KSb3557dh3vDvqDpD+fPLvhwdA+pZLUugfIK2ic3HzXyAtVhrc
o/b1teOu9dWbA4D0pmlzjgUCafElv9SCgXTQ0xCbVCDddfzcCxDd48l3mEno
jePTd6G79YB09n/tYlbhN455FUr+fEBaxOCLKD+QXs1xogFETzBZuQJER6kx
SFV2v3Fkkn74CkTbNaV+mdbzxnFy4aTm5UB6idyW5CN9bxwFU7xiTwPpXf6C
qqHL3zg++rV6SSKQnt7750kykNbf/jSvCUi/8TR/sgZI73jIW3ILSPPdlFtT
vuqN460VXoadm9441kdP+nh/2xtHg9fLdE/uAKpvs/9xDkj/u7NZ8wqQXrJM
9JnKTqA9FpesdYE010K+73pA+sjqQ8tLgbQbR71aFZBeaOJ1vBpIF8xnMKgB
0mveahY3AOmQIpP964H0o0XtgmeAtNo1rlIQnfchYOk5IH3+lHzLDSA9TfzS
fBCt+JDz8TsgbdF78vlXkPotm7c77XrjCAC2rAID
  "],
 CellLabel->"Out[73]=",ExpressionUUID->"e70041d4-a528-4d3f-a000-64c4872d2236"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MW2f2563dN/vivlhe8gKJlWXJLyJFEbK0RFEFL4gSIUE0FUK0lQVR
sxDNZiDTDUyrQqoGUnVcTWu0jen+YrWxsorTrZWZulXcDp4WZ4Qzxf3VUUCp
8wtUpsFNSIAgB0Gwuax977Xvc/3v/r/3ufb5SDPqdIx9fX3uec5znu8557+d
HPzd//hPJpPpjf+S+a/f9Y20/vGPfW++/F8z/6PrD2+c7v/DqdeP/+F/neo/
9cf/fvI/Z/7l6cx/zJl/yP7zPgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAICSWl8Mf3Mj8EM8mdb7UgAAAAAAAKqI
1K/TY8cJU5a6V7zxPb2vBwAAAAAAoEogt8IXD5hy1L0RWIOkFgAAAAAAEkgn
4z8Ebvh8XrfTkeHCcH+v3d7TdfLKwgtS72vTi/Ra4I06JswirGdvPq7ZOyGU
ve3EnX/4vw7F1lJ6XwoAAIBCKOTZQIhS66z4+62mYo66Y7V8Xrb9s2+k00zY
usf/GoNHg4f0evjDDjN10Eq87Jp/rvf1AACAH9lgw+92jPR3tZjpVcbc0tU7
OPrRZ/5w7Mk2huuNQp4NhCjAPplKPk1kWYxeH7HlTsuOuO5CeAEIYu++50Rj
LkA3233Lel8QAAA4QT5fvvXpcHtmR0+YW3oGR99z0Kcn9lZzznEQTT2jV28n
sAq3lPFsIEQBUMid8ETOqppHQ2t6Xw9gENJ3XUdyB611p30ru3pfEAAA2JBa
mZ3ss5gaWgb/LbjweJsjw9jbfjJ/0/GqJRdtmTveDyZ29LrSQpTxbCBEAVC2
Y+4uiLoB8ewkgh90N5mbusauRh6BRgsAAAby2d2p1+qIYyO+e8myAcZOYvpC
K5HL+VjP+VcwibUU8mwgRAHykEvenlwet9OzBFE3AAAAIB1yKzrZRhzq897n
SQaRG9HJrnyoRXR8Mr8NKxBQjawFButAoAUAAAAoARn39VmJTndslz9qItem
R6xsVqvPF4dIC6g6yOeh8w2MkbeMhzf0vh4AAADAwJBxbw9BKa9a+ye8kdVU
5dBpLTTanNeMEz1eiLSAqgMRaNW/GdzEqfRDC3Y3YjNe55un2psIoqndPjR+
5bslOEwHAABryFTin67+I3X9/lW9L6WIvc3gm/Vsw6Dm4eDjiq9Pr/rPEGyk
dca/Wt4Dp6POQwc6xm6A5IkCZzNQDSPaABn39TKVH0SvL1FTW4nUyqzrtI2w
tg9f8gVn50I3HPZD2fvQemEan/oXAAAADunk/Ge9FsJEHD8/8xt+PjuV8PWb
EMyOSGU9eSriMLMvP+aMVuhblYx5+i24VSnqA+ZmoB4GtIHN4DCz96g/6r5X
Q/ksupWc5fWpuXxRCfkiOnmYCjktp7+srZgTAABjwC6vY9O/4lnqm15wHWED
pwMD/oeVvSk30GpxRJKVXk0+m3efstT6jtgAZqAiBrMBcifiOMiYd5sjsqn3
9WgF+WR2op2w9Hti3Cc64bMz2b0BX6LmjFcAZGojFnSfp09aO85cvPKPB+Vr
t3EjGbs2aMt4pqNT87U7ZAowNLnl1dQ04FvC10Nl1kHPGVv2ONDaMTGd4NFo
FRw19nmX+fpW0Q5cyXVWEc+mmRDFIGagKsrbgHoUCbTIrcSdbz2OkaypmOqb
2l8fcV6fqbYxdun10AUb0T4x+6TgSSKXPJ0Cd1UKQm5v/JZQjCdJ1X6sdDLm
G2lttHSPX5uenfv+8kC2VqihzXF70wBhC7n74GoPU13bD1E0YEDI1Ip/iHro
WidurWP/0GUc26MNIc0akGUow0FHZEfAH6WWfANN2T1x24dzmzKDGSU8m3ZC
FIOZgYooaQNqwhFofRF/POcZaiMIW9fbroypROZm/K6hlmzIeGTA/S++yhHe
z0qn0rJtQpE32frB0dxgG/u+yETRAswud2xb7gcJhJs3VwhLS1ff4OiHbt93
0eVNRaIKcvW7863W1rFvc/vTZ+Fx6nzAEFMOyWX/6abczdEwigYAhSA3bzva
sv6prvvTn6up2RTayNFU1+z4YUvg361/P2aryyo9BnxxGcuTAp5NQyFK1ZqB
JJSyAXVhBVp1tlNDp2wNlm5HYBGN4l+szrxHde61dE9FZR0SKRNOyM9F7K74
TteVnqqwteDKJbQazoeea/WrqRJoodQ3db019dWPsqaJkSuBs811PVcfsI1x
khFHC/3+2Kv70mvBt5EB6kfGw8/0viQAEAP1AGaN13LauygwEjEE5O7CVFv+
0SRecceEf7v05tyHbfTy5J6XuDGW79m0FKJUrRlIRgkbUBdUoGXK5iFH/YvF
B8pU6znKWk44ozJEXLgEWss+u7X0pon8D08nk9CqGwxoN/GRPTp8uLTw75Hw
tO/yaJeFKPru5o4x70w0tlzp4HBpITIXDv7N47p4rstW8BaE7fWPbt7bkBL2
k1uRD5oLfCD5i7e7kX7jQ84oxnnbzB5wdqK5Dr2TMP8a0ISdRPjK29knkTC3
v+2LSc6jbsd9g9TZg6XHE6uqkaLk4+DI4fwa1Ob8UVz0QK6FJ45STqjTMbcm
3rXJ92xaClGq1wzkINcG1AY9GScsfd7F0l18d5e9ffSL6ocC0r8GV4m0HLsT
icwGv/Q4hzpKxV/1Nvu7l6/fDM1FIgtLSCDxNCk3Pbi3vfFko2Ruh+2Q39Dp
+Q9df6/0ZujdAwW3pHEiLES6wJJKLke/cY+0mwnOje2fCi2LzNaRD/0DB+oG
/OhQVPKxf4C5XQcHA49EvZ+2JOdd3dyYE/8UHFAFpNdn/9yKWB5xwrMoxezI
3UVvH7XzEthr3ThQUUru/kg7C8sdHkkS6sj3bNoJUarYDOQiywbUBhFomWwX
QutlL4/NRakxcpo764p2SNYh/4rW563oc1G5kYsmsFFfjm7vspRbQqY27t10
vGpB38rSNzm7IjwzSHmepuHgE+TfpR7784ObBv2PsdWWoxp4Ft7GPgAgl737
nhONCphdTvGb8UuOSFUdeefXR5Ms0TilBsm+h+iEmGzPpqEQpXrNQAmk24Dq
IAKtw86fXpR/IXLop4qKuOhQUZeTHeS5wKFDfvFJq92XkP52O4nZj+3ocSRx
fNR/X5joLr0WeKOuIMZG9KsF+0G84GjgkW9fU42UAV0oeoQlDZdJPQ6M0NKN
amvux0YOskvztu+4OqiYVqTES7Zn00yIUr1moBQSbUB1sm3sGQfQPBqqYAho
kxNrv39F8Sshl73dHIekh1YZeS6w6JCvcKC1nythbmDfUHCnO3IjdiuyjOa+
92Luo8y78Hcj1A9GA0+YzY0FkZbE9CAACKYgoyVNQJI9maLzK9WVxyDX5hyd
BB05dH84I7cBQj6hYarr860IvsuyPZtWQpRqNQMlkWgDKrOz5HmVMSieA0Hk
lSrlmvLVGQx6VN+zzwUeAh7lA619pM0dG2tJmt2QjDrbmXeoP6f8abJCMBp4
4oQz/PV4QaQFZ4eA6qSTC5+PtFupst+xq5FH4i0Oz7VDNrm23pkgpGXIu6BI
S082FDk6EZYsJVbKsykrRKlSM1AcZWxAWR4FBnMVh52epUrX9CQ4nD98UUf2
rH+ghT4XeHTIVyXQ2i9Qn2aRUCbM2rOpfjiIwc0qCa2BJ6wj02vpu64jXJ0W
DqfDAFAZ9kE7Mhp6qvfVKMXOiv8cdQp2yD55i69pvIi3XfS8Ru8hpRYdKOjZ
FBWiVKcZqIESNqAsz0OjuQPkI667lQJ3ziKljkpc/0ALM4HWvnqBFpq0ZyA6
PpkXUexDboUv5ioiC3Sk+JDTwFvO+hO7lJSi4G5Cc3gAc9JrgXOMZqP5g8gW
Hht0uewkpi9kKzGJ42OBX5Rtt0mu+PqYlUra+Zpynk1JIUpVmoFayLYBhUGG
fvJYFJnw9eZX5XJByFbUfbrXjtA7+M4l7y2hY54kB1rkViLyV9fYIOez7b2/
98xX0PaXeh/MBFr7agZa3GIfClFdWZ6GRnO2c+BiGM8Hn9HA57/XWmi0mXs3
O10LGAkmAaAQVuKFh5hBAXJRluWUO/pU+X0O1auBWamkdCJSzrMpKESpQjNQ
E7k2oCzpVf8ZJnriaVrLGfdZNgjZexj633+yt3BaCJiE15JIC7TI30IXXy7s
wZWdB/rOJ6GH4gwSN4HWvrqBFnroz1C6QrkUbLEqcWB8FstgJaeBZzN1+VbP
Im0MAPQhP8DFpOk4MBVhoiyi9S1f7Fm5BZBMhD5xfBpKSGvGiaxWxElvXNxu
WznPpqAQpfrMQG3k2YDCPI86jzG/Hk/rWzQVYO7xVhRzpdZiX55vLWiJ1TYZ
5d0aSAm08uWu7EdZuv8SjEvoV4KfQGtf7UAr41VmRq3oT1XXPDErYIIq0mTG
1O6MIj8Tubl0O6LOqHpx5PrAo3rIVMLXz72b0BwewJlnEUfORR91x7DY+8mB
jrIIc8f7wUpbb8oVy+nWyG6ZG0947ou5bQp6NgWFKFVmBpog3QYUB9ngV16+
t2bHD+SWY+vbQX77z88IYFc0nvBsX1Kg9eIn52GuvNl6zr8irUYYeS7U6Mgq
DbUDrf2N8HgL5/2FxP9IYtZ0eDL6gv1hqdZ/OMwQRDTw7NVRDXM431b35v8A
UB7W8fJpaA0AE2VZej+b5wlXqGElR1wL0qv9EAclKjJR0LMpKESpKjPQCsk2
oDxsoFWxzH1vM/ROLmvU2OleEJTPRQo3hH5Z0YFWwZRGMZdX4s3Y54KvAFND
VA+0UOUnTX2b627le0jGvT1M3F2wWaD2g/qHqQUaeJbi2wkNHgBcQZ9NbHLs
EqFn/ja0jt2M8w61p1yxvGbCaDMiEWdtSno2xYQo1WQGWiLRBlSAPUmptNzk
x0mLGyGEtCJheNWzVDHXJDrQQqc00tcn4zSWfS5w2jWoHmihmoQcPBJQJC9U
cMOzpnLAOjqjsy8o1MAj/w874JVB07nhACACJNuMSRG0ROjGfYe6Hd/xtXHY
2954FJ+d7CDkTqhHOo4KOEzJXadynk1BIUrVmIHWSLIBNWAzQo3j4TIxEDXW
nLE9UT2NOfp5Cr5SWdGBFtIEjEZ6hhB9Lip3yNcWDQItdkg9e+fHwxvl/wA5
ceak/sit6GQboXs5bbEGHqHQxlS4nwCgCEhHHVyKoKVQ1B5ZELKHj+yE892J
BU8HU9CzKSdEqRIz0AMpNqAO+cPfModlZDIySU8OMh3q9SyIyr4h8SRNY7f3
l0rfVWygtXfPfZQTysloLoelQGtfk0Br/1l4/Aj3MypPvWQTiZxE6G7M02Pl
aqJ0oJQGHgHODgGNIFMpWW4Eyb7ilGMXh7Qoy6REq8YVf39O8CI0EaScZ1NO
iFIVZqAXEmxAJbZi7leyj0HJQ7fUcmCkhbrKQ73uO8JGDyMUZQ941jSxgVbx
FGrJayaeAq19bQKt4lq8yrlBttaYTYSmfp0eO17XOjGzqm/UUlIDj1DcHL7h
fEhCiSoAlCS1FgteGe8/yjy15lb7qDsYWxP/VKCFGxo3BCZTyacJUTxJlvqC
5O6it09KlJVZj874V2XGFKiwRGC7POU8m2JCFLXMgNx+vDDz+aWx33c05ZMV
lhb7n5zemdiGJJkzmU6lcXOkEmxAvWuZd3dbMpZtHfKvsAfoZGo9em2ojYrB
jo347omOsvbRtvMMCgdarDHTyNAc4inQ2tcm0CJ3whONohxdvqu85XXX9O3w
9P8d7z5ItJzzLpRtjKMJZTXwCNAcHlALMnnXm/WZhLn11NilK9cuv2u3UauY
4LntCGiemU/dKpdUcjka9H48NmhvbyrQawqHMHc4QpxopNQOTiAyFVpZUO0K
32FKHmU8m4JCFBXMgNxcCl7qt5X/oc0vj391X9yKT8li8TvZlGQDakGmVm9P
9R7KBCq23vevTc9G5mb87tGu7E6k3tZ/KbgkoK9SScRmnMQGWoWvl9wTCZlu
UNA7RXe0CLTQAQGCb37maf3HlfHBnhZzQ1P7qdGpwMK6xHJPxSivgUcobg4P
DQABBSCTd9wZL5rZln5xd53ZsaIC127XvBjHgubY1Uu6Zmdq+By9hyVlnYqR
LaxSFFS70jAaEnoSqYBnU06IorQZkMl7vpFjAn5uUWdYtJ3LKPlXDYk2oB7Z
jPdVx/Dr2R0N0dRuHxy7dD14JyFrChVWgRb5LOb/y0Cr1dz+1vWC7Ukq5ulm
LhS7qeiaBFolJOLG6+RZUQPPAs3hARUgVwJnm0tkrpCSXnFyXPQ4QJUuQJn9
9ZyHPrNQDMx2qeiRh5aCEAWFKEqaAZlKfOfoPlj0q5WjacC3JCgNS/clENRg
U3P0sgEtKQoSeErpVQy09pLh92y513E7tCC95evs7p9xchT7OgZamB2h8sGj
gWcpPs7AaxsOGJDdhP+sxWTpds8X5kZX/f28I2JLgfYhkddRqiQ7idmP7dLU
U6UhzC29Y9fvSlGYqAfqPBsnwjtaXZxyQhQFzYBcvzXR2lD8y2WlWe0vFc6w
Y/6fQV+cN9tPp7P4uy/qg142oCVigwSRgRa57O3mvL6CVpBTWIcUJ5KpuG+A
cTjNQ/44dmId3QItY1Xj5TTwZ2/yJQ2Ku47ofnaPJ88XA5cduHA5sKh/1r8c
5Nr0iJUomUrlVl6LUAOiz73CTyL5bN5zxsYJsqztQx95p28vLCU2st1EU8kn
y7HI36/9+ST3Zc1nA3jl+/lABZmaSTGVFKIoZga79719hxDn3jHk9AajS6ts
EcPe9sbDWCRw5UIv8qOXryrKQ6ezhA/J1RpdbEBjioTHigZaRTFIhdcjUx0t
/Z4Y/bLd9eiVgZxaddQvUv6nDdoEWsWfYqRAK6eBr+v38u+/oMGDMEqZhI5g
/BvtLHpeI0yHR4LFMX4q4RtAQhXhfh7Nuyo6JSoTZblPIcPRsirc6bJFkRkP
6eY0Z2j+IMI7shYjngSHm3KXrqhCQCMhilJmQO9DKYi2wcvBinWF6eTStNOe
i8qI1zyLlaZSUumsumbHD7pW9FVANRvACPQ7UlSuJREXaKGVHTR93uVy9pMv
NLZ2jH8xG5kLB32XmdDd0jo4JV3wrzYQaPHCaOCFSjGLEqFy2q9VL+SvN8++
pKiARwbES2dv/orpE0rPGmubWtgtukB02ppJ1MkFoqZWUi25s+I/Z2Uv6JB9
8hZfq3Z6dE7+Tw4M+B9i+kOUABVkKtgbQTMhiiJmQG7Pf9JB/YJE61u+mLDy
SaqpBfVHFYMo3NNZ+6rZAFagdkJRuW5CXKC1u+ztE/Hm+3vbiciNyTf7u1oy
MQXR1P5a/4jD7Q8vrmMdTmgTaCEddPMYJNBKr4cu2LIbtcmowL02KptR75YC
NQE9B7b0gA9qDDFrZWLieXR1UGpQRToZ/biDtXzBZWXkb4Eh9tRJ5w7b4kCn
3SkYr2omRFHCDLLdVrMpTKL1wnRCTHeI1JJvgMqTWN8JldYW4p/O2lfNBrCi
WA9TsROIuECrqJ95t3fZMB5AMKDRqszWj862BpOpdSy0KvTHL76lCjTtAWoT
KmlfesQqNYaYNbIjo6Gn4t5WkBsUClcLXWcbucmXy2L/lHN2YKQGv+jRm8zJ
ziiaCVHkmwFTi22ynvOviO7BRT6+edZKlE0EkY+DI4fxTmftq2YDeIEMQ6ep
mLsTFWihJbSU6zBWlZxQdAu0DGGT9FwDIRp4hKLJTQaJKQH82JlzHCRK192T
S94e5NHlGdReAKpuVSLQItfCE4gq33YhtC7CWXJP2w3Ud45TYqzcU66ZEEW2
Gezd95xoNJUWEAphd8V3uq5MMnZv0XOCIMQM2tYFlWwAMwoXtYpD9EQFWoVt
4SvPQTYsugVaBwcDjxT/HEUhU/HrvYI18AjQHB5QiOQPzs7233/5S3GcRS1D
wvxeCZQNtOiZyPmLEb/sck7bDaQoVm+R1UaIItMMmIlCsjT59DTkEp1JnkUc
x0zEK+4YxseGWWoj0OIMG6Ko0HVNRKBVdCgpbsNoHDQJtEpp4fWeDMUL3SLS
VNc8/ve4uMFsMf+wjftl1R5xAtQazxdcv0MM7HeuBVHtKdAVtkKNjzBoxXKO
up6rD4p1+5Xh7GoNFGhxDj0NuMjKNAN68ZWZgqACKlObI8JJXJErvr46/Pp7
l8DoNiAU+hdBKJ95FhFoFdQzYq7Hk4EWgVaxlE73Wee8MBp4hTDQ2gEYgRc/
OQ+zXo844VkU9zAp2PyHHZRMIekUieOZjfSwqNiOTAtkmkFWSyaiSqg0tP0U
KEnofYQxTpEMbgOCoSVzLOWz6IIDrcLgrbQYtSrQItBC6zJydxS78aBcGA28
UuB/TgoYCHIrfBFp61C6JrEiCgZaT0OjSNGQpEZY6agTaXYJgZZm4NFskxoD
xJnqsjkzaiWITndMbGpUDwxuA8LJaWnylBuKJDTQ2ow6EfmDqc429v26AX5w
SWgRaBXPWZawNGgJo4G3nP5SUjRYnMGr1rJfQBe4sU3doP+xWO+OrrDyDvGR
YYvipWI06VX/GcTfGuicPb0WeCO/8hhwkVXODGSx4u+3IqXZtELe2ueLY7xG
5DG6DYhi64EHTUE1tDlulyjMEBRo5dqA58FzlqVSaBBope+6jnAOd/HOEErW
wLNAc3hAPci1wBASx9cPBXiGmJRAKTF8wZ5C2kQYbiMd3EUFKEYXQitdfCoR
qh8mcca/Sq2zdCVj2eZauGF0GxBJwawlotMxV+R+hARa2/PubmSCBNE+MfvE
CHG1VNQPtNC5pTRYSxwZDbzQPvAl4U6gy9IwGsJ3lh5gJAraZ0nTsVA5BAVW
WG6yWlrFELdyHHdRAQejL7JKmYFM6JQmnVIzRJNSFKPbgGjIzR+neg6yT731
jRtxbuc73kCLnQtAI7i5sXFRPdB6Efee5DZKl9x0RQPE94EvCTSHB1SioH2W
xOGAaEtwGSssN0biyGwEw+2FaIj2ennQRdaI8gCFzEA21Cp0ZDz8jDkW5xmA
iBVGtwEpkMk77l4kr2U55Y4+ZSPMioEWmbznGzmGzBU/MuCp9ihrX/1Aa/eu
q42jVyI6PpnfxvW2Mhr4oxNh8acxKMV3tULXkRrl+WLgsgMXLgcWjZFxlNc+
Kw+6wsqo1OAItKRNJS5I0BmoW+m+aiMjNUMhM5ANdeqRvYH0VCmsjzwKMboN
SITc/iXoeJU9/CPahjy3E9vUIlcu0CK3ErevjrSzrWAI2/90zz2SkQNMJ+M/
BG74fF63M+vGLwz399rtPV0nryy8wMyA1A206DwwCs7prFwf+JFpeWFW8ViB
2sgpi6JUbzUdMcjvU9A+S3JYotA2nONRJQ3L4/bgEt+nQl/QQIVOyBgLbLIx
WUPKXMADSgZ/aCjwG65rRDFGtwE57K7Pf+noPZzf+RG23gtuf3jmEre36eFR
/4+RwJULdvaVJvOxQdffYxsyhyuhZ98IGKY1VA20Ug+8veh9ICwDvrjQCWga
k9PAW0cComu4iikygLzUUxzb8cB4h7nB1vvJHN9ME3L7YeSbv9745s4qpneY
C/nrzbMvFZyv6gbx0tmbvxrgrhW0z+rxlqjL2nvwxcljL3t+rmguqIidkD6K
kxNoSYn6uOeGOO/CSvIoMHhQztfXG4XMQD5ZQyIO/cXjliiD19FPyrcBMrXx
IOz/1DHc39ViMZlbugcn3F9FkctLp3B26eRWIvK1e7y/1SzEndc3dQ07vTOy
Qyzms1PJp1ST8MXo9ZFc30sspyWqGGilHgdGONGGZdAntY5PdRgNvLXX+0CJ
zAa6zaGR0n+bTqRT8O6V1sLjbdQrrf3+FcnXDWBMQfus0vXvVCEGv6tBW1dJ
r9TgBFoSGjElo872/N8bpW8SC5q4lriT0hllzEA+1GiA+paWw5Jk8Hr6SZk2
kHoUufpmezZEsbYPfeSdno3MzfinhtszQePA1fnkbnLh8+xZG3H8/AzuWT5y
e+2X+X8Grrudo3a027vJZG4fnHC6Pw+Efrr/RCXZELkTnmhkPk5Sal1t1Aq0
yFTcN2BBQ9zmIX8c19OZnAZeMVdf3KNVgtYU7dDCt1di1TKN3d5fMH8kAUkI
aZ9FT0UR0GYBrdeQ/Mijb9JwPvRcnN2Ra9Mj1vzfyxZGag/qPPXMB8lAETOQ
D3snJXQI0dVPSrcBMpW4NWmn4lxL3+TsCvIwp5MP/t+gtd729scfdTPvbqS6
dVFDpZUBGcVY90YAw35c6gRa5OZtB6ezemPHZATbygLmaokTzqhSg+I5Nb8U
TcPBJyLfBKmdb5wI71S4fei8rWPOqGGeSEAEHOW5qW7AX+KYjS4DPDwZ5dWC
ZnMZuSVWskCN0yJPbEaLHnLHfBtDNoVGohSi37+q9+VIQREzkE/+TkpR1+jq
JyXaQCbK+naslboWyyn3/LOii06vBd9GzoOkVZrohPaBFlqL3enBsRm68oEW
mVq9PYXWfpoaWse+TWB7ykyuzTk6ldHAIxTdV/FaU2QV4yucRypfjNTvERAO
Z3atyXRgwP+wyFqZsXFtrrsCTqlRbYnk8StoHy1RHd3J7flPOvIrVNuHc5v4
bUL5QM7dsJSFCEIRM5ANszRLau6hq5+UZgPk6nfn6SjL1Hw2UKbCkiPILBy6
jTXaB1rsVHpcn0SFA610MuYbaUVzWdaOiWl8o6z9nRX/OWrjIK2pdVm449tM
ErSmSKNXvu0MGff15gptu73L2N5sQDrcHGnJc0N66mvdad+KEDUgkmyX7glR
2ZiInC25fmsi7yVwlm5WAp0cJCFfjQmKmIFsmKVZUj2Fnn5Skg2wzdUJ69mb
5cs/kIkJeB6HlUPrQAvdhOI6iJwNBXNItUAy+SB46bQNlWURbUPeu9ieGGZ+
n3jg3VbmghXezZHL3m7ufW0cD4vpwYcKD/jGkLGHSrjG84BcuIFWiRMWOkck
XEuMeicZepXdBXdnI/0uAocBcbodlj43MQTIOkgM6JYLkotCZiAPZrsv5dxQ
Xz8pwQaQcYHEK+5Y+QtGw0I8j8PKoMBpjjiQzQKmBzrpzdC7B0xceI65i0kl
l6PfuEfaOdWdhLnjHd/8U4W8j+IFsGRq/e6XE68gw5bKp3ClXO+zu1OvFQSw
prapBRFKe+RQhsd4yJ2II5f9x7LgAlAAzlTBEkck23dcHY3iBrMim6z64aDU
kwmmkIR/4aBAoyzCdsZj1CiLW26GYd8e4ShjBnKggyVpQwF09ZPibQAtAOHp
y/o8NMq8t7G2z3Q7ShSFZTmFIBEpFgO8yO2N36ieE4mHSwv/HglP+1zD7SV6
X5g7xrwzkYWlRAWWFiJz4eDfPK6L57pshW9h7hy5mmsSKx/FCmBTyScrmesO
BT6/fKG36KKz+bdB199C0djyk6To+DDz3sxtmQ36/o3TmY2loWXw/wTCkWgs
Tt3DxxsVbhEiPOAzHiSeN2aNOSAEpIa9aEFkZoe1/Ckoxs2gy8QR14JkwyE3
opNdtMETHR9Hk+XeaHd9/oucroCwdH84kzDKmJVSsOkR4qBjzsDfRCkzkM5m
xNEmUZ2ur58UbQNoEFJSZsmSXnDlkmVYbp/ZcCLLcuxOJLP2felxDnWUakRd
b7O/e/n6zdBchBtZPE3KlxWxvwIeA7xU78VNmFtPO76YXVSmF9m+ogWw6fXg
W5ZKF49+D7GPYeYR7hbfe7OSagsRHvAaDyJnNfTOGuAhOe/KmRlbV0im1qPX
htoIKYNZUX2OKCl7EamHM8w8jpKp7FQy/oPPcZLZ3WQ3YnPGaKtbFjQ9gqss
RCjKmYE0GNW3FPGGrn5SvA1szY4fyFeAnPTGK4zPQhoE4SnQUiackK/YQX8F
PEoGVAm06pva7YOjH7p9wcj9VUWbkSlbACsi0CKa35sVd877POo8xv++hRx4
xfugzMegwgO+FnxshtngO2uAF3bqPbVDvHbl0tipbENmqWJIqrspY42V99f8
kJuLgY96bfWMW+j647jT7f3C43KMnuloYlYXc8fQ5F+jq1VgpEj92oGLYTkD
6DFASTOQ/OlSmkvo6yfF2gC34TBPsPckONwk7JU6gUugVSTQIrcSd771OEZO
tWfcTiY+eX3EeX0mtmZQDaXaVHkBLA+I8IBvO4NkmPUcCwtoRGotFnSP2lsZ
J2c+2j9+JSjZjdB9t2gvpYQ+h9xO3Al6nSOvtzflBWWEuaVncOxjbzC6LP5M
HlPY+0YcGJ8V28kcO5Q2AzHkFkopem9d/aRoG0DHT/MFeztzjoPM7kRkFVWN
wRFofRF/POcZaiMIW9fbLl+QUhm5hloyN5I4MuD+l8Gz6CpQ9QWwlUH7QPL4
n1TCN5BLRuuR9geMDf4FOziCnFgdc0SqYI6wfmaQazUppfO5rn5SvA2gA3B5
ekEgOUbYPlcEqSS1nRo6ZWuwdDsCi5uILbxYnXmP6i1g6Z6K4tsDQQeqvwC2
MsgjzNt9C8kw6yNkBYwNMtbZuM2gNAYJS8SVEuOLXmaQK/GQ0vlcVz8p3gY4
YxQqB3uwfRYIKtDKWlHrqH+xuBgnEyf0USGuksNfDE8NFMBWBhUe8Dk9ZIIG
d0u482Thx4VqEMMAKkP+Fhhi+i0IbIRV6+zedbXRu2hzj7datnf6mEG+aQnv
MOhidPWTEmwAFTXxDAZFwkJOBEmmVu/dXlitlgN4+aB1HISlz7tYOuLdXfb2
gYvjUkUFsBIRMdYE2dNxh9Fnd0+NWNS6ArhDbkU+YAxOaFf5Wga5XaK6luGO
LmawER5voRZJCf0WdPSTkmwAHStZWd+O5L64krnsVzbqVE01QI+0bBdC62V/
CDbIrSaJkRyqqQBWGmiGmcf/lB1bTzmWaqoOANQkn1o3NXa6FyDSqgQ954ha
A4XNlDQO2ptB3tdJKKzT0U9KtIFlnz2X0qo45w6ZKsLt1Q/b5wIQgdZh508V
YgUkm6jfnCmMqK4CWEkgmy8+YSrdDJyGk4umjviNX3UOaAWyQ2/+IAJmUx5y
xcfoRy1n/YmqirO0N4O8r5NQWKejn5RqA0jVYYVAC2n/W9DElVLIKzyT19Ag
A4UrH2mhYzW4Kc0aBQpg0c1Xhj7vcpkHmVybc3SyXVLRCZXkQ//AwWqoOgc0
g92kW/t8cYi0yvAs4qA75lVp6k9TM8j7OgmFdTr6Sck2QL6ITtI313TQESk9
524nMX2hNX+5nEzdi7j3JMF2KgaEH2khr1R98KIhgAJYVHiQ4dBQoNRcIfLZ
vPuUhWi1v/ZS8RZpb9FzgqiOqnNAM8hU/HovvXRBUqs06C16P7xZLVoFDlqa
Qc7X8UhEKv6t1n5Sng2Qy/7T9ClMycQUHWU1Hrd3M8ND0fxbVn5vrc7wXiJI
q3+engPI4VdVRQtSgQJYzh2gnFDrhWnuSDgy+SDo7LMQx8emf32RT2Lndzqp
uH+omadaEwBKkG+rUqXpGpmw2Z7WsdBq9T5eWpmBUgItLf2kXBsgUyv+oWxN
fWGJHLkdD7lO24hDvVO3V7cW3J2N3KVtO+4btFRV8YVshPcc4FiLpJGaVUbN
F8CiwoO6luPHqJHfhO3knz1fZ8dxhqd9l9+12xqQcXL5VPMhu/OrcPjbK8PH
CMtp7yIcGwLi2Y15eqgqHsugL77N//oaIr0Zfp/KodTZxr5fr94wK4smZpDz
dVIG4ujkJxWxgXQy5qNGqxOW7vFr07O5q60nbKddoTg1xo7cjl3ttVDxmN15
M/zPwOWzLXXZiNGg65oaID0HeA6/yISvN38aC22Z96EAFhUeHBwM/JbaeBD2
f+oY7u9qsVCjTLr6R5zemdgGZ5TA7kbsH1fGB7szrzG32kc/u7VcKUIFgPKQ
qbhvgPLwFScy1Bzk5m1HW3b/TLR9OFedh4YoGphBXp8sYSS3Pn5SQRsgtx9G
vnKPD/a0ZEJEc0v34IT7qx8T2+iCR6bWFwJTY9mBfURTx5mLnvAKRFkI6VX/
GSZWIAYqDkxElfAmoteXALdW6wWwyEQhHuMBAJVIrQbHKIlI04BvCUwwS15Q
XWd3/1wjNV9qm0Gu7klKhkEPP1mLNoAzz6POY6WOtIpB5XxV1GFYFrVdAIuM
dq2mhhWAwSCf3Z16LZsxsPR7YsZ8lJQkH3K0jASWayjyVNcMaCUzYR2dEd3s
Twc/Was2gC/JiKNFSE6G05kTRG4MNV0Aixwl87RfAwB1Sf06PXY8e3TU+ufZ
8v2WawByd9Hblz1EO9TrvlNzE2lVNAOqwFzS7DnN/WRt2wCmsIGW2REpH/ru
bYbeyTUygBofhNotgEWPkiXoFgBAUVLLgZGWrBy397P54jmtNQGZSnw7ltUt
1/AKq5YZpJ5Ev7nxj5j4u6qxnwQbwJNUwtfPH2ixww5qRF0pnJotgN2MONoY
/wGVEQAOMAmNGo21yGR0qtsCKyxmZqCpnwQbwBVyJ+Kgu2iVb1eOTDogOh1z
ME26gJosgEWEB3UDfij4ArAgtTI72WcxNbQ6bteWWmvvF9/JQybi2IjvHqyw
GJmBln4SbABn8uKrMt1KyWRkkhm9dKjXswDdakpSawWwiPAAKiMArNhZjf79
RmiptjwVuRr9+utbS5vwJObAwgw09ZNgA1izFXO/QjVQKzVZgDnyNkE2EkBh
e7USr3kWq6XRPQAAgHKAnwRYtufd2YNdwjrkX2F7ppGp9ei1oTYqBoNsJMCB
XP+Xq/dwXVPP6PW7YBgAAADFgJ8EEMjU6u2p3kMmU72t9/2symhuxu8e7cpq
iupt/ZeCkI0EAAAAAACQQ2otFrzqGH69vaneRDS12wfHLl0P3klsQ4wFAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAABgWP4/51iIDw==
    "], {{0, 105}, {803, 0}}, {0, 
    255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{415.39999999999986`, Automatic},
  ImageSizeRaw->{803, 105},
  PlotRange->{{0, 803}, {0, 
   105}}]], "Input",ExpressionUUID->"6f43df5c-56ad-4d73-8ef7-42058d9b6403"]], \
"Subsection",
 CellChangeTimes->{
  3.746790878526955*^9},ExpressionUUID->"0eadac48-eb1e-4e53-aa9e-\
6cda374698ee"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{
      RowBox[{"Am", "[", "mu", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
    " ", 
    RowBox[{"I", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"sigma", "[", "2", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, {
   3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"6a500431-cdd7-4b4a-a476-2718f7dceadf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{"Am", "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, {
   3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9},
 CellLabel->"In[75]:=",ExpressionUUID->"d121cbc2-8073-4a04-a218-81e41b9c33a2"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuI7tnarzD6/dmwI/He4E0i/LjTjvAWk3/c/y7gLpMuf
XXpxD0gvOJCffPPLa8dbe/uj7gDpFT2MHx8A6d0uKaF/gHSSzqXNf4G019eQ
HrWvrx271tduDgDSN/avOxYIpBP3/1ELBtIu7yJsUoF0UcXFFyD63D3Rw0xC
bxz9oyN26wFpgWajYlbhN47HVFT9+YB0ncw3UX4g3ZZ4qgFEM/1ZswJEb9jG
KFXZ/cbRS+rRKxAdtyLty7SeN475XFOalwPp3nlbk4/0vXHkfOIVexpIz/UX
Vg1d/sZxAvPaJYlAOu/e3yfJQPrctud5TUBa6qXFkzVAuuohf8ktIL0lQmFN
+ao3jv80fAw7N71xPPRs8sf724Duylqle3LHG0cLVscf54D0mZitmleAdNMy
8WcqO984rttx2VoXSGs4CX7XA9IbtI8sLwXSahyNalVAumqLz/FqID2rmMmg
BkivcNUqbgDSeh9M968H0nPedAieAdLn9/KUguhJTkFLzwHpNy0qLTeAdBPT
1fkgWuAh1+N3QDrK89Tzr0CaY8vW7U673jgCAOWUBAM=
  "],
 CellLabel->"Out[75]=",ExpressionUUID->"8f3fb6f1-bbeb-4770-88b4-851b8c40bce8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnV1oW2e678U5N/tiXRxf+sLggxDoIhCCEZyEUOQLhwSBHaYY4TYIOTTH
DrMzdtoTazrUbmnsDFOVSWUmUcpETCOyiTK7IrOrlKgdq62VwcrE6q5CbFJl
Yhc5sdI4sR2jGjuWvXyktfTxrqWP9f2p5wd7M3uPIq+19Kz3/b/P+3+f538f
H/jV//0fBoPhnX/L/a9f9bra3367993X/1fu/+j+zTsn+35z4q0jv/l/J/pO
vP1/jv/P3P/zVO5/XLn/kP/PuwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgOtmVudhXN8J3
U5ltpS8FAAAAAAAA0AXZxxMjRzBDnqY3Aqkdpa8HAAAAAAAA0Dz4euzcHkOR
pnfCy5DMBAAAAAAAAASyvRx+p6kgMTHz6VvPcKWvSEl2NtL3vgl9GU0uZ5W+
FAAAAADQI9uZ1N3wjWAw4PO4c5wd6nM6HD3dx6/MvmpoCaJPNn4MurqMmMU+
+rdkQ3syt1di5zuNhHEAe90784vS1wMAgOYQaaEKPnlAzyyG+syGSg75kmDY
A/TKzkP/0dZirBsdwQWlLwgAAITsz9OX3jJhx/xzm0pfSi1EWqg2uk/+RXTY
Zhs8f/XW7UQylU6/yGRp2S08m3mRXkgmYhPByx86Do1G1xruGWkc4hfMM5e4
7rIU7XoHvfdhTQXolu373oNF40DTyeDiltIXBAAAAb7xfPZLt30v8XJa3fGM
0hdUA3EWquCTXwg6jFXSXFXBDv/21k8wWGsWfDM2Vnxn9g9Hl5W+HgCQjs10
5GN7m7Gte+Rq/GfwZAKAkuAbq09T+VxV4MKw4wBWVhUqFpniLFTBJ89WZGKW
k96pRRirtcxG0tfdwOspAAAAQFaycbeRqiS637vgG+7UgMgUa6Ha6D55FiIT
O+B0fzGzAilMjYPPB3qKv3WXf77h1lMAAACArGzPh8+73R7ftWAoEks8TGdy
Yi2bDvZpQWQCokCITOspt9vV122lyE2j1T4w5gvdmVsFeakLlsMDhaw9GDIB
AAAARQCR2VAQItMRTBf+z2zm+dN0Ov10dQMSXfoC/yX6fkvxvR6NrSp9PYAo
bK0mJwOed0/Y2jCszeYYHL3y7Xwj7sgAAKAVQGQ2FDSRCegVxJDZ/G4ESgTo
gOzilPekBTPbhi4GI1PT0Rtux768vaX97ERatVVBAAAQCzyb/oe372BTX2hJ
6UvhgmCRuZ3w7NvTOXKjIS2Olag8DEBkckeLEY6ngk5TwWPrDKYhT611yNpr
prcuTZcc6firxPgB4hc2nfwCfmIA0DXbmZnPnCbMgB15f/Kppl534ZnMTNLf
ZzJgxs4/RBp9Qa3+MACRyQMNRvhaZKi5kMc85HsAeUxtgz+fGrNhpj5/kjo+
p4OOwkKiP5hutFIQeHY1GfG9TzoHOk+du/LNo4wqx1wAEExZWoxMPNbaqy7G
djn+csZ3wtToGzeaCAMQmbzQWITjm3H33sJL3eGOryl9PYAQtleiZy2YbWzq
Ob1xwry/q0GdTtuZZNDV3mqyj16bmJr+7nK/GTMYWjrcd9bUrzOzv6xm1Do/
AGqkKC0Mbf3BeQ2GjkieTHKtLeYsLMpCVTafvFbCQN8icyMVHu00tlicn06v
MPzK+MaT+Fd/u/HVvSV6z6Na/0D0CJeOCkMmvp6+97Xf7cq/CIbmNttbLs/1
SYHtWenkXtj5+MR179gQtXCBydrdOzDyp6u3oHABL9bvuve3WEa+W6HHKXq2
q9uX3BDnz+WrKKdF47kkcgpf+vb9dnP7yNfpwsv7MjZ6kMjoqqRrOZ7NPJ6N
T0VCN4LB//R7/+h2nx3qczpK74X5A+ikBrADzy6GBok1VPvY7YpBQBOId/An
Ox/sb8u/6B3np9cECjkxFqry+eQ1FAaVIjObeb6QTMRzJJIL0swJMoE/C/UX
ivYcHI29rPvZ5dhoBznc94UW2f4BMSNcSiiGzM9Tz6b9gx1YviiuN/cixKcn
Q95Ba14uH+z3/ZOtxq7Hzkb6TmDUaUH6Ohhya7pjb9jamg0o+RKswXh6XdWv
CAm+nd0WfJkifMnWYvBkU/X2E+uz3mIis+X96C8iPVR6MWVRIBYaw+d9wW8T
C2tChxh8MXx6f1PP1UdbpVvOxN1W4g+pwxyClqityj5PQsXjB6Ae8LU77o78
UrLJ/pcftVoDRszT5fjKdyOWprwRvT+YEjB5ibBQldEnr6kwKIlMMlE84rCa
KKNfTooMjd+IP1H7fVQBbefElNgpWxZb7YGf2N+rWBEuLeW7a7KcGDxhaTHZ
3eE5dH32amny9+15TWiyX0oIcrJlXySunclLVgNmbO8b9X1xe2Y+jVbEymaW
5hORwCeDNnMxxg67Pr+/otqnRyKO1uoTbJXMvbDm/e6765X/Df4vf1chkdk0
EBataagkIhOlua37d5dufp/e4CcG8fX4x/uxN3xJ5JHgPwXsrcSXY6qQbzuP
Am/sqfcIhiJgYQGYIdZT+YgxnQzMVRkDNIK4JYy216bPd5CTl2+G5/6N8IWq
nD55jYUBITKP/Xky7Labmoy2oUuhWPLxCqEJspmFRPjiSSIfZdbYYeo8y9Hh
/YVAbh2LbdbRMOg+42FPgtP+mhgRLi2oIdOQz64Ph+Yqf0o8FewlVB921JPg
O+ORS7ncd1hPX44kV+vrxuzPcf87Vqx4VeUlpCpRi8jc2Vh9vlpVj5WL7bd0
+f8l2qMsb5c/mZ/973hsInh5uNuEVdyasXMkMJlILtTbLJ+fjU/HIv/l9547
022hfQVmeeuTWw8YYqbK5T0J9e9p6g+hHYGRLYy9A+GfxXoSYpD7+dJz01cH
LU3IrZucwZSKQx8QyGY6duW9fMBjRtt7wSRvTbWRCg4QOSBTjz+pZaeR2HUy
8eXY2CFiEOlyTy9zf5WEL1Tl9MlrLgyKbSWxjsFriWrZpM30xFkix4WZnJ/N
aEhnIt3tmRI7yD4jjxqSQiNcahBDZu5H7A3MbVW9xq2FQG/hGQyG+dxGQWHW
ELHV2VpJ+JwFxaJunUm1Ji4k78XjU5Ev/J7Bzmras9ni+PDy9VvR6Xh8dh5R
WS8yUt2gkIUSV7bXoh/SE3MM67hK8mvYr3wumxGjPLe+S9EFDjv9hJ5sG4o8
R7/5WajU22og9EyFhp/iTlwB8Qy0gOrYXpn6qB2Jceyof45Pzh7fmgv0EkMl
1uVLVh/DtYL4xdiLW4q8rGvCF6ry+eS1GAakyLS6wgs1x+KSiDJg5sHQompl
ABVkBcGU2EEsiwZ7YIHHQkhIhEsNeneWs9HaB6DKubqmd8LLXO9i/ZG/t4mP
UMwuRUYshetTbTa4NvhqYrybmpRT5DURtlDiSjlrWoTXi0OcDntwy/0mxaNj
6h2fWmQnDQlLDC1cEQMkbeJQC4ixgZjE3HFu+hzQDjsP/UdbKW+K0R3nse4p
+v9zS0h3vP75AvUjRccfwqxOTPcdnu85bSELXqjK6JPXZBisJTzHjo7frX9+
Cl8M9haeeNvJEK/JRG5QQ2aXd7Zu0CGWRb5NvflHuOQgd3fA88Or2h9ENoS5
vvj41qOrPU0GqqeF/b9eio60FwWa3Tujsdo7FRvpRkdwQe6LQHSLHMX2K80D
gipUbKanLjjQLXjsyHDoIRtvML6avB1fQBcmO0nfocK37OkPPVHjYEWV6GDI
1DMVbwrWE+Dujcg+C7tIM5Mu+ixI01Zy4563s5V4SNSNbwaEL1Rl88nrLAyo
oNmw/R/HNXAaGDFkMiR2UMvi/uEo30DgGeGSk29PxOrudtYi7xbPfnM5Yr+b
XwpGXAfyJ32srzv63h2/+YDr0SFkFWNocl5X7xGqauALATtlGmEsZSABZd0i
y3lqkUXmbrF+CJLf41leOJPw2Iov/hnuCXkZQHfQDGDI1Dm0TCY/S1V+N5Z8
vTWUv6qDRL3LS6keQ1NvcJH1Uxa8UJXLJ6+3MKCBZH0NtMSyKkEMmUyJHcSy
iJ0KLfGelXhGuMRszvvfLKq3+pvgyCc55uLwVKCHsmF8cDj6guN1Po8MtRX/
udbeoNL5QfGHTZagukWWYvvii8xdpLZwWWdybpRWHodVmyFEx1IDGDL1znZm
9q+ufCWN5rbukavxn7mvm9Q5swhBIpGJvv6HxmK8z0eItVAV1yevvzCggUaF
akfvMoghkzGx83N4oJjIPORLCskBiRPh4oLcXZd/vt41oTKP05lcVJ2S8Ngv
RvOoarXS1UJ5kSmvIXNXIpG5WzikiX4ttxod+HrsXPFEklrXwmDIBDhRnlZ4
LN7ViWQic3dzzn+MXKbyPWAl4kJV1GFZh2FAhzKrHPTOqnAbqgxqyGTau/wl
Olz0su11Twsryi9GhItL+e6Y7KZI7pfjsqtUT6ysskZjq1yvlLLprNJDwTVQ
XGTKbMjclU5k5o8ZTru7KFX8Oz+dYVul90V0uHhqe8+5mDpdPWDIBDiQm8vO
FFbf2jCqsUE6kYk6r/jtiIm3UBVzWNZlGNChzCp8Th/LCWLIZLrU7VlvcVoS
oaSe4AgXGeTuGN4XPB10lqZ2bssutESSoW6VpLpQIkze8obrCd9JpwPBOfDB
xcBttg1neYtMfD0d/5t3ZIDytx3OX/tn6pzPqoLMhsxdKUUmUquhCOtycOUz
btie0SkVGaPLgCET4ELZ0qmO3lXiIKHIJOsRFUZDPrX4xFuoijgsazQM8JfJ
G793Ws3G9pPuW48YXUHUWUV4TWkpQZNyDHvEuWjvL2qrN/3zgruLCo1wcdle
Cp0q3B1DuwHKbjXXZReeuXd18HA+PPJtIm/yLdpfLNlK0DIcla/n9M6T6J9+
S+91xb7hLD+RiT+NnnudXmMTa+s89cGn0SdchhHZDZm70opM1H1UoHp5EPo1
lauOGGyeBPIT4Gvzd+JslwzSAoZMgD2lpoQ6CxUpRSY6l2HHAylu63XxFqoi
DstaDYOdOf/RUuaKxW9BmVUEHZCRHMSQyVirHzEiiuMBEBbhIvNLwnO4cHcM
DwLJ/RqMPYG6wlwqKCJTqD+WB9nl5Bfvt9NKXnaMJxgXs3xEZqkYRflPmex/
jKR4VFJDdItsWwzSiszcUD85bEZ/iab9Y1P1y6yh6zvDgfHEq/KniTp4Shz5
r6TcRoQADJlAPV7G3cUBXP7xUEIkFZloCrH1qP8hl8cm4kJVREOmRsMAdS2y
+aGpuzyq6AdcC/TWmDwV+fo+xb6GlNTZ5vPZ72eXeCU2+Ue46CBuyfoaYH1q
dE9xTje/F1HGC4GePFLKklHq2FWCheTmITJf/eA5QK1mbj4TWuQVb+hBEoa8
vXhILTJ3V2OjVsr3My3ZkBIHtPeOmDhU4vAp50mIyQcMmUAdysMy7wLO6kRi
kYmuNzmpMhEXqiIaMjUbBlSPJeNuVLnnoEHmrUzOoEk5hh1wJOdJrQyZ33Bv
5Wl+4B3h4lMWmXW7TOysRT8oZtVau3yzCrVDpWYyDb2BBSUuBDlayPZH5Cwy
ad3khT328qJGxiFIcpGJ2u9Jmju892s/ImRpSZOjeCrYu8c8PKkCOUf73cGQ
CdQBfQXkssHIhMQik1LwhMP+spgLVdEMmRoOA+KgB2a0dve5xm8kGI/yosqN
z9lh+UANmQzb+mjOkxKKhPjk/YPyjHAJKL/L9URmfhYuaExF22LSRKb8hYBI
kCJpBZjMupxFJu2olBBnBbrFIKCVAFckF5n0pF+eej58JGlPSefi64nxDkwV
p/Aqfnct2asA2UGS+fLUJZMPqUUmWk2dvftLxIWqiIZMLYcBIS3YVvVEtlNV
3pAFSU4y/SilHj0GWl9R4jSQgJNlvCJcCsqZk9bRWA2dhK/HPy6sH/h1oxAL
ml1NMZFJOQNFwGS64CwykeKlJPwz3koYMndlEZn0eDDUXd6W9RtlPbWV9PeY
za4JpY/gEaB90wxgyATqwqGfiOaQXGTubsZGi4MH66rLIi5UxRuWtR0G5KPb
PxhKMaUxN1KBvsJ9cquNLD80r2ntLVdaOT57oNyRPb/fvVfQyTI+ES4NpdVB
DbcenomPF5T2Pqd/VrLECr6d3WZ4DHTdopTIRNcIJK32wE/1Lp6ryNx54DtE
kbH8vXmKGDJ3ZRGZuy9jowepf6PpgOeHGgnf8gHM8noq+3hi5EhT+9jkkryl
MGoFOxgyGwg8mxW04kOyJRpz4jGTTYUGSxujrZ3jca5tiFmwGOorWsDYJgDF
W6iKNyxrPgzw1cR4N9b05vjdOr2ukF5vPLq8yQ26rZ8XToPhaheMv5zxnTBh
7Y5jr1VOkcS5e4H7azwiXCLWk7438j9e1Q3Z7ELYZSUflNN3T8w3Pbu2kPg2
6HMP9XVbjWUtj7UdPTVyITCZXK1MhlOLVCsoMitEY31HK3eRWaHQGL6/DooY
MnflEZmULmMF6qR8S8tG01veiTuxif8Yte/FrGcCsy+lH7LwbCYVv/kX99Bb
trZibYlcqI8F7qRL2yFgyGwAssvJyJXRvkOFl8PY7hj2RZLL3N9uLsdXRSYX
zC/SnHieqXeD2/Ph8+4iH40i70hpWjBaewaGf1/6kNsfF2zIQ60pXd5ZNhkj
8Raqog3LUoUBvvFsdvKvF0d+3Vn+LUxWx289+bmZ1+GAOmmk7JNJ95sm7GDf
xb9X+fLcK3PLbScUJmY5dSXxgt9UKN8dUdrWEOFbUeoQzzyKeHpN2JGRicev
SrXTS0fJiEWW4N6gPCJcMjZmfHZT7kmYB0OLZWmHZ1cS1wY7iJ/2sCv4QCSF
iWdXc6PsWYel+ENjbbYTQ6PucV/g84Bv/KNhMgYwo+1dWhvfivyhciKz3Cap
gMgiky6neTvDkTYQtIIbUiOHyMQ3Y2Ot1D/C4LLG1+a/uTI60GM1tuTCbvhS
eHZF8rNjufHkG5/LVlhJNbd1vz3mvXLN5xk9Y2/D0JcLDJk6B8/cD+RHVMzY
fmLk4pVrlz8sDIPEXMNx6kTT+GIUcK5HNrOQiAQujAw4KuQfezBjpztaVYmR
Y4XR2u1gwTFb/q0RYTBBXU9MW1ElxFmoiuiTlyAMcoNk5GKfpfYPbXx99OZD
bnoAXwidbKu3m1/6o8ZDfSN/8n8RicXj8VjkC//5QRuRjjMeHvBWk6DquyPU
kNlkPXLYSMrj4x/5v4xO525qIph/8VuMnR8EZ0jBvJmeOEuURtzn8NyMxb6+
MnQYE8ESwCvCpQLPLt255NyXmwEtzj9cm5iKT0+GfMPd+bVDs6XvYmSeoQAh
2z9DnW3zf2vywfONCvWUb3NzfaTTTB17K52Qys3CXDONXEUm/fN1W73jL5Oh
P/a3m422312njXXZpN9euFDByyKOyCEy0X5VrJ+trGwuxf2DVnI+wUx29y1K
zmpnY+G7cUfuvbO6wgtZdHfDAIZMvYFn7vlyY2xuTfH5/ZXCWh61u9u9M1zi
Ft1vpZwXEPeic0Nx0O08QK0NzBtqhRalQbMWHOrhiLBQFc+QKXYY4JkHQddh
Fj83p51NMs6ZC6SQyUbvGLG9mf8rJmt378DIhUAksVA3F66mO0Jzy3sHwk+z
q49iob8QW7YmIiff3efyVOzVbq0m81Flz30mv7vx2e0FEV5pnhEuHfl9nKuF
7TyszeYYGLl4PXIvzbYpNAPobJuLnTfd4X/V/0HxzMPQ8BGsPPbSOqEoWvBf
RSJzJxP7vaX0SPpCS8hVlsu5Nzl8P8orvWQRmZW+BQZBLif4y9nAGWthdNtr
d3+brnYcEl+74+5oMZhOhx7+HU2PgyFTV+CL4dP7q2QsERcuN3M+upkiSR08
PLs07Sd3skRD3s0URtANIzn96iL65MUMAzyb/tZt31vxq9WirT84z0r5kdVp
FCivrcgdIbllhi6K0qNUhMtP9kXiyilLsXulyXFhik0rxuKZI6zLl8w3Oqfm
eQxCfIqCqVBQTQPhenseEopMyuEXRJng2VSwn3RKG9ic3RMbxUSmOtzv2cWp
8d7iQXGT/VKi9pKKXBQ3tdkOI50GWrr8/9LxkNBgbKVDp025MPDN0LdelkJ9
JRnHxZyPbslRl5aisJmeuuAwiSgwMaPVOXL9vgTndwSAjlGtYzHZNg7E88mL
GAb4yu2x9pbKXy6fTrS9Ru9uXPhvBoIpxs1EcnyrX8RYEpS5I/TQruLdl5SK
cJkhfNHF0QozOT+b4dB4i/w1Dw5HX1TaICURLSzhqqA4ikx8IWCnfL6Ooxtp
DGrq8yfJr91aSVzpL9q9hkMc3SaioJjIVHLxUYA8L1m4nCaL61bVHCby+XId
2iJK+7SZ+WUufNmtFi6H55TfC6oFvjzhMmNY56czFdtCVJ95H/u8B/p6iRzw
+MsZfyknQGK2DX4SmLgzO59ezbubspnnC8n43699dJz6sf2nw7JacgSDFl7m
8PCFIaZPXrQw2HoY6N2HjKGdg55AJDG/VN6k3tlYfZKMh6+cdSI/OsZ8pp4c
3Ji7+YiNQndElJcvjPy1S53IhiIRLi8UhWnAOi8kOChMAnw+0GNsGgg/p7vv
GJvOSwqtLLzIIrNCoNX5PL41F+jN5xzMnaOfT8WnY5Hg5cJbY2ofuCSWn5Yz
8ojMyr+ivMhcnwucLBe7tJyNrjDGKVF3F70H6Vx2YlHtySuI0j96HTbn/Mcw
wwFXpHIznPa7s58F0LoKoia9ybIq5UvKe/Inah5+zy1mfU404bn/4zjf2tFK
gPYpFtXLLZNPXqwwyMx47cWdxo6By5G652u2M/MTHkdRv2HH/HN19iUL2zT7
3XflXTMrdUfoyRE19CSSLMJVAlVhsktEV0J0R2p5xzveQ51VZK7aQYPaRT1H
fcnLTWSiZw9J6jfQ3NlIx2+Mv0uapbE227E+l9sXis2tKDntNqjI3M4kLnSW
g759JLrEZuSnVU5gcF+oAfzxrdOviWrYEwD22ulbj1UqbsgutB2XZrcqj6Ei
/YUNnPazUIO6iCbkzcXQGSSlvs8xfpshCb+7vTZ9HjFu7ukPPVHpD1EFpLi6
mBOKbD55UcIA35j5lByysPbfBZPsjsmXJ/e6AlKZNKaCd7QWd3cUfhBVdF+S
KMJVAjWfI2AnhdAR5rY22ma5Qo3LC1ScQqqfeuImMrcWAr0cvlydyCMykaYG
JZQUmevfezrKgco+U0E9Jg+GTN2wsxb9wFyjrRv+LNSPVCrjctQLnTvE6hVL
Wx+xPmyLPw0PlvclFe4twg20v7OIWl02n7wYYZCvJJ+fqCtrOTKQnQ/2E5kW
8wfR6mpKoTSmgneEGDLV8SJIFOFqgDZeCdsXqOa7U9pSW1lPqW6NMm4is6KR
DdptSis0oicT2aPJw75fAzoUGLRgyARYQmx5VO1zsZt9FkKr4RLOc05fy2ow
YQv1lAQLIzHyTyk7L1paEaPbzbxrEVcim09eeBhsL0fey2dWzWdCi5xrbOLP
bp02YzVTZPiziOuA7GlMJe8IMWQq2y68hEQRrgLQnu/cZttqVDtBrLilFk8F
eiibhXVz0ZxEJlrggrhZVRyX5opiIlOxVwkvNW4g4bAOoraq19I0DdRlc9q9
F6seCYTbvPyj7zkX4+BmRD3hYohMfDk2hvg1WBmJkX9NOaiooSYClJZh4i1O
ZfPJCw6DnYf+o62G6oZhNmwtBk821UjCE40RMfPwpKyl2BS9o/Kkx2DslA2J
Ilxxin0qi2BH/XNCZv0qQkIFllp6e/G6upeTyKzonqn8zfJAMZG5dyD8s+h/
hwUv4+7DyGW0HvU/ZBv11MoJGjBkAizJ3PV02X79xU+VkUBMWOxGjyqIKzLx
9cQ44qvkPkGjhZi0dL5AuilYHp+8wDAodMkUtM+4PjW6B6vmPyTGQ+wNX1LO
TRmF7whf+afXeaCprWdYLdW69CkyyXodyGwrNG+MlgIrwG3VLxG0JoB1M1cc
RGbFRrwqbpY7sojMaud+lNlrpvnrOLV4A0Nm4/HLrPdXSLT8yjvLqQQTqi4E
u9OpFbSaeq4+qjyjVB/KulhDIpOy0a/BKVhgGJBTmMAkBrm47nDHKek9cltH
7jZzOrwjgWg9wqvyKhU4Tj1zKnD3pPKoNbZndEoNljX69midO+UgMmnn1uUv
/iAScojMSmesUmf6yDI1CBz2ysGQ2Xi8+sFzoDx2cN/rEbH8XSH5U4TXPiNl
fNOQyJSy3KgcCAyDvHcU6xhPCEpikPFDMymRayj59+D0d0dC0XiEV2PrvreD
Ou0LPaFTkTBUzw9N2oARQVhzz4u1yKQL1+pHBrSAHCKTJs+IB+YMpuVfaVZ4
J7jYaMGQ2Wjg67FzSOkiHns9IorMF9FhJI/Oq9DldsKDlL0GkSkb6ii1Tbh9
KCaftclhM1Zs1adBdHRHGo/wSmiL4rq6i+1XpoJOE+UrD4wnXqnkh8azqetO
VBPWas/KVmSuJTxH0UP5lpHvVlRyr1yRQ2QuR4f3U/+GMmf6Khwd9K2WeoAh
s+Gg6rqmgdAzrmM/qi6Epb6R5ul8h+vtpdApZNTiYBRRmu3l8Dul8VuDU7B4
YSAIouNzuVI0eXbG3BtMaXTu0tEdaT3CK6nMOgqu4UYZAw3czlPIwfojP5p6
bOlw36lydJCVyMS3Hl3tYSNZNYEMInP7vvcgxa+gUOKX8iLn4bJlD4bMRgNf
Dg8iY1rzYJihjV0VxDr4QzOc8OtySC25pooa1CzR+rEIsYsM8ISoGo2dCi0R
sxV5vrtmqUlNoJs70nqEV0Lof5Smd8KCZFKFIZPPql9iaD1SsS73dMWkwUZk
bsz47EjOFrONTT3XsN6QXmRWnghTyJVNr2vKZcseDJmNBq08Jj/zDzrSClEX
1L0AfmcMqV4RZfwqPNH6FCxWGAiETGWTY5dSfSTFRTd3pPUIr6BSV3T5hW1e
UveV1PpD42vfX+pBbHXmd26kqL46RpFJa8HJvt2GapFcZFYeMeNdG00gtEb2
nAp1giGzwaCVx+TZ7Btt9SJAXVD1IT+rBrVisLYKPqNTsBb7oYgUBoIhBvuD
o7GXhSlbLVUi+aOXO9J6hFdQUbSwdTQm5Ieh7SvJ3juAA3jmns+J5DNNJ3yJ
F+VVQ12RiWceBF2Hy+M0drDfz1thbmdSd8M3gsGAz+POcXaoz+lw9HQfvzIr
s5FVapFZccQM6/x0ZkMJhUa/Uy4WEQ0bMn+ZC192q4XL4TlOJYAUQ1h5zBKo
uhBQGJZiRuJn1aAlZjVUiX1XshbwsiFSGAiG2FTKP0CykpvW6vxUQS93pPUI
r4Aupcx9oUUBX1eovV8akNWZxiyBb/wUcb9Z3vDGOgb9d9IbxLK+lsjE19N3
rrpsZY8BZvl33/TPAnLaFY4FEvm7cEorMsktDBSl0piVd8qhYJ2GDZnVSpQq
iEZ2gmjlMXlLMpESFJRxiZd/nlpjU2jfDblBRRqZttIWqslT5QMpdwGPiCl7
32D4qWbGsVro5I60HuEV0KXUYU9CQHqBlqrSximYrZWZL9zOA6VcBWZxnvWF
YpMXqQeiDgyHvo+Hr5x1lD9pMB4e8P49uSowVYtnMy/SeeYS112Wwlcr0ZhS
UpGZfRRwoloaM/UHU2xbLYsN7U5bx2KbLK+EhSFz/Qfv0aPDk0tiX7Rg8Me3
Tr9GtSsoB/ba6VuPNTAL0Mpj9gSqnFbdefT58cOv+3+s+8KiB3aw8ilYrlBG
bD6Kl7pXrtxCjyeoWUVbOVgSkcJAOPlAwvb90e/T6gGZCnRyR8IjHM+uPoqF
/uIe6uu2mgxGq31gzHczsVSebbezcs68dJEppHJX9lnYhciItv7gPLvv2kiF
RzuNLRbnp9NM7XfxjSfxr/5246t7S+I+JXw9Hf/SN9rXbmQzCTe3dQ95ApOC
5SX9IjZjY62FPyH4jD8PJBSZtNgwGEwDwZRyEwTtTjn4kBkNmfhm3L1X0Y0w
QDxo5TGrV0TZSfoOsVgVoqUpW4ajPBfzlBGbx3CdSXhspX+vvSqC+L/8XUW3
SukosaYQJwyEQ7R8arZaD6h+w5Et+rgjgRGe/Tl+9V1bXsaYbYOfBCam4tOT
oUtDtpy+6r86k9nKzP41vw+LHXl/Uq5ML9VgJuho+fpd9/7Skh8z9Qbm2A1f
SHc/xuTwcmy0gxzthW3r176YjeWfZv4Rvu7zDDvQLj4Gg9E2MObx/TUc/eHh
c4l8hEg5KaFn/HkhlcjEs6lgvwlV7/sHQyklt0rzAz3G5zaZDZmko0ZDhQeB
OrApj0m+tixKCaHtwnm/WeiXcD90Ru0gfGgsxr0Uk7KgY5SSeUABiBIGwik/
SX5VsNSHPu6If4Tj2fTtcQexgjH1jk8tIkPVdubRfw6Ymy3vXfjEXvh2+RY4
9MLpvDOZmRmvvTxtc8hToRULmZLDZdN7qz3wk7TDI4e2kiKBHmIVesafF9KI
THztjrsDXcm0do7HlT6GT/HBsj68Q8trVTNkkuvQg95ZLU5/AA1qyd+m/lCV
rWXyuDebfhPo0oa3IZVSaZbrcE22eC7cjSbbRiAKDesLqc+SwgJRwkA4pScp
v/lfIvRxRzwjPKcwvx5pJ+ZZ0wnfzMuKN3t7OfIespko52kCWlUZfhkYfGPm
087yt1h/G2Ffdw0p+8ZgjUMrcArzjrJBfpFJZPvJ8V8BQ+auFCITzy7duYQe
4Te0tI98nVbKilkGPcHH+ja3kv4edEVWJfFOGN6wve5pyGNqH1rJ3z39oScV
gVtomtzhvc/COoN6LXgv59E6mZyGa8oojXWcn17T3kII2WtWaJAUAVHCQDCF
CU5bBazqoos74hfh+NK375MK07D/dLjGqXqKvZxLhzvBUFtvtw1FnnP+Bkqq
ymS/lOCQp0IW5kwJJUQYyNCiQm6Ric5oCrV6F1lkbmeSQVc7msM0d45NqEBh
7tK7qbJZ+eKrifFuqmG3coIgl2wK/XyAyFCqIlffK8efRVwHWBdqQ9ur8R5P
0HQ6h+EaX7k9VnoZlXVE8wfthslnqlIHooSBYAoTnBYPT9VAD3fEK8LLzWUw
8+lbtQ/yIS1I5PbjlYyOhHzj2DGNWm2Sc54KaQHDlL9Fd/btgQWppYrcIhMZ
eZTq8lZOpRoEPmc88yhy8aQF1WRYx2DgvtK75Ahbs76uVtYPPJP095kMLQet
ZdtxlfeU7GXGrwkLoDqoIrPKSoTMDbI/ZYAuJAUYfpDQZTlcU0bp6rtpmgCZ
JbF+xXKAQhEpDIRRyChoemeZii7uiEeEI22ysTd8ydpDEaqgZPfj4c9unS65
wetfJ+0fZu75+w8W/yWPnVDUkMnUnq/sj5Jjo6QiqydxTTMkABTq8ra9Fv1w
j4EKh9o+JNnMQuIrn8tGOaSPGTs/CM68EGNKELE4A+pRqVtUDX854zthMmAm
52f3f/yrs3RndJGp6V5mQCWULuFV9lk27nk7W7kVakPWcc1DEb77Vdsr0bMW
1sM1qjAxyym/VhUm9eCtprWEOGEgBHLm1fbOMhVd3BH3CEeP8jHUny+fWlXE
apJdmhxrL86eTfY/388wXsLORmrCbS95S/Y5xm9z3wlF/EUM2SSyMgyJDOV9
1pO+N6h7o5jZNSHhUcyyhJblNcE3Vp8StTnTT+Zn/zsemwh6h2xVyjcZO0cC
k/HZ+XQd5mfj07HIf/m95850W+hfYexyXS3WtxeI6MUZsqnQYCH8avUewjMP
b46+bjS0WAcDs7mXAk+HB4ulTGkl3EnHpopbXAFcQQpfVIiBQldZTv5z6iQi
5HQYYt7AOi8kag7XWysznxctK5jJfn4yrWWzcHmQ1LjtWaww4M9a3N0hx9EG
+dDFHXGOcFSoVDWNl0HaiChRIHG3lK4p3KDJ8afoQs3qGPjGkzuF6Z7A9KY7
8hOfsj6IIZMpfYfsJotYHq2stfIsJO/F41ORL/yewc5qrVGaLY4PL1+/FZ2O
U2XXi4xQnyEqoWVx5Ere/AUztp90fz41J04pUamKMyBJnpb24dAcOllnl5OR
Pw9YW6gLKHxrLtBbKMdkdgYeFa6kIDlMPf4kSEwdgRTNKJ8fx7MriWuDHZhh
n9PHtZks6scTVucq+2Sy0K2s6k5BNpO6G3QfL6z68mu9aZFrC8sNOkhq3fYs
Xhjwo3AGRLljR6KjhzviHuHrU6N7SnvQxwOpOg1vkTYiihRIJMHX5m6OdZak
I3bA+ZH/1u378+mnzzNbRFea+ZnbX171nEZSXmab6z/iSzzfEcSQyZi+Q07k
ibhRIo7WEh7YFYZMfD1972u/23XC1oYZmttsb7k81yeTy6K9P5KIzNx1OgaG
z/uCkfjDJfFqiUpbnAHPPLgx8ivyYWBt9jPuy4HP/d6xt7vbmvPTt+3dq3Fa
z9DtzMxnTlJnYgccw+O+yx8N5NuMquTgPCAqheWDobDGvHbl4siJfMsGvh5j
onI7CUPmgZnciB3+xGlpLrx93W+Penz56HUPn+psK4zRxs7B8b8l+A7RagI5
+Kl927OYYcD7r2uksSsbdHFHXCOcWlKPQRc9jwy1sfuk1Oxs5DtzdzELEMzS
/Z4vIkj2oIZMpjLsZTuBqBslKhGZFEPm56ln0/7BDiz/hL3BCLEp7B205uYM
7GC/758aT0dwRpbiDFuryW+ujP57Z1vRgmdsd7iInk7VnzaeXU1GrpwrTuW5
+d3lDT+o8WFA4+Rz2r5hR3thqDAe6hu9wn/oI+tqEojix8M30vciAY/rLVsp
enOLI2vPwMiFQCSxkNHwpEuh/NywPaNTmrc9ix0GXCjmNBSpxiwJurgjzhGO
FuJj0kWb0+69hXVn62hMBWvOnNS8903QVzheUcZk7e4bchOZKhG63iCGTKb8
LWIn0GPDPuRMk+XE4AlLi8nuDs+tIU/41dLk7wnTLMcKUVpHA8UZAIATKqgj
oUGQba/D7nj9xnCaQLkwKHb9ULKppbjo4o64RzjaUoSh3hGSOdejgqoF2rqC
YQGSTQf7izv0+mvYhzoxDFXMgYVPpYK9RERhRz0JJc4jKoA2ijMAACeIiv2s
pgagCCLJOi7Naqvfeg2UCoPicTY5e75Iiy7uiHuEU5p/1ddF+lZQNUF0O8bU
ohOxE+iwYR9qAq/T831rIdBbWPhyrGWqUbRTnAEAuIA/DQ/ua6h3WShb970d
5GaPsSegl0WkMmFQKszFZFHTDLq4Ix4Rjpr9Wt6P1jyovUtRUBSxhWeXHtyZ
XdKLpYYGashkWschzV6p+fDN57Pfz2rd045m4Sxnoys1JVI5phpiR1hTxRkA
gANkSVXyXYaaV4wgj4tTVVK1o0gYrMZGrUQ+Q7wiLQqjgzviFeGILmI4y4Pk
PKkG4LxlkUuHdG3BoQMvkvM094UWy/9F/tG1arv46i7FkHnA80OdGgTIwkW5
ZmSyobniDADAnpL7xdDa5ZsFlVkPsncnMUOy6xGvHeQPg5Le0HQ1exQd3BHP
CF8IOoqKoG4DaHwhYC98jtphSh8KqhaonYBhAYLmPCltSQnxKWufdynIL0dY
ZeHQ/iNUsa1DNFqcAQBYguQu9n8c13hBHknBF4MFZ7bpdCitK40pfxiUMjbq
OGIsAjq4I74RjpwuryMykcYNtGL1xGkgmyehz4QVkpxkOltH9m4joRgPCC+r
5gumsc/CIZ+Uusel8mi6OAMAsKCcvjD3BlOaHsWk5GXcfVjPKV9Zw6CUsdHN
EWMd3BHvCMdfJcbJ0DHsdcerN4DeTE+cLTVzpCb0XqUCx7FyjwmdgSYnDfT2
fCj48rS7q9yp0B5YKD0P/Emof6/2C6YhReYZjkUj+ToNv1AsgeIMgO7Bs6nr
ziZIZtYBfUR/iK3p0gkjZxgUXWoMBiQNofU7Ehbh+ELoJKkKqiYkSYXZesRh
t1Sm6fJHjcz6XLjlQQ2ZOfYNhqs1myY7XWLtjmOvFT6I5IR35vxHMe0XTGN/
LJpSr0DjHVoZgeIMQENQKtKl0zSdQMpZvvaR6JJ+VbhcYaAD+yINrd+R0AjH
s4uhwXwNFnpdGnwjFfWetGD7nJfuLK3P+rpaqVPkRio4YNLVMToqFAlBrELa
z06kKfIAzzyKeHpN2JGRicevSo6FUmo3mwoN7mcoa6MFkGPRDPk6PB10llK6
uq/hDMUZgAZhK+nvIYpLmAaCqQ3mzzcQ22uxPxDJiCbLyHcrGh/qGZAlDIou
NVG75imKxu9IlAjfziSDrnxTPMxkH702MRWPTQQvf+iwNGOWk95oiuiag28k
rxKtkDGTw3Mr9o/w5dPWpry40uv8iBoym6xHDhOd0DHL8Y/8X0an48VH1GLs
/CA484J4CCVfwT6H52Ys9vWVocOY6WRgTuNb5bvbS6FTBeWI9dftTYme+jFg
zmBa30MuFGcAGgU8mwr2E+N/3Z5WDQe+dsfdkd/mwTrOT+tzoxxFhjAoTSLW
0diqFH9AdrR9RyJGOL7xJH7TNzrQY82pKaPVPjDmu/l9egOdOPHsymz40sgJ
WxuGtXWeOuePLepVYVINmXsHwk+zq49iob8UW1hiRmt3X5W20WR36QF77jPG
dsfwZ7cX6qW3NMIvCc/halm4SlCDgY7KEdcEijMAjUN2KTJCmKba+oPz+h35
uVBy4zc5fD/q8/RrBVKHQfE0pX42wrR8R40Y4bKBtJlmSN/pnkzcbWUjpShF
I3XsoygDxRmARgJ/ef/SsfzS29TnT0LQluSW1RVeaKAZQtowIA+ZYubhSW1X
/Suj3Ttq1AiXh50HvkPFjV+NmnVFoywyje547UjbWYt+UDxr3SAHBKA4A9Bg
ZB9PjBzJb5e2fzRVu+1XA4BvzQV68xvH+5y+e5lGe4MlDAOiZAd21JPQmiKr
iUbvqLEjXHqQAywMDW4agGw62McsMstdIRrEnkQAxRmARiO7EHZZ8+Z852cz
mcZ4zeng2fTXI/lTDA08/0oVBtnnia9ufJPU0VPV4h1BhEsNeoBFk2ZdUcE3
426ySmbtKuJISwisyz293DBRCcUZgMajkMhqUJ2JZxKX7CaYfxs8DHQMRLj0
rMXdHQWNqUWzruiUzJY1KrHjmfh4oeHRPqd/tsFKnEBxBqDxyC5OjfeaDC3t
7juN5c7c+Sl4fJ8BO+wKPoD5t3HDQMdAhMsAYshs6g9BvY6cykz63iBKOFVr
WFDYNzE08sIHijMAjcfmUuLvN6LzjbWoxJcSX355e36tIce5qjRkGOgYiHDp
QQyZjVCHhx0bM758/hwzD4YWy1WbcsIpcW2wg9CfsPABAAAAAACoR7mRC3bM
P6fBCv2SgGeX7lxy7jMYmi3OP+Q3hacnQ77h7vwWcLOl72IEFj4AAAAAAAB1
wVf+6XUeaGrrGb5+H1JzFLLLychV99BbtrZmA9ZmcwyMXLweuZfegKcEAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAiM3/B5XwHJA=
    "], {{0, 109}, {887, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{499.64999999999975`, Automatic},
  ImageSizeRaw->{887, 109},
  PlotRange->{{0, 887}, {0, 
   109}}]], "Input",ExpressionUUID->"ae16cf1f-5871-4abf-bd95-47d76044b0c0"]], \
"Subsection",
 CellChangeTimes->{
  3.7467908910396624`*^9},ExpressionUUID->"ea2711c5-30cf-466c-8aab-\
356b111bcc2b"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"d", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"I", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"sigma", "[", "1", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 
   3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 
   3.7468070357928214`*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"5842c48d-29ee-4c2a-9a88-3fce86ee144e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"d", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 
   3.7468070361321363`*^9},
 CellLabel->"In[77]:=",ExpressionUUID->"6cb6082a-9711-496b-87c2-14e417c68807"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwAuL4HMdVZp9fO4Y1Mx7pBNKnJ1ly3gLSqmdeZtwF0kfU
rr+4B6TtLhYl3/zy2jEkcHLUHSC9xZP14wMgvcYlNfQPkM6qvLz5L5C2+hra
o/b1tePBnfWbA4C019JNxwKBtM3vf2rBQPpfbIxNKpBmVb3yAkx3Sh5mEnrj
WCEdvVsPSCutsitmFX7jaHBV3Z8PSP/Q+SHKD6TnnT/TAKL97qxbAaLjwpml
KrvfOB6xevwKRBspZHyZ1vPGMbdravNyIH2scXvykb43jr8ee8eeBtJ1/qKq
ocvfON6zWrckEUifcv3/JBlIW3i/zGsC0qsLrZ6sAdJJiYIlt4D0ihuKa8pX
Ac3X8DPs3PTGUWbx1I/3t71xLPm3RvfkjjeO/EecfpwD0tvubNO8AqRTlkk+
U9n5xrHH4qq1LpDmPCLyXQ9IN2sfW14KpJ06mtWqgLTVV//j1UDabTuLQQ2Q
XjVHu7gBSM+ZbL5/PUh8SpfgGSD9vJ6vFEQ/EAxZeg5IL8nTbLkBpP+8vz4f
RDM+5H78Dki/izv9/CuQvrl5x3anXW8cAWs3Ap4=
  "],
 CellLabel->"Out[77]=",ExpressionUUID->"7c7985ae-ede9-491e-8e69-81db7496392d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvV9MW2e6/2ud38U5F+vicMkFEkfIki+QImRZOkTRFr4gSoQEUSuESCNk
ouaY6NduyO4pTEeBRAN01LiaFrRb0plYba3M1GljZXbc/uJ08LRxRjhT3DOO
AkqdBrLtBLchBYIcZIph+XitZa+1bOzl9X+9a/n5SPv3094Fsuz3Xc/zvN/3
eb/v/3Vy8KX/538zmUxv/B+5/+el/hH7f/xH/1sv/5+5/6X739847fz3U68e
/ff/95Tz1H/83yf/R+7/GM79z//433P/k/v/swAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AEAVtpO3PhiwH7A5PphbzWj9MAAAAAAAAAAAAAAAAAAAAPKDr/j660wkTX2+
hNaPAwAAAAAAAAAAAAAAAAAAID+ZiKuJ0kFNR1yR51o/DgAAAAAAgtmNffJK
z1l3cPFZeq/8T2TWl+auugZeHvSvqPtoAAAAAAAoRi6/h/1u14izu41c12NN
bd3OkSlv8G6yUkkAIABUbgBi7KYWvxjtbjXb37i88BzX+mkUJ33fO3TEbO0d
vXIvZfxPC3AjZfLL4bGwl4z81VeNb2IpyOkAAABF0NuamM0x7vaHY082yLoa
T68/js0HPh3vs9UT/9l8xp/c0fphAQAAALnYS8W+qVo9/zWShOrZiOymYtfG
Opub7Kddn319Z3E5SRCPzX0x2XOALAlefT/wo6ZrfK1XlwgDlRuAFlvfuVrz
Z8Xrh4ObWj8OAKiHhMkvj8cCq0G5Mk5f0oCpEAAAQAq8wid2dGz2MQRQAAAA
A5FJ+pxVw3+TKwLB33DspqJ/7GmyOi7Olen8zMT9Q63k4DfYx75OZjQSQzVf
XSIMVG4AWiR9fflp13jM8wD2zoAaQsLkl8djAYRQAAAAUVQNn5jt9MzcCkRP
AAAAYwFCaI2Cr82OWCw9F6OVGj7xuLcXo8bfOuBb1mYCaL66RBio3AC0wH8K
uU5YzYcHpr/VbOsEADRByuSXxWMhnw+MuesHAACgHFzldFPXsDsY24BzVQAA
ALVGwtfXBEKoEfk17j2JmUxYbvH153+tl1184T96uhrylUDz2+EtLZQNzVeX
CAOVGwAAAEAAQigAAIAoiPDZNB5MxCLBL31e95Qrx7Tb6w9Gfqxowg8AAAAY
HBBCjcrPgcEDBdWsbSK8Ue5n1kKjrYWf6ZpZ3FL7GQFOoHIDAAAACEAIBQAA
EAVZTsNCFwAAAGADQqhRYQuhBwYDP5f7mVTE1UaLpa5ISu1nBDiByg0A1ARP
P4lcmx451WnFsKa2vpHpv0ZXt7V+KAAgASEUAABAFFBOAwAAAPsAIdSo7K7P
XbCTFqCY/cLc+m65n2GLpd3uWFrtZwQ4gcoNANRiN7X01URni805dT18P5F8
+J37f1qI4Dl5axXeQAABkBdC8dSPAVf/y+77ZasN/bO7HpzoGflzBDZHAIAf
6MQEKKeLgWgGAACQBSFUXtBJ+iR76WcPo9GHFY9R796bOZS/dt10cDr6K4fP
Zg0lTXQGUabKrYbGDgBEge8sefvNVof7LuM2/CI0SjgoY80Tc2AaAmgP0kIo
nlm9c9HRgrW/c+upYRMNnrrrzn1G+zn/0qYRXckBQEbQigkghJYA0QwAAACE
UPlAK+nzYS/mPly4eqfXu8ydCmsjaaI1iHJVbrUxdoAS4Jn1xcDF0b42swmz
dg66vPNJ42UKfPOOq72l52K06M41+q6ylqmo5psigAaIn/yKeCygK4TimeTX
Y/YGzD4+m9Q+bxaRv43xyJD3PseJFzy1dNt/zX97qeqti1QyNZlPuRee11oy
xdPrj2N350OBa74cfw2EvovGnmwY0K58N7VwecDW1Drxj02tH0W3IBcTjCCE
QjSTj5qJZgAAcANCqCwgl/R58DziOkLJoFjnRwvp6mlQpqSJ2OqS/WCIDaKM
lVstFzyAWKg3orVn8ou5WDxxzztowUymtt8Ek4aaQvhaePJwneNKPFP0sfCE
t8cEQqghwLeSka/crhHniQ4rZRdj7TjhHJ6Ycl8J/GNh+Wkqs39Gi578inks
oCqE4qnoxR6zyez0xFCzGce3wm83U29xny9Z8cd+CY0eIn/oFc9y9dSPr9+e
tDeYbGcDaNQJikO8Ptemh3uod6eUpsPOiU9vLhrIQGTr+6l24jCA6dDMIkR+
USAYE5hyOrMWu/X5h2Ov9+TWIGQu6BucdH/5fRJ1EQyimRzUWjQD9AKeXn90
73bgc/fUxLDTQdeqTW0vOwbH3nf7/h5NlKtU6V//KfT2K8c9DxCPYkgCQqgM
IJj0q7Gbin7QmXcQFaD7SU6a6K0u6SdDbxDlrdxqruCpQiaVjEWCvuKkk1dI
JmeuBKsknfXoxVc7Zu7JuU5K+vrKlWYCIfJmH/ER/nzj9r3cZxD9OGSf5EHW
afF8sqhmoyEF4p8ghqBPECe6iffC6RPVrLq35DlWd9wdKzn+vrcZfKue/ELr
h4PQF6Rb8Mz6//fpwKGyix7mnbH2nnXPJVnvu9jJr6THAppCaGbZN2BFdX9k
a3GmixzhukMcsXozOEy96nVvBNb4RHQ8/cPHPXUmrP29+U1jK2V76cStGWfu
9bF0DL13+cY/FpaT+aYpPL2RXF4IXZ0e6iRfDEvHiDe6vqP1A0tnK+Y+ng8X
jZPhbfQmNfogGRPIcvp3NyLekY4Wa/dvL/pD0Vg8mUwmYnNXXSdtmAmznZ6Z
W0F4IQzRTCL6jWZ7qch0ZxN3FcOHemvHcUpVC0Z+rGiaB6jKzsbSHb97wmk3
7x8scoHzclt+6LGmjhH37Xi5trWtJe9ps8k6HHym/gcQxV4q+smQQ9hKTzCO
twNJPm8xCKGSQTLpc4FvJcMfOcy5Nwsz97x3S5gsJilpori6pEByEOWu3Gqn
4OFgL528e/PTSWlJJx33DZpNBwYDP8v5aM+CE/nwfbzDWs9RyVRWBDtKt7mx
g33jnwZja8LDe2phprf5zI2n9Mffu+8+TD2VSMmRBz8FJ07RH4aUN7kolkwv
BJ+JmNW768Gxw2PfrJWO8mbE1U7+I2aHL45OTACEkV5w9xywOT+cXXxKvsh7
6fVH0Zvus922fYsK9nWBIie/sh4LCAqh+EZ0uhszNdgnb68j+JLgP3q6yNY+
U+toaK3SD21HXPk7I7s8VRyCGKgUgFmG/Csc+2X6Zmc96naYG4jXhyuD7Kwv
XB2xk9VY25veRX0fOcGT10+b6digXKYzLqjGhHz4xI6OXr+/UfrObicDZ23E
fz008BnXqXMtgWgmCV1Hs71U5I8D+UKXXqFwVcPlKF1WkPu/txMgh2oF0Zzs
cw0cbqKHhGhI/pMvGIk9Xi9eeGZSyR/mfNNDHRaTydI5eTNeNGqFq7GxAf0k
rN1ngTeb9s1iuen3JkAIVR5Uk34xeCYZ+fKqZ8blujBKdRViTR1npv331sVk
PdFJE8nVZRbdQVSgcquFgqcSOxuxoHu4i4m92MG+0Q+8s+WTTth/cZhKOhNf
LaXYM2x3c/69dqIS4XXySCx76Wf3fMNtRUG9/rUr//2i2rBlUquPFm5fd487
WFqPpXPsc0E+EvhT/0B9UZ8kHvf2Un9QwY7QfY+RXlue/4yqSxnM/VOzC0kJ
za7VYUITWx8D9MXOiu90fVnjF3xz+e9/GmxjzSvL+dBmvrYUOfmV9liQWQjd
TS3dnMoV4Zite/SLxZSoTYTQOJGDbOOhdSR31tYCg9RtkFzNUemYu5v6Ia4+
q/3kN09b+r0P0Okcko/d1MInDmL3+XseVWLeVogMzqe9S7q9XA5/Ghw5yMo0
iqZ4Q4JuTCDCJ3Z0bPZx+boBXw2N2cmysGNy7hmKxTFEM/EYLJrtrIfftbNL
4ta3Q2t8xo3U0666HDZGEUVJ70UZ6fUSm9xq9G8fOumTSmTXzc271c94Zn6O
eN5owzCz45OF/DNQfWLkXzrsjulS1d5LbySXgr8vmtKmthH//XU+Kj2e3vgp
mYj9K0S01R4uElcbzoWqrpgJQAiVArpJvxh8a/Hauy6SC6ODDnJHifDn/INv
Ps51/rcSopImoqtLhAdRkcrN4AVPWfbSyfkrYy/RERKznXT5votXVdLKJZ1M
3DdAJR3lDcRY15mRcBlD7QfPbMRmPzzNyKHmV1zBRzzMgHP8GveerOv1sloh
XyzOvEQV2K2u79QtDTNP/fkVAPUAB6f+9avC/ySe9Dmo7+2AKwKnI3UK0UJj
6fL8WGn8CNNp3x8GOw/aus9dYdYCIie/4h4Lsgqh+NMbZyx0aKh+W2Llv3Bw
JPgUyTcEfxE6l1e6OZqjePVZlf/NnYeXe3OBqa7f8xDBxbIk8NW//cbWXLr7
zPkbdGbU7ZGT3c3wO63FazFXBBWjJF2AckzAN+5+dfOHyvMZ31m82J6Xld6N
bCH3+BDNRGPAaFbko9XAUeSUA8+sf0/cGUEDl0dUQ3q9xPypdDw0w6zLMNvp
D2dj+zqdONhOzo7bsQb7uW9W8YLlHfmXDrjmdbxvV2INJ1LU3V6NfDxgLawX
+apDIISKB+Wkzw2xAPS+ZSfDvLnvP0MJXqI5+w8IT5qIri5RHkRlKjcjFzxl
yPyy4DvPuOuYj0/6IkK8VamkU2f7zd+IpEM0J+er0YbR0AsFn5ukJDUIE0Ip
mJM+VGLgtye+EZ7oPu1PMD+3NTfRTH2HHVNRtdeGdPc3VYQofzR4dy3wRp0c
4QXQEsI+pbHH+0hgYBc3+ZX3WJBTCKUbhygEtg9lmW24un7fCmqJMw8/Sz1e
fVaVyN84Wdd7+eEOot+CGMjBFf6haHfNutbJuU3dfR87i+6uRlMRcrvfGBsd
xAROdqNTLVSct/Qj54cD0UwsBoxmLAMEgq6ZRcFLOVIcZvUXoNcIhBKS66U8
1F0nFjq/9Lhm42KsCShH0NYz/zX7l35a0NaRQeh+Sqa06G84y74Bh/eSGYRQ
seg96ecVHmqJJmI/SGjSRHJ1qfdBFFm5GbTgKQXPrP7TzdyTUm8bcM8LOR5e
IG9Dffpq8CrRTEthcfpX5H/kEmQQQrPk93DnIrP/m99JFALTk4kd8yypfvhC
dSF0LTTaKkN4AbSFfH0kS9nSJr+MHgtyCqH0spqa5kIPAOJb0WnSHuSIK/Jc
8sMoA9Mc1TYR3qj0Q7z6rDj+kRVfPzE5rEW1jc4hdp/JXfKmNsfYlXu826iy
+NrsCNU2g+3fvEacdNzrrMOOOk+xz+eh5MeLOnqICVUo3FmQm79FPRsIANFM
LEaMZsW6HN/zvyUQxkHsk1aqH/XSERLrJRL8Rfzm71k9Of3TUq5myzz0Oiwm
NnoyCN1PidQstKG9GPyJf6A591caJ8L8FvwghIrDAEm/2BDJ8qZ/RZhGJC1p
orC6NMAgiqzcDFnwFLObWrg8QDvhYO1Dn0VFOeKS7E866lhHyiOEErAOUJjI
vtC7/AvCLL7s7aWmmaQjIaJRWwjdvTdzqE69UQYUgro/t/5N4b0xLKRNfjk9
FuQ9Gr/67dtEZwLW1PHW5cjPwsq/QjxEegORbo6qfyu4WanC4NdnxUV+V9FA
HTWp6FSH2ExHbyFhltFbOuqlJ08G1bdOfvvDVSc75cLKiC+6iAlVSEVcbfmB
5woaWgDRTCRGjGZ43OdgLhKtGwyI04wItzqWEmpqfjuMnCMEKkiql4jff77g
PkWPGWY/51+S2GWMb4XfbmbnKr0ahJIUT2lRDe1sdhLefiFhEIRQURgh6efA
f41OF5RQzDIyu6/xkhsJSROF1aURBlF05Wa8gocNq9uZmGIvTwYr+KzyBd+K
vFvkHqaOdaR8QmiRuylB20ggwe87YTkw1A36n2qQKFQWQvFlT5eaowwoRF7Q
buxyL4r1Q5Y4+WX1WJD91njCZP4X4SbhdDDk6E3SHKY5CnP4kvJb6rH+Rt7q
XMo0Qwlml5lCkHTATHitkoUYqJNBlpHA053t8GQj68PzbimpcXQRE6rCKqfR
2gOFaCYWQ0Yzaoe3sPA77L4vUgAr/XLEHLGvIUTWS/tV0PHZpBxZ5dd/TR2k
hWydG4QWTWmRDe0scDKP8y+VERdCt+PX32htfeN6HKkRNkbSJyFc1Og36aQ3
LuwSErFJE4XVpTEGUXzlZrSCh6FYBcW6XPMCBf6y7NybaWcVH+pYR8ophGaJ
03++QWbXzTzoi/OZMAXNXIZtcTy99PVFV4Ep95XAndiz6tc3iRFCM+tL4cAV
9zT9r7kufr3E66aoTNI3gKk5yoBSFDo6LGeDIveXJU5+WT0WZBdCxYHHff1k
ezzHFYfaQzdHca4TJVnqFSicwzJZzoeQ6iITB9MPT34xx71xIZ+JdcGfXgw2
qZNBFof3YYZyG5Iz59YGaMcEPHXvymivtc7W4womuXQMdjmN1D1ZEM3EYsBo
VuKm2O6KiK5SmROFJIcmwjo9GokwxSqoiLO3lWF3O4NBaBFkscw/hiMuhFKP
p4odH3/QTvrCwB95exrpV1Tw9ywyaSKwukR7ENWo3AxW8OQpUUGPjs1K7AWl
YbvEqGUdKbMQWnIfBGY5c6P6DWGbt0bztyVKd5DA07EvXW/2WDHWh+LRrytU
CMU3Ihf72MtZrMl+amyGpxD6LDhsVXWUAaWg79QTe9+BxMkvr8cCEkIovYkp
oRFFBZjmKI51olRLvQL0NEPwjhURbCeD75BWZvU250dzQntXaDVGnfsEpbMT
8/SasS53jPJLl+fu2poC8ZjA7GxWkwtQ7QiFaCYe40WzYjdFKR4ORct/E2Li
vzGgLpigFyIyteXkYe6MBoPQEshimX8M14UQqnULRBGIJ32K3dTiF6PdNqzp
8MD0t5xKGntLCGuZigrU4UUlTe1Xl4gPojqVm8EKnmzRbXEELQ7Pony1LKvO
VK1Ill0Ize6uBc+y3E4PT4a58zLj5Wtqv7jIXK21GZ16Rey02UsnvnF1swxh
sGNTUa79EGFCKL4SOMO2MWhxuL8XYA+7Pe86gKk6yoBy0CduxJSgUie/zB4L
SAihhU1M7IRnCalzOsXwao4qa6m3txk63+z0rwr65wrTTJO75JQAT2/8vMFr
36gUdrDWgYq4k/SfMbML0ZIzeqgujVAC8ZjwIjp1pDCc3H199B6o6AtolAGi
mTQMFc2K3RS5rBKqsh2eaGQvMKDilZfd9bkLTFuOydzjXpD3+2UqTEQmpzhk
NgglIF5c7HX/Ks+/A0KoUBBP+iRFxwEOjYZ+qfyjbCFUVEOy4KSJwuoS8UFU
q3IzVMFT4oGJmQd8cdG3I5X9BxLeHqkTTyDyC6G5enluopnJzUwnTFkYL99i
tZz4I3YJnhL4zsPLvewbKzl9eoUIoSzbDR5/eT/MYSgwCDUCG+GJtvxUt1+Y
E+SHLHXyy+2xgIIQSm9iIl14szatOErb8pZ6uQljb56YE+iVRifil2YW0egb
0gp2sJZjRaMo5MXQdUX2+MXJxiRgMVWroB4TaCstzNz7x+hm5dFkLBMx4RFA
OSCaaQeC0Uwug9CiK0JI4LIkOcEzK/4hC7PUquu9/JBjqSWO/AoRDEJL2F31
v44JkDVBCBUI6kmfpGhecX57RZKpOJcJgUkThdUl6oOoWuVmoIInfXems5GJ
pcTFB3KHtIKhrnrWkUoIoSxpiISrK5u5lazo6u3c/HyzvmgXQzj4T4Eh1ul1
ToNiIUJoySELoT3nv8a9J8Eg1EAUXwg45F/hvTkiefLL7bGgvRBKHyJA8yQF
DcvGpGJpu7seGrfl5wVL7CIuIGgXvsVDp2wZ7K30TVGwdiJ9Xg9fC08eNpnP
+JMsl/TS46JofwTt0UFMIG/HPjzx9yfcTYF7S55jVMCvc3p52aerA0Qz7UAu
msloEMp2mCTGutX1HTLiv/7JLPsGrMy3i/XMLChgO5Cfn0YyCBVxMHk/28ue
V0w93gTfshuEUEHoIOkTsC+DM5/2LlUMb4Ubc0hE7gcJS5oIrC51MIhqVW5G
KXjwtXlXF8t4Mn/xgczkk05jj/eRSvumigihLGMZMu9w+PTSZWCRKrj1/VR7
25mAoEbL/ewkvP2sz8bV+SxECC22fxfcJv1zYPCAtPACIAZtB03Q0u99wPNu
OKmTX3aPBe2FUDr5Sll/KQ/THFXJQg3fWfL208cHmPKXlM1b340IL4QMckhN
OkW78CibzuE7MXcXZu71xIoDworfyTKPQfojoIAuYkJqYaanrvODaKpykZuJ
+4coR53WIX8coeUwRDMNQS6aFW/0S2hSJZvhWWumkv0gQBKU4wozTiI96qtC
1YSGMgjlJ+pmnsUWk5WrasIzUEgrCwihgtBF0s8WXsMDPRN/CS1Xfv+oDfFC
kP9NUKTXiKCkicDqUheDqFLlZoiCB08vfMSyBq123Fs0+bnbNbOo1sapIkIo
64w/V3VNUjCnYhJE5vHsWIdFDtuBYnmTS4oXIISWHGwU+o0Vmn7BLslA4FuR
dxnTWKx7OrrBa+5Km/zyeyxoLoTSb4eUCxpUgHXDRblNsZ316F+G2g46Ll29
5CAlr8bJMDVAhL2wvcu9KGZByByuecWzrONjalIpylkoSAcVyDz0OixY50cL
pZvNbN91kywXNxgZvcQEMnSbO8/7Fn7ZVyrjmY3710ePEiUkdmTEdz+F1A4o
RDMNQS6aFW/TiD5EjK+GxuysKGcd8C0jKQHpklKRue60b0UZkZkKDjpevO8z
COUl6pLNPIdmFiuqI5n1xW+/iT3n/XKAECoEvST9HPjzBbeztedt33w8VXbV
hm8u+c/ljXyx9iHvPfHZX1DS1Hx1qZdBVKdyM0DBU3QTeo6DI8Hqd6GLgbIW
V9NFXxkhNLsbnWphX9zOsdZL/eDuy80PrPMPt5YSy9GblwYPWxyfLHDo87wp
0WM5cpAAIXTV72R9ssaJsJA5zTpGfXA6+itSyyFAAuTF0EypxdcsVMrkV8Bj
QYoQim8l73zuerPHmnumpraeoT/4ooKtQ3YXZw5R36CAM0cVHyiz8TDs/9g1
7Oxuyw2Nua3bOez6+MtIlUMQfP4ybamHtViJOIe1D166EYnFk8l4LOx3j/ZY
bK9OBR+lcTwdu+wgOqnahn3RROLe7FS/pYwyxpO10CgltxutmRxPr8bC/+vy
zNvEWDWRkxqzdpwacbn94aX1kllE5BYmAKMgHZQl8zQwYjHZx0Kr+0aqpEEF
mdUHksgaE7JKhoXcmP8c8bzRhtXb+n536cqN0Hwkx3zoq8tTw93WeuJWccf7
N2JrohbCEM10g76jGbNTb5Jwjm87GThrYz5Xg/3cN/vjYE0jqV7ajE4dY8ug
CnoOECtEYxmE8hJ1NyOu9obRkHx2fiCECkDupK8w+IvE7Y+HOyyYtedN1yXv
tQCV+iORuaDvT+N9B8lXNZf9XdfLSG2CEJQ0NV5d6mQ1R6Jg5Uaj94KHWtEw
KNUOms3LknWDAfUaRBQSQkvOj3MXVPjz2M0/jvbZm0z11s7XJjy3E2mZtg94
fzoBQmjx3xSY12jTpLqDU/+q6FgK6IxMKnl/1vUyu2fccuYGr80S8ZNfAY8F
0UJo5nFw8mWz7eSFz74OR+bDN6b6iPVyi8OzKKTpmbRdIr89qSZOubx2+a2O
JvZeDLMoaxvyLvLdZ9ldC55tLr02l7bUa+jyLK7Fbnk/PD/Y10GsaDBr5+vn
Z3xzSxt0e8ZeOnHbM/FaZy6fNh0eyJVC66I7NxivD1lLdA3ZSycj16bPkCNV
b+0envL4AqF/kjXkP0OBzy+NO2zYgR7XN0lmC5s226FAtK8eX/92zFZfIQhk
kj4n3+RY68gXE7JKhwWKvfSz+7e8H4wN9uZFsKZczT7icl8LLT4VWbRDNNMH
RohmzOqVQFyz+m7q3p96mE/VYB/7OinrrbK6R1q9hK/4+lmTxoQdd8cUO0L4
7Mag+cjEnH7PLJQahPISdQnrYyvnLdJCASGUP7Im/VIyqUT07z53QVITRL21
573QaoUBxLeSi7f97vdGB/sLfxlranvZMTj2vtsfjq3KIdkJTJpari71spqj
UaByK0LnBc/Wd65WdtYpvoFLXgiRranXK/lGO2H/IgvZhNDn4YlD7D+szc6O
VkJo5smtqVdtGGbu+WCe1RnInGdR7iQLoCaZ3MLxswuOg+Sq8diJjmbW1Cjb
DCYfSngsiBNCqQMXDneUWRQXBH9hJTqdfC1O/4qQ52aDZ9a/dztYXTblwLg9
YWiIswC20oDPWOodmYqqmtCYMKXro2okeOph8MPTNiIc1tucH86WLzb20sm5
iw6rud+7lN98ZF3sQoDC9SL7ITt2Ktqq49vhycaqSQQgkCUmZNUIC4oA0Uwf
GCWa0atXEhEGofiLeOB3dnrNirUPfRZdBxWUjdR6aSvmPs4WBer6fRJvUzA0
IgxC8a3w280yn2AFIZQ/ciX9EnY2YkH3cBe7Q0s4Gjftq5Q0ZVhd6mQ1pyJ6
LngIDZndDqqs3QG+lbwfS8rVD8kHpYTQF9GpI0WTVZMEQFkN8Ph0/IVQxjqD
oGwzz+568LeFrSZW2MSTwd+0kf9HsEsyADvrC76xTgux69cx4g4tpTJ7RU6h
iraOK+SxIEYI3Vrynra0vze/yX4P6J43rHlijq8SypioiC428Ezy6zF7g6k6
fFp2yeC//4ZH2lJPfesbOlxLuMMCAXZTi96hNnKY+BjvpBc9jkOdM3fJgqzY
wg7FdQW+8/Byb10jh3di8XlYE+b0r6r6hPpBhpiQVSksyA9EM11gpGhGr15J
hBmEEnZqN1yvFEpfzNzze8lHQY2H5HqptDOnecD/BHTQiogwCCXNvU1cBqEi
ACGUN/Ik/SJYG1WS4G16phhqJE05Vpd6Wc2piX4LHnzZ28veQBCyrtcFSgmh
Jaf/TNpsdvO+2Ii/EMrjJ1m7/JazQWrCZ36ev/gqmY9bHO67aN2VAAglN5ru
14isih0acP9zlW54KLo+3qSgmbBCHgvChVA8ef20+chkeK34Y7J24flvfjHu
uyJjBZ66y+weYgf7Rj/wzoajhNldMrm8GCEsX86wTlhUGx1iA/HAPjmLZalX
8ZCFYjA7O2q3b8nHdnJ2PN8yZD7ljvJZKeOZ+BVHA9lFX2Rhh6SFFJ7wn7aa
uK/SLkm7CH4KRJAcE7IqhQX5gWimB4wVzYqeh/+Rxr108u5N90hhNtZbu8+6
g7ENaATdh+R6iWpWZFE36BfsxV5LCDUIJe6+OWWW//gqCKG8kSPps8AzydvT
faydZ8zW/ebbM54vfASfud//bZ+NPUXqbIMfXPXt56+B2/cSKa1HT42kKcfq
Uh+rOXXRbcGzt+Q5VrSJ0DYR3tD6oWRFPSFUC/ujEiG08ga3WCG0bNc3vhNz
dxEq2eGR6/dyL+1C6AsXcXoaa+p463LkZ60jKSAJPHXPO9RO3iJ3dGz2cfFo
4iVNoVJPLanssSBYCH0ecR0p9xlZjSW8Kz+mTU7cbXH4s7nJDvJLOdDj+l+x
jbJfC57ZiM1O9ecdfLhadskNxPo39+3c0dsc9Yfd99U+37B3332YqtkOyGpg
pRaFVQb57XdMzj3jPcwb4YnDuS88U9SQL/SuOhWgjpBUq8pKVmeoro40R2pM
yKoWFuQGohn6GC6aFRuENnVPBSJc/DMUuOZ1u4YJDzriK2iynxqbuTYnjxue
IZFeL+VmThtrymixf6EnBBiE4um15ciXM4PtmCIRCYRQvsiQ9BmKuwqJewCD
+5Mpnn5yh7grpzBNuHextUXGpKnk6lInqzl10WvBU+Iuou597uqgnhCqibdG
8Z1NlZMQbyG0xNy+0ofaWV/4cnrk1Q7ixrH8BWf+8ENdbZHj6diVIbtQN2lZ
MNvP+JaUOlQuCWaXqowKSkJsPDUyH0XSfr3qHgsChVD8qX+g7ogr8rz0P7B1
Hr5dLnubwbfyvyTGXHt3PTROXFNrfvXifNW9BrqNp9zD5x/ngeeYucxlrIyl
3qGJcIXfVRA6oGkhXEiFfZVwS7/3gZAai+yE6fnk1mcnWTuTyJUT+ObcZGu9
+fT1KovTkh069U8l6wOJMSGrXliQGYhm6GO8aFZsECqQuo7BCzN/voFC0xSq
yFAvbc+7DrBbcxq6PD+iWCijQskSnri8pq8MJ/bdmyOvQWgWhFDeSE/6NEUq
KGb/rS/2vPLLkr9jnUTJi2CkIlfSVHR1qZPVnNros+BhqsQ89cPBTa0fSmYM
LoSuhUZZDXqVnRl4C6HFtSL2un9VV1YPAtjbDJ0vcsdVE/Nvg9o6sZQlE/cP
UdOpsXM6UsHfYGfFd5ollfPxZq+E6h4LwoTQX+Pek1gZDxlWEhRwIzYrYoiI
QlvfT7U3EIcTFzhKHTb5sqdCSCc7e8vuh9KWetrYvKQirjbqS0K1oq7Ebir6
QWdhDVfnuBIXuiu06nc2vtTXy45J2l+yXAx5jUVdv+dhtYILf+TtaWR9EM0v
SUETaTEhq2JYkBeIZqhjyGhWbBB6wBXZ5vWh8PT641jYf3E4f1ARO+hw+SJJ
ZHuqtEKGeglf9rDv1jKZumYWtV7cI03xlOYP78nPGxBCeSI56dMQbsz5tkTM
Pj6brKZss9x3sV4vqkqoXElT0dWlTlZzaqPPgoeuEvOYHehuE4jF4EJo7jEG
WBuoFcsG3kJosbIqs582YuDpZw/ucp6NUoi7D54heLgqtTDTQ80lrPOjhcoP
SO7701OEvxJY5i+p7bEgSAgl/JMtZTxk8J8CQ7QhT8dUlOdbz+QI4VGIFJ+x
o+du/SRg2uzEPL3m8s14+BP/wIFydtCMpZ7AiyTkgvmWVLphJx0PX78848rx
+9HBk319L7c1tfT7Hgn96Pj67UnmgBKfu3H3UdJFaVJitSIF0vqvrrFwDQo3
xZekwHq2PFJiQlbFsCAvEM0UA6IZB8WGpcK7PvDM6p2LjKtb+5D3HpjhM8hQ
L7ElU2qQdH6UQKb3sSIlHrwVDUIzqWcry9FZz+hLTSInf1VACOWJxKRfAN+I
Tnfn1/5Y93R0g8ekYmmD6PY4yZU0FV1d6mI1pz6qFzxZ6TEW3w5PNhZVKkZc
ragnhPZ7ExoI8sWXvFc8fMRXCGWuQjMZ8OYsoCL4VnS6PZ9WK3fg53+26J5K
aabr6nosCBFC8aTPgbW7IqUFY5EOzP+mJFaOEGyV9uu/pg42tE7ObQr7VihD
1/0tu2SFUFd2eUs3hEvRt6XA6kiXLVZzsbf8xUlr0dpLTJMzvhaeZMJw/VBg
TcT83ScdyH2dgTTwlcCZVpNtPMSrlZ1VKBJoskuIPhJiQlbNsCArEM0UA6IZ
B8UGoSK7PvBUZLqzkf5M9nPfrIIWSiJHvbTPq02b/QvZkOd9rEzxlOYyCM2T
v+1UiZYnEEJ5Ii3p58HTCx8VOvZ57k1nizcakC3JZEyayq0udbGaUx+1C56s
DDF2n5Sn9923siglhO4kvP1F3542Z6/Y/rRkZVah2uQphBafTDk0GvpF0WcH
UIHl/Mnj/iPWxqKKEU8GBAmhq3MfvftfsdLOWLYzgCAjlGfBYWv+9RNWK+K/
RqcPijv4QAaHfTGh0o0GWVIPv9RrPWAfmJlb1aSeZWUlASKzdPDM8uX8Ggwb
EHiOu7D1XKgwRV44WCodyLlikgxlatR6JsDzbrSSJS0KCxAEER0TsuqGBRmB
aKYCEM32U2IQKvqcfsl9kXLbmOsWOeqlku0z7cVzmZDyPnJQMqX5vGLUN6yE
SQUIoTyRkvQLUP2BFEJuPmJFZc0dmyuhVdIUhC5Wc+qj4diJjrGlSQfhWScB
pYTQfd+eVN9j0WwveU4wdWvz2+FyUZGfEEqa/FT7U4DhYBer1dpBCXZX/a8z
88SgQmh5iPNfhTcJO+mNl54Dqwxzr5nA1EnIznUDfs5buitBlsrFBhf4iq+/
TuzyVnFYmVTVkpp1+6rQPIg/DY4cZIKr6LBZ4lSD1L4kaWokxCqwZJsV7rwo
i+iYkNVtWNDpY4sDohk60UykQWgZ2DVADvMZf1JzczZUEVYvFd/9qq8bN7iQ
8D5yUTyleS3/yXWrIiYVIIQKehIpOYG8Ijw/6sKuPWLpACh8FWXRKmkKAlZz
ZdFw7ETHWEbTzmcd492UlFVOCEXo28PXZkcstC51cCRY5iXjJYTu3Jtpp5tL
G7vci1De1QREr35h0dJ+cZHHdfZF06mWhNC9Jc+xwqsm0G9cdOrMPIsGQ8si
OyNI6wz2DaGp6FQHz1HWAq0yKd3ByON8WTF43NvLsmkWnQiKj7khlY63Hnr6
i9zEhaPAYO6uhz9wlF6GqyjmNscHYTkvuZOyJtJpWNDpY4sDopnUvyMbUg1C
2ZS2u/d65T3AbYDIlkdgvVQihCqq1eCZFy/UcuoX/z5ywdcglA1xB4QyL6MK
Qiiejl0Zsqv5XtCY7UNX9nU7i0OyEJr3NyCxnA8J2GDaXQu8USjkQAiVAqzm
yqLh2ImOsSVJR8KD7z28erIVY/8tzNpxoq8cxzuo4/yq3ZqtkBCK/+jpYich
bTte0nGvk3H27HLH9r0XPIRQ9jaTibcXHKB38K3w2835Uee7Bc+eTugmq/1I
FULZK6DmAf8TIa+89I1gURDVcutoaC3/v27eGrU0C9pEVheNMiljeyv0CGfJ
olj0gaOSa+/Q2eTN4snrp80N1o7jZTN6Rbrb2OVF3WBgrfo/JYhigw6VkNdH
XaOYkNVdWCigs8eGaEahfTSTxSC0AOsSLhK5L4YwQGSjEFovlaxJlbQx3Jqb
aLarZJMo/n3kQrBBaJY6XXtAmTuRVRBCd9eDv9VEBiWQTbKQmvRZ14IIvcWD
/T4emghXPfqnCcYWQqWBev2j3diJj7Hy7b79et/7HyeZFdCJDmuRKloUTdq6
T/T1OZznbyTUOfOgkBBashmniOmKEHYeePvpmxnLOLlVFULxzTuudvqe0I7J
uWfIvFyAomyEJ9qETmPWdNLV8SWJQii7Zbpu0P9UUKDXSvTI/bsHCts0maf+
wbr6N7VxM+aFRpl0MzhMDaxQC6+SY5LiHcCKjxigs8lLHZUVsS+m1FkM1qOl
4pHglz71+DIYict6T7R2QqjOwgKNvh4bohki0Uwug9A8pQaocg+u/iMbieB6
qeScnXJCKHlrjOASTiyi30cuRBiEUoYVCq1VVTkaj6efPbgbEcNXro7c8rah
w/WVqF+/++CZXO3DEpM+W8wUusHEfr+0liwqAkIo97+Lcv2j3diJj7ErfifT
ACh3p/TOxv0/O4uucjL3zNxZTasumSizHCs5+IOAvSqeSX49Zi8omebT3qWi
naIqQmjm8ezY0YJ63eJw35W/KALQZDc61VIYeb7eQezLBzW/BEEIkoRQ0ua6
8AoJP14kh0e6GAhXqPy/SKxzzQI3kVVGE7dtCRZeJVZ4op+ZzuMEwnyflGR3
M/xOq4A7kliUfDOaeWijjFYxIau3sECjr8eGaIZINJPPIJQA3w5PNrLrf3QX
7Boiol56EZ06wvpaFRNC8Z8CQy1infoE/2PIGIRms+nl0FdRZXpcwCOUJ9KS
PvssqlDj5d17M4fqRP6uehj7siSJIF7/aHY7pIQYW3Ldj9whomTTVKv3ThEh
tGQzTnaPIHEUaaGYfXw2yRyV4BJCQQWtYfBlD30Ki7e4t5Pw9hd+ie1YgjyS
hFDier7CpxYh/zLxVt27UMnBIuIevrN4sd3UMRVV5TiYSFhTSz3vWfEWXsQ2
Ams1ItYBbG8zdJ7ZlRTm+6QkO4vurkYhdySxKCkAGifD8l/QoHe0iglZvYUF
Gn09NkQzNKKZnAah2eL6h6THm4DYVoqIeqn4Fk4T6xCorJBGuIdGQ78o8cf3
gY5BqKKAEMoTaUmftVeFOXxJIWGHvdYT+rsqoknSFAqs5sqi1dhJibGlap68
IYL90slRe4hFCSG05ACR5WwQmeZkPHXPO9SeryXMr7iCj6iG/gpC6F46cWvG
eSj/800vT3z5QLAKmo6Hr1+eceX4/ejgyb6+l9uaWvp9jxCNsmzEn7OQiIzn
LKTCmhj8fW6fhycKDdHFd9ihjhQhlDCVKhTpYu7SZW08qZojyE26Ls8yTixM
sGOeJa1XpZxo8i3RhyOE6tvs1miTeEs9skGl8EfQuaWOtJ7Gjrtjovac8Ufe
nkZW6nXKdyrQMGgVE7J6Cws0+npsiGZIRDNZDUKz+05wyypwGQZR9VLxSCkj
W+Fr4cnDZW9SUAbR7yMXYgxClQWEUJ5ISgqsvaq6QzP3hKy9yJPUhTcLjd6t
smhYFPEHVnNl0eprkRJjS893yBrBSmoq6bWHWOQXQikpngaJSq8I/EXi9sfD
HdTEqLc53vksGH1wY5Q11k193nuJaPCzCydtVKmCHXS4rkVXxeTSveUvTlqL
TBB0clxaU+dtFNokCFit7Pzds5nTGULNurVGvBDK7nIR96lZX7W6+Z340Lng
vplbmJgRrn8omEyqXkVNN1cItpdhvz4m0fdN4Cs+5lL21nfCm0hsLeBPb5yx
1LdOzm2KnDHFZ/fQ9aTSEM1iQlZnYYFBV48N0QyFaCazQSi+FhgqKni1vwoK
PcTWS2z5VJFuK3wn5u7C7GOhVZVCh/j3kQNRBqHKAkIoT6Qkffa17wI3qvAn
/oHCpbjYSW/8V2H/snpokTQFA6u5smg0dhJjbLEjkKxXH25GXCyxUMNFkOxC
KHV5BA2yt6tnNhPRrz2uN7pLVUoWmLXz9Um3PxyToUERzyxfzps4y5nxlQPf
WfKdsWsihZrtQ1diSPSEstc+vF9SJm7obQkgXghlN4GUOY+Ar8599N7XnBfA
sfaG1E3wZOr8/dcBFW8HEA+9tSfwEi58Kxn5yu0aOUXc1Gdu6znj8oYTlCU1
nt746ZdU5cPdTHMFcb4Mz2zEgp++PdjT1mTCmtp6Byc+DcbWKnxrxdJB3Rui
fMvZRwgPjgSr+ZbhP4VcJ6zmI0Pe+xyvK55auu2/5r+9JNLnBF8NjdmlHXYo
8d5R8gpgvaJZTMjqLCww6OqxIZqhEM3kNQjdWfGdZhupqthbqCNE10vsuzsV
OPG9E/P0WixnbghzB9XmfeSgZJOx35vQvBkHhFCeSEn67BAtrKDCn/oH8mEL
s4zMrqEbscQmTVWB1VxZJIydhjG26AyLydRwLvRCptdj7777MPuQjcTaQwIy
C6H4VnS6ndmxVHFjUTS5WZRcvnt5kOUo09DhurG4/JRjaon4Z5SxBAcUhW3K
xPPsKisFHJyO/or69C9CrBDKqiLKfupf496TWLVpz5xqkTHS8oD40I2OwYGW
+qEAwvUPCdNsbHH6V/j9zm4q9qXLcRAzNbQNfugP308k47HIV1N9VrPjk4W1
h9eH/g0zYebT1yt4ItHNFdiBCzfvXjvfaT7kuPCX2UiM+Dtzn411Wjick4ss
R0RVRKwGKo6HZH58K/x2c/Vc9ktolCoNxFn4UmnOetovxfquxElP7ElbQ6NV
TMjqKyyw0NNjQzRDIZrJahCKr387ZmProHpYAqiOhHqp5MDdSzOL8vWE4hvR
6W7MNhZc5T+ztXwfK1JiEIqEPxUIoXyRkPTZQqggryHyjcsHZrFmR+ogJmlq
AKzmyiBy7DSPscWu5vL1d+3F3IdZcVozg9CszEIovnnH1U5noIZ21x2xxwbV
psqt8TKgjCU4oDCsicEzsdJ7/Y3HPA90JniLFELZ7jrltrqIUyctB6f+VeW0
yarfiYmoYaRSGGIUzk9Vg5mOR6aiPFZA+OaS/5w9961iR0f9xf7GOw+8/TZr
x5F8Y0pFmZpursCarC1m+2+vLvzCGhs8E7/iIMbeOuBb3j9meNLnoPfFRKwB
2OcLLG/6V6oGzq3FGcp7m9Mhir61WVxbF9E2Y67rvfxQUqdTyc0XSKxBkEOj
mJDVV1hgoafHhmhWBTWimZwGoVSfPEOd7Td/Axl0H9LqJTzhP013k8povrSd
nB2313W55nnrB1q/j5UontLqX7RXFhBCeSMh6Qtfr5Fsfedqpd7IOglmR6og
NGlqBazm9iNi7BCJseS1sHRElUlkZu0+EDQP+J9o9ubJKIRmEoGRNjpBm/u9
S/o5EaO4EIrHfQ7qmDmSbyhQCeacO692C2avH6U7wvgiTghlu+uUMxAgvxMe
9/cRm4hUXFT1mHD+Q6NiS8sJXV3wWvOmYh4nGXRa+r0P9p0NY/eWVN6dYTVX
YPbx2eT+n1oLjbZWnPDsi/MEr9N310Pjtvwvt/0myOMaT2bLleNGXVZzPmGr
LuSJCNJx36AZ65lZkDpFS+6NR3WJpCkaxYSsvsICCz09NkQzbtSIZjIahG4t
eU+zrZSwzg+iKb2VQCogtV6ibDzpb1mWBjZSBcUE6Y0IvI8VPkvxlEbkqAUI
obyRkPTxhLcnP+789Tfy1kvql5C18qMRljS1A1Zz+xE8dujE2N3N8DutTGo/
NhWV3Ly5c2+mne1LKe50nkzIJITi6UeBsaOF5IwRLbu6KoEUF0LpXXt9GIQC
BZiqlWMxQrMVcx8n3wKLw/tQf8MsTghlH0QqsxYj9n3qeBmF0VtXatZj1KV4
+rjWijlvUv201+763AViJ9GEWYb8K2VdPnbvzRyq414sMM0V5kFfvOwamT7i
XXZHj20Zx0MMZ8AzK/4hC5VSeB+Oo7ctuCoNujlf6L2i5FPFfQNmTJYt0ZKD
IWg0rqCGJjEhq6+wwEJPjw3RrAqKR7OsbAahdONKgQprLkCWeqlIc67r+fgH
KY76+It44Hd2TNAJdETex7KUGIRqur5mACGUPxKSPuM6yFN/y1d0ZMwS0g6t
EUKSprbAaq4UgWOHWIzF1+ZdrP03qbucZD8JK0xrPJ9lEEL30vFZVw+dehrs
I76YrlTQrOJCKBiE6pfdteBZ0h+jrurhbtogS/KxWY0QJ4QyMaTcWow4dXKg
n9eBO2Yrv3EirFbxStkK6eJaK+YwdVXRjLzTnKruKneMMCuySosFxl6mcmnB
+DKVHzXWsaPq9gj08zMuKw32c9/wO1+Jvwidy38gjuYoXn1WFX51/fakvUE2
dybZbyo0IJrEhKyuwgIbHT02RLMqv6R0NCPYDk80MhFInEkXno6HpvtZixrM
3PfBHKiglZClXso8nmU6TxrsY18nRd1okB877OhY4BF/MRWh95Hr3yVBRS8C
IZQ/UpL+9pLnBDk1G7o8P1af0elFj4NSp4TZL2iEgKSpNbCaK0HY2KEYY5mX
hczyA58vpcWJWdQBhIZ/62inywZt53NJU4rAtRh5/9SlM22MTNw+5JlflfOO
IXVgm/YIK3H5AQaheob2x+A+nkPvmFTceUEecUIo3e1cxvaBOHVS3/nRAq8i
W+IpP3GQPmz1bwURPElRyvPwBLW5V/W0F3M3cd2Av9INsMWXCZb9EXpXl8PQ
gzayq5Q+6J1Nnq8Gnkl+U9hZO9Dj+ob3Eo+fpR6vPqv97KXjNyc7KctwaU56
BfBlT+GLI0FlyYYUmsSErK7CAhsdPTZEM24UjWb5Zyu+eaexx/tI2BuGbyXv
XB7pYF2kgB10TAXjItdHtYFc9VKJFiq4/2R7Nfr5WKcFa3vzs+gvQiQgpN7H
EvCtyLvMEU6t19csQAjlj6SkT7ejYFWPoTFvkPALubSBf9LUHFjNlSBo7BCN
sXjqrputhTr+OL8qTNDC00/C7tdsGLl593xuohmr9nhKs5d+ds833GZiU//a
lf+uesXXXnr9vxduX3dPOO1NtAZab3N+GFyWbDOcq6wiX7ldI6c6rJjJ3NZz
xuUNJ6iyCk9v/PSLrDe5k2Q24/Ofjdgbir4Hc//U7EIyJVfKWvE7LVoPNyAa
fGfJ20+cnmiwT95er3A1WzJwlnAAwzom557pIKOWRaRHKO2cVnIahfzeLMcE
nDeh1wjq5TIiU9QNBoQ306gOc+qnymkv1t3EHIcdWJcJVrWX4TL0YJ1Eq5RG
8ecL7lPmfOrkdE3Jxf+we8BGfkzsyIjvvoDqlGmO4tgR5tdnVfQb6fVH/7rp
Hulgkp0Js5+7HlsTnx4ym4noddYxCoq2kS+XpZxxNCYaxISsnsJCEfp5bIhm
3CgUzRgyqfjti8yiRkh1mkklY5FZ7/tDbAk0twRwuK4vCJLUahIZ66XMyhyr
FxdrO3MpGNuoukTKTcu7N93DXU0mS+eYb2F9n/kc92+j9j4yT5Z+tvjX0eKl
HNY5HV5FIamCECoESUk/sxocI92YuZo88dR938gRoqRrenky+BjJQdkH76SJ
BLCaYyNk7NCNsTkyT265XmEOgJiPT/oiST5bn5m1WNA9nKsZsEPOmX+QO8IF
L0GVHSOfBSf6KI53WNk+pWzqrR3H+ypxghAoi8Bs3Wc/+jLyRHKy2U3FvnQ5
DmKmhrbBD/3h+4lkPBb5aqrPSlSbaw+vD/0blqs8T1/n4TLPwU/BiVP0h+lu
M5f/DugPZ+04wXz4C8Fnolp2eM1GAGV2UwufOAgt9ECPa7a04YE2yDL3T8+t
6HiAxd4avxoYJl8k9lbXXjp+Y8x+0OFZFNIdS8fkdldEshszH4h3E2uZiqLf
i8fcWVzFXoN1GR+v9Fdx/ctjwzGXjeddB/L/GtfBCvz5ovdN6uwAuV5bfFby
EmU245EvLxKrMxO5pn4/sCRwW41ujuKqu/j1WZE/uex/29n3cltTScIryg59
b/njfEs86g+Wy6Fsmtq6yWTjGPokmkJwX1t9VI8JWT2FhSL089gQzaogczTL
Ejcv+Cac+VK2Qlgrrnd5rgDkWwLUCDLWS1m6sZMejKaOM1Pev0ViTzaK5ySe
Xnu0cNvvvjBIyNeEau2LPhVerKL0PuK/zF9801FxXlaa2K++5X+kemYFIVQQ
0pI+vVdV1vMBf5G47R5sayB2snpcgiOzdvBOmogAqzkGIWOHUowt/2Fyb9DH
w+xt0KbOoSnvbCT2eKPkbcukVh8t3vnaOzXcTUiO+3ZL03dnOhvVns8lpmQi
wZraXu5zDk9MuX1/jz5al6P8oaUk7Oio/0HRvvnOA2+/zdpxxFp1QHlBBHwe
5V5p9UdKpvzvoSuieDaSfgKfvj3Y09ZEfJO9gxOfBqU0FwEqgWeSc+7BdmKS
2hzj7uuh+UgkMh+e/csFQr2vtzkvhhJVu6nRRqQQmvtufrp1jjhjgtnf+uzW
PyPzt/wXhzvM/zbgEXrehDapqD/svq98aMS3wm83I1T+cbC3GXyrns83g8d9
jsL+DkebUPXdmUzSN0AmSK5VNstcpeqB8Z2N2I33iZeFSp1t3bkk4soxPuzs
LizM621945/yaWsphWmOwhy+iptlAiz1Vm+NUkdgyXxXXguot535ivfGXOEP
FqROTqEBa+q6GN3SdziRCZVjQlZXYYGNjh4bohk3skezLCugSYYooB3kCuDz
wO17CdlOTtUMstVLBYhmm0/H+w4Wjy+duVh9LxJVa6Tex90fPC9Z8m9f9UVc
QfzH/u3MjceqZ1YQQgUhPelvJ+c+chLd+JaOofe9s3MRYrkWunH5PbKPHWvq
+I+ZwH3hkVlDeCdNVIDVHI2QsUMqxnJQPumwojF7c6rpsHPi0+Di0315B88k
//nXUFzYsQRjkop5nOTAt/R7H+z7QthGRnr02GQ1MF+4effa+U7zIceFv8xG
YkTL69xn5GauXixKgNzy55b3w/ODfdQ7Xm/t6BuccBukHUK0EJrNR8WJ148R
X0su6I1dCoiS9/Gn/gGqE0aNTSKqo+bQRPi50v+SZNZCo6T3FXbCs8QZApn7
Lzj2RvFfo9MHTdzfM+1pw3Fkkr13edIb5+OsvLOxdOfG5Q8nhwfyiZLImycH
R99z+76JJjbFLhPo5ijOSkOSpR6gDerGhKyuwgIbHT02RDNuIJoZHZnqpZI/
mkrcux343P3+2KCDPu9mbus+4Rgcdc38+YZ01Rr19xFZQAgVhixJH08n7970
uIitKcrLhFiujX14JRhNyG+ypzi8kyYywGqugJCx01mMLSSdqYlhZx99yJrs
NhwgNkuv3Li98N/rYBteBdp8HrMM+VfKRqfdezOHqNcJfYvg/dANzFiTtcVs
/+3VIhslPBO/4iA+nC4urQMMjRQhVC7wnwJDlHGZ8jY4eduWfm8C+f2orbyt
NNbrrbJpx7T9c0RLPte35Ut3ru8Hf+IfaKb+sbp+34qGpSXTHMVxDEeKpR6g
HWrGhKyuwgIbHT02RDNuIJoBaFKb76MMgBAqEJWTPvrwT5roAKs5CkFjBzG2
9sCf3jhjoQ4sHHfHtsr/EN0DrMeQyDy8CbOPzyb3P39hs4D7UnIAUBoUhND8
AQeTCucp8rYtjZPhbcQTwN5m6Dx5BozDOrsAk0a7ZhYrRFTm8AV7r3B7ydPf
xpyhKKTRyt8PHvf25ncTj7gimu7D8mqOKmupR3y3zU7/qlpPCghHvZiQ1VNY
KEI/jw3RrBoQzQA0qc33UQZACBWKqkkfeYQkTYSA1VxW8NhBjK05nkdcR/Jy
9ID/aYUpwsvxFVWYhzcP+uJlfdB3Et5+k/5CHGA4kBBCcy/EorurkXgh2i8u
7ij3QuRtWzD0l430vmrru5GqvpHMwYrKnsb0fY5sexmiDamF5RJT2KCpWLvT
0bvONvbtupaRi9UcxbHSKG+ptxGesDdPzFUoOAA0UCkmZPUUForQz2NDNKsC
RDMAVWrxfZQFEEKFo17SRx5BSRMpYDUndOwgxtYY+Iqvn9r45tIAWR6bejYI
rVydZpI+J/Ut8L20CwCUABEhNLu7FjxrUXyXikoTfO7b1ZhCnGw85nlQfSOI
OexQKY3Snswm06GZxcKHJ3ZU69guMQX3mPL7ibSnhwmzX5hb1/YrpJujOJL+
7npo3Eb9DPa6f7XwwL/+a+pg+0R4Q72HBcSgTkzI6igsFKObx4ZoVg2IZgCq
1OL7KAuIC6Hbcd9rFtsb1+NILUBVS/qoIyxpokWtr+YEjx3E2NqCbdNa6d6r
LMtjk8PxFVn4PDyr7u3zJVV9PABggYoQymwj1g8F1hTaqMo7D/O5b1dbCtt2
fK0zMquBYTJLlv1o28nZcebyYCbg7Kz4TjcUt+UXMni3O7avlT296HGQu5xm
pyeWEvnJ5IJpjsrNmLeCm/vLDXxnydtvLnxsZjVCWo7rbpO9NlEhJmR1FBaK
0c1jQzSrBkQzAF1q732UB8SFUFRRJ+mjjtCkiRg1vZoTMXYQY2sJxuWA0+yd
9tjkEktRhdfD02IpCKGApqAjhGZ3N8PvEG39HNbB0sCXPV16iCr42uwI4aJs
6ffxtkjfeeDtz+U4zDzgi7Ovn8v8PO9+zWY55b7jHye9u+mAg2/OTbZ27Nux
3YxOHcP2nZvAU3c9A4cwYifxd4H4C+3rU9pSjyw4HN6HxSO6sx79y1DbQcel
q5cc5NY0vUOKrwTO2Lvci+i5qwP7UTwmZPUTFkrQy2NDNKsORDMAZWrtfZQH
EELFoUbSRxwxSRMtanc1J3LsIMbWDowTAtYyFa2glZN73NRP6doglOPht+dd
B/L6PhyNB7QEISGUuEctOJJ79THLmRuV3IMlkLeUQT6qUInMhHV+tJAW8C3g
65GPiP0+S+fYlfmlJ8lELBK4NNzRbO5xBZY28Wxm9dYksatY98r03I8rS7fd
A+3t575Z3f8vZB7Pjh3FTAd6Jr+Yi8WTifvh61NOW70JO+h4/+ZSCoXtacZS
D2uxthBfVvvgpRuR3NMm47Gw3z3aY7G9OhV8lMbxdOyyg+ikahv2RROJe7NT
/RaBXyygJcrGhKx+wkIJenlsiGZVgWgGoE4tvY9yAUKoWBRP+ogjMmmiRY2u
5sSPHcTYWoG5G+vAYODnCj+Ujrm7qapQhwahmaRvgJQ4uZwr9mLuw/nvwezQ
644PYAiQEkKJ5HnjDLGbdngyLPuJis2Iqx35qILvPLzcW5d7zJ6ZBeGHFzJP
o1+6JwZ725owzNp5amTKeyu2wWwvbq9G/zo90kf+196z7tuJdIUaAt9cDl2Z
Gnm1w5rLntaOUyMu91eRJDrHL2lrkYYuz+Ja7Jb3w/ODfR1Wov6wdr5+fsY3
t7RBN0ntpRO3PROvdeY+S9PhAdf1hXXon9ITSsaErE7Cwn508dgQzfgA0QzQ
A7XyPsoFCKHiUTjpo4y0pIkStbeakzx2EGNrAUYI7ZpZrNAvzRyfZ3tsbi95
+tvQM8Xdx/PwxKF9D18C2yiV7XMLAKqDmBBKmKUEx2xKbIbmfdjQth3OLPsG
rCaTuce9sM/hBSjAWOodmYq+0PppAKVRLCZkdRIW9qOLx4ZoxgeIZgBgQEAI
lYKSSR9lDJU0a2w1Z6ixAxSDORpf6W6sbHYzOFy/z2OTmPYtemiezOc+k6nf
m6iwU89cEGaq6/etIP+RACODnBBKeKzMu7owU2PndCQl49tBBZa6NwLoeo+n
475B836XGKAE2lKv/MUigOFQKCZkdREWyqGDx4Zoxg+IZgBgQEAIlYZySR9d
DJc0a2g1Z7ixAxSC0QArCaGpmMeZv07p0MxiYY7jSZ+jThfNkwUhlHaz3wce
9/bm+0GP7PO5BQB1QVAIzRaut8O6XPOyHamgzHsxhy+JaI7K3wuM2S/MraOT
3BGEZamH7mgCcqNATMjqICyUB/nHhmjGE4hmAGBIQAiVjDJJH1UMmjRrYjVn
0LEDFCGzGhgmdc7W0dDavv+6nZwdt+dFQvZ16jsrvtMNA3492CavhUaJq9Iq
J7/nEdcRqhu05FYvANAANIVQwjj69qS9wWQe9MVlOWRAeWujewkjvnnH1S7j
5zUwtKVe/WH3feigqh3kjglZ9MNCBVB/bIhmvIFoBgCGBIRQGVAg6SOKgZOm
4VdzBh47QBF2Hnj7W0z7+4czP8+7X7NZTrnv+MebMbYQim/OTbZ26KR5suD/
Wb4jFM/ErzjIY1CwcQAgAapCKPGyJL8eszdg9vHZpHQ/bHwr+p9dxy5G0bSL
pvZMzafcC8+RfD6UYCz1Dk2EdZEUALmQNyZkUQ8LFUH7sSGa8QeiGQAYExBC
ZUH2pI8kBk+ahl7NGXzsAEXA1yMf5aaNydI5dmV+6UkyEYsELg13NJt7XIGl
TTybWb01SfSF1r0yPffjytJt90B7+7lvVnUyw/AVXz8hdXa7Y/u2Bqj3hbgr
3umJ6fs+OMAgoCuEZsnseXu6r6Wu50/3UsbdNcg8nh07Wmf/rS8GaZQHtKUe
WgZBgDrURkzQLxDNBAHRDACMCQihcmH0pF8TSdOgg1gTYwcoQ+Zp9Ev3xGBv
WxOGWTtPjUx5b8U2mAbR7dXoX6dH+sj/2nvWfTuR1tGZoc3o1DFs38l3PHXX
M3AII3pBfxeIv4BXBkACpIVQAjz1Y+D90yfc9w2UO9nsrgfPdQ55IqvG3eyW
E8ZSz9TlWYYwWpMYPSboF4hmgoBoBgBGBYRQOTFu0q+hpGm4QayhsQMAYZB7
BJjpQM/kF3OxeDJxP3x9ymmrN2EHHe/fXDLSbgigd5AXQgGAxfay5xWqg+rQ
zD2IpAAA6BaIZgBgVEAIBQAAAGoVfHM5dGVq5NUOa70Js3acGnG5v4okEbG0
AIACIIQCegLfil7qtR6wD8zMrcLyAgAA/QLRDACMCgihAAAAAAAACANCKAAA
AAAAAADIAwihAAAAAAAACJMXQuvbhv/oq8g3sZSOTHoBAAAAAAAAQCH2UrFv
KpfNfxxuqwchFAAAAAAAAFHyQig3Tl8SSjkAAAAAAAAAyCR9zqrVMwihAAAA
AAAAKAJCKAAAAAAAAADwBYRQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5dhNRT/oNJ/yLm9r/SRAFXZjn7zS
c9YdXHyW3iv/E5n1pbmrroGXB/0r6j4aANQkuTcu7He7RpwnOqyYCbN2nHAO
T85cCUYTqQyu9cMBAAAAAAAAAAAAAMBmOzn3QZ8ZM5naXJGU1g+TJVTZxS9G
u1vN9jcuLzwXriNsJ299MGA/YHN8MLeaUeDxNCYTcTWZCDCbY9ztD8eebJCK
KJ5efxybD3w63merJ/6z+Yw/uaP1wwKAsdlNxa6NdVowa8/wlOd6cC4yHwpc
+eN430GMfEebOt66fOdJWjM1FGIpAAAAAAAAAAAAANDspZMR3+Rxs4kCDSF0
6ztXax31QPXDwU2Bv42v+Przv93U50so8oSaQguhXGBHx2Yfg3IBKEyNd5Jv
J2fH7VhL3/S3iZL2bPxFPPiHHjOphppaHO67KU20UIilAAAAAAAAAAAAQK2z
lVz8fj4U8Hn+c+z1Y1aMLZ+hIYQmfX3552k85nlQ4fh3RVg64RFX5LkiT6gp
VYVQzHZ6Zm4FVFBAYVDrJFcZPP3Dxz11Lf3eBxUar3fX5y7Y8wG2xeFZTKv7
fAQQSwEAAAAAAAAAAIBaJ+HrayJt7AaGJz+8fOPO0rO5wnIXDUED/ynkOmE1
Hx6Y/jYpwmEvfd87dMRs7R29ck+bLiyF4RJCm7qG3cHYBpyIBxQFyU5yldlZ
dHc1Wc7ceMoRZPDV0Ji9sD9x3B3bUu/x8g8AsRQAAAAAAAAAAAAAimGUtZoU
NPQGMVxN48FELBL80ud1T7lyTLu9/mDkx4rXJwGAVJDvJFcVfCvybit2wrPE
7QmA7yxebC8ooc0Tc6oroQAAAAAAAAAAAAAAFANCqK4ghVBXBI6+A6qCfCe5
qmwtznSRPdiHB1xfxlK7FX9w997MobzPpqnhXOgFNFYCAAAAAAAAAAAAgKaA
EKorQAgFkKCm48aK32mhDSl6vcuV9c1nwWFr4Sdf8dTorVIAAAAAAAAAAABA
DYGnfgy4+l9236/cNqQpIgWN3fXgRM/InyOrxl/aIzWCMgmhNTR8gCKoLoSi
9BqyhVCsZSpa+ZFSEVdbNQ+BGnoZ+Q1iJulzVrBBhj0gY8N+X4rp8yWr/G4N
vUdlQSlCAgCgL2o9fgIAAAByg2dW71x0tGDt79x6impyESto4Km77txHs5/z
L20a98AnciMoV0dobQwfoBiqCqGovYaZp4GRvBKK9cwscHx8trBzZCr6ouwP
1cbLyH8QQQitWaQIoTXyHpUFtQgJAIDOqOH4CQAAAMgOnkl+PWZvwOzjs0mE
S1MJggaVN03mU+6F5xLyJp5ZXwxcHO1rM5swa+egyzuf5L/YxdNPItemR051
WjGsqa1vZPqvUdk2NFEcQRmPxss0fEBNop4QiuJrmM1uP1v81n/t5p0454Xq
+CNvT2Neyal7I7BWsVcLYimLghDa4QpEivl+eQORUIX/FHKdsJqPDHnvpzl+
KrV023/Nf3uJc5bonRfLoWuemT+4XOPDTkdf3/EOa4N5eHad61dy8yHocrRb
O8b8y+w7xDIby9HiIb8TcL3EUwjN1mhSkz9C4un1x7G786HANV+OvwZC30Vj
TzaMdhvjbmrh8oCtqXXiH5taPwqwnxqYhMjNwJqMnwAAAID84KnoxR6zyez0
xNA20JMmaODrtyftDSbb2YDICpyq4Vt7Jr+Yi8UT97yDFiz3JL8JJnlk4d3U
0lcTnS0259T18P1E8uF37v9pMZkw++StVRmEQjRHkBFCM2uxW59/OPZ6T5uZ
aEyzdvQNTrq//D4ppFCUPHzGYGdj+W4kX3B/5p5yuS6MDuYW9Cc6rOZTXvB1
LItaQiiaryFfNoPD9XkdFOv1xjmDGsTSAgUhlJ/2pQX4Vvjt5uqdir+ERg+R
P2Roe9i9R/63Xs2Fy24yE1HUDwc5l/b0N2Nx+lc4/7rgyVBrSU3OCIlvJSPX
pod7rFjZfuzDzolPby7KERFQYOv7qfYG4nMdmlkENwF0qJ1JiOQMrLX4CQAA
AMhPZtk3YOW9CNUUqYIGnv7h4546E9b+3vym4FyOb95xtR90uO8WGmbIy6lz
HJyO/sr9zeE7S95+s5X1u9nsi9AoUVZgzRNzW1y/ywNUR5AUQn93I+Id6Wix
dv/2oj8UjcWTyWQiNnfVddKGmTDb6Zm5Fd5VoqThMwirfmfZkrtaF19No44Q
iupryI/MU/9g4c5421Cg6keAWJr/BeSF0K3FmS4qQByauVdxqGgZvEbCCNP/
bHb4OFX/rbmJZirmdrtjHB21WVGToZaSmmwRci+duDXjPISZLB1D712+8Y+F
5WS++w5PbySXF0JXp4c6yYBi6RjxRtd3ZHl87diKuY/n037jZHhbh+nFgNTU
JER2BtZS/AQAAABkB9+ITndjpgb75O11dJJbJWQQNNJx36DZhFmG/CsZQR84
tTDT23zmxlP6l/buuw9TS0enj/NMJ7nqb+m5GC06ckh/Fs77S6qD8AjmPyJ2
dPT6/Y3Sb3s7GThrI/7roYHPuA5sFiN6+IxCOh72E82gVz0zrrN9NrYo2uXh
uBG8plFBCEX4NeTFzqK7qzEvqPdefrjD5zNALM3qQAjFf/R0kZ08ptbR0Fql
H9qOuA7UVBjJi+dV5U1WP+1hd6zKCQZxk6E2kppsEXJnPep2mBtszg9nY2uV
g8XO+sLVETu5QdL2pndRx4dn8eT102Y601eJkIAq1NYkRHsG1kb8BAAAAORn
dz00TohRtvHQuh5202QRNPJtCS393gf892jxp/6B+uPuGNNwhMe9vVRpwN3F
hK+FJw/XOa7Ei3M0nvD2mKQv3pEeQWK4sKNjs4/Ll034amjMTnwDWMfk3DPe
woOY4TMoz8MThwrVKWe7V42juBCK9GvIg62Hnv58O6h50BfnvS8BsRR9IXQt
kO/05Wr1TMfc3TUVRvZi7sPUnDnginA0OOE/BYZayJ9r6vVWVYjFTgbjJzW5
IuRuauETB9EQ/v16ddEj70dKhrXT3iWp3eLagD8Njhxk7Xca2rlCH9TYJER/
Bho/fgIAAADygz+9cYZwZjs4Enyqj400eQQNfOfh5d7c2rCu3/OQZ1nya9x7
sq7IN+/F4sxL1Mqx1fUdx1/ZW/Icqyta9VP/583gW1QLVDWDMi4QH0F84+5X
N3+ofPUGvrN4sZ0az9Z3I1s8P4GI4TMqz4LD1kJ1ytHuVfMoLIQi/hpWI3+4
jFypCb13AGIp4kIo/iJ0Lt/5yNHqyatr1EgQkxCrPmfwnZi7i/o5y9lgdccA
0ZPB4ElNrgiJr/7tN7bm0oZwzt/IxH0DZDObPg/P7m6G32k1sVH6vj+gCjU2
CXUxAw0ePwEAAAD5KfTj1fX7VvSyepdN0HgecR0xCTgEuhGe6D7tTzA/yviG
dUxFOZ5kdz04dnjsm7XSf2Qz4qIkwGoGZRzocQRL2I1OteTXmf0Cvgehw2dQ
tuddBwrnlWrE2U8cigqhOn8N89cNiFFBKWo8liIuhPIzCOXVNWok6C0kzjlD
diCTP9bY5V7k0WskZTIYN6nJFSHJvyP8+6HtDetaJ+c29fXVshxLChwYDPys
9WPVMLU2CXUzA40bPwEAAAD5wbei0+1EYj7iijzX+mF4I5+gga/4yLOg1qIl
Oe/noC8WwY55lgTcfF6A8cSrev9CJfQ5gqUULknhcVE1G2nDZxCY052mmnH2
E4eCQqjOX8P0osfRIkEFJajtWIq2EMq0erZNhDcq/RCvrlEjwWwhccwZph0U
a5+O8jqwIGkyGDSpyRYhiYZwsquuqc0xduUe7368LL42O2KhBnJ/PznKpONe
Zx121HnKzpKhmvp8Ca0frHapsUmopxlo0PgJAAAAKEDmoddhkWGPXmXkFDTy
G4hiTKvwZW8v9Rx8fMPK/YGkz0Gtw7gNyjjQ6QiWkoq42vLlVf1bwU3+OoiE
4TMIuUX3AN0PWiPOfiJRTgjV9WuYeTw7dhTLrek63wkmpbh+1XIsRVsIpVs9
uaIrv65RA8HLIHQn5uk1k8JFl2t+XxtyeSROBiMmNdkiZCo61cFSYwTteqyF
RqnTvZhl9JZo9wyVIf0E6lsnv/3hqpP1wU1NrghSd9XUErU1CfU2A40YPwEA
APTNdvz6G62tb1yPI2UujW9F3iVTMkeXCJLIKmgUbujgeeqN+T3G2bJu0P9U
REWwuxZ4I788FWlqp9sRLIUlhAps6BI7fIYBBYNQNOPbPpQSQvX8GuZV0Ia2
Ie9iSuqqoYZjKcpCKNPqiTl8STAIzcNsIVWeM6kf3H3kvGpxeBb5Xx4mcTIY
LqnJFyGZxm8R1QITJcTGGdWh/AQsI4GnO9vhyUbWJ2+cCKOdbo1LTU1CHc5A
w8VPAAAAvUOd/LU4/StaPwkLPO7rJ/boq1zRiyDyChr4E/9AM/HHLOdDInoR
xW/s0lvDYk3tkB9BPHXvymivtc7W4womuS7WZAuhAsdU5PAZBbZBKDbgS2pS
VyMZ3/ajkBCK/GtYEfzZ3GQHZmqwj33N+Xry/4M1G0tRFkLpVs/6w+77FUcF
DEJL2d2cf488zS30BZE8GQyW1GSMkLv3Zg7V0VJM3XFvXMjXw7KRQdPhsATK
T8Di8D7MUE7qLBkKyVBTG9TQJNTnDDRY/AQAANA9lFCAlKcK3YTDuThCE5kF
Dfq6YSE39WzeGqWsfkR7XjHVlDhTO/RHkH1q2zocfFb5J8V3hIocPqNQZBB6
2B3TZh4gGN/KoYgQiv5rWAH8+YL7lNnU4nDfLW9xtrsceO9PwYSgpo+ajaUI
C6FMq2e7K1JJZq5lg9CumcX9Zn27qYVPHMQVz/W201eXhN27IX0yGCmpyRsh
t5PBdzqbyHFxfjQn1MqDVvtNpobR0AupD6MwpC0D1uWOUdMv6etjy1CapXug
ZiahXmegkeInAACAAUBQKCg04WAnPEtonm+ojOyCxmZwmMyavO/pYK72MLVf
XGRWSZvRqVd4Zl582UO16Yg1tUN/BF9Ep44UaibuvW/W+e6Gc6EXAr8NwcNn
GNhSM3bANa/RPEAwvpVDESEU/dewHJQKirUPeSte9IAnvD3Y6/5Vgc2BNRpL
ERZCebV6ljUI3dsMnW92+lfVelI1YbaQymQcWgUV1ywtx2QwTlKTP0Li6Y2f
N9Ji9A0mBaAs41DsJP1nzOy9ocKUyIOqRWONUAOTUM8z0DjxEwAAwACgJxTQ
TThIJ+IKyC9o0ELcSzOLPHZomas9ijcct+Ymmu38XLD4GJRxooMRpN2QMHPv
H6OblRUVxnMJa56YE36VpsDhMw5sg1DunltFQS++lUUJIVQHr+E+8iro0bHZ
x5XXMWSLYMtUVPAh6dqMpcgKoaxWT451a3mD0I3whF1UQEYfZs7UDQaKHVG3
k3Mf9BEqaIvD/f26GMsIWSaDUZIaUhGSrUGhbQFBXi9eZxmZZS7oYj88USsJ
36UCUEAnk1DnM9Ao8RMAAMAIoCYU0AcH9Hack0J+QYOW7HhdmMvcUFz/JquM
yf2RN+uLmpo4qGpQxo0+RhB/6h+oOzzx9yfcG+d7S55j+UWp0xsXcbJV2PAZ
ByQMQrPoxbcKyB839PEaFkGpoOZT7ugvnNOFvBhXjJJTm7EUWSGUbvXkEEJ3
10Pjtv1r21//NXWwXX/3f/GCNpVt6PL8yMyZzM/z7tdsmAmznZ6ZWxEbT2WZ
DMZIaohFyCIlx6ldxqwGvhaePGwyn/EnWZe94I+8PY0sHQrh5wc40MUk1P0M
NEb8BAAAMAaoCQX0ypHDNAxhFOjsYg5X8uhboP/9ogakre+n2tvOBFZ4rcQZ
CUucqZ1eRjC1MNNT1/lBlONC6kzcP0StSVuH/HFxdZWg4TMMaBiEZtGLbxVQ
sJMc8deQZnvF/6bF1GAf/uiqrzJXPTOuN7vNmLijbzUZS1EVQplWz9xX/Faw
zM0R+M6St99c2E9hhhz/NTp9sPXdyJYRLdYYU1naIHRnfeG/JnsOmEwHeib/
a2Fdym3D8kwGQyQ1xCJk0dleWa/MkxN8J+buwsy9nljxLFzxOy0sGQrZ5wc4
0cEkNMIMNET8BAAAMAaICQUvQqMNHCsj1MHXAkP5QkK+48DMyugVz3I1J6uC
6xqzasw8nh3rsAz44vxO0jESljhTOx2NIPnNmDvP+xb2d6DhmY3710ePEotw
7MiI734lu8LqCBo+g4CIQWgWufhWCdmFUB29hgTbydlxe2HG8EDsgNZiLEVV
CGVdzGEy5S//ZbGzHv3LUNtBx6WrlxzkCrdxMkx9h/hK4Iy9y70oRRBEFmaN
TBiEvkjeveke7moyNbQN/ikYW5Pc5CTTZDBAUkMtQhbd9oKqjJN56HVYsM6P
FkoP0rDvlDQVu1gA+gH9SWiMGWiA+AkAAGAQ0BIKdhdnDlF5rMeb0EG7R2Zj
ORohmQ8Frnk/Gu0+wKRic8/opc+uBULz1E98v7wh8hPRZ+X4nK9M/eDuy6VY
rPMPt5YSy9GblwYPWxyfLHD0PRbxa9x7UoqpndwjiGc2Hob9H7uGnd1t5tw3
0NbtHHZ9/GWkypF2vmR+jnjeaMPqbX2/u3TlBjVU86GvLk8Nd1vriZs3He/f
kLr8FDR8ugDPpBLRmx7X8KsdxLeENbX1jUxfiyTpDi1EDEKzqMW3isgthOoq
kGZWb00KUUGlfEs1GEulaF/KhV/GIBRrsbbkviasffDSjUgsnkzGY2G/e7TH
Ynt1KvgojePp2GXyeqC2YV80kbg3O9VvKbMQVhmFvhn61KTJ1HK02242NR0e
cH12SwYJlEIuVVz3SU2FCImnV2Ph/3V55m1ijjSRkQCzdpwacbn94aX1kgHd
jU61yBDfFCXzNDBiMdnHQqv7vrB0zN3Nis/IJ9yawViT0DAzUPfxEwAAwCgg
JRRsL3teya+NRFyFUQVCvPm7z11YuQii3trzXmh1/1okFXF1d5zo48HxjrY/
iL3HcCfh7aeeo2E0VN1cG38eu/nH0T57U+6xO1+b8NxOpPk3PPwcGDwgIUHL
OoKZnyOX3+poKiuRNLQNeRf5KhK7a8GzzQ5fsvzn2Us/u3/L+8HYYG++UGzK
LWpzheK10OJTOVbbAocPcTJPo1fOdRJflKVj6H3v7FwkMh8OXv1wsB0z90/P
PyW+MFQMQrOIxbeKyN1JrmggzcodS6kxEkS/NyGuH7AGY6lY7UvZ8EsbhDZ0
eRbXYre8H54f7OuwEoqotfP18zO+uaUNeoj30onbnonXOq31pDB4XdrxcMko
+M2kYx5HE6FUDE/O/PlGOPZMwHzj9egyCaF6T2qKRsi9dDJybfoMOUPqrd3D
Ux5fIPRPcjv8n6HA55fGHTbsQI/rmyTTWM4SwAnEOWkoC77+7Zit3nLmxtMy
sawwr/KA+aHmGHASGmgG6j1+AgAAGAakhAJ65Whx+lfk+7M7G7Egeb5MClpu
jzL9YkpbytDnxURWQXKNIJ5Z/97taKkwFnkwbodPmp1Fd5etX7uN1/+/vfP9
aePK97//gHnCQx4gISFLfoCEEOIBCF3BA6JESCHaVYRoK2SiVhBpV5BvVdhW
hVQ30Kutq7sl+rZkdWvdrpV766hr9W6cfuNWWN2Qr3C+G/fWUYLydRqozBa3
kAViEQTBML6eGXtmbPxjfs+Z8fv1rA1jj8/nnM/5nM/5/DBOfPpyvJ9Y8DCl
6hxU+2+8938p8G/mOt1c9K/sEVMgNEOYfuPRO5JcJ0WagS6VASm6VIHvS3/1
KxQIPT0Xs9BB0Oobk2Z1Eiy+qemlIendp+FPLrYzPvL69pFPFkrfpR7vJ5eu
uducw/6VXM81UeMwBgJbvaRic+eosi0j6YPIbKPoByir4Qw0waaT0FYz0OL6
EwAAbANJjgKhcIp2nYYEk0AVVM8HS9vmXTDypXvq3hT1L9YctgkF90WdV2Mv
5Z/PtJEgnU5+M93TUEYUBWIpcztc8E5b4Xddze9HTOysYZD4dOVo99FnbIJq
di1cWUiWqmtEby5O99S98qf/+wUhBUIzZOk3AZ0jyXVQpBnoUnkQoksz8n1f
hqhfvkAoIRUaJWGDjUm7grGW3tR00ZBHu8v+8W52ekipK76/7HN3nZ1/wLp1
Clu9EOfEoQ+fXh+sa6xQmLcwq9pBjQQ3DX1DwGHXSWi7GWhp/QkAAPaBJEfB
ZnAkd8rW5C4ye2y5e3VItDdS7effen/e9wXbfvhz70fvDLXXi3bOuvaxj0s1
LP6v0N2Ha7um2gQHkZlG7iV1jZ/Zjc31cUPROff9SwUfoIUE6d0HQsgN1Tk0
9bF/IRJjasclk6vLUaaA5yVRWmLnZLjiiZOJumkxubOGQeLTD8EL6nCO+OJl
T450wj9IudraeF+BuQVCM2TpN8PQWJFmoEvlQ4QuZZHn+zJE/YoKhJatWEIc
ttiYtHOEWnpT015Ditq9Od/wxk62XzwJnU7ccDdcDKwfiqLHWUgr7EyvBS+2
OTo+jFZw2hf02SHvJ9QE9p2E9puBltafAABgHwhyFAg3eky/VJV7WGHwBtOI
IRzfKT5z0Ps/3WN65eS3zsr7rIkcP/ae4vwMLWOhX9R+WvqnO3Ovt1OUc+Dj
+6LQLHprYdLFjkUdaxfJRwMJ0s+WZvvYl2gZ8PyfkyLj/ii9E1+YG+aqE1L9
3vhhue9io27q3zL5ylVb8RkNfbjiH+a8oI6O8WCiknVN/xQcbRYZo4prOWoF
QfrNMDRVpBno0kqQrEvzryjD92WQ+uVzMOtPeR9bIx7UJhuTdo5QK29qGmtI
rixMTj32zS49k/yJO5GZU9klkBYXk3E4GmciJHWSZudqVcd+KjwhvgojK56w
BrDzJLTjDLSy/gQAABtBjqPgOBV+O7ePqa1fX3Byp3reCcSfl99Ac62BWVwm
VpKsCN9PRP3J8Wg7/E6+wYkoL4xOhn/Xzf7PttHAqiILQr0Ej7YXr7RnH3e+
fq2oBGUJ+Ovv057o8zJv9MR3ztnh+duegnfREg3FZzR06p6nN7eU6oYD61WW
B9+EgqVrftnkpB9y9JthaKhIM9ClFSFZl/JI930ZpX6FAqFdM5Eyz5KFbTYm
7RyhFt7UtNWQB8nQu+05JdA67H8i59qD3ou83zzw2Z3PL4gqjpDlGKFTS7Md
9c6LN6tEbgtFD7lJYaGSFzbAzpPQpjPQuvoTAADsBDmOAlHXP5VWOlP3pjV/
ci9Tz1DM3t88HbnjOzXoJ/L0vhv1cCdr9fecoorornfDXERK+pf7115nT/St
bu+DKmWFyqJagnvfzfU2MEk9jyo4W8TkHC/1E+FUiX+l96IfdiiNyNIUDcVn
LEIcVHZtvOKNVz24F/TuJKAhJjn6zTC0U6QZ6NLKEKxLT35U1c8xTP3yBUKt
Uh7NPhuTho5Qy25qWi6uo93Yx2fz/qM6941EWuaC3wyONP5qaFBUm5Gsbt17
ce8rVN2w72m1rZ/+0T/QKPoVpLXasTH2noR2nYHW1Z8AAGAnyHEUCPuCKuuU
3oldPZ933Zy/GpPScll0nqV+G9wk8GgmDI7qGuD0Ydzbnx0g6tTkzYfJ5Oqj
xS887k7KQTX1vX09WjXcRdJLKpLg4XrgYh115vKdn2WYcYdx36Cz9OUvk6bd
0jyzZHY4aEZT8UljPxG5eX3ek+VfpsYuDA39urupdTjwo0z7mN6LXe3lDezR
YLX2H1m2Fqc68oYoCUEF5Og3w9BIkWagS6tCrC4VI9H3ZZj6FQqEOvp9qyS6
youw08akiyPUUptaRsPFRW/fnRVqhki5KDxBURgbs216ogeErAq2gGRdY76Z
TmUKW+04+ueXCbC8agBbT0Ibz0DD9ScAAIASkOMoEPYFFdVp6P1Hf8zfjUrc
PTMFqVKa9lnWDlHGsQZHmMPtR7euTr7e15b90c7u8yMTnn8PRp7uyL1HLkad
BF9+P9fZ0DG7lJL3Fmx0TYmmPKyPok6RWag92oqvOserX1xoE9dLcijpW8S0
82iU97jQjTfLq75V06tMkaPfDEMTRZqBLpUGkbq0AGm+L+PULz/+dV3zDwl0
lBdjq41JQ0eoNTc1Bo0WF70VmRWqKtaPh7YULPoTPigC0ijy0OuhSx2O9iuL
21KWqci9TK7ytx32noR2noFG608AAAClIMdR8Cw80cZtC8ozBbgwDA453TpE
hgAJYWwnESVznfLGCS0oo0aC9MvY1U5l2YJs1fETltvzqOe0hJqWxmCW+Oj0
6vXz3PdSozIThY5Ti+8J9+vSCi7Rq75+/hHzC4RmSNJvhqGFIs1Al5qLRkJk
kOL7MlL90nuxTwfbWnpG55c2yc8ItNnGpKEj1IqbGocmiysfDZ73usxEdpR8
TLEPSplrVw+4urgdl0ISp+p+3Hte9ENqas81C3tPQnvPQEvYIQAAYHvIcRTw
taMVW6dcb0EOea06RIYACUNxEtGmSW5BGTUSZDJqpSVfn4S9Wi10u9HrgeE6
pWah9pglPvog6mlRZmsV9n8vU+yuCHE0ICFBBeTot4xDI6p9j3pFmoEuNRtN
hMghxfdlb/WrBpuNjD6OUKtsajm0WFz0RniyU1DKze9HJF8VFcDXy+Ugp8ML
WxdXTsHJgvLg2f2/3/cDEbfQNsbek9DmM9ASdggAAFgCej9+Y7zH6TABZ8/4
jfi+JruNauuUTgSG+bP7e4sytvKjrdCbeUMAh3fFqJFg+lksvLiq0HN2HPee
KkjE3o3N9Tl6ry0fEmIHmSU+/oqcavHcl5UDSCf8g0KkgcTQvlTU0yvzEUnv
Ygv9ZilHKHSpyRjsCLW3+lWDzUbGBo5Q5ZtaHg0WV+H+KPGisARHy/NdDg0+
R2v2nvqGxb4xBZCrXAs42o587O420rpwdrs/jkjK9a6CrSeh7WegJewQAACw
BEfb4XdMcRMwON8Ja7Gnq7dO2UMHByWzE4E4paJrJvJc/pfrjSU2TQ0P7zJ5
sTjV0DG1uJX7z9SdKVezrDA2nTFJfHQi4OYUg9xcp5cJ/wXBxKYu+BMvqz/E
poLmn9GwQKg99JuVHKHQpWZjsCNUHaSrX/MgbmSs7whVvqnxqF9cRUm4im/9
smM4KnJlkRJETSdvXnQ2tPW9MiSL893iBOu6sdBW9a8yHVF3P+PQpI+PnSdh
DcxAS9ghAABgEej9Z08eRJXwlaevweFo6PN8pejxB0+eaRQvpdY6FVsFcrdy
oWaUw3HeG5fWFcRQLLFpmucIZb66JZ8Ik94IjtXVvxXaMr9CZR6TxJcKT3CO
Sdm11Ar7b0rLQKSTATdvT2tbINQO+s1CjlDoUtOxlCOUdPVrIqSNjPUdoco3
NR71yUer/kGRx0X5m4i1pYOUIGou4VpqhxoRycCQeKOySAsYejcRDd8KGMet
cDSxq17ONp6ENTEDLWGHAACA7SGnhp66Cvb0D77+hty2IrfEjbjVNSHlcYqx
RGFtDRt8yIXpF5n7UsY+dMoMY9MbU8SnopYaE8gkmJPSWuvSLxYv8w+RUSA0
Q5J+MwzVyxC61HwMbpakEsLVr4mQNjJWb5akvkBoRoPFVVRTUfGb8E5dBnml
mHXjKBX5fYeMDjUiioaldS6GyxD9sO0krJEZaAk7BAAAbA85jgLmyKDciyLa
ASl3IClnBxW3upb7rFEcrvmHc69I7i2nOgmqgh0fZmTow+VrvY6+udiuod9f
BVPEp6JAqLj5u9SUK3GKGTntwsnRb4ahehlCl5qPhrrUAEco4erXREgbGQ0n
g8U2NRFqF9dRbK5V2B8Vv8lxavE9Ie9CXilm3Thc9vY3yulQI6Ko+XjjbOSA
xA3AHth2EtbKDLSEHQIAALaHHEeBYJ0q2BdEVkFd1/xDOdeAbMJa7tmmQf8q
kRunqsExChNfkj3f9ftW6edRz2nqnG/FbGuuEFNGhk9vl11LrdCclJbgLA4j
1LJAqErI0W+GoXayQZcSgIYvaYAjlHD1ayKkjYyGk8Fim5oIlW9+nAq/LcTQ
Kb71o38OjfOurMZ+7/Khkk/Rlv2Ef6SOesUbVxS2TP/oH2gU+aFGlCZrg6rY
dRLWzgy0hB0CAAC2hxxHgShTQPa+IG5VLNMkoH8KjjbnHpXYFMYEhE2T4HIy
aiSo+rujnqbs0KSWZpqd5HlgzBAfn94uu3iUSI4OyQnO4qQkgjKSyNFvhqFy
GUKXkoCGutQARyjh6tdMCBsZXRyhVtjUxKhcXIX7o9LGN/R6QOiK3fH7SMr8
LZPeuH3JVd8xu5RSOE1/CY21iEaGzBrR9sCek7CWZqAl7BAAALA95DgKRFec
sjcGsVXQ7YnKyD6jN4KjOUuAck0ubJl9UCkDHwhRf8r7mNRwGzUSVAt73vyX
b0Jv19eNBTdIMyuUio/eS0a/8nom3+hroxzO7oFLHn9kbZ/9AHp/5+d/7JbP
Hjpanu/iZMEUIKLTO/Hwn94fG+huclBN3YNjM38Kx7fKDFOhjS2pfhF9EJlt
zD9RPxFOFf7z8do3/3r1r2YkSpOj3wxD5TKELiUBDXWpYY5QYtWvmRA2MhpO
BmttamI01JAOR92birpfMRHC+Y/onAxvVFGW9M+LntfanKfH/Y8reHbo3ZW7
wS+Dd1eU9OKhNxenexyud8PKm3mJgtwkbR8vVhe/9M3/q8dzZWLEPTT0Sl9b
g3NiYbviW6aTYY+7t61vOrhay3WIjZmExgrIhBlY9AL6rzIBS9ghAABgewhy
FAgpmQ2XF1/I2mPEVoGsbIiXCf+FXKdrxekYBiDkHbtGgutmv01ZVEhQLcx5
s9E9NtpaPx4izgOjRHxHu/FbHncn5WjoHvskGHm8lkzEo1/NDbU53Z892np6
c/yfKAflvHizjHfxYNX3KjetWz74+sGX7511drk/+M+FaJz5nKXPp89mbbBW
t/dBKVuuwMauGwttVX9bcZ9xp7u43j7zr9RIcFPaL9cUgvSbYahbhtClRKCd
LjXKEUqs+jUVwkZGu8lgsU2t8D3ULa6C0jGK7ilEkXgVfq/w53uR93Oh9pUE
94/FKc5PrKA0Db0Xu9pLtV0MrqmYpKKyhwzVEgqOfwy+/frQ0Gvnu538Mydv
UQvhfyPR2tsAjJiEhgrIjBlY9AK6rzLxt1nDDgEAALtDkqNgMzhCKTiAM4is
AjnP7v3N08GZAnUq0jH0R/h5p+diZLTjLokKCaokP0JqSofphlzx0amV4OWe
7EhSZ6aCTwqOdYdP/MPtbX2nc11vy4Zr8ilCVFNbq7PnnT8/+odIHnQ6ccPN
TPy20cDqSTmJbWxJJjadCLh5U/lEOhLzry0m3XqTpN8MQ90yhC4lAs10qVGO
UGLVr6kQNjLaTQarbWoFqFtcdDLgpmRtkEXPb4QnO3OPu94Krld1p/CNCCsW
bebbfyuIDzyM+waddYPXnx6qUdxHm8Hf8gMjY9sVSjuevEUtZG9pppkqbWbU
GIZOQgMEZO4MZNB/lYmxih0CAAA2hyRHAXNPz21iMjMashv1mn9A9uGdrcvN
PdR+ZXHb/BpNZeHtdpWbr96okKBKcmYFCV0vTyJPfLtx3wjrVWwd9j85Ubue
6z7MUb5VKF9LLftHPVcWkif/amtxqoO1gUskIol7f0sxsQsqTZ3s1MmYjr2e
aMU4Ar0gSb9Jht7972sDLa6pOwqHTN0yhC4lAs10qYGOUALVb3r3WXJjZ9+0
tyJsZLSbDFbb1ApQubjoVf9g/rJItho52l680p57uPt3YQkFY4TgsY6pxXL5
GfRB1JMrj8g055LzRlntHRhzUgPzj9TabEVdu6X65wTJVvaeiWL2JFXssTVG
TkLdBWT2DMwYsMoKsYodAgAANocoRwF/4y//fY4fe0/Vy7Fs6XQiMOpktyKq
33OfgKy18giZXF3zy0TvmSokqAquRiXVPLNEYEauHPEdbS99wITNOCjXeHC9
ZLW0o4fzXZzPqWzij1BLzTkWSJQ0XPkcoubR4E/FX/Py+7nOnFurcSZSJWCF
q+zEU3zEpl8sXm6Q2HFJe4jSb9Kgt+57+qkSIykddcsQupQItNKlBjhCyVS/
6e3YZ6Pt7Exu6p+88VBdSTdlkDYymk0G621qBahcXIfrgYv5q7++uZh07w2d
Xg+OuzgPiKQsfga+EWElnwlfnaZiPFvJV2K1tyalG47j3lMiN1TD1KKUWDfh
qRZP9KD8SwgtzpsI6DtmOsZNQp0FZP4MZNB3lRVjHTsEAADsDVGOAr4GlAT3
y4lnV3yvsVt7Q7/vh+rb6f6yz81tRBISqUxGSPeQsa2bgxoJqoE733XPRHaM
+06pyBAf2zSTcyiVr7Io3M6XK1Ik1FIrfwAXSkGWktRubK4vZ0oO+CvWbDpY
D77lElmeJ67gdyIz3dXqSukHUfpNCkep+3/o5aaLcmeFymUIXUoCWulSAxyh
JKpfemth0iXKkpTSkkZ7SBsZrSaDFTe1kp+mdHGJKoF0zn3/UtpDdOqep5f7
nQ09l7/dlDQd2ZtE7l0rBKFJimcr9dz23dmeBs0KFSYDQ6IlJ22aCcWlK9oJ
9GHc28/9nap+OjbCoEmor4AImIEZvVfZCSxkhwAAgL0hylGgKu+A3v7rdDtj
FVD93njlOjPpvy9Mn2G3IcmX8mbyPDLDhULIKv1tCtpljsiDLe9jWthhZaSL
T2jiWTcaLHdoL+ycW/JP+HCXCoXp+IJIJW1FkU1baVQPt5Y+7K07M/2l9618
0mKRI5R1R/zT1OI/yv9qXSFKv1VHdEhR46xQuwyhSwlAK11qgCOUQPUrOtjm
oc75Vox+QdJGRqvJYMVNTYz6xcWHuVaIUC34xnTyW88A950tA55vkyUjY0sg
rXShpHi2Io73E1/PnuWuMavVfpSGuKgOg6Rot2fhibbq70BvRWa5WL/Gfu/y
ieoKtYkxk1A/AREyAzN6rrKSWMgOAQAAe0OYo4CvRK3k7JDeDE+zdW8qBSbR
u48Dk6cZ26Hp17Phv5Mdv8QiZKqqa1NoDKokqBjmlCStv7nhSBafqNJmhcw+
UefcqrXUqNHyNR75c2W5M2MqNneONbFdw6UN1IPkwpWeujPTC9lFxHfSLHKE
7sW9r1AdH0b3zHKQEabfKsMkxZ9ramqkJJ3lK6J2GUKXEoA2utQARyiJ6reo
WByrDy/4ExLDprSCtJHRaDJYdVMToX5x0c8fed9gC59STNf73fKOEXovGfHm
qjRQpycDj2VcGAlBaBXiiqXFswl/vr/94/dfeyf7moSQaarn8s34lnIdnk6t
xW7mnWw83ZO3Vvcrv8/BfU9L1fY6ws0s1Xs1Zpo5QR4GTEI9BETUDMzos8oq
YC07BAAA7AxpjgLelFXUXYW3Cqgz06Efi7c/+sXaXe9YdwNjMwx4QivkdjYW
I3SHtEZ9eHUSVAZzSqJa52IEpktJFp+QfyTtrFc2MEZCdI3YuC2fG8inPBc3
FaXTO49ve151Cu4v+vDp9cG6IhOR3o9fdzs7L4XWzVtopOm3CrDRHc2Twb9c
aZJ4lq+E6mUIXWo+muhS/R2hZKrfve/meotiQo1u4UfeyGgzGSy8qZX4UhWL
i36+7H+rm/P/dF/6NLz8rKgtVzqViN66NtHPqvT6dvdHslUlH4RWyWErLZ4t
s7cafH9k6NfdTeKSEQVQbX1DbwcTUnUj94FDQ6/1tZX9yOz2231+iME9/lls
t/ijJdWfZFuKs+9Heg1qE9B5EmoqIBJnIIOWq6w6VrNDAADAxpDmKEhvBLkd
qf6U97GiLeIgufTHEebe09U3/pF/YSma5f7i7et/GO9zZbfZpr7/NR96vCM1
L8l0jlPht+tVDYjBqJegXLhWleTMYTGSxUcnAm5nzmyrcN1cPTAme9QdpapZ
a6KS8pUykujdx19O/yqrIKj2C54/f3s/u5QiC4FP/3movemEOX2QDP/+LGPf
tg7N3YpE/9/izQ+HnI09s3e3zVxqpOm3srDZ6F2XQuuHfCSbKmeFJssQutRc
NBGi3o5QYtUvnU4ueafc3U0Nbeff9UaWPh9qM7iFH3kjo8lksPamxn+mRobK
4U789kfuTop3uYxMzHiyXJkYOZ93+NS3D135UzguX1UKQWiUO1C2t7fU0oWb
d6a4RGqqqfvXQ2IEP1J9+6WvJHSyL/zAvKOpNLkPp5r6r52IFeQlW6H+5O7/
9w6xkmp1+5arpn/XJPpNQm0FROAMzGi9yqpiOTsEAABsDHGOAnojOFqn9rKM
3k8++NrnYYwA7pqyrW9obPqTG+HY2q5lju0cW4tTHexPeM23Yo0cCk0kKAfu
orZrJvLcgC+TiWTxHURmGjk7sEIEEf0ydrXTUXls+epDFWqpiQN1qqWL0nvJ
6FfembEBZillzdfBsRnvrehPpbKNjveT0S+v/m6I+cv6tvOT81//YHbRSOL0
W2nozcXpXtel2xu0KKVXZdSWRssQutREtBCi3o5QktWvmKwqMNgRSuDIaDIZ
rL+pcV+spaFyuLNy7/b1T2YnRnNeF8Yzc2Fs6g/ewLextZTShF8+CK2iz0Sz
0oXGU7X+JN89sKFn+hvJhVVrEz0mYS0IyOBVZj07BAAA7At5jgL659A414MY
5VOyW/TSTDN7lzno16CSuDEYLMFcvZ1h/xp5FfSli09odlmhfPp+3HueO+mV
raWWW9GOSgNC/xQcbea+rG44YGLiuv6Qp99KcLS9eKXdNRnaYE4qWjlCoUiL
qVFdqrMjlGT1W0BWFXSXd6PpAIkjo8VksM2mRr6GFILQKuTva1e60HiEagb9
88t7J/75aPfRZ24nxUQJXvzzSuW2fUAPakFABq8yK9ohAABgWwh0FHAJZdWu
52qC49Tie2xLxQqNBgjEUAnm6u00zkbK1S8yDTniE86MJQ1OFiHTUBwYc7Di
G+4WEgbzZ8byA0In/IO50JnTnig50Up6QKB+K4ZPiuekpZkjFIq0gJrVpfo6
QglWv4Uw6+r0XOyFYV9I5Mionwx22tSI15CSgtBKli5kxNQ8Etw06k2VIVQz
aLi8+KJIsryTzbqhhpanJgRk6CqzqB0CAAB2hUhHweGyt7+RvaC7tmzRS0ZN
4CMWzOy7rQjjJJirt0MRaPPLEp+QRThStqkE3+hWXEuNuc5uFWUt5fNuCtu3
i3ge9ZzmLLr26b+aWsDTAIjUb2LoZPh3vWJBaOcIhSIVUbu6VFdHKMHqtxB6
1ddvaOIwmSOjejLYbFMjWkOKgtDK/vBypQt3IjM9zTNLZbzPhCDUn6wbCxVW
XTxILn08xDjZWt3e77at62SzNrUgIGNXmXXtEAAAsCcHicBvXO1v3kwQlRl0
tBV+1yXvct+G0OuBYeamsvGc7wmJ4QqVMEyC3BFJbRtHPZAnPiGzr9yZcTfu
G8l1nuiaX87/WibuqE5cEi1fKq108AydTtxws9ffVM8HS9ukjZnmkKnfeNIb
oUlX+5VFkSC0dIRCkeapYV2qqyOUXPVbCNMZp97QVEQyR0btZLDdpkayhuSD
0Cq4aNiyKtzfUL8NbuZ/+8vv5zp7ZyI7xr2sEvL+bUdDv+8HQa7pX+57f9NO
Oaj2i/NL60rLqwL11IKADF1lVrZDAAAAGEj+pr5+PLRVo/dm+SAH17thixXA
ZzFGgkcP57vqVLdx1AO54ktvhiacxTfOPAfJhSs9udQ/8TH2cD1wsWE0uCEa
4bytdd4bP9HAc3/Z52bvo50jvviuwl8GNILeuH3J1Tu9uCleH5o6QqFIOWpZ
l+rpCCVX/RbCeOQ6B/0GFlAkdGRUTgY7bmrEakghCC37cm+HUycdJ/Thin/Y
mR9BwY3D9p8iP+Qst0YcosoJh9uP/jI70OJwtAzM/uXRNjnFdWuSWhCQoavM
4nYIAAAA4zhKRX7PXEZSr3jjZOf36AO9tTDpym6+ruHSvRrJxwgJMgmPjsKs
OjJQIr7DJ/7h7IGOco4GEuJUI+7+3fWG917wCltlnT8z0qml2Y6+E6Esqdjc
OepEkiC9+8A32kUxYTP/HEoU13sCRkOvhy51nUzk1NgRWvOKNFPrulRHRyix
6rcQ+jDu7a+/GFg37thO6siomgw23dRI1ZB86ULWdeL2Py2cSYfbsf8c7+50
f/rnT91sTCsfLsvsLD393mXCvVS5NeLg6k++SD742jvR3+Ro6B77t3B8i6hl
U5vUhIAMXGXWt0MAAAAYCL0RnuzMmqeuS7c3am7b4Mx+B3X2j4/2LfvjdZdg
rg6b45Q3TlaeiULx0dvRPzLBLa6z0zfur/yUXItHQ59O9DU7BzyhlRSdSW/e
mWVCaOpevbr0w/rKXe9ob+/lbzdPfkP67wvTZyjm1v6LpXgiufY4cnNupL3e
QXW6P/p6ZReX0aZTIik+9w8aO0JrXJFmal6X6ucIJVb9FsLeOHR4/magk4vY
kVEzGey7qZGoIYXShVRrWysz7r1jn96OZn94MhGPBL1TA6721+fCP+7T9H78
OtuzpnsiEFtbe7gwN+yygK472gq9mXNBtZ453+N0NJ0a9Xx+xzYeNstTCwIy
cpXZwg4BAABgIGzqaHbrODUbIStpSWfow6fXB7MmCDUw/8ja+cs6SzAV9fRm
h6nFc5+kEpDqxJfeiN3yzowNdjdRVNvZNybn/HfiO0IszcFm7L+uTg6x/zr4
rvfu2n6ZkzadWl28MTf5el9b9qjY1vfGpMf7VTRJeLJcrcCsi+ZznvslFoX2
jtDaVaQZ6FI9HaFkqt8i0pvh6XbXZGjDyOM7sSOjeDLYfFMjT0PypQsb+n3L
W/E7/k/eGxvqa2M8KW1nf/vefGBpZYcPRjveX7vrm/nN2eywMN6qm1bIWd6P
+9xNjBAnZuf/43Yk/qyc0IE51IKADFtl9rFDAAAAGAh7iqm1S7T0amC0zeFw
DngfnaiHZTn0lGCuvE/bRPiZxp+sBluJD+gAM0O6ej33UqUWhB6O0BpVpBmb
LUZlQtTNEUqm+i2ATicCo87OS6F1Qyc9uSOjdDLYah2VhDANKZQuPD0Xe2H2
2wBgRwxbZfbXnwAAAPSB3rrv6accjWevRncJsE/1Zz8RGHOerKllXfSTYCo8
Ue9w1L0ZIqjwuO3EBzSGmSGu3j/cT5WetPo4QmtQkWZsuBiVCFE3RyiJ6rcA
evvubI+rZ/butsHCJ3dklE0G262jkhClIfnShaUbuAAAVGPQKqsN/QkAAEAn
uK6gVH/JTFJ7kWtQSPV8sHSieKCF0UeCR8vzXQ4H5Q4kSZkWNhUf0Aw2RM1V
OimeQy9HaKamFGnGtotRthD1coSSp36LeLkWeGtgdiFp+NmT4JFRMBlsuo5K
QoqGFJUuJHEWAWADjFlltaQ/AQAA6AMb2tHgcI4FEnZOLKBT9zy99vyZOkiQ
a0hBUAdGG4sPaEPFpPjcn+jnCK0ZRZqx9WKUKUSdHKHEqV9iIHlkZE8GG6+j
kpChIfnShfWnvI8RDwqADhixympNfwIAANAHOp38Zrqngeq5spAkrP+AVnDR
CM43vI+ek3eAUo/mEqT3Yv+7/9y1GCH9f2wuPqCew2TwktP5+vzCvWh57vnG
uCgFR58nJPzv2OqOJt1eakCRZmy/GGUJMe/7KphOLN+t7igfHcLUL0GQMzLp
ndVYkXYJeX4lwxFq83VUEgI0pFC6sGsm8tycdwDA3hiwympRfwIAANCJrIF6
9+pQa93Avz3ctV2KQfrvC9Nn6nreCcRtvGPaV4I1IT6gkt2op9uhkG5PVKtm
o/Zdhhw1sRilCzHvCD1JkydqZCt1YDTlFY4UR2hNrKOSmK0h+dKFJJaZBcAW
6L3Kald/AgAA0At694fQRxdf8z62l3V4tB2+fHbcF920b4xWHjtKsIbEB3RG
5LvQITWex47LkKOGFqM0IcIRWrOocYTW0DoqiXkaUihd6Oj3rcKHAoD26L3K
al1/AgAAAAAAIAeDHKEAAADI42DV9yoXqdY1/9B2F1UAkABWGQAAAAAAAOQA
RygAANQs9F7s08G2lp7R+aVNRGwDoAdYZQAAAAAAAJADHKEAAAAAAAAAAAAA
AADbs7U41eFAgTgAAAAAAAAAAAAAAIDNoHdWv4tGo/cj4aD/k/Fuiu9o0jIw
8++B0OL97D9GHyf34RUFAAAAAAAAAAAAAABYlnTU0+TsPv/aUDle62ujRgJJ
VLICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAyPE/evt7cw==
    "], {{0, 199}, {1795, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{1037.1799999999992`, Automatic},
  ImageSizeRaw->{1795, 199},
  PlotRange->{{0, 1795}, {0, 
   199}}]], "Input",ExpressionUUID->"f8b258a6-ee24-4d7d-8ae1-a56131a66af9"]], \
"Subsection",
 CellChangeTimes->{{3.545153640670162*^9, 3.5451536529068623`*^9}, {
   3.5486895262641215`*^9, 3.548689579787183*^9}, {3.550787285060895*^9, 
   3.5507873176877613`*^9}, {3.5507873622593107`*^9, 
   3.5507874498733215`*^9}, {3.5507931273800564`*^9, 3.550793293902581*^9}, {
   3.550795942883094*^9, 3.5507959452142277`*^9}, 3.5594362885952625`*^9, {
   3.5594895181381674`*^9, 3.5594895246605406`*^9}, 3.5594992621854954`*^9, {
   3.709575503291005*^9, 3.7095755131905713`*^9}, {3.7117177558758893`*^9, 
   3.711717777030099*^9}, {3.711855630387392*^9, 3.7118556482494135`*^9}, 
   3.7378073736118755`*^9, {3.738582763085204*^9, 3.7385827644852843`*^9}, {
   3.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 
   3.7467909255028553`*^9}},ExpressionUUID->"8859e49f-1d1e-40da-82bc-\
713f2ec7a8fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
      "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"I", " ", 
             RowBox[{
              RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], " ", 
            "-", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"B", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"d", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         FractionBox["1", "4"], 
         RowBox[{
          RowBox[{"sigma", "[", "2", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"Fmn", "[", 
           RowBox[{"mu", ",", " ", "nu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.5451536546269608`*^9, 3.5451537497243996`*^9}, {
   3.5451538022984066`*^9, 3.545153820336438*^9}, {3.548689591473851*^9, 
   3.548689610138919*^9}, {3.5507933017860317`*^9, 3.5507934241220293`*^9}, {
   3.5507934811092887`*^9, 3.550793483604431*^9}, {3.550795897754513*^9, 
   3.550795909852205*^9}, 3.5507959494314685`*^9, {3.5517192411368465`*^9, 
   3.551719243512982*^9}, {3.551725419411818*^9, 3.5517254247731247`*^9}, {
   3.55231622648205*^9, 3.552316228213149*^9}, {3.5594393588258696`*^9, 
   3.559439512198642*^9}, {3.5594895272826905`*^9, 3.5594895375052752`*^9}, {
   3.5594992681308355`*^9, 3.55949931174533*^9}, {3.7117177795272417`*^9, 
   3.7117178027735715`*^9}, {3.711855674636923*^9, 3.7118556941570396`*^9}, {
   3.7119036518000107`*^9, 3.7119036813607016`*^9}, {3.712095469670045*^9, 
   3.7120954747613363`*^9}, {3.7120956766308823`*^9, 
   3.7120956945709085`*^9}, {3.737163741776143*^9, 3.7371637607465363`*^9}, {
   3.737977329658123*^9, 3.737977335915481*^9}, 3.7379793918230724`*^9, {
   3.7385828352513323`*^9, 3.7385828674911757`*^9}, {3.7385834468523135`*^9, 
   3.738583447825369*^9}, {3.7385835220386143`*^9, 3.738583524872776*^9}, {
   3.738583585130223*^9, 3.7385836468607535`*^9}, {3.7385836972116337`*^9, 
   3.7385837036590023`*^9}, 3.74222001333444*^9, {3.7467918697920494`*^9, 
   3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 
   3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 
   3.7468070365364637`*^9},
 CellLabel->"In[78]:=",ExpressionUUID->"74bc0418-8f18-4513-9ba3-7fa733dcf2da"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
4D, N=2 Tensor transformation laws
Untilded transformation laws Dia[1][ii][aa]\
\>", "Section",
 CellChangeTimes->{{3.4398675903125*^9, 3.439867599875*^9}, {
   3.440896666046875*^9, 3.44089674728125*^9}, {3.442439583875*^9, 
   3.44243963178125*^9}, {3.5367192257037*^9, 3.5367192280398335`*^9}, {
   3.536753484160329*^9, 3.536753546275882*^9}, {3.536757704238902*^9, 
   3.536757710183242*^9}, {3.5451474996309147`*^9, 3.5451475298776445`*^9}, {
   3.551718991736784*^9, 3.551719000776301*^9}, 3.551725337994161*^9, {
   3.5594360745480194`*^9, 3.5594361236078253`*^9}, {3.7113930771124516`*^9, 
   3.71139309981975*^9}, {3.711903460319059*^9, 3.711903497730199*^9}, 
   3.7371603760407314`*^9, {3.746790752680829*^9, 3.746790754295445*^9}, {
   3.746806144100352*^9, 3.746806152348056*^9}, {3.7468067803438563`*^9, 
   3.7468068142905307`*^9}, {3.746807309900429*^9, 3.7468073302533493`*^9}, 
   3.746807393818512*^9, 3.7468306727418213`*^9, {3.7468323370444098`*^9, 
   3.7468323421119566`*^9}, {3.7468426621339254`*^9, 
   3.746842662374369*^9}},ExpressionUUID->"4ae5c37d-cd8a-4b6c-9e21-\
b0fb82d5d1fa"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9sGmeawNHdl/swH84f/cGSTwiJD5aiyEI6W9HKfHCUCMmOtrJQ0grh
qDnbusvitBezqWqnauystlSbYF2Cdzej3aKsSrodpRvaC92atiYr8NV0SxSj
lGzsCDemDY7tWMTCMWR8BgZ4h78zw8wwA89P2lW3a4Z5h3ee533+/9tJ08//
458UCsWb/7L/Xz8fNGvfeGPw3Cv/uv8/Bn7x5sjQL069fvQX/31q6NQb/37y
n/f/5Zn9//xs/+9T/7wHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAASITExrL/C8fVd073dWKKDKoe/emJqx/NBZ/ESc7X
3Yku/G6w/+JcNMHjzQIAIBVAdAB1IfEkQLw/rFUpytKqMVoI/2PWm5B8FnSc
7dnfzZhuyrvGfQsDACBBQHQA9WF3Y5GY6FOX33goat3YH32RHWZXJhMbgQ9H
e1NnMNXgtHcVjk0A0ECA6ADqRO5UkwHTDIxdvn7bs+C/F1z8+4Lns+vWsYHO
1sI9qHrVcvv+ZqLiIYjcWnZfHdKkP6s6hS8+gyMTADQOIDqAekE+W8RPUUa+
sn8Mnw2ulTDoyfhjP3FRr8LoW7BVY7x8O7Re4ixEbkf8hMXYnfkApn2LCMHe
A4AGAkQHUC8SP8xOHMUyVrz5T/5oZSueTEQX7BnjvWATGt69Rsz6/IFgMOD3
zRL4eyZdznuAKft+7WbqHwAAQA6A6ADqRW7v7Rvvrn/EGB5ryK0l12WjpsgD
UBKs23j586VYUtiFAAAgJiA6gHrx8hFx8mD6VPOrz8PPWef7xB5+iZt1yqIz
VB61bgx3l/QGAAAgX0B0ACV4GY/c/dL5mUfwHy4eJt7sNxOhGk41KQ/2p3+w
jL2uywVhlT1609Q14qu7kW1wTQOAYPAkKBIbS77Pb7q+CbOQA/IXHVxWDVQg
ueG71Jc5jWCv2Baf1/t+AKA5ILcjd78icMvY0KtZWdraqXt1aMyCO+8EJXcM
40lQ5GNVipYTjvBLXu9RsjTnqgXl5QP7sfasyaw0ECv1viEAaHh2NxZvpTLZ
MM3AWQt+I5XSnWJhzom/a8gEZbBuo+VmoEoSgojwIyjIbd/FjpyLruVN13oz
GCDNuWqBSd6zHWrJPtIRYnW33jcEAI3Ndvj2O1pM3Tdxw1/KsCJjoZtjPVTK
gOa0XSJVRfwIiuS6683sVTD1mdtPJLE2oWnOVQvNTsT9vr5T2Tkwcd3/EwQo
AUBIkhve97RYj/nT5QoticiNryc0WVGnMhHhuIh3WA6eBEX8e8Lcr8Q0+slP
aglayYzmXDUAAI0B5XPDlNqhKWKxfGp3LGDVKXKndPPsOpzSAQAAgHpALtv7
85nYh8Y9T8v84cst97l8DVLrOfcWBPUBAACAOpDwW5RIEZHS4i/ndqP/5RAR
AUc+AABAQ0ImIn+zDR1qGXJG630rJSGfOIdbcvqoY9j5uIwXkNzxTbUz11zJ
gPVgR9/ETYihAAAAyIpkbPGPRhWmwI6en/tRqnGhncjcldRIKeXh4emvI2Vb
l++uOAYRt6ItWEUjxUL2IRX03AMAAJATebU1MfuD/D1ra+6xzlz9T7f1uxdV
P5Ftoo5pL8yC8gIaEDKxGXLj50/pOjGss+/0xQ++fMi0fWX9iYU+NGn25dPh
mcUXsrlpQGCyakvROUwsy19t7ZHrrtFcfobqjDPCrHiKXPNO6TDelBcvgmJ3
MzTnsJ7LXERnGJ384KvlxndpymfVZHzzxwhvrMUEe/uSsRBh1rar9JMfznoX
vr42rN7f6W29lvktGegBcvfh9eMtELMGUMjEqnM0vY21U3c2ZLCNq7Idwk9k
m8Oy1MWJZWI4ZaxhvZcWtmoRlXwIisSq1zaiwdS6sauE27vguWkxHFTwbhWS
yUSy5l+dl4tkEGfVfFGQM8QPqp6BQdP4JZz4KrCyxYuYJqNfndeqtRN/zTrY
n/kmD6W+ShYdC8kV50jOhdJj8cfqfUNA/SG35i29bSmfmv4P31co7pUNydi9
3+up49lBI36XrZmTrWLGVMNEuPII4AoXqV1QZDr1qV6fWciVLZMvAtPd6auo
Rm5F+Pqt+JG9PJ2ERVs1XwiiuVBaOwfemvn020i8hrIOctV1pqvl+PWHu7nH
F/NbejLXP4zfl3bFSHLd/bY6/0AOTfqe1fuWgHqT3tKp7aAacSxt1/tuaiax
HpqdNmQm+Spfmfz0ASc3fnJr4VJ6nqJKjy9y6b5Ru6DI+C1VQ/YQ/XgZIQyZ
1xcb5s1nIh3NJeaq+SLvLXy8HPx7as7mtfGBwlnSqe3YN+GYC4RWKvkKl4P+
BZ/7L3bbxbMDmoJLYJrXL9++v8nlKEVu+9/vwk7gIeQFJx859O2ZCx+0BiTp
h6Ugt7xTXS3ok4TmwE1PPEyY0oPdVcftIVk23Iw/9rs+IYg/222/eW/8tL5H
lRESo9Of1NRrl1z3TR1Ov9b9lgW27TdqFxTJDc8FDaab8q4VfDVSiM2fz4Qe
qVkJ3fX7ve5bdutoXymFlh6InGlxHFxGpO7TGFf7NIu4qxaQ5Jbn3Y6Cx9Y+
5dth9XwSsZXA54Uz0Vo1QzOeFZbj1cjHzuGOlmEn2uwRqS45YHL9xOp64hJb
tOnpSlz6RiIgKOTukmMwfTjE+vHQrtS8MIx4GXaeMxoyvKbrzOxwrPPY6Unc
6XvI6YBKket8yDrgVbug2P7G0tWmmfi6KOZIPvecb6Pe3wE8JHAzRnIzMD1A
FxqYetS5WquGKoNEVs0L6y5TC+3BKfSOFS6PjUxs3r9teVWFXko1OO1dZW55
pvde55h7Dfl3iSfO7A22mJxPJGbG5kETM/JU6D8AND7ZVASF4ojF3yh+YzK+
FvJ+PHUi/aZjSt25Gnrb7q4SI+mXpq3X+i1zR2rNgiL9vaWbyW8HbVnjo+28
h/VkY9YU+RGFc9RIaNU8UOyANRAR7pfbiXivGFAPJHZ03MnQE55us18wF4Zc
dhyn7q/giCUtaIkZyOql2icBEJ7EE5c5HfSUZNS7VnYisxe01It+0DgzH+Vm
JsTv2vra0w+J7vqrRO2CYoUwqLss35T4PvIf9v62rAJ0rTNfCFfIFYeeJjOE
C45LaNU8wLPm2sumqrblL8i47pLcDN3xr6CW6ssQfpi6SoUuNHWHSszAlMr2
AtXF0YAF5E/KM5MxAhrI4KKBusfb+6b9nFI1cmaXomWQWGV2hZoFxcv45tpm
yUSyvA+qrd/+DzHe3VxqBIVwYSYprbp2+Ndce0jRZV55cep1g4xRaD0r2Rmd
VGIGdszq+2yyQHWBu7BJ4SKQZQetGFmhnfBEuSw0r+IPT/m4TUrhS1Cg4Z4j
1oAoNTjiaa5y1GPVtSOI5tqjkljQy3JICc5vaUXrmHuLh7sSgszJMz2fCB3J
St03jH5oSvJbt8KUkAYAbQDFOQtlZ8n+GpX4ccy+xOF14U1QIOEe0d7c+muu
eqy6doTSXKkD2YKlH02bwfp+u8iiDJPc9l3M5j0WRGOlQzYxg+p+s0IYCp4m
tNFoQpLrrrOULdL1vn+7QS2uFPSmuwqdNcBF6pKrxCCleTh4VvkTFEi4BzMS
TEOT2wF8JJt8mcZoeueq4w7TTkqcNRe5HfF/Ypsw0b7bYPxP+2L1BpK063Ba
dd0RTnMVzPtOwaqk5aln/BD1uY6LPmm+/lRiRm5d657xLvrT7LcF5V98CrCC
mimskGlZBBlffxT8LvAgyuCYWTDohGuUJJ3lnrlE66iLpceQP0GRD/ew+eFe
Pvb8zy8NPbSsagXzTkrcNBf5o+fiK4W1YKnOje/81vOY3Zbjtuq6I6TmQr39
FKVzMkux5R6jjq1Yx6RXktI/m5iRtyVzVfws9yHQOOQa6ShkUxqDkG6plDmB
t2qGPwxV017Mx1BWBBmvjJ10hNkYDbwJCjTc02vxs3Q6JtZDt85rC0qzeqcD
VTUpF82VS1vNf5VK/xt3mEM6e22rriPCaq79fTU3rkZ/zpauKS+DfphIdUaB
C4LcWp73S6GncbZjBhpWTkSIIfrThDYazcYzv+UI9eMfxkOyOcJmQEIeKaqX
9NLlR8sh2z2Ob2b+5N9+zP6A8WPjUVDUHu7J9UvJv/7HHctVpB0HzfXiO2s3
PZ6uPutc5dbPRJ5Brj3hNdfepm+yh3Z9JmcqxHug6J4OILNC0kWIUugHiCRm
5O8uXWlCW618skwBXtj2TnZgtYrxuvGTy3SAzbmrYMPX0OUGfeWZa3weBQUv
4R4kV4TpWlhrLnLHbzlA+0h7Px7k2FhMpkGuPRE0Fxo/zdDaa7tX+TmTYcdx
ylArOIClj1gFRYh1oCAxI0/x44S8+GYC3e2y8r1Q0N3d1Zuu0220mrrc7Czb
X81eiKmXlU9BwU+4B8nPp3jVvlzRGmKtueIhfID2Cbb+VRSZBrn2RNBcqCM6
S5VAKnKQK/hRyDAx2KEen6uzRChMzED+n3zjytzbLJOadIAHEA+DvHwvFC+3
PO+kAyitnQPmGc/jKnro5X38cO7dbindn4H5d+eriRk42VLwKCj4CvcgATuK
aumOrDVXgV1ci1NatkGuPVE0V76Hc/7XmfRtlv8AcvDrtyM7mNwOTPdide9I
UJyYgVC4DwV4noBkQQr6ZOZ7ybEbxPvbmbXATTdsz+1ztdlVY1vRHV+ukJ9Z
qzceBQViPNbm0kH0b4Z2veNRpaWw1Vy000KKGkrYeFt1HRBBc+UmvuVp6bZ+
V96+zZvDNFfbbsh+XE2PK9WBUokZCOAubGIQi1uOQa4MZDx03ahqURmueCsm
dZMx/3RfVtOoTuGLz2p+L1edQ9mMOUYWK3+CAgn30JUge4rOrlUEAFvNVdyi
l7OA4XHV4iOG5irOuKts4ebzitsnfdTLk57j2aKdmovWVw2UTMxAKG6jIZfe
y0CtoOkKYtbOk4nY00rD9IpZi1V8i7KtR1Unpj72Lm0WB6Vfxle+nk7Pf98H
6znrCNautvboERwmhZD8CYp8uKfmI8dzz3gb+v7zrbkKp3vUEJ/icdXiI4bm
KihXzGz3085o+UeV67+het02O++b/dOk/gB/LwhnyiZmIEAbjaYF9S1Ui8vX
RGointtxZcJk0HUWhJCZgyn7LJ7y4p2MPfwyM3QP0wycvWizEy7P//nT82Q/
sIxoM8P4lP1j+Ff8laigQaJqTjbqLnkRFGi4p2vcU1tcmq1NxFZzFf4957ob
XlctPmJorr1k0FbgLqz+A5Fby19+MGk63qNs69SdGp9xBTfqPVG2fGIGQnEb
DfmVowJcQH0vAhnaqYY/hMXYXTzInBPqIedqlS+MR0O+/71uuzg2ZBjItInA
OnWvDY9N2RzuwEpl0409aJCobdzDqPcrD4KC13CPbDSXnINceyJprhJ5C/Ir
0a2YmJEH2mg0K6ibiP8aZDIRXbCP9vKkszJwbDMoIKgrTLTIC7/hniKJWiW7
uF6aS9ZBrr06ai6ZeVarJGbkKQ7qVT/ZAg0AWhDB90TRooGttYIpe4wTN+5x
mqglJKg4ap/y7Yhyf/yGe9hKVJaaq2gSJdeIqqyDXHt11FzyyrnLJmacuV0t
Wbe4oIOZx15CPF9yXbNIhWuuJXkMDELfJD73Nvls0X5aQ9Naat3oZcfsfHA5
kh4UmIitrYT8X3z43kn6n3WdccluMhgaJhYnQIw09ufHCC2KdPOquYoENjeX
Du+rFh1xNFfxt8hJc2UTM1qGHOHqESvZ58WX+rHqiEyeHmpr89fya19t4aeQ
VnitmqGrs6H1Mg9kdyOA0ya6ym/GCjrwiz83O/ks5PzNsFat1L11oyB5IxGy
66ntztMMUNrMshQHrYEKJg07zYWmVWQYdKyUieuJumrRAc1VFSoxg2lzsCJz
XspjMUtB/nD7zM94jafUAPazM7d/kMOLhfZB4iuGu7PqPIu0BD9omL4TSVR+
GMmthUtIMIzJaHtJgYaJ+aoseBnz/So35ZbuyEWarrcY8O95UZQFXYurpeuw
01wFA9EqXFzkVYuOOJoLqY7PIRPNRQ13ZjSwIEPUOYQJ/0gBaYGKXF5yjJOx
wJW+/EY6aMTvMgpLkT+6Rg/mPsasGYV0QLsX8nUAoHVCQI6RZCJMDFMmateo
M8yTOCqOF1QskWCnuYq6OugdK6V/X5FXLToQ56rM9rfW3n3rXDvhiTIVAMWP
tLK7AGgEeHZzkRt3prQ5t1CLxny7mrWV/yjNoSSzQnjU6cpXD9jnAWt27oxq
yB7K/DS7G4EPhjVpDYMdHXc+4DFZBekDnKGi8chKc6EJgemNUT65QuxVi03d
NJcsWhNvh/ATzBIzEIoai8lESQO1gMbla9Zc5LpvCul+p7ng2WBx9KH7q+VV
TkhLzeXpvSF3lxyDKStD3Tf5sTdVTE1cu2BMZ7OotKYZ9zKDgYGsKJQAFZvd
sdJchQ00KjSAFX3VIlM3zVXDKB+R2DerbxgZJ2YgQBuNJoRHzZVpGJvbPN1m
N0uHH81fLa9yQiE0116qXVXEf3P63NBAjzJTSz1ktuBO39KGMK9l0SCSCvV9
LDRXkR+yytANkVctLqJorlIJGkz6ktUVctV1pis1u2HyizC7rnAh55iGvlhB
ewEBUgDVXOXTvZiQmtCRz8toOX794S7L0zHtZC4vzUVzdcrXV0GuEoM046i8
5ctCcxVkLdY6VkbeiKG5ikOW0p9eRCVm8IS8pAfAAb4KkfJdZNOwN7j2CoSh
zPaeUGVxIkM+cZuRn7GCw5Cx5irUhrUMlGwAxNBcaL5Q9qlLfHoRlZjBF9J3
jQI1wpfmeuoZR5LHOBVkJQPWfHIhaK76kI015FC/7S7ZG5Cp5toKWI8heR8t
momvN6QsQoVGDM1V3ISW4czTekElZqhGbnFSr8U2puyaNAJsQTVXDZ5w2gDx
ymPsypGMOk8jIk5enmp0UoysNdc+2w/tqJHU1muZL5EVwUhzZZshVNWDzYMI
mqt4ZJWk7VzOiRl5ZN9GA2ANLxkaBWcebm156CU/UnfLFyBQhkad2H3gGETM
X6zfslDU9ZSJ5oov4nqkkwqmm/KuSfjkLwrCay60E2kGSfcboRIzmHbMKEnR
RG/GIxsAuYLM8+WuuejeiSqZY2Wgp2RL3S1fSGNprlSn7m9njh/I/6bqN2+G
6fV1VTVXelYmYkQzrklvbATXXC/CjpP0lhKcgs4iwb5jRkmgjUbTgfbQ4Kq5
6EqnynSMMtDLYGVRNYmCaq4G8bGTsbu4EbG8VKfwwNO8Rq6oucjYfcJ8JP97
YoeG7aC20gituXbv2XppMZ9q863qCpWYUXWUSTWKnyr/A5uEA3rFcwDVXFwT
cmhBLm5texNPnGitqrzKkPeEaf9Yf8j4I7fl1by/D+sdtc9H4mmJUE5zkduR
+etmXb4+AtP8F77wk9yNUN4QVnOR2/736ckZUja4sh0zzLO16a3iJi2ycnxA
r3gu8GEs0IQYp+aH9Fow7Jh9STbnpQzoAeDQpO9Zve+HR3Y3Fm+h86wxjfEC
7vTNXaUXLXePO7/1uz64YEAmXyuPmGxfhDbrPRReUgiquRIPHUak17UCUw0T
Yabt10Qmm5ihNrue1C4p0ahHZumnnVGZ5AJBr3guoMkVGMdGlTTNxcVcorsK
pXxKLMdPLtOBWp6A1Nm3pPyf4ZNDWiWTN6y1c2DM6pgDnVUCATUX0ks/g8pE
cM3WExwqMUNtdDzk44SPHh0z1NZXAZA8aBUVx4QcmubiUBQWC1h1eZ3fj4fY
Nt+oO6izQkaHPfaQ8fVHi39z3cCt4wb6NC+lzjRlxT9yeb57sCbZsIoEEEpz
ob30M0i5o342MYO3l724+FpmBaEAa9C0HG4vEXoF9j3eyfVZszr3+ZpjtXUB
FUdNMmGB5UxkgEIYzUVuzVtoPSja+6b9kk2Joe4WO2YN8DUBkpbcm4avMXmA
VEkZXVnFwS04R6t8ZGtzPfNbslMt5NtgAdHd9GGIjQtoLm7wr7nIRHR+Bs0C
VbRpJ/7KeLqQ6JDrC5Z+fhIzEIqea+MkSgFlQGM03BpAofVcrHpfkPHF3+bG
UGK9lxa2ZGmuIB7XCpOnGgvQXNzgWXMlYyHCrEWtLXXf1Kx01VZ+YDq3fgVl
ofeOU3CP2gOyAZ1twU3+kNu+ix3UFVgY6bQxlFKOJlcB7VvVND4K0FzcKBxV
VmE8dBXI2EP31RENGtrCekcd9yTrJNwjn4dd72qxWg7J5a9Nm+6Xon3SJ6P+
cQB70Akd7XrHIy4bfzeI97dnLtE66mLiBKAVuqpO4YvPJPvCVQPpW4UNN8lI
O3DOcCK55Xm3Q0Gnfcq3w2rvJ2Irgc9xs46W54kp+94hFp/ytPnIxOZDn/MP
lrGhgR6VQtmjN03hnwaieVMumWBn1pGJjXu3pk4gvcC6zrj4a0lFPrs381rB
iUDROxOUXa4XwArkHNg65uYUNEXG62An8FCVzr2o2sI0p+0yVlv0xEI5Ve7X
QqaGFIXnsEV5eBeqgkHGN3/MjD58vBz8u983S9jGdCXKCpR9E445f3C50vDE
5WBqPPRf7LaLZwc0hZdQ9puvZyvEayfxk//6ufR9qnWjlx2zXv/CnHNm/87b
NMPXF2O7seBHqUpz7Oj5uR8rPuhEbG11/749ro+yU63pYL0m2188gdDKWoy1
wt2/NvVYvG7i97QqwjxtPabfuXz+QCgzqfLJJl+PCJAIqOw9ZAty8w6Tm4Hp
gcz+wfquBGLlrrK7sfhx1jOPqfSX5iIyt+nzLUSwA5YFmS+GTl72plgJ3fXv
C4pbdutoX6mi/1aN4d1rN257Fvx0Mfw0xpcq4U2oioLgvREwpXbE8rF3ibe6
OTIRuTNtSB8pVYPT3lVEoSRjD/9sUrdq3r5yWU+tqmIRTXLD/Zaq0s2j62Bb
SBIP4Xr2pbsQ+Wo80FBXDeNFEo/nqGZBJX0XiVj4G8Jykjp9pQ6KC1GJHI+5
Q+74LdkEl55J32a974dX+JG9vEQ0eBSqYiGI5mrt1BlM45dwwu1/EOW1cG7/
Cf91InOkLO29T66730YqnSv3eWOhubCuX3nZDYZ4HrAeqX7dQjpOOB6C0dVg
IGMCOoadj7m/EOTWkuuyUdNKvWUDb0xaccfHdptl/HRfJ3VMUvaNTn8SiDaG
dYJ0LOTWJF/KSEVz8StUgRKQ0a/OU56Q8hGoF99Zu3PRpF6Ln69qLADgCtLv
nWuoKw8Zj9x1O6zm13WduVa8mLLnuGniisMdWGHv1ZYu+eeGdUx6uQ7mBCoB
QlVw8hPZMPWZ2+WbryHJSC1vupp8SCggCRCHocymOtYTZIrfEYu/kRrtSgYQ
qoKDTMGunF5Fhglj1gXYb18GsxaQAEjb26YpSqoVRN1DCq4ggFAVHLT9WpXp
yc8941QmV9NU3APSh/zRNUplqjOsyWp28lP8lMcdICz5B4Sq8KAFDlVi3Mmg
LWvWchpmBACCgIylaxkhVmFGQGWQx6V+2w3uKf4BoSo8297Jjlz/tZOO8Ivy
f4r0Ywd/LCAp8hMe2/vxIKiuSpBP3ObujIXaa7sHz4p/QKgKDtq3rWod/Zp7
rJPZXwKAyCB2RNf7/gbL8eYVcpWgAjCqM84IKC7eAaEqAkhNR9U6+p0FywHq
IAEtAQHJkTcl1INEGFRXGXLDWcA4FQgQqiKw6hzKlcFVyctCSj4PmFw/iXaL
AMAMMhG+YWwBs6sC6CP6tU+ek1kkDwhV4aFN1qvcPCcRIYYxRn8JAPUil4oM
BkUp8mapdsITBdUuCCBURQDtkVJlmjnij6W1/yMT0fvzwWgDNRcA5MxuyH48
XR0j47FZApHc8v06HQqU7QRnWQBCVQTQeeiV44PIQYLeYyc1VbZZ5oADMoBM
hIlhFVatcUHTQW7NW3pThUPyneAsD0CoisEKYcieDyqOZkbmNtJH+KUefvth
/D4kxQCSIRF1T6RHbnUOE8twcE1Bri9Y+lPytMWAfw8jgAUFhKoIIGkwFR4y
MsBIoThiDeTb8KcjjDprAN4FQErkJo2qhuwh2Jw5Vd5jdq2AKhcYEKoiQL4I
THdTuS0Wf+nRzDuR2Qva3DQs2iytF2HHSax7OvACnDKAxEj8MDtxNOU01L7n
3Whm5xi5u+QYTLlPDxrxuzF4UwUHhKookCvOkUyUsKSWzzzh9qMGvaY45pjq
fqaGJC5AoiRWXOae1Pxi4x8Xy046bmxy86FAbYkICFUxIBOrztFUc0hMNehY
QrpGk/GwxzaiwQ4aZ+aj20G8vz39lHPZm/EwYVJB3zNAylCWV5MqLzIWmNGr
QG2JDghVcUjGQoQ5dTDDVPrJD2e9ft8sce1dg6YV04zYPOH05GUyHrpuTKds
qQzW276/ua6d6Wk5OjH7A7jNAUmTWPVOD6oUbVrLfHNFDl4+Ik4eVGBHzMR9
UFuiA0JVJMj4Y/+n+KTpeI8SUyh79KYp/NNvI3E0vYVMbARdMxOndJ0Y1tl3
+qLdtwpPGJADO9HAFzc9y81V30VGA599dmd5C7RWvQChCgAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAA0IT8P58DbJ4=
    "], {{0, 113}, {574, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{344.1093749999989, Automatic},
  ImageSizeRaw->{574, 113},
  PlotRange->{{0, 574}, {0, 
   113}}]], "Input",ExpressionUUID->"a1e754c1-129f-44c3-a204-c1c87d7b60a4"]], \
"Subsection",
 CellChangeTimes->{{3.4409027728125*^9, 3.44090277759375*^9}, {
   3.440902810171875*^9, 3.440902916953125*^9}, {3.44244004875*^9, 
   3.44244009975*^9}, {3.4429691378125*^9, 3.442969168609375*^9}, {
   3.443708024953125*^9, 3.44370804159375*^9}, {3.536754825460047*^9, 
   3.5367550087245293`*^9}, {3.5451486439623666`*^9, 
   3.5451486519678245`*^9}, {3.548688769506838*^9, 3.5486888065069537`*^9}, {
   3.548688855820774*^9, 3.5486888860005007`*^9}, {3.5507857157431355`*^9, 
   3.55078577649561*^9}, {3.5507950978337603`*^9, 3.550795109476426*^9}, 
   3.559436218390247*^9, {3.5594988398383384`*^9, 3.5594988412624197`*^9}, {
   3.656720940415642*^9, 3.6567209412857*^9}, {3.6750032306542063`*^9, 
   3.675003231207218*^9}, {3.711717036931768*^9, 3.711717043384137*^9}, {
   3.7117170774990883`*^9, 3.7117170802582464`*^9}, {3.711717111392027*^9, 
   3.7117171461800165`*^9}, {3.7117174710806*^9, 3.711717471329614*^9}, {
   3.711854506059084*^9, 3.7118545120154247`*^9}, {3.711903325602353*^9, 
   3.711903326224389*^9}, {3.71209560910502*^9, 3.71209560910602*^9}, {
   3.737289925753502*^9, 3.73728992712158*^9}, {3.737807642399249*^9, 
   3.737807643374305*^9}, {3.7385814169802113`*^9, 3.738581418650307*^9}, {
   3.7467907692860627`*^9, 3.7467907703835845`*^9}, {3.7468323812412453`*^9, 
   3.7468323814975595`*^9}},ExpressionUUID->"b189c279-40c4-4bdc-b114-\
3dd1d67bdc70"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"At", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "aa", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4409029566875*^9, 3.4409030128125*^9}, {
   3.440903077125*^9, 3.440903094765625*^9}, {3.440903156609375*^9, 
   3.4409031876875*^9}, {3.4409974896316195`*^9, 3.4409974934284945`*^9}, {
   3.4410603871875*^9, 3.441060394875*^9}, {3.441060997*^9, 
   3.441061003453125*^9}, {3.442440106640625*^9, 3.442440142109375*^9}, {
   3.442456105734375*^9, 3.442456108171875*^9}, {3.44245843034375*^9, 
   3.4424584311875*^9}, {3.4425045583125*^9, 3.442504558453125*^9}, {
   3.44250978125*^9, 3.442509781921875*^9}, {3.442511222109375*^9, 
   3.4425112223125*^9}, {3.442671207703125*^9, 3.442671226921875*^9}, {
   3.442716458734375*^9, 3.442716501453125*^9}, {3.4427167659375*^9, 
   3.4427167681875*^9}, {3.4427168285*^9, 3.442716831703125*^9}, 
   3.442963727140625*^9, {3.44296778709375*^9, 3.442967801515625*^9}, 
   3.44296786928125*^9, 3.44296791190625*^9, {3.44337453471875*^9, 
   3.443374535359375*^9}, 3.443397844734375*^9, {3.443708071921875*^9, 
   3.44370808871875*^9}, {3.506778268335153*^9, 3.5067782693842134`*^9}, {
   3.5067791460963583`*^9, 3.506779148675506*^9}, {3.5206470793953767`*^9, 
   3.520647081443494*^9}, {3.5367550519530015`*^9, 3.536755388956277*^9}, {
   3.5367556803421416`*^9, 3.536755681403202*^9}, {3.5367561000631485`*^9, 
   3.5367561435796375`*^9}, {3.5367565949394536`*^9, 
   3.5367565968755646`*^9}, {3.5451486580581727`*^9, 3.545148738990802*^9}, {
   3.5451488141070986`*^9, 3.545148888144333*^9}, {3.5486889386755133`*^9, 
   3.5486889809849334`*^9}, {3.5507951332147837`*^9, 
   3.5507951401591806`*^9}, {3.5517190796328115`*^9, 
   3.5517190822599616`*^9}, {3.5517253676208563`*^9, 
   3.5517253699409885`*^9}, {3.552315908057837*^9, 3.5523159098339386`*^9}, {
   3.5594367136555743`*^9, 3.5594368087460136`*^9}, {3.5594988442295895`*^9, 
   3.559498845916686*^9}, {3.656720957837866*^9, 3.6567209581638837`*^9}, {
   3.675003233844677*^9, 3.6750032345775423`*^9}, {3.7117171399576607`*^9, 
   3.71171716127888*^9}, {3.7117174931208606`*^9, 3.7117174939219065`*^9}, {
   3.711854517913762*^9, 3.7118545309225063`*^9}, {3.711903330225618*^9, 
   3.711903330575638*^9}, 3.7120956100350733`*^9, {3.73716040537171*^9, 
   3.7371604164821353`*^9}, {3.7371604653306093`*^9, 
   3.7371604863951163`*^9}, {3.7371658278287888`*^9, 3.737165828234808*^9}, {
   3.7372898882003536`*^9, 3.7372899191761255`*^9}, {3.737807817687275*^9, 
   3.737807911420636*^9}, 3.7379793842276382`*^9, {3.738581430790002*^9, 
   3.738581448455012*^9}, {3.746790941763169*^9, 3.7467909620381284`*^9}, {
   3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 
   3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 
   3.7468069922880526`*^9, {3.7468325235438285`*^9, 3.7468325738800564`*^9}, {
   3.746841941956887*^9, 3.7468419433321996`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"ad6d16b7-6335-4925-b131-bcd52b26f4c2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"At", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
   3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 
   3.746807004048191*^9}, 3.746832586396632*^9},
 CellLabel->"In[80]:=",ExpressionUUID->"feb363cd-3113-4543-9375-765647c3a58c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmJTe/N/rSxvHD2tDJXagHTLxxaNdiD91i0rjE/4jeO+
779E+YF0lPD5BhCtlLtxBYjm12SVqux+47hh8pNXIPrGvcwv03reOJo3Tm9e
DqRXNO5MPtL3xtEmxTf2NJDOPi+uGrr8jeOrtPVLEoF05lWGp8lA2uv067wm
IG203ebJGiBtnChScgtI77ihvKZ81RvHpRoBhp2b3jiGhU3/eH/bG0epf+t1
T+5441hQ6fLjHJBecWeH5hUg/S9W5pnKzjeOeRbXrXWB9NE14t/1gHTm6hPL
S4H0xfY2tSog/akk5Hg1kF5lyW5QA+Ib6xY3AOmKVMv964G0rWuP4Bkg7b9e
oBREn9keuvQckGaTM225AaT3a9+eD6IfPeB9/A5IF30/8/wrkN65edd2p11v
HAHzvLZs
  "],
 CellLabel->"Out[80]=",ExpressionUUID->"cd1dc150-f621-439f-865a-c65938425043"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", 
  RowBox[{"At", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
  3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 
  3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}, {
  3.7468326750358877`*^9, 3.746832703754118*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"480dbe51-d86c-4273-886f-2e03503a9a8f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuK6F+b/WlneOH7pNVRqA9I2Ja0a7UDarCgnjE/4jeMq
29+i/EB6x9zzDSC6cdPGFSA6So1NqrL7jaO4+dNXIPrNoqwv03reOL5aP6N5
OZCe0bgr+UjfG0eDJ76xp4G013kJ1dDlbxwTTTYsSQTSXLyMT5OB9Aevt3lN
QFrjqu2TNUBaLVG05BaQXhehuqZ81RvHjBWBhp2b3jhGrJvx8f42oPy/jbon
d7xx5L3k+uMckO6L2aV5BUjL3ZN9prITqG7HDWtdIL38u/h3PSAdrX1qeSmQ
/tbeoVYFpNu+hB2vBtLsXJwGNUB6a41ucQOQtnOx3r8eSCv09gqeAdL/fQVL
QfR+zbCl54D0l8nmLTeA9NqK2/NB9O0EvsfvgLRk0dnnX0HmGO/Z7rTrjSMA
7Z+0YQ==
  "],
 CellLabel->"Out[81]=",ExpressionUUID->"bae793d6-5282-46e3-89c4-2e01428125da"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MG3eax627N/diXhwveRGJk2XJLyJFEbJ0RNHKvCBKZAmiVsiiqZCJ
yhm0l4VsLritAqkaSNW62tRoi+ldrG2s3MXpdZTbuBVuF7fFXWG2uK2jYGXd
BiJIcBsIEOQgCCbDMTO25zdjY8+MZzwz9vORdrXtwmCPx8/ze/59n3853fPS
v/2DTqc79097//VSh6Px97/veOPlf977h9bfneu2/67ztRO/+49Oe+fv//X0
P+79y769/7Ts/Tz5v3cBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAABBHanUu8hffyFtnmusxHY3BbD0zMPLJROzxJiH6
ultL0//Z0XJ5Yikl4YsFAKDaAZMFCCX1OIq/39Vo0O1LrcnmxCOPBD8/xNOY
77x570HELEOTy+KfPgAAgCxgsgDBbK/O4APNxv2fGRSjpe/jcGKL35WJ1Gr0
Rm8TeeIydAxPLsIhCQCAkgGTBQgne4ahwUytfR9cHwtNR+7GZn6YDn1+3dXX
Wl/LfXwMp5xj99ZSBY88xPpccMRuon7X0OmZeQoHJAAASgVMFiAC4umMpzOd
BdC39HnGY8t5In5i81EEv2w1YOynp9Zk+2AsvpLn5ENsJCK403aE/gWs8U08
Do8NAAAlAyYLEEHq4fjACYwO8x3/HVkqHOYTqaVpLx3dc56f9rev4uPhSDQW
i0bC47jnvR5LNr2A6ZvfDfJNIAAAAOwPmCxABNnHZi+6D/yc5HmIIdZnAx/Y
TDkpgrxgR2wffDGb3JH3jQAAUA2Ayao0Xmwm7nzl/zyUN9aW7I88wE8fps4w
73wx/0xwp1Ly/lceh0Wfc2JiMFr6PEFZ3wIAAGpkJzn/XeAWjvs8Lucel/rs
tvb2ttbT12LPS8gLgsmqNHZWw1ea6U8Ee9k980y2P7Q5j59rceDxEs4wZFb8
sz85+16zZGvBerO1Z+gq/vWdxAakuwGgKln02/M1SR7zxF+UclnNmayyhC3a
5cVP3pN1mYdD344vKP2CAAAQxJNQv8XSe+X62LfR+Hwi8STJbf8jUskniYV4
NDyOX327/dhgaL0kH6A+qDdIMhu96TClrVnNUffdakoOli1s0Sw7d91HazJP
Rze+uK30CwIAQBALeLu+eG2IBjv++tiDyv2SE1vhoczZvaE/tKL06ykjELYU
ZysRfN9ar69vHbge+RWCXwDQGnydHWbqdlf4wPJm3NOaObqfC6xUVWAHYQsA
AJUND2eHHbE5b8+sVroBJOZ8bZlb0eKdq64qPoQtAABUNpSzM59xOh32VjPL
7VG9EB7/1Oxapbs5mpVATzq4qbaCHQAAQMVDObt2PJH+x1Ry+ZdEIvHLWgnq
+5qEeBa6eCDt5s2D4TWlXw8AAAAgIRxnV7UgBbvaN4KV1nEKAAAgN0Qq8Ve3
/WiN3b+k9EvJhwzObifqOnyweeBWKSNm5YaYx21pAUvMhieqLKwFAAAojZ3k
zMc2A6bDTlyc+EWVFlSOyC4Z99oN2tJsXA/2pee2a4957kFcB5DH1LV40HOx
01KPYfXNZy5f++o+X803AKguGE83MP5QrR1u8qQxM1L/WOOlcQ34O2Ir4jyU
TmI2OSPrSr8eQHF2knHc0VhnsA7eGJ+c/uZqlxHT6Q40OafWwd8BAIuMp9PV
d+FzavV0uzLW7IjlySELpg1/l1OwIzYSd770Oh3kqV5XW295zeG6OVFROloK
hS3E5tovCclYTsr0iRBLX19sNDYOfJlICwo9DQ8epXLc5ZSXyWr7lEiuLBIA
SAWRWvT3UkfBxqFvV1X9oOU6u1RyeSEejewRjS+UZE5Sc3hXPWkhmq5Mr6u4
fscq2H06/5jas4OZWi+48eBkZHrC7+4lV69iR7s8f1sq0W4QO6mdkh+IUi+i
XNiSijh5C/bwxmBu7ejpv+LBv44urEvg/ojFwNmGmrbr97eztyMZcZrLmOV+
sT75TkMBFXBRYPWWV+19Q+6b45GflzchVQ9IALE+5Wwi29hrrH/6u9pb+LPO
jj7qD7SbDexviKm1b/hW5JG490GsfjNgqtm7iqELn1ft8ZIp2NWYOns7TQcM
VmdgFjX8z5cm3mmktvVYR6MlRUDSWHs7nhBv1JUMW2Rxdii19a1vjn72fUK8
MSc2Iu83YK944hvIv3vgs9ZR18cOu6Lyn9t2lvxnpPZ1LLD6tgueYLxKRmgB
maCOheTzZOj2zW4U/3mFoZzdq/81EXBaDTV6S9+oPxx/uEq5tlRyIRoY6TaR
3zqj2O7KnfXpK020m/DMbEr+8iUALdjpyGC8359nQ9xe9NdBLUfATrqiJRT1
FHd2yoYtTBrz0VzsB3IR7dX+Vu5+9j30zQO+iWh8oVB2bi4WmQ4H/+x1Xz7f
auJcAjO99sHYvTUR5yvikb/rYE2X/zHyq8Rjf1dacOBQT+BXCe/HvqSSy+jb
HP/vQeshzj3CGt+4MfFj4XtEQuZpJoO3va4+az3GuUsVrwEI5LKVCF+7QH5l
ML3lAh5Pir3O5jzeQ4VGhjZvXAvHpoxcGNbUeyO6msc4bCXGL1FBDWawfTwj
wt8RK+GhY9SfaHFOr6gvukMKdnvvscM3u533NW4v+DroH6rtDYh/G+yi1UL8
ToQ2RL3N+XwgtaP85lhoOhKJzUlRhVFD2MJhZz309kHO+64bCm8JeoPkwewL
7gbAWpN9NLQgbJkg5dfq+4LL6MUf+7PiOj3+x8o4h5xT0nFn5KnAa7zYXJhw
24+yPd5hm+cOdJlWDTurk+81Ik8AdtI7K+aAS2zP+jqoYyrW4onnt5lqg3Z2
ZkdgYd/vcNZb6TBjr39RuJnNJDNVWbxDCnY606XQ6r4vj7E2cshEE2vR4VbO
uVvc3S74V9QRtnBghNoyWH0LYt43kVq7N+Y8xUrEGzqGBQQvOyuBczWczxcR
TeXcujKSk9g8cDEkeCcwRerh+MAJ9pNmfj0Io6XVAWu/CYXeGRFxfMv0Y4g6
dCnFetT16snh7wp3JhCLeEfaHNV3+0XYoe1FvJu6wIEm1/fqyu0iBbsjrh+f
7/+DyNHa7IyIjv35XD/9FEq+akelYUtuarek9uCtxOSH7WhqFDvR7/+JZ/BC
rMW/jSyg+fYXcc+x9IUOdvkfKeQUVkL9DegdqukJiN5BlW0qYDBeCFbVmo+q
Jee7hrX55gU/06nHAQdd1DF03660cxIa/jS8HxGxJXvzjruZOlFwcmhKQ8q9
ZN5YwR12L9aDb2T2hRvt/kXJXwmx4LOyHsOjg2Fpj0xqDVskdna7mXZTxJ6L
n3VNRl2W9EVqzyu2+AndwURyoMX7cwmf1d6TcL4WveG62ib3XS2UXYDS4ER2
4kpLG985G+inUUNhHX82Yu6WzA3ihAY8yQZ3upoOfFEth4GtOe+pzFm5cHIS
+UmZ1psm8HaW/ZE+flRp2CK9s9tFBl0ZfydGxYj5Xutq+4JKyQ0Qc94W1g1q
ccdKOzEyCY0MR90xiO0qn51k7BOHxUj1LYvb56VOSy4hqQRuZ06B4r71jN04
NhRWSafKr4GeTJNbkR12y8G++swNkKe2Jb+zy0EdYYsszm6XrMWHLpnQywpu
kCY2wpczzTPizniSQIXk6BsRXbDLQvzsbWFnMnUdvgWI7YBiMGb8aH/oidKv
RhZYBknkIXBr1vsqfdQW2wIkNc9C/elvfLEddqw80nFXVIZ5tPI7O3WELbI5
O7K3atrZgjZjYM0fzQgYGX0S6j+a/s2Dl8MisvfSIGXBLgNyzCvb8wZoHiQB
Lq6epQVYBklsOyLS6KKKZO9OzJ2xZUXO7UQCt2WN5n47gDainm5bO4Kt560R
37dzPOc1RDs7YiMR+T/3QA/rb7fbfuudKdBvo5qwRU5nh3QCZxAyE8Tk+rCD
g5OKVZolLtjRZGaOwNkB/GFKfpoSzCeexm+9YzMb9Y3dzrH7Rce92QZJ7FAz
1fqe9hilTKtJA9LOjXUVfEdod8r+O4BePAr98XWuBA1/dVBxzo74JXT5Ze6M
Hil3+dZHoUcFn0aVhC3yOju0xJCmphtf5OPukD5VncUVRT4LYn1uKsL3DFMy
0hfs9nhxz3OMU7Rr9cRVqfoAqAXieXT4iAaflhez3pPZUAU77ZsvGARwDBJ2
xr8k7puOeA0ef1RmnkVdx9PvqMg0NZpH0rf5Chb3Uivx2xcbOSNzTcPRot5E
jLPL9gAzf8pg/UNwnkdFRyVhy67czm7vnU70G9HPo6ZhaLK4CihyMNMdGY4+
Z36BmuCQvFd2P2Qo2O3mm22U5LJAJfM04swYzGOeuGbiOs43qKhdJZ6FLjL1
7FKENphvWd1J70+K3rCsTFYx67oxOXgwYy15TSRlhXSyFHORu6Kc3fMfXUfY
Nst43r/IZ8eEWsIW6rXI7Ox218KDZtb1eRy0iHlfG5b3QaVunRzCAvnhFuyk
WC6cO3qgaNEW0ASMGSzW4aAy2DW4ookdRixrjwP9IfH9GeiBWeHjAePsCqoI
vFgPvZWJnupaPDFeFR+k94PvmxXs7DiqnkJenlrCFgrZnR1anUyb9mJjZchp
kOMZSZXUg8b+iTK5Bm7BTopaSVboFXnYBsNrkrxeoEJBv0QaW/pJdVxgenOr
3TF8K1pUOAM9Xpb4vUAH1pRN/DLzFIWcHWIZhMidIV39aU555wrGXIKdHarq
mc8s749qwhb6b8rt7PKNlRUpUyJRP2smhdiIDjdh5WuvyinYlW5ndtbD7zaw
b0aN7aZ6l5IAqgBJj+zXoadaKBvOdyoQyeOV/r1ABpl5JPdkhImM6gbD+/gh
Sjk57UoEqQ2welooinU8CnZ2Od3jfCNl1YQtNGVwdozYNXN7C57ZmIME6yC0
Hfe2GY2O8XL1VuUU7Eq3M1ktI8bVdXjvq0jUCFAjSIZBikR6maHPqA29/vli
Yd3mvM+efp+S7C3aCg9mvm3KKetSZJ34PhPlRDIynLYMh23emKAoFPHpNHVW
34NC71Wos8tpqONddlFL2JKmDM4uu7MPMfEFpVCZxjPmIERJKNc0Dk0slU1B
VOqCHbE8OWThqEAXEoEHKgQilSopV4NkGDRWsEtDK+3XnBr+roBoDCK7JE5w
KQ+LfnumZKBwRLwR97xCranIlwBMLQQc5rSnE7EGheu8iumLC3V2ucrRfPXL
VRK2ZCiHs2NJAKUpHAhnB9INr7nHp+iNcpj5vC/2tHy3R9qCHfF0xtPJ7puC
/T4VTWolHrw2aD+W/nrpG9v7PcH4ivCzDZphkHgml9h8HJv4ZGTgt8312aO7
wdz+uss3IXK5MLGT2sn3TKceTThPGbCj9pG/5Lny3r0ac1rppUWmM9eiTyQ6
AaLFJimGhkp6LTMeqyFnnw6RWo3e6KW2zmLHHfg9MQaBkWeRx9lxu8f5W0KV
hC0ZyuHsiK3wUB3H2RWdoCHW5766NtjTZtYfqLd09o8GYqtlFdSSsmCXehLl
eDrsxEDggQA5GUBTEMm7PtKCYfrGzoGRazeuvt1uqk1/7oJF0dHESLHeAwEv
cX0uOGI3carpqMV8efAzvvtKMtdc8HfX75sAyf5F/TH7wB+9t4PhSCQSDt72
Xum1UPGX/niPO58rFA9azyqW3JMdIrU0NWo7TO76tL17Y3wyMj3h99Drs2tN
9pHgXPGRrPwIjbyEOjvuzwuRp1ZD2JKlHM4OVcvhfYcVJqdgJ7JxCDm5Zfyc
vnnos1mxDzageojkHc+eTds7qH96N7OSG20/sLpnhDz5qJKqRPOYRPIe7jjO
zqjnRVDygX6PRZrS6VjSPdRnbzVThsdgbu3oGfjQF4wuJKU/6qP1rJIGGaSC
jPevO/tes+yF0li9pb1nYORm8E6ipHOvmp3drvJhC0NZnF1uVlmu7RWSwS3Y
FdMqzwOx+SiCX7ai2x/0Lw3c/GEJei8rGGIxcLYhTwSH9CQLa5ZAk1QSzIsR
qcTXTitHmrUA9V34HC8nRHfOq205I5qCE/4V1gY5NryIfm+ZnZ16UMzZqbvU
zi3YCXm1qWQiHvZ7MpkrCsx0+r0bYusggGbYTvjPGnQGq2eG21C35LcXFfjN
B5pOx+z+pdJeH7H67VAjZ+MGjcFs+Q1X+TD9//Tg80XbA+mwTn2bGVH7VjcU
3qpEbyfUhgt0djnLXhUVcy4FxZwd/5YeBcgp2NVZ+j14IW54XE6n8xKVnWGk
APXmdoeLztBo91v2bDZw1akWrgZmlc9F7QexMu4wYnm3e7D7wwXoG6Nf0FK/
Mts/+ToOM69C39xLPpxzS0z+8MXm2qN4JHDtks3EJCSw4o1zdFjHV/m2nKCi
62JlpdVOjrC8pM4ux0WovAK1P+Vxdrl/RdXOLqdgJwqs3vKq3eH04F9p2tnl
++wURMWPDb1G7YgjmJukTCXwLiSdzd/qop3MJW7cSM64rRnt/aaeq8GCeYad
5Ny4qz3jGbFXvbMFGmPosK6mwfmd+kZG0V2omrXSRUDfI0VhTVFhzo6tVkqi
2eWb4OzyUMoOu1RyObEQ/zHk91xqP8LEeKbTTjyS2NSU9gUN8XDs7G94NDOU
Bew3Z8ceqvTcQKsUNo3GtnNeIKoQqBOUT9uIubM5hlJqJcTmzEfN9BBb45t4
nF8vHNUlTv1SQUem3rBulzXXrN38WxHQh4SicCOTMGfHUistfnE1Ux5nh0gZ
ZFGvs5Nqhx2xkQh7utDKnfmcN1JgrhbQLrSKb35ZKkrzlnmehOh+o7a6oT8k
dm8wOcZr0PFfeZYlNYd3UVGD8a1Q/jqjmsO6XbZCpmY7K4qQqxhWcERFmLPL
kQSx+ha06eugZpeLpDvsiFRizIFusMVO9I890Mw2MoAvVCopv0AuuuVkj6P9
oSfCLsvLKBVgZyV4gZxk47uWhQXxeOwsuaVrn7CIeBx0HFFrWLfLzgNraumt
EBC9ZZqCMawgZ4dOvpCou7GwMIo5O9U+eJLvsMsRf5ZMDQlQDVvTzkNY/tEA
Ys7XhnzHhC1rRnsPxDq79IrzvMVEPqRXMOcNSKndrFi5FX0FwJJvUu0Bu1S4
8pUF9RgFOTuufIqWV7Qo5uwO9QR+lfzvSEEpBbt9yF3rY3QEim47ATRE8jtX
i+W3tx/k+jrWqu4iqrC5lO7s0pJNfPcO5IXWMc4zMUGtlMVe8cRVmcIkqQ5n
l7uFp8BIpgBnl5MgFXZUUxllcXb5+lOUlqrbD6kKdixyk+pCjR6gUZ7F3C8h
n/tL7pig0QnU2YnrgqPNYIkHcnpPOlcxj1jEO2pKc6Oyw2omrFxnl/4sEPZf
4SfA2XH6PFVbmeVHOZxdrqlXXIR8XyQt2CGgM8U0h5yRihxxBVCe/+g6wtgg
7KR3VthTX/qY2LOo6zjWNBwt6UBOh4ec0gPtx9We15JyUFHN0MVTPsdp3s6O
60B572xVKeVwdmhDVOa2qXQtl+QFuwx5gltltycDZQDdMK4TtUJUNTPRlGoZ
K6W/PtFvxLAWTzx31EJNVIuz2yVS8zdtqPHaT7qNr7Nbj7qQBLyuxjTwzaqq
P+pilMPZ5ehMKrw4uAAyFOxochYgVu6IK5DlSaj/KPow+QUXalFnp2zmn9oN
x0wr010rxg58XpVf5Cys42tFO7s9Nu570VDsQJNzKo/iPC9nR2zfv97Gx3Vq
iDI4O24VTMXhsCwFO4o8kR04uwqHWAn0Igec2t6A8G2VUnRjSgM1uZzdzEV3
eO47fKceqqRBJQNHEQ5rcU7nPHR8nF16+172OpahyWXhlnAnOf9d4BaO+ygx
RVJN0dbe3tZ6+lrsuRJHJPmdXU4VTL0VbbkKdru5HbyK2y5AbjjjdeJqW8iu
bYUfmJ0l/xks/Y1Q+SA5SpU5O3KjzvejbchWC+O5W/PsSkxRZ8co59CIXjON
Pr0IEizvEIXszu75vO80uzVD9LyP3MhWsEM29jIUXV8LaBrOeF3D+xExLSKo
gorCpyPKVBwdDD9Np2eLCGaqBNTZVaqCCpf0RsUshk4Puvy9oLPj7jrEjnZ5
xXk68mKp5JMEyWz0psOUvqJyY+lyO7vtu+4mVq0qrya8OpCtYMftP6fuQ5tP
5dWODLD1QAyljddlQZ2dwqOpVN6D9Be0+plq8zNspBIX1RjE5oOg8xSTiMSa
er1TaW3e/ZwdsZGYuu6wMLEYZvp3z7Qk8obEVnioLn3VElTvSkReZ4csaE6j
2rBOzoIdLRHMQrUtOjnA1gMxcI43ojtv1RSYkEZy7zXcp1pTDvcGNKEChJ4W
6LC0ethenbnttKFy9LZLHn94YoQ9f36k3/89udYJEa7X6Y/3uP8i3f5NZOa9
5lxAqUYXWZ1d6r7PhuZsMUMXPq/WZTeyFezSakssNNTaBFsPRMAZr8sbxb+4
/+np4y97/17wOUBnVLHCm1tkh3R22OE/eD3aaE2h+TXQky1giTtyEKm1+2H/
n5zkrkqDTm+29gx5PosuMXZsJ6VWm0ayF69FPvcM2hv1fL7EtfWtfS6f1Gum
0ZS+gvviZXR2qccBB6s8yWvlsVLIVbAjVr8ZMHF8ndHmu6+F8AQQB2e8Ln9/
PrXOtXj9YifqylZfDvSHlMzhUk1WtWbzEW20plCgOsYiquSpXyPX37CQbsJo
6f3ANz4ZmZ7wj/ZZ9AdMXddnktvJ2Cdk3k8LarfE5sqDmb8Gbnpc/e3s7Xd6
S8+Qy/NJIPTjT8vyVJiY9jxFdaTlcnZEah7vMqBniYZe/7yKLbw8BTsiEXzd
zL6/mKHDN6vuOVygNPiM19GJHYsrWqznBNXekUO3lj+MreDxslUCat+EBcZE
KvHtML2+1tAxPLmIfIQ7yfv/22OsNV348AOrXhXnEEEI3FReMqhim6J6O/I4
O2J9ytmELoaoax6OiG3pKQtyFOyIpzOeTgP77gpeKAZojvVgH9KTVdPlz1Ol
pkUGjgxHiw4ckaFdxtspW7DMul2lWsdFgBwVMLt/ie+v7Xm6LwcaKQtm6PTM
5O66zWxNktBclI1yOzukYKesSqT0zo5ILU2Noo2vugONA18m1JzWlqNgRzyN
4282ctLk+b84QCXBUh7W6Q52+R/lbi6npSab3Hd5lEbQqpOiimFpI6na5Vx5
QJLAAhJoxNLXF2lPp2s4G9in55RVluVKZKuaMjs7Yh63pY/8CqtESuzsdpJx
3NGIxnTG5qFxlXu6nPnfkgt2qcXJ4Q5uTGc+74uBp6t4WFPM+XOYwhaeottb
FB21SxtJDWm60oPwNAX3maIwIiSY8ezY/r3jyApvBTsMRVBmZ8ckOpQ+JuUq
e4jduk4k7wdHuk1oLIM19fruqjp7mYazyaKUgt326syfh6yH2PcUM7R/OAnZ
y6qA7ezyZPyIzZmPmjH+PR5oqFhn9T1QuJdNQzlM1B9hXfyCYkResvCePiRg
UbLDUDg58Y2sIy3EVsSZsYbKxr8766G3D+rY1A2Fha2eSSUXol94HBZWayum
b34Ln3kiUc5F1u7fHLVwcSeQ1Dp5G/pauENp5Djn9JLaY1tAKlgLrfKcmjbv
uJvrhM2eICfSvOvCywLdrqz04VwQaCsmPx9NrIw7jGk7VmRqnloDQf+gkh2G
gtmIe15hV1cwo2NcuGorT3IKdsRG4s6XXqej01KP6WrrLa85XDcn4isSZ+eJ
zbVfKO2WxKO52A+R8Dju7rPkGb7QNw/4JiKxuUQB5mKR6XDwz1735fOtJu4l
9C2O65lp/dKRuPs3lVxO34WF+J3IdGjM+47NxNlHUGPq+59w4RuQvQ2RyaDf
53Gea63nruwjU7gDNyMJ7W72BcRAC4zk901p1UHz60EhtQvUaB91x5QxrOsR
Z5NOd9wV1UzXIZJAww45p3kkVlBHkLfYyrATc2eCRuUkQQrAWPuMrduzVLe9
rt7mfBIRtab2t6/eHAtNR9iG/0myxFM6q2D36fzjaW9vE4aZWi+48SBlyd29
ZowSJfP8TcqIQHYpDEzf2O38dHJWsoFEybt/X6yH3sqnTCr1jahvuzD6Gbi5
aiU547ambSbTb0mkVqM39r7pYmR10bLdKe+cEvnwdD+Goh0ywkATaPw63jcm
Bw9mezcLb2ZBdnSqs2AnjbUv+eNmzhs1ps7eTtMBg9UZmEX3Dj1fmniHauQz
WEejktW8ZHF2e3Foe0//FQ8ejPy0JOlEohzdvzvLgfPyOHyDubWDug/jU7GH
pR6HAK3D6MZTZ+Yb10YGOkkJC7FVbGoCnaZIxCET6RegEbE2CkQV8+DlcPGD
J1sKoEjaE6nyq7OIqQpnh543dGRbfr9/NplzMNiL/jooQ46ddEW109QqHRXe
/QtUPKmVeNDT396YNjn6Y/bBa0HRtQlk+a8SZbtMaKmhTgzmjmEHByd59AKh
ktHF0p5b085D6RiwbjAMnWf7gGYkCohpbC/4OtLPtpidjxqn4rt/AUAYik7m
ZrQNNaQTgkzOHndG+Og/o8vXiswpIIG2wqsoVA3asGq6FFrd1z4zYWjVmfHK
7/4FAKEQ8742jJcplv5Pp1tuNKQTgpwNmkZjfNT5WBpKhQujqQTehfH6yeoG
KdgVXnGF5Fyra6V1FXT/AoBwiF8CvYeVyPZkhym0syKHWaPJe5cWWuQqoimB
FOxYeptEauneVGxJM1VNmUHkawo3rKLTOka7f7F8L1FhKqj7FwCkBNkOyVd9
RRLWwoNmKs0ifGuAMiA3iv88I6pBWrjnBIkB2fVTUkxeiAJnZcO/YRX5ScWX
NpaTSur+BQBpyfat6epaPLEyebusbVdn22EutBob5Yv4qY/SLODtmdCuoGQi
seCzpn+OLWhD3qg6LQ3dywui6VqkxoQKWFVPDbSyun8BQGKQmKXh/UhZ5jiz
nR5aaTskFvF0yd9w1p/gfyJAujELODtiLTrcmjmOs0bsqa4V7Sw/khv+NSZW
tVRTqgUlAd2/AFAQJmzJvxNWarJLjbVy5H4acR4XFfzSqyjo8MIZyS+ZuJUY
v8SsMmHldZ/P+05jfHY2VQdIjalIPxWRwG3ZW6rsDqCyAt2/AFAYRMq1HMFd
ZqlxkZqCSkBvzrvhdYGlDWLB300ni/IGaLSnqzvRbjXRhgftYyFbYozlyy2r
HWTfRBEJbpaWrMI7gMoJdP8CQHGysznyV+60VbBjwt7GgdCScKtJpBb9vWQr
OHcCmticD7m7Tdhh2+jU0kbM01LHtjyb83iPQZC4d4XzLOo6njbPRRbEZ05T
JLxbZysA6P4FAD5sx71t1ISpoQefl3G7XKZgx1NIWVl21sPvUnazxjTwzapI
o5ndyIkZrIM3xidJwfyrb7ebajFTtzs0TykiEpvx6zYD5RPbXWPhvwaunjXX
nBgYfwhmJ0My4jSn7XPhBaloR2JVnRag+xcAeEGk5vEuyt4WlBgqkWyKiZ+Q
sqIQ61POJrIlAmu6Mi00gcm51OajyGeewZ42sx7LLBT7nr3GhUitxgKjA+Se
Gqy++cxlb3gRPB0C4+wKyqmiyvxlbDBWBdD9CwA8SS0FB6jiUX0XPiePpc00
jKm/bYBYmXa2kAflmnbP36EfUnGYFcaFnB0zSiPBEUVrQPcvAPCGeHp39FUy
wWGwe+NyPPP0qBRm7J9Qt8Z61u+bHYEFiLBUALPvYP9WeWSOBmtxTlebAjR0
/wKAEDK7hLDG9yb3F9oVC9UdrfbFK8T2rK+DzOiKWBQIyEa2GLfPRDmRjAw3
030+h23emIyFZ9UC3b8AIIjUQsBhJpslbB/P5C4LK+3Sy9Evbn0VV7EHyW69
BE+nNjLCj3mHVtIPra66Pzjo/gUAgaTjOzn8naohktFRq6G6DaaK2ZzxkJ8O
Zuz1LzL7rInUavRGbxPlB4878HvV/cFB9y8ACCS1ODncYdAdaHROVUvF+sUD
/PRhMJgqhkgtTY3aDut0tSbbu6Qln57we/pbSbtda7KPBOfW4XPbhe5fABDM
1lL0L7dCc9VS/iCWop9//i0YTJWTWokHrzv7XrPU1+qwekt7z8DIzeCdxCZ8
bAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAEBl8f/nwDRt
    "], {{0, 118}, {591, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{356.0156249999991, Automatic},
  ImageSizeRaw->{591, 118},
  PlotRange->{{0, 591}, {0, 
   118}}]], "Input",ExpressionUUID->"805cc58c-b230-4df6-a0e4-f6ddba453f26"]], \
"Subsection",
 CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 
   3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, {
   3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 
   3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, {
   3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 
   3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 
   3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, {
   3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 
   3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, {
   3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 
   3.7117171831101294`*^9}, {3.7117175469379387`*^9, 
   3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, {
   3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 
   3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, {
   3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 
   3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, {
   3.746790780119294*^9, 3.7467907805274167`*^9}, {3.746832393873145*^9, 
   3.746832394209256*^9}},ExpressionUUID->"36ac72df-79fb-48a0-af59-\
d6105d86b83b"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"Bt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"I", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5", "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "bb", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 
   3.746791220316177*^9}, 3.746807028665576*^9, {3.7468327145191917`*^9, 
   3.746832717645952*^9}, {3.746841944173117*^9, 3.7468419673751373`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"d19bb0b7-a12a-4ab1-9110-64e1208e819b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"Bt", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, {
   3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9, 
   3.7468330770061526`*^9, {3.746833110572871*^9, 3.7468331142241416`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"9c98c005-c954-47b3-b285-4731c7078f81"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmKmKzb/WlneOL5uM1JqA9LtTW0a7UBanyM/jE/4jWPS
rT+i/EC6cf/FBhA9xWXzChB9pZddqrL7jaOW8bNXIJrnZPaXaT1vHNPEZzUv
B9IO53cnH+l74yj1xC/2NJDWOi+lGrr8jeMTy41LEoH0FWemp8lAWuD0u7wm
IL3X1/7JGiDN91Cs5BaQXjVXbU35qjeOXRrBhp2bgPYbz/p4f9sbR45/m3VP
7njjeCfZ/cc5IG1+Z7fmFSB99q78M5WdbxztLW5Z6wLpl71S3/WA9G+tM8tL
gfSU9i61KiDtXxJ1vBpIJ3zmMqgB0lIP9YobgHTfV5v964G0g0C/4BkgnZIm
XAqiI4rDl54D0odTrFtuAGmlkHvzQfSLBP7H74B0mtu551+BdNXmfduddr1x
BAB6qLQ1
  "],
 CellLabel->"Out[83]=",ExpressionUUID->"26ce6a78-079e-4435-8aee-3b2723a1a05b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnV9MG2fe761zbs7FXBwuuUDiCFniIlKEkKUTFFXmgogICaKtEKKtLBMl
B6I9WcjmBG9XhVQNZNW6ehujbZy+J9Y2VlZx9u2o+9aJ4nRxuzgrTIu7NQpW
1mkggganOAGCHGSCYfJ6xmP7GY89/+2ZMb+PtKtu14zt8TPP9/n9/1/HB3/1
f/6bwWA4+z/S//WrPlvrb3/b9+6b/zP9P7p/c/ZU/29Onjj6m/93sv/kb//3
8f+e/pe/Tf/no/TryX9+DQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwEFqfTH0
N8/l9093NmOGDEZzz+nRy3+ZiqwmCcnX3Y7P/ntf18WpeErBDwsAAKBdYDsF
FCG1GsY/Hmg1GkpSa7La8dAT0YuKeBHxnDOnVyfWMT79TPqSBAAA0AWwnQLK
sLM+j492NpZeSCiNHcOfB2Pbwq5MpNbDN4bayHOjsW9iegWOegAAVDWwnQIK
kTuJZcBM3cOXrt8JzIbuR+b/ORu4fd0x3N1cW7imjG/b7zzYSHEe3IjNRf/l
fhP1t8aTrvkXcMwDAKCage0UUArixbzrJO18aegadk1GnhVxtBDJJyH8Yo8R
Yy6pWpP10p3oWpHzG7EVC+F2a0vmD7DW3+NRWEsAAFQ1sJ0CSpH6eXL0KJbx
rtj+HIpze1eIVHzWnXGqFCwqywdX8clgKByJhEPBSdz10WBHzquDNXR+6Bfq
twEAANAnsJ0CSpFbS8a37b6fEgKPYsTmgu+S1cTyzBQFa7FeuruQ2C3vFwEA
AFAX2E4Bpdh7jB9vok5if7i79FJ0zmDi0TcuW0cD69yXp7Fj2OUv6qUBAEDr
7CaWvvd9ieMel8Oe5sJwv9Vi6e0+fi3yClyqLGA73UfsJWNz33hvB8r4cySX
8LNdNjwq4yRGRk9u/ck+fKIjl+TQYO4ZHL+KfzsX24JnGAB0y4q3v1jK8RFX
dE/tj6ZFdLedVkBiqpLd9eAnnZlzFPamc/6l2p8HAID9BpFKPI+RLIRv2ky0
WtQcdt4Hv6r+AYmRyt5D97H67FG1wYIvq/2BAADYtxDbwfHsfnRoJLCm9ucB
ZAMSI5nd+87DNdmz6il8ZUftDwQAwL4lGXV1Z7ejs741MJ31D0iMdLZj/o97
mhuau0evh36BoAAAAKpBLHp6G+idvMu9CNkk1QBIDAAAgM5Z8w3WQNAZAAAA
ALQD8TJwvo62nM1jwQ21Pw8AAAAAAEjQufZd/yYUUwEAAACA2hBLuJVuGo1Z
8RgEnQEAAKoNIhX7h7P/cE2/N672R1GH3bCj6UDn6JdyGlZUmk3/MN0Yo/aI
6wFYzgAAANXFbmL+c6sRM2BHz0893a8WWCLq7jfqaYoBsR2yH6T92m320Kba
nwcAKg+R2oj6XedPdjRjWHPn6YvXvnkktIk6AGidvDSPTv6s+fKN5JJvrLOh
zmT9bHadx8glWy/e/euXd+fi3GN5839AjxfEWi9M6kCgWUFnYis297XbbiN3
KkNtc8cJm+PmFLSC1AEgMdLYTURxW2u9sWfsxuT07N+vDjRiBkNdm31mE+4e
oHuy0mxoHsAXtb+NE6veAbqA6PBY8AXna9eCY22ZCQX93hXBb/BserwD04VA
M4LOXyytUuMOMVP3e07cPx2anfI6h8zkNzk84PpO6PlEwLumNhZDkzed48P9
3eZsoXUao7m7b3D0j9fvzCxsQPcMUWhPYojkxtOYYjxLlGljIeLfnm9tbB39
OkYv7xfBscPQ/hSoCojUineI2gpax++t6+C0ubvmO5ttotTtiia5XpuPydb3
eB6L+HKpRXygmXzE2z6Z3dRwDDr/BWtMJ4dOmuqMPXbfArqjv4pP/aGVGprY
cyUs2xbbS8ZmPGNWEzqpCWvueOet/FQI+l+2WO14SBdzdojd1K7sjynvIlqU
mFTI3mBQGur8NvKJC/82vLypgF4TK74zh2p6rz/ayd38RMhupt6rAmkYWwv4
e53NwkaLKnUDT9yIanhDAhSE2Jyxt5HFsjU9f/pXUgdbadocDowcopdq/Xhw
m+Mzo4XA7Y6wuF2OWP/7qCl9CsCMA/iSYlansqBBZwN5vhrxFpksnLav+6hR
VtgxR1hGYDr1PHzjHGmJG7CG1v4x11f35hdjG8iiSSXii2G/59JQR3ZyFtZu
++L+ukbvXhZlZKgfj0lVG5UlpgRlUWeU2ubu31+59UMsKfn7EVuhjw9hb7mi
W8i/e+zpqaeujzU5wmXWsWXcUt57VIQGe0j7/k1APtS2QP7ixlOehS3+12sB
pP9wzaCPc97DVsTZld0JJBQC727OftKWsTpd85wmulogQef0KaLPs7BTVAd3
lj199G0Y8q1Jk8rUz5OjR0kfufnMVX90g1twU7+E3GfNtH1dh5iEmkRldVZd
Ykp9rpxn+8li5J+h4CR+daTbyB5v3dA56pkKR5e5/NqLkdBs0P+fbufFc92m
gktgphOX7jzgWVHFP+ET78CBmgHvKvKnSNjr4KDvFwXvRzF2E8v3QzTTfi/u
KXqLsLbBy1/4g7MhftJ36RaO/4fbaR8Z7DUXHSZuwWNl/laABkgu4YNUzNLY
647qJUxILLqzilvX5f6J65FGYrKGHs+yBH0g1oLjR6jnq8s+K1HWygj6BU0X
AqUT5PL6I21GBi3NJWzz4uysh11WeqfStkAzA6zL0Tlyp/3K7RjqLCbatSbL
B1dv3gmk99rIIiJAzxPSvqD6EiOc3c3ABwcK7geP/4pNKrEcvuuydTCkp9bU
fyWw/FLUhai71Dzsf4ZefNWba2o76F2tvJGJHpgzNPS4oxLPbcl4dPrGaCdj
hnvtsB8KM6odYmfB00dtnliXK1rc5tIgaNC5yxnhtPeRmKzk7tNZ/7YmA9DI
F2xx/Piq9AsR69BsDyVEvs3WI3dfjRSFTcX9o9mp05r1P5SG2AhPdDOtF6xx
yLui6DFDkxJTmnxH9yzSzr1kYuGDO/a3jeiljH0T0yuCvy21FRScNpFxMAUH
nkqBxN3oJXPcs8TxaPJDJB/7KLdV5nKq+VKAipHNejIY2u0h7rRnTYEsfh5n
NRqTlTPyeGcFP0VtSHVtjh805f0nW6cI+oJ7m/53s5krYnLXSYidR9d7awzM
qKjwv44HRluz+0qPc17swUBlWD5vxecsa1NiSsOOAshytG7Hpj+1oK5g7OiI
96HA3EViI3ovtIwe+fairiP0hQ4MeJ+ocOfQuZ8ZjriisvMGiM3p8UM15VmB
gNZIrfpsmTwh46mv9NT7EVn8fF0rERcTdtobl3HeTM45O+up6zCDgyqzveh+
m/6CPP5q5JVin25i1W9rIdPAzG9a+t+duPVAbNY3sYL35cYUW29qNb+uOMSy
p4ex1fJW8Il/Cw1KDAcKq/PrbClZXf6C0lsuJMKODvoitedUmXKOxN3oL3PQ
PqtETWZuN1N+BQLaYut7O30S05fhjC5+3lzWX3yDWdNZ7vE1Zz4bavrwFa1s
l8gX5Jnp/Mw/3JzdLsTFMYklTy/Dt3t4JPBc5OdE311n6+11DLcwNlsJcQGx
qC8xXCivzq+Rfgt5gZbSrjC/rakVnEXjbhkKYhbSyd54vnAeoG+0qTVCQBc/
3xnyZWCkTrnja/7BPzIe1EZ6WP4L8kXVGd42UZVlqNGdQYJjDfWra89Vy03l
1Vl9ieGkLOqcZnc9cMGEXlZ0FQmxFbyYzVhTTBNFwg46D0ivsyuAXooyCvcA
7ZN//CXYQeqCLH6+3OPdiPMw/VJFsl63F9zvZA732DH3ggZGTSBfkGcvImK4
NWeXiKssy1Xd5uVJwvxohn9Ya2lO3FRanbUgMZyUS53J+ohZexejyU3nZ/Mi
OjA8D4xkH4gDF4OqdMEpT9CZJrMUodi5mkmbn+doQ+bQxyE9dHLKgy5+Hl9u
KoYPZJ/0t92LCkR+kPipFtyzu3HvaUzQ+ZxhuoocMVlQHsJRUs0JY0uvbInQ
Vth1ympBsA6+f9lzb1FgXZhkdSa2YqG/OkcHGe9tsf7aPc+Zv6sBieGmfOqM
1EdkEVPpma9fwA6MTavi/C1b0JkisxR59j1Az+w9dB+rp1aO/qYNIouft6wA
iXUedkYUid1RdamZS0rv6aEYL8OOdvoL8twL1NvW0OsR93ATibnrQ+3kfkx2
5rwldbAmo6VS3Uigcr0p954E/vg7i5lRuGMQ3kFdmjoTTwMX3yyslSYHW7z/
WeAJ10OnAYnhoZzqjAbdaGpO4StC9BmpQTN0OMLIb0RsLs6EhB7GZFHGoDMJ
tRSxfTvbt/ohXoUnWuiVw9ehWnOgi59v2ZO1RtlOVQwt2H4W+SESl3aeRYxQ
2TWMskF8ztzb49b02IGsF6HxPb86WUbMhocKuvsEklqLfnW+taB0uW0izGuc
SlHnXEFE/q2MPf/mX+JttaEFieGjvOqcPp9MjTSiv1PNofFp/jkgyMnZ0DIR
fpX/A6qcvDJ5zuUMOr+mlyI4tquXFyF71uCq/A4pF3Tx8zirESubWd5L+sbr
pTsN8q0Y6o+5H6p6//LqzPnA7m0G3s8qRX2XK6JSRzg0bVtqvzK55Drj5RDg
SZCgzq9+dLQwTajGc94VAQdCTUgMH+VW59cbwTEzU+P4T8JIZUHBg0kdeCqz
3soadKabG4gc5QPoiLwZJb13lmqgi5+nfrnkECtKtdvsIamZsOj+qfLxJhXD
+/nVOTf/QuVeZwXDAvo8y2ocE5B0aKE/omh1LphLYhB+KNKExPBSdnVG8+Iy
1LY573PeQOR5L5Bycv0faByZqkDqe3mDzrTjTpOJgoACoMtehkKpBGPxcyce
55qHpKk7H8g7FKlUMVnJNmiFkbqhgbwK1I8FS2wC1HgFeqtQt094gTpXoGq4
KEgpMQ1fxqBodWa1WRYaBNGExPBTdnVGg+9ZeJ5ZJMrDSJoitsITbVhlcjjl
BJ13N8K488+zz3jSXPuh2Ll6QVxGUgY2qUvB4i9tfBXUZaBNgEnL96DMZBuk
j5PoDCuFyXlCSqRxEonQBH1KabK6I2omGeQnLqmrzoz0dUFbqGh1RlrEZBDq
Y9GCxAigAupcuFoMfHV8+RMRw4+0E3X3NjbaJityKpUTdKbWDE/yKpGKhW7d
Cml3lAwgBxE9MDVIweJvGvIVayVEvJh3nTRirZZ33mBvHXsL7mPyd7nt4Fh2
51C7scZW1PUWNcWkmHWWWvbZzLQ0u+bEtt8UA7Gb2uW5fOGWrpY6o4erDHyB
PLHqvPfAdYSh/4I7imhBYgRQAXV+/SI4dpj5HtxDXvLJrnk/EjVVraZ1fCpe
kSwqOUFnyldQ0UIGQGMgnmGdB50zBwxWRQyReOR39BmpJr2vcrXJueya1JJ3
6JASvdFWvP3ZNCvVXRDJeVePkTU4iUith28MUYOpsXYbLrozNg+pzeXwt7jL
Ptzfjc6fxZqPnR791DNVbPRz4WAj1dSZpbZ8SbBi1Zk9NkNokq0GJEYIlVDn
fE6FULHLecyMJ5yTM8HJP4/1HMTM5zyRF5U51MgIOmcCjpqaEwpUGDHlSGIg
kquRqb9cHv11Z3POZDCaLb9zkNu0pMyfYqYYuvhrzEfbKVHATMc/ct8mx+yS
c+E/sJjqGjrfx+efUxvZdmzyAlVB02Rx3AoGv7423I6J7g1YFDSwqHoYiEjF
Z65Ym8jxuNYPb0xOh2anvK7M/PdaU/9l/yJ/MYqI99qI+q9dsJiyPzTW3HFy
eMw+4fJ84XFNfDSSWQNYQ8e710O/oHLCsljVU+d8+9PyqHPhOURMVwG1JUYQ
lVBnYjs4Xl+gzryDbIjNxW+ujQ32mhvq0uty5Iovsl6xzEMZQWfiqW+oSamO
SYA+QZ1FCq2E9OPgv9xvKkjgQDe+N8duCR0Gl73msvdUM8vxji7+9CHzaWrj
UdD7J8p4M1Ljk7r7bQ6W1bazESUf1570axpaLSOf3xM5270EaOxSGwUOqbWo
/7p9+ERHWhzTimkZHL180z8XE9EEkQ8i8egbl62DtpSpk8DUg2dJluyQDbJu
ksPiGWOG2NFe9RLqxNq2YtW58PViJ4KpKDHCqIQ6o11qBd95NZEcdKbHsyrW
MQnQI8RP7q6szcBIY5Z6vcQD3NaOFT5BbEQFPTM5xuwKFORooWyBvyRQS3Af
RIu24yH3kDm7eIxv230/cf+gROKhd+Qolp/mvBVxFrj95A30lIPG1Vn7VESd
2QEITd9JyUHn1CI+0Lw/thGgNKhDT26hLpGKfWvvOVj49JSkeQBfFCSomeJc
dj8rNNNGC01UUO9ldbe9TT0PXzttyrbzNlo+nRbS/TKbLo51uaJkU24kUk9v
tOo1PGKJS82gb43j9aDOBaimztrNlpEUdCZSGw++Sh9iyddD0Hlfg64fmZ1a
ifV74611hiIYzR1vFPYWpv+fQXyJ15OZMZyLdB5ARixxp25WCnSDqh8Pblep
PFMpSVn3CGa0fj4vopNk5tekhqCxQr1l2c8FIlZcRKozYxoXSdW1j1BNnTXb
xFJw0JlIbjyNxZaj4eAk7vx9dz5RR3dNlUvxcsF31a4VrvoW9OGQQB8pWYt8
56Gnrwl5YDqHHB5/eDGeyF1yL7nxJBryXbtgNSH5vPwlIRnDuUjTezRqKWV8
YRlAe2tU6bhVhjQbsM5Pw2KbPBOLnt6GtGX6rDCGyDvBpKwU9EVRWJ1Z2qXl
aKkkKqPO7HfRrjqzgs5iOWgPVccJv9ivpiJaXTAFoBUKdV3un6QuhcS8syfr
5mwbvOrnzMreTSxOOixZKcfecS9wOHsyplbNIfv3rBzozZC9jb6I6hVMNGjX
6Krbfl8XSrMw1wcbqq9a3VnnRC/zoVHXnGR2/DbwTfgSp87Ey8B5pp9ApZ6l
5QPUuQB20FkkgiviNQ/x850zbwhIRqoI2Btn7vysh0MPmpYjORBGJOc/66Ru
Pdb6ezwqrMojv88XVd7ctUsZzoygs9rdP3IgbZ2qz3X5emvBcwqZFnHojE9i
jTi1xTY2Nxf4tdUVLFaKGneSpDh13ln29Im4uB6pjDojPX9yaFOdWUFnQ92w
93GsGMvRcCg0G7hzkyz/zNefWvGl6loigChQNTk0EuDKgikJ2bPIaBA+GDdH
Ni/R0Ph+oLjly2E4o0FntTtn5kG7bVdZ2s9uIvxpJ3L8ldW/pVj0UO28PnZ5
F2eBoTh1ZjW5QhvJVgcQd2bADjoLSvFCuuxWTdAZkIZ8T+zumv89Mu9W4Cw8
JsTqnTPkzNZSyRKrfltLqTHr+c2AxzdeSdBIgZh2E9oHHSBCIq/xabHMW9Xz
+pBRUBk4vR+i1BmtW6S+rGbTjKWjmjpr80FjB50FdpPIulmqJugMSATNhJGk
znsP3cfSm3aLzS/Ntbyzgp+qKRFhodpfY6VG8BDr3zmtLTXNvSM375ezWbQo
GJ0GNXmkl0a2cXcW7Jh7Qc6GWGSP1UBeX2ErbM4Dgyh1ZjUsVf/LKo5q6qzJ
siN20FloXxE6RaF6gs6ARGSqM90BWJaTMzNQqUha14uQvd2AveWK6mgyWnWq
M7E2aWtExVluKIEdkuMbBVgZWEMeOZztItSZ5TPXxJdVmoqoc7GkMNW75hah
SNBZaF+RzB4CQWcAVWcJOTmZ3UymIUCpMGuuNEGNq1BiOEUlYaTmVos6v1ry
HGfmW8qMiLETmDGZ4zuVgsgNSeH9piLUuSAbnDMNUr9UQp3ZuQHaqddAkRh0
pshkJ0LQGZBZn/sy7GjH2ibCsgyBjAFeEDx6GXH+So8OQMXqx7XDzn1nG3NH
lJu+xTJRtfNDZ1IdECUt6dwWrM6Fil90rGcVUAl1RrMus7dTi0NvJQedX9Mz
nSHoDGikewbVM4rROHFzaqQRy/Z71BNVp8758YX8giX0kku41ci4ZG6ap/oQ
qaWbVlRM2f1jMwhV582w4xia6m4a/fu6Rr6rslRCndmqp516DQTpQWd6pjME
nQGmOqsYvqH6LeebP2RSxRr79Bd5YXi0qkKd2Xau1Mq7HNT+g1B/zP1QS67J
rUdu1Nita7PPFBm3KUids5OGeLW+CqiAOrNVT5OOCBlB5/QD9y/8/OiV2ed6
2/oAxZGds60MVKglN58okwdesghay1RfVhhrUEXNWZ8sfWEFnWsGvasau08F
bWmxLvssq92sEHVOzrt6EC8B1jE+/Uz8rrubWPre9yWOe1wOskvwheF+q8XS
2338WkQrDgeK8qszW/U0mZciJ+gMADnQvVdFdd6Ne09jtPHO1YFE81SdOrO3
XLmzt54HRtC+HBr9oYnNH670ItPWGs9+ucTs7cWrzgVdT8WNTEVhHZAyaGEo
G0rZ1ZmdnSi5kLOsyAk6A0AOtFeYmn2hqSf78FjwBb17a6jBiChQda6KXmGs
8tL6saCcH4ZY8w0xSoqLt5rRAkRizmVFLGjjSVf4ef64xanOhVPOscMDbmnS
TF4slXhONXxcCN+0mbI3TnP9TMqtzqzsRKzzs/mk9sRZTtC5aoEZVRJA1VlN
9wvlsyLljFj1DuivkCqHIn3LtUShBjX2e1dkXI5uPpPTZm0azjmI5GO//e28
bxprG3LPxJKUyVpKnYmt2Mx1W0fe2sVM/9c1+4sSXhRiOzheT19VdvRfccqr
zhmXGoo2DWd5QedqBWZUSUEzth6516U/wCNq924a8j3V4HMnAPS0k3EF6JxC
DWp3hGXsNAXmjz5SpHbW57+yW1vyQzNN1gsub3DqMjNbrmXE+wM5H9WSf6Wh
oX3Q+TfOeW2iQDL05Eb/y0BZ1Tn1yGNF3fuYcQBfSmlwk4CgczFgRpUU0Op+
VafrkiqANf2b26XXfLAMVK0ijYR+AkRq41HQ+yf7cH+32WhoMPcMjrtuheP5
XWg3VeEdqVCd5ZTdpVZ9NmSHbR7AF4VdK7nkG+tsqDNZP5td51mhRPJJ6O5f
v7w7F1f2RqUt4tBt11h/a4OQPaa2uXvY4ZlSTpczn4Gci02/g9zofxkoozoX
rBzJo0srACvorMmsckAX7IYdudCamh4YqhFxrdnconlvJxfosINcCrpAUr+E
rr/bQW7+jR1DlzyT06HZKe+V4Y60Kg1cn0/sJCJ/If2l2NHzUxV0LFCl6Hnk
mGxb39sP5awKzNjnWRBWzJ4JdlDwuiPWgmOZkd8yPfClP0xy7fH8P3w3XY4R
C3MadEPH4LjD9Rdf4MeHz8oTDc0369Ze0Pl1+dSZSC3hA0b0UHRoyLukUc8k
O+isteQ9QEfEvf2Ysk+TJPKPdocjrFpymlzQDUqEJ4JIxe5NWKhTkrFvYnoF
2Xl2E4/+Y7Cx1vTep5d6GlQ4RBV2DpFsOyfmnT35HVaE7YO6CvncEflK6voe
z+PynmHETZCUD1qJppnWaijlUWdic8behh4Q6zsnQpqZelMIK+iMHbTP6jG9
FdAEpPGc3TVVDJbnDgm6PmoiRx2s3xsX9Ddpaf56tJXaf4wnXfMvWBtPdkYn
TV2X+6cKbk4FZSzSakOI5PxnyGxo8+/8wpsvIq7C+vEgV3tDVL/kxceFUGl1
RoLOWuwsXQ51JlLxmSto2ryhrnX065gWw80Z2EFnziGkAMADGipVr5knvddp
c1SrUJAwgVDfIxH/9nxGmg2HzvhKJKq/+tHRknvoC8eFlBtmm2gpuw3T/DH2
XAmLsH0QVyGj12sRkIT5CuhXhdUZcWJosrO04uq8m4jitlbUam7sHJ/UsDS/
LhZ0HlBtRwWqAbRVo3olz/Rep+vJLJmeKmJULN+TCms8c6d0fciL4Fi2g4cK
ybq5YC6le0M+VtssLphVw6JtH8RVyOc0QJ3wPZ7lcu/iFVbnvNNeqyfYwhnW
0n8FIvHIf/mUiTFQvG3Io50x7iVgnKIpdO0JBNQH9QeWP1pXAvrcre/FjGio
oDMz0s+Ze4w1qjtqJOsSq3fO5OY7i5m4nZZm98Dh7F9KcEuirkK+PvB5/apE
0hTLUixrQSKxHbJnPVyVdp4IY3cz8MEBpjjzRSLYpBLL4bsuWwcjMR5r6Hwf
n3+ukAlavrKI7RXvucKebhU4JQLVDXLoVWk2SmYT1qpRIBA0YVvAMYNYm7Rl
JY+n+0o+cVqtZN1UfGq8Nbtl1vT8//sJ3k+xl1yatPfkgiZNlol74t2SiKuQ
x1mN6lcFOnVsRV1vMWursEbbpCivghhYQWdiKzb3tdtuO9nRjBlqmztO2Bw3
p6JrFfKiEsmNp1T3stiTxcg/Q8FJ3DncUaTWrKFz1DMViizGOFiMhGaD/v90
Oy+e6zYVXqKhy3Y92/5FPgqWReTvwFI0HJoN3L5+6ddm9g3AWqwfue8EvguF
5qLLua+8uqHUNwKqHlRW1Gk6txmyt1Uik6es5G03IYma6PZ+YMD7hGM32I04
sza5eh2iiBfzrpNZAx4zWv4YWH5Z6jMTyScz9DZIYXzb7n8spcoICTrzBVsR
/RJby8ZBfhMmWY7OhULT/q/cjqHOYq2Pak2WD67evBOYDTEV6XlCZrSUEXT+
Yml11j3UhmGm7vecuJ+SGOcQKQ3Y4QHXdwoXehel7K2fsIbWU/YvphcUKxhX
tiwivdh65PTWgO5hgGDQ0LMaDdvpeI16OWkKgNpuAgpetqbHDuR8xdz9CpCJ
8+p2iCI2F26Nd+Y0N2MX3Lu/GHv6LLFD9YJenL93+7rjDGJGNXbY/hyKS1xR
SNCZ16+CJDcqGB9RRoZkL2zEaW86OXTSVGfssfsW0LGWr+JTf6CcGyKT7qRR
FnWube6wDI584sL9oYdxRSvGFS+LeBl2tMv4pgfe8jwC4xkQyF7UdSS7crjt
uDK+u06an5YASRg+cDG4xX0Lia3gxXyQjkdNnvmHm4W9sgLsJcku0l38ezNp
2bn8snytaNCZrw9J3vmvaIWpJtQZPfgZyPD9iHeBHVlI29d9lMJgxxxhDQam
VUP7ZREAwMXeA9eRbEpopUPPWctdg80JhZO/gdiBsWm+rCl0WAafmmzP2g/S
pqjM+VDKkdbouW9wF51ak8do7u4ftlPWjwL9spCgM5/TAHH+V19bY9S1xdFj
bWfZ00c/wiLz6qsZfZRFAAAH6vU6yHYP1nUsBvHBtttDvMMv0Im9PLVXiFuj
+nSHE7QpIs/JLRXDB7LO9KqbpYtm7JsuBEp3Gs8b+qAvNLopiwAADoglTy8m
SC8Ufl+6i3KFW2ApC3K2absS4W0fzWjGy60mVa07nCAHHt75LIjzv/pm6SJB
5xbHjxwJCogbXs1Z7dpBV2URAFAa4qlvqKninrHckCw9z1vMD0Zs6PUIOHej
0cy684GSuc+vGbrDkCgiFX8wE4nrOFDPAxp05jsuIt1omR6Y7WeRHyJSc9I0
AtKAjjtjH503V64hILpCb2URAFASZL55zSl8RdHhdyXZCI6ZKfNIuSqYSoPc
N4EDi9He5tyJXoiVzcwHIGOyglt56xG0KSKP0wCxspmqRN69en0X0YvI2Ede
qe6sdo2gx7IIAChFLu3TUN/lilRCnnPqo342slSIVb+tJaOfbc77wm7aMm7J
Gs+cvYiJZU8P/TpmG7dq0B1OUOc/z8mt5BArSrX1nn+LVIrxxEMRN8t+S1Eo
gn7LIgCgKIgZeOjjEE9ZkBLvl7V6NJONLJr8kAjjGW9M4IkGydnmUGdiIzzR
nT39M1q1UKlieh61yQdjEh93mmJyztlZT7+SESagQvb81W3aRng8lJHMoPPG
Pgqg97IIAGCRtwQb+/ClMu9rOatHv0f9FyF7u3hvA/EqPNFCWzn2UPFexNux
yQu55plM+5Ga6tgyEX6lZ93homASX59nucStJdZm7V35rk1oW2PiiXfgoIDq
Nk2DxEN5gu9EDLfmboQ2R0xWFCiLAKoPIrV001pTGfM5G1vkiQppFvRefRjc
FBOuIpa9pzLOtKImcEaa649aekxsq5BMQmusUOhBHQom8TUN+Yr1Pc40F8Va
Le+8wXZE7C24j2FCqtu0DDL1jGeuCpoSptURk5UEyiKA6iRXJFjm6LPeg855
P0PraCAucjskUiveIbLco7C/BJFcCjhPmbAm65WZ+FbE1VXP3DeSS/igUWD6
mU5hbK2U3LRemIwxtk1yyKCjz4gdHZ38+VUuuJDzJ6SWvEOHeIpodADSMZKn
qAw9zwgrHKhuoCwCqFZ2ou5eqjbfOIgvlWvgcja2qGjrxcqxuxn8kNoQa0yj
f1+Xshvm5stjxp6xG5PT5Kyfqx9YTLWY6ZQzsEQ12yKS0etWIyXiFsed4D98
V8+Ya0hJquJNAw0615iPtlNduzHT8Y/ct8kBE/RdqkMGC+aiAE0Wx61g8Otr
w+2Y8ZRnQdde7TSJkN3MdgsUAc1Pru6Tm0CgLAKoWojUEj5AiQJn+zs55Hxx
AmZGaA9ic8beRubrYG2fzIryaRdcJ/kkdMs1NthrTmsQPW32B+bIPCK1HvFd
GSVnBWLNnacvuoMrVSzNzKDzwUHfU8ZAXgPWYO7utzk8U9ENxjCmnY3oN9fG
BnvIob2tlpHP75UeoaUf8urM2YR+bzPwfjbIWqlqC60DZRFAFZOK+0epoGfz
AL5YBjnIJlXqMYMll4xUY3H9q2oTp1UC6XjME2ytelIxvJ9fnfOFkHLPilUE
lEUAVQ3x4v6Vd0grxtjvjiq+SjOFnFjjyJTe6lFz5xazzbe8n8WjLCADWfSa
kKAY+elUpSt9kCpIrMs+C+MvMkBZBFDtpH6eHD1KOrhbP5ou3X5fElTJg/6m
3RE7C54+0uffZHXNlX2Q7v4DqQziaSu9L8gFlEu0IiESoQm63LvJ6o6UK0dE
j0BZBFD1pJZ9NjOZlWT9fJ49VVbGdZ+F7375TVRXApcb4w7SXCbQyiBdJiQo
TbZZdNGqQ/rZNMCCLAaURQD7ANqCVlygdQaRCF/pMcJOWE42Q/Y2Wpz1mJBQ
DpLzLnLVYY1D3pV8IhyRWg/fGGqjhLvdhj+ABVkMKIsA9gGplemJPqOhrtU+
s0/zJPYe48ebYCcsL0jQuWbAW55iAd1BpOIzV6xN6fOKyfohKTGzU17XSDcp
KLWm/sv+xU24TxxAWQSwD9iOh//2ZWBxn8a2iHj49u17sBOWEyToDC01mKTW
ov7r9uETHc21Bqy5wzI4evmmfy6WhHsEAAAAlJl8hyfsHfeCDlvUAAAAAEDV
Qax/57S21DT3jty8D+EDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAACACvNfStYdhA==
    "], {{0, 114}, {650, 0}}, {0, 
    255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{426.7624999999999, Automatic},
  ImageSizeRaw->{650, 114},
  PlotRange->{{0, 650}, {0, 
   114}}]], "Input",ExpressionUUID->"b1a72787-348a-4810-ad85-ff0eeda52180"]], \
"Subsection",
 CellChangeTimes->{
  3.746790794639846*^9, {3.7468324068772516`*^9, 
   3.746832407310075*^9}},ExpressionUUID->"abd291d4-99eb-4248-93ed-\
4faee60fdbc6"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"Ft", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "bb", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 
   3.7468070324753675`*^9, {3.7468331290932484`*^9, 3.746833137306533*^9}, {
   3.746841946421612*^9, 3.74684196943189*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"b9147098-791b-432e-b4a1-cda48be6e93c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"Ft", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 
   3.746807032959241*^9, 3.7468331516324916`*^9},
 CellLabel->"In[85]:=",ExpressionUUID->"5e7c56d7-23cf-4ace-9120-2b77a207e41f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuLia7b/WlneOPJnGCu1AWkeq3aNdiAtJVUYxif8xvHH
3X+i/EBa5fzNBhBt1LJ1BYiu+sshVdn9xtHM9fkrEH3rZ86XaT1vHD/0z25e
DqQ1/fcmH+kD6n/sH3saSKcslFENXf7G8YHnpiWJQNqvnflpMpD+d+pDXhOQ
fnHV4ckaIP3hgUTJLSB9Q1ZjTfmqN44mGqGGnZveOIqsn/Xx/rY3jl9qt+me
3AHk//T4cQ5Ie9bv1bwCpB/dVXymsvONo8aO29a6QFrXWPa7HpDm1D63vBRI
T2fvU6sC0iElscergbR3MY9BDZC+FWlQ3ACk/061278eSIumThA8A6SXx4iW
gujSbxFLzwHprRftW24AaX/Dh/NB9KEHAo/fAWkG5fPPvwLpJOMD2512vXEE
AGdCtd0=
  "],
 CellLabel->"Out[85]=",ExpressionUUID->"2c6c1a89-6740-4428-bc9c-d132d35c2551"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnV1MG2f+761zbs7FXBwuuUDiyLLERaQoQpZOoqgyF0REliDaCllsIstE
yQG0JwvZnsJ2VUjVQFatq22MtiH9b6w2VlYxPbWy/zgVbha3i7PC2eLuGgUr
6zYQmQangQBBDoIwMPl7xi/zzIztebHnzfw+0q62XWPPY888v+/ze/1fp3t/
8X/+m8FgeOt/pP/rF50DTb/5Tec7b/7P9D+0//qtnq5fnz1z/Nf/72zX2d/8
79P/Pf0vf5P+z4/p15P/+zUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAJUFX1uI/NV75b1zrY2YIYPJYjs3dOWLqdizLULy+24vz/xHZ9ulqWW8
ghcLAAAA6A8wNEBp8GdR30fdTSZDUWrNDqcv8kT03UK8iHnftqRvO8w6Mr0i
/V4DAAAAdA0YGoCHnbU531BrQ/E7BKXB2v95OLkt7J0JfC16s6+Z1MCmztHp
JZCtAAAA+xIwNAAfeVWZATO391++MRGaiTyIzf1zJvTVDVd/e2Mt+2YxnXRO
PFzHS4pQYmMheKXLTP2t6ax77gVIVgAAgP0IGBqAF+LFnPts1ndmbOt3T8ZW
CvjJiK0nEd8lmwlj3iu1ZsflifhqAS1KbCYjPqfjSOYPsKbf+eJwkwAAAOxL
wNAAvOA/TQ4dxzLOsYE/R5ZLO8cIfHnGk/GJse4W+/vXfJPhSDQWi0bCkz73
h73WvFMOM7Z+EBTqdgMAAACqCzA0AC/5m8R00hn4MSVQVhIb84HLDjPHsVYQ
7Ijj8tfzqV15FwIAAABoEzA0AC97j32nD1Gq8vdfJ16KzmVOPfrGPWA1cjQs
TYO13x0s6GQDAADQK7upxHeBWz6f1+1yprnY3+Ww2zvaT1+PvYJYAQcwNNXA
3lZy9hv/VyEZv+ethO+ttgFfvAxVScb77nzm7D9jzWciGS223pFrvm9nk5vw
cAIAUHUs+bsKFYkcc8f31L40LaI7Q6OA8dUXu2vhj1szmhB7c2zupdrXAwCA
QJ6HBq3Wvo9vTNyLxhPJ5PMUuzqAwFPPk4vxaHjSd+19+7Hh0AaYMX1B/YIk
89HxAXPWQNYcHXsAAQP9A8aXw94PnhP1OdlttPsW1b4gAAAEsuizGwVFvckd
r+W3E4931L5iQCrEdngkt1MfHgytqn09QNmA8eWy+2DsaE1Od/f4lmDHAgC9
IFSQYOaeMejdpG+24u723Eb9VmAVHCT6B4xvAbaTwY9sjcbG9qEbkZ9hywIA
/SBAkGBHHM7bc2uw1+kcYsHbkfut2zwLkDNXDYDxBQCgaqAEieWc0znQ1W5h
SBMqDc/tvz+/DlKkKlgN9GYP05BAAgAAAGgNSpDYfcnsP+KplafJZPLpehnD
SwEtQrwMXajLak3LcHhd7esBAAAAABSWIAGqFSSBpPadIJRKAQAA7DsIPPn3
sa6jNV3+ZbUvpRAgSMSzG3UdOtA6dKucVhVKQyR8juxgFszhS4L/CwAAYH+x
m5r73GHCDNjxC1NPNWkEQJBIIBX3dJn0NYtkI9if7dFVe8z9EPwjAAAA+wla
jQxN/qTVBHgQJJLIjYLFmi5O6kCTENsR58FswKbZGdlQ+3oAoIIQ+Ho86L5w
1tqIYY2t5y5d/+aR0AlE6kHguBQH6y7Obl0JAPzk1Iihsdu3oFU18rraBclW
IjDcaqwzOz6dWeN5+sl231//5dbXs8sCH3hiZXrEiulDk3ASSIjN5Oxdj3OA
3MMNtY3WMwOu8anK9x5PW4qFyOT42Eg/s4bLZGnv7B36440JqOESi1LGl9ha
f5qsGCsp2fbA3VTcN9BUb7IN35ycnvnbte6G9ENZ1+y8v6EZw01srT6e+3tg
3H15sNfBKmaknr5+p9v3zWxyq7TnksCTd4eajFAiB4iEwJf8fdRz0TRyb00z
z0UhuIIET60sxqORNNH4oowbifwQz/zd2ULXo8PhFyVfuxoebqZe2dDlXxL6
AfiCr7uRzMpo/nhmQ8ObBCOB5MvEsxlPXzOGmdvfHfMFpyMzU/6xPgsprY52
u/8hVI/xsLeVvO8ddpjRKXNYo/XUL+nxLnSXG19EF6PEiF18t+zLLOtNFDS+
eMQpuIWzYCghOvix2/dtdHGjIjsLsfzthaaGpqG7yex9+yI8fJS6r9RvpE9s
Lcenb40NnW0qNWwRfT46Bm/cLyZLiNSs23HIYDjYG/hZ4YUAuobYuO9sJiss
a2yf/Vvr5bN5QZI5eQ3ZLSbmQ2Ju7x+9FXmi9XUUYHc18Faui2W7O75V6rV0
ikW9zftY+FqJtb8NmdMfgpm6fQnN+lLp1dWYz/adNdeZbM7APGrEXi1P/b6J
3DVNtqvRck/c+PPozbdJhWPAjE1dw+7b9+YWkmghOZ5aXogGvZf7rLmpf1jL
wJcP1jT7BWaojI3u8iUlmmJFja8sggSltrH9d1fvfM/nFigJsRQ4f7im48aj
nfydk4o4LZn3Vy9XKrOXvtvO0t7pJbf+avCyezwQmonMxheTyeSThdg/Z0IT
427n2+0Z8Y4Zrb/zRp+zbxH8p8mh49QLTnoWNO6PBbQE9YyQN46pxzu/qfbV
8EIJklN/mgo4baYao7X/qj8c/2mNMh54ajEauNJDPScNOisqIVkNDR7O7gT1
I+HtEsYO7dHR4oqK2tt3N2Y+bs6YcvdcSdGjFmgCiYH02g3657k/JZHwdVLy
ADvhipaRZJLbOTHL+WvB+HppjYH/HPG8ZcFyF0abWk2iriBR2PjSIRvSaEbI
2ZqD7SbuSd/YOuSdilLWtSgLschMOPifnrFLObNLg5nPXJ54yHOfFLnEzchH
h7FfuuPINks89trqM298yBVVfMPKSJEBK8MlQkmv9L66UvJUR2ytxO5e6TpK
CXlm2mEuY43k6FhMX9swIIXtZPj6u+TDkhao7/riKanvs5Xw9VJ3jqnDE9dD
dDzXOh5r7rsZLXRE3U5OXqTOzpjJ8fmcjjQJMuajpjdQcpLcZmysLbd5iO/R
QayGR45R32Gbc2ZVewYVSSBJ/4id3vmdgte4s+jtzH4HfQGJy8iqkSKapzA7
a1G3I2vptK1JmGkVi/HZSGQ6eNvj6mstpFNqzfb3r41PpA/DkdgCYp25A7UF
fbYGjO/uRuj9A6xV8kh9LuQx52uOyTZ3XQ0tvhT3vRBP/N0Harr9z5A/Q6K0
ioc28NX4xGWHuZa5LpdflHuZeBHzUt5FWpPkd2DqCRkMwUTnamd3bfrDJuT5
wE545qWcN4ideW8ntbVibe544W1fa2QEiWUgsFj02JY3uAasoc+/pFl7wYRY
8ORERl2b58eSZxM6xcJg8y6KX18ucKPJZBJ0deaLoeLJvbQDQOLovc1Hns4a
KaICXw4OmbOXqFlHU3GI9ehoO/PgX+knRSPGl54+kEPS80J5Eh5OOE8ywsOm
zlEx4zup5Tf2B1eQf4c/8+fHI/T6nymW/5ZtNoXaEGPrhXGJke7tZOBd8nEg
feyp1IM/2ejvHBJI9gGMEd4URmdEwr2cS3E0GFqckdIplNphI+o6dWL0u9JJ
ccSSrzP7UDT2+CXtQEqDJpC0jcVKxs6QFAupGew7S74e6uPqml3faytQh6zu
iOtfr4q/EIlIWJwRsU5CYufRjY4aAzOmIPyvl0NDTbm93DY2J9lFqQ6cYI7R
7lus4Ptrxfhyg1ZlFehtJ6c/saNhIOz4oP8HYSlM1APOUs7I+EiWeJMR4mUi
+AcbYxVHu93T5eXGZCVuzZtnzphRCQgJJPsAzlOGdXgTom9m/FlgIBODN/Xc
rrZOmOgp+/BHER2URCAJJDxRGDTF4vBgqGRspwRbs2OtlKxl+dXVhmwrK2h1
exvBd3LuZjGlRhmIZ8GBI+TB0PKmveud0TsPxWbGIqLXUOMY126GcCGIRa+N
sYXwVnWJQjPGt8KC5HWubqiOfkPBXZuI9fi9yCLqTNuLu49l3+VAt/+JEl8J
/vPM1TNMP89ZNzclVQKb3zkPs7xRkECyP2B5SKRlAtD3j47cI8JBsiwMrJOa
JkESSPg6pSMpFtg5/7LkBz7vJDHUdPqWtGJOtxc8J3NmvnQgBnml+AM+kfB2
MIIWRwdDz0Ve6kqwvzH353p7iJI+O8NySHAxlUITxve1HILkNdKyidYkkvpa
p6Iua/Ydat+WFHMUB5H6wT94nBmmqWDrZno/yQMJJPuD3VTsiwGyArG2sX3o
RuRn8fpWm8aoguBJX1f+uajtD2q81yeSQMJbgPBzoDfnIDnmjpdTq0CL0mMj
YY1ktyKra/MslLomVA+IDVWjYkaipGG6aBQ89VcEmQUJB6WNbxZZBMlrMosv
dNGMvq2EEkXEpaDABpXrCkKrkcrn/G9ODx9AVT4kkADCoJ8FCQdDfcDYirTu
OUQTSPic5y9Dg1mHMXbQOVPe8WZ73nMqs4NIzYuuNPTq+NJjEJ+S+NrnfP0p
bZGHw+tiL5YR+FA0KbFsFBYkyhpfGrkECZk5P+NsY3TRa/10Tkx1ymb4Uq4C
SHYXrhJqhGQ9PIw+VpBAAgghbf7ezp7s9JFfIQXGViSxCkMxkAQSvkvdjY0d
zb60AgcQJBFCE0EHZHU8uzSR9Dny9kB07TNaWWwoWVxcEsZNpux5cDPq7nHY
ERy9713x3lsQaGUkCxJiMxn5y9hQL+Oz7Y5feeaKpx8ranwZyCdIkFK1HKI6
JzwPDebu9AOXwrJuwvhiYADVCfINj2D4DDV/DAS0AZ2Coqs5qsSL+K3fOywN
xqYe58Qj3kJL5lYkvdukEqCHfZ44BZ70defscCUOIFR5ZtaqS+7mUTF2l/3n
sqvDukv+ZIytjy/rpgDpM+ONvhbyDiFbwd+R2kMv1xWHQtGI+d6T0B9/y25T
LNzWSBMkxNPQpTfZPUzICTXvfRp6UnwnUdD4spBTkBTImqjp8S0JkyR0KRl2
YHhaxpxyjifHgLWPRtdl+g2Q0HP5/ltgP0C8io4eyd4zfP3JtcTevOdE/rnC
TnsTJepBSRhbUVnJn7KDPsV8DaOQxInKHEAQyy7gW5WZl1FXS3Z1PF8E4lMy
GDu8JUWcjDAESbkpPRLAV+O3LzSxWoo0j0Z5jb4UQZKvy6M/ymT7QzDB1x9M
MePLRV5Bkl7a1GAD+u3XHB6ZFjCmB6mANlhdUeSbJzYW7keEurn42V7yv838
yWRugEmHXPVQSgCoz4uIM7fnK79/SgfNshCyf6LN1Xmtm7qgS+N7isma2Fzj
csZ5fHsl9n1sWdKJhG4eVX/C84OqdwSS2lHacKDpcw3vBlWLx6GJtWpFBvPN
lvMIUGgSBMmrf7mOMKsoGt72L/HecooZ34IfLrMgYWdNCFP1iFvScGQ0+or+
raj+LZUqwab7XtJ3qLSuO8LJf+E8Hk4AoKB3csk9tdSBmRPC6xql+4pzbLfW
QA/7PFEYxJfC7LxBBn3qJQbg0O1RZY1KC5KSrf72NkLv5c599W3umHojD5ge
EkOnd1GNa+G2gOD9HUULEtaAIcHfvELGtwiyCxI0PSZDbfPYg9JfC1JyzjoC
UOKtUrJ2J+7pYA0elb/jUD76rKfTLqAW6OPT7IxovBaWAZXEiBkt7V0Do7ei
vPUMqJWXUkChHGgCCU9oqeg4YEqoSP5B0RpYdaN4dLF2KUGSH6unfut7liCR
u3i2GEhRbRa+/CLRgoSVBiw0wKeQ8S2G7IIEDUjl4MmTQZ5i1ndI3tgHGgan
KrEvZ8YioNQcdn4ne7ws+4VDAgkgBMTBKGEom7pQZkho1xTEpa/xLpqI04Pv
R8n3Vk1TdyFEh+6pTNcy0gWRplUq5mO8Ro/h9cPhIhsaNbUtu5+rPRyQnhan
riBhVjeQ8MX+RAsSpD9MBkFHYGWMb3EUECTse8DAdwJC4pKMDHZiMzrajFWm
2I1I3u5hTToWnnBbDtkvHBJIAAGIaAeqQTIP7OE+f4LPPbKV8HZl1ymhYZGi
sHJjivv8Wdny6Iww0it+sKx0we3wcG5PVbnBV15JFqk2IlKR0awqO+TwxOT0
5hC7+C7PN8G2d2oJElRSZqi3eR+XunixgmTvofsYQ/IIayeihPEthQKC5PWL
8PBR5meUnsFE+5oYbkAywtLQMDBZAYWNDlrKXZIS7pHXufsKEkj2BQSOl+Xe
RA7jOksgyZIZ4VRzcvS7Es1pkcbOEls6KwkaWiKNbF+g0AUTL+bcZ01Yk/3U
G9x9lao/KnNvX/J35ZIyVHadbcbdv6TmTxeKCNAdFQ453LNip8/wgG8sRr/1
uZ39Xe0WZNY81nji3NAn3qn4OtfPxh4mq5og4QgMvnmbYgUJdxqfoHme8hvf
0ighSBhNobOUch/RdY60GxD/aXLoeE3TyNRy+Xac2Im7mYW+SrlHXufuK0gg
qWLw1Xjw+nDXseyDZWyyD7qD8VXxN66Yag6REFvPYlNfXBn6VWtj/hhlsth/
6yL3cUkPQrHjKf5kynnShB3tuvLXAu+c/q4mnJlBlpj53PUyhkYptCJGu1HK
/HH6SBCpR0FXp4ma4fUq38csnx+IJ/x9h8vu/49mCPDNGpabrTm3zZT+Jhr6
/Eu0BiDwtejNvmbqp20Z8ImehVccAl9PP2EX7ebcD401Ws/2DztH3d4vve7R
Dwcz9wBmtL7DGtPA8UuoJ0jockthgkGsIGFLL4EtjOQ2vnwoIUiI7fBIPfND
eJLB8t5O05mxyfvhyT8P2w5ilre9sReVuKk5hT9KthjC1xai388uVvisAGgE
IvXAS27CmLHp7NCV6zevvZ/dNgWPmERAXYuVa+pLbCwEr3SZWXld6M745vAd
gRO68++56O9pLBpUyn+i8VjX0B89t4PhSCQSDt72fNxnpY75xpbesUJyRXsr
QhNIaizHW4wZKXX6Q89XoZn0oiZ95C9eZ2x9zzeXEVfbycmLVN+JQ3bXnXD4
7vX+FqwCYSk0CYHP2y87BL58/yrZ6brW7Pjg5uR0ZGbK7x5sJ3VmrbnrSnBB
QKcHgZ+UevSNe8Ca9YdQHzf1cIU7h51sTzo+1NrAfO64mRvqpQSL9WCIFSTs
1wse/SOv8eVDCUGCthcW/H2mN5lvrg/3dliMdWn5O3g1EFurjAeDql1iX4ym
s/oBnZAdQJA+D375YC17VEQz+mxjc2KOY8SPnrbcIYqRElnOFT70DbSwvIOF
EOVgz6yRp6gw48EYG6H86+RHmCztnb1Dn3iD0cWU9JOXsitCfVYHewNP8fVH
Yf9nVMyAdBFQJUUuTrBgZz1O7mW29GtId9nn9xYr8Fuih31NVEmTjsEbzv4z
1sZa0mVh7x26Mh6cTYqYFsLD9nLE02fJPRGmk87Aj6V/0OywVPq5QydKZx5J
9frvaVaQvJbR+PKjiCDhxsskzWqsCK8S3tPs7Uvh7rhAVUIsBc4fLuAJQarM
xOUfok7dCsT4CDz5rdN20CCUxm7fgiChkCnqVKHblfIrQnxWqqeBoT55nvb1
+gd/Hr1+zpxrUm+yfzItbLRHJqUWa3PHye5SSOJN1goJyquQBY7lrekNrJZ4
vZKCREVUEyQqJelxco9V6I4LVCE7Sf95k8Fkc8+xXcDL/i5JM8XQ6ADW5V8u
7/qItXsjTcygdRaTxfoGe9pF9v/p9SV4HdoZZwJ/c6GKo8KK0N1D9TQwdOuu
HwlvV68ioXIYcs+Q2LGnmV+TmpHNSduQxdgJRKzlFSlIGHONSXRS16maIFFH
nCJdX/IcHgyVUqb7mJfzgWtOrXAtMK++W7oYxOrkQANWcJ41M49OxMw49NEs
92HZ+cHbiQyzNrb2ubzB6MIyHSvZ21p/Eo8Erl90mJF6Bf68+owzQbGc8Dxq
rAiZV1u6TlAZ0B5f2p5FWA4MNWLAWj+Jim1dTix4O4w1vYEVduYA7xwiWWG1
aKuwIOEYdvXSd0WhjCDhfoo6ggSdvJlDd/2mFKPQr6YiKrpX+die95zCDEcG
gtyADOuWE2440Nq0ujbPj2UcgFNzY7act7u591qwZProbmph0mXP2XrslGe+
hG88c/xUqmSeRpUVoSmRWsg6Q8ey6MTciIWpRoQ5uLhQjW3r3hob7WDuKOo6
DZhTdQx885vECRLmZCgSlZrki2V/CRJWDwFqf9JfvymlIH6aOP+GgHRBRcDe
OD/xk0Z/qMxkiuarMe4UJHQwhEGUax1NwCsn/ktszX3ammny0fQ7X1xYqjxt
CEqKDXXcI2qtaCPibM7+IJo4xSA9rPTikBfH5ry3B5ntcfh8QGKpNGV/Ghob
WQEbdW00J8O2dOK6OEHCmAzF/+baQRlBgvQVzKOCIOH0ENBrvylAQ2QGhxXu
4M0q6RLWLDEDam7KiCrmBjZx22XwgC/4uqkTXMN7ocLGVyX3iForQhJIVG6O
mgWdaKOTlEUR7Kain7Qix6GyOrcUyhlQOwuIW4NcsrRfnCDhNCNFGwVrmX2V
Q8LuFWOo0pMFoCSU67Xw4Cp0kHcaKrNO1NsK2nxKsLsafJesKxA0dpwN8Wzi
fANW9BkhngUHjijuHlFtRUgCibrjY/KgQT2Bba/0AzoGiKS8xraFqipUzwLi
JDSWNEaiBAnaMYBarG7O3aoJEhWeIMZUrCyV6zcF7E+2Z5wHscKnLSqbjr7X
xFWXozlvUgXJ3g+eE+ldvWByixB2lnw9NUUcO1T/c0z2YVvsT1VtRfROyZOF
ohiMDtgazrCSQK4dfQ7shGe+HGtRwABpIAuIXfJZUiOJEiScDvnqL1YgqgmS
g72Bnyv+OaUpkMmil8gaoFlS37narL+6/Zi7X1IGTthuU4DyBUm2C3RZvu7M
6LQCKRMvIs4WA/ZLd1zJcI2aKyLW/jHmOFLT2DE4/kAbfZarVpBkataQbbpc
l1SBo6gmek+h/f8pSkSRRAgSTjBIE4sVhiKCpFBOqwrzFwpcxtGxWJmerFcP
3Cca2ItDwBqtp+w5sj0qM9S+oRc3GiCFl7GxXyA3wi/GYqLKllFBIi37LrPd
lXk4osy0odkZYbgNCGpES9kDWcRSfSsqB0YlRRUJEm7vyjIbvHNLTrTSe4rI
jzriXakIQcKq31G+CK4MlBAk3OwdddLUCwiS8hdbIC9FIHUt7ocgSKqWV/9y
HaHvDPE+5/K7TLyMulqw5tFoWYejjFOCFWDNaC3l/cDVt6KyqGSnGu2w82Cs
mWkuys0+5TgitPNDZ9KWaIr7UQULErbIKZzeplWUECRoNnjuS1Kj2FYWQfIa
T608TWZJxKORSOQfocAX1wZtJgMbzNJ3xTdJThaLLSSTz1Pc6dhAlUBshi8h
5b4SfM6aaXtF9bdk9LXemBpswHLtuHVItayoGgUJPW2W30YLfcuEz8HcjPOT
l9WHwBPjDlQ/FBvBIFSQbERdJ9DiJPPQ39Y0slYhKCFIuN0/1ElT566VnrBc
cQqUGLe5ooomAALq8Tw0iJTd1fT6n4k1F6ggUXe+PDUBhO7alMkLbej0JXS0
zzGpjhWhk/6qRpBwvRlld9JGhklldv0Tnh+0VJG0+ciDujTqmp33C0xHFiRI
iJ1HNzqEyBvNooAg4ZpmlZxIBVKb5JtlwJ2boPrwC0ApiNVAH7IH1vYFeNqV
F6ASVTaVgerglJ+LmqlzKdrKQxdUx4qqMqmVM/+u5q1AWSaVk0Ai5XQgM6w5
CFibc4azYQgRJFtzbtQxj1lHpldEbjy7qcR3gVs+n9ftIgd2XOzvctjtHe2n
r8eU8SnJL0i4MkC1zDG2VJZRkOyy5ybopxIcKBdW+xFpAWt0Z1ZXkOwu+89h
WS+NWr3iK0t1rKgaBQnXHpU7yJjpq9TqD01sfH+1A5lb3fDWrQSz/pNXkLDa
7BsOOdyz4svBOIIwg2KnadkFCTdlWnIPgbJht4upRJVNYbhDc2CE376B1X7k
8EcRKUmYaKdWlSeVUJvE0eHwi+z2rpVGHNKpihWhgqRaOrVyGkSUGVVn+SpV
mAIpGCI163YgfhLTWXf0OS0ySwoSIvXQN9CCzJA82u2RoEbId8JTz6l8yPno
+IA5960pd5qWW5BwUqYLTkRVCjJLn7FYuYp9OIOTynU8qgJM+5VCee1H8qCC
RIWmPSiUk5M0eZlO+LqqjS1MVayoUtOOtATb7DZ0+ZfKeLtsH7z8w6hN90ge
Yutx0HmSDrpgzX2e+8ktykIVEyTEZvL+jQEr7dbAzP/XPfNz2e4yYjs8Up99
SwVP0/IKkow7FEU990jmehi1DwZuO4LKkOneiVKu41ENYNqvFFjtRyS3UNDS
+ZfcDNPX8Ija3g/1BZ7q7l5mUw0rQiVrxtujf9hmt8UVLeMYwjoO6yPDc2dt
7rbTcSRvPzCz46LbH566wkz2PTLo/z4SuH7RTr/SYGzpHftrycnXwkGyi5U8
TcsqSPBHXgcakMJM3b6EurWumcGsNLXNYw8q7sKrkgQSmPYrAVb7kQ5vgcqN
vUdfnm550/PvkrcE2r0HKz2ZXHZIM4Ed+oPHrcvkz0JUw4p+DvTmsw6k6V4C
X38U9n/m7O9qt5gMRoutd8R9J7pMb9G7uMLbNVuQlFPwjj8LDCDmp7HbtyDg
vbYSgeFWY53Z8enMGs8zR2w9iXz9l1tfzy5X/FsiNpORr9zDXU1GIRtwbWN7
v8s7VSEpkrkAJO6s5GlaRkHCuh8MBlOvL1FOw72KwJ6SIDXEXwIZKtcAfcBy
wRWuJN2Lu48J0Ki7UVc+olw3GFIzXkV1/6u1WI5o3uktlCpYEZoRl68YEg7+
c+TGO1bS3jVY+y57J6cjM1P+q/3WtC3uvjGX2knFviADAdjxC1MKuo9YxYnl
nM0ZZ0/M1OmdF9BkBhnPzet0Wg0PN2ce8/LiSiWvZ2v18dzfA+Nu16CdmQRg
tPaOuNxfBEL/+mFFhhwIuuGnsqdpuQQJgSd83SbU8h/u8ye04HLnDEo4fD5Q
0QAyt9OgGm1pATUQ0n4ko1etrihfnuqyvyt/n8pXny4EepcQcNm6oApWhG7d
4jxoBJ68N2qn1K6pc3R6CblHd1OP/n9vQ6353U8u24wqiGF2EzPJHpLU3JiN
3uWFnoXR1i58Tie6ZrPe5n0su2YTNVyvXNBaaWW72sojSIiN+85mVOnWt45G
tDGR6jUn0yktST4Ib1RKA3LTZtRpSwuoALOuvKbbXyBfKjPiU0ivSNJFkttT
1U2gyUujqumlUwUrQvQq1uVfFvpnaTVyd6iJ2pxNZ91zLzh34e5q8F3Es13X
5vlRwd2LVZUpbRo7sTX3aSv9LpbfBgVuwEgPz/qR8HaJP0JNdnmJLgJRVJAg
Tn6FT9OVFyQEvnz/Klq+ZKhrGrqb1FSbdHzB193IuMKRexXpr0ukIqOt9cwv
lDU1A6hWWC2YDnT7n3DuqewgFWGZS2iSgKrd47ObYRXdyfpfERLRE+FUJ5a/
vZBRIyU8w4w8KHnS/ktcIWMUS2N/cEX0OzCOwybb1ajQszDSw5MxWaAASImT
MiZbSUGC+KmUPk1XWJDspuK+gSbUN9LQOjKpLTVCgTyYGaS1kWG+J6uQXKUn
GlAJRqOqwvGazCwtoc0Q0GQkVVuRZDfDMoeuagndryjT202k1aY7gmIN5yeK
lzu+CA/nIo8q9CvI52ZQ1l5kl2PmJizuLIz08OTzC6GhJZt3UQH7pqQgoT29
iit27rBaqV8vkXoUvNJjRrMzsOY+7wPNRGpYcLNcDtlH70nVTnRYFmsavjvh
pOdDQQLJfoEpSArEAjKeZOFZlKjLRZE4dRGypxb9Rjc46H9FiGbAuoV5z5CZ
Kdgv3fHi9yBqbdXoV0A8mzifT/MrfamsP0zNerqP5v5SrGceTSDhmx5Fm2yF
cj45ngP5WgEQ2xFnzjOr8Gl6dyP0PrMvB2/sjAueWox+7R6wMgqUMGPre765
5xXyMstUnoaEU3OXbbI5J+Kroi6bLP4av9BKLh8z2T+ZTm6jNVN8rj+gakAL
dQv97luzY6314pohIOeF2v6gSo62zEat4+gGB/2vCC2xESar0GR+nkZwdKmL
Wv0K8OWpkaacPamx/elBivcq9rYSk05bPsQp4XSJJJDwnCJRk61MBSWnONSA
NQxMip+QJQROAgmxmZy963EOnLU2YobaRuuZAdf4lEgrWQBia/0p1RQ2+WQh
9s9IeNI31m8tUOZsbB3yTkViC8kSLMQiM+Hgf3rGLr3dbma/hbFt4Eauv1z5
yFueRuBrD75Em+6SHGwf/Pzr6GKK536mlNj1i3YzZYWwo11jU4vZVedTWxVO
CQPUBKkZ5OiH7KQJ4fl1mXdE7I5cYw542Yg4mxXK3FMI/a+IPqFjB50zAvI+
UYtWMLuJBmmjpF6/AuLFnPtszk2TPuj9MbT4stg1p4+E97M2gsJ00hl8LLoU
Fkkg4UucQEy2hILrEtA2mmQxPhuJTAdve1x9rYVaVNaa7e9fG58IzUSY5vo5
n+UqfQ1oAsmXiWcznr5mDDO3vzvmC1LGd6zPglHd6d3/KKsBi+yNNzFjU4/z
y+n5irVnUao8jXi5eO+zfit7qBDWeOLc0B89t4PhyD9jC0+yd8hMKHDrptvZ
b7fky9MarP3uIEsxEivTI1ZM5cHxgMIgxYZ0HU1a9EZvph9qKXlKaBqJtIqD
ssmmOKqaVVtZdL8i9IQurCpzc3r4QD4IUnrY+vaC52T2leoOvCA25u+MtOZl
BnbE8aFn4t6DheTTldQONXJlYe7eVzdc55FjdYN14M+RZSmPCZJAwus6Q7LN
Kxv1q4yNLu/GRqJR5rN9Z811JpszML+B7Fuvlqd+T/mvxCQMy7VYFrWNVnvv
4MduXzDyw3JF+7MoXp6Gr8anbjq7jwn/krBGW/+ob3p+rfDPjz+LfjOzqNrg
HkAN6Jmb1Pnl5vUrQ2fJdotS86moLmoZeA62MpG9AJ007heC/leElHgcuBTm
7+vI7NfHY0OROVzq59jsbZGTWtr492TyCM85FYoATSDha4lGh7QEuqcEo74g
QbWugczDGfTPc+NlRMLXSdle7IQrui9KNtQrT9vbWvkxEvS5Lw/1Ot60MENa
WKP1lKN38LJ7PHAvWmEBBlQLaWUbdA/am7Jbi/FY1/B16Vtlpm8JhRppJDkX
jR6HMRVG/yuibwnswPC0AA8sOoaPz4Yic7jKnLRbOdKyZPYbnzubQ0hjsrR3
9Tup03C53UqRBBI+vxAS0lJ56qUMoC7ZEu1tdxa9ndlNSWQZlC7RR3kaACiA
ek2KXtMjLVTuXV9B9L8iJLjQ4owImam35O/K+5J5aoQRj1z1WdviIAkkfEoV
T/q6c8dUlaKo8oEWWJkvhopP86F9OdVveXVTngYACkAkvB2YIGtS+Y/OpulW
T262/leECNTmqzEB81kY1pbHhla1tS0OovF4B1kiIS3V8sxlA0kgOeL6V4lM
IyS4pGqLJPnRVXkaAMgP8TTQd0gNB2m+kLlapttXwYroUVnGDq+wQxiamVB3
IVS0WuU1w9oyDDOBLz+8H1vWa9IND2gCCZ/mRwY6MJ1s2yux72OS8mm1A9L+
t3SBFdriQMbZghpAb+VpACA7yIAkoV1eK8J6eNhCnRorWtuoJnpfEXInCG9o
gw5FKp2nivhSmAlLZIqFmIk5+gJJIOHzCyG+FKYhJr+6eh13tiERXmCFvFLG
Fm0aQI/laQAgN/m0dkN9mzumkCLJmyf1qy0qhN5XlBk9QOkFYeOQMiz67DkX
ScnJIMSi15Z9HbMzcDVY2+KgIS0epVp0HDAlVPQ+JQQpZ+ZJgUA8adWca6Tf
8jQAkBXkaHz4owh/pWclPjJ3GNRMtUW56H1F9OA503l/UrgsRapsSggSYj06
2p47DTK6xlGZrlZXtDpTBRCnB1/eeKbZcgZG8IvKvRFUgq1hhKdAMLKS9Nxg
kAe9l6cBgGzQp+OGTl9C/o0vfxismhOQ3lf0IuJskeQly8yYzhxnnZHCk0G2
k5MX893amY6CVwnvaYxu9FdloE6PNJ3exSJfLbE642yj20CgQ9+IJ/7ug8JK
sLULkgLBk0hDJH2O/BdRzcPaoDwNAIpB4IlxR41iTpJcYJ0ncqojdL0i9Nf/
ILwhMkJNLPp7Mv7kgo6OjBqpP263mbnHfzKNtkG5QKHSoAkkaQ71BQqNIMm0
ssea7Kfe4Pqa9uY9JzCBJdiaBZkfzTOukTG0i6/Nvp6B8jQAKEW+Il7+TBK9
p1tw0fWKaP9Y01BoWcrQriV/XwPG7XZFbCVCYz1m7JDj6v3lzZi7rZ65qW4l
fL0mURMh9QXD6FAWtuniZJJhUMhB9q5OE3Z8aPKnV/moWd5lhCf8fYd5CkJ1
wMuoqyUnykpXPqMSTnCplx6B8jQAKM1O3NNB9d4x9foSW/yvl0ousF7p5tjq
oecV7W6EP6BsQI156G9rEg3AbiruGyDbX2Mm2/DNyWlyvuq19+3mWszcMxZK
UK1Oia34DYcpM7jcNRH+e+DaeUsNaYirdUdFE0hqLMdbqNbcmPn0h56vyKF1
2a+oDhlen49tHbK77oTDd6/3t2CmHu+8rsM1aVIRp4Xr/CkAWnhSxUr1NZSn
AQAvBJ7wdVMmo2QT4zLJe2WFzW7TATpeEbFx39lMphtizR/PiA3WsN5q60nk
jnu4t4McimG02HpH3He+Z05mJ/C1WODqEDlrHmtsPXfJE16qVjXCTCA52Bt4
iq8/Cvs/y/Wox4yW9q4Bl3cqvs4Ya7uzHv/m+nCvLf0aY5N98PN7xScR6wda
kJSc8rS3EXovl1ehYMWfOkB5GgDwgi8Hh6hYf2O3b0EeY5FLL6+ejDXdriif
S1ljd/+7Outc1AMZPsKTOFH14ElfF78gofsPVEAeax4oTwMAARAvHlw9RZ7s
TF2euBx3e6YjAdYwOKXrxgoIOl1RXnxaBgKL+9leygIyuVKXmUWVhJ7zW7xq
FWk+gLU5Z6p+qh6UpwGAMPCfJoeOk5Gbpg+ni8/AkgpV71ZVs8X1uCJiZ97b
SYbnDjncsynY1SoNUr7KM7plX5BPDinSFY1IRUazbVgOOTwxGTPYtAOUpwGA
QPDFwICFzD90fD6XqqwmwVeiX9/6Jl5FRlB3KyLw5N0hMgcV1IhMoOWr+sss
koHc3JaCdfHZ3cawz25IKE8DAMFk/SRyaBJATYhU9KrNtM82f4XZiDibs3pE
d5lFMrE15ybvOqyhz79E5/ES+Fr0Zl8zpVVaBnwP99kNCeVpACAYfGl6tNNk
qGty3ofcqSph77Hv9KF9ufkrCJJAUtPtl61gTV8Q+PL9q45DaYlmdnxAGt+Z
Kb97sJ00tbXmrivBhY39+T1BeRoACGZ7OfrXW6GFfRHV3Q8Qy9Gvvrq3Xzd/
ZUASSKq6u5cE8NV48Iaz/4y1sdaANVrtvUNXxoOzyS34jgAAAACg0tBtOLFT
nnm9tcoDAAAAAKAqINb+MeY4UtPYMTj+AOJiAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
gKz8F/jeVh8=
    "], {{0, 114}, {731, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{455.4343749999997, Automatic},
  ImageSizeRaw->{731, 114},
  PlotRange->{{0, 731}, {0, 
   114}}]], "Input",ExpressionUUID->"68ec8702-ccb8-41d3-81d8-cdb012f4049a"]], \
"Subsection",
 CellChangeTimes->{
  3.7467908610581846`*^9, {3.7468324242091866`*^9, 
   3.746832424517336*^9}},ExpressionUUID->"96c6544a-2e17-410b-9870-\
eaf41f5a1b6b"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"Gt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"I", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "bb", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 
   3.746807033746698*^9, {3.746833158416533*^9, 3.7468331856485023`*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"1a686329-6bb0-48c4-ba20-87b30f7c4463"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"G", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, 3.746807034420087*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"feaaa5b1-f499-46a6-ac4c-6783af405ff4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuJfrvb/WlneOOqdNVFqA9INOzo02oG00rniMD7hN44y
LxnE+IF0y5y7DSC6Vnn7ChCtlMslVdn9xrEi4cUrEK2skfdlWs8bx3kGc5uX
A2ku//3JR/reOPJdDIg9DaTNFsqphi5/41hVuHlJIpBuKeF4mgyk5576lNcE
pF+EOj1ZA6RvJUiV3ALSB+Zqrilf9cYxbkWYYeemN47bneZ8vL/tjWNN7U7d
kzveOHawe/84B6QXquzXvAKkm+6qPFPZCbR3x11rXSC9TFDhux6Q3qx1YXkp
kC5on6BWBaQ3GCccrwbSfz7xGtQA6cJnhsUNQLrPxmH/eiD97fVEwTNAOqpE
vBREv5kRtfQckC6RcGm5AaSNZJ7MB9FzE4QevwPSv+ZdeP4VSAdsPrjdadcb
RwAO+LQy
  "],
 CellLabel->"Out[87]=",ExpressionUUID->"df88aa6d-b34b-4af2-82b5-65e3060bba80"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MG2eex627N/diXhwveYHEybLkF5GiCFm6RGgFL4gSWTLVVsiiqRBE
yUHUy5q0F9isglM1kNXW1SagTaCnjHZrZVVnr6Ps1a3ibnFbnBXmirvrKFip
s8GVCTiBBAhykAk2w+EZ/3nG+M/M+BnPjP37SInayB7PM3+e7/P8/v7bScvP
/+OfNBrNe/+y99fPewZb332358Kb/7r3Px2/eO9M7y9Onzr+i/863Xv63X8/
+c97//jO3h/93ueT/70LAAAAAAAAAAAAAAAAALiIr4V8XztuvH/W1ERoWHQt
5rPWG3+aCizHaNHH3VqZ/e+e9itTK3GMJwsAAAComPiyn/qor1WnKUi9odtG
+RYFqw/9MuA437InY4RxZPq5eO0CAAAAqoTttTnKatIXVhwUvXHgD97IFr8j
0/E1/6f9bcmtk65nbHoJdjsAAAC1TmYzwkIYOgau3brrmfU9CMz9bdbz5a3R
gY6m+lzx0Z2w3X24Hi+6d6E3Qu4bvQbmu7rT5NxL2OkAAADUOvTLOfJ0yrKm
bR8gJwPP81jR6Niij7pi1hFc7ak3dF+7G1zNs4WhNyM+ytZ9hP0C0forKgii
AwAAUPPEn0xajxOs6Wzwj76V4qYzOr4ya2ctZjnq0/XBTWrS6/MHAn6fd5Ii
P7QYMyY7Qmv6jZuvUQ4AAACoXjKiozthc/0jynM3Qm/Mu651G/aZ3fJCHOm+
9tV8NCHtQAAAAADls/MTdfIQsxn59VfhV4LD06KPvyEHjdp9Wx9O7AHpzmuC
AyrHTixy/xvnlx64EQAAyE8sTL3XPkgFy9iMJJ0+X/zeNnDKmIk60LaYLSM3
qW/vRzbBmyM3iTXvVRO7NiDeHJ97Jff5AACgBDAtR+Nr896v7ri+D9eURas2
R82fnUf2NxrT209tF7Ug9wkBQA0QfzY7cUpHvG2fV6ZTG9NyNBsboKl7yxHe
wXqOiqU2Ry2IxIPx5rqU7NSdoZa25T4hAKhq6NjzwJc280HmlWux+aJyn1A+
8CxH6U3vlQMZp0rde67VWlj81+aohbIVcX9kbtI2dVhv+Z6BfwcA8EPH1p+G
g37vpOP6UNcRxOGtVN3BsxxNrLreSx+F0J+7u1wTbpXaHDUAAEoh7rNpObG7
ho6L18khk9J1B9dyNPYjNdiuJQzm4T+XEySgMmpz1AAAKINEyHXVZhslP6Wc
bq//USS6N4XHI1Sv4nUHAAAAqBpAdwAAAIBKAroDAACgUuh45K/jvc11vc4V
uU9FCGXrTsI/euiAyXoHfAcAAAAVJBGd+0O3jtAQxy9NPVVVxFD5+51o0N6r
g5qWgJqg4+tBN3nptLGJIJpMZ6988s1jvmX3cAHNaoGyyIqOdfKJ2m42Djtb
ukEA0Xp5EqQHUDqJaJAabG3UmYc/nZye/e5mn35v4m9os81sVEZ6oFktUC5p
0dE09VEhtYnOLjb/Dv18esRIYJMeLMvR7fXglGP0AnsQY1f/8CffhqrfGCjr
qJOpYRFsPI9K8ULRK99eatW3Wv8SSXXie+kdbmbSCipQmQ2a1QLlQ8eXnP3M
Yql15N6aKpcX+OIK4iGqryn5+rZdnd0oZ6LDsRyNL02PnzEQe2/uDco9Peu5
Y+s6pMG+I6MT8UTZdx3LQVgqM+piJ5CTIYYFXUtHj2XoKkl961/YKHc6pZdc
5w7Xdd56vJ255lGfrYX5ofqj5EMJywhBs1oAB/TGjK2tYe9W15l//2MZBllZ
wRnPRq99ZzXU7b1Ruj4qXPxNKXKQ8pejbEUy3amJ2UySKf3aP3aEOYruzOcR
XPcKzzTbS0VwLE4rNupi5yCF7qDUN3X8auKLHyIxcfpAb/o+Oky8RQY3kX/7
yWFuZA5OHBr1S7UzhGa1ABaYhVPyZuvOOOY3S39eoeCNo05szF5lt/pmci4m
4gDlL0dZi5+u1x7kjiVCdbGjJPrwzPO7StKdSo662Glk7GyLocDfkg1Vbw51
5M6iyZnXZHVM+YMLxaxsoYBv1uv+X/v4lfMdhpxDEIZT10ruAvKc3qKz70Bd
nxMtFkQvO/tShYQOWlzP8F6PFNCsFsBDLExZmNWLrtMeVHP5Wtz5O/Sqd+Qo
8x6022ZXhc4LZS9HE2uey4Z8TlU6ZG/HOMzUQTnujIXgfZ9v2v25fbTflE+O
mHnjdtKw4guEkAn2RVTs3jBNZUct8Nw2PB8cyLkSjSPeLUFDjkcX/F/lts+r
N/ROeBYEdOJjJKZpwP0cPfKy05KSnTqLc1kCaYZmtQAe6O15Rw+ziiPayeC2
qve1+PNG09Y24Y6e8pejm9/bDjcYrN/t87XRrzyXGlLD7CCDYrZiAqDX/WMd
3PUqoe93LpWrLwVQyKgLsepKz+xpzI4FMVeCjq8/vGs7wYkDE+BDZ0qk5lTk
pkOOztQaIefBwwM0qwVwkXagazTHbL6Xcp9NmUhRr2B7iTrDzDQNbaM/8DdB
lr0cZX43f8HqzcB4euHfcMkjeAIQzD4LnHTdxBQ06vzst0Z2URHxh9uKTF/v
Qm13xPEh5yM++wh6PXjPt4Cq706QPJo6yoE+56IEFwia1QJYiC+7BhmjaqV8
tdIiTZ2c2P1xUyNzkbhGs2KUvxxdoLr0h23f5/k9+h/29oa0fLlW+Q9ELPSC
w8yZapuHvRItURQ06vxg1p3ddMRjQ/aAIlPnov5RY+oI9eehMxGgXJI2jbpq
2ezsSlafLbPl0dT1UEv81Lns5ehObP35et5Ip6ypp6Hd/o9KLBYyDn381zYH
JY06L/h1ZxfJm8tKj+BSIdl3WVM/4N4o95QAQCLETKfKRrK6oNmX+uiIV2iA
AQuu5Sjq5jg26pc6N5ChcrpTCDlGnRdJdGc3FU2BHlZYZCnaiTXHugsASiI7
lzYPeV7IfTZYkK4e9da8/e1UWsEb9nkR+RbYlqOIm6P+gntDwtTALPLrjhyj
zotUupMMnpy1taNOd8L08RzfTLoXnqHm1NcOXPGCnwRQKIlV1/mUY+/wR74q
eVAl7INAL1E9Kd0QYZPEtxxF3BxEN8XXJbfpJ890dyF0W96/4bjHt+aMaN1J
ZgL+edxq4fx2V/c79rnX/E48fRxRo5YC6XQHCZ7M7Hn45jVsuAdSLzNxYHha
vQl4QJWz88j+RiO7fJS2nkZFkbL/DhMXnVpx97sE2trwLUezbg4hN25n0fO7
X3a15BZv5FtzRpzu0E89V97Mzf1JVqh7/2PPorBHTtyopUBK3UFN3ynyh/bl
nlM2TlJjHPUjt4beCM34aqCOH6AKMiVHNHKmQuBH0r5vOxvuC+lF5UlHWMiC
HdtyFHVztNl8As118dXg55dac1Jx2sb8JXVQjO5kQiWzP6Uz/9YtPO+j3FHj
RVrd2XtUpob06B2qOzwyXaKUH7Ii0hwZ87/OfpoJ5pcu+BAABPHSZzuWelCP
ksFq2e1I3m80u+pufMP+iPdlw7gcLd/NkalNkUHb6QiV0AIRuvP676NHuAmW
+vPOJXGVTxTj3NmVXnd2173DLVy5LrHIocOOTiLvY8k8eDnB/AAgF5vTwwfY
J7WuefxBFT2UEusOurDkr9cYl6NY3BxIhAPfsQjWHXrLZzvI+UpjOxkQWYJJ
Oc6d3QroDuoKTGlt2/iDwpeOyRTLq1B0mOo5oB+agphqQAGgD7bcVgvMSKw7
u1sh+4n08fnaJ3EuR/G4OZCI7hQn7KGiOxHBuhMLkh2cbwi1TKIox7mzWwHd
Qa2yaYr5BDOVZjWadjuycaU3/WNtRHXk5QFVALKRl91qgRmpdQfN/eRhnkqC
cTmKy82BOKpSlAqxE6w7z1wW7nZHvDlXSc6d3YroTrZ4bPaCD3vXC3w6K/Fa
my9b5WA7aO/U6wcnxSWbAQBmEg/Gm9MToexWC8xIrju7W97h9JTAr/QixuUo
4uYoz2iPqCdLo9nxU7GhCNWdnYfkUY6ylZGyhG3UeKiA7mSaNGWpOzL69wLb
xWyMUOOwN7VrZapG17WOTK0ovMRmIi5RdVlAYSDF5KvMubP3uoWd/Yczc6lp
zCe8nXRJlpy96SgtXrtFfMtRxM3BlTDh5OoI99xKf76U7uwvJFr8+EXAOGos
VEJ30OVTmiIbxkzCqe7U+OSMd/KPw+aDRMt5R0CapmnltZSlY8uBqdujg0hd
UCa0fvyOT2z/O0D5IGafitbToOPRF5j70SdCrqu2NB8OoxVu0w+0tqXTMvTr
zIdsdl8hawVvUM9F+3igZEw0vuVo1s1R9oLhlWeogXOlMOtObrOAMvwyGEeN
hUroDr3lHWnM0R3irHOl8OjpjdA3nwxbOlu0DU3G00MTrsCaJH206Oh9e18z
Ic5qSr9a8Ez0FuzCQ2hNI1/MC2j/DqgHdAtfyptcFsnmVm7Hdaula58c8Gfv
UbR5Ck3O7Aygbeno4sHbxiYCyxSBOkdKmadY8CxHUTfH4SFPefWYhe5HhOpO
7udF903AOmosVEJ3dhOB8RxDm3yt7hBS9oSmPiokePcaX5zKaTaUF52FCldN
OiGQBrVaSNTEhNskvWz0vc4l/CdZBqhzpGHIw6tCJYblKFY3h2p0R2HOnd0K
6c5+Q6iUPY94sh1xntNpGlpH7u1ryVeKbGvs0tR13w6D06fKQA0s+DNGC/VS
LwduoqUSQI1IFfM44HVz7Js8S3S0kUt3lObc2ZVRd2Q2M9Krk4N6QnDX3eQ3
n05dQkRHa+ofdUz6ggtJQzodjy6H5jzU6Dst2U8UCd4DVAkSVKAhep0rOI+9
r3NiuRDalm7r7QcSxAaUBzrzNI54typyfnjdHEInT4G6s69PnFhPotKcO7sy
6k4ZsRkYiM6NmwlNq9WzIvBxR+pjEG0W8t5C/uCBnVj4rjXd/E7B/YNezbtu
2pTCTde8fA1BhIC+NDgfY/rlnP2sgaM5emP/NcfkTCAUYdp4xaPPF4K+rz/9
8CT3Y4fPuVTX+WeB6spcxV4qUoHJACkejmcDiA4Bv+7sm5vF+SawjxoHldGd
/b8iq+4whTVEdOmitx/f6mRWDkTL+U/9L4qePx1fcvaztelk7GNenHz3RUZk
XYrwB43PxNe0cU90yNOIx7De0HtjMrha4IJsr/lJTmtF9XVheO4eaEqfPT5v
L/0y6PxtX6tea/zV7ZyQg3jQbk43yMbToQ8dAsOhUX+R7YQw3UGDAVh6HAsF
/FkVHTUOalF3NoPkW4SI9h/xx47uZNIB37Ln2XLckoY8lQH95O65n2H1I5QB
8bNzd58o5LUoCuKlxeam3FpynkfKDh/qGrsXKeEWTGzMXkWcQHyaPisKJBUU
Wyz6TtT760y7Sa4JFCnsXNdF/ohF5tAngaH4ClOY7mwvOHr4HbzCo8ZBZXQH
SU/OIJvuMOUciU5HWNhbmr6DhosuXqLDkKoRpIDgPQAb6ISJJSo1EfVfN2UV
5FA3eZ+XO4Z+6uo/lPkav8R/5YBWacMl35wUdcS+TcfDVF9qe3i43xnGNPPs
L5VTdIUpTHf2pdubHQv572+FR42DmvPvsNZO4YtDtvws0THmXxfyRTYvG3Sn
msBsIKLX7o20ZgwqdYbBu6V2OtmvckwxijXn5gc1V+KqVPnKP5ruTKHrtQfZ
W7O95v+kj82zI44POR9hDLFAqpWyFN24CdIdNAiNeTAKhwRUetQYkE13ZKqJ
ylZTF1zIkbWY6czknMBsHHZtDLpTTaDe5LLvLL3qHUGqfBkue9YEBBxxQ57U
1XuOU8YE0yqU3p539CRX+HrT8GfTvlmvm7p5uZuJwdC1WibcIdx53Lkl1IpU
ABOoO7nFCoqExVZ81OUjm+4ctLieYf+dkrARBYIDzJjNDmH6eC4m9Aay9UBA
d6oJjLrDlrXMvBRHBt0CTWUrzl4kYl9Vj5kUurObDCWN+O6MXejtaNEma1YZ
3+4dtJFO7/yaNNaVfa0KiuRzCdCdfRa8En29KzzqsqmI7uQLK+BTlAk77N0U
6sRMrLov6jVHR7wiimGz+x2lxhUAYkB1p3CIER+SNfyz0QR1nbcebwt8xDir
YnXpDsdIqJJQxjzQS1QPZ2NSeNcpQHdyIuXqDtu+r/x0KSGV0J393je5Wpas
eoYOa+oszmUhzzgzOYgNQWSeH5UZ3oHi4Eo8yda6ZBC+2dnNmcrUpTuSpUFV
GHrZPYjcxiKmNt66k6tl5bR7UyaV0B00cCV9IWVpWcL2TBFW2ITeDky0aZqH
PC/E/CLTHr3q+rPUOLh054VnCAlYEpWAk/CPZgPaQHfkgY6Hb3ejMqG/6M5b
A42v7mz4R99AohXqDNbvBNfyUjiV0B1ml8GBZ5NB3DDG8GwddV4w3Wy5/dx5
wy5oFdBVFsAJqjtlmIs5fXiL+qMLklhxnkUmKHWZc9FeEqrWnT02H9vRDUpD
m20mjy+fl+5kk9NLqJiqqYDuIJ0ZU8i0bWTKYvMrup4hmeyj5fZz589Ln+2Y
2qKMgJJgiSvIMT6LK2DCTfFQWbttieIKZGL7kaMH2XoS7bbZfe5gProTmyPN
SNUKwjgy/bzK9jpJpNcdtIgii1zlGpixCoqjoze9Vw6IXUamSo++YZ9X0WQA
lAbplSled7hGgBLRSgXgBvGqzZxbXbqT7NLww0Tnwew91b93J8x165bUndxC
97wziFWH5LrzOuw4ya3EIsp/igNmrIIyo5moAJGF7lkjrb6HElgXAVA6aL0C
sbrDlYwS9fMLwE1aVJ05F9Ud2bui4IGO3ie7kV2P7jSJVnEsqjt09CE1eCx7
P4nmPnuVis6u9Lqz/WC8jRPLJioLBg/MWIW8nkkLvLjK4XRs7uNk5ROlV2uE
etQiQHVHbBoax7kjrrhofNmJZhaqzpwrRZk7+aFjP7nRjpBEW799JtXyvpDu
0JuRmVuDxmxEPWH4T3L2mdo3gMWQVnfoTd9H3JAC2TY7u+m2p7wrs7EWeDEF
uOiNGVtbgwqq00M9ajHgWKhzpiBRRd64uT8qNOei8t087BVYpFfRbK/NfY72
iiUM3ZdJp3fqBjfF9MiQ8wef65PLXUhXWe0xy/jXwfUyksJUgaS6ky7gnLn8
uj5Kzuab7CKTeIsM8olBYoxsItrCxkNUX5P8g+UD1KMWAxoSQBSvfF8Qju6I
2apwjWxyLufE8sxlOVjOFVA6yU7lX5LDva1aPm9YfVPHwKhjqvoVh0VC3UFK
cLPoLFRY1qdrb4nYvbcDJvSDk6VLDzBlqwU7dzKeQd0Zx3xVZRgDGdCsmYYh
jxjjIEd3RCQBMeH9GcVuJ4NCCx3IDlr3kjjrXKm6UOE0dGz1p7m/um6To0Nd
3G49WqNlZJT8k8vz90fPZfI9yIVUuoOW4GZRQiHuTEOckifDRrIJm1UQz2DL
L92qii0CBIFWRRP3vqBHEF7Ogg2VTH9fXAUnuUFnHpGbRrUhsN9oNSON7qQd
HBkaTWM+JcRmZF9Y4rh18klh6dnw2dqEOHx3YuFJm5m1G+jME34lDBaQiuSG
Jz3ti3NKcZLahO532LwwFtUmsyPKy21VVr2A7mTArzt0fGVmAg0m1DS0Wv/C
u6WI1MTClCUVbUI095H/t5L3xJj6NnzdnfEXc9T7ppQVV1GDBSQC9U2IK5WD
5u8IShBLh0qyj3Db1dkNVW4VEFuluJBRFQK6kwGz7iSiQWqwFd3p6E0jk8qa
h+NhZ3/mlSe0pku3fYs51tWdIHmUz5SSdB3etpoyXiwQnRoBrX4vbvZIGXIZ
BBRI5zSJk91hKh60wg+uJteKB3QnQ253oSLdVEtARx+7b5wxoC4doq3f8UCB
Fic66p9Ai1HsqY/x3Bg1HYxEGZlJzyoFzc47sedBr3NiwIjGTRzqnpjJv3sC
qg20hr/AyksZtgNkeyN7iPp+Fx8PDSctUXeanHup2qcNqfBD9JVRW1VN7Fvj
V0/WkkASG54PDmi4NI54twQ9zvHogv8rctDICRfc20e8T829wNJDML7+2Ov8
vW2gt6NFp9G2mC0j5Bd+ZIZPxAXP9nR87QdOZnGK+ibTO0PXbANGZkLoIAOs
EO0JzfpyZCHo97o/t//O2ns0N+tFd8I2tVgTLw/AgizYBLcRTJFY81w2pF6X
0rH9qOgQhrN2FYsON5hNZD0Q1bEZJN/iRlTzC6zFgBRTKP8fj60/jTAshgJ/
83knqfEBY57Ycq3J6pjyBUKRIoQCyW6q/2sfv3K+w5B7CG374K10im6ZxJ/5
bl1gTlJv7L/mmJz2zU4l9xnaBkPfrbnodjTwp2SeL3H80tRTwdqTk1kskoaW
frtvRUV1gAEcoDNn83hAnH+CXvePdbCvD2G67o8WOsr22txnafM1oTNfnYqo
/HnLlmsgDtpmVT4YLtlpNslC8L7PN723Wh3tN+VL0a43dH1w8/Zdz6yPO+O+
iOISAimnUH4nIHVyOqFtPWP7bHoeT+oTHY/cG+tiFni6nrHpJWQ3kYg+/h+L
vt5w8fo1c2pIItModrdW/HfQzGJh4zVeuDWT6xsCagPUxVNGA4L44lRq8ZPX
RBCPhr+nbCdTa7vkim5W/bZcestnS4dltAx71+U+H6zgmWbL6euUoTJTaCkk
0Z36JmOXZegqSbl9j1bwzcB7V+wvVnaBl9+OzfaeziCuwlXm1zYjvi8mLnY2
8ZQfwtAxMHZnNoxtTQKokHTwyR4H+pyLZTx+G/Oua92G+tQL1fHu8Cjp+Mw+
bhs6a0o/klpT/9if/VWyrUYqs4krxK1klKI7lZ1CqwJ65dtLKatC4RJnqVBn
ljabT5SJPed3YytBpzWnR10KbUtHt2XoGkl941+IgicH4NSUFuviyULHIvfd
jtHBU8amTMFQQtvSabFed7ir65HLXjfiwPA0FPWQArmmUBWT7aBE6M/dLVx2
CgmJEVFFLT/xCNWXWmGm4vrisVgVvfIAThBTm8p6rskJ0pDrmM1XTeVAFYOc
U6hKQTrGFg/ySRVbY2i342mbTS86+1LxfQLbYQO1CFKcs2aSUMoFEeu2iYDq
ysqpAFmnUHWCFp4q0Zb0lWcoFU+EL985Gxyr73UuYTkkUM3QT139qdhmnjk4
tU62IZe201HLU51UyDyFqhI0xL2Er5ZtpsMaMMW0L8kDWt/+2KhfFT3IAHlB
OkzVnaGWaqOIvXiQy6W/6K5pw45EyDuFqhO29UBqh3jSEX5d+KNbIfsJ3JZJ
puEOWDsBQWT7rzW2kwEQnmLQy+7BI+zusG38AVwr/Mg8haoRtGJVySxmRCNw
5Tujt0x0JiBQcyBreKW3NZcZeolKOR5055wRkB3syD2FqhK033qpLOatWdvB
lEZgCgBAc9kwhMUCNUR2Ga/vofg1Ua9FMu0bYGMoEfJOoSplydmbSWMqER2E
pOwdtLie4fh1tIEjpFABgqDj4dvddbDlKQJ6iX7jVWfvBsUj7xSqTjidsIoX
HkGybMopUVLw12vbywaIIRO8Cov5fGS3hK1WzwoIsyTIO4WqFLS+RInOv4hl
ktOqgI6vPJwJrIjI80TUf48exwLMHIBAtoP2TiYbQsVtcSQiseH9DeMCU213
VFUg6xSqVtDewcX9XIiscx0xyR6OonrmojUexXYuBmodOh6m+nREqSTxmiPT
9V693VHVgZxTqHpZoLrSal205ym94DCnPsdtuZW8mI1HyYeCQzPokKMzW8uv
xi47gJH4itvKtNRp6qNCsHhJQq/O2tqTs2FdF/ljrbbXrBDyTaEqBgnGKHLR
kJYlOdmdjK3MOOoX/GzTEao7W4m6xlN3gfKgXz6YeDu5lNT12oMwzWaEuGXQ
tQBCLDGyTaFqhn7tH2Ndj5qDNl/+nqdbkcnLrRmNIM46VzIS8TrsOEkcGfO/
Fmzg4Dp3oFYhUB7xJ5PW40lzW+uH02u1vISht+cdPUnD46Fu8r4C+91XHbJN
oeqGXnCeYb1deTWXvWKNx7vMhv2+s2TdJ73IUKL4E/fIm8kNqrZ98PYDeEGA
cokvuAZbkr1Bu/8wV7CLaHWT6f8ColNB5JpC1Q0dX3L2J4vaEboexzxSq5aO
hT3jZwzEoe6JmZXNANneyFy1TARgLExZdFDxCVAOqV1PjUoPHfVPmHUgOhUH
plBxJKJBimklT+jMw59OTvu8k9TND7oM9YThzLgnzLQ0pWPBW91M4JCua/Su
96+um+da6o5bJ5+AARlQEPGl6bEenaah1TZTUxbz3Z2fqJOHNMSxQeohiE7F
gSlUJHRs0fcFOWzpbNESGm2L2TJCfvFDJIYGWdDxtYBrwnra2EQQTaazV+ze
pVq+YoBS2Vrxf33HE6qtfB56xf/ll/dCG6A5cgFTKAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAICd/wfI5u45
    "], {{0, 107}, {552, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{389.3125, Automatic},
  ImageSizeRaw->{552, 107},
  PlotRange->{{0, 552}, {0, 
   107}}]], "Input",ExpressionUUID->"f5cd373a-6cd7-4016-bea7-fd5830949c10"]], \
"Subsection",
 CellChangeTimes->{
  3.7467908910396624`*^9, {3.7468324454768667`*^9, 
   3.7468324463204355`*^9}},ExpressionUUID->"6c76be59-4fb8-4dae-bd77-\
585f1e343675"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"\[CurlyPhi]", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"sigma", "[", "1", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "aa", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 
   3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 
   3.7468070357928214`*^9, {3.7468332178827024`*^9, 3.746833221181451*^9}, {
   3.74683326704038*^9, 3.7468333082124023`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"9a116054-b4bd-4cfc-910a-991aa7e6a172"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"\[CurlyPhi]", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 
   3.7468070361321363`*^9, {3.746833379249485*^9, 3.746833404789989*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"b3fefb38-da91-44fb-a713-efd5682625db"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmIWG4d/rSxvHHsnmyq1AemcRZ0a7UC65m5pGJ/wG8cD
D5jE+IH0veSHDSB61b8dK0D0mTvcUpXdbxyl41++AtE69vlfpvW8cVzycF7z
ciD9ZdqB5CN9bxyjLwbGngbScooKqqHL3zj+q92yJBFInznP+TQZSP/K/ZLX
BKT7jjo/WQOkDz2QLrkFpNfM1VpTvuqNI4tGhGHnpjeOYVfmfry/7Y1j1N/d
uid3vHE8Os/nxzkgHbHkgOYVID3trtozlZ1vHD+Z37fWBdJOLUrf9YD03FUX
l5cC6cD2SWpVQLrZOPl4NZCO6RQwqAHSs0yNihuAdNU2x/3rgfQjlcmCZ4D0
NDXJUhB9Xz1m6TkgHazs3nIDSM949Ww+iO5JEH78DmSf3MXnX4G0Tu3h7U67
3jgCAGHxuK8=
  "],
 CellLabel->"Out[89]=",ExpressionUUID->"9140a016-5112-47d1-b611-5b0f2989e1fa"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnV1oW2f+58XuXuzFuVhd+iLgRQh0EQjGCNYmFPnCIcEglxYj3AYhh2bt
MJuxM93YbYnd0tgprcqkMpso3Y1oIzITZf49dKZqidpaba0OVqZWpwqxaJXG
LnJiNbZjO0Yxciz5eK2jt+fo9bw85+gc6feBGTpTWTp69Lz8vs/v7b+fGHzh
f/4nlUr16n/d/68X+kY6/vSnvtdf/G/7/6Pnj6+e6v/jyVeO/fF/n+w/+af/
ceI/7/+fr+//x/hfVKrUP+8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAADUAYn1hcDXrstvnTa2Eqo0WoPp9Njlv02HluMU
7/fdXpn9v33dF6ZXEhgfFgAAAAAAAKhbwC4FcJFYDpLvD3RoVWVp0lusZOAh
53lFPQm5zhr2JyjRNTGzyn9WAgAAAAAAAI0A2KUANnbW58gxo678XELRdQ1/
7I9us3tnKrEevDHUmZLh2r7JmSVQzgAAAAAAAEB5wC4F8JETtmkIfc/wB9dv
+WYDd0Nz/571fXHdNtzT2lQ4rbQvW2/9vJGoqIOpzQXv5X49/bfak465J6Ca
AQAAAAAAgLKAXQpghHoy5ziZ8QtquocdU6HVEj5AKv4wQF4waQnmrGrSWz64
FV4rIYeprWiAtFra039AdLxBhmE6AQAAAAAAAOVRrl2aWJ/3f/mp54dILIn3
jQH+JB5MjR0j0o6/kb8EVio7/qjEyqwz7e8rmFfmt6+SU/5AMBQKBvxTpOO9
wa6cw5HQGN/1snUpAgAAAAAAAA2Jcu3S/JOr1C+5IruY3x7gQ+5H0b5s9fwa
Y6lsqc15zwcWfZHTsCREu+WDL+dB2wIAAAAAAAAVULBdSm35LxzMfYr6Vc8a
mL61Zvc38kQLLWzf+TLylHPJitj9bxwjXZoiGZ1H1zXs8JZ0IAIAAAAAAACK
JBmL/OD5lCRdDpt1n/PD/RazubfnxLXQMwHhYMq2S5NrnlfVWTWlO3NrGRI2
KrEbj975xv2FT1yZEI+Qr3aPkGEBwjYVJPn5R9bhV7pyeWEag2lw4ir57Z3o
FvzIAAAADQOOkwui3AFAASy5+0uVRDviCAsK2VK4XRr/hRzp1hB60/jfhXyF
BiC57r9oTGtS4kX73NNaPw8AAAAgLSmD3+2wjvT3GDTZw7rHMjj6wcduf3g1
LsP4bxwnF0S5A4AyoBKxx9EU88GbI/pswNZh+12w74Hq7N5zPt+clccaM7lY
6wcCAAAApIJ6uvj9R8OpzFlCY+gdHH3Hmg4OMXdocmHmrb2j129HZaV3MJxc
EOUOAIqD2vZPZFd+26hvrdbPAyiB5F374Wygn/oUubRT6wcCAADAROLR7JVX
tMRx5zwUYyxFYmlmsk+rOmAY/H/e0DKzrOpufHXulvXlbKdwmdW0xHByQZQ7
ACiOeNjRA7cTAEe2o973Ta2a1p6x64FHkM4PAEA9QMVXQ19YTYfoE9FgDcRq
/UDyg3py98pxNXF0hPy5fMWh7ejU+Y5cxq3urHtJJmIHx8kFUe4AoCyoBVdv
1tvc7VyA2wkAAACgcaDiG79HwkH/lOvSqLkdKYgDSqcYais42Um09LnuVXGH
UBvByZ5853Djh3MlWuoBAACIz5pnUA1JOgAAAEBjkQhYNSoEQt9z7pJj1AhK
pyxUhOzTEd2O8E512UKtTY3o8n6dPjICUgcAAMmhnvrePJDd1cf9G7V+HgAA
AACQguSC56LVanPcIN1ef/BeNJbYVz9Rsh+UTjmoiKuXoLNvOvonXIGVRGXt
suYbbcvryF4XSB0AACQHSdJpet27KacaKVKwsxGedtleP9nVShCtXeah8Wvf
LkDYLQAAQIMCSqcCu5ve15H23m3D3uWKr0+uuE/nowGJ0+4VOF4BAJAWKkJa
MiVSCAsZbaj7lsTSjP2UntB1DV8mvTOzvk+t5pbUOHScn5JPoRgAAABAOmqu
dKhE9J/2/sPqfveK5J9dDXRwUmisgcpJ/cz4wKO2YPn+NcmgreWgcexTyPHn
OAeSG4G/Wsti9yzExX9gQBHgmCpKXKeb3uHMBU3TEcfPDeTRSXf+0r5yZTZX
fYV6FpxspzWf9tRnjSX6AAAAgBS1VTrJ2NzHFi2hIo69Of27DE+hZMh+OK9c
Dg64H1Z+SKbSqTyesbCzXyu3qtQ1gOscKJSfTMAvCeTAMlUUt06p7YD1UOY7
dloDm7V+HqmgVmcmughtvzPM/FmjpDnj3xogo1A4uQAqsRH2Ot5MR/oZT1+4
9s398iVGAQAAlEgNlU7exB2beiDTE4h6Muc8rU9FpOmME1PRKnk6BdFufa7F
igXb9t/ccVKLObJC+MklZZQ7jzkASgdgCaapIso6FY+iJB1qK3rnK6d1JLWi
VU2tXa+M2G5Oh9dkuuXyJLnuO68nuiZmVgt2O2rB2Q2bQ2mSsTA50tGsNY3f
mJqZ/e7qQKqizoFO6+1NEDsAANQPtVI6WRNX1TpALsj8zKXiG4822NSMRmyM
fQ5ZA9vV/ih9D4nNiBJ8ckka5c5vDuRmbD/c0AI8yDpeuWx3mNepmDCSdD6J
LM86hzqJVJlN+/6KDsxOu+1DhtQ3OTzg+Fe1EivKYesHa9sB/dh364VfCC1D
1+MISxLamurjEMXGakykbY5a+fbNDl3H2FfZG7wn/nE6hIF40T5XPu4a91Mk
Yo9xDNPjWN1MZgAAMFMTpUMlltxDtBHeMfF90dmkWNBufSp1m/WHLTZ/lVgg
B1pTx0vnxdlNQa4ToSeXpFHuvOcAKB1AEHyUzh7OdSou+SQdtf7k0En9Aa3J
6plHrzqerUy/Q7c51pquBAWFKlHJRFLwpoDhTXaWyFNq9SlyqdiHvhWyZ106
B970PZXksCls54AFraGnb3D0ooP8Nri4iWHjo5Y8Z9rUvdfv5xsoxAJWA/1Z
0qR37W7OvNNGVP7WnCFau473D0/Yb04Ffl2NN1COGgAA5amB0qE2b1s7U9ds
atNHv9RPe01qJ3SlM7/hvuQIsxI6qb9c/25Mr06piQEywvtiSuDJJW2Uu4A5
AEoHEARPpYNrnYoLmqSjSl0jjLrni0NP6TZh9KJ+3hYUkMiDx6QXvpAXSbOu
9M0S9auzO+PSUQ961oR9DFtEUTooTa09b1z5/Mcof0ue2gq831ZwSFG/uUzN
9PsTLbag+GKeWapUBIjW3nMOb3ijStNvAADqHcmVDm2Qpz5Ne8o1z1YLKABq
2TvSnh3JA522H7l8t+Tm7MXO9C2rY45XgIXAk0vaKHdBcwCUDiAI3koHxzoV
GzSAltD2ueZLtzzeWXT1pV/UNORZ4y3a5KJ0duMbqxslzf41z6A6syd3O3+V
SJ3mo9ceLoT+HfBPkVdHe7TFRr3GOOaaDoYXKwVlLYQCs37vP5z2C2d79AVv
Qehf+eDWzxs8RDf10D1wUD3gXkb+lFp2D2TG6tCg5xHG8ShLIraKfs2pv4yb
DhWMEdHx+o3pnyqPUYrFcDAw4/3MaRs2tRIFo3TKPrMERwUAKITtqP/audR2
R2i6zpFhLGanxEonHiEH6SByba8zXEdXLbRSyI4jH18VteafOELvy93WWe6m
h8CTS9Iod4FzAJQOIAgBSkfwOhUbJElHpT/vWy97vZHXKOpXPWt87++ZCSmL
4TuBtLU5ZCwlgJr05rev3rzlmw0EQguSZFig21fFmv+ik9z0vX2wYDyaJ/xV
EzkZJGKLwS8dI10agjGq/Vd8i9zC8uijoXXYu4q++bI7KwrVg+7l2mytRdL5
qDXwhON77MYXp+39h5lyp8XiuAM15QBA9iTXZ97rQFYv8bxzHkMUqpRKh9qZ
d/XRV1tEtyNc+rJRkWTDWujfhW/Ocu5NeCQCCDu5pIxyFz4HQOkAghCkdISt
U9FBknTabT89K/9CxKQUYdunNoKTPQU367oh95LUIX/I9pUuQ1dD8t6lLCbX
Ip/xoBIbP9+yvqxF30rbN8nBbZFc87yqLlC4SJJpwY2ZhBTFs/E+dNI5p4zh
NrzmhX5KACBvdu85n29mLNyqbSxZIaHSyab08rqokTH57yWwNBOtOOj9nWvw
m7CTS8IodwxzAJQOIAiBSkfAOhWdVJvTzGbeNuqrsF7Revi6fvcS9icpupzX
mMlF7J9SBWT7Iixkjc3c4kg/Mxnl/3bb0ZlLZjQijjg26r7H0m1BbYS/Dyyi
HvrdsONI5o2qt40TjTXfaBs6QkIOnVwqaB7dOS9v9yUAABJQtE8Sva4Ihv1I
MqWTWPaMpJNg66pXNbU2a+0m0t/LdHFaYAXa+B27sZl+Mw4FDfaEnlySRblj
mQOgdABBCFY6/NepyGwvOF/O2oiVY9KQV4qjQahFl4lxXh0e90t+u5XfvqQp
JlYRzEpnL9tTADHm+XemiwVtXZk3aTrLP5pRIMm79sOo30vgoZNc85xtQgdc
1dRpv1tHMfMAUHcU+HSwRYlLpXRSmSDpTayOHDrZloL7e7JhyBXC0F4zd12s
UveRS/x/YCwnF+4odzxzAJQOIAgMSgfbOsXLI89gNqG727lQ6alWvcOt2W1f
nPTzXM1GCQ6X0qDbV6c1IKDEHBbwK509pCVZXuy8Of075/mY35lVTcPeWo0U
Uv0mM4ntIWHXCPlgziyH7SHw6gCAfEnGQn8b6dLRFSbHrgceYTLypFE68jQM
BLK95D5LeyhazJPfR3GFoOcPnSMTfr5iFs/JhTfKHdccAKUDCAKH0sG0TvHy
1DeaDTU9bL9byaBjXJ6Lk6pfe6UjpySdPZGUzl5BMZwUnAtaUlv+C9lqCQXJ
nlJCx2CjX0R4ZigSvpilz7UIXh0AaDQkUTp5q+DwqO+xKB8hNdvRqfOpAhHE
sTHPb1ibAm3PO4+nL+n4Fp3AdHLhjXLHNgdA6QCCwKN0MKxTzCRD9sPsVj0V
JS05P4BIKqDmSkdWSTp74ikdNII6A2H8cI7DmfTYN5qdOAcv+LdqNVI4k3Sy
IF7OWs1DAABqjwRKBwmXbXs/ULONFCNZmaM96Qg+xm5tU0tkX+Zui1+UF6aT
C2eUO8Y5AEoHEAQmpSN8neIFqVtVpckvWo6gvArYCjpOWcwIlsG3Lru+X2AZ
o8tb6VBb0cDf7WODjM82W/7gnKtQSq4EskrS2RNT6TCLf9JwKeCfD/EiDo7P
1CzrDHOSTppF0lww6KB0AKABEV/p5DOM5HHiCCUjc4iON8jwk3JbMRX1fWj9
yBfl5Sinm+NkDmkeff3wnFxYo9xxzgFQOoAgcCkdoesUM0+DtqOZ9VqlTzB6
ea7pdZVJ6Nl96Ps/r5kNjGLGKvblJfkpHep334UXC3vxEK3G02996HvIZd+Q
WZLOnrhKB40NzlC6a0CJx8o3I1B12YLIb0RtLtwOsBW2gsGfpLPP7s+OIwWJ
Ori6wgEAoCDEVjrUs+Bke/1sMmmZQ2iM73orHff0Ocu/JR9y6UqccEU43WXi
OrkwRrnjnQOgdABBYFM6gtYpdmIBq4GVCb01M34wG+tUte5uYi382ZsdBa1x
OieDVd2yfJROrjZj/qO0pj97IzyyNZDtS0hrVIyIq3T29janR3Xo76Rum5jZ
rDpwiFpXtU8Gn+X/gO7RJlnFPBGSdPZK9TDC0xUOAABlIbbSeRKwZm8ajzjC
yvboZGSO1vLxXBW9EA87egSVeclv0c3PO+9xGDZcJxfOKHe8cwCUDiAIfEpH
wDrFT17pVOy0trvpeyurJpq7HSEW9/7xCDnIdO2U9wTl4KF0nv1ka2caprqz
7iVedfvRVPQqZeikQmyls7fhHzcw3p+F+qYirl6i5ASmb8ykE4mFSTo4UquK
q0zXsrIcAAC1Q2Slk78/rFYOSO4kN2cvdhIHOsZuRUq2nkGhz1mi373C+9NQ
wcJFHWA7uTBGuWOeA6B0AEHgVDp816kI5HfySkqHipB9GaFDdF6c3WS3HJFa
jmy/LGelQ20HrMzscZZCrBT57Us2547oSgctRJPZuqu1j0E8KQWyKDVPDupG
pyXSBYVJOjgC3ZGpnpuE4/4NLM8LAICiEFXpoHuvPIKleZJuW9Bisn5brZr0
bnzjUWRm0kgQVYLlq4C29mMf8YXr5MIY5Y59DoDSAQSBU+nwXKdikFcKzeP+
Mo4QaivwfubqnFtHNqQ/V4aXnQsVvS2clQ7tB0fhHxCIbl9toz7BFbywILrS
KdU+pkpFGiTikeH5oraCk52EdHU2ipJ0hJ8UyU3/u23MwVBbbkZwNYMAAEBJ
iKp0EH+6HDoa8KSoOxsrdP3uJSGfuht2HMm8FYtYkQy4Ti6MUe7Y5wAoHUAQ
WJUOv3UqDjnnaZl4LSoWmDQ204/aYnGGuKgyRrk2mmrl6zkrnaKCwPx9ZPJL
0tmTROlQv7lMzczPqOzFyKtLhh9wJ+zs1elGpqQqslGUpCP8pIjfsRuZQ6Hu
c96vWWE5AABqiphKB3FJy6KjAR/4yRwVhn582/7x7FatHnAvsxo9TCcXxih3
/HMAlA4gCLxKh9c6FYmtsOOl1FZV0huSWPSMGOjHbLE47sQ4Pici6NI0m1y/
VXoPrkqnqEwW/5QKGSbp7EmidPae+McPMz9D3W77qbxjLF8rJu8HTDyYGjum
7piYXpFsd8WdpEOtzkx0Mc9sw4hnEU4LAJArVCIh6pWUiEoHcUnLJliaG9TO
vKuPj8zZ36xPu1cEfuMld382zJjtHRemkwtflLsIcwCUDiAIzEqHzzoVjfic
w6Td3310Q+6lfKAOlVgP3hjqpEXQ0RHyZ64yJ0Whcqlc94C70ikSAlXevwIy
TNLZk0bpoKd5lsqusVzXUe0r9qnb/qm/jJsOEYazrlDZBgr4wZukQz2Zc5xk
FtDgI+0BABCdxFrYe228/0hma9R0mEcd3vAafsMuEXEP5a5Tmo2TAXwbAuqS
rhbqgBkqEXsc5cRqrNTYljo4WCIsS4cGDVxn3VwAw8mFMcpdjDmAQelQ8eXQ
9N8uj/3B2Jq7RtYazK/ZXNPhDX4tkJKJZJ0fpXUzaLiVDq91KhZUYuX2FUvL
vrmot7x7Y2omMDvtdoz2pK5rmvT9l70L1QsPl+apbzS7KWQOJbxKp7AgMG9z
F624xSyzX1ukUDrUtn+iueAkqnrnRm0ufHNtfLDXoDnQ2nVy9IontM6zDgQ/
cCbpJB4HC2QOcWzM81u8zvdmAFAeVOyuK3X/Rmg6To5dvnbj6ttmfVNmzU49
ECR2kguei9Ys740Pv9LVWpDBSGgMvYOj7+ReZHUG+BYrQT3p1dJXhZKILQa9
rktjg+aib8QeQmO0+qRz2VcFjY2vFiuCIvTkwhjlLsYcEKZ09gfHe7lfX36S
aF4c//weN71PLbpPtSo2PpMF9TVouJUO33UqHqmLsuvW9PZOtHaZB8cu3/Te
iQqy97j6XLgqncLXa8zkYtkXU0/C7j8PdOg0XW/cLLjDSYSdpsyDqvvIpdr/
GFmkUDp7yZC9IHxNrIbg2ChK0uF56CCOywz7B/rE5/N8pT0AAKJBxe44LC2p
GINP7q5nwg/Qgjkm+5yAXSu92WoMPWYWHO9qJQTsxmiwtHjtuqitaIC0Wtp5
RZgVI7SMAF7Q2PgDoz5haT+swRjlLsoc4K90qNjP5MhRFlOFU7RDenkKqIgr
b+pv0HArnRqtU4mRkdLZjfnf0Wdfxyzmj/QeVZsdv8jJwpdE6RQHGVbRjLWn
MEmHx6FDxR8GyAsmNM5c88LYzX+vQKU1AJAh1JLnTFsJ3w1SPbLWSa+sQaMd
ROk0QSVWZp2MOxzhyCnaYY8Z0SFZai3GKHdR5gA/pUMlot9aTYdUbGkdIBdY
vXu6a0PVXvOKpD4HDbvSqc06lZgiQ1096KkU2Cqi0mHk3SOFC6hEhBzImLtt
Q+6IfNzzKWqmdOSUrFRMYZIOl6dNxKJhv9uRDXqhIfQn3rvBN54WAADR2Ym6
z2hVWpNjrrD+54q7P2fQ1zzplR1o8K2gHpql2Y7OXDLzqxVQGkJjsIzdvCuv
vEX0cGye8G9L8HA4o9zFmQN8lA61/v1EBzPNIIPW0PWcptS/UGkHyUjVQrxp
30TVDn2KpF4HDb/SqcE6lRyuhjpHpUMtukyM11dI63satB3Nzrd+Zzj9tjvr
wWsD2TDvUTfHWEoJqJnSEVDbQXyKknSau0YdZCVuOGxWq/X8cH+PQZMzAPaP
b/OIzeUNLsbAjyMdT+c9V61y4apnvj7d6XUGtTY1oiMI44dzReHUzAqfyig5
he7rmHda6smc87SeoXJ0XUMfuKZuhxaiG/Hd1F3P6mI48PWN904wX9Z2xiOj
wG0WLJJmDf7fXaood3HmAHels3PP1deCHPzGodSZuLCSr0KxG994GA54rp23
IBOGqF6XO+2bUJ8il+pO6NTvoOFXOiKtU3mBfkcarEqnSAdUeH2uJKbOOP7J
TGDW7yWvZiahtmPwCv+qC6IijdIp/hRZK52iJB1eEK1dx/tHrA7yG1A6UlJq
stUQGc9zIMf2vPM4oWof8RbHpu2bdgOIwa6IkxStWnag2/krtt2nsIZkqqDQ
VNmqdDvrQQejG07b+4FKPaPlxqp3uDX76NgSqKWKchdpDnBVOrE5uykzA4jO
waveioENydjClM2ctfCJ4875ClUU0r4JdZv1h7rrSFfPgyaC0hFjncoN9DvS
VC4vyU3poPUe0/S5FitMud14NPDp5Oupe/28oev2z6/L92gEpVOCwiSdKiGR
DBKx1ehi+Cef23HenE/UJfQnrGQgGldA3IvioR7cOvMc1vQBARDPnbn1QEG2
XYOy9YO1Ta3qvBLaKfqtqIfugYP5H1QZ0RFI/S6cGZHbS+6zuvxYtJgnv49W
ucNJbs5eRJJ5Dg64H8p/+LLEAlZD9slxVWmWLMpdpDnASelQ8bkPjfR3Ijre
IMPsSm3THYjoP6pokNfaNyEadT5oIigdMdap3ECXM03lGiPclM7OoquPw5sr
EWmUDtLHNod8lU5hkg7fCzFqK+p3DKDZOoZXnYFHMv3WANCg7G763tKpNL2u
Esms1LJ7ANkM+HeOlhT06BfYkyVHMha8ZMxrFta1nqjfPUP5OBzFlHRIsb3g
fDl3XmESC5JFuYsxB/a4KZ2dsLM35QAkOs5PRbnUuE4skAP0DbbuLV/ptLja
+ybEot4HTQSlI8Y6lRtoMe00FevGc1M6jOuXFCbXomJ2aXZAnk4RRUk6QtpR
UYnorRE9YirtH2S3fquaNAgAgFTQgQHECVfkWdG/Siy70Y5qh0d9j2vwgJzB
H87BzI9W60duVfPm5P+UERqhpNtCNABMWOfoPJJFuYsU0sNe6STXvOdSHkDd
WfcS51Y+1PKtMzqi7BU9tewdaa9Hh079D5oISkeMdSo7qIirlxGqUtF7xUnp
oOXo6e1d1uXC+FEzpSPbCVmUpCP0aE5u+t9lBMMRx96c/l0phz0A1Dnbs9ZD
ROkyvNSCqxfZHw9e8CsjzQRNX8VhUVBr/gmkKoP+vG+dw0nILOzT4wgr5aYH
taAwXs1JE+WOew5kYK10du85n29Wlc59Y8POEnlKXcaLujvvfJ4gdKPTSnCw
cqEBBk1kpSPfK3Sh7P7sOIJ6ddTttp+K7+YycFI6aJlu+sXjfr4Nq2VLzZTO
oUHPI+yfgwMhSTplSAfHouhGPMv1uRwBQGHEfrB1d/3hs9+KhQ5tG7A7WUpR
uOcJhvUn47Vyqa3gJJJrw90MQ8t0KyllWNEWVG2VDvUsONkusILc1sz4QaJU
XfcnAetRFfGSI1xnkWsNMWigdPgSDzt6GOdBhSZZHJROUVycYi70uCCJ0ilV
kEBISJiY4ErSYVAcY8nZagIAuUD97rvwYo3r22levOAT2zH6NGR/AfnIF+wh
bgXDsX9p1p+MWrmVq+iwgHlRo+69fr+4bkNlGHeGClI6jLg7pVlQWOdAHpZK
J22VCbwcpo1zVac1wPBCUEtknxpDFW750RCDJoLSUfQ65UD6R0Qo7x/noHQK
qrrVY+7bnjRKp9jOl28DPqxJOgiMW02aQ9aAAoo4AUAR8qjjLfqJ9uwnW3v+
XCGed85z3LGwf2XWn4yxwUTmnjkLr7gaxrGrIKUjZlsi0RGpyQhLpZMqvEB0
TgYFXQ6n515BoHv6/qEeA2waY9BEUDqKXqdcSGda5Sl/Yc5a6RSqp9L5qspH
CqWDVsbIDqeFjMrRzMeepJOlhHGooHh1AEBoCJ8OteW/gFSXLl2ZrTLYvzTr
T8Zo5T72jSJleXg1xEkGbUgTRFA60lBbpYOJp77RA8wA8s3pUR1BdDvCXB2L
jYO8Bw2UjgCoROSmBbVQdee8a6VSJtkqnc2gDQnQVqn1Y9+t136OiIAUSqcw
84Wf2SAJIiTppCnMJlPYiQ8ADQbTwlcPupWUWIdaucK80pve4fy+xS/mNrni
Po0cphWLo8oLxsWX0iwofHOAgbRKZ2/J3a9DmiSmM+51fWRElvaDTJD1oImg
dBS9Trmydd+JOmEOdFpvlyjXyErpUDv3r/ey0U11gARKpzDzRcYOMlGSdGhK
+HRA6QCATKHWPEPIzUTTkGdNDlYCW3BloxcEHnfZgjzeitmsQa5xy6VQdKZz
rWuv4YFumEicdq/QBli6NFnZfjFAGlkPGlQkEMrOPVcf4iQnuq2zRacTG6UT
n3OYtMj7dE3MrCrplOOE+EqnKPNFFmlxJRErSWevuI4f3pUOAABGCtroyCK+
nQv0pS6GfYbp4+ZXk4fpzpZr3HJJFG1B4ZoDBUisdNIOwfRBLIvGl0pA1oMG
Skc41OaPV3oP5Xdm3aufRphZFlWVTuLB1NgxxNXOuhO0QhFd6TyLuE4wc/F5
14oXG9GSdAqzetNHfvbKBQAAWVHQRodXckpNiQWsBgxWLlOk8AvlZTa8k20b
tZKgFpTieq9jmgOFSKx00hbK4XH/k0xAKXHcOa+U6MeaIedBE1npKG6d8oSK
3XFYEM+O9qQj+Di/ICsqHSr2MzlyNL8rE4cHnLxlTjIW+cHzKUm6HDbrPueH
+y1mc2/PiWuhZ3I6NMVWOjt37Z2M/BTC+OFcXE4jkEe0JJ3CcrX0OPS6ZBE1
W4c8nfdctcqFq555bqWJgZojsI2ODECtXAGdyxhJOvxCeQu8Y8oqw0JHASnV
gsI0BwqRWunQgRapwaeW3QPyqJMsf+Q8aCIoHUWvU/5Q8d+81pfz8WdE55Dz
djRO3ySVUzrUVvT29ZGufNcAQv+/HLOPBKxk1HeMUKHXT00QV+mkPacosnXo
iJmks/WDta0gdo19TYZ4xDNu1BzQWz6crdaXnIo/DHz590+/vLOSKP3e1Hro
q0//w2n/c1Z6v2jQEOwufKhE9DubpZ3QdL/mvo+rN4MoyKMGco5GcKbXFwX3
EsoyztNguuRkHJdtoz7uFz/MXjw8KnXXFFQspG/IFYRIF91SKx16Eu4//306
rb5lyMOp4iLO01NJcBk0ia0CEZSOwHVKJTbu+90fWYf7ewxalcZgGpxwfB5E
pkEyId8psbM+95l1/yfI7bF6y3mH2z99mdlktH3U/WPAc+28Of9KlebooP3r
8IZAa45KxB5HU8wHb47oM2+tPmy/K6+IJVGVTuK+y4LKPUI7QEbkOmdES9JJ
Vz5hwrrGRfpOht0SXvOPd6bfvd+9VOoFBUWQcj/LAIszCylFJUJvWZxQD26d
ea7E16wJxHNnbj2Q6YwHSlLQRqek73X3/icnjr7o/EVem3ketJIAkS/CxBWG
0uGj+JihazK+5irNI8/gISFfv6ZgmgOF1ETpEC1/djq4p9VjPT0VBYdBk9oq
EEHpCFiniUeB66937Ss7la5r6APX1Exgdtp9ZbhrXx0PXJ+L7cRCf0t5QIhj
b06L3ahaANRWNPCFY7y/Q8PG8Glq7Rm2uaYFa5zCh9j2TzRnPoLXtZioiKh0
EsueEYZbSztIRmR7WIiVpEOtfzemLxA6OovrPrtDAn2qaks4H2rSbHL9Vsap
E9/4fV99P1z498f9ubiUw/ZQ1VMw/+bEIeusXEJ+AQAzBW10Spdm3Q07jsjw
2goBbWFzYNTHM4CSoXR4WLaxoK0r9/cyaefBAepXZ3e29boC0yrxzIFCJFc6
dDGfJoOhnXNaPe7TU0FwGjRprQL8SofnOqUS0e8nzfQS0fZNziwhszkZu/8f
g7om/blLH5g0uFeQiFDxtd/m/um56bCNmlsZNqema3DC5vibx/fTvVWRskfi
YUfWj6R+1SO3atViKR0qESEHtKjAbBtyR2QcxiNOkg4V9b5mYI4voe1zzbM9
8ZGnap7wb1dyQT/1vZld7UdtwWqLkm4uxnoJo2+uuDpUAMAeNm100ls6v5LL
UrHi7s/tvry3dPRNuN/8UGtTI7rc3x+Z8CuqUPce83DE5xSRDixzoBDJlU7+
V+C64kQ7PeUPv0GTxCrAr3T4rNN9mfPVWAf9+NqTjrknRZMjueY9h1zU48tl
kAa2nUPxgZbx6XbKrl+mOEqH2rxt7TyAvGmzcTIg6xJ2YiTpUE/mHCe1zNEl
Os5PRVm7RJCnqqa8kKQ8Fh0rkiF71p5jkaxK/e4Zyt4O8qs0CwCKgJGDr1IP
uEuEW6UrkrVPBsWoLUP3SiDa3pkR2PwidaGfNXN5p4oxdkWulu2TgPVobiAV
2XobUQpEv3ul1o/DGSxzoBDJlU7uV+Ca4yza6VlI2ieyGpPRRS6vQZPGKsCv
dLivU2rl2zfTMkfVdsZTploDI4y50xrYxPO00iC90sk3UpFltAN+pUMlVm5f
QcvfqQ50jH0VlWt6Thr8STrUkzD5RkdB1GTp2wM2T1VNeVER0pIVVSbXYpXP
2D+tBrKPVr1lORLtrMQ6VADAEvSWMnV+D7gfFq2kdMX4pk77XRHqcuT6Xws3
I9HYdd7vhnq6q28UCFR87kNjzvzovDi7KbujrypI9Jcsz+7qYJkDBdQkT0fF
oz65aKcnSjKTx0E/od7ygWe+RL/6GsBn0CSyCrArHc7rNN95k9CduVU+dRBp
eSzDcKzKSK10ZB/2g1npJGNhcqQD9ebojBNTMpc5RaVQBSfpJJZmJvsKvTmG
s64QB5nDDDOuprzyd9FsFjtyAlYPx90KO17KbIDqU+SSrOuuAYAAGB3oSoeu
UcvekXZxFgIV/+UjU2bBCzcjkahp/sccmrXUOuxdZftn699P5E4BWadnVgDN
1Obw3eUEljlQQK2UDteKEOKdnnmo6GentMzbTP15X7Uib1LAZ9AksgpwKx2u
6zR3m7Rvk73kCJefGKj+lWE4VmWkVjrIVsPDKyoBeZdTFm53Gnmo2H3v5VN6
dN0TnUOuu7IOWsuw6h1m5G8JSNLZWZ/7x4TpEHNMCa350gz7oLUMyIVqlclD
bQes2Y9kUfVie9Z6KPM7VQ3HRYLtZdRnGQBEgKl0SgR+pF0V4iyE+B27sTn7
2cLNSPSSTUCS9U7I0Z15qqYhD5tMG0ZLO45ebDmB3OiyqkMlQzDNAQY16RzK
oz2HaKdnnu0F58uqQpq7HaGa3wbyGTSprALcSofbOkWTB6u0GcpnLSnPpVvk
wRC5zRCiCgkLGZXdjp/c9L19UMWkSu5eMYnYYvBLx0gXo8AdoTG+Rc49xrQV
ilrwnEpEbloYco9XI+/EZmoYhrsLe7mk2jnN8inRj4QZV5s8iKBmUXuErhyV
pmpFzc2gLdtEkXVlbABQJmhh3lLXHWkxIspCiM3ZTcgGisOMRG6xmoa9fKPM
k+u+85kuCZWvQGlQmUPoTzuVKnOYBZ3k1gWPPXjmAIrESiftmuF+Iot2eiKg
bVwQaj9b+AyaZFYBZqXDbZ0irqjSwcl5kKwl+dVMrgL6NTMzWzcyJWJFmLxX
lJfxjJdMLUG6nGDo3wH/FGkf7ipRf1tjHHNNB0IL0QoshAKzfu8/nPYLZ3v0
hW+h6R65nm3VKhzMBc8TsdXMKCyG7wRmfbec71j0TcwvoNYP/9VfeQBywxCY
8bpdDuurPa0Fb5LaBYxjNwNRngn8SJhx1cmD+J2rL3b2tTepnfvXezMvLZ+4
BwD1AhJ8XmQZJh5MjR0jVIbXvNivrJKx4CUj0dbTkyv7hsOMRG0ANjVjy77P
RnCyJ73JE8ZLwVi5N9pZn/skG7pMaE0Xpzl7seVEfdTVxzUH8kisdDYD1k4e
9dBEOz1R0MQWFKni+srCY9CkswowKx1O63RrZvxgLnvwhCtSIbsIcdjJNkkn
b9JnDdp9c/Qzp23IWKp3epPe/PbVm7d8swGmdf84JjS7BPWKyqB0g+i94wlN
xynrJzPz2BoSYS94vrvpe0tX6StgGojW3nNXPuetcdJfENl5qnU9y7tZ2RzK
iFv/kDVQwX+3E3b2pj2Sav1rX6+AzgHqH8S3kq+uRiXWgzeGOglVi8VxB3s4
Ll2pUqMf+3ruk1zsHBZjCU3T4FRPoIjEw2nry/ReUNJZn4hFfiCtJzJ3Xqmb
Ll5ebBmBnt2yTLBlC745kEFapZOpf8X1s8Q7PRmUapanqn2daj6DJp1VgFXp
cFqnzF5pVVQtktFQeyddGfCY9FhzQtORotRW9M5XTuvIya5WQtXU2vXKiO3m
dHhNIv0vitLZ/xbmwdGLDtIbuLeCtSORGAXPk6ues+KoPa2hp48eh6nboQeC
NfIeY+epdqXArTgk4tavFM/A9iIXAOqLjO9GlbkEu3Ht8tjJVO9pkbIOqbVZ
a7c6VZ1sG8kSwmNGIhEpVUI1WDzn5rzng6z7u6m150/jNofrE6fdOnra2JrR
hhrj0OTfgytKdYAgIGWHFV5XH+ccSCGp0sk8POcS2aKdnkV/HQt/bh04QhsV
2o6BS99OTR6RoKJvRfgMmoRWAValw2mdIi+uqmqRrKXmcb9MdzSZKB1Gks4n
keVZ51AnQeh7ztlJLx2CZR8y7I8lcXjA8S+F34Dhp/4LnlcG7WRRpe4Hx+KQ
ebe+1lKq/zvNdnTqfKZEtv6cR9FRKADAlcRa2OsYNXdkjhHNkf7xa15RrqSS
6zPvdai7rbNrFKMeAiYzMt36hwZLmgYVj97xumwjr3Tlg3UJjaF3cOySyxtc
lFNHEUHkx404OD6j7DIsmOeAlEone1fMtfKVaKdn+bfZiqXD9VM1r2qrdPgM
mpRWAU6lw22dLrn7c1fjVaq0IfcDPPRvg4GULtSfHDqpP6A1WZnl1p+tTL9D
zxyt6UpQCTXKpKIRCp5XBNl5iGpdfxE3a/VIbDbhuMnY3MeWdPFMBZdOAgC5
Q0e/aDqtt+lTQQSlI//in7IE2X6PWgMVY58UAN45IKHSyXZdZxGXXvB3Ip2e
1aHN+JoqHT6DJqlVgFHpcFunjD7IlVUtJv3bEKABhKl51zHqni929lERso+W
mcTztmAduSQE0RgFzyuB7jzVSsQjjbCZm9v2aujHUGEkCeLWL11kL7+hER1v
kGGQOQAgDtSKb6yDMH44l4n6FUPp7O+Rrl6C3U4CZECkQeeV0I7it0Csc0A6
pZMtD8ImLh1FvNOz+iPTZb0Ftx0XAK9Bk9QqwKd0OK5TNNarSsNERP8ypDKV
WPn5dmilXlzXWEAzAQltn2u+9A+xs+jqS7+IZbeCuqdBCp5XhENrcuRag1kc
MnWD0VxYdga51ijVM2g76n3XmCpzx68BEAAALEkse/b3OZN9Lnfci6J09qjf
PUMtcMRwYOeuvTMdjaHpddXF/RnOOSCZ0smVfK9WUqAQ0U7P6tAFu2oZXsJr
0KS1CrApHa7rFFG1VYoMlM1aSk0tot+9Iui56wvU3VCxbW5eaNZX/BVfGqTg
eUVQN2uVCv9l/c70Hl6Yu4Rs7EV3PolHs1deoafsIZN1KoKrSDgAAEVQy7fO
6HQmxxwSKSKO0tmjtgLvZyw/jt3MGxJkuOqngxjGOSCZ0tnwjxtYnIBFiHZ6
soAuWF3LUl18Bk1iqwCT0uGxThdJc9apYyajFd560WXKvI7Zb5en/q1rkCSd
dttPFcp2Iy61GpfskAV1VvCcF8jOUy2yGu2rznDI0oGmhdVI0MaIqIc9GVuY
stHVvAn9KbsvgrWGHgAATBIR91Cbuvf6fYajXySlg8RIy6OBu6yhlr0j7emd
t9N+t37GCtsckErp5AQLR+Eg2unJgpTVV9PuS3wGTWqrAI/S4bNOkdprFZQO
Ul+uoGA4XaagyxZseCsdIeUoy4xVZXcDOs2qtqate+qu4Dkf0Iumffpci2XW
MV2fNt+5zORazO1F1EP3wKGiaiTphmLoxk4lNsJTl0+lGmEQ7ZYPviyRSgYA
AE7iEXJQq+5z3i8I5hdN6aD3n23vB5RcM1lsqCUykyOqPeOO1o/QwTcHJFI6
OcHCscaveKcnm48+21TT7ku8Bk1qqwCL0uG1Tqlnwcm0OirfMwipL6cqcI09
i7hOEPkma8AeF3cD8kqVxkwuSveMcqTuCp7zAQ0z3qdlyPN7iaVFPZlznNQS
Hebjz2VeiFxT7M47nyeKqpEg5UbVpz/5JTxDTp7pSjUKabdYSWF9TgEAYAOV
iJAD2tY+172i41k8pYNeger6ylaRBZ4ErEfTR0odOr/wzAFplE5OsHCt8Sva
6VmVtNeslpYwr0GT3CrAoXT4rlNq0X0qfT1e0jWTljnNx8wmPUP60aTSgnR1
uC0Igg7XTFOlJhjimIDC3VDwfK+gFiIt+TrOTzHTAKnYfa+tT0scG5t68Cx3
uZHbY9OxMcXFHFbc/QTjjTUdqT4hoVWIVgMASUgskAN67QAZKdFATUylk1JY
Ny3pjQLcOqVBh+hd/2b9ebexzAFplE5WsFSJYC9CvNOz2gdv+t9tq/E1Aq9B
k9wqEKx0hKxTKrHkHtIRxVXCqHjEZz+lJ1osV26vbIUc3c30B+QqWtCO+PpJ
3MME+5pgjIXJiAlsRKDgOTPMWG04dlRDl3bUn3jP+YVvNhDwT5FX3zbrD2iM
b5Fzj+mTJudvbTHbPvf7v7o2fJTQnnLNF/rek+FrL2gIotV4cviC3fV14N4K
KBwAkBC6fr52kIyU7FghqtLZQ6r316PDQjh5l0fHmG+lTrdG4XNAEqWDI0kH
7+lZhXTKT23vEHgNmvRWgVClI3SdJmNhciTVlZ7QmsZvTM1kZ0UTko5ExcPX
6arahNZsu+X/p+fqGYM6JY2hvjQKUhOsimOCipKWnKCGzm5Q8JwRZnxo0PN7
YuO+3/2Rdbi/x6Cl25H39I/YXNPhDcad8M5G+Jtr44Om/ddoOsyjH3+/WGns
AACQHGrn/vVedduQO1JmdxJb6ezvE2FnL11IqazaaljSd/IpA1k/9t16He+e
QueAFEonK1i4ZvfX6PTMpPzUWCDzHTSpEaZ08KxTKv4w8LljfLDXsK+FNQbT
4ITj8x+jjMpyVGI95LkydrKrNaUDT19w+pcUa1WKRHLFfTojX4iBirsBWo5A
RVjIaB1vsGyAgud7T/zjWZVcZfIAAKAc4nMOk0535tZy2U1efKWTyRJK3VVW
fJKGg9q8be1MxWEQnRdn6zBuDUXgHJBA6eTsIq7Z/TU5PbejnnP62gtk3oMm
NUKUTiOtU/nzNGg7WsrdUAyaPVcvTcoE0fAFz5H0wPoqKAcAjUxszm4idCOe
5QrWlwRKJ/UpK94xOt+2dYBcgJuUFLkyXGqz45dGKCErZA5IoHSyhYm4RrnU
4PRMxoKXjAShtXw8V+OypXwHTXL4K52GW6cyJxawGtiY64zeMZDrlKLRC54j
0YxV2jABAKAQqPjch0bC8Jq3stNeGqWTKjx198rxlEdc2+8MK3WrxEfO7DeM
eBYbRfrxnwMSKJ10QSdCNzrNqXNnLU7PeNjRq6u9zNnjPWjSw1fpNOQ6lTV5
paOxBsr/IrubvreyhcYgRTRNgxc8R6MZ5e6DBgCADXTEhYZFcItUSif1UQ+m
xo6lApg63ptZr7mRVkOonXlXXyqUq8XiuBNT6LnBD55zQAKlQ5dgJZ63BTnZ
7A1+evIbtBrAS+k08DqVL/kDq5LSyfcshphDhIYueI708JK9DxoAABak0zYP
9QxfsFbh3VFzLpi5zTz6LvKv7J4F3AUEEoueEUOquJAsbqRrApWIfjWWqsLU
qOYTnzmQM28KpijGiZpYDX756Tdhjr9Ig5+e/AZNVJIbgb+W2OYGu9TclE7D
r1OZQm0HrOluOuU7WiINi4lu6+wa/HpZGrjgOdrDa8AN+cIAoHxQTw1vBPUT
L/9o6Vv9BhU7VCx4xaRtdPOJ8xyoPJ/FmahsgNNTduCZKrBO5UsuAadM21Aq
Fpg0pg31FoszBOU+mTRowXMkzBjKUwBAo4HUYxE7ei1HYmlmsk+rOtBhvd1Y
GTu7v5EnWlTE0RHy50Y3n7jNAZkqHTg95QeOqQLrVNZshR0v0T2rSjWrzbiM
VaBSK9CABc/z3YSI4855OVfEBwAAO7VQOim2V4Jff+rDHh4nb6iV4BdffL+w
CccvjeLnAJye9QmsU5mT6p6QalalG3Iv5dtU7RvnwRtDnbQIApUKMKDW/2W3
tKtbe0dv3oWJAQANRq2UDgAoHjg9AaAWUImV21csLSpVk97ybioEa3ba7Rjt
SQVcNen7L3tBpQIAAAAZQOkAAAAASiOxFvZetw6/0tXapCJau8yDY5dveu9E
4yByAAAAgDygdAAAAAAAAAAAqDeozemxXCNp1XNjvsdwHwYAAAAAAAAAgAJ5
HHBeTPeYeG/0D8bWbNvDTGJ1q/H06HuZHhR/DWw0XBVoAAAAAAAAAACUSTpc
jdAYXjSX4XhXKwHBbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAjv8PqLwpfA==
    "], {{0, 121}, {1102, 0}}, {
    0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{681.89375, Automatic},
  ImageSizeRaw->{1102, 121},
  PlotRange->{{0, 1102}, {0, 
   121}}]], "Input",ExpressionUUID->"18f244bb-fde2-4eed-a0f2-d96d7159bf85"]], \
"Subsection",
 CellChangeTimes->{
  3.746790878526955*^9, {3.746832465983547*^9, 
   3.7468324662912836`*^9}},ExpressionUUID->"676e5f01-d882-40a2-a99c-\
c9950d6b6ddc"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{
      RowBox[{"Bmn", "[", 
       RowBox[{"mu", ",", "nu"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
    " ", 
    RowBox[{
     RowBox[{"-", "I"}], 
     FractionBox["1", "4"], " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"sigma", "[", "2", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"CommuteGammastdown", "[", 
          RowBox[{"mu", ",", "nu"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, {
   3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9, {
   3.7468334204349413`*^9, 3.7468335082760105`*^9}, {3.746838309027896*^9, 
   3.7468383099083824`*^9}, {3.746838556404501*^9, 3.7468386074481454`*^9}, {
   3.746838639940466*^9, 3.746838646651194*^9}, 3.74683870085217*^9},
 CellLabel->"In[90]:=",ExpressionUUID->"a4c391db-5da8-4e93-b009-fb079e207f94"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{"Bmn", "[", 
    RowBox[{"1", ",", "2"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, {
   3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9, {
   3.74683359863151*^9, 3.7468336048382235`*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"37985126-0b8d-4780-86a7-9e2e19beb434"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAmI7Y8d/rSxvHN9sNVNqA9J+yV0a7UB6WX5FGJ/wG8eA
Lyxi/EB6z9snDSBaWX/3ChD9LYVXqrL7jWORz6tXIFq7u+DLtJ43jr8KFzQv
B9ItYoeSj/S9cbT9GBR7Gkj/U1BSDV3+xvHn2q1LEoH0JTnup8lAes3br3lN
QPqRo+uTNUB6dYJsyS0g3Sers6Z81RvHV+pRhp2b3jiqNc//eH/bG0eT2n26
J3e8cTzy0O/HOSBdpXJI8wqQbr6r8Uxl5xvHO9sfWOsCaRYz1e96QHqN1pXl
pUA63nuqWhWINk47Xg2k0yyFDWqAdNBE4+IGIH0wzHn/eiD9pW+K4BmQfLh0
KYg2eB679ByQrrHxarkBpDdcezMfRNcliDx+B6Qfy116/hVIq+8+st1p1xtH
AIEPtX0=
  "],
 CellLabel->"Out[91]=",ExpressionUUID->"dda585da-be03-409b-9645-d7ddd94c832f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvW9MW2e2/2vdK/10X+wXl5e8QOLKssSLSFGEkC4IVeYFKJElg1IhRBoh
EyUXop4ck/YG2lEgVQOtGlenNbqN6UytNlZm6szUypk458Tp4GlDRrinuFNH
wWqdBjImiVsgQJCDTDBsX++/3jbe9t7be3s/214f6YzmTABv7+d51lrPetbz
Xf/XCevR/+d/0+l0b/4f6f842j/S9sYb/W+/+n+m/5/uf3/z9MC/nzp55N//
31MDp974v0/87+n/8Ub6/0z/S6cj/nsKAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAfvYSG08ioWAweC/yeD2B
i/313Rcbm0klngsAAAAACMBPAeUBZhpQecCsBgAAUB0wxeUAj/8r4Jkc7m7C
dCyYvm1g/MrfIxs7wv7E5sLNCfOBYd/arsIPCwAAAFQd4KeA8gAzDag8YFYD
AACoDpjiMpF8Nn/DZmmq1fGhPzp2bS6W2OP/E3hy/b5n7KjecMoZeiYxnZjc
XArPLwocWQAAAKB6QMRPARUPzDSg8oBZDQAAoDpgissFHr/vHmrHdJjedHbS
MzP/aI2skUvGVxZD/j9dsrQw2cX0D4w4/ZGNZE4JHZ6MR+euXTDrMaztXV/0
hegKO4qdB+7+Q8TnNH8Y3JL4NwAAAIDKAxU/BVQ6MNOAygNmNQAAgOqAKS4X
eDL29VhbHWY8+1me10j9yFbsu6sjpgZd5p2ftbv+6g/MBYP/M+P782fjA236
9IDUGYfc4bj0MrndkP0Q9QkN78xsFshbAgAAANUDQn4KqGhgpgGVB8xqAAAA
1QFTLA48EQv/8GA174sqws56yGkxHDCP/9dCsbeEJ54EyYRhvlo6Ms14Nype
Gy2bxE9fDrbWNJ2033kC5XYAAAAAcn4KqFhgpgGVB8xqAAAA1QFTLA585ZsL
bXXp79swemdT9C8/v+989/3bj4S/JeKd3/zcNnzS1Fir09U2mk4O2z6/GYzG
paTXgApESrpVmvAantj4NcbPr6txyJKWnd2fnMdPXcwvkLiXiAWvT57tHL69
psKTAZoF/BRQHmCmVRLgjCjKMauT8dWC0dhGxW/FqozkWuTONfsINUN0WKP5
1LDNdfteQckg+ZFY3QFSz4AqQIAhjt0V7xkqwVdj9VW+pwbQRkq6VbLwWjJo
0+fLbdPo+zxLUr4DUArsoOjNQ3b3dDCyRIS3i/N3/zp1vreRMFXNZ31Pq8E0
AwAAAKoBzqh8LHn6CkZjtiAcN1YKeDL2ja2n2Wj9/e3Qo3Uio7WXWA1P2/sN
6dDf+KYr+Ft5xlpidQdIPQOANsCTS7fGTIcaez70x7bVfhigypGSbpUuvAYJ
LgQpMiiHLM57cYgpAAAAAEUBZ1Q+IMFVJeDJ2K2RpqY8awffCE12E/E/ZpqY
XVV+YUms7gCpZwAAAEAkktKtkoXX6PB1wBOD0AkZ+PcUWNPJj32/wIYCAAAA
UBxwRuqTjHkGIMFVOeDL/pFXmsa+Xc+rjb3sHayhckfn/WtKa19Lre4AqWcA
AAAAZSDBhSDEoHScs9vHrP3dRqJiXW/sHhi2OW/+UGZxBgAAAKB6AWekPpDg
qizWfNaa9HAetn76XZ4iLfwXV2cdmeE6MOh9AvljAACqmL3EUsBts5oba3X6
tr5R598XN8EqAoKABFcRkolE2d8MMSjVMCJ724mXYKkAAAAEoEVnBEa+dCDB
pRBqLKisoshOR3hr379nbqryjHiFrSl1RkEmKmwsAAAptmP+DzpNb3zmD68m
dpNPvUMNmM5w2r2w32wCwD4gwcUPnnh0e+JYp/2Hcq+lKklw4VHPCdPglX+u
V0UrEwAAAIlo1RmBkZcBSHDJj2oLKpXaW3B1UbpX2HHXwv6LgcUSXBW0plQc
BXmooLEAAMTYXZ+91N5+cTpze5qyjdiB8VmtWgygnECCiwc8fs9paTRYrkbK
35q7ShJchNTq12NtDW1jX8cqMDzAk/FnZHf3Z9XRjBgAAEXQsjOqbCNfHiDB
JTNqLiji459HvB8N9b9h8/6UR8Ju7ydnRy2Z3zJYPNG8Ml2VsaZUHgV5qJCx
4KEygti9xMbqRpVdqMcT0bvOsT6jgbzW98XdpReaGz98+dbZgydcDzmpLPb6
dp8npt6DVT14ciNyx20fGeg26smjGr2x22Id/dh5zfeP+UdrCJlzSHDlg/S8
hzDzJ6G40iKf+aiWBFeKaSekr5zwAN+K3fvaZRsmPEsGg7HvLbv7TmRjR+3n
AwBAS2jfGVWckS83kOCSE5UXVDHwqLuXqu+qPefjFZnX/JpCfBTEoPmxyKWi
gtjdzbmP2jHskD2k9XkmHGJx9XcNOv8Rje8kl29aa3VY26XZdW29gOdBW1en
M5w12yj1Ql11jSZibMfufNTT0GQ+M3rJZrs0eqqNynFxug/pzZPBeFY+WXy6
VSbhNUhw7Sf5eHrsCGaweqIJlR5AAwkufPOfztMmY89HMyt5nzPt9L+/5rh8
NfC02NfYjYc+MWMV0G4+vSTvOAZeMbSdtn35t2DkCX1mlIyvLP54+8pYtwHT
6TtHrs6tVEYUBMhLMh6LBP0e58ejVstxUyPtNGobTSeHbZ9774Z5NL2JKu6O
IREd3gEtUSHOqGKMPD94YvVB3vXbZx37hNgX5jf7yZU7E8XWLyS45EP1BVWE
+Lyjh5w7h/rdDwqmEqSvKUnVHbJKPaMxChDE7qPigtjEPYe5Xo2an3jQZszf
flgQBqKXy4TDPR18sCqyIgZfm7Md650K0VOR3uMftPp+k+mr0fcE9cZX+4pC
u0KjLRgX9yG7950W20xWhh9/MXOBrN9qHPavyvRdAFHgyahnsP38zSjHZSTX
Iv4/WI11nNnb7YxkDLv4dKt8wmuQ4Mol/rOzr0ZnfMsfU82C03uKl4nYvdtX
3rP2kSYCazSdehuZA5SXUfcJbN9M5vBsZrSV+PcOZ6R4aTAC77xUduPzX1ga
OoZcfK4fT67/88pgK6arbRq8Oq/CqSX+cn6qA8v1o4JJ79ReGxh+z+H2h5Y2
wVjIx14i9sNN57t9TbWcV91nHX3fRjE+fIoyAE2nHTPR7FgH31lw9xvqOpw/
IVZ/vxcP/n6wePQjlnOu8Au1v1o5QcAwyuaMEPguilBs/V4aPWNOvzNMbxpx
3s1Zv6TXKL5+IcElF4hPQipPkh5qgakSKV9HUnWHvFLPiIwCBLE5oB/EimXr
oau/hrLKna7Fsg5MYtHnYEK4c9m1cISPaOp7+5KNh0uj1h6jnv1ZrKXv4hXB
+WR8J+Ls7JgK79A/vhdxdsicFHoWdH3EedgzPbnfjooQhsczX8nhWyw9lb0V
dnQSf7zG6l0GT6gK8ZD9WN7evuShyYiJqOaqa7vwzQr7E6LTrbIKr0GCKwu6
nLVhZHpNRS9FDIr5vP13nW0nbV/NRmJxYmySm9HAlSFjnc7QPzlb9ERJaX7z
WQ8SpuagLbid7029mBklE7p1ozOCdqQ7EVevQaf2iZ5UyMDgwPHJ738rMi47
D9z9h9JL1dDvXtgp9wzbi/3PHx3/Qbqb90cHOvRcf6Q3W8d5/S3pxV4njm5p
GkzDn2vxUr987MbDfxntbqppOjk5+5vU97CXWLrrHO7Us2916GO3P/Roff+B
XXoTHfJ+fLIJO9hj+4a9B4Gv351oSy+zdltws4TvogR78dBfchJ03OCHKm8u
MN3Ghwf7uo1ZU5RA/Dmghqk4Z6RtI7+f9KoMemwnmjAh6/ee7/Lp7PVLqfcI
Wb+Q4MpBmvlFY0HlQskcPVmcv+t1DBkxHWY8uy8Ryo/YNSWlukNeqWd0RgGC
WC7aCGJFgcdunDYwoYe61jMZ9Q41ZwKZ9kwCig88sRKZ/cpmaaG/ANY64Liz
VFxJbCMw3tmf0e6Lh+wmxZNCydU5e3cmxmt483pUgd0BK8BV7lwlwEAMwWH+
IDzty5aXHnM1uESnW2UWXoMEFwd88ztbezpoP+uNqVolRQwKZrA4Q+s5j0HW
B6YtNnbkwp1f1VzijOuvHfbnDc13ww7y6Et4WSyemP/UjGGGQU9UK8XPDOS0
MQ55o0KWELF+G9KuoJ64pqzmF820atLpWkb8y8WfJbkWmb48wBYq6F+d8D+u
TquRFTi1OsLiTzLxRHTGcZrZGh/smfhqLlq0Lm5nPeS0GOrbbd8Rh3l0nJle
hG/7NxEr4MoBf+TuqWcmW32urkKB3yNivL9M9BxkfrffvYRC/Wo5qERnpGEj
nwN5XnnWKG79UvVa9W0Td9dxWoNI2PqFBFcW0swvKgsqi+0F1/Gs5L+h3+4L
LcWFj7OoNSWlukPeHQdCowBBLAdtBrEFwZf9Iy2ZlVXzJr+iXRmgbTiNiIWz
vRJ0DdH3vzC9+QN/bH/fVQ74E98Fm49ZXPja9AgxUrraIZ+i+WQ6kSD624kA
j3ksxFepaXXcR792sDIhhrmu0/WL4KkkNt0qt/AaJLgybIbsXZiY/ZdS7EV9
l1zBzbyD+SLsOEomyUd86lVpMq6fr8vP9qLrNdLSveZaLGiNudD+qPms7ymy
PjMfWxHnMax59Pr9f60LatRC/jyxXo85I+q1us20ahKVIaH0VOmibx3WPRna
0NRgycLuivcMuyvBet1510CBX4+H/zxiaqB+29BjuxVZE7ySqTssxremQ/+Y
MNGt5i0e1C9FMFsJEr77IPywp5/op/Jko0KdkVaNPJfdeOT6mLmB2XFMeEWt
3/t/6KlpPntj9r9HjPTGa9Bb7HQBElxcpJlfZBYUL3uJ1cis+4JZL1LmSMSa
klDdIe+OA6FRgCCWgzaD2ELsbgY+4JRMqb7JlZzgIsichhBSFWdc88+Fza6d
p57TZLBuHA9sSHpsoSif4Nrb9L9N7liaR2dAcVYldkP2QxjW6YwILN0Um26V
XXgNElwM+FMPcVu74bxfzTx/cRi/XNNi//GlOo9QzPXjUY+FvJQtrriFPF5M
T/+mizMa6vexNTt+gM40GE58FRUQHbBtkpQ+VSn0DPRpCBXeipIoTy57h9jL
iiJsXeXAUTMznHIKDTaoX30e8fyujX7zh/om74rvu8SqENPZSfQEuHJhTJZO
vE2goZdM1fTOqVxnpE0jz4JvLtycMNNtg9Lr91sBd0Zy4MjCEAg5D4UEFxcp
5lcrC4ojwyVc5kjwmpJQ3SHrjgOlUYAgloM2g9hCENryB83vjJ1iQ1WV9Q1K
SnClcnJcbdz7wvzsPXB11ZM5oQ+DW8oOkvIJrs2grZ2MNdStxKtynnoHGnS6
jomAhEUvLd1amvAaJLhoKD3J2nbHfdWPlopAH5/pdC2ToZequBZGu4DP9W/6
h0m3IlS7gAV/4h08IOoSk9rg20Ebe4FKh53xrgiwvWz1FHbCHVUlScmehgjc
YWXDjC+JyR6qHlkklp2Nhe98N78Nrwo+202T/G1u6iQtx4kdGfM9EtkdhwZf
82UyjCgKcOXAbiUk2QQK8uSoTI2QXt53drV2Oe+rdHyQqnBnpD0jz4A/n3ee
YtfvqPeBxOs5me1kmk5HuGgJBDIJLvWXBoVY86udBUXwPGg7TBlL6jZrcaSs
KcnVHZJ3HEiNAgSxLBoNYgtAHiI0fxBY+46TdlG38qfUBFeK0Fz9doy5PVHT
84f7RbLf+MvQJHlFU9qK216N/BikCS+uFLk1LS7BRXQMv8f88X+GYwKyb8x8
E39jApCRRMTZTYyC+dN5sbsXaenWEoXXIMFFQh8toWir95ExJSop0hTR3mTd
pYS+tPhW4L10cKBreGdGG3eRdtd8b7IX9gynbwi7LPY8ME6VtOh73arIJTKn
IUJ3WNlkSSrp+zxLijxjhUE1RmezW9OlyJdtBMaN9OvXwK09Zish0SZQEJJx
9eMBMflEqcQ8fVJDUFmodGekOSNPgv9654Jc65e5GkY40QszxeV4kUlwqb00
pKGlBUXCKXk9bAs+F/Ab4teU5OoOqTsOtEYBgtgMGg1ieSE1+lpJXVmu0qy6
kaoMCa7se5d1tBYrL0yUKG3F4cuzk1ZuYynz2PUIf0pNcIKLK9BBxK+N5n97
f7p4zSBz5UQDFxYqG0a20dDriojJPkhMt5YqvAYJLgI64BSghqE0eHIldNP5
ydT1H3kVGDKmRJ2a22Lam3SOV6Jd3fre1kxUsffnF0ZADjx+7+rQYT3W1D36
x+CKwP13pqZF5PVAmeAKcAnaYeXADRvA4wiA6F3VyRRtHOp3PygtMZ0pwNOa
AJcYPZMs0lPuQJlmmsq7+CpwRloz8lm1WzKsX/aSl0D7DwmuUkBnQQkmYzMF
61yJW1PSqzuk7jjQGgUIYrloMojlA1+ZGWtvOHuLnGbcwzV1I1VZElzkzdl+
JjtUUACNrfPnrLidmM824f9VxKclHvnYY1ldTdPYt3wFpQITXNwitHTMMHJz
UVgdEJuDRf/CQqWzc9/RTpVu9jjmhecfpKVbSxZegwRXir0ycGDQ+0TtLQVV
3lzA83JNyWF7SMp1n9IQrF3Q4YxIcSd0IIR1uRYqNm/CcXb1E4G8LaqVpAQB
LpLd+45W1klBBVdRthbcp5ndcaEgQTj4oqtT/ZhNEFkCXBJtQopMcDUPeJ/K
+2z5UXcXXxXOSFtGPhH1WDPr962/rZQ+MNQcE3o9HBJcJYDOgqJIPvbbjjdi
DaYRT4Rvd8fdLgp926LWlOTqDqk7DrRGAYLY0lE5iOUB3wpNttcOuKNUI5t4
0GZkow9V7adMCa70Apx5h61/qun38DQzSC57rbkXkPFFd2+3aEUROltLgh13
LeTPfwpLcL2Muk8wOw+sYWRasJDT2sxotbUZQhb2brsOa/9oLn/7oVykpltL
Fl6DBBdrMbBB9V8CJTVD+owe96P8q59VQFJnsTNnInwni/TjYQdtc7Qp3Hvo
edMuWHKTKfCW0G1NM3CdXfmXXmkCXJnsCkUFD5Ms7G7OfdTOOnXBHqEItPYR
+udZXAEujk0QC3Ev5nCZClbV3MVXiTPSkJGn+h4yU1gu7ejtwHi9TvD1cEhw
SQalBUVCrCp6MgnJG+tqh/3CTLyINVVCdYe0HQdqowBBbOmoG8TysBN2dh7k
qJ9l6X9iA94V1Z5MrgRXjoTjUUc477kSM8Pbp8J0Eyh8K/hhi5SMK1PNSFoj
vhNVYQkubkGdGPFe5khdAxcWqgC2Owlx3jdyS0CfLKnp1tKF1yDBlVr1DzcS
716aiJnMUBagtsnyyexK/hFh7sCKSoDLB1s8n9+IsZ4902GH6LfSKkYPn44u
NFCdIhWusxMvgVUqpQlwpV6EHUdZV8Z/hAQQZJdkt43NyFD9QUDZbQ2cZ3FD
Gkl9fimIhEC5JAfV3MVXjTPSiJHHN7+ztbM3bFtIXRc5oNav0OvhkOCSDFIL
KkWIOwUm6unpxJvgwpfcPfTPiBE4ErqmSqjukLjjQGwUIIiVAXWD2Lwkou6B
2vbJUEZTLjut1ONeUm36yZfgYlcT6XkPjM/me/V03JWRLU3MO3tfs4cknIdm
LtTr+G98CEpwcX9IjDSKhi4sVAdbEecxVnHF4goXS+JLTLfKILwGCS7a2UkV
MZOZ3TX/aOuQ9ylvUpRJLxhOuxdU8CmZC0f5jBhnO8DWfr+Muk+1Cm0iT8Es
B0TCIfl5EbIfZgx92YXUuAJcB94LiGwfTAp4sgVJXZI8ZtWArwUmOli3L2cy
kLTbGjjP4gpwFTu+x1f8773nz58BXP92/MQfQgq3uqZRcRdfRc5IE0Y+Pu/o
wRRbv4Kvh0OCSypoLSgC+vgba+oZv7mQ/4pi5g6IyIpBgWtKenWHxB0HYqMA
QawcqBrE5gNfvnW2oT3nDDEr8aKmAZUxwbWz5O7P/Kn8Mfzu+uylNkxXO3j9
SXInHr07ZTksIBGRH+YYi4QnSSgowUVfzNeJXBdsQh6RPCrALeISIsYlLd0q
h/BatSe42G4pJfSQTa5F7lyzj5w0ES0nML2x1zp+xR9Zk/hCiW5NXe1jt6KJ
/RHE9srsR2ZMTBcneZ+NW61aey6nRh2P33NaDh/rM5PZE2ZG7YSdXf0FtBAL
fYroPtRqgydWIwGv86NRa69RTy5/vbF74G27+05kg1t8wj2CKXdsQJxFMpZJ
8PUHhuSiZ5B9ciGp+0ohuRy6Pjnc3ZTemejbBibcQV7Z7QykHAS7PS6oCCoa
4oAY/fMsVspYSEhDuDO92J7sSqDaLr7SnVEW6Bt5fCfiZDtDCO5nJ4wV7wAm
/Hp41Se4pJjflDwLSn62Y9Pjnf2fBmJ58/V7iYU/D1JHSIZTzvnnYrIjAteU
5OoOaTsO1MwaBLEF0UIQm4csbfkMWRKgala8y5jgys4m8aV98BdLd78Y7WvT
6wzGvjHn3agwOfd8cBNTPE5IdIKL52fwxMqDez/HuPEGq6ufScgDKrKzEbnr
+Wy025CJjTDzp/OFppe0dKscwmvVnuBinZ20+y876yE3p+cpl0OWqe+Kh2Fb
P9iPjOUOX/Lp7GR/Q9OJS1/+LRiJxgiikeDfvhw/Zkg7d/M71yNCwh4Fno3V
3iQ9d+OgMxDdTKbwZHwpdPv3VlPv2PWf4lv3HOZ6ne6VUf+vyeRv30/2d0zc
FamqzdbEIhWXFgTfXPy78zwRgRvaBi+5bv1jfvEJOXBPFudnPPbX25rPuNhg
lW20LX3iSYbbEtpgEdXlJ/l4OtNR5ZDFeS9eHd4mHfS6Bk2dY1/OEovx0feO
4zW6urYL3xS5bcjtdyP7XU4iVEBfgIur3lDs+B7/1TfUIb4nuwKoluCqYGe0
H+SNPL7sH8lkZ6WrQOSFSHAJ1+ep6gSXRPNLUOKC2v8oW7F7fvfld6x9pkYs
3zrLA6Zve9sbzZEe3I4Fvhg2d3QPf3z11t0QvaxiscWQ3zVqJrIKtU2Wj30L
myJnnMA1Jbm6Q9qOAzGzBkEsH5oJYvM8era2PAduUkXNfa6cCS7OFWadNB1d
cciU4MpKNhYsnuR0Z9jdDHxAGh359AEAieysz9+wWVowXYNpeMr77bVRtvtA
0Y6xEtKtsgivVXuCiykklhI7bsemL7YVinMMPVOhgkmAnaee1w/mVy/Z2ViY
9Uy+PdBtJO1GbaPp5LDtc2/g4Yags0tlno0WFqhpvXz3l5lr9pH00xmIZzO/
Pub4zyB9Iokn1+97J9/qS/+TvmNw8lsBGnS5MAYclZr2guwllu44Bloxcrvn
mX+Wbx7txhe8o53/5oqQ51ysMjOxes94V8r5FZkYlUD4DosY069GDtMTyvCa
zf9I+nmQtsBj/rfM3MXCTE6OgEm+X9sKfticWW6tozPPZH2qxMavz+LiV1ZZ
ydpKFInz8aee/hqenlZlRrUEV6U6o/wgbuT3Flxdmfd5aMj3q3qLrYoTXBLN
L0UpCyqH7ZXQdTK2lwCP6UuuLwS8zo/HrD1Gem+INZr6rGOXr/nvxaS5V6Fr
Slp1h8QdB2JmDYLYPGgriN1HrrY8B65Igjp95ynkTHCR5yOZP5YpxVQI7seV
kOAq9jOc7ld091I8Gft6rK2uqs7T0QRPPPLbXjPoMEOP7RZdOsu5Sk94uQ+D
skqIyCO8VuUJLrZRlGj5wSzPizV2nRl930bw/uiZrszpXmGRoq3vbS3H5by4
pOyzsaXmJYhFC/0GVJMpdfueCGE7NvtJH1GrWdc26l2IF/Dyu/HQJ51dzsgO
nnWQwdfHRyGYGJXgoC0opLlzci0yfXmgifQ8WIvFdmN+Xd3TunKSXPaNHLRc
i3LjW+Y8q67QfbpnM6OZQZagdVYJcGPgwl23klHvULOu1RFGYSegVoKrMp1R
gadG2cjHQ3ZTZv2q3M2hahNcks0vifQFlQUT20shvRittls8WlsKoOSakrjj
QMusQRC7H60Fsbns15bnkOkFrFP1KqWsCa7sO4qKG2Tux8mU4Mr7Z+hDJX3f
VGgDTyyHqX2H/ihRVFl94TM6kBe3D+WxD5t3RlklLpktqkzCa1We4GJS08WD
pSzwxM+fk63Da5sGPvHlHrfhyY2Hs+4LZKk5t9gyByL/WSd/Ezrlno0pNS9D
r2dWCB2RPW9+2ABMWLNU4s7LsfHASswzmInOyhv8MDEqGacWEuBKxleXIkG/
57N3+5pI1Yu2gfErX9/LLxtSueRN87JtsPjjCnzZO5g52+DrdFPZsFsJ8hXw
3vDaS8Tm3GRxoEgjrBhqJbgq0BkVBGUjn9WKXbxWocxUa4JLqvmlkbigsmBi
e9KINZ2wfTUbebxOLjE8GY9FZv8y0cMYOcNZb0ztox8F15TUHQdaZg2C2By0
F8Tue6I82vIcljx9mbRKn2epvE/HomSCS+kEI/fjeKr1BCS4uN0Y+coat2OB
P45T4m96Y4/1ncu5ym9ogD/2vXWEOwJKgTX1fhZSd+/A3BvFDP3uhVwNNG47
RelhkoLCa9Wd4GKOIURWESfIG/rYkVHvA/7E8m487B4y1vGK06aDt2aTnLq1
Sj8be+GILh9VlKfeAXJ6Fy78UJPM8SJm/iRU6NiLZW/T/7tm+63bGXHOMuuE
cwW4hFpYfdtpm3t2MV6F9oEI6esGvct507yF7Dmn1ppAOyoccsIV4NLVmKwf
2HK5NMoVszmIhABXSrUEVwU6oyIga+SzcrPlKPYoQnUmuCSbXxqJC4oDJ7vF
W9zC+RkUDjLkWVMy7jjQMmsQxGahxSA2Gx5teQ5cMXzl5ap4UTLBpbhj4CYJ
8+utCUhwcd9Aw4D3qaJPrCzVk+BKhF2Ud+Pp50tKizBPKynRqqzwWlUnuNiU
sqjEPpm0FNQ6ajd+/w89NXnDnt01//mD8p+YK/ls9IUj7KBtTnmhnHjQZiTX
jOrylXlhjxdFdsdLbxA6Xu3O1AaUOfXBEeDCTrrmn8QKsxQJzdxwXrQ0Eb3S
mrrPO0vov6lB8EV3rzF3b8seyxaS6OcKnal+v0klsgS4hICGAFdKrQRX5Tmj
oiBr5LNys+Uo9ihCVSa4pJtf+vclLSgO1L1pgnqz7S6/mDmn26b6pl6GNSXr
jgMxswZBbAaNBrFc+LXlM7CjoFPVhGo6wfUiZD/MfFjreCBPMllAgos7EKXd
OwPKA742Z6M8G7/Zx594Bw8wwyohj6Sw8FpVJ7hYmyPC+eJr0yMNByzuh8Le
V3ze0YPtD3v2Hri6OmTWnVb22dhD7fIUWrDGEIEGxPtgI0CdrqbZ9r0IS53j
mMp8tMcV4BJxgrkbj3hG2qjve6hv8q4EwVUtgkfdvXU5qwN/GZqkO6thJ9zR
l/l/M7MLIylNAUarFBfgwpPx5cXQf9v7yBMidO5xqJPgqjRnJOR5UDXyTOkF
HdGrPjOrMcEl3fzSSFlQHLYW3KfJBD1mGPREC7u8TEe5/Lu/MlL6mpJ3x4GU
WYMgNoNWg1guBbTlOT+05O7PPKzVp1IyTskEl+LliNwrCfmr4IonuLhtN6tT
k1ZjkNljMr1VsAU8d31JaeKgrPAaJLjEOSDiUn9tJ6GyKPAzSGfdkn3GQXZY
K/FuabmfjT3ULk+hhYShEcV2LPClnbolZenr6zYaXnHMC/XSZEAlNMzOJtsx
ldT/VDwcAS6xJ5j4zsOrvXRuTEDAXwkQ1zn3XZDJSE/X5P4ThzWflXMRVP1t
aXFKWQ55yb7k1ela5J8vlF4ZKgJcKdUTXJXhjISAqpHP0iVWXYArVZUJrhLM
L00pswtPRq9ZKBtusHoK1YdQPA+MU5LbKor8UMiwpmTdcSBl1iCIZdFqEMuh
oLZ8ht0V75mMNVehOTKFrAkupn8BPQRl0EDjnFfmtb1FE1wcWVqsYfSO2i4V
KAaRPaYmGc8FcAbO0EszdEoKr1V1gkv8CQtx78YosmP4RmC8LSufQKgZtPYX
KbAXj7LPxhxql+k4u8Tj16LEI15HOjIYt5r1It0099Ixv3Q2D9yyFp2+111g
3y87XAEuCaoyz4M2tkq5vtipWSWAxx//tJQd0ROaHtQrPDDofcJ7ZYXuD65D
Y8sjBOnLgQfuJa9i6iuED0JGgCulVoKrspyRIFA18lmd5VVVmKGpwgSXdPPL
UEL9DKGk3SLG02Vu36g9RrKsKRl3HEiZNQhiaTQbxGYopi2fISv3otr6lDXB
xXSSpQawLE0sOfF/zWnP01xrUCzBxbao0BVNmAAIsLc58w5dxV7s9JOz30Gv
VFWRBBe+FXL2G6X1VRYG1tQ9MV3ywYF457v36OYl97y46kpShSBTREqW2Te8
MyO7VoOyz5ZcmZ06O3TJE35eFnemdGzAQHsK4buYF2HHUWYWipas5DYxFH1w
ViocsU1JqjJZjaFrz8lRl64VQ8E8beA9+rZ5jdW7zPsCs0840bP5BRC9HHjI
EuAqptFBBMyKHanvPfK+cbgccqD6w294H5Xw0irLGQkCVSOftX0Q/2y7P7uO
sjccMb3x1b48HO8m7F7dYedPAsyoMgkuzSwNCqHml0FygoujqSXog1IVl+CS
EaTMGgSxFNoNYtmHWAtMdORvXbOPD6ymTEF9/URgW5WEnJwJrr2IsyPzt8rT
A4VT1Jov7V8kwZUpByp83w1Ag4yylgCrkomXkNHRZVEkwcXJ/ikGf2tg4ZTr
jvyaz1rHXFQnDgdfabH/qIZXyAeiz1ae2IDtOS5YJ/Plj/YW1lt2OyNFLy9w
yWquV247vz1nO8hUaku7s59V2CBLyY1WDAXFRmCcMhdFbi1lJ7jktfl4YvEf
/xUqfmop7Y+LXg58FBfgykBEa8odqWtmF1+FzghVI5+V4BI/HHtPZn7/H2yn
0PHhk6bG2uy5UtvY/cY48a8Ob0TIH4cEV0q4+WWQvKAytQqCb6eyXcZUbNNG
of0ElzQQMmssqNo37QaxNHhi/lNz5tqhKNS6rCRjgiu7SbfQJHzpxH929tHz
pmHEl/2hBRNcyWXfCB3nYz2Oee0c+FYrnPukAuwDGy8h2C5WqSuKeDL+rEiP
tlL4dSMhg10tl/MlRKfNlPwaURtce9y1gEyeE9FnK09swFykErwws6qYDtqC
4g6DNoO2duaXS+5/KhLOoY/UFkJZPkyuumhNGAqSzTujDVRQVeTILDvBJa9p
XfUPGxW7FCB6OfAgQoCLujmrR0eAK6WdK4rSQMjgI2rkUyvegczuSYbhwJ/7
RzJHA/XmyaA0pW61q4PUWhokgs0vg9QFtTU7fkDUB3FF2xoGvE9FfJb8VGuC
CyGzxoKofdNuEEuzE3H1Npod94Qm5rIUq8Qm9ORCxgQXt6eh+BumpZBc9AxS
10CwhiHvU44SL3+CC08+9Q7RpvtQv/tBxWubaB9OBlWAfchsLdVvx7OPqtbg
Yg2F0teI0tvSw2TFy/aC63htcX3UcoLms5UlNmAvUgmtaMpqyCJafJh7cNb8
YbCsbUTS73OQ2bRJLWnOVrZUf7dVVjg2v2gLmKwKEDlNK3GwUqvYpQDRy4EP
MQJcKTyxFAouodQzWp1dfBU6IzSNfE6wLsdwZNW+SijphASXGPNLI3FBEckq
2nQJzRhwREg6HWF1TRlqCa4qNGssaNo37QaxFDsx71lD8weBTcF7adntuRTk
S3BlNek+JFKtrlTw+D2nhTKQdW1jX7Md1XkSXGwDVp2kHqyAKmQyqAK6jpLX
w6UZkzJQ1Qku1uYo3dw5HrSZCB9HeIfmstyYFg6az6Z0AxoS+iKV8IqmjNSG
Tlff434kxlpzWpzrGsqu6lyqAFcqVztd9aPq8oL/6hui3Dp2YHy2yB4maz/b
716S68xK4dBd9HLgQZQAF4Ko3EWxepwRmkY+PYEfuXvqZZzAWSUTUk45qz7B
Jcr80khbUNuLrtfokSpSesrCSb7VXZh5oe4WrixrSgRVaNZY0LRv2g1iyScg
Oma2iqwcY28Qqxi4ypXgwnfCU2wJnTo5xuTTWcfpJuK8vLZp4PJ0ZC2ZN8GF
by76J/sM5Lm64TWb/5GYyxSy9/WWFfyx760j5bjdjzX1fhYq+5EJu1sUIuvH
ekyDRZ1eRQWBBBeB0qddxKGJ3vb9ZvDDZqHnj2UDzWcrR2U7c1YrXE6K6cJD
cJiqhxdMRkJEBa9UugBXVhsUnXqV3urAuZNuHA9sFPtpboZHtglMhHYHjtpD
Sh2SiF8OPIgR4EIRlRNc1eOM0DTyabbCDlZHuXRVJW71rK5Oym3cak9wiTO/
NNIW1PPAOJ2MFPy212ZGm6ndSMPoHbWPsMt1JVAoVWjWWNC0b5oNYlOUtvxh
w+kbItsGcY53Ref05EKuBBe3m3nzWZ9aeu07GxG/83xvI+HYGkxDH//x41OZ
Q13TxS/dHw+ZiGmGNfaed/rF92CVva+3rFR4gotNCAvJBv/ms5J6JGr1myhM
VSe42LSz0s6XMG56m29mvB0B6csc0Hw2NjaQsQAmBzbzLPzOCPckSNyS4YTo
KnglGQS4iL7bGT14+ZTbNQEnudcyGXrJHb3d+NIvS/GcHM7LqPsEs6WVSXYY
X5uzdR0YmV5TaupIWA55yVQsEwitgkAJlXbx1eeM0DTyqayGfTIU3nO3V9Ky
x1We4BJrfplfk7KgWBcv+Lcyml2HbUFFi5SEUIY1JY7qM2ssaNo3rQaxtLZ8
bb/rodgdP7doTS0rKkuCC995eLWXHgLMMOiJJtWNrvYSq78Ep685bKNnzI0Z
3Uq9scc69rHT4w/+spoobZ8gV19vQASsiRCQmWeuqyDaHLO6E1zs3QGFjR7p
fN8YttYedYQRUlMmQfPZmGOm2rf9SrWwZzLPItTSOVsVcTNmK+I8Rjce7736
cKfMhqB0Aa7dzcAHzRn33DY2o1AjPyTBF929lMGvyQ2eiXa6HftfKaFzy5S7
1chwqXB3c+6j9gO5nWtkRcJyyAu3+qWoABeSqJTgqj5nhKaRJ9n63tbMLOAS
C0IyCRBR+1Au1Z3gEm9+KSQtKDa2F3ilbnfNf546+EHj0KcMa0oc1WfWWNC0
bxoNYsVry2fISi6ppBQkR4KLeAPM1YCGc96nqrdRyFCwi6Jk5OvrDYhAeOkp
exSoUr+JolR3gotoLlxTBqPHGLdS1ZuVAMlnY3UUhSqW7CViP9x0Tlh7jHpd
baPZavP8uJLEU3hi9cH9cCzf/oTJPBNDn1yL+K+Mn+lqxDC9sdc6fvXuUl4p
DY56tojYAE9Gr1mo3ZLhtHuhyPETvvlP52mTseejmZW8H4AnY99fc1y+Gngq
eMWWKsCFb35na2ercmqa3vpbNaW3UnjU3UvvUPcFz0R38rxtmp/NjDK6O1iJ
HZ3SI35rpLlzYnZV2FsXvxZS0pZD3of9xdXJThVthiVqCQ1VmzMSZ+TLPKt3
nnpOMxmuUoR88a3gh5mjAYlthqo6wSXJ/DL/KnpBsfcNhV0ryxQ2o1C+JSFw
Up5qM2ssEMTKGcSK15bPQHRqzshrqNIEtvQEV/Lx9NgR2hBinbY5xWr5JaFM
gkuuvt6AKNiKiGIBPL7sHyE0+bD2yRASt8L3UeUJrt37jlbS8il7lYYybvpe
N4L3dZB8NqZhn4AmDmn/H50hNA/rjENfzERWEvheYvX+jdGu9rEbs1++buAJ
MJiDxTrT+O/tfR09E1/NLa4RvxubnbIc0hmOT8492/dCOBqbwk/lklHvEBUz
Nw56FostM/Z2G5/IFZM5ER7IlSjAlVzyjRhZ34WZPwnxXAmpUDj3DXPfXjpw
OlfPU6CFx26cNtAHnk1j365LXF1UG5oWiyss5OBS2lpISVwO+WC2MxoOS9RK
cFWbMxJs5NWZ1Vs/2JmsPmb+dF6MQi7n0ekIkEKSAFequhNcEs0v+e8SFhS7
/ReS4GILm0ux8LIiJnAqE9Vm1lggiJUviMWXb51taJF8LzIr/aJO7rekBBee
eOTLZLeOjE0/Rm27rkiCS7a+3oA4mEOlIvoqzEUVVMu3UlWf4GKLW5Rtf0N2
5kVThA3JZ2Ma9hW/ec10rd3Xgjb50G1hNKPyRFacZkn7/AW9bA1nvbF9ygk7
YWcnGbXoTPaQEOHQeMQ1QNrouraJuwJiYKbm/KAtuJ3vp5kzO+F7JU4PL9EC
XHj8gXf0CHvBBmu7OB1DqC66LPC3FCGO74/w2/ZE1GNlCsqNb/klaGTuxhe8
o20tAtsrS10LKenLYd8jaF6AK6VegqvKnJFAI6/erN6Nhz4x07av3jwZFN/i
nLxZnJEmkdy+oZoTXJLNb0rSgmK3/8V7QrGFzegc+ggPnMpIdZk1FghiZQti
k4uewcZ9+nsiwBddrG6CSmZUcoJrZ33+rxM9B+lxbjrjmn+OYFSlSIJLrr7e
gFjY0qxeN68XxFdmxtqI1ipnb6Ga3oIEl1zSyoUh7rQWmipqguCzsdvkYhWS
ibCLCAywhiHv01y5RbZ5d14hILb1Q77TEPqaVX2X68G+yITV3Khptn1fTOxy
OzZ9sY3MhLeNfR0TIgjJrTnP9+9Mtkr4XokTBYkT4MpyrOmvYBxyh9EI48sL
nyoLvhNxdnUULM3FN0KT3fQG13DKGXomRtF1c8Fn62kwjXofCNpZS18LqRKW
Qw7xkN3ETBhtCnClVExwVZUzEmbkVZ7V20+955gd5r7tZxG2V+Z+bzE09Lx/
8RTdVFTysFZzgqsE8yttQe09cHXVF3DBNExhM0qHPoIDp7JSVWaNBYJYmYJY
5mpeSUWJtFY5hRq73UwJHEn7VLiYiBmeWIkEbkwNdzKJowbzmGd+HYnOEbkk
VwI2c+bb1f7btX/JkMuWra83IBp8Z8HdT9xA6ZgI5L0Mu7s+c7GJcH+XZtcR
DvOrPcElIWMggafegUMonalxQfDZBN683gzZuwjHWzPgju4vhGZjg3xZHbb1
Q/4LDkxQ3eNe2v+v+OrshIn83ONT9/kPU5LP5r/6HRkYNJgnpgUFBpnZyHd8
LDZWxJNr/+DIZwn7reTmUui2M+NY0zuro2Oe++sqd2xRC1aVJdtIEqerhesH
qB/7bW7qJF3HhR0e+UrIa9zZiPzt8sArBvM71yMCT+tKWAup0pZDBlIrrIm9
oFhndv6kSaeiWoKrqpyRECOPwKzGX0R977Zh4rYYzIUjKifGNHaXfjWmmhNc
JZlfSQuKqbvLP+uoT6c33Shlt1LIStZUk1ljgSC29CCWCoRaaesrUYCL+BY/
Oo5nNLh0r4zNCNNbKInEos9hoxg/12c06LKobep7+5KNh0uj1j4Tpythg2nI
4YusSTX+kuQrC/Es6PqI87BnenK/XdoyNppODY9nvpLDtyi2OUB5EuMAH3Rm
G2t71xfNSVfurIecFgOGmPvLR9UnuJgmR0qWQRKVlgKb8pQdBJ+NuXmNWTz8
17qIA9xO0gXUDvnypZg3g7Z2vgCDccE8ig2sagTfjiLx81dD5NUTQ//kTHSf
OgvHL+tfHb8prAKHoJhJZ++k8++V8NXQdeck5XnGh/uMeozjdeqMAxf4nCrJ
+6PWXu6vYE2Wi1f+HtlA8tioTOxtzrxDHndymn3jz+9Pnei48I0gsX38xdLM
1EATVcaB6U0jztuhpfj+iYUn40sh/59sgx16feew8+6S0A7LJa2FlPTlQEnF
/gfPZCOWh7HvXCbIsV/xLyLS36og6iW4qsgZFTfyas3q/aTDOfeIiankItZm
egFv5vml9JYhEvBO/a67sRYznnUyEsqUHJ9UAa5UdSe4SjO/0hYU/nzeecqg
wwyWL+Zzi5YJgSPnYNq51xmHXMEVlMJ7QYGTGlSPWWOBIFZyEJuMzV2bIvIm
5saceAJr7Dk3/uGn/n8JOGN4Hrn5B57kUvobdQyMvk8GJVN/DinUMYltRScN
g7F7YHji8tVb30VWpek/EkiWrywIlTvF9MZX+4rSbSTTrMJ6dmQhV19vQDLb
K0HXkLGOjHluBSPRWJrFH32XqRmFmPvLCyS4WIkApYTsqE6afHKL6oLks9E3
rwvrhbJd6ngqwJkWNvmq1tkmETxfnBXKLmBak78Fr75tInb0tY3m18cuu77y
pPmLy/Heue4m4o9jLRbb9ZA4C8CYdD6nQ7+ZAtoF7HZAMoTbsljHPnZ6/k6k
YZAKlFWCPq839Dhm0yZ+KfIP91hP2+DVfXufAuDJjYjfeT69880EMD1nRtkz
vPHhU9SRXdqVTN0MijtWK2UtpEpYDrvr/t8xxWmNpuN545tXM1kvrGN8Fp2L
M/yomOCqHmdU3MirNavzgyeeBD02SxO7ftN2Mr0DubjvaADTm85OXg/GsrLT
27E7V5zfPSv+Mfmp5gRXieZX6oLCn4fd54wYdR7x4yIR2T9ZnJ/xTJ416Wv0
bUOO6cgGas5RUOCkClVj1lggiJUcxK5PD5PdebJjimMmOnaqa7f/UOxaJXW9
jQo8ahtNx/KlXCgOHHM/RKbqT2ZKkK9EALn6egOlQUQ+Nz+3DZ+kFiDW2HVm
3Hkz+ER61rWcQIKLdo46xQQqSV0a4f1KygqCzyZsOBgvyffweMxjIfxbXoVP
JtzKr4GJbwdtlPIUNuBdKfioyY3IjMdpGx7opg+JDMbufuvY/3f11ncLEqqe
imhvsg8Gd9LLTjoUdL8/0GYg4qXu4cnrZI23eEhdBd81Ysq8ZmKTXeRWecJx
bTr4y6rQqi0OJa2FlHzLoVJQM8FVJc5IwNdEc1YT17e/8Tg/GrX2d7OFAcRO
7IR19COn55vQozUFAr/qTnClSjG/pSwo7tUeaqd8ctj2uTfwELnUFoHSpqMU
qsSssUAQC0Gs2pQkX6k+svX1BqoZSHCl2ApqZU6+qFMYNPucovhsG4Fxo45X
WICGkR/kqwBnDXi7LbhP55I53OHRwGQbhZe7FVExqQrmwVCMYAHVKGktpNBd
DqqhZoKrSpxRcSMPs5pD1Se4SkHRBYUQggIn1agKs8YCQSwEsepSmnyl+sjV
1xuobiDBRfAi7DiqK9wTUyp41N2LFevIoxIoPhsdCLWOzhS40MG23OU7gKAD
jPxHY3RHlfoe96N8YQVdFq7DjrsWynnFWLB2AUKBHKA6pa2FFLLLQT1U3sVX
gTMqbuRhVnOBBFcpKLigEEJQ4KQiVWDWWCCIhSBWTUqVr0QAufp6A9UNJLhI
6JwwdswZKX69Wwy7a743a3R1na5f0IutEHw2pn9xkS66bGzAc07ECGxyjsbW
g4733JRYAR0b5JUkxXfCU6TpxxpGpvO2R1WMYpqKdEE7R6l176HnTfsMyk1a
AcUpbS2kkF0O6kFsT2oOjM/K6wmEU+nOSIiRh1nNBZkEl9pLQxqKLSh0EBg4
qUmlmzUWCGIhiFWXEuUrEUCevt5A1QMJLhqql3dNs+17Wb0v1eT6sD2EYPsw
9J4Nj3r606FBQ3/+/sKZn9sOTNQTBi5/bw58yd1DHl9kyrPTkfmhIe8yOclp
45nvd/G1wEQH8avlL39lTDrP+Tij6sApKiYOLlsnQy/BxFczpa2FFKrLQU3w
ZPy5qu0VKtoZCTLyMKu5IJPgUn9pSEOhBYUMQgMndalos8YCQSwEsepSqnyl
+sjXARmobiDBxUD18tbVnPY8lc8pUCsRIfVLDsg9G74V/DAdqWDmT+eLCvXS
PWLynVAkFz2DjdnnF4RjPZQ5C6COmfZfP8cT85+aiUZYRy7c+bXMHpcx6flj
A3zzO1t7XXbt98uo+1Sr/UcQMqh2SloLKTSXQ5VTuc5IsJGHWZ0BnQSXVlFk
QaGCmMBJVSrXrLFAEAtBrMqUKl+pPjJ3QAaqF0hwZdh66OqvEdiFVhj4oquT
186oDHLPRp98tY3NrAh4IkpEMfc0EI//5BnpbO/rfYV7NIYv+0e6R/zs7ocK
QnLqt/Fk7Ouxtrr8l74VhxUF1elqz+Xciye7/R4+1mcmvRKzVHfCzq7+yr1z
AQinlLWQQnI5ABXqjEQYeZjVLJDgKh35FxQqiAuc1KVCzRoLBLEQxKpMyfKV
6gN9vQGZgAQXl8Q9h7mep/GEBChxADQLQVF7tt31mYtNupqmsW/XBQYqiZ++
HGzFsCOjN37aSOLJeCzs/4O1zTT0ZWh954nvbLNO12C5+nMC31y4/nZ7v3uB
q4eAP593njJgh0e+Cq0k9vDEcnj68kBTnd70O3fomQorgdXeJB1T46AzEN1M
EvdBlkK3f2819Y5d/ym+RU5O3Suj/l+Tyd++n+zvmLgr9F0BlU0payGF3nIA
UhXpjEQaeZjVNJDgkgOZFxQiiA+c1KUCzVrmYSCIhSBWbUqWr1QdVDuEAtoD
ElxZ4DsPr/bWYIbTN+Q4D3oRsh/W6Uz2UJ4r9mqD1rPR1ctNF8WpTSafzXun
xs50NWK1jaaTI5PXg7EtatzwRPSu670z5kYMa+oe/Us4vu/P4lux4PXJkZOm
xlqd3thjfe/K7XuxhEr2kr41X9N6+e4vM9fsIwPdxnSoUNtofn3M8Z/Ml8KT
6/e9k2/1pf9J3zE4+W1Me1oogGKUshZSiC0HgKDSnJEUIw+zmgASXLIg74JC
AomBk5pUmlljgSAWglgEKFm+UnUQ7RAKaBBIcOWy/dR7rkHXOOhZLPWN4I/c
PfW6A+8FttCz4Ug9G742Z+vEsO7J0AYCT1N+2Jrb/YoKAABULRXkjKrdyJcC
JLjkQr4FhQJaXVMVZNYyT6LRsZALCGKRoVT5SrVBtEMooEEgwbUfylUZBlyR
0k6FiHeLIdpTG6FnS674x5p0zUPeaLVOQabmFhuEZQgAQIYKcUZg5EsBElzy
IdeCUh8tr6kKMWuZ59DwWMgDBLHoUKJ8pdqg2SEU0CKQ4MpL8vH02JGatovT
sRJqIHd/cr5qdS+o7Xvzgsqz7cbnv7AYGi3Oe3GELGx5YbULOpwRzd2eAQBA
UTTvjMDIlwgkuGRFlgWlMtpfU5o3a5mH0PxYlA4EsUhRonylyqDYIRTQJJDg
4oPyv+ZPQnnFPQAZoHq+tFR1YJBitQuwg7Y57QbcAAAohYadERj50oEEl9xo
eEGlKmdNaXsUKCplLEoEgljUKFG+Uk0Q7BAKaBNIcBUg+SzkHu23z6le51SZ
4NHrb1jt/keJag4MMtoFPE1PAAAANOqMwMjLACS4FECjCypVWWtKu6NAUUlj
IR0IYgFZQa1DKKBRIMEFAGrCNr19zbUIZ18AAAAAF0hwAQCALBDEAnKDVIdQ
QKNAggsA1OSpd6CB7BniCKNWKQwAAACoDCS4AABAFghiAQBADzrBddwZehzL
w6+rcQipAEA5kiuzU2eHLnnCz6u6yB0AAKCqScZXf80Xhj0OOY9DggsAACSB
IBYAAPSgE1x86Ps8S2o/IgAAAAAAQAWz5OkrGI1BggsAAAAAAKAokOACAAAA
AABQE0hwAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIBw9hIbTyKhYDB4L/J4PYGL/fXdFxubSSWe
CwAAAAAAAAAAAAAAAAAKgsf/FfBMDnc3YToWTN82MH7l75GNHWF/YnPh5oT5
wLBvbVfhhwUAAAAAAAAAAAAAAAAADsln8zdslqZaHR/6o2PX5mKJPf4/gSfX
73vGjuoNp5yhZ1DBBQAAAAAAAAAAAAAAAJQNPH7fPdSO6TC96eykZ2b+0Rp5
LTEZX1kM+f90ydKCsdVcphGnP7KRzLm1iCfj0blrF8x6DGt71xd9IfpSIwAA
AAAAAAAAAAAAAABIBE/Gvh5rq8OMZz/Lk7mifmQr9t3VEVND5tKi6azd9Vd/
YC4Y/J8Z358/Gx9o02M6XZ1xyB2Ow81EAAAAAAAAAAAAAAAAoGzsrIecFsMB
8/h/LRRLTOGJJ0GyRivf9UWysutuVLwcPQAAAAAAAAAAAAAAAsC3YsHrkyMn
TY21xDbc2Gsdv+KPrIFAEACk8Of3ne++f/uR8MQUkea6+bltmFpQtY2mk8O2
z28Go/G8pV8AAAAAAADFwOOhqZ6OYf+yCh+diIV/eLAqNoxJbi6F5xcF9t8B
AACQyr7NV5917BP3nZ9WCwkjK/Qk4q0lmEqZwZMrc66ho+Zhpz8cIzfgyXhs
ftreb8BaB1334prbke/+5Dx+6mL+fnZ7CSKRd7Zz+PaaCk8GAAAAAAAAAGLZ
2Yh4x80NOp2+z7NU5s/GV7650Fan02ENo3c2hf/azgN3/yGigL35w+CW5rYT
AABohd145PqYudU0POW9e38xFost3r/rvWw11hH3Z4xvuoK/la1oR4q1BFMp
M6SyUHvXmG9fdQq+MjPWptMdtgWfq/NokkkGbXqqn515yO6eDkaWYsREn7/7
16nzvY3E1bHms76nMHsAAAAAAAAAhEnGVx7N373hvGhposUPyp/g2l3xnqE+
vMbqE35AvBuyH6IeueGdmc1yF1EAAFAd7Mbnv7A0mMamH+dksfD4PaeFNELY
kf3/qtDDSLCWYCrlBY8HJzuP8ow4vh2YqBfpy5CATXDl55DFqcGyNAAAAAAA
AKBqYOJZTG/sG7G7bzvP1KmT4MKTS7fGTIcaez70x7ZF/F7ipy8HW2uaTtrv
PAHNEwAAFGHrB3u7ccgbzWtk8OVbZxvIhJPB6okmlH8aSdYSTKWM4KuzE692
Ou7xDTbtWA/ZQ9pq+Maf4MKaTn7s+wWyWwAAAAAAAADK4ImNX2PLG4yADBPe
qnBFEQAAAEl2nnpO1/a6o7y7+xdhx1EqDSDuhjWgSXY3Ax+0mD+d5xXOxl/M
XCCOilodYe0luDrO2e1j1v5uo4E8+eoeGLY5b/4QK7vKHAAAAAAAAKBlkomE
+ufq4hNce9uJl5VyqIvEEEilkgYCAApQ/nX6m896EGvsOjP+xwBPxdRexNlB
VbrUXZh5kXchwgqtFPYeuLpMYzMr/KMZD9lN6blQO+wvLdtZ9qlORAADnph2
/aBAYDECAAAAAAAoCJ54dHviWKf9hy21n0R0gguPek6YBq/8c13jHZzRGQKJ
VMpAAEAB1FmnmXtb/AVaL2ZG66if6XZG8l1cgxVaIeBbwQ9bOp2RHf5x3Pre
1lyj07WOzjyT/jGqTfUqSHDBYgQAAAAAAFAMUqO40WC5GuG971A+xFdwkZ2k
2hraxr6OaTZWRGoIpFIJA8EPnow/I9p5xZ7Fkft2e4mNJ5FQMBi8F3m8Ln4G
7b7Y2Kz0/aQ8qLZOd+87Wmt0hUXdM0kwoy0Yz/cTlb1Cq4eNwHjXoPdJgfTW
Q1d/errU9F59WCAJVhDVpnqVJLgqfzGi7DEBAAAAAKhkqA5cmPmTUBwJqQ5J
GlzpWPHWSJNeo7EiakNQAtoeiDzgW7F7X7tsw32EGgyLwdj3lt19J7Kxo/LT
xf8V8EwOdzOtR6lmDW0D41f+LvTZ8M2FmxPmA8O+Na3PPcVRdZ0mV2Y/sTTV
6U3nPZG8ySsBFVwEFbdCq5CXP9pbT7mjL3n+eWd9btKM6bC2i9OiuqVwUHOq
V0uCK1WZixFtjwkAAAAAQOWTfDw9dgQrU+MtQUgVmd+Nhz4xY6J7iOOJ6F3n
GBGM6dv6Rr+4u5RfvCabvcRSwG2zmhtryd9y/n1xU3p4isYQ4Jv/dJ42GXs+
mlnJ36UtGfv+muPy1cDTYhsPiQOBHulRvuMYeMXQdtr25d+CkSd0H4RkfGXx
x9tXxroNmE7fOXJ1bkWVvUny2fwNm6WpNn+/MWIBHR27NldQlhlPrt/3jB3V
G045Q8+qYT9ZEmis0wII0OCikL5CxVtLWU1lecFXAp/bbJdGrZa+46TaefOw
f5nvZ8mekgeK1DsRe3+/2/72QLeR8HF6Y4/1HYfnu6jIJBIx0B3OCLmy8fj9
a2OnTOnXS4uxT9gv/ZsRwwyW38+tSMxuqTzVNZLgksljVoy7TKHuMQEAAAAA
qAriPzv7anTGt/wxdAKOErooiv46xDl1f9eg8x/R+E5y+aa1Voe1XZpdL7zd
2I75P+g0vfGZP7ya2E0+9Q41YDrDafeCNJ0SRIbgZdR9AitU+/FsZrSV+Hdm
Y1UQRL5UKezG57+wNHQMufiicTy5/s8rg62YrrZp8Op8eesc0rta91A7lt7S
ms5OembmH62Ru2piIxHy/+mSpYUp6Er/wIjTH9nI/Qp4Mh6du3bBrMewtnd9
USFJ3SoH/Sm9veA6To47dmB8tpgxkvJ1xFtLeU1ludmLzX5ht9kunSM25gSd
jjDfk28Exo3Ej9S+7d/Max931ol8dAuGtVs/ux0iFyyeWA5PT/YZMMx4zh1+
nj0QOxuP/rWa3/Lsrvne1I/OvCD++1bY0Ym1j3vvL8aWwtP2PrpoxnDWG5Nc
KqP2VKcTXC8TsXu3r7xn7TM1pl8/1mg69TZKJUAyeky1X7g8oOwx8ZfzUx2c
KmeR1DaaXhsYfs/h9oeW4C4/AAAAAJSB3Xj4L6PdTTVNJydnfxMTIO1uzn3U
jmENI9NrKMVVJSS40tuCiKvXoBN49IyvzdmO9U6F6JNT+oMPWn2/8f/O7vrs
pfZ27tWPJU+fXtimMs9fQ2YIiB5txFs/aAtu53sU5vZTHb2xKoaogUAOMlY/
cHzy+9+KRLM7D9z9h9Kjb+h3L0jVuhEJpdxShxnPfpYnc0X9yFbsu6sjpgYm
PifyYHbXX/2BuWDwf2Z8f/5sfKBNnw7364xD7rDmb8UKp9JMZRa0qLhOVzPg
FrLoxK5Q0dZSXlOpIoxtLFAXtzU7foDYP9cMepf3/wj+POw+ZyTuDF7wLuQU
sFEFPLrcgSAuIb7OU8W0NjNqYl777kboT6NEQRjxJ4zd/daxyc8uWQzSLRIC
U52YWubz9t91tp20fTUbicWJt5DcjAauDBnrdIb+ydmiVcRlQFaPqW13mULb
YxLsxf7nj47/sBG8PzrQoc8qdTZbxy/Z+Lk0+jpRgErTYBr+XFidPwAAAAAA
EsFjN04bmKOpVkdY8G4V3/zO1l5X2lGvIpSU4ErhiflPzRhmGPREi5TB4zsR
Z2fHVJiJspgLPo3D/lXe31m+dfbgCddDzv4M/8XVSQayfZ6Y2GdFZwiYaJyv
p/xu2EGeRhfO/nERPhDIQY6LccgbFbKNIqZEQ3oB1psng8rfMdlZDzkthgPm
8f9aKJaYwhNPgmSNVr4jabKy625Uww0NxFN5ppJDfN7RQ363xkHPorDtv6gV
Ktpaymsq1WR7znaQTF7xafun9jZn3iGzyQfyCL/jz+edp4jCqqbzvryKWPgT
7+ABojlmJqeEvwxNtva6o/kLuO47Wvtci/zXD/GN0GQ3pqvvdIbFzlckpjoR
AWAGizO0nvMMeDLqGUwvYezIhTu/qmy6ZPaYGnaXKaQ9Zl6oTDtFy4g/T046
l+RaZPryACsIoH91wv8YgSwrAAAAAFQkuyveM+wOFuMLifOwGbJ3SYuBlaa0
BBcRP/lHWnS65rO+pwVfxkZgvLPfw76weMhuIusfrN5lvsjledDWlfvG1nxW
om4CO2QPiSyFQWgImGjcYPHknUHbi67XyCn2WqGNVQ5CBwI1tiLOY1jz6PX7
/1ovJGCV/fPEFDjmjChcmYI/v+989/3bj4Qnpog0183PbcMnSZWe2kbTyWHb
5zeD0epra1WBppKBqQLSiVTyEbFCxVpLeU2lmjCpvLpO1y/53xIe9fST+a3m
D4NbOT+SXPGPNRH/1jY2s8LzkpMxzyCW9TJz3nb2py26OoulZ/Gouzf9F2vP
iewcgcZU34v6LrmCm3mf/EXYcZSsoxnx8brpciC/x9Squ0wh7THzsveTs4NJ
VfHeKd4P1RGghnEh3ZOhDa2NFAAAAABoAo62gOGUc/65QIeLP/UQTcQbzvvR
a51WaoKLKjZIv5OmizMF9GHwJ74LNh9zTo2vTY8Qp4q62iEf79WM3ftOi20m
643hL2Yu1BWr+8r/+QgNQbFoPL2DsxjE1r0IHQjUYG4bEdcoTnwVFRD80tvJ
wpMHUJkKNJUk9JVV0dkt8neFrlCx1lJWU6kqTPaJV4AL3wp+2Ex+r9PepVyp
O+ZFFU6oMi6veXSGqBEjptxBvvnGFeAq8NTUXxT3qpGf6gRMZqmmxf4jXxdJ
5VHCY2rTXaa05zHxmMfCHHXwl2XmJbnsHWIvK2KdzkgZb1kCAAAAQDl4ed/Z
1drlvK9elEWxs7Hwne/mt+FV4S2TKPnT2nbHfQRrEkpOcLGXPoSfRO889Zwm
T+aM44ENMZ9EaPwWq/vKC1JDwMiJ8EXjm/5hMqoTKsDFInogVAffDtoO6tgQ
9ox3RcBegz0Rxk64o2rbA4CXSjOVKUr43XKIzG79sC6hKk/KCpVmLSWbSnVZ
9Q83kraPR4BrJ+zsrCe+Vu/Vh7m7XaZSJe/VRS4xT1/G5eUrfsvAFeDih3ai
onwo6lOdhq4D1OlaJkMv1UovKOMxtecuUxr0mHub/reZJBV/WSYfzMiSmOyh
uEJPCQAAAADqQAWl2pITIaEPalHdjMuQ4ErhW4H30pGiruGdGSH153sPXF31
5BH6/jsmhT+HUZXpdC2K+j2khqCIHC4bwQoX4Mr8rriBUB+iQIK9hGA4fUNY
X6vngXGyrECn73WLmggA0qC1TveTXPQMNuqwI2PTkgVhxK9QadZSqqlUmSIC
XFsPXcQEyS8PTohl1QjK6dEJrtoO50/bEWdnyweB/Bf0BAhwUdAmvb7H/Uhc
pSKyU52FiQ90un73kkp5IKU8pubcZUqDHnMzaGtnMlQF+qLygD9y99Qzv15K
jAoAAAAASKLVBBctn5K/3xMCyJHgYnuKNfApmXAgFH1byP2F2MNrpta9ptVx
X8ylArSGoJgcbiLi7JZ+2CpiIJAAj9+7OnRYjzV1j/4xuCKw1Ie9sSL2ygOA
Mmit01ySj6fHjmBirlvmR9wKlWgtpZpKlSkowMVIn/FonuNL7h56G10sp0cn
uHT152y2zlcnZlf5fpwQ4BIgYSakYUo2iEx1PLkSuun8ZOr6jyt85YiZBJfR
FlSnfkZBj6k1d5nSnMfkCnAV6IvKC1egnshIayURCQAAAACC0GiCixZMKHZp
Qj3kSXAxETvW5VooEoJsBMaNksJRttad1k4RClpDIFhOpMMZkRLMCR8I7ZKM
eQbomLd+IpC3azygOdBap9kUym49C7o+9y8Jv4YpaoVKs5ZSTaXKFBDgwncW
3P1kRz++8jk2E6O3BYvU1zEJrvSWu9323SbvbCOqZep52vZx2F5wHSeVvwY9
MWGVfYhMdfqOXsHap0yC67A9JO7GvEwo6jGrwV2mVPSYJQhwkbBlmVDBBQAA
AFQkmkxwMQ3NhYe+ZUemBBdT7a/rdkb2XR7h/tyaj5IN5Rxe78R8tgn/r8U+
gql1r3lTTLMq1IaAkRPhKwygRSewg7Y5Oprfe+h50y5YCFfoQGgZTriuG0Bj
WIESQW2dcsCf3586Xtt2cTqWb39NbMFOi3lmEStUqrWUZipVh7GNuZUeu/Gw
e8hYp9O/OuHnvRy6G7IfEujItgPj9WRFyOD1J4WE1NZmRpuLp8voKiCsYWRa
mII3MlOdeGVU9oH/ciUrgiSi/528KOoxq8FdptTzmKUJcFEllDqWyh4jAAAA
oCrRZIKLkcxFWAhFpgQXG2cWLiNPLnutuYLJ+KK7t7u4fChT6164Q9Y+EBsC
Rk6EZyaz8XbmtgvRAqlVjMCvoIHQNNxwXbysB4AiiK1TFvz5vPNUA192iypR
MBRNgmQjdIVKtZYSTaXaMLaxNqtoajs2+0mfAcOM59zhgpdDaTl0AY6M9XmF
x42sHqkfDxQszmNlwc56YwKvkKIz1ancUW2T5ZPZlfxvgrl9KTx9JzdKe8zK
d5cp9TxmaQJcqRdhx1E2vVXT73mqIWsGAAAAAELQYoKLjs2QFkKRLcHFnrQW
ituZn2mfCtM9sIi27y0CLggwte4iA1HEhoCRE8k/k/HN72ztVDTPXsd4GXWf
ahXXol3IQGiaFyH7YSbsVU0ZBpATxNYpDZHdGmi2OEPr+XMXeOLZvOtUjWiv
JHCFSrSWEk2l2jC20WBhBJHw+C8+22sGXYN57HokXmxe0BfuOJU8+X4ouX7/
q5HDVN1S4TtTRPVIvV7fUkDbfzs2fbEt/bdEKbMhNNV31/yjrUPep7xlbEyG
wXDavaDOOYLyHrPi3WVKNY/JFeA68F5AVEchwo7dOG1g7jdiXfZQsbvCAAAA
AKA51EpwJZdD1yeHu5swHaZvG5hwB3nlWHNhm/sgLYQiX4KL0Xot1MSKDiYz
x+KJeWfvawJCF7Z5ULstKDzOkWMIkmuRO9fsIydNjelQDdMbe63jV/yRNUlV
/swrInaf53JuD+Hxe07L4WN9ZjIiZO4R7ISdXf3OiKjNhZCBQBI8sRoJeJ0f
jVp7jXoystUbuwfetrvvRDa4GQamBAK5BBee3Hg465kcOWVuJB7fYOxJT5Zv
FovuzSuDSjOViajHatAVp1iRT56/LGyFSrOW0kyl6rBSS8RFJDzxJOixWZr0
TRabJyTQijE6XQ0jvny/gSd+C92wWdp6xjzff+98DePkNPC1GdugK5y1TNOv
8Vzjpb9+PXak3faPtf0zOfls/qvftaXnetHSsuynKHWqy+mP0o/z650LXe1j
t6KJ/anQ7ZXZjyhVfxFtQ+V9vHJ4TM26yxTqHpMopWMSVLXFteyyoVrW0hyy
uMJwOxEAAACoQNRIcKUjKNegqXPsy9lINBZ79L3jeI2uru3CNyuCwlk2NpOj
vza+Fbvnd19+x9pnamRihmKkt5lve6P79l7J+GqMYjH83U173yH6p9ve/vLO
j5El6p+WN/JEvEUe8cXMhboiofvu+uyl9KaAFD/ZiUfvTlkOCwtdCDkUMk4S
pQRS4hDsrIfcI6aGfO/2kGXqu+L7960f7EfGMg/MyuGS8XTjoDMQ3Uym8GR8
KXT791ZT79j1n+Jb9xzmep3ulVH/r8nkb99P9ndM3F0XefIpYCAQA99c/Lvz
PJEbMbQNXnLd+sf84hNyHj5ZnJ/x2F9vaz7jYmsk8F9cnXXMa1S0eT1RodEx
JFAadzs2++lAU+3+uYLxX3CrGBAylSlZrCVTnFMcfv0i/ucTtkKlWUtppnIf
yfWFwH9fTb9Dy6v03pl6TYedEUXytUwhTc3R4Q/OdTcebBv80BN8khD3ZrdX
5n5vMdQYet7zzC2uEy4s7e2WIkG/57N3+5qNFtv1ENl4Dl+/O9FWp6sZcEe3
Eis/uoeO7nux6dfYOexfxeP33UOmNuvvfUHKNz5Je81p98dDpgassfe88+6S
OEdZylSX2x9RJJ/OTvY3NJ249OXfgsTiTRONBP/25fgxQ3pRmN+5HhGYvlPg
8crhMTXoLlPIekwubKZdxy3LFATV1IOdPM578YotrgMAAACqm/InuPCY/y1z
z1SI9a1MI3KOIkohmIi9uExtYbZXQtdtlhahG7Us8sVs6TeJNZqO9/GT3tG0
STjmY95PwcsX+Iulu1+M9rXpdQZj35jzblTQFoZppoNZPDERoU4pQ1B0h2vg
zo187Dz1vH6QK11Cy33UtF6++8vMNfvIQLcxHb3XNppfH3P8ZzBGVfATl2i8
k2/1pf9J3zE4+W1MaBlMBkEDgQp7iaU7joFWjNxMeeaf5Ruo3fiCd7Tz31wR
ck6yusfEhDjjXVHoK+I7D6/21vW7HgopBig8WzDDoCcqfhw1AyqmMiWbtcw0
jxPzW4IRukIlWEuJppLzmXT1FLXGDMaeM6OXbAyOq/6IIpvNvQeurnqs0Xxq
2Ob0BiKrIjNbGfDkRsTvsg2zVZTdA8MTDrc/tBRPZv1YbNY5ajHq6xrNVpv3
p9wvlX6Nr7xOFwURVUl/dkwMD5De0WIdtTn+eIt4Rgn5Q8lTXQF/xPmnjYVZ
z+TbaYdEzvraRtPJYdvn3sDDDaFWS5nHK4vH1JS7TCHsMXNgMu0EwvXhsy4R
6wyv2fyPJNsCAAAAAECdcie4ksu+kYOWa1nbUqa9eN3oTPGG2WyLoh73kuRg
PfHIT4iQSAFr7LLabi2UMzhgulNhA94VWf8w00xHpKqM9CHICtfTb/LM6Pvk
/u790TNdmZqQwroQW9/bWo5z7kqwl1MycrhKodhAyA2tIJ1eUm2j3oVCV/l2
46FPOruckR08o8qi42+tVTrJh25LS68rIuC0O7lyZ4KcLQ2m4Slv4OcYtZVO
xmPh6c+s7eR8EZjq0SJImMqUtqwlaqaSZmc99CeiX2EafeewczosPdGkbYjX
2OGMyC5hJnGqK+GPZEShxyuXx9SMu0wh7TFzP5/OtBMctAW3BUz35Fpk+jJd
BY21WGw35nnEDwEAAACgQihzgitvuBWYqKf8tZDHWPEOYIK3ePkgJSaY+4NN
J2xfzUYer5P7DTy9dY7M/mWi5yAdP4ho4aQkrKZoqyMsZxDFdhMT2YhH4hDg
iZ8/7yE+r7Zp4BPfvVj2Ho/UWXJfMJPXdjBeweedp57TdVl9f5jLKWXoDq/U
QMgLuy2qaRq5VfzYHV/2jxwbD6zEPIOZPZNSW5LdNf/5A53E7qDYT+LJqGcw
veMw9E/O5CuwoW9bYAfGZyuz3SMCpjKlOWuJmqlMEYr6Yfc5I2nVDD3/4Y++
qM7UFgkpwFVIrF4qUqa6Qv5ILpR7vHJ5TG24yxTaHnPfh9OZdjLbXkiAi3OJ
uInUbWsbGL/y9b2YSEl6AAAAANAiZU1wEduEukHvct5wS5hgJnNqJrHunbNf
4z2q4/wMItvnp94BUoKj5s0cPVjh4ImVB/d+jiWyhTj6yT+b6SYmCIlDkCA1
PbAjo94H/FcqduNhN1nqcNgWfJ7n39O7/mZT1j+xciJKFAbkIsNAKEzm0B8z
fxISJMO+t+n/XbP91u2MXq5ifeKIC1PtI/7l4rMNX/KebizSRo2YDDXI756k
ob6pTGnSWqJlKsl+kaeo4jfB67GCoQW4ZP+7Uqa6Qv5ILpR7vPJ5TPTdZQp1
j5kLV4BLIJi+7bTNPbsY15rUPwAAAABIppwJLnzR3WvMjW8zLY+FCGayyqWS
uhMmo94hSr6g3my7y6/Oiu9EnJ3U4VyJksLyEA/ajOTTSBQyZbt+c456dzcD
H5DvokVQwoHzxyQNwVbEeQwT1DdqN37/Dz01eTfLRP3PwZzzaFoHo3AXe7ko
dSAUhj30T7+PYyJuzaSNQMer3QfY42iFZIHxreCHzS2ToZfFBY/SA91Qc3zq
fmEdZjLhg/TuSSqqm8qURq0lUqZyO+Y730QtqRqBonMVDVeAS04kTHXF/JE8
KPl45fOYiLvLFPIecz8cAS7spGv+SawwS5HQzA3nRUsT0bWzqfu8s4TOmwAA
AACgHcqY4CK6G9fl7IDwl6HJFtpfn3BHXxb7G8mYZ0Ancde2teA+TZ5cCtCm
zvTHaR0PKHA+Kw42UJTWinpv0/82LYZKH9riydjXY211kjrpSBkCfG16pOGA
xf1QWHAVn3f0YPs3y0T9T8fozDPuH2bkRA5afb8JfJgSKHEglIXdm6e30822
70Vsp3Okv5VKGT2bGT3c614sPt12ws7OVwY9i0VnCyG9wzayryDUNpUpzVpL
hEwlHrtx2kBtges7nWE0d/jlRCkBLvFTXTF/JA9KPl45PSbS7jKlAY+5D64A
l4iltBuPeEbaqG96qG/yroQOOwAAAACgJcqX4CKKq/dduomH7CY6Rsj9p7yw
oazYkAlPRq9ZqNDAYPVEi7aeeR4Yby1heygvkr81zd6CqwsjvspUaANPLIcp
xVH9UaIbuOhIR8LDEEogtYKUl2jICL8l+1SUrP/JvSLEXtp6zbWofAFXyQNR
jO1Y4Eu7zWa7NGq19PV1Gw2vOOaFBs7kNkdEAoRDdrguuU9cETb9w3VCHows
POi9+lDIbCHMV+UluNQ1lSktW0tkTCUh1EPnI3UN5/2VV2QoGmJW60uQg+NH
7KAr549kQdHHK6fHVNpdpircY+6DI8AltgCPbF5M58bU7j6Mb8WC1ydHTpoa
SXEwY691/AqUlgEAAAByUs4Krvjjn5aydwmUig7BgUHvEwEeV+qZYGa7IfAw
nf0g8Y3H5afEYowUGQf+cdzaa9RjOr2xx/rOZfedyIa0mgLxQ0CIfhiHfL+K
iag2AuNtWSEcIYPT2p97M4tR+SiTEFPpA1GYeMTrSAfr41azXmTkjD/19DNH
u1ivu+gFtiy47c51ekFFVqIha2M6XcX/NDHQ3UJlbdLmC4H1KTtqmsqUpq0l
KqaSTpSRyxEBaTIUeBGy9w37lxX4yyKnuoL+SA6Ufbxyekyl3WWqoj3mfrgC
XBI6YD4P2g4zz6xWTSmeXJlzDR01Dzv94VicSLIl47H5aXu/AWsddIm9TQAA
AABUB3uPvG8c5pZOK4X+8BveRyVfNcC3Au8doP5gjdW7LGRjJG3XxlGJEf1B
qm/ZUmUJFIUjfgj2Ht285J4X172HlFXJFOGT97Ma3pnJVfhJrsxOnR265AkX
FmuSi3INBJV2FiFd+yLsOMoszrpO1y/i3jWnMZPos2yhbAZtRwR8HXwnPHVY
sKwNIS4tJGnG81lbIWe/0aCYlSRlTyam5TjcL5upTGncWiJiKjPldun3Px7Y
UO9JqgGRU11BfyQHyj5eOT1mGRdjBXrM/az6WVl7SR0wmV4MJLXnyq5dSV73
bu8a8z3KbYuMr8yMtfH2SgAAAACqHI0luDYC40ba2QpoCkYibdeWOboS/EFL
nj7qRYoOfhQAkV0bRbmENdZ81jpG2oIoKXmlxf5jeeJIfsozEPh2YKKe+BTB
0rUvf7S3sL2Vup2RonfKuHB0hwgxbCU0kymB9DYBAk3xkH1AcEJgd8137pD0
8pi9zZl3GhSzkRQcrfJSKJupTGncWqJhKrlSOUXmR+vrN0r3pFVOWVwSiv6I
A4qPV7bFWIkecz/bc7aDjKy9NC27FzOjdazpKY9saQY8HpzsPMrTN4EewRqr
rzxi/QAAAECFU84uijls3hltoPy18HJrSaHs1uz4AZEfRKhXU7/SMOB9KvSD
lAKNXRtNuRJcRErEbA8Rki3EbYLa466FMqhsFaY8A8HIpAiWrs06mT1oC26L
u24RtLUzvyy2T5xg0vuvGgFiWemlahLSZpFi1T9sEn9TgwuejD8r0oiqFH7d
yD2qlkbZTGVK69YSCVOJL7l72P2vyfqBjR/Hl3cWFVClqi7K4pJQ9EccUHy8
si3GSvSY+9iLODuYtLjEDphZ0mHYIXuofCVc+OrsxKudjnt8mUT60cr6TAAA
AEDlolqCi3MKduC9gNCC/Bch+2GxoSzZak0nKv7h7FA6HWHVBVSQ2LUxSBkC
Saz6hw+Th4zbC67jtYKEtZWmLANBaLCQ9+aEntLuLLn72bBVcNUNA/csu/nD
oLirMUIhgvPit9fwrcAHJsGFB8Q+rn5f77AKpHymMqV5a4mEqeTsI4XfmQIk
Ux6XhKA/4oLg45VrMVaix9xH+mUOMvVbEgS4SLYD4/Xs9y7ndfLdzcD/3975
/bRxbXt8/oB58SMPSEiWJR4iRZHFAxGqzANRIksQpUKIpkKmamSi3srkVEBb
FefoBnLUTKRTo9uQ5tY6rUVv3XNicU98pNAW9/Y4FUSJe+MIrBznB7nQxE1I
gCAHQTAZX894xhiYscfGM95jvp9XMN7Mnr3X2muv9V2fHmz+Ylr2voevsaU0
E1MFAABQ6ZQrwMX+PtadPkgVpMGbcZmU96Nfm/EcF49fCuV6sk6U1aeDL8vu
KWrQjaiIwSifguKIhxgr5xhz/mT97hJ1SoUmEyEI2Cq/pd1UQKKomjbvw0Le
V16tRfhsrSqayTzckT+/P700OdDJhBSeNuLTw+37+v9Z2NlEj2i3VSb1v1uS
sFVmxrCLoygoAG1MEoH2KBsCh6fVYqxEi7mD3QpwJbdmlmqabfv6rueo1Rmc
l39WgmhhwcFGAAAAQJIyBbjYp/4u4RKsIA3eIu4EMy3sld9YLQT769OeRC0R
J2itqgIVoVmOBHfNamRuLIfO1xeQuKIqWkyEmEKjXCJDbIzFcThdpaKYTXEn
VS+juX+qKl+21crEgPljZRlZfNPzqrfc0bJnV6qOhltlUv+7JQlbZXaAq+wp
bXsBbUwSgfYoGwKHp9FirEiLuZ3dC3AlE0/9jixlwEKVx4qGXQmdP9jijq7L
PyuhR3BDf/C5JkMCAABQ6ZQnwJVlag9uk9zZiM/dm4vLpimL1R/KXdmMALLi
j2yq0BDS1SXjKHZ658rR23krhU9Bkd+TOrYYmbHgQBMBerlpNJiITArNcc+M
QpmNzBueQoHOVRZZwZP6U2NqauVy+0zu+Ax/M97mnVMyiNVpd9u+OufPiyQc
49RFy60yqf/dkoStcmPe/z5d1HoExaGJSSLQHmVD4PC0WYwVajG3UgIBLnbW
17nZU6VE3U+UsDQ5cLTL/yhHeOu+pzP1UA3tI/dzBMEAAAAA5ZQlwMXOeNvT
DoZhuzPGPvJ3HcqRYJ9RB1WcYJBxZhTWL2wsBD6p1doHyI144Zg3B0YTCp+C
4uA99j/0OqqODUcI0WHWYCKejDn2c19RgNpqVvFCYVOyEnW/lT6Jq+5bcn3l
qmr7xhdkvyQedjUr+qcTv407j9C1fWNP90DoQNOtMqn/3ZKIrTJLgwsBLi3Q
xCQRaI+yIXB42izGCrWYW9i9ABenglWfCW9RjTkLBkvKq1uuhhPeWbmY6/ri
zaFmmqIbz4zHyt4WAQAAQKVQjgAXO+ttF6z1DmeM63bt8Oc4unLt2HinSWm1
fqaCRlme/OY9FwkJCTxcgyRe5IYQBc6Cp6A4xMKTIhPyVaDgiXi9Gvv1H+5B
R5vFSFWZmx2M79Z8gk2yq8/uTkViUuUNYiNv7tkmFqKBrwfeP2qmaaOl3TEw
cm1OUuFI7CFVmLvOJma/s6Uvo00nvQ/yFFKxy//rPmm1tP05OC/5BWwiduO7
4Qsjk49lvp8X2aBbmJsyIS7u2R7IrwqSeHJj6LiBsnwYiO2Fu15tt8qk7ndL
QrbKeb+dLlmAa9dLbw+ghUkizx5tgbzhaWAukwRZTHZ+8i8Mc67fYet4u9Vi
oqj63sBT2T81d9Vp3WeyjUQV9dndrQAXu3ydaaoWo1uGug9/VBTeYlditwNe
10f2VgsXsTda2hx/HPZdn5VPG94Jl3smvpNsfOo75wmrOfVWpCao1d476Dr3
bxaaNtku3ZxHdAsAAEDpKEOA69Ws9x3B/d/ujG0sjPXU5G4AxKWC8E6GUg3k
jDOj5MiWuecyEFQAJfa+MTjGFso9Fo6Cp6A40h67sd2r5pcURCETwa7OBodP
1tHVlu6vgtH5Vfb16rOpK/1Hm5xXJr59zyTj9oupCNXWgUuujkNtg5dvzixw
n41NXLQdoExvD918vuNpZMneKr8rT8z6u9OhDHOXbyafx5xZs3LCHc+D/Q05
j1fsetTdkvoTphPu6Rc7J5Sd8bTkEyxi43f9/UdoqqZ5KBQn5Z1QFY23yqTu
d0tCtsrNvLvdqw/tfuntAbQwSeTZoy2QNzz1zWWSJIv5OjbxlYthzvW0mtJ7
dg5zJgp5Kfz2XQpwJebG+ixidIuimz8P549QrS9OX2FsB2m6yfHl9+GHqUea
mqOnkfGhDhNNW3q8kW1GfH3p4f89S+x89VJ26gNjf5C/m1mJDLfQTQP+qZnY
XGTc1WFKD8h0yh8rv/IGAACAiqIMAa7MbdSOFupcPsCRvkDuBtfix5V27Mo4
MyZbvpY3mXsuZT6ARoi9b8jpOF/oFBQH38ubfkc+uV1rlE8EG7/tTnnX1AGb
+/aWUEzivtcm6mBInMWyetjRR5zjv2V70exjHydUIekNrkfcLfxZgrK6wkoO
1PGox867l9WNg9cUhCbEMpD9TGhN6rfFa/RqwZWVZDnsOsq56abjzNi9rREq
vgTD8MHYgtyiW5sP/9XZXMsN2PlDTMKRrkg03iqTet8tidkq1x/7TvIBl+oW
z73dvawlWXoVjwYmiTh7tBXihqe+uUwSaTHFBZvjVRR1Cw25byhEMhW4RQhw
ibdC4ueVVAKyLyLeHgtXNnja/2B56wA34uHPm7mLKodvNiveztUhvieVWrYQ
7LeK4v8bS+H/6ueywbjPW1o7Hc6hL8/ZTBRt6vQ+gPoWAACAElKGAJeczAuX
43H00FA4T2OawjVFuSbFnDOTp35BvOciTA2AfRk8zZ9g6vuDRCRwFSXrWgSc
RC3d7tWsD3c+FE/EasTDuet0bbf/8fZQzOvlwEd82YahYXhqR1BA9I13+Or8
99/ztKS+v+ao5+6O80JGCslQz9zI17ZtLTZ+ppGmCggWZZeBSP1c9MDz9bES
ngz3l+psjO/mbFz4dv4fl76jX1+KBty9LfyWUds8OL5nolvJMmyVSV3vliRt
lSu/utLRv9ztw/JSqqVX4WhgkkizR9sgbXgamMskiRZTzLaSz1t7vRz8I//V
+3JKr2/+xc0gXmECXOuL038fbNsvfrba0u2N5L2JYF9Mu09woby6T8YkN3ZO
+3EfN1+biprctUiD5LvHpVZ25FqS7FJ4qJWmalrcEWRxAQAAKBllCHBlZF62
6pNwt3V5cxI4CnfpN5Zv/rkp5XQY7N5Zmc7IaeVqss5racSioVz5LVqjyanq
sd9+oNyZGNkonAgxT0n6Zct47FKeqniYlbnYFcMdkq0G2WcTg1b+e9++OCVR
AyiQeD59+WPeVy8gWCROt1xWTwGnS/GyXrxQNrf1ur65+sMlexVF2/3zwm+9
Xl2KzUz/cnXks97WOuH2mW7q9k7tjcrEDNpvlUk975ZEbZViqkO+EmB2dfb6
9YcyD7qUS6+yUd8kkWaPtkHa8NQ3l0kSLabY7lA+dTOjW1h/PpTnhoL77cTC
L1nyWcqWeWJ5Lvy9eCvEYzzm9E0t5jf3ifmAs477QA4VelHx3pBRgFyaHGjp
lNqgOOWBfApsgs5kVQ8BmzYAAIBKoQwBrswFVlbzaPbF1MV3Dp3+H0XSl0KC
dyHZ2sK1FG2yfTW9/Q6Lk2twdzXQ3A2XJ0Sa1mXKHbJx92m0zUeQrHYRU1Ao
y4HeKoWt3DRB0USISlMpf617TEpOfTnENMm5/eIZTUZHJaMzI6eLu/qvy91N
fA1g51Bwdod47fpS9McL9gbuF4xvDvzjruJgUb5DtPhkFIoJi3IrlGKq6myf
jW2vldgLlGOrTOp2tyRuqxQTPwzHBn9+JLFk2ZXY9ZE+q1m+6KnES6+SUdsk
kWaPtkHa8NQ3l0kSLWam3aGcABe7EjrPX1qYT/olom7cbzwLj7qHGI5zA70d
fEFfhmqL/TSTiz/1O9qzP0LX2c58/VN0SVF6FLsw3lfLfTZ3KqDYJVbIzeNK
Qfd/EpCYoGwBLnmEP1dcd0gAAABAinJ0URQTAExtwxOzsdhc9Bevs62xa2TH
YUoOUXCjIL1NQViANlr73N/fmomleDQzHfQNnbIaDcbG7uHx6BKB1U+c4yrv
wpWNoqagANiVybP7ZHWVy4GiiRAFn+XqMsTGUlIOZMY3lvmvxU5hufqhJ56E
Rj6ycv5tlbn5PecFz2Vfir95hs/2pFOh6IM2ZjRcWFxCLAORO0QLT6YgFaDU
2eGnr8/Y8oW5quo6znwdIHJhakNZtsqkPndLErfKjXh0lNeOq7X2fjkWis5x
TzI1j6Fxr6u3td6Uerw/3Zc/OKux9CoVVU0SefZoC+QNT3VzmSTSYubTghO1
vwztI/elK5czlxpFQxstb9oczs/cvp/Cc/ECdumVqPst/nnmq51MnxooY4dv
Lpl8EWKOyhQYZgtwySMEuNJ/DQAAACgFZQlwJXm/wvsne6OJ8ytae4dG+X7Q
Skm7c1ThkqrZfai547PZ+m4v8xf/5H3iDmsCRf+naqP2wOJhl7WADkeqo+z/
Fc+bciNnYz4b50FK6u6KvrG0mjS7FmLSahpZpXzSQ00sRYM+N9Nr55uVU6Kg
63+MXL3+QNlN7hbyqFhnBlZEcRCbiP82PcbwlVzVRqNB9M9b7b1nh70/hu7O
K2qiXtmUZ6tM6m23JHarTM3g4oNJv3ugu8NqptPrse1954VvruZ9kiouvcpD
1ReANHu0DdKGp4G5TJJoMfMIcK3c93Cy99sV2gkhk/C2WXsogxDg4uZlLepu
Ofjp5LJkh8t8AlxphF2ups37kEC7AgAAQJeUK8C1S4R6BKIu69VAaCetsNuO
pqg6BemrW4Ia3yuaiI2wKy0vJVOXkVEUaWJCOxSjuQ/z3ry0mrQoaaJ5h7h8
4jbiwIo8V4pHoZrBSckmcWCXYKvULSovvYpDvVedOHu0FeKGp765TJJoMXMK
cImifPSR0//8ncAtSux6KdewMgshwEXV9DBMy5uDE8+kay1nPC05cudExIeG
EkUAAAClQ6cBruTLyPAxKp9WgO4RPPaG/uDzcg9lJypOQVp3NE8fNy1RNBGJ
mM/O+31yLZ8Et1/6wlpwGmXuMcViDYp+2/NAS+EjxSpARR6vhGeS75IdFA22
Sp2i9tKrPNR61YmzR1shbngamMskgRYzhwAXu/7A22mipbs9koGorCWrWLaJ
GOCiqOom5rqMOCYnwFWT/51ce+B5my8F7drSSAUAAADYDZwrYtg3MJGvUTJx
cMqWhpRZfMsd1d3YFSJ2sm66GNlNo3nVUG0KONfIkKMPkdYonIiMxy6TcSGW
AGRdWC+Ghs960/ohgtMoKRTMrkcu8mK72b25tUFUAZK7ihXKTLK0nV/f933g
Ci4qE4l6dct1kHuHFNz0giLBVqlPVF56lYg6rzpp9mgbpA1PE3OZJNBiigt2
uwDXRjzi7bZUU8Y3BwOERreSmwl1CrSw1iYHavjQY9foI9kia64FcP5Y2coN
pt5QDscGAABAZcMm4i8KEaIkhxch5jBFGeqZG5V5bBPaSddK9l8mA5WmgHON
KOqwK0yGcLLSiWDXJgd5v8/ChOISPxZKALIqJlYmBg50C3oXghKF1GfZhclB
PovfdMofK1xEazeIKkAySZ5igWFWfQGXTtAwFH6l5J1lX4WHDuYqwgIlAVul
DlF36VUqarzqhNmj7RA2PG3MZZI8iyku2K2pdGuxic87TDRt6fFGXhC9MgVN
fgUBLjHZK1f8io9P1gxM5kyey4iSae7YAAAAAKTCxq6cNNGU4aTvceUZR6Gd
NN38xTTBQtuqTEH66pYUydxCJkJwEaV6QiVmfF28Iu7mT7kj6oFNlZL0/e9O
JQp2dfqLcml3iCpA0qdsdvk601S9tYrq1az3RIPrljJJIF4bmYOk/l+VCLZK
3aHy0qtYSv+qk2WPdkDW8DQzl0nSLKa4YE02MbLHxu+NMcdNVG2zczSqtO9t
+WAf+bv2bckIlfqlxOLU5b7D6e7HMlr6/O/NeFpqjMaD50MrcjOwFhs/05j6
Q6YT7mmyQ38AAACApqQvgKqbXL9WWmaCcA3a6AzOk236Sz8FnGskKzyrOYVN
xHLYdZTekT/Axu/4+lqaOtrfyL6wZp8G+lr7AhmHPX002JarzyZiPzgbq8uk
3ZHR6aWoqp6xhS0uOhu/7bYdfqujmRc6sQsCGusR99FOpfVBGZkUuabqoGRg
q9QXKi+9SqbErzpZ9mgHZA1PO3OZJMxiZhTzuMsadvVRyMfY6ox1NsYXzt2S
kBxEobDavjGpIbOrT8JXGFtjm9N344b7OBfjEuXo2YUg0+WJbO5SGwtjPeZz
f//BeaSJ+WVhZ4VI4vn05Y8baUoHiW0AAACA9qzeHm6uoQx2L4Ftl4tnYzF4
po4y1Dl/XiTf9pd4CtKKIlr3CpQbTMETsXrn264Gmj7Sf+XOUoJNxGORwH86
Gq3d34YX1x+NnaqnqFrbyL9W2eUHox81dXofZKuUsC+m3SdM9OG+y+H51dfs
6tPI+AV7XbXR+rE3/LwMTnJGxZq/rTV3uSdnlxNcUfNc+PtLDmu7c/ROfIWf
feqN/sDvicSTG0OdhwavKXxWYvskBW2bwO7BVqkjVF56FU4pX3Wi7NFOiBqe
tuYySZTFFAW4DMd6P+1pNe9v7DrvCz3SW0rp2vzNSzaTwdR21ndzZnE19U4l
4s/moqGA78t/76i32JjR8DyX3sUuXhtsrOaX2Mrq/C1v9zGbJ5K12BaC/S29
gWdsfMrbbW10XBoLRediKR7NRK6Pez/rttbS5vZP3NfmVgl4bQEAAADiYNfv
j7QbaNPJK0TcYJYCofyk7oxO5IJLOwUvw67DFGV1hSV0OTSmyIlIPJ/2X3S+
f9RMV5mt7/YNjYZiQpo+uzp7zXP2/WYzTde19v8tsrNsgV2JhUaH+t61mqso
o6XNcfbr72/HyuUECirWhoYL1+4Fv3P12VstqUN3lbn5Pefwf4v/FFez4B/6
sCP1I+OhrqGfY0oF/TZzVPIpdYCSgK1SP6i79CqeEr7qBNkjKQgaXhnMZZIY
i/n6rudoDW1uPtHLuP2T0Wd6i2xtwiaWogEP03si9dy5iktLq713cNgbCM/F
E1t+LTbh7rdZjNXmZgfjvxPfIqs/NfzGe0JmaWIh+s+/Dg/22js4bI5+Zvib
q9wTQmgLAAAAyMHaY39PLWXu8s3oJBU8J+zCTaaFpluHwkv68ZFKNwXsQ29b
DbXv7KSsdINW6HIiSgi7FmL2b1WxLumfv+dpSYsI1dr9j0v/94EE2Cp1gcpL
b09QoledHHskCTnDq9jFCAqGK5s95I4iggUAAADshrRzZbJ7ouW/x9wdifmA
s46q7/bP6uwEWqop4Br00PsGJsotJaPbiSgZYoYV3SVcxZaWeb+dFgoUhyPl
nu29A7ZKHaDy0tsjlORVJ8UeyUDK8Cp4MYJC4QW4cinVAwAAAEAZid/GnUcM
jWfGY/q1qxvx6a9sJrPNfTuux0vQkkzBxh33mw7vg/I67DqfiJKQUQFS6Sp2
/b7/wxaj8XD3yB5+yGUBWyXhqL309g67f9WJsEfyEDG8il6MoGAEAa5yDwMA
AACoCNLebPPnYfI7MkuQ7v5zUN9eor6nIE1FTMTuEVSAcjcNB/pE3+u00lco
ll4J0ferTj6VvhhBoWQLcAEAAABg9ySeh739na6bpF64ysPOjv7B4Qo81K84
qYB+pyBNxUzErsioAO13jD0p92CACuh3nVb4CsXSKzX6fdXJp8IXIygYCHAB
AAAAAADyyLQ4PO6ZQRYJAJqBpQcA0CkbC2MfGPuDL8s9DgAAAAAAALJ47LfX
cofshuEIKnsA0A4sPQCATnkZdnX0Bp6WexgAAAAAAABkk5ifuHiq+5wv8gKl
JwBoCJYeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIDO+H8nU+I6
    "], {{0, 178}, {1611, 0}}, {
    0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{1080.2799999999988`, Automatic},
  ImageSizeRaw->{1611, 178},
  PlotRange->{{0, 1611}, {0, 
   178}}]], "Input",ExpressionUUID->"98db7bb3-3709-4c36-b024-cc4749d272c0"]], \
"Subsection",
 CellChangeTimes->{{3.545153640670162*^9, 3.5451536529068623`*^9}, {
   3.5486895262641215`*^9, 3.548689579787183*^9}, {3.550787285060895*^9, 
   3.5507873176877613`*^9}, {3.5507873622593107`*^9, 
   3.5507874498733215`*^9}, {3.5507931273800564`*^9, 3.550793293902581*^9}, {
   3.550795942883094*^9, 3.5507959452142277`*^9}, 3.5594362885952625`*^9, {
   3.5594895181381674`*^9, 3.5594895246605406`*^9}, 3.5594992621854954`*^9, {
   3.709575503291005*^9, 3.7095755131905713`*^9}, {3.7117177558758893`*^9, 
   3.711717777030099*^9}, {3.711855630387392*^9, 3.7118556482494135`*^9}, 
   3.7378073736118755`*^9, {3.738582763085204*^9, 3.7385827644852843`*^9}, {
   3.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 
   3.7467909255028553`*^9}, {3.7468324978528833`*^9, 
   3.7468324981036186`*^9}},ExpressionUUID->"99680c11-5fa4-423c-a055-\
9eaa6b3ccde2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
      "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"Bt", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], " ", 
        ")"}]}], " ", "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"At", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"\[CurlyPhi]", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Bmn", "[", 
              RowBox[{"ap", ",", "bt"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.5451536546269608`*^9, 3.5451537497243996`*^9}, {
   3.5451538022984066`*^9, 3.545153820336438*^9}, {3.548689591473851*^9, 
   3.548689610138919*^9}, {3.5507933017860317`*^9, 3.5507934241220293`*^9}, {
   3.5507934811092887`*^9, 3.550793483604431*^9}, {3.550795897754513*^9, 
   3.550795909852205*^9}, 3.5507959494314685`*^9, {3.5517192411368465`*^9, 
   3.551719243512982*^9}, {3.551725419411818*^9, 3.5517254247731247`*^9}, {
   3.55231622648205*^9, 3.552316228213149*^9}, {3.5594393588258696`*^9, 
   3.559439512198642*^9}, {3.5594895272826905`*^9, 3.5594895375052752`*^9}, {
   3.5594992681308355`*^9, 3.55949931174533*^9}, {3.7117177795272417`*^9, 
   3.7117178027735715`*^9}, {3.711855674636923*^9, 3.7118556941570396`*^9}, {
   3.7119036518000107`*^9, 3.7119036813607016`*^9}, {3.712095469670045*^9, 
   3.7120954747613363`*^9}, {3.7120956766308823`*^9, 
   3.7120956945709085`*^9}, {3.737163741776143*^9, 3.7371637607465363`*^9}, {
   3.737977329658123*^9, 3.737977335915481*^9}, 3.7379793918230724`*^9, {
   3.7385828352513323`*^9, 3.7385828674911757`*^9}, {3.7385834468523135`*^9, 
   3.738583447825369*^9}, {3.7385835220386143`*^9, 3.738583524872776*^9}, {
   3.738583585130223*^9, 3.7385836468607535`*^9}, {3.7385836972116337`*^9, 
   3.7385837036590023`*^9}, 3.74222001333444*^9, {3.7467918697920494`*^9, 
   3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 
   3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 
   3.7468070365364637`*^9, {3.7468336318968525`*^9, 3.746833908725961*^9}, {
   3.7468340247915945`*^9, 3.746834030822856*^9}, {3.7468383208540077`*^9, 
   3.746838321475814*^9}, 3.746838694099639*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"7df00ac7-903d-4712-8893-a3f82de8f111"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}, {
   3.7467922485866156`*^9, 3.746792260986814*^9}, 3.746807037572306*^9, 
   3.746834055321657*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"3ad8f908-7121-4b83-9216-7db74d1823ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"Gt", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox["Bt", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox["At", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKKeS7/WlneOO7NsVJqA9LFi3s12oH0qY81YXzCbxz1
pnCK8QPpkpwXDSDaMHD/ChB9aLWgVGX3G0evs29fgei9V4u/TOt549jyZnHz
ciB9tehY8pG+N44ZhWGxp4F03QIt1dDlbxyfOexckgikD1nzPU0G0mFvf+c1
AWntAs8na4B0xAOlkltA+luRwZryVW8cBZ7HGnZuAvKTF3+8v+2No+3fQ7on
dwDN+R744xyQ3tF3VPMKkJ43TeeZys43jhe+P7HWBdJrTmt81wPSZUU3l5cC
afbTs9SqgPTvCVnHq4G0ErOEQQ2Q/mdiXtwApFdvcNu/HkhX9c4UPAOkdycp
lILob9eSlp4D0rfSA1puAOn9oZ/mg+g5nyUevwPSIpNuPP8KpIWsT2532vXG
EQDYwbyM
  "],
 CellLabel->"Out[93]=",ExpressionUUID->"958b0f81-6080-4ea3-93c4-bc3d74cbd602"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vector-Tensor tilded transformation laws Dia[2][ii][aa]", "Section",
 CellChangeTimes->{
  3.746807398335127*^9, {3.7468414728097258`*^9, 3.746841476141816*^9}, {
   3.746842702353899*^9, 
   3.74684271348251*^9}},ExpressionUUID->"a520df6d-83e9-40b5-9919-\
1340109a0dd2"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztXQlQFMf3XvAAJUoAOTwDQkRAQKOCB6eKSEQBQfGIigaikiioKCCJRxRD
MBiD/DwAwZOI94VaeMRolJhYiMZVLGNAyrsELSVlUpri//23y6mpPWaH3Zk9
tL+qpHB3duZ19zu+1/26x2l60pjPTCUSyXxz/G/MtNTgefOmpUe/j3+MnTN/
1ow5CfFhc1ISZiTMGzC9BT4cjv/8TSSS//+7iYKCgoKCgoKCgoKCgoKCgoKC
goKCgoKCgoKCgoKCgoKCgoKCgkIB9fX1u3btyszMXL9+/aVLl/7991/u658+
fXru3LlXr17pRjwKCg1w48aN/Pz85cuX79y586+//lJ7/c2bN6VSqQ4E0x73
79+fOXOmmZmZhIXu3btv2rTp5cuXSn8Cux4wYMDkyZOfPXumY2kpKPjg/Pnz
fn5+bJU2MTEJDQ3F5//995/i9QhARUVFTk5OMHOlFxgOXr9+vW3bto4dO1pb
W0+fPj0vL2/dunUJCQmwWdJSV1fXHTt2/PPPP8xPqqurZ82a1b59+8WLF6sy
agoKPaKhoSEpKalVq1bu7u6pqamFhYVZWVlRUVFQWqi0qanp6NGjEXeY62Gw
x48fDwwM7Ny589GjR/UoOR80NjampKTY29uvWrXqxYsX7K9gp1u3bv3www+J
8SIQ9+3bF56qR48ecFnojfLycgP3SBTvJsBy/f39e/fuDUuUU9EHDx4sXLiw
Xbt2RKttbGyCg4ODgoJsbW1hy7GxsXxYtH6BFq1YsSIkJATNVHXN33//DcLg
5eXVokUL0tKePXvm5OTI2TjFO4Lnz58bOL9CnB0xYkRaWhqHitbV1SUnJ4Nh
EpVGUIYVIMgaSxhCSOU5oQT7hXU3N429fPmyt7e3p6fnn3/+qZGAFAYB6Dny
Jjc3ty5dusCBOzg4TJ06FbmSsE/hqS2lpaVWVlaRkZFPnz5VegF0lecTHz9+
jGepnXrVWBIjRXZ2NrwZxlrwIabQGU6ePNmnT581a9Yg1DbJAm5mZiaSprZt
2+bm5r5+/VqoB/HRFphYTEwMLvPz80NgFerRGsBwJBEcSCUKCgquXr2qb0Eo
NERtba2vr++ePXvYH4JMrl69GmHXwsLi0KFDQj2Lp7bcuHFj7dq1hpCEGo4k
FBRs5OXlOTo6btq0ib2U0CSjzT169ECsCQ8P509KKSgoGCD8nTp1aufOncJO
qrx69SoxMZGsI+zdu5f9FawYBouvnJ2d79y5w/7q9OnTkIQW4VBwoLGxEeRK
31LoE8guwS29vLx+//13Ye8MJ4B809TU1NLS8ueff2Z/xWR2nTt3vn37Nvsr
WHFAQEB6erqBzzlTyKGqqiosLAwkytPTs6ysTLwHNTQ0hISEuLi4yDn8dwew
LDDYrl27Hjt2TIz7I2hevHhRcWr36dOngwcPhtn27dv38ePHct/+8ccfrq6u
qampfCZp+WjLo0ePvvjiC3d3906dOkVHR+sxndSjJLW1tR4eHub88P7770PI
UaNGIft++PCh2pvfvHkTo3D8+PF79+65ublhOESyKWjsmjVrWrRoYW1tDT0R
4xGGD3Djjh07Ymh0vOZ44cIFKIaJicmKFSuUPrq8vNzBwaGwsJBbMD7agjx6
zJgxOTk5YOYnTpywsLBAoOeZUJeUlEA9IKqNjY29vT1sDS6uW7duIAn4Jz7E
V+ASGRkZfKbEtZFEe+BBcGubN2/Oysry9vZmKjaHDx+Ofi4tLd31Brhm2bJl
kyZN6tChA1mYjo+Pv3//vqo7w7vOnj0b1oTBunXrFjoHPSOSTVVXVzs5OUGq
du3a/fTTT2I8Qi8A7V+yZAmiWF5eHrcugZ327NkzKipKx9UvYL9Tp04lofbu
3btKr0GYBk+2tbU9c+aMqvvw0RboakJCArg66QpwdQw3Wg0z5yMqItSePXu2
bNmSm5sbFxfXpk0bourw9sjNYYDFxcXQcz6LHVpKIizgrt977z00BC06cuSI
qssgMxqIjsWVcO979+5V6kWlUmlwcDBhDugrmLmvr299fb3gYmPEZ8yYQYag
devWcisURg0kqi1btkS7QBo50nb0wKxZs+zs7Ni1tToAoeVmZmbdu3e/fPky
x5Vw7wgKgwYNUmTRBHy0BToJ+2I+LCoqQueAn2tQ4QBPgh4jOuPn59fcOwgo
ifZA5gKegIa0bdsWXIX7Yrj3IUOG4GLQA1ixouXW1NQcPnwY7gghA7waVy5f
vlwM/gaKAk9OSi5B1TZs2CD4I/QC9NW3335LVGvOnDkcuSFYKLw98iwdz9me
Pn0aMRFstrKyUu3F69evhzGiRUp1gI+2VFRUQEXJ32jpZ599hssSExM1aDXu
/NVXX5G+/fjjj+WWtNRCQEm0x2+//cbfbAFQAh8fH3I92AXHbZFTgFpzO2TN
0NDQAD4PrUbSTUbh66+/NpaCUrV4/vw5Qs/u3bs59ArXDBs2DKG2qqpKl7Jh
NJ2dnQMCAuRmj1UBbAEBFz8BB+a4jKe2PHnypF+/fvADW7dubZ7cMkBDFi9e
rLHZCiiJ9miu2ZKfkDJsFxeXGzduKF6A/vnyyy9xQWRkpOAJO26OpG/gwIFk
owcZBQQdAavsDB8gG0htxo4dq8tFlmvXrvXq1euTTz7hn/UwAU7VzFVTc7QF
Rm1lZQXrVpqK1tXVTZ48Gd4sNjb2hx9+gGUpPojbbMFtSktLkbYjKIwYMWLH
jh2aSaIDaGC2MJCMjAzSfAyiouY8fPgQPha+aPv27fjnixcvBJxMht/GzdG9
6PaIiAgiBhRY44JwowNaGhcXh4x+586dOnsonCTiS3JyMggt8yEsZdKkSdxz
MlAwaDiGTNUyBH9tQU6NtAgeW2kNMMhqWVkZUmmiEkFBQXI5NbfZ4ttVq1aR
tMvS0nLp0qWPHj1S1ShuSXQADcy2SeZtkFriV/jt+fPn5b4FwTMzM+vZsyeZ
ZkRwXLBggSDREBqLwAp3CuVh8gsAGfe7s5dQKpWC7Tg6OiI31M0TQYlBjJF4
yvnGM2fOICflnpMhK7zm5uYHDx5UegFPbcFwx8fHq2VWtbW1rq6uuKxly5b5
+fnsr7jNlinXxA+RknO0iKckokIzs4WNkLkpALbDzsrx98yZM8mMChoFdxQV
FXXq1ClBpMV9kM+SciD2KChd9H9bAaWCqx89erRuGDIMATY7ZcqUI0eOHHsD
/L1t2zbIgGjLzXOgAwsXLsQYQSsUZ2/4awuTTuK5HI9jO3O4d7Zs3GaLRsEE
SN0X985BnpKICs3MFj2cmppKekCuSAlfzZ0719TUdOPGjfg7Ozs7MTFRkAwX
fhsZB3qecXHwzCYmJhLZsVfvSKEUlA0ZAZr8zTff6GAWDhGQmUBQCgyHWjEQ
T0HplbpW/tpy6dIlkG1wPLVlAN9//z2RTY7Ecpvthg0bIAa+Qnu595Xzl0Q8
aGa2QGFhIWmm4oIvmgPOg2FCag+PJ0gcRJ8jyvj6+rIzKWS4cHqQoUOHDtev
X9f+KfoCWCjCVteuXaEMsEqOeVo0H30LVrlv377mPgV9ePXq1dzcXIS2CRMm
xCrD+PHjExISSPkK7GjevHkcNgs+uXnzZrXPvXLlCilVUrrEzFNbCgoKwDGQ
uqpdJ0XiSTTTy8uLvfDNYbb4auXKleSrsLAwbhrDXxLxoLHZ7t+/nznpUXFh
DiwaOS/GSyjyD97Su3fvkpIS9odMrUj79u3PnTsnyIN0j2vXrkEH1q5dC0XC
EFhYWAQHB6ua6yDr7LAC9C3/R2B0cGdmukYtpk2bJuByJGzH09MTDlbV3Kxa
bYEwn376KQSbPXu2Wo1inDlyVXYRF7fZktlsICYmhoP2N0sS8aCx2ZLiLtJS
pWmLgMDNk5KSEIbk5p0QO0BXIIC5ufmBAwfEE0A8gI9FR0czRcWIRxgOjIWq
8wOh+dBJOYXkxvPnz1NSUogm4/8eHh7Dhg1jDvcD4A+j32DcuHFIRTmOF9MA
jY2NQ4cOlWixvE5mm8G0OUoFGJSVlZEs9YMPPmDP2nGYLeHq5Ku4uDgOZW6W
JOJBY7OtqKiwtLQkLZXL/QUHOJubm9uvv/4q9zkGpVu3bhLZEZog7ZrdHAYS
FBQE1fXWGn369ImKimrWCTwww4iICIZuQRlay6BUK6B4WVlZaC//klHYLKkf
xvhmZGQwv4KiHjp0iFSrcgR3QQDdmDhxokRh9pIDYCAIajk5OUSvEEBB7dC9
fDaz/PLLL+RgVQcHB3aZB4fZQqrp06eTr9BLbN+ijSTiQWOzZaoiAeiqeGYL
lUYng8MochLi+ogMGk/RIDEfPHhwr169PLQGqGB4eLjSEhSlAHmIjIxELkb+
CeVBXom2gAMrLR1ED4Cb4YLQ0FA+s3zQTKSxEtk6ndLTYzZs2ID8FLT8xIkT
PGXWABB7/vz5EGPkyJF8Zr8hNtnM279//ydPniD0u7u729jY8DzB+Pbt2127
diWpE3t1ksNs0ZkhISES2RYDtv/XUhLxoLHZokOIT5PIii7EM9v8/HwfHx+l
nBChJDAwkMiQnJxsdIVSyObgMZg9m3fu3CFLh1Ahct6aHNDJ6GpcADbLp8N3
797dpk0bEOOCggKlPu369et2dna44cqVK8Wbl8adlyxZgqfwLLzHOC5YsAAW
lJiYmJ2dDa4LriW3T58D6DrwB4lsxqy4uJgthiqzZRZt5ebNtJREPGhstmS/
IemE1NRUkUwGKg1ComqBDKqLQE9kAA0zukIpqVSKpjG8cevWrTAxKImq5X6m
vWpXS5tkG3C8vLwksqlRVSsaUFeS5IpaEg97ARfCU/r166dYc6gUCMolJSWg
Funp6chVmzWy5FAOsjIYHx/PtIvDbMvLy4ky+/v7yzkWbSQRDxqb7fbt28ks
B9SMoXnCAh2OGIq8FSnYBypgbm5OBgIRyqjPIoPwxCSRrasqvGdOcEIiptbK
1q1bh3DDPVkHPknSW/5Zp2Yga6kcJY7Corq6mkx6ODk5MbUTqsyWKflQWx9l
ONDYbMmptoCVlZVIWz7Pnj2LWLB06dL/qUBeXh5TlkyyDzHE0A2qqqpIvWhc
XJwql85E26lTp3JbGUIGKZP46KOPOGprz507RzKdRYsWiVq8kZOTo0uzZY6E
RcyF/hAqqMpsKyoqyCkQQUFBxqJCmpkt9Gf8+PGkB5BHiPHSPdxz1KhRaWlp
3PQbMYXQIeQmoHyCi6EbQKMyMzMlspUsVbW7TawpWbVT95WVldbW1pI3RYOq
LsvPzweZQZTZsmWLVg3gBNM6XdagvnjxgkwOW1pakhkkpWZ779494t8QnQU/
Q088aGa2tbW1zs7OEtk6oEhbDkG8EUDVlizu2bOndevWkMTOzk6z1UaELfCo
y5cvV2oN3ARqoEHYqq+v9/X1RSuQyHMER2atPzIyknu7aHFxMWINR4VDk8wJ
IEfG3ezt7UWt02O27wUGBiqdahMJeBZyUjglWG5RURHaK2e2GK+BAwfinx4e
HjreuawlNDNbsnCAX/n4+IjBK2pqasDu+JRqM1UfGBqwHQ2e9d1335F4LQg0
O9iKmRKBejNW/+DBA/YuuSaW/oPhcOx4YqIb+kRxsZsB43vHjRsn6q4E5jSY
0aNHa7M5XQOgK9C36C6QCvAxhHsyTPh75MiRcPhI7UHgje4dzRqY7d27d8lq
KVT08OHDgouEUV6wYEFMTAyfvXjXr18niUmbNm00E+b+/fvwD6rS52YBjH3/
/v1ytsanvWRKBAPBHHuC5BQhVdEDEFrLnSQyM7edOnXi2MwCgRGRFc9AFhwI
c9HR0RL9HeHSJCuOLSgoGDBgADFbR0dHJL+ItkZ6DHtzzZacXyeRFSYtWbJE
jHWfM2fOuLu7c4QJNhAyyPmNPMvaDRBIBMgqzJAhQxgOeeHCBcQIxSPgysrK
4KC6dOnCfUIvclV0CMdlsHoSej7//HOxIyCzvA5iI+qDuCHgoTR6R7PMFuFv
zpw5oJSwWfzR3LDCB1AnpBv83TIywd69e5OxWLVqleDy6ADMCjjkJwyZ7Itk
b1FkIJVKbW1t1W6dQK6KjBUjq3SaBeEvJSUFTwwICOBIpYUC/BLYOPfRoDrA
22S2CG0kN0SvcrxBAE2GnvTv318iO+B02bJlYrQawSU8PLxZJzE2NDQwzGfe
vHlGVygFHDx40NzcHJZ78uRJ8glCrb+/v9La5vr6eh8fH7Vr5TDM+Ph49GR2
drbcFBm6CGTezMwM99HNe4dJ+TpCv35fc4yGJyUlEVXhnhwwTMDiLl26BCVB
ThcUFMRMp0ycOBEB9xcWcE1RUVFaWpqHhwe5BurEk74iXP74449gR2CAPXr0
QPpWV1eHJyK4yCkSVBEeIz09nXnBt5ubW2FhIccpwS9fvkQaiLtBZjI5JpHt
+Ni4cSPywdu3bxvRQY6QFsGIKaCtqakZPnw4rFJpE9CroLUSHsWcSB9Ag5He
sg+LQFfDubVq1Wrs2LEcx9QLCwwl/AwaJQY948bjx4/hA0+fPr1///5FixaR
/WKSNwf1l5aWQhuh5+gr/jdEbtirVy9XV1dPT8/8/HwMX15eng48EvIduD7+
s6PgWt7e3nPnzgXj4mkOoF4xMTGI47AjeH5Y2cKFC2G8YNdDhw5lDx/zWjeJ
7MRjssGZgOPkBHIGl0RWo4UhgOWyZ4PhK4zoBd9oY0lJCToZIQDODV29du1a
jhyBHBYBjqF22w7YaWxsLOJ4REQEWDdcnJ2dHX4IHdYZLSEH1kmUbcrWARg9
YQAFk/tEom51mwH8qouLC6yVzBzCwQ4bNoxsW8jJyRG/NeICLj0sLAzWBF/E
jNTdu3cRQ9FAEBVjpLJiAya2Qwa1G2lxAVw9/+I0hBLcNjc3d9euXTzPNxYQ
oEyITcjHxTgxW5cA1Qd1cXR0ZK9x79u3DwkOx/5oYwFMEmyEZP3stXWwC3A2
PZ4I/daA7IMDu8jKyjL8XODAgQNQbAR6o54CAnv09fVFmCZvLGI+J+erdOvW
zdjfKQ+n6uDgwBx7y6CyslLvB2e9NUC20qFDB9BdMd6vJCDAkKdMmaL3OWQt
wbzb0cnJSc48SWX+iBEjjHobCxq4fPlyiazCU46PFRcXIwPV78FZbw3IhADM
Qenmd8NBVVUVfDgSQKMedGZfRmxsLJszMJvoly5davi0hwPwOfA8iv6HKQR6
1976IR6kUil8Y2hoqC6rfJsFMultaWlp7K8xRVeD2yAryc3NZX9O3slr7Fyi
SXbyM1nblds4T0rlmcQW7ktnqw9vK8i7kCwsLHT5SpFm4cKFCzY2NsnJyUZa
QMgAbqddu3bIYeXOXT979iw+ZxLburo6o1sLJmhoaBg4cCD8EjSK/fmVK1ds
ZMAf0Ldly5bp5nTutxuNjY2TJ092d3c3wPkQaMLQoUORfevlrc3Cgpwpp3gW
9+rVq6HqISEhGAi0NyIigmdJg6GB2VmGFJ75EGyZvDOFbNl+9uwZMgJ4Kj3K
+dYApGXw4MFTpkzRfSUDB6AGSPdcXFyMazecKpCTpqytrdmzqbdu3SI1SCkp
KSCWFy9ejIqKMvAZQg7AHq2srMLDwwlhAB9GggOva25uHhAQAJs9evTohAkT
DDYjMzpAl7y9vTMyMgzkmCOQqKKiou7du5eXl+tbFmEAq4QXatmyJXOcNUgj
uATCEMw2MzMTPZ+Wlia3NmRcgOSHDh1ydnb28/NDFOjbty/aBQqRnp7etm3b
0NBQmLDiS/ootEF1dXVwcPD69esNQW1grb6+voZwvKGAAJlZvHixra0tiGJk
ZOSgQYOOHTtWU1MTGBhob28fFhYWHR1tLAfacAD+Bx6poqKCHVWR5iAWvzuv
xtMlkInwf0+BqMD46uutr2ID1BF57rVr15hJNgRiqVSKlNaoi0koKCgoKCgo
KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKIwU/wfA5Wiz
    "], {{0, 70.}, {317., 0}}, {
    0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{317., 70.},
  PlotRange->{{0, 317.}, {
    0, 70.}}]], \
"Input",ExpressionUUID->"9b2fca3e-dc0b-42e1-81f6-bc0cccb7ac92"]], \
"Subsubsection",
 CellChangeTimes->{{3.4409027728125*^9, 3.44090277759375*^9}, {
   3.440902810171875*^9, 3.440902916953125*^9}, {3.44244004875*^9, 
   3.44244009975*^9}, {3.4429691378125*^9, 3.442969168609375*^9}, {
   3.443708024953125*^9, 3.44370804159375*^9}, {3.536754825460047*^9, 
   3.5367550087245293`*^9}, {3.5451486439623666`*^9, 
   3.5451486519678245`*^9}, {3.548688769506838*^9, 3.5486888065069537`*^9}, {
   3.548688855820774*^9, 3.5486888860005007`*^9}, {3.5507857157431355`*^9, 
   3.55078577649561*^9}, {3.5507950978337603`*^9, 3.550795109476426*^9}, 
   3.559436218390247*^9, {3.5594988398383384`*^9, 3.5594988412624197`*^9}, {
   3.656720940415642*^9, 3.6567209412857*^9}, {3.6750032306542063`*^9, 
   3.675003231207218*^9}, {3.711717036931768*^9, 3.711717043384137*^9}, {
   3.7117170774990883`*^9, 3.7117170802582464`*^9}, {3.711717111392027*^9, 
   3.7117171461800165`*^9}, {3.7117174710806*^9, 3.711717471329614*^9}, {
   3.711854506059084*^9, 3.7118545120154247`*^9}, {3.711903325602353*^9, 
   3.711903326224389*^9}, {3.71209560910502*^9, 3.71209560910602*^9}, {
   3.737289925753502*^9, 3.73728992712158*^9}, {3.737807642399249*^9, 
   3.737807643374305*^9}, {3.7385814169802113`*^9, 3.738581418650307*^9}, {
   3.7467907692860627`*^9, 3.7467907703835845`*^9}, {3.74684150486271*^9, 
   3.7468415294050355`*^9}, {3.8312211789610977`*^9, 
   3.8312211794320745`*^9}},ExpressionUUID->"8b83c48e-1d53-4f42-a5a6-\
09f8a684d0d3"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"A", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "aa", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4409029566875*^9, 3.4409030128125*^9}, {
   3.440903077125*^9, 3.440903094765625*^9}, {3.440903156609375*^9, 
   3.4409031876875*^9}, {3.4409974896316195`*^9, 3.4409974934284945`*^9}, {
   3.4410603871875*^9, 3.441060394875*^9}, {3.441060997*^9, 
   3.441061003453125*^9}, {3.442440106640625*^9, 3.442440142109375*^9}, {
   3.442456105734375*^9, 3.442456108171875*^9}, {3.44245843034375*^9, 
   3.4424584311875*^9}, {3.4425045583125*^9, 3.442504558453125*^9}, {
   3.44250978125*^9, 3.442509781921875*^9}, {3.442511222109375*^9, 
   3.4425112223125*^9}, {3.442671207703125*^9, 3.442671226921875*^9}, {
   3.442716458734375*^9, 3.442716501453125*^9}, {3.4427167659375*^9, 
   3.4427167681875*^9}, {3.4427168285*^9, 3.442716831703125*^9}, 
   3.442963727140625*^9, {3.44296778709375*^9, 3.442967801515625*^9}, 
   3.44296786928125*^9, 3.44296791190625*^9, {3.44337453471875*^9, 
   3.443374535359375*^9}, 3.443397844734375*^9, {3.443708071921875*^9, 
   3.44370808871875*^9}, {3.506778268335153*^9, 3.5067782693842134`*^9}, {
   3.5067791460963583`*^9, 3.506779148675506*^9}, {3.5206470793953767`*^9, 
   3.520647081443494*^9}, {3.5367550519530015`*^9, 3.536755388956277*^9}, {
   3.5367556803421416`*^9, 3.536755681403202*^9}, {3.5367561000631485`*^9, 
   3.5367561435796375`*^9}, {3.5367565949394536`*^9, 
   3.5367565968755646`*^9}, {3.5451486580581727`*^9, 3.545148738990802*^9}, {
   3.5451488141070986`*^9, 3.545148888144333*^9}, {3.5486889386755133`*^9, 
   3.5486889809849334`*^9}, {3.5507951332147837`*^9, 
   3.5507951401591806`*^9}, {3.5517190796328115`*^9, 
   3.5517190822599616`*^9}, {3.5517253676208563`*^9, 
   3.5517253699409885`*^9}, {3.552315908057837*^9, 3.5523159098339386`*^9}, {
   3.5594367136555743`*^9, 3.5594368087460136`*^9}, {3.5594988442295895`*^9, 
   3.559498845916686*^9}, {3.656720957837866*^9, 3.6567209581638837`*^9}, {
   3.675003233844677*^9, 3.6750032345775423`*^9}, {3.7117171399576607`*^9, 
   3.71171716127888*^9}, {3.7117174931208606`*^9, 3.7117174939219065`*^9}, {
   3.711854517913762*^9, 3.7118545309225063`*^9}, {3.711903330225618*^9, 
   3.711903330575638*^9}, 3.7120956100350733`*^9, {3.73716040537171*^9, 
   3.7371604164821353`*^9}, {3.7371604653306093`*^9, 
   3.7371604863951163`*^9}, {3.7371658278287888`*^9, 3.737165828234808*^9}, {
   3.7372898882003536`*^9, 3.7372899191761255`*^9}, {3.737807817687275*^9, 
   3.737807911420636*^9}, 3.7379793842276382`*^9, {3.738581430790002*^9, 
   3.738581448455012*^9}, {3.746790941763169*^9, 3.7467909620381284`*^9}, {
   3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 
   3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 
   3.7468069922880526`*^9, {3.746841653863949*^9, 3.746841681766311*^9}, {
   3.746841728335345*^9, 3.7468417291903343`*^9}, {3.7468420911938596`*^9, 
   3.7468420933267975`*^9}, {3.7468440951775656`*^9, 
   3.7468440964638643`*^9}, {3.831221189283208*^9, 3.8312211942181845`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"583ceaf0-426e-46b0-b0f0-72896b78a85d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"A", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
  3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 
  3.746807004048191*^9}, {3.746841684663064*^9, 3.7468416847338424`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"25bada80-2b79-4353-8599-bf8fd0b03b40"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBmKR3o+MbSxvHGemWSuB6PK5fRrtQNqkdFsWn/Abx/ny
CmL8QDrntmgjiBZacm0FiGbXFJGq7H7jKJLMVgWif9979wpEdzuUfpnW88bx
X+DS5uVAet+n48lH+t44hhWGx54G0rqbzVRDl79x9HLctSQRSBfwCjxNBtJa
uf/ymoC0hLb3kzVAOuqBcsktIL3mk+Ga8lVvHBmexxl2bnrjuOjdko/3t71x
dPp7RPfkDqD+nOAf54B0Nd9xzStAunCa3jOVnW8cd5Q/s9YF0oqt2t/1gHRP
0e3lpUBa0nuuWhWQnjEh93g1kE65LmlQA6Tz2CyLG0C0usf+9UD6HMdswTNA
esFvxVIQzaSesvQckP7vF9xyA0gH+X+dD6L7Pks+fgek1+TdfP4VSO+1Or3d
adcbRwDLS7YS
  "],
 CellLabel->"Out[95]=",ExpressionUUID->"2d88c12c-b7ab-45d9-9255-b084c3a7e244"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", 
  RowBox[{"A", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
  3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 
  3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}, {
  3.7468416868709745`*^9, 3.746841686994643*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"0bf1836a-767a-4d83-892f-54ee28770165"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuID0p8Y21jeOKZfsVYC0V/a+zXagbTK0W1ZfMJvHPf9
VBTjB9ICCpKNIPpXwI0VIHqJmahUZfcbx0UN7FUgeurC969A9Cmesi/Tet44
zixd1rwcSG/+dCL5SB9Q34fw2NNA2mKzpWro8jeOnyR3L0kE0vHOgk+TgbRk
7v+8JiDdlu3zZA2Qtn2gUnILSF/6ZLSmfNUbR930BMPOTW8cL+ot/Xh/2xvH
a3+O6Z7c8cYx4EjIj3NAuq3vuOYVIB0lZvBMZSfQXd+fW+sCafOL2t/1gLRN
0d3lpUD6kNd8tSog/USg4Hg1SN1BaYMaIB3iZlXcAKT3rPPcvx5I74udLXgG
SE9pUioF0RlrUpaeA9JZC4JbbgBpC7kf80F012epx+9A6hlvPf8KpF9Zndnu
tOuNIwBUpLyb
  "],
 CellLabel->"Out[96]=",ExpressionUUID->"3519f588-3066-4835-a7b6-79bdba7c6e5d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztXQlQFMf7XUCi4AGKB6eC901CvFGUeKCIiiDgHVBUvBWNiPd9oIgnHiiC
Gu8romihokQSRVMoGq/SaLQSEy00lmBpKknxf9n+Z2p+s7uzzczO7Ir9qpLC
2Z6Znq/7e/2+Pr1GTA4Zba3RaKZVwP9CouL8Y2Oj4kMd8Y+wSdPGjpk0KrrX
pOmjxoyKbTfCBhe/wH/HrTSaf/8uYWBgYGBgYGBgYGBgYGBgYGBgYGBgYGBg
YGBgYGBgYGBgYGBgYGBgYGBgYGBgUAx//vnnxYsXExMTExISsrKyXr16JZ7+
77///u67716+fKlO9hgYGCwQZY833r9/v3XrVldXVw0PFStWjI2N/eWXX/Te
8uLFi5iYGG9v7xs3bqicWwYGBktAmeSNgoICPz8/W1vbgICA5cuXp6amxsXF
+fr62tj8u9CvSpUqs2bN+v3337n04P8NGza4u7t37979559/NmPOGRgYzIWy
xxv//PPPkSNH3NzchgwZ8tNPPwl+zcvL6927t7X1vyumrays6tev37Nnz1at
WlWoUMHBwWHlypXFxcVmyTYDA4MZoSZvHDhwoGrVqsHBwX/88YdJP0IPcnNz
P/3006NHj+ID9SbA9W+//RZfZ29vT8Qw8jZ69OgHDx4onTeGsgeEVyrU6g8L
sImh63///bc6ebh69WpoaGibNm3q1q3bokULo96tGm/8+eefAwYMwO0dO3Y0
2i0pHzD4u3fvKFM+fvz42bNnhiygF69fv/7yyy9hin379knNI8MHD9SxdevW
+fj4wN3s7OwqVqzYuXPnjIwM0/r79evXvb294c4PHz4USaam3jCKN2/e+Pv7
Q0GNHTsWJjp06FB6evrChQsRUdarV++HH35QJxvPnz/fu3dvSEgImAdExw9y
9UJp3uDj7t27iLIfPXok7XaLAqqoo6NjuXLltm/fbu68MJgHv/76a1BQUGRk
JAms4CCnT5/29PSE64WHhxcWFprqRQkJCXimu7v7vXv3DKVRWW8YBTjZ19dX
o4NatWodP35cModIAMolNjYWrx42bBispNp7PypA8x85cuTkyZPMwh8nUAFi
YmLGjRsniAqvXbvm7OwM75s0aZKp6sZvv/2WkpJy8+ZN8WQWpTfAh5DKbm5u
0MywBpRDo0aN5syZY1ShmRxQql26dLG2tt60aZPKr2Zg+Ejw448/1qlTZ+rU
qVCJ/Ot//fVXdHQ0GACsiDTmyp7ZAT7s06fPuXPn8Pfbt29V6zDUxf37911d
XR0cHC5fvmyuPDAwWAgeP368fv16k3epnThxokKFfzdzB/uBA/k/bd682crK
ytbW9sCBA/zr2dnZ+/fvFyQ2OxSyD58PaaCccQ4fPvzJJ5+0bNlSfWmqi+fP
n0+YMKFp06ag6NDQUAsR8wwfCW7cuPH5558jijS5Prl69WqNGjXAh/PmzRM8
PC0tzUaLnTt38q8/efLEz88vPj6essdeBShnn9LyoULGwXfNmDEDxTRkyBCz
d209ffo0JCQkMTHx/fv3Z8+erVix4oABAyCezZsrOUApT548uVmzZrVr116w
YIHlVGwGXSBcRUMMF1PIER4+fHjlyhWBpPnnn38WLlxI1jLossGtW7caNWoU
FxdHkyWQVa9evRo2bNiiRYtTp07pTSNHbyhqH44P4e8IVLdv345mAqGryC2l
Mg4lSOch5PrSpUtnz54N8m/SpEnr1q2hRVUO4WGHUaNGJSQkkPfm5ORUrly5
cePGgv4WkwNBiqOjYwUK2NnZOTs7t2rVavjw4Qh/jJIbvmjixImgwaKiorFj
x0KEHzx4UEIOYYEOHTrY29vT5LB69erI4aBBg5KSkp49eybJJB8jEBx17tw5
ODgYHqHme8EDnTp1Ah/i7XrHebOyslDrwA/iY6ygDpDhmTNnUFvgwmBFKChB
Gjl6Q2n7wA6BgYFTpkzp2LEj/GvZsmUxMTFwzP79+4us4KA0Dj3u3btH1ty5
uLjMnz8fngs6Wr16dfny5VetWiX+FtByVFRUlSpVkG24ITLm5uYGIeTh4YFn
1qxZs1q1ag4ODvibRgafPHkyKCiIW9qcmpparlw5X19fpSdHoZKAplJSUqZN
m4YMk1F+fP7UqVP37Nlz8D+ANjdv3ozGqEePHra2tmQmQHJysqFJpMCRI0fC
w8Nfv36NNKiHaHTWrVsnIYe4PTs7e9u2bXPnzq1fvz7JIewMxkOzdZAH/BOv
gNSvVKkS0qBBQSGK5JCBAE3byJEj3d3dCwoKVH416hgqG5zIkKKDnoQkQ6x9
8eJFQw+BJ6LlXbt2LRz2wYMHcEMnJyfIJ34aOXpDBfvAzcGE8Hc++2VmZiKT
EGm63E5AY5xS4dChQ9AtkBZwdk4QPn782MvLy9PTU3w+J4wP/Q8f3LFjx4oV
K6AzuVlDYMhx48Zt2rRp9+7dx44do+mZhEjOy8sjf+MzR48ejefgIar1J3Nd
B0Dz5s1/++03QylBobGxsbAbadb1qnpUP4i0vXv3lmgDpTp16qDOf/vtt3Jy
iGofERFBcrh8+XKR1gq+gCAdyaytrWfNmmX2nhALx9GjRyGWIJzUnOdWoo1A
0cCBD9GwirwaOt/b2xsxwosXL/QmuH37tr+/Pwl+09PT0V63bdtWsGuKHL2h
gn3gfVBNAqIgigvVePz48YZ4wKhxSpWHr776Cq+DbOZHf8hVy5YtUUxQOPRP
Q0PTtGlT4q2LFy+WY7rCwkIEfSjWXbt2SX5IaYEML126lOT/008/ff78uXji
jIwMIq3x1bpzvcCHaGtIBIR2wcbGBmGRTK2LLH322Wd4I+TfhQsXxBOjbSVT
ucDD58+fl/Pesg3UdiiQFi1aKN0zo/tePz8/Ozu7LVu2GO2bglyBO6xcuVKv
W0HAkEUuxcXFffr00euAkvWGuexDgLAIbTqkqcgCN3Hj0IPrPFy/fj3/+k8/
/YQMwIXRiNA/DU1Pu3btCJ8gh3Iydv369apVqyIGNzqn1ISAMZctW0bJhwTg
HAcHB6SHGNNdzU2AeBltN4y8Zs0ameWF+gzhjdc1bNjQ0CZCHNBcohqTz0Hs
b8YJXZYMlMiqVauglEiwqdp7USsg9WvWrPnNN9/QvBfRClRQvXr1xNe9Xr16
tVq1anAceJBIMnq9YS77cCABLLQZwkxDaSiNYxT37t1zcXGBR3/33Xf865AT
UCAIoo8fP07/NGghU/EhAnCwcfv27dVcSSSBD3ELggjUFtwydOhQvV3TOTk5
UGhubm537tyRmUNYleyV0b9/f6O9gshMjx49yOcEBwezXkS9QCmj1fDw8BAf
yjQtioqKIiMjEVbQL8tFTZs7dy6KcsmSJSJbB8yZM4cUt/goCb3eUMc+4GdE
xKjVujPSybxNcW1GYxwakHehXPgDkXjgihUr8HAEg3fv3uWunz59OjAwEC4G
pQ2e1JXZRvkQigVPDg0N7datW1hYmKHZ+NyM/QkTJqipaiTwYYm2KNu2bYtb
0Irt3r1b8CvyP2XKFDKdiWzTARkprTcPd3355ZckezShAeQ6yRgwcOBA1oWo
F/v27UPBwbCq2QchbUxMjK+vL1/MoM5/9dVX8EeRG6H9QGIQQoZ643Edv0L1
7dmzp0TLuoaGIej1hjr2OXnypJ2dHSrqokWLBBWb04dHjx4VeYJR49Bg+/bt
0Bt9+/bliweYkegKwVg8TAfNTNZa4q6FCxcKyEqcD//444+AgADyK6LLgwcP
GlIsnJjXpRdFIY0PcRcCYSLbOnXqJKhgqJCIbdHoELWP5rh3794iIzUiQH6Q
K9J5SNMfCO1BhsuRtw0bNkh4Y5kHqne/fv04AlEB7969Q/sYFBQk6ItDnYfY
EIRpApAdD1CXEGLrTQDqAG80btyY9KVs3LgRHKurKOj1hmr2ITFU69atdZfI
rV69GlmFQBWPhY0ahwa7du1CrDdq1Ci+2MvNzXXQQm+PPXgMNkcOEQDy1WOJ
MT48cuQId6P4Ok04Mqi+Ro0aggkDSkMaH5b8F33gLhSHoBWDkMbFli1bggPJ
8yHspYneK1eukM7DBg0aPH36VDwxf6wchPz48WMJbyzzuHPnjouLC5p4+V0Z
NAAZolAQfu7fv//0fzh16tThw4dnzpzZpEkT8dnRXJlCXupGZ7iC6xrtvhBI
CWdE+Km33aTXG6rZB5EjYsaMjAzB9Tdv3hBtFhsbKz7uI24cShAXGzp0KCeG
IeYhC6EoIFz1ui2aHjRAGu0GFILOWBE+5MJGIjvF+7JSUlIg5jt06KDytmyS
+ZA/chEZGcmPLM6cOWNvb08UOFp/KGTJXb7JyclEhQYHBxudCo62jIhDvB3e
J+2NZR47d+5ENe7cubMKc7BRAWbPnk02kNcL+I7Rc4VI8IjKpju3BC42depU
1JCtW7fi74SEhHHjxuntRaTXG2raB5/Wpk2ba9eucVfwFevXrwdv+/v700TB
IsahBGE/Ly8v0lkK68XFxSEDkNmGPA5pwOSkBOfNm8cP9kX4EJWBTAPQGJuK
A24fOXIkkk2cOFHlIVHJfIivQ1tMbhRMXERFGjZsWK1atUJCQmAc8YBIBODY
4cOHk1eIzzwE8vPzybRtkCHxDmkvLdtATRszZgysNHr06NIqCtj/5s2b8FaI
sUGDBkXow8CBAxF5cUEWWkYy/ckQwsLCjPbRFRQUoJmDhtE7EAN+g1YBIUBT
IQOGaIFSb0iwD2o+OAHxCFgU8W/Xrl3x1YbqKshnx44dHNEhGUJdHx+fqKgo
XEcmoSIQUcKGlPwmbhxKQO+hIPAJEDYtWrSAO0O9i3gQiozzfaLMuZ9E+BC0
gFaG/CS+qxjpE5a8tE0OJPMhN5tLo52ILigOmAgV9dKlS3IaWWIWjXaV69mz
Z0VygiCoZs2aSIn4y+gcxY8Zr1+/JgvlkpKS6O9CJYGPg0xEmI0PeLcJFxSA
cOCkUCxff/213gRFRUVoc8EMhlyYXm+U1j6I/d3c3ASfT6YF6n3R8ePHQ0ND
8Rb+RShk8E98fDwkGb6xVP08Ro1Dj6dPn2ZnZ9+7d8/oqCXsyY1ywrD8shbh
Q3wmxDCuo2FKS0vj//Tjjz/iOYmJiaRxPHDgABqFzz77TP3NdiTzIW5EKERu
lNmjawiXL18mEx0h/HQHDVEKUPiot2heUR/Q9KCF/aD3wVAB8LU6deqUatEB
WrTp06eT1Zr4f7NmzRArNWjQgHN/VJvQ/xAeHj5jxgzTTlOBpoLo0ugbh6UE
vd4olX1AbhCExAjOzs7w3+rVq5N/Vq5c+eTJk4L0oEHIKvnExYd840gAqB6y
kHzp4MGD+QpfhA9RCmRsFAXB3+QNkSbZtLx169aFhYWoPE2bNnVycsrMzFTn
c/iQw4coAnKjbreqSQBRTToPYcDatWvX4cHDwwNVkfwK30xNTZW/cAn279Kl
C4zgLRtwDdR8kY3rzYVr165BzMNbc3JyaNKDDIkSsLe3R/PH9fXBI06cOEGk
kb+/v6IzZuFucDpNaWJYyXqD3j7Xr1/H51eqVAn8z+8sQliEdsHKygqthkAH
ZmRkdO/eXX5F5UOCceQDvj9v3jzi+/369eOPjIjwIfQnaUYF5iULBiEax40b
l5CQAO9GlEdZP00OOXy4ZMkSciO+BdrMtBlDQQ8bNkyjPbJw7dq1hvIA3Qha
Rh22s7ObOXOm0c55EaBB9/X1bd68eTPZQAgTFBQkmIpgCTh16hQMhcb39u3b
RhOjnhMZAPPqnSW4ZcsWNIXivRnyAX+ZNm0astG7d2+avePk6A1K+yBCDw4O
9vT05BYD8oFMwsFBlVlZWdxFCLmBAwfKXLKhi9Iax1RIT08nKzI6dOjAbw1F
+BAtBRnudHV1FQywIud79+6dOHFifHw8isCM04bl8OH8+fO5DhOyh4MJwXUe
QgdeunRJPPH58+eJqcFF6kwj+UCBYkJhQdgYWmjJx6FDh0AOSJ+SkqI3FoOp
SbctqpBywRpX0yj3YZCjNyjtg0gZUkdka33QwhdffMFfMZqdnd25c2eTr4Yu
rXFMBTJer9Ee4MXfAEeED8lQOAkoVN5fjh6S+RAFPX36dHIj5WTpUoHrPBSs
JDKUGbJHBxAYGCiIUz4sQN4Uy4PIzC7IeGtrawgbke31CGDzli1bwp69evUy
ZE8uAlJ0RyZU0eXLl+MtrVq1ojyPT7LeoLEPHj5o0KClS5eKNwFHjx5t3749
CaVRItHR0SBnk7caEoxjEoDQQPga7SaB/L5WQ3zInd+ncldnaSGZD7mOC412
trnJT6jfuHEj6R4MDw+nWYZMtvrUGBuMtmTA+GQATj6gk/XufYEI18rKimZy
e3JyMgIi8eX8EFGkC1HpzqukpCS8RebCNBrQ2Ofly5dTpkwR3xWwRNugQBDm
5uaWaDfxxt9Gb5EG1YwjANoOMspGluWSi4b4kNsHzOjKFPNCMh8WFRVB95Ib
TS6AQbZDhw7VaDsP16xZQ3MLjMxtbEt5i6UBwmPt2rURERGh8oAnrFixAgWk
+wqyWLVevXqGFvkScPtX+/j4iFSJS5cukQHWWbNmKdriJyYmquPylPahAeow
NGFKSgqk0bx580ChCjUZqhlHAEQNiB3wagTO3B6nevmQiFhrLRYvXmzJc4Ml
8+GjR49q165NKEv+JmwCkL0oNdqhKMrtZK9cuULia43sjSjLMPbs2YM23cPD
Q3yVXH5+PmlcBLNtBSDb9EFGpqenK5DZ/we3RaecVRiUoLQPJcBUM2bMgFCH
YJC5K7IhqGkcXdy5c6dJkyYa7dAV6RrVy4dZWVlOTk4a7SozldfflRaS+ZDs
AYK7vLy8TB4sf//994TcYG3KLmhSkzXawR1pU7zQfCOiuX79er5s4CHItgVy
MllQ7+zsLF5kO3futLGxEbck9A8CJY32CAlFF91zG1upsIaO0j6UgPVGjhyJ
mhkSEqJQztU0jl4gLmvfvj1hD1R7wX6w8Kldu3aRMxZHjBhh4WRYIpUPi4uL
uQU7s2fPNrkA5joPw8LCaDoPkYb4pkY7HdHoYIFerF69GlpXQmedXkDZWuBK
GagUZMzR0RGkbSgNJznQJEF1G0oGIyOu1Gg7eBWd6QGfGjt2LF4k2JNKCdDY
hx6ZmZn9+vVDHRacqWpCqGkcQwAbJCUleXp6IlLw8/NzcXEhLtCjRw+ys72v
ry9MYZQlSMdsp06doILc3NwUDToMQRofnjhxggxe+Pj4GO2ZLy044QEg4qC5
JScnh+hJEJruUb+UePbs2e7duzeZAsnJyceOHUM9kZANRXH//n2IH3t7+9On
TxtKww1Zurq6igwBkPMgYHalp86iPoSGhmpUOVeIxj70yM7OhmsjklVuqyU1
jWM0JwjrFi1ahHiBOG9AQAAUMj0/gM/PnDkDuWtnZ4ciwN+KZlgvJPAhQgly
bFO1atVMdcIXH2RJJpFYNM9HZMpJdDRP6veifEAgtjXa40dm27q7uxvqRiPH
i2i0Zx4pLUu4fQAg4BV9UQm1fSgBPqxUqZJgha9poaZxaCD/vACyB0jdunWl
RXkyUarzpEq0py20atVKo12zcOjQISW6yLjOQ5pzIZGgZ8+eJP8Q5ybvySxj
ePv2bWBgoEZnmyYBbt26hVYeRczfiooDlACZeorWh77DWTKePHmCwByaQXdF
sMlBaR9KQGRCMyixtJ+DmsahgczzpLhzCnr37m2WvQiQgVmzZpH8o2UU2cUa
2cMHknEiKAeF5viRo3xIP574gSkIihGTchsL9OnTh20AaxTcLhwhISEitiVz
RVAKulOIYfbk5OTy5cu3adNGoQl1ApCZ+YJ1EAqB0j6UQLTo7e1t9BA0OVDT
ODQAgZCZIRrtAR+lvZ3bRVDlOdsIKnNzc9F+JSYmchsWQaai/iNEzeUhIyNj
w4YN0PyECT/55JMJEyZQznTKz88fMmQIKKthw4b+/v55eXk5OTmpqam6HWuF
hYVXrlzJzMxE8E6WgGm0KyPAurn/C8QgqGYzZswgO/QCkNbbt29nR0dR4sSJ
E5ATRqerIVpBROzq6spfeYTWPzY21tbWNiwszOiiIVMBhWtjY9OjRw91+mMp
7WMU5KAr1H9FV+PSGAfR+r59+xBWE0+MiYl5+vTp7t274Vwm4Zz79+/DMbOy
svbs2RMREcFt/wtiWbJkCeTxhQsX4N00g8vIGHJob2+v8uY23HJsGuADXVxc
unTpsmbNGsrZLyiCpKQkfFdUVBQJqWAW6M8qVapUrVq1oKCAnxgVJjw8nDIz
HHXDbmBpPFbNZexlAKTK0awKRyyG6g1T9+vXLy4ubvDgwWiqEA1Blqs2pRZ1
IzIyUkN3mphJQG8fcRQVFQUEBMg8/E4cNMaB9w0YMKBy5cpbt25FenJ8Az7Q
2tq6a9eu8psY/t6wfMYg80M4oIk5deqU0aeRQ049PT3LUqwHZ0HMCxUBluNW
SXA7D0NOq7/NIwMHFMSoUaPoGQZCEYJ8/fr1Bw8epNkFwrRA/NW8efMaNWqI
n61sQpTWPoZw9+7d2rVrm3a3QwGMGgd6HkEWPHHbtm3ctyB+J5OoJ0+ebFFL
RbjOQ8jdtLQ0Pz8/KChkdebMmR/0jgTnzp1zcHBwdnbmFxMsD42hYceAWgDI
EJ6/v7/lVzNyNhmkqZr9ISaxD4LHatWqST4sgwbixoHHkaGBwMBA/lRtcvIR
SFKJPUvlANqVSE2I8z59+pAe0by8PFdXV7C6mqfSmxCwPBmhGzp0qOBEV1Qw
KysrKA0zZo+hRFtG3bp1Q61TaBGZqUAO0FF/8FS+fUg0RL+6SgKMGgdqBJpE
9+DU/Px8sxzlaRTcdkkREREc+5GtDCyQvSlx+fJlR0dH5F8wgwts7+bmhjqm
aIvJQAlIC7jS+PHjzTuJVxw3btyAR4Oa1F/nJdM+z58/9/HxMckgtSGIGwex
5+LFi8EtiNkFvRzkAEH1j/I0CsSVkOXu7u788yagchHX40Oio6PNmDfJ2LBh
A0Rg9erVBbv6EG0vOImPwVwgp0zWrFlTzrlsigJEBDoydCS60pBpH0R5UAVG
D4WUDKPGefv2LZmXi//zJ/JxJ1ZPmDDB0joPyaooQYa5wdbQ0FAzZk8auC4L
wW4bZO4B13mIQnn06JFFFcdHCAgMKPYRI0ZY5lSl77//3snJSbltsoxCjn22
bdtWuXJl5VacGTVOYWFh69at4XFxcXF8R3v58mXbtm258BMSUbV5U+J49+5d
cHAwMrxgwQJ+I8Kd8z5mzBgzZk8auINmevXqxZ8Gg9a2e/fu0I3kGMdLly71
79/f8jvzyzZQWGlpaVWrVlX/lFujePXqVdeuXdu1a6dc/5tRSLYP0WDKdR7S
GAdp2rdvD4/buHEj/3pBQYGTFvgDH7hw4ULlRGypAFpu2rQpQkjBST3khC8b
G5utW7eaK29ycPjw4fLly4P9+KJ337599vb2ZOdqGH/lypWWvGf4xwNodeh5
eK5FHToDPoFIqF+/PhSaeXMizT6o+QEBAdHR0UooW0rjcEdO889iQ8aQK81/
2/xCkAwYMMBCxtQePnzorIXgVEooKLC6h4eHBZ7ORgMI9U6dOrm4uJBJ19Dq
6enpkO7u7u7g+by8PDQEffv2Ncl+Sgzy8ebNm8jISCWOOpIGtJKpqal169bl
H05nRkiwDyIjtPhKdMyWyjggOojboKAgMgcYofH48eOhKqHB/Pz8QIaZmZmD
Bg2ykKOdHj16BNJr1KgRf3kjVK6vry8IfM6cOR9u9xqoHvGyl5dXVFQULD9w
4EB8bEZGRq1atdAwdezYcdWqVR/u15U9FBcXT5o0afDgwZbgGvD0tm3bmuv4
Xb2wHPuUyjggT8Se9erVg8cNHz78888/X7p0KRgmPj4ewRoULLjRciZ7gK7B
FYKTvLZt22Zra9ulS5cysGnVkydPUHD8VhXt1OXLl6GHWaRsaSAnWVvC3BvU
fAuceWsh9pFgHIT8iNTgd3wyh1dCPVoayYD9QNRpaWklWoNDQTk5OXXo0KEs
rd1jYGBgoMH79+8RObq5uUVERHTv3t3FxWXu3Lls1JWBgeGjBQgQUfzVq1fN
sv8hAwMDAwMDAwMDAwMDAwMDAwMDA8P/AduUhiE=
    "], {{0, 66.}, {432., 0}}, {0, 
    255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{432., 66.},
  PlotRange->{{0, 432.}, {
    0, 66.}}]], \
"Input",ExpressionUUID->"dee2c159-1117-4363-adce-2be2b18baba9"]], \
"Subsubsection",
 CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 
   3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, {
   3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 
   3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, {
   3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 
   3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 
   3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, {
   3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 
   3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, {
   3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 
   3.7117171831101294`*^9}, {3.7117175469379387`*^9, 
   3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, {
   3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 
   3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, {
   3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 
   3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, {
   3.746790780119294*^9, 3.7467907805274167`*^9}, {3.746841541971039*^9, 
   3.746841542324361*^9}, {3.8312212162792363`*^9, 
   3.8312212166160307`*^9}},ExpressionUUID->"2e553bae-c5be-4be7-87d6-\
a893b1a80a2c"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"B", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"sigma", "[", "2", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
       RowBox[{"\[Gamma]5", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 
   3.746791220316177*^9}, 3.746807028665576*^9, {3.7468417056039705`*^9, 
   3.746841749159717*^9}, {3.746841934877225*^9, 3.746841936819081*^9}, {
   3.746842058956802*^9, 3.7468420599152675`*^9}, {3.74684410678551*^9, 
   3.7468441080807676`*^9}, {3.8312212264033976`*^9, 3.8312212353229914`*^9}},
 
 CellLabel->"In[97]:=",ExpressionUUID->"ff84b9d9-a57b-4fc5-987f-4acaef6d4715"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"B", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, {
   3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9, 
   3.746841759702013*^9},
 CellLabel->"In[98]:=",ExpressionUUID->"1cdea0c1-cd40-4107-b66d-6c8d6d76b314"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuIVa74xtrG8cXzwzEYJRIdmT9BoB9JS23Zk8Qm/cTz2
S1mMH0jfKJJtBNEt3rdWgOhF28SkKrvfOG5+KlQPok+s+fAKRGdIlX+Z1vPG
cc/J5c3LgfSCTyeTj/S9cXz1ISL2NJC+s8leNXT5G0d32T1LEoH0vTahp8lA
WjyTKb8JSIt88X2yBkgrJqiV3ALSbUUma8pXvXE8k5Zk2LkJyN+17OP9bW8c
+/+c0D25442jcWDYj3NAOpvvpOYVIO03zfCZyk6guu8vrXWB9Itlet/1gLT5
pwfLS4H0lVML1apA8gLFx6uBtNVHWYMaID3pjnVxA5C+WOq9fz2QPnB7juAZ
IN1irVIKoi9wpC09B6SVLoW13ADSJ/l/zwfReZ+lH78D0sv23nr+FUhP2XV2
u9OuN44Akd2/6Q==
  "],
 CellLabel->"Out[98]=",ExpressionUUID->"e6988c61-b4c1-462b-b92b-253853dc79c4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQl0Tff2x2+oRk2JmBJJ/GMoNdfQmoOaGkNpYihKxIvSRA1RUrQoUo+Y
XoKa50dNoUF1BUENIbFCzBZ9outVH6taq7ylXc9b+X/e/S1nnXWHc0/uOffk
Ss93rXbFuWf4nf377b2/e5/fb/9qjhwf+UEJi8UyqTT/i4xJ7JyQEDM1yp9/
DBg36cPR40bFRoz7eNToUQmtR5bkYFf+u+Rjsfzv7wITJkyYMGHChAkTJkyY
MGHChAkTJkyYMGHChAkTJkyYMGHChAkTJkyYMGHChAkTJkyYMGHChAkTJkyY
MGHChAkTJkwUX/zxxx/Hjx9ftGjRggULMjIyfvnlF+Xznz17dvr06YcPHxrT
PBMmTBRj/Nnsz++//75q1arq1atbZChbtmxCQsI///lPh5c8ePBgzJgxTZs2
vXjxosGtNWHCRHHCn9D+5OXlhYeHlypVqkePHvPmzVu/fn1iYmK7du1Klvxf
RZ0KFSpMmzbtX//6l3Q+Pig1NTUkJKRbt275+flF2HITJky86Piz2Z///ve/
e/bsCQ4OHjp06Pfff2/z67lz53r16lWixP8KoPn4+NSpU+ftt99u2bJl6dKl
/fz85s+f/+TJkyJptgkTJooBjLQ/O3bsqFixYr9+/X799VddX6LQOHXq1Ouv
v56WlsbrOzyB49999x3vXqZMGUH7afkHH3xw69Ytg5tqwoSJYgbD7M8ff/zR
v39/Lm/fvr3LdLGn8ezZs6dPn6o8886dO/fu3XMmHxN/Hvz2228qh42JIkF2
dnZUVNSbb75Zq1atxo0bey1HMtL+XL9+PTU19R//+Id7l79AePToUXR0NO5p
+/btRd0WE1rxww8/jBo1qn79+iEhISVLlgwMDKRzb9y4oe9TLly40LRpU2zF
7du3FU7znoDRC3H//v1t27ZFRkbC7iCT8qSoiWIPNMjf3/+ll15au3ZtUbfF
hCYcOXKkWbNmS5cuhegWWOluUlKSr68voV9KSgpURK8HLViwAFuBYVew514V
MHon6JGEhARENGzYMMRV1M0xYRx+//33PXv2HDhwwOz3Fxr5+fmtWrXavXu3
/CCx3uLFiyG9ZcuWTU9P1+tZP/3005o1ay5duqR82p8nYHQPuMVOnTqVKFFi
+fLlRd0WEyZMFBrLli0LCwtbt24dblR+/Icffqhbty6Eqnfv3v/+97+Lqnkm
7HHz5s3q1av7+fllZWUVdVuKDPfv3x87dmyDBg0QRVRUlOmjTegOyOfRo0e/
+uorfb94/uc//4mLi8O0+vr6ErnIf8IIY2/5qXbt2nfv3pX/lJmZSUu4VseW
aMedO3dSUlK8JxXsOSkRmLz88stNmjT50yZ1oQSRkZGLFi1ilB4+fJiIrH//
/iY3MKEjnj17RmCOluXk5Oh7Z2z4ggULiFUhTidOnJD/JOVXg4ODbeZbYoTD
w8OnTp3qPbMdLl682KJFi9TUVB2z0BrhISnxglOmTKFfhg4dqiW5x7V06/nz
51+4yUtY11GjRjFuRV8zbsuXL//aa6/9+OOPRd00TwEuMX78+IYNG9aoUWPW
rFneo3fFFWgE4X9oaOihQ4c8cX/I2Llz5+wnFdDR7dq1Q7uxZg8ePLD59fLl
y/Xq1UtMTFSj+JjEiIiIunXrNm7c+ODBgw7P0RIwXrlyhQuxb577xICUPvnk
k6CgIBis/LhwiBhAhw0ulJRUQiR1fXx8kpKSpk+fTu/Ur1//jTfegFer8Tic
8/XXX3ft2rVUqVJVq1YNCQnhDzFRVvcpKx7CgQMHiMKkEg3r169/6aWXGKtF
G+bs2LHD39+/tAq88sorgYGBLVu2HD58eHp6uksTipf56KOPMLaPHz/+8MMP
CXN27tzpRgvp386dO9esWfP/Co+wsDD0d/ny5S+Wg3YbR48eRdlhcQa/75kz
ZxhFaPfcuXMdPjojI4PBs3btWuWG3bx5E5P77bffQkWwD/SdTb6iQFvASJTd
sWPHfv36iQkYHsKdO3cYrnCq48ePy4/zLnXq1KlQocKpU6ccXqhSSuqB7oia
BoyKmTNnookY0oULF/r6+iYnJys/5ZdffhkxYkTt2rVRHyk7gdajxfQL8c7K
lSs9ESzgdGJiYpASI6py5coIhAAK2gaX4F0w/gEBATydv48cOeLybllZWfAE
8TfeEH+BNOLi4oo25cUYRoy44EmTJvE6Yt0HnTJx4sStW7fufA6M85dffokj
7t69O/6Oc6pVq7ZixQqbrypy7NmzZ+DAgY8ePeIc1ASV/Nvf/uZGC+n9LVu2
oM6jR49G5qKFiD0hISElJWW5DMuWLfvrX/86YcIEnstokapnODMFLwSePHmC
vsBSeDvlQU4MSOj07rvvolyGNa/AqonR0dGC6DorUcIgh15WqVLFxhDJgbrh
ppcuXUpn3bp1C12rVKkSDFB+jpaAkXb+5S9/gbDl5eUV8hULB/gVFOXVV19F
ueTHv/nmmzJlymCytEipUNi1axdsB8qE8kqDRzgFCInCRGi80vtW2EcugPZ3
6NABK+FyTLoBev/s2bOwcaI21BmuLikydhiDiaZjEPbu3VvYTPXPP/8MacR8
bd68Wd82uw0pBQQaNWr0008/OTuTsYTFozc5E+YAP7E/B+0YPHjwtm3b+JvO
hXbivL777jstLcT+dOvWTbTQpbfidTZt2oRKlixZcsOGDVqeW7TAIRIT8cpE
3AqdgskioMArnT9/3sjmiZwGClirVq0LFy4onHnv3r2mTZu2bdvWoSKDq1ev
EtSI6Ju+QztatWplU75PS8CYlpYGMYYke9QFc3PiO/oLRi2PB6Xjffv2VYgT
XUpJPVCByZMn80RiAfkTMVZNmjSx/yQqbyrmtFevXgq1E7OzsxlscFHCHI3t
VAb+tEGDBkLr58yZo6XvGJ8VK1akzS6nIxoGXicpKUm83euvv37//n3lk/fv
3y+CF2Ri/xZYXfysmLiOb8L04Rw15lKEj+aJ6KOw58rALI8fPx52AcfQ8twi
BHKeP3++6JRx48YpZPwITnExY8eONTh0yszMhJHC33Jzc12eDOOi73gjh7pD
/zKosBW41z59+jjUMrcDRkwNVBzP5enPKIz8iIgIWgVPkzeel+rRowfHv/ji
C2XToSwl9ZCSuoSE8uPERGJRIT7L4YVYfngXijNgwABndoChSOAgnIhHi19h
+Vu3bi1UAMlouRX0gLdu06aN9yyooYsZDyqtrgDWjEif8xs2bGhfKUjg0aNH
EBi6fvHixRpHkQjQeBxOFl6k5hLilGrVqilzMC8HugPxw4UpJHM4p2vXrojF
4BKjCLZ27drh4eHOet8GcHWIHJcoFwSARwUEBMBJlDtOfcDIwEtOToYVi/SF
mqa6DXwHkV25cuWOHj0qPw6H5zhk+/Dhw8p3UCkll7hx40ZQUBAaevr0aflx
GkbzSpcuvW/fPocXigyJiOglH2ePnTt3EvByjkdnAmMhdbG6+OXY2FhuAjPx
nrkrblhdLiFeE/Hv+++/7/CLxokTJypUqBAcHHzt2jWNzfv8889F89q3b6+S
Nh86dAivjSJoebT3A0VGj2AmRs4SuXLlCrKl39XX8KcTP/vsM+VMO8c//fRT
EaErfyNTHzAymCG6oaGhDrNh+kKYLPvkrbNkrz3USEkN0tPTMa2EonBX+c0h
4dycQPX69esOL0Rr8A6Cx8KanN0/Ly8P+WsM/HlWz549u3fvTtiCF7CPWVxa
3QcPHvBGUVFREA9UgGHp8EGSj96yZYt7TfUE3LC6BdZ3adWqFZfg9exfB58y
YcIEMV0QqsY/IUXuTYxBAXv16iWaxz1VeivoMUxbe4rMm4E8R4wYgfwh9oY9
FPPFGKYj5NEl9oSOVg7h4bGoKlzO2acQjvMr2rF161b++fjxY/tpDALqA8bt
27cjn+joaE8vSEeJZs6cKVyGPDaxSfZiW6C+CmPYpZTUYO3atSVKlHjnnXfk
LUGemDiR7HXm1GgY9DUjI0M5dcArhISEcKt3331XIRBTBn1HABIYGMh9aC3M
ykYsylYX9iXyNiLihn47a8n58+cRaZUqVWy+zxYt3LO6Yg2+KDjcoUMHm/GP
vuD0cbh79+7ln3ASLKfCJyEFFDapK7Bjxw6GRPFeh3L16lUCybCwMMMoPa4z
PDwchmNjxI4fP96nTx/lMETM7GVIfP311w5P2LVrl6+v72uvvSa44rJlyyZP
nmxvoNQHjPQ+nE0y4x4Fz3r77bdpVWJiorxVUrI3KSkJlcnJyWFYKsQILqWk
Bps3byYOHTVqlJxAnjp1ys+KY8eOuX1ngfz8fEadxckk7UIBa0mnW6yrbGwY
uLLV3bNnj3ShM5YrsGbNGnx027ZtvWdBYoG7VrfgeaDHVQyStLQ0+U+EDBxs
0qQJllbcn9DJvaSKy6QuTtx+8vny5cvj4+O9bTmqvmAoMpygNMakF9A1TO7w
4cMJmQ89B38T6dAGl2ugpKkyY8aMse8XjnBcfDrkTDQO62STIBVQHzBeu3YN
rwSb0pjjUgOR1KX9n376qTzoRhHkqdSUlBRlRVCWkkqcPXvW39///fffl3oE
7grFhSPNnj1be27z1q1b1apVo5Hal3rhYbkJt8JN2GTpFayuFEoL6q7At5Gh
+Pb30UcfeU9St0CD1cXN4ezEhYS6cqX79ttvMZUixjl9+jSxgHsfCNQkdTdu
3Dh69Ggblb93757LNNoLDQQ7YMAAxDJv3jwD5iSLiZoW55gxY4bLZohJpA4J
EhoxceJEzMKqVav4e8GCBXFxcQ5DFfUB44YNG9Dljh07enRlhID0Hapz584i
7kMaBw8efPPNN0NDQ8uXL3/ixAk0C1eCSVS+lYKUVELYWCJEkc1GjDBw/BSx
g3oHfePGjeTkZEwWWox2b9q0SZoNnp2djVXnZevUqaNRy2hb165dHQ4hBavL
4BdzXVzmlkXayu2FWp6D21aXd2cUiQttJvoyzocNG4ZDjIyMRHQ231LVQ57U
HT9+vL23YhQNHjx4xYoV7t3f20AID2lET7EqGFWFGQJwDEgCQZZNlKEG9Pil
S5fgXRBLpDfIEd577z1CVBGNSpVanQHjhu9z+dy8vLyAgAAU1uHUYqwob4S1
6d69Ow1wZnNUBoyQHHwxbfvggw9UkkYGMIpft25dXqdChQpdunSBPDjTaCzb
unXrRPZVSuqK9R0oEcaKuKBv377IOSMjg+PoPm4rKSnJZWOUpaQSeEnGD++C
wWzcuDHquXv3bjVkj3ehwegsnoKhCP/EXzDGYmNjoT2iScIv8L7NmjVTby4c
ArIk2RAR5kg/KVhdzAvOVPxkU8fyypUrCH/RokWChu3YsQMdoZ3eVgLIbasr
TZu0WKea2AwSBIgenTx5UgvTcJnUzc3NrV+/fvGoZceAwZikpqbiztD3smXL
SsTJHufOnUPmqGeh1lvR19yZpyiYUDliYmJ0zNJg1rAAdOXf//53hyfApnDQ
vJEz+6A+YHz06JEg50uWLFHTtkOHDmEbbV5fzJ51+KB9+/ZFRUWJD/1SUnfh
woX03dWrV/FW8vkDmGgo7rVr19REJS6lpB4Q0czMTFirymgI3Y+OjsapdevW
zb7eAtQ9IiLi7t270vR+7XEEHSqWNwJ6Vj7YFKzuw4cPCSI4TlPl7h7hi1pM
b7zxxs8//wzVb9CgAX7QC+ftu211uXD69OniQo35f2dQTuoiVeySxg++XgL0
Fy2WCingwjCqCgs9UEkUU2GRqT1QkI8//lgs6+b/DRs2JLh79dVXJSND70c9
x8CBA6dMmaLvhCuMDwSSB82ePdu9rIj6gFEkWhXWYcmBCYXcCiEEBgZCjSpX
riz+CeU7cOCAzfl0FgxNsoriWZyp/UNVgR5Scg+3b98W7pgwx+G0MbzP559/
Pm/evH79+gnhjBw5UqNT5p5QXHG3IUOGyPOEClaXYcBYtVgnUMFm5XebPHky
pjguLm7BggV0CpTMpkqel0CL1WVgiAvtk+G6NExK6qIFBIzjrYiPjycubteu
nTAg8q8GWoB969SpExJoqhmoLVpZqOpMqDABqRQ1i4nozsyLNPfSfuWsM2By
BanAkuMrpasYqOnp6YLmKVBrXUA3oVmWwkT9bgeMOTk5uC2RUFU+88KFC7x+
uXLl8DLyLBmRGt7Hx8cH32Rjhfbv3w8blHIgIqlbr1499R5QAW5ISTt+/PFH
+CEPhUMqfCDLzs7u0aOH+G6IZFTGEQpgJM+YMUPoOONf/l1MwerC4QVbsO/f
p0+fEhQTCk2dOhVy7rVb2GixunPnzhUX4l/WrVunb8PkSd2QkJCOz4G9hacJ
DqzjBiXoDndu1KhRQ80gQuzdu7ezuej2ILKGP0gCRNdGjRrF2wUEBDhcb4up
ZFxxAiqgZnYcg1kwCgyRw612Vq5cid9Us35KC2j2pEmTaAbdquazjpaAEY3D
EnKy8mJGIfmwsDCHS7FoJNwJg5yRkSEdhIvCBiU7ICV1IyMj3Z68KkdhpaQd
CAEaI4aHcskUUSxCqCSjRS4Wt7Fp0yax3gqmLXf6ClYXhygKdlWvXt1rtz9W
hharK8abpZCTaVVCntS1nyYkyFvx2KAkLy8Pgy/NfxOznXlxCJXDvBkeHIbP
CZAxNd58165dmCDEuGbNGodB67Vr10RVN5e1ArRAGjAqq9ZoCRgZjbyvfa11
G+zbtw/WpDCE0P233npr4sSJUnY3MzMT1y8RQrxez549eank5GQ1DXOJwkpJ
OzZu3CjCxhEjRig7DnyfoMQWaxkWee7abYhJKYJZyYuhKVhd6XMe0ZkBE1Q8
AbetLuPw448/FhfaLz/XDimp62yaEKOlZcuWxSCpCx/DrUjh5ObNm9ECrI2z
5efSl181OwWgGk2aNOHkiIgIZ8s8pZDNowVIGWnz5s3jKfQa+qvmErcDRgIH
4iBIbH5+vsLN4Xhi/YLCrdLS0tq0aSOSDxil2NhYXIB0CUegpshWrz253JCS
FvBezZo1s1g/zYg1TQpgLEl1wGxWYbgNzCZ+zWK3P5QzqyufUWNw6ltHuG11
pQSUxTpnRl+qL0/q2oQeElJSUmJiYrw2deMe4E7CotaoUcOZSKXdytR8zlix
YgURnELNkwLrjDWR2vV0LnHJkiU8xYAPoCtXrvTx8VGufvDw4cMJEyYoFJsV
wNRAbkVB8osXL/K3y0s0wjApFVhrZgqiS3jlcvIt5Ed8Z9R3BiwuUrRBFBAQ
B51ZXakCpMtVad4Mt63u48ePYfjiQt2pvjyp63CaEMYhPj5eYwk4LwR6Dbe3
2C08kUPiutHR0cpGkhBVTKBq3ry5Qs+ePHlSfMSfNm2aR8nDokWLjLEnohaB
/R6abgBpw2/XrFnDIJwxYwaG2tMfuQyTEiYuKipKaNnAgQNd5qV37NghQnux
7FSvZhCCiXXTFStWlBLLDq2uCARKWDFnzhyvWm5WKLhtdQmp4GMW69dM7UVB
bSBP6jqcuMjjjh07pstXY++BVOtYeSaeFGUMGjRImern5uaK7w42U9BtsHr1
aoYxlHjTpk2aXkAR0ttpX7/vElu3bmXkhIaG6hL4YwanTJnCYINdaCzR7xJG
Sok3qlevnkXdhARp1TYn29QQ1o5r167Vr1/fYv1yKnLmDq1uRkZGpUqVLNZq
Ql5VV6GwcNvqioJOXIV51P1LonymrjFxBIOKyPHChQu5msFNGDluDEtiXlHJ
TXnVj7RYwKbClT02bNhQsmRJ5Sn32G0iO4t1byaP1mWSKhkasEpXVEcJDAzU
ZWQiPQSOJY+MjPR0y42UkjQZoGzZsi43IxNb2nFyWFiYJ2YOoOZt2rQRVggN
sqlqzpjfvHmzCANHjhypbHJF7ogojwYHBwd7lEu4B/es7pMnT6SlfNOnT9eX
6suTuoZ9yV24cCFO3KIT3JszjysXBU7RO8loE8rZVN6TFBPqpbBXmsSa/Pz8
FJb/5+fni83miDE9OlUJxfnwww95kE0RQk8ARkoX+Pv7q9nqwiXgAH379h0w
YIABe0IZKaWsrCyxPYHLyR4Fz7Ov6MisWbM8FNozzqHcWHXCrvDw8KCgIKFN
3bt3F5/8sAb0hcuni9Wd6Mgrr7wCeeNvT7RWC9yzuunp6cI+NG/eXPc6M+7V
1NWIe/fubdmyZbkeWLFixd69ewu7v4kUwckr+eNxILT2BlzkBJRTf9LX8OrV
qyt8ABIbLaF9nl7FA6kWWUQDtmq9efMmRBeN02Wr+szMTFgTIb8BRTWNlNKl
S5cE11Xem6/AGu9j8SzWhTn2JsK9LemdAQmcOXNm9uzZorKZxTovnXCjsHZG
LKuvVauWwjyWooIbVpf4omHDhhbrNH69djWVQ57U3b59u+73907cvXtXTN96
6623pNCS4QehtdcIsQogJCREeTyLKegKp4ltxXhofHy8p5mVVLSEsMKjDyp4
Xs1Ar0w1xqRcuXI2hQI8BCOlJFZYW1x9bMVELF26FGESPjj0Ym5vSa8AjTv4
SOs34W9eWGe7ULtVFlhLwLVs2VJQsl27dnnik7eU1MXZqdworRjg8OHDInxI
Tk4WUoUqJCYmzpgxw57tI5YqVaownk+ePKlwz8uXLyNDeionJ8f+V0iFmHFN
NKexeJQaoIO1a9fGWdhXNtAd0uIFNSUoXQJTA8HwRKURexgpJVFgU2QYFGpu
MHgIl4itZs6c6dDvuL0lvQI07lYpVUT0zjm9NGnatGni7ZQDDUYyry++IUKf
PLR6lJEgtQexe8+2np4GSl26dGn5dw2IbocOHRzWcxBll1wuxBaznnx8fOQT
+wWQ84oVK3x9fbmPpyegCogsos0SJA9BKs2ky0Jdwls4oTETZoyUUoF1XSQm
Fx7rrFzqlStX6tevzxByVvFY45b0zoAhEqt7wPz58wt7OfYfa+9tG4U/ePAA
2o8TX7RokVTjDpVHPQkTTsmwf//+1NRUwithb19++eWxY8eqnEmYm5s7dOhQ
nCASIFI+d+7ciRMn1q9fb5/z5IanT5/GaUJORM1kEBQU9MUXXzDmsfCXLl0q
ZgsibPD9999DcqCvohwxUVv37t0xqg49tZiurCbvnZ+f36JFC7iKfPEgRjsh
IaFUqVIDBgzQZV2nGqxduxY3wUt5dEdvCenp6RAw7bNexTaaapYB6gI1UqL3
t2/f3rFjR6FZY8aMwchs2bIFNSksr+N8noi7Dw0NtVkZzbhKS0urWbMm4wQX
5sxyat+SXgJ8G4OTkZGxdevWQYMGIQdhBzBQc+fOhZYcO3bs7Nmzaj6viw2R
jdzfSg2kohNqwOtjADt16rR48WKVe3YwMJYsWYKviYmJEdErQoNLY1UqVqxo
UxVWWhVosZYvKyWDJPkXfad1l2Bkbtu2DY+De0KPMBc4O4VEoliNriYcIGhl
DONSYR2JiYlDhgypWrUqF+7du9eweeZib03BW4yJ+ATbcZmEcYnHjx9jPTTu
26sSaqSENvXv3798+fKrVq3ifIzhlClTeNMSJUp06dLFDY/GGBCTstDW6Oho
jDD//OSTT8QkRnQWbqbw7tq3pBeQVziXWx6xOaMEPOnBgweVbyUldXFeGzdu
DA8P5y1g7LyUwt7HLzrox+TkZGzmwIEDpalNUnl/AodiUDzBQ8BC/t0Kl/Gs
mOKOC1O56QCkl9umpKTs3LnT5TQh3UHA2KhRI1TbMNcplW7TaOevX79eo0YN
7TXG1cCllAhSIJZo1urVq6WXYiSImbQO91tRCUIewt6uXbtiwOG9xEdoK/bW
5QdE7VvS6w48kTDg+Nw+ffqIXA2BNhEf0iuuScsjR474+fkFBgbKB4/4NmSx
lk0u3rkCYyBKAnpioZAnIDYwhWZ7eqaEHNKWHFoYDtFuQECA27tQFQrKUpI+
efTs2VO+gELsYIgp1r3GtUvotSW9vpCqORHiSTZWVOorEikZAMaD+HzMO8o7
QtRtwEpAt4qwecUJOTk5lStXbt26tcra5kUFBvzw4cON+S4vB0MR8gbhcXsZ
rwjQYJIaN8NVA5dSgsPAZOz3ms/NzVW5g6fu0GtLen0B68PbhoSEyCdm0Dxi
AZoUGxtrTDOMRFZWlr+/P2PDZqokPD84OFj6WmRCO7AJcXFx6KnDWuXeg4sX
L2IuMIDGr52HPSKf+Ph496ba3r9/v3nz5npVLFeGspSwXXPmzLFYi9HZJIjE
bsgud/D0BPTakl5HSIuDcAfySRc4tYEDB1qsVakNaIbBSE1NhdDCwWzqJ4jo
yWY3YRMacfXqVdSwR48eXlveWUy38PPz02VbscJCbFNetWpV97bcFbuCosWe
zuG4lJLEKm2MibSkcezYscbX4NJxS3q98PTpU7Gz26xZs+S9JvIwHCd4MaYl
hkFKPdlUTBLTb6SkrsF5nmIMBLts2TLiqa+++qqo2+IYZ86cqVSpkgEFEp0B
DkmQNXLkSDf46urVqzEdBizkdyklaR8Hm1heVEyS0pXQXcOmAuq7Jb1eEKXX
IXg2AaDYSq9kyZKrVq0ypiWGQdp+LiIiQj7BD8rRrVs3qaDcyZMncX/FeBaH
kUC2w4YNY6TptZ2BjoD/dOnSpXXr1gbkRZ2BMblx48aKFSsWthC3oJEGJHXV
SIlz2rRpgwbhZOXH8/LyKlnBH6JslAHMXEDfLen1wu3btwOtsFlehOVBejBw
9RsavkDYvXu3r68vNlYeB23fvr1MmTJi8h5dMH/+fO9cqfeCgqHerl274cOH
G7MAQSWwWkR5derUgW0WbUsIrwjBsJ9YAPVXMYB79OgRGxvrUZ6mUkpSec+l
S5fKW0jzLM8LKUBj+vfv7+kKwBL03ZJeL8A9MK02WzZL1XuIuItliE0oREwR
FBQklkLwjps2bSI4CgkJEdW0MBHvvPOOLiX4TEi4fPky0dz06dO9ZFYeLnX9
+vW1atXSZSdZ7fjtt99GjBgh32jSJQjWoAfuJYRVolBSwpzC2Hv37i3mwP/6
66/x8fEwZKJp4npM7jfffDN48GDDMvz6bkmvFxAL0rDZMm/16tWlSpXq1KmT
pwvFFyEg+RERETVr1oyJiUEC7733Hg5o//791apVwym3b98+OTm5WHqcogUh
VefOnb/88ktvCCIwI61atfJ09chCgUBg3LhxQ4YM8Z4vj4WSEt2anp5eu3Zt
NIi4pkWLFklJSbC4qVOnEkhCy7HAhk0Q0n1Leh2BjUUgGzduLLC2E8tTqVKl
tm3betXqYA/h7t27DCc5tcBHZ2VlYRy8wSwUSxByegnxgFR44SIgBh7Dsqi+
69nDDSkRyxBFokdy34GWwYSNJHK6b0mvI/ACtCo4OHjQoEHdunUj7v7ss8/M
r0gmTJh4oaH7lvS6AzML88/OzvbC+romTJgwYcKECRMmTJgwYcKECRMmTJgw
YaII8f8Cjf1F
    "], {{0, 68.}, {466., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{466., 68.},
  PlotRange->{{0, 466.}, {
    0, 68.}}]], \
"Input",ExpressionUUID->"37be409a-2d5d-4170-aa02-396ba82e938d"]], \
"Subsubsection",
 CellChangeTimes->{
  3.746790794639846*^9, {3.746841560444349*^9, 3.7468415606923532`*^9}, {
   3.746841841778685*^9, 3.7468418549015627`*^9}, {3.831221259654599*^9, 
   3.83122126208678*^9}},ExpressionUUID->"3aa048e3-a1cc-4be2-9b2c-\
89d2b4a0024e"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"F", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 
   3.7468070324753675`*^9, 3.7468417607020445`*^9, {3.746841806678952*^9, 
   3.7468418384463234`*^9}, {3.7468419378272467`*^9, 3.746841939290864*^9}, {
   3.746842062020503*^9, 3.746842063139872*^9}, {3.746844116317479*^9, 
   3.746844117564167*^9}, {3.831221281298868*^9, 3.8312212886189523`*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"469350b2-0816-4fa4-ab49-5a5bf6071aaf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"F", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 
   3.746807032959241*^9, 3.746841761629195*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"74efc919-b89b-4424-a25a-5f1aa0552175"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuILH74ztrG8cZQ1sVMC0aeaJ2q0A2kh1t1ZfMJvHC2Y
1MT4gXTKXIVGEO1vcGcFiN7kJCFV2f3GMXXa01YQzXbg4ysQ/ca44su0njeO
EUUrm5cD6esep5OP9L1x1PoYGXsaSGdsclYNXf7GkdVo75JEIN11W/hpMpD2
fMmc3wSkq/r8n6wB0twP1EtuAelkG7M15aveOH5KSzHs3PTG0clvxcf724Dm
1JzWPbnjjWPAp/Af54B0WN8pzStAWmOa8TOVnW8c48rfWOsCab8Qw+96QFr6
06PlpUB6t9cStSogzSVQfrwaSM/ZoWBQA6TXBNsUNwDppADf/euBtHDoPMEz
QHreR9VSEC3Xnb70HJDefD+y5QaQbpj7ez6ITvgs8/gdkBabdPv5VyB9Zde5
7U673jgCAOhJtts=
  "],
 CellLabel->
  "Out[100]=",ExpressionUUID->"8e1857a2-7ee5-4354-a704-caed002aba02"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlQFFf+x0ej0XiBByKCroiuUfFIovHAAw8CRI2CCFGDt4lHPNYYUDRR
1ygRxQvjAR54gwfibXmtN/EoFRWPisSjkhitaPJfsxVTmy3+n51X6Zqao6dn
eqYZ3P5WJaVtT/fr937v+/v+3vF7gcMmRH9Y2mAwfFKe/0UPTewyadLQqX29
+Uu/8Z+M/mj8yBGR4yeP/GjkpLbDXuFiZ/77v1IGw3//XKRDhw4dOnTo0KFD
hw4dOnTo0KFDhw4dOnTo0KFDhw4dOuzh999/P3HiRGpqakpKyuHDh589eyZ/
/x9//HH27NmnT59qUzwdOnTocDlu3bqVnp4+e/bsrKysb7/91u79d+7cKSgo
0KBgavDixYtVq1bVrl3bYIKKFStOmjTpu+++s/qTJ0+ejBo1qkWLFlevXtW4
tDp06NChHijSDh06mJJeqVKlwsPDuf6f//zH8v5///vfa9euDQwMxAVYvcFD
kJ+f36lTp7Jly/ItycnJlDkxMTEkJOSVV/67KrJKlSpJSUk//vijdD/qPS0t
LSAgICws7P79+8VYch06dOhwApDYhAkTIL0mTZpAd6tXr/7yyy+joqKgO0iv
dOnS77333qVLl6T7IfNDhw517tzZ39//wIEDxVhyeeBodu7cSSEHDhxYWFho
9q/nz5/v0aMHXyecV4MGDSIiIlq1alW+fHkvL6958+b9+uuvxVJsHTp06HAa
d+7c6dixY8uWLWFpM7H96NGjhISEypUrC9FevXr1Ll26hIaG+vj4wIRxcXFK
RmYkZGdnV61atU+fPj///LOrP8I6zpw5w3fl5OTYCiK4furUKYi9QoUK4hsp
4YcffvjNN99oU0Idnonffvvt999/L+5SeBBevHhh6/off/yhcWGKBRcuXOjb
t+/bb79dv379Zs2aeSxFoM+RplOmTHn+/Lmtex4+fDhx4kQ/Pz9Beoj5sLAw
xLlDgy10kJiYGH7eoUMHu/OSrgLGRt9UeOe9e/d++OEHhz7ql19+GTx4MF5g
69atzpZRh2cBS8C2CdnGjBlDNOry51+5cqVFixZwwt27d2Vu017/yOCf//wn
Wo46GT169JIlS7Zv375+/fpZs2bBA0FBQabx+0uMx48fb9myJTo6GhJDKJoO
1Xoa/vWvfym888mTJ9ih0+rl1q1baWlpDgl7Dwfd09vbu0yZMqtXry7usuhQ
hcuXL8+ePXv48OGQLaKFbjty5Eh3UHpKSgoPDwgIuH37tq17ikX/yAC3EhIS
YrCAr69vbm6uJ8+juRa4+0mTJvHh8fHxehD3UoKoc+fOnfv27dPbt6TjH//4
R2JiYkZGRmFh4YABA9xH6Y8ePeIt165dk7/No/QPlC4mzipWrEjNoGEaNWo0
ffp0T1aq7gDRSmhoaOnSpb/66qviLosOHToUAe88cOBA91F6SQSU3qtXr6NH
jxYZg/r/kcFzS9y5c6d27dpeXl55eXnFXRYdOko8CPCPHTuWlZXl1khfIaUf
P36cknga59+7d2/p0qUuH343pXTPh/uaZseOHa+++mrz5s3/18ITUzx+/Pjj
jz9u0qQJ3q1v374eEkjqKHFAGWZkZNCbLl686NYXKaT0Bw8edOrUaerUqQrn
3zXA1atX33rrrbS0NJer6JJF6W5qGmo1ISEBw8A81Ay08tvCwsJLly45uhjD
E/Dw4cPo6OjU1NQXL14cOXKkYsWKMTExymdjPRZY+IQJE5o2bVq3bt2ZM2e6
0HIwm6+//jo5OXnEiBFhYWGtW7eOiIhISkrKz883u5P+y6v/R1bOY/lr1qyp
U6fOwYMH3f0u5QMv169fb9SoUWJiopIOTntFRkb+9a9/bdas2f79+63eo0b/
3Lhxgx/CY+6Y1pEonc6bl5e3evXqzMzMO3fuuPxFlqAJpkyZ4ufnh/Y2vS5c
PC1ltZYcahqFEAPppUqVmjNnzrRp0/CejRs3pocSESjxodyze/fu7t27ly1b
tmbNmgEBAfxBLJmWmSj3KND6dIqUlBTxvSdPnqxcufLrr7/+/fffu/vVtOPw
4cNfe+218gqAowkMDKSxcMH0O7t+k+8aN24cdPr8+fPRo0cTiG3btk19mXHc
2AklgUwoVZs2bQYMGIBNjhkzpkOHDrwlPj4ety5uvn//PhY1aNCg/5Fp2WPH
jtGp0Z8aqBqHxtIPHz5cq1YtKE6+YLAffH7o0CGMHx6A2FGSZveo0T8//vhj
586d+/TpA+0oud9RQOnvvvvuxIkTMUWsbu7cuaNGjfL29o6KinL39up79+7R
KaCOEydOmF6nAhs0aFClSpUzZ85Y/aHCplEOiFdkFMEUZ8yYQfeH2RYsWFCu
XLn58+fLv+XZs2dDhgwJCgr66quvpEEbpCDUgTF4eXmtXLnSTTMUW7ZsqVat
Go1VvXp1X19fPgFphBb19/fnr1zknygA5GO3APv27evZs6eU82rt2rVlypQJ
CQnRYJ0t1XvhwoVNmzYtW7YMtSM2/oO//OUvdJmtW7du+xN8L40CbQYHB4t7
4FJbRiKwc+fO2NjYX375ha5HH8RrL1myRE1pedTnn38u1hJA1KtWrbJct4Y5
hYeHIwlgfiqQzlu6dGm+Ts17ixfEF/QLvpevkLclPhklAHvIbJ1wIRyidG5A
GPv4+JgRjtkD0QCLFy/GLL/55hu6Ev0IGWl6jxr9AzMgYFB9lqGcq4DJQeZ0
XlMCP3DgAIWkBS3dkwsBjaDNGjZsiMszvc7bK1SoAB/aytGkpGkcwvbt21FW
yK0VK1ZIFis8Tr169WR2GeBnPzDiyZMnlv9K+Tt27IhfsNsRnANNtmPHjvXr
1y9duhS3QmUKooMV4Wf4cN26dTCh3SVYgADt/Pnz4s9UL/EFz3HT9g0ZUI1Y
nfgKolpblUZ3O3v2bJcuXcReqk8//dTqmAZdr3///jgC/kwj4iPQCadOnXKu
bLyUGLx+/fpiie+aNWtkVDfdCg9CK4iaxLGeO3fOufd6AoiacfF8SLNmzR49
emTrNiqEUIhAVbP9LI6ueCF0atGiRfv27a12WFBQUIBdifEBehbWhWwwS++p
Rv/k5OSgB+ib7gth6DVHjx41mxOkooYOHUpFjR071k2dmi8iHOYVaBjT4U3p
eu/evWWGPe02jXJQA3ACbyR0Mn0jddK8eXMIGaVn6xPg6h49esgkdEV/YuE1
atRwd4+mmehNggzx0WrU9U8//dSqVSuMecOGDS4soRKggTt16iS+YtKkSfJ+
EMaePn262GmCufJbyxtw1kJFE0Ph6fCwztUM1Utbi0QEERERSqTOzZs3iZjE
t8gzoYcDO583b574kPHjx8s4MsJnpCC+WDMl4MQiRmQbNsMXWSVVhNzevXsx
PERCr169ePLs2bPN7nRa/0ApKBaMQYPxTEukp6cTLRIguGl3PN0tMjKSqvjy
yy9Na4yaJGjl+ty5c+UdmXzTKIc0kI7WNb1OCMnnwwN4Yas/xK0EBwfTzfv1
6/f48WOr94iBYuGh3Do7RiV89tlnot+9++67tpI8KMGVK1eqVq2KG1Ii710L
2kI5pRcZqzchIYG24/6PPvrIlgaA7ZFe3LZw4UInrAVbxemLEaHY2FiFOwQp
/OTJk8W3ECyU6IF02gXJin+UsSvu6d69OwJGy/zGTlA6vhU1GBQUJM9siLFq
1arRC+gOMrcp1z8Y3vz589HzYlRHSVFdCzEWgUbdtWuXO56PNyQQrlSp0rFj
x0yvE/JwndjkyJEj8k9Q2DR2cfv2bT8/P0JjYnnT6xSM4pUvXz43N9fqD8XA
Eebk7e0teW1LbNu2jZrkHreueMdIPv/8c5dQ+po1a6Cvdu3aab+72VFKLzIO
cQhtgK1mZmZavefkyZNVqlTx9/dHOTtaJEgDXykyQBLHWcYCMkC1YsnqB/BL
BOiw9BfkjZYLBZ2gdEn8fPHFFzIJ4ggAxRiC/KSncv2D6kOi16lTx62LT3Ax
Y8eOjYqKunHjhtk/7dmzBzaT0agqIfjQcsDc1gC7JZQ0jRKIL23SpIm0REE8
nPCBh9euXfvWrVtWf3jw4EExTYYCl+np+fn5NLrVCE45qI34+HhUUFxcHPxA
w5ndYJfSMf7s7OzBgwe/8847ERERmzdvtvoi+sWIESPkh7LdBycovci4PVwk
Fq5fv77lxAcPmThxolihKjLREX8p1MzUKvaPsxCDJ+gQhz6HF+FHKNvp06cd
+mGJA/U5ZMgQpEtWVpbG73Vi9ygKnC6JILS1CYXr/Cvae9OmTfz1+fPntoba
lOufrVu3Uj90QLfGa5LO/Pvf/27GNpJKz8nJcfl7edeMGTOEEzQlH7MBdtoI
0S7Tr+02jRKsXr1a5Bg3LQmNCPUJYWbLTVMwhDdKTH5EhU8ICAjgUbhOp8Uz
VbF///727dsLugsNDTWbRJCndBH0iaED4hEq2dZIkRRIbty40bmiqoFzlC41
llVLpjOiHPDaIt5ETfXo0UPhyDbOonr16gbjmUp79+519HN4S/Pmzc3UwkuJ
goICQt169eo56vVUwjlKF4mtMIndu3dbvQH2g/pef/11ITiXLVv26aefWlqj
cv0DhyD8JB/hPoiAtHXr1pZjAgsWLKCohAnuGEvnAxGKPD8xMdG0KqQB9jlz
5tAxL168CA3KTD7abRol2LBhQ5kyZcxM4syZM15G0KmdfrLA/fv3MXWx5k3l
ZC6PatSokcGYiic9Pd30n+QpHZEPrYkfrlixQuYVly5dwkv6+PiYLdzSBs5R
OsBhiV/RDc3iu9zcXCwEaoVgqaW5c+cS3Cl5Mo0l+dBBgwY5MZ4gFvD069dP
zThYiQBGhWBAF2m8PRNKF2m7oFbllC5tLRw1apTlr7jCdTEXzJ3Ib1jIbHxY
QLn+uXnzJi6vVq1aTgz9OQRMjljeUn7Qs4TsoVu5Y/JaDKTz/OnTp5tqKnqf
6fD10qVL5XuffNMoxNdff+3t7f3BBx9IARGqG3GOdEfyqR98wCf6+voKtlE5
0y1Nr4O4uDjTCE6e0g8ePChWa/j7+8tnfs7IyKBvQmXFkvnZaUoXEx/8itAy
Ozvb9J8OHTrEt4so7OzZs+Hh4UpUCvWJqhFD6Pg4jMSJz0HjNW7cODU11Ynf
liBQsbgtKio5OVnLiT/sn5gLUjUYV3nBlspJQIxCWFVZWN3f/vY3mn7VqlX8
OSUlZcyYMVZDdeX6Z926daipzp07u2l7kSn4tLfffts0FQNfAZfierp06eKm
hCfSgA+vEGNQYtEvJSEuqFy5MuHD48ePcY52u5JM0yiEIPDAwEAxbUHbETuI
1c7KJcft27cRisOHD4c6hgwZsn79emmrxYULF3AZfGyDBg3sThDYxaJFiwTj
mQ3fyVP6ypUrBTt17NhRZtifHiHW54wbN65YErg5TemwtHTqh1kUzDPj4+Px
qtHR0W3btjWbBLeFBw8e4ILFA2NjY50Tn3SfoUOHyi+Z8FgUFhYOHDiQ/ghl
wdiWRwdKQKhQV84N0mK30DKEgyTu379/nDW8//77BNGm8TJcgeKVTi1EhIhV
T1xBtJjtRreK/Px8sU3P6hJ6KJovglVQthTAFrco1D90q48++ojioceUL8uh
OxNZ4wiqVKnSrVs3y1PMJMBga9askbia23bv3v3mm29ie1ynkJASrUMdypOk
0y+VBtLFzqyWLVtCI3Tk3r1707iHDx/meosWLSCfOXPm2K0B+aZRCNQURsu3
wMbNmjULDg7esWOHEj7hWygwRIEbwv43bNiAM8KwCQORDaJIwunwvW+88Yat
EWzloBqFJYuRBNOS2KJ0Mdog/ikyMlKGncSskKt2zTsBpyldsIr4ITrBTAvx
HDrp6dOnlWsknKCYeqAvYAyOfUbJx40bN2CqtLQ0DIl+XbFiRUl9WeL8+fN0
QLqhQzsiMUueLA1t2QUE5cIRA/qOOD7D1joBJBneny+yZYTK9Q8iCjbjTvSY
krIRU8OBZp8vFmxbfVFubm7fvn3NpNrTp0+x26lTpyJN+Ua7cxxqXioNpBPY
YjAFBQX4X9P5I/gfcU4YpSSIs9s0yoGExr+jtxUGj/Dz4MGD6fhhYWGWuVwQ
EvAnYg/HJOrHJWFXdna22FxjtlhIntLFiiyDcbbXdLiGnotZpqamios8HAbD
9RRXOkqnKR0DJsQTP2zcuLHKAS66c/fu3cXTGjVqZGsX88sK+im9VUrSgjKB
sStUqGDrLHK6HjYps93bEjT05MmThSXz/6ZNm1LhDRs2lMgEpdf3TxAlJSQk
uHbtHySDCjVYm09XCOX6R4wzy2xaNAVUKZZvASIROmONGjXEX9GN+/btM7uf
xoqKilLJfipfKj6QO9XPPBa5ommcw927d4XAICq0OpQBHc2aNSs5OblPnz6i
coYNG6ZeZuApxKg4dWjqeWUoXYwNin8iDJHKwD3igK3WrVv/9NNPdJkmTZoQ
N9nquRrAaUoXeS3ED+vUqaMyLTCeTkx/GFQn53QONEFoaCi01kI16J70PofS
x9FVCZmlwQSxscIWd0nLfS03ztsCrYwW4idY8rRp06Rf0dx79uwRWlEmKHAJ
pHlV5YMhTuufixcv4hPFeLL8nVeuXOHzK1WqhAszjcGJMXFtpUqVwvGZsc3e
vXuRlGrWXah/qRhId5X4caJp1AMRCA3yUpShjCC8cOFCeHi4mAimZhSGXfI4
c+aM8Kc4U9NpPhlKp1rwJuKf6EGS4xOZEIgyxowZk5KSQjnRt3atzq1wmtKl
2NZg3EogPwVsF1u2bBECsrhOuaKPhISEBAcHN1UNYtiePXva2lthCSIURMia
NWvEXzGekSNHUhXVqlW7fPmy5f200bhx47gBU1eSihDLHD9+vMG4QQ8Ct7xh
5cqVZcqUUbLZUA0o9ieffEIxevTooWSiRI3+QYbBeNxcUFAgc5uo+Xr16lnd
t0gh6a0Q7+HDh6WLCFokpfwaNnmof6k0kB4dHe2SlV2ONo16UAn9+/cXNimf
A0okohE8g4maVovTKCwsRIXyQIjddKZPhtLpaLhUgzGdl9lJytQY9EWXnDp1
KoZX7JvWnaZ0FJ00Kot9qkkiKm2OABizkrm2lwn5+fl4EynMEav6qQpMyOqw
ITbzwQcfcAOKTon9bN++HX7DY2ZkZFgNq2/evFmzZk2DgpQgaiARkcJ0W2r0
j1AIKGGZKeYi4+hHw4YNZfaYY+Rdu3Yl4pb6BcbZuXNnNcOM6l8KvUA41OT8
+fOdLoYpHG0a9cjMzBQSbsiQIfJeCW8uxDxw1X4TupXIQIiSWbdunXRdhtKl
RekqJ5E1gNOU/vjx4zfffFP8UOX6f0mXCsGvZMUjP8HyKTwu0qzMXNFg3ZoL
gZLcuHGjFPBu2LABa4fKbElBaDwqKkrhCBVdoHnz5gbjNL2tlVeYqxhUd2si
UPpLcnIyb2nVqpXlXmyrcFr/iCUN8kqDhyMUxX4cmUfl5OS0a9dODI/Qx0eM
GIF/cdrxueSlXEFU06CuOgTNiaZRA77rjTfeMBgPPrCb/QYDhskFObjquFu+
l/oUS7ZMt1fIULrINGIwrmAsltXmyuE0pUs7HdQHgHRVEYWBpk2b2nXEUFNo
aKjBNkpuQgAEmKDrunXr2nJtVHXPnj0NyqaKli9fjhSRyZtU9GcWBYP7h1LF
emCVe8+VYOXKlXRY+SQnT58+nThxot0BQ6wRhSzOCLh69Sp/VjPGWCwvVQLN
mqbImBtZWnBid5H59evXxcSxa5cF3r59W2RtDQwMlOrWFqVLW+Hs7hv1BDhN
6ZcvXxaL/4Ea3VJkMpJgMA6cKpnyw9HT1gSkmzdvFiOuBuM4/OjRo0+dOoW7
KXGnFgrQf318fERAakuUSip98ODB8gyMnBDzHcRTMqt5cX9itigpKcmt9Zaa
mqoNb4iUI0FBQeqPn6C2EXIZGRl0Dfo7hKzBBKL2L9WsaeDJvn37ig4bGxtr
VwpmZ2eLFelma8hVAjtfuHCh2F4xc+ZMwXu2KD0vL0+4FZSkBlGMSjhN6WJ8
wGCcxVN5hDEvnTBhgkTpjlbasmXLRAylxOl7MrAosf5WPuGGtD7BbDuzJXC7
tI7hz432tm4Tab1RIOvXr1f1AbKQvk59mg672LRpE8apfiGWAHSXkJDw3Xff
denSxenzXDz5pVo2DV8kUqwoWb4iyWNuNssJrx7Pnz8Xi1i8vLzEnLtVSv/+
+++FLkLVu/usdpfAOUqHScSiOAC9qJ8ll2jZ0SXu0vYToCa1C88h/rpy5cpl
1eAhfIIT5kd40qZNG4O9LXLSJ5ul4LPEunXr0CHyW0ikNFy+vr5uzTIk5XHV
YJP+zp07y5UrZ7ZEzWlQe1Q4biI6OlqzaRotX6pl02BjQmZUrFjx6NGj8jeL
s2gNxgUY7kh9xseOGzcOMQOrr127lr5gRun05Xbt2okBYflTCcSQGuRPgf39
/d2qjuThHKUXFBSI0VcCdpdsdjh37hy1KjS/QzsiJRoEalK7LFiwQPgUl8C5
PSDSFAz9S/IIBJtmeUelDoh+kzlvVJJeVKxMlo/79+8HBQUZVCRhUAjpFDCz
FKzuALKWJvD29ra6CtRRIOF69+6NYDBdHeFuaPlSLZsmLy9P9HS765GKjNPc
CBLTsRGXQ6QjoCsRqBLmS6d28ucePXq8+uqrlBNisXtqg9j0Tcd87bXXKlSo
wJ/dUVolcILS8WVinTPAMblkHSY11rVrV4Nx2adZxkt5iI2WgkXVrPD/4Ycf
Nm7c+JUrsHz58l27djl6opYUY5oe7yKOxrb0DmKoRH7kU1rGIL9rQJwnSC9z
9/4I7EQMompwwO6dO3eQ6PSsgwcPqn/a8ePHkV50di3zGGv5Ui2b5tq1a0Kl
2z1K8tmzZyEhIQbjljqrQSuNSyujq81YC06IiYlxNFcwfSQjI6Nt27aC2YgL
Fi5ciEp3qEJEKo/69eurWdStEo5SOkSRlZUlttPyQxeOvO3YsaN8+fLisQq3
MQrWEupafdbN4sWDBw/ESkJcmxT8ErygHywtX2ylCQgIkB8rJvojqJS5TRzN
aTAeeexuecZHEdcbjGlJ3Pqioj+TlrhqdgB2rVSp0vDhw7U86l3Ll2rZNCKr
g8HelD1de/HixbQgUs2qX5bWVCQlJZmyljgahutQvaODnyoPqpO2dSPvlewB
dBMcOk6aMm/btk2o4latWrl2dOv58+dxcXFCqC9atEhJc1AAMdRmMObSKdE5
0o8cOSJGXebPny++nbZITEy0FCFFxoEvHx8fu2s1r1+/7uvrS3tZndbB+MVR
rRiA+ux2doHPCgoKwhNZJjBxOaTNOE70a0tAKQhLNSdEePhLtWwaKVmKv7+/
TBIhLJboklB0xowZVp2a8NqWKxvFITgK0/uYQSWlc79YiqZxqhwzPH36VNqc
JZ/g7uHDhyNHjsRvcmdERIQ7MmvxTFEYyA19JV8tKM927dohMkXIUNJzpNN5
CVJM54yQ6B07drSaK0bkTMP3SWkErEKshSOKsVxlSkMvX74cy+c57l7zLCAG
UQkZNHgdHztt2jSDi7bMb968GWGpcSo5LV+qZdMUGbdLw+cwCRZo9YYbN24g
1bBbW2nzwdmzZ5E0fn5+Zh1Euq48I4cE06V38hNVViF2mMpk23Mr0LcnTpzI
zc0l4hZrEQ3G1SbZ2dkIvzN/4uTJk1lZWcnJyXC4uA3XCY0o7CaXL18eOHBg
w4YN+VKq6Pz58zxw7dq1MuPMCIbw8HCDMVsgdGR1SIrIAilbq1atDz/8kDiu
T58+KgfSPQGFhYUoJSnpxL1799555x2q2qpfQ7fQcGIuQz6wogLxerSa6SFB
eAQiMmq4X79+mp3ot3r1anwQH+XoLINz2LNnD7JT/UJrkVVV41RyGr9USdNg
clu3bu3cubPozqNGjYLBNm7cSHTpxPgGb0TA1KlTxywxAsack5MTGBiIceKU
Zebrly5dCueHhoaaLdFZsmQJ1ymnwmPonzx5gnY6fvz4rl27kpKSxKHVEv/A
h3wgTKhkbFycCqT92ZFFRvEWGxuraOmGEWg52IbuTyyjcIwIA1i0aBEOa+jQ
oSKoR4USKEFZVJr8mhbsinYRK2qo2Pbt2xMdzJs3b/HixYmJid26dcMY0Of7
9+8XbHblypX4+HgXbkMoFmDnW7Zs8fb2xvfRX+CitLQ0mXFUcShA27Zt7c47
4CXj4uLQ/71796YCBwwYULNmTX6IDWt26oo0wkk7ahOTCsmkfh8xUg2N8cUX
X2gZSmv5UiVNQxeOiYlBOK1atYr7YdqEhASqt3Tp0vRHJ3w0hrdhwwYfHx8o
YvDgwTA8f50yZYpYvQZRHDx4UObbpa0ZZueuSvvQJ0+erNC2xenkpnTHR5ld
Mdjb2VFkMpCOZ8zMzOzUqRNfgUjmoxQ6F08G346Kho1xHFLwIh0007x5cyXC
CTvBC6DDYW8cClEhLNerV6+UlJRr166V0M2hdgH9bjbCbsQttmzgHxUmEUJm
8Fi0zbZt2+wuHnM5cLjBwcF0Yc0OnJISB6l0IsTvdevWVX82hMe+1G7TENNF
RkbSndPT06WaFCdCUr0TJkxwWhgQIaampnbv3h3vgGInnIQiIHO7M8KizJYD
5uJ6sZwohJsTA+moCGhKDGGdP3+eAJnac2vaag1w9OhRLy+vWrVqmRqJmOwz
GNPdF3v+yZcAIiGqO3bVuQPihHGUlZZT2NLhUGpk0qZNm6pVq6bwsEVXQcuX
yjcNZpaUlCSmC02HOMS57fA86lqDQprB7kC6uI7f0WxrmJT7johYInCxLKe4
aslVoA7FYgO+xdRIkOt0LigIoViMxXuZcPHixRo1arRt21bhQRjFBQx70KBB
2iyoMAWmiAKkjzu9oV6EluoP7fLYl9ptGlQZ2gxSwsuYXr98+bLCc73dATGQ
bpm+IC0tjeudOnXCidP6sbGxmqXvQ8eiHwICAkyX8UjzrSNGjNCmGO5AXl6e
t7c3NmC2JJhIxN/f3yznvA41oO+PGTOG/mj1YAvPwdWrV6EF2FX7rKRIUOpn
7Nixzq3uFhmkXXXShAe+VL5piP5mz55tMKY3MRusW7duXZkyZeye6+0OSAPp
Zqd63b9/v2XLllwfNWoUzZ2fn9+nTx93p6wRkLb1RUREmM42SrOWffv21aAY
boJwlKjHGzdumF4X8V1wcHBJn8f0KBQUFNDdwsPDPTZFvFic4+Xl5ZLEEY7i
119/jYmJqVmzpnPHFohju+mtWg5tafZSu00jHVptxlTSTuePP/5Ysxl2CWLA
nLdXr15dWjBz79699957T1D6tGnTRLYWlRlileO3334Tp6POnDnT9I1ieIrr
hF0aFMMdkEbezGIi6XxtMZCOSXz77bfaG8PLByp22bJlRHxZWVnFXRbrOHfu
HF1Pm5y0VoEQJTwcNmyYE6I3PT29cuXKGufr0OyldptGOlHIbGGJSKwkDREj
1DVbClv054B5hQoVGjRogLOOj4+HzCnP1q1bHzx4QMTh4+MTGRkJx2qwgU5A
nNOBZDWLl8UZuK+88sqqVau0KYnLIW2/okpN15QilsLCwqR0mqdPn46KinoJ
1vZ4AqhbrBqLctUZNy7Es2fPunXr1rZt22LM1YBNZmZmVq1a1dFVEEKLaj+Q
rs1LlTQN97Rr145ui2wwvZ6fn1/dCP5A9c6aNUvLQEYMpIu8GQ8fPjxx4sTN
mzclj8Mf+CvqXZtDVAXu3r1bywiz6VrojqLWqVPHiX1PnoMdO3aUK1cOAjeN
1HCgeFVxYDFNP2/evOLdM/uSAZEQEhIyaNAgbXbxKATsRByKlJLPSqoBCAwJ
HuFJOrvyX2HA4eHhpgeZaQBtXqqwaaQ0zosXLzYtIcUz/JmkBWEWExOjWRp5
aSDdLLVL8QI1BW83atTIdO2xlHZs+vTpnlNUJ0Cw1rFjRz8/P7GfiG9Zv349
4VtAQIDIMQj/ECi5JOupDgnXr19v0aKFGEUs7rL8F/jrtWvX1q9f3yVHuqsH
im7IkCEOnQSNzEN7aHx2sAYvdahp4GoCnJ49e4oNJj///PPYsWPR9uXLlxcL
Sw4cONC/f3/NpnKkFek5OTnavFEJqBZqw+ys2/T09LJly4aGhmozRetWEIZE
RkYGBgYOHTqUL33//ffxYnv37vX19cWzd+jQYf78+SXabXkmCPq6dOmyYsUK
Twh/oIs2bdp4VJYGQpjx48ej8Tx2KlkbONQ02NKePXuCgoLotoSBb7311pw5
c9CfU6dOJe4moIDetVzDJgbS/f393XEihhpA4FRIZmZmkbHSoLvq1au3b99e
++QA7sODBw8wG1NRhKPPy8uDeTyBc15KEBRrnF3KFlAmHrhjDsPDLItrotZD
4ETTEPoRdNN5Tb0hXRsNr7EEFcefde3a1dGcWu7GixcvUKr4mri4uLCwMD8/
v88++0yfLtShQ4cOGeTk5LRu3To3N7e4C2IdcDhxxIULF4oxX7oOHTp06NCh
Q4cOHTp06NChQ4cOHTp06NChQ4cOHTp06NChQ4cOHcWL/wdm5+Cs
    
    "], {{0, 63.}, {497., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{497., 63.},
  PlotRange->{{0, 497.}, {
    0, 63.}}]], \
"Input",ExpressionUUID->"2bbbd4df-9fa8-434d-9c2c-c9ac0a41b537"]], \
"Subsubsection",
 CellChangeTimes->{
  3.7467908610581846`*^9, {3.7468415726406765`*^9, 3.746841573089467*^9}, {
   3.8312213135907755`*^9, 
   3.8312213139862423`*^9}},ExpressionUUID->"5dd21fb5-35fb-44fc-85f6-\
859cc5aa770f"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"G", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"I", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"sigma", "[", "1", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 
   3.746807033746698*^9, 3.7468417625815697`*^9, 3.7468418765321264`*^9, {
   3.746842284655871*^9, 3.7468422881912074`*^9}, {3.7468441273413625`*^9, 
   3.7468441299878983`*^9}, {3.831221319226878*^9, 3.8312213233227615`*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"7fc8a546-f49e-43ce-a7b1-72a5e5ba6762"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"G", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, 3.746807034420087*^9, 3.7468417637576733`*^9},
 CellLabel->
  "In[102]:=",ExpressionUUID->"e6360267-0fc4-4df6-aa27-9a0ce2460318"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuKlBr8Y21jeOArNclAC0RssJmu0g+ikvVl8wm8cBcQ1
xPiBNM91lUYQvWnuvRUgOttVSqqy+43j/EeTu0D0v0ufXoHo/pTKL9N6gOYx
r25eDqR3eJxNPtL3xlH6Y1TsaSAdvMlVNXT5G8ckm31LEoH0PW3Rp8lA+tML
1vwmIP1KMfDJGiDN+UCj5BaQ/rHQfE35qjeOK+XTDDs3vXEsvL7y4/1tbxw9
a87qntzxxtGhJfLHOSB9QvKM5hUgrTXN9JnKzjeO9uXvrHWB9Cdv0+96QJrz
05PlpUA60muZWhWQ5q2vOl4NpM+8UjKoAdIH9toWNwBpL1H//euB9M/n8wXP
AGkfNo1SEL3kd8bSc0D64ZuYlhtAOqni73wQHVws9/gdkNZ5ffv5VyC9werC
dqddbxwBV8W6UQ==
  "],
 CellLabel->
  "Out[102]=",ExpressionUUID->"89993e55-7fbf-40b0-93db-643bc34a7fb7"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlwVtX5xhNAZVGBAAlbgACyJEYQkU2FEBLCTiAElKVgSFREEvZAtWFX
thTKIjZCiGwhNAJCJU6qAQtFrUwDSgRGIJChII4sU+lIp+3w//V753/nzrfc
7+bbA+eZaSde7nfvuee+53mf9z3vOTciJWPkK9WCgoJm1eT/Rr6c2XfmzJfn
J9XjP5LTZ015NT0tdWD67LRX02b2SKnOwQH8LyM4KOh/f99TUFBQUFBQUFBQ
UFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFDwE86c
OZOTk7NkyZLdu3dfvHjR6fnnzp0rKyvzQcMUFO4/3LhxY8+ePcuWLdu0adOJ
Eyf+9a9/GZ9/69ato0eP/vvf//ZN81zGX/7yl+effz5Ih+Dg4ISEBI7/97//
tT2fJ8rNzY2IiIB87J6goKDgCFevXn3ttdceeeQR/Yhr3br1li1bfvnlF7s/
gW169OgxYcKE27dv+7i15nHz5s2MjIyHHnooMjIyMzNz8+bNy5cvHzFixOOP
P84DVqtWbdiwYTyIdj408sknn/Tp06dZs2aHDh3yY8sVFKoc/vOf/2zfvr1J
kyYhISEpKSkbNmx4991309LSYBKhlPbt2+/cufPu3bvaT86ePTtlyhTGY1ZW
liOqCQQQp7zwwgudO3eGH6wExrVr1+bOnfvYY4/JMzZo0KBv374xMTGNGjWC
YcaMGWMmDlJQUNBw586d2bNnh4WFrVq16ueff9b/E+yxbdu2J554QoYbouWZ
Z54hNGjXrh0xAo6+uLjYfAjwz3/+c+rUqbVr1167dq1vAgc0yYABA+bNm2f1
XHpUVFRMnz4dIpVnRMDEx8cjSFRoo6BQKTBkli5dyvDBgzs6BxLIycl56qmn
qlevLiOuQ4cO2dnZBiPULi5cuEDgwM8XLVrks6FK402e+eOPP54/f95pjkhB
4QEBAcv7778POSDsGbkTJ050GoMgP0ymTxmYcI7L6RHaVlRUlJeXhxZy7QqB
BigRmiU+Sk1NDeRY70FGaWlpp06doqOj8RQGpxUUFNSvXz8xMfHWrVs+a1vg
45tvvtm4cSORCBpgxowZDGF/t+i+Bdqsb9++9HNSUpIik8DEypUreUHNmzc/
e/aso3OQo6NGjeK0559/ntDYl80LfFy/fh1lQvifn5/v77bc5/j6669zc3MJ
kfzdEAX7uHbtGlodD2t82pkzZ9avX69S7rbAwuvVqxcaGqoKrhQUFNwBVFy9
enU0WyAEgF9++eWAAQMIu8LDw5csWWI+I6qgEOAoLy9ft25dIIyykpKS3bt3
e7x2lAtOnjz5fx+IyMjwe8KkuLg4Li7uyJEjtGrOnDlEXps3b/Zvk6oc7ty5
g1b3dysUrHHy5MlnnnmG4Mjvowxcvny5d+/e8+fP92zujvidZ2TY7ty504OX
dQHnzp3r16/f8ePH71kmPt566y0o7tVXXw382ntjYDwffPBB165dW7ZsOXz4
cNyT9+518+bN+Pj4tm3bYi3eu0sVAoaEF9YKmOvWrdupU6eRI0euXbtW30WM
9IEDB6KHo6OjP/74Y7uXun79+htvvBEZGdm0adOkpKRKJUxOnz7NDxm8gVNL
8O2337Zv3z4zM9ODTZKESaNGjfbs2ZOcnExX06WJiYk8vqduYQYwxqxZsxYv
Xiy8fffuXd4Xb3/hwoU+KDK5dOlSVFRUTXOguzCMoUOH4mV++OEHpxfPz8/H
ejHdjz76iJ+npKR4yaLoKMYIEWtISAim4o1bVC3QIdu3b8dXrl69etu2bbNn
z27evLm29CMmJuYf//jHPYsXg0k++eSTv//97x07dsT+bam4oqKCl5idnY1l
/ulPf6pTp86oUaNMxuAYSZ8+fRhTcrvAAYFA48aNEf+eGmKSMHn44YfpxoMH
D3JZvBt9C/1++eWXxr9lULz88stwPuOrYcOGNKxZs2YtWrQIDw/n56GhoVg1
voC/P/30U6eX+vDDD7WxeeXKFWiToXfgwAGPPKYxsAr8UV5e3vLly6FTzd76
9+9PVxcUFOz5f3DOokWLxo0bx/NKBWxqaurVq1cdXRmz5CKylmfLli10Nf/p
pUTQ2bNnIyIiaNVjjz12+PBhb9yiagEtIWsztSM///wzfNukSZNq1aplZWXh
uTC8adOmSZX1999/jwE3aNDAiop5X2lpaStXrhRP9/nnn9PDHTp0gHyctoE4
YvLkyZDYqVOnPP6AbgIPjlhCSBw5csQjV5OECcJYv3iNkIdhMnbsWP36GlvQ
/xDO7t27GSYMQ6heG4bQy+uvv75x40Zcw759+8x4cD0YC48++ii85PvZt88+
+4xb8wi1atX64x//6Og0DGzr1q1So4txwoR26f29996Dbe5a8NJLL3Hyb37z
G29oLQYFIaF0Pq6hsLDQ47eocvjqq69wDRcuXLA6jtn/9NNP8hbKysr69u0r
ZkY0itl37979xo0b+vMxgyFDhmgHc3Nza9So8dxzz5lJpe7duxcZg6QJzAUX
+EG6qFevXu6XK0jChJ6BDfTHDx06VLt2bfQeCsH81SBq9L/Y85IlS9zpvVWr
VnER3Irvy1+xQJiQu9MDSF/jkzHU2NhYTsZg4BbbR4bzpWiBsBHlxpW/+OIL
bzQb7Y2LkSUMwcHBkJg37lK1QFeHhYXhywzOKS8vR5AjObA0Qle7pst1sAr5
GyJ65ZVXOA1f6TSbhw9lfEVHR5vRMP7Cpk2boNAVK1a4SXdawsRK10HRMAxu
15bVDQB19+jRQ8iEFrrcKpw48SkXQYj6ns//+te/mieTexYK7datm5xPHGT3
HJ4C5cYYj4+Pr+waJTMgMiV6Sk9P18h88eLFgekKfYnz588TYg8ePNhMsoL3
TlRO9FpaWmpwGpKma9eujL5t27YZX5D+xycyjny2UtU1XLt2DXHSpk0bojx3
rpOTk4MvQ+ToBRssnZmZKQv0KsWomLRHyAQ5hCgyjjK8h8qSifxE1hETLZ45
c8b2BGgW8UxX//73v/d0e/9ntBs2bOjZs6fsnyD9/8YbbwTCFKR/AYcQwtSs
WdMRyWvQZg8TExONM1pQTf369eEcp1Wy169fR5aEh4cbrIoNBPDshN48+9Kl
S10mPUQaUs1WsMkrkI7VT0MXFRUNGjQID4jM279/v63Gc0omRFU46KSkpLi4
uOTkZEcTRiUlJY8++mjLli39Uq7sApkwbN9880158PHjx9vO3UvYGBERIUoP
ivbgmg4cCp6loKAARTd8+HBpBt0bOLOQ/gJD45133qE38E3Gbpd4hD5Eb+zY
seOeJU/raG5dsuhQt9M3mJ+f//DDD0+cODHwXwQ2D0PSA5XNbWrgGaGLatWq
WbnLkydPQry2BWP0HoKNwF82HFu0aJGV7zMmE8RPQkKC/GtUVBTOwm52FwOQ
xVYDBgzwS/mrC2Ryz+KwiBYl86yfPrhn6WfJckvNDLH52LFjHRUzVBZcHBEy
ZswYLquF8yA2NtYb8VSVAw6LSIcOGTVqlEGH/OEPf3jkkUeQ4pIkROnNmTPH
VtrRw6mpqWaEH6YLsWvsFOBgbD733HNIuI8++si1K2CHL774In24d+9e7SBj
eeHChXQXtGA3wQsJyFaNzZo1s5L0xmTy4Ycfaj80KGKBYUaMGOGzChNbuEYm
GKpkYgEjWi/bpHqBqwmBQDVDhw711Fq/zz77LDIy8uuvv75neXdZWVnSBgS2
Wk54z2LkQrA1atRYvXq1o/17X3vtNc5JT0+HIjBjLJCOtT1TS5hs377d+L7f
ffcdkS+elz888yTeBE89d+5ceoB+cK1GVHY6omd27dqlHSwrKyO+QJl8/vnn
dn8FdUPg8nasclAGZEJrp0+fLv+EjzCYcdYSJp7y3ZWFa2SiJZokc6IXyUjH
zp07h4WFETtjjaNHj9Z3uDvAoaDfpF5CjuBSg4ODgyyb8aoiWAEvtEGDBvRJ
SEiI3YIKem/GjBki0fkbYUzgb1cVnzhxgnDAdsLCFlu3bmWA9OnTJ9AK1RwB
bUZQ5o4PgjpatGiB6pauKy8vR+3Q8walYpwZFxcno8ZqtsWATGAPmXdzOmtc
VFTEKH7iiSf8NRZcIxNAVIhB2hao8LAE2lxzyJAh3bp1y87O9khqlMvSyd27
d9cnyQsKCvAOtAF3UCV8oldBFx0/fjwtLa1OnTpie470NuSAi2Qo9e/fn5jR
0YCSCk+rCQtb4Nyl5sdKoxrg2rVrjCbcKBT0+OOP9+vXz3YXYg2EtFiUy/kN
uzh16hRki5Xq680qi8OHD0dFRfXt25eQhwAkMTHReCMCdKOEIZos1P7JgEzg
Z1ha/mnjxo3acX5eWFjIrUVVwjkpKSmcM3PmTH9NRrhMJvv27dP26redtWfI
09UVFRWeauf58+cRPFYiR6u4wyCPHj3qqXtVRRCDY6h169adNm0aIXZoaCjd
AhWsWbPG7iAlUCUCZUw5MjytwpMLGhvn7du3ZVqNe5lpKg5Uqh/1kNoPuzfa
v39/UlKSZz/xAJtFR0e7v0aPXoKZUYBmuI6TJ06cKM9L3+qJ14BMbty4IcUY
vM28vDztOCNCuvHXv/41l8rPz2cIo448OOgqC5fJRKqs5fFdjj1NgotnZGQk
JydbJRW/+eYbdDgNqFmzJibnvQYEMuAKlGGTJk1w9LJuFA+IPpFX4/Kchcz4
EAs4nWhG4bds2RLPAok5vSyvSRYhgsaNGz/99NOyUiPIsizCtjoCDoEkPb4s
F7WDHArybYUSVIkgkYclPtJPexmQieQNgiyV3khx/XG0JYEVHD516lTk6OjR
o/27gt5lMvniiy/wg/L4SGWvTggicjp27Gi7eAozJm4Nsky3+X73hkOHDsXE
xPCiO7kNxhRDxmDvRAMwhBmGrVu31uf50WnydnitJj9vxM9xl4Sl8iqxW/iB
hjnlIqkFpQ2OEo8aSktLcaaIyblz5+rNHueO9ggODo6Li7NSIAcPHoyPj/d4
dp1nZDhXKjRzH/opg+HDh+tTqQZkgtKQT2DY9vCVK1dWrlwJk7zzzjuBsNbV
ZTLR6vABA8F7ZELAPmjQoLfeestWA4v3lDbQnz6eDsONoiqffPLJKLeB5B4y
ZIjdCkBjIEXw77w7K1VAoM0YNN8zGLZs9Prss8/+9NNP586di4yMxOuZIaKP
P/64Vq1anGycMUBVJiYmtmrVSqvV1+OXX36ZM2cOPFNcXKwdRD+8+OKL7lSE
OgK2NGvWLJ538ODBvtygWIrtuW+vXr30pTsGZAJLhISEcLxp06ZuVu16Gy6T
CRG3plfHjx/vPTLJyckhZrS7bEqfm5o+ffqDVgRLNC31lihDq+kY2GPJkiXm
g1C6jrFMVP7666/j7AhbkIJOlYZg165dDz30kNPVKAQ4eFiDtVoMqNjYWP02
7yUlJbxfb6z0oX8WLFhA55hcwOgpyARZkGUTb/0XAQzIRCaeOM67DvDJMpfJ
RLa5kMfPzMz00kC+ePEiSttRnYM+PW4VhD4IePfdd2U2xO6o1yqdJk2aZEbJ
46ChhWnTps2fPx+xYb4zt2zZQpiJ5Lh06ZLBxV966aVly5YZa6S9e/f27NlT
IiDEUmpqKszmDcGpVQt37doVJebx6zsCbCAFWlYpJkdkwrCaOXOmHA/8BWgu
k8mOHTtkWhZ3ZrUK21NgCKA3MFS8XksHqFmzpnQ1qv6B2kGXISBJ/piYGLsz
HdpUl9PpGDfx3nvvBQcHozoM5hEQUbxK46/z3LNsEYAUOXbs2D1LaTp/O/2J
y1izZo07CWqXwWCRgTNu3DgtbeKITLStCYxrXwMELpOJrAIAyDZ3JusN8Oc/
/xkTXbhw4UYH2LBhg7Y8R4J9bzQjMKEpQ0er6Q8fPizTbd7+RqRUHLVp08b9
WinkEGrk/fffh/2ysrLgH+9lR7Ozs/1CJjD/wIEDZeBg4XLQLpmIfKpmAUFr
4EfxrpGJrE2QZyeU82wNgIBrDh06dN68ecZ9iNSXIth27dr5cYbdx8DMoIgg
w13m9u/fj2yzmk/0BkSjhoeHe2SlKmN87ty5V65cwa60seZx0IHEXEF+Wojx
3XffdezYUTygZITskklxcbEUM1eVbym6RiZEx3iiIEutkdOdLlwDapCudurs
CgsLJT0VGhrq48XvOE1EeGlp6d/cBhfBqMzrB8h8woQJPHVERISjTMXatWuD
LLXBTncPcBOSnGncuLFH5hp27tw5efJkCGrkyJHeyzdqGxH4awkAMUvPnj1p
QOfOnXn7VpsjYVoMK1lLm5KSYswkDOGkpCRi3tatW0dHR/txxsc1MiFMlhku
HsEbwUV5eXmXLl2cri+7p6udq1u3rpd2dXOE1atXiyjyCCq1ky2x9qBBg4Is
M4x2LQ1rnDRpkqSSvL2eGv1A47EiWNH9qx06dIjQNTk5eevWre5fzRHonylT
ptA/w4YNM96s1Xu4c+fOmjVrWrVqxVDq3bu37BEUZNmK+emnnw6yzDTRG06j
m+vXr+/atUs2WIOafBy16eECmSBBpboDEzp48KDHmyRfETJeRK8BxSgllLVq
1TJoTFFREa5Tv0hQcOLECW7k2lL0q1evQneO8jmVAsHavn37zG/aiTKRzxk4
2q9bysWJtdetW+fCo1UKCEKpdaGT3b9aSUkJIQDRh6OPpNDtjDIUhVV4QqQw
bdq0BQsWmKkb0TrQzHaUXgUtOX78+OLFi8PCwoRMEhISkGeVitm1SR/0qh/n
NCtLJrJ1eZCl6JQX542k0JEjRyIjI51+LECAyJc96qF3/coFPeje8ePHB1lW
MegbzHFx337ZMNMdSFmIJKzsUq4kTOhGH+SRhLjo/w8++MD9q8leYVZLV/SQ
7d9t8+0FBQUEvGb2cbqnq1BCXrrfZvfh5raNPE5MTAxDUr8S0PeoFJlgt+np
6Wh7ms0f3tj+GpGGPZj3F/IZenkLq1atsnuOWLvtMhOOP/XUUyYXlQQakGGI
Mbt7jfJeEL2M7vXr1/uAJPEvEnN5hJORNyEhIY60IiyK/JBMgt5COJ6RkcHx
1NRUM5Zz+fLlNm3a+GuvVFu4uaE04rBp06a+j/StgAyQnIPxnioYydGjR3EH
QZYFR4sWLfJGpMnoHjJkSKV2m9dTuqPF11KsS0xqtfhFO+5CHbvfcfv27bi4
OOSHLRMWFhbyNk3Gie4D25BtPGEw960C4UEQ7eg7Ebdu3erVq1f16tVzcnLs
Hje57bCsLLMqQ/UjxK+JGa9YsaKyP5dpCK7g+4QJb/zEiROffvopIb/+6z9j
x45FnBzTgXNyc3PnzZsXFRUl57zwwgsmAxBCWuKgJ598sn379ggD3v6FCxc2
bNhg+/qgZXhs/vz5Wg6KqHnz5s0GSyCJi7/66ivaT5slFQxatmyJLR0+fJgb
6V3kunXrICjtk3Yafve733EcueuNqW0foLS0tFWrVsQy+vkaGDI8PJzwx5cT
5QcOHIC+3K/ZkJ2ux40b5yjw//bbbxs1aoSWlt329McbNmzIcZS2mRthXfKF
OAN1bd6AXQNygiFWXFy8Y8eOMWPGyHdbgiz1aUuXLkWbYcmMNaeTwtrGcQb9
5j1cvHhR/+FIp+AdYSczZszgDZrUsZh027ZteQWyqqu8vBw3ipFztezsbP2Z
2kbfQZYv4MiGSwID2SwbHQdZ6m+JoOET/cQK/KC9Am19qFXNP8flM2GzZ88O
/HIgRygrK+vXrx/acvLkyUR5kyZNCg0NnTp1qo/r9yCudu3aub+rDFIqISHB
YN94qWmxLQ7BrXC8S5cuhL1O76Llygy+nmPegF2DfiWIBoxZb/9O4wWBJEyw
/2XLliER6Rx8MUHE7t27q65ha0BDEsHhNPXLovfu3YsmN78i3lNA3uBcbBMj
ctzMfh0BDoYDHjM/P58xmJeX59UvxTsCHkHS8m5+3Ip4s0WLFo52L9ESJlbp
WUeJFEeQV4/CcfTNoIAyYKcgeJddxBH2SCkImQ5ZvXo1No9/qVozC1bANchH
c6w+xiRLRXz/CVSnCRM5TpAe4EsyAxwEyHXq1HGzHBrhERISYvW9Aw03b940
kzChAcYLjWWqy9HngAPNgJ1ClhXzRJs2bdKkCD4lIiICPgyQpJALoPN5BbwI
HsSqz/31RQ9JmNgK4/Xr13O8d+/e2B40Mnr06Ad840c3QR8SCMDPLtfAy16y
SHRHVCAJE0a01V76p0+flkQKIQkWiFM2WGBLfPGrX/3K0TxOABqwMbQigVGj
RukLbH744YeqO1MpwEfIdqBjxozR0762946Pv+ihJUysPs996dIlmVCWvT5O
nTqVmJioPpbhJvD4DNKpU6e6VgaGJOjSpYvBlJAkTKw2HONkiXGEhRD5vHG7
X+4QnDx5snHjxvCe3cRmoBmwU2gJE6vqRCLf5s2bw4q5ubn+apubKCsra9iw
oe2jycd0fD+tL9ExNtCgQQNtCh4FOGzYMCGTN998E8LJysry0r4ZDxTu3LnD
iAsNDXVtFbns3edoXzgtMYJ1vf3223IOIoF39+yzz2Ja3bp1w19AI4hMRzMg
sBxcV7duXUcrFwLNgJ2CIJ1QnSeyig0lKKvSeyPLsndbISrLN7R4s6Kiwjcl
EJIYqV27dtu2bTHyCRMmQCOolPz8/MuXL+OekMcDBw5ElpiZBVBwCvx+s2bN
UlJSXCg4ycnJwUgcVU5KwoRh3qFDhzp16gwePHj8+PFEr5mZmby7BQsW8Jb7
9+/fo0cPu18LEhw/fhy3YrCzQaAZsFMcOHBASp2vXr2qHYRply9fHmTZ6bEq
1lAJjh07xuC1/YrNb3/7W8wgPj4e54VVDB8+3GSxipuQhElsbCxqEAPAzGiY
lqTiD/4TxeLLXUDvb2DGeXl59evXr+wcmXxn0GnChCuXlpYiPLAfXpx+RKNC
GfIGhS4YXr9+/WAbg/RsoBmwU8hmMlbLFekWeFUSKQGV4akUpN4gJCREP6f2
/fffS82bVHSgZkeMGKHPYHgJWsLEakmOgldBt9Ph0EKlPouGzSckJBgUw0vC
xOUtsLjswoULEahoJ4PTAsqAzWDbtm01atRIS0vT9xuUWNcC8+vQAxB0Na9M
vyrk1KlTuIMuXbrwLpYtW4alzZs3z2rSzUvQKkz0X5dW8AHQgZMmTarUXtCI
wxUrVjhKtmgJE6tRYxIYW25ubuvWrfVb3zu6UeAYsBkgkOrVq6ff0V0yV8iV
xYsXV3UfyrNkZWWhSHmixMRE4tyioqLy8nJMKywsbODAgUlJSb6pz5SECSF8
gH8g4L4EZpCeno4y9Ej1jlZh4tpuw3BI9+7dTW62HzgGbAZCHREREbIzGAIv
MzMTCTdnzpz7JngnqkVrnT59WvMjkGRZWRlE6rO9aOSz5rGxsQGSK3vQgO++
fPmyR3YLwXK0hIkLP//xxx/N7EugRyAYsElcuXIlOTmZ6Aw1GB0djRovLCys
6pok0EB0Q4hddafGFDTI0pj58+ffN97W46ioqCgpKTl79myAxF8KCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgGO/wOKKQop
    "], {{0, 72.}, {367., 0}}, {0, 
    255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{367., 72.},
  PlotRange->{{0, 367.}, {
    0, 72.}}]], \
"Input",ExpressionUUID->"42356306-e4b4-44ef-809f-429d4805c579"]], \
"Subsubsection",
 CellChangeTimes->{
  3.746790878526955*^9, {3.7468415837136607`*^9, 3.746841584080654*^9}, {
   3.8312213877516356`*^9, 
   3.8312213882210245`*^9}},ExpressionUUID->"d6b3799a-6805-40dd-8019-\
1fc239ccd92b"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{
      RowBox[{"Am", "[", "mu", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
    " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, {
   3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9, 
   3.7468417647021775`*^9, 3.746841880732951*^9, {3.746842315795163*^9, 
   3.7468423188346643`*^9}, {3.746844139429779*^9, 3.746844140813114*^9}, {
   3.8312213925782843`*^9, 3.831221417105584*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"7b9f4f7b-e045-4cd8-aaf2-9bed779bfe38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{"Am", "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, {
   3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9, 
   3.7468417655658007`*^9},
 CellLabel->
  "In[104]:=",ExpressionUUID->"85f0e4c7-787f-4490-aa70-41d5819ff31a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuI3l34xtrG8cVxx0FEJRD/7MFmjHUjvObU/i0/4jSMT
v5YYP5De+1e9EUQ/MnywAkQb90tLVXa/ceRhZ5wGolkmf3kFopcVVn2Z1vPG
UYl/bfNyIO1SeS75SN8bx8MF0bGngbTOJnfV0OVvHLVc9i9JBNIiraJPk4H0
lRfs+U1A2mVR0JM1QPrVfc2SWyB6ocWa8lVvHG/NTzfs3PTG8U306o/3t71x
1PhzXvfkjjeObQLRP84B6bqZZzWvAOlvU82fqex846hY/sFaF0j3bTD7rgek
D8o8X14KpKtOrVCrAtIJUbXHq4G0NbeqQQ2Q3mZuX9wApMu2BuxfD6Q9QhYI
ngHS0mmapSA6sz5r6TkgbfY4vuUGkF5c/n8+iLYoln/8DkgrvL7z/CuQ7t91
cbvTrjeOAAQguio=
  "],
 CellLabel->
  "Out[104]=",ExpressionUUID->"be84d071-9792-462b-9364-a5ab752e1f39"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlwVMXWxyeAsgRBEpU1QCAmkiBRQUEDypoECIIEQWUVCasPEJBNDLK9
yBKIJGwRMRr2HZGlghvIjsUmASlAxFK28imlUGo9LL7fm/PZNTXLnZuZOzeD
3H/Ve4WTO7d7us/yP6e7T0f2Hda5fwmbzTayDP/X+eUxLUaMeHlc6r38x/ND
Rw4aMDStX9uho9IGpI1o0rckH7bkf3+F2Gz/+/ctCxYsWLBgwYIFCxYsWLBg
wYIFCxYsWLBgwYIFCxYsWLBgwYIFCxYsWLBgwYIFCxYsWLBgwUJw4z//+c/q
1aunTZu2YMGCr7766s8//9R+/pdffvnyyy//+9//mtM9CxYsWAgqYCS/+OKL
zMzMGTNmFBQU/Pzzz9rP37x5c8+ePVhac7qnjYsXLw4cOLB06dI2B9SpU+e9
9977/fff3X4Fv9CkSZOePXteu3bN5N5asGDBQvHijz/+WLRoUbVq1RxtZmho
6IgRI3744Qe3X7l69SpmNj4+/ujRoyb31gl4n/z8/KpVq4aFhfXt2zcnJ2f+
/PlpaWnYfPkhMTExy5Yt4zeqr3zzzTeDBg2qUKFCenq6J6dgwYIFC/9UHDt2
7Omnn77rrruSkpIyMjKWLFkyZsyYhISEkiX/VzMB2zh+/PjLly+r54kCsrOz
a9So0aZNm++++64Yew6uX78+atSoypUrz5w587fffnP8E3b+ww8/fPDBB8X4
Ewg0bNiQ3xgdHR0SEhIbG0tE89dffxVXzy1YsGDBfGD01q1bV7169e7du587
d87prwcOHGjfvn2JEv+rsYOdjIqKSk5ObtSoUZkyZSpWrDh9+nRMrv62Vq1a
ValSpU6dOv3yyy8G9n/q1Kl4n9OnT3t65saNG7m5uQ0aNBAvBh566KHMzEwn
H2HBgn4g+V5ToHcU0ETHaNoRd0g0ffPmzXfffRdb9Mgjj2BRe/fuHbQ/fPfu
3XRy/fr1nkgvn+/atQvjX65cObGZmO7+/fufOXOmSA39+eefXbp04etNmzY1
Vl8QNp0Lsth/vENR0/hHjhyJj49/+OGHz54961MHLfxzILnBxo0bt2zZskWL
Fmg3RGjHjh2ovFFNoHGwlPDw8H79+mnYDYR5yJAhaGVWVlYwRKwHDx584IEH
0O433ngD6weZXLhw4YgRI1CcDh06/Prrr8XdQTNw/PjxefPmRUdHY+hee+01
A6XCWNAxnS6JJ8+fP3/x4kWfZezUqVPZ2dnffvutb18vLsyYMYNJrFGjBipf
3H2xUJzYs2fPU089RdCqaEZhYWFMTMxdd92VkZFh1GYwglAcCiKXmpqqoZvE
5jgdHps0aVIwmP29e/dWrFjR5oKnn37aNY3wD8aVK1cg0ojEihUrirsvFnzH
pUuXYC/48eLuiIXiBCEqVDYqKsopNIbJlChRIjQ0tKCgwKi2Dh06tGTJkqtX
r2o8Aw3btm1bXl5ekRKtgQNmv2rVqhEREaVKlcLaly9fnuFaunSpp8zPPxXM
3b333kvgAyUo7r5YsGDBLxClEvEJfXXME27atKlMmf/dLUFUWIzdK3Zg9pOS
knBV+MQg8UTFAihiyZIlcXkGrmBasGBBAzdu3Fi8ePGRI0cMf/Nvv/02cODA
ypUrY94dc7bLli0jokfTc3NzHZ//888/sQCHDx82vCf+AJv86aefrly50vC8
kDL7xr42QPjss88YBMMPafLCV155BQ4wbNiwoE3sm4ArV668+uqrsbGx1apV
S01Nve0S+xZuI8Cvevfu3aVLF9OIFqo9atQo1Lx27dqnTp1y+utHH32E5H/8
8cfmdMYrZKtJgwYNDh06ZPjLby+zf+HCBaK2cePGGbvZhp/fsGFDaABkwJ/3
wBnOnTv31Vdf+bOWWlz4/vvvO3funJmZ+ccff+zYsSM0NBSVhI8Vd7904ejR
o23bto2Ojn744Ye3bNli7MuJgs+ePbt79+41a9agL7fdzAYhYOM9evRo1qyZ
p9OFgcCJEydq1qyJms+dO9d1EvkEM1u9evWtW7d6fRU2+YMPPmjUqFGtWrU6
dux4/vx5t4/t378/OTkZsYyIiJgyZYp+baIz7733Ht/atm2bzq8UCcrsw/Ro
Yv78+evXrzdnjyu2MSEh4ZlnnnFyOrT+r3/9a+LEiW5t+9dffx0TEzNmzBiv
9Vv0QxL7999//+rVq59//vn4+HhmqlOnTsiJnq8jA5s2bWrdujUS9cADD9So
UYN/yM7J22U/CQKZlpamIuKdO3fec889Dz300I8//mjI+5ks4qmyZcuW0QE8
TmRkZPPmzUePHo0992pmT58+jc3fvn07va1Xrx5zBz0wpNv5+fkVKlRw3OrQ
q1cvAwXvzgTBdXp6OgYzEOkdt4DJFBQUQAmYzXnz5nmK6OkYhgX58ar4K1as
gCMhZrJY0LdvX1epoEVswhdffMFrX3/9dWzC4sWLdXb4008/rVq1anZ2doA4
BmYf20toz/8PHz48IyOjXbt22MBp06YFevu65Nkef/zxn376yfHzVatW3X33
3U8++aQn78N4VqlShTE0akwksU+jGI3NmzfzWprGklSrVg1/rf1dnuzTp0/d
unURJ3U2lqHDgyA/FStWXLhwYSASR4jZyy+/jBgzWffddx8DAlGBzMAQ6Dbe
JywsjNb59yeffOL1bcS2KSkpqlzPkiVLSpUqhUgYFYAzpAcPHly6dGlOTk5q
aqo6ioXuE1+gRKv/xvLly2fNmjV48OD69evLM40bN4Zpa4wDJEG2Q585c4ZB
CA8PhxsY0m0ioJUrV06ePBkPSE9KlChB/w158z8PxERQNaJmhkhb4BlS5BaG
aULcdPLkSSxJ+fLlmT6YDI1qU25UuEmTJlAOjQQI1j4xMZGgnn/DyRFm/tPp
tVCRVq1aYV1v2YV/woQJdGDAgAF6EtTnzp1D3p577rnAHVHct28fdgMfp4w8
ejRy5MiQkBC8QOD28yAYaCtDgaN0HAo+HzZsGJ/369fP0xDx+bhx4yDneFL/
e6IS+1FRUTKVAvFKL730ksYg/Prrrz3scCskBLCEsaVLl/aqCD4AWcIloUEI
3ttvv42gKkbKhGI2cUOQ1Q0bNjgWavAExODAgQPybwaEOIX38JJA1LqUlJp0
Fb7haWT4gXv27JFN0UwEfMntloPCwkKekWUI4m6exE0YW25OSQhulIEy8M3/
JMCdZDcgpPrSpUueHsNmxsXFJSUlmXwmCG45Z84cLD8M7fPPP9d4EgpEvEk8
4kkyIXJYpz/sePHFF/nJb775pqMLQ2AwobAFeQOPQXV47K233vLq6TC/gwYN
grY52iLDgYJAnp0ilO++++7BBx8sV64cIUyA2oVGPvXUU65L6urzRYsWaXz9
4sWL8fHxPOn/qoRYISQW++n4+datWxkBGLun9CMziD1v3769hpGR03CwcfH7
gcOPP/4YGxsrtnTKlCn+8CgUpFGjRtjPDz/80MAeKly7du3pp5+Wro4YMULb
IUKiYEp0hoeJblwP7Z4/f54AjZfgFDp06OD/z3cF84sr4c2InB4fegeCAZ8+
fbrM6dChQz3lwSTdgVoxZSb3UJCXl0dQDy/asWOHp2cQpE6dOqGzigg5AbYp
B0NOnDhBlM3bnMgAP3/dunVKVDAgMTExZcqU+eijj7z2EGuMb4IOmV9dHPfU
sWNHZrBLly4BIvyE4dB1RsxpnZrPGXA+x2Bqv2HBggVYA4TNTx1XiX2nzADU
EV9QvXp1T8fWcD3169dHhp9//vkrV664fUZy2owk4xnQ/bGYJoJT0TtGxp9X
HTlypFKlSsxCgA49QfP0m/1b9jEcPXo04aeEyZ5yjwhMWFgY3TY8Y3zs2LHw
8HBa79mzp5XY9wSmFZVZs2aNhsWAwTJBycnJxVVhSXSWqUxISHDKLTtCKB9R
vEaiG7NDlI1YtmnTRvvnEFyUL1++Zs2aXrfGMYatW7eGKBZLmVwcTd++faUK
llGLek5YunQpRhua7UTX8/Pz+fyxxx7zZEgVCCRhX4RsRS044wTCDYILAgfH
PDa2aMyYMdojQDBYtmxZSap4IgZg9erVQjACmh/4+eefjTL7kq7UWFvxE0U1
+7fsMWDbtm2lLCeEzfUBlT6Fpxm++4gWIQAlSpSYP3++sW++o8BEy8rmkiVL
At0WFgzL6aq5uCQJCWHUO3fu9PR1IVHaOisxoNe8BJg5cyYtJiUleSV+xCA4
CGhkQNdVMVYpKSlQKac8G4M2ePBguqrBdf2BSuzDhJ0S+24T/m6Bpr/55ps8
PHXqVJ8Jv/qlTnlsBkSyypgRT1Owbdu20NBQYfIaFcPgipBnP5MPtNWuXbvE
xMT+/ftv3LjRdXC8mn3cK+QkNTUVOoFcedqrwJv79eunnXX3Ez6Y/Vt2yiSb
aurUqeNaZo2AGg6ASYFO3LLvDzRqMw8DMnDgQHHuXtf3LWjg/PnzUXYEuvo3
EZnIcGRkpNNWOv7UtWtX/lSmTBn0yNMbhMnz2PDhwz3Jp0QENCEWEhfjlibh
aDp37syr0tPTtdWfvvXp0weKuHLlSl2/0ycoG+u6UKXYfkxMTCA21jI+ehL7
2FLtWIO4HovqT8aVocawQ+ScXDZUgWhUe88VA8i4FRQUaDtxdU78ueee8zlj
xohlZWVVqVJF9pNMmjTJSRq1zT4DC9mQv8bFxRGAeOqJSuwTdvnWVa/wzexj
yfF68q3Jkyc7adCaNWsIBAjNRFxzcnIgloa4LUjdE088QaOPPPKI1wjUggYQ
S1S7e/fugU6UIe1NmzYVSu+06wNVhfbY7JVptddMpVhZvXr13JoglbyVzTm8
9qWXXnJ7YASBjI6OLlu2rNeDYIWFhVWrVq1du7anUwCGQOJilKV3795OaS5U
rFWrVvyoAIUbktgnnPn0008dP4eCSsKfMITuzZo1y1XBHcH8JiQk4Lh9Xnpm
+l544QUGYf369epDWnzrrbf4+RhS/5eM4TZMJW9zzWgVFZhruYWQKMzpmKG2
2V+3bp36ovaeZHQBjXBd6TAQvpn9W38Hy5J5+/7779XnipAPHTqUtzEUeFgn
0fIZEICwsDBejppYd/j6jBs3bjz77LMwFj8zkHogEStiDDty3VcZEREhUbx2
Ql52eniyLXJCBLYvpn7Pnj0dOnRwq92fffYZhq5WrVpeE/viFhmlQO+cRzVa
tGjh6s4OHz4sZjlAZ8Qkse+UXoN/SvQhHpZJwYFqKy86Pnr0aL6C1vumknLx
B51Zvny5+hC3yzTB9jWyf/px5syZypUrG7JQAnOQDeSlSpVy2majYfYZJWJV
+ZPXNXo5wuC00mEsfDb7CINswCYQXrVqlfqcN7z22msSsvHvGTNmDB482KgM
vxxh4OULFy405IV3Js6ePUvM67qFI0DAWcfHx6MIjpEFkg8xQH7q1q177Ngx
7TeojMeYMWNcRfTy5ctEf+g1fgTO3LVrV0cDooB5kUrgycnJ2gJJ3+DYPJmR
kRHo4wy4lSFDhvTo0cMxKyVkCd2H8QaC3qjkUkhIyL///W/5jYxJenr6448/
TjRETE1kjY4zmF6ND9E9RsAfIo2Rr1mzJi5G5oUIiwgiPDxcz24rhW+++QYu
StyHs+7Tp88HH3yguMTBgweRdpv9XIAjR/UB9FBCVNdUoYbZV8tYXtcX1AZ1
JihwtYl8Nvs4UKJg+aLT0gOxCQ4RMUhMTOzWrZsPwoAu5Ofn0zF0GULYrFkz
2dgsRxj0bC27A3Hu3Lnu3bszXLBErJbGOuDGjRthzr4ljRHg7du3T5s2DeEk
Nu/mDi+++OLYsWMd9QvDjtg/9thjAwYMmD9/PkrRvHlzzBqarrPY1OzZs5l6
iLHrEQMpnoBUpKSkYK8yMzPdijE9x5badOzYhxAiwE5pB20gkPxqoZS4VAZH
43ehO5BtZc+xThgQPOOECRP4fPr06bGxsUxibm6uts33uVFJ7GPz+ZmhoaHt
27fH76CweNUrV65MnDiR0AnlxYjpOY3F5BKDM/7+nG74/PPP4+LimF+Eqnr1
6gSAOssvM5UYB7pK5IL8w8AJEJg4YsymTZtKl8QxMUqPPvqon8lhrJBIkUpo
qD9pmH2E9plnnpE/zZs3T+P9sjBKb1evXu1PP7Xhs9kX1ZAvuiojkkysjTz4
4LAgh1AOQgl4yLVr15hWZK9x48ZMaKNGjWhOz9ayOw0nTpxAkbOzs8Uso8tM
ittlTYmpGUZIS5G2MfMwbEouKPEKt3ILH8jJyXnNjsWLF9Nn/Vx6y5YtsFAC
f0/JdgQS06HB5VRi32udqAMHDmDEMGVew5BbdoqCnRSr4ggGyu15duzGsGHD
Zs2a5fTbIasEyFgS2OC2bdu0b7Lzs1FJ7FeqVOnIkSOQ+f379+/bt88xz3bp
0qVdu3bpXKXl4Ycfftj/Kmq4JDqGsutfHcYO9O7dG/7Qpk0b19o7THTbtm0v
XLgAS5Hxwfb6eTKRTtKivM1pE5SG2VeLknTVafcjWsB74CoSC69atQq+gXsK
6KEkn82++iG2vzOBhvQHgZejIk5bOzZt2lSnTh2Rcz1by+4oYCJSU1NV0RgY
DgMIYXNbxwzpgmPbNI/eu+LUqVNKTipWrCg1E+QAhc1+cBtymPo3IF3vvPOO
sSd/ZQ+eP0ezES3G5MEHH/S6r0xqAmgcDlXA/KqcbalSpXg5lFV2kgs/cdWL
Q4cO+Xltlv+NSmLftRSPb4APyOqz9uKv4Th79ixUh3YJENx6SazZpEmTMjIy
iB1kcPw3HbxTkpMAPXLMW2qYfclD2lxS4pA0uTBX5uL06dMEeqiVngqE/sBn
s692aICIiAhD6kITnRGxIpBwQif5UYdz9ezNdgXDiJli5OP9Bo6YKC+oyvph
pjp27KhysHI4xVOcyIxL8ZAJEyboVFIIiUR2devW5Z1KcXhVeno68xUSEgKh
CqjKQ/Kh+voTL0jy2rVrMQiyIol+yeqAVyFX+0W91hXhSVwtPz8qKopQVK3T
MT7r1q2DC5UoUWLGjBlOlSKIdBh5n9O2/jeqEvtpaWmG0CdFJPr3728aH8O1
YSppFPKpwTkPHjyYlJSE5NjsCxlz5szxs10GFpkXu4fSOS7Oaph9glC8s83l
iIocn8GmDR48mFmjn8ygIavY2vDZ7ONemzVrJl+sVq2a/5ekM3cQFZs9+eC6
ioRoScUV3xYiP/7444SEhPr168f5DeLZlJQU1xLxxQVic8iMKmaC3qHODFRY
WJjbm0okJOeBuXPn6nk/3BhPJ/rluskfpiepzkBn3ng53UBzdR7TQyAlHzV+
/HjGZMWKFVB9ZMDrip6yipgL7ZVfAhCa4Oe79Q6MFUbAKZmMA6UPOosJB6hR
tWPfqQCOz2DERo4cyYi1b98+0BufBMi8sga7du3SeFIKB4mZMur6TikZwQsZ
RqeFeE9m/+uvv5YtiJhKpxPNjNjy5csRuXHjxm3ZssWcygM+m30RHvli7dq1
/Tz1g2LSus1+csftJj0iIHHu/u+8/YcBO4BSq2gLKx0dHc1AtWnTxm2aRfYw
o/Xvv/++15dDZmQZna94MlbYYRhmoNfZlbzpvPecsBpRIV6G4A0ZMgSV79q1
q0ZVOgX0rkePHjb7PewaOihnS7WLgO3duxf+pnZgolxQ7qFDh/pMiQ1ptLCw
UCX2feuGE5iOiRMn2uxFNsy5picvL08qg/Xp00d7M6SyGyA2NhYv4H/rsq/e
Zl9Gd6S7GmZfrSm73ZNgPnw2+9AJIeeGmOLjx4/jB22el9qlNpHNZRnl9gIi
et0/uAo5Wpyfn6/GhMBfbir0tCcfQa1atarOBTiiJEgyb5s9e7YnYys5JZ3F
zXyG2gsBKdIppT/88AOBMzY/IyND/8kXtVVD+yzbN998g9hrF3VkUgYNGqRu
CcQ1EyD74xwNafT8+fME1AZej4VgMMKMWKNGjQxZLNAGvlvCT0Ruw4YN2g9j
51VVTKOSWohiy5YtbfbqNOvWrVOfezL7TIRwWvOXPzzBZ7MvuVb5YufOnf0p
EkijCKG8ytMBfNmxj/159913fW6oGIEvUyvgfiIuLs7TUuONGzfEZNWsWdNT
dazTp09D9vTsEMPLSBFI7SV7ogbmBRXwqoP+QO2X1ijRYAiQ5JSUFJu35T9s
Lyzaq+XcvHlzUlISBgFlnzt3LqTFH00plkb1gJDKZlZRXEyBUH2iWq8pO6km
avOwtcxnvPfee9IHuIEaW09mXxVk9no+1zT4bPYPHz4sJyCA0xJSUaEKlnpa
sFOXDng9xR+0QFWzsrK6deuW6h94w9tvv+3pTOvRo0cx6TZ78OuJqcL2q1Sp
gtA67ihwi/3798sUa9TWUCtcrrUXjIXaLhJos6/YviEnwb/77jviejlHlpiY
aM7twOY3mpmZaY7ZV9clgK5du3p1Z3JNGA83aNBAT4pPJ65duyblKLFIanHB
rdmXUKiEHVOmTAmS2+F9NvuSTLDZlw79POwp1bZt9lyZ241tKkFnThR5mwIB
k/3J2gVSJExzPVru+raZM2eGhIRob3RXZeEjIiICUShSQV0M4fagroFQ+1Lw
sP6vr+GgiYW3b98OA09OTjb2yqEgaVQJngnrbnJdgk3fthxVKIaHIUvGZldO
njxJFGyz772UWNit2S8oKJB9zp06dTJn4UMPfDP7qIM6s4CO+JkkXLFihXiQ
5s2bu13vUIn9Im01dwTfguXynsN+g5cwy8GQoHOC2uOqfRRRTi3BPbTTZUyx
0CrtcmTffvttZGSkzb6Lw5w7LFQxgQBBnY5HT/3PjUiZuLy8vLS0NMyUOWJj
cqOq/LL/h6G8Qm2JCQ0N9XpBrRRrEhn280YAtzhx4sSTTz5ps1eGxCw4XbOC
IMGsJPru27dv8Nj8W76a/cLCQtkdV6FCBe1L8fRg/vz5cm+Lp4sjVWLfcZvi
xYsX9cvzrFmzpAlDcM899/j/qw0HvEJqjzveKkhg62SNlXeYMWOGxtsUu27W
rJnGiVFx2SbU7Ze1OdfyvIZDGbEWLVr4fwGNbG5Es6A0p0+fNqSHwdaoLCIz
Ys8++2ygFxH27dtXsWJFm75rCCQDj+K/9dZbAYoQUS4cK24FA4W+qHo1iYmJ
su6ckJCwdetWr62jlcOHD0fX8FP8tA8++CAQvVXwwezDJdQ5NbrqfyCMIotN
dlv5yjGxr7acffbZZ3BR/dQCo5Gfnz/PCOCkNmzYEFBm6wMcbyJQ1wxBMKCs
Th5KpWW0k+Rq58xzzz3naYoZBDSdZ+A8gU6+oeOoQ6D3Cwlyc3PxL4Zkqhnh
8ePHE15Bv027DM7kRlVgGKD7vh1x/PhxYfval0TfsqdcMLk2+7E71+CXfo4d
OxYrjSVx/JyhIwru3r17kc6fMgJ79+6dPHmy1Eey2Q99LFu2TH/ZN6mpAt8o
W7ZsuXLl+Lf+1n1AUc0+ZnnlypV0jOf5oiGpvLVr1959990omtv7FNS55oYN
G4ptkaoyo0ePDpL1kWDAhQsX5Bhgy5YtlTdEFKGsTtqhjiN17dpVwyaoO1A0
HiO+KF++PCFGQPfwCKSIIq7fhCsOpf5PjRo1/D97zmhjXkqXLr1mzRpD+haE
jSqGQEwd6LakUpnN2/FATERWVhYMnMDcbeXq8+fPR0ZGuu5DQI+ioqIqVKjg
trSRNvy/VFGqadWpUyfQlx8V6Qp1BnP16tWy/NqoUSOj0mUnT56sUqWK2wOY
Uiy3ZMmSNvt9E2J/EDNIrAmm5jbCjh07JMMzc+ZMiZjkKtL09HTXOc3JyWG0
EVHtmzp5DF/sacHlxx9/RAZ4YOLEiSacpIBsELDXr1/fwP0YniAHmtD9L7/8
0s9XSaH12NjYAN2HGwyNYirr1q2r5/Ia/yF13SXJo5G/OnToULVq1TSEUy7h
hSk5EXK5pk1POSZX+HmFuqoK0r59e8PvonUCXVWn2LQrPDM+aWlpcio5OTnZ
wIveCHCIqmwu5ykYhxUrVhDNyc5b1b1du3bhqszUo+DHpk2bypQp47jOBdVv
1qyZ29pBO3fuhOegONolNaAcDz30UHh4uOtOLfwFUQBqhXkJtIjesksCEbS4
/kBnj2/9XWbQkPIFEJWePXuaWazG/EYl3+50ZDVwkPIUGCJPZTpOnDhRr149
iI2nmz7U1V1Ot/Sqzzt27OjDNhUISYMGDcSWTp8+vahfV4XBA3ekC6JOdLNx
48YhQ4bILhqb/VTOqlWrYDi7/wb2AZaVkZGBnZfH8KHogh7Vk0IoRH+4VLzn
wIEDcRz5+fnwUtcfdfz48Vq1avFytS3/+vXr+D4MF59IvcFevXohzzBPdD/Q
hb9uO5w7dw7GBUHds2fPLXsMm5iYyEy5HaWLFy/GxcV5KtHpCEIq3smrHL08
eofbLV++PEG9OflquQPXkFJaeoDoohdelz/0AA+CCmjvlTUcJje6ePFiXCRC
orHgdfXqVYg3wVpMTAxELjc3F4klnPTBUyDStAjJiYiIcCrHymStX78+MjIS
Y/XGG294Mt34Atl177Srk/7Ldbf6d4sRcWAnCwoKli5d2q1bN8lLSDAydepU
yNjnn3++f/9+Pdt4MI/YST1a6RtU2lYnSpcujUnB2K5bt04ntbty5UqXLl2g
lIsWLaI5xn/06NGyb7BVq1ZuxePAgQPx8fFVqlTBQUBUHn30Uf4hEf1PP/2E
H8TOvPLKKxicF154QTs7cQcCKV2+fPm9997bokULxo2RzM7O9kT21B5FrzeJ
37Knj9BWxJivvP76661bt6YVorOTJ08G4He4h2RczTysJ0VUvObBvOLIkSPQ
HhTfqI4FW6Ny17zwW0+yBBVh+rD2stlAqkPIfZqZmZk+NIp5l72RGMnevXvj
BfjPsWPHyhY1Gtq2bZuGYMvRFdd7hL/99ls+J2RG5vV0w/HKFQUsP1bO8RM9
Vzzc+vu+wkBf3xw4QDZwpjhcfLoafOii7KFV1UJcweeFhYV5eXlr1651SiLx
p7179y5YsECu2Qr4b7g9gXlcZofXFJxc6KyzMBSDf/DgQWaTsHr79u3m+1zJ
xMLETCtjJceC/Hc0CxcuhDKZrMhmNgoxgxVggT0VdoOQE8VjzRzLIsHJoet+
MluCVrwGHgQ+iRNp2LDhgAEDMPheU1siTq4JfE8JfxOgEvsETRhAyC3OC4OJ
L9O+cCdIIJvH6H+7du0clVRuwcYXmBzwWnCLy5cvE09h1oL/ekrZm2qy5MjW
dz9Pd8JPCIsCehd2sTcqF3S+9NJLbhO/RP0wcAhwVlaW4zAKs61Zs6Yh93QU
CapeqNNxPKeEP1JH30zbK0iLEjhUqFChQ4cOkvsiOMJjQqGDP7mB05eSL0uX
LnX8/PDhwxgZWIH+WogWAgepvUA06ni2KzgBa4W7Qn4MqZqrH4cOHbrvvvua
NGnic3EDuXgUn2Xmeq6ZjeJievXq5WkPj+yixOZHRkY6mXedd9kHArRIuzaX
Kh8q4S/rhsy+p0sNAgF1D0u3bt2UkZca4MFPlRmuKVOm2OwVIJ3O0L3//vul
SpUymflY0AARbn07gnlPFBL1zjvvIPl+lvvzAVLcHpvm8wGxHTt2QN6Mus0k
CBs9evQoHM/tvUi37KcF5SYmTJkjr1Y3CXq9yz4QUKWDnW6XI2whACFyketc
586dCyMyje1/8sknoaGhNWrUcNyVSuvDhg2z2YvSmNMN36A8qZMfV2dIX331
VeuMVfAgNzf37rvvzszMDFrCj0vCMUG5i+VuncLCQgiMb2sKcqjQt8vgfIaZ
jcp+p4oVK3oqVMLoES6FhIQ43eMmpXLM2efvCkng2+zFN4RXM2hbtmx54okn
IiIi5NLDK1euQPVNW4hXFxY4mU219yY1NdWcnvgGVSrTKYCSOjAqWoEGmByw
W3ALrFnHjh2jo6PNT7HqgZR2RBP1bIQIUAdycnKgYStXrizqd+G0nTp1euSR
RwJ612QxNrp3797w8PDhw4d7yibhDpg71w0zu3bt4nOV2P/+++/9r32kEyqx
X716dTrPQMnmQLTg+PHjBQUFfB4fH0+QguCZlpr7/fff5ZJ3p/BH1kP5fMCA
Aeb0xDfgPZ988kn8O8ri+PmxY8fC7eAf/C65zj5oGeYdhZMnT2L209LSTDgG
VVTs27evcuXKUIhi3Lt1/fr1nj17xsbGFtUzCqdFYU1O7JvTKJreqlUrojCN
DOHu3bsrVKgA4Xfa6zt79mxMRJs2bRhb3oPJNY1Xq3TErFmzEHjiEXyTIwWl
S3SGDptpnaTMoGu9KalIX7JkyUCXH/QTakN4VlaW+pCh7tevn+3vMhrXrl3r
0qWL9sXHFsyEkJy8vLygcsSICmE4olLsd4+ilQkJCb169SpS/b2vv/6aUV27
dm3gOlZcjaLm8NKoqCjt+khy/igsLMxxF8eZM2fi4uKwBqNGjbp58+aBAwfM
XDmVxH6wVdCVm4+A05n6OXPm4B8jIiJOnTpVXH3TCex5pUqVUlJSJHD75Zdf
hgwZAivAlxFMYfO3bt364osvFrsuW1DA2r///vuRkZHY/+Luy/8D4YFjt2zZ
MkiWmzFcxP5vvPGG/riD6ADbaPIGBhMaRVqWLFlSp04dr9KCVaczpUqVys7O
FkZBsE+MIHdwT5s2jcEcO3as097OgEIS+zExMQbWlvEfzBq23alXqoLohAkT
gn89lBkkVKlbt27Tpk0hSA0bNmR++Qnjxo0rV65cUlISLkAKCFgIHkhh1caN
G5tQ39IrIJOIeufOnU2ouqYfMDGijwULFgRVTGQ+sPbIyc6dO/U8THyUnp5+
//33E7V16tTpqaee2rZtG5T7mWeeqVy5ctu2bVNTU027L08l9v28+9tw4Kah
xLVr13YsvJmbm3vXXXc1b968WDYz+Ab8OJ593759jqwe5kYscBv9ijsNly9f
DobttajnhQsXgvAs9o0bN4KKJRYL0N+inh5CqHbv3n3ixAm14iDn8ffv32+m
+WX62rVrZ7NXqTWtUZ3AyMOK8/Lybtnlf/PmzeHh4XjJ27RQgwULFiwEA3Ax
I0eOJMQIwn1r9A1nVL169W7durVp06Zq1apvvvnmbVGWwYIFCxYs+Azs/J49
ew4ePGj+4WULFixYsGDBggULFixYsGDBggULFixYsGDBggULFixYsGAs/g9y
UkYy
    "], {{0, 66.}, {509., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{509., 66.},
  PlotRange->{{0, 509.}, {
    0, 66.}}]], \
"Input",ExpressionUUID->"7fc8225e-90f4-4c3d-9711-22cdbad54c57"]], \
"Subsubsection",
 CellChangeTimes->{
  3.7467908910396624`*^9, {3.746841593306051*^9, 3.7468415936332083`*^9}, {
   3.8312214364946194`*^9, 
   3.8312214368111715`*^9}},ExpressionUUID->"c2908975-aa00-4d23-b8fb-\
05ec4ff6a537"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"d", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"sigma", "[", "3", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 
   3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 
   3.7468070357928214`*^9, 3.7468417698070917`*^9, 3.7468418838283405`*^9, {
   3.7468423650397673`*^9, 3.746842370899153*^9}, {3.746844150161788*^9, 
   3.746844151472354*^9}, {3.831221442226447*^9, 3.8312214501144285`*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"344c485d-9d07-42ab-92c8-b3d5e9867f54"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"d", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 
   3.7468070361321363`*^9, 3.7468417719981585`*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"5773b2b4-d14e-4bb0-b828-8eab6cb945a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuI/Bn8Z21jeOMq9c1YC0TEa0zTagbTHg4NZfMJvHCMd
dMX4gfTtO1qNIHqO86MVIHruPFmpyu43jvNnm84C0U82fn0Fohf0V3+Z1vPG
kevsuublQFrv5/nkI31Aujcm9jSQ5tvkqRq6/I3jn+wDSxKB9La7Yk+TgXT6
Vc78JiCtbh7yZA2QvnVfq+QWkL6oaLWmfNUbx13ymYadm944nldc+/H+tjeO
pjWXdE/ueOOocC/mxzkgPWnmec0rQHrKVMtnKjvfODKWf7LWBdJFURbf9YC0
WMDL5aVA2uvUKrUqIG0R1XC8GsRXVzeoAdLJ9x2KG4C0R0bQ/vVAmmfqQsEz
QNpXX7sURE8xzll6DkjPkEhuuQGkc3kZF4Bohc8Kj98BaYHXd59/BdLlVpe3
O+164wgAmDy2wA==
  "],
 CellLabel->
  "Out[106]=",ExpressionUUID->"7ebfe530-fd2b-4cf2-bc84-0c5e385e9a12"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsXQdQFFnXHVEXXVQURUExgglFVEQxgKAguuoCgpjFAGZdcxZFxQBmMWIW
4yomDIWZNWsZEbXURS0XQ5lKsXRr3eI//9zarv56Znp6ZrpnRnynardwpqf7
9Qv3nvPeu/dV7fdbpwE2KpVqTBH8r1PfCQGjR/edFF4S/+g8YszggSNiotuN
GBszMGa0T7+C+HAt/ltcSKX6/7/zGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgY
GBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgY
GBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgMwdu3b3fv3h0fH79q1apr1679
/fff4te/f//+jz/++Oeff8xTPAYGBgYGibh3797atWtnzZq1c+fOP//8U+/1
Dx48uHv3rhkKxmAo4IvPnDmzcOHChISE9PT0d+/eiV//7du38+fPw6Gbp3gM
lgUb6QwMPwhycnIGDRpka2ur4qFatWrr16//8uWL1p9Azfn4+PTq1evDhw9m
Li0DAwMDgy6AqLdo0YJvzAsUKBAcHIzP//33X83r//nnnw0bNlStWhWUT+sF
DJbC169f16xZU758eX5r2tnZjR49+vnz51p/8vr1a3hzT0/Pmzdvmrm0DGYG
G+kMDD8Ivn37tnXrVmdnZwcHh379+iUlJa1cuTImJgZKjcZ+zZo1t23bBpfB
/eT+/fuDBw8uUaJEbGysLinHwMDAwGBmvHv37rfffitcuLC7u/uECRPWrVs3
b968sLAwmGsYcxsbm19//fXatWvc9SBvx44da9myZYUKFY4cOWLBkjNo4tat
W35+fmhN0O+5c+eCZqNNmzdvXrBgQbQm2nTy5MkvX77krkfrL1++3MXFJSgo
6MmTJxYsOYPSYCOdgeHHQW5u7tixY8uVK5eYmPjp0yf+V1BnW7ZsqV69Okk2
W1tbLy8vuIwaNWoUKFAA9iE9Pf37nZl5+PAhXqdSpUpXrlyxdFkYGBgYZMCD
Bw98fX3r168PViYwzi9evBg/fnzx4sXJnpcuXTogIMDf39/R0RG8rkuXLlJ2
TzGYDWi+vXv3glf36NHj8ePHgm8vX77cvn17NBytpLi5ubVt27ZRo0ZFihSx
t7efP38+PLtFis1gHrCRzsDw4wBjfPbs2UFBQRj4uq75/Pnz2rVr69WrR1N5
QK1atRYuXChQdt8dNm3ahDcqWbLkuXPnLF2W/IyPHz+ytdfvCPwFdMHn3759
M3NhGAzCu3fvwNgnTpwoYpyfPXs2cuRIZ2dnMuaFCxeG/T9y5Mj3O+2WXwHH
BCqempqqq2nweUZGBiTbzz//TK1ZqlSpAQMGPHz40MxF/Y6AStNl4r4jP8VG
OgPDjwYYLonpQaDaoOkMCk+DWYDQK126dHR0tLVZQrzIunXrTp06xWyXEoCn
iImJqV27touLC0Sxk5NTVFTU/fv35X3KjRs3PD09PTw8Hj16JHLZrl27QGNC
Q0Pfv38vbwHyGaCsAwIC3NzcBg8evHTp0t9//33z5s1xcXHw8q6urvwdNQzW
CVhpiVe+fv0ao0ZvCikGS+Hbt28SnSauzM7OzsnJYb5ML65cuVK2bNkWLVpM
mTIlOTl57969q1evHj16NJxIx44dYQAtXUCpYCOdgYFBLnz69AncT6VShYeH
W5tYY1AOJ06caNCgwZIlS8j34f/x8fG2trY///zzsmXLZFygSUhIQO+CHhSR
gXBSERERuAwOWm8KtR8cELPNmzdXaaBcuXL79+9nVJCBgeG7xoULF+zt7TVN
nJ+fn+ZeUwYGBoYfBFevXt2wYcPr168tXRAGM+HJkydNmjTZs2cP/0Pw/EWL
FhUsWNDOzu7gwYNyPevFixfJycm3b98Wv+zevXvLly9nG/X1AmKNws/RTCAw
hQoVqlmz5tSpU/kZDBgYGBi+U0CsOTs7V6xYEcYNJq5YsWItWrRISUnRtTeS
gYGBgYEh/yEpKalKlSrr168XuL9nz57VqFED/rFDhw7St3AwmBMQax07djxx
4kSeepsNC1JjYGDIT4BYCw4Ofv369b///stysDAwMDBYIf7555/k5GQvL6/K
lSvXr1//8OHDP+zOLrz4yZMnd+7cKW8NoIaHDBlCuUP37t3L/wraDTINX7m6
uj59+pT/1alTp1ASKzxaHd48LS1t3rx5AwcOjImJERTbgoCSWrdu3Y0bN+S9
LV+sWT/++uuvpUuXslV7Bob8h+zs7GXLlskeZcyJNYnXW61vkhcvXrwYPHgw
fNzcuXMPHDjATs5lYGCwFCAW4uLievXq9fz581evXjVs2LBSpUpZWVmWLpcF
8O3bN4jWevXqXb16Vd47Q/olJCTY2NjY29ufPXuW/xUXO1ahQgVBdABEkJ+f
36RJk6wnsBFCAOUpW7Ys3sXHx2fq1KmpqalWsiAIAhMVFYXKlJ3JfF9iDSN6
7NixrVq1subzpDAiXr58ee3atYcPH7KtVgwMUnDz5k0vL6/ly5fLvrhvqFiz
Qt+kBGCajh07Nn36dH9/f7g8W1vbPn36sCA+Bob8DRjYzZs3N2rUqHLlyiEh
IdnZ2ZYu0f8jJSUlPDz87du3+Bv/b9KkSZEiRfbv32/pcpkbYI/r16+vWLHi
0aNHlbj/P//8c/nyZc30jFzyCnhhTV95586dmjVrTpgwQUrSKrjydu3a1ahR
w8PD4/Dhw1qvgR4fNmyYu7t7+fLl0e4GBaydP3++atWqdEpFRkaG9B+aAZ8+
ferZs6evr+/z589lvzkn1iBLL168uG7duk2bNomc6yEv0CGdnJxiY2MFDA1K
B8r0wIEDmj/5+PFj9+7d0a+UqA0TkZWVFR0dXapUqRIlSlSqVKlYsWKFCxdu
06ZNWloa219qVcjNzd23b9/UqVN79Ojhqwb+WL16NTkLDrCc27Ztg2v7Yfdj
mAeZmZmw29BHSiQw5MQaHAQMzsqVK1NTU8UTTxnkmywLGJZLly7NnTsXlico
KMjb27tt27aTJ0++deuW4Er40BkzZmjdCIoqguOD+4PrPHPmjFkKzsDAoB1P
njypU6dOEWkoWbIkjCdY3PLly6WkGtixY0enTp2ePn0KfoWf9+vXzzgrB5WH
54LqgPA4Ojo6Ozu7uLhAAOL/+BufEBHy8/OD4RW/VU5OTmBgIEe8Hz58WKFC
BXt7e9glIwr2XePkyZOoPTSlmSkHqhodqUCBArNnz9b66PT0dHB1CATxgkE7
QKkdO3bsr7/+ql27NiSb5u7EZ8+eoQcuXLjw69evx48ft7OzA9uXuC6G39at
WxeuCgRb08dZFhDC0DIYArJvgCRArP3yyy8jR45s0aJF796958yZM2jQILRa
WFiY0qtXMBEQoah2UAu+lsHnffr0wed4ca0d48WLFz4+Pt26dbOekx9R/rVr
18LCDBs2DMyTio3/Q3WiJm1sbKKiogRCQC4cPHgQFKto0aJ6rfrPP/9csWLF
gICAgQMH7t27N38vHGgFmun06dO9evWCE0EHK1OmjL+/f//+/SET4LNgWOAg
li5dyjkvcHtcs2HDBrOVcPv27XDTVapUqWw48KvGjRt/d8dtgGC0bNkyNDRU
oSz6cEPNmzfHwMT/Yeiga2DxYOLi4+NFhoBE32RBPH78eMqUKTTHiNHdpEmT
7t27Q2AOGTIExvynn35CPwcLoothzL28vGDhdRGzu3fvurq64lYYBSwxFwOD
BQHievjw4U2bNs2bN8/T05NLYNumTRtYpF27du3+D7gmLi6uR48e8FN0tGJ0
dDQ36jUB5oybkI9Yv359wYIF8U/j9o/l5uaikNu2bVuzZs3EiRPhgLhyQsRN
nz4djAjCEOpD7/4iMLrU1FTONOFvW1tb3ETkRb4joKJQGzC/SUlJ4pP2MOm1
atUCYzQzs4UfBEGlZTVdiyBQIqBJ0OAis3loweHDhy9ZsgROkxR36dKl79y5
w78GnS0mJiYhIYGq4uzZs8WLF8dbQ9xJKeqqVatAp1FUeDprWwHZuXMniOXK
lSsV4gwQa/DsoDF8aXbkyBFUIBpO0ZA9jFAPDw+QCtgcwef16tXTDIHk48SJ
E6VKlZoxY4Y1tBeahgJjL1++rPktLBU4FTpYeHi4Eqf+gevCuEFiDB48mDsr
GRZ448aNu/8XW7dunT17tp+fH/V2DJBTp07JXh7zAKYgMjISJP/ixYsSf5KV
lQVFUKBAAXg02EMIMUFcEtrxwIEDbm5uMDgwXzAyoK/oZgrNk+gq5IoVK6ZN
m9apUyeUk1oT8g3KAqZ+BQ/Lli1D/4fuJulBV+IPrZ3QaoF6hlh2cXFRbpYM
PQTVAtvOSTP4lDFjxqAnQLvpIhJSfJOl8OHDh9jYWMrfC7MDsqS5UHj//v3g
4GBvb28QAJgd9HyMenQhXfdE5581axZuiGpB11L4DRgYGCQBYqdYsWIYmEWL
Fk1LS9N1GTgwPD7oMa50dnYGd9LKGFevXg0191WNbt264WL4Glm45f79+4sU
KYIb2tvbS3fKmgCjg+HFfbp27Wr9GxukAOSQEhGD7oLc6roMLwsKV7ZsWTNP
t9LGS/DtatWqiVMdaGdPT89mzZrpiim4e/duQEAAzfVt3rwZBKZJkyaCRQr0
4Q4dOnAfbtiwAZUDASKFG6NvwHHTpMS2bdukvqFZAK0Engafq9zJrXh9CB/B
6jm6Td++fVEnQ4cOVS7Q/vz589ChMCyCI/O4z+/du6frtyjVb7/9Bg5mDVTq
5s2bIEUotq4L0A+hnkCW5syZo9xEPcZIxYoVibFfuXJF12W0ZZ2YnoODw7Fj
xxQqj3IA64aWIXkCYaVXsMORzZw5k5QsTI24MYS9ql27Nq7Hlbi+UaNGb968
kbX4knD79m20Di2a6D36BFw9JiZGa3SwlSM1NRVdceHChcqNC/iF9PR0gd9/
8uRJ9erV0SW07rUm6PVN5gdq6fDhw/CqdBQmnKwIn4HZwTCBZxwwYACRKPFt
RbQtSmmzz8DAIB2XL1+muTgYK73OGsa/VatWuBhGFdpN06iCL9G5V5mZmU5O
TrizKcKKj4yMDG6/isghyHrx6dMnvEKBAgWWLl0qS8EsCzTB/PnziauMGDFC
xFzDSRUvXnzYsGFmtr2nTp0qXbp0jRo1rl+/rvfiVatWQSjhjbT66+zs7EOH
DoGP5ebmduzYEa88a9YswZXob9x8Mt6UfNOQIUOkvDXuDNqP63/66afff/9d
2vuZAyj8uHHjMELx+uZ/+tq1ayEuXFxcHj58qNAjli1bhiHp7+8vkKIYpPi8
ZcuW4gnKYG1ATVu3bq3EcpV0oJkwvgoWLAheJxLtiK5la2uLAqPYCpUEg50k
mF59gTKPHDmSDAhkpvVwUYlAhwkICKAzs0TINgFV0bVrVxrgs2fPlrL5c8OG
DdyqVv/+/S1CXLdv305lqFq1qpQNyS9evEAPrFev3nd0QiKK6uXl5eHhIXEL
hIz4+vVrSEgIqjciIkJkl464bzIz0A+TkpJozqFt27ZStj1kZWVVqlSJerL4
vC4AGVi0aFEL9nkGBgYBrly5Il2s5akT5TVu3JiuF+xZ4gBrNm/ePLCsoKAg
uXbc/fHHH5xYMyXpAW2fw63OnTsnS8EsDtCVzZs3gwGKOBpcExgYWLZs2Zs3
b5qzbDdu3HB1dfXz85M4x0s0Az8R1wXotA4ODugJ4kt14GYgq/CwW7ZskfJ0
qxVr165dw8vCKVskMgtVgQqBvti3b58S9//777+7d++uufUUn9Pq/NixY8VX
TKjhUMitW7cqUUKJQO+lgEdAV2xmnnqR1M3NTfwaU4B74s7S9QW3uUKiC7A2
wFYsX75c75Y/mKAWLVrQHpI1a9ZI3DQL9QoRgV9BgycnJ8tRXsPAGSWgffv2
UmIK0OJRUVGtWrWSy1xgJKakpJw+fVqWu2kCPTYxMbFQoUK0xV2hp+gCqqtf
v360GVhEKkr0TWYA+sC4cePQIVHmyMhI8QQpHNCRYEipI8Guim8rOnLkCClB
1AwTawwM1gBDxRr9xNnZGT8B5dC6PYnSLcKYwCdKuSHsRnx8PNREhw4dJk+e
TGtzAugVa9evX4dTgzvDfWDKdO0W27t3L2gnOJX4zFI+w/Hjx8HHOnfubM5M
ApmZmajnnj17Sk+nAE89bdo0cR6Lz6dOnYprQkNDxakLpFypUqXQYbT2KE1Y
p1hDqdCfITkVTW4AYTt06NCwsDDN5Z6DBw8WKVIEw1mhApDG0QxMo881A9m0
glbe/fz8LLi49vLly/r166P/uLi4iKwj5+bmtm7dGpf5+voqUVqMcVp3RpOt
W7dO7/VocdplZ2NjYxE9YgagL6G2aWjDK0lXBBzFhZeU/awTKeDy6AIzZ86U
UnKUefTo0TC8cu3zp2xO0AUKBQ68evUKirhixYqK5p6FnAfBGD9+vIAbcMeD
im8cleKbzAA0AYpBoaYREREGnYlGC+5SthUxscbAYG0wQqzBF0yZMoXcBzyC
Jv+nkV61alUyfTD1eid/srKyYmJiaLMH2LVm+Im4WIMddnJyIr4BC6aLKaHk
EydOlDKzlJ9AKfXAUnbu3Gm2h6KNGjVqNHLkSH5+4GfPnvXo0UN8ows6JBSW
p6enrj08+BzfoqukpKTkqfe16toEQilumjZtKn3u0QrFWnZ2tpsaiqZkTEtL
o30vmoSQW1lLTU1V4tF6A9bo8+fPn4vE64G0BAQEwOzA+ChRSIlAY+3bt0/8
KAGMR/BelTo5thLsFP2EkrnBsEsJUIXOLV68OK4vVKiQZZcmFQIdeEEOa+DA
gYYeeLd582bUjNYzR8yAu3fvli1blhy0xL5NYg2eTq6UO+jPNWrU6NSpk0JO
c8eOHbAwUVFRyjllVMXw4cO1xrxzK2s1a9YUH7l6fZPSgGXesGEDTDFtZTT0
XCTwMdpWBDYlfiUTawwM1gYjxFqees3C0dGR+IAgmh72tn///uQWMczB1bt3
767rPCw+4EPph0BYWJhg0URErOEp0dHR3A+1nh5CoACHHy3HEdw9GG+VKlXM
duYdnIKfn9+sWbMEzhcavGPHjuKrCTSTXKRIEV0RKBTyU6tWLXKsSUlJ48aN
06QlXK8YNmyYRNJinWJt1apVkJwQuYpOL5w9exbjy9vbWzPIdMGCBaiTihUr
KrT/hwLWNMnw8uXL8Tk6EoQYRi4EjgjHAI2Ji4tDOQcNGmTl7II7p6BYsWJK
5GCEGSeiJUVf0A401DOlKZC4Bv0dAYN6+vTptBLRoEEDI0KiKH7HUqyVH7Am
0YCT6ZPRxykq1uDoQ0JCuMk3hUD7MeA4IAkFUZzQ8rTSrXfniV7fpDROnz5d
unRpShpgRPwyJdeVkgebiTUGBmuDcWKN0nSQPhowYAB/ONOWCdyNBBqkHPi5
xDnJffv20awRmKHggA8RsUZLLTQzvHHjRpH744fly5fHfUTSteU/ENv/9ddf
zbMH8smTJyDYvXv3TktLO/of8PfWrVtRBr2iA+Rq/Pjxulg3PsHnlE0FV757
9w7y/OTJk5r34QLWpC8WWKFYA5NBpYFqohEVfRBGaGBgoCYBgEpq06YN6mT0
6NFKeG0uYE2Q2BO9iLYUUje4detWaGiouBmh2CsYH/PnKDAIX79+RZvi1ZQI
AzQ0YI0SO3DXG7rqZP0AvyUHZ3RII/oVXIbELf3yQkrAGnq7QH3AzkdGRsq4
Dq6oWMvKynJ2dnZycsIfst+cD7RjQECApnG4fv26o6MjTAf8lPgdxH2T0oD1
o6ykANyrEd6cAjChSfUOcybWGBisDcaJNVitCRMmkN1wc3Pj70OjwI1y5cpB
GcGJwGts375d4m1v375dqlQp3FMzAYiIWLt//z5tFLG3t7906ZLI/ffs2QOC
pDcVUn4CzDKMMypn7ty5ZthpD7dOsSG6oOt0Yz5o353WdQF0vFGjRkG8UIqA
hISEIUOGaOUw165do+PUBQexicAKxdqjR49cXFzMEy+DV27cuDH/QaiQZcuW
QfCC5Ci084dLylG6dGluUS87OxtyhsTalClTQBHRbdDW4j3n2bNn1atXB+nS
Kt7NDAjPzZs3ozuFhYVhAMbHx3OzTx8+fPDz86NuJiUczyBgLHTo0EGlDlhb
u3at+MV0zDotq7m7u6OzyVsYiwNVTVMNQKtWrQwK8OGQlpZWoUIFkRMQlIPe
gDUw9r59+wr2t+Oye/fuyZiMSFGxtnHjxkKFCrVs2VK5Q0kIqKuhQ4f27NmT
vyuepvswWGbMmCFFlYj4JkWBNl2wYAEtEMOvifMcXUA71q5de+HChXqvZGKN
gcHaYJxYA9atW0emQ3BAG52rhXuCM4D7wTJI3zkPtkCpS7iFOQ4iYo17BfA9
kfOYUAxKUg37870HrD1+/LhHjx4VK1aEGAEVFAmL/uuvv2rVqmVcwBGaEvIZ
dH3EiBHdunXrog1du3aNiYmhRGEUKyGi1OCUN23apPe5t27dcnBw0BVxA/GF
N4K7BA1DAXQ5zeTkZLjgZs2aSc/hYIVijY4X1BtMwQHaB/QbzApVjfHSunVr
DGpdGic3NxdDlVNhdBBww4YNQf/wOSoQigk9B+0rzky+fv26bdu2Fi1a2NnZ
Qdl5eHgkJibq2o2Mp4AJcEvbFJiG8e7m5la2bNlevXrhoU2aNNmxY8fTp08D
AwPRw9u1axcaGvrq1Svxd8cTcT2az7LptSHK+vTpg6pAhSxZsuT48ePp6emz
Zs1Cj4V6Qh8jUUl7mfCVvE9/8uQJHb2kV+CjJKtWraLTlNBhzHncs4mgLtS0
aVM4C9hA1K2uzrZ37156QVPy82RkZAwYMEBi3Ku80Buwdv/+fQwWXKZoMZQT
axACAwcO1NyfIwJTTBwELH7r6ek5derUlJQUGAp3d3dYGAxMiU8X903KAcYQ
Xo/caGRkpHGbZFAPsO1SRjoTawwM1gajxRq3ZVErO4JGAIEHLTGoMLBIFBqv
mRpORKydPXuWAuQF2Zw+fPgQFxcHL0A7H7Kzs2HhQZD07nawcmRmZkKDLF++
HCQZTYY3CggI0MUl6Bw9+Bd4GemPQGviztymC72AC5DRpMMdg/CLnEwNnwuS
jzfSNQ+AwlD8o5RzcjlYm1jjtrRBg4hEYnJAx6Zj6/mgs4G0VgKUYHh4uGC5
4e3bt3v27Jk0adK4ceNQ/3rDZKAOuMULPqCwtJ7wBZsQFBTE6QgKWGvVqtXH
jx/x1ZkzZ7KysrjS4g/88+LFi1LICZdDoHv37haZjUGvW7FiBYYbWgHmUWAS
Ydw6duwIOcwdbSl+YrVxQB8glgXRLSJv0TTo6qC7NjY2Xbp0kTgVYA1ArW7a
tAlKDRYAFT569Gi8Qnx8vCZd//z5MzQ+9UYuxPX7gnjAGl550aJFGDtKZ0BV
TqzB+NBOjMWLF0u5XhYTB4W7Zs2aESNGQObjhgatt+r1TQph9erVlKsf1Aj2
WenHMbHGwGBtMFqscRJJJd8WbgqAJfMrMIYiYo0LqBdsyKT9FSgkZCMcd3R0
NMwdWOh3HZcBzwLvA6VG5OTatWtoPpFEYahGVCZcrXSuAto8duxYIgn4f506
dSAWaC2AUL9+/fD/EBkZOX78eHmT2nG5zSWmqtYEhTEaus0MfXjo0KEk1szg
EPWCi+dC19U7vkBLaIAATk5ODRo0wEihf2II8Ne+CehIYWFhJlIOEEgu4qlY
sWIYvGCVRCqAUaNGCYqN1ly4cCEXG8W94OTJk2XJXIeb424tWrQwfwJ/WBiM
Gry7q6urrokRSNGuXbuCl1IVYUwZOp0lDlQv+KfI/AlG1rlz58aMGePo6Ai7
gcrPyMiwhkN+pQMWr1mzZtzqwLx58/CyWg+AxjWUjUFlyMKN9UA8YA3fQviX
K1du5MiRcmV91AXlxBoMSOXKlTXnZrXCIiZOANN9kxH49OkT7RlQSUhZKQto
EhiP69Onz3c3cBgY8iWMFmsXL160t7cnA9KlSxdZzPi7d++aNm2q0nbij4hY
AyEHu8ZXjRs35ucoSE9Phw3HDdesWQMDi9KCy5leTsgif39/CBZPkwF3A28i
yFguDriekJAQjovSu+tSJXQ6uUoje4MIoNSioqKoP0yZMoX7FfjAwYMHaVZT
ZCFPFnAcXjrFyszMhATg2nfXrl0gAKhegyKtoCBASFSKpekzFGgL9DSUZ+rU
qeLEALwUTYNiQzjz4zHv3LkDQV2gQAH4esEE8qFDh4KCgkyJvEDx0BVx819+
+eXy5ctcCdFn4uLiMFoxVAU78XJycvBGXN1yJ6zJlQwhJSWlcOHC5uEzfKDX
oeZRFbClIgv3aILIyMiWLVuS2UT9S1kwlQ4uYI2W7Sr/L5ydnWlPIMqJy06f
Pm3OUxdlAUZodHQ0t5EDxgGaVJfsXbFiBW3UN/OpJXKBH7DWsGHDESNG/KYG
rCLMFDo5TaZJDwk3GsqJNdgHdFS46bNnz4pfaRETpwkjfJPpgHeDKqeeoHRa
YMKlS5eI3cHCf9eT2wwM+QZGizVuM49KnTBfFgOCm0D30T2nT5/OJ6giYm3J
kiVcMfiGBT+Hopw4cSIcHKSfXEY7LS0NPhQks47J8PDwAGsSibMT4NOnT6Gh
oevXr6d/wlnExMTgxR0cHLQeLcdtDAsODhY/P5qA2gMlIKYHaaZ5werVqwsV
KmRnZ3f8+HGJZTYCKPaYMWNoPlkKn0SxIyIicL23t/ebN2/QPdzd3UuXLm3o
kVv4ITgtTdRbQwoa2nKD8ohn4aZeUaVKFQxJzW9RgePGjQPJ4YdHQSN07drV
lAyTGFwgw+gJS5cu1TqxD6ZUqlQptCP/WzwRz+UUCgWsgYPJdSgAnfrq6Ogo
fUyZDorSpT3hsbGxIsscGLAYj6QgAEHlmA4uYE3kIHjYWPQTtAKKUbVq1R07
dnxHM+dg7E2aNOFmtyAiSLPQNlr+ldz5CEDZsmWVzjSoBLiANSiRBg0atPwP
jRs3dnV1pcVZXKB0wFqekmKNjkWArRZ/C4uYOK0w1DfJAm43LMYsrK4Zngiy
BGeKJ7q4uJihgzEwMOiF0WKNiBZ5Q7hFWcw4aE9CQgLdU5BgVpdY46KTVJZO
LGAG3Lp1CzqRSyv39OlT+FCaoteaSotjLOHh4VIa6Pfff4frhF+AttVak+A8
xB/mzJmjXFXjzpDqeApeVsp+NjhQOGuwlyFDhqD/QHDVrl1b71StAHgQaokG
gpnjEXQB3Bv8BO8lfiDF/v37q1evrnk+God3796BzY4aNYqTBqdOnQLrMyXF
Pfhbw4YNExMTdckNNGJ8fLyXlxe3uEmnA/AnAZKSkihgTa7MdWSU7O3tL1y4
YMp93r59O3LkSF9fX3QkaMnNmzeLXAxzBNVD6zuCA0cEQF1NnjyZjJUSpzVx
kSY+Pj7ia9+UYJNkI+ynjJkDFcWSJUv46aFoXwG60MKFCwXmCMOZC7mVvq9A
XqC5YUhhnOvXr49eFBUVZRC95yg6DJpmv4IphvE3z45f5cQavaMg2FwTFjFx
WmGobxIBqBc8DqR3tWrVPDw8dE1Y4YkzZsygnmzOLR+HDh2ixbWOHTtqjT5m
YGAwJ4wWa8ePH6ddzcCECRPkmiK+evUqBRoIwqx0ibVXr141aNCAFoNMZGjW
j7t3727dupWbCd+yZQs8Hci8rvlD+NawsDCJeydycnIoYLBdu3a6Yq65RHaQ
RcpNyMM9zZ07F09p1KiRRDcBFgS/P3z48EmTJh0+fNggUoHHZWRk0P5b0AY4
Kek6FN0+1zR8/vxZ1+MoOap4MDtevFu3bloTLPCRmpqKF6TlQtpLpjcTvjjW
r1/ftm1bcUWA8QsqwqV1RQOFhITwuxZK5e3tDSZmdDEEoF1VoDSUntRoUOqe
adOmFS1aVNwwUo4LMoMDBw4UHxT4FgOHLpZ9ryZac+bMmXRzKcMTlpPiDWFA
Fi9ebFxnQO81sf9LNyMo4b59+zjGjjZCz0f5MUY0J/+5RTcgIiLCUul/b9++
vWLFCppS40sJveAHrGGgae6LoF0oZghYy1NSrMGM2NjYVKlS5cmTJ7qusZSJ
0wojfJMuYADCJNLGe8h5XTv2uf0zQPny5aVsQsBPYJk/fvyIqhN0D3wi8YgE
vGlaWhqaBs+FoThy5IgZehoDA4MuGC3WKDyEfD23Mc900IGetBuff4apLrFG
uc3xeWhoqLwBIFYOuG8SYpUqVdJlwOGzKIZFSk6nlStXFipUCJUpQp4fP35M
YWtK79gHe8RTPD09FTrei4AO37x5cwcHB9rvAc1rUJ7/iRMn0hlVJgJDT+vh
yOjnjo6O4mlSaA1I7wlZUOItW7akswtv3ryJv005VIvOX9ObvAU9BIQzLi4O
fv/Tp0+dO3eG0TD6oVIAbozWFMm3YxAoyr5atWoiTBJtVLFiRZW0DKIYs8HB
wdTo8iZQpZu3b99eJfmADDTi2LFjqTDiqSO14sSJE1zMsokYPHiwEVWRlZVF
tgiaRXPFKjs7G4aR7m+0okG/RbWYSPhxB1BxuLMdO3ZI/xU/YE0QEUAg+296
wBp8N5cozHSA2xuU4HT16tUwoeKZdixi4kQgo2/iDrvp1auXLiGMz2lSAqhT
pw5eU/yeHz58oEhnXQCPApuSWEII0kWLFtFQQj/x9fWVxbQyMDAYCqPFGrdf
sVSpUvKeOYK70WlrsAzc5JVWsUabH1TqE9ak25/8AfgjMHmVOl+TiJ0nQRcV
FSVOh8ANKIWyOG3jWmHy5MmK7jiltH5KizW8KQj2+PHja9eurVLnx16zZo30
eOr09HRUbLhpiIiIGDZsmNYkMyAbTk5OoHm7du0y8U3RE6Kjo5OTk0EPYmNj
QX7ME6kEgtqjRw9U6dmzZ0Eh9DINE4FBAXMEU2b68Rxcch7NRHx8gOtCHOEy
SDa95PDp06dubm4qbedImg7IE9qNCWMo8ZwOKG7OhuuKcRN5HHoReq+J/R80
df/+/UYYE3BmGxsbXclDaAsxvd2MGTOMM1bHjx9v06aNiQsotNpraHAZF7BW
tGhRrV3l+fPngYGBpscT3bhxY8SIEXAiUboRGRlpZ2eHHo7GErmsb9++06ZN
M2iM02mtrq6u/DTOxsFsJk5G30QppMQj0fjRl97e3lI29L548eLOnTunTp3a
tm0bRXOr1PFugwcPzsjIwMiVOBzw6C1bttSvXx8/h4ucOHFiSkqK0jacgYFB
K4wTaxjFXbt2JSMQEBBg0EklegFLAhNBwRcg0qRENMUaPp86dSpMENjs0qVL
83e0mgAUEKTSF/nCpa7Sm67z+vXrtMAExy0yC7127VpUONipeBSPieDezsvL
S95cXrqAyoFMK1asmEq9acoiES6aoLzWqG0MB9PvBo6B0QSOhwELl236DaUA
/So4OBj+HdxJ6wKBvKCsR2jHkydPmngrCEya6BDJ0Q02OGDAADKDUlI7ctsA
ZLeZebyANYkhWvw8//b29pcuXZK3PIri/fv3lFTT3d1da1wSiDRt6gb07qDT
CjrIA0PGxN1fkA8FCxY0NLiMC1iD5NR61iF4/tGjR82T40K5bZC0PwcyUDzY
UyLMYOLk9U1gMuXLl8foEwnH42+IpQxaBj2C4oJV6rgSgw4KeffuXb9+/fDb
okWLLl68mOWEZGCwLIwTa0+ePKHTq2FpZWGSAsAkwls5OjrCVkRHR4N7CMQa
Phk+fDh4LIjZ+vXrRfypiVHemoATf/To0Y0bN66bDNwETMMIIoHXByVDbTRo
0EBkIYzLvhIaGipubDdu3AhGIR4eBU/do0cP3K1cuXJ37twxtMzSgQqZNm0a
HgQ+JnGDvSwPXbduHZ0BMWzYMEsFufBBHEnzGAvjgJZFZwA7AukyW62CZwYG
BoI4+fv7c2djKQc8CFZClsOmQWxQ+eI7Kj9//gzDQjxq3Lhx4qweg3HQoEFk
M2Wf60DvjYuLo5JIPPWSm8kRUQRWi7Nnz5I7GD16tNZq5zaFSmkarbh//76P
j4/W9IPSwVlg8G3jAtZ++eUXKYl8FYVyYm3v3r22trZOTk6y5IM1g4mT1zft
2bMHHkfrKYF8cIKrdu3aBqVM4adfE2Rs0/tDjBoyVkuWLPmhZsIZGKwTxok1
SuGuUh9tplymoD///HPAgAF2dnYoISgfzTSinF26dClbtiyMPAyRlEPKjI7y
1ooFCxbIEqlEoDO7DS0DpSjHz+E4OEP64sULwdw+51kCAgJEEr5xs4XiE+yc
Qo+MjFR0RheeYvDgwXjQr7/+as4JvXfv3lGcCHpXZmam2Z6rC5wkT0hIMP1u
EB0hISFw2eK5JeUF+mSbNm0mTpxo+iSJFBw4cKBIkSLlypUz/ZT2kydPFitW
TFzFvH//vkWLFip13K7eWoWlotAP/ER2mwk+D1avUgesSWzfR48e0bZJlTqA
zhpmJySCi/SBXuMWUPAhNAVn2/npVjp06GCo3kFtjBgxQvNUd0Px+vVrLy8v
8UkwTfAD1ijk05QymA7lxBqaDx4Q/l3r0TOGwgwmTkbfhL46fvx4lYT0Xxcu
XKD4UAcHB4k7nAmcBwEWLlwo/YegXnSKjUjmEwYGBnPCCLEG0+3p6UlC49Ch
Q0qXEBR6//79/fr1I3kIjQYfCrVi0LyWcVHeWpGTk7N169YVcmDlypX79u0z
NC8KN0WPhuMmfuHfQ0NDNXUfbVwU32DPZbgqX768SNwNCgxSCq9haFZ8QwHP
RVn0Fc05qQluV1vRokXT0tLM9lxdABkA91CZkCGBj1OnTtWuXRvU0ZxrKCCr
AQEBYHqmjzsp2LBhA7qou7u7SGAFaCHYUfXq1VEqlA0jCP0ZP+QPQy5gDUpz
06ZNfn5+Hh4eFLXB374ICRAYGKjSHVjEvyHl38bw0bpF8+jRo05OTprHtF27
di0iIkJvkn+0KYVogc7dvHlT/OI8NVHEs4jFwYwoPaLlxV9//UVBpi1btuSa
4+LFi+3bt+erYLg2SiwMjSyeGV4T8Gu+vr4iI0VKL8r7L2DN0dFx9+7dEBGw
w7gehlp8LogLWJMrVY6JUE6sPXjwAN1eliDTPLOYOCm+CZ/D3KFzUveAs372
7Bk4w/Hjx/m6mwLWChQoEB8fP2XKFBQbhff29t65c6fACKCTU2w+jBscuvTS
wnoQu5Ny7DgfqEkuKOA7msZhYMjHMFSsgZ9QIllIgOnTp5stm6vIodhSYFyU
t3Xi6dOnlD+ffxTshQsXwBk0j3KmU0ddXFzEgwI2b94MLSxyGbQeJfoeOnSo
0qtdeCkKSFmwYIGiDxIAnZnOBJeS2c885aEzzSMjI033mOR/+/fvb079C/Lc
qFEjQ8MljAOI0Jw5c2hcaF1HxosvXrwYhq5v3760eRgiCCoMhqVUqVL8Kesv
X75QwBq+6tixI81ggJCXL1++Xbt23IEFaCDoaFym95h4cHv8FleOHTtWs/65
HAKTJ0/mW1R83qdPH5X6rG3x5RUa5irJKQhg6snsw4xDRX5fSbm549W43OwU
fyfYNYHao7kXvOOiRYukr0+hsRo2bJiamqr1W+m9KO+/gDWUFjyczgRB50EX
QmcQ2cPABayJZyI1G5QTa3BYqDq5gqDNYOL0+iZ0CQgciKM1a9agumBJxo8f
T7vZW7duzdfy9+/fJ5vg7OwMKgWThd6L29ra2iYmJgq66549eyjc1c/PT/zA
FA40B0u7gGrVqmXQ/kkuABb2x5z+goGBQRcMEmuwJ2CzGP6wPPjDnKny+WJN
ytZHAYyL8rZOcCfccSYdRn7ChAma0/J56klaR0dHvdl679y5U65cOfQEqFrN
b+F0KMs3PIWhKb6NANSoq6ur+Ze3uFARKxFref9FK+g941gKjh496uDgIPtB
zOKAxvf09DQuN7uhwCOioqJU6pBDzYGATzBewIGhfDkph58MHDgQPxGEjXDn
CXbp0oWreZJUgihd1CosJ2yLSFwhbA7FT4HmaV3gJsqqeUYDPkfBQN727t0r
8uL8Y3OlnKlx8uRJSnqPrjV06FCLh0QZBO7EASgjbu8cajUwMPDMmTOCizMz
M6F3cDHsSVZWlpT7Q0N5eXmtWrVKq4A1qBdxEUNubm78hMnbtm3DHbp37651
1osfsGbEBk4loJxY47bv6p2OkAIzmDhx3/T27VsocTTu2rVruddB7dFCsCBu
ES4GQx4SjN/ZKKdrlSpVBFtc0Nlgi1SGnIr48OFDei4tkBk0xcqJNSmH/jAw
MJgBcHB0zIr4Th4YB7B9b29vorJxcXFmzg7EWQ8j9rcbF+VttaDAHOi1EydO
0CcXLlzw9fXVqmHhPho3bqz3LDzKe8yfrOaAGlu5ciUYI+6j0Mk1Aly8eNHe
3t7FxcU8j+NghWLt7NmzGJ6g1qZXBSgidJO8BzHrxZMnT9zd3XUtUsgLiiDT
FbRF54I5OTnx85zQLAdavGvXrnwiiosxvtAD+Yv4XPfASOE+BImirar4v9bJ
K1xAq2P169fXlUXh/PnzJUqUcHZ2Fgxh7vN79+6JvPjHjx+5XVLr1q0TuRJV
BFlHUz2wIbNmzbIGLWAQuE3gXDo+tMu8efP69u2r9V3gOGg2slmzZuK749AB
UHvorhDjusiwQb2IAtbQIQW2l3wZ5I/WwfjmzRvys3JJGNOhnFjD202ZMgVv
ipubzijMYOJEfBO6weTJk1XqnDD8GA0ubpE/yYOLKYMHZBQ/mJeymGqdn8F7
UcfA+N28ebN4x/jzzz+bNm2K5xJrMihgLY+JNQYG6wCs4rVr1+B3tm7dyj8/
sXv37seOHTvHA67ZsGHDxIkT69SpQ9dAFEhM8gwbNX369Lp169asWdPDw2Pt
2rWPHz9OSkqSSDupkCCrkJD4FUXJcWVITk6GPcnIyLh165ZeY2JclLfVAtXo
6uoKFgcul6eei2vTpg34gFbrTQmopcQ9gVejlsqXL8+PqYHWGz16NKquc+fO
ZjtgBZQJtBMvZeZTzq1QrKHOMfRMD11B35g6dareSHbZgfGLkStLXm69gLCC
qi1TpoxmDD64E03g9+zZk88JoaQCAgIKFCiwbNky7kMuhLNt27Z8/o+qi4yM
xOfh4eH8m9+5c6d69eoYI4sWLRLYort379KaGp4iohTwdJQBplgQh7t06VJ8
zo/M4hcStYrqBanr378/xfOiDDC5sIrn/hdHjx6F+e3duzcdz4F7BgUFXbhw
Qbw+rRYw4xihEF+0TeLgwYMQ6SJRYOnp6XRweZUqVXbu3Kk5BNBqaWlpqH8f
Hx+RnKUG9aI8XsCaIHcu7TlHX+Ui6WB5IOTPnDkDs9OtWzcbGxvydH5+fitX
rtyzZw8a2oL7IZUTa3nq5itatKjpx5aZx8SJ+Cb0HDoWMyUlhf/59evXS5Uq
JegGXMCaoM+gS0AJ4hHgXZpPf/r0aXBwMI306OhorV0CtiIxMRElGTBgAKo0
NDTU0IC1PCbWGBisA/DyMAgqyYDHgS0dNWoUvI/EiT7oCDc3N2g0yoBBGbzJ
Y0qc5IGmo6OxOcCywYgJMjHiEZqBWgIYF+VttaBzDfBGYAiDBg3C6yxfvlzE
otJ2Cylb6eALunTpYmdnFxISMmHCBIj3smXL4of79u0z24okF6czf/58M88q
W6FY4xaFTZxjB5+El589e7aZq3TBggVKnCmmFbt27ULD4XGaqYcuXryI8aKZ
Mx9GBpyZm/cgfPnyBcZBpXGYMs354POBAwcK7g95iGGiUm90hGTbsWMH5F5Y
WFiRIkXA0/C3yAIWl0IfI04QcgXerlKHuWmOPpA6MqcSAbMJpdakSRMQWrBK
a1ivMRrgyYMHDwbD79u3L+w5al7kmCoCaC24q62tLaoCvi8qKgqNAh0UHx+P
SoajcXV1BQ8XT1hqUC/KUyd3gsPiRCWBW4bjhxFxx1yimQr/Lzjh1q5dO7Od
uCGAomKNzsjQu1FfL8xg4kR8E3dqoWY2m40bN0KbC7rB/fv30evs7e0FfYaS
0MJu7N+/X2sZ0PmXLl1K25jRPXDbmJgYlGfJkiXoV61bt8ZvmzZtevjwYTIa
GOy9evXSy5EEYGKNgeFHAJxa+fLlq1Spwp9KSk1NhRmxSHor46K8rRwQVtvU
0LvrAxfUrFkTpJEfNyECEBvcdtmyZdC2hmZRMx1wK3Xr1oWyNsOxXAJYoVjL
++8oIq0aRDru3bsHFmHmlWVSPeZZzkPbDRs2TFcqieXLl4MGlylTRjA/Q6dU
o7/xyUxOTo67uzs+P3jwIP9imvOBJVmzZo1mAfCyaKkuXbrUq1cPcgB3gFgD
Xdeb7oM6vObGJ/pcM5CNIU/d3GgOGPajR49KX3+HJVy1alV4eHiDBg0gdSmR
46hRozIyMqQwUoN6EW44ZMgQlUbaQIxiPFSlPvvSPEdamw5FxRoqh1KWmTg7
ZwYTJ+KbPn/+3LZtW5XGcjy3a1cQSAvbgj4jyFvLJaEFMxHf+Yw+f+DAgQED
BkCXubq6wuB4enp27NgxISHh9u3bpstVJtYYGPI9Xr161aRJE1AawVmKNGUE
c2qePVEcjIvyzk+AjxgzZgxoBhyB9c+oE/OxSLtYp1h7+fIluCW0tikHPaek
pDg4OAhmcZUG5ZMXrE8pBErnrhmYn8eLJeGinAi0b0r1X6gRDAVMEy7GHZzU
EESQLV68GIMIJF+cRxkKvQFr9DkIs6UWVhjyDO9F+BtyzMbGRiDtb968CbkH
1yMeXWhVUFSs5alzk9rZ2Zm4BG8GEyfim7hIQ8H6OJ10xgWsvX//ntQZWh99
Q3BY26dPn9q0aaNSB7JZNpiUiTUGhvwNeC5oNCi1qlWrCkRZQkKC5ryTGWBc
lHc+w9WrV8EQfHx8pKT1tiBABnr37m2pY86sU6xhTCUmJsKz8w9ANwiUrQ5a
xqDszaZj3759JUuW1LWfR15s374drTZ8+HBNaoFKozPF2rVrx1/LyM3NDQoK
gv6CCstT55sNCwsDXYThgiKrWbMm3zJwB6aDmcu7JZgC1gQSIO+/dRw/Pz8U
CTItMjLSxH1iDKbA0F4EUwb5Zmtry8+uw+XthCkWNLc1g3xoTEyMQrwd3Tsw
MJB/xLmhMIOJE/dNsA9NmzZFN0hKSuJ/fuvWrdJq4A+0flxc3Ny5c/EHtBs4
iaBKz507Z6+G5nmpZgYTawwM+Rvv37/39fVVqVNe86eM8HdERIRmGIgZID3K
Ox+D9uTA0Qh2dlkbbt686eTkBMdtkRMW+GLNqvaeQTXUVcM4KvLq1auGDRvK
km9NOijdGcaXrhSIMuLTp0/t27fHGOfOiBdgz549oM0g1fyZoh07doCQ0BFp
MErz58+fOXMm/kDfg0SqUqUKP35/7dq1hQsX9vf3l5djcwFrTZo04U+k4NH1
69fH54MGDcLgBdMLDQ39juh9voRBvQiYPXs2+sz27du5i+/evVu5cuUyZcp8
X6eQ56k9u6KbNvfv3w/3NHToUOOkgRlMnLhv4jbwLFmyhPsQ/SQ6Ohofomwo
ISQ8WBAJ0kuXLoGW9OzZk1ushOrHtzY2Nug/Fs9ZzcQaA0P+BpwRPJFmjiPa
pGSRFRPpUd75G2iaSpUqBQcHW+1mKkpcacF5RfSK0aNHW6FYy1N3Y5Rq4cKF
Rsx1QMKAGNCMrhJl0wowE19fX80Mh0rgwIEDsC0ia15v3rxBYZydnSlRJC7b
vHmzt7e3i4sLagb1k5OT8+uvv3JngqC2wVU2bdqUp14NOXToUOnSpfXmfjcC
FAWDLof7c1ky8BQUhsTalClTQOdiY2M1z9RgMDMM7UVkciHGSdyhWZs3b46G
tvIZM4uApErZsmUlBlYLoLSJk+KboMJKlSrVoUMHOoAPfAM/8fHxKVKkCK2P
QwF169aN7CG9b9WqVelwEPQQEBJI+3HjxllDJOPhw4eZWGNgyMeAKStevHix
YsX46d/z1HYMn3MBa8+ePeNOFFUU+SnK20TAiyUlJdnZ2e3cudPSZdGOCxcu
gMmMHDnSUt6BJsNVEs6rMj/QY0NCQmrUqGFEyCekB0af3iPv5QVICGgtxK/S
s8Tv3r3DWG7QoIH40RKPHj1q164d2FHfvn3Bnbp27YqahAorV65cw4YNW7Ro
kZiYyBX169ev+GeFChW6dOkSFBSEF5k2bZoSOS0pMA28yM3NDUy1V69eYPtN
mjTZsWPH06dPAwMDHR0dUWyYKTMcRs+gFwb1ojy1Q6xTpw76J65Ed0I7QsFZ
sPzWjJs3b6KKoA6MWB1T2sRJ8U1wH5Dhrq6u6Aa9e/f28vKKj4+HdZo0aRIG
eHBwMIQbP6Tu+fPnnTt3hknv06ePh4dH3bp19+zZY/E1NUJKSgqUI1zhqFGj
rKRIDAwMMuLcuXPgHmXKlMnKyuJ/vmjRIjrcJzc3F+YLtNM8aRjzU5S36UDl
gw26u7ubOceLFKBXtG7dGu7Msgudx48fL1asmEp9lpa1nReMMQXPHhMTYxCZ
oXRk5g9Y279/vxkC1uhMNPCoo0ePSrkeCujs2bP8qvj06dPFixfv37+vOScP
dQZydeXKFeV6AgWstWrVCmL82bNnZ86cQStz7Ah/4J8o3g8yofS9wKBehAF4
584dtKyJ54jle6DqNm3aVKpUKUN3NSht4gzyTaAct27dQmfg7yjADzMyMrRu
Y8aoP3XqlNaeYynAv0RFRcEJ2traWtsOEwYGBllAZ6Y4ODjwA8QePnxIZ2rT
gUGXL18OCwszT6aL/BTlLQtycnKaN2/eu3dvM583LQ54W7SIm5sbRLRlSwJa
TnmktZ5xbHGkp6dXqFABlEa6Z8cbBQcHR0dHm/ldlixZUqtWLRgERZ8CDowK
WbVqlfVQHengAtYmT57Mpq8ZGDAiMBYguwSTveJQ1MRZj28yD2BIN27cWLRo
UdilyMhIqw2aYGBgMAWgHLBshQoVWr58OdGnW7dutW7dumHDhhj78fHxsMYT
J04UZPVXDvksylsWQEd7enpSLIyly/L/QBtt2LChWrVqUCKWLsv/A+5p2LBh
6DPoxlC1VrVtiTxp1apVpdfVly9f5s+fb1wkiCk4ePAgiqroMM/MzKxbt25s
bKyV9GRDwZ2wxp9KYmD4kQHz26dPn5YtW0pfJlPOxFmbb1Ia0MgxMTHk+/CH
leeOZmBgMAW5ubmgT46OjhEREaGhoc2aNTt69Gh2djbMb7ly5dq1axceHv7m
zRuzlYdFeWvi/v37AQEBVrIeAT/YpEkTaxPOly9f7t+/f4UKFVQqFTpzWFgY
PzegBYEm27lzJ2rsB5np1QUoneDgYJC071Sp5f0XsGaehJkMDN8LQCFGjBgB
l23xZR3r9E2y4/nz5yEhIXBzcHYgab/99pu8R0kyMDBYLd6/f3/u3LnMzExu
Z8K3b9+gmy5dumT+w45ZlLcmIF2t5IC5169fv3v3ztKl0AlogQcPHly9etWq
Dk9/+fKlRU43sB58+fJF6T2WSiMpKYkC1syTbYmB4XvBv//++/TpU4vvQrdy
3yQX4OOuX7+elZXFYmMZGBgsCxblzcDAYFVITU319vY2z6HhDAwMDAwMDAwM
DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM
DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM
DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM
DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM
DAwMDAwMDAwMDAwMDAxWhbdv3+7evTs+Pn7VqlXXrl37+++/xa9///79H3/8
8c8//5ineAwMDAwMDOJgjoyBgYGBIf8hJydn0KBBtra2Kh6qVau2fv36L1++
aP0JnKCPj0+vXr0+fPhg5tIyMDAwMDAIwBwZAwMDA0P+w7dv37Zu3ers7Ozg
4NCvX7+kpKSVK1fGxMTAwZGnq1mz5rZt275+/cr95P79+4MHDy5RokRsbKwu
D8jAwMDAwGAeMEfGwMDAwJAvkZubO3bs2HLlyiUmJn769In/FZzali1bqlev
Tp7O1tbWy8srODi4Ro0aBQoUcHd3T09P//fffy1VcgYGhu8XOTk5N2/efPfu
naULwpAfwBwZAwMDA4NEfPv2DV7D0qWQCnio2bNnBwUFPXjwQNc1nz9/Xrt2
bb169QoWLEjOrlatWgsXLhQ4RAZNoCcwLsrAwAdszsGDB319ff38/EJDQ11d
XVu0aJGRkWHpcv0/UDb+sgsfbNnFmsEcGQMDAwODRDx8+BD0o27dujk5ObLf
/MaNG56enh4eHo8ePRIvg5eXV6VKla5cuSLltiAnEqOq4ezgCtmufr2grTVN
mjRp1apVQEBAhQoV2rZte/z4cQh5uR4BcgLiUbp06ejoaHEauWvXrlKlSqFb
vn//Xq6nM0gEBktUVBTqf8eOHSKXGTpmv1/8/fffINXBwcF37tyhT3Jzc/v2
7YsxcvXqVcuWDUD9ly1bFuJxypQpycnJe/fuXb169ejRo2F1O3bs+PHjR0sX
kEEnmCNjYGBgYNCF169fL126dNSoUS1btixRogRtjH/+/LnsD0pISMDNXVxc
oAVELtu0aVPBggVLlix57tw52cvAoBfnz59v1qwZJBLHHO7evYsuUbhw4blz
58qVbezTp0+QgegP4eHhImIN3DgiIgKXgX+yNT7z48aNGxiJhQoVWrdunchl
P8iY/ffff5OSkkJDQ1+9esX//I8//oDlHDp0qMVz8V24cMHe3l6lAT8/v8eP
H1u2bAwMDAwMDAzGAbosNjZ23rx5V69e3bJlCzi5QmLtxYsXycnJt2/fFr/s
w4cPYIanTp1im/DNDwgiyCI3N7fU1FR+/S9fvtzGxsbOzi49PV2uZ6G/bdiw
4fXr1+KX3bt3D0//888/5Xoug3R8/fp17969aWlp4pnDf5Axe/nyZR8fn1u3
bgk+P3/+PMRaSEiIri2IZgPEmrOzc8WKFaGvodGKFSuG4ZySkmLxgjEwMDAw
MDDIgm3btikn1hisH9BELi4uNBXP32Zz4MCBIkWK4POEhAQLFo+BwVL48uVL
3759Fy5cqClIN2zYAHE0ZMgQa1hZCw4Ofv36NQr5HYUeMzAwMFgW2dnZy5Yt
s55oi1OnTu3cudPiPsVqAZGyZcuW2NjYXr16zZ0713omJM3TkaSItb/++mvp
0qV6F0QYlAOY2MmTJzGQZV/I+PTp06BBg8qVKwdRxo9Qo45RsGDBtWvX8q//
+++/k5OTr1+/Lm8xLILTp09379595MiRy5cvv3jxIjOSDHxcvnw5ICBA0zBi
yHTs2PHnn39OS0uTfjeF7Dkn1uS9rUJgbISBgcEacPPmTS8vL7h+GQPzTcTT
p0/9/PwmTZpkzbmhwAAfP3587dq1nJwcs+2rOX/+fHh4OBipnZ1dp06dEhMT
L126ZCW7eszWkaSINQjYsWPHtmrV6smTJ4oWRkbk5ua+ePHC0qWQB+gD0Ef1
6tUzW0IDPBEtrlKpqlSpcu/ePcG3Bw8edHd3N4ipKgpYjzNnzixcuBB6Mz09
XW+kG94OY//t27cvX77cunXriBEjXF1d8bLOzs4s0xoDAY5g3rx548ePF1hg
fI7B+NNPPw0cOFC6S1XOnn9fYo2xEQYGBosjMzMTHAaGSHy3vymA9WjevHnL
li0Fxhn8ZPjw4dOnT9dqA+/cuQM2PmHCBOUKZhzguQ4cOBAYGAi9ULZsWRcX
F/xRqlSpAQMGiKekMBH//PMPWBnt8urWrdtff/2l3LOMgBk6EgeJ2yA/fvzY
vXt39D0puyXBTNq1a1ejRg0PD4/Dhw9rvQZNAM4DAlO5cuX69evjMhndIoZD
UFCQm5sbuIFc97QUUC3r16+vWLHi0aNHzfZQ9MBKlSqhYyxbtkyzXYivVqhQ
4ciRI3pvhTG+efPmRo0aoaFDQkKys7O1Xvbq1athw4ah25cvXz48PFxiwNrX
r1/XrFmDn/BTK9jZ2Y0ePVpXR4XlHDRokKenJ3op/z4rVqzAD/HzNm3a5BuZ
T3jy5Mlvv/0G3Y23g8rAuMDomDhxIn9u6v3797imTp06aPcZM2Zo9SOKjlm9
QP9v3LgxfIStra3WoY3XqVq1qubWRPzz0KFD6HuwSHXr1sX/cY3eeafPnz/D
NaSlpeXm5s6fPx815u/v36dPn759+xYvXnzkyJHSRb2i9pwTaxhBqKKVK1em
pqaaJzMPKha9yNnZ+dSpU/zPaXKpR48eWkcxYyMMDAwWxMuXL6GhQkNDFU2W
S9Ta29v7zZs3/M937doFL9y0aVNdVjo9Pd3JyWndunXWM1OEosL3ubq6giah
9uhDkITdu3fDn9rb269evVqhdSW4s59//hnUpVOnTtaW3Ng8HYmD9Jg1MFgf
Hx8QGHGW8uDBAyi1Y8eOQQLXrl0bTalJq8CN4+LievXqhYeCYzRs2BAUMSsr
y9SXUQM9fMmSJQULFnRwcOCybX+/OHnyJOjQ8uXLzTNy0TSwFVDZJUqUwMDU
NQDB00C30LggouI33LFjB0YZ+gAFwfXr10+TpD179gzXLFy4EE8/fvw4RFNE
RATYsvidb9265efnh94Lsjp37twNGzagSM2bN6cziVD+yZMnc4YlT21wUI3g
YCDemlydRDGsKH4LQm4926FNxL1795o1awYhhpE+Z86cFi1acKq2ZMmStFaL
qh4+fDg0Gob24MGDUQkwwoL7KDpmpeDDhw8ZGRldu3alTKGC/YToVGg1fAUl
zhdr6HgdOnRAZ+DWTGGgoDch8P/44w+6BrdKSEgQ5HvMzs6GbIfcQOfEy8If
OTo6grpXqFABPuvGjRsSi620PYdYQ58fNmwY/g8JiYHwyy+/oGXj4+OVXr1C
FUEdQ7qeOXOG/znqHGoada4rUyhjI4SDBw+iHxYtWrSIPoCuVKxYMSAgYODA
gXv37rXmdUkGBvMDlmT//v2wgfACAnEkAMZO//79QQM000bJCNgKuFT4IxAe
vj/C5/DF+Dw6OlrXbnB8PmnSJLgbgV21FOC5eqqhdf8G+ICvr6+trW1SUpLs
FhKN9euvv1LiLDBheW9uIszTkfgwKMHIiRMnQFdA6nQ1CigTuii0EsbOw4cP
QWxKly6tqZhSUlLCw8Pfvn2Lv/H/Jk2awB9hrJn+OnnqI8NAIdC+YBGnT5+W
5Z6WwuPHj2vVqhUWFmaGvXkg3k2bNsWgoKpbuXKluFwCpYF49/f3F9mCBdoG
xnvt2jX8DSkEGYV/Cm6Lf8bExHARc2fPnsXT8dYi693oXWAs6F09evTQzE9+
+fLl9u3b29jY4EUKFCgA3ti2bdtGjRqhj4F0zZ8/X1ceBpB2mB38CnYyH8j8
PLVrgICdPXs2x4rxB0YxGhqviZclhYLKjIyMhBqCIoNqRqUtXbpUcCtFx6xE
wLyQWIMqEZggdIMqVaqA9/J350KXeXh4oDulpqbyLz58+DDYLxQfvc7x48dD
QkIE6u/IkSN4FtdVvqmRp56zgtbz9vaWsvxqBnt+8eJFSDO0MkfgUUtjxoxB
I6KWFJ1zQFWjwqtXrw49y/8cVYfqhcbR5VMYGyHAhKJnYqwNHjyYZo9pZX/j
xo27/xdbt27FKPbz8yOzBvMoWM1kYPiRce/ePfABDA2BC9AERpydnZ3WtFEy
At6kWbNmmiH/3Odr1qwR+XlOTo6npyeutPj+djq8BoSKfKVW0FmfZcqUuXDh
grxPBz9p0KABxeNYWxCWeToSHwaJNTjZ3377DdxAl5O9e/duQEAA7X7ZvHkz
7gxSJ2hl9MPAwMCMjAz6J2k6sGhZGhpEZeDAgeT1fvrppz179ph+T0sB7wIn
jlFAYsdsePPmzeLFi0FxXV1dxdUurCK6a2xsrC4Os3r16ujo6K9qdOvWDY0y
bdo0Qd/GTTp06MB1Esqz17x5c5FUDOfOnatfv77grAE+8Dk6GCwMR4FoOxM6
m8jroHsPGjSIDP6hQ4dErvxeAP0VFBQE7qf5FVqZljhpv9/27dvx96NHjypX
rlyiRAlueBIUHbPSAX1Ut25dWBUqLQduMd3f35/bW0J7odGao0ePFsxh4j51
6tRB16Vj38eOHZuYmMjvS/gb3DguLk7rHuBZs2ahiyYnJ+stsBnsOQZOenq6
YLUafg0aCp3/wIEDCj0XbzRjxgxUb2hoKH+hh/sc+ldkAYixET7gMStWrEiL
3SKnzNOWctqt7eDgcOzYMSUKw8Dw3eHq1atw8RgXIAaCuSM+Xr586eXl5eHh
oXTo0507dxwdHbm9K/zPYUbEhzlh1apV8HTz58+37PYDGGr4XLiSzp07Czaf
cID36d+/P9l8eTMSo73q1auHO2tOCVoWZutIfBiauj8zMxM8rXXr1lq5dHZ2
NlgufAqarGPHjqhkEBtBZwNTAofh2AX+trW1dXd3R68w/XXAvjBGaCNcgQIF
IBZMv6elAA4GxTRs2DCLJE/btGkT1C6sCqpU1zVoZVA1GJ/Lly9rvQCink7Z
Q7dxcnLC3S5evCi4Bp9wP8ebQlKh7cSToqODSdwIhCvRJyUmCsDFI0aMyAcy
nwMGaYsWLQYOHChSmRBrv//+O2mcFStWYOz4+voKRreiY1Y66ABo0Oa7d+/y
P4c2gQUrVqwYF0SJ5l65ciUkFYyV4OI89Su3adMGDQ0ZlZWVhb8fPHgguAAC
9uDBg1qLsXbtWhsbG/FazbOQPSd8/foVfhMvGBERodDiGqqoXbt2eMS8efP4
gws2ITg4GJ/PmTNHfNAxNsIBpp4kWKNGjcQ3caHLjRw5kiagvL29LS51GRj0
4tKlS+vXr1d07y5898mTJ2FSRFwS7ExiYiKcAm39Uq4weeqNKDBusP+CEbp1
61Z83rBhQ12mhgN8rqenp6urq/gMs9Kg7RM0j6SL5gG7d+8muqhJ8EyBdYo1
c3YkPgwVa7TnFu2CXidy2ZUrVxwcHEDjxYM7cLdJkyahLbp27Wp6vDkIJ3gX
+DZoJLmzmTNnKlSZ6EVLly5Vrv98/PgxMDAQvJSfB8OcIA6DOmzevLkIf6At
Tz179hQxxZRYD9o5KChIfD8nHgS6gg65ZcsWk0pvFLj95Oje0C/mL4DsAFEP
CwuDTJbSiz58+BAQEIBmWrRokciokXfMGgRoSagkQcAaykCtBpnPCRNc4Ofn
R1HJmj2T2045duzYMWPGwEoIloYh8DH6NHfYEiDx8Nvu3buLvL6l7DkBlL5f
v360X04hqYgqqly5smYowZ9//onPadVS/A6MjRBoGZccFiSh3qk5VDhtVofh
ZYtrDFYO2q/i4uIiMWmYcoA+gnqqWLGiYGpOdnABa4LhrCuQTStgFqZNm4aL
+VEM5sfRo0dpHikkJIR/Dq8At27dopVNzdUZU2CdYs1sHUkAIw7FzsjIKFGi
BLiQro1qaKypU6fSDhnxuCdQ91atWmmNkTEUtJuladOmqECKPAKGDRumUI6a
/fv3ow9v3rxZiZvnqZcI4ZE7d+6sdCw5jAaYvCajA++ltdHixYufPXtW18/f
vn3r4+MjzmEoxEnvPm0A0h5DHhqf1uPMjPwn1jAoEhISyGvoXWFBK2NcV6hQ
QTxtiIxj1iBAGfXu3VsQsIYX3Lp1a5EiRfz9/flzlffu3XN0dEQhFy9erHkr
9HnKRlKnTp2goCDNzn/48OHIyEitayj4LS2yjBs3TsS2mMeeQ1x06NBh/Pjx
guwlKOSQIUNQSLSmLslpIkjjaAam6Qpk0wRjIwRYeLK0sJDr1q3Te31mZqaD
gwOut7GxkbIXl4HBgoAtio6OLl++vEKGSDp27NgBzx4VFaX0HOO7d++kBKzB
2ojPpF25cgU2x9PTk58nzcyAjwO1S09PF99RACUOPQ6jFBYWJuNeDusUa2br
SAIYIdZoBv7nn3/WlbkdNYwOhtumpKTkqdmdrhT6FPwikjdMOnArPHTXrl3c
FiAAYkeh+ty7dy84yYYNG5S4Ocrcp08f9IedO3cqcX/+g2BIUVFVq1YVpKfG
V+Cr+Eo8jwStmmnN+cCBVt/wCDLXMFC6ktZSEhKRrLaKIv+JtTw1n4fBRyNi
pItchnen7VU9evTACMI/0Vhax46MY9YgcFaFH7CGnlmyZEl4QIGFQdlQQvQ6
rUeHcMGJZcqU4XJCcqCoNM0T1gjove7u7riz+FEaZrDn3Dytvb29YKqEW1kz
yLBLB6po+vTpNB3Hd82CQDYUA05cRNIyNpKn3sRL5zyiJ0sJT87IyChevDiu
L1SokPj+FgYGi8NKxNrnz59BCzlSqigoYE1z10FmZiYFssEpw1QuWLBAfOsX
xF3z5s3hu5ULPZYLMGJ0NpDmzk9TYIVizZwdSQAjxBp6V1xcnGaWbA4gura2
trVq1aJ7JiUl6ZqFhuTBlXXr1jXxZCswomHDhnXp0gUOl4t7Alq1aqVQHkVF
xdrdu3ednZ3R+XWdSiYXKKaJls8ESWNQk4GBgZSaQ5xCUCRR7dq1tU4TceEe
FOOD23bv3l0XhSblqNx6qDjypVhDhdPcReXKlUVSXELs1KhRA35h3759+Oft
27fbt2+vdVTKNWYNBRg1P2ANhBnODg6xZ8+emvv/UX4HBwddKVC44EStWxlh
jTt27BgbG6s1u8iKFStAktu1ayeyCmMee04bGNAWkISCjcoweq1bt6bZKiWW
5vGCbdu2xf0nTJjAH6pcIFt8fDyKd/XqVUgbkcQdjI0Ax44dozxIUu5M22sL
FCiA68uVK2eRHQgMDNJhJWItKysLnMrJyckMx81QwJpgSxIcFs2tEVOCiYb3
EU9HD9M6fvx4EaZtPXj48CHMkewb761QrJmzIwlA/UokzbJW0LZ5rfycm7UG
HUJne/fuHfy11j6JbydOnKhSn0tu4vwz7u/u7k6Jd+DOQLRIrMnuWDkoKtZW
rVpVsGDBX3/91Qx7IGFIIcegvgUbVh88eEAJykJDQ8UFL2oY9ayLcdFxe9wa
x/nz58GEtTYKF7BmqenifCnW8tT5QNA6eC8QbF1bl/fv349rYBghwTCC5syZ
M23aNE3JLOOYNRT8gLXs7GyMjjJlyqxcuVJrMegUBryR1iQhx48fJ+KNm2iu
ktDxYW3atNE8Ge3cuXMw1K6uruIxgGaz57B7AQEBmkb4+vXrNLUrvvxnNChg
DRUItciXtOhFeCi3Fr9s2TKtvYgDYyOGBqxR1hru+nxzHCRDfoWViLWNGzcW
KlSoZcuWSp9fzG14KFCgAJdkCeQKpNTb2xuksXHjxm/fvoXpjoyMFEl5TQAP
ARtRjscahPv37ycmJsLswG/26dNn8+bNHDO8cuVKyZIl8dZubm4yqiorFGtm
60h8oBfl5OSMGjWKVk/AaqQvQqHeUHtaD6pDX8U9QavWrFmDvxMSEoYMGaI1
cg0vSwkN4NNNeRF0eLBQfgL5pKQkmnusVq2arh2YJkI5sQb/27lzZxR+7ty5
ZgjlAO309PSEPOSTXpSBlh7AS/UeEcXtuRJMsxMw3OrXrw+eA/UHOQYDJci7
zuHatWvohxY84yy/irUPHz60atWK3Mf06dO1kmea3ifxAkEdHBysNe2DXGPW
UHABayhYjx49KlSogP4pnovywIEDxYsXxxvxl8DQCWNiYvAKS5YsKVGiBB0s
AiOGm3PW7/Dhwx06dMCD4Go5MowCwDeVLVsWDlfviDCbPf/y5cvQoUN79uzJ
3zZM82MFCxacMWOGQgqIS8qBmqRHw1Kh3sBDKlasSFPKr169QjEuXbokfqsf
nI3AM6KzUcCaIMJFE2hNuDlybe7u7o8ePZKrGAwMCkE5sZabmztv3rwaNWqA
MzRs2BBGSRdfQhnoRKcBAwZINIkvXrzAWMPNYcnhKVq3bg0Xqev+KMn69etp
LzcFrGGQ1qpVy87Orn379rDPsG9gRzCJ8L/ws23atPHx8ZFyyiR8jYODg8QN
0goBb52eno4Cw7DD+W7ZsgXmPTU1Fc3aokULKhiZcdRwgwYN9Ca6lA5rE2tG
dCQ+8DqovcmTJ/fq1auLDuArsHFumQYkp2nTpoULF6YJOggrsv8q9UHhIsdm
ceD2yGlNvAyyjY6K/ok+iafr8sIgThjCGAggh4a+NQc8Ha8G0sWf7dy1axe9
XZkyZRSa3FZOrOFFUHu2traCk3ylANwSJiU+Ph58o2vXrlo7Q7du3SZOnMjv
+TAIHTt2hLlDP1y5ciXq09/fH+She/fuEjM4LVq0iJibJjtFA8GOwdqAk4DL
LVy4UFfvSk5OxkNh6PRON4E5b9u2TXwLEEqCzgmdCBtCB7cdPXpUXPzmS7H2
9OlTiI5q1arRALe3t9d6nC6qC1YCmrpTp04wy7qGpHFjFtV+79496DtUL6w9
euC0adP0tjIfEFzQPnAWQUFB6KIiO+v4gDeE7wCthVuBHIPO8vX1hbWEJUQX
mjlzJsxdSEgIPuf25dJKB77Kzs4ODw/HoECBQ0ND4bVh0DA09GZuN8KeQwig
TmjhxsXFBYNXZNxBRKekpHB3hpqAxfb09Jw6dSo+R5/H+4K9gPmLP91oNsIF
rEEyly5dGkMMBfbz80NNYkjCreNzlAdVDUOktwZ+cDby5MkTGpuaRzIJAOuE
7kdL5Gg18TTLDAxWAoXEGuwezA58FuwYTQjDFuk6BhHug5LOac03pQlQBTpi
mw86Z0Qre9m/fz+cBc0KUsBaqVKlMELh4y5dunTx4kX+OggKnJGRITFKFxd7
eHjg0eIh58oBti4qKgrEDJ5XkNYgTz2x2a5dO3AMmHqqJXmnKPH6ViXWDO1I
HND5+/TpQ9ZbL+SdD+SWenXlr0bnBJ2DIxbRfXv27IEkQVc0Jfjl0aNHGKeC
xRouuTFIiGYCAVmgnFi7fPkyHDcIjN4JfD7AphITEzUtjFaAdezevVtwBxiZ
pKSkUWqsW7cuMzNT+roexixqo3LlyrqC7KBAT58+LdIDuSR76Fd65wo2btzY
tm1bkal48Cvu+AYOdnZ2UPEit+WLNc36+e4Amzljxgz0pTZt2uzbt49OiAZg
XbWaU7w++gDGi4ixNXTMfv36FQqCzoD4+eefQXTh1KCb5s2bp1AwqSZycnKg
T8+dO6cp8eAx4d/5spFOWOO02/Pnz+FYoTSlB1EaZM8hGyF8SAXwgYGsNX8L
nVOwYMECwdiEG12zZs2IESNmzZoFpiEST0cwhY1wAWsoBtr37t27GNr8VU7Y
IlCUrKwsKQbkB2cjaAgKWBM/eunNmzdod8hqGxubLl26KJE0hoFBCSgh1mBY
lixZ0rlzZxqJcCX+/v4YRBgjWs0XbduG5wJt03tz2DrwRhrsTk5O8FllypSh
fxYvXjwtLU1wPaxiWFgYZ74osMjb21v8wESJgC2l6GPlTqESAdh1s2bNVOpj
erT6FNR2XFzc3LlzQ0NDqYqknEogHXArderUUamnp6zB6BnUkQhoNZBJdCSV
emuTi4tLQEAAugfn9MuVK4f+E65GREQEBgucjrxtTYcNCc48kg4u+xwa1+jg
F/QKDE+MWQHxu337NqVZFs9kaAqUE2uU8sWgzgkySadKqdRLJz4+PrBdpUuX
5jgY6Hr4f+jRo8fSpUvl3aBFea01s9JJB+X6k6KSoPgCAwNFNDhaH7VH7GvV
qlWwruirjRs3RlXgESIqA31y9OjRJNbEZZ31A1aFUrYuW7aMjCd6LE3s6M1k
qAuGjtkHDx6gDCp1bhP0aisPSiKg3oKDg01J7CPdnkOpcQccg4dXr14djom2
FxJ714yNunr1Kka6ibTHRDZCL4grodFMKQbhR2YjlHeUbtu3b1/N26JyoNnH
jBlDSeS6d++ekZFh2TPEGRgMghJiDbeCGeS2WD99+tTNzU1kbMJsYviIH0JE
uHHjRoUKFYoVKzZ+/Hg+Vbhz5w64E8g2uIfAUBw6dAhMg6aOuVWMmJgYWawE
/CxGvcrYfXemAN4HmgKPBncSidK9cuUKPCaFMOs6K8dowD7TpGKjRo1kEb8m
QnpHIsBWb9y4kabjOnTowN8M9vDhQ9qd6ODgIPvZnQLQBIL0NJLo4fB66HLU
7vD4YNR2dnamhMCDLdSuXVszLAI3r1Spkkq9w1PKyTVGQCGxxmXCp2gaKT/J
zMysVauWSh1fBqXDjWjIsdjYWLQRRhAlZ5O3qHxwBFX61k0Uu3///pBRRPsh
jvBz8Ebx7QHEncaNG6fLcKHSIBDQ+oId7JDzsJ+6Mk4QOO5EEZcSX8QK8eef
f9L+z+TkZK4SUDNNmzYlZqhrBlIAU8bs5cuXaQyC5VpDOJJEHD58GM5R/HRI
cUi052iX5cuXY3iCZmzZsoULjkPHhm2BWUMnTEhI4PdhfDVq1KipU6eakivV
RDaS91/AmlyHAvzIbIQLWFOpt0FW/l84OzvT7Aoeisvg7JTON8XAIDtkF2sw
iRiDMBrccADrAHnAMElMTNTKc2jnT+nSpSmTsC6AJMBbValSBc5L81s8DsQD
ljM9PZ37MDc3t2vXrqtWraJ/ciesrV+/3vg35AGmfsyYMTAC7du3N+fwR1V0
69aN7FJGRobIlTk5OZ6enmTEwA34lWM6oHQooEkiY1EaEjsSh/3794MJoGei
ETWbDzchKTp27FhF3w6NgqZxdHS8d++elOsp6J7mY+GkMH7RpSdNmmR0Pqv3
79//8ssvWqkLLdNQ/1EoTYdCYo2bmQE9kMIYnz59CoFDfOPJkyeCb2FJwsLC
9O6xMR24OYqBPrly5Uop16PRIyIiUDDaLfDgwQN3d3cMAV0n93GAXvDz89MV
3EF5rSFdr1+/rvnto0ePqlWrBgIscv9Tp07RGUaoN1MYuwUBUdamTRu8wuDB
gwVnYEEaU3SqxK1cRo9Z2ASQeZU6wMcadi9IBAWsmXhGs0R7fuvWLRhqXZnt
MZZ9fHwE4VGZmZnNmzfH/40um+lshAtY69SpkyypCH9kNsIFrJUpU0ZXBC7E
LBoLTQDxXrVq1R07dphB0uIRsMlZWVks2ySDiZBdrBGr4Rb6MUAovxkGkVa/
D2zfvh2cH/ZWvAyg1tWrVxdZ5oAWa9Wq1ahRozjOCcIAZ8pN9cDmcwFrxryb
Bjh7C8tv3B42DleuXAkPDwdRhM3x8PDQmkCMw6ZNm0gl9enTR9wIgL/RlJdK
nfVIPOuXQbh27Rosnkp92AHMkVy3NQUSOxIBZJWCcTT3/hHg72iyDpxW0Vxk
58+fL1GihK6TjDQBHwfW17Rp0zVr1rRu3Ro/5FZVjMPatWvR8bRSQbw4RhD1
H5HDmk2BQmINFdKzZ08UG8NKb+VgENGJcmBfuigc1BO8PAgJhqq8ReWDJpRQ
kri4OClEFy0CWgjmP2TIEKinypUrYzxKWVlOTk4Gb9ElozCivby8tB7ilqeu
Lhj5adOmidwf14A6QtFgSC5YsMAaJnMMAgoMrYEWR5VqzqLQUWWq/4560Xs3
48YsWof6sK2t7fe1mxQl7969u4np7qXYcxAY9HzIE5HVc9hVNCJXGLTs1KlT
R4wYYQpXN52NoIp++eUXNG5iYqLRxeDjR2YjR44coR0yEOb8fJ6awKCLjY3F
uFapM/YrF++JO8+aNatBgwbt2rULDg52cnIC05bxqAKGHw2yizWwu9WrV3Oz
WLgtdw6LLmKwfv16jB1cpjmhzQHMuVu3bnr3IKWmpsIh0p4E2A28Gn//A/h5
YGDgpEmT5Jp3wp3nzp0ryz5A1Bh8U6dOnXC3+vXri2xhwtvREgB37qoIYA+5
/ABybf6EHkcTly1bFvdEfUpMc0eA58o1DehFuvqAlI5EQD1QQnWYUF25s7g8
6vK6FU3Qbp9ixYpJjFzA64MkTJw48bfffgPlNnFnFJoP3UnXgVxwbbSipNKd
AsVEKCfWqOQ9evTQW+y0tDT4ekieRYsW6epdu3fv/umnn8S3/5kOTh3DTEkU
OLBmMB3Dhw/HTyCvpLQRfoLWBMvS+i2dDoYOpstcUA6T+fPniz8FQ3XGjBmo
sUKFCkVFRZkypYNbmWg3DDV9d+7cgVtUqQ/A0myI58+f16hRg3bMSjnSwrgx
S92SWzY1qPyWBWr77t27JvpZKfb8/v37Xl5e4tNcKMzgwYO57R+weL6+vqZM
ucjCRmg2A0zeIAcqgh+TjeSpX3zmzJl0Wyh3vbfF29EJazD4ixcvVmK7CN40
NDR07NixnHJER61Zs2bHjh1N1NEM+RJZWVkUgiEL4DXAZAwtw5o1azAiChcu
vHHjRl3XgPkXKFBAPKPg27dvR44cqfc4DIwRUB3K/nTz5k38rfQJGhjsKnW4
vcQEkiLgovJ79eolwrhAa2kiC2xBb1pCUA4KeTY9LRuKNGvWrDp16tja2qrU
2cVPnDgh3d7SIbBcZnsTu6JWvyClIxE4JiZyhCjeNzw8XCX32Z2auH37toOD
A15K79Y12YF3x7ACI6pQoUJlHeCSZAYFBRm0nw0MuWfPnhj+pre4Sh39FBIS
It3TgQvRwqjeMHaUE3dW6VslgQXDu6Dz6+UkpgA1TMGSCq1jErKzs5s1a6Zr
vxCGD3SuiLYCWe3SpYuuU94EwFNAlakXoZt17drVoGSqMDK0hmU6UAyJ9go1
P2XKFJX62EStrJ6OL8cFJqZgFQF3IJpKvQdywoQJE3mAMF+wYIFCj7YSSLHn
kGlQ03pV4aFDh4KDg8GcwcyXLVtm4iHIjI1wsBQb4QM2s3379ip1bhldE1B8
4NUgo2hkKbGt/cOHD7ByEM58a4OOFxsbW7RoUUXn+hi+U8CkgF337ds3Sjfg
DlxdXcFAwEtFLuvTp8/QoUO1psAVwadPn2AhVeps5yKTY+vWrQMTkzhFKQ5Y
lejo6OTkZIxHDA1YVKW3JVMqP1nM48ePH/39/VEVK1as0HUNXAwpCCAyMlKv
x9m1axclNqxXr57pnv3u3btQ32C/JUuWRDmh1yTu3COkp6ejL4WbhoiIiGHD
hmlmBs6T3JEonkKl3jZ//PhxXZfBs1MaAW9vb4kZKowD/Dg4odGZ5UxBRkYG
uNCMGTNW6EBSUhIJGZXh0/sYg+DzGI+wHiK2hY4Gbt68ucg1APjV+vXrpS/t
cStr+K24Ebh06RId0jpu3Dhd+ohcrUqd5E3KCYxGI/e/lG6KijV0+7Zt2+rq
1SkpKdOmTRN5OrQemKf46WwEECEoC0dHR0qkOW/evCNHjhi04IJnoSow6k20
G+Cc/9femQdVVf5/nBCjFBdCRVOwxLRCbUEEtxTR0DBFhSxTMxG1UFJMKTXF
fQnLhVwgyw21qSnUMMbdMnNpXBLMxiarqUzHbUrHmprh9577mc7vfO9yOHDP
ORzg/fqj+X6vl3ue85zn+SzP+Sz5+fk6T9ExbFhxPh4a3pWoArq8DznzhPIa
ArsjPDw86n+Jjo5OSkqySfy5SRhoGMD8wKOUbvJYh651Gs2A1ogTxlojChAR
kpERFBSks0sLHHYZNjSvHjmmH8n2HTx4sFOAJT6HnsV8Yj0YeDlSfTCvKXaJ
ygrSPtKUanghISGGxANAXk2ZMuWXX36BcNZOd/UebEBpGhIREeF9nS5pk6pd
tRv3JfnmeoopYc7Hjh0rX4aZZODrfugC2MD45bvvvhtyzyYJKToXEtSQ2MPa
p+LwB5s0aYKvQfCaEf6nIO3AAgIC9u7da95VXLlx48bTTz8NW1r78a1cuVLe
h+o5Oy0H5oVBSm007ccnuhU3iDF4StEqcZgl4rRidZkhKhXwUKR3QEZGhnnb
Cjvl2WefdWtc3bp1KyUlRftcDlY0HOFS0z1OnjyJLSYrx2xRbCyHDx+W13lT
p051+xSk37qPI0/HJAtcXrjjElAK2klDVRUDDQOs1YEDBxYWFu7YsUPjmMJw
aI0omGeNKAlrOgv/quv84wZdayB7A+YNAtz1dbxUgjI7ip5UYcxz1rAjpk+f
7qOj7A+sNX9//8aNGxuikvLy8pKTkyHnIZxNrQtR4rjHN954w8eg9o4fffTR
nXfe2a5dO41jsTNnzogGx6zu2bNH+wdhUTz00EM+jrIJhqt7qD/YezISkzpw
lRWdCwlLXco8amcziang6+ubnZ1twmD/HyjxunXrml25wpW1a9dGRkaWemot
yxLT1ahRIzNO8k1y1pTe0AkJCRpHvkqwK/aIRk8omItyeBsfH3/z5k1jh6oG
xkZ0dDQuNH/+fPN6BODRw9ty+4YLPgImROMVKiy0zp07b9myRfsSFy9elEBB
7DVPaaG2BXdX04Gn2xQ5DLNz2bJlJo3hiy++kB5eNmmMYj0GGgbY5pAG69at
S0lJMSlNyS20RhRMskZw17NmzRLPSyOpQY1yjleq2C/HYBYtWjR+/HjXYZw+
fbpJkybmRU2TKo95zprUoPZx1OdRjjtg4btGCMNYrVOnDoxVT+Uiy8TOnTv7
9++flJSkkSVnFJK57OMon+JladZ///13ypQppXoQShUyPTUPYZJJc6jMzEwz
Tum//PJLGcxTTz1lh+rcOheSvMnCsOfMmeNJaysJI6GhoW5DLg1k27Ztd911
V3BwsJVBTdBQjz/+uKe6ImoOHjwoNdi96dSsgXl91sR0iYmJ0XgHpLzJ6tq1
q9teroJivZvRvFuNBL+Z3Z7sk08+gXB2+5509erVkyZN8mTzQMqlpaVBwJZq
DWJpSTKLuiBeZUHeJsNXgohz+wUJ6AoKCjKqsLArUnfIp+y5olUGAw0DKWuf
np7evXt3K8UsrREFk6wRpaimn5+fzkn+/vvv5eTNx9FB28CwGWiQhIQE13QG
KKDBgwfXqlXLwEw9Ut0wz1nLz8+XpHLliFiKjLlmQ0B4Nm7c2KicnX379j30
0EMREREGHph4QjmW16hBdPny5ZkzZ7Zp06Z169Zt27bNycnBVGdnZzvlGkuI
uHTdnTZtGsaPu4iMjNy6dat6upTYmFKPaK5du9a5c2eJDXB1kDHa1157rUmT
Jpgu9ee4Vm5uLkS0nsgTJRYId2eH8yKdC0msIO12e0oFkhkzZphtasL+x2DM
rjmpBk9/8uTJiYmJegoXnz17VrLC4VLt2LHD8MGY5KyVOFoSwOvRzuBQqi8O
GDDAk9a+efMm7B98p2PHjma/45DXvmZHy5w7dy40NNS19OXt27efffZZT1kV
mJ9Zs2ZBaHzxxRfavy/VhHwc9dYsMFMNR4rJQNK67eOgtPCDlWjea1YlACAu
Lq569vA10DDAI5s6dWqrVq2Sk5NNjWl3wm7WCD7fsmULJN4DDzyA2Rg7duzP
P/+8cePG3bt3q0WBNdYIBgPTCIqvYcOG2G6uEcW4VlZWVqNGjT7++GNPv4yJ
lXrjGMmpU6dKnSXJHxRPDWaApy4nGAmUHRxtzBLMG/wXs1pqlWmIi969e2Mq
YN2NHj0a84zNiz/s0aMH7uKDDz6w7JUuqXqY5Kwp7dWwg5QYmOvXr8fHx7vm
9mJtY7P7+fmtX7/e+0tDPAYEBEAmW9DxULH0IFLcfuHLL79s2bIl7k5aZ0rv
gJCQEPzJkiVL1N+E+STeAWwhSDBY0SKp/P391c3ElSbF2lWM8P2lS5dKG1a3
mk5ycl2rJfz0008YcN26dfUUk5EHh8HoKcBoAToXEpY6HoHG15RqUe3atfM+
t10bOcHAtSDPzev54gQeOlSkzlh9aCg5h9RZa6usmOesSVPdZs2aaZw8QFI9
88wzkiDvyYrbtWsXRErt2rVNrQMpHDt2DCZEYGCgHsOj3MD4Hzp0KK7i5H2f
P38ea96tLwbpnZqaiknAkyrV5MAOeuWVV3wcZd8qV4MwYc+ePbhTPAi3L84k
oEtPrXJvgDTo1asX5rBTp07araOqKgYaBnJ6AGX64YcfGjI2ndjKGoHBkJiY
CKW/Zs0ayDoIgSlTpsAN8fX1jY2NVR87WGaNQLnk5+dLF4zZs2c7CRYoX5gW
2Gjbtm3z9OMi5PXXASssLJQX1rhrT+/4cN2+ffvCCoKRJkpZ+k5iThTZCHm4
ePFip7vevHmznAbAu4TpCye0Xr16UED47+DBg1m0n3iDSc6aUk0LJqgSMINt
0rt3b9ejaeVF9owZM7w/eYA0wDbR2N0Ggk0dFhYGWeG2utRXX32Fib3vvvvO
nDmjfIhdDOHjWqcdSkS6OK1atUoRIOJS4ReU13D4p4kTJ0rggUY4x/Hjx3Fp
iCNIWrdqAgPGsF2dLMnVhfB02yLZCchqmHb2cdZ0LiRoJan0u2DBArdfwyRA
UAcFBelsfOYNeDpSqmXcuHHWRIvhqXXs2FFPPxoBe/nRRx+Vo0ij+reqMc9Z
Ky4uhrrEo9R+E5SdnY2d0r17d7ehfbDM27dvr7GVjGXr1q01a9a04FX1iRMn
IEOw2WfNmqXc+IYNG1q3bu10gIxlCXEBqwwDW7hwoZ5JUDtrFpvHhvDbb7+F
h4d7csdg62Iq+vXrZ3YW0rvvvosLBQcHYyWbeiF7YqBhgAU5YcKEhx9+2OKu
xPaxRuDI9OnTB8spJydHmUxoeckjU5rQCVZaIz/88ENoaKjbzjUQRxgwHHZP
MSdSYlF00+jRo0sVTXv37pW31XfccUdqaqrb6GLcCK4Iv9LpdR68QgyyS5cu
4hLu3r3bqZWMnPGuWLFC+QTjkanGMsAPZmRkWKBBSFXFJGdNSSZVqmFjhWNt
uz2Zx3qWpjYDBw70Mta6xJHSC7tCj6/hPRKz3axZM9f+KTBxo6KiatSosXTp
UrWigbgICAiAdFKf9mOKMFGYgcTERHXEi3hD/v7+MGiVD0+fPg2B4+fnt3Ll
SrejKioqwuRDHMEgdyuOFBGXkJCgvpzyOZ6UnsAbuzlr+hcSlBE0UWxsrKu5
9fXXX0PlBQYGYs4tCFqAtIf81x9v7yVwAfr27Yu1sXr1ap1/cu3aNSl5AdLT
0w33KM1z1iBzOnTooB3vWuI43X3wwQfhm8OocPon3PszzzwDMwOWngV5Q0p3
16SkJO8lYank5+dLFBOEGK4oZRCeeOIJJXfv/PnzcM+lTgh83vXr1+t8+pXd
WcODWLx4MZ57SkqK0/tWmKzw45o3b64+gjMJLD95ueYpGBuLpNLlA+rHQMMA
D3HYsGF67HljsYk1IlGgErirVnnSLhAOEdwi9ZettEbk3BhuoFOkKMYJ7xJ/
OHfuXE+KGN/p0aOHhFu/++67nmamxKFnYdvUrl3bx9G/e86cOW4Ho+w4aDqn
pQLViY0v7X7EL1O/ZJRLwKDyFJYALY+JMjv/nVRhTHLWIFqlPgM2CNYztnxG
RsaIESM8BXpt374dG9b7/iBSglI7K9ZAIB8gJZ588kmnzAV5749/gghyCsGC
DYBp6d27t1pWKCHiy5cvV38ZDwWyF7+jNmXx47guBE5ISIhTwQfIkI8//hgX
hfiFmvPkcOHSEIMYhlMFXdyF9MXTWYnObs5aie6FhPUJYxKzBKGtmAESzx8c
HNyqVStTe2mp+e677yDDGzRooLNBTPmA21JQUPD6669LMwIfRwNorCKN1zdY
PEePHt24ceOQIUOgi+WvYKOuWbNm//79WJlGebLmOWt4oKmpqT46epZ98skn
cEawkdVmFZ4IPJeAgICsrCxr5AmWIuxSPXWwjQKmlOSSKEDaQOZgF6i7mcOA
KVMljcrurJU4agUMGjQIttm6deuUxXPp0qV+/fphcixriSjxVxhGdna22mHB
zoVKjYyMdH3pZkg+sk0wyjCAAOzWrZvaJbEAm1gjJY4mGo0bN4a+27Rpk/rz
EydOBAYGNmzYUH3yYKU1otRyjI+Pd/Ke5ED1sccec3qthj/BAj548CAUR3Jy
sugmXGLmzJmff/75of8F+zQnJwe2qJxK4aYgyjw1h8Uvw+XED0Iju24rDA9z
KwksZ8+exf92epkIWQrzye1LQOn8gtuxSd1sUhkxr8DIuXPnHn/88dDQ0LS0
tK5du2K/aPT+gKkPC7nUgKVSkTbcGkcxBgIJDPcTm3fRokVOl7t+/Tpu2cfR
40mtYaXXhuLDKp9LS6969eo5FR+T13CuexxiEHoHMrZWrVovvPACpCX+LxR0
VFSUZPtCRmnMwIULF2B1uzb2ggzE59qtotXY0FnTv5CgO/DgoKrat28/ceLE
l19+OTw8HBoH7ptGVUDDkbJynnrvGgL2OO5OrG5oK19fX8UI14gvWrt2rZjr
+C9UIVSYdFsTYPkYFYFvnrNW8l88T3R0dKlZP1jzbdq0gZqGATB58uSePXvW
r18fhhb0shkDc4tkjGJNWlnrHkZIXl4ebBgp3qgGkichIeHTTz8t6/uIKuCs
lTisVqwEyFhMzvz58+EcQdDBf3d9A2sq8BDT09Mhlh999NHU1FT8bxiKYWFh
L730ktuKB4bkI9sEowwDeCt4dsZ21CoVm1gjSlsxGGNOZt77778Pwd6pUye1
MLfSGoHwkZQEp4Q1PHesdrflEyXl3Ec3UFvw1DAYOM5YBhrPApMglYEHDhzo
6lpihqVX0auvvjpp0iQM2OkAEFJ05MiRbh1zuM+xsbEQsPiOp6sToo2pTbEh
rAoKCnJzc0+cOKEtrzCMlJQUt6KmTHz77beQSNbsiIsXL8K6g4xyPXMuLi5u
0KCB69mURIe6RpVv374dMtCpHiDmYeHChT6Opqi4L9cB4MtLliyBVQl1BvEV
ERExZswYCMZSLSsJPHBNTPOUyOYJGzprZV1IsMewRLOzs6G2jh49amWhsBKH
mhs3bhy8J9e6fNUHU501aduq0/3B4zh27FhOTs7KlSsLCwutr+ogGxAGntnJ
UK6IsQdzYsKECW+//famTZsOHz5c7mFUDWdNuHr1KhbD4sWLly1bBmu/osIO
oUwxDKxMGMPwXDSCcg3JR7YJRhkGq1evhntrQUlGNTaxRrBUevfu7RrPo3Sp
dkqXttIa+fHHH1u0aOGUsAbXBk5fjRo1MjMzrQxbxX1hAj0FNmAkL774ImYg
PDy8V69eTsmPEhjpqeuinDnoPwYnxBVTnbUyAU2ExRwTE+PNew3YGPfcc4+n
5jjGIr0JhgwZ4hpOv3///jp16ri+upLGMUrCGrawxIVC/8Jid2qPgn+S1+6J
iYkG5stA6s6cOdPHpVmwUyIbFgYGqW2Z2NBZKzFoIVmDOO/qlO1qiKnOmvRX
gv51ivi1IWI7OeWPWIZ4tcHBwW4tsbJSlZy1yoVR+cj2wXt5/vfffz///PNO
748swCbWyJUrVyIjI/HoMzIy1Ar96tWrUVFRisDB5Ih3ZqU1Am8Onpo6YQ2L
Mz09HZ4aRmtB3q6aQ4cO1a1bF+MpKChw/VfFt23QoIHre14pdb5r1y63vyyt
VL2P5iXVGel+CDVd4adtf/zxR8+ePbFZ4NGU7xewm8aMGQPr14KKT9I02VPl
Jdn12NROMVRvvfWWRE3fvHnz2rVr0JsSmAFp6efnl5KSoj5Hwo/Uc2BsTULl
nM1JdCuJbPPmzYNmP378+IABA7Rr4drTWfN+IVnG5s2bYc2OHz++OheJ2rt3
b1BQkEYnHS/BSsZOjI6O1lPYuQKBuRIWFqZR+sxUduzYAWnWvn17QxrJ0Vmr
KIzKR7YP3stz6QcKS9tKMWsfawSWRseOHWF4ZGdnqz8/ffp0kAP8D8kdk/LI
llkjSnymkrCGuUpKSsKzfuedd6zXidI2DvfoNqkNMi0tLQ2jhUfsGoFTVFTU
qlUrt0sUfi4sPbif1Tl+hhjCX3/9ZZM2Lvn5+RA4qamp5dun0i/AkJKSpXLq
1KnGjRtDibg9rJO33tj46rzd8+fPh4eHS8wzNv7Ro0cVbwguW/369YcOHaoI
AejWxMREX19f19BoL5GENQxj+vTpatGByVdHpC9fvty1fbkT9nTWSrxeSNYA
GQ4l1bBhQ+nBV23BIrx8+bJ5WkxS9rAeTG0z7SW4/WXLltWsWXPx4sXWK3Rs
8/T0dMmxNSQSmM5aRWFUPrKt8FKe45Zh/2uXhDUc+1gjmLTk5GRsxqVLlyof
wjkaNWqUz38t0m7cuAF7Q3wNy6wRjKFv376SsIafLSwsDAsLi4iI8FQAxGyk
1ABMILeaAqtIum87vXMU8vLy8IdZWVlO0hv3tXDhQji/EK3WB7cTYhIiExo1
alS+/HoYvRAynppnGYhUmdM4ZcIOzczMxA5dsWKFDOb06dOxsbHSe27evHkQ
g6+99ppS1V9u/P7775f6QhBiGRkZsNwmT55seMiKZDRgGDExMeKkYwwFBQUd
OnQICQmpU6fOwYMHIb3hSJaajq104GrZsqXZzaPLhJcLyRq2bduGBwGXuQoX
37YJxcXFoaGhFZILppNff/21TZs20dHRGlWYzOPKlStSn3/OnDmGCE/lFJrO
msUYlY9sK7yR51jPc+fOhWFgcVkY+1gjJY78i8DAQHhGknYhDe4hbeBfSKuO
nTt3PvfccyIeLbNGJGENIgKD6dKlCxZtbm6uxaGPTkApwwSCO6aOucU8pKSk
wF6CwQavPyoq6urVq3v37h0+fLjMpySs4TuRkZHqpwADafz48f7+/mPHjmVH
bFLFOHXqVNOmTUeOHFmOPZuTk4ONVlhYaMbA1Bw+fDgoKGjChAkaB32QeDNm
zGjYsCHkXkJCQqdOnT777LMLFy5069YtODi4T58+gwYNUkccQbcmJSVBXo0Y
MaJt27aw3D766CPDzXglYQ2TjFuAq5WcnAxx3b9//2+++WbXrl34/JFHHuna
tSs8ylKPMSHQpOjlvffee/78eWOH6iXeLCQLgJsM4e9al5iYAZZ9dnZ27dq1
t27dWtFjcQOGh+0G2eU2V8ICYMvBCIHVBJljyA9KlhAkQ61atSwQyEQwMB/Z
bpRbnuP7uGtoOljOJo3NLbayRrAAtm/fHhYWBp8ILkZERAQEDnTQ66+/jh0a
FxcHx02dW2eNNSL+bEhIyNChQ/UURrOGAwcOQC8//PDDo0aNwlzB/4KRs2HD
BmwciLXZs2cHBATAXsLnirhWOqzhcWNuodnxh7Gxsc2bN8c39+3bx+hHUvXA
ql63bl1gYKBryVZtJP3TghBxiDhsQwg3PRfCLj506FBRUZEiiCDxiouLjxw5
4lbp/Pzzz9ja586dM2l3KwlrWVlZGABGsn//frW/AB8TYzt79qyeAciBko+j
y0lubq4ZAy435V5IFoCxLViwABrWsm5NBAt72LBhUME2bDL11VdfBQcHZ2Rk
WFyMVFA6cd9zzz1GNfvDJLds2RK/CXvPbXl5YgYG5iPbjXLLcyniNGbMGIsT
1mxojUC8YIND2qgDDPCHn3/+udsX+mZbI3YGRhHuHcab6zb5/fff4SCr35TB
wMP+kqalePQwqzClGj1MCakaQKRMnToVgq5MHY6gj+Li4kaNGmWqTMaPZ2Zm
wg45deqUeVcxD8loqFOnjlFpwkoiXmhoaEWFmnuifAvJAg4cONC0adNVq1ZV
QyVYgUD/du7cefjw4a5NYyuQS5cuxcTEJCYmVlSIpmLJt2vXzpBiZbgRTLLE
QObk5HCRW4aB+cg2pHzy/MyZMxC2Rr0y1gmtkWpFXl5eSkpKhRy1EVKxQN2P
GDGiW7du+g+mpMexqTlKUH/vvfdeixYtPBVotT+SuWBs8c/i4uLo6GgpaYtH
YJNiNUI5FpLZFBUVtWnTZsaMGZTt1gPL7ZFHHpk2bZpNJv/PP/8cNmxYjx49
KnB9wmjPysrq0KHD5s2bvXSsMKufffZZp06d5D3d2rVrK51HUKkxMB/ZnpRD
nv/www/waCzOGKI1Un2Q+KJ33nmnogdCSMVw8+bNtLS0IUOG2KcmAKRiVFQU
9F1FD6ScKBkNhpeowq/B0ouLiwsICKhRo0bLli3hjNgkWcxWC+nixYuYJehx
mzgL1ZBz587BlLXDa81//vln+vTp2IxVIGBm586dERERtWrV8vX1bdeu3YoV
K2x1aFMdMDYf2bbYSp5XIJXdGqkySMKa3cKKCLESaJ+ffvrJPmrl8uXLldoC
uXXr1lNPPQVt/uabb5p3lRs3bpw8edJWge72WUi3b9+ujNXYqhjYCBXeVrLk
v2VZNdz2q1evHjlyBLfDV2kVhbH5yHbGPvK8Aqns1kiVoaioKD4+nt2uCSFG
AQ0+adKkPn362LDGAiGEkHJjeD4yIaRUbty4YaujaUIIIYQQYkPMyEcmhBBC
CCGEEOIN5uUjE0IIIYQQQggpN9bkIxNCCCGEEEIIKRPMRyaEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEK0+T9XwkFB
    "], {{0, 154.}, {1167., 0}}, {0, 
    255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{1167., 154.},
  PlotRange->{{0, 1167.}, {
    0, 154.}}]], \
"Input",ExpressionUUID->"a06bd9f3-67a1-44bf-8904-888e2bed1c7d"]], \
"Subsubsection",
 CellChangeTimes->{{3.545153640670162*^9, 3.5451536529068623`*^9}, {
   3.5486895262641215`*^9, 3.548689579787183*^9}, {3.550787285060895*^9, 
   3.5507873176877613`*^9}, {3.5507873622593107`*^9, 
   3.5507874498733215`*^9}, {3.5507931273800564`*^9, 3.550793293902581*^9}, {
   3.550795942883094*^9, 3.5507959452142277`*^9}, 3.5594362885952625`*^9, {
   3.5594895181381674`*^9, 3.5594895246605406`*^9}, 3.5594992621854954`*^9, {
   3.709575503291005*^9, 3.7095755131905713`*^9}, {3.7117177558758893`*^9, 
   3.711717777030099*^9}, {3.711855630387392*^9, 3.7118556482494135`*^9}, 
   3.7378073736118755`*^9, {3.738582763085204*^9, 3.7385827644852843`*^9}, {
   3.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 
   3.7467909255028553`*^9}, {3.746841618642968*^9, 3.7468416189388075`*^9}, {
   3.8312214774333854`*^9, 
   3.831221477761468*^9}},ExpressionUUID->"716837dd-0bab-48b5-ba75-\
697237480480"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
      "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
     " ", 
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"Bt", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "  ", "+", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"I", " ", 
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"sigma", "[", "1", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
              RowBox[{"At", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "3", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"\[CurlyPhi]", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], 
           ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", 
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Bmn", "[", 
              RowBox[{"ap", ",", "bt"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.5451536546269608`*^9, 3.5451537497243996`*^9}, {
   3.5451538022984066`*^9, 3.545153820336438*^9}, {3.548689591473851*^9, 
   3.548689610138919*^9}, {3.5507933017860317`*^9, 3.5507934241220293`*^9}, {
   3.5507934811092887`*^9, 3.550793483604431*^9}, {3.550795897754513*^9, 
   3.550795909852205*^9}, 3.5507959494314685`*^9, {3.5517192411368465`*^9, 
   3.551719243512982*^9}, {3.551725419411818*^9, 3.5517254247731247`*^9}, {
   3.55231622648205*^9, 3.552316228213149*^9}, {3.5594393588258696`*^9, 
   3.559439512198642*^9}, {3.5594895272826905`*^9, 3.5594895375052752`*^9}, {
   3.5594992681308355`*^9, 3.55949931174533*^9}, {3.7117177795272417`*^9, 
   3.7117178027735715`*^9}, {3.711855674636923*^9, 3.7118556941570396`*^9}, {
   3.7119036518000107`*^9, 3.7119036813607016`*^9}, {3.712095469670045*^9, 
   3.7120954747613363`*^9}, {3.7120956766308823`*^9, 
   3.7120956945709085`*^9}, {3.737163741776143*^9, 3.7371637607465363`*^9}, {
   3.737977329658123*^9, 3.737977335915481*^9}, 3.7379793918230724`*^9, {
   3.7385828352513323`*^9, 3.7385828674911757`*^9}, {3.7385834468523135`*^9, 
   3.738583447825369*^9}, {3.7385835220386143`*^9, 3.738583524872776*^9}, {
   3.738583585130223*^9, 3.7385836468607535`*^9}, {3.7385836972116337`*^9, 
   3.7385837036590023`*^9}, 3.74222001333444*^9, {3.7467918697920494`*^9, 
   3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 
   3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 
   3.7468070365364637`*^9, {3.7468336318968525`*^9, 3.746833908725961*^9}, {
   3.7468340247915945`*^9, 3.746834030822856*^9}, {3.7468383208540077`*^9, 
   3.746838321475814*^9}, 3.746838694099639*^9, {3.746842772556848*^9, 
   3.7468428925956497`*^9}, {3.746844161195377*^9, 3.7468441832212467`*^9}, {
   3.831221496075305*^9, 3.8312216376980076`*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"6d6fa75f-3fe6-4acf-a5c5-7db562817198"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}, {
   3.7467922485866156`*^9, 3.746792260986814*^9}, 3.746807037572306*^9, 
   3.746834055321657*^9, {3.7468429119830484`*^9, 3.746842915326128*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"1b3fa4a4-ab23-4b52-8a43-09fed9a85aab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox["\[CurlyPhi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Bmn", "[", 
      RowBox[{"0", ",", "1"}], "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Bmn", "[", 
      RowBox[{"0", ",", "2"}], "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Bmn", "[", 
      RowBox[{"1", ",", "2"}], "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuJ/PgxMbSxvHPcscVcC0WptMzXagTSfyrEsPuE3jlYn
DMT4gfSMFv1GEO1X+2wFiNaUVJSq7H7j+KDYfzOIPpX28xWINuWq/zKt542j
nsKm5uVA+kfF5eQjfW8cJ81LiD0NpE8Y+qmGLn/jOOHE4SWJQHqXodTTZCAt
cJU3vwlIN0VGPFkDpOe81Cu5BaQv3bRbU77qjWONfK5h56Y3jhrOGz7e3wYU
77ime3LHG8es7/E/zgHp0JmXNa8AaVcLu2cqO984Hin7Zq0LpLUOWX/XA9In
/N8uLwXS106uU6sC0pPK245XA+nF7toGNUD6Tp1LcQOQNrgZun89kOa4s0Tw
DJBmWKhfCqKdXuQvPQek0xozW24A6XOcrAtA9MsilcfvgDSP8pPnX4E0o9X1
7U673jgCAFbMt2w=
  "],
 CellLabel->
  "Out[108]=",ExpressionUUID->"eedcba5e-9d61-4981-bda5-2de05f119a28"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQtQFfUXxy8+QEF5iCXPklS0fISvsAQTRUAdURBJBWIQQY20BjOMR+UD
FRCBRMxMBNNAhFREcFATREmIQTBFnRTEQUBHkhEZddLh/5Xfv5073HuXZdm9
93L9fWZq8O5vd8/+9pzfOef3WqtlX7gH9pJIJGv74X/ufiEOwcF+3yw0xD8W
rVm7asWagOWz13wVsCIgeMqy3vjRGf+5aEkkr/5uo1AoFAqFQqFQKBQKhUKh
UCgUCoVCoVAoFAqFQqFQKBQKRRyeP39eUFAQGxsbHR2dn5//zz//sJd/8eLF
xYsXm5qaqHgUihry7NmzPXv2mJmZSaTQ09MLDg6uq6uTe8qDBw9Wrlz5/vvv
V1RUvObiUShqSGVl5bRp0/r27evs7Lx169bk5OSQkJCpU6f27v1qnrm+vn5o
aGhjYyNTHo5y586dFhYWs2bNunPnzmsuHoWibrx8+TIrK8vc3NzLy+v27dsd
jpaUlMydO7dXr1cLT7S0tIYPH+7i4jJp0qR+/foZGBhERUU9efLkdRaPQlFP
Lly4YGNj89tvv8GC5BbA7+fPn4f56OrqkujXyMgoMDDw77//puJRKOrJixcv
nj59yrFkTU1NfX29IhMTAzUXj9IlWlpa6NvRDJqbm319feFD09LSVC0LRWU8
fvw4MjLS2Ng4Oztb8Itz1LHW1tagoCDEdfHx8aptXtRHEt5cvnzZ0NCwT58+
P//8s6ploSiVf//9NzMzMywszN3d3cLCAimSjo4OUirBb8RRx27fvm1ubg4x
NmzYoFprUh9JePPs2bOsrKycnJznz5+rWhaKUsGr3717d0REBHz0tWvX3n77
bZHsmqOOIVPLy8tLSUlReW+q+khCoXSHO3fuiGfXFAqlA8j1EL4ilBX1Llzs
Gt5279695eXlokpC6Skgqqmrq0M2p2pBeh6PHj3y9fX18PDAH6LeiKO/RsT+
3nvvIaIWVRgKb6AnX3zxxejRo996663vv/+e41gVD2DUUVFR/fv3z8jIEOkW
mkpLS4u3t7e9vb2iibgCwtGuX758CZdtbm6em5vb6TU56tilS5dcXFysra0t
LS03bdqE+ITnM3QbJUiCmMff3x/m0I8Denp6VlZW06dP//rrrysqKjrtwYPA
q1evRlVDc1atWqWtrS2e0SGANDU1lUgk8fHxIt1CI0F48+2338LWxI7ACdzz
awgWEhIC5b969SpLMY46lp+f7+joWFBQgMuuW7eub9++HMdlYCB+fn76+vqG
hoaDBw82MTFBa4MGBCZpZmb25ptvDho0yMDAAH+fOXOGywV5S9IlYJulpaUH
Dx5MTExcuHAhmWgNUPmxsbFpaWkZ//Hrr79u3779s88+GzNmDClja2t74cIF
lotnZWV5eno2Nzc/e/bM3d1dS0srISFB8Edoa3+5S5YsIVKFhobCd4txF40k
PT0dSpuUlKSccZYu9Zs1NjZOmTIFfuTBgweKynDRsZs3b86cObO4uLitXeHD
w8OhJytWrOCSsqE83Ctqad++fdu2bYMwzGojWDrMYdeuXb/88svRo0elFyYo
ojuS8Aa1N3HiRCLz559/rsg6IM/FixcdHBxQDK0N2hy5vfTE1tAa4O9bt27h
bUJ/zp8/L4bkeLkIOYjkCD9ois2R2tpahK/Ozs6PHz9Wzh272h+OFBtRIiIK
udrIRcegDGvXrt24cSO5Aswf/gt6AhfPoym7d+8eEn+iaQihu3QFYSXhDhq9
adOmEZmDg4PZvR6qFK0N7BqFEajgXNkCR44cISuj0aYhEkAGJ0a3DGnVoSpE
8nnz5qHGBL+L5kHiQF1d3RMnTijtpl21a7iMBQsWIAAuKSmRPcpFxxBIo9ln
nGldXd3IkSORVPKb8NbU1ARlI5q2e/fuLp0rrCTcQaPN3a6JnEi0EfmQWEJR
fwVMHs4dxXbs2CF4u4QLRkZGIjry9fUlktvZ2YndqasZlJWVwV5cXFyQmSrt
pjzGr3Nzc9H4eHt7s3S6ctexc+fODRgwAAlydXV110RvB20Ib7sWVhLudNWu
29q7ImfPnk1mBqakpMgtU1hYiOjI3Ny8qqpKaJFfrchGJIlobfPmzURypP8N
DQ2C30jDwMslnTbJycnKvC8PuyYuEsnsH3/8oagMdx2LiYl59fU6Z2e5yWNe
Xt6cOXOcnJwCAwOPHTsmm9B1atdIZpGGI8B2dHRctGgRS6cfuyQCwsOu29qb
HVQpTnnnnXeQ43Q4iot8+eWXOOrl5YXwGP+8ffu2UFNJ0YDDTS9fvhxX3rt3
L1l/jZcrdgOoAdTU1AxvR8nbTfCwa/hfWAreLBRJrk5y1zHSt4aSSNjlunWY
bXx8vImJCcpAnTZs2NDhjux2DTcHOyVH4W4yMjIUpYSdSiIg/OwaURzaN3LW
xo0bOwhZW1trbW2NJOLo0aP455UrV+bOnSuUP0WLCu987do1/A09ISm2kZER
3e+oU6CTyEZhCEqers9vHmlxcbGBgcG7775779492aPcdQwpLUr279+ffcYL
7JHoEnzE9evXpQ+x2zXSZ+ZE9uE5jpIIAj+7bvsvogCjRo26e/eu9CGYHip8
3LhxqGeY/JYtWyIiIgQZh7p//z6kjY2NJS1JUVERCRv09PQ4jiS+trS2trq6
usIfdTND5AHiBGLXMAHuZ5GRGijS8ePHZY9y17Hff/8dKS0EYI/oYHTQZOhS
nz59Dhw4IH2Ixa6ZsAF4eHiwd95ylEQQeNv12bNnISTO0tbWPnz4sPShU6dO
6erqQovwmBcvXkSUIsgGJiQ2c3BwYEY2kVgNHjyYDL2lp6d3/xYaDNIlCwsL
ZKx//vmnMu8LBcvMzETzq6WlFRYWxmXAl4A8d9myZXi5ISEhsmrJUcegM9HR
0biIi4sL+xQvHEV2TAyhQ5zMYte4+7x587gMgXGXRBB42zWqkcz1ksgMfOOa
Pj4+Q4YMQTaBCkG1CyIqYi3kL9IDNAjGhg0bJmnf3ywxMVGQu2gqxMGNHDmS
x8RRaC/sKDIy0t/ff/HixZ/IY8mSJevXr2ciN1jlV199hTiKaAheEOkJIY2w
dOPMwo4dO1AehWWH2jnqGCR3c3OTcBgvRm5CSoI1a9ZI6zOLXUOMjz/+mBza
tWsXy/W5SyIIvO0aWQ+JW+TWPK7z119/IU4WavLD06dP/fz80IBLD3xIT6pR
Ql9EzwU1Q8YO4JK61BOLwki4yD4AnSL4nOGTJ08iG0Xgikhe9igXHWNSWlyK
/V5oiJhh0w7TnFjsuqmp6YMPPsDvvXv3VjQ21FVJBIG3XTNPBBR1bghIdnb2
mDFj8B6lf4TWMbGT2BPzejRwRkuXLkUtLV++nHstXb9+ndENAwMDMr3T2NiY
cbtOTk4L/8PLyyshIUHYOWyVlZVGRka4NctoFzt5eXkI10eMGIHQjr0kNB9u
mjwa6kq6a5HFrpFW2NjYSORlo7wlEQTedv3o0SM7OztyoqWlpahdAfDL0Kio
qKgOHhmVj7CQyIAgh9+UM9QzwsgJEya8323wiu3t7dVwcRneMpnkHB4ezjGq
uXr1KonHkOngiZjWAJdCaASjRmiNyFzUGInpcOPYkQ7tRS4PlTh79mxbe+hL
MnQuio0HwXMRXZo/f760LrHYNfIOmCp+HzhwYGFhoSCSCAJvu25uboYOkxPN
zMxkR7GFAhWOUBBZjGxGJt0biQL8nAXsGu5m7Nixo7sNIgpbW1s13KSxoaEB
D4ha+uGHH7iUR52MHz8e5RGSyQ52I0wiqSIaw/v374sg7//BxSEGGpCkpCQu
5aGEJGUIDQ1FQ4QXARc5derUDuM1ikhNTe3Tpw9O/+ijj6S/EsVi1wggBw0a
RExAuuOum5J0H952jYfF45MThw4dKt5UBzgO2IvcwQ6Y/NatW4kMcJfc+1pf
N/B28I6QA+7fv7/TwnAugYGB5LUqGpCFofXq1cvQ0LC0tFRgWaVgdIzjFn9Q
gIkTJyJTiIuLCwoK0tPT8/T05D5xoqysDGE/bmdhYSHtp1js+siRI4jAJTJd
TN2UpPvwtmu0pWiuyYl4BC7dmzyAjvn7+/v6+iqaJ7xv3z6yzlRR70oPorW1
9Un3UJQ7Q0tNTU0RPB86dKhTMXJycuBcUKss864RmUOfxV6/wPQ2f/PNNxw1
s66uLjo6GqaEBr9DbwyX282YMUPSPkFaeqhdkV1DJJgM+V12dlZ3JOk+vO2a
5D7kRHd3d5GWU508eRJtHUKdtxVAoiCAP5Rfe0Jx5swZAwMDiRCsWrVK1rpv
3rz5xhtvcOmvRuOA7FLSWV8o/D4MH/pPpnuJBDOmrGg2qeDATZDlimR6KvlR
kV0z6zc7nWmmfHjbdXl5OcIwciLaJTH6Tx4+fIjw5tNPP92lmPXr18NrSNo7
Ls6dOye4DMoBjSRU18PDY2H38PHxOXbsmOy7gL82MTGBxrL32ba1b9dDXuu6
detYFuOTLibUeUFBgTBVIA80MjNnzlSmXTc3N5M1TQjImTXdcu2a5IC92tm0
aZO6bevB264PHDhAWjY4SjGmMKHeEAfa2dmxZ83Xr1+HJ5K0DzRkZmYKLoZm
QIIr2RmSHSBdlFpaWuzDrHBkxKdbWlrKfg9RQJjNAeROOROJqqoqxCq46eTJ
k0nEIteu8/PzyZDfggUL1HCNMD+7fv78OTOIv3TpUjF2JkT1jh07ttMw7+7d
u9bW1pL2GU0//vgjv3s1NDRUVFSUCwEiXjX8CAKZFAHPsnfvXpZikJzs5jF0
6FCWzorq6morKysUmzt3rqjrDZkNDbZs2aLMSUcIqj/88EPc18bG5vLlyx32
VUCag+aReJNly5apoVG38bXra9eukW58fX19MaJfeISAgACW7jIG1LmtrS2R
X7bvggt4cUySLgihoaF8n1ssmFpCxsRSjPGP9vb2spvhMKSlpfVtR+x13PX1
9Uhg0Rzt2bNH1BvJgvYqLi4O7RuCHNQJM2XaycmJjABOnTo1NzdX3cJvBh52
jVadmZmDxEcM95SXlwdnfeXKlU5LwvBJQgSCgoJ41DOukJOTk5SUxJLFcycl
JUXJq5u5wETO7Ikq0//s5uam6LVC4V1dXVEGHu3hw4eiifwK8ikrJewapAhU
QnFxMfzFkCFDiI45OzsfOnRIacPQvOmqXcMhpqenk+9N40QxhrdwTQcHh23b
tnFxvqh5Hx8fIv+iRYvUMAZWB/BaV69ejSry9PRkqSIcQgH2YsgrBwwYoKen
J2pPOKG0tNTQ0FDli+sF3AdJaXRp30IYWkZGBukvnTRpkhifj0fygjgWzprj
siPpMcQZM2Yoc9uunkViYqKWlhb0U3omldxiiHunT58ud/LevXv38N5R4Lvv
vlPCbHx4EET7Kt/kqjv7FqoKyDx58mQiM5p0FrtG7IGcl0y0c3FxEeM7EfAR
UVFR2tra3PcXlZ7Wa2NjI+q0xh5NYWHhwIEDEdayz/hFEjFq1ChjY2PZMQ40
CPDjMGoE80pYQYw3iwCYhGGq3WwWrcq4ceOIjkE/VShJp8DVFhQUHDt2DDkp
Ga6StE9FOHz4cFFR0YX/gDKgzdy6dSsMmRQzMzPbt28fx3ouLy/38vIaMWKE
tbU1QuuSkhJcMDk5uUMnKsz50qVLCQkJTA8YNDAsLKyyslJRKI7fb9y4gVAw
PDycWWGEBiEkJOTUqVMI2+i2wx2or68fPXo0EqhOv5KDWtXX13dycpJuuvEu
ENchAt++fbtykh1mz/+4uDgl3K4DN2/ehP4j6Th48OAnn3zCfDsDDePmzZuP
Hz9+7tw5KC33znCOttAdmDSKIzo6OsOGDUOzmZWVxbGhRpCG1wEt8vPzIz4U
VYHoGgqDdAlKIl04Ozub2eGfWX0vaZ9+j3BC7vWZefUoT/pmpU/ELXiv7NNU
8Eb8/f0l3Baqnz59GtEvahinrFu3ztHREckX1FKM3WUVUVtbO3z4cLzKsrIy
pd2UIL3HAgNMW1rHAMfF1F2yBXUGwXxMTAxsDa0Hk/Di6VasWIHaQEhDF2io
BLLDntztR2TBSywtLf3pp5+SkpIQArFn5WKQk5MDw1Hmd0nEQJNsgcx2NjEx
kf6sGx4QQTKeZfHixbTXWiVAhcaPHw8fIeoiLEGA5q9cuRLmwD5BTv3RGFtA
6zpnzhzI7O3tLZ3korEiX2fguASYIjhkmiiCyYiICDXfM6qmpgapH4LV+vp6
VcvCH02yBSS2yMXQ0qampkr/TjJi5BRCbWNI4UFdXd2YdsTet6o7oM1JSEiA
Com0nkhpaJIt7Ny5Ew3R4MGDO6xcI/thqnwskoKUWVtbm9mDXQ1BmwM9mTJl
ikiL+pWGxtgCEofQ0FCJzE4LzGd/SUKB7Km6ulpt59ZqNggO58+fb21trZ5f
PiIfVRw4cKBy9u0UD02yBWaWyOzZs6WXbDx58mTWrFnMWGRRUZGbmxvLygKK
qFRVVcGuAwIC1HCUH7HrkCFDQkJCekqHkiI0zBYyMzN1dHQgufRIN9m3TU9P
7/Tp03jeqKgofmuvKEKRn5+PFC8lJUWt3sL9+/cdHBw8PDx69NgWgybZwsOH
D+3t7U1NTcmAOwKM1NTUyZMnk4/IlJSU1NfXu7q6lpeXq1rS1xoo0v79+62s
rGDgqpbl/7S0tPj4+MyYMUOd+/S6hIbZwq1btxB7QGf8/PymTZuGPAIZxIkT
JxBfTZgwwc7OLiYmRs0TitcBsjTP1tZWHT5FijQTWae7u3tP6UriiObZQm1t
bWFhoXTbiwYZ2dONGzfUP+p4fWhsbFSHHT+gElCYnp5TK4LaAoVCoVAoFAqF
QqFQKBQKhUKhUCgUCoVCoVAoFApFzfkfk+rZjA==
    "], {{0, 71.}, {328., 0}}, {0, 
    255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{328., 71.},
  PlotRange->{{0, 328.}, {
    0, 71.}}]], \
"Input",ExpressionUUID->"1f239e8b-77d6-44a4-9a37-2a4526a87296"]], "Subsection",\

 CellChangeTimes->{{3.4409027728125*^9, 3.44090277759375*^9}, {
   3.440902810171875*^9, 3.440902916953125*^9}, {3.44244004875*^9, 
   3.44244009975*^9}, {3.4429691378125*^9, 3.442969168609375*^9}, {
   3.443708024953125*^9, 3.44370804159375*^9}, {3.536754825460047*^9, 
   3.5367550087245293`*^9}, {3.5451486439623666`*^9, 
   3.5451486519678245`*^9}, {3.548688769506838*^9, 3.5486888065069537`*^9}, {
   3.548688855820774*^9, 3.5486888860005007`*^9}, {3.5507857157431355`*^9, 
   3.55078577649561*^9}, {3.5507950978337603`*^9, 3.550795109476426*^9}, 
   3.559436218390247*^9, {3.5594988398383384`*^9, 3.5594988412624197`*^9}, {
   3.656720940415642*^9, 3.6567209412857*^9}, {3.6750032306542063`*^9, 
   3.675003231207218*^9}, {3.711717036931768*^9, 3.711717043384137*^9}, {
   3.7117170774990883`*^9, 3.7117170802582464`*^9}, {3.711717111392027*^9, 
   3.7117171461800165`*^9}, {3.7117174710806*^9, 3.711717471329614*^9}, {
   3.711854506059084*^9, 3.7118545120154247`*^9}, {3.711903325602353*^9, 
   3.711903326224389*^9}, {3.71209560910502*^9, 3.71209560910602*^9}, {
   3.737289925753502*^9, 3.73728992712158*^9}, {3.737807642399249*^9, 
   3.737807643374305*^9}, {3.7385814169802113`*^9, 3.738581418650307*^9}, {
   3.7467907692860627`*^9, 3.7467907703835845`*^9}, {3.7468323812412453`*^9, 
   3.7468323814975595`*^9}, {3.746843004040305*^9, 3.7468430062071605`*^9}, {
   3.8312216782548738`*^9, 
   3.8312216785748367`*^9}},ExpressionUUID->"92db7332-c5ca-4129-9771-\
e1ad4f459d98"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"At", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"sigma", "[", "1", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "aa", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4409029566875*^9, 3.4409030128125*^9}, {
   3.440903077125*^9, 3.440903094765625*^9}, {3.440903156609375*^9, 
   3.4409031876875*^9}, {3.4409974896316195`*^9, 3.4409974934284945`*^9}, {
   3.4410603871875*^9, 3.441060394875*^9}, {3.441060997*^9, 
   3.441061003453125*^9}, {3.442440106640625*^9, 3.442440142109375*^9}, {
   3.442456105734375*^9, 3.442456108171875*^9}, {3.44245843034375*^9, 
   3.4424584311875*^9}, {3.4425045583125*^9, 3.442504558453125*^9}, {
   3.44250978125*^9, 3.442509781921875*^9}, {3.442511222109375*^9, 
   3.4425112223125*^9}, {3.442671207703125*^9, 3.442671226921875*^9}, {
   3.442716458734375*^9, 3.442716501453125*^9}, {3.4427167659375*^9, 
   3.4427167681875*^9}, {3.4427168285*^9, 3.442716831703125*^9}, 
   3.442963727140625*^9, {3.44296778709375*^9, 3.442967801515625*^9}, 
   3.44296786928125*^9, 3.44296791190625*^9, {3.44337453471875*^9, 
   3.443374535359375*^9}, 3.443397844734375*^9, {3.443708071921875*^9, 
   3.44370808871875*^9}, {3.506778268335153*^9, 3.5067782693842134`*^9}, {
   3.5067791460963583`*^9, 3.506779148675506*^9}, {3.5206470793953767`*^9, 
   3.520647081443494*^9}, {3.5367550519530015`*^9, 3.536755388956277*^9}, {
   3.5367556803421416`*^9, 3.536755681403202*^9}, {3.5367561000631485`*^9, 
   3.5367561435796375`*^9}, {3.5367565949394536`*^9, 
   3.5367565968755646`*^9}, {3.5451486580581727`*^9, 3.545148738990802*^9}, {
   3.5451488141070986`*^9, 3.545148888144333*^9}, {3.5486889386755133`*^9, 
   3.5486889809849334`*^9}, {3.5507951332147837`*^9, 
   3.5507951401591806`*^9}, {3.5517190796328115`*^9, 
   3.5517190822599616`*^9}, {3.5517253676208563`*^9, 
   3.5517253699409885`*^9}, {3.552315908057837*^9, 3.5523159098339386`*^9}, {
   3.5594367136555743`*^9, 3.5594368087460136`*^9}, {3.5594988442295895`*^9, 
   3.559498845916686*^9}, {3.656720957837866*^9, 3.6567209581638837`*^9}, {
   3.675003233844677*^9, 3.6750032345775423`*^9}, {3.7117171399576607`*^9, 
   3.71171716127888*^9}, {3.7117174931208606`*^9, 3.7117174939219065`*^9}, {
   3.711854517913762*^9, 3.7118545309225063`*^9}, {3.711903330225618*^9, 
   3.711903330575638*^9}, 3.7120956100350733`*^9, {3.73716040537171*^9, 
   3.7371604164821353`*^9}, {3.7371604653306093`*^9, 
   3.7371604863951163`*^9}, {3.7371658278287888`*^9, 3.737165828234808*^9}, {
   3.7372898882003536`*^9, 3.7372899191761255`*^9}, {3.737807817687275*^9, 
   3.737807911420636*^9}, 3.7379793842276382`*^9, {3.738581430790002*^9, 
   3.738581448455012*^9}, {3.746790941763169*^9, 3.7467909620381284`*^9}, {
   3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 
   3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 
   3.7468069922880526`*^9, {3.7468325235438285`*^9, 3.7468325738800564`*^9}, {
   3.746841941956887*^9, 3.7468419433321996`*^9}, 3.7468431477765765`*^9, 
   3.7468431873983917`*^9, {3.746843257788223*^9, 3.7468432613306885`*^9}, {
   3.7468441989100027`*^9, 3.74684420008457*^9}, {3.8312216889538045`*^9, 
   3.831221693544794*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"638721b4-6fbd-492c-8dd0-76cb9c30574d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"At", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
   3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 
   3.746807004048191*^9}, 3.746832586396632*^9, 3.746843148945166*^9},
 CellLabel->
  "In[110]:=",ExpressionUUID->"1b383dc5-302b-4a04-a227-602e0eb79eb6"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuKClxxMbSxvHOeYeyqBaMGcWRrtQFop50QWn/Abx/g8
IzF+IJ0naNQIomcwv1gBok+HK0lVdr9xlCkW3AGizxX9egWiX4k3fJnW88bx
X83m5uVA+nnFleQjfW8cW+Ylxp4G0os2BqiGLn/j+O3qkSWJQNqhQvppMpD+
dIU/vwlIr/oR+WQNkD61Rb/kFoh/02FN+ao3jvnz8ww7N71xlNi48eP9bW8c
/3Tc0D25441jXVLij3NA2lDyquYVIK1m4fBMZecbx2VlP6x1gfQuRtvvekB6
8/kPy0uB9NuTG9SqgHTW947j1UC6SEXXoAZIvzvoWtwApE/5he9fD6R5Pi0V
PAOkA04YlILoffyFS88BaY5nuS03gHTcSrYFIJqhWPXxOyAtcOXp869A+s3O
G9uddr1xBACtrbws
  "],
 CellLabel->
  "Out[110]=",ExpressionUUID->"548a59dc-cf72-4741-901a-c581dad3ae83"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", 
  RowBox[{"At", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, {
   3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 
   3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}, {
   3.7468326750358877`*^9, 3.746832703754118*^9}, 3.7468431493431425`*^9},
 CellLabel->
  "In[111]:=",ExpressionUUID->"04ec7bc6-ffe8-4bad-9949-787854e3b8ad"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuINbzmZ2ljeOFrd81QC0QF8szXagbRvy6ksPuE3jqam
JmL8QFqlxKQRRL+48HIFiJ7gqyxV2f3GMWSS0A4QfUjh9ysQvedyw5dpPW8c
//dsaV4OpNV/Xk0+0vfGUVMuKfY0kO4yDFINXf7G8c26o0sSgfTh1TJPk4H0
hysC+U1AOswl+skaIH3MxKDkFpCec9NxTfmqN44J8/MNOze9cexg2vzx/rY3
jp0ct3VP7njj6LY36cc5IK0x85rmFSDtt8PxmcrON45rvv201gXSAsZ23/WA
dIz/p+WlQPrOyU1qVUA66nvX8WogXbFAz6AGSGcIuxc3AOmSYxH71wPpHXLL
Bc8A6T9qRqUgepdD0dJzQNpNuaDlBpDud+FYAKLPFKk9fgekv8Q9e/4VSEvt
urndadcbRwDnRbm1
  "],
 CellLabel->
  "Out[111]=",ExpressionUUID->"0b2189f1-d12e-47c2-a61b-0f6395e67f47"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQtwTdf+x49oG0p6GxFKIqrq3QTVkiIhkkiCKpp6RFP1SLxKqCLRoKpK
uYqKqHhFPRLPIi4d71AXbUcpaRlUmTZpDWFuGb2jd3I//7P+3XPueeyzc87e
J6e6vjPMyTn7sfZav/Vd399v/dbaDYak9Un1MZlME6rwX5/Bk6PefHNwxsuP
88crYyeMHD42ZVjC2LdShqe8GT6kMl++xL/8SibT/30uk5CQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkHAbN2/e3LRp06xZs5YuXfrVV1/9+9//Vj/+1q1bR48evX//vgfK
9t133+Xk5MycOTM/P//77793evyFCxeKioo8UDAJCYk/KYqLi0eMGOHr62uy
wFNPPbVy5cp79+7ZPQViDA8PT05Ovn37tqFlO3bsWMeOHS0LVqlSpbi4OL7/
z3/+Y3s8PLxq1aoGDRrAk3YPkJCQ+Ivj999/X7t2bZ06dWrUqDFkyJCsrKzs
7OyUlBRIT5BMkyZN1q9f/9tvvymnnD9/fuTIkY899ti0adMcsaIuKC0tTUtL
e/jhh5s3bz558uQVK1bMmTOnd+/e3JqC+fj49OzZE/pVjofxPvvss06dOgUF
Be3evdu4gklISPx5cefOnbfeeqt27drz5s379ddfLX+C6D755JNGjRoJ9kMK
tmnTBpXVuHFj5BZEtHfvXkPVFI5qREREq1atoDKrG5WUlEyaNMnPz0+ULSAg
ICoqqnPnzoGBgZBhv379tDjCEhISXo6LFy9COyEhIV988YVe14RM3nvvvdjY
WBjG0TF3797FWwwLC6tcubIgmaZNm86fP9+KJHUHSi8+Pj49PV3lRteuXRs3
bhxKVRQMWcizIPOkb+udoF1oVvyLii6IFwEPxW6F8KWlh2Uobt68ST9CYzRr
1gxHac2aNZ65rxbk5ubCPI8//vjnn3+u42WpW42zEhAg9FjeUN7XX3/dsmXL
0NDQS5culbds3FHjkdevX+f6TmdhJCoE0N2hQ4diYmLwHVDmDz30UJMmTebM
mfOvf/1Lx7tgmYMGDfL398/Ly1M5DKMaPXr0o48+unDhwgofHynA7Nmza9So
kZiYyIf169dv3Ljxww8/TE5ODg4O5oNnSggJ4FJNnTq1atWq1AyfPXBTjaBZ
V6xYcfDgwQpvrHJh7ty5KDEa8fz58xVdFokKAIPRu+++2759+/379wthwwj1
4osvYhXQ4IkTJ/S6ESMsqgBSpZuoHHb58mUkDXefMWNGhXclCkAxTDbAc5k8
ebL2cV8XQHfVqlV76qmnfvjhB0/e94FESUnJ8uXLv/nmm4ouiETFYPPmzS+8
8MKVK1csv7x161ZCQgIdHF/gxx9/1OVGiJatW7fu2rVLXfbDvXv27MF7unPn
ji73dQfwHoNCzZo1AwMDBePVqVOnX79+OsaytJcEBU4Bunfv7mG+lZB4wAC3
9OzZs0uXLseOHbP6acuWLb6+vj4+PkuWLKmQsnkDRIA9IyMDNoauPRbQswW3
7t27N7wHD1e4DJaQ8AwY4nEPcRX1vWxxcXHz5s3pTY0bN7bSdefPn69VqxY/
vf7665bf0/1xEE6dOqVvSdwEVHDgwIH8/Hx9OcGS97Qcb1zlXLt2jTZ69NFH
vSH76/79+zxmmzZt6tev36pVq3/84x+SiiV0B17noEGDEhMT+aDvlW/fvh0T
EwO54ereuHHD8iclzvbyyy9bnbVz507YEo9V38K4DEiJbhgWFvbll1/qe+Xy
8l6ZYZUDq1evXv3JJ5+0ikh4HijPGTNmJCcnM1D+8ssvzz77bEhIyLffflux
pdKI06dPJyQkMIKEhoZC1xVdHAmH+PXXX1999dWIiAi94mxWKC0tLSws5H+r
7//5z3/+7W9/g/cmTpxo9RNsAM9ozDyHq9PS0lq0aEHveOeddxxl0Z84cSI+
Ph6DrFev3syZM7WHsCjMypUrOWvPnj0aT9EOhfcQcghg9OTSpUuPHj2qEqIs
V+VoL4YI7nXt2jU3NzcyMpJu26xZs/T0dKOXYtli3bp1DIU3b94sMyfYtGvX
rkqVKtu3b9fl4j/88AOmUkUbHn/8cYaYF198cfHixT///LPTi1+4cAHS++yz
z3766SdqD2O7evWqC4VkaKtbt27VqlWdlhB9jmVGRUUNHz5869athi4heZCA
QzFt2jS8Cd09XHXQ0SAfOpq/vz8EaLdgkydPxnLOnTunch3oa8yYMdAd7D1y
5MhHHnlk06ZNtoft3bsX2Xn48GEuC80+/PDD6nO+lkAI1alTB8s3wtUS9fDK
K6/07t27W7du08xoYoZKMonGytEO+osI7j322GN0c5FydvLkSXofHdl2zLIC
EhF+4FxaMzAwkOoKDg7GqPifz3zD9/wKnaLf1C9VXFxMSx05ckT8efHiRRie
8dGukbgADAYZBrfD8y1btlQm0CF8TGLjxo2b/gDHIDsHDhxYs2ZNMcM+bNgw
iufoygxVmKJIjhLFDggIOHv2rAuFhGO3bdu2aNEiTBpmU0q4evXqTf+LtWvX
Mm5SsT4+PiKz+uDBg25Uz18FCAwMMjs728PxEwxDrAOaMGGCI21D64eHh3fu
3Pn69euOrsMY17dvXzQJzlGfPn0qVaqEtVgdwygcHR0tOg6PmZmZyX0ZH7Wk
reKMY0twgkFZ+mI+lw5SUFCgfIlaaNOmDe2yY8cORydqqRztuHbtmmiOfv36
KSxHu+AI0N8/+eQT9dPv3LkDmaxfv37ZsmVIRBhP4RP4cPr06Tk5OXl5eYwg
TiduSkpK6PKKSfDZ19eXi6gQjssQrj2FRFmpxA2gSghHxGSgcUzObmcpKipC
d4llYmvWrKHeUKpCtboMroac474oT5Up/t9//507VqtWjSNr1KjhVemXXghE
OJo/Li5O3/xhp4BDkpKSaCN0jrobhTXSmkggu+EvDHLAgAEbNmwoM+cE0t3g
CkUqCEBuUCvcIq5Av8OH4tZIRKdUT+9jwK1Vq5blAnDdgSSwnadAeKBdn3nm
GTjQ0YnqlVMu7N+/n0shzyzXbXHZtLQ06gqdU66r4ZPignEiOu348eMul4oC
ZGRkcJ3+/fsbsSQBQQufcH0tqdqMgF26dOFgKgoatDUeRC+DF2VmFBDpqSh5
N+UEfopgs+eee84qPG4F7HzcuHFirHn++ed1GQ0fSAiPjxa3VBqeuS9dFVkO
9TmdRsGEevXqhaOBidr+Cu9t3rxZ6JMlS5ZUrlw5IiLC6pr0FwZoJTjz448/
4kLSK3fu3Om0qFidn5/fG2+84Zlt1iwB/zzxxBMPPfTQqlWrHB2jXjnaIdaM
0F/i4+Mtw55UHVra7sSTOhh6xLYhlM2d1QqMj1CNXQ2vC1BQ2nmvzKzD27Zt
K463G05RLovo4tndjB2J2K+gsqFDhzo1QkW+etuKG68CGoamwdSNXmdtCZry
448/ZgjTvhhh9+7dtCMOl0rMFtGIi0EHcbqw69ChQ9hGSEiI020r0MAxMTGI
vdOnT2spp75QHM/U1FSVw7RUjlNwLvxpq4HRDLjbIiZQrgsePXpU4T2Vhf9O
IaJkXErflbkKyst74hSxG8DTTz/93Xff2R6gBFKoUjfTv2kXoRsZ0LWEo8+d
Owffil2qli9f7s6tH1SgxkV4X0VO6A5MIjc3FxkD9Wl3zW7evBkeHo59qnhM
hYWF9A76iNNsh3nz5mEYuPZOF2vs27cPhsQTN26OjErIycmJjo7GVbeiayXv
UV1raakcpxD3stXAX375JVem0y1btkz5EhE4a9YsRoQePXpMmTLF7josp7yH
X48H3b17d66DHToKsyDUfX19cfZLSkpcfjoVuMB7NNnbb78tNJjd4QbPomXL
lvSsdevWlZklq2tTumXmqeeGDRuK4J6WSAsyW+xPhZuwdu1a1276YOPKlStP
m+GxlZj067y8PNpxy5Ytln1827ZtGRkZ6ieKFItx48Y52rdERDYGDhz422+/
8efly5fthoPE3AdH4miry0JOf/311x955JH8/HzNj1hu0J3p1JSnY8eOVu65
ovdSUlJUruC0crTg0qVLT5hh5ZMuWLAACV2vXj0rYcPgQqno2oLZDh8+bHVB
dd7DK+deQpYkJiY6ysHmcdLT0zlswIABBu034gLvlZmXgYtFhZxruwpp8+bN
cHXTpk1FVlhWVhbE7lrTUCQxmYvqdhqvwxIY02kvjq9du7ZcF2wXS5cuZRyH
KDy2gw1jd6tWrQ4cOGD5JfYABc2cOVP9XJHp16xZM7tBfsbTxo0bI1c+/fRT
/qTFERJ2FQKmyJHqk3cCRUVFuDNGJ/GK5DRIgN5h1TVwrv39/dXjewLqlaMF
YtKwSZMmlgmcpaWlHTp0oBPhtdl2W0aQoUOHCtnTu3dvK4dOhffu378/bNgw
5UQV1Y0IFLGLjz76yLXncgrXeE9EHcUjpKamWobd+DxixAi+Hzt2LJVGHfKM
VjavEeUN7qEzRVBCHF+BCx69Flhpz549GW1hP8/cEQcKbcl4tOcP7N69e8eO
HYsXL8bDcqrJRaAJZrOb1yFmD8PCwuA6rOX999+fOnWq3RH24MGDuK7169d3
GtwT4wK1ZGgiKIXEVRw/fryVVfMU8+fPp4Fat27t1MVTrxwtQGpGRkZC8pbi
HwccRaeSJ8MoI95JAWda1acK7wk3UPhiq1evVikVJ9atW5fr2GoqveAa79Fq
kydPFgyDVVu6sfxEa9Jwy5Yt4/PcuXNHjRrlWpSPs3r06CGCe7SF+sFirlCI
PTqUCzv+/RVAtQQHB9Piuq+6sgtYTmR+2gWGTTdRvwLNOmTIEA7G3mwJTbgD
cBRjHH0kLi7u4sWLtheBTMSWaFazlrbgOq+88gpHzp492+i0RhgDJzc7O9vy
uWiXkJAQnKlDhw45vYJ65WgEPYs6zM3NLTNXVEFBQUBAQPv27VXkLroaRSpa
0GreQYX3lEXZaFT1LcjEthWhoaEGBffKXOU9sGLFCpEnbOs7nD17FieXkahr
1679+vVzOZ+EMUi85sNpP6XRGaZF4hDujIcXIPyJIASSlV+jEWKDylmzZqGl
+/fv388eBgwYkJ6efu3aNY7/5ZdfcG8dkZ7JvDHj5cuXnd73ww8/5GAcH9sY
ON8kJyfXrl27T58+4eHhjuSBst+I08w9HEZMl063bds2jXWyfv166KtatWpo
JLoqytaRB8et0bqWhYQZXnrppejo6AULFqxbty4tLQ1Tb9u2rfbsFJXK0Qge
gTIHBQXRfLGxsfj4aGb11EpGTzGzCWlYLURV4T2FauBVu/OhAkrMFko3LhTj
Mu8pWhd88MEHVuaEI0z7njlzxp28StSCCO49++yzKotcbty4gcEgnsXLNQxa
avoAQIkbxMTElGsDOg4WXUOFxBQ4Wi/mMuhZjK24qHYVCAbGOEt3U+n4SnDP
6Wpxkc5ao0YNTNdpwRiXGdltayAhIcFuoinDAcRiNYLTtY8cOTJnzpwxY8Zk
ZWXxa7kyBtUrRzsgOjosbKDFNcO/E7ONMMDWrVstf1LhvcLCQjHniCFZjnfc
esaMGampqSJKyYPQWIwjRqyJVuAy7ylPAUaMGKF7eqeyihMMHjzY9vp0RjT2
hAkTcAp4hKSkJOxHblmjArqYWCsxbNgw7e3F0BwZGSkaAg9FrJBiyBbfIHLo
+y//gYEDBy5atEjfNSBQEF6VO/n/YgBt1KiR07wCxBtPZLtxli3onkowuXr1
6mFhYQ0aNFBeQ+MocKd72Nn9ynEBuJ88r2h9aszyJxXeU+YorSJjq1evRrRA
Jrj2sC7GSTVmZGQYGp93mfeoZ7Glhsm8sk93RaoE90xmP7f+/wKZLbzaSpUq
cRg15mYUmobgKRCWLd0Gzl1ERIS+mkcXQEdQlsk8T6dxgDh37hx+H6cwvvNE
Sl/mUtOmTcPsqX88X0OHGxiGFtfue6IAt2zZgicuZtPoPiII9uabb6p7H0pm
iNPFlTw+/inP3q1bNySi8vichXSh49PrrXRdcXExla/7yvHyVo4uKC0tfeGF
F0z2smRVeA/7wRfgJxx5y+oVS2O44LJly3D5YRUGCKOTDVzmPWWBm8k8K617
OZXgHhXoKCOFm1IMLJz6Z7TNy8tzWXbCe8iV0NDQFm7jmWeeoeOov+CmQsAw
zQNSpRrTA6iT1q1bC0O1TfZDb4ugmXoUwn1wcYoByWRnZ2s5/tKlS8IlnzJl
CvZAQ2DbHTp0EFFHFcCKOJsmc26zirsHyy1ZsgRHDGVrl0gLCgrQYHgilr8u
XboUQ9V9f/vyVo4uoN8hEkTfnz59uuWop8J7CxcuVOjCUstxOiIqPT09LS0N
FvXM8lKXee/YsWPiAU3m7GXdeU8sw+HiOFbqm+Fwa7Hq02ROX/Hk2qs/F+Cu
J598EidCPYtAAMtMTU2lSjnF0ZZH9DWqXX2/CPdB67dv396k+WVAIp0JT3zB
ggWjR4+GoPr27atlZlBsQmIyL5RQsWdcYKh+3rx5jtQjhUQDUwZlaTB9OSYm
Rsu64PKivJWjC5T5cZN5fwlLEnPEewxAStaf7XSA5+Ey7+3bt09sF2Bybxrd
LsQWPeLio0aNcqriGPVEsIVOjbVXeK26A5TGHffgqLrENJxtTMYudu3ahUlQ
nyrrXoXnonGlv8vAqezUqRONq31rYqiJjgnpzZ49W/s2aHCdULDqSd0rV66M
j49XH4spACJZmUbZsGEDfrER23i6UDm6AC9exHitYqGOeE/oUhGz0ms/PXfg
Mu+tW7dOLFeha2AJ+paKvt+9e3eTOcVRZBapgxZ/6623BE8a7XYZh/379ysh
UzcxcuRIW/bDDgMDA7XMt0Ke9FOuo74WAN1I6/v6+orlEgYBYxD71buzIEsL
0C0ipDxkyBBHYwcF+Oijj5xWIKfjtQkNhgOCKBJrNnWHxyrHCvfu3RMbtkAC
lsnnjnhP2Z+qV69e3vAyO5d5TxG6/v7+uu9RduXKlQYNGpjMqT5aMgoA1qiU
50+6Qo2nxnoTExNfdg/JycmYma1IE4sxMdSNGzeql+TEiRPCKlQWGHL9adOm
cYyfn5/tOk0dQTeJjo72QNdW9N6gQYPcz0/Iy8sTq4YLCws7d+5sxOaZZR6s
HFvQ60UWX0REhJK3Y5f30MZieRfd2WmmumfgGu9hIf379xc8ExUVpbuAV4J7
GrcttUx6cZoN/peFmPtDQqtvoqssc1ZPeKNHC01Yr149LenHLgPrEok0uodT
rKDk+eiSn3Dq1Km4uDjoDkayCv7rCI9Vji14IgxJ9NNJkyaJGrPlPb7PzMz0
8fFhwF20aJGXxKBc4z1lmxQtO1GXF5bvkdeYGahYrMkch3cth7OkpOT06dOn
9AAt7rFV/9oh0ned7tBFycW+xOo1+f333wtN3r17d0M9F7HhEjd6//33De01
SuwdX8z95DGqTrwtArFn3AIij1WOXXDHDRs2BAYGMkoOGzaMwljxHt+MGTOG
obZ69eorV670MDOrwDXe+/jjj3kWkznDQX0PZBdw9+7dbt26mTSsX1aAByf6
oMmc5OwC52CZYuM+vTBlypRyP7nBEHuAULa5c+eqHKZICPwXFSWPH/ewGUbv
4yf2iBMrvg29Eb146tSpwoVxPyuAYbRr167p6el4zcZtceCxylEBI2Bqamq1
atVgEqhehP3hE2RzrVq1fH19GU2c7r0s3tcZGxvbqlWroKAgQyutzCXeQzaI
fRX8/PyM2KicgRKlYTK/JkPLhrdiRyPBNjxLYWGhCzelknft2pWdnb1ED+Tm
5npsdzvtUDxT9ViQMkWokpaJwOvZs6fJ3rtxdYd42a7Rs8YCOTk5cAjmreXV
geq4fv06/InANjST05OVo47S0tLt27cPGTJEKCLobvz48Xv37tW+eOebb76h
71BjJvOCF0PFYXl5DzGWkpJiMqdqT58+3YiyiSWHJvM7MrQE9yi2eASK9M47
73iPlvY2KHm5ffv2VZHEyrsVVA7DnvFcGOINnckVECbq7+/vgV3fhe0FBwc7
3a7KKRgOnnvuOXqx03xpd+DJytECN/eZF3tZoBiNTvsvF+8h/seOHYsvD8Pw
wYioDr4G3CXEm9XOfnZx4MABkZxPqUaPHu3mtvYPPLKysqgop6ngHEYTd+7c
2e5g/dNPP9GjxcDngdfu5Ofn0xGM23LcEkVFRYGBgVo2yHIKsd2c3YQiHeHJ
ytECS95z4b1CYn97vGMawojiKTh8+LDYXkB98g464okQYCbzhhszZswwaNUw
HU1MeTt9ocatW7dgSJE7jc6fOXOmJD2nELtJMFKo70+Ik960adOAgADb7b8g
THQgpIez7IEKVzLYrdYFGAT8i7Zt2+qSkkodNm/e3NBlsx6uHC1QMjGgL0fb
yKtg+fLlVL7t3vu6gCr66quv9u/fv3btWrFQXSApKQnJ97kFOGbVqlXp6ekt
WrQQx0RERGjMEhFLIzt16tSoUSPU/ogRIxD83HHfvn1WE0/8iVtBl9y6devQ
oUNFfIBRDDlx5MiRz/8Xe/bsycnJee2118Q0BOolNjbWGzLA/xQoLi6mKbFM
7FP9SBxYBu6uXbtaZuOfOXMmMjISD/fvf/+7ZyaslXeCL1iwwAO3w2jxGpyG
QLUAe0bvue8vq0Bj5cA/AwcOFN0wKirq5MmTlI1+rYu/JsiEC6KacBNE5F/h
CngMS6MXYzlOda8yn56WlmZEtIq2CA4O1j41CXXzOOPHj2f01zhXjp+emJiI
tFi2bBkd5N69e5MmTRJJFNHR0VYVfvnyZfFmcI2goSG9du3aZWZmfv31116S
EfSngGJaTl+vU2ZeiogDhTjklIkTJ8bExGAJ9CCnby7TEVevXn366aeNyI13
hM2bN+PROA0FOAVDgxGprZZwWjk0N5TIMDd48GCxiGnHjh2hoaGMaJylcUWA
OpQ9SC27J5pN7HyuQMvmyWLbfI3rKL0QOAsJCQmUH2GmdC5kQ7NmzYwjcwmN
EG/o07hDLy31xRdf0I7Z2dn4Am5SgQvYtWtX1apV4+Li9N3TTwXi9eJuMq14
L63RL29Srxzabt68eXTDvn37Kmk5MOHw4cPphmFhYe7PWesLEdwLDAzctGkT
njtaC6VENTraFsOrIF6YQsV269bNsjkUMtc9z1miXMDaW7duTb82dBMVXSDe
UeVhm8GAJ0yYgFyZM2eOy66EyMVyuq29O3BaOWK59xNPPGGZNa28Gad///7e
llovgnuIbQRSQUEBVcc4i4KqW7eu96/AopLFIlCrhdinTp2ir0Hm2vfHkDAC
Yhmaj4/P1KlTvTxEAHs0bNgQF8mgxa2OgPCoWbMmrq6WNCq7+PTTT5Eu27dv
17dgllCvHCSHSP5/9dVXLac8EH5Gv6LRNSgRGDx3S6UtdsBOSkrykokbu1DW
yYaEhFit2RS7Sbdv396ImRqJcgFX7hkzXH7vqgeALS1atAibnzt3rof5mT44
atQoXEjXkoHRVBMnTgwKCrL7cjdd4LRyjh8/DvFywJo1ayy/F5uyGvqKRtcg
/EEowmomXUwQa9n5vwJx9+7d+Ph4k80L+5SX6r7xxhsyuOcNyMnJwaGYP3++
10o+OBlmRnR5ZgNeKxQVFTF2uxZXvH37dkREhKPsR13gtHIWL16MqEO1WgXH
xH5Q3pPvp0AJ7ln5g/A2ZGj1KiJvw40bN0SOn9XuEGJlqBKLQPJ52HORsIJ4
QwTDqKGJFi5DbFns5+fn9A1oxhUgKyurWrVq+fn55T33woULderUcfo6D3fK
pl45SowdBWVJjJyYmZmpBPdQI7S+l+gQBuLKlStb+YNKNLJp06be7JuIF44w
0GAzlt+fOXMmwAw+iO1WPPBeZgl1fPvtt/BeSkqKF0ZOcNNq166NzVdg7P3O
nTvJycnNmzcv79CApjI0uOe0cpStERMSEixX9/NEsbGxSr7f0aNHe/fubWim
jUaIwILJZnN1RueoqCiTeYccQ7cpcBNKcHLhwoXKl+LdcKY/dkKmnhMTE48c
OVKB5ZQQ2Lt3Lx5Ebm6uV41BGAnWjpF4LHfFEfBKOnTo8Nprr5UrxRfjR58Y
tCxXY+Vs2bLF19cXlrMMN4lXLCFixdqBDz744N133/WGpofAYTbbXWVOnz6N
q46fqL50yxsAofn7+/fo0UOkDKFaR48eHR4eXqVKlcjISEhv9+7dAwYMqHCT
ligzC4PVq1c3aNAAAqzosvw/MBtUVpcuXbzErzl79mzLli3ffvtt7cpz586d
1KoRfKK9cm7cuBEREYG7LZKTcRjXrFnz/PPPBwcHo0VPnjwJpffs2dOFpWRG
QOxjbPU2TGWpfkXFeMsFSku7N2zYsGPHjgyUbdq0mTVrFv5vRkYGY01cXBxP
4W1zSX9l0F75+fnt2rXzhg098BcyMzP79OnjVVH38+fPI7GWLl1asdKovJVz
6dIl/FwGtcGDByM5IBYc9oKCAnxkPC+6p8or4TwMKva9995D123YsEH5sqio
qH79+ug913aWqxBA4Aw0x48ft9R1DFKoQe+n7r8gfv75Z2/IL8L+r1696m35
tGXmWE2F51G4VjmcAm9Y6kNEIx0TMvcGD1eBmEBPSkoSjvmVK1c6dOgQEBBQ
4fsKSkhISBiHQ4cOtWjRAmmNNA0KCurVq5fRu1FJSEhIVDjw5c+ePXv48GFv
WzssISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISHxIOG/b7K3wA==
    "], {{0, 79.}, {424., 0}}, {0, 
    255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{424., 79.},
  PlotRange->{{0, 424.}, {
    0, 79.}}]], \
"Input",ExpressionUUID->"1fdbf18a-2112-421b-a9e7-b381b49a39f4"]], "Subsection",\

 CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 
   3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, {
   3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 
   3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, {
   3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 
   3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 
   3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, {
   3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 
   3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, {
   3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 
   3.7117171831101294`*^9}, {3.7117175469379387`*^9, 
   3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, {
   3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 
   3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, {
   3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 
   3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, {
   3.746790780119294*^9, 3.7467907805274167`*^9}, {3.746832393873145*^9, 
   3.746832394209256*^9}, {3.746843021959738*^9, 3.7468430227041254`*^9}, {
   3.8312217102468023`*^9, 
   3.8312217105751114`*^9}},ExpressionUUID->"22fafbf4-3eb5-45de-a286-\
99165bf416f5"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"Bt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"sigma", "[", "2", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
       RowBox[{"\[Gamma]5", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 
   3.746791220316177*^9}, 3.746807028665576*^9, {3.7468327145191917`*^9, 
   3.746832717645952*^9}, {3.746841944173117*^9, 3.7468419673751373`*^9}, 
   3.746843150711471*^9, 3.74684319181361*^9, {3.746843300199735*^9, 
   3.7468433112667046`*^9}, {3.746844210205324*^9, 3.7468442113685236`*^9}, {
   3.8312217161287994`*^9, 3.831221724103335*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"3b04f085-8106-468e-8b03-0448800eaf6f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", 
  RowBox[{"Bt", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, {
   3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9, 
   3.7468330770061526`*^9, {3.746833110572871*^9, 3.7468331142241416`*^9}, 
   3.746843151369008*^9},
 CellLabel->
  "In[113]:=",ExpressionUUID->"c65ed340-93ca-46f6-bd91-80377fbad9dc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuINPvxMbSxvHINueCmBaAv2ORrtQPrVvjNZfMJvHH+4
m4nxA+lN780aQTTPxtcrQPSOKSpSld1vHM8+KNoDoo3U/rwC0XMeNH6Z1vPG
sfPL1ublQPrQj2vJR/reOJbMS449DaTniYSohi5/47jE8PiSRCCtzir3NBlI
r6gXzm8C0lZ3Y56sAdIvTQxLbgHp3ptOa8pXvXHctqrQsHPTG8dLHVs+3t/2
xrGn457uyR1A97mk/DgHpPlm3tC8AqR/mTs/U9n5xrHg229rXSA9aan9dz0g
nZL9bXkpkFZn3qpWBaRXmPUerwbSn1UNDWqAtEGte3EDkG5aHrV/PZCu6lkh
eAZIC9YZlYLoW3uLl54D0kERpS03gPQVf64FIHpPkfrjd0B6k/Pz51+B9BHL
29uddr1xBADzcrza
  "],
 CellLabel->
  "Out[113]=",ExpressionUUID->"0c5dccf1-1fb8-49ab-bc40-b3e9ccc8c2a4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlwFHX2x4drCQaFEMMZ7hvkksMIhPs+JNwgIIRTECJHuMIZNSKw3GcQ
kdNwCgFWKQS5ZFmEcoGoC8WpBQiUxC2EQkq38v84779dvXP09HT3TBLobxWp
Yaan59fv9973vfc73q/s4Le7Dc/pcDgmhPCnW+zk5uPHx07tXpD/9IybMHJE
3LCh7ePih40YNj5qcC7ebMa/Qzkcjj9fZ9iwYcOGDRs2bNiwYcOGDRs2bNiw
YcOGDRs2bNiwYcOGDRs2bNiwYcOGDRs2bNjIbNy/f3/79u1JSUmrVq06e/bs
kydPtK//5ZdfTpw48fvvvwe6YbTk6NGjCxYsmDdv3sGDB9PT07Wv/+OPP06e
PMnjBLphNmzYeDZx+/btN998M2/evA4VypUr99FHHz1+/NjjVyDVqKioAQMG
/Pvf/w5cw3777bfk5OTixYurGxYaGjp+/PibN296/Mq9e/d4llq1ap07dy5w
DbNhw8azCUKyTZs2FStWrFChQoMHD16+fPnKlSuHDRsGYQpBVa5cecuWLXCX
8pWLFy+OHDnyhRdemDlzpjdGtQTnz59v0qRJnjx52rZtO2fOnHXr1k2ePLlR
o0a5cv250YkGJCQk3LlzR7me+HPZsmWRkZGtW7e+ceNG4Bpmw4aNZxMPHz6M
j48vUqTI/Pnzf/31V/VHkOTGjRsrVqwozEkIWrduXbirUqVKOXLkqFatGjny
f/7znwA1jDvv2rWrRIkS/fr1u3r1qsunp0+f7tixY86cf+4qpTEVKlRo165d
vXr1QkJCChQoMHfuXJ4rQA2zYcNGtsPly5ehr1KlSn399ddm7gMvvffee4Rk
ly5d8nbNo0eP1qxZU7NmTQntQJUqVRYsWOBCsJbjq6++ql279qeffuqNlnn/
+PHjMOdzzz0nDQsLCxs+fDjCCWjDbNiwke2wfv16GKxgwYIQi8lbEUzqnMGB
PKHWgA5dqvHHH3/ozPq58vr167dv3w5c0GtDDeScnp6O2DO7ITY84/79+2PH
jo2Ojq5atSqZ2oYNGzK7RZkPiGvt2rVffvll1meJf/7zn7Vq1apRo8aVK1cy
uy02TAFlO3LkSKtWrSpWrBgeHp47d+7KlSt/8MEHDx48sPBX0O2BAweSMqSk
pGhcZlWq9VSCQOjAgQMzZszIly8fWRivM7tFNvzAvHnzyJojIyMvXryY2W2x
YRxPnjx55513GjZseOjQIYkwcYKdO3emc6HQf/zjH1b9EE6WBApCJirQuMzC
VOtpBVQZGhparlw5ezI0e+Gnn3768MMPL1y4kNkNsWEKO3bsePXVV69fv65+
85dffmnfvj20SSrhbd2XvyBG2rVr1/79+7XXBmejVCtTgFhIAeiajh07Pnr0
KLObY8PGs4WHDx++9tprLVq0OHnypMtHO3fuzJs3b86cOVesWJEpbbPhEbie
rl27wplkB8+sW/n9998J2OrWrVu6dOnatWv/7W9/e2ZFYcMbiAOXLl1K+Gft
bW/fvl2tWjUMsFKlSi7x5MWLFwsXLsxHgwYNUr9/69atJUuW3Lt3z9qWmAQR
F9Ep6X9mN+T/ETgp/fjjj3TWc88999lnn1l+82wBvEZiYuKAAQPQ2Lt37778
8sulSpX6/vvvM7tdNrIQzp07h0tdtmyZ5TPaJMKtWrWCGEnPf/75Z/VHV69e
LVGiBB91795d/T4aGx8fT2iadQbTcCUDBw7s0aOH5T7FMAInpcOHD+fPn79M
mTIuwyl+gajszp07Z8+evXz5snpLS7bA5s2b0UnZPc3fV155JSQkZM+ePZnd
Lq/Aftu3b4+nq1GjBiFxZjfn6ce3335LKDh16lSfJQKMIT09/dixY+7b/P/+
978XKFAAzpw4caLLRw8ePHj99dcbNWqkZ6gTHnv77berV69OMDB79myPy8zM
pFq//vpr//79o6OjrRp39YjPP/+8aNGiM2fOdHFb0A5cnZqa6v4Vv6SkE8pg
Zps2bdavX9+kSRPMsGrVqlOmTNG5VpB4bOjQoWFhYS+88AI9Av3myZOHu+3f
vz9brDEjM8LLHz9+XP4L5+PZUVTU1fA98WvoZ4g+FCxYEHvs3LkzMYx6o6I3
XLp0CcI8cOAAqQc9BXP+8MMPBhr5ySef0Eh8ZWn/wbcaNGiArhr43WwHOqVp
06YxMTHWLvvxCWzz3Xffld0EHrXxp59+ioqK6tu3r/YOCFLmMWPGQJVcNnLk
yL/85S/bt293ucZMqgXZwmNoRUCzcrwVtIw0EhIS1MTC+4MGDeJ92uCR5HVK
ST/wODKYCeNhtrLM7/Tp08WLF8cwtevb0PI1a9bAMKNHj8YRS4P5iylxz5w5
cxKrB6j0DSExPEObUaeIiIhixYpFRkbSa/zlNe8Ih+MCUADtWyHSTz/9VIkf
eJ03b15uDpcabh5aipvGB+GPatWqpdS+wJWsXbt227Zt2/8LrkFX+/Xr9+KL
L3IB7gYHpPHTtBP9X7x4MXIWeg8PD09LSzPQSCxixYoVM2bM6NatG78rLYRF
k5KSli9fvkKFpUuXYnEjRozo0KEDDC9X8gI9MSyiTAfS69WrF2R46tQpjcsw
kCFDhqBX58+fD1rbBLRQttZOmDDBW3x76NAhVJ3e0YhPdu3axZMSAkGM9HWO
HDmWLFnico2ZVGvr1q3Y2sqVKwM6BYCdEs65Ez7v16xZE5vlMb19V4+U9OPH
H3+Ufundu7fCkELp2NHGjRu9fRH5SCTv0XDonWnTpkGbdEQgxjcePnwIKW3Z
siU5OZmQGLZUeAm6mzVrFmSekpJy+PBhvwYKECn5Fzfp06ePVVmYDH1wz3z5
8hF7e7sMmv34449l8AraRwE8auB3333XvHnza9eu8XrDhg30Eept0jFduHCh
UKFC/C5msnfvXu2LUZJhw4ZxMU1136ieXQATwh6iMPggDVPCh4aGhi5YsCDI
c4IERSSVf54Z3bOnRsZHjEfSjf86evSoxwvQK0IscooM55pPLAV+U7IqgZlU
ixwHP9u2bdtAB+EnT56k5ZiGy1Jk5f1//etf3r7rU0p+AQZGJXCj6j3RqBA/
QX8R83j74rlz5+rXr+++OkIBVElYBW2+//77gdY3HCL2ToPpaO2wQRsoaosW
LTw6YsPAp0hspmfLACxEA6QaGxTqLjcC7H379tFBeA1Z80z6ZlK8GJTEmWXL
ltUzWo5nJ3jGuesZSciawMBxPTwy7szjOJiAByQqILy5detWMJsn2S62A236
DDlI8aC4li1berwSztyxY4eEQ6QMuXLlio6OdrnScKpFOydOnIhio5N+PJ4h
kOxgmM2aNXMhZ0yV98kXtMcStaWkH9janDlz0Jx27dqpV2YiPYJ599k6BciK
fBz5YzsuPksNOgvh01QabKadPkEb8DU0mAzXzI4Y8bDcysLtD19//bV+zsxw
LpBo0KCBXO8+7qS+LcEhz2tyEEnxj/oX6NL7AwcOhNsDXUgkoKCvly1bpjG8
gHXMnz8/d+7cMhIStIbxW6tXr8ZpTp48WU93SA+StG7atEnjMigFNwG9LFy4
UONx/Eq1zp49iwbCHoHWBFoiUTcycRnMJIrm/fj4eO28W6eUfIIMJSYmhl8k
01eL8d69e7hX3h8xYoTHL+KYXnrpJTG09957z1sXELdXqFBB+xpLcOLECYUz
NYoI+QQZMSTPo/GAVrXNX86Ur5Br8BWk5zHjQJjTp0/nArrP5DYE3G6jRo2k
K3Uu0EX9xo8f379//wBNImcR3L17FysoWbKkGY3yF8h//fr1RYsWhTb1D75J
zNCkSRONIOrYsWNcQ0igPbOjP9WieQSZZCjr1q3T2U7DEMJxH7SU9z3OarlD
j5R8QhbTuo9inTlzBjMnjExOTvb4RXKW2rVry07nb775xtv9yR8JhrnMPR3Q
DwwzKSmpVatWnTp1SkhI8LhP0Cdn0ki8DHEU96GjPY69oANTpkzhJnguC9nA
AGfSkmnTpgmPQU3uK0OQPxE+6rp58+YMp54bmzrPcA6Qyqpp/Qt0hTORVbZY
F2EYKSkpGCMRddBcA4TJj5YvX37nzp1q50WyTOyn8UWJITV6kJ4aO3Ysvdyv
X7/ffvuN/169etXjc+lPta5fv17BiSCsEfU5mCnv37x5U2NY1aeU9ODKlStF
nXBpyaJFi3A0eFiNYVUktnv3bu1VT0qOX7x4cTPOGs84bNgwGXODFd0HcrU5
k/yLZ+TTnDlz9ujRwxvJyxgXD7506VLDTXWHAc7McNZSiIiIkOlp90FjGfSo
UqWKyH/58uU4AmMMph7M1LlAl9x86NCh1kopq4HovUuXLopXCg4IoghFDh8+
rH6Tbp05c+a7776r8UUINjExkU588803PdYexKVWqlSJ6AibzXDO+hE/eEym
9Kdaq1atIqyChIPgU2Qwk7DfZVPPsmXLeJ/QET7EfmEbqMDbTXxKSQ+uXbsG
MVauXFlNfenp6ZKskf2ZDCSUJVX58+f/8ssvzdwK5zhkyBAJvbp27eqSkGpw
phi48kWNAuN8EW7nPhoTWwZgjDMlRZJmDx8+XN3FvKbTeT8uLo4Oor94LhdD
0wk9g5m3bt1y2ZxC3ItyEvwY+MXsAtw00QuuNmjbwcj1iNnmz5//+X9BOJSa
mgotkAz6HIWT5RlVq1b1OF0lk6Q1a9aECaGO999/f8aMGe7WrT/VQlVee+01
ghCY098n9RfKYKbLEhHiW8l2hQPPnz8fExOjvVNSW0p6QL4MRZcpU0YdXa9Z
swb32qxZM/P7NCE6BOtwHtwgDs4MuIOcQQbPy2IbBRqcKWksH+XOnfvjjz/W
uL/UQ6hRo4aFg5kZRjkT7Z08ebKwGaakTr35aNy4cahrcnIyr+fNmzdq1Chj
o5o+BzOhx9jY2K1bt6rf5DISkGw9AeQTqAoK07Rp0+CsY4chZYGuR6DbGuGT
QBYNQggevSeKh/phjJgkIUHbtm091tvXn2qRokZGRqLYZ86c0f+YxqDMnoSH
hyurYsiJeBzhzGnTpsGrROPYgvaAvLaUdAKGRJjr16/PcNrCvn37aFjDhg31
76OE+Tds2EC4QrTTs2fPpKQkhdAImOFkHkrnIK02SCjCwsJEhVwGWzQ4U6ly
UKBAAY06hMqAz+DBg63NNYxxJli7dq2cyOO+sDMtLY3EnFSlTZs2vXv3Nuzd
fA5mIj2cO5cZu3+WAurNM7766qsEkLhdsl1vSQdBy4gRI9wjfJ3ATW/cuDEh
IWHAgAG9vYCPiNBkpPru3bti+94AO/lcCsuzyKb1uXPnuvMGZMgvFilSpFu3
blFRUd4yKf2plgSuLimqBuDqLVu2NG7cODQ0lJCMyISI2pv8paeUNsigJSpK
8IC68iCwJWqZkpJCLMFTR0REtG/fniDT5wYWbSnpBM9C40uUKEE/tm7dGnUi
aNe5axJuHDRoEEJAFIsXL/7iiy8OHjyIKmLLUDEspCyY5xo+MtZCBbg2mU1G
ei6brDU4U6EsfIF6eJZnTExMxCgkSsdHVKpUiXbi8U220wWGOVOJqz12MWEe
ukQ+Ymb8RHswk19cuHBhixYtsk7VBcOQ+WgIE6FBg+PHj8cf4d89Gg66ER0d
jVgWLVrk16/AbFiELBX2CRgAA7Ho+f50+mPGjOG2pLEenT4X4GqxFI3IWWeq
JQdd8Vvwj57T9Ehjce7uEoDoXIZ9BIgFLlIiWBnMRA9pOR8dPXr0+++/V9Se
F/yX+FPPWS0+paQfKAm6hHXrTPHQuhUrVkAFkC2m7aJ4kH/nzp1TU1OV5dz8
NV8kn9uWL1/e4cz0XZYcaHDmsWPHnn/+eYfbvhVJvvjoyJEjPPXQoUNz5co1
depUywuMGOZMpeUOc6PW3qA9mMmn9CCRCeH3UzA/fvbsWbInZS2r1Fjwtiwf
91G6dGnt7XguwATIpGSqEQMnMiTJrV+/PhmWSBhJkoh1d6JHjx7om+X1Bhcs
WMAPEcAY83H6Uy1lgJGn8KmWCFMWLjqc8xrIHAetnBg4btw4lzsgEx5kyJAh
YonKb7lsMzcMk1IyBowrPj6ep4bBvG3CxRf06dMHNy3CIdo071JlY6nDuSmb
OF/9kQZnykiOw21UkLgXRiLwSE5ObtmyJZk7wgzEDKBhzsR1Sk0bh3Nnq+Vt
Uw9mvvzyy3FxcW87QexNBkfaJaKWbXcmgeR5BH6llmmQxhIE+jXUg/Vh3Uqs
jpHGxsZqqKWstUM9cFt67s9tccGiZp06dVIvh7t8+bIkg4UKFTKzQ00PNm/e
TH/pz5cNp1rEe82aNXM4p4m1aZ8ru3TpghPp0KEDEZRy8f379/lpbBaDdRkR
vX37NjdXpoyVlZlWzTn6KyXzwHInTZqEEFAqDdnSHVIAQUySSNv8idjp6elQ
nMO5ZOjDDz9Uf6TBmRiX+PoGDRqoJ93oPnR4ypQpsAR3C1z5VsOcqUTpDueM
v+WcqQxm0pt16tRp+l8gKLyhODsusGQwE84kviLpq24aWJCMZen/dcJLvqIs
qMNYxCNIuud+PRFgvnz5wsPDdT77nj17IFjEOGHCBPcMkZtIGQGfe1VMgjAA
xouIiNBYIqiG4VRLymXwRNpTRZgY2ShNWrJkiccH37dvX1hYGEJTf7pq1SrC
LYUuZDATAVp1SLS/UjIJhPDRRx/JIJt7FTs1cOVjxoyRKQyHszCLeW2BNIhV
5IazZs1SOzgNzly8eLFCO5lS2NMwZ4q2SOMDselGGcwkD3VZh5DhXGxD1BHk
FCZAQAfU+aa4USjOW+UNkYzOIiRSYsvhLKbhcS0BLErwyQVNmjQJ6Cy8KIz+
MoaGU60bN26UKVMGgtVeiIJvIrOYP3++N9tH+ElJSWTuyggJoQthuXqLzfLl
y2Uw06p1Gv5KySSgo7Jly0pS425laiClhIQEsfeQkBCNMgj6gYTlmEXRTzUB
euNMqFtZ1WlmpswMDHPmF198gUOUxrtsszUP9WCmS7UBgXiop2Awk07fvXu3
khejNrJDuVixYt7CSAID3L3LGjyPQMHi4uK4W9GiRb1VE+UaGNvhrLhlpsCg
T8iQQv78+Ykb9VxvONWS2Vj3ITIXIEZUS7ueJLxKXqNM6eKtyOXVc9Ck5PXr
17ewALi/UjIDmW0UKxsxYoT22C+fjho1Si62cOiA5yVjcridnOKNM+/evUvW
KZNQwXEr7jDMmTLwwhdx6Kifta1SD2a6BO0CWJTI3JLBzCwF4mfJlPEI3mZa
V69eTWyjZxA+LS2tePHi2pN0eJ/u3btzTZUqVQJaH0lq+gXhkBpMjNxWewEh
rpbM3eews1RpS0xMRAOJJImFAr3xKmhSynAKqmTJkg7nYssdO3ZoX4zFtW3b
VkwyNjbWqjlf2YEicxPqnRHeOFOpERcTE2N+QNUYDHOmElSHhYVZXhFdGczM
ly+fx9MxcElkSU/Hykw1Fi1aRAyJDrss1FdDVsaWL19eexe/suSGdICkwNtl
yjg88VKASnALzp07h6qgZpavl3OB7LnGBrdt22b+bikpKbIL/tixY82aNQto
KJ4RRCllOCPt3LlzO5zbcKScuwaUikbuaylNAvaQVZrR0dHK4i6PnImuyvZD
QlOf2ygCB2OcSXDSp08f4czmzZvrXDGrH8pgprdzoB48eIBS6Vnzlo1AdC3z
kqTJGiGfRPju281cgIikBI32gsaLFy+KxgZi8YMaMmlocpOLHshaLNhAoya5
fnzzzTfEV1Dl2LFjPaY81iJoUiJQHD58uP5JcCXAs9zeESk9Jes6Jk2aJEro
zpm8P336dKIFlH/JkiWZePCuMc68ceOGLEbVrpZvDOrBzA4dOgTnUHtYBRf/
jRWgi42Rj9RD46nHjx+vfRhE3rx5CaW052qVQyG161QIA6OKy5cvN9Bm/ZBa
Z5ashdYGOUilSpXcl68YAwwsVeIJMoNwzm/QpIRZQZViZT5L6ChFJFCVDRs2
WN4YCJAwKSIiIkeOHEOHDiXfceFM3hkzZgx+EG9CeKzRWj6i33m02rVro/8D
Bw60PLIyxpmrV6+WqL5BgwYe90qYgXowU4aSrL2/O7AFOT7DKiQkJPjbBilh
53DuvVUKZfMmDOCiIXz6/PPP02sadQ4zVIvBNErlw6VvvPEG15QqVcpMNWw9
SE1NJVApUqRIoAt+yoFBPNS8efPM3w1n2qZNmylTpgTC+twRNClhZY0bN3Y4
5yO0FxhkOJMRNMThXGxvub0rIG8i9A0NDUVv8VOSacJLZECFCxcmThgyZIge
Lb1w4cKKFSvwmw7nrgTLp4kNcCZWLHVFsNxAnBpgoGamSWAL+/fvX7ly5Qor
sH79egM1G+WYTp5afQ7CqVOnOnbs6KKlWBNBps8hL6XMrMYMnTJJpL02zxKs
W7eOxgR6dj7DufagS5cuPJQlyyru3btHNooB+rXm1jCCJiXiTNnO4G3KQAEO
d/bs2Q5nTQyPIwYGDinWQHp6+p49ewYPHixRGVQJ7x08eNCvhXBSJAHWDUSv
+cuZiFoOKSP3mTVrViAMTRnMLFeuXBAKxmYRKMsyleo3chiuu6OUNdtolHaW
RG5esmRJjcu4bXx8vMO5SdNwUWidkApvDudC/UCXnFJ2bffq1cv8CC0Oq169
enCmhbvvvSHIUpK9qNpThBnOEV1xrGiL+3S54UOKtWHybAsJGKza8+ICvziT
foyLi8OuIUxeBGKuXz2Y2alTp+AMZmY6FPoKCwtTMu47d+4QCbiXsEYmHTp0
8KmN9A4xKpfNmTPH42XE8KhleHh4cJYCktvSmNGjRwdhSa0sNY+KitJefqkH
Uq1x5MiRlldUcEeQpUR8iNUT1moM/JLCixaR/nisfmDmkGINqDnTwKgRT8Rz
BWjPCyYppTa0Q3SMjqeoX7++w7maKzExMUC7lnDr8iuGPVR2hDLGrtT6xmQ+
+OCD2NhYd6+BTORskW7dumn3wo4dO0JCQlq2bOme15A3lS9fHor2duyytZDR
M59FYq2CFJApUaKEzyU0PkGmQ6YcnBLWQZYSIZAMYvDXY/zDBRIrkud6m3A0
c0ixBnDoMpPuc9zeHcpeIaIvq1wPhobJHDp0aNOmTVLNQPD6668Tan6lAtes
W7duypQp1atXl2uio6M16ny6tDwlJQX3VLFiRVIbOIHshl8kEXAxUp6LHoG9
sfG+ffsqe1qbNGmycuXKnTt3YgJPfZK+ZcsWnFHDhg3FM+7duxfz8XYiKp/i
44h/tM8jpqNRmzx58pDjK+wq/VKkSBE6xZIDtfWA9AoGI2bwVjbHWty+fRuN
tWQ8HN1DztrLuqyCTinBIf369ROzat68+enTp2kkdmog70tLS+M+aMjChQtd
AmmyWokw+QmNesUmDylWIKTEgxC5kSbIjInCOcSNdOXx48eRjM+AXw7Z9LkR
zC+gAJGRkfpngaF6HmHcuHFnzpzRGZPcvXu3R48e+Prk5OQnT548fvx40qRJ
sgKEsMelc9EBmbZGyHn+Fwp/tm/fPjg1yTMLyIQEECYktuzZsyd5pUahIbwP
wtRTIB3Jz507l3iyXr169OCoUaMgE6lpbPmqWg1s27YNj4D1BacTlUjDfKry
17/+NRArkD3Cp5R4rkWLFuELUBKpYJyamkpqjCbQxcb8Ed9C2ST7hjnxp3Pm
zOnatSsZCvfktcb4mPlDihUo9YcVwAbk1/xVv6nnoAoZzIyIiNi+fTumBHdh
LDExMYE+k90M7t+/D8XBeGvWrFE09ubNmzIvbGHA/JQBsdDduNTPP/9cO2bA
dmQmTmeZAmxQ3DdJH2FJkE8x5rlGjx6N+9M+u9xayCpWkywtx4UH5yA2n1Li
gvnz52NWvXr1UmaIlKL93qqt6gGPibh69+7NTYimqlWrBmdivD73hVlySLHl
kMFMfh3C2bdvH8JMT0+HkYoXL64zRw4ylPonHTp0UKurEjBbvgb+2cSBAwdC
Q0ODFgKZgSyjKlOmjPnRRf2AQOrUqUOkZGZxODkpzZ49e3YQqN6nlA4dOlSg
QIGiRYuql9YrJ3P16dMnyK4ww6JDiq2FkmJUqFBBvaebPB3yISrOlPJx2qBD
ZbevSzUDEnAUmIA5LS0ts9r2NAElbNWqlXoBfJbFJ598gtMfM2ZMEKaeFcBy
RGWEbTNmzDDMeLt37ybLs7BskQa0pUR3y2KJ/v37q62egDMQR3jrhCWHFFsL
ic1y587tsixZJpVcqidlBciSQodzX4lLdUcpIavMcdgwD2w5X758b731VjC5
yF9g1B07dsRXnj59Osg/jXW85ISxek2EcBMnTrSwnrAGfErp1KlTsLf71kWC
Ulpo+RHeemDhIcUWQhnMdInNkBv8o7PqbDDx6NGjdu3aOdyKXipraYKz8OwZ
wcOHD3v06FG4cGHL60pZiNTUVIh9+vTpmdLva9asIXjzVr1ZG3JWnfuMcCDg
U0oSub344osuExlSOgO/YO0R3npg4SHFFoIez5Url0tspoxgBLrgoQEoqytd
5tFkC7AymMnjBHpr2DOCc+fO4ToHDx6cBUdpMpz74Mgc69Spk1ndLSf+kJEZ
WCx06dKlYsWKaddLsQQ+paTMEbhkwRARNKsMZhKZ8JhB800WHlJsFZTCyPxV
J1+oARJ2OKtuZrViaFKMEYfoUiSH+DzcCV7Q0YmJid42p9jwC3LIb1hYWKZM
UGqDttHLdHoQSkFqQI5BGTZsmL9uhRAuCIOZeqTENURrsuJObfIkGq1bt8bc
5NTmEydOdO3aNWhzghYeUmwVcBywYs6cOZOTk9XvE1oQohOzrV27NmiN0Qll
0mrx4sXKm3IAlsN5fCQehz4lo8z6MxfZBegJQUjVqlVR0cxuy/8AIyIGXrVq
VaY7x4MHD9ISnItfLUGHSeUCvc1cp5TkbHcYUj3kRURHmCcbxvn63Llz33nn
neBI2/JDii2B1PV1OQZUqTESFRUVtGFVvwAZEvZ06tRJlpCRhr/11lu0NiQk
RObRPvvss759+z7dC9SDDIQ5aNCgpk2bZp2xmm+//fall14iOgr+Ahh3yGnF
ZcuWhTz1f2vv3r18K6AUpF9KP//8c3R0dLFixWThOjS1YcOG+vXrR0ZGEgyf
Pn2avJ7U2N9thoZh+SHFlkDOJnA5wvu7774rXbo0cabOs62DD5qNspUvX75x
48ZvvPFG3bp1k5KSyNmnTp2KT2zbti38Gfw5vqcepGlxcXG4/qzgjDAoOpqw
JysQpgC13Lp16yuvvEKaltlt+X/4K6UrV66Qm8P8sbGxhB8EVNeuXdu3b1+R
IkXI4DA3jTM0LYflhxRbBRiyVKlSGIIE5NevX2/UqFF4eLj6tNCsCdQAh3jq
1Cm1CRMFEYVmzfD4KQC08MMPP2SFdUePHz8OQuU0A7hz507WWepmTEp0MfGS
OqEgocPQLl68GMwxEMsPKbYQR44cqV69evPmzXErsHpMTMzTd3CYDRs2shcs
P6TYWhA5pKWlHT161PB+Uhs2bNiwYcOGDRs2bNiwYcNG8PF/fsrJfA==
    
    "], {{0, 64.}, {444., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{444., 64.},
  PlotRange->{{0, 444.}, {
    0, 64.}}]], \
"Input",ExpressionUUID->"5d02fd11-3619-44ed-8401-5a7a45688150"]], "Subsection",\

 CellChangeTimes->{
  3.746790794639846*^9, {3.7468324068772516`*^9, 3.746832407310075*^9}, {
   3.7468430339794984`*^9, 3.7468430342617435`*^9}, {3.831221744701765*^9, 
   3.8312217449507647`*^9}},ExpressionUUID->"9b99fab0-5ae9-4672-b448-\
c6b5ad875f22"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"Ft", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 
   3.7468070324753675`*^9, {3.7468331290932484`*^9, 3.746833137306533*^9}, {
   3.746841946421612*^9, 3.74684196943189*^9}, 3.746843152431801*^9, 
   3.746843195060937*^9, {3.7468433340275373`*^9, 3.746843352790815*^9}, {
   3.746844223657961*^9, 3.746844224896682*^9}, {3.8312217506017265`*^9, 
   3.831221753857741*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"27e07b8a-3282-4565-aed5-3f93df9b7a35"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"Ft", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 
   3.746807032959241*^9, 3.7468331516324916`*^9, 3.7468431531448936`*^9},
 CellLabel->
  "In[115]:=",ExpressionUUID->"2d23e4a8-d763-42f2-89e9-62c6df6a7616"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuInwQJMbSxvHDep+SiB6CjGuRrtQJrh/7ksPuE3jisS
LMT4gfSVBstGEO07/+0KEL1dRk2qsvuN4x3G2/tB9B/rv69AdP+/pi/Tet44
Bl3Z3rwcSDfOu5F8pO+No9K8lNjTQLpNJEw1dPkbx5yAE0sSgbRzuPzTZCA9
vV40vwlIC7XFPVkDpL/ZG5XcAtIlkS5rylcB3aFVbNi56Y1jitG2j/e3vXFs
mPtA9+SON46pV1J/nAPSV7JuaV4B0vwWrs9UdgLt//bXWhdIrxF0+K4HpL/x
/FheCqT5m7erVQHp49v6j1cDaS1zY4MaIP3oh0dxA5CewhS7fz2QlmZaJXgG
SP87ZlwKou+Jli49B6Svfa1suQGkt6zgWQCmizQevwPSmw+/eP4VSL/beWe7
0643jgBzp7sw
  "],
 CellLabel->
  "Out[115]=",ExpressionUUID->"56f0e496-991b-420c-af55-9f0a18cf4992"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQdwVdX2xkNHadLU0CO9hNCREiCUEIhAgASkSTOI8ARBMfSudOmdR5MS
mlTBCR2pDwakJ0M1o7RRHiMw4Oib/H/vrv87c+eWc0/uufckkf3NvDd4cu45
++y99re+tcvaQX0Gd+iXOSAg4LOc/F+H3nFhQ4f2HtHxDf4jZtBnH380KPbD
VoM+j/0odui7fbJwsR3/C+D+//47RUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFB
QUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFB
QUFBQUFBQUFBQUFBQUEh/eH69evLli2bNGlSfHz87du3Pd6flJR09epVCwr2
xx9/HDlyZNasWdOnT09ISHj8+LH+/X/99deJEyd+++03C8qmoKCgkKEBWzZs
2DDADpkyZWrZsiXX//Of/zjf/+eff65cuTIoKAh/4fIGX+Hly5dLly4tUqSI
fdly5co1dOjQn3/+2eVPHj161L9//5CQkB9//NF/BVNQUFDI6EBLDx48OFu2
bJUqVYqLi1uxYsXUqVPbt2+fN2/e/54okDlz27Ztz507p90P83///feNGzcu
WrTo3r17/Vq2ixcvNmrUiLLhiaZMmYLHoYQNGjTIkuW/xxxQwpEjRz548MD+
W+bPn1+sWLEWLVrcvXvXr2VTUFBQyNBISkoKDQ2tVq0alO4g4+/fv//FF1/k
yZNHJHfBggXDwsKaNGlSuHBhnELnzp2NDBB5DQqzbds2XEy3bt1u3brl8Ncz
Z85ERkZSDIlTypQpExERUatWrZw5c+bLl2/atGnPnj3zX9kUFBQU/ITnz58P
HDjw9ddfnzNnjl+HVlDL0Obw4cOfPn3q7p7k5ORPP/00MDBQvABSHGmN7Pdr
wcDx48fxSt9++627F3H92LFjeAEqSsqWP3/+fv363bhxw68FU/AOtBf29tdf
f6V1QdIRCKVdVggXX758aX15rAdfunz5ciiFzo7Y69mz54sXL9K6UGkM5C5V
AaFNmDDB3zSLrzF456NHj27evPnHH38YfziFX7ZsGYHDhx9+mNpmxTAM/oQ7
79y5c+/ePX/XlYIXoFEOHz7cvHnzsmXLYglZs2YtX7781KlTf//9dx++5cmT
J1AHAmDjxo06t1mmrIyAAkyZMqVAgQLR0dH8Y/369Zs2bfr666979OhRrFgx
/pHmJbQGly5dWrhwYbly5WC8IUOGKIVADezbt2/16tUZfRCDsCIsLIxm7dix
o3LrryBQCxMnTqxfv/6BAwekXyMh2rRpg0ngDk6fPu2rF124cOGNN97AuaxY
sULnNiuVlUdQAIoR4ARC7Li4OOPC7G+Ahw8fov/5cH33rZDhcPbs2ZUrVxI7
pHVBFNIAW7ZsqVevHtGZ/cV///vfrVq1guhCQkLcreBKLV6+fLlt27Y9e/bo
x6fpSlnB/zjHQoUKFS5cWJg/MDCwc+fO//rXv9K6aFYDlsB9v/nmm9YsJldQ
UPA34Ni2bds2bdr0xIkTDn/aunVrjhw5MmfOTOCfJmVLD4D/J0+ePGLECLwS
busVGfB3ieXLl2fJkqVhw4Zog7Qui4LCq4Xnz5+vWLHiwoULvn3svXv3KlWq
hKwtV66cg85PTExE7PGnXr162V+HBqGC8+fP+7YkJgFRHzx4MD4+3rdDRvb8
78PH+gn+a5o///yzb9++GMPgwYMzRFX4CadPn46IiKCzFC9efNKkSa/UAKBC
WgHF1bNnz+joaJ9LrydPnjRv3px+Xa9evV9//dX+T9o4fMeOHR1+tWvXLrzG
nj17fFsYryELVKpWrXr27FnfPjlj8X+K35rm0aNHNWvWzJYt2/r168085/ff
f798+fKlS5cwPF+VzTIkJCTQWY4cOYI3HDZsGLWhP5OVnoE9r1mzplatWiVL
lmzXrp3D8K9JPH36dNu2baNGjeratSsBI9wChyxYsMBhioHORRnUdJI+qMzu
3buHhob6ahzeAY8fPz569Khzso6TJ0/my5cP/sfUHf5Ew8G3BrcW4rMQjZUr
Vy5RosT48ePdrTHwWllRmH/+85/8at++fQZ/Yhwa/yOtCYiILxYvXvzDDz+k
aomd1yA6a9CgQePGjR06Do31ySefjBs3zrkyU9U0xiGD/4ULF968eXNMTExI
SAgtFRUVdeXKFSM/h+2nTZtWvnx5OLNYsWI8J1OmTBUqVJgxY4Zv15j5D0lJ
Sc2aNaNTpNgqefTo0XSNjz76CF/gpzfevXuXXpPTGGgd/H6bNm3mz59vv9nW
HWDdDh06/PTTTzt37uTnffr0MW/S+JRDhw5169ZN9qO9+eab1FhsbOzw4cOR
r2XKlMmfP//cuXO1F+3YsaNgwYKK/3WAdY0dOxYf7fORH31g4ZCw7NcQm3cu
WFxcHCSgzwDQOEwF7ePFPv744+zZs0MgzreZUVYHDx4MDAzE7P2xWEjqAcZr
375969atx9pQ3obvv//e569zAGKbqqhdu7ZDaLZp0yZqElnlMsWWwaZJFWTw
n5dWrFhx9+7dsk+kVatWRYoU8bhC7Ny5c9WrV2/atCkOWnNYuDb8V+7cuYOD
g30etQngmd69e+fNmxduLFSo0Ntvv41bRIQgFSg27FSgQAEUDv8+cOCA/qOo
0s8++2zixIkSBr58+RJBS+/AsP23RI2+8913361evXrq1Kk4XG3tWXh4OL0D
G9j8P3DPhAkTIF4+Uxanffjhh9SwuydD+zxE8kWgnWhZ/tPkWNa1a9eII3Dr
GAn9Zf/+/Q6ekarbvn17UFAQhMC7eDsNoZYT6APBiQEvWrTI4pWQN27cKFu2
LLaE2bsTBsiMd999t0mTJjorxwgDO3XqhPyjy6A3MA8EgMM9ZpTVrVu3kJGQ
s87uSDOQ9T+oFEhPu/jLL7/UrFmTdkE7+eOlAvoLPYWqQJvZVwXXiae4Th93
V0VGmsY4tMF/JJx9khlxT8T4OtPily5doq4wYJdFxYdSt3CC/WN9BdoO30QP
guKgUGpDo1A8woABAxYuXPjNN99ASh4FM10AS9ZuIxJHACCbd+3a5fNiuwQi
B19JyV977TWdwT14ddWqVTJsiyiizC55Y8mSJRjPSxu6dOnCzWPGjPGaYXgp
3kd2+NavX19/aRwNjTKhjyMJuJ/wVi0ncAfcNAFgy5YtLY6R4VI6Na2DH9cf
p8UUc+XKhSR2OTyOYWBdGzZsSLHtKSCKgTOPHTtmf48ZZUWvJKZAQviDPTRc
vnzZeUZVFHiVKlXwBX56L/2C3oQ2W7ZsmcvrS5cu1fm5ftOkCjL4nzVrVojU
/vrevXvp9c4rBzRgt9HR0V999ZW7MtDEM2bM4FvCwsI8pgs2CVpKljoAYjoz
gurw4cOwMaGEX7Pr2OPMmTP4LEpOhXsMPBFFRFuSgRN34PylBNr4Zf5BhEhY
xJNPnTrlXcGwjffff1+CDnqxkR1kBC/cLA2BwskoM2sWQ0ZCaG575WnNeyGN
zJkz4wI8uuZnz55FRUURdWKfzn+F/7ds2SL9Gq1FNw8NDXV4phlllZCQkCdP
nn/84x/+G4N1B2IWOg6UuHLlSj+9Ar9TuHBh+qbD8AjXqXCu6wst/aZJFbTB
f15tf33NmjXUAGrTOfeXANNFr1JRkLy7NkLk4EF4zuLFi02WUx+//fYbMZHQ
jsl38Tk8BGFm2RYV2to4/6fYnF2dOnXkfpcjrik250tYREjeokUL78JnRB0C
nrfQYengBpn84cOHNWrUEJdB/OXFe18FoGnpvBEREX4a2XAJTILYENlgfHOr
iMDu3bvruH6CCAQeluYxYYJxZYW2bN68OeI/TfKHJycny/hYv379/PSKdevW
0UEQ3g5jOHQZrtOD6Ef6TzDSNEZAAILvJuiw9910doyEGqhQoYLLIIgbcM3C
t/h9d4EkfqF3797c06hRI78OBaBDfML/MpLJQ5BJlo3Kppb/5SeSEa5MmTLX
r193vgGHWLduXY+BpDvcv39fDiMgEKY+jVcFhjF06FB+CL9JGKLgAKpIpkH9
Jy+dQQuuXr0atYYLMB6UiazSDyGPHj2aN29ehOK1a9f0n2ZcWe3fvx9PERMT
47+kJVQC1NesWbMNGzY4mLe2b8J5cayvXi2D/3379nUY/Hc5KeASRprGI3jL
gAEDeCP/b/9G/K/kjSHKcNkEFHXIkCEi8+bNm6fDD6gCbsuXL5+ZZCP79u1r
3bp1eHg4HnnHjh3OleOR//Gz6GEaFF2BXbmbPSdEJWDRH4f3Obzgf+p/1KhR
8r0uNYDIg6CgIAnfcOLGh+AQpd26dZOHf/zxx6ndFwnPEPHRHP4e9MuguHPn
ThkbLDsfge65cePG0qVLb9261b6rfvvttyNGjND/Ib0GM/j000/d5cnkT9yA
wWAn/Cf25nJO2biy4ue9evVCeMTHxxv+xFQDhVOlShXK47zpVdP/sbGx/ng1
/cLI4D+iWmcCwmPTGAFVDcNnzpzZQSUSdqHf9FdqwRKQ5Pnz5/VbU8aR+Kjl
y5d7V8gUW43NmTMH9RJgOw9lwoQJDp+sz/9ULKpD/lq5cuXNmze747RDhw4h
PEqWLGnZ4H+KV/yfYsu4JXlL+K3DBn+aVeb0ZaEFcqtr167fffedkcdSsePG
jZPE/iEhIV5MgfEiPgTHYf3IbYYA9kl3gDCtWWeeYluoU61atYMHD9pfpKGh
4kmTJun/VnYKVKxY0aUlyABvzpw5t2/fnmJbEBIZGQm1Ot9pXFldvXqV2LZU
qVK+3bfiAAmQoZQFCxY4kAnslz9/fv+N/8vgPzzj0CKIUpkUOHPmDKQ6c+bM
iRMn6rCrftMYARb4/vvv58iRAyWgXeSN48ePp/vDqOaXGBFeyYRgXFycydlA
eJui8iiCTYdBD33+x/61H+qsm+XDp0+fzm0RERFWbv71jv/xvzIRLAOV9mSL
PWAVPE04H+/Qpk0bg015+PBhKQwCbN26dV58zoEDBzBLogAvfvu3B3bVtm1b
3Ku/Z8Q07Nq1i1hjxowZ+/4HYsOdO3fOnz+/UqVKHudoZH0IDO9yPSTBOH+q
WrUqnE/3+eqrr8aMGeOymxtXVuIfqSW/ZqylkCNHjhwyZIiDSuErZs2aRQNV
r17dpSMzDxn8z5Mnz9GjR7WLKFIZ/BE+l2VaDg7CAfpNYwSyA47CyDouAf6X
ZkL/2xfPaxDjiJh04CgvgISoUKECj8I1r1271v5POvyvhaggOjpaZzSDP7Vv
397g+jQfwjv+1+ZoZBYAJab96cGDB+i9t956Kykp6ddff+3UqZN9++qAkDM8
PFye2aRJE++mbNAS+Fl18q9L3Lx5s1ixYs4LP/wE2F62jbhE3rx5f/jhB/0n
0Gf79OnjTr9hrhgtXE3fQWYQZbs8/ce4suI5MTEx3DllyhR/90E8UcOGDRct
WmT/XbRLiRIl0OEIIX+8VBvkz5QpE+5SvpE6IRarXbs28VGdOnWITWB+uq1+
B9RvGoOA7flefI20CzFXgwYNChYsaHz1O0EEpZWEAO3atYNscRxSHr7uyy+/
FGPr3bu3Sf6nhJLPxHkUUYf/sShJeB7gaWmoFqIaHCrxFbzj/xTbYkvxrQ5h
teya55nvvfce5oSeMWgeW7duRU7ItI7XwS/GMGDAgIyYA8QCiGAuX768Fwkf
sGTMgw7Vt29fwvbOrtClS5fhw4cnJyen/C+puzvyB3gid6v77CFTeGFhYc5b
FbjSo0cPlEaHDh3ogM6JRrWSG1RWSF80nsOIhH6drF+/HhrPlSsXRhscHEyk
425+mVcT+9gXEoEEZTVr1mz27NnI8sGDB9Nr6DIe11XSZ6lqPlyqkRbRiWvw
iTxc2E8G/yVDAmWOjIzs3r07Mh4Op73GjRsHCaDBqMwjR454/HydpjEOPF3l
ypV5CEaFcouKijK4bZN6njlzJj8hXsDqsG3KDCm1aNGCCuFLNQ8VYNtsaHL8
B0cjVgQGDRpk/zQd/qdmGjduLH/Sz3aLWKLyy5Yta6+lLYDX/L99+3YZ1wLT
pk1z6Fl0JVpWqMAIcK80vTwNP2j8hwoGIeE21YuMSdXqYm6G1mTrn0e4y8Pg
NZBDCAz6uMsBebrh5cuXiSN0KMi4spK9MAUKFLh48aLHgt29e1cLV+3RqlUr
h6QKAkwaanKIvGCVY8eOTZ06FVm+YMEC/qovU1+8eAFLU8kOL6V1jh8/7nw/
z8etwJPSPWXwP3/+/BcuXEDenz59+tSpU/bLgO/fv095jKR5SfHUNMbBJ1Mw
2NvgewHFDgkJoR5Q/g5Nj1Pm4ueff04rNGrUSOpHC3bMFLJnz57yNIelUzr8
TzAlq+WzZMliPyiN3SJ3cXkyyEaZxVUNHTrU4l1LXvM/cZZ2Onz//v1NhlcY
JHGfPC02NlbN3vocUIHsvdXZ3e+M69eva50oX758svdfaylELxzY8X/o1q3b
3LlzfbunGCqGr3i110sNjSsrSTugs+1UA4yHbJZKyJ07d9WqVYOCgujjcsXd
wD68YSbPP+SvDSZnzZqVL0I5w8BypUaNGs5TsTgUmk+Ls2Tw3zntj3cw3zRe
gJpEeRYqVAjxuWzZMpesztdhjZs2bSpSpIhoki1btph8L7SM7Jeqph/ZL5/Q
4X8ZDJcyUB7t+s2bN0VQjRw5ElPZuHEjJtqgQQPrda/X/E+jSxZHQOxvcj0J
4kdGk8xngvUCMAOfQA8KMQ2aOzQ01Lca2CeAliVRyejRow1qoStXrsicV+nS
pfkijdN41NixY2mpTJkyffnll34dKodpUZjGx2S8Vlbamsa6desi23Tu5PMl
IVXr1q1ltYxc51cTJkzImzcv7OSg8+/du0flHzp0yMgnuCve/PnzqfMyZcqs
XbtW8yM0yrZt2ypWrEj3mT59un1b8Cc8Ec0tH64N/vtKX6W2aXyCvXv3QjtU
flxcnDvOkeQPkZGRMkCBXDG/G4hnYvNCd7S+vR/X4X9tNa/DhDt+Af1AwWbP
nj1w4MBcuXJ16tTJTzP++vCa/7XEEaB9+/Zm+J/fdu/eXR6VJnnb4H8EQ3Bw
cGXTqFKlCgSSDlOPYl18IDU8b948I/dTJ5JJiQDWebPAs2fPZDjUyHZRM+Dh
FIP+vmjRIiP3e62sNHps2bKlzjQxPLBw4UI6LJGOS4eye/duVLHDgDO0gEsy
s6kfsc13UecufRMNBAVRUfZtgfvmw7U1h9rKf4dkO14jtU1jHnwLUiTAlg1M
P4TZtWuXNjrhUC1eQ3YTyNvttxfp8P/ly5cLFCjAdSIRh8UJxJj4a8h/ypQp
DukvrITX/H/ixAmkjnw17G2G/2XviTzKeVu6gk8ARZQqVYruv2rVKo83I2/6
9etHc/ATd4uW6fVoTo/pYkxCWCvA8KHtXisrTYSgBHSMmW6Ly0Ne6mQeIyai
DNpoNvbcvHlzMxkdZassglYnMDl58iRqXDuqgOKh/AcNGqRJfWSVNvjvdUns
kdqmMQmcsgxgZs+e3aO+Onz4sMb/vtoNdO7cOWovwDbnjszQruvw/5YtW2Sy
xuQsuf/gNf/v37+fziVfbXJ7heTm0kIJI2OkGAPV/vTpU262tz3+zcWMe3oa
JX9mDu5MHYsNDAw0OLy2Z88e7AFnoZNXZ/Pmzdi2v3PVaisojB+V5Z2y0hZ4
6G+OQzxHRETo7y6nAARN2nTzhg0b2rVrZ2ZNWmJiIg7F5XEJGmh3iE47RfH2
7duhoaH2rvnOnTu4IarRV1sbvGgaM8C1SabiChUqeJygwSZlMaEPh6f4Xtn0
xDO3bdumXXfH/1o6GqC/mS4N4TX/y1xSgG1q22REiWWWKFFCKopu69FZa2V2
B3cHWKRnyM41nY8yDpeCJykpCflnZH0OTgS+CvjfbiB3txFH0PT0Bdl+6ydo
667NpBowAoTEe++9F6CbAIcCzJs3z2MF8nN4WFQxaiQmJsa7zYwaYH7EvEfe
3r17d8uWLbF83ks5TU43e4RlTZNim/uWrRkBTstvXGLu3LmZMmXiZt+uqITo
hPQk5YhcdMf/Wl5o/Z2/aQuv+V/21ATYDnIymSZdhibkaSNHjvToKGn9W7du
nT9/Hom1dOlSLXYoUKDAwoULz54965PlDRYDJ0g/io6O7mgOPXr02LFjh3Md
ov/ffvttrNd+HYJLnD59Wkxi2LBhOqMcMh1GlG1krbjXwBk1a9bMApLR9H/P
nj3NDxds3LhRKOLo0aNNmjTROTLJh6AfhYWFyb7L8PBwf6cRs6xpUmy7GGRa
J2vWrB5399N8vXr1Ek7AEftwMSFBXKtWrYT0tPMmXPI/HYTwM7MNkyZNSre5
6L3jf8ndIZ+MyZncb/XgwYOqVatq/J+qukKEtG7d2rgweGUhqzWcd687QNZO
oJ30F8zDbBIjFC9e3Mg2Lq+BackCVPMpXPShrY81v5gNIE6Q4tA+3Dhu3Dhr
Yn9ijQ4dOtCLCQQiIiL0VzGZh2VNk2Lb1298MY+koBFBaP6QAgdcu3ZNHl67
dm2Jjl3yf0JCgiyTjoqKSs8HUXnH/ygNmYhHT+rziRHYc3hqtxLI7h4RBkZm
Nt3h/v37P/7443lfAAFmWXY145CKQo3o50Kk5HJOln4OtNu3bwcFBXFbZGSk
X8+q0A7XML+FRx/aWYR0WPPDJjLYjkRE/Ft2wrKkXkQex8bGzp49299Ox7Km
AXPmzBF+MLI+RPa5c3OXLl38kcfpypUr9erV4/nVqlWjcR3Of8GQoERJj9mn
T5/0TP4p3vL/kiVLZClUnTp1zA+2YDwTJkyQCkzt7lS6mEz04+u9TvtDI8oy
LV+BKMa7kvgPknOSsk2fPl3nNk3U6ZyskWIb38hmg7/PEZB8+M5Zgn0OjHDM
mDESz5o/GQc5ER4ePnz48J49e/o1lZw9EOGfffbZ0KFDcTqIEH+/zsqmmThx
ovSs6OhofXGlzRTYD9H4HHAUHhaNBA3SX+Q8lADbEera+bN79+71GBZBv8gt
WPSdd94JDg52mcDKr/CC/1GScmo8xOurMwQphoRLzulVdYBhTJs2TWpeUld5
93ZsZs+ePYsWLVroCyDALMuubxzaiI3+aK22qENnTwfG37Zt2wDbPLu/p1pu
3bqFSVhzIraki8S2jScicAc0Kn6EgMvKnSCSVpSXEgVYEIFa2TSQrXRzh9w7
zjh+/LgQ2qhRo5zvxGfBzFi4QxDx+PHjTz75ZNy4caly1lTyyZMn8U2SiynA
tnlk/fr1xrfxPnz4cMOGDXI4BdGEecNLLVLL/8+fPye6DLAdhUB1+Wrcj5qU
x2bKlMn4Gcpy/J/UvBw34JPC/C2h7W/q1KmTDjnwJ27Qvy0hISF37ty5cuXy
68ofgdgnWs6CnK6S0KZYsWLmD+DALdaqVcviTFY0MRFHjhw5zKc7MAIrm0aS
eATorklIsRFCZGRkgG2YyOWmD0nx4ZwBY9OmTdmzZ/du3aDJ8x+1ZaI9evSw
ftw4VfxPXIz/haIhf/7h24HfK1euEARREoIpgwuKEFeS/8Sv52X/bbBgwQLa
zuPhaJKLo0mTJi53rPzyyy8wm3h/CxxufHw8HbZKlSoW7I6XHVJGElN7BEKO
OMLic4gk23ylSpW8PpMlVbCyabREOjr7gxCNhAlQQaFChVym2nB3xiXXBw8e
HJDK1FgaTJ7/LolZ6FD6CUL9hCNHjsj4uf56D+qWToHfDLDtv5swYYI/lhZT
AFkDX7lyZY9ZIBCfhJ9wUYC5wf9XB5Kyj0qz373ojLt371aoUKFgwYLOxwTg
OIgLsFV4xoJNdtrAb0xMjF+XsgskW6NPMiRQh/CwlYlxUmyxGxrS/FknRmBx
00jaDbgd63W5p0/OmEbE4r4R8y4HELQzLvXPvkwtcH/a8sVp06al9udJSUlF
ihSxMo0e7YXAPnDgwDfffCM5wQRdu3YlBDhuB+5BVxNUQshyT2hoqMHDlB89
eoRERB6UL18+ODiYOr916xbaUp98EhISCMB5EUqMm12GGNTYBx98wA2U/9Kl
S5iEx5xdCim2wU/akT6yd+9e/TvxrfSj8PBw+42WFy9ebNSoUe7cuWfOnGlN
oCrn9hKzoOsseB20OXDgQI9TJEaAq0X/W3mQa4rNfzVu3Nj8ejwjMNg03pGA
S6CTZYFu27ZtHUbvIfCxY8eiYAMDA3VmJCX9tfP5R1wnZEhVJhMoCHqErNat
W9e5c2ct9StcNHny5J07dx4+fBieNLL4Z+vWrShqPIhlg/+YpXCsQVAzGPOQ
IUOoN4Mj8ydOnChTpgwtLutvZTlc8eLFedqsWbP0f8vNsbGxstxXzpEZOnTo
3Llz8a0DBgzAlvhT7969ExMTU2x+H6Py4UzE3xjaEkePx6Cn2PJ7UNXYMz8Z
NmwYzUdbdOvW7dq1a9aUNsWWgw4rMr/B0DgkYYvHITKPwEWa3xeTWly4cKFs
2bIG5ZlJGGkaMyTgEtApDpoooGTJkiNHjoR7Fy1aRLyDlXKRyFTf4UrKAucV
pMhIrhvPZGh/FowGXIBkMNZg5MgJWOuLL74I8JR1JGOBQIaIplSpUvaRGrFw
zpw5jYhPQXJy8uLFi9EY1atXx2beeecdRH7Pnj3XrFljzW7KvyXkNGqD2agw
ThQR7pVeRmBofUqNPXv20IlatmxpWe4sSUVl0uO8ePEiKirK+h69ZMmS0qVL
+/Xkeg0em8YnJOAMdAtNQ4AGG+AF+N4mTZog/zwOF2uD/w67RN1NClgDGfyX
POqjRo3CN1WsWLF27drx8fEZVNDiQ2kavOGcOXPsRebBgwdz585dokQJi4Ni
BXsQY+JP4Te/Ju30CeiM/fv398kGQ+OQJfT0x6lTp3q9pwkGhvcsPsgbX4PH
qV+/vgUbjjw2TTokAS39tf7gPyGbNbPngsTERDmkJjAwEC/29OlTLJDgEZE2
Y8aM9JkyTgcUmBanMoOCghya2OAZ3Ap+haR3IFAdM2ZMOrcuWBR1FxwcbHG4
d/bs2UKFCr377rtezyht3779jTfe2LFjh28Lpg85vNj8SXxGoN806ZMEZPAf
7yMHA2m4cuWKTArIUT5wr5W5OmW8kZho8eLFmuCneqk6JIQXsyRpC5xpaGho
gC2Jiv2qAP4dHR0dYOAMbgV/4+eff65ig5U6J7XASObOnYvCdDjTygJIsv3X
XnvNu21N9OJhw4YVLVrU4r2c+/fvz5s3r6/OdtGBx6ZJnyQgg/8O53BRJBn8
kVS3yO+uXbs6OAj/QUwlwLap2X7fmeRDc8gynSFw9epVtBPhs8MhU5KRiT7l
75yECkZACIzqmDVrVrr1xRgMHgoRniaHAWHGJUqU8G7e4cmTJ7Cfu90TfgLt
OHnyZOeVLf6Ax6ZJhySgDfJTKi1bETHI2LFja9euTZEkewDM36lTJ8sy9miD
/w4VdevWrWLFihFAZbg9TXLsjnOQJVl6tHG/5ORk8ylWFLyGnGBbrly59DkX
I0doYTAel0/4rwALFizIlStXfHx8an+blJQUGBjo8bhh3wIdGxUVVa1aNb+e
xZlirGnSIQnI4D9MW6FCBZo1MjKye/fuNWvWjIuLo8bGjRv3+uuvh4eH49T8
mszcAYmJiZhKvnz5Tpw4YX9dZkly5sxp8RCieRw/flzOv3ZYJfj1119T+S1a
tHj27BltAflYs0pNwR1oIPg/NjbWgs07qcWpU6feeustnQO+LQCG2qNHj0qV
KqXWRdJn02TwH2ltQQoUI02TDklABv/l7EvkPe/lQ+y9z/3793FPFqffkUPK
sDH7aRQ87NSpUwNsRwYbz4SWToBPh1UKFChgv+jrxo0bsn3s888/RxSdOXPG
3THWClYiISGhaNGiq1evTlejQOixsLCw6OjoND8vVXKFffDBB6nKczJnzhxE
ppVpf1Js/EZTbt261a9vMdg06ZAEZPDfOe1P2mLFihWZM2du27atvQbDKxGJ
yKRAhlsqQ8uOHz8+a9as8+fPF1a5ePFis2bNatSowRcROSIbhg8f7rAqTCFN
QBOsWrUqKCgIR5DWZfl/YPyo7qZNm6aTuWkYLCQkZNSoUcYjEUQdtWqxeROk
0O/8OnBtvGnSGwlog/9Eu+kqReTatWupJYdSET3ls+Hw4cNpVzTvgVgaO3Ys
0Rb+Kyoqqn79+vv27btz507jxo2JHFu1atWxY8d05YVfZdAB4+Pj69atmx6y
J9ELRo8e3aFDBwvyiRlHYmIionfx4sWvsmJJbdOkKxLQVv5bsDgqVZCDVrt3
766pC+qNGiMomDhxYgbd/yVAiuDIrly5ork2Pufq1at8cjoccH7F8eDBg/Rw
ShEE+9NPP6XDXfCE4fZ5kF5BeNc06YQEJK2rDP5b9lIjELYnAJfDejCzuLi4
bNmyDRs2zLIzgxQUFBT+xpC8QyNGjEiHpIquiImJKVeuXK9evYKDg6tUqbJ1
69YMrfwVFBQUFIwjOTn50KFDiYmJr/IYo4KCgoKCgoKCgoKCgoKCgoKCgoKC
goKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKC
goKCgkKGxv8BIdCbHg==
    "], {{0, 79.}, {512., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{512., 79.},
  PlotRange->{{0, 512.}, {
    0, 79.}}]], \
"Input",ExpressionUUID->"396fc4ec-e788-401f-b097-7a331931de13"]], "Subsection",\

 CellChangeTimes->{
  3.7467908610581846`*^9, {3.7468324242091866`*^9, 3.746832424517336*^9}, {
   3.746843052499525*^9, 3.7468430528932066`*^9}, {3.8312217701906247`*^9, 
   3.831221770443915*^9}},ExpressionUUID->"fb68f174-0761-480d-8286-\
b2d051c00e53"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"Gt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"sigma", "[", "2", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
        RowBox[{
         RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
           
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
          RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 
   3.746807033746698*^9, {3.746833158416533*^9, 3.7468331856485023`*^9}, 
   3.7468431539447613`*^9, 3.746843201022601*^9, {3.746843415271546*^9, 
   3.746843436402978*^9}, {3.746844235753723*^9, 3.746844237161106*^9}, {
   3.8312217758416643`*^9, 3.831221784370595*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"64e92d58-7ddf-4c0d-a66c-e40958ed84e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"Gt", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, 3.746807034420087*^9, 3.746843154487341*^9, 
   3.746843454540537*^9},
 CellLabel->
  "In[117]:=",ExpressionUUID->"301f7b72-b79b-40c3-b9b9-a83453c38565"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBmKnq0JMbSxvHE92+ymB6F6++RrtQPpO48UsPuE3jj+K
rMT4gXTdXLtGEN2X/XEFiD77Tl2qsvuNo94zpSMgekrWv1cguli55cu0njeO
R3J2Ni8H0huW3Uw+0vfG8cPc1NjTQPrY5XDV0OVvHCuun1ySCKSvnlV4mgyk
razF85uA9Gu9hCdrgHSMg3HJLSD9ycJtTfmqN46ntEoNOzcB3XF0+8f72944
as19pHtyxxvHRVnpP84B6TWv7mheAdK7zN2fqex842j87b+1LpBe0Or4XQ9I
n+75tbwUSD9q2qlWBaT7zSYdrwbSe7hMDWqAdESLV3EDkOZcHrd/PZBe37la
8AyQnmNoWgqi1XaXLT0HpI9sqGu5AaRdG/kWgOgFRZqP3wHpG1Kvnn8F0td2
3t3utOuNIwA8Qr8y
  "],
 CellLabel->
  "Out[117]=",ExpressionUUID->"37384117-fd98-4999-9363-2b42b8208e50"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlwTtf7xxPSIiERQawlQkSIaCmN2KMkxBYhdi3SpgnaIrbal1JELLHv
ErHVnoqhGluI6AitWMZWpqI6tmlr1LQd/09zfr3z/t/l5r77G+53pp1437uc
e87zfZ7v85xzz+sz5NPIj4o5OTmNLsn/Ij8c13bUqA8n9CzLP3qNHP3JxyNj
hoWPHBPzccyo94YU58P2/FfV2cnp379fqlChQoUKFSpUqFChQoUKFSpUqFCh
QoUKFSpUqFChQoWKVw6PHj3asWPH7NmzV6xY8f3337948UL++CdPnpw8efKv
v/6yTfNUqCgqyM/Pj42NLVGihJMGatWqtW7duufPn+s9Bca99957AwcOfPr0
qY1bq0KFw+Lvv/9OSUmpXLlyuXLlhgwZkpycvHz58piYGNgkaFW3bt0tW7b8
+eef0ilXr1795JNP3N3dp0yZYohuKlS8hvjjjz/GjBnj7e09f/7833//XfMr
GLR58+Y6deoIWhG8Gjdu3LFjRz8/P2dn54CAgMOHD//zzz/2arkKFY4G6DBr
1qz333//2rVrho559uzZ6tWrGzZsWLx4ccEsf3//xMRELfapKIrAnT5+/Nje
rXilQBhSWFKAWfDO2HQpNzc3KCgoMDDwxo0bJjVQheUhFHuzZs3atWvXtm3b
qlWrhoWFHTlyBPFvqVvgq/HDXl5ew4YNk0kKMKr4+HhXV9dFixbZXe1s377d
09Oze/fuT548sW9LZDBv3jyCWrVq1RhEe7dFxb/Iyspq3rw5xiM50ry8PNLk
N954Y86cOZYq2CJgoCpD37NnTxlC3bx5Ezpz2PTp0+1LqBcvXkRFRdGSFi1a
OHLUvn///po1a3744Qd7N0TFv8BUMJjatWvv3r1b04CXLl1arFgxNzc38mJL
3evcuXPr16//9ddfZY4hJmZkZGzcuBHxaan7mowrV67QD7du3bJ3Q1QUGWAt
qAX8cKtWrTTV+759+0qW/PcVVhSFHZunQoU1QOw4evTotm3bLK6CUGKxsbHe
3t4QRzNj2rJlC5KvePHiJD6axyOEEBjnz5+3bDNU2BGv2+IN7BwbbtiwIZLJ
ZnccM2YM4almzZrIHq1v9+/fHxAQkJ6ebpvGqNCLCxcuhIeH+/n5BQYGfvPN
N6Zd5DVcvEFI4umqV69OZmGzm166dOmtt94iQi1ZskQ3JvIJBK9aterBgwcL
vRTc3LRpU5MmTWrUqNGtW7fbt2/rPSw7OzssLAzz4Elnzpz57Nkz85/CNDx4
8GD48OF4jCpVqvTs2dPkBAo/P3To0FKlSpVUAHJVHx+fNm3ajB07FqYUqkOu
XbsGmw4dOnTv3r169erRb3fu3DGqea/t4g2UHk9NamybkhcdePjwYZwe/bZs
2TJDZXPC/bhx4xhHqCd/wa1bt0ZGRjLcIilj7HQVBXds3779sWPHuGxCQgJE
Xrt2rZLWcqkPP/yQppYtW7Z8+fKVKlWC5rgCWAkdKlasiLV4eHjw97fffqvk
gnfv3qW1iYmJ9MORI0ew86ioKNPYzXjl5OSkpqZiqxBTmrTFsXB9umXHf0hL
S1uwYEFcXFyDBg3EMc2aNTt16pTMU48YMUJMK1y/fp1H9vLy+vHHH5W37bVd
vHHz5k1/f/8ePXrYYNL88uXLwcHBpUuXphvLlCmDv5I3pF9++YXQj1OVqdrB
ow4dOiAS+Js4i1HxT63L4mxDQ0NPnz79ssAIJ02aRAM+/vhjJRKd4wltpJZc
fO7cuTRG0i1QDBPFJ+CH9+zZQ2sLvRoNw0VLueTx48fpB/qfKFDoufKgizBL
0TDCnyE3xeNkZWWJyQW8Cr5Fb6kzLy+PY0ToJPpzJAQkD1LYmNd28QaOiAiL
mxUGaTM8fPgwKSkJW/L19c3MzJQ5kjQKH44AMGQhK1euHDZs2J8F6Nu3L+My
efJkTf8Ga0aPHj1jxgxxBQ7DmXPYtGnTTHCDWD4uVBgAutHYK/A4ERERkmWu
X7/excUlJCTE/Fld0o1WrVqJho0aNUp+uhxjxqtAEw4m/uqmKsjmAwcOcBHo
1qVLFxMe1tqLNxwTxFasGodml3LKxo0b33zzTfw8ysfQMQxo9+7d0Vpnz57V
ewAqTkw4ogzRY1ztzJkzmgfgNHbt2iWFj59//hnpjjLcv3+/CW2GCwRNYbcr
Vqww9nTaJj0Iff7RRx9xHcKc+f3/22+/KSfUy4JuIZlCYolgbShhQVKiaen/
3NxcM1v4yoMhIK0gPJGi2qUB+fn5QtLjoolZhg47ePCgq6vrgAEDZLJUnCd6
DPNAZshrBgIimpMkyLRSwOPHj80hlCZ45CZNmhAmSCjMuY6AsYR6WVCaDg8P
F1kMzk33AEke49PsWMMpKiAuYFq9evWydjkF9wtnddMEVIGQE0RJsglDp4ug
oBt6tI5B5KPGV61aJd8YcmTuSAqsN3fIyMjo1KkTWRixY+/evbqBo1BCkctA
bVQlzoq+lamo4PM9PT1x/hZZ0mMCoV4WuBd3d3dRx9Zd+EpYDwoKgvKpqakv
C+YTjS30vT4g4n/wwQcoLtJta9+IHIch8/Hx0VpayVe9e/fmKwQY1mvoCiL6
cNhnn31myE5EFOMWN2/efFmQ6ehdGgeFIyMjuRRJmd6MgLMWLVqEdOSYYsWK
TZ8+XeuO8oTC50NV8W39+vV37NihWRPWgiihBAcHW2QVn2mEgiN4D3EWaaZW
n+zcuZPg5e/vj07mn8nJyQkJCRZczPwqIS8vr3LlyjVr1jQ0a2MpYGMtWrQQ
YYh8R/MrYgRunK9w1PJVkdOnT3t4eNSrV09vNUxMx0iFOy7br18/vRORGIaf
n1+pUqXkp4whgpiIrFq1qtakszyhSNakE+Wr/bRT+BmZipxRMI1QL/8L2aLI
dvfuXc0WxsbG8vnIkSO5Gg/eo0ePo0ePmt/UVxIYA+6xa9euNtB7WA6Uwdvr
VrOrV68uJLp84iNqwgSyffv26X4rZh6JUIJEWVlZKEm9lfbvvvsOlVujRg35
BAreYV00zMXFRSvBkSEUVkcMFV9FRUXJxKaXGglUSkqKzGHKYTKh4IiYyECu
bN++XfqcK3z++eeEaVQ0f8+bNy8uLk7NpPSCsUbe04dz5syxwQwaCRRSHPPT
nG+lDbg+2uDr63vx4kX5K8DKIUOGcPC4ceN0TQWp36hRI29vbxiKoSIj09LS
dC/Ck4r3esLCwuQNg29F6NQVhzKEklJCJUVmIjJOpkKFCkbNlsrAZEJdv34d
raJ3Aou24VhwZcjC6Oho+TX8Wrh//z5MlC+GM15IC2SSs7MzqdzgwYOL6Kp7
XDodhTjZvXu3sediNocOHZo9ezZd0adPn2h96Nu37/jx4zX1A5TB2N555x1U
2fLlyzHFNm3aECLRZgr7cOHChYx427ZtsRytr8TSqbJly0ZERDRt2jQxMVGv
OdFyRIuSGSiIL46UBI/0lQyhaFjr1q3FV8uWLZN/nDVr1vD4zZs3t9R7hSYT
ShiDOFG3e1EORHyGzyhdikciQ586daqhs/h85cqVZAFO/x8NGjQoii8Fnz17
FvMrV65coaFBE+Qm6G3xal6hQD+QiWhdAY9HYvt5AdauXUuWoTw+IufIfVBr
hpI+DCMzM1OTxVqQEqhC13kSEPGW4kHwG5q1PhlCPXr0CDrzOUzRW4XWvL5I
+kaMGGGpHN9kQknNBoayVGOxZ8+ebt26GVpZwaAz+gwEeXFMTMzWrVvJPfHA
aAwn2dKTw0K8N4F1ieqNEpCbS+NFP4gVQV5eXuITroYq6Pkf+vfvv3jxYt1Q
Yg7gPhqJW8sUz+WRkZFBnlWnTp1Ca78MqJCjgBiqqVRlCCWUp5NOMqILUY7W
63NMhsmEkqpGgJTWfNGF6kaNyHgtQh6WEx4eLkqyErAxIlRAQEB+fr7CezGU
KCKUT5DZYOxatmxpwohIVWjlq7MIJUIVkO9wR8ljM4ikGLAJDYwItGo6RmAi
PCmXqVjU119/jSgVhSn0nsjClBgbD8JzCRvD02qWF2QIRXAUCz51p9XoQEIS
WlRwE7rxIG+//baS5X8KYTKhSHMwJHFilSpVzFdc27Zto9MMuVMxmwwL9Grd
lJQU4pTyV+EgFA48MDCwvtmAyzCCcGns89LVKA2ngslNJUUb2szQczzC4Kef
ftL6Fh0o0g28xIMHD4xtjHJwcZoBc0nBlByPYQh1OnHiRDwAHUV4CgkJkdGE
mti0aZOLiwunk+ZozhPJEApBi4oWZkmmL30OH8XGEe+++y7em0wcJ4yLVvJm
inKYTCieiGcUJ9asWVN3iI3C8+fPyaDJjwwdgBgm0zQkja5evYrrPnHihDlt
sDFwkgMGDHAq2Mmk0BcnMQax3oyuNjSxgoUXK1aMpCwnJ8cK7f0fpHFXuLMK
zr9x48bYbVJSUnx8vJubW+/eve/fv6/wdqIK51Sw1Y+m05Yh1M6dO1FxTjqp
PbadkJBAYhUXFzdv3jziLKmKzMoQ02AyofBUOENxIj1mVClPF8g24p2hMCcm
s2Reu8N70702e8vVIpBKWGQ6hRIqPT0dx44xLFy40JAZIwIxJJOXmyqEVEOb
MGGCQmvBDWLAsGnOnDnGVqe5Xbt27ZwK1rmRMkufGyIUTcKMxee6Sw7w22lp
aQgDGk9yUWi3mwCTCSW0tDgxMjJSfvqsUKSmpmJdhna/2bNnT2xsrMzUp0jV
zYySNgY9FhERQe+RU8gvcqZbEMOFFn82bNgA4zA8ussK7f0fpLkhm1WB1q1b
J15wwPNIZmaIUNJrHYWukbASTCYUCQvqQpyI/zEnEeam48ePN7Ssiz7Eucnv
cIUyRx47wm5UyiFFqMGDB8sTKjs7W3S1zAouKX/XXVlkWdDJoaGhtiQU2bpY
jI32k1S9XkLRCQTBYgWYOXOmXaq+JhNq8+bNwm+QAJqptcQC0TVr1uj9Ni8v
j1xDZuEikatfv36LFy82pw22B09Ns+nA6OhoGe2BkcyfP9/Z2Vl+4ga3I6JY
9erVtaqgloX0Ap3exRJWwuXLl4nOop4gYrReQuF1xQyCHTeANY1QGIA044ZV
mLkOTax2NlQ1WrZs2bRp02QaduDAAfrZWCsiL75w4cJ5S+DatWsmqHFpVpHR
lxHMXFm82Sq/gPbWrVs+Pj4c1rlzZ6tGaunNvi+//NKWGw6g34KDg7lvo0aN
cnNztV4wpDPx8BUqVBAS2o7bKZtGKKKGqIW6u7vLvzqtBGI97bBhw3SVD4p9
4MCBUMbQueRNzZo1IzwZNbiMiKisWgoTJ0409qlp8OTJk50KilEyS1KliNCy
ZUuZFVmI3jcKsH79emNbYhTy8/NJUsRaTaveSBc4iqSkJByLi4sLfSKtfOvQ
oYOYUAgJCTl48KB95/dNIBQ+U5q/RkhbpFQi9qrSfXfgypUrOCJDW0wQZdDz
GKTMe6Z6QUhNT08nJi6zBDZu3GhaPWT16tVYZlBQkMzEolRVI+Ey1NVYWteu
XTkGH25sVxgLsSG5tWuJMqATTp8+PWPGDLFCxqlgIm/Lli0KJ7asDWMJhV/d
tm2bq6urU8GOvmZWyyXcuHHD19cX7mhZJv62TZs2ehOoixcvNm3atE6dOoRL
i7TB9hDr4qpVqyazzkR6+4//GyIUuUPp0qXd3NysWt8TyMnJKVu2rKenp71e
2Bew4CvwloVRm7TAph07doiKU5MmTTSnoc0EV0a2Ecpr1669b98+aWMcErRB
gwZpGRJt/uqrr2gGpli0JnO1gCtA9iObT548KXNYcnIygQzHoncZCUk6Y8EB
U6dOtcEeL7hThGWDBg2UT85aA2Zu0mI90DAyetEw+TW3hNSYmBixDiQsLEz5
ek6FQIaNHj1abA5Wq1YtxCTkrVGjhrQ4DVpBHz4Xb0ajlIr673qIBcY88rp1
62QOI2r7+/t7eXnpVlNx1EQu2ES32OClMwYCrUXn9+rVy8yZRzMBnRs2bCjs
Fu9qx5YIEFyOHTu2d+/e+Ph4Uf12Kpg33L59O97y1H84fvw4HmnOnDkwSBxW
pUoVRl9JZ4qFW+h/VJmfn19sbCyUTElJOXLkiKECAnROS0urWLGiZr6PvIRW
Hh4e0icI+ISEBGsnCzYAXUT/OymY00HLEcjIvjX9GKIXdYHYW7BggTUm/XUh
9oJwdnZOSkqywe20QCqNTaJvU1NTo6OjpY0ZyelmzZqFsMnMzMzOzlZe4iNh
IawTbevWrRsYGEhKS4aIHjB2YaokyxWiRIkSJDg4pV27dil0gw8ePIiKiipT
psyqVau4HdFn7Nix0ApfGhoaKl/XhXf0j/SylSYqV648cuTIy5cvG/W8jgyx
8Az1UugOITgihh7jGTp0KP6kffv2iN7+/fvbsjfu3LmDJi906wlrQPNlQwlw
CovS/ETJa1YCWVlZPAs8Ehv03b59my4VWwEkJiZa+WmMA0omPDyciAblpWCE
axVzc59++qmSWqIYOx6Q+Lh06VJc9KVLl4ruz2oYgtjvUaGJ0m85OTn06vLl
yw8dOmT739pLT0/HYjt27GjZd6xsjzNnzqC1atasqbm2cPfu3YgfFJFl15+b
CQZ94sSJEKdTp06a3S7291C+nSBPR2Ts0qVL0d38XwnoLjJHRNTcuXMdfGN2
MV1oqQ0h7Qjkk9g8UOu3fcU2KSbvvWkl5ObmVqpUSdqUT8L58+eV74bB2A0f
PtzJmCXNRRfnzp0rX748qk/5JvB2AaII5Y9GUv4ipwMCBsEj2OTj46NFHIVb
x9gStHbmzJm0CpprrQXasGGDi4uLwt0w8CGNGjXS3TzqlQTeIy4uDillr6lS
JRDzGvhJMxdC2x2Yn3gxNjo6WrO2Jr1+aNqPF1gJUBuC69Jc2qxP4XaCYt82
Dw+P7Oxsa7bXUZCXl4cLcuTc5N69ew0aNCCMWmoq316gq9EDaOwlS5Zofi42
FSx0700b4+HDh2JWS2spstjyWpLfeAkZ2SAtcjNq95IiDR45OTnZzc3N2hsy
mwaaN3v27DJlypj8e5SOg8zMTB4Ed621+eqJEyf4XEqg7t696wg/kPT48ePg
4GDoj3lofn7x4kWvAvAHozN9+nSZrR2l7V/at29ftF5xMgc86cCBAwMCAhwq
IxY4c+aMt7c3TtI2s11WxalTp9zd3QlSWtMNCxcuFD8awkBgxt26dXMEdSS9
kkDeJ32I9hPbR4v9Q54+fYpYlVkyJBbkKC+wvzIgaoeEhAwaNMih3AhD1rZt
W4bMYeWoUSD0oHzKlSunWRy7fv16/fr1MbkxY8ZgcmfPnu3Ro4eD1Ihgiqen
Z0REhIiYhJv4+Hi0d8mSJVu1agWbDh482LdvX5nRQTf26dOnc+fORXfVq8lg
lIOCgr744gsHiQUMInGzXbt2Ftl30REAX6ZNm+bi4iL9ljGqKTQ0VGyQgrKl
58ePH69VUbcjaMb+/ft9fX2RbTjbxo0b00hi6IQJE1xdXcm7IVdWVpa9m+m4
uHr1KhFhxYoVdh9Q9MakSZMiIyPtuw7W4kAATJkyBRVE2O3evXvz5s0zMjJu
377dunVrlG14eHjPnj0dbWEbNIf4aG/NSISXI34V9TKRDYBIdoRqDIy+c+eO
g8RKiwPtRD6lufyG4IUoInWy77pfFSpUqFChQoUKFSpUqFChQoUKFSpUqFCh
QoUKFa8V/g/sFVaG
    "], {{0, 68.}, {283., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{283., 68.},
  PlotRange->{{0, 283.}, {
    0, 68.}}]], \
"Input",ExpressionUUID->"892d95b8-e6de-4e6c-9b76-00ef3a10e31e"]], "Subsection",\

 CellChangeTimes->{
  3.7467908910396624`*^9, {3.7468324454768667`*^9, 3.7468324463204355`*^9}, {
   3.7468430674229355`*^9, 3.746843067807335*^9}, {3.8312218061175375`*^9, 
   3.8312218063679314`*^9}},ExpressionUUID->"55b511a5-a1aa-4913-aca9-\
4f98c2c59af2"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{"\[CurlyPhi]", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"sigma", "[", "3", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "aa", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
     "Simplify"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, {
   3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 
   3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, {
   3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 
   3.7467915012213964`*^9}, {3.7467915468503184`*^9, 
   3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 
   3.7468070357928214`*^9, {3.7468332178827024`*^9, 3.746833221181451*^9}, {
   3.74683326704038*^9, 3.7468333082124023`*^9}, 3.746843155512896*^9, 
   3.746843208752458*^9, {3.7468434808237886`*^9, 3.7468434845506597`*^9}, {
   3.746844250869506*^9, 3.7468442524680195`*^9}, {3.8312218102015796`*^9, 
   3.8312218190005817`*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"d15c1112-ccbb-4114-b23e-39e8a5e42b27"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"\[CurlyPhi]", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, {
   3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 
   3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 
   3.7468070361321363`*^9, {3.746833379249485*^9, 3.746833404789989*^9}, 
   3.7468431561043444`*^9},
 CellLabel->
  "In[119]:=",ExpressionUUID->"8be4f7fd-52bd-4ba0-a4b6-18a5133ea689"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBuKJh4WZ2ljeOB6f5a8EorepLtBoB9JWXy5n8Qm/cZxV
ZiPGD6SffXNoBNGNRp9XgGhLF02pyu43jr+yWU6A6KWl/1+B6CcarV+m9bxx
DP60q3k5kJ6tdjv5SN8bx8dz02JPA+lVlyNVQ5e/cbx659SSRCDNxav0NBlI
N3yVym8C0jPPJz5ZA6SlHExKbgFpnu3ua8pXvXHcvKrMsHPTG8cC/50f728D
6pN9qntyxxvHM78yfpwD0umF9zSvAOkH5p7PVHa+cdT7xmijC6TVeJ2/6wHp
Xz1/lpcC6RNMe9SqgPQEs6nHq4H0zedmBjVAWovZp7gBSF+zSdi/HkiHnF4j
eAZI51WYlYLo+0EVS88B6SuezS03gPT8YoEFILrjk9bjd0Ba6sSr51+B9BHL
+9uddr1xBABGG7wU
  "],
 CellLabel->
  "Out[119]=",ExpressionUUID->"0d4804b3-b95e-4757-abfd-3e91d34bfdfa"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlQFFf+x0cRNB54ogKKF6JAVFzPNSIit0ZRBKKrRMUYNbp4IhoPLjFG
1MUgugFFgxceiGZVLLzAK3Gl4oXXBk2ksrJQEq2gJandFP/vf36Vrk7PdE9P
9zAM+j5VSeFMT/fr7vd+39/vHb/XLXJByMcNNRrNkib4X8iMGO/Fi2esmNgK
/wiLWjJ3dtSsj4Kils6aPWvx0EgrfDgB/zXE8f//dw2DwWAwGAwGg8FgMBgM
BoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBi1QEFB
wdKlSysqKuq6IAwGg8EwK0+ePFm+fHmTJk3atWv38OHDui4Og8EQpbKy8tCh
Q0lJSdu3by8qKvr111+lj3/+/PmlS5f++9//mqFs9+/fT09PT0xMzM7Ofvz4
scHjYW3u3r1rhoIx9PLs2bPo6OjRo0e7u7tbW1u/8847Go2GqQCDYbE8ffp0
zpw5jRs31vDo3r37zp07X79+rfcnkImhQ4dGRES8ePGiVst25cqV4cOH8wvW
oEGDgIAAfP7bb7/pHg9VyszM7NatG1RD7wEMM1BRUbFy5UqEALt27YJqz58/
n6kAg2GZ/O9//9uzZ4+9vX2bNm0iIyO3bt26bdu2WbNmQQLI5Pbq1Wvfvn3V
1dXcTx48eDB37lxbW9s1a9aIaYRJ+PnnnxcsWABP0s3NLSYmZseOHevXr58w
YQIurc2f2nDcuHEQI+542P/Tp097eXk5OjqeOnWq9grGMArUsb/+9a9MBRgM
C+Tly5dLly7t0KFDcnJyVVUV/yuY/aysrJ49e5IWIEwYMGAAPHAXFxe44jDL
+fn5teppw1x4enp6eHjAsAsuVFZWtmzZshYtWlDZ2rZt6+3tPXLkSDs7O0jD
Bx98IKfLiGE2mAowGAp49erVvHnzmjZtmpKSUkvGFqddu3atn5+fRMNEMdLT
0/v27WtlZUUmt3fv3ps2bRJIhslBFBAYGLh8+XKJC5WWli5cuBBRDBUMIQPu
BSEA6wWyNJgKMBgKePTokaOjIxpOfHx87Zk1OPwyx3YhB2i/tT0EILiizCMr
KipKSkoMjmUz6gqmAgyLBZUzIyMDDqSHhwdM7rRp02q1l9soULa8vLzdu3e/
fPmyrsuiEIgX4oi2bdt+9NFHlvNgGeanTlQAHgtadOvWrQ8cOCBxmBmCboaF
c/v27bS0NBcXF1TRRYsWobrWdYneHKqqqry9vfFgJ06cyFTgbaZOVODGjRut
WrVq1KjRjh07JA4zT9DNsHDKy8sRC1hbW0v7DAwFXL9+PTMzky0XfcupExWo
rq7Oyck5ceKEdFfhGxB0M9QDSwWfoX379myREYNRG7BxAYaFk5GRYWVlNXz4
8OfPn9d1WWq+/fbbwMBAFxeXzp07JyYmyh8hZTAsljdPBX777bdz585lZ2cL
OpFwpykpKe+///6Y35k/f35lZWVdlbO+cOfOnUmTJnEPLTg4+MyZM7qHnT9/
Hs/c5MkKcMKZM2eifi5YsKDOBwXy8/N9fX0LCgpQqujoaGtra+kuTQajXvCG
qQDNKunbt+/169cFX/36669/+ctfcKe2trattMC9LCsrq5Ny1iMuX77crVs3
emJNmjRp0KDB3//+d93Dnjx5MmLEiBUrVph2nLGiomLAgAGwt/v27TPhaRWA
1uHj43P16tUaraexatUq1KXZs2ebJ0uPCUEb+eqrrwYOHNilSxdo+g8//FDX
JWLUMaZSgR9//BHeWteuXXEqGxsbZ2dnPz+/5cuXI4LmfHJE9DjG3d3dyckp
Li5OzFwoDrpxoZ07d+JXeXl5ut+SCsCgoajK7pHxj3/845133tGrAjXaqKFX
r14xMTEmnBlOgwJ2dnaHDh0KCwvr168fKsb48eOLi4tNdQk5wNQvWbIkISGB
4pHq6uqJEyeiqqMa18a8BVRRNJMm8sDzcXNzGzt2bGpq6n/+8x+DJz9w4EBI
SAhU+/jx4/h5ZGSksvf19ddfOzg4oD4YLGHTpk3RKr29vSGaOTk5bD6SpWES
Fbh///6wYcNg4eGwrVu3jp9aClWU3HIYc1wIraaqqmru3LlQCrRr3VOpCbrP
nTtnb2+PtqC3YTIVUI+0CtRoX1/Hjh3xykxlG2lQALXF1dUVV8dpf/7556Cg
INgfeAvSv8UbnzFjBoV+qN4omKOjIzwQWCT8vH379m3atGnZsiX+Pnv2rMFT
wXxxNvann36C3sG+wRKa5DYFoLGcPHly9+7d69evh/Bxrcnf3x/P9uDBg4d+
B8fEx8dPmTIFN0jrcz/66KOnT5+KnRnGHyeh3D5wmfBs8U9loxt4GkePHt2y
ZQuaM+w8V8Jdu3Yd+iN79uxZu3YtQsWGDRvS6ubz588rfzoMU6NeBXAGuH94
y1zDxx9oVn/+859xWk9Pz/LycnyIRhQeHv7ixQv4UXBFGjRogPojOJWaoPvR
o0eoXRMmTBBb0s5UQD0GVQBvasWKFXDdoePqL8cNCiC05Cclg7MBc4e3yU+h
pguqEJQiOzsb5g7mdOTIkXzn5JNPPklLS4OBys3NleNC87lw4ULz5s0hKGbI
hwPfBtdCmfHkT5w4IXYYLDnML82shi+E5qZXiPHuIBPVWiZPnoyDV69erVKy
8RAgrPRU//nPf4odRj1RzZo1w5HQ39OnT6u5KMOEqFcBGHY/Pz/UQN2vnj17
RsEmqiiq3P79+/F3SUlJly5d4KFdvHiRf7CaoBtXgUMC745vK3SPYSqgEoMq
UKPNgQz3FbGh+lnoNCjQqFEjmHH+56dOnYLz6eLiAp9c/tn+/e9/u7m5kQok
JiaqMX3Jyck4SUBAgBnmMF+7dg3WFZfDLRu0nPCFRo0ahYNhbNEkde8R6nz7
9m38UVxcjOAIZ/7mm29UlhABINn2gQMHoslLHIk2vnDhQnoFgwYNYusULAT1
KvD8+fPhw4dLe+xQgcOHDyOWx99wwBCHIkYQTPxTE3SjHrZo0WL+/PkSZWAq
oB45KgC2b98OX/3zzz9X6WRygwJ37tzhfw6XEtIAvxdGT/7ZKisrhw4dSiYI
JVRcKgpmcZI1a9aYYTEjvGv5KlCjFbvBgwfT8Xo7XWu0URKCI8Tj8N9U5p2j
lHf0VBG4GQzbudBG5u0wzIB6FUCjmDBhAvyKmzdvGjwYgYO3tzeq3+bNm6Vb
kPyg+5dffvH19UUgIF0ApgLqkakCZWVlCAd69Ojx/fffq7lceno6HAaEFXyH
gXogqXsZFk/+2eCEmEQF4J8gDJHunzEhxqoA/YQyeTo7O9+/f1/3AAjikCFD
8Gy//PJLlcV7/fr12LFjcS2cTc4QHmKQNm3a0O4DGRkZKq/OMAnQ7jlz5lBP
nbK1mTDmGzZsIE9Aup8WFBYW2trawou7d++e9JHyg+4zZ85AL8LCwqTnHjAV
UI9MFUCVWL16NV4ff7TIWFAzP/nkE5wE/+d7mBB9yn4zfvx4/hvPy8sbPXq0
v7//xx9/fOzYMV2n1KAKVFRUwEOeOHEinApUJ7FpSOfPn0d969Kli3mS5CtQ
AQjlypUr6U6nTp2q2y6oSw1tgYIpiCnF6QpAa4Lc06CARH8sx8WLF2nfAURz
e/bsUXZRhkmAcwWHDc7/wYMHadMiSHlUVNR3331XWlqK5mDU5LFr1661bt26
SZMm0pO6UTmpV3DKlCnQC/wTlVDvheQH3fj59OnTbWxssrOzpQvJVEA9MlWg
Rmu7UCUQERg78MqB9wU7D49R4K8i4kPcqjt5DHYsJSUFMSn5mfHx8YJVZtIq
gBYBl4O+dXd3P3TokF6XhvN5AgMDzbNwWIEK1GhTddnZ2ZFxvnLlCv8rPFga
c6deXHhZaBcnT55UVjwUiSYIDRgwwGA/P54evLsGDRrg+A4dOtAIBaNOQIVH
lM3Nl6CZeGhW9HZovtnevXvlnxAVKTg4GD+EgyTowuXz5MkThNIQi9zc3Bpt
usgxY8boXbclP+hG/ILgt2vXrgYXvzAVUI98FUAde++99/Cujx8/ruxaeF+T
Jk1q3Ljx0aNHuQ9hRuLi4lDTYM/12hxYb9qcF/GmoDNEWgVycnK4H0osRqD+
T5mTFkyCMhWoqqqiYWKA4IgfGcHzd3V1xdnI8kMjxo4dq2yg1thBAbgEEAvu
eINdB4z6BZoqmjz5SGL5XhCn45i+ffvC8qP+rFu3bvXq1XrTAsgPutGcoWLj
xo0zuBSFqYB65KsAXuuyZctQH+bMmaNsdS1ZGDgkNLWMgOijViAWKCws1Psr
+A+9e/emDoesrCz+VxIqwEWpIDQ0VMI6cf6JYufZWJSpADd6QqMDcMC4r2CK
PTw84Io/fPjw2bNn4eHh/CdsFIiG3n//ffIk09PTpQ9GNUBoT66mm5tbSUmJ
sosyLJYXL16Q74G3HBsbq9e2U/AIi41WBg8EAbje0UP5QTfOExYWhiM/++wz
ObNJmQqoRL4KgMOHDyPGlNNRIAZsvpOTE94aVQOEe4gv2rZtKzFtDEf6+vqS
9RN0J0qoACoSDXFqDE0izcvLQx3u2bMn367WKspUAOzYsYNWaQlialpij3PC
gA8ePHjTpk2KEzShKVF/Mrc4VAxcAs+cHEXI6I0bN5RdkWGxoEXAsaf6AFq2
bKl3beAvv/wSEREBJyQkJATtUdBdySE/6EZsC8dP0GkghkwVQKObPHkyCokC
dOrUCXGrRDwCFdu7d29dZZLBg9q3b9/w4cObNWsGn7lPnz7Jyclig+l4kqdO
nRJ75jIxSgVu3brVpk0bmYOGYly4cMHd3d3b23vSpEmOjo7jx4+XnsOAt0yV
B0RFRfHtm4QKoGZ6eXnRV2lpadzn+PmRI0dw6XPnztVoH3hkZCSOWbx4sdlS
2ylWgdzcXOrjArqzdtF28GxLS0vVlI00Eef/05/+RItD9YKIY8GCBYjOaOt5
o1Z5MCwfNB/YatRSf39/1Do/Pz+qdUFBQfhK93i0nTt37ly6dEnvt4T8oJsW
1MDUwOAYLKpBFXj9+jWiGLivmj8C43P58mW9J0Td3rhxY53sgIO7wDPX6IAn
r3flDto73o60w2YQo1SgrKwMwqQ+ERxEFnWmoKBAzkAzDp42bZrenmoJFais
rKQ59lZWVrt37+Y+LykpodW4n376KU514MABGD3EIyqNp1EoVoHCwkKajaOm
X04CVHvETXT+GTNm6J4fDgkazpIlS+zs7HALaH0XL15k20W9YSBCh5OGyvnF
F19QHcjJyaGgDx/qTekmB/lBN2USkLmGVFoFIAFczzCcFlwdLigsHn0CV0d3
ajos6ogRI4xauGQq8OS5UbbmzZv37dsX9wULRp8sWrRI0CTR9BD4qx+PM0oF
YAR8fHxQnoSEBLO1fbgZCAHoOeB182egSagAdZVrtIkQDx48yP8cz7lt27Z/
+9vf5s2bh5grPDzczHloFavAN998g6ic7hceuMk3f+cGBahHqMsfsbe3J1PQ
oEEDHIa4w/KTyMHg4EGhsfdTDaqTp6en2Kq9N4bHjx/jTtFqMjIyuDYOn4rS
B2lkJ4RXHHTT+kccOWTIEDnbBEioAE6VmpoKQXF2ds7KyuJMJWwpdM3V1RWR
7IYNG/imDF/B2K5atcr8Se8RRgUHB6NxjR49GtEQ/+HHx8fb2tq2a9dO4PM/
ffp05MiR6lN4GaUCXCpvwRyVWgVPY82aNVQD8ZT4qiehAvDtofv4HM6zYNwZ
DgZePSTgs88+k5j/VnsoVgEu9QSYMGGCyVWAGxRAfROb84mLohho3WhBaHoI
piw5ETdUYOLEiQhg3VXz7rvvwi5Z5h6py5Ytm2gk//rXv3TPA4ND3RFz587l
NzTyOWkagJeXl0S3D4fioJtb9RwQECBn5raECty6dQtlQEvRqyY4Htajf//+
/J7P4uJiFNLM+Y1rtE84LS0NTumWLVv0ChAMdevWrRGG87+F0UNLVJ/0xigV
QAFQDLygMWPGmNMPpPwSuO6wYcP4i6EkVADmnRa0Ojg4qFzvbHIUq8CVK1fg
EtD9Tp061eQqQEvPNNpZu9KLznBpSDMNVSMgVZmzgqESrhtBPrrJptC6165d
i3eKuE93fToXh8KFlrPAX3HQjaqFuo0LQark1HAxFaA1qrBUEgHF1atXcbNc
HxeeAKKAqKgo8zs2cE0RsSYnJ4vFIJCJpKQkPFKuF72iosLX19ckOZCNUgGU
JDY2Fi8IcmnOzSKLioqggxrt4D5/OqKECtB0Jnzu7e0tx3UxJ4pV4MyZM5Tk
DcTExJg2aMXLTUhIoJMLFnfrBR4UGR8rKyu0dDY6IA3c2pfqkHgjcA9OGolu
+4XjBJcJL1RvfwiN7eLbHj16yJxNpyzo5maDTJkyRY0KPHjwAPWT0lmLgUeK
qIfr43r8+LGnp6dEEt3aY+fOnYGBgdKuF57n4MGDubH1/fv3BwcHv3jxQv3V
jVUBvFCNjFSTpgVmnCYtN27cOCcnh/tcTAXwThcvXkyfm3MIQyaKVWDv3r3W
1tZkeAVJWdUDMwXHSaMdROOPp4uBh7x06VJ6yNITit5yzp49y43mqAQmq5bc
VC5FCdwtvWaQsgHjgD59+tTqOFp1dTUNTkVGRsq5WTEVgP2HnBnssoABDAgI
gCWBlfjiiy/qZOUjHj4ubXDICU8DghUfH4+iIvoOCwszaiW4BEapAIDXhxek
Jo+EMmD0yABSrhL6UEwFuIzT0quG6wrFKkCLbqipqpmsq5cffvgBTQknRxQv
Z4YeQNXlysNyR4iBB7tw4cLQ0FBju+4FREREHDt2rJZcGog4pFwidobXN2jQ
IDP0A3CxwLRp09SogEzwK9wyLbf09/c3Tz5JxRw4cIAMYGFh4ciRIyU2nzIK
Y1Vg06ZNdaICCHyCgoLI4HDbWOhVAQpYGmpJTEys8w3udVGmApR/g24W9dYk
kSAfblBA5twM/rRS+LoG94ljWDLwnClg+fTTT/U2GVrJhQOmT59eq93m3BQU
mbPgVKoAnOqQkBA0Q1jCwMBAOTW/Dvnuu+8QucD4w6+IjY01lUtgbI9QUlKS
Rl6eMZNz7949V1dXjXY3Exqf0qsC+fn58GY12gyl5hy8kI8yFeBSfSImEmTS
UA/eLCJNepIyVyJwrRXIyfpVV5SVld28efM7UwCP0eQj8ubhNy0SB8DJtNYi
NgmKplvo3VDStHDbEaL9yumcUakClIlx9+7ds2bNsvzhLbQyX19fuMEIBEy4
Wt9YFaD80jJni5mc4uJimrfs4eGBhyDYZQb1B+aREm9GRkZKSwBMMaLswYMH
d+/evU+fPuacR6RMBfCOaKIUymzyQZlXr16NHj1aox0U0LvJoC4lJSXUg6TR
LjGzTPOISkJTxUwFXOW6viejQdgYHBws3c2+bds2WHhbW1uxXAQHDx60sbGB
f1XbqUI4I4OAV87cM5UqQPMeFy9eDLuqbDsecwKXxt/ff/ny5dOmTTPhLE2j
VICG1PGCKHOUqcpgFC9fvoRkw/mEvRoxYgTtvaLRbpLev39/jbbf8tSpUwY7
gsrLy/fv30/ZzqEp5uzgUqACP/30E+1Z36JFC7wykxcJPgYeqUa7KYmcvaXw
eLlFHLgXvZkAUVtQXfGCBKta8NuMjIwpU6bwE7nk5eVB3Tp16tS4cWNBrjzi
22+/RUuXM3mJD1rKiRMnYOLSTAE8xnqXsgxGFd47Gov0xEtIv5WVFd6+3nE0
bg4/XAUzbMmanp7esGFDmd3O6lUAyu7i4oKIQOz5oHJ27NgRFV5gVYqKikJD
QxXnWFZARUUFxBGlFYRsaBSxsbFubm7wgfEedXvtUPKNGze2b99eb2omY1eN
0c7RxjZGk4OSXL16NSEhgdJDabRrTPbt22dUIghuKlFERIQ5XVljVQCOOsJV
jXaTBbG8jio5efIkLasfNGiQnK5RFJtuAUWKi4vTWyQaboZsFRQU8D+HhYed
h9vJz+ICfxVxLg18DB8+XHfvWoQb8nurGBzQdFq9Ja0CZ8+ebdasGd6pXlef
UpdzOwjUNlQb4RLI2fVJvQrAV4HvcfjwYbHz0/oFwYgJ7YOjMdc2tcSzZ88G
DhwIFdA1dLj9Y8eO0Wxe3YmRaHQ9e/YU2xfAKBXgUrRBVhTfiAlRueMkbgdh
IOwYP92cGTBKBRAUR0VFIVpHOfFHbXhi3BYPGnmrws+dO0eGBaWaN2+e2AJP
OOGoWqh7ghpLw9C6WWK44e+FCxcKZOXRo0cIVcy2JegbAyoPnFVa8yutAk+f
PnV3dxez819++aW1tfW4cePM0w989+5d+LTwEy5dumTwYPUqgPoGL1psKRwl
T7OxsRHM5MTnffv2Fcxd54PCe3h4QMu4dEzqQXCEEElswjBE08nJCY0LTUzw
VVZWFqUn1TutyCgVgKD06NHDchqjyt3nHz586ODg0LJlS911lLUKfGNKCied
XxHGGRWJpuehEsbHx9dSLxy3HMPgRsNw0aEXtHINFiMxMVFMAjhlEewiyn0e
HBws6NhEs3r33XcF20/QT1JSUlA2SLbibTTfQvDcMjIy8PypL1FaBSj5PzwN
RJ2CwxDTQSCktxszLZQKUuaiGPWjwxERERLODy3Yt7e3f/Dggd7P9e4Dzg20
ARx24cIFBWXTBfcIwRJLuE1+Fx6FYKoGGnhQUBCcAbH9go1SAVpFLljAW4eQ
HNOj/vzzz439+ZEjR2BdcQYzDArAgBcVFSHu3rNnD6wZN9qICoxw4DIPHJOZ
mYkoFU2PjvH09JQ5D7OioiI2Nha2tFevXtD99PR0eNFbt27VfV+oDPAcCgsL
4cnMnDmTxp1hgfHzixcvXv4jeXl5ONWHH35II62oTn5+ftKrMtEKaGbv+vXr
+RUPsQxtA7pu3TpBhaTJiu3btxdkGkfNx+00b95c18NhSIDH6OPjg1c8ZMgQ
gypQo+2UwzGQ+N27d3OxWHl5OUKADh06KE4lqgAYZMSYeqNCXVSqABTHy8tL
YtIdPHlUeLRZQRy0ZcsWfI7f6p2zjXoeGBjINfNVq1YpKJsueJvQdL0dZdw0
vzFjxgh8s8OHD8Nn69+/v9j6AqNUAI4iBNrf31+iX0K+IVIGHHjYpfz8/L17
937wwQdc2lVHR0co3fHjxyG7sJkG54hyW6fJXKiuErw4qKf0/BM+rVq1wute
tGjR9evXZfY6wjlxdnbGM7927VrN75PKOnfujLNt2rRJcDBeCn0lE1R4SADs
CerzjRs3DBYJV4f3CNNNKSX5zwGfw9ScOXNG8JO0tDT4ooJBAUr2rtF2VbHt
LOWDFhoZGZmamvrs2TOZKlCjdRqjo6ObNm0KlYdMx8TE9OzZc8SIESrT1yuA
MsAYzGdVo1oFUJlxj2JeFjcdWpCwBZ9PnjwZny9dulRMp2CIqCse4fzs2bMV
lE2XjRs3iq0V4tb+CwYFSktLPTw88E4l1ibLVwFuNER3fxMOowyRAvg7znBA
CCitGYecnSxoUADGLSkpaeXKlQMGDHB1dcX7ys7OtsCFZgZBmObg4NC1a1d+
2E6bxurtJ6xtKDjV7fwXGyzAm0WsIXD/UM0QOuEW8KZYhgqjgHMLHwnmAr6u
fBUg8BPEpxs2bIC7C/NYJ80B1QZupJw18ipVAKavR48eYqtdqJdSt/OfPtcd
LNALXFOTqMDr16/Hjx8v5rVSQmBBY4czMG3aNFjIuLg4ibEJ+SpAN25nZyc2
YdjSDJE0Dx48oNxZ9vb2CF6qqqpoMhXeeHJysoUvHhEAC4mWjnedkpLCLzn8
cHjjTk5OcuZamBAu66Bg4Y9gsADVEgUjI0PDXoJBgWPHjiEmGjZsmNk2A30z
QLzs4+NDDrwCFbAEaBo/nDRBj6IualQAv4VRRQUT6zowOChAn0OzJMbNv/rq
K4QMxpZNF5rOLbZfJ23iwx8UQBNbvHgxzAICGek4Wr4KoEnCnuOB6z2hpRki
g1DIiTvavn075+3Q5EY8agsZ+JADN3iKkgsesszNvk0OLkedooI4mhssQPyF
YsNMcbnfaciJGxRAHYMio+ZMnTqVRQFGgbY/Z84cbsPEeqoCNdo9v9q1azd0
6FDpqctqVIDSYkhMP6ZBAd1UCampqfh8xIgRiLZg/8PDw8WmM6H+r1ixYtu2
bcaWTZfc3Fw4RbDDul9x6Vy4QQHcWlhYGKQqLS3N4AwlmSpAAbvY7CALNETS
4NVER0ejYKGhofyZKvBIpWd/WSBwYzw9PTXavCt8gcbfuDuNjM2+TQ4NCmi0
g2L8S6MCw7BDeakmo4mtXr2aZII/KICfjxs3DhYAbad+GS5LIDs7OyQkhOtO
r78qQBsEwOZIp9BXowJnzpyBnRSbicQNCggya+FCtI8hycetW7cQ24pl1IEP
A8tMPeRqIJPl6OioN8sBt0tgQkICjjx9+nSPHj0MJtbmkKkCN2/e7Nixo6+v
r97QyQINkTTcoAAMEf/zR48ederUCXKWmZlZV2UzFjjPMJi690IrfepkWi91
/mu0SQDIHOHtnzx5cvDgwZ07d6bd39A6EAjQqBw3KBAQEIAIHVU9KirKVPkS
3yrgg/n5+fGzQNRfFajR1m0nJyfUCon+FsUqgDq5du1aeNdiY9/UB67RZtnl
JpOTi0IqsHLlStpuSbBtJR+IMiIF9dswIeiAjdWdqkTQoICNjc28efPgSrm4
uGRkZMifTSFHBWjiFgJ2sVmvFmiIpHnw4IG9vT3uSJA1hfqvOGe1XoCXAruq
Oxvn4sWL+JzriystLTXPjmDcoACMOZoP2svMmTMROwcHB9++fTs/Px+f9+vX
D1U6KSmJYlXUcC8vL5QWFgz+v4XndbRY0OqhnrBs/F64eq0CqEtbt25t1qwZ
bKnYMYpVAI8LPjzqp1iXI3X+N23a1NnZuX379hEREbD/tOvokydP4BLb2dkF
BQXhJGJnwGGw2yaxfg8fPoTJEtu1mfaihYs1derUvLw8YxepyVEBhBVozgsX
LhQ7uaUZIoMgxoSpd3Nz4zuc3LbXDg4OeleCWCaXL1+mnanv3bvH/3zz5s00
sf/ly5dwyGGEzZP8mRsU2LhxIxoaPARUD/5zRnlQEpTWosLDN4Dc3FyYKUGm
wXqtAjXa2gLzi6YqNrCoWAXIR509e7b0oMCoUaPgfsN2FRQUoNJyRhh/4J+I
EcSyuuFznDwmJsYkj51mStSSd2pQBWBAfHx8hg4dKrHZqKUZIoPs2LGjYcOG
gpx4UCjaejs0NNSiRjGkQf1EANimTRv+1Kzvv/+eFp3RfGa4CmJ7cJscGhSA
+ptqvSRDDqgGqL2ClE019V8FarTZLd57770PP/xQ7zIlxSqA9oKw9MiRI3q/
5QYFxDZcMEhRUdGSJUtMtdo9JSWld+/eRuVJk4+0CkAl4+LiEBBJ55m0NENk
kKysrEaNGs2aNYvvBkDLWmqpX+YLzxbvCLeTmppK3vWtW7cg3LR1VFJSEurz
8uXLBXO3ag8aFOjVq5dgpQCj9sArRivTTXpZ80aoQI3WYvfr14/64QVfkbm2
s7PbunXrfi2nTp2Sk3UZwQUajtgcUW6lgFi6BjPz9ddf79q1y4RNuLy8HApI
TwwBi7W1tV4VwBUzMzO7d++en58vfUJLM0QGQUiC8Grq1KlcpYKbgRAAAQIN
stdt8YwFhYcFQEPALYwfP37YsGF5eXnwyb28vDp06BAUFAQLYJ59orlBgZCQ
ELbU12wUFxc7ODggYPfRAXWgefPmNMQ5atQofBIeHl7v8mPXaMfyvL29t2/f
LrAh/N2OCN21igqgQQGxOTlvADQGyk8OoFcFYPzhRehNHa+L5RgiOZDNRxRJ
+0q8evWK1DA6OtqEezeYGXg1CGdgELgAB3J29+5dSJ7ZDDKXRCs5Odk8V2TU
aBMOZ2RkpOgDrZKy/8GX3rx5Mz7ZsWNHPU3Kh9ql17zfu3cPNu3s76DCq496
EFnQoICFDGWaHJgL2HbuoeEB6p2VV1FRYWxtsQRDJBNUp7CwMLgN06dP79On
D6I/xEf1LgqwNPCWlyxZAtG3tEWCby3wc9q1a1ffe4TMz9GjRwcNGlSP5goy
FFNaWnr+/HkEmxbSVcVgmBamAgwGg/E2c+/evbZt21LuJqYCDAaD8ZZQXV1d
VlYGCVi1apW1tTVUwMnJ6ejRoz/++GNlZSWLfBkMBuPNJjMzk9t6o1GjRjY2
Nlz2dciBWCJlBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwG
g8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBuPt5P8AEEXAhg==
    
    "], {{0, 81.}, {514., 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{72., 72.}],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{514., 81.},
  PlotRange->{{0, 514.}, {
    0, 81.}}]], \
"Input",ExpressionUUID->"28d1e15f-6b82-45f0-9e07-7bd0c4037d16"]], "Subsection",\

 CellChangeTimes->{
  3.746790878526955*^9, {3.746832465983547*^9, 3.7468324662912836`*^9}, {
   3.7468430795356708`*^9, 3.746843079796*^9}, {3.8312218374785643`*^9, 
   3.8312218378423843`*^9}},ExpressionUUID->"d1e755a6-1c25-4e33-ba1e-\
8d808c7ee8a6"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "[", 
     RowBox[{
      RowBox[{"Bmn", "[", 
       RowBox[{"mu", ",", "nu"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
    " ", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"KroneckerDelta", "[", 
         RowBox[{"ii", ",", "jj"}], "]"}], 
        RowBox[{
         RowBox[{"CommuteGammastdown", "[", 
          RowBox[{"mu", ",", "nu"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, {
   3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9, {
   3.7468334204349413`*^9, 3.7468335082760105`*^9}, {3.746838309027896*^9, 
   3.7468383099083824`*^9}, {3.746838556404501*^9, 3.7468386074481454`*^9}, {
   3.746838639940466*^9, 3.746838646651194*^9}, 3.74683870085217*^9, 
   3.7468431576178665`*^9, 3.7468432125844536`*^9, {3.746843506971836*^9, 
   3.7468435106593122`*^9}, {3.746844266046089*^9, 3.7468442672691565`*^9}, {
   3.8312218438494864`*^9, 3.8312218450624623`*^9}, 3.831222189424942*^9},
 CellLabel->
  "In[120]:=",ExpressionUUID->"056d6c4d-9025-4e85-b5d1-e80b8acb7742"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{"Bmn", "[", 
    RowBox[{"1", ",", "2"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, {
   3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9, {
   3.74683359863151*^9, 3.7468336048382235`*^9}, 3.746843158352392*^9},
 CellLabel->
  "In[121]:=",ExpressionUUID->"cb3bf314-a739-487e-9b9c-976bc8d07fca"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAWJRflGmNpY3jmsnByiBaKaGhRrtQLru+rUsPuE3jlPa
7MT4gfSvXOdGEN3y5MsKEJ29R0uqsvuNY/2W4NMg+lEHw2sQ/aBa8xuIbjJr
+zKt543jksA9zcuB9J/wO8lH+t446s1Ljz0NpCcFR6uGLn/jKMl3ZkkikI6a
oPw0GUhv+yqT3wSkgwqSn6wB0v/sTUtuAelvZp5rylcB1WlVGHZueuMo9G3X
x/vbgObJPtc9ueON44bVWT/OAemewgeaV4B0x3avZyo73zh++cpiowukZ012
+a4HpE/x/F9eCqQ3MO1TqwLS1tumH68G0iUTLQxqgPSyab7FDUBa7lfi/vVA
+q7/OsEzQFrxhXkpiH52sHLpOSBd8aS95QaQ7tsttABEl33SfvwOSIt4vH7+
FUgv3flgu9OuN44AF1PAhg==
  "],
 CellLabel->
  "Out[121]=",ExpressionUUID->"156e9e52-a76c-4dbe-b792-f93b06235f1b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdQVFf7/zeKUWOLDVHBBsHeRTQWLBSxRBRQY++9x4ZdsVcMWGLHbmyI
Ghwbit04EVsiI8SYiSQ6tok4MfNLhv/3v8/kzH233L27e/furj6fmfcds9zd
e+45z3nKuc95TuWB47oOzaPT6b4qgP/rOmBq64kTB8REfor/iB771YhhY4cM
Dh87aciwIRObDMyLD7vgf/H4x///dy7DMAzDMAzDMAzDMAzDMAzDMAzDMAzD
MAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzD
MAzDMAzDMAzDMAzDMAzDMAzDMAxjB3///ff58+dXrly5bNmyU6dOvXz5Uv76
f/755/Llyy9evPhA2sMwDMMwDMM4nXfv3n3zzTflypXTSShUqNDEiRN/++03
k1959uzZ8OHD69atm56e/t63h2EYhmEYhnEFbt++3bJly3z58oWFhS1evHjr
1q1Tp05t1qxZ3rx54S4WLVp0+vTpf/zxh7j+5cuX8fHx3t7eISEhv/zyy3vf
HoZhGIZhGMbp/Pvvv4cOHSpfvnyvXr2ysrIM/nr9+vUOHTrkyZMH7uJHH33k
5+fXrl27Ro0aFShQoFixYkuXLs3JyXHT9rx9+3bUqFGffPJJXFwcbqruUzAM
wzAMwzCqc+nSpXr16h0+fNic84bP09LS4C7Cx6P39cWLFx86dOjDhw/duj3w
iuEe4+vz5s1jx9VxoG9fvnz5zz//OLshDMO4Cu/evTP3OesKhmHkgZb466+/
FF756NGj7Oxsq9y8169f9+vXD77l3r17XaE90q+npKRs375d9UVjJlfvr6am
pgYHB3/22WclS5b08PCoWrXqkiVL/vzzTxXvolC6ENQ0bNiwQoUKN27cUPHu
DMPYAJRA69at/fz8RowYsWbNmgMHDiQmJs6bNy8kJMTX1/fmzZvObiDDMB80
t27d+vTTT+G3bN682dltYTTi77//nj9//ueff37mzBlaP8nMzOzUqZNOp4Mf
e+3aNbVupFC6EJ7kzZsXV166dEmtWzMMYxuvXr1q1qyZzogyZcokJSXx+y+G
YZzLu3fvDh06dPz4cTgzzm4LoxEHDhxo2rTpo0ePpB/CWoWHh8M81a1b11xd
CGtRKF2vX7+GZ3vu3Dm2iQzjdKAKgoKCypcvX6hQISgEeh0zc+ZM6X5bhmEY
htGGnJycL774ok2bNpcvXzb408GDB/Pnz58nT561a9c6pW0MwzgdOK6dOnU6
c+ZMrn6TLCe1MgzDyHDt2rV27dr5+/v7+PjExsZCbTq7RU7j0aNHX3/9NYyI
uj+bnZ1do0YNnU6HTjZYWX3w4IGnpyf+1L9/f+nnT548WbNmzbNnz9Rtif38
+++/N2/eTEhImDhxYs+ePb/77jtH3OLs2bP79u1zkdVglx0LRnugHjdv3nzr
1i11f1bquLo+PCMYRiH/93//t2rVqt69e8+cOTMxMfHnn392doveB06dOhUc
HHz+/Hl07+TJk/Ply/fBZt6mp6c3bNgwPj5e9eWO169fo5PhnTZt2vT58+fS
P4lKDpGRkdLP3717N2nSpDZt2rhODd6//vpr27ZtDRo0QGsrVKgwYsSITZs2
/frrr+reBZ2Pn61Tp87333+v7i/bjAuOhTFw8v/44w/EFA8fPjS3P117cnJy
fv/9d2e3QjXgXvbr1y8qKkr12Na9HFeeEQyjnDt37iDQ+/LLL4sUKQLr2aRJ
E/hdLrIsYxGopnHjxtWsWRNGf+7cuQoLBTiUjIyMtm3bXrlyJVc/zRERoFeH
DRsGJ9bZTdOae/fu1ahRIyYmxkGJxy9fvrxw4YLx+bzo/GLFiqHbETUY/OnP
P//s2bNns2bNlKS/KpEuDCt8QjjnFStWrFev3okTJ5TPnWfPnnXp0oVOasMc
dJAhQHu2bNni4+OTkpLiiN8n8ONeXl6zZ882iFBg4+CTHD161PgrVo2Fxvz4
44+DBw8uXrx40aJFMfqFCxdG+BkaGnr8+HHnvnGGtIeEhPj5+T1+/NiJzVCL
N2/e9O7du0WLFo6QAeG4vn379urVq5s3b96+fTv0s+o3MgnPCMYpILA9cuQI
HI9evXq10IN/bNiwweCEetiF3bt3JyYmuouzZw5E8dAhMKMQyAULFqjibOBH
Bg0aVLBgwQIKgPmuXLlyq1atpkyZkp6ebrE/oY7GjBkDjwLab8SIER9//PG3
335rWyMHDBiA+fjpp5+WKlUK2qZ8+fKYm7D15cqV8/T0LFGiBBwh/Nti8A43
5quvvpo/fz7NZbgikZGR6FI00t3Fw1oQmAcFBUVERKhbmcoi6OfY2Fiqu0vh
gwGQc0RniNQgNjK/o0S6ML7z5s3r06cPDM3Tp08bNGgAsYGGV9JOSB1+lqbb
+vXrHSceZ8+eLVu2bHx8vONugWch1TF9+nSpFcPn/fv3x+cw3ybvrnAstATt
37hxIzTA6NGjEXlRsymXA1FGnjx5+vXrZ2ACNAPNiIuLy5s3LzTS3bt3ndIG
FYG2hGAg4lM9SYCA49q+ffvx48c3b968b9++ixYtGj58OJQ8xtHRq5o8I1Qh
OTkZZleJ//DJJ5/AXrdu3XrYsGGHDh1yhSUsjcEwpaamwhjBk4GAwZOBKwXv
KyYmZuDAgf7+/vBh1qxZI/w6BFa4ZuvWrZq1cM+ePTVr1qxUqVJF68G3Gjdu
bK6EHSYLpgyeOn/+/Pv27bO/qRDvGzdu7Nq1KyEhAS4cHaUK0JKVK1fu3bv3
2//AQ61YsWLkyJG1atWiawIDA+XLCkE+u3Xr9vr1a/gPXbt2/eijjzAutjXy
2rVreN4tW7YsWbIEwy0Kp0DLoUlr167duXMnohiL21EhFWiVuAz+TNWqVTGt
MAFtaJgL8vDhQ/Q5PNKrV6/KXAa9gSnj7e19+/ZtzdpGoIWfffYZxg4RhLng
CwEI3Fo4pTJrBUqkC4INqSaljf+HxGKsk5KSlLQT/i1CJLSzYcOG1ia2Iaae
M2cOvohpJb/ckZWVVa1aNdgXh9pBWNvatWsb+/b4vE6dOlAm6Exz31UyFpoB
VUDr59evXzf+KyRhxowZsNQYdNXfayvhwYMHCO0hM0WKFIGR0r4B6gKVCyO7
bt06B4VUGCO4rM2aNZO6qd999x16D0Ps0CVrnhGqAEt6+PBhKF7E+OIkoNDQ
0G3btn37v8BAL1iwoGXLlnTeJZTeuXPnVG+PNig0slJgTSIiImCk8uXLB20P
p9TgDS/G8ejRo35+fmPGjIF1Rtjr6+sLMXNQzGiukXClZs2aBXuKdtJowpVd
uHAhDNlaCV9//TXkHzEIAk/4YMIZMymEBPqKrgwPD1d3SxGsM+Sf2oDYzdys
RA9fvnwZoRMtRk2ePNlk6X60DT423N1cffVOeMLQgWlpafa388mTJ7TrB8TG
xtqjVGFcChcuXKFChfcjeRgCD5GjnoH8y+hVaJtChQohNtF4nRnuWc+ePdG8
6Oho+JzmLsOkHjduHOT8/PnzJi9QIl3Z2dnBwcHiQ2ib8uXLI6o1ucxrzKlT
p6hKT69evax9uwFT4uHhge/COMqkO9Kirqenp6NrrWPCon/Kli0Lz8rk5z/9
9JO571ocCy1JT08PCAgwrlMhgHWG3YRxXLRokcayjdGEJqfZB4/o4MGDWt5d
deA3wmaFhYU57o0MFBScQIPVBnq/hj4cNWqU49K3eEaoCwyoj48PeS8yx7tg
xBMTE0mvlihR4uTJkw5qj+NQbmQJmKr58+eTV//555/Lq3q4qdWrV6fi57i+
UaNGBttDtOHOnTsYHTRAyZrey5cvhwwZgothXrOyssxdBrcNj0aeMEyziq2F
I4GAiEZk4sSJ8iOC4Zg5cya55dAzxk4ILjhw4ADlN8JFz5s3b4sWLVQJ+l68
eNGkSRNq5/r16+35qeXLl+NHoJzfj2Oz6CQaPBG8cZM5WgQsBSIU+FSQJS2b
R28eoULhu1qUhHv37mEitG3b1uSVSqQLHiP8c+Fz4t/58+dHyKNw1nz33Xek
bQYOHGiVAYV1WLp0Kcnn2LFjZZxe+MZFihRBkOjo/GoEyAj2W7VqZeCErFmz
Bp8HBQXJBBG5lsZCM9BL6CuMdd26dWVCYAgGBhoNRrO1bN7p06dLly5NL63Q
qxs2bNDy7upCu1Yh/8eOHdP+7hs3boSW8Pb2dtB54rk8I9RGhPkWfS20efz4
8aQe4XK7XZUGhUaWQFf06NGDItkFCxYoSZDYunWrWO0cNGiQU7be7Nmzh9pQ
uXJlJUk7MLWQwDp16si88qZ3HCarDNkJRkS545qrD42nTJmCaU6bm8wNCjQA
BhqXrVq1SpWID+6KKo4rvWKWSWdyR6Dq4+PjZVbs8aRw1z08POLi4rR8atwL
phzKberUqUreFED8xo0bh/m+c+dOmcsUShd+LSYmBmMNNaJw+dRmxzVXP5US
ExNhL2T2c+Ga4OBgT0/P9PR0q37cWvC8tMqNnjdI56O8o0mTJslPdoVj4Wig
+kSeEqyAueF+/Pixn5+f/DWqA6UUGhqKOEW8DJo/f777apWbN2+WKlWqXbt2
TsnkxMSBsMHXOnLkiCN+n2eEuuA38cvKfa2zZ8/C68PFULDuuOhq0cgSWVlZ
zZs3x2MWLFjwm2++UZhYIl58Ix7ZtGmTGu21DpJtGs0OHTooMdYY8X79+rVp
00ZGXcCnhWer0x+aqW5ZHmsd11zJKUhQMtu3bzd5zYULF4oWLYpwT+GmmJSU
lPbt28MKDB06NCkpyXgWWHRcMfRLliyJjIyEYxAdHW0uzITbD+cfQnX8+HEl
DXs/ePr0KeaFj4+PZrt3c/WaDeLh5eUF31V5YlhaWhokBzIps6yhULowoTCt
rMqytsdxVcLp06ehvSGfjt6nQNbNOG2PPle4ZVLJWDgaqL569ephRLy9vX/4
4Qdzl+Xk5LRt2xaXqfWKxyIQ74SEhKZNm2JO4aYWs61cHDSbigQ6dGPI8+fP
R40a1aVLF2P9nJycXKBAARhuBzWAZ4S6QIPRQd4YMiWFJTHi9CY6T548TvHN
NACyRKoA4gSvVXm8gNmHuImSLpxSHVF6ELPC6BtthsfYu3dvmUUhl3Jcc/Vp
orRLrkqVKpmZmQZ/xY/Qe4FevXq9e/cO/4kwRH7JC35pXFwc7YuBYM+bN8+g
JfKOK7o9LCyM/lqzZk2oIHOrXufOnYPnULFixfcjwVUhe/fuxVRCfKTZ2buQ
fNzU19f34MGD0llw+PDhmJgYmS/Saiq8R3MF/5VLFyW4QlDltxNKcajjSpuX
MRCqbLGUx2I6H32OOE4mm9HiWGjDo0ePjhw5Iv+mCX3brVs3DFy5cuW0ic4g
XXXr1t2/fz+EsHPnzqR8EJK46fHW6GQ/PQ7d2n/8+PGCBQuaNI5ixRUqwhG3
5hmhLpATqHfytZSk68Pnp9qeHh4ezl2ydhBURI70wLBhw6yto5iYmIiesWFT
sCrcv3+fjgdSLtvkuE6bNk3GaXQ1xxVjFBoaas4/f/z4sb+/P8Jneulz586d
Dh06KKnODYcTikunz/g1yJOXd1wRRIsvyqT0oJ3Lli3DZe3atftwjs3Ck8Kw
5suXb9euXZrdFCNSr169s2fPSj+EdM2ePTs2NlbmixgjhC0Yo+HDh5t0HZVL
F0lFrVq1lFeGd6jjCuUA+1ipUiXYHXV/2RhK5zNWg/Hx8fgcUx4mGHMfpu3i
xYvmfsTiWLgOotIRwlINdi7jdqNHj+7evXtOTg56ZujQoaSa5F+cuTJQqnnz
5rVhT6JV0LuSgIAA463ZK1asQAf6+Pg4KMeVZ4S6nDx5klSlEl+LctUow7BM
mTJQ2qq3x7nAtM2ZM4eKJ9SvX9+GjSQnTpxATOegN30WkSa4KjRPaOfgwYMx
rWSucTXHNfe/LU46fY0LgyYlJSXBr0CD4TBAYhctWjRr1iwlv4wQEr9GQdmO
HTukf5JxXMUSHIiKipKJdPAnqi3/QVVw/fHHH+EveXl5KUzbsJ/k5GQ/Pz9I
SMp/wCE8evQobESNGjUshtuUDVW9enWT01+hdOETBIMY6y+//FK5LXao40q+
wRdffOHoPAGRzhcYGCit5fjLL7/QS0Yyu7dv346IiJA3OvJj4TpgaqNjKX/J
QUmSUtAtkGR6qQchRDhG+sdZCyZ2gtgWvQeza+e+V4ugc4KDg403f8EM0UoI
bJAjDDfPCHV/3NoEV9oaLK5//473Sk1NpbpPNqdAQ64Q033zzTeqt80iShJc
Ie0G++9gxRDlyb8fcUHHVeRaY6T2798v/RPFYpg1kM/Lly+HhYUpDKLRY3Rg
qM5o85SM44q7ULKNzlKlLJHgiuhG4WO+B2zbtg2BQFBQkDaHDlAJZZ0ZMDdl
FjQISDjkHNJlsGBLKJQu2geKGF8+JDTAcY4rWhsdHY1fXrx4saODJrF9o2TJ
kmJpC3E0Oo3M9IwZM2DKMcWWLVsm3xj5sdAYuByJiYnQsQg/0ZkLFy4UCT+i
OorNJ54o59WrV+3atZOevpSQkECrSVWqVHHHw7MyMzO9vb21ya87cOBA48aN
pTdCN2KS5suXDxPWYlFu2+AZoe59Yak7duyo0ye4bty4Uf5iKixDEwThnnFu
obuDrhYvoNu0aSNfm8Icx48fL1++vExVMcdhMcEVPuqAAQMMMtxw2U8//ST/
gskFHVd4C2XLlqUvGmxJwG/26dOnTJkyXbt2hbcpU27OAKgOWhHV6WsKSX9T
xnHF7eCV0Z/Wrl0r8/vwqeCWoA/d0bhIgczAxWratCmGwMfHB+66udJeUBpU
Z3Lo0KE2eGIQvB07dkyfPh0D2t0M+BNGhFYRnz59SobAHLCPMmXfCDwLxS9L
ly41nkQKpSsjI6NcuXLwk5WLX671jiuepVevXhiC0qVLw3DIV7SrVq2a8hQ+
OLq7d+9u3rx5oUKFYNNr1669fPlyc6NM8iCelNL28CB+fn6enp7oLhjowMDA
vXv3QvLRt2hteHh4REQExku+GfJjoRkwx/3790dXoEPi4uJOnz596tQpiH3D
hg1hN6EoyJ3Q6Q/qxZ8c1xJ0AqQdnSldcEPkTi/aELJp9l5DRegtRtWqVRWW
rLFHOKnoeoMGDWAKt2zZsmnTJggn5sWQIUPklzp5Rkhx7oz45ZdfEKPpFGwm
QkswXyBdOn1NJC1L69uJciN76NAhekB79jampaXBRhsfla4BFhNcHzx4gMmC
y6z9ZRd0XMkQ0xcRKRus5uF37t69e/HiRatW+ajAAv2mwQsIGccVUSdCeIr+
pFUO0IaDBw/26NGDQmPoPXgj1j6mC0K79TGhoI3RRXicPHnyINY2qUUR/dE+
x9WrV1t1F/hgUIw0Hy0Cc6CiWGJ0xowZg5/t2bOnybf8SqQLQw9rKH8WgDFW
Oa737t37/PPP4+PjIVonT56EgcBEMKd5rl+/DiVfokQJJceWwS6IEF4KbKvJ
eono/JCQEGFBKJ0PsT/6B386f/48vCkh8/gH/vPq1atKMhYsjoWjwSggGkXX
lS9f/siRI8bp9J06dYIjRN2rs1QL3X4yMzMRmtEpGALx+knJCwVXQ7z2hT+m
pLS1ncJJQGljhsbExEyePBnuqMW0Op4RAleYEbQEhB9HACLj6mNoxo0b5+Hh
AQvVvXt3dSt5OhTlRvbt27eId0ga4RG50TMK5BNc8cirVq3C3LGhNoULOq7C
XQRqJfzg7mPHjqXfNFALMo6rKA9ikLQAE4OprdOfTA3ZQ3CNudasWTN1O1B7
bt68CX9JhK5LlizBM5qrAww5rFixovxphgZAUL/99luq8ABt7+3tDX8sICAA
3Uv9X6ZMmS5dukTqiYqKGjx48IkTJ9RdfFi5ciVu1Lx5c9sKuYi0Z/ifVhmX
5ORk2vVsMXELEQEeH14rPTgGBQZCZksmrDOUg5I6zBgykQ8GdwgjC30izmWe
MGGC8bmB6C6ROSbS+QwOZLcZO8fCHmAUJk2ahGf39fU15/DDCUFwiriMukh1
DSmFjk+Kjo42eEF2586d4sWL6/SHzig8XNh1EAKDiWwxWLNTOG2DZ4TAFWYE
ujc2NpY6f8CAAcYyg/Dn0qVLX331VenSpaEV0flpaWnutalEuZHFNSVLlqTe
sO21pnORT3DFXxEEweLDntowd8QbWD8/P3Vfc9vsuNKR0/RFHx8fVapLSbc5
dO7cWarrZBxX8U6kSJEiFy5cEJ9TQjiEClN41KhRhQoV6tatm1XrbyZB/yN4
RKRZ124wpi1atLAqAQl9Avsi3lJhmtBRiea00/fffw/VYdAzMuBnt23bRtF0
x44dpds/Hz58SO/ISpQoofy8ZtvYtWsX3Dzl7y7hRs6bNw96gwIoWDq4iBjx
lJQUq+67detW0vbyVT5y9Y4oRFRYLgzix3pMjiZ6lVSfwd4QYzAf8bOIF9q3
b3/9+nWh7fEtPGDRokVLlSplsHiVnZ3dqlUrsXFY1KtUq6yQtWOhFuKsEwiw
zDhi6OkMcVIOISEhjjsRLzU1FUH6tWvXDD6HvFWoUEGnL+WnpKalSwGRg/yg
8TNnzpT3LuwXTtuaxzOCcJEZIRJcaTm34v9StmxZek+HduIyTBlH70VVHauM
7Nq1a6mYgDZ1DlVHmuAKr2bs2LHj9MCYdu3aFUKu06dAGLxjUoh44evl5WVQ
hs5ObHZcRZN0+kpxamVcUzUznf6EX+lbVxnH9e7du1TZGM0w2KcDxbJs2TJ4
rYsXL8ZlqrQQjmtkZGTt2rVr2g3UKeVZKb874jt8RcgAHpBEi96CGV9PRTbg
vStMUElKSoKXC52DeNlY4eBHaBHb4ikzdkKHCSJglzk9XAptQEPLoSehV6F2
4H/GxMRYtc6D50VIolNQy+7NmzcRERFbtmyh/4Rmo4ObIYcmS4KL14thYWEy
ddigJ6EG8eBr1qwx2b3Hjh0rXrw4hkb6V0yHHj16CNtE6XwYJrXKClk7FqqA
rkD3Uo076TYoY9D56FuyHcCgc1QEGh6+E7w7499HjIw4lBqgweY7dRHHMspv
Y1RFOK2FZ4TAdWaESHBFyGCusBV8bEQZGAU0o3LlyrBxbrQUqdzIippjwNPT
0x3z20WCK4x+/fr1g/6jcePGvr6+tIyDC2xIcM2VHF4J66xuwQSbHVd4kvAt
6YuVKlVSq2z1zZs36aWbt7e31BmWcVypcrXOVKrt+0dcXJz09Tct9EHkVq5c
adJcUvoKlLbFLVG5+oUjOrzS+GUoAdeOYm3IjEO7mmxNsWLFrly5ouR6mBJ4
rU2bNsXsaNu2Lb6IDrEqSQCSn5CQQHZh0KBB8mV+b9++jShVvGWg0rK0uGGy
W4R+Q8gj0ypoSMS8y5cvNzcNMcQLFy5s2LCheGNF9YWSk5PFNbTDXcWCotaO
hTlevHgxfvx4RLvVq1eHQCJElbk4IyMD9o5WOeTf5qCvpk+fTpqhQIECFk8S
t5mNGzdCmZtcZJPuD7XtnZoTgeqGAoeFQvQnc5kqwmktPCMErjMjxEYAWGT5
zURUqIFcaChVdylxrNzIIpgVXpDFt2kOAsO9adMmmJ569epBivr162fVErdI
cDV5KhNccZg2e7Jifv3110aNGtF7eTvnixSbHdenT59CpdAXVaxeiPZAw+j0
1eekaZnmHFc6voE+d+uDwpWApzty5Ih4Tf/u3Ts6Zbts2bLmAiIE6dAbSiIL
RMSUYOzl5WXuJBRcQxvc4N9mZ2fb8yzyUIZD4cKFU1NTlVyPnkG3TJs2bdy4
cZjF1kojPM/hw4fn0zNr1iyLh1Ogt3fu3CnWEHbs2IEvwvSbK4MpymXIF3jH
YLVr107eFsCUw30S9dygdjp37iwtwHL48OGAgAAVMy2tHQtz0BY2dG/BggXl
zyun3RA0qYcNGya/VoO/jhw5ki523NtbqPT69eubq9AoLYdi854dqLIc+4Dc
2qAAMzMzoUAgwLt375a5TBXhtBaeEYTrzAgIGOws/TjuYnEdlU4b1+m3Tq9e
vdo2Aw3BtnNqKF/vtcrIisVYnb6GvLNOzbtz587atWtp8WTChAnKvThpgqvJ
U5nwRN27d7czGM/KyurQoQMt0a9YscIehSCw2XGlXT/0xa5du6pYUhjKikIA
OtOTPjTnuD558oQWCeXPzHovQTREL+4hWuaCrA0bNiBUVJKff/fu3XLlyulk
D4WBGEdGRur02ycdWn8bM7FEiRKOPloRjxAdHQ0xhm+PQGnMmDE2vEzEZCen
pUKFCua+DjGmlWqZYgVUzdJiwjPtD5o3bx4U7Js3b9B+Rx+Ipu5YUPmFKlWq
yERSGRkZCM91+rSxAwcOyP8g+l8c92xyq4j94DehuiEkmG4VzSDqb4SEhFh7
Kh8dlkGFLu0Ew2RttXn0dunSpeWrfTpFOHlGCFxnRuDHyQnx8PCQ1vAxBwZx
0qRJ1Bj5EgQmOXPmTLFixeyfF2DEiBE2dIW8kRXJ7To7XrVAbtEtdq650TYo
OE5WZR5KE1znzJljsmYCrJttCa5S4DkcPXq0devWOn3GLHy22NhYe5xGmx3X
H374gaptAItFm60CDnl4eDh+tnjx4mlpafShSccVN128eHEePegH93pDZz8I
YPHg8jnhmzdvxjW+vr7ye/pESRyo0NOnT5u7DKPQtGlTXBYQEODQ1yLp6ekY
fZgGa3dXWQUmTmpq6pIlS6DnoYcLFy48cuRIa7fvoamw++iT/v37m4u4xYpc
v3797LcjUE0U0124cKFVq1YOXfrOVXUsxCY1c+ezEAhdKdEdxtpi8jwE28/P
j3w2Bx0sAi2E0G/u3LlrzZCQkNC5c2fSTpgaJgs0yXPq1CnIRqR9REVFjR49
2tpNEOhhLy8vWBODc2RsQ2PhdMpNP+QZAVeNMhZKliyppLJfrr4WGU0NdJq1
h73idnAIIdh2To0+ffokJSXZ4KXIG1lKs6Gns/k4Thjc0NBQG5SGFHoLYG0y
qkhwNXcq02+//RYcHGxbgquUGzduwAJCyUAGBg4cCJ0JB9Iep9Fmx5Vej+r0
G1JUP28FYU716tXJCtDKnknHFdqeKlFERERoX5nEueB5Ka0OwYvM4idtgLVY
9gFi0LZtW/yafOFT2EQ6dQLhp0Nfi1ARQi2Pp8Eda9asiUeDk49/K/wWpdjp
LOWSiYI8qvQbpjw8bVhnqHSTYbK6qDgW4sxlmaweOPZDhw6lma5kQzQVz9fp
U9xVeQllAH6zU6dOFqtMrFu3jpZM/f393avgHr07Mz5l2zY0Fk6n3PRDnhEi
wVVhSqe0dlaxYsWMK3K4MhaNrKhTCsyVUpcHgztq1KgpU6bYuey2adOmvHnz
WpuMKhJc4X6brKUMxwDRmT11IfBcCLuKFi2q0++dUetFrW2OK4yvOCkAFtkR
9S7u3btHi3v16tW7desW5ojUccVwQ83SShcceI29Vrh2CLp/UIOMjAzbPJkL
Fy6QMMiP2qFDh/Lnz+/l5SX/EjwrK4teiMgnYZIbjAg0ISHBhjYrJy0tDU/n
6GLyBty9e5d2y0IXKfQ9IJZQ4PhK/fr1Zd6CQVwHDRpEEZb9STXQMIiC0UWt
WrXS4CQaFccCvQq/Tv4d69u3b2GdaaZPnjxZXiOhY4cPH06vn+T3ttgMtC7C
Z4tFCA8ePEhbRD09PTGpHdESB0EHYWNSw/bZ/2saC6dTbvrBzgg4ZvPmzaOW
yGSUSRExu4x35LJYNLIicULJ0JjkwYMHcGyUL5WYRNiXcePG2Zbg2r59e2sT
nBRy8uTJIkWK4BYI/1X002xzXEVZJAyrnQnqMiC0XL16NaTdw8MDjRQnzIaG
hsJPwD+aNWuG+W6xzVAvkZGRjRs3hltSu3ZtO4uiQDFS9S21mD59urVtEFvS
0P8imwIfwgYZ9Ab+CrGBjjVZpkkgjllBdGwubIQK6tu3r06fzKluTTZjjh49
WqBAgTJlymjpA+DB586dq9NX44yPj1fyFSqMg6/MmjVL9BviGoNVEfwJF+j0
ayD2b63F72MKTJs2zdoNpLah4ljQCVPy9ksUiLa4zz1Xr/YpxwxfsfNdm0nQ
zgYNGpjbkyUFNo70c7FixRxd5VhdRPC1bNky+39NY+F0yk0/2BkB3wYejk6f
4GqxJURmZialFuj0CbfO2r5kA0qMrHSrWseOHa31/dAbY8eONT5Bw1qePXvW
sGFDi/srDZAmuFKKuD1tMAkekLa2qZ71Z4PjSr1NXxk/fryjRRG/f+XKFYgH
FAXdNCwsDAOk/H3c06dP9+zZ07VrV51+/dbkCVPKgWI8fvz4unXrzCW8WcX2
7dttqCT25MkTSqUICgoSL4NgLhH9GSgrqFYvLy+LYkMZMlCMojapMWL3lnwV
QVWggwAcXbvAmCNHjlBFrNGjR1t8RrG4ga4TITO0QUREhHE0t3HjRvjDdevW
tVP8cvVqCg6wv7+/VXn4NqNkLBAW9erV67PPPkOr0Db0Bhw5fFHqwIt0PvgY
EHuoHUSREGP4G9IXmlD+dM6FubQr6Q9SoAFf0eRLWzQYmhlzxKDKxMuXL8eM
GTNnzhx5JwfjO3ny5KioKCWxxo8//liqVClq9rFjxyxe7zq8e/eOEnRVKeSl
sXA65abuOyNgBWAOjBX4zZs3IecWC2fBu6aUzhIlSqSnp8tfnKt388SJQlCS
Cg/BcREUGtkbN25QviLiBSU1J6VAUbRo0UImZoFgQ03VqlWratWqkA0YEdwi
ISHBIM+ZzHfp0qW//fbb6OhoWBlIHcyQ/HZ1keDquE3Q6CiqhaWwIKdyrHVc
MTX27dtHWS74olpVsCwiU8dVCSJ66tOnjxsFfeYQleXEtjhKJTIuhUHVxREg
y782glD5+PjIXCY2h9apU0fds9uMwbMsWrRIpy/4rHHpPzqvQSe7/V+AfqAj
26SFqRFkwU4Z5wnTL3t7e9t/xhxpA21yKS2OBXpp9erVUAgDBgygZAmYP4hc
0aJFixcvLt2+AS+R0vnwp06dOpHuhUFHNBQeHi5KHonjeuX3CebqfQOKpCCZ
JgeLjtk13i21f/9+TJ+mTZvK11k6f/48nBOFWXkIP2llSeFua9dBnI7RrVs3
+3WjlsLplJu674wQ1aQNjr7F5/3796cVCfllN6EeFW7OPXnyJL3IQ8wOj9q9
dk8rNLLoPcpAxjOuWrVK+bolBqtBgwYyp7ldvnzZz88PkkOrIpQPQ8UlVq5c
Kb2SElzRWnjacIbRBggPRAjCIKO+RIKrfEULexA5wKof+YpQQrnjSqfYkyhC
Uah1EIkSDHJcrf06HWsI0Vq7dq0jmqclwoeEGhQJAJAQSDVMrcHF4uWOvFLK
ycmhXB1z5/4gIoN2RWjpuMwQAVQuZVArWfZUF7H1QInjCiNCeQLLly+nTkNr
p06danJFGuEtImL04cWLF+1sJJ3TZFt1F2uRHwt8gmeH9oPPI4w4vjJs2DCd
0dHe4mjm7t27C6NMxhS/IN0ZlJKSglGAKpbJunz16hVJbFBQkMlFbOGPGQyl
yOwaPHiwTAfiN+HZKqlUSYhTuUkelHzFdaAS/RbryStBS+F0yk3dd0bQIoZx
3TN8joYZFE43RiznArhqFrv67NmzlE8I0Ro1apSDUigdhFVG9t69e7Q5wtfX
V+HhWfAnGzZsCE/GnIG7evUq3M5KlSpJT/yEl1ugQAGDBVKR4ArnUFqAncL2
nj17mtxVIU1wtSHJQSHCcVVSkNMq4BAieqL2Q8/L+Am475AhQ6goR7t27TQ+
ppkmF7Vz6dKl1n49IyMDYuB26WcmEW+oxbkPGLUlS5YgwDcWP2ibGTNm6BTU
2j1w4AAmRdu2bY3PfsJ0wJTEFIZm02CbMOV0KU+jUhGrHFdKdYPveubMGfrk
ypUrLVq0MJkAjInWuHFj+WQMhSA6rlGjhloHr8sjPxZUZdHLy0u6I4a8d/Rh
jx49pCt4uBh95e3tLc0MlLqR4kNYfHp5jf83uYcaF9AaEXxFc+EzHWqDDt+4
caPJz2WOIIS2gTKHwd2wYYO5awyQvhKyqjyLK0AJunAz7D+5W0vhdMpN3XdG
0IFfZcuWNVBQ4nP5E2zF2UCYO5s3b5a5El0EF5eCemjI2NhY9/Jac600srl6
w0ELetAt8hvQIADoPYgrAhNzxhRRcGBgIPo5Li5Oeg1lRFeoUEH62o4SXCGQ
BpaFbJm/v79JV+358+fC8bO40m4zqjuukG0EDklJSQiFaLkYVK9eff/+/Rcv
Xrz0H1Bo+/btW7x4MTxVugzuH/pH4c5oJXk+MmA6ow2nTp3atWsXYlI6Npfy
JRYsWAC3ITU1FZGLkq1qtOfXIOB1XxBM4XEwR+jZk5OToUvNJbTgrwULFrSY
XYkxhcLEKEsrA2P+7t27t0yZMhhB40jTQWDcMcSlSpVSWCdQRaxyXLOysuDP
Q+dD8+fqX+WEhoZidphUAlT2RKdGJiEmEUbT/pQDJciMBQwZLeb37t1bqhBg
QzHZ4fV9/fXX4kMquawzOp8Farxbt246/WG40h+/e/cu9AakcdWqVQYDcf/+
fVpZwl1kbAR+oXTp0rAmBsX68Dkex+SWcAQXJ06ciImJEftAoRJhZWQKxP31
119Qazt37uzZsycF9Tr94YnwiqGdICFucZZfdnZ2zZo1VUl101I4nXJT950R
uDva0KpVK4OliTVr1uBzaSantJHoVXTvoUOHBg0aRBKONsyZMyctLe3S/5KS
koIgsW/fvrR5Gb8ZEhKi4imfGmOVkc3Vb9Sl9/iVKlWC12ScdYNRO378OPof
Ea5M7Qv0OfxVeDuVK1c2EOlly5YZC4xIcJWuzYLExESMlzS5FHaHHL8DBw58
+eWXdBSvTp/zuW7dOvhIGGh1cwbUdVzF1FBI/vz5YaCjo6MhvQpDJ+V5PjKN
FKcoCjCaorcJi/nqufrxmjJlis5SrSc3Ap7/iBEj8OzoXowLJoLMSjJVXFHy
khpWeOnSpRigRo0aTZgwYeTIkTBnmIxwZR1RIdMclIIIJWy89utorHJcoWH2
7NkDpYGmIjyH6YyPj5f5FtQFnsv+F7IrVqxwUM1SY2TGAiKHZzeuupOZmQlt
Kfx5AqIVERGhMyrTTcsFOv1Blga/Dy1Ba5gwqTDWCKBg6KETChQoABHFv+V1
EZVuMz6NGk4mPjc+xEd6UCZsrlTPyKxIIE6hgBr/j5+FpZAegIWWu0V9afG2
0f61Fy2F0yk3ddMZIcpSTZ061SBFk/Z9T5o0yTigpr0Pyl0FCD+81sDAwJkz
Z8I3c4uozRxWGVkCXt/QoUNpe6+3t3e/fv0wKPAJFy5ciE5GOAw/CoGw/J5Q
aIwWLVro9Akk0vAH/46KijIWGAQLUD7CwSbEIr/0jMsffvhBxBT5/heh7sLD
w1U0u45LFXAEVuX5aAAluGKwID8zZsyAWqhevXpAQADCIvd6oycFLUeotWnT
JsS58ivY6PkhQ4bo9CkWSjQJuguxQEJCwrZt265fv66xq4/nGj16tLWJ7mph
leNKPH78eLcei8kzdLA1TIw0E8layN5pE4LJjwW8dMypUqVKGaxCUP3zWrVq
SRcqs7Oza9Sogc+Tk5OlF4tyFiZf3ONhESxDgUNpwBDgF2CmoagtbgwRCa7w
xwwSXE0mvjJU8NnOaFFL4XTKTd13RuDWaIBxIit9Ln/g7weLciMrBXp+/fr1
kZGR9evXh9tPr5snTJiQlpamROfcv38fImSwPp/7X5UDONLHjx8XH4pw2yAb
H7OYzlfF1NCsKp0x7uW4WpXnowEPHjygvZYIeebMmQNfGo1BkI5ZLLbVvN/Q
cdjar4TYAE3PSpUq2Z9uZwM2OK7KgdR99dVX0EhLliyxWeqoIo3NxwtahcxY
4FmmT5+uk+SAEWjVzJkzxTRHH/7888+4mM4VBQb5datXr0aHQL3L59dZy8uX
L5UkuGI6qHWSi7sDEwM7i6jKnqL6WgqnU27qvjPCYoIrfQ6nS/v3XIyU1NTU
IkWKGJ/LRiXZRYIr/EB4MpAouKaIpAzCnPT0dHi/+fLlk89GdjRu5Lhaleej
DfSKFrGtdBMfnbnsLAdJYzAowcHB0kLKLsuePXswWGPGjHHKgphDHddc/XIK
9EmTJk2UFJMxyZEjRz799NOkpCR1G2YSmbGAOaYKjeHh4dKIPicnJyQkBNMc
9hf/efHixS5dusA/hLKFLa5atap0XRruJVXAhmVX990HJbgaK/979+5R4uv1
69fxCIheZY7a/KBAJyCKhwWUHqVhLVoKp1Nu6r4zghJcjTNnaJW4ZcuWaBLM
RLdu3ewve8LYw6VLl2CpYSYMChSsWrWK0oYhUZCTzp07X7t2DY4rAqL8+fNL
dyaK+g8wNJoVLDWJGzmuVuX5aACm/+TJk9F1UVFRUn1CXWqxBsh7AxR7wYIF
R40a5cpvSBHddOjQAa6FnUfg2YyjHVd6s4OBMHg/qBASZswjDSrRWRyLgwcP
YvpAkUoz6/bu3YsOpIKT0J9Lly4lz/DVq1cwjogTpcn/GzduhKJo1aqV6tqV
ElyLFCkirXmOOJryBKpXr/7kyRM8YM+ePe0/bv69AR5ULT22rUJrKZxOuan7
zgiR4BoYGCgNmXFrquFG57fevn07IiLCua4OQ3tSSpQoId1sBfGuWbOmSEWG
BCL8wVBCkBYsWACZQUglLr5//37FihXh+jr9xAc3clytyvPRAJHgarDSm5WV
5e3tnTdv3q1bt2rZHmeBMA2uu6enpz0Jlo7m6NGjcOpUX21QzsmTJ8lxHTBg
gIM8fGiVChUqhIWF2fBK7vXr1y1atDDeF+wILI7F8+fP0ZiyZcvSXktchlg1
ICAA04qWNLOzs7/44gtRBRFGGX1Lxfmhb48dO1ayZEmL1WNsQCSyYtYvWrSI
1g/hS8yePRvNw0M1btwYOh8ua7du3dxi85RmYIw+/vjjlStX2rDoqqVwOuWm
7jsjKJEVMwK/L3YY4S5oDDmuM2bMgHOLCSKK7TPOAmIzd+5cDw8PuFI0FhCn
tm3bNmjQACO1cOFCjNS0adNEpSwyKAhMKFzCsDZr1gwDbdvaiLqIKqYu7rha
m+ejQZMePHgATVKsWDGDlV4qiQZfWuMXW04kPT29fPnyAwcOVFjNTGNevnzZ
unXr+vXra3zMqxQYFyrHh3jWQb2EuZCQkFCoUKF9+/ZZ+92MjAwIswZlQhWO
RWZmZnh4eOXKleHnt2zZErMb8xr2t0yZMlCzzZs3X758uWgq+hP/CQns3r17
SEgIHmTWrFmOSLqmBFd4rdWqVUM/d+jQoXfv3tBIU6dOffr06Zw5c+AthIaG
NmnSRLMKb+4C3L/OnTv7+/vbUFpKM+F0yk3dekZQIivE3s/Pz9PTs0+fPnBZ
AwMD9+7d+/jx4+Dg4NKlS6PZERERBqU2GKeQk5ODIAKDEhUVhUGBNktJSYFH
GhQUBEHCSEVGRkpPA0xNTa1ZsybkE/IGccJX4M06sf0CcUYw4iNXrkRqbZ6P
Bk1C3AHv1OBcaXFIdLly5dTNgXdl8NSI7osXL+6CG0ipqiHiRMxQJzYDepsC
Wx8fH4VnoNgApgNsB2TSWvcAQZYG6XzWjgVs34ULF6Tvl9+8eXP16lXEjMar
N5j1MKM3btxwXE1ySnCFnN+6devVq1fXrl1DY6Snc/7+++9paWmurEidCMQe
juuQIUOsDdy0EU6n3NTdZwQluNLJ1L/++iviNYyy8J/xD/wnmufE7eeMMdBd
ly5dunfvnnj3h5GCRwqFZjw3cQ30HkbWpdQa5YRTdRcXr0RqVZ6PBu3ZvHlz
njx5EGAa7BQLDQ2lxFe3O9TDHiA806dPr169uuO8MtvAjEOouH79eqe/qIKs
0pkvkBmDM+5VBGFUs2bN+vbtq7zKCoiLi6tWrZqj37m4zljYBiW4BgQEOG74
3m9OnToFAUCQa5UAaCOcTrmpW88IkeAKze++5R8ZtwMuN0JgCF6VKlXu3Lnj
7OZYwNo8H0ezY8cODw+PIUOGSFMWEcgU05OamqpNM1wHBN39+/cPCgpynUJA
kPBatWrNnj3bFYIy2Kbdu3eXLl2aMl6Sk5MdlOyKALlu3bqUXabwK2jMtm3b
HGo9XWosbEAkuBpMeUY5EDCIWeXKleHBKv+WBsLplJu6+4wQFVw1PoeX+WB5
8eLFmjVrvLy8yIZq5uzZiVV5Po7m2rVrcJh79+4t1A5tU8qTJ8/8+fM/zAgU
PTB27FiE4a5Qsg96NSwsbOnSpS5lFxBexcbGwrFE1FOwYEFEXhBg1e/y4MGD
1q1bu85KjmuOhVWICq4GJ3czVgGB3LdvX2BgYHp6urPb4kzegxlBCa4aV3tg
PkBof5+vry/UL4xmx44dU1JS3G71wKo8H8dBbiq86IyMjFz95uKpU6fmy5dv
8uTJH3JKD4YAA+QKQoVRcOX9hugoOLHXr1930LYFCKTFI7c0w8XHQgn3798X
Ca7Obovb88cff3zgVRfegxmRkJBACa7SNG+GcQRZWVk3b960uUo5IwWOQXR0
tL+/f//+/WvXrl2rVq2DBw9+mGutDPN+8+jRo+Dg4JiYmA85LGUYweHDhwMC
Aj6c4jkM8z6BwPncuXMar/cyDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMw
DMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMw
DMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMw
DMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwzP8Dlf0E+g==
     "], {{0, 81.}, {915., 0}}, {
     0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{915., 81.},
   PlotRange->{{0, 915.}, {0, 81.}}]], "Input",ExpressionUUID->
  "e81431d7-b371-4bce-9ef5-b3adec3e8f1b"],
 "\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlQFFf39lEImoAo4oILomKiAgYjLohRQETBoIAiKmoAldddE9wVwS3u
G6sLqLhrjJqgRsp9V4zligZKo2hFiSlUKmrpW3lTfM83t9I1/56Znu6Z6dk4
v6qkdOzpud19z7nPuX3uuS1GThnwn+o2NjZTa+J/AxJmBiUlJcweWAd/GTR5
6rgxkxNHh02eljgmMclvpC0+jMR/B/CH///nSoIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CL158uTJunXrzp8//88//5i6LQRBEARBEARhDF68eOHr62tjY9OsWbPHjx+b
ujkEQRAEQRAEYQzu3r3r4uICGRwYGPjq1StTN4cgCIIgCIIgjMHff/995MiR
9evX//nnn6ZuC0EQBEEQBEEQBEEQBEEQBEGYkoqKiqysrMUK1q1bZ1kz53//
/fe+fftY45ctW1ZUVGTqFhEEQRAEQRCWwW+//dakSZPatWvj/x06dPj1119N
3SIJvHv3Lj4+Hi13dXW1tbXdunWrqVtEEIRk/vnnnw8fPqj9p/fv3xu5MVWK
//3vf2/fvjV1KwgzAv2B1lJZB7BuUzfBMoAMbtasmaULSOu4CoKomly7dq1B
gwZffvnl3Llzc3JyDhw4sGHDhqSkpHbt2vXr1++vv/4ydQOtkwcPHkRGRnp7
ez9//tzgJ79586aPjw+e4MOHD4Xb4OvrC++NPmDwNhDiKS4uHjduXJcuXXr2
7BkUFNSkSZPQ0NATJ04YUEoh2t20aZOLi8vo0aOFw9t9+/Y5Ozujc75+/dpQ
v16lgPXBc8L6YFmpqanv3r0zzu9WVFTExcXh2e3Zs0fgMHOzeusQkNZxFQRR
Nbl8+XLt2rVtVOjRowdM29Stsyr+/PPPtLS0b7/9NiAgwMnJCTe5devWv//+
u8F/aMWKFTh506ZNoa8EDsvLy7O1ta1Tp87FixcN3gZCJJcuXfL394f4/Pvv
v9kn9+7dQ8f46KOPli5dyn2oJ2/evIHARq8YOHCggAz+73//Gx0djcMQF9O8
tA7cvXsXscyxY8fw4JKSkvAQYWXG+WnIb9iynZ1dbm6uwGHmZvXWISCt4yoI
omoCGdyoUSM3Nzf4Twx/jo6OGAF37typKVOC0Bko3pSUlGXLlv3yyy/bt2/H
ECmTDC4rK8vJyblz547wYRUVFRgxT58+TVtcmQpITZhbq1atDh48qPwUMjIy
qlev7uDgcPz4cUP9Fnrdli1btC5B+vXXX/Hrjx49MtTvVh3evXsXFxe3YcMG
PErI4LFjx8KjJiQkGCqWEQYe+8CBA0eOHEEsI3CYuVm9dQhI67gKgqiaQAb3
6dMHgyO8IqWqGo1du3bJJ4MJSwFqs2nTpuzlC/QJ9/lPP/1Us2ZNfL5ixQoT
No+QxIULF+BLX7x4gT+Xl5d37NgRT3Dq1KmUJyyAdQhI67gKgjBnoFFPnTq1
d+9eg4fwnAwWc/B///vfnJycGzduGLYNBgd36fr165mZmUlJSbGxsT///LP4
7z5+/Dg9PV3uxEgxMvj06dN44saZSiIEkM/63rx5M3bs2IYNG0LuKosl1j1s
bW03bdrE+4qF9go0eM2aNcOHD09OTt62bZv1zTbj8c2YMWPBggWskxQUFDg4
OHz88cdHjx41ddMMwLt373Jzc2/evGnwM1uHgBS4Cgs1WIIwK+BgIT4///zz
X375xeAnlySDQX5+vqen55EjRwzeEoPw/v17+KIOHTrY2NjAL40bNw637unT
pyK/fuvWLV9f34yMDLkncMTI4CdPnvTo0WP27NlUssOEyGp9mn5x2rRp6MDN
mzdXrR9lub3izp07aWlpQ4cOrVWrFq7Oz8/v+PHjZvJqXn/w1A4dOsTWU3AZ
EXAmllUIVy2vX7+Oi4uLjo6WY3LA6mWw5RosQZgJGCY2b97s5uZ27NgxOc7P
yeAXL17gJ7Kzsw8ePCiwOgbtgSpo0qSJpClW44CriIqKwujj4OCAAVdqenNR
UREUPvyVcHKdQRCZFHH37l0cM3PmTDFNgoYPCwv77LPP2rVrp2kOCgM0Hh9G
Z3d39/bt2+MwfXTImzdvDhw4MHfu3NjY2C+//LJr164DBw7MzMzkDf34iW3b
tgkvYDdP5LY+taAfYkhF90hPT1f7dMT3Cmgz3PmOHTvicUdERDx+/FjtYbD9
iRMnovM3btwYT1DPqVq0uby8HFdx8uTJvXv3lpaW8g4oKysbPnw47BTXuHjx
YiOYm5HBJbdq1QoXOH/+fH3sC+eZMmUKoiGcyt7eHucMCQmZNWvW1atXudNC
muIYLy8v9Bn8nFqtpY/Vw8bxsLp37y5T+pawDIbdubq6pqSk8OYlrl+/Dln+
008/ydEk/Gjnzp2bNm1ao0YN3HPoWN4BuP8tWrQYP348N8crfBWS3DhBEDxO
nTrVqFGjjIwMmaZNIIO7deuGQRD//+abb5YuXdq3b986dep89913mqJX2D4s
GnLLrDbNgYcZN24cG1vXr18v9Xb98ccfAQEBkZGRxqkRJz43+Pjx4xgIcnNz
ha+opKQEGrigoODZs2dt27bF01H13ogLFixYMGLECPwolE+HDh3guu/fvy+1
8RiSTp8+PWzYMDat16BBg+Dg4MTERAzQcXFxGDicnZ0RhnA+/8cff3RxcbFE
GSy39fHAA8LjRhTj5OSUlZUl8EpCZK/APR8wYAB6Aks2HjlypOpA/PTpUxyz
evVq/PqJEycQQkJg6FbmCx4DP2Fra8sVnEEnV/vcIa6GDh2KA6A0IJV1+C1z
BnIIF163bl193iD8+uuv/v7+kLjwFUuWLEGYyd1V+Gd2ZjymSZMmQf3ifsL7
QSp///33vPPoY/Vw9ZCgEM9ypEMwBAQk+ioLl+bMmaNsC/g8Pj4en6Ntchhm
RUXF+fPnhwwZwkqm8ObA8esJCQn4p7Fjx4qUwZWiDdaYFBcXBwUFQc+7Sweh
GYYY+CjzuRzCWoFxtWnTJioqCl5Opp+4cuUKnCpkLSd6YeZTp06tVq0aVLGm
CVWIRj8/v8DAQPN55QfHDj+j24tIXPuoUaMQ/t++fVum5vEQL4PhaWfPnl2/
fv2zZ89qOgaPDKPhunXr4JQePHjQpEkTyM67d+/yDtu5c+fAgQNfvnyJP+P/
Xbp0gTSCRpXUctzniIgIdA+MuYMGDYJw4qW9sbfD8K5oEobp69evu7m5QSrf
u3dP0g+ZHCNYHwfuateuXR0dHdGBEVxkZ2cLC1ExvQLqt3fv3rj/+PPmzZuh
TvFX3mnxV8QvXGbyuXPn8Ou4agRTOlwFuh/kGcb6yZMncyGSpufOPA+OQfhm
tOK6RgDX0r9/f3ZdOi86xuOAT168eDEnM/CHkydPopPgzN27d2cL8Q4cOBAT
EwPZBkeNWAZWifCTdyp9rB4RCiIy9Eb51I6AgCwrK0NIqKrt8fnnn3+OAAqX
L1Or4FGZDMYgyItG0WCIwI8//lg5M1CrDBZjsEbm1atXO3bsQB8bM2YM7JRF
WLVr105KSkpPT89SIjMzc9myZbgV6GweHh5cOKbcPwlCDtj0JvonG8hkAo4R
gSpvjqi0tPTTTz/95JNPBN46wQk4ODiovq4yFbgKtAe2OWzYMKnvng4ePIjv
rl692mhGLalSxPPnz318fPz9/TXJeygNxPXsXfa2bdtwZgx2bOBTPkmvXr3O
nz/P/srUMpze5cuXRbYZ4/uCBQvQK3CT0Rjh8vvotJ999llycvIXX3yB47t1
62ZZ2zEYx/pUKS8vX7t2LTQkhpszZ84IHKm1V2zYsGH06NEfFLCp13nz5vF6
OKw4PDyc6ypbtmyxs7PT/2GhV+Ppq51M42CvLXCMl5eXHJvImIqbN2/Wq1cP
tzEnJ4d9ggck9R0TlG1ISIhaWYUewvwb7BGPdffu3fjzw4cP3d3dIVk5A2fo
Y/UIo/Bo+vTpI+sLMgEBeenSJVxRo0aNePXPuc/l23kZStvb2xuOlN1eDpjP
unXrEFEGBgYqpw6KyXDWarCmAsEaOhtTtsqZHmpheVZwULR5NGEEoOvQ2SZO
nGj8RaYYNyMiImAU0dHRmiaEYTuRkZFw+IWFhUZunlp+/vlnptBGjhwp6Y79
8ccfvr6+7dq1020GTDekFkxbv349jl++fLlaof748ePDhw+z3Zn79euHm7Bo
0SLekXDsUPtcgIA/16hRw9PTU6QCgetm0yNoxsKFC8Us98jNzcXBzLtOmjTJ
TMIlkZjQ+ioVexzY29vXqVPnxIkTAocJ94qzZ8+y2tFFRUWurq4425UrV3jH
4BPOfnGl//nPf8QMhVqB7mKzwaqTaRxsrg/HQDBbTdlAPIglS5aw5Y1suRws
JSEhIT8/X9J5EDsgghgzZozAg4AM3r9/PxNjWVlZkCXdu3fnBR06Wz1+d/r0
6fCocCySWi4VAQGZnp5erVo1CE6eDk9LS8PnAQEByjUGDQvbVUr1XUZpaSmc
tqOjI29pjMiFfsIGayowfLRo0YL5dp7sVwv6xpQpU9A3zHB9EGFM4Fh27twp
PF2jDzB8RPEww1u3bsn0EwKgn0NMwi6EX48y5Tl8+HBzWAOrmwyGO1q5cqWd
nR3LKJC1hcpIlcEYznx8fDw8PB48eCBw2LVr1+rWrYvYRDiXD8pk9uzZuFdQ
tmJmzh8+fNitWzccX7NmTeGcVWVYIiLzrjt27BDzFTPBtNZXqZg48vb2ZrPo
5eXlmg4T0yvQq5ctWwbZEBISIpzdwUrd4mFt375dr9ZXVq5Zswa/qCkxmIHw
8/PPP8c1fvrpp+JruZg5EGaQZ7io+Ph4ZlmIQcLCwqTq/A8fPkRFRSF4EdMD
8aNBQUG44bjtAk5MktVfv34dbiQ0NFTujCBNAhItjI2NRWtnzpzJSwxmrzam
TZsmX2QNL1e9enXeuwz8NOQffhrRIm92SKQMFunGjQw3dIpPXdu7d2/Dhg3l
yxgnLAL2Ri8mJkamtZ8nTpxAyDlo0CBZFWZhYWF4ePiMGTN44TZk5Pjx42EX
TZo0EdhS+eXLl35+fmpnmYyPbjIYUs3X19fNza2kpETW5vGQKoMxus2bN084
HQufJycn45jIyEjhZEsMbT179lSbSagKXDdbnmNvby9p7SEGqaSkJHwR46nW
Le3MCuNYX6XC0KBzVCNNDLJsVr9WrVrnzp3T9HUxvYKlg9ra2m7cuFG4MRjU
nJ2d9X9YaDxuHVqFgVJgKZZVyuDS0tLmzZvDtNm6P5gATHLhwoVSQ2wcz7ZE
HzVqlNaKN+ghTk5O8NXCC9/EWz2aPX36dFzFli1bJDVbBzQJSJaWoJoAzD5X
uxjQUGBM//rrr3nvMvBEEMvXrFkzMDCQJWaLuQoeYgzWyKAZCxYsYO/sBFKY
eBw7dgxPQVPlGaKKwJLfBgwYIIcMZithYemyrqGGgU+aNIllxfN0LDcbLKzT
2EST8KtPo6GbDN6zZw/uc1xcnJFL2eiwi9y1a9egUnx8fKAf1B6Az/GvOO3O
nTsrFaOearEIBksRxNB58eJF4R/FSYYNG8ac5Lhx46TWoMvLy7Ozs0OsJFCC
z9wwjvWxHxo9ejRubIsWLXjZj/gnhNhs+l14NZPWXsHsAj/B4llIbk3Pgi2j
69q1q54Pi0v67d69u8Bra6uUweXl5Qg6uOAFNz80NFSTGQpTWFiIJ4sOAF8h
cBgcL9wvWxMB88Rf8aDVejPxVg9500qBarE7g6NJQGpNDGafw38aPHWZc6TK
GQIwwzp16vj7+6t9muKrH2s1WCPz7t27r776inl48eM4OnZQUJC5JTkTRkZW
GXzv3j2YefPmzWWNttjkIcJtiEDei1eIn+DgYNiF1gkxlkOFUc+YibVq0UEG
wwNERERwutGY6CCDEad369YNw6KmdYv79+/H02zTpg07Z2Zm5vTp09W6tQMH
DuBIhPNlZWUCv4jvpqamVq9eHXcVfluHR3z06FE8FOhnC9pEyTjWV/lv/ieb
8uWtH3/79m2vXr3wTxgxhdfoCfcKeKdRo0bhPCzLFKeNjY1VW1Ma/8o0+cSJ
E/UMaVm5CZwqKSlJ4FRWKYMrFRth161bNzw8HH41ICBA55ppeFhsgYa7u7tq
1RcOqDKMROgAhw4dqlTsUQJVo9auRVp9pSKFFQGRDmuNdUCTgGSJwaplfzIy
MvA523wcAhjR4oULFwzbpCtXrignBiO4WLVqlaOj4/Dhw1XngYWvQhWtbtzI
SE0MZuzbty8qKsqaCrwQOiCrDGZeqH///nK/kz116hRiOlV5c+PGjfr168Pw
te4aAB8FT2UORq2DDL5//z4Ej6urqw61c/UEwhtuR9LiILZbK69eJQe3cdXk
yZNx5KtXr+Cm8HzVnmfWrFk4cujQocK998yZM6yklb29vW6RwsmTJzGg5OXl
6fBdU2E062PKE0J3wYIFvAGlpKTEzc2N5bcIJ2cK9wo2MQu7YNL30qVL/fr1
UzuHwyUG65/FvXr1ajaqYqwUOMxaZXClohTznj17cM/1TKw9ePAgXCtuUWho
qKa31T/++COOwZ2EuGUL9ObNm6cafYi3elbwDcEvDEGfxotErYDkEoN5FW9K
S0vbt2/P9fbbt2/DQAw+J6mcGAyViLtRr1697OxsgfsmXgYLG6zx0ZoYjD6s
up8ObtGECRPMof2ECZFPBnOZdUuXLpU7fQgDPTozglzl16BMQUEJzJ8/X2s/
59IneAsZjI8OMhhey87OLiAgwDhbZjDwTJ8/f/7tt9+yub78/HzxY+X+/fuh
SNUWRsbNxznhvTdu3Ig/r1ixYvz48WqjdVwsW1CTnp4u8FsVFRW9e/dmL8sC
AwN1q6CFcbxJkyamWmimA8a0vkrFxn8+Pj7QG8puBG1ALIM2eHh4iClkLdAr
IDUhGxo2bAhdDaEbExOjacLn+vXr6I0IfgUmHsWAxkdHR6PxiC6F61lZsQw2
FLDBnj174hbBWlNTU9U62IKCAvg9SDXceYQ5ffr0Ubv8SqTVVyrWwzZt2pTb
oUNu1ApIlgCMC3dxceES9pgiZTJ47ty5MJmUlBQ4OsPaKZcYjDs5bNgwuC8Y
o9bCGpK2hBYwWCMjJjE4Ly9vzJgxPJ2DG0I2S8gng589e9amTZsaNWpAQoj8
yrVr1xDjY7BDZ4YHGzVqlMB2qHCSO3fu5IQiNBicCcbi5ORkfL58+XJPT0+M
hps2bRIpJtesWYPfhY81pphURaoMxjGwbrbsV2pUC+9x584dDCjwkLjzg9Ux
ZMiQxMRE5VoicB1du3blaohBsmJUYn92dHQUU4EZoqhu3boYodS+KIeAQc+B
d4V8RQM0+VgoosaNGzs5OWHQFPitH374gc1E6bNS5tSpU1Dj8tU1Mjg6WB+H
br0Cz7Rfv34dOnRAb8zOzoYkRtCBIDQ2NlbkpsYCvYJtBo1/Cg8P79y58+rV
qzX1sZycHPyov7+/+HgH9wqdFrcLnqdly5YQDxAqcIytW7dGt9Faz4pksDBP
njxZsmQJbixzEbVr1z59+rTqYfC6I0aMwCPAYOTn56fJqEVafeW/08vi87Ug
v3ft2gUR5eDgAF/Rrl27lStXato3BB0Sjlq5DWoFJEsAhj9v1apVgwYNcIEQ
wF26dNmzZw9uS69evTBChYWFRUZGaspS0LlVrNZHrVq1QkJCYI+86uuakCSD
hd24MVFODJ4yZYqqc3j//j1cGe6DSZpHmDnyyeDCwkIYCMxEzEQQemlqaipC
S5v/C2JYtesgWMmXVatW8SLo4uLijRs3YvhetGjRsWPHJOmWo0ePfvzxx+7u
7qZdNypVBuMau3fvjuPXrl0r/ldw3woKCqAWbMSRkJBgwDdHrNQqvLqmVTMI
auDM0XMEFDX0LWQeziOQIgj3iCGGXQL6edVRKZKsj0P/XoEQJjMz81sFubm5
RUVF4ue4tPYK6FUIb4GHiMawFGKR5Z1ZCX0XFxeIJZg//gpHBI2NWBhtYHvh
aa1nRTJYE1C28+fPRz9EPHvo0CFuawMIP7VTDbjP6D8XLlwQmIgQY/WVip68
ePFi/Bakppgt8EpLS7l3RsqgqWoL/eFB43KU55nVCkiWGNyzZ09cEb5y9uzZ
+/fvc90Jf8Bfr1y5oiltSf9WSUWSDNZqsEZDa2LwjRs32rZtaw6VoAgzRD4Z
zBZPickahRNga4SBnZ0dRhMvLy8oUvZJhw4dVJN+Yek9evQQqIGmAxAMzs7O
quUmjEx+fj67dgzoYpQnPACku6QdOeGTMbiz6Vz8H3cbgwVuO+dm27dvP/Bf
YmJiZsyYYdg6bBiY2NJFHUowMbh15QgWBLruzZs3IXLYRSUmJladHDDx1sdh
Bb2CLY0XWYTqw4cPc+fOtbW17dixo3Lki06COBoBuI0imVzrqV68eMFecLdq
1Uq3WgpWCW4poglE9JCCzO7goNh7GXyodbGGWkRafaVSUu7o0aO1Wj2a6uvr
yzo5Yh8ENdBU6BjsEwR0vDOgcyJW4pWAUxWQXBvmzJmjQ6KdQVolFUkyWH+D
NRTCicFwU+iK5lPUgjA3ZJLBXAky1c1wVY/MyMjAsItBZPv27ZwJw8bhNhHB
Va9enZc3hX+CE0hOTjZsEi+nJ3V4j2xAtmzZwnzdrFmzxFwgIoI6deoI12VV
BmonLi6ODUaQAdzTwW9BgbPRH05D1spg3AAhPpGjoqJiwYIFOJ7FRHhY6LcO
Dg7C42lmZiYrEGEOUxZGQ7z1cVhorygqKsK4j9Gfua99+/bBfr/44gut4x3O
v2jRIgTduDTVCXNu8zjVOleqcK9jXF1dtR5cRXj06BFCAwQROTk5nOtGp+ra
tStTcWrfXKuim9VXKvpzYGAgfgjDhLBCw5ERERHVqlXr27dvYWGhcmvx005O
TvXq1ePNrz5//hwn56V2qApIrmKwDgOKoVolFUkyWAeDlQPlxGDcljFjxkxR
MGHChKFDh3br1o2F9sOHDzdyNVHCUpBJBnO1fPv06SNcjQRjEEaiqKgoteN1
aWmpn58fxjXl1CmMfejb+L8BG1ypmNXBD8HzmDCD6P3794MHD2ZqROQOjyyX
w8XFRcy+OdyqJShntfuibtiwAdoAA43w7rd6gu4xdepUNOOrr74SWceALQOE
ODlz5gx61OjRoxEszJ49W2DqA10aro+5R/H7ClkB4q2PYaG9glvF1qlTp/Ly
8pKSEk9PTxiCGMOB1aAvIURSuyEs5BbEgI1iTaXWlQLcpma4RVq39jBnkpKS
vpGIWikLT85e5fMKdLPpSraOQOR6Xh2snsHtcC28kg5NysrKQsdOS0tTey2H
Dx92dnZGt1T+1/Xr1w8ZMoSXa6EqIFliMEY3qVutGbBVUpEkg3Vw43KgnBjc
tGnTgH+BSPDy8mKzxLB03FJTtZAwc2SSwZwCGThwoMCZ2S5v6MMCc1aXL192
d3fnwn+2nxFGbYOHn69evWJZkQgt9XnFgxbm5OSEhIS0b98ePjAuLk6ki8AX
MzMza9SowTIiRBYz3L17N6Jd4W3yOPbv3w/NjOOVZ2mUuX//PhQjGrBkyRL5
3nPhzKmpqTaKPXZFLmU6fvw4RsOuXbtCaQQHB9euXZubA9QEzsyluZrDcmaj
IdL6OCy0V7A9wqCL4ENWrFgBL9G2bVsx70Sgkdju2JDNaotIQ3Sx2eAZM2aI
mbR8+vRpx44dcbybmxv8ldbjzRNuoat4VOUobtfixYuhOvA4VCtssEq2+KLI
Cu06WD2D7YKHviGs6DD8oSesXLlS01NGn/zuu+/gPbj3C3AjvXr1Uo0WVQUk
nDlLDJZabs6ArZKKJBmsgxvXxLVr1+CsOnfu3LJlS8QvkgIH5cRg1TKJ7D2X
yXMdCXNGPhkcFRVlo9gSSODMxcXFsGXhgQNyd9y4cdxLtEePHnXv3h1WY8DW
MmAvCCHR5tmzZ+uZbnHnzh3EnrixLIlLzNmePHkyduzYjxTMmzdPfEHvzZs3
Y9CBz9e6U9Lz58/ZWp6wsDBNiwcxoLN0UEgL+d5zwX8uXboUvwLxoHath9qv
wI/NmjULPQFqTYym5Rb7A/RGMSlzuO2IhjBs4WBlvYc/40MdqqzjK2/1Q4en
INL6GBbdKxBgIgycNGkSbPbo0aMinRj0Ccs70rQvxqpVq2wUicEIEEQ2HvqB
TUnVq1cPX9e5qAjao2eHQZfTLVSB1NwgEdUfunv3buPGjVk2guq9ZcONjaKG
npg8ah2snvHw4cNGjRppTYWC8wwNDRVO9UGbIc+4vVrQ3yIiIlSfLzoAe60J
ZYgO8OLFi4MHD3bq1El480S5WyUSGDXOgJZjtIJiFC+DpRqsJnC70ADoEBvF
GgRJSbxcYrCmMol5eXloISUGV01gTWxOwyBAaIkXn1AR4eHhNtrKHUAAw1tq
nSw9fPhwnz594BZgd+np6XquAtAEhg+245VBtlRmC2fgh/fs2SNw2LNnzwYN
GuTu7g4pW6NGDQzoUt+gYTCqVq2amFXq2dnZdnZ2wtvaMmduI3+619q1a20U
e7rJ5524V9tATI10dG+2y4YmJO3Py3bcMIjpSd29TqT1Mapar8B4DXFio3mh
Fu7ewIEDcQDknKQ1gBDhP/30U1BQkI1iYsrT03PRokXiPRXbGEKHKVlVcGls
LzYjg0uYO3eujaKQuNrBgu1ShAO0lnrQEzw4iCLhFY5oLUYTrUsg0eEhwtkr
QsTCcNdqt+CB++3Ro4e7AnQwnbPEDdsqkWAIxqjKGo84RXznMaDB4sIRluJs
I0aMED8pp5wY7O/vr9Y/434mJCRQYnDV5ObNm5MnT46Pj4/TTExMjIODg5ub
G/qewGHoRfPmzdNafJuDm4/Cd/UfN0tLSzG4sMr5vXv3PnLkiJ4nVAu37tUg
MpitXNOakopR8syZM8uWLYPOhxpxdHQcP368pAEiNzcXElrr7Mrr16/ZQp4O
HTpoqlEJLly44OTkZKNY3Szr4l+2RZesgoe9GGUeUszloKNC7924cePo0aMb
N27kZpLr1q2blZWFByppxgMiHB0pOjp6oH7AMCFQJT0L8dZXBXvF+fPn2bVo
qijLvUSQWkIcwg+3HQIYIhABCPoM+pKk23X8+HE8Mj07DLrcxIkTTbJYD12I
ZZtounVcDKL/a3RhHj586OrqqnUHQJHs2bNn2LBh8NXnzp0LDAwUPw7Kijm0
yoAGy1Y1Sk3iVU4MVlsmEQ5wwoQJxtlJkLBQ5EuKYGtIBw8erP+ZEe2ihQUF
BYcPHw4NDRW5+F0qFRUVCOdtDLSRHCvjr2lHG7UUFhZ6eXnZKN4Y4s8iv8W2
M0YgI7xJAUZkyDmbfzcp1nTYpk2b4IggyLdt2yayATrActtsZE7Z5Qq62kiv
WQTv2rdvX/ZdkZXrzAfx1lfVegVXQwPExMSovTlcYrDIUi2ViomszZs3M3U9
aNAgMVmvVsnly5fZGxBN5sZ2dcEB8fHxstoUK/uDHrt9+3b9zwYz6dOnD3Qm
AtvU1FTTFgfjMHmrDGuwbGMUqUm8yonBahNg0EhYtPi6kUQVRCYZzNWxj4yM
1D+BAW3D2fLy8hITE9euXSuTvUNd+/n52RhiHRB3+SLrAnHcvXuXbbcE/Say
FP+BAwdq1Kjh6uoqnE2xdetWyHLhZDnc52HDhuHXGzZsqOdetMLg9s6bN89G
9IJx3VCWslI3vueSGDGSisyUMx/EW19V6xW4MyNGjGBdQtM20ywxWFIhbkTo
TDn369dP1klOM2fPnj1sdYOmTDD0H4Rd1apVS0tLk7UlzH4Ru+Xk5Oh/Nmit
Xr16nT9/PjAw8ObNm/qf0CCYvFWGNdgffvjB3t4eA59uicENGjQwePEoooog
X91gZiBBQUFS18mqwgqzJCUlwd4NW7FfGYTVnp6e8Jz6Vz1iKXA61KrFfZs/
f76NosBLRkaGmK+wGqd16tS5ceOGwGlZ2I5Y++rVq5oOKy0t9fDwYBNlshbA
Ycse8UP9+/eXI82boZw2JnIzKQ6ucixG7Vu3bsnUQpkQaX1VsFfgtCwyqlmz
ptpl9VxisHKdKwzxAm+g4DmHDh1qo8euEJbCPwoEDsjOzobEFdjpeN++fZA6
Li4ucss2PK8uXbrgoaxYsUL/s5WVlfXu3XvWrFniy/4YAZO3yoAGiyF+xowZ
NuJW9XIoe3i502wIK0a+XeTYi1RDJc/PmTMH7Rw1apR8ie5sHZCm8ZEBfZua
murt7d26det27drhGvGtzMzMhw8fKh/GEoPr16///fffDxo0CDcBjY+MjBQT
rh46dIjVTJs4caKYmWTEBa6ursJDMLekt3HjxrymKpOVlWVrawtRJHInDp3B
Q2RiQ9bKA5WKdE22ixyerGr5Jk3gdi1fvpx5186dO8uUhCMrYqyvCvYKDNb9
+vWzUVRIVrvnLJcYzNW5gg0iplDdt52jvLycVUsTWbTQQqmoqIiIiBBedMle
LiByVOvouHLWiET0LG+rFTxotNZQCz3g9hFRwocLr3c2MiZvlRiDxedoXkBA
wKeffoqmjh079unTpzt27Dhx4oSyQbHEYMRQCMznzp3r6+vbtm3bTp067d27
V+DxKScG6/Og0UhEE40aNeJtPsJqn0KZKyccYpzFoNC0aVMM02o3jrx69WqL
Fi3kHtoIAyKfDGbbOqC3COesioGtoUavE1+/SAdYoQBnZ2dNs3+XLl1Ct4f6
ZYm77J2Um5sbbHD16tXKR7LEYHt7e9jy4cOHYe+vXr0KCwuD3hCYdmOw+2Yj
bpl/5b+F4rXmbeJfcYzA44BeYou4J0yYIN8MLYOrTQd1IesPoVcnJibih+Bg
Fy1aJDLXBSM+W+8PxowZY4neTKT1VbVewaWLIHJUq/wxxrF3rFxi8OvXr8PD
wwsKCjSdk0tBt+LNlGE4aWlp6CoDBStRnzx50sHBAV5U7WTvs2fP4A9r1qxp
hCoWnOTWlAEuCRbpYKAUmahmHEzeKq0G++LFi+jo6Fq1am3cuBFP4f379zNm
zGDJKsHBwcqhUHFxMauzBy2ampqKCBRPEKfFoL9y5UpNfls5MVifWICdB+08
e/as8ucwZxi1k5PTxYsXuQ8xOpw/f37IkCH4XdW1P7jMhIQEHdLwCBMinwy+
d+9e/fr10YUuXLig56nYVvKaat0bCgSesCZvb2+1hRquXLkCO23evLlyeuTB
gwfh1Xk7vnFDLSzo+vXr3Oe7du3C+WNjY4XlBJfsJFIGcxmwKSkpAjIPzW7Y
sKGmSTA8/WnTpuEkPXr0EKgYYCjgXjw8PKDTZCr6oUxRURFLt4aDVX4cAsCj
skgE4/6WLVvkbqEciLS+Ktgr1q9fj1EYN0f17QBiVbb9GZ57Xl4e+xB3BjGR
wBIbTgaLKVpoody6dYtVzBOWwc+fP/fy8tIkdKGF4AD79+8v33IAZdjuFX5+
fvrvAI5H7OPjI7VuodyYvFXCBvvy5cuwsDA88U2bNnEDE+wIoZDqqpn9+/fb
29uj58A8uc+ZOsWYq+ldFTdWwonps0ko2o+rULVfdn4IJJ75wwSYDFadgv7t
t9/QYOMMbYShkE8Gwwo6d+5sa2u7efNmPU+Fto0YMULWmqWw04ULF7KF3qoy
FRqgS5cuuJZ169YpS81Tp045Ojo2a9ZMeTKNJQZjJOVduCab4iFVBqM9rFYn
HqLwzsKjR4/GuLBixQqeWoYhZ2dnI+7G8xJ4OW5A2GZSTZs2Nc7PHT16lC1g
xxit1VtiBMeIz15zW2JiMEOk9VXBXoGTIyzCdSGGVf787du348ePh6DFwM2N
YmyfrEmTJglYotXL4Ddv3kRHR7OCxsIyGLcLHQlRRmJiIu8wSBpYn7u7u6yr
LJU5d+5crVq1YMv6d6fS0lJPT09ehzE5Jm+VgMGyPEaWAKMc9XCrZpQreLDt
IHEwuplykjOzLE2LVbmfAPoEO9x6nMjISOVf5z6PiIjgpV6XlZV5e3vjKnbv
3s07FRQCvG5gYKD+wRdhNOSTwaxen0GyszCmBwQEGKT0jSYgIHET4OrXrl3L
+yeubyMy5b07hs/HBYaGhirvL8YlBvMcPnsBrTWBUKoMBvn5+Ri4taZhw23C
BTVu3BjqnfsQ9zYpKQkWDf1vtMqTubm5uJ+9e/eWO0WQ4/jx43DXNoqdhjIz
M9X+bklJyddff40DduzYcefOHTwpxD6WmBhcKcX6qlqvgDlv2LABlxYeHs69
0IRIi4mJQURQXFysvOvNzZs3O3XqpGnBF8O6ZTBuV05ODhQC3ItWGVypeGWM
YxwcHPLy8riO9+LFi/79+zds2NCYSwjZ1DTvVZ1uQFHj8vXP7jMsJm+VgMHC
cFjdZt6mHjdu3HB2duYNjlxicHp6uvLBGCjhtPETyq/kYG6wR0SpKSkp3G5H
jRo1WrJkya5du06cOAHXLUnMYOwOCwvDSZYtW6Y8FYCL6tOnj426ylGsMKDq
pgDwpa1bt3Z0dNS/yxHGRD4ZXPnvmw79X0vBpjDEaM2q1QeWBQQLVX1vzm0x
MHjwYOXpVvwZ0Ss+R8yobCabNm2C5fr7+ytnDWFEmDlzJg5u06aNcGqHDjIY
gy8eopj8E1wmrgKDFCJctCc2Nha2jAd06NAh/ReSiAQ9LT4+Hhe4fPlyY9a6
hNRJTExkyw/hP6GCoPTS0tLQjPHjxyO6xz8lJCSwfQfQMDzH1NRUo90WgyPe
+qpar4BZrV+/Hn2gY8eOU6dOhRVD+kIbMx945cqVli1bsuU80FEZGRnCN8G6
ZTAG+uDgYCguVnhBqwyuVKia6dOnw4mFhIRAQqBH4c706NFDbeKNfHDJacLZ
YmJYtWpVUFCQzlsVy4RpWyVgsPjrokWL8E/NmjXjzfls3brVzs6ONzjC5ULH
Qljy4k32slV5g0t0rZ49ezLpi/N8pATbHp0lSEiqQ8JKTOOHlOcBAOILfA6v
CGnN+0pWVlb16tV5icG4IVOmTLFRbLUp9zIKwrDIKoPZsmu12lISGKE8PDzQ
XQ3ULjWw7CBEf6p5axgI6tWrpxqrshUfvCwg+F5oKtXFszgtW3XFe/Oiig4y
GIexhWAiJQSCVgTObMtO469tZ2+U6tevb5JalxAqkEDo8F988YWbmxsED8b3
uLi4bdu2mcnmUIZCqvVVtV7x9u1bqLucnJzTp0/zysrhrwgB4HbElHaxYhmM
WwQvhECgvLxcvAxmvHz5sqCgYMWKFYg0r169apJwktVUl7obIA+4azhtSYW8
jIDJWyVgsO/evQsNDVV9T4pxCqGlahGk/Px8aF1PT09lD8ztdNO4cWPxRX50
gA39qsmKmhKGccO//vpr3os2tHbHjh24isDAQCMsoyAMi6wymNX7hYDkvW6Q
BKvez4sfDQszT17CEgfbVUo1WmSlZbnEYBgLRk+0Ft5JtfjwrVu3oKXxE7m5
ucKN0UEGVyoK+CNuNcMpC1UQ2sNdaF0qSOiJQazPaFhur7BiGQx/OHjwYLgU
rgyveBlsDuDRINpFJHjt2jWdT/L48ePmzZvzXvmZHJO3SsBguS2zefuxsl7E
jbMY0JnuxZiIEZNXfBiDKVuvGh0draylDQtL/rdR2WmIlzCMgRijPLsWtjKR
lxiMu1GnTh2oFGutFWPdsJT1xMREmVaf/fLLL5B/fn5+OudYsv03ZS0/Apfi
4eHRrl07tfOBFy9edHJywlXcv39f+fM1a9ZAY4SEhLx9+/bVq1cRERFXr15l
a0h5C3A4m8J90LrppG4y+K+//urVqxfaCXEu8ismgYXStJDWOOhvfcbBonuF
tcrgkpKS4OBglslgoTIYjnflypWQWPPmzdNZLh46dAgKh3svbyaYtlXCBovR
sGvXrhgcMzMzlT+/ffu2iwL8ge18wXZyhCq2s7PjiRAMu7UVnDlzRr4L4Sau
eYqdSxj+7rvv0EJYQVRUFPOibGEglxgM8bxq1SpHR8fhw4fTPLDlgqBMvj1o
WJIA7EVgTwphTpw4AXWnf7kJTbCSmAjuVBfLM1jmbd26dZWz+h88eODl5QUz
mTZtGsynsLCQmQnOsHjxYl6oCHtxd3eHIBGzAYFuMrhSEZDiPk+YMMGsqvrw
uHXrlqurKxQ77fhjBPS3PuNg0b3CKmUwRoSxY8dym4ZYqAyuVLzu9FagW7FN
VsRAeUtBc8DkrRI2WC4re926ddyHEJajR4/Ghx06dIBcrKioiI6OZpM2V69e
haSHjOS61tu3b/GviF8WLlwoazoNSwxGq5KTk5VHfwymymnJ6enpiKRYS5QT
g/H1/v37Y2TPzs62LLsgjAxEYLNmzdSm3WqFqUpNdU0NAtwjnKTAPC06//z5
8xGuZmRkMEtBMBscHAxzZtEi+v+sWbO4WmrsemNjY9mrHFhKt27dEAKLlCIF
BQVMBickJEgStMx1IErVMxNbPlj5ArkDfEIZfazPOFh6rygrK7M+Gbx3794B
AwZwiystVwZXKtYs29vbr169WocJYai17t27BwYGmpX5mLZVYgwW+tbZ2Tk8
PJxl3UMx4isYZCEse/Togfb//PPPQ4cOZe1nI1eLFi1KSkoqFYJ55syZH330
EaS+3JtEswRgG8W+86y3o5McPXq0c+fObm5utWrVOnfuHER7VFQUW6HPJQbD
ow4bNgyRyOTJk61sUQkhB+hXmZmZDg4OcK1Sv/vhw4fIyMj27dvL9LoBbYOO
RW9Hzxc4DHaakpJSv359WCva4+/vf+zYMejbgICAhg0bhoWFYXQoLy/njod/
8PLygmUNGTIEloKviC/uXVhYyOrAwPSk5kmyKvcjR440zwTLy5cvIxz45ptv
zHm+2srQx/qMg6X3CpalCYOFm9J/43hz4NGjRyEhIcrL9i1aBkNrRUREfPbZ
ZzrUFoMwa9SoUVJSkllVjDFtq8QYLNxOfn6+h4fHl19+Cd3o6+uLcRY6c/bs
2Z988gk0JCSxcgf7/fffBw0ahGcUHx/frl07b2/vH374Qe6r4xKDMWjiimC/
o0aNgkpHb7lz587x48fxuY+PDyIONJ5dLAQ8Bn0IBhhIdna2mSebEWYFZOSI
ESM8PT2lOiJWjUG+DW2vXLkCHYvYU4xvR0h78eLFoqIirjGwU+hbxImqshPH
3L179+zZs1JHRgh+Ns+MaJSXjawV2HVeXh7C8O+//17SF40AfGBwcDC8n6xb
ARKq6Gx9RsAKesXu3bvt7e1hsBhDLU4iqgJXNnny5MWLF6subrJQGQzgSCGx
EhMTpc4PsKVP5pYYbMJWSTJYdJXbt29jkFWetcYXz58/r/bd69OnT0+fPl1c
XGycdX9cYvCqVavQMTCUnzlzRnlqF54Tgzs6j1mtjiQsF/Subt26ITCUVBsf
ShIRGQJDOZoEwRkUFBQdHW1WL7wqFZv5Ojg4wDz79++vPMksBnieOXPmIHaQ
KqFlBUHB/PnzW7VqZaGbslk6ulmf3FhBr0BQDH0FU23ZsuWdO3dM3RwDcOjQ
IVW3Y+kyuFKxgQ6Gkry8PEmSZt26dW3atDG3XBdTtcoKDFYZlhhcq1YtC03H
IiwRaFofH5+5c+eKd6SPHj2C3cmxcObNmzcjRozo2bOnGU5DwVHv2rWrfv36
GHd8fX3z8/MlTYZD1cfHxwcEBJjJpeFytmzZAp2AkcjUbam66GB9smLpvQLK
MC0tzdXVlRnpjRs3TN0iAwBl1bt377Nnz/I+twIZjP62devWFi1aSOpv8L34
lrlNBpqkVZZusKqwxODWrVvzKgYThKwUFxcHBQWtX7/etI4FqjI5OXnAgAFl
ZWUmbIYwz58/X7RoEaSLnZ0drLVTp06HDx8W+d23b99Onjw5NjbWHCa64TYx
hoqpkkHIiplYH8NCewVEYEpKioeHh62tLawyPDz82LFjFprVzAOXNm3aNFyd
ak6mFcjgSoWQ27t3Ly7EOiYzjYyFGqwmuMRgyADzXEpDWDHv3r0zefAFE3jy
5Iml+HO0FpK4sLBQ0jpBdo3mMED/+eefeu6mTRgKc7A+huX2it9+++369evW
tzqmqKiocePGfn5+wSoEBAQ4OjpCM7i4uPTs2ROfxMTElJaWmrrJuvDHH39Y
Yl0+k2O5BqsWeMK+ffuiS69cudLUbSEIgiAIwsSUl5fn5OSsU0dKSgpbreDj
47NmzRp8kpuba02iiKhqfPjwYerUqWFhYWa4cJggCIIgCPOhpKSkXr16lp4U
QRAEQRAEQRCSIBlMEARBEARBVEHu37/v4uICGRwZGUkymCAIgiAIgrBuPnz4
UFZWBg2cnJz80UcfQQY3a9bs4MGDpaWlL1++NId6IwRBEARBEARhcLZs2WJr
a2ujwM7Ozt7evnr16uyv0MOPHz82dQMJgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiCqHP8P
5y+nDw==
     "], {{0, 80.}, {941., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{941., 80.},
   PlotRange->{{0, 941.}, {0, 80.}}]], "Input",ExpressionUUID->
  "2f5c8116-e0b5-4a53-a08b-0b95baffcf72"]
}], "Subsection",
 CellChangeTimes->{{3.545153640670162*^9, 3.5451536529068623`*^9}, {
   3.5486895262641215`*^9, 3.548689579787183*^9}, {3.550787285060895*^9, 
   3.5507873176877613`*^9}, {3.5507873622593107`*^9, 
   3.5507874498733215`*^9}, {3.5507931273800564`*^9, 3.550793293902581*^9}, {
   3.550795942883094*^9, 3.5507959452142277`*^9}, 3.5594362885952625`*^9, {
   3.5594895181381674`*^9, 3.5594895246605406`*^9}, 3.5594992621854954`*^9, {
   3.709575503291005*^9, 3.7095755131905713`*^9}, {3.7117177558758893`*^9, 
   3.711717777030099*^9}, {3.711855630387392*^9, 3.7118556482494135`*^9}, 
   3.7378073736118755`*^9, {3.738582763085204*^9, 3.7385827644852843`*^9}, {
   3.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 
   3.7467909255028553`*^9}, {3.746843120631447*^9, 3.7468431211370955`*^9}, {
   3.8312218650723734`*^9, 3.831221865439252*^9}, {3.8312218959753027`*^9, 
   3.831221896215345*^9}},ExpressionUUID->"485ea87a-2f0e-415f-9da9-\
89037b5256f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
      "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"I", " ", 
             RowBox[{
              RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], " ", 
            "-", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"B", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], " ", 
        ")"}]}], "+", " ", 
      RowBox[{
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", 
          RowBox[{"d", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "-", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         FractionBox["I", "4"], 
         RowBox[{"KroneckerDelta", "[", 
          RowBox[{"ii", ",", "jj"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"Fmn", "[", 
           RowBox[{"mu", ",", " ", "nu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.5451536546269608`*^9, 3.5451537497243996`*^9}, {
   3.5451538022984066`*^9, 3.545153820336438*^9}, {3.548689591473851*^9, 
   3.548689610138919*^9}, {3.5507933017860317`*^9, 3.5507934241220293`*^9}, {
   3.5507934811092887`*^9, 3.550793483604431*^9}, {3.550795897754513*^9, 
   3.550795909852205*^9}, 3.5507959494314685`*^9, {3.5517192411368465`*^9, 
   3.551719243512982*^9}, {3.551725419411818*^9, 3.5517254247731247`*^9}, {
   3.55231622648205*^9, 3.552316228213149*^9}, {3.5594393588258696`*^9, 
   3.559439512198642*^9}, {3.5594895272826905`*^9, 3.5594895375052752`*^9}, {
   3.5594992681308355`*^9, 3.55949931174533*^9}, {3.7117177795272417`*^9, 
   3.7117178027735715`*^9}, {3.711855674636923*^9, 3.7118556941570396`*^9}, {
   3.7119036518000107`*^9, 3.7119036813607016`*^9}, {3.712095469670045*^9, 
   3.7120954747613363`*^9}, {3.7120956766308823`*^9, 
   3.7120956945709085`*^9}, {3.737163741776143*^9, 3.7371637607465363`*^9}, {
   3.737977329658123*^9, 3.737977335915481*^9}, 3.7379793918230724`*^9, {
   3.7385828352513323`*^9, 3.7385828674911757`*^9}, {3.7385834468523135`*^9, 
   3.738583447825369*^9}, {3.7385835220386143`*^9, 3.738583524872776*^9}, {
   3.738583585130223*^9, 3.7385836468607535`*^9}, {3.7385836972116337`*^9, 
   3.7385837036590023`*^9}, 3.74222001333444*^9, {3.7467918697920494`*^9, 
   3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 
   3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 
   3.7468070365364637`*^9, 3.746843160970861*^9, 3.7468432231440268`*^9, {
   3.7468435725174932`*^9, 3.7468436591048775`*^9}, {3.74684428636384*^9, 
   3.746844312982067*^9}, {3.831221909395213*^9, 3.8312219444581156`*^9}, {
   3.8312219759060464`*^9, 3.831222034624934*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"c63a3181-994f-421b-bb96-4b14a4f55079"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}, {
   3.7467922485866156`*^9, 3.746792260986814*^9}, 3.746807037572306*^9, 
   3.7468431653137655`*^9, 3.746843678634367*^9},
 CellLabel->
  "In[123]:=",ExpressionUUID->"ec805ef4-3c50-43bd-928a-b008510789cf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", 
   RowBox[{"d", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "2", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "3", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Am", "[", "2", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "3", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBmKtSDGmNpY3jlwWwUogWmnZIo12IL321Y0sPuE3jrOW
OIjxA+lbH10bQXTwq28rQDSnq45UZfcbx1M/Vj8G0deWMb4G0S3Z7V+m9bxx
/P1wb/NyIK3/+m7ykb43jntkM2NPA+mS4FjV0OVvHJ3kzy5JBNJi5RpPk4G0
d6l8fhOQXmyY+mQNkP5gb1ZyC0hLbvdaU77qjWORVpVh56Y3jg29ez7e3/bG
cdm+l7ond7xxdHTL+XEOSKt/fKR5BUgv2+7zTGXnG8cTX9lsdIF0jIbbdz0g
PY+HcUUpkE6bcUCtCkgrmM06Xg2kv2lbGdQA6Q0a/sUNQDppTvL+9UB62/H1
gmeA9F4Ly1IQfVOseuk5IO1U0NNyA0h/OiSyAERnFek+fgek/xx/8/wrkNYO
frTdadcbRwCo3rlD
  "],
 CellLabel->
  "Out[123]=",ExpressionUUID->"55e5581f-1854-44bd-bc06-5f33caab4b08"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lagrangian Invariance", "Chapter",
 CellChangeTimes->{{3.768088743020775*^9, 3.768088745756915*^9}, {
  3.76808877972029*^9, 
  3.768088781926825*^9}},ExpressionUUID->"ee195b16-ff59-4438-8d93-\
f2cddd4e9abc"],

Cell[CellGroupData[{

Cell["\<\
Integration by parts commands: Put all derivatives on the bosons\
\>", "Section",
 CellChangeTimes->{{3.4542523663125*^9, 3.45425237446875*^9}, {
  3.454253275984375*^9, 3.4542533091875*^9}, {3.45426311621875*^9, 
  3.454263147921875*^9}, {3.4542944529375*^9, 3.454294453453125*^9}, {
  3.5369355175494814`*^9, 3.536935520995678*^9}, {3.5369358486464186`*^9, 
  3.5369358507945414`*^9}, {3.536936978370035*^9, 
  3.536937000155281*^9}},ExpressionUUID->"1e14e21a-6a0f-4276-975a-\
dcd3d5284a08"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByParts", "=", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
       "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
       "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
       "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
       "]"}]}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4542861504375*^9, 3.454286169796875*^9}, {
   3.454458953640625*^9, 3.45445901278125*^9}, {3.455396920765625*^9, 
   3.4553971038125*^9}, {3.45539730815625*^9, 3.4553973101875*^9}, 
   3.455397564921875*^9, {3.5369355292501507`*^9, 3.536935630955968*^9}, {
   3.548502759932888*^9, 3.548502827575757*^9}, {3.559505239252364*^9, 
   3.559505278835628*^9}, {3.7385966269522123`*^9, 3.7385966729018407`*^9}, 
   3.7385971486350513`*^9, {3.7468302573736577`*^9, 3.7468303419446325`*^9}, {
   3.7468355577527127`*^9, 3.7468355734760647`*^9}, {3.768089236269906*^9, 
   3.768089254738583*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"bfcb6971-bcfa-4483-9362-e1298b646994"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"\[CapitalPsi]h", "[", "ii_", "]"}], "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["efield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBeJ9PdUcbSxvHFWyQpVAdNXaxRrtQJrD4mkzn/AbxzfK
89+C6AnaahL8QDprk0c4iFYSn9gIon8vVFsJooXDlspVdr9x9NJjfQ2ixTjm
fQfRSUWdX6b1vHG03bm/eTmQLqh7kHyk740j27zs2NNA2u9yvGro8jeOl1ad
W5IIpN+91nyaDKSzvirmNwHpB/vSn6wB0lf2W5TcAtJifL5ryle9cYxYVWPY
uQlo37R9H+9ve+NYue+N7skdbxwXhOX9OAekTVieaV4B0gXb/Z+p7HzjOOsr
p40ukP5h5PFdD0hHaLCuKAXSEnsOq1UB6e+mc49XA+m2U7YGNUD6tH5gcQOQ
rnmYun89kJ50YaPgGZC63ValILrjTP/Sc0A64WB/yw0g/Wuz2AIQfW6j/uN3
QHp66vvnX4H0s9yn2512vXEEABKqwqA=
  "],
 CellLabel->
  "Out[124]=",ExpressionUUID->"c207996e-cecc-47e3-b875-2e83fcb1c5c1"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\[ScriptCapitalL] = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[ScriptCapitalL]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "VS"}], ")"}], " "}]], "+", 
    SubscriptBox["\[ScriptCapitalL]", 
     RowBox[{"(", 
      RowBox[{"2", "TS"}], ")"}]]}], TraditionalForm]],ExpressionUUID->
  "f365da57-f473-44ad-96eb-8a710079d38c"],
 "\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnW1MW1e677fuvR+urvaH6498iJQrZMkfIkUIIV2iqIIPRKmQIEqFUF5k
mai5gNoeQ3ILoTdAlGCixlEbW01Mp7XSoMzUmRMrMzE98fTgyUAqnCnuxFFA
OU4LPabBU0h5sRxkgmHleu9tA7a33/aLX8L/J82odTfbay0/a63nWet5+V8n
tIf/z3+hKOr0fw//3+GmzupTp5q63vmf4X9p+JfTrc3/cvLdt//l/55sPnnq
f5/4r+EP/1/4f//jv1EU88+vAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAChQSMj3bc9hvXOF
5LsloEhZ9Q33HdaNreS7HaD4ya8src677+jbTqjVR2urDqo7jXfcc6H8tEQw
GEDRhH4Z7jmpcy7lux2goJB7ZpHQ/COr/pRGrT5eW12tPmO882g+BK0M5AcS
nJscvtZcUUKVdDn8G/luDig6NoIvwhLUWkFTJR0Of75bA4qZfMsSWZ4wn24d
GPMFmZWQBJ87B95VUmUa8+NAcWzRGEDRkPAQfnuteT9NlXc4XuS7NaBAyMHM
Wg9M3Ght/Z3Tx57SkhWf83ONUqHUfDURWJflCwFIApmxnVGr1Zq2vi8+0VYo
YB2ALHk1YzvHSJBW94XhgwoK1gEQTCHIEllxf3b41L257Xrs2jNLUxlF1+rG
XhS2eosBFA35T9uZE2r1CW3fVYP2LQrWAWDI1cxa+cFw+Kw95p5tZcrSqqR2
VeseLBb65AFvKBtPzQdwdwCEs+ExH4B1AKQgb7JE5hxntGZPnNfA+oLjrIqi
6CMWb5Fs0BhA0QQ95gZYByAOOWdWeJqcP2aeXIv9lCwMd6poij5h8b6S/jsB
SAusAyAOWAdAKvImSytjfXsUpdUfWjyB7R+TOVuLgqIUWluRuM9jAEUD6wDw
IOfMWnL2VVGlB9ssT4PbPybPbS17KGpPi+150djW4E0C1gEQB6wDIBV5VW5p
iio9YpmO2Yj9jo4SiqIazJ5gsj8tKDCAooF1AHiQ3TrguWJ74egoD3/nAfPT
XCpnJDA1ajF0NFSE5zMDXdNmeVI0oUNAQsRYB2TF5/qTqae9pfldtfpYQ8Nx
bZ95yPU8mHtBYhxcqzTWbK6vs2t8aH5EV61qt/m23/6RoGfosu762LwUx2IC
ulAYCF82cyY/L+5pSyNLXUro0qqG5g69eegHLrJShi6IEyT5OlIYCJaldc+N
wxmNTBwl5R3fslrgemB6bOgvj+OShBTd0bd0OsxG0Df5wPbVlW6tRv1OVXhs
GZHqMlhGPEvbRJe8cOr7rTNrb8wACrYOREtgLpCokZkuYsQ3YuxoUTNJeCr2
9sVl+wk//3VLtdrkLo5TJclmFllw3/pMr7/Q0awJj0s5vVdr/zWskD8YGnbP
r8Y+mfO7g9CvrptdtTwSUtPnXMhNE0ABIdQ6IIEnlk5tr2VsanOzYDSl27rG
yupOqyengfZBr6U5vAWV6l0Z7kBZN55MW46UJuxxnMlfa3AH4p+XvwuFg7Bl
Mw/yQ4KLLlMds9bRqrY73kS1ORTweb6z9BwuDT9R9aFlcjn1miykC5IIktQd
KRyEb8GhwAtfGO9TS9sudj9TqM2PZnx8TE+6RmwDHdwmqNDak297az5bu5Ki
lW335otkBKXQYdYWJ4aMbXWllKq27Ypl2OWZ+XUpLGMkuPTL07Hb+qb69hvu
31jxZQMn95smk07W4htA4XcHskig1EjSyOwWsZeTpsN8Kq6Eu2cukM46WPb8
9c9W6x+uaWtYLTzptRrx3W1V0pSywy7J8WO6ZoXmHw5oyii6RnvtD1brbYup
Y7uZsKt79KX8jQCFhTDrYO2Z5b3T5gkerYME3AONKqXmpidXVwhk7l67ihHj
TGdu9o3nTsDiL/5ePTLsU1B7+sWXisi6C4WEkGUzT/JDpgfrmaUu5dZPFpy6
A8xTylbLVPLk1oK6IJUgSdmRQkL0Fkxejvayag9zIpfyyfWA+2odndIeDz42
1e0uotF7LXYASWjxiZUxKlW1HddHp5f5Rib8jMvU1DboWV4cu1SdOsdjEQ6g
aM8iSSVQLkQ1MrtFjDsAp48PTsUcjHMht/SBgYlXxWE3Su1ZRFadut3ML6B3
rfKOQGDC1EhTZU2WZ2t8/1lS2KJX1WGJKG+xTkd/6EhKgQhqq0/2ZoACQ4h1
sDZrPXduNNlpEAlOfF5H76ox/JCLLYHMj/ZUZyPAAhpPVpz9eyjFPsOj7bkD
iNdyhKYULbY5kctb1l0oLLJfNvMlP+sL9tMKZpSPDU6vpniOzFqbFOzJfPdI
kk4J64JUgiRhRwoL0VvwyqSJNZsycXRn9JbKRsvP/KNOltzGBpp+u3fkn8Wh
vrCIGMC1RfeNlooSSnlMb/8xpZsxCXlvNVW//baSDlueSZ0hi3MARVsH0kmg
jIhpZJaLGBeQss/ojrECuEul8lbbTLHIhtTWwer04LHk54GcUbaruvd+Di7d
yOIDHWMa0Kr22IzEL0e7d+HuYAcjwDpY+V5fqaDLj+tHkyz7xGttUlGKVuus
3FYvWXFfPXbu4kd72SuwMoM7rUOKkMYH3IZaiqrqi6meGZqzaRWJUXg56EKB
kfWymTf58bv0NVSq45rNBvw4WM8ui7t1Tt4nBXZBKkGSriMFhtgtODzsGmVG
I8MQcOkPJzk7XfUNX6hWHdOPPC8uTz+hA8j2l1H2T/JehyWw7NIfTKleFusA
irUOJJNAORHVyOwWMVYg408nOHWUrvt8Ig8xigKR2jr41a7dm8S45k7yKxv1
9305qJVMZu3tlayTWcKGG3LpS1kH1qozd6eL6PoPSET21sH6pGk/K0z7TU+S
aLKcXSx/rP3apPnYecfCz1Z1aYYqkJDGyxp0kH0XCo1sl828yQ8n6hk5+s5E
fg6q2erj0W4EdkEqQZKuI9kz5+g43OGYk+JVPIjdgiMZcjL05Q6rPWq9K3HY
maDLmpqPrB7J4zXkHb3XAgcwahoojg88ybDLZNWl35tUvZRvAHOAOOtAGgmU
GTGNzG4R46yG2KADsjCur6cl9jcrzJmVnMixPI9xTebv99bUd1qf5iRN0Pri
6IUKVhYq9d/H/x6Lju66pm7z/WnUa96ZZG8dkMUxfV1ZheZq8hQrUZ+6+kGR
B+spCXotZ07bZ0kk8VdGKpCAxssZdCCkC4VGtstmvuSH+Kwa5n5mV/3gj+ls
yCem/YoUxpqwLkgWdCBdR7InbG6Uq60zUryKB5Fu8xGVNZORYQirPacTXLPW
AxM3WpuujPhWtz6Z+XFGmv1R3tF7LWQAI47lsS7HGbBgD6t9fF8k6wDmADHW
gSQSKDeiGpnlIvbbaPf+WKuBNUWVR4yuBUlVgwKcWenflmhck8Bjc+t722/c
SOCXpzOyGQprk+b63ez1AGqugQTkqXcQuZKS8ySczN07/d4fvczVW3j5qqIy
cMPOkNjGc26W9J7YhGwxbpb+kd5TQwKiD+TrQi6RIxG0DPKz4Xd0sQdmNXpX
mpZyPy5zniIiqCShC1IJUq47EkshWwcRV95MRoZl2ak7Z5vfrrWymm3rjYkY
VfaFo+uiRMtjwekwmy7Hyta7vqwkhJHvRL8IuQcwB4ixDsRLYA4Q08gsF7F4
q4HzN8vQey0rCm5mpSTks7bQCXc3rGkQl+kivNpf7JKr9Ab3a0q7QYA3CFms
g+jBqXwn4WR+tPe02cMtUWszliZWxqukuKWNazznZhnnIsIG3EU+DE+xyycF
RB/I2IWcIoN1IIf8RAPxFKftC6m34xWP+SirUx/Uu5aFfl1iF6QSpBx3JI5C
tg44V14qyWq25Ha4l2I+mR+9esezNYRhzfbmmX57XIZY4h/THb/ukWZ1LDAd
ZjMfAn00uhBlDGMdxPlF5GAAc4AY60CkBOYGMY3MbhHbmBo8FLUaSNA7ajxZ
0zwwOvNSBj20wGZWGjhXgZi7m7BpcP3MJ3Zv7OAweedOyVVJMFJPIUxZm724
UgeAnMBZ9wKq1ZAV32OH5drHfbpLer3+iuEzo+kPf532szK2qevKZB2QFffA
ewOPo3NmM4VL2vxs2Teec7MM75/1Zs8a52nknxoy9Fxor6XZICwya+/qzz4j
seguFArkldu4T8DhQ47lZzM+94A5paJCQl5rC5OMRVFx5t/T5IvIqgtSCZIc
HckCWXdhobLEsZlhg9ch7eXo+fMp0m5sDhcPxXLzkuUAkjWPuZ7pMa3qHM7a
z8Pv6KjY7heRmwHMAZwCLKgElSgJzBViGpndIhYJVW78csT9ly87Ndor954u
yRVmW1AzKx3rbkNZeKbUmyajJnlo2tpSzjt35KskuHmzXFTFCoH8rLhMJ5ga
hg1VSk4G6fLa4+EP1OdsM2ndz9YWJ+7qNW/Xdd586NtyNCTB587rV667F8nr
ZWcfG7Upk2fR2qT53U+c/q0zl2hsfWkG60N2jY+4WdZ2XTN0NTd39OkvdHZ+
anXPhcKrot3YqtGe7Tw3MDab9dQS1YVCgKy4PmckiKujyh5FldceZT44kzZL
XT7kh3WTZl7Z50zhucWWKgjPiJKKlpsTqTyls+6CZIIkcUeyRY5dWIwsbZEy
VJysOD95P0Uh8pUfDDXR5H0J23Nc8kYRyKTDCBpAMufo3Mc+LOhqKeRzPfx5
60wzRwMoH8su0wfMiDVUlcbsiCfO2P4zQxkUJYG5Qkwjs1zEwnZWXWnVEW2f
2eb8STa7gKOQZlbsC3yub8y6np5L+isGfb/xG09gPVKtZlfvaOSiwO82HEpa
wTo+GaxUvPJaTkSMg2Iy3kEBQ5YnLR9W0WUa82OeUJnwjnPxS9fLSS6nSrrj
TWEEvZauLkeMOEeLQ6WrLJN14/lzO+ezC8VOfuQnk+o/64Epu75xL0XvbzZ9
lyqVnJAuSCVIknZECLLf4Asl4srL7xMS+smiaZLrgj4LCmj0orUw5FM/dhpF
IYFiGinTbigJBTSzopDQovvrtgMq9WdRZ6qNoPeb3lN/+PufTylyXCObp3WR
ayBKgqzsYVbnH//wrMAzD5DlZw8n5kVtiGtL049dYvnHpE90Ad0ChCxPmE8q
qV01+of+JHneX7nN/V8a2JwqslTQIHP2rtO2+AA6n1VNpftGIY3nze2cvy4U
O3mTH86XmOLLIEdCgbnpidHb+hMVygPNfTccnoXUBqagLkglSNJ1RCAFuAtz
bGb9arLMbMvaHQr4PN993XmQzii1u9wUzuhtaonhgRkvsjwIBUpRSKCYRsqy
G0pE4cwsjkj1YUXjF09idOb1BXvXnlJFxgmj5CKa+I53K8n2XcsTgx+1X+c7
Kyss1gMTg+3tvxd+mb7+H4OHt8pHC6Wkovv+oqQdKwBWffazFeHtpMboTmH6
+O+f37dXLhd6Mj96rsfiTRDmqF9O8lrDghrPn9s5X10odvInP5vVfxS12o/1
PPR9qGk4ptX/Ydg1nfIGXGgXpBIkyToimELbhaOsjuv3Jr2cp/J+UhehcEYv
GpoqvCgwiKUoJFBMI+XYDSWjcGYWAwm4jHW7KUXT4E8Jwf4R19BtQQd5YDPO
kaL2myZFHfmv+oYvNvU/WIzfbVbn3Xf0bSfU6qO1VQfVncY77u1yE5p36DWx
/lqaU7c88ZeY5NXkzdbacu4co7SqocU4lvBFm69c8Dhu9GlZRzC1WqPtv/HX
nwKEBD033+35azSWPDQ/0n+o3TabgzJzOwkyd69dRacP19rUcqXPoMtE8r5v
nuQpoLuZ1z2JL4qwxvPnds5TF4qdfMpPJtV/yMuZ0c/USkVp3bk7Sao4Ce6C
ZIIkUUdEUFi78CZRx7yEk/BQwDdxu6OiNL8ndVEKZvQicZFU/BkyEEpRSKCY
RsqwG0pIwcys168j5d5464tt/gRbQQd5YWG0u5IzDsRd0DO6d9OhK+P+WAOD
uWE/3Tow5mPTlzHheAPvKqlEX9zoVXhqnWdlrG/v2523nywmVelJyPfAqDna
aRn3bSZMC/02cfviGcNnZ6v3xrhOkRdjunfqja6Cv+koIpZd+oOcXpLm6GDe
1sxZepIvI2uT5vcHkpzZRmvC8nvtC2w88d1tVb3VevtHybZP4V0odvIpP4wq
xC6E6Tbo0JytjdG++et4Cu+CVIIkUUfEUEi78BapU34tO/ua83pSt0nBjF7U
zHxDV5vcUxQSKKqR0u+GUlIwM2srFRivx07kJ8jzRRKXqZJB3NXh2jNL09ut
8fHZZMX92eFT92LiKpknyyi6Vjf2IraaA1u7J1Xo07p//LP3UirzbHXpQ70j
CUlZucQL9PHBqRhTmJXkI6aJgk8dvzjckSQLXMZUZlVAPPP3xvyZf6RbxSa/
01hTFs3ZrMOoapI4P0PQa2lWpG00/QFPcZn8N150F1KQWxHK/KUxf5bPn2Cz
+k8Gl7nRdH88aRzyL0USdSQF609Mb5WIk6Uwuw6an2YowQLFKZ7NozDeYoKz
tvc/zsVJXRGNXjTKiWq0pEm9snmnyQOt6h6RsAYiQ7FsiPEUhgSmoSgayUcR
zazXS86+KuY/8J+Hcz9BnoMOIpWaqWQ1LzJkfcFxVlV52RV32hnWyc9oE+qn
sA8nHPpFWpL8wI34H15+zzwRTGEbhE2A/UmKObI5dXlMj/BvVC0kjXOOCc06
bxr5HIgzxvC10yd3VNlmppS0Uh29Kir5MF2ppixbMGf/6Jwj+a+5WWs48aI8
/42PtEN4F1JSBCKU358g6mKd0WVu9AYnftksBCmSpCOpWX3heZQy38I3+lpV
rf6bwsrJsKnB8vrQrj8Z+Oib+Vy0o3hGb9M6yCLKKRR4PtTBZS1Vnbb+tCzL
nUMRrGZ8FIoEpqQoGslP8cyslbG+PXSShLGbP0F+gw42U1vw+z5lClNMrYwn
gRUzAorS6g8tnpjDec4zLd4QiFxi1hrcfCf5ZGH8ctdA6kN+5tRuV0x5vi02
/I6PynhOMNjqFYpW62xB3oMVGRnXXucqL1O763ld6wWTLJJ3i5DP2sy2MLHW
cL4bzyGqC8VOXn+CzVP0TC5zyc+Wxt1sU+MKsRWAFEnTEZEUzg3+Fpv5N/h9
aEngn/8sECfTghk9YTkQorU23uS8aoIoCgksikYKpVBmVrScRGX3KM8iXRBB
B2tPTDXsRYy4yD5W2+dLYBWxjxISpUYMgViHq8h2yRvKx/oUbVWM5Ye9fUhW
z5GsuG58Osp3ec40cm/2FQ+R0TSR6LF2GqeX8G9xmbm5VJ11SHlqGldWmJdN
j8pEP7r8Nj76clFdKHby+RNEl+vMsjpvFhItM7hjmpB/KZKoIyIplF14G1Hn
1SKoM144oxe9h8oi7iCTWhs7k6KQwKJopGAKZGZFN3H+bYIrHp3foIPoDpXF
xcF6wDOk1+yjY66hN/yj51T8HkHrgemxob88jqsswH93EEmxy1NEI71PEUfE
47dMbfg3988LaR+Pvv25rWVPSYcjO8dIZDTlIXpwmnorIV5rU3joylus0wlP
heZHdNWqdptv+3kqCXqGLuuuj82n3J/WJs0nPh5dTKPiJK81LL7xohHbhWIn
j/Kzmdc9k6zO4bX9Qy4nUMJilXcpkqojIimQXXg7L90GNlqc35u6oCic0Yu4
AWeT7ZxLd18U45xjREpgposb8Y0YO1rUavXx2oq9fWOxql34+a9bqtUmdzJ9
p4imiQAKZGZFHQD4z2Q4Tbhkyw3mleffvp3OaQmxyA4Vtl/qu2/cttocTtcj
z4sU8rC+OHapmtl4dtUYftgmcqx7UhaFFNd8tnYlRSvb7s3zpS2Kj4/LxKco
wsqUpVW5qXqXVqs79Gbr/cdpzufZ1QyFIJMRmnNbP2nThNeauqpqdafxT+75
ZEISDbRMpRqF5uydKopWtfHlkuVPlczF7yRxOYsQ9Fo63s+gaDmZsTSy6lCC
v5/oxotFfBcKExKaf2TVn2IkqLa6Wn3GeOdRkkKEeZSfaPWfDEoREf9DfQ17
OMpz8p93KZKqIyKRaRfOXJYS//THwXq2s2ITd+cA+XSY7Acw+NhUtzuLI8TN
PCdvaMrleJgsK+9kVPlLpARmt7i9nDQd5vPESLcYFtM0EUCBzKzo/Rqvw16k
2MSWb+r6pFkrQZ3izOF2KD44pdr2XbylECmpTCs1X8UWEWP2oyzyCnKrDU8O
Pd60RRn5FG1rpH/6rzf6mg+Ubu8R/XbP8C/Jz+heeS0naFFB2W8sJPDY3Hpq
wPmcvYjZCPrGBjRllPKkeSJJgvRXj00HdiU/diBrU5YmJZ1QGTD6n3lTJXPb
zZ5+Z3Ijj8zdO3XsumctAxGMxtnxqG/iGi8SabpQcKwHJm60tv7OyVnoZMXn
/FyjVCSsIVHyJD+b1X/S3yGGfhnueZvNSdRgdC/xvDGvUiRlR0Qhxy6cpSzF
UUzO8DLpMMIGcD3w5ItGBXOKqB9Pm70j4BlsZg/odkhtZe5AMjMnT3ESmN3i
xnpE8CRpXBjuVNH0gYGJZGehxTRNBFAoM4t4LUdoXutgddb2IaOZK05Hs1UE
PeZusXWKs4CEZm1tqvQJwejyupMd/abBf7VarbcNzSoe0yBiNWTqmUOW3MYG
mn6bJ+koX9qiTH2KEjsYmJue+O7ezc+61fvYHfBoQuqkra9lrBLpa3K9Afjd
hpOn7LPbRj+i29DVl8b4HWC4CyZFpW7MH/+jrQc81s7q3UqN2b3IG4hJVpz9
exKcHLh5lCLjImPCaMoyVZVTxdmJabwopOtCgbHyg+HwWXvMYRe3n+6q1iWW
TXydF/l5vVX9R6lJlVyUhObHB9tqmPUkbCC7f0vyY+VNil5L3BExyLALZy1L
2ykuZ3h5dBjhA7jqG/m0UUlTymN6+4/JQlJJ0DtqfP+Izva3L4/RScIt3yzC
u+EfWyt2ZxYCJlICs1zcuJDPeI8Izm2jPCHzvFSNLHwKZmaRGVtreULc8dri
I3O7tvUdxbazv1ePjM2/n8rR0TUJ+b7tqQ6LQKQkGQnMuEfv3TLrP2yoSGUw
0PubTd/5Eu9K2GjizKyDVd/whWrVMf3Ic/79KC5tURY+RckJ+Ub6aulUMXrc
nUXmfpU7BbIwfCbxNJurHJFqPNlfmd7bqL/rnvEzPzQJLk6PD5naqhRhERqZ
CSYTdM5hNS68nYvQ4f06xgacGr+ta2RcORSNn415/Sn1nI3g4s/uW50VnDzz
Z9sT3HhhyNGFwmF9wXH+WEJOHu78KnkmhJzJD0d4SH8a0b/DLn37+5zLCQ9w
Rw0PbAMdtaXhZu/T6O8kd64T2QUxyNERwUi+CwuTJe6h4NIvjyxaLoX73hbL
k/lAAU8aBlluXoQPIMNGcGbE1LyfpkoqNB9/PfxwcnouwCgDG8ElHyNU5gvN
mo/Mf/2J0SgWH+gOnJEj23NhsfbsVtfH1y7UpbcOJJDA7Ba3SIaW2CSNzO9S
vYuu+5z/uLX4pokACmdmcXp42RHzBHftQ4LPXbf0vea/z6/Nj+lq6Uim66DX
qusfnc/2fFwgxGdvqyyt7brp+jXxtycBr8thNes7T9aWb1oKdPkhrf7r0emE
kzCOTK0DJqampuYjqyeJU8rruLRF2fgUkV/sV+8lsYfZnKWwDrKGO6xQVrfd
8sQsJtGA+lSHsRtBn+uOsSsiRXR57clOvfkbV+oAkOz8KoMec2OCMbv70OAz
XsWLzFqbFHRp1TvqLY43VCn5KvUIarwQ5OtCgcD+dqUH2yxPY6YWd+vNn52M
IwfyE95vx/oq0hedYykprz3WnFEQk7guCEPejghD8l1YiCyx6Zvipgw3b9hf
JcHvomCQQ4cRPBm3s7Y09dBm1nc0H6stD+/U7Ng2d+hMtxzumcDWySEJvXyZ
9YV/kbEyZfmoy/7TfzDBkkmtA8kkMLvFjdujY39TsjCur6f5qqIX7TQRQEHN
LCZU4Y7xfHef3mC6ZjD83uFZ4H5dEvQ+MJ9v6zh/SXfRaHtavAlkM8v5w/pl
NV0Z2ao/sh6Y+XEm3ilrK23RajY+RcRrOdaaVFll7egUMYmsdZC8CttOhbMO
ErPdRsNDpA46E+40DgqUSDnIhKCkhJwMUgD5KSTksQ5yJUv5RjYdZqcMoNyQ
talb73fZ5wiXSkX25NJZLm6/jXbvj7Ua2NtM5RGjq9DrvsoMZlaOYQcnla7I
hWzciI9l7rqYEAgcTVvU/MWf9Jn7FDGWcknSsOgVj/moot6cPN6T/VLoD4kQ
//SDe39xx1lNmdwdCPky1hih98RmYIvxq/SP9J4akvRLgbyQwNSDoeF495Xs
jisz/SrITyEh/S6cQ1nKO7J4R++kAZSZ0LT1lI71M8+NdZDl4hZvNXAe3clz
iewgMLNyDJvzJ6l2HTYNbp7pt3tjXW2Jf0x3/HqCQRHRPKndZY2Z5ynizBP+
uOPwt3+lqXwv8TYt7s+zyLm0w+GiaaiKNrtP0gHj/CpjDW0uhj3yYXiFvHwy
p3m9gCwQ391WJsKxw566gEV2QH4KCr/b3GdOmlNdMuSRpbyTo9F7/cYOoKwE
vdberkiyjtxYB9ktbhtTg4eiVgMbKn6ypnlgdCaPZXcLB8ysHMM69vM7p5GQ
19qi5I915jt85mIEqKSBM7wwlnKF5spn3U09Ftfzzb8jwbnJYaOm/myqSIcw
G88GDymlLgb0pkKCE5/X0bSyyTKVSe7NLF7M5cul6M1bHuKfGjL0XGivpdmY
ETJr7+rf2RPtzSAwYWqkqbImyzMps/ZAfnYi8sjSDgIDmC1hlebOKcaniPvX
nFgH2S1ukVDlxi9H3H/5slOjvXLv6ZL0dVVAajCzojD6eRnPBcrKDwau2g6f
ccCrkDOB3vtaBj1Z5Cki3tuner/1hUhoyeMY1Hc0ayIxNc1dxjsuX7r0IKxH
X+pKSSACCbiMdbvpat2I1FpWxK+ytuuaoau5uaNPf6Gz81Orey4UXgbtxlaN
9mznuYGxWeh2Rc56wH21jt5V3Xtf2iwMkJ+dh1yytGPAAGZPaNra3rutWnEu
rIMsF7eA21BXWnVE22e2OX+CXZAPMLO2w/j2l0jsiJ4b2JiFFMVBwCZM+aRa
VeOn20LLpYI/mTN4s+ByuFU26u/zJEYW92bIzw5DPlnaIWAABRD0WrvbrdPb
DhlyYB1gcSsuMLPiYZysVMeSVxwrVNYmzfVvJS8OAqKQf470HqrptHrkKPDK
n8wZvFGQ+fu9NfWdVjnys0F+dhZyytKOAAMoADJn7zp1xxuj8uXAOsDiVkxg
ZvERmDAd2dM5XFQJs9YXHGf3ZBXjsDMhyxPmU03bbWESmHn6i2Tyz5/MGbw5
MMWgW9/bXgaRBH55OiORBEF+dhLyytIOAAMoiLAhcLS89mhcSQC24kxJ5PMz
MpwzYnErHjCzkrL2zHJCox8vGvuA+B/qD72fVYzDToQxDU63smW1t/A7uroy
qY6d2TfwJnMGbwrsmnk6Np/eht9xsUuiAzfIz85Bbll648EASgqX017GuwMs
bsUCZlZqyOKD/qaLw9L7pctA6Jfh3vfPjfwTcy4VYdPg+vl++8+xtyvrfqf+
uHQ1Pli3tLdab/+406P730TCa+b1M5/YvbH59MiCU3dKqurkkJ8dQg5k6c0G
Ayg18lsHWNyKAcysDCChxX8M9v7OuSiHd7p0kBdO48fm8V9xV5eSoNeqVfKn
nNrhNT5AZoSmrS3lSZKW4a4cZANkSSQYQMlBxSvwGjML7DTIittYw1+qgoqt
0g4AL3634VBSCdpndCNRGMgUyJJIMIBSQmZsZ9Tq47XlkSEtrWqQKe4AFDqY
WQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAJAHMjtyuV2jVqsbqkr39DtXSL4bxA8J+peDG/luhcyQ4PJy
sEB/AAAAAACAHc2qb7jvsG5sJd/tkB8SCvw26zTUUJSixTZXiLopCXn/3FZR
Qh+xeAuxeRIR+vlu21s0fcLifZXvpgAAAAAAgE02gi8mh6+1VtBUSYfDn+/W
5ITQnE2roHYfGnxWkKfzZG3K0qR6q2XwceANtg7WnlmaKitabk4E1vPdFAAA
AAAAEObVjO2cWq3WaHVfGD6ooHaOdbDk7KuiqFqDO5DvlgAAAAAAAFBwbHjM
B0RZByS0+OSbvzzNm2MS8Tn/NDaToaP+q0eGfQqqgIMOAAAAAAAAyCPirAMS
8n3b23Rx2LcqdbsyZz0wcaO19UYmbirEazlCF2zQAQAAAAAAAHlGjHVA5u/3
1mstU5LfG4TmR3TVqnabb237twU9Q5d118fmQwnPr/vHrxxquulJkwWHCzoo
PXLju39YP+3svHCpu62l5/eu+QTTJrTgcdzo0zZru/v7Ot7X6m7xPBPzvEtf
SqWkVG2dSfmGX103dR1nP2zWnLs1uZyF7UJWfK4/mXraW5rfVauPNTQc1/aZ
h1zPpc8HJL6Pr1fnXb/v7ejqaG7uvvXkTQ6sAAAAAAAoWoRbB0xsaV27fVZ6
LY9MW46UUgqtbW67IZA6ZCAwYTpeo3uwmKo13BsUyrpeq4fTwFc85qOKmk/H
/Vv3DiTweLDlLZXmd+MRi2DNd6+r5r27vvT9JKHA3NT311tUNKst767t+2by
l8X0ijpZchu7je4l8vqFo6OcPjAw8SqjQSWBJ5ZOba9lbGopakYxxsJtXWNl
dafVI0vMr9A+vl4PuH/XbnQFyIbf0VVCv2OaeClD8wAAAAAAQCKh+bGrmoqy
Ov1YSm2ZQah1ENbGj6haM9GZs4bM2VoUVHxWz7QhA8HHprrqVNYK9wal1uoN
bn7Gdn9Pi+0591fE/72xXkXXXXVHVGsS8lpblDRV0uXwZ5jlaNnZt5/VnJss
M2vpH39N1jzXj50ZXgi3YG3SXL+b2md0Z2IdhK2z906bJ3guGkjAPdCoUmrS
XqYIJts+sl07dt6xsM5ZZDQCwwEAAAAAcsb6E9N+BaO77TdNpjs/FmQdhBVa
c73iqNkjRywyWXH276EU+wyPtmfDzyBkYH3BcValOsuqoHzv5XsD2316Tx9b
7oHM2tsrKbrRNLGpuJK1qdutlVUa09/T2llRAi59Fas5N1t9iU5QibzyWs4Z
GVWZvJoYOEDHdzwJa7PWc+dG55M0igQnPq+jd9UYfpAnWjzbPoYH/48fGNl+
vXpsOrArUwsIAAAAAACIh7xw6huUFSdN47+l1cCEWAdkztG5X9XJHndLT8Bt
qKWoqj7n0rYPoyEDlulU37n2xFSjTKIS876B9XKJWAdkxW2soWll271kOneG
7c9Wc46STbbVle/1lQq6/Lh+9J/8jSVea5OKUrRaZzM7288OwX3kN/0AAAAA
AMDr13OOjsMdjrn8NiJ764C9OKAP6l3LsjRISNDBJq+8lhN0yYd2nusD3jdw
lghnMnAPbHkZCUWg5kwWhjtVNF1v9qxl4MQ/aWI9exT7TU+S3A6tTg8eC/+w
B8xPZaj7JtQ6YOzKfRQt060TAAAAAEBRM2NVl6dL8yI72VsHyy79Qfk8QwQG
HWz++ay1ScF3xbDx1HygJP4N3Gs5ZZWzSugTFm+6U20yO3K5pbqUpkoPtOiH
EoJ/U2jO6wHPkL7lQClF0RWa/mHvNr09NG/vUFK7682TGcUqLI7p68oqNFf5
MjhFHll16naHW1E/mPK6Jdlfy9HH12T+XpsyUwsIAAAAAGCHUZzWwcpY3x5F
xFFfejjPEzru/TEhA/6R3lNDSaMPyI+D9bvoQ4NTcSfmnHVwwOzZ+jziShRx
keKsg0yjj9cDT75oZGI7En37k2vOKz8YanaF/8O2qOetHm5zBArN2fr6Yxyr
hBBJQbpb51wVpopL3UcmVqJVQamarIzlR+aGTvfLJEUAAAAAAMVIMVoHnPZe
3uF4IU9zOFefWH8YJuFnAx35MNyAyydTRR8EPeYGijo2OB1XoYB1HNp+5RGa
traU09WXxhY5JZbNpRPv0cR+f+CZTacf8sUd6v9q1+5lFOT4G42kmvO621DG
/kGi8xJr/kTtlLVJ83G96GrO0buDrEMDtiNlHyP2VyRsPDzap3SiLSAAAAAA
gDeIYrQOViZN9VnkscwWToGkqC3nE+KfGjL0XGivpVl/ITJr7+q3J3WneR3V
ihO1U7I2ZWlSHYt4vId+c5ubK+o+dmyr8kwWH+iq9zXdnNxShEN+7/gfde2X
7ngSE4dyZgiVYIkk05xDPmsz3/PsVzMuN7tY82d11qbrsnkzywS04nvssFz7
uE93Sa/XXzF8ZjT94a/TfrapazOWJkGBw3L18TXx2dsq2OsbEpod6uoamg3B
vwgAAAAAYBNprQMSmnfdMl4xXOnVtpy/6fo1M42QvHIb91GpM4Vuf5zx26FK
9a4M3k6Cz113jJ3NDVXKilp1W9+N+9P89bnWfDbjTQ9TgyASdFDbdc3Q1dzc
0ae/0Nn5qdU9FwrbCHZjq0Z7tvPcwNhs6i8nM5ZGitrVPZpQbYt1iW97v6Pv
fEfLab3FOROMcyIiocUnNmNXi7b7kv4SUyW5x2Qd+2mJX4nd1ISr9K6YSOck
mjNnWCVT11d9I1fZDn6ktz3NoI7w2uLEXb3m7brOmw99W9ZMeMyd169cdy+S
zZIEwj2LJO8jCfn+Zmx9V3v2TCdPLAMAAAAAwA5HSuuAzN+/eObmBKNxsYfG
ynZbvCdMzOMrrs9PqMO8U1XKFb0tKa89ynxwxjaTQpf0OzpKKEpt9aVrTsg3
rKtTUTHQSs1XE4k64cr3l0/fYWuYSZTuknO4FxaNm83XZKk5C84CmgBZnrR8
WEWXacyPeewIMue4+KXr5SQTZxEmJtQiW/LXRwAAAACAHYd01gGZtX+kj1YB
41JZqpptsxK8Oe572GP53X3OBK+RmKdCvm97qndRpXVthsG7jjHX+Kj91rWz
DRU0T3zr2qy1u3f0N/afeSsdCGgle8Eh6sw8E7haCdlrzrt6R1+KaBhZnjCf
VIZHUv/Qn6TUwSu3uf9Lg4Y1+/juUDInT30EAAAAANiJSGUdhLVBU/Pgs8gJ
MXlua9lDyRM4zJ7K02UGdyqnkDXP4JGy6u4/e5ZiLy9Cv7kHPyiPq8/16pHx
5FfREAPeSgcCmLU1q3JwfB2NwI0zxJJpztEIX1GH+as++9kKiqJrjO4UYcv+
++f37WWrZe/V2n8V/GWv89NHAAAAAICdiVTWwZJT17WZpZ9z3af4K4KJhDtJ
Lk3Z5rVZq/aA7sEir+rKZB86enArH9H6guPjLnuk2i9/pQMhcLorX2CstHB+
VvElyZJozlxKVXGH+WTuXruKTl+yLZLMlMqofENqct5HAAAAAICdikTWAZlz
/ut3voiyyBYLpmhV90jG1c0yh/NCT2kdrHyvP3rVHUyqujIVgd+JHiwTr/X0
VVf0DJz47raq3mq9/aPodEic7hrnDCMDkWuaOIuGX3PmSjaIu9Nh69Axqnq6
65V5WzPrViSBqZXrPgIAAAAAvKGsPzG9VUKJZddB89Ms7gA2ng0e2i2B6z4/
6a2D9cnrHdbUCumSs+8MlxB1Y+rrjpvPZPBAyZV1wAR3X66MP6Ln1ZxXpwaP
M4pz5WWX4EIG/pFu5uKAojVWX6p3kFWXnvXvidQdE0du+wgAAAAA8May+sLz
yJWKb/S1qlr9Nymf+cekL3NNi6xNDtSE1bPtNb8SyNAs4fvTDO4O0rPhd1w6
N7rAxCAb9aJDDHjJmXXAXHg4zoS/S1HR87eoMxWP5szcmDCKfWW7fVao3kxe
jvbuYg3G+sEfU74kWqRAKu+y3PURAAAAAGAnI3k1tEih4RrTE3lqla0v2E8r
xFoHr8n0H06H9dsV5+WLozK4P72O6q71psmV9M+KhgQemzVlYa247c5PrEdV
vOYcfSBJAlLuJb77l7Un1OrjDVWqPX1jfO3mUlGFqdG7Ug5bxPl/d715Uiox
kKSPAAAAAAAgJVJbBytjfXtoij4+OCVXNC4b7RoXoJo9C/aOy39fcBg/cS1L
1bBYuMw5uUu5T4LeUVNrBb23Uf/N5Iv58S3N2e9z3dY17qUr3jU4fk4ejREm
FHjhdRoOJY84jirk9Ae2+RTDH3UEUp11SBqWLkUfAQAAAABACqS1DiKp6bdF
j675Ru2uJSlVxA2P+QCVYank5IRcn1746vcffZHC/Ukc4YEtpUq6HP5cZtXc
CPoeOyxXe7TvNlTtZjXnioZmbYfebB19+iK+KDMfXPxvUuMueneQevSJ19qk
oqjyFuu0DKaR6D4CAAAAAICkSGodRHLLbDt5JtOWDwYk1sAX7FpFJrWSUxJy
6cv2HNrKayo1XD7P/aZJyVO6ZoTQesHc1U/SmJForHEq6yA0Z+9UUbSqzTYb
SnxJaH5EV62KK6JNgp6hy7rrY/NZGROoiQwAAAAAIDmSWgdcXvqtXJdkzTN4
OpXnOQnNP7LqT2nU6uO11dXqM8Y7j+Z5VMpYOJ/2NOXQ0sFo7w1mT1DEK1LC
mjAlHQ55ghrSIkxzJq/cxn0UnSTogOXVY9OBXcnrOJC1KUuTklY0fvEkwPfz
8BebW3L2hVtba3BnFcEN6wAAAAAAQHIktQ64FPf1g9PR0mKOc5eTe56vByZu
tLb+zsklRCIrPufnGqVCqflqglex3GJhtLsynet7Ol6OdtfJWEuXLe9besQy
nScXeGGaM1eoInWZs/XFsUvVtKJSN+aPf2g94LF2Vu9WaszuRX6LkL/Y3KtH
hn0Kak+/M7scpLAOAAAAAAAkR1rPohlbaznVaJkJa3lkeeL6+Ysj/0yq8K38
YDh81h5zhrwyZWlVUruqk5U5jsClLarsZlKSCm3p9E21fly2MsYhn7WFpuS8
m0gOCS7+MvGn7mo28yhVphl4MDUfyEh7jgQdNN34/qFV/1FnX3+39oOem+MJ
tzmrvuEL1Uxo8F33jD/EfeX0+JCprUqxv9k0MpPU+Z+sOPv3UIp9hkfbaydz
9csULba5zNPmCu7jJqEFj+NGn7ZZ293f1/G+VnfLNS9zVWsAAAAAgCJA2qhk
Epofv9nzgbbnsuHKtVuuX5MrbOsLjvPHEpyOIvnqY4pe8X0NcwQdr2RmQ1h7
b9NImcc1jheOjvJcBx1wkQ6pSJcGNpJvak9d9x0Pd32zNmmu31Ojf5hwTbAR
9LnuGLtO1pazpdHKa0926s3fuNLUxeCy3caVyQvN2bSKDO9ZxPeRhQQeD7a8
pdL8bjxiEaz57nXVvHc3ZX03AAAAAICdgOT1DjKEdTUvPdhmeRpzvJ4Y18wL
99gBoa5BzJ8fkrFOGRN/UXJAvpBnWYgEHShbrN6tywK2qFl8mIDgb5Aw6EBE
K/zfG+tVdN1Vd8SBjYS81hYlnfMEUwAAAAAABUherQMqwQWdO3Wn0qrWnI+K
UJWS0d6bLDPylGtjHJ8+LFG0Wmdler9M8AYdcCWP4077BSJp0IHgRsza2ysp
utE0sSk5ZG3qdmtllcb095T+bAAAAAAAOwG/29xnduchsw4JTD0YGnbHOXtn
eHfwmnN6UVbqv8++FDGbllM+tx8m2/8eVfdInrIVCSUSdBDn08UZa5JYB5xB
F58QKSbowD/Se2oo8+gDIW1wG2toWtl2bx6GAAAAAABAwUN8d1uVNKXssKdP
fb/ud35cKeSIfmXSVC9brlG2TLCi2eLNQzyyKHgrHXAH++nCQDKDCzqIvRUi
S25jAx35MGw+XD4pb5Yn7sYqA9sTAAAAAADkn8CEqZGmyposzzLS+Mn8aM+B
rK8PyI+D9RVy6YehnyyaivpUJR4KFLYCddzBPheJQNH1Zs+a6NHigg62v434
p4YMPRfaa2k2JJnM2rv6M7AKRbdBGmMHAAAAAADIynrAfbWO3lXdez9zrw+y
+LeeyqPbfMgzgAk6SFbMSySrs7aOfU2WKfG6dM5hrYO4cA+/23CIpvZ1OiRw
9okEHdR2XTN0NTd39OkvdHZ+anXPhcI2gt3YqtGe7Tw3MDYrb90CzjpA9DEA
AAAAQKFDQr5ve6orG/X3fWlrJcewHnjyxZGDn477M40iYOqUCU52lAom9U1r
fd+wrzjT5jOeRSXbksRymXx2p6s9kSH8lQ5yzorHfJTmS8FEAs9sOv2Qr+ju
fAAAAAAA3kDI/P3emvpO69OAEEV01TfcV38i0xP7dc+fDA7p3YqI/6H+0Hvm
ieXiuzaIwJSiU0Xcfkho8QezprpON5ylsZYM3koHeYAsPtBV72u6ObmVISnk
947/Udd+6Y6neH87AAAAAIA3BxJ4bG59Tz/yPLT1yS9PZ7IyFFbnx2+cM7uz
z18kEeQX+0Xj0FRC0bDigix7bJ+2tXT09XW0tOktTm9Qqv7wVzrIC2HD54nN
2NWi7b6kv8RUSe4xWcd+WpLGCAIAAAAAAKJgTYPTsUfuG37HxS7Hi/w1CkgM
f6UDAAAAAAAAthE2Da6f+cTufRmjM5IFp+6U2VNsGUFBcphEtaq3Wm//CLd+
AAAAAADAT2ja2lJO8VIQLigAAAAAAACA3MBly0xCXE0uAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AEXF/wcTVyJU
     "], {{0, 123}, {1034, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{614.7272727272725, Automatic},
   ImageSizeRaw->{1034, 123},
   PlotRange->{{0, 1034}, {0, 123}}]],ExpressionUUID->
  "ca199172-f80c-4eda-86d9-e4b94e951fa3"],
 "\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzt3V9MG+feJ/DR7l7sxVwsl1wgZYUs+SJSFCGkTRRVcAFKhQRRKoTyR5aJ
mjWo7WtItiZUAaLGJGomamOrielprTSI99Q9J1b6xnTjdnF7oBVkG/fUKFg5
Tgs90OBToEAshzWxncl6ZmyD7bE9Ho/tMXw/0q7ekxr7mfHjmec3z/P8fv/9
lPbo//xPBEGc/a+R/+9oe0/9mTPtva/9t8j/aP23s52afzv9+qv/9r9Oa06f
+R+n/nPkH6nI//vwvxAE83+/BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAoMTq04v7m7oiJogxmq8M576czvHjTe/97tz9ctMYJswMO
oUztmDO/Yw5EWjgtecIJBAAAAKnQIe+kWddSTWxHVjf1mKcWQ6kvDz0Zp04o
6y+OeTeL39Y0dsAhlKkdc+Z3zIFIC6clTziBAAAAIKGw323pqqsia09Rt7/z
rGzS/n/et93Q1lWxY4x9bZR9dusJ8Oay6y/9zXsV6k9nZPRYeAccQpnaMWd+
xxyItHBa8oQTCAAAABIK+2c+VStqVIaxucTRAu1/PKp/LfqsuLpR03eZunJe
U68giMrajhE5DS12wCGUqR1z5nfMgUgLpyVPOIEAAAAgqaDbfLzDOMm3dIex
uez6cuj8sRqSG2Qo6jWDt775JeNOjaLbAYdQpnbMmd8xByItKU9L5MV3qK5T
KtXxprrDqh7jHddSmrfdQXACAQAAysmmd0x/dHByo9TtgHIV+m2s//Tg1Hqp
2wHlr4R9iX46Yz7bOTTpDbxg/lfgydTQ6wpiv9o8XU7xL05gvuiQ9+v+o9TU
Rjk1GnYHdE4AeBFYcY/d6KwliUqdw1fq1kD5oSM96OsbmkMkUaNzrJS6NVDO
StyX6A3Xh0fP3FvaPiYKPra07yfIpsHJlTIYKuEE5o0OLEXuiJraSqKy1+F7
UermAGxB5wTY9Z4v2C6oVCq1dvBjw1u1BGI3yBH9T9u5UyrVKa3+ukH7CoHY
DUSTQ1+ilxzntGZP0uqD8KrjvJIgyGOWeTnHHjiBeaMXbOeYO2KX/uP3tbUV
GB6DfKBzAkCSFx5zI2I3EC/gMbcidgMplK4vbUzq91ZU179t8fi3/zO9ZOuo
IIgKra08tm3hBObtxSNzI6Y2QJbQOQGAhdgN8oPYDaRS2tCDJIjqY5a5hAki
n0NXSRBEq9kTKHaTxMAJzBuGxyBb5dE56dCK+5u7IyaKMpitDud8xu2um977
37vlkrG2bFpO+2cnLAZda200gxTZ0GV5WFbbiiFfecVu9IbX+YWpv7tD87pK
daK19aRWbx51PgkUvwsxGyvq1FbBC3NybnloeXywXtlt8wa3v0vAM3p18Obk
ct6PlHNtv4zkMVwsWv9ZuaetJonsyOq6Vo2OMo/+yOVbKMAh5NeRCncgsiCy
L4U9t44KOi1JKmt0X8c+Keyfmxz9ano5lPDNldu0kVSx24uA1/2d7dNrfVq1
6rW6yLll+lOvwTLuWd/Wb+mVKeqSdYH7l51xAsUPj8Me82GSIGuaTqq2O9la
pyCIw5TzafwDfBMXlMwv9DUVzytbTG65pw0rzJEKujDS3nGjroN5i6baffqk
BGuRF3/WUa8yuVLGMqE/3HazXvumTv+eXvemVn/rmzlfGd5q84vdinG3pUPe
SbOupTrpZtTUY57iS2MbejJOnVDWXxzzbkrR4HzurZK2vKBCvztHept47ncN
+qnVYjcGSkd07Eb7H1p6tAOWydn43Zz5rd0ebDtQ32P1FPVxRGDeookMEKop
p5DxgZiW03OWY9UpI5D1KX0dQTQZXH6ePylY+2VG5HCxBP2HDqw5Tc3sNVnZ
dWc+NagJ+b2e7y39RyMXcLLubYv7aebbWsk6ktQHIhtiQ4+Qf8UbMf/I0sUV
k65QmX9a8PKZczvHbUM67t5XobVnvNsFvbZuBUEquu4tl8cZzD92C67NjBq7
mqsJZVPXNcuY07Pw+3qkg9GB9d8eTd6m2lu6b7n+YPvuxqylU3HI5M70Sy27
E5j31EbIv+gYPMCN/JrfH59d8of4j5wO/PEPy5uV7AsV6o8m51ZL8MwzH9Ie
aQ4Xxmdu01GC2Nthe5L4NrwvjozJv6XaGlXGvy1Er5PPl8cv1yuOGZ2r7J/T
Qc/t92z/LI9zL7ZzFuVuG/a7LV11VWTtKer2d56VTdr/z/u2G9o67pK8r42y
z2590Oay6y/9zXsV6k95y0QW994qZcsLiQ4t3x9S7yfIBu2NP1utty0m3fYg
rqpv4llxGwQlJDJ2Cz62vHHWPMMzJqT9rqE2pUI94inWrYheutetZDqwoKMQ
1XLu6XHyjvvnPxkOVhB7L+WZsDe39suOqOFiifoPPTfcwlzkMraWXp0abGRe
pei0zKZ/Bl7SjiTlgchInqEH/WxigL3d7tPaf8/4yrDfdb2ZzPa0JDBtat5T
PmfvZX4nkA6tPbQy8b6ySXdzYu4p35mJvMZpau8a9jxdm7xSnzVBcfmdQAmW
pYVdhv3sSKpl+OeMv+fwqv1sBfPKA30TZfnAXMIjzeHCSD+xdewlyJPDswlT
HvTqWI+SJBuHZp7HX8xm1K9X1g9+t7b9bdlBPtlgdDFvu+Ex9xrzffpaLOI6
ZzHutmH/zKdqRY3KMDaXGNHQ/sej+tei81nVjZq+y9SV85p6RWS8U9sxwh/+
FPXeKmnLC4jrzJH7W02HdS52cY4mg4pSWb3FbROUkKjYLbhovXBhIt2TVDow
81EzWdVg+LEYN2x6eaK/XnDXFddyemPq0l6i4qDhp+fb/3XecowkKjpsS/lc
9nJrvwyJGC6Wqv/EhxAnhucyLXWgF63tFeysVt94mt9FaTuShAciK3nGbhtu
ExvRCtldxYwAD7RZfk17yul1l7GVJF8dGP9XeTyTZ4g+gcE1162O2kpCcYKy
/5xx3wQdmv+8vf7VVxUkQSgyLfMuyxOYf+y2OTd8gu2EWVc/PnMZDrOTUR1W
bxkuuJDySHO5MHI7Kw8aXc+3/ys3w1vTaVvY+leuRIXyvGM1aZjtdxmaonMx
Gz8aT38y87xMeqiYzlmUu23QbT7eYZzkW17I2Fx2fTl0/lhNdI5IUa8ZvPXN
L2muM8W9t0rZ8gKi174bZAI3UtmdWIfl2URfFebddiMxsdvGD9SBCrLmJDWR
5qZMz1vblURFp3UxyPvfpUNvuK6fuHD5nX3sT2u/wZX5WYjIlnOX+jp9QsXb
0JJNW5G6N7+g7Zej3IeLJes/PifVwE7LUM7NjF8a/fNwC3tB3DM4xfvKEnck
6Q5EXvKL3SLnXK0QdFoYfid1NP303KZ37GK98gQ1/qSsRtXiTiB7sEwodpr3
WXeKp07qcLYYuUxPYP6x2+927T7m3GR9h/hvs9HsKaM9qVskPNIcLozsiCX5
YRQ3siWbP5rZmo7hpiTIvcnb4l7GfiZ7O2y/LtoGzmwP92ROROeU0WhNGNkN
0mSAXrR3s8uTU7+mkJNipwbJunN358pneQPkTUTsFnabDrHd6JDpYZpQg3si
V9loflTYm1LQbT7xrmP1V6uqWsgAVWTLC7fZLcf2y1LOw8WS9R/uxpd9l1PE
QvQbITS8D4pL3JGkO5AcLTl0R3WOpbzfJ538YrdoSkMhp+UlG7upKCfvOWf2
vDc0vGP1SL5PUIYnMBa4VZwceijweOlNJ7UvU4xcuBNYeHnGbvHH4C3DWcaL
0e5K7qMeFD3fgRQkPNIcLozcaDxxsxu9+oBqIZOX5nJ/fqhv4o+Uz+PepLLh
4rWLb9zyBMunk+beOWU0WhNGdoO00guvTVysZc/JAeqH5PBszdHX3N5n/nZO
Lrk6oUhExG702iTVvL9WfT196h56c2pwj5Crel4C85ZzZ+2L9MsVh65GyABV
XMsLttkt5/bLUs7DxVL1H9prVTPTm1l3Z0Qulg9NhyoyRNOl7UgSHkiOIpFg
jcq6kPf7pJPXdq1oQCHktDAisdtZvhWnYf/Mrc72a+NbCcTC/oWfF6S5M8rt
BEb3/SXuoRBg1c6MffnvGgU9gYWXX+zG3U8jcUrWNRSxzWJZ92bKlIRHmsuF
8Y+JvkOJo3H24cNW7pF4+9jvkTxlmd++hi7633yOXiaaLK+dmC/FdE7ZjNaE
ktkgTQaCbnPLHvanxtuZYZcqUH236ERuISeS6KV7Z9/4yzyT2yoyDKtjY58s
23+ESGk5t446eelFwjpq3/jAmdFcd70VqP1FV5CSUgXoP7H7NdFAObN0du7L
ZZ5z5bGZsWAdqdgHso3cQo/t4rtvsp8W1tOpwQu25aRRJxt3dN5K3Ie+4ui9
LFFBJXmdwPgeCkXnXW9O3YPp3Lyb3Qp9Agsvr9gt5LV2sD+4rF9BvLuW4zX/
paRHmsuFMXk0zi3N5Vvry03E8H+P3CVULjNNOShMfbcijNakVbRBmgxwhybh
TRx2iMLEbrEHI4WbSKKXJwbOmj3cLzW4YGlne3ddmkVQObxvSsu5ddRJE/Ts
NvzoP0Z+XFdP57qgulDtL75CxG6F6D+xRBYVZ+3JW9eTX+kxH2eHJdtrFeWq
cB2pyAeynbxCj0SZd9+suxyu9YR/WZ64fseTcP4iccfIuUv2pJoLtG9y8ORN
iXYkyekExrMkkcdjFyLBmMFT6ma3IpzAwstreBxfQZE1Iou9MkuRBdmS8Ehz
uDC+mB0+EhuN04H5CePpBs3QxMIz3j3JzNWPr7AgHfjV3v8qidgtqvCjNYkV
a5AmB1xWVcb+LntZJX2CAhMfu9Eb3mmH5cZ7+sErFEVdM3xoNP05VvIyHowU
6GpAb7iG3hiajg0d4mn3hK0/yanl3OO7yACnxRxdGE/7ZkcN/Re7m0h2Dyy9
aO+9ZM+tPHd+7ZcXsePtIvcfoZkB6NC8tYPJoVdRe+7/ZClKVZKOVIgDEUpO
oUeSzLtvnk28+27mHFzx08VDugee8jmBdNBjbmEOl1T2jK3menQ+h642abNb
cU5g4eUzPGZWB7JnIGu2nNhi5nJNDSfhkeZwYYymnmj7ZNz11Sc9au21e4/W
0xSVY9/mB2NLbbPRGc8KSAeW3A5zf8+H9oeOaw1V7LBnY9YyQE2tp3sTeRHd
OUs5WhOl9IM0WYivnEnZyge7HP3cZTyY8701uDZzl1K/2twzct+7tZKYDjyZ
unntpmuNfvl0Ss/uNy3QLHzQbX79/Snf1lO8WK6d6mzjopxbHl1H3dR7w9Cr
0ej01MWeng+srqVQ5OJgN3aqted7LgylTTAreftliHvklVopNYNS9B92hw7z
lvqpDI+J2fIxQgq4lK4jSXwgOSl06CGiL0Vl3OFOb0y9/2aGbPYRGz8aGmKp
llMij6S803mQzQmklxw9B9mjEzUnG/I67/+aMOtWpBNYeNyqPFEjpVjVxezZ
cugFSxvzQqXGtii6pSUk4ZHmcmGMdO/m6rpjWr3ZNvVLhqht6839P39leqdD
23eFutynfVNHDX817WVTUYb9ni/07R268+cGPn9Y/JTvIonpnMW529Ihr+Pq
5a/SL70Ornu+uaXX1FeTBFnTrP3AljaRUTHvrRI2uxCez1tOkWX3+AsKiN5w
fnRKFfFaXbQse2VN03HmH85lS5hLP3Vb3q4j96vN0zxXvMiQ4PInzmduLg9e
YbIfB+Ytvb2OhI4cv5VkKrYrpuX8RUNK0355eeo0vcV0mNa6aPFKsqbpZOR/
nzpn+2emHlSa/iOkanPYP2un2vYR5CGN6XtvhoFBKTuSpAeSswKFHmL70paM
u29Cv1jU7dkrvhWDXE5grPAfkVIna7facJqYO+LJ1jpFwilUXbAtCPzJxpdP
ZF2MF9+yKqAQoRxJeKSFuMPuOKI7Z9HutvSC7eygPV1EST+dGX6rNmlOnjdR
TJHvrVI1u0Bi84nEDihzUAzB9blpZ77+7vaWdWqbNCKd2XxaQVQ1UPd9aWpv
PHeZL31iYPPgFWRBCL1k7z1rS35O4rWqiIyfKLLlvEVDStH+naFk/YdbS8Y7
hKBD/qW5mYnb1KlaRaNGf8vhWc2Yq7S0HUm6AxGj0NNGosV337RbFraVvwn5
vZ7vP+s5TAqq+FYEMjmB8VC3bBPUy9HqRB9bg4k4pJ/KPJUZ27Iql26ZKwmP
VPo7LEQV725Lbzivn027sCEwb9UqyAbtJ1+5FnzMLSnkm3/wWU/9nqQifUW/
t0rU7IKJJZSW6iHP5vL0j4/lmu+X9v9yfzq/VaHhfwwfVRL5qqzt+3ZNqqOS
i02v/Xxt5H7fYHRlCEx93757cF+hdm/RyxMX+i3zKd04tuiQUFm9PH8mtuX8
RUOK3/6doXT9J161uaJJ+x7FQ/+2uvWElvrzmHMu41KcUnckyQ5EHJmEHik2
H1D7+HdacYRVfCsCmZzAWF4XqdPD7mrxehzCRwlSp3cuEgmPVPI7LEQV8W4b
uSudve7k/xQ6+MvIsb2piUDZf1dsX6VZ9HurNM0unPjsthQZjZg5xHe6b/LN
ZspEpIU3e7uHZdzCskUv3etWktk3U8TDEOmrUTApPt40u4Op/yV+N+Gb9xfd
cv6iIUVv/85Qyv4jpGoz/Wxh4kOVoqK6+cKdNGvaS9+RJDoQsWQSeiSLLTlO
mUUK+b0zt3W11cIqvhWBPE5gPNFE0jQl5CH+kJxUW7MUXIhuWRVYiFB2JDxS
qe+wEFXMu+2L2X/Xpls6G4mP3ujiqeDA/Kcnto4z8ewoxb+3StLsQorPbue/
AGnTO3a5/dJ3a8nHs7nsukN1nVKpjjfVHVb1GO+4EgNgemXKqFUJp75k96a5
oYRWPY5beu2p6Au1l25984ufpgOekdf7v4k+2KH/NT6g7rbN4zmOpJ46qcPc
qDHL841lm4a7sEt+QQ66zW8OpXkmExkUcdk+UjeMiW857b3bqXyl8/bP0oxv
RLZ/Zyhl/4kVh806WAot2brS12wtfUeS6EBEk0fokSxzmtanU3qNyS2TCrzy
OIGxJwA792pTfPGNXVm3gMW3rLbIplvmRMojlfgOC1HFvNsGPOa+tJsZndfP
WH5J0wK/k7oYq7BZ/HurJM0uJC4vDSPP1RFMfNR+5NoDX2KbmRWqZzuHJr1s
SRcmFczQ6woiYachvTrWo6xRGf6369fVQPwf2WA5Mdh/EVj7ZZx6jeTPgEqH
vN8Z1cd7LA+88fIxoT9mbl8+Z/jwfP2+7Vv5mJKjDSeMrvUyeJazNqZLk1dZ
sAM6x1LB2+kb71OSAh610ZtOil2Oo2zPnNgtZ4F5iyb7Qg3yreSfVelbnl/7
M0P/yS5eHFbAYCmWap4nrVPpO5JEB5JO+KHplcr8+lJE1WHzo+IuqY8/n+Qt
NbVoe/O9Cd4CUJIrlxMY211LtFmyZKbKtDqOLMi+j3K5oCXzOakG9tOz/jZj
W8CqBorULSW2e440Rbl0zmLequhfLW99wr+ij56/c+HWTCDdG684Lppd4aI3
WMJmFxJXvYuRZzm/4GNL+6udyTkI6Q3Xh0fP3EsYGzCv3E+QTYOTK+w/h1cd
fYeSK8jEaoWnJLliyhkc5lv2tvztQMORgfGU4nRcrmPy5PDs9rt20GvrVjZ/
lP78y0ZocWrEyLdxRTDDZ1PeHLabC7/KbPuj+AO0rA/8Y7kUKt/OVjg4N/SS
/Z0LjvR1iPxOqo5tddIqoNK3PNoOke3PBv0nu9juHkFDiNgEaPIFUw4dSZID
yWBzxfNTxhRMX1JNyibqS6nSNInqSyni8QXvpoDww6F3vlwW1p68lckJjMdu
OeyuDfmfjOq4IgDKs9ZfnhZqvq48Lmgp4lUXs/42uRJdMtqDmaPdc6SpyqNz
FvdW9Wziwjv8mxkjMdB7d9JHWM9/+vDyt77iN1iyZhdUPClZxQHqhzym5yPx
13nlgavJ2/oicdM5rdmzwfPi+Jwm/cTWqUl5DZcZhtyrn0z6D5HY7URnyoNi
JkA7pOi8yxeSs+UaUxMdb0zq9x7qcaAkgiTiD/wbKGfGbhu9XO9p4d3VJVq6
FB9bQl6rhm1hHeX0b/v3UrecI779O0NJv4X4DJSQIQT9q6VtD9vUpEKlMuhI
0hxIPuSx5C9RfPcN/6YA2v+vf8ln97M8TqC4zEixwoI7PBeuOLGTk73eWbS7
Zl1wKFe750jLVXFvVZGBC//K62fuPw2lf2wYCROuXY1mhizFvVWCZhdS8KGp
gV3Ckeeuf2Z33n6e6glMfFRRXf+2xZMw2oyuh2RXrkb+7zfeSI3FuLIFPNsS
X3huqlI/iJlRrUpzBXjhc7yzn2fxBhMeVrRbF3O+baNGQKrYrFCWFX30hvMq
s3pJed4h5YwDk+LjjaHpjDlS43tektYGl7blsTcX3/6doZTfQqxqs7AKKbH4
iNhvSFwXUfqOJNGB5EMeoUeC+O6bAmS1lZ5MTmBsAjeH/W5CCgvuWsInDuLd
NdswVaZ2z5GWr+Leqlbt3akj/JfM/JTxwtfpont67W8Dpz71BOkSNFiyZhdO
7EhzmHQL+z2jlPpg0o4zNhbjq57AxG4kz1giuhW61ez5fxuuv/xpaiVlGi11
s1usza5/f9+RPL3GrvwklckLL+OHeeuDidQvgV2WKSJxKGoE8Ig9GMl8r6fn
re2RU1fTYZ2TckVN0G0+9d7EWpZfa+xZcnXi0KikLefk1f6doYTfQryUlZAK
KZEI+m0uj2PKo6qSdySpDiQfMgk9tnvmMrCb3Pk3u8mNTE5gdG1MLmWDuKUy
5XKeiyy2sSv7FrDYZrE897CUzO450vJV3FvVi0fmV99IWVNEP3fdOJ0uueiG
e+RUu8EVj+hLcW+VoNkFEz3SSIjU0nfrttXmmHL+5FnJcNUNr01eqWcGB1UN
hh+3/Sxf+CYuKPmDoLB/bnL0q+nlxEJC2+fdeFuWbrNbWtGdjPuTEp5kxjZj
R85iFF9si2imH1doyd6jjITYXbbF5MJSoeXxwXplty0hfSgd8IxeHbw5uZz5
hxiYt+jeTN5oydfEBUsbO1g9ZHq4LUzKs+X5y7P9O0P+34LoLhSr2iygDC7t
u081sA+VeZ7slbwjSXUg+ZBJ6LFNfPdN/hVwikE2JzAwbWrek8Nz3XjSs51b
xES8+PrkrL/N2BawbFlihF7uaO+4UdehUqlONtXuS96BEnn9Zx31KlPyaDO4
5v7KrO/u0F2k9LqOaLLuUh0pSK7Io7XN2WGVUv3pTELRZ7/L8KbBlbq2mg6t
/WhWH1YPu7dFTSW5t+bf7ALhjpRPdb1KR5lt3yfHcdF1jKQi+XDYTXPC4yw2
T4gi8j5d95b5/yLtZrf0NmYtnYqkQ7B+O515XSJzu6mS9LHzTkKHln+yUmfU
zGW/vl51znjnp+UMP4rn06bGqvQPXengrKVdQVa0ffwwtW47f/HE9Sl9HUE0
GVyZtnfRS/fOnLgpaJI6tgE/+QKQT8vzJkH75StbcZDt8vwWRHehWNXm7GVw
Q7+N9b/K5rpq5U9RW9KOJOWBiFe40COXvrRdmW3Cks8JDPsfftzGrH5poR6k
T6EU5fcMa9j7b0oFvZ2E9s19Y+7T9uipy31aTRdldQrc+BCruZD1txnbApbt
AV1ul7tnbtNRvh0ofK8PPRmnTh5QfTixwOUZiQwDvtXX17QYf/Bxfxz8h+W9
L9NGW5IfKQgUWnJZ3+9ihmvNdfWR3/cXruX0P8TijtbYR4V7FG3UPc9q9G8i
Y+9XdMnpREKrnrEbmtraNuP95EJjpbi3StBs6dGhRVuXMnsuU7Km+bTukmn4
r1ar9bZBo+QJ3F5yz3tzqP7APdDLUFco/Wa3jMcUua7e0msaqxMO4NX+sd/S
3qHYD8o+1NmNwv6ZW52df5ri7k30hnfqI7Wigu/b3/oTdlq24sDgpC/5awv7
Pdae+j0Ktdm1xrOFlL94Ivcgd++lqfS3R9o/bVbvFxrLpN2AL77leZKo/bIk
oDhIory+BfFdKFq1WaHOlFI4MoB5MNzVwFwxFafNrj/SfF8l60gvJT4Q0QoT
euTcl7b+stw2YcnqBG56xz9oU5CE4gRl/zndK+nA/ITxzWODtr99coIkDvRN
7JCUgclCv40NvNlvexw9D/S6y9hKRn5EvPV5E8Tzlmf+bb7ctqk5y2nM7XLH
pCPYm5Jqm6vNRJKNQzPxp+7sU52K+iuTCQv4n89bTpHkEXYxGB30fHramO5x
t/RHCkIwA4nOM0NTT9glZy8C3skh9X4iU+cs8miNDnm/7q+PXIkV9R1Xhu99
/9DxfkN0nzUd8q8seJxjlmtdTZEIo6HL8pDvUlOSe2v+zZZWvD3RSzftX3BN
3PvcTL3dWpspnCMPaUzfe1NnXnKKgLgrHvkqTzL/+Euim92SLzVCj86/NDfz
/b2RD/tUB9lny8dTkljG5Rh17h4bPxqOnrcnPFfhZjar6gdTa6/HbXrHLtaT
+9qou64FH/PHdGBt7sGoqauuItJ5xhcCvItpuCWyyftumGIQZLriU8y3PPvg
9mAbc6OoaPtwct6XcRT6IrD2q+vznlquJ/OksBbXctEkb7/cCCkOkkr0tyCi
C73cqhfJnNND+qmnqW/LXky+sw3pmqpJgjyopu5kepiZ1yHkoxAHIk4hQg9x
fYk58+u//WTRcpXd9nVYHi775f2jYcjpBDJeBBbGTZpDJFFZq37vs7H77rkl
PzMGeBFY9zI9ynxRo37HzK6pY6qmNp4rRP0UGQgt2985Qt3fPm6MDmKTI53k
P/R7XbFOWKuzzfnTrV1hLhTjxjZu9VCj/psn6bd+5Hi549IOJK+M4pY/1Wyr
68Td4g+mJN+mn7uMB6Mf53MZzw3N8M5gF+JIQQify3D6jH171r3oPFTGzlm0
0Vr0JaHlv3/efzRhbiVB5ApzzT6bEpnl2+A85d9sCdvitXcdqG7qHXH+nnon
o/3zTofVTPWcbqqJx3FkzREt9dnEXJrmseuWhcVu7MlXnqDGn6S/iea+2S2d
kHdc30RmyrrG7hDB+vxk4VXHuydSkqxyj+mypSR9EfA67xh7o/2HrGk63UOZ
v8y4toRbIpuU64at7MD/3QU85raUhwx7jgw/5r/WLFrbK8jqutdUW0621ilS
SseKaLk4BWq/nAgpDsJP3LeQYxfyT+prs1dB567MNU0nNEIWYOd7CKIU9kBE
KEDokXtfYvNtJv1kuN8N+5WIfCpYHLI4gSmC67P3bWZKpznRVFNJcOdWoxs0
fe5wLWwbotOhZ8925jicnboia183Tv6+dXzRHVuH+ib+SP2LNJ3wOHsCt/8J
lzIuzSv5+2pul7toJrfEmwUTaNdXkdtK3Ebv73xTJ1wV4MjI/PdF25kztqRU
cYU8Usgu8sWdS912wdU1zpJzuAijtdRPnHb8ub85fteKfKiqS2+2Tc2uCXiy
VsR7q5TNliuhsRuzw7Gh4R2rJ/MaA67knOBxKf2b/fq9NKuvuedFiN1yxS5d
rj7cZXmUsO+SW3qR61rWrPLY7AYyJaA4iJQfhy4kFwUIPYrcl0oMJ1CWYpv9
E/bgR2M3qW+IAhsj9HLHjasTG0mvPqBayIR9K9wzc/5xV7SrNPTduNibfhUT
lAT3xSnquz73JDw34b73zHNhIj5Nglst+yiAd32IrJVpszNhh/TZYjd2/1T7
tfGtkvFh/8LPCzwbIXMLEPhLdcewZztDj2JiN4n79k7A/RJTH8lyiewkrqQp
eqcSyFf24iBSZmNCF5KNAoUexetLpYYTKE90aHn6q9HJue0jFi67NfmaiX8N
YcGaktvl7o+JvkOJ42p2+ZPimNG5PQUN98w8zYPuaFfZ3255XJDNuiBebKFa
8oKoWPk8SecmpLjVstsniXbLQnl1pTJtdmbsUD9TD+ESX9xKTHOx4ui9zFPX
I5rtX+ANhXm2UJl21ceGx3y8osWcNokf89ysKpdslrsF7Z/9bnQseUdMQebd
oo/7kr6FhOXTvvGBM6OIr8uKuOIg4qALyYfPZdabJS5wU8y+VHI4geWCW3RK
KrvvFffCkuPlLnlcze1bSc1iwQ1N05RM4mI3rFCSJ9o39929r5LTxhZi3k2K
Wy03jNwzOJWtkI28lGmzs2B/9WmD7kjgNnLukn0+cSMh7ZscPHkz5VLArXIk
BIfwbNjIn40k8rmfqg+8kTab5UvugaRCwBpdYNDeu51MzjGdPUvBtZxwy6cT
5/K4hDbRf4xcLq6exne0E2QtDiIOutAuVKC+tHvgBObjRWD+Xn+9sq7L4i5E
vY9McrvcvZgdPhIbV7MZQU83aIZi+f+3o4MecwvJ92CWfjZvf5cp7IvYrYzQ
C7bOGoKo7bJ7pft9S3Gr5Yq2lEWu7O3KtNlZsAEX/1ZTOjRv7VDwZ6/keyDA
zJSRwp8VMM+UatXXPuxr77c4t7IV0YEl95hR3XI+89469rKG7TAC+WdMbaTk
qyai+wgIMj49SvtmRw39F7ubSHb9Br1o770kabQIJZK1OIg46EK7UIH60u6B
EygG/dzzHxe0p1StddVEZW3HSPqKOYVrQk6Xu2gSibZPxl1ffdKj1l6792g9
bfrHVafxmKL5uit+UHRgxT1m7u8z2B+MXztCVvY6fOHg7OdvUVPoNPJGB2Y+
aiZJRbtlVkjpWKHvmv+tNrqSs3xq1HLKtNkCMDHUfp4nNhs/Ghqq0uQ928oy
SnvHLmnU8TRg0SwuJ5kMROpBR4angvT87TMDX3tDdGjd4ximdOybMDS9xjtO
b5aUoexlLf9slrtC2O+63kxW1Q98K+1D2ujy6abeG4ZejUanpy729HxgdS2F
ItcEu7FTrT3fc2FocnGn/V52IQHFQUS+MbrQblOwvrRb4ATmixlyjBnalbWd
puJeW3K83PldhubqumNaJiPeL2mjtq13981+NdTT0dV3hbrS19Who4a/mo7W
BPQ/uqPv1Oh6dQN/LfpUI+SG9juNzXvI+sFxSZ9YSnGr5XIpKDW2RQkbVnhl
2mwhmPmyyvJK+sGsX61tNE1nyHcPLK4g4IE26lue6n75vTNvrRDYcYQUBxEH
XWi3KVxf2iVwAiUSdJtb9giokSchXO4gG6bAepOy7YNtiQElIUXfCz80Haog
iMMGV1HT++SrTJstDLMZSnmifPLHsqu7ld02705KGlMQ9PK3Aw0tPdZHBaga
z1srBHYYgcVBxEEX2lUK2pd2A5xACW3ODp9kCgY2Ds0UafUOLneQEf2v8YEj
DT1Wj/Rzo1L0vfA/ho/ur+34zFNeZSDLtNlC+WdMx/b2jK2WxcExhQsbmk3T
SI6cGe2fNne+sf0JLe3/7dGCRGEcf60Q2EkEFwcRB11oFylwX9r5cAJFov2P
RoduDH/zS+KdL5aGPTk9e+HagcsdpEc/nTGfad++Por2Lzz6TZrhGvreDhZ8
bDmlph7IP3oL+x5cO9I+skODaMmwgdvZxGTCkbvV5V7eNMIi3p+3VgjsHLkU
BxEFXWjXKHhf2ulwAkXjap+lL6FVrAEtLneQFhO4ne00TydEapEO2pu58rLg
t0ff29Hote8utV8ek3idrbSY3VsD7Vek3cW580QCt5vn3rfPJyYTplenBs9I
VcuVXWf7Suftn7FudSfKqTiISOhCu0Mx+tKOhhOYj9CyXacglM2DY4k7vp86
qcORiE5ZrOVGuNwBv0jgdvPdS/ZfE6cjwr4p6uT2fP75fAL63g5Hh9b+Pjzw
p6k1mS7DoNcmjQO3HizLObqUgdCctaMmTX5QTJpDVrkWBwFIB30pTziBeQv9
5rh62Ty+PVVjcM1lVisqFOpPS1ApAGBLYN6qVfAP1/gK9gHAzuRzGY7w3+kj
UFUBshJWHAQgO/SlPOEESoLe8Dq/NFM9Hdq+K9TlPu3rmh6DZdyTPfE+QAHR
Gy5jQ9rhGuoXAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMgfHVpxf3N3xERR
BrPV4Zz30xlevOm9/73bHy5a46SzSw4TAAAAAAB2HjrknTTrWqqJ7cjqph7z
1GIo9eWhJ+PUCWX9xTHvZvHbmoddcpgAAAAAALAjhf1uS1ddFVl7irr9nWdl
k/b/877thrauig1t9rVR9tmtiafNZddf+pv3KtSfzpTZbNQuOUwAAAAAANiR
wv6ZT9WKGpVhbC4xSKH9j0f1r0WnqKobNX2XqSvnNfUKgqis7Rgpt4hmlxwm
AAAAAADsUEG3+XiHcZJvxSBjc9n15dD5YzUkF9so6jWDt775JeMGMVnaJYcJ
AAAAAFAWQr+N9Z8enFovdTsKjvZ+e1V7SqU62Vqn3Kuf3Ch1e9J4EXjqC+z0
8IcO+J4GXpS6FQAAAAAAZYIOrLi/vqE5RBI1OsdKqVtTBCH/yvyU4QhB7O2w
PZFleBSYv6urJauPWeZk2TxJ0KH5/+iqrSSPWeZ37kECAAAAAEiD/qft3CmV
6pRWf92gfYXYLbFb5MCf2Dr2EuTJ4Vl5pkDcmLV0KmvfGp55unPDGjo4a2lX
vtIxPI3VlQAAAAAAggU85tZdFLttTOr3ksRBo+s5wgYAAAAAACgjecZudGjt
4ZdfPSrl3jHaO/XF5IKgzVP0c5fxIEHKeLMbAAAAAAAAr3xiNzrk/Xqg/XKp
SzCH/TO3OjtvCchL/3zecoqU72Y3AAAAAACAdMTHbvTytwMtWsus5FNYoeXx
wXplt80b3P5pAc/o1cGbk8u86erDvgfXjrSPeDLnZ4xudmu/9cN9K/VOj/5S
n/at/pEHy6GUvwqtehy39FqNtu+SXvemdvBz53LG+DTkpKKlztKpVlkXMrQs
tPxgZODceV2Huu+v7pyKo9EbXucXpv7uDs3rKtWJ1taTWr151PlE+kyV+R5j
5B1+d44M6s6/rVFf+Ny9gzf0AQAAAAAUgtjYLfjY0t7cbV+UfgROz1mOVRMV
WtvS9jBtfUpfRxBNBpc/zZ/5Z0wnGwa/W8vQIG6zG7m3ue+Oh4uPgm5zy94G
6r5v21/R/unhjleU6j89iMZrQe+93oY37nqzHyod8i/N/nCzQ8kVPNvTpP/S
/dta1jCK9juN3X9yRZrkc+gqqxpN08+zflT0Dx9aerQDlsnZ9Vicy4Rytwfb
DtT3WD0FKZAt8hhf0usuY5/RtU6/XHHoasjGoRlsOQQAAAAAeBlanryurt3f
TE1mimUY4mK3SKB0TNkpJJzJGb1k66ggkhPIP//JcLCC2HtpaiP9RwamTc31
6cPJ6GY3RYd1fmuijT38bXEi7fvB2KIkm6+7ooEPHZq3dihIorLX4RNYj+zp
lP4QG9e0WxaC2V/+csNj1p5zLNEv6aDH3EJWHDT8JCh2i4TPb5w182WkpP2u
oTalQp1tIlK8XI8xcmg3T5wbW6W5eHkP0sUAAAAAADDCD02HKpiR9SGTO8vc
i4jYjQ0xKo6bPYVI+EFvTF3aSyTHL/S85RhJVHTYljKN98OrjvNK5XnHKu8x
82524w6/Ts+VJqcX7d0HCLLNNBOf3aODs7c7D9SpTf83WxQc53dSdWxco7F6
eVd4JqLnLG8NsYHMsxnTa2SmucXtgovWCxcmltMFqoGZj5rJqgbDj4XJypLj
MTIn/4KROS76+cxQo/D4FAAAAABgZ6NXpqhWRe1p04M/sgUcucdu9JKj55Cy
h51DkZ7fZWjaCqaiQks2bQUhoGJ18KGpQcEfsEQ3u52yzG8PGpj1e7GPozdc
xgaSVHTdSxcRCTyEHOOamJzqF2z8QB2oIGtOUhP/4n81PW9tVxIVndZFIfNi
uRJ7jNnXvgIAAAAAyNCSQ3dU51gqaRtyjd24dX2HKefTgjRH5Ga3OHZyrfJt
e+rUG29kxC3FjAZ03Kfkn4VSXFzDThoSe1rMbiGxVthtYtcsVhwyPUwzs7o5
N3yCICobzY8ErvXMhcjYjV4d61GSZIvZE8SCSQAAAAAoIwtWVU2W1HwFl2vs
9tRJHS7cZiXxm93i77Boba/gmaF74TE3Jld243bAEdFQggsbkyfm+D9j/GpH
fTVJVDd2UKMpKUEyxDVhv2eU6misjnxorfrS2PxWVEV77V21BCl0JSq9Nkk1
769VX0+TeJN5yebU4J5IK1qGs81W8v51AY7xZWjZrlMIjk8BAAAAAGSjDGM3
ZvaqomC1rbnNbsm1sxM2u/nGB86MZtr1Rv883FJFHhmeTZxtYmO3pEkon8tw
hCQO9jjY9+NiN6E5ScL+hx+3MXsKU/eUpY9rNn40NFRF/sO2XCixVjMhJ1HR
bmUyrdBPbGevCQlUM4sm9d8zOLUp7q0kPsbEZZyhJZv+UsLKWAAAAAAA2Sq7
2I2LrcQV8haC2+yWGGExueVbyeg/Rhpw9XSWXW/cEZ0YnkusyMZEnZXbUmRw
CST31G+VFdjwmI+Tycs12Zf6H9sGqVFv0mTR73btPiZ8SZ4QTBvXhF2G/ewf
pCzL5PKocFEkk5Lx5GD+0XFs3i3nLWnbSXiMXAxORndKBt3mk1T+8SkAAAAA
QFHIIXbjwiWBm7w23KYWwWnhc8fNfMUXMTL/4psdNfRf7G4i2WWQ9KK995I9
7SrB6LuwMUvqEW3MWjqV0XemQ2s/mtX1zYNj3m2Fuem17wbrD7aPuLdCipBv
/sFfBruv3PGkpuLngkQiJU5MF9eEvFYN3+tfxhYTtpo9gZeheVvvoG0xYynw
rRZveKcdlhvv6QevUBR1zfCh0fTnb+a4anXBBUu7qHQiBTrGl/TyvS5FFRuD
by7aBntt86KbBQAAAABQXNLGbnRo2fm58Zrh2oC2490R5+8ZB8ZPnaa3VBGt
ddXsUJsga5pORv73qXO2f6YN4tjliEQ15RSS+T7wxHnH2KNprVPUNqm69Le+
neMvFR302owjkZglvtmtqfeGoVej0empiz09H1hdS6FIBGc3dqq153suDE0u
Zv1wesHSRhBVfRPPkv/DU4/tg64OnV6v6+iiLFPzKdXPIjHdQ5uxt0Pbd4W6
ote9qe03WSd/WQ/xnpJ4nFJHObcnUUkX13CRb5pgKvRk3Nil1p7r6blm44kT
UwXXZu5S6lebe0bue7dizchpn7p57aZrjY6XYBO/ZlLqY3y56R2/zn6P71C2
R37MuQEAAABA2ZAydqOXv718bmSGiY/YCRdFty15jV/efA5dJUGorN5sbQl5
xwablUQCUqH+dCY1fNv44erZO2w5bf7KbmJwG73E5ejI5WNyjGtE59VPQT91
W96uI/erzdM8ERC95Lj8ifOZ29xYyXxao9kjPtFk6Y4RAAAAAEBGpIvd6EX7
O1SsJjWXHF6psS1K8M7bP4Sdz9qjn8q4ni8SuH3dX19FVDd3GYbvOiadDybs
n98431pL8qS8CC5a+wYm/mD/b97KbuIays4P5jXfJMQLn6O3UkRcUzUw8SyP
htFPZ8ynFZGTSd33pSnt9txlvvSJQU2yn5Y6/5iDEh0jAAAAAIC8SBW7Rcbq
Js3w4+jsCleEugAZRdjpLHK/wZWmoBgr6Bk+tr++7z8864mzfqE/XMNv1SSV
in7+k/H0p7GtbbyV3cRZtGmURZj6ieXlSAqT08U1sbwfeU2EbXrt52sJgmww
ujIk+vB9++7BfUyGSGKf1v676A97WZpjBAAAAACQG6lit/Wpwd54VTJu1xjB
W586L9wUTHXGBgcXrdrGrcyNiZiMkccPb+WQDK863uu1/4ve1uzkym4icZEF
T7oMiXGLSJMLZKeJa1484hYx5jMRRi/d61aS2XPLRMsDEILK1WVW9GMEAAAA
AJAfiWI3emnqr997o0N5Lts8qewb9+X7vkm4rU8ZY7eNH6jj110pGUC2Wro6
1vNabEaGnreeve6MTR7R3rudylc6b/8sxSY9LrJIWuZXANEpzqSQkz+u4arU
5TcfyhZGZwKpbLOTyzYNu2BSgli42McIAAAAAFB04YemVyqJfFUdNj/KYf7s
xePhI3sy7BoT/sEpf5o9dgu7b+qsmWOF9Sn9Oa7EwIvZz3QjjwuzsK5YsdtL
esN59QCRNL3FG9dszg6fZMKaA1edooua+cb7mEk3glRbvZneg950UuzKRWV7
lq9DiOIeIwAAAABACWyueH5yZvIl1aRsor7M+Jq/u73Cx8F00D3UEBk8HzS6
nks+eBYw75bdC5/jyoWJVSYziZGSYmsbr6LFbsx8oeNc5LMqavv/FlspyhPX
MBOOTNh1oNu+KPaLoZ9NDFSx4XzL8M8CqpNLt262eMcIAAAAACBPktfm5lI1
VjaYHhageHZ41X62It/Y7SU99+ezkdBjY+rq5QmpV3XGcZFFi8m9kf21eaP9
02b1/kjM0nXnF3a5aHJcE3tBmpT+jKB33KhVq1Sq1+qq69PMmXLpQyMaKGfG
MxfddLanxeyWqhtIcYwAAAAAAOVL6thtY1K/lyTIk8OzBcnRwSbASMpZkbtV
u+7q/111GN93PpWqYSm4bIfFKzFGB+YnTJ215L426kv3yvKDrbjG53XeHmzb
R9a+bnD8mn4jYOTk+lcWvzc0VKbfyxYLl8i3bMsZvoHYEkfleYekyWokOEYA
AAAAgHIlbewWLcW1LadE0Dthd65LNoB/4TE3EkQ15cwrIgo5P7j46b+/83EB
VnXGRU5sNVHZ6/AVM0/9i4B32mG53q99vbVuDxvX1LZqtDrKbJ14tBLI3pJo
ps0jw7P8r43Nu2X+Auh5a7uSIGo6rHMprwotjw/WK5OKttMBz+jVwZuTy0K+
1XyPEQAAAACgPEkau0XzAW7LHk/PWd4aSh8ibS677lBdp1Sq4011h1U9xjuu
bNvPVu3aCoJQWb35tDPkpPbvPbJVKaAAuAz5h0xuaYskCJWu9llm9MbUpb1E
xUHDT2ly+scykGSK3UJL9h4lQSq7bIuhlO+dv4Le+pQ+0tomgyunvYHijhEA
AAAAoExJGrtxdbi2RuZ00DN8Nt2OJ/rpjPls59Ckl50roQNPpoZeV2TdrMRt
pMpSnDsbJrBqNXsCebxFNmyMWalzFGw/XWbi4hpur2LaBKGM59Omxqr0devo
4KylXUFWtH380M/zDfFX0Hv+k+FgBbH30lRumSERuwEAAADAriJp7MaV9GoZ
novVunZcuJpmxxO94frw6Jl7S9tH68HHlvb9BNk0OLmSfhC/OtF3INt+q2ye
TfQ1x0q8FUbYZdhPVB+zzJVo65WouIZ/UixJeG3ySj1ZcWBw0pd8bGG/x9pT
v0ehNrvWeON1/nk9riJbRYdtKbeThdgNAAAAAHYVaddMLtg6a4g2ywLNTqvd
fPfy+L/4x+ORsO6c1uxJysEYXnWcV2ap5sylmjzQxyT5F9vMuREV9aAguVSi
Ql5rB0kUeGovDTqw9tvMF331bC5/Yr966LvZZb+Q2CY2KXbzh7/foXp69Vf6
tB3vjjh/T/nbTe/YxXomYchd14IvxH3k3INRU1ddxSGNaXwh7aYz3nm90JJN
W5FjnCv6GONvEFr3OG5d0rZr+65c1HV0D1qcy6krPAEAAAAAZETaXCV0aPnB
SP9b2v6rhms3PucZ9scw6SgrquvftngStjhx4UPmqR/2NRn2ZGUVCay61FKW
RUi14tDVFHuzG7fDLpPMtRW4STGCVBztsz5il63SQY+5paKFerCaEtW8CHid
d4y9p5tq2ELdNU2neyjzl87MdQDz3+yW7zFywv6ZkY7aA+qh+9F4jf7tXvdr
b9gWELwBAAAAgIxJXt9NGK6UQOpsC7djLvOMFZcRpVHsokfmz48UtmQ2cxSV
jQXNhSI9blIsMTkku7sw99WM/CTd7CZa2Of8sKW6utnojG2rDMxbtQqihJsT
AQAAAACEKFHs9jLsn5sc/Wo6aaGakHm32AxRrmkJY5jAqt2yUIDK4VHhVfvb
lRWd1sXCfUQB8E6KcZlhpAmsuG+N3Kuf3L5SNmGzm2984MyoJHFi2kYs3etW
kmTzRzNbReA2Zm93Hzhw2vTgD8y7AQAAAICM+VxmvdklkwmHoNfWrSBIRde9
5czD6KDb3KI4QP2wkfFVfNgs9wVdzchUN9ur7BuXyTkViH9SjJsGlSZ24+b1
Eqcj6XWXsZWM/mMkuLt6urDZXXwuwxGSqO2yexGmAQAAAACIF5g2Ne8hFJ2W
2awxWdg39d4BMXNbG25TSyFXx9EbzqsHKjSW+RJkKckDbwZI+rnLeDBL6hjh
n8DO60XercXsCXK7zHyzo4b+i91NJLt0ll60916yCyrPLRa3UjfLrC4AAAAA
AGTETcGQrw6kS02Z/Prlif7GnKfe6J+HW2q3SodLLvSLRV3bkq6knXwFPObW
lAyQ3EzZHkkOJzqv19R7w9Cr0ej01MWeng+srqVQJIKzGzvV2vM9F4YmFwsa
U3HrM6UJRQEAAAAAdik27bzyBDX+RPjonV77W/+B46aZXHa9MYsA09WVzt/m
ok13sN0yGyy72ICL3RJTxGz8aGioIpTn01Toywl/Zbci42I35CQBAAAAABAr
tDw+2NDwjtXzNMeYJ+x/+PGxwx888AkNLpiS2aITVGZBh+atnS36MW8hC8cV
Smr6Fzb7YpY66cLxVnYrOmab5B6+tJlh/+zo4IUvsQsOAAAAACC9sH/mVmf7
tfGtkCfsX/h5wS8wHNv0julbTgmd6gp7vjA4CrJgkvbdp468YZ7JNfyUjeBj
S/uh2PLI4JrLrK5tHXT8Js0iRv7KbsUXXpu8Uq/sGPHE6gNEIm7//IPP3+se
/MIjtMsBAAAAAOxCbODWeWsmYdi84ui97PAJnxvbXH5w64LZlXvOSenQv9kv
G0dnfeUauLFo/yMbdbZD965e92YX9fnUwjOpDoc/iWVpBNdmRo09b2r7LlPU
RV1HV7/pzuTsGnKXAAAAAACkFwncRs5dss8HEsI02jc5ePJmYZY1QmnQ3rud
ylc6b/9cbilcAAAAAACA2R3WoSAJPnw7kgAAAAAAAKDouByG/EqcjRAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOTs/wMe
Jkr1
     "], {{0, 139}, {1172, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{739.0909090909086, Automatic},
   ImageSizeRaw->{1172, 139},
   PlotRange->{{0, 1172}, {0, 139}}]], "Input",ExpressionUUID->
  "62b3a405-38be-4c5f-a1cd-7812b609e41f"]
}], "Section",
 CellChangeTimes->{{3.7468306940093365`*^9, 3.7468307862107296`*^9}, 
   3.768088783947846*^9},ExpressionUUID->"98d92130-7706-4419-9a39-\
74f29eb7781c"],

Cell[CellGroupData[{

Cell[TextData[{
 "Lagrangian Invariance: DL[tt] w/ tt= tilde index (1 = no tilde, 2 = tilde)\n\
",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox["D", "a", "i"], "\[ScriptCapitalL]"}], " ", "=", " ", 
    "0", " "}], TraditionalForm]], "None",ExpressionUUID->
  "fb9d2267-9c36-4fbd-805a-c070dd34aa44"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], "A"}], ")"}], " "}], 
   TraditionalForm]],ExpressionUUID->"82102351-5de6-4924-beae-26e36e4e8aaf"],
 "\[Square]A + ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], "B"}], ")"}], " "}], 
   TraditionalForm]],ExpressionUUID->"0d9ce9ed-721e-4614-9734-25dd6d5f9b9e"],
 "\[Square]B +F ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["D", "a", "i"], "F"}], TraditionalForm]],ExpressionUUID->
  "04a154f8-98fb-4c5b-a51c-037471e2606f"],
 " +G ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["D", "a", "i"], "G"}], TraditionalForm]],ExpressionUUID->
  "bf5cc947-30ab-4320-be18-7ddb791d365e"],
 "+d ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["D", "a", "i"], "d"}], TraditionalForm]],ExpressionUUID->
  "7299dbae-28ca-4b87-b6df-7e49f0da2f8d"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], 
      SubscriptBox["A", "\[Nu]"]}], ")"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], TraditionalForm]],ExpressionUUID->
  "73fdc9be-ff2d-4368-bddd-d82acd9f2542"],
 " -",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{"i", " ", 
    SubsuperscriptBox["\[CapitalPsi]", "b", "j"], 
    SuperscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     RowBox[{"(", 
      RowBox[{
       FormBox[
        SubsuperscriptBox["D", "a", "i"],
        TraditionalForm], 
       SubsuperscriptBox["\[CapitalPsi]", "c", "j"]}], ")"}], " "}]}]}]],
  ExpressionUUID->"464885ab-45b9-4f6b-a312-6db37115250b"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], 
      OverscriptBox["A", "~"]}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"c0d7ac8e-2cb6-47ed-95d5-b6b3171e026e"],
 "\[Square]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["A", "~"], TraditionalForm]],ExpressionUUID->
  "3d6a7f82-5b26-47d9-9e13-1e8845c334bf"],
 " + ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], 
      OverscriptBox["B", "~"]}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"b6f510d8-e19c-4092-bf28-e16605ed439a"],
 "\[Square]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["B", "~"], TraditionalForm]],ExpressionUUID->
  "33c395ce-23cb-46a0-8e42-7f3e80d72528"],
 " +",
 Cell[BoxData[
  FormBox[
   OverscriptBox["F", "~"], TraditionalForm]],ExpressionUUID->
  "693b0377-ee0f-4683-ad15-b1e526983d8a"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["D", "a", "i"], 
    OverscriptBox["F", "~"], " "}], TraditionalForm]],ExpressionUUID->
  "9600abe0-79e5-425f-b94c-957cc86f8263"],
 " +",
 Cell[BoxData[
  FormBox[
   OverscriptBox["G", "~"], TraditionalForm]],ExpressionUUID->
  "340e008f-291b-4947-9238-dfcacbe06c4a"],
 "  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["D", "a", "i"], 
    OverscriptBox["G", "~"], " "}], TraditionalForm]],ExpressionUUID->
  "867712cc-fd89-4e8f-8bd8-2eb22aed7c14"],
 "+2",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], 
      SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]],
  ExpressionUUID->"bb8f3205-b426-4da7-bb44-f189c8bee4e0"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], 
      OverscriptBox["\[CurlyPhi]", "~"]}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"9c398fdf-759a-4824-ab57-a3985f19f51f"],
 "\[Square]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[CurlyPhi]", "~"], TraditionalForm]],ExpressionUUID->
  "1a012f05-b69f-4101-912a-1d1d346dd20d"],
 " -",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{"i", " ", 
    SubsuperscriptBox[
     OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], 
    SuperscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], 
       SubsuperscriptBox[
        OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}], " "}]}]}]],
  ExpressionUUID->"524049b0-27dd-4919-a5f4-fa3cee9c761b"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "a", "i"], "\[ScriptCapitalL]"}], " ", "=", 
    " ", "0", " "}], TraditionalForm]], "None",ExpressionUUID->
  "e234e7f1-37d2-4933-a5c1-a3f72c029389"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], "A"}], ")"}], " "}], 
   TraditionalForm]],ExpressionUUID->"b29d7e71-8674-422f-8636-2112a3928dc5"],
 "\[Square]A + ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], "B"}], ")"}], " "}], 
   TraditionalForm]],ExpressionUUID->"cd86fd63-e018-4820-84dd-ed82b18a1e89"],
 "\[Square]B +F ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["D", "~"], "a", "i"], "F"}], TraditionalForm]],
  ExpressionUUID->"da32b39c-563a-4d5f-9569-7444d722bd33"],
 " +G ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["D", "~"], "a", "i"], "G"}], TraditionalForm]],
  ExpressionUUID->"e8883f99-4c27-4ef1-8fce-edb7df2f12bb"],
 "+d ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["D", "~"], "a", "i"], "d"}], TraditionalForm]],
  ExpressionUUID->"bb6110b1-ab48-4753-8bb5-e396c41dbdab"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], 
      SubscriptBox["A", "\[Nu]"]}], ")"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], TraditionalForm]],ExpressionUUID->
  "d656f99d-9dbc-4d4a-89a8-6fad373e4d23"],
 " -",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{"i", " ", 
    SubsuperscriptBox["\[CapitalPsi]", "b", "j"], 
    SuperscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "a", "i"], 
       SubsuperscriptBox["\[CapitalPsi]", "c", "j"]}], ")"}], " "}]}]}]],
  ExpressionUUID->"7dd474a5-4271-4031-9f16-0a500b261109"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], 
      OverscriptBox["A", "~"]}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"40cd6033-2bde-4713-8833-82a4c444c8ac"],
 "\[Square]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["A", "~"], TraditionalForm]],ExpressionUUID->
  "a6239a4a-4cc3-404f-9b1d-836ff94afd2d"],
 " + ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], 
      OverscriptBox["B", "~"]}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"b0f1c62c-25ce-489b-ab90-701ff5fd5f98"],
 "\[Square]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["B", "~"], TraditionalForm]],ExpressionUUID->
  "f12eabda-cd45-4a38-9745-39fe9ed8a4fd"],
 " +",
 Cell[BoxData[
  FormBox[
   OverscriptBox["F", "~"], TraditionalForm]],ExpressionUUID->
  "4e77d256-aee5-4e88-879a-80e2b6b27659"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["D", "~"], "a", "i"], 
    OverscriptBox["F", "~"], " "}], TraditionalForm]],ExpressionUUID->
  "e9ccedea-ae80-4c16-a3ec-b9684a3a2805"],
 " +",
 Cell[BoxData[
  FormBox[
   OverscriptBox["G", "~"], TraditionalForm]],ExpressionUUID->
  "83a10d3b-c3f3-4acf-b0be-204be94cd818"],
 "  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["D", "~"], "a", "i"], 
    OverscriptBox["G", "~"], " "}], TraditionalForm]],ExpressionUUID->
  "b7f3cd6b-47a9-442f-a613-eed5e2e66f36"],
 "+2",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], 
      SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]],
  ExpressionUUID->"943a5e79-1ab1-4955-8cbb-a4d4159f5808"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], 
      OverscriptBox["\[CurlyPhi]", "~"]}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"b6c889e4-2177-46fd-8940-20a04134aff0"],
 "\[Square]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[CurlyPhi]", "~"], TraditionalForm]],ExpressionUUID->
  "0f81546c-dcfe-43db-92ee-163684c19850"],
 " -",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{"i", " ", 
    SubsuperscriptBox[
     OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], 
    SuperscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     RowBox[{"(", 
      RowBox[{
       FormBox[
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"],
        TraditionalForm], 
       SubsuperscriptBox[
        OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}], " "}]}]}]],
  ExpressionUUID->"6d8aa316-66bc-4af0-a68c-8b189bac6394"]
}], "Subsection",
 CellChangeTimes->{{3.454246606703125*^9, 3.454246625015625*^9}, {
   3.454251500078125*^9, 3.454251667421875*^9}, {3.454251702390625*^9, 
   3.45425215521875*^9}, {3.454263376*^9, 3.454263397265625*^9}, {
   3.45428740525*^9, 3.45428742084375*^9}, {3.454287467203125*^9, 
   3.45428773065625*^9}, {3.45428910365625*^9, 3.4542891065625*^9}, {
   3.454456307296875*^9, 3.454456465078125*^9}, {3.50678340159289*^9, 
   3.506783565701276*^9}, {3.536932228013555*^9, 3.536932298641595*^9}, {
   3.5369323480434203`*^9, 3.5369324286720324`*^9}, {3.536932497279956*^9, 
   3.536932514471939*^9}, {3.5369351427460437`*^9, 3.536935372533187*^9}, {
   3.536935409387295*^9, 3.536935461220259*^9}, {3.538947494798768*^9, 
   3.5389475339740086`*^9}, {3.5390845549031973`*^9, 3.539084570345081*^9}, {
   3.5485026466884108`*^9, 3.548502738856683*^9}, {3.5485028490319843`*^9, 
   3.548502943205371*^9}, {3.5485036606274047`*^9, 3.548503666782757*^9}, {
   3.5486501786244926`*^9, 3.548650189815133*^9}, {3.5508445420355253`*^9, 
   3.550844611554328*^9}, {3.550844729617717*^9, 3.5508447461547728`*^9}, {
   3.550844788089023*^9, 3.550844815455274*^9}, {3.550844863183857*^9, 
   3.550844891662616*^9}, {3.5516982689282255`*^9, 3.5516983432544765`*^9}, {
   3.5516983816606736`*^9, 3.5516983829327464`*^9}, {3.5516984249471493`*^9, 
   3.5516984714848113`*^9}, {3.5516985702944627`*^9, 3.551698875578924*^9}, {
   3.551698927129873*^9, 3.551698991279542*^9}, {3.5516991515377083`*^9, 
   3.551699274239726*^9}, 3.5516993143020177`*^9, {3.5516994405662394`*^9, 
   3.55169944075025*^9}, {3.551700337449538*^9, 3.551700363040002*^9}, {
   3.551700495619585*^9, 3.5517008290356555`*^9}, {3.55170087195311*^9, 
   3.551700878835504*^9}, {3.5517010729696074`*^9, 3.5517011056154747`*^9}, {
   3.5517011510140715`*^9, 3.551701165619907*^9}, {3.5517104326207523`*^9, 
   3.55171051684857*^9}, {3.551710571526697*^9, 3.551710652315318*^9}, {
   3.5517221642034326`*^9, 3.5517221692237196`*^9}, {3.5517252564955*^9, 
   3.551725281353922*^9}, {3.5595043648363504`*^9, 3.5595049988286123`*^9}, {
   3.5595051063877645`*^9, 3.55950519145463*^9}, {3.5595053822635436`*^9, 
   3.559505392151109*^9}, {3.5595056850588627`*^9, 3.559505689373109*^9}, {
   3.559506428283373*^9, 3.5595064353747783`*^9}, {3.560174478268302*^9, 
   3.560174523941914*^9}, {3.7095764206864767`*^9, 3.7095766842485523`*^9}, {
   3.7113981997534494`*^9, 3.7113982328343415`*^9}, {3.711717278444582*^9, 
   3.711717285508986*^9}, {3.7117173550729647`*^9, 3.7117174209787345`*^9}, {
   3.711717954447247*^9, 3.7117179796996913`*^9}, {3.7118440517631326`*^9, 
   3.71184405241617*^9}, {3.7118596968219786`*^9, 3.711859766022937*^9}, {
   3.7120958344789104`*^9, 3.7120959332355595`*^9}, {3.7120960142231913`*^9, 
   3.7120960142241917`*^9}, {3.738588501002038*^9, 3.7385886307354584`*^9}, {
   3.73858898988*^9, 3.7385890011916475`*^9}, {3.7385967765757704`*^9, 
   3.7385968980507183`*^9}, {3.74222055188433*^9, 3.742220561271173*^9}, {
   3.7468073670301046`*^9, 3.7468073760050945`*^9}, {3.746829764231292*^9, 
   3.7468298276440716`*^9}, {3.746829858389183*^9, 3.7468299756839895`*^9}, {
   3.7468300490731544`*^9, 3.7468300561987934`*^9}, {3.746830218823106*^9, 
   3.746830239591096*^9}, {3.746830378901266*^9, 3.7468303857302523`*^9}, {
   3.746830719636977*^9, 3.7468307204182134`*^9}, {3.746830800477953*^9, 
   3.7468308958942165`*^9}, {3.7468309290693417`*^9, 
   3.7468309609789553`*^9}, {3.746831003983164*^9, 3.746831039359952*^9}, {
   3.746831204016987*^9, 3.7468312801495547`*^9}, {3.7468314793159084`*^9, 
   3.7468315622697616`*^9}, {3.7468316351975713`*^9, 
   3.7468316717231665`*^9}},ExpressionUUID->"14da1a61-af7f-4474-aff8-\
dff4de42d66a"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLA", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "A"}], ")"}], " ", 
      RowBox[{"\[Square]", "A"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "A"}], ")"}], " ", 
      RowBox[{"\[Square]", "A"}]}]}], "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"2376a424-4af0-4f81-b872-b95909f0bd6a"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468344436380267`*^9, 
  3.7468344436380267`*^9}},ExpressionUUID->"af5e7e1f-100c-4f05-a4bd-\
a2b31ef029f2"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLA", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}],
         "[", 
        RowBox[{"A", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{"A", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.768070975380674*^9, 3.7680709756897793`*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"92a9a3ee-a180-437f-b3cc-5ac2a32f3f08"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 RowBox[{
  RowBox[{"DLB", "[", "tt", "]"}], " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], "B"}], ")"}], " ", 
     RowBox[{"\[Square]", "B"}]}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "a", "i"], "B"}], ")"}], " ", 
     RowBox[{"\[Square]", "B"}]}]}], 
   "}"}]}]],ExpressionUUID->"c7e60993-51c9-4ace-a1f9-63b491ea8320"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7385970113191967`*^9, 3.738597016480492*^9}, {3.7468341733929377`*^9, 
  3.746834189196767*^9}, {3.746834444722932*^9, 
  3.746834444722932*^9}},ExpressionUUID->"e06706ba-25ad-4e42-9695-\
0e63916143a0"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLB", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}],
         "[", 
        RowBox[{"B", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{"B", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342116929817`*^9, 3.7468342191508007`*^9}, {
  3.7468342522212057`*^9, 3.746834252549163*^9}, {3.7680894706414633`*^9, 
  3.768089470940668*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"be17646a-acc5-43c5-9241-c8215a3e7576"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLF", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "F"}], ")"}], " ", "F"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "F"}], ")"}], " ", "F"}]}], 
    "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"fba014a6-df86-4c3c-b116-3f000fe7dfdc"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468342690987387`*^9, 
  3.7468342873651514`*^9}},ExpressionUUID->"7f448219-2bf6-471a-91fb-\
4d7de36be31a"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLF", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Expand", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
           "]"}], "[", 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
         RowBox[{"F", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", 
     "ByParts"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.746834294400001*^9, 3.746834304445488*^9}, {3.746834340900341*^9, 
  3.746834341524053*^9}, {3.746835620477548*^9, 3.7468356301816254`*^9}, {
  3.768089478396091*^9, 3.7680894787226553`*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"9ccb3a38-e988-4c06-830f-e5210bf5cd95"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLG", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "G"}], ")"}], " ", "G"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "G"}], ")"}], " ", "G"}]}], 
    "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"5a2f6bb9-b205-42b0-8ceb-a64ce045415b"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.74683432248897*^9, 
  3.7468343242884827`*^9}},ExpressionUUID->"86074d7f-3ace-448d-852b-\
d8a3d9906795"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLG", "[", "tt", "]"}], " ", "=", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
            "]"}], "[", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
       "Expand"}], ")"}], "/.", "ByParts"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.746834294400001*^9, 3.7468343362568207`*^9}, {3.746835594211018*^9, 
  3.7468356072396207`*^9}, {3.768089486662664*^9, 3.768089486970701*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"09542eaf-0988-42e5-b2c8-b61efc5b89a0"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLd", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "d"}], ")"}], " ", "d"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "d"}], ")"}], " ", "d"}]}], 
    "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"541cd356-6e5f-4160-8056-d290664cb70c"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.74683432248897*^9, 
  3.7468343242884827`*^9}, {3.7468343797740192`*^9, 
  3.7468343877282696`*^9}},ExpressionUUID->"fb6ca20e-cfae-4834-aa4b-\
7ef77feede5f"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLd", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Expand", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
           "]"}], "[", 
          RowBox[{"d", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
         RowBox[{"d", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", 
     "ByParts"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.746834294400001*^9, 3.7468343362568207`*^9}, {3.7468343884159393`*^9, 
  3.746834390445628*^9}, {3.746835646786049*^9, 3.7468356538215685`*^9}, {
  3.768089492748435*^9, 3.768089492984473*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"1fac774d-e858-4cc2-8537-bc210212bbbd"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLAm", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], 
        SubscriptBox["A", "\[Nu]"]}], ")"}], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], 
        SubscriptBox["A", "\[Nu]"]}], ")"}], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SuperscriptBox["F", "\[Mu]\[Nu]"]}]}]}], "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"06677297-8f07-4594-8449-0ce8c5a5ed36"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468344366017537`*^9, 
  3.7468344698031597`*^9}},ExpressionUUID->"61e4253b-02a0-44b6-bc68-\
f6758f30d0b3"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLAm", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
           "]"}], "[", 
          RowBox[{
           RowBox[{"Am", "[", "nu", "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Fmnup", "[", 
             RowBox[{"mu", ",", "nu"}], "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.7468344775343776`*^9, 3.746834511009919*^9}, {3.7468345978162737`*^9, 
  3.7468346201300364`*^9}, {3.768089504630349*^9, 3.7680895049293957`*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"b6d4506d-4362-4d2f-9d89-569c5ced452d"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "DLPsi[tt] =  {- ",
 Cell[BoxData[
  RowBox[{"i", " ", 
   SubsuperscriptBox[
    OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "a"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]],
  ExpressionUUID->"66765b77-be6d-402d-9b41-119bb858d9cc"],
 ",- ",
 Cell[BoxData[
  RowBox[{"i", " ", 
   SubsuperscriptBox[
    OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{"(", 
     RowBox[{
      FormBox[
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "a", "i"],
       TraditionalForm], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]],
  ExpressionUUID->"25066902-fa34-4c71-95ce-7046f54e4618"],
 "}"
}], "Subsubsection",
 CellChangeTimes->{{3.738597279555539*^9, 3.7385973231010303`*^9}, {
  3.7468350177431993`*^9, 
  3.7468350873894763`*^9}},ExpressionUUID->"26178bfe-7806-4f31-ae90-\
0d5b4d5d1206"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLPsi", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Table", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"-", " ", "I"}], " ", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
           RowBox[{
            RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"bb", ",", "cc"}], "]"}], "]"}], 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
               "]"}], "[", 
              RowBox[{
               RowBox[{
                RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "cc", "]"}], 
               "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
             RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", 
     "ByParts"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7385972962894964`*^9, 3.738597413817219*^9}, {
  3.74683512604104*^9, 3.7468351428369017`*^9}, {3.746835187850502*^9, 
  3.746835254521659*^9}, {3.746835295755268*^9, 3.746835344941128*^9}, {
  3.746835393459791*^9, 3.74683539494446*^9}, {3.7680895163878393`*^9, 
  3.7680895166892653`*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"710f73c4-2d91-4e20-b63a-c015845db9ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DLPsi", "[", "1", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"2", ",", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7468371593286643`*^9, 3.7468371707733793`*^9}, {
  3.746837489253231*^9, 3.7468374903478785`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"c62d9f3c-3434-4f50-8f06-93884cc615c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["d", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "2", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["d", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "2", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["d", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "2", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "1", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "0", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["d", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Am", "[", "2", "]"}], 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Am", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["F", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["F", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["F", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["G", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["G", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["F", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["G", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["G", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{
  3.7604680361242466`*^9, 3.760468242919054*^9, 3.7604703413334837`*^9, 
   3.768087583434559*^9, 3.768088429215493*^9, 3.768088769494791*^9, 
   3.7680892780739937`*^9, {3.768089523686303*^9, 3.768089539932356*^9}, 
   3.768089612871057*^9, 3.768089929522987*^9, 3.831220469512294*^9, 
   3.8312221044112062`*^9, 3.8312222052799287`*^9, 3.8318058605627265`*^9, 
   3.8318397742601185`*^9, 3.832947487265419*^9, 3.8329617715973444`*^9, 
   3.8458268593927655`*^9, 3.8458524546775827`*^9, 3.845857065484118*^9, 
   3.8459196094152193`*^9, 3.8460065635065165`*^9, 3.846099874071426*^9, 
   3.8474704347433567`*^9, 3.851700620197587*^9, 3.853975438167882*^9, 
   3.8549773917887845`*^9, 3.8549892516653643`*^9, 3.8549998875953207`*^9, 
   3.855165234822609*^9, 3.8551823046369104`*^9, 3.85518585045195*^9, 
   3.8553306245204616`*^9, 3.8553398305098453`*^9, 3.8553431652395067`*^9, 
   3.8553440022605677`*^9, 3.85535273074113*^9, 3.855449595417637*^9, 
   3.855507597799773*^9, 3.855508394009143*^9, 3.8555128766988297`*^9, 
   3.855533092787323*^9, 3.855533312942823*^9, 3.855578905881528*^9, 
   3.8555932798166676`*^9, 3.855750591484652*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"0037ac6c-a1f4-4595-b9fe-7a6e43c228e4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLAt", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "At"}], ")"}], " ", 
      RowBox[{"\[Square]", "At"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "At"}], ")"}], " ", 
      RowBox[{"\[Square]", "At"}]}]}], "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"7342eb63-1e2d-4ca5-91ec-e003e6a8a383"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468344436380267`*^9, 3.7468344436380267`*^9}, {3.746834719519888*^9, 
  3.7468347261037197`*^9}},ExpressionUUID->"d64b4b59-6908-44fd-996b-\
c23a7a28af20"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLAt", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}],
         "[", 
        RowBox[{"At", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{"At", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.746834727196327*^9, 3.746834730539262*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"dc1d1e0d-1796-415f-8f95-ff3f06ff3194"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 RowBox[{
  RowBox[{"DLBt", "[", "tt", "]"}], " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], "Bt"}], ")"}], " ", 
     RowBox[{"\[Square]", "Bt"}]}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "a", "i"], "Bt"}], ")"}], " ", 
     RowBox[{"\[Square]", "Bt"}]}]}], 
   "}"}]}]],ExpressionUUID->"9b94e66c-b901-44de-bb25-45ede36ca3ab"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7385970113191967`*^9, 3.738597016480492*^9}, {3.7468341733929377`*^9, 
  3.746834189196767*^9}, {3.746834444722932*^9, 3.746834444722932*^9}, {
  3.7468347377477365`*^9, 
  3.7468347400140004`*^9}},ExpressionUUID->"78b0b9f3-b025-4837-aade-\
5ec96bfc6c23"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLBt", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}],
         "[", 
        RowBox[{"Bt", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{"Bt", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342116929817`*^9, 3.7468342191508007`*^9}, {
  3.7468342522212057`*^9, 3.746834252549163*^9}, {3.7468347408102665`*^9, 
  3.7468347425858717`*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"e649c604-a14d-4f80-8aed-9db225afcb94"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLFt", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "Ft"}], ")"}], " ", "Ft"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "Ft"}], ")"}], " ", "Ft"}]}], 
    "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"5b01b16d-a2d9-445d-ac01-0c2b9b5d817e"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.7468347488376417`*^9, 
  3.7468347488376417`*^9}, {3.7468349543524046`*^9, 
  3.7468349543524046`*^9}},ExpressionUUID->"578ad2d3-cc6a-45d6-9245-\
81ae256a8c36"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLFt", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Expand", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
           "]"}], "[", 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
         RowBox[{"Ft", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", 
     "ByParts"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.746834294400001*^9, 3.746834304445488*^9}, {3.746834340900341*^9, 
  3.746834341524053*^9}, {3.7468347488532305`*^9, 3.7468347488532305`*^9}, {
  3.7468356711648316`*^9, 3.7468356789304123`*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"90f93274-a484-4dfd-9e22-4189fb5845d5"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DLGt", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "Gt"}], ")"}], " ", "Gt"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "Gt"}], ")"}], " ", "Gt"}]}], 
    "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"01cff7e3-9db8-4f21-a8c3-229114e56205"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.74683432248897*^9, 
  3.7468343242884827`*^9}, {3.7468354983065453`*^9, 
  3.7468354997313757`*^9}},ExpressionUUID->"0175b4fc-2f1a-4e13-a8f4-\
d5d494fa55a1"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLGt", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
            "]"}], "[", 
           RowBox[{"Gt", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
       "Expand"}], ")"}], "/.", "ByParts"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.746834294400001*^9, 3.7468343362568207`*^9}, {3.7468355001600695`*^9, 
  3.7468355364573116`*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"e324a847-003b-4ff7-bb6f-8bc7d95d25db"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"DL\[CurlyPhi]", "[", "tt", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], "\[CurlyPhi]"}], ")"}], " ", 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "a", "i"], "\[CurlyPhi]"}], ")"}], " ", 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}]}], "}"}], " "}], 
  TraditionalForm]],ExpressionUUID->"34904c9b-18ac-43e0-bd18-6e6b5a2e0b00"]], \
"Subsubsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 
  3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, {
  3.7468344436380267`*^9, 3.7468344436380267`*^9}, {3.746834719519888*^9, 
  3.7468347261037197`*^9}, {3.7468357510413914`*^9, 
  3.746835753337531*^9}},ExpressionUUID->"c3c7452b-f506-4ac6-a9b0-\
6dbb1d7f009b"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DL\[CurlyPhi]", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}],
         "[", 
        RowBox[{"\[CurlyPhi]", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{"\[CurlyPhi]", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
  3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 
  3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, {
  3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 
  3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, {
  3.746834727196327*^9, 3.746834730539262*^9}, {3.7468357540408125`*^9, 
  3.746835756571534*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"07f429e0-e822-406d-a5e2-61f1b36cf0e2"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "DLBmn[tt] = {2",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], 
      SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]],
  ExpressionUUID->"5c9e9ed8-7d04-4ddf-b55c-f475f618fadf"],
 ", 2",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], 
      SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]],
  ExpressionUUID->"ae817332-20dd-44cc-b117-0b794846a88d"],
 "}"
}], "Subsubsection",
 CellChangeTimes->{{3.746835863631716*^9, 
  3.746835901505658*^9}},ExpressionUUID->"0bb4c753-46bf-4e6c-84e3-\
9a82ada031eb"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLBmn", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
           "]"}], "[", 
          RowBox[{
           RowBox[{"Bmn", "[", 
            RowBox[{"nu", ",", "ap"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Hamnup", "[", 
             RowBox[{"mu", ",", "nu", ",", "ap"}], "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7468359043341513`*^9, 3.746836003715567*^9}, {
   3.746838239532629*^9, 3.7468382399713955`*^9}, 3.746838676566914*^9},
 CellLabel->
  "In[138]:=",ExpressionUUID->"c3ee5ccf-e09c-4d5c-acf1-147c8335c787"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "DLPsit[tt] =  {- ",
 Cell[BoxData[
  RowBox[{"i", " ", 
   SubsuperscriptBox[
    OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "a"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]],
  ExpressionUUID->"05872cc7-6061-446f-81e8-f5fee7991403"],
 ",- ",
 Cell[BoxData[
  RowBox[{"i", " ", 
   SubsuperscriptBox[
    OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{"(", 
     RowBox[{
      FormBox[
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "a", "i"],
       TraditionalForm], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]],
  ExpressionUUID->"7633347d-3de3-4ba3-9da7-17a772a1fd13"],
 "}"
}], "Subsubsection",
 CellChangeTimes->{{3.738597279555539*^9, 3.7385973231010303`*^9}, {
   3.7468350177431993`*^9, 3.7468350873894763`*^9}, 
   3.7468351721050277`*^9},ExpressionUUID->"d32ba746-16e9-4fb6-8d61-\
2c082162c91a"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLPsit", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Table", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"-", " ", "I"}], " ", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
           RowBox[{
            RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"bb", ",", "cc"}], "]"}], "]"}], 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
               "]"}], "[", 
              RowBox[{
               RowBox[{
                RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "cc", "]"}], 
               "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
             RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", 
     "ByParts"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7385972962894964`*^9, 3.738597413817219*^9}, {
  3.74683512604104*^9, 3.7468351428369017`*^9}, {3.746835187850502*^9, 
  3.746835254521659*^9}, {3.746835295755268*^9, 3.746835344941128*^9}, {
  3.746835393459791*^9, 3.74683539494446*^9}, {3.7468358104937954`*^9, 
  3.746835818775408*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"907fefc8-6f57-461b-b31e-b690bbf12ec3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLPsit", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.746835829957114*^9, 3.7468358315412207`*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"407160f4-bc57-45e8-a486-ec130db0424a"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                TemplateBox[{"47"},
                 "OutputSizeLimit`Skeleton"], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"Bmn", "[", 
                    RowBox[{"0", ",", "2"}], "]"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
                   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"Bmn", "[", 
                    RowBox[{"1", ",", "2"}], "]"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
                   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"Bmn", "[", 
                    RowBox[{"0", ",", "3"}], "]"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
                   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"Bmn", "[", 
                    RowBox[{"3", ",", "1"}], "]"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
                   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"Bmn", "[", 
                    RowBox[{"2", ",", "3"}], "]"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
                   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"Bmn", "[", 
                    RowBox[{"2", ",", "3"}], "]"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
                  ")"}], " ", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}],
                   "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
               ")"}]}], ",", 
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "\[ImaginaryI]"}], " ", 
                    RowBox[{
                    SuperscriptBox["Ft", 
                    TagBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"},
                    "OutputSizeLimit`Skeleton"], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    TemplateBox[{"1"},
                    "OutputSizeLimit`Skeleton"]}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    TemplateBox[{"1"},
                    "OutputSizeLimit`Skeleton"]}]}], ")"}], " ", 
                   TemplateBox[{"1"},
                    "OutputSizeLimit`Skeleton"]}], ")"}]}], "+", 
                TemplateBox[{"45"},
                 "OutputSizeLimit`Skeleton"], "+", 
                TemplateBox[{"1"},
                 "OutputSizeLimit`Skeleton"]}], ")"}]}], ",", 
             TemplateBox[{"1"},
              "OutputSizeLimit`Skeleton"], ",", 
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                TemplateBox[{"47"},
                 "OutputSizeLimit`Skeleton"], "+", 
                TemplateBox[{"1"},
                 "OutputSizeLimit`Skeleton"]}], ")"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{99., {5., 14.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{80., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 140, 21725588725017038256, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{93., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 140, 21725588725017038256, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{69., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 140, 21725588725017038256, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{120., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[21725588725017038256 === $SessionID, 
   Out[140], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQA+ILN7o52ljeOH5ITlMC0QVJmzXagXRf9o9mPuE3jstW
rn8LorWuWEvwA2k3t/PhIDrqa1sFiJb5t6wRRG9+YLkSROee2SFX2f3G8dlN
8dcgOq9x03cQ/aBq1pdpPW8cZ9RcaF4OpP/Ufkg+0vfGUUy2OvY0kLbRqVUN
Xf7GcVbZkyWJQFoi2vxpMpCO6TDLbwLSOkbVT9YA6SUeXiW3gHTbn8Q15ave
OLLmTTDs3PTGsdnvzMf72944Rnqy6p3c8cbRoLvmxzkgvZiPQesKkO6blPZM
Zecbx0JWORtdIH1ubth3PSB9j192RSmQZpt2S60KSO9bueF4NZDe1BxoUAOk
T3THFzcA6YyAsv3rgfSZTQcEzwDpiSvcS0H0Csm5S8+B9HsubLkBpJdcUVsA
onPOuz5+B6R1zJhffAXSqxx/bnfa9cYRAGmAxGE=
  "],
 CellLabel->
  "Out[140]=",ExpressionUUID->"405100d1-6914-4747-80dc-6b8d91083a33"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lagrangian invariance", "Subsubsection",
 CellChangeTimes->{{3.5067876981496387`*^9, 3.5067876997717314`*^9}, {
   3.5067877592661343`*^9, 3.5067877700457506`*^9}, {3.5206489898016458`*^9, 
   3.5206490952536774`*^9}, {3.5369392206842885`*^9, 3.536939221879357*^9}, {
   3.5369396151438503`*^9, 3.5369396263204894`*^9}, 3.538533911871493*^9, 
   3.559507947006239*^9, {3.709577070860665*^9, 3.7095770721157365`*^9}, {
   3.746843815578687*^9, 3.7468438204024487`*^9}, 
   3.7474210409756947`*^9},ExpressionUUID->"71ed5a0f-71ef-42b3-ae06-\
87847e578cf3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"DLTotal", "[", "tt", "]"}], "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"DLA", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLB", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLF", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLG", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLd", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLAm", "[", "tt", "]"}], " ", "+", " ", 
       RowBox[{"DLPsi", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLAt", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLBt", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLFt", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLGt", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DL\[CurlyPhi]", "[", "tt", "]"}], " ", "+", 
       RowBox[{"DLBmn", "[", "tt", "]"}], " ", "+", " ", 
       RowBox[{"DLPsit", "[", "tt", "]"}]}], " ", ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.45427044140625*^9, 3.454270558078125*^9}, 
   3.454270650578125*^9, {3.45428999815625*^9, 3.4542900703125*^9}, {
   3.454458830296875*^9, 3.45445884096875*^9}, 3.454940376296875*^9, {
   3.506785522192181*^9, 3.506785526790444*^9}, {3.5369392311728883`*^9, 
   3.5369392376112566`*^9}, {3.5485033703608027`*^9, 
   3.5485033962392826`*^9}, {3.5486477562959433`*^9, 
   3.5486477629383235`*^9}, {3.551712627583896*^9, 3.551712652427317*^9}, {
   3.5517255133411903`*^9, 3.5517255156213207`*^9}, {3.553366509378154*^9, 
   3.553366514439443*^9}, {3.5533953186563516`*^9, 3.5533953252407284`*^9}, {
   3.5595073425756674`*^9, 3.559507387126215*^9}, {3.559507436092016*^9, 
   3.559507445291542*^9}, {3.7095770876246233`*^9, 3.709577095554077*^9}, {
   3.737977011783942*^9, 3.7379770130830164`*^9}, {3.737978072883633*^9, 
   3.7379780740366993`*^9}, 3.7379781053644915`*^9, {3.7379797820413914`*^9, 
   3.7379797855155907`*^9}, {3.7385966828124075`*^9, 3.73859670156148*^9}, {
   3.73859728690296*^9, 3.7385972937383504`*^9}, {3.7385974545885506`*^9, 
   3.7385974555306044`*^9}, 3.7391007116602974`*^9, {3.7422205802424297`*^9, 
   3.742220581342843*^9}, {3.7468318682702103`*^9, 3.7468319711287336`*^9}, {
   3.7468347488532305`*^9, 3.7468347488532305`*^9}, {3.746834784202216*^9, 
   3.7468347895354424`*^9}, {3.746836276935848*^9, 3.7468362843054657`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"e84cde01-0689-451e-8f34-5b185d186f37"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLTotal", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.746836269353221*^9, 3.7468362985271664`*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"d6d2cf16-1c70-4106-ab80-c00086d5bba3"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             TemplateBox[{"1"},
              "OutputSizeLimit`Skeleton"], ",", 
             TemplateBox[{"1"},
              "OutputSizeLimit`Skeleton"], ",", 
             TemplateBox[{"1"},
              "OutputSizeLimit`Skeleton"], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 SuperscriptBox["d", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
               RowBox[{
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Am", "[", "2", "]"}], 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Am", "[", "3", "]"}], 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}],
                " ", 
               RowBox[{
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"Am", "[", "1", "]"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
                 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Am", "[", "2", "]"}], 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}],
                " ", 
               RowBox[{
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              TemplateBox[{"83"},
               "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"], " ", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]}], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["At", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
                 RowBox[{
                  SuperscriptBox["At", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
                 RowBox[{
                  SuperscriptBox["At", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
                 RowBox[{
                  SuperscriptBox["At", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}],
                " ", 
               RowBox[{
                RowBox[{
                 RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], 
                "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"(", 
                TemplateBox[{"1"},
                 "OutputSizeLimit`Skeleton"], ")"}]}]}]}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{99., {5., 14.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{80., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 142, 21725588725017038256, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{93., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 142, 21725588725017038256, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{69., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 142, 21725588725017038256, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{120., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[21725588725017038256 === $SessionID, 
   Out[142], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQA+Ii/ckcbSxvHEMkc5VA9BHNXRrtQNpDmbmFT/iNY2bw
jrcges80Nwl+IC3ldjMcRLNs768A0Vw71jWC6AmGjitB9CHpA3KV3W8c/wkr
vgbRF6bs+Q6io0QWfZnW88ZR5dn15uVAmuPv9+QjfW8cTZY0x54G0qtXt6mG
Ln/jKGP8dkkikN5Wbvc0GUhfbLfPbwLSM2RanqwB0loeQSW3gPRPu9w15ave
ODa/nWHYuemNo1nk5Y/3t71xvMUmqHdyxxvHgM7mH+eAdFQfh9YVIP1LsOCZ
ys43jg9a1G10gTTbyYTvekB6Opf6ilIgvY3vqVoVkC5N2Xm8Gki/XRRtUAOk
VT6lFTcAab/ptfvXA2m9bccFzwDpSWwBpSCa3X/Z0nNA2qx4ScsNIJ0Wo78A
RL845/v4HZBedZ/rxVcg7SPGtMNp1xtHACMSvzE=
  "],
 CellLabel->
  "Out[142]=",ExpressionUUID->"9a1a90dc-e49f-41a4-a34b-60bd97f7eb20"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]], "Input",
 CellChangeTimes->{{3.7474916702524204`*^9, 3.747491675001278*^9}, {
  3.7474919052505856`*^9, 3.7474919420892987`*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"d88dbb22-38ed-435b-856d-b1d648343dd3"],

Cell[BoxData["1092"], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQA2IlzSkcbSxvHFc8yVcC0YtW7tJoB9Jv7jO38Am/cVQ/
s+MtiK5b4CPBD6R/8d0KB9EqfRMqQLQA8/pGEN1b47gSRFvJH5Sr7H7jKHVC
8TWI3uN04DuInvF90ZdpPW8cC0RuNi8H0h5/fyQf6Xvj6PaiNfY0kJ6zul01
dPkbxxNxn5YkAmm2jXZPk4H05nbH/CYgfb6t5ckaIP3meFDJLSC9Pjh/Tfmq
N44bcmcZdm4Cum/u5Y/3t71xTPsqpHdyxxtHuTPNP84BaS4+Lq0rQPrXxMJn
KjuBfFZNG10gLcib+F0PSDd1aawoBdJz+p6pVQFpvZRdx6uBdJxarEENkA4w
Sy9uANLV+vX71wPpK7+OC54B0s/sAkpB9JK5y5aeA9LLTy9puQGkLZMMF4Do
q+f8Hr8D0mviuV98BdKh+sw7nHa9cQQADBXD2Q==
  "],
 CellLabel->
  "Out[143]=",ExpressionUUID->"bcd5d44e-b134-446f-aba1-25d6466f5222"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DLFinal", "[", "tt", "]"}], " ", "=", " ", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{"DLTotal", "[", "tt", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "_", "]"}], "[", "_", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]t", "[", "_", "]"}], "[", "_", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"A", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"B", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["F", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["G", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"G", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Am", "[", "_", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         RowBox[{"Am", "[", "_", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["d", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"d", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["At", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"At", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["Bt", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"Bt", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["Ft", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"Ft", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["Gt", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"Gt", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["\[CurlyPhi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CurlyPhi]", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Bmn", "[", 
           RowBox[{"_", ",", "_"}], "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{
         RowBox[{"Bmn", "[", 
          RowBox[{"_", ",", "_"}], "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", 
      "Simplify"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5486031894031253`*^9, 3.548603246061366*^9}, {
   3.5486477185457845`*^9, 3.5486477207099085`*^9}, {3.5486477693896923`*^9, 
   3.548647816679397*^9}, {3.548648762317485*^9, 3.5486487660216966`*^9}, {
   3.548648892678941*^9, 3.5486489290750227`*^9}, {3.5486490757914143`*^9, 
   3.548649079890649*^9}, {3.5508456492171373`*^9, 3.550845654976972*^9}, {
   3.550845866353086*^9, 3.550845900248698*^9}, {3.550845984097158*^9, 
   3.5508459947455683`*^9}, {3.5517221996034575`*^9, 3.55172235997763*^9}, 
   3.551722652706373*^9, {3.5517258080390463`*^9, 3.5517258190696774`*^9}, {
   3.5523165181227307`*^9, 3.552316519793826*^9}, 3.5533665363856983`*^9, {
   3.553367027952814*^9, 3.553367031744031*^9}, {3.559507466526757*^9, 
   3.5595074916691947`*^9}, {3.55950752865231*^9, 3.559507547507388*^9}, {
   3.5595075974182434`*^9, 3.5595075988043222`*^9}, {3.709577107980788*^9, 
   3.7095771101409116`*^9}, {3.711859827010425*^9, 3.711859830749639*^9}, {
   3.7118598618634186`*^9, 3.7118598634705105`*^9}, 3.7118610889336033`*^9, {
   3.711904172582798*^9, 3.7119041743388987`*^9}, {3.7385974742296743`*^9, 
   3.73859754742286*^9}, {3.7468319955757027`*^9, 3.7468320148227177`*^9}, {
   3.7468347488532305`*^9, 3.7468347488532305`*^9}, {3.746834797909934*^9, 
   3.7468348090835834`*^9}, {3.7468363133812723`*^9, 3.74683638481828*^9}, {
   3.7468369217123685`*^9, 3.746837005675399*^9}, 3.7474911926690598`*^9, {
   3.7474916417300153`*^9, 3.747491648061041*^9}, {3.747491721987088*^9, 
   3.747491726753625*^9}, 3.7474918878476315`*^9, {3.747491973148552*^9, 
   3.747491975969486*^9}, {3.760468124382265*^9, 3.7604681320024223`*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"7b9bee9a-8bf9-4f9d-8b73-6e1e5788b6fb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Lagrangian invariance: untilded DLFinal[1]", "Subsubsection",
 CellChangeTimes->{{3.5067876981496387`*^9, 3.5067876997717314`*^9}, {
   3.5067877592661343`*^9, 3.5067877700457506`*^9}, {3.5206489898016458`*^9, 
   3.5206490952536774`*^9}, {3.5369392206842885`*^9, 3.536939221879357*^9}, {
   3.5369396151438503`*^9, 3.5369396263204894`*^9}, 3.538533911871493*^9, 
   3.559507947006239*^9, {3.709577070860665*^9, 3.7095770721157365`*^9}, {
   3.746843815578687*^9, 3.7468438204024487`*^9}, {3.7474210409756947`*^9, 
   3.7474210616067142`*^9}},ExpressionUUID->"33425071-1811-4634-93fd-\
12913cab1c61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLFinal", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7468370117740946`*^9, 3.7468370309574337`*^9}, {
   3.746837080764648*^9, 3.7468370912951527`*^9}, 3.746838715879922*^9, {
   3.760468146753761*^9, 3.760468149137547*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"d0694aa5-7071-4aea-8f42-5b30b95a2724"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.76046813786259*^9, 3.760468149893775*^9}, 
   3.76046824429965*^9, 3.7604703426863365`*^9, 3.768087585053627*^9, 
   3.768088430744478*^9, 3.768088771256959*^9, 3.768089279807446*^9, 
   3.768089541144189*^9, 3.768089614162787*^9, 3.7680899308303633`*^9, 
   3.8312204706302557`*^9, 3.83122210528606*^9, 3.8312222064235272`*^9, 
   3.8318058613153267`*^9, 3.831839775001465*^9, 3.8329474879839573`*^9, 
   3.8329617724072514`*^9, 3.8458268605980463`*^9, 3.845852455836359*^9, 
   3.845857066200634*^9, 3.8459196102821603`*^9, 3.84600656435437*^9, 
   3.846099874852504*^9, 3.847470435713289*^9, 3.8517006210545745`*^9, 
   3.853975438836431*^9, 3.854977392921816*^9, 3.854989252341956*^9, 
   3.85499988855871*^9, 3.855165235791237*^9, 3.8551823055786724`*^9, 
   3.85518585126702*^9, 3.8553306255016327`*^9, 3.8553398314620557`*^9, 
   3.85534316608113*^9, 3.8553440031533747`*^9, 3.8553527314617767`*^9, 
   3.8554495962196817`*^9, 3.855507598475178*^9, 3.855508394742114*^9, 
   3.855512877463917*^9, 3.855533093249065*^9, 3.855533313798881*^9, 
   3.855578906698771*^9, 3.8555932805910654`*^9, 3.8557505923203397`*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"712c1619-7d73-46a6-8346-f83d2b8f924d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lagrangian Invariance: tilded", "Subsubsection",
 CellChangeTimes->{{3.5067876981496387`*^9, 3.5067876997717314`*^9}, {
   3.5067877592661343`*^9, 3.5067877700457506`*^9}, {3.5206489898016458`*^9, 
   3.5206490952536774`*^9}, {3.5369392206842885`*^9, 3.536939221879357*^9}, {
   3.5369396151438503`*^9, 3.5369396263204894`*^9}, 3.538533911871493*^9, 
   3.559507947006239*^9, {3.709577070860665*^9, 3.7095770721157365`*^9}, {
   3.746843815578687*^9, 3.746843837798028*^9}, {3.748967594262095*^9, 
   3.748967618196615*^9}},ExpressionUUID->"b2eb0a4e-fff2-4300-a916-\
2875407ee3ce"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLFinal", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.747421481965914*^9, 3.7474214886060715`*^9}, 
   3.831222210432433*^9},
 CellLabel->
  "In[146]:=",ExpressionUUID->"b3367e58-d93c-48b5-8bf5-528187d3f38e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7604682459867887`*^9, 3.7604703443541365`*^9, 3.7680875877989693`*^9, 
   3.768088432931315*^9, 3.7680887740077343`*^9, 3.768089282253484*^9, 
   3.76808954337007*^9, 3.768089616304385*^9, 3.768089932984449*^9, 
   3.8312204745207453`*^9, 3.8312221055828037`*^9, {3.831222206521822*^9, 
   3.831222211140337*^9}, 3.8318058613392563`*^9, 3.831839775039796*^9, 
   3.8329474880151997`*^9, 3.832961772445325*^9, 3.845826860649328*^9, 
   3.845852455843237*^9, 3.845857066235281*^9, 3.845919610329031*^9, 
   3.8460065643663564`*^9, 3.846099874868097*^9, 3.8474704357593584`*^9, 
   3.8517006211014376`*^9, 3.853975438874268*^9, 3.8549773929843254`*^9, 
   3.854989252379813*^9, 3.8549998885899143`*^9, 3.8551652358383813`*^9, 
   3.8551823056255035`*^9, 3.855185851299718*^9, 3.8553306255485287`*^9, 
   3.855339831508933*^9, 3.855343166096719*^9, 3.855344003200235*^9, 
   3.855352731494627*^9, 3.855449596253644*^9, 3.8555075985026493`*^9, 
   3.855508394770714*^9, 3.8555128774946632`*^9, 3.855533093349165*^9, 
   3.855533313849978*^9, 3.8555789067300024`*^9, 3.855593280606693*^9, 
   3.8557505923515515`*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"1d64d101-68eb-44bc-ae8e-a2b816c17899"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lagrangian Summary", "Chapter",
 CellChangeTimes->{{3.7489697452702417`*^9, 3.7489697482479353`*^9}, 
   3.748969821491645*^9},ExpressionUUID->"84b247f4-ee56-4274-bd15-\
8ccd45286fee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DLFinal", "[", "1", "]"}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{"DLFinal", "[", "2", "]"}], ")"}], "\[Equal]", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7468370117740946`*^9, 3.7468370309574337`*^9}, {
   3.746837080764648*^9, 3.7468370912951527`*^9}, 3.746838715879922*^9, {
   3.74896976712537*^9, 3.748969795572439*^9}, {3.751566823779099*^9, 
   3.7515668240738*^9}, {3.768089657515958*^9, 3.768089659652663*^9}, {
   3.7680897184994802`*^9, 3.768089726036274*^9}, {3.768089854391481*^9, 
   3.768089863759891*^9}, 3.831220462068125*^9, 3.831222217073144*^9},
 CellLabel->
  "In[147]:=",ExpressionUUID->"4a157cc0-e04f-4db8-a2af-ba7f381ab312"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.7515668202182703`*^9, 3.751566824586629*^9}, 
   3.751727184072296*^9, 3.7517340943408422`*^9, 3.751737166375222*^9, 
   3.7522501460782623`*^9, 3.752256219324288*^9, 3.7522656152907343`*^9, 
   3.7523217112264442`*^9, 3.752324517668083*^9, 3.7524081665194683`*^9, 
   3.7524944959274807`*^9, 3.752496700727517*^9, 3.7524995161850996`*^9, 
   3.752536553049499*^9, 3.752537932474958*^9, 3.7675392315201807`*^9, 
   3.767629279885046*^9, 3.768069028150625*^9, 3.768089936092293*^9, 
   3.8312204746275067`*^9, 3.831222105848093*^9, 3.8312222206737394`*^9, 
   3.8318058613611975`*^9, 3.8318397750747027`*^9, 3.8329474880151997`*^9, 
   3.8329617724795275`*^9, 3.845826860680576*^9, 3.845852455865924*^9, 
   3.8458570662425747`*^9, 3.845919610411084*^9, 3.8460065643733377`*^9, 
   3.8460998748837357`*^9, 3.847470435806225*^9, 3.8517006211483335`*^9, 
   3.8539754388801603`*^9, 3.854977393046811*^9, 3.854989252385585*^9, 
   3.8549998886368103`*^9, 3.855165235869625*^9, 3.8551823056723766`*^9, 
   3.855185851305614*^9, 3.855330625610989*^9, 3.8553398315714464`*^9, 
   3.8553431661123533`*^9, 3.85534400324413*^9, 3.855352731503418*^9, 
   3.855449596259624*^9, 3.85550759851068*^9, 3.855508394777492*^9, 
   3.8555128786854057`*^9, 3.855533093457882*^9, 3.855533313863731*^9, 
   3.8555789067456074`*^9, 3.855593280606693*^9, 3.8557505923984475`*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"707b2c47-856b-4ece-a475-bc956a7d1088"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Holoraumy", "Chapter",
 CellChangeTimes->{{3.768087629815304*^9, 
  3.7680876325140944`*^9}},ExpressionUUID->"1d8ef46d-9108-4988-893f-\
124c9eb91e3b"],

Cell[CellGroupData[{

Cell[TextData[{
 "Holoraumy ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox["D", "a", "i"], ",", 
     SubsuperscriptBox["D", "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"802bd518-e28c-4727-b17d-67ae7cf0f367"],
 " "
}], "Section",
 CellChangeTimes->{{3.746831725880522*^9, 3.746831726815978*^9}, {
   3.747484799938679*^9, 3.747484810026211*^9}, {3.749400068041915*^9, 
   3.749400077475848*^9}, {3.751566860960198*^9, 3.751566870113977*^9}, {
   3.767539264186421*^9, 3.767539275420515*^9}, 
   3.767630407991788*^9},ExpressionUUID->"49f4e60a-1458-4862-b69c-\
34bd19ad322f"],

Cell[CellGroupData[{

Cell["DD", "Subsection",
 CellChangeTimes->{{3.7308122301647825`*^9, 3.7308122628657265`*^9}, 
   3.731162255630625*^9},ExpressionUUID->"c1c4e56f-5b25-441f-9fd8-\
7ab145d549b4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SUSYTransformFields", "[", "Operator_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FieldList", "[", 
      RowBox[{"[", "FieldIndex", "]"}], "]"}], "\[Rule]", 
     RowBox[{"Operator", "[", 
      RowBox[{"FieldList", "[", 
       RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"FieldIndex", ",", "1", ",", 
      RowBox[{"Length", "[", "FieldList", "]"}]}], "}"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.73163077582885*^9, 3.7316307863152466`*^9}, {
  3.7316310047349997`*^9, 3.731631006157134*^9}, {3.7316310576169453`*^9, 
  3.7316310811664886`*^9}, {3.731631162459132*^9, 3.7316311655688095`*^9}, {
  3.7316312115596952`*^9, 3.7316312122785935`*^9}, {3.7316312737246857`*^9, 
  3.7316312835694857`*^9}, {3.7468347488688517`*^9, 3.7468347488688517`*^9}, {
  3.7468348138789315`*^9, 3.746834819742332*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"8048423e-0fc4-4825-b264-416e5853107b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SUSYTransformJustB", "[", "Operator_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FieldList", "[", 
      RowBox[{"[", "FieldIndex", "]"}], "]"}], "\[Rule]", 
     RowBox[{"Operator", "[", 
      RowBox[{"FieldList", "[", 
       RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"FieldIndex", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.737977589831004*^9, 3.7379776211947985`*^9}, {
  3.7379778794295683`*^9, 3.7379778794755707`*^9}, {3.7468347488688517`*^9, 
  3.7468347488688517`*^9}, {3.7468348206347437`*^9, 3.7468348230502777`*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"19122f13-022f-484f-a248-be42552a0e3e"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SUSYTransform", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
     "]"}], " ", "=", " ", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"SUSYTransformFields", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], 
       "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
          "]"}], "]"}], ",", "t"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
          "]"}], "]"}], ",", "x"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
          "]"}], "]"}], ",", "y"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", 
          "]"}], "]"}], ",", "z"}], "]"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tt", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7316312511900773`*^9, 3.73163130008272*^9}, {
   3.731631344322698*^9, 3.7316313603565207`*^9}, {3.737164630292021*^9, 
   3.7371646368411665`*^9}, {3.7378177847175355`*^9, 
   3.7378178743956647`*^9}, {3.7378180399131317`*^9, 
   3.7378181686244936`*^9}, {3.7378183040052366`*^9, 
   3.7378183290146675`*^9}, {3.7379150778530035`*^9, 3.737915156950527*^9}, {
   3.7379775135876436`*^9, 3.737977516081786*^9}, {3.737977639111823*^9, 
   3.7379776821352835`*^9}, {3.7467923123961535`*^9, 
   3.7467923131571245`*^9}, {3.7467929973395042`*^9, 
   3.7467930409880095`*^9}, {3.74679441639699*^9, 3.7467944315313272`*^9}, {
   3.7468072496760235`*^9, 3.7468072712489595`*^9}, {3.7468347488688517`*^9, 
   3.74683474888448*^9}, {3.7468348245200787`*^9, 3.7468348288163815`*^9}, {
   3.747486407562873*^9, 3.747486443162782*^9}, 3.751395239017105*^9, {
   3.8318217040961156`*^9, 3.8318217063533297`*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"c464cb75-4b9a-4d89-96c6-3c4757ad5d3f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DD", "[", 
    RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", 
   "]"}], ":=", 
  RowBox[{
   RowBox[{"RightOperator", "[", "Field", "]"}], "/.", 
   RowBox[{"SUSYTransform", "[", "LeftOperator", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.73163149613336*^9, 3.73163156604972*^9}, {
  3.7316317148186707`*^9, 3.7316317149435616`*^9}, {3.74683474888448*^9, 
  3.74683474888448*^9}, {3.746834830114916*^9, 3.7468348317756753`*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"e6081ac7-3e76-4efa-b374-ee56b50dcba9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AlgebraDDTerms", "[", 
    RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", 
   "]"}], ":=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"LeftOperator", ",", "RightOperator"}], "]"}], "[", "Field", 
    "]"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"RightOperator", ",", "LeftOperator"}], "]"}], "[", "Field", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.731631998334331*^9, 3.731632038105353*^9}, {
   3.73163219706538*^9, 3.731632198143784*^9}, 3.7467957549741755`*^9, {
   3.74683474888448*^9, 3.74683474888448*^9}, {3.7468348326658783`*^9, 
   3.7468348341917543`*^9}, 3.767539411074808*^9, {3.767629702290913*^9, 
   3.767629703200893*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"27aac183-4346-482c-a49b-fdc459fa6a84"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AlgebraDD", "[", 
    RowBox[{"ttl_", ",", "ttr_"}], "]"}], "[", "Field_", "]"}], " ", ":=", 
  " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"AlgebraDDTerms", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Dia", "[", "ttl", "]"}], "[", "ii", "]"}], "[", "aa", "]"}],
        ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dia", "[", "ttr", "]"}], "[", "jj", "]"}], "[", "bb", 
        "]"}]}], "]"}], "[", "Field", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Convention", " ", "is", " ", "left", " ", "D", " ", "upper", " ", 
     "index"}], ",", " ", 
    RowBox[{"left", " ", "D", " ", "lower", " ", "index"}], ",", " ", 
    RowBox[{"right", " ", "D", " ", "upper", " ", "index"}], ",", " ", 
    RowBox[{"right", " ", "D", " ", "lower", " ", "index"}]}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.7371651794635396`*^9, 3.7371652120755053`*^9}, 
   3.74679305350698*^9, {3.7467932064359465`*^9, 3.746793225682712*^9}, {
   3.7467954617802973`*^9, 3.746795495723437*^9}, 3.7467957612333603`*^9, 
   3.7467958034604874`*^9, {3.7468070673325195`*^9, 3.746807092855509*^9}, {
   3.74683474888448*^9, 3.74683474888448*^9}, {3.74683483504224*^9, 
   3.7468348357753468`*^9}, {3.767539411255109*^9, 3.7675394116004667`*^9}, {
   3.767629706631041*^9, 3.7676297075684433`*^9}, {3.832961292922825*^9, 
   3.8329613191938696`*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"5c2e8330-954c-4247-a4dc-a0f40f6f428d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDTerms", "[", 
    RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", 
   "]"}], ":=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"LeftOperator", ",", "RightOperator"}], "]"}], "[", "Field", 
    "]"}], " ", "-", " ", 
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"RightOperator", ",", "LeftOperator"}], "]"}], "[", "Field", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.73163208190874*^9, 3.731632106083152*^9}, 
   3.7467957634027576`*^9, {3.74683474888448*^9, 3.74683474888448*^9}, {
   3.746834836583665*^9, 3.746834837800394*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"e9a83383-e918-43c8-a674-a28bd1d8ab56"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDD", "[", 
    RowBox[{"ttl_", ",", "ttr_"}], "]"}], "[", "Field_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDTerms", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Dia", "[", "ttl", "]"}], "[", "ii", "]"}], "[", "aa", "]"}],
        ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dia", "[", "ttr", "]"}], "[", "jj", "]"}], "[", "bb", 
        "]"}]}], "]"}], "[", "Field", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.742225289456066*^9, 3.74222531191052*^9}, {
   3.7467930547097673`*^9, 3.7467930857543683`*^9}, {3.7467931254668207`*^9, 
   3.746793125506708*^9}, 3.746795767960672*^9, 3.746795804190172*^9, {
   3.7468071163587976`*^9, 3.7468071267130146`*^9}, {3.7468347489001255`*^9, 
   3.7468347489001255`*^9}, {3.746834838635146*^9, 3.7468348395134706`*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"ba2c998e-7cf3-45e7-9287-9ab1079b8d90"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ClosureTerms", "[", 
     RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
    RowBox[{"aa_", ",", "bb_"}], "]"}], "[", "Field_", "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"2", " ", "I", " ", 
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"ii", ",", "jj"}], "]"}], 
     RowBox[{
      RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
     RowBox[{"D", "[", 
      RowBox[{"Field", ",", 
       RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.730807214417533*^9, 3.730807331182398*^9}, {
  3.7308074030266314`*^9, 3.7308074197801876`*^9}, {3.7308075808302245`*^9, 
  3.7308076139482484`*^9}, {3.7311621764190855`*^9, 3.731162176850258*^9}, {
  3.731606137574524*^9, 3.7316061481783457`*^9}, {3.7371646510922794`*^9, 
  3.7371646525301905`*^9}, {3.7371649720973473`*^9, 3.7371649806451817`*^9}, {
  3.737165124894317*^9, 3.7371651456635303`*^9}, {3.7371652459852505`*^9, 
  3.737165258017502*^9}, {3.7371660194119587`*^9, 3.7371660208653927`*^9}, {
  3.7379145580492725`*^9, 3.737914585006814*^9}, {3.7379155040703816`*^9, 
  3.7379155065685244`*^9}, {3.7467930919155087`*^9, 3.7467931216905055`*^9}, {
  3.7467958187717485`*^9, 3.7467958192030635`*^9}, {3.7468347489001255`*^9, 
  3.7468347489001255`*^9}, {3.746834840315051*^9, 3.7468348410650005`*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"22907a85-64fe-448f-9d0d-ee4dba7c67d6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Closure", "[", "Field_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ClosureTerms", "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "[", "Field", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.737914721265608*^9, 3.7379147450069656`*^9}, {
  3.737915477761877*^9, 3.7379154839432306`*^9}, {3.746793132307049*^9, 
  3.746793137090722*^9}, {3.7467931772354884`*^9, 3.7467931884903183`*^9}, {
  3.7467954368361535`*^9, 3.746795451338724*^9}, {3.746795815715252*^9, 
  3.746795822315354*^9}, {3.7468347489001255`*^9, 3.7468347489001255`*^9}, {
  3.746834842232836*^9, 3.7468348430293913`*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"a8e95eaf-95a1-4b39-a902-712a12f84b45"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Zeros", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.747492646523921*^9, 3.7474926623698654`*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"6ef83dbe-e3cf-4a0e-9314-ab418cad60d8"],

Cell[CellGroupData[{

Cell["Test it out", "Subsubsection",
 CellChangeTimes->{{3.7467952717303915`*^9, 
  3.7467952734741063`*^9}},ExpressionUUID->"db4d44bb-da08-4e1f-8db1-\
a7ec7eb3fa45"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HoloraumyDD", "[", 
   RowBox[{"1", ",", "1"}], "]"}], "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.751568236881955*^9, 3.751568255777894*^9}, {
  3.7515683466042833`*^9, 3.751568364977194*^9}, {3.7515686348028727`*^9, 
  3.751568635294387*^9}, {3.767539411935585*^9, 3.7675394439354677`*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"cb6915d4-bf38-4387-b1be-127342e0e774"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", "0", ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", "0", ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", "0", ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", "0", ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
              "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
            "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}],
           "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}],
            "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", 
             "]"}], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
           "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7515682568200274`*^9, {3.7515683488687162`*^9, 3.7515683670035963`*^9}, 
   3.751568636375018*^9, 3.751727184352833*^9, 3.751734094679368*^9, 
   3.751737166721499*^9, 3.752250146356535*^9, 3.752256219637574*^9, 
   3.752265615594192*^9, 3.752321711520727*^9, 3.7523245179815936`*^9, 
   3.7524081668362803`*^9, 3.7524944962389917`*^9, 3.752496701009822*^9, 
   3.752499516504815*^9, 3.752536553336678*^9, 3.752537932781068*^9, 
   3.767539281311801*^9, 3.7675394448858843`*^9, 3.767629280367193*^9, 
   3.767629723116662*^9, 3.768069028885949*^9, 3.768089969484497*^9, 
   3.831220495443799*^9, 3.831222242575528*^9, 3.831805883931652*^9, 
   3.831822058401372*^9, 3.8318397753750706`*^9, 3.83294748833475*^9, 
   3.832961772836813*^9, 3.8458268611148825`*^9, 3.8458524560591288`*^9, 
   3.845857066424234*^9, 3.8459196108093166`*^9, 3.8460065646597967`*^9, 
   3.846099875188114*^9, 3.847470436369729*^9, 3.851700621492326*^9, 
   3.853975439089678*^9, 3.854977393484185*^9, 3.854989252634406*^9, 
   3.8549998889698777`*^9, 3.8551652363299413`*^9, 3.8551823061020613`*^9, 
   3.855185851541357*^9, 3.8553306261136036`*^9, 3.855339831961964*^9, 
   3.8553431664716654`*^9, 3.8553440036148453`*^9, 3.855352731723001*^9, 
   3.855449596491303*^9, 3.855507598716797*^9, 3.8555083949595137`*^9, 
   3.855512882405744*^9, 3.855533093786786*^9, 3.855533314061509*^9, 
   3.8555789071846704`*^9, 3.855593280860131*^9, 3.8557505927421083`*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"b8fb705e-9cc7-4fe4-9a94-11ca7a826cc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Closure", "[", 
  RowBox[{"A", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7467950450708027`*^9, 3.746795049363615*^9}, 
   3.746795850748537*^9},
 CellLabel->
  "In[160]:=",ExpressionUUID->"089e572a-bbe0-4650-bf15-f55235566e99"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", 
         ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", 
         ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", 
         ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", 
         ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["A", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}],
       "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwBGIGLasbNp9fOx4RWXS4G0i/6+HlugWk14TfzLwLpM+0
3Xp5D0jrXPdNufnltWPU7rLoO0Dae+/Xjw+A9LmVn0P/AGm7zANb/gLps063
e9S+vnY8vpRjSwCQ3uu78HggkGaLnqQeDKQ1durYpgLpXZ9nvQTRHju0TjEJ
vXE8ZsyzRw9I17mlfQbRvVKLSliF3zj2ZVus4wfS8RkfFCu73zhOuBryB0QH
z6z/Pq3njePn63535wHpY1veNi8H8cN4Uo70vXFUuTon9jSQ/r9mqWro8jeO
K44xLU0E0nFn/Z4mA2mhZ9H5TUA60nvakzVA+nlLesktIL3ySu+a8lVvHKMP
bjTs3PTGcaHnk4/3t71xdKgz0ju5443jnO1Tf5wD0s9mKmhdAdJn+nqeqex8
4/jN2dVGF0i/ri/6rgekG5TcVpQCaa8TjOpVQPqI+IXj1UBaLarMoAZI/0uo
KG4A0tf4Ju5fD6QPM94QPAOkhXbFl4JoRlW/ZeeAdKXX7pYbIPV8zgtAdNWL
9MfvgPSueTIvvgJpp/2SO5x2vXEEAEIbBKI=
  "],
 CellLabel->
  "Out[160]=",ExpressionUUID->"0b0e5382-e310-46e1-9078-f3f35f3089d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HoloraumyDD", "[", 
   RowBox[{"1", ",", "1"}], "]"}], "[", 
  RowBox[{"A", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.746795052214951*^9, 3.7467950572912045`*^9}, 
   3.7467958535001483`*^9, 3.7468071501072993`*^9, {3.7474868166118155`*^9, 
   3.7474868196663713`*^9}, {3.75140524027054*^9, 3.751405241470517*^9}, 
   3.767539412210328*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"88a79505-8a21-411d-8df5-09aef013d43b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", 
         ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", 
         ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", 
         ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", 
         ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"d", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "2", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}],
          ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "1", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "0", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Am", "[", "0", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Am", "[", "3", "]"}], 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
            ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
           RowBox[{"G", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"F", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
         "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwBOKIz3Y3bD6/dvx2eOnhbiDdNJuf6xaQDpK9m3kXSLv4
3nt5D0j/6QpIufnltSNXSWX0HSDd5P3j4wMg3ZLwLfQPkDaQOrTlL5A+4nSn
R+3ra8cnH7i2BADpdV6LjgcC6VP2k9WDgXT7eT3bVCDNoTD3JYiWmaVzikno
jeON1YJ79IC0g0nmZxA9oW9lCavwG8dFFXbr+IH0OvdvipXdQHXNUX9AtIBP
6/dpPW8cZ4WH3J0HpDN+fG5eDqSPWgimHOl742j0YmHsaSC9vXG1aujyN45i
F1mWJgLp7TMCniYD6bbNiflNQHpf3uwna4D0JJbckltAWmLilDXlq9442lzZ
bti56Y2j1KLnH+9ve+Nowmild3LHG0cZ5Rk/zgHpAzPVtK4A6XvPJz1T2fnG
8VmEj40ukL75s+S7HpAOeuOzohRIXzjOoV4FpOOmXzteDaQVF9cY1ADppDdV
xQ1A2mH95P3rgTRb6y3BM0BaanpiKYj26gtYdg5Il73f13IDSAsdcFkAoiNe
5D5+B6QT5im++Aqkvx2T3+G0640jAGZXAyU=
  "],
 CellLabel->
  "Out[161]=",ExpressionUUID->"ba1a1a68-b9be-42ab-bd8f-11e35d77b0ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ClosureTerms", "[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "[", 
     RowBox[{"aa", ",", "bb"}], "]"}], "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "kk", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"kk", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.730807563261525*^9, 3.7308075648818583`*^9}, {
  3.731162203432887*^9, 3.7311622145514655`*^9}, {3.73116262807957*^9, 
  3.731162636318469*^9}, {3.7316057578588743`*^9, 3.7316057585991187`*^9}, {
  3.7316061552178035`*^9, 3.7316061686856403`*^9}, {3.737165004444684*^9, 
  3.737165007788499*^9}, {3.73716515302348*^9, 3.7371651582582507`*^9}, {
  3.737166026709774*^9, 3.737166027584793*^9}, {3.7379145974845276`*^9, 
  3.7379145994926424`*^9}, {3.7379155245055504`*^9, 3.7379155317829666`*^9}, {
  3.738583927126784*^9, 3.738583928061837*^9}, {3.7467931402745256`*^9, 
  3.74679315017838*^9}, {3.7467933158121614`*^9, 3.746793366187093*^9}, {
  3.746795030973838*^9, 3.746795031467517*^9}, {3.746795520092596*^9, 
  3.7467955218675566`*^9}, {3.746795858422198*^9, 3.746795858827448*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"b64e1c4b-51b1-43d2-bd90-6b7011575516"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{"2", " ", "\[ImaginaryI]", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
            "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGCwBGK2KS43bD6/drQpX3m4G0hv/CnEdQtIJ+k8zLwLpDkY
Hr28B6Tzvgan3Pzy2vEIR230HSA9we7PxwdA2qv2T+gfIC3z7fiWv0A6zulR
j9rX145nPghsCQDSih+XHw8E0gynZ6oHA+l7PEa2qUD6U9L8lyD6z3aDU0xC
bxy3vBbdowekhTxyPoPozGsbSliF3zie2Oqyjh9I94n9U6zsfuM46V/iHxDN
pdz7fVrPG0et8Oi784C0Ht/v5uVA2mmHZMqRvjeOLmtWxJ4G0tKNW1VDl79x
jD3MvjQRSG+fGfQ0GUg/MMvJbwLSB+QXP1kDpCVYSktuAek9P+esKV/1xnF9
8EHDzk1vHM1Wv/p4f9sbR6vfznond7xxDBKf/eMckHabqad1BUhPez77mcrO
N44pN0JsdIF0QErFdz0gfSE7dEUpiO8uqF4FpI+cUjtRDaQXFbYa1ABpKd/6
4gYg7as/ff96IL2m/57gGSDdezm5FESLrQ1edg5ILzE+1HIDSPd8dlsAoi+7
lT9+B6QZ5mm8+Aqk1fvVdzjteuMIAOYVAB0=
  "],
 CellLabel->
  "Out[162]=",ExpressionUUID->"6898c260-9b63-4390-8809-b1ff23aeb281"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "To be used in writing holoraumy, \ncV[x][i,j,k,l] :=",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdwFEca7znA5CgQIiMRdCTjQDiiyUJkhMhgk0E6jAARhAWYjLBlDCKJ
YDICGQSIIKAQ3BHF2VwZOJIpEa+MDZThXPhcts93te/31OWtfTuzs7Mzs7uS
Xv+rTMm7sz3dX3/h/3UMGTOl/4SCBQoUmF6Mf/qPjusYGzv6g8hy/M/AmOnR
E2PGj+seM2P8xPGxLccU4sM/8V85/vi/f9skJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkchN++umnJ0+e+LsWEhISEhISEhK5Eb/99tu+ffvq1av3
2muvjR8//p///Ke/ayQhISEhISEhkYtw6dKl9u3bFyxYsFOnTpCl8uXLlytX
bunSpa9evfJ31SQkJCQkJCQk/Ix79+6NGDGiZMmSw4YN+/vf/y4+fPny5aef
fhocHFynTp2UlJRff/3Vv5WUkJCQkMhVePz48bJly95///1169b99ttvTt++
ePFi5cqVfJuQkPDvf//bLzXMQ/jll1+UMsy7+Omnn/73v/8Z+KG2Ul27du3D
Dz+Mioo6fPiwFdX0AOjz3LlzYUTTpk178OCB8oGff/55z549LVq0aN++/YUL
F4w13/dAyP/973/9XQvjQM7YjoEfnjt3Lj4+Pjo6+vz588pv/ahp3gAeOE+7
F3IQ7MvAD2WQyrXQMEB6Ki0tbcaMGTExMdnZ2X6pnk5cvHixdu3aO3bscPoc
v5ScnFy3bt2vvvpKfPLq1avU1NQKFSrExsYqXS7qffTo0ZCQkMGDB8uM2xWQ
amZm5qBBgwYOHNiuXbvmzZvv37/fU8+G1YeHhw8fPlwZOHD7DRo0wCf4JnxD
k1atWtWvX7/IyMg33niDf2/cuOFRCdpK9d133y1fvrxEiRJK/fQ2Tp06hRi/
//577ceo85kzZ3C/uX9uDmHu3r07NDR0zZo1xkpw5StoO1bfq1cvrwrhxx9/
hJf2ygGK5+nPHz16NGvWrFKlStGzym/9qGkWAg6QlJRE0Pnggw8iIiK6detG
l3laiCv3oowIloNXnDhxYvLkybNnzx4/fnzr1q3Xr1/vUTSRQco8kBucs379
+vfu3XP6ykx80TBASrt+/ToaW6NGjfv37xuvuvdx69YtWvH1118rv8rIyFi0
aNG//vUv+yd//etfy5cvj0KqFnXz5s1KlSohTG/VNe8Daj19+nQhUmjSwoUL
ixcvvm3bNo/UD5+wePHi9PR05a8ePHgQFxeH7llZaRfArFasWEHlhV96+vRp
hw4dcKe3b9/2qBxtpSK4BwYG+qZF+RV0EGIcMWIEugElMGyhrnwFYSgxMXHv
3r3eG7ki7g8ZMmTOnDkNGzbs0qWLAb5E3WARderUwW+rPpDXNQ1vAG8fOnTo
y5cvbTm5DPlL9erV//GPf3hUjoZ7UUYEa5GVldWmTZsrV66I/928eXOxYsWg
TB65RxmkTAJp79u3j/SBDMXpKzPxRdsAUdfu3buHhYXlp3E/vGLlypVdBUSy
14CAANXhbn/BGxvASbuwaAPpCT8ZO3bsgAED7FVCcyAYb7311rNnz8Qnd+7c
+fbbb62srjuQWXvKcASofNOmTT/66CO7KD7//PMiRYo4ZnZ6mqOhVJQ8bNiw
li1bkvMaqGGuBR6JJGvBggXz58/HLz18+FDPr27cuPH8+XMz70Vvy5UrpwwW
yJmvjM2A6If5+hPK27dvr+RLeuqP8+/UqVPv3r1VH8s9mmbYHmkCZIn8/cyZ
M7bfw9Nrr722Z88e+wM+6GXD9bflRBAqTEQWDgTmQ3Pg+XYPY9Kf2DSDFI59
x44dH+YAkqZkC34EAcJ7NNU30DZAfGBwcPC8efPyysIGt0Cd+vfv365dO9WO
Q8MnT55M9ufjcO8KXtoAjseeOnXq1q1bDXSrcGhlypQ5d+6c+ARJkk9VrVrV
PvJJCo/f9lmSS7ZFlTzNQAXINWrWrPmnP/3JHmJID8uWLRsREWH3b26bo61U
+N7XX389Ojo6lyzGoNMfP36MKzY5mI+x0KgaNWr069fv3XffpRfcvnfXrl3v
v/++yQkvV3xJlD9lypQffvjBTPmuYFX9XfElPfXPzs6uVq3a4sWLVS03l2ia
GXsEJGKXL18WTUBFhwwZEhgYaN+n4O1etpmuP9164cIFuz/ZuXMn3vuTTz6x
d5lJf6IdpHg7TKlv376tW7cOCQnJJWeGiIWU8EZI4Lp166yiu5gSKRsh8osv
vrCQiSHhr776au/evZB2BOhoa9oGmJGRUb58eZOrB69du4asyENplEaAFuPk
x48f92g8/C9/+UtsbGyvXr0+//xzx8IxOmjeuHHjwsLCKNn++TfffBMaGgpb
4C3379+PiYmJjIwcPXq0kDb/omaDBg0ythrTWnhpAzhNmz17NjZlOFziqR49
emSXNhqFSN9++237+JItJ6vq06cPcVn5c55HH/AYM2fOdBy3pGIbNmzAE3bo
0IEESieXozTYvupyDp1AJRxX+KSlpRUtWnTGjBmOeqjRHJs7paIf6bvt27cb
rqFVQKTYMtwmPj5+0aJFPXv2xOLExIcB0Ng///nP8AedBnv06FHcuPlMxBVf
suXkF7gyGqVqv658Bcyfz2F9hCGNfNyq+rviS27rDw4cOIAunThxgvrjKkeO
HNmtWzcCkGhObtA08/boiNOnTwcFBS1ZssSRAWpLyZV7cRURvFp/GCy0h752
9I02c/5EZ5DiFW+88Ybf+RKV3Lx5MxwDskQTsL7ChQs3btwYazI58Y2248rG
jBlDMwsUKECgpHNhYrwRi8A1kfM6TrvrjC9Pnz5F8lQVyypSpAglU1v7UICG
AQJIjsnFS2gpClMgB7ydcK8apmkLlJ5noOL6p3ppBaH/+fPnYqGmXX8IAcQ7
0gScG42FG9gLFPPCe/bsgbzNmTPn4cOHAwcOrFmzpphNEPPCn376qeH2WgKv
bgDfsWMHHsPJfg0Dwa5Zs6ZYsWLJycmOvYYt4OVQJ6eZXPSZ7oC9U42qVava
9Znn6XfUmHZNmjQJh6AnjhNxUGwKtGrNCeESb4nOO2WXrpojoK1UyKdixYp+
X1JCE7Br6I09EYP3du/eHQdiTJc84kt0dKtWrWAsBl7kBA2+ZMvJZOGBW7du
dfrcla+gy2CPcJgjR44Qml0tLbaw/hp8SaP+tt8np0JCQmjLtm3bsJfbt29X
r14dzyl60O+aZpU90hx0FTdFR3/yySeqe8RUpeTKvWhEBG/U35ZDwukX6kDU
VjpbM/5EZ5DyO19CwidPniSPrlKlysKFC+Eh4nOUdsKECdAnnI/hVfc4aviw
WESEMOG3SHvLli38vX//fhgaNlKrVi2iknhef3zhtwcPHhR/3717d9q0aXhI
8bC2AYrFS127djW/eOnGjRvUEDoEB1AdraI+HTt2FLTKaaRCA9CGY8eOoUVQ
CJyeXcl5xd69e/mDqBcYGLhq1Sr7TxITE8UnCQkJYkT3bzkQ5oM8UVT7TJPv
4e0N4MiqWbNmdn0wD0SH/pC4KWMuVLlly5bk8o4f3rlzR2yDfe+995o3b24f
2EHzyRn/nYNuOdCjdfv27aMQq3wC+oMXIhVSzS5VmyOgoVRiSYnjfJ+/AB+I
i4tzkurHH3+MS8ctGChQP1+CnOAho6OjLdnOo82XbDnmj5I7mY+qr6A+y5cv
Ryf5OykpiU5UnYWxtv7afMlV/W2/r53ATy5btiwtLQ3twhvQKDFMkRs0zXJ7
JOjXr18f4Stn31Sl5Mq9aEQE79XfluPWBgwYQD2VemXMn9h0Byn/8iXa269f
PyqwceNG1TFbiCu8FGOMior65ptvPC0f9uU0fCSATS1YsIBWEyUDAgIQgvhc
Z3xB5ciq4F2qL9U2QLF4ifBtyeIlSmvYsCF0CEehOqNEEoFLJ1qR3atSBVeA
EFaoUCErK0v51c6dO1EteIX4XzEvTB3q1auHTJzWbYp54QYNGvjxdi2vbgCn
H1FR5G/V1D/eCVeAfqqODPM6wjEO3J5ZOP4QWk7Sobo5jkzKVQLoCOLCO++8
gxAs0U8KwRGhouRErh5QbY62UoklJfgEw0tKsPQ1a9aYzFnwTqNGjXIaKKZF
GD4Gcu3aNQNl6udL58+fr1u3Lsmygbco4ZYvYRRhYWGkn8qKufIVYp0M8Us1
67S2/m75kqv6i7UTBQsW7NWrV2ZmphN5M69paD68wrA1WWuPdiQnJxcuXHjR
okVO0tDoZQ334hQRfFD/W7dukZJQshOPNeZP9AcpC/mSp4pBE1avXp2enu42
v6ATN23alJqa6qnMRe/Pnz9f1flAY5Bh27ZtlYuatOOL6BTMUzXp0DZAsXiJ
VnvUEA2sX7++UKFC+DpXnkfUtkmTJti+zjKhfHDFrl27KpkDfgN/3qhRI/uS
A3jsH//4Rzw8AQJ2itY5ElQxLzxw4MDcsHjJG6D5yNbwwTXK0sggtm/fjsbS
ceiSchXfzZs3a9euTdbm+CEPE+wqVaqkOhgLZ0br+NdtBQ4dOkThnp6V5Aon
TpxAkUQaSENojtKgVJujrVRiScm2bdsMVwxi3KZNGzPLZmgITkm5rEVMgoeG
hhrI72y6+RJmSBDv3bu3VXts3fIlW46rgfo6rQ/R8BWIl+cnTZqkJBuW198t
X3JV/4MHD9Jw1B7rgL+NHj3asQSTmibmGojFhumWJfZIH23dutVxVhSyWrp0
aVUqqyolDfeijAiW11+cTZeSkmJ3hkReSFGZMmWUJM2AP9EfpKziS+YVwxtA
zpClypUr/+1vf1N+e/Xq1aCgIMc19na4jS/oHg/AQ5S/1TBAsXgJlq487skw
iEE1atSAMuG9XT3z2Wef4cP1r58nVQwICCAHefbsGebjqEXYF1Zmn9y35agQ
7d29e7ctJz4iFiSABpJ10nAxL7xixQoMkE9ylXpYgl27dkGPDe/7cASEdvz4
8UePHhX/i5eLi4tTpjyEmO7duw8ePNixQxF4u3bt+vbtS+AggXIcSxQjYLVq
1XI7wChmHyjckih27ty5UaNG2V+Kp1q8eLFSAVSbo61UYkkJ9nvq1Cn74LBH
MM+X8Ni4O2XvoAnow6xZs4yt1tDJl5AqQSEpKcnAK1Shhy+JpjlRRA1fQSyj
4zAQH9RfD19S1l+EreDg4IcPH/L31KlTiarEVliBcP4mNc1kWLTKHk+ePFmi
RIl33nnHPgaObcKXkJhyVFy1lzXcizIiWF5/VOvNN990HBPA+lq0aMEnX375
pdPDBvyJ/iCVv/mSLaf3q1Spgm90Wr1DEFm0aFHVqlVv3boF+bEHKZu++EKn
kBwhdqfFitoGKBYvYdTo2MaNG/UP+GiAqNq5c+cCBQqIlf/KB1CbsWPHarAp
JVatWoXJwMBh6U5HJl6/fj0wMHD16tX2TxITE1E2sfEZJeRvXCj2KFaYE5h4
PiMjIzU1VdVz5mmg7cjW1R5Vj/D8+fN+/fr16NFjRg6ImHinyMhIpatBqhCP
kJAQx9O9yOCQPMT47t278fHxjrPblBAWFhYeHu72KD+xKc/Vvk6PgE01adIE
4dCW6dOnwwOxQdX4qNocDaX6z3/+Axt5/fXXeX7u3LlinYynMM+XLl26RO7j
5O6IPmSpbdu2NTa4ZNPNl/bv349MLl++bOwtShCJxDJgjWdQcprmeOiNTdNX
iBEJ1bEFy+uP5DHDTp06aezFU9ZfrJ3AJ2MadOWECRPQiu+//55GkWLTBSY1
zWRYtMoe8Qk0HCcs/ldYXJEiReAGypJVe1nDvSgjguX1J4SNHj2aLrBTIKwP
dR00aJCyuz31Jx4FqXzPl+h0rAA6MW3aNEcFwEAIIv3794e6wI4cjVpnfEHs
xYoVe/vttx19o7YBEhObNm0aExODe0HrDBxFqwSSx7vSwAEDBqjObKIMeBKP
uvj8+fONGzeeOXMmknEaZt+xYwcsEXUV/0sbx4wZ07VrV5GnkG7T/FGjRlEl
MaILJ0Qaw4cPR/6W8EMzoLaHDx+GhJD1REdH8y9+24wtP336lMRn3Lhx2mov
6DGRlESs6f8Lkj7sVJxXWUAB9Ee1ZLEB03EFNTqG0o4cORIbdIpQ9+/fr1Gj
BsHdbUvJQymWwrUfQ3vxXXRrs2bNHNvC/6KEaBpdj590akvRokUPHTqkWqBT
c9wq1enTp7E7WopZGXM45vlScnJyWloaDhxWgHpTvUmTJnXs2HHIkCFm3Kke
vsRXWJPbKT8kg0hhqu3bt3fSOnJz9AGtEwf2QtRJ6/7whz8QR9CihQsXqg4I
UCCq7niGqs21r6BwcvzWrVsrUwkL62/L2RmE8Fu1agUBwCHzRmKr6mJ7Zf1F
QLdPExw/fhxzxj8vX75cDJSZ1DSTYdEqe7TlHPuAh0FXMzMzExISoBO0WnX6
SbWXNdyLU0TwUv1RFfqFx9LT02E1fIs7daU/nvoT/UEql/Al1JWAgld3XKBO
b+7ZsweJ0Vjl6lY9wFQhljgxfHXJkiUdB5Go8KJFiyDSsbGxKSkpjqHEbXzh
t0eOHIFrBQUFEQimTJlib7W2AfLY/PnzMX966uzZswZapIqPPvpILPlWEjA0
ihjN2z1lBRiIUhupPzSDhMtRqRCy04E/CNCRufFqApPfL+WBrA4dOhRDsx8m
cO3aNToL6YnYxL/om0cxFF9NYkJ3u3pAHM5TvXp1ghH/Vq1aVZAH/JVwCNBy
A1n21atXlbMnxG4nyQtQAbyHPbvUwLp163iSwl09QEfjsorkoG7duqVLlxan
VTRp0oTmNG/eHILndl29nua4VSo+MUO/TfIl3j5jxgx6H4tbtmwZyTgxGjOn
Q8mDzCzV08OX6OgePXrg1jTGUrKzswkQ9A6CrVOnTuHChfmbzhWRiLbT1wZm
DHGnAQEBTrPPqr5CLF5CJqp3deWS+mOesALHcl68eOEUDc1omsmwaK090hDI
7bZt23AF2nulVXtZ1b2oRgQv1Z/OwuJw0fAlKJZGRDPgT3QGqVzCl2gL1lGx
YkV7H925cwdbwymVKFGicuXKbs+5VSIrKwuZk/VgAhBjOoLY5GihiOjRo0fK
9Ec7vqBpw4YNw97v3btH39HRJGX20zn0GODLly+tPcCcVJdwDA1zGgtCK6Ki
osjFjLFNO1CtzZs30xC8YqNGjeCHXroNCsmQxdAW5UiLK/Bwu3bt3F6mwAOU
7HSFmdgWAeERixhp3aRJkzzaOEwCVaZMGVcXcYrdYRB18nexi4o3btq0CfZO
CmCGQD548ABKP336dFcdgUFRK9RSODQ9q/0pitwBUudqGpoySVGLFy++dOlS
YUeoMRSU5jitrrS8OZbDJF8S2a7SiqG+1apVU93OrBN6+JJYzjFo0CBXKoTz
xE6hGeRrIqyQGqD8ZAeurkjTiZ07d6Lwrg4eFFMbhw4dovLp6enEXFUvmmvr
bznMhEU/2qNbKemJCPnSn+QSvgT3QLDimAsM5MiRIzQWbyYW9p89e9bT4ZGL
Fy9S4JIlS4TEsOJSpUrBx1xt8tUZXwi73bp169y5syC9Yn6NkO3fS/q2b99e
qFAh/L+jAxdDdkFBQSdOnDBTOAKBRRAFvvjiCyRDVmjSZWkDVafvLugGD6vu
unIEbnnq1KmkLcrdTGRbiE6Mvx04cEB18b8GyHRwLK6OakdiyB+y5NgvYsa2
Xr16ZoxOJO/wdlcRBwtC4devXw+lJ8ocO3bMbZl0NGmFqxsBxC5LXNnq1asd
RUQqR3IB/TMzEe+2OZbDJF/CI+Hkld5YrP3o06eP4al2PXzp8ePHtWvXdnVD
B3UgNSBe2MdRBRITE0nuTEYi9Kp06dJi3awSyJPoicKjFaRpRATVPSa5tv6W
w0xY9KM9aktJZ0TIl/4kl/AlIk6xYsUmTpwIb0lKSkpISDCztufJkydvvfUW
/WiPU+I2LnrH1VyqnvhC06ZNm1ahQgX7bjux361AgQJuV7B4FSkpKZABx/El
KrZ3796yZcsuXrzYPMeGRsbHx9M7a9euzYtX+4lNwei5cpyNfifBwTx/+OGH
2bNne3odJGQex6J6uBCaHBERUalSJfud2gKYMJk1WmT46klbToaOhvft29eV
Q3j58iXcj7CLVSrPH1MFRUVGRpL4q45G3rx5Ew9JIHPaUAO/JTEhiTBze5Hb
5hgGiTARdo8CH374IZQ1OTlZ+RUqoa3kGNe6dev279+v/AohhIeHN27c2MwM
jlu+RKPoC3yR6jMbNmxwulpLgHywcOHCJg++OHXqFH5y8+bNriqflpZGxWgC
aZorl5hr628YNCQrKwuX66RLeGbYI9YB93D6iofJ9TSihh/t0a2U9ESEfOlP
POVL3lAM7GLu3LkFCxaclAMszkyIp7QlS5ZAjRxHxXn7qFGjHG9kdoKe+HL5
8uVy5cqNHj3asRfExetOuwl8DOFJOnfubJ+ihe/BEKhVrrpJ2S9Al6ZPny6W
mSn1CqpTsmTJwYMHZ2RkOF2opAebNm3CsWRmZiq/On/+fJkyZchxnFaziPEl
fIWZC3HEwKbjDRTmQVF4GNVz4MWOUcxn586dTl+JfNDVXgOd8EZzbL/fItqh
Q4c2CjRq1AgX0bx5c+VXVMNpZMMJVBKNUqW7Ii8zc7W0Hr6UnZ0dFBTkdBmf
wIsXL1q2bBkcHKw8sSQxMbFQoUJmDq2y/T5Qv3HjRjOF5PX6K0GiCv1r27at
Up2qVKlC0tS6dWunz3mYjtZg5n60R0uklP/8ic1zvuQNxSCCdOnSBVsIDQ1t
0aIF0WTy5MkEMmMjNoJb1q9f33EJohhCLF68uJ6JCVWI2dhixYo57fERAxRU
2GdLL5QgasM2UU6hHmg77ggxWnWdWZ6GCGHYpuqqktOnT8OX4PlEKHGRkEfA
3kuXLq1UKnFaBSRWeRkTbwkJCSFSm7lh4bvvvmvSpMmQIUMsZOliQ5Pq2IiY
ZlI9N4wEBNmSbJrZZuiN5mjDzHwc3tLxwjhH3L17FyaseqyNTujhS2J5huoz
5HRly5Yl3DhFCgRL9oSumtxmcvz4cbIAZZjzCHm9/vphZtrFj/ZoiZTypT/J
DfNxYvESTElEEPJu0rciRYpgNQb22mRlZWFx9JSjrPh76NChgYGBGncoa0OE
XeU9uSSw9O/atWuNFWsJyLwKFCgwcuRInAysAH6OxzZ8AowfgZAjIyMrVKhQ
XjcCAgJ69uypoSdPnjyBPLu6nyIzMxO+RCF6zr5WIj09HceiZGJYwXvvvad6
6HpaWlrRokVnz55thmBjsPXq1bN2FpiiJk6cWKdOHeUF32LBieN5d/afjB07
llTU5JWp3miONszwJXwm2bFqVTdv3gxJ1nPvjCvo4UtCpbF3ZR1SU1NxR0uX
LnWqgNi326xZM7c7I7Sxb98+FN7tDnFt5PX664fJ9Uv+skdLpJQv/Ulu4EsE
HbF4yf5b/sBjYDj2JWf6lzMdPHiQeOR0GoA4DpQOMrz8Rhyo7nSciJhJJCyq
nh/uGyB52Dh8CZK5cuVKJNmxY0c/XtZmBsjzypUrWOvnusHD5KQaweXp06fk
GvZ7qJ0gxpf69u1rbLr8yy+/pPeVayrEwbZVq1Z1YteoMYSQ7MDAfk9HfP31
15B/ZVgxA4qiQMiqMqdAdLVq1erfv79Tvnb79m0yiIiICJPn93qjOdowzJfE
OtV58+apLvbu3LlzcHCwmZVpevgSUQZXFh4erlRaHCaZpnJUEyKHZ9iwYYPh
igkkJydrXL2kE3m9/vphJiz60R4tkVK+9Cd+50uCcpCUOU5Mi/lNPhQbmmA7
c+bM0Tl/kZGRUbx4cafjRolrAQEBnu5+coS4eDEsLMyRuWH4HTp0UL07yWcQ
2xDgS1CCQoUKderUSTsKoKJbtmyJjY0dNGhQXFwchAGiRQmzZ8+26i6nXAVB
XTAfZRT75ZdfFi5ciJopLVenlB49ehQSEqJciYGaJSQkVKxY0YkXpaWl4Yhw
+yYNmfyLcsTl4BaCAilWuRxL6LnTCa5ILzo6Gnpg/i4YLzVHA4b5EiF++PDh
I0aMcIr1dGhSUlLp0qVxWfbOxWngx6ZMmdK7d2+YAEF/2rRpEGaNTV56+BLK
+e6776quDMHRlS9f3sn7EZ7wXQMGDDDppsQ9404nJxtAXq+/R280sw3KL/Zo
oZTynz/xO18Si5cgM47TJRQyfvx4+216EN3ExEThQNy6oOzsbPJ3xyFxUbfG
jRubaSa9Kc5ndqRt9EtQUJCrU4t9A8K3uA9FHPGtvWYJmSAxcW2BWEgD2Xvy
5AkCRFF95kZ8jLNnz0JdVq5c6chSoE9RUVEff/xxw4YNxTUKV65c+eyzz8RF
tzqlJC646dGjh3L8kxwnNDQUvbW/FG2pV6/e8uXLzc+qb9y4sXLlypZcWucI
2B36rDq5DA0g9bPf1kQTlixZQgMdD5g1DC81RwOG+ZJYvDRx4kTHKIBzIBfD
7aAzdp5DUJg1a5ZwaykpKaVKlVq8eDFaUa1aNeiWq/J13oeyZs0aekqZuaOH
0Llu3brZZzrQW/QTb2n+dH2xgteS6wXzev11wiRf8os9Wiil/OdP/M6XHE9e
sn8oxpcgUQgcSeJnxISXHhdEBWbOnNm0aVP7nNTly5cbNGiQnp5uso0nT57k
RfbFvS9fvuzZsyfMzfJF+B5BzDcVLlwYybidteRhBCt80Y0bN2ARK1asQNqI
KCsry2ezIb4H8REdi4mJgQjNmTNn5MiRiAvdo8k7d+6sWbMm2suHYjhIv5TE
uu46deqoUk14Pkxs6tSp0DD4P1Hg1KlT5oUsZvk7duxoeFGxK4hbNZGDktHx
UrxQ27ZtYYCk/3369KEObi/w1QPvNUcDhvkSpBdq9PjxY3JhVGjLli3z58+n
l8eNG+e0r5ZX2O/nSkpKqlChAo4LCz169KhGYqKTL6GHgYGBqampyq+eP3+O
skVERGzatAk1RrBU2BKGIBYRJSQkmNfhvF5/nTDJl/xijxZKKf/5E7/zpQsX
LpQpUyYuLs7JPyA6HNqECRNiY2MhqPZjJ/W4oFevXlGZ8PBw0r2VK1fizQ4e
PGi+9ylh//79KAC6tGvXLiw6Pj7e73NYCApyKAZGPPrh7t27y5UrZ+G1LLkc
dN/9+/czMzPJO5zsF+W5dOmS6mi/WylduXKFRMkVG+elsDKCrIHNd65Aov3m
m296w+2LxTmNGzd2tf7t559/pr3YLMmCVS/1XnM0YIwviZOXxNYA0bOo0/Xr
17UzJjEj3Lx5cz27V3TyJXS1S5cuUVFRrvwt7yJVv3r1qoVbhEgVUXVLFv/k
9frrhPlrwnxvjxZKKf/5E7/zJcwBo1A9JggiRBpy+/ZtZcP1uCDklpGRgWO0
dnERBOnixYuHDx82LzRLgMANEGn6KyYmxu2Vl/+fQ4+U0NL+/fuT0fhsL/yB
AweokoHb0vUAc6tbt67JU5Q9gleb4wo4lh49eni62Qr3PmPGjOzsbI9+JZY+
6tyto5Mv2XImHRo1aqTcfOQliNvDBwwYYMkt4ba8X389EGue58yZY3gzrI/t
0XIp5TN/YhVfMq8YHsEjFyRhB71z//593L44ASMiIkKkxuTIe/fuzcfzcR7B
UynByZs0aeJ0bbeXAF2PjIycPn26lzSftmPFvMI3A6febo4GDLyR4B4bG6vz
DFia9uDBAzGNW758+U2bNtly/GRqaqr9ukkl9POlZ8+etW/ffv369R41wTBu
3rwJvTF5uZIj8nr9dYIeNxMTfWyPlkspn/kTq/iSzbRi6IExFyRhh9iWm5KS
cuHChXLlyokjr5HqvHnz7EvvJDyV0q+//jp58mQe80HQP3r0aKtWrby6Mh9v
0KZNG2MHUnkKHzTHQkCM7RtPtAHZ7t+/f3BwMP5qwYIFJUqUOH78uC3nJtlZ
s2ZpnGqiny/Zck5igc/7YIhYXAUVHR1t7VrNvF5/38Bn9uglKeUnf2IhX/I2
DLsgCTtOnTrVtGnT+Ph44vuGDRtQ4/nz50+aNOnYsWNycMkOA1LCgrp37y4U
0nv49ttvw8PDze9ccAvcDs0xfKmHTvisOZaArl+zZo1Ot0/oIa3u2rVrXFzc
0qVLp06d2qdPn4ULF0Kqte/B8YgvEddwfR988IG3iTqKHRYWZnkYyuv19xl8
Y4/ek1K+8Sd5iC8ZdkESjoB2ZmdniwyCfyGfck5TCQNSunLlSt++fU0eRKmB
H3/8Ec62bt06H0x584r169dHRUV57/5BXzbHKjx8+NCjaYXnz58/fvxYcOwX
L17oOUVW8KWIiIjTp09fuHDBbRrIA2PGjHE89Mly3Lp1q1+/fk7XRluFvF5/
38AH9uhVKeV1f0KZ165dO3PmzMqVKxs2bJgn+JKAARckIeEbYFNr16710pj/
yZMn9+zZ4zN2wYtSU1O9t97Dx83JK0Ag5IDiLs7Q0NBLly65/Ym4K9xLgyco
Myp99epVbxQukNfr7xt41R59IKU87U9evXoVGRlZMQcdOnQwfxSYhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhERex/8BRdWvnA==
     "], {{0, 55.}, {784., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{550.6666666666653, Automatic},
   ImageSizeRaw->{784., 55.},
   PlotRange->{{0, 784.}, {0, 55.}}]], "Input",ExpressionUUID->
  "827fc9b3-0094-42d5-b675-537f46724c03"],
 "\nV[x][i,j,k,l] :=",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnAtQFdUfxynKR+qg+QwrA6nUzFQiKctERaCSFNI0RAtBQgQKCHxElpqF
oClG6pj0AkETy1c6pmiQr3QMwqzGzGoyoek1aWNNOvTp/ua/s/+7D+/l8tT9
znDn3t2z55z9Pb+/s2fxikoKm3qlm5tbSis+wp5ID0hOfmJmeHt+jE1MiYtN
jIkOSUyNiY1J9o9y52Af/s7z99/3GgsWLFiwYMGCBQsWLFiwYMGCBQsWVDh3
7twbb7yRnJycmppaVVVld/aff/5Zv349pxITE48fP94oM7zk8dFHH82aNSsu
Lq60tNTuVAPL/88//7xw4UJ9j1JP+OWXX4KDgyMiIv766y+7U+Xl5b17937l
lVfk7s6fP3/w4MH77rtvwIAB1dXVdo1pU1FRMWbMmBtuuOHEiRMNNPvmj48/
/tjb2/utt95ypPG3336blpbWtm3bHTt22J1qGPlj6kuWLBk9enR4ePgdd9zB
Z2VlZZ2P8scffzz66KMPPfQQX+q8c+l/3rx577//vtZtv/nmm/T0dCSpHPn5
55/vvPPOyZMn//3339quEEhISMjIkSPPnj1bH1O9JPH5559jxl9++aUjjQk7
M2fO7NmzJ8avPeug/E+fPn3s2LFaTJXRFy1aRK7nCz/J9UOHDvXx8VH39sUX
X/z444+16FwNGEVWVlZhYaEM1Lj49NNPO3bs+Nprr+mePXny5E033ZSRkdF8
s14Tx5kzZ4YNGzZq1CisQnvWEfkfPXp0woQJn332WS1Gx9F8fX0zMzOViLd2
7doWLVpAdxXjxIUfe+wxdZysQ3BfxcXFkZGRRN0pNkRFRcXGxn711Vd2LZEP
85w4ceITNkyaNIkLa2eWq1ev7tChw4EDB3TPbt26lbMbN26sRc9NE1C4nJyc
lJQUqDJR1KgZufLll19etmzZ77//Xq/zgah3796dvKyrvovK//vvv8dftLzI
QZD3b7zxxkGDBsGH5ci+ffs8PDwgVOq8v3v37tDQ0O+++652o5jj1KlT7733
HrnMzc0Njjd//nzmoKXlyGfv3r3EB5oFBATk5+dLBYoEnn32WbzymWeeUWdD
elixYkVSUhKZi8aKeKmSoqOjYXFcTvvs7GyuZfRDhw7JKM8//3yzJvPcwttv
v+3n54eF19jud8aMGVdffbWbDQ888IBR1uYqaYb2CcUODldSUkKEhLUSLUXI
9E8RGhgY+Nxzz2HAMTExSJho9ttvv8klBCusetu2bbT/4IMPCHdBQUG5ubkX
bDCXPz5LxKNnVwjDDz/8AL9VfiKoli1bMmd1n3zHFJmblmLt2bOH26EkhEtT
J06dOhWpQhsUG6NIRybUCwkJCSaSzMvLc3d379OnjwmPYhrcLFlAmQbBnyNH
jhyhevL09FT4JC2ZA6aO58bHx99zzz2//vqrnBIyT75gIK5legzNLb/zzjs1
/yOT6Kv5knmETEzAel9//XXlILf/1FNPXXXVVZj09OnTtYUM+kLFV1753+6p
Nm3afPjhh46M9fXXX+NQP/30kxRrxBn6YdydO3fyyRxQFkNjOd26dRPtCJn3
8vLiWkg1aoJIX3/99XAVZnVR+a9btw53JtDVVjz2QFxkDbxMy5SIxv7+/viy
+iDZELMh/hMZ8FzMBjJGbUJSkEB98ODBWbNm0WzTpk1du3alujcaGq+/5ppr
aKNlNQpgcWKryhFqjZdeegn5QHUQheK8cDZS51kbgmxQZChknqqWiUHbamxe
v2XLFkn6QiZJHM2azJO+Kysr7W4BjRCRMGlunyiheyHyJOXhGsR8RwYqKChA
dKJ05Ik9I8a5c+diLUgYCiHaPHz4MKqX+QiZxysXLFhAgOUggYtOhEWYyx82
MmTIEDReV9phwosXL4Zo6TIlRlm4cCEsSL2mjYfCDThCUTBu3Dgmj2DJVsic
s7gt/BAx8n3p0qWdO3c2KTqoF/Cadu3aEXh1GyBMiMrmzZu1pxiCQPHCCy/o
LtogeRxTOQWZJ6EQyghQYvNqCJkkZxnNs1mDoHHddddh9tibkdlgnwgTI3S8
21WrVuFHMFLliBj2gw8+qC0fhMyTUMgLZBO7jGMufziwt7d3Xa0rIgGYANRi
+/btRm2QGCOSXOyOS+R89dVXjS7kvsaPH0+aUAiGFrg5sYJsWFRUpNvg3Xff
hbHr8nw4VZcuXXRjF/kFGfIpPyG30Mvbb78dub344otMWx3QhEyicdKu0Tyb
NQhKY8eOxeahmlpJCrBJqKCDq441NvMmjcJG1KvQYtgEfK1nbdiwoX379lgv
SvHx8YGcK35hLn+siLoA5lNXtBNqwcwlDiMZ5qydLWMxIszNbolJlkH2799v
1DlsBG+CV2NyRm1IWzgF6iBxaM/iEREREboP5qiMqCYefvhhZM5MJMUIuAUi
fI8ePZSDQubpCgGSnqhkSfdov7CwkM6FTI4YMQLfXLly5enTp41m23yxaNEi
hCwlvG4DggDyMVnesQPh/dprr12+fHl1dTXkXFwJw5Yq1a6xkHnYCxyG75QY
t956K9ySeIULmMsfDn/LLbcYrfY4C+jE448/rhhGeXk5PWvtk7E4TvWhfpRA
M8zGRIagrKxM2L7JHJAVdos6IDB2JTlDYLrUO7oXErEJ8lRMUEcopbpMxklh
p8HBwYoGJSUtW7asxkbje/XqRWBh5hkZGciZWgySlpiYSJSjK8f13hSAdqAE
UVFRcIaEhASjZ3+QltatWxOEdRdGsFsidnFxsePjLlmyhN6QGAQAHcnay+zZ
s6EE2kdOwnkwbGQrljN48GACEZ0cOHDAXP4wEKzoonPjWsoBhiC4+arAz0ce
eUSKX4qLfv36TZkyJTU1NSUlhdTPNKDfuh3KKpOa8BOf77rrrsjISN1nmgLh
HuY0DDsnEchCmV3aLSkpQThGSkRiGPbkyZNRtN0QqJV6HKtWIgN6QUGyLMmE
iTkUU9OmTaMGqbE515w5c+6///7p06fv2bPHZLZNELt37+Z2cHPuxcPDY82a
NbrNiKhQC5Sora0QCAaAMJVFRUdQWlrat29faCdxSXSE+sLCwiZMmKClTxKr
KQxFI0y1f//+GDl1H43N5Z+bm8u0iVpGM+HesfYWNsCaqA0xJ9gy5o3N+/n5
YUVYC5yBObj9P1q2bAnd0u2WEZEYNqwcgXqRqkw2WiBJ6BAU8aKSRBSMbtcS
nyIHffLJJyYXwrUwb63Tbdy4ESlRFilHEKx6YRbJIwG7iRHwnVK6Lsj4VItX
XHGFm8NAO6Sb2i07o26sTpYLsA0qxJycHN2WhMFOnTqhRHF8NaiYPD09a/Gs
B5GSNO2O6D5jReCkEvU9ol+7hUdd+XNJcnIyVF/NXdVAAsRtUhhlmuR6OsHv
MGZtBeoUGJHISTRQps0XuIEJxRIyjy9fVJsFBQXo/eabb1aEQLdkvaysLMct
gXvHASsqKggacXFx+Hij0HIcEIpY5gxwE5J77YaTNWFZ3w4NDcWkjcorggOZ
jkSgXmapsa2bERvT0tJMaq5GBLMilRs9vpFFRcwbT1ebIiGaoAffc+WmxIAp
n02YjMxh165dJAtsFZJJjaMOtkYgO7dt25bGCkVhzrAm7e5HE1AK0QnFFMmd
FObUmlvzBWFW+DkS69y58/Dhw42oIBybvIxTqFMnpRDBAZqnToJNCthbeHg4
REi3bDx69CiODCuz2zVBiCY1BAUF6SYdB4H5DRgwgGLT3OZxjdtuu2306NGo
ALYPz3RkUFIz+mrTpo2kVzIUgdpk7VQXZMbs7GwIIYM6vuB2aYBQQ2Z3d3eH
3hi1ETMg+ikbqGB3/v7+xAcsp6Fm6jRkiWPgwIG6278pJWAI2udoEucpXc3N
1RxSWctTZpNmhPf169c//fTTlIfbtm1zMLOcOnWqV69eqOzNN9/kZ35+Pnbr
ymwvN8CNBw0aBPk0eZZ9/PjxrjbIwi/RadiwYV26dDF6FNhEIFUhxbKWqcLb
7733Xt1VfXI9vgDrc2V5kxFJguPHj68PUyQxDRkyhGpu3rx5zJ8CxKhgafqA
YPfu3Rue1sFhYIdEaVe2TpEfyZKTJk1CO2hZd61VQl/Pnj0J7+RBPz8/cquz
ybThQdiMjY2Vadud4oi3tzeWY0dsuISqFqJbUlLiytBUl9SY0dHR9VHpoCl5
SkjRkZqaSklb50M0GCilMaR169atdRjFxcWu+LjU7NRxGzZsqLFRXDK+NjRR
NLVr145kTYWFCeFoJtvJuHz16tXJycnjxo1LT0/fuXNnSkoKteSMGTMaeA+e
0LaOHTtqt4ucPHmyR48eYWFhdjd77NgxUt6YMWNcnCqRgbDA6PWxBYsQh6lj
8wyBWzXfnY2NAknBJBcoItpZvny57q6VoqIi0j3G4+Hh0a1bt127dhl1SCer
Vq2Sx0zYlZeXV2BgIJ1TS1IF677iVK8oLCyk9NZ6KOF96NCh6iePNTb+TwRg
nrV7r0QN0gTjMrqL/Rhh6dKl2Dw1eHl5uVGbvXv3Em1wCpJCaWkp0Sw+Ph66
dblVrHaQJbVRo0ahbvh8UlKS8k6EGrL3APj4+CBJkw6rqqqQrRCGysrKTp06
cS32v3///n379jX8vlMyF1lJd1sXBSAhXVmJIuDPnz+fqrxOipSVK1cSHFz3
HSNQ+bZu3TozM9NIpEeOHCGxogjua+LEiZ6enph9Xl5eq1atjJ48XiYgSy5Y
sGDgwIGLFy+OiYnR1RFt8AUMnqLPqX10+fn5xLrGfTYtG6t032KG12GZ3FRW
VlZOTk5oaChMvk6KQSkKAgIC6u/dMXIojmzUPyrLzs4+fPhwjW1rcVBQ0PDh
w8+cOUOVsWnTJosLEShIdgRhI1FgLZGRkaRI3RRgBMSemJhI2LR72NrAkAdP
ffv2hV/pNjh37tyhQ4fKyspMtu86Cxhj//7963DHviuQykXeU2jsuTQnEC0d
VB+CPXHiBIYki4HKPqiKigrIbaPYAGUplMzFvQROobi4GGeXTR2Njq1bt5Jt
ndoBaMEpUMDCGAsKCoiciFr2u5JBMjIyzLc/1R+YwOzZsymiGyanMwpjUTw2
7n4MKrXq6mqCzNy5cyHz8vAFLpSbm1vfb+tfbtixY4evry+ZNCEhYcWKFYMH
D54zZ058fPyWLVsaMdHDY5mJ8hJQvWLz5s133313w69QqQFZ7d69e0RERFVV
FTfer18/2d5WVFSEUpoC47rEIG8PCaXhk6qwKexAwxRDQkJc/59L5qD/4ODg
Rn9LlIIiMDAwJiZm2rRpeXl5I0eOJOykpaVlZmY2r/c7LLgC+acWTz75pOP/
kMRZ0DOmBXloCtWiPB+RwpzvZDqL0lyGwBRJ7tp3D+sK27dvX7NmTVMweAsW
LFiwYMGCBQsWLFiwYMGCBQsNgH8BP0m6AQ==
     "], {{0, 42.}, {252., 0}}, {0, 255},
     
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{203.33333333333323`, Automatic},
   ImageSizeRaw->{252., 42.},
   PlotRange->{{0, 252.}, {0, 42.}}]], "Input",ExpressionUUID->
  "8a189c41-10b7-4759-bae7-dab084f7d4b0"],
 " and also\nV[x][i,j,k,l]:=",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnAlQVVUcxnGFsU3JfSOMSVHBEktLS0hBwMwVSsEwBJFFSSCRJkxNMws1
EzdUlBKFnEoLrCFrRFzLkcwNR1BjUqkxczSmGmtev96Z7tzeve/5Ft4C3W8G
5nHvefee8z//5fvOPRfv2NQJM5q7ubmle/BrwouZQWlpL2ZNbMsfEbPTExNm
x8eFzc6IT4hPGxLbgoN+/Lg1c3P757NOgwYNGjRo0KBBgwYNGjRo0KDHzZs3
d+7cmZSUNH369IKCgl9//dWgwfXr1/Py8urq6pzSPQ0a7IS//vpr9+7dAwYM
GDZsWHR09ODBg1u1auXl5bVx48bffvuNBrdv3y4pKQkMDNy8efOff/7p7P5q
0NBgwMMXL148bty4U6dOSQfPnDkTFRVFFLi7u/fu3btjx45BQUHHjh1zYj81
aLAH6uvrDxw48PvvvytPVVdXk/BXrlx55MgRLe1r0GAjqDVbtmxJS0vLyMhQ
6oiff/6ZWEtJSVm6dKlSfWiwDq5jc1KooNNNDNgwNDQUvmRQRJAV69at8/Hx
OX78uDiCBY4ePfrkk08+8sgjP/74o8F1MM6nn37q7e393HPP/fHHHw7qfeME
JbtXr14FBQV3bOkKNr948WJycvKECRNGjx7dt2/f+fPnX79+vcHv8u233/r6
+hLOOF6DX9wEbt68+frrr+/atUt539LS0kWLFv3yyy/SkWvXrg0aNCgmJkbV
2mgQtAZDsG+PGz9Onz49d+7cqqoqcxo3iM1Pnjz5008/WdFVvoXz45ziz337
9rVv355sKZUbevXNN9/YXhouXLiQmZl54sQJG69jV1RWVt5///1r165VPbtt
2zZPT8/9+/c7uFdNGzbanLT2/vvvw5FIdFbcfceOHQMHDvzyyy/Fn3j7tGnT
7rrrrrKyMvn1U1NTb9y4YcX1rcatW7dIztHR0fRnuh58IJMreSD1Kykp6YUX
XoiNjSWNJCQkmJl5lEBQt2vXDkGtPEWlnjVrFvXxypUr1l3cRUCue/XVVxcs
WADxMFGLRQ7fs2ePvdcWbLQ5BGns2LFWTwq+3apVKwwiTMHvhQsXtmjRgl5J
bW7fvo3jYQ3VdRg7gZ5Q1DZs2NCjRw83NzeMQFdxbOWU1dfXb926tVu3bh4e
Hjj/3r17RbWqra1lXFOmTHn55ZflUXP58uXs7Oy4uLiQkBBmWTrOMDk4YMAA
hBjtc3Jy+C5tKH+chSY98cQTkZGRjjSC7SBr4ULBwcE1NTU6/dgh2256tG7d
esmSJaqsgzFOnjyZNvgGmdl8yvrVV18hZp955pni4mLxLRgFuYubQkGhMTNm
zAgPD5euaaPN8YfHH3+cm1pnHNGB6upq6fr8SW/J/1988YW8GSoSdZCfn2/w
dayXm5uLPCEGCeGXXnopPj4evSn6r9Nbcv369ZSPwMBAapml5J/rI0yYCDI8
fTPWDA6J0bZv3y5dnxBAyKBtUWFdu3aVKgLSJiMjA1ZJxujfvz9tpK8IIkrF
4RTHy8vLGa+7uztxp/uXiK5YscKi/jsdsAuya8+ePc+cOSMdJLHgV1iVid69
e7fyW1gpKChIhAn0QKlMVYEjzZs3D0aNPxACTD2cBEt+//3348ePpxtYkmL9
4IMPPvvss8LlbLE5VyCaEhMTG1Aaw8/xFnoL/TA4haHoKjRefhDzErNnz57t
0qVLQEAA6bSoqIj+k7d1+vpFpOP29BCVgc0tVdZcgZhiFiSLKYEDYzSsJw8Q
uiQWzeBFjz76KHaWRgHl48N3333XoUOHd955Rz4WiCgi5ZVXXhF14Ycffigp
KaG+6PRElBlkgizqv9OBTY4dO3b16lWD4/ghJRXDjhw5UpU588VPPvmEqkr9
NZh0YygsLMRcwsOxIXNH0OEe5HZ8gzROUmIS4VTSBW2xOaLAx8cHFme+NUyD
JI+bDR8+nCqpPIuVyLFwCTkhpIdUCuRD27ZtRXUgkLGbCJ9Lly4Jxg5G6WHF
Ki7hzzQNHjyY7qk2OHfuHAkEuylPEQXdu3eH0SnrznvvvYdtKyoqpCNQPogf
KZEkJudFun+JqK+vr6plGilITYyXiTPmQhjtrbfe8vf3V4aPCWzcuBGXPnTo
kHREODk8QdnYapsTnjNnzhwzZkxDPRfgOjCxsLAwaLOxNliMpEE5Mzj+9ttv
d+rUyaD/chDvlGA52TAfMElYaK9evZT31emLIHzmww8/VJ7iXhBOCqi0wi8B
60Go+vXrJ+kmjsDc/Pz84AawYuaLAJHaCyIaERHRuMi/aZw/f57cjvvl5eUZ
a7Np0yaEgPmrf+Q9shxyQ15ThMI9fPiwQWNbbI5H4RKrVq0ys2OmAT/BOaFS
YpGHgqUa8nAGCiJiU36Q7kHRhw0bJl9INwAVAQvw24q+kaLvvfdevi4t0soB
n4EgiXJpAPqD7EKYMBdMgbyIQ8OGDBnCzErUURDRqKgojjB8FBnckqFBlvAT
QUSXL19ODJLfTCiRRgR8dcSIEdRWDKi6yIPbIwZNRIcSpH1PT89169YhGciW
GBBbYUmhcA0a22LznTt3clYZU1aAu3OXBQsWSGEOey8tLVW2xKPEJky54oB4
9O7d25gNdfo8THB5eXmZSSMNAL3p3LlzmzZt4I0Gp8jedMZY3SGrYCIyGFeA
XsoVDTIH8v/uu+9KR0SNXr16tRhRnz59MAiTkp2dTbBA8GiPTVA3Qpq5OBjs
G2+8MW3atMDAQJKqatllvlJSUvD/SZMmqUpIRk0CMcEHlEBPkSGrqqo++OCD
LVu2cF9Y62OPPTZ16lTlLay2OT2fM2fOQw89pEp6JRAyZWVllBgofcB/QZe4
F12iDRzv4YcfxoEhEvymq0Sl6oMqsVpl8KgaeULIC1GpCpgVwiE0NFQ1S98R
VCKIisGSrE5vBMQFoWqMU4lFoZiYGGgksSA/VVBQQEE5ePCgdIT5YuLEshVm
ycrKCgoKgiOJoKMPMEMyFWa3iAw7BWJOmRE+MKHe3t5oUtWWy5YtExJYOTW4
FiXyzTfftIiyokn79++PSCTjCQpUXV39wAMPqO6FsNrmJOrw8HAaK1dpJFBB
oGGMDoGDHm/ZsiWfmXTh/0OHDl2zZg0uRB1xd3d3+y+IRGNCD6qPt0OEpCO4
JddnmMZ6UlNTA88k3Kzb+cAYxVqcwRUOHDhAdTZBunR6Q3F3g8yDV8D0oJ1y
q1J2pTUinb5mUXblF+cI5caWpTa4QZcuXZo1a+ZmNhA+JENLn0AR7MjJej1G
jx5NjpXvHpcDokJ/SI8GS0BYA3VJkrTifSLMKE/LdJ6LqE691TYn/ZKxIyMj
jU3H2bNnyZm4JaEkbg159vHxoWRcunTJ0hHJQTGFjUtPh3X6x0/GVmYEoOjE
nSqhMgeMkSSAM8TGxkokECvxpzyB3xEEAjSSrjI7GCc1NdXBu6YZCLNQYQkI
GUu3tTDdqEKxIAAzJOLgMMayBFKOwkoyNPA6qmqnTp0+++wzW8ZrPxAmiF+S
mKoQYyzUfVKuwSshpO7WrVtTdGy5NRr2nnvu2bZtm+lmcB5KHiRKJFtL19Dk
wEupjPg/gxJlWmzdXLx4sfkOTDeSk5OptkePHqU/FBQb84DLAuNQncnnfFix
YkXz5s2Zd2OVt7CwkBIjz/+0hDjdd999cEuXfauCVMZUwotUe7h+/XoGlZOT
YzBqHBIWJOSG1SDz33333SRS080IE5qtXbt2+/btFJ2SkhJbbgpVo0xLuoNq
TkWwdMsHwYgKTkhIyM3NNc2amgYYI47duXNnY+RH969LjBgxQlpFZ6Yo1tHR
0SaotdMBt6c8IVeV/k99R7agOJSEnDxAsUOV23JrVDmOLR7vmgD6nQBMSUkh
dVu9G03Cxx9/jEgh5Al8SgB61rql1P8VysvLYaqTJk0ysXqfl5dHgRg7dqxY
Y2dy8aunn37azA0PzsKFCxegN3iX0v8PHz5M8WLUBk8NIJ8ENdRl3759ttwa
QYFV5c8pHABICyqecR05cgT+lp6e3hifQzEKX19fT0/PdmYDb1yyZIkVPISv
pKWlQQOovzo9/VO1GCkRYhkTE8PZ4uJi7kjJML2o6Aq4fPlynz596LaS/xcV
FTFqjGZAfmpra+EhgwYNsu41AQm4H/6v+rzVfiDeu3fvTgmAUE2ePPncuXOO
vHtDAY7x+eefY8Bis4GdrXtogof07dsXJxHOnJ+fr5wyYgRC+M+/bE1PX7ly
pYeHB7LIxAYPUujmzZsJq8jIyMzMzL179/JFnHDevHkOfiH0xo0bTz31VGho
qLK0oUwRucqNmjB2Bog0sPHWCE8TO0bsBMrxwIEDmSlCmKE5+A2yxojS0tI2
bdrMnDmTDIm3QJWVu0c4hfdi1Z49e0KMoT0mJBU2x4XEI62LFy96e3sHBwcT
LBMnToRsO3gxgUicOnWq6sbUr7/+miomf7Kp02/28/PzgxRZ946MBDIGwc7Y
HTxeOH9ISAgzNWbMGBuH8D8B+gj/F+mOOrJq1SoliSJpi/0P4hGwac5fV1c3
f/58sT3m5MmT7du3X758ObEA3z506JDjM9Lq1atVt5zhKlFRUaNGjZJe1yJI
w8PD8RzbH1zCEtFKYWFhDq534q2Ejh07qr4lJOHgwYNU5Li4uIiIiP379zNf
ycnJzz//vO0CvNHh2rVrTNOUKVMWLlyYlZWl+u4eLu3v79+yZcu5c+da9Gge
jgEHsFFI2giCrkOHDrB95SkYfnx8/Pjx41H3+ACkLicnp0E8VoiIpUuXOj7e
y8rKPvroIxP3PX78OLWJiRZKv2vXroQAZAnWJzTg/w0kK2jqqVOnjBkNZREQ
ELBp0yaL9DWNZ8+efce9N/YGNGDkyJGC4Kk2IAOUl5dXVlY24NsxJSUlPXr0
cDD5NwdMCjEunveRyih/VPZbt24RsDAB7d/1qEJIAzMbY+Gamhr0ptgDSXYV
C0onTpzYsWOHUxTZhg0b+vXrp7or3h4QG1khitZtY3MYEDteXl7i/SNn96Xp
QKyfFBYWVlRUQH7E7hESS3Z2NpLTKV1CsAwfPtzYP45ocFBJCTeX3RMiobS0
lAly8Aptkwf8E7JEVpk1axayeujQoa+99hryCkrgxOW4Xbt2UYwcwMRI/nPm
zElMTHTZB09XrlwhITAXixYtgvyLZwTU9zVr1jj4P7c0VUB+zp8/LxyA38gH
p78HRDcQ7wh8e/dkz549ISEhLrtnrKqqqlu3blFRUXV1daQmf39/see2qKiI
ZKU9L2jCEDuBt27dar9ZPn369Lhx46R/aeKCuHr1anBwcHx8fFJSUn5+PqFK
aSYzLFu2zMXVigbbITab2Sk5U2Jyc3MrKyvtcfEGhHguKf6/Cp9ra2s12qNB
gwYNGjRo0KBBgwYNGjRo0OAi+Bs3D3Dy
     "], {{0, 45.}, {256., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{198.666666666667, Automatic},
   ImageSizeRaw->{256., 45.},
   PlotRange->{{0, 256.}, {0, 45.}}]], "Input",ExpressionUUID->
  "839d0a18-4414-4392-8dc4-c7915db2163d"],
 "\nX[x][i,j,k,l]:=",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQl0Tef6/0k1xY+bawgxxqwISktrDkGNNYa41BhKjQ0pwSU1BzXPYq4Y
YiqJdFGEq4a0y9WaF41hUWq5arWse++6vev8P/+8y1777r3Pzjln73OcpO93
LdbJ3vu8532f9xm+zzvtioPHdh8WkCdPnvH5+a/7oIktY2IGxfX4M39Ejhk/
4qMxQ6Pbj5kw9KOhMe8Nfo2LDfh3k+f//2eHhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhITEK8W//vWv
27dvX7hw4dmzZ/q7L168uH79+vfff//vf//b93WT8AD047Vr1y5duvSf//xH
f/fJkyf0ZmZmpu8rJuE/+O9///vo0SM04c6dO/q7v//++7179/AJ//jHP3xf
N4lXDvOgIH2I/8PfwjohaeLEiTdu3NBc/+233+bPn79//348kiPL82zZsqVO
nTpBQUFnzpzRPPzPf/5zzpw55cqVq1q1Kg7KNzX3EyCouXPnKoJSwJ9ffvkl
t54/f+6ln378+PG8efP6ZWHjxo0oj+vfffr0aWxsbLFixZo0afLLL79o7uJD
+vfvnz9//sGDBxvSlT8m7t69O2nSJIzXg++6aGi2g2IzMjLi4+P59REjRhw4
cMAt30Jju3btmi9fPkrQ1zA1NRX9CQwMTE5OtrXWOQkWJSxK2Ldvn6GvQGHi
4uIICvbV1+DXT5w4MXXqVL0fMId5UJA+RA+sKSYmplevXh9//PGpU6fcNXnb
9cQPw/r27dvr1q2r97Go09tvv71s2TJFaFQeYYaFhT18+FBfDiJq164dvotW
eL3S/oQff/yxfv36K1as0GgXzHPIkCGRkZHumrmLuHXrFt4vPT0d7/ftt9+i
VOHh4YZd4ww///xzvXr1Ro8eTc/q7/7www8lS5Zct26dfVXOqUA+ixYtQrdb
tmxZoEABeKYHhbhuaPZi9+7dEyZMEOkPelK2bNmxY8e6ZaRHjhyBuKakpBje
Xbp0aZkyZbwaMf0c1iWMryBqE6f0WWpSUhJqQ7F21vgl8ADR0dE9evQg4tSo
UeOnn35ytwTzoCB9iBpwCSgr8YLuTkxMLFKkyLRp09yiat7Qk5wb1hFCixYt
+vTpY8j/8auhoaGQNy/5VQk1UGN8YEJCAioqrpBik4yQvxuyC0OcP3++ePHi
27ZtM7y7devW4OBgL3nCHIqDBw/++c9/9oyQvBKgHp06dSpRosTly5fFnx06
dAgJCdEP1DgD5jx79mxM23DgHVeAQ4AJ//rrr3bWO+fAuoRfOXAmJOyeERLz
oCB9iAJk27lz55MnT4o/kfnw4cMLFy587NixV1uxnBvWr127Vrp0aRIiw7v4
aqLb0aNHfVyrHA3Y8sqVKz2Y03nx4kXbtm0JjkrGjQPEDUZERIjSeGD16tU3
b940KWTNmjXkL2Qx+lvYy8iRI+vXr08O5W7d/BMYVFpaGlzCimU5IySHDx9O
SUnx3pyLxzXnK1RswYIFIqXi/2bNmhF6Hjx4IB5AA1etWmWigWRGH3zwAVmS
4TO42Vq1asXGxrpOg/0THltithJ2xRKtgPIxZCsjVM4IiSs1NwkKuc+HOCzo
CXy1aNGiLVu2/O2338SVdevWBQQEfP7550rJ5pboJdge1ul3tTfAQDTOgQfU
rky5e+nSpQlZ0Kgcops2bdqAAQM0PnbXrl3FihX729/+xudTp05B8EaPHi2+
y2N8JbcuIEFi+/fv79KlS+PGjSMjI+Pj4xEd13/55ZeEhIQRI0ZoBMX1ZcuW
DRs2bN68eSbrOm7dutWzZ89z5855VquMjIzk5GRlJO37779H4bt3766MmXz3
3Xc9evRA3wy/jlYMHDjwvffee/r0KYVgHUOGDKHCwiK4yC1/mPwl9d60aROa
RtQ7dOiQx/VBVjTH4tpLZ4SEHo+Ojk5KSjLkDO4amjdqLkA6hpIsWrRI+Tk+
EHTGjh3rzBPevXu3SpUq1JMn79+/P3nyZPQEOYgS8Ab4hN27d1uvm2e4evUq
htaoUaOOHTvSCiTpweo7i5aohl7CDlNLxLfs2bMHPkBgUkKVuI6axcTE4GYJ
Vc5+DveCXuFtrBBCkxEScx/iMA0K/uND7IIVPcEt79279+zZs8oVlOS1117b
sGGD+NPcEi3qCTx57ty54eHhMCJ6BAb75MkTccvesP7w4UPyF5xknpcICgoi
rCj6+ejRo+bNmyt3YTtjxoxBjfEtEydORMIk2lxRnieucZ1vLV++PCwsTFFR
Hhg/fnzNmjWp244dO5YsWUJ0wPRWrFjhyJppev/99/1zpsk68LeLFy++ceMG
DX/33XcRY7du3QiUsBH8D3pVt25dZQKOrp8yZco333xz5cqVcuXKORveJ76g
21988YUtNURzZsyYUbBgwX379qmvo8P8yuPHj/VfEQtI0HDuzpo1C09OrClR
ogQe3vFy8nft2rW2VM9jYL99+/Yl/GHOKB5B/8MPP/RgTc6ZM2fatGljfRTd
ZMrm9u3b7du3F3athruG5o2aY5Xbtm3D1dSqVSsxMVETIJAtblDtNNQQC0ho
MhWeOnUq3hha3qFDB2Hp+IEyZcqYBCyvArEgw4sXL+JI+/fvHxgYSK7nrqxs
sURzCTucW+JXX32FAyHu4ytSU1PFRcx5y5YthCecDKIm5TGM6fTXggULPvro
I7dWs+thPmVj4kPMg4Kf+BC7YK/Hhq01a9YMbYHwKxdNLNGKnqAen332GR6e
zAhXX6pUKYiQWNjjpbDO8/htAmWlSpX0Y3diWLVBgwbp6ekKb9+6dStZP0So
YsWKaLW4TjkwIhI36oml8y1FRcVME4EYNg6n4gEMn4iMv3VkDTeVL19+zpw5
fjjTZBEkXOPGjRNh2pGlA0gYdYJv0MtoQlRUVOvWrZU59J07d6IkjqxcCfpH
CNOXSSHIitTYoidRcPr06dDQUDRZH2sI4vHx8XoNz8jIINDQg9zFdVAlVBG6
LgZYaAKV5xlbqucZsD6ScTXtz8zMrFatGhroVjl0VqdOnTZt2mS9SuZrSJKS
ktq1a6ekHgLuGpo3as6P4vfozbi4OMizfvYHITdp0oSwrv8iilq2bFn0Ae2C
CuKjkL94EtPo3bs3bsFww6APAAdYv3698idJgbs7TO2yxGwlbGiJCBOOB5Xd
vHlzSEgICi+uoy1kB9yFBrz99tsjR440DDSQVcih9eXE5oTExIeYBwV/8CF2
wV6PjaCwpgoVKujzF0NLtKgnZEOjRo1SSAVNwPOIJ70X1o8ePfp/WYBKadoO
7enXr59mIo9a4U/IzkhwxASEgAis/N+yZctevXop4/8kQYiiUKFCRGdlelQB
jprolisXkCAlsvI1a9ZortOhyJBQjgARo3Id9RBzZHQrbBZl0JdJsonX0vt/
zwA1QhvRcMPBalJafkvRYQW0KCAgAH0jYmoGCYWDsjL5SyS1OE5LPkLqp9ZM
cbFhw4Zwb9fLoSNg+61atbJlysOckBCvISSa4Xp3Dc1LNRfgVwYOHEgGBIPV
/BZu54MPPtBQC7GAJF++fOHh4UQWTUgifpFbTZgwwbP5Ar5lsWn4Z9IBK9Pu
9lqiw7mEHU4s8bcsdOzYEeapNATbEZ95ODg4mGbqf4hvde/effr06dZX72S7
qNWZDzEJCtZ9CIajnpt4tbBRT7A1UoywsLD09HTDu4aW6LGeOLJ4RdOmTcWi
aw28F9apP74rT548RE/FudG6jRs3jhgxwjCF4aJwhvoBGWgS/hPXqlzZvXs3
ddu+ffuMGTO4lZiYqJ6GJt2rUqWKevQp14DWzZw5E23Uz6MJ5QkNDdWPEtMF
0M42bdrovSUOZNKkSaicLeuXkDlF0S9i7dCjR480bBa7piaa0Tw+Dxo0qEGD
BqmpqSgAGbp6aSth4r333uMBz0gFetW5c+fDhw973ChHVqxZtWqVpi1iPQNt
cb0ccodGjRqpGaMVZLvLBpr31ltvaUzbLUOzt+b8YkpKilo/V69enTdv3piY
GE0gu3r1atWqVQ8cOKC+KATOwyhY7dq18S3q3TQWF5CcP38+IiLCrY3qGpw9
exbpaersOmyxRNclbGiJjiw5lChRAketL3z9+vXcIhrqbx07dqxatWoaxu4Z
siUkzmpuEhQs+hDhWsePH+8Pi6Xt9diHDh3q0KEDWaQjK3vVc3JDS3R4qieO
rESpRYsWI0eO1GesXg3rVPX111+nYhcvXhQF8nNDhgxxloacOHGCyuzatevO
nTuac5mSk5O5pexRokfIgwhbeA9CbccsYIlfffUVlohU27Zt26VLF37oiy++
yH0bAL/99tvixYtHR0drAsqTJ0+I6RgdTU5KSlKvbYC94C6mTp2qH+yif5Gk
LVOrOJChQ4cqY2KZmZn8oj7X3rBhQ/Xq1dWj2aQtJC+oKD17/fp1dAYvitvZ
uXMnvYlic4XYevPmTQ82dzx9+vT999+3sjcWwcLY9aFq7969QUFBe/bscb0o
NLly5cp2LXLIlpBgDpgwBq6+6Lqh2V5zaGHBggXJqhStwHcFBAToXT26HRkZ
2b9/f7XXIjmierhQR1acRSvQllu3blEsrVi8eHHp0qXxn/wpHKxbOH36dLNm
zTzYaqoApgelIZIajkNmC1ss0XUJO4wskWcmT55MALp9+zYcQx1TCOV473ff
fVfvwOkjbkESbFmz58q2X8OamwQFiz6E5z/77LNRo0b5w4JYGz02roCOU0I8
AXrHjh2aZwwt0TM9EUCY8+fPR0tx7+rr3g7r5GUUnidPHqISv4WlDBgwgJTZ
WSWhoARNnCRqo85n+e6nn36q3rkmZpqioqIQEfUk8R88eDAZHCJ6lIV69erx
o999993cuXP9QYXsBZ3Vr1+/wMBAXI3asjIyMkqWLEl8hLEgTHXD0RmxFFBf
GlEVLipIoxUgdrSld+/e07NAl8HhDYdwSaMIHOoBPWoOxdq6dasjazSyVKlS
hD8uord8HYUMCQlJT0+nvWlpae5WzDohQXqiJuqLsBSUUD+YaQJ6BBqJWdk1
9kvaAiGBVDh7AOto3749naIepXTd0GyvOV1PoqpQVrwNjk5ZVK/BsmXLQkND
lUU7oubly5cXVxYtWkQr8KUwk6+//prKf/LJJ7hB2jVlyhR9E7KFdUICcJVk
YQjcA0HZYoluSVhvifh5tJqAgjuNi4sTc/cCYmHA8OHD9R6Vx958801lx6hF
iDMxKNCkE/U1Nw8KFn2IXxESuzw2eQdpIFaDl542bdqYMWMQIBRF/6TGEh2e
6okCiqpUqVLFihXVEzfeDut0Ynx8PIQE1SIdI4aaD7agM/gTWoerUTNt/bw2
rAxuJtZR8CurVq1q0qQJgoXg8SfNoQnEILJa671mEZA9epPeiY2NRZFsWYOE
z8Q08ubNq1FLfouQQXJBWFGLGpnMmzevXLly+n1YuHH0EP0xXLWuBtpCB+H8
ly5duuQl+Lxx40ZUha6Bbeb5X7z22mvqNX4KxEiOesSVFB7lFFkt3d0nC1RM
5ONoO+1C+dFGD9YrWiQkIvUmN0dWZ8+eTUxMRJn5QNZAHqq2xGxBB9WpU4fe
MR/4RSxQyk2bNqlFDVauXCmOeaFK27ZtIyHFCpAz//NZ0DkNRCJTs2ZNdZx1
3dDcrbkjyzYxw+XLl6trjgmIrUlirTLcBptFpCREkAoSJcOMFd8YHBysdBx2
3bdvX1oqjAjNR4uwcZyMGLuGXHEFP0Cc8mDZm3VCgjDpBShivnz5kIBbdXDd
Em2UsN4S+QCdQ7H54pEjR9QPi4FZw4UBqamp9FS2Z2qZ+xBH1mC+cN3IEF4H
s8Kr/P3vf3el5uZBwaIPsUhI8MbYzvnz59UXyfTRbbi0W2XapSeZmZlVqlTR
eGwyQcNjXjSW6PBUTwTEqw3oPn6RhE4Z6/BBWIfH0kZ+FwfoyjAmrkY/znP9
+nUiL0FB3SIUUm1i6LPmi4Qh3x/qogbeacGCBbVq1SIoi3ZhDt27d1dG/ukI
+KFbXgtFWrhwIW4Tv4dnRrADBw5Uhw/DZRvUpGvXrtijXiDkccQg9WkhevAM
/PlPf/pTHiMULlxYs245W6BaRD31O2v4dfpL3QpMWF0l8Uo1zyZwLRIShDZ+
/Hjybkw1LCwMll6jRg3yBT64xUYArpVcVdnprwfN3L9/PxHEUNTAgxWbW7Zs
KVKkiObFEC4amus1F1/HvcBCDWuOC1VGRxEpwQvGxf8mQ6/w57JlyxIIFH0m
lKgZFJpJF6i1nbuaXUWuwyIhOX78ePPmzbEULJRgimt1a4uNK5Zou4T1liiA
DPWp07p160qWLGm4MGD+/PmlS5c28fA+8CHZBgUrPsQKIeG7ZPSoRFJSkriC
lhJtO3fuzEUszq0JPnv1xEXoLVHAXT1xZGWX/fr169279549e8iRAwMDlUki
H4R11GbQoEEIITw83K3jGlCblJSUffv28YHE0JYRKkPAWiFLVVwGfobgnm2H
IrThw4cjcPWpNXRrxYoVlc1QhB79OkkT0PVkBGQNMEn+RD4FChRAT5zts7t2
7RrlI3ZoITUhE9H/FupRvXp19XkUGvz888/t27cnYZk+fTpR6YcffoBWBQQE
kF+jKgQIDyxUbDavXLmyb1YdWyQk9Bq1VeyOD4iR/z/MgltDXugzklS27WuA
JHFcb7zxRmRkJHEEN4Xm8zz6SY/Tj54Nr5G/UMiuXbsM77poaOY1d2QdYcR3
IWxQZZgbuXn9+vWDgoIINNScmOjBkIU4mgbK7Ztxco8JCU3buXNnhQoVxNwZ
JdSuXTtfvnyJiYmuF5KtJXpDwtlaIga+du1arB6H1qVLl44dO+qnouidoUOH
0mRn64FzgQ+xQkjE1rDixYuLFb8PHjyg4fQaRt2nTx/oq1tH570SPcnWEl3R
E0fWkrZ33nln3LhxyISiRo8eDTfo0aOHz44Lw6mSNeTNm1e//9cc4qySAQMG
HD58GNmqV9vai8uXL/fs2bOlO4BpmG8PRFWILPnz59esQEbssOLy5cuTOsFv
J06cqN+5ZlLmnDlzgoODlblg4myjRo2IX4ZLCMQ5yeTauFnMAV0yHKhEQyhz
5syZhuIlAsJmS5QoQfanXKTt/K7FE5gTEhKKFi1qy5r8bGGRkBCvDbncwYMH
SQQM98o5w5o1a3DL6tMR1di8eXPBggXj4+MVByUWlmM7VjawX7hwgR9dsmSJ
4V0XDc285lBfuDqmoQ5JKCoZscebcB0vk8E2bdrYdTyOOTwmJGfOnEETCFii
pQiQyIunHTZsmOvxy9wSvSRhR3aWKFZNo5mzZ88mszZMe8Xbc5o2bWqYcuYO
H2KFkIitYSSStBpjHDt2rAcrrhW8Ej3J1hJd0ROaHxER0aJFCyV6YnFUzHyx
kI24d+8eqkhV0VXMU7NM1xxIGwWePHmyOK/Jq/W0HeSYISEh+mk+lHnEiBEi
vly9epXWue5pySwoMzo6WpGhKI1ETJx7pgepPbyIPIKQ6syOqGqRIkWcrUbb
vn07tGrevHlq5aco4hdGYeW4zuXLl0PanQU4j4HhEFAe/C8w0vDwcKT0QAfN
CKEe3CWF0UySCmRkZGCDbr3mCTkjbcMhCDoLT4LBarw6qXdgYKD+2BnXgaYV
K1bMmQdz0dBMak48wrRJADVHWOOHK1WqpN7u4S4g8DBJZ5HOY9BkXKJeGfBU
DRs2pI2a62iUyayHOJSSpFWdqsN+MZxevXq57vFMLNF7EnZkZ4kkvGRVMTEx
K1eudJaF8UxEFgzH0nOcD6HLHj16pNGB+/fvx8bGig0pmluEfvNexnvg82kv
bB9nYlGZX4meZGuJ2eoJvU9ORMKVnJysXMSyatSoUbZsWXfPD/QA9OmgQYPS
0tLEkfjETeKp4XvTchnEWZcQMJy8hpGKFyu/8cYbdIo45t31MuPi4uhN9fpw
BDtlyhSilVvbTjU4f/48UdXwTUZit3jlypXFDJECtLpr167mU8bZgggLNzZc
+e8xYBetW7cuUKBA/v8FAqc70MD8OmhWaukBwxk3bpxGAgInT54sXLiw4U5q
Q/w36zW15HT6uC9uqadTFaxfv/711183X7xhDpFSiZe/eFaCSc0dWYdv4CHx
txq3zO+WKlWqW7duHrzMRUBs/ROvN/KsBEOcOnUKH6hXBuSMntALmuto1Dvv
vONsvRB0DjVASdTGLnSD+OV6Qm1iid6TsMMOS3z27Fnz5s3btm2rT69ynA+h
E2fMmEHf6dUjIAv665CNMWPGOOtoYTt5slb4V6tWTay4NvQnLuKV6Il1S8Q5
Y0R169ZVr3YQB0siFm+/co4fGjZsmDKVAEMT6/SseMWcAmywcePGOLGUlBTN
LcFViI9//etfp0+f7vrEGWU2adIEGaq9olhujXJaOQxZ8O0FCxbob0GzKVyv
3mhUnTp13nrrLSvDrcuWLaNw37wH3MqUDQ6TWGM4kLVp0yaxmcL10shraLV+
14Bw6fjtO3fuqK/TxWPHjnV3ulODK1euwCU0Kaq7cFZzypw1axahXHOkgOPl
gRj687hch8jLwsPDfXOUkAdTNmIkH4veu3ev+npqaioewK0zrp1Zolcl7LDD
EsUIifq9sQpyjQ/xeMpGLCApVqwYtkNjCQo9evSg1wgEnu2gfyV6Yt0Sz5w5
ExQUFB0drRbgw4cPa9euDWX1qoFTOB23ZcsWxRjFyXIQklq1avlmtsh1pKen
lyxZMm/evM72NWjAk9iRyfYKyF7VqlVDQkL0o5HIITY2lkKIPprQYw7KrFKl
Ciqhjox8bt++fb169awYNZWk+bAjvecUJyroX9Ry4sSJQoUKOXtPgSsQy84x
UuWNPF6FFUJy8OBB5YUvapAyREVFmSyrMMS6dev4yjfffKO5TsYUGhqq6V/H
y7TC2ZtlXAQemx8Vb6fyGM5qTqD5y1/+QldqBk/EmB5B2fDdSS5CnHXQrl07
36x584CQiBOG9c2HpmIjhjN9zuDMEr0qYVssEVsg5pKF6dPnXONDPCYkJOMk
GmIBibhCh44YMSIwMNCzI4VfiZ5Yt0QaS5M1AztUNTg42Kvn34o9kvrXT1+4
cIGfRjlteaeYjYAYQFaHuoOEhAQTRgdXqVatmubkBwFBSAyFQCaOwg8bNowu
Q4fnz59Parxx40aRWYgy0Td1osFXypcvj7JZ6U04KvHO8BCbDRs25M+fXzMf
JNbKovaaPfVugQqPGzeuevXq7m6b9QweExLqOW3atFWrVulvidPbevbsqcyb
m/egwKFDhwjr+kOY+S6l6Uf48SGkNhYHN9LS0kipNK9ddhfOak7runXrph90
Je8ICwtr1aqVlRlz8ui6deticX67y0YcSgmZVA/CE6B79+7doEEDZQkZSrJm
zZoxY8bgG2/evLljx44JEyYQU9QrD51ZolclbIslUgg+wfA8vVzjQzwmJGIB
iYZ6LVy4MCAgQGzCIp2cM2eOyET8Vk+sWyI6gBw07ybevHkzrkm92tle0OSP
P/5YvU1AAUZKPM2TJ09ERETuO8tdDVSrc+fOlSpV0u9HgySjM3puDOmFqPA8
GXGTJk3INci7J0+eXKZMGXFMDYoKO+3UqZOaoK5cuRLubWXBtii5TZs24oRe
za309HS0RXPqOE47JCRk1qxZVlgQytC9e3fDMV5vwGNCQvW6dOlC12gai9Ci
oqKqVKmirInKtgcFoDHFixen4zQ/xLfES/rUhsNFRIS9eHywhgBBAecvTlTz
GM5qLg5eq1ChgnrEj4vireIW5/fhaaVLl4baWSnEdXi2ywb+iUWo8/RLly4h
EPE6dcfLl62Lg/WmTJlSsWJFKC5xik5R7wt2ZolelbBdlrho0aISJUroByty
jQ/xjJCIBSRkoNu2bVMuirS0UKFC4kzUkydPisMf/FlPrFsirrJkyZLq5E5s
EFbndDYCeZ47dy48PFzjgdUP0Jy8efOS8elDA3eR/KeffgoH40NGRgY98skn
n2hOc8opIJEsWrSocgyOI6uBp06dIplCZ5DA2rVrUWzULDMzE51JSEgQ60DE
obvirDOyYx5Q1kXv2rULFVVyCjSEJ3F6FtfkCDU2nBRAT0j0+vfvr2g+nrZ+
/frqQzk8g2imxblv1+ExIUGTIdj0mnprIaySDiJfUJbuuNiDjpfHSxqOVK9f
v55eUNb4PXv2jN9t2rSplVV/jpfez+K8nsO05oQhElUl90EhSXygyvv27bOo
nF9//TVhzsr6GbfgGSHBhGvXro1zE43FWKKjo/v06aMESkLM6tWrxbsmcXHw
WELG9evX586dq1kS5swSvSdhuyxRnOSpnxTINT7EM0IiznlAMmoHIkKh2LPG
AxQr8hp/1hPrlogbxC7ww8pAzY4dO+rUqWP7rm06aNq0aTBeZRnGm2++qeEk
t2/fFufECsAYQ0NDybYUKSUnJ4tTrGHUUJrBgweTcjZq1Khbt25WdrS9KtAu
WoS9oDlwBrSLFi1cuJBY9uuvv5IIt2jRYsKECTNnzhStw2yFKFBRtFfJrdRA
zsQsMoIVK1bwQPv27fnTFmOEPtF9htzv3r17UVFR+BMCK7bfqlUrtMj6+DnZ
Or1s8gYWe+ExIcHBrlmz5vLly4MGDcJvCCE0b96cz5pRC1d60PHyJR2Gu+dQ
/nnz5kVERCxfvhx6QxKE8pgfd+MK0DfKdOtADEOY1NyR5a9QafwA4iIWR0ZG
Ojun0XUIv12zZk3fjMk7LJxDAhdt167dxIkTsQ64qOacImxcDHxBUVq3bt21
a1dnE/EmlugNCTvss8QHDx7QU/qTPB25xYd4RkjEeWL6SYG7d+/Smx999BFJ
N2IRbtxv9cQuS4RDkt/16tVr+/bt8fHxHTp08M2CZHfx8OHDuLg44eiOHTsG
ddy5cyedsmTJklOnTr3q2nkO1OzKlStoCPRMbadoHR3BLb3xQmiLFy9usmuG
xPnkyZNHjhyxHqoUPHr0iJxFSfH0wEUfP3782rVrdiUjcKq6dev6bHmzZ4SE
xi5YsEBoIF6ILIauhCebCyHbHkxLSytfvryzA/FQe/zMuXPn7BrGJAGpVKmS
lRcLKjCvudB2MmVnx3W6CyRAdokH89nrzKwcHS80BAZrMqLFrXLlypkcXGNu
ibZL2GGfJYo3GxJGnU3H53Qf4vGUDU021KgXL15g6YaHbPubnthriRDU1NRU
XJyVvepeBQJU3O/nn39eunRpZ2eh51ZAxpCAOOhMGV3PzMyECftgl7R4B2LL
li3tPX7KGXBZpJO+3ABOlCdBM3yLpQmo54QJE1xMClzvQdgRKcyMGTN807ML
Fy5s3ry5LfTVlzV3ZKXA1apV82VKcvHixZ49e1pcsaMHma8oE1pYrFgxsfWG
5DcpKUlzeHKOtkToXOXKlX0zye57H8IPLV++nN7x3gyR3+qJ7y3RT0CPREZG
+uzYAT8B7Kts2bLkF3fv3g0LC+vYsaMYuyM9P3nypG/qcPv27YYNGx46dMgH
v4WhEbLFa3z9GTdu3Jg0aZIrM4bu9uDu3bsbNWrkg+SOTKpp06Y27mvzWc3F
NHq/fv18c2i890BA6dGjB7k8zHbkyJHBwcEi2zp69OjixYv10S3nWiI6P2zY
MJMjwmxETvEhrsNv9STXWKLrgO89fvyYhv/00081a9ZUdiXTF3+Ek11x7xER
EaNHj46NjRWrRGD+fN61a5dv1msJJCYmdunSxduUG6qJ3a1YscL/z8c7cODA
2rVrXXnS3R58/vz5hx9+aDJHZgsofOnSpTB8G+m9b2ruyHpRAszHS+/T9CWI
zvjzTp06oRJLlizp27fvkCFDSG9nzpzpzNZyriVevXq1cePGVjbzuoIc5ENc
h9/qSa6xRNeBYIOCgtLS0r788suCBQuKnUE4efJTi1sDcgqwLMiYmFMjhN27
d8/382sQ4FGjRi1atMh7Zk7JK1eujI6O9s1OPStQLyBxBe724M2bNzt06OBV
140nadeuncVd4Xr4oOZEHGjPpk2bck3EEe+0FZ/xaeZBJEdb4o4dO6KiorwX
JXOQD/EA/qYnuc8SXUFKSkqDBg1gg1OmTJk9ezZedM6cOTExMX+E4RG/wuPH
jwcOHOi9hetwTsq3cUmeV4G9e9UMT58+3bt3by+9Ver+/fv9+vVzd9mMi/Bq
zSFyuIKEhAS/XfPmA+RcSyTTJ0TGxcV56XDdnOVDvA2v6skf2RLRXkXHnj9/
TrL5h6Jk/oOnT58mJyd746QaupiSbV8xmKMB5T5+/Lg3VD09PV3/3hkb4b2a
37lz5+DBgz7bWeO3yLmW+Pvvv5Nj/vjjj7aXLH2IHt7TE2mJEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISORH/DxFwcew=
     
     "], {{0, 53.}, {731., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{522.9999999999991, Automatic},
   ImageSizeRaw->{731., 53.},
   PlotRange->{{0, 731.}, {0, 53.}}]], "Input",ExpressionUUID->
  "4b3ce3ca-bfa2-48ee-b029-d78028d5c208"],
 "and also X-tilde, W, and W-tilde\nY[x][i,j,k,l]:=",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdwFdX+x+kdI5KA9AcoWCiKgrQHCc3QmxQVQgwBkRIkhBJqBEIISA1N
OkgP7VEdEAhI11GBB8JApAwgMj4egzrKPJ37//zvGXf27d672bu7N7m573xm
dMIte397zu/3Pb/f2bNnq8YM7zYwX548eUYW4X/d3hsTER//XmL3p/lHj7iR
H7wfNyC2bVzCgPcHxDeMyc+Lb/BfTf74/79dEolEIpFIJBKJRCKRSCQSiUQi
kUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgk
EolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEklg
8Oeff96/f//8+fM3b97Uv/vHH3/cvn3766+//te//pX9tkkClt9///3GjRs4
xqNHj/Tv/vTTT3jU999/n/2G/Y9As3/33XcXL178z3/+k9O2WERqi18xFvbA
59dff71y5Qr2P3nyJKdtCU5yr0objz45BRG3Y8eOlJSUX375RfPW1atXExMT
8WfxTyzv0qVLgQIFkpKS+Jbmw/v27WvSpEmhQoXS09Ozw+5cyG+//bZw4cLV
q1frWy9LzHeT49y7d2/u3Lnjx4//4IMP+IMANP9dhsu1a9fWqVMnJCTk1KlT
mneJ4qioqCJFisTExOTelMBxbt26NXbsWMLNwnd//vlnnGTnzp3Cxx4+fDhq
1KjSpUsTm//+97+dtlQLHr5ly5YJEyYMHz589OjRFy5csHYczmLmzJnKWUht
UaBBjh49Sgvb6U2fhN1x7OiJgCJizJgxnIXL7XLTp0+vVKnS888/T2buB3tz
JXb8RDPWZINK+0k3jEefHIRUkMbs2bOnPhXcuHFj3bp1v/zyS+WVgwcPIuB7
9+71eKj58+dXqFDBf6N/7iUjI6Orm5IlSyI1FlzXp25ykGvXrkVHR1+8eJG/
id+OHTu+9tpr1A7mj4Dnx8fH16pV64cfftC/S3yVLVt22bJlThmce6Gh5syZ
w/AXERFRtGjRf/zjHxYOkpmZWa9ePXJ7ZfT88ccfX3311WHDhnF8R+3V8uuv
vzIUrl+/nh/i1xlP0QoE0MKh0HncbMGCBcpZSG2hH2NjY7t370528eKLL5K6
WD6Ur8LuIPb1BDZs2ID9SlVCbhAZGUngMHY7bnCuw76f6Mcav6q0X3XDePQJ
fDiR5OTkKlWqeJxmfPLkydtvvx0eHv748ePsty1XgP+/9NJL1pKunGLJkiX5
8+dPS0sT/1y8eHG+fPl8ij4it3nz5viGx8n/devWhYWF+SljzKXs3r376aef
tpZ06Tl79mxoaOinn37qyNEMICMqU6ZMu3btUFGXezqC3+3cuTMabvPIUlsU
kI7BgwfbTLo0GAu7s9jXEz2YjfEpKSnZME2XW3DWT/yq0v7TDVdWo0/gQx3R
qVMnagr9FS6XO6N4+eWXR40a5e+COqfIzMxctGiRx3M3ibekC2dDi6gBbdvo
GY6/dOlSa7MEWDV58uRLly653OI8bdq0IkWK7Nq1S/nA/v37KZAN5I4gKl++
/Pz58/Vv0Q5DhgypV68e1ZkF2wIQ2uHAgQPkS3b031vShQcySPnqgXQ9VarJ
GXs79mMYVeqOHTvEd0n2OItBgwYp3m7NflcQaYudSBR4G0ztaIixsOvJWT3R
Q7wwTB86dMiCPYFJQPmJGZUOTN1wGY4+ltGokDdR+sON+PtPN+LFbdu20TWz
Z8/++eef1R+m9eLj4zlxzld5/datW88999ykSZP4+p07d8aNG9e/f38cXhzt
iy++KF269NatWx08u8Dh+vXrb7311pkzZ+wcxGCm66uvvurevTseov+Wr92k
gShLSEhYsGCB/QGLoGvQoEH79u3V6wT4OzY2duPGjd7CbcuWLTgG7sHfx48f
x9phw4aJqH/48GHDhg0DYUEXjXP06NHRo0cPHToUubOwzkSQnp7O6dhc7+0t
6aKFEczhw4d71B86IjU1Fe9Sj1k0bHR0NI1MUzO2Llu2jJidMWOGNwVzxH6X
uz0TExMrVKhw7tw5k/YL/vnPf6Iw/fr1U59FjmsL9XJKSkp4eHhERATtY81D
HIlEgxkMAw0RWBN2f5yFwIKeXLx4McGNkjbwMSwPpgVdOegnHscaMyodmLrh
Mhx9rLFp06YXXnihUKFCedwUL168WbNm58+f13yMTiSI8ubNKz5WrVo1AorX
P/vsszlz5tAFlSpV2rdvn3KCa9eu5RwfP37crl07dYYgrvsTtvzEhAkTyEAa
N27MZ8SV9Hnz5tFWBiGfe8GXyLjWr19v8zjGlxfxdn7lwYMHmtd97SY1+PCs
WbPef/99MXNrGZwWKa5fvz6H0lt448aNtm3bCsfWGzBy5EjOGknEXXGSPXv2
PPPMMwsXLnT9tVTgk08+sWObfRB/IpGGYiQlrhlSGzVqZGEd+6lTp1q3bi3W
99rB4PLi77//jviQNWkE+cmTJ2Rchw8fxlXq1q2rLGAQC7pQUXpt2rRpKBL9
WKZMmcuXL/vJfjqaluzcufPf//53tXIa2y9AWMaMGXP//v20tLRatWop40XO
agux89FHH9F0jPi0Ybly5fLnz+/rFTGnItH4spE3DXHZEHZ/nIU1PSEhxD2o
f9u0aRMXFydciIB98803g2ZBV876icexJkuVDljdMB597ECF/tRTTxUoUGDV
qlXePkOgNW/e/LXXXlMuy+KrxBfuvWbNmmeffZZ2Fq+TBBIOvEuP8PkhQ4aI
2CRmp0+fXrFiRSKXc6ce4TNk42SPLrfm9+rVi58IqBszHUGcOCm0zShwZZV0
4VeUeElJSWq/8rWbNBAO6Kf95ceknYw4q1evZgTHHn3FQWUaGRmpL//FJfWu
XbviKhQdnBqxSXqAfvIuvhQaGqoPseyEOg4BV9f1OHPfvn07duyonlc0c5wO
HTrQRPZNMl7TlZmZ2aRJExF3CpcuXSIxIMx79+7dqlUrZe0Tbct4SoPjV4gn
54jsrFy5Ur9ewin7GfvoYsZx9LN9+/YMkWbsF1+kVqVixUmQ0JdfflmIZ45r
C6cwdOhQZUxHBzDS17lZpyLReDD1qCECa8Lup7Owpifr1q3buXMnJ1K1alUG
aBGwuFPlypU5heBY0JWDfuJtrDFW6YDVDVdWo48dENiWLVvmyZMHvfW49gxv
pE0GDRpE+6hf/9kNJ0ijKW5PZ4m/afOwsDDaXzm1Tp06kdqFh4fT/pqgFulE
QkJCbl90oYcsum7duh4lyFeyXEhPjclvKd4u8KmbNF/s1q3b5MmTHeyUzZs3
Fy5ceOrUqZpjotWIJFWSRvq+++474rdEiRIffvjh3bt31W8JWbCzoIvhz6e8
SI+4YZBqRW02f48fP/5vf/ub+W2L+ArVU4sWLRzZSMo46RKjJMGoTkJoTFqD
tKpChQrKKmWXe0FXvnz5GJUYsAwm5521X4B6P//884ie5pge7ReIXJH/R0RE
9OzZU6iZfW1B9+xcv0btmzZtiqpbPoKDkZjlAmmPGuKyKux+OgsFn/QEDycD
x71xcnH/o8sdLJQVlhd02dcQB8lxP9GPNcYqHci64TIcfeyDHyKtuKLHqwaf
ffYZ7abJuARnz54tU6aMxymy5cuX85ZysVJc94+Pj9+wYUPt2rX79u2rvpMo
xxdd+Amcf+zYsXS0nfXzClkmXSgAabn+A+a7Sc3hw4dr1KihqJMF8HN0OCMj
Q7EHN+bnXnnlFX0MMr7zusa3cQkcA5+ZMmUK/rlixQpFRYmphg0bvvfee9YG
RBGDI0eOtCNQly5diouL00SxWAdFT5m/8efBgweNGjVSZzt2yPLuRcIcXVIv
P3b91SBVqlRR5vk5EZq3fv36+/btQ4uoAb0tp3fEfroek5T1OYzmSHfx4sXR
HzP2K2A/rsKAK/5pU1vo3I4dO+7fv9/a113uBIAhYMiQIZZvgLIfiQpZDqbe
NETBJ2F39izs6wm9KQZWMfEoFnRhP2dhzR77GuIggeAnmrHGWKUDWTdchqOP
fa5cucIxybsWLFigeevLL7+kxTzOp+Fp48aN4yzILelu9cBNC/fv3/+NN95Q
sk1KCezfs2ePy33bL/3Cj16/fh01E3trlC9fnjbhn+LOlOCAWGaocmrRkZkt
I1auXFmzZk31vds+dZMCAwRvEVZ2ljrcv3+fakj0tXjl2rVr1A6vvvqqXiTx
edQPD1dbnpCQQAP+8MMPVB/t3WAP0cSHORGOjLRyTAu3vfD5jz76aOjQoZYn
MTDv448/1of27du36YLY2Fjzg2x6enr16tWdWnSUZdJFG/bo0SMqKkpt4U8/
/UR+RbAzaG7cuBERo48oUckWOFNxXzaRi9hu3rxZU0TYt5+foJzMmzcvPyFe
oce7dOmCeB48eNCM/WpjkJpjx46Jf9rUForNN998087+G3jazJkzixUrRrtZ
+LojkahgZisAvYaov+6TsDt7Fjb1xOVeS4O1W7ZsuXnz5s6dO3H1Nm3adO7c
mdNZv369rzuK2NcQBwkEP9GPNcYqHci6YTz6WDZYgWO+++67efLkadGihdrx
aCgs9KZUYqEXHU2+mpiYqE7MxHV/5bZNURFUrlxZ3PNCMklCTkJCQ33++eec
3YgRIwhkAmH8+PGOz+PlINu3byeb/fbbbx05Gi1DFAwcONAgxilzGGLUlwvN
d5MaPvbCCy/Mnj3bjsEMzb179548ebKiAyhb4cKFKRz0tSEfbtu2ba9evZTZ
XXFJnSMQI7zbunXrmJgYbCaukV+cH72l7KX0PnDggK+22RdMdJ5416wb4byS
kpJwdf0FGm9gABka4u/UdQpKOZIu4+0BKa+qVKmivgft3LlzZcuW3bZtG3UW
0YpVvBIaGrpu3TqX+yp5uXLl0CVeJIVQd59T9qMGyJoy58DAzaCpv0zgzX4B
ho0ePZowETJiX1vsJ10u9xXGatWqVa1a1cJFRkciUYHOIt45oEFT6DVEwSdh
d/wsbOqJsBYLcQbSANJCZESsCiNaU1JSfJWCgEq6AsFP9GONgUoHsm64shp9
7BisgJzivWi1st09CR6t5/GeMgGNho516NCBhFCTVaLbyLXSHZhNUkcSLhaT
k4RQUzNgMTyJkhn/5xXkka/k7IJGwpnRKi4ujlBatGiRnSVz9CPHQaM83g2k
hv7FOXGe+fPnz/sL/l61apXoX1qsX79+DRs2LFiwIH3EKEDXe3xAg5ivUM+G
me8mNfv27QsLC6NasWk57k3FNHXqVA5I3BHF8fHxHqNMVEnqq3Li6jzy6HLr
2+LFi5s0aYKTbN26VdycTsDiomimhTXS9gXz5MmTycnJmI2dn3766erVq3kl
NTW1du3aPi0RIdDq1KlDyGd5kYIf4tzT0tLmqUBGdu/ezcjCGWEGUUajUUDx
f/4WKZMeSn76V51LYAbtSWdhiVCwDRs2kCeImgs5fdsNLq2pTE3aTzvjb7SS
2lWAKBN3eiIODHz07+bNm/fs2YOTR0REeFzw4NF+gX5hhk1tcWSmi0wVG+iU
Tp06+Tqd4lQkIhfEF+eCgCAjiAmS8s033+gPpdcQBV+F3fGzsKMnLvdSGTJw
8gHyQ6Qe+0WbYLOF0timhmAAZ7dy5Up14GDSiRMnCHOP63kMCAQ/0Y81Biod
4LphPPoYN7JJxP6ByAINTiNgA760Y8eOLL9Iy+vvy1u2bBlVs/pKFg2unvYk
TOgOtfG8a3l3I6fAY19//XVOHNvo6xUrVtSrV08938gZmZ+85Rzpx27duhls
jctnJk2a9NRTT+XxRMmSJfVXr4whZvEc/ZPyTHaTwsyZM6li9PeAWLCcXkbQ
yAe2b99uvHZi7dq1pUqVUtJ+vojZaidBFtT1i3jSrrUFFfaTLlqPM8IfoqKi
CE9KZiosjxFtDIJWunRptNfgM1euXGG8zp8/v8fWJrH3tfhi8KpYsSItoG5e
WpLjKK/gt2rl5126T+/MWdrPASlkatSo4dF4UK9yJ/RoVXJFDmvQNR7td/21
UmLu3LnqF+1oi82ki9Pp06dPr169tm3bVqlSpUKFCm3atMmnIzgYiSbxpiEu
S8Lu+FlY1hMBMqiZA6GLra25takhpOIkNriHcrUrIyODDIcWJtINNhPwSOD4
iWas8abSAa4bWY4+9hFbUnAir7zyyu3btydOnPjJJ5/4lNERfXzlwoULOLC4
bdMft3VgEqU9Bc5zpqlZsyaVkXFccFjEEB+YPXu20o/iqmutWrXEfBcBTlVl
vlDlW/y0siGMnh9//LFt27bE3eTJk3EVmo6KIF++fBRidC7taSGWRT9Wr17d
mxyZ6SZ+d8CAAbVr1/b2wCl/WO5yb/jDMbds2WLhu75iUzDxjTFjxij1FP8U
x0HnaTefVilQ2nDWyrY2eo4fP44g4IdIyrVr1w4dOkQtEBISgkgidzikhcpL
bMAVHR1t/8qIsf0cnzq0cOHCPXr0oKhhUKBE5fNvvPEGtST2W9tKRW0/Pr93
717M4A8O7uAFfZe9pOvq1asUcR9++CFpCXYOGzYMge3evbv5wi1HIlGjIfaF
PVj1xKaGLF26lORK7HaOgCxZsoRBH39LSkqKiYnx6VJ4IPiJrwS3bpgEbScN
phbr2rUrWYqv99qI5btr1qxJTk6m9PY4f2If/HzDhg2tW7eOME2rVq1oUuP5
kJMnT5YpU6Z3796ariQuChYsKK7RELzqBwFnCZIbFhZGS3rbmZkahx89cuSI
8iL+36hRI5vPtUlNTX3mmWe83cNipptQgA4dOjRt2tTjFUz/Wf71119j27x5
8ywfwTw2BRNJZDDVt8+9e/fIjiZMmGB+/g0f46xPnz7t8V3yNwoH3Fgtp198
8QWhamcbBDENSxzZ3z7O2H48rVixYowjip6IW8aKFy9u58EravvFLH2/fv32
799P4zt7k5HlpIuIaNmypXptyYkTJ+g143UyGnIqEtUaYl/Yg1VP7GiIuMcZ
f2DY5WQnTpyYnp5u2W8DwU98Jbh1wyTIC71ALfbOO+9YmKSiDlq1alV8fDwZ
jrOzcP7m8ePHlG8lSpTQLP4ExLZIkSKjRo3iMxQFPs1gkDaXKlXK28pGUkeO
PGPGDHVHE4n4AKmanfsj0tLSQkJCvDmzmW7iMy3deJx195/lly9fLl26tLc0
1TKE7f379+/+N3fu3KFbKfco0zRvkd5kWXGQ9kybNk2f8+AnzZo1Y6g1PyOK
h+AnHosstDQqKio0NFTzAClsrlatGjJr+aGuv/32G7mEN5X2CQP7MzMzyRhx
JM2vbN68meJOrJewhtp+vIXRZNy4cWKTQ8vHRPTQYY0zEPLh4eFr1669q0Nz
9UENrzPWM2owkiovcvAXX3yxYsWK5h8MnVORqNYQ+8IeBHriuIaIKZcaNWrg
IWRcdvzWFRh+4itBoxt2wE/I92xmkrkRWp6Mq379+vqFHwcPHqRBBgwYQJt4
e4iAN8STNz0+K1Ns3VO9evUbN26oXxe3uxpfms8SfJICyuAOiCx59OgRmUOb
Nm300yB+tVzMDYqHuFk+iAa6bMqUKSVLliyiI58b/ev0eFxcnHH1SiN73PqJ
UamBG5PDE2eanJxMtegx6lEzdAlt1Ag4DVWuXLmuXbta3vpJ3AQtHqpo7QgC
A/vFWx5XMS1fvrxgwYLGy9iMccp+BWK/VatWRYsW1ThD4cKFqUMLFCig9xOD
9Xsc7fXXX69bt656rZ3wDcZZ84/5y6lItK8hanK7nvhDQ8TowHdp5+joaDKQ
c+fOWb7Wn+v8JGh0wyYnT56kAX3ShCCALk5KSkJXhw4dqs+pDh8+TD7Ws2fP
ESNG+OqcYqZr1qxZ+rfOnDlDxOkHUyS6Tp06Hvf6M8+CBQs4uPLAJguIuiki
IkI/4elXyy9dukQYaioyP2Hn0gCRm5CQ4DFNwkkqVKgQGRlp/rIdekuT6u8P
wsJp06YhMvr9nfbv31+sWLH4+HjLlxdFxRceHu7rzXR6vNkvBgLUXrMzPzYP
Hz7c4+6F5nHQfmOsXV48depUSEhIbGys2ruoamvXru3TLGhORaJ9DVETrHpi
R0OWLFmSP3/+OXPm4Ay0c2JiIu1AK1l7gk9u9JPg1g2TpKWl5c2bl/LZ8jWL
bICWnzx5svKQbjNQpXp7tqDLPcsaExNDxeHxEbSff/45vVyuXDkLizqos8qW
LYu1+pBfv349g6l+K9qjR4+S4xlYmyX8VkpKSunSpb3dM2sGHKBTp06NGzfW
lwP+s9zlviGdMLT/OFEz2BHMO3fuDB482ONc1tq1a2kfkiXzOo/jcdaUPJrX
Ecl33nmHrtRkd4QAEl20aFHx3HlriB11SA7tb6XozX4q6ypVqiBxmvxTzAKp
n3FmAQftN8Za0rV161Y0SjPLTT+GhYX5tIF5jkSiIxqiJlj1xLKGiEt7mjmi
nTt3EtQMRtbKwFznJ8GtG2YQO66QoqSmpgb4oz8PHTrEkDfANIMGDdqxY4e3
kxJbtBUpUsSjroqkS3lshAKVxdKlS+Pi4pDQa9eubdq0KSEhgfxKvdqZv/EQ
j1uPrly5kl/ctm2bxhJCAB8+e/asxab5a4femjVr2txhDEvUO8Up+M9yOHDg
QKlSpcxsVGIfO0kXekWw6MOWMrNjx46VK1dW9hO+fv06vzJw4EDG31u3bs2c
OZNibdWqVeqqc8+ePYiP/uEUfIYKSD/zTKfUqlWrRYsWdpZjic29iQ77dy96
s59zp1rp37+/5ifIFYsVK2Zz/sFB+42xlnQRIOgG4536xTVr1uDeymJmTv/g
wYOjR4/mLPjj3Llz48ePHzFihHqLgxyJREc0RHPAoNQTyxoiFnRp8gdxZURM
etBipEkimQlWPwlu3TCD2Knsf3BBFyxatKhw4cL6izjC8ykTNI+OIgMn1mgo
PoD/V61adfHixYQDPrxixQrlY2IbW/HsAM2RMzIyiC/NIypOnDjx7LPPelye
bR4Ctlu3bh7nmX1izpw5ZcqU0Zcw/rPc5dYH2lBseedv7CRdc+fObdq0qWZr
LA6I/VSvy5cvF7Jw9erVUaNGkWtRozVp0oQ69PTp0+PGjatQoQKJuvLF8+fP
h4aG4oSaXxG7O2oenM2LtDOiZHO9DcpWvnx5kkA7BxF4s5+zbtCgAdmp5mFD
OGfLli1tbsrnoP3GWEu6Lly4ULZsWWRBeUXst/DWW28pS53T09PFFp3EFC4R
ExODwzRq1EhzrSH7I9EpDVETlHpiWUPEgq63335bHRqiwE9MTOSsHzx4MHHi
RFFVBaufBLdumIEUokSJEhTpBnfWmJneyY3cvn2bhDM6Olrtw7xIcTFp0qQa
NWqglrx17Ngx8Ygx2mrJkiVEnHh2wHPPPceweOXKlZSUFHXOLwZNj9OhtGSv
Xr2ioqKUfOzixYv16tWjYW3ewi+e02FntY9A7Nyrv4DlP8sxmBTF42PU/IFl
wcQT6HQqzdWrVys1Fwch16pUqRKOIVqe/6emplKWuv7qFOFgNCmZudrTxMbO
Huf5kVAKSWXChJ9bs2ZN9erVDWZuTYLCI9F2VkcoGNhPm+D/ymLIR48eUcCS
r9pZuytw0H5jrCVd9G9sbCxfVGYjUUtERrm5Hs1keBXvHj58mGGRoo/Ba968
ecePH1cfKvsj0SkNUROUemJZQ8SCLs0lv6+++go3+Pjjjzns9u3bV61axR9B
7CfBrRsG0JuMBeRaYpVUvnz5yKXDw8P1eyOYnN7JpXC+kZGRZNfLli2bMmXK
gAEDGFVxTtweB2CY45TFrcEut6KKJBznb9WqVZcuXbxdIN61axcFhWZLZAFJ
Xe/evYkFWg+/bdGiBbJsf86Tso4eNH7unhnu3r370ksv6XfudfnN8sePH1PI
GD9Z0kEsCyZ5NbUGiTQuQQFCIyQnJzO89unTR7OFEXInWu/bb79FDz0uGnT9
9Zgzb7s3oBLNmzcn+afeoTTu0aOH/R3wxCOY6V9Hrh8Z2E9czJgxg25NS0sj
BW3dujVliP39ZJy13xjL+3QxJA0ePLhnz54bNmxISkpq166der0xKqpMec2e
PZvq29sK6uyPRKc0RE1Q6ok1DRF7ijJuah7PyrBClhgREcEAxAfE6qwg9pPg
1g1HMDm9k6thJKWaIBY0SVRmZubp06f1dQGJd6VKlWgBb9MO9+/fp6ago719
gF88cuQIKZ9TReXChQvr1q1r/6Hh4knBpJTe7vJw3HJS3GrVqtl8srB5LCdd
x44doxoVZ42akRQxmBo/RmTNmjWhoaFi1ssjBw4cMHhGNr916dIlKlmnppSx
tmPHjqQETo1HxvZTm1B3nDlzxtrDVvQ4br8BNh8DhIfs27ePc/e2uQdDLYm0
we1U2R+JTmmImqDUE8sawrhAROsHBV7hdbxFfy9bUPpJEOuGI5if3gl6aApx
ZZmIpmART/akNTZu3Kh5pqfYj4Lixf4WlGYg3CIjI53a5+rEiRPVq1f3OE3n
OBhMJtOsWbNs21aXX6SMond8kiC+tXTpUpO3DdLphDkB/sEHHyiXOb7//vtd
u3ZpOoiRvXnz5lS42XMPCyVqjRo1NJcn7JDb7TcAuYuKiiLjdfawNNSDBw/w
PYZCSm/llkZq2wsXLmg+nJ2R6KyGqAk+PbGmIb7+RBD7SRDrhrNkOb0T3JBc
de/enQz/zp07Q4YMCQsLE/O9RMHcuXP10Xfjxo0GDRqIxWD+hvSPwd2nbfMN
ILccOHBgltuEOgKlX9OmTVevXu3vH7IJvT9mzBgzSwvwiooVK1J73rp1q1at
Wu3btxdly6xZs5RHqKvZunVro0aNnJ1e8IiYqe7Tp4/9BwCpye32ZzMrVqwI
CQmh0qdwK1asmFhyT+uNHTtWvwYpOyPRWQ1RI/XEAkHvJ1I3DDA/vRPc4M/0
XYcOHUjy582b9+677/bv359iZ+rUqd6mswiczp07+3uyi9KDbNCnp0NmyeXL
lxs3bmzzxu0sweD58+f36NEjQDasM+D27dsJCQlm7tZBRlq2bDls2LBRo0Yt
X748IiICh+HvLVu2eKyLf/nll759+xpciXaKb775BpVz/NGuud3+bGbv3r31
69dHN8aPH5+cnBwZGTl9+vT4+Hj99IUgeyLRHxqiRuqJrwS9n0jd8Iav0ztB
j3gyu/ibisM4oSK1Hjp06Jw5c/znVxx50aJFsbGxDt7lLdi0aVPv3r39mjES
DoiJsrdVIJORkTF79myTDk+n3Lt3T1yU5yskbMZP7bl27Vq7du38KpioJRKn
vu/SQXK7/dkMoqos0mPowVWMT8rfkeg/DVEj9cRXgt5PpG54xML0jkTNgwcP
oqOjnb0hSM2BAwc4vj/27qDrSRcTExP9tISPNL5Pnz6Or5nxE0/c+O/4J06c
6NWrl/kHIvsElhOzqamp/juF3G5/IOPvSPSfhqiReuJvcqOfSN3whk/TOxIN
Dx8+TE9Pd+pGDDUEF0e2uWucAX/88cfevXszMzP9cfCMjAz947f+l7lw4cKR
I0f8UZHdvHlz9+7d/l7vkdvtD2T8F4n+1hA1Uk/8TW70E6kbEolEIpFIJBKJ
RCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKR
SCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFI4P8AU9h81A==

     "], {{0, 55.}, {807., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{563.6666666666638, Automatic},
   ImageSizeRaw->{807., 55.},
   PlotRange->{{0, 807.}, {0, 55.}}]], "Input",ExpressionUUID->
  "eca793ba-2e38-43a8-a85b-b3fb2acbb5ee"],
 "and also Y-tilde\n\nwhere alphahat, etc. are different for the different \
fermions and holoraumies as described in the paper"
}], "Subsection",
 CellChangeTimes->{{3.8312237697303514`*^9, 3.8312238054582577`*^9}, {
  3.831830903979433*^9, 3.8318309102752337`*^9}, {3.8318309529735203`*^9, 
  3.831830993036606*^9}, {3.831831027229065*^9, 3.8318310557766743`*^9}, {
  3.831831093767804*^9, 3.831831166644431*^9}, {3.832948001575361*^9, 
  3.832948005638683*^9}, {3.8329481851885004`*^9, 3.832948234951024*^9}, {
  3.83294832559352*^9, 3.832948384320031*^9}, {3.8329484297539387`*^9, 
  3.8329484497221403`*^9}},ExpressionUUID->"f1fdd8c4-52ba-4273-b4e1-\
bfd7dc79b624"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cV", "[", "xx_", "]"}], "[", 
   RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Alpha]hat", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "2", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", 
    RowBox[{
     RowBox[{"sigma", "[", "2", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"\[Beta]hat", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}], ")"}]}], " ", "+", " ", 
   
   RowBox[{
    RowBox[{"\[Kappa]hat", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{"KroneckerDelta", "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"KroneckerDelta", "[", 
     RowBox[{"kk", ",", "ll"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8312238071952777`*^9, 3.831223887139044*^9}, {
   3.831224135501376*^9, 3.831224154970333*^9}, 3.8329480406023674`*^9},
 CellLabel->
  "In[163]:=",ExpressionUUID->"45ae1d24-874b-446d-8ab9-d202a202d7a7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", "xx_", "]"}], "[", 
   RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", " ", 
  RowBox[{"I", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"cV", "[", "xx", "]"}], "[", 
       RowBox[{"ii", ",", "rr", ",", "kk", ",", "ll"}], "]"}], 
      RowBox[{
       RowBox[{"sigma", "[", "2", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"rr", ",", "jj"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"rr", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.831831032154211*^9, 3.831831041835085*^9}, {
  3.8318311724108133`*^9, 3.831831201590171*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"9e27690a-1a05-4f70-8320-c71f614e6037"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"X", "[", "xx_", "]"}], "[", 
   RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{"KroneckerDelta", "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "2", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"\[Beta]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"\[Delta]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"\[Kappa]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "2", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
    RowBox[{"KroneckerDelta", "[", 
     RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Y", "[", "xx_", "]"}], "[", 
   RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"\[Beta]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "kk"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"\[Delta]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "kk"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"\[Kappa]", "[", 
     RowBox[{"[", "xx", "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "ll"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "kk"}], "]"}], "]"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.8329480090387626`*^9, 3.8329481641487846`*^9}, {
  3.832948458198319*^9, 3.832948541829544*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"98abda81-27ab-4804-91bc-d42c98aa6ac0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Set tilde indices: tt1,tt2=1 for untilded, 2 for tilded", "Subsection",
 CellChangeTimes->{{3.74748589807438*^9, 3.7474859927542334`*^9}, {
  3.7493829745987787`*^9, 3.7493829930707884`*^9}, {3.7514052692549267`*^9, 
  3.7514053037746964`*^9}, {3.751738034258769*^9, 3.751738035971404*^9}, {
  3.767539285403961*^9, 3.767539286757628*^9}, {3.7675393328642693`*^9, 
  3.7675393381796207`*^9}, {3.831226416603404*^9, 3.8312264306754775`*^9}, {
  3.831827993149503*^9, 3.831828009594923*^9}, {3.831828106415906*^9, 
  3.8318281181020393`*^9}},ExpressionUUID->"8a0bf033-a4e4-4871-b7e6-\
05ad6c104523"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tt1", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tt2", " ", "=", " ", "1"}], ";"}]}], "Input",
 CellChangeTimes->{{3.749383010539157*^9, 3.749383013350893*^9}, {
  3.749383162056017*^9, 3.7493831621347337`*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"4683d8fe-e6ce-4de5-8a7c-5f2ea6a37bfc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "4D, N=2 Vector Holoraumy, both untilded ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox["D", "a", "i"], ",", 
     SubsuperscriptBox["D", "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"1107a6cd-11e4-4031-8a5d-b5ee2fd5265d"]
}], "Subsection",
 CellChangeTimes->{{3.550920278304533*^9, 3.550920282240758*^9}, {
   3.5509221619582715`*^9, 3.550922211396099*^9}, {3.551793495341796*^9, 
   3.551793495906828*^9}, {3.5594927244525585`*^9, 3.559492746318809*^9}, 
   3.559499496819916*^9, {3.7113930579483547`*^9, 3.7113930664148393`*^9}, {
   3.711393103948986*^9, 3.711393104741031*^9}, {3.746807497233589*^9, 
   3.7468075031958065`*^9}, {3.7468296820915112`*^9, 
   3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, {
   3.751405314474931*^9, 3.75140531586872*^9}, 3.76753934580381*^9, {
   3.7675394595983562`*^9, 3.767539483364336*^9}, {3.7675398556290913`*^9, 
   3.767539855771489*^9}, {3.767543491843978*^9, 3.7675434934179277`*^9}, 
   3.768071522713936*^9, {3.831226408795494*^9, 
   3.831226409891334*^9}},ExpressionUUID->"231a1b16-656b-454b-bdf7-\
3325c412556f"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQe8JUWZ/q/iD9RdgrBLVEBEgkqWDEqUnJYgSWCGnJGRJGFAyUsQBCVH
yVGC4MIQBMaFIYxMABwHZggDiyKCYsbz99v861KnTvW5p7urOpzzfD+fcuTe
e7r6dKx663mf93MjD/6vvT72kY98ZNQn/vU//zXiiLUPPXTEUVvP8a//2Pag
UfvufdCee2x00Lf33HvPQ1cZOdO/fvjvH/3IRz7+rz/9+L/+f0sIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBAdjBs3rvX1r3+9tcACC7RGjhzZ+sc//lH1Lgkh
hBBCCCGEEEIIIYQQQgghhBCiAJMmTWrNOuusrY985CND7fjjj696t4QQQggh
hBBCCCGEEEIIIYQQQghRgBEjRrRpAWg77rhj1bslhBBCCCGEEEIIIYQQQggh
hBBCiAJsuummHXqA22+/verdEkIIIYQQQgghhBBCCCGEEEIIIUQBnnjiida/
//u/JzqAj3/8463Ro0dXvUtCCCGEEEIIIYQQQgghhBBCCCF65B//+EdrypRf
t/7whz9UvSuihrz44outn/zkJ61p06ZVvStCiJry6quvtmbMmFFKX7/5zW9a
06dPb/3zn/8spT8hmsIjjzzSeuuttwptY+rUF1vPPfdcoD0SQgghhBBCCFEH
XnjhhdZ9992X+L7S+P+sBwwav/3tb5MYdxkxpXffffdfc+yprb///e/R+xIf
8LOf/az1l7/8pdA2xo0b1/q///u/QHskhBD1gXf/Zz/72ST/+z//8z9bv/zl
L6veJSGEEA2BtceNNtpoqJ7IaaedFq2vv/3tb63dd9+9NdNMMyV9jRw5UpoA
If5/uBfw8/nEJz7R2nbbbVuXXnppa/LkycPeI8Qlnn76mdaPfvSj1jrrrNP6
2Mc+1vr6179e0l4LIYQQQgghhIgBcz3WRg866KDW5z//+Y56sKYtssgirf33
37911113FV5HrTMcj3322Sfxv+V777TTTkmOZCxOOeWUIc/d1VdfvfXee+9F
60t8wIQJE5LjPeeccybn+sYbb2y98sorw36Oc/Poo4+2Tj311NbSSy+dbOO4
444rYY+FEKI80MLNMsssbWOANdZYo+rdEkII0RDWX3/9jrnkSy+9FKWvAw88
sKOvO+64I0pfQjQNYhu+2M6nP/3p1oYbbpjMhUeNGtU6+uijW4ceemhrr732
aq222mqtT37yk21/T7zimWeeqfrrCCGEEEIIIYTIyfPPP99aYYUVkjne7LPP
3tpkk01ap59+euuxxx5rTZo0qfXUU0+1Lr744rb8DtqSSy6Z5Eb3I4cffnjH
fPnWW2+N0tdll13W0dcJJ5wQpS/xIXgm+uIin/nMZ1pbb711a7/99msddthh
re985zutQw45pLXbbrsl6/9GI2LaYostlvhICCFEP3HiiSd2PB/RqwkhhBDD
gWe/b5xNjZHQvP/++0nes9sXHndCiHQ9QJb2b//2b0n+iBBCCCGEEEKIZnLR
RRe1PvWpTyXzO3LU//rXv3b9+2uuuaY1xxxzDM0LWRs99thjE4/GfmKuuebq
mAPffPPNUfpaaaWVOvoaPXp0lL7Eh6TpAbI0fLSp8SCEEP3GGWec0fHMu+66
66reLSGEEA3g9ddf73iHbLzxxtH6s+entC984Qu1nJ8ef/zxraOOOipX+9Of
/lT17ouGUlQPsOqqq7amTJlS9dcQQgghhBARGT/+l7nnKqwZCiHqzQ033JDM
75ZZZpmefNINF154YcccEV+5fmKBBRZo+34LL7xwtPoIa6+9dltfs846a2v6
9Jej9CU+5Oc//3mhuMjOO+/cevvtt6v+GkIIEQXeefgF8bybe+65k9qxQggh
RK/ggfbRj3400Y/vuOOOrXfffTdaXw899FCib+edRZ2Cl1+u51zK1IfL0956
662qd180lLx6AHQ2J598ctS6iUIIIYQQoh5ce+21uecq//Vf/1X17gshusA6
5rzzzpvcrwcccEAm70bmg4svvnjbPU+sZ+zYsRH3uFyoDz/bbLMl322ttdaK
VusS2DYe9Uab8Ytf/CJaX+JD8voDLLjggq2bbrqp6t0XQohSeOedd5I4shBC
CJEVtGV//OMfS+mLOSrvrDojPYCoAqMHIL6xwQYbJP6QadcZtTeoE3n99de3
/vznP1e960IIIYQQoiSkBxCifznvvPPa7lnyKbL44R900EEd9/2GG24YcY/L
h5jS73//+1L6+uc//6lc85IxeoBFF120tcoqq7RmmmmmrrkRu+yyS2vMmDHJ
uRJCCCEGjYkTJ7Xuu+++1sMPP1z7NTchhKgjth6AmNnuu+/e2mOPPXpq7733
XtW7LxqK0QN87nOfS/6bWhp4aDz55FOte++9t3XjjTe27rjjjtbzzz8vLwAh
hBBCiAHliSeeGHZOYs9fVl55ZekBhGgI2267bceaJ34BveYAXnrppV4t+V//
+tfIey5EGEy9gB122CH5b2JsU6dObf3v//5v684770ziIsRHpk2bXvGeCiGE
ENXAuBCv4M9//vNtY75PfvKTre233z55bwohhOgNWw/wy1/+surdEQOCqwcQ
QgghhBCiKP/93/8tPYAQDYFcfl8e9G9+85uePo9/nO/zv/3tbyPvuRBhMP4A
Rg8ghBBCiA954YUXWiuuuGLyrvzCF77QOvvss1u33HJLa88992zTkj7zzDNV
76oQQjQC6QFEFUgPIIQQQgghQiM9gBDN4ZhjjulYy19ooYV69kK/8sorvXoA
akQK0QSkBxBCCCH8PProo0l94VlmmaV1+eWXt95///2h3zFWNDoB2hJLLKFa
OkII0QPSA4gqkB5ACCGEEEKERnoAIZoDPgDLLLNMm+/rT3/6054/P3r06A4t
AF6yQjQF6QGEEEKITmbMmNGab775knWrMWPGeP9m3333bRsDZhlDCiHEoGLr
AcaPlx5AlIP0AEIIIYQQIjTSAwjRLP7xj3+0HnjggcT79a233sr02Y022qhD
D3DCCSdE2lMhwiM9gBD9BeuRm2yySU/t8ccfr3p3haglf/vb31prrLFG66Mf
/WjrvvvuS/27ffbZp20M+J3vfCdTP9/61rfa7smNN97Ye6/utNNORb+SEELU
BvkD1A/qHfJOIy7Sr0gP0J+cfPLJSS0neTQJIYQQogqkBxD9AD74hx56aNW7
UWvee++91hxzzNEWByZuPG3atMzbuvvuu1sHHXRQ6913342wpyIvkyZNau28
886t6dOnV70r0aiDHoD1kKuvvrqy/oXoJ370ox9569j42h133FH17taOl156
qXXWWWe1jj766Nb3v//9f73T+/f5L9Ix9aQOPPDArn/HWr19Tx1++OGZ+vnK
V77S0736n//5n0W+jhCiJJgfXnvtta1jjz020Yg//PDD0daonnjiidapp56a
vK/OOOOM1vPPPx+lnxhID1Avxo0bl9RM5Hxcf/31Ve9ONKQHCAt5NVdccUXr
uOOOa7344ouV7cfWW2+dnNfNNtus9fbbb1e2H0IIIYQYTKQHEE3mz3/+c2vk
yJHJ9bvqqqtWvTu15gc/+EFHvPab3/xmrm2Z9ZvFFlusNWHChMB72hvM58gr
pQYCc7rbbrstyY+LwZQpU1rnnHNOEr866aSTWo899liUfopw3XXXtf7t3/4t
iVdNnDix6t2JRh30AKb+8u677548g4QQ+ZEeIB+s4fAcRNfn6vzIzf7LX/5S
9S6KkqCWFO/+RRZZJLkuusE6vX29nHfeeZn6GmQ9wJ/+9Cfl8om+4rLLLmtb
5zbtC1/4QuvZZ8PN7+6///7Woosu6n1WrLbaarm06WUjPUB9YP3/E5/4RHIu
yLHuZ4bTA/z6179ujR07NvEF+vnPf9568803S97DZmF7JDFOeeeddzJvAy3T
3HPPnYy50E/lgTG68e1kO014BopO/vrXvybj7vfff7/qXRFCCCEyIT2AaCp4
xK2wwgrJtbvssstKW9sF1s6ZR9rxl+WXXz6JbeblxBNPTLbzqU99KvELKBPm
XgsssEBHTOk//uM/WnfeeWewfp577rkkTuWLXxEre/TRR4P1VYQjjzwy2Sdi
I/3smQjd9ADMxSZMmJj8DXGRX/ziF60//vGPwfeBZ4159vDv7373u+B9CDEo
2HqAJZZYonXuueemNnLhRSvxAGDcw9o/uqTx48e3/u///q/11a9+dehYbrDB
BlXvpiiJI444Ijnnl156ade/QyvojmWyrvndcMMNiT7S3JP2/x81alRf6gHw
XPrSl740pAMUokzQnd58882tQw45JNHAb7/99knbf//9WxdddFGSc591Pse8
EK8rM46lBh3zajxmzD386U9/uvXCCy8U3veDDz44eVfxTEBTTU7uG2+8kdxL
pq/555+/cF+xkR6gHvzkJz9pffzjH0/Ow/HHH1/17kTHpwfgXX7UUUcleRm+
GMXnP//55H386quvVrjn9eNXv/pVh4b2lVdeybSNZ54Z37aNddZZJ/f+8Hxc
e+21h87Za6+9lntbIj5obxkDH3DAAa1llllm6Dlk2mc+85lkPQUPnCeffLLq
3RVCNJA//OEPiXcW40waeYkhch5ffvnlRL8khI30AKKJoOU1OUqLL764tNDD
gB+sPV5F0xzCU558ebMOPWbMmAB7OjwXX3xxMv7GI5B1pNdff6N1zz33tP7f
//t/yb7wu6L6BPK/iG1/8pOfTBr+uxMnTkpiZWjCzXHkd/fee2+gb5YPvBHY
F75/SC1EXfHpAR588MHW3nvv3Zpnnnk6YiIzzTRTsm7Gu47xVSjeeuut1pe/
/OWkj5VWWkm1M/oUngWvv/56ojNhzZUY3KuvFo/XoF2p0qeyTth6gK9//etV
707tITa81FJLtT72sY8luZ02l19+edvzL2/ekmgWrOcxJhpunu/6RLE+FzLf
/X//93/7Ug9gcvho8803X9W7IwYExhv4uM0666zD+nEw1v3iF7/Y2nXXXVuX
XHLJsONd1uX5HPVDbC8Zs/Zo2h577JF7/3m2bL755sl2tthiiw7vEv7bXmPf
brvtcvdVBtIDVA9a71lmmSU5B3vuuWfVu1MKth6Auedee+2VjP/4GWuSaCKu
uuqqRDN04YUXtulCZ5555kQvyDZE5xhorrnmyrwNnrH2NtBmFYFn9dJLL51s
a8kll1RMs4agt0Y/ZzxJTOM+5Bqac845O7QBtDXXXDPxtZOvlBDCB88WPH55
ry+33HKJDtc3xifOT9wZTTA+QFlhrYSxE/FwIWykBxBNg/gB4yuTD97PtdKL
Qr6Iyf8wbb311sushe4G83G2S5wkdr487zIzXyK3xMbMpUyuSxHMGjvb9Gm1
TW44DW1+VeN8W5tA/G8QsPUA5BKxfmh0IGjszzzzzNY111zTuummm5L3G3oh
O9eJ9bJQsE6MFtzM+YbzaRb1hvuYNX+8R4ld4wHizv3ta4lzjk9K1nwO+tlt
t92S+D3zgEGniB4ArTPrGpwH/rWb+Znvd2l/28vnTznllCSHEm0a77yyfflP
O+205Fj55nRXX31123W67777lrpvVUKeehnn37STTz45ed9w/RLvI2+oKui7
l2eJqVdr2jbbbBN0P/pRD3D77bd3rLvKF1bEhtrorDFwzRHDYy0QLYrRPg/X
Zp999tT6OlOnTk30zGhZfe8vO/eVuV1ejI/czjvvnLoeaXvXcW/VOT9WeoBq
oVYfdfE4/ui8B6Vem9EDMO8w98umm26a1AlI42c/+1lyj5vrFa9DzTdaSazb
fk7miX0vuOCCbdtgHFgUfAtmm222oWtbvoP1gVibefbzjuLeo14Jej37/cnz
iPf26aefnng92NcI79pB9LfjmBB3Cz3/6vZ5vBnOOuusJA6Il0cMn1AhikDu
P75ZaHh7Gc/7GmshxCt78Q1g7GTGA9RXFr0xffrLybHr1ogDpv3M97vQn8c7
oijSA4gmQe4THrjmmqV+vPgANOPMDRmLsh5KvvRnP/vZoWPFe4A1jNBr14yF
jVcDc5lY/lhoG6ivhgbE1QIAmjr7PZn3+UiOPZ9fZZVVUudj7nyyCo8AcgBM
/2jVBwWjB0CHwfyMuCWeiGlrMVzvtm6CNmLEiGC5EryLTXx2/fXXV83uhsG6
zq233pqsk/FsyTMmJz5ADhw+Fb2A3wifI9avnIFiegDy3/POpUI11mpWX331
xIeHd0HMc0o8iRo9PP98zzDXC2iQvM19/jBlN/RnHHPiX3lq0saE69J9xp13
3nlB++g3PQCxTLfWFs03BhXNgrUxnqfUbK5bPibzqDnmmCOZt+FVZtfDI5eU
ny266KLDPo/IE/Zh/C58Gu4JEyZ0vN/yvNN4F5I7ueqqq3bVz8w777xt/eXJ
eyoLsxZNkx6gXPDTQuPCsccvg/XTQcH27GC+yfpzL/ckmgDjpUAjVjPIa2Mc
M3K57ecNfgFZ4J3hPmeJu4WAuajZJrFOzQ+rhXgO/jycD3w2vvOd7yQa9F7g
3KHP5j1uzinPL2qdDBJ2/aGqGnHCFVdcMdENsA4rRFVQx3bLLbfsqFljv9/J
NRo9enTrxhtvTNa5iHNRC5i1nUMPPbS1xhprtH2e9YpueZ6TJk0a8hzgc6wX
ieHhWZ12nurUmGexNlIE6QGEgbV26oxNnfpiMt6po/+17dFFzXTxAbaXqa8x
B3z22Wej9U88zeSxENuJkSfHOJztEwdzYcxux2lovP+ygp6CsTvrCtQGSGPj
jTdu64vxbplQD8F4BaItHKS8dKMHoLG2cdddd/X0OZNTaxqagFCgzzTbxe9J
1B+eGeR3p9XepFHLnusErTm1dVnvJ1b9P//zP0kMaZdddmktvPDCbXPOY445
pmvsm5xi8/fMCUQxPQB6HHRBNNbJfX6NvTQ+a7aT1vgbtB/DbYs648zbqM8c
Gp4v9MH16MPUMDGNZ9OgQD6OOVdpvh7DNebiw10HtF5ydBlL8DzoNpYoE8aA
7j7mGSd1g1iH2XY/6AGIyfjO7TPPPFP1romMEAfmfkS36fPj5H4lhxYtNfkz
VdbY3GyzzZLxxEMPPZT6N6w3UC/GXm9wGzpHFzOGTht/kNtob2P55ZfPvP/M
SZhHoWfAxysNNFNuvI13el2x/QHGj5ceoCwYUxMDN8ee3NxBgrEk9wnzfnwS
s3DCCSe03V+hPYGaBBoe9xmJ/ikLPHPtz/NMCDnWtz09y44tiQ/hnK677rrJ
ecAHkrFtHoinuznA5PMMCuTok5vGfeLGaUPOyUyzPVF8jecodYm6jUtE/4CO
kGcq+ipycarylCZub9fxsRua88MOOyzR0Paq10MPuc8++wzp/Zhv33///R1/
x/PH+NjS8D0WveHWFqpzS4sJ9or0AIMLsQR0R/vtt1+yXoz20b2+eIdvuOGG
ydp7rLzvXrnhhhuG9ot5YYxYe1NhbnzAAQcMNc4p/oysZ9nnEw1ZUQ1RGrzr
TD/kyoYELRvvPPy7fb441BN0x4+9+Oe4mHc1/rDdcPNysurLi4DWwuRBsj41
cWLYeH7dGTt2bPLd0Z/geZoFVzcTsoaS7cMsL6b68vvf/z5Z38d31zdPRJfL
ddFr7hHvUZ4X5Ieb7bCm7VsDvPTSS9v6G6S12m4U0QP4IO+TvEc0ZN30ATw/
qdmWVStNnRB0SMRZ8Y30jZ1orE9zzkPl+JCrzNoP7x8frHe5+0D9i0GFeTXf
/8orr2zNP//8XedSjJvI+8pyrljz4jpDo4hW1c1zNY0YWDcPm7JgP+39mnvu
uYP30U/+AMSR0nQl8iZrDsx50PBmzfNgjEm9lbI9fvEqYA6zySab9PT3vI/I
YTQaYfu5M3ny5I6/32OPPZLfc6/6II/O3g7PrqwYTy5q63QDbaU7Bqtz7pLq
BVQD15E57sQ2BhGeRXnmrNxP7ntsUN9f1JSyjwNjlKzjc5MvbhpxhZDghbnQ
Qgsl2+a8xczlEemwPsc5oHZDUf8gcndtv1bmpVX4itYBcjE4HuRWMMZJG39t
tdVWydptnvkz+Yxs/7vf/W5rgQUW8G6fc6AYTH9DnMb2xzHrWmXmuz7++OOt
ZZZZxnsNogMgRlTEr/app54a8rAjX4W1GAPvfmoK2H2iiRC9w/yP9U/TqMHG
OMznG+jGlPCbxjvI/rzdfL9jXsazC20HsatDDjkkWZsytYTSWtp8rlekBxg8
WEe/4IILOtaKe2loHMkdKLtmG/UETf452r9e/ZoGHcZRvBvWWmuttvPI2iU+
EKHZfvvth/pgjScUP/zhD5Nt8q8P8nns70cd+ayMGTMm+ey2227b9e+YF7hx
RT5bFoyRTb9l6hDqAnMJ5t+8Z7NizrFprAeGepYQkzXva/wIZ8yYEWS7Igzk
F/HuShtTbbHFFq3Jk58r1AfbN+vP+IajPTAwhnTXpp9++umiX6svCK0HsLH9
GNwWKk8KXyViR2nXFs+rEGsc6H/Z3lFHHeX9Pes2dr8rrLBC4T77Bbx/0q4D
7ssQucBs45JLLkkdWxOXqjL31a1zRI5MaPpJD4CuNe2aIYYj6g1jRWIp9ngd
LS166R//+MfJOxktH+No7gWuV9+5Zs55/PHHlzbvNfMdar9kAW0wczDWktDM
4zHqgk4aTRn1r3348md9moJu8BzkODNnp7ZBN3iX2X3VPXdJeoDywYvF+PGg
cSEeJLLhvvsZowwidvzExMKyYuda0kLmFRjMWJ+G51fZMddBx9RtYMzO/C4E
5LLYYxHmixMnTgyy7aZCPRPfmAuNfSj9NGOeI444IlUPij5S9B9oTlwtgGnX
Xntt9P5Za/ve977nzUlh/H3RRRflylv0QW3jlVZaKdk24/vnnnsuyVegVpfb
98033xykz0EH77a0+ECeccVwMK9CH5Dmafvaa8XWHGxfOOkB+h/yXfBDtK8h
tI88s8i/R0vFs4LYB2uqaXlv1HEvqwYSa9qsEZi+2TeRHeJd9jlEd9xrvete
Ydxs4iXE0HgnhYDcW3JffDVbyQGklqD93Yj1ZYXrnfHicN5xeF/ZfRGnQM9d
BrZPHZ7U8sjIBs8SxmH2+cPzPRR23QA8aVX7rx4wL3A1UaatvPLKQevVouk0
cxDWgdEhsAboetgxZu9WV2CQiKkHsOuLuA0PuZDgfXz00Ud74w6s0RStMUqM
kJzuSZM612eYV/I7u880/dygkuYRQMwvJDz3iSe658OMF84666yg/fW6T9TX
iX199IsewPa78jXqkIr6gkeMnZPzta99LYnfdHvnsuZCXW63vrRp6OHL0KKb
vETyUENDXhTz95NOOsn7e3KH7O9MPDEreCORg8WxHA486+z+DjrooMz9lYn0
AOWCpoe5rjnm5HuK7Lg1A2ixvCLrCmMg99meNafCpyt94oknouyvHfes+3Ox
n7BzO0LGBmCnnXZqu3bQ7Q0yaXr90HEAcOsgaTzf36ABSTvfsfXc5JTbnqGm
ERsiRhSjFhk6SeN7ylzF571B/1X7FPYLaErSrq+YHsHEGddbb722/lirLbre
IH+AwQEdnlk3ZW310EMPbU2ZMqXrZ/DqGTlyZGrNXH5XxOekF+z6HcQYylp7
7TfQirmeNYx5Q9dBtcdc1J0M8d6jhtc3vvEN7+/cWm6ss+XRUhP3wvN3OMgt
svvDX7wMGF/Yugd8NkV28I21zx/rtLxfQ8Cz0K7f3Us8VMQFnZuvVjC6kBtv
vDFKn/YzCe258baxG/WBxQfE1APwfksbszMGigFzAXvdwDR0IhdffHGUPu18
IvNcs/0pRCupN+S7Dsj3igHjZ/S2vj7xISpzLEuta3cfQuk1bWw9QIx6BGXA
GpRbE8pt+++/f9W7KVIgV4Y8c84Tc1c05Fm0d6z522uQ7rMidk6fWZNHv1Pm
M4Lr3h2r4HcSC7Tcbu5U3WttSQ9QLozR7DG74j/5uOKKKzqeZfgqDhI+75Nn
n+2e/+HC+N3+PH4VsWKgjM9sbbGvNrQID/lxHG+0u/hoEBekLlgIiOO5evGi
dZ+bzDrrrOMdZw1XZygPrJe58T/TOCf4uov+wc2BNI1cyJj+rVdddZXXK3L2
2WdPPMligidYt3kr8xoRhj333NN7jFlfffvtt6P2jebazu+gdkFRpAcYDHhG
mPphxOiot54FnmFufqNp1M+NNUejHq7d7zXXXBOln0GBWrru+aPmLb4RoSBP
kbrJZvvUcI6Jq8FjvT4m6O7s/o477rio/QGxTHQH9j0n8kENRvceYP02FDxb
zXaZT06aNCnYtkXvkAeH94PvnYUmP7ZGdsSIEV3H5dTXFR/Qb3oAoObnwgsv
7I075PGvGY4NN9ywrZ8dd9wxeB9Np2w9ALDm5Xr12nOusjxC3Lq5jPti0A/+
ACYeTD2hNI9RzZfrCZ5ZZk6A/uqBBx7ItR3iOe5Y3zTiMDE9y+28pgsvvDBa
Py7Mr921ruH8/otA/WT33Riirk5MpAcoD9ZDia2a43311VdXvUuNxbdOQH7I
IOGOgRifZM2p23nnndu2gQ9gTOyxI/k18hyMC+MHtx4Ejfj5r371qyB9uJ44
aE9D+YY3CXLFGGP7xli/+MUvovSJriMtHkA+tegfzj33XO95jqE1Aeby5Mj6
+kSfPGXKr6P068L6QNo1Hnt9ZJBIyxngPV0G+EyYPvG/K4r0AP3PCy+8MJRX
zDPJ57neC3iLmRpubouV64jfsuljxRVXjNLHoIFvsXv+dtttt6B9mPqXZhwd
qv6WC3Ut3e/y5JNPRukL8CB1+8sbb8wCekPTH/ERdDIiHz7PsL322itoH1/5
yleGtk1delEuU6dOTTxxfe8qtP4xvLpceOYZDZ6vxfKYbCL9qAcA3hfodt1+
GUeFrNVDHrodN6eNGTMm2Pb7hTQ9AL5TMSGGmxYnOPjgg6P2bdhyyy3b+qXO
eAya7g/AvWRilHiIpnnH5/FRF/FBZ2fOEes/RUDTlfYOJ68tlpaHuqKmnyWX
XLK0NSBqpsWcF7q4fq54qdQd6QHKY4cddhg61tT0ie1F2c8QB/SNQwdpHXKr
rbZq+/55avwyVrS3gd95TFgXtfuL5WknPoA6uGnzxVB+j2zH3fYgegSk1fLj
HRvrWY/ew+cXaRq1JUV/wLvN1m/hpR9LX8tcgPpevmsKL0D8mcuiW8wLv1RR
HPTgacd41KhRpewDfkGmT67zokgP8AHMv4nX9ds6G3EEk1eM1r/o9zv11FNT
7wG0WCGx44q06667Luj2BxXX756GB0NIfxP8ImwvE3xVYmB7CdJi6915l9r9
kX+UpzZBFhi/2usYm2++edT++h1bW2Eaeu2QXH/99W3b51kmygEtgE/fT+4Z
768yYa3P967ES4z7WnxAv+oB4Omnn/Z6K1HXJpR3yOjRo9u2jQZBeUSdVOEP
YMCLG02rr/+zzz47at++urkXXHBBlL7s+HUT/QFMPh7af86ZXf/Hbnh/iHqB
lsM8a0N5aB177LGp74+zzjorSB8uvBfsfi6//PIo/dhQO9D1wiCnOCYrr7xy
W3+HHHJI1P5CID1AOXAP2Ncjni2DylNPPZVo0xgn59Uy++re02L6nNQJ3xiI
WqRZYG7pHr9Yecw2tgcm/vWaO8YDDVza+/78888P0se4ceM6tp1WD7WfMT5c
bttggw2i9osOKO0ca52h/yA3B2/kWNo3tABpXqTo8Kt4Xpt6aW7Lmw8s2nG9
1Ox25513lrIPrLOZemshfLilB2i1Xnnl1aF5B/duP4EWypzfSy+9tPD2GFOn
PWdYGw2pp7D9b+eff/6B0jHHhGeV7/x9//vfD9qPvUbBM4t4U0iYF9uagzLi
6q7XfAiPluG48sor2/rMWuujn7jrrruSOcTNN9+cexu+93jo/FDGf7ZX+Lrr
rht0+8IP8Ro3f4PG+/3aa68tfX+efPIp77MW3xvxIf2sBwD7+9kNr5533nmn
0LaZi1JX197ud7/73UB73l9UqQeAadOmDXl12Q1vh5/97GfR+vXViSJfMAZN
rhfwP//zP0P7fvfddyc/ww84bb4j6sW3v/3t5NywZhuqHhB1GtM8bck3iuE1
xDzbzmGj7mgsjzXDkUce2fbdFl988aj9UYfAxLJMIzez7th6gPHjpQeIhe0N
wLMWr6VBBN3eTDPNNHQsiL/lGTOm6QEGJR8W7Y773Z99dkKmbVBX0P58zDxm
m1tvvbWtX61ZxsP10TINL40333wzSB/cv+72uZZi1d2tK+utt573WMfyczfs
v//+qTGB2PVtRX/RTQvA+gCa8iqwveRNQ0smwkCOq++cM1YrGtPLAnne9Bsi
v0N6gPZ6z+SE9AvEFEx9i5B1cbrpYvbYY48gfTz++ONt2z3hhBOCbLfpsN5F
DT18QvJ6VZKvWMYaFfE422tz9913D7p9X64+sbuY4N1p94nmISacY3sNg/4H
Fff9m1dPTe1u99rHizI0aFPsPsaOHRu8D/EhPBvdddGy5pfd4Npy9+e0006r
bH/qSL/rARiLuV7MphX1Frvnnns65iOx146aStV6ACDHyLcP7FusOibuuwh9
bSyaqgdAb0y8hP22PZjSYj203/3udxXusbDBp8vog9HthoQaQ2nXAH5TMbDX
Q2PMz2xY05p33nnb+iM2FBP3vYUmKqRHXSzkDxAf1qjt2pT48A4ivJN89Wry
5G746gXQfv/730fY8/pB7Rj7ezM2yeqh5Y4FytJ1cx3Y+rAVVlihlH4HkTTt
Nj8PyTzzzNPRB7qPQYFrOk1nGdtzo5seAE2pEL1AfD5tboBHY+z1iG489thj
Hfu09957V7Y//UZaLIlawWUy55xzJv2a/IUiSA/QnhPy+c9/vurdCQb5RuZ7
hcwp7lZ/h/XfEHkZrPWZbTIvlMdJK9FE2Md6+eWXz/W+SZsXhvZMB2qnm+2z
Xh/yPLp5W8TPYsK+u8fsoYceitrn7bff3tZfKL+ypjF58mTvNZvHh99XLyCG
bpJ8FjuvY1Dfr2XQTQtQdSwRjVzZ892m0e96AHDrgNrjm+eeey73do2/uWkb
b7yx9+9effW11osvvpi7n36gDnoAYgj4Qvj2I1YtWnscRttxxx2j9ANN1QOg
0TJzGPs+Ofzww1OfH6HqfYji2OvLiyyySLJmQk3FELWafGNG09Zaa60Ae98J
Xv1uX+SnxuC2225r64e8fV8+NjF8tPohcO8r5rNNQHqA+LheFQ888EDVu1QJ
5CP7njl51qzGjBnTsR3WLAYFN+97m222ybwNd9x2+umnd/wN2irWYkIzYsSI
tr4ffPDB4H2ID+D+MnmXSy21VOumm24K3gfrRu79OEi56Y8++qj32VaG5wb3
ftp4TrmHolfcesV2TAdPvipBq+7uVxUeqf0IsbS058dhhx1W6r4YDfyECdm8
jnxID9C/egB7HWK55ZZL1nvxEJkxY0bhbad5KtHQ4RYBbbjtI0gsc9CZNMm/
Hpqn3mKaHoBajqHh/WP3wfUXgpdeeqlj//FM8EH8KkTenVsTnrhxbC8gYo32
GGNQtPwud9xxh/eazTNPY83F3U4sLQl1Akwf5D/h2SjCwj1h12awG3P5qj34
zjzzzNLnu00jph7g6afroQeAtFrkaNvywJqNnUdHu/HGG1P7Zp1skKmDHgCO
P/741FhYaP9e9Aeufveiiy4K2odNE/UA+GmYdT7OjQ014tOeH2ljTlE+1EhJ
O094qhWB6yNt21w3eb3ahsN9X8wxxxxR/L3xD7T72Wyzzbx/d+qppya/D7He
tdJKK1X6Ls6L9ABxwefDzonnmh/U8fIf//hH7zOH+XBWLr744o7tbL/99hH2
un7gA2Dy6Ew744wzMm3DF3N64oknOv7O+D+Frut47733tvVNDXQRD66ZWH5d
sNpqq3VcT4N0Tk888UTvs22DDTaI3rfPs9G0mHXbRP/AdWLqjLsttm9wr7jz
/tdee63qXeoLunmkh8jTzwIxFvoNUaNAeoD+1QMsu+yy3usVX8CieWLnnntu
6v1QdI7hasNj5UQ0ifPOO897rFnvyoodr7UbuTShoUbkJz/5yaE+0DKFmNsf
c8wxbftObrDP+83c2xy/ouC1Y/eJ/3NMnn322bb+8q4Z9QPkh7jXK5qhPOMb
X752Hv/FXrjwwgsbGfNsEuS6+p5nM888c+IrUTWux0fo9e5+YBD8AcD1bbcb
OZpZIT/J3gbzP59GbeLEicnvY3vo1J266AFefvnl1FhC6HPku/6nTJkStA8b
2wejKXoA5izsL/mSrEfZuDpQuxVdZxbh2GqrrVLPE9rdolpaYgNp258wYWKg
b9GOb96HxhSPvlCgdbB9rGi33HKL92/JK8Dj99133y3UJ5+3Nf+0O++8s9A2
y0J6gLj85Cc/iR6XaBKLLbZY23PsiCOOyOxzDz6fmxh5z3WEXE33u1933XWZ
tkEc0v48zwHfc5j1TH7PGC8kxM1MLiCN/HV3rCKawxprrNFxTX7pS1+qerdK
Y7311vOOpWJ5pBlY+0gbxxGr1j0lhgNf5vnmm897DX3xi1+MqiPKAh5pZr+I
fYgwuLWLTWMeVXRulAV06PQ522yzBdme9AD9qQfgeeTmjdmNfIAijB//y9Rt
F33uEJMz2yJmimfaoJNWc3adddbJvK0rrrjCu63Q9bEMaF7tfor6nDEHI35v
bxN9gI+RI0cmvx83blyhPmHxxRdv6zO2r9RRRx3V1h8anEHF9T5C65+3butX
v/rVjnc42v8YMG60456D5M9YBt10mnXx3nN1PbHnu01kUPQAPA+I6fr2JY/v
NPEjexvf+ta3vH9n3iV33XVX0a/QaOqiBwBqz/r2hfdFCA8vg5vf/tnPfjbY
tn00zR+A8ajZX9aiXHy+7ab5/IJFNay55pqp54lW1Ctz1VVXTd121rWlXiHn
w15/No21vVCYnH/TiHP6NNvUxuD3IfRK5NC4Y/CmeJ9JDxCX3Xffve3aGJQ1
6zRMHgIxIPIr8sI6hX1cmYuG1BXVGfT+7jM0aw0K8j/sz2+44YYdf4MWF71U
LB8ut1b1oI/nm8yKK67YcU1SU3UQ7knqDnGf+MZSsWspHnfccanjOOoUCzEc
bo1G01ivqlMtUDvWTR6cCENaHAnPszIhTkS/+MiFQHqA/tQD/OY3v+kaGyHm
WGRu8frrr6dum2diXo2du3ay+uqr597HfsJXa4nj7ItfDseBBx7YsS3WKN54
440Ie95KcqjsvvLUOLCx71caPuzTp0/v+Du89lg3Zh2/KOa5azfixDFx13p8
33GQwO+Ec829kFd/+dZbb3XopLbddtvAe9qOXfOBxjNOFIf7AS9R3zuI+gFV
1wkwTJ3arkePUVuy6QyKHgD4fmn7k0WXhLbA/byvtjN/xxoGHomD6rtrqJMe
4JJLLkm9DpiXhWLzzTdv23bsfMsm6QG4H8w4C32Gj1/96lep5ylNfyPKx12v
cdsFF1xQaPtp+Ww0vLhjcdBBB3n7TKsLkxVXl3TAAQd4/2677bZLfs/8qyjU
2LT7pJZyU5AeIB7kvc8zzzxDx5e5WpE4VT/ANWZiYXnXCp95pjM//sorrwy8
p/XFV980iy/45Zdf3vF5asy7UD+I36GxioE7ZiRPUTQTV59j2ttvv131rkXH
F8+mxa6laGLCvr5516iepxiOSy+9NHUe8M1vfrPq3WvDnhPJyy4MeBKnnf+i
Ou2s47uxY8d2jV1kRXqA/tQDkFfQLTZCo/ZsXvDE6LZtYtB5+N73vte2ndNO
Oy33PvYTPCdMTT3W7ldZZZVUT8dusI5qe46Ztt9++0XY6w+YNm1aW19Fc6TJ
+7W3Rx0uH6ecckqwuRm5RXaf+ErF9ASaOnVqW3+shQ861DzmWBAfzQsxYXcO
EHt9/thjj23rk2ecKAY+Sa7Owm55dFKxsJ9/aOLRxot2BkkPgN9r2v5QA7tX
nn/++bbPzj333F4fWeMTe8MNN4T8Go2kTnqAp59+OvU6yFMHygfPSVczRUw5
Jk3SAxjvBPKy0mKB3eY6g1J/uQm49bzcVtSXrJsegLFpLNDe2zXXTCN2Ts5+
Udw8xXvuuafjb1iTRH++2WabFe7P16dvba2u4NNt9lt6gLDYtWZoxDlEq7XN
NtsUije7mh+0PYMCY2LfGmCvY23qmPi8Vn36MrSXjCXIx4rBCy+80LYP1H7N
UztCVAvnzPdOpxWJyzeFE0880fvdqbURE+75tDHcqFGjovYtmg9xeXv8ZzfG
x9RlrBOMn8z+ha5fM6j8+Mc/Tn2G+OZOvULMmmsoyzbuvffepF9iiiGQHqA/
9QBAfDjtuiVOV0SHN5weIO94GL8NezvEFsUHGM8z1sHy6sR9tVAXXHDBJG86
JnjU2n0WWYN1434nnXRSx99wfaKf4H4OUQ9qr732auszT52GLLh1pg8++OCo
/TUBzqOppZhHC4M22L0OzzjjjAh72o7rZ9GkXKi64tZNt1se3/WYTJ783NC+
UftXdFKVHqCK/F78b9P2Z9FFF+15O/gr23FK1lhcmFvgBRX6mDaVOukB0AUR
O067FtALFOWpp57q2C4xjZjYazp11gOwzkrdPfYzrd6UIS0G9LWvfa2cnRXD
8sorr6SepzTNcBbcuandqFsUE3Rrvn6XWGKJwvnTZq3RNHRmNtTqIpcRHXqI
ulrkKlAfwO6zSb7Xtj8AdRNFOI488si266KI9rufIJ5mfBOo95gFd660/PLL
D0QOsmH8+E5vBBq+QMOtpRNvZ4zGPU+dFPvzrr/CE088kfw8tv+S7Z9Bq5M/
9SDAOIO1G+KO6EHx7WDuxfhgiy22aB1//PGtJ598sus2WJtLG0vMmPF6Sd+k
OtK0leRwxYK1BLt2p93Io1aehhgO6kmk3bdowerGMsssk+yb6tSGw10LMq2o
57rxX8vq+3bHHXfkzr92kR6gf/UA3XxNiq6Dvfrqq6nbRuOSx6uZ+ByfNdsh
1k09LvEB6DdMjUxql2XVkRIHJu5tnytiPHiOxMadSxXJkab+drdYHFoJ45Fb
RK9lY9ahQ+x/L7jep7HjjU0Br3ViiczPh5tz2XBNmPetaTvuuGMp2nrGCHb8
k2ccz0+RD8Y+adp6Wp28AcDOAz7hhBOq3p1aMkj+AK73i9uyaCCJPZrP8Y6y
GTNmTLI+xponnueiXnoAWGGFFVKvgxD5Km4ejnuNxKAp/gB4O7KPCy200LDz
FXQ6vnNUxvEUvcO73/XhZSxNva+ioJtOu1fR3cQEHwBqZfn6LupR4epV7Zoz
zDHXWGONIDEDA2v/dn+MjdEINAXVC4iHe++Si1UFeMKS/41eFE92aiwy5588
eXIl+wOsaxuPyF122SXRg3YD/8Kjjz667XhyLw/3uaJwT+DJyDHj2HEMzz33
3Gg588Nh8mh8jf3zxQA4/4y/eDahG0AjhRZq1llnHfos58BArgGxOeb2nKeY
bL311m3fAQ2NiAuxV3Tc6Pnda4h1IDy4mGfZcR7yEu677z7v9kxdCV9Df9fP
sO6OT6Lvu8fStpDvxpqor080lf1+zAcBvFPQ4pAvSM0r3t/kBYbixRdf7NCx
lnHtFoH1TPZt5MiRVe9K3+CuBZm28sor594m6xOf/vSnk/HDm2++GXBvsyE9
QP/qARjnMh+w/UKJKeC3nje/3MBaXNpzkfhaHowfuGnKo+2E9xt6VI4PXmFo
iXrxecCzmvNiH1/mlmXVsv7hD38Y7Ny+9tqMtrxI1pIM7733XvLu4+c77bRT
iF331ot55JFHgmzbB9p9V8c6ZUo1da2IQ/KOIE/DzO3x2H3jjTcq2R/A44Jx
GdcAMZrhnmXMBbbaaquOOABeymXB9W73z/0g8sGYP+3dw/u7zPPaCz//+c9L
eW40mUHSA4Dr4W434pe9Mn369La1St59PFuMPyz3Q5Ux7LpRNz0A76G064Bx
XhqcU+o/EANJg3Gh+32Jy8emCXoAnsNmH3vxGjI6XLexNijqBfNe5vTo4UOt
17o+zXZjTh3Cg8yF9Ty+A3mHaVoA0376058W6mv33Xcf2taXv/zlZC7OuxE9
GXMRe45VFGoD2PvO92sS0gPEgTmle12XqWPkfXnOOeckGj07L8VtrKmjUwil
JZ8wYULiN/jQQw/19Lfcn+zH/PPP3zrssMOSGI69L+TVXHbZZck6l9ln5sp4
4MTKr0GjzfOim2aKPHu0SyFjTldddVVr00037RqP2HLLLTvmiDPPPPPQfzN+
JibKMw/NEzpB83tyBljrN7COazydeCbzLDvvvPNaSy65ZPIz/n9sqKFqf58Q
3jfCD88Ectbnm2++oeNN7Im1fjQvaD/se4/7C08J1iN5T/Ac8fl52PNdt8Ws
Q1oHuP/TxtJFPIvT4Hlonpm+OdYg1GfoZ5577rnU2qHot9BLhXhXU1M57Z6t
q08c7zqeQeSGiOKgK0+7Boro8kyMGO1hldheUtID9JcewEB+KvMXaqCHWscz
tdl9bZNNNsm1TeYK9nb23XffIPsaCo4jtcTwbscXCq0oc0Nihb7W7Xfu33z1
q19NxpC9zH/NGJXcfo4TugDqh6BFdcc2U6ZMaR111FEdtSPYd35XFq5+hHdU
EW+VH/zgB0PbQtdw/vnnJ7WhOBb8jPXropoXA7n59r6jbY05ZifHye6P2ndl
Qv4A7zajLfQ14gvo1IvWZLVBf806Fmtcw4FHDmsNJn6JZwTjQhs0/cyd/+M/
/qPtWF5++eXB9rlX3LEkvlMiO+RxdquDQzyvbnCPEFMn7hRjvtsPDJoewMQP
fS2rlpt4x6677trmlU1sZcSIEcF8xPqFNG13VXqA0aNHp14H5Bu5ENdgnGj+
hjEg8UcfF198cdv2eG7m8e3KSt31AIwLl1566UzPGtdbyG72eoHoTxhXpJ3/
0OsxaL7dNQjimsyPXa9o0/AALxrzPPPMMzvG/MxLQ47xwfVEyVsTvSqkB4jD
z372s7brYvbZZy+tNvqjjz7aWmqppVLvcV8j3yCEx7RZy7jtttt6+nvWHNFE
m/mvGe9RC49nhq1lYHxAHnususacH8YZxregl8Y6egh9ETp/dLWsz6eNc9GG
M+e3+2fdn1xP/N6XXXbZjv1jm+SYpuV7UheAsbX9HFhggQUSDUYZ3H777W37
y36UdZ8MEpMmTe54VxGr7bXWKT5wjA243om925BX47s3uIf7He4733ffYIMN
gvf161//OtXba7fddut77UW/g9cU82TeeeR8Pfzww0k9D2LJdjyE+GsR8LZJ
87SghfIhDg3jk6p8efoRnuNp10BaHKYXjJ81nkpVIn+A/tcDxAA9VNp9kddX
0I2RV7Fu58LzlHw7xoF2Tnqs1i0nzAXtwB577JHMRextMDdbeOGFh9bGTeOd
SXzn5ptvjnjE/BDjcr9rUX8dvoebd83asFvXrShuDh+1r2KCrsHur8zaz1df
fXVqzNHXuKZC+IiiDWG9Au0147leQPvC9W97xzP3xwfDjpXQ0ASg5a9KC+x6
FuKLKbKD7iftWiR+WLSWbizQ2OBdIvwMmh7AeDD7GrUo88C1T20KvKu1Rumn
bv4A5Ot3e7+69brxBHD/hvw3F543xBbN3xCTLJpD3Cu2HoB3et0wWlLG8938
FWzQl6adozJ1taIajN+Kr7EeFgrW3m0fN8a2zAeM/wD5p2n7kbXuZBroalnz
ilHTiueS631W1nMpFNIDxMGORdJYiyuDY489tqsfQLfGc6HIuJ4cDrZDLn/W
/AV0AYwHyE8hPkX8jHklMR7eV8RBYvpgM95krJ7nuNGK1k5DR8R2uuUN+cb+
7jufeu3oJcaNG5f8rlevF847tVWeeWZ8qTpvvKHc74S+QYQBbQXxGpNvRWPN
0ZfnPxysN6+yyirJO8+uy4qnhe+ewCek31l//fW93x0NZCjQAeFjar+rTWN8
RT6RaDbkvBMvZt0fPZ8LsWH7vOMlk5dunqTEluvmSSrisNdee3mvAWIJeWNu
jDvMdm699dbAe5wN6QHa9QBoyUR3WNtNWxvn53k8CJjbuHECPDSqBI1ZWvw4
Vlt88cVz7SuaVXKhN9xww8R/kXkhDX0qzzDiSOhVq8TOd6Gh0w4BMXOeqbHi
sq6+FI/6mGyzzTZt/RXVNvYCc2A8L/Jet/gWFoFjynaoh50VcgMuvPDCxPOU
a5/YCroQ9MZ4Y6Cnr1oHjH7UPl4862J5N/YrxMu6eVaguRfNZND0AK6Hqd1Y
A9L8Mg510wN005vT8AqycccGNNYDbHiXu/72eJuWRZ39AajNZ2p1ZPH36+aH
VvU8RcSF+yktN4h1gnfeeSdIH9zH9rokawOuXxzrTmkeJ3nWFMsGfz13HFxX
DWca0gPEAZ92+9og3y8mjLH22WefwjGbbbfdNvc+MF9lG3fffXfAbxYf5txm
34s05u15wBOLZzIa8G71ds8+++y2/ohBNR1iGW4da2Icoji8y12NC9cYY9q8
oKtjzLnZZpsN/cyNhZqGL0U/Q36dnbdtN1svkRfGP/is+J5N5Aodd9xxysvo
A/CQZW7JehO+Qj5cHwp0cnnAU8/2mHVbqLrEov6kzb1WXXXVXNtjPmfro/A8
qhLpAeQPkBXet2nPxrzX0JNPPtWxrV58w2NADIb7u+hcJ09j/tKvuJ4S+N7W
Hcby7jkKWf/Oh/vOiR3LZw7EWKnotZvXJ4AcBuZcrIP16g3QNNDiuMfr6aef
qXq3GoUvN9ZusTwxRXwGTQ9ATYBu13KvecsiG2l6gKp8Ol2PZLe52sMddtih
7ffEGe3cMOL0du4RvgCjRo0q9TvV2R/A3HfoP7Lo+fEqSztHvJdE/8KaVdq5
JwetKOTMo9u2t0s96zTw8Erbnzp46nWD9629v3njaFUiPUAclllmmbZrw9W5
hQbP91Bxmzzr+cb3Ha+oJkG8gDq3IY4b45c8+UOm/h55m91wcxyoudIPuLp4
PGREMfDVdusDcH3ilVOUQw45JNH6EaMgvhw6htYUiJ36vjfv1LweG+Qn4hNP
7TXG9e620UniwyYdQP+w8cYbJ+e2m56M8YN7Lbz22muZ+3LrBbuNWtyi/5kx
Y0bqNdBtvpYGax22Tyi1i6pGegDpAbJC3q3vnkCr5eYz9Iobb0P/WkWuA36N
br0xuzGmw5eN+A2+vqxjdntXMD6hBgB/z79pjblp0zTiWXG9VvLq9crEjb0x
bg1RMzANtIjE8O0+3dpjoftzay7kbeh+82h4yNPj82WvW5QJuSjUObSPV+i6
Fv0OdTrSrj1qo4jmMmh6AGqXdHuWKuc4DnXzByDW2O06cDWTdjwN/RweVujp
0JsREyZf2fx+6aWXLlyTKQ/0afahTv4Atk4h6xp+N90G3rJ1BO9B6hLiFZGl
EaPI+pmYnyf/tqrnIR5Odt0Nu+FBVdQnmjWI5ZZbrm27eH0Pt09p+UrUIq8z
+N/Z+1umb0kopAcID/eR6zkZc23Mp/EhtoMnB2PRhx56KMlBB7w7qDPHu5Zn
kc8rhPqMWdabmA8utdRSyWeL1J2tAo6B+/3xVt9ll12SeAke+mgG8F3H+wP/
Rvwpiff46jLsuOOOmfpnezPPPHMy1ulWD4Fj/OlPf7qtL85tP4APqP29inhU
CPwm3kj8VO1jyvMoVO4Pdey59vEwv+SSS1LHkv3uY3/iiSd6vze6C/xgaHjn
mf+f1tD5ECcgd8p9pjAvYtx48skntyZPfq7qrywCw7uZ88xYstsaEeuZ7nVG
3mlW8J1Nu1+59hjDi/6nm5cja8i9QO4Gdd2OOOKIjjkcmrGqkR5AeoAsPPLI
I6n3BN7cecHruer47GWXXdZRs4CGNmHXXXdt3X///YkW0YY5x/jxv0zyjlwP
L9qCCy7YOD/EWLj1AZmr1R03H+8b3/hG1P6YS7vXEPdcLHx5qsy1+d6sVxPb
J3+JuT35dKz3X3DBBa11113Xe73bnmi9QG4A43fiCSb+0q+gI7KPFWuCojfw
SOQ6SXv39Evex6AyaHoA5gNp+0SjrqwIT930AD5fLLvtueeeHZ9hXSJtPZD4
BDlOZ555Zqk1bW3qWC+AcbrJ/WLskhXqcaWdI+7lusEaVlpNtyY2ar5WwTnn
nOPdH7SvvFeKQBzRXYNAF85YezjcPHvTGCPF1Cv7ePnll5PcPHQM3XIp77rr
rrZ9nXXWWaPWN4+FrQdg7i+KQ60/91ombhoD7lu7NjjPSXIJe/VkYt2fWIYb
K2L9qVeM1xk5JU2CdX37O+P/g0dKrz635Nix/u+e6yw52KYu9HD1fnzj/uee
64/1Qbe2Bto0kQ/eQUabY7fTTz89aD944bC+gG4mbeze72uLtjd2rEaOHjlO
rK9Rby1vXW9RT1ZeeeXkPJO3nwbzPZ9XBPO4rCyyyCKp1xp1KcRg4OazuuMg
asD4Grlqc801V2qdFNPc2pBVID2A9ABZcD3fTWNeQwwqL5tssknb9sinLxO3
zphpu+22W6Lt7AWuI592/LTTTou8983giiuu6Dg26O7LhvVtzvf+++/fte7a
tGnTkrVxe39Zr48J3kPuMYpVN4P1frsffDHI1+lWj8+Gv/NpJ8eMGdPzPhgd
EOei33FrMvDME71BfmC3sVTeOpSiHgyaHgDtZLfrmbUTEZ666QG6XZs0Yoc+
8PVBn0o9gcMOO6x1zDHHJLl5vb67Y1JHPQAaRvaHtZ/Jkydn/jzHNes5qhLy
ZhZddNFgMdaqG95AZcO6H7Ec3/7ccssthbZNvNKNjaMN6HUtn7XLtGNVpifI
008/neT2mb6ZL/nuLzQO+GHa+5nHY7MOyB8gPI8++mjHdVykZnca5HPYYwA8
dPLqeshTnGeeeYa2hY9Ir56Wq6yySvKZJtV9HzduXFs8ZLvttsu9fkn8xdZT
7Lzzzj19jv7QchBnG26s48b0OFf9guuFXbe6TL3C+WTuR90H9GRcBxtttFFr
+eWXT8bkrKHEXCfhvWS8x+2GdpR3dEiIJbNt1oZ8723qpfQzjG3S1sTQRTPe
ytN4pk+f/nJSx5gcG/f44iPCtYWHmmg2eOmYsXK3+5MYtHuNoZXFWysLaF27
zUuOO+64ol9p4CEPEJ0hx/LAAw9s7bTTTon/De+A+eefPxlvP/DAA1XvZkcd
55ANLdjbb79d9VeUHqAlPUCvkLPmu5a5Z/PUZbFBT2Bvs8x8T2Lvrkc7uc/4
OmXFxB3tRlyul5yPfgcvLPfYTJgwodR9QH/gelam5SGY8btpzFNig9bevQ5j
1M2YMGFim3aFvP68+fmsxdpxAvy+eoFxPGN1YvSMu/odjot9bpuWG2LgXFGP
7dhjj038rMn3YA2X+Sx6SM7pk08+GbTPE044oet4Km+dGlEPBk0PcPjhh3e9
npvmIdsU6qYH4DnZ7TrAv6dp1E0P8Nvf/nYoRpjXk4fxu887jMa6bh3Bl4wx
N7XYmtyo1ZA1jhcCct595ztEreajjz66Ix7EmmgW1l57be/+EdMpC/zV3f6Z
A7v84Ac/aPsb/HzL9jEIhfQA4WHNz72OisaUfKCdM9tHn120pjQ1YG1NwJ13
3jnsZ4wHIFqEJsWFbD3PcLn5vcCxMl7frPH3Eg83fuPkEQwHnuL29dRPnvru
fJixSZOuJYPv/eG2mJqZNP/6GJo6tLvdvmcv13ST8Wm+aHidhbx2GfcyvnLr
CPCM4Xw3ddwhWkPeGsPVfcHP2b3O8sSV3Jy5Mp4Tg0Yv9Yqr1gOwNpK2b2jV
GQ+lNfwDiTPi6YPGwedzi/6sDkgPID1AL/AO5Vp2r2Ou7SxeX2lQf83eLvO2
Mpg4cWLb/N6MG/KOQVm7/dKXvtRxnB588MGwO95A7Nq3VT3nfXWb8YFxIR/Z
9sNnvaAMLwM3b5ScgxgQjzN9uDWK88B5NMeLuWkv2gLjxYr/3yDgeil87nOf
q3qXctFL3iF5YyFJi33TFlhggaB9ifKJqQd4+un66QFGjRrV9f4h90yEp256
AF99ILvtt99+lexXEeqmB9h7772TfUG37Nb7yoLPf5Imr97+gzifT/8Rol7Y
Pffc0xGr5hrNyvnnn++9Hsv0q/AdI9eT9eabb27T2zOnqcIXLhTSA4THV1M7
dH4uNe3RKrNtvLtD1XG0tQxbb731sH9v/PK7+R3XDTtGGnLdknxAs93h1niI
QfIO55nz6quvdv1brh3qUdrX03DbbxJu3QZaE2uvEBdFG423Ozlgdh0PGjEl
/DxjgN+F+x6mrb766lH6w7+r21i/3z3hqKfi+96x1p2uuuoq7/lda621Cs0D
RDWgCcaLinPabfyIxs9d06HhT5wV+/3kNp5VMXL1Bg1yX1jvw/OG8ZNb547j
TL3YKrnuuuuCxer4LuTS2XOnutQOlh5AeoBeSPO3vfbaa4Ns331+U/80NowJ
3NowvGvIRykCvifucVLNgFZSu809LrFqBKbh+lD4xgnUhLQ9MNG8hM53ToN6
wfa+oZ0LDbFOs320EKG0ufh/mu0OV3uN+Trrytxvg5Lbbeem0HjmNRG0Uoxf
GL9tvvnmbboZWmi9N1BrNm081qvXpKgvg+YP4Pp9uq1obWrhp256AJ9G0m5N
9NS2xxdV6wEYt5m1yKLrL76xIw3vAdE/+OaFtG222aZwXIo1LfcZxPyi1/rb
Nrbuxm69rEmGYqGFFmrr29YW811Zt5plllmGfs9aS6912uuK9ADhOeWUU9qu
I+YUoSEGw7bxrA5dg2/EiBHJtvHJ63Yv43lAvJs6JE3KUzW1TUL7qFP3yPg1
Uhe6G8Qa+bte8vzHjx/f8VzspziDORb99v2MdtO0mHmTa6yxhvf9edFFF0Xp
j/XptHE+a0P9vkbNvN733fGajAW5Rr4+Gcvz7BHNwfgLc992w1dzl3f+H//4
x8x94pubds8uscQSeb+K6AK6MPs44yFTNe57yTTmNnnrpOM3bbZz9913B97j
fEgPID3AcKB/cf30Wce7+OKLg2yf+8m9z/AXjI0vV5w4fVFYL3O3W8cao2WD
ps89Lj/84Q9L3QfXsx2tqB3ju/XWWxPPc/t5UKa3g7t/q622WvA+eM6z7Sz1
SnuBbRlPQbbdDTO2o07QoODTR1etewwB59D+TqHHEcTX0sbktH7K+xhUBk0P
YHLE0mJDeecYojt10wP4xop2C6W3LZO6+AOgSTN1mr/2ta8V3h7at7Tz1A/v
cfEB+Dq655faYSFygdx6YDTWEvNAvpSbS0OjHnJZ2DmPrOvhr8ocitrd+F+Z
380+++zJO76JntYu0gOEx43FEGcNCc9ncsvZdozcDOqgG90LuWRpmDoh5Ic1
BTN+JgYYwgvUheeFiSm++eabqX+HXoC/e/jhh4fdpuudEstnsSp++tOfdjz3
x44dW/VuFYZ4VxnzMzxrfOM4clFj+RGw7p02fowR56sTf//735M1Wd93j/kO
5VyivfL1u++++0brV4SHHFHOm68elY1Pd0JN+jxQAzXtnt10001zbVN0x/XX
pjZO1bg1pk1j/SgvRp+K9rUuWjDpAaQH6AYeVIyl7XuAGMT1118frA9qsJW9
xkOuuhtL4XuG0Ayi03W/T13qg1QJc3L3uISoxZkF5ram1j1+cugRbrvttkQT
vNJKK7WtyVD7pWwNqatZpsZhSLg2jbYnhif1fffdN7TvL774Yurfrbvuusnf
9LtHmo295mlajBqZZYNfv/2dqAMREmoPpI3JaUX9XET1DJoegPXJtH1iPiTi
UDc9QJrnt2mTJk2uZL+KUBc9wKWXXjo0lnv22QmFt4eXUtp5Cp1vKqoBrzD3
3OIZGmIdm7n0nHPO2bH9It5jyy23XMf2Ntlkk8L7mgXWpqiZ4e4H82vec+R+
v/bajFL3KSax9QDksVFzgW3jVWf/2635/qaszxd9/lEXx752Qnun3XTTTcl2
8f2IlZdv8tqoC+cDjSfeab343dcJ897Lq1saDtYKjVYjLa7IWje/X2qppXra
Jv6E9vXUb7XZmfO6z1vi2E2G+8P2kqFRiyM03P/E+X3juBD1gNJgXStt/Bgz
R74OpPmgMR6KrRFk3T/tuMfQN+WBZ+CECRMre3/n+fzzzz9fqr6Tvqjv3I0Z
M2Z0+JXSiEvngfd12rVDjRMRFuZIbu5x1bUzqX2cdg2MHj0693aNNpx1p7rQ
FD0Atb9iPf8uvPDCtrhgrOdn0/yceP5utdVWbdc/+snQa3j4B7r3GfXkYuLT
kF1++eVBtv3SSy91bLvf9Ml5IL/GPS5HHHFE6ftBrIU4lTtuQJ9OfI3aGIzN
qmD55Zdv2yfWzUNi6lbjfRoDnhmmvnyaf8iECROGYjOha0TWGTQn7vXfdO/U
adOmdXwnvBpDcuedd6aOx2hou2KBbpM1As4d7we8yKhxgoYIjydiMPiHPPro
o8ncklr1Tz31VDL/5efUxiIH+IYbbkj8Arkn6uINVScGTQ9gnpG+hneAiEPd
9AB2jR234SPexPqEddADvP3220nf7AOe5tznprE2YP93r83Wi7qN7yyaDXmn
RitsWsh6HSa/yW741hbB9pysOo5D3Ix1KsZrxPDqkvMSGjvPMbQegDGiuybW
lMacOu/7yvVjRasfEvIO2O6JJ54YdLs2PD/oY+GFF/b+3ujTyqznEYI111wz
+jsOvwT6wN/bh9FaDJcbasBngHkEucGs2/zhD38IubuVY+ddmMZcs8k88MAD
bd+HeBzjuNCgMUh7hqFti0Wa9zgx9Tz1gpqEzxuTtsUWW0Tvm9hL2vneYYcd
ovc/HOS72PVpm9SYW73xxhtVH8Ih7PVM04i15NUtpHla0KiFJcJCXNV9NuKD
ViX4PaVdA0W8o00N9irWwNJogh6A+87ni9fEhu9EjDFODA4//PC2fUezHcM7
ffLkyR3HCd/BWBCrcPtj3hAq9sr6lLv9tDnioOEeF2qqVwUaI+YgeNfff//9
tRjXuP5Eof308RJlu3zfWBhtfprWes8990x+z7tnkDDxILvFXMsuA9bI7e8T
Q+/N+nu3d+p7770XtD+bbjmhRVq/z/+zUpUeoKq8IdZ60/Yphp+t+IC66QF8
3uSmFV0rrIpf/OIXQ9+hKj0AdczLnNcRxxDNhXGYm7t/6qmnBu1j6aWX7rhu
imrQTe0vu3Hti3jY/gDkfYSE9Ykyn1uhG775eTBzwljvDTwov//970ePvRmv
tF//+tcdvzP3f5n1B0OAzpmcqZiYmBk1RlzwUsBTgZojeWpA9yNjxozpuPdi
rmWXwXHHHdf2fag9GYNdd93V++xiThbLO4S8l7Q135ieBHXBl39HQyMZG1+d
WvucV6259tWQalKr03MH/xh3/9Ci5KVbnKaO+itiodReuueee6relVxQr9s+
xiHq/BXF1aqahm63SF1PU2e3TtdRE/QAbn3ipjdyB+uO622NXjuWPnjixEkd
x4g8zFj4aveGzBPk/na3v+SSSwbbfpOJedz7ATdmGNr7k/xlaiTE9Hli/s6+
E9Nx+/ntb3+bjLFog7Ym6q6d04bzv6o77tw6ht67mx5grrnmCt6fDTVD3JzB
oo2aIIPki9ELg+QPwHOv2/WBRk3EoW56AFM3x9eaWt+yan8A/GmM9xPnlRyW
EG2eeeZJPVeMqUQzefXV11oLLrjg0LkkLzH0+fS9gxgDF4knwZZbbtmxXdY9
RTxi1gtAS0WddPqgkZ/m/uv+/7Sflfl51sGLeGm4MVfWzpoIa3vsP35iNib3
mboawo/x88Ff08Z4KLFWID7AVy+g6XXzjA+FaTH8uFnvJ5btG8OFrs1pg2dg
2tix6edtOPDCT8uz5riUQbcYzjPPhPWzzAq1lDbYYIPWbLPNVtn7O8/nib3h
21J0DBsK6m6555axfJHaPGjQ0q+bZwLufRiuueaaZN923nnnqnclF+76Bxqx
qiGHO8b7gngCee510jg2QQ+AFhIf71jPPzwp7PMc6/lJLRJqcPF+rDO33npr
Ww0Prls81mPhy6fHozkGxOJ9fnwhPa6Jx7jbX2WVVYJtv6mwBuYelyr9AeoI
mmj7+DBObCL4YbD/7nPD+IaNHDmyoj2rDrzi3eu/6f4ArJPY3yeG3hu//bQx
OX4aseG5xTubhu8k8zdqp+GxwZqdW+/KbtQpJHeUWkF8Nlb+QdMZJD0A103a
/rB+Ka1IPOqkB0ArR0wl7VqgBkkTqVoPgN6Kvtdff/2g27W/l9vwOxbN4/e/
/31bThFzw7Qa1kUw3pB2W2211Qpvl2vc3a7qEcUlph5gUNl///07YnBNhDrg
7P9BBx3U9nN00vxcurF0zDGi3oiBtSbipqzrNK3eakyo2eo+92N6PsbmT3/6
U0dcNobnkk9HYVrI2kAuvlpBNHSI/T7fGzt2rPe7o/kq67t3y/OmfoRoPvvt
t1/HuS06BzR+P76Gr3XdoBYR+5ZWq7fO+PJkqs6NoQZa2vkvolUwa54h5oAh
Md7OtLrqAWJDDWA7fj/IPPLII236COKnPu+zkEyZMqXjXov1PPOt1aNJConP
X2SfffYJ2kcToQ6Me1zqVDulDnzlK19pOz7rrLNO1buUC/SJ7P+111479DPW
U1l34efUzBo0iAW51z/Pvqby4osvdnyfGOe12/ppHXRWPo8y05ru/1AWg6QH
wHMibX+OOeaY0vdnkFhsscW8x70KPQDPyrTrYIkllih9f0JRpR6A+tv0i+5+
8uSwWjs8p9POV1rdY1FfmI/gR2nHp6klF4P11luv45oJke/6pS99qWO7WjeL
i/QA4XH1MqwNNpFx48Yl+0+tcMPUqVMTzTD5n/1Wxz4kp5xySnLszjnnnKGf
XXLJJVHmBE3Hp5F//PHHq96t3Lj1D9B/xPCPZL6XNoaL6XvO88DX5+jRo6P1
WRdMDpDbNt1001L6J+7I9ZR23m39kWgmjOV9vh9Ffaa7+fdNmjQp0N6HAe9d
co/JMUBf1TTIQ7aPL3P4qr/Hddddl3r+i2gVqOuAfuW+++4LuLfFaYI/QGyk
B/gAfPvtZyq+dXnrwWXBV9+H9YEY+PIpqLcSEtao3D6K1onsB/BFcY/LSSed
VPVu1QrW/+3jE9PDLCbnnXdesv8nnnji0M/Iu+Jnq666aoV7Vh0md8Rub7zx
RtW7lZvLLrus7bvgrRVD7/3aa6+ljsnQz1QNcb667ltTGCQ9AHXhfftCzAKN
jYhHnfwBbC222/hdU7H1AHPPPXdp/b7zzjuteeedN8qYHrrFFUPXdRJxYZyy
7bbbDp2/z372s1G1ez4fkKKxSuZTpi6GaeTS9nu+YdVIDxAeN3+W67qJEC9j
/9HpGA4//PDkZwceeGCFe1Z/TOzd1kmtsMIKyc/uuOOOCvesftx0000d75Op
U5s7d8Bfyf4uoXO0DGnr8ozr8AqKARog+51hGmt35J/2O3ic+o45a09l0K1W
A40aPaLZmNiy3YjLFV1PHjVqVOp1U7ecNjPOiOlzEhM8lezji89f1ZDH6zv3
6FWr1irEQHqAdj3AoosuWvXuVAK5L8REzHFg3ISGpQz+8Y9/dMTZfvCDHwTv
B39Wn4aMsXUofve733XEaGh19JYpm7fffrvjuLh19gad7bbbru341M1PpleM
n51dFwBtQ4g4aFNxY1488+peO6Ybu+yyS9v3ian3Js7tG5dVXY9z+vTpqfMF
cp5EbwyKHoB3YNqaYlO9YJpEnfQAXOe+ffn4xz/eev31fDoxxriMQfH0Yl2e
PLILL7wwub/KWiesyh/gW9/6VtLn/PPP33r33Xej9IG+wXfOll9++Sj9iTgc
cMABQ+cOf58iNUaH4+WXX/ZeMy+88EKh7VJPxN3mDjvsEGivRRrSA4TH+LrY
LdYzPDb4a+JPDdQH453BmI8aYyKdhx9+eCj2CKYeNLUHpXFqp5/uF1hzzTXb
vkss7cwXv/hF77s4lv4AjMeF2+pQGzs2xLd8WgjaE088Uco+nH/++anzf9aM
VcOx+fjm0rvvvnvh7V599dWp1w61R+oCObXoi8ipJ3+qifAMto9vHbwy8Wn0
nXveV/2I9ADyByBGbfsO4nfPGn2ZuOv03/3ud4P3QfzFd2+zphOKG264oWP7
+FASpx10ZsyY0XFs8IgRH+LWQFpyySWr3qVcmDW4tdZaK/lvUy9nnnnmaf31
r3+teO+qAa8E+9zyzGsyCy20UNv3OeOMM6L15fpm1OUY3nzzzY2YL9SdQdED
dItNyLcwPml6ALSwZfLKK6+2Zp55Zu++oLPKCrEPNFP4EqddX2XlM1ThD0Bu
NzoK+oypN1x22WW9xxYNQt3gfFOPa88990zqGfCvae5/D9eq/DyeuiFr1hlf
ahpeLehn8oLWZquttmr9/Oc/T/0b8s/c6wUvpaJzQl/tuyuvvLLQNsXwSA8Q
Hry63Wu5qTkUxBDZf3J/b7zxxuT/Uy9EdMfUnzPeCnvttVfy36eddlrFe1Y/
XA92NChNhTxLdyx8yy23ROkrrY78vvvuG6U/wA/T7Y84WN7aIfhgsW7DfVFW
zl5efGMfGu/QstYYbB8ot2255Zal7IOIB3pb37y325i8V5hXpl07dXovmToo
O+64Y9W7kgtqw7h5MlV76ePdm3bu8bPpR6QHGGw9wJ///Oc2beZhhx1WaHsj
RoxIrqOsa35unJY4UGh8tUDwFw3Jbrvt1tGHfOI+wNTWs9sjjzxS9W7VCjTD
9vGZddZZq96lXBjfxAUXXDD5b5O7VwfNX1Uw57TPLc+8pmJiN3bj/o6FuX58
bdq0adH6HQ73nJrG2hR+vqI3BkEPQK6Eq6ExbYsttihtPwaZuvgDHHLIId79
QN+E1j8rn/vc51KvcRrrj2XF3+wYYFn+AOgO6S+2bn/jjTf2Hl88weqUw8j8
K62OTROb7b9dBOq2mW0Spye2XgTW+dhWN8/Zhx56qOP7hPCC2Xnnndu2STyt
yfWnmoL0AOGh9rl7jxCXayImnsYzwTwfbrvttqp3q/ZQA5pnGHmOrJUS+2Cd
m7rIoh03b2SBBRaI1teECROS+o/o8r73ve+17rnnnqBjyfvvv7/j3rfr1KIX
QCtNbdHjjz8+qbs4ZUo+fWDa+CKWhnTSpMne/n74wx/m2h5zSDuPNs9cmXx4
NMfMCVZfffWo3kiubsW0DTfcMFqfNq+++lqSM5123vHZEM3GzbOisY7XTW/L
73p5hvF3aXPrunhxoTvkPcm7M0YMlmNADO2cc85J1id4Do8ZMyZojit5ofax
5Z61tU7EUvE6JE/4hBNOSN5HseO+vhoUpvH9+xHpAQZXD0D8inNuvnvRtTpi
K2xnvvnmy/xZV0NJ3C001CBw7+vNN9882PaZz/h8rX/1q18F66PJoPl1j408
9Nrhneseo6Ixy6owYxTe5dwXrJFSl2RQocawfV5j1YLguc648KyzzkrGb+TD
hdDK2lx22WVt34W1B3t8zTVLHRbGbozhmP8W8bFi/9PGZowTq2KxxRbz7hPz
bNE7g6AHsNei7Eb8E427iE8d9ABvvvlmap7SBRdckGubzM2pf8q2eVbyfezt
llnfvux6AUbny/gi9vocOuW0Z0mdasES802rsdPEFqIeA+sYxkOC2lV58/Ns
TP2IbmN039glRB4P3mH2NsuKsQ86th5g/HjpAULAvNC9R5hjNJFtttlm6F3O
/BdNfNl+m02FNUqOHXUk+Zf8GtEJNRVCvx9tqD3A+j++R773MT+3592sU7Om
jr92Vl0kcWd720b7x3iWmtK+sTL3FbFbtHZZICbl+z7UmI8B+XFuX4svvnju
OpFu3GWRRRbJvA03Dk6MJhYbbLCB93gTkyoDaqmnjSmpHaHncrNh3mv8eLJc
07xXeNf04g2Wpmmpi3cvugT2hxyDkHBsjjzyyMTLxPf9GdfYmk3Wv6644opk
HT0rPOftbZvYOLow5tyzzDJLR/9o8BlrddNiF2Gfffbxfm+8bNCo9SPSAwyu
HsDObUT3WRRyvdlWntwHW5dAi1HPCT9r994O6fvBs9Ddfplx2Lrj87ekVoX4
ENZQ3WM0adKkqncrF2ZNAk9V/t16662r3qVKcesj4TMbEtaCGBOmrQMsuuii
Sc1ZA/rLSy+9NFfNDvTl9raNfouaIN/85je9mmx+Rk4b67N5YB7t+17ELaoA
XX3aXHOQfTDy0O96AHyYuP98+8AYXJRDHfQAaV4naGJDae7dOO7pp58eZLu9
UKYegDVdcuPoi5rwsXFj13Yrqx5Dr6BDxtOSmM5wjboCvfxdFZ9n3lC0Jia1
atFdcZ7WXXfdID67xiNpuFoRaJ7da4V6CUXg3LrbRO8g4iN/gDiYtWDTYtSM
LINvfOMbQzEs/o253tZvmLmrOXZjx46tepdqyTLLLNN2r+y0007Bto12344h
EM8lRsDcfurUqcnvqYHKegz1z5jbrLDCCkN/z/w/C2ussUbbd9l///0TbYFZ
h2LdnzUm5tvohljPpn/z9xdffHHPfZGr5hu7Ub8rNPgq+HzMi9RINVqjIjEk
N9+ZuXcM0DzY70q7xVrDs+Facd8pdrvjjjui74OIi897C61Qt9xx8tPQBXFt
9uJjjeeWL55JP3l9SkJh1lTQg4Wqw0sM4swzz2x7xm600Uatu+66K9G8U7uN
XDPmUxwXapShh0ZfY/4+61zcjY0fddRRiSbQ1BGn5gf5pMwDyZ0hnmGeLTxj
82gQhmOJJZbwPjd4X/Ur0gMMph6AuVboWKFZb2c8lxXW5e17bs455wyyTzY+
fwCee6H4yle+0rH9Bx98MNj2m86oUaPajk0eH4l+h5qJ7jXU1DrkCy+8cNvc
vqnfIxRmbGPa0UcfHWS7aJzRc5nxEfN06qLxXmP8RuwYTy00lmjtGVehHbDn
hVnXr6m3bX+XU089tXX22WcnHo/0z7o/Hn/EEKZPn574/BltPjl61AvNCu8p
3/gMnUBI76peYRycNtfEA1H0Tr/rAdL84VkDzpsrIrJTtR6AXGFfjJBnN/HD
EPDMdbfPemhZlKkHYB3Z9FOGthSfwrRnyd133x29f5Edxj9cHyauxfpFCIwv
BfqCbjA+c/MSR44cWajvb3/727UYAw0i0gPEAU8t+5ree++9q96lXOD9YX+P
qtcMmoTxW6ExPxV+iI/a11gITTEaOZNrSiNWkLbOgg+7ycs1+hfTllpqqZ77
JM/SXWvj8/yLzjMtToAvi/H6Id7Qaz2OtFry+CmFZtNNN+3oh/X8vPB+t+8P
Gn6iWXjppZc69unJJ5/MvU/dsOuG2Y11xNhzXo6VqdXia5wb0Xx89TqHG48b
b/rtt9++535cHY5poXPys/Dwww8nz0DGo6E8qFnXp3al+X7Ec4nj+uBZghYa
XYT7XM3ij0o9ILZhf/7LX/7y0BggbQ3tscceG/ocOfv33Xdfnq/s5fXX30h9
dvRzrpf0AIOnByAn1Hxf9EWhMM8EYmZZufHGGzvuu1BxGwPxOrePvP6sLjyb
3G3vuuuuQbbdL7jvDLykRDu+2GFTfRNtHye03oPszUUeo/t8uOGGGwpvl7GU
Pe8hTvDAAw94/5Y8NTQJzL/Rldv7ksXHhBwB97uY8RuaStaDfDC3N3//qU99
KrNGnLraPt8oWhVak+222867L27tKzE8MfUATz9drR7g5ptv7pjv0NBTv/XW
W9H7rwpiMqx/M7YrIx+kF6rUA6DNMrnsdgs9l7322mvbtk+8oMx3b1l6gGef
fXYolnzJJZdE68fG599kWln7IHqH3B48dTk/5BmGyqGBgw8+ONluL7kw5O/Y
1wpjh7zwHYy+IfQ8VgyP9ABxcP1Zm+qtyDqD+Q7kiIjesZ9r5AiKTphbhp7/
4g293HLLta0DPf74410/Q70A3zgI78BeQTfv2wbrtcPpO3nvmr8nZoZfz3Ck
afhD1+Rkrc7tg9qC1GHIC3phd5tZ3z+uh23MuQE1AXzHev3114/Snw15fmnj
dHzem1qDVXwI8QWf3wc1S7ph4nbkRfUKsVNfrRH8J/AbKBu8L4x/Cvd0CIhP
2DnxeMQwx+5G2vM0iz+Ar460mSMNV9MNLxr7WUaMOATo4NKeH/2c6yU9wGDp
AfD8QFNEfDq0T5DJGU1bj+qGz1NxypQpQfePPFW3j6z6Sh+8l1xtO/Fl6l+J
D1lllVXajtFhhx1W9S7VEnteRmuqb6Kdf16Gl2+d8fk+PPfcc4W2iT7TeDDQ
WGsa7pnJ8843xsmiebT1ZHbbfffdh9Vw2XUP0S5knR/jc+Drm+2WCXWt0rzw
yPkW2ehXfwDWD1nvdful9trLL78Ste8qGT9+fEd9D2qK8Myqkqr0AIw9fX0z
DkcvEZK99tqrrQ9yosvEzguKpQcgv2illVZK+lh22WVLy4321YI3LUTNNREO
xhZmHZ78npA5gMTQjc4A/+ThsP34aKZGch7cWBXX/yBrbctGeoA4cB/Z1zWx
6SZi5xKG9J8cBGyP4uHWIgYVX6x0xozXc2+PHH03fon3TS/4crCzxJV99Zfw
Y+4lF+zee+9t+1wvdTnwRfT5c6XlMOQBbYXryY/XQlH/L9ffdq655so87iVH
zd5G6Lm2DflevnEyMZyYUJ/Up783MSf8zkXz8eVgEmvpFlNkHo6fCGO4rDXg
0/xJy84Xf+GFF4bivkXrjhk4Zva6A/dPL353PH/MPDzP+wMOPPDAjs/z7OjF
Q8TNIw6V3+xqU03r91wv6QEGRw9AnI5xCeOh0DnHTz311NAxRGeUFeIZ7Jt9
7zHeC407TsPHuijUOXGfGzH2vem4uXHD6fgGFbc2e1N9JmxPecZugwz6ffuc
ojUtEsPFF8Beb2OM+8gjjwz7OcZY6KPd51WW2rO2JtM0YmDvv//+sJ9lrmZ/
Lqu2lZi+W2vKtDL9mtPGizTltWSnH/UAl19+eXJfun2yRkpMr19BK+P6WppW
9dpVFXoAvPzQf/j6jVG70/2O1HIpkzL8AahHY/q46qqrovThw1e33bT99tuv
tP0Q3WGcYNYq0MMwJ2UtIE+jbjHazXHjxiVad7yJ7RzgXmrCoYNyY9TE9fJg
r90wly+zFoiQHiAWzF/s+4Nre7j8sDpivNfYf+rdit4x91YRvVS/g9+YfZ8w
1i6C6xWYZY3JlxswceLEnj/v6hBY5+rVM411d/uziy66aE+fs/2wTWOuFgLW
x9A9u9sPEevceuut27bJecuKOw8hhz8GxJnS8iV6iVPl5fzzz0/VApBLzhhO
9Aes/brneLjYkamzlSdGR9zCzWk07/my6kJz7xgPHWKQIXTwxG3x7LC/E7Wd
e+Wss87qOCbMmXrF1Icxjfh0r+O+adOmtX12hRVW6Lnfbvhi5LQsdRCaiPQA
g6EHIPaA/wffkTrPeWMjNO5BtI5jx45Njh1jKbNGgx91XriX7Xvv5JNPDngE
PuDYY49t62O11VYrtD3i+u64p+z4axNwx+406b/9nHHGGW3HKUs9tjphvJwW
Wmihga9t6vqXFfGRxC+WHHR7e1lyE4877riO8WwW/zR3Tsl3+ctf/tLTZ921
2eFqfflgTudbZyUukkeLlhW+gy/HwDRpwbITt17A06nnKoYegLlQWr05xjih
fY/SwDuNeB31PdFBcn8wvqXmXqyakcD4Mu14m/FnVRAz9O1TDD0Aa5KMBamX
6fY322yzpdZmLQLrD25fZddqiK0HOOigg9q+XyiPwF7gPZl2XW+55Zal7YdI
h7HmTjvt1PUZFLJRk6AX3DrLeWLxrt/voPtuVYH0AHHAT9Fdy8GPpWmsueaa
yb6vtdZaVe9KoyBf05z/2DnETeaII45ou0eKzJfIC7O3xbONGG+v2OsHtCw5
6+RZut5pWdbNiTm47+LhahwA83f3OfPVr3615367QX6Zu08hfKM4pm6NoKze
tr46j7G0hLZHmN3I+QtZs8lAfoxbj9Zu6NDxWBf9g+9eQw+SBvVH8J/BIyKv
dzOxm3nnnbejX3IdX3ttRt6v0hOsu+PtHTpu5eoqeIZn8W11PV6INfUK9637
LL7jjjt6/jzvKvdcFPXdJYac9hzh3dvPSA/Q/3qAGTNmtPlKx2xFvJJHjhzZ
ti1i6qFBy2DXoOZZlHecgN+vm4sVwm+gH7HvMRr50SH9O/sJagnbx4oxQC/+
aXUCzaG5z/r9HdoLdj4ZrYjPkzsOxoeh1/V4sOvu0fCJ6hXfnDJLzA5dmv1Z
nr95cmjOO+887/uHGFzMel54zbF2mPb+415tYk5T1cTUA+Bdlna+8FYPBTkR
aLnS8iKoNx0jFuKC9o5nru23RDyE9UriXqZeFGN/INZ07rnnJprOHXfcsXCd
ox122KHrGJE6mlXAO9RXu4FWRMfq46GHHmp98Ytf9Pa14oor9lTrNA/XXHNN
W19ci7347oUklh6AeM6ee+7ZcTzxJisL3/svz3tUxIPcljLmujRii73COIe6
zOaz5MBmGbeRN2k0/TRyVbJ6nori2Pou6QHC4nrPhqjnWDbGG6mXOiLiQ7iX
zHnHh0f4WXvttdvuEdaJ8oCOkveXvS20llnYfPPN2z6fJWbrxrloxKp7BR2e
+/levaJc33wa+W1FICbh5gmEqvVJ/p27v1nfPa6XA2ORWF5te++9t3e8RB5y
SBg/kY9oaqn7GvNRxWT6D58/QDf/B+OvcdpppxXqlxzQ+eefv6Nv8qSK1gTx
wTbJm6IP8qBCeeID9RPceFXW+gdf+9rX2j5P3dheueWWW9o+ix9/Fi2CG0+m
/eQnP8m0/y7kcKQ9S3784x8X2nbdkR6gv/UA5LMQCy4rPpLlWeBy7bXXtm0r
1rlw82Pz1HgjnutqLI488sgIe9sfnHTSSW3HCk8t4YcYn1s7oxfdc53g/jD7
/uST5cXr64qpNWsann95mDx5cseaFmuQWVhmmWXaPp/FG8qdUzKWzKLr4Tp2
3xkPP/xwpv03ECv0vYPwK+g1Zy8L6E5NzZPZZ5+9dcEFF3T0vfLKKwfvdxCI
pQdA68c5SRuvsCZTZE2Fa59aG6xTpnnk8/MsmuciUDPDjvHhle3mgLB+amrF
oRtACxByHOPWr3cbWgR04WXCmvhhhx3Wdb+KeiYwb6eGaVo9E+by+BXG1EG6
6+Ux64OmYecGhdADMIfhvZN2f7GGFHv9AM0MsSbmJGnXD7FgrQ9Wi8+7MmbL
6i/HHNfOh8HHoBfQOJq8Y9qXv/zlRPclyseOn44fr/s9JG6coGm18tCsmX3X
mnY2brrppuS44Sco/DAOwVvKvkfQKObBXbPlvZS1jpmtT6Nl0cAcffTRbZ/l
nZaF8ePHd7yPu+UH2/A+Ze5nfxbvtjy5BKxJu7lsaK6zxmW64c7RsvgwGNw6
j6HX5g033HBDku/lGy995zvfKbx9vjexGNYt0+YE5nqivpPoT3za7LT1eBOr
4x7PosFNA58AX14Qz2Zq2oeAGAk16IwXKnNP8gxC4uap8dwiz7VXiGW4axVZ
1szd3LSsfvwcD/ccFFmzHzNmTNdnCjk9/ex1LD1A/+oByEVbZ511So2PFBkD
kZeGPsjeHvOr0JAnxpqR6YP5fZa6QvytWReikS+A75ZIh9xE+7zyfhbpuLrr
GHWGY4Jnet55S7/BuM4+l/gm5NUrb7DBBm3bYiyWJS7M2oqrYWcNsVfsus20
TTbZJNP+o9103xl33XVXpm3YpMX/0Wrdf//9ubdrw5iXOKWZ4+LHYNZYybe2
+5UmLB9F9ADTpk1P1mFpaP2IORD7oNZbWq6+3chXJ57DZ812TMOLw/1vzjH3
AXnedr6n2xhLkjNSRg4nz1h8Ke17m/1Me/YS92IMQwzQza0oWqfJ9QLytVj6
CLSdnKfRo0cn8SLm08S97PFaWsNLkBwCagua8+6ef7sRz6SGH2PsbtvnGjzw
wAOTGuKxcf2qeG6VTVF/APxcyasiVsA9bDwSuzX+hnqqXPNF3ifAvcF9y7nn
HLNdN+6d1ni3b7jhhsl1QW0ytsGcCF8yEZfbbrsttXZsrJbH58mN7XONdRsj
M1a0tQDUPMlSn1OERfUC4kHtcfveQEfdJEx8OrTf0CBgfIfx/RZ+WAe17w88
qPJAzOBTn/pU27ayatvce5VGvmavsPZjf/Zb3/pWpv4vvPDCjv6z6BHYV9f7
mzylLP5o5Ne6enPGvKwrhYS1GbsPxqRZces8FqnJceuttw7NsxjnMlbfbLPN
WksssUTX8RI1RPGg6DbH9v2OMdIhhxySzLXIxejWB/Nuxlhl+6KJ8llvvfXa
zr3Pq5QcdOKk5EmEnIOTa0L803cN8ix95JFHcm2X5yp5GowhzNyW/w4dR8Kv
zJ1bM3fNAp4q7nfPUrOVWsj2Z7P6a59++ukd/eOR2A3yd4gvmGcXzxWep73m
TRMv3GKLLZK8FztWRCMGF8v7sQykB+hfPYDPEyl2++lPf1pon93n+5133hno
aLRD3RHua9MPmqDh6vqyrsczwI45Lb/88pnGwIOKGy/P4xE+SLh52Pg4Nwk8
mfKML/oRo43IO+Yy8Jxx493oO7PA89n+PPqrLNoEd06Z1buKtVr3nZFFj+CD
z6etx5EfnTdmi58iazn2e4K1xd/85jdDf0P9AHtNmHMtslNED4C/RNnjnLTG
/Io4FxrxWF6MPqgnZ+8H85zhoFan7zsUjWWxtrXLLrt4t03uF//G8gHu5htZ
dqOOHvNDfL7LgDVCdx8ee+yxUvq2KaIHIIbnaoKzNmI/RfDFGIq2ww8/vNA+
ieHZdNNNS7/H83jLAfF0tLJmO8TR0UjbMT+0m3hX2msW6Nay+GmK8EgPEBfX
g6VJ8RXyx9jnrGurojWUr40uV/hxPbLz6s95b7nvMtZcs0Auvv155uC98t57
73X4HGb1ecZbx/0O119/faZtvPzyyx3rQKxZMzfqFhd58MEHk9oI7noaayih
69Qzn3L1qFnnT7Zfp2mPPvporv1Br1v2OGu4xjt5xIgRub0mRTNBH2WPj4kd
GY8P/EOMJwZ/g29dDPD8Yp7ruy4Z1/Ncpe+0cTvxAXSErMUa30bTyDfifosB
6+Hu/jLfyAK5I/bns+jTiKO68Wyeq1nwzflY70+DNb7Yz6Ks79E6Ycc+pAfo
Hz0A461e8mpCt6L6Kzd3Yt999w1zQDzwPELTaPoi/3O33XZrq0eKlwDrTeT7
2D681I9hTF1GPeCm4+qIyasU3WEt0n5XEjt8//33q96tniGvj/3OqvnuRzgG
9vWf1+vBxJrshkY+C6xL2J9fddVVe/6sz5/rmWfGZ+p/jTXW6NhGiHE6mn7X
s89u6FDRb1KvIG1cjt4LTe/FF1+c+HPY7098wFjb892DV155ZfI36AJ4X4js
FNEDoFEmt9tt5BH4fj7c73r5G57H+MWhFcH7Bv0T2vQq6jm7sT3qi/byriDO
5Hrbc80zdiwK67rEC4m1MVfmfcCzCq0B/RSt4ZfG4osvXsr5N79Dw0+sgTxG
cnh5vpKnnEUjHwp88uxzybp4zNoEaRTVA/BOQteB9ox4CjESfkZuEPoung/E
ScjL4vrib9BeEMflviw65sC3mG2hEcYLhjnhkksumdTZoTYBeh/uMbx6yCdD
w2zvDzERPsPzgW2wb3ljr6J3uC64H8tsxA7yQq3k/fffv219mTko6ypcd3hN
mJ/zXLv99tsDHi2RF+kB4uJqG88+++yqd6lnjJahaXUOqsZer2QtVvhx/V7z
1rzHN9udI2d9l2233XZtn8+Ss+J6iBHrylr/xs1NoOWp0fH/sXcnYFdN/f/4
f48ow1MUKUoyJCkJFUmhIiFTA3kSmlTSIGkw5SGFokloUKKkgZJKyqx51Dxo
uDUqFULo8d3/6737r2Ptdfa57z2sPZxz3q/r2pfc9332Wmefc/bZe63P+nww
f4j17fL3rbgXwngFxn5xTYnvalxj2OWTxrow3bm8hZUrVya157ZODfLXyo9H
Tluv9wY4xrhvDPtaC+PvuC9ATDnuBzA3gHtK3G9Ecd9N8YAaqrjHEu9tfI7x
/hb/j/s13TE6KswlYQ1GXnkIMVaAcy/GQ3DOwH2m+jfoP64fgq6zizxjatv4
LLmh5qt1M1+HmrnyYxEf5mb8FONXIoeCvGHuJBWMy6COCMYlMIeHPLIYw0Ms
IsYZcA+Pcz6+Z3Gux/09/ov7ffwcv8frhn1g3AHXe/gewuuImC2MA3n9To4D
5gfIzHgA1E8O+/sanwm/ucGRf0n+bOPzGjTcf6g1tbFGCXNAam5tnAOGDRvG
OAAX1Bgy5GqhvGGNge550zDIsQxu8rdlKvm6C8fFa65XuxhUt/X+1Nx2yHfk
1IgRIyyPxXyYmxgV1O1S68rpmn8UMO/SpEmTlPXrxIbvKnFdjv/Ka/XkDfcZ
qEmQ15o83At06dJF2/PINn7iAbKZmnsEOUDd5N5R68dhvjNI4lpbZ21NOgq5
y+XXEvPUAtZK4PyEeUVc22LMAfexOP/v2KE3V5McD4CxUyJKDbGMiCnEnASu
+TE+hftMXJvg84nPLsUH4wGCpdaETZfrQdyLiT77ycWdjQYPHux5TiJboHaq
HKOOuVEva0Qwd6quFcM1odv7cDUXl5saoMixLD8W8ytuqOPE2PzW6MC4DOp6
pRoLUDfMT6MeWdDjcuoaOS81ONVcwelyTiVyAudBrNu86667zHnba6+91pyb
XrJkSaj9QE5I1KvDGhGMjzo5j4hzF/LGYn1+bvPZuqg1bLHhutZNjQ38rVqP
891333X8eDXu021OJbs4KcQKkXeMB7DGA2DuhqKlzs0j/isMuK7D5wFj5PhO
QQxi7dq1jQcffNCsSRJ0jFmmEmvFxeZ2TXG26tOnj+W4OckBHQejR49O9Hn2
7NlRdydSa9assbyGmHv2Annp1WsfxJq6gfx36jhAbrmVVOr6e8ROuoH10+pz
wLk+CIjXxbm8cuXKecYGyBtiVBH/iTUByF3lN76NnGE8gHtY1yLy74vNbUwK
1j3Lj+/atWtAvT0Ka1zRDuPE9FPzLCOfCe77cf2KuFbEouFaDHEDiJkS9/IY
C8bf6Kpv4Sc/ABFRnDEeIFj4HpLXzSF2TeQAjjPEOIo+Y06AnMNcCI5bvnz5
tMaHZxLkpfZzrS8gZl6973WTJxDUcY2j47TrHD8e9Zflx+L60w01FxY27FMX
1CgZNWqUWese4x5NmzY1/4v4PMx54fmHVQ8O8zLy8/QyT6PeJ2JskYiChbil
Dz/80FwDiXMc4nJQwwB1pzEfjrwdqHkQ9jijWjcWG9b6u4H5MnUfbtaiYM29
/Fi3NfXUejXYUKeSvGM8QGbmB0hniK2WP+NcS5a+kKdCznsf1PxfJsIcsHzs
vM4lh61Ro0aJPsu11rORGtOBWG8v1LEAbIiFdQNz//LjMfbiphatWmevd+/e
rtrH36vPAffbQUMcK2JJx4wZY853tmrVyrwmx7UjrtExrjJy5EizTlcU+bWJ
8QBeqPHVmPN1U6/JLkYc+QaCJGobZHucmG5Y26S+lhiDEHVHkcsVYxMy1E6V
67e0aNFCS1+YH4CIMhXjAYKn3isgxjzu5FzuYazxyxSY/xcx26jrRvbk/Py4
d/damxX5TdVrxe7du7vaB2p4yI9HrgA31NhVtzUicN+uPodp06a52kc6wDyh
uIYXG3JpuLFt27akY2WX0wB1zFHblYgym1wnXmzI4+wGxhfkx5cpU8bV49W6
K1OnTnX1eDW3JTasOSPvGA/AeIC4wRyivKYTdT0oPan3HoiHI+fq169vOX6I
JYwzzL2itjL6Gkatj7iT8/Oj/oib+XdZz549k6593K6xVecPq1Sp4vixuC/F
2nn58V9++aWr9sUaEHnDPD0R4wHcwXiz+nm85ZZbXO0D91/y473kDHVLrHVx
E0dOebNbL4X4ENxzT548OeXjMKZ8wgknJB7z+OOP++6LvG6A+QGIKJMwHiB4
mJtC7SNxnN3mkg0brptw/YS+lixZMurupBV5reIDDzwQdXdiCXWPxfsL2x13
3OF5X+pcPjY3eQLh5ptvtjwea0DsoAa2XW13tc72pk2bHLeNdflnnXWW5fEY
a/JSOyHuvv02OSf2okWLXO1DzteJLVVecKwvQZyJ3etFRJlDrdeCbe7cua72
UaNGDcvjkXfQDs5XdvW1CxYsaHn83r17Hbd9+PDhpLoubmvOUDLGAzAeII7U
+E+310AUD4jlEK8hxqZRQ5ycQ85y+XPQuXPnqLuUKzknfMOGDaPuTqSWLVtm
ee06derkeV94rHr9hpx1bmDthfz4Rx991PbvsL5TzYWH/5cfi7wVuCZzCjVy
5fE9bFibSgSMB3DHLtcGcly4ocYH4f4uaKhxgvs40gtr+9X3A3IuO1lDdv/9
9yceg/FAjD37wXoBRJSp5HiAFSsYDxCU9u3bW77P4rx2FfmOdMzVZiPkCRbH
DjmAKdkzzzxj+SzMmzfP876GDBmSdK24ceNGx4/HvLtY8yE27FO1cOFC83d2
uenPPfdcy+N//vlnx+1PmjQpqf9u18ynC+STVJ/rrl27XO1Dvr7HZpcXHPEB
mJ/jGh6izGc3foRczk5h7Fddj2KX40VcF9mtXZPznmA82U3NBKwrVfuP/K/k
D+MBDOOzzz5LHIOyZctG3R0yjtZvknOlp4o9ovhCvJl8vkZ+GXIPNdDFMcRc
SpxjKlCzWPS1b9++UXcnUqg3J44FYvu95vcD5LlXr3/cvA+w3kY+n2Kzy683
ceJE83eoT6DCXJF47CmnnOKq/y+//HJS/1FXiwgYD+AcxuPU9THYUF/GDdSf
kR//1FNPBdTjozZv3my2g/Mi6aXmX8WcFeqfOIE4EvmxqOngB+MBiChTMT9A
OFADR84T+fDDD0fdpZSeeOKJRD/d5t3NdnIOPa77SYa52jPPPDPX+Vw3MG+i
3jscOHDA8eOR0099/MqVq5L+Tnwm7PJToW6o/Hg3a/tr1qxpeSzGxzIxNwCI
fGrypq7VyA1eV7XegN356euvvzZ/h9gBIspsiJ9Szyt2OUNSEecLeUP9QRWu
2fC7OXPmJP3unHPOsYxXuCGvM8V23XXXuXo82WM8gGHGJhYoUMA8BrpqaJJ/
TZs2tZwvvObapmg0adIk8foVLlzYVQww/WP69OmW7z7kBo6rOnXqJPr56aef
Rt2dyGD+Xc7D3Lp1a1/7k+MssJ100kmuHo+5f/nxiA3Amn3Vvffea/5+yZIl
Sb9DDIB4vJucmLhXV+erbr/9dlf9p8zGeADnVq1alXQv5jZHLb6L5fieVPds
OiHeAO0gZpz02b59e9L7YdSoUY4fr+Yg8lufi/EARJSpGA8QHuQwE8caa5Lj
OgaEXGein8g3Ss4cOnTIOPbYY83jhph5u7zC2W7ChAmW6zNcX/mxfv36pOvF
v/76y/Hjsd5ffizmm+3WdlatWtV8bVHbTCXGGdzOcatrjHAPgzyMmQjHVJ3L
x+ZmHQjqb6iPt1uHIe7N/OSdIKL0IN+jY8NYtRvdu3e3PB5z+3YuvPBCc992
12233nqrp/Hsjz/+2NI25m6xfpj8YzzAUUuXLjVGjBhh/Prrr1F3hf5/WE8m
18zK1JxQmQg5Z8V9HjbMZ5J38nhDXGsp4p5S5IRPNd+cLeTvVeRV2rYtx9f+
Zs2aZbkGQi5oN9q0aeNozkfk87YbH5Dj8lH/z6nx48db2sZ4KuawiATGAziH
61R1jOc///mPq32oMWa4zkIN3KCgJiXGtnB+ydS1PFFBnj71/thNLRf1/hqb
n5oBjAcgokzFeIDw/Pjjj0ahQoUSx/vJJ5+MuktJcG0jcucec8wxxsGDB6Pu
UtqQrz2qVKkSdXdiB9fKl112WeIY3XTTTVr2i7l6+XrPaQ76xYsXJ9bOia12
7dpJf4f1EPgsNGjQwHY/M2fOtOzDyXgA5sHlY4Etk+tL2OVhwIaanE7IOUvk
be3atZa/w/kL40l+44CJKH1grl6cEzBe73TuE+sH5LkdbHY1kpAvAL9DTJId
eVzY6XwB+liuXDlL23Z1CsgbxgNQnLVt2zbx/sRYMuM10kOXLl0s8cNxjetP
F7gHkL8DP/roo6i7lESO3ca1RrbCvBrmy8WxwDnML4wLyPtEzKXT/E6IB1dr
Bdjl7MbYJn7XuXNn2/28/vrrlvadrOVAvrqzzz7bEs8/depUR/2m7MF4AOeQ
a0Qd4xk+fLirfeAzLj8+6Bgz8fp26tQp0HayEXKa5TU+mxvkG8przNCN+fPn
Mx6AiDIS4wHC9corrySON9aR+YlVC4JcbxQ1mMi5Hj16JI5dt27dou5O7CDP
kzg+iIvxU3NQNmTIEMv1HuZm8oJYAKwVUK8VW7VqlfS3qA2K36XKEYl8AKef
fnpiH2+88Uae7ctjwdhQQzGTDRo0yHY+H2s78iLySZYvX968t5Mfr76H+vXr
5+kekojSV+/evS3nBcRo5eXLL7+0xGeKDfM9KpHbCWut7SAOSb6Wfvfdd/Ns
H+te5HbxHEgfxgNQnCHXFMYUxXuUNejjb9OmTZa8Du+9917UXcoIjRs3ThzT
ChUqxG6dJeqSif61a9cu6u5EplevXonjgDrfutaL4P5XvhbCvEteZsyYYalb
IDa7fB2YV0LcAD6/dhDzL3+usbYjN8h3d8stt1jazeR4fvKO8QDO3XzzzUmf
540bN7raB74/5MdjXDYoqE1QqlQpcyxx3759gbWTrdRaLH379nX1eJErVN7s
6sU4xfwARJSpGA8QLtxHXH/99Ylj7rf2mm5PP/10om+PPfZY1N1JK/JcJess
WGHtE9Zti+MzevRobfvGvby8b9yn5wZrQgsWLGiuC23fvr3lWhE1omVYA4Da
HnmtCZHXr19zzTW2NQcEtV4i5p9y+/tMgDW3dvEAyLuQ6r2wYsUKsxYj/g7/
xZrbSZMmWR4/cuTIxN9v2bLFXK+F9wLm54goO+zcudNSjySvHJNYg3j88ceb
48lqvtnHH3/c8rfIN4O/Qx6a3OC7w8l3EM71uLYSf4txaoyzk16MB6C4w/pW
8R7FNaldPSqKD/k6tmnTplF3J2PgPgvzy3bX9XFQt27dRN8mT54cdXcisWPH
DkvNhFTx8V5gnh7nP3GMH3rooVz/HjH/uH/HY9Q1pIgJV/eNuf685mLlun+5
fbaRu0C+ZkRegJdfftn5k6WswngA5+SxcWyYZ3djz549SWNMdrE9q1atMlq2
bOk7num+++4z23BT056cETn55G3RokWu9nHdddcl7WP16tWe+8R4ACLKVIwH
CN/OnbsSY9e4l1i3bl3UXUrAXKZ4P6CuGzmDPHoivhzzDJyPtJLny1Pl3fcD
1/dFihRJtGG3PhxjTljbgc8c8rNiDSnu7eUY1IsvvjgxN4//inX8qGuWG6xn
adSoUWI/eL4q1AuR14Rijgn5rDIdjqOai0HOk42xpWrVqhkvvPCC+bohBljc
F+K1evHFFy37E/kasOE8inmfPn36GKeccor5fTZv3ryInikRRQU5X+TrWbu1
m3v37jVz/uOcg3UdX3zxhRmrduaZZyYeJ+eXRO4Xcc6eOHFiru2jLu2NN96Y
2I963gKMV4kYJzEH+MEHH/h/8pSE8QCUDuRcUXnNg1F0EEcsXid8d2RzDfkg
4LtY5H5H/vi43EPjHlFcVyB+GfeR2UieL0+Vd98PvP4YO8ltHg8xCXfddZf5
+zJlyhgLFy4076vl+0u5DiHy/t96663mz2fPnp1r+3i/1ahRI7GfYcOGJf0N
agHKc5YYc+DaD8oN4wGck++NsF100UWuHq+uF0HM0KFDh5L+7p577jF/7yd3
/Pvvv2/uo1atWp73QamNGTPG8lriOxj3407hflzNH4PxRIzVe8V4ACLKVMhZ
z3iA8E2ZMsUy/uy0XlqQUNNc3I/lz5/f1/dmtsG9png9r7322qi7EyuIzxfX
ZZh3wf17EBA7ijlh8Tpgbga5+3E/dvfddyd+h/EE5BQQvvvuOzM+QDwO8z8Y
C6hXr575/5g/crJ+H2MPuN8T+7niiiuMwYMHm31ATUN5rAPrjOIUBxQkUbtR
3tavX2/mhOzYsaOldqQ83opcX1jzbwdzc3h9cH0vHnPppZeadT6JKDuhBoB8
TYvxJZx/kcsVcWhiXB/ndOR6FLBmoHDhwonHYe0IvgPwXY7/79Chg6P2cc0k
5wm6+uqrzbZRnxZrznBdJWKgmjRpYmzevDmoQ5H1GA9A6QDzUCI+EuPXX3/9
ddRdIgWu7S+55JLEnDDmLkm/7t27J87Zaq62qMhzAJUrV466O5H45ptvErEa
yMeNsaIgTJ8+3ShQoEDiGgn37bgOQ705zOtjHAE/R14/eXwKcQFyLCjeO7ju
wz04/v/JJ5901D5ifCpVqpTYT506dcxrN4whIN5frPnAeRrXkN9/vz2Q40CZ
g/EAziFfrjwOVLNmTVePf+SRRyyPT5XTDTkkUSvOa15OfCfgfIN7Tbf1DMgZ
jJnKr6Xbzw7WBanjihUrVvTVJ4xZMh6AiDKRfA29YgXjAcIkX/uoOWqjgDEO
0Z/atWtH3Z20Iq9/x1plOgrjBvL9tZO6zn5gjmfgwIHm2gH5OhDjCKhRmap9
xAR06tTJOP300y3xqN26dXNVyxL3F6hriLlqMX4iz3Fjngn3EtkEr4d8HBB7
IcMx27p1q7F8+QpzjS9eC6fHfPfu3eY1erbEVhBR7rB+D3PBpUuXTlpfgFiv
zz77zPZxa9asNdfnynlmUCvGbS5/nLsQ74l1I+p4xLnnnmvmml2+fLmOp0q5
YDwApQucD8RcE/Kmy/GqFD25Fsyjjz4adXcyFtb0Yc5dHOupU6dG3SUzb5no
T8+ePaPuTuhwLhK1HBDPiDpuQULNlOeeey4pThzzd5iDT5X/DfePrVq1Mq/Z
xGOQNwDXAW5gbQ5ySyGWU71+K1u2rHku8LOumLIL4wGcQzyQ/Hlzs7YKY0Hy
uh5siA9QifUpyHfiBday4B4RsQBfffWVp31Q3jB3L7+WyAvqBvLzqedv1Jbx
g/kBiChTsV5AdBDfjHxIYs2BznpsXgwZMiTxXmA9NHduu+22xLFD7no6Ss6F
2qVLl9DaxRzzhg0bzOs3jLXa5Qyzg7EArDXA5jcfKOpOL1261OxDNq8DlWuu
YkN+BiKiIGFeHnFCOP9iDNtpviOsBcVj8B3g9HsjFeS3XbJkibk/xDxReBgP
QOkE91xyXhOKB9SLl9cb4vuBgoP1lqKWPOZz8R0aJeT1Ea9/ttUiw330Lbfc
knj+iO0OC+7FMe+OeG+MTR4+fNjR4/B3eAzyBfqtOZGTk2PGqONakLkAyAvG
AziHfPDynD7yiTqBmm/Vq1dPmv+1q/nx7LPPmr/DOcIL1DFBLjnkoqNg4BpL
xMeKze38SP369ZPeD1ir5QfjAYgoUzEeIFqoRybWsSGHEerbRqVr165mP/A9
HPU9eLpBrnId+YgyyYQJExLnlvvvv99zbi5KX3jNTzvtNMs1+dChQ6PuFhER
ZTB5fQjjASgdyPluUWuKooV6VaLO2MUXX8y8DSHBXIuoMYec0W7qBuuG9tGP
8847z1WuuEwgx9QhByIRucN4AHewbkgeL8orFwfywV155ZXm38o1Oe3ykSJ/
KNb2X3bZZb76yLHMYGFeRH4dUZ/FTf1iXC/Ief5Ebj6/rxvjAYgoUzEeIHpY
OyxyoyFHmZvvPZ1EvR7Ew5M7yAWPYzd69OiouxILa9asMfP74Zg0bNgw0vEc
io7IzSZveG8QEREFhfkBKB2hngjes6ijPXv27Ki7k7Ww5vDyyy83XwvUH0M+
YgrPrFmzErXkkWcuKuXLl8/K+BzUj8Q8DJ57x44do+4OUVqS4wGw9v3uu+9O
uSGfZLZDvZALLrggccwaNGiQ8m+RixVxevg71Ap55ZVXLGNNqPshQ+03/HzE
iBFBPw3yAesR1bl8NyZOnJg07oj4cCdQuznV5/P6669P7A+1ZYmIMgXjAeIB
eW0Rb4bXoW7dupHkJERONIybIs85ufPGG2+YdeWQ4y7bYU0N8nzhvVyvXj3m
18xiyC8pX5PzGpqIiILGeABKR1jD1KxZM/N9ixq12ZajPA7++OMPo06dOuZr
gNrpyBtO4ZsyZUpiTrpHjx6R9GHMmDFG69ats+o+FjWORDw/ai5zPSyRN3I8
QF7bhx9+GHV3Y+H7779PrLHC9uijjxq//PJL4veoKYMYJXw34Dz15ptvmj/H
+v9LLrkk8bgaNWokxmQRG4CcMxUqVDD++uuvSJ4XOXPw4EHL56JSpUquHo/X
XX48cjA7rR1TuXJlR59V5gcgokzCeID4wPEX10BcU03pCHmeEMuJ9zDqxvut
30fpDe8B+Roa5zUiIqIgMR6A0hXu/US+tpNPPtlYsWJF1F3KGpgruO2228xj
f+GFFxqbNm2KuktZbdKkScaJJ55ovh59+vSJujsZD2tuRY035GXIthoJRDox
HsAbfO9ibdy//vUv89gULlzYnKsV44ui/sK2bdZYvV27dhvlypVL/A3i+RAD
gH8j7wDz/MQfvnNQt1i8htWqVXP82CVLliZ9rj7++GPHj3caD8C1TUSUSRgP
EC8//vijeQ2E16Nfv35Rd4fIlSuuuMKM2X3hhRei7gpFDGtKxLiS2LIt5yYR
EYWP8QCU7oYNG2bWxC1ZsmTUXckayBeLc0ajRo0saxIpOqtXrzbKli1rvi5f
ffVV1N3JaMjth3W0b731VtRdIUp7qAHQu3dvc3vuueds/y3+n7FnydavX290
6NDBqF69ulGxYkVz7feTTz5p/jwVjD19+umnZp4lxAJUrVrVPL779+8Psefk
h4jJxIacD04hJ6085oi4WjdGjRqV9Lm0+zdqUxARZQrGA8QPYuOQo47XhpRu
Zs6cacyfPz/qblAM4PtEjaldu3Zt1N0iIqIMx3gAygQrV640xo8fH3U3ssba
teuS6g5T9BCbMXToUMZoBGzChAnGmjVrou4GERFlKVyDifs3xMQeOnQoz8cM
GTLEMt5Yu3Zt1oYgInJAjgdYsYLxAERE5N+gQYMs1+ZnnHFG1F0iIqIswHgA
IiIiIiKi9IBaswULFkzcw6FuUG7mzZtnqTFQqVIl4+effw6pt0RE6Y35AYiI
SLfGjRtb4gHuueeeqLtERERZgPEARERERERE6QO5++WaAb/++qvt3yFW4MQT
T0z87R133OEonwARER3FeAAiItLt5ptvtsQDTJkyJeouERFRFmA8ABERERER
UXp58cUXE/dxderUMVatWpX43ZIlS41mzZoZ//rXvxJ1BXr37m383//9X4Q9
JiJKP4wHICIi3RYtWmSUL1/eOO+884wBAwZE3R0iIsoSjAcgIiIiIiJKP0OG
DDFKlSqVuJ/Dv4sXL574/2OPPdZo2bKlsWPHjqi7SkSUluR4gCJFihhFixY1
t9NPPz3x71TbwYMHo+4+ERERERFlqPfffz/PexL5/kW+t2E8ABERERERUfr4
3//+Z0yePNmsO3rDDTcYdevWNVq3bm1MnDjROHDgQNTdIyJKa/KYmdtt//79
UXefiIiIiIgy1Lhx4zzfqzAegIiIiIiIiIiIiPEAREREREQUT2PHjmU8ABER
ERERERERkQ+o8bxgwQJPG/K3EBERERERBeHHH39MugeZP3++o3uVjRs3Rt19
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiIiIiIiIiIiIiIiIiT3744QfjyJEjUXeDSKtDhw753scvv/yi
oSdERBRn//d//2f8+OOPxu7du42DBw9G3R0iIiIiIiIiIiIiIi0w/t2rVy/j
//2//2c0bNgw6u6EBs+7X79+xvnnn2+cffbZxrRp0wJtb9y4cUbFihWNkiVL
GgMGDAi0LTrqk08+MY499lijUaNGxpQpU4z9+/c7fuyvv/5qzJw502jatKlR
oEABY+LEiQH2lIiIovD999vNa6CaNWsahQoVMq+FxHbyyScb1apVMzp37mzM
mzfPvG7IdIMHDzbKlCljXhe99957gbb1/vvvG5dddplRokQJ4/nnnw+0LSIi
IiIiIiIiIqJstXbtWuOqq65KjH2XL18+6i6Fpnv37pZx/+OOO87Ytm1bIG29
9dZblrawzZ49O5C26B8jRoxIOu5ly5Y17r//fuPVV181xo8fb8aBTJ8+3Zgw
YYIxdOhQo3nz5kaFChXMOALxGMyL7NmzJ+qnQ0Qx9eeffxqPP/64MXDgwKi7
Qg7t27fPjPfKly9f4lxfunRpo0qVKmbs3vHHH5/0/YF5cnxXZKrevXtbni+O
Da4TgzBp0qSk44u4PSIiIiIiIiIiIiLyD/MWH3zwgXHnnXca+fPnt4zFXnTR
RVF3LxTIIW831j9//vxA2jv33HOT2ho2bFggbdE/7OIB3G6FCxcObD6EiNLf
xo0bjauvvjpxzkC+eYq3zz//3ChatKj5eiFH0MiRI42cnO8tf/PHH3+YOWIq
V66c9L1w7bXXGnv37o2o98H466+/kvIjYJszZ04g7SHmQm2rf//+gbRFRERE
RERERERElMkwlo0crD179jRzpmP89YQTTrCs/crGeADM16jj0FgXeOTIkUDa
O+WUUyxtIRaB682D5zceoEaNGsaWLVuifhpEFEM7d+4ynnnmmaTYsh9++CHq
rlEuZs2aZV4HIQdM3759zRjJ3KBGwPDhw5O+H8455xxjw4YNIfU6eIcPH056
jsWLFzd/HgTUCJDbwuuxdevWQNoiIiIiIiIiIiIiymTIi66O7xYrVsxo0aKF
WQu3QYMGWRkPAKgHLJ53yZIljWXLlgfWFual//Wvf5ltITbgo48+Cqwt+ofX
eIACBQoYL730kvH3339H/RSIKAZwLkBsEGLsBgwYYNxwww2WmiKMB0gPqAkk
1sC//fbbrh6LuEr1tUb9mZ9//jmg3obviSeesFwrLliwILC23n33XeOYY44x
2/r3v/9tTJw4MbC2iIiIiIiIiIiIiDLZJ598YtYzxjjr8uXLzTz5smyOB4Cv
vvrKPEbIkxu0ZcuWmXXq1deAgiPiAU499dSUc3fyVqlSJXOuL9PyQBORN+PG
jTPjg8S8pbwh386NN97IeIA0UqdOHfM16t27t+vHIibk+uuvT3q9//Of/wTQ
0+jMnTvX+Pjjj816CUFbuXKlGR/5008/Bd4WERERERERERERUba68847szoe
gDKbiAfo1auXcfDgQWPGjBnGm2++abzwwgtG165djU6dOhn//e9/jUmTJhmb
Nm2KurtEFDPjx483ChcubJx33nlG3bp1jXbt2hkvv/yysWjRIvP3Q4YMYTxA
mli4cGHiOgc1ALxYsWJF0uuN3D/r1q3T3FsiIiIiIiIiIiIiIj2yPT8AZTY5
HoCISDfGA6SPVq1ama/PJZdcYjzzzDOea9WXLl066TV/8MEH9XaWiIiIiIiI
iIiIiEgTxgNQJmM8ABEFifEA6aNcuXJJ6/rff/991/vp0KFD0mtepkyZAHpM
REREREREREREROQf4wEokzEegIiCNHjwYMYDpAHUBzjmmGOSXqvzzz/f9b4m
T56ctB9sP/74YwA9JyIiIiIiIiIiIiLyh/EAlMkYD0BEQWJ+gPTw999/m/kA
1NeqYMGCrvc1Z84c23iAVatWBdBzIiIiIiIiIiIiIvLim2++MT755JOouxEL
YcQDzJs3j8c7hvbs2WMMGzbMOHLkSNRdCUzU8QBYk/rmm28a27dvj6R9IgpW
puQHWLlypTFx4sSouxGoatWqJb1WderUcb2fL7/80nc8wNKlS41p06a5bpuC
hRwPb7zxhvHnn3+6fuwvv/xiPP/88462mTNnBtB7osy1c+fOpM9R7969bT9f
uM/3Yvbs2cbcuXM195yIiIiIiIiIooC5uWeeecZcI3bddddF3Z1YCCMeoHHj
xua+O3XqZPz111/a9+8U5mQ//vhjc23fwYMHA2sHzxHjSTNmzDD/G+VzTuWr
r74yzjjjDOO4447L6LnqqOMB9u3bZxx//PHGaaedZsyaNSuSPhBRcDIhP8Dw
4cONAgUKGKVLl466K4FatGiRcfbZZydepwsuuMBYs2aN6/2kqhfw/fffO95H
y5Ytzce0atXK+OOPP1z3QZddu3aZ8Zq4Ltq/f39g7SDucMGCBeY8+Ndff+1p
vj1oCxcuNEqVKmXky5fP2LBhg+vH4/W3e1/Yba1btw7gGcQP7rsQP7N48eKo
u0KaHD582NixY4cZQ/bFF194nnsX9u7da56DcC7Kzfz58x1/vv773/966ss1
11xjjhHg8XjvEhEREREREVF6OnTokHHTTTeZ4wRlypTJc9whW4QRD4C598qV
K5v7v+qqq0KvsYvx/tq1a1tqB2OOtkmTJlr7gjEtjPGfcsoplmOKueCOHTsa
v/76q7a2/Bg0aJBx7LHHmtv7778fdXcC5SQeAHmkMb4ZFMQB4P2G9x/WLRFR
5kjneADM0bZo0cLsc9GiRT3Njaeb33//3Rg/fryZC8Hrd/LTTz+d9Jojvg7f
JU6h7Ro1apiPveyyy0K/Jt20aZNx4403mnPf4jnkz5/fvCbcvXu3tnYOHDhg
tG3b1rwOko9XkSJFjHbt2hk//fSTtrb8wLUCnj++p9955x1P+2A8gBXmU+vW
rZt4zljL7db//vc/o3///ub9G+K5MzmfVVw9++yzZgz9hRdemHR/I7atW7d6
2jdihIoXL564V8otx0oY8QA4DyNODPuoV69ebO7biIiIiIiIiMg5zPVhLAP3
92eddZaRk5MTdZdiI4x4AEBMwCWXXGK2cfnll4c2Bjx9+nSjUKFCxkknnWS0
b9/emDJlitG8efPE88X41u7de3y3g7y/xYoVM/eJ2IPRo0ebc+3XXnttoq2q
VauGHguhGjhwYKI/b7/9dqR9CYNdPADmOl599VWjVq1axr///W9LjEj16tWN
xx57zFi/fr3WfiBXBHIxoB3GBBBljnStF4C5uv/85z9mfzHHs2zZsqi7lDbw
3aG+5h06dHC9H8w1iRoGuPZCPpkwfPrpp+Z8PL7zMC/9wQcfGA899FDiuZx7
7rlarpORe7tEiRLmPhH7gNo5uC6S54grVqyoNf7AC1wnYE0w+oNaAV7l5Fjj
ARo1amTmx1I3/By1mjLdmDFjLMcDccFujRw50rKPsWPHBtBTys0JJ5yQ69w7
rm1/++03T/vG/aC8L1ybp4IYJvH5sftcyblfvMYDAOoS4Bwo7ueCjBcmIiIi
IiIiIr2Qq/2WW24x7+tPPvlk7fN86S6seADAHMn555+fyBMQ9LoL1AbAWi/k
f928eXPi51jDJ+ZmsT3yyCO+2sHaJewHY1FYvyJDzgB5zhlrMaOCsXgx5j1g
wIDI+hEmOR4A6xSxHlGshzz99NONu+++25wHefjhh8060uL44H2Dz4bOWgoT
JkzIuuOfLbBmEbWjKfuka36ANm3aJOZyUD+GnNmyZUviPC5v6ne/U4iVrFCh
grmPSy+9NNBaRoDXGrmBsCZ37dq1iZ8jPkRe+4s6Bn68/vrr5nE688wzzXzx
MsSDnnrqqYm27rrrLl9t+fHee+8lckc999xzvval5geIY62oMNWvX99yPJo2
bep6H6hhIu8DMQYULsQxYx0/6gIgjgUx1vJrgpgmLzC/r55H/dTVEvFtfuMB
APkORN6Cm2++Oes/y0RERERERETpAPO+GGcU4wNYA0VWYcYDwLfffptYa4I1
dkGtu0BOYKzvQA5kORZAQGyIeM4Y2/JaJxI1dzG2jjwDqeaOy5cvb1mDjhiB
sGEuGv1EHzAHni1EPADGpcXY3p133mnWPEUeWtW6devMWBXxeiF/Keod69K9
e/fEvlGzm+Jt48aNxqRJk8y5LeQ67ty5s9GsWTMzd/EVV1xhnHfeeYk5NMSd
UfZJx3iArl27Jvr68ssvR92dtNKzZ8+k1/vqq6/2tU+cZ8Qc25VXXmnWtwoC
5rRwjYdzFr7rVGItv7hW8Xp9Nm/ePPN645xzzrG9/gKcP0Vb+FvMpYfto48+
SsSG4vztt1444wH+gfsv+TobG75H3UD8tvpZy4aaJnFXsmRJy2uC61ovXnrp
Jct+EFNtd13ulBwPgNoSfuE+QcQPN2zY0FffiIiIiIiIiCh4qFkqxgY6deoU
dXdiKex4AEAufTmfahDEmP1rr72W9DusExfrwcTmJdcl8uki3gDbnj2paw6U
K1dO2/oXL5AbWIx5lylTJqvWMYt4ADG/Yfd+UP38889mbQd5rkJXTADGE0UN
CaydRD0Liq+OHTsmzUek2hgPkJ3SLR7gxRdfTPTz9ttvj7o7aQXrZJFXRn6t
kf/Ha+1sGfLoi33eeOONvuem7SCmCfvHPJwK10AFChSwPLfcrmtSwWOQEwAx
B7nVHKhSpYqlrcmTJ7tuyw/kc8A1AdpGDqn9+/f73ifjAf6xZMmSpPOi2/xs
qN0gPx41LoL4XJBziGfWtaYf+VDk/fTp08dX33TmBxD69u2b2CdqzlF0du7c
ZVx88cXmvZPYxL1UXj9z87d+H4/YPqwVICIiIiIiygQY20POceSZxVgextDO
OOMMM6YfdSHvu+8+c6z5s88+izyOXh5bxTqkbB6Xy00U8QCAXLSiTczZ6oR1
+vnz5zfX7COPt2r8+PGW54yxay+wJjCvcWyMXaq5NcOcA8YYN56fmA9fsWJF
aG3HgYgHwDo1N/Wxcdww9izP+axcuVJLnzBfgvMm9ou5JS9zLhQOxgNQXtIp
HmDx4sWJPDG4bgs6N32mUa+XsI0aNUrb/rt06ZLYr+68Dfv27TNzM+F1/+OP
P5J+j7Xy8vPCd6YXiGXA4996661c/65YsWKW9pC3PyyIiRR56BEr6bXWgyon
h/EAQr9+/SzHAtc8biGXlbyPW2+9NYCekhv4nMqvCT4/Xmq/YZxA3g/uT3CO
8iOIeADcw+F9J/aL8yRFAzkenV6PR70h9o6IiIiIiCidod7oHXfckcib52TD
2A/qskeR2xHza1izLebxtm3bFnof0kVU8QAYPxI5J0866SQzX64uWGOC/b7z
zju2v1fHGHEM3JoxY4b52Lzq3uL9r342Vq9e7bo9r5B/QbQ7ePDg0NqNC6xR
wxwI6iW49dRTT1leN+Rx1rU2DTEkYr/16tXTsk/Sb+fOnWYcydy5c42xY8ca
vXr1Sny3MB6AIF3iAVBDp2zZsmb/kB8H9aDJOTmvkdi85slO5c8//zRz+GDf
WKuP+kq64Psf+02Vs71ly5aW51a3bl3XbeBewcm5ELHF6rHUNSfvRPPmzRPt
Pv/889r2y/wA/0DNdflYeKlTJWo8iY21TaLXunVry2tSrVo1T/tR3x9YT+CX
7noBAr7PRe0LxvBGB9cwqN81cOBAcxswYIDxxBNPGI0bNzYKFy6c65gUvlcx
JtW/f3/L48W/1U38Dn+PMQW8n5AfAusAMK6U1xgY68EREREREVG6wtqxJk2a
WO5xMLeG2ACsm8RYaIcOHYzq1asn8pGrG3KntWvXzszRHhbUdhbtP/vss6G1
m46iigcAeZ0+8k3oGjvFc8BaE7savFj3LXLEiu3DDz903QZyTuC9nVccw6uv
vmppC/Xow8p3+vbbbyfarVixYuQ5O9IN4ohEPkixjRkzRtv+b7jhhsR+Bw0a
pG2/FCzECKg5wxkPkL3SJR7goYceSvQP86HkHOoBqHl+sJY/CKhNI9ooX768
cfjwYS37RQ0c5IZAzQMV4jPVOY5x48a5bqN27drmY/PKQ4TcAXJbiAkNa+5c
XmN6wQUXaG2X8QBH4VpTzJ+KLVUcSipr165NOq/qjI8hb84//3zLa9KjRw/X
+8Brq15bL1q0yHffgsgPIGB+WOwbMbysWxEv3367MuXcPNan2I0HeIXXft26
dUa3bt3Mujh2bYZdF5CIiIiIiEiHhQsXGmeddVbi3gZz7IjLTlVnHWOWw4YN
M0qUKGF7b4R5UF01uHOD+uCiTdQz0DWWmqmijAeAWrVq+RpXUiEPLmoFNGzY
0Pb3iPdXxwnczpOjvjzG1Z2sd0I/5Pa85CLwYtu2HMt47KeffhpKu5lG5LAQ
G+JAdNmwYUMijgoxKmHmjSB/1BwjjAfIXukQDyDPMWPed/fu3VF3KW1gTSJy
w8ivb+fOnQNtU85PjTgOHfC6I5e/nZEjR1qeH9Zaur12xtw3cho4OQ/ef//9
lvYQGxcGOXcYtilTpmjdP+MBjsLcrnpOXL9+vat9qLG0p556KudgI4bvDR3z
nsgFIO+jRo0aWvoXZDwA7hNRu17sH/eSFB/fffddyniArl27BtYu4oNRL1Nt
EzEvRERERERE6QT5kUXMM/IBuKnvjjHEe+65x/aeDHNfqXK464C12lhnJNrD
+nPK3Z133hlpPMDq1WsSdSiQwxj5Zv3asWNHyrUA8ngONsT3e4FxX8wT5EXN
LY65o6BhzPTaa69NtHnbbbcF3mamQm5Iv+PaucE4ldgvcjggXzTFH3JMMx6A
IO7xAMiJg7g30Ted+dEz3ZEjR4z69esnjh3WtIZRFxj5COQ8RqhP5NeuXbvM
WEY7V111leX96zUGAddeTmqJly5d2tIe8jGHQc5RjlwGujEe4KiXXnopKe7W
LeQAl/eBzyFFC3W35NcEcdFOPu+yL7/80rIPjDEgNlaHIOMB4IsvvkjsH+fn
VasYwxsXGKdKFQ8wZ86cQNvGNZZ6r+/2c0FERERERBQlxFhjLT/uZ1BvDfXP
3cJ8JOoI2N2XYTwVuUKDIHKVYsP4JuUt6vwAINe4v+yyywJbA2S3ZimvfP9+
YL232l4Ya8DlcRHE4GzatCnwNjNV06ZNk15Dt3lvc7N3715zPFTsGzWeKf7U
+Q7GA2SvuMcDyHXhMQ+LHDrkzAMPPGCZt8J8WFhatGiRaLts2bKB1fuxy8u+
dOnSQNoC1OFR25s3b15g7QlyfSrEngaRe57xAEepteGd5NJSFStWzLIPfOdS
tB5++GHLa1KtWjVXj8d3z4UXXmjZh85aWUHHAwByGYg2UDeA4iHVOhTkC3QS
u+9Xv379Em0WKVIk8PaIiIiIiCh8iBEfO3ZsxtXjltcVY+zTz9wljo3d2lqx
b9Re00ldc+ClJnw2ikM8gDpPH9SYe6tWrSzt4P0ZJMztyu2h5njQMP589tln
J9ps0qRJ4G1msu7duyedv9q2bau1jTZt2iT2Xbx48ZQ1WSg+si0eAHl/Ro8e
bSxevDjqrsROnOMBtmzZYq7hFP1ijmPnkDtIHLczzzzTWLJkSajt4xpZrrHt
Jk+XG6h9IL93K1WqFEg7wqhRoyztoY4B8jAE6e+//zbKlSsX+Lma8QBH7/3k
WlVeYijtYlT43RO98uXLW14TtzXennrqKcvj69SpozX+W47fDSoeAGML8nPQ
kdOO/EtVqzLo+3xh1apViTYvueSSUNokIiIiIqLwYL28uOZ/4YUXou6OVhiz
Ec/ttdde870/NeepOuaoc6xMzo9+zjnnmON/lLc4xAPANddck+gD1o/ojrVB
/QCMO8vP9c0339Tahko9tsiDELQ33njD0mYY6+7iCrlOELvlZ27uySefTDp3
6a51jPwN8rwP83nHX7bFA3Ts2NF8jphb3rdvX9TdiRU17itO8QDNmze3zLum
yhdPVv37908cN+QsQh78KMi1CkqVKqU9twPq04h8YGLTuV7Xjlo7/MYbbwy0
PRg3bpylTS81z53IyWE8AObt1fOh2xpLuP+UH4/6dZkWf59udu/ek/S6uvkc
IWYfa7XFY1FDYvv27Vr7KOcHeOaZZ7TuW0D8ghxbFNZ8M6WGPH9240zYcA8X
BrwvRM0A1jYhIiIiIso88nxbJo3/Y32OiK/WeS8j56pVtzFjxmhpQ67phw15
28iZuMQDfPTRR5Z+vPPOO1r3r9YWLFiwYKD1/TA2oI6zv/rqq4G1B2pugMsv
vzzQ9uLs8ccfN/Lly2ceB6xVmzx5sqf9PP3000nnLcQe6XbnnXcm9l+4cGHW
noy5bIsHwLlEPE/m3rGKa36AzZs3W3IDeK0Jn23kucibbrop0nMx1p7K76uh
Q4dq3b+cQx9bgQIFzFrIQZKvUbAFHVeN2GA5RzlqLwRVk4r5AZK/GzHv6xbq
C8j74Pxa9NRzBb5bnJ4b5TqE4v5r2bLl2vsYRr0AUO8ng65PT7kbPnx4ynGm
zz77LLR+YJ0L2mzXrl1obRIRERERUTgwpxfmupawYL5MPK8FCxZo26+cT0Hd
KleurKUNjNmKfZ544onGgQMHtOw3G8QlHgBjtsjJK/qhO2ftFVdcYXmerVu3
1rp/1cqVK5Pe78iBGiTEUMjtIb93NkJOBPXYY30ZckS4peY3xRZEzdBp06ZZ
2mBe73jLtngA5D8Vz/P999+PujuxEtf8AHKtZ+Qf0V2jKRONHDkykavl/vvv
d5zHHrUE3nvvvUDyL5x//vmJ1xH/1pn7Cvm65fctajAHCTnD1M+KzvsNO1On
TrW0h89rUBgPYBg333yz5Rh4qVkl3wtge/nllwPoKbnx4IMPWl6Tq666ytHj
Dh48aInHOe6444zZs2cH0sew4gEQB4G6h6KtunXrBtYW5U1+3dX4NtS6CkvV
qlXNdvv27Rtam0REREREFI5MjQe47bbbzOeEe9z27dubdbPnz5+vZd9nnXVW
ypgAv2OByBMn59pGLlJyLi7xAID3ndwXXWNGcl0/sS1atMj2b3WtG0POXbm9
YsWKadlvbqpUqZJor1ChQtpzC6cL5AexO9cgRsMtdQwUW5cuXbT3GXmbEbMg
2kDNE+bHja9siweoWLEi4wFSiGN+gJ9++slSH6dGjRqR9icdvP3224lryW7d
url6rJgDxXHXrWfPnpb3ltdcN6otW7ZYrp2xpVpLqeu6CDWa5PZwnRL091yt
WrUS7aF+2S+//BJYW9keD4DXEvmY5GMwbNgwV/vYsGFD0vk01VryoPI8UDLk
1ZBfkx49euT5GMQCIJ++eAzGFxD7GpSw4gGgYcOGvu8vSI+SJUva3vPVrFkz
1H4gRgbtjh07NtR2iYiIiIgoeJkaD1C8eHHb+ynkbfS7HqlZs2Yp4wEwr+KH
vAYO25QpU3ztL9vEKR7g66+/tvQFeR90ELWv83qOGKfC2hUdcTBy/ndsd911
l+995kZdEx90e3E2YMCApPMMxiExNunW9ddfn7SvCRMmBNBrw1yPGsS8D+mX
bfEAzA+QWhzjAbCeVu7PK6+8Eml/4g7ndOS/xvw4vj/cQrwf1jQH4dtvv7W8
lrrqVaOmjrzf0qVL286vfv755+ax+fTTT323qd4L6LrGS+Xbb615mhC3EaRs
jwdYvHhx0rnQbV4SxA/Ij0f9JLt7UMR+I26Sgrdr166k13XWrFl5PkaOI0S9
ANzjBSnMeICJEydajkfz5s0DbY/sbdq0KeX4Euq9hUnEAwT9PiciIiIiovBl
YjzA9u07Ut5PYcN6Wz9GjRqVct+NGzf2vF+sRSlSpIhlzu+3337z1ddsE6d4
AIxFy3H+mJv3u94Oa+Tl9wi2VPVqb7/9dvP3GF/wA8/j1FNPtbSJmsRBatOm
jaW9bF6fgLwS6nnGyxwPnHfeeZb9IP9kUHN9M2fOtLSFWCyKpxdffJHxAGSK
Y70AUcdWbJs3b460P3GGGFLMd+fPn9/T9yaOLY4xcu8HRc63jZiFnTt3+dof
rp3VnOxPPvmk7d/ee++95u+XL/df77tUqVKWNnEeDVLXrl0t7b3xxhuBtpeT
k93xAHbfi7///rurfaC+gPx45K5TIZ8Scj1Eeb+STcaNG2d5TXC+RM78VNav
X2/Gaoi/L1euXCjfQWHGA+B9LefgwX2m0/oypM/w4cNTji8hli1MFSpUMNvd
tm1bqO0SEREREVHwMjEeADn7c4sHwD2OH7gnS7Vv1EP16osvvrDsq379+r76
mY3iFA8Aar6Hd99919f+sO5P3h/G/O3malD3F/EkqP/nl7qeD1uQtZsRf1Ci
RAnLWJ2XtfCZAq8lYkmQtxY5oJEX2Qu7WsdBrgHCWKJcMwD9z7b5hHTB/AAk
xC0/QE5Ojtbrt0w2Y8YM85oA8zqffPKJp32MGTPGPM64dgmKupbf77w2nre8
v2OOOcZ2DgNzXlifjfk8v0TchLxhPXmQLrjgAkt7WLMcpGzPDyDqZogN1zNu
YI759NNPt+zDLrcJclXgdy1bttTVdcpF69atLa9JtWrVUv4t5mflefJWrVqZ
1+RhCDMeABo1amQ5LqnqrVBw5Ndc3hAvFHbNPOTAyJcvH+NCiIiIiIgyUDbG
A+De3o+FCxem3DfWUXv1yCOPWPY1YsQIX/3MRnGLB0COdLk/ftdII6eok5iR
Xr16mb/HWk+/Bg4caGnzjDPO8L3P3Kg5WmvXrh1oe+lArDH7+OOPPe+jb9++
luOKGIM1a9Zo7GUy5E+W2/Q6R0XBYjwACXGLB1DzFWAumZLNmTPHnDPA/KPX
eWnE3V1xxRXmcQ4yB5Ca88Zvnv2HHnrIsr/rrrvO9u/69+9v/v7555/31R6M
HDnS0ibi3ZCnIChr166ztIfXKWjZHA+A17JQoUKW549YEjfUfA7Y7Nb4du/e
3fzdN998o6n3lBs1rqZHjx5Jf7Nnzx7L/Djqj+AcGyZ5bviZZ54JvD15PAgb
atNRuOScgvJ27bXXhtoPxDKhXfSHiIiIiIgyjzz2mynxAFgXlFs8gJ81/IA8
o6n27Xb9iAz9kvfFHG3uxS0eAPMo6vvDz5gqcvjK+7NbV3fgwAFzbBrvp8OH
D/vpvumOO+7QGtOQlyeeeMLSXp8+fQJtLx3gnIM8CcibgHFKtzC2o+ZTRnxA
0PDayW1i3obih/EAJMQtHkD9zgs7Z246+PLLL40TTzzRPD74jrjsssuMyy+/
3PyvvNn9rGzZsuZjcG2C7xhxnJGvKij4PpLbQhzDoUOHPO9P1EYSG+b97dos
VqyY+Vz9tCWIugNhnS9RFyrsuJhsjgdYtGhR0nkQeSecXn8hXgS1MNR97Nix
w/J3qBVw9tlnm99JFDzk1FBfk1mzZiV+/8svv5j3ICInAF7D9u3b51pPIChh
5wdYuXKl5bggBoLCg9p+qcaW/MSD4Prt6quvNqZPn+74MaiRgXZr1qzpuV0i
IiIiIoovOR68bt26UXdHm4YNG6a8rxo0aJCvfX/99dcp9421WV5gna68H4xb
knuY/5ePI3Lmh51jT6WuRfGzRvrOO++07Au5KmTItS/GkFC/3S/sDzkv8opB
0KlixYqW9pBLlQyjZ8+eifEZt+PyDzzwgOWYIg8uXtugqefKs846K/A2yT3G
A5AQp3gAUStFno/TMZebSebNm2fJZ61r27t3b6D9rlKliqW9SZMmed5Xs2bN
8rxmEDnCJ06c6KfbCfguk9vEOTRI1atXt7Q3derUQNuDnJzsjQd48cUXbT8X
uGfOyzvvvGOeqxB7Urx4ccvj1Rhdcb4N+rqajho3bpzl9cD3C+b6sQ0YMMDM
kY6fI14JebkwRx6VsOMBcE+AHBjy8UG9OAoHalOk+j5GzJ9X/fr1M/fRrVs3
x4/BewHvuSDjAomIiIiIKDqZWC8Atm/fblx88cVJ91S4v8Z6DD8wDpfqni23
OoS5UdfRZvJcjC64X8Vc/+bNW8w6h1i3bveaIM8e6ssi3h31Y//+++9Q+9mi
RQtLf/yskVbrD8ydO9fye5GfFPEwOqxYsSLpeG7YsEHLvu2oNe4xphpWrU4V
zhNYizp+/HizpvIHH3wQeH793GAs/rbbbjOPC9Z1rlq1ytFj2rRpYzmmiCnx
ew50Cu1g7afc/tKlS0NpO1vhHIfzwrvvvmuMHj3aGDt2rPk+xs9TYTwACWpd
EWxbtmyJpC8498r9KF++fCT9iCvUBcC6ft2xAEWLFg2872p9LKy39wrre+V9
yet9AWsrdd7jfPfdd0nHLMjvNcRmqGvNd+/eHVh7Qpj5AVCrAtfp+L56++23
jQ8//NDYuXNnYO3lRa11JDbUy0p1DYy15U8++aQ5l4y4Vqz3feyxx1K+T3Bt
i7xN+LxFsf48TGvWrDXvX9566y3jvffeM2N2oogvefDBBy2vB+I1UBdA5Fcp
UKCA+Tf4jEct7HoBgOs++fiEEYdAR8mvt7z5Xddw/fXXm/vB+ZWIiIiIiAgy
NR5AQL1tzMdi7BFzxjp06dIl5Thqq1atPO0Tc9ZxvwfH2BzG6ZC39KmnnjJr
Lua2oSamk98h7+m0adMcjQ1hbb3Oce+BAwcGftzUOrPIF+AVaprWqFEjsS+s
88YcNcZORd1fzPfqGlvEehm57xi7DBLWSMntlStXLtD2VDi+WNuFY5hqzeWV
V15pvPnmm8Zvv/2mrV2Mjb7yyit51h/GZ0SMGWHcEus9li1bZvt3H330kSVf
BtZBYaw6yBrHdtR1jWHUKcg2iHXq1KmTOc8t5+GWt/z585s5Q/EZO3LkiOXx
2RYPIOcgYTzAP3788UejcuXKSe8FfE+HHUcHal4T/H/cYF4Wc5jqdZHT659U
G/LBIAYtt3kA5BnXeT0kNlxjBA35ANR5OT+Q30zs67rrrjNWr15jzn+I6yXM
7+qKLRwxYoSl74jJCPLzgfeX3F5YNZ2Djgf46aefzGtMvF5231v4GWIg8Trq
PL64fpswYULK3+MaqVChQklzcuLfyAOHnPILFiwwr7+xdhfz/iI257777kvE
3yEfgHx/h5hx1CKYPXu2eS+A55ip30G4Nu3cuXNSLTz5OOIaVufcO+JKcB7e
uHGj7e/V/GPi2hhzpkOHDvVUjysoYecHgOeffz707wI6Ss05I7ZatWp53ifG
AnCviPMMcysREREREZGQ6fEAQcAatVTjqBgn9EJd44U4hjjAOFfHjh2T8vAH
sWGMPC9fffWVObaE3A9Vq1Y1rrnmGuOGG24wx4Jz28TfYFwO8+YYE8JYHMYF
g4a1uvLzxJp3P3PJGGdEHkt1/BTz108//bTWPPBiPbrY7rnnHm37tqOuZce4
aljwOsnrhvPaSpUqZc7D+oUx8SJFipjr6LG+zAmsr8KcgOgL5oUQw4DxQ8SI
yGPZeL/Vq1fPUT6BIKj5MfDeJT0QH4X66vLaUYz94fVGfAnitzCX1Lt3b6N+
/fqJ98V5551nmQ/JtniAbM4PgHk1fE9gQ3wQ4vEQx4j5kNzWmuN7F98HuB7A
XJjYB9bwB6VSpUqWPrz22muBteUGcvQjLtQuB5XuDbWr7SD3Cr4D3G6Yc5D/
a7dhbjNoq1evTnqufupSIG7i/vvvt9SXwIZ5XORN0jmfrK7jvPXWW7Xt244a
g9ygQYNA2xOCjAfAdxPqojn9HOBaX0c8x/z588394f4hFczXq+0jb/yzzz6b
8jOP63Fce9nVcUC/Ua/i5JNPtjymYMGCZh6fTHPgwAFzjT2uPZ28trh+0RWb
je8y7PP111+3/X3jxo3NcxzqlbRs2dLM/YUYgjiKIh4A10Pya4P3LAUPuURS
fT785IYQ9UgQx05ERERERCQwHsAd1CFIdc+GcUcv41U5OTlJ+8LPooSagZhD
D3qsW94y9f23b9++pOeKdUV+YV0icg9g3g9jirpj/zF+rtaSHDZsmNY2VFg7
JbcXxlpyrAVDDQc1H6+TDbVGMXbsB+bWsC+MTbqBNd6Y00Wu03POOSepX5jf
w3wdajBECetm5b5VqFAh0v5kAoxfI1ZGnVvAWsvcYkoQe4KxRTEv8eijj5qf
82yLB8jm/ACY09P5vX377bcH0k+c3xDbIrcVdS3btWvXmnE1YV4XIadHJsL8
vTpfiDXTfiG3/qhRo8zrIsRC4ZynmxyLh+3ll1/W3oZMvRbHNUMYgogHQA6S
2rVre/osID7I7/pt5CLAvnKLBX7xxRct7SLeUoY4UMwjDx482Bg0aJCZU2rX
rl15to1YXsRy4vsWefOjqoUVJMSyY92/l9cXOVH8wJwq4jIQ1xbE5z5sUcQD
2MVpRT0ekQ2GDx+e8nPx9ddfe9oncpMgpx/2gZxDREREREREAuMB3Mntns1r
/VPkypf3ky9fvtBzegtYn4V5Ji9zo363fv36RfKcw4D13/Jz9ZpHIkzLly9P
eo0w3hYU5DVQc7SOGzcusPYAcxKYz/LzvkVeBq9r7zF3gcdjczKenBuMNWOs
3WmOgbAg57V8vLB+E2tbyRuMDZYoUcJyTDG/grkbpzC+K/LcIK+EXc34TI4H
yOb8ADjPYm0u8rVPnz7drKOE9e6IURMb1tDa/Rsb3n/IS4F1sJjb+vzzzwPp
p928xJYtWwJpKy/79+831/fi2izs66JevXpF8pzDULp0actzDXpeXQe7dZy4
VgoSainI7QUdlynojgfYsWOH71xjyOvltR7WnDlzzH3g/J9bvgjUlpDbbNas
mdennFUQl6zm53C7+Yl1Qf4y7KN///4an1V0oogHwD2Rev+PMQoKVtOmTW0/
D1hn4vV+CTFxYj+zZs3S3GMiIiIiIkpnjAdwR64DKW9Yx+Z1rvS5556z7At5
XKOAOc2g6tHmtl166aXmGmKdee7jBrn65OfcoUOHqLuUJ4zNh/m+xFyP+t74
5ptvAmsPayfEWjG/G/IaeHn/orYqHo+83ZkKa2rV44X8I+Qe5m7lOsbYMHfh
ZbwQ6+eQgxn7sMvbzHgAihJiweT3I9aS665f7sSGDRuMMmXKhH5dhLzkyE8e
VWxoGFDDSX7OyPcfd5iLl/uMWE+dtQhUiBlU3xth1RPTGQ+wbds2bfcXqJ/g
BWqF4fEzZ85M+Tf4vKlxqcjDRblDrLzT+gC5bYgn8HJ9iHoOaB/vsSi+J4Ig
zxGHFQ8Aar6x559/PrS2sxXur+0+D4j19QK5wvLnz5/4THmNoSIiIiIioszE
eADnPv3005RjGKjB69Vdd91l2ddVV12lsdfOzJgxw1yjbPfcUGcR8/VYB4j8
lpj3xFpkrBVE3stU97EYy6Cj1NzeiCuJOzVHLepyBmnKlClJ76Ft24LLU4n6
pnbvW+SzR/0A5ILFmgqsh8XnA/llUT9bzWEttlT1SlP5/vvtxvHHH29+7rD+
NFNhrlpdV4v1yeQOvn/UWIAaNWqY67m8Qp3fVHM0jAegKHXv3t3yfjzjjDNC
7wPib9SaOWJD7nLMk+BzidgazAkjxmzx4sXmujx17bvYgqqvkI4efvhhy7G5
7LLLou5SnpBPRe5zkyZNAm1PrGmXtzVr1gTappCToyceANcAlStXTnoeWIeM
a2HUrUHOLNxjYMN6ZMxnoVaGXa4yzG8tW+YuJ4O4vsT9TG4WLlyY1N7mzZs9
Pe9sgfwyyNOvHjfUJcKafcQ1TZw40YzvRU2QyZMnm7Gwat0NsSF+2m2Mza23
3mo+FmMamULOD+CnhrxbapzW3XffHVrb2ei7775LObaE9SJO4Xoen6877rjD
so/q1asH2HsiIiIiIkpHjAdwDvP0qeYPf/vtN8/7xTqwKO+9UWvVLg8uxmRy
W0cjYAy8RYsWtscGuYYpeW6jaNGikfQDsRwYbx0/fry57iwVjE/I43sYkw16
TXfv3r0txyjIuhnq2lOMLyN+xUk+AuTjR73YUqVKJY19uqlZ2qZNG/NxXbt2
9fNU0gLe7/KxwueBnNu+fbtZE1c+hieeeKKWuq6Y82Q8AMWNmN8RG9b2hgm1
EOxyX2POGrUS8oI50Pbt29t+tjDHS4YZTyEfF8THRZUn6quvvjKvi3Kr24N8
9+ij3GfMhQYJ9enV98+hQ4cCbVPQlR9A/RwgxgYxAE5yquGYI+4Y33fyPhAr
4EbFihXNxyEuIDcvvviipR3MWVNqqFGlxoTjHIn4jrzui/FZnzt3rtGgQYOk
9zjib51atGiR+RjUSvcTHxk3UdQLAORpkV8LjFFQcPBZSRUPgHGnRo0apdwQ
X4gcYeeee27KffipwUFERERERJmJ8QDOoM6u3X3WaaedZmzdutXXvtW5sjDn
BzEXZLeuw+1aBIzrqOP32LAunpLHGDG/fuTIkVD7gLlqOaYF6y1T1RwXdTjF
Vr9+/cD7hxoKcptB1SdA/ueCBQsm2kG9Ci+xDvv27TNq1apl6TPWtDl9LOYV
sO3Zs8d12+mmbNmyGXFeEOt/ESc1duxYY8iQIcZTTz1l5prAmhyMayOHim5q
rg5sTz/9tLb9oyYz4wEoTqpWrWp5P2LsOyyIY1TnfbE99thjrveF9ePqfnCe
IMPMqaMeG6xxDBPyKMvf47ge37hxo+3ftm7d2tJX1BsKWs+ePZPm0sOiIx4A
68LlfSC/wg8//OB6P7hGU+e88F3sBPI84e8RE5BXvEm9evUsbWBOluzhWGIu
Uhyrk046ycyr5SWmp3///pa4dLxWTokce6hxlkmiigd45JFHLJ+BqOLXdVi/
fr05zoHzEGq99OnTx+jYsaO57gJ5EJDfJ2pyXYggNsYfEhERERGRivEAecMa
ZcwZqvdYWDuGNUV+ICeiujYf4ylhwBpw1D5V56nd5j0XsNZHXU+H/NZu1kxn
Krv4/7Dngdu2bZvUB7v5a6y1kXO0nn766SnjBnRS502CqpuBfLGiDcQ9+Kk1
inODXHfgwgsvdPQ45IDE3yMGIhtUq1bN8tpiDDnd4FxdokSJPMfesJZfp9de
e822Hayb1OXmm2/OqngAsVaU8QDxpdYwxhxFGPBdV6xYsaTrIsxXedvf9qQ6
H4jBzIY4sLxMmDAh6byTai4+KIi/VfuA/OaqVatWWWJnMS+Pa+igoU6T3Dc3
86R++Y0HwNpx5E0Sj0cdDT8QKyLHtCIvmRNizho5P3KD6zk5VhTb8OHDffU5
k8nxPFibj7lXPzBvK8dhIXdAXnB+xecSc9Z+8vTFUVTxAOL+RGwYo3BbvyEO
kIMkr+t1xAdELVXNRVyHoCaYuiE3ivgv8jjivtNuXYcYp0J9RyIiIiIiIhnj
AfKGdZh291mY4/UL42XqfsOYn0DO83LlyiWNeec1XpYXrCNXnw/W5mQ7vKbq
cVm9enWofcC8fl7vNYxvy3MhGEv4+uuvQ+nf9ddfb+lbEOtBUVtR3r+OegQY
I0ctabHfvGpkIC8E5pVxbHXPHccV5pbl1zbs3N86YM0b8qhi/A35cNX8/W7i
QZzCe8Wuxi7GAnXKtngA5geIP3Vezut8vBsYN7eL/XSTu9qOXY4A1NDOdlib
qR6XoPPvq+zyLI8ZM8byN5gXl8/DmB8L67pWrQWN9eth8RsPgDxj4rH9+vXT
0ifUyClUqJC5z3//+995zgEjHxTubZADJ685zYULFya9F8KI+UhHuHYWMVu4
Z1i3bp2W/eI8L459y5Yt8/z7Hj16mH+LemOZJqp4ALsYVIxVpBucxzFnXrly
5aT4QrEtWbIk0j7i/JIqVgF5BZ1CfSLkUFFz+9WsWTPA3hMRERERUbpiPEDu
MBeqrt/XOfaAMRR13zNmzNCy79yo+QCxPfTQQ773axc7EcY4ftx98cUXSccF
PwuTurb58ssvt8yHr1mzxjI2jnVdqKcbFnlOHdu9996rvQ2Rd718+fK+8gKo
Vq5cZRQoUMDcN/IF5GbcuHHm3zVu3Fhb+3HXrFkzy2t73nnnRd0l3zAPcfbZ
Z1ueV5s2bbS2gfgsu3FCp3UpnJJz/jIegKKGGtDq+xHXqkFD7Q+1XR21TVD/
XN2v25pMmWj58uVJx+XDDz8MtQ+I4ZLbv+iiiyw1yJGvQI6dxRz0qFGjQusf
5rPk/iE+ICw5Od7jARBbI2qhIY5OJxz/VLEbKtzX4O8GDhyY535feOEFy/PF
9zvZE9cmiLXQeS+DuMtrr73W3DfiPnKL98B77NRTTzVzCqAGV6aJKh7A7rrT
b+6HOOjcubPlOeEeN+q8B3a5A8WG+CQv5JgAnXXFiIiIiIgoczAeIDXUgS5d
urTl/gxjH4MGDdLWBuIN1HtArGEO0tq1a5Py+mPcS0euxQ8++CDp+TRv3lxD
r9Mb4vbV4zJp0qRQ+4C1BqJtvK9Re3Xv3r3GsmXLzPnaY445JvF71DfetWtX
qP1Tcybqft+sWLEisW+/dT7siHVKyMOQW/1UrI3H33355Zfa+xBXqNcpv7YY
5013mBvJnz+/5Xm9++67WttQ54LEhry6OjE/AMUJamGo70fU/g3Sli1bLLmq
sRUvXlxLvSM5L43YsikeLJVt27YlHZeRI0eG2oehQ4cm2kbMJPITYG4R12xY
nyznYcY5EevTw6TGK4T5vvGTH0CsMUZNsiDmarHuFfu//fbbU/4NPruI38CG
+7m8qPnNHnjgAZ1dzihYc60rXkqFGBxRsyy3+CB8JwTVhziIKh7gk08+STov
h5UnLkiIMZefE657o9a0aVPba3zcI3nNX4c4frGfzz//XG+HiYiIiIgoIzAe
IDU1xyvyBOheF4RcAOp9YNDrxuvUqZPU5ttvv61l33bj3mgv29nlgQh73Btj
C6gLqcaCiA1zIXXr1g19fZ4g15nFltc6e7ewRg37xfhLEDBPIMYwV6z41vZv
FixYYP4+zBrAcWBXozndLVq0KOk56YyhsaslIzbM0+jEeACKk7Vrk78vg16T
jXlFtU3MFeuAGjLqvlF3JNvt3Lkz6bj4rTHvFtaHIpe9GgsiNuT9wTXsxIkT
Q+2XoOZ1whxhWPzEA5QpU8Z8DOICgiDmvFC3J9W8mcg97zRvz8UXX2x5vlG9
5nEn4thx7BFTHASRywuxpKlUqFDB/BvENmciOR4gzHwymENWz4MfffRRaO0H
BTVD5OeEvD1RU+PgxeanLsz06dMT9/RyrhsiIiIiIkofY8eONXNVYn0D6qmq
m93P5Z+Jf6d6vDwGhvlut4932j5qbz7++ONRH07HUA9AvjfDHGoQ67kx96re
B86dO1d7O4Jd/MH555+f63pmNzBmwHiAZFjvoh6XoNc7pnLw4EEzjwNyI3fr
1s149tlnjZkzZ5q5N6N00kknWY5P+/btte5frLMLsl6kmFd9+eWXbX8vYoze
eOONwPoQR927d096/3td+xIXam5hjDXq9PHHH6eM29F1vhbiFA+AOSfkK0Ge
DV3XH+rfyblQTjjhBM/XT3m1jzWUUa6rQ00YrDMLe+vbt6+vfq9atSrp/fjO
O+9oOirJkC9Gbe/MM880jhw5omX/dvWCGA9gGLt370k6LrrqzLuFteS4Hu/V
q5f5fYX1uLie1ZE3yw/UZpePj+7c+7nxGg+wf//+xHzx4cOHA+kb+oLvCLRj
l1cbcR6iZjjOJ04MHjzYvA/G/V6rVq20f89mClH/pG3btoG1gTg9tIHaXnbm
zJlj/r5q1aqB9SFqUeUHsMtbOHXq1NDaD4Jd7JnXfPy6fPfdd7bX+Nhwf+GV
qPdw3XXXaewtERERERGFCXWWU90vpOMW1FoCnVDfW6zzFfMFmC8NwpQpU0K9
R8Ucj9qeznUHWPMel3mlOLG77w9q3VS6UtfnderUSev+US8BtWSDhJgh9N0u
DyXGozDOjDHyX3/9NdB+xE3Pnj2T3v9//vln1N3yBet35OeD3NI6IZeH3Xco
6lvrFqd4gE8//TTy6xSdW275rIOmrocLa8Ocqh929XWwHjgod999d1J7jz76
qLb9T5gwIWn/qJGd7XA/oB4XP/MgmUjMeQf1PZObnBxv8QCIAWjXrp05vx4k
UQ8c8dsqUbvsmmuucbVP5PhJh/vUKCHPVaNGjQKtKY9YrFNPPdV8DXfv3p30
e1Hb4a233gqsD1GLKh4AaxLU83K651HC2hr5+SBuM+qY5BEjRqS8hvIzDiTu
t8LMKUFERERERHo98sgjlrnpdN4wLhP1/VdesOZArgmNtW5B1BoX7PIDoH5p
ELZv32GphSo21M3VBWPo6v5ZJ9cwNmzYkHRcsm2NeF7U/AAPP/xw1F1yDXVy
xViTOnYuxmh0xzmkA+ShUN//cf8uyA3GqrH+W34+GG/UCePtdt+jqJusW5zi
AVAnIVPiIHEtMXz48EiOI6RrPECY+QHwfkNOeLU9p2uKncC4vLr/m266Sdv+
0xXm+dTjEoccznGi5gcIs6a9n3oBYRDx1HbrYHG/id8hFofS06233mp77t+0
aZOZ46do0aIZnQ89qnoBdvly0j0/AOKo5OfjJx+/LqhdZ3f9hHsLP/dHIlY5
ytxURERERETk3w8//GCsWLHCsi1fviLpZ27+RvxOXrdZvXp114932v7WrVuj
Pox5Wr58uWWOB+NwQeYWB7v8+l9++WUgbWF9gdpWjRo1tLZhN6/kd24gE6xe
vTrpuGBtAP0Dc+jy8XFa8zVuypYta/Z/9eo1iZ9hvdxpp51mxnahdkS2QVyb
+v5PZ3b1wHfs2KG1DVE/V92CWFccp3gAQJ5mrD3Udf2hbuIzig21PbxeP+XV
/s8//xzZMYRUx1DX9WOqbc+ePb76vWbNmqT34+jRozUdFSu8/mpblSpV0tqG
Xf6BLl26aG0jHanzzeLzSP9A3Qr5+GAOKSxxjwcQ8Zcnn3yy5ec4B+HnJUqU
0Fbzg8KHnF54HXH9KOvQoYP5c9T1yGRR5Qewy9GEsYp0hrqI8vPxW9NIh7PO
Osv2Gv/GG2/0vE+c73A+RF7LdM/BRkREREREwXn11Ve13IOkO6yRL168eOJY
YF2dznXzqdjVlcW9eBAuvvjipLZ012oV9TrlLahaC+kE8yfqcdG9njjdnXHG
GZbjE2ZeXJ2aN29u9n/atGmJn4m8kHXr1o2wZ9ER47diQ22IdIaxRPn5YD27
brVq1bIdKwyiJmjc4gGCdskllySeZ7rnwc1EOTk5ocXPVatWLamtp59+Wmsb
FSpUSGqD65aPXnerx4V1lKzKlCljOT6ILQlL3OMBQMR27d+/P/Ez5FDAz5gv
O72JvPVyzR3E2CFuH7nu8D2RyaKKB5g1a1Zo4xJhQG5E9fmg5kWUNm9O/u7T
EauAeADkEMvGPHREREREROQc4wGOrjGRx9wwPowcsmGwy4uLe3HdDh06ZOZX
VNvSmU9u8+bNtve28jhdtlq8eHEor3M6U+dM7r///qi75Mnzzz9v9n/gwIGJ
n2G9KX6G+iDZqG3btpbXtmTJklF3yRd8V8rPp0WLFtrbEDk/1c1tPWQnsi0e
oGLFiowHiLFff/016f34+uuva28H85uITVLbmjFjhrY2kCvBruYX5lqznV0d
pYkTJ0bdrVhR41UaNGgQWtvpEA8gvrtELjfcb+Azfdxxx9nWnaf0gdyIeG3x
fS0MHjzY/Nltt90WYc/CEVU8gF3ewm+//Ta09nVDvQn5uSAXXdR5Q0aOHJky
HiDqWAUiIiIiIsp82R4PgHHnqlWrJo4Bxhh+//330Nq3q586efJk7e2gBoHa
DtZX6Hyu8ntJbIizoH/WucjbsmXLou5WrCAPunx8GjZsGHWXPBkzZozZ/44d
O5r/j7Ed/D9yZ/z9998R9y4amC+XX9tLL7006i55hnFEtbYFXnPd7rvvPtux
wquvvlp7W9kWD8D8APGHfLfy+1F3LiNYunSp7WdMZzwo6hyo+0cuHLKPh0XO
LPpH/fr1LccnzBxD6RAP8OCDD5p9E/k2RP2PMPMoUDBQNwhxHcgHIIi44dmz
Z0fYs3BEFQ+AayL1vLxr167Q2tcNuebk54JaXFG79957ba898F6POlaBiIiI
iIgyXzbHA+Ce66abbko8f8y//O9///O8r/79+7tew4bHqfeD8rpiXTCWrraj
u0Yu5o/UNjK9vqNTiPFQjw3XB1ph/l8+PldeeWXUXfJE1N7EOD6IsSjUQs1W
6nzz9ddfH3WXPJs/f37SZzmIvLUDBgywHS+88MILtbfFeACKG+QQkd+PQeS/
xfWa+r5HnWGdmjRpktRG+/bttbaRrjCnpx6b1atXR92tWBG578VWvnz50NpO
h3gAzJOibyLHdrly5cz//+abbyLuGelQunRp8/Xcu3dv4toriGugOGratGkk
8QBDhw5NOi/H8bPvFOp5yc8FOdyiVqpUKdvr+3QYh0NcO+L2li9fHmk/kPdy
69atZj9w3434Qj9Qv+iTTz4xfvnlF009JCIiIiKKr2yOB0A+cvHcW7VqZa5F
8GrdunXmfipXruz6saeccorlfrBr166e+5EKxtLV+06sq9EF92UnnXSSZf/I
P/D999u1tZHO7Ob2Dh8+HHW3YqVNmzaW45OuOeVFDmSM22NcAWvJsdY1m+tm
XHzxxZbX9p577gmsrd9++82YN2+eOa6D//75559a9495B/m5IO+DCuNKGJ/6
/PPPjfXr13tq56uvvrIdL8R6Od15JhgPQHEjaqyILYh8MU888UTS+x5rMnX5
448/jNNOOy2pDXxHkGG8+eabSccGOcLpH7gfkI8P7hfCkpMT/3iAUaNGmX1r
3bq1Wf8M/9Yd60zRQT4kvKaIBRCxMYMGDYq6W6GQ8wM888wzobWLOH75c3/y
yScH1hbGXRADNmfOHPN6effuPVr3v3379qTvGOTrk/3888/m9Tbi01DbD9/b
Qdq8eYvttX1cYhVygzUzNWrUMPuKOkhe1q/gewTPE/cduJ9ycj+Dx+Acj7YR
s6mON2ErUqSIl6dkGjduXCInFe7dDxw44HlfRERERETpIFvjAXr27Jl43g89
9JCvWABArkrsCzng3LrgggsCnytT51qxDRs2TNv+7WoFNG7cWNv+090jjzxi
OTaYIyarp59+OimeJB3z6yM2Bv0/88wzjTfeeMP8N8Yxs5ka8yRqKeiCPCs4
n9WqVcsoUKCApa1TTz3VbA9xAgLO9ytXrjT27dvnui3ka5b3j7gyQHwPxriw
dk09F15xxRXG+PHjXeUBRSwJPgN2Y4ZYE6MT4wEobtTPGeqo6/boo48mve+R
b1yXt956K2n/yElFR/Xq1ctybI455hjPOboylV1uL9Q5C0M65Af4+OOPzb41
atTIaNasmfnv4cOHR90t0gSvK17T9957z5yvw70T5m+zQVT1AuR2senOmQOI
70D+g2LFilnaypcvn1GvXr2kenqY1/cSW/v2229b9n/iiScmzmM4d9SpU8eM
sZX/5vTTTzfvR4OKTRs5cmTKeAAclzhTc0egzp9biCGQ9zF16tQ8H7NmzZqU
x0xsiDv3At+nag24uL8ORERERER+ZWM8wJAhQxLPGfO0OohxZS+x3Wp9UMQ/
64aYB/Xe6YMPPtCyb8ytiRyd8oa1uXSUGNMS2+WXXx51l2IH8fnqe2jnzp1R
d8s1rC1B37EuFK8z/r1o0aKouxUZzGurryvGlHTBPDvGK8W+y5QpY7z00kvG
pEmTzHmBKlWqmD/HfzG+h7yz1atXN3+GOAU39aoxn6+OG2F94rRp0xI5SStW
rGg8++yzZvtY/3rppZcm/ha1b93UJr/jjjtsx72Q+0AnxgNkt2+//da8dmnQ
oIH5HsVn6KKLLjLrenTo0MF8j4ed3wTtyu/Hs846S3sb3bp1S3rfjxkzRtv+
kS9K3f+sWbO07T/dtWjRwnJs8L4jK3y3qO+hsPJLpEM8wGeffWb2rWbNmuZ8
caFChSyxf5TexNy0iA/Tmdcu7qKKBxDrv8WG60NdkEvx1ltvTewb19Pt2rUz
4z3Gjh1rvr6IC8PPZ86caT4Gc/OIE8DfY6zFDfU7BvP/27ZtM26//Xbz/xEv
jPyQuP9EH/D3aB+/O/74443p06dre+4C1o3YXdfjObuJGY7CddddZ+kz1uy7
gXg/NQbE6TU4XrcFCxaYudd69+6ddPy81mES63nEhtefeYqIiIiIKNNlWzwA
5miQ4wzPFzkCdBE5DadMmeL6sY8//rjlXuTcc8/V1i8BY/3qvRPy8+mAuSl1
34j7p39ceeWVluOT7evF7SBnpPo+WrhwYdTdcg3jOei7OM9k+xzH6tXJ6zqQ
19cvrMe/7777EvvE2N3o0aOTcr1g/KlPnz7m32D9CMb+5L48/PDDjtsU9Wvl
TcT6YFwR44kq5Lho2bJl4u+RK8DpfAXmDu3GDV944QXHfXYi2+IBELPBeICj
7y+su7d7j6kb1tDhfRJWbNOIESMs7QeRLwZ5p9Xn6eUazo7dueK2227Tsu9M
ccMNN1iOD+JRyGrbtpyk9xHmQ8KQDvEAiOeTr7dwTUCZQ+R8EK8v8rpni6ji
AUqXLm353Pfo0UPLfhG7K3KyY0MuxJ9++inp77CW4IwzzjC/8/v372/pi9uc
8CJOV44HQP0DvJ+wTsIu1wrqBoj3G/qre20DYhvtrrEQ8xJniHXHfZbcZ7fx
k0uWLEl63jk5Oa77grhudT8Y3/OiSZMmlv1gjQ4RERERUabLpngAjBuJXNLI
U6oL5v/EPa6XdTu4R5bvRdBH3T788MOkeycd69Qw9ybW2ooNedIPHjyoodeZ
o0SJEpZj9Morr0TdpdjB5yh//vyW4zR58uSou+Ua5p/l5/DUU09F3aVIiXy+
YsM4m998r3v27LGsvS1atGie+R2Rg1QeVxYb8sU4ZRdXhQ05wNGnVPB8ixcv
7npeEOdXdTwTW9WqVR332YlsiwfI9vwAv//+e6IWMza8/q+99pqZjxexKhgj
X7p0qZk7v2TJkkmfX8xTBJ2zGbFg6ntyxw69+WJQr1htQ9d3jlrvAPFCumsj
pzs1r1SYNbLTiVpvB3UowpAO8QCYH5b7iOuNbIX7LlyHZFLNDTnmE99Ffmv7
pZMo4gEQc6fmz3/33Xd977d79+6Wfeb1fJArwO563U3dINQYsLtexxhFXush
5LhhxCB4mbO2s3nzZts+YfOSXzJMdtdLO3bscLUPNb7Da94nu/tKL/XfcB1b
sGBB7WNjRERERERxly3xAKtWrUqMqWGtqE5ifQruob2Mw6xduzbpHmv37t1a
+7hr165EDjyxeY2llqlr+LDNmDFDQ48zB+a51TEN5DilZPI8HTaMHaQbrFuX
nwPyY2azYcOGWY4H1h75gfoDcg5+nNec5DrBXKc6zokN855OqXN84nvTSY5P
5EGVH7dx40ZHbaKui93YIXJn6qLO+TIeIHNhrh81X/HccRzyqpeB2AHkZlW/
w8qXL29s3bo1sH4iLkFtU/c6PaxNVM8JqI3gF/KEqJ8nu9wh2U6tvaKrhlWm
UWNuw5obzMmJfzwAciWI/qHudybNhTu1bNlys7aLOF+WKlVKy/1dHGANuXh9
3eaKT3dRxAMg5k797kLtdj+w/kLeH3LyO3HVVVcl9cVNjUfETamPL1y4sKPn
gxxm8uN0xXWPHDkyZTxA3Gssqq8j6rS5hfsKeR/4fHuhxpegzpUX/fr1s+zn
ggsuyKqYIyIiIiLKXtkQD4A1LmJ9Nta76YJxddTdFfesXu9HMH4l8haITdTN
06l27dqWNrp06eJrf4hzV+Oqu3btqqm3mQPzwep9v5sa4tkEdSbk44Rcoenm
0KFDif5XqlQp6u5EDmO48muK2qFeYT4C495ex+nkuqXYcP5yOn+AOX91/grz
qXi9nUBeTa/9btiwYdI5pHPnzo4fnxuxDovxANkBuSnwvBET8Oeffzp+HN6v
6nsE48FB5gLC/uX2hg4dqr0NcTzE5rc+NdbLYT2hvM+2bdtq6m3msJt32vL/
tXc3wFdU9R/HJyzHdEJTeXJQhJQHHYkIRUYeDS0QFdFIGxDCJDQQgglEQmmU
QoEhojRRUJQAZSpMIUMgUAyRRFB0NEn4KQ8pPkxTqJNN9///rO317Ln3/n57
9nfv3d2779fMDgp3d8/dvXfv7jnf8/2+/nrczUokfX7M43TZZZdVZb9pyA9g
1tRR/u+sUVyhco8U+w1fsGBB3M1rtKFDh+bfj0vsZi2IIx7AngOuvonGxNjY
8cDqJ1GMYRh2XXfX+7VRo0YF1lX9gU2bNoVaV7nxzVhB5ekqh+HDhxf9rurZ
IkxccZz8OFJ/UR00F/ocNW3aNLANfT6iMPPDaRk7dqzzNnS87doNP/vZzyK1
BwAAAEibWo8HePfdd/M5SfUsqNjfMItqfhf7O+WZ03ObPW9Ni+pIR2XOd9Vy
6623lvEofMIe92nTpk3kbb333nsFbY7yPJYF9jigYlNQ3B133BE4VpqDmjbK
7eG3v9x13tOoT58+gXM6ffr0yNtSPmlzW23btnUao7DH1V3qdWrujn3N37Fj
R+j1V69eHVi3Xbt2oddVDmDVRDDXV1/lrl27Qm+j1HZLjSWotnetymo8wOLF
i/PX1WJ1e+ujPMJ+zQ1zaUx8T0OGDBkS2FfYeYUu7FpK+p5FHf9Q7hLlMza3
p7oMzDcrtGrVqsBx0jgBx6k4xcGU697dRRriATQP3m/f5s2b425O1Zl5ze1F
36n9+8tbY6Xa/N8cPX9njRkPUK1aKvYzmJ7zo9I8fLsGnOINwrJ/I9Tvorrx
Yeke21zfNb+EcgmY6z/99NNO6xdTLBeXFs3XSDLlvbPnrSxdutRpG88++2zB
+969e7dzW3TvWo58l3afmPr2XO+LAQAAgLRS7eRajQdQDHqxfHOVWhqTT278
+PGBbakfvNzU19q9e/fAfp555hnn7bz11lu5zp07B7ajPin6cosbN25c4Fhp
fgCK0+fRPFZHHHFE6LkkSaH5J377y5nTPY00hmjPqXfpDzQpz8ZRRx0V2JZq
nrtQPJe5vkvtGL3WXNc1rmfFihUFvxkufZvPP/98Qf+krsNR67hr7LJnz575
fla7bS1atIi03TTIYjyAPxdK5zpqHIl++3VNtj8rYefcudJcLXM/Xbt2rch+
zj///MB+lIPclWIkzznnnMB2lAtX10AUmjZtWuBYVTKuJO30fbW/c4p1rrQ0
xAOo5rbaphz5WXwGsee32svkyZPjbmKjaF52Y5+v0yqO/ACa12B+fqLWaNB3
0a5zovtNF8o3aK7vkoPRvnZFefawawk1Nr/k1q1bS35Pp0yZ0qhtV5qdN0LL
m2/uc9qGHWui2Igo7Nhq3dMeOnTIaRu6L1P+PnM7N9xwQ6T2AAAAAGlk5gdw
mSuZdJrfZeeBrfSi8Z6oVE/e3FZja2yXojElc0xNz+uK+w5Lz9gdO3bMr6+x
AfXT0Oddmh2DsXLlyriblFjqQ2rVqlXgeG3ZsiXuZjnx82MqL0nW7dr1UuBc
Ko921JyY/fr1C2zr2GOP9Wq2hKV5KPY1e9u2baHX1++jue7IkSOd2m/G3vmL
69wYxcvY8RW6hrscB9EcmHPPPddbXzlAlQug2G/ab37zG6ftpkUW4wF0LvV+
Nb7yyCOPePlwo7BzxmoZOHBgmVv7iT179gT2o7mGLjUOwlKskfm9UtxB2Dog
ojwbZt+y+qc1lpHFWuZh2XVfVFcZpfnjov7yxBNPVHyfdXXJjwcYMWKE17ZK
5A5Jg4biARQTn1b6vCmvn95H0murV0Ic8QDKPWJ+fp588slI29H1vLF9JP49
qr9o3kRYdl6+Y445xuneQffIdvtnzJjh1H6T7tHtZwhzSXqtk1tuuSXQXtVy
cqX7RHMbV111VaS2TJ06NbCdKLU67VhT9bkpRhoAAADIilqtFzB69OiyjPG7
LDt37ozcXo2R2XM/1cdcCRoL8PtYtKgWaUPj+Wrf7NmzvXrb/nrqh4raV5AV
6s8yc+wpFsNlnCGL7O/uvHnz4m6SE9V1V7tdayvWovvvvz9wLtW/GcX27dsL
rreuNbnvu+++wPrHHXdc6DgmXf/Un2iuv2zZMqf9a7zCfg+vvPKK0zZEvzPK
925u5+yzzw4951uxZ/76F198ce7w4cO5iy66qOhvmsY11Wc3a9Ysr5arajVr
jlPaZTEeQP3N5rnV/YbOqStdj+3Picbpo8YXNMTORVSp+DCNr5rzAdV339D4
p8b7Fedj3ru1bNkyt3bt2oq0sZaYx0y5f5V7AqVNnDgx8D2oRE0xWxryA/g5
OfT7nkXF7ivMRc8flYihqgY/L4Z+X5L42au0atcLUL4q87Nz4oknRo5pO+OM
Mwq25XIOdV9q1xpQ30VYo0aNCqzrGrNYbD78j370o3rX0bO91lu3bp13r/y7
3/0uN3/+/NykSZNK1gkwl8GDB3v5TnQt03tVniJ/0X37O++84/Qeysmu++b6
fKvPkdl/pEV1cKLw85r5i2utSv2umfGfuv+oVI4rAAAAIKlqMR5g3759ZRnf
d1n0POEyz74Y89m/0v1betbUXF1/X5pjqvpr9rO/ak/efffdgWd79ZnrWVD5
cVE/xUuY57SWcnBUymOPPZbqY6Z5E2p3Y3NL1gLNoTfP5UMPPRRpO8X6vNXX
1pi2qO8tLM1Ns/d/4MABp/23b9++YBv6rYpCvzXqAzPz/Ou6rNyuygFjU9+q
+if9nDnK66LxJf96XyoeoNiiedBpZ44xZyUewM7dq0Vjsq7xaa+++mrRz0Wl
5m+qD97cj+apVYq+I82bN8/vS2ONy5cvLxjHOHjw7978R9VW9l+rGMurr77a
qQZIVj3//I7AOe3Ro0fcTUq8jRs3Bo5ZNeZ9Jz0e4ODBg/k60qpNnUW6Htux
5OY1SX++/PLLcTczEr9GU5T5v7Wg2vkBFB9ofn70exaFne9QyxVXXOG0DY2p
m+vrntWltrvme5vrK1e9C8Vf2O/h9ttvL/l63Uurhlgl+5mino/G0vOGOa9B
y9KlS522oeuz/X6Ul8mV8iyY81m0qO/KxaBBgwLrK14DAAAAyJpajAewx2Cr
sSiXZ2PZz+JDhw4tw9EoTWNRqhVo1gPW86xq6Q4YMMCbQ2mON2l+rOY+Rx3D
yiI9Z5rnVN831E99D+ZcbOVU0HhmGqjf1W+3ahxmmfrHNCfIPx4ar45S6/6D
Dz4I1DjRouuSa/3ktm3bBrbhkndi5syZgXVdc2Vq/ND+zTjhhBOctlHMSy+9
5MVm2cdHuVv69+/vzYlSzlVz3rOu7XYugazFA2QxP4A5dm0urjkqFAdYbDtL
liypSLtV08Pcj3JhVJLmqWscxvzOtGjRwqtXou+OagmY90X67in3gmobIBx7
rEXjfqiffk/1m+EfM42JVDomN+nxAPfcc0++bS5jhbVG18hevXrlj4VimjR+
fOONN3r/71IXKUkUJ6T2DxkyJO6mxKLa8QD2nISo9aLs7WhZsGCB0zbsOMBu
3bqFXreurq5g/6q15cKuZ6NlzZo1JV+vHBxNmzZt8P5Z9xV6vtVr9af+37yf
qG+pRo6IYorlSnDtB1J+SXP9k046KVJb/vCHPxS05dChQ6HXv+uuuwruJyuV
2woAAABIslqMB9DYocZJ6ltU19rl7xt6XTn6glW7zOyDVj7ratSf3bt3r1cX
T+e/WbNm+f1//vOf957BNY901apVme5vi+r0008PPHu++eabcTcpFdT/Zx63
Rx99NO4mhaI5KFHH2WqNHZel/rUoNm/eXND/o/ndLuxxDS3PPfdc6PU1Dmiu
+53vfMdp/5q/Yu+/nHkvNCd58eLFuWuvvdY7Nn6eVfUz6ndE7Ve+ilI1BVQ3
QHMMFdfWvXt3L45g+PDhXvzXbbfd5vWhKV5NeUujzOlJmizmB1Dsn/0Z1G+8
6++64rWK9VXfe++9FWn3f//738C8O32mq5FbXv3d+uzru6B4APOYKSZgwoQJ
3mfHNS4JudxXv/rVwGdH99BomOaHmsdNuSsqKenxAMrxo3aVI7auFuzffyD3
17/+Nf/c6I+ppjF3gsb4/HHSH/7wh3E3JxbVjAdQTSzdK/r7U5yb5mJH0aZN
m4L7gxdffNFpG2Z8ixb1Q4SluevmusoNr/cXll5r5pP3l4by9SveWc99r7/+
uvesr/sUxWzpOIapPaR7K/UD6Z5C9SK1DW1LOUD0Z1yUk8k8Dq7x0GLPyVcd
sigmT54c2I5L7hDVcTJzC+h5h3xOAAAAyKpajAdIM/U9m886Tz31VNXboP73
sHW1UZrGzcxzqXzNCOeBBx4IHLvrr78+7iaF0rdv3/yYUTVieZJMuevNc6j8
2lHMmTOnoF9u3LhxTtuwP0+am+NyjTPHA6O8l/Hjxxe8h0rmPReu4aVlMT/A
zp07c8cee2zgM6hata40TlMsHiBqLZAwNP/e3Je+z9XGfVF5KM7CnA951lln
xd2k1FCNHPN7UOn80UmOB9B8XH/MTrk7UEjxfFHGYpPgwQcfzH/u9N9ZVM14
AHsO+OWXXx5pOxoDt+8NlCdMv59hKSeYnZ9ecxLCUuyAua5yHrrYunVrwXuI
MgZeK/r06RM4Foo7dqH7Jvvec+HChZHaovn85nZUNy0M5e4z26AcKrt3747U
BgAAAKAWEA+QLHbtdNdxLySHag1Wa7yk1miehFnHuVWrVk7zO+Kgebb+3INq
1PZNuvbt2wf6A3VOo9A8dbtvzjWPqT2vUnFXYWmejr1/19wPmk9srq/xsL/9
7W9O20D5ZDEeQNRXP2XKlNx1112Xe/zxxyNto1juWC3bt28vc2s/pfnj5hiy
5pohnex8vcr5jnB0D6RaMP6xU06XqL+rYSQ5HkBzPf12ZXX+eEM0B1fHR3OO
0+bKK6/Mn99ayEkUxbBhw6oWD+DHjvjLpk2bIm3nj3/8Y8G9gWu9B3sbrvXB
vva1rwXWnz59utP+586dW/Aebr31Vqdt1Ar9vtixGcuWLXPahnKx2cfztdde
c26L8i+Y9S21KPdaQ5QzxcxZoVoFaYyRAgAAAMqJeIBkUQx9p06dAv19ipVH
uug8dujQIX8eW7dunfjx7KSxawwnfdzOzAmv+eBZZtcKmDZtWuRt2XkmtbjU
ixT1/5jrq65DWBr7t+c6udAYrN2HxW9tvLIaD1AOdh1YLaqLU2lmzQ7FXb3x
BrV30sisFaA879zfurHHqiqZK6OuLrnxAOb4JbG2xZ1yyile/EjaaD6xnn11
bpXLyWVueS0x8wNUsna86qebtQK7dOkSeVsrVqwouD+YP3++0zbs3GKu9cHs
ejSqOe9C9+fm+qrjeODAQadt1IoNGzYUnE/XuoeqVWaur/pPxSgnRX35guz5
MooTaehZULEI5twC9a/FWXsBAAAASIo777wzf5+s/lbET/OlzGeeJUuWxN0k
OLLnN7iMP+ITes5X3v20jKGaOa2zmt/UN3To0Pyx0NyS/fv3R96Watub36WW
LVs6rW/X7dCifKA21RxVzVTllTQpp6S57le+8hWn/Wtel71/1/5JlJf6u/1z
oRzcCE/1Wu3Ps+v8uyjWrVsX2OeMGTMqvk+U15YtWwLnUPXN4UZzvc28xz17
9qzYvpKcH0C/w367yLVTSPdcOjZf//rX426KM+Wa8c+tanBlVbXqBaiPoVwx
RorNse8P1q9f77QNO59WsTyJyheg2Nxix6V79+6B9ZVfKCzNWzdzEWnReciq
m2++OXAsFIvpGp9jP8MVO576XVPc9DnnnFNyO3aciO5F6/PEE0948UT+6y+8
8EIvjx8AAACAnJcTzr9XJudiMqguppnbjNzj6WM+/2rexb/+9a+4m5RK5hyw
Jk2a5Pbs2RN3k0oyx8mymt9U9u3b782n8Y9F2PqOpZh9omH6gGz33ntvYH3V
HP7Pf/5T8Dr1m38y92Vf4O/teqiqpRmWxk/s3ASXXnqpU/tRfuZnKkre0qz6
85//XNDXrxiaatVh1b2Qv1/Ney32PUZymd879dO75IDGp+wxGpfxLhdJjQd4
//33vftBtUk5JlDo4Ycf9o6P5uamzbx58/KfOY0BZlW14gHMmuzK9dOY31XF
utr3CDt37gy9vp6V7XxaxeqDKeZa/zZr1qyCf+vfv39gfZf57BMmTAisq9+p
xsQzp13v3r0Dx6PU3P5SdK02x+S1LFy4sOB1v//9771/0/EvpVu3boHtlHq2
VC7GqVOn5n8jdI962223cb8IAAAAGJSXT/fJY8aM8eokIxkWL14ceO554YUX
4m4SQtKYtTm/gNwA0SlHgMZv/WN50003xd2kot555538Oc9yflMxxyrUD7N/
/4FGbU/zgM1rYa9evZzWHz58eGD9YvPlFIN19NFHe/l1bRoDMT+D559/fuh9
2/OutB3XXJsoP80nHTVqVO7nP/953E1JlW9/+9sFff1z5syp2v43btwY2Lf6
kJEOiqs68sgj8+euGjklapXqKGturH8sb7jhhorsJ6nxAP7YkT/nE4Wuuuoq
755U8ZlpM3jw4Pz5zXItiGrEAzzzzDOB73hjc5vZ+bS06DoSlp1bT0uxnPAj
Rozw/k1zWmzXXHNNYP0DB8I9gyg+zR67XrBgQei215oPP/zQy+9mHg/X+iPq
W7TP57Zt2wpep7F9/duOHTuKbkfz+pWbwNyOavTZlN9NOQb81+i/KxUvBwAA
AADlpjhm1Tnzn2lUVw3poL5Z/7y1aNEid/jw4biblGrm+LL6alxrx1eD5q/4
bezXr1/czYmN5vboM+8fi/Hjxzd6m3b/omqDhrV27dr8HJH6xqGUz1T/ps9a
MWZMQdh6ARqzOfXUUwP7Vk0CII3MMTgzNqbasU8a/zOvBVmOvUoT1Qbwz5vy
3WveIKKbPXt2/niqrtK+ffsaXslRUuMBJk2alG/TtGnT4m5O4tTV1XljZ2m8
F9X1/Pjjj8+f3yzX+q5GPMC3vvWt/D46dOhQljnU5557buC6ETZfmnLGt2/f
PrBuu3btir62VatWudNOO63o778dU2DXACvFH5P2l0GDBnlzZrJqw4YNBfd8
iunTs00Yire119dir68+Ej031pcL89FHHw1sQ7FOZl+A4qwV4+vnltBv4ty5
czN9/gAAAACkk/38o9qrSLZXX301EMPO+F/jqe/AzLleqblwjWHGgPz4xz+O
uzmx0Vi7fxx0zsqVD/q8887Lb1e1CD744IMG19G8py9+8YsFfVH3339/wWs1
3q/vbakxlccffzy/vvqbwsSkXHHFFYH9zpw5s+E3CiSQ5nY3b9488Hn+0pe+
FHreXTk9//zzgd/YZcuWVb0NcKO+euVf8c/ZnXfeGXeTUk9zN9u2bZs/phoL
Kbe6umTGA5h5o9etWxd3cxLHr7NVLC930u3YsTN/blU3L8sqHQ+gPgVzfFX1
1stB1/eG7rlt//znP734Qvt+/YILLih4rT/eXyo3kWIazLjkMHP8f/vb3wb2
qxoKWY/lt+vS+MsDDzzQ4Lq69ui1+o0y43t072b76U9/2mB/ieqGmG3w68a9
/fbbXq1Tjf/r74855hjv+leJ+DgAAAAAqBYz713Pnj3jbg4acMkll+TPl+Zd
oDzUT+Xn49f8BOX7TpIvf/nL+fP+9NNPx92cWGguod8no3OlPrtyUX+i2Rek
vrv6aL6/cvOrXkHXrl0D69o5xjV3SWP8Q4YMKbk99S+qbqa/jUWLFtW7/1tu
uSWwzyzXwEX6aZ6c+XlW3ou9e+tia49qXPltUX+z6n0guYYNG5Y/XwMHDoy7
OTVD9xr+fEiNs+zataus209ifgDFh5pzQBUXgU8pRusLX/iCF6+VxmNjzimu
RIxLmlQyHkDz6nv06JHffjlyefnee++9QI2t+u6t/df7OQXMNpV6jlYOeN3b
1xdvbOYQaajGl/LXH3fccfnXd+7c2YuBzLrevXsXjQdQnI7qIhajvP6TJ0/2
ngEVU7F3797c9ddfH1hf8yZ8qrWneAE9X9V3H6dtmdvo0qWLlyvK/y1Q7Lfi
F7Q9AAAAAEg75d828+etWrUq7iahBD/nuJbWrVt7fRwon4kTJyYy1kLn2Y9V
UB/Yxx9/HHeTYmH2XX7/+98v+/bNPqVTTjmlaM5K5Q1Qn5BqXqp/aPXq1QW5
Q2fNmhVYR32V+vsnn3yy3v1v3bo138ep2s3FYlI++uij3NVXX53fl9px3333
Nep9A3H6xS9+Efj+6LsXdw5n5YDt1atXvk3z5s2LtT0o7dlnn83/Puq6eeDA
wbibVFPM2LOLLrqorNtOYjyAftPDjvNl0Te+8Q3v2JRrrne1qTaef36znl/N
vKcud94x5dXxt33GGWeUPXZEz8Mas/f38dhjjxV9nb7Pil3Ra8aNG+eNCasW
gDk2b/Jrs40ePbre/etZwLxH+OUvf1n0dQ899FCgnUOHDs18XgDR50HPL+b1
3zxOGr/XZ1KxFC+99FJu48aN3rx8xSLp38eMGZMf31c/lmI4/HVVx2T79u1e
3jXFcyrnm/67vraYOaH8RbkAlIft17/+tZdfAgAAAABqiZ639Lyk5x/Vy1ON
PSSLxoDNOeLkMC0/9S1oToA//zwpx/iRRx7J/NxH5R31x3w6deoUKp+/K81n
MsfaVVdU/cWvvPKKt3+Ni2jein8e9u/fn1936tSp+fWaNWuWW7t2bW7nzp25
wYMHe3+nWIMw1Meu/BR+zI/GIZVfQDnM1TfWsmXL/H5UC1PXbiCtdG3z51/5
4wbK/Z4EqpGtOvT+3LCktAufUtyGroP+56ehvC5wp9w15pxafWfLJYnxAJp7
6rdHeULwqbvuuss7LsrHkVa6P/PPbxz1aJKkUvkBND6ruD5tV30LGputBOXi
8sdxNZas7+4LL7yQe/nll3P33HNPrn///vmxZXM82Iy99WMhdJ89f/58b4xa
cyTCzN9///33vXgCbUPt+N73vudtW9tavnx54Lqpz12pmIEs2rBhQ+Dar+c7
zetXvHXHjh2L5g3QMb700ktza9asKdiecjmMGDEicF61KC9DQ79Z6vNSPMHJ
J5/s5clU3Ig+W2nMfwIAAAAALvz6amnv66lVql/nn59y5l1EkPqR/Jz0mkOi
2oFxM/MWZHGeqvJDamze71v8y1/+UrF9aexDc0H83KL2otoApebj6xqq/iTz
9U2aNPFyGSjWICz1nQ4fPjwfo2X3h6m/qpxjMkAcnnrqqcB8MNXxVf96kqxY
sSLfPs0F1PUByaExLP/8jBw5Mu7m1Czl62jatKl3nE844YSy1U6uq0tePED3
7t3z7VHuCXxC+Y10b6zc20m4L45C84z9c+vXB8+ySsUD6P7V3+5PfvKTsm23
GN0vaxzYnmuupXnz5rkJEyYUva/YtGmTl6/ejzP2l7POOsvp+qb8bTNnzvTi
d4s9M2h++owZM5hfbtG4v3mczjzzzMC/v/jii14dN9X3UJyGYrPDxGgoFkXP
cHPmzMk9+OCD3v8DAAAAAIrTPKu+ffvmn82WLFkSd5PwP8qD6PdZqA+LmPXK
8udAaRkwYIDTWG4lmDUWX3vttVjbEgfla/Tfv/rdqkVxB7/61a9ys2fPzt19
991enoCG6DqqvBKqGaB+rN27d0fev/q+FHswd+5cLw5EtVyK1TAA0kZz+Mx6
umPHjk3sWLuZM0T9+kgG5Q/2c0soHzR5rSpLYyv+90D3JOX4viYtP4B+v/38
PMrFE/e9X1IoP5Gu15p7u3nz5ribE5nGF/3P2o033hh3c2JXiXoBixYtClwn
9J2qhkOHDnn9Frpf1r23cnSFuUapLpfGm3Wfr9pfUb/zyuGnOeXat7al45DF
57WwzFoLLjnUAAAAAADlpedp5evVs5n6fZS7DfFSf6nmY/nzDMwc5agc5WDw
+ynUtxMnP++mXecyCxYsWJA/D9ddd13czQHQSHv27MmddNJJ+XwXSc+hq9ok
ffr0ybdX8woRL8VK+TWg9VnSmA4q76abbsr/Hqt+TmMlLR5ANUG43yh0zTXX
pD4WQDTmTe6HT5U7P8CuXbtyRx99tLc91bfT3HnApnsqO5/Dww8/HHezAAAA
ACCzVE9Rc638vHnK1Y14qJ69XxtXfd7K2Yrq0ByR7373u/kxINU6jItfH7NU
nvpatW3btnyfkfKPMlcPSDfFs5122mn5mEOzpm+SKdevX0NEtYjr6uriblJm
ac7nhRde6J2LE0880avxg+rxYyWVm2H16tWN2lbS4gFU+9uvZR0mH1BWKN+6
zlXaqb67zq9qLqG88QD6jezUqZO3rQ4dOoTK7Y5sWr9+fUFdBT4vAAAAABCv
vXv35uckazya+mvVpz7vyy+/nD7vGCnPpd9fprEr9RXH4eKLL87169fPiw/J
CvXFN2vWzDv2l112WWJziQMI5+9//3uuffv2+bq+qscRhuaSKU5Rf8ZJY2Jd
unTx2n/66ad77wfVpZgw1YrWOVD+8ueeey7uJmXStdde650D1ZNvTL4MOx5A
ebuVE0g5t/WnufzpT38q3xsoQfHPileaNGlSxfeF6lu5cqV3X7lly5a4m1IV
+o0yv0P29+rss88uSzyAatj59QbbtGnz/9/rN8v4LlBrpk+fHrjuK44EAAAA
ABA/1b07+eSTvWe1Cy64IPfRRx/F3aTMUJ/3yJEjvWPfokUL+rxjpJqQQ4cO
9c7F8ccf79W9RmUpn3jr1q29Y37JJZdkKg4CqEWqRXTmmWd63+l27do51dW9
4447vPVUmzdub7/9tle3xa/fQj7k6ho7dmz+tzjtucvTTLGS/j2qYiWj5l63
4wHqW0aPHl3mdwHUNsU9hP1+RY0HUE6PQYMGeds49dRTc7t37y7zu0Ct6dWr
V+CzN2bMmLibBAAAAAD4H/XhKxZAz2vDhg2LuzmZMXHixHxuBuVXRrwUnzFr
1iwvP67iM/S9QGX84x//8HKTNGnSxOufpEYAkG4aM1ctYf2maX6967z6K6+8
0lvXJYagkg4fPuzdD6lN5513XtzNyQy/9nfXrl29mDHET/ONP/e5z3nxGfv2
7XNen3gAoHKqEQ/g/xYOHDiQ+Dg0SHme/Dpw/rJixYq4mwUAAAAAMGge0O23
3+4tqI6FCxfmbr755thrqSJo48aNXh171clEZSgPyahRo3Jr166NuykAGkn5
t7t16+b1+armieJ9XGnO4VFHHeXdiyTJokWLcj/4wQ/ibkZmLF26NDdlyhRy
VSWMxhxVV+ndd991XlexlQMGDAi1KL85gPBUdyvs92v58uWR9qH8PXPmzCF2
F6GsX7++IBblrbfeirtZAAAAAAAAAICIFDfVo0cPr7/3m9/8ZqS6HwcPHszn
5gcAAEA6TZ8+PRALoDpSAAAAAAAAAIB0Uk793r17e/29qvkedW7/7NmzvW2o
ZgAAAADSqW/fvoF4gHHjxsXdJAAAAAAAAABABB9++GGuf//+Xl9vy5YtcxMm
TAi9jBkzxqtHPHjw4FzPnj1zRxxxhLcd1Y4HAABAOrVt2zYQD7BmzZq4mwQA
AAAAAAAAcKSaAAMHDiyoD9vYZeXKlXG/NQAAAEQ0a9as3Gc+85nckUceSW4A
AAAAAAAAAEihjz/+2JvXX+5YAC27dr0U99sDAABAI7zxxhu5Q4cOxd0MAAAA
AAAAAEAEyvdfiViAz372s7l///vfcb89AAAAAAAAAAAAAAAyqXPnzhWJB+jY
sWPcbw0AAAAAAAAAAAAAgMzav39/bs+ePWVfDh48GPdbAwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAx/wdvIqYa
     "], {{0, 268}, {2052, 0}}, {0, 
     255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{559.1674999999992, Automatic},
   ImageSizeRaw->{2052, 268},
   PlotRange->{{0, 2052}, {0, 268}}]], "Input",ExpressionUUID->
  "7e17b6af-fe7b-43b1-bee6-86947ab8f22e"],
 ", FieldNumber = 1"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 
   3.76807010341292*^9}},ExpressionUUID->"1d0519df-4c37-4fa6-88cf-\
82f165397828"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "1"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"ca4ff77f-fd0b-4b25-ab0a-8c0d41d2c0a4"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831805884463417*^9, 
   3.831839775905321*^9, 3.832947488866228*^9, 3.832961773421065*^9, 
   3.8458268618195314`*^9, 3.8458524562848597`*^9, 3.845857066669042*^9, 
   3.84591961152528*^9, 3.846006565180195*^9, 3.846099875719256*^9, 
   3.8474704369992447`*^9, 3.85170062212965*^9, 3.853975439396626*^9, 
   3.8549773942962537`*^9, 3.854989252907238*^9, 3.8549998895187016`*^9, 
   3.8551652369799027`*^9, 3.8551823067763853`*^9, 3.8551858518549128`*^9, 
   3.8553306267871513`*^9, 3.8553398326492777`*^9, 3.855343169321575*^9, 
   3.855344004256048*^9, 3.855352732037785*^9, 3.855449596787863*^9, 
   3.855507599008176*^9, 3.855508395166189*^9, 3.855512882673317*^9, 
   3.8555330941781816`*^9, 3.85553331429853*^9, 3.855578907836718*^9, 
   3.8555932813161516`*^9, 3.8557505933143363`*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"8dd50338-59cd-4e3d-a100-3122a1ec1597"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"B", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"d", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}},
 CellLabel->
  "In[171]:=",ExpressionUUID->"3032b166-477c-486a-a524-c0c3b4d18c7d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"9993d10e-f0ba-4788-a9d5-a37ea31eb7d2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8318058845321503`*^9, 3.8318397759798546`*^9, 
   3.8329474889130917`*^9, 3.832961773515492*^9, 3.8458268619757433`*^9, 
   3.845852456347886*^9, 3.84585706674055*^9, 3.8459196116033554`*^9, 
   3.846006565258374*^9, 3.846099875781722*^9, 3.8474704371085877`*^9, 
   3.8517006222077923`*^9, 3.8539754394737053`*^9, 3.8549773944055824`*^9, 
   3.854989252984437*^9, 3.854999889596778*^9, 3.8551652371048803`*^9, 
   3.855182306870113*^9, 3.855185851928027*^9, 3.8553306269121566`*^9, 
   3.855339832743007*^9, 3.8553431694309263`*^9, 3.8553440043311634`*^9, 
   3.855352732113001*^9, 3.855449596862872*^9, 3.855507599076079*^9, 
   3.855508395256798*^9, 3.855512882759931*^9, 3.855533094803411*^9, 
   3.855533314372899*^9, 3.8555789078900776`*^9, 3.855593281362983*^9, 
   3.855750593376792*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"b9293641-3e94-4786-9ba8-0ad4e79e536f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[173]:=",ExpressionUUID->"b3ef7075-3cac-4964-81dc-37c75229db4c"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsnQe4VcW5v9OuplyTiLHFil2sF41XEnvvBcWuWKIoFkCsJHbFnmuJvaOi
EmsQxS52hSteECxIJEgxdowak3v/2f+86zxznD171tqrzKyy1/c+zwhyzl4z
e5VZM1/5fT0PHtT3sO9861vfGvr9f/2n70EnbnrssQedvNtP//U//Y4ZesSA
Yw799bbHHHfogEOPXf/g7/7rH+f79re+NXL+b33re//6e0MQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQhG4++OCDxvXXX9+4++67G//85z+LHo4gCIIg
CIIgCIIgCIIgCIIgCIIgCILQQYwePbrx/e9/v/Gtb30raEcddVTRQxIEQRAE
QRAEQRAEQRAEQRAEQRAEQRA6hE8//bSxwAILdPukVfv888+LHpogCIIgCIIg
CIIgCIIgCIIgCIIgCILQAfzxj39s8UkvvPDCjX/84x9FD00QBEEQBEEQBEEQ
BEEQBEEQBEEQBEHoAN56660mDW/addddV/SwBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQhA5i7NixjV/+8peNzTffvPHAAw8UPRxBEARBEARBEARBEARBEARBEARB
ECrIK6+80jjssMMaBx98cGP69OlFD0cQBEGoOM8991zjkEMOaRx66KGNWbNm
ee3rjTfeaBx99NGN/v37N8aPH++1L6HanHDCCY3999+/8fTTTzf++c9/Jv78
pEmTGkOGDGnssMMOHkYnCIIgCEKRHHfccY0DDjigMW7cuFTrhNdeey1YJ+y0
004eRicIgiAI5eOrr75qjBkzpjFw4MDGhhtu2Fh77bUbq622WmO99dZrbL/9
9o2LL764MXXq1KKHmQuffvppY/jw4Y299967ccstt3jt6+uvv25cddVVQV/n
nntuqnWLIAhCkYwaNarxve99r1ujeckll2x8/PHHRQ9LEARBqCg33XRT4zvf
+U73e2X55ZdvfPHFF176euqppxo/+MEPuvvq0aOHxFcJoay++upN98p2223X
OPPMMxuPPfZYED/BPvLvf/974/PPP2+8//77jWeeeaZx0UUXNfbYY49Gz549
uz/L5wRBEARB6Cx69erVtE7YdtttG2eddVbj8ccfb7z3XvQ6Ydlll+3+rMSv
CYIgCJ3O66+/HrzvlD3m3/7t3xp9+vRp7Lnnno1+/foFe2/dLsR78uSTTw78
2J0IvhR9HUG7+eabvfT1j3/8o7Hllls29TVs2DAvfQmCIPiAeWzxxRdvmsdo
L774YtFDEwRBECoI/ucFF1yw5b3CnsUHup9Rtdtuu81LX0L1IW7bvF+StjXW
WKMxb968or+KIAiCIAiOWXXVVTOvE9Zcc01ZJwiCIAgdzWWXXdb4/ve/35hv
vvkagwcPDuK3vvzyy5bfI4YLH7X+nlxllVUaL7/8cgGj9stvf/vbljUBGiw+
GDFihHX9IQiCUBXmzJnbMo/9+7//exAHLAiCIAhJefvtt1veKz/72c+se5Ss
/N///V/j29/+dlNfxOMyhrKBxtLf/va3VE1wR1a/9NZbb92YO3du0V9DEARB
EAQPZPVLb7PNNoENXhDKRtp9iOxFBEHQQSt6t912C955W221VWzbywUXXND0
vvzud7/buPzyyz2PNl922WWXlnWBr+84dOjQlr4GDBjgpS9BEAQf/L//9/8a
v/rVr5reC740JgRBEITOB23D3r17d79XqBPxhz/8wVt/e+21V9NanLo6ZYSY
r7Q2Tqmt4Y60fukf/vCHjSuvvLLo4QuCIAiC4JG0fmnWedR4FIQyQixvlngL
Pi8IggDXX399MC/gg8WnEBfmEfMdi+73//zP/3gcbb7gT9G/3+abb+4ttuf5
559vqmdHDrrExQmCUDX++te/Nk4//fTGSSed1FHvA0EQBKEY0Nw45ZRTgvo2
U6dO9doX9SjOP//8xnHHHVfqGhTily4HSf3SSyyxROPEE09s/OlPfyp66IIg
CIIgeCapX5p1AnaUd999t+ihC0Io4pcWBMEFaOCpmm3o1G288caNadOmxf48
8Vvm/LLeeut5HHH+3HPPPY0hQ4YEteWwVflk3LhxgR3siiuuCOrpCYIgCIIg
CIIg6IhfuhwovzT1rKiJdfjhhwc6ZBtttFFQq5xc/759+zZOPfXUxqOPPpoo
BlwQBEEQhGqj/NKvvPJK49JLLw00MdU6YY011mhaJzz22GOyThAqgfilBUFw
wZgxY1rmh0UWWSS2T3TixInWOWb69OmeRy4IgiAIQlmhRsgzzzzTGDRoUGPD
DTds9OnTp7HHHns07r//fu8xXoIgCJ2O7pd+4oknGnPmzGnMnj0n+NPW9J8x
PwtuUH7pefPmFT0UQRAEQRBKhvJLoyknCJ2EbY8Rtv8YP368+KUFQWjhoosu
svqV77777lif//DDD62fHzVqlOeRC4IgCIJQRmbPnt3Yaqutuut79OrVq7HU
Ukt1rxFWXnll0SYTBEHIgO6XlpoZxSF+aUEQBEEQwhC/tCA0Gn/+85/FLy0I
QgvXXXed1a/84IMPxvr8Bx98kMmvLQiCIAhC50A+dI8ePRo/+MEPghoY+KgB
TbLdd9+9qXYWsW2CIAhCcsQvXQ7ELy0IgiAIQhjilxYE8UsLgmCH+mI/+clP
muaHpZdeuvH111/H+vzbb79t9Us//fTTnkcuCIIgCEKZeP7554P86AUXXLDx
4osvtvycf9PXCmeddVYBoxQEQag+4pcuB+KXFgRBEAQhDPFLC4L4pQVBCGfS
pEmN3XbbrbH66qs39t9//8af/vSn2J+94447WnzSP/vZz6R2pCAIleGll16K
1d56662ihyoIpeX9999v/PznPw/WAKwrbLzxxhtN64XlllsuUR9otKjnER93
1PNK3J0gCEKnUgW/NJoYnT4Xi1+68+Ba/uUvfyl6GIIgCB3P3LlzG59//nnR
w/BK0X7pL7/8sjFr1qxC+hYEhfilBSE55AIL0aDRafqljz766FTHkvMtCEIR
2DQfbG277bYreqil5X//938DnWahnrCv2HjjjYPn5N577w39PTNf+kc/+lGi
fm644YbYz+sf/vCHrF9LEIQC4b3yz3/+M5e+/v73v+fSj0t0v/Rrr5XPL33f
ffc1fvzjHwexz52M+KXdw7NfJAcddFCwPrntttsKHYcgCEInc9NNNzW+//3v
N4444oiih+KVov3SJ510UqBndvnllxfSvyCA+KUFIT5fffVVo3///sGz8thj
jxU9nNKC1vfiiy/eYgueOHFi4mNxnvks553zXyTYwPLK9xZfjiAUj/il00Hs
7TnnnNNYZZVVgvPz7W9/u9GnT5/Gddddl5svQSgH2BW4B/bdd9/I37v22mub
nqlFFlkkUT/ilxaEzgbf3umnn95Yfvnlg+f4O9/5TmOjjTZq3HLLLU77Ye19
8803N7bddtvG/PPPH/T1gx/8oNGvX7/G2LFjnfbli7LmS2NnOvHEE4M1wUIL
LVSqsflA/NLuePfddxvrrrtucD532GGHVDZ87BM33nhj4/e//33qa4I+Evov
jAN/iejACYIguINYwMMOOyyYY5daaqlEep1VpGi/9OzZsxsrrrhiMIa99tor
sOEIQt6IX1oQ4jF9+vTGWmutFTwnu+66a+HxumXm+uuvb7EDn3rqqamOxXnu
27dvcIw111yz8c477zgebXuwQ+24445BLBnjWGyxxYJ8cOZPl0ydOrUxaNCg
oI63Om/YNM4777zGRx995LQvQRDao89hPXr0aCy88MKBFjFN//vee+9d9FBL
w8yZMxv/8R//0T1/oZOx9tprd59HzpXY8eoB7298SOQWodkaBbVCssR6jBw5
svt5tD2j3/ve98QvLQg58cknnzRmzJgR6PNPmTI1s+4ta/9evXoFzy/vk2OO
Oabb50c75JBDnNgw8H1tuOGG3bWHDjzwwMD3xFyi+iK3pOyUMV+amDQV202u
9IQJE4oekndsfmls7qNHj278+te/bmy99daNX/3qV8E9d8ABBzSuuuqqQva5
VYA1gb5GuP/++xMfg/OtPr/++uunHgu+6UUXXTQ4zu677y7204qAHjA2neHD
hzdOPvnkxrHHHhv8eckllzSef/75xt/+9reih1grWCNw/rFzCQKwb8TmquKT
61AnzeaXJobqj3/8Y7C2zWOdgG9axXxuttlmMhcKuSN+aUFoD3O/yv/dZptt
Kqnplhe8U1dYYYWmeWXnnXfOlCPHGmWXXXYJjkWMMjECecCYf/vb3wb9YuNh
LUBT34t7wkWsP/1cdNFF3XkZm2++eeDLYV2g+uKc5vW9BUHoQp/HOj1e1wXU
XCBuhxie22+/vXvep4Yk+VHqXF588cUFj1TIA/y/XO/Bgwe3/d0ll1yy6Xm7
4IILnI5FxUqIX1oQ/DBt2juNM888s9t/bDbeDeyhyJe98847Y69pqUlPbi05
y+g/K957772m46PHkYUxY8YE/lL64R31xRdfdP/shRdeaHqHXXbZZZn68k0Z
86WPOuqoYDzoco4bN67o4eSC7pcmVoNzwD3Gv7FOWm655YKYa/5U14v7jPj3
NBpjnYr5rNNefvnlRMd4+umnW2JNs6DmJY5FXJ1oAZUT7FLnnntuY5111ml8
97vfjdTS4ZlE2wmNdsk/8QvzIWsCde6ffPLJoockFAxaNeTrcj/85Cc/abz2
2mtFDykXdL809pIjjzyy7ToBvSDytlyeI+Iy1V58++23lxwCIVfELy0I0cyc
+V5j2WWXDZ4PYpWK1pIuM8R2mfHMxHgRn+ri2FtuuWVwzGWWWSbIyfMNuqP0
x3uf9bNCrZloK6+8cqa9KPcTfmiOtdVWWzVeffXVpp+jUaj64j6s0j6J9wl2
AzQWsVUS84ethThI/iRX4L/+678aTzzxROrn6tlnnw2OK2un/Pjss88ajzzy
SBCvSd4QzwmxJ1xXdC6HDh0aaGBmsYViQ0B3oWjEL50MYmnYQ5ELZKL2WLSe
PXsWMDohb5gDyI9///33I3+P2D/TPvjKK684HYv4pQXBD9gSWc9F2fvDGvGd
Z5xxRrCuCDv2euutF/iKH3/88Zaf677iNdZYI/V3ePPNNxsLLLBAYAtlXWlD
r0/EerzMNpOy+aXJiVPjufrqq4seTm4ov/Stt97anXOPBvWIESMan376adPv
vv766026Iaylfve73xU08nLBPlKfN5gPkuYIEO+tH4P1albIvcU/wPEOP/zw
zMcT3IHdiPhGdC/UNUePjv3q8ccfH9RSRc+dmkN77rlnk1ad+l1+LvEGfhg4
cGDT+abmj1BfeM70deS9995b9JByQ/mlWSeoWCdsavy/bZ2w3377dZ+n+eab
r3HppZc6Gwt7b47JsUULRMgT8UsLQjjozuF3VHH+c+dG21brCvFdDzzwQHct
UdoPf/jDYD3vEuxWSmNkpZVWamvrzsKoUaO638mmL5hcD33efPjhh1P3o9YW
aAXa5l/8tnpfaJWWFdaU+NXJ/SbOTvdDtWs//elPg/jAJPYzfN7Y3lg/SbyI
P8gZ4h5nH09tt3bx5nojb4p7mPjPuCiNAuwERZPFL7366qsH50o1dIT1/0/a
2n2en2OrwwZD3+zvsOXlpQnJ/onzhC6eCfYhVQdBtaLqKOXNWWedlcv11xva
G/hXiOEiBog5+aWXXipt/I5Z+4N3h+v9SN5+6VmzZjfNAXlcf54xNNOJqSfO
jXcqugWmXUMQXMFzqmI4l1hiicD/yLuA3OXf/OY33XVY27WDDjrIevwrr7wy
+Plpp53W8jNyUPVj4KNOA+8i7IK8P6O0pYmn0vsbP358qv7ygHlAjbNoHW/i
DNVY6lbzRNea57121113tf2MucdER77uMD/o54R47qSoWmyqsddwAXOTOmYV
NP7rwOzZc4J4Jq4JaydsOY8++mikj5mfEWegcgVU23bbbaWWmmOwFal4DtV4
Twj1BduBuheo01InlF+axt4dG3Q7sMnpzw9aLK7Afq+Oe/DBBzs7rpAO5sYt
ttgieDfFacTcxf1dV58nD/Gpp57K9D3FLy0IdvCBopmhbB2iL9PF5MmTg9rK
6FkTy9W7d+8mPxX6bPhYfdUDQdeMPugLm68P3wa2Lmxp1DWxHX/AgAFN8+b5
55+fqh9idZVPOmyvRE6q3hf5qGWDmHX8CiqGI6xhs+R+IQec9yv6AyouUG/Y
09vFHHB/qRjoDTbYIKdvWi/QimCfoOfd2Bo5RL/85S+Da8paBv+PirVUDT/Z
2Wef3TbunJhP9Zkrrrgip28aTha/tL7PKLpxjdjD+IrlYZ5kvlxwwQWbtCUU
2IP08bDvqksOArmARV9/1fC7kCvy4osvFn1amtBjv2nENbkmb7/0PffcU/j1
Vg1/Ne9VtEmEavDll18GebvkS7LmJI+SdTc5eWhMYz+nHlzRqPltt912s+Yv
EgtDPKUet2prm2yySctn8QXwriAuWNfUVpjPGGvMNOAr5fNR9SV4X+m+Xhq6
wGWlLPnSnCPlfyCe2IV+VpVQfmn+TBIjiC1Yv9fI6awzZkwI8X5JMGvJ0NB9
cgGaDqpuNX0wNwvFga6t0qLF5pCmBhrxUKyX1b2y1FJLtejZCengXYrNwFwD
1M0XKXzD3Xff3X0f/OIXv6hdvUxlL8KunWS+6t+/f9Mz5DK2Y5999uk+LrGm
QjGgD1u0DSFuy5pPJH5pgTzD5557LshpM20f5Niwvp41a1bRwwz429/+FthT
33jjDe996fMxdhehC/bGUXMSOng77bRT45prrvG2rrjhhhu6+8On6xoVsxfm
FzPrZ1OHKCnk+mIrJv/bZm9TnH766U19oZNeFvDfo5EVlg+DZt0ee+wR3AtR
9hj8fTfeeGN3HAiNYzIv2cAWSx6g+l1ycgR3TJ06NXiuzPxW1dDK5JxTbzEs
LoRnn1wicqfwVarP4m+y+S2BepN6/PSUKVN8fs1Y6N87qV+aXGV8Cti6eU44
F8SV6PkzYQ1bPO9h5luOoY6j/m7+G3sRjs/51et1mQ07CzG1rusgoL8WtSca
NGhQ0zhsPohOhTxlda0uvPDCwJ6KzXnDDTcMfcb0Rj3WYcOGBeuxsOuv/uQ+
o2YCfl72uWY+gt6IISlLvJ1ZW5rv6pq8/dL4FcmNU9eKnCry3ojnU7F1toZd
m/cm607btQ67/pwz5mWOv+iii0Zed+rAC+WE+YK9PTlecewAvI+JjSzCR419
mbUY67V26300M5jHwuY8W3wnNZz5WZj2kplDyb2fFDQL+SzzMf6lMKZOfaNl
zJMmTU7cX16UwS/NHkGt1YlNLIOeeN5Qf4o86aTrR/TaOGf6e+G///u/PY2y
3Ji2SlqY1n4YaMLqn2d+dRnX/sEHH3TvdViDf/jhh86OLcSH66DWk6yzsRum
Bfun/r5iXTVjxgyHo60n1PmyrQHKmHch+GfOnLndOSpoJ1LjuG6Qb5rmu8+d
O7dpjiJPjPwtF2CbJh6H47KGqeN1KQO8w9DQ2WWXXYK8Atqmm24axOG22x+y
biQmGM0P9VnV8NWY/6Yaeyli2bHVYTvR16JRDZ3GLIhfur6wFydGPI5dlIYt
/bzzzmu8914xPmrsE6o2E429XpQ/Lwv4R3QbXpStoo5ga8C3pNp7773XGDdu
XGBL1W1paEn6sv+iyaT6iaN3EhdsZ/iEGLutljN5uuazkSZOgrken8EzzzwT
+Xu8G/S+iBspGvbbaJWxhrK9A7k2+CTT5EM+9NBD3e9a7iV82jroGGCH1fsk
F1PIDrESrFNs8z+5sPi80tRYxvZDfIXSVSDvwXxmqBupv4uY68uAfg5c1pfW
88Jtjfk0C/go0FENy1Ejn511rqt69bwnefZtvhHy5fR3N61O9SWjIP8iSuc2
q34nz95jjz0WPNdmrpBqvItcxykkYdq01trSUVq6aSlTfWlibsKuOevsrLCX
4zuGPf+8u8eMGePgmwiuwN7NPKpfJ96Z5JhSP4O8L97DYfcN68nDDjssV71R
NNvom7ijuLCGZu+pz0fYW2zrRfJmWBfYYtnY/xEHq58DNOuTQqwnn21Xz553
lvkMlXlvWAa/NLF1agysN+oI++O0cUDEp+j33Prrr18bnRkds7Y0dcKy1pYm
X9M1SgONliZGRsgG87F6hx5yyCFOjmnee9hCsUMI6eDcha1jRPuunuAzU/eA
j5jkKsA6Ydq0aak+SzyHr3ebqmmpjit+wnKBrSQqzt2VrQNb4aRJk4KYIrVn
sjVsvVmYMUP80nUD+yM+XdOekcT2QTxEnrGgem0qvfnQtcKurmJesYdIXkky
iKdi72yuNV36dID7WGnqcb1c2dWZwzlmWN0p/LH6d6NeVVLQteOz6B5GwR5L
zzUtgz/nwQcftM4P2Bj79u0bvLeyQp4AsWBqvsFXDcSMoQGu94vv2ld8Sl3A
vnPcccdZ/VbYf0455RQn2ov4npX2OpoDytaMb860L7d7NvJCH5PLOQzbok3D
Xt3TrvzF9PPAAw8Emvm2vnieiLfNAvcP906fPn2sP1dzqmrkbBPbJHSB7zls
vUWMnCuIBcFWZ4tF5LksKr6H+Ik8/D1l8ktTD8V2vbk2LmtB8240Y9tUw+cp
MV3lAH8q8ZBqzYNtnRourIVM3nzzzUDfitoMtuvao0ePwHaQB6wN6DNNXTu+
Bzb/MM0G1gccm5h9G2js6N+btXLS3DjefXyW892Ovfbaq6k/cgrKTNF+aV2X
kzzDuul3u8D0idHKrB3vCxe1pdFH1Y/hQ2cLG6pew7oMtYjqBNdU7WuIh3UF
Nar0e4fYeyEdaHWH7XfQDxTqBXr56vrjh3D53NYFm/5AUj2RKHjfquNm9TsK
7gnz2aFB6gtqZTBfm32inZgFyZeuF9g4VY4jdmR8P7wTbDUniWm/5JJLQnUC
sAFQU9Y32GXCYkF23XVXp31hw8cGoo5PHWUhOdh6zPuG+ct1bVNdU5ycLxe2
bGIuOB5zrgm+ItMWSB5/UlQOATnFUaDZZt7zvup2twO9/4EDB1qfQ3RmX33V
jW6MAvsiuTIcH3stPhWed7NvYiCE9JC3t/baa7ecV3yjPAtz5sxx2h85SWo+
px4bcT82zdk0z5UP9DG5jq1Zb731rM8TflsfoJNq03VGczBrfjZ6xfjabKi6
e6ox/wnfgA5zmJ3mj3/8o/P+0EWw+bS4N9COzjsfS6+ZQvOVZ1Qmv3SYXgLx
I64hZ37FFVcMXce7nteEZKBRrc/FxG/FAZ14M05Sb2GxlS5RNmYfeU7MQ9TI
CVvzmvUpjzzyyMR9sGfA9xdHn9Csj0FsQJkp0i/NHlCPuyP2SEgOelrmc42P
tm5krS1NHoUZd/vwww97GSv1p/S1PPr/gn+oN6g0uahl41Jz5/XXX2/ZO2Xd
M9UR8hbUNbI14uCF+oD9h2vuc79bB1Suk95c6UUAtf1UPDvPLzX8hHJAjcyi
9oCsq8x90RNPPJHpmOKXrg/E3qvrjB8gbp4E/igVg2hrvrW5RowYEdr30KFD
nfal2wrJH3KZt1I38D+Z9fGwC7uMmSdPT7e3Dh8+PPMxef+OHDnS+jPyDvXv
Q72Fjz/+OHEfrM3JJWiH6a9A77UIyGelVqn5/LE+QdvZF+wz1TtPt7HpDbus
kA7s4dhNzHNKDIlPO+att97a3ZeZJ62ai7x7F+hjcu2/+c///E/rd/fll4bR
o0dbnyXmapf1EBToWJj2nDrm+0SBfyNsjeNrn87cij6OrU80dvP0TZsxbLz3
fFAmvzS6xbZz7yOHC4idD7vH9t13Xy99Cu0hz0H5S4iJteVHt4P44DBb7+GH
H+5h1N8wePDg7r5cxyZGQZyi+V191t619WeLXS0TRfql9fmNuMcy652XGbQ9
zfuO3Jg64aK2tJ67r9a7PjV7dF1a8j8E/5x22mkt9wk58q7qWphabayf66ip
n4UNN9wwdB2qmmhp1Qc9thAdVyEdtncktlOXHHjggd3HppairOnKwbXXXhs6
l2b1EcfBzNXPqjEsful6QMy5sg2jRzN3bvK8VXLzw2wfWeucR3HfffdZ+8Qn
yJ7NFfgcdB8NPhshGxtvvHHLdaNelkt0Hxd5mMxpvjD1MF1/l3b9kVeWN/id
qUVrs42E6S+6hHknag/jK+a9k/nggw9C64Owb8yjRoNZS0Jv5NmUZb+vjyuv
fGnfMePkyC+zzDLWd6pL7ScwbUXotwvNFOGXBmIOzbpUqqHrnwfsYcy+iYPy
QVn80sxtaC3bzju1wH31adOloLGunz5dcqbzhjw65lyuAfa5LLUbbDZ51Xzm
qpK3qPrp37+/t35Mjj322KbviO/TJ3pcN43ntyxrlDCK8ku/9NJLTeeKPbyQ
Dmy/trobWWuvVAkXtaWpM6AfAy0un7A3zuO9LnTBu5O4fZ9rWV3XRLU4+QVC
F9Qq4ZwRh4e+Ydh6hfoedYLcljTxiFWHGHn9uksObnrw3dn8My7vKzQj9GPj
VxKKx9Sb0+152Hh8Q/6mnnuStJaSifilvwGb89dff130MJyD3U/pppKflcX2
odsgzMa+3Qdck9VWW61lX+LaH6XXLyJ/x1V9zzqDT9O8T4hTJlfLFVynJZdc
svv4Bx98sLNj61B33HzvP/LII176AuwRSnNfNeKi8iSsDhDa2S5jQqLgnUTN
mTB7utSsSwZa+r169bKeT+Ihk9p70oKWcNi7hFybsqCPK6986Ty0zMhH1/Wz
dHu7q1oBzGFLL7100/GpvSA0U5RfGqjlZerhqpZHbN4111zT1Ce60r7isMvi
lybP0na+8T+gzewL/IZ5r98FO9zj6rljnTdjxoxMx2OdxLrMdm2JtyXf1wdj
x45tsoPksS5kjYKelf4dfdf9IAa1rGuUMIryS1PXR/VL/Fud7Uou+NGPftTy
TOeRB1MWXNSWJr9LP8YJJ5zgYaTNrLPOOt39EYMq+OP+++8PXdvstddeTvqw
aRdU4T1QBrDTqNpB5DFdfPHFodfrqaeeKnq4uYE+I/M7a/+66Yjp8yN/F7Jh
q3fq+lnSdUDIMRA/SfGE1dpF3yMvevfuHfS58MILZz6W+KW7IJ6uE+dG4rmV
9syPf/zjzHZ1bCnUEQuzfUye/LqjkTeDDg/5AKwBhw0b9q/7dqbT46PPr2tO
n3322U6PX1fIy7PdK1xLl1x00UXdx8ZX6aMGM/eE/h3wt/jUMbHVls6qj5GE
MJ8065K8fJeKMJ0S3zHvnQaxk2E+aWoP501YzHSZ6jbq4+oEHW8dFb9utuWW
W85JnO1DDz3UdFzmZpcxSZ1CkX5poIa8LZeWNRG1K3yCZrje58477+ytr7L4
pS+55BLrtfZRW1oH313YfSY13/Plrrvu6j73ruonkJMXdn3RR/EBmpt6rDzr
Q9/o546Wtp5OEsz5kWe47BThl37xxRcLX1eWAeKL2EPhb8DvQL3btPY1bDdF
rAvKwrLLLtv03ZPWlsZ+lFdtaZ077rijqU/fa6k6w/MV9u7DB+qKn/zkJ03H
xhcksfHtoeYi54u4U/TYwvaetLA6ep3Ieeed1/29eV/UBbMmIlrAdeSLL74I
tDzQpGS9hp057TrBFr/24IMPOh0v8XD68X1qMQntsenNqXbqqafmNg7sB/Tp
wocqfuku9HiDPH0/vrn33nudv+uJ6Qp7DqpaH0LPI8HGgc6t4AZbLdOlllrK
aR/sC/T9gqv4WAXxHT179mz6Dq596ya6r53GHJUXYT5p8nt85nOFgWadaVeg
HX/88bmPpapE+aTZ0xdBmD8uzzqV7dDH1Un50ordd9/dOgb+PSt9+/ZtOuYO
O+zgYMSdR9F+abjnnnus/ZM/76o+nw1Te9FnTEpZ/NJ515ZWYEMIu8+obSzk
h6px4zqPTsWtm431ky99TDS09b5uuOEGL/0ozBogxLb4hJwm83zmXa85DUX4
pYkrUn0SX+c7XqCsmDrztMsvvzzVsRZYYIGWY9WlfhE6EuZ3T1prRreD0Yi3
++tf/+ppxN+APZX8IdWv77izOhMW60c8kcs5iFh4sw98rEI4vD9VLYIrr7wy
+DdT515vLuMIys5vf/vb7u+NLkRd6NOnT/f3RvumE7Vq4zBkyJCW+/+KK65I
dSyb/p0PTc+VV165+/j8vez1bDqZqNrSedTZVKCBQZ+77rpr5mOJX7oL3adF
nmKngN4R3wlbhUvC7Ok0cmSrBLnXeq605I10aaeffPLJjVVXXTXwZRGfnHZu
WGyxxaz3iWv9j4EDB3Yfm7w8lz4kMw+F/JCsuovtwIej97nvvvt67U8xaNAg
6/VCs6VIG5OtFq/rWMBOJconvd9++xU2runTp7eMB01TnzoESdHH1ol+ae4N
W+wQLYtWJHrxZl1EyRexUwa/NJjvHNUGDBjgpT90Tcy+Jk58zUtfUAa/dBG1
pRVR+dLbb7+9176Fb9Dv+0MOOSSYF11p/Jx++umh15g1sg9+97vfNfXDftqX
nve7776bu/0FW7reH3bUKtji9Pf6a6/590tTo16PH62Tnd3EjGOmpYnbZ5+s
2yeqamdJC3l05to4qV6XGWeNTyQvDj/88Ka+0RMQ3EMdTXOPi270q6++6rQf
7DDmsyg2w2g222yz4Dxhh1Z7e+qKhK1TXNUDrwJ19Eu/9NJLTdf7xBNPLHpI
hWHWOaNRByUp1OOyrRN81O8hD1fvgxoKQjGE1ZZGxyNrneckKP+LC80H8Ut3
ofulJ0zoDL+0bvOnbii2D1fx8sOHDw9dUxx22GFO+sgL3on6+Hln1h3bXHf0
0UenOpapwaXaZ5995nTM48aNczJeG3vssUfTsbfeemtnx7bB2t3Ui7r++uu9
9gm22D0a8fqvv16sHcQcG/Yv1/dQJ0Ku42qrrWa9rvhp8ly72DD1MXfcccdC
x2Oij60T/dJw8MEHW8fBfZM2fgj9Tv1YiyyyiPVYkydPDuy1naRTk5Sy+KWJ
rbaNgTgsH/GaV199dVM/+Gt9+nvK4JcOqy2NjptvLZJDDz009D7z5bMUWgnL
W2ddmTX2j1zCsGtMfQYffPLJJ0FubFbbWhx0Oy6N/YVtznjllVeC8+mi5pO5
/kcHpArknS89ePDgpvM0ZswY732WlSWXXLLl+eM+SootdhNd7zLFbvoE25X+
3dPUll5rrbWajkHMvQl7SeYs17Fh1PfU+3ahQyTYIQeeNSW6MzfeeKOXHEwz
zoAmtcPDUTU3sNe88MIL3f/O8xa2TskrB6MM1NEvbdqXx48fX/SQCkPVXNdb
Gv2fadOmtRyHHA8f+2mzPueGG27ovA8hHmG1pdHjyhPll0bnNSvil+6iE/Ol
zThT1bABZ9VlNOOd9Eb8T1XADqjnrlRp7L5Aw9wWd0X8TRq7qanTSeP4xHe5
hH263he1NrCXZYVaONiM9fHfeeed1t9Fy8JF3bkJEya0nDNqoPvErIWlN7RC
iub3v/9905hca0B0KjvttJP1mmLbwuZVNGjD6+Nysa5xiT62TqsvrcBeEPbs
p53PVlxxxabjYLO2QS4uP69zPFhZ/NLsYcPiyMgxcr3Hpd6G3ocLDagoyuCX
Lqq2NKB/E3afScx7fqg5z9ay2nhYV9vqzKnmS/PG9B/RXNeewz5h2mFOOeUU
6+8q26eLvFJiqvQ+0+ox502e+dLcd9hBVX/0XVdtTthggw2a7hnqgz333HOJ
j/Poo4+2PFe+asWXEXM9csQRRyT6PPOdWQPKpm161VVXBT9TOsOuwC6ha8Zh
S5B6xNXFVuMM+7HQCrVzqdnHOWJ9YGLGsqlGfnVdqJtfGpusrqPGeq4K2jO+
MO1frBP0+I24jB07tuU58pnjYea64EsU8mXatHdC93noZuUJul/0O2rUqMzH
Er90F52YL33UUUeF3rNZdYy4T/BrhB0fbdAqMGLEiKZxc87qDnmxYdcVbdYk
kItJrpV5HGr0+MDcM9x0002Zj0mtG/2Y2F5sOaYqD4pa5Vm58MILm/p0XY/b
ZObMmU02Jb1tsskmpVg3Uk9NHxf500I011xzTeizXBbb6v777980LvKcyoQ+
tk7Nl4awnPoFF1wwcU79M88803Ic8qJNsNmRL7/MMsuUYo4pirL4pYFa82Fj
ce27NGt8uIjpiqIMfml877Zz67u2tK1Op2piK88XpWsZ1rK+A9dZZ53QY/uo
NweM2fYeY13sCvJv9ePjb7K9k9H5ZX/KOy0rZm5I2LusjOSZL236T3fbbTev
/ZWdoUOHBudh/fXXD2pNT5w4MdVxzjnnnJb7ry556LZ3FjXFkoCdVP88PhH8
ZSZKE8FHXsqRRx7ZNAYXtluhGIiLsL1X58yZU/TQSsdJJ53UbTOz2YTRb7Gd
S+In60Ld/NK33XZb07VOGmfUaSgdSHwy/D3tepn3ovkcYTP1hVkvqCz2xDoR
prtFQ6clT7bddtugXxd1SsQv3UUn5ktvtdVWkbaPNDE5OlE1pqtS9xU9Nn3c
vuv7VQHypW3XdPXVV098rDDNSl/1RIhH1/vZZZddMh/T9NeE6V2St+Hq3qfW
o94nvjtf4BvC92y7TsSzog9TBsx7SWrVRkO9yrB4ZHLNy/KuP+GEE7rHhS25
LONS6OetU/OlwYyF0RtaCkmghoL+eb6njVtvvTX4OfaLOmPWZ9Vb3n5p6sKG
jcXF+1Rhqy83adIkZ8e3UbRfmtgLatPazq3vtaf5TOpt0KBBXvsWmjFzKc2W
NWdvo402Cj22i1jNMNZdd92W/rA9u8rRNnOyw+r1qnrQ1JvKyhVXXNHU58IL
L1yZGKo8/dJmHDwx33VGaV5lzW1ec801m84rNXSrcv9lxab5x1opLuTwmxoh
rAFM2AOjm4fGj49ze9999zWNoU46xZ2Gygsz2/PPP1/00EoF9gelM3jZZZdZ
f8fMFVUNP3ZdqJtf2qyJQp5vnVHxnDvssEOm42Cf189rGnt9Epjv9P622GIL
r/0JrbCOsM2faNvmrVW0xhprBH3Pnj0787HEL92FnivYKX7pMF+TamFrhbhE
xfyXQfe3HTy3+r6d2ATX2tJVRc0xqmFLTaOzevbZZ7fcG6xVZ82a5WHUXXn8
+jUlX+Orr75KfbypU6e2jP/VV19t+T30zcn7w2aVth6rwqZFQK0kX1xwwQWh
z7ELu54r9LwVcvBdaLR3KtyDaBLYrik5RmXSTCZPUI2tjPqE+rnr5Hxp4hzD
5gFiIZNAnb528wj36AorrBDUrnexlq0yZcqXBvLXbWMh14i6Fi5Qupn6GsO3
vb1ovzS+Idt59V1bmmsWFqOEHoIvbWfBDjaoqL3ZLbfckun41FUOOzYaKr4w
/S+qESPtoh4uWvf6cW05Gmh7oA250EILZa5XBdSD1fusUn1YXc/dt443NbD0
80R8c91Bk59zEVb3qR2m7gz1r7LmE1QJW20A4ljjwFrC5kO01fh+4okngp8l
8Xkngfev+c7NaicQisHMGVDt8ccfL3popUKtQajtHuZXQFMjbJ2SVKOrqtTJ
L610bNT3xX/Gv9UdFaeaVkdj3LhxLesE3zY+rhvXT7cNUDNeyI8ll1zSOndu
uummmY6Lbh1rzySw1+C+c7HPE790F52o4x2mF6ja9ddfn+n4YeszGrVgy85D
Dz3UNOa6647pKO1qfK233357Ko3HsFqVaG37hBwKV3Z9cnL1Y4XVHz/vvPOC
n59//vmp+1K8/PLLLefMtT9MQQ6yWTtbNex6Nr2zotBt+ux1hHD0vY7ZqIFe
JtBOUGNz8fy4xudzWCa/NPE73/3ud63j4d+T6NSZfulnn3225XdUjrAvW2CV
KJtfOspelDWeUbHnnnvmvv4q2i996aWXWs+p79rSpm9Nb2gWCPliahnqjbjK
rP5U5Q+ztRtuuMHRt7ATpiEeVgc6CaZf2qZ5qPQFs+5vFWZtafKnq0Je+dJo
VOvnaPnll/fWV5UglhbbLTa7pNrvrMfM+PCkGtZVx2Y/WHnllWN9VumD4APW
P4+mugl+Adbcn376qeuv0M0qq6zSNA584UL+YJd69913Az/y6NGjg0asx1//
+tdYn19ppZWs7zfsiUIX9957b+TeTxFVa9KXzats1MkvTQ0Z/RpT40JoBGsD
7LCs1yZPfj3RZ1knmJqe1P7IAzP3ceTIkbn0KzQCHdOwufOMM85IfVzycjlG
Ut82mq6ufDvil+6iE3W8idENu2/ZJ2WNZ+a+DTu+z5h8VwwYMKBpzOSNCl3o
+lfkPKfBdv9hF/atL2HWxyRmOi2mX3qfffZp+R10T/HhsjZwkW9v5i+Tu+YD
9mf4d8Oe4dNOO81Lv2kh/k+NzXdsQ5Uhnz/Mv0ie+fTp04seYhN6Tfgy5XEr
fO6Vy+SXBlMLSm/ofMfF9L+Z9VKxW3AvRsXS14my+aVtOieqodWbFd49pr+H
/GnfFO2XRgfddk591pZGuyjsWrrwFQrpsOlNoWWSVcMb1l577dBr7rPmHFDH
xtYv3y1r32YNPWoB6BBjQT/og7rQXnj99ddbvge+xqqQl18aO5h+jvbaay9v
fcWBOGo0ud5///3C87GoAcg9SQ4/NbjjgK158803bzqnvmpf6ZDrgg4Ve1o0
NIpcm9lqS6sWVVeGc3fooYcGv4e2KLErnH/12f3226/p95mT+Hc+4xM1JtXw
mwv5wJw9ePDgxnrrrdc0J5rvJ36O3SrsvifHnbxA2+fjPtudDs+f0lsynzUT
/Gdhz3hddNHr5JemBqJ+jYu247FOeO+9cqwT8JlwTlgnxNVeQGPL9MPkWRPN
zH+xaZEIfoiqLZ0011mH3CCOcfzxxzscbTLEL91FJ/qlwVZjmvWXi5wXWy0x
1YhBTAv34F/+8pcgP8uXDxObBfO/Puann37aS19VhXicn//858G52WmnnRLl
cFAzZP755286v8Q5M9/45qmnnmrqF/t3Wm0J4qd1LTxz3cjPVawaWiouQMtY
H3///v2dHNckTHORxnd2oYHoEv264tcS7PTr1y/0uu68885FD68FZa/BXlBG
bTv9/HVyfWlgrgm7dzbeeOPYx5k3b16gtaE+y/4FsHmefPLJwbuBuqOmX6Gu
lM0vrWy1YY19fBbIodCPR07Z3LlzHY0+nCL90qw5iV+znU9ftaU5bph+9xFH
HOGlTyEe7HO4B8nVIy8QvQAXexBsVebaW2/4nHzA98EnfeSRRzb5gfTG/Z+l
DgCx1Hr+o9JX4d/Jg8RnQF6iq/c0OuH6+HmnVYm8/NL4c/TzhN5WnnDv8exw
D1Aj2LR3YLvFl+na9kwcZZwcW3LsGQeNeTfqGSSPVs+t5Vn2qSlDnijzEPku
1NIw38v4lrLYOW1wHdgvR633bbWlVUMvEo0yXcOHOQCtBGpp8TvEXKl9v9JQ
UN9p0qRJwb8/+eSTwTONjQA/uE+ozaB/B9a/gj+4x3jmN9poo5Z7Gk097gnW
3czx+EepVaR0adF7oIabydtvvx16T7qy/1QdnjvOB3rN7db01KcLO5933313
TiMuljr5pU39C3SD8oR1AnbEIUOGBDXEzHUCsaLEpbheJ1AjLc46gbmIeH3G
wzo6qt4lvmts6vo6gfksT7Dz6+eQZ96FjrPQnrDa0uz3s9y/6n1ZpP7HjBni
l4ZOrC8NzBH33HNPoOtGDFvfvn2DtXhWqP1BTlfYmgKdnKSw5hs6dGjT3ohn
jBpD48ePzzxmHXIKzX1OmTSLFZxn7AnPPfdc8B7Czuii2dbcNvBN9+nTJzhH
7N2I2eY6hcE+E91vve4EjbkuLz8n8ZpmTGuWPExsHeo4aDipWoz4dXv16hWs
I1zZDcz62DT25z5Q19XWiC0uG9ReYWzkAks9TDvvvPNOaK40jTV52cBXztio
C1FG9PPX6fnS5557bui9gz8gCW+99VZTnWLsf6pmAD7ussW9FEnZ/NKs38LG
Q0OPzYR3P3nW5NxT2z7Klm3GSx522GE+v043Rfqlw2pLs1bxUVv6/vvvt/on
WetSP0roTMaMGRP63LK3cg37Ju4nm+aurdl0dJOAT2nxxRfvPt5iiy3Wvd6n
foTLGndmPYOq5YPk4Zdm3jdrAbFfzQv6MvWuo+7/u+66y0m/qg5YXF8C+X+6
LZy4fnxj6FmQK0V+CvtJfbysk958800n4zUhToqcm7BYKbPxXo9rN2gHdh6O
ia0gDLO2tPIl6s8+e2/WlXpeCdqwNl0GbBfqfcgeCXsGvogePXp4jdlQKH1M
vUk9Tj+gz6T7bGjYQHk3Rq21+BkxNdiveK+wh9GJerdG2cXqAlpsyvYXxyZm
1lLUGz66OlAXvzTxiEU+M+xHo/Tg9EZsk6v9odIPiqvbyXqGuBg+w/uJvbS+
TjjuuOO6tUxVQ0/b1zohCvzmMg8Ww1JLLWW9d9HZSQt2H+wDtLh1LXwg+dJd
dGq+tC/MOhF6w36dVEONWmDKtkD+Ke/nHXbYofuYzM/My65Qmhn6nqss4DMn
DwANKtO/67IRQx4ntonfIb9et3FwvtC0JmaZa8e1IQZNz5FTdgB+7kJTLwnm
niSLRijfn5q86ljEhKk4lgUWWCBYd7jCVlvaRxy3ma+mN55DXzk1WWANhD2D
uHPBDrkYYdcVbc8ywrsEfafXXy+nPqZ+Djs9XzpKG4iWdF5A7wQ7MLGdO+64
Y5AbT3yVxNQ2Uza/NHuSqPvApul+wAEHNP0O70ji6kzIa9N/j7W371wlRZF+
6bxqS6v4APaWZl/YO+JqxAnVJKpmIzkYrmBNjz9az1/G10NsE/GsKt7MbOxp
ovJA4oD/gFybvffeO3ivHH744UG+mst9Bscy80fzqDXgkjz80pMmTW65xnnY
tNDgxE6QdN+LLzNrjXC9BhK+qriQx8J9y5xvm59p+F1ZJ02YMCHTGKNApyYq
Ljms8TxkrbUzc+bMwD+MJhf6OWHoMY00pY3A2hEfA3tB9fyjGz9s2LC2fnP6
o04CcxON92QW/YYk2NZUUbV3heSw9jn11FObni3eSUlj+6nfgFYgmor6ni9s
nU5/ZdT6yhtls8U+GOd8TJw4MXSu4XmuA3XxS6MDUoSNg3UCMU5hGj5R64Ss
6z3WCSpmLkkNG9YJ1KShHk3UOoF47gkTivVX6XqitLroHBRJVG1pah2l5eCD
Dw6OUXTdd/FLdyF+6WSQTxn2XFC3OQnUQ+Bz5KJSz1e3LRDjqo7Le4WcSRdg
n9HHjN28aNhrhfkpfLUkfhb2VVwfbEDmnlFv2ELIW0BDidzlImCvqo/JhWbl
xImvBXthNM133333wLbhOm8XP78+7p49ezo9voLvEHb99txzTy99Cn5Bxy4q
juWmm24qeoiVJO18GYey+aXRx496XySxwQrxKZtfGqLmEjQ/ddBpsO37TR0/
5ihdZ5W9f556UUX6pXfddVfruXRZW5o8IeUv0Rv5jPRT1HpMyA9Tn1Bvrnxd
xJGQo6HvzYjd1P1M5G+E2dTy0kfIAnnZ5rirVnciD780Oa/6OUqqq5IGfIlR
dcTiNPZaaUHrk2OgA5YWYrbQ90TPjncR8Zlz5vivZUGf5AinPW/YobNoFivb
JzXJw7DptRCzXXX0XG9a1vgI4Rt435hzAvurtDYa8haJ0dc1Mnhv2Z4J3rl1
h9qN6nzE1WWjHlDYPNPJPlqduvilzT0uuUO+Yb/Zu3fvTOuECy64IHX/am3E
Wjkt7Nn0dQJ17POoeRUX8l3083XaaacVPaSOJyp/JG2sGzYctV+j1l6RiF+6
C/FLJ0Ovf2S2JPG0qoYQGnCzZ89u+fkLL7zQdGz6dQE13fTjFvkcYuuI8hP6
atzzWeLa2QegCY6eNe9L7MvTp/8p99xoG0onTDWudxXAn+97bc79FnVfEKcn
VA/ixMOuKbpE5K4KydHPo2u/tFmXUbWidLyJjYqaG7LYcoVwyuiXNm2oejO1
F8w6UzQzD5i1hmk3HD58eJ5fqTC/tM/a0qqOIpqvtjUe+rBZ81OFakCeV9gz
m0XfTYd8CHSC1HGJUQ3T7CdG2TYW7B/YQcqMqW+ArmvVyMMvrceO04iL8Qma
LVH2h7gNLec0th5sZMTQcwzigKoEWhlmnag0DXtNmtoTaHzy7LO2iPo8MbR6
f4y5E/JR9VgeGjH+QnbQyNdrMdLQA5g3b16m46I9or+rTJ191ahNXWewLSjt
YbQL4oL2QVjdsa233trjiMtDXfzSprYJdRl88uc/z2zRzUzTeP5fe+21xP3z
vlIxoj61T4qGPCb9fBF/Lfhlv/32s96r2A3T1JZmTa3nyBD7UCTil+5C/NLx
wR8ZNocniQuaMmVKkJODzySsJgExi2YfrEGzYq5hi9JnGzFiREst5DwaebhF
2bvzAF1x/fvyfJcd1jGmzYD7wzVoxIXdF+S9EGMoVAtyL0zNSb2VQQ+iqujn
sdPrS6OlHvXe6OR9c5GU0S8dVbPTzOcnplDPr1566aWb1nTUOqY+i/o5duki
9L6K8kv/z/+05l6q9y3rWfQMaa++OrH773pT/06NF36f2Hl0DrHdmf5uNFK3
3377oH5KVrtsXuC3x3aDj77KDU3jIiG3K8y25iLXF3+RngON1imxqGFE7RVZ
h5YZU3OJOgVVIw+/tBlLy3nzBf4PfQ7XG3naxEKRj0suLvoQxxxzTFBXNkzD
k9qNSWuK3HDDDcFnt9tuO0/f0g88i2E+aWoV4ic4+uijG2eeeWagYYfPNMqu
TzxCUvBZ8dl2tWf79+/f1NdWW22V9muXCjPfFp1WIRu8d00tWXzS6PdmhWeG
uYNnAbtI2LPAPFNnmDM4D8wvSWMgWUPYzumaa67pabTloi5+aTNvOW695TRg
D7PpRunrBPqPu04gfyDpOkHZoNG272ROOeWUpnMl2hH+CastTe3XJODvRQNX
tyHgj0oTc+gS8Ut3IX7p+FBXOMz2MXny67GPg+2Mz914442hv0MeiNlPuz1N
O9CgM4+Ztz4pdjjeh2HrXOqzkGuAHYjYFTS+OE9o5eHHt32Gusd8D+p4RDVf
9okyYdawpDHXlRmz5jNrJB96LeR9hN132GmE6mHW7jEbtjQhHfp57HQd7+nT
p0feR7qmneCOMvqleRdE3QumLgrfQe3rsbdig6Wts846TZ/DxvfZZ58V8p2K
8ktfdtllkefSRSPWErtWuxqbZYP7KKsmb5lav379CjmPrOvD7GoutOIvv/zy
pmNiyyC2uB1mjqBqvmrUtAObS7uasvggeAfr442rTVom8vBLL7nkkk3naeDA
gV76Ad4del/UgcAvTtxTlO2KuCnmYFNzkpZES5lcFFXDCi23qoAWqBlnhi8P
e0K7XC7uG+YPc9+IvSfO868fh89hv2hn9zTrhFGzvhOgnrX+vdCdENJD/j9x
ePo5pZ60S7sJtn5sa6wXw9756KrWFeyp6l2ZRvM4TGeZeaIO1MEvjU/XrAt1
+umne+vPjP9hnYCmAT64dusEdHJsPu0kuWvEzynfYRL92CpC/LN5rov2a3Yy
aHeEvYeIU+c+DWusgfGfEX+IjYb8F/MYps5dEYhfugs9f1b80uGgE8e8Y3sm
ksTPKr8h2i9R+kzmOp52zjnnZPoODz74YMsxqSWWF//4xz9C8xqw4bSzf6CH
ecIJJ1g/7/NdXyVs9am47kVBHZ12+hrYc/Tx+tCGwmYdZVNFC1qoHvrextZc
+1PrhM/zWLZ8aVvMlt523nnnQsbV6ZTRLx2mMa8aMekm5PISt6hrgGPT475h
X8T9VSRF+aX79u0buo8kN43G+ln93fb/ZmMNyJqBfaTpQyNmfdCgQUG+T9nB
hhHmT61iI/+nCMJqAbGOzLqvv+2225qOiU8qbr1XW2yxarbaTb7ANjpkyJBu
+yhzUlhtk8GDBzeNs6p5jb790pxTs4a4r1ofI0eObOpn/fXXT+QXBfbe2OT0
46BJHTcXStUd22yzzdJ8hcJQNZ1VI1fs008/TXQM9rDklOnHSeJHUdqT7Wp3
2PbuVYoBiOLKK69s+W5Jr0OZIKaM8RPPiqY9NhZioM8///xAe8knaOuaedI+
1svUS+W46AmEvcf4/nUF3V7OwaqrrhrMr0lR+Um2luZ4VaMOfmmb1kBUPloW
zLUq2glJtYK474488sim4xBHGXedoDRVkuavVhG0u8xr+9ZbbxU9rEygM8Y6
BF8g9UnJDyTmZvz48UUPrSUOwHVjPioa8Ut3IfnS8Qizr7FmS3LvKHs8+7wo
bJpdWXP/sI+ax8wzf8fcI9K4/x5++OFExznrrLNajkOsaB3Wcu3geprnhj1h
3mCnZ71O/+gsP/nkk9bfw15v6rmjYe8acgOi3kkvvvii8z7ryhdffBHU7cAe
iNYY6+WLL77Yi58J30TYNSX3QEiPfi473S9trgfN5lOjs86U0S+N3T/qXmgX
E00cVppaRz4pwi+N7TZM48aVvZ01H3tnVc9MNfy92P3KXsuXNTk508SpLrfc
ckHT/x63Ff35DTbYoHHvvffmfv7wEdvuL9aeWbXcidk14+qpWR4X5oCw+/+u
u+7KNLYkKP+C3kaNGtXyezNm/LkpB4+/V62OsEL3S7/2mnu/9EcffdRyTm+/
/Xbn/WAj1L8L8bNZbFXUR9Lzt0aPHh3rc+r9EbaPKyN6XAjxS1nis017Pefw
k08+afu5OXPmBPELaKi201c2a0vje+wUmwbznfm8TJs2rehhJYY1KfEcYbWB
aeTi+4J3mrnW8bU/ufXWWyPXwZyHujJ27Nju84CNIw3cJ2HnFvtJp1MHv7Qt
HwatA9dQU0aPVSFPK6n+ts4tt9zSZJeNq6uKBj2/T/5dp0MenXltXdRazZtn
nnmmsdJKK7XEWZbN/hVWW9pVQ3uzaMQv3YXul54wQfzSNjgvtrwGnuUkMZ/U
yONz2H2i7jdys23PTdbYRDMHm3yevLDZn9HHIvYzKZy7Xr16xbK11BHz/UIt
kTwhvtys54WmqY0DDzyw6fd49/gAjcmw91GPHj0yreGErvcp/hxTs0hv5BK6
BP/QfPPNF9of95aQHv1cdrpfOkojiLb77rsXMq5Op4x+6XbaylXcKxThlw6r
LY39JEorKA3otdpiR/FHoMMsdB7oFthqwbOeyxqPQHzniiuu2HRc/O/cZ0k4
9thjrc8AOf15Qcyu2T8+Ox38HabWM36yquI7X5o8JPOcUo/INbp+N7VMXXDh
hRd2H5Ocv3aMGzcu+N0q5c4TE6WeX94BrmyOek3xOPHeyvcSR4+rU2tLA747
83mpYiw48dVRPmka/lxf7LbbbtY+fejDcH2ivid5JnWEeDNsv1n3hWZ9Wr1V
NR4sCXXwS6t3p9585NTq+t1ZdVUV6L+oYzLvtIOYNX6XGNU6QNyqeW3RS68a
5EiauWFmu+iii4oeZmht6e222y6I34tq7NuoYcQanVhwtAT0YxCDa9PByxvx
S3ch+dLRsAax1WZC/zzp+wUNQj7bTi/AplW9yiqrZPkaAdhC9GOuttpqmY8Z
B/KhzbU8Np4sfnZbLOe+++7rcNTVxczROOaYY3Ltn3eYeW2wi5tcffXVTb+D
79rXu8Fmm1NNasdmh3cHcS5Ra5u99trLaZ/EnUb1R8ynkB79XHZ6fWne5VH3
kq94mbpTRr+0TatGNfZvVaQIv3RYbWk0hnxAbBk6s7Y+Tz75ZC99CsXButa8
zsQ8YAvMilmnj4auXVLuu+++XNZCUZg2J/TW9XU2NhuzFjZ71SrjO18a+5Z5
TSdOnOi0D73WN/5pVzBPbrTRRsFxiWFuV3NcxfvkWf8hK9TdVtcFvU1XkP9M
3AvH/cUvfhH5u2jlsxfn+fvLX/7S9thmbWlfuvBFwP7QfF7i5uqXDWyC1JSb
NWtWoAtvfi9fua62Onw0X/EittgbvfnQh6gC1HxXa42ZM2emPo5N2161Kvq3
klIHv7RN69l1DRfeLSofBE0PV7BOUPUryP9AIyYK6sO4ft+WGeZ/89pm1bQt
Cny3vNPIKTvuuONavteECRMKHV9U3gg640nh3mbOUcfYeOON3Q86BeKX7kLy
paMZOnRoy3NATlea+Ft8sXw+yv/P87LEEks4efZM8Nvqx8Q34Bu0rtBxNm27
afKkddCAMs8RGiJCo7Hyyis3nRfqXuaJrebvtdde2/Q75Lbr9drZk//5z+nX
+FHYtM315ioPoe7wDkXDm2de1aPTG3EILona19Gy7BmFeuVLv/rqxMh7qQy1
ZzqRMvqlzfen3sjBqiJF+KXDat9Qh8UX7F/DNDuKqGci+AEfsXl9iRV2oQ8/
adLkljjatHsLfBS2e5Ga2HmBD1z1i1YX3w/QLLjmmmua9pv8PK0uaZnwnS+N
Zr15TdE5c4nSX0dnKKsmvQn64EprKGpdTp0lfNfcI641Lnyi6vtgK3eNvreJ
0mWgjii/EydeHg19837qpJxJ7iPz+1VZj0Fh1pTDxucDnj1VF81szOE+oKZo
1J5o7ty5XvotM7zPlV5yu3rx7bC9Q3zZSspIHfzSZu4NjXgzl6i8e97R7WpF
JAW7j4prNG24OuSYYc8lp7UuvjRiO81re/755xc9rMzwPjH3VUXriUbVlk67
TuJz6hjo3pcB8Ut3IfnS4Tz66KMt+t2crzR6XSr2cOmll478PZveEfO9ixgr
dKH04+aht6HXZFLNha40Ol36vUvDHlnX51iH+Fn9vOStB8Y8op4b/tQ1zCZP
fr2xyy67dI8N+9+QIUMCf6YvbHorehs5cqS3vuuKqlmgN+ZAlyj9CVtjbhCy
oZ/PTs+Xpn5S1BxRpVyhKvG73/0u9JwX5ZdeYIEFQsdUVT33vP3SrM/MeETV
fOjd6oRpJzO3+NDQE/KF/BBT/4b/zxrrqjD3STS039JCvSLzeNtuu62TscaB
HE/lp2O9TV3Q1VdfPah5q8aD1g3rqaQ65WXFt19a+Rz15nJu4Tqo+dPUXHeF
ileIeqep3Jkqxe4Sm6Lme+x8rsFHqJ7pqHlhrbXWCn4nTqwMucOmLbiTbBnk
YZnPC2u/qkN8kf6dfPnXfv/731vXNNi8iLv3gc0WqVrv3r299Fl20Nbj+6Pj
Td58FqJ00olJ6nTq4JfWtbBVS1L7sx3UsltooYWC4951113Ojquj7vkoXUls
uPwOtULrhHltTzzxxKKHlJlDDz206Tttv/32RQ8ptLY06/y06yQ9Zrgs9dDF
L90F6191DsQv/Q1oWxGnrN8j7BPTnqOPP/44qHfaTuNi//33b3n2XOkerrfe
ek3H3XTTTZ0cNwzsAWatY/zy6Fu5gNh+81y59p9UEVPLknqZeXPppZcGNRvo
H90zNON79uzZnSONvxr/eR76IGH6V6p1Ulx6WSC20rQbuwYdgLBrSt1JIRs+
59Wy5UubMaJmmzYtW71SwU7Z8qXJS4u6D3zm+vokb790WG1p7KhZ7XntsOXS
qobuplBd2DsoH6tq5Gi4qq+JfcK8Z/DZonGXls0337zlmHnmSwP5DuRnDRw4
MIhHZi/IPgF9e3TPq5QLGweV00bzoeNtWy9kqUtl8tRTTwXH9KnPofrArk0c
kQmxwtiHyJfCr1gVfvOb3wTfy6X2ucmwYcOCPvr162f9uTq31KaKA/nESueD
vfHll1/ucriFgz3NfF6qnlvGnKrH9tB81I5CYzWsDpnPGmRo0oatozrt/oyD
XjfszjvvDOIBsrSofAl8Q0WD3/zXv/51oDmRtLG+afc7ui4VduGkn4/bP3XQ
n3vuuULOoamnQMuyljRBt5Vjci59ofrA/2FbJ5CjzRoZe6/rXPCyo2t+0oiJ
rjqsOfXv5EKrNythtaWzxPcqDRfWXa58Ulmpgl+adQ/+HWrOZ5n/o5ruN6TG
lI/3D/mR5Mn7iutzDXYz9Ob1+4OaXFOnTvXaL/tAPc5bNVdxUGbdRF91/hRm
zTLadddd5+z4Zj0mmuTDNILrqp8T4raL4O233w7iBbfbbrvADoY9EV8iOmh5
akCNGDEi0tfgMn5R6ML0GfvYP2+zzTah19R3jB/afNSOI3aJeWiFFVYIdNZ4
1qg7R8wF75AtttgiuP95TzJeYoH4GfYqYjWIrWHNteiii5bO56Wfz073S6Pp
EHYvkT9r248J2SmbX5o1XtS7ghinKpK3Xxq7pe38+Y6FBOw+ZjykauxBXWvd
CfnAHLz33ns3XU/en9gXXGGLC85as8/MqaMR/y/4w3e+tK2GjMs6RC+//HJg
c7jkkkucHdOGskHa4u2vuOKK4Gd514HKymWXXRbEQrvST7CBDnqUrV5pgpFX
Hxf2y9xX/NlpUNvJfF6y6iAXDfXkze/k8l2kGDt2bOh6lDrqvrC9C2n4n7ie
dYLYgDAddR9txx13LPorh8ZCVLEVpZ+H38Mci0sfGLEDrBN8xonwfsO+xdiZ
80x439Z1Tas0zlUbPHhw0UPKhK1mdtF5W8R7hj3XWWLbVPw68blloQp+afyR
Rc/nLhtxrFXAXI+R5zl9uv88XJv/jLWBq/wSaqTpx8Zf4gvbmp0Ydpd6zXqu
v2rsF+uO6a9Ds6/ORMX9Yr8oI8QkffTRR0UPIzWslfXzjI3LNbY8JNWOOOII
5/0piAn18X4s27peH1un+6XJowy7LsQRCH4om186SruQhvZTFcnbL00sre38
5VXHiZifsGv45JNP5jIGwS1KU1g1rjEa1a4gXoH3j3m/ZK0bjE6yeUy9to3g
Ht9+afSbzWvqQzPaN+TPM3YzJwZbtMpne/755wsaXbkJ8+mzVibnmb0lNSiF
RrCXNZ+XqvulL7744qbvQ30EH5i6qnrzGVNPDqutT/T/68aFF17oZc8f1orQ
ODRBcy7P7+yz+dQdiYKaleZYqvhOQHuEsV900UVN/846Qb0H8ZHXDeri6Ne2
6n7p2267ren7ZNHJdkWU/Z74zbSgOc8xylSjpgp+aZumWJUbud9lh/oA+piJ
kZs1K3tt5ziY+ss06ja4wvRL+6xxpva7esPf7wpbvSIatefqjlkfr+5+afKz
w+akuDpreXPUUUcFGjHjx48veiiJQbPAPM9Tpkxx3s/WW28del3J0/cFa3Fi
xrAtn3LKKUGdJNaj+DbJk+B5a/cupPYd8y/rfbQ02b+gdVcm9PF2en1p27tX
Na6N4Iey+aXN+gN669WrV+7jcUWefmnmR7QkbOcwrzpOZs0avXVCXcu6Ydah
5/q6jtu76aabWu4VF74G4n/N4956660ORiyE4dsvbXtPuNTxzouRI0cGY2fd
qvPwww8H/857Q7CDPizniNq/Omh58u/HH398QSMrH+ijmc9L1XW8TR2M/v37
O++D+PSwtZRPuw55OGHrJ2I36wSxb2hm8d2xa6LVHtawNUX93Gxh+rRLLLFE
0V87yInHT8XaK24jViPu7+q6jqznkn4+bv/kexWV46F8X3pzqeOdF8pf2bdv
36Z/VzUSy2pH9Qn7XPPaVl3H28zP8OkjikuYbgdzcpb6QzvssENwnKI0/m3M
mFF+vzSgRYROQpb5P2r+VjVtaEOHDvXy/sH2iD2q7FqYSo9CNWLW8vIVKF0o
s7ncU/fu3bvp2L50vL/88stAN8X8Lo8++qizPlT9Jr2Rj13W5zhP0MrUz8va
a69d9JAKJUp3YqONNip6eC1wD6MPx/iqWC/drL3HvtoHNn1M1VzWC0gDtqqw
sVGTbOrUNwodXxz0MXdyvjS6Wvo6SG/EhlQxD6oqlM0vbeoE682MFa8Sefql
J0+ebD1/PGN55QqYNWv0Vqb4aKE9d9xxR5B/qK4fGpfsMVyDXol5r4TVj03C
hhtu2HLcOuaW5Ilvv7RN28xVjfM8Qf+DsZMbp6M0t66//vqCRlZ+0OjmHOm5
A/gcsH2wbqzi3s0X6j7TG2u/qoK/2NTrS6LZHpdx48aFrmN81k8Py1GjZlXZ
7biuoWYX35241Cx+EBthmm/UoeEe62SI51ff96CDDip6OF5gz2he2ypq4Kta
vOS26ajYAh9zX9lB29+8tuSYVBml166az/yeuITpdrBGzQI2SOJ/uI5loQr5
0nmg+w9tNYbqwqhRo5psH8S4u9Scbsdpp53W8ty59ieiR6ofn/rPPrjzzjtb
vgt+NpfrLFt9L+q5Cq12MGIR60zU3o59QdlQMRdl9JnHAZ0v/Ryj6eoDtLrD
riv76iJBKzZsbOTCVwF9zJ2cLx11rdCeEPxRJr809rawmmrUkUK/v6rk6ZcO
qy2d5/ssqjYeMbVCNXjiiSca8803X/e1GzBggLe9uk373UVOH3q++jHZZ/rU
XxX8+6VVnpDesuq9FwU2IM6XAr0jpUP91VdfFTiyckPdRa77zjvv3P1vqiY3
uTjCN7B/MJ8X8kWrCrZS8/v4iEMwdUL0RmyML5Qv1mxnnXWWtz7LiK5Z+vjj
jzs/flguIK3TtR/r4JdWsUt6q+o+kvzUH//4x93/P2XK1OD7LLTQQpXUJs8K
sbHmta1y7LotduyFF14odExRtaXPPffcTMcmhrBsc6z4pbsQv3TX2mP++efv
Pg9oGbiOi4sCeyh6ceZz5zqeVOkWqLbBBhs4Pb7imGOOafku22+/vdM+bHlN
J5xwgtM+qsr666/fdF7KoMVRJJ999lnouw0fftngWWFs9957b9FDScXiiy/e
dI7RofDB1VdfHXpdiVspEmpWhI2NuIMq4NPmUia/9LBhw0KvFVoLgj/K5Jee
NGlS6FhM/bKqkadfOqy2NDUP8sBmA9fb2LFjcxmHkI2JEycGdrA8bOL438xa
cS7e1TY91LrHieaBb7/0Sy+91HJdJ0yY4LyfPCAPUPeDoJvH//OnEA76vpwn
Pddc1UpDB134hrfffrvleanyOTJrS6PH7ANimMPWMWgs+uDzzz8PtAfN/oj1
42d1AZ+AqrG8++67e+nDrBupN7RSO5k6+KXZw5rXdebMmUUPKxWrrLJKMH6l
IUvtOv6/rvUq5s2b13JtqxxrRW0h/buwhs7TD2YjqrY0a/BOQ/zSXdTdL40t
Uj8Hp59+eu5jICfAfObQcXEdy3HggQc29YFOuQ9MvyjNpXYieddK51hv99xz
j7M+qgzXVT8vBxxwQNFDKhxb3AetbHVRXn755WBcPXv2rKSOE1qG5jlmjvUB
sXxha5aia5f9+te/to6L+KeqxJbq43btlw6r/1qEjrdZ30I19Of//ve/5z6e
OlEmvzRzRthYHnrooUTH4hlnnzd8+PDAvo/dhboDxGMwt7PnO+ecczx9k1by
8ktH1Zb2kW9iA93nsOuIlnjZcgCxbxCrrtrMme81/b+tRf1OEZ93rauNzX2x
xRYLrhmauFn0T2bPnh34uD/++OPQ38EGbN4r9JvVDm+rIXPqqadmOqbQHt9+
6Xfeeafw95UrlBYn2vKsd9hbc+9XsV52nrA/w06jcs1VrMKKK65YO63jdtj2
auPHjy96WKmhloT+Xch79QE5BbZ1zJJLLumlP6AGlq1Ps456Uqpmz1Cx5exJ
ffkSo+LXqxy3EYc6+KVt815V/WlKcx4bJbXP0FNhneArPqbs2HJ5x4wZU/Sw
UmPWli6DVmCYngRxU0X7zH0gfuku6uyXpsb4z3/+8+C7o1tFXdS0EDuL7eOj
jz5K/FlbXTPWva457rjjmvogr9E1aPXbanU+8sgjzvpQvjvT35NXLfCyY/pg
jz322KKHVDi77LKL9f1GPk6ZbAhbb711MK6q1t4yc5jR+PF1ftFh0Wsv6K3o
WAxsU7ZxVanWgD7uTq0vrTTzbS3LekCIR1n80tjjsfXZxpGm1oPKOYtq1G7J
i7z80mG1pdFB91ET2EbYu57G+7VMoJdpy9OtWmP97aq2Guv4lVZaKTgu5+b2
22/PdDylrTR69OjQ33nmmWdavtOqq66aqV8gl8Q8btHaeHXAt1/apsF01VVX
Oe8nD/AJMH6eMxXTQx0zoT3kyXK+yCE4+OCDg7+jvSw0Y4vPoWapT9h3+th7
2mpLh9Vhz2pX1tdtettzzz0zHTcKW14J7+O0fgDybnhO8GGljclC+xi/OPNT
Hv5tnmdlGz/77LO99cNaPGxN1ek1e+vgl7bpRFQ1f6p///7B+HkGb7vttuDv
da5XoWv8q0ZtD5/wPvM1/y2//PJN3yUsbj5PX6laX5V9H+8K8Ut3UVe/NLHz
2B2U7ePmm2/OdDzlW06qvUuuBNqleby7qGGv98H3dn3f23Tr8B198sknzvqw
1eImF1zo2jNhA9bPTdY6DJ0A5yBs/U/uQxl47rnngvFQx4V5wSe+3ndmbeld
d93Va/9rr7229Zrq2np5Q2x12L1WhB5HWvRxd6qO9xZbbGEdR58+fUoVr9Kp
lMUvHZYjgr+NeptJodYofrpBgwYFNpcFF1yw5dj4wvIiL790WG3pX/7yl976
1OFdjv0z7J4qUzz7F198ETrOKrZFF1008zkhdkG9G1jHurhXlbZuVP6nzcaE
Hn1WNttss6ZjkgNeV1tDnvj2S4O5z/rNb37jpR/fKP8A2sTqfk2qD1JXlA/v
2WefDe451q9SO76VCy+8sGV+5f3nEnL4Ro4cGcQkL7HEEoHdibUAPtUzzjjD
WV3XCRNaa0tPmzYt+Bn7duISNtlkk+7agOR2oUnAM5V0TxGm5cSz6gObbggt
rT2Sa8y10I+VNHeH+HPWFurzaF/7RmlLrrDCCsF95Yvnn38+dD2Vp55SEdTB
L827wLyul1xySdHDSoWqd8b8Rn4Ff69zTSRT95rm2k7GXoG5F/1F8s1UHs4y
yywT2BfQqnKBrbY0cxOgL0ZMEL5g5asif4QamHfffbc3P7nP2tJlRfzSXehx
f3XxS/OcYSfjO6PDRPxPVtT6ER3bJFx77bUtzxz6GFH6oejSsQeeNWtWor5s
Wv2u5jXFpEmt+TLkDrqC53TppZdu6aPTa7HEZfbsOS3nBpt73eFZCctL4t1a
BtjLMh4fdRSxu5LDh7+WOY9+yGU+9NBDA50HV5i1pdUanP34qFGjGnvssUcw
v/Ez9u2rrbZa44orrkidS8fxbdeU7+hzPxnFTTfdFLqeGjduXCFjSoPP9XYZ
8qVtuhvq3vGlPS80Uwa/NGsK7E+2MbjKaTZ1JNjf5Tk/5eWXpg6f7Txi08iD
gQMHht5PvF/LxpAhQ5p8aFVtaP9mzRMkH2v77bcPjjfffPM1Hnjggcznl3UF
/kM0nKLsJ7Z3AfkhWeD51uO+aVWKS6syefilV155Zaf3S1FQa4Lxk++L3ZO8
GYnJi4fSNlW50uynhFaOOeaYpmeFWh+uYP2GbUu3C2HDx5ZPU7Y5bPlTp04N
PoNmPf/OOMJyncMwa0vjd+V5IbdF+U/R3sHXdsQRRzTFTpMLk2S/rfw/Zrvz
zjsTjTku6v2rtywxhYxTPxbv4aS2dvyz+jGoh+MT/DHK/+M7jhEN5LA1FbXF
O5k6+KUBO5t+Xataj1k9h+pdx565zusEc15in+Gq7hvnFY0RpRtFw7bKuT/s
sMO6/Ve8v5QuPFplv/rVr4L7LWkdQ9PHjh0O7VvyLHlv8m+LLLJIoKvNHlvX
1OBd68OuiV5E2NzI+7sTEb90F3XLl+Y6s67h+2J/dpGXTC1B5iRaUq0bW53N
dusRfs7vJdW3s2mWun6+seebfRCD7QrmSfP4VdLG9Y2qcaW3vOo6lh313Jut
DOtElc+90UYbOX0XscfimOq7Yq8jp5n9Mlp97L+Yt9Rcgn5Vv379grUN9UaS
1EK21ZYmXmTChAndfkhix/v27ds48sgjAw0gtf/DV50mfgLdCxWXbrYnn3wy
8fFcEFYThT15Ub7yNOhj7zS/NGvusFwE6l0I+VAGv7S5v1SNeDpXzyvznX7s
TTfd1Mlx45KXXzqstrTLOi5hkLMWlivNe8a3xlpasEEwH1W5ubBPKXsX70lX
+ZpKn3uttdaK/D30nMx7BvtPFsjd04/HOmXu3PczHVOIh+6Xfu01P35p1sn6
9U1T76EMXHDBBd3PHX/mWV+i6lCDkXOm8oh4BwmtoJvl41mhfh7aRuq4+IPv
v//+phgk3k1XXnllMCegW8M7QdevYW2QxJ/AvlX/Lvhy1X1ATAdrHf19yFj0
OsL4ruPWbjdrfqqGLc81Ns0QbKRZ6k7wDtWPt8EGGyQ+hrlPS6sFHgeulVor
56FRTI5U2P7HhV5LmamLX9qMLaGuTBVReqvqXVf3GMvDDz+86bquvvrqTo7L
XmSbbbbpPi62WOyz7LN00FLnZ1wPbPxmHTLyF+Nivmfwe5NDxN+pdYvfxbRL
jxgxonu/TT3MV191l98E6J7Y5kXe451YWxrEL92F7pdGn6bTUeskbARR9caS
wLqNY/bq1SvR52x+HFq7+ADmH+YD1uRJwIdj9uXaRslcaPZBvT9XYM/Vj815
QP9Y6MJWr0bqbndB7KvteWOf6CrOLQ2PPfZYsP/DN+tKv4D3th6jju8Z37ep
D86zQ94He3P8wttuu23TuWGPHxfq6+mfZe/PHpJj428kt5l9mA5+c92XkUa7
wtQOV43cvbzBHmHmjKuWty8qK/rYO80vjQaSrX9iqKoUO1B1ivZL46s09VjV
3IX2iyvwi+nHz3tPn4dfGu1y23Xk3YYWo084/nLLLRd6L3W6JmLVQf9Jzf8u
4yiVz401Qjuwv+j3DLW/s6D0b1Sraj5tFckjX/rMM89sur6rrLKKl358Y2os
J9V8qzNoW6rzRi3EOuePRbHOOus03WPohGSFvaO+1yLHY+7cuaG/rzRrTA0L
bPtxwW9pfp79LY3YwyhtcmXnp+G/jqMrTt6MbT0zfvz42GOOi21PllUvVc/3
oyX1KX/22WctsYY+tYPRq6UP7MNxYweygk/Hdo3zqn1TFHXxS6s8MtXIE6ki
5ODq34Pa2XWGvB6X+wUgr0/fx6KvETUPqTw9852ETSNJTpFZW1rlC1GfNqoG
q35vU6PIpZ1Q5WmbjRiwTkX80l3UKV9a1SUmvsTl2kbp+iSNb1P6WXqjFloU
rEf5PbT902DaXnzUujBrKbqK+8OGbJ4vtImFbzA1pnhXCF2wpyR2xPauS6o9
4IoZM2YEGpiM4b777nNyTPa7eowm/u6o+GpqcrIPo661Wo+olkRPYc8997Se
W7RlVP0tG+ifqd9FvxM/fRKIp7JptOMPSVrrICth2tC0qsWX6mPvpPrSxF+Y
9zkN29nnn3/uvf+imDJlSqBryBxIDgLxz2YMbt4U6ZfG/m7WvqPhG1O1lVxA
PKB5v/nId4kiD7+0sumZDXuxT4gp23HHHUPvo3322cdr/0I2qOPBdcKX6FoP
Tmnk4ENsh+43oBGjlxZsdvqxWNeIvy8/8siXJmZTv8b0WUWUVhON94QQH6Xj
TSuD7lZZQQNUf1aodZQF9lms09Tx8H+2W7uz/zfjA2n4F+KC9pdtjXHZZZe1
/ayy3akWx0fLd7LFTbquPWarPcW7M0ucBXkz5jGTapixB9A/zz7f1x6NnADl
IyZOLi/QZbLdUz179sxtDEVQF7+0WauzqtdV1xVbd911ix5O4VATUb+uSbWz
Td54443uGoc0fDXoV7aDXApz7khyfWy1pWk8n+2YOXNm02cGDBgQu98osDeG
7efxm3Uq4pfuoi750tdcc023zfGJJ55wemx0aTn2Kaeckuhzv/jFL1qeuXZz
m9JbQBcoDbo+BM2HX9fMaSamOCvsKcyYW2KJksQE1YHBgwc3naNOji1KAzrn
Nh8mz2Lese7vv/9+EIdC/+hqu4D4YnVMGntaVX8kihNPPLHlnGBLTZI7qmpr
6Q2NszjvVuIn1GfwmSWFecy2huF5yBNT401vefuisqKPvVPypamBausXzYA4
+QtVBT+rbsdTDe0p37msURTllyaHzrSV0ohlcV1TjngjvQ9igPJet+Thlw6r
LX3CCSd46Q94P9lqIqqGbqSsEcsL+WDEbGAPdhkLAtQQUWu9OPe8aQOn5oip
7xIXfFT6sZLuDYVs5JEvbbOduV4n5cFZZ53VPX70BYT46PG/r776atHDKSXk
EJvPSZZzRcyPiuWmoT8/ceJrsT5rxpIktXNfdNFFLZ+PG4/APlifl8hRi4Np
s6OdffbZscfcDt6TSsNfH9unn36a6bi2OhZJ12Lk1evH8OUPI7ZR2S1Zi+QZ
n8wa1bZ25Zp0MnXxS9tqK1Yx/v2MM87oHj/zYJ3BVkwej35NH3744dTHmz17
TlN+MPuWuPZCpdeb1u5p1pamJdF20seNX92F9mhUbWnX+8QyIX7pLuqQL81a
FHujj3h8tAs5NuePdVhciIOxPXNvvfVW6Gewm7NWIacMn1YaTHuJD7+lmTez
7LLLZj6mvnemcQ7KWi+wSHbeeeem8yS1Ulsxn4EibDLkDyu9FvQEXOQt6nsr
1cifjwPrZHNvSp5zXIj1M88nvv4vv/wy1udNn8bUqVNj9w3Yj00tGho276T5
12lhXRq2luLcVs0/4tPemne+NLYxM2ZHNfQ3WQ/mBfYe1iTUvEP7nnp3vmNi
iOEKuzePPfZYr31HERYnQPPll8ZHZWq6qHvvzjvvdN6fXk+BVoSOm2+/NPdv
WG1p135+BXHe5vtOb+RJiyZ/eWHeU2sONCup15a2UZuaer/kOGPnJZdB1yhg
n9YOap+YelJpNGzIIdD9Dy7r1AvxyMMvzZyn9+NrbvWN0tDneeHeFeKDFgjn
jrhGwQ42N/0ZwV6Wdj7kc6zX9eMl8dEyF5jrBN5DcTHjjnlv6bWs22Guw+PU
oDPPH23LLbeM3WcU7EXMfTN+WXzVWTFrS6dZ9+rrVpqPGEds/9hgVB9oSuWJ
3rfZssYGlJm6+KWxPZh6WUnmnLKgap/xXVzVG6wqthqsSeo56/D+4D2iHwub
QVyoXWGOJYmeBnsn/bPo6SV5P5v109EWz0pYbWlyK4rW+POJ+KW7+OlPf9p9
DjrRL01sBfZGvt/666/v3Pah1z6ZODF+3XdT00fZx6NQ8UonnXRS6vNhxsZg
S3TNRx99FORa6v1k8SETN6R8/zRsWY8++qjDEXcOpi7piBEjih5S6cA/aNPz
JrcYfTDfPPTQQ916Lfvvv7+zd49ZxyZpfSLq1uufJ4c6LmZtaXKNkti4iJ/Q
P88aOCnMEzbNM2qQ+c6FJU7I5hdXLW3dhSLRx+/aLx3mJ/XhlyYnj9p/tv7Y
D8eNncgCNmzi1liD2PQa0PYy9xLYrPBfJ7F72aBOcth9SePd+u6772bqIy16
DLbZHnjgAad9EQuk14PU22qrrRbLd5UGXb+ClrTGngt8+6VtNVbUvTVv3jzn
/aE7adbU0lvVaibUjcmTJzftPX027sG4tgzqueifZX2WFD02lPXI008/nfgY
QjZYf6pr4EvHG0wNxTTr1qLZe++9g7Fj0xCSoWKx5H0Tjlm/nJjUtOi+LBr7
6KiaziY33HBDy34jbn4X+3RzzUFsaRL02qG0OFqpsMUWW7S817L6jonDMv3s
5AAmqd0VhalPnXTdS11Ts7Z0lpxEG1xTpUGZ9Jq44sADDwxduySNz68SdfFL
A7pk+nVFJ6xqqDp9Va2P7RLTj5Il9+7yyy9vOha6EnPmzI39+dGjRzd9nriB
Dz/8MPbnzXcS9W6TgE1L//yhhx6a6PMm7NWw2drmwyraUZMgfukuOlnHm3e6
rtfvs7F+SpIPZ/NLR+Ut4eMhx4eWJYbOrHtG85ErRlyj3kfaOMfHH3+8SX8U
O8+DDz7oeLSdAVog5rWdPn160cMqJcT7rbDCCi3nC7++r/wKcnqxW6nYyaOP
PtpZniRaLmZMZpI8Yfyq5rlIsgc0a0snqdkFnAv982uvvXaizyvw7ekxLKoR
Q+QrxpM6WiqGn/wZXddGtSrqeOrjd+mX5nzZ6jurFqemTjuI9yTflhgyWx/Y
X/KqKU+8hF7XDh80OlhoGVKvjtp0ah1G/jCwT1e/j05xFp599tm265es9f7S
wNwXle+atlaJCecZjQz2e7Z+2Eel1ettBzF65r3uuo5MHHz7pc3avKoljY2K
gmf65ptvbqnnojfsP0lrGAr5wns4LE7IR0uay4iGlPos8bVJ6m/cdttt3Z/l
uU+ioSW4I498aTDrULioWZU3aj4977zzih5KpcAOo667aHiHY+4N02pQT5ky
pSXuOKkenL6upiXJO7bZ7LCnJcGMxTryyCNjfY79l6nxs+uuuybqW4c9Fv4l
/XjMma40UskdNM9V0nWZqbnuurY039VWb5xa5Xnpm5B3aeaS6A3/V6dSJ7+0
yjVWLU28Y9GoPWTdNbzBtFcmyW/WmTVrVoseeNJ7w6zByJwWF7M+NA17URLM
+CO0L7OALSpsPiTmt5MRv3QXnarjzfO+9NJL52b7IOYkCcQCmnZS4kptcG8S
J8LvxNXljQI7jd5vGq26dhDDqp9/6scm1bnA/6xrC3Ov+qw5WXXMdTw5YEI4
3I/sQcxnmf3Z2LFjnfZ11113dfsree6pd+8K4p651vp3IB88Cfhz9c+z/08S
h27Wllb+tbiguap/nnOVFs61zTfN/s+FPpkOekwqT5rYe3Lhr7vuupa+i/BF
ZUUff1q/NL5H4h/JV8cOcO2117ZopZoNXTPWIuQxx4nbIN+BuAquxfXXXx/Y
wUx9TdW4L/bbb7/GO++8k+r7JOX8889vuhfROrHlPzMXqbzagQMHNo05a83t
jz/+ONQnq1rWGNc4ME9Ryxo/AfON7v+xNXxXzMPcO3HW5/wOdit0a0aNGhXY
LM1YYL1RZ8D3eoJcfb1P/Fy+fOBRuPJL8zxyHbHJU9ORnPbNN9889Bz37t07
WIsnjb+iD/Ks0S+hLgz1rsJ0wtXaEB8RnxPKC3ORuVbx3XbZZZdEY+Te1jUO
8AdgP24Hz5U+17uKqxGSk5df2qwxvdBCC3mvyeEadHsZu6s8ybqg6oZy/rJq
2nQy5hoMrYw0YK835/akcfemDT1JLIaZ9419Kwm22G80GOOCPcyMcUxSG1uB
f93URkO/ilpcrjB1R9LUljbrLrGGzQL2jEmTJgXrxLB4ZdWwkd5xxx1OYqR1
WJ+iu8taAX27dnlT7IGoLcT6g31DJ80zdfJL8241n7cqodcskfqZrTnC5M+l
wdSJTLMOo96i/vkhQ4bE/ix6qvpnWcsk2UMzp5uxYmhwxAWbDXY+6teigYu/
36YnqBr7K+rOYOtj7f3ZZ5/F7qsKiF+6i070S+PzJT8uT9tHmpwmpZ/Vbo1M
rp3qw8We18xlHjZsWOZj2mANqMeHYuuJo+mI7Zr5WrfxkHdTlNZoVVB1wlSr
oqZc3pC7ie3cfJ55N1IfiT1EFrBdoI+njkuMclQN+TTghzXHjzZMEsw9YBJN
P3QpzP6TauKaOXD4ubOA38umE8oainUb74gssH6gDpU6Lr5pVccBP6nuB2JP
XoQvKiv6eUvql46qZ1xEIyYVPZK86ieyntRjLbAntctJDstrZg+UFbPWm9my
2nzCiNLpLqJxHdBySJIDmQUzrroordQsfmnWnJyzoq+dra277rrBuw5/p1B+
zFrrebQ062DWfcStqGMQJ0cutE0PHHv3BRdc0L1fIY7o6quvdnG6hJTk5ZcG
09aABkpVIO5HvReTxKEKjcY555wTnLs+ffoUPZTSwv5afzaS5m8oiE3UcxRo
SWOvbTm8SXws2N/0zyb1pRErafZPDGoSeAfpMaY8twMGDIhln2fvg43IPI/E
8WJzcwlxrnofabR/0UzTj5HE36JD7KSZa56kURMiiwYP62ez3kPWxtqk6tTJ
L809YMbjV6lGs/KrM99U0ZblEvyo+hyMnTFNPDTnkThG/Z4g9jqJj4djmDVT
0fWOi1lbOqnOJTWKzLmpXb40/iZbvUVXjZijqjJjhviloRPrS2N/9nXPh7Wk
ekLAnlCfU3baaaemn7PWJLeLn2Hnz6LfrUPemj52bHu+oK9FFlmkuy/2cOPG
jbP+LvviW265pSmWk/mfujR1fT6TsMkmmzRdV4l/jwdrinPPPbdlv6b2JMwn
SepOs//jeHoNa+ZZcqR95FKYely0pDEc5h4wSS0oamzpn03qUybH0cxvzpIv
rcAOYdbPUo19Kvo3SWyIxAYSB06tLz1unXnbnJuJPVf1B9iTVhH9fFXNL01d
DfLysI/ceOONzt6dccFWpI8nbh0LU/OQFlXfIy7ESvTr16/puCr2lLwP4ip8
UAa/NLWK+vbtG+S7TJ7sp4Z0GKbPgvNdBFn80vh8i76GqrGPZz5l7ibuUagW
xJfmfc+k1cJkXYjtVLehoLnCv7GWQxeF+1C3La233nqJtV0F9+TplzZr3p55
5ple+3MJ+i2MmT23kAzsJpw76sMKdpgn9Wdj0KBBqY5D3I85ryf16VJTQf88
uWFx7Ur8nhnnnLT2jRmjSEtTZxa7DvqD+nHYcx9++OGBPg/2B+KuqSHD/hYN
KTRDzD029gnXunCKrLWl2a+ZueFptY3axeTGaWgRpoVar67XNFnj9stAnfzS
YN6HLjUTfaNy2ZJqRHQi6Mvq15H8wjTg6zCfa7QCk0Cetv558qni5P4pTC0T
9P2ScNZZZ7V8h3ZxwDaNUpfNpz/LN5Iv3UUn5kvb/DS+G7bvNLDe0deL7HGo
33DIIYd06xZus802TvUK0ILRfcU013o1Ohwb343eHzUQWJdgK8Z2zXfUY5Cw
K/AuzJqvWhfYh+j3EevWqunJFQ15zFGapGgqkQN52mmnBf5J9knEppGvzPsZ
nxL1LfGJ6deBPZmv54uaW+Y4k/p02QPqY6YlySc0/V1J64uwNza/A75fV6BV
Y+qW6W3ZZZdt7LXXXsF1xXbBdUUzDf0s5ibWnfh10OnWP0dtBebvsOcMzWp+
D799FdG/a1K/NM8HeYzUTuZPW4v6WZzf0X+G1i9+AvIJWKsnWZu7xlyrE4sV
N56WmvDm/Xnvvfc6GxvzBeeJZ0LNSdRGdxEHYoN4njyuv96uuuqqYM/H/rFI
jRXsgua15Poq2HOQI4/N9fTTTw9qHySJf0pCVh1v3gc8Y3lcP/2Z5lpSU5r5
uEr5BYIddEzyun/U7yStH2TCHoS1garXYTbiGYl7YR0oOvLlIE+/tFl3ltiL
qqDipohpFuLDnKCud9p6yXXAzDFOW8/IVvOF+TYJpl8oSV4V/l2z/6Qa4mbs
Ny1tPWdiucnXN/Pt4jT0l/BV+7J5u6gtTY6z/nlsW2ltoOTss47ERsv+nn3B
ww8/HKxpWW8zfz/33HPBvnHMmDGBb5/f4/f5HPuvrPrZrF+xA3De2XthW+C4
/Dv6teQdvvDCC8F9xpjQqVXjYbz8Pp9j73bFFVckvvfKSN380lxL/Z6uUq1c
VXunqjkWLuFe1a8jev9psNWlYL+SBKWlqxq6k3GZOfO9lv6T5rLZ3svt6sJS
S5E5jLmMvT1zLTYJ5nzmZeY95j/GwtyMpgnvSeZI7CfUSuR32Uty7pkXb7jh
hkCjijk2L01EH4hfuotO9EuzrsjTfkbjGU8LzxxxMmY8I3MMvg0f9yZ+b70v
5gffoHOLbgQ5B7b1MjGg+LiYs/LOb6s6+GP0c4nGsJAONKjRtU6z59OfXXwj
5Cn6hBqGZt8HHHBAomOYe8CktaDM2tJJ11am/jzNdW0B5lBiCMifjqpf0q4R
M09cOuulOKDj7lojLS/07522vnTdYA1txngk0QokJkL/LDkDaBj6hBho8hsE
t5i1pVnfoQGGFjCxhz/72c+scwxxDGg+uowrc1VfWhDqDPGf+FbwifCMYlPG
RyCUizz90szT+p6W9z8xSWUH+50a8xFHHFH0cCoFPit17lzGDXYSrHV0DTLW
O2njdmw6zNRrTgI1g/XPo2kWF/yT+mfR5E0CPlUz/5f1YFZNXPaW2O7QhSIm
3uyD/yfuGh8YMdaua4jZcFFb2tS8rHIOnGCnbn7pr7/+umldwt992wddMGPG
jO4xUxO9zpg5feSqpI2XMd9HtKQaYGYOZpJaB6xb9M/yXZLcj9hU9ftZtaxx
wHVG/NJddKJfuqqQv0ScCLGFb775pte+TPs3uZ55wp4CPW/sOuQMTZv2Tq79
dxp77LFH0/Uk7kjIButIfLbkO7OvY39n8yOg80gMMr5s7JV//nN+8Vr77rtv
y3iSajeYe8AkNVB121ba94hN3yKLblY7yLtjL88abtNNN2306NHDel2xqbAf
Zs+PXQIfM/dEXRC/dDKwuaEDop+3pHn/xx9/fNPnyWfyDbEW5P4LbjF1G/E3
s9ZRGve8M5hXpk//U5DTgb+YvHUfNgDxSwuCUBfy9EuDmbeSR5x3VnRfW1q9
t7qCPoI6d1XOz/GJqXeatobJtGnTWvZmaPwkgT2feQzyU+Ni1uVJqglGjpfZ
v1m3zwXUwps9e06wX+M7FxETbdaW3njjjRMfg7h+/Rjsi4TOom5+aTDnEeaF
skOeWJXWNT4xa6Ay16UBX7b5PiBuK0ksOnO9WVs6id0Uu7b+WeywSbBpiGDT
ENIjfukuxC9dT8jZ0WO8sU3XyefSSXAtqZWkruUKK6wgGt6eYJ+HDwF9WDQS
yIvg/BeFrVZHUo2nNddcM7X9wIxvWWCBBRK9S4nPM+t6805izZUn1FCdNWtW
sJ/nT/6/7pqc4pdOBjoB5rPYTtPIhHW9/nliXXxC/gT9sF8W3GLWlsaWSgzT
j370o2Cvb3tHk4+px2O7qlUqfmlBEOpC3n5pYsr1OlRJYjuLYscdd9TOUbI8
nTqj77c7oc6rL/DdqvuLdU/aPCo0ls11NZpVSdDz22k//OEPE+3b9WeFdskl
lyTqX9Vn1Zuv2s5FY9aWpgZGEvDZmJpmNv8d9mrq/7FfF6pHHf3S5JvpmgbE
N5UdvRYDWpJ1ZuDAgU3z0uTJk1Md5+233255H+y6666JjmHqwnNfYbeMi6mZ
264utAmab+Z3QFNbSI/4pbsQv3R9Oe+885qeAbSgheph6oWi7SzUA33+plED
OwnoFpjaX2gYxIWaHvpnt9xyy0T9o5lgrm3IMxSKR/zS8cHHSDyQfs4WXnjh
ROtKdA+x3+nHIO7DJ8pel1R7X4jmww8/bJlXaWgttosbou5SO5tcUsQvLQhC
XcjbLw3UTtLn7SlTpuTSbxp0DUZ8dHW1f6VBz5nCZi+0Qq6uXpdun332SX0s
6kqa6yjqSSbB1BUL0zGizhw6AibkNuuff+SRR2L3jf978cUXb/p8p+YO4CM2
rxX1Q5NAvS398/iobbUy1DVNqn0rlIM6+qVBj3Fhjpw7d27RQwqF3Ay1TuDP
rHXWq8y8efOa1pWbb7556mNNnTq1ZZ4cPnx4omOYOpfkF9kYOnSo9djmevXW
W29N1P//Z+9M4K+a9v7/uJ7rkjkhMiszZSZk5mYKUSHK7LpkuNGAKEKmXCKh
KLNrHkMpQ4ZESWWoTMk8z8O9d/+f9/Zfxzrr7HN+Z5+z9tln+Lxfr/W6br+z
11p7Xvs7fL7rrbdejr1LuY3lIb/075AnK790Y0INZ/s5Ky3P2gQtYnMOieNW
vbvGwa3vETf+km9Ge3vWyVG5ytS579mzZ86/jxgxImv7Xr16xRqfWtju+ow1
m0gf+aWLh7oJ7nUcV+tv3LhxOfYYvoWSxHybaO3nl7vuuivneiBmqJjcDnLv
7O3ixlFHIb+0EKJRSMMvjfaIned30kknVWTcUnjppZcy82zfvn3a06kpqEts
jl3cXNBGAc0tc4yot15OjIZ9rZqG7zIOdn0U2rnnnpvzG6NLGuUjw69ub//8
888XPbZbb5lGfbB6hNwWd18nTJgQqw+em/b2m2++eeTvqPHd6L6yWsbWhy5V
478WoX6AfX2fd955aU8pLy+++KL8A/8fVw+PeKlSiap/eP3118fqY4sttsja
Piqfx4wTFT+HFp+9fRwNcNdWRSOeXpSH/NK/g7Yg+09uB/q0orFw61nKJ1Rb
8L1nnz/qnInGAR05+/zH1TdzdWny1Qdp2bJlqC/r4n5zx/m+cLUPacccc0ys
+YvkkF+6eA466KCcdfqwYcNi9eHWqKS2eZJgz1lttdXCWgDCL9SGts/lIoss
Eiuvw7ajkkMfR58rCvmlhRCNgu2XnjatMn5pIN/SjLv00ksHP/30U8XGjoOt
wVjN/vNqZPfddy/ZP9oIUJvJrkXSrVu3svqjXpa7to7jF6besrv9008/nfO7
iy66KPwbGmAuxFvb20+dOrXo8V3/QS1o95aKm4NHmzx5ctHb853JWtnenrW0
C3rC/K1Hjx4eZy8qCfafLbfcMqx3hK5xI2FrY/MNXq3aCUOGDMnM85RTTkl7
OqnB+Vl77bUzx4JcsHJAG8/WE4nrF2Zd6W5PLLzL6NGjw79F1QMjNsvePo4G
yF577ZW1LTEL1XoN1xLyS/8OevArrbRS8Le//S3tqYgUoD6uXZs46XqWwi/c
t+bcoelMDrxoHNq1a5f1HkMbKQ62v4LWp0+fnN/MnPm75gz6Qy6sZUqN/Tzn
nHOytsXHruu3epBfunj4tnTtMdOnx6s9xNre3h6dpiQx9R+U8+Mf9LrLOZfr
rrtu1vboUpSD/NJCiEYhjXxpwK5kx1pWa00lW0tU9buKx9Y1pVEHSWRjbOE0
cqV95DoQL22vh9BSL5ajjz46a1vi/PCdu6DtvdBCC0We0yeeeKKk8e+9996c
b9xS62zXAm4tI9pDDz1U1Lbo/Lk+fFpUjaGBAweGfyOfU4haY9q0aVl1nm67
7ba0pxTJHnvskZljXD3+emLs2LFZz6Rnnnmm7D47deqU1ec999xT9La2Holp
UXrwRueDuuYurIvt7XlXFYNdx4SG/yiqfxEf+aWF+B3bP8QzhtqIovr58ssv
s76ROY+isXBj3vr371/0tu43My0q/n/o0KHh36LqjxC3Z8e1FDv+p59+mlUb
mzV6sesiURnkly4OrmX3PmrRokWs+NEff/wxRzsgaa2/rbfeOhwH/VHhj6ja
0ui8xwF9Cp8xCvJLCyEahbTypYG8InsdkHQtjrigk2LXb8MWJorD1jVt06ZN
2tOpOvgeXGWVVTLHyJf+FTWf7fVQVE5zFJdffnnO2nzNNdfM+Z3R7sqX2809
g2606YNv4qbA/0zNTbMNzyS0wuuVqNrStCOPPLLJbckfNHG59rMpyl9C7Dq/
SVpPSogksWver7HGGpGxMmmCT8y27c2bNy/tKaUCz/62bdtmjsO+++7rpV/8
0PZzLiqnOQo0Kl37AufJhXqMzZs3L5jbbcfP9+vXr8mxefauvvrqmW3I2SZm
S/hBfmkhfoc4RVt3KapOgag+7PoQaB5Um/1DJM+7776btUaJymmOgu9j9/sv
X1zdtttuG35f//zzz5F9UY/LbE/MeVPgr7O18GjoCorqQn7p4hg/fnzOfRRX
q8+NxyXPhLijpCDel3G4D4Vf3NrSCy+8cGh3KxZyssjpsfsg56cc5JcWQjQK
aeVLA/ZAamOUEitaCV5++eXM3MhvFMVjtJ5pcWsmNQKDBw/O8v9+9913Xvpl
LWzHbR5wwAFNboN2F7/FNm+vpTp06JDzW2NLidL3NtjxJjvssEPBsYkz5bvZ
/J713MMPP9z0jtYwUbWljZ/59ddfz7sd/ntzrKgpcOONN2Ztf+2112b9Hk04
/v2GG25IeI+ESA7il1dYYYXMdU4MTTWBjdDMrZFrfVH32RwH9C7IQ/ABcQjE
LRZ6L7kQj4W9132nUY/X5fzzzw//FqXvbbjgggsyfay33noFx8YuYevsYKNC
b1n4Q35pIf7ggQceyFpDz5kzJ+0piQKQ42bqS/CewjciGhPi4cy9Sw7yr7/+
WvD3Tz31VBhfx3d+s2bNst6Drh3B6JdF6Xsbxo0bl/Xs+PrrrwuOP2DAgKwx
VTugOpFfujjIa3ZtMVHac4UgH9benvjcKLDhlFuzku3RiaaO29y5c8vqS+Ti
1pZuyobpYudkmVZu3pH80kKIRiFNvzS89NJLmdgi3rPkElYLRv+Iduyxx6Y9
nZrC1jXVezQbdETNfYdtIk4N6GLAD2lisLGJP/fcc5G/4/uT9ZKJu+DbBX+C
OW+sfW24N4kdzLfmNuCPIEfejI/NLIoPP/ww2HzzzTPj4XvKN9d6Iqq2tGno
/9x+++1Z8ZnUFOb5w7HnuuHvgP3CjlvnfJn6XldddVWotc7xxU8iRC1DHTzz
TCP3oynbWSUhV8Tcg41a5xV7qK1dFqUnWQ70Z9eJzvdO4bl5+umnZ94n1MbA
j2y2I6+QvG4D19HSSy8drLzyygWfk+Qkbrrpppl+Ro0aFfk74sJ22mmnzO/o
m1wK4Rf5pYXIhvhfcz906dIl7emIAuyzzz7y64kQ1ii2XthZZ50V+TvWLdQp
xU5GYw102GGHFfQ/UteLddM777yTd3zyn7t3797kGpb10fHHH5/5Hf1WW4yo
+AP5pYuD+mmuHSaubrP9bUDr1atXzm/QGsR+8/e//72s+ZKTwBgXXnhhWf2I
aNza0nHra9j2ANMKxQUVg/zSQohGYdFFF8087yqt422wc1FYH1cL6FCaed15
551pT6dmsHVN8SV8/vnnaU+pqkCv2VxX5LQmAfXazRhoxNlrGXRm+bvR/sM3
beKs0UxdcMEFM9vecccd4b8Tl8naqFg9Ur6DjZ43a3Hs+EZ/l+uBe972Y6Af
Nn/+hwkcierDrS2NXQr7ArYG82/4oFu1apWJX+Cc7LXXXjk1yNGc6NixY2Y7
4ueXWWaZ8L/btWuXqJaUEJXE1mEot16TT+zc2EI5t/UMWje+YsPzQW1x4pwY
g2cc8VfGx4zNB70IUxuja9euwRdffBH+beLEieHz1M2FIC4K/QnWKCbWpxDE
Wxl9H2J+6MfED6HBShzjqquumhlnyy23DGbPnp3IsWh05JcWIhu0h4hNNPcE
Wp+i+rB1Y9dff/2y8+dE7fPKK69k6jXzjY0vxKwt+Mbju9zEcLOuMHrd7777
Xvh9b64nNLl5F/IsOOKII8J/6927d5Pj43O2cwn4Jv34448zf2PtRT0o8/fV
VlstePLJJ5M7IKJs5JcuDrT/XD8i+VLFwv1px8zS7r777pzfoZnE37B9lcp9
990X9rHRRhsp3yABompLx9Uy6dSpU871ZOyopSK/tBCiUUg7XxqwLaKVYeZx
6623pjIPG2JIjX+H9xTvK1Ectq7pJptskvZ0qgriMM2x4TsvybXl6NGjs+xU
5G7ZtZ/xj0bFheJDtuulkneGpgG+0TjrKzSp8dmYdR7PGvqy1/BcH+RCNgpR
taVNjjh2CNac1KKhvhF2goMOOijUxCfHvhD4P4iz/+tf/xrG01x33XWyd4m6
gvp4pn4xz5THH3887SmFaxdT5w+fqfGFNhLolhnNG94p2GmS4t577836RseW
S/yO8Vdjo43yMWPPMes5GjFRZs5XX3110ePjD8XnbbYlDoh3Kn5q0zfv3Ci7
lPCH/NJC5DJ16tTMs4kYGaOfI6oD9DnWWGON8PxwnjhfQgC+MPSvzPeyiU02
9zNrHWpuue+6mTNnhrXAzLuQdY6x66HNhS2rGPBlk+dpa7kxvp27Qiw7OdIm
xlxUL/JLFwd5Em49YOosFItdQ6OQvfjQQw8N/z5p0qSS5kkcCNr91DR67bXX
SupDFMbVdOe6iFNb2vYb2K2QXkUxyC8thGgUqsEvDeRw4jdjHvjE0q6PhU/N
HBe0kETxXHnllZljl1Q+cC0yb94HmTqZ2LNNzHPSkN9MjjY+YvTjiIVuSjuc
b1TiQzp37hzm4/K9Wup8ybVGxwZfK37Tbt26hddIpfa/mrjpppuy1qvkSDdV
T0wI8TvY4IyuADUHTE5HmvMx93L79u1TnUsa4Pcgd8bYMStVhwHbDrq1vM94
r6EvOWHChCyNbhdsqeQd4VfmPcT2pfoFiC+iziLvR/o68MADg0svvfT/1tDT
S90lEQP5pYWIxtaR5PkkqgfOhzk30mEVUVC36bTTTsvEJvfo0SPU4SkUZ4w/
hLxP/NC77bZbcMghh4T1Q4r1SdtQswQtGNZJfPsT58xaB/0F5WjWDvJLF4+b
40qsbTGg00Tshr0t8WBREAtLTaFSIf4Z+2Gadvp6B50K+1xuscUWsbafMWNm
1vY0NLzKRX5pIUSjUC1+aWAdbfJO0CxK01/z8MMPZ45LOborjYittxpHD6ee
wW663XbbZez3xOWJxsPWcKehXy6EKB7iZUxOCTa4UmxvvqDusbmXhwwZkto8
0sLUOuF85Ku5LIRv0C+VX1qIXHgf4lMy98bw4cPTnpL4P/D1mXNC7lya6xYh
RH0jv3TxoG9kHy9iTJuCmGj0tF0/5I477pjzW+Jh+ZupIVQK5DTMnDmr6R+K
kiG+2D6X2LLjcM011+RcD4MGDSp7XvJLCyEahWrySwPrA6Pze9JJJ6U2D77l
jZYSdQVF8ZiYcOogid8x9Tex31eDTr1IB1tvjYYumxAiHtQSroZ76Kqrrsro
HjRarQ/0HM05+Oc//5n2dEQDoXxpIfJDXiNaEuYblvq1Ij2obWW0YsmD1fNK
CJEk9voIzbxZs2ZlNXyc/C9alY0OWkpG98loZBaKG2L92aZNm/C3Bx98cNax
Rr/Jhn423HDD0Nb+zTffJL0rogz22muvrHMZty70nnvumbU9voymavAB9T3c
+9O+R+16jPJLCyHqmWrzS8PNN9+cqReYVq7yQw89FI7fu3fvVMavZdCJ5vyR
cy5+r9ds8vvwp4jGhO8/N5YSbTQhRHxsv+j111+fyhxMbbHTTz89lfHTgv02
8YOKrRGVRn5pIQrz888/h3oi3B/UhW3EujnVALmKK664YngeqPmg2rxCiKRx
bQ35GlrxIghmz54dam2b43LZZZfl/IZ15rBhw8Kak2h7UjMDNtlkk8x2K620
UvjuNVx33XXhv2MXFdWNXWeDNnHixKK35foxdl7TjjjiiKK2HTlyZNH3q/zS
Qoh6phr90oD/zjzjyUlKA2oPSmsrPtQmpj63CMK6UAsuuGDR2kCifomqLS0b
lRClM3jw4PBeIg4qbmyzLxptnfDkk0+GOXgc9759+6Y9HdGAyC8tRNP88MMP
QYcOHcJ7ZOWVVw7170Xl+PDDDzMaSZwHvo2FECJp5JeOz/Tp04PmzZtnjg35
r/gBqbvXp0+fTI50u3btwt8ayDmgjrDZrlu3buE26EBjx0Y7UrnS1U/Pnj2z
7o2XX3656G2JO7C3pRZ4sRpq8ksLIcTvVKtfGsjJWXLJJcO54dMRopZgXUpO
GfeY1hLCrS290047pT0lIWqeMWPGhDEe6GQ+8sgjaU+nrnn66afD99lf/vKX
MA9AiDSQX1qI4vjpp5/CvB3uk9atWweffPJJ2lNqCKg/utZaa4XH/dhjj83K
oRNCiCRhjW4acaS0qP+/7777pj3VquLzzz8PhgwZEqy66qo5PsHNN988rBH9
66+/5mw3d+7c8Dm/1FJLZW2DNvRXX32Vwp6IuJA7ZJ+7l156qajtqPVp+1Jo
N954Y9Hj8ltzX9r3bdT9Sq1yIYSoV6rZLw2869u3bx+ccMIJaU9FiFicccYZ
waabbir9PBHi1pYeNGhQ2lMSoi549dXpQdu2bYOBAwemPZW6ZujQocF6660X
1ssUIi3klxYiHuTkLL/88np2VwiOM/rdcezTQggh0uc///lP8MILL4Q1HR99
9NHQFl0MxIGNHTs2zEt56623Ep6l8Mn8+fMzNURpDz74YFHbHXrooVnfI0cd
dVTCMxVCiPqk2v3SQghR60TVln722WfTnpYQQghRU8gvLYQQQgghhPDBjjvu
mPmu+Nvf/tbk7039cNM6duwY/PbbbxWYqRBC1B/ySwshRLLccsstWWtXnrtR
WlBCCCGEyI/80kIIIYQQQggfUHPRfFessMIKwffff5/3t3fddVeor21rthf6
vRBCiMLYfulp0+SXFkII3/Tp0ycnplIIIYQQ8ZBfWgghhBBCCOEL6oGZb4tO
nTqFmu42aLXzmwUWWCD8Df975plnBv/9739TmrEQQtQHypcWQohkueOOOzLP
WeIrn3/++bSnJIQQQtQc8ksLIYQQQgghfNKrV6/M90Xr1q2DIUOGBCNHjgxO
O+20oEWLFpm/bbnllsHEiRPTnq4QQtQFtl+anL4rrrii6Pbzzz+nPX0hhKgJ
JkyYEIwYMSL47LPP0p6KEEIIURWQZ/DPf/6z6G8PO59BfmkhhBBCCCGEDyZP
nhx07949+POf/5z1vbHMMssEXbp0Ce677760pyiEEHWF7ZeO27744ou0py+E
EEIIIYSoQfArl/odIr+0EEIIIYQQwif4OqZOnRpMmjQpmDlzZo6utxBCCD/I
Ly2EEEIIIYSoNPJLCyGEEEIIIYQQQjQWnTt3DvbYY4+S2nfffZf29IUQQggh
hBA1CPkHpXyDdOzYMfxf5S8IIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBC1D+zZ88Ojj766OCpp55KeyoV5auvvgpGjRoVjB49Ovj1
118THevnn38ObrvttuD6668PPv/880THEkIIIXzAu3HSpEnBsGHDgl69eoVr
heOPPz4YPHhwcM899wTvvvtu2lOsGP/5z3+Chx56KBg+fHjwzjvvJD7e008/
HVx99dXB1KnTEh9L/E7fvn2Dxx9/PDzXpcD67tJLLw0efvhhzzMTQgghhBBC
CCGEEKI+uOuuu4Jll102+J//+Z+gQ4cOaU+nYmBnX2qppcL9pu29997Bv//9
70TGevvtt4PVV189M9Ymm2wSfPPNN4mMJYQQ1cb3338ffPHFF2lPQ8Tg448/
Dvr16xcsv/zymXdXvsY77aKLLgq+++67tKedGMSxbb311pl9XnHFFYM5c+Yk
MtZvv/0WdO3aNTPWoosuGq5ZRLLMmzcvc8xbtWoVHHbYYWEMwrRp0/KuD7/8
8stg7NixwcCBA4OOHTsGf/7zn8Pt+/TpU+HZCyGEEEIIIYQQQghR3UyePDnY
b7/9smzL22yzTdrTqgjYfFdbbbUc2zp540mw00475YxFPIAQQtQ7M2bMCFZZ
ZZVg4YUXDl577bW0pyOKYMyYMUHz5s3Dd1WLFi2CLl26hP45ckDJFyYfdJ99
9gn+9Kc/Zb3XWrZsGVx33XVpTz8RTjrppJz3+IUXXpjIWFdddVXOWAcddFAi
Y4k/IIYwX+zFYostFqy55prBRhttFGy++ebB+uuvHz7Xon5LjCcaOUIIIYQQ
QgghhBBCNCo//vhjmO9xxx13BGeddVaw9tprR9rSGsUvPWvWrJx9x2dC3otv
fvrpp8hjTVyAEELUK+g/Dxo0KPjLX/6See5J27b6QceYc7XIIouEOaCsH/Lx
6quvBrvttlvO+408019++aWCs06eddZZJ2c/b7rppkTG2mOPPXLGUv5t8hTy
Sxfbdtxxx0TWkkIIIYQQQgghhBBC1ALkOP3v//5vjt2MfyPXqU2bNg3pl0aP
0+SCmYb9PSk22GCDrLG6deuW2FhCCJEmr7/+etC/f//IXEJybUX1QhwB52ml
lVYK5s6dW9Q2//3vf8P1hHuu8a2WWqO3GjnggAOy9m+zzTYLYy+SYMCAAVlj
cS999NFHiYwl/qAcvzSxjUOHDg3vByGEEEIIIYQQQgghGpVDDz00rB3drl27
0KZKHtT111+fsW+6+tKN4peGqVOnBjvssEOw/fbbh5qlSTJ//vxgzz33DLba
aqtQ/xQdcSGEqGWoF33++ecH55xzTnDUUUcF2223XbDccstlxT/JL107PPfc
c8GCCy4YLLXUUsH06fH01r/++uucODca+iz1AjXSu3fvHmo4U3f7m2++SWws
fJv/+Mc/gi222CI47rjjwrrHInlK8Uvjj0ZjHR0eIYQQQgghhBBCCCFEYRrZ
Ly2EEKJ0ouohNGvWLHyPUGN4/Pjx8kvXEPhAOUf33XdfSdsT6xWlzTJnzhzP
MxUiGYxfmtrRxNzssssuYbzF0ksvHSywwALh36ip3rp162C//fYLn3NJxicI
IYQQQgghhBBCCFFvyC8thBCiFKihesUVVwSjRo0KnnrqqVAXwtawffHFF+WX
rhHIleb84G8jD75UNtxww5xzfswxx3icqRDJYfzSHTp0yPkbOjf4oJPSbhdC
CCGEEEIIIYQQohGQX1oIIUQSyC9dO1AP3JwjtLw7duwYvPrqq7H7OfPMM3PO
+RJLLFFXdaZF/VLILy2EEEIIIYQQQgghhCgf+aWFEEIkgfzStQN6xe65Wnfd
dWPnhr700kuRNXhfey1evWoh0kB+aSGEEEIIIYQQQgghkkV+aSGEEEnwwgsv
yC9dI7Rr1y7Snzx79uxY/Xz++eeR/dxyyy0JzVwIf8gvLYQQQgghhBBCCCFE
suy4447ySwshhPCO8qVrh6h86QUWWCCsGR6Hn376KdIvfd111yU0cyH8Ib+0
EEIIIYQQQgghhPDNxx9/HOy2227B3nvvnfZUqoJK5Et36dIlHCeufVsIIUTt
Ug9+6X//+9/BGWecEbRs2TL49NNP055OYtx3330556pz586x+/nmm28i/dK3
3npr0X3w25VXXjl47LHHYo8vkoNrZMUVVwweeOCBtKeSGMYvvd1226U9lQwf
fvhR8L//+79h+/Of/5z576h27LHHpj1dIWqKxx9/vOA9Zbdhw4aVNAbfwJ06
dQq++OILz7MXQgghhBBCCFELPPPMM8EKK6wQ2pwuu+yytKdTFVTCL33VVVeF
fS+33HLB+PHjvfffFP/9739Du8Ohhx4abLHFFuE+4md46623vI/1xhtvBOee
e26Yh77ZZpsFu+66a3DllVeG2qZCCNFI1LpfGj/0zjvvHM6bfOKff/457Skl
yqOPPhpstdVWYV3pvn37xq4tDfnqSz/55JNF9zFjxoxg2WWXDfO1zznnnOA/
//lP7HmUC+uD/v37B+3btw/XDT169AieeOKJcD3hky+//DIYNWpUsO+++wab
b755uD7p3bt3VdXjJjbj9NNPD88Hfuk5c+akPaXEqMZ86Q8//DDynopqRx55
ZNrTrQjESGy77bbBPvvsE8yf/2FJfXz99ddhrQn+V1Qermu+CW+++ebg4osv
Dv7xj38EPXv2DM8p5/avf/1r8Msvv5TU92+//Rb06dMnfHYPGjSo4HN77Nix
Rd9f//znP0uaz8CBA8PtV1111WDy5Mkl9SGEEEIIIYQQoja59957w1hnvgvP
O++8tKdTNbh+aWywSYBvlv4XXHDB4M4770xkjCh++OGH4IADDgjHXnjhhYNN
N900WHzxxcP/z/UwevRoL+Pgr8Cmgt2Wvtu0aRNsuOGGmeParFmzmvLHCCFE
udSyX3revHnB6quvnsmd/PHHH9OeUk1w/fXX55zzZZZZJvQTxGH69OnhdmxP
TJlvf3AhrrnmmjAvlbHXX3/9YJVVVsnsS7du3Ury10dx9913Z/Zx+eWXD9cn
rBXMWL169arofkfBeSPPj/kQK/D666+nOp+kKeSXnjVrVnDFFVcEZ599dnDa
aacFZ511Vrie/eCDDxKdk/zS2RCzYb7naHvttVfsPqZNmxY0b948c++99957
CcxU5INvpqWXXrrJ67nUmAHiiOx+7rnnnry/rYRfGgYMGJD5Fh03blzJ/Qgh
hBBCCCGEqB3QglxooYXC70FyPsQfVCJf2jBkyJCMP/jBBx9MbBwDmu0bb7xx
5rybnOUJEyaUnMcVBTnSxgeN7unLL7+c+duIESMy47DftahL+tVXXwVTp04N
81PQsOM8XnTRRWGswcMPPxy8//77ZfVPzEi927qFaETIRatFvzR50muvvXY4
X3yFaFOL4th9991zzvkxxxxTUl9TprwcLLnkkmX1EZcTTzwxHG+HHXb4v/fe
tPDfOP8mRoF2wgknlDUGPhnjN8HvjW45Ocnw7rvvBosttlhmrOOPP77sfSoV
8tQPPvjgcB5LLbVUuA6od1y/9HfffRdq4KAhUMhfRUzn/fffn0gcgeuXxi/7
5ptvRjbWvfWO63Pcf//9Y/fRsWPHrD7GjBmTwExFPni2EHez5557hlokrVq1
yrmnuOdKgW8WE1dkGt8Z+SB+Od/9REP/yvRz+eWXl7rLIcQv08+iiy4aPP30
02X1JYQQQgghhBCiunn22Wcz+Sdog4lsKumXhuOOOy4TL44mZpKYPOmhQ4dm
/Tv5P/Y+Y58qFTQ411xzzTBP+uqrr875OzZK7LmVOr4++OSTT4I77rgjrFO4
1lprFZVDgEb7qaeeGvro40DukckLE/7B3kYe0CuvvBJq2eP/IJ6AfK9TTjkl
7emJOqcW86Wxabdr1y7zXMMnJIrjnXfeyWiG2I0aKqVCLJfp8+STT/Y421xu
u+22cBzqb/z0009Zf2P9aPaHNWU5tTmOOuqosJ+99947Zxw4/PDDs+LZks7H
zQexAMyB4//II4+kModKY/ul8TMbf9kGG2wQvjeJOyRu5dtvvw19VmgF22u8
3XbbzXsdetcvHXXNNBLUnrePxwUXXBBr+48++ijnGSVt5XThu4z3rX1O/va3
v5XUF7rgdj98b5bzvCYf30e+tMF8my6xxBK67oQQQgghhBCiTrFzbVZbbbXQ
hyiyqbRfmjwh6i4b2+6kSZMSGQcbKmMcccQROX/DV+faLEqBeH+Tc1Eo18K1
oc2ePbuk8ZIEXdIbbrghzC+P8iu47S9/+UtOPoJpaN4Wk1eFj9SMdfvtt1dg
L+sf7qe2bdsGK620UnhdN3UOhUiSWvNLf//992Heo/HFJR07VW9Qj9k93+Q2
lgs1pk1/aCcnAXqx6Pnih2SN4EKtU3u/0AophWuvvTbc/sADD8yrbY7/3R7r
wgsvLGmscjB5fTR8r42C8UuTs84zgLovxCsUgng8rh1zvLiG4sboFUJ+6T+g
trn7jEGXIw7EXbrfAKXWMRZ+IM7DPa+cp1Igf97uhzifcvDtl2ZfTcwvWvLo
H4j04D1MLAM669XcyNVXPRkhhBBCCFGtYLd44IEHwtp+w4cPD0aOHBn+/7lz
56Zeny4N8EHjm+G7D/8Z9nGRS6X90oBOpanrtuKKKwZffPGF1/6x2aG5id97
/vz5OX8nb9Te5xYtWpQ0jrGVNxXTb+pZm5aUL74UsI9ccsklOb5zO1eLawJf
wMSJE8NcQtuWji1//PjxobY3/lDbzjdq1Ki843IOjLY+jfwVUT74/JqKKSg3
HkOIYqk1v/QhhxySmSd2QFE81GJYZJFFss418YA+NNCJAbP1wZO4htDmpm/W
0C5obLu1UJ966qnYY7z00kthPBAaK8RA5KNnz55ZY6FFUkmIszNjb7vttrFr
g9cyxi9NI05v9uw5RW03Y8aMrLxprn1f6xr5pf/ArV9P/EDc65M1u90Hmv0i
Xai37K4V0G6Ky7x583JiZtELKgfffmnAF2203KgZEhULJSrD3XffXfR3U9qN
uDYhhBBCCCGqhWnTpoX5oFF1mexGHSNygNBv/eyzz1KZK3my5513XuiHJAeB
+SQZI9y1a9fM/rs6zuIP0vBLA7WKzZj77bef176NTfWMM86I/Dv6xfY+77zz
zrHHwHaJ7WONNdYoaF/GB+/ej9y3aYO9h9w2245qGvdnt27dwpxzaivGAX+z
yYenHXnkkTl5KFOmTMmqn0negPADGqPkiqAPixaxGxNhN+VL1z/E/PC8w6dG
jAn21UrWH60lvzSaDWaO1JPEFyqKA72NTTbZJOs846N+7rnnvI2BDqvReV12
2WW9XsfEW/E8pNazqfNsgw65+44kJisuW265ZbhtU3VF3WOZVI54FGixoy/L
uMTs4edpJFgbcY5WXXXV2BpL6Enb5431tQ/mz5df2tC9e/esY4GOQVzWWWed
1O4vEU3fvn2zzkmptaVPO+20rH623nrrsueWhF8arrvuuky/1EwQ6UC9t/XW
Wy9YZpllMm3BBRcs2lfM+4I1tr19ocZ7lW9v1kjF6JPZrVC8txBCCCGEEJUC
vxbx3aXEWuJL69KlS2h7qhT4pF0NRBp2nyRsv7fccovXb9J6Ji2/NNjf+j5j
gKnvx7delD0VmzOxEfY+U+M4Lvhb2RZNgkLcdNNNWWMRH48NP02uueaaTJy+
+21N3TPyfsoBP7Sdj0ItTQMa5m4NuaOPPrrcXRIFuOuuuyLjD+SXrm+IQdtw
ww1zzvsuu+xSsTnUil8aXQ2TD4uOQCXXR/WAq9+NvTUJDXRqTZgxyJ/2pQU0
YsSIgj6H4447Lmv/SsmvNLVFmtI1R8OEGBJ7vKbWGb5gPU5dZTPu6NGjKzJu
tcF6tJhaJC7ETtg6MDQfNUqUL/0HrrZPXI1791jSJkyYkMxkRdFsvvnmWeek
lNrSPDtN7S7T0Gcul6T80ry/ttpqq0zfxGuL6oDv2JkzZ4a5H/nsaTzrqUdV
bq477w3WS+iOUd/D1Z2xG7HfQgghhBBCpAXfMBdddFGWRtVGG20UDBo0KJg+
/bVQLxGfl9HWRWcYPeOotS3rXv5eiZpafMflW2O/+uqrXsd6//33s3ww0u8u
TJp+aTTmTQ1ccvrffPPNsvsk74k4Z771o7j//vuz9pfx4+bE4O/hHtxggw2a
tIsb/7Vpu+66a6yxfMK899lnn8j7cN999/V+L9o1QYcNGxZqWpJf7o5NHIlI
FvKB5JduLFyt0jT8GrXgl+YZznPZzK9fv35pT6mmIJfYzi3iufLoo48mMhbn
ilhD3z4Czj9xWR988EHO37A5u74O4s3igi4LY8yaNavg76hbbY/1pz/9KVzX
VAK+L8y4+IkasQZQuXTs2DHr/PnQg5Ff+nd81JbGj+R+AxA7LdIDf7Kbn1pK
benLLrssqw9qvvuwcSTllwb0o0zOLHm03OuienjrrbfyrqMPOuigRMZEs6NX
r16RY77xxhuJjCmEEEIIIURTkMdw8MEHZ9amaFzxPdMU+KmvuuqqLN1cu6FX
yTdhkuA7z7eu95mXhA3N9rOi9yYKk6ZfGmx/GfrP5eYSY1869thjg7Fjx0b+
HX1je3/Rq44Lut3kAFNvuSlcP+zgwYNjj+cD/AQtW7bMuf/Qeaa2VhJwP3bu
3DkcBz8+OmlRz4AoX4Dwi1tTXX7p+ob1gon5cRsxaZXyN9WCX9qOm+MZGbd2
QSND7V1b/4J1ZhJ50jbUCsVXa3xKPurBXH311WEcVRQ33nhj1vVL3OOPP/4Y
ewzqyZAP1RSuDi2a3pVg2rRXs3J9J02aVJFx640TTzwx55mHTmw5SMf7d9za
0qxf49aWRi/Z7gN9AJEujz32WM49E7e2NDVLXC0mXzpcSfqlgW9W0z8xUooH
qh7uvPPOvPYrtKiSJCqno5S1hxBCCCGEEOXCN4qdd3n44YfH1g2i7miUX4q2
8cYbx/4GjAP5AlHjllIXrBD2Gh7bu/xdTZO2X5pvLGpFmvHPP//8xMYiDt2N
yU/Shk7uvnvNV9rWi/0SO2lUDSv8xEnHXqPhQD2tfN/1a665ZqLji9/h+S+/
dONAfI+rBWzaySefXLF5VLtfGo0OWzNx5MiRaU+pZuB9auvxtGrVqqhYSR8c
dthhmXGJZ0vSjr/ddttlXb9oeicJ+2OPd+qppyY6HuDbs+NHqfUjSsPN2fTx
zFW+9O/4qC3dpk2brD7OOOOMBGYq4uDq+ZRSW7pnz55Zfey5557e5mf7pS+/
/HJv/RrQsrLXIdSdFtVBPt0hvqnR304a20bDt7QQQgghhBBpYNs5BgwYUHI/
1I3NV7eGenlJ1HoGW8/XNOyZ6Dj7Av9X8+bNM/336dPHW9/1TNp+abCvD3KR
4upqFwu5yva+Ut88SXv2mDFjssZDq7yStaXRQeB8Rt3v2J3J+64E1P/L55em
dpdIHmplyi/dWKAF4Z5z6hsk9XyNotr90tTyM/NaZ511ElsD1RvUirH9mGg+
U6O7UkyfPj3rmvrXv/6VyDivv/56zvU7efLkRMYC1rFu7NyDDz6Y2HgGOw+V
XHSfa/NG49577825Zrbffvuy+pRf+nfc2tIXXHBBrO2jaksnre8gmsaN/Ylb
W/rJJ5/M2h7/HXWDfJF0vjQcf/zxmTFWWmmlhr3Hqw1iJKK+XVn/VILRo0dn
xiSHRAghhBBCVCf4V/juJ/cuSZtRGrz99ttBs2bNMraNcu2mw4cPz+sjOvfc
cz3NOhvmjD99tdVWC7+3TjnllODjjz/2OgZzN/tBnhi5qqJpqsEv7caKJxFT
gP/Z1dQ+++yzvY9jg66BPd5uu+2W6Hg2aNHm80nn0ytNCrQd8uVM880tkifK
L40Gbr0yb9680Iaz4YYbhu/QRoR1EfbdFVZYIWjdunUwaNCgisWiGKrZL41v
09aRGDZsWNpTqgmwl9t+BHz7aWhL7r777lkxBf/+97+9j/GPf/wj69rleZIk
3Bv2ePioiQFIEmLlWJubMTt16pToePWO6yOjLb300mX1Kb+0n9rSt912W9b2
6NbH1R4TfuH4U+fHPi9xakuzpnFz4NFe9knS+dLA9W2vRy699NJExhHFg45g
PnvZSSedVJE58C2jd7MQQgghRPVDfVSzbsMXVE+wDmW/yAVmfVou+OfWX3/9
yHU2/lx0LWsN7HbYfcx+UNNWFEc1+KXB1srCR+0z1h3GjRuXtZ98//usbR6F
rXFaSm5HqRTySffu3bsic3Bx9RdNe/fdd1OZT6PRaPnSF198cWY/8ceKdMBv
UK1+adYJZk5LLLGE6koXAT7MvffeO3Pc0MBNqxam+06/4YYbvPb/yy+/ZNUY
oVEjOklcPzia3kkzYsSIrDE5ro0Ivl6uZ2IuDjnkkJK/tyZMmJDzzGO9WQ7y
SwehtrF9DKhlH7e2NBr8dh/bbrttQrMVxVJObWli3vfZZ5+sbZPQZa9EvjTY
a5IWLVpoTZIyxEfk80uji1EpTA2+E044oWJjCiGEEEKIeFx11VWZtaLvmsVp
gt8MTT3268orr/TWr6svbDe0pGoNahLb+zBx4sS0p1Qz7LjjjlXhl6bOsT2P
fv36ee3f1bTdddddvfbv8t577+XcW88//3yiY0IhnzS+4bR8CFHf9+RoicrQ
aH5p278TVxNS+KNa86VnzZqVlZtUqdyXWgYf0P777x8eL9al11xzTdpTyoqx
JGfa5/uNnDv3eZl0PclNN920onFk5JjbudLrrbdeouNVM3b+vfELffXVV7H7
ifJLc7+Ug/zSQRgrYB+DUr71eUbYfVDXWKQL+lj2OYlTW9qN46HGdBJUyi/9
9NNPZ+0PNdxEehSqLf3FF19UbB5oQTLukCFDKjamEEIIIYSIR736pfv27Rvu
E/mjs2fP9qY3huaiq5tlGjVwK1l/slywlbZq1Soz/6R1FuuNasmXhnbt2mXm
Qf67L81ZbMnYlO399K3z5nLjjTdmjVdKbkdc8EmT/xF1X1P/M01bJufAnVOP
Hj1Sm0+j8cor8kuLylOtfuljjz02y8b41ltvpT2lqgb/5UEHHRQeL/T/0Sgq
FuIg11577eDRRx/1Pi+7fgvtgQce8NY3dTfsvrt27eqt7yjQ/XFrSz/88MOJ
jmlrTdEaVcueWg9R6ybqbsdl7NixOf0sv/zyZc1v/nz5pakBZR+DuD4aake5
5wXNdZEuW265ZdY5KXa95uo8kDed1DdWpfzSxFXZ1/mqq66a+HejyE++2tLY
KtKYx+23317RcYUQQgghRPHUq1+a+phujCZ5nth6y8WuD+i2m2++2cPsK4Nb
L4zcaVE81eSXRufanouv73+0N+1+qXWMRqcLuo3YuX1opxG3b49ZiedSly5d
Iu9nfOLkb6eNrbVPGzVqVNpTahiULy3SoBr90sTdNWvWLCtmR+QHW/lhhx0W
Hqsll1wyeOqpp2Jtb7Rzp02b5n1uxBPY11aHDh289ItWkZ1PT0Nv1oVjQ82A
qVPL3zd86vZ4+Ki//fbbsvstBMfLHi/pfPBqZcqUlyPXTsOHD4/dF9u4/aB9
Xw6Nni9NXLZ7TCdPnhyrjyj9g6jjSFwBsTQiefjWon6YfV6KqS1NHrH9fEYL
Kkn/baX80nDKKadkHY9bb7010fFENIVqS5988skVnQs6Jow7adKkio4rhBBC
CCGKx/ZLo8VWD/z88895c5oXX3zx4NVXXy2r/7PPPrtq1tzl4PrXZ8yYmfaU
agrXL92+ffvU5jJ37tysuWy00UZe+nXrqeer0WTs5y+//HLZY9ramLQLL7yw
7D4LUUib32cNgHKgVqY9L863qAzyS4s0qEa/NDZtez7nnXdeqvOpZvC7Hn30
0eFxWnHFFUtad7Zt2zbUMU7Kl2brrNDwYZUL+r52n+SwUcvU5Yknngj/7qOm
6amnnpo1ZtLxEjNmzEjEp1+LEJPoPqeIXcEfHBe0192+yo2XbXS/tFtbmsY3
chxcTd6o653nHbntqjFTGdDQcM9rU7WljY6cadgykq5PVEm/9AsvvJC1fzvv
vHOi44loCtWWvv/++ys6F/RmGJf3lBBCCCGEqE7qMV8a+1++NTGN3MhyeOSR
R/L2nWbObBzQZbNjplu3bp32lGqOasqXBtd3Sd5SOVDT2b2+o/zO2JxbtmwZ
2p/LtXEwZ3dMHxoH+Xj33XeDJZZYIvJeJs4gyp6eBqY2KW3llVdOezoNhfzS
Ig1cG2s1+KV5Jtrzee2111KdTzVDDBfHCLso75m4kA9HHi71EZPC1Vm55JJL
yuqP96WrGZzP72xi2VhnlMsmm2ySNebpp59edp+FGDhwYNZ4l156aaLjVTsr
rLBC5juiY8eO4bOrFNjWPq7EF5frT2h0v7RbWxrNo7iYnEPTBgwYkPMb8919
wAEH+Ji2aAK3tnSh+vbUObA1ofjmQS+tEth+6csvvzzx8ey4ZvLJS6lzL8qj
UG3pSp8PdGq4DqinIoQQQgghqpN69Euj11PIL40mblL945+rBaj9Zs+bfBMR
j2rzS7t5SuXaAIxd3TT83lHcd9994d9PO+20ssaDG264IWtM9A2S+p7Ehp5P
k3+hhRYKZs2alci4pdCtW7fM3LAzisohv7RIg2rLl/7000/D3F0zlzXWWCO1
uVQ75h7aYostgs8++6ykPkzOUbk6xoVAH9y+vngflsOECRNy7NBRPvlvvvkm
XIf78Llj57avSxqxo0my6aabZo3nI8+8ljnmmGPC48BasFQ4j67O1cEHH1z2
3BrdL+3GicSNQead476HHn/88ZzfocnP32688UZfUxcFcGtLH3/88ZG/e/bZ
Z4NVVlkl8ztiP95///2KzbOS+dJg4p1Mu+WWWxIfU2TjxrGYRn29SvLDDz+E
4yqWWwghhBCiuhk2bFjd+aWnT59e0C/dvHnzsvp3bXl2W2qppTztRbJg67Tn
jT1RxKPa/NLYiuz57LjjjmX1t+2222b1F6WnSH40muH4cX3YZk0tTtP22GOP
svvMB/uT7z5Gf7WasP3S1157bdrTaSjklxZpUG1+aWra23Pp1atXanOpZsgP
5vigaYtNHF9dMe32228P4wWJJyPGrFWrVmE/Seb+EptFPpE5p+QVlepHh6FD
h2ZdI/hvozjnnHPCv6MLXy7ogtpjsg/kmifFBx98kKU1tM466yQ2Vq2AbgLH
YsMNNwx9AaVAzRT7PJLT+fbbb5c9t0b2S0fVll5uueWK3n7+/PlZPk3T3nvv
vZzf7rDDDmEudiMd37T49ttvc2pLUwPc5qOPPgrXb2hu8HfigNKIGai0X5p3
rn1cytXHE/EgfjHfd3U5+Q+sVdCu//HHH4vexmg4pG2bEUIIIYQQhanHfGns
IuQt51sbo4lbDlH6mqaVm4tdCVjXL7LIIpk5k6NQqi2pkaGGoX3uqdWYJkb3
07bPfvnllyX352pjvvTSSzm/MTaAM888s5ypZ1h11VWzxrzooou89OtCbEm+
GvTYnKst/6lTp06Z+b311ltpT6ehiPJLL7zwwmlPKzHkl64Oqs0vve+++2bN
BT+qyObcc8/NuzYstSXtSyD2yx4PzZJSGTx4cFZf1DN1+eijj8P4TXyYv/32
Wxkz/51TTjkla0zyCJNk+PDhWeMdccQRiY5XK5ic6VL0XPBltGjRIuu4+spz
bGS/dFRtaRprmqagVjExF3YMhvmucHnuuefCv7F2EMkTVVuaewjQouB7bNFF
F82cL+J98VOnQaX90uSC28dlscUWC3755ZfExxW/Q3xEvrXMAw88UHK/xtZA
7ZFioS4Y32q+7BNCCCGEECIZ6tEvDWPGjIlcF+OPLbcm4rhx4/Kuu5OsBegL
N7+kbdu2aU+p5sBn4MaroyWJZlqauDWmb7rpppL7OvbYY7P6mjt3btbfJ0+e
HNo+0HP1YesjN8a9nxgjCVwfi92qMb5+t912C+dGHUdRWV55RfnSovJUk1+a
57uxc5vmI5exniCGyrdPmlZqrd5icWtM824sFVezBW1fm++//z5co+Dr8rVW
Ih7QHpO6q0nCd5I9Hn5q8XtcJH5Mjgk1XX799deitqP27VZbbZV1TM877zxv
85o/v3H90m5tadOIISgE+dDEjXCfoitEPQL7O8eNJ0GbiX+fM2dOkrsj/j9R
taVfeeWV8N9NfAf+ONZv+ObSpNJ+aXDjm8eOHVuRcUUQ6slHPXOImedZXyoH
HXRQ2M+tt94aazvyMMi1FkIIIYQQ1Uu9+qXhnnvuCdq3b5/5lkZnrFyfNLj5
EnYjr7EUqMGHdiM2Nr6p1l133dB2QF6nb4488sisOR911FHex/AJNhBsST5a
nLjpGTNmBAMGDAgb2pzY2vg22nrrrXNyCEzj37GxobvM79nO9IGmVNK4uUMH
HnhgyX2x/3ZfJtYZ7e5//etfwbLLLhvWf37qqae8zH3kyJFZ46HjmERt6Tfe
eCPv+aNh36k2jF3QR73FRgTbxBNPPBHaWPfbb7/w+cpzdrXVVgtrnmG/I//z
888/z9lWOt71CzU/TjzxxGD99dcPrwVs8Ty3q8HnSt6qe925fr5K4dYYxfZd
zWCH5H3Pfe+jNUW+vEQfDc3WJME/bI/XrFmzkn13rA14tpq+evTokfkb64kO
HTqE/96/f38vc0cPxn2XJ+mDwK/Os98e7+WXX05svHzMm/dBcPXVV4e57uZd
xv9SW4ZrkXn6ppi1M7nJa621VnhceK/yfC0EMRc8c82xJNYTPW+fVCJfmmPz
2GOPBX//+99DnSFiNWn89wknnODlu9MFvz/3WyHc2tJ249vE1cniWKFxgLY/
mgZmzU+9dluLiXoDhgsvvDD8t549e3rfx2qBXGPuq3322Sf0AaNtTgwGzzNq
oZXjb8tHofuNb1D7XGLfMP/N3DiHaeVHu6Thl+7evXvW8clXe1v4J19t6Xw1
PYqB9Rz19+inWq5rIYQQQgjhj3r2SxuokYW2lS/4Ns33rR9XLwi/G34A811J
TUJs5LYNAF+UT/+cyWkwrZrq1X788cdhji+6YyuvvHJYt9i3nRedx2LsRPip
fI5LDn/SjB49OmtMbBTlwLkweeH4iTt37hxen/z/1VdfPbQ1++LQQw/Nmvue
e+7prW8b4jDynSPykqsRfGXoGkRpqYv8kOPP85X6Cq7vBbsxNhTqLdr/Ts7J
F198kelDfun6A78Nugj2c9J+L+LrqoT2H34FbG6837FDo8VJnvQVV1wRxv24
1x3PYHzTzz//fGifYxu2pY+mfBTl0K9fv6x5dOzYMbGx4oKfCZ9Q7969w2ek
XaPEV2Mtgl8iH3Y+oc+GXylpuBfccct5z1Bnws5X23333UN/KfcUtTOIP/MF
dbntebNWScIna5g4cWLWeOQk+tAiLxZi5rbbbrsmrxu0a/GR+joW+JM4ttxn
TcG7s2vXrpnnKHGa+C55rhETSKztiBEjQn+VHVNAHn0ScbhJ+qWJWeE9wXO5
qXPCcZgwYYKXcYmfQzuHuIR8zJ49J2cOxx13XLjGMf8fDQye5dS24roy31vU
Y507Nzs2y46T4lpgfW70mVg3//zzz172rZqYOXNmsOuuuxaMYzXrRuK9v/rq
Ky/jcqyxCRD/G4V7vbGOJc5gypQpXsb3SRp+adZI9vHhOhXJU6i2dDka/+PH
jw/7IPZKCCGEEELUH43gl/YJMerYfPKtvePoDqN7ZzQBsWsSm25sy9gFbd80
PjsfdmdsMna/tDTyPVzQRsdu09T3v6+G37sp0D+77bbbgnvvvTfMwSEvGNta
VCPvw/03fs922E7px9XBTgL8Fe6+lhvLP2XKy6GmNzZy/Hvkt6D9afvufIDt
3573JZdc4rV/wJfj5jvZjZxaUftwzR9++OFZeSTYDtGgIPfHtaGSH0sOkPFN
kiv08MMPh3+Tjnd98cEHH4T+S/YPm/ykSZMyf+M5bZ9nn3qyUbgaxOW0FVdc
MbF54oOwx6qGen1ozfIexzdYiTUDPpx88I4fNWqU91Yp3XauHXtfGbscsE+j
TbHBBhuEawbe7fjEfPsdTz755Kx5k0eYJMSL2ONtvvnmiY5nIK4WXQe3dkxT
jTV1ues0fG28D/lu4NlZLKx9Xc1zt/F+5jessZPQxoGkdLxZHxCbGed84Pel
/mq5mHc0sTj5cDUcuA+JXyJHmjmgpUTdKeKf0L/A53PqqacWjNlF1+vcc88N
10lcE+TGDxkypChNiVqCY3T66aeHcTRxzu9GG20UxkGUA8eSmAP6e/311yN/
w5oF3zVxIsRyVzNp+KWxpdjnhVg1aTknT6Ha0uWsZdA6pA/lvQshhBBC1Cfy
S8fjySefzLvuxgYXhwMOOCDcDu3vKJuMWYubhu+2XPB3u/P27V+MA9rW5NNU
wq5st3r0twC6lu6+PvPMM2lPq0moS+fOO4nYf/Tt8l0T2NmSso2KyoHfuVWr
VlnnlnyeYrSZsV2hOUDsET6AoUOHNly+NLbpen1O4pNAT5B9y5e/gWaJ7TfB
/5kUaK+wbiAuDU1Q3oX4ysmDi2r23/gt2+Abow9y3JLCjRmydVwrDX4y/DGV
8kebhq5CvUJ9WHtf8ffWAia+xDTy+pPErYFTTp2UYkHvifu71OuWXEr6KBWj
lUBcQSngpyNu45xzzglOOumksNYMvkxqkUfVzfBNEvnSgwcPLvl88E655ppr
Sh6bc8mzjzVKIU1bdLbscXnXiKbhmuSdWur5pR5IOTHI3Bv0Qy2oesD2S19+
+eUVGfPNN9/MOS9oNYhkKVRbulTNQtvmlk8/QAghhBBC1DbyS8cDe2i+79E4
etjkgrINduV8dhL7e45GbeNyIQ/G7hPbRhqQ+429y85nrFQjNyhO3ketQe6D
vb/c49UOfg57zviIfce3o09Av/mui0rYmEWymOeq3cjviQsaEiZnxfVF0OrZ
L13P+dJGw5+6t/n0R1q3bp11rgcOHFjhWVYX+IHd6x+fUhqQg7nMMstUfM1A
jAq59PUKeij2/u68885pT6lJiKd09XWK0ZkuB1evvRxt0mKYPXt27JzcqIYW
cSl89NHHoU4AusHkwNciPv3SvDPsuK1SG34adIhKgXcyfTSl5eHG5l166aUl
jddIzJs3L8wbL/f8UiuqlO8XfHe831hfJhkPV0nSyJemtoKrLSGfZvLkqy1d
qq7IJ598Emy88cZhH7zra/UdJIQQQgghCiO/dPGQi7rkkktGrrvJwSr2OxSf
KLpS2HoK5QuY9bhp+NTKxdU9TKNeDxpp++23X95vevaT/EZ01Mix4H/JDct3
7Gl8++I/KNTwT2G3rGQ9wDRo37591rEpNc+lkpAbYM+Z68M32CUK2ZLK1S4V
6XLRRRflnFOeH6VCfnXz5s0jrxXyleqVevVLP/fcc+E+oUFa6B3g1idGC7eR
oR6Fe/2nkXvEWtWtQWIaNmhqSFJT9+yzzw51xskXJHct3/Oe+vJmbcBzIt+6
Ab3UNDVlKoEbz4O2b7Vz11135TyTk9QTZn3vPhuS9LN89tlnOToFdiOmdJNN
NgnXyttuu22w/vrrF4zzvOWWW2LPoVevXuG2/fv3T2APK4NPv/SAAQPyHl/8
JjxviOmgnjq+mHzrBxrPq7i+S9YkaEvjuyTOMh/UeHfHq4Z6TdXMt99+G+qS
5ztf1IGh7gb3G7W40ezO9z6ilRIPzLuLbetJrziNfGlo06ZN1vk466yzKjZ2
I1KotvRpp50Wu78JEyZkYoNpcfUIhRBCCCFE7SC/dPFgm8lnj6Cub7GY/Dts
HIVw84KwOZULNhO7T76xKwkadEZH1W3YcvgWyZfHRk1YYv6j6nuT4+bWjG1U
unfvnnVs8FNXM9gJXfvdHXfc4X2cfBpj5h4uty6cSI/hw4fnnFPqJJQL+qNR
14vypWsPfDfs06233pr3N/iC3HNNDkgjM2zYsJxjQmxZpaC2gvGPuW2VVVYJ
7/1C/khi0fDZuduynoqzbqtnqO/rHh9yZasZd53TpUuXRMeL8vXdc889iYzF
GjiqNvOGG24Y3o/kdUZBLWVqYOM3c7elPgGxtcXy3nvvh+858qV5LtYqvvzS
aES4+fl8ixx99NHhcySqX+KfeP6g0xGl88C5isNhhx0Wbjdo0KCCv0O7yx6H
mF7V1y1M165dc84Pfmq+Od95553I71J8cWiy8+3q+qg55nG+KYhR53oi7qBe
cqUhjXxpcOuD7bvvvhUbuxEpFPfNc4669VFt+vTpYcwMNdPRTSOOnpge9346
8cQT095FIYQQQgiREPJLFwffn9hnotbcF198cdH9zJo1K1xv882KPmY+Jk+e
nDMO25QLOUJ2n9hLKgUaZVEaaeSvxamBjA1o8cUXz+nnpptuSnD2tQM1/Fx7
ZBrceeedYa7h2muvXVBDkPvHni9x7knY0PJpjNHIgxD+wZaHTXvGjBnBs88+
m4hWAc9Ut9Ysz4dCtRfj4MbyyC9de9x///0ZH3OhZ8uYMWNyzjWanI2MfT3Q
8K9UEuyR7jnhfmft+uuvvxbVx9dff52jwSxb9R88/fTTOccGO3Gl4VneuXPn
YM011wzr1uRbI+MjdnVap06dmujc8C+6x2jKlCmJjHX++ednjUNeNOcoDuPH
j8+p6RKnpsUJJ5wQbpO0VnnS+PBLE0+LhoD9/OEcxamZSn4z17Y9F2rW//LL
L0VtT660+XbkeVYIt7b0nnvuWfQ8G5Grr74663ixTnjiiSdi9YEeCzWi7H7i
3Dvk87INcev1RFp+afceqKd8W76riGOYOXNm+J4u9hmSJGjV5Pu+9tGSigET
QgghhBDpI790cZxyyimRa+WePXvG6ueYY44Jt2tKX9bYhOy2xx57lLMLIa4/
t6m4e1+Q89SxY8ecfcJWXEjLPB9DhgzJ6YscERGE2qP2ccF+W2lGjx6dc37I
hXdBO8/NI0miDhh1qgp981LrXJQHdjz018nPJ9YEmyu5H/ZxJrfRJ/i50cN0
z2cpunH5cH0ENPmla4vtt98+3J/bb7+94O+ow+qea+qJNjImR8806otUihEj
RuScD/wyaIvHBe1x93nEu1E6GUEYN+QeZ2I5Ksm7776X40dlHRyFW/cDH3bS
3HzzzTnHKIl6l8Romlwx8nPR9i01nou8S1ufCF1w1uJNgd+T3E38rx9+6Ce+
Ky3IIbfPWVy/NHFMHTp0yGxPDOPrr79e8nxYT9h661xXxWDqWp9xxhlN/tat
LR0ndrrRIJ7Fjmtk/VOq9haxkEaXhbb00ksXVVuA8Vgvc9/PmTOnpLGrlbT8
0q4NBU3oWoTv5v333z/YZpttwu8q4szddUwl9dHzEaVJ46vxHqz3WipCCCGE
EI2M/NJNg84Qfgh3rYz/JU6cKrYlfHCssYm/zwc5QHZsvq9vOubq9nnjjTeW
1WexRPn10dn6/vvvS+qP73g3Np2WT9+wkYjSXS2Um58E6Kq7c8BXbYO9z9XO
6927dyLzIXe70Hdv3FwkkQtahk3ZF3wf56hrneazliI2H7d/+aVrB/yOvHOp
FVDIv8M7Oao+K3mSjQzxcPbx6NSpU0XGxR7r2l9btmwZTJs2reQ+0dx1z+/Q
oUM9zro2wZ/iHpeRI0dWdA6nn356zhz22WefnN+hw2/rKZMHV+o6Mg7ue4Ba
00mAPoMZo5QatS7k6do6SQ8//HCT26Bvw2/Jgat1ys2XtuuYE5PjYy190UUX
ZfrcYYcdmvw955B4HDS7morjjdKbf+mll8qec71i6z0PHjy47P74NkVv3/RZ
TNzBqFGjwt8ecsghZY9fbaTllza1uk1baKGFKja2T9z1V1SjxkCaEJ/l1jgw
7YgjjgjXcvnak08+Ga6xiRk988wzw/Wlq4XStm3bVPdPCCGEEEIki+2X5vtM
ZIMNIyoOFDsPOZhxGDt2bLhtU7qgDzzwQM54rNPLrfH2wQcf5PRbiZwY9Jfc
cTfaaKOytaeoJ+j2+9BDD3made2C3dY9LrNnz67Y+GiMueOTj+Da09x4dmqd
F5PLUwpGIy9fq4Rdu94hx2rcuHHBI488EtrZ0G+3j3GzZs2K1t0tBq4zNN/d
c8m/+UR+6doGWyj70qNHj4K/i9LgKDa/sJ6h1p99TOJqxJQC7wo3dxYfdbla
zdg+3XN8+OGHe5p17RIVs3jhhRdWdA5oqrtzcGuzsIa2YxWI85w79+2KzI88
VXtuSeTf2XrqF1xwgbd+ycE2MTcHHHBAwd8SL7j66quHv6/UsU2Scv3SRv+f
WsOlaDtFwTE2NcDx51C/uBBXXnll+Nt8+gE2bm3ppZZaSrWl8/Dqq69mjpNP
jR1ip/CD0u8uu+zS5O/xu/HbcmKuqpW0/NJm3We3pvTvqxE0xajJwHcVeQRu
PSqus2Jy8pOkUG3puHr4QH0M3q+mj5NPPjmBWQshhBBCiGpB+dKFidLTpkZy
oXznfBx33HFF2fuwG7ljRuWNxIVvXrffYnInyuGHH34IVlllFe/2ZcBu5+4P
voVGx8Q/2I2a3JXE9mWQV0TOiQFbEPXubB8fevJJ1sjCJ5Xvu7lW9d2qHVf/
lzrNPnn00UcjzyfPWZ/IL13bkI/Gvtx3330Ff0fepXueyeFsdPBR2cfkqKOO
SnzMY489Nudc+Kg5QnyW2y9+JxGEuZj2cUlKuyQfrIvt8cltN/60L7/8MujT
p0+W3u7ee+8dvP/++xWbn3tNsq71DftE38Su+vYl4nczfoxCdZHvvffe8Hf1
UpO4HL809QLMdlF1aMqBetHmnjvvvPPy/o74O3zi/G7WrKb1w8m5tfe3UvoW
tcihhx4aHiN8fT5jJoFzSt/EdxSyF0ycODH8HTrN9Yjtl66k3vSYMWNy3vX1
oJFuasGZVg3XTb7a0th6sAGVQt++fTP9VLqmiBBCCCGEqCzyS+eH3Ft3nb3J
JpuUnLc8YMCAUN+YvOV8oBFn295M81Fzl5hbt9+k9Z/QZXLH9BX7GpX71FRO
XCPw7LPP5hyXSueRv/jii6FuLmOvttpqQffu3UO7Ls8YW++Luq9vvvlm4vMx
vqmoprrkyeD6+XzXsqfmWtT5vOSSS7yOI790bXPwwQeHcTKF/BHESUVdS6+9
9loFZ1qdLLHEElnHJOlrAg1+V099zTXX9OI3QMfdPcfU0RVBWLfSPi6VziPn
/jQa1qyBic8kxoja0WgYm3lRv8WOc6sUbrwo16RPZs2aFa6N0EbyWYfCQK6v
qUdUyM5v1krEfdUD5filjU8tKX1lE+tATeJ8EDvMb4qN63M1ZK644gpf060r
qPlktBfwDfsGDSbz7ixUL2u//fYLf3Pbbbd5n0M1kFa+tImvsRvfpbXOZptt
lrVP/fv3T3tKeWtLl+MzRyuFPngnVroOmRBCCCGEyIa4dr5XLr744shGnaqm
/rtQs2376K7G3b7Y8dEWK+SPrTaIq3V1JLEdJK0DNWLEiJy1PfPwkUsalV9I
bZ+kmDt3bk5d7sUXX9ybFh73hbs/nTt39tJ3LUNutHtc7r777orPg5qV1BWn
1prxRXM9dOjQITj//PODV155pWJzQeMgn19aOq7+4R536435ri3t+lFMayov
Ni7V5pemltsNN9zg5f0ftQ2xImY/t956ay/v/6iGrdbXu6BceE655xhfti/Q
YCRewm0ch6b+u1Brantss+XixsmdeOKJHo5Ifrjm3HNBbQof4NuOemaIIEs3
k0Y8R6VBMx/NYnxw5rojRoFvk5NOOilcw8bVYfYFmkX28WFOPjG1RvDDJwV9
F7qHjaYSPnfydOuBUv3SfOuxhuH6Syovn/gD5oR/NF8tmV133TX8DfWQisF+
fqJzH7feVKNgaqh37NgxsTGOP/74cAzysqMgZ55rrGXLlt7ztauFtPzSUfXQ
fH+DVBo0vd3ay9VcW5raF6Vi/NLkggghhBBCiHQx36T10JZddtnU6+AUwxdf
fJHRTTON2rel6hHFAd+3e9zIX/NBVP43deeSAtuXO55PDdDrrrsup/9u3bp5
679WmTx5cs5xufPOO1OdEzbONO0u2FnzPZcGDx6c2rzqFeIg7GOMj+Hnn3/2
1j924nznc8aMGd7GgSi/NPuTFoWu5VprxKykDb4w7MLu3Hi/+MLVVq1U86HF
a9fzpZ166qkejkg0aOW6+7DccsuFec4+QA/a7Z/9E0FYS90+Ll27dk17SuGa
oVr8o7Z/hYYeiE/QIaDfJGNFjWYw+W1REKPH3y+77LLE5lBpSvVLE5uMvyVJ
vyWYmjdRNZVmzpwZ/o17k/dUMVCrmjxsdNubqlvdyPTr1y88tknG7Jr61Wg8
RMG7lL+jpVavpOWXNjoDdvOtxV9p3H0qFM9SKQrVli7HZz5w4MCwD1/2LyGE
EEIIUTpt27ZN3Xbsq7GGTjrfuFywWbi+4X333TfR2reGqNqHtGJqihXDgw8+
mNM3ms9JQPzB0ksvnTOez3hl6g26/Sv3Ndovfccdd6Q9rVRxtQ3thh58tfHd
d9+FdU/JEatFevXqlXWM0Qb1iev3tptvO83QoUNzxkgzX3qppZZK/V3uq5Hz
njZR8VrU/eQe9EUt+6Xd/Jwk7YTk6Lr74PMZGPVuRCNa5Pqlu3TpkvaUqgru
Jfv4+I6pwe/oa62fD3z8Zl2Ov9aGvDfea82aNasr3dT580vX8aYuMHHKSXLu
ueeG80Kzw8XofCt20j/cC2jnJw116DmHM2dmj8X6gncP79dC9adrHfml/XH6
6adn7Q/aCGmTRG1pwO5GP5WuQSaEEEIIIXIhXhobP3rbSbR27dpl2YiTGgd/
Ydp6Q02BXcishU077LDDio5TLxc0j9y1PfX2fIGWqNt/EnW1YMyYMTljrb76
6l5zX1xdRRq+6kZn0qRJOccljXqM1YRb69huY8eOTXt6OZja6dh0ahFs9vYx
Puecc7z2Tz5XvvPpK7fSUG063s8991xw9NFHJ/autrVC1lhjjcTGoXYsfsK0
ofaDe3557/sEe2xSx7FQo15Cubi1OJKKlcH/445F81lrd/To0Tn9t27d2lv/
tYyrGZCknnQt4q43qQ1Sixj/uhuPZ/yjvFvqiXLqS1cCoxGx6aabZv072g6L
LLJI+EwkZkDUJiYm7Zprrsn692HDhoX/fuCBB6Y0s8qQll+aej7uu77WdbyN
toJpffv2TXtKeb+t27dvX1a/xMktuOCCYS1DIYQQQghR31x11VWZdeRf//rX
tKeTKtjJXR9npTQE//Of/wQrrbRSztr+6quv9jbGE088kdM//5YE5Ee6Y5VT
aygKV2udlkYd5Wrjqaeeyjkuvmvu1hrbbbddXj9mkrqZpYIePXMbNWpU2lOJ
zWeffZZzjH3nKVx44YV5zyfPUp9Um186aciHNfuJtmw9Q31rV6eaNn78+LSn
VjUstthiWceGmplJcMUVV+Sch3XWWcfrGNhx3THSqKNcjbRo0SLruOSridqo
uPErtRrPcMEFF4TzHzRoUObf0Es39cWpMV1PVLtfGm0p3kFLLLFE1r8PGTIk
nG/37t1TmpnwwfDhw8PzaNe/wK5gvl9rPYe3KdLyS0fpSxPTWavgn8VPa+/P
o48+muqcor71TOvfv3/J/X744UdhH2gXCiGEEEKI+kd+6d8xtWxof/rTn8JY
5kpCzmaU74OYeV+Qd+SOkcR3DZrnCy20UM5Yjz32mLcxyK3iPLljfPDBB97G
qFXGjRuXc1zwVTcy+FLyfT/7vC59gB2VPBn0K3zWZK4U5Oa7zzHftmBjs41q
vvUtqk3HO2kayS8dFXOA7ma11LStBowOqWnHHHNMIuOQ3+2eC3RsfbLTTjvl
jFFJW3k1g6asfVzQaRJ/QB6xfXxWW221tKdUEuhWMf+ePXtm/u3mm2+uWz9A
OTrelWKjjTYK54afB1jDmOduLfvSxB+1I9BiMxjtMt816quRtPzSt912W867
vhK67Unh1ptB/91nrZlScL/1fH5XYxN74403PM1UCCGEEEJUM/JLB8H111+f
OQYLL7xwcM8991R8Dl27ds1Z1/vW93rvvfdyxnjggQe8jgEvvvhizjgLLLCA
15p1Ud+crVq18tZ/LRMV40A9gEbm2muvzfv9nMQ9UA6mXtfZZ5+d9lRKwq03
1qFDB+9jGA3EqEZcjE8aLV+avJ5G8Uu3bds259yeeeaZaU+rqthkk02yjg81
WZLArW9MGzlypLf+seFG5ca/8MIL3saoZaipbh8XdJ3FH/Tr168u1pv4Ztz3
Mv5o/o11db1R7fnSYLTV+XaC+++/P/z/rra3qD0++uj33E9iDwx77713+G/k
Utc7tl+atXSliKolZuI+apHevXtn7csWW2yR9pSCE044IfIbjHXW999/n/b0
hBBCCCFEjdDofml8UsSdsv9LLbVU8Oyzz1Z8DuRER9VVJD7WJz/88EPOGNdd
d53XMSDKZ4RmmU969OiRM4bqIf7OnXfemXNsGr0+3UsvvZTXj4l+bLUwb968
8FlA++STT9KeTkm49cbOOuss72NE1SQwzXc9skbzSzdKvvSUKbn6IbS33nor
7alVFbvttlvW8dljjz28j2Fs92577bUZ3sYwvh67Lb744jWpSeGb3377LUd/
phF8JnG49NJLc2zvtair8O2334bzp24QGD81Ot7oedcbteCXRoOCuZma38aX
V4t1XEQ21JXhWcG7BtD0Qo8ZfYpG8N2llS/t2iF4v/mu8VNJNttss6z9Of30
09OeUt7a0ltvvXXaUxNCCCGEEDVEI/uln3/++VAvl31fZpllgldeeaXkvqhT
SR3G9ddfP/a2UX7cli1bhrZC35APbo+TRE6mW6eb5rNWIbZAjo87RqNrVRtc
+2mtf4/7AFtklLY87Ygjjkh7ehnMvWNrbNYS5COgjWAfX3TlfYOOfz6/9Kuv
vup1rCi/NM/ReqVR/NJRuR7t27dPe1pVB/WX7WNk5335wmgLuz5jn++tqFoO
J510krf+a5l33nkn59ig0Sn+YPTo0TnH6OOPP057WiXBvcW6kJiMU045JbFv
gWqgFvzSpo7U+eefH8Ym4rfkm7Qa5yriYzTZiQ+mrnsjvXvSypfu06dP1n3f
okWLio3tm6ja0g8//HCqcypUW7pv376pzq0Y7rjjjmCbbbYJOnfuXHLcPhqA
6O3E0VOfM2dOqHF+4403BhdccEFw8sknB927dw81M/j+YJ1aKl9//XVoa9tq
q63qUvtECCGEEPVLo/qlqVvDdz/7vdxyywXTp08vqz98ovTVsWPH2Nui1eau
6/ENFIL5zpgRP5fIrRV51FFHxe6jKVw7Ns1nvW7W9G7/G2+8sbf+ax3sHfax
4ToXQXDAAQdEfkOjU1sNvPvuu2FeBa2Ue7spXnvttTBmYZ999gnj2dHxxCbt
04/r1hsjFuDHH38M/0bNRPxPJ554Yjg23+B8i1999dWhlkNcqO8ZdT59+1OU
L11/oPXevHnznPOK3n8hJk2aFNbDaCTc90kS9t2oOoXUgvYF/h3m7cZrYSMU
QfD000/nHP8JEyakPa2qAj+Ae4ymTJmS9rRKYt111w3nT64060PWHPhv65Fa
8EuTF23et+ecc07436eddlra0xKeYK3LOUW3adVVVw1jN9988820p1UR0sqX
du0Q66yzTiLj8AwdOnRo0KlTp8x3Va9evUI9Hl+4taXxURtdKGL3iP3Fv7n9
9ttnvqs41knWny5UW5paYtUMNd9tfZhu3brF7gN/NBqLbE9Nj2L0zain5urS
uG3NNdcsZZfCfA1iRu2+iDcUQgghhKgFGtEvjZ2Cb0P2Ge06vivKhe8S+qM2
ZxzwCUWtTQv5yfHzsB7GxxwXU0cuyXMeVSsbX7Iv7O9c04g9Fb+z//77Zx0b
aqiK/NrP+Bh91ySOC9oIO+ywQzifiy66yGvfEydODO0lZn/J9UV/je9fU2+V
3FGTmzh79uzgsMMOC2O458+fH2ssNweVeHQzB6P5hk0FXYn11lsvU0MBH2H/
/v1j6YgSUxN1Pi+88MJYc24K+aXrD3Il3HOKdgr5BvnAh8m1u/vuuyc+P8a6
7777gptuuim45ZZbwmfX++/PS3zcKFz9jSR8O1Hn49hjj/XW/w033JDTPzU+
xe9wjbnHRz77bKZPfy3nGKENX4uY9cCZZ54Z/m+XLl3SnlJi1IJf+p577gnn
xrqL7zp8F/Ip1A/UvrDvN2pjNApp+aVdW8cuu+zitf9nnnkm2G677XK+q9q0
aZPR5jr66KPDeFx4++23Qx0s/OVxYxvtNTkNTW+g7ly7du3Cf+Nbim8qvq3M
dx12IvS+k6hV8ve//z3y+4t5VLs+vRujznM3Lu71xTO8KdBX4RrgecC1s/TS
S+ccP767S4Frwe2r0WJohRBCCFG7NJpfmhhTE1O48sore6slSbwlfcat12w0
9OxG/nQhTJ3E/fbbL/Y8XY1tvqN8c+SRR+bsE5rpPpg79+0cnWD8a6oR+Qeb
b765l++ceoN44tatW0d+S2OXTxPiWZgHPi9fNSvRGNt3330z+4jvd8iQIWHN
AQO6Eca2wvOEnG00Ps02W265Zawx3XpjPN/45ue/yVfkfYP+m4H4cXzX5veH
HHJI0fufr2a4b112E3Mkv3T9gK6Je06xFxaCe4ff9evXL5E5cT3z7jQ5GFEN
OxY6feTPVKo2Q5Q+CbErPnnkkUdyxujdu7e3/tHEsPvG7+NrTVIPEMtjH59F
F120JmsnJwkxU8bebxrvs1rE2NSXX3758H+rPb+tHObPr36/NDFI9vnwqRUh
0sf4Zs35NXXEG4G0/NIm98D+FvEBNqQDDzww0y/rtcGDB2dpQRPTteOOO4Z/
J3f5/fffz/JBxo0VdzX1iP81dhb6veKKK7LydcnFJ3fa/J75+l4v5qstjYZ0
NcO6xtVK4vjFgfPr7vfMmfHzW6Lqp1x//fWx+wHXlpiUPoAQQgghRBI0kl+a
nEjzrYAGLPGrvjCasuh8xsHV1aY1pXmN34Xf3XrrrbHniWaua+f2zcUXX5yz
T1OnTvXSN/pYrn0ZDUrxB8b2YZrv/NtaJir3j0b+UFpgozI2K1/1KtEBt33w
6Hbmy3/jO538DfMtax8XYhyKJaq2tPFx4x/Pp3NGrWhbYzeO/SiqBgLPVJ8+
FeVL1xfEa7j+JVpTddBN/MQrr7zidT7EiRx00EGZeSy55JJhLi95LvjAiSta
ffXVc+ZLfJ1PHZJ8fPTRRzljo3/gE9Zi7hjklvnA1FixW1xdm3rHrb0dNx6p
Udhwww2zjlNSMSpJg9as2Ydll1021GupV2ohX/qBBx7w4psQ1Qm1c8y5XWyx
xUqqW1OrpOGXxgdrtJhMQzOlXIjjtb+R+Mbi3/LBOi7qu4q1W7Gg4ePWljbf
Vfi8ibuJAv85eoBmG/KbfRH1rWcadb2rmWnTpuXMmRpXcRg5cmTW9sQmlOL3
j6qfUopODd+77jfClVdeGbsfIYQQQoi0sP3SldCnTAvWbWjVsZ/k1/rUt8GX
ZI7hl19+WfR2Ufl+2Mvx0+Tj22+/DZZYYolQM4r/jgvaU+6Yvr+Ryb1wx0Bj
qFzwtbn+BNmXsyH2wv1erOdcmLiQ8+TWYDKN+7HSUOcKOxXnzNd5evnll7Ny
nrGJFNInBvKWXTsOjbj8YslXb6wYXW1iJ+xteE4Vw2233RY55nPPPVf0vJvC
1HuUX7o+QBvbPZ8rrbRSwViG119/PbxHS639lg/eaSuuuGI4B2JHqGFrdB9d
8F2g0+jOnVitfNv4wq3NfPPNN3vtn2PPc9Aew0d+E8fF6Fzaz8Nq9E2libGf
m4b+qMgFPQ/7OKFdUIvYGiXEJNQzteCXvvfeezPzQwOY2KlGhNgw1pzUcKA2
U71oNuA/NOe3KV2WeiMNvzT1h9x1Et9F5UBtNVvLhrWgrT0VxezZczKa3naj
BlGxPPjgg5HfOAMHDmxyW/KA7W2air0slrvvvjtyTrRHH33UyxhJ4cYZL7fc
crH74L1v98H9XQrudy8ajqXg6g3x/V+KfVAIIYQQIi0aJV/6pJNOCvdx7bXX
jl0ztSnOP//8sG/yHeNgak3ZrakaSJdddln4O+rjlAL+KXfMKVOmlNRXPqh/
7dqYqR9ZDuRzoA9l94mNvhptTGmCvqp7frHLiT8g3zHKB0tucJz6xuWCHxq9
VMa+5JJLvPQ5d+7crHx5auYWqlVv42r80/D7FktUvbFifUv45+3tjjnmmKLH
5b3ljusrNwC7qKsBLL90bePWlqM1FX9h7g1fObwwa9brGX/voEGDispZxM/a
uXPnnPmTj5WkrrfRmTHtjDPO8D6GiRs0rWvXrmX3ecEFF2T1yXP/hRde8DDb
+sKN1VKuTTTu9WTqfNYa5MObfah3vaFa8Ev/61//ynqWNxq81/bff/+c99oW
W2zh/Xs9DYj5N/tEfFkjYful8QlWAuJS3fd+ObW+yGNo1apV1vp/ypTi/Nwn
n3xyznUdJ3fbrS1NKzaWiG8/e7sePXoUPW4hTjzxxEifNMf5u+++8zJGUti1
rUq1pRHHavdBjZ9SMDplppVac23nnXcu6foQQgghhKgWGsEvbepCEreKji+5
PqU08qyuueaaUKd6wIABoc8FG4LJ4cV2G4co+3IheyB2Z7R60K6Oqztk42qH
X3vttSX3lY/DDz88awzqb5cDeol2f+imU7NJZGPbt2hoNIpczjrrrMjv6tNO
O60i46Onz3ODHMymdPuLBd2DtdZaK2t/4uQnROWRfvDBB0Vvv/7662dtS4xN
sb4yYlnsbclLKNaOhM3IjYPhWe+jBq79frQb565eqXe/tHud0h5//PG8v0e/
hPgOrslCWiZxQNfC5PHG1T0kD8LVhaQlqSls4vpMoz63b6iZbY+BLkw5tmT8
z3b8Ef+NpoPIhmPs6tCgfS5ycfOS0C2qRQ1sE2tFfla95KTmoxb80rbuS5xY
wHrBrW9vN/zVtQ71wtkX6mbx7m8k0siXdtftaNGUCs8Ld80Yxw/pfpPT4mg1
u7WKqMFQrD4O31/2tuTR+tDHc+tZmFbt9T+iakvH/f6Oiv0vRWuN50CzZs2y
+imlfgM18tz5zJoVv9a1EEIIIUSasCarZ7/0mDFj8tbB8d3ixija2l6mFdIX
J8aW35SrHejGi5IL5pvXXpuRZRPGb1SqPcjEFZhGrKrP2uD1BH7VpP0H9QC2
5AMPPDDn/uNZ4Vuj1oZYcmKijZ9k1KhR3vp24+pXXXXVWPnf5EDa28fRLP70
009zjiU2/GLh2VDO9th+3BpsO+ywQ1k5pGg3m3z2qBanZkMtUe9+aa5r+zzi
/yx0n/Tt2zf83eDBg73NwbzTsLmX4hfC7oRPzL0mk8oFHj16dNY4cbVhigFb
a9u2bbPGKTW37MUXXwx9AKYfYvluueUWzzOuD7hm7GOOj5ralCKXqFrr1Kus
NYhXZO486+udWvBLm/dBo9UeNqBjVujb+rHHHkt7imXRpk2bcD/i6DfXC2n4
pXv27Jl1/Rx22GEl99W/f/+svqi7EucZcu6552ZtT951saBvx9rF3v6ee+4p
enu+f1z7FzUDyoF3YD6bmo/aK0kSVVuaWjpxII/D3r7U2tLUtnPnUkptaWNP
MI0YGCGEEEKIWqOe86XRyXXzQJJscbUPXd3cQjl41Cki1hX9qHfeeaes4+Ku
q9EvTgK+Uexx4mhXGc4+++ysPsj1fuutt/xPtk7AF2cfL+5vEQ2+afL43fuY
b+7zzjvP61j4nvBBt2zZMhxjmWWWCcaPH++tf7T4Xb8stavisP3222dtH6fG
qJsTQL7y999/X/T28+bNyzkPcX32PF9ce0mpdVKpt2300KNq+tLuu+++kvqu
durdL+0+IzfYYIO8v33yySfDa2qFFVbw5i/AB45tk/u1FDuUoVOnTjnXZFIa
sJ988kmOfTSOlkKxUFfevodL2R/sfcQa2OuqUtYejQLrVtk1i8et6+AztqwS
EE9l5v7888+nPZ3EqQW/9JFHHhnOrR5yg0shqgav3ZKIna4UfGeYGO04sZb1
Qhp+aTe/me+TUkAH27UhUXMlDraGOy1OXgFxefa2rBnjxMN+9tlnOfdSuTaB
fFpjNOpZVzNubelS9OSoD2/3sccee5Q0F7cmSCm1pd2aZFwfqlMjhBBCiFqk
Xv3S+GlcbdekW1w/kxsvSf5TFNixqWPHb4YPH172sXHjXRk3ibq6aPO2b98+
axzqPhUDeqlHHHFE1vFB97xecxR9QMyue83j7xP5IUcPO0HU/cz15iMvn/vc
3L809Ap818xzbR/ca59//nnR23P/o1Vs91FObWl83HGYNGmSFxsHMTeuHQkd
izhaq9S6tvPJhg4dGnl94KvEzlhvuoz17pceOXJk1nlETzsKbHrGfzxu3Dhv
47NOMDak1q1bB6eeempYFz4u+MOirsuk6nHa73JaUnUy3fwi7KDFwPtvxIgR
WRoHHF9yp0V+yCWzj3elaoDWKgMHDsw6Xk3Vpq82TH48a8Va1CCPy/z51e+X
3m677WrCr5MUbv0Zt2200UZpT7Fk3nzzzXAfaqH2bhJU2i/NMbZj6IjlL/W4
u7F/fFt8/PHHRW/P96UdI0eLEyPH2tDeNq5O9ssvv5xzL8WNVzZge2Ft5n4n
2o3vXGJ6q7U2hI/a0nadcRr+5VKw7wta3NrSXFuuxju5/UIIIYQQtUg9+qXx
sSy33HJF+5N9NeLy4+LqVro5SNRQNrWpevTo4ekIBcFWW22VNe7EiRO99W3D
t4ypo0lr0aJFwdqFxrZMPqnZhho8SdTArjfQo7LPKXk9ojjQqXXrThk7xMkn
nxw7R5+4CmpIb7311ll+zCTqmzI3N084bgy3GyNDf+RIFoubn4D9Ig6uVj/t
mmuuidWHgRhyt/4uz6CmaoARr0PeEjYt9t/4Z9wYe7fxWzTTt9hii/C5Wusa
uPXulybv2b7XeSe5vopXX301zKMux+6UD/TA3Wto9dVXj6UvAGjnuznMtKRq
KLv3KDWnk8K1xzJ2oVrT+Nrs2B8a/tZG9APExdXQLVePp95x6zmWU7s0Dcz7
jLVJI1Dt+dLMx8STsg5rRArVl6bxnqvVZ/mNN94Y7gNr0kak0n5pNG7sa4eY
3VKgppqrQbXzzjvH6oP8CPdaxqZTLK42B7WW4sDxdsdvKu4MjbptttkmfD/w
TcO3HVp9cWxhxAKQ/4t9i3hG0+g3jg65T7At2XYlWvza0nNy9rUUzRF8yksu
uWRWP3FrS1966aVZ22+88caJ5JcIIYQQQlSCevRLk+8WZw3to7HGLAVsgGhT
m37wQeMjJqeqX79+Ye0aYwNmLeuL888/P2v+ffr08da3C3YXckrs8fjewteM
j5pcyTvuuCP0u5s8RRq2mt69e5fk729EXNvOOef8v/buO1aK6v3jeDSKiUQh
+AUUrxEQLCAqKASUIomiYjAWEAQLV27QPyhBBYwo/hQ7RWKhSBEIXVERUBTR
iBKjoFIUUL+0C0RQinANCf7h/vIZMvM9O1vuzt7dPbM771cy+RbuzJ7d2TJz
nuc8z//ZHlJRURy2d+/eKT/jilMpH1nriBX71HpKxSC1Llm9iBcvXhwbPXq0
Mw9jrtlVDEw9ao8cOZKXcfvr5btxnCD8sbJ0tY39FB/zx8WD5rn4c8e1LVu2
LNAxTKrVoHNl9pjVGBU31nPV3JViWfpPrR/Qb5+7DkDxrTVr1njHqi4u7d+C
rFMPo1KPS4vW0JrrWLRWQbU8tP5da//1+dX6pnysHR04cGDS90028WTz2sHd
9F2TD/qOMx9Ha9zySd+z5tydcg31mdbadc0FqueorlvMOvv6jPfo0cO5pkD1
fvvtt7hz2qpVK9tDKgrKQzJft2KK5Xfs2NEZc3l5ue2hFETY49JLly71xqZ8
xijSve0dd9yR8Fum3zc3h1pxwmKk3yONX88vigodl/bntGVbt1rzL/73Y9B8
23HjxsXtr/otmUrWWzpon3WtB/Y/h3Q1zVVrJx/zY+b20EMPBXoOueLPJ9MW
tLf0tGnT4vbPtuaIW7PE3IL09NHfmnWBVB8t6HMBAAAIk1KMS2v+VPGlQm41
mQtWrWDdu/pzc7VpLcacOXNy+OqcpFpL2cahsqVYntYwpeslpliAalWpvy81
u4Px11nV643gVPtM/ez89deCbprjV+6FYqT5pLkO/2MrNyeIbt26xe2v2teZ
8veWVq58urWNfspj9+eOawtSLy8VrUFVbUzlkif7fjXHrLUQc+fOTahBl6qO
tzbNG2m9rdYc6vOn7/FiXdfjikJcWvQZceun+jfNheeydrdpyJAhSR9z/vz5
gY+VrPd5Puf9/PVWa9IfOxPKeVE/R9VTT/dde9FFFzm95Ddv3pzX8ZQa/5qb
oOuxosqfZ1nTnp2Forin+zuo/KwoCHsdbzdPSTl0UabrrpUrVzrf4+qto2tn
xeYGDx7svD5BaxaFgd5rbr7j8OHDbQ/HikLHpf33Q5WV2fWy8teA0vbVV18F
Ooabk+Bu6k2WKX9v6WzqwDds2DDhOezatSvl3ys/RLl/6qHcv39/57tJeZrK
fR4xYkTsySefdK7HlAM/YcIE53zqGkI1hRSzV1625sJ0D6HrXN0/VFRUOGsO
dEzVo1IunA3++zjlOQal/FXzGLfccktWY/H3li4rK8t4X30nal7QvAfNtn86
AABAWJRiXLpYqb7T66+/7qxz1Rq+oPdAQfnv3wrVi1hxOq1NUw0lPVf169O9
zapVqwLXMsVJ/pquWmeAmlG9X/UC69evnzNHoXmBdLERzQGof5Xu2bOp7ZUN
zTP7x6Ec7iC1FZTv7e9LvnDhwoz3N+OY2hSfDUI1k/3PIR/vX323fPHFF84a
WM2t6HtH6xk0F5oud0C57ZqDUa335cuXO+dWc6R67cPaR60mzPUmpRyXdilH
S78/+i3Sf27cuCmvj5esl7rqJGaTh2XOT7lbPvvdam7dfCxdrxSCPmfbtm1z
8kbc+U99z2pNdb76aUdBly5d4s5n0HymqNK1qvm6KfZSDObNm+eNOSpz2WFf
L62YhMYVtHdsVChOrddH+dvF5uOPP/bed1prGUVmXDof9WdMW7Zsifusq/9u
No4dO5awVln5BSdOnMj4GMq3devduVuQ3tKKD9fkubh9zf33qFHl7xWeTW9p
97va3bLt1X3jjTfGHSfT3tK6V/fnkCvvGgAAoNgRl44uzcOb17fZ9nOFfTNn
zow7l1pvjtzSGmCtpVZ/LK1tVJxSc7uq/Wurjqc575VtDre/t7Q29VrOlNYZ
m/sG7Qmg/BT/4ytPH3ZEZb20TZqj1jp7vcZNmzZ18rSCUqw2Wd8/9QfMlw0b
NsQ9Vra9G2Gf8mrMXCvVlEBmND98/vnnx8UslMcWdsqxc8dcTLXHayLMcWnz
+1TrEpFI6yz1+uSrD04+qe6Qe35VRziKCrle2t/LSmvus+HvUa1NPdaCWLdu
XcIxgnzndu/ePW5f9XILQv2K/Y+venVRpBwBs6eTtqC9pbdv35HweuocB6Ue
0GYNbm2Z9pZWLSRzP61fBwAAKAXEpaNLa2zVl8Y9/+TrFy/FIt3zqHOq3sco
fZMnT064V9bcTBCKY5n7B+0b6++1qfpzQSTr6a35WthBXLowFB9RrXrNmWVj
+/btCZ8bbcozySczD0U1gQtVZwW55Z+3njVrlu0hFZWXX3457vULshbOBn3P
nHPOOc5YlRMTFWGOS6uWerG8f2xRraJzzz3X9jCy0qRJE++eLJs+tKWgkOul
tabYfSx912XbQ0mfRf91leorBfHCCy/E7R+0BpR6A5n7L168OND+qp3tfw7Z
5D+WgmS9pbW2Pgh/7r96TyWrS6b730WLFqU8TrJ6SdX1w9HjlJeX1+g+HwAA
IMyIS0eb29vsfzndxIOKje5pTjnlFO8cqocToiFZ7+Og9f/9fclVN9FPc9q6
D1ZtOL8LLrggbv8gcaqjR48m1BDv0KFDoPEjt4hLFwfz2s2c+8x3bXl/jYZ8
rs9G/mh9tHsOVd8zSI1SnOzzaNYrUE/6MFu/fr031ijVOQhzXLpr167euDZv
3mx7OKGjNdK6t1EuVLHRfRk534VbL61+O+bnXH2Os5Us3/ezzz4LdAytrzb3
V890P12rjR07NmmMtHnz5nH7B+nLrJ5Fipua+7dp0ybQ+EuJ/z759NNPD3yd
rPNnHuPWW29N+Buthdbrfvnll6c8jpmLpE33z+no98qsQa4clyB9tgAAAIrB
nDlzvOudXr162R4OCkxxJq15Ig5RvIYNGxa3fi1Z7BClaerUqQnzJ0H68Ome
V/fo5v7qQen3/vvvO//24osvJvybP6+/qqoq48dPFldX707YY/Z3GDFihO3h
IIUrrrgi4bNTqPNlPrZ67gXpZw/7/L0btPYXwZk5PNo2btxoe0gpKf7hjjNK
9T/DGpdWXxjVf9eYVNeV79BE6pFTrNchM2bM8N5zgwYNsj0cawoVl1aPXvdx
9LkK0ovITz2a/NdWW7ZszXh/rY0/88wz4/bX+8HPzfFLltt35ZVXxu0fpAZa
srj68uXLM96/1Ph7Swdduy7+/Otk10zuWuj+/funPM4NN9wQd5x0vaV1L6+c
FnPcyr8AAAAoNaojqZpup556amzJkiW2hwMLdA3tXveeffbZTq4tioN6Gtat
WzdtTjZKl/pb++cfgsSFtbbav//evXsT/s7tk5csZtyuXbu4/TPNQ9ca7GbN
mmV8j47CUA11zespL//bb7+1PRwk4V8bpK1BgwaxAwcOFOTxly5dGvfYQWv3
w64+ffrEvW+45suOeuGY9T7C3CO4R48e3jg/+OAD28MpmH37whmXXrNmjTem
jh072h5OKI0cOdJ5fbTWv9iol697fqPcI6EQcWld95xxxhne4yhXuyaWLVuW
cH0VJC783XffJeyfrFbzI4884vybHs+vc+fOWX1v6f6rRYsWcfv27Nkz47GX
mmS9pa+66qpAx1iwYEHC+UxWE93tifXuu+8mPY7WU7u5SO6Wqrf03Llznfk4
/Y1qRmjNyLFjxwKNGwAAoJgojqH4NKJp586dsVq1annXya+99prtISFD5npZ
rZUOUusLxe/QoUMJ652DzLuaOSnamjZtmvTvFD9W/oPyIPy0lsU8htYBZcKs
1aGtfv36zjw/7Dt8+HDs4MGDtoeBJDTv6K8RmWpuM59Ub999bNWjRXHQ+lHz
N0PraJG90aNHx+V1hvF7U3PzZv7ivn37bA+pYMK6XnrMmDE5i6OVIp0nXRNe
fPHFtoeSlQsvvNA7vz///LPt4VhTiLj0c8895z2G4n41zc9TfyF//FA15TP1
8MMPx+3bqFGjpH+nes/Ka9Lj+Zm/K9rUNyIT6m1s7levXj3nOzCqkvWWTnWf
m8yuXbuc/vb+Y+geya9t27bOuU7VS95fpyZZvoK+K2677Tbv3y+66KLYF198
Eeg5AwAAAMVoyJAhcetnyMsMv+PHjzt1ndzzlqwvMErfnXfeGXefu3VrZvXm
pkyZknCPnKxn1rZt25x/Gzp0aNLjqHapeQytt62OelCrToe7j2reUZ8MqN64
ceMSPreqZ1Bomiszx7By5cqCjwHBmXPmqk2ZLNcImVNM4Zxzzgl1jNGcm1e8
LErCGpc267mq7g3iudenyWoch51yvd1zq7WayguJqnzHpZWbq9ir+xijRo3K
yXHvueeeuO8NfYdmQmvj/ddnyfqjK96pf9PvcTLqx2UeI5PaRapdbsZQVfNI
NbGibMKECQnnQ1smOfyqHaYYtn9f5Xj5ffrpp9V+X5n5E+71l6uyck+svLw8
dtpppzn/pnwF9Ujn+gwAAABRoVxgM8b51FNP2R4SqmGut2jcuHHSnGuUPtXk
NO91J02aVO0+r7/+uvO3qg9m7pusDukDDzzg/F26vuXK+3eP8eyzz6Z9bNUy
u/baa72/1zp/1QUGkN6GDRuduUbzM3v33Xdb601q1ipVP8Qoz78Xg02bNnvz
ntpWr15te0glQTU33ddUtYcUlwqTV1991Rvfgw8+aHs4BRXGuLRZz1XXVmFc
Y2+TaoJccsklTl2H7du32x5OYGZsUnmjUWbGpSdOnJjz4ytf1j3+FVdcETtx
4kROjqs8O/N7Q/HN6rz11ltOTzz/fdWAAQMS/vahhx5y/m3Tpk0pj3fNNddk
HG/XNeD1118f97iLFy+u/omWOHPtsbk9+uijaffT946+g3Q+lU/RsmVLb9/a
tWsn9KtSH2hdW6WrReLvLd23b9/Y559/Hhs4cKB3Xa8ct2eeecbJtwAAAACi
5ssvv/Tup3TdrdxbhJPm2ty+hjpn6lWHaFLNMLOu76WXXppy7lV/q5wT/d35
55/v9MEy75P9a+61VlpxY91Pp6Pj6P5dx2jSpEnKmneqfWaOVXnnK1asyO6J
AxGi+vitWrWK+7zecccdKWsGFoLqqqjOoDue2bNnWxsLqtetW7dQr+stZv36
9fNeW/33MLn99tu9sc2bN8/2cAoqjHHptWvXeuNp3bq17eGEzvjx44s6P1rr
Ht3z++abb9oejlX5XC+tXFm3J4X6S6eL8QalHLubbrrJG7uuc/7++++kf6uY
sJsn3rBhw4Rc4XvvvTfu73fs2OGMu1OnTmnHoN4suv9y19amyl9RTvrNN9/s
Pd5ZZ53ljCHqkvWWNrcXXngh4fdAtbwUs9b8ivoIfPLJJ87/r5oW7j2uNtVL
F8Wn3ZrrgwYNSjkWvUc0r2Y+vnk8Xdsr9yHVewwAAACIiieeeCJljArhoTUv
7nlSf19EW1VVVax9+/Zxedhm/yvdnyv/v0WLFs6/d+/e3es5Zs5Z6z7cXXev
Hm1a16x750zyHtSX3j2O6tbt37/f+zfdk7/33ntOr0D3bzSWdGuwAZykua/7
7rsvbk6rV69ezro727755htvDa5qrlB3MJyU/+O+d7T2R3kOyB39bqpujfsa
r1+/3vaQHPruMOuMRy3fNIxxacVDMl23FzU//fSTE2PUtWKxfkeZtX8z7atT
qvIZlzaP/corr+T02KJrmY4dO8Zdc5mxYd1XrVq1yssXVN6X4prSu3dvb786
dep461+1v9Y1K59c+1Zn2rRp3nEUxzZ7RevxVWvKva/TpjW+P/+8JcevRHH6
4YcfEmLR6nlj1hxS/Fn9q1TXQOfazXNQ/nRlZWXc8d544w1vP9VF0VrsNm3a
OP9b99HpckTVR9och85/hw4dnPdtJjXFAQAAgKjQdXXbtm29a+fly5fbHhJ8
1NfTzbO96qqrcla3DMVNcWgzZ14913SvrftlxZvdPPrp06fH7ad52i5dunj7
aW69Z8+eTt6/3mdB1kDqHttdx6+5Rc0b3XXXXU5PS/f45513Xmzy5MmhiKkB
xUCxC3NOa/DgwaGqma26g+7YKioqbA8HPoqZuuvaNe+6YcMG20MqSV9//bW3
vu2yyy4LRY6G1hCauWBRE8a4tLkO86OPPrI9nNDQ50X3NHpdVN+2GCmW5Z5b
1SSKunzFpc1aT4rz5ut6SL+deg5uLTnFmHVPo1o1DRo0cP4/rYPVPY1J9+U3
3nijN0bl7CmurfsfHUs1vzOl1+3ss8/2fr+VV6x7NDP/Qfdr6s/EfMD/+HtL
l5WVOf+/6vyobojOoa6LlLf1n//8x/nNVp5/ulwSxZe1Plr76ZxoH9V3qO51
1/tTuYFvv/22k+f9119/5fS5AgAAAKVEuZtuvSFdq+/dm7pfDgpLa1h1X+vG
/bS2ADDpnlp9ohVf1n2zYtJav6x4dKr62lrP/PHHH8f69OnjzLto0z6ffvpp
4MfX/bb6WarXm+73NYZmzZo59RdUCy0Mc/VAsXj55Ze9eTWtS54yZYrtISXQ
98d1113njXPhwoW2hwSDepC75+all16yPZyS5vbJ0BaGXs7mGq/HHnvM9nAK
bt++cMWlFZ9wc/e0bu/48eNWxxMWylN04/VDhgyxPZyszZ8/33uvJesrHDX5
iEur96/uUdw48e7du3Ny3HRU20nvS/UpUv8h3VcpHj516tSUvYD1Wdc9lPo6
qJ607oW0Tza5KIqlKu6svA33vkqxUf3G6HqL+s+J/L2lw9ZfAwAAAEBqyiV1
84PzmYuMzOkcmPnXs2bNsj0kAECe6Dve/R3WvObq1attDymlXbt2OWt2NFbN
maqHIuybNGmSd82g9UFcy+WXag517drVe80XLFhgdTxDhw71xvLll19aHYsN
YVsvrTq/7lgUs8NJ6s2q10T5i6o9X6yefvpp7/zS4zf3cWmtS7366qu9PL0P
P/wwB6NEqUnWWzrIGnUAAAAA9pnrLFSnE3aNGTPGOx/q5QsAKE2ab3X7Njdv
3rwoerGrZrD6B2jM7dq1o6akZT/++KNTV8Xtfcn5KIyqqqpY+/btvRwN1f60
RX083L6jxRzvy1bY4tKq9e6ORb1hcZJiRqNGjSr692j//v29Gt70qsl9XFo9
TNz+vFqbDiSTrLd0MVxDAwAAAIjn1hDVPSDrc+3R/JXbt/D555+3PRwAQJ6s
XLnSiycqvnvw4EHbQ8rYunXrvF6I6oGoGt8ovH379jk1R3UeOnXqRP+EAlPP
jNatWzuvv+qtKj5qg9bIawzTpk2z8vi2ha2O99q1a73+48Ueg0Wi8vJy5/yO
HTvW9lBCIZdx6ZkzZ7L2FRnx95ZW/zMAAAAAxWn06NHOdb3iokuWLLE9nMj5
7LPPvBjFyJEjbQ8HAJAn+r5X31F9399yyy0ZxxN37twZq6ioiC1atCjPI6ye
1gS6PVQ1T0/8pbCUx9CiRQvn9VfN06NHj9oeUiT9+eef3nlo2bJlyj6k+aRe
rLNnzy7444aFf720arum2grV11jxNX1fo/Ts2bM3Nn369Mj85qm3SLrP1Omn
n+599iZOnJj147zzzjtebrZijkA6/t7Sffr0sT0kAAAAADWg+0DVFK1Vq1bs
k08+sT2cyFA/wNq1azuv/bhx42wPBwCQJ2vWrImdeeaZzjza/fff7/SqzdTC
hQtD1ePhm2++iZWVlTljKlS8B7HY4cOHY23atHFe9x49ejjrdmHPgQMHYtdf
f71zPtq2bRs7duyY7SFFij8unW4bMGCA7eECRUW1XTL9fGW7Xlr1wjT3oHy9
GTNm5PgZoNSot3TdunXj3ntTpkyxPSwAAAAANfTVV185tZBUVxSF0blz59i5
557rxKcBAKVJcdyzzjrLmUMbPnx44PVWw4YNc/ZdtWpVnkYY3B9//BG74YYb
nD4ge/bssT2cSNDcv9aVqd9HVNbshZ1q2avWjT6fWiuLwiEuDeRPkLh0tuul
VfNePSm+//77HI8epUjvE/97b+vWrbaHBQAAACAHqqqqnPUfKAzVgWR9DQCU
rvXr18fq1KlToxqV7du3d/ZXX+Ew0dqVHTt22B5GZGiNfWVlpe1hIAnVbtbn
AYXzzz//OD3vM9morQ0Eox4R7ufnu+++S/rf3S3buYPff/89dvz48RyPHKVq
/PjxcTHpRo0a2R4SAAAAAAAAECobN26M1atXz+nDOG/evKyOodrNqnOp2DYA
AAAQNf7e0vfee6/tIQEAAAAAAAChsWXLllj9+vWdvokLFiyIHTp0KKNt//79
sd9++29sw4YNTk/qvn37OvNvWjMNAAAARI36zZlxaXpnAAAAAAAAACf9+uuv
CfNnNd0efPBB208LAAAAKLjLL7/cuybWNfaRI0dsDwkAAAAAAACwTv2Wy8rK
chqT1jZ27FjbTw0AAAAouF9++SU2YMCA2OOPPx6rrKy0PRwAAAAAAADAut27
d8caN26c85i0thUrVth+egAAAAAAAAAAAAAAy4YPH56XmLQ2rcMGAAAAAAAA
AAAAAETb22+/HSsvL8/5VlFREfv3339tPz0AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAyJn/BwlwLhI=
     "], {{0, 262}, {1958, 0}}, {0, 
     255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{518.8987500000005, Automatic},
   ImageSizeRaw->{1958, 262},
   PlotRange->{{0, 1958}, {0, 262}}]], "Input",ExpressionUUID->
  "c8d9bba8-c0c4-48a8-927b-0dc99a9985ae"],
 ", FieldNumber = 2"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7489658073325233`*^9, 3.7489658088329782`*^9}, {
   3.76753948945888*^9, 3.767539489458953*^9}, {3.767539865759437*^9, 
   3.767539866312311*^9}, 
   3.767630182643195*^9},ExpressionUUID->"a23a8e07-8825-4394-a44d-\
e2d261dac7cf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "2"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
  3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"160a7ad7-072c-480c-b2a8-76e1e8c278d2"],

Cell[BoxData[
 RowBox[{"B", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.768069030307136*^9, 3.7680899708648167`*^9, 3.8312204961938925`*^9, 
   3.831222243321303*^9, 3.8318058845740523`*^9, 3.8318397760227404`*^9, 
   3.8329474889525013`*^9, 3.8329617735600204`*^9, 3.845826862089877*^9, 
   3.845852456374192*^9, 3.845857066780308*^9, 3.845919611662734*^9, 
   3.8460065653052487`*^9, 3.846099875812972*^9, 3.847470437171073*^9, 
   3.851700622254655*^9, 3.853975439517919*^9, 3.854977394477193*^9, 
   3.854989253030163*^9, 3.8549998896280193`*^9, 3.8551652371517735`*^9, 
   3.8551823069638414`*^9, 3.855185851965157*^9, 3.8553306269902573`*^9, 
   3.85533983283676*^9, 3.8553431694622*^9, 3.8553440043780546`*^9, 
   3.8553527321517277`*^9, 3.855449596902907*^9, 3.85550759911058*^9, 
   3.855508395352632*^9, 3.8555128827977953`*^9, 3.855533094900529*^9, 
   3.855533314413333*^9, 3.8555789079213104`*^9, 3.855593281394226*^9, 
   3.8557505934549217`*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"25db1fb2-6788-402a-97d6-133d99945003"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"A", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"d", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
      RowBox[{
       FractionBox["1", "2"], "I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammadown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9},
 CellLabel->
  "In[176]:=",ExpressionUUID->"9ecf4d40-cd72-4f65-a41e-c7a3a21ec77c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"811124f6-3f92-42cf-ba56-aada2c26b7fe"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.7680690306715517`*^9, 3.768089971155608*^9, 
   3.8312204962648444`*^9, 3.8312222435342956`*^9, 3.8318058846787615`*^9, 
   3.8318397760866327`*^9, 3.8329474889993663`*^9, 3.8329617736556263`*^9, 
   3.8458268621523514`*^9, 3.845852456424016*^9, 3.845857066840222*^9, 
   3.845919611725252*^9, 3.8460065653689947`*^9, 3.8460998758598275`*^9, 
   3.8474704372335343`*^9, 3.8517006223483515`*^9, 3.853975439590273*^9, 
   3.854977394570922*^9, 3.854989253095469*^9, 3.8549998896922054`*^9, 
   3.855165237229848*^9, 3.855182307088812*^9, 3.855185852032433*^9, 
   3.8553306270683393`*^9, 3.8553398329617043`*^9, 3.8553431696340027`*^9, 
   3.8553440044405127`*^9, 3.8553527322169847`*^9, 3.8554495969915447`*^9, 
   3.855507599193182*^9, 3.8555083954478807`*^9, 3.855512882872424*^9, 
   3.855533096554413*^9, 3.855533314498309*^9, 3.8555789079803658`*^9, 
   3.8555932814410906`*^9, 3.855750593517381*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"d1292082-785b-4213-a7fb-9ecf5e9e0793"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[178]:=",ExpressionUUID->"0252ecce-de99-4618-9ae7-9080423bfe51"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsnQf4VcWZ/xOT1WTtLXaxxBpFo+KKbe29m1iiqEFRY0EEu381EsGIBQu2
6IJ1LWCvsa8NC9ICoiKKCCjoatRkk2iS88/n8MzPuXPn3HvKzCn3vJ/nmc0K
3DNzzz1l5p3v+31X7X3SfkfP953vfGfAD/71f/b75enb9u//yzP3X+xf//Hz
vgN+dUzfPkft2veUPsf06b9Z7+/96w/n++53vvOzf/3T7//r/w8EQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEb3z++efBpEmTgr/85S9FD0UQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBKFw
Bg8eHPzwhz8MvvOd7wTdu3cPPvvss6KHJAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCUBi33nprqKPQ24ABA4oeliAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIQmFs
s802TXqK008/vehhCYIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgFMY+++zToKVY
aKGFgmnTphU9LEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQhML4+OOPg5/85Ceh
lmKjjTYKXn755aKHJAiCIAiCIAiCIAiCIAiCIAiCIAiCIAi5MGbMG8FVV10V
vPTSS0UPRSgpf/3rX4segiAIFeCZZ54Jhg0bFkyc+AfvfY0bNy58dz3//PPe
+xIEQRAEQcjKb3/722DkyJHB3/72t1Sf/+qrr4Lrr78+GDFihNuBCYIgCIIQ
m+nTpwdXX311cMoppwTHHntscMwxxwT9+/cPhg4dGkyePLno4eXGN998E9x/
//3BtddeG8yYMcN7f08//XR43idOnOi9LyEI/vnPf4bX+FNPPRX84x//SHWM
OXPmBBdddFHw+OOPOx6dIAiCIORP3759u2o5fP/73w/uvvvuoockCIIgVAw0
V3p9oIUXXtirn82AAQMa3l3sTQiCIAiCIJQZ5izMXZZYYongZz/7WXDppZeG
86Uo7fqXX34ZalXRYey7777BD3/4w/DzBxxwQM4jFwRBEIR6g17gtNNO6/Lw
VTWRV1pppWCZZZZpqJXcrVu3UGcxZsyYooftjU8++ST0MVbfeeWVVw51Jj5A
h7rXXnt19bXIIot09LktC1OnTu065yuuuGJw2GGHhdqZ8ePHB3//+9+tn+G6
eOSRR4Jf//rXwY477tg19z3vvPPyHbwgCIIgOObhhx9umO/Rtttuu6KHJQiC
IFQM8jDM9wk5Gj549NFHm/r6j//4Dy99CYIgCIIguMKcv6i2wAILBKusskq4
R7PxxhuH/8t/zzfffE3/du211w4+++yzor+KIAiCINSGu+66K1hsscXC9/Bu
u+0WXHbZZcEbb7zRkLP/0UcfBTfccEOomdRzP84+++zg66+/LnD0fjjqqKOa
5ihXXnmll76GDBnS1NeRRx7ppS/hW958883IueuCCy4YrLbaasH6668fzl3X
WWedYIUVVrD+W3QVnXgPCIIgCPXipJNOanrHoTUUBEEQhCQQUzDfJ7/5zW+8
9HXCCSc09SV5moIgCIIglJ2omHTctuGGG3rL/RQEQRAEoRFy8H/5y1+G7+AN
NtggePHFF9t+Zvbsj4LNNtus6f1Nrn8ngR+FOU+59957vfS1zTbbNPU1cOBA
L30J3zJ5crSeIm7beeedgy+++KLoryIIgiAImUE3q7/jFl988WDKlClFD0sQ
BEGoGPhe6u8Tcio//fRTL33dfPPNDX2RJzJp0iQvfWWBup4//elPUzU8FAVB
EARB6CzSxqLJbz3rrLMkt08QSsbo0aNTz/f79OlT9PAFQWgDPhS8h6m5FVXf
wMaECROC7373uw3vcnL4v/nmG4+jzRczp2bLLbds8OtwySmnnNLQ149//GNv
8SbhW1r5U7Rr+Fdcc801RX8FQRAEQXDKRRddFOpm8aV46623ih6OIAiCUEGI
LZx88slh3Q38I2bPnu21v4svvjjo2bNn0KtXr9LqAP/f//t/qdee55xzTtHD
FwRBEATBMWl0FNQLZ89WEITy8fvf/z71fP8///M/ix6+IAgtmDVrVrgnzP3a
o0ePcG/4n//8Z+zP77///k33/eDBgz2OOF++/PLL4Be/+EUYAzrvvPOCP//5
z976It7Ut2/fsC/+l9oqgn/S6Cm4Z4jTdZofiyAIgiAIgiAIguAH0VMIgiAI
gqDDO37ppZcOLr/88mCPPfYIa00vtdRSXTms/G+3bt3Cv+PfzJ07t+ghC4LQ
AtFTCELnctVVVzXdt0ceeWTsz/MeNz+Pj6cgVAWlp8BTadCgQcH2228frLnm
mqG/uZq7ov3lz9APjRgxIvjqq6+KHrYgCIIgCIJ3mCcNGTIk6N+/f+gn+/jj
jyfysxMEQRC+RddTbLfddsGoUaNit0mTJhc9fEEQBEEQHMOcYKWVVmr6c/yx
yfP829/+VsCoBEFIy5w5cxLN8Y877jjRUwhCRTj88MOb9BDzzTdf8NFHH8f6
/GOPPWbVUn3wwQzPIxcENyg9xU477dT0d9SuYe7aSTVsBEEQBEEQ2sH8CM80
2zx/+eWXDx555JGihygIglA5dD3FL3/5y6KHIwiCIAhCwUTpKQRBqAf/9V//
1bU+2GabbYoejiAILTjiiCOscdJ333031uefeOIJ6+elDoJQFVrpKQRBEARB
EOoEdf+uuOKK4Ac/+EFY3+zkk08O5/XUvMOjS6/be/fddxc9XEEQhEohegpB
EARBEHRETyEI9UbXU4g/hSCUGzxlTC0Edbricu+991r1FJ988onHUQuCO0RP
IQiCIAiCMI+BAweG86L1118/mDVrVtPfb7vttg0+FV9//XUBoxQEQagmoqcQ
BEEQBEGHOcGKK65Y9DAEQSgI0VMIQrU4//zzg0UXXTS8Z/H1feutt2J/VsVc
9faTn/zE42gFwS2ipxAEQRAEQZhXx++73/1uuB747LPPrP+mV69eDfP+u+66
K+dRCoIgVBfRUwiCIAiCoCP+FIJQb0RPIQjV4+9//3vwpz/9KfHn9thjjyY9
xZAhQzyMUBD8IHoKQRCEasO843vf+15Xow6B/t96+5//+Z+ihysIpWTatGnB
4osvHiy99NLB3LlzI//dz3/+84Z5/wUXXJCoH3zw9PvUvF/Vf6+99tpZv5Ig
CELpED2FIAiCIMQDrfcKK6wQ3H777UUPxStF6ymOOuqoUE/PelAQhPwRPYVQ
db755ptgwIABwXLLLRf88Y9/LHo4peXzzz8PFlpooYaYKvHPjz76KPGxbrzx
xqBbt27BM88842GkQlruuOOO4Ec/+lHwxBNPFD0Ub0yeLHqKTmSNNdYIjjji
iLDeuyAInc1vf/tba+0xWxM9RSN4EFx11VXB9ttvH2y88cbBbrvtFtx0002p
NLZCtdlhhx3Ce2TkyJEt/1337t0b7qmLLrooUT9rrrlmrHv1xz/+cZavIwhC
zsycOTMYNGhQsNVWWwWbbLJJ8LOf/SysDeq6JhBz+zvvvDM48MADgx49egSb
bbZZcMwxxwQvvvii0358IXoKQRAEQWjNP//5z+DXv/51MN9884Vab/LgOpmi
632gV8GjcLHFFgseeOCBwsYhCHVF9BRClZk1a3YYA+D6xXsBbYVgh3iJGftk
vpOGcePGhTlx6DEGDx4czp3yhvnZqaeeGvTs2TOMzbAX60Pf8emnnwa/+93v
gj333DOMNW2xxRbB6aefHkyePNl5X2kh7nXiiSeGv+kqq6wSzJgxo+gheUP8
KdwyceLEYPfddw+v6xdeeCHVMXjuvvLKK5muO/TV/K7rrbde8Pbbb6c+jiAI
5Uf0FOl49dVXQ+0w52XllVdu2CfHG6CT3/1CI+xD8rvvvffeLf/dF198Ec7V
9Xvq4YcfTtQXekfRUwhCZ0HsXeVZoJnSdVPEBF3lqPAOJweD4y6xxBKhDpD/
VX3ts88+wV/+8hcnfflC9BSCIAjfgrb7/vvvD954442ihyKUhH/84x/BL37x
i/A9SW3y8ePHFz0k70T5U7z//vvB1VdfHZx33nlh3u+ZZ54Z3HzzzcHUqe86
H8Ott94a6lcYC3sWgiDkh+gphKry3nvvhXpArl1ytP76178WPaTS8uWXXwbL
LLNMQ9xz3333zaSDYP6MFpJjsReap6bisssuC+PD6DHZT1DXAQ1dhStdzW23
3db1HZdffvlQT/HDH/6wq69TTjmlEC2JDtf9zjvv3DVG7otOppWeYsKECcGl
l14axr2Yu55zzjlh3uasWbMKGGn5+b//+79Qf6OuZ+KqSSHn7Cc/+Un4+X/7
t39LrY3mPjryyCPD43DPodkSqgPPHXxx7rvvvjC3EZ/Hd991v2YUOgNdT7Hr
rrsG77zzTmQr+z5LXtx9993BD37wg9A/9cEHH+yae6jYFW2ttdYK41lC58N9
w2/eLpb90EMPNfnSobFIwvTp0yPvzxEjRoieQhA88eGHHwYXX3xxmDuAhm6p
pZYK58jkfW655ZbBCSecEHpGjhkzJlEc5JJLLgnv2fXXX79LS83aGW21/m7O
Au8o8g+I86OnuPbaa7vGyDOIPQjV1y677JKpL9+InkKIC54vL730UvDf//3f
YbyK+S417rj+yfv55JNPUh+ber8cB89ZQSgKrmEVPyJ2hLZCEPr06dN1Tbz8
8stFDycXdD0F+Y1XXHFFqBltpT1fd911w7WTSx8wdBQcm/kW+xeCIOSD6CmE
KsL+6GqrrRZet5tvvrn4HLeA+AjeCvp7nDpbX331VeZjjx49uiu3pW/fvg5G
2xpiM7179w77Q0OgPMSYx7PHoL4fvhVZYI8YT1KOteGGGwajRo3q2ruYOnVq
g6aCffui4Lclr4dxEGMrk2eGL8x6H8Tkzj333LZ+1MQd2VcoWv9SJoYPH95w
jojPJuXCCy9sOAaaiLSwD3jwwQeHx6FuTad7BFaZv/3tb+H88aCDDmp49ppt
ySWXDOPkV155pbynHUHOKHoj8oKGDRsWxmnx77/88svDP6OGZpbnHFoY9mZ8
oj83fv7zn3vtqxP44IMZ4VyLe83MbSH/Rb/nuAaEzgdfqcMOO6ztv2OOql8f
+Lm55Pe//73oKQTBMTNnzgq23XbbMG8grpcTmuZNN9003L9t5S3BXi/H3WCD
DUIPRp1+/fo1HHPSpEmpv8MFF1wQHoMx/e///m/T3//mN79p6ItxlRXRUwhR
4Kl43XXXhXEjM3cpqhGzYN4+Z86c2P3oa+S77rrL4zcqP+hKeMahK6liY+xV
9lRWnqKqiUeF0L9//67rAf1/XVB6CnSp5DTw36uvvnq4F4GmhGc88S/8I5mb
6TGzn/70p05zj/DA4Ljf//73w9wmwR/kKhf9Hsny/pFcJXeInkKoGmhi0fVx
zeJLkEXn3emwv84+sp6XRs6+yzk8+egq3kMeik/IwaGfvfbaK9zP01F1pGmL
LLJI4vw7HbVePeCAA6zaUaW1oC2wwALB3LlzU/eVFvbLDj300K7f9dlnn819
DEWg+1MwX1exC+ak559/fugtxzMBvRAxDuazymOERq15M35YVw455JCG9TAa
paSYOhby6LLA/aby4/C1R78klAd+n+uvv74hr5DnP/pGrh+eSTw/qcPFc1i/
NqgRddZZZ8k7OyHsQ9xzzz3B8ccf3zX3adfw2fzVr34VjB07NlFf1OEktwGd
jE90f4qkegriE1xfebZtttkm1AVRWx7vzieffNKJJjUu1HTgPqOuksnQoUMb
fvuTTjopt3EVDfO+PK+DrbfeOthxxx3D34O88DvuuCPMHy8zZp5UVr2xSRF6
iueeey7U0bKeKWtjPvrBBx/kcj6EzoK4O/cS99Syyy4bHH744cGxxx4bvivR
PceZA+BXSLzXhPU/vo7//u//HubRmxx33HENx7nqqqtSfYfHH388fGfx3Ix6
V6Kz1fs6+uijU/WVB6KnEHSYlw8cOLBhLRTVuA/Iw0HvZNNAEVOKo6tgzqE+
V/Z5h0+oVUzsLa7OrKyN357ftGpQd9DU+SWtISd0FqyL1bXAHKJOqL0A7uf5
558/XJO3gmf9Ouus07Bn4aquKTqz7bbbruv5wjxMcAu6GXJYi35/ZG08w9k7
8eF1RayXeElesRk0DMSDiF0yV7/pppuCP/zhD86/VxSipxCqBHvkG220UXi9
or2jfrAwz68DX8FrrrkmGDRoUJgjrmIxquHjYYvFuwAdheqH/n3AHhy5zuzb
2TxNeW7r3zetvoAcXz5P3l+UbzYxH70vYkJ5w16Z6p81fV1Qegrli4JWop0G
l/wqfe5D/ENqEQQNdXJo5Mok4aOPPmqanynf4CwQ41UxY/yN6xw3KhN4vpPP
qH5rtHq33HJLWDfGBpov3tHodnhfq8+hk6mL/istrInvvPPOYLPNNmubn8q5
JVYbFV9kP/X5559v2ye+FCre6/udlkVPYdYvKKqhY2Q+yv60z2cUtT3oj5i7
jf33379hXKwl6wL1T4q+DtR7irorZXuukYOiauqq9sgjjzjtQ9dTkJPlG/Sw
3HtF/+ZxWtQ9KxQHNa3RJ+KNzJoZnT57Qfx5Gfzr8EfER537Fi2Dmf9AThlj
VnX2WrXXXnut6fjURGz1nkBroR+DuGRSmCsuscQSoYa2Vb1F1q56X/gtlhXR
UxRPGe5PtE54uCy44ILWe27hhRcOvaOo80F+B3nJ+rhZNzOnY79Bz1Pm/2/l
z6J7uRAHqzOtPBGr1pjDVqlGH2PF48z8HjfccEPRQxMKgvmUug5YE9et/rr6
7szbXn/99VifmT17drDqqqt2fZZY9h/+kN4LTAe9Bnpajsu+iU03K6SH3Kai
3xsuG7E/l5DLWvR3Uo2YBL45vvd8RE8hADkMxAHxf6cuH3EG8q7IbSyTH8y+
++7bdb0SjxfmobSIUY24C3Ej1oE+YO+H/E36Yu+H3E3XEL/g+FyXJszdyLXR
v3Mav3L2gtmbQjfa6rrHt0LvK+/9C35L1Te5klVai2VF6SloeMgSA40D/vhK
g0FDb1SEr0hZwDPefE6Qc5AE7kX98+znulpHPfXUU137yOzb84wRigNdBDVY
+D2oF5XUA5rnsa7H5znrS3tXZXjv8HxX9czMht6BZz75D7xnef7pz39it7zH
iOWiodTPdyvvGO59PT48YcIEr98zi55izJg3Qp8I2n777Rfsscceoc5Hr8PV
qvEeQKfCZ9Vxohr/Bk+j9dZbr0ETZDZyUvC/9bFmQ3vP7z5t2ntNf4dfDF4k
+lhGjhzpfAxlBa0WvxOaEjwj8DZSz6l2jT15nkn4nbW7Djg+dfM4vj6PsDX+
zaOPPlr0qQlRWhz9OWDLWc9C3v4U6OrRT6O5RCdLS6qrIR9MfTZOY2+Y392W
X9yqcX0KxcM7kXVbO28H9kJZT7M31Kpehk+oe81Y2D9tBXNi3qNR7z2uV7PG
BnMF9iJ5RtqeA8TdzeOwJ5wUcsT47M0339zy3/Fsrcr9InqKYuA6v+SSS0LN
IueefEo8yvKGXMdevXpZ54HMnU855ZRwXEn8X5m/oVdSe1+8X2x+MDyP9P6o
e1tn2s3BqtbKFGdvB/sDtu9Qp7wu4VvQh7FnzzWAJoB6o3WD5z/f/b33mtfo
raBmk34P4fdrem+nBQ8/dVzmtGXQInYKyhu8U5ptXy0LxCHRi6r4Cd6u5HWp
eU6rxtqEOofEXKJiMbY/w7O8lc6SeRu50EnqqyVB9BT15eOPPw79UvGPbpX/
SMxx7bXXDk477bRcvVNM0HqoMRHflnfDtzCfIb+GvE0aMVR8u/nNyA9R542Y
PzotH94+jIGYI/3wzHRZU+Gjjz4On4WbbLKJ9Xd/4oknmp6bSdcnHJe8HK53
W06PDveD3h+14PMC3Z/SjpDn7evdUFaoI893X2ONNRLXdMEjUv/ddt11V0+j
LD9mfIY4clLNgunTwh6HS/T4ZbvYsuAPNPMqfoUuO+16Dx8Lvf4UDY9IIQg+
++yz8Bq37QUzP0NzgF9F0mce+W6sTdSxWHeY3tu8U3T/HmIjvudXWfQUUTBm
5gK8F6Pms7w30tabIW+YeDkeVugroubLxNxdzX+Iz/D7k+9oQ88LorG3VtQ+
YJnALwTdUat1e1rdL3uSU6ZMCfc9uZ9M/wfViB8U7aGn1zOmoUF1TRH1Pky4
96mtcfXVV7f0ruB88KzNAmsL9GfXXXddOAeiHkNUf2eccYajbyikAQ9l1o1p
YoxodNi3JFaSJ8QFeebHXafzjkC/YD6H8Kw0UWtl8utt6O9lGvmTSecCaN4Z
S5z1gHnv8G4tK6KnyB/WpGb+Co24FvOxPOB5f+KJJ1qfEcRi0FFkzc3gGaNy
kmgjRozo+rv777+/6Z3WTqfU6ej5U6xx0I1VqTF/1H/PKI/HssHcKcrnvm41
HoR5EEdV18CwYcOKHk4hUHsa/UJSeL+Z8YrBgwc7G5e+75/Uf1iIBi9KdV7R
DRT9PknT9HWRba3gC/xbovIS0CGgxcgCvi9RsVQamot2e3xpED1F/WA+RB5d
2tpzeDmxJs8TcjDZ76N/dIDcL0I8eDZdccUVDflb7JfwZ673TIhlqj5c+naS
a8sxo/zk2L/Qr9GovYdWjBo1KtaagHWzqT8ilz4PyHsgHq76rVMeqg4eOmm0
XWh+zNwSYhV1RJ8P0tJoS9BS68dAr+IS4ljKD4/fLal/hpAdchjV73zBBRdk
Ph57BOZeNDVD6gzacHIbbPMtdN0TJ07MdHz2f9kLUO8t8vHVux8v7m7dujX0
mYfntr5vg77cJWq+YGt9+/Z11g91E/QYuN7IpXRRX428TDO+rqPHsmjMhYR5
fPhhc661auzjuWLq1KnBMcccY/VI4L2Fv35RkMurj4fafK4pg55CR+Uxmw2d
tw+fKzy5rr/++iaPPBprIiF/yPvmWlcaA959eBJxL3K/si7mWiAeQn1pYqJR
Ojy8TPCDysMHkHHxzGD/NGl/kydPDmtPHXvssZE6Lp5TfKeovzfn9Glyjvv0
6RN+tp2HsLmnSBs3LrkXRl6IniJ/lFeLreURd8GbxVZXh3f9ySef7FRrxfOI
XDGOT3wW7S6+OrZ5BfV06ozuyTNxYnF5fmkxa6VWRU+h1xk2G/7RQr3QvZJ5
ToqPbHLYczDnm660gjxnOB7HJZ8Wz3khO3r8vKq+PPgMq++Qp56CZ0SUp55L
X0/ysNE12PphfuW6NqvoKerF008/Hay44opdvznxA/JN0dWxz8F+LfM6vJ7x
nGtVR4K8rDzq2hNT0HNaJU85HexZmb8huVou4bfS47f4wrkA/2TiS7acT3Ix
zWfzvffem7iPnj17hn20qx+BhkHvC51dXmshcrlVv669AOqCnqtNY2+3jpi+
WEm1y+zDms8TcgFd88ADDzTs1Zi59YJfeM9z7o844ghnx0QbrGvSWOf50AuX
HbwmonwDeY+6jhejQ1PHZ2+Ad6fNZ4G9I9/g6aT6c+VPoWCeGzVvda35AvaT
dR8w/brOup9K7h17NzZvdubfZk5ymhyZTkZ5ppmN2J9r0HnrNXb0hmbIdZ2N
drCmM7W/ruukQpn0FKwRovwW2QvwCTWtTE0FfoFCvqBv0b1piBu+8847bT/H
Og6dX1SuCXMh33XBeaar/nzUjmJtjKbQptVg/q5/X94taWI86EPRdbRD34uh
8awus++o6Cnyp1UMMk1N17hwHaJltT0L8DjztYfPnFxpmtAF2uaV6J/rjh7z
K9I3OS2zZ1dPT8FebJQXGw29olAfmFPp813WAUJyiLeY99Ktt97q7Ph6fgne
2nn5OnUyup6iqnuSRekpyIu0vT94p7uqdaMg5kJMwtYftR/j1ouPg+gp6gP5
bWouhNcD++tx8h+eeeYZqz6btswyywTjxo3zOm497s76okp15sqG6f1LGzJk
iNM+0NSreCYe8XiJZwUvjaiaGronBg2PH3KTksJ5oJ92mFpStD55QK6r8kji
PhadaTpU7pTe3njjjaKHlSusg8xzkNT7gXpC+ufJoXE9F1KonB2JY+aL8uxh
3vnWW285Pfbhhx/ecP2gZ6sT5J2tssoqTfch70zqKfvaVyB3lX54R1Pfyjav
y+Pd4qPeh0KvG2o2H3oKIOd5nXXWsfaJZ7yP35O8CL2foveyy0iU56MPPQXw
DuQdZetzrbXWCmbM8K9BV+haRBp57z70iGXSU5j1b/SGJ69vBg0a1NAnuQlC
frD223PPPbvecdS8JE8kCeQtLbrootZrCD+ipDW3kkDeuerLh5dMKw477LCG
77rzzjt77c+s41D2/GbRU+RPlD6xR48e3vqcOXNWsMMOO1j73Xvvvb3e/xC1
36Aaa6e6o+/jVlFPUTV/CtYvrNFbXZei86kP7B3p+7FpPKGFedx3331N9xIe
oq5g/qt7kMbRugqtET1FevQ9Xb1tv/32XvpDdxv1znJ5n4meoh7cddddXT73
1Osg9psE1g9ROnG8hFz7pijwudbr7JD3IKQHL1FTb0/MiX0zl5CLp47vW2/A
9ax/nwEDBnjtb911123o75xzzvHaH6Ah0n1Y2Z8R0kFtOvMZlnfcsmjwjdG/
P3u4SX36TF2Kz/ucesx6zqno4PPBfOfzDGKv3wV4U5v3IfOUToe1LXF5sx4y
Db0o/sI+Yb9ptdVWi1xfUHckD19zn3oKM89Wb770FMA8Wdd+6c11DIPfyKxr
4KIeT6eRt55CQV0B2z2Ohsn3foyiX79+DX37yh8sk57ihBNOsP7ezB+y1riP
Ax4ler/UkxDyg+esOvfXXXdd6uM8//zz1vvXx/tKh7rGqh/8GvLKJbT5PPqe
j5nP5jj5DEUieor8MfNlaNRt8rWHjm7cVveH+Cmxg7z8U4jzR81hhw8fnssY
yozoKfKFfEzGSS6XqsFqNnJqhHpw5513Nvz2VbwHywIxH/NeWmmllZz2cfnl
lzfcpzNnznR6/LrRCXoKvXZ8nnoKdNq294fP8xiVO0ZzFXPV9RTo7oXOg/cc
vsP8xuhL0+YQ43Np1uJVjVwOH/X80DyqPjbccEPnx68jtmcZmgSXmPr6hx9+
2OnxFfgKmN+FfTpfzJkzp6k/vMV9Q5xJ9Ye+iFoLQjrQZJm/oe88rLKhzwVp
u+66a+Jj4HmqH4NYo0/22GOPhudVmX2BOwHiirZ3Pc+fqVPd+FCbvlfs8yfN
Ja0SzKGi9tvRirusxdwKNDFRawtye/OgE/UUwPVLLS5b31lrf+joe9g09osl
RtJMUXoKQFNh65taBGk81JLCmknv94wzzvDST5n0FLb6RXn93gp8SOgTnaqQ
H6+//nqXBgLvg6yce+65ke+RG2+80cGI7eg1WamJkQfDhg1r+H5LLrmkN785
sOlpyZ8pM6KnKAbeo2i5qVGJP+iMGTO89MOaZ9lll226LslBclnXOw622JZq
06ZNy3UsZUT0FPmB1k7No7n/TG9JvaEHrAt4jxEHQ6dcJ90sWn49r5C8GyE9
1Byw3Uvcd67Al1CvHXXMMcc4O3Yd6QQ9he5Pgd90HhAfY11su97x7PUFObNR
76yzzz7bSR/iT9HZ8N5TGiTyDrNqHlhvmDkMquHLlzTHuRXUU9ePL5psN1x5
5ZXW3y+p33879D0F4ro+9j+ph2zuSfmEfB1zne27/gzrLD1f4uCDD/baX6dD
XMS89sl3qRPEpfTvf9FFFyX6vJmDSfOtKzL3SEeOHOm1v7pj5jbrjRrcLmBv
2zx2p3qPtNJS8EzPs44Z8zRbrREaNaPzoFP1FIAuhneK2Tc5jg8++KCTPjhn
+rHTaOLqQJF6CjjooIOs/R9xxBFe+yWurXs6+Xy2lkVP8emnnzZ9Z9WOP/74
3MZx6KGHhn1S/0fID2oAcN55t7mIRfPOtu2v0hZccMHgk08+cTDqZg488MCu
fpZaaqlQx+8bU3vVt29fr/2ZvgN8z7JrpEVP0blE+VKgz3K13kmKzUcOrZUg
eoo84V2gntHoBtDlRq2vJk2aVPRwc0P3QqN+el0wc9Luv//+oodUCMRRiJfg
zUsdqD/8Id21/8EHH1jvJXQWLjnzzDO7jk1elOjy0tNpeoq8/CmoW2+71nmf
+9RvP/LII5HvLFdeEqKn6Gx0X3dXNR1OOeWUyOvSpV+jvvdA/fY89xs6GdYe
tt/OdXzgoYceajg+/mAuwQfVrHHL9e4TU7+BZsQ3Q4cObehz9OjR3vssI/ze
1ELeYostwng1e/ppePzxx5uu/Tr5FL7zzjtN3z+ploq5l3n+8ng+6/5ka6+9
di51CeqKWUdJb2PHjnXSxwMPPNB07COPPNLJsctEKy0Fz7Ii6N+/v3U85Pjm
QSfrKcD2nqGhzZ8x48NMx6ZugfKcU+2ee+5xNPLOomg9BbU99HxzvV1//fXe
+jVr8hI/o96fD8qip+AeiLrvXdc0bMXRRx8d9lk337MiYV3k41mov6fM5iuO
etVVVzX0s99++3npR2GrLzxhgl+vCFMPuP/++3vtzwWip+hMorQUtGuvvbaw
cZ100klN4znkkEMKG0+ZED1FPuAZpDyfbrjhhvDP9NoBZnvyyScLHnF+6HWt
k+YkVRndVxTtal3jcHg8mHHQt99+O/FxyHO23UvoLFyCrzX1etTx2c8Q0iF6
inRErae23357r/3ifRH1zurWrZuTPkRP0dko71OXcR32McnLt12X1FVz8W5l
v0Y/ri+f2iqBFpL7lf0X1llpvTHxhLb9dtRycQm5JquvvnrX8V3XazE9y8kX
+vLLL532YUK+md4nfrA+Qa+nr/M32WQTr/2VGdNDfZlllkn1ez/22GNN1z6e
O3VB19jRFl544cS+QuY6Ig9dEeBJVtQeSd0w8xVVc+kBNGXKlKbj4zPdSTU/
WmkpttpqK6+a7FY899xzTeNZZJFFnHqMtaLT9RRw2GGHWcdA/nEWyIkx34V5
1I+oIkXrKYB6d7Yx8Kzz5Y9s7sXgH+iLsugpTjzxxMj73peXgA2Vt9inT5/c
+qw7yoOcZyFrXPTXLqC2QNQ1xdrMx/ub8eNlpPdFTqgvzPm8b59HMJ/LaEjK
jugpOg/2v6K0FEXvN+FlZo5J7WnXHdFT5ANrVMZHLovyDzJ9evVWJ5+GOuop
nnjiiYbfm3V8HSGuY+Y00M4666zEx+IdZB4H3YMP/Tu5+HrcO891UScheop0
7LLLLtb3hu9z+Mwzz0S+s0RPIbTjxRdf7PptR4wYEfp0ufJTRJ8RdW268Mbr
1atX1/GIK/iql1glyN/QzzNaSPYNksJ1YPvd8BZ0DXMLvY+nnnrK2bHxKdCP
3bt3b2fHtoGHt3nOnn32Wa993nrrrQ39oSGpI2+++ab1mr3tttsSHwtvOl/v
0yqgzwNp7PUmRdUHV+28885zP1AL1ADkuaf67dmzZy791hHiIuZ9Qp2Y6dPd
aebZA1a5L3k+V/OCvZbdd9/d+uwiZx2fgaJAN2HqYtM8C9JSBz0F3rdR48hy
jePNox8LzzgbzMWJfdaZMugpQM/p0hv1qH3QvXv3zHG+uJRFT6HyB8y2/vrr
5zoOpesYOHBgrv3WGbMuB/HovfbaK5g8eXLmY3NNRz3HidP5YN99923oB691
1qCuIWaPjlLvK8o3By22i7p++GKb57EKPvGip+gsuPbXWGMN6329wQYbFK5R
tcU98JcUgoa606Kn8APxNfUu1X0LW62v6qIrgDrqKcx4hmsPhaoQtY+Ch3JS
bF6WrGV8gN+S3s/555/vpZ9OR/QUySFPjvxN232Df4RPdK2D2VzlKYueonPR
136qsXa48cYbMx+buUPUtUkt8CwQM9B1f3nlPpeZMWPesJ7rbbfdNvGx0CPa
jrXuuus6H/f48eMb+kCb5gLbOhP9kAl7RoMHD05d10yHeiV6f+xF+a5xwHNe
9Ydfs2//jbKia8P0hk4sKWb9FJrr/bwyw564/t0vvvjiRJ+36YrIdTfBQ5V7
z3VMytSVvfTSS06PL3wLfiDsse+www7BoEGDnNQkN1l88cWbrqdhw4Y576cI
jj/+eOtzC43oyy+/XPTwgjXXXLOwWJhPPYXNe0O1PPUUsNlmm1nHwR5vGh8W
m2+hLZ5MfJaYc48ePVx8jcpSFj3FZZddZh0HejLmyS7B8+K73/1uQz/klfmi
DHqKTz/9tOk7q4a+IU/QyNBvXfXPefPhhx9GPu/xq8BPOQuqfout+Xpnmnmg
NDQWrhk+fHhDH+iVbfO8d99910l8B5jf6X3yjK4CoqfoLKLua97J1MApGuJL
+rjw0RDmIf4UfiHWqHxbuE90pk6dGvk+7NevX0Ejzp+66Snef//9hjm2a0/r
KsHegp7bpeI6b7zxRuJjXXPNNU33kS9vO3J49BymlVde2Us/nY7oKZLzyiuv
WN8ZvMt9+/QeccQRke+sNBooG6Kn6FyifFVoWb0V0apGHTtrPI1nk368Sy+9
NNPxOgHTp0C15ZdfPvGxTI2DarwffKDnsjMXw8s0K2btd+qK2FBeBOwFZuXY
Y49t6BPfLJ+8+uqrDf250qJUEdv6jZwqYuhJUV7MdXzGkNtifvek+yymrog1
Bd53Jmqt6dpb6O67727o37cvjeAX9jvMa5J7tOo8+uijkXOks88+u+jhhZh1
SFjv5EUd/CmglS7+uuuuS3w8c10Ypa3Hm4K/r3v+SVn0FMxVbP6wNNe1Q9Vv
rxpaXFf1D2yUQU9xzz33RN5nLjwTk7DffvuF/fryLhAasdXw0xu1b7Jgag70
xjzXB3iJ2nLnyS90CXWA9ONH6SWGDBkS/n0aT0ATUxNdFT276Ck6hwceeCDy
no7y+yoCfX100EEHFT2c0iB6Cr8MGDAgHNcSSyzRFGfD1yXq3slay7BK1E1P
YWrC8/KlLStq7oS/MbmtzEPTQF0p8z4aPXq049F+y4477tjQ17hx47z11amI
niI5eszPZ/zDhLXUqquuGvnOcuWbL3qKzmWllVaKvH7ICc2iB/rHP/4Rxuhs
x2bP/PPPP099bDSP+vHIi6g7ZnxUNd6LSaEOq+1YruM0inPPPbehn6uvvjrT
8ch3X3rppRuOGaWXUPXLJ0yYkKlPMGsc+N6XOf3003P5faoC6zrOAzHGPffc
Mxg7dmyq4+j142joAXz46JYR/HrN+z5pLMKstWzTFfF+oDY8sSDXsC+04IIL
dvXPfhn9CdXEfJbT8MOoMuQAmP7jqrH2LkvsTNcILrTQQqn8EtJy4YUXettP
KZOegthjlMfhxhtvnOhY5CvyO+nHiKqnrfTUdZ8/l0VPAQcccEDkmmnatGnO
+lH1JlSjNp5PyqCnML+zfm7x68gT5UmDDljwz8iRIyOf97Ss3oujRo2KPPZG
G23k6Fs0c8kllzT1R9zFlScb+abm8W11qMjFZP3LuyerLovYpvlMzhoTyAvR
U3QGrPdt6w4adW/LMj8H8ofV2NLobzuVqtf7mD27vHoKamSRa98q7miuQ1Sr
k5903fQU7BHqv3XaGGynoPaH8TxOC7FLM1aETsMn5A8WGRPpBERPkZyoHH/f
5+/BBx+MXL9RO9dV3FP0FJ3Loosu2jLGkHVNbvPpVi2N5xHMmNHo21lEzLOM
zJkzp+kck5+Ph0FSbFpIrhUfXu6Ar7ne184775zpeI888kjD8fCusu2HU9eE
Ob+L2smmlpzGno1P9Brp83w9Znntr+wcfvjh4bmg1lxauI/UOlG1I4880uEo
y40+B1QtyXWFt4y5jrbl2r/22mteY4677rprwxhstX6EamCbp6A5qDJ77713
5NyIuX1ZIG/X1Xs5KXXxp4CddtopcjzELuPCv9U/S11jtDsmzO35e56TdadM
egq0L1HXgctcL+a8+rHZB/RJGfQU1Bu2ndfu3btnOi55YtSTSILaq/NdD1CY
h63+tN6y1qJu5X+xzjrrOPoWzXzxxRddOnK94cM+e/bszMdX/o2qLbXUUlZt
8s033xz+fd++fTP3yd6n+X2o31kFRE/RGZi+bHrjWi8Tel7clClTih5OaRB/
Cn9st9124ZjQe0flqpi1IlUj36ku6HoK1rOdDJpkPXZK3eC6g28Lui7mYx99
lC4n7+GHH264fzjHafZ1kqDis6rVuW5LWjpNT0FtZ5+gWYjS4FHD1iemB5/e
HnroIWf9iJ6ic2nlT0HLWr97xRVXjDx22v0t8hT045CjL8wD3S/nhHnsmWee
mSrvkNwSdBjm73XOOed4GPE88JPQteTk1xAnSgteFPrYt9pqK+u/O/XUU8O/
v/7661P3pTA9Pfg+thoHrjDrMvjMgaoKaLTUuUgbp7744osbziuxShf1Z6oC
9YHSxjK5j9lzNT9PLSIT9ob4O181aAcPHtwwBu51oXowxzb1Teq+rCo2DxjV
8NUpE+yPqLFxT+VJnfQUZ5xxRuR4ktRu5Hnabl5A/BPPIHyX6u5NAWXSU6g5
jK3hR0nudlbQEes1jmmu/Cyj0PUUUbX3fEJc0/zOqmWp9UCtMtYrSf2S2L/v
2bNn6n6FZKCnj4rV0bLWDzN1B3k+R8z1rmpbbrll5rwqc11r82onZoBGihxK
FzkX1JrV+/ThYecL0VNUH+JBUfcyXhB5erTFAY1T1e6TPBA9hR/uuuuucDzM
p1rVHFDxaLPhHVoX6uRPYdYc91XnrGqoOAb7EEnfHcSx9bxJWh5784xT9/il
ffDBB9777SQ6TU/h25/CrF+vGu/xLLUS2mHWJ/cZjxU9RedCHcyo64g5+ldf
fZXp+FFxSlparYa5X0eNQ2Eer7/+ejjHZa8pbZzcttfTo0cPr88zMGssMGdP
C/nw+rEGDhzY9G+Ig/Kc3nTTTZ3UAjBrHFArzSemz2vWeGCnoDwq0sSyyOda
bLHFGs4rNbfrwttvv219VlMTsR34/aqax+a+hamdQytFrQ+eK75Az6qPAY2Z
UBzsA3755ZfhvlaSmHvUNcneSBV57733mtapenNRd8olffr06RqbKw/xuNRJ
T9HKjx6NW9w5CnN2fd/Qts+r6h7Uvbatokx6CubZUXUSac8//3zmPsxrDV2N
71h90f4UzOOizul9992X+rg33nhjeIykHmbEK9GfCvnBfobt98dHM6uXg7mX
oDff/uY889WeqtmocZ8FU7ePd6UO8/499tgj/LvbbrstU1+K/fbbr6FPm4aj
rIieotrw/iWvOupevvLKK4seYhNqPeF6jlx1RE/hHmoTqjzJ3r17t/y3PLej
7qOsewtVoU56Cp4/+m88ZMiQoodUClT+AueEPTfiYHHgXWT6mB599NG51S4m
dqD3jc5ViI/oKZIRtT7bfvvtvfVJPcOoOg0bbLBB7Hs1LqKn6FzwKI3K2XCx
biBOFzWfYp8kKVzbZqyROafwLWqfnX1harom4emnn27wiaDhqz59+nRPo/0W
/C/0fnkXpQWNjX4ss/Yq+3nkh1EHJG3dGRM87PQ+bRoOl5ja75tuuslrf1WB
35Z4PefkrLPOiq0HxquOXF79nHIv1YmovBzmFa28VshPU2upvfbaK+jfv3/D
55955pmGf89+pe9rlvEusMACDeMQL9T84L3MHIJ9Jubk5jyDOSxrTJ7NreJE
eK3Zrsmq6il0fYLZfGvw0nDooYeGY2NekPf+X530FOhsosZDS+J3qNdowdNA
3V9omY4//vjwz5k/SK2BeZRJTwF4KEddB2hhsnLEEUc0HJOYnW+K1lMoDZHZ
qIfz2WefpT6u2vv17YUqZIe9f/b88S7mNyOWsPvuuztZ35577rmR96ypQXAJ
3wm9Ml4UUf1nzTnRax8QA1TxfM6buv6ZJ7gA3a2pDbn22mudHDsPRE/hj1mz
ZgUXXHBBuE7HJwKNPNedS53v8OHDI+8jajSVYU9bh3Wuyl+o0n2SB6KncI/y
0SO+bKsjqNOvX7/IewmdXh2oi56C2IDpa/3cc8/lPg6uyREjRoTzEuqs4cFO
bB4/f+K5rIFdE8eHGv3QFltsEZ6XVVZZJXj22Wdb/ntilXqMn2d83l7s559/
fsPvueOOO+baf9URPUUyzBrdvs8deZ3kdNr6ZN8zaQ3POIieorOZMGFicNhh
h3XpFFijuLhvyP+PmkuhsyAOkBQzr4p3ZZnhOzIHZr/RRYsL+eTzzz9/eI7Q
Q8aprYKWQl9/0NhHdVGDNQ5PPPFEQ9/M19NcI0C8h30EWzxr3LhxwWabbRb+
+YUXXuhk7Jwj8xp3kUcYhVmnjlbEXjHxtCuuuCL0jFlrrbXC+xFvMmor8t5I
cs3GJY5PCs8ePKU5L+xNtKs/z14Vc291Lrl38GnxBTFDvGTQEOH5zFiJD6Hx
Yd+QWs8ufL11uJfa3U+t/IqY65jPAn5f9sy519iXINbFuPGFw/tXfbZXr15d
n+G7LbzwwuH14nt/Fn89/Tt08nq2LPAe4Ro2dY+rrbZaqLXhGuPvif+rZxjx
86FDh1qPd+mll0bGNqsGnuOmxsflvocP2G9ibDvttFPufet6CtfeoWXTU0Ar
P3res3FhzqnvgXXv3j30LVTxLjROkhv/LWXTU5h6B73x3LTx+eefh/lg7OG1
qu9O7TJT55629mISitZTMLeync8NN9ww9THR96t7lr0+oTrwe5Fr64qouBzt
mmuucdaPAt0489lWufSqsb7IUqOAPQqlQaGxN7HLLrt0xRhc5g5MnDixafxv
vfWWs+P7RvQU7mFNyd6OWi8w9+d5rq4/tT7NWl+VftZdd93I+6iMeyLEQ5ij
E5vPogvsRPTcsIkTRU+RFXIg1T0XJ1c9Kt+YxvqrDtRFT2HWKSQemKcHCX7c
+GTRb6u5EPEX9rnnzJnjpF/qvNFnnHgx969eP5V3GDFg4s/UVGbuc8stt4S+
Lvq7DT1IO/2FD8y8VHKghPjoegrf+bW+yEtPwd4E+wK2ezZJLlFcqHlq5s+q
hu7J1fPBRPQU9YB4nMtrqFWNcNbmaTD1rvjLlwViM4888kg4RuKwrfZN0jY0
U3FzuidNmhzu1arPss/N2LifqVPE/vv48eODG264oUtfoBrxVvYU8sxfJGZj
ft92++Ct4PvrsSbW2zy/1Pdz+W7gWPq4Wcf5rI/y6KOPNs1zXO+/t4Lrx7xm
bI39G+aPrtaB7K8RU4mje+Z6UvUnVAyQ9cwrr7wSXvtjx44N45ymJpJ7ZtKk
SU7GawPtNLqTducODbPLfBM8s6gD1OqexldeHwPzen2srBuYa6D9Jpee46mx
Pvnkkw3HGj9+QuijrJ9/9mTRWfMcy6MWn5mTyrgFP/BMMPesNtlkkzDuEpWL
wp4AteuUnwwxUxOzjpJq6HGqxplnnhl5v3MO8vJxTAKaQ/bjzfs7r77V+el0
fwrgORo1pqOOOirRsdBLMFdE28j+A5oBfAjKqNkpmrLpKU499dTI68AW0yI2
oOtBaVHxPfxi9X9nqwfjgyL1FOSkmTXIVGNNlBb21ziG1BKrN9x/UXF8/txl
nhN7FKeddlpDLihaVWpcquvR1vCey9rvsGHDwvgqtfqWW2650BvAdd4AukF9
3KxJqoToKdxCHEXtSa6//vphHVg1T0Zno2tQ0RVk0Yk++OCDkfcPMR3RK1QL
XU9RRX+K2bPLpacgfsM4yLOLk+uGrjfqfmLdXwfqoqcgrqn/vuw35AEaOtbr
rbzQo+IteEJmAY2qil0RV44LsTJiq63qOtLIB6OOXFadYFrefHNK05jyiNt2
CuJPER/uCds9QI6367005gI23SwxAuLNPu830VMIaTBrYLqIVxMb1o8zaNAg
x6NODrpIU0/osyXJy2XdyRrx2GOPDfcw2x2beD6/TVHvTH3/1cWcG3037zH2
+dj75Rywx5pFp2HD9HD3We8J9LzdPJ/LaK5430TFpqMaOZV8NgvoI4idcJ+1
8xnUQeOk9vGjxkfdF/J3qS3ga0+Ta86s0RKnUTsjq1ZGxYk23XTTyH9D7oHZ
N3orzgf6lRNOOCHcXyK+STyVnLdDDjkk9COIGh9+Wui1+P3ZB6LuJvoacmTz
gL18/fug8xbcwpoSr2vdL4dnLft5ca9btIiHH354+FnTM8h856tGLkKVYD8C
z6Wo+zyJ/0Bd8Fnvg2ea6/lpVtAfRY2p1bNbyEbZ9BTm/M5s5vycvVTz3/Bu
NsGHQn9OozfOq15ikXqKe++9N/JcptUXoQVU6xXmxEJ9odZL1PXl0teJPC20
E+rY7CHgCaf2kJmr47diGwdz7yrUd9p3330bxo2fWZUQPYVbVGyF2oC2OLe+
X0m74447UvfVqmYOeRdCtZB6H+5QcyjiaHH9zEzPYb3hoVwH6qKnOPnkkxt+
X/yrfEN8kfdC0piqamhCszwXVM5w2u+KzzR+vYMHDw7PH43/n3xJvEyLhnml
6YNNjFyIh+gp4hPlZeRyLw1dBrFqm46JPUKfnvIK0VMISWGPhf0z2/3BfOz9
999PdVyzria1UIuCnBT2GNtpDF03vPXTgqcUe4znnXdeMGDAgPD9zd4BdVTQ
+ufpcWBDf3bTzjrrrELHExf2afVxE+Pyif6eprEX6Zvp0z8Ic8LTXrfkOGeZ
IypvGq7ZNMycOSu47777wmufY51yyinBxRdfHDzzzDOZtR7tYC9hwQUXTH3u
qJeRtvYN9zTnnuMwT4+C/DW9T/YKypgvnwRzPc+7x0cNmrqCft3cA2ZtmaZG
Jdcan+UYL7/8ctefR/lZp30OFEVU3RIauaZ4xwuN+NRTlNGfgrpZUWNCS1j1
53FZKZue4sYbb2w5HzBjWraYoulPQdxQ13Phn0dOSF4UqafQPXb1hndAmrkf
cUb2StVx6pJrKdgx12Ot7tU0MPendrauCccfzub71WoPizlImWGtYsZ4svpq
5I3oKdwxfPjw8DziZ8vemQ2zNlZavyXyi1u9c0XvXD1ET+EG+lX5eNQGjwvn
POp+wmOpDugeuZ2sp2DfU/998cHzCTl11HJOG1NVDV+/NPnvaPvw7iUXz3V+
ZplQdbNVQ+8hxKMT9BTk8ajv4FNPYfqEq+aiTgrxaGqh6lp0/f4n5zOv+re6
noK4jSC0g1pPUe8vaqinYfbs2U3H8lFXJw7kNEXpRXw2cvM72a+ZfWP9++IZ
UHaow2v+Tr7rURPn1/ujBptPqI8Rp0ZFu5Y2pxy/XHKxiLX51j64Bn9SF5qr
yy+/PFX/5Ovw+XZ5cuSB6f3hDV91pk+f3nQeX3vttaKH1RHg+6LHq2j47Wbx
SkOvz76xuvZmzJgReT/4qEnuC/SlrZ6fVcvBzIu66SnwFGj1Dpg2bVoh4+p0
yqanoCZvq+uA+0KHGLf+9/hgqecwe5TopcnFUn+PniHverxF6imUntRs1E9N
Ct4gZq27MuSSpYW9EjSmVW1FeSEryA2Jmt/vtttumY9PnI93n35cvD9b6auj
9hlYPxXtGd8KajCaY87qyZ03oqdwA+t8fO7Q/bXyS91xxx0brhc0R2li4yed
dFLLd25UzUKhvIiewg3EF+kf3X+SuQ77WFH3E7HeOqD7U5jz9k4C32z99/WZ
U4jPFhq7qGuLOj/UpCE/gRxw/m2rGGyavW78Vfgse+adDHNY/VwddNBBRQ+p
MnSCnkLPccaHzwesZRZeeGHrvZlmj5e6bE899VSooUDPxhxSPya5rTyX0brn
nUMu/hRCUqK0RuyJpo0J44tkHq+IuhTktEfVSuW+JdZGPhS14JmHslfSqtYG
dcZ41toa2iz1/1NHC4/ZTsas/7ryyisXPaS23HLLLQ1jZs3B/pkv0NKaHlzo
63zBmm7ZZZeNvH75vj169AjnrtR7wzepVW2NUaNGJR6D8vys2pyEZ1bUs4LG
eWXvg5hQz549w3o7Uf+W+UbSOhlch8o7pV19P+p46P11gh8jcyWzriK5v0I2
bBohdJIu6twdf/zx4fMDvyT8p6LuhyeffNLBN8mHVrUlaGYuuTCPuukpqBvQ
6jphv0lwT9n0FMQCWl0HZ555ZsO/nzp1alcdeeYJl1xySZhLghedvrfKMxvP
tyJ8/4vSU6DRi5qPsjabMGFCVxs/fkLDf7/xxhvhvAn/CfzM8AQwfcbIb6ki
eJuq2s9Vbvy2W2yxRSpPLBeY+fGqMe/kvswC9ykaVf246KLbzbOUD7WtUZ+v
rKh9O9VYV1YN0VO4AT8WziHrgVbYPDOJpyeF/beoe4YcXaF6iJ4iO9SzVjGU
oUOHJv581D52Wh+ZqlGHeh9obMzfl7i4L2zrZHLPqRWL/tK2R4o+b8SIEeHe
lHlNJp2rUbuVNSNzz072pgDqo5dhTVxFOk1P4cufghzHqLkX9yb6KNXM/zb/
Lmqtz9+hQycfvci6h6KnEJLw0ksvRd4beO2nBR2Dfiz2lNN64KeBvUm1r2tb
b+FN2CrO8fDDD1vXfnwPiZPPg+e1eX6ifB7LAs9ofby+Yyjjx49vOkfEqn3A
/UUM2ewPvS8+rLNmzbZ+Ds8O/DGJc5qfxb8/ibc981zuEbyqq6QnQvtgetei
rcCjg2dB1Hfh92XPw6whQ+NaS4LyDW+3dn377beb+mIvoRNgv0P/XuQhCelB
42DOWYlFusoTxQuHY1LPA8/IqLkEnjVVgf35qO9By7rv0qnUTU/xq1/9quV1
otfBEdxRNj0FNchaXQe2Wkfo1PFzM/WDPKuJibD24tlaFEXpKVTdb1/tuOOO
y+27uOSoo47yel7ybviw5Q2aT/yebePJWouU2k5mXgr3cZx6dcT70bnbxkWe
R56wDqIeJfsdfB88x2yw36HXI6Jx71YN0VNkh2uG9xj5Sa1yCNjrNa9v7sek
axG0WK1yQKjrK7iH+BKaAbSLr7/+uvPji54iO0rPR55UmjwxcuLKNLfOmzro
KUaPHt30+/ryvzP3CNh7wSs1SZ45zxvT+793796xP49enc8kjcdWEdaN+nni
vdxJMO9kHs++peta0KKniAc+ErZ3BJ6a5OhGtS233LLl31GLWuWZqIaPDp4V
aM5ZJ+WN6CmEJNj2X2nkYGfRPxC30o+34oorOhx1e3jfmt+JXCXuj7jzTHKl
bD5V4vc9D5sHybhx43IfB3va5Fsz58JLOWr/f+LEiQ3rcPbLeTf75L777ms6
R2+++aaXvsx8IWpptfM5MOE3xbdTPw7aqLgceeSR4WfOPvvspMMvDJ4HvM/1
70xsbfr0+H46rA8GDRrU5G8R934gHqvWDOTHtwJtjN4HcU0+3wmYmp60NWfK
iIpH8bzKY68VHZC5f8D6yvU+3aqrrhr6tdj0h2oNXSWYN0fFavOex1SJuukp
yMWMGhONnHLBPWXTU7Tzs2m1v8Ne0quvvhp6XBAjYs1RBorSU+AV2OpcZm3U
Uqki+Du18p2rUkPP+dFH+ddcOfDAA63jMf1j0qDvy9PYW06ytozS5hGHyQvW
zWb97agaKGeccUbDv9t8881z9+J1gegpskM+AeeP3NhW2HTKxCiScs8997R8
vrBfJ2SDfDP25vl9eP8vueSSTbEN17U4RU+RDfzQVd+sl9LA7227p4gJ1oE6
6CkefPDBpt/XR21Kai7p+6PHHnts6j1wPIx22WWXrmMRx4rja0TMTfkI1yEP
lrxI87f905/+VPSwEjNmzJiwVgl77euuu2649jF9Sph3uET0FPEwa8qolsYP
yYR9jAkTJoa/rVlTBM15v379UvmZpUX0FEJconxq11xzzVAHlgWzhij7LXmh
amXpjfVA0r1lYO/LXEfwLi/Kr7RM2Hx/8vZ1Z8626KKLNozh1FNPtf5bNBf6
vyPnyzc2L1cf8xvOu7pO+V+81NLqofBg0/002eePEyv75JNPwnuDOXSV7g89
NohHxaOPPpr6WI899liw+OKLJ77GVA125o/tQM+lX0+dpDkgZ1f/btRjqiLk
O+rxKK4JM6fKp5cz62Mzf5CWxXMqCmL+UXmfNHwrqgLecmb9Pr3VpY5sGuqm
p2hX7yPNfFNoT9n0FO3qffTv37+QcWWhKD1F9+7drecQXTu6lahGfh2/A/6g
xMF5Tpt+Y7x/maNWFebgeDWzb2O22bOb/6zVnxf1+aL0Qsy1bDnt++yzT2Yd
gL6PpVpSX4lx45p9DGmspfLy9bz22mtjPVO513RfHWoPRnkflh3RU2RH1SEi
XyXOv9MbOSBJaaW547oswheg09BjGLaGB6lr/1E8wNXxRU+RDHS5Kh+HfcG0
7L333pG/uStPyzJTBz2Fvkeo5sUuar+a6PrV0047LfPxmAfp+VbDhg1r+xml
vSMWVwdsNXenT59e9LASE1WXT29ZPeVMRE/RHu7BKC8913ol1urbbLNNUz/L
LLNMqjr0aRA9hRAH9g3wBDOvVfamXeTsm74XaM3ygL1Qc29npZVWyuQJcMgh
hzSdJ6mhPm/Pzjwvefu42nJEbdeaqqWgGrVe86jLNHjw4IZ+fem89Tg0uQVZ
Ya2se//F2fu94IILwn9L7eqqQB0CpXvlt6Emd1bwHiDeoOKhcfQzat4QpxYM
8Uv9msLPrlMw59F57uW4hHdOu/UAeyM+4Llm81Wido+PZ57pRWW2u+66y3mf
vmCvoNV3cfFs7VR86ilaeQAUpadQXkxRDZ9SwT1l01PYfNr0ViWvLkURegr2
2qN83NN4CMydO7chHsN6V6gfXFfMfcxraqONNsrsIcs1Zu49rr322qn2J6Ke
a77miSYDBgxo6nvgwIEN/wa/PT2eyv41/jpVRfQU2aDOZJx3xIsvvth0bfGs
pwZIUqI8dWkbbrhh2q8iaBAXYQ6AxyH5aaZnaRpfkXaIP0V6eE6reNPs2em1
bXgIRN1bVdyXTUod9BT6Ol1dM64hJ0/tw3BNuYL3hfK82Hjjjdv++6233jr8
t77qmZQN9r/M+9ZHbSbf4GNCHU2+z+233x7WgjC/V5bnnA3RU7THlkNN8+WR
zTpqu+22s84dL730Uuf9mYieQogD3nzmNcq+4hNPPOHk+KZWAz9L3zCfNXNy
We+/+WY2f/MRI0Y0nSv28esOHibmebnyyitzHcPOO+/cNAazjis1N3SNDd5R
rep8uoTa2frYfHjf67Fv/L5coed0HXrooS3/7ddffx3u86MjyOvcugDth3pO
4DHmCuWBSuP50Qo8cPh3aGLa8fbbbzdd753kY0cur/7d0PdVkTlz5oSeMawH
0NGbXt142PnCrKGommt/PIWK5dha1XKCeX9FfRfa+++/X/QQS0vd/CnIgW91
rfAMENxTNj2FzT+3yDmxC4rQUzBvjzqHaFbSwBxWHaOdH73Qmey7775N1xP1
KbJ6cIJt/+mWW25Jdaxdd9210DkHtXD0fsnpVPpb9gZ5v+vxFWok+qpdmRei
p8iGOn/tcihs9wm5xmkwa9Lojf1QwT1mPDfKAzYLoqdIB+8H5e2RpDavDXyV
ou6t0aNHOxpxeamDnkLFPFXjne4atb/UrVu31DU+otB9tFrNP9B+8m/qpKPG
E9O8b/FMrjpmPb011ljDeR+ip2jPkCFDrO8Gnx7ZvN8WXHBBa7/XXXedt35B
9BRCO6gvaF6XzGXj5EbHxdw/yiOWxZ6v+b1caJjIMzSPK/fWPP9Z0wvk3HPP
zXUM5t4hXpAK9vHQM8w///xdf3/AAQeEHrR5Ye65kLvkmh122CE8Nlpc16h5
Meu1VvNi3t1Vi2d88cUXXblWSf1524G+RNVM4fdpBXE8/t3111/f9rhm/Rjq
GFWxbnEUyuNEb998803Rw8oMdUv07+RLXzhr1qyGuJTe0OL4gNzhqBhMHI1Q
mTBjDXpbeumlix5eqaHGlDpXddBTUOcmakzMfwU/lE1PYavppre0tayLpAg9
RZSPOxrdtDXy9D0OU2ctdD7Mqc3rifm4i5qLkyZN7vKh0+cIaX3RqX1gu/6z
5oMkYb/99gv7pGYktfeo1YY/53LLLdc1HvZfOK+dsO4QPUU2yN+gPn0rT1ty
DG31I9gXSwrXnB7PMRu1OwW3oAswn3P4Vrim6vU+iCvq5ygvPQU1q+hvnXXW
CeNOWWg1l63D/KkOegoVb1SN9ZRL8ANT+5/UMXYN8UA1Hxk6dGjkv1Net1df
fbXzMZSVSZMmNd23rutiFMFuu+3W8J181GoXPUV7ojTfWXV87bDtC9CYM/jU
dIueQmgF3pGs+fVrkvUxfnwuUR76qvmuIWzzEyS+6qL2KPuu5rGp4SMEwcIL
L9xwXvL27SAuhm8rfTOHYz5MXXN0E/rYqF3hYw3YDvP9s/766zs9Pt4EHJf7
jbmUa6iLq9bSrXIE1Xu8Sr5qrJcYM1pXH7UhlcakVU1XND/8Pc/gODFe02N+
//33dz3sQrn88subnrV5+R37gvWfqXHwVQPj8MMPt847uT990areBx7SVQId
QNR34T0jRFM3fwril1FjwjdL8EPZ9BRoiKOuA/x5WD9UjSL0FHrNOr2hRUyL
0lPwOxDnFeoD3rTmvIv68K7m+ugNzGv19NNPT308VevbbFOnTnUy3rgQf+e7
4Q1H/2grVl111dBjgP2RrDVSyoRvPQUa5quuuipcayZtzKfSfC7r54mN4+vj
Si9ju665L6kpmpTPPvss8l1Lo66r4Jannnqq4RyTQ+VjTiP+FMnRa83Fqcnb
jlZea2XYl/7ggw9CHZav5x/xWfV92cP19fwlNvjll18Wcg7N+uX4CruEmqgc
t2fPnk6Pq0MNRfqIyovHG3KBBRYI8+U6ab7SjilTpjTdt+wJVxnqSJi+8z40
Ip2mp6BOikvYS9Vr/enNd02ZiRMnRr6XfO6BVElPwX3CHID5e5Hrh6SfZ33k
K9fTJ2hX9XqytKWWWsqLX7zLOEM7uI5s9eIfeOABJ8dn3WceG12UEDS953zo
BtvBfiU6VeosKY07GgB8vsg3Zj2Ypp6tC5R3hGpcpy7Bd5Hj9u7d2+lxdZRf
bpTHo/IYq5qvGrVWGfcdd9zh5fhcc0q7FlVHSeku+/XrF+uY5N/oezXUmOsk
eLeaz1rW0FXG5sHnQyMyYcLEyPrz11xzjfP+FMxno+a6zIOrBHPmqO9CHpBP
8NKiDzSBBx98cKiN4X2KXuWkk04K32V4geDJxHOD+Sq1Vqjjgm7lhBNOCPr0
6RMcdthhwYEHHhjmmuapIaybniJqbel7vlt3yqanMDWOemMfsoroegofNepM
0DpEvbuy3EsvvfRSeAy8woT6wJzR9MhkH8GV19mMGTNCnYF+fP47S20OvTaN
3j78sLj6iZyvTvChiMKnnuLDDz8M93Si3g1lb+Squ0Dlz+uNuW0aWDe1GvNz
zz3nZMzCt5he6xtvvLGXfkRPkQziS+QC0RcaF2qIZm14zUTdW1wHRYKGx+Zz
U9Xm0yO/FcQW9HFQk8Ml7OdxXJ/7+MzvmG8ttNBC1jmdqltTtxp/77zzjrf3
eFGwV29+J+ZWruk0PYVrfwrb70AjDuYib70VrEFMHwDVePf52iOokp7C5sVY
lUZOsY972idm7uoKK6zgxSuFe8s8X+gJfWGrX4Ifgas4wMyZM5uOT+6GEIT1
BvTzUgbPzDLVB0DjoZ+fTTfd1Onx0VFw3JdfftnpcXVUbD0qP/uggw4K/97n
nq0PVlpppfD69eFNoVB6F9ueAPo2tOHsIzAPjgMeFuTDsm/aifUsuYbMZ+17
771X9LAyoddBoK211lpe+lHXmtnwriGvyxfmvoVqPXr08NanL8ipiJrz6bWk
XEOdFh/z1LRx6zTUSU9Bzkur8+7Da1GYR9n0FLvsskvkdeBbg+WLvP0p7rvv
vshzmKX+77Bhw8JjxNWrCtWHuQ57Q/o1hGcheReuGDRoUNN1uvvuu2c6Jms4
85jsx7sct9CITz2FLVe0Sm3w4MGZz8HcuXObvGppL7zwQqrjkXfcaszE6srG
uHHjgjXXXDO45ZZbih5KKrbccsuGc+zLa1j0FMng/szzeYBuuEh4lph1Z6rc
sviuZUHFa1VDQ+Ma8o19z1tUDi2aaR10RsSkiKu2qkPVidj0FHHqSJeZSy65
pOH7+NL3i56iNUonZTY82PNgr732inyWjhgxwkufVdJT2NakVWqsl6qC6Um7
2mqredunYj/bPFc+ta14eJr9kbPpCmoYmMenfpfQrKegZpnwLdtuu23D+XHt
u492ybdXDn2gA0YP/Omnnzb8HfEL1jhV9FXDb8+3Jo64Eb+7LacDPy7+Trzh
v8Wmp5g2bVrRw8oEv6/+fYjt+4B1Rt7r9lYx4zT1kYtm8803j/w+rOt88ec/
/zn0l8DPaPvttw/fG+hR1l577cj9Y1vDLwrfHeb+rHPGjx/vbcwmddJToEOO
Gg9xnKp76pSZsukp6DfqWsBzporkrafAf8d2/phbZplXqhrKrrwKhXLDHtYW
W2zRcA1F+eplgf1R81rNul9qizNQU0rwh+96HyNHjgx69eoVerjZGh5iUX8X
p/n4PHM35nJx6k+247LLLmu6prO8T2y1d/VWxhgE83rGxjmtGqxL5p9//oZz
TE0IH4ieIj74I1HfmH6ozURMwVWL8gmj/kXRUN+E57Sv5x85pur7UvvD1/P3
5JNPLmyv36z3seKKKxYyjqzgPcH4Td3frbfeGv45sZS6MXny5Kb7tuo1sNAp
69/Hlxe36ClaY/4OquU1r4mqZU3z5UNTJT0F83V+C+bvRa4fkn6e9RHrpKrA
voZ+7ZG7QT6kL/CFMK93fOp9MHv2bKtm1aXWxTx/NPGPnYfpeV20hrlsmPU+
fHkl+oY9PsZPHqEOuiWf77Oqg/cFOWZoUcx6iXiV+IxPVJErrrii6Vk7ffr0
ooeVGrSFKu7ha54L7JtHzTWpBeEL27uRRt2lNPWRi8b0E9Kbj5qNccEPnzoe
UWPjfFOnukh0PQU1S1xSNj0FHppR46ljHCdPyqSnIBc+Kv5MXi75tFUkbz0F
6ynbOcyqP+aawEuyiu8iIRnovvXaAtyX7Oe6Bv267VrNuj9CbS7zmOyVCf7w
raeoO+xJmtc0NerSwj1u7u/rrai6rq1gv5JnURVrRD/55JMN55fv8fnnn3vp
S9XqpU2cKHqKVrBnQh/cX6691qN81V3XKi4jrFvV96W2eyfCe07/XZdZZpmi
h5SKO++80/re3mSTTcI/v//++wsaWXFMmDCh6b71lbufBzzb8ILXv8/NN9/s
pS9dT5FljlIkvvQUtt9Btbx8stl3j5r38dv5oEp6CsE/7H/qdT632morr97f
ClPj4GtPR4/hqxZVlyAt+HybfVDXXGjUlNN85V5XFTTd+vnp3r170UNKxXnn
nReOf8iQIV1/9pe//CVYaqmlaumrlgSV847vp4I5CH+G1574+X4L+bzms7aM
Hq5xUfXb9eZDy3jOOedEzjVNDZRLDjjgAGufzH2riIpT2Rrr9yLR9zjNVoa9
AL2uTaf7Uxx44IGR47njjjtyH0+dKJOeYtSoUZHXwb777pv7eFyRp54CrViU
JsVWJy0J5LmS9y90Pqw91XWDhvnuu+/20o+K4+uNWGPW+qK2ue8pp5ziaNSC
DdFT+GPMmDFN1zPP+az6+CjtHQ0/hTJBrgTjyloLqCio06yfX7zvfKHrKaro
TzF7dj56iqeeeqqrD9ZFrom6v6ih0OnUQU9BvR79d8VjuopMnTo1HL++z6ni
bd26dXOuM6oCtndulb35Xn/99abv48v7U/wporH9DjR8y8kZzANzL01vvnzx
RU8hKF588cUwN0ddD8wVyJfOA1Pjip+rD2y1i/HScgl+6WYfN9xwg9M+qopZ
G9OXD0lVMb3V8IapIioucOyxx3b9GT5i/Jnk47ZG6bH0/HFVw7BT12xpsenj
yhYjS4JZ43SNNdbw0k8rX4VPPvnES5/sH5DbYOvzueee89Knb9ClR51HfCSL
xObdotoTTzxR6NjAZ70Prqeo7563noLrPiqHa4kllshtjl1XyqSn+NWvfhV5
XZJvXlXy1FOg94s6h48++qjXvoXO4Pzzz++6ZhZffHEv+0wKND7mdcr8Kyt6
PLcTniFVQPQU/jjuuOOarudtttkm83Fb+T6jzSsLzBPJ6Wdc+DxUEbN2Ur9+
/bz1JfU+2vP111+HNaA4PjEkH1An0nZvoYXq9D3qOugpzJgUe6JVhHw+xq/X
K1E57OR21JFXXnml6b59+eWXix5Wai6++OKG70L+oS9ETxENebS2d8JOO+3k
rI92RMXcaOT7+kD0FAJMmjQ5jCuoawE9Q5550GrOpxpxRx+grTTvLZd5pKzP
dH8P1SZOnOisjypj5pVVtV60L8y60Hl4J/tg7NixTe/POvuqJUHNRZS3x9y5
c0MdElq3Tz/9tODRlYsLLrig4X4hxlJluF/07+PL1wg9vm2eudZaa3npD2z1
vqs+70TLHzVnp8ZDkVBLyzYuniVl0Bz51FOUyZ9CvQtt7fjjj891LHWkTHqK
Nddc0zqW5ZdfPnHsmfj7q6++GmoIbr/99mDYsGHBueeeGxx99NFhHQNivXnV
h89TT2HOkVXD49CskSYIJuQ2qGuG2Do1pH1i22867bTTMh+XuZp+TDw2yvBe
72RET+EHNKV6/FG1m266KfOxhw4dGjn/euONNxyM3g333ntvOCZqMlQRnj1m
vpRPr0PRU7RH7S+yB+6rZnfUOpNGfe1Ohpru6rt2qp7CVqsSbUIVwR+Z/Rnq
POG7TkyVeZOvHKKyQ16N+du+8847RQ8rNaYngS8fAugEPYWqIU5zqafYY489
rO+DQYMGOeujFe+++27kO4mGL40PdD2FCy2wUD0+/PDDYKWVVuq6DpiD5Q11
RfTrnXmKa6ZNm2a9t9577z1nfeDdbB4fDYd49AdhbNc8N75qW1UV3sv6+Vlk
kUWKHlIq0ADosXW1p7Tyyit3vGY9K+yNcK6UpkzpK3zODasKcWn9fuH6qir4
oC244IIN38eHxwFrSZvmj0ZsxBeHHnpoU3/o61577TVvffrm/fffj5yzF+29
bWpUVSOHrAzURU+BJso2Du51X16UwreURU9hi12pds011yQ6FnmHaDBaxQx4
tuIpnQd56imi/KWJDQnzoJ4eMS3mQ6zt4zS0BXH+LM/Pr7766uHz01X8Ht+8
733ve+H1gqaUmEBaJk2aFO7pbb/99i3/nZ4DptrIkSNT9wvohszcBPH984/o
Kfxgq4nD/MiFHrDVXHD48OEORp8dvCmo7cqY8PGsIub8hueTT/8P0VO0Bi0D
OgqO7XOvv1Xt0DFjyqNX8oHuT8F6thNROi+9UTujiqi1w9tvv93l33nYYYcV
PazC0Pd/Vfv888+LHlYq2Fdgv0T/LiNGjPDWXyfoKfS1CfsOLmCvk3qGtvcB
NRDy4Morr4x8Jy222GLe9qDEn6Le8Oxcb731uua/1157babjoclhnjtlypRE
n6N2sH7Nc5+7hrx4897CE8YlNm/BM88802kfVeXNN99sOjfiz9sI9595jqqa
c4ful3wF3q/U/eC71NVXLQkq/rPzzjuH/03NB/67TLk0ZeHggw9uuFc23njj
ooeUGnz2zHsfraNrWmkAfK0//vjHPzbUu1XtgAMOSH1M9ka23nrrYO+9906d
B/PFF1+EOd78b1qifOXa7bP4hPMR9RuzJ1AG6qCn4P41c/ZUU/5Dgl/Koqdg
fW0bB2udpHpr/j1xQGoLbrTRRtb4Beu6vMhLT8H+jLmPrNqpp57qrd+qgUdJ
1POviu3uu+/OfE7ISVJzEHQaWbVsag+4nQZVefjrLet+hK2e1WWXXZbpmEJ7
RE/hB9a65vXcbp+LGGOcNTGxc7RatucKtTXLAPoqxoP+zXXuN9+ftSXzXvwP
mTNQb4hahS71vGeddVbDuUUfovjTn/4UfkdyQtBzkz9HztyoUaNS722InqI1
ar8PHyP0t76wxSxV6/T6U3Wo9/H88883/a54jVYR5V/w1FNPde17VTmfJyvU
PdB/Vzz+fIBu+eqrrw6f+Ztvvnmw5ZZbBsccc4zT/XV+R/M6VbnS6BVfeOGF
sPbetttuG/Ts2TPYZZddwns2rX6k0/QUrvwpxowZY30X4AVDLp9viI0Qg4h6
J51wwgne+hY9RX1h3s5+BL89+apcC1lBH8YzOen8zYz/6DWuXHHLLbc03Vvk
8LgCLb2pj+NczJw501kfVebxxx9vOv/sZQnfotbVekOHUkWoXcb48Q/jvqiz
r1oSlI/Ouuuu21UjgRiI0IxZr1VpUFzC/Gz06NFhzW3iUeTBohsktoqvmCvM
OpWrrbZa19/hpXrPPfeEMVzWIzR0BLfddlvoa5GEqVOjvdDQ7fuAtZTZ1/zz
z586PxSPbt6tWd7jEyZM6Kr/xZ5r2thilP88xy4Krouo3/jpp58ubFw6ddBT
EK+3jYFYc9L7VkhHGfQUxI1sYyBXfty4cZmPz36FuWeUZy2ZvPQU+IdH3deP
PPKIt36rBr5Wyoeh6o21Q1b9AX4d6l3P/tKHH2ZfkytvtEsuuaTlv7P5U2Rd
BxEH1o+HTkTWVv4RPYV7mHfb/PKeeeaZyM+wJsO/Bg+LODDnsz1byuDVhvZ5
ueWWC5/X7Pm4gj0k9kj0vQV0l8w9lR8xfV533XVdn6F/9rz69euXuHYQa1L9
3Kp9C+Kuyy67bNdzinom6NnUv1t11VUbxhAX0VNEo69/8A3xCXkNUe9uamt1
MnXQU0yfPr3pd+WeriJqD1xpv3r06FH0kAqld+/eDb8rnm0uGT9+fEO9O2J2
+KYyB2c/gD/jHlIaQp6J5F4SD2LOngTl46wa7zg1BhUnRotPzU3W/uzv82d4
+PCuSpq3KnoKO6yHbO8CNJx50KoGM7/1nDlzvPUteop6wnpkv/3265pTu/AV
J+ah4hVJueCCCxque567rj1ZyL0176+TTz7Z2fGpX2we/6CDDnJ2/Kqj161V
rdPr6yUFfYl5jnyvh3yh8rLOPvvs8H/r7KuWBHIwVZxB+S9Udf3iG/J59HvF
Zb0K4lHom9Zee+2G2P6GG24Yah2Ym9P0+livvPJKGI+iVktSzwO0Gvp3UfFa
akitsMIKXfEoPAsZk8rT5e+S5CaacRy9UcfYNayVbPlhWXLDODf6sZjLJMWs
tZi2VvPEiRMjz2dRvpjm+VGNNWxZap92up6C/Em1Ztcb9y35gkI+FK2nYB1D
PoxtDK7WHzy3dX0ZLWtNgSTkpaeI0q6xhq2qj5sv2F/nOYiXAbpc/tfWWv1d
nH/j8/N4SmR9X7HGVPNE7vmPP/7YyflVuSjtPBbx4DKvV/RPWTBr3lATRfCP
6CncY9Y4VWtf1l9R8Fzg3+FzEAf0UzZ9GToOl/V+k0LemdrrQa/vCnT+eDWq
74l+gVi//ixFr6K0FuQp89+695OqNxoHtBemD9tVV13V9YxkD+uuu+5qeO49
+eST4Tpa/ft2ujQT0VPYQaeNZoVj4vvsG2IeUWstPFA6mTroKcDME61qbZNe
vXqF41drwqx+7FWHGnH67+oqv5j3TJ8+fbreJ8RB2AfQ/XbJM95rr73Cv8ev
gnm6HidEY5gEM56H3oGau7z30V2Sr6b3j46T76v+PX6ySfwTRE9hRz+nenM5
v4mC+UUrbwrf7yPRU9QTcpf4zYnBMc91AZqMtHM4Wy0O174OeMuZfZx77rnO
jm/WK+fcusg96xTMOnuua610ArwPTD9jnzXAfLLJJps0zF2JjwrtwX+M80Uu
CfufrGXKsgdaJtinMveQLr/8cifHpiYGniB6fO93v/tdQ84OnhV4iPD3/fv3
D/9bz7Ni7RYX4mrM+fXvgk6DOb6KhzHf1esJk/Osv3PivstYMyhtuN6oK+cD
voetryz5lCq/SjXWSklgT8UcUxavJDxLbPN3/AWLwDw/qsWNP+dBJ+spuMfU
+8/nnFNoT9F6Ctt+EY3rI+u+qsJWK2ru3LlOjh2HvPQU5j6yanXPMxPsUGeM
fGyuEa4dVx4OzD3VfI25YiuI4ZnX66effpq6b5vmvor7iVVE9BTuQZ+edI6m
vGGokx0XlT9mtgEDBmT9CqkhL1bF3pPW/IoCfRfrK/X90OnzHLTB/ENpzciD
088LfuxxIefHPK/ELYhloRmN0gpQr0XpXPi3N998c+w+9fqRVXz++dJTEAPh
eJwfvAV8Y/MvUC2JJqeK1EVPEeU9UzX0euzEDuvu6WU+813Upp8xY0ZD7GP5
5ZcPa0BEoTwy9Lw12jLLLBO7T+bjpuZH/TcxrygfYeI0+jkgDhX3PSx6imY4
d7baozRicr5hzhL1LiJG63sfRfQU9UN5QeC3jX+qK9TaAC+lpKARN69/17Ug
8Ag3+xg0aJCTYz/22GNNx0Y/IHwLtRP180MdK6EZ3Quxyu9qfY+RHHpX8YJO
B18D/fcXXw87aI3NZ24rj9i4UFtxqaWWapgX4Rlig7xgNR8nB0cfy6GHHhq7
T5VvpbeFF144jDGhfYzad3vzzSkNeUHU1YiD6YVB0+uLuAJt0BJLLNHUV5Z5
B2sj83hoWZJAPXb981lr+91+++3WOTzXUd5aKPwNo9YU7AeUBZ96Clt9edV8
6yl4z0X5g+Bl2cngyXHGGWeEMRLmLUk9enxQpJ4C70lbXizvDJexPNYx+vHR
+eVJHnoK3sGm1lg18pAEQYf3OWtMrg/iu1FzuDSQJ8Fx2bNqlUcP7G+a12s7
DUYr8GDTj7X77runPpaQDNFTuIX7wPY8b+UZgfacPRreBbNmzYrdF/u+rKnM
vhZffPHEtS1ccP3114f9sz7S82azgJehruknV7Sdzy+fsf0Gw4cPj92v8s/X
G+vSODW4DjzwwK7PoPP/7LPPYvUp/hTNsJeJpznHyyMfGFjfRq219tlnn1zG
UBR10VOwbu2E35WYnPoO1KGoO7omjXbnnXdmOh7vc3wl1PHm1dGd0fIz1F8w
tRA0vCvi8tprr1mfP+xJttt3MN9/xPLiIHqKZtDN2H4H4qs+vI91omKwNOaL
SeaKaRE9Rb1gjqyub9f1ZpUmLY03PTEJc61DvXiX4INm5uXiQZQV4jamto5a
B6z7hG9Rudaq4d0rNIO/i36ekuQJlAndb5L8fSEexBP03x+tltCMLSc3S94f
sM+v73/xzGr3HH/44Yetc7gkuVNmvSsa44jzDsTrWf/MzJnt541XXHFFU3/k
W7bbG0gKuUlmP6eeemqmY954440NxyN+xLs9Cccdd1zDMfClzYrpnaha3jVk
zf0WvaEVKgud6E/BdajHbPSWJPehilBzyLaOdaFxy0JRegriNKZ/Eg1PU7xG
XbLjjjs29JF3XmAeegrezVH3NO9gQVAwj1F1Nqi1E5WfnRaVO8I6vx3MH3V9
btoYCVDTRvcxY0+xyHoFdUP0FG5RufR6w6+iFbfddlv479Lk4+Dvbnt/oFnP
E/z01JrL1fzo6aefDnPk1Hfq1q1bbG2Cvq+i2ttvvx27bzN/nRbXa8L8Ta67
7rpYnxM9RSOsPdQ8kDmvK7+LONj2Q2lcV51MXfQU5Onov2uamu5lgPrrWedg
nQJ6fvN+ffPNN1Mfj9irnlOGro+aTnFQ70O9JbmfhgwZkjre8tFHjV61u+yy
S6w+RU/RDDW7bO8B39oCtBS2vBW1RkJvkweip6gP6CeI76GlwJ/NJXpOZCtv
n1aYNYbZY3LNnnvu2dCHizUxmgz9mJzfCRMmOBhtZ2HWNeLZIzSDH7h+nsrk
0Z4E3Zv59ddfL3o4lQGfbnXeiMMm3SuuC6aumL27LFA/g2e3Oh46a7TTcTC1
YrSxY8fG7tvcD0sSVzJ1uXHq0E6bNs069yS/xRUPPvhgUz4xc8x2+VLtOOSQ
QxqOufPOOyc+hlmby4VvA/saeoxPNbx3Xe+fRsHcS89P0xv5YkXk4UVx4YUX
Nqx9XVKEnoLY9d57723tk2s0i/9JUrjH3nrrrdBPmXvdN61qKONNxT5gUeSt
p2AvF72a7T5kLPjkuYT9WvO546qGY1zy0FP069fP+jtynsvggyKUh759+4bX
BlpL9gKInbO/x/+qZv637c9vuumm8PNo/1jnkwPAXE3d28xF4sDn9Gs2bX6n
WTuoqnXMq4roKdxi82c+77zzWn5G5Wmk8Y/m3Wxbq9FcevVGQY7m0UcfHfbH
HjRrThfg2WfuaT///POxP2/q3pN4reOdqHsk0pL4RXEO9M9uscUWsT5X9Xof
s2e701NwXeNjqo7lwrc/CWussYb1nqLuZCdTFz3FCy+80DTn1mvPVoX9998/
HD/PjiLXpGXArNFE7DNtbA7dwpZbbtlwvCR1tGzxGvLl4rLbbrs1fHb99ddP
9DzV9c7sy1MPuB2ip2jG3F9VzWeN22uuuSZSS0EMP8+9J9FT1ANqZ6j5J/mL
UfGDqP9f/2/qyF966aVhXJp5M3UcdE/vtDF7tc5QjXqHrjF9vpdeeulM+zvP
Pvtsw55RXI+7umHWMKDJHrudUaNGNZwn1smu88bzAM9pn/H1TmX27Nldv32n
15/Mgqqhq1pcXbENdARmXYrHH3889uep7WTes3HfK+yH6TmHtCR1AcaPn9Dw
WXRMcbDNfV3FFKdOndpUR4+5LTk5WSFGox8XbXsSWCuZ39tVjhjzItu8nrVm
Vh1JO4jV6jWWzEYOWZnw6U9hq+esmms9Be/mESNGhHNJsy/mhuwP+P7tgZgG
2ir8rfT62TT807g2zXwNPBBd1KPhPRV1vmk8q4vCPBeq+dBToCs3deGqbbfd
duG73TXmfgQtTjzIJXnoKfi9bOeV2JkgKPT3iu8WN+eD+17f7yQWkzROwp6p
rvclj1+01vkiegq3mDVgaWhAo3jooYfCf8P+SVrQyK+33npN/bL+a9V3VtC1
Ki0Ic0WX8S9TI5L0/OB9r38+yXxcf/erlmSdZ9a6ZM4c5/PiT/Etph4mrme9
K6LmvMTDqxi7jIuup+hkbSPxe9NrD41F1ejRo0c4dn63umPWiMwSHzL9bvGa
T1JfT9W+Ug0ddFx/d2Irprd93Fw0hRm7ifP5TtNTZH1nEH+M8iny4VFK7Mqc
t+iNOLjL/MA4iJ6i88G3zfSb9NXwmEsLzzBXx4qCZ7RZmyOuJ5EJmjr9Oc58
Iw+NexXheaqfc+JJedeVrwrkOZv31TvvvFP0sBKj7g32moX46Lm+SXJM6oaq
ja1aluuMOrP6sZLOhYg/6Z9PUpvRjCfRiJ3HRfeGUg09QzvGjRvf5B+xzTbb
xO43CvYJunfv3nDcZZddNpgyZUrmY3NezO86evToRMegRqT+ede1/ZQXuNmI
v/va/+BdigcC/fCb2nwy8s5ZaodPPUWrPTVXGjXihOxl4x9l6wdfhueee85J
X+24//77G/abqSlBPjVzavb8Vl555fDP0ShzrbCnoGLwq622WiafT2i1rqXh
A1oEtrmUaqyJXMG6Hf8EW54Ef0a8xVetF7NWVBHnWt9TWX311Z0fn/so6ndM
UmdX6GzI98gjzqFakpqkQ4cObfjswIEDY3+WZ4fuYcbzfObMmWlOkZAB0VO4
RT+fqkXV5kGTxL4HudFZ/V/xOjfXKDR07Wg2XIJ/w1lnndWlhaLf6dOnOzs+
Wl7zeySJafJsMTWn1OCIC+sK/bNJdaoPPPBA0/hZ07ZD9BTz5rdm7IKWJB8j
K+xr2bTkqiWJZVSNuvhTADEx/XdlD71qqOeci1z8qmN6aSbNS1Kw9kX/oB+L
GFgSevXq1fD5JJ6z5Iqbz5w48U8FcRxz3R4n56bT9BRZ7wmzDrNqvKddxleZ
B+J3sfjii1v747ekflsR/jmip+hsmLOtssoqucUXsuYIm8dLonGLC2sNvY80
sXzqkOvz+QUWWCB3j90qwVxTP+fkRgvRmJof9gCrhO6xMG7cuKKHUylUTJg1
aidr+7PAeTG1sGlrpJmeRTT2J5OA94L++Ysvvjj2Z839MN7XSaBurjn+uLkD
yhdbb0n1CTrE+E2PBLxjs+7XKsw5O+u4pBoF02MY7wjXROXrs0507TOJb6ye
n0acw/RuobHnWSZ86CmouYFHe5ROnobWIMl6W4c4PHO/4447LqwvZDs+utpD
Dz00/Le+YZ161FFHNcxDyfUw7wnWlurf7b777sHhhx/eMObzzz8/0zg4H+3W
BnmcDwXnhTjLT3/605ZjuvXWW1MdH00KMX9iUJtssknk8TfaaCPvmsgddtih
oU+eb3njy58CbR5zX+7ZqHOMLubhhx/OtZ6OUD7wEzN95323JBpR5qx6rTJ0
j3FiBux36l7uSy655L/mU9m1qUJyRE/hFmqSmfcU+gMT7gE1xyWv1gXUe1d+
Eeb87fTTT89cQ4r7HU9ftTbkuGeccYbTPCLmeeY8lNhREkx/Qxo5eHExvQnQ
lSbhyiuvbOo/Th0UPf7KOpZ1tK2x19Xqz2x/n8fnuRb07xz3umCegy8y3tB6
zRO98W7p37+/1zn31KnvhvtHreZmtAMPPDD4/PPPvY2jSOqkp7jssssaflfm
JFWCHAI1dmImdcd8b0yaNCnVcUxf+aTzYlh11VUbPp/kXjJzZzhWEmbM+LBp
/HHqVel6CtbgVXv/8L+61y/1s9NAPJOaiFH6BvLis/izMo8ifsxc6qCDDmq5
xtt6660za22zIHqKzoX1AJ6QecYXmMNlwYx/4tvsA/Tiej9xtXk8Fy6//PIG
301qsRd5D1cBVbdMtRtuuKHoIZUa1vP6+Tr11FOLHlIiVD4hsT/RBCSDvGLO
nXjSRcN8Xb8/WBukuc74DPm0+rHI/Usy/8PH1XwPjh07Nvbn9bxDWp8+fRJ9
B1t+UtxaJfg1mfEwzsfcuXMTjQGIgaGd0I+F55rL/BT2qfXjJ9GxK9Zaa62G
YzAXcA3XVZRPBfnj5GRlhRgzeWQq54LcOrUmQs+m168hlmuLUxdJFj0Fni5c
tzT0O8wbedckmauylkSfr44T1TbbbLNwHh21XlSN809c9/333/dzwgyo6aDn
F7Cv3CoOzTNN5WSa3q233XZbprGgZTO9bszmOu9TgacOvxPnAm0D6/d2Y9Eb
2ht0D+2uAxr7L7wf2h1/p512CnU3vuH5bXrRFJF7lVVPMXLkyK7fkfuZ+y2p
pyK/CT5IrMe4Z/XfzcczXigP7I1G7S35asT1kmo5+fd4BKljEEfgfo2ab7IP
pc952LuSOpnFIXoK95i1Ksz8C/bB8CDi7/hfl/EEdJf4Gtpi9OQzUCON/pPA
eof8Vt6D6ljMS+J4LiSF96Y5bq7RJJh6Bp4xcWFNYZ67pPWO2W83v0Oc3AjT
473qrZUelLkk9eKooWvzHoxq888/f6iv2WeffVKt6RWMjTrhzKWomRClJY9q
am7G/Jl5+hZbbBFccsklqcdTFuqkpzDjXKyfqwQ5Uoyb67DumLnLaT0FmZ+a
z6Ok9RdtedRjxoyJ/XnTGzNp/JSYmdl/nPWi6alR9dZO202eErlnao3O72zW
dI5qxIX5TJwYi2q8J4hXtcqNohHLor5ZGWoDiJ6ic9FzIfJqWffJWYfox2Nf
2RdmTh36y1ZzWup7mB6BaPOy1L2rC7oOjrl13vWdq8bLL7/ccJ0R768SF154
YThuajIIyWDdzLlzlYfTiZgaAp7DaXj00Ueb3mHUIk3C8OHDGz7PPnbcmB/7
YezDJpnXmhDnML9Dknp17L2je9A/z39PnDgx1ufRbRJLMONqrDdcvxv19wiN
50wSTI9Vmi/NJrCHHBV74tnI9Re3TqQCbwXWe3peEDGzyZMnN/w7vMjV3/vw
4MiKrqdIqh1TdbSLbqz10ENxHfrwUouCnABdK43HYZzaImbdNdVcaJ7QGZs6
A/YLla8oz0kf6NrmohpreuZoaKioo5QX6GfMscycOSu3/hVZ9RRoIHz+Pj5q
kAjlQcXK82xcs2lgbsgepv7cwpOMeiDEkckNx1sHjyk9lkg8J6oWgpAPoqdw
D3oF9onVeWW/Fg9Z5ir4Ov/oRz8K//yII47w5kE0YcLEJl891agvQt4jczxi
9uRKot9iL4mxs/fP3GbAgAFN2vQ11lgj1Dxnyc9sBRpEc7xJdZxmrlOSvHP9
va/OVdJnlG19RA2JduSdK+izsd/UiqiagklaWv9OwO/S9XdGY1R16qSnAL2m
JC1ujKgMKI8vFzVtqw7vJP13TOoppDBr2NFOPPHERMfAI1L/PHv0cWtj8l41
dXX4OyfB5q2J30I7zL3Kqrd2vsTokIoeo2roBIm3EEOMM1fIC9FTdC6tapr5
anF9xqMYO3Zcw/HQL/iEZ69e+4l5LWs41nPsaaO1Zp1ETqn6N6wZyDGRPJF4
4N2h/6bozoTWMJ/Qc72rpkFRHtjMVYT4EKdRtdzuvffeoodTWswYEH7facD7
3nyHJa31YXrn826Ii20/jD3/JBCzM4+RxK8VyDMy6ymij6AOHTEzUxeBDzse
AXjLm7UT2U/zoRVmzzfpGsAE73hzXs538QlxV2LBUXMm1o+s9YcNGxbOOz74
4INwb57P8f9z/qnhQQ0R8q71z6Ldwc8mqoYIWn3+HXl2ZUNp7mhJ/Snwf8H7
7+CDDw7/N21L8nn2s6iZQewB3fDEiX+Ive53Cfobs8ZDkvqd5r4BftSuYK8B
r0y0VOgBqROu9jqT1OROAvdOHr+//hn20ng2sp5Hx+L7GRKFWSuKd4EJz032
WBhn0vdCXLLqKYip4Z/Kc5JnFucWXSN6evKHBw4cGJ5rnmPsRaPdGTJkSOgr
SK0a9jn5t3wGTQvvpd69/z975wEuRZG27X/NYc26YBYVDBhWMCuroJjAnEUx
iwkjGDCAARVFAQMgomBWQFGCYVUUVzGRQVEQJWNac1736/+7m6/G6pqec6Zn
uqcnPPd11bUrZ7qqpqdDhed93tP865D7ttxyHYl4YRxQqvvflGL3T+bMmetr
JmwfKbeg08KDqxxir4T0FEnB2sYxxxwT6hOBFq5///6J94GxHL5+zC2LyRvE
Wg33LFrpJL050S24+tVC5jPuOjE5FfPF9flF4xCF2bM/yTp/6CvyAQ0M73vG
DaUc/8V9PGtk9eWEQxuPTxHzD/YreW907drVn0MxFqIwPmIsxG+CTzT1MgZi
/MP4qZhrkbko7TKeIn6DueiFF17o94P5J+3SFzM+IzaR/zb9YU7A8cS9sF5C
n1g/qHRqTU/h3u9cc5UAz3bjd8c9VOu4ng7kDyoEE/tnl2HDhkWqw85XSmnb
tm3ex6IRc9tnzSwK+Cy4deSjPSOHKs83nomFvgfK4f3DODaf8dWAAQOy3rWl
6L957/EOIecH+4lRY9BKhfQU1QtjqVLfv3HkScOv1362kZM9SZjLMTZ1vcrd
wlolY9SouaFqHdb67fOouPv8cOPOicmvBNgPNvN85lUif/BdN793JWm/Swkx
SrYmGX+HQnLS4vXK+pN9j6GV+/rrryPV476v2PvOF56FrhYhCry73PcU+R8K
WTthzomnm+1Ta8ryyy/vx1ASR0Z+Qs6T+xnOA+spScWQsc5nt4eOI6rfNutA
dh2l9G1gL5M5QRw6V7TZffv2rXftFB3MbbfdVpZavGLyfdQy7poWcdJRdB2u
FiPpc280TFHW6UV+uF7pZq2Q+55xt60DNwVNFh5IccbMFqunEKJWYbxEbAZr
msRuoAdCG8TzEn21KB+kp0gW/B64D9j/RS+HDjCNfKH0g7kM2vhNN9203vxe
vGfZJ0YzOnPmzJL0Ee212w/yKEQBTzu3jij9d/fTeHZFgfmm2z65KYSoBGpN
T4Fvln2v4ttTCaC3NX3mvVLLEDvFep45H+RJjbqOBqw5uN4QvCe//PLLSPW4
8WBRfh83V1XUHDSs9YZ5aia1himqG+kpRLmBjtV+vhWbQyRfeD8QX0esFHFf
+PnwbB8yZEhZ7kdUCvg32r+n60suwhkxYkRJ9z3iws5/UKhvQK2C/pPzhkeF
8giFQwyRfV9E8YOwsedYppDnIgrEX7t1uPl/6+Lggw8OHBt1jTYsfy77pcXA
Phu+Taxr1eXxxjyEvTN0m+jbk173tPOIUw444IDIdbi+8sQ+lxrmauwxs/fJ
u7G+vO/EqKKhZ72WOKRp06aVvM9JID1FdNDYubGTjFfzJcwfE11Okpg5JjF2
Ij54jrjPDq4FYtnRvvHfxIsyl+HcMy6zPbLx/ouqHcyF9BRCiGpHeoraBP83
vATxjHzsscf8gu/WK6+8UtI8bzauFp+ST953G3c/KqpXGXtx9vHMa6LAPeR+
h1J4kQgRB7ZPai3oKVjjsTXarE3ENYdIEvu9HSUXbjVi54GldO7cuaB6pk+f
nvXsJh9MFObOnZdVB5qdfHHfH8R7R8HdYyl0XVEIsPUUyiskygFXA4kPuahM
Fi1aFND/7b777ml3qWIgft72TCHuvBJ0k/YcI2ruglqGvS7j/bvNNtuk3Z2y
xc13h76iEPCRcMfSeFhGwdYOmXs0Sqw4emr7+Kgx3BdccEHWd4g7t8Onn37q
jRw50o9pxj8FDQdaFHTupcQ9V1G9Jok5c89VOcytue/RcTK3Q7vJOeZ/+W98
BwvxXqkEpKeIjpufm9ziUcYE5Elx74GkckAYzDOKa1zER1hOaxMvhwdOmO8q
zxo79xDj8Th0m9JTCCGqHekpRLlgcvnZ5Z///GekOg455JDA8XgM5wv7qG77
Ub2E3djkVVdd1fdRF6ISsP0pKiX3RbHgwWPfs1H8WNNihx128PvKXsR3332X
dndShWe8+e2I24uaH8MwevTorOc/eRqjYO8/U6J6zrZo0SJwPDlzo4CWxP0O
zz77bKQ6hDDIn0KUI/jWmeuSeDz5Q1Qmrv6dvTiRP3ik2Ocvqv6/1JDXijkx
fV1//fXT7k5FQfyL+Z3Z8xDZMNYmhsacJ/wGCuWiiy7KGksTfxQF9ND28fhN
5Av7oG77H374YaT2zTzRFLzq0oqXSpKPP/4461y9/fbbkepAo2Afj+dhmFaB
vcEoMf+iMKSniMbYsWOz7gHyF0fB1ZBtsMEGCfX2T5o3b+6P4QvxFBW5cfPo
2e+gL774Iudx5GREh2M+j/61WKSnEEJUO9JTiHKBvO3uuz+Kxp3xmFmrMYW9
Uhfmk4w13FzO5CKyj0XDGQVyHBW7HydEmtRavg9Af23nLI3qSVBqyD9hYjq3
2GKLtLuTKsQ32v6Wxcz9XJ8LyqOPPhqpDlvbQdl///1DP3fPPff4sUUu9j4h
hTX0fCG2YKONNgocz39HiYcTwkZ6ClGOsK9lP+duvvnmtLskIoI3GOMX+10V
Z87mWoB1cdvTuWXLlml3qU7smEnlwYxG165dM+eO8aPIBo+E+tZ/8uWcc87J
mg/gYRAFe1+K0rNnz6zP4BV73XXXZe1x4T9jH7vSSitFajss9y05IaoRcn65
3zWqb4PraxKW+5N3Fp5AG2+8cUw9F7mQniIaxx57bNY9ENVfhdxI9vHt27dP
qLdLYH0fT9gdd9wx0XZqkX322SfremjTpk1euhVyNNnHzZ49u6i+SE8hhKh2
pKcQ5UKHDh0C73C8EaMwfvz4rPFDmIcYORH5G+94m59++ilwLF4TUWDsaR+/
8sorFxwrLUQa2PkGks6bWE64cX5R9rFLjb3v365du7S7kyru78Y7oFCef/75
rPcHMR9RIOayvn2+CRMm+H9jvdaF3Mb28VFyybt7jBT2w4UoFOkpRDmCRsze
i99ss80Sz88u4gXvQftdFdWLSSzB3gdEZztz5sy0u5QTcnWbvvL/Rf6Qb8uc
uyg55GoJ299tvfXWKyoXwqWXXhp4PrHvF4UZM2ZkjceJuXEx+8bM61yWWmqp
zLFRc9e6ehC8Kcr52VAMzIPt77rGGmtErmPrrbcO1HHttddmfWbq1Kn+3+KI
2RZ1Iz1F/hAjaMeVmPs9Sq4Gxs9rr712oI5BgwYl12nvzzFgrcRulQq8jdDf
2b8lXkX5xqe6Pqvo/YpBegohRLUjPYUoF6688srAOzzqe9f1KiM2IAyTYy7M
99AekzL+yBfiFhi/2u3HnadSiKQh1yzrRqxHzJkzJ+3ulAxyZthzSbxyyhU7
J26vXr3S7k5q4B1te/uS66kYWKN21z+j6BnQzrnHjxs3LutzrB3k0jrY/jCU
KHo8e71d+98iDqSnEOWKG4scNTegSBc7NyO+0sRji+gsXLgw4FHRqVOntLuU
k9atW2f6yVxD5Af3hllfYI1C90o2U6ZMCbwPyCVUDN27dw/U17Bhw0jHu3tS
eKeG+e8YDXXYWJ+YInN8lPgevFfJNWi3jydrtcL7w/6u6CujMGrUqKy5W9h4
An8R/vbAAw/E1XWRA+kp8icsVynasihMmzYtqw7y6CTJoYce6mtA582bl2g7
tcbrr7+e9VtOnz497+PJEWsfGzW21EV6CiFEtSM9hSgX3PxvUXJfosfEM8w+
PkxDzjxz6aWX9nbdddfQeuz4YPTq+eLm2txpp53kXSsqEnxH8SCtNW677baA
tn/BggVpdymU7bffPtPPcvbRSBpyhdvP3EmTJhVVHz6Idt4XykcffZT38cQz
2ceyx4Hmw6VVq1a+Zins+iJG164j33iyV199NXAc1y/xcUIUg/QUolwhns7O
D3/QQQel3SWRJ59++mkg9lr5C4oDDYU5l2uttZavDy43GF/h2Wj6SX5NkR/2
/kizZs3S7k5ZcsYZZ2TOET5xxWpOjI+cKRtuuGHex7L2Y3tlUMJy/xE/zlh9
m222Ca2HnDiFtH/VVVcF2t522239NbJqZNasWVl7h7liqcJYtGhRVp7EXPoW
5m5rrrlmpLh/URjSU+SPu/ZAYW8nCnfddVfgePx9koS1FbQUUXUfon7Qztm/
ZdT8RI888kjW9fT1118X3B/pKYQQ1Y70FKJcYH20UaNGmesRfX0+ub7AzRVC
Ia+Hi9mDe/DBB0PrQXdujmftJx+/SNY62B8zxzE3I2ZICFE5cK/b+RpOP/30
tLuUBZ46pn/LL798za7r8F7YcsstM+fimGOOiaXeCy+8MPAOcXNC5YL4Jnt/
yKxhunz77bf+73b44YeH1oOWyX6XjBw5st622TthjmqOQS9IfIEQxSI9hShn
nnvuucAz97XXXku7SyIP8P+y11erda+vVDAutGPZu3TpknaXssCry/SPXD0i
f/DbNufu/PPPT7s7ZQe6Y9tbdMCAAbHUi87B1LnccsvlPd+6+OKLs9aj+DcX
xvd16cmGDh2aOZ7vx/yhPt59912/r+Y4PPzQr1Ur9913X9a5zldfz3yLuC33
WM41OcVs3nrrLf9v5IERySM9Rf60bds26xp++eWXI9WBV4R9/PHHH59Qb5dw
9tln++0MHjw40XZqkX322SfwW6I1jELv3r2zrqdi/IqlpxBCVDvSU4hywtXZ
vv3223V+njmPiUtA62of6/qpo9cgtpv4nVyxC+xN2Xk72CerC/J82J7zrGlN
n56/R7wQonwYMWJEYF86ikdeKXjmmWcy/WvZsmXa3UkNO5aCWKQvv/wylnrd
mLQrrrii3mOGDRvmr1+675+DDz4467No/PjbSy+9lLO+Aw88MFPHmWeeWW/7
+DDZ7SoPvYgL6SlEuYOWzlyj+MIxzhflC/t95l3JGOvNN99Mu0tVgb2vSO7s
ctP033zzzZn+nXvuuWl3p6Kw90eGDx+ednfKDnsvMMwHolBsz8L6xu3Au8fV
ZJvCHpULuWeJG8rlB4nGnzwhpo7HH3+8zvaJISYW2Xx+lVVW8SZOnJj/F65A
2rVrF3q+ibGqC3IMGK9HcrvssssumWN5P7mxXNyDaOaTzoEglmC/L6SnqJvd
d989cO2zHvHTTz/lfTzXuv2cofTr1y+x/r733nt+3Miee+6p8XrMoE22879R
hgwZEqmOk08+Oet5WsxzT3oKIUS1Iz2FKCfQJ5D70FyTRxxxRM7PotU3a6nM
hXr16lXneNDkW+7cuXOdfbC9Evfbb78snbqBmIgmTZpkPku/yUEnhKhczjnn
nMw9je6/nLDzClVzPty6IGcTmrh8NW9ROeGEE/LSarAOgHaBPSF0dOQw5f/n
WtfF35q1U2Iz61pDIIcLHhbUgbfs3LnhuUVZayWGxLTHMYMGDSr4ewvhIj2F
KHd4H9h+3YzzRfnCGrr5rZhrifhgvlxoTGLSHHDAAZm+PfXUU2l3p2IgZ5zZ
H2F8yfNO/MmYMWMy1xXjZfI3xAX6BNu/oHXr1jk/+8MPP3jt27f3P/f3v//d
69+/f2A9Cm2GDfOWfLRFdpw++6ZhOQThk08+8Zo2bZr5LLqKatdSwAYbbBCq
p6Cwvu3uKy9evNi78sorvdVWW82ftxkvP3f+NnDgwMwxRleDr5IoDfKnyB90
WfZ1z3MgCsQtuvfOhx9+mPU51hc22WQT/x4qFDx+8BbFA+b99xV7GDd2bjBT
8OGJwqabbppVB3szhSI9hRCi2pGeQpQbzAvJ3Wauy+uvvz4wh8RbgrwcDRo0
8HXk+F8yZ0Ljb88nd91118wx6ByYXzKHymcseNppp2XqYX/1xx9/zPyN8eC9
997rz93NZ1grKia/mBCiPOD+ttfQWK8rF8idbPqF/2gtYnvp1heDVAjEatj+
megi3DVavKt5v/B31jLQ1kHHjh0D+gbjkchaq4mhe+yxx+rtw9NPP51Z29tu
u+2y/Hrx8iQW27RFbuV33nknnhMgxP8hPYWoBMaOHZvJt4SuOZf/nEgX4uTM
86R58+Y59wZFYZD3w+SsY/xQLvr+P/74w9eSmthvzZXzB/8Wc88w5hN/QqyL
8RigkB8jbvB5sfPQXn755YE8sMQDk2/erFnhKcd4n8/suOOOmePI/2dic9ir
ZF+JnLL5+KjbnhdoNvBRNdAO47R11lkn85lWrVpF3kOrRGbNmpW178ecEH8e
89+cYzz/jjrqKH8Ma7TqaFPcmGv2i413EvHzeAzuvPPOGS1NPvl/RTxIT5E/
xP3Z90DUudrtt98eOL5hw4ahn2Otg/vDfv5ExeT5CMvHLYqH/RL7t0S7EgXe
d+4zlb2WYrD1FMzPhBCi2pCeQpQjH3zwQWCezHwWLwrmRcyP+Ddi0twccQsW
LAj4HbL/SMwO8yu8D/Pdg2T95/TTT8/ksl9jjTX8+dhhhx0W0FGQX1O56oWo
Lsi9anLQ8pwph5gw/HjMnhHejDyjag28wk2e5MaNGwd0bnFivB+MpoH3B3oI
1nVMPBTXB2s+9u/AeqntP888lGPMeiy+svny4IMPZt419IM1E+q2tT7EV+GL
GsXbU4h8kZ5CVArEnJpr9bzzzku7O8IBfybz7iTefsaMGWl3qSp55ZVXMnuC
zKHLYQ8QraetoxH5c+ONN2bOXT7552qJnj17Zs5Nkt4Bs2fPzuyrG/0yefZY
jzI6IfQUzz//fOA4NA22hynrRYcffri/FsUz8NVXX82rffzsLrjggsyclOOp
h/WotddeO7B3VkveL3aOI7NOxxyMeSE+VazZEWvNOaLgDYjH49SpU3PWiXb9
uuuu83835tnMM5ljEWchSof0FPmDhsi+D3guRIFniX182PlGQ8F6OM+wQjHv
MnRm0jwnA7ov+7fMJ2esDTmlXD1FsT698qcQQlQ70lOIcgbvKsZ2xNwwh1x3
3XX9eSxzxlzjMfaWiBfYd999fe0Fc6xjjz3WmzJlSuT258+f73Xp0sUfA7B3
RWE8SYz0Cy+8kDMXiBCisrHX6liXSRv8SE1/eAbWGmhajC6BeT0elUlD7Bjx
aGjq8TYizwi+FH369PE+++yz0GNY++S9hccRn+e9RT6qQnzoWcPDd5a1XOLP
WLtF30POYPQWivMUSSI9hagU8DqwPXuGDx+edpfE/8E7sU2bNpnf5q677kq7
S1UNOS3LSVtkj6VZcxL5Y+dJwYdHLIHxv9FWMyYuJmY6X9AFnXjiib6egvkA
Ggr2IvHFyKVbYp0KXx6ef+zPMydg/jZhwoTI7TPn6Natm6+bQGvN2ha+F2gE
0HLUmsaeeZC973fIIYek3SURE9JT5A/vBfs+4J2RLzw3TJyOKXfccUfW5xhP
87cePXoU1Ec8N42Wohzik6oVOxcuhXWiKJB/ytVToIMpBukphBDVjvQUQggh
RBD2AFifMe9H8uGmSe/evTN9GTx4cKp9SQM7huLOO+9MuztCVD3SU4hKAv9v
E6/LftO8efPS7pL4X2699dbMc+SEE07wx1YiOdAW7bHHHmWjLbLjZ5WXLBom
lzl75+SiE56vIzY+pGiM8a0TtYfxOzKFvAWiOrD1FOUQz1LOMJ6ycxIRe5EP
aNJ4r7j752Gey/wGK6ywgu8zVgjjx4/3tWjSUiQH8Z/ub+nmNKoP9Hn28Wht
3HyzUZGeQghR7UhPIYQQQmRDzNE+++yT8aieMiW3T2jS4Ilj1lWTynNRruAH
EZdWXgiRH9JTiEpj4sSJfuww1+yee+6pPciUefPNNzN5E8mZpd+jNJAfjtwa
Zsw4d+7c1PpiPBa222671PpQieB/ae6dSy65JO3ulA08Rzgn7O/lmzNDVBdo
J929Q/ZsRXVAjhX5U+TP9ddfH7gX6tOY8dxEi7b88sv7e9z2sW5ebPLfkkOs
ffv2SX4FUSTTpk0L/I4NGzaMdPyiRYsyueLiyvUB0lMIIaod6SmEEEKIcNAu
mFg/4mHIAZEGl156qd+Hq666KpX20+Kll17K5A0m94YQojRITyEqEdaDTV57
/BCUly8dGCuRq5HfgfyLypldWoglJT8l558cAV988UUq/TjooIP8PpCHU+QP
2qOVVlrJ3/NKUw9TTnTt2tW/lsj1QQ5EUZvcd999gX0/NJR6z1cPtj8FmjKT
b5nCb23/97hx49LuburgSWXesxRyhIbl//ntt9+87t27+1o08g+NHDkyMM+j
PProo4Fj2FOXXqn8mTFjRuB35BqIwrXXXpulUWP9LR/I4xJ2b1LMXEx6CiFE
tSI9hRBCCJEbO9Zvs8028xYvXlzyPrA2fu+999ZUfKe9L0ZeRyFE6ZCeQlQq
xN/hKcW1e/bZZ6fdnZqDMZKJe9x99929n376Ke0u1ST8Do0bN/Z/hx122MEf
y5YaYsndPRqRHy+//LL3r3/9K+1ulAW9evXyr+Oll17aGzJkSNrdESnSrl27
wL5fmzZt0u6SiBFbT1FfGTt2bNrdLQt+/vln7x//+EfmvDDu4tz8+9//9vfa
yYfTpEkT/2/4rpp8eOiQ8AAxx22xxRbe+++/782dO8879thj/X87//zzU/52
oj4WLFgQuC9atWqV97HobBo0aBA4/sgjj8z7eDPGrK9ITyGEqEakpxBCCCHq
hpy9Bx54oP+uJOaPOapIDmIh0LbjP3jdddcp57oQJcbWU+y9995pd0eISLAP
ue666/rX72WXXZZ2d2oGfBCaNm2a8er+4Ycf0u5STYOPs/FY43+lbRGVRr9+
/fy5ALlrRo0alXZ3RMoY3yNTbr311rS7JGJEeorCYKzFudt4441DzxX73jxL
3fUU9tPPOussb+WVV846Bj2y1l/KH/zf7N9vv/32y/tY16ME7xLGjfkiPYUQ
opaRnkIIIYSoH+aUN9xwg7fUUkt5ffr0Sbs7Vc0hhxzirbXWWt4LL7yQdleE
qEnkTyEqHeLzuXZ5Z3/55Zdpd6cmIPc5Ht133HFH2l0R/we+ZhdffLH/LH/y
ySfT7o4QecO8i30i/FU++eSTtLsjUmbmzJlZ+3Tvvvtu2t0SMfLZZ595EyZM
CJTx4ydk/RtFes1syPXx7LPPetdff72fJ/Wmm27K6x7hXA4ePNjr1KmT161b
N2/q1Kkl6K2IC/IbRs338c033/i5jM1x6BafeOKJSO1On/5+6L3p3r/4nggh
RLUhPYUQQgiRP/Pnz6+pvBtpwByPIoRIB+kpRDWAn/GcOXPS7kbNQKzjwoUL
0+6GCOHTTz9VrKmoOPAy//3339PuhigDBgwYENBS4GPI/rEQQtQyeDeZ5yKa
Znx16+Owww4LPE979OhRgp4KIUT1ID2FEEIIIYQQwiA9hRBCCCGEKAdOPPHE
wP4fXoZCCFHrEOfVsGHDzLMRr5G66NKlS+BZesUVV5Sop0IIUT1ITyGEEEII
IYQwSE8hhBBCCCHKgcaNGwf2AHv37p12l4QQoix46623/PxYPBv/9re/hXrz
/fLLL4HcICuuuKL30EMPpdBbIYSofKSnEEIIIYQQQhikpxBCCCGEEOXAbrvt
lhmXrrnmmt7ixZ+l3SUhhCgbXnjhBW/ZZZf1n5Ebbrih16dPH2/GjBnepEmT
vK5du3oNGjTIPEP33HNPb8KECWl3WQghKhZbT4FnGs/UsDJ+fPb/X7RoUdrd
F0IIIYQQQtTB999/HxjL11dYd5GeQgghhBBCpM2nn37qnXXWWV6nTp28Tz75
JO3uCCFE2cEcvl27dt5yyy0X8POhoLXYe++9vVGjRqXdTSGEqHhsPUXUcs01
16TdfSGEEEIIIUQdvPjiiwWP96WnEEIIIYQQQgghypvPPvvMGzRokHfHHXd4
vXr18kaMGOHHVgghhIgH6SmEEEIIIYSoXqSnEEIIIYQQQgghhBBCiMLo3r27
t/rqq4eW1VZbLeffKDfddFPa3RdCCCGEEELUwZgxY+oc09c1/m/btm3a3RdC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CFEAb775pjdy5Mi0u1Fyvv/+e2/SpEn+/ybNr7/+6rf11VdfJd6WWMJrr73m
ffLJJ0XVMXPmTG/cuHEx9UgIIYQQtQzjwJdeesl76KGHvMGDB3vDhg373/Hh
ZO+XX35Ju2slZ/r06d6cOXNK0tasWR97H330UUnaEkIIIYQQQgghhBBCVA//
8z//4915553eMsss4/2///f/fF1FrXDPPfd4f/3rX/3vvckmmyS6njtq1Civ
YcOGflurrrqq99577yXWlviTDTbYwPvLX/7itWzZ0rv99tt9XQS6lrpgP4PP
9e7d22vRooV//I477liiHgshhBCi2vjiiy+8W265xWvSpIk/FgwrSy21lLfb
brt5vXr18j7//PO0u5wos2bN8rbbbjv/ezPO6tevX2Jtff31117r1q0z5/ni
iy9OrC0hhBBCCCGEEEIIIUR1MWXKFG+PPfYIrOUSL1cL/POf/8xaxz7llFMS
aevjjz/2lltuuUBbzZo1S6QtEQTtivs781vsuuuuXrt27byzzjrLu/DCC70O
HTp4J554ov+7LLvssoHPr7TSSt4777yT9lcRQgghRIWBbrlv377eKqus4o8p
ll56aW+XXXbxLrroIu+aa67x/5exuDv2WHnllb2uXbt6P/74Y9pfIXb++OOP
UF3Jzz//nEh7Bx10UFZb7777biJtCSGEEEIIIYQQQgghKhvWKSdPnuzHvTVv
3jw0Ng6dQS3A3rn73c8444xE2urWrVtWW6yli+QJ01NEKSuuuKI3YsSItL+G
EEIIISqM3377zTviiCMy44nrr7/e++6770I/O2/ePO/kk0/2PSrscchWW23l
63KriTfeeCNU65qEnmLx4sWh47sJEybE3pYQQgghhBBCCCGEEKLymD17tp/n
gLi3jTbaKMtTeNttt61ZPcW5554b+N7EBU6aNCmRtvr06ZN1nocOHZpIWyJI
MXoKPCxmzpyZ9lcQQgghRIXx3//+1zvkkEP88cTuu+/uzZ8/P6/jRo4c6ee/
sMcja621ljd16tSEe1w68Mdzx1wdO3ZMpK1vv/3WW2GFFQJt7bPPPom0JYQQ
QgghhBBCCCGEqDwmTZociLNv2rSpd+ihh/rxcXPnzvX+9a9/1ayegvXVFi1a
+N+Z85JknhN8jY8//nhfw7Lhhht6Dz74YGJtiSCF6CnYt+jevbv/uwkhhBBC
RKVHjx4Zf4mvv/460rHXXntt1thk880398eu1ULv3r29ZZZZxvvrX//qXXbZ
ZYmOuUaPHu23g3YaD5Dvv/8+sbaEEEIIIYQQQgghhBCVxa+//urNmDHDW7Bg
gZ+/2aWW9RSG//znP1XZllgCegriEo877jhvnXXWyamh4HPEkT711FO+P7cQ
QgghRCGQu4O9+zXWWMObM2dO5OPxtmjdunXWWOWss85KoLfpwfeklArpZIUQ
QgghhBBCCCGEEFGRnkJUO+gkKIZvvvnGmzVrljdu3Djv+eef98aMGeN7tQgh
hBBCxEHnzp39MTU+E4UyYsSIrDE6Gg000kIIIYQQQgghhBBCCCFKw+uvvy49
hahqXD2FEEIIIUSSbLTRRv6Yeu211/YOOuggb/jw4ZHr+Pnnn/1cfe44/cYb
b0ygx0IIIYQQQgghhBBCCCHCkD+FqHakpxBCCCFEqVi0aFFoXjH8JqJy2GGH
ZdVz4IEHJtBrIYQQQgghhBBCCCGEEGFITyGqHekphBBCCFEq3n777VA9RSE6
iG7dumXVs8466yTQayGEEEIIIYQQQgghhBBhSE8hqh3pKYQQQghRKiZNmhyq
p2jdunXkunr27JlVz7LLLptAr4UQQgghhBBCCCGEEOJPJk+e7Pvnzpw5M+2u
pE4p9BTz5s3zz/e7774ba72iOL7++mvv9NNP95588sm0u5Io0lNUH7feeqt3
5ZVXer/99lvaXRFCCBGBX3/91evUqZPXq1evtLuSGP/973+9pk2bZo2vBwwY
ELku3nduPX/9618j1dG5c2evR48e3v/8z/9Ebl8kx/333++ddNJJaXejJvnl
l1+8Y4891nv66afT7ooQQgghhBBCCCFEWTJ48GBvxRVX9Ncip0+fnnZ3UqcU
eopZs2Z5a6yxhrfccst5ffv2jbXuKIwbN8676qqrvIsuusi77bbbvPnz5yfS
Dnmz+Z6XXHKJd+mll3qDBg3yvv/++0TaKpQJEyZ4jRo18n/vgQMHpt2dRJGe
Ij7++OMP/3rh2uYaSosLL7zQv3Z32WUXX68lhBCi/Pn000+95s2b+89vNHHV
zAcffODtvffeGT+Jm2++2ddZRKVjx45Z4/QNN9wwUh1HHHGEf9wBBxzgffXV
V5H7EAeff/65d+edd/pjcH77MWPGJKLv+P33373nnnvOb4Oxwo033uj/FuXE
zz//7J1yyin+b7LTTjvVnM7lyy+/9Lp27epdc8013nfffZdKH3788UevSZMm
/m/AmPY///lPKv0QlcG///1vf93opZde8h577DHvrrvu8q6//nr/2nnllVcK
rvenn37ybrjhBu+KK65I7dkshBBCCCGEEEKEwZyXdZOVVlrJe/3119PuTllQ
qnwf48eP91ZffXW//g4dOpR07XDu3Hn+eqX7PZdaainvvPPOK2h9Owz8Ho4/
/ni/XrctNDzXXXddLO0UC7FYK6ywgt8v1vernbr0FGZt7JlnnvFGjx4tz5p6
QB9krmmeo4VoGXr37u3r2dBYDR06tKB+8Pw47bTT/H6svfba3sSJEwuqR6QH
3iKsT7PH9u2339bcfpIQtcbbb7/trbnmmv5z+8wzz6yZe/6LL77wPTkK5R//
+EfWmBJvsSjwvG3Tpo1/7CabbOLrWkoFv/PVV1/tLbPMMlnfY4sttvBmzfo4
trYeeOCBzDXmlj333NPXO6cNe6bNmjXz+/T3v//d++abb9LuUknhWuR3N78L
mqOo4C2B7yHzre23396bM2dOQX1ZuHBhRlPRsmVLf29bVBboYtDn8Jzl/8cN
c0TmO2HPFFPQqxUC19t2222XqYf/L4QQQgghhBBClAPEKTFXxSPhhRdeSLs7
ZUOp9BTAWjr7qLRBvF0pwJOiQYMGfrvoGVhLZd1l6623znzfM844o+h2OGfr
rbeev7Z39NFH+7lNiD+bNGmSv29s2jr//PNj+FaF8/zzz/txkvSFWJhawNVT
TJ48xfcaN/4cbllnnXW8k08+Wf41Dtw75toxZerUqZHqwKvG3lPZZpttCu4P
OqgTTjgho6l4//33C65LJM9nn33mPfTQQ/7zdsstt8y677hHW7Vq5T+XXnzx
xZrZaxWiFiDPntHUHnfccbHpWKsdNGdG/2oX9viigqaDZyzHb7rppt6CBQsS
6HEQ9jcPP/xwv030HG+88YbfD8bj5rv87W9/K1rnwLjetMNePboKNM5oFcjp
YNpCS5KUN10+4MWw4447ZvrJHnCt0b9//8C13Lhx48h14DFo19GtW7eC+4Mu
eOONN/br2W+//YrSPonkYV59++23+3oaxv5h3j1HHXWUnyfpww8/LLq9Z599
1lt//fX9ufzSSy8dOm/EX6IQ8Ey16+EdKYQQQgghhBBCpM1NN92UmasydxV/
Uko9BVD3X/7yl5Ls5xP3zPrHKqus4r355puBv3Xp0iXzfdnfLSZWD59P1lho
y20H8AO1z++0adMKbqsYXnvtNd8ngz6ceOKJqfQhDYyegrX1s846K3P94VnC
s+Gpp57yNVZPPPGEH2Nk1sv4HOfphx9+SPsrlAXshdvXMXs8xBlGweTpMGX/
/fcvqk/4M++7775+Xeuuu66v1xDlxeLFi70LLrgga08Qbc5GG23k72MYnZ1d
ttpqKz+3fNRrTARBl8Kzj3vjnXfe8X3wH3nkEV9XJkQpYE+LPXPu6xYtWvj5
GER+9OrVK+vZiEaY3FuFgL6BeH7qQdfGODlJjI+UqyXGN87+TozJCwXt8g47
7ODXc/HFF2dpddAs2G2lpWumn1z/9AEPjUI9FSod9sHt3wMNelQ22GCDQB33
3XdfUX3i/Wj0Xocccohyf5QhxEfss88+Wc9Dfjd0UlwTrgcO87hDDz3UX+uI
A95dPXv2zOpDofUffPDBsc6JhBBCCCGEEEKIYiG/pZmnnnrqqWl3p+wotZ4C
yGVcbExHPrAXniuOD+9h+zvfcccdBbUxd+5cPz6G9e1c+1PEydltnXPOOQW1
VQzvvfeerykwa+hJeKKWK3zv5Zdf3ttss83873/QQQfVuY5NHO1aa62V+b2W
+FFrn97si5hCnGtUzD6OKeTOLhbiUs3aOvvz3JOiPOC5ajRcrHOzjzJ8+HBv
9uzZgf1A9vy5x9BP7LLLLoFrhPt2woQJKX6LymHYsGHeueee659nziNxmq6n
jCnsPwqRNGhVzfMZ76dSeCJUE7aXmimDBg0qqk577xh/efRWSWDmF8SKu3Ad
FOtRYMBPjDrqyqmHN6Fpa+WVVy55Xgd0geyVmj3ekSNHlrT9cgGti+3ZR7nn
nnsi1cH1694TcegD8SEwems8TeShUx6QDw6tu/mtmZ+Rv5Xni+vvQh4Y5rvM
8dFY29cIzyH8YYqlb9++gXrJBVKI7pd5uKszJvdkUuCbifdbOZdS5qESQggh
hBBCiFLDXsgnn3zix9pT2B8pt3gO1qvM2gi+8sQGiSBp6CnYOzN5nCn4A8QN
nhEmziiMtm3bBr4z3rFRwRMW316usVdffTXn5+6+++5AW8TTlxLyA7OPQdvs
bablj5EWRkfCfi7+r/nkEZg4cWJgzZc9XfIV1DL4g9vXMb4rUcC3PKlnzVtv
vZXZN2afWJ4G6cL5R7/I78Hvgm6G51C+oIFDC2CuE9aco+651Bp42JNvKkw7
EVakL6182Ev64IMP/LxLeECQ26CcYM8aPaLZQ1auvWi4XvCUI488Mpa6n376
6UydBxxwQOz5lYjjbtq0qa9lDdsjGzVqVOB7bb755gW1Y/Y2jz/++JyfYW5q
5oKmfPzxxwW1Vyi2HrVz584lbbucIFeDe01HzdWGF4V9PNqguLQP/Dam3q5d
u8ZSpygc7lO8yvg98DJ79NFH887Hwn1PzIatKWUux/yuGMzY1hQ8MwphwIAB
gXr4fklpeC677LK8x4ZpFt4XSen7hBBCCCGEECIN2Ift1KmTt+eee2ZiTu1C
/A+6Bda1iMn//vvvU+sr68zGX5hYpBkzZqTWl3ImDT0FMF82+2X43sYds7jH
Hnv4++dhvztrMVwT9ncuZJ2fdRqOxcu+Ljp27Bho68ADD4zcVqGwRk4+YNM2
8d+1BtcXa+nExUfBXevafffdY99zqBTIL+0+J15//fVIddj7N0bfEmcuFbwQ
TN28p0Q6sB6MBwy/w3rrree98cYbBdXD3rDxRjflqquuirm31QPvVM5Xw4YN
/fhN9x3nlgcffDDtLouI8LxEV0Ssrq03sgv3HO984nOj7lPGzdlnn53pVzH5
HGoR9OpuHiR+86+++iq2NsiNYeru06dPbPXCww8/7Nd76aWXhv6dnBv2d8NT
JypoyNh/Iw4dvWYuuA/c+6SUuTbQjNvjyHKLPSgl9jiNwjw9KieccEKgDvT5
cUGsiBl3kPsvLIejKA3osPB/5LfA26XQZ9/bb7/trbbaapnrBX0uuUMKBR88
+/orxGeTuSRekXY9t9xyS8F9qo8zzzwzda1EvkUeVkIIIYQQQohqgNh7k6M+
SkFzcdxxx3lTppQ+Tzf5Mk0/FNeam7T0FGCvMRLfEddeNfEs1Mk1EAae6Pb3
xaszqgcon8e/AB/r+nyD8bCw2ytlbJqd76aQ9epqgLWum2++OfJxxNibtTxT
is3RXKmw9+o+26N6QKA7suvYddddY+0j+/jNmzf360Y/8/LLL8dav8gPYjr5
DfCpL9bTBZ9nN0cMWk2RH/iGufm509hPFMVBTiP2vu09oXxLs2bN/PdWqb3r
n3vuuUwf8Ayy8/uIuuG3Qrdu/45oBj766KNY22HsavYG2WPE5yQuWrdu7b+H
w3yJuBZcL37GqlEhtxHHDhkypM7PDRw4MNAW91Gp7ofFixdn/OE4x7XuZ49n
oP1bHH300ZHrQDNm19GzZ89Y+4jnj/E0aNSoUaqxIbUKcQ+8u/gNuM+LvV/H
jh0byK3BPcn4KCpmfcEurKNEBf9Uuw76FqdWLoy5c+f57xAK1/jzzz/ve3Pa
+S3dgqbvzjvv9PUneGCZ4/MpxGCRq49j0dcxhmnZsqW3yiqr5GwPDZPGCkII
IYQQQohKhjyUxNbbPqmsvTEnItaYnArsWT300EPeGWec4a875JofUQ97I6XA
XjvDL0Nzs9ykqacA2zuBXAxxQB4C6nvkkUdC/44/hP1927dvH7kN9uc5llir
uuCa5/q32xs9enTk9gqBtQ+zfsTaYCFrR7XOeeedF/jtWIPL12u2mnD9bVu1
ahW5jm233TZQRxLxyuT9MPWvv/76dcasivhhfZbxAjGnce0bsX5t+zXz/+vK
rySCEHfuvuM32WSTtLsl8gRdAp4j9r4LWlF0Rfhqvfbaa96IESO8a6+91tt7
772z8hrYugqej6WAfSG7z/RR5E/37t0Dvx3PU/a/kmDo0KGB+RLzvmJBR0fu
ITQhYTz77LNZe4lRPd5pA28KYrzr02K3a9cu0B4as1JhvJoote6vxJ64nUeP
EjXegX1a99nGnm3c4Kti6j/ppJNir1/UDWtKnHv0N3Fpn1xvFJ4dUWMpXG0W
8RiF5BfkXW3Xc/LJJ0euIy7QI+XSN9x+++2xt4eOj/veHiOYQoyKEEIIIYQQ
QlQq5MvYbrvtAvtneCbWtW7FnJd8v64Xoj1Pmj59eqL9Zs/Y9sglD7vITdp6
Cvb8zV4Z+WKKzWsKvXv39vduw/Q7YTnmiVuJCnoKYuHry1fAPofdFjkOShHr
hJ+w7YtRy/mai6Ffv35Z90d9sZDViKuVQ7MUBeKr3X2+F198MZG+2toPfPFF
aeB5S24dznsh+ZPqws393KRJE+/333+PtY1qxc03RTnllFPS7pbIg27dumV+
M/Yh2cupb/zAGNv2Z7MLz+BCvJqiwnNXz+DCQJPGONHWBSadt8X2H6wvf10+
MM7eYostvEcffTT0765nDjkio4LObvPNN/e1/fXBOUx6jzAMe/yIH8ePP/5Y
knbLFeZ37jMp6rV97733Bo5fffXVE/Ea4Tlre6g8/vjjsbchwjG5Ablvo+od
6oIxI88l+/phbBkFdA/28XhrRmXMmDGBOtCFJaWXywfXO9AuixYtSqxd8kji
Y2e3R65WIYQQQgghhKhEiBMyWgpi6/HLj7JeQUwwOWLD5masCRfijZgP9JG5
mGmrlDFIlUraegqwczhvtdVWieYWNt4VpjRu3DixtuCSSy4JtLfzzjsn2p6B
WFXTJrGNca5J1RLsbbj3R648MtXK3Llzs87B66+/HqkON8cO75WkdEWff/65
n4/EtIXPrEgePIE53+jV0E62bdvWj0OOA7QatlczhfZE/ey0005Z9y+6V1He
3HTTTZnfi/H0nDlzIx1PLG4ur4qLLrootvxqLnZuKPaJPvnkk0TaqUbQrNt6
8KZNm5YkLw972uZa4X/xHkyKhQsXZXm2Jal7nzlzZtb1H4duO592V1555Uyb
gwYNSrzNcsf1B2BuEhVyiNp14DeYFPxmph1yxBSbv0zkh8l1xP2DlhufwLhy
HeGn6moZonipbbbZZoHjWR+LAv4/rDvYdcTlzVkornegKWgdkmbSpEmB9wH3
txBCCCGEEEJUGmgS9tprL39eg18AOvpCYM6YS1PBHBlfgrix58ns6STRRrXB
vmjaegpi2Ww/d+KPkoBre+ONNw581xtvvDGRtgwm/2uhsTCFwP43965ps2/f
vom3Wa3MmDEj6/4gZq2WsPfHKGgVovrbujHyeKckiZ2nBb+kWszRUmrcODOz
N0fu5DhwY+7J+fzNN9/EUne1go7O3buklGKPVhQOcf3mt8JLpFCNqRvLbZer
r7465l4v8fEmJ5ZpA898kR+MNdZee+3MuWvTpk1JvMwM+OqX4v1s64QojMmT
0vbAgAEDAu2h6U/Cz8DFfl9tv/32iX7HSsG+xihHHXVU5DpszwjKLbfckkBP
l4CfAdpQ09b555+fWFtiCfgrhb2v0CDEkYuIZ6qrzc13D3/BggVZ/YoaH0TO
H/v4Fi1alOR5lIsw70BTmEeVggMOOKCkayRCCCGEEEIIETcmxpRSrCcqa/bE
dITN03bYYYeCck7m4o8//gho/uVNkR/l4E8B5Kc17ePxGce6iQse9Pb3ZJ9p
4cKFsbdjYK/PXacgF3rSdOjQIdMe/vs///xz4m1WK3jthD2/WIOqFez8GRRy
P0XFjX9KOv8MeZ9sz3RyAInkIGdSrn3bK664IpY27D1mU6LmXq81Ro4cmXXO
2L8U5Qsx0CZvDj5xxY6FyKUQdl8yNnn11Vfj6fT/QZytqZ/nb1RPjVoFTbG9
b4uvWan32Fxt9VNPPRV7G2gK3PhuctokiXv9s6efNG5eC3lTLNGzo2Up5v0d
5jXyzjvvJNTjJdx2222ZttCpR/EyENFBs5JrLDlhwoRY2jjssMMC9RJ/s2jR
4nqPc7XlK620UqR1rGnTpgViR/AiStu/yfUOtMvQoUNL0ocePXpk2rzrrrtK
0qYQQgghhBBCxAV7y8ZrFg/NOOJp+vTpk3Ou1qVLlxh6vQR3nvviiy/GVnc1
Uy56iilTpgT60LNnz9jbIBbKbuOggw6KvQ0bvO7t9thf+OGHHxJtk7U+e72m
U6dOibZXzrD2duWVV/r54skXUAgcF/bsmjp1asy9LV/w27W/OzlzovDVV1+l
oiuy73d8pZO+92oZN6+RXYhHjgOebW7deGmJ3IT9LuT/FuWL2f9lryaOnOpo
Au0cEnZBu4qnRBz8+OOPAW+Kww8/PJZ6qx20mcbbhzEifgppseuuu2Z+P3Lv
xa3pII+Iew0m7ZWz3nrrBdrr1atXou2B7cOA50gS+vBKg/G4+9uTZyYKrtfI
qquu6sdSJAkeT7Sj92dp2HDDDXOOJWfNmhVLG7ZGxpS777673uP47e1j9tln
n7zb5D1sx/yg4UhCsxYV1zvQFOZsX3zxRUn68Oabb2bajStHoBBCCCGEEEKU
imuuucafz+DnTg76OHD9f921kDj8bFnzs+epW2yxhbxV86Rc9BSw7777ZvrQ
sGHDWD36WRewc2BQnn766djqD4Mc5XZ7u+yyS6Ltge1NwXpI2rEvaYG+yvYn
YI2OGNCo5NJTTJo0OYFelx/kjnG/O3GsUeA+K7WuCMgzYbdbrN+SyM3pp5+e
c002rnhO3umMTdz6Fy+uP66wVsEHzP1NFCtdvsybNy+Tn4WYzbioS+/Uv3//
WNqwvSkoheYKrCW+/vpr7+9//7t/vsiDiIdamgwZMiTwG/LfcYKvvl3/fvvt
F2v9Lh999FHI2G1Som1Sv90eml7heXfccUfgvKBxjUq7du0CdSStiTfYz0+e
z/KoSA5bu5LU/HnEiBFZ9f/jH/+o9zhyB9rH3HDDDXm1R96Yli1bRtZvlALX
O9CUpk2blqwP6EZL9XwWQgghhBBCiDhhvmfykuLvHifuvrJd4ogVeuaZZwJ1
yi8wf8pJTzF48OBAPwYOHBhb3e5af4MGDQrOSZ4v7l5WXL73ucAHwN5vLIWv
cbkSFuNUyLp2rnwftaJTcX1/uL6i5mm64IILAnUQA1sqbG9x1kKTvudrFdeL
J873u03Y2q9yfoTDXi0xkO750l5Q+WJyq+NNQb6wuPjwww9zjsG33HLLovXH
PFftd+4222wTU8+rF7SaO+64o3++8DCIkrcA7XsSue3RMNv7mTvvvHNsdTM+
XX755RPVa7jce++9gfbIo5O01t7OXcjeOxopEfTsoBxzzDGR67Bz4lDwGSgF
rrcGY1qRDCeeeGLWO4q8seTKiIuw9yFjpbriiMgh6B7D+kk+uHrjOL1Zi4Fn
cq5xAXlXSoV9bumTEEIIIYQQQlQKdu5cvAHweGjbtm0svuxhsQCmbL/99kXX
b+v+iX1mH0HkRznpKVhftnNV4IEc19onewb2d+zcuXPo56ZMmerH5BdL2F5W
0rGH+Orb7SXtv1Gu4P8b9qwpRCc2efLkrHpKsSZfLnDO7O8exd/WwDO+Pl0L
HkPkaELXFyesW9ptP/bYY7HWL/6E+FM0mTzDmzVrlkjuZfKQuffjmWeeGXs7
1cDw4cOzztXGG2+cdrdEHZi8D+jWNt98c6958+ZF5auyIbdHrnH4W2+9VVTd
Tz75ZCr7nJUK/ky77babf6422WQT30chX3hXkr8FX4sksPUAlKh+VLlAW2fX
i4YkTJtJfoW42nT9MA477LBY6s3FokWLA3OYpP03KgWu2dVXXz3wW/Tr1y9S
HR9//HHWc2v8+PFZn8OvKoo2KV+aNGmSaZf7L069m/gT3nUnnHCCrynkPXjs
scfGkvfKhtxUYe/ButY+7r///sBn89GWc92fffbZgeOi5ktMEvKN5BoTlDIX
CfEJ5pwKIYQQQgghRCWBF3queVWxa6OsjxkPY7fw78XkbyZmwa6vVatWRfW1
1ignPQUcfPDBgb7E4Rk9duzYrO8YlreXNW7WyQ444ICi23Q9U1hjZQ0nKdAQ
2LFbK6ywQqLtlTtuXgDKww8/HLmesPWmOK6PSqFRo0b1aiHqIszfA92EC78N
f3v00Ufj6rqPq4fZY489Yq1flBY3xpXSokWLtLtVlri+MJT27dun3S2RA8Yf
YX4iFPRJxebGC4v7NaV3795F1c1z1a5v5syZRdVXzTDfwVue84TWcNGiRZGO
nzp1qn8se45JMHLkyMBvyX5mHOAfb9fbsWPH0M+Z/cc4fHSM56Ipffr0KbrO
uujWrVugPXknLcH1d6Dwb1HAr9A+Hn0G+9UuaGbIA/bLL7/E1X0f4x0U1zNT
pAc6iLD34J133pnzGPf9WZ+2nDaOPvrowBpAnJ6bccAzONeYoJQ+EbNnL9FT
EMclhBBCCCGEEJVEXWutrPEuXLiwqPpZD85VfzGxSFdffXVJ18uqjXLTU5h9
VVPi8FU9+eSTA3XutNNOoZ8zMZY33nhj0W26OW6IRUwSVzOCt0wts+eee2bO
BXFOnTp1Cl17rQ9ig937gzilWgCfFve7R83568bI4x8UpvMxcaToH+KGNTr7
XVaXp68obw499NCsa7KQPOy1QFhulAceeCDtbokcvPHGGznHyBT2aothwIAB
Oetu165dwfXOn78gUNdWW21VVD+rGfZ40Xxznvbaa6+CfEdMDosbbrghgR4u
2Qe0vQTI/xE1x5cL/if57KejC+Z5Tu6YYj3Awjz9p0yZUlSd9cG1b7c3f/78
RNurFMLiNT777LNIdfCMqm+Ow3XKeB9vn7jh2rHb33vvvWNvQ5QGfPDC3oN1
5VByc0jW9fzl2jbPecpaa63lvfrqqwl8k+IIGyNS+PdSgp8M7bZu3bqk7Qoh
hBBCCCFEsYT5aNslqjenC76nueru379/wfVut912gbrmzJlTVD9rjXLTU+Ch
SmyR6ctGG21UVH3s3eI5kc9+OOtztI33ZLHkk+MgTi699NJAe/fdd1+i7ZU7
Jk4QPUQxcWrGk9uUBg0a+DnGa4EHH3ww69kQNd+56yewyy67ZH2GfZN11lnH
30dhPyVuLrvsskAfyi1GTOQP3jBhYwjl+Ary5ZdfBt6jpsTxbhPJUFdePApj
3WIg/1euuovJHdG3b99AXVdccUVR/axW2Os186wjjzyy4HHEMccc49eRpB/7
8ccfH/hNwzylouB63u+8886hnxs1apT/98svv7yo9oA5q90me5pJ5mmbNWtW
oD1y9YgluL6DvJui6JvRwK622mqBOnr06JH1Ofas+dtZZ50VZ/czkJvHtI+3
Jv5rovLACyrsPbjvvvuGfj4s10yuOKDRo0f7cxnzOZ71UbVDpQD/ibAxIiWO
OJYoGD/P0047raTtCiGEEEIIIUSx4JFZ11rurbfeWlT9RxxxRM66iV0pBPxg
41xvrkXKTU8BrhahmJj1N998M1AX8fFheW/fe+89/+/1eXjmA2ts7jpF0ue0
cePGgbXKcly/KSX46eCvSs7jQvMJzZ49O+t3rCX/5lNPPTXr2RAlH4fxe7FL
2HqZ8YLu0qVLnN3P4PqXs7YvKhPjk+8W1rvFnwwbNizrHBWrTRTJwp51XWPw
TTfdtKj6GYPkqpvxQ6G4Gqdx48YV1c9q5D//+U/GWwc9BOOzL774ot7C5xiH
EBvPWBaPEcaw1PPBBx8k1l9XI3PuuecWVZ8bB50rhyTecexTz5gxo6j2gDwl
dpvMQZOkZ8+egfauu+66RNurFNBN2H4npkTxPHF/S8pzzz2X9Tl06/xt4sSJ
cX6FDCeddFKgDw899FAi7Yhk4bka9h7cYYcdQj/v5pohn6R7/S5e/JnXoUOH
zGfQVAwdOrQUX6cgwnJZmoL2slDQxEfNNXrHHXf47Xbt2rXgdoUQQgghhBAi
Dcw6RK4StnYRhbr0GoXqKcjtYddTl1ejCGfMmDGx/9bFwu8Y17qku5faokWL
0M8RN8j+O7mpi8XNcUC9he7p5wPr6nHtjVQTJudKoXnG7dy3lDZt2sTcw/LG
jsWL+oxl726FFVbIOv6mm27K+iy5pthDIb9IEuBdYOtiWAtN8n4UybHeeuuF
jiHef//9tLtWVrjvUAp7QaJ8wTuE52CucTJeP8Xwwgsv5Ky7UH/877//3ltu
ueUy9fDMRzsg/oT9JeMpEVdhTJnkeZ42bVqgPbzui2GDDTao93n97LPP+n+7
8MILi2rL0LBhw0Cbd955Zyz15sLV+jG3En/qZd2S7/khVj7s+JkzZwY+h+cA
Pme5vE/iwM2ZhPeAqDzcOAtTtt5669DPu/lw7bgL3oHXXnttxgeTuUb79u19
/4dypmPHjjnfL8X4rnTu3NkfB0TximVeSLv4VAghhBBCCCFEJcGe09prrx06
t9pxxx2Lrp/5Z665G2sUcdSJP72IxlVXXZX1e3Tq1CnVPrlx7c2aNSu4runT
pwfqYl3EBe8V/kbOjDhw1//22GOPWOrNBTkt6vuOtcjPP//sbbnllv45uf76
6yMd62q1iK/EQ79WYC0s7FnNHkV9PuWvvPKKr1lgffGcc84JHE8Mpw37Kqw/
FrtXWB/bbLNNoB9onkTpIMaa5/o111zjHX744X5+AXLNs35NHnK0T+z31gUx
b7nGEDznxZ9wXt1zlCvPlSgfwnQwprz77rtF1U2sbK66c8XlRq2T/FjiT4jN
d/fi4ii59v3igrwYa665ZqDN8ePHF1zfnnvuGajLjV/GX4h4bvRy7E8Wi6sx
pqARSQr2H20tFGOaOL5HNeD6dphyxhln1Hkc1yB7s2YNgnGCfby7X3vjjTcm
vg6Ab4rdB8a4tZL/rxzgefr222/7a0bMs1kDYmzPPI85Gh5AxF+Qe6cuBg0a
FHpNMiYNAz2Z/TnmkwsWLPDXDkxuDzRuePp9+OGHSXz12HE9g0zBH7QY8EGj
nnnz5uV9DDk50eBHyQEkhBBCCCGEEOXC2LFj/b1fe25FPsnFixcXXTfz1Fxr
g7nyUNbFt99+689f7Xri8IitRt544w1/r+r555/38xM/8sgj3g033OC1bds2
52+CXwNrBg8//LB/DMdSB9dI0ixatCirP1Hm5i72Wu7++++f+Xfm7nfffbe/
9omnA/FNcUDeGbvvaFaSZPfddw+0l3QcXi7Iv0Pb5C7GE+KUU07xtTnklEkL
PA8aNWrkn5f99tvvf6+j+XV+Hg9XYo3s87nLLrv4erOkYN2YfDPdunXz82GQ
u5y1ZtYF2YdOg8GDB+d8Nhx00EGha8jz58/3Lr74Yt+PnOc9exrk1ll33XUD
7xMDHhH8N//OMypJXF0H16ZIFu6lxx9/3Ntrr72yrqFVV13VW3/99f245VVW
WSXz76zxPvbYY6H1TZo0Kec1OWtW9eb74PnAXibvY9brjzvuOP/5wHs8bM8u
l5d1Ws8SkT+Ma8mtgB7N/G5rrbWWH7tfLK5G0C68cwrB9b+Py1ugWgjLmRVH
KUVcPHmx7DbRwhUKz6pce+HM2/BHQY9QjM+8jZuvBN8CnqNJQd4Hu72k9S65
QEPMswJ9IjHy7dq188c+7D/HNb+JinsdmcK8i98pDNYETLwEzxjGiq7XYP/+
/TOfZ6xJTpGNN944Uh6RQuBasvsxevToRNsTS8Y03bt3z+zV29cQ70f0Dmi9
jVcS/84zMpffZC4/VnS+Lm5eWQrefcbzDk0NXg/FrFGUGrwz3FyWcbzD0cdT
hzwyhRBCCCGEELXIO++848eSfvTRR7HUxz5bXWuDhexVsoZh17Haaqslul4W
FfYbX3rpJe+yyy7z9/DZ88ZngTjAOAp7muS/zIe6tCxRC+sIpYC9NrvdXHts
+UBcmu39S1wL/pImZr1ly5ZF+VvasE7hnrOXX345lrrDYP3U9Qh/6623EmvP
Bc/p3r17Z8X/u4X1ZT4XVywXXr+77rqrN2zYsHo/y/PH7Omyj3v66af7a7N2
X+bOnef169cv42dBQa919dVXJxZ/xrXC2lWuHAamoDmI0wf1iSee8DVGdT3f
0RvYfWC/g2esvT9x9tln+3lv2edlj9fo2/j/9to9a5p2/uyTTz7Z69GjR+aa
oY6keeCBBwLfZ7PNNku8zVqFZwJr3yZuj4LG5oADDvB69erl733Y8N5mzIGO
yTyn0fu5uL5FdiF3dbXB+jz3mK1Hcgu+yrfccktg7MP97X6OfQhROfBu4HrH
6yeu/UHyVeW6jojtLgQ3bvfRRx+Npa9x8cEHM3yN51FHHeWPAYhzj2sMjs7y
iiuuyLlP7cayx1mK0TbkC+91u038AQqFdwLjAlMXvwN5HtnvZ/zKuAzNdly4
+VX4/ZPE1c2UWq/J+xOPL1uH5Rb2fc8888xY4w6or658emjW7bEfpXnz5oH/
RkPJOJtxINpz7iv+ffnll/fH5DaMH8xx1MuYoUuXLt7KK6/srbHGGr7mMmmI
NbD7zzNAJMP8+Qt8rZ8dO4OPKvcXWl03pwa+N+iJuB/Nc4V7wwWtRdg9Qs4e
l7BxJ31A+848Em+FSoO1o1zPiWLmmszrqIPnghBCCCGEEEKI4rjvvvtyzt0K
zeVg8i2a0qpVq5h7XRjMRYmDr2tdK67CHhVeDvVBnDtx46w7sU+F/yrrUqxf
8b91FT7LMRxLHax7lQI0DnGuWeEnjO/ySiutFNhjYs34999/j6nX2esUxMug
eUgKfA3s9lh3KpX/LL4TuTxDcxVizuLwQWbtmPry9fZlv5G1WfbRTV9Yb2MN
ljU3u49cI6yVJZVDgL7wTCSuKsq54x4sFtYb2efmu6MhyQW6Kbtt1snId0JM
IM9aV8ODN/j555/v58oOA/0LXiW2ron7j/NQCvC/sPtLbJbrOS6Kh70a9srs
c92iRYu8vda5xsgHYq45G95DufaJqgmuS/ZL7TEE9yx7TWhR0P7hZ8272dxP
+Fz/8ccf/vEdOnTIOkfE+IrahTEBe4653i1he071gQ7arYfnfNrgSUVMvqv1
SKqEab+AMSc+MkmUpP2cwNVlMV4pBvbWeaajzTR1ogc7+uijszR2xWJr+Sj4
0CWJqxG45557Em3PgP8Xmrullloq7+uV8e6rr75adNvPPfecX19dOX4YD7rt
c18wHmAuucUWW2T9He31bbfd5nsShIFPItcMegtzDPvgEydOLPo75QMaaLu/
xDaI+CGGgvmZPV/Dd+W7777L6/g333zT23TTTX3djXtt5Jq3osNw4X3Cb847
BW0e9ZqxVqWCn0bY9+c5UqgXI2MMEwdTTPyLEEIIIYQQQogl5IoFoBSam8CO
daKQYyBNyOnJvlEp1m/tUq0e3qwRJrFmxV4V+U05b0n4mbjrFPgAJMn9998f
aI/cFqUAHUouv9D6CmvPX3zxRcFt479BPXj7RtWO8JvjG9O1a1c/383OO+/s
Fzxk8JIhFgnP9aTAt5hrudD7nbifYtbyTI5p4kJzgRe3266738Z9xDoj++fk
Ec5Xk0Tf33//A3/frZRrkuzTu9+plD4u1Q73FfkEbA0AOgfyxhRS12GHHebX
MXz48My/u7kFTAnzaK5U2Cd1vZkuvfTSnM857j2jX7n88sv9f2vSpEnWORo4
cGApv4YoM3jn5XqnFJqb4LXXXsvai8GHIC3YW+7cubO/R1/KMThtViNh+ZV4
3sQBYwzG4XFoa12M57xdktLGAuMY95p78cUXE2vPMGXKlHq9zXIVtAjF5Fbh
HU0shPuOdkHzZ7dLfi8XxmZoLLgeoswLuN/5XeO6JvMFrYz9ndBtifhAL+r6
y2y//fb/+zyaHLkuvAnRVuEnYeZ1XLu54l2I06kF3JykpuC7VCh2PrFFi4rP
ESyEEEIIIYQQtQzrq7ZPvF3Yb3H9GvOFNWC7rlwxYknDeiB+lKVcvzWFGP1q
Be+MSlyzcuNekvZldmOlwvxK44S1KLfNQgr5bwrVs+CPQB3ET1YSxP3wvYs9
d3gcF9o+sVqsJdaV65c9cPc5neY+WVzgoWF/L3KKi+LB755cHva5XWWVVXz/
mkIhBhH/ErQCBvedbwqxqtUAzzN7X47/n48ehX0C7mv0bcQFhp0j9qtE7YIm
J9f7hDxchYAW2q4HHVBa4FPlPt9LUfD8iCsvYrmBZtLVzMaZkyMp3P1u9lOT
JCyvS9x+Gy7EyLt5NKIW4v3Hjw/3E6uPoUOH+nXUlwMGzbLdJh6BlQ75G91z
ibZDFM/48eOzNELo3Ys5v//85z/9esiLBmhwct0TXNfVDnqVXLEQeJAWwuef
f57xSiNnphBCCCGEEEKI4hg0aFDOuavr550vxGqS68KuK1/f/zghxmqbbbbJ
+f2Ys+Jnuu+++/p5DtgPqiumn7VZ4uTrK+SrZe8lyTwSaTNq1KiKW7Mitsr9
fePw1a0LNy9K0uuV5513Xl57DO79GVbuvffeyO2TT55jiVdKwl8kKfClII6+
rvPBtcO5q8/3g5wuheTAvvLKK/3jL7nkkjo/R25iuz2eOdWAycttCvlJRHGg
0XHPK37i7PcUy6233urXxz3PszXX/RBHHpy0cfOX8QyIksca73Tz7HXPT6Vo
EUUyoHdaZ511Qu8dxqeF5jsj74RdV12+/0nBGABflrrel+SpQGfaunVrX89Y
V94Tyk477VTvGByPKe7ZatcpuV45hc7ZSonrh4iXYZLgaeZeQ0nmEsMLsb58
kvhP5OPTgl6RPCxRwI9jq6228o8fN25czs9RrxtLUar8bkmCFtk9j6+//nra
3ap4xo4dm5V7cdddd43FL5Bn+rrrruuvHfXt2zfn/YAnT7WDL02u7z9ixIjI
9eFTxbk1deAtKoQQQgghhBCicFinJX9l2LwNDXuh67jkwnTrS3rf2gWv+AYN
GoR+t/32288bPXp06P4/+0/M5+35p13YOxKeH/Pnnhvm7eWMG9fPHkah13i+
4GNaqr3FRx55JOf1jm6KnBB2blv0PmPGjPHXV9x81hRy4xLXEgXW1zh2yJAh
cX+9RDn55JOzvv9KK63knXbaad6wYcP8mCnj6c8eEc+Jxx9/3Dv88MND18X3
2muvSO2Ti5p9JOpatGhRnZ/dZJNNAm3dfPPNhX7tsgKtkf29kvZyqXbw6XZ9
g9EBxPUOI46OfSNiXJ966qmca8CF5BQpJ26//fas7xT1OY7PV6594mqICRaF
Y3I8hRVidwuFuGG7rmOPPTbGXtcPGkXej2HfixhnPM7CvCPYDyavDuOWsGPx
mhdLwH/APjd15QkrB3777besPVnGUUly1VVXBdrDJyUpeCfi2+Res+S+u+66
6/w8I+RhM1pjfMXIbYg2kT3lsOs9as5NM8/BJ64u8Bpw2yLPW6XDuXXH5Hff
fXfa3apoyEfFfMg+p40bNw7MJ4vBXLPE3fCeCrsPGLuiPax2LrjggtDvT76u
fLQrv/zyi7/+ddddd/ljSzd2An2ZEEIIIYQQQojC6devX+i8jXlzoT6jEBYP
VMo4MWJvw/Y4WXtknpkP7EWFxauzXyyW6E7cc5OGPz/rkazFtG/f3uvatau/
lhAGa2xuro+kc9CEnSPuuSTAv9jer2MNBW/QfO879jDQY5A7wu5vFI8AvKY5
hti4qDF1afLAAw8EvjM6GzzW8427IqcQOdrd3/rZZ5/Nuw/G7/3cc8+t83N4
7rjt1BWDWElwvdrfCz1cNVIK3xauSZM/3S48I+Pk0EMP9X3NO3bsmHNPeNas
WbG2WUqee+45fx3b/j7E0RfyfMN3Juz8VENMsCgMNL258gKQt6sY0EPa9XXq
1CmmXtcP++YtWrTI+k7oS9nnMdrE+mCMFnZuJk+enPA3qAzIpWSfFzv/Uinh
9+AdgCdKXb8Nv73d30aNGiWeqwz9jd0m3mlJwHu9TZs2gbbwhBk5cmTe7wve
lRxj18HzIV8/DdoxMRJopevitttuC7SDxqla2GCDDQLfjWuzGinFWJL1FFdL
gQffhAmFrxG5MG9nnIV+3c0nYgrrMbWAq4G29STk6aMwTzfF/Bvzf36X+vwT
o8ZICCGEEEIIIYT4E+avrlesmbMVG1vurplRWF8tBcT+hMXas87HnnHUusJ0
GVOnTk2o95UD6zjuPlP37t1L3od8vYMfffTRrHX9OHxK6+LDDz/MunbwRYkb
4kCbNm2aaQPdCB4xhYAPA3FHpi7WadibzQcTT/rQQw8V1HYaTJs2LeDNfNRR
R/m5CwqB56atR2HfNR+IucJ3mbUwnjl14XqssIaWtMdKqXD3zjgflZQzxsD1
06tXL++yyy7zTj/9dD9GG78SvPvZG+EdW0gunSi4z0UKOqe4rxWjI3J9w00h
VrdSef/997NiqRkPoGkqBPbVws5RJetNRHG4sfOm8C6NOl61YY/arTNqnHsx
hPk9EaMf5kdRH0cccURWXfXpDmuFDh06pP68JfefHQPNeCrMY4txasOGDQP9
HThwYOL9cz08Dj744ETaIdeK/Z7A16gQ3R1z5XPOOSfQ5/79++d17PDhw/3P
77HHHvV+Fl8pu43jjz8+cl/LFXdPutTePHHx3nvveddff72vrTvppJP834z8
bTxLuc8Y/9c3ZygG7uMwn09yE8YNvnu5tIUUNOfVDv429ekhiimsEwghhBBC
CCGEKJxcHsPXXntt0XVTh10na2ilgBgeYo/c71RMjgXWDdz6iDMVnu+ba58X
4stLCV7Y7m+DRshl8eLFAQ9e1n5LkX8Gz2q3f1OnTou9HdbbTP3EthXriYrO
hL1fU2c+viP4Y/BZYuOK2QcqNeSUiPP6JWaL3NjUx7rYJ598Uu8xRn9GbFZ9
nHLKKYHrKV/NRiVwzz33ZN0veLxUGmhy6lvXJP9OUuCjH9Ymns1xw7Ohru95
6qmnxt5mKUB3svXWW8e6pk/eILc+4mhFbYIux/WDovDuDctFF4VFixZn1fvM
M8/E1PO6cePeKdtss423cOHCgurDY8v1LGffrVp0hMXgzk/YYy0l6B0333zz
rN8b7ZiL62NfqjxHXHt2u+edd17sbSxYsMDXf1I/WoqXX3656Dq7deuW6TNe
U/lgtCP4KtUFOg937zppjWcpcTU0++yzT9pdigz3lvvccwt/L/ZdkQs0eWEe
Q8yx8/VLicK+++5b53et75quBp5++umc35+8nGjOWbsLK6wDXHPNNf4ckdxB
dpyAKdIhCiGEEEIIIUThEPMQNk/HOzaOeGDmbHa9xIqUAtfXlVJsHAXnyq1z
zz33jKnHlY3tY0AhfqaU2OuNprj5o8nv6uZtYf+6FJhYMbvE7bX5888/+/kp
qLt58+axeW68++67mWfE7rvvXu/nWevhs3379o2l/VLw9ttvZ34X4gHjwo5T
rC+/As9b7iO0F/nE7hLDZV9PN910U0y9Tp8nnngi636pxHze+J2z7nn11Vf7
94Xru0+ZO3deIm2jazL7Ou5+ZhK88MILda6BP/zww4m0mzQ9e/bM+i6c17C4
63wJy/fhvq9EbYDmkBhy93rgWRHHMw8PNbfuUuSFYh/Z9S1DY1msLo6xjft9
8NKqdcKeU4wJS8Vnn32W1T56AvIl2thjIgp5SXLl5osbN77+uuuui70NcumY
d0Rc+748I+zcH/X5IjLu4HP55DMJm9dW4lgrF64/V1I5XpKG3KnMc4kJIbea
+2zdeeedE2ubuUXYmC6J+wfwcss1juS+SkLDUW64mjNTmItH/f6sfaDRt+tB
0yuEEEIIIYQQIjrMydx9cArrD3Hl5HDjc0uR0zdsX4eYnmJj2Mjz7GpPWPMW
nu87ap+XAw88sKTtE+Ntt0/cjO0HgCaA9SbzdzzpSxmDdd9992Vdk3HHEvXr
18+vF0+EQry068L2malrrZW9EmJhouR5LgfMmitx6HHGuhL7Z+K60D/UBV7Z
fA5/9/rA19e9nt555524up06YX4zpdgDTBo3hnizzTZLrC2ewWHrsbfeemsi
7bF3VJeeohj9QVoQ20+eI/e7MK4pBlfXR+EdIWoP9qTca4E8dZMmTYql/jFj
xmTVP378+FjqzgXzhyZNmgTaRCc4duzYous+88wzs74Pe421zgMPPJB1XpLS
6oXB/MjN9dS7d+/M39H3Xn755YG/o3svNKdaVMJi/G+++eZY22Df0uSFuuKK
K2Ktm1xQ5HSg7vp8EfGC4nP5+MmRi8Q+JxtuuGFcXS4L3OdFmG9hJeI+X8kp
lwTopMK8k/L13CsEc/2GlVqJYXHz1Jiy6667FlQfzz87r+9XX30Vc4+FEEII
IYQQojZw9eoUch3H6dHfsmXLQP3E2CQJe6F2fgIz7x8/fkIs9btrGJW6TxQ3
7AHb5wSPyVKCH6lZf+D3vuiii7wHH3zQ1xgcfvjhWXthpf7NwuJ74tQbsG9v
tFHEwscNa+VrrbVW1hq5i4k9JLamUsBD3MR6vfbaa7HX/9Zbb2V+87riaMnX
wWdGjBhRb52PPvpo4FpiH6OScqvUh+0XYko+56XcadOmTeA7JZUD48UXXwxd
i2U/Kalnn3tN2mWrrbZKpM2kad++fej3KWb/Nlde7GqKCRb58eabb3pLL710
4Dog78sHH8yIrY0hQ4ZkXWtTpkyJrf4wbrnllqw2zzrrrFjqDsthFEduwkrn
qaeeyjovEydOLGkf+vTpE5gDoFkePHiwd9VVVwW8mci5h360lKBfds8P+Wji
xOS32Xjjjb2ffvop1rqBHFPUv+WWW+b8DPoUNNVomvPpwxFHHJG1BlBNGL8Q
Uzg3lQ6/q+tPMXr06ETaOuOMM0LHQORHTAp3zm6X+nz+qoFcY0RKMTotfGep
o1Q+sUIIIYQQQojkYT+UmCnWF/Mpb7zxRt6fTep44oFL5VMaN4888kjWPO38
88+PJceHDVp6uw1itZOE2Fv3e51wwgmx1R+WR70+79Va4KCDDgqcE85TqUGf
cOGFF2ZyXtiF9Uc0FnHERxaC7e9gChqFuHjppZf8Ohs2bJiYx7PxqD/44IND
/85+PuvkrAN9+OGHifQhCUzMJB4VSWG0Puw3hPH+++/7f8fDAm1Mfbh+LPjj
VhMTJkzIul8ef/zxtLtVFPyubr4PNF9JtOPmiTflgAMOiL09w913351zDZx8
zpXG/Pnzs/a6KfjvFKOFC8uLXS4xs8SbVsr42/x/fqdKhDwIjRo1ClwH+NV8
+umnsbbDM8a93qZPfz/WNmwWLlyYFc+80koreYsXL46l/jvvvDPr+ygXvOc9
88wzWeflX//6Vyr9IKeCux+I5pMxFj48aXiXoSN0z09d2uBC4P5NcqyC75w5
r9xnYZBfjL9ffPHFedXZtm3bwDl5/vnn4+xy6rD/7P7ula49JpeS/X0Yp+CN
EjesbeTa17///vtjb8+w11575RxLVtLcslDCxoim4L9aKMcff7xfRyXFOwgh
hBBCCCFyg3d52B5oJRT8N9n7qSRYYyOvrf098CFPAmKU7HZatWqVSDvAPjIx
Oe5vFGeMlrv+TWEvtNZx1+TwCEkLNEEffPCB7zXAvsu8eaXzPM4F8XnudZPP
vnm+3HPPPX6dnTt3jq1OF9ZyaQM/Y/RvLkOHDvX/js9CJWFiocgxkRTm98ml
RSF2l7/j75EPxKedeOKJfj56Yhbx0q4m8Lp37xc0gJVM2HeKe+8U0IzlGq88
9thjsbdnyOXlQBxlOTyDo4IGJOz7FKu76tixY1adcWo+CyXX71cJBR1lJYEO
e/fddw98h6ZNmybiHROWByJJL5SwvO947sdFmGaae6rWGTlyZNZ5SUs/DOiF
GH/Th8mTJ4eOGUsJuiv3/KABjAu+H3vPa6+9dmz5MsNgDk3fw7SY+DOut956
fj/ID5IPeNUQ90AOKp4V1UaXLl2yfvckf59S4M4nk8qjSoxN2PsWTen333+f
SJtoXcJyrFH22GOPRNosN8LeoRT85X744YeC6zV+scOHD4+xt0IIIYQQQoi0
wMc77fXYYkqcazJJg7bf+PabgjdvUjDPt9tKcq8VX1n3tyFONy5YL1t22WWz
2khiT6zSOOSQQwLnhNwT4k/QK7nXTZx8/fXXvmcBa9hJ0qxZM7/v48aNy/ob
eW35G/GJlQQ6EZ4dcXvz2JCrljVutChubBzerqxPonFTTtslsMbv3i8PPfRQ
2t0qil69egW+D57gSZBrLRZdQ5K6G75PWLvkgqo00Lrl+j7kNSmGMO+QfPLc
Jw37cGmPpQstcY7zkoZry/hum8I4Oaln/8CBA7PO1+zZsxNpC52I68FDidMn
AS8Kt/7LLrsstvorFfJnuOfl1VdfTbtbZQNxG+756d+/f6xtEDue9DnnXUHf
0b+5GN/JJH2oKg3yH7q/e5zegGmArsD+Pmiq44b5UK4xwf777x97ewZ8X3O9
55P0xCgnjJ+hW3bZZZei6uXdzDyA9QIhhBBCCCFE5cPc9rTTTvPXr/GrN6VB
gwaB/45akj6ePMesi7IfVgkQ+2bvEbC/R9x0kuy8886B+SD6+KRw1xgo+cZ7
54OJz3eL5qaed+CBBwbOSV35fWuRMH+KSvScNXu1N954Y+DfTX4Gni9x+m5U
E1tttZV/jt5+++3Av5tc86ecckpKPSs/yP0V9z522riasyTylLMGvuGGG4a+
p7bddtvY2zOQJyLXGviQIUMSazcp8KrJ9X0+++yzguslt32Yf3aSfgH5wv2F
Xq5Sxt+mMMZ89tln0z59eeP6k5ADLwmvdkOYPwVj2SR4+OGHs9rCQylOTIyt
Xbp37x5rG5UIMcfueXn99dfT7lbZkLQ/RanAe4++s/7gYvwg0daIJZh8fnZJ
2yulGPCmc+M6iEmKG3Jp5RoDJZm/jTWbsDbJIVWMN0OlwHpirhwrXMuFMmfO
HL+OHXbYIcbeCiGEEEIIIUR1w3otOW3NvGz55Zf3nnjiicTbdT2NiWFPAnJu
uHNPdPgLFiyIrY2w/MSbbLJJbPVXMviO2OcF72rxJ127ds26dojlrDSefPJJ
v+/kYbUxXvFJet1UOniec47sGCvWdc3+93vvvZdi78oLNCfu/VKK91VSoDFy
47aT8NauK7bvnHPOib09Q9ieLSVp7/OkIN4z7PugiSoGtCVuncSAitrAaOdM
Oeyww/w8dUmCr497zU2fPj2Rtv7xj39ktcXYJ07Q2bhtPP/887G2UYmYfGt2
YU9ULGHx4sVZ5+eOO+5Iu1uRQTNpPCZtHZbZ/0a/JE3zn4S9y5P0oksaV+uZ
lO9YrjEQZcyYMbG3Z3BjM0wh5qoWCNPFxfGew7+SOi655JIYeyuEEEIIIYQQ
1Qv7GXZM1+qrr+699tprJWnbnRuTpzUJbr/99qy5Z9we0N26dctq45hjjom1
jUpl7733DpyX3XbbLe0ulRVh12clxtoYz2Tbd5R4beKlyFeRdL6RSgYdBecO
rxKD2V8t1se12sAf3r1fnnvuubS7VTDGv8UueDrEDb4xudZik/T3MHoqt1x4
4YWJtZkke+21V+j3IddAMaBpcet0tWmiOnnwwQcDcafnnXdeSfY98e5wr7nJ
kyfH3g7jmbC42jfeeCO2NhhrhN2XleIRmCSPPfZY1nmZNm1a2t0qG9Atuefn
tttuS7tbBWHm1ZMmTcr827HHHlvR3ykp3Pxn+BxUMl26dAl8n6T8BnLlnGCu
h0dGEuDZuMoqq4S2G+d7pJxhzJzrvBezZrBw4UJ//Dlv3rwYeyuEEEIIIYQQ
1QlxGOz5mzkZsdBJxaaFcdJJJwXmhM2bN0+kHbOWlGQ8AxoBtw32yYXn+47Y
5wVve/EnYTGilZgnhv2fZZZZxvvb3/6W+bcbbrjB/z5J5C+oJl5++WX/PJ1w
wgmZfzP7tvikiz8hB7l7v1SyfwdxsPZ34T2cBNyDufQUaKGS4Pfff/fWWWed
rPaWW265RDQjScOYadVVVw09h8SAFwN5sNw677333ph6LsoV4kp5b5rfvJQ+
TmG+7Uk8S8Oe2XznOP030KS4bTRu3Di2+iuZsDHmokWL0+5WWbHiiisGzs9N
N92UdpcK4uyzz/b7//TTT/v/jfcG9xrfrxLnFUmCBtL+zSvdU9L1/LzooosS
aWfllVcOHQORXyspcuVZI5drrWD7yJbqvAshhBBCCCGECGLHZuDXEGf+i3y4
+OKLA3PCRo0aJdLOZpttlug+BfFvSy+9dFYb48aNi62NSmbHHXdMVMtS6RBb
7147H3/8cdrdKgiTn+LHH3/09x65pyt9v7sUfPjhh/55Mh495LDnv9Gm/Prr
ryn3rrwIu18+/fTTtLtVMOjL7O9y4oknJtKOq2tLWr8Bw4YNC22Td38lYu7L
sPL5558XXO/ChYtC66Q9Ub28++67mb0pYkwfeeSRkrYfdj2/+OKLsbdz6623
ZrUTd+z0cccdl9UG3jjC8+c79nnBK4R8YuJPNtpoo8A56tSpU9pdKgjjQ9Wz
Z0//v2+++WbNu3Jw6qmnBn7znXbaKe0uFQy+ELxD7O9DHtK4CcuNU4pxXVhc
TC2ts7DOlOu8d+7cOe3uCSGEEEIIIURN0KNHj8xcjP3uYuJWBgwY4LVu3dob
NWpUpOO6d+8emBMuv/zyBfchF998803o/NP2Qi2WJ554Iqt+Yk0rOQ9rnLAn
bJ+byy+/PO0ulRXsqbjXz9ixY9PuVkGQm4L+T5061d+XUexMfuDVavQTwFo+
/41/rwji7g0Z/U4lgqcLObbs7zJw4MBE2jJaJ7ewD5kUYfmu+b6FevB///33
/v4Q98VXX30Vc2/rBy+BsHO47rrrFlVvmB9/sXWK8mbWrFkZ7xbGviNGjCi4
rkWLFvljcDy7oxC2R/PAAw8U3I9chGkdOnToEFv9PEfXWmutrDbwxRCed801
12Q9g0WQZs2aBc5RpeZaGjRokN9/vBeYg5p4gokTJ6bdtbJj3333DfzmjFcq
Fde/Ac1UErmO3nrrrZz7+k899VTs7QHfg5yRbntHHHFEIu2VI8OHD8953ish
3+Ho0aO9Sy+91B9DlxrWN99//33fB5Kx9t133+1df/31fn+KifVgffHaa6/1
rrvuuoqdgwohhBBCCCHyx87VTJ6Kb7/9tqj6Dj30UL8u5ipRCNsX++KLL4rq
i8vs2Z9ktYHvKbk44+LII4/MauOee+6Jrf5Khth6N2+2cvgGwffevX5KHaca
F+ZeYG/oqKOO8v8/zxtRP2ZfnTUa9tnwvFE+22yuvvrq/9/efQBNUaR/HK/T
K+vOkkMxJ1AOFRH1MIuIJ6gEReEUEQwngjljRhQVRcUAiArGQ0RJemA604k5
ESQIryCgEkTO7BnPsm7/9Zv799rTO/u+07O77+y++/1UTRnendne2d3Znu6n
nyfnel4KmouYNWtWcL1SfIviwB566KGi5qifPXt2zndf86yG4mw0Rq34AY39
ae2pxrOTiJpv1KaxxVJYuXJlZq211sp5vqT1DPR+KH+LOY5yavnSvOuJJ54Y
1BvZcccdMzU1NV77672IOoeHHHKId1tsJ598snecyzfffFPQcyI9a9asyTRv
3jx4nzVP9MwzzxR0PBPno99cH/pOubnVNM9QbIr1KGXcxvPPP59zfOVGx/+4
tZ6og5JL13D7HO2///5pNykR813o2rVrto6c7vORa4cddgi956XKZ6PcEZpP
1tzrgAEDgn++8sorRX0O9RHt17LLLruE/q6abnfeeWeQy0B92REjRgS5Jny9
8MILeef1C8nRVZuRI0fmPJdq2Lz//vsleb5ydO6550aec/1+K864nGk8w47z
8R0rFK3XUky4+ktaDxbHpEmTcuo4uZtvDKqhscoWLVpkj9OpU6dExwEAAABQ
GTRua3JCarxI8zWFUs1RHe/jjz/22u+JJ57Iubcp9hqa9957L+c5dt9996Id
f/nyFTnj0RtssEEwfoJMULeiocQKlIrmZ92Yk7jjBeXG1G4ePnx4cJ1RXAD1
KuIxYzOa39Y/e/TokXaTypI7N1TsOlGap1bMhlk77m5/+MMfMqNHj84+XnnT
NTeoMd8ff/zR67mUk9s+9pZbbhn8f8U4nn322cG69ag2aH5kypQpXs+VLz+F
1jWWgl1PzGzKqe57jgzVg7eP1bhxY+9jjBs3LnQMreH1ofHZqHOoOZJC2OOy
ZhszZkzexz/22GPBY8aOHVvQ86L+qc9t1sJrrF/zU4VSjJKOpzwEvnTNsT93
p5xySsHtcR1wwAE5n+9i1gBzayYVO16j0nXo0KFBxAqUkuLsStmvqC/z5s0L
2t++ffvM0UcfHfy74kCRy51rvfjii4t6fK2JVw4Ftw6H2RTPoffLUJ4hxe/q
992X+oT2sdX/kjlz5kZef7WpXYoheffdd2M/j+prRB2rVDlvdP9oxpgK6btV
OsUHRp33cq9Ro5hN997Dd42Fxki22GKL7P4ac/v555/r3E99AN3H6Z7NHWMx
m/LrJuHeu22//faJjgMAAACg/Gn80tRq7tixY1Hm/LXOzswx+Ypal19IzuMo
H374Yc5zaGyxWC677LKc45Oj/1fTp0/POT/knc1lcvKaTXOplejMM88M2q+1
3/qn1tQjHrNWzpy7NPKiVoIDDzww9F059NBDi3ZszWFvtNFG2WNrzZHWRSnG
4rPPPgvyE5j5R63x05ienTPB97elW7duodfSp0+fYO7D1EjSWLziCJSzRG2Y
PHlyaGzSZ/4033isPZ5fLMuWLQtyQLjPVcj8v5vDQXMEvtyc7qo55sPEMbib
cqwnpTweUcdctGhR3n00B6LHKCYVlUPXC5OroVGjRkVbo9y9e/fgmMpl7ctd
l6917cWm66j7+S7W2mLdR7h5cDT3Qhznr5SPwj4/intF2LBhw0LnSLGMlViz
ccGCBUH7dU+h32DF9//nP/9Ju1llR/XCitk/sSlfwEknnZRda6FxF83/z507
L6gLoN98xewqnkFjJ8oporgHxYiatvjkuNQxla/Bfi3qR+o+Um3Qb41yrL39
9tvBY5WX4tJLL8320dZdd93M66+/Huu5Fi9eHNlfKVXOm1tvvTXnufR6SpUL
oxyp3km+eADlGylnitUp9J5D30t7/80228y7HRrv1Lly26LPcxL2fZ+2448/
PtFxAAAAAJQ35QkwczSdO3dOvEbUZeYX9t57b+99NVa13nrrhe5JlI+ymLR2
2K27qTmsYtA5tOfetClGvZj54Cud1iHY50djPoxz5zLzIWbTf1cid0266iUg
nlatWmXPm64runYhl7uWvxjxa7pmazzMnkvJt6ZTcQ177bVX9rfEnceLS7Un
7PFzMyatf26++eZBfugoq1atCv1ujho1KtbzaWw9ajw2Sc7nuqhWhfs8insp
ZH7Kfd8HDx7stb9iUtx5V81j+Jg/f37kOUySv9hwc2Zo23TTTWvdRzE9+i2l
5kfl0Gf/uOOOC95ffe+T1u2JouuFjjtnzhzvfRXzaH/23DzxxaC5RPcz7pvP
Lh+3/dryXTurlbsOv9j3WQ2Bcje6n6NKnLN1czL2798/7SaVJV0r3fc7yfXT
pTjIli1bhsYE8sWOzZo1O+hrKqZC+UTstpj8EnE8++yzOa9Fz6t/Ksb3o48+
itzvvvvuyz6+SZMmQT6Nuuh3zPze2Fu7du1itzcu9W/cMRZthcSvVqKpU6dG
9jsr4bfutttuC7VX76fvfYCbkzDpGN5VV10VOo4+x0mo7+LGtyhvCwAAAICG
RWNCZv277kOKOZ9tanb27ds30f5ujsrLL7+8aG0zND5sP4fWBxaDaqDax9Vc
TTHHyBuCIUOGhM7RTjvtlHaTypL7WdJ8bSU666yzQnPDiM8eg01a07UauPFx
EydOLOh4GrNVzlxzPM091bVWb8aMGZHrxQ477LDYzzt79uzI8VGt5f7yyy9r
3ffaa68N/e6oPXWJmi/StmTJ0thtjkMxVO65Ue70ul5TbRRD4rb7xRdf9DqG
m1tC8Qhaq+lDMZRR73shv/vKQeIer1evXnkfX1NTEzxmv/32S/ycqH9aH2zm
rYoZZ7hixYrsdSBJnLQb87rhhhsWrW2G5u/dz7hy2BRKx3B/D5LeizRUyqvk
nvvXXnst7WaVHdVacM+TfqMrjclPYbZi1BNqiJQL0+0PFJrHQ98rxUaYY+6x
xx519nuU5yyqX+aTKyMqT6Y21Y2sbe5af7NzdmmcSHG+denXr1/Oc/3pT3+K
3d64ol5XNcYHnXvuuZHvr3KPKBdKOXP7t0nqWDZr1ix0DOUSSkL3Z/Zxevfu
neg49v2XtmLWEAYAAABQHlSrWX199fmPPPLIWDUH49J9t5kDTHp/c+qpp8ae
R0jqvPPOK/q9j9ZxuLXtyz3vYhrc9zfp/WtD98gjj4TOk+ZcKpHySJvXoBgR
xGfXfClWHviG5tNPP80ZU9T8clIaP3dry2vNXhx2PguzXX/99bGfW3Wy3f0V
RxWnDpe7tjJO/I3iKE29L3srZs0Ije2aujVm0+9kofPH48ePzzmm79yx2w9I
WnfarRlSyPxkVOyJttGjR+fdx6z301o7VIbhw4cH75lqec+dO7eoxzb50Js3
b55o/6h12oXEPkXRmm33OeLEgNVGc4FurRLVQiJnS5jq69nnSNcbzlE0dy38
pEmT0m6SN11fTPu1/jrO/Hg1uv3220PvdaGx/gsX1gS1Vczx9O+qN1oX9ZlU
v8C9PvrEubrrUrTFrQWnNSz2fnFybakGnft8ikMuZn2cl19+OaeGSZs2bYqW
W7WS5KvVp3idcqbPg3tNHTlypNcxouoCJ4lfVr5HO9ZJ21133eV9HN1Hud/X
+++/3/s4AAAAAMqXYidM3WLVGlfOSd2bJNlUY1Bj/1oTqnUdyoXes2fPgudk
3DGNUqxpd9cBK6Z/zZo1iY+n+yk358Xhhx9e1FiVhqJt27aJ5xurSVRN2jhj
ceVGa4d+ned+L+3mVJRtttkmOydUiXW764PWWtrfEa1N/uWXXxIfz+TfN1uf
Pn1i7+uub9T26quvxt7fXSulWiFx84trjkS1t82+ir+K8/tjxzuV4pqsmE33
+EnGLF3uekj1Z3xp/aR9jIsvvjhRW9y1adq0xt+X6qzoux41Tq465/mYuZO4
9c6RLuXP0fulGj3qJyftgysXg+qO6xqjXDNTpkwJ8n/pu6/jq55OEurPuvNW
pVjTbucA0qa2F8LEqNjzl8XI19/QuLXn1c9AtAMPPDB0rpQ7oNLY97ta145o
bl+okFh/9duaNm0aOp5i5OM64YQTQvtqvjYu5diy+4LafNaluLUkVFuhLopp
UH/V7bcUI+eQqJ6Cap7Zx15//fWD38Fqo9jGqJhbbcp5Vc6i6uPNnTvP6xiK
VbD3Vz8qSS1M9ZfdtmjcxZddI0eb8nlVY4wPAAAA0FDZtZrrY0t6H62xYfs4
pVo75c7rJ60frLHnI444InSszp07F5wntCHSPa9bt1nzAMil+VF37fijjz6a
drO8qZ6Q2l6K3K8Nma7X5v0v9zGyNN1www2h70jSHAOi+Uj7WMp5oNz5cd17
772h/XWti1tLS9/3xo0bh/YfNWqUV/s1rmjvr/iOuqxcuTInr5LySRRjDaty
VLn9gkGDBhV8XGnRokXouIMHD/ba/4svvshpW9LfIsW5ufPPvvNWP/zwQ7C2
UPuqToPbtnx1zJW3Rn/faqutCoojQv1QXII711WqrZD8aFqbbR8rab652owb
Ny70HIpJTkrXbvu8at1pofkuGqozzzwzdN6Vfx3R3BxGxaoNWZ/+8Y9/ZNv/
1ltvpd2csmXydhbjmnfMMceEjrX//vt77a8xBHt/rVWJ69lnn835LVDtmrjc
OnDqV8bpx95xxx05z6v6HIVSXLBqmbltqtYaRVG5QMymWJhyZnKpmU2xB75r
Bdw8gF27dk3Uluuuuy50HMUDJeH2lZLGZQMAAAAoT+rj18cYrjatEU46H6N7
Z3de6aWXXiry2fhfzlt73sJ3vEM0B+LmF1aueP1/5HrnnXAe6XXXXZdzVQvl
OLHP18CBA9NukjeT63/o0KFpN6WiaJ7bvO/MC+Xn1uKNm9PY9dVXX+XkbI2z
Ls+mx9v7d+zYMfa+yvXk/o6+9178fC763XT313rtONz8ztoKjd1SfQo3xqAY
Y+uyatWqnPYqT5YPd0xabVUttKRUX8U+3s477xx7nFjrDdX/0H7HHntssLmv
b8mSJZH7KgeB/k6tj/I3Z87cnPzSpdwKyTl9/vnnh46l+cFi0/fDjWvOFzdU
G8VlKMecOYbm2sjVkp9qSNnn/O677067SWXLjkXQpvm/SjNixIig7cp9hGiK
F3Dj3LSWPomnnnoq51ocJ7bViIqtra3el0v9LHvfVq1aebV/woQJOe2PE1es
NSStW7cO7accEqpfkpRybbh9fF3fffK+NTRuHrs4/cRy4b6XPXr08D6Gm8Pt
xhtvTNQWN2YpST4a1X+yj6H+ne5PAAAAADQMZjylvjbVdiyEu7ZD9aBLQXMQ
9vP45BvWfGf79u2z+yqPhtaRU+MjP43b2udbeT2Qn5tHskuXLmk3yYvWS5sx
ytry1SOXqWOh8UjqXefnjq3NnDkz0XF07XZ/x3zjWP74xz+G9tf6p7huvvnm
0L7KN+Bj+fLlOe2PO8eu76mb11w54OPWGrFpTP3kk08OHUtxi8WsITJ+/PjQ
8ZVfwze/7jnnnBM6htamFkLnSrXp7WNqzXxdlNuiZcuWweM1vqv+w/Tp03Pe
S9V1cM2f/27Q71D8qvJho3zpfXY/H6Xe3njjjcTtVQyzfaztt9++iGfjVzU1
NUFdDvM8Wuup2LY4dN266aabQrnPlQfLJw6t2uj6bOcj0rlTnSFE0zy7m/fp
o48+SrtZXkysX9++fdNuStlS3g77Pd52220THUd9dbcfqL6UTx9+7ty5Oddy
nzoEboyacqz40HiL+/xx49xUQ9aNGfSNSzaWLl0axKXax1LNj0J+1yqZfu9G
jhyZt9aHtmLU0isVxU9utNFGofbq9fjQZ8J9zUliJ6NilnzPXVQM/t/+9jfv
tgAAAAAoT08++WSt91+l2Apdy/bwww+Hjpckhj2uU089NfRcda3V0nik5obs
Wgy6p1KOTdTOnWdTvADy0xydnUNFc+uVlNNdc4Bqt2IqiDPyc8sttwTnzifH
QbXRPJB9Pdlyyy0THUc5cvTdso+14447eh1j1aqPc34HfWKI3DVnvnMf7jop
bT7xgbrWmFwyZlP9CcUNxqV5pn333Td0DI2fPvfcc16vpS79+/cPPccBBxzg
fQzFfNrH0Hr8Qun9VmyDPQedLyZF13GN32688cbBYwcMGBCqAa0+j90+NzZH
8SMHHXRQ8LekOVlQPzQnu91229VrH1zb119/nbjN+nxqLb45lu4h1qxZU8Sz
8ivNh9h14BSn/P3339e6j3K9K3bCfr2aN4xbX6laKd7QPmd777132k0qe0cd
dVTonD344INpN8mL+U1OWtOyGrh1CHzrdRkab3Gvw741zty2+MTWKp+Dm2dD
+TJ8HH300TmvwSdG7Yknngj1g0z/xuceUMew4+y0KYdXQ4/90u+Xvqeq1XXB
BRcE/VLVt9BvYtx4TPXjtfZC++k3Uccymz6LpaifG4fyvbhtjYoTro27xkQ5
TpPU1lV+WrctPjFLcsopp4T27969u3c7AAAAAJSvqHvjUm/XXHNNQW3WOLA9
JqD1QaWaj1XMvNZj2Gu29txzz8wDDzyQzVOp+zWt19P9rdaamMc1atQouEf9
7LPPStK2hqZp06ah8fkk65+rjbvW6JVXXkm7SbENHjw4aLPWX8OPed9V6xzR
xo4dG/punHbaaYmOc++99+b8hp1xxhlex3jooYdC+2vtU9zYJz3OXSul1+bj
rLPOynkNvvMnWm9l5ujt317lzshXf1u/n4qX0FiinXNf25FHHplZvrzuPNG+
WrRoEXoeXWd8fPHFFznnSuP3xaDrs71mTTE+ylNh5oeXLFmaGTVqVGaXXXYJ
/q61nI888kjOcXS+zWO0aSzdrMPTGLRiSMwcQyXF2FUjN9dDfWxJa4HbTjjh
hNAxS7n2Up9puw55kyZNgr618pfr8631pB988EEw1+heo/TfL7/8csna1pAo
xs4+dz45lKqV4ifsc5YkL3xaPv54dXY9hW9NrGpi6maZTfnhktA8tnst9j2W
WxNB1+G4nnnmmdC+eu9958+j5u0//fRTr2O8+eabQS4J+xi6vqufla/Gp+qt
qc/q5qRQH/Taa68NxZs2VO61phTbtGnTUnltykVht0PxmnFr4hmKEbGPcfDB
Bydqy7BhwwrqL6mfb69TU1w041kAAABAw6Ja3MqJ7rNpPYTvPvZWjLkJ3ScV
Y3wjrgULFmSOO+64zDrrrBN6Xjs/gNn0GnV/HzcvMVQ7fE7oHGrNFOqm2qD2
ebv00kvTblJsyqGvNnfr1i3tplQUxWeZ645vPtRq4o47q9Z5Eu78nDble/Dh
rlXq2rVr7H3dNcPaNHfow823oC1JjR2NWV999dU5+TrMeHifPn2C/BAnnnhi
pl27djm5nbUpr0Wp5jeVL8N9Pt95Io0n2/srDqSYa/Y0h9WvX7+cdaJ2X0Lr
6hT/U9v7rHhOfcbtcVv7GKqXVUhtctQPzXHVZ/9b+/fq1avgdivOx/789uzZ
swhnIz/Ns2mew467tecF7f9WPgvFayWt71StFCtun8d333037SaVvS+//DLz
29/+NjQPWCk12O65555su6kJFU2xjnY+BcW2Jpm713iAe53SeEK++IEoUTUR
fPI46v7Q3rdNmzZer0Hxa1HjHUmoBp3W87hjKFq7ovpyihNRzkrlM1UMhdtf
0ndO/cx8sbwNkerOqJ+tmjFah6DzovvoffbZJ8hRoXsVxeyo76ffY51f5TJT
frtOnTplOnToEMTYanxF+ykmV7n2FIPcrFmz4G9prf9xc64lyTvr9g2GDh2a
qC1u3JNPjJyuo4qTNvvqc6safQAAAABQDtycl6pvXx+U01j1RpSLQveoun/V
PzWHpPV5y5Ytq5d2NDSao7PfT9VMQd0WLVoUOm8aH6kEystqxhaLkUu/mthr
lHxz9VYLt665/j1JrneNX0fFBPjmtndrZdxwww2x9x0xYkRoX9+6Jcrn5I5Z
axw/SR5c+5jKM+XWAs+3aX2WcmTPnj078XPGMW7cuJyxedW+8KEcyPYxNMdY
CqtWrQpyn6jvoLFuxYiqvtjo0aODHBlxKebiqquuyhx++OGZQw45JDie4kt9
1/YBPrRe2M7bVl/1xvQc+nzrGqq4EH3mO3fuHMwfKZ+Can0Ucm2rVpqXtK97
zZs3T7tJFePPf/5z6Ny98cYbaTcpFuWNUntVn5Lfi2hTp05NPLdqU81Pt1+k
mFMfWtfhHkMxDnFpzt3e95xzzvF6/vvvvz/n+RW3VoiFCxcG63rc+h35NsUG
K2doqepLof7p2mPXD9Pmu1ZA/WD3s6I8KL4UK2XfO2pT7b04FHu12267ZffT
GMeECRO82wAAAAAApbJy5arQmqBWrVql3SQUwOQqMPH8WmeMeOy879o0T1fu
7DqnlVZvOm1ar2XOXUOvF5yUclHY3wmtc0uipqYmZ4zOtz6NO0+lzdRmiENr
8Ox9tebMh2Ju3OdXPYhiUR5bzTlcccUVQcyE8iponF7xFsr1oHHO+pqrUd4H
+3VqnsuXPR6q7eKLLy5BS4HK564praR6YwjTnJH9XhZal7GaqA6Bfe4GDRqU
dpPqpJgjM2+43377pd2csuX2v1S/LAl9n9x+2OWXX+51DNUCs/f3qUMQFRs8
efJkr+fv27dvzmtQm4pB7VN/WzGmquWkGnWnn356EN+quXXlGfOJM0XlUD0v
93M1f/58r2NoPZO9v65tSfLIKAbDbcvixYvr3E85idz+kOJ+AAAAAKDc2POK
2kq99hWl8dFHy0N5UIuRi7qauGuGfNa+p8Ued6ipeS/t5lQMrc0167h88xRU
E8VP2N+JpHnLH3300ZyxNeUQ8PHAAw+E9lcth59//jn2/nvttVdB67bcHM/a
xo8f73WMSuHmy1DeIx/Kye3m8oiqE6Mc75WyBhkoFdXtKUbcGtKnHB/mfVTe
Eeq9x/fdd99lmjRpkj1/yu1R7vke7HwJioNELvXTlFurGOs2lNfC7Yf5xmYo
B5W9v0+ujKhaaL41XlQXwu3LUtcUhdI9jf25Uk0b3+unG/ekmh1RFMte22dW
uVF9Y5Z0nXDHI4sVZwQAAAAAxTZr1qzQ/Ytq1KPyXHbZZaH3kXkqP1pntumm
m2bPn+YUy3ksVzEBZp1Uo0aNyrqt5cZeO6MaucilWhTKX23OU8eOHRMfy66t
YjbVe/Jx3HHHhfZXjagouu5pnt7l5p9RDWUfqo9s76/5gYaYDz9qvuCZZ57x
OsZjjz0W2l85sP7973/nPE59Df29EnIBAaW0xx57hNaERn1fUN5Up9COI9Pc
FPwMHDgw9NuheIVyppqVpq2qk4Vc6uvZ7+mYMWMSH0v9dbdvofoAcWmtvZtf
Iqo9P/zwQ5DLwaW6IPa+W2+9tVf7o2qNnHTSSV7HAKK4eR26du3qfYxmzZqF
jnHjjTfmPEY5L7R2p7acc6q95xOzpFg6ex/FGE2ZMsW7/QAAAABQn+y6tZqb
VU1nVI6ffvoptP6HvLPJqG64PQbw/PPPp92kvGbOnJltZ5J8/NVs6NCh2XN3
7bXXpt2csjR8+PCC5tRtEydOzBlD9q3Jq3Fre/8hQ4bkPEZ5jjWfNWDAgJy/
ufkpNPcVl64Dbvv1GWqIomJffPOSnH/++aH9de6jaM3a+uuvTywYqp57jRw9
enTaTYIne249yXUTmaD2mvJ6mHN45JFHpt2kWtk1FhctWpR2c8pS27Zts+do
s802C2IVkurZs6f3unfbjBkzcvo3772Xm9tP9wX6m1tTbsWKFaF927Rp4/X8
ystm76+6nAsXLvQ6BuBSH1r5KOzPlm+eqw8//DDnu/H222/nPM7knlDOwCiK
WbJj8bWpDlY+y5cvD92f6Tut7ykAAAAAlDvVa45774Py4+bC/+c//5l2kyqS
1oTaYxJHHXVU2k3K6+abb86288ILL0y7ORXFzsldSJxAQ6Wxue233z57jvbd
d9+Cjvf000/njNMtWbI09v4rVuTmTNBvluuWW24J/qba0S7ls7D3/+yzz2I/
v5sfWvmqfWqNVJJ+/frlnGufnPVaZ7bVVluF9lcdb5fmEPS37t27F7P5QEVS
3fDWrVsnnqdDujRHbGqIaTv66KPTblLFUt0Mcx6Vf2D16k/SblKkb775JrP2
2msH7VTOA+ICc73zzjuhvoDidAvRv3//0PGUd8zHiBEjQvsrJ2EU9Xm1Bt/N
daa8bfb+7du3j/3cqo+g3EP2/qojBxRq3rx5Of32yy+/3OsYV155ZWh/xUQo
NsKlXIWKW//oo48ij6McgW5bFi9eHPnYSZMmBTHV5nF//etfI/MLAgAAAEC5
sucYd911V8aGKsiee+6ZaHwHucycrFk7VK656Lt165Ztp8YkEI/Gh+wxzc8/
/zztJpUdxZjYY2GF5mn59NNPg++SfczVq1fH3v+OO+4I7fu73/0ustbGIYcc
EoyBL12aG6uhmCP7GGvWrIn13Bqn1DHNfvr3qFiOhkJ1jtyxUJ9r4Nlnn52z
/9ixY3MeZ/KfKNYGQCYzbdq00PeGmm2VQzF85n3TXBNrzpNT/J7dR7v66qvT
blKkp556KtvGAw88MO3mlCU7PnPzzTfP/PjjjwUdz/6eJYn17dChQ2h/5btw
KWZCcTz5Ytq23Xbb7P7t2rWL/dxXXXVV6LmbN29eUK4OwBg5cmROv7u2ehwu
5VKy8wJp22233XIep9o6elyXLl3yHsvO/6gtKoeM6graNRyVf5B7AQAAAACV
SOtI7HmjCRMmpN0kxKD6wva960svvZR2kyqaxvvs9dXlWNtWa1ntNR351okg
l/KXmvPWokWLtJtTlvbff//sOdK/F4Ob40FxCnHMnTsvqKVr7xs1zq3v7e9/
//sgD0UUd53k7Nmz63xuxd6odpK930033RSr3ZVIY5zumKy2yZMnx9rfrZdk
ttdeey30OJ1XxW1oI24T+NU+++yT/d5Qx6syKFeRnc+pT58+aTep4g0aNCh7
PpX7wSefVH3RfCV5BvJT/QDFvppzNGrUqIKPqZwg6ucl6cPfeOONOX2TqHp/
jzzySPC3MWPGRB5H6/7N/oqtiEM1RewaCPpMx+0DA3Xp0aNHzmc7bqzP+++/
H9ThcfePyrFk8mI+8cQTeY+nuHb7OL17987+TbknFNturguKWzr99NOD3KAA
AAAAUKlUb9FeOxG1Bhjl45dffsnstNNO2ffMt14momn+0JxT5fNdsGBB2k0K
seeG9T1FfPaY6imnnJJ2c8rOlClTsudHcQzFqgn+6KOPhsbYbrvttjr3mTNn
TmaTTTbJGeeLqqlu8jj//e9/z3u8HXfcMXuMa665ps7nd3NanHPOOXXuU8nG
jRsXGQ8RpyaHGWfdbrvtMocddlho/5kzZ4Yee/fddzf42BQgCcX7aY7BfHee
fPLJtJuEOphcO9r0e+VTHwnRNL+2zTbbZM+raoCUm7322ivbvueeey7t5pQd
zcea86O4VN2vFoPilez+xccff1znPlq/b68XMdtDDz2U81jFECveQbXLotTU
1ISOUVcuGq3pt+/TlauNmpwoFsUkN2nSJOezrc97XWstlMtPuSH0WLvOkrbj
jz8+9Nhvv/02s/HGGwfXZa3piKJYaTtuSJvqByu2SvdcjRs3Dv6f4ikUR/HB
Bx8U7TwAAAAAQFo0fmCvs9IcFcrX6NGjs++V1vrmG/+BP9XxNOdW84PlxB6/
J4bGz6GHHpo9d9RJCfvpp59CuYyLsZ7QUGyeHc+gGkW1ja+/+uqrwdib5hYH
DhwYGp875phjQo/VdU91sDUuWNsx7etlq1atao0XdNcyaqwx3xhiQ6FcPFHx
FPnWcYpiXv7yl79kr5Naf6b3zp4Ttvddvnx58D5tsMEGQV5tAGGadzDfndat
Wzf4604l++KLL4JrmXm/HnvssbSb1GDYvyOagy6nuTfNLZq2Kf89dRvClJPK
fCcaNWqUWbZsWdGOrZgzuzaB8mLlo7lmU2ejWbNmmRNOOCHUr1EuCpupdXfW
WWfV2gblQTPHqK2ugvo4Bx98cPaxqmPz+OOP+71goBZz587N229X/0H1Fl2K
V1MMtPJcbrjhhkGeU7FjxJSnU/eEou+RqeV3++23523Lm2++mdMGu4ag7uku
uuiizOrVn5TmZAAAAABASrSW1NS632ijjYL8mig/GqfRWgG9T8qhQK3t4tJ4
qT0OUE51VLRe3LRr4sSJaTenYmiu3ayP0XqccswhnSY7hqBz585FP/6qVatC
8RrK6e3We9B8/BlnnBFc05SDVjXKRXWyzX5bbrlltg639j///POD/684o7qc
d9552eNobN2dq9TYox1LpXVUY8eOLdIZKG/KdWOPg+66666hNZ2Kh1Gua631
1BxFx44dg/+/1lprZYYMGRJ6L3XOzL5ar6b99Bito1O+7nK6ngLlRL9TytVt
vnf33Xdf2k1CHpp3Ne9T//79025Og3PllVfmjaNMk5l310ZdnjD1AxQvW8rr
19SpU0PxLFH3v8rj17Zt2+Ax7du3D2I5VdvAXj9v56hTbJT6PBr/qCv+46uv
vsrsvPPO2f6P8q+5Zs2aFYohVu4u5bYAisnk5jOb4iOaNm0aiuFRThfdHw0b
NizIC2HqhSp+Qt8LQ7mV9Dk1+3bq1Clz6623Zmt46N6otvhOxeC78RSKddf3
7OmnnybnLQAAAIAG7frrr8/eC+n+CeXHrBXQdsUVV6TdnAbprbfeyo7ZKW+L
YizSprFKjZeY9z5q7QmiaXzTnivGrzSmphzHZjxu9erVJXkejVPbY3277757
MMZ3yy23BDWAzVh3z549M59//nl2P8W+7LDDDtn9tOZP44NdunQJ/lvjhXHW
cev7c+KJJ2aPo/rbmufXmKHy29rrHpV3QXWvq8GKFStyxkG11kyvX7ETyufh
/l15f/W3fDmFp0+fHrwvdr1zvd8vv/xyPb86oLLoO2Vi/xTXrFg0lBfN15r+
oX5HyqF/2NAotsjMiZdT/o/LLrss2yb1H/Cre+65J3tu4tQKS+rBBx/MrLPO
OtmYhmOPPTboE6pPss8++wT/T/Gw6tvZsZ5ai2/20/dXMbbqgyp/heJ4J0yY
EOv51UfW9968Vs0567luuOGG0GdW89mDBw/m+oCSsNdXaOvdu3eQs2/8+PGZ
I444IvgO2H/XPY5q8SgmLOqeac2aNcE1zf5sqy+iPIF13WMtXFiTOe2004KY
DeWx0BgK+bUAAAAAVAvd/2jNjbmX0rgFyse0adOy743WAalmJUrDzr2t9exp
mz9/frY9u+22W9rNqSiaszfnrrYcvdVG1w87/0PUWrti0hol1a3WmLc9zqdx
Z42J56tFrrVTqh1hr5/SPnovfWtzz5gxI4ifMLmY7DWEZ555ZvD3ajJu3LjQ
eVBci/u7opiWJUuWZBYsWBjULHdzi+SjHFfz5s0rq3ztQLl7+OGHs99Hra/2
vcahdJQv3cw3aQ5WsWcoDcVgqmaEzrXyG61YsTLtJoXmy6utr1CbBQsWZOMn
tS691PHen3yyJrhH22KLLUL9F8VGKOZl6dKlkfsptlq1Ek3MmomZ9+37/vzz
z0H8hd1/NnEayjGkthHzjlJRH1zXRPuzd9ddd4Ueo1pEipfXd1PX0u+//z72
8RctWpRZuHCh1z4AAAAAUM1WrlwZrIszc1aaR0H6tG7R1GvWffTixYvTblKD
5sYWad4xTRq7M21RLmTE17dv3+y5e+WVV9JuTtm48MILs+dF64rq0yeffBKM
1ykPs08Nco3zvfvuuwWv+dO8mJ5bxypVTo5KcNJJJ4XGZLXWEkC67Fw6WneN
8qDaE+Z9GTp0aNrNafC01rqcYotMvnzVJIsbV9jQac7V5LFSnKryQNQXxX7q
3lj9OP0z7nuiunGK9dR9dKHvo9b1qy+rmh7qVwKlNnfu3Jy8cbo3AgAAAACk
Z9as2dn1G8rTTe3DdGktzN57752NcZk5c2baTaoKX3/9dfD5N+dd869pMbV4
fvOb3zBu4qljx47BuWvevDk5SP/fk08+mR2H0xwR56U66Tthj8led911aTcJ
qHrq8x122GHZPAjUyknfmDFjstfJCy64IO3mVI2bbrope95VPyEtX331VbYd
AwYMSK0d5cbEfqnOxsSJE9NuDtDgjRgxItRvV04YAAAAAED63njjjWAO2adG
PUpDeej1Piif6ksvvZR2c6rK559/nmndunVw/lu2bJlaDtdLLrkkaEO3bt1S
ef5KZmJibrvttrSbUhYUF7ThhhtmP0/UDapOK1asyFnj9vrrr6fdLACZ/62h
NrGAmi9JM56z2qkevKlHr3oBqF/K0WLiidOas//www+zORiURx+ZoMaAeV/u
vffetJsDVIXu3buH+u29evVKu0kAAAAAgP83ffr07BjiaaedlnZzqpJqO5gx
vKeffjrt5lQl1SbYbrvtgvehTZs2Qd6K+qZ6wL179w7mQOFn2rRpmXPPPTdY
81vt9Plp2rRp8Fnu0KFDMGeH6qQaRvaYrOL1+I4A5eO7777L7LfffsH3U9dt
5nHr3/z587O19ogtT89FF12UvRd66qmnUmmD4prTrv1XLiZNmhTkpNB7ovXy
AEpPvz+q+Wr33e+88860mwUAAAAAsDz//PPZsUSNZ6H+DBs2LDjvqtmb1vgh
/mflypWZXXfdNXg/2rZtG9QMBirJ6tWrMzvssEPwGT788MMz3377bdpNQor6
9u0bGpM96KCD0m4SAMc333yTzVOhuM5PPlmTdpOqhmqrbbbZZsG579evH7mc
UjZw4MDgvVCc/4svvph2c6rW448/HsS1aBs1alTazQGqxjvvzMnJK1dTU5N2
swAAAAAADuU5NTnzn3322bSbUxVee+214HxrDl+5CZC+H374ITsHeeGFF6bd
HMBLp06dMmuvvXZm6NChmf/+979pNwcp23bbbUNjskOGDEm7SQAiaE3qoEGD
grz6PXr0SLs5VaNVq1bB3D21DMqH8o01btw406hRI/oxKVANRMVRbLHFFplX
X3017eYAVWX48OGhfvsmm2ySdpMAAAAAAHn89NNPmQcffDDIP4zS0/keP358
MIeP8qJcIYsXL067GYCXt99+O9gA1Q1w17i9/vrraTcLQC0UZztjxoy0m1E1
XnjhhczChQvTbgYcivGfOnVq2s2oWpMnT87861//SrsZQNU54ogjQv32Xr16
pd0kAAAAAAAAAGiwVAPeHpNdb731yGUPAAAAlBnl42nSpEmo737XXXel3SwA
AAAAAAAAaLBOPfXU0Jhsly5d0m4SAAAAAIdyJbl55ZYsWZJ2swAAAAAAAACg
werbt29oTPaBBx5Iu0kAAAAAHHPmzAn123ffffe0mwQAAAAAAAAADdr777+f
adeuXaZly5aZW2+9Ne3mAAAAAMjjkksuyWy99daZY489NrNs2bK0mwMAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAiOH/AJL2p68=
     "], {{0, 258}, {2132, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{532.81125, Automatic},
   ImageSizeRaw->{2132, 258},
   PlotRange->{{0, 2132}, {0, 258}}]], "Input",ExpressionUUID->
  "3a2159f9-8ce4-4a24-9e1a-1dd16cbb6433"],
 ", FieldNumber = 3 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, {
   3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 
   3.746834847884678*^9}, {3.748965810890964*^9, 3.748965814377738*^9}, {
   3.767539490016307*^9, 3.767539490016355*^9}, {3.767539868227397*^9, 
   3.767539868502643*^9}, 3.7676319654924107`*^9, {3.767632095235854*^9, 
   3.7676320957494793`*^9}, {3.767632575145319*^9, 3.767632575616911*^9}, {
   3.7676326265689507`*^9, 
   3.767632627041649*^9}},ExpressionUUID->"7977f7ab-7eff-42f4-8821-\
0c5ced46ea89"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "3"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9},
 CellLabel->
  "In[179]:=",ExpressionUUID->"0a9103de-8854-40d9-990a-6dff7efebc0c"],

Cell[BoxData[
 RowBox[{"F", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.768069030865663*^9, 3.7680899713072767`*^9, 3.8312204963547964`*^9, 
   3.831222243593419*^9, 3.8318058847436376`*^9, 3.831839776130047*^9, 
   3.832947489030609*^9, 3.832961773696579*^9, 3.8458268622148476`*^9, 
   3.845852456467662*^9, 3.84585706687824*^9, 3.845919611778943*^9, 
   3.8460065654168663`*^9, 3.84609987589107*^9, 3.847470437292766*^9, 
   3.8517006223952165`*^9, 3.853975439636402*^9, 3.8549773946490345`*^9, 
   3.8549892531403437`*^9, 3.8549998897390676`*^9, 3.855165237292349*^9, 
   3.8551823071512966`*^9, 3.85518585206855*^9, 3.8553306271285954`*^9, 
   3.8553398330867023`*^9, 3.8553431697069907`*^9, 3.8553440045030303`*^9, 
   3.8553527322576113`*^9, 3.855449597032606*^9, 3.855507599237091*^9, 
   3.85550839549259*^9, 3.855512882911668*^9, 3.8555330966488523`*^9, 
   3.8555333145569067`*^9, 3.8555789080126762`*^9, 3.8555932814567432`*^9, 
   3.85575059354865*^9},
 CellLabel->
  "Out[180]=",ExpressionUUID->"7f9d6299-3f7a-41b6-ab91-06b0e66e54d5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "I"}], " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"A", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"B", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}]}], 
        ")"}]}], " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"G", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"UD", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Fmn", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}},
 CellLabel->
  "In[181]:=",ExpressionUUID->"b392d5e4-3661-495f-92dc-6a9df73f32e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"ebd230c9-b163-463a-92ca-4629b178b52d"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.768069031427635*^9, 3.7680899716064796`*^9, 3.8312204964988613`*^9, 
   3.831222243766441*^9, 3.831805884875602*^9, 3.831839776260174*^9, 
   3.8329474891712008`*^9, 3.832961773854785*^9, 3.8458268624836063`*^9, 
   3.845852456604382*^9, 3.845857067026559*^9, 3.8459196119419765`*^9, 
   3.8460065655518436`*^9, 3.846099876047293*^9, 3.847470437434874*^9, 
   3.8517006225514307`*^9, 3.853975439787858*^9, 3.854977394836484*^9, 
   3.854989253285981*^9, 3.8549998898796854`*^9, 3.855165237479821*^9, 
   3.855182307314401*^9, 3.8551858522226257`*^9, 3.8553306273012094`*^9, 
   3.855339833258975*^9, 3.8553431699256973`*^9, 3.855344004646016*^9, 
   3.855352732409236*^9, 3.85544959719099*^9, 3.855507599405676*^9, 
   3.855508395637143*^9, 3.855512883098714*^9, 3.855533097285619*^9, 
   3.855533314738426*^9, 3.855578908181676*^9, 3.855593281581682*^9, 
   3.855750593697468*^9},
 CellLabel->
  "Out[182]=",ExpressionUUID->"a4b18664-d299-40fc-b5f2-40855c8f3440"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[183]:=",ExpressionUUID->"44b4a858-4d51-4a71-aa2a-b482cd34e0ef"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJzsnQncXdO5/3vboqXGe9WspgiJoTHFVCQIjfGqkhQhKuGKmGosMQRJDIk5
CRFJBE00NUXUrGZKRkFJgkgkRYtWq9Xb3vPvd/uv1zrrrH3ePay1h7Of7+ez
2njf9+y1zp7WWs/wezY89pRD+n/9a1/72s++9e//OaTv2d1OP73vuT9a5d//
8eOTf/Y/x5/c77gfnnxGv+P7nb7jsd/49w+X/4+vfe2G5b72tW/++981QRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQWhhpk6dWuvZs2etR48etd/+9rd5D0cQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEoAKNGjap97Wtfa2urrbZabfHi9/MeliAI
giAIgiAIgiAIgiAIgiAIgiAIgpAjn3/+eW3llVeu8yfTHn/88byHJgiCIAiC
IAiCIAiCIAiCIAiCIAiCIOTI4sWLG3zJq666au2zzz7Le2iCIAiCIAiCIAiC
IAiCIAiCIAiCIAhCjvzf//1f7bDDDmvzJX/rW9+qTZs2Le9hCYIgCIIgCIIg
CIIgCIIgCIIgCIKQMf/617/yHoJQQP7xj3/Ubr311toNN9xQ+/3vf5/3cARB
EBLz8ccf1+bNm1ebNWtWbe7cubWFCxfW/vnPf+Y9rMzJcr4nLokmCM14//33
gxobafj73/8eHEcQBEEQBEEQhNYC2+S7776b+jjvvPOO7E8FQRAEIQX4Cddc
c83aN7/5zdqpp56a93AEQRAEwQn4TV988cXaoEGDattss02Dfj9ttdVWq/Xq
1as2YcKE2gcffJD3kL3yl7/8pXbssccGWhMrrriiV70Jzv3Pf/7z2korrRT0
d/3113vrSyg/2267be0///M/awMGDKg99NBDtU8//TTS5/7617/Wnn766WD9
usYaa9Q222wzzyMVBEEQBEEQBCFrpkyZEuzfd99999ro0aNrr7/+emS/8Pz5
82u33HJLrVu3bsExfvWrX3kerSAIgiC0JjfddFODbf2uu+7Ke1iCIAiCkApy
kDt16hTMa8sss0xtp512qp1zzjnBPnTq1Km1cePG1U488cTa6quv3jb//cd/
/EfttNNOq/3tb3/Le/he6NmzZ918v+yyy9Y+++wzL32dfvrpdX1xbqdPn+6l
L6H8rLPOOg33C8/vT3/609rll18exD6OHTu2NnLkyNpVV10VxEVstdVWtW98
4xt1n0NPRRAEQRAEQRCE1oL9gGm/XnXVVWv77rtvED9+9dVX126++ebAb3zt
tdfWzj///No+++wTxKzqn/n+97/vbQ8sCIIgCK1Ox44dG+ZjfMyCIAiCUEaI
UR4+fHhtueWWC3Jw8T2RlxvGRx99VDv88MPr5sHNN9+89tvf/jbDUfvnjTfe
sOZn+6hjwPnm/Jt9PfLII877EloD05+cpF188cV5fw1BEARBEARBEDxw4403
pt4vbLDBBrUlS5bk/VUEQRAEobRsuOGGdXPrd77zncC2LgiCIAhlhNhk5rO9
9tor1l6Rv9fnQ2pAoJXdKsyePbthP92jRw8vfRHvTX6p3hfrDWpeFQliD8aM
GZO4Ce5I409GY+Duu+/O+ysIgiAIgiAIguCJtP7k3r171z7++OO8v4YgCEIp
oLZYUlvZxIkT8x6+4JEHHnigLYcIWx416ARBEAShjLz22muBtjX1eqndQA3f
qKCPbe45yVP++9//7nHE2TJw4MC270btKJ/xY6NGjWrrq3PnzrU333zTW19J
+d///d9UNok495fQnKT+5IMOOshLjr0gCIIgCIIgCMUhqT+Z2NPJkyfnPXxB
EIRS8f777ye2lf3Xf/1X3sMXPLN48ftBTUPsqoIgCIJQVo488si6Ncwuu+wS
K0e5Q4cODesg6rW2Evjcs/Ltvv3220FeNHnARUT8ycVB+ZOpidzeeV9vvfVq
P//5zwsZoyAIgiAIgiAIgnuUPxndq5VWWqnpfgGtsQMOOKA2ZcqU2hdffJH3
0AVBEEpHGn8ydesFQagO+F7mz59f++STT/IeiiAIQizWWmuthnXMcccdF/nz
Zh1l2n777edxxEKemP7knXfeOcjbjtqK6icvI/iT0UgH8o2feuqp2q9+9ava
6NGja8OGDauNGDGidu+999YWLFgg510QBEEQBEEQKobyJw8dOjTYx82YMaP2
4IMP1iZMmFAbPnx47fLLL6/dcssttRdeeCGovyQIgiAk5w9/+EMs+9h2220n
+cmCUCHwHZ977rm1TTbZpO3Zx67bvXv32qRJk/IeniAIQiTQujb9weQ7RqV/
//6pPi+UC9Of/N577+U9pMqi+5MFQRAEQRAEQRB0dH+yIAiCUCx++9vfSn6y
IFSExx9/PNCO5Hnv0qVL7aKLLqoNHjy4tvbaa7e9B372s59JPpAgCIVniy22
aPAHH3rooZE/f/TRRzd8fscdd/Q4YiFPTH/ywoXiT84LpXctCIIgCIIgCIJg
ovzJQ4YMyXsogiAIgoH4kwWhGqAHQz7Q9773vUAnRgc/s25nHzNmTE6jFARB
iMbUqVPrcpRXWWWVoH5vVPbcc88Gf/IRRxzhccRCnkh+cnGQ/GRBEARBEARB
EMK44YYbJD9ZEAShoOj+ZNG7FoTW5IEHHghstx07dqy9996iht+Tj/z1r3+9
7V3QqVOnHEYpCIIQj7feeqt29dVX10aOHFn74IMPIn+Od97KK6/c4E/+9a9/
7XG0Qp6IP7k4iD9ZEARBEARBEIQwJD9ZEAShuBQ5P/nKK6+snXLKKe22Cy64
IO+hCkJhmT9/fpC3t+666zb1tyy77LKJbe2LFy+O9KzSpk2b5uJrCYIQwrhx
4+Q5a4eZM2c2+JLR/f/nP/8Z+1h33HFHkCstFJsy+JOJcxg1alTtsccey3so
Xsnbn/zMM88ENqp//etfuY1BEARBEARBEJIwffr0IG+3levUSf3k1uPPf/5z
UHNx0aLGHCdBEMpFkfOTv//97zfYe21trbXWynuohQQ/4m233VYbP358sN4Q
qge+EfUcPfzww6F/94c//KHhuSLvLyo230xY+/nPf+7iqwmCYPDZZ5/VDjvs
sOA5O+644/IeTqHp27dvw7uJmgBJ6N69e/D5k08+ufaPf/zD8UijgS3hqaee
qt16662Bf3vJkiXe+uLYkyZNqo0dO7Z233331f7yl79468slRfcnf/zxx7We
PXsGYzvzzDPzHo5X8vYnsw7hPPfo0aP20Ucf5TYOQRAEQRAEQYgDsafkgqyx
xhq1L774Iu/heEP8yW7561//GtgJ8tRje/3114N7d/XVV689+uijuY1DEIT0
vPTSS+JPbjHeeeed2h577NFwnjp37lx77rnn8h6ekCHEE0TxLT300EN19wra
13/6058i9yP+ZEHIF977m2++efCMURf4b3/7W95DKizvv/9+gx7Df//3fyeO
7/7jH/9Y69KlS3CcnXfeOfALZsm9995b22CDDeq+zze+8Y3aQQcdFIzNFTNm
zKjttttugR9Q7+s73/lOrV+/foX3K5v+5IULi+NPfuONN2obbrhh273IWFsZ
/Ml8Vxt89w8//LD29ttvBz5/H+eCWLuf/OQnwRjWW2+92ty5c533IQiCIAiC
IAiuYP2qYqKx3bf6+rU9vWtyXclzZc+Q9f67bHz++ee1TTfdtG0fPHjw4NjH
YK8/YMCAwE9z6qmnJt6j3X///bVlllkmsDlfddVViY4hCEL+FFnvWvcn77ff
fkHuj60NGjQo76EWhqeffjpYW6ywwgqBtjD+Y/KVsC1zHr/97W/XnnzyybyH
KWQA603WDFzz9uqKnnPOOXV29q233jpWX+hd255N7kH+n1iGVvAn//3vfw/W
US59da3uNxD8g390o402avNnFt2vlyf4jPHXmbFW5HanAY0H9Z7r2rVrsL/N
gssuuyzw73L9r7/++mBNd+yxx7Z9t06dOqX2KTOX0A/7vm9961vBPpJ1BJrB
euwa39ul/9o1Rc1PXrDg7UBrXeXLtnKegcLMT+b5u/POO2uHHHJIbfnll6+7
Tvw399mwYcNqn376qbMxcF8feuihQR9rrrlmLE0WQSgjL774YjBPEYf9/PPP
5z0cQYgN8yPzBetcV/UK8tKVEQRBiAN72D59+gTr1pVWWqn2yiuv5D0k79jy
k8ljwZ7YsWPHhryVjTfeuHbMMcdIDpUFfPL6uWLPGRfqjOrHuPvuuxOPh89+
85vfDI5zzTXXJD6OkA3Ea1Df7ayzzgrsjcTBs3/GhoHPgT01Wn/o5Yl9uzqU
xZ/8q1/9Ku/hFJ5XX50b5FxxHZlndXbccce2c7n99tvnNEIhS15++eXgep94
4ont/q1+f9CIN3PJT3/601L5k7FToANz9tlnB7EsW2yxRW3FFVesO0f46bfZ
Zpva0UcfHeSBE/MXl+uuuy54ZsktFYQk4MfEZ8g9yb7qk08+yXtIhYXnmudV
f44PPPDAduNtooIO9Prrrx8clzzeJO+EOFxxxRVtfekxBHwf/Tteeumlqfrp
1atXcBx8ekuXLq37HT5ZPV+5yDrNRfQnE4ul8pKZT9AhqwLKn4xtbMyYMYHm
GeeAWEj2o9gruL/PP//8tvebsp9dcsklTv0I6DmoPGWZi4VWhRgnFbdCI9ZT
EIoKfuPf/OY3tQsvvDBYpxHnvOqqq9bN4dih0eX58Y9/XLv22muD9XBcpk2b
VltuueUCnS5BEIQig01PaVA98cQTeQ8nE3R/8oIFC2r7779/2xyw5ZZb1k47
7bQg5pl2xBFHBHHP6vc/+MEPAv0n4UvwAehzKOcuDuTVoEmmHyOtbva4cePa
jnXzzTenOpbgB5477GcqPzFKwx42YsSI1PkaQvEpS/3kuP5kdLzvuuuuTNs9
99wT7Ec4p1nnl2CT23XXXYM51PQlg6l/3eraKIr331+S+X3Avcr+lNicPOvy
cU8wx7eXq8h7XsWGqYZ+qkvK4E9mvYntmngr8vCizpeqrbLKKrWTTjqp9tpr
r0XqT62fOPcy1wpJQJN+2223bYtvmDNnTt5DKhT4ivCtMi/z3lG+Xhr7IfxY
rmHtobS0feaavvvuu8E1R2fbfMeTw6m/mzbZZJPE/QwfPjw4xgEHHBCqy4CP
T38PFtUnWjR/MprOSqOe80aeclVYd911A3+ysgvhUydOPewe43fc7+ra4QN2
tb7iOPiSOS55/ug9CG7hPUheBHk16IyXtZHzcvXVVzuLZ8iSM844o+79d9hh
h+U9JEGog3cv7wne77pPIGrDL9y7d+9Aqy0K7NNVP8RgVxXsRsSX5P1+TdOO
PPLIYA/uS3fh2WefrU2aNCmz9stf/jLQg50+fXpmekdCsdG1BKtUS1j5k7t3
7x7oFbF3QP9w3rx51r///e9/X9tnn33q9vs8U1UHm5HpD8R3EQfmTHPedbEX
+5//+Z/gWGhf33777amPJ7iBvAhiWJRdHJs1Gn/4/bkXyKNgfuIeYO7lWTV9
Ttg3xo4dm/dXyQX2iryPyMWI05Ysiff3aT7vQlewVfOTiU+Kuw9x2dif4N8l
vxFdAN/6o7fcckvQ789+9jPr71WtOtVYF1cB1uJ53gc0cgbxp+I/xAdQNPA5
6+NlneY6x7HI/uQXXnihdvDBBzfUBFUNG/Yuu+wS1Kph/Y4Pims5atSo2umn
nx7EPpJTpf6eORfd2WY88MADbT78HXbYIaNvKrQSaLXqazYfvtEywly73Xbb
1T2TZjvqqKMCX54vbrjhhra+8D/4QPnhbHZT9M/075s0VpDcIN5TxCw004M0
9YmjxtRkTZHqJxPjrWJBaFOmTMltLHmgr0l/9KMfRdKxJi4Ef4H6HM+5q7U1
6wC1XyYPjusjuOOmm27KfS3usrmOufTNa6+93hAnydpVEIoA8bzU6WgWy0tc
XP/+/QMtRWyW7MOwaRIHvO+++wY2LP3v8Tc0W7fMmjU7sHPyt8TEsaauKltt
tVXu71RXjbWFayZMmJD79/rud78b5OHjaxEdquqB/oK6F374wx8GOSNVQd9T
s58lZ6c9iE3F/6w+h5+SGI0qg+1Rf6dwTuLWm6besn6MzTbbzMnYiDlVudP4
vKPGhAn+IL6PfTbXBA0x8v9NjbowyFtkj6HfK+Q3FzXfwAc8W9/73vdyXzu0
1/B/pNUFEH9yNm211VarXXTRRbHf21Fgv8Q6Ex0o2/HJWTPHU+Qahy4pgj/Z
fGbJCZg1a1bep6YNYh70MZLv5pqi+ZNZh7OuMuc61XiesG3cd999kTRrmR/x
IVOzRR2DeGnbvEn8lu5/KbI+bNWgHuzFF18caJxTXxDbFutt4oM22GCD4Oc8
L+TK5e1vQMNY3UPE5QtfwnXhfcN+W7W999472KfoOgzUe8EO6UsbgBwZ1dfk
yZOdHhs/L8dFA9IGesD6+4zYtrjw7kIblXu/mX/Y1NamFVX/pEj5yXqu4MCB
A3MbR16Qn5xkPYB2ln4NyZt3BfUn1HFd1/yoOtTaynv97bKRo1wmlKa73tLo
VgjlhlwS/LLkBBGPntd6VsXz2p4x7JfE/uE3jjJX4w9mraXreRILbNObILab
Nb76O9aJVaZZ/GUZm+u6jePHj0+kW+arEeeO7SCJvrtQPrDjqlhKtHSqdt1H
jhwZfHf2DXH2beRNqlo6NM4hfo+qYmrU4GeJS7du3eqO0a9fP2fjY17GX8Jx
0ZOLEmcs+IHaT6o+DjUxFy1aHPsY5OZiU9XvF+K1q3Jd0SvMe60QtaW1Q7Wq
PxlNB/LLaewl3nzzzdqDDz4Y1HpXterCGnts/AV8hjgMdRyzLV365f8vWrQo
+Fs0I7BPsy8xa/yoRg1W7Cqu6jUC/XJs+rZhPsvoK1YF4p3U9UKTgbkKn9Gt
t94a2OKb3QfsHa688spAA4t7KOz668d/++23A1v/VVddFfgTuZfCjk9+2Ysv
vpj3KQryY/Vxxa2lEYUi+ZMffvjhoB6y7ZpsuummwbsmqZYh9gz2eOp45J/p
PuXXX3+9ba2kGn5tIT+wO2Cv0uebKG3llVeuHXfccUEuaNagf6Z8o/i5fetf
tArM1TyfXDt1HfErk9vtWr+UmC2VL0MOjEvfJTnPHDdMn5E6vPq9ikZaXJjD
+Gx7tZeJudH7Iq64qPr9RfEns0ZQehjMRVnXRykCvDsPOuig2DkWxHepnDLV
qDPiAsaC/4Fjcn1YKwhuQDtJXS/WnOQ4EPdia81+F+VvfH1er+PN+7Es8HzY
1jD4kITqQW6XXjtA7UezZObMWbXddtvNel8Sz8vzFSWWN4zRo0e3+f/wGy9c
uLDtd/jS0Q3T+8S3XmV0bXF0r4v4/m32N2a8ko81FfcjukbY7373u98F+XPk
LZs2FL0R2/D4448H9x+fjdqwJ82ePTs4PrHt5vOqGnn1ce2jQrkg1kfXD2D/
UDXIwSFfA33duJg2cPbHZaxX4gKVa6pa3LhZ7kWzDsWdd97pdIzkSapj9+rV
y+mxhWhwnZUdCXtT2vn0vPPOq7tn9tprL+cxX0UEmwI2Yr0mKlpd+FnwNzSz
MWMbGjZsWPB8xam5+otf/CJYN2DXvOKKKwJfFBoC5EY164/c8zS0qj+5Gfia
VcyFraFPnRZ0NtDDDfMncq7R7nMBWoEc89VXX234HXOmmWvP/SV8CTbNsPvA
Vc7fk08+GcQY2PrAZsk+KC+dLWL3zNrJ5HS7pgj+ZJ5J9sk2XWvsF+inuZrf
0NRRtgz0qQBflqrRqBrv96rEaRUR4oDM9TXxRujkMY8Tf8RehBy4sBgh7if2
+1nVSuc+VjVXXfpSqgS2HT1mmUbddNd+UF3jdffdd3eyh8WmRVwadV5tzJgx
o+Ee5T6P28caa6wRxL60F6vAflTvq8j6/UXwJ7P+1Ot4P/roo5mPoeyoOluq
kbPQTNc0DtSRVPsu/BBZvddbHd2fzPUrI9QMU9+hLP5k3t/mulNvUpezWqAd
suyyy1rvBXLgfIN9jThtW64nOqb4dV3pIWLfUvG76G6xruF5sPn/ihDbnSe6
j6Co9UqaQcy/fj2zzLfHxhO2Nwyr7xoX8lGxC4e9x9E/FFoTPacUfUMhHtje
TLsfmhxVw1Y7OW7dFqWNpjdyq1yCnUSfo2+77TanxxfaR/lGevbs6cw/gR1V
v2/wC1QZ9l7m86gaMfOu7ZEcDx8zvmVbnxMnTkx1fN2fnLTGni98+ZPh8MMP
D12XkUPoCt6L+JbIITP7wWZ14YUXprYx77TTTqGaFeRX6H3iOySXVvgS8tDD
7gOujUvYq5vvU9Wog5rHdSFn39z/+PBv5u1PJs7XlpNMzC95/T5sarp2Jn3o
uS2qEf8l5MOkSZPaYr55L+JDbpZrzHuaulX48WzPMP5mapH7hpgI1afUP0wO
cc6mTRNdbFd+KeCe0eMV0sb/AXtjbH9h89OJJ55Y952S3CPYwDg3UcZr5vWj
B19UiuBPRr9T9Z91TlirMHbs2Ib3r8t6tvozFKYpL8SjFfzJui5vWfzJ5557
bugehxY31kgoN9SvC7sX8Iv55L33FtXVs9Qb7wcfuibEaymbHTHi1Fk2+/7O
d75TiVyZZuj5r3Pnij85DsSi2+5pH7GVpl6t3ohfFVoLXcuIfR8ai0J80CHT
nxV0A6qGWTuZ+ypuDU7sDvoxXNVONsE3peJ60WBA+1PIBuycnHf8Vi5t4/Pn
z2+wuVVZnxMNQ1t+G82lhrwJOUnk/Zt9JtF+0KlifjKY+Q16Q8fGNeQ4hGk7
7bPPPqnqGaNDELZ2JjdS7wt7iPAVtlgr1chLdA2x2cSR2vojFwYt7izRtZlp
6DP7IC9/MuebeoumPguNnCZykXzSXh33008/3Wv/gh1ifJSNifsgznPH+zbs
urJWShvj1YxHHnmkbf3BWhvdayE5gwYNariGrLPiavA2g/qA+v1B/nBasLva
4tBsWsBouSeBfUR754G9qLkeziKmIil5+5N57+j3gvhykoF+pPncHnLIIc6O
z32t61GgvyakoxX8yWXLT+b9EpaLqppvH6JQLNjj2e4D3nfkL/kCHR2bxg++
3ClTpnjrF4YOHdr0GejRo4fX/suA5Ccnh7WH7b5KUmemPVjDqpoctv2nTadQ
KCe8j3V9ybxrxZUZ6r+az8sbb7yR97AyxUXtZHTW9GOQx+oLdP9UP+jHubTL
COGo3Cv0dfEhobeMD9IFJ510Ut39g9ZiVWP58GuGrUl9605yzvUaCrS0MRtV
zU/O2p8M5D0Rc2DrkzhGVxpPCnzYZiyIDy3jMpO1P1nB/nn55Zdv6JOfZam7
RYye3j82Px/k4U/G50Kshu3a8r2pT+Qb/BXLLbdc6D1G7VEhW7Cfqvdit27d
EsXysK4180D1dscddzgfN/O/nhtNnomQDmwvWTyXe+65Z9uxyc/xBbpQ+vdA
F9tnbe177rmnrj/y/ItaOxny9CezvkNDXPWNHoKQjAULFjQ8s9SscIle74lj
F/m+LgPiT84etf41a9rojVpbQnWgFp7tPqC2iw+Ie+vfv7+1TzSbfNlbdPAt
NtN8HzJkiPcxFB3xJyeDvSC2U9t95aqmnQl5RGH38qGHHuqlTyF7yDdQ15W9
g6xBk2PLx0P7tUqkrZ2MT9HMzfGpRY1Omh6vjqag4Jenn37aOq/06dPHyfH1
/ArVRo4c6eTYZcP0ravGPf/hhx9671/X5yU/Ka02o+QnZ+dPVgwePNjaL7p6
LuorKqhRpB+f/Ne86vQWlbC6NzTf9WjILVxhhRWsdtEFC/xre9hqafjSnsja
n8y6e9ddd7VeV7TuyePLCl2fWG+8v+NqzQjpwLemag+ss846QU2qpDD3mvEY
quHHQ9vFJdT70fsoo82niOi1bFWj3r1LsCvpx/dVMxdta70f3/Vp8Inq/RED
XmRMf/LChdn5k/E/qX6Zd6nhLSQDW7Htvbt06VJnfVATTI8Fu+SSS5wdu4qI
Pzlb9FgfU6NQb+j3VInHHnusdumll1a27hOa0x06dGi7/mhJXn/99V76wp4R
puWD3ytL/wgaE2HPwHPPPZfZOIpK2f3Jixfn40+mjpntniKGx1csJ+tYntsw
WzS+9VZh1qxZQW6HyzqEZWDJkqV1GvQ+81uqgL7+VG3AgAF5DyszsPeacYUu
aidTf8snuvYD65aq5rJmRTNNTRc5j8RfmTY3NBiqSOfOna3nmZ9nwSeffNKm
KY9/MC3iT87enwyHHXaYtW+X8xs6AvqxzzrrLGfHbhXyyk9W6PqXett0001T
+bqiYNbSwMbtS+8sS39yM18yei9Za6aE5UBuvfXWmY5DqAXxmJx75lAXOo/o
JYXVv0BzwtW9hu9a+cFp5LsKbrCtBbim77zzjtN+9PrtPuqqsW4xv8fzzz/v
vB8d3mF6f9TqLDJ55SezDyNOTPXrUpu5bBBDRZw5WjlJbQPmdVSN2GeXoOWm
jr3yyiunqktTdcSfnB3ESyqdzN69e1vnBtWoeVMVsJ8omyp78KrC+xO/OvZk
l/XxdPAlU6/Yds/96Ec/cho7HwWeCd0/oxo/S5uX0QqU3Z+cV37yddddZ73H
fcdW6nOR2Vopj0/NY+yfqoSyVdCoWUF8Y1V59tlnA8038lWTgv3bfE72339/
h6MsNi5qJ5u1GtFD9o2Zz1q1nPIsYR3UTE/TVXyUTSPH9d696KAfHGY7Jm85
K7bZZpugz65du6Y+luhd5+NP5rnkXWzrn/VpWph/8/heZSNvfzKYOV6qkWvm
c89t1tJAC8UXuj/Zp88BX7KZo6cadrW80HWKVSNvWcgO4jPUWol73xVmjXq9
TZ061UkfrKH148aNK21VyEcktyRN7I2p46Hatdde63CktdqECRPqjj9t2jSn
xzff58ST+QTfmrkefvjhh732mZa8/MnmPVbVmqXENxAHq84Dexj2VXFhXWR7
ZtHqcglrZv0ep966kAzxJ2cH9yljpDYtfpZPP/00dI2Cz68q6HpUG264Yd7D
aVl4Px911FHW+416H1988UUu48J/YI5HYjO/RPzJyciydrKO7m80W6vkjqD5
qX8vVzU8iw77Wv15JGewihCPr+dLck7GjRuX6Fhnn312w3Oy7777uh1wgXFR
O3mPPfaoOwb1O7NArxdPbqvorPrhgw8+CJ1TXD4rQ4cObTg+2v5VgpqnYeea
32UFWoz0iR07LZKfnI8/GfBl2uIT0EBGkyoN1NbUj7nbbrs5GnVrUQR/MrlL
G2+8sXUMo0aN8tbvtttuW9eXzzyFLPKTidEI8yVjt85qf2lj4MCBDWNy/U4T
mnPFFVcE5538FJd6YGH1RpTtLC3sqXStCfKUs87tKBrsJ5jD1fxJnMBll12W
6Fg33HCD9dq59h3xntfrG1C72xXEler5r7Thw4c7O74NvfYKjZrkPms1uyAP
fzJ9rrvuum19brnllt77LCo777xzw3N2/vnnxz5OWH7yK6+84nzM5Bmp4xNz
m2WtjFZC/MnZQG1xZYsmjkVhy82kVcmf9vjjj7d976pq7PmmWV4yulvkiOfF
6NGjc9vnFx3dfzV3rviTo5BH7WSFTb9XtSzzm3xCTQL9e7nQWy0DrIn17/3i
iy/mPaRcIObavLfReU9SJ8GWn1wlnai0tZN5n5q1k8kZzwKzVkUr6S8UCfbV
Nl8Ez9zs2bOd9YPt2+xjvfXWc3b8MtCsdnKSGPukHHzwwUG/Lvz5kp+cnz8Z
wmIbqfGaFDSLl19++brj3Xbbbda/Jf4va/3fIlEEfzJMnjzZOobVVlvNi8Yi
+QpmLQ3X+XI6vv3J2DDw3dnOIe+1rPLQwjDXQ8wZvvXMhXrUfMIzRe02tEwf
eeSR1MdlDUa95LD3yFtvvZXq+OR8iv2rnokTJ1rPNe/zuNhsjDQf+QXM63of
M2bMcHJcs24C+mi2NSnvSVdrVbMuPL7CopOHP5m9r96n67z3MmGuS2m8i+PC
dTOPw3rGh73x6quvrutn5MiRzvuoAuJPzgaVg0kMmq7ja9PIoXXq1CnH0WaL
+JP9c+KJJ1rvM+IZqA+TJ2jZmONyrWlRViQ/OT551E5W9O3bN3TPSS5mK1BF
fzL37eqrr972naum861DjLjt/n7zzTdjH8uml3HhhRe6H3QBwd5LPUP9u993
332xjvHUU081nL8lS5Y0/B3vPdc1NLCV6vZqn1qaVYfYFVVjQNl1XMezTJ8+
3fpcL17sLs+n6Oj17/SWdb4BtWfo95prrkl9rJdeeqnO71IkquBPfvDBB0PH
kVQTkZxW/Tj4OmzrMOq68o7GXlZVdP0zs2Xpt0H/KyzO1YftDR1ec//jq44W
HHvssW19+fAnh607adQNyRvdjlX1PUIekFNmrqdVQwc9bUxNz549Q++/8ePH
Oz32rFnu4gTLCj4o27nGZxEXlbduNh/aEGZcJjoiLthnn33qjovfw8awYcOC
52DevPmp+2Tdq/fpS3fCJaY/eeFC//7knXbaqa5P13W5y8Sqq67a8Jxdeuml
sY9jiwPs0qWLhxHX/r3HXVzXz2abbealn1ZH/Mn+0WvkUR9XR9cM1BvPZFUQ
f7Jf7rnnntB1sG+9lCiYeo74UPPUrSoS4k+OT161k0HXrDJbq+TvVdGffOut
t9Z95/POOy/vIeWGrRYV+QBJdM9t2ki//vWvPYy6eJj2XlrcuPLBgwfXfR6t
ERtoYvvYI5k2DmonCX5A/w8/2MKFC70cf+7cudZ5i/V5FSA+Iqx2MlqmWaL8
yegNpkX0rvP1J5MvRD0A2zjwOSWpE2DqGBPHaAP7L7+///77036N0tIsP/mi
iy7KdCzoDdjG8fWvf702c+ZMr33tsMMOTo9v4jM/GY1LtFZt5453ZRFgXtbH
NWDAgLyHVClYe4Y95zTyx9OAbTns2GmuNWt+nn91LLSuha80WsyWRDtXfzfp
bfbsOc7HzT5Yz2XHlo+PMw28W/R7hBZWX7tz586B5nZau4xtPfzoo4+mOmYW
ZJ2fvGDB23X9bb311l77Kzq777573fmgPgWx83EZO3ask2c/KrvuumtdX2W0
t+eN+JP9gv9EadXZamGFxWDRqlKXUvzJ/iBXSc+r09v2229fmJqH1BRX48L2
LXyJ+JPjo2yxZvNdO7mZPZq9gA9Nuzyooj/Z1NnDRl9VTG02NC7uuuuuRMda
Y4016o618sorJ9LNLiOmNj7nMS7mfdm/f/+Gv1H1zn3Mq+aeL0nugFAM0Kmx
zV1V0f6y6X2r5sKvGwf1XL/88supjyX+5Hz9yYDmRthYiCuKAznH5jFsWgX4
sTt06BBcc10TrWoURe8aXnvt9dCxUI/KJdtss03d8X3rI/nyJ7O/6Nixo/Wc
YTdYtChdHXJXUDNMH1vSNbGQDLPWq9nS1pf/xS9+EXps8oKSMm7cuLpjnXLK
KanG2SrwvjLPMzElSeZubJ3msZgbfdWoPuyww+r6ShuTeckll9Qdb5111rHa
btXawMVcYq6H0dcug60na3+yqZV8wQUXeO2v6Ki6cGiipqnHhL9MP6/UT1+6
9PcOR1rPiBEj6vpLWqu9yog/2S/sVxgX8UK2dW9YvS5aVTQTxJ/sB/R9evTo
Yb23WJehC1wU1l577baxVUXvNApl9yejlanfd779ydzzYfETvmsn33DDDaHv
8laKkaiaPxk7ka7ry7uqyvUIiTVlbY+dGr0VajkmYdasWQ3PyRlnnOF4tMXF
zDGLm5dArI5ZO/nOO+9s+DtlB/MR20uMjB5Ds8kmmzjvQ8iGmTMbn0caNdSq
QLPayVnHgqElQN9o96RF6ifn708Oi9Wgxc2vNPPkiFe3cccddwS/r3qeZJH8
ybDVVltZx0LdQVexdKxZzXw237ovvvzJJ5xwQuj1Q8e2KKAlro+NfZKQHeRr
ht0ntDDtnqig8RB27DTa5mYeblX0YNrDfG9zjpPUwmaut12zW265xcOov+TG
G290uoYmx1M/HtoTNpQf20XNcHM9TP5mGcjan9ytW7e6/qgbVGXefffdQG+d
PO2kefmsg8w6zNyPPjHrPXXt2tVrf62I+JP9wXNFzgnjGjp0qPVvmtWEqYp2
oPiT/RCm+0srWgzkeuut1za2J554Iu/hFIay+5Ozzk+25W7QfNdOJlZ0ww03
DH3eXnjhBW99Zw0xgvp3a3V/Mj46/fti36o6qu5x3Hq/OugF6OcVjTDq2FQB
fPJ6jAKN90ccbDoMaBabUNcQ2zK6XD4w7eNlnKeEL2s02+YubFRVwKwVp1rW
+nXEKhF/TMyOCyQ/OX9/MtdU18DUG9f5448/jnwsYq7a28uxHsV/ssoqqziJ
SSgzRamfrNDrDJuNXEUXsC4z9z++dV98+JP1WnFmI44irY6sS5QODE3qL2YP
muhh9wptr732SnX8Bx98MPTY1LlKAvYQ5np1HPI8qLMufDlnqnqQYfbzKJjz
JY16tz7fHeRl6v2ltWuTS60fz2YjVX3uu+++qfpS4L/X+/SpNeySLOsns27T
9/Hoq1U510BBzXDOx6mnnpro8+R469eQ+dS3nZE1s66TShwx+q5CdPQaK+JP
dosaF/u6sDWCWZdRb67310VF/MnuwaZr5i6phm5J0ez2KqeUMVdF5z0K4k+O
x/XXX2+9533XTm72Hj/88MO99p01VctP7tWrV933FR27L2utMo+Q75aknis2
bvZe+nm97bbbPIy0mNhqJ2NLiupXOPPMMxs+z/7HnDvJq1xppZVqPXv29PE1
Ash/08dx6aWXeutL8EeYnuNBBx2U99C806xWRZrYS57nTp061a699trIn0Hv
gX7xb7tA/Mn5+5MBvdWw8YwaNSryccjJ1D87evTohr8566yzgt+RJ1V1ipaf
bOau6c2VjtFpp52W6f4HXPuT8QuE1R2nxXmnZoFeP1liTvPhhz/8Yej9klaf
bNKkSaHHRls+CdOmTas7DrrMwlfgI1WxdTfddFPsz7P2MeO42LP6zllFR5tY
Lr1f9LiSsvPOO9cdy9Q+IFYIvSvshfPnz087/KCmt7keLkvefJb5ybfffntd
X2ljVloF9FHQZE9i13nqqacC25I6p9QfT/PsxMHUc7WtrYVwJD/ZD3qNQf4d
BhpEYWsU9FOrgPiT3cO8FnZfER9dNFRcELouwleU3Z+ctd51HrWTFyxYEPhs
bP0SVxcn96QMVMmfTN1Bc19YlToU7YHfkPOx3Xbbxcr955yadp/jjz/e40iL
h1k7WTXqEbeHit3t0qVLnbY/c4WJ8iuQ5+ML0862ww47eOtLsMMc8/TTTwe1
jtEFO+KII4I4pj59+gTPKXsQW701ncGDB1vvyf333z+jb5EfzWon33PPPYmP
q+LM8LXEgWfqmWeeSdyvjviTi+FPJlcjbDzYi6NCjCaxR+qzpl9N6WHzHvZV
H7JMFM2fjFZR2Hiw4SeJzzMhhkU/7kUXXeRg5M1x7U/GDh12nthvoS9dJF5/
/ava2MRmCdnDXpzYCf1eQXvVRS3MZnEgSWPG2ffox6l6bQIb5OIqnc9DDz20
tnTp0kifQ78WX5R+ftFBzMqOtt9++zmba26++ea6Y+lzxOeff17bZ599gp9T
Z9kFU6ZMqeuPvSX9lIEs/clmnWyXdR7iwDrv2WefDd5Rw4YNqw0fPrw2fvz4
2pIl0Z4VH8yYMaO22mqrBWsaailHsRPiD9NzhL/73e+mqsEcF7NOOXYqITqt
5k++8sor8x5OkItMTjLjYWzNsNUQVO28887LaMT5ovuTiUdtdfDHULuD9z62
AHQGXWLWAdAbupd52FKagT4Ia37GVxZNlazQ/clz55bPn5xlfnIetZN512O3
s/XJWNjfthpV8ic/+uijdd+V9W1eoDNOPOyIESOCuQPfEXvtvPSV2MMo3Wu0
B6P4P9B5PuCAA+rOKfl/vr8D+dTEt5PbxRpxzJgxgf0vL8zayfr9ZdOsBt4l
vXv3Dv7uwAMPDGKATb/0nDmv1v09NYiIafHpVzDf8ewf+ZngF+ZS3gfUNQtb
7+mN+tzUQAl7Xx955JHWzx1yyCEZf7PsGThwYOh6OU08GHZmjsN1ygvxJxfD
n9zMP4ZmYhydU2zT6rPrrrtuEC9EDILypey9997B/CAUz5+MXd6sdaE36quE
8dZbbwX21WbrJXP/T+yB73w8cO1PDqs/QEuqo+kT6tMxNuzh6F0I+YFv5dxz
zw32SvPmzXNyzLBYdRqxeEkwa2RNmDDByVhdgW/uueeeC/zxPHP9+vWr9e3b
10nr379/sC6Kojv9xhtvtK1zeXeimUO9bFstB3ytvNdNXzI+1yx1GVW8tWpp
cmWYM9DoVsdi/4dtgvt7zTXXTHUP2jA1p9BWKQtZ+pNZT+t9cU9mCe85tKXD
7J48K+zfsH+6srGgn4T+Buuq9pg5c2ZgG1I2Ivzcb79dX3eLceEDMXUAWcNm
nbth2vuIY5GYzOi0mj+5CPnJ1HpgLPiCqKHcDNM2rzfm3CpQlfxk9oK82/XY
ctXINUpTi1JH2bBsjTVx0WB+wgaN7Y69sPAVZc9PztKfnHXtZNb41Kqx9ck+
8dVX7X6hslMlf7LK71SNmOMsIQeD9QQxC2F6rKzT+RuXdRLvuOOO2tlnn91u
TiNr7ZNPPrnt/c2ahRhT0zaOfhbaQWussUbbuMn7Ju7aF+h+4aveaKONQudD
bBTY+V29l9gbEQdIXmIY+NRV/JRqaLDp54X92v333x/sb7Av//jHPw4+w7uM
a632hpxn9l3qs+SKo6FHvBqxwWiKv/zyy06+WzOI+9e/T57+s1YHPxHPpm5D
4N6g1hzx1S+99FKQw8F9xruaOA/0OTp27Bj8bdeuXa25XWFxUfiZW50w3wX+
zqRg11LaFnnGV+j+ZN4zRaJK/uRmfk0atrc4UNtl7bXXrjsGeZu8G4pUVzZv
iuZPBn0dZDaunwnvcn2eZ98RtjZTuWpZ25Fc+pOb1aplrWnapIsCe1BX/kuh
OOhzua3Z6tm2h6proTf8pnmDfhQ6Sfhsw3TXXLaoOWDseagLsfXWW9d9nhhc
1r7du3cPdMfNfTKxu2k0ZpLyy1/+sm4c+LfTgJ2Fd7nK1db3/67XTp07d67r
A02sspCVP/nddxc23MtZ1dv98MMPA+2pOM8ZfmcX60LlM4wav4DtlVgUYtvV
WIhxJ0aBGAueX32cW221VW72g0WLFhVir1BWWsGffPDBB7d9h7z9ydyP1Htg
LFG0J7DHmrZF1aqSa18FfzJ6g6peJDWSJk+eHOgTnnHGGW3fHVtx2tqc7LPC
7idaFrblJBCHxF5MqEdfO0p+cnOoD2C7533UDmMvGFYPjzUS/rNWpUr+ZLOe
Spb2R+YIVYMmSsO/9Morr6Tulxhu4liwn0R9Xh977LE6nwxzHc9dt27dAp8B
vmb1O9ZHxLn72nsx5gsvvLAuFqe9xlipNZwWrhnHIwc7DLN2MvM++0PyzTlf
tvkb3zA6xjbtJ/Zr5GKYPl3sDOTMZIFu66YRhyG4h/gC8hH1c43mWpS8C/wP
vL+437C/mTFWZj6HaoMGDfL1dQpBs9rJ1CFNyrhx44JjoFWVJ5Kf3NjysBGF
xTuqliQ3jWcafym5yfjgyqJJmSVF9CebetR669mzZ8PfE09m/h1rLhP8Wvrf
sH6Mqg+bFpf+ZGwkYecHe58gZAm2urD7EZtlktw/4vzMfUDecUDYHzfZZJPI
+yYXLUmtI+xK+LzRv0bTkrUr+z3sZex7eEeg8R+m9ZQFs2fPafiuLnybxBYR
a8ycT+0E17AXNdfDTz75pPN+fJGVP9ncxxN7kQWs88L2au017BJp1ojKNoQN
J+66Ap0n9FjJaUMri+PQiK3DzkbMs2ut1rjwHlf+O9WICxGi0Qr+5CLlJys9
febkqLZYM8ZYtTSx8WWi1f3JvP+xEaODxHc12X777du+P7nLadZApk6J3rbY
Yos0X0PIAclPjg57C9t977p2Mvl/pu+GxjqE+SfvPaFvquRPVlpSqrGH8w1+
HlMTOmpbccUVrXbGOKiaXkmeG2y3+D3xz+JTZj5j3iPm9Jhjjgl0ponF8AV+
gg4dOiQ6d9h4iQdMCrZ9lQPa7BqYGtVmvWHyzB955JGghhWNcxrlvUlsIvZk
8pnZ/2ep02SuO6oSC5kV2ADQZNbtPOwxkjzr5GpwHPLYFNiQwp4L8vdbmWa1
k5NqBrEGULoI6DrmieQnN7Y8/MnY35rNP8wLgnuK6E8m5jRsTMQL6aAlYYsx
Q4dC580336zTrFhuueUa/sYnrvzJ+vvK1tC/EYQsQXMo7H4kdjUJZj1m87nP
khkzZjbUnc6isQ5t1ef5b3/7W4NfFttR0SGmQB8zNki+S1nIyp+MBrzeDznd
vkE3zqZvGqehlZ4UdNM4BrEarYqpf9Dq8dQuEX+yO3S/aJx5I6yWHnEbVaCV
/clobhJLxN7O5ksGNEz0645GZxLIidQ1Jcx25plnpvkqQg6IPzk6vmsnE+fx
k5/8pOH42Hqo/ZFFjbIiUBV/ss3H4jvfkxzZtPt63hlJ85Spuct+BQ0in35f
H/Cdw94BURux7Um18dG45hjtaaKb671WmJeJO9a/E3lRghuY98lx1c8v8Rlp
NDDQVOU45N0AfumwZ8JHDkSRQK8/zNaZtAYttdrVcX7xi184HnE8JD+5seXh
T0ZHtNncg8aD4B5iq8LOeV52Ud1mZWt6zXb+bf6eOh066HuR86N+T55e1u8d
V/5k4g7DzgtrU8nBF7KE97ZZ51g1bLRJ90kqblc16uPmwd13393UbkgjTpm9
lZm7Z2toKXFemrW11loryFPMut5s1pA7rZ+bIUOG5D2kdjnxxBPrxoxmVpkw
/ckLF/qxy5l1JX3HUCv7gouWRAcV2xAaCtiGWtXmByonVLU0/veqIf5kN7Dm
UBpGzbQObey///7WZx6NyPbqF7YCrexP3nnnnYPv1aweAHVK9Oue1OZDHZJm
c0iSGi9CvpTdn7x4cTb+ZGoV2+75tLWTFy1aXJs4cWJgvzGPTd4lOWNFreXl
i6r4k20+Fu4HX2A3REPCxX6BOlJJ1g7USuXz11xzjYdv6A98XjyPLs5dkjwx
6hizdsEH1axuuq12chli1tuDmB3zPLrQD686+AJZD+rntUuXLoFGcxqwgfK8
qNgHYrDDnoe0fRUdfPNh79C4oJc2bNiwYN2hjpOV3mwY4k9ubHnVRGs2R22+
+ea5jKnVKWJ+su57tbU5c+bU/b1uI0DPTM2trMWJPydeXf0e3Yk89iSu/Mk2
7SfVyOsWokFe+9VXX1079thjg5yFsjb0PfKMyaJmb9j9mEa7xYwbxj+VNaxV
bLU+2KMQO895J1ZFBx0EzkmYjx2tIuFL9tprr7pzwzktOuZ1zVvzNS5Z5Sez
XtP78alDRKz8sssu2/CsoZ+HDXL06NHBOgef7+uvvx7oklD/j5p8tuebeI64
cTDKNjR06FBP37IYnH/++XXnCp0pIRriT3YD/dI//p+4a/njjjsudL1Cfl+r
06r+ZOL++E5du3Zt+nfYrczr/tlnn8Xuj31k2H1EfCExD0K5KLs/Oav85LDa
yWgDMMdFbdRLRNOFWEPiaG3rMPbn1K8pkwaQS6riTx4xYkTd98RH4FNDmDhI
834jpoz3OtpK2NupwYjmxaxZswKdMGLcw3Jy4/qEyb9n70H8aZlyQPB3mTVl
acTS9+nTJzgPnKu33norsIWwN0M3ihpbthrLXGfObxyuu+664LOsRZvBe8O0
25QtD9wGa17zPLK/FZJDfT1qcunnlDxlV3565W/D/rD77rtb3yHkmrQynMuw
2smnn356pGPgQ+a9wjtl3333rTtGEXyEonddHH/yKqusEjomsVv5oYj+ZDM3
0Ww8szrEpFBjUP0e/zF7ev0zW265ZdO4dd/o/uRzzz030TFY2zY7L0m1havI
WWed1fRclq09/PDDmZ9D9vho7djGkzZvzZwLstYpsumysPdhz8ReqT2IoT36
6KMbjsGelfWQ8JUPTrW8algSW0J+KzpSzeIbqc2oj5c5RtfKKANZ+JOxA+kx
o7RLL73UeT9ADLqqnaMacVXkGEex6S9ZsqR2wQUXBM+lfgzmh6i88cYbwefZ
D3IvtTLXX3993Xlif1gme1ieiD85PTyvKu44yXq3WW5AUt3KMtGK/mRywzbb
bLPgOzXT28UXY9OQiZtTyRzaLPYd27lQPsSfHA20k3zvZ4kF/PGPfxz4p2bP
nh3YkatIVfzJxJvq39Pn3GRqS2BrwCZnxobbYK559NFH2/RRku4FVf3xyy+/
PMU3yRaeQWI/9O+Nz434kih+WvZGt9xyS4PfDv9aVLA5qdiT6dOnN/1bfFR6
P9ttt13kfooM7wDzfUl9OCEZxJeb/gJ8CDNnznTWh/Iz8rzb4ipo+EdbGRXz
aWvUp95ll11CG3XPiQWlTnzYMdAOzBvJT25sefmTTa0BvUmNAD8U0Z9saoqa
7dlnn7V+jhgjxkwu4yGHHBLEto4dOzbQgcobF/nJY8aMaXpeJEYtOmi5+94T
Z9m497OG/G7bWIjdSJLzocAXax6TmNSsUPGvemMNGFd/mv3XHnvs0XCsM844
w9PIy4Xps8eGlDX4AsmD0Mdg0xziWpq5Teecc07m401LFv5kWy20NFoFzWCe
V31gp2COTMIjjzwS+IPVsci1ieonVfFvrVw3WUFcsHlto9jhigh2hMmTJwe2
GOIdsD8dccQRgW4Cey985y4Rf3J6uD70jU5Ekpy1kSNHhq6hpk6d6mHExaIV
/ckTJkwIvg96182wvbvQe4oLdT2brcXRwxDSgX8CbVKuLbmLxIHwzuT9g30R
HbJFixY57VO3886dK/7kMMJyNNFrIqeTNmfOq9Z/2xq/J0cR+wXXGl8btbv0
Y1Nrdfjw4YlrLJaVqviTzToEZs06V/Du1mNde/bsmcg+iH3DjKuIuh4iv5Q4
TPYbaewkWYP2kvqu5PpSFzbJOwb/gqlfRcxIFLDn8vdR6ieZ+/Uk2tpFxfRJ
EhNdRhYvXly77777gutKnAe2cTSEqGOD1gzX2afWC/GpNm0M13t5FQPAmjts
3cj3b2XCaie7ar/85S/z/oqSn2xpefmTseGFjSnJvk9onyL6k9FAavbeYE1Y
Nlz4k5UtzdZYX/jaP7Yi+CyZf9DvPO+889oa10b/77gt68/zjD799NOZnz/2
9bZ1GLaGtP4F1pjmcbOqJYxfycytJH456TmeMWNGQ+4j50j0EBtjOrAhZY3N
32+rn6v2saoR61xGDb4s/Mnk9pjn9Mknn3Tez5133tl2fOIA0q5beW/pegvj
x49v9zPkJFBfHV922XLVk4CWnXlty5jXSZx4e/tT17UJxJ+cDuZg1Tc2qCTc
c889odf75ptvdjzi4tGK/uS999470hrRplF9zDHHxO5vyJAhTd8bCxcuTPpV
hP/P+uuv3+77mVhAl0h+cvvY1nY01kAu9zQ8Q2hB2faXvmITi0hV/MnEAunf
00ftI3KLiUtQfeAPTYuuc9ehQ4dIn1F5s3nZV5PA3krVIqa20AMPPJDqePjR
qTekzl3U3EJVf7U9GzC6VabdBf3rVkGPgY9z/ooEtge9FqWtkY+apDZ5FLCF
oGVm9onemQ/bztprr930u7aXb192wmonc14OO+ywoKFJov6t/4x9J3HeYeeQ
+BzyGPKGGHU1JvEnf9ny8iebmgN6izpXC/HAzht2zvNa7zSrcVbW9y650mr8
Sf3J+lrYbN27d3c8YkEIhznevAfZZ7jwbROrbh6bedo36MmbOtvoGkaNnQ2D
XArz+5g14KuILQ+cfWBWoHNpe5dS20oHDU09xoA4CmIeyojpT1640L0/+amn
nmo4pz403tX+hBpk1CVyAfEkasxRdNiosc7fxtHHLjP6fkm1ZhqzRQV7FDo2
+++/fxBTYsYQ0fA9ukT8ycnBpqSed3KKkvLiiy8Wbr+TJa3mT/7oo4+CZ5d1
WjP/2ZIlS9vs4XqjhkVcbLU3VSNvXkjPJZdcEuQs8qxj+zHPs4/8AvEntw9a
Hrb7fs8993TeF4TFfTF3VyEmtyr+ZHST9e/pQ8Nr0qRJbcePWq+zPViX7Ljj
jm3HDdNOVOBHxUfGfFWmXHuVD0PMd9JYPhP8iUq/llyy9t5XylYdZV9mq52c
pW3BN507d677fvjdygb2F2J2WU+Rh2zLT2EN4Avq5djmFte6VAo0F8LWjWgV
+KwXnzfNaifH1fkjbh89MezN6hhbbLGFp5HHQ/Sui+NP/va3vx06pi5duuQy
planWX5yXvqNffv2DR2TL9u0b9LmJzPXmBpQRbhWQvWg1qx5/yXRgw6D+kTm
8dP6dKNgy1+56aabUh/XrA1FQxuu6lDP3jwv+PSzAnuUueag5rXOlClT6mou
UqexjPFMiizykzln5nV99913nfZBvXh1bHJmXaLX20CbLgxsSeRRsU9y/f2K
Cs+neW15jsuOqT/ANWUP7BLxJyeH2vb0ST7DvHnzEh+H5zRsDY0uUqvTav5k
1md8F+Ibm8G9al5vch2S2PCo5xJ2D7GGFNxCrZFtt9227jyj1eUa8Se3jy2O
mDZ48GDnfbXXJz4I1rOtTFX8yaY2JdprrlHvEPJiXfLWW28F+fkcm1yYZlBr
uGxrDe5BlUfqOuYODSh1zfH3N+Pggw8O/o79ZXvoa20a9VdbCT23m9YK+UTk
BJs2bmrq+QD9C1sdY3yUtnpnLrBp4amGdn4r06x2ctJ4dDTe1TEGDhzoeMTJ
EH9yMfzJrH3DxuNr/yAUU+/arKWiN+aAMu4h0vqTbRrArWbTFYoPtlxia/V7
D38bPmBX4Gs172/f9h184WafrP9cQLyjeeykGgWtBPXxzPPywgsvZDoG9O5V
36y3qEM+Y8bMYL3FHlT9jn0OMTvo5JeZLPzJo0aNariu2DpdgvaRr30YcdMq
bv6aa64J/Tt00fkb4qurAj5W89o2O0dlAful/p3IhXWN+JOT8cEHH7Q9j2nt
zM32mVV4jlvNn9yvX7/gu7RXO23rrbduuN5J6ymaGjZ6c62RL3yJ6W/yoU1f
dn8ydWD1c+TDn4wWjO2+R5PGF7z/yd+y9evD71gkquBPJi7TzF1znR+hclvZ
x5n6Uy5Qvg2eD+JfbPBzlYf96qvux+ALtTZGJ8LHO0Vpnffq1Sv0b4jrRb96
3XXXjaR/rO/daXFzIIuOqZHiY7+SNdgWzfc79eJ8gJ6+bT5hf+ML3Z9ntpEj
R3rrtwiE1U5GWyhpDXm0INRx8FcXAamfXAx/8oIFC0LHQ2v1WuV5UUR/MrUp
w8ZEjGEZSetPbqbTR/NdQ5f+n3jiicDfwr/J0Xv11VeDdwXP7qJFi4K9D/Zm
5oc//elPQT2D995bFOQ0sT9nbYC/iHsOTWOhXLCXMJ9N7LzPPfec035uueWW
hvubGGBfEBeJTqHeH/tbV3VBzdw3WpK6fa2Gri2sGj/LEvKTrrjiirocZL1t
sMEGwVrJda2+vMjCn2zLBcMm6ApVww/7L/OOD0466aSgD/SQw9hll11yuWfz
hHndvLZok5Yd9Dr17+Qj3ln8yclgrqQ/tABc2NPDfBNFyWHB7swa2kfTY7g4
n7768WF3tsEeoz3NamqL2K53kpojfLdm+zBf+TRVhrWXeZ59aJSV3Z/sOz85
rHYy583383788cdb+2afVoTaQcQg+niP4kfTvy/vOx/9fP7557mdO9uaEj1T
l6jc1tNOO83pcRXke6iaKWH3I/MUv4+i11wU0PBS6yXWDj6gHjrHR+84DK5b
nL0Gaxv9fmqv3nLZII5a/36tUGdj4sSJdd+JuD0fGtDUbArTXnZd40iH+E1b
n2ixL1myxFu/RSCsdnLXrl0THxMfhFoDuNYSS4rkJxfDn4w/rNk+zWX+m/AV
RayfvNZaa4WOCb9sGUnrT37ssceaPh8+9TaHDBnStO8kjTngnXfe8TZmwS3Y
OIkf1a/h6quv7kX7V2kY6q2Z7mxahg8f3tAfWmquIPbQPD6a/lVHz5VSzbV2
cVTIOybHgvpwaKuOGzeulHUV2iOL+sm2mnfUvHGF0kmnhp4viJWijxVXXNGq
h0KsCb/v2LFjaD5CK2KrOV72Whs8+6buvev9FlCzTx1f/MnRwA6obD+HHHJI
8H7WG/qR5s/CmvrbsBw7HzVZ44I9a5111nG+3s66YSPr0aNHIfLpqMVpji+p
HWvp0qVNv/fUqVMdj14w18/YB3wg/uTmKK1es7nScWqGTbOqCHsp9r9m7d+y
NmoK+ogvbQ/2BuZY2EO4RPkXfdZTUjmjI0aMsP6e+ZDft6elUSSI42fMG2+8
sbd9DvH8ymdt88WrmtPklkeNSx49enSg0Y1PpxVz0aiXrD8v3N9l59hjj637
TgcccICXfrAb2N5/5JMSP+EDaqWH+bCbxay3As1qJ5999tmJj6vsh2gPFQXx
Jze2PPzJd955Z9O1DnF5gnuKlp+M7RZdk7AxYesvI2n9ybZcPtV4V/vUAFex
gS4btrs///nP3sYsuOXcc8+tu37YPH3lbNr0cql34gubPcBlfWNdU1k1arRW
HVss0wMPPJD3sFqaLPKThw4d2nBdyUFwBbFT+OZ811THvsbYbfoLRx11VKnX
I0khj8W8toMGDcp7WKkwY1lZT3300UfO+5H85HiQm7DNNts4X3uGNfKL8o4N
2W+//TL7vlk0nzq4UUAbkzrJ5rjQwEmCqSlstiLqmGCPJ2/apy/FJ6btvJku
ahrK7k/2rXcdVsf4wgsvdNqPDVP3WW/EgkXRwPXBWWedlfs71mXLQ3eVeqXm
OFyvLXjfDxs2zOkxTajry9iZw01ef/31YF2J3aRM9fqIH0XL+7777vPaj9If
sOl7qHphaBTHgb2KL/9g3pi5HdxXZWejjTby+g4AYhfMen2qHX300c77U/D8
hL1zfeZEFwG+X9h3T5M/ovKATj31VIejTYf4kxtbHv5kYojCxkPNBMEPRfMn
Y99utt5FM7+MpPUnN7tO2Et8g64othIaWtXoXqN/Qx0r4siaXTPm78suuyzw
FaF5zdrapX9B8ItZ/5d1n8/ccmJLzXvIV36y7blaaaWVgnWnK0xtItqZZ57p
7PhlBc0Rl+tLoX2y8Cf7zk/OilNOOSUY++DBg+t+To4asfLMa59++mlOo8sH
YsDMa1v2/GTWufr32WKLLbz002r+ZN95HzZdD9/NRxxBHCZNmhTYIbL+3j7a
D37wg8S10Vyh63urtvzyyyeOZbX5PvRWxH2NsruVNe7H1BNgf+AD3Z88d275
/Mm+85PDdB2og5UFYX4Amu/YwjDQTjW1dcvaNttss1w042z5yb59vz4g54mx
c5+aPuMTTjgh+J25lxC+5I477gjOj5mrSXwfdZv5XatpVqfh0EMPrXteyp6f
TL6I+Q5wVW9Op5lfd8yYMc77U4TlZKHxXqb4kiQoO4rZ0tROhiOPPDI4ju9Y
lziIP7mx5eFPJjYkbDzkogh+KJo/WdUYsTXmTB/1FLIgrT9Zf0+ZjfzKvNlp
p51CxycacOUFbSZdq4Q5yXetD9Z15j3kq34yMa9mX+juuKRTp04NfVAzqOrg
OzbPS5Vq0eZBXvWTy6gvw7uPsRMPokO8Pj/HRlQ1bLa/stvIunXrVvd9BgwY
4KWfVvMn+8xPxq+76qqrBv0Qr8C631XTr4PZ8vJL6JBrh66jj4YdQX1XNIJ8
9VOUOBtbLB92qKSg3x1279DQzi8au+yyS+HsblGx1ez1lQNe9vxkn/5kYsBt
9/uyyy6bWe1dNR/Ymo/6FHFgvvLxHp07d27d90Sbx0c/edaftNVPJv+gjCit
M71WEmtmYph4VsizFxp5992FbWsSHXJQ+Dk6NcJXqHrgqlGbt8yMHz++7vuQ
0+FDc6JPnz6hc4hPbRndl6c3arG0OmG1k3fYYYdUx+VdQV0dtMSLgu6nQT+9
SFTJn0wOcth4yri2LwtF8yc3s/Vgxy0raf3JvDPDzssmm2ziYcTxUDGEZiN3
uqwxAFWHd4NuY9l7770z0Si31crCnuEa7ktbzLtL/RnynNlHmn20Ym3euNx/
//0N58WmLSy4Iwt/sq3+ue8YFB8o+yy61wpstCpPhxrLVQPbo3ltyX8rK1xP
s3byXXfd5aWvVvAn63Ysn/7kfv36BX2gheJSKwRUvqatPfTQQ077Khqq5lgr
2CDbg1xi29oLXZQ0UL837P4pmr4m/ifqR2244Yal3IdR71w/v8y9vtDnAclP
ridMK2LXXXd11kd7UA817LkrU03aOJg630WoR+8a/EZmfc2yat4cc8wxwfh1
na0rrrgi+Fnv3r1zHFnxwT/EfaDHZGFz4tyNHTs2x5EVD7MuSufOnfMeUir6
9u1b93169uzppR98fLb5w6fvj3iSsPrBRayP4pJmtZOpFZEG4vmLlmsq+cn5
+5Nff/2N0LHsuOOOmY6lahTNn0xtddtYeCflocXjirT+ZAjTVcpbD5745LCa
1z5rUgj+mDNnTm2VVVZpu47E9WVlK3vsscca7iMfeUNm7LdqLn1f2KfN4xNn
n3edxiJw9913N5wb8bP7JQt/sp4Dp5rP+uc+IZ5m5ZVXbvvv22+/Pfg+u+++
e36DyhHTZk0jtrysUN/V/D74zH3QCv7kLPKT2ZMrG4SPnEpbvJpq48aNc95f
kaiSP5na9ub1xWad1q/6wx/+MPT+yVvf2+S4444LxjVixIi8h5IIs2YvtZR9
IfnJ4Zg1rFU777zznPXRjHnz5oc+c7S0MSJFpQr+ZDBzz88///y8h5QItHoY
P3EwwD5/gw02CH5W1lp9WbHbbrvV2QD4f/57tdVWy0wDoSzss88+dc/LHnvs
kfeQUkG8m/59iMFwTbNaJQcddJDz/hRh+40ePXp467MoNKudjBZtqyH5yfn7
k2+44YbQsfjUtBeK5U9GEzMslmWvvfZKfXzyHIjXpuYNGsy+NHRtuPAnh9Up
Jq7ahzZIVKhrEnYP3XrrrbmNS0jGwoXv1dZZZ522a3juuedm2v/MmbMa7iMf
ezFsx2Y/rmMzTj311IY+2AsI9nV2Gevsloks/Mm2NUVZc3k33njjYPxKD5Ca
oPy3rxzWokMd+1baF5q1kzfffHNvfYk/uX2wv26//fbB8X3lKNhiCFQbMmSI
lz6LQpX8ybbY5KR7Lx3Ww2H3j4/5NCkLFiwIatShwVPEus5RMGv2Kj+ND8Sf
HA51Hm33e1Z+3IkTJ4Y+c8sss0wmull5UBV/sqlvd/LJJ+c9pERg72L8rPVA
xZNjyxeao2qPqdxutV5W51L4CvzH+vNCPeWyYqudjI3eNRwzbA7x4b9WqBx7
vZF/NXPmTG99FoWw2snoVLfinC35yfn7k8n1sI0D/34r3nNF4sknnwy9D7LW
nBk1alToWO69995Yx2KOIqZ2yy23DDSXTU1D2nbbbefpmzTiwp9MzGbY+fGh
BxyVSy+9NHRcRc0px//OWv/yyy9va8OGDWv637afh/07q8+Td+ByXYLfBJu6
un5ptEyJB0TT5Lrrrov1ucWLFzfcR5MmTUo8jjCok2n2Y9ZKTctmm23W0Eer
50BFxdQdxfYpedt+Mf3JxI64xlbzsKw6smpt+sorrwTaVPybWBvOYxUhrse8
tuyhyopZO9mnn1f8ye1D/DDHxrczb94858cHjhu2Xh04cKCXPotCVfzJM2bM
sF5fF/onkydPDr1/qPdYFJT2Kja9MoLmtHl+ffp5y+5PXrzYjz85rHYyftys
/JvHH3986DPXyloxVfEn77TTTl734Vnx8MMPB+NnnQR8D/5b8qLa58wzzwzO
FTFDaF5j/8fvtmDB23kPrXCoOt1l30/AhAkT6r4L8W8+8qOwIYbNIeRE+YD8
NVuO3FFHHZX4mO+/v6R222231WbNmuVwpH4I05slZrgVEX9yvv5k6iWGjaPM
OnploSj5ydhnTc0L1dAXi0uzPb9q7FGywoU/2WbLVe2OO+5wPOLomDZZ1dD5
KSrkobR3f5Spvfjii6nPCZpCO++8c3A81kDoRqThkUceCY51yCGHxPocdhDz
+/mwXTMusx+XcYpKr0lv5Fu4zBsoM2buNjkQgl+yyE+21di95ZZbnPeTBSpm
nvp81OrJel1UNO68886Ga+srZoz6Cs8880ywtqFfF3OcDu9h3YdAM+OWsOei
y09+FNrLixYtStyf+JObgzaFqm/mUxMFm3zYOqrMeR5RqIo/mbgA89ris3AB
7wR8abb755JLLnHSR1qImSA+70t7/AIvfTDPE+eNbXPKlCnBeXGJWTt59dVX
r/s9sYfY75gf0Lrh3k4T51V2f7Kv/OSw2smunqf2IKdkpZVWCn1np4l5LjpV
8Seb2ntdu3bNe0iJULG02O7VPIGWt+g1t4+qT3HGGWe0+f6oEyw0YuZHXXDB
Bd76Yi3B/he/L/Fyf/nLX5weX8W9qbbvvvvW/Z7YgieeeCJYZ6ALlnQfePPN
N1vnD86lXrPbJVwXsz/WGUnrfxHbteKKKwbH4d2CjTUuaIyxzyGfzmdd8ma1
k4kdaUVE77qxZelPRtPMNoay1wMoC0XxJzNX2MbAuzfpfpjPkVeEH9Z2v/vI
eQxD9yensZV16tSpUO9nNMRNm6xqffv2zWVMUTjttNNC7/sytmnTpqU6H8QD
UkOEY7EGYO2VFpV/mqTGFjVL9e/H9XKNrQ6eS/02NLvM4/tc95cN05+PloTg
lyz8ybxLsGXr/WStdeIK5QMktob9AXu4JUuW5j2s3EATw3ynubYvPP3008Fc
pPbNeiMuH9+BDnE77KvjxrTb1r5Ll355bZlPsWmav+e+7tWrV6KcbPEnN+fE
E08MjkvNCdf3lMkqq6xiXUftsssuXvvNmyr4k/GjkRtgXtvRo0c3/dwRRxwR
OdcRe5zt/ilKXt2BBx6YeO3dDPwixFximzJthbwb6Re/poJ3MvdcEv0ss3ay
OrfUqD777LOtGsy8O9BvSlI3RfzJdsJqJ59zzjlOjt8e11xzTei+d8011/Q+
V+RJVfzJ/fr1q/ueaACVEXwojJ9ciqFDhwb/Fr3maKgcoOOOO67WvXv34N9K
+1r4io8++qjhPZg298OEWDHu24022qihrxVWWCHYv+gxEsT8oEGmz/1RUfXF
VeO5AWwTffr0se4Dt9pqq0DnL44fmPxE2xzCsXzAu5r5yewvja3e9JdRrz0u
6tmiEW/oOg5Q0ax2clp7dVGR/OTGlpU/WT/3esNm9/rrb2QyhqpTBH8yc4JN
F5aGlrILHnvssVDbYRa4yE8GUyNWNerP5KEVazuvqhEjUFSwNzAXY7PANmQ2
bBe2n0dtWX2+d+/eTny//fv3b7MJEYfoAmWHuP3222N/dscdd6y7l7hOrlE2
N72hk+gCbF5mTP1yyy2X6Tun6Kg6mT6vsVBPFv5kMOOesBGUEWymjH/XXXeV
e/TfnHTSSXXXdb311nN2bPTE9Rgf8jrICccfQV0WajsoP6Cqc8v/U4uJn+EL
irMGIsZB/y4dO3YMcq3333//4L+pk0IcE3YS8qRZe+lxTnH38uJPDod5F9sG
x80izjNsv4H9rJWpgj/Zpk1FDsqnn34a+hl0B/g7NLKiQNyh7f4hhzZv/Rnl
x0BryGVdBjRGeCeq77rtttsGP+PdSN6S8v8yJ6BVTb2bbbbZpm1fEXcfYNZO
vv7664NYIjUG3vfkMBN/RDyR/m4i9iuuHUv3JzP+suHLnxxWOzkLXw9+CmIE
wmwM7cWIlJ2q+JNZ2+nfkzWdD81b33C/Mv611lqrtvHGGwf/fuutt/IeVilA
B4jzRUwf/4+fUepfNWKr5YEd1gXMGYMGDQo0pzkuMWP4MMlPJi8LP5SKs2V9
wRw/ffr0IP5D7dnI4YoKetDmd2E+v+yyy4Ix4AtiXmftgJYtPkryatXf4iP7
05/+FKkvtFRsc0iPHj2Snq6moFVj9rXaaqvVPvnkk0THI27K1MWJ6xc0a0hz
fX3VlDX1B1VjLdiqdWwlPzkffzJ5jWG5lmXNZSkjRfAnK5ut2YgbcqVDYebV
kOeSJa78ycSm4ZfKa39nottIzZZU00PIFmVXZ543c7/SsP766wfHZb0ZF+Xf
Vs2HtprpG3G59yNe1Dw27yDhK0w7VVG0IluZrPzJhx9+eF0/poZVWSC/S/8e
7GerjBmDg+/VBdgrlA2DRiySLe9oyZIlbbFG5KgpH6RqzXxGJmgg6Z9lv0VM
MXts5gab7Ra/EzaTJPZs8SfbwWao6mxQOyULzGuvGj6lVqYK/uSDDz644bpS
t6AZSlsZG1gUuGeVv8BsecbR4ldlHU/cDbZaF/Ae1Ofz5ZdfPnhf28AnQP/4
gvU9L43876jMnTu34bzutddewf/jq5k6dar1c+Qm6/f34sWLI/cp+cmNEOOV
p0342GOPDbUvMF+7jJcoIlXxJ9vic9LUFskLs5ZGq9YJ9QH1ZPRz57PmSZmx
+UWxC6cFW4Ae409cmM12969//SvwDfA3+P532223urGgJxEVM2eYOBK1Nuf9
Pnv2bGv/+nqEv48y15nzo2ppahmHwfWw1WhIU8OVuGb9WOxTP/zww1jHwE+v
H4MYal/o/ku9EQ/Qquj+evEnZ+dPNvVN9Ge7lWOSeBe++urc2pw5cwpRU4O8
j7D7IAt/8sMPP9xgE6QRm5ZEOyMMU9sWf1WW6PuiNP5ksNVkoGVda4T6hqZW
iX79hOKjaooQ9+ZyjiEPV615kuyByUXQ7yeXeXCKm266qeG+TaLLZ0JushlT
jz+cd7/wJcQJmXqJ7CcFv5j+5IUL/fiT0RXR+9liiy289OMb5mr1HchNzTv3
LG+6dOlSd13TrmXgwgsvbLAjNdsDzJnzaoOeOi2ORqKtdjKNGBd8bs3Q5ybe
YayhoyD+ZDvkOHI8ril+pCww4130FicmoWy0uj+ZtaZZW5DWXh0Tcl35u+ef
fz5yX7Za8rQddtgh7ddIBP5jpfMd5u+NC+t44rrVdyP/+pVXmseHKt16sykd
yyjY4jFpvH/QlA2DnEbqpqi/Z+xR7UniT25k1KhRud3jzfQyiVeoQrx6VfzJ
6Oua1zhpndQ8IQZS/w7kXQvRMP2k2MiFRq677rq684SmclrIq2RuV8fE99RM
S4851VYPKMpaS8esnazvK7Evh8F7UY8/xr4eBXP/Smsv1jAJp5xySkM/aTXa
zLy7JDYVcrFdjikM9D/DaidTH71VEb3rxubbn4yGna1fch1aOd4QHTe9HgE+
B+rL50mz/GTfeeJodOhzgr5XcKkRwx7TrMFwxx13ODt+FFzlJwO+GFtuP+/v
9myhLjE1ivR29NFHZzYOIRn477Dhku8eFu+flFtvvTW4D5LGFZjvJcbpSqtA
8eqrr3rZw5o6L+RziOZVPdS2N889WrOCX7LKT77//vvr+mH+LWOc4FlnndX2
Hfr27Zv3cHKHmFv9uqbVJjbrd0StP2rbv8TRIrete1mLRtHSICZc/xx1J6Ig
/uRGsFkpDfOBAwc6GGE0Tj755NC1Kzl5rUqr+5OVZqbeeGc1i+WbNWtW2348
7hxly4WmZa0VxfpSxfYOGDDAyTHRkdRtUMR9R7EVo4Gpazioxjs3Krb61MSE
R7EPmfFJUeN9xJ/cSFjcTZoakFHgPrPFe9GWXXbZQPu0ClTFnwymvr1LrbSs
QMtWt8e5zIlpdYiBUueuc+fOeQ+nsOh7UlpaveY333yzzpfM3B1F2wRbmekz
jKtbYctHipqXrtcSZk5oFmemOP/88xv6o26HS1jnmPHO1P1IOx+bNQDR0IoD
/nlqX+vHcFXb0CRMW5xGbZRWRfzJ2fmT2dOF5SVTn64I+bq+wF9jy8PNe92U
l941viybbjMaEe3FP8fFrBlAW7w423WeS38ysJ+yxf9QW8qF9kl7EE+q1xI0
G/5Eobhw/5DHQUNHJS3E5S5ZsrQ2b9684NmmDp2yASWB+DbznopTlyUqeu4F
La0mNXqD+vF455PHItQzbdq0hve+4J+s/MnEBpjPL++GskH9XDV+nu0qw7rC
vKZp9BzwRetrGGwLUXNDZ8+e0zCWODprps+BccTZ5+pat6xjo9TEEn9yPeh4
kOfGsdC586WVYMPUT9DbE088kdk4sqbV/cn6+1o1cmCaoXJkrrjiitj9EQ9B
TTyzT3QO8AVlAXZdZQ8+4YQTnMRtsU7Yc889674TttiomPVq0D+ixllUdPs2
jZxjW/0DG6YuZNTcpbL7k7Fp6N/bhT+Z3DfbO9KnTRjNujBfMvvVKtUcqZI/
WenZq4bfrGzoa2R0eIXoYAdX5471mWDngAMOqHtO0uR78n5RtjrV4ujE4SfV
P0v+b1RsNgLil6Ji1idGS6M9mNdNPwxxxK5i3YkfMeu44Z9/++23Ux2XtY/p
o54yZUqsY1D/2jzfvjQ+bOtwtc+LWu+6jFS1fjL7jrD9tA9/MtoVaO3b+iMW
Nat7DD8Ytd3Jn8SHTd2uXr16Be9Qn7nRZmyJ3qgHlNczlrXeNbFLaEHwXjH7
I3f75Zdfdt6nWTt5k002cd5He7j2J4NZC0E1fHjNtELSwjUMe5ZVSzt/Cv4g
/0bZwFij4MtL2liLhcXJ0NCiSIqpGY02t2tMXb009Y7Q6tTXkvgoJK7CjunP
YS4W/JOVPxnM+kFpc1nzgJxkxs5zjc5JlXnwwQcbbLtJzwm18UzNmDhaPTNn
zmyYa/hZVJS+rWpxansCNaDizk3iT/4KtEZ0+3HWGsFjx44NXbNkrV2UJa3u
Tz7yyCMbrmcz/xP12IkHYa0Zx9+pQ060bT+79957e58zWL+Sm5N2rW1i7i2p
NxPHP2nWTsbOEhVb7eQXXngh8ufxr+ufZR0S5dqW3Z/sOj+ZWDHb+5F9jY+a
ANgszjvvPGstC2Un82EfKjJLl1bHn2zqVhLPUjbmzZvfNn7qaQnR0bX158+f
n/dwCosZ4zNx4sTExzL1Vcj5jYOZj4FtPyrjxo1r2E/GyW02bXdR1xi9e/du
mFtc6DMyf5l2cdYULuJTbbWT4+aNmf53n36Qrbfe2jqH49NsZaqan2zWk9Ub
+k+u4P1ArIJtjcizFiWmxAWLFy8O9jj6OMgxQFdD2bWIrVE1A8iVHjRoUO3A
Aw+MVQ/ABnuZsHOt2o033ujia8bGfKfrLaruRFSIPyN/1tbXYYcd5s2nvu++
+9b1xX2QNT78yRBWS7l79+5e9nxcI2rB0gd+RO4Rs+/111/feb+CG7A5cH3a
ex+5atRGTIppGzz++OMdnokvwb/GHKD3kyQWYsaMGW2161TLam4rI7pWEc2n
FobwFVnVTwbWTnpfvjUSfaD2h9SErDrUP0lje9AxY+w7dOgQK0bcrCFGfFTU
z7MeN7Vx4tpkGK/++Sj3h24vrbI/mZyI/fbbr+78Za1vGFYXlJZWo6TItLo/
mTWieT3D7G68L5QdJM06FYiVstk4OH4cG2lUqBdy0EEHBX3Qr6ta5oB2tpkf
Gkf7ATbddNO6z+MnjIppJya/p5leuQn5reZ1iOIfFn9yPdi/bO/HNDG3YZA7
FWaDVn2+994i5/0WnSrlJ+PTMdd0ZUPpbvFORvdfiI7KaSRWU7BDHK75bmxW
57gZ+JTMY/EejgqaTKZGJjrHUSGnT/9s3PgRM+YNf3QUWN/wt/pn2eengfhY
015JH9T0dIGL2sn4BPRj+PKDsHYKm8ejasWUlSr6k4nxM3MD9DZmzJhUx8dm
iQ+WHGizJoZqm2++eZCznAXoWOl7BZ4jvW+0BIir4d2I5h6xUbrWE34z/NFJ
4V3TLIeP5qMmfHvgb0STJWxMxFenhVxItEv0e9l85/rIO1RwL5r3epp4rqT4
8icDe3XbuWXOoUasK1grY4Pi2DxPt912W/Bzcgv1fo866ihnfQru4Hk34wl9
tzR1rvR6Osqm4APW0CrHg8a6K06t5qeeeqqtBiSNf8fJtasi5rogTm6hkJws
85PNHEDyEcuG0t2MowHWquy///5113P06NGJjmPaDWlXX311rGNQK1n/fNS6
y2DT5Ilrk9Hf9zRsCe2h5yezr6amQ9mafg/E9WHh37j22mtD66RwvDh+o6Rw
/W31XVUjd71VtQha3Z9ss5GG5aaq2u3Ex7q43qxXbT5l/GSu8q3QiD/77LPb
7BnkVeM/dYkZf7388svHik1GA848B3FydMzayVHr0yvQnzP7j5LfrNuI+Pu8
37Vx22uv1ecTp/EnT58+vSE+VrVTTz018XF1yNkYP358UL8y7F2MZiR5nlnM
C0WkSv5k3tPonenfF03cMsE6lnF37do176GUDhVjGCf2qGqghaI/H0l1fZgb
zNwubINxMGuWodESZ52gbMmqDR06NFb/+GzM+SLqOo55x/xsUv00NG5UjpVu
A3TlS4a0tZOxZ5o+dHIJXUOMgZkrojd+16p7K2hVfzJ2fHS7WFtTc3vkyJFB
fDx5AdSyCbveNNbVxM/zGT7PcWxN/Y7jE1PKOpM5wVZPSDXi0HmWferxKvAT
63Ynnqdmdn5yhPm7zTbbrGHcafzJYO7RzOZrb8+41fXC/4eNF61R/NfrrLNO
0zHRiK8eNmxY4IMNu/76fxPnTVwr+cYdO3YMPS7vW/bFvIt9Ympf0Xza0MPw
6U8GrqvNTsccf9xxxyWOYWMf9+tf/7ou1wxdcvIxFcQMYHNQv2csQrFgDt9t
t93afd5dtyh1JcPAdqbnkTFvRa2hFhfmBT3mhxoI7eW7kffCc63HaBLn6Ksm
Satg1s0RPYPsyNKfjF1ZfzbQnfRZU8Q1H374YdvY42pLtSJmXSjqNSbBjJPG
BxN3njA13+Lo+5ha+9TmjAN1wM15LopeNnXOsp5/fbb2/MnELVPvAZ01YlNN
e4atcS3IO2Cvgo8kDXweTSS1/yUfwqwVF9aoC4eeAvcV+1X2P/ihy+7X0P3J
rTjvMr+Y7wZbnhj1X1lP8k5Lu7fXIY7epv9DvCL2z6Q5a+yTed7Ud2NeRRPB
de6zTeO4T58+sY5h+vSxJ8XxbZq1k+PqxmKHMr/D888/3+7noryfytTai4md
PXtO8F7j/YhtGV+YsuGZeWd6I/ecfHXe0Xze1my/Yy5AV6Rfv36BbTNM15q2
wgor1AYOHJh6Dig7VfIng6m/W7baE9jaGLermIsqQS4X5w4/pWDH1INMWmea
97P5zr3++utjHQP7vf75OPkettrJxDDFAX1r8xhx7AsDBgxoWKfE1aYm7sz0
yxM/iH6MK7CDpq2d/MwzzzScq6Q1KbGLsK/iHmJvRFw5Pg1iqs21m61xfvAv
si9kf2WuE1iDlpVW9Sdj38h7Pas3Yr7Zw7mqe94e+B2IEVP98zySR9YMfC62
/D3qtqTllVdeaYi9U039PK0+kY37778/92uvN+owsS/2oQFmA1+43j++0Dzw
7U8G7CJhsUHYM9gn8v5vzzbOfPH0008Haxcz5oBYcZvtlz0/v8cnh+6WUCyI
L8r6Wcf2lRazLgPvM1+Qg6jH5LM+xtaiv5exJ3Mu0Z/Rc5zIt+W91sqxd64g
5ki/pqzrhWzI0p8M5p6vvTVYkUA3hTGzR6o66Jzo1zGpVoTNXxE3xv53v/td
wzH4WVTM2snYreNgqxETRb96yJAhua+/XbZmGsHE5jfzSURpaXVudI0pVy1O
Hdci0ur5yTB58uS6esbo9Cvwy/KsqjXbSy+95Lx/7H/kj9juf/b6xFozxmb1
nbCTkNOMza5Hjx513wcbRRrdn2YwbnPM7BnjwPtU/3wcHUtb7eQ333wzVv+2
fFeO2x5R4uvL0vCNN7O1YUtO+3720dA6Ix6dZ0ionj/ZXFtF0X0pCtgGVMyl
T83FVmTmzFlt17xsOelZwr5Lfz6S6k/qvhHV4vrxzJxZbGJRMZ9zcqHixGpi
kzNrFuEPjsvgwYPr5kHs19ijmsX9Ma8++OCDgVaTnoPCGo3PorvhEvK59O/p
onZymrU/dZd9rgG6deuWeGx5o/uT0VYpEmX1J6MvTA4CuhVo22Wd24HN1PSr
oXkdhUceeaTh+7D/cwG5suwN1XGxo1FvgFw4/jtNLl8YefqT8eETi4LuOXvS
uPtCF5h54X379s18DJCFP1lBrqWpQW02bOTkUnJvs2Y//PDDA9u/TeOKeZvz
1t6enOvM/S0UD7Rcsn7+XawLiH3Tj+m77iSxEORj6BoeaCmgHc98bD4f5DuR
+xSmqSg0YtbVda3XKISTtT+ZWqR6f8Q0lwWl7cu8WHXMWlXsT5NgxrTTzjrr
rFjHULFrqsWJW7LVTkanNg5oVZvfIYr2N/YaW+5iGRvz3rvvvhv6XX/zm9/U
+cCw9RB/RWwuMZ1oQHEM/hs9K/Rt9Bh8/p1W58aMRcP2wzjQSWD9S14BOTHk
26GlxL/VeMiPM3W8Nt5440BzocxUwZ8MaGXp9xPXWNcd69Kli3cdGXy+zCH6
c2A27jdqTrEP6927d6Dbj82Y+0//O2yIaMu51FA0wZ5r07iKe57MmHxstlEh
Ryrpux2IUzfPN77VKHlLF198cUvkKPPeYi/eDDTFmukIZtGI58BegA4EeahJ
86Vamar5k7EV688v83RZNEGINVPjRstEiA5zhHp3leV6Zw2xcPq7IGluFO9+
811MHEQcyNczc2bxe0YFG5v+WXKd4kC+k/kd8G8nAd8adUPM9RbrMParI0aM
CNYl7HnJp7Lt4ZjHosSsJcHcMyepnUytMf0YxxxzTOLx4NMxzxX7Kvx+rClY
s3GO8Duz5u7QoUOwtyJej/c59lTiKslxM2Pa+O/zzz8/8djyplXzk4nvI8Yi
q/bHP/4xWMsXIT/LjI/FrxE1L5r3pPmuiKsD0R7YtHTdVvaS9OPDn4yueJb3
AY3v4SPXOi7sIc2ccD3WmvUftkzmDd59PG/EYfiIWc/Sn6x47bXXAo014mTi
7vU4b9g58JVVXXOqFUD7LOv3gIsYc/y7+pqDdUkWsI9H0w0bH2sibB+subEp
Y/Pjd9T8lb1PPIjd1LXxse3HqVUtpCNrf7KZSxq3RlNesEZT92lcvc9WxIxn
nzVrdqLj/OAHP2hYa8TVt6NWi/55atpExWaHWLr097H6Z39sHkOv/9EerP1Z
I+ddbzNJY9xRa05g++Z9H0eTivcTx3dV14J6bowh6b6UsbOXIZc0ixpNvqmK
Pxmwv6IHiYY6Ni7WjqzdHnroocx00gDdKGyR2H/j7MGIf2C+pE6Zq/rLzZgz
Z07DGOKut7EDmTbCOJokxDXrn41bO5nYRPM7xIkHYz3POyPv92ya93NUzU/e
iXmMj3lB9k3RqJo/Gcw1og97nA/wg6gxL1q0KO/hlAqV60pcn2DHjKPFtpsE
4jTNOTLOHgrMvDtiQOJojpprIXRE48C6zvwOJ598cqxj6GCDGjVqVENN52YN
uzq+Jur6+MTce8etncy+Rbe5mX6QuDB3sx9Ks6/S4RjYW7h/stKt9UWr5idX
FZtOfJTaOQp0qc3PJ7WdRUXlwRTBB9tK6PGCqpFTQRwssd78N3tfnjM0uVT9
DrUHdTlP5OFP1iHGHD1f4gDZo6MfwHek8W/OB7518ljJI8/S3iIIzTB1dcpc
X6PqmHoZ5PoJ2ZG1Pxk6depU16fLepW+0DWm2qsT2+rgb9V9BEnio4F9o5l3
R4x73D2kWa8qTrzntddeW/dZ4gjjYNp3acRll6kuuFBdquRPLiJLly4N/NnY
T4lVZN+JThSNGuP4u9mjkYectW3NrENCi5vHcs8999R9Hi2IOHYNM1aHuM04
6D4d1X72s5/FOoYgFIUq+pPJB9S/84UXXpj3kCKB5gXjLVpeWtGhvp7aX7jS
Am1FyOHVnwt8V0k4/vjjG+ZI6tjGARu2/nlqTESFeC0z5uzZZ5+N1b+pO0rD
du0C7N/4W/v37x+sybCRq/UZ+oj4ndGeySK+1EXtZM6tea6ysPtUkVbNT64i
xJhsvvnmdc9NXA0E9i/658nP9+1b4zpjIxPcYtarw36C7RFtBt7R1HtYuPCr
9yo2QdaySm8H7QZyfF2Qtz9ZEMoKWmj6c3zBBRfkPSQhIfp7MItYLaEe05+s
z3++YP+l93nllVd67zMteh3JMtV89oGqI61a0tpw7NPNfe12220X6xisx8xj
kFcXFfP9c/TRR8fqH21ss3/fNRgEwRXiTxbCMHXdaNQ5jMOJJ55Y9/nddtst
8mfxlen1CGlxY7p33333hu/gag8vCFlTRX8yOey6riD6YEUHHTU13n322Sfv
4ZSK2267rVR7wzzAr4jdWp2nnXbaKfGx+Kw5R8bVajbrOKOhEhVTI4rvFSfm
jPxYdO30Y2Crb8Wac7bayc1qO9swa1WhsWiD924raDDlifiTWwdTD4I2ceLE
WMcgd1P/vO94KeYJ/Jfo2wtuYV1nzlv8P/lSzfap6Iioz1BXwUUsj/iTBSEZ
+MDWW2+9tueHOhxFqKsgxAONHN1OgJ6+kC155Ceji6TXXCiDphl5q4wV+7YL
3f4yo9sO2CNxPZOg77VUO+OMM2Idw4z3ZDy2eE+umW1vrGrLqMaeIQ622smv
vvpqrGMIQl6IP1kIg9ga8932zjvvxDqGmjdVGzRokPXv0MU2IU9N/2zUuscK
9JR1mzsN/7IglJUq+pNBt8HRih7Teeutt7aN9bzzzst7OKVCr18jdaftmDHZ
aXJxO3fuXHcscubiwNxtxn2hfWnC3I3Nx+TBBx+s+2xc37itZlGrapCYtZOT
xNZQ21k/Br4IE64Te+l+/fq5GHZlEb3r1oFaQ/pzs8wyy8Suw0WdzDT2prg8
+uijQT+nnnqq136qhq12Mg2/fXtxTMTpqBxlGjWV06L7k88999zUxxOEKjF8
+PB2169CsbnuuuvqruHUqVPzHlLlyMOfDGjW6f0W2W5A7TM1TmLPqgy16/Tr
hp5oUqZPn96wHkNjNQ4HH3xw3ef5bxNi3Yk/ssWCspbTP//AAw9E7hs7Cj4O
cz0pCGXhiSeeaLt3N9xww7yHIxSIvn371r3b8M3GgToW5vsd3W6Tu+66K/jd
b37zm7qfs+/WPxu3djO5bWb/9957b6xjCEKR+OCDD+ru56SxfGWDOBbdBofP
scgcddRRbWNF81+IjqpfQ+5l2eun+oIaQ3ocYJr6OvqxaLvuumuszzOn6p/H
t0wslwn1E1lDmLFjyuehGjl8caDWs/55ampQw7IVMWsno7kdB2KqTT/IhAkT
Gv7u7rvvTr2/FyQ/uVWw1U1G9z4O1OU0jzFv3jxPI/6Siy++OOiH+vaCO6iZ
bV7LrbfeOvJ6RX/2sCGmzVGS/GRBSA5xQWussUbbM0QtGaE8kENIXqq6fnF1
bgU35OVPZk+58sort/VL7ciicvvtt7eNs0+fPnkPJ1eOPPLItnOBxpjNbhCV
t956K7W934z3tNXXxE/B7wYMGNDwuxNOOKHu88S6R+Xyyy9vsGP87ne/izV+
QcgT3sOqHhu1egVBYeYEEpMTh8mTJ9d9ftlll7X6v5QGHPYWHTSH9M9vueWW
kftGA5P4CP3zskcQWgE08rifqeVXJfT4FtZacXVes2T99ddvGytxNUI09D1B
GXTN80CPAaSNGTMm1fHwi7QXk9uMM888s+7z2MptEA+24oorBnOzzosvvlj3
eTSfosKzZdYTLkt99bjYaicTtxKH+++/v2HPbbP5qDolDz30kKvhVxLJT24N
zHccjfq4cTA1JbKoaUysEH4S0W91y9ChQ+uu5SqrrBJLuwt7d3sxPXEQf7Ig
pEPPbyWWNa4Wn5AfxEvp79Np06blPaRKkpc/GS699NK2ftGOIfeiiKD5pMbJ
O6eqcH2w46lzkbZuPbowZt2rOHnq6Eqba/yZM2c2/B16g/zuzjvvbPjdVVdd
Vfd54lCjjl3ZdVW76KKLIo9dEIoCuiDsQdBhEAQFdmr9/YYuZhyOP/74us/v
sssuDX+DbZlah9jabHUKyL1Snyf+Oyrof+p9r7DCCrV333031vgFoYigEYPu
qW2t08osXLiwbv1Z1Nq62CHUGNdaa628h1Mq9DmH2FWhkUMOOaTtHG200Uap
cpOhf//+dXMldS7iQC6A/nni0EzIw+N3aC2bsK/UtQds+sthoGut902OQpza
y2XCrJ1MixPfTg4O94v++VVXXdX6tx06dAjWXqbvX4iHrucm/uTyQp0c89mL
G2vRq1evus8ffvjhnkb7JaqOwMCBA732U0XMmgFx9XLMOntxY7hM9Lp74k8W
hPh88cUXdfamY445Ju8hCRFBF1ZdNzR8hHww/ckLF2bnT2Z/o+eXnnzyyZn1
HYdNN920bYzEUlcV1inqPJBbjh5pWvS4Ohrx01HAn9ulS5e6z5L/Ztv/Uu8Z
n4WtromuZU6Lqk1o6rV369YtmI8EQRBagU8//bSu/nCc/GQ0LM2aijY7s7K3
Ef9vg1pQ6vPrrLNOpL6p/WfmJttiiQRBKBfsEdQzzd6hiHrI48ePbxvjgQce
mPdwSoWuf1Tl2N0w0D/Sfa/U6U6LWX8Yf3VUTI0m2sSJExv+7sYbbwx+h2aJ
Dd0edNBBB0XqGz0TfX2CjjM1lFoVs3YybZttton0Wfa+e+65Z8Pn2RubENPN
74YMGeL6K1QO0bsuP+T2mhrx6ATE0SgmVlbXU6XdcMMNHkddq3Xv3j3o54UX
XvDaT9XAZk58sn4t487D5rvYFmsdB8lPFoT06HkI5CjPmTMn7yEJ7UCNUnXN
yEudMWNG3kOqLHnmJ4Mej869MH/+/Ez7b48lS5a0jY9c2rSx4P+PvfeAn6K4
//+/0UQjRo0ae0Gx9xoVNXZs2HtXFCyANXbsDXsvWFEUK/aOXeyCUgQLotI1
do0x+eZr9v9/bn5zzs7t3ed2d/b2yuv5eMxDhLuZ2b0tM+/yejcr5IbYe/ek
dY4r4doyatEQQjN16623LtsbE1PtQg4P7wXi2Cthx54edthhHY7/3HPPRXwl
aArhexFCiFaCGHr7GVtLDvurr74a6n+5z+e4WgQ9e/YMn6UTJkyI7eu9996L
9DF27NgOxzf62aadf/75HR+oEKLh+dvf/hbmeZl7+9RTTy16SmUQ127md9ll
lxU9naaCmCVz7tAfElG23Xbb0vnZYIMNvOWPLrHEEqV+8XvUAjZ027dtGu9/
G3wpxP6Sq0/93jgGDhwYiVWu9DnDTz/9FCy//PIR/06razOvtdZaZeea1lEN
VuKczX6Zesv2d/Hju1A/m9hsnrUiG/InNz+ff/552T2XNAdq1KhRZX2wt8kL
U+Ntm222yW2MdoX3m/tbJtV2c3UiKtWIqBX5k4Xww9577126l7baaquipyOq
gD+Oukjm9zr33HOLnlJbU7Q/GYjhN+PnrQGTlLvuuqs0N/by7Qp6LuY81Bo/
XgvYGvDHmr6pCVjNZ0/uGXYUs1bGV2y+G1eDnZqZ/Fu1OAVql5g+yIGrlmdM
7IudU8/cpRMshGhFTK5KNZ+wzdNPPx106tQpjD1ybZfYjG14JmMH7mjNbttR
q9UU4F1ia2hoby1E6/Hwww+X7m/yRKZPn170lCLY2giKb68dYoqS+jTbiWef
fTYS2+yzfsOFF15Y1SfsQpwEey/2S+TIVvOT3HfffeHfV6uPxL7OjkGrVv+M
eGL2oOazrDXYp7cycbWTTVtnnXUq6jSQm8j6id+KWG1yLclJNt/Fx2/rdj3w
wAPh3yepYS0qo/rJzQ/PWfeeO+aYYxL1cckll0S+jw0prr4P+nisb7LAs4Ba
9eRUkwci/IJug/1bUmMhCVOnTs0cn+Aif7IQfmAtyvPT3E/kj4nG5Iorrij9
Tmg8sL4VxdEI/uQvv/wymH/++cPx2fe8/fbbdZ9DJQ499NCabemtChrfxm/L
Oth33DJrXjsvoZLPAC1sE9dHHjHPDlsnDXsE7wLD888/X7P/u2/fvqV+KtVN
wC5i69ygC5dE80gIIZoNdNnMMw8bxSeffFL2GWwY2FiwefKOGDp0aJhLjOaI
+a5dxwtbyq677hr+PdrY1WBNYt4P9PfKK6+UfYbnsJ1LPcsss4TaRUKI1sNe
l1OnvVHgWdWRzVjEQ76rOXd77rln0dNpKMhDXnnllUvnB011n3Cd9ujRo9Q/
ub/4bV0++2xisPPOO5diaT/88MPgjjvuiNgQBg0aVPo8Na3oi/cxWl/VQKuK
z9HHggsuGEyZMqXsM9Tjsus1L7zwwqHPrtVxayezziKP2/w/+eXsm4k5YO11
8803h/Y1sy+260jZ6ykaGvPYTM8666ywX34v5Sb7QfnJzQ/3guv/wz+cBDv+
hcYz1IXnLbG4cRr0STC1dKWNkg9u7eRevXol+r6tqWsae+EsyJ8shD+wMZn4
PXLc0MMRjQXvZdZU/EazzTZbrF1S1Jci6yfboFVlfJZrrLFGh3pX9cLOpW9H
/TV8tsTOmXOAVn0efPTRR5H6MuQeP/HEE8FLL70Urt3R4OLviYe3dc2++OKL
YMkll4ys09H64Tszzzxz0Llz55piNLGn7LHHHqV+0MCm1hfjo8lux+AT0z1g
wADZCoUQbQE6Mub5hx2T/yd3+dFHHw39xObZzfOX+DAD2g/mvc7zmGcpNk+j
v0gcTy28//77pbUjPm1qMRMvhO0UP7ZtW91iiy1y1ZITQhQLtlezNkdzt6N8
ynpha92wnhS1s99++5XOna96Oq3CtddeW9UX4QP2enatCPZOvK/x82ID33ff
fUN/B/cbtXxtHSfWAOZ7+CrJc8WHiW+S97+rTVIJvmPseOyz+vfvH+7BWGeg
Q4gOs7nn8ZugRdsOHH/88RE7DTaSyZOnBKeffnpE99tu5NjgY47zy6ORvf/+
+5fVAcUH3Wh6D82M/MnND885u74Zjfd8EuaZZ57I96+88sqyzxDTYXIl0mLy
tYi5Ua6Wf+JqJ99+++2J+ujTp0/Zs/qiiy7KNC/5k4XwC3o65p6iLptoHPC9
YOczvw/xk6J4GiE/2YCN2MwjqZ5MHkyf/mvdFOKl25FTTjmldA7yzgPBD4GW
jB07bds2TjrppODbb78t+x56RNgWiFGxv8N+qVJdzjhYf5ODbPS07YZNhP6o
xalYJSFEu4HPBh+JnXNMw9ay6aabBkOGDIn93r333husu+66ke9gFz722GMT
xeSgE0a9VLvegGk8+6mbgY9bCNH6UHvEPItYH37zzTdFTyli1yPfVtQOv+Gv
cc3S6TQQG4Uf1/hYv/rqq9zGYg+E5uomm2xS9o4ld3i33XYL9apceI+jmb30
0ktHvkNubFJbD8fLXtPkKtuNuDX0o4gvayfc2smufYTzQaw3ut/48vmNallb
kT/O5++8885gxIgReU2/bZE/uTWwdfBogwcPrvm7dn0O0959d2TZ50zMCLEz
acCviZ0K/eWOtCBEOkaOHFn2W3766aeJ+rB1RkwjZioL8icL4RfWwl27di3d
V9K7axzOOeec0u9CDKxoDBrJn/zPf/6z9K5lXUR+apGQB2vOC+/rdoPcL5Nb
huYDe896wHOc3DP2xjRqQNWyN8bPy94YvbWs+SrYNNhjsUZnP0AetBBCtDvY
Kngm8mzE9lyr7QJtTOL6eaZnyYEhX4B3EzZQ2rBhwxpGz0QIUT8uvvji0hqd
+iNFQ96g2b+0S+6kD4gTNb8je0DxX9hzsfcyObm2NlPe4KM0eyB8lZVq9Lqw
X0OPm71Ylj0j8SH4VhgfWx62/HbUhOK8u7WTbf1q0bjIn9wa2LojNPIeauGD
Dz6I1IU3awNsnS7UD0BTgNoGaejWrVsYzyNfcn7wXrN/S/QSk8A7zc11p656
3PWQBPmThfAPmspGB2v22WeXpnIDgF4SeyF+E+Jef/7556KnJP4fjeRPhsmT
J5dqoaMRU+Ta6Prrry+dl45qPLYaU6dOK+WB8XvwuwghhBBCCNEI9O7du7RO
Rxe4SLANMo+NNtqo0Hk0G3beD7Hn4r8YDXB8EEk1VkVrQFy964+K0+kSjYft
T+bd0EjIn1w7xMVQZ8ecL3y3HcE7DRuayckwDY0JF5PDXKufOo7vv/9etvWc
ob6A/Vui15EE4qPc3GTy0rMif7IQ+YAuXpcuXcJ7i3fmd999V/SU2hZitInh
4bdYZ511gh9//LHoKQmLRvMnAzEg5ppBJ7MofeGzzjqrLePlyf+ifjDHjs53
Es1oIYQQQggh8oacRTRwWa/+/ve/D+OXiwBdHeUPpsNoQaFxnKeeczNB7WJz
PV111VVFT0cUhFs7GZumaA6aJT8ZzUhqm8W1Cy64oOipNgSXXnpp6XyhF/D2
229X/Cz5J+Ql40tGL2/xxRevGFfA+gUb48wzzxzmw4nGxa6pmib2bddddy2L
Daol5xE9r0r3J82+l+VPFsIvaNovvPDC4f21/vrrq+ZlAaDtsNJKK5XWwIqp
bDwa0Z8M6MSY/NjNN9889HHWm3fffTdYfvnlC7NPFQE2MfYWZt07duzYoqck
hBBCCCFEGaxbyRUxumTDhw8vZB77779/mFPajrq8WcA28Oc//zm47rrrip5K
Q0AdCaPp1r9//6KnIwrErZ181FFHFT0lUSPNkp9crcXl07Yr/fr1K50X6hSP
Hj068u8ff/xxsPvuu5d0/V544YXw712d5Mcffzz8e7StTzjhhPDv3JroovEg
tsL+HZPEeaHx6NYtOOSQQ2r6LrboWu5V+ZOFyAfqtXXu3LlQn1S7Qs0X8pE5
99SUUtxVY9Ko/mQYNWpUmB/LvKiNhs1I5Ac2sB49epTykkeMGFH0lIQQQggh
hKgINdRN/odiIUWzMnTo0DBXjdwlaX+3N3G1k4k1EM1Bs+Qny59cO+SodurU
KTw31MLdYostgj322CPMPTHnrGfPnmX15s8999zSv6PDsfPOOwerrbZaKT8c
W6xobOwaiLRbbrml5u/i57W/O99889WcYyd/shDF8/XXXwdbbbVVeJ8ddthh
RU+nbTDnnPdq1lrzIj9cf/LEiY3jTwb00qlFxtxOPPHEoqfT0pjaIGhdc96F
EEIIIYRoBi666KLQB4MdXDHkoplAlwtfw5xzzhk89thjRU9HFExc7WRsmqI5
aGR/8hlnnBHmD3TUlDdbDn7ASy65JNTf5HdF23rFFVcMbWjksVWCGLfjjjsu
WGSRRcJ6zMsuu2yoo00snGh8qP1nP4+vvfbamr5HPt1ss80W+W6SmuXkedVy
r9JUC12I/CDvDl2CIUOGFD2VtuGGG24I7rzzzqKnITqgkfOTDeQls3ZjbyXy
49lnnw1tcYqTFEIIIYQQzcYrr7wSnHrqqdKdFk3Fd999F9bLxW4thGonNzeN
rHcthEhO165dS/d07969O/w8a9Ctt9468hw/++yz6zBTIYQQoj40gz9ZCCGE
EEIIIYQQopVZe+21I/YZ5Yo2F42cnyyESA65ieaeJs+8I6hZYT/De/XqVYdZ
CiGEEPVD/mQhhBBCCCGEEEKI4vjpp5/KaidLA725UH6yEK3F999/H+qcm/v6
9ttvj/0cecn9+vWL1CqQZo4QQohWRP5kIYQQQgghhBBCiOKYOHFixDZDjdYf
fvih6GmJBLz55pvyJwvRYkydOjVYbLHFwvt65plnDu69997gl19+Kf079Va2
3HLLyLP7gQceKHDGQgghRH64/uSJE+VPFkIIIYQQQgghhKgnBxxwQGiXWXLJ
JYNHHnmk6OmIhEjvWojWZPz48cG6665bur8XX3zxYNNNNw2WXXbZ0t/NMsss
wQknnBB88803RU9XCCGEyA3Xn7zaaquFNXvi2lprrVX2d9LuEEIIIYQQQggh
hMjOd999F8l9E8Xx5ZdfVrSPxbUVV1xR/mQhWpgRI0aEcT9oYJOzvPzyywf7
7LNPqIPN80IIIYRodVx/ctKmfY4QQgghhBBCCCGEaCXQuU1rK5PetRBCCCGE
aDXkTxZCCCGEEEIIIYQQ4lemTEnvT1Z+shBCCCGEaDXQq77zzjtLbfDgwZH/
r9b4rBBCCCGEEEIIIYQQrcQ//vGPqrayavaz+++/v+jpCyGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBChLzxxhvBcccdF2yyySbBvPPOG3Tq1Cn4wx/+
EHTp0iXo3r17cOKJJwavv/560dOsC5MmTQ569+4ddO3aNTj11FNzHeu7774L
Tj755HCsnj17Bv/85z9zHU8IIYQQol48/fTTwVxzzRXssMMORU+lrjz33HPB
tttuG2y44YbhOciTUaNGBXvuuWew/vrrBzfeeGOuY4n/8tlnnwXzzTdfcPjh
hwdvvvlm8MsvvyT6/uTJk4MLLrggWGqppYKbbropp1kKIYQQQgghhBBC+OPZ
Z58NVl999eB//ud/Sm2OOeYI5pxzzmCGGWaI/D1tscUWC6655prg3//+d9FT
z4Vp06YFCy+8cOSY+/fvn8tYP//8c7DmmmtGxtp///1zGUsIIYQQol78+OOP
oa/tN7/5Tbi+mX322YueUt247777SsdNm3nmmYOxY8fmMtZbb70VzDrrrKWx
GPfRRx/NZSzxK8QI2Ot3YnA33XTT4JRTTgnPP3G67733XvDBBx8EI0aMCOML
8B/vuuuuQefOnSPXBv5oIYQQQgghhBBCiEYFf/Chhx5asmfsuOOOwZ133hlM
nz699Jnvv/8+eOqpp4ItttiizK+87LLLBu+8806BR5APJ5xwQtmx7r777rmM
RT6CO9YyyyyTy1hCCCGEEHkzfvzHwWmnnVYWmzfbbLMVPbW6gbaPu74bMmRI
LmPFrdHxaYp8cf3JaRq+/3vvvbfoQxFCCCGEEEIIIYSoyL/+9a9QdxBbxkor
rRS8+OKLHX7nmWeeCXWwbTsI+RAPP/xwHWZcP9ALdO09eWkH9uvXr2yso446
KpexhBBCCCF8MW7cuOCee+4JBg4cGNbt2GWXXYIVV1yxou+M/M124D//+U/w
29/+NnLsv//974Np06Z3/OUULL300mXn+tVXX81lLPErWf3J888/f/DYY48V
fRhCCCGEEEIIIYQQVenbt29oy1h11VWDH374oebv4Xd2bWS/+93vWkqnbejQ
oaH2nJ2bnJe2Nxp488wzT2msddddN8wJF0IIIYRoZE499dRYPxl1PAYMGBAc
dNBBbZuf3KdPn8g6+Y477shtLM61fZ5PP/303MYSv5LFn7zzzjsHX331VdGH
IIQQQgghhBBCCFEV6iWjr7booosGU6dOTfz9iy66qMwugqbhd999l8Nsi+Ht
t98OrrjiiuDll1/OfawPP/wwuPrqq4NHHnkk+OWXX3IfTwghhBAiK48//nhw
xBFHBOeee26Ypzx8+PDIWhC9lXb1J8Pdd98dXHXVVcGkSZNyH4vaNKxbqdcr
6oPxJ88444w1+ZCpH06MxbBhw4qeuhBCCCGEEEIIIURNrL/++qFdI4vGGrWT
XTsJ9kQhhBBCCCHa3Z8sWhvjT8ZHjN7Q9ddfH9YNP+yww0Lt92222SbYe++9
w/3Ro48+Gvz0009FT1kIIYQQQgghhBCiZsaMGRPaPmaZZZbg4osvDj7++ONU
/Zx44oll/mR0m//3f//X84yFEEIIIUSzIX+yaGWMP/nAAw8seipCCCGEEEII
IYQQ3rnmmmsitj10r6mlnJTXXnstVsutleooCyGEEEKIdMifLFoZOz9ZCCGE
EEIIIYQQotU45JBDYv3Ab731VqJ+/vOf/4R1wNx+Lr/88pxmLoQQQgghmgXX
n/yHP/yh6CkJ4Q35k4UQQgghhBBCCNHK9OjRI9affM899yTuq3PnzmX9HH30
0TnMWgghhBBCNBPKTxatjPzJQgghhBBCCCFE+0Lt36FDhwa//PJL0VPJjcsu
uyzWnzx69OjEfS211FJl/RxxxBE1f5/z/MwzzwT/93//l3hskS/Dhw8Ppk6d
VvQ02pJvvvkmePXVV4uehhBCiBR89dVXeob/P+rhT542bVrwzjvveO9XZOPf
//53uKdq5TW+/MmtyYsvvhj8+OOPRU9DCCGEEEIIIUQDM3nylGDddddt+RrA
P/30U7D66qtH7HvHHHNMqr7mnXfeMn/yKaecUvP3n3/++fA7G220UTB9+uep
5uCLKVOmBh999FHw/fff5zrOP/7xj+Djjz8OJkyYEPzzn//Mdaw0YPc76aST
wrra2IHbDeyf48ePD/7+978XNofzzjsvvC/Qpm/Ea0QIIUQ8r7zySrDgggsG
s8wyS9FTaQjq4U/u3bt3uGZh/VlkPCjrB9Z2NP6cJ8QsfPjhh///3mVyruOk
BR//X/7yl/A3HzZsWNHTyQ35k/0zffr0YOrUqYWN/+WXXwYzzDBDsPTSS6eK
tRbtDftons/s9bG5ZOGLL74IJk2a5GlmQgghhBBCCJ+89NJLJd/oySefXPR0
cgd726BBg4IzzzwzzB1IA3ucuDznu+66K1E/+LL53gILLFBIPs8tt9wSrLrq
qqX5/+53vwu233774O233/Y6DtfYTjvtFHTq1Kk01h//+MegV69eoU2wEWD/
u+mmm4ZzI+bg22+/LXpKdQX75worrBAeP1ruaX4X/NAXXnhhmKc/cuTIVPMg
5sD8DmuuuWbD2ouFEEL8ypVXXhmuIWaaaabgscceK3o6DUE9/Mlff/11sNpq
q4X98+5E46Oe/PDDD2Gtl3nmmad0nPyZY//uu++8jYOf4qqrrgrWWmut0H9u
xlp22WXDOLSff/7Z21hZIKZi/vnnD+d27LHHFj2dXJE/2S/Es+LLpV166aWp
+uA36du3b3DDDTekji8ZOHBgeI8RFzR48OBUfYjWBjvIX//612D33XcPNthg
g1CzjX29/Ww+4IADUvd/8cUXBzPOOGPYz2mnneZx5kIIIYQQQoisoGnFfjGp
VnO788gjj5T5kvGVpsnr5Lzz/T/84Q/BG2+8kcNsy/nXv/4V2n8Yd+GFFw7z
WvCv//a3vy0dy5NPPpl5HPJL8Zmzv8TGzN6SPSJ+ZHPe5pprruC1117zcFTp
weZp8taXW265MD6/3dhvv/0i1/MFF1yQuI8999yz9P055pgjdWw6PuUNN9ww
7Iccic8/LzZ/X9TGJ598Etx6661Bnz59gr322ivYeeedgz322CPMnyN25b33
3mvpegpCtCu8L3heY/+97777ip5Ow+D6k1nn5QE+5ZVWWikcA38rPt56QA7a
8ssvH46LT+Giiy4Kdt1119LxrrLKKl7e34xjNJQWWmih0O92ySWXBGuvvXZp
LPKBi44DJBfZxE0edthhhc6lHsT5k3nHv/zyy+HehjiHxRdfPIyZZS2H7+mK
K64Ic3BFFGKK7WcF5y0p7OntPm6++ebU8+G77N3wbd9+++2p+xH1A41y4uRP
PfXUcE/Hs3iXXXYJ/9y/f/9QF83Xu4Hnb1xcvd1Y+6cBnbx6vDeFEEIIIYQQ
yWG9Tq4Ea/V99903+M9//lP0lJqGHXfcsWzfhN8kDZz3Hj16lHJ2866Dx3hb
bLFFON6hhx4a1s02sPczx0N+BX7ntGDXw5ZIX+xlXf022+bIcRdVqwuf53rr
rRfOY5FFFgmmTJlSyDyKBL//73//+8j1fM899yTqY+zYcZG4dFqW3CRsHn/+
85/DflZcccUwf1w0HvgxsO0Tl9KRbcnc6+Q0KO9ciNbg2muvLd3fN954Y9HT
aSjq5U8G/LZLLrlkybeaVWu0I9C1nnvuuYOZZ545jLE0kEds8nNpBx98cKZx
nnvuufC8sUa57rrrIutS3j/MIes63AcjRowI329mHu2wp7L9yRwvPkj8/eb3
wJ+85ZZbBttss01J/4bGb0lNk7/97W9FH0LDQPyB/azYeOONE/dB/aSscaE2
l112WdgPscZDhgzJ1JfIB+67+++/P+jatWspJrxaIz5gs802C+/dLBA///DD
D4e6bGiTuNdemn2kwcTZ2xoUQgghhBBCiOKhJhJ5oazTV1555YbRiWsGiKt3
92z40YjHTwv2MZNn8ac//Sl4772xHmccBXuPsfG59q7TTz89clx33nlnqjHo
t3v37mEfJ554YuxnBgwYEBmLnIV6gx+VfTXjo9P5+uuv130OjcALL7xQZgdI
6lcnL8n+/hJLLJF5XvgcjYYm+eM+tTNFNnhnoEE3++yzl35ztPOxiaLTiJ3p
iSeeCO69997wc9iUjXadud/QK8AfIDqGnC9y9KgdgP2Oc4yWKrFgW2+9dfj+
QG+Q9zr3XpE10EX7QN6aiSNCd0REqYfetc2YMWNKmkOsbVjj5AVxiayF47Rs
0Hkxx8x80ubETZw4MVwD4E9mnRLHJptsUhqL+UycWP96m+PGjSutVfCb5u3L
bxSMP3m77bYL89P5M3nIV199dWwNYPK3qWNifi9qrfNOE0GwzDLLRJ4V6EYl
gfUxvkK7j2eeeSbzvFinmTXb448/nrk/4Q9ykY22Fm3OOecMY1nOOOOMcP/O
GpxYH/bXxK3PN998keuDmO9nn33Wy1zQJXH3kWhip4GaS3Y/55xzjpc5CiGE
EEIIIdKDJqnZU2DbapT6tc0CNabdPRO147KC3czkWaANRz1b35DjyRjkEsbF
EJCv7GMPh3Y23ycPsRI33XRTZCz8z/UEn7edZ452V7vixhHgl0oK+Sd2H+Sk
+wB7mLGRkXP173//20u/Ij1Tp04LNVX5TWadddbQj1RLzXViFE444YRIPM6i
iy5aN53/ZgYbYUd5J6aht2rrTgiRB48++mjpXsYurbjEcurtT4ZBgwaVxttp
p51yGYO8M/qP03RmbUVcpH3cafYZ+MLxPRKHRE3iSmy++eaRsW677bbEY2WB
tTt+UfM+xLfcLhh/smn4HjvypeP3XGONNSKxZVlzJZsd4pTd9zh5+UmgZr39
fe4bH9rG1J8xWlPklbdr3G2jcfbZZ5diudDY4rnf0TuYdSExnkbHgsb+ij1g
1lo06BTZ1x8xRWng+rL7Qf8iLx0D9pe8Y4jBbOSGrSKLXpwQQgghhGhcPvjg
g3At37dv39C2sf7664ex2ltttVWo23P99deHNWKLtvGiQ2dqkNHIcxK189Zb
b5XlJqPF6ysH5Kmnnir5zriOfOvlGT1rapzG0aVLl8ix3XHHHYnHIIeEPS7n
pdr+56yzzoqMRS5NPTE6bia3op0xtYpNS5pnxnOFesl2Hz51T4m1N/1SF0wU
BzWQjZ4ldphPP/00cR/4nm17FvbkLHX+2oHFFlusZn9yvZ+lwg88R1ljXHPN
NaFfZtNNNw3XkuhI7rDDDqG9lncy92DRkHtoNG4Ul1iZIvzJgP6MGRONaJ+w
rsN/yrHE5Z8NHz68zK+FTyop7Kf4PjGc1TB1o01jv1Uv8MGYvNwifNlFY/zJ
rPmJEa0VdEmIm7Xvi5EjR+Y408aGvbh9DeO3TXrPEL9r90Heqi/Gjx9f0qJh
n1iv+uyiHJ45e+21V+k6wfaUFPRr0Ki3r5du3bpl0lWwbUuVYo1qYbfddov0
s88++6SeU0fsvPPONa+ri26TJtVfd0MIIYQQQuQDvuHBgweXanzW0ojZ79On
T2gzLALyTc1cevbsWcgcmhX2Wei42b8n9pCPPvrI6zjGhkZD09QX2CbQDKQO
UVwcMjZq93pNYyNeZ511Qp87teSqse2220bGQre1XowdO7ZUL5hc7W+++aZu
YzcaxLMT/23/FjzXkoB/0L12sD/5guvVPGc7ylUS+UFeEbHy/A7YorLE0WAb
oV657XMgv0bEQ/7SQw89FGoKojHcv3//8Fket86QNmBzwfuHOpe11iCnoY1K
ftJnn31W9/kS52bnhKaJO2sX6lk/2Yb3+uKLLx6OiV7B+++/763vBx54IOy3
X79+sf/u6p1QUycp6CixjsRXXC0uEb+IXUeBZtdyzpsLL7ywkDVso8A6j2M/
7rjjEn/34osvjvxu5CxnzZFsVqglbZ8LtHiSYud804455hivcyRG1PS9//77
e+1b1A7PXX4Dnu+jRo3K1JerSUYebJp7kPgCN9Y+Te1k4lPd53me+kXsXanJ
deSRR4YN+wu2CTe2Pq5R1wBfNzkj5vu1NPzs7J/4LjWvTX2Kjppq2AghhBBC
tAbkGhu7uu0rpp7YLrvsEmrMGZ22SmtDah5SD7Fe4N8jD4yxyStR3cpkuPuu
eeedNxg3zp+NzvDtt9+W6rDh58u6XzRQS4k+0aKOA9uDfXz475JCHT2+21E8
MfvVP/7xj5HxbrjhhsTjpYE4kNVWW600brvn6MfVTo6re1cN26ZKQ8PYN8Tg
GG03cjW///5772OIyuBDIo+f87/nnnt66XPs2HGluA7ja3nnnXe89N0OjBlT
HgNEU7xF80BePrl59u+HLZP1IXk622+/fSSX323YcPFZ1vN5eOWVV5bGJ3da
VKao/GSghr0ZlzWPL71McuXpk+e3C2s7t/Yl64OkHHjggTX5htH0scdijVCv
vc3IkaNKeyrWs3lpsjY6xDql8UF9+eWXpfNn2oABA3KYYePj1k5OqsPDvtGt
ney71jFrQFPnJK2/UGSDmEuecdibfNiPuG/R0csah8C15q5N0tROxt+a1Q7h
A6518w6Ka9j5fMW+0A81Enj2oesWNx51sYUQQgghRPODP874ibF/ow2L5ldc
XU9iNocMGRLG58etEbGln3vuubnPmdxUatmYcbEHitq5//77y3zJY8aMyW08
bMx2DKyPuoTExP7XBji27N+wMxofdha7To8ePcK9bkfnhtgG917wmc9aDbvG
E/pc7Y6P2smuPcJX7WQXNBXMGHvvvXcuY4h4zj///PC8kwPjS98fTK6F7Uvz
2X8rExcLQq5D0XU1RMfg/yXu0Pxu5CbzbqoUT4HP5oorrgjXHnFryfnnnz+s
Z5w35LmafBr8F++++27uYzYzRfqTgbgEM3aaHNI48GWwLo3DradLvMP06Z8n
HoO9Fbb1jmq+kFtmj7fqqqsmHisNvKNsnW1ybUVyXH2vtDVXmxkftZPt2BGa
r9rJLuRzmrhOYiikwVs/0CLBr8j5f+mll7z1i196pplmilw/STUeTjjhhMz3
8VdffRU+9+1+0OIpCmxzlfzJedYQZ53n5qJQv1wIIYQQQjQ3tm0IHzF1k2uB
+MOrrrqqYr4y2jfUzsuLww8/PLLOj/N9i3hefvnlSA4dGlN5+z6xoa299tql
MdFgygq5E5X2oPfee2+ZTyJNvhN2EXL3O+KSSy6JjIctvR4MGzYsEsNflO58
I+GjdrKbX5dXrjn5LNhTzDhJdblFOn788cfSb4wfnxqRvmyVaLjNN998kevn
oosu8tJ3q4PdyV1LUHNXNDbUzqAusvnNyENGS74WuBeJ24pbR7K+9Fm33oU4
BVtTlXWrqE7R/mTWqravIKmfKg7q3E6YMCH233bdddfI8ZLLnAZqME+cOLHD
z1FfxR6P810P7Fq1xOAphicd5Pm5z7E89W0bEbd2MrpUSWsnH3300ZE+fNZO
dmGPYMZh/9CuGuX1xsSEo1eC5kNcbHha3Nrb5MsnsROtt956ke+nqZ18wAEH
RPrYbLPNOownypMtt9wydp3FHjTva/6yyy6LjLnNNtvkOp4QQgghhMgXO4+P
tXKaHCpiPt1apaaRq5LH2hn/noknpj3xxBPex2hVRo8eHdFlxgZcL007ficz
Lr+fL93rONBpt6/FvOvAsTeyx6tHril7Y+x+9TrGZoC8dztWIo2P9s033yx7
lvms1eiCDqAZBz+kakrlz3XXXVf2GxNzUkvsSC1Qf8zum2cuuQqiOtS6c38X
auqKxoX3EHZS4ze4/vrrU/Xj5vXbDVtkHlCz2/aLfv558rzTdqNofzLg9zfj
E0+aly2ceK+seW5JILbCrdlJjfm8sWtv1GvMVuXYY48te36dddZZRU+rrvio
nWzX8KGhG5wXxHnY912ROaTtgh3TaTfqcPmA2gVu31dffXVN32Uf6dq1kmqh
P//885HvzzHHHMHkyZPTHIoXWKe5udKmpY2RSgJx2ksvvXRpzN69e+c+phBC
CCFEkeBfJfb9m2++KXoq3iFH1azriKfOght3aLc88rLIVzL9U9NZ1Mann34a
LLDAAqVzR+ysr/pztYKmYN7xqRynW3cLHdW8wJbJXtEe76abbsptPANj2GN+
9NFHuY/Z6Lh7eNqUKclqJ19wwQWR73PP5Ak1uWwf+DnnnJPreCIItdbi3lfd
unXz0j/1ft2+Tz75ZC99tyo8R+eaa66y88ZaRTQu+PuT2msrERdPQMPW7yvW
w4Beia0NQT6T6JhG8CdTm9Gew8CBA3MZx9WdYS2Qp+7Sk08+GRmPdSx1ZPPG
jr9Ep0qkx67F7muP3Wz4qJ1sxzfUI8Zhr732Ko21xBJLKD8/Z+JiOk3zUUcZ
3Nq91NaoJUf52WefLZtTktrJ+KPJuba/P2jQoCyHkhn0rCud77zi9VzsOFti
+YQQQgghWhk0+1j3LL/88kVPxSusdU2cYOfOnb3YK0x+itt+97vfhTpvvrD9
4LRbb73VW9+tDDnIdi4rtUOLALuf/fv5thHDaaedFhkD20CeGlNc33nthyuB
rWOxxRYrjYc9UJT/9mlqJ9v1GWl77rlnDjONcvDBB5fGI5e1HjbkdmX48PJa
56ahfesDnjeub5S6AqIy1K11fw9yxusd8yRqB7+eyePZfvvtM/f39ddfB/PM
M0/svcn7rlYN7VogZ9D0je/ik08+8dZ3K+P6k8l5KgJbE4ZrI4/nBLnP9rEe
f/zx3sewcWt2kqOZN66fIU99+UYHTWZyVdkjpwV9BvfZRV3qdsFH7WQ0AOod
V/HOO+9ExsTfKfLDrTNuN2pa++Ckk04q6/upp57q8HvEftrfSVo7mXpe9d5D
doStxeK2PLXibB588MHSmKrtJIQQQohWx9bi+eyzz4qejjeuueaakg3t1Vdf
9dIn/VRaq26yySZexgD6Mv1id0yj0d1uYKM1+XjkQQ4ZMqSwuWDzW3DBBUu/
IXEIPiHHjdrF9vWXd74nOfj2eIssskiu4wE2P3vMxx57LPcxm4ENNtggcl7S
1E6effbZI33kVTvZ5sMPP4zk1CfN5xC149b2sxtalb7o2rVrWf+qb16ZSy+9
tOx8qXZyY2NiLnmns87wAe/rSvenL91YNzd522239dJvO9AI+cnw4osv5ur/
idOY+OCDD7yO4bLWWmtFxjvmmGNyHQ/s3OS55547cZ3bVgFfB/VGOA/kMT7+
+OOp+nHX5jRyFdsFH7WT3dq3edZOtrG1zxZaaCHFsuWIq+ll2p/+9Cdvdp3b
brutrP8DDzyww++5NeyT1E429jXT2JM2gp3KrQFmn+961XQeM2ZMaVzpDgkh
hBCi1SG3tl52hHpiNIDIw/OJuwb3Hf+ILd7uU/qhHUM+Dzl3nC/2by+99FJN
3/vpp5/CGOGJEyd5n5Mb+0tcuC+wAdl9zzjjjMHUqcn0jpPSvXv3yJh51zFm
72fXISL/Oq/6gc1EXM2rO+64I1Efcbnm9dIR33jjjSN2Xe5B4R+egZXsKuQm
+WL//ffP1V/dauDTc8/XmWeeWfS0RAXIQzNrZGoE+II8NPLS4+7R+eef34uN
340BGzp0qIeZtweN4k+GZZddNrd1EPVgXL9Anvzwww9ltZPzrNUMI0eOjIx3
3HHH5Tpeo+LWHKHxDKJ+dlKIP3SfW62mcVYNW2uHlqZ2MnWs6h1XAdTItcfN
S0dflGs/mEaNAV+gf+b2j25QNS3zuBr2tdZOfvrppyPfpb5XI2hNVaudTI2R
esFe2ozbSjk6QgghhBBxtKI/2fbJ7rHHHmGtJ2rF+IhPtOvoua1nz56Z+997
771L/ZFb7dP234pgnzI+fvKHRo8eXfN3yXfle3nUuCG2wL42qFvlC7f+Yt55
R3H5rLfcckuuY5rfxrQLL7ww1/GahbjaydOmTUvUx8UXXxz5PjkK9WLAgAGR
sa+66qq6jd1uuL4CfBFvvvmm1zHi3of1yrNpNvADofPuni/lMDQuvHfM79Sv
X78wL+e9997z0retQ+O2pDFCLryzqfNi+iN3sF75Oa1AI/mT0fGw5/LAAw94
6Zf89U6dOkX6zrv+pRsLiV/Cp757HD169IiMOWHChFzHa1Tuu+++2GcN9ayT
QmyN2892222Xw6wbEzvWlUYNmiRw7xEHbPfx6KOP5jTbKMRwzjrrrKVxib0X
+cDazo7/5c9Jr5WOIB4k7r6uphPk1rCn1VI7mboB9hqWGJK8Y9lrpVrtZGyA
9YKaIubdVksdayGEEEKIZqYV/clxmpJm3zR58uRMfVfTvO7SpUumvvEL2b8H
tXdEZdgXExfOuVpmmWUSx4Ka2oIPP/xwLvOz80rYW0yalO3ag88//7wsrvj+
+++P/eyWW24Zaqplxc2Zp+Vdh7Fbt26R8fKu1dws+Kid7OZIEsPignYZcRq+
/fjYPuzrl2em/Bz5MWzYsDCXCFslPibfxL1rsVWKctDCcM+Vaic3NtRLjlvr
7bLLLlXzf2rh3HPPrbiWrEWvshqsCez+2jUnMy2N5E8mfsGey/rrr++lX7Sz
3WOM0wthX8g6g5jcrHAd2mOiK5Qnf/vb3yI5uauuumqu4zUylfzJaXS13Pxc
2nnnnZfDrBsP9unusSetnRynMRUXV4HGBPrwvtcIu+++e2R8ck5FPrBnv/XW
W8M88KSxv7WAznrcfX377bdX/I5bw76W2snUZLbjENZdd93gq6++8nkomahW
OzlJnkFWjD+ZmmRCCCGEEK1OK/qTyQWttK7Mak+opqlDy7K+dmO+866J28yg
+2vqQLHfTqPZttVWW4Xfz0vr1/X9XX755Zn7PP/88yN9omsVZ2swvousdmmw
c7Ro5D3lCTn59njoaYn/4tZOJmYgCXE5ktTCczH2rhNPPNHX1Eu4sQK+c2ZF
/SC/PO49mDVuqxVx9Ydp5KiKxgXthkprvSOPPDJT32+88UbFvldaaaVMfVPn
xe6POrmidlx/Mmv+IiEPzPfz1dSI6SiG4fjjjw//PU0eqwsxsvaYPuIdq3HZ
ZZdFxjv99NNzHa+RcXW/afgV02DX4DWN51k7cOedd5Yd+6effpqoD2qC2N+v
FFexyCKLBHPOOaeHWUdx443I4RfNCTapuDUEeiqVWHvttSOf7ah28uDBgyO2
wn322ach6iXbNELtZDDxX127dq3bmEIIIYQQRWHnirWKP5m4yUp2Ohr1ZrKw
8sorV+w7S5yvO+8xY8Zkmmergv/U7B3wp/39739P3Ad+Nfbp6E/lkbcH/H6+
fQfkYdt9Hn300bGfww/Iv/uomWj87qZRMzVPXB/VSSedlOt4zUJc7eSkdiD8
Cu4za/z48WWfo5Yb//bQQw/5mn4Jt/aeasQ3L652umnPPPNM0VNrOFwfH+2M
M84oelqiAuQfV1tHUgOCZ3JaqDlYqW/y1cg7SgPrIfs9Me+883qtudsONJo/
GT+oPZ+rr746U3+jRo2uaV+EHZ46Cdjks2p3xmn8UtckTzbaaKPIeO+8806u
4zUy7HPIQWfPj4Y6ukxp9j7sv+aYY47IeSWmt12Iy81O4lvjnkIrzf5+XFyF
qcPKXtc3vLfsXNN55plH74gmBU2JuDXEzjvvHPv5JLWTWYMceuihpc9xzdRT
O7pWquV57LTTTnWdCzYXxk0bqyOEEEII0Uy0Yn6yG3vptptuuilT/8QdVuo7
bd07dNmol2z6yaqd3apg46VOF+do3333TW3jYv9EH1nzgDqCfbr5TdnDffPN
N6n7GjduXNn1FhdzgG4avvL5558/s6/c2KDsMdHtyhPlr8YTVzuZvX6tYC9y
n43kKseBvQsbch4x6GiX23NQ/nnz4uolmHbzzTcXPbWGopK966WXXip6aqIC
2NyrrSNpWeowdOSvnjJlSqp+3dwzHxol7UYj6V0Dzwl7Pptvvnmm/s4888xI
f9RmicNcS7179840HuA7tsdkPYyPOS9Ya9t+k0UXXTS3sZqFQw45JDwXlWrk
1AJ+aPdZNWTIEI+zbGzc2sns25PkP95yyy1l5+/uu+8u+xwxI/xbNd3iLGy2
2WaROVDrVzQf7Pfj1g+V6qU98cQTZZ+Nq51M7I2ti0E8fN51rtJSTesla+xV
Usz9rRojQgghhGgHWtGfHJcH5HPv68a82421ZBrcPWZH+kPtCL5N6hZyfqiJ
xp933XXX2Ob+2w477BBqtOFPw3ZmfPd5x5DuuOOOXuINwK25tdhii8V+zuSy
XHvttanHMuDLda/xpHWqk4B9caaZZiqNhV9c9XX/Czkl7m9B7nitYBOuxeZg
8urz3A8vsMAC3vwyojj69u3bEDacRifO3kXt5EbTDBRR+I2qrSWz1g+0Ywjd
ltZ2u99++0X6qZR7JCrTaP5kYhvsvRp/zuKLPeCAAyLHF/euJ/6MuLJOnTqF
NUiy4mr8VvJ3+IK1tj1ez549cx2vGXj//fdDH/uCCy4YTJ8+PVUfG264YeS8
stdqF+JqJ9NqvT/QAIiLKxs+fHjZZ6mTTjxyXmsEN6aE+1M0H0Zf2W2VYuVN
/QLT3NrJXMvE6s8wwwzhv6PDcv311zf0PrxSXCuN85OWZ599NozBSXIPmjpn
jZjHLYQQQgjhm1b0J6PRWmltyT46rY6gYc0116zYf1p/If5Ou5+8c0CbDWxb
e++9d1XbbpqWt97opZdeGhkP33Za2NvYfe22225ln8FexP4PW50P/TJ3n1bJ
h+0LkzduWtY8nFbiL3/5S9n1i++d+PSOQE+Pz1P72v7+tttuW/ZZnkXYEiZM
mJDHYYRw7drzuOSSS3IbS1Tmhx9+CG2cvG/wAWMDufXWW4MRI0bE1mV3qVSz
zEet+Faif//+Zedo4403LnpaogNcv6LdeE5moZJOpWmTJyfPTybmDl0Ju5+k
tT1F+Xqc9+HXX39d6JzWW2+9yJzichprxeSpmhYXY2tqD7MG9IFbrznv/C13
jUGdDfFrvCn+SjQSkjBgwICy/UAWzaVmI652Mo19XkfgM0YnnFhoahDY3586
dWrks0899VT49yeccEJeh1Kmd7TUUkvlNpaoDO9sbG9oBhADzhr8uuuuC2un
oVvXEQ8++GDsNVlJc6JS7WRi46ifZWploG3N/7vXZiNC3bO4c0A8RhaMFmGS
Ognc59tvv31szrcQQgghRKvRiv5k2GOPPcrWlsQFP/LII5n7Zt9VyQY4bNiw
xP25tYxoY8eOzTzPVoG4WOrE+vIh2+3ee+/Nde5vv/12ZDzyXGrx08RBjKxt
h+Aat2Hfh78Q22dcvHsa3H1a0nq9SXFjBk455ZRcx6sGdShHjhwZ1hwmT7tI
rS9iYNzayaZV07ymRudBBx0Ufg7fH3tc+xqiFryNuV7RlM8Tt0b2BhtskOt4
4le4nslhRP+z2rMRLXTsmeTkVGLxxReP/a4PbYRGh3uS5wPvfJ4P1fIFiYtx
zxH5QaKx4TddZpllyn47aspS3zILlXLdaDzr09SqQLPU7odnvagN4u8mT54c
1oSPe9cSezVq1KhMNbOzcOKJJ0bms+eee6buC1+F3dcDDzwQ+Xf8y6wj0TtN
6nOMg5g3t3Yyuqt5wRqbuEp7PJ7VRTF16rRwbcW74t13382sa5AFai907949
PCfEKNYaNzho0KCIfjjPxUmTJuU82//WEX799deDV199Ncw1zBoPnoW42sm0
RRZZpGqO8n333Reup4j14d47+eSTI9+3a5ez3yUeGNtMnlpQnEfb/kOjppLI
H/Zh5513XrD66quH8QXV1uHs24glr0Sl3Fx3bwdxtZP333//0P9p3nlogpFj
W+QzKgk8z9yaXKZlid9n78y5wm6Ytq6aEEIIIUSr06r+ZEBjEpsL+tTEwo8f
Pz5zn19++WVVjULWoEkxscimYQfxkVvqG/a21M4iB5sa1DfeeKOXRl21aja6
K664IrW/uKOWRQupFrAJoxdoj/ncc8+l7s/kjNDmm2++8J7FVod/jnrJ7E0H
Dx7sZe5xNT9vu+02L33HgR1lrrnmioznI/4jCcSDExuOjnScTZk9Oue6lpzg
WuE8c16r+e24Zqpdx2gOYnPARkTOKdc1uXX8ftiFyUkxzxQ+Zz/3r7nmmvB7
Tz75ZOh/mHvuucM89zwh3tueP/t25i3ygVxIfLxcv/Z5J35/r732CnO38Ck8
+uijYd4b+ezGj0YOfJzuBjZ7o4nntrR1HxodYnbI4+b54NoBeV7gc3rxxRcj
38Ef48aL0dzPicaE5yb+AH5z4gLINfdR95X7rdLzfJVVVknVp+tzxG/UaHA+
8a3hs+S952sdyZqUfmuB+gpdunQJGzmW+IPsOhsdNd6TxO6ZPnzl8FaDZ7M9
B+z+WbDznXlu8Y7At4jPjPUB+W0+9kxxc8/7fe/mXrIGTxOfkQViD6hRsuqq
q5ZdP/jWidmjho3PvR5aBMTIdhQDQGyqqcXDu+miiy6quP7EZ0xdINfHlVf+
HfsA1qLESS688MJl544cX2q3cH59QpzdCy+8UPUzbu1ku/EcYe+Ajjjnl7UC
zzd0h/l3fMTG50ysqp0nio3i888/DzUpjK//rLPO8np8cay11lqRYyCWRuQH
8STEgdv7L56FxHWcc845oT4Xz0pyldH4Yb1h9qFcF3G6yyZe2G38ti6V9pG8
+1jfsA9otn1YtdrJ7G3TYrTSqJ8nhBBCCCHiaWV/ch7gq6u0dsWulAb2EXY/
jaKDib8A7fA+ffpUzcn20cj3qeRTppZPHmOyj0ubK5wE156UVdv3wgsvjLV9
LrTQQmGenC+ImXfH8FFHrxLk/7rjYWOpB9gaiVtwc1oqNeyTvvz25v7nv5Vw
aydT15D8ns0226ws78c0/p69MLZVF+JCuOfc7+BLTqLtlRb8125cDvknwj+c
V/e37tatW2iH6ciWjf2L9xrPSlfLAQ2NSvfH0KFD8zykuoP9t1+/fhEfMn/e
Z599wpoJ6Cigjcc1TSP32NSb4/y750e1k0WvXr0q3j8HHnhgqj65r+1+GiUH
Hl8VNRiJe3Jjxny3I488ssP5kIfHfcp7nHcefqsll1wyXOfW0vAl41MmL4pn
Yz1qj+LrdY81S/4iuWqVdEJZN/iMmTvmmGMi/cf5OnyCf9QeD23nekFMIjl/
tV6vxG0R35AV3jdGU7zWeED8R2bNy/2wzjrrhBq3rDeJR6Q/e51G3EXamk61
wNrT1eOt1vCJ+8hXRpeAdzLPgUrE6UkQE4NeMHF5lebI2otcVHeviX4+cRxx
6/c8da5t3Drq7LWFf4g/QxPIPte8P4iD6ig2jRwF891tttmmLFYkrg4SLa4e
B7kLrFuJAyVeCD2wu+66y0t8XFHE1ZIxLUu+Pf51+uBdIoQQQggh4pE/ORnY
jyutXdmDp8GN/T788MM9zzoZ2CWoE1VJyzSvVun6w9fHHsp3q5eGkVvHDVtT
VtCiIvb2iCOOCG115PH6Ph53n5Y2XqJW3LrnaMPVA2xv6I4lvV6xs1HrKgvU
niPfApt0NT1t12ZAjIcBzQRys/B3cT2gxYBvvJa6V+RkYAvnmUP+KjbmeuHq
LVObT/iDZ9xJJ50UsVcSc5JU459rghgnrlHyqQyV6rbRWqlmK/bzBRdcsHRs
2OPOPffcWD1A/O9GTx4bMpx99tll54d8JNHeVNObT6thgmaJ3Q95TkWCnZqc
aXw19VpHrrDCCnU/ThM7kifE/rj6tOSyZWX06NGhfknfvn3D//rO+wR3fZW3
v8yNQa1WE8QnvCvIG096zXLfooOdBd7r9JXUV08+Ipo7xEPFae/iY0U3lmst
rxxv9i74sSvFRlZrxAqk0QWzMTrWrKEr4dZO5plmfMScF3R/iN9hP0ZMC3Fm
aJB09Gwgn5kYY3KuGT9vzSwb1ij2MRH7LPxCzjvxR+Yc48vlt056zbLH4/s7
7bRT5O/dd75pxx9/fGw/vEcaUf8uLZViojgvabFj6WvVPBFCCCGEaEfsWiry
J1eHfaFde9T1LaWtr7rccstF+ioyHpL975prrlk325+99q+nL6ueuLml2Naa
AbfmZ9qcqVpB363e54l8bvKTsly7We5X7Kr0gR+4EnG1k9FfbXbIrbaPCRuL
8ANx+a4uArlGxC+kgZwrcpPI4TO2KHyqcfcD12or2Ks4BuzC9rHhV+5IAwIN
B2oPYBvnfbrpppuWnSNszaJ9qZbbj25qGv8k+rNuX0XZQvGvoNdZLW8vr9bK
OXbuXqGapkmjgN/ErYuAnnGeuHUdTGxPnlxwwQWZrlviCt99N12NZ+438g3p
56WXXkp9DPh1WTu89dZbYa4wsYp5gy4V2t9Zzh2/N3rtaSA3HDsIz6pqeZpu
7eRNNtkk7SE3DORXu2s31Yr1A/Gc1I2xn32c3ywxQGgG0A81uIGYxkr3BLnP
rU612snE8afF7E2ped4KexkhhBBCiLxQfnLtEGfq24aF5qXt06dRt6UIsIdU
qw2dR2O8DTbYIHj55ZcLOeZ6cPvtt0eOmRyAetdyS0pc7eRBgwblOiZamPZ4
cXpdPuF+do8xTUN7fNy45PWG0fImx4H9MNp3lYireYV/r9khx9o+JnKwRXZe
f/31shwpcpay5vAMHDgw7MvEMlBDMe5+wOfR7GCb3n777SPHhb2+lpx/MHqr
2LnjcjM7qtMoWhviCSq9T8hDSsMzzzxT1ldeNU6rgU6yG4tWj8Z7lFrwWZ9z
jQxrIvuYqcXZ6KCdY8+ZPWeesaP4cdw87jw1msGtW562Ecubxn9h3s28s5oJ
6kig1eHj3KHLkwajOUaOdjXcmk/1qG+cN2PGjCk7j8Q6iWwQA0zNAPu84kum
RlHWflnbE6MI1TSCiGVsdarVTqaWeVLQGyC22/RBnIsQQgghhKiM/Mm1g98z
bt1KXHnaOq8jRowo6w+tnXqC/eWggw6KPTZyrLp37x7G9+PX+uijj4IPP/ww
3Kvwd24egGn46Yhxp+ZbtVbNj9YqcB7c85Olrk89cGMn8PvnbZteeumlI2Pm
qftO3cE4XUKO889//nOoSc71fdttt4V1Hy+++OJg5513rqjbueGGGyaeA8fH
d7FFVsPNb19++eVTHnVjgVa4fVzEgots8Ix2YyTIS/ZRH408IjTosXkTD1Mp
FqPZbTD4kvG/u++zWmtSAnbySroH2BU5l6I9wd/Jsy7u2qB+aVrtZDRT7b6I
W6uHDrMNGj28n+KOjbrJ1OukrsHw4cPDvEDWQWhyo3VbSScYrf2O1pG0dqhH
bvRMmmktgO6IPee8tf7R73avoSw5ux1xyy23VNwDUc8cHXF8lawlqVGDH7Ja
jWBqlSQBHwiaBnyX+6qZIP4j7hxQlwPfONc7eZacY9aL5HtWqsNEXHZSrXb8
qaz5F1hggarvZOLI6nlN1QuO2Y0hp56uSA/68ewH3WvTlyYD9YnMvc57s9Jz
pNbYx2bm/PPPr3j8SdbrrB2wu7nafJdeemmOsxdCCCGEaH7kT66NoUOHVly3
4m9KCzYGt78pU6Z4nHl1sHtjr4vbm5Nzje+4Gtgr2e+7Oda0ww47rE5H0djE
2SKS1jD1BfYDYnonT55c9XNoW9vz3XHHHXOdF/s5166Rl+479jfXX4SfjH36
+PHjq36X+wV7CzXb3N+UPPRamTRpUvjs7dSpU4e5xm7t5Fa5r1ytPVpH16Wo
DPZNN96BWCeftYyNLSvutzON+IdmhfeZq5Ngjjcprn5/vfwporGhRmbcdYH/
N0sN1R49ekT6Q5u+nmDfjtO3Jq6C2Czs7NXAz7733nvHnpu09aRbDXyN7jrd
1HCtN9OmTQu1/6vlGhOb49b3zNtf5da5pfl8B9rgj3TfucTYkhvX0fVOTCNx
itRGsL+PHzpJ7CY+ar5HHdFmgrgS+7hZ/5PTST57R/pNxOjiS3Pz0Ndbb71E
c2Bfw/eIxanG4MGDy57VrRK/wt7HPrZqNaRFdXjeufs1mk+9/QkTPgn7JA6Z
WNG49yV12dqBSrWTeS8Si1KpoWWAdjh2jtVWW63sOWLaO+9kq2kvhBBCCNHq
yJ9cG5XiyQ855JBM/brxlayD61WvBdu52U/bjRqRSe2a6Mm5/cw666wd2lTa
AXy47rm57LLL6j4P7DQmZw6N5koagMQQkJduzzfvvAdqjrrnKC/dd7smKjYs
/LNJ9Rexd7Entee7yiqr1Px98iz4DjaxaqBv5u51i9LD901c/QC0mpsR9OGx
r48Z816o3f/QQw+FcUb4FMlDJwcvT7hnZ5999rLzSbyST+6+++6wXzcew27N
rLN32mmnlR0PdRPTEBdHRDv99NP9Tlo0DdQjrZTXjx8sC65ttZ71PYkDcv1i
NPxDSdaArEl32mmnsn7yjmdrFuLW2ZMm1TcGi98ITVATQ0puLHnpcfTv3z8y
VzSD897fuHn6rPHyqAnLmtHULKaRX5/mfTtlytRg3XXXjcy5Vi1lzqXJTX71
1VcTj10U7C/xyZrjXWGFFVLVemet5cYr1KrvxZqJawN/ake1l3v16hUZo5Vi
wpZZZpnIsaEh0awQk0RMMHEuTz31VBjjS1wye7Xjjz8+9xiAOHsKMQ6+dUJ4
1uBLdvfppu2+++5ex2tE4mpy+WzoqdRb30UIIYQQotmQP7ljHn744dj1JntK
tKKzYPxKpmEbqBcnn3xy2TFh70kbyx+nB56mhk0r4uYw1DsGHHsvPmT3t44D
XWf7c9gO8wZ/dT18i9gYTP/Ys7LWs8K3az9Da7HpkeOM3im6t/ggq/Hss8+W
nZe02vqNxsiRo8qO7bHHHit6Wol5/vnnK+rX1sO3gy10xRVXLBuTHHrfxNVn
sBv59kXly2XlgQceKDsefPRpa5WzNog7R6qd3L4cc8wxsdcEa7GsuLlK9fIL
8PxZffXVy44JfZs0fjxiy2xfEw3fZUfvynaA9Yp7nrPktKfh6quvrun6/eqr
ryIa5vyG9Xj2ubWM0U7OA9vHuNJKK2XSl+WdaWsCLbzwwjX53YlbM3vRZoFn
gl3bZr/99svk5+O8288fnju10KdPn/Dz5557boefdWsnt1JMWNeuXSPHts02
2xQ9pVRQK6IjHyH1uvLiwgsvLBsPf+/IkSO9j0VNpmrHecMNN3gfs9HAPlDp
+ImbJy+iUiP2jc+4mmh2UwybEEIIIUTHyJ9cHer7Yo9w15pdunQJ7SVZoU5r
3j6AOOI04civTGs7B3xBbp/NXkvTF+41lDWvPSno6rm/DfZnF1ejFT9YHrkd
Lraf17Q8tI+JFadvfLlPP/20lz7tc9azZ88OP2/ssbXoVp9yyimRc7Lccsv5
mHJDwO/r/uYDBw4selqJoRYCcUDEs1eqr12LzTItrs6taXnkCVOHuZoda/PN
N/c+Zj0g1ww7Uy1+klrBz+P2p9rJ7csrr7wSm0+0ww47eMmD6dy5c6Rf3h31
IE4fHg2QLMeEL9zt07fWQjNCrRL3vPD+qSdx2hQXXHBB5DPEGLj+naR1gdNy
0EEHRcZFW8o3rF3M3pka1ln2TQbW2Xb9TtbEHYEfmc8Sd9gskDNqjhF9ex/5
6uTHm1xF1mCsU6rx3XffhZ+nHkhHn43TGWlmDRaX7t27R46N+7vZ4F2DzjS5
5sQAxvkJidHIC+KI42p+7bHHHrmMt+eee1Zdh0+YMCGXcRsJ3jmVjr+SXoYL
sd3oIlCbnf1bEe8rIYQQQohmRv7k6lTSg37//fe99I8eYL3t8eQ3utqo7MGz
xu5S88s9V0sssYSnWTc31FSzzws5wPUEf5b726Bda+PW5iPm30fMRC0MGjSo
bH7EcvgEHTzT9y233OKtX7SvjY2V+6qadh52D5ObUcszxK3TTE5Fq8B5cn/z
vGpm1wt+32uvvbbsuPLSorSvafe5m4dWG7bfanYs6jc0I2ghuseC72/69Omp
+3R1V2loeIj2A/+F0aW1GzZwbJo+QBvA7ttnzcZK2L4h04jZyuojMjVh7Ubd
w3aHNbp7XrLqpCdl1VVXjYyPHd72pxKbs9VWW5X+Hd8Oefn1Yvvtt4/Mb+ON
N/Y+htGVYr03ZcoUb/2yJjS5+R1p1pL3yOfQJmkmzF4Ije+O6iQn4cYbbyz9
5vy5GubdTA3VjnBrJzezBksc5HO32p6d2uT4j+3jqjVvPSm866jBG7ceriUm
JA2u/rrd6qlxVyT2O8ZuxNWlwY4Roo0ePdrvhIUQQgghWhA7plL+5ChoBrlr
1cUXX9xr7Kcb60+scN64OdE0X/V83RyvGWaYIawB2+6YPALTNtxww7qOj4Y5
uXHGvoc2F+BzeuaZZyL6WdS9Jp/Zp62nI7j+3GvSd+1tExuSh09n3LhxpZh4
dHMrYfQqa9E/RgPQ1SjPuw5vvTHXZCv5DNzYCGJ1stZFqEQljb+89BipT1fN
n5ymBmLRsO5x7zPapptumqlfdCPdPqnPLNqPvfbaq+xaoN6xr7UR/bj95x2b
w/t5gQUWiIzJ89yHpmhcnEw91saNDvF97nkht6qeMJ4Ze5555glrlQDX4KWX
Xhr+nfl36gvXO5fTaNCY1q1bN6/9m9xW+r788su99g3nnHNOad1QTQfa6GMT
v9YsoAnEnLE75OGvMfusanHZpuY06/VanlWHHnportdT0aAlYR8fOdvNDr+x
W1v3pptuymUsNJXi1sLYQvLaQ++2224V1+DoM7Q6nNfZZpst9vjRz08Lzw36
IM9dtZOFEEIIITpG+cnxcC7cfA+0Zn3GosMyyywTGYPY+jyJs9ORL+lL03iF
FVYo63/s2LFe+m5mzD7FNLTF6w11wG1bH/ttO54EPzI5EWnrZ2fhjDPOKLtu
fMYhjB//cWg/4njfe+89b/3aYGdi3r179674mS222CL8zIMPPthhf+Sq2OeD
Z7XvnO2icXUS6q0DnweHH3545Jg222yzXMa56667KtqU8tK749lQaUw0/X1o
V9abXXfdNfZ4BgwYkLpP7F3utU2j1rZoL+JyeNGI9pnjRh69O4avGMFKHHvs
sWVj8nc+cN99xjfZ7pD7654X6m3UE/YK/M7EijI+6yrXtk+O2JlnnllIHif5
uvZc0IDyiamTSp52Hv6iL7/8srQvf+655yp+Bn8z7xiuiWbBrJGPPvroXPon
3pL+2btX8sWz9uYzrMVrgdhf+3pqdg0dlzhtlmb3pWFzcI/p448/9j4OGktx
dVJoxx13nPfxDGYfGdeoqd7qvPnmmxWP/+abb07dr9ERZ30mhBBCCNHsoIPX
t2/fUHcW/xM6Ufy3lhb32bi/s+vMYK9J+v1axmffTcykjxpT9YAcgKWWWiqy
RuU3YA/vG7SlXDtjnlBLzF1/33HHHd76d88bbcyYMd76b1ZcbSb87kVAfuG9
994bPlfwo5A3deKJJ4Z+jrxyKGvBrRNM81m3mdh0+swzXsPYsogRiWPs2P/m
MC+66KI12SH5PYhhMb7kVrNjwZxzzhn5zVshtt61Z5999tm5jMP7Os6egkZ6
XlCnsZIdJ0ut4aKgRoMdU2caWtdZ1itx9q5GqJ2MTZWalazJfKwf6/V9NCWu
v/76Qs9dGrgO3Jrq1Ab27YeKq0V/9dVXex3DhngV977hOH3FO40cOarseIh7
bHfi8tCL0jwgt5NrDL0j1pL8l/xktFqKxH0vbrfddl77N2t5dEjygrqr1d6p
rCn4d2LXmgVizdDyJg7Bd1y2gT2D0Ux44YUXYj9j/MOPPPJITX2y7jbXEjpO
1erZNCMnnXRSrnuvIrjqqqsix0OsYx6gT1BpPZxX3DIsueSSsWPON998Tf/b
1UK12slZYmmNhhnXjxBCCCFEs3PddddVXDM1Y2sGrUdimt2apfw/Gmd54NbU
w46QF2+99VbZb0J8u08b99xzz102Brmh7Y6rfapcmyhxNg2fYFvCFpRnfiD7
+HnnnTece5y9zOjmJalrif34ySefDKZNm+Zzqg0DumKur6WZIebIjtGiDRs2
zPs4o0ePqfiezdOP1K9fv9gxOeY88j/yxuSauS1rzc04exe1covGaKQ2a2uW
mEQglx/7rj1//D955H5RL9I9V+wf8iIup83n2pX3tds/MQbtDvm+7nnhmSx+
hbgD+/zstNNOXvvHl4umdp5+RfKSmTvxvy7EGeIz5Z3bTJpixNBsu+224To4
T8xeghhVF1Nzmn13Ei2VESNGBK+//rrPaTYMcbG81XTWmwHi8u3jIW46D1xt
fdPyrGkeFztmWp450Y1EpdrJxGpnweRDSFNPCCGEEK3AK6+8UtIUa4U2ZMiQ
ok9pVdhf7rzzzpE5o1Ocp92Aesz2eNTFyYtevXqV/SbYl32BrTfud88rFr2Z
cPc/5J2KXyEPw71umlE71zw/br311sjff/PNN2H+FvkZeegcNCtufnKPHj2K
nlIm7rvvvsjx8JvnofkZpw9vWh51CQ2V7Gf1rgfvC7fehGlZtQCojev2eeqp
p3qadXqq5dM0esMH0Cx2bp7xrl8rz/z9iRMnlp2vvOqq4s8ycVN2e/zxx72N
wdzd/uN8a+1GXH5ynN+snXGf6TvssEPRU0oMzznWiuhkuLHMgwcPDo+r1er4
+uKZZ54Jz88666xT9m+sL/k34sjEf0Gfyn2mFKFT7wvitey6TrQbbrjB+zjE
+Lqxo6ZVq3mUlbj6GaZRJ6LVqVY7ed99903d7w8//BD+nsQACiGEEEK0Cp9/
/nlY9/SBBx7Ipdn1U8lrymMM6rlMmjSp6FPZIX369ImsTX3XuIvD1S3yHUtv
oMYW9XLd9feLL77obYyXXnqprH/GbEa/oG9M3TDT8oxfbkbwtbSCTQO9xzh7
gsmDzLLfbUVcu0DPnj2LnlIm3HdI1jzXSpCrF2dPmWOOOXKrfUdc1UwzzRQ7
bp7an3nxzjvvVLTLDR8+PHW/6BTEvWsr1cKsN+jUUkMyrzVlHo1z1yy+ZO6T
tdZaq/S7Y6PMu1YBMXvu9XbllVfmMpYbM0PDButTw9utQU/bZ599vPXfrGDz
ds/L6aefXvS0GgpTI8Q0tIGaERO75b430Nnh79uhTmoa2Oti10CP334mEe9M
zQn89L50+VsBclrdZ0oedcHrBfW13OP58MMPvY8TF/Nk2p133ul9PEMljZl1
1103tzEbiTfeeKPieaeuVVqeeuqpsI/dd9/d42yFEEIIIVobuwZaM2ln+ebc
c8+NrEuPPPLIuvhBXb+A71pfBvY37tqbGF6fvoc4ffaNNtrIW//NDOfBPi9r
rrlm0VNqKPr371927TRjnbK33347nDv5iQZsM+hw8ffU0xS/gm3P/s2p693M
UBfdPp4zzzzT+xiffPJJRXsKOgh5YfJ+3EbNBPLmmo1K9UT++Mc/Znr3v/ba
a2V94odvxnMkkkEsQffu3Uu/O+vrPG3LBvQv3Gvu4osvzmUsYh7dsQ455BCv
Y2y66aZlY6imYRD6wdzzkqR+RjuwxhprRM6PvRZrJk444YRw/jfeeGPp79Bc
5u86d+6sON0qmGuAOgAGU3O62TVwfHPUUUdF7hd88c2MWzsZbfg8QLuu0joc
vZC8WGKJJbz7UpuJarWTs9TcwZ+MHgT5O0IIIYQQojbkTw6CgQMHls4BuSR5
2eHiIH+tHv6AuHwP33H7xHW6Y2ATEUFZTe4tttii6Ck1FOiRuddOXjXL84Tc
COaO1qmB/Dr+jrwSEcXWx6Ch49yskP/i6t/51H8wkJdUyZ5CXFRexNVMpfFu
aUbIhY87nqwxXW5sGo3nv2h9jJ6qiUt4/vnn6zIucYHYQu1rDrtrHiy44IJl
1zdraF+Qhz7rrLOWjfHWW295G6NZ+eKLL8rOi+1vFOV+HmITmhFqpjB/6gEb
qAPL3xF/KSqz9957h+fJPH+J8zHPLWohi18hhtO+X+aff/6ip5QJt2bZHnvs
kcs4nKe49eMiiyySy3hQKZZ0rrnmCvee7UCl2sk+zjvPCSGEEEIIUTu2Pb8d
/clPPPFE6RzgW7/rrrvqOj6a2vaaOK98XmpJuevvs846y1v/5GCyp3HHuP/+
+72N0cxQ+88+L9g7xK8Yn6vdpk+fXvS0UkG+Jrp6Jn+E2AGOx62p3O7gA3F/
82bOQXN1YMm9zkOj95JLLqnoT87Dfw083+P8SPh9qMnRjKy66qqx5/Cyyy7L
1O9mm21W1qdqnLY+/fr1K/3eCy+8cK51zONwa0bmoYM8derU2Htm3Lhx3saI
00HgfdqM9S98E6drjna9+BXjczWtWXVgzX1g9Fe/+uqr8D6gUZ9dVMbEvpmc
Te4R/j+upnK7g7aEfb80cy2muNrJ6ND4Bu2sSmvwPffc0/t4Bt7pcWPWMwei
SNiHxNWSoakehhBCCCFE/Wnn/GS0Z00exCyzzBI8++yzqfsaOXJUuGedPHly
ou8ddthhkTXxUkstlXoOlfjf//3fMl1Z2tNPP+1tjFdffbWs/06dOgXffvut
tzGamcUXXzxybtAYE78SV3s7Sw3TIll++eXD+VMz/tNPPw1zVv/0pz8FP//8
c9FTayjicq3uueeeoqeVGrd28oYbbliXcUxDUzmva+yxxx6LHTNLPjk2OfIt
iqjVR6yHvfax2yuvvJK6X3xerCXcPrOsLUTjc/XVV0fWcDz700K9VNaSSe9l
t25sHrXojV/GbuRh+6ybcswxx5SN0aw1cH0TV/M9y/OqFTniiCMi5wdt6Gbk
/fffD+dvdG3wGfH/++23X8Eza3yoHc+5Ovnkk8P/NzmNt99+e8Ezazx23HHH
yP2CZlqzElc72Wesk2H06PJxTLvmmmu8jwesWU3dJLsttthiucStNiLY7Cqd
92bQ6cAWN2HChIb4vbieiFGaMOGTzLF606ZNb9q4YiGEEEJko139yR999FHo
4+G4iXd8+eWXM/W37bbbhn0l1Tc89dRTI2tibNG+wbbprr3xcVFzzxd2bo5p
hx56qLf+mxlsra7v4pxzzil6Wg0Fe373+kHXtxnp1q1bOH9yRclL5M/SfS/H
1Jq2G76UvGAvz7OQmnp51LJ1ayefdtppZZ+h/iU+VPKL0tY/3G233WLtKV27
ds16CBVxbY409P7+/ve/p+pv2LBhwbzzzhv2Qz5vmn6I3eK9wz2G1ngSjC59
XMuis886Is7Pr9rJrcuQIUOCGWaYIfyt8elOmzYtU3/oW6CZw/MqCRtssEHk
usujdgq5++717VtPeNllly0bg1xNEV/roJ32bbVg6uSaxtrbZ7xDvTDvqLnn
njv8f3NfSPe9Y4zeEVrH1LJlv8t6QxoH5bj1xnfddddcx2Otxho46ZqtFtza
yfPNN1/ZZ/DlcU2wfkwbf4mdp9L6cdSoUVkPIxbi/+PGu+OOO3IZrxG58MIL
K5738ePHFz29quBHJtaQubJXRGskKexNqHXw17/+tebjZb/L53kWEuNMLS5i
AO3aTGntE7xXsWHSF/VW8oqlEEIIIUTj0o7+ZOLoTL7oHHPMEbz++uuZ+zT9
JY3RM3HUdsPn4BN+V3eMJZdc0lv/2D0XWGCBMn818fUiCO3L7vm//vrri55W
Q4F/zT1H5Hw1IwcccEA4f7TzuS/wNbCnE1HiNM59a8Tip+Q62nrrrSM1OdGM
xC9LvLsN++M0vk1sY+6xmNginufsuVdaaaXIv6OJe/755yeO60FPL86eklcd
Y3zwcbm8AwYMSNUfNcqWWWaZSF+vvfZaoj545yyxxBKpfVpxzxta1hpsZ555
Zlmf1Wonk5uNRkm962wIPxA/YLRfuL/RXMiCif3Dd5QUt24k8/FNXG3wE088
0Vv/xGC5/Tez/qpvXH9JHvuFZof3knuOmjV3ymi7Gv0ek6ssqmPyGDfZZJMw
ro8/m1xlEcXE9ZnWu3dv72O88MILoa52ly5dImOtssoq4TPNja0k/i6Nbo37
DqSemOHee+8NdS5s/RjWtejjE9uahDg9LRprgbRxoh2xww47lI23+uqrN2Ws
TFrYx8Wdd/ZSjY7JOTHNaPEnwdTOoi200EI1XWv4iiv54E1LqzP1yCOPRPph
TyaEEEKI9qLd/Mk//PBDsNpqq4XHS9y3D01dY5uec845E3/3ySefzN2nQi62
O8Zf/vIXb/0PHjy4rH/WveK/xGk0Sf+0HO4f+xyddNJJRU8pFeTlM3/i/Pkv
+0hRzhVXXBH5vYlBSZvv6oK/ET8yObS2XwK/Lj6RfffdN/Tz8/67++67w++8
8cYbYew2n+3Ro0fo96wVbFX2seCv5liIG+E9Y8bH94IPmVpfJqcRP/fAgQNr
Hsutd2faeeedl/Q01YSJj7Ab/q60OtXos7r9UZc1Cdhi7O+vvPLKib6PDz/u
HGKvysJGG21U1ic51JUwNTKxaYrmAm1N8jz4/VhToh2YFXKd6Q89gKTwbLGv
uzTr0Y6I8ydffvnl3vp3/QG0G264wVv/zY6pC5vnb9zsoHHiXkPNWjvF1II1
a8kk64R2hhxRzheaLfiaWGtlqUHQqpCr694rl1xyibf+8dMS62f6Jj7i4IMP
DtfA+Ln4bfh7fKX4kKmBYtab+J6T5PriVzWac6axB+A9TV4m/0/+wP777x+O
z7rMjoNn7VdrvvK7774bu35EjzoPyHmIGy9PPadGg/0G2i1x56HRayezNrTz
gdPYgNyacsQu1LIHY69z3333hXns1EwgBsE9f8R7pMGNbUYjRwghhBDtRTv5
k/ExoK3JsbJPf/fdkV76NbUl11133cTfxY7uru2eeOIJL/MyoJHj225uw57d
7ptrauRIP+e2FTA2YrsRgyCiuHqd+PyaEVPfFs1S/tvMNYHzxK2T6Su2mWfq
OuusU+qXOO6hQ4eWfc74j9nn33bbbeHn7Pm89957NY9JTofr39x8883DPzNG
XI1Lxjf5R1wrteq7u354026++eaa51srxDa5dhD+H+29tLh6pNR/S8r2228f
6QMbYRKI6zd5pXY7+uijE8/FgC2SOAK3z2pavcTM8Jnrrrsu9bii/uCbMLbw
tdZaK/j222+99HvssceGfabJpYuL6/Ots84zxh3jlltu8dI359S8M+3nqDRq
fwXNStlvqxOnPfHwww8XPa1UmHg47gvyKtHAFh1j6uia50kz1wTOEzRzk6xX
agXfLjWdTMwka0b8t8Tz2/D/+Jf5DLnkbt2svn371jwma1X3WI488sjwGqDm
COtO913C+OQsm8+zrqzFR8d9GKfZk5d+gLs3pu200065jNWooPMft++hNXrM
mWsD4ppM+ix34wXTXmvEWNj9sGdJo/vOveT69xv9dxBCCCGEf9rFn8z+hhwg
jpM9ehJfQUeYGsg9e/ZM9X2Tv5bnmszYPk3r3r27l37j6gih+Sl+xa05SEy0
KMf4YU1rVhuQfRz4C1U7NR63DnCanDwX4vipmWb6XHPNNavWMx0xYkRo83L9
gNi/vv/++5rHXX755cueg/Rx1FFHVf39L7300tLn8W/WUnvh448/jrWp5FFH
LU5fLqtupJ2vQiMXPAm8y+eaa67M70zyxd1jS6v7BibX2G6sr8i5qQQ2IT7H
byqaA/I9zP2+3nrrJXpOdAS6MWnvZeNDsRvaND6J01rxlTPpvv+5d3zFfLYK
XG9p/S3thK1LQmvWuo52/mTedW1bCfb38nN0TNz+PWtdY9Y7+DrtdW21mFrW
cyb+012HUy+3VuJqh9GISaqW5zx9+vQwb9l8Hn2pWjC5CXarVtskLY8++mjZ
OORu+4phaxYuuOCCiv5k3+sc3/CetufL9Z4U8lXsPtLGvmKntPshdz8NxGjZ
/aDVU22vI4QQQojWpF38yX/961/DYyQH7cMPP/Tat7EBptWJcjUyTznlFK/z
Azefy0deA/GJ6J7a/eK/SaIT2w6w7rfPkbTA40Eb2D5PzVqLx9Yj3nvvvYue
TsNi5xBn9eUBmgh2vDS1cGvRoD3wwAPL7BMrrLBCzePG1U6m9e/fv8Pvoolt
5+TVqo3u1h+m+Y7jiatvjS84rc418M7o1KlTpE9yw5MQpzU4btz7iefi5vrR
0PNNi/uONf7GSuCXJJZh8cUXTz2mqC/kcRifHus2X/r8QL6KuTeIc0kK+jtu
zpTvuhrYC928fuz4WUEX1eSymXbWWWd5mHFrwTvNPkc33nhj0VNqSLp16xY5
T2jrNiO2fi/vY1EbrAXNeeOZqBrj8dx6662R+4Q4jCyw9ydW3e5z0KBBHX4P
rR5XB4c2bNiwmseOq5WAL7mWeC+7pgvvocmTJ3f4HTdOnOY7Vpy5L7XUUpEx
eP+yBm43KtVOxqbX6Lixq+QaJ4F1pru2S/s+cK+n008/PVU/rt0yi7aTEEII
IZoX25bdqv5kaoZwfNS28ZkHRFzt/fffXzp/aXWqDz/88Mi6LI96q3feeWdk
DHKis/p9jY/eNGq5jRs3ztOMW4ftttsucp6OO+64oqfUkLz22muR84R9wdVH
awYOOuig0jGghS/iMbUBfdhLP/3000guD+816k3VwieffFJmo6g1RwHc2sm0
ww47rObvE4Nj2z5r0cI3Osl2o5aVL4i5crXMsNtkzV3BPujOe+LEiYn6sHO6
aeSjp4EcUHcuaLCnAZtpnK2rmt3orrvuCj/Tq1evVGOK+kIcBXUe+c3wV/nU
naCOpdG6pqXN88B+bl9/PmthGly7Pe+7LHAel1tuuUif2CoVlxiF8zTjjDNG
zhN+GFGOuzfZcssti55SKkx9dvIneUaI2qBetvnt0TMW8RhtNdOo0ZIFe+9D
S6I9Y+rDmEaucq3XfFztZNar1L6phZtuuinyXXJhO4I9h/s8pvnSK+GYzHrD
bnnUtWl0qtVORnewkWE/58ZKPPXUU4n64PPucdcSK+3CXsvtJ03t5OHDR5TZ
aqSxJIQQQrQnrZ6fjB/VrOWwtWFXqNTIG63279T3QZ+SnFz2KrPNNltkTcX+
Ig3kGLj7IN9gizK2CdOy1MDEj26vkbF3UN9GlGP7uWh56NK2AuRnufuul19+
uehpJQa/HnNHk5ecMVHOZ599VravTbsfpRau0Q02jbpptcJ1586FWqS14tZO
Rgs3ye/u5rVS36oj8Oua2sum8ZzxUWuUWHjys+2+GcuH78KtnZwmN9eNz0nr
R8fu5+ZaptHY5xlFfb44Wxe+70pQd5fPKO+sObB1J7hOkq4f7YY+zBprrBHm
ipATZl+HnTt3Tj1H9DDs6y8PfQxXfzNLbCLP7n333TfSH7qOqhNbDvFR9nki
j076kvG4eZdpY46KBH+SeS6QPylqh3dymrVcu8G7yL5PiGlKi2vHIF40STyw
++5C961W4monJ9HmePLJJyPfJZ+0Fvbbb7+ycYkv9cH5559f1ne71jeoVjt5
wIABRU+vKnG1k5Pq2ri1k1dZZZVUc6E2id1P2trJpnagaVtttVWq+QghhBCi
+WllfzL7CVcjJq8266yzhvv/NIwdO7asvy+++MLz2QiCyy+/PDJG2nrP5FXZ
ee34GsgtFeVMmTKl7LedNGlS0dNqWNz8Kq7ZZsP4Ng8++OCip9Kw3HfffZHf
OUsMjas7h29v+vTPa/5+XN3bKVNqy2sAt3ZyUi0zV5uT/L9aoC6CO++s+qf4
wXfZZZdInzzffcV1ZK2djP/JjYvKUhuRfGS7L/pOouf9zjvvhP408lTc37Ga
rYucAP4dX6JiThoftJfrsY7MapujTqzdF3m/eYA/3B4nab4NcJ+5PgTenT7r
UbcS7nuOcyXioZ6me19Nnjyl6Gklgn2CmXuW2N925JZbbgnP2yyzzOK1JkGr
wdrFvkceeeSRVP1Qg9hdlyWtHUJ9I/v75E7Xils7mVhe1oq1YuvMmVaLTtCE
CRPKbEzoDWUFXSs395l4trQ2pmanX79+FddLrMEbGR+1k9dee+1IH0cddVSq
ubDfsvtJUzuZvBnb/pd2/SeEEEKI1qBV/cnUl3Hzt/Jsq6++eqb5LrnkkpH+
iJf1DfY75mnGIL+auN4ksE+369xRz02+5Mo8+OCDkd911VVXLXpKDY3rIyP+
u9kwdpWHHnqo6Kk0LMcff3zkd06iL21DnTP3OZ80J4/6Ufb3qU1cK3G1k5PW
LLWfybTNNtuspu+hBejmZWOTS5vb9/nnn4c5IXZ/aMy99NJLqfpzIXca+67d
f9LaydSVdc93lhoL1FXE9mj3R25bLfCONtceGoTYtdy5XXfddbHfNXlBJ598
cuq5i/rgamHm3dJqrgPPQ7sv1mp5+FNGjx4TyammpnQSPV5iKFzdbPK7qSku
4nF972g9iMqgI2Wfr4cffrjoKSWCdQTzpqa6D92RdoJ62Zy7ZtU5rwdunRfW
ZmlrOOyxxx6Rvng31OKPNeCPdt+DSXR4d9ppp8h3iYlMAjGJ7vi16iW5MVw0
9v1pufDCC8v8ddTPaVdfMrkVbtyDr/V/PXC1npLGG5Pj714P5DynwUftZOoH
2H3svvvuqeYihBBCiNagFf3J7API+6mnDTCrrqCbJ3XmmWd6OhtRqCe02GKL
lcYhL3DixI7zZcnXc/eM7OFk/6uOW+f0tNNOK3pKDc3bb78dOV/YBJsJfHJm
7viqRDzUx7R/57TxM8ZuaDdq9CYB7Vr7++hX14pbOxmbXFK/iutjTaLzh264
a2shvzGp/ix6cgsvvHCkH+wg1FH2ha1BaVrS2snUg7W/T828rHY2YuvtXBDe
j9Xs98RlXXHFFaGNB704/I0GbCuuHdDF1HbEV5+1HrXIF3xQcTUS82xZNQbc
+JQXX3zR09mIgk67fW7wD9eSE8Z8bBsrexDu63a1l9eKawseNWpU0VNqaNy1
ATluzYTxU6WpwdDumLqzSXNk24m77747cn9QRyQN5OjaMeZp7CFZ1tFxtZOT
atYcfvjhZe9hdONqxa3ZQJwhOQ1JoHaBqZVkGlpL1157baJ+mhFi3sh75Voa
P3588Prrr4fXJ/5ON+/dbYsuumi4HqcOB99Dm4K+TJs2bVphxxUXb5w0l9fV
Yqel0S+0bROmJa2dfM8990S+T40l2TmEEEKI9qYV/cnu2r4eLeu+lRwwu7+u
Xbt6OhvlsF6nPpAZq0uXLmHecVwdFdb35EHYOYDURbr++utzm18rsf7660d+
V3wJojLYBohxsM8ZPrNmwdQnYp8l4uE5Q30A8/uik5Am/4Z+eBbZ1wp13JPo
3MXlzCaJ/XZrJ9eaW2ygJrH7LiFPLwnYvVytQGqz1qIDR2w/emzuOeAd6juv
0dUMTlM7edttt430kTQPpRLkF9trIXTgyJmx4brCtmN8YcyffGmbzz6bGLFt
zjnnnBF7y8iRI4N55503/DfqRojGBltlvdeS1MnNArGIdn/EtOUFNl97bdi9
e/dYbXzunVdeeaXMXs5zyr2HRDnYxH/zm9+UzhsxL6I66CbZ15oPHdp6YvLA
8HWJ2sEPSawW567ZctLrSZ8+fSL3hx0XlwRqLrvvsDvuuCPTXJKso+NqJ9ea
W2xAN8ztA19krRAX2qtXr8j3eS9So6Cj/Qh6QujYoItkfx+7DPuDVgcfcN5a
gqw9isCt65SmdrIbF0V9pTSw37D7SVo7+dtvvw3mm2++SB9PPPFEqrkIIYQQ
onVoRX8yNqp62wDJ1cgCOU92nhnxvnnG/bGOPProo8M1pRkTO/g+++wT+hcO
Ouigsrqg2FapU5RWE6vdQO/LtgGS/yc6hpw++7qrpBnbiJi8CPJvRTzUBrN/
31rrBbsMHjy47DmMPyMJ2Bns73O/fvXVVzV/n/qk9vfxmSbhoosuKjuGNLWx
eNZssskmkX7IHaTOKfFAzz//fOi3oXH+zznnnLIccRrvzqT53bXizs9H7WRy
uHzBcXfu3LnUNzEPO+64Y2jP32233UrvZ97NaHVU0ubAlrn00kuX+iG2hGca
fZFvwjV2xhlneJu3yAfsvPVeR9Kyar4Qs2D3t8oqq3g6I/EQn+hqPDDmgQce
GK4lydl388f4/NChQ3OdVytB/KZ9/o444oiip9Tw8L6w7d88d9PkdRUBPgez
N7v66quLnk5TQf5fq9k08oBaVVnvDXRw3HohNOouJMGOb6clic+//PLLI99d
cMEFE4393XffRfbpNPybSeJSDfiPbZsKjdgfah/jW8Q/TN4ya80BAwaEdhYT
+2CPff755yfSOWpmTK3zPNubb75ZyLH9f+3deYwU1d7G8cRESNyIYRGJKAKa
q5FVVIRgVDYRFAEhbohE9uASwCVs0QgYcRchsgYRQY0ICIgsGg3gElxQQBFR
kMWEiMgiiegf/b5P3XvK06erZ7p6euZUT38/SeXeyFTNmaqpnqpzfosbJ1GI
3sk6Zj4GDRqUdpy4vZPd2kt6tgMAAKiO68l6Vlftm6rcFLtXUeoVaz+vLVq0
qABno2yqx6O1BeXR2jmD2hRLqf6co0ePTr377rtBDC5yZ3JVzRZV+xSZ3PpO
ykksBsp1NXHWendDtCFDhqRd3wULFuR1HDcfQJvWZ+PQvJW9v3JPcxVVyyxu
bVnVGHSPUZHPfc2lqrZFnLkWfc5rHV552ZVVc7YQvZM1D+eOvdC90/Q3Tp/b
Wu9ycya01qy1fvUdLI+eB1TDV+tq9jHUZ1Z/S5F8ivGr6ufIQuV72HER2tTn
pLIpVkWf7VobcGuEa85cdfinTJlCPnIe9Plsn0/11kX5tF5jn7f58+f7HlJO
lFdrxpxvL5BSZWoXK+6LvtPRVLvGvi/yrYfmHkebauXEofhNdz03Tkyj4lHt
feP2c9XfXPdnUBxmvvbv3x/8DqqHdJzncPUzUOyn6hKXEq3bqz6f3l0U96pr
r/Vf/W5t27YtrF+tZxjFzer3RbWD9u7dG9TP07zl1q1bg6/XfooRVh1nxaut
WrUq9e23W739bBXtnayYxkL1TnZrWMXpnaz4V3tfvbfq+RgAAMB+Vqku68nF
SjnO9jObcoWrkp7r1UtZz+96Vlc/H+RP+Wj29dS7EsqnOSA7ZltxDsUQq633
VzNmxakjk9YrlT9gzpPmXPLNx3PX6rTFjUPv3Llz3jEfdh6MNsVmxandoHMR
lduhOZKKUh/y5557LqgHrboIJmdCc6yqCd6uXbvUsGHDgry3qpi/KkTvZN1T
9v7169evpNH+l+ZLVGtfPaSPHj2a93GU96McTnolo6oof9W+V/KtZZovPTsq
7uLHH3cFtZrzyfXCf+lc2msTqpdPbGduFKNRkbUmX+yYO72LIXeqE6zzpvrB
iOauD+lZMR+qHeU+16kuRRxLlixJ21+fdXHiAJT/a++vGmpxqB+E+zM89NBD
sY4RRc/Vig1VHmfr1q2D+ETTZ1o/o34/9XyuNWTV5kf1oud9N04ibu9k9x0z
bv0sQ39D3N/xXHsnq6eJ/XMox5oahQAAwKiO+cnFSnNEdu9YrTUUwzoaMum6
2fltytlB7tz58GLI6XvggQfyiq8vJVrntK9rvnncur/cuG3FIMSJmdYx3JxZ
vTvnSjXp7H2vvPLKWD+DYu/dd/y4x4ijsnKPc+H2To6bwyKmlrzZVHMaQCb1
VLfnAOP2AUByLFu2LO1zb+LEib6HVDRUj9fO1Ve/hGKYC1cMmMaret3I3fff
fx9e6zvvvNP3cBLL7gmm99R866u5NXS1xa035PY3itMrSON2v7/yVONQbbaK
HiMOn8/hqDqF6J3sxjo0b948r7HonrSPk2vvZMXI27Fsej+tzD58AACg+LCe
nCzuGoV6hKL4LFy4MO06zpo1y/eQiopym+yamT169PA9pHKpXpnGqnGT2x/N
7SelOmX5UOy/OwekeqpxrFu3LuMYqqOWK/Wft/cdNWpUrO+vPAr3+6vWcnXk
9k6Om8MSlcut/nMu1dZQ7+JcY++B6kqfh+Ze0d8k8hyLkx1Ho/e1OH+jkApy
L+2/G0mvef3tt98SB5In+1qrry4y6Znbvh9GjBiR97HcGD9tcevONG3aNG3/
OHV4VTvG3ldr43FiSlVP2O13rH61QEUVoney6kjZx1DMuku1k1q1apWaO3du
1uMMHDgw7Ti59E5+88030+aHu3btGtwvAAAANtaTk0XxtnZea4cOHXwPCXnQ
u4O5hnXq1CmKnIikUS0wO7Y3yfPh+/btC8dKLnq0Y8eOpc4888zwPHXs2DHv
Y6mGqjuPNW7cuFjHcGO/s9VH1Npn1PrnmDFj0vafMWNGrO+v3xN7f31O5BIz
XmyieidPmjQp1jG2bNmScb2jnlfMNV25cmWhhg8UJfXYte8X8lqLz549v6TF
1d19992+h1R09NyhvGRzDjVHn2RaB81nbQ2pIO7UnDv1UUWmoUOHhudI9Zcr
Mu+jPqr235jatWvH2j/XOryK/VQvWrcXzK5du9L2jZu/OW3atIzv/9prr8U6
BhDF7Z18xx13xNpfucxuDa6lS5dmfJ1+X/VvU6dOzXqsCy+8MFbMxvTp08Pa
7Nq0Nk6/ZAAAEEVz6HpeUE0TYs+S4eGHH0579lMNLxSPL774Iu36Kecc8anm
mF2zM8lza3Y++j333ON7OInkzt18/PHHeR9Lf6vceaC4+SiK1bH3V89Cl3rf
Zlv7dnvQxZmHUi91d/zz5s2LNf5iEdU7uaxY+ihu3Y5svZNVj02fGbpuQKlT
rpW5Z9RLhTnB4vLoo4+G10/rysrHQ3zjx49P+/uRb12UqtCrV69wnOr/jNyo
R3utWrXCe4UaQZmOHDmSOv3008Pfr9tvv71Cx1NNcfu++s9//hNrf/UXtvdX
fkNUTGXv3r2Df//xxx/T/rtbp6h9+/Y5f2/VvDHzX2ZTHDj1qFFRUb2TR48e
HesYy5cvT9tfx4uqNT1gwIDg3/WeFUX1AnKJ2RDlOtv3tOKwqmvNLAAAUBjq
zaX+Mc8//7zvoeB/9Mxo3ou1qa4qiofWE821q1u3buyeOfhX3759w3OpnnJJ
nQ8fPHhwOE7F9iKT5prMOVL944py6x/HWc9VzqzdF0pbVG+BxYsXB/82duzY
jH+bOXNm2v6qD5arm266KW3fOD3jio3bOznbuc5Ga8N2fpk2nT/X4cOHg5j6
Ll26FHL4QNH64IMP0u4bzVGiOPz1119BzQpz7fr37+97SEVL62j288LIkSN9
DymS1rLsa671MuRG8afmvDVr1sz3cBJJ8zx2fEpFa9K5NX7i5v67NYE1F+VS
nIDu3ajcZ/c5/rrrrsv5e69atSrteysXVLXmgYpyeydrU0xTrv7+++/UJZdc
kra/6sJHadCgQapRo0bBfRLl1VdfTTuO7peomI1Nmzal5THrHevAgQM5jxkA
AADJ8cQTT4TPdap/Tb5VcVBvO/v9tqwaRCif5jvsmk9z5szxPaRI6tlqxvj5
55/7Hk7irF69Ou2dthC1CIcPH553zqt6Hbvv++rZ7TKxIdu3b8/4N8312rVI
c/3+ysu2v6/myty8i+rE7Z2s7cknn8xpX8XiaI7R3T8qxsqs77NmBvyrU6dO
4X2j/H0UBz3r2Gs/1flvRFWwa1ycdtppQc+MpLF7Jzds2ND3cIqK3Ts5qj9J
qfvnn3/SehXfddddFT7mN998k/ZcdsUVV8Ta1+2Dotpsrs8++yz4t/vuuy/y
OH369In9/bVe17Jly7TvPWXKlJzHDpTFjZPQlmuvCq0L695097/hhhsyvtbU
fiqrBp6d36DN7Z28c+fOIG7f5FMrbiNOvC8AAACSR/Poijs0z4AjRozwPSTk
4N577w2vmWpp0Te54ux+X6rZmbRzqhgCMz71B9a8Df6lnHLli5hz1K9fv4Ic
18wzmU3v8Ll45ZVXMt7VFbPgxnfrM1i5Qu77t61z586x5jB/++23YJ7YjhWv
zn3+onona2vTpk25+yqG3qxFn3/++Wn7u3E6yuXTeb3ggguyxukDpUj9N+y4
l7feesv3kFAO9/mfGkUVp+dG+2+vasokjd0TpBDrfaWkZ8+e4blTTh7SvfTS
S+H5Oeuss1J79uwpyHHtdVk96+mZrzy7d+/O6OmqbdasWRlfq88+/Vu2vl9L
liwJ91e9bPVLL485ZpI/C1C83N7J2s4+++wgjqEsqk8xaNCgyHeeqD5aejet
WbNm8F6ZTbbeyZq3GDZsWBivr5qI6q9R1rEAAABQPNauXRvGDOqZj95pyfb1
11+nXa/Nmzf7HlK1oPmBxo0bh+9DkydP9j2kNKYmsrYePXr4Hk7i2HWhNUce
1QMqX3ZNsIsuuqjctcSnnnoqzP1RbWSz77nnnpvxtcpX0L+VVcd6/vz54TFU
276seuyaz7bXn2vUqJF65513cv9hi5Cbi21v6p2XjXLFTV7ygw8+mJEH48YO
vPjii8F/1/UFkG7cuHHhvaMctfLmNeHXxIkTw+uluemo+pSIT30jzd99xVhs
3/6d7yGlufXWW8PrTt/K3Gkdxq5nvn//ft9DShT1ArHPTyF/t1544YW0Z7P1
69eX+fXfffddEBesd2XV6bX3dWvLqN6uYi7LqmOtWEK7H0p5fWfUF8f+nrfc
ckti+yih+Kh3crZ3ngkTJmTd79ChQ6nbbrst+LpevXoF9TNUR8Ps6/aI0vxg
tnVmI6p3st6dunXrFsRemPdWzamoJwQAAACqFzuOVnWdkFzqgWqulXqGonA+
/fTTMI5WsfVJiqFVjK+57vShT3f06NFUvXr1gnOj+SO9AxeS6kMq7ru88693
deUPm/UUrVd27NgxLU/4+PHj4debfovq2V3W2ovWr+16e4888kjk12luQLX4
7PXrTz75pGI/fBF4/PHHs86t6H7W+dq6dWuQ069zrvtccyqa61euv51LafeA
0DyL8tO1Rq+8G82NKE+GXvVAJt1fV111VXj/KA8SybRv375wHlmfa1u2bPE9
pGpFf3PMfXDzzTf7Hk4a86ykbe/evb6HUzTseDPVhUI6xeRV1jyC/rZoTdYc
X7WIsuUoL1iwIKinq8+16dOnZ/SZffnll9O+XnXZ9N+XLl1a5hhWrFgRvh82
adIkeN6PYj9DalP/Z+rZoJD0zpLtnUfbwIEDg5pUukf0vqL3H63xKrdfv8NP
P/10eCzdH3bcs46t+AnFISuGQvHZWjPOxo51tze976o/suJKklbvDQAAAIWj
Z8cWLVrkHPsLP/S+a67R1VdfTbxzJXjsscfCc6yaUElh58hqfRP/Uj80c26y
9T+rKK0rqse8mX83Nbs0T6R5RsV2mNwMvbefOHEi2E/9KM8555xwfCNHjgw+
b5U/0bx582BNs7x5LNE+yp+w479/+umn4DNA69aas9Icmvl35bAnsXdjZbDP
i7YhQ4YEucSXXXZZ1vkWraX0798/sh6HrqUdP2A2Xa8kxZgASbNr167wc1J1
/NX/Hclj904sqy8i8qP4sMsvvzw8x++//77vIQW2b98ejkm1VpA7U59EG72h
0uk5yuQiKo4x21prRegZuFOnTuE1UG0ZPZfrGVjfb+HChWG9GdVb+PLLL4P9
lFduf96pX4menfWMrncHxaB27949+LryqMa5qQ+m2EKtMWutW3GiqoXTtm3b
8PsoTlR1soFCMzEQZlNN6jfeeCPVrl278PczKrZWsU2bNm3KOJ5+r5XP7+6j
ezlbDXhDufh6j9XxL7300qCH89tvv03cLQAAQAnRPIPpQalnSNXTQXKoD41Z
l9J8reZtUXiam2jfvn34PqXYXd8OHjwYjke/A7nMe5QK1To2fTu15l6ZcdBf
ffVV0JfZ5Ci4W+vWrVPr1q3L2E816lu1ahX5fq9cilypJrtqytr5RfameQTN
K2zYsKGQP3aiaY7R7Z2seRVDcyGKxR8zZkxq+PDhwfzh3Llzy+1/p+MqTl/7
KEZB/5/4HaB88+bNC+/FLl268PcqYex8vWuuuYbcuUqiNTaTA67ntiTEVsyY
MSO89vrbhtz17t07PHfVvYdIHMqBtOvirF69utK+l9aoFO9n9323N8VUjh07
Nnh+s2nNV/2LlTPp7tO1a9dYtf6XLVsWrNtli1XU/MkzzzxD/wBUGq3b2r9z
pl+xqPaIcvBVI0PrzqNHjw7qK5X390fPAartdf/99wfxyuoznuv7tOKndI8B
AACgdOkZ1Dyf3njjjcwDJoSe8+0cvNmzZ/seUrW2e/fuVK1atYJzrXpPe/bs
8ToexcCba19WH6NSo5gXE1Ot3IgvvviySr6v+uYpp0vrjHpfV1+o8mK4RXnl
yiPWvJZqNOdba1JzZVqHHjVqVJCLq34Fyo0oxdzZqN7Jir0B4E/fvn3D+5F+
48mhOET18tB10f/qWQeVR3Py5j7o3Lmz93eqAQMGhONZuXKl17EUG/OsWaNG
jXLj0UqJ1p/sujlVQetXihtUnODQoUOD/9V7Ull9Y0T9TmbOnBk8g+v5fc2a
NXmPQfnP48ePD+Iy9HNPnTo16Bvg+x5H9RbVO/nDDz/0PSwAAAAgWJ8wz6jP
Pvus7+Hg/yn21FyTbL1TUViqT2jqt6m2uM/YW8UWm+u/fPlyb+NIEs3ZKK9A
50T5yUnII0fVc3snX3zxxb6HBJQ89bRv06ZNGOujuqTwS3FIqqGha6KaDh99
9JHvIZUErTUlpba46peYWAJ6WuZO946pI9utWzffw0kM5Wmb3231WClvPRdA
xbi9k2vWrMlnOQAAABJBubCm15DisDdu3Oh7SCVNvaxPOeUU6tN5oL62prax
ckB9Mf2BmzRpQm3K/5kyZUr4Pj1//nzfw4EnUb2TAfj3+++/p5o1axbcl40a
NQr6NsAfs66p5/r33nvP93BKhmLfVFfG9LjwuY6vZ0iNQzVQkbuff/45fMZI
Si9s33ROTB2n66+/nvrOQBVweyd36NDB95AAAACAkPpEml5Rel9U/09UPZ13
1VvWdejfvz91tDx4/fXXw/V8rWH6sHDhwiA3wu4LW8p0Psw1mTZtmu/hwJOo
3sm6XwEkg3r2qWaA7s0WLVqk/vjjD99DKknq50ktD3/0TtWvX78wN3jz5s1e
xtGrV6+gv6t6diB3x48fD85bx44dfQ8lERQbZD7X27ZtG5wfAJXP7Z2smusA
AABAkpw8eTLVvXv34Hm1bt26qR07dvgeUkn54YcfUvXq1QvOf58+fYL5KPgx
Z86ccP1SPcZ9OHz4sJfvmzSq921yxn3XjoRfUb2TmScHkmXv3n2pxo0bh70j
/vzzT99DKimzZ88Oc2Op5eGPagH37NkzuBa1a9dObdu2rcrHoPc67r/8qGey
z743SaGYoJYtWwa/x6qfz7sJUDWieievW7fO97AAAACADFrDVL9ePbM2bNgw
deDAr76HVBJ++eWXVIMGDYKc1EmTJpGXnABr1qxJ1alThzxhj1T7XbU6ld+j
WuQobW7v5KZNm/oeEoAIqn2tvqO6T8nxqzqLFi0Knlnq169Pv+QEUL8S5ZPp
mijfdd++fb6HBORMfVrbtGkTfI4PGDCAvq1AFXJ7J5966qmpEydO+B4WAAAA
kJVyAlXTavfu3b6HUhJ27tyZateuXWrt2rW+hwLL3r17g5x95fug6mkNuVOn
TsH9Abi9kwcPHux7SACyUFzc5MmTU126dPE9lJIxc+bMICf211+JBU2SVatW
Be9Uu3bt8j0UIGfKbb/22mtTs2bN8j0UoOS4vZPbt2/ve0gAAAAAAABFIap3
8uLFi30PCwAAAAAKxu2dPGHCBN9DAgAAAAAAKAobNmzI6CN28OBB38MCAAAA
gII4dOhQxjsPPSwAAAAAAAByo5rz9rxK8+bNfQ8JAAAAAApm48aNae88Z5xx
RurkyZO+hwUAAAAAAFAUduzYEcynaF6lVq1aqfXr1/seEgAAAAAUzLFjx1Ln
nXde8M5Ts2ZNepgDAAAAAADEdODAgdTKlStTx48f9z0UAAAAACi4I0eOpFas
WEFvHwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPk/XsODUQ==
      "], {{0, 266}, {1940, 
      0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSize->{552.8050000000001, Automatic},
    ImageSizeRaw->{1940, 266},
    PlotRange->{{0, 1940}, {0, 266}}], TraditionalForm]], "None",
  ExpressionUUID->"dc4f57a2-7591-4e8c-8578-33a786eafa07"],
 ", FieldNumber = 4 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.748965817048818*^9, 3.7489658189762506`*^9}, {3.767539490341497*^9, 
   3.767539490341552*^9}, {3.7675398704061737`*^9, 3.7675398705672493`*^9}, {
   3.767633176501169*^9, 3.767633177441382*^9}, {3.767633466976166*^9, 
   3.7676334672502728`*^9}},ExpressionUUID->"1555d8fb-2a93-458b-a491-\
307771530922"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "4"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"c9610116-8d3b-43fb-b3f1-1320c0999cb2"],

Cell[BoxData[
 RowBox[{"G", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768089971905949*^9, 3.831220496559744*^9, 
   3.831222243822336*^9, 3.8318058849184866`*^9, 3.831839776309843*^9, 
   3.832947489202486*^9, 3.8329617738873034`*^9, 3.8458268626710634`*^9, 
   3.8458524566307592`*^9, 3.8458570670644903`*^9, 3.8459196120044627`*^9, 
   3.8460065656061*^9, 3.8460998760629053`*^9, 3.8474704374817133`*^9, 
   3.851700622613946*^9, 3.853975439831389*^9, 3.8549773949109306`*^9, 
   3.8549892533293753`*^9, 3.8549998899265237`*^9, 3.8551652375423007`*^9, 
   3.8551823073612337`*^9, 3.855185852258654*^9, 3.855330627364504*^9, 
   3.8553398333593755`*^9, 3.855343170019433*^9, 3.855344004708536*^9, 
   3.855352732445775*^9, 3.8554495972377377`*^9, 3.855507599447319*^9, 
   3.855508395669902*^9, 3.855512883139598*^9, 3.855533097365196*^9, 
   3.8555333147699223`*^9, 3.855578908218853*^9, 3.8555932815973363`*^9, 
   3.8557505937287083`*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"542a5188-c797-44d9-8ac2-668742476465"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"A", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"B", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"F", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      "  ", "+", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"UD", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Fmn", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"9e4d9ed9-1b56-4558-9000-ec8de551961d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"7c9e199e-1930-453a-8759-b1d2cb7b69b0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, 3.768089972186246*^9, 3.8312204966675544`*^9, 
   3.831222243928761*^9, 3.831805885017222*^9, 3.8318397764104624`*^9, 
   3.832947489280549*^9, 3.832961773977205*^9, 3.8458268628116546`*^9, 
   3.845852456725775*^9, 3.8458570671669493`*^9, 3.8459196121138377`*^9, 
   3.8460065657094307`*^9, 3.846099876172271*^9, 3.8474704375910635`*^9, 
   3.8517006227388844`*^9, 3.8539754399375677`*^9, 3.85497739506712*^9, 
   3.85498925343841*^9, 3.854999890020278*^9, 3.855165237682417*^9, 
   3.8551823075018263`*^9, 3.855185852367838*^9, 3.85533062750513*^9, 
   3.855339833484347*^9, 3.855343170222503*^9, 3.855344004833499*^9, 
   3.8553527325579967`*^9, 3.8554495973566504`*^9, 3.855507599573639*^9, 
   3.855508395778942*^9, 3.85551288326318*^9, 3.85553309826443*^9, 
   3.855533314913946*^9, 3.855578908370488*^9, 3.8555932817066517`*^9, 
   3.855750593838029*^9},
 CellLabel->
  "Out[187]=",ExpressionUUID->"a2472abe-7721-464e-b9a2-60dcd3d49760"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[188]:=",ExpressionUUID->"d834031a-44c2-46dc-9807-37024ebc37b3"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsnQfYXUWd/11UUBEQFgVcQGog9EAwQXrvsiA9BAgGwgIbBANBeq/Se0ek
915EaUIUQUlCpEiNCQmIggYU19X//e/n8Mxl7txz7nvKnHbP9/M8o+R933Nm
Tp/5fX9l8b0O3G6f2T7zmc98/wv/9z/bjRq//sEHj/rBd77yf//YYez3/2vM
2L1Hbz523N5j9j54+F6f/b8fzvdvn/nMeXN85jOf+7//bgkhhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEELU
lL/+9a+ta665pnXppZe2Pvjgg7KHI4QQQgghhBBCCCGEEEIIIYQQokReeuml
1te//vXWZz7zmaANGzas9dFHH5U9LCGEEEIIIYQQQgghhBBCCCGEECWx+uqr
tzVk0x544IGyhyWEEEIIIYQQQgghhBBCCCGEEKIE/vjHP3ZpyLQXX3yx7KEJ
IYQQQgghhBBCCCGEEEIIIYQogX/961+tpZdeukND3meffcoelhBCCCGEEEII
IYQQQgghhBBCiBKZOnVqa6uttmqtvfbarYsuuijQloUQQgghhBBCCCGEEEII
IYQQ/c0bb7zR+t73vtfacccdWw8++GDZwxFCCCEi+fGPf9xaYoklWpdddlnZ
QykU6tLvsssurb322qv17rvv5trXr371q9aoUaNau+22W+uFF17ItS9Rb777
3e+2dt9999bjjz/e+n//7/8l3v7pp59ujR49urX99tvnMDohhBBCCCFEmbC2
/OY3v9m64IILWu+9917i7am3R0zL6quv3powYUIOIxRCCCHEQEyaNLk133zz
tXMWzz777K2nnnqq7GEJIYQQHbz//vuBtmm+V5tvvnnZQyqM0047raO+wODB
g1v//Oc/c+nr9ttvb332s59t97Xgggu2ZsyYkUtfov4svPDC7XtlnnnmaW2y
ySatY445pvXQQw8Ffor4PMyaNSuwGZHfhJ+fcMIJra233jq4t8y2e+yxR9mH
IoQQQgghhPAMGrCZ888222yt5ZdfPvAjvfLKK1uTJ09uTZs2LVjr//nPf269
/faM1qRJk4LfjRkzpjVkyJDW5z73uWDbL3/5y62XX3657MMRQgghGgn5im3b
NO2MM84oe1hCCCFEAFrU8ccf31pggQU6vlWbbrpp2UMrBHS4OeaYo+tbnYe2
+7//+7+t//iP/+jqS7lKRBRh90vSttZaa7X+/ve/l30oQgghhBBCCM9ceOGF
mdcL+DmTn0sIIYQQ5bDkkkt2fZ8VjyyEEKJofvvb37aeeOKJ1j333BP4M+29
996tYcOGtf7t3/4tdC3ZFB35l7/8Zdexk9c7j3jkP/zhD119ffGLXwx+XjXw
V0/bhD+y6sjkatc1EUIIIYQQoj/JqiOTw0gashBCxIN6Y2ltZeSSEyKKww47
rOP7PHbs2LKHJIQQooFsuOGGoevGVVddNciFtcIKKzRSR2YeR+4vc9xzzjln
69FHH82lL+abW2yxRbsvNPyrrroql76yQNx0FlvEv/71r7IPoW9IqyP/+7//
e+vmm28ue/hCCCGEEEKIHMmiI2+//fZBfWQhhBDxePvtt1O/c7HTCNGLK664
ojV+/Pjc7NJCCCHEQJC7eqeddmqNGzeudckll7QeeeSRoJ6qYfXVV2+kjgzE
A1Nz9qSTTmq99dbUgTfIwMcffxzUYz7yyCODGPEqIh25OiTVkQcNGhTcx++8
807ZQxdCCCGEEELkzAUXXJBovfCFL3whsAs8/PDDZQ9dCCFqx/Tp0pGFEEII
0VyarCOLTqQjVwd0ZOLWX3nllcBGtP/++7d23nnnIL/Aaqut1vrWt77VGjFi
ROvUU09tTZgwoezhCiGEEEIIIQrExCPjp3z//fcHeTFHjRrV2nrrrVvDhw9v
DR06NFjbH3zwwa1rr7229cEHH5Q9ZCGEqC1Z4pHnn3/+socvhKgBkyZNCuZ1
a621VmvIkCGtjTbaqHX++ecrh4wQohJIRxYGV0eePHly8K2K24Q/jI4shBBC
CCGEEC5GRz755JPLHooQQvQ91KtLYh8jF6TikYUQcfjrX//a2nfffYP3BbZg
6nCuvPLK7XfIl7/8ZeWTEUKUjnRkYXB15N///vdlD6mxSEcWQgghhBBCRGF0
5FNOOaXsoQghhHD41a9+JR1ZCDEgEydObC299NKBDXi33XbrqIV57rnntt8j
n/vc51qPP/54iSMVQjQd6cjCIB25OkhHFkIIIYQQQkQhHVkIIaqLdGQhxEC8
8847ra9//euBRkwNEhfqR84+++ztd8nGG29cwiiFEOITpCMLg6sjT50qHbks
0JG5BkIIIYQQQgjhcsEFF0hHFkKIitLPOjI1XJ988smO9sQTT3T9bMKECWUP
VYjKgg1+nXXWaX32s59t3XHHHZF/N99883XY6qnVHpe//e1vXc9lWOP5ff31
130clhB9B3GWH3zwQdnDqARF6MjTp0/X+a4BdYlHnjZtWuv9998vexi5UnY8
8p///OfKXn8hhBBCCCF68fe//731yiuvlD2MXFE8cn8yZcqUoA6rEKLe9LOO
/K1vfavDdhjV5plnnrKHWlmYp3z00UdlD0OUyMEHHxw8J+PHj4/8G+KRiVW2
nyvyYMeFuXCcZ5X2ve99z8dhCdFXXHzxxUFOgDFjxpQ9lEpQhI48ZMiQ1gIL
LNB67LHHvO87KR9++GHrf/7nf3LvB0121qxZwTu/LtRBR7788stbc8wxR+u7
3/1u2UPJlbJ15H333Tc4z7wvhRBCCCGEqAuvvfZaa6WVVgrsbh9//HHZw8kN
6cj+4X5hTVwWRnfaeuut5YcvRM155plnpCNLR+4AH6HLLrus9c1vfrN9jr7x
jW+0jjzyyL6PlRGdUAMZm+/yyy8f+BREgW+Z+1y9+uqrsfuRjixEOlgT7LHH
HsGzsdhii7WmTp1a9pAqQRE6MnXg55xzziBXw6mnnup9/wPx7rvvtr7//e+3
FlxwweAYeVevu+66reuuu85rP+jT5513XmuttdZqzTbbbEFfX/jCF1o77rhj
6yc/+YnXvvKgyjoy31W0Y8a16KKLtt58882yh5QrZevIvB8XX3zx4HyPHDmy
r21wQgghhBCiP7jnnnsCuzVzWHTWfkY6sl8OOuigYA3P/fOzn/0s1T6we5x4
4omtp556KtX2aAz77LNPcF2XWGKJRDFHQohq0ZR45HnnnTewX4W15ZZbruyh
VgZij7fbbrvgnHFuxo4d2/rP//zP9nlET5w+PX6+YlFvdtppp+C6DxRvd9FF
F3XY6clxnSRnyRtvvBH5fNK+/OUvS0cWwgF9D32U52KhhRYKfJTFJ7g68iab
bJJLP7wb0VTp4/DDD8+ljzCef/751iKLLBL0S92BQw45pDVo0KD28f73f/+3
l7xRkydPDvze2Sf97bfffsG8YP7552/3dfzxx3s4ovyoqo78j3/8o7XVVlsF
YyKu/Xe/+13ZQ8qdMB2ZWPobb7yxteuuuwZ+EKuttlpr2LBhwb+pj5bEJy0O
aMlo9pz3zTffvJA4fiHKhLXdscceG7y733vvvbKHI4QQQogE3HLLLYHfMnPX
M844o+zh5I7RkU8++eSOn7P+PeKIIwL7x/Dhw4M1w0YbbdQ67LDDWvfdd1+p
8bZV5a677upYB2+88caJ93H77bd37AMNKQ3YJoz/NPqMtOR68M9//jO45mef
fXbr0EMPDexMBx54YPAs3nzzza233nqr7CGKgmmKjvzjH/+47OFUHmrUkqeT
83X00UcHNk7gfb/yyiu3z+W2225b8khFEWBrx97LHG0giEuz5xb4HviEb5V0
ZCE+hfmc8flhHk5OAPEpdj6NvOKRDQ888EDr85//fNDPSSedlFs/BurEf+lL
XwquO3XjDWi+9jHfdtttmfq59tprgxzA+AVdccUV7TkBPPTQQx19XXPNNZn6
ypMq6sjkBTffza985SutSZMmlT2kQrB15GnTprd22223th/GF7/4xdbgwYMD
H5Blllmmfb34e9513N++QJv+2te+FuyfffM+FaJf2WCDDdrPE7mlhKg6zGmx
3RD7tPfeewd5MJnH4fvDtxM7xa233tqaPn16qv3PnPlO4Cv98ssvex65EEL4
5f7772+vM3/wgx+UPZxCsOORsUX/6Ec/ai211FLtuQy+zausskpr1VVXDdZR
dg5NcmhJT/6ULbfcsmMdvOeeeybex7LLLtuxD7TDtLAGNrFKX/3qV1svvvhi
6n2JfME3g7mXHdMV1fCJx1+133OriU+QjhwO3yvecUW2sqH+LefqhBNO6Pod
6zbbptckn5Om3QeGP//5z63Ro0fH8jfju2F/R84991yvY6majsx1+uMf/xjY
H55++unW3Xff3brqqqtap59+evAc4We3zTbbBHlg119//bKHK/oMvk8mlzWN
PFeikyLyWtucddZZ7b7OOeec3PohD/LSSy8drJl//etfd/yOuhP2MROnnJZf
/vKXgc2CnNkvvPBC6N+gMdu5SqpK1XRk2xebho93U0BH5pivvvrqYE3KfHKX
XXYJzsFf//rXjr994YUpwe/MeeJ+85nHDx8M6sux7xEjRlRq/tVPULfk3nvv
bd1xxx21bdhR6moXueGGGzref7vvvnvZQxKiC3x7LrnkksC27K4pezXydDK/
4zmNqxv86U9/CnLRsT1+gE2Fug4///nPW3feeWfp79i0jbGTa5WcC3nRRBuQ
qA523ivssT5yTdUBoyMT88h6lv9m/Ut8suv/QywUNRntb8faa6/devtt5dDE
T3auuebq+G5eeumlifZBnUP328vcPgt8f0z82te//nXl1KsY5D4nlsxcb+q4
kdvvgAMOCOz8V155Zeviiy8O8qWvt9567fU0jbwJzOWapBc1EenI4eD7GncN
46uxFuIZXXjhhYOY3x/+8IeBLdeOAcoLvg/YjNG9wrDfIzRikZoAtR+Lvg9o
zBd5HpkDmTwtH3zwQdmnIxR8yNzx+46tqpqOTOxd3GuJ3VwIn+DrZ+4v6uOK
borWkWGHHXZo94ffdB4cc8wxwf6pJeDy+uuvdxxz2jkddZeZhxDv3Cun8Nxz
z93RH/UJqkjVdGSeWTMWnuUmYXRkGvaeOPW17e8/bdy4cd7GQ25As9/999/f
237FJ3B98RUoYx7tu2EjcX13qg454+1njpYmn6EQefHggw8GNshezx5zGeZ0
+OUSV8U9TM4K993CvIV8Lb3AX8nYNHimZ82aVdCRVg+7blndWxa/ySieeeaZ
QN8o+ljwmaN2KDZ75iXkM27yfdpknn322XYcIO+3JtWlMDqyaaNGjeryN3Uh
j4Vdd4nnt64+gL5AS3DfMUnrKOHjZW9PDLEPsFuYWHLiyP/whz942a9ID34q
1MEx8yu0fvTigb5BM2bMCLZDyzL3CXakpsW64A928MEHBxoOulpVG7UAmONk
oZ915DXWWKN9bHXQkaMauf6233771m9+85ucztSnOc9+8YtfdP2OuFTbx4RG
nEgTKEtHDmu8z6kBct1111UqB6M7z2P+5ttXsmo6MrFUca+bdOTqw/NEfRZ8
Wf/rv/4riIFDEyTnKjVAyO/L+7cKdTTJI2TuLb5xytsUThk6MnNsU6OYeXRW
X10X1sLYl7Cfhl13/IvtY6YeRRo23HDDYHu+NVHg++3acKPilsvG1ZGnTi1P
RyZ+xoyDe7QK75QiMZoW766ZM2fG2ob5hMl/ZprPmH/8Ns1+mxQbXgRHHXVU
6XNnn81nPHwRHHLIIV3HUOXcESJ/sNs++uijpeoRfJOZX9g1s+yGbrLFFlu0
zjzzzKAWZtSa8i9/+UvrkUceCebrxk7B/5MbKqpf9mv6GTp0aJ6HWXmoWVL2
O9VXIxbCt22EfLplH5dpzP2//e1vZ7b7ivrAmnLxxRdvv9eeeuqpsodUKMa+
yLEn8c1Gezd1pGnkYyZfV1M57bTTOt4laeyS7hrMZ41Lcjoae8JWW23lbb8i
OcQumpgI6qf1sgNFQfzBsGHD2vcK1/bwww/PYbTVhG902fOFuA19JQv9rCPb
8cjoAEkgRw7fLxo1FsihQY7fddddt0tTdRvfrp133jmok3jBBRcE+zD/H9aw
hzFXHTlyZJBnibjkqH2Tz4Q8uj4hNwj7Zn4ahq1b0FjfNUW7mDZtWvv6nX/+
+UHuUvI38J3DF2ug5xOfZ/Ick/8h6vqbe4P9E4NOfNKaa67Z4c/jNuqDXH75
5ZWwQdsxeDRqDfqGHBpm/1XQkXlmuG7YOMi3Q90uvrdh10o6cnWhrhrx/nz7
4nxvib/ca6+9ghxTZeSVIj+TGSv+m1OnTi18DHWhDB0ZnnvuufY3HBulz3wi
RpOJqknEN9w+Zu7VpJD7Is4akVyI7vPxzjvvJO6vCKoSj4xuauYNPL9N9JGn
bjm50pP6nJMby54bYzN+6aWXvIyJXC+mVjJ29bT1NkU3xI7ba8yVVlqpds3O
u8Ccry7wfJh6inbrt7W+iAffZzRUY6+dffbZg3VMkbBmZa272GKLRa6ZyTOd
xsaAPk6cstkXa1N3P3Y9GJrP3BZ1xOTKpeGfWPa7NmkzuclN820TYW5w4403
tm011H3D7ooNKOzdahrxH/vuu29g0+ll/3N/h72ReT42hV7rUuLI4/rhifrC
Gs5cc+zETQN9Me2xY1PPuh7uF+zalLRdd9018T7cWhNnn3221zGOGTOmve+6
+Wv2E8bejs4wefLk1Pux876Yduqpp3ocaXVh3oD2wxyUOFD+n9jfRRdddMD8
XMwriBnEBmdvP1BDe2FeQg4T7J/MQeLYtY888shMx9oUHTlpPHIv8Adz8zna
Db+fLFDjhbzRm222WWQffBN85X7AR4R9RsVhuOPYc889vfRbd/DlJmdB1DXC
FyeLbyx5EXiHo1NG1bbnnYSmVSbG/moaNgLfVC0eOQzye5OTxb1G0pGrBzVm
yS3r+gRx/dA5yPexwgordPizug0bBvU1iwLdmvmB6T/PGrz9QFk6MtjrIfwU
fMD1xy99nnnmCbWVYSN272fidJLCeWM/2GR7gZ+c3deSSy6ZuK+iqEo8sh0H
hX2xieCb9/vfT0u1rWsLYV3mCzvHCPl5mlJ/Lm/sHO7k+qgjdu7XOj23PB9R
85cq+KCK4iCvGDFZ7n3At74o/y/8GkwtRLcx7/BRp5h1M3Yxs19sogbsem6/
1G1vMraOPGXKb8seTmLwrbWvJ2u7ojAaV1jDHzMrHAs1tNy6BLZtQbHJ/Qt1
v821xl+iKfE7NthQqSWSxpaKrd5+XtBvyO/cNMJqI5N7LwlhtZGzaIxh/OlP
f2r7zqCB0acoluuvvz44/+SCZ62eFa4p9RnsZ/DWW2/1MNL6gt04at6AzdlX
rCjPPTkCyeNg247dlrROuot05HS4cT928xkvTJ1ZfKrCYqCZQ06YMCFzH6zf
iKUkT6ULcTuu7wRxSOITyPcQdR/41DvJx3LiiSd2abbmvVOWjw91SNzx5JHb
tA46MhifDPc5FdUBvR8N2FyfwYMHB/U8wuas5My7//77O2Ic3Ebu6yLqVuGn
bvrEHtjENWUSytSR7fUQ308fvj7UMmJ/I0aMCP29m7eKeJ+kWph5n5NPZSBc
jeK73/1uor6KpArxyNQWMv0vvfTSXuPUm4L9DjSNegQ+4Fmxa+FE5UUVyZCO
XA7YaqLmLDTlMmkWrB+j7oWf/vSnufdPfFFYfATz7zy03B/84AftPq666qog
dsrtm7kZ+nqTsXXkOtrty9SRo96x+Pf79EMjZsTOEWo3Ygx86zmifPDtsXMe
ElskkuPGfBG31zTCcuwmrY1M3gR7e+7NPHxt7dpc1LyQv2NxYP8hDyr1E/Dd
8IXrb8Wc4/XX3/C2/7qB7ScqrzG+8nnBe2DhhRfu6vPBBx/MtF/pyOmgfnbU
miyPOsY/+9nPQnPcEP+eNS4NLTrKzo2+YvdH7UfxKdSTjroPWMf65t133+2w
ddoNW1fRa+Ki5hZ10ZHD/JOlI1cH5knmPYr/BTnKiF+IA7GdYX4cNGIs8ozp
II7DtsH58HXvd8rUkcFeDzF3y1qbifsUX9Fp08Jz7pq6zKbx7U4K/ovUABko
1wnzYDePf5oaOkVRto7Mmt0+X3fddVeh/fcL99xzT9e71+d8gLWzyZ3N3Nrn
Wrqp9JuOfMYZZ5Q9nAEhn9wiiywSuTahNTEup8mQZyfsPkBLfeON/Gx6rFm3
3HLL0L532WWX4F7NA+ZL5PijH+bOYbkEmbc3nbrryNOnl6cjk7c67L7Ow6eS
2LCoPNfkKSKPpugfzLsrb22h31lxxRU7nhU0sqbVSfZRG5ncuq69OQ/4blMP
zPSD1iKKYZtttgnOOfkYb7nlFq/xMRtuuGHH/dNEfw5DWE040/KuM0MuPnIa
2n1iF8+CrSPPP//8nkZaDfLUkW3biNvysj1Rtxzf3bA+7dxNvuB9jl+l3U8T
63P0AltM1H2Qh44M+GeNGjUqtE/uD2LhisKdW/DvPKiLjozW6F4T6cjV4LXX
XgvqcnJNsLGmyUlNrl/y94Y9e/w8r7qati960XpoXSlbR0aTtWsA8g7LCzdP
DjbTPOPN3HxhtCrXlC1bR15zzTXbfZMzWaSDuBv3viO22yf2nAbtRWSj33Tk
OsQjh+XFcRs5M0VziMprFyf3SFqIcwjzvfTh/x4H6ifYOqnbDjrooNzHUHXq
riOXGY9MPemw+8q3vdFg195w29FHH51Ln6J48OU115W4NfzIRTqoM+4+K2hk
TcJHbWQ7Nj7veTD1LUw/+PUq30L+YBNxY2SZG1x55ZVe9s8z5z6HPnP31onj
jjsu8jteRG0Rnl27z6z+AopHTkcvHTmPeGQDeVaj1oNZ6zK7kEfF3j/xezNm
zPDaR90pQ0c2nHnmmaH94ktUxFqKuGN3bpGXL01ddGTyw7nXQzpy+eATY7RY
4gLJbZ0WbC1h+flo6667buz45rgQu2j3oTiieJStI8O5557b7n/22WfPTdul
9oV9rORhzxPi+O3+fGt5vilTRyYvvt236oKkh/WO+87FZ8JnTJubA056Wzak
IxcLuQ/41jDWXjWxLrroorKHWigffvhh65VXXil7GKXx8MMPd9kJ119//dxq
stx8882hufsWWmihwA+tKMaOHRv5DCgviHTktMycOTPyvvJRVzIM4iixw4X1
SYxRXrH9ZUDOI9bpaeri1hmOm/hyc11Z24n02LZD04488siyh1UYedVGzjtX
0worrNDuizqiIl+OOuqo0O8KdRN81NDj20TObNde2kSYd4ed6wUWWKCQ/omH
Mn1+5Stfybw/6cjpKCMe2cB6eLnllgu1p7F288V3vvOdjv2Tm0p0UqaODFH3
4Y477phLfmkb6iC7/ea1DpWOLLJw1llnta/H5Zdfnnl/559/fuRzj6+ZL3iG
V1lllfa+0UZFPKqgI3/00Uet+eabrz0G8kj4hnx2rl/DjTfe6L0fGzdH0d57
751rf1kpU0e270Oe5SaDTSPLvMS9jnnNuddZZ532vrFn+PYNahLSkYvFxJ4s
v/zyrWeffTZynoLdqCnw3jG2+TT1HvoF1qtjxoxpjRgxIqjtmpdGQ+xJmIb8
jW98IzeNLQr6C8tpzc+KzN1VVaQjp4M5dth7lbxUeWLbNd1WRJ3zojDfMWxZ
TQL7hH1NsdE3GXT1LBxyyCFdzwm27abgozbyhRde2LH9vPPOm/ua6Jprruno
kxqSIh9Yk3/961+P/K74qplg8mbbrej5YNkwP4mKQyryW2dyDZP3PyvSkdNR
dH1kF/yq8RNx+6b2g494F2oakXvK3vcdd9zhYeT9Rdk6MnYAfHrC+h83blyu
fbtaGvnL8kI6skgLfjdzzz13cC181eRgbePm/DeNWCBfeRt459r7Jt+ViEcV
dGSwc4xiW026hhsI9z2Mbp2nLY26Cm6uSOo2VxlXf6RGTBHce++9Hf36yhFV
N4ij2W233QLbPffOySefnMoOwTZh79w0NQp64dZhvuGGG7zuv0lIRy4OO3fJ
Y4891nrnnXci1yejR48ue7iFYa/T0NdFfkRpyOSuKisefLXVVusaz0orrVTK
WKpG3XXksuoj448R9l7NozayDTXsot7p5AnqB8i7SD5bjgk7ZFYtsS5wnPja
mOvZ5Loq2D7IXcF5WGONNVKvm8ePH9/1nDSpNtipp56a2R6JvmXvo4j4YJ4F
xmr63GijjXLvs6n88Y9/jPym+Mw1F1Zvh7yqTeKJJ56IPNcXX3xxYePgHUif
PuJDpSOno6y81jauj5BpzEP+9re/Zdr36aef3rFP6or6yG3Qb5StI8Obb74Z
6lNgbEl5sd1223X0lacvjXRkkRa+zVwHNAzyefjCjnF2m6+8SawjzT7x00DD
E/Goio5M7KsdD7Pvvvt63f/KK6/ccZzkccwTtxYzrer1LsqKR7brIjO//vjj
jwvpt2rsscceXfcM/uZJwW8u7H3r21cd/+xFFlmkvf8hQ4Z43X+TkI5cDLxb
TMytqXmL30VUHtQm5Zf62c9+1rE+FvlAjHOYhoxWSVxUWRCD7o6JNaWov45c
Vjxy0bWRDcQHRK07++Wedv2f+ilfdy/sushF3EtV5eWXX277EZi27LLLpvI9
PfTQQ7ueE2omNwW3NjK5SJJCvl17H+ecc04OI+3GzbWcd67XpsL7lRjEsG/K
1Vdf7a0f9uXuHx+RJnH88cdHfr9feumlwsaBL4ivNbl05HSUmdfagK3LtZWb
dswxx2TatztHxqdLdFMFHRlcnzPTyMmYR+4y7r3555+/o688661JRxZpMbEI
+NWRi+yRRx7x4hNj15hwG5pvVnsG2khZ75N+oCo6MthzEXLa/OEPf/Cy37C8
pZMmTfay7yjcefCgQYNy7c8HZejIzz33XEefeecHqTLU7nPv0zR+Z8Q1h71v
Z8yY6X3Mbs6hfsoZWSTSkYuBNR/jw6d0+vTp7Z9H5atbddVVSxxtsUhHzh/i
x8I0ZFoanyGf/OQnP+ka0+23317qmKqCdOTk9KqN/Pvf55unc7/99ovsmzlL
P9BUHZlvsjlm7GtN9Rt345hMe/XVVxPvizmnu59+8bcYiLDayFdccUWifVCj
vNvGMCmnEXfywgtTOvrdddddC+m3iZx99tkd55q5nO8aME8//XTXvUSMxaxZ
s7z2U2U22GCD0HcbsZpFYurWkhsuK3bufOnI8alCPDK4NQRMY23wxhtvpNpn
WNw9/mEuPPvY5u+8886sh1FbqqIjU+fJzTVq2nnnnee9v8mTJ3f1w3wjL6Qj
izSQ0zqsNtrCCy/ceuCBBzLvf7HFFot8/rPGyBFTZO9PvpjJqJKOfO6553aM
xdf8fJ999unYLz4TYTz88MNBTWMf+vX666/f0Sf5/apOGTryyJEjO/pkrtBU
wvKlpNEUw/wmqC+QB+7cDr9+kRzpyPnDWs/M/7HB2oTl9KWRM7IpSEfOF3wq
XXu1aTvttFPZw/u/8b3RZbt87733yh5WJZCOnJybbrop9F7PuzYyrL322pFr
zjxsPWXQRB2ZeoT2MY8aNarsIZXGSSed1HVvk1clzfp1k0026drXddddl8Oo
q0dYbeTXXnst0T5MPj/T0ImII3Ihpz72CN8st9xy7b7RNptWT7dIJkyYEFzH
M844o/XWW29533+YbkBjXd8E8AuKqo1sckgVhdGRfbwLFY+cjqroyMyvwmI9
aNg+0uDaP4cPHx76dyZHAfldm0pVdGTYZZddQsfxla98xVv8m8HVRch7kifS
kUUaHn/88cjnk+/5lClTMu2ftV4ea3r8QuzYDnKsimS4OjLrybIg77Ptz+Aj
hvejjz7qst1SKzkMagvxe+wzWcBG5/orEeNfdYrWkanvRl030x+aTdjauyms
uOKKHeefevUvvPBC4v3cfPPNXe9Z5qt5YfsJYceijpRIRr/pyNhYqobJUTZ4
8OCuWpLkrw6bnzC/SJMnso5IR84PYp5sW4vd5ptvvta7775b9hCD7789n1aN
7E+RjpwcatOE3e9510bGDh0VL0ALi/eoIzNnNk9H3n333TuO+a677ip7SKXB
mtK9t9P6K+Pb4e5r6tSpnkdcTdw8laxhks758AOz97Htttt2/Q3vXPIir7TS
Sr6G3ua4447r6L+KfpwiHnyfwr5bTcnfH1YTzrRLLrmk0LGYdSFxo1mRjpyO
qujIEDWnpSWtSUSMsesvcfnll4f+LTUm+H2T/YPc3LN2K1pHtm0lbvOdU5O5
hL3/vH3OpSOLNJDDJ+qZoB1wwAGZ9n/mmWdG7pt1YVr4Xtn72n///TONs4nY
taVpZcYjwzrrrNMxnqy1UNxcJHy38T9wMT4J6667bqb+ICxXCTn+qk7ROrIb
r5KHn3adGD16dHAeyOlE7fjf/e53qfYTNu/Os+7mIYcc0tFX2flZ60i/6chV
s2Pdf//97bFRs8PFPHthLY988FVEOnJ+9Kr3VqX3JXkDzbjIDSw+QTpycqjV
WoY9nLxCUc8aPm/9QtPikfHFwefGXsv1+zH34s033wzOA+cE+/YNN9yQyucN
Hya0U/tewueuKWy22WYdx06NkyTgk+jWRiaGyOXRRx8Nfrf33nv7Gnob7CR2
/9hRRD3Bdzzs23XEEUeUPbRC6DVXfuWVVwody5AhQ4J+eddmRTpyOqqkI4fl
rkhrt3H9wFhjhM1neLfzfV5vvfV8HUYtqVI8MvFOUXl2WUP7qpNMP7wr7P3n
7UsjHVmk4cILL4x8PmlrrbVWpv1feumlkfveeOONU+93hx126NgX9d1EMqqU
1xpcv1p8hbOw1VZbdewvKi+OqZsZ5Q+WBPJx231iT6sDRevIbm4QtJ4mY+wM
WfzNmHeQl8E+r+R4zJOHHnqoo78wX3zRG+nI+YFmstRSSwXjIk9ZGEcddVRl
1qplIR05H7A9RNVExmeoStjfjltuuaXs4VQG6cjJcDVOu+UdU8GaMqpv1qL9
QtN0ZDdvWpO0zijWWGON4Fy8+mqyPMw2F1xwQddzQkxgE2DN69YTYq6YBDee
mRZWn+mwww4Lfof9Mw/Qv03/ygtVX6jNF/btakrd66jayEn9O3zw1a9+tTXb
bLN15a9Kg3TkdFRJR0YfjMq5Pu+88wa5cOLi+ktgqw7D1O4M839vElXSkYH3
cdR4fNmyJ06c2LXvvPMpSUcWaYiqY2Ua/ppZ+NGPfhS577R+k7yv7XzF2Hl8
fOubRtV0ZKOlmcY6OQtuTERYfun3338/qHuBf9Hf/va3TP0BfmN2n/iK14Ei
dWT6opaE6Yv81h9//HFu/dUF/F/J7X7PPfek2v7OO+/suIbMeV988UXPo+yE
/Dx2PAN2GV3LZEhHzo8TTzwxGNOcc84Z+U676KKLcl8TVB3pyP6hrsbSSy8d
eW/5yJfnEzuuKmt9j37C1pGnTJGOPBBl1UamhmTUs0aedl9xAlWgaTryQQcd
1HG81KRtOrfeemvbjsKaKik8DyussELHec0jXraqhNmmWZfGfU8wZwrLoe/m
PCNOfJlllsnVp9zNrV2lPCciPvfdd1/o96sJ/tm9aiNn0dHxrydWBC03Lh9+
+GHQry/9up91ZOPPRPOtIx988MGRc7oyfLyHDRsWOZ7bbrst9n5OOumkjm3D
Yqbw58IeWHRd8CrSS0fGR6tosHFFjcdX7ulzzjmnY7/Ufswb6cgiDcx58buK
eiauvfbaTPtnvRe177TxGG4MHP5QIjkLL7xwx3lceeWVSx0POq5dMxdfwCz2
TGph2scXFguBbsPv7r333ixDDwirjUy92jrg6shTp+anI7v1JfBnEK3Wc889
F8Su4deQNK/1Bx98EOg/9nktKv5m1VVX7ejXx7PUJKQj5wM1/oxd4uSTT478
O9f/wm7U/WgC0pH9wzos6r6q4pyV7w5jq0sOlaJQPHIyyqiNjA3a5KF0G9eP
+mr9RNN0ZJNTpEwbchUxNTwPPPDAxNu6sbSsl/v9PrI55ZRTQt8XcXLb/fzn
Pw98E/GbtW0WvGtcsKHxu7B8175w48qZj4tyIBac/AmsK/D1YD1MTmb0zIE4
66yzQu/JqHjFfqJXbeTLLrss9X4feOCBYB9J9Dh8SbbffvvgHeGDftaR7Xjk
rHqBS5XikYF6P1HjoY5xXJ5//vmObXnubVhnEOM899xzt2bMmOH7MGpH1eKR
H3vsscjxMAf485//nLkPUxfbtCx1YONCHVvTX5E6Mr523OevvfZaUEfgL3/5
S8+/l45cPa6++urQ54H41DQ1d2xOO+20yOct7XPhvsvTrKGaDL52Jpez26hn
7SMuNy3Dhw/vGE+WXNPuHIRaUDbGp2ibbbbJOuyAsG+L22dVKTIeeezYsR19
lVmLkbXdH/7wh9brr78eHDMxZGVifNDIMUp8fhyIqR86dGjXc1wUvH/tvqk3
K+IjHTkfyGPNeIgJ7ZVzCo0hao5ywgknFDji8miijozvDe99dLas81yX9957
LzK2gpY250SeGHv4mDFjyh5Kpai7jjx9erE6suu/aVqetZHdOYhpxHMQH91v
NElHJgeAa6dLE3/rC841Psl8O3jPlxnnPnPmzCDOn/OCDTDufcC6mmfDnFPi
9dlX3rBWwU741ltvebG1ZsGtjWwaOcV65VS6/fbbA/v+/PPPH6zR7PpZnFP7
uLhPuT7kz8vzeCdOnNRxDGjcygtVDFxX1u0bbbRRV61suxHrTnxlL9tKlA9W
E/wCetVGTupXb2P8OV2trkiaoiP3c15rwK88ajxzzDFHonmJ/f0hpg4bBXNz
/I2I7eMbQ8ycqJ6OzDvfnj+5jTlCFtBRv/SlL3Xss4jceEXGIzN3OuSQQ4L5
lltfhHNLrpz9998/sE25SEeuJvjLYT/C75frShyxD9uaW8fYbmeccUaqfbpx
d9dff33mceYBuezxW+VbQL4aH+3hhx8e0FfDwN+vueaaQUOfJW6wV+y5/Qwz
H15ttdWCnCVmH0XkYRw3bpy3+TPrVTv/OflLgTXsXnvtFRwn58WX1utq88st
t5yX/RZBkfHIxu5hWtE5uJir8Wzss88+HXWlzL2//vrrBznQk9Q7iQPfQ7SL
gTD+DYyF73qvdSfzFbuuJd9jagkUicmvZ1oR+Vf6CenI/iGmxIxnoLUY34Oo
b2GZPi5F0hQdGZs/73bW7fY6kGMm1xi6gA+OPvroyHuK9VGc2JQiYU5pxsf7
XHyK8lrHh7l01H2fV23kqJxXPN/nn39+Ln2WTZN05NNPP73jWLPWO0rDq6++
Gtgr1l577Y46LrSvfe1rrUMPPTSIpfAJ8xJyFA0E6wNTP4H/J/4uyp49c+Y7
rd12261j/JtssklXLmZf8J176qmnWuPHjw/1L+FbiN08zrooCeS45/xFwfmx
bQNuYw3InMjYwFgLklvM1ALDbmDWZWhc3ANmW9ZsbMc53WKLLYKf5RmLDPRn
14qiPfjgg7n22XR4Nsmx4dr7V1pppcCOdd555wX+GnyD8J03dg/89dBMw9hw
ww1D78cm5LaNqo2cVR8w70ZiQMtCOnI6qqYj8y3rZTufMmVK7H0Rs0Ksnm27
m3322YP/XmKJJWrps5oXVdORATtn1JjQAsIgZhMdBp2N70MUrv1glVVWyeko
OslbR+aev/DCCwNtxD4+fO6ZK1FXBe2YXBB2vlw0yQkTJrT3Ix25OWCzIzdD
1LPGvZAUYgfd/WTxVfMJY+M7Spx1r3dM1sa3Js4awfWdYv7KtypOw5+VHLv2
9nfccUfu59CNjc9q02Y9abRz7EqstciXzb9HjBjh1aZGnSp77HXSIIqKR8Yf
3b2ff/vbfGv42qAfL7744rGeM+4bclP5wNSJxx85DvhsMJc0Y8Gn46ijjgrW
pMw/0BsXXXTRjvESV5+XrbYXXD/33Km+ZnykI/vlH//4R1CPjrHE8UPiGxD1
DmhCXTJogo6MXdfY6ZgLsVZh3TRo0KD2sfNOJR96FtB0sBVF3VN5xmWmBXs/
Oslxxx3nPTa77tQ9HrlIHRmtJeyez6s2clS+K9YwzPX6FfRA+3j7WUd2fdGL
zD9GjlrjczzQeoG/IQeKj2uBbskzg2YdJ0cSOcbsWEbsLiNHjgzyEuE/jY8U
Oo2dgxntM0+f00mTJnVoDL0adkTG6IMXXnghsF3g+x5FWA4a8hagH9t+AozL
1mfxO8ZGzBzTBk3Dzr3O+8fYT/imFoGby61XLReRHnzu9txzz45zTWw6a3O+
tb3gPjF1oMK0ZNsn3G5x7QZ1pVdtZOx0aTH6LfPxMn03pSOno2o68ksvvdTz
O3bDDTck3if6GH4mzB14r1Bn2XcMS92poo6MD1wSu5Fbe4IWVrMdX3bbx415
ZVFx6XnqyI888kiXzZp3Bzb2qDkzzxvzWDMnM3UGpCM3h6effjryOVtwwQVT
5YNy7x98AcsG+yTzPLc2bp4Nv42B4NlE22aNmTb3FvrirFmzgjiDIvJdh90z
ceOvo2Dc1113XfA+4lvN3MT3HIQcUu71r1NcT1E6MnWD7H44Z0XM73kO0FmT
Pmd8v6688spMfTMnNDkUmA8l2Y55+VprrdVh/7HnF9iauJ/JJ1EWjNON0YhT
Y0x8Qr/pyGnzjPjC1P3DLtErJsVmvvnmC33+sc01AVtHZq7fb0yfPr0dD4K9
nX8b0NVsvz/+Dn+ntBB7FPU9wTepzJysIjl115GLzGvN9yvsvvddG5m8cuwz
rC/iVV98sTjfxDJoUjyy8Qkz7aqrriqkX2o99vIHimrMGbLG9xqb47e//e1E
23Hf478clV8X+yTxx2imedmq0Vixh7hrgjgNO2bW9aCZi/aK93FrQ+NbbMDW
QY4DbCw77bRTa8cddwxiZMgrOZAdhXg13oHYkfn/OPHkviB+wT6mJsSwFg32
CzsfIjEJ5HFM8rzzfFD7yV0rYaeK8lfhfuxnyNsY9U4gHiYtJndw2f7Ato6M
z0E/UZaO/Otf/9prX3FA4+v1/TrssMMKH1MTqKKOTIxs1Jhcv1l8s93clzR8
BmywDZgcJqZF5a7Igzx0ZL5rfCPtY8LPDr+ruHM94vxN/Ncee+zRkW/QNOnI
/cmRRx4Z+ZyRFz0N1Liw98Masyywx+AP7+YTKqKVHfOVF2HfadZmVYdc//aY
WQ+gXdaFonRk1va9vrd5gJZkx5ylaVnyIxqbUJa1DO8aYuvvvffeoLbmk08+
WXp9MRs7drqf30950G86cpnXHn3Q1FpJEgdCfcCw575fY3Nd+jkeGXv5sGHD
gmMj/2gYbq5P6t2lATvzYostFvkdwZdN1Iu668hFxiMXURsZ//UwmwwxmJde
emnlcsbnQVN0ZGxQbl6sNHnMksLcIct6gbx9aX2RuJb42aPDJsmT6fL7308L
7G133313kL8MX9O8nw3GbufqTNPQQ9Ni9Bpig3vp5G5tZOLA6s4JJ5zQcUzM
aYUfuJdYp5lcdjT8VKkzlwbsLeTI591mfBrRxaKeiSLeeWXi3rt2S1svwI5J
6eVTUgSKR05H1eKRWd/1+nahAQr/VFFHJiYtakzY/+08MsTyuX+DbsTPDczN
sA/Yf0POtCLXM751ZOaD5Hixj2meeeZpPfPMM4n3hX+fqSti/t9u0pH7kxVX
XDH0GSOGOK1O5eaT2XjjjT2POh4zZsxoDR06NNN6KU3j3OGP0c8xLW5smKlr
XGXcegbkvKgTRenIxg/XNL4xeUJeDLvOQto2xxxzBPXOk2JsQqwXfddPqxKb
b755x/nKYgtqGtKR/UH8CGPAPyWJXhJVl4znvgn0s45MHlSOa9SoUZF/s8su
u3Rcd+auabjlllt6fkfS5D0T5SIdOR551kbGZw7fDreuFo1coHxzsuYtqhNN
0ZHxnXSvd951rMz3ImtjrZMGEysbJ+dYlaDGcdw81gM18uOnYaONNgq25zsc
RVht5GuuuSbtYVcG8p/Zx8SaU/lRs4MeYO4r2w7HnDkL2BPQG1j/Qa88Nllr
rVSdqPUX3/Y04H9j57Eg132ZSEdOR9XikaFXrU78l4R/qqgjMz/rNYdx67Hb
ebCJdbBzVXN8tt5KXVFqkqTNI5sWnzoy3811112367uZJCenC+vAqLqUVdOR
sfdTW6nODf+1MteWt99+e+TzlaUOzpAhQzr2Re2iovnNb56P1KbQQPFTIV8N
vsDEDeILTK0ady5qN55f4m57Neoo9Ku9wMat81MHbcUds1kb1IWidORvfvOb
Hf3kqTfyzXHjZE0jjylrF/KVYbch/mDcuHHBd8/2ObYbeUySYur39buu6tre
eE+LeEhH9sNjjz3WHgNx+0lw41HtljVHZR3oVx0ZWx32VPJ89po7UTvAve5p
9DbXn9hufFeotynqhXTkeETVRqYOK7YD06hNav/bbaxzeB+Rv/iAAw4I8lS7
NWNM/Vdik/vZpzaKpujI1JRx7ydqCOUFtruwe5i6MqusskqQKxifYeq0HXHE
EYH9gfs7bBs0IvK1JoE1CzYEvllvvvlmPgeZA8TMuPkYTSPuhlrF5KHH9kPs
4fjx44M5Y1QtMNZnSfMtmfkfvia9YnjCaiPX6VxHQT1q97gmTpxY9rBqDfeg
6xvBPcu95gPiYPBpwAcjKr6tqNpfZYGvA/pC2LEnzd9D/gryYNv7o5ZM2edP
OnI6qI8QtZ4qIx4Z7BpIbiNPjvBPFXXkgfwNyYdggxZkfBCwS++6667BnMiN
12UeFbcem2986shhdSQvvPDCzGNk/hZW/6FKOjLrg173Rp0a83dsCEVDLvio
PJH4ZKT1kWS/7rrj2GOP9Tz63jzwwAPtvJl2Y65y+umnd+QyCIP3IT5L7vas
HZvkT98L6hHZ5wYbb1mQm+ztt2f0/Bv8Tuz3Gv/9wgvp85GVgasjT52aj46M
n5XdD7nv82K77bbr6AtbEPfWQH7EM2fODPIgrbzyyl3PaZJ5Ms8zzzX3Q5pY
5jrh2t+I4yzal66uSEfODu8vM+fYaqutEm9PnY2oeVTd3uVp6Fcd2XwDeD/1
Isw2kKZuAPETUfdRU2pt9xt115GLqo8cVRvZZyO3C/abfo/PGoim6MgHHXRQ
1zo7L7BPsUaw+1t66aUDn/Be/j/Mc/Hb32effbq2Z06C3SIuJq8VOcfqhFtv
mIbf7UB1mGfNmtW67rrrQnNh40OSBKNnsL8kY+2X+Q5aZJb1quiEe9P1e6f5
rFV81113BfskHj7KH2W11Vbz1l8VQV+J+t5TC+zss88OcpGENd7N+Kbgz7PS
Sit11UCgkRu2bKQjp6Nqea0BvSpqTP1W+7oqVFFHduembqPWpQt6HPos7yoT
r4SetMkmmwQ1W1988cUSjuRTfOnI+AC754PYoiRz4V6EzRerpCO72kPd2xNP
PFH4Obz++usj37FvvPFG6v1Sb9bdJ/drUZBHI8xvjnyJSdbx5MQOi2f24avR
D+y7774d56WMdR62NtbyZl6K/hili40YMaJjvGgqdaOIeOSwde5ll13mvR9w
c0Tx3Ul6TNg/3HsxSb5y9DS2Idduv3P11Vd3XVv0+LrC80CeTvKi41d4xx13
BPYDYimee+45r31JR84Oc3D6RvN5/fXXU28f1h555JEcRlwt+lFHpgYPx4P2
RJxCFOR6ca85/k5J/WDwJ+s1F09Sr1v0Bn9NvufEW6HhoB3wDOMH7DuXZ911
5KLikcNyTtOYR6OPpWnEfJqYZHzT7P0OGjQoiGssy3e/TJqiI7s+xXlpKuQc
WXTRRdv94IOPtpM0jg1NhO+NPWa0ojhwDekX+yK1jOsCMde2fsN7IE39u/PP
P79jP7x34+bvMFoU9UwG+m67tZH7JVcU9yo1te1jIw9encGXD5shtjfy+vFM
Eq9BzGmecA+F5Q9M46PaC1MLYoMNNoicN+Lj2s/0qo3so1XBriodOR1VzGvd
q04e8abCP1XUkXvFytPi1LT3pav6woeOjI/v3HPP3XU+fNYOOfzww7v2XyUd
efLkyYGWPHjw4Nayyy5b24b2zxq86Hwe2N/x4XWvMeuDxx9/PNO+seGkeVZ9
MGPGzNDvx2GHHZZqf9dee23Xvoh/FN3vCGy6RePqhzTylLtMnDipIw8yNeTz
rt+VB0XoyJwX95zaNSJ8QX6v2WefPdg/scDEFmeB3Hq2fSPOe4x16GKLLRb0
zzel37n77ru7rm3ZNYnSQL4J3vNheVNMw2/EJ9KRs4G/gpm3oj2k4cYbb4y8
3nyr+51+1JGJUeB4BopFHjNmTNc1p957Ui6//PKe68o0tnXRCZpkVC5U08iL
7BPpyAMT5uNr5l++6gKQzxityY0HYf5NvuE6+60lpSk6spvzj/i0PGC/po+h
Q4e2pk+fnnpfPG92HCOxJnHAT5G/516uC+Rcsp9HagZmeb+gBxNvYPZHvGEc
TE5g1mq9YJ3r5pMbaJs6gUZlHxu27rqBv/k666zTFdvv2hPzzG8fZqdmHpAl
DiaKMJu73dDP+5mo2shm/mDW4lH/PVArO8YPjE8rTTpyfKoYj0yNpKgxKa91
PlRRR7Y117CWtKZJFfChIxu7i/vtTJPfLQrymLp9VElHFtlAuw57pnzEHRJb
7e63iHyxzFfD8tsQ/5AW9H10JnefTc/XBiaO02694ol8QzxLmK3S9VnAbmXX
32Veiw5VR4rQkbHvuud0yhT/OWN32GGH9v4vvfRSL/s85phj2vuMk3OO+FX+
lhoRTYA5k3ttfdWQKhLuF+ODENV8x9BLR86GqW3M9zTtd8Kurew2apz3O/2m
I//jH/8IfMPRmHrpS9i8iQFzr3maGIZetZGpb1A13+M6Qjxir3czGgHX3ifS
kQfmlltuCb0eefjGokuH1TPnOWYcTaApOvKKK67YcZzYuXyDPdrsH/97ahll
hW+O0fT4Bg20nsIeQOzCJzWR6uN/ic5rzh0aso+4hfvvv7+9T2KbB4J8BOiK
xJMP9O4Pq42chzZYFm4MR9L6slWAfH29apDS0K7yAhtOmEZJHtM86DWnQUsf
qFZencHW9sUvfjH02KkdOhD46+N3gG2Jdbl7LskNUQUUj5yOKurIrq+O3RZf
fPFSxtTvVFFHHqiOD8983ciqI5M/Jkw7+fa3v+11nNKR+xfi9OzYTN/P+W23
3da17yx+w3Eh5tjtl1zWWXFzdtFYQzWdsBy5eeiaUXz44Ydd/bPGt+3A2Brs
+rnc91n8CsqmCB05LGbVd05Cctqa3F5ov77g/Ky++urBfrFVc4/0An9q/raO
Wmoa8Pl1r+2tt95a9rBSgS2M9S32amoxusflO99Av+nIcWNIfGD7L8TNHxkG
/mhR64EsdWLqQr/pyMYWPZC9MWxOyToI21RSwnwNTVtzzTXTHopwwHaIbyd5
R8hjap/nuLF/SZCOPDD77bdf6H2fh+4H+Asts8wyXf0xD/dZv7KqzJzZDB3Z
zRGdh81w1113DfZNnNF7773nbb/Mf824TzzxxJ5/+/DDDwd/Ry7duoBma3K0
bbHFFl5z31Fr2pw7bMi9GDduXPB31D0eCOoe2PcTvof9xPDhwzuOL01elarA
mpv3PHUm3bq3eWkHfBvt2AC75eXf4eZcsNvaa6+dS59VIcz/3LQ0miT3jL0W
rUpNMenI6aiijhxW29I08tML/4T5f+X9LRiIPffcM3JMtLg1OapEVh2ZOhph
52Kg+W9SpCP3J9jdFllkka5rS+0LX1xyySVd+6e+SJ6gGbjxadyvPmL0Wfe4
x9OE2KeBCNMbi54zsC42feMTb/RO1jVcI+KLzO9XWWWV1rPPPlvo+HxThI5M
/jD3umLj9Mn+++8f7Bcbo+86iWilxk+GPLhRPP/888HfJKmlXHfc+BhaP9hz
qcVlH1MeeYv6TUcuKh4ZPcn48mS1l5GfMWo9UBVbRJ70m45MTVWOhee3F/jJ
utd7++23T9VnrxiaODksRHLcnD4nnXSS9z6kIw9MVG1k/DTyghy4YXFj/Kzf
c4E2JR7Z1Y/S1q2Igvxfpo/rr7/e676BGmlmDdkLs97M4gtXND/60Y+CMWNX
f/PNN73umxhM5trsv1ccKH9HHoK4tZTtdT2NHIz9hHt8+D7XHXw73Hc8fhd5
4K73TCNPQV4Y//Sw5tMXvoqgL0Qde1ob1H333Vc5G4R05HRUTUdG54gaD62O
dQTqQBXjkTfeeOPIMeFfV0ey6sjYvMPOx0033eR1nNKR+5Ow2NqsdUldXF9S
mo8cVL3APu326ate+BVXXNG179GjR3vZd50xvtl2w85dJOjGJr6I+Fa+C8S+
UKvZjAn/dTRlNNi6U4SObOdAM426er7AjmB8BfOqm27eB71yLhk/tYsuuiiX
MVQR/Grca4tvWt1xv2u77LKL9z6kI6eDWpn0h5+XjxjxqPxq5Bbod/pNR37o
oYeCnDG94oqxT7o6BQ0/tqTgs9SrXptPf0rxCWH25aefftp7P9KRe9OrNrLP
+V0Y1A0J65u5ed5rwzJpgo4clhfK93sUjZL95hVH9NRTT7XHTgx5GK+88krw
rPDdxTeuLpic43n47oCpJdTLH5f6E/wNa644mPhp06677jpfw60Exm/BtKWW
WqrsIWWGPNP2MTFnyyPXM/OJeeaZJ/R7cs4553jvz+DmIrdbHXOjJoH8C2HH
TUx4Wp577rn2fni3VgHpyOmomo5MHb6o8dDwrRL+qaKOHOU7S9tyyy1LGVNW
sujIzNfD8hHTeCf7RDpy/4GWZl9PdLerrrrKez9hvmuzZs3y3o/Bnb/SiHP0
VecuLL467nqon0EDdM8LduGiYU1/5513BrFN5B6iJhvfB9bNv/71r73m8Sqb
InTksPh7n7Y+U5N42LBh3vbpYmLlo7QW8iPMMcccrbnnnnvA3Nf9RJjN77jj
jit7WJnBHm0fUx7+zdKRk8NzZuraklMVvSJr45kOmwNj5ykb/JrIsb7ZZpvl
0uyczOjpefXDfYL/XBUwfgh2IwYqjV8Y92Mv+0Kv/BUiHXbeWHPf+q6NDLaO
PGWKdGSXqNrIyy+/vNd+wsBXOeqZw++4LPCrO+KIIwK/wzzeo+ie9rGSzz2P
fljv4A9Yhq9sWOyPb9/EZZddNthvXn6nYGI0ouKdTQ6lOvldUk+MMVPjJ6/6
rfRhahThN+HC+ttcv7h2yh122KF9L5EDOo/vRZnYx9drnVonDj300I5j4rrl
wfjx40O/I9QozssfiveqHZtQ9PezTHj2onIEZ8kTYDSnPHKHpaWfdeQ11lij
fWy+dWTie6Pmd2XoyGExTnaj1o7wTy8dmbqjZYCNN2pMzP3rSBYd+Yknnog8
Hz7y99pIR+4vsCHYcRjMufhZHqBLuPcOddLygrW521+cGjxxCYuvHjNmjLf9
1xVqyrrnRXWj88XVkadO9a8jo7+719Wn1kodJXLr5+ljjm+Bybf22muvdf3+
+OOPD36H70GTIN+7e2195yAsmrCaz9TR9Y105OQQa9prPeezYSstG9c+WPdW
hToQYfWM067/XK2uiscbBrb6uvrDuTV586otqnjk3hgdzG1cn7yhZmXUM7fo
oovm3n8Uxx57bOnvWJ+tjDgb8gu54/A9t6CuwdChQ3N9B5577rnB2JmzuGBf
Y36B76nP2sx5wztl8ODBuefx3GqrrYJzF6bB41vO75L4DbPOvfnmm4Nt6/rd
68XOO+/c8bzUNb+mjTtPy0s3cGtkmIY/TV5MmDAh8p171lln5dZvFehVGznL
98bUTxsxYoTH0Wajn3VkOx752muv9brvqsUjEx8XNR7yovWbX1JVqFo8cljc
jN3y0sDyxtQDoyXVkflehZ2LPOxn0pH7B/wPWP+Y64i9hRjevDAajd3QL/KA
ej9unkJi9rG7+SKsTnuanPT9hp1j07Q87ytRTDwy/vbudc0zn0BesD5h7OQT
sCG3KTUyeW/koTdWGWIS3Gtb99pOJmeeaQsuuGAu/UhHTsYvfvGLnjmE82hl
5xYw+Tf7oTFP9F1PMSnogWFjC/MNisNA8chxajcWDblWGFtdc267ecXyOo66
68jTp+erIxM3FXbPo9fkDVqQfX3cNm3atNzHEEZYzaI6tzzjdaP405/+1DUO
auPUjd/+9hN/xDC/hjPPPDP43ciRI0sYWfUxGnxYfCL6Hr/zHQNXZ9w6PPhV
1xnsAyYm3bQHH3zQez/PPffryHdfnnkCwmwiNOJx6uRXkoZetZGpW58WE1NX
lbxH0BQdud/zWofpV6bl6W/SdKqmI0+cOClyPPgT1PXdnSUe+fDDDw89H8Rt
+0Y6cn+AH7jJK0njv9GV8yQsnvEvf/lLLn0Rl+L25TveAT9at48867DUBeNn
bDfyiYj8KCIe2c1/T8NWVDfIbczY99hjj46fM4fO4z1RB8JyENY9r7UbA4qN
Jg+kI8eHmhKrrbZa0M/GG2/cuummm7y1LbbYInJt4KP+chZ4Pz/yyCNBLuYL
LrhgwBb1d1E/Hzt2bPtY55tvvsTbx/07YgXI0V0248aN67rG1K1IS1h9eLvl
mTcnLcbmfOmll5Y9lMSE1eR98sknc+lLea2j4TpE+fSE5aLNg3nnnTfyubvv
vvsKGUMY2L4uuugir+9P83M3l9XZZ5+d6f0f9Xf4Sk6ePLmU8xf2Ts2rFm/e
zD///MH48ekwMJdZfPHFg5/3ex3UtFA/ivND7LMNfrq8d772ta9594upM9tu
u23H80KMbZ0hD519PNRGzsP3PMoGTiNuNi/Cch7SvvOd7+TWZ1WIqo3MOzEL
Zn34+uuvexppdqQjp6NqOvKaa64ZOR7q7Ih8qJqOjE4TNR7shnUli44c9ayi
DfpGOnL9IVaRa2auH7lz0JXzxvju2i0vHSqsVuJll13mtY955pmnqw9irZoO
th/3vJDrWuRHEfHIxrfcbsRx1Q2TS9HVHciPx8/vuuuukkZWHvjfude2zPqE
PsBGZR8PNuE8kI4cH+PDkUdMa5ifmml5+8iVjZ0DpB9q6vWCb51b95yWJX6B
uEjyN0XdP2XUF+0FuvZcc80V1OZ7//33yx5OYtyavNRGJh9IHtQ9HjlPHdmt
UW3aMsss462PgeDaRz13RcREl8HMme90HOdf//rXsofkHe5T93qSk6yOkD+b
8du+LiYfxOqrr17iyKoNdYT4TvEOtvNQm5oG6H/iU7beeuuO52XQoEFlDykT
hxxySMfxkOM6D/BTCPt+kG8xLz+FXrWR+z3/Xq/ayGH5/5Ow5JJLtlZZZRVP
I/WDdOR0VElHxn8FP5awsXz1q1/Nbf0hqqcju99ZuxEHV1ey6MjUmwg7H4pH
Fi7otvaca8UVV/Sa67kX11xzTSE6lJsHzrQpU6Z462PixIld+ycfgnxrP11f
260IP4UmU4SOTN1i97oW9e7wCeeKXFvUSTaYOkdoMNg+msaMGTO6ru3ll19e
9rBSE5b3Ni8Nod905LxyT5IbmFhZ+sgjZ/rVV18duTYgXrmfsXXkMuuKFsHd
d9/ddX3RorLmtlljjTUi75+q6TzEL9b5fePWRl5//fVz66vuOnKeea2jaiPv
s88+3vroBT4QUc8c7d577y1kHEVDrHeV3y++cHWWo48+uuwhpQJbJ+PHhmHg
ncXPyqg9XSfQ2e21It9p7gvWYHmsU+uMyfVtGhpPnTHX3jR0Zd/gUxeVU4P4
w7yIqg+MDYFcBf3MU089FfnNtt+RaaAGEbksqoStI5Obop8oS0cmV0WRhMU3
maZ6lPlSJR0Z+y7aaNhYsJ3U+d2dRUc+9dRTQ88JczXfSEeuL9QitvM6sA4q
8nsd9h5/6630dTSiIJ7Q7QefWJ/vh7BnTn7JnxAW4zBz5syyh9XXFKEjh+Ur
T1uPsmzQkFl7mnyl5LjmeOoeg5sW7hf32tY5LtutjUxscl70m46cVzwy2gT7
J+9ZHnmCqZ0QtVZBd+tnmhSPbN+rpu26666Z98uzG3X/VKleEpoT8dh8v155
5ZWyh5MKtzZynjUU6q4j5xmPHFUb+YYbbvDWRy+I24p65j5ZH5afQz8PmqIj
u3nBDj300LKHlApyhDN+o4NTJ8NoCvId7435Xpv8wuZcksNZdOLmCiYOvq6E
1UYmz7VvwnyGTRs/frz3/gxmPeO2a6+9Nrc+q0Kv2sj9+M1WPHI6qhSP7Pqu
msY6SnFO+VIlHZncqFFjSRrfQI4V4uZOOOGEQLfdfffdg1hn8m4w98W/ndoH
RZFFR3ZrUJhGDD/5J3xSBx2ZeT21FdA46tqwHfgEH4xtttmmfc2o35E2jwNr
3meeeab10ksvJdqOnM/uvZNHHuiw2si+4x3WW2+9rj54NkQryB/rfqerlhey
3yhCR3722We77vm8ahrmjfGT5h1GbWC+9+TAqpJeUCSmjpnd8DmuK25t5O23
3z63vqQjD8xzzz3Xjhlg3p0HJl99WKur/TouTdGRyV/z+c9/vuv6/uQnP8m8
b+oMR90/VXoXki+AMVEPvI6E1UZ+/PHHc+tPOnI4vWoj+15/RoEuF/XMFZlb
u2iaoiObWpem7bbbbmUPKRXGN92Mf9y4ccG/yQUoenPAAQcE58rEKa688srB
v3/605+WPLLqYc6Nad/97nfLHlJqXLs0mnLWnDFh3HPPPZHfEH6XBx999FFo
HRTyMdv525PCdyDL9kURVRu57vW8o5COnI6qxCOTCy2qbtFee+1V2DiaSpV0
5K222ip0HMQW4fuUhNtvvz3yuEzbeOONczqSbrLoyO6axG74Tfqk6joyvmC9
6pzVqa200kqBxuGDMWPGtPdL7EaW3K0mr+Auu+ySaDv0cfcY86htv+OOO3b1
43O9Rwy3a8vk30XZXqqOyQFmWh512kUnRejIU6dO7Xquiopb8Q2+8Iyfta7x
jx85cmTZwyqNsBwOece6YQ/PqyaNWxv5/PPP7/ob8lOQoyMr0pF7g11k2LBh
wb7J25cX1OyImkv1+7PdFB35zDPP7Lq2Cy+8sJdcM5MmTYq8f/hGVAHsl9Ty
Ykw+tPMoeGaxaeaR48utjYz/Vlh+Ar4NPvygpSOHE1UbeamllvKy/4HgHkMr
jnrmDjzwwELGUQZN0ZE33XTTjuPE/7qO4AfH+LG5817iHUycRj/G3vnG5G4j
1sfoMcsuu2zZw6okpu6LaXnG0wJ2wLzePW5t5KFDh4b+HWuwLPZI6i+FfT/w
kWJNkAdRNXQeeeSRVPtDXzfa7AorrBDYWpLCObzxxhuD5y3P91Kv2sh77rln
bv2WiXTkdBx88MGR87si45HDdCsa+UTQmEW+VEVHZo0f5TubRovi+3L66acH
32l020GDBnXt97TTTsvhSMLJoiMDWnrYuSFvlE+qriOTBybqfq1jwz6YlWOP
PbbjO5/VNkTuV/ZFLH8SmCu5x5dHvskwf5M77rjD2/7PPffcrv0n1dT7GXy2
7XOz9NJLlz2kvsfVkadO9a8js95z7/u8aqnmjfneXnXVVYG/Dv9NjoWmgs7q
XltqF/oE+zd+Xvgx2TovOhDzsGnTpnnpZ8qUKV3HYvIW4QPEvG+ttdZq51zD
Hki9B+aRaewZ0pF7c8UVVwT7nX322XP3TbA1I7tho+lnmqIjY2Nzr+1APoLY
1s4777xY+x8yZEjo/VOVuCCTTzAPPQafY+b0a6+9dvBOpJ/ZZputte666wY1
QH3Fybj5w9m/gW/wvvvuG3wTzO/nmWeeYJu0746668h51Uc2cYJl3etRedTM
N9m3D3yVaIqO7K4Fi/JR8A11mRj/kksu2brpppuC/ya/mxgY5vycL97ro0eP
Dv47zK+z6fAOcN+DeeQGmjBhQhBPz7rX2NTx5SJHYVodNAx0Y/tYWCcZiEXB
ZjbvvPMGv2Mc2JGxVZInIwlmfeG2PN81w4cP7+ovS/5SV287/vjjE+9j7Nix
7e3Rx/L6pjz99NOR3+2stZGrinTkdFQhrzW6A7FMYWPAH0TkT1V05J122il0
DL5ye4XlxOPYiyKrjhyV+x3NyydV15Hx0cfXMcrnoC4N2wcxc1nrCF522WXt
fVLPw4ctaLvttgv2d9tttyXe1sRShM0tfbHlllt2nU/mAT7g/KGLuvtvsgbl
ss4663ibX4t4FBGPDAsttFBHP3WNGUG3ZPz41fD/Ub7STcH1HfeZQwBtlrX+
Ioss0t7/EkssEcxZsGWj4fIzan4+99wnuY6Ye5HjjdwixCAmwcSX22tqfKdY
M9AHP0Nr23vvvYO5lr2O4udJc9hKR44GXwTzzS8itzR51cLmU9QB7WeaoCMz
xwq7tr3qq2BLo2ZB3PfZxRdfXNn7B/sdeW+wY02fPt3bfvHfQTs0fjVox5tv
vnnroIMOao0aNar9/O68885BLB7vUuoZc05XXHHFxNrs4MGDO84tuY3JV77H
HnsE/0ZD3GCDDYJ3M3mUTIwWazpyDSXVUeuuI+cVjxzmk0Erqr4jtYai1r/M
DfqZpujIxKDax8m7uI4YH3j8WzbccMPgv/PMB9FPmNyP1JZhPk/LI79x3WEe
474HOXe+QLex8wPwLPJN5zuPb6/5TuKrBvjcsj6ec845g/lAkrg9rq/xRTON
HNP4+Jr3Pv1j40RDxd/E5PhjHElqxN18882h3xDsUHlg8jHajTkTsW5pYD7l
6lz4tyeBOZybI5FvTB6cdNJJkd/tN998M5c+y0Y6cjqqkNfa+C65zfZfFflS
BR354YcfDu2f79Abb7zhpY/rr7++Y9/MdYqs6ZlVR548eXLoOcIH0CdV15HF
pzBvM7Yh7PW+4gmMlpTGJuPaDpjH+sbYo+z24ovJajlHQXy/u2/mwuJTFl98
8Y7zg++ryJeidGR8Aux+8GGuI4cffnh7zcr/x41X61d4D9vXlZg0H8yYMaO1
xhprdMwV+C65OTFYv+CbzryLumms1ezxJLE7Ya+yt8XuZ+5b4knCfO7xoza+
Z6zpTfxyHKQjR7P//vu3r/uHH37obb9RhMUJ0NCi+pkm6Mhh8ZO8W3pBHhpj
w44D9ZGi6uIQx1MWM2bMbM+7fdb8wwaLndiej7trauzHI0aMCH5PrSdXa09S
8xS92D2vfItNXBK6tWv/pH/s2PacI0lOJenI3bz33nuRvtZpcmomJSqGzNhe
8rKBV4Wm6Mj4mrvXN69cs3lCPQHGTtwm/0/+vzxy/vcjpmaOeQ/XtUZ23uCX
4D4rr776aub9YvfDn8N+32PHdZ/Dl19+ue3TS44XfMvssSSJSbrvvvs6tqVv
cp2gLaN38t88UzbkGyEGyGxj9OyBQB8P+47gc+YbfKLxKXT7wic5LSZnvt16
+UaGcckll3Rsv+CCC6Yez0AwBww73/267gDbh1U6cnzKjke+8847Q/vG31x1
KIujbB2ZdWdYzmb0MZ++Wm6uLfy2iiSrjgy2vdY0/Cd96YcgHbkeYPMy83af
Oh5+b+yT+WCa2mXEL9r3DvlFfUOuXfce9ZUjDR8me7/EuvGOEp/Au4b8pfY5
Kiq+ockUpSO780J0mzpyxBFHdMwl+t1uORDGfmAa+l9WiJ+z527EfKMrR0Gt
bf5urrnm6rIrJ7HZuTkvjB0DHaqXvda2mzDuuLnhpSOHg7+xiUkoqo46uSaj
1iu+4viqSL/ryMwrWGe415TaeL0w+SbQS+MSZfsgZqcMmGczT2YMrBN9wPvU
zkHB+5E4k16YMbjvZ/YTl6jYId632J6j4Ptsx+wkec9KR+4mTN+j4QOaN6+/
/nqkrwb3Iba/fqcpOjLrbvcap43bKxM35zAxnCIebvwm+exFN1deeWXHecK/
Kyv432699dYd++z1fiUGmfUTa2LitOzx3HLLLbH7xeYY9n5fZZVVej7/P//5
zzv0bs7JQDA3DNMI8EnzjXuNaORkoeZXWlhv2fvDXzAp5Ai390HOyDxgLmr7
HdqN+J1+RfHI6ShTR37yySdD55nUVPPhn1NV3n57RpD7jbxP5E7da6+9Stco
ytSRP/jgg9awYcNC+x7IfpAUN9fWySef7HX/A+FDRw7zZ6MlzdPYi5EjR3bt
XzpytSD21uSCQy/xibH14zeYBtcPPQ+bJ/Fm7j3qI4fGdddd17XfNLXZ+xl0
IvccTZw4sexh9T1F6cjUSeyHd7/Ja03r99qpcbBzTtMuvfTSTPt79tlnO+bw
xAFjoxgIV8+mkcMiLmG1kWnnnHPOgNvy3bS3Id9aHPpNR/ZR8xy//VVXXTXY
X1755cKgdkfUeuWtt94qbBxF0+86ctg6lLiWXu8U4lixhdLc2Jde8Lfk3Xf7
wz/OVw33uPBdNzVGyfPvyxfC5AkwjXilgSBuJiyGNYk/t+uvTfvEZ2fgGFg3
Hv21116L1ad05G7c628afhd5Qhw0dveod/RAvgz9wsyZzdCR8Vdx9ahe/iJV
xeS1Nq3Imnd1x+S1pqHBpIk/aAJuDnhs31ngO2HHPfDtjpPLhLVf2Ls5SZ4K
tzYyjTinOHqrbfNH84mTF9SNnU66bowDdZtdvXruuefOHKOy1VZbdewTTTgp
xB/b+zj77LMzjSmKXrWR+7nWrHTkdJSlI6OFfelLX+rqk+e1qLrMZUC9o7Da
XvPMM0+px/2LX/wi8j7IU0dGP2fdHNbvKaec4rUv1zeUVnQOMx86MoTl9PW1
NuSahNUrr6uW0I9gc1h00UWD63L88cd73TdrqdVXXz3Yd9pczvb32Mxt4+gL
SWCdwvzT7oe89Vng/Wy0edPy8HesO+48k3g0auqJfClKRw7LIVXHPHX2/DaO
z3M/g73B1D8wjXlfWrDv2+9fcgHG9eMhp7V7f1E/My5ubWRaktgRe9yszdFD
B6LfdGQf8cj4w5r94RdcFNwrUeuVLPd01el3HTnsupKrvhemjlua9c/jjz8e
qpmut956heUzRc82+Zzx2/SVh431s31M1CKOe0z2e8K0JL7urr82vkZx/Qxv
uummjm2PPfbYWNtJR+4mqjZynrZg7PC9NGTiJppCU+KRwdgMTCs6RsMHrHHM
+PGJFPGxc1Dg5yfC2X333Tuekyy5kvme77DDDh37i5uXkG2ZQ9rbYlOMS1ht
ZOLi4tZXdmOZ48Svu3m0aWnieqNgHcg8ye0ja05U9ovGY+8zqQ93WF3tvDSj
XrWRfdUYrSLSkdNRtI7Mu+v8889v15+wG7lDn3jiCe99RsGcjjqY1APAr4OY
s7zneWgSUef7m9/8Zmm1OMqIR0bDHTRoUGifcfymk+KuT/GfLNpnzpeO/P77
77cWWGCBjuPBHoIveVaoSxV2TfKsxSDigx670korBdeE3DS8U9I2/BG43tjq
8CNk/W/nM6GmWRp4j7r2uccee8zviWh158/G/pWWjz/+uCufNecmjsbQNIj7
s88T9iqRP0XpyGGaY1i92aqz3377BWMnpo28J03GnePxfk4Sv2fDvMm1USeZ
s1Ejy51fJLm/3NrIzJ2TvKdXW221ju0feuihAbeRjtyJXVcC+1GRXHjhhZHr
FWrl9iv9riOb/NR2w2ckCt5DxI4QQ/zmm2+m6tNek9nNt39mGORdM3N5/Kl9
5SXDT9+ef2NvSTJXGDt2bMe5YJ0el7DayFdddVXs7bEL2NsutdRSsbaTjtxJ
r9rIedmC8SNbZpllIt/Nxx13XC79VpUm6cj4B9jHGrdWfZWwn0HfOd76HTuH
VR62nn5hueWW63hO0EPSgq+G+61MYtN2aySOGDEi9rZhtZGT5LLnuO3td955
5wG3Ibd1WNwZNZ99YOcvy2oDtXHjamisgZNw0UUXdWxPvIvPWpY22IPDvt/k
M+tnpCOnIyxPgGk+NCkbali79hvT8P8tqh4y3ziekzAtm5pAzB/s5/OFF14I
zruPeBy35pDbiqov5vLwww9Hjol3q0/wV+K+C1vjECfCWPJg33337eirjDyX
vnRkIKck8fv2MWHb/fDDD1Pv8+KLL468D/KIKRXJwLbAu7LXO8RnI8dzWtz5
3plnnunxTHwC+ZXtdyq2pFmzZiXeD3rKhhtu2DFe8tAoN1M4rDfsczVmzJiy
h9QIitKRwZ2rnXbaabn1lRebbrppMHbqqTYdd91ODau0oLHY+2Iegn96XNza
Aej8SWysbm3ks846K9H4l19++Y7t4+S2lo78KZdccknH+WONWiRu3n279dId
606/68hhftbUWY3C2FHRPdOC/4lbd46GH9Vll12Wer8DgU3B5H1ae+21A99g
H/Aepf6tfSzkN06Ca19OEl/m1kbm3Z7EX4kY8ST3gMHWkadMkY4c9Y5MEnMW
F9ZJ5BJw49NMw9ZWlm2rTJqkI/OutI+VmgF1g5wqn75DppQ9nFphcong11VW
PFTVwTbr2r3TxuuRZ9n+5tGS5Jngne3mhE1SR9KNJ8YfLgm2Hyotrm5Hzm73
+4KekBV33kLzVR/dPVaekaTsuOOOHftImytyILDxu/eVacS+9zP9rCPbc3qf
OjJ5KHv5Dt52222Z+2CN9uijjwZ+xrPNNlvoWg0fxSK+O/h/2H4W2KIOO+yw
wIeSnAF33XVX+3zwvDCPP++889pxOcy/4+ZsCINjjDrXPt+HabDz07mN95cP
Xn31tWDdz/MZ1g+67syZM730FQY5w+z+TjzxxNz6isKnjgzE77tzAepFEFuZ
FGI8mOMQp73llluGXqMbb7wx85hFOsJy2OTdstQbPvLIIzv2Rf23PCCXhN1P
3Dx4BvSPtdZaq2MfO+20k7cadf2Im0ciTk4ikR1XR546NT8dmXlZHvOAIjH2
dOq1Nx03n1qSPNI2zKNdH0xqWibB9elDR4lLWG3kyZMnJ+rfrTMVp3aBdORW
EMfm1vmioRUVZXfFzkEt5qg5S961P8uk33VkfA3d6xmlvRC3im5FXAa5dLOA
nWLkyJGh9xN+1D7jPvD/tWMDeBf69FcMW8tj34gLa0fiu+3tyeUVF7c2MnPr
JNh1Nk2LE9OgeORPYZ6In1jY/eyzTg/2sFNPPbUrP6rdsOu8+OKL3vqsE03S
kfHpdjWyuuUAYp3AuFk3iGQQT8q5y5Knud9xfaQWXnjh1PvCzmvvi3yuSb4Z
YTlI4/hrGdzayHF8cW3QXuzt0Yfi4tZ1ZP1BnaW0oEu4+pQP+7zBtaenqY3s
1vBL6jsdF3SRqG95v+er72cd2V5zXHvttYm2ZT7Ju4W1AT6hrLeoH8V+hgwZ
Enm/0NBUyY/EXIi66eynV2P//O1TTz0V+MWMHj26K27AbptttllhtazQiO3Y
TeJTwuI2OQ6znkT3cO1lv/nN85nGseqqq/Y852idecA62Fwn5rLYYoizJgdc
r5h0GueAOFX8n9h2oPuAe435IzkuyBWOnhRVp4dGLg5qBeTpS4A+7fb785//
PLf+osDe6vs7hQ8ltYvtYyO2knl9HLheRx11VLAdNRzw+3A1QNOw22B/xp5F
HjnuhzSatUiOfe8U0VgTZln3Yi9zvyd54caxXHPNNbG2o64B7x+zHTm9k+Tg
ayK82217AbXvpLkXQ5HxyM8//3xHX3WLL+CeNGtD5i5Nx/WjS+sjhJ3I/VYk
tRO788Ekvj9uXHXSehvkFXLtnXHW9baOjP2HOVbSRu2tNNv52t5ej8XJD8Ia
iZxxxBrhRxLlp05jfcV15FnzNSdEX2PtSY5W8ugdcsghQd3CXvMWxogtBJsA
612zZskrB1yR9LuOzHV2NcywdTrP8GKLLRa83x988EEvfbP+JG437J7Clx+7
RhZYL9l5u9EqsK/4hLlZmF9xEvBNdtcBSXR69ztzwgknJOo/zI4Z59zb76bh
w4dX8v3ba3t8qexjJs5jIHiv8X7E9jZt2vTW008/Hax93Nypdtt6660DzXog
O47beA5nzJgZ3LPUT8SGhs95VD+8n7LWlaw7TdKRgfoi9vHWrRaO8cFBpxLJ
MLbtLDns+h1yetnPR9I8IQbe8+77lns3CfiR2tszn4oL+oGbeyLpPIzvh3sM
cb55wDfPzXfIvCNpThe+m25sDvOIpLWLe4GPosk7Y1rS/bO+ds8V9tW0sK4y
WhBzaWw9d999d2heHruhBRFfgEaAPznzQneeUGeaoiMnjUcOs/mU2fAbQadN
Gj+QhdNPP73DbkRMaC/NkrUYvj3u2FnfZn1Orr/++gHPUdqadb1g7l/2tXcb
c0505iJi0Ymjtftm/RP3m+UT3/HIBr4Fbl1jvl3o/1H3E/cycz7i7Pl7/h/f
AojSkaOayBe3ZlgRLaudErut69/w1ltv+TkhDszVbBsdc1xsHWH5IxgXc7Bv
f/vbHWPDVpi0ZkkTIfbYPm/bbbdd2UNqDEXGI4MbZ0I9x7qAjwhjxq7e9Dxr
bq3EtH7wYTpFUv8C3smujosvXFzceU5S3+6wvGhxYrSod1P2nNln61WXje+g
mxs3aUuqH7kQrxBV3zNNw58/SVxmFel3HRnceFY318lPf/rT4P3F70455RTv
/aN9YFMNu4fQ4FizxtWDsLeSK5L4eXMvMzfFJyUPTYkYFXfMSevJuDULVlxx
xdjburoZDZt3EkwtCrvF8XlybbV1btwrrGmiIIfS4MGDSx9n2LiJDyFHaN1t
yj5omo7Mmts+XnLf1gkTW0UeWhGfd999t523M0mN3KbhaqdpazjuuuuuXe/e
JGsoYC5jb09987jce++9HdsmrV2BDc7NS5okHhmIDRs2bFjHPsiTR8z3QPBt
ou6D62/FvA8t0SduPA0ta21k4r16zQ96gY+Mz3WV25LU2K4a0pHDqYKOvPTS
Swc59dC08oyfCYM1nD0W/D7j2BTD6sTi4+oDdG3XFkceVaNrMPf0TRV0ZJ5L
8jvgb4wuViTU77THgl9wGeSlIxuwkbo5//AhYm1HzDH5Ow4//PAg15TxJSae
kDgSex4gHblaUPOv6Od18803zzxuN38p86E8oQaX7QOEbyF5JY455pjAPkbu
hYUWWqjrm4BtUsTDfZfGjf0W2SkyHhns7xWNOh91wcx9k9Zt6kfID2Rfx7R5
mbn+7nciaZ5McuDY2yfx6cP+4OY4Yq6eBGJa3WNgXjQQru2kzg07Qq8YP/LY
Zu0ja20x9Cvfxy0dufpgH7NrwS2wwAKBDwfrF3Ikc++ypkmamy0J6D1ovVHx
97yzqJFFXWbqAaEt817juSHmCF95NAk7nxnbkBcwz5zLbr0RWpyc0DbMh+3t
k9Sedt8bnL8kObu59qxH3XcVuulAsMYt+73qq5GTuhfk8St7jKZhe6deAvf9
9OnTY1/rJjBzZrN0ZLfmyPLLL1/2kGKDj7sZN3M9ER9jZ+ddrfyE4XBebLs/
+XvSxDKF5WxhbpHEbwcNxPW7SqIt2bmZaOi5SWAO5H5HmLskhXPqaurcg9i3
8QV57rlft6ZNmxZoKuRVuuWWW4J1iRsnSB5C/F7zuHd91EZGH7L3QW2htKBB
5zkfwD+hrkhHDgcfFWLoi2zkBWU98dBDDwXvvLIgHsX4SNHwR4+r0ZI3wfXZ
wP7kC+JHiU3GBk++KzD5pfOYi7PPou8Dao1wjHfeeWfpcX5uHXByM9j85je/
CfT9H/zgB4HOTT4mbPa+yVtHNmA7YP2/+uqrd805zLwDOwjfuLD8166OzNqe
eGVsI3yj+a5hi8a2c8455+R2HOITWJ8V/fwm9W8Mg1w3vuY/cWEuyLuHPHGu
vw4N2xa+FtzjWXLDNBE3xpzva5nf+KZRtI6Mf4XdH7baumDuU8XLt1rbbrtt
x3VMmws2LBcZft1JYF5ib58k72qY/SGpLoM/qLuPuH5ErDPR5MnzXPT32Edj
3Kw5BtKWeM+QqwatDo2MnNKcI2ILiQ0kbw02Gv5NjjPWWuho5P3h/LBtVps5
cx7sk9xf7Jc5OePAJ5aYA/rm+038C/mtuDZmPNzf5GnDbsSamflAUTWU8sTW
kZmP9yvcf/gcurkLsfexTi4qnxn5F4jbxxcprV2N64TGxpo/T37/+2ldfWMz
TJKLA7u2m6v4tttui739fvvtl/rdDrxb3GOIW+sLrRk/at4ZZb9ns7yfOd8D
zal5PngPlvX9wL7HO5h4exFN0+KRwa07MXXq1LKHFAvbV7/u/mZFgx8J5y1L
vd9+x/VD3X777VPtB3u6+41M+p3F3u3uI0luM+zKWbSRSy65pKv/LHGs1OJw
60XHadgIxo8fH7sGZBp81EamdpO9j6Q5ZmxY+7Ee4jtu1lXcm+h1rJ3wL37m
mWeCXNes8yZOnBiss4j94zyzDmR9xVyLbZkLsE688sorA+0vLAdkXbB1ZHwN
+oksOnJTIU8+fsz2s9crj5sLed/ddw7PTZ4Yv5oktYjEwITVRuZ9CLwDo/L3
LbLIIoG2HMcXOi5F6cg2+KlR15t60LTnn584oN8VvpkTJ04K/A/kXyjSgl1q
rrnmat/z6LpF5jsjvgGdgeede585kfKtpcfN0ZN0/SKyUbSOTH+23zI+GPjY
VR2eczNm/EWaDO879BdzPuadd97U70B3PUszfpBxcTUZckXEhbWvvS0+w0nq
3mLHdet60WQPF3WgCfHILsSR4NPI3GPWrFmljQONk3wM6NhDhw4NjVXGrw7t
mzw8+FMU6T+NTc8dDzbMJGBDdPeRxB7h2pfxM04CPslu/+SyE6KONFFHPvjg
gzuOOWm+mLLYYostgvGSQyJJDoWmg43H5JAgNkWE4+aGxfacBuq9uN9I8kkm
4eyzz+7YPslckmfDjU3CZzMJaMbuMfjIdYb+SRwY85755puvqw+0QXKREpOM
H1be9a6wPxJ3bo8BX6wkMP91jwM/AOEfxSMLG3L9u/amJHqYm3uP9WHetiby
yPJ+ziMOtsm4tZFZ/6MtGf8l8q6jF7Pmx/+Ab9F6663X/nvqOPuqWV2GjixE
mbgxCsoZVV+wC9rXEtulKI6idWQ48MADO/rEH7rq2HXa7rrrrrKHUypuPfND
Dz001X7wKXPXs+S0TAKahJvnBx/ouDBnsrdNmt+CvtxjoB6nEHWgiTpyVcFG
SLwyfso0/I3LXLuH2ZeT1vnEHm1vT/3AuHA+XG2dGJckkDvEPQatF0RdaaKO
PGXKbzvmeHXIYYRvrMnDgC+MiM8jjzzSvtbUzBPd4Otq11Mjt3FaXwXyQbrf
yDg1gW1YN6X11bJ9tE1LmpOOHC329vj2+s7DyjlHszHzszJ8hW1d0rTf/e53
ifZBHhB7e/zA89a/m4p0ZGFAB3Sf3aS2M9enDi0xb/CVoSaY8As1qexrSX5z
3hGzzTZbUOchyr9g44037rA1+vBRlI4smsarr74WPGvmvqcOvKgfzMuXWmqp
Djs2tkNRHGXoyMSb2vVB8NuvOmuuuWZ7vE2v2UceLXu9njbPYFjO0T322CPR
PlyfPvwmk8S3u3WiTjnllET9H3300V3HkNSXXoiykI4sonB952nYxZJgfzdp
1C6KC7Zke9u4dY0NzCW/+tWvduyDe1w2U1FXmqgjAzEx5phZ+5PfrsrYvpb4
vYv4ENtpzh3xV6IbW2unUYs3LWgE9r6In08SI4cd28SPm0ZO4ri4teqoGZmE
N954o2ueQt2lfoT4NPs409RGdus/k0PehTnSDjvsUJvcD1VFOrIwhOVMIDdA
EshbZW9P3dw8MbkLsJMJvwwaNKjrfuAdQZ7bXhCfbG+Dv3dWpCOLJmLX50ST
arq2U0fcuMYf/vCHZQ+pcbg6cpKaRlnYcccdO+xCVa559uGHH7ZzF+MD3mTw
w/785z/fvnasNdPyy1/+smselaRWDIwePbpj+7XWWiv078gdGxZLt/POO3ds
nyQ2Hp3C9YPn39IpRF2QjiyiIKbIfrfxDUzi52d/N00Ly71J3XJyebk5u6mL
Z29L7cEkuDng0vgJCVElmqojU0PTPu6q15ax44ao8SniY9epKcKvuY4QO2HO
ETk7stSuHDx4cMezhVaRhLDaFa+99lrX35Frbuutt+7KxUmOEXvbbbbZJlH/
xKy7/fO+6EdMrnzT1l133cT7sOPYaeQkd6HuC7874IADPIy6uUhHFvDuu+92
2M3S+IDgQ+uup/AnyhP8gdLY5URvZsyY0fXN4js+kIZsIOe12Y7agFnj76Qj
iybi5ohIWs9FlI/tY07ciK9c/yI+ZcQjA/V47Fx1SeseFsnDDz/cHifr4CZj
5ynl+k2aNCn1vl588cWuudQtt9ySaB/LLrtsx/ZHHHFE199Qc4Tf4Yft4urQ
6Gpxue2227rGf+uttyYavxBlYtdKwy4ghGH//ffveLeRdysJrvZDY/3sQowy
v3v66ac7fv73v/+9Y1vs3UkwdaZMW3zxxRuju4n+hGfiS1/6Utsu3SSfNbtW
OjbYKtfrW2211dpjnTx5ctnDqQ1/+tOf2uvCBRZYoOzhVBJi8e18fFntvuRG
tb+TSfODnXrqqbH8vXh+0UHcfFGuDj1y5MjYfRM3Td5Ve/uktYnqQlhtZPyg
k4DPnjsne/7557v+7phjjpE+6AHpyALQYd3njrx+SXjggQc6tkeXzns9Q7wP
cXro4MIfN9xwQ9f9wM/isttuu3VsS06PLEhHFk2FfCzm3l9kkUUataauO/ir
2jpi0rp7wg9l6chALKttF6pqTnPb3/m4444rezilQf4yrpM5F9/5zncy7c+2
GaXRcYlXc7f/yU9+0vV35513XvC7ML9r8gLZ20+YMCF2/8Q+N8F+Ifob8hfj
36q6scLmpJNOyqTjkmvT3p48XmHwc2wiYfUI7HyZQ4YMid13WM3FpLWVhagi
J598cmuJJZZonXvuuWUPpVDcXL5JcscUCXFDpm4PNZKruq6pInfddVf7+m65
5ZZlD6eSUFPTnCN8SshRkAXbjpZUxwU7NjrKX/eDDz4InolVVlml63dunk7q
Rsbliiuu6Nh2zjnnrHzO+7SE1Vclz1YS3HhmYuDC7KZrrLFGcC7LqAHdT9jX
TDpycwnLaU2d8iSMHz++Y3ue0Tx5662pwbpsk002ybWfJuLWRk7qw+/Gv6Ar
Z0E6smgq+NbZfpnXXntt2UMSMRk7dmz7uuF3rDiRcihTRyYWzs7TUtX8b/Z8
mVzsTeX6669vnwf02xdeeCHzPjfaaKOO+y9Jnh4Tx2aPKSynAfouNoxp06Z1
/e4Xv/jFgDp0GG5OfvIpKAefEKJfcO27UTpwGMQdM6+ztx81alTX32Hz5Xfb
bbdd6H5s+0uS/l17aVJ7qxCiemywwQbtZ3rYsGFlDyeU++67rz1G6sOL+GDD
NOeOmEjRCesb9Chzjr7//e9n3ud1113X8a3kmxsXYondXKsXXHBB19+Z3E1R
dSWoidxLhw4DmxG1WOy++7mer1sbmZYkdvy0007r2n755Zfv+jtqm3FN9957
b5/DbySKRxaw1FJLdT17SWsjM9+xt0dXzpODDjoo6Ofqq6/OtZ8mYuelph19
9NGJtme9bG+fdS4sHVk0mT333LN9/zOnJO+XqDbEIs8+++zt63b55ZeXPaTG
UqaODKxVTN8LL7xwaExSmbBWNXVNWFs11T+X9yp5QX3b5Vl/2PffmWeeGWs7
bBXuvDys3gwxz/hVb7vttpH7IrbH7IMYuoGgRrStkRBzgt+xEEL0E8OHD2+/
5/j+UfN4IIjHs7czjThKlx/+8IfB76LqGdq53OifHBQDYfJPmIavErk0hBD1
5pe//GVHDhr0qapxyCGHtMdHvhsRH3JOmHOXJDdRU6AuuDk/1Jl47733Mu+T
Ne5cc83V3u+KK64Ya7vf/e53Hfmpevnikn+5Vx1n8nyZ7ZdccslY/e++++4d
/frQ1KuM6xtHm2OOOVqzZs0acFtyVxgt095+00037fpbE+tGTheRDenIgtz7
7nNLTdskmHwO9j5YG+UFdjO+Cdhk46z5RHzefvvtrvuBevRJwD/R3j5prjAX
6ciiybz//vvBu848A9ilRLWxfWmUC7ZcytaR0WVtn+Iof+WysGs8Ukeqqdi+
zOjJcdaucXBtGJttttmA23CP8LfEANv37tChQ7v+1uSA6xXnbNtmwvZhg5/D
euut1/57fAzuueeegQ9UCCFqBvE99jt2oNzn2IlXXXXV0PfzNddc0/G3xFZh
C6fGfRTMT+z9uPtwIT7K9lFkLOjaQoj+wNZpieuoWp1ku95slH+M6AZbuckv
h+aI/V18yv9n7z3Apyru9v03Ma/G9oqaGBsW7FiACDbA3hsSOxEUGyhWwF6x
ixWxoFixICogYkHs2BVBlCYIKkWwYYwxkSR6/r/7+J91dvbsfve0PVue+7rm
SuS7OzN76synPB/25sSsmmsryX0HtU1Mv8RpfP75gpKfx8dILC2fXWmllfLe
8+gE2hjdwFJ5zuQW2H18+OHkop+FW2+9Ne/z6Hr+/PPP5f/gGiOoNrJpZ599
dtHv8Wy85JJL/PPUqlUrb+bMmXn1pF2dcc4D8XrUbBLxkR9ZEOvj3rOHHnpo
qD6GDx+e9318ykE2OMZKIraI+TEOdSZEsti6jjRqN4WJc168eHHeOoDWsmXL
WHOSH1k0Oi+++GJu/8Galv2IqE5efvnlvHjauLV9RDyy9iMDsVgm1m6FFVYo
K+eoUlxwwQW5Y9OouQVffPFFbg/LcxZbfZKwRrZjLZ999tnAzxFz0KNHD/8z
5BB/8skn3jrrrJP7HvEIti2BZwv1w4jVK2VjoN8tttgi1w/rvCDQam3Xrl3u
c6uttlqoespCCFFLsL+182A222wzfx8bBO8FtKfNXhSfs722QJfRxsQDDRw4
sOQcsGWY9wO5SsTKB/Hwww/7/gcz3iGHHKJ6KULUGTx/TKwK7ZZbbsl6SjnI
3TE6v/KFhsN+X+yyyy5ZT6fqQO/ZHJ+kNYeJ/ypXW/qhhx7yVlxxRT+GllpU
aHLa73nscTYmbwAtgVKgY2762GuvvQLrirOPs+N+8Y/yvXr2IYPtjwxq1Hia
MmVK7vPsadH2at68uf93dBuN1tuIESPy9tvDhg3z//2DDz7w1288t6j3JOIj
P7LAH+HerzzDwmD7+WjYoYJASwJbVhyMn7OUhp+Ijq3BSQtbfxqbo3s9dezY
Mdac5EcW4te8Mxq1d0X18dNPP+Xt/xXrlD3V4EeG8847L29PVC3wfjbzalSd
NeO7TdOXft999+X0Csk/oyYLzwughub111/vx53w9+OPPz6ntUOesdEdp91+
++3+v8+aNcvXyGO/XI7+D1rVRt8arTC0UU2tZeI70bu2tax32203X59GCCHq
GXwhtgYDWojTpk3z/8b64aWXXvLzgXh+84weOXKk/zdsu+hZmu9h0+Q5C3fc
cYdvr8TmUU4tmrvuuivXD/l+r776au5v/H98xub9QR2Da665JoUjIYSoBnj+
mJwMnjnVEnv6zDPP5J5T1HIW5YMusTl2QTUQGhn8eub9RiyV2Zskydy5c/O0
wXr27JnToSYeC3uNWQcQT/bee+/5f0Pvg7xW8z3qSPB51ga9e/du0i9tw97f
9HPwwQd7H330kf/v+JTxf5Ina/6Opnaj2JDc2sbET6PNwnmw/71Zs2YFGuVD
hgwp6I/v2nnkfI/rizXZmDFjMviF9Uk9+5G33XZb+ZHLADuW6/e78cYbQ/Vh
281pQRr+RtNh//33jzzXqVOn+s8C8kbmzZsXuR9RHLc28mWXXRbq+0F17k89
9dRYc5IfWYhf8ibMs5b1EPs5UV3gizHPqqTqq4p4uH7kzz7Lxo/MPGw9uGrQ
CsZ+jk+R+WCzasTcAnKDjf2C52uadSaxE2y55Za5awC9F1uDi1jpoOf6o48+
mvc59sfMmdxpYufLZfbs2b7fw/il2VPTrx27TRxoKY1sIYSoN4jbwSaMjcGs
sXk2ovfAf5ODh63Y1VTjfcEz1egF8WxFc4T/jxZXsXqJQRAnv+mmm+bZ5Wyb
Ke/qXr16+foZQoj6ZtCgQbl7f7/99st6Oj5nnXWWfKERoaaMOXb4X8Qv4DOm
9gPHhb1ImhpI7IHQnzZ7IN7rxPWaWhHsybjG3dgvtJ+23nrr3PkjlsusDfBr
lLtvxOdy+eWX+1pP9jrD1vFkf3fVVVfl8msbAfKzbTsN+cUGYmrwRXTv3t3P
/WYdhvb/+PHjS/aJrgP15TnffO/cc8/NzP5Tr9SzH9nORw6KVRC/gqa8ff8S
F1su1BhwayMH2UdNDaKotT3R91tjjTX8Zz4agSJ5gjTOX3nllVB9UAvU7eOB
Bx6INa+TTjpJfmQh/h/Tp0/PrV1Z+86f/3nWUxL/PzwrzbuQvD+TTyiypVry
kWHmzI/9fapZc8+dm208HDqd5rjss88+mc4lC+bNm5+rTYlPlVjFSoCdBH/A
QQcd5Le+fft67777bsnvYKcgD449cadOnXyfx4wZMyKNT55xv379/P34AQcc
4HXr1s1fo5PjLIQQjQo2bfw3PBN5NvK8pVZhUzW5iG1HxxqbMs908pGj2oHR
BUEj48ADD/Ttn+x7n3zyyVRytIQQ1QvPk6g5Pmmwww475OYzceL7WU+nZsAv
afTA0f2pd53iMHTt2jV3TYXVQ40KfmF8k2YPhI8S/eOm3tkffvihv18jroO1
wahRo3K6UmFgP0fcGP5Sxic3mRpTaI9UWz30tCEX29hFTEOvS1Q/jeJHVj5y
adCYt+9f/rscuPftNYVpQbnC6FAT/xMmNteGWBXewcSWiHQYO3Zs3nnkfIXJ
T2JdRE0Juw9itOPa7ZWPLMSvPPLIIzl/JTV2oqxhRbLwXjPxpfilKuWPEk1T
LfnIBnyBxp6w/fbbB9ZIqhSsjc1xwe7dSNjrV86H0SoVQgghhBAiS6iVbrRd
yZkcP/69TOez1lpr+XNBd1aUD/rFZq917LHHZj2dqoH6w+a44EvNcj8ssuHt
t98u8CORNy6qH/mRBRCXY+yaNGJjmgK9AFNb3m7kdLhxVtR+wydZbv2AIMib
oUaRSI8bbrgh71xus802ob5PDXv3esD/Hxf5kYXIh9ofRov1oosuyno6DQ3v
O+rIcy7QMzQ1dUR1UE35yAY0Osz9i9ZSVqBLZ3S0Gi3XidhvE+sWVzNFCCGE
EEKIJKHmuqk5x/8uWrQok3kQs25i2KNqSzYqzz//fG4P+v77yuOGyZMn5/T1
9t5771RrConqxa2HSayKqA0axY+MFv3EiRP9NmHCxNz/p02a9EHWU60K8PGa
40X94VL1d7A3Grs5mit2LXPyUV2OPvpo/2+vv/56mj9BxARNLvtZHrausV0b
1LTRo0c3+T30Xux70m2HH364/MhCOKC1Z+4L/r/IhhNPPNE/B9TL0Tuu+qhG
PzKQ/2vmNGDAgEzmgK4W4/fv3z+T8bPCjsNBw1QIIYQQQohqg32LyQWmTmtW
dZPWXXddfx7fffddJuPXKtR4JV+LmgfC8+bOnZu7nnfcccdQ2peivnBrI6Nz
LmoD249Mne96wvYjl2rNmjXLeqpVATUB0Fi0c5KDNPqpBcA6gs8cd9xxfl7y
6aefnndMp0yZkvs8ddB5d4bNbRWV5/rrr887j9SOKBeuldVXXz3v+2jxlKO5
a+u9NNXkRxbiV6655hr/vsAnMmTIkKyn03CQS8rxX3rppb3nnnsu6+mIAKrV
jwzUOzP3b1b1gOz1WiMwfPhw5VQIIYQQQoiaYNasWd4aa6zhr1133nnnTHxv
6Fd+/fXXFR+3Hpg5c6ZvM290qAO28cYb53Qv//73v2c9JZERQbWR77rrrqyn
JcqkUfKRSzV0KMUv8Cxv165d7thssskm3u233+7b3cg1bdu2rf/v+Auffvrp
3PfQothzzz1z32vTpo03dOhQ76qrrvLt69SNnDFjRoa/TJTDnXfemXdv3HTT
TWV/9+GHH877LnbxN998s6zvyo8sRHS491iH4RshzkdUhksuucR/JrVo0cLX
ORHVSTX7keHRRx/N3b8jRozIejp1Dfoo1FhZfvnlvcceeyzr6QghhBBCCNEk
8+fP99q3b+/vZfbdd9+ycjWEqBao97355pv712/37t2Vh9zgBNVG/vjjj7Oe
liiTevYjo7uMPnNTTTrs+WBzHTZsmNehQ4eCe3ujjTby+vXrF1ib44cffvB9
zeutt17ed/A9T506NYNfIsJiPw9o5EqVA/VBW7dunffdE044oexxeWeUc6/S
zjnnnKg/T4i6hWcsMUBhNAREPA488EBfo+rbb7/NeiqiBNXuRwZiqdCqu/ji
i7OeSl1D7Y6tttrKmz59etZTEUIIIYQQomzY0/Tp08fP6VRNWVFLkJONpik5
akK4tZGbN2+e9ZRECOrZjyziQw7xiy++6I0dOzaU9iHXFfnK77//foqzE2mw
wQYb5J4JZ555ZlnfGThwYN57AJ0SdNKFEEKILHH9yJ99Vn1+ZCGEEEIIIYQQ
Qoh6xq2NfOSRR2Y9JREC+ZGFEDbkQ5lnwqabbtrk53mGLLnkkrnv4If+6quv
KjBTIYQQojS1kI8shBBCCCGEEEIIUa+gyY/OqG2fue+++7KelgiB/MhCCJtP
PvnErx1ongsTJxav+zlhwgS/Vrb57GabbeZ/XwghhKgG5EcWQgghhBBCCCGE
yI7Zs2cX1E+dO3du1tMSIbDrW8uPLISA559/3ltqqaX85wJ1LL744ou8vxND
RMzQMsssk3t+UCv0H//4R0YzFkIIIQqRH1kIIYQQQgghhBAiO3788UdvrbXW
ytlmTj311KynJEKifGQhRBCPPvqo97vf/c5/NqA7cdppp3mDBg3yLrroIm+d
ddbJPTdatGjhPfjgg1lPVwghhCjA9SNfcMEF3rXXXlu0XXPNNXn/LYQQQggh
hBBCCCHi8c0333h33XWXr28qsod8wGI2Mdc2RsP3Lz+yECKIefPmeeeff763
yiqr5Nnhl1tuOW/ffff1Bg8e7P373//OeppCCCFEIK4fOWxDf0MIIYQQQggh
hBBCiHph/vz5kW1l8iMLIYJYvHix99FHH3njx4/3pkyZIt+xEEKImkB+ZCGE
EEIIIYQQQgghfkV+ZCGEEEIIITzfD9y5c+fI7eeff876JwghhBBCCCGEEEII
kRiLFi2KbCs78sgjs56+EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCEc
fvrpJ++dd97xbrvtNq9Xr17ekUce6XXv3t0766yzvHvvvdd77733vJ9//jnr
aVaMF1980bvuuuv8Y5I2EydO9McaM2ZM6mMJIYQQQtQK//3vf71x48Z5F110
kb8+ZW163HHHeb179/buuece7/PPF2Q9xYrxxRdfeLfccot39913e//5z39S
Hev777/37rrrLn9fsGjRolTHEr/w4Ycf+vuuqVOnRe7j7bff9k455RRv4cKF
Cc5MCCGEEEIIIYQQjQx2oiuvvNJbZ511vP/5n/8p2dZaay2vT58+3pw5c7Ke
dmr8+9//9g4++ODcb/7973/vjR07NrXxzj333LxjPHjw4NTGEkIIIYSoBYit
O+yww7wVV1wxt0ZaY401vPXWWy/v337zm994bdq08c477zzvyy+/zHraqcHx
WGaZZXK/u3PnzqnFd06ZMsVbddVVc2O1a9fO3y+IdLnssstyx7x169beSSed
5D3wwAPe7NmzAz9PDDC+Z+IKevbs6W244Yb+d3/3u995kydPrvDshRBCCCGE
EEIIUY/gH1177bV9m8P//d//+TapgQMH+v/+/PPP+3aJY445xlt22WXzfJ34
Vs8++2zvX//6V9Y/IXHuuOOOAv95ly5dUhnrpZdeKhirZcuWqYwlhBBCCFHt
/PDDD16PHj38NRH+4hNOOMF7+OGHvQUL8vOOZ8yY4Z1++um+H9msoVZZZRVv
5MiRGc08Pf75z3/6v81dM7rHJCnatm1bMNYzzzyTyljiVy6++OKisbzcC+zZ
Nt10U3+vQPyvuz9TTKoQQgghhBBCCCGSBB/xb3/7W2+JJZbw491LadahGXj8
8cf7n7ftFNtss423YEF96aYdcsghBfYYNObS4JxzzikYa999901lLCGEEEKI
agbf8CabbOL7ho899ljvq6++avI7r732mrfccsvlraWozYK+TL2AVrG7Xlxh
hRV8/3LSfP311wVjcT6mTYuutSzKo5QfuZy25JJLejfeeGPWP0MIIYQQQggh
hBB1wCOPPOLbhIhjf/PNN8v+XpB9Y/311/e+/fbbFGdbWa644oq839e8efPU
8j3ImbHHIid8woQJqYwlhBBCCFGtoNG87bbb+uvTBx98MNR3g9an/fr1S2mm
lYe6yM2aNcv7fQMGDEhlLLSSjT6yaeSEi/SJ40feYostvEmTJmX9E4QQQggh
hBBCCFEHzJ0717dFUTvrqaeeCvVdbHz77LNPge2Cf0urRlsWXHjhhV6HDh28
k08+2Zs3b36qYw0aNMjbYYcdvK5du6qWmRBCCCEaElNXhNopu+++u/f666+X
/V20sF2NX9a51I6tF8aPH+/ttttu3l577eU9/vjjqY41Z84cb//99/d23HFH
/7zU0xq/moniRyae98orr/QWL16c9fSFEEIIIYQQQghRJ3Tv3t23O1x++eWR
vo/+9UorrVRgxxg+fHjCMxVCCCGEEI1Ax44d89aV1FIZNWpU5O/TevfuneKM
hUgW40fu2bOn16dPH699+/a+n9jORUfPfLvttvN69erla7oLIYQQQgghhBBC
JMmXX37pLbXUUt7SSy/tTZkyNXI/3bp1K7DVtW3bNsGZCiGEEEKIRoG1qbu2
xDdcLsccc0zB97faaqsUZyxEshg/8p133lnwN+p9K+dYCCGEEEIIIYQQaTN0
6NA8+1qbNm280aNHh+6H3OMgbbWZM2emMGshhBBCCFHPLLfccgXrStap5XLc
cccVfL9Vq1YpzliIZCnlRxZCCCGEEEIIIYSoBOj7uTa25Zdf3ps3b16ofv7x
j394Sy65ZEFf999/f0ozF0IIIYQQ9UqXLl0K1pUXXXRRrO9T31eIWkF+ZCGE
EEIIIYQQQmTNkUceGZhH/Nhjj4Xua4011ijo58wzz0xh1kIIIYQQop5ZtGiR
17lzZ+93v/ud9/vf/96vEYuWb7lsvvnmBetS/HJC1AryIwshhBBCCCGEECJr
+vTpE+hHfvbZZ0P3teGGGxb0c/LJJ6cwayGEEEII0QjgO/7vf/8b6jvo5Cyx
xBJ5a9Lf/OY33ieffJLOJIVIAfmRhRBCCCGEEEKI6mbQoEHeCius4L366qtZ
TyU1Zs2a5f3v//5vnp1t0003DW2vg7XXXrvAj3zWWWeV/f333nvPP94DBgwI
PbZIjzfeeMNbb731vEsuuSTrqTQkt99+u7f66qt7Y8eOzXoqQgghMmbq1Kne
Flts4efmiuI8+OCDBWvSHXbYIVJfu+22m7fzzjt7n3/+ebKTFJH517/+5R17
7LHeqquu6i1evDjr6aSG/Mj1x+uvv+41a9bMtzMIIYQQQgghhKhd/vnPf+b0
njfZZBPvyy+/zHpKqTJlyhRv//339zbbbDPvuOOO87777rvQfXDM3LwPWhif
8DfffOO1bt3a/96hhx7qff/996HnERfqQl9++eXedttt57Vq1crbZ599vAce
eMC3VyXJDz/84A0dOtQ7+OCDvTZt2nh//vOfvW7duvm+wp9++inRseJw8803
+3Wvl1122bqOpwjiP//5j3f++ef71+QJJ5wQ2U758ccf+8eO/qIwadIkb+WV
V/bzqPDl//zzz5H6EUIIUdsMGzbMW2655Xyd58cffzzr6VQ1rOHs9egyyyzj
TZw4MVJfN954o9/Hn/70J++ll15KdqJlQGznyJEjvYMOOsj/XVtttZV3zjnn
eDNmzEh8LI4RfW+77bZ+vMJOO+3k//5q2gvNnj3bXztzTrp27VrX6yL5kZOF
47jlllt6BxxwgPfVV19F6mPhwoXeK6+84v3973+P9P0vvvjCa9mypX9e2fux
JxTChevi5Zdf9u0F119/vXfGGWd4Rx11lG+z6dixo/8MfOGFFyL3P3r0aK9d
u3beXnvt5ds/hBBCCCGEEOFABw8fIns7cjCVe1Aeb7/9doEPGb/XZ599Fqqf
r7/+2rdb8f22bdtG8mlH5emnn/b+7//+zx974403zqurx1ySsqG99tprXosW
Lfx+8Q9uvfXWfj6FGYucl6i2iSTp27evPx9qEsbZp9Yq7Nnt6xk7aljww//2
t7/1v89zJaqt8/33J3krrbSS3w82hHq2mdYbxMPgd8AH8PDDD3vDhw/3/7uS
zzYhRO1z3XXX+e8A3ik8S0RxsI+7a1Js8XG44YYb/H7w4Y8YMSKhmTbN3/72
N2+PPfbwx0azB/8usQRmLg899FAi47D/IZbUXGOsxYlxNMePeMJnnnkmkbHi
8OGHH/prZ+ZELGYU/aRaopgfmfjWUaNGef369fNrFJ166qnepZde6tcl4poR
hbD2sp8JrKfDwn5o6aWX9r+PVhD71ijgSyZWnX7at2/v33+iNiCu+M033/Tv
P97Fjz76qH/fcU6TxDyPSzX2mVEYM2ZMXj/4poUQQgghhBDl8+OPP/o+PNbT
a6yxhmqohSCozjJ+syiwD9too438Pjp06FCROO2BAwf6djP29OPGjfP/DV+d
sd3F+T025LeSt73WWmt5t956q3/NAfYgY0+gbbPNNpn6Co3dChsl++RGxPbt
09CXDsO3337r69bZfZDDEJV33nknZzs+8cQTI/cj0geN/tNOO83PeQnSaTB2
eu75Y445xo/DEfGhhupHH33k6zoMHjzYu/LKK/0c/iuuuMK77bbb/Gc792VU
sBejsVFNmhGiMbjjjjtyzw6ubVEccnT/+Mc/5sU04l9LAvqhT3RaKuFTJRaT
9TC/4bLLLsvFGOKzsH8fOrlxmDBhgh87y3sJPaZp06bl/sb62IxFHZws8rEN
M2fOzK3N9txzT/+ZX++4fmTWF4cddlhuPRjUOE/kuaI3JX6Fa8Y+TmgNhYF9
mcmDNy3Oc2D+/Pneuuuum4shTlr7SiQHNqELLrjA23777f346mL3HjW+0FQj
linuPh7NEWJlOnfu7GtQBO0nxo8fH6lv+rT7+ctf/hJrrkIIIYQQQjQSaM7u
t99+uf131HV5I4Iv1OQG2A27fVTQrFtxxRX9fnbdddecvzUN0PBjb4bGmBtL
zJ7R/k1xbHUml4j8jiAtNaObmIRtIg52Hi5zbkQmT55ccD1jZw3DPffck/d9
8onj8tRTT/k2Y/pD30xUF2iQo5Von/c//OEPfgzKEUcc4XXv3t23CeE/NufR
NDTqOL+ifHhvkxNCLQLeE+jWNpW7YZ7BvJ/C6D4sWrQop5Uxa9asFH+VEPlQ
59foWhCzJ4IhvuP+++/3n7nmXl9zzTW9559/PtFxjj76aL9vchLRHE2T3Xff
3T/3d999d96/k29qP9MOPPDAyGOgu7Taaqv5cYNcay4cV/zmZiyetVnw2Wdz
/BhM5oBvPYvaN1lg/Mj483v16uVfD1x7+IG43vFFUluIfFZqqLDGMOeKvQ3x
B9Kw+SXOzF0juPdVU7z//vsF64lPP/001rymT5+eiwmgllIjxEbUEnPnzvV6
9uzpPx/NOUe7jDhR/MWs6w8//HB/XYn9yL42sCtwjSWlmXD66afn9Y8+RZS4
RuLzTU69acSqCSGEEEIIIZqGNTh7ALOWZq8uyge7k7uvRncv7r7J1iXcd999
U9Gu49wT44uNDN+1y5lnnpn3u8hviwK2RvagaFgX05tjr2mPRb5BpSHPyYzf
yBpX6ITZ54KYhrB7dWwLdh977713InM777zzcn2SaymqA86FOS+rrLKK/+wg
d6oYPAd416Chb18n6CxiExbFIef42GOP9ZZffvkmfcbYZ9EFCMof4W+nnHJK
kzlAnA+0MfgO/hYhKgV6IMZ+zbqK2Anh+f4y8jOvueYav5YveYamLgkNf1GP
Hj1i6Q8Ug+dF69atc8+QtPQk0OFmDHwHLsQ8uvFKUcBnxbMNf2Mp7RlTV8O0
uXMrW0sTLZcNN9ww57+fNOmDio6fJcaPjK44/0tc2qeflq4ZRJyUfb46derU
8M8Oagq5a4CwumM33XRT3veTWg888sgjuT6pgS6/f3WAZrWJPeBZz7qz1POe
mHfqDKBTbl8n1JhfsGBB7Pm4OcTYRqJAXQa7H9bIaWm/UYfgwgsv9M4+++yq
bjwfhBBCCCFEtmBrIX/zrrvu8vde6EFi90ETLWo9oTQgl8nev4nyIUcLDXDX
Nv/xxx8n0j/2QdMvtpSkMbaWIDsdmFrZpt1yyy2hxyBXAL8Sx6WUzcKtx7vL
LruEHisO5PUZzax11lnHP7eNCs8B+1yQYxoWo1VnGtq6SYA/m2uDPslpRd9S
ZAc+xkMOOcQ/H/gqeaaEySfhs+eee26eXt1mm23m+0pFPtjv0N4zuZluW3/9
9b3evXv7NaixXbn+4Tlz5vh/Q3Pc1pzHJ1Qsx5j4JWJqsozvEcmCjZ77Cz8d
73S0QLhv0ZAk9qNadMvRZzY2bPx4aBwLz/vmm2+ajB/hOYE9P62cVda45IIx
VvPmzROvR/vdd9/5tVeJYQtai/Ecs39vixYtIo1DTV2+z1q7GDwD7Vw8GnmZ
lYL7cYcddsiN3Wi67saPTDvrrLPK9gdfe+21BTFqjQx52fbxQH84LDxX7D5Y
+yWFuRdpxMeI7GCNYOuRcd+F0a8B7F229vyf/vSn2DUBeCfY1x/3eBTMHtK0
YjaQJDB1yqq9oXUhhBBCCCEqDzYb/MXo/bh2B7expu7atatfyzArux1atUaH
iNpg2G5E+Rj/iWn4tR544IHE+sd+RQ4OfXM94etMEvwO+BOwS7rwb24toijx
qkYDsan6uth44vouo4IeHsfCHOdGr9dq11ak4WcIAzp37vMubv1Cmy+//DKn
JU8+RJBOuqgM5hnI+wON/KiMHDky73lDfM68eZXN+apW0PjfcccdA9cR5Kih
ExG2DiQ2QWxwxs7HeyBIV5z61fZ4ceo1iGxB35j3qvH/FWvkO6Izz7nOKp4K
XxFaKWZdhT6L+BXiRIihMo17l7UnOqP2c5Rauvgd09hjDBs2LDdO0vElt956
q99v//79A//uPpfIUwsL9Tu4tjbffHNv8eLFRT/HsXbvkaRiRcsBn5oZ969/
/WvFxq0WTE0cYqTCgC+Mc2ufN1NjuRFBj90+FtQBDwPH063hhHZRUhBTaGov
o5EVtpaOSA4Tc8C6sJROQ1N88MEHeTGLxJq+8cYbkfoKqrcUpQbbhAkTC+w2
aT7PjzvuOD/WCh84LagOWqmGzoj5Lo09r/3f7t9o6HOwtnd1xks1bCBCCCGE
EKJysP+56KKL8tbL9hq1qfUb6z40PtPQLi4GuUrUrjFzeO655yo2dj1AXS73
PDflK40CvhkTk0DORdiY4GLg16NP9jhBcD3avw97ZFhdOLSymXu7du2a/Cx+
KHs88uQrxfHHH58bFz3eRiZorx4298atjcx+NmlNQe41038ja5BnyQ033JCz
PyThy8fGa1835Mk2Sg3IIObP/9yvDxq0ZiAODV9L3PuK+93kS2Djs2OVyBN3
x506dWrcnyUqDGs7159S7voUO2S3bt38GrKVxM5BpLa6KB/iuNy6EtQ2f+WV
VxIfa7fddsuNcd999yXW7zbbbOOvHYNiHNHAcPdaUcY2dXSbypEzPm3T8ANU
SncXP4ypSYBvIA2d8moHTW/2I2jmhsXVt+YYNqLWEDYKtx4s6/QwBNVGTno9
wPrD9E3NE9U4qTysF9C8wX/J8ycu1GCw66qgTxZUR6spyNGwr72otZFZT9j9
7LXXXqH7iAvPceJDORbF1l7UgoqrBW60Z9AnJ6e8VatWRccjVlUIIYQQQlSG
6dOn+/nH9toWu9sTTzzha72xzqXNnTvX15kjBrhYjCB286ixmmGxNaT222+/
ioxZL2Cnc3N6kozLdjnxxBNz43BtJUGfPn38/orpArv7DfYgYUE/le+iQVgK
9FbdeyHJ/NVSPPnkk3m+mUbPyXdrI6MnGtZmyjMu7X06z9S2bdvmxlCeZGXB
NoSdH3t+khrU2E7sawcdxUaE+m1BeQvUiKTWWpL+dWxaxpdMTBu1CNw4ImP/
E7UDfhfzDjY+4+23394/t2hEmxxMYtNeeOEFPxZyzTXXDFybUoub/PVKxDq+
8847udg5dK0rXYu2HuCd7WrQsu8gJz1J2P+Y/QzxYsX08cPA84f+iKEJYsiQ
IQX+hLC1Lbn+uR/Q+2kK42+u9DuJ+xP/vxk3Sl2ZRocaUu6zrF+/fllPq+Ik
URsZXSL7+8QWp4GtTdWzZ89UxhDBsBdHj4pn45gxYxLr167RRSOHoZQGRBDu
+yxKbeQ5c+YW2N+CdHgqhftusddqYe/PcmEN4NadStK2JIQQQgghSvPWW2/l
dCHRkiOHopy1MRo6ds1Bu2E/S1IbOQjiTU0eCuNRh06UB7Hsdh435z1trTTG
JI7ejElsaVzwH59yyimB+WzvvvtuwXUZ5RohlqJv375Nxgy7dkF8JWFqrEYF
fWQ7HviOO+5Ifcxq58ADD8w7F1H0xam7ZveRVG1kF56/Zgz8DdOmTUtlHJEP
PooNNtjAP+7UUEuyNiY+adfO00haGWjsu5qtpqHdmlZeKP4gExu1ySabBOap
YvMStQF5XHZNVXSqiX9rCnRq0NFdaqmlil6DUfICywV/IFrtZjzW1CIaxJq4
eejEA0TRAi3FGWeckesfv2zcWAOuAWIniVUKglgI+zf16NEj9Bi8s/gea92m
cHPGiMOoBPZx3XTTTSuqV1VPuLnr6DpVKp+8WkiiNnKnTp0qsh744osv8uK0
2UeKymB8tZxbzkNS8C6KW9vYfQ5HqY3s5iLvtNNOmT4LXB0208hNSRNsH27d
5vPOOy/VMYUQQgghxC81Vsz+lFqOTWmjubB2pd5TsVhENEPTgHxLO+ckbM2p
Rgbb7HbbbZdnk6tU3T6jIUtbccUVU9W3Iwbcvh47dOiQ2lhgaiibViwPJWls
nylaAFnVKa8m3L162OcQemXu86yYPTgJ7Brl3JsifcaOHZt3fqllR7xBUnWq
3bwDcrIa4d6kLrup0+42bDxp27uIowkau9L+ExEPYhn32GOP3FqSWI+wPqiX
X345sE4LDT9eWrodJ598cm4cagpK1zQexBy65493/IIFCxMbg3x22+9DPdu0
IJ7R/T08N9Ni8uQpBeNRLzltWDOhLWvG5J0rosHa3j2H48e/l/W0Kkrc2sis
v9h32n3cdNNN6Uz2/0FdIzMOOlGNXN+kUqADYXRAzNqBWLQktK3BrlVBY32B
XkA5BD33w8ZDufsWxif/OivmzZtXdK2NXlzaYLO0x0yjLpsQQgghhPgV2xeL
tlOcGiZ2bVa3peGjvOSSS3L9k/fZiLWiokDe7j777JM7duuss05F7EkG9tG2
XRedqDQgF4S6SPZ1ePfdd6cylsHVWEorf9XGrsNFy1LbqlpIozYyNdnC6peF
wc2dV+5C+pCTGPS+OvbYYxPpf+jQoQV933vvvYn0Xa2MGjXK98e7v5u80Pvv
v78ic+AdVyw/olL+ExEfdEbMOYtTs3bcuHG+3krQtZBGLho6PbYdW/og8SHe
0D6mpl166aWJjkPdE9M32jn4ltPgzDPPzPsdm222WSrjGNw6H2i+ViJ/zY5X
JWdORCdovZK2hlQ1kVZt5KT8i0FglzBab2k8r0Qhrp/XtHbt2iXSP7W03b5P
P/30sr6Lj9P+XtjayMSjoUNg9xFnbZQErOuLrbWpt1UJsGOZManXLIQQQggh
0gM9NLP2iqu5yfoWHcmgtST2mPnzk9OxRMvN9kWecMIJifVdz2A3smu+tm/f
3tcFqjRnn312bg7o+C5cmFxOicH1AxJrgNZqWlCnzr3u8fGmDTnPZjw0ehtN
5y6INGojkweRNrZ+KzqeOpfpQc6CqzttWlJabDxvfv/73+f1jS5vvULsQ5AP
mbxB6hpWksGDBxddi9TLfUUeCP4nnvtJ1vauBl5//fWcJnnXrl1j90ct7mK2
zqR9MXZdTGqDKxc5Gez3o2lrrbVWohoP7nuBWttJQ5wLuYn270gz9xncOh8H
HXRQquMBNWfsMR9//PHUx6xn3DUpjbrxjUIatZErsR6w46GwW3zzzTepjtfI
oFeCrl7Qe544pKRAn9/um/d8UG0tl0MPPTTve2FrI7vaf5WqcV+KYvVriN1L
S+/FpXv37rlxiSMXQgghhBDp8N577+XsdMTgJwF2gmK2OnRbkwLbjt33lClT
Euu7nsHmYI5Zly5dUq0PWApqY9q2OjQgkwYfuX2NsNdJE2KC7fGIQS9nXxkH
bO32mGlpyNcaSdRGtuObaejTpQ2x2/aYDz30UOpjNirDhw8v+q5K0sbu1vVE
4xNfRb2BDznIL0++RRbvZ3QGg3JQyemqF+waEeeff37W00kUNOD5XfjIk9AC
Za3j+u7sd3VSWvYzZ36cd92RdyqSwV33m5Z0zpMdB0DNl3I1S8tlxIgRefPn
uZlmPCd+MvKP7TEroe2/zTbb5MZjPdUINR2CwK+Bv4jjQa5k1H2BWzeH1q1b
t4RnW70kURuZvUCl4ynwddtaCknZW0QhvH+LretZSySFW5+YNmbMmCa/F6c2
spv326ZNm9T0MsJQTPsnqfzvcrjlllty41bDMRFCCCGEqFfMnhQ9a/SikgB7
RcuWLYvGJn766aexx3B1kXfZZZcEZl7/2Hp9ffv2zTwny96HkbOXlB0XgnSn
0s4Ntm2PtD333DPV8WDvvffOs4VXKva3mgmymQ4YMCBUH0G55W+88UZKM/4V
5m7XlW3VqlXqYzYqjz32WFF704svvpjYOG5MA42cmHqCuhVBecjYTuPqnMSh
Q4cOBXMK+yyoZmxdj+OOOy7r6STGK6+8kvtdSdZEueqqq4re8/gokgBNfPv6
T2LNW+tQu/Hcc8/1NcQ5zlH9snbchN2SjvGaOHFiXv/U0EmSvfbaK69/3hFp
go6/e8zSju154YUX8sbr379/quNVK7NmzSp4N0bVV7Bz7kxj39EouLWRw/52
1tfkH9t94H+qBOSNmjGpt6S9WjrMnDmz6Ds+yXW3XVfNNO7PUgTVWyq3NjIx
49SGMd8jLidOHbqkmDt3btHjfcYZZ1RsHtQsY0xsg0IIIYQQIh3QhUZPmHVX
r169/PzQpHzJ/fr1K7qu7NOnT+z+Xc3akSNHJjDr+sZoOpJ/HkY/D98Z+5U0
NPfc3Euum6RwtZ/Srj0Hbv4qNus0mT59ek5PgCZt918IsplOmjQpVB9Z5JYb
zjvvvLyxx44dW5FxG41idRiSvm/xn7hj1FPsUzEfMu3666/PdG5B+Yth66RX
M/XqRz788MP937Taaqv5MT1J5Zfg0y22NmWsuGtgYuFsHfv9998/kXnXMviQ
iVW1jzXP3Sh+FLe2pGlp5PdttNFGuf7JIfvXv/6VSL/Y3e11Gw395zQh99ge
j9+TNuTfmvG4JxpVy/eCCy4ouF6Jqf7hhx9C92Wei3ZrFL0Dns3GZmHavffe
G6oP9gHu8SPmuBI88sgjeeNec801FRm3EenUqVPBef7rX/+aaOz8sGHDCsYg
RqEU7nO43NrI+Mbt2GjWKuz/q4FStZGffvrpis3jwQcf9MdE/0kIIYQQQqSD
68Ojrbjiin78YFyt43HjxhVdV+JriwP7gA033DDXH3G9ixcvjtVnvWO0wNDO
e+CBB0J912gFsVdIGuwCXHNJ2+q4Htx81GL+DOoiJpHvhG6Ze62//fbbsfst
xYknnpg3Hved8Lybbrop77hwLYS1H7j6gXvssUfg54ivePXVV5OYdo5Jkz7I
G3u33XZLtH/xK/g4Tj31VP8Yow/57rvvJj4GunXuswG/Sj2ALWvppZcOfNeT
e5g1ro2L9009aavWqx/ZfX/jd0N744MPPojddzENRtrLL78cq29Xd/Xhhx+O
Pd9ax75G7RYlD9DWrrRbGjWM3Xra+LCTwI2zbd68eeAzacaMGf7viuJvdHE1
MZKsMRQE2rK2rxy/TqPC+sK9Xqlt8Y9//CN0X7ZOuGnoqjQCQbWRiTEKg7s3
oM5BEEOHDvX9hEnCfbzsssvmxl5zzTUTi90X+ZAnQb7w7rvv7j/7kq57AOjs
BL2Lvvjii6LfcZ/D5dRGRhvDrsfB+mX27NlJ/pRY2PordkOLpZL60saPvM8+
+1RsTCGEEEKIRoMaTcVsaXHtv+yN7P2S2+LoF7tr97TtIbWO8WGQT1lO7R4X
oz1drvZSWFydtkcffTR2n26cMPuZoL0dNUqxde23336xx7znnnvyxqSm3n//
+9/Y/RYDG5R9jxEHneZ4tYS7V99hhx1C97Huuuvm9XHllVcWfIb68vytR48e
Ccw6HzdPFn+nqE1c26Vp2LpqGd7zW265ZeBvww+4aNGirKfo62nY86q3/NB6
9CMHxWSZRqwZf48Dx6lY/3FyxIhVWmONNXJ9Ebcn7dLg3DDaKaecErqvc845
J7Cvxx9/PPF5uxqkW2+9dew+8RdT09Xul98URJcuXfy/40+OQ5CW76233hqr
z6ZAd8oeD83RRuWKK64ouF6j1uR1a6uyf5k3b37CM65OLr300rzfTgx5WGxt
6WL2A/y95M9vtdVWSUw7D8azx0/Dvykqg117w278exBB9Zaaqo1MXBvXufl8
x44dI9eESIticXlJvC/DgDYB4/bs2bOi4wohhBBCNBLsY4vZ0mgTJ8bTftxu
u+2K9h1H64Y1ot0XMYgiGKOhxN7lnXfeidQHewRsFUnkRASBb9s+n/it40IM
st1nsVwIo48+ePDg2GMeeeSReWNS/y5Nhg8fnjdeI9VIK0XQXv2www4L1Ue5
tZGvvvpq/2/ktCeNq8fLtSpqk2I1PdPWK0ibIL3uavMbuLXbstbZTpp69COj
D1JqbXraaafF6p/3fbG+Dz300Mj9vvnmm3l9sQ4Rnq8nGnSso7w3XT8QjdzO
OLGppdh0003zxqL+TxzQr3bnH+QnRlMHzdONN9441nhADr87ZtpavnaNF/YP
X375ZarjVTMm9hl/0BZbbOH72KPsp4iFdc9j2vuMaoJaIPZvR3c+DOXGU1BH
hr9R7ytpRowYkTd+vbyzG5EXX3wx8L12xx13BH4+qN5Sqfh87Dd2jYzjjz++
6rT35s2bV3QtlUatiVKY/ThxO0IIIYQQIh323HPPkra6puIkm4L9bbG+4/hE
7HwP8ky//fbbWPOsV9jLYL/BnhM1n8HkY6y11loJz+5X2BfZeyV0R+PUoV24
cGFB7bmguAVsCq1atfKWWmqpRPIC3RyT/v37x+6zFK7fWjXCfyForx62bjSf
t7/PNRKkP4ddi2cQe+mkcX0S0rauXai3HPQeDFtjoJpAQx//TdDvat++faJ1
6OKA/8KeGxoC9UQ9+pHRgi61Nt1ss81i9R9U19C0du3aRe7XzZWNottcj9x2
220Fx3nbbbf169OHgXewre9pWhzff1O4ebVxta2pnWD3xxoiiPvuu8//OzmY
cRkwYEDemGnXVHD91h06dEh1vGqHWj0rr7yy78OMUzMqSNP9+eefT3Cm1Qv7
RLd+Bs+QMLAndo8f9ZJd+vbt6//tmWeeSWr6Ob7//nt/z2Dfi9WyVhLhcGPg
TaM2XBBubeRmzZoF1jMgJgqNNPM56h4Qf1SNsIcptpaKon8XB1M/oJb3VUII
IYQQ1Y6rr+Q2cqjiUCrfOap2ILGbdj877rhjrDnWK9ig8KXin8WG9Mgjj5TV
yO0eNGiQH0NwwQUX5LR10455R6vJPq/E+UYFu4rdF/rSQTG86Gfzd2r7xIVa
Re41HjX/uxzYe9px9ehnppUvXmu4e3Ua+VDl8tRTTxX4x7gPXIg9wL9MflQa
YDNfZpll8s6xNFJrk2JarPhXahGuQzvfzG7YSINss1lh53CR31dPtZGhHv3I
PINLrU2J/4oDWqJp+Kjd3NWwtTvrFeqHmFhB1pLkIYf1IYOrwWKeN++/n97z
Br1se7y4tRdbt26d1x/rFRfiKNEBohYNxy4ubg53mn53cGuEE0fV6JjnNDW3
o4CvsW3btnnH9YADDkh4ltULcWvuvd+yZcuyvz9lylQ/Rtn+PntkfPwu9Lv+
+uun5t91a4EQMypqD2poB60hiukqN1UbmT0fORZGu57rk5jmStYYDkup2shR
6r8byGGYMGFCqO/wbmbsYrriQgghhBAiPkbTN6ixfn3//Xi61nY8pduuu+66
SH2yB7f7KVZXrJEhl2eJJZYoaYcN28jJSBNXH5W40qi4NuK999674DPkBGAr
wBebRK0hNFztMdGvS7NWsWtTwb4kfiFI95IcpnLOBzEI2LtdP3LQNXT++ef7
f0szH2SnnXbKmwf3tsgO7CL4JT//fEEoG4lrPzKNGJ9axK1pb7ewGvJpY9fa
jesDqkbq0Y+8YMEC34dW7Bo7/fTTY/X/2GOPFe0b3dkozJo1K6+f1VdfPdYc
6w3zvkTrO6o2p6trS7vyyisTnmk+rA9tfRvWB3Hs4+hU2/OfNm1awWdM3mmc
Wt0GfGHkwtpjph2/RF1ZezzZ9X+JO1xzzTX94/HEE0+E/v5dd92Vd0zR5aq2
Oqlp4tZGNnaKcmJ1Pv74Y/957K7rg57RJlYlrh5bKajLIDtG9UAsAbo1rDvC
xOr269cvcA1x9NFHF3w2SFPdXGP8jb0dsQvmb9QWpjZytWPP2W5htQJc0MBj
DRgGdL+JFalmv7sQQgghRK2DXwWbWdAaEO21uOywww5FbXVDhgyJ1Kcbyy8t
33yovWRrZiXV0qj/aoN+mD0euW5RoX4duZumLzcXlXw049dJoi4ydO3aNW/+
afsr0M2yxzvxxBNTHa9WCNqrm4aWaSnQPmffyj501KhRedeQqz2J7hh57knU
LiyFGzdz+OGHpzqe+BXej9h7iaHZY4898uopGBtmixYt/Hu/VI0z2HzzzQOv
yaBctGpn5syZRfWsadVW85k6oGZuadcayAJq0JnfVy9+ZOBcBV1ff/zjH/1Y
jjjcc889Ra/fnXfeOVKfbg30RsoVLAdi93bddVf/2LRp08b76KOPQn3/5JNP
LjhXXbp0qYgmLDGH9rj4mqLi6lovWLAw7+8vvPCCt+SSS/p58XHquxjQhnCP
2/Tp02P3WwzW37bfnZjWOH73eoJzy7oSXYygWjvFoF6vrelMXGQ1aX5UgqAY
ElpTNVjJa8QnxXHnuW/7vVZaaaW8z7I35L7jWH/zzTep/RZXVyFMXrWIz2uv
veadd955XqdOnXzdB7cOFvEF/K2pe/SII44IvCaDNM5MjTC7jR492l832HYt
3pE8J2qBUrWR48RGmNpUUbRhknhnCiGEEEKI0mCPI0/A+F6wlaNJloT2I2vx
YmvMKDUKP/tsTkE/2CyqFTSKiG0lDj2J1tT6GC1o7E9R/MRNtTfeeCPVY8Vx
cvdy1FiLCvZF08+f//znXG1bYteNnvvBBx+cmA0SO4U99zRj2WGjjTbKG+/e
e+9NdbwgiN8mD7tz587ehhtu6K222mp+jWg02y655JJE9BhdmrJHunX57EYe
ETHfbl4y1za/geuPawWNcrC1iInNMHZv7kWjn4UWfJo899xzeb8B+2Oaee4C
DdbP/euXmmT2sV922WX9GtX48qlNTt0GuyY6uePkJLrwjHHr+plGvb5ao0eP
HkXvsW222Sbr6RXw+uuv5+bXlL+/FqnHfGTgOYdupNEA5fmN1kQSteiL6czT
8FdGwdWOuOKKK2LPMy14JvEuTWptWq6fkNobvGvN85S9h3nfFoN1L/nn7nnq
3bt3xeqKus88nv9R4Rlkr3XxEQLXO34utGzYjyX1rHJrI7NOSxO3Bi0xVJWG
Y0kONDFgxCzwLud3E/fH+p9jnvS1Q4692WeUAp10E6PI87pU7hz9EU9jNOFp
+L1mzJiR5NTzoH4vfk6ucY4X+3jyqPHpoBM1ZcqUxMdE477U+Qiqjew+a926
Phwj7luOHXYNfIfAHsC+/0xMCM8ZkyeMPlaasHdyfwM50yI9uM/QeXBjOrkX
qd+O1j/XPP9rf4b//+qrrwb26eoumNarV6+Cz6IB4X7OXIfEJLOvSLMWVhqU
qo1s3mtRoA4CfZxyyikJzlYIIYQQQiQNuQLsbZLaWwfFwJtGfHpQTaKmYP9n
98PesFpgn4sGEfvPdu3apeLPxb7EPrcYxerUJNG+/fbb1I8h9hF7zDg50Pil
t99++1xf+AfxAZnzQu3npK51V88ybX8FcfLueOTcVQrsvvvvv3+B399t+F7J
yUqqRuSYMWP8PMhSWo833XRT3hzI20CD19Z5p/YUfmByTE39b+ocs/fnOWhz
zDHH5L7XrFkz/3smLzXtWAEg79k9rpMnJ2/HE7/YMvEh2XoO5Kf37dvXj9Ep
psVK7Dz2Du4H/Mru9T5nTmH8k2vDrBWIO7Nt2m6rRt11nlfkMmEjrJTfqZLU
qx/ZhusuypqxGK6ujd2ixHYQd2nXsqelWe8gLGi733777X7sCz7Kpt7dURr+
/nLXIcRf8W7me8xlxx139NfOxA2wduKZiu2eZ6/5nGkbbLCBvxaoJK4PgHVD
HPAXmzUJsWHUyUTbgv+mxnZTvvUwsAaz5562pslRRx2VNx5rqEqB//jGG2/0
NQuaul453mhFJzUu/upytezR7DCxoPhHWU9zTfDvxEKSj8hz3c6dZV2CDpHr
L00K9njUYmUt3NSxa9++fWI1fdk/sc5ydaNseBa4cyCOxPYtE5eCZj5rdJ5F
PFdoHFtsGzbsE8wzkD3hnnvumdObR18miTj6pnDj7B966KHUx2xEOJfs1ew6
GTx72ReiO1UsjoN1PDUTuMb4LvGILm69bdOCaqCfdNJJeZ9hH4rN5qmnnirY
d9YKxWxO+ObjPKeMf156g0IIIYQQjYWJJwxqQbVGy8GtoUv95ayhPhUx2qVq
+SXd0BUNgrxK4kMffPDBXHP/u6kW9P20cy4Ne+21V97vjBuLit0ZOxE2SnIR
yEnARpB0rTb83fa8sQumaYd46aWX8sZjn1sJ/wi5EdQoK5UXENTwu8bNYeB4
mhjxUppfbm1kck8Afyz+AXzHJnca7XTi0NEWLqVhN2HCBP8ex0e46qqr+nln
UerbRQXtPfs3YWsXyWLbdU1Dr2Du3PJzH/E1Y78mHsbOmcSfVOzeiKO5kAWm
xmlQ4/kqTbnKY/uRg/QURT5o2BS7hrEvR9G4QavC7WvRokUpzD4c1Dkhj7BS
a9OePXuWPTf8VuiZ8JwlRqtUv/h80Pu8//77I9dWjgNrDvc6iWv7R5OJ47Xu
uuv66wps5/hAk6ztyLrQXT8QT5AmxGza45EDWAl4h+PLDXvNElMaF1O7mD1M
uRC3xtrTXXe4jTUF/uNi+74kuO+++3y/VpjjRtwMPrC44D+mv1JxmW5tZNbw
gA4C+1OeIfiBzT6Pa5DatcTPFIO/8Rm+x2/H98y9USm9H/al9m/iPS6ShXPs
1lfbbrvtvPfff7/sPqgBQGwPcfx2vnBQjK9pvKdciGUgzhLfdZJxQllSrDYy
xzgqxIiZd341rKGEEEIIIUTlcPdIdnv00Ucj9UnMvt0P8Z1ZgY8SLa2m7F9J
N9bWCxYsyOx3pwm+Ovu34q+rBdwaSWnHN7g6hWnX6AXsNeRzR71usWW+9dZb
kcc3+lnYBIoRVBv51ltvjTxmtbD11lvn/aa0NfcaCfye5A64OchPPvlkpP7Q
pCAW346Vwo5e7L7Allwr8AxwfRJ2I3ZMVJ5GyEdOklK1kclliwJrWrsfbM5Z
Qu4UOYOVXJvSzjzzzEjzxXdDzuF1113nXXzxxX4/aI+z1iFuLs1apeUwd+7c
gt8apTZPpcFf4s47TU1kzqOrV5GEr7EpiK0zWtFRWpj4BxfiGogxZG+GLzss
rFunTp3m+56I08JnzP/i2yUvP02/JmO7eZJhGusm1uZR4fehMYT/t5Q2vlsb
uR7ec/yGJN49IhhilHgPm+PL/UmcTpSYa/zR7C25z02sZFCOvGlJ5epXM8TY
Fvv91J6OitnvohkjhBBCCCEaB/IMiu3pyQGMmk/g1qAtpW+bJmh28zsqbaNj
v03dznoFn5/9e9m31QLUDrPnjS00TWytZRpabmmCDZe6p3GvX+7fcuso2rBv
J8cTO0Ap221QbeRK6n2nRbdu3fJ+E/E0Ij7kfbnxTviQi9VCK5ezzjrL78vk
GrtxJqaRN1NLuPErbiuV+yPSQ37kcKDtXOwafvbZZyP1SU6j3Q85wFnAuxJt
2kqvTWnkJmXt700LfA/o5tq/99577816Wk1yww035M057VpArLfc6wJfYZqw
b2BvFPf6Jb4kCqaWSild5mqEZ4XJBY7T0MFGjyEKnTp18vsopS8eVBsZraxa
h31iLa8HqxW0q1wfPXtH/MpxQHecvkzcBPanYvdEI+TRlqqN/Nxzz0Xq035f
nX766QnPWAghhBBCVDPkdxVbXz7++OOR+sQ37fY1bNiwhGfeNOSpLb/88oG/
jdhsdNWIbb/88su9yy67zK+5yr8Vs3Pgt6AGD7lcpdrgwYPrNg/ZEKT/On/+
/KynVZIgPcu07WbU37bHS1PLFC3rUj5kbKvoweHbRHeSWGK3TqTdqGkWFrTm
+C42p1K4tZHRqqsHeI7Yvwt/vIgH/g73PipWAy0s5K7xLsB/DG78k2k777xz
7LEqCVp1xe5r4qpENsiPXD7kYpq6tG6jjmxUjD/EtKi1W+LAGpl3cLF7FO1k
aoWyPmfNSc4jOXDFajzS0Iu116FBa9X+/ft7r732Wl3WHrdxa2pHWctUGlfD
iRrxaYJuq3sNfffdd6mNhz+x2LWL74j3Ejo63I8dO3YsGf+78sor+3WKwkAN
UOp3s79LM887DYrVNqVRMxgtX54P1ILh3c/xKfZ58oXDQu423yVGtFTOdVDe
p103pFYZPXp0we/iGS6iw3710EMPLXgOkNsfF+IuiMPZYost/P9Gd6zYc6QR
KPb84NkRVmeJmN7DDjssr59K1o4SQgghhBDZwj7c1hJKyrY2bty4gv6oB1xJ
0EQK8geTN4t9rZS9ZPLkyd6ee+4ZeFxuu+22Cv6K6oWaQe6xoVZONYO2uT1f
bC9pQqy1G5tPja+0ICbYPSctWrTw7ceffvppoO2YnGPsidQqdjUO8a9NnDix
7PHRjzf53u+++27Jz7q1kbGB1wMmDt5uf/vb37KeVs2CDxlbkHtMo8Y4BUHO
4y/XeqGuqGnEGNUK3NOldEO7d++e9RQbFvmRy+fwww8PvH6JfYqTT8870e6v
R48eyU26DGbNmuXXtwj6bfiOS707eceSG0ccjfvdTTbZxLfNi8L1Bf7JaoY1
grtWfOaZZ1IdEz1Te7w09d2pW+pes7yj8Eeghc51HQTrTzTT8V/GfY+Z9T9j
1hJDhgwp+O3UYe7bt6/34YeTA/26+NHQa0APKai+RVBN2FKYmJc77rij5Ofc
2sjoHtQDU6ZMKTiG2DlENLg+3XiupPfH5lokbqpYTbMOHTokNl41s8EGGwT+
fmwg48eP9xvrDvP/TSN+hOM3YsQI/31BnIr7PGHvpD2uEEIIIUTjQF2zoLXl
uuuu63311VeR+yWe1O2zkjHJruYyjThXcju+//77svrAB+hq1NKIka/3XI5y
wA/vHpss6tt+/vnnft4GOmPkMBTLM+C8k/NqzzdOrbByICfdPUZR9fiaYuTI
kQX3MDH0Ya7VmTNn+hqfdj/YY8uFGAu+QwxGKYJqI998881lj1PNYLtzz3kY
X3w1w3kj9gibGrbftPUHsC1vtdVWBcfzxBNPTHQcdBrpl+dIMd/rI488kuiY
aRJ0DdoNu7TIBvmRy8PU4gxaxz322GOR++UZ5uY4o0dTKb744gu/bqP7u/78
5z97EyZMKLsf8v6CtESo/SwK65nih8yCO++802vVqpW/HiO2tRjkm9vzRRcp
bbp06ZI3Zlr67uS7bb755nn3MDGPX375Zdl9sB/jGPFd0w/PB2IyyoG1BGtO
vp+2BlGSsNay/e/4w9D8+fHHH8vuA93evfbaq+B+KHdv8NZbb/nfYY/VVJ0r
tzYyfux6YOHChQXP2lrQyi8X9vPsnXmvTJs2LfXxgjTat99+e/8+Twr8oE2t
6+PUBq4V2KeV2g/EbW3bts36JwohhBBCiArBvsiNf6exZyUfNw5uLSHizpPc
H5TihRde8OMj7fH57yi2c/K6Vl999YJjVO15t5XCPc5p5toGgW1oo402yptD
sfhialXbn0PfuZQ+WxJ88MGHBdcO12fSkGtsx1tjuyk3XsKFa97WGuMco/3b
FNikyIfiO03pDQfVRq4l214p3nnnnYLfNnbs2KynFZrPPvvMt7+gkcg9Rv6L
e7/vtNNOqc7BrS1OQ5cyae3NV155xe+7mIYutuc4cVWVxvZVBrVy7meRDvIj
l0fnzp0Dr924awz0Ddw+w+bmRQUfTPv27QvGRzMfrciwcCzcvqo977ZSmLr3
pqWZa1sM/Mbu+SG/ywV/qu0r5H0TtfZ3GHbfffe8uaWl725rqlI3Ik49CnRI
bA0tcnLLgVpDfJ7nSq2A/71ly5Z5662o8dhBfvhy892Nhu3AgQNLfo7nm6tp
VC8xa+g8uPcyNXdrDd4zxHAQc821Rf0Eambbv4u9ZJq4NY3MPpOYiSQhR7bU
up724osvJjpmNVKqnkAS7Ywzzsj6JwohhBBCiArh1jehEd9NDmNcXDs2+ReV
gHxKV3OHnI2nn346cp8mx9JuRx11VIKzrl3wLdnH5eSTT67o+EF6b0G1P7Fb
2bk75CXPmTMn9fmxR3Xnl0ZdtqOPPjrX/ymnnJJIn3b+AjV/m8LkQO64445N
fta1I3Ad1Qvkx7jnHK3rWmPQoEFN2g9OPfXU1MYnbz9oTOzBSTNvXul4ffLJ
aolSNdLrRWeyVpEfuWlYrwVdu4ccckjsvtHXdftFW6ESsG50x0ZTP0xuoQ31
Xl1dj1qLeUmLq6++uuBYV1LzG78dPhp3DsOHD8/7HHNya+hUKj+enGd73DT0
3YlJNr5Lap5QDycuzz33XK5P1vJo5DaF0dl57733Yo9fKfDbmnNDfEgx7e8w
nHvuuXnPnqbAb42Pj2u5qfGD6llVYp9VKVxddmJVao2gOFe3kRecFuS2B9Vc
Oemkk1IZz30/2o2Yh6jv3lrC1eYwjTwSNKtp2EiCGvc0z1v2g5wjEytut6ee
eirrnyiEEEIIISoAekxB68rrr78+kf7t+HNa69atE+m3FOSWBtXRjKtHGmR3
RINQeAW5wNQzrCQXXXRRwbnBTm9D/bAVV1wx9/cll1zSzz+sBMOGDSuYX9I2
XnS9+U30Tf5okv2amIxyfE/G7/zkk082+dkDDjgg75jUS21k+PbbbwvOOX7z
WoP8cmyu+FiwE9g56qYlWaPYBu1XO+fINOx4+E6SBpt/Kbta7969Ex8zTZZf
fvmiv0W+y2yRH7k03PtoDrjXLbER5OfFBZup2/ekSZMSmHlp7r777oJx0XqI
q4myzz77FPRbKb94NWPyT+3GmqZSoAfjjs86FL0XA+9YV1s6iViJcsGvW2rt
nAQmdoIcxyRjKPFplLsOQQOIz6Wtn5IkPBfQQk/y2QfELbAfp1/8edQpKQW1
qfkstWabwtV8qreYNXLp7d9Xq5rd2DRefvllXyfJ1W2gsa9OA65pO7/ebmnp
UVH/t9haGA32RqBYbWR0UMLC88N+9hJjEkVLRQghhBBC1Bbky7l2ZmK7S9Xu
CkunTp3y+qfGZdoEaciRcx0XbD3u8SKOs1I63dUMdlD7uFRaU9GtA4pOn/Ez
YXchJ8X2IW+77baxNdvDcMsttxRck2htJYnxS6Sh9zt06NDcvN98882inzOx
Fi1atCjrvnBjxMn5rxeC6m9Sl73WeeKJJ/J+E9oV1N1LA/KiguweaelA8Mwo
5UeupXh7zkmp30JtRZEd8iOXJsgvisZFUrbKkSNHFvQ/derURPouBrFFrnYL
+ijo58TlggsuKPg9TenPNgIjRowoOC7U06gkdk1g4qLI6zK88cYb3g477JD7
+7LLLuvvYSq5r3DrGnEtJQl1OU2M46233ppo36zv8VPSd1N5tfvvv7//OTcX
vJoxMaj4epPes+CzMzmhpc6LqSnNOSS+pyl23XXXvOvp+OOPT3LamePm72Pn
qHWoceI+J9OKQ+JaC1qTplkLnjrgxdbCV1xxRWrjVgulaiMT9xEF1jPmub71
1lsnPGMhhBBCCFFtoP/lal7i8yBXIkmoUWuPgb8xTagvZteHNXaZBQsWJNJ/
kJYP/vhGB7+xfUyyyNM2ue/EQmDHwNdEfqtd1xob3s033+z7+CqJG59PSzKf
kpwXc92noZ3M8TK2uosvvrjo53r16uV/ppx6YegausckDa3vLHH17zg+tQ7n
3/5NaWk9YzMtVs8srVpmaDcWs7WgfRe11ngWvP/++yX9yOXWRBTpID9ycWwd
V9Oo2ZpULh7cddddBWMk4c8tBfU+3DGTyvm68847C/o+4YQTEum7lnFjDNP0
jxSD3Hej6UJuKZoerE/RjbXntd9++1Vc/5d7Kim/QjHOPPNMv9927dql4h83
filiRYv1zz6NmDdyr+Pm/leStm3b+r8trdqj+N7pH22gYphnCznz5eBqyOAL
rydcuwb/XeuMGjUq7zdRKzkJ/XQXYpzRoA9ak95www2Jj2dw65zZbfz48amN
Wy2Uqo0cR5fN5OanoWEhhBBCCNEUrOP69+/v1990GzpKQf/e1N/S/v5VV13l
awLVItSztNeRxCTH1X0OghhFe5w06+2Aq6NNO//88xPrf+ONNy7oPy0dplrC
retGDbIsQNcO3zE5ufiTua6JQ8aeyj45Kz8Q16B73SxevDix/k3OAnruacHz
mTE6duwY+Hfyq/GbkttSTn7qN9984/vmzPHYY489kp5y5rgxLTyfah00Ie3f
lFZtZGzqQTaPtddeO7U4EPS7i9laKq3VH5cg/4ndpkyZktrYvBN5Du+7775e
586dfb/JEUcc4ddvJ8ccPTw0wtFS5NmI34L4BLQz+XfiLbhX+A79cC2gHZmG
XbMYxJ6Rs53W+tH2IeErSGv9ym9IKo6uEpCfab8XaFwDSde0RfvCvSc++eST
RMew4Z5w42LITU5qTRLkR05Lt6GWeP755wuOy5gxYyo+D7S0+/Tp4+fcsS5l
fbrCCiv4dUAGDBjgffTRRxWfE7Buc49P0vl5zZs39/u187CTBI0CE7NH3dcg
zJ63HF3maoG4SuZMLHTSGkMGzgljsFYt5l83+fQ8m8thww03zF1LxE3YGu71
gK0fYOIjah3WXZWw1QTthWnoIpeT6x4Fah/Tf9C46F03AqVqI8epDW38yOw3
hBBCCCEqCbZb9tSlbJ7V3PBP1RLU6HTXkWnpdbK/sseKUoelXD7/fEHBXoHr
ihyzpHDriNHQ8m10XA1K8rbFr5x77rkF102SvrA77rjD7zPN+rvUcyZGHRto
kF3o2muv9eeAr6hcxo0b53Xv3t3PJ0mj3m3WuDHw/NZaBnuD6+NBNzRpuNaK
5SJzL6UF9vxi73n8EbXE6NGjS65b0oypoT57GmutefPmpzZnl2K15GqxYdev
BT7++OOCWgc8M9PIH0SXpPD6Sm6t6BJ0TyRZb51cLrd/5bl7vnaFe1xqqT5B
2hDP5x6fcvRkwkB+Kv7ENHWATAxxkA8cPzNzYO2alq8qDd5++21/DxtmTR0W
W2uI8VxMTekwGlP4v4ndxWdfS8e7XNxYyiz0t5KG32D/pqS17Q3EgQatUdAb
SQv0J4qtja677rrUxq0miq1n49SKJ64Tm1sxm4AQQgghRJqUWuPVQhsyZEjW
h7BssPmj7WXmTgx3mjnVRpPLNPSG0wL7gXtudtlll8T6x88VFO/w2WefJTZG
reL6kcnbFr9Cnp173STNp59+mrpen4nDdzVx0RLETsjfJkyYkOocaol68yOj
f+Zex19//XXi4wTl1pmWlqY1kDsbNGbaNvA0wFdS7Bii/5kmTz75pHfggQf6
OhU0bFVbbrmlb8sit6qcdRUxK/g/qYmLVgE26UqeA7eObS03fku1Q00SO4+N
Rg5hWufcjaekUUMwDagj6NagpaE9nxSmpoTdTjnllMT6r1XkRy4N72/3+CTt
R8aPm7Y/8Yknnii65zPxYeXqMlcTaEmk7aM57bTT/OMT5IM3NaWpAyB+od78
yLyfbLsQLY24yXfffbfoGiVNTWtqRwSNif+TdUe9U6o2cr9+/SL3a85n2vXq
hBBCCCGKgS8WDTa0I9122GGHBf57uS2t73ft2tXPo6uVWkuvvvpqXi4ZPo6g
+OMkcXWtsQmnAbbGFi1aFKyR77vvvsTGwD/m9k8sZj3mUYZl9913zzsujaIV
VS5BWl7UKK81zjvvPH/u+MVtRo4c6f/7tttum9HMqpPll18+75zXuq61WxsZ
vcM0QOuzmN0nrect75BiNdTi2FqyIkjP1bSs9SKY28orr1x0fvjz09LxLBdq
reCHS2v92LJly9zvpfZCWutXfkO11//DT7LVVlvlXQNp5UMZTE1Vu6UVExiU
+5x0DQq0ftwxLr/88kTHqEWC9P2z0LWuVvAhuceHmk21BnnVxPmyx7X35MQ4
mnzbcnWZG43HHnvMPz7EfNlQU5pjyrooydr0tY5bH7nWda3d2shLLrlkKueb
GrrF1nzF9OiTwNUhN+0vf/lLamNWE6VqI8fJIzG1QbALCCGEEEKI+mPy5Ml+
DpJZO5JfVQk9Zmqp2mvW9u3bpzJOUE479oQk47iD1uJp1qOtJVwbZqtWrbKe
UlVB/U/32qlFuwx5yMydXEMb4kP4d+4R8StuDlrPnj2znlIszHk2jTq3SUO9
RuxYQTYPfE1pQW5g0JjkacyZMye1cdOi2O+hZVW/3sbVKjENPfO08kKrCdum
2sj6w8RT2XEjnH98vGkTpHmArnYauJqhtKuvvjrRMVZbbbWCMdKqR1tLBOky
1FqNgjQhLss9PrVUQ9jGxObYdc5NfYdazxlNk4ULF/rHiFhsG5On3Ldv34xm
Vp1ss802efdLrcfPnn766RWx0xTTVkajJq24arSX0bYJGrdRdCmK1UbGRhan
NvIxxxzj9/Paa68lOFshhBBCCFENzJ0712vevHlu7ch+mn1jJTCaWKaRn5wG
QbpFSWvtoLHojlHr+YVJ4cZnp5V3XqsMHDiw4NpB66/WQJuQubdp0yb3b5Mm
TfL/7U9/+pO3ePHiDGdXfbj12t087loiqDYyeSxJg++jmP8Te1da3HjjjYFj
oqlci3C+3OvPtKzrDpD7TU2NoLnFqddWS9h+5EZeR9h1g4m7ITeqEgwfPrzg
2ksjtpK8+qB6KG+++WZiY3z22ZyC/hmTmJxG5/HHHy84Nu+9917W06oqXD8L
+6la5IgjjvDnT01fA7WU+DfpMpdm9dVX99cLJpf7+++/92tKE0c3a9bsjGdX
XVCjw75fiIOqZdjP2b/n3HPPTXwM9KOLrevTXPMVq5u35ppr1oyWYFzceiFJ
2Wk4p2iRCSGEEEKI+gLNMjSGzboR3Sr2h5Xi6KOPzlu32v6nJNl7770L1sjE
UidJ0Fp88ODBiY5RqxCPbR+Xgw46KOspVRVDhw4tuHbSqCubNvh/sDk2a9Ys
928nnHCC/3vQ7hb5uOf8uuuuy3pKkUH/zP09adQWGzRoUFF7E76ftHBzTEyr
ZS1M8o6DftNaa62V6bxmz55d9Byj3dAIKB/Z8+NqzDGghnMl77WgWu+TJn2Q
+Dj4tNxx0OePkwfkcvvtt1ddrEi1YDR77ZaWfnmtgg/RPj61Gu9mnqlmXzZz
5kzpMpeJqSvAuxnMM2WfffbJeGbVB3pb9v3SrVu3rKcUmUWLFhXEOY0dOzbx
cYibKrbmu/DCCxMfz9CjR4/AMdFkbgQ+//zzose9VuOFhBBCCCFEeqDnY+tK
s9epdE3WM888M2/dir0iDbBBumtkfHdJUczu/dFHHyU2Ri1j13qk4VsUvxKU
YzllypSspxUJNPGZP/Xo0EQkZ4E8hnnz5mU9taqCPDT3nA8ZMiTraUXGrY3M
PZ8GZ5xxRlG7B/nwacC9GDRerddP69KlS+Dvwm6YVp3pcrj//vuLnuNx48Zl
Nq9K0uh+ZLtm8Nprr+3NmDGjouMH3fNp6EBfeeWVBeOg6Z4k1BN3x8B+Ljw/
D9U9NvIp5kN9Hvv4EP9bi5hnismnNPtP6TI3DWsdjpXRfDc5t9SyEfmss846
efdLnz59sp5SZFy9BmKckqwHZnjggQeKrvnS8FuD2Z8GxVhV2haWFQ899FDR
406uthBCCCGEEIaffvopz7aETYlcwqiQ24uv6J577gn1vf79++etW9HISnr9
bmo7uW3WrFmJjXHLLbcU9L/LLrsk1n+ts/zyy+cdmwsuuCDrKVUVEyZMLLh+
nn322aynFQmjYf7uu+/mbLRuvWTxS01695w//fTTWU8rMjvssEPebznxxBNT
Gefwww8PfJ5TWy0tevfuXTAe77uovi3ytNHrxRaLpn1UJkyY4E2cODHy92+4
4YaiNqQkdXXDctRRRwXOCV3jRtHGb2Q/MjmirAX57eutt16s/FDuD+7VnXfe
OdT3TI0Gu4Vd35bDX//614Jxknx2/vvf/w60lVMfXRTGPy2zzDJZT6nq4N6x
j9Huu++e9ZQiYXxihx12mH9fUGvlF13m5PaC9crJJ5/sH7s77rjD133n/6+/
/vqx7Ab1CLYVfK32/UKsUK1iamCbllat56uuuipwzbfEEkukppF33333BY7Z
SFrMxx9/fOAxoEYRuSbVDLHpPMupxRdnbfbOO+94H374YdmfJwb8xRdf9B58
8EFfQ4w4EfYs1OnD/sG+Ls6+jDjadu3a+bp9xOMLIYQQQlQLRmuWxv4wLqbG
VFjdwbvvvrtg/Uq95iSZOfPjgjH+8Ic/JDoGdZ3dMUaPHp3oGLUKNfjcYzNg
wICsp1VVcM27x4h7oxZhX2f24kYLWHHNhZDH4Z5zfO9Jw14bfz7nhb0pe9wD
DjjAGzZsWGLaqdgb3BqK9G/AZ4G9njpn1C7YfvvtvZNOOimSH/aQQw4JtHvg
l00DjlGQnkUcX4/J7TEtSj1OU+uRRo52FBYsWFC0RnKWun7oagfNiXVGo9Co
fmT08c2zZKONNvLmz58fqz+T2x42/5baiK6e52WXXRZrLkFge3Sv83vvvTex
/h955JGC/uPWPawnjjnmmLxjQ+67yMd951ILqRZhfcX8sfU/+uij/v+XLnN5
GD8fGsM9e/b0///111+f9bSqjiCd4DvvvDPxcahJxjXM2oB9Futq4jtYt/G3
pGjdunXeb2FdYvjkk0/8WETqP+PL22677byuXbt6r732WuhxLr/88sA1H+On
hYl5thv/1kgUq41MXHC1Q66GPeco8UD77rtv6PVd0JrNbay7ouBqMTXS2l8I
IYQQ1c2ll16aW6Mkpee18sor+/2F3b8E1YZLOg9q+vTpBWOw70oKYhnd/hWn
/SvUFHSPz4gRI7KeVlVBDr4bw16rdUBNvSlT27JWbY5pQ16He1/g10uKTz/9
1PetGl8I/4vWNPYe6gHyb/z3nDlz/M+jVXfWWWd5e+yxh/fEE0+EGos4Afe3
oANBHqHtMyVnGF82cTxmTuzjw+j/o6kZtG9Pq4Ya8ebuWOgrRNXQpiaj29/U
qVND9fHqq6/mfT9OLnYxm0hafvmmCDo+pmFrbBQa0Y9MTkizZs1y7w2eIXEx
+VQ33nhj6O+uueaaedcf/pOkwY/lXuevv/56Yv0H2cobKd+qKfC92Memffv2
WU+p6nBrSXCP1iLm3UIs3W677eb//1rWgKkkgwYN8o9Xr169fH0D8vaT9FfW
C2+//XbB83bMmDGJ9c8xZ23A8Tf9U0uIdbWpY8762thRyI8mbpt1fdj47aDa
yPwW8jGNBh3/tsYaa/j1s5s3b577HLH1YeKHeT8HrflYn6YB+uxB42Wpw1Np
StVGTrMmdRKYmCC78XvC8OSTT+Z9v9x6IuSxo7HWqVOngjgL06Lmw7D+SHvN
KYQQQggRFuJizfrE1IiKCzll9BeltjH6nu76ixjbJCGfxR0jSV024m/d/tPQ
P6xVnnrqqYLjgz1H5NOqVau8Y4TeVC1CnibzNzmc1157bdZTqkrQdrfP9yqr
rJJIv8SvXHHFFbm4BOxA+PanTZuW+wz5w/iMsQPx3J46dVqediXfIdegXC66
6KK830J9MfIisHWhS3f66afn+YqpS2b7yfDXGH92U7jHzTRqCyQNWgomRspu
cfISjT3WNGyy5D6Gwc2hi2NrI2Yg6Hguu+yymdiJuW6K2baS9K9VO43mR+b+
xx7N78U299VXXyXSLzqc9BmlxiJ5Vvb1R8xL0hj9DruF0VgsBToQbt+sM/At
iF/YZJNNZLdtgiFDhhRcR2lpzaYJ+WrM3bzTWfvoXiiPwYMH563r0eMXhVCT
wb1X4mpqGLCNrLjiinnvIzv3l7U/6yfWlNQAQfMIzV17Lmi7l4tbG5n9wvDh
w71VV13V/290d996663c57mXzLqfvzOHctdsRh/AbWnsgzlOpr633Q4++ODE
x6pmStVGRre5mkEr3p4va8ew4Au2++jWrVukubi1SajFEgXiyN3zoJg/IYQQ
QmQNsXcmfjTJXEejwxK2/pyBGlX2ugmdpKRx68Ptt99+ifTL/tDVc8X2KH7F
9Zsst9xyytUOwNappe29995ZTykS6BXb/sikderrBfI97fOdRD11bLt2/i92
HOw+xTB1Bchndfev5fp1wa2NjA+S/0UzrVR8f5cuXXLfwZ7/9ddfNzmWm4tr
2tChQ8ueb7nYvjzTOnbs6OsHRMWt7xzFN+WeL+IGooIPO+j807LQreS5FzQX
bJPUtGwUGsmPTA04488jJ4Q8qCTgeqHOH/1GeQ+deeaZeddgGhqbbn1eWtS6
6y7uO4b1v+oi58N61D5GWer5VyvUenSvUTsurVYgNs7+DcS3ifKgNop97LAn
iEJYM9nHCb97XPDPEvdp76tKabNQJ4W63/h73efbqFGjyh731FNPzfsutg7i
U4nDsOvWuFxzzTW57+D3njx5cpNj8c4n5tR9ztg62knBXsEdh1oq5ew/6oli
tZE5z9VeG3nPPffMmzP2k7AQu233ceutt0aaC3rudj/E+UbBjaGlxkbYGGMh
hBBCiCTBlo9PgbXJ1VdfnWjf6FzRb9R6kUZfzDTiZ5PG1YqJ6vN2ceuGofdG
PVLxK+S928coSU3xeoL70j5OW2yxRdZTioRdex2fmwjGzv+loRMXB3Sp0bYz
/WHvGTduXMnvEM+B38a1I6y22mplj4u9wfhq7EYt23/+858lv4vutf0dYhCa
gn210eVO0+c5e/bsgt+FXS6sdpoLx9buM2y+Pu8X97fjW49DkC45jbj6Svpu
p0yZUrRecxJxFrVEo/iReUaY9Rm5w2gAJIXRGMWWHoUHHngg7xpELzRpqPHh
Xuv47eJCnpjbb63WykgLfBfuMWokzYNyWbx4ccFz+bnnnst6WqH5+OOP834D
NYlEedh1WFh/NVJMVxiITUjS1sAa3Y0xLifWxdWsMS1M7Rz2oEFrwqbWwMRZ
2j66cmsOB9VgOOqoo8qebzmwT2rRokXeGEsuuWReXnWjUKw28vbbb5/11ErC
9eXGR4StQc5ew/3dUXRgfvzxx5xt1TRya6Lg3m9x4oOFEEIIIeJCfWCj45V0
ri9rclPr8uabb47UR+/evfPWTmnkYboaOBtttFHsPtGbcdeh2B1FPu4euJ5t
4nFAg8w+TuxNajEWlfMbxt7RqGCPsc93HC189tVufDY5AeXw8ssvFzzH0Ksr
lyAfJNqp1FArh3XWWSf3PXI3yrFP2nnMpqHdnRT4xqkjbfePHZ1jFQfexe68
x48fH6oPV2OU5wS2jLgUy03o27dv7L7LxY0pa2QfWCP4kXm/UWPO2C6T1srl
mUDfxNdEYdKkSQXXYVJ62waek64dMm6uH88v6kvbfVK/Mo6OQj3i5tmS5/f3
v/8962lVJS1btsw7VjfddFPWUwqN/f5df/31s55OTUGunjl2tVpzpxLYekC0
uPGhrL/s/srVE1+4cGFBHGQYvV00QtzayKzPy61J1blz57znKnGZTeHGUtOS
jjsPqiMR1XZVy5SqjUztoGomKEaOGKEwcM7t72MjjaKT98ILLxTMJYr2zbPP
PpvXB/du0mtNIYQQQohyYa1o7PTY6dCmitrQJ8Y3ceGFF/oxt8cee6xf19Ks
e6LWU7n33nvz1k/oXCcN6zp3TzR16tTI/aH56tbNvOqqqxKccf3g2p8acc9W
DkF1vJOqk1hJjJYmfjftg4Ih5859HqFFFxWjCWHaTjvtVPaeGB+ke90NGDCg
7LHd2sjo2JFnXC777LNP3vep19sU5BG5c6beWVIcffTRBf33798/dr+ubtkK
K6wQuj6jm2eSVJ4u16T9PrdtgNg40qZUrTbaK6+8kvocqolG8CMbPy91RwYO
HBh5bUouyo033uhdeumlvhY1mhi21j7vpCgQ02LqzJuWxr3g2raj6iIa0Aay
+2MN9uWXXyY02/rB1HUwbd111816SlWLe40mnSdYCVhPm/mff/75WU+npuD5
ao4dsYMiGJ4h9n3CMyYqvNfsvqgBGybWyq39HuaeDYqTD3Peub/s75YTB4iu
tJtnuvzyyzepa1Qu7Gvc3xRFD7keCNL2Ng3faDXj5oU0b948dB/EStt9UCs5
Cq7eXtTayLvvvnteP1HXrEIIIYQQcSHPgXpupWyzSbYwekk2kyZ9UNBXXO3Q
ILp165Y3BnXpovDpp58W5BLiSxGFsOelTpN9rKQlVxy3VjgxFrUGPkzmrjrh
xXFjmKn9GjWnFP+a65MuVZPYZcKEwtqHYXRV3drIYX0grh+53P3z/vvvXzDv
uPrOMHjw4IJ+sRUkwaGHHprXb5TayK4m32WXXZbI3ACtN7dmGI2YqTR1/7BZ
Gn8dPkV3fGLzk8i5riXq3Y/cr1+/iq1N48T4tWnTJq+vNLQGJ0yYkLdOQjc2
au6wW9Od2udR1+b1jl2Dg8bzWQRDHJV9rDbffPOspxSap556Kjf/OHHEjYjR
DVt99dVDx741CsTNuu+ecmoDB0FcMXGGdl9h6reyXqLOrf39MD5ttzYy+jxh
cP3IaBSVA7mw7jFMIvb8tddeK4gJO+CAAxpWn7179+6BayVqVCetC5M0e+yx
R96cw8YCEGNtdBRNu+WWWyLNxa2ZFyUG8IMPCm2gYXWqhBBCCCGSgHpWbv3N
NBs5aHFYa6218vqLq+sXxIIFC/P2Zeia/fDDD6H6QNPJnWu1awBliauZS33R
KNpBjYK7t2MvX2sQM8/cqacmgnHjqdF2jQK2oo033jivr7A6cOhT2t9nf13u
PRpUG5m80jAwX/v76HOXAzpmrp0tbuwCehvYUew+8cskBc8/u++wtZHRwXDf
vUn4zm3I2QryJXOe8fcmDX57Y99Di3fGjBkF19SOO+6Y+LjVTj37kYNiNdJs
o0aNijxX1x4eRvM/DG4OMflCYeCZfcopp+T1wbshisZio4CGhX28qBkggpk8
Ob+eJHozvP9rCeo6Mfck6ho1GsS8ceyIvRDBPP3003n3SBx9A1cfGxtLmLxc
1oXuezCMThB+X/u7Z5xxRqj5uzE65erM4cN09zRo6sXx9z7++OMF8YnsuRrV
h0y8g1tLwzTW/tVMErWRbV0K06LWRnb3KlFqI7t+ccWzCSGEECILiBUOqgGT
Zttuu+1izfmkk07K649clTTAP439w4yz3377lV2Ddvjw4Xl+AGoFpeHvrifw
y9jnFS10URzs3fbx6tChQ9ZTCgX10k1ubLl1tBoR10aENmsU8NW7z+KwNdrd
HNkwfhJqGdjf5dyH1U9dbbXV8vro2LFj2d/lfnFzsbEVhwX73OGHH15gJ0+y
BuS0adMKzlXc2shp5elSF9Y9LzRyJnv27Ol98cUXscfgeOAfNn2TX462Npx1
1ll540bVDqll7GNQT35kdOvdWI2028yZ4Wrn2bz77rt5faWlfcy7c+utt86N
s+yyy5at3ULumqvTSEwafYpgeG7a+Wk87xctWpT1tKoaYm/tayxNjYo0ML4t
3mEiHBtuuKF/7B555JGsp1K1uBobxPVEwX3n0Pr06ROqDzdWNWxtZHf85557
LtT4xHTa38f3Vy7o4vD+c99nYSG2ijps7h6B89KIPmT2OezZXI0Vu7E2u+66
63Jr8WoDrS13zmFrI7v65sRoRMlvCIrVCBu3x37d/j56D9x/QgghhBCVJqgG
TNotbj23sWPH5vVHLee0wBZv24/QxKEuTzGmT59eULtk1113lVZgGVBzxj5u
o0ePznpKVQ37PDtOeMkll6x6jSmb559/3p83Na1EcdgrmnOMjSOqX26LLbbI
u7+whYf1Hbha6tTwLRdsNPZ3y9WuM7D/d98lYev94uu1/VIcT7Sey7UTUfPN
tatwfl5//fVQ82iKJGoju3Wb0RRPi2+//davpxf0vuf+5tyHtd/wfMNuwjm2
7VbYPG07Dnoq6Ciaz4wbNy7pn1f11GM+8sKFCwvyN9JuaHuWGysYBNel0dgw
bfbs2QkelV9hHWrngZEbVKouOPcJesN2fg7PlWHDhqUyv3rijTfeyDunjah5
EBZ8WfYxu/zyy7OeUijMvTVo0KCsp1JTsD41ayzFhxbH9Z1GrTNLbRf3Pcbz
Kgzo+tjfP/7448v+7ogRIwreoWG0B1jXNmvWLK8PajWEYcyYMf460+6D9W+5
/k3yS00OvWn4psPqJdUib7/9trfbbrt57dq18/c27BPJewi7diKHm1xw+mjb
tm2uUYsoK217Nz5izTXXDN2Ha5eKqgdGzW+7n7C1kfEXu+flmWeeiTQXIYQQ
Qoi4kGNbSTsdLaw+pws2f1ujFH9ImvGQ5HnYsfXYNrGZk9+GFjNrOWoe27Zs
Gv5trfPKAxunrSWFf7TWdPCywK37moaWbFqYfA/2miIYamHa5zeqlkNQLHRY
TWtiZNw+Pvroo7K/z/PQ/m7Y/It77rmnYPxy6yPbUPfQ1a3bbLPNvIEDB/q/
0Qb7B/9GzTV0lO3v8N7hN6QRD55EbWTsFHYflcjTRauxefPmRd/9rVu39utH
E5/Fe5XcSHTzPv/8cz9fjRrv5NZSi862LeLvx+5azF/PdYjdjziHRqzHWI9+
5Mcee6zia9Mk6ri6Gp1Ra+mVA2ukXr16FdxjxKGQE0Y+Ec9N8o9t/zE1zHke
KJelPHhm2ceYHKz/r707jZGi2vs4/o4gRkDlhbkuo0QE3BGUTRHcopiYiGwS
ZFEMiiKLigtCRIxC3EAIiIKACRE3EAVZVAKIGkSEwACKQRhAUAQV4hJf9XN/
5XPqnjq9TFdvVd39/SSV64WpnkPVdE+dc/4LMlM8j33Nyqlejh2zlik2A8lM
3RvFteYTk1PJ1CPLjpHSs04uPe4VS+TGWulzPsxr6R65e7ALFy7M+ny3P0KY
GkGyefOWpN/D2ssMS3vB2se0X0d1cp555hkvZ9t9LlTd7gULFiTNS3Ro77BY
8V9xky7+s1CHnt31jB+FQvRGdvdup0yZktNY7HpKOsLm02js9vnUyQAAAFFS
LeEBAwYEjjvuuCPj/6/vqO/8sPU5U3HX2d95550CXI30tF6nerJuHyD3UD9k
/XsLnZ9W6VauXBm4jrnGfFYb9fqxr1uYOPKomd7hqquP1LTWb9/fSZMm5fQ6
bu1fHfqzMGbNmhU4X3X7s6XPT+Up5POZ7ebX5rNHs2fPHm8eb9easPdYmjdv
7tWkdevl6dC6nX7/qNZyseTbG1n10txxl2o9XHFeqmepOhxujcCwh2rIaV9O
tQvroxp21VpH095HrpR+ELqfxXj+zHTkukZoU+yg/TPcvXv3AlyNzDZv3uyt
B2fK31ZsXrdu3bx/IzWsw1GckX0td+/eHfWQYk/7U82aNfOvmXJUVbeiHNh1
ug4c+DHq4ZQVE9tKX+n0FO9rf56oT0outN/rfs6rHloYykd1X0Nxfdly10Qe
e+yxUN9f8Zvu98/1GUa9BhTz4+6L61DsaE1NjRdf6eY/61AfFtW+UW5ANdFz
luZCuubDhg1LjBgxwutvPXbsWG/+qToSmn/oM1HxaTNmzPD+W3+mfF/l2Y4b
N857BlUNCsUV6Jldr6c437D9iAulEL2Ra2trk35O1McnrFTz3zC9kRW3Zp+r
5zjlXgAAACAc1Ruyn6ty6YeTq4MHD3m9jvVsp5qo+l/FtWpvArlxc2qUQ4P6
qYac5r/muikXsBwodtyMWbn8SM2tcZDr3qUbC60jbK2Efv36Bc7v1atX1uem
6lOlurVhtGjRIuk1tAaWD31mjxkzJtGxY8ekeb67t6x9Ua2jFLsvZiF6I7t9
tLSHFMW6g/K6Jk6c6OUXa1++vn1j1QRW7rXqYKs3bjH6OVeiSsxHLld6n9nr
2I0aNSrZz7G+t3KvlBOoPCzFHSnWRnGNrDvmRnlp9meU9pSRHbfmbrnUUDe9
ifQ+zqUXZrXS55yJvdN+MlLTekUh3hcjR45MeobS534Y6nVgn6/aa9lSXrU9
/8xlXtG7d++kf4NiVvOhZ3Ttf+qZPdWesjn0s6pnf12zurp9eX1PxIvbi0JH
2N46qkNln6/c5Fx+H6hmvTuWbHsjq7+b/R5TzZy49qMGAACIO/WBtWtbK3+L
Glrly+Sm6lAOmuanyI7b22rLli1RD6ledt8i7Rch2YEDBwL3Ndf+tqrn5q6l
qCbz8ePHQ72O2xtZc+xsuf1+w/aG0p6zOw9XzbpcagGmozVQ7Xfr51Hreu+9
915i1apVXu3lUnKvlXInwtZqVi6A/Rph+0gXi9Y/1q9f711j5aPrUEyW+k7n
2vcb7CPHjfJ77Pef6r2jPCl/276Xyp9Ddj755JPAtVNtgLhTrr6JKcv1mata
qU+tudcTJkyIejixpGc59bI310nP1bnG+KhWvPtcHLYWmjt/DFNv140PVf2Z
sHtceo63X0N7Znv37g31GpnoeiuHVM+Z5plTv4+1p0iMSOUqRG9k9QOxX0P1
znOhfO1c5r+bNm0K5FQrxkPrAgAAAMidau/Yz2aK20P5UV9M+z7qviJ72uuy
r1/YvrNRsNc/wtRQqyYvvfRS4L4uWrQop9dRbyp3remKK64I9Rpbt25Neg3l
lGdL9c7sc8P2NVa9Yvf7a25eidyeDbnk9bi528oJdilWRzUI9+0jD6PcsY8c
L6rDbtd013okylPnzp39+6jYVcWwInt23Vvl5sc9l+r999/3x6vnFmRv+PDh
/rVbtmxZ1MOJJfWst5/N8qnHpL0x+7VUd0Z9RbKl2Em9J+3XeOONN7I+3617
E7av8ffff5/0XK96NEC+3N7IucQw2fEe6WLIlPuuedThw4fTvo56hoeN1VAf
IjtXRr9HDx06FPrfAAAAgCDF5dn9LZl/lKf+/fv791B5knV1dVEPqezYa3XK
5/7rr7+iHlJaWofVfdZYVccWyRQnb+8Fnn322TnXW9i//0DSWo3q4YXx4osv
Bs5XnedUsfyK9U9Vo2/06NGB87VHHob6pdvnq9ditnXByo3bG/mJJ54Idb7y
p937/dlnnyV9ncmz01ogyhv7yPFz0003+fdEz6lh6/gjeuo7bX+Ojho1Kuoh
lZ358+cHrmGYOiZRuP/++/2xqv8sste6dWv/2mXaV6lmPXr0CPxeUJ+sXKnO
rv3eCps/rzow7rNiqvm3cpxTPbOrx6t97oABA0J9f+2hu9+f2h3IV6reyM89
91yo11AsYDax0+ohrb9TvnsqWotp0KBB4HXq6428ZMmSRMOGDf2vv/nmm0PX
DwMAAEB6dv8t7S3s21eZewuVSrVM7Wfscqh7F0duXLjW7uJq5cqV/ji1P4hk
6jFm388ZM2bk/FqKl3bnw+qJFob629rn33rrrUlf8/fff3v5EG3btk36O+2F
2ueH6X+uHsZuD7Zhw4aFGn+52LEjuTey+puGsWDBgqQclVR1ExV3pb//7rvv
CjV8RET9/cz9JocuHtw1etVZRHmx65Or1nGlxi4Vk/Ij7b41YXMWS039J81Y
w/bTrGaay5nrpvuNZKr9onUKc52GDh2a1+vV1NQEfsf07ds31PmqPW6fr9dL
5bLLLvM+/9w+Mur9Yp8fphaWPhfcmMlOnTpRaxp5c+ut5xIvq3mXfX6zZs1S
/myaXON0cYJubwcd6Z4jVINdfb3NZ4Rq2owZMyZ0XyMAAABk9sMPPwRykvOp
EYXSe+qppwJxAKpzhfA0z7jwwgsD8/G4evzxx/1x6v4jmeKP7TW5XPunifKY
Tf63OV5//fVQr+H2RlYuq8vU60u1NqZYcPt81anO1kMPPRQ4V/3Ujh07Fmr8
5cLtjazjzTffzPp83es2bdoEzu/SpUvS12kNT/H6ynln3a787dixI9G4cWMv
ZkB9IhAP6ktu3ofNmzfnvVZGFH+l95O5f8pTRW5mz54d+J2kdf44OnLkiD9G
1fVB9lSLxlw75dwimT33Ufx0XV1+PUXcZz3VFQ/Drf2bqt+M3hPaz0rVC+fT
Tz8NnK/6vtlyY5+1jlNbWxtq/EAqbm9kHWHy3FXv3e0NlKq/kHKE9XPbrl27
tK/lxlCn642svWXVEzBf17Jly9C9zgEAAJA95abZewzq+4j4U2yz3d9p0KBB
UQ+prC1evDgwX4nrfoL2uM0YV6xYEfVwYmf37t2B/NtZs2bl/Zrdu3cP/GyE
6YFm9ws0xzfffJP0dY888oj3d6n61G/atClwfn11vQzFeJ944omBc3PtE10O
3N7IOl555ZWsz3fXLHSkqnP88ccfe38Xtr444ktrWnHvPVptNmzYEHgv6nc0
yoNqdpj7phqT6heA3Ci+Sevi5nr27t076iGlpGcLM8brr78+6uGUlfvuu8+/
dtReSKa9KbvfaiFq6tj70jrC1N3fuXNnUm/kOXPmJH2daruni/lVjyI71kb9
a7Khz4NWrVoFvvf48eOzHjuQiRsfoSNMjwK7t4E5Hn744aSve/fdd+uNy77y
yisDr+P2RlYdr8mTJyeaNm3q/b3yKTSX1p8DAACgeA4dOhSYD02cODHqISEL
L7/8sn/PNBdVbjny0759e/+ahu2VVQqK8TD1AzRf+u2336IeUuz069fPv4fn
nXeelzuaL7MWZA71dMqG8hzN/NYcyk1I1X/7ggsu8Po4p6vBZa8bZZO3oNw9
u8dourWsSuLmfetQTfFsTJo0yb8/9vmqeezq2rWr9zuT9x9QXOoBYN6L6h+a
a597lI7iMezeo6qJgfyoBon9e2njxo1RDynJiBEj/PFR2yocPf+Za7d27dqo
hxM72isy10e1YA4cOJD3a6onif2eyrZPkGotnH/++UnPml988UXS1/bv39+r
Z6R1llRuv/12/3w9r2fDxJyao2fPntTuRUEoP8GNPQ6Tp6C5qb7e7aXk9pbS
/FT13k855ZSU82HRn9v1Eu0Yaj0Hqk6HnUuhedlXX32V3wUAAABA1uw9SdV3
/OWXX6IeEjLQPPbUU0/179n06dOjHlJF2LJli9fHylzXpUuXRj2kALtXUKo6
adVOOeRmH1BrN4XKKVdss70fnE2MgXKItZbuzqeVU+EyOcuZ8lAU32NeQzXY
66M+UfXl1VYS7dm7ax869H7OFGOj9QzTH1drg8opsc9318PNe3DIkCFF/hcB
qKurC3z2vvrqq1EPCfVQ7pG5X/pMJTeoMOx+Hd26dYt6OEkuvfRSf3zr1q2L
ejhlw9Q+1nVTfFo+fVgqkXpHa13C/GyF7SuTSYcOHfzXVS32+vZjDx486PdA
cmMO3ZoL6g+ueUim+gGaY5rzVbdBOcqZ6Ovt76t8TT5fUSiKhUg1j2rSpIn3
s5+O3jePPvqo97XaH3b7I7u1m0wucqYYM7fuu47169d7MSUmrlrvBdXMjmuv
BwAAgEpn56498MADUQ8HGYwcOdK/VzfeeGPUw6koL7zwgn9tlSMQp/yncePG
+WPTnA1BHTt2LFo+jD0v1t6w5rPpLFu2zFv3Us64+vMqL9qcqz0Rm/YxL774
Ym+/8/Dhw2lf89ChnxI1NTX+66Sraa7X07/dnnurfl+l5yso3j3V+ocOXTc3
Tl3XQz0JFY+hr1FeyB9//OHF49t9ttSX1azrfvvtt9691FovveiB0rDrQdB7
Jd7UV8LkEOl/U/VwQG70fGDX3NBzRlyoNoeJmVM+WyHqwFQLux64asoiaOjQ
of71UX2KQlqzZk0gdtjNm7Rt3brV68+qr1PepfaH7edMN15xwIAB3p9nyi/X
82aXLl3818gUS6q5hPaazdfedttt3jMrUCgmpjbVod4K27ZtC3y9fn7Vq/uS
Sy7x45VVg16xDZdffrl/rua4Zi1F8fpnnXVWvXvTqvvljsHEUCjmY/DgwUnj
AQAAQGlpn8L0H2rQoEFi165dUQ8JKagWl1mnU05ypudwhKd9OPV2i2P+01VX
XeWPSz1a8T8LFizwr432BjW/LbSnn346sL/o7k1u377dr8Oq9Saz1/zWW28F
cggUiy2aV5vcrWxqf+q9b+qFag6+evXqwN8rB1qx2eb7aC9be6XVwF3T03vF
Xp/ToT1gXZ9rr702ceaZZ3p/prpq06ZNC7zWsWPHEm3btg3ca8VZqZ6ieggo
Th5A6Zg1eR3Z9hVA6fXo0cO/T6l6AiA/y5cv958llBdZjOecXCxZsoTY1hwp
bttcO/UVx/9o71bxmLo2iqEoRq00/ewqb1jfQ894qg9kU56x7pHGof0rzTVE
MTL6enPvxo4d658zb9487+uvu+66er+/+gBon83EqKomjh33uWfPnkDPWY1V
9YaAQrvhhhsCcyb9f3s/2MTXax6lmhiK69Ofae1w7ty5gdfSe1W9SOx9aM2j
NIfS3HTDhg0Zx9KrV6/A9z399NO9PvKqCRWX33sAAAAI1ljSsyMx5fGiuaV6
wLj7USisH388mGjWrJl3jU866SSvPlnUFN9rYtEVP5+up1A1Up7Of/7zH+/a
KFe0mDEwyhcwNfa0nqu9SvXgbdGihf9n9957b1KewNSpU/31X8WBdO/e3a+P
17dv36zz3r/++uvA3Fy1JPX927Rp4/+Zfj5Us6Ca+hO4vZHN3rB+FrTmpvqF
55xzjrfeoT1+rWdof1+x86nofmjNvk+fPt45+vnSf5NfB5Te8ePHE+eee67/
+VnfGiRKz/Rn0KF6q5VeAyMq9r6jeqXGwejRo9kLzZHJ5dOhWED8S3tFdt3p
YubfK95S+1Tuc7Vq9Jrndj0zurWrtadl5zNfc801iU6dOnn/rVhE7RFnQ/2T
7bhHPavq+yse0uT5axyKlyTGH8WQqjey6UdcW1vr1blSjLZ+NjXf0vOYeoov
Xrw47Vqh/lxxGoqv1jxK7zHFBNbWbq93PPv37/diNj788EOvvwkAAADiS/F+
5hkymxw5lM748eP9ezNw4MCoh1PR7DXROMRUqDYa+R7JlD9ux1DPnDmz6N9T
PcxU51o/F9pf1PxY603ar8zUi1c1P/UeVl6s8mCVg6De5rnEVisfXXN41WxW
XQLVCVOdu1mzZiWtdVW67duTeyMrjwVA5VAPPJM3plgQ1Q1APOzdu9fL1TOx
d8qhQ3Eo9umiiy7y95ZWrVoV9ZACOWvac0B2tM9o9imV26fnWfxL6w/mZ0qx
mcWm5/C3337b2wtWvRrFEqsP64MPPpgxflDxmooT1b6xnsX1u0l7bqr1Htbm
zZsTd955p7dHp++vnwnNb55//vnEzp078/nnARml6o1cV7cv6mEBAACgDNh9
TTS/VU4Woqe4Z7Pe0K5dOy8/B8U1atQofz6ltYQozZ492x+L9jDxL+3dmusy
aNCgqIeDCLi9kbWWx3osUHm0nm7e5+ppjugpxq59+/Z+zVW3LiwKTz00mjZt
6tf7/emnnyIdjxmLctWQPeUfm8+zIUOGRD2c2FAOopnvdu7cmfpLQJG5vZHV
zwcAAADI1tGjR/14d+Xa0YM3Wqp5Zeq2qjfNkSNHoh5SVdBe1ODBg/2YimLW
VavPuHHjvHGo7tSvv/4a2TjiZN26dX7vtJ49e2ZdGxqVxe2NrBpqACqT+lCa
97riqxAtU9NYz0imDiaKT/n5pj+rchajqiOuugD0xM7NokWL/GtHrf5/7du3
z6vXo2uiOj/Z1oYGkDu3N7LWPgAAAIAwfv7550TLli2950ntKbN3FY0///zT
77ekWlfaU0bpaG1O/WtNvcao1nomTJjgjUE50vi3RrTpiay+ZVHXHUd03N7I
U6ZMiXpIAIpI/d9Nr+SPPvoo6uFUrfnz55e0pwSC1qxZkzjhhBMizWfV3FDv
wyZNmjBPDOmDDz7w7l3Xrl2jHkosqM6W6kPrmrRu3dqrGQ2guFL1Rp43b17U
wwIAAEAZOnDggFenTM+UqlunvqAonX/++cePET3jjDO8HnQoPc2x1ItW90Fx
8tu2bSv5GLS+8tprr7Ff+l/q/2s+l66++mpq3lWxHTuSeyNv2bIl6mEBKLK7
777be79rH037aSgt5VKaftWTJ0+OejhVa8WKFd4+ru6DcsOjGgO/d8NTzaM5
c+awX/pfeo7v0qWLXx9dz/kAiu/zzz9Pmkex3gQAAIBc7d+/P9GhQwfvubJb
t25e/2QUn/aQb7nlFu+6q1/13r11UQ+pqul+DB061Lsfp512WmLXrl1RD6kq
KR+/VatW3n3o16+fl6+P6uX2Rj755JMjq+8JoHT0PleNa9VTbty4cWLjxo1R
D6lqLF261Nu7bNiwIbXFY2D16tVeDyL9DnzyySejHg4QitYVTMy0+iGzhwyU
jtsbuaamJuohAQAAoMwpB3L48OHe8yU1BEtj7dq13vW+5557vD1MxIPqODZq
1Ij60hF59tlnEw0aNEhMnz496qEgBtzeyKobAKB6aE9T8SN9+vSJeihVo127
dl7O4KZNm6IeCv6f6kepB46ej4j3RTlZvny59/ymfgWq/wSgdNzeyAMHDox6
SAAAAKgQyk1G6WhdCPFz5MgR1ukiojUm9W4HxO2NPHXq1KiHBKDEfv/9d6/3
A0rj6NGjPAPFkHL0f/zxYNTDAEIjBxkovVS9kRUvDwAAAAAAUCl27tyZ1NOr
trY26mEBAAAAQGx9+eWXSfMockYAAAAAAEAlmTdvXmDtQ7nJAAAAAID0VMPJ
nke1aNEi6iEBAAAAAAAU1IoVKwLrHxMnTox6SAAAAAAQawsXLgzMo6ZNmxb1
kAAAAAAAAApu7ty5icGDByeWLFni9YYEAAAAAKSnedPMmTMTd911lxebCwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADl7P8ACB5exw==
     "], {{0, 274}, {
     1938, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{554.7925, Automatic},
   ImageSizeRaw->{1938, 274},
   PlotRange->{{0, 1938}, {0, 274}}]], "Input",ExpressionUUID->
  "74948d4a-5a60-4d28-bece-960b6e486d81"],
 ", FieldNumber = 5 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804167332865*^9, 3.7468041675702257`*^9}, {3.74896583020805*^9, 
   3.748965831542252*^9}, {3.767539490536141*^9, 3.7675394905361757`*^9}, {
   3.7675398740057373`*^9, 3.767539874142686*^9}, 3.768069439738882*^9, {
   3.7680697802297287`*^9, 3.768069780230094*^9}, {3.768070010349584*^9, 
   3.768070010962525*^9}},ExpressionUUID->"898b3dbe-11e0-46c0-bae6-\
43cb7b3573f6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"927584c9-ba66-4add-bf42-ae54ee654d80"],

Cell[BoxData[
 RowBox[{"d", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.8318058850612555`*^9, 3.8318397764862957`*^9, 
   3.8329474893274136`*^9, 3.8329617740100107`*^9, 3.845826862967869*^9, 
   3.845852456752261*^9, 3.845857067207041*^9, 3.8459196122388163`*^9, 
   3.8460065657613354`*^9, 3.846099876203471*^9, 3.847470437637927*^9, 
   3.851700622785775*^9, 3.8539754399819803`*^9, 3.8549773951296034`*^9, 
   3.8549892534825363`*^9, 3.854999890067116*^9, 3.8551652377292805`*^9, 
   3.8551823075486917`*^9, 3.855185852402884*^9, 3.8553306275676107`*^9, 
   3.8553398335624847`*^9, 3.8553431703162374`*^9, 3.855344004880368*^9, 
   3.8553527325961514`*^9, 3.855449597396579*^9, 3.855507599617511*^9, 
   3.855508395811982*^9, 3.8555128833442163`*^9, 3.855533098358315*^9, 
   3.855533314946134*^9, 3.855578908409401*^9, 3.855593281722306*^9, 
   3.855750593884918*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"5c265e9f-1ab1-4209-a481-a6d54bff2ca8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"A", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"B", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"F", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"G", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"UD", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Fmn", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"5a4fe47c-8044-47c6-b02e-a616f830544b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"68d0ccdd-90ee-4606-9bde-f7f57cadd0e6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.768089972563644*^9, 3.8312204968590865`*^9, 3.8312222440988665`*^9, 
   3.8318058851715117`*^9, 3.831839776598523*^9, 3.8329474894211407`*^9, 
   3.8329617741171865`*^9, 3.8458268630928392`*^9, 3.8458524568901787`*^9, 
   3.845857067332711*^9, 3.84591961236378*^9, 3.8460065658770256`*^9, 
   3.846099876320478*^9, 3.8474704377628975`*^9, 3.8517006229107585`*^9, 
   3.8539754401048117`*^9, 3.8549773953170624`*^9, 3.854989253617826*^9, 
   3.854999890207741*^9, 3.855165237869896*^9, 3.8551823076893077`*^9, 
   3.855185852523821*^9, 3.8553306277238293`*^9, 3.8553398337030463`*^9, 
   3.855343170466878*^9, 3.855344005005307*^9, 3.855352732722736*^9, 
   3.85544959752378*^9, 3.855507599760078*^9, 3.855508395930485*^9, 
   3.8555128834929247`*^9, 3.855533099221509*^9, 3.855533315095016*^9, 
   3.855578908542079*^9, 3.855593281831623*^9, 3.8557505940098934`*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"e2bad30c-3801-415a-9c53-5bba317e4e89"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[193]:=",ExpressionUUID->"37160722-dac0-4d59-96d0-e0a68d6d1346"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQlQFNf6/j8IKlcBQVBB1OC+XHcUVxREcbsKuKC4oQE0MYrGXXGJGmPc
NwTFJaJXr/setdzFuFuIOyk1UUtjtFwogfLeSm7xf35z/ulv356Znp5epgd4
P1VJ4UxP9+lz3vO+79N9luqfj+szsoTBYJjoiv/1GTE1dMKEEdP7euIf/RMn
fjkqMSG+e+KkhFEJE1p/7owPU/DfAxeD4f/9XUAQBEEQBEEQBEEQBCGZXbt2
eXl5RUZGfvjwQe+yEARBEARBEARBEEWW//znP/369TMYDO3bt3///r3exSEI
giAIgiAIgiCKMg8fPlyzZs0vv/yid0EIPfn48eOnT5/0LgVBEIRu/PHHH3/+
+afp5/jw3//+t/3LQxAEQRRecnJyYmNjvby8/vWvf+ldFoJwLJ4/f56QkFC/
fv0qVao4Ozv7+vqis2RnZ6t4if/+979paWne3t7x8fHiIpcGhBMEoRfwVAsX
Lixfvny/fv3wx/bt2+GRli9fPnToULhH/IED9C4jQRAEUWi4deuWp6eni4vL
xo0b9S4LQTgQp0+fbtas2cqVKz9+/FhgfA26YMGC0qVLlylTZvXq1WbfBcgg
Nzc3NDTUYDD07dtXRIHSgHCCIHQEAnPu3LkGE0qWLDl16tT8/Hy9C0gQBEEU
Jv7973/v27fv6NGjSHH1LgtBOApPnz5t1arV3r17+R8iB1u+fLmzs3PZsmUP
Hz6s1rVu3LixefPmN2/eiB9GA8IJgtALeL958+b5+PhUqFCBaU8/P78BAwZc
v35d76IRBEEQRFHg9evXY8aMadCgQeXKlfv27Us5fzEkOTk5ICBg06ZNgvlN
z58/r1OnDrKvf/zjH/TYnyCIYgIU6Lfffjt9+vQ///zzP//5D038JAiCKERk
ZGRERUX1/It+/fpdvXpV70IR/wMkRp8+fZYtW4YIe+rUqbJly6KZrGqNjx8/
TpkypSePhQsX/vHHH/Ypc7EFSdGZM2d27typ7hQkNNzo0aMhM0uXLr1v3z7+
V7AKaE98VbNmzWfPnvG/Onv2LEriUI3++vXrkSNHcjbZq1ev1NRUeeOHRaqa
3JpsJPqNly9frlq1yupbcoIo0Mwr8hWoTT8k/yAb8g+EPUGiu3Hjxlu3buld
kOJo0nCw//znP5GkcZ09Njb2t99+U/ESOH/JkiVdXV09jfj7+x87dkzF8xMK
QQdMSEhYvHgxC7IXLlxwd3evV68euoP4D9+9e9etWzfWrB4eHuwdmYpPiVGe
Fy9eOJS60R3UyYYNGxo3bnzjxg11zwxXABsoUaJEuXLlYAP8r7j5mOi8T548
4X8FQdqhQwdkaI6zau6vv/762Wefubi4MMv08vJCPiPDisSrmtyabCT6DXwy
adKkTp06PX36VJdySgG95vfff7958+ajR48c4QVZ8fSZmnpFeQqU/INsyD8Q
duPDhw+QPEhvHGGpw0Jh0uqCDrJgwYLy5cuz/o60rUKFCj///LOKl4Ar/tvf
/uYIq87CxsaNG/f3v/+9WrVq33zzjePkzPpy9OhReHi4ffbPzZs3wwzatWtn
U5f87bffULEqKlBE/EWLFsFydu/ercoJiwDorZs2bapaterx48e1OD8S12vX
rj1+/FjwOSwB9oBMIDAw0PQB3d27d+vWrTt16lSrs6rRpunp6S1atIBCjIiI
gFQ0e5jCAeFMgQ4dOlTJLG+rVe04bk13UEVBQUFVqlQpXbp0rVq1BG/JwdWr
V6tXrz569GhTZSTuNz5+/Dho0CDYHlSVVqWXy4MHD+Lj4728vJAkI6C4ublB
cYSHh8OdqrVgl60UT5+pqVfkFCicSXZ29s6dO1NTUy9evGjVt5B/4CD/4CD+
gRCQm5s7ZMiQ4OBgx7EfRzZprUH3/+qrr3RUoPDqcXFxONhVAmXLloXXCgkJ
mTJlSlZWltWxN/n5+WPHjoXwhNV9+eWXpUqVKixheteuXZ6enlLqBFXn6+uL
DH/YsGGHDx+WKLGvXLkC3cH+hg2MHDkSWsNsOBBBdQV669YtPz8/lGTlypWq
nLAIcObMGdTJmjVr7LwFwOXLl2GBTk5OSMbMXvrkyZMwvI0bN4oXDE6gT58+
yEAOHToEc/38889NEzl5A8L5qKJArVY1ZZgcOTk5GRkZAwcOZKsWC55coRVG
jBiBr7744gtbM0zw6tWr1q1bx8TEwG9rdQM2ggQyLS3N399/zJgx9+7dYxaC
/9+8eTMqKqpEiRKxsbHcAz17Ujx9pqZeEeecP39+//790bI9evSYbaSukRMn
Toj8kPwDB/mHAu39w8uXL9u2bVumTBkpWaKPjw+yRFTaihUr1B3xaGfevHmD
GkbOIGPUB36CvoxUwRHG3/JxQJNm6qlWrVqfyQJKDfkY/ID4VXRXoOik169f
x/HJycl9+/Z1dnZmq8/hFpCR4gy7/2LHjh1Lly6FSmrYsCE7plWrVj/99JPI
yfft2xcdHY1KgCtDiot0etWqVerdpYagf+GWN2zYMHHixPLly7P7LV269Ndf
f4264uoEQjU1NXXq1Knh4eElS5bEMZUqVUpJSbFJEr59+xauCT/funWrTYVU
V4HC4NEB2Z3OmDGDnhmCJ0+e1KtXDyHMzn7p06dPiJjsBail53JwHdOnT4fr
OH/+vKXzQHjCMhGF8femTZvQu/FPgbSUPSCcj3IFKqWqKcPkg6pmGeb48eMF
vRWVGRAQgLo6evSo6Q+l+I3Tp097eXl98803juAHEKTgitEXuKd2fHAXSUlJ
SDIRv+w8rKso+cy8vLw5c+agkpEJiN+I1l6RrYXr7e195MgR7kO4I5TNw8Pj
0KFDln5I/oEP+QeGdv4BZz579iyU76xZs6AUmB+oVq0aNObOnTt388A/kfoO
HjzYzc0NxyDCLlmypHCNEEYukZiYyC1PzfLh0NBQdDfpN4J6QBdGhuyAW/o6
lEkXGBO8kydPQnNNmjQJts3qHGYMx7t8+fK1/ws+mTZt2vDhw9u0aePi4sIO
Dg4OdnwFyufNmzfcnY4ZM8ZSQ8B4Ll26xPYWhG6aPHkygpfpYSw6Q7fi78eP
HyNBhe1lZGTIuB0dQSVMmTKF1Qmk96tXrywdCdE6YcKEUqVK4ciOHTtKb9Bb
t27B8n18fO7cuWNT2dRVoPv27YPNsDuNi4srbtOaTEEE//LLLytWrMgUnN1g
I9zg3mvUqCH+qBAG0KRJk7Zt21qaR79u3br4+Ph/G2GpMmKlwPmrMiBcoQKV
WNWUYfKBL4JHggdmPpYD7bty5UpnZ+eQkBCzO7pK8Rvo/uPGjfP09BR5vmE3
srKyWrZsiaBj6QDYanh4OKLzd999Z8/cpij5TOTwLHVp1KiRSJizj1e8e/du
Zmam4MNdu3YhvMLmLT0cI//Ah/wDh9b+AZ1iwIABzA8sXLhQ5BIwbNQtkxIz
ZswoFFsT4nYOHDhQqVIlpLXbt29/9OjRixcv9u/f36VLF3bLUD24L6vngYbF
vXft2pXte+5oOJRJC1ixYgWr6gYNGlh9gX779u3GjRuznd+tGphDKVDo5Q4d
OrA7hZgSfxQAgTlz5kz24m/EiBGmWhsH7Nmzh7k4iHR4PEhyR5h6bBNs0i6r
k6ZNm75+/Vr84CNHjlSuXJmZikRFyV5OoRebDQciqKhAf//999atW0P1sDvt
1atX4XpApwUnT550d3cfM2aMnRPLs2fPent716lTxzQHMyU1NRV9cNGiRWaj
HnwpM8J79+75+vrCu165ckVwjCoDwhUqUIlVTRkmn8uXL5crVw5a4P79+/zP
nz59WrduXTc3N0vLsEj0G7AZf3//sLAwfZ02TAKGAQ/ZpEkTkQeYiDVwXygw
im2fghUlnwnvAR/CbiQxMVGkF+vlFQFyJDgxyOTNmzebPYD8Ax/yD3w09Q9I
C5s1a4a+g1o9d+6c+MGo9rJly+JgDw+PM2fOqF4Y1UFOi363atUqQZfHP7//
/nsmAapXry7+tBwHT548uUyZMvyBDY6Gg5i0AHjjIUOGMOeMP6SkWLAxVDUE
tdX3uQ6lQD9+/ChdgRYYa2bKlClOTk44ftSoUZamQEKchoaG4rDly5c74Mt3
cVDg7777TqICZaD14flxPNy4YBVTU2AA8fHx4i+dLaGWAmUqOyQkhI38NDtz
pLiBvtC5c2eE76ysLHteF268Zs2a6IZWLYfx6tUrRF785NGjR5aOQfsiUqAD
dunSRXzgnOwB4UoUqPSqpgyTz9q1a0uUKCHoqqh/xB104ZEjR1pyCxL9BtwR
TlWqVKlt27apXHRbYK9ymF+yNCe6wPiAnQ2EEzlGRezpM9GmsHyrma1C0A3T
09ORqItYhV5ekfH8+fPatWsz2zZ7APkHPuQf+GjqH65du+bp6YmT16lTx+pq
Nvyhhl9//bWKYz5///136ER0E7VOWGCsN+S9s2fPNvvECRYSFxfHjfkUmWl7
8+ZNHx+fbt26Oc5ES1McxKQFoFnZO010Z3RqKT9BqyEnXLJkidUjC7UCLTAO
b+jevTsbE75lyxazx1y4cMHDw8Pf3//Bgwc2lccRkKFA8ZNly5axEU1DhgwR
X9GFy/ll2LxaCvT27ds4z9GjR+GcpYw3Lg6cOnXKzc2tf//+9ly9+d69e6h5
2Iz0NRNgbLNmzRIPrDhbq1atnJ2d169fL3422QPClShQ6VVNGSYH6nnYsGGG
/53kBQOAG3F1dYUyEvFU0v1GRkYGXDeCgo7PoxB/4Xhxp1WqVBEZFZCXlxcW
FsYSITuU1p4+8+XLl/Xr14+OjtZ9zJ4dvCJbUgZNuWPHDoFDg902aNCAjS4z
+1vyDxzkHwRo6h9SU1OhDnDyqKgoq5WGhDA8PJw5jcjISBUHThw8eLBs2bLp
6elqnRAGs3Tp0jZt2ohYC6Slt7e3wTgjb9OmTWaPgQVOnjwZB1gaveA4OIJJ
C2CDGVDD+L/pGDazoFMEBQXBH1o9srArUHDu3Dm2gVSNGjVMN5XASeAD8e3g
wYPR1/DPJ0+e6B5JpSNDgRYYdSVyfvzE6uMU9F/k/DAAKQPpBaiiQNmiN2y2
4IYNG5gj9ff3t3U/jqIE7HP48OFou507d9rtovAALVq0QGfhz6p+/vw5Oo74
okDXr1+HCTVp0gRux+wBbEhG9erV2XtVnM3SeG/ZA8JlK1CbqpoyTA60NVpc
MMkLGYinp2fbtm1NN1/gI91vsOErMB5991WEdR04cED85QIMCRoNvqty5crq
BlNT7OwzceN16tTp06ePvnHTPl6Re6Vl+k6ZeweakJBg9rfkHzjIPwjQzj/g
zNxACEvTYfiwB8Ls+IEDB6rYqdm0dBVVHhvz0KNHj5MnT1oyhtzc3E6dOrHb
gQA3+2wKDVTLiOPvuekgJs0nOTmZhRiRHE8ADuvYsaOUMd5FQIHCArlHOvPm
zRN0QPg6RE9XV1e4CPzzzp07PXv2LETv1+QpUPxq+fLlzGyCg4NF8nkkMMj5
ERRkPHJRRYEiKiHis6ki+/fvZ9OaoGh0GWflIKA2/Pz8AgICLO2eqTrQhuh6
8+fPF8Sj8+fP9+rVS9w22M6h6GJmV4lk2y2xcfLwNpC3gwYN+vHHH02PVDIg
XLYCtamqKcPkuHLlCn+SFzzA0qVL3dzchgwZYtVHSfcb8GNz5841WNi1waHg
JsugEs6ePavptezsMx1EgdrHK7L83NfX13RJXlQvKpnmgUqB/IMA7fwD6pO9
hMWZpeT8N2/eZNsrID9cs2aNiiVRXYEie69evTrLfsePH2+2idFJkTCIjwNJ
TU1Fljt48GDHf/fkaCYtYxJogbHhkBNKeatVBBQoWLJkCftVvXr1BKPQEayR
Gzdu3BiWydTcrFmzHGS5YynIU6AFfw1oxK9w+8hSzB6D1mfqYOzYsTLqRLkC
xe2gxZctW8aeG1y8eJG9zi5btuzp06flnbMIwBxm79697TME9+nTp2iFYcOG
HT169Phf4O9t27ahDFb9Nrdcs1mfyYbwlSlThqnOS5cuQdKaXTtXyYBw2QrU
pqqmDJODP8kLlY8K9PHxSUlJkVL/NvkN5FTIrGBCNu3OY39wL6gENh+EPe3U
CPv7TAdRoPbxivBmM2bM+PrrrwWujM1tgc03a9bM0hNs8g8c5B8EaOcfrl69
yiaB1q5d2+ocTP7eCujU6j7MUV2BPn782NfXl5U2MDDQbNqAjjl79mx2TNWq
VU3HgeTn56PmYY1wIGoVTFMcyqT5k0CTk5NND4BFPXr0SNBV79+/HxoaanVK
ckFRUaCsydig0127dvG/OnHiBLJfWCCqCNlv165dRZZMcUBkK1D+fPPhw4eb
9fxsqAwqbffu3TLKplCBsgVqYKicY3nw4AHiFBvSb88BqA4FKrN///4Ga8uq
qwW8RHBwsMEycO9Wi7Fnzx5YkdkYwabJVKpUCR4GGjM6OlqwOD+HkgHh8hSo
rVVNGSaDm+QFdzp48GB/f//ExETpu5zb5DfY0EeJj/e15t27d+np6ePGjYuK
ioLlLFiwgEt4uIXcZbtTKejiMx1BgdrTK6JNIZ0gl/gZyI0bN6pVqwbvJLIi
E/kHBvkHe/oHGCob7RYZGWn14Qysl70ARVasurtQXYF++PChc+fOLA+Ji4sz
aw9sjic7pmbNmqYDvCFjq1SpApGOLqxWwTTFoUza6iRQ6Knw8HDB8GaofgQm
KY66aChQVIKfnx/7oWAIH86JvBQJMAJo69atRfZsckxkK1D0VrhBweCEe/fu
oSMvW7aM5RJQ66VLl27WrJnE0d0CFCrQO3fu4Of8xbHZCloosJOTk9nnLcWB
ly9f1qtXD+1i6c21CLAW1Orq1asR8WNiYgaYY+DAgQkJCSyPQk9BRxORny4u
LpYW+OJz+/ZtxDU4edNN+tjuovgKdhIUFATbs9SvlQwIl6dAba1qKW7t+vXr
qHk4HINxbQp0N5HZeXBcOKdeg23Qbbdv345ku2zZstAvjRo1WrJkidm9lQuM
7Xjs2DHmP5FNdezY0d3dvUuXLsh/pK9bxbDJb6A8LAmRMsVJO9CIw4cPR0Wh
ulauXHnq1KmTJ0/Onz8/MDAwLS0NJs1NEsQx+EqjYujiM7VToE+ePIFCqVq1
KjIQZOwi62/b2lVl2zYD6VBERERYWNiKFSvQQ9k+fXBf3L5RZili/qFAbmnJ
P9jNP3BiX8rDmczMTLYeL+Tn+vXrVR8KqLoCLTA+wU5NTcU5LW3iCSPp168f
qwGz24izYZB169aV8kquQLHrUI6DmDSDmwTauHFjszIBaRvqX3y9UxGKhgJl
4Yn9MDQ0VGCrOM/du3cvXrzomBvRiiNbgXJbKwImDbiu2rJly7dv36LFGzRo
4O3tLXvKsxIF+unTpxEjRnz++ef8p3b897ZSXr0VSdjK6hB0kHXSf4W6OnHi
BOSbiJzkg8pXMbF59eoVHDXcNVy32QPQQ6F5RcYIKRwQLk+B2lrV4m4Nljxn
zpxSpUoJqtrf3/+nn34yPZ5tTLB06VJd7Pzp06fc9Hk+3bt3h3MwPR5th3xS
lcfINvkNGANMAgUbNGiQLu/gYJlr166FnaAdDxw4YLrOQK9evQ4dOsRtiID/
I2/XoiR6+UyNFOi9e/fgr9asWQMzgO9CvofYbWnJApu6qiq2jZvNyMj4/vvv
YX5Iw/CtVYdZlPyDjqUl/yAdNozNYBS2kL0ihdy2bVvFihVxZP369TXaWUkL
BWoVeCcu+Z82bZogeUBzsNXCoeksqUg+OoZFDt1NmsPqJFBIqp49e86fP192
ry8aCvTdu3dBQUHshw4yfFotZCtQ/DApKYn9kK0Sw4YrODs7jx49evHixcjY
UVcXLlyQXTYlCvTw4cMNGzYUjLfkHv4Y/lq4RnbZCi8QcZByUjb24kDHmTRp
EtuaGf9Ho6Aa2RNXznL6/kV0dPSUKVPU7e/cUvOmS4FJROGAcHkK1NaqFnFr
SNjYmtsG44tjVD5aAQezT5o3b27qlBC2pO+7qi6oLk62uLm5NW7cuHr16vAM
7BNLk+AsjYOyFVv9Bi5t0GmP4Pz8fPQs1EzNmjUtaZ/z588PHDhwxYoVrAKl
zMaSh14+UwsFmpOTA18E+cncxc2bN5GZi6wAKb2r6mjbRcY/6Fta8g/SYSs+
4bS1atUyHYAKU0egx6XRZOg+HTt23LRpk+zXVVbRRYEiYWBLsfn6+pouxQaX
BR2Hb+Pj4636Rn3DIh8dTZqP+CRQpJ2QGB4eHkqW7S0aChTNhMZiPzQ7Gbnw
okSBQg5wQWTr1q0FxsiyY8eOsWPHTp8+/ccff1SYUchWoG/evAkJCTEdY4Dy
wFezMkvZ2UpdcDnUWMuWLVHPTRTTokWLadOmSXnsxofN88Ltt2rVSuLgJfQa
thg78jc4BO5X6D5IWf39/Q3GgQG27m9iE5yfHzlypMQcWN0B4TIUqIyqtuTW
cCrk0gjxSAPQ0Ti7RVUgKNevXx8OfPHixXxrx1eIaDNnzrT/qmgwmIiICCcn
px49ely7do0rFSph7ty5CCg+Pj6Ch7ro6eiwai3haKvfQLWjbqUPo1IL2NKU
KVNQURBHx48ft3QYxFR0dDSyO+a4unTpYmuvl4KOPlMLBQpFCSPk8iukkaWM
mH0AJb2r6mvbRcM/6F5a8g/SYSs+GYzTS6tVq/YZD2TCMHj2LWQvhKHZlXxU
xP4KFHWL+mQSyewgZDgE9G4cAOMUfzaue1jko5dJC+AmgUJBwP+PM5KYmDh8
+PDu3buzCcUQ6Ur2uCkaChR2yK2mUrlyZdNdQQsvShQot1m5s7Ozpb16lSBP
gaJgS5YsgUM29Yfc5q0AB9h51DTuYs6cORBBf1cDNNbEiRNtjTXcAIyuXbtK
eVaJMsMhGIxje6A3TQ9Yt24dvIf4EB3loNi4WRSjZ8+eUlaqVH1AuAwFamtV
F1h2a7dv34bSR/5vNj2Gf27dujXsit95IcDbtWuH/0ssrVqg9yFpgT2sWrXK
rIM9cuSIl5cXWpP/bWpqKmSOWomTrX7j5MmTKDCC1MOHD1UpgBTY/GX2dH32
7NkiwQgxFIbEMj0gqDq1CqOjz1Rdgebm5kZGRnIhCRWYkJCA8iOlyczMND1e
YlfV3baLgH8ocIDSkn+QCPojQp7BOAd85cqVlsr57NmzefPmIUOAcU6bNs3W
abnSsbMCxa2tX7+eDf1CPcCrmB7D5gfhgNWrV4ufSvewyEcXkzaFmwSKwqCD
dzQCjda8eXM2opulfEreqhcNBfr+/XtuBlxAQIDjbzsrHSUKFHqK/VCwMbRa
yFOgiFMNGzY0u3ckyrxw4UJWZum73xYluIH3ffv2lZLv7dmzBx0N7bthwwaz
j/gePHjAfAWsSLv5RJyxmV0KwBTVB4TLUKC2VnWBBbcGF4q7gB8WieyXL19G
8bjn5Lj9mTNnJiYm2n+cOdQEwgfkjCXviqZcsGBBYGAg1/ugejp37mz2+YY8
bPUbly5d8vDwKFeuHKpRyXWvX7+Otg4KCqpRowbSEvFF0REQ2VZ0tWvXFh9U
w/bvYF7L0q64CtHXZ6quQKFx4Ci4WmV7drPXQ2YVtMSuqrttFwH/4Ail1cs/
4JbHjx8fHByMYAQNnp6eLnKwI/gHbhIobv/ixYviB585c4a9tELdIitQqwx8
7KxAoc7gyXFHvXv3tmSu0AJQBMg0fvjhB5FT6e46BOgS8gTwJ4HGxMQIHC8q
ZOvWrbBn2ROvGEVDgUKXwX7YDy1tG1RIka1AUXuTJk1iP9RoYWcZChRHxsXF
xcbGWnpTtmnTJjbwHjFO053HHRN0c7aCsZTdk1H/bJR+9+7dc3JyzB7DLcGH
vEK7fIZLg1u0aGF2wr4p6g4Il6dApVc1w6xby87Ohs8RjxSo+S+//HLcuHHM
pyFjQZ6j0Xo14qB/devWTXxINsIxYhbbvxWgmSIiIiwZmAxs9Rs3btzw9PSE
E1O4gAacJ+4FSor5UhGxhvbi1oi2OrmSJe3sYC3GTenuM1VXoPfv39+2bRtX
q8hkSpYsiVuwtGGfxK6qu20XAf/gCKXVyz+wFbFmzZqFRixTpgz+tnSkg/gH
bhJogwYNrG52w9+1pEePHir6cw57KlBITnR2NvBD5N4fP37s5+cnskYiQ3fX
IcD+Ic8UbhKok5OT2TfIT548qVevnpJJoAVFRYGy/JP9ELVt5/mDmiJbgXJT
8wzG9eu02AVVhgJF/y1btmz58uU/swB7TGcwjsiSsS9kYQc1ifrE7X/++edW
BWNKSoqLi4urq+vBgwctHQMvwaaCSp+hKY8VK1bo+OZahgK1qaoZZt0asrWZ
M2daHXt85MiRrl27IsahR8Ofa7F8gVXgUXFpq2s9oTaQXs6dOxdFzc3N7d+/
P25cxWLY6jfu3LkDbyCyTI10uO2HxE0F0bBq1aoG4+yqPXv2iJ8zPz8fLcu8
lrpLTDM09ZlIvdzd3Q0qERAQYKsSQe0xdVmtWjVLQUpKV3UE2y7s/qHAMUqr
o38oMO4gj+5Wo0YNkaF0DuIfuEGS0dHRUurq1KlTuDWDtYVzTcnLyxsyZAi3
Jo9CUGb+HHAZwD4hW3CqTp06iSt6tBTUjfgKh47gOgTYP+SZwk0C9fDwMLvd
DGJNmzZtFD7zLBoKNDMzk610DQRz5As7shUo+khoaCj7oekONapga6R4+/Yt
SjJs2LC1lpk2bRokFcqMvEijNcMdGe5pf2xsrHioggNnc5+bN28uYhUXL16E
A8FhM2bM0LRfsNXbCpEClV7VHEp2nEc+A+OHm0UvCA8PP3r0qIyT2A3c4+DB
g9GvL1y4EBISIn03eSnY6jeysrK8vLwQjkWW+5AIW5gCKRBcjchh0GUuLi4G
47p2VlcVePbsGbfLHveEXC209pm3bt1iK0vEWgb5LVJWVAX6l8hhyK5nzZpl
q6mgcZF+oPAog6XOK6OriqCdbRcf/6BpaXX0D9yaV+Kz2xzBP3CDJJ2cnJYv
Xy7lJ/fu3eOeVkn8CQOp+I4dO+Lj48UdBUwChWnXrp3IMSAuLg4VKHtABTzA
ggULUP+9e/e2mg+jdXx9fUuWLLlr1y55l+OjaVjkY/+QZwr3fKNRo0avXr0y
PWD//v0xMTEKl1YuGgqUDeMxGB8Cq7s1j+7IVqC//PJLtWrVmIPSaGdbmyIF
CgCn1759e3GF8vDhQ5aQlCpVau/eveoVtnDAvbkeMGCAuIvOzMxk0QQJpEhP
SUtLgxuBuxaf1aIQNkvCoN8YeHkKVGJVcyjJMHNzc/v06XPixIkjR45069ZN
u+UgVAHW1bVrV3Tw8ePHz5kzR13vYWuGybbSU2UqAcJc5cqVy5Urd+XKFUvH
8HdSlrJwJdvxnD3oU3dQloP4TI32Ay3g+Q3x+XEyuqoI2tl28fEPmpZWR/+A
K7JnHSKz2xzEP3CDJN3d3TMyMqT85OrVq+ytFlCyh6Ml7DAKF2VGSlO6dGlo
HynL+7PEgNsMQiGahkU+dg55pvAngVqa+5CdnQ2LUli8IqBAUTlsNwqDcQtX
KUtxFiJkK1BUPttOunr16oLRTTbNuBfBpkjx4MGDRo0aHThwQPyw58+fs1Up
IJzXrVsnr2CygQXeu3cvUw3u3r0rY5wJ+mNcXBxuPzIyUrxWf/jhB2dnZ/EJ
Duga8B44W6VKlTQd0gwrnTVrlkGPFYwZMhSo9KrmUJJhomC43JYtWxISElas
WOHg4zRQn507d0ZiExIScuvWLXVPbmuGiWJ4eHiospM7BBq8IjI3EU2Xn5/P
VvgHkydPFg9DsKIvvvjCYFztTfWHPA7iM7VToIhErVq1QskFa6sKkNFVRdDO
touPf9C0tDr6B9aVxEc/Ooh/4AZJIosz3Z7VLGyPD1YY8XmR8rCDAsUl0Naw
OrMr35rCfFeJEiU2bNig/OqahkU+dg55pojvBKoiRUCB3r9/n810Q5MVvXGb
8hRoXl4ee5QHkpKSBDUpfca9ONIjBQ6A0xBZTIODy0nEn0NqAXxaWFiYQT3Y
ViM2lYGTcqGhoSI+lnt3gBgk8hjq6dOnNWvWNBjniWj6ZIatTWEwrkqny/Ql
efuBSqlqPkoyTLZhDdwagpe6zlYLXr16FR4ePm3aNCl91lZszTAPHTrk6upa
qVIlhfWGJpgyZYrB2oI23O7SVldQLDA+B2ZDTfATWzu7OI7jM7VToGzTARQb
PZErNmxP8F5JRlcVQTvbLj7+QdPS6uUfCowLxrq5uQUEBIjMbnMQ/8ANkuzf
v7+UisIx7HG0wbh+rxYbRmitQM+fP+/n5zdmzBiz750fP348cOBAwchYzjcu
XrxYeQE0DYt87BzyTOGebyhfj1ecwq5AUatsP0Qwfvx41UOk7shToIcPH2aR
vXnz5s+fPzd7jJQZ9+JIjxTHjx9v1KjRnTt3rJ4T/bp79+7sfmGZlmwAdgs/
AHck2A4Yx2/YsAHdTXyBdLOgqm/evJmWliYy5Uo669evv3LlioxskI2bFZ9Q
ya09K777LYqBKAkfomSjEymg3/Xt29eg8Yq7IshQoAXSqpqPwgxzxowZyOTj
4uIsFRLdxNfX13R3OZhlv379tNjmwxJv3rxBto/SyrtZcWzNMJHSwIxF1nuE
yaGcHTt2RGaFMn/xxRdwetu2bTt16hS/A7IZMU5OTgsWLEhKSgoMDKxfv37L
li137tzJr/D8/PzOnTvDmNHW4vO2cPJvvvmGhWn+cCm0Y1BQUJUqVUqXLl2r
Vq1nz54Jfnj16tXq1auLdxbVfaZsNFKg3OshT0/Pa9eusQ+R3kdGRpo+Sba1
q4qgnW0XH/8gpbSy0cs/cJNAoTK2bNmCXBQdEC4CmQZ/9Kwj+AdudBNYtmyZ
1SoCyAGYpoADFN/AVDaaKtCsrCy0HXSBpYmHqFXYjGDgGUwoIiKCqQPlt2zV
daiVl9o55JnCPd/QemWPQq1AUdWoyTJlyuB4/LAobcLCIUOBPnr0CA7cYJwV
e/78eUunlTLjXhyJkYJ1W1xOihzjNllmD/csRTcoDrhod3d3wQ2yWf8eHh4/
/fSTTffiOCCooe8gPIk7q/T0dBcXF5HD4DfgcFhSqvV7SfRcOENca+nSpZpe
yBLyFKjEquZQmGEiNiHlsLR2IjfzAqkd3/Xh8+HDhxuM+57bbUjA27dvW7Ro
gdBm6fmVEmydP84cYKdOncy+/4JLRPoNV7B+/XrUFeTYlClT2MirsLAw/tPy
7OzsypUr41TIEObMmYOzoZ5hsWiUJUuWcHWLD5GuGCSsGJmZmclOOGnSJH6u
iHw1IyNj4MCB7N2HIClCIUeMGIGvkDZYyjC18Jmy0UiBwlezjaLQstzQ/cuX
L+PGTRe+sLWriqCdbRcf/2C1tErQyz/gKzZyDPlDr1692KPda9euoY93796d
m3XoCP4BHQTq2GCcBGopx+Pz8uXL1q1bMxehXaqsnQJ98uQJNPv06dNF3jxC
iZsmAGissWPHsmFgyt2XVdehSl5q/5AngD8J1NacylYcSoGiY0pXoKi93bt3
syVwYRVa7DYihYsXL0IYIjKuXr1ai7c/3HhLiQoUJofaYA+WER0s2ZiUGfdW
kRIpUCeImPCWErfB4taOFumA4OjRozAwJDACV3Ds2LEyZcqgM6q+K5/duH//
Pvqj1T2m7969W6lSJbSy2aW34DTYbrDoUNLnDssGDrZmzZpoEb2WcJSnQCVW
NYfCDBN5S4MGDSzN2WFJhem68fi8cePGCBmI72Z/iPZFMuPt7Y3bVyu1YHud
f/nll1r4NJsyTBSATfMfM2aMaUR49+4dksOSJUumpaVxfgx9v379+vgJt2Uh
A/4Q1evq6pqamsp9znKGgIAA/liC48ePw404OzuLzB5C3tizZ0+Dce6z6VNi
2CHLME2fvSObwuVEOotGPlM2GilQbm8ILhfCjUydOtXsCxpbu6oI2tl28fEP
VkurBL38A7d39oABAzi9ybJxnIG/lI2+/qGAN0iyXr16VpsAB7CtMw3GCdfa
pcoaKVBYOBoRAsqS/0EFIh1CPfMH83MkJyc7OTlBgEtZuUgcq65DlbxUl5An
uE1uEqitK+jaikMpUNRty5YtWU8ZO3asiAJF+yYkJLAFsdG59JIb+fn5PXr0
YAXWaBYqbAzZCLuEpVWRucLAzBBocCQUsfjTOSkz7q1iNVLAYyxatAhdoFev
XhJfw+F+kYGIK25ucEtkZCT/mRj3eUREROFdkAq9ICgoCNFt06ZNIoehbuPj
4+FaTbcfQsdJSUlBToLzWF0rXhXY1tiwOvtczhR5ClRiVXMoXGkExRPZlfXS
pUvwIX5+ftnZ2WY/f/jwodkfrlmzhg2YMX0/IpunT58ivdy/f7/yU5liU4bJ
Zl3B1ZtOuWJDAQ3GDdb5618hzQ4MDBQkjdyG7P369eM7BxZtBQk8RBwbu4X/
m51zhAPYiyf4KLMZHRx1w4YNUYYdO3bwP0dXXblyJUwuJCTEbEakkc9UgkYK
lM11ggg9ffo0+wR5dXBwsMD+GbZ2VRG0s+3i4x+sllYJuvgHADuENSKK8ZNh
nARZPU6CaMt9qKN/YMcsWbIEoR/nj4qKEqklFP7AgQNMVgO4FIW7N4qjhQLN
yclhE3yYkhIAv81UgME4LdfspS9cuODu7u7v7688ORF3HWrlpbqEPD7nz59n
m0Sr8sRPHEdQoOihuOWDBw+iJGypLoNxga9du3bh9n/6CxjSzp07Fy5cCMnJ
DqtcuTLikcQwnZmZOXjwYDZqOjQ09Nq1azghLNbqYtoi4LfcwyUwc+ZM2acS
AIvCLR8/fnzZsmVsnSWDcdQH5Abq6iceR44cQYiJi4tj2hP9dMyYMVZHbkuZ
cW8VS5EC4enq1aurVq3i1seAPSclJd2+fdvS+1Z8jsAKb4k6ZDfC7mXq1Kkn
TpzIysriXwJam817EoxSQ3OwrZ+/++47B19LUATWJc0+HRUAfwi3g17An2OC
VG3ChAnoIP3799duvyoBGzduhP8PDw9X0puUIE+BSq9qhpIME+3SsWNHkTXh
V69ejaQCiYdgMWH0I3yO31payZ8dwLoMepwqOyPANzZp0kT5iEez2JRhIjDB
Afr4+MB7CL66desW2+tNsDM4XL2XlxeCGn/9Z25GDOqZf/CTJ0+Qc5pmL/gt
ggVOvnz5ckGaff/+ffZ2A3HEkv9kLykqVqyIg/mfo8/WrVsXvlfw6E9rn6kE
jRQoar5mzZrcdueoSTgQBHSz92trVxVBO9suPv7BammVoIt/4JZWQEbHn5cE
m4+Ojsbn0EH8k9jZPxQYh4DCReBzpDf4IWtQJEKnTp366X85e/bs9u3bp0yZ
Uq9ePXZYjRo1EKO1noyjugJFQ7Cp4lKwtHcJMyeFb1sY4q5DrbxUl5CHQuIk
sKW0tDTcI6tSXAj1j8OgMmB7yl8im6K7AuU6uESg3BG2kF3D2iVOYMQ9rlix
AhY4YsQI9nz40KFDjRo1QuxDq5m2sk2cO3cOjsjV1bVly5ajRo1Scio+bJaf
xDqBLfn5+cHY4AyljIqROOPeKpYixeHDh9H6rGzc01fQtm1bS+Hv8ePHTGjj
+JJG+D9EM/E3M2Jyw9ThwDPgc6uzMxwfNnZCyriRZ8+eDRgwALccERGBzHPQ
oEGITfgh8lItlhowCzcRSaNtZ6UgT4EW2FLVBcoyTMQOOApLCxdzOx6iEQWT
vGJiYgzGmUSWGvTVq1dofbgL9GJ0MdN1LWSwdOlS1Xe35LApw9y1axcaCIUR
JN6wtPnz56NmqlWrhpDK/+qHH35AbaAq+BOsINbgJJH1Mb3DwZ7FwYEfPHhQ
cGmEBjZ5Csk2XCvaHTlqVFQUDoZHwt8iAWjt2rXwYIJJXmhN9j5l5MiRdvaZ
StBIgaIFd+zY4enpicZFnoO0Z82aNSLv1GzqqiJoZ9vFxz+Il1YhuviHT58+
RUZG4vhvvvmGH8XY2yV8bprd2dM/2JonG4wvLNhSUUh37TMkTHUFClUCISbx
fiHNzKoYbi8n5ROlxV2HWnmp/UMe/6062+OPA6flPtdilyjdFajWwC2jblGT
6L/cBBncNfwJatXWXXJEQDdXUYFqisQZ91axdc06tWCD7U0H1VsahF/owH3V
rVsXUezmzZtSjn/69On27dtXr169e/dugWuyA2xAEXyIpjtkiSNbgdpU1Urc
2rp162rWrGnpkTirQ9OBMexz08lfZnn58iVSTeUvd1gyZuv67dKR7jfgvceM
GYNUDQmeIPYhu2PjTwTvLLgVVgWTaCDxEHMFqwtyz+Lg+swOYkRVoEUGDBiA
SFGlShX8HJ4zLS1N/EUS6m3YsGGG/31hh2tt27YNZQgJCbHD1GwV0W43lgLj
M7TtRqxOpbHVK5pFU9suJv7BamkVoot/wEXRu9E94Sj457lx44anpyfS7/Xr
15sWgPwDHzvsByoPFAx9x1TT2YRV16FKXqp7yLMzRV6Bnj59uly5cr6+vvz0
mK14gFYYOHCgWpEoPT190qRJqpxKa6TPuBdHFwWKHjRnzhyDye7kgkH4MGyE
Wru9B1QXttuak5OTxMUw9eXgwYNwdIMGDdJlJ1CGbAVqU1XLdmts8XzBI0o+
Vid5sc8R2kRi6JMnT5BhKh96jcoMCAgQvAtQEel+Azlz/fr1za6Z8PbtW7Zo
gOCtENsAjvNjqHBWIRs3bkRYF+xXm5ubGx4ebjDOlJG9JLgpbMEKwSQvdBOk
smq9hLInmipQ6ajiFTW17WLiH6yWViG6+AecwdeIoIZXrFgBk6tataqK6XoR
8w8cDqtAUeHNmjXz8vK6fv267JOIuw618tJCGvJkU7QVKLwxWykI2krQCqGh
oaYDpGUDe5g+fXpKSooqZ9Ma6TPuxdFFgXIPggTdkBuEv2DBAvT6GzduREVF
qTLnRRdQfh8fn9atWzv4LbDHuTqugsuQrUALbKlq2W4NYaVevXoiq+uzSV6B
gYGCxSrXrFmDzzt06JCTkwNvFh0dLbIywMmTJ+HolIeVAwcOIBcyHZWqFtL9
BjK0UqVKjR071rTe3r9/36ZNG1ROcnIy//Pbt297G2EzKOfOnbtw4UL8gejs
4uKSkJDAP9VPP/1Uzoi6i8ixhbm4SV64zaVLl7q5uaF1CuPbDTYQUVB1uqDc
K2pq28XEP1gtrUJ08Q/QBZCZdevW5b/AwknatWtnMC7xoeLT7CLmHzjOnDmD
itVo/TolsFGmkGNmF8uViLjrUCsvLaQhTzZFW4Gip8NmSpYsmZ6ezv+czaDh
1kBQDvxGz549uW21HRlbZ9yLoIsCZVqDBQW+M4Fn4A9uR8iGtymk70ALjB1z
9OjR6ESCQUGORlZWlq+vb+fOnTV6Hi4RJQpUelXLdmunTp2Ct7G0jCc3yUuw
TsjTp0+bNm1q+GtjOMSXyMhIS/spsFXylE/FZQvowT1qt2i/RL+Rm5sLp4rY
ZNavcrN7Vq5cyX0IhxYfH48PmzdvDp+MtLxfv34ZGRkFxk3eEQuQ43EWkpeX
h2+RlsybN09dR8Gf5AXL7N27N3RTSkqKvu8QlYAbcYTVxRV6Ra1tuzj4B6ul
VY4u/gEWDiEfEBCAWuWOT0tLQ/YYEhKi7gaaRc8/MGBaqCjHHLX14sWLhkbk
7R9k1XWokpcW3pAnm6KtQNkTQvTue/fu8T9n4wZhjSKbm9jEzp07+fNMHRkZ
M+4toYsCZYPqDcaF5tgQYtzFjz/+GBQUVLVqVXd39wsXLqAnRkVFabROgt24
f/9+tWrVunbtqmTygqYw7+EIz9OUKNACyVUtz63BPr/99ltLO7cW/DWZCybt
7e3NrR7DMhOWYSYlJeG+Zs+ebbrzDgeO79Spk8J11QqMq98HBwebLrmpIhL9
xqFDh1DbIm8fEGe9vLxwHuZ4kc7BGlu3bg3fzt4KHTt2LCYmht0IC77Vq1dn
kQ6Be+rUqUgvkVeoq624SV4wp8GDByNpSUxMtNuq1EUeJV5Ra9suDv7BammV
o4t/KDDqzTJlymzZsqXAeJtHjhxBhbdt21bd6a7kH/QC7VuqVKlly5bJ0MhW
XYcqeWkhDXlKKMIKlNs6RzB2BYaBJuYmgSqfMPjs2TNYpr6jEKUjb8a9pVPZ
WYFyg+3htxEdEH/j4uLQ9SIiIu7cuXPy5El83qRJE/iKBQsW6D5mTCG42eTk
5LJly+7cuVPvspjn8uXLaIXx48frXtUKFajEqpbn1tA7IiMjRTZqZJO5kPzU
qlWrYsWKuAvklq1atcKF4Fs6d+4M/9y9e3ecxNIZcIlx48ZNnDhReUMgEPj5
+U2YMEG7Z6RS/AaCOEJ5s2bNRHIztBqcWM2aNdu3b4+kDn4evR4/nD59OioT
CR5CM3+Uy4sXL/r371+nTp3hw4c3atQIWf3evXtVv02kAR07dkTK0aVLl5SU
FAcfRV/oUOIVtbbt4uAfrJZWOXr5B1xuyZIlSCEGDBiAzgtTmTVrluprJpN/
0AvoMiSK8P8yFuMSdx2q5KWFN+QpoQgrUG6fbjhnvuTPy8tD33dyclqxYgX+
efHixaioKNl+BmceNWrU1KlTC8sIChVn3NtfgXKD7ZcuXYqL3r9//9y5c/wO
i8a9evXqgwcPHHMoiK3gdpBvNGjQQKOdGZUAvxcWFgaPJ29Yi7ooVKAF0qpa
nltjawvAS4hP8urUqRNC5PPnz8+fPw8D5sIE/sA/r1y5IvLcEkVCW1hdTVQK
bEEM7SaBFkjwG2ymAEL58ePHrZ4NLX779m3UD//pNOo8IyPD7Ng51PDZs2fh
/YqGiyiGyPaKWtt2cfAPVkurHH39A1JB5PDXr193hHVaCHVBT4EcS0hIsDVl
FXcdyvPSYhvyirACBdD7pUuXht7kOxOUqkyZMmx3HrTIokWL5s2bJ7tpbt68
OXHiRC22atUIFWfc21+BMqHh7u6u+7BPu4FKRtMMGzYMTkzvsvwf8BvffPNN
rVq1srKy9C7L/0O5Ai2QUNXy3Nrdu3f9/f3hi8x+y03ymjFjhryHk0iZJkyY
oNaguJUrV9arV0/T/Yys+g3k2Kix1NRUB4yYhCMgzytqbdvFwT+Il1YVyD8Q
2sHeSG7ZssUm4xF3Hcrz0mJr0top0FKlSo0bN26Hkd27d+vyouTt27fBwcF+
fn5s+gMceHp6esuWLatUqeLp6Xnt2jX4ut69e2dmZtq/bHqhcMY9ggKUO2vW
devWodfYU4GywfYC+VzkQdBv0qQJm+yjd1n+H3CSmzdvrlGjBpy53mX5/2Eh
AJ1927ZtsEwkgTdv3pThzMWrWp5b++WXX6DWLa3UxO305yBLCB4+fPiHH35Q
PQ5K9xv37t1DhcyePdtBrJ1wTGR4RY1sm6M4+Afx0sqG/ANhH9D94QSqV69u
U/Yi7joU5qXF0KTv3LmDJA2dHT4zPDxcCwUKRWP4C9OdlO3G48ePu3fvDnsb
MWIElNfAgQPhQo8cOVKpUqXmzZu3b99+yZIlDjUu2g4omXHPLVjEYTcFyg22
79Onj45bT+pCdnZ2aGiogzwig+tu1arVhQsX9C7I/8GtRMcRHx8vb5yYSFVr
4dbYJC9N1551BCT6DeTbXbt2XbRoUfGJxYRsHMorFpB/UAD5B8JuwF3s3LkT
OYwqI7gU5qXF0KQhuKZOncrv7Kor0NevX587d+70X+Dvt2/fqnh+W3n27BkS
Zv4Dydzc3CtXrjjm0GitUTLjHln9jRs3TvO4c+eOfeowPz+f7e6Kwtvhco4G
bt9B3vwiW3C0Yecw6cuXL3M2eebMGcE0Z5uwVNVauLXk5GQ2yatQrKQtG4l+
49OnT5oOACaKGI7jFQvIPyiA/ANhZ37//XdVXuUrzEuLp0k/efIESRrX2S9e
vOg4y/MS9qHQzbiHypg4cWL37t0dcFkegpDH/v37W7ZsqenKPwRBFFLIPxCE
I0N5KUEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBGFnPn78eOfOnWfPnv33v//VuywEQRAEUQRBhP33v/9t9qtP
nz7ZuTCE/cnNzaUsi+D4448/3rx58+eff+pdEILQgZ9//jkmJiYwMDAqKioo
KCggICA5OdlSiLQz6JtmOyY+dJASEgRBEIRErl+/XrFixfbt2yclJW3YsGHf
vn3r1q2bMGFCo0aNevXq9fHjR70LSGgFGnfBggXe3t6HDx9W/eQ5OTmxsbFe
Xl7/+te/RA579OgRkr1q1arBDlUvAyEdtNeKFSvatWsXHBzctWvX2rVrN2zY
cM2aNep6gFu3bjVp0gS+5fHjxyKHkVXYgf/+979paWno/vHx8eIPG3ft2oWO
HBkZ+eHDB7sVTxfOnj3bunXrnTt3QusVGKto27Zt7u7u6Bq6P6ZDARYuXFi+
fPl+/frhj+3bt6Ndli9fPnTo0CpVquAP3UtIEARBENK5fPlyuXLlDCZ06NDh
yZMnepeOUBlkVnv37k1KSurTpw/yFjR06dKl9+/fr/qFoDU8PT1dXFw2btwo
ctiWLVucnZ1x5E8//aR6GQiJvH37Fmnt1KlT3717xz7Jzc2NjY2FeXTr1u31
69dqXWjx4sU4JwwvOztb5DCyCjuAJg4NDUVz9O3bV0SB/uc//4Ft4LD27du/
f//eniW0M5mZmbjHjIwM/oe45TZt2vz973//7bff9CoYAwJz7ty5ppG6ZMmS
6Ln5+fn6Fo8gCIIgbAIK1M/Pr2rVqhALCGdubm6Iwv/85z9pVE+RBM2ampo6
a9asw4cP379//7PPPtNIgeJC+/btO3r0KDJYkcNycnIgUc+ePUsP8PWCZbbo
+ElJSXl5edzn9+7dq1ixInzCxIkT1RqU++rVqw0bNty5c0f8MLIK+3Djxo3N
mze/efNG/LCHDx+uWbPml19+sU+pdOHDhw8REREpKSkCk8Pnbdu2rVSp0qNH
j/QqGwMFmzdvno+PT4UKFZj2ROAeMGAAjRMgCIIgNOXXX39dvXq16uOgoEC7
du2KJAQBjp9/OhRQMUhcMzMz9S6IGBkZGVFRUT3/ol+/flevXpV3qvz8fGTg
t27dUreEAp4+fWpVgb58+XLVqlVWc1TCDmjkAdC5oqOjkdB6enrys1k0ff36
9fF5aGhobm4u/ydFwyo+fvw4ZcqUnjwWLlzIhl8SxY309PQ+ffrk5OQIPofw
rFKlSoMGDaS/A9XIeyNAf/vtt9OnT//zzz/RZx3wEXGhCNMEQRCETWRlZQUG
Bq5Zs0b1FUI4BaruaVXn8OHDSAOOHj2qd0Es8s9//rNkyZKurq6eRvz9/Y8d
OybjPJAYsbGxELBaz7qSokCR50yaNKlTp044WNPCEOJo5wHYZDeYa1RUFN8P
MPOAAo2MjBSku0XDKt69e9etWzfWWz08PHCn//jHPxwwsSe0BsIzIiLiwIED
gs/RNdDjnJ2dExMTJT6a0M578xWoumdWEccP0wRBEIR07t27B6+O0CM+oFEe
hUWBIv5u2LBBtqyzA1Cgf/vb38QX3rFKbm7ukCFDgoODX7x4oVbBLCFFgRYY
XxUNGjSoXbt2diiSDFBj+/btS0pKQiHbt2/fpk2bvn37JicnC0wa9pOenq6w
dfRCUw9giVOnTpUtW7ZkyZKbN282/dbBrQLk5eU9fvz4p59+2rNnD7yc+IDe
33777e9//3thV6C4x7Nnz0ZFRTFBXa5cuSZNmvTp02flypXPnj3Tu3SOy7Vr
18LDw3///XfB53fv3q1Ro0bDhg0lLomgqfcuFArU8cM0QRBE8eGPP/5Aqn//
/v23b9/K+DnCYseOHSMjIzValpZToK9fvz5+/HhKSgr0iGOuOIGanDp1ap06
dZCQ610WMyhXoLjB2bNnQxVqPf6WIVGBFhin77Vu3TomJkYwGtOUDx8+jBs3
Dsl8tWrVvvnmG7MrnOA2kaUEBgbi6k2bNv3xxx9lTPdDGoZke/Dgwe7u7ki2
K1asGBYWlpCQMG3atNjY2Fq1anl5ea1atYqTbAcPHvT29i6MClRrD2AWyDcI
eVRsRESE6dBEhnSryMrK6t69O3puo0aN0Nxmj1HFKhjbtm1jEoxj2LBh4uK9
CChQ9i4bFbh06dKtW7dOmjSJLTXGCAkJYfaDjpOent6iRQvUMxr3119/NXs2
hIMxY8Y0aNCgcuXKsAR7TgJ9+fIlRHTNmjXRiKVKldq1a5fgAISn3r17w0ie
P38u+OrBgwes2JCNsDeEtnPnzlk1JES9CRMmwAKPHj2KS0NCQrYnJiYGBAS0
bdv24cOHUoqttffmFCgsOTs7e+fOnampqRcvXrTnUykpOGaY3rFjBzo4GvQz
28GvgoKCbt68qfdNEARBSALx4vz58z179kQM5dIAHx8fpMfSXRkS+Li4OCQS
t2/f1qicUKDt2rVD1Mb/x48fv3Dhwh49enh6ei5YsMAB9wNFNo6kF9mUA760
Va5AkVQg6TJdDUMjpCtQcPr0aWg6iEqRJ/D5+fljx47FMZAkX375JSx/9+7d
gmOQ4c+dO3fo0KEvXrxAltu8eXNoVeSNNpUcxyN5dnJywiX69+9/6tQpwRg5
FPLAgQPVq1dHeVAq9LiqVatCpd6/f9+mC+mOHTyAANjezz//PGTIEBcXF/xf
/LmZFKvA2SA/T5w4wSaWIjU1fR+nilVwQJigK82bN69evXrwuiVKlEhOThb/
SRFQoKg3CK5Lly5xn6Abrly50s/PDzUAccTaCA4K8gpNcOjQIVdX188//9xU
wqACccyyZctQG+xVeL9+/ey22ir6clZWFq6O4pUrV+7KlSuCA6BJ0fFhS7Ao
7kP0lPnz55cpUyYmJobp5by8PKjIkiVLctN7YdvQ5lBt/LPh9hMSEuC98Qfi
IM7g6+vr5uYGCYy/161bJ/Gdo9beG6fFDcLdQSMjRs82UtcIOpcWV5SNA4Zp
OJO1a9fOmjULhg2TYPkYujzyHDiHtTxWr14NhzZq1CiWCLEj8ce1a9f0vgmC
IAjrIFhPnjwZUWzkyJEnT55EevPw4UMkAwEBAfBmSO0QGaXME4E0QPRHLNZO
kiC+w7tOnTqV05sIxBMnTkR6D0HqgPnY0aNHUSdcQuU4KFSgyAkREJFD2u1V
l00KFCncuHHjYCrnz5+3dMy+ffuio6NzcnJgNgj0MKFVq1YJjkEt9e3bl+36
gf+3atUKeebBgwcllhk9C1IFmSH6Udu2bcXXgYTwhN6ZOXNms2bNcHy7du0K
3YaGdvAAHMjYkXf5+PhAsKDthg8fbnUwoVWrgDMZO3YsXB/K/+jRI39/f29v
77t37woOU2gVlsoG8c4Go5qqGAFFQIEiQ27SpInpeFHUw9u3b5n9wMmEh4ez
R6CbNm1ydnbGPwXSEv+EIlu8eDFzsBcuXHB3d4eW58s9OwCpCKWAOxIMjkUD
DRo0CM0Ku+KeO6HMCLXsQ/6D01evXjVu3Jjb1gcivVu3bgJjwDHdu3fnr8/M
JDlOPmnSJIhKRHCrpbWD92Zr4aL7HDlyhPsQjRIYGIhCHjp0SKPrysNhwzQa
unz58jAVeBirG2G/f/8efQEHw3HR5nQEQTg+TMHVrl3bNO1BMO3Rowd7qtav
Xz9Lw9u4gxFcGjVqpGnoR76HCCt4DA5tgvIjz3e0uFZgzJMjIyORJzvaM0kl
ChTZzuTJk1Hh/OxCa2xSoAXG2YgIxGFhYWZ1HJLAmJiYHTt24O/Hjx/jzMiL
BJvrIc/v3Lkz9yGTJBAIly9fllKAN2/eDBw4kG2Bh2RMyjv6jRs3ck+8kZ06
Wjokjn08gClI8uETkFHDnhctWiQuysSt4v79+6GhoeydVHp6OtoC6pLbdZSh
0CoswZQs2t1UxZhSBBQowk2lSpVMl9Phs27duvj4+H8bQW9F5cyaNUvwcAPa
AfXAtdHmzZtdXFzs/PQG/RS9FcUbMmSIIDbdunULtwkRwZkHyv/9999DTTdr
1gxyUnCer776CueBd8Xfx44d69Onj0Ak4jy9e/c2O/EEVQo7xE/EXY3dvPfd
u3dNV5plb4QbNmxoZy8hjsOGaUQoFhGqV68uZSE1WBQcSOPGja36EIIgCOkg
tEE1nDt3Tt3TIp8PCAg4e/as2W+RjLGxYU5OTnPnzrWUEiOqLlmyBKGfvT5Q
t4RWQX4SERHBZLIDpmRIJBDukZw41DhhJQr05s2bCNbdunWzOqVORWxVoLDV
cePGIdvZtm2b6bdQoHv27GGJ3Nq1a5EQBgcHC7JWRHNci0sp8TeuLnGnA6ha
pMHs2TXOL1FLsiGdTLSaLbbDoq8HANnZ2TVq1ICbmjFjhshCoOJW8euvvyIt
xzHISHv16oWGmD9/vuB2lFiFCLdv3/b29sYVhw4danWuXBFQoOgglStX7tmz
p8hruPPnz7OXfffu3fP19fX09DR9TIpPONWAdmfvFkePHm3PfWrgN9DZTYdP
o3WgoFGer7/+misPdJm/vz96CvS16alWrVqF48PCwt6+fTtixIitW7cKDoAz
4Z+Nz6NHj6B2rb7/1cV7c/z8889oSty+2RXDdMQBwzRzVuyBJHqKlIHlMIzY
2NhOnTrp0rgEQRRV2Lyk6OhoFefyI/ojEk2dOlVcWiKvgw+sWrUq0jyzhyFz
DgwMxAGIL2qVTTrwup9//jlKaP/BV1J49+5d69atzaZPOiJbgcJUJk+ebGnR
Ue2wVYEWGPc89fDw6NChg8gLkZycnNDQUFj48uXLRaQT7nr69OmwsYEDB1rt
gBAp7du3x8FQOqmpqdIVGa4yYcIENgWbP9DO8dHXAxQYncCYMWPYHCjBu2wB
Uqzi+vXr5cuXRyuIr9Nik1WIs2XLFqTlUDEpKSlWDy4CChShB/3O1dXVdPK1
APbSED20S5cu4nk1VFuLFi3gmkyFm6bcv3+/YsWKpsOnDx8+7Obm1qBBA25l
JNzLggUL2DhJs8EUJYcZoCvBP/fu3Vvw/h02Bklr6e5u377t5eUFJ2lpvaYC
/bw3x/Pnz2vXro0aGDlypC4FsIQDhmn2ZIMp0Hnz5kmJIyyCmL6LJwiCUMKL
Fy/q1KnTp08fFX1LZmYmQuGMGTNM5zpxIAdDXIMPdHZ23rBhg9ljIGSQbMfG
xmrq965du4aka8qUKYLH5kg+R48e7bDTH1gGheKNHz/eccZVylagSG9qGbHz
7ooyFChTl2XKlBFZbP/ChQvQI7Ac8ZVkkPp26tTJ7FxR0yMHDx7M0oYvv/zS
Vo3AlAhyIcdc4dkS9vEADFgC/JVpPrZ+/XooOFR7UlKSSLZm1Srw25kzZ7Kt
RcXfO0i3CnHgwb744gsmn69evWr1+CKgQFHJCxcuxC0jqD169EjkSDY+GdEH
7St+Thaq7P/0BsZvOgkUAhO3hsLwhy19+vSJTWyBms7LyzM9FfQ4+lGlSpUg
Qo8fPy749tWrV926dbO0zNeePXvw2+bNm79+/dpSUe3jvRHm0tLSwsLCduzY
IeiJMF1IctRA3759tSuADBwwTLMnGyiSeAjjwxTotGnTHOQWCIIoGmihQFno
hItzc3OzNCsEUa9hw4bc3DTTA5CkRURE4DwQNWoVzBRuro3po2buHWjdunUd
c7+/y5cvo9iC5RD1RbYCTU1NRTYIkWXnp6wyFCiSirlz58IwkN6bHbcGo0K+
gQNwO0jm8c8nT56YvS823Q9alS0SYgmcYc6cOUwHISOV0dw//vgj8g1IV3sO
I1SIfTwAA2m2q6srrvXDDz8IvkpPT4d4F2luhlWrgI5A23G3A5lpaXtKiVZh
FYisoKAgFKlp06Yi8oGjCCjQAuPY2sqVK7PZEyIvN9nwyOrVq7Oni+hTlh7O
sNWK2rRpY8+nN5wP4b94gtBr2bKlt7f30aNH+QejYCgeDk5MTDSrEQ4ePAjz
hgP59ttvTQ+4dOlS586dzVoILBlOw6qAso/35nKG9u3bC0YacO9AExIStCuA
PBwtTPMngYq81+YDM4iPj1+9erXGRSMIonihhQLduHEjy5aBpbG4bHQKO2bA
gAGmBzx48MDPz8/X11f2fgRSYC8mIEBiY2MFey4gewkLC0Px+vfv7ziTOPi8
efMmMDAQqYXjrJUkT4FCa/Tu3Rs2g0xGo4JZQoYCBWfOnHFzc7OUVEBZoE+h
XdiKKHfu3OnZs6dgeRDGvn37cGmkVWa/5Th37hxbEr9UqVLy5Njp06eRBW3Z
skXGb/XCPh6g4K8FNpkvmjFjhuD1yvLly9lXixYtEh+xJm4VELlo63r16rHH
WcnJyWxlGNMjJVqFVbKystiKl3BuUp48FA0FikDGpm26uLgsXbrUbJPhGLZE
8KhRo1AzeXl5gwYNMrtJK8u9ceSYMWPs+QIICgs6iz8J9Pz58/AqDRo0MB3P
ifJ36dIFhZw7d67Z+2UPoCyNpF2zZk1wcLBgaC4Dvsvf3x99UGT3NLt5b/ba
GoVBnQjaAqbu5eXlgPNACxwsTEuZBAr3JciFkP9ER0fbFCIJgiCsooUCvXr1
aoUKFdh6KaZbaTO41VHA8OHDTQ/44YcfEFA6duyo9cYcyBtDQ0NNk8bMzEzc
BVJK02FLDgL3llZkyq2dkadAHz9+XKVKFYisGzduaFQwSyAlYwoUab/0X7FH
7rANGI/pt+yNQ+PGjaEgkBB+9913s2bNMm0gfDJt2jQ0X0xMjEjvy8nJCQ8P
Zz0lJCRE3mqcSB6QSSJPk/FbvbCbBygwir6yZcvCDQrG2yP16tevHxuKb3UQ
pohVcANi2Vuq9+/fR0VFmTUeiVYhBbaCK6SB2dVpTCkaCrTAON+Wrb8EAW52
ixy2+gFEGVOdly5d6tWrl9l9G7lJoHZewuv+/fuVKlViI3MgE7799lsPDw94
e7OLkbJdMi2tlfTs2TO2/hVOaDoyGTY2ZMiQihUrmmpM3HvXrl3hymA/Is9e
7Oa90TVmzJhhumISyrZs2TLYuek6wI6AQ4Vpq5NA4fFGjBixc+dO/oc47OHD
h7QMEUEQ6qKFAi0wyrdFixadPn3akstF2EJSxzzhN998I/gWTnvUqFFsYQGJ
4waRdSBnQ5DFrxAQ4+LiuIUaTEEghlZiZ4bL/eqrrxCF+YOsWIro7OyMsokU
APFu9uzZqEBkesgQwsLCTpw4YSlY5+Xlbdq0Sd31zNkLGihou22gKY48Bcok
m7zRzqjPrVu3IjMZOnToAAvgq9TUVNMX2ai0vXv3ouGcnJySkpKkNw2asnPn
zpbei8EGkNz27t0bmTySW2RxZqeksVVTcGnx0U0oISqHrWQr+wk/xA6yU/Gd
jxwKGR6AAy0CtYhahdyDTzBrEgMHDkxISOAm06EtoqOjhw0bJpAhsEx3d/fS
pUuvX7/e6pIdIlYBN4jMGUkyzoO/Fy9ejOYw+wJColXwgWFDH3Xo0AHer2rV
qsHBwWxvKfYqENJAfMdYjiKgQFHtly9fRsuWLVuWBZfWrVubSkv09KZNm6K6
fv75Z+gsND3bQckU6DIvL68KFSqIrGlgCioQpgVVCBuGpSG42Dp0gc1kqVat
GsymZs2aXbp0gScROR4yE/oLIZW/yBX6+4oVK1q2bAmDhI6GJWdkZLx+/bp/
//7cwyiEMDgo1FhERAR/4WXceNu2bSHk09PTxXWTrd4blbN9+/b27dujjXCP
jRo1WrJkidnpqwXGBj127Bh374jp+GFKSgq/SFC+qCi0kciS/kouqhzHCdNW
J4FmZ2e3atUKh9m/bARBFDc0UqBWOXDgAMur3dzcTDdtQehEHoVvEUCtngoJ
2Jw5c0qVKmX4XxCOzU6kwp2OGzeOP0ArNzcXQrJJkyYzZ85EqoB43aBBA0S0
tLQ0kez3+PHjnIjmQHTDzy1Nxunbt6+6KuDHH3+E4hNfqNCeyFCgaIVvv/0W
VYfs3VJKYJYnT54MHz6cWZFVatWq9fz5c/ZDts06l6Mi2+cGjaP5kCeYfRvC
h5s+PGjQINOOgzQDmhf5LboVEmBLmQyy38qVK0P/iqQ6ECmRkZGsbOin3C0U
eWzyABywJch/ZM5STAKMGDGC6+Dv37+fOnUqWxj8+++/R+KNtBzaE8kqBJ3E
FSNFrAISpl69eoGBgeHh4ZDAlmxMilXwgZSAxIAX/e6771BpKOf58+eRQ27d
uhWiA4URX0OGT2FXoA8fPoyKiipXrhxaYd++fSzTdnZ2hgkJmg//3LRpE7Q5
bjYoKGjZsmWWRNaGDRtwBliUxLEHEHQzZsxgi+whgnTo0CEmJiYuLk58i1IB
bG1bFxcXiErYpMRR6AjlkLpwO+zpSlhYWOPGjZOSktjwnjNnziBa4UagwmbN
msU1McwM2hPFhhOG8aMCUWBYDmQvxK/IU1yuqDZ576dPn3IjOvh0795dMPKT
AY8H9c1/u4oOggLj7tCsCDcI5WhHNKLInpvKL6oQxwnT4pNA0ZoQy506dbLn
vrcEQRRbdFGguBYbl2IwTkYwHd0hfWwk5CdbscFgnPhTu3Zttok8+wTZl+nw
WkQWJAamy9tmZ2evX78+MTFx/vz5UJfiUhFyElkiu4qvry9SBR8fH/ZPd3d3
wUoRBcaMGsF9+/bt4rdjK2ypfNNllPRChgKFMSBjR73Fx8dLfNuFQLl7925U
O9OPVapUgWxEHs49hUAahtrua6Rfv344M3IAdTeURNZqMLcmBgMJLRTHxYsX
RR567927lwkckZFjt27dYuMJDcZFNgrROkIKkTE6GlU9adIkll/h//ADyIrZ
+iSMpk2b9v0LyMwpU6aYbvICYQgbRt4+evTopUuXnjt3zqY54OJWAUeHhB99
VuSlkhSr4ICbgttBBg53xP/80KFDNWrUYN0Bnlai2RReBYquDZfr5+eHWHb5
8uUCo1dBf2HtLlhOlgOhAe0r8lQH9cami0LSWh0/iTLs378fZcDx0DviG+5o
B2zs6tWr0JsQjwKPB0uGTBPojrVr106cOJHdHYIUDrh+/br08ZY2eW9cOjAw
kDWKm5sbBDJ0EAQ++8TS8Fo0gcAgcdGMjIzvv/8e7ZKcnIyALnJptS6qBAcJ
0+KTQPEt/AZCp+Ms20sQRNFGFwWKkMEmiuL/Zn0yDkBaBSl34cIFkfMgWKxZ
swbZZq1atbZu3cqFDMQUJK7169cvUaLE4sWL+YEYXyHozJw5U4mPRXbh7++P
cIYklp8oQnQguYUmQuorELBHjhzp0qWL1ZdrtsIl6g6ySoAMBQrhEBISAmNA
o0gRiTjmhx9+KFOmDH6CbJk/O+/Ro0dsGGT58uW1jvW4Uxie7HWSubUuIRBE
uh7yK/Z+FtdS/fGFIyPRA3DAimJjYw3G0WXQj9yyKqjnw4cPs7EKoaGhWi9n
ah+rYKBmkC7icjASQcdha7awN4BWdxvhKLwKFN4epgLRfe/ePe7DixcvIuc3
2LLrhAC2fDGEvNXdRdFwK1asKGUEfxSWJ0VMpytxLNK9N46MiIhAcOzRowd0
LncwbHXu3LkeHh4+Pj6C144wSJzcdIiUTcWz/0VNcZAwzZ8E2rx588TExHFG
Ro4ciQwQXosFGksj0gmCINTF/go0NzcXMg2+DlIFUsLS2n341tvbW3w+wu3b
t5FbRkVFmV3H7+nTp61bt27WrBl/EBpSFDhhfqIio/yRkZEBAQFmh/18+vRp
8uTJEKcnT57kPszLyxs4cKAWSwXi1nCDiLBSdpy3AzIUKCR8o0aNYA8SJ76x
qXm45YkTJ5q+n4LBMLkxadIkTR/kon3Lli1boUKFhw8fSjk+JycHOQ9iPXsp
j5wE/Q5nEFnnii0SwhKGihUrFqu5ORI9AAOKCdmUwTjnEXrT9IB169a5uLig
tk+dOqVBYf8PO1gFA8ezldw6d+5s+r4VlhMTE8MqRPpgwkKqQC9fvuzr6wuZ
KXhdDvXBVogFCxculPJ0C3EhLi5u2bJlLBru2rULqgEOVnyGOM6cnp7OBt6M
Hz/ezvNZlADfC2mmJBpK9N6oorVr18KwV61aZdYtHzlyxMvLi3sby0DERNy0
aWqG7hc1i4OEaW4SKEqC8nT8i6CgoJo1a7L3wsUt0BAEoSP2V6BQnaVKlSpZ
suSKFSssaQQ2WwFSwnSsLMcff/wxevTonj17mpWfDCQnn332GZfO4XIzZ85E
sqrkGTUUUO3atUVesb1//75Tp05ff/01d3dnz56Fn9diOzBci816s7QOv52R
oUCfPn0KOY/wZ7oVoylI0dnO4/379zc7VAyaFCk0DujQoYOmyz5cunTJw8Oj
XLlybNSfVdjKrtDO586dy8/Pj4+Pxy1Pnz5dJNuHsuCmNAYGBqr+At2RkeIB
OPbs2QOrw/EbNmww2wsePHjAUq/vvvtO025iB6soMLq+CRMmGIyLjZvd4uHt
27ctW7a01WwKowKF8w8NDTUYt/QSjCrkVog1WNvLlYG7Zuseo+pQgT///DNc
jbe3t9X3pzgSCbzBOFNb94l+NgFzjYyMVDLpT6L3RprRvHnzJUuWWIr4bOor
zJUT+7Dbzp07m32gJBFdLmoWBwnT3CRQJEWmM3zhJGHAlmYQqA6i8507d549
e+YIeQtBELpgZwUK4ebn54eANXv2bJErbtq0qUSJEghtCHCWjsnOzkbsEM/0
2Iba48aNYzEIXjc4OFjiypBmgcCJiYlB2BJ3m/v372/Tpg0boIvEBomlYDCw
WsCNQ9sipiBrVfLKD79F9t6lS5emTZsi7Y+NjZW3BaoMBfr48WOYhJRRpmhN
9qpLZH86bul7ZI/8pR1Vhw0TdXNzE1mAkc/JkychNGAV69evDwsLg0jhXrVY
An2TjYwCUVFRUnQBknBkO9DmOJhvb/gbH5pdfFUcnCdPGfLkjBQPwEArN27c
2GBcV8TS3G1uw3qz21WoiB2sosC4S2PlypVxO4IBHhy3bt1ii+HExcVJv1+F
ClQXU0lJSWHrkJsdrc12VjUYN/yyWg/wgZMnT0ZsgpHAXSNLr1+/vtVB4JxT
Mhg3ky1cE+jWrl07ZcoUJWWW6L3Rnbt16yY+Bh7uLigoiNuVFXIpIiJCycJ9
ulzULI4QpvmTQFEtprEAbmfAgAF2mAT6888/I4lC8oaghsqHk09OTi5ET70I
gpACPDDSG4NKwFEo0W4FxhdYTZo0QcIwZ84ccYezbt06JycnJI0iy0RAe86c
OdOqBz5y5EjXrl0RhpCEr169WuEKA+/evYOLRtgVPwy5HCIOW4k3KysLf1v9
iTwQR9jMR+WBA2ktEpI6deoYjOszyDubDAWKeFShQgUpk63u3r3LEm+RNxoI
o2yMd7169bR46cyB6ipfvrz0KWYwvytXrkybNg1pALIIKW+m0F+qVavGet9X
X31lNYVG94T8EenCUDrSJ0JC2iA9UMV1QNfYOi9SigdgMA3i6uoqWI2Hz5Mn
T9jYbBl7u9iEHawCHRN5LKtYS72e7QQKMYVzSi+8bAWql6m8ffuWXTckJMSs
ajhz5oybm5tB2lJCBcYHjNAgOBg1DFUi5ans06dP2QtQ1Hb//v2n/S/QpDih
w47LReEV7g4mxXuj5hF5rbp3dEz0AvaWMDc3F5Vp6xY2ul/UEo4QpvmTQJGA
mT4PRyEhCbWeBHr27NnWrVvv3LmT+WEUY9u2bUhTTResJgiiUHPr1q3ExMTh
w4fHWiY6Orps2bJVq1YdOnSoyGEjRoyYNWuWkpdKyFLghBGqli5dajUJ3Lhx
Y4kSJRDZnz17JvuKDATZ0NBQtu9beHi46Sq1WoCUIz4+HukfAsTs2bMRdzTK
e/Py8sLCwlQJbQXGNmratGnJkiVt3dCTQ947UF9fX1x0165dIodxy/6Lz+aD
woLOMhiH0okMz1ZOVlaWl5cXtIbVKXuyYSPcWM6AVNZqgIaNQWplZmYieV6/
fj33/hSaCEnLjRs3zG49YAlk4ytXrhwwYEBfZeAM33//va27mUv0AEir2KYt
4nuOXLx4ka1cLaUalWAHq4BVI4XDvVha2ARmwHYCRUksDRUwi2wFqpepwA+w
PZXMbssLzp07x57Bajf68fDhw2xDKDR6ixYtWv0vyPmTkpLUnVToUEj03hJB
4Bg8eDDM78KFCyEhIZoOYrHnRR0hTHOTQBGguXe+fF68eIEMTdNJoIhN7du3
z8jI4H/IQjY8j32amyAIx8E+o3A/fvw4cOBAuL5169ZJ8cBsSUnoYqv7kVkF
+Qzu7sSJE0eOHOnWrZumqoTPsmXLpkyZguqF/hW4XBXJycnp0KEDwsrUqVOV
hzY2hlDJWgQyFChbJ9DFxWXr1q0ih8GEWBAX36giOzubbYiAbFZTk7527Rob
b3nmzBmNLvH777+z8aUG2wf45efn9+jRg/3WpqGYDoJED4CUBvoa95iYmChS
P2lpadCzsLH09HQNCvt/2MEqWCfFLVepUsXsJFluEigEkU3PHArXPFAoSuhK
g3H3K0tjng8ePAh5WKpUKVX0kVmWL1/OepnEcfJFDIneWyLozl27doUdQqmZ
fU+nBXa4qCOEaW4SaEBAgNnZyoiwx48flzf7RgofPnyIiIhISUkR1DBb7qBS
pUqPHj3S6NIEQTgmdlCg8Gljx45FnrBt2zaJ7p3N3/H19VXulHBfyMC3bNmS
kJBgz5Ee27dvx3WRSKNutVsSh3shosoSK2z7dSVrEchQoMwCIRDERwxyAykH
Dx4sYqtMueBsycnJNpTbdjIyMjw8PJAJKByaLgJfRUpZSoUPq1WDcZNcKUs8
ORoSPQBuDRYrPg0N1gKbMRh3ib17964Ghf0/7GAV6FwskwwJCTHrWLhJoNI3
2GUULgWKZh06dChus3r16pYmC69cuRIH+Pj48PdsUhG43NmzZ7MeqnCKXyFF
oveWCJRR586d0Ylg23bbUNUOF9U9TPMngSKmyFgQQDnp6enIhUxHy8PDV6lS
Ret1GwiCcEC0VqBIgebPn+/t7b17926zvhep44wZMwQfIhxAsSKRy8zMVFgA
+N6JEydOmDAB8cV0A3rtOHbsWERERP/+/TXN/+G04bqRAEjf9c8S3Pbr3MJN
MpChQLm9CxcvXixyGHu7hMNgTpaCOGx42LBhOKZatWrZ2dm2Fd1GDh065Orq
ClGjnVFxb3kMxk03bBrLx3oQG4KblZWlUQm1Q4oHYEtZ4h7LlSt39epVS4dx
M/Wio6O1e8LPsINVpKSkODk5GSyvqsRNAt20aRP7BIfBUVhNfQuXAkUh2fOZ
tm3bmk3FcdfDhw/HAV26dLF1ELhEUKULFy5kPXTFihVaXMLBkei9JfLq1avw
8PBp06bJXgrPMS+qe5jmTwLVZT1eCE+kQwcOHBB8zrZ0h7NSuEMBQRCFEU0V
KNxLamqqv7+/qedhwIVOmjTp22+/FXyO/I1t8aZ8OhUuAYWLe4TftueKEGfP
nq1fv35gYKCm6/OzN4NIepUvIP/mzRuUVsqatCLIUKDIJBGbrM6RYUOP+Hm1
KdxSRbNnz9b6fQTyfBRG6ye3169f9/b2xh2hlSVuMVlg7HeLFi1i+UZQUJDd
Rp6riBQPwOX/aHSRlb7Wrl2LloJKtbquqXLsYBVIYpkCNbvHJX8SKPdCB76o
b9++VkdiFC4Fyq05Bvlg9p0O26oSab/EjYblsWXLFuh9FAOJtHZXcVgkem+J
IAaFhoYiWMteiMAxL6p7mOYmgUpfJE1drl27hn5quuwVQnaNGjUaNmwoZdct
giCKGJoq0D179uDkIov/5Obm9urVa9u2bYLPWfKgyrwthMVp06aVLl0ahVF4
KptA1ufm5iYyBQ/5Xrt27Tp27ChYAPP9+/djx46dM2eOlOexbPlTZJsi77lw
fpwNTr5u3bqo1bS0NHj75ORkQdLOJF6FChV2797dv3//Jk2aoO0iIyNt2q9c
hgJFA+F+2SsqESNEmatWrSpiEuxpBs7TuHFj5QtYiYPM/7vvvsO1OnXqpNHr
FQYqJCEhwWDcQ1zk5a+AnJwctkkiGDVqVGF8tizRA+BbHFOlShVL00WR8yBh
MxgXE9ZaWNnHKvbu3VuqVCkIq40bN5p+i/tt2rSpwbgTKJsEypbwkrLpRuFS
oGzzFNwpTN1sbbNJoA0aNLC6nLIS4HjZMyK7zVt0KCR6b4nAYlu0aIG4o2mT
Sbwo3CbaFPaDmOjs7Gy6oQ/ufenSpVB2ZhcE46N7mOYmgULuWd3fSpwHDx6M
GTMG1YKi4tJdu3Y9d+6cVctPSUmZMGECKhDZYFRUVHBwMHLOxMTEgICAtm3b
Sn+4ShBEUUI7BQoJhizo5MmTlg7Iz8+H64ZLNF2oh5sBN3v2bIVhHWFi/Pjx
cJia7s1hyvHjx8uXL292v3jG9u3bERTY7uf8z3ft2oUMU+LGGTt37sRJEAss
Lc5z6dKlWrVqIaJdu3at4K85L5ByqNtly5bxj2SzS3Dp+vXrHzlyBNWOAnTv
3r1y5coiQxwFyFCgAHEWCqt169Yit5yXl9ezZ09Lr34KjMOePTw8kA1K3IpR
CYiksbGxKAxisdYvW5FaoI/gWn5+fhKXNkX9oxXYJNDNmzdrWjyNkOgB7t69
W6lSJaRkSMxMv4VPYw8lOnToILJSrlrYxyqQAfr6+qK/IKkTfIWKWrx4MXox
yoDslLn0jx8/IkG1NAqFT+FSoAXGnbZg52b3XYK7QFCD/a9Zs0ZTYQhD7dev
Hyoc9abL9DrdkeK9JfL7779DUn355Zf2fGgmclGItYMHD7IJ9fPmzRMY0rNn
z2rXru3q6ioS5Rn6hmn+JFAlVvrp06f58+eXKVMmJiaGPfFDL4OKxK0hKHO7
q2zduvXixYv8H7LnqMgN8Ad8I84AD+bm5lazZk38LXF1SoIgih4aKdDMzMyA
gIASJUq4moM9w2cu0d/f33QEHfxYUlISvkXBFKZDbMEKrfcBNAUCE3HN0t52
3KPjzz//nF8wLlhIWUUEtYSwyLJNs7V05coVBCY0BH8BFqh+NIFgNA43uwRx
kC9zmEweNGiQxFaQp0AvXLjg7u5u1hL47NmzByUPCwszHU+IMiOceXl57du3
zw5vIj58+NC+fXu7LfLz448/litXzmDcLdHq+ofQGqjJFi1aFN5JoAWSPQDb
9ggJMJSXoN3RlaDRSpcuHRQUpNFuvALsYxWoDbawEpI6vovA7aPfIYn18fEx
8HbAzMjIgACX8vyt0CnQnJwcJOrwCej1gq/27t0LRwRtqOkQBQbcLHsMYmmY
t92mNOqCRO8tBSi+Bg0aWH2lqC7iF4XUqlatmtnBq5BaCI7oceJD7nUP09zi
2Eoe6UO3suH9cCx8e4ambty4MYyf7X7++vXrbt264Y74v8Ux0Mj81cBYtonb
mTRpkoeHh8h7CoIgijBaKFBEIrhlgzQCAwPN7sN++PBhpBAQcQq3zH737l3H
jh1VWSteOnDyM2fOFFm1la1A7uzsnJaWZvZzKUsWINyg4ZB+m10EA7GgVatW
ONXKlSv5QYft0o6o+v+1d28xUVx/HMD14Y8NiNcCNlStoglN0CBKoRekKopI
5OIViFbblEqltYoXWq80Yiv1riBEH8SYoCJRNBKNtsEYQW0flBZpDA+CMYEH
I0YwPNJvOHEy/5nZZXaWPcyu38+TDgtzZnfm/H6/2TnnqB9cFKNLkDxrRlki
/CEI4gwxuUy8tQpUpL59DlHB8aI8R6jdvXu3EmoRxbA7ZIBo5K1bt1zar2WP
Hz9GxoVUv6GhQc4eEaPff/99XC9BQUHFxcWGsxKhVV988QVecObMGYR7tBAn
gDcOAhVM9gBIIHHqIoVTL4CCo87Ly8OpgqxP2hSL0s4KfLjjx4/HIStZKM6H
vXv3xsXFYcv69etxnuBMQOfz6tUrvAN79uwxk3Z6XQXa0zvxL1J3VBDq/Lau
rm7s2LGzZs2S8zAn3tvKykok4eHh4di1+kf3799PTU3FZ6G/YK9duzZmzBj9
iHV8giic+/xazT5M9t5moJjF9e7+Emz9uNOrV6+iF5owYYJmPgdcWaiqEHwL
CwudX1wDEqZxUjU3NyMgXrhwITMzU7nhP3PmzOPHj1dVVeGozT+Oi4ahe0Ej
p02bpvkaFzvKzc3FX968eTP+jZboJ/+vr69PSUkx/Iocterw4cPxK759l4aI
DHmiAi0tLTVZfgICtGHCg+QBDRs2bJjmiQ5XIUWZPHmy+edI+0VnZ2diYqKT
2PTPP/+gUtA/PYjtyGBNrubQ2to6adIkw3XnsV9ENIQMhE5NbP3tt9/wts+f
P1/9NI4yukSzXIUYZ4e82uREAdYqUOXWbp93aBGnioqKcMgzZszYsGHD2rVr
kfwg20RNqp/m3XPEk9JIcT23zo4eUqDs7OwhQ4bgjcKHhUoBRdaRI0fwhuB9
iIiIwI++/PJLMQkw3sYTJ07s2rXLex9wMt8D4EJYvnx5QEAAOpP8/PysrKzg
4ODY2NhLly7JPHyZZwVKG6TNKGFycnK++eYbZIb4h0gOnz9/np6eLgahI+HM
yMgw+XikN1agPb2zrMyZMycwMBDHu2/fvtWrV+PTR1bs0lqo7kMXOnfuXFyD
6FqRjeNSjY6OnjJlyrFjx/TPPSLarlixYpBunV9sF/P3uj/8RBrzvXef9u/f
j8tHZk/ufKfKbOTJycmaD1E8kIPrrs8bXAMSppWFklH5/u//KdUoKmiTPRV2
hz+OXZSVlel/ihiEv4ZrEFccApD+bn9JSQmCteEzXSiTQ0JCDB+kJyKfJ2E9
UGvQX4k5WJBguxPX0GeGhYV5dEJavX///XfcuHFOZqsTy1bqv/89c+YMtkdF
RZkZtiZuz6LU1ceRjo6OuLg4vHvIzNX5JP4tRi0VFBSo31VUK4iDmnUNkBoh
n8eLzQcIaxVoz5v1H01m73hNTU1NcXHxqVOnkIpLPnXxtnz33XeI4wcPHpSf
JaIuKy0txQWL5Ael98SJE2NiYlatWoUkxMfWU3O1B2hpacEVd/To0crKSvkz
K8o/K7BHFF/l5eVVVVWaRxTwo/r6epwnN27cMH91eGkF2tObyeMTR7dTWFiI
N0Ryb6+Gy/P8+fM4Cc+dO9fY2OjoTBATbfn5+eFc1WyfOnUqekL9c8V25lLv
7Uh3d3daWprz5Z77nfOdovoTkw9oBoHiU46MjPT399d8fIZsGKZdoix6hSLU
cI0zlJwoTpHMIPqnpKRonroRAyUcPYTW0NCA2nz8+PEDeM0S0UCxbQUK169f
DwgIcOemqFiM3tGCcZ6DrnjUqFGaJ7IUyiBQzUy5jgaHGsILcnJyUK4a9u1I
Td99993BgwdrViJAhPrwww8RENUTFONPrV27dpBuhUFETDGlKmK0yYdkLFeg
7e3tKKkQjMx8+TuwxHv4wQcfyBld+DZzvweQxgfOCu+tQL0OQsOwYcPee+89
TUqvbPeu2UH7pfdGDYLLR1NzeZrznba0tEycOFHzgHFXV9eqVatQCeK3vDRM
uwR/U0wKN3fuXMPRHyjD/fz8QkJCUITqF89qa2ubP3++o4EJFy5cwO+avOVO
RD5GjCzQTGphE+haExISEJH1k+WahJ48PDwcIUDm0WFfa9asQQRxdEPyxYsX
ZgaBIut2cksToTMsLMzRNAi1tbWBgYFDhw5VD47r6Z2WBNuV0SVPnz7t7OxE
nY7gpV8v++HDh4iPiJ6G6z4YslyBIgHYt28f2rBjxw6bP35WUVGBoPn999/b
8JLxMe73ANL4wFnBClQaVByoOz7//HPN92JHjhzB9vj4ePvfclHrl9770qVL
I0aMqK6u7t+2ubNT1FMoP9WDQFGO5eXlIUbn5+ebuUzsGaZdgnTl448/RgW6
bt06w0ENYtkjNKywsFD/grq6OvThhgUmuspvv/12UD8tJktE3giFj22HgaNz
Q0WTm5trLa+7efMm0lfNsH1PQ2cbFRXlZA5PMQhUH3caGxvF4ND79+8jju/f
v18/A7yAjchVEHT0U4AKd+7cwYEjMDU1Nam3Hzx4EBmOuJmJyJKamnrv3j2E
toyMjCFDhqjnA8SfLSgoQHSIjY01nCrKkOUKtKf36/iIXnYeEoJMIDk5GR+T
mDafPM3NHkAO3zgrWIHKgf42KysLXSuqGM0g0MzMTGzftGmT1yXkbvbeYnXX
0NDQ5ubmfm+btZ0iAu7evVs9CBSHtnTpUgTWkpISM92RbcO0S9AGtAS7+Pnn
nw2PoqamBnW6oydpjx07FhcXZzghnpgub8yYMSZXGSMikgm935IlS4KDgy30
UWIpdkdrBXoOslDs1NGylT1vBoEGBgaqZ+9H1icewRVfniKnRZaiKVEVeAFi
vZOgI2ZxGTVqlHrKAsRZZJhKhoN2pqenIzSINwpNqqioUF786NEjxBQER0dL
DDg6NMsVaE/vOBc/P78DBw7Y9mvQy5cv4wC3b9/udSmil3KnB5DGN84KVqBy
tLW1iXnDNIM9xXb94FBv4U7v/fLlS9Qp+i+FPcr5TlF14loQg0BxXV+/fj0s
LGz69On19fUm/75tw7RLlEpc8/Sv0NraunDhQvw0JCREX8iLGbcMe+/nz58n
Jia+8847ZWVltg33RPSWe/jwYWho6FdffeVqXoTXp6WlRUZGSh5igECM6hIB
y/CnymDPwYMH//LLL6LvRbDbuXNndHQ08tiPPvoI4Qa157JlywyHr4qZAbCL
mpoaR23AXgoKCtQLsjc0NMyZMycqKgq7xq8jNPz444/KDPAIZOPGjUPNK272
Pnny5NNPPx09evSVK1dcOnY3K1BkAqmpqQjKkifkN+nFixezZs0yM/8h9SPL
PYAcPnNWsAKVo89BoGL7s2fPZJZj7nOn9378+DEOPC8vT+Y9HOc7FYNAUVPn
5uZ+9tlnOK6TJ0+avzTsHKZdhTIT/Rs64QcPHigbUb8fOnQISUtRUdGMGTNw
pLdv30autXTpUmUR6ra2NpSZ2dnZODHU3SMK0k8++QQtP336tFfftSMi34a+
t7y8fOTIka7eGRbD+desWSN5EGhOTk6fg0BRfoaHhwcEBCQnJ69YsWL69On5
+fnovXft2uXv7z9v3rzY2FhHq1uKBdDxeueTR3V1daGqDQoKWrJkCSpx7PTa
tWuIWfHx8fj1pKSkxYsXqxcsqK2tRf6JXDojIwOxBr+CeOfq4btZgUJTUxNi
PWKW3dJgnIe//vorgqZ+sgXyKMs9gAS+dFawApVDDALVT4SOMgTbZ86cidwe
1dyyZcvcXIlMPsu9d3V1tfxBoM53Kp5lGjt2LAI0rm5Xswg7h2kLnj17hvcB
TcJ+8fmiTJ46deq2bdtEnvPHH3+gMWg8SvUdO3Yon35dXR1qT9ShhYWFSIrS
09MzMzNRroaFhW3YsMGe95mJiNTQh2/duhU9mGa4hHNiEauqqirPNUzv9evX
iYmJX3/9taOAJQaBIp1+8OBBR0fHvXv3EKo6OzuVF6C7vn37dnt7u+Gvo0pF
9EG0Mnl7HLu4c+dOY2Oj0h6xiAP2q08S8Bo0D5Wvo733yf0KFG7cuIEPDkWH
rR7OwduCVpWWltqqVW8Jaz2ABL50VrAClUAZBBoTE6MeHNfS0hIZGYntYt68
hoYGFBceGtnnUdZ678OHD4eHhz99+tRzDZO5U5uHacuQqKBJqDdRPGo+3+7u
btTsmqGgJSUlGzduFN9yvnz5Ei/4888/1dkOEZH9oSdfvXp1fHy8+YkO0EkW
FBRIXocF/XBRUZGTMWtiEGh0dLSFBdPRda9cuXL27Nm2nasHR+fn5/fDDz9U
9KqsrLTQVIS2U6dOTZgwAcmMJxppAXKDiIiInTt32nDRoreEhR7A03zgrEB+
e/PmTXG1lpWVoXZgBepRYrAnKs3Ro0ffvXtXbETenpKSIirQbdu24XTCSeVo
+hqbs9Z7X7lyBb8l+Xg9tFP7h2k5cBpnZ2c7WRWdiMhbdHV1rVu3Lisry7tG
x6gpg0AtLH+D12/fvn3RokXIYTzUPPeJ+nrQG5aXVkdWcO7cuZiYGGVEyQAS
g1mKioq8t9DwDbbqAXzjrBCrcQ1SYQXqUWKwp7+//6RJk4KDg1GqoPZER3f2
7NnW1taEhISgoKCkpKS0tDTvXSHRVr23ZF4RpuXAO7BgwYLGxsaBbggRUT9A
aEOYtvO6DM4pK4FaWCBGHLvN011kTbW1tb+/gX9b+KpX0d7eLvkrbEPd3d2S
Hw8jR+zTA/jGWYF38q+//vpd5e+///bGr968hRgEOnv27FevXuH8uXXrVlNT
kzIZC/6B/969e9e266OZZ5PeWzKvCNNy1NXVpaWlvYXnABGRDT169EgZBDrQ
bSEiInmUQaBbt27lFKDk20pKSrZs2cLznIjIDp48eZKQkPDTTz/5wC1uIiIy
T1kJ9OLFiwPdFiLPamlpkT9XEhERERERKcQg0NDQ0Obm5oFuCxEREREREfmy
4uJiMQiUC1IQERERERGRR128eDE6Orq6unqgG0JERERERERERERERERERERE
RERERERERERERERERERERERERERERERERERERERERERERERERERERERERERE
RERERERERERERERERERERERERERERERERERERERERERERERERERERERERERE
RERERERERERERERERERERERERERERERE5Jr/AOr5qBI=
     
     "], {{0, 150.}, {1238., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{710.3999999999958, Automatic},
   ImageSizeRaw->{1238., 150.},
   PlotRange->{{0, 1238.}, {0, 150.}}]], "Input",ExpressionUUID->
  "fb226a40-3610-46ca-8411-548d9052777e"],
 ", FieldNumber = 6"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 
   3.7468413969638214`*^9}, {3.748965842889092*^9, 3.7489658441604424`*^9}, {
   3.7675394916634912`*^9, 3.767539491663562*^9}, {3.767539878499586*^9, 
   3.767539878665174*^9}, {3.768090016647354*^9, 3.7680900168572702`*^9}, {
   3.768090065528351*^9, 3.7680900736443768`*^9}, 3.8312224092379217`*^9, {
   3.8312225103666058`*^9, 3.8312225189495754`*^9}, {3.831222593717477*^9, 
   3.8312225937791777`*^9}, {3.8312230860362315`*^9, 3.831223086347166*^9}, {
   3.83122340849144*^9, 
   3.8312234088093843`*^9}},ExpressionUUID->"89b7b384-8055-477e-b7ea-\
4cc3979f5551"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312225715423098`*^9, 
   3.8312225716225843`*^9}, {3.8312226140321136`*^9, 3.831222614108339*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"1abed86a-754b-451a-955a-1ad1995486eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Am", "[", "mu", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.831222575357247*^9, 3.831222614461128*^9, 
   3.831223506718525*^9, 3.831223540075242*^9, 3.8312236315357523`*^9, 
   3.831805885217389*^9, 3.831839776643403*^9, 3.8329474894680047`*^9, 
   3.8329617741474257`*^9, 3.8458268631474485`*^9, 3.845852456924409*^9, 
   3.845857067369999*^9, 3.8459196124439154`*^9, 3.8460065659326577`*^9, 
   3.8460998763360934`*^9, 3.8474704378113236`*^9, 3.851700622973237*^9, 
   3.853975440149212*^9, 3.8549773953795853`*^9, 3.8549892536623163`*^9, 
   3.854999890254578*^9, 3.855165237918836*^9, 3.855182307767389*^9, 
   3.8551858525579567`*^9, 3.8553306278019314`*^9, 3.8553398337677317`*^9, 
   3.855343170545009*^9, 3.8553440050678253`*^9, 3.855352732760949*^9, 
   3.8554495975638113`*^9, 3.8555075998058157`*^9, 3.8555083959627647`*^9, 
   3.855512883531095*^9, 3.855533099304126*^9, 3.8555333151297894`*^9, 
   3.855578908567658*^9, 3.8555932818472767`*^9, 3.8557505940411053`*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"5f115c59-675d-4e96-ba35-bef636486742"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"CommuteGammastdownstupdown", "[", 
               RowBox[{"mu", ",", "nu"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], " ", 
            "+", " ", 
            RowBox[{"I", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Gamma]5", ".", 
                RowBox[{"CommuteGammastdownstupdown", "[", 
                 RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"B", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}]}], " ",
            ",", 
           RowBox[{"{", 
            RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"d", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "-", " ", 
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, 3.831222631982333*^9, {
   3.8312226673263197`*^9, 3.8312226704612937`*^9}, {3.8312229112856684`*^9, 
   3.8312229258835363`*^9}, {3.831223098749104*^9, 3.831223337077551*^9}, {
   3.8312234382368727`*^9, 3.8312234564921618`*^9}, {3.831223521847991*^9, 
   3.831223522905406*^9}, {3.8312236265577116`*^9, 3.8312236269345393`*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"29c29f14-1b7c-4989-93b4-9eea91a3bfb5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], 
   " ", "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.738583987798254*^9}, {3.746795246915931*^9, 
   3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, {
   3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 
   3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, {
   3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 
   3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 
   3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 
   3.747486056829548*^9, {3.7493830494673615`*^9, 3.749383050607041*^9}, {
   3.749383130633822*^9, 3.7493831323038206`*^9}, {3.7675393683993883`*^9, 
   3.767539368965523*^9}, {3.8312227380231514`*^9, 3.8312228069258747`*^9}, 
   3.8312228644057198`*^9, {3.8312234885720816`*^9, 3.831223493369345*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"580aefe5-938f-4dac-ac93-2a536799a5ae"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->CompressedData["
1:eJwVzU0ow2EABvA/UdpBWg7c0EZWxtYODkPvDpzId0kO2CgH1hhtPvNRNHFQ
a9SWlM/JysS2RFtii+ZAmeUzo7E3arZMKM//8PSrp56ezJauakUcwzASxKhe
eJR+hsi75OFIB6XWfI4fuiYTOm7hkyH+7Q6uv3bKryMhUvwz33gDh6KC8APk
X6XU/0LKv9r5g6W+8HR2NES4joydShgps51UQf2FOacGthRWFClgsH33lfXD
qVjQ6ijZOtaZWEcHv9dZB+LNX/ppSqaW0sZXoUUjlh/NUJKqdTedQp+S8utW
KQlOZC03Q0agfG6Fs5K5rlFIPc7AJkx0zvb4obz3YLNvgxIRLyCa2qbE6uKE
73cp8YtVQo8NP1Z7zAtjqnLBJbxuc73w7JQIkweleZBp138JIS93eE0NwynF
OVq2T29w98PtwErBANxPMnaPQFni3qEFnucz3DNYVTKmZr3J7F3xQpOFTPpg
j6ZjkbW21fD0zu7qS4JRqKwstckclPwDUV3v1g==
  "],
 CellLabel->
  "Out[197]=",ExpressionUUID->"00645514-d0d2-40f2-88cd-76f927872b51"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdwFEcXtmtyTkKAQGQJLBBgwIjwkXMGiZxzFEEChDAiiZwzElkkG2Eh
ko2AAoPJGEORQVBkF2DgJ7gIhV3+XLrPVd9v7v47u6vZndnVCvdbBbWane14
+pz3dJ/uLjUgpMOQ9F988cW4rPzXof+EhmPH9p/YMS9/dB49bvjQ0YMHtRwd
Nnjo4LE1B2Tg4UX+HeDD//s5SUJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCwm3w7t27rl27tmnThg+pXRYJCQkJCQkJCQmJ1MenT58WLlwYGxv7
3//+15X5njhxIiIiYvjw4SdPnnRlvhJmQAA2bdo0duzYsLCw58+fm337+vXr
pUuXjhw5cu7cuR8+fEiVEqZd/P333zt37gwPDw8JCblz505qF8fVePz48Zw5
cxCeqKgomsLsW9eLlpmK++eff1ys9NwZZk2h7i9D8OrVqyVLljAcPht9IjWk
hIRtnD59unTp0lu2bEntgqQlPHr0COaQM2fOw4cPp3ZZPkNYk0lYwerVq319
fS9duiSeYBnPnz9ft27dKlWqvHjxwux9+POPP/5YqlSprl27/vXXX64o+mcE
WvvatWudOnXy9va+e/duahfHGGgXrXfv3u3YsSN//vz4X2ou6mLRev/+ffPm
zStWrNirV69hw4a1adOmevXqly9fdna+aQK0Q/HixRs2bDho0KCBAwfWqVOH
Vvrjjz8Mz4hOT0hI8PHxYVD8+eefhqfvekgNKSFhGzdv3oTs3b59O7ULkpaA
xZw4cSKqEqqc2mX5DGFDJrFQM2bMePv2rfLk1atX1apV69u3r0UNf+PGjYIF
Cy5dutSJxf18gQFt27Zt48aNYWipXRZjYJdo/fzzz/ny5YMnW0zKlaIFXYch
Z836/17XimMOnyF3F+SbJnDx4kWcuIwZM9I4RYsWjYyMNO1EY3Hr1i0vL69F
ixY5KX3XQ2pIibSLe/fuzZ07d9q0aYz6Y8eOpXZx3AgnTpwYO3ZsYGDgqFGj
rJnvU6dO0W5Tp06dPXu2sS4AOTZq1AjyAIUwMFn3QRoSvMuXL+fPnz86Otri
t99++62Hh4ddwTC///47dtCg0llAYmLis2fPnJe+gXj8+LGvr29ERMS/c0F/
4cKF0CFrwuBK0YIhjxs37smTJ06KH7AIVwrqn3/+eeHCBcemMdEAaCp+a7Fx
eE7KRinq77//nk4/fvy42fOnT5/Onz8fW0NJcLX++ecfQ7JzARwQYwkJN8EP
P/yQN2/eli1bdujQYfv27aldHHfB+fPnsdpYDdqnUKFCp0+ftvjarl27goKC
WrVqRRui2QwswN27d729vWfOnJmGNKFdSEOCt3Hjxnz58v3yyy/qr+B1OFDl
y5fXbuhv3LjRvXv3a9euGVrG/ws3b97s0aPH1atXnZeFANW/dOlSbGzs0aNH
f/vtNwdk9ciRI1jPPXv2OKN4bg44G8Jft25dixOSLhYthSE78FuH4TJBpXah
oaExMTGOqVPBkK35DqS5bdu2kJAQ/XEXdHpYWJifnx982OwrLEKfPn3at29f
smRJPmh3ZJ4/f07xMCUrV65ENlxsUBwQYwkJ9wFEpVq1ar///rvFb69cudK/
f/+uVtCvXz9cWoyjNcf82LFjY8eObdOmDezRlQMTizNx4kRrxUYnU6qtW7e+
fv3a4s+pzrx58xITE/m8fPnyAgUK2DY6pPOf//zHGkNGlZFIz549e/fuTWMO
HDhwwIABqDiehIeHv3nzxuKv4N6wsoMHD9JuBw4c6Nu3b/PmzaOiotyZMNPs
2tfKbQveixcvVqxYgcmOj4//+PGjtUQwfPQUml+7bbImk5ikKVOmDBo0qFmz
Zhhu5Tndx8OvvvoKQ/Phw4dFixYhP7xz4cKFpOQq0/VdunTRGDQIjWzbtq3O
2HJEF1qlWJzHjx9TpLNnz5q+8/PPP7dr146v9GRkGzQIrAORRjIzZ878xRdf
VKhQ4d69eyn+kLIhzyNGjBg8eDDDoWjRoq4MQnYf0YKOli1bljaERdy/f3/0
6NEdO3akPQVhdrFoCYaMMo+MjBwzZszmzZv1n97jJoJKA37zzTeYKofjYGHI
kydP3rt37/jx47EsdLR64x4UFH3uQPAwP0Eg6fdhw4bRBQEBATaCkJEr6sLL
Whjyp0+fkGGad8GCBTihixcvRuUGBQU5HLnngC2zV4wlJNwKtokK4o3OXLp0
aYkSJbCAVapUgbmdTsbx48e/++67kSNHenp6+vj48NxMaWArGcsvX74Up6W5
coAwkC9evLhlyxZsN8XOnTs34/rkyZMU+9SpUyi62bNnw3ly5MiB3rNhAdGo
3bp1q1mzpjUeK2CbIYPbt28nJCTQjGRKeQoVKoQZosUuXbpkUWmLIORSpUrR
hps2bYqOjr516xZEonv37qm72YG2GjVqVNOmTTHoykOKtHr16q+//pra4U14
eXnBfFI0eTYEj+5DcjJlyvRFMlq1amVt/gETLF5D7Wsh59Zkkv4NCwu7ceMG
GUHzMKYKwxFByL169eIrnp84cSImJiZLlizbtm1L+l+I3ZIlS1LMGsDHMCsk
oieigDLDo+rVq6fILRKSP3/+8+fPm75GFrNmzYKIOm//+Pr163fv3i0+37lz
B1oVEhJie6TQquvWratYseKvv/7KnziehQsXdmUQsluJlghC3r59O303adKk
hw8fdu7cuXjx4nxIcrloUcfAwEAYGuVEZvhAv8C6HUstyZ0EFUOAb6LeZqsd
KGqIK+nQznR0/fr1IyIizCwaVqB169YoB7tSpnFgmx06dBADZ9WqVRkyZIDK
WntfO0OmYXHn586da2oyKCT0u06dOg7P6Npry+wSYwkJd4NthiyA5KP2GQ74
jOqBiebBhcyYMSP62VRpwJ/379+Ptoc/p1acIWaOgpUtW1at6qkU6ihnzpwN
Gza0traIGilfvvyIESNsq6MUGbIAyg1mTjO2bNnStr8ggpAp2Jw5c+Lj4/nh
p0+faEynzrRoweXLl7HpGHEl1pGijh49mq4XdpBehjrmzZsXqoxo2UgqRcHD
ZISGhordMThiavVLs2Bb06dPzws4O0eOHEmx/NZkct++fbGxsUnJnI2SL1u2
zLTKmPUJEybwvpgARFpIREw/fvvttzQItDnFrEFcXBx2Vg/rELl/+eWX0FFR
eCSTUVmpUiX1SXRPnz7FuTM2+EcBuWOpN27caNevzpw5g0M9b948wRIfPXpU
unRpyKGLV0bcRLQWLlwonkBjxPD5JRmiNVwsWmSK26soOipC19BKDoclu4mg
UhH0jOLKOQbYu6nuxalBxUEUzV6jr8nrwYMHGpMVYsaIEA4jQFQ8PDxsdLp2
hoziqly58sqVK83EGzn08vLSaZG12zK7xFhCwt2gkSH36NHDGkNOSl6h69Kl
C84vOt/M2K1fvx6CYbay5jIwPDNlygRDtsiBKeratWszZ87cvHlzi3Nfp06d
YnSL2UIbUDNkWgmNajZrQXaYQppRPaNOA6JXlckWEYSMgeZNrLP7HJIjJudN
pYUGHD9+vFl1IE40OxbWxiG3WgSPZIcMGUKLIULKGVlmSExMbNasGWwHb0hj
LWzIJInQ4/S7aV0QbGgShsl0iTzpfyF25cqVUwcNqoGQ1KtXDwHQyQbNTj94
+fLl119/jYtqkeYtWLCgRo0aak6iHyLx+vXrWwtVUkPEq5h25aFDh+ADe/fu
dawM/BxO4lh7prpoiSBkClCmTBlkjH40fTlVRMsUeL546FBchyOT3UFQSRnn
vUmTJsaezIbAwJCRHzNriBpHYNCHGsknHg22ieKJgBZ+NXbsWItByAq0M+So
qKh06dLhepiNUFz7Fi1aWJw1sgg9tswuMZaQcEMYwpCTkvdcQOqwDmfOnFEe
ijM2mzZtmloX0tlmyEnJ6iIoKAguikesti9Lly4tWLDg9evXbeeiZsioFFwG
kkVBKQEJFrXKp0+fwsLC4GC+vr5QBVGG3bt3o4H37NlD7/AcfWgjYDIV8fbt
28DAQEpr1nRi7h39bOPMIi2Cl5S8SFe4cGEabc6cOdYIAKS9aNGi+/fv11Jm
GzKJbAcHB/v7+ytLkDwZPHhwxYoVkQEkBPE2JUsixK5z585aIojoTVyGFGUp
RcAlTE8/wFhTqlWrVll8mdYj07i4OJ2ZWsTp06ehQJRHIzETHKlOnToizpZf
0ad0nJbQZTVEJBL21+FJztQVLTHFOnLkyCtXrqCCYBGmh+G4WLRoTBqhdevW
ip5E4cDcihQpYhpPZRfcQVCpTqVKlVauXKknEcghvsykSZMUbn/t2jU8Ox6q
2X50dDSqT+Ni39GjR3PmzDljxgwhfrBKXE7bna6dIdNx06dPP3funNlzfjh0
6NDs2bMfOHBASyH12DK7xFhCwg1hFEMW4453+vXrpwyHs2fPoklWr16NkkF1
uH6YpMiQk5LtS9asWcuUKSPC/xSI2BIGeIpHX1qMsvjw4UPbtm1pkMmTJwsF
aFGr0ESQYdOFNmH6S5YsSXn4HBoaKmZyMDG24xZcjwcPHsAfUJ7KurkAtcPa
UtNevXpZ+61GhozWRcGSFFTcmvzcvXuX9td42p4NmXzz5g1WwDTYWwQhi4mv
58+ff/XVV0OGDOEnsbGxZCpC7BYvXowRWb9+vQ2bJUZQy5YtdQZbionHGjVq
KPNCGzduRH4gqydOnFAHA5AdmSLGzjgzUEg4JFnjYX3Cb+rdu7doXorUrl07
aBjji9azNzBSP0NOXdH6+eef6TgUFJ8PHjxIM+JpiqaAnbpYtCgqLL1q1apK
hAAChpgh/AwBxxJ0B0Hdtm2bt7e3znNj7ty5g5bDwVE69OTJk7ly5UL81HPF
5EWOmzdv1pIyOjB37tzKST6JiYm4bHT606dPrXW6XTv1LIIyjxgxIl26dGvW
rNH4E4dtmXYxlpBwTxjFkJP+t7elSJEiikFZtmwZ6oI/4+LiNm3a5PpzGLQw
ZIxC8eLF8XzXrVtn+lwY9NGjR6e4ZGYtDnn+/Pk0WosWLYTat6hVNmzYQNam
+1lEEDL2AkNJa0PJateujZ2iMS0eOJaKoIn8/f2pkTINIkDtYB08h4FY+61G
hgxQsCQlTpOw+AKCB4nVOM1uQyavXr1aoECBFStWKE9EELKYg0KE/Pz8IiMj
KcaUKVPgPEePHuX9hISEHTt22A7FEcup+s/uE6cfKFtHEd3KlSv7+PjwgcTV
p2aRHc9LlSrlpHtnIHV4lzArLWvxjAJxmIwQ/vj4eOgBxvrevXuTJk2yl+Dp
Z8hJqSpaCxcuhDyIWzloRj5DMGCPUGt+6HrR+u677+AwprsIvby8HL4I1R0E
VUQ+WztMTzuQzIiICOV6QQQPokjtLPpN5CVu3NMSGgf39vX1FXQaGRs5cmS2
bNl+/PFH5MFay9vLkCktVgOvDT585coVfk7BEGnE3sZ+QDUcs2XaxVhCwj1h
IENmJObJkwdGKnamJCX72hUqVBg/fvzUqVNTJdBCC0NmOKNFqV2fPn0Y/gzq
PXv2oFj27t3r4eGh3o6hhjWGvHHjRrE4JSZSLGqVBQsW8KRdu3bKE2HylMXr
AwcOYFwg6vPmzUuttSpI+5w5c/r169egQQM4g6ktxqKdOXPGzBxQ3+rVq1Mv
lLm1NLUz5P3792M44B4WF3xfvHjRtGnTXbt2aayLDZnEKuXLl880TAiqQ77i
YDfqCCVr2LBhcHCwWKCk8DgymJsxY8bYrsihQ4dI2VohGVO0KjwN+0J2CIkZ
JcO0kUJS8nliOXPmxOiQ6fTp06GXMTEx+HHYVgTGoniIYwMNv7ucAUIPdujQ
oVChQnR0SEiIFpN97do1vD8an5LPnj2b9qxRowYs96effnKgAPoZcmqJFmUe
MGAAiQsu8fTpU5qF8UU/igV614sWPJAegQoePHhwyZIlX3/9NXzebFynLUHF
60FzDho0yJqEvHz5Mjw8vHDhwhkzZkQXiaM1lW/5jBMnBAMnbtiwYVFRUQx8
qlC7dm3TrQqmEMH2Fm+oV4MsaBZUyrRp07CtCEmTJk26detGp1sL3NXOkHkB
r4d+pDxQboQTH2TWrFmIU/369TFMOEQpllCBY7ZMuxhLSLgnDGTIeMQFCxYU
M4rKw1evXrn4FHpTaGHIDGexhITvn5iY6O/vHxgYePnyZTgeJljLqp81hswT
cldmqNRaRWwk4QlaUTFGPES7mk5ck77OAxD0gB5H9eH18CE0NLRUqVJm4Shq
/Pzzz7ly5cqbN681O5JkD0MW+2KwnurVUhpt3LhxzZo1s2uayKJMUrvhw4dX
rFjRtEh0k+kqM10DgTHNiyfPnj1Lcb4I20r5lWkoUyBgmA+sT+bMmTHWcA8+
mx7bRRkwoGL+Z/78+V5eXjdu3Hjw4IEIwklK3hpDdaxNIZIprWfsla/IJwqh
VatWMIft27dTcga+xnsfaOe7d+8qrQoTcGyKzxCGnIqiRbKm0+b0MmTMVJBc
KVpKjuhwOjQhIUEdXJHmBPXWrVtQdHSXxW8pWEBAALo3T548+fPn54OHhweK
y/QFuKji6VA7HBwchHPnztmeqVi4cCFJaQ/tIAvsjjA0dDfNZaPTNTJkPK/B
gwcXK1bM1OMQN5vg+BQtWhTHUGN0vYBjtixJsxhLSLgnDGTIqBRvb29eGz16
tBNK6gi0MGRqJ8IRK1WqxGvx8fEYguDg4IMHD2o0vtYYMtopR44cZcqUEfxW
rVXEVl+eiFsDdFT0/8PZs2cxXunSpftCM2ifKVOm2Mj9+vXr6OSPyWjdujXW
RCwNWwNVGzBgACmHh4fbaEDtDPn27duenp5YTzGXa4qdO3cWKVJEz7wTtGT9
+vX0IF2PcxQSEmL4sYRiizpWSX0MFCKxZs0a5BNaIowIJZkwYQJuiLLx6vz5
8+KyAxEsarqIqQVkiqGE7BlVr5cvXzZv3rxx48aCRIn9d4icsSQ8RRjCkKVo
abxHIy0K6qFDh3Lnzm0xXOH9+/fofMRYOcaEWjRq1CgwMFC4LdR31apVjp2y
AosmX8NXbQS0MGQU9aBBgzA96jPucPBbtmyJzsd/0RhdL+B6WyYh4Q4wkCFj
EQRDDgsLc0JJHYFGhtyxY0eKXbVqVcdOlbfGkO/du0eDKDM8aq2CKmvVqlWG
DBk2bNjgQL5qUJcrV66csgeQarOTpkxBmZcvXy7WcG/evAn9TjGuD7OSPXv2
nj172o6r0c6QhVzlyZPH7BCtq1ev+vr62uDhKQal8MMRI0aQOMZ9+PDhDRs2
dEa8Lrn07dvX4r2rVA0uYTb7SifCPRYvXiyCBvFfxOq8CL9hcNllgEQ4PeNX
4zQOpY2Lixs/fjyMTn3VHd/iP+IlKSHxFDIyMhKptrGc7QwYwpAdEy3kSssa
dxoSrRSR5gQV7NixA6a6b98+9VfoasTVjMBjI9DMFy9eTEpmkoiW9pMMTYFm
y5Url9iDaTi0MOS1a9di9fr06aNWgNSoZs2ajFZ7/RfX2zIJCXeAgQz51q1b
np6evGZtYcv10MKQP336hFtNsbFijt3tZY0hkzLcG6WBykqypFVQ7MWLF0fz
mB206z6gzNeuXYPr8mHJkiXp06dXH3ltCioCtWjXrl2KxkU7Q4ZalCxZMm/e
vMoW6aTkkJ5KlSrRZerlYEQ0MTFx0qRJpUqVsj3dnZTMhSIiIoYOHbpq1Sqd
O3qsQbhglStXVm8H27hx47p169TtSfkpEs1+/fp1eJqI9kRaGjRoYLoQrAU4
fVWqVGnfvr1G4kFhaJMOHTpYPIft3LlzdAQG2jQ1JD9z5swadyfZC1gW9DU2
Nnb7/43vvvsuMDCwefPmjHGzr3j59OnTWpizXaJFyxw5cqRLly6dO3fGTwwI
CNi5c6eNXNKQaKWINCeoICYmBqYq4qJN8eHDB0i1xaCgTZs2rVy5kpSpr8M7
yw4fPpwzZ067ony1I0WG/PTpU39//yxZssTHx6u/pZGRFmzQ9OnT7dra+RnY
MgkJB2AgQ0Ylohly5MjhpAUmB6CFIYsTvajd2LFjHVsesnGn3tGjR/PkyVOn
Th3eMdMq4jxYOOe4cePc/xgcTHz9+vVFbKG1d1DOvNOtWzfbVw8LaGfI4ky5
fPnyKUbt8ePHNWvWpFvVhXn58uXw4cNHjBgBk7EYX+p60NfYfYsrFDyxGOgu
ThbF7q9YsULjsaXWIKIg7Lr2XYTTNGnSxMxhFGv6WbNm3bNnj+lzujJbtmyj
Ro1yxuoq7GvMmDGMoNoqFC5cuGDBggw9s+e8HBwcrIWU2iVaJ0+eZKiKZBmw
cAxqnSpH9ChwmWilLUEVgNJjj9QnyyGlz549s9hrEH74J5Wlox2+5EKcciyY
pOFIkSELd7V06dIWd4vgyIiwIvU5ySnis7FlEhLaYSBDXrx4cbp06SpUqODw
ne+GQwtDvnLlSv78+cUxO47lYoMho42XLVuGR4/qQJ+bapWEhAQPD48WLVo4
FtrhYpw4cSJ37tydOnWytnURVtyxY8fBgwdrPLREO0O+e/duoWSItVSkq1Gj
RlAj23ez0tRuwpDFwdqMC+27uRGbRYsW7d27F/rh2IG0Csi0UqVKZttnbMPa
ZdCQQ/hnsWLFzE5+2LZtG6PM2mUQToIhURbaRYvWQ/sh/wpxopV8fX01nlrg
JKSuaBmbmoGCKrB169ZcuXLZtR9NnG6xa9euJUuWOOzu4SmgKrXfw2gXbDNk
4cNiYvCbLCrq9evXZ8yYEUXtwBVUhtgyhIS2DQkJ4ec6D4eXkHABjGLIf/zx
B748XqT2O7ZcgBQZsrjwlGI3btxYictiFMP2xQFrWkaxDYYsskCB1KtXj/YR
4RxfffUVKq5EiRLTpk0z9jrU8+fPlytXDmWVTzOgB7Nnz7ZtDoTipSXF4fbI
gNk8D600fPjw0NBQU8WLUFlc6RPQzpAvX75MOX18fB4/fnz79u2AgIACBQqo
F09N4VYMWVymI8qv/VcbN24cMWLE2rVrdY6m3377rUyZMnYFCYsLLMwmipP+
dw2c2R06FG/y5Ml58+Z18WHdhjBk7aKFDuzevTvMRyHPwl8oUqSIY3cCGoLU
FS1jUzNQUAXg7fSXNbVsEagvFF1wcLDFs0E0Ii4ujny1HxJoF2wzZCGlmJgp
U6aou+P9+/etWrXKmTMn7eZw7jptGbydFJBYnE150Z6E+8MohozLnDlz5jp1
6rjVjGiKDPnu3buMVtSsadQco3j//v2lS5fWeF2mbYas4NmzZ/369aMZq1Sp
gp110jVn2HdU9PeagSZXb4Q3w9OnT8uXL+/n5yeaMSYmxlT/Ix6RkZHQFbN5
iaNHj0JTraWpnSGLs+O+/vproVqh9OqVUzO4FUOmMOLGarsi9DZs2FCpUiX9
QX0QP1if+lJ1ujIkJGTYsGEM6qVLl06YMOHOnTtJ/7u7gabDQxTBKnSu8BPp
rIoVKzZr1sy0ozGLDRo0MLtqmUR+/PHHvn37wmDHjx8/Y8YMw49DN4Qh2yVa
1PTRo0dKM4r9aA5v7zUEqStaxqZmoKAK/Prrrzhudl05jbbv2rVrz5499Uxv
rl69mnzPnz/vcAo2YJshi0tS0qVLFx0drf4WYpwjRw5a0tSo0ezVq1dX1k/5
aurUqSlOoeuxZbdu3fLy8lq0aJH2n0hIpBY0MmThmVpjyBiaIkWKYC+UozUN
wdWrVxnO8D2HF7xsM2RqjbnPli2begIEhY+51HjrkEaGrMRutW7dOm25z/CH
7Nmz0xf0PjwhLCxMmbOia7AIUCAzJYmJgcCYXVNoCu0MeceOHXQiNCBPnjyo
Voh3ij9xK4YMYmNjMZopEntTLF++HKOv3406duwYWSuX+AhcvnwZakcWdJ9y
ebSYN4P9tmnTRlxCQTPCA+E/GzduTEq2nviMyq0BSvqMFNN5PFIYN25cjRo1
aHxS2Lx5c/HixW2ExDgGQxiyA6IlQL2gXlmzZkX4U3fJLBVFy9jUDBRUAdyZ
UqVK2XWkBmm2b99ezyY78oLBOu8WyxTjkGNiYhDpWbNmmYnl8+fPGbkQWrOC
0WIeHh4Kn793717RokXVfoq6GA7bMgwlOR4/ftyuX0lIpAq0EJV37941bdqU
4aA+iufu3btjx46FZDZs2NCu8xVTBBn17t2bTD09PR1b82IUi9DoEiVKmG1b
ePv2LeStZMmS3t7eO3fuVGsDFDWjWKNZ18iQ0STBwcHUCPLgVjPtKQIhgSGv
WbMmKVm/CYOV9L8j6PnK4knLSIWNGwntvXUa+Pr6ajycyt0Y8o0bN6CR2iN1
xc4XU3PvMPD+4H6m7fDmzZuGyRCromKgff311+LQPxHbOWbMGNHFYv9Ut27d
xG8PHTrEkFFiO0kKExkSEqJYSTHolEUZ/ty6deuIESNsnCjoGAy8ddou0RL4
5ZdfYEFTpkxJ9asQUlG0jE3NWEFNSqa7LVu2bNWqlfaYW3Ls2bNnYmKiw7UQ
eyfJ10lBtikyZCxLrVq1AgICTI83oXGCgoL8/f3NpvpJZPDgwaZnoeBu4Kek
uOnSYVtGZ+Gz+Pn5ObwRUkLClbBNVKCIZcuWzZAhg0J78ufP75sMDAQcsmDB
gjjy8fHx1iwFQ2nFihWM6GHDhjG08W13796tZdaFdzZs2MBoLVOmjF2xZEnJ
CoFSZc2a1ZStUWCKLdZSSRZ1Om/ePIujm1EcGhqqfRTbZsi0zOjRo4sUKWLa
jPB2mD/aW31Mk4AL1qm149WrV+h8/KPp06dDS5R4M/yO4sWLW7uLBPFQbhNQ
QyNDpi8gYF8k33ioPeDT3RgyHlndunXpTY2E6tOnT0OGDDE9gswxiFVXhWMI
YAQZGosWLRLDUBwApcR/Hjx4kNGhBJCLc1ChDeJPfoJHSV1oXpwjzG5ERIQp
GRCxys2bN3fs4ETt0M+QHROtpOQTDxDdyMhId1gJSi3RMjY1wwU1KVlWUZso
fO3TufRsv3799OwNEbE3jA4zG2eUPtdyHjJaF+tWs2ZNnI6EhITZs2eXK1eO
n6iD1cU5TorwMCImTJhQsmRJa7emOmbLTDnAuHHjYO8yCFkirUD7VJ4DQNXg
9Xfo0EEc/7Vq1SpGlr0BSDBqGxu+nAGMDkaTZkEb4Cm3b99+3759Nli9xjlk
7XDNOrVdQKGdP3/+xo0bRq0paxQ8MXGEWbTr9H53Y8hiQ2iFChU0+lxYKFwS
/Qu1NC+kwtReCyOYJ08e5bgn6A2+jHLOP8PTy8tLmUZD8gVLMU0WSnz69Gm+
Ul+GLo66sve0VQegnyE7Jlq4AIGBgQxJCkAd796964wNBdqRWqJlbGpOEtQL
Fy4UK1ZM+9V427dvHzp0qJ51gf3795OjWRCygfpc463T5Cguh2WArFmzxlqU
+KVLl/Lnz68ELUPacVJat27twEkX1mCRA2gMX5SQSHU4jyEzlmfNmoV3qcww
xMbGQlq0B/uJRHCE7T18XidEEHL16tXFzBKqBh/cxtKbsQzZZevUqQvtgofD
Yi/dcjeGnJS8P8XX1zcuLk7Ly9j0du3a6V812LVrV9myZU1FF8OK02caJ4kB
paHgEseOHfvpp59mzpyp7D6DKkAgedninWUWcfjw4Vy5csXExJg+JB3DaaTY
pDZp0iQ9hzDbK1qI6+DBg5VtTe/fv4fFpfp6caqIlrGpOUlQYXpws4EDB2oh
veQ4cuRIPWcxkcKQIUM6depkyjCN1ecaGbJGiFVahavTet7e3lOnTn327Nm6
dev0RxBZ5ADawxclJFIdzmPIYr2pSZMmQn+KE8NsH02sBh5oRESEiw9YFptf
lCNxoPT8aeOKJWMZssvWqVMXTl28EJoZq2Ts1lE9QP6hcx07dkwxQFHMnoWH
h+u8gIOMyE59hj/01cfHR3h/9+/fr1KlCvL28OHDyMjIGzduwHl4IhZk9+3b
V7Ro0e+++057pnQovMV0DvnBgwdQFLNrnQ0BWTjjjhJrgNIEBga2atUqLBmw
qfbt22vpUGfD9aJlbGpOFVS0d6VKlWyEeymAbDds2FDPdVeUyt/f3+wsNWP1
uYEMWUS25M6d+9SpU0nJATOIdKZMmTBk+IAbN27UvwxkkQPIIGSJNATnERWx
3jpjxgwx0OC69evXx6O3KwBp165d0dHRrtwtLoKQTZk8uiJLliw2eIKxDNll
69SpCycJHmZo6tSpTZs29fT0TJcuXbly5YKCgjSGvjsb2IvatWtTcduvYU1a
t24tjp7WA8xcrVq11CvgpD9kyJBu3bpNnDgxODh48+bN5cuXHzVq1OLFi//6
6y/oCvSvb9++U6ZMoRh2HZIggMFt3Lgxdnz+/PmkP3r0aC38xM0hbgxRB9vT
ku5wiZiLRcvY1JwqqLzJT0JCQlLspgsXLtSoUcPhiBHSHzNmzPDhw80MnLH6
3ECGLPY2UjYkZ+bMmbTwunXrWrRo0blzZ5pLHUDlACxyAI1nqEpIuAOcx5BJ
Gf9U0Z+JiYleXl5z587Ff1y/fr2WAX779m3Mq4ujC6BYjRo1Uu4kopzDhg3z
8PC4dOmStZ8Yy5Bdtk6dunDqHLLbAjLQsmVL22siDx48wI7oPBmGLDB2NiIw
GYYPHz5ULJfZyg4/t2utxwwkC9O4f/++O7DHfwlcJlrGpuYCQYXs0TIpns+w
devWXr16OaxmSb9Zs2Zqgm2sPjeQIV+8eBG7Fh0d/eLFi1u3bin2jioYxWDV
HKBw4cI4ONo5gIRE6gIZ/vLLL3ft2vXzzz+neHOEXbhz546vry+Of1JyPNjI
kSOzZMmyOxlbtmzRksK7d++MvXJOC96+fVuvXr2xY8eKpUO0K+3To0cPiwrt
8ePHx44dQ737+/sbxZBduU6dinCe4LkzECpMEj6XjSXXe/fuLVy4UI+RIvER
I0ZERUW5MghBInXhGtEyNjWXCeqFCxfat29/48YNG+/Ex8crEeb24ubNm4GB
geSi/soofU5bnTp16qeffurevXu/fv3000s4qulJyM6AmgNky5aNRtbOASQk
UhfHjx8vU6ZMwYIFce7mzZtnYMooBBznhg0bTps2DYXAiGjSpEm3bt3GjBnj
zmFIYoeIuBsF5R8aGlq5cmVxi5MZqOCKFSu8vLw8PT1Llizp8FWeanyW69Rm
cJ7guTkgAzt27DBQWtQ4dOjQ9u3bJT3+t8EFomUsXCmoV65cWbVqlTPW90mT
lG0c2m+IPid9Pz8/bA06k6R0NpoIQnb2jZBplANISLgM7969S0xMFBOwf/31
18OHD1P9jP0UAR9u27ZtRETE0KFD+/TpY0hElr2Q69QSEhISnwfcTZ9jkaGs
M2bMcIF7khY5gISEhA2gx9Bmro/xkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQSEWcOHEiIiJi+PDhJ0+eNPvq77//jo+PDwsL
Gz169N27d1OleO6DQ4cOhYaGJiQk/Pe//3VqRq9evVqyZElISMjcuXM/fPjg
1LycBHUTIUupUhKdMKuI/lpIKdIOsyb6559/nN1oaQWGi6WBePTo0fjx46Oi
ot6+fevUjKj1zp07w8PDEfI7d+44NS/n4cqVK1OnTh02bNi+fftSuywSEv8K
oD/nzJnj5+d37949s68Yj+XKlVu6dCnmRjxBoaFkcubMefjwYbOXeefq1atB
QUHFihW7f/++K4ruxkAhT5w4MWvWrLt27XJqRp8+fYJB+fj4dOrU6c8//3Rq
Xk7CokWLvL29kRw8r+7du1euXDk6OloRubSCy5cvFy9evGHDhoMGDRo4cGCd
OnV69er1xx9/6ElTSpFGvH//vnnz5hUrVqTN4Q9t2rSpXr06PZLa5Up9OEMs
jcWRI0fy5MkzZMiQv/76y3m5oE+uXbuGeKNq0u4Ezu+//z5v3rzs2bNv2bIl
tcsiIfGvAKojLi6OcYeVMfvqwYMHEyZMgPcqT6DTmGwsKVRZndTHjx9btmzZ
rFmzNDoNZSxovdKlS6OToR9OzejWrVteXl7wTKfm4iQgfgsXLsyVK1e6dOky
ZswYEBAAG0yLs38XL17E+FKFL774omjRopGRkYZMi0kp0oJ3797BkHElaHz8
965du964cSO1C+UWcJJYGgg8Mkg7Zbt9+7ZTM2IEtW3btnHjxmpLl4awcuXK
AgUKmBplCQkJNwG6pVGjRugZi/b64cOHJUuWnDJlio0JQMjzunXrpiVj48aN
kGpnltdx4K3DGfSk8Pfffw8fPhxtduXKFbOv/vrrrwsXLhjFeb7//nsPD4/j
x48bkppjwMxRIwdmgRCV1atX//DDD7Bii2Lz6tWr69evG1FGTSCvly9fOvDD
y5cvI9K0gLGr2P8qKXJ40MGQx40b9+TJE5eFEPzLxdJY7Nu3L3v27KaLlQoS
ExOfPXtmSC6PHz/29fWNiIhQO+CnTp3Cd5g6ders2bOdTdT1gH7s0aNHzZo1
X79+ndplkZCQMMfdu3e9vb1nzpxpkcwkJCTky5fPdogURrBcuXI1atQICgqa
OHEips2uApDv8+fPMaNmP0R1GDhxfePGje7du1+7dk1nOseOHcuZM+eMGTPM
mos/t23bFhISon+5E20fFhbm5+f39OlTnUk5DPoiNDQ0JibGgdAIhSFbewGn
jMQ3b97s7LgL0SkjR460VyYFBBVxBg/5l0iRnkGnMGTDS2UNUiwNBOS/WrVq
derUUc9v37x5E05oyJTpkSNH8AH37Nmj/mrXrl3Yo1atWuXNmxdX0UYiWB+6
Awu4cuVKZNXFwWBYz4oVK+Iyu3mHSki4DH/++efevXvRxqtWrbJhAhiqDPPJ
kydrd4FJOSoqKjg4GOVg+iuer1mzBsvboEGDb7/91lQJkAUc+ODBgzw8cOBA
3759mzdvTiL/JAM3PMUgZMb4119//eOPP2ospAD2aMuWLU2aNEHFYcfr16/v
4+PTqFGj06dPi28HDx4cHx9vV5rW8Ntvv7Vt21YdaO0AUPgUtWrVqi9evDD7
ChWHmg0PD3cg7JOfrFixon///sOGDYMYBAQEpGL4KPl+8803U6dOdSyMUDBk
xAwpQsjnzZunjofHKnXs2NHZm1OQyfbt2zs8YQUVYfQxVMePH4/rB601Klbk
3yBFOgedYMhHjx5FBY0ZMwbi6hifFKCdaRYUXfXq1V+9eiUe0jJDhgwZOHCg
Iuf/crE0ECiB2bNn58iRAxKr/vbnn39u167d48ePHUiZ32KkRowYgYGg74oW
LWojCPn169f/+c9/rDHkT58+oZ0oyYIFC6DZixcvhtVjOi0GHGoB8oPj07Nn
zz59+gwYMIDiIXW9e/fmycaNGy1205kzZxBLxNuxHCUkPgP88ccfo0aNatq0
qaCaCQkJhQoV+iIZ8E9UnMVf8XLJkiXFOxo97p07d65fvx5CUqJECViKeMjA
jI6OhrFgCFAsaIw3b94oX6FjS5UqxU82bdrEa7du3ULndO/enZdFEDLFtj2X
ay9DFnuQ4cO+vr6QKKUwgGqir1D+0LMiRYroDIoQoBaoKRI0yo5AQrJnz25x
4gKF3Lp165iYGLsSRDzQoh06dBBNgd+UIUMG1LUhpXUAeC7NmjVTkzftoPD4
WefPn6evaSh/f39k3uydU6dO1a5d25Autgg8xFq1alkbXFpw6dIlSCatgQgx
QOC0ERERRhHOz1uK9A86fOTAwEBIMkwS/cOHxo0bw7odLhLyjEsCV1H48PXr
1728vObMmWM6Y/AvF0sDce3aNczc0KFD1bOjSMWsWbMgunatEtJN69atq1ix
4q+//irSL1y4sO0gZBsMmTIsWrRo7ty5pvMAvI9TWadOHcf8F3oBpRcXFzdp
0qS8efNiu+nrlStXHjx40NosE996enrKIGSJfzPw+vETixcvrihelEZsbGyB
AgUYRJUqVbKo+c+ePZs/f35BpMPCwlLMBYUZGRlJUtu3b/fw8MDXFs/xiGfO
nPkhGc2ToeglEYTcsGFDzER8fDwqCLd6//79wrsXQciTJ0+2vfBkF0PGjuP7
Z8qUKTQ01JQbK6CJvvrqK4x73bp1Ddmgjb7CoOixraagfSZMmED5e/ToYdEq
7du3r1q1ag8ePNCYIG2LsUBJCrUPEAy678SJE4YU2F7Q6ZR/9+7dehLBviid
iwGCuVWuXNnM6DAEcBsRBmcYdzE9OHz4cD276RkmptNcDCusnprqO4DPXor0
DzpqBKlQyBViWbp0aZSGw4vRFy9epEEgJOJPCBIEnjQTExNNX/s3i6Wx+OGH
HwoWLIgFUS8hgadPn9asWdN2/IMZzpw5g4TPmzdP2CPsGt0HF7VhnmwwZIwy
Sgl5MOsLiDd+k8XYZu3ActWrVw/DHR0dbeM1EYRco0YNGYQskXbBSGQc6YmJ
Reuin2GSZs937tyZLVu2dOnS4cxaHOZv375FjWNJu3btqjEvjG+HDh0sBoBh
cGHpJKjkJYKQ06dP36ZNmyNHjpjpChGEvHfvXts5amfIL168aN26debMmamv
NUuHXho/fjy6ZcyYMfpnfdE8aKq5c+caEl2GQ4H1HD16dJ8+fQoXLmxxc/27
d++aNWtGFTQWHhZRtmzZJk2aiEVkfjV27FiHw0fp/dWrVzt8OiithHhQGGMP
j1qwYEGWLFnUrPvChQs+Pj6GRL+Y4eTJk76+vufPnzcwzUuXLkFFYDg6Iwbd
X4p0ajxjB50AjYYj/+WXXzocmRwTE4M2O3v2rPgTVwJlaHEr2b9TLA0ETQpv
b9GixbJly7Jnz26RJfIOagFy+Pz5cy1pUrtBgwblz5+f+oonhw4dwuWxbZ5s
MOSoqCgsr3qL3MePHyk5o0mjf4dk4r6ZzWMzDOvXr0/6a9asMX0uNt0wvoSp
FUHIw4YNc5++k5CwF0ePHq1du7ZR229NgQ1q164dbJDRZI2TMNYaN248cuRI
jWniGhcqVMgi5capx0aYbqGCtKBd9+zZw0NUd//+/ZWTKEQQctGiRS3OAJhC
I0Omsr1796ay48aNsz2FsmvXrly5csXGxtpOUAuoWunSpQ3Zov7mzZteyaBH
sJ45cuSYP3++RQ6ARShfvrzGKDuky3TTFmKAMHTu3NmxKayXL19CJGzskrMN
6EelSpWUeTbHcPz4cRy0/fv3K0/gIRkyZFCHDSAS7du3Nw0ENQSYG4xO27Zt
9Xi1eHN4mpMmTVLKdu3aNSwyD/WUNk1IkU6Np3/QiRPd8aYVPoxegv8XKVLE
sYPZhUjARsQ0BZQmICAAJ8XisSH/QrE0EPQdTjoWgYJR2ipVqqCRLFo3fEPk
JC4uTkuyaDbSVGZ+kHMkJEXzZIMhI0jTp08/d+6c2XO6aejQoRD7AwcOaCnY
kSNH/P39M2bMOGbMGMV6WmTIDx48qFWrFg/btGkjYqdFEPKmTZu0ZCQh4Z5w
HkNOSp7ZYHAVLlzY2rwfNq579+7r16/Xkhp6AyuJHbl58+bp06dNWauYHixR
ooSydCuCkEuWLIm94HNoaKiYosFJh2KJIGSsEjZ97dq16glwBVoYMrnPnTsX
moRhSjHAlZJTEqqgpco2INawqIX+MzFw/FFrLVq0EAc0oaXR1dZWxzAN3t7e
Gjdf0NS5c+fevn27+DMxMRFhWLx48dOnT+l0e+cWdDLkbdu2UXKdJ36sW7fO
09NTMXx0/ZQpU+BvStiPKZYvX16qVCljD/wXBw6Tsp5EGI/Y3+DgYIVknjx5
EseNIePw0kZakSI9Gs+QQUebBwUFVa1aVVFWNBENVa1aNWWfnV3g59WrVxdB
yPRs8+bNQ0JCbMSv/qvE0kDQvPPmzaPpTp06lfQ/e4RkWoz2QUKQk65du2o5
3hBpxGHs3bu3cAT4Sbt27TBPDCIk3Jqs2t6pZxE044gRI9TTvzYgIqJNq6lm
yKIpvvjii8aNGyv+gghCvnz5Ms6yRfUoIeH+cCpDvnLlioeHhw2PFS0N59G4
cwRa26xZM7FbBz5sOo2DOuIrrLPi54ogZHQUT7ChQ4YMoZoYoGXLlv3yyy/C
Zx89evTt27cjIiJsnHKshSELc58lSxbFiNsAOj8wMFD/Mfhi6dnaQXba8ejR
o3r16sHtTfc4Y+ly5MhhsdcE8+nVq5eWWR1Mnq+vryBCNPLIkSOzZctGY+7e
vduBW5b0MGRkYODAgXXr1tXZ8shqeHi4YgUoEkYK02ZRhM6dO4eN0CIV2rFz
586CBQuqZ4fsAuMFsVcuccNuTp48GXFy+GzVNCRFejSeUYPuu+++g/koicAf
vLy8HL53DDWLmC1cuBD3DaW3Y8cO23zy3yOWBgLWClHPnz+/6WEgV69epdb4
I+oGp3ORE+i0lrMjSLxrMoRrEB8fDyOFyt67d2/SpEnW3LEUGTKlwtitXr0a
KouQUCSGG54UVFb7LlcRAsRPlNU3NUMWTh/vzJ49W0g1WaMnK1asSPXpRLN4
eAmJtAKH7QUDZ86cOf369WvQoMHWrVstmgzoZYUKFTJkyGBxqUUowODgYI0r
aLyPo4phHTt2LCbGNMf79+8XK1YsMjJSeShs2YIFC8QTzHTlypWhxPPmzWM4
w5emTZvGMMfa2r50IEWGTOEHDx6MctA4BfTgwQNx+pyWKtvAoUOH8uXLZ+16
XypIp4hdgbD3uXPnmlE4FCYpCN7o5+dnFi+KZvbx8UHpqWeiRMhclSpVtBwH
QTVjYmJQsLQ2GYkT8Lp16zZmzBgHgkj1MOTnz58jAJTc2pTjhQsX2rVrhzeX
M2fO7t27P3z40PRbGB3tSRtSI0wkDhdWLDY2Fqesb9++1tYgnjx5ghCOGzfO
qBkw0qHpSNNawCpNhGEqXLhwxowZEUgzSeMzxRZL+XTxsGHDoqKiGBqMApSA
mBkzxWcpRXoYsiGDLimZCsIlYIN00JIlS9AwK1asUKtBjTIJJS5UqFD//v0R
SC33r6V1sdSemhZobGTSFDEDpnlhSvCO6WuLUTfirFGNId/Xrl3Duxk/fjzE
GNmAjdeoUWPUqFE//fSTtZ/YYMiIIiYSuWKU4UiePHkSuj5r1iw0FVYvffr0
Gtdtk5INnGC/ytVaaoYsWDRP8NGUH1LyqlWrUoVly5bJUGSJNArH7AUCD/lE
IfMhNDQUT9lMsQgo7ufSpUvV3+7fvx+lipOrPV9GKD6pehoQ0oIuMt3yzJsY
X1MTgD4x257w5s2bFGcUU2TIt2/fLlq0KHVUX5HgVGBEqLIy32KKT58+YbBQ
g5kzZ8aOYK/5bHo4FYodsiFuPcPcWIyjg1LevHnTomZbuHChh4eH9nAFNGpi
YqJYbUTfIiqORRXqYci3bt0qUKAAQmvx2z179uTNmxcND9PAVtKbdevWNSVv
WJkNGzYo/YsrhEjATO7evWuj04X8p3iioHbQhq1atSJNi0QI5ysgIIDC58mT
RxwUY3rqi3jhm2++UY7eRQzOnDkDATh37pw6pvdzlSI9DNmoQZeUrKDu3Lmz
fft2tJZFz9pemdSONC2W9qZmG9obGZJsUWZ4jgxbzA45IXGLts8iGCboE0UY
8P5smydrDFkcqVSsWDFTci5ucsERw1ply5bNdCdFiqXq168fLYOhF8KsZshY
0lq1auGw0Gumv6X7bEQwSki4PxyzF7jMaKGPyWjdujWayuKmdQYI3zK41Fu/
MXCVKlUKDw932LtEvW/ZsuXq1avioltSc8ZgTJEhoxMyZcpkLRLVSRDb+dF1
6iOzaGcUF64HxldQCBTphAkT8GKUiY7z5887fGVGUnKVc+fO7Yzt8LahhyEf
OnSIMltcyKZZypUrRxOJAFrEKS4urkSJEtAh8QJ2itZ24AoAWrhr164aZ0q1
gHQqV67cpUsXdd9BTjp37ty8eXNlOzz1atSoUWBgoCBCCMaqVatSPLxF4DOW
IocZsisHnfNkMikti6WxqTm1kZOSuTo01cC5ejNYZMhY5EGDBuXIkUN9ug4V
admyJdbKy8tLe+AKhacKGPEBAwYIY61myOLYClyMgwcP6q6WhIQbwQF7gRZa
vny5WGq8efNm4cKFrYV3ojA7derE4Jo+fbopQ2aIoU5r1KhhMV/e1LJWCFOC
l0ZHR2OVsE3anWK7YJshi9tvqWDJkiUdvqvIIl69erV48WIRFqKe6kFT9e3b
t3z58uoGvH//flBQkNkh7XQEhoAERSjalClTzpw543DZaPlcuXJ9++23Dqfg
GPQw5B07dsDH1BeK4cTRyKZBoQIJCQmIqJgawuAuWbLEgck6uik4OBiba3GF
xSIw/fQOv6Ko6hyxcaVLl7Z4iyuGEstoNpH75MmTNm3aXLx4Ufx21KhRGs8m
/YylyGGG7LJB51SZTErLYmlgas5u5KT/7b/r0aOHkw7isMiQ165dCwfu06eP
evqd92vWrIm1qlevnmjDQ4cOhYaGUmXbHD4mJiZDhgx4IsIuqxnyjRs3ChQo
4O3tbez2TwkJlwEdjoO8XYWpU6eWKVNm9erV6q8wYRZ5LxpDrCvxAQWSPn36
hQsXWlQjyr4A06ud4HtDhw5lQKkDzCgkNmVcMho0aDBs2DAb08Jv3rxZtGjR
yJEjJ06c6LytHLYZMhXs3r27ONFOz72xaojLTbA7Fk+1It+OHTtWrlxZfd7m
xo0b161bp+6OxMREmp1CXr9+PTw83MbmxBRx+PBhfBPtkWz2gkJSd7VAkmO5
cuUovPorzIRt5YySh4+JKFBT4OJhUtUeGe3Pc4iBuPLMsZ0mYvqlUKFCKR4q
qAB5mz9/fvbs2S2e88AAwQypD9OmkCEhIRbvrtq0adPKlSuRBwRj27ZtGovx
GUiRgRpPwGWDzqkymZRmxdLY1JzdyEnJU+tVqlRp3769yxjy06dP/f39s2TJ
Eh8fb7E8SK/phBUeDdYza9as1kLrBUQkoXIPrJoh0/7QcpxEPQpBQiK1IGKQ
4Jy1VRADKiAgQP2V4phbA9aEkeLl5WUxxCIp2aZA8Ex3zkL2sBTZsmWDsZgZ
FBhvu3btVq1aJdQsqqlYsWIWt/m4Eiky5K5du1JBypmiGqS+KCLt273R4Vgx
i5uOaUYUb9WqVdXrpDyxeL4QD8PCwrCJK1as0HgYpjWI82nXrl2rJxEbgE5Q
O7VAVq9eHcnx8/NTf4UcWqQoCviWMh85csTsOXbQ2v5KyEBsbOwvv/wyc+ZM
x2KBxIZunEG7bjmJiory9PRUAlZNgReASNCPZlSEP589e2ax+oyjb775BqnA
3Gvf15bWpcgZGs9lg86pMpmUZsXS2NSc3chJ/zvlGKFy0q3ZaobM58yZM5cu
Xdri6gB6lR7MmzevqQ0Sx/R16tTJxql0tHxERISg1nw2Y8gY7oYNG+bKlUun
QpCQcEPo2bdy4sSJ3Llz2xhcwqYoO2fhkAwxnE2LmodBXbx4cVSKiApDfVWr
Vs3w6AV7YZshU4sRI0agOrScaY9DMXz4cO2X7dq4Wlcw8woVKmgPvUazLVq0
aO/evRgyx45dVYAmpN/NNmW4AHqiLCgtOtyuUBxanhabO3euerFDI2jzkJAQ
HD3tnS6uscYXsLhSLCIbR44cqT2yUWz8xzVbsmSJ/njIz0CKHNZ4qTvoBPTL
ZNLnKJbGpmZIIycl245KlSp169bNNXPIIk4eY4TNtWiRscIZM2bs2LGj6Uyv
2MWDu2TR9zHNKygoCHa9b98+cWWPYMiYeHwTXE6aK0Vv4tKlS1OnTg0ODt6z
Z4/91ZWQSAXo3LcC3RXnajI61J6yOJSYd3bs2MHn0aNH83nKlCkWfep//vmH
QapMa9y/f79EiRJNmzY1NnrBXqS4U2/Dhg0ZMmRQIrtsYOfOnQsWLNCowMUt
J9au1hVXI/n4+Ni1i2Tjxo3w+bVr1+o8cyMuLg5uY3thzhnQw5BhKZTZrtP1
b968SSOPGzfOYQmkmwYMGGDjFCw1nj9//tVXX1m7ZhdhQCT69u2rfWoLa8g4
xSpZPIHBAaR1KdITh5yKg05Av0wmfY5iaWxqhjRyUvKJo2XKlLFxwqROmDFk
JeRPOZbNFNjfVq1a5cyZU72Z7tixY6Z3VlrDhw8foMGIQc+ePakXGUH+UchV
qlRhFGuxaxjThQsXZs+eXX0DqYSEe8Jhe4FWLF++PIpRqFlkXm3sXr16FRAQ
wOiDHHbq1AkHVuNubrGxxdvb2+IMqiuRIkOG0sPk8cEtBsiZvqYOq8ZTWLFi
Rf/+/fkKT3zWrFm7d+8WakpcqVCtWjXcCjR/+/btTffI8GH27Nn58+e3624+
yHylSpX0X+e3evXqvHnznj9/Xmc69kIPQ/71118ps11XTt+9e9ff319PoKw4
y0XtPTFkQkJC6PSBAwcuXbp0woQJimN47tw5ytmjRw9oFd9ijEyDRUmH1Fq0
aKHloi6lDF27diUdo472SutS5LDGS91BJ6BfJpM+R7FUp/bixQv0ar58+apX
r67M3vMaJD/FG7cNaeSk5PBd7IJyiYbhMGPI4ljydOnSRUdHq1+GGOfIkYPO
VU9PiWhJi+FDalAXxmy5cuVgyPgR1NGu2jHqxUV72n8iIZGKcNheJCQk4Awy
4hiYaMiwsDD11IrY45wpU6aiRYtCj6dPn54iPaYkY8aMqVy5so+Pz+nTp+0t
leFIkSHjO8+cOTN9+vSml6Wa4cGDB3xrRqFptN69e4srAvlz1apVGTJkWLRo
kfhWBCGj3oUlio+PRymZbhuJjY3FZqkDa21g+fLlXbp00W7FLIL6QuY13hVl
LPQwZEpLmdWhkjZw/fp1ul7PVh1MMykol8kKYB0wRvQFJcGgt23b1vSI3aio
KMSAISDughw8eHC3bt2UVVGx2K3RlgnwW9wrAzfEpXUp0hNXllqDToF+mUz6
HMXSYmoUhiKJy7jFE1rPy8vLdNu4RRjSyEnJc7NICzKjMx1rUMchx8TEYG1n
zZplVsHnz5/XrFmzSpUq1obbihUrsOYagx/UO/U0QhytHBAQYEjEkYSEC+Cw
vYCoMKbEGGGQCtVq9s6VK1dQszib2bJls+tinffv3y9evNjb23vLli1OOkxS
I7TcOo3GwECgmjD6ZtMycOZNmzZ1795dOcBTAA2GHsOb/vXXX8UTFCltRXco
f6JdlRUxnvOn6TbtGzduQKHh1RorQo6Yho0bN2p83xpEbHnLli2NmpPUDj0M
GRtKmVu1aqV9tzUOGkxAD7e5fft2kSJFsD7KE7GrBQg5EdRCib0XfyqnJYgd
VcWLFzfdd7Ny5Ur6XfucJDlCEoy69fUzkCI9DDm1Bp0C/TKZ9DmKpcXULl68
6OHhoSwbUeypU6eWLl06xUwNaeSk5IPXIOTa78SxF2qGjFNQq1YtKKjpcSt0
YlBQkL+/v7XeoaYTJkzAfvXo0UPLpsLHjx9XqFABsz5p0iS7AkiEz2ItVkdC
wg3hsL3ADcTAMaamT58+ceJEi1G4Bw4cgEUXKFAA59TelSYxLYCKS92ZZC0M
OSm5tPPmzYPE+vj4YD62bt0Ktx87dmyDBg0mT56s3t4iLsVu0qSJCHUTQd1K
ZKAIQjYNFMTIZsmS5bvvvlNSePv2bd26dfv27atxGwhqENWkEHKHIUquvgIm
KTmSJDg4eOjQobTA6NGjjVpZVqCHIVPaGTNm0DvaJy03bNggDrN1IDuBnTt3
YiJN23zXrl1Zs2ZdtGiRSFacv6REKopoz4EDB4o/sVYdOnQoUaKEaZnPnj3L
gNqxY4fGMsAH+vXrl2KQvEY4W4r4k7GGVI8aNWr8+PF0meHbEPQw5NQadAr0
y2TS5yiWFlOLiYnJly8fBRN/Ul9Y/dKlS1NsPUMaWcQ8KE6HKYzSkxbPQxYT
4DVr1oSfJyQkzJ49u1y5cv3797cWPP/+/XvGGsXo06dP4cKFrR1LlZRMjOvU
qYON+8IEGTNmLFasmOndkWYwDd2BUWPQZRCyRBqCHnuBqjx//jxjypoygSUy
hG0fGafg7t270dHRysXQpAm3ZAwy+hwom1HQyJAF3rx5g74KCwtDG6D9+GzN
BIijrpTNEWJ3MHZHuPBih6OyJRlli4ZBt5hORPPDBQsW4MtrPN3o4cOHeDT6
F7X379+PSjQLHxUH2fn5+W3evBlViUhgYek+YwPw9DBkcOHCBUqu8b4tKBDc
RrvFV4N2wPQ0btxYkQGeTJgwIU+ePMppS1htuhWLLP68cuVK/vz5lQPQ6Fms
GymYskQ+41iJ6CYtxdi+fTu22Kjd9E6VItzMcePG1ahR49q1a0gOsgSlMXwn
gh6Nl1qDTkC/TCZ9pmKpTk3ozIoVK4qtH3REQEAAPDDFmWFDGjkp2XCgA818
QGP1pLVbpxlH8fHxY8aMoaPXrFljg4FjsHolg+47fPhwjhw55s+fb6DSVofu
IFe2D82QkHAr4GK3atVKrKYZDpiexqMglZNqlH0NCkOeM2eOM8qmEXYxZO2A
5uXOnVscA5KUPAfi5eWFOsX6rF+//v/8n/9Tr149GkQ45ngNX375ZY8ePczU
+61bt3x9fePi4rTkCDNs166dzhk57A7mo1OnTmaxCpDPwoUL01+iwNevX+/d
u7cye2MU3r59GxgYqASi2AvKjA+S4j4dATqiQYMG1MuxvJKSe61SpUqmsZHi
LjPT4FvsV758+cjlWDKgKN7e3sq1Jpi5XLlyqW/Khqv4+/trOVGBHEeOHAmp
M8rqOU+KKOHixYtpDXF7O39u3bp1xIgRhqsmnRrP9YNOgX6ZTPocxdJiarDH
6tWriyDkO3fuNG/ePCQkRMvR+oY0clLytHzZsmXNIjqM1ZPWGLJGPH/+vE2b
Ni1atBBjQewNxz/VeL9hirAYumPtwEAJCbeFmwQFoXJN51sYX7DEkiVL2lj3
cQGcxJBR2thZcUEVPAENnyVLlt3JoB2EzRLLmrgYoaGhlStXVh/vj5qdNGlS
x44dUwzmFNNE4eHhOoO66QuMoNl5QWLnToqneRgCneWHXUMPMEwpvnnkyBF0
u/adR2qsXr26Vq1aZqeXxMTE+Pj4iN2X9+/fr1KlCr7Pw4cPIyMjaVusM8Im
2BdMIyAggIZVB05Tqvr161vcsa5+k1ocPnzY4VqYwqlS9OTJE5oCJuOCG4L0
aDzXDzoF+mUy6XMUS4upXblyxdPTc+HChevWrWvUqNGOHTs09oIhjYxsICHj
xo0zlTTD9aQehoydxbzSlaYLHMuXL8+RI4dRF39YDN0ZOnSom/ANCYm0Bajg
smXLYIZQxEOHDvXq1Qsyc+zYsdQtlZMYMkoDq4QqnjZtGkyYKjdp0qRbt25j
xowRC7jw4bZt20ZERKBS+vTpowSfmIHntWvXTjHw4N27d61bt1amrB0Dmo3i
DR8+3GxdQFwdRTFs3NjrJvjrr79GjRoVEhJiW0vTO/Pnz+/fv7/Dq8B0Yt26
ddV3v9IRQ4YMoaMnTpyIqOMilS9fniItXryYvMgXHtKiRYtZs2YFBQVRBmuL
wnv37q1Tp06K59leuHChRo0aRq3yO1WKRNyRch+uO8OVg06BfplM+kzF0mJq
UOJChQrRXLGxsdp9LkMaGWAvcEPMimS4nnSYIYsYaT8/P7PZJ1wkHCVD7rG1
GLqTP3/+TZs26UxZQuLfDDxNTA8q+uzZs0YdkaQHTmLIAhimxMREUU108sOH
D81C6e7fv5/iZhbK1rJlS9txlQ8ePKhfv/7t27f1lPbAgQPNmjVT2zW6rEqV
Kh07djQtPLYmda8LtwboDc1le56EivTr18/hIwjouG+++WbcuHHWQowgKvS1
EoJuxihoN0yVbQ4vbm+Hz9h+bevWrXiaRo0jp0rR4cOHc+XKZbaLh45wByWg
hssGnQKdMpn0+Yqlganpb+Sk5ANL8SbU+x0M15N65pCh6xYty/Pnz2/evKl/
mtdi6I64uU+E7uhMX0JCwh2gbLhgUF+6dMkNV4jw1qOjo4cNG2ZD02LaFi5c
qDEm3CJQm4GBgRbD88SsYN26dZW5kY8fP86cOdPiAYDuAGrRvn17G9E7WNt5
8+aZHmalHSKAdsCAAeKYa+eB1iYXfEkbk67x8fEGOndOlSIGWtWqVU3nkGGY
AwcONDya3RC4ZtCZQo9MJn3WYmlgajobOSnZjxgxYkRUVJRa9RmoJx8/fow9
goT7+/s7HIfsbKhDd0SYugjdSe3SSUhIGAB87RYtWhRMRtu2bd1zlwEKdseO
HerrRI0CVn7VqlU2LkJ6/vx53759e/XqtWTJkvHjx0Nsdu/e7Z70WODKlSvU
yCj2YgpMALzI2TxEgFwWLVrk+ks3HEOKUnTq1KnGjRt/88038+fPDw4OHj16
tJaI8dSCswedsZBi6RocOnRo+/bt1lSfIXoS12PFihVeXl6enp4lS5Z0Wwm0
HbqT2qWTkJCQcClwH27evOn6OyAkPhtg/WFW9+/fd8PFGgkJQ/Cv0pO2Q3ck
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCScihMnTkRERAwfPvzk
yZNmX/3999/x8fFhYWGjR4++e/duqhTPfXDo0KHQ0NCEhIT//ve/Ts3o1atX
S5YsCQkJmTt37ocPH5yal5OgbiJkKVVKohNmFdFfCylFdsHw9v88YNYs//zz
j7PFyS64TMgvXbo0derU4ODgPXv2ODUj5+H169dLly4dOXJkmh6nEhJpCOil
OXPm+Pn53bt3z+yrK1eulCtXjiGJUhVPHj16FB4enjNnzsOHD5u9zDtXr14N
CgoqVqzY/fv3XVF0NwbWeeLEiVmzZt21a5dTM/r06RPGxcfHp1OnTn/++adT
83ISFi1a5O3tjeTgeXXv3r1y5crR0dGKyKUVXL58uXjx4g0bNhw0aNDAgQPr
1KnTq1evP/74Q0+aUoq0wxnt/xng/fv3zZs3r1ixIq0xbNiwNm3aVK9enbZK
7XL9/3CZkP/+++8LFy7Mnj17TEyMUzNyHhinP/74Y6lSpbp27frXX3+ldnEk
JD5/QEXi4uLmzZuHLjX76sGDBxMmTID3Kk+g02gzLClUWZ3Ux48fW7Zs2axZ
M+neJiW3XunSpaEcqDWnZnTr1i0vLy94plNzcRIQP8xWrly50qVLlzFjxoCA
AAylW81xacTFixfh+VThiy++KFq0aGRk5Nu3b/UnK6VII5zU/mkd7969gyHD
P2mWnDlzwqxu3LiR2oUyh8uEfPXq1Z6enm7lINgLuq9gwYJLly5N7YJISEiY
AxbdqFGjtm3bWlRlDx8+LFmy5JQpU9LcBKAz8Pfffw8fPrxAgQJXrlxxakbf
f/+9h4fH8ePHnZqLk4CoYLZ++OEHWHGaFhvM7rRp0/766y9jF/elFGmEk9o/
rQOGPG7cuCdPnrhzs7hGyMmlX79++OCvXr1yXi7Oxrfffss4VUc5SkhIpDru
3r3r7e09c+ZMi2QmISEhX758+/bts5HChw8f1q1bNy0ZGzdu/Pjxo9MKqwu/
//77rVu3dCZy7NixnDlzzpgxw6y5sOMXLlwwZMIEYhkWFubn5/f06VP9qTmM
P//8kxo5sPCnMGRrL2DOrl+/rq90doC8Xr586cAPBUNzBg/590hRklu2v0UY
2Pha4LA6Uhiy4UUyFi4Q8hcvXlStWnXIkCFqIUHs58+fP3XqVEQIK+a2rjrj
dNSoUeXLl3/27Flql0VC4jMHrCYqKio4ODgoKOj27dumz9esWRMSEtKgQQM8
VlN1sWvXLjjwwYMHeXjgwIG+ffs2b96cRP5JRmRkZIpByKj6cuXK1ahRg0wn
TpyIArerzOTy/PlzjIXZD1GkBoZ23Lhxo3v37teuXdOZztu3b+vXr49aRjmb
PqcW27Zto4Udi5Okg1asWNG/f/9hw4Zh/gICAlI3fJS+CA0NjYmJccCyCIaM
mCFFJDJv3jyzePj379/zfPPmzc42W6JTRo4caa9MCsDQJk+evHfv3vHjxyPY
WHyjYkX+JVLkPu3PD5ctW1amTJk8efKQjvJ8x44dX3/9tQgw09n4dkGPOhIM
+ejRoyjnMWPGMI4ca15nw0lCjmvAb5HwgQMHTpo0ycPDw2IQ8t27d/v06dO+
ffuSJUvywYafBVc/dOgQdBpNxQcXjxda6T//+U+XLl3S6GYBCQnDwVhA7UMS
Vq1aZWMqAE0CfcVGmHJd29i5c+f69eshJCVKlICliIdYh+joaBgLnHPEiBGM
xzdv3ihfYXpKlSrFTzZt2sRrMNWiRYuivXlZBCE3bdrUNlOFIWNlfvzxR42F
FIAmbdmypUmTJqg4Pz8/dKmPj0+jRo1Onz4tvh08eHB8fLxdaVrDb7/91rZt
W/VWRMcACcmePbt69zRKeObMmeHh4fbqOixF7969O3ToIPoFqciQIcPixYsN
Ka0DoPzffPPN1KlTHd45QuHxs86fP0+b0FD+/v4JCQmmL+ATdezY0fbahH4g
k5hIhydnLl26BMlEShkIDBBENCIiwihD9tlLUZKbtb+YVIcvPXz4UDxBrbVu
3ZpkFarmcOPbBZ3qCN0YGBgISaZhqQIfGjduTJrGFtIQGC7kOE1Q7uXLl9Ob
1J1mxHzYCOTAhqLK8BmtMWR6oVWrVhMmTPj+++/xNTp37lyhQgV4sl2lUkAu
lK1nz56MRDKFww8YMAB+zhMqq5hdU4gg5CVLljiWo4TEZwA08KhRo6CaYjIW
tlCoUKEvklGsWDHTOQ1T8DL6XLxjurfOGrAjkZGRqMrt27ejN37++Wfx/NGj
R6ijD8longyF8Yog5IYNG86ZMwc6ij7Bod6/f//jx4+T/heEDEW3PddnL0NG
jcDk4cO+vr5RUVGmeoNqtmvXDvcBelakSBH9QRFJyc2CsiJBQyYAaR/UaaZM
mXr06KFW769fv8bm2rWxmradNWuWp6fnr7/+Kp7ExsbSfSdOnNBfWscAJ2nW
rJnZzI9dwHYr3QrNxl5UrlzZjCmdOnWqdu3ahnSxReBX1qpVy9rg0gKGiRgI
AgyrvHnzmlF9x/BvkCJ3a/93796h6KBDShgYjQM5MWtnBxrfLuhXR/Q1pkGh
fGjp0qVLh4aGultYsuFCjkppmAzh0QjFUr16dZKy9hPbDPnMmTN9+/Y11Ut0
Cq6lt7e3w/4LYo+ILl269KuvvsJ2Y+gxyrt27cLdszjh8O233+bLly8Vx6mE
RKoDz5dRULx4cYUPMGAxYQUKFGAQVapUyeIMwNmzZ/Pnzy+IdFhYmMa80Esd
OnSoU6eOet/3gwcPKAPKWWG8Igg5ffr0bdq0OXLkiNkQFkHI8FXbOdrFkFFu
gwcPRm2i0i361DQRuiVDhgx169Y1ZLkzLi4uICDAkDkWHAo8ndGjR/fp06dw
4cIWt5Dv27evWrVqNLXGNClY2bJlmzRpIpZKUdFjx45NxfBRDC7l3717t4Fp
LliwIEuWLGZpMgRoTITBGfN1pDlkyJDhw4cbeIASNg6GZjHo0S78G6TIDdtf
6DroitB+qEcYGnpPrWTsbXy7YKA6EkCcII1ffvmlW0UmO0PI4ZlZs2ZdtGiR
6EFcePzuoUOH2pAHGwyZkYKh7Nev3/Pnz02fi5UFiLdjwfNKvrNnz8Zwt2zZ
0oZ+E0HI5cqVS/XNAhISDuPRo0crV67UExPL8Lx48SJM0uz5zp07s2XLli5d
OmXUmwE1DqGFT3bt2lVjXrBx/FaLCf7www8wXtMtVJAWjM6ePXt46OvriyZR
JlhEEHLRokXVhyqbQTtDRqehfDJnzkzxrKk1lMb48ePRLWPGjNE/6/v69et6
9erNnTtXf8grfL5XMlCthw8fzpEjx/z589XJ8m2zZs2ogsbCHz161HQ/C/a6
fv36nTt3dow34h+tXr36zp07Dvw2KbnTkTeIlh7f5Pjx4zho+/fvV54sXboU
l0c9X3ThwgUfHx+jol9McfLkSeT5/PnzDqeArGJAJ02apHC8a9eueXh48FAP
60sTUqQfbtj+ePpoPzEFzTAJCQmBqVqkZ/Y2vnboV0firHu0qMKH0dgM2CJF
irjPkfXOEHLemTBhQp48ec6dOyee/Prrr/nz59+0aZONX9lgyLdu3SpQoEDu
3LnVh0isWLECj15jjB8pP378WB1rTS9jxXDBzMYgtUbqhIIVQcipOE4lJPQD
61O7dm1nbDWFdbdr145xZBoLZwYGVOPGjUeOHKklQQYmVhJtefPmzdOnT5uy
VkF+SpQooRgFEYQsAvP4HBoaKiYiLl26BGEWQcjoXtTd2rVr1fRegUaGTGV7
9+5NZceNG2fbxu3atStXrlyxsbFaqmwbkP/SpUvrPznh+fPn6LoWLVqIiQU0
GySwRo0aFhf4oqOjy5cvb7pAbAM0NVp6+/bt4s/ExMTChQsvXrz46dOn69ev
t3e6jOI1bNjQxjkStkHvV6pUCX/QsZ8LrFu3ztPTMy4uTvyJ4E2ZMgX+poT9
KEAk2rdvP3DgQGOPyqfRhg0b1rZtWz1eLV4G7mFwcLBivLCkiCVDxmHilFak
SCfcsP0RwsmTJwtd9/79e1gTw4RWsva+XY2vHfrVEa0RFBRUtWpVRY0jPIhQ
tWrV3OTEMycJOUKFMJQqVUo5t3/NmjXiNLljybD4KxsMGeGMioraunWrWvng
TGXNmhWDqEXSKHyXLl3Sp09fs2ZNxUmxyJDxy8LCwjJkyIDzSBa8I4KQGack
4vpxKiFhCJzHkEFMTEzGjBkxZ9bm/Rhf3bt3Z/hoSQ1ai1cuduvAh01VMQqB
r1BcyiyxCEKGBvOEsTlkyBCqiZpdtmzZL7/8gn6D944ePfr27dsRERE2znDT
wpCFxkA5BAQEpBjgCreHq0PytVTZBlB9PXr0oII6z8RAJ9erV4+Sm16qsnz5
8hw5chw4cED9/rVr17y9vTdv3qwlcfodhSleppFxhbJly0Zj7t69e8uWLfYW
VSdD3rZtGyXXeeLHrVu3wsPDFY+PIv3nP//BObIoQjQjVs/YO83FbQWkrCcR
ZAaxV24iwFZCscqWLat926wZ0pAU6YQbtj+6Dmcf7XfkyJF27dpBs21fPmJX
42uEUerou+++wxwoU7I4nl5eXq7vZYtwqpBjK318fMSaJly0SpUq/v7+cMvI
yEhrd6akuFPPIhg4DB/19K81iD2D8GFlz45Fhnz27Nm8efOabhaAWkDyExIS
duzYge7VXkIJCfeBUxkyLrCHh0f27NktKpCk5PA5OI/GDU3YkRkzZuCzjx07
FkVqurCFSilWrJgShpf0v9jFBQsWiCcUoHLlylDiefPmMahRKdOmTatfvz7W
1valA1oYstCEWbJkUaa5bODkyZOBgYH6788SFbR21LNG0A4DBw708/MzU8Io
atR1UFCQ+uJCMW3Sq1cvLVOjlA3NTxfT2mQkzvfo1q3bmDFjHAhO08OQRU3r
1q2rs+Wp0b59+3C44uPjY2NjoSV9+/a1tgZx7tw5TIYWqdCOnTt3FixYUFmN
dRh08bBhw6KiohgajAKUwKlTpxxLKm1JkU64YfvDo3C6aZPFixcrZ1nYgF2N
rxGGqKOkZD42e/Zs3IeDBw8uWbIE3btixQp3uLDY2UL+7t07tApSjYMTHBwM
ry5fvvyoUaPoU2s/18KQkYetW7cuW7YM70k4L5jOTJkyNW7cWLsvM3/+fPgw
uk6c82yRIW/YsCFDhgx4EMrsAVoRj6lnz56MUxurtBIS7gyHGTIKYc6cOf36
9WvQoAFj0KJiZFxUqFCBgWMxnkrMnKANtCtAcsF/V5McSIsShqe8+eLFC9OF
pNevX5ttIXnz5k2KfClFhkzhBw8ejLrQuBT44MEDcT5zim/axqFDh6jyrl27
LH6LzqRTxK5A2DsKzWySE+dFHPsD7bQYA/P8+fObN2+qdS9PBg0aVKVKFe3H
QaD8ExMThXaluVDajpk8PQyZ6uAiUXJr1uTChQvt2rXDm8uZM2f37t3NmAZy
QnsqbUhHIxI7duzAxbPRlU+ePIE2jBs3zqiYT9LB3JCmtY1LNFF4eHjhwoUz
ZsyIQJpJGp8h9spqKdbtzJkz1Au+Z3FC6bOUIj1wcfvblZp2OND4KcIodZSU
XK87d+7gV6LPrWlUu0arbbiVkOPxURcl3t72/kTbDPny5ctt27Zt3rz52rVr
ETAYLHz79u3bWG2sVfv27bWHB2/cuFEEWohgEosMecGCBTyhU0yT5U2ohTs4
OBISjsExhsyQZETExsbyITQ0tFSpUhbnLsROZAaOxWvZ9+/fj6355ZdfHCs5
LvCWLVuuXr0q7gCtVKmSMxzVFBkyOqdo0aLUUX2/klMRFRWFSVIWak0Bi8CO
o9MyZ86MeUXz89n0CCaU2LRp0xy+MnXhwoUeHh76LyixF3oYsti6gtBa/HbP
nj158+ZNly5doUKFMLv0Zt26dU3t2u7duzEx9vavkP8Uz9zWDnq2VatWpKme
sEpKdr4CAgIofJ48ecRBMabnIooXMKkar2D4XKVID1zZ/samZgbDG9+V6sjA
0ZqmhdwaQ+Y5ltHT03P69Ommt/vduHEjMjIyKCiIFhs5cqR2t/3777/PlCkT
ToQ4GUPNkMU+IJ5069ZN8mGJzwmOMeTr168zNj8mo3Xr1ihwi7FSDB++ZeCo
NzjDqOG04eHhDgfww5Ry5swZHR29fft2mLbp8QIGIkWGvHXrVrSHxb1azoM4
8Apmrt6uTjuvWbOGBqFZhLLC8Z8wYQJejBK5ff78eT1XZlDl3LlzO+OUBtvQ
w5APHTpEmS0GNNIs5cqVo4nE7hsEMi4urkSJEhh98cLbt29pbQd2NtHCXbt2
NXCyTpwB1aVLF3Xfwdk6d+7cvHnzS5cuiSfUq1GjRoGBgYKfIxirVq1K8XhD
gc9YivTAZe1vbGpqGNv4rlRHBo7WtC7k1hhybGwsjsOIESPMZompBQa3QIEC
eAFr167VnpE4sqNMmTJiEVbNkMXBbjzRuAFQQiKtwAGGzABZvny5WFC7efMm
rre18E6GZKdOnRg4OLOmDPndu3dYmRo1atjIl1EvjqGw9sKbN28WLVqELzxx
4kSHdxilCNsMWVxlRQVLlixpun1DP169erV48WIROK2egaRx+vbta/G++/v3
7wcFBZldwkJHoPlJkF7g85QpU86cOeNw2eCouXLl+vbbbx1OwTHoYcg7duzA
VKnvuUPD08imm4MEEhISEFExQQcPWbJkiQMLBGKLOuZbS3SoAIyI3uFXFFWd
I3a/dOnSw4cPV/uV33///aBBg8xWgZ88eYIVu3jxovgtVszGBQSm+IylSA9c
1v7GpqaGvY3vJurI2NGa1oXcIkO+ceNGsWLFfH191eE3ykxv3rx5xVmFnz59
WrZsGXW0cfJJUnKstbe3t7JGoGbIHz9+bNWqVYYMGTZs2GB8PSUknA/GC772
dhUYMviGq1evVn/F6LbIexkg165dQx3xAV2EQ7pw4UKLGgkN07NnT4bSnDlz
lBdQsEOHDsWTtbEzhZejoqJq1aplYKScY7DNkKlg9+7dxYl2ji13WoO4/g9z
bPE8SfLt2LFj5cqVzQ6ET0qOGVu3bp26O9CBNDuFvH79enh4uMYgPYs4fPhw
zpw5NZ5A4gAoJHVXCyQ5litXjsKrv4JR2D4yIiYmBlOlvnEVFw+moV40p/15
Dl8VV9/atiDWgAPFbwsVKpTisdsKkLf58+dnz57d4hZ4RjGmSn2YNoUMCQmx
eDflpk2bVq5ciTwgGNp3lH8GUkThDx48iH6bpA2TJ0+OjY21PVvomvY3vDfV
sLfx3UQdGTta07qQqxmycMmxRwMHDlQ7cWKqn29r166tWHYUTo0aNdCrNu55
oXnpXwiwmHlWM2R0b/HixRka+s9okpBwPRBp1GmDBg1qq+Dv758lS5aAgAD1
V8p8hTUwymCGXl5e1o6jQXOiURlKuOTiCQMKnZMtWzYYiw03H12HI2zsXhLH
kCJD7tq1KxUMCgpKcSWO+u7atUv7Lni0DeRKaTpT0Izt27evWrWqun14Yhp7
pkCcVwlVW7FihbWjRTRC3OBg1zqdXcAwUTu1QFavXh3J8fPzU3+FHFo0dgr4
ljIfOXLE7Dkm1dpuIDgqlOmXX36ZOXOmY7FAmCSxrGnXLSf4hp6enhZDH7FE
iAT9aMbQ+PPZs2cWq4+5/3/aO/eomvL+j487uURCiXEpUZlcZhCDXFNI5X7P
466okJrMSIikCyLJJaZxqTQuDw2LGc+EcZ3lVsgiZI1njCc/sxiLWfPM6vde
fdez115n77PP95y9T6dmPq8/LJ1O3/3d38vn8/58r3CjaBVQDvwnP/wFWhH6
yPTp0xG/f8BHtWrVBg4cqLzZtmLKX/PalGJC4VcGc6Rtb63qjVyqkEtKSjp0
6FCrVi3Z83Mg9b29vdHUY2Njxa1r3759sKuIFxSehRextrbu27fvy5cvdRQy
fly3bh06Gtqkcsmj7pKTkxH94c+12ppBEGZFzWlv+fn5jRo1Gjt2rKydKfuf
5UTfYUE0NOSqVavQf5WNGIQ3DJSPj0/lV8h4i+DgYNgKnsuw8F4LFizgv4cU
Bt/Gxkb2UnumzDt37sy/ORFuNzEx8ejRoyhblcfvw2ug3jMzM9UkYgJqVlkg
tw0bNjRqsTpKHiUGY27yMVwoc7gDxHr8lY6anTZtGmIB2Ql0pIPUjNplw85D
QGgG36R+ieBfoBWpweLlr1VqJhR+pTVHDPW91Rx5M2sjlypktmDYzs5OdhS9
qKjIwcEBDVjntwi1XF1dhw0bJrv/lIEy2bRpU506dSCDobTFCjkvLw8NA9rb
oLOGTsCXHR0doRnooj2iSmCyQmZTNkK4ik4qbfPs2g58JysrC/8PCQnB/1es
WKF8mfu2bdtycnLmzZtX+RVymdw5kPo4dOjQhg0bOP0auwewU6dOsiNFKG2U
D0yNUdvHdu/eDT2fnp6u8swN1A7Mvr6TncyHGoUMf4c8Z2dn8//JnTt3UMjw
CCavn0E1zZw5U+FwMCnPnz/v0qXL3LlzZUNINAY0icDAQP4xbbgz9NOgoCDZ
cwZMoKq3IjVYvPy1Ss3Ywq/M5oihvreaI29mbeRShbxv3z54WOFYNp0vp6Sk
wFWh/ei0XlQu0mncuPHFixeVHwd9C083ZMgQHx8fKGRYKjy9TZs2K1euNOj+
GHfv3oWARwBizIsShMUwWSGzwBM2k3n/jIwMqR1AAN6jR48GDRpAHCJsrFmz
psF9wT/88MOaNWt+++23+fPnVwmFfP/+fZiIZs2aya4bFH8Nb6QzxoJIAVYL
Rga/go2KjY09fPgws8nstPlPPvkEYQUcop+fn3jrFv6zdu3apk2bGrXuC2Le
3d1d/VKxtLQ0Ya9HRaJGIV+9ehV5NurK6QcPHri5ualZQ8jOcpFGT+gyoaGh
qPRZs2Zt3LgxMjJSWIZx6dIl5HPy5Mlw0PjtlClTxGuYkQ5SE47u58zDhAkT
kI5W05pVvRWpweLlr1VqsoVfRc0RQ6e3sjHPDh06WFtbi29tzsrKgj03uKu6
SjRyqULOzc2tXbv28OHDpWNQcD3snj7Zd798+TLyuWzZMp4BHKiFGTNmQCEj
wfz8fP6+UFa+BdXGxkb5li6CqDyYrJARTlpZWcGWonvCcYSHh0sHENjWb0S1
rVq1gjxetWqVsjyGHo6IiMBfIc2qopBhUiDpq1evDsehb2z80aNH+K2OhEah
TZs2jV2ijR+3bt2KAF8Irtmqv549ezKBBNPn4uIinh07ePAgbJp0Ya0Cmzdv
Hj9+vFEGTQobcGjXrp22Z3fwoEYhI7fIs3QFqQIFBQWoetP26DEQISIF1LK4
2d+4caN79+6oC+SE3egqPkg2NTUVzWDx4sXstvQ5c+ZMnDhR2CvE1mDILvjU
B/4WekbDvUJVvRWpweLlr0lqsoVfRc2RgLS3soOG2rZtK5wkg+6GiNXT09Pg
gGeVaORShYxAu3Xr1v369dN5QXxh+fLljRo1OnLkiGxSKBnoatQpz2yXsA4Z
hWnUYglWI/pmIgiiEmKyQoZQgULevn17WXlgyDy+zndu3rwJ74+uVK9ePUT0
ylOT+G1ycjI7baAKKeSy8rMX4FwQCMBe6ZgmGJA9e/ZMmjRJONeUASMTGxsr
vsUeLgZlheoQfoTHOXnyJPsRn+NH8e71wsJC+Cw4Ms4XYfsplLdj8MDWlvv4
+EhHsWCfEQjMmzcPYU5ISIjm+5rVKGRIC+QZXoB/Z/qFCxcgUNV4yaKiopYt
W6akpAifQH4MLIe1E6a40MDY4a7sR+FMALbR78MPPxQfFrdlyxbUO3/Z4olT
pkxRo/PFmLsVIX30tcDAwEWLFi1btmz16tXaHhGjHsuWvyapSQu/6pojAWlv
RctBRxN3+fz8/ObNm2dkZFRM3szdyKUKmV1TCyX87bffCl/Dbzdu3GhjY6Pv
6tuy8usJ+vfvDxfGs2Qa78VOzOjVq5dBBy2emFi6dGmPHj1oETJRhTBZIZeW
lqLvT548edWqVVFRUbJR+TfffAMV3axZM4SuBhd0oVMnJiayzl61FHJZuQBb
v349vIajoyNUDezMl19+uWTJkgEDBsBkSVeFPX361NnZeciQIcw2skXdwoJV
tupPvH4V5rpOnTr79+8XUnj16lW/fv1gZjlPs4fvmDt3ruABTYblXOcKGHZM
R6dOnfbu3YvMw11C5uHFtb1kUI1CRk7giVA7/OM5u3btYseimvA4xqFDh+zs
7MRljlKqW7cu2jlLlt1AIdyFzRYhCyc1wY+MHj26TZs24jxfvHgRHSorK4sz
D1BTM2bM4FwlaBCztiJ0IvhQuN3bt2/jc7QlRAeyW8MsiGXLX5PUpIVfdc2R
gLS3PnjwwMHBISYmRlgoMmLEiJEjRxosvarSyGXPQ0YNIvPsxU+cOIFiGTp0
qIeHx9mzZ/WZsrt373p5eaWmpiK3o0aN0reABzUbEhKCkL9GjRriE2AQWCEM
kR70V6ZnYkL2OBSCqJyoOcsCHvzKlSuQQ/q6HlRinz59lI+MY6Ar+ZUzpRwI
b4gZa2trxJtQnlrNxJkAp0JmwA5kZ2eHh4dD5EAn4//6rDE7BUi4qBpf8/T0
hCVhwTXb4YjSYC/O4gUbGxvxQDT+cMOGDZ07d+acsXr8+DEiGvXzfbC6rVu3
1llZd+3aNXt7e0hiNo9QUFAAw6i878ME1CjksvJMIuec15DBHcDR8AshKeye
qcGDBwttAJ9ERkaiVQsn/sELo1qFY/Zv3rzZtGlT4Wwo1KyLiwtSEA8x4f9Q
Mmx1E082Dhw4MG/ePK2ugjVfK0J7huts0qQJu5sSPyLMDA4OZqPrlQfLlr8m
qUkLv+qaI4Zsb0VPR3PKy8srKxe9oaGhPXr04DlVpqo0coVbp2FYoqOj0VTg
PfEshTFbeGc4uJ07dyIRSHdUK+ykCZmRzZ50YkLfcSgEUTmBjEEAaCY3BNPK
P5+CHvr7/8AfDhs2rGvXrrC3lr3F0iiFzA9kXqNGjYRTK+/du2dnZxcXF4f3
hbH6z3/+079//yVLlrB3f/r0aceOHRE16EQKiP2dnJxycnJ4ngh/MWrUKJVz
1qgjeCKELeK1Cmy5rMG9iup59eqVv7+/MPNrLMgznD6CFx6BgYoYMGCAGmeB
WnN3dxcvGWXn+YvXJW7fvh3uEk85Ww6Us4ODg3CtSW5ubsOGDaU3ZUNCu7m5
8ZwbgCcuXLgQ0kWrwXzztaKffvoJjVz5yKlKgqXKX5PUZAu/ipojAWlvRREh
YGeLkNGioCQRXHOuTqkqjVyfQuYHYhVVtm7dOpYCxEDjxo21mvuTnZigRchE
lcPk/mU+YHthRrp06SI7d1ORmEkh379/H6aJ3ZsGEwrHV6dOncPlQBExKcVm
2xFihIWFIViQ3joBm/P555+PGTPG4MZ2NnoZERGhMtwoLCyENhCWIzIQXqGI
xPc0mQ+V+Ye6hmotKCgw+M0zZ87ApapZ5JOWlta7d2+d00syMjIcHR3Zdqfi
4uJu3brBY8KJx8TEoGzhO1CSTGNAgPXo0QOhh3ThNHLl6em5bds2g3nAN/EW
p0+fNvktxJi1FbFhTJ3r6Ssnlip/TVKTLfwqao4EpL0VEhTazNvbG7+C3I2K
iuK0TlWokatUyCdOnGjRogVUqzCKhULz8fGBheQ/11oB2YkJ2TsZCYLghC3N
GjRokJWVVa1atfr06bN+/Xqt5ihNwEwKGa8JsQSrvnLlSrgeuCHY84kTJy5e
vJiF2HBAvr6+y5cvnzdv3vTp0/VdCYrPIU0NLjxAFD9ixAjZi5b4gR1G9hYs
WKBj4uCYoPTgGcXVhBeshIOByOGiRYtCQ0OVfQoyHx8fD9djcsNDJfbr1y83
N1fnc7ZKEBUNlw3Vgabu6uqKLCUlJeFZeC7kMdx6bGxsQEAA8qBvfdHRo0f7
9u1rcOP5tWvXevXqpdVctllbEYRfw4YNdXZRoUwsuMJKAYuUv/rU9BV+VTRH
4sxLeysCTMSeeAv0LPFGV4NUoUauRiGj6To7OwcGBupY6X379sHzIrpXr+Gl
ExP29vaoDjYxUQnH5QiCMBYzKWQGrDHsBjOPsJOw5GIjDxtSXFxscF8J8obA
X3kl+aNHjxC/FxUVqcntN9984+XlJXXQzB1AEAqjNG/fvl2zZo3s8SYWB04c
xaV8mSxqYcaMGSZvZkeBwHMtXbpU32gJfATqWhha0RFa8FkPHz5U9iDs9nbI
bOWvZWZmTp06VSuRadZWhI7WvXt38fAaHge1pvlqdk2wSPmrT01f4TOqljkS
UNlbdahCjVyNQsbfwuxI/xCfIxrSFwEZhXRiol69emgebGJCffoEQVgc2LSu
XbvGxcWdPXv2+vXrlTDyZbcQzp8/X2HMFoorISFBzfTWnTt3/P399a3Lff78
eWBgINx3cnLysmXLYPNhBiuhPGbgLfz8/AoLC/V9ASJh/fr1Rg09CbDdNzNn
zmTbt80H4hE8BQ5IYbQnNzdXw+DO3K3o/PnzgwcPhtOPj48PCgoKCQnhWQ9j
KSq+/FWmplz4WlEx5kiMmt4qpUo0cpQt0vn2228nTZqE6KASeqUyjokJgiCq
Oi9evPD29m5ejq+vr/TctsoAvFJWVpbOmjcNgb/YunWrwYtuUTjwDlrd3WZW
bt68iTcyx4q4kpISeFhzy2MGnpKYmFhVLt3gaUXwqnid4uLiyun0dahC5c/Z
hTXB3OaoMlMxjRzpd+rUydbWFl4JYrvSjkWUGZqYIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC8f79+99//93SuSAI
giAIgiAIy/PHH3/k5eW5urqmp6dbOi8EQRAEQRAEYUlOnjzZt29fLy+vnj17
fvDBB9u2bbN0jgiCIAiCIAjCkvy3HPxn69atllLId+/ehUTv0aNHbGxsxT8d
r79u3ToECMOGDbt3717FZ4AgCIIg/qqUlJTAyS5cuDA1NfWPP/7Q+e3Lly83
btyI38bFxf32228WySFhLKdOnQoLC8vLy2MC0nyUlpYmJyeHhoZatnlYUCH/
61//at++/YEDB27evFnxTwd47v79+x0dHb///nuLZODvzLt37zZt2rRixYoK
CE+uX78eHR0dFBR05MgRcz+rAoCvyc3NDQ8PDwkJefDggaWzQxDE34gLFy7A
cX/55Zc6n//5559paWlOTk6wt+yT169fZ2VlNW3adMmSJVJBBRdw/Pjxdu3a
TZgwgXZCVRXgfaKiourWrfv111+b9UFoHtDhkGdjx459//69WZ+lgGUVco8e
Pf7v//6v4h8tgDAWeSCFbBF+/vnnXr16ubi4PH361NwPSkhIsLKyysjIMOuD
KgZ4olu3bgUEBLRu3bq4uNjS2SEI4m/EnTt3IiIiioqKpL+CpFm9evWrV6+E
T+DlmzRpAp0sm1RhYWHz5s03btxorrwSZuDRo0cIkSBcIWLN+qC7d+/a2dkl
Jiaa9SnKkEImhWxB9u3bV69evd27d5v7QWlpaba2tjdu3DD3gyqGt2/f+vj4
eHl50ewkQRCVloSEBIgcSB3Z38L+29jYnDt3TiGFhw8fxsXFrVy5MiYm5uzZ
szwP/fnnn/U9URPu3bv373//23zpi3n//v21a9cq1Rj7H3/8sWDBgmbNmkln
/5FP5FYr5ZydnY3mYVl5plIhq6m+yqmQS0tLCwoKKiwDeNaLFy8q7HGVjWfP
nrm6ug4bNuzNmzc6v9KwItCjZ8yYgYpGmtIMxMfHR0dHwwLn5eX9+eefmjzR
3Dx+/Lht27YrVqyoKhkmCOLvBuTB6NGj+/XrJx5VFvjvf/+7aNEi2H9ltfnP
f/6zcePGPj4+SOrAgQMGH1pYWDhp0qTbt2+bnm9D3LlzZ/Lkybdu3TLfIxiv
X78OCwvLyMiobHYeoUqDBg1Wr16tkzH8+NVXX4WGhv76668qH4HmER4e3qlT
J/holUmpQY1CVll9lVMhQ6rhpfbu3WvuNsna0sKFC1GMZn1QZQa94LPPPoMB
vHjxos6vNKyIX375pXv37nPnzpXuFnnw4MH06dP9/PwgOPEf6Rf08fz5c1Tf
mjVrtmzZAmtcwRYMYr5JkybHjh2ryIcSBFH5gblLSUlZunRpbm7u27dv9X0N
fmf9+vUwX/xiBrpoyZIlI0eOzM7OFls8aBhE67Nnz/by8oJ6FD7/6aefnJ2d
YcZh54uLi0NCQsaMGfOPf/yDCWb826dPn/HjxyuvMoVC/uSTT37++WeeHD59
+tTX1/f06dOcbyRLZmYmVL2g20tKSqCHdTwU1MuoUaPwKzUPUgbFAucYHR1d
qQaQGag7T09PeFU0Np1fwYfCLUZERJiweBh/gqaLFjJ//nw0YGgzyy5CLlOh
kNVXn6xC5mmc/Jw/fx71WLt27aioKGGnALoqehxbGSW7ygLiBx3Z3PLj+PHj
EGYVNllTabl8+TIU8rJly6RbOdRUBIwzIll0tFmzZn3++ec2NjYKi5Bh7dGY
0TF5FPK7d+/gWWAeN2zYcOTIkaSkJDSngICAJ0+emJBPkJ+fP23atKlTp86Y
MWNWOfgPfkR+rl27JpvbmJgYWoRMEH9PoGkXLVo0dOhQqQWABYMpq1Wr1gfl
DB8+XJ+LgatlX4Ptkk7hSXn48CFSfvHixYQJEyCSBd0CDx4eHl5YWIgHde7c
GZJAEM9sEfKBAweuXLkCI/z48eNx48Z9+OGH+E/Z/xYhJycnKz+XXyEjHIDN
RAbUHLOA94LT6d+/vxA47Nmzp2nTpngF8dfwiNjY2MDAQPOtc/vyyy8RcUgl
aCUBUtbKykp28ztk1YgRI4zd9YMChx8cPXo004SQpjVq1IB71Sa7pmKyQlZf
fVKFzNk4jeLMmTMQYPv37xc+QdQspKlvHTKk9aeffmq+tUxFRUW9e/fmXFX1
1wYWBmbcxcUFmlb6W9Mq4saNGwhvN2/eDDuG9H19faGQFY5M4VfISDAxMTEu
Lk4cGKIVIdTt27evafEOOhH6AuzJxIkTq1evXrNmzZkzZ6J/nTt3DilLv88W
IcM/0iJkgvgbAvsG5Qmpqc8wwquGhYXBksC5L1y4UDqKBYsHgQdrgy/Ur18f
XtLgQ+FDT5w4AXHr6Oi4fPlyQYUeO3bs4MGD+M/t27ebNWu2adMm4U8SEhLY
JzCYzKdfLodJ6H379uEt8vPzlZ/Lr5BzcnLgzVXu+4Yb6tix4+LFi9kLwiPM
mjXL3d39+fPnOt989uyZh4dHdna2msfpA+WMtz58+LA5ElfPu3fvIiMjEWFN
njxZdowXrQL5f/ToEWeCrEHa2tpevXqVfYJGBa9tsHmYG9MUsibVJ1XI/I2T
ExR7fHw8AlWEq+yT0tJSKC5IETb9pE8h49EI0ufMmWOOEX6kOXfu3AULFlTC
2ZOKB20JMRH6WmZmpvS3JlQEWtTAcphNRiEjMu3Zs6es2mTwK2T4pq5duyLI
0qk7eAc7Ozux4zABRG2I5hC+ye4TF2CLkL/44ovKtjiNIAiDPHnyBAZETXgL
M/Xjjz8qi0bmZeDcYU+E49d0uHfvnpeXF4S0rO2VZefOnUhQdlYXiUDxnj9/
XsjA6NGjkYEOHTrs3r1bZ7sNW4Ts4uJicJUpp0KGeYcfgRRXaRV1Dt9Atj/+
+OMpU6bIRhkbNmzo1auXyfpEH0g5Ojp6yJAh6lfzmoM3b96g7kJCQqZPn25v
by+IKzGvX79G05KdGpYFcY2zszNemS06xV8tWbLE5EXI6ruYgAkKWavqkypk
/sbJCRuUhiRmC5+Q86SkJITeMC/sCwpnWVy7dg3BssoVTbKcO3fOyclJzcD4
XwZ2a0xqaip6x6hRo2SbtLEV8fXXX9etWzcxMZGZyl9++QWadt68eQrql18h
I6vVqlXz8PDQ0dsIuLy9vfEWnCMYyFVJSYnO4/CmUMjNmjW7f/+++HO0f3wZ
PoK9EVuEfPToUZ4HEQRRqfjuu+/gkipgfR2kCwQM/Pu6dev06Ua4wlatWp04
cYInQUijYcOGDR06VLp3BqYsKCjIzc1NeC823rVw4cKbN28GBARADIsDf7YI
edy4cQaHPjgV8pEjR9q3b69+czdEr/jwDQQXiAggk2S/jBLGQ3NyclQ+VAcU
nbu7OzSetslqAgTb1HLQBuCU69evHx8fL9u6oCpdXV05l2qjU4i3/kFbenp6
8jQPfalp1cVMUMhaVZ9UIRvVOHlAAIKOiWCHBTLoRG3atBGfdK2gkKHW/Pz8
Zs2ape1ILyzJ/PnzfX19aYocxhkR0M6dO1EmS5cutbGxkV12a1RFoKIjIyOt
ra0vXbrEPrl69Spa0Z49exT+il8hFxcXr1q1SkhcAH8IEW5lZfXNN98YzCRb
ycyGi8WtUVYhQwnb2trCECEsRVGwRchwag8fPjT4IIIgKhsVppBhZ6Ax4N/9
/f31KY0HDx5AqSpPWglcvHgRVjotLQ0BPjSDOE34cQ8Pj0mTJglWGv4d1mzf
vn34/8mTJxHUHz58GMIYBv/t27dsEXJSUhIUFHMB+h7Ko5Dx0MmTJ/v4+Kj0
qmzcu1evXsIAyO7du/EWFy5cyM/Pl65FwePw0AkTJmh7MvBXX33l4OBg1uM4
TOP58+cjR4709vZmMwKozb59+4qLSwzyj7fYu3cvT8qo5UaNGglnldy7dw/B
HZoHJJxy85BFqy4GbxsXF4ceBGnK/1daVZ+OQja2cfKAP0TH3L9/P94U3bNb
t25ZWVnieEf5POTNmze3a9dO22vL2GnbSFnDNKsiqBonJ6d169axxg/bi7rW
t3KAvyLYUAa+LOyb2759Ozu58Ww5sn9l1E49WaDMg4ODq1Wrhsdx/gnbiSBu
8FKFzExQ9erVhTidLUIeMmQIOk56ejrnFm+CICoJFaaQATQG/HuXLl30rQTI
zMycMmWKwpEXYjZt2gTXDzmdk5OzZ88esa2+desWDFdKSorwSUJCgrC+Ec4X
/4eRh9mHtMYfohDw/by8PHhkKAqFh/IoZDZHv2bNGpVLLNjhG5D6TJbAWXft
2tXR0RH/QeLS493wOHwudjfqYYtL9R2RZ0Hwjv3794deEr8sXHP9+vVlx4WY
85o6dSrP0BZcHvQAk9NojQsXLqxXr97x48fRcqS3NxpEfRe7cuUKnCyqvnbt
2uhB+BfZGzp0qOwgnhgNq09HIRvbOHmAfUDHPH36dFhYGOS3VNUrK+RLly7Z
2trynMHIz6FDh5Al6SDk34oTJ060aNFiyZIlwijEmzdvIPzc3d1lLaFRFZGR
kYFmw4ZYi4uLERa5ubmVlJTExMTIrpgqM14hQw9fvnw5LS0NehjaG38OIwBH
g67Ev/f2+vXrbBhZOB9JqpARFLRs2RIfCmty2NKjkJAQ+Knly5dzujaCICoJ
JrtvGMl169bNmDFjwIABULY8ahCWFkoDslb23JtffvkFTp//+uBz58517tx5
2bJl0dHROgstIGOaNGnyww8/sB9hSGfOnInE2VLMZ8+eDRo0CDmH8mHT7rDz
MPiwmYsXL1ZWvzwK+dSpU3i6vhdBZlBcCBNq1KiBooiLi9Mxm7DhSKHsf8f8
wgIjY6tWrQoODoY3cXV1RbY3bNggOw6Ph+LRGq7GRCwD5TN79mx9zghuYtSo
UVZWVsjqpEmT2MEgAhBmeFl+v8BZOEz4derUSceHws/C28oeh4I/wVvA//Kc
54DGjKIeOHDgypUr8SA0JwjUiRMnonmYsBS5IoNQHQxWHzx4RESEvb19zZo1
0bBPnjwp7sj4f25uLuutOgqZv3Hy1ym6ZMeOHSMjI9FzZVeMKytkJtqXLl2q
ZvuVGKSDGkeasuc2lBlTeqZh1vQ5E2elGhgYqNOn9u3bh14P2Sm1/EZVBEz3
3Llz0bmioqKCgoIQlqIVLVq0CNpVXzDLr5Dxhf3790OjogsgvIXLQPgWGxsL
A+7p6Vm9evWdO3cazCEDtgVl1ahRI+FKKalCZioaIZUwfo4MwIbgWegXdBck
QVQ5THPf6PjwgwcPHsR/wsLC2rVrpyONZGEGBBJOOjoEYwiL6uXlZdRgV2lp
qdR5sUvWPvroI7GORbLiNQ/w4DD+YgsMq4tCMDjAyKOQU1NT8Y6yV6a+e/cO
PheWuXbt2rC30Az4v/hEOGQMFpUNdMTHx9vZ2UEEPnr0CMXLvgOHglfWF4/g
oShhDS/Ovnv3LlyAvmn9I0eO4HHVqlVr0aIF3OUHH3zQr18/sQSFV9q1axfn
WDp/4ZSV+3fZrWfQhHfu3JF1nQkJCTY2NvzrDVDU9+7dY0tW0DBQBaatcbWg
QlauPrQrCE7UmrW1ddOmTfEflA+UsPgLkCIs/BQrZP7GaVSdGkRZIUPCIajR
8FgtZH748OFIU/b8SaNKzwTMmj5/4qhN1Km0Q+FzKEPZnW4mVAQCT7QiYdm/
vpBEeDSPQkY6c+bMad26tXjEgN38kpKS0qpVq3r16nHueSkrP+sb0bd46bJU
IV+4cAESGk/UOTYHvaayzcERBMGDae67oKAANuptOSNGjICN1TcjJqaoqMjW
1hZWRTo7fOjQoZYtW6oZ/ITi3blzJ3worKubm1toaKhWQ0liDCpkdu4BzK/0
bDEY5+3btzs7Ox84cIBpLeQ2MjIS8YWwp+/KlSvsWgcoh4CAAPFhszzgobDP
Gg6jnTp1CjZfdmkB8uzi4oL8s2XA8FY5OTlt2rRBgMC+AKeAouDcHGdU4Zj2
LpmZmXgXcxx3oIwFFbJC9UHGjBs3btiwYcLZMijnQYMG+fv7M2GDGtm6dauw
B1+skDkbp+Z1qqyQkciECRM4pwl4YOcqjB8/Xpo9Y0vPWMyavrkzr3lF6MCj
kOGYZs+eXb9+fekhh7BIPj4+tWrVQojHueelrLwx4I0Q6MFVsU+kCplNkios
IyQIomphgvuGgdq8eTNbRXDnzh17e3vOhY4QsQ4ODtbW1jrns926dcvJySki
IsLknRf4w+DgYCQOh7tgwYKBAwdquBZXjEGFjJwEBgbK3l6N14eu0FmiCW8C
zZCUlMRWx61YsYItDmGLmcPDw43SungoHj158mStdvRnZWVBYknvyYJGCgkJ
QUiiMz6cl5cHRcHGteBhk5OTOQeQjSoc00DdNWzYkO3WrEjUKGQ0gy8NodBC
9FUfyM7OhoTQkbiILkeOHMlOV4OQWLRokbAvSayQORun5nWqrJDZti/EaDzz
WTygBNq3bw97IrVLRpUeOyQNOY+NjeV8tLG1o4+zZ88ikPHw8BBvr9AqcX1o
XhE68Cjk9PR0aODp06dLV6PhvVAgH3zwgVHjD+woQvxVQkIC+0SqkBFWVKtW
bfTo0Za9eZMgCGOBt8rJyTkgITo6ukOHDmlpadJfQVHI6l4YqNu3b7MJOEig
6tWrw2jwCCGo1rZt28KqCBcxlJXvinJ3d4emLS0t1fm+jv/FIxQ8Mhzx8uXL
582bBzNlviktgwoZTh+GtGvXrtJhhN27d+/YsUNaUPfu3UO2UZ4FBQUIE9gq
zQcPHgwYMEA878kDG+jw8/PjVMhs4HfZsmWhoaGye88zMjKgKtm6aDGIjOBD
pbPP7969w+fXr1//7bffli5dilfjzLlRhWMap0+fbtCgAf/KQ2PRsIsJIOKw
NoTC0SX6qg+1gxqX3U+3Z8+eLVu2oCJQI2JZhaaICBTKFgKVs3FqWKdIJD8/
H09HHvQpZBgHNLkWLVrwn6yFhgqJDjmHIEKaTxbRC1eiCBhbeigoKG1UN+di
EhNqRx+Iy9DGIH0RzrAX1DBxfZhQEUZhUCE/e/bMzc2tTp06ubm50t+yqQFo
3VWrVrEyQQcJCwtDX1OO+Hbt2lWzZk1/f3/WYnUUMrrh+PHj8QX+8zEIgqgM
sMVXcGqfSmCWpEePHtJfCUMK+oBz9/T0ZMsRebLx6NGjVq1aNWnSRLDPJSUl
COednZ2lKbDjjj/66KOpU6fOnz8fmenZs6fs4t6KxKBCfv/+PQRq9+7dpTOM
+ERWzOBD+C94k5SUFJ7zORVgW6fF13Arg4aBuhg9erS+EzuhcKAqZU+Wk0Y0
jL179x48ePDy5ctr1qzhnxSogMJhpxynp6erSUQfZupiKtFXfVAC0E6yUS3k
K+QHqgMiR7wtEaoYPXHUqFH8RytrWKfIcGpqKp4+bdo0fboL34Helt7goAA6
cnx8vJWVlewxgHhlyDzpULmxpSc9SloZE2pHAaSDLyMKZglqm7i+/BtbEUZh
UCFnZ2fXrl0bUYnsIDbiMrbYTziiBOlERUXVrVtXeZ84SqZXr17sSMMyiUJG
ak2bNoXlt8h6KoIgzIGaKeD8/PxGjRqNHTuW8wBe5nEAG67EQwcNGtS8eXPZ
y3xfv34NhQyrhWAfXn7ChAmcOtys8IwhI6udO3fmP/oSDiUxMfHo0aPwxfpk
Jyd4qLu7+8SJE/lXWbCV5EOGDJHdjpSZmdmwYUP+/Sxl5a0CrxMXFydcaKgG
DQsHYgzNlf/GRq2w4DpkE6qPHXEAqZCcnGyOlfxlmtapTrKhoaHSfVLKQHhD
L8mO7rJV/QsXLuQvB9nSM1YhG5u+MjoKWdvEZTGtIvhRVshsJwi8hp+fn6xj
2rlzZ82aNceMGSOevGAHXxv0ZVeuXGnTpk3Pnj2hvcUKuaSkpE+fPg4ODsJJ
F/pAng8dOoRyRhGZKYIgCEIrTHbfzBDVqlWLnXuJjm9w3PLGjRtNmjRxdHSE
PSkqKoLXgHmRTgEzoJBh2GW3UVsQnnXI8+bNY+/In+zu3buDg4PT09NVHqH8
9OnTDh06KJzuJeXJkydwDZ9//rnsoyFjoCqzs7P583Dnzh2UAOrO5F38OmhV
ODk5OXgX/uMEtcKCCtmE6oNsQL8OCgoy63yNVnUqhh3qqHA4mxQEktOmTYPg
kV1z++zZs06dOgUGBvL3JtnS01Ahm1A7/ApZq6o3oSKMQlkho04nTZoEhbxi
xQrpK79582b48OENGjQ4efKkTp4XLFjALitRfvrDhw/RZrp3744M1KtXDxFo
SEgIXhaSWzgqWTnzt2/fhhSHnNb2dhuCIDTHZPcN9+Hq6goPwsxgRkaGQe0B
TwF78vHHH+fl5UFDtmjRQuHuLUEhG5sxs2JQIcMArl27VnywPA+7du1yd3c3
6k9kQdwBI48M8AsPdsPgkSNHZH979erVxo0bG3VnMcy+m5ubhst9tSqctLQ0
8WH+FYaGChl+HEKLv3JNqD7EuRMmTJgyZYpZ71nWqk7FIOcjRowwavvV8+fP
u3TpMnfuXFmthXSQmre3N/8llbKlp6FCNqF2+BWyVlVvQkUYhbJCZoelV6tW
TfZydpi7+vXrz58/Xzqew474Fu6aVwZNAiYOChl/gnCPnefDCf7W19d38ODB
stN2BEFUHkx231C5VlZWMDWwSLCE4eHhBkdNs7KyatWqBfVobW1tZ2eHRyt8
mSlkfCcmJmbx4sV79+7VakxSDTznIR88eBCyxKiLdzdv3jx+/Hj1t0XDyOPR
yIDO5/DRgYGBwcHBc+bMSU1NXbdunXCs05o1a6CQQ0JC8FvkAaUt9o9Pnjxp
166dUUdqFBQUIAiS7tHLzMzs16+f0NLQWiZPnqxzqoksmhQO8g+vqu2Fg5xo
opALCwuDgoKg5VBNfn5+oaGhPMGjCdX39u1bpG++/YwMrRq8mNLSUjS8adOm
6SwxQkGhuGCpIJw2btwYGRkpzG5funQJ/QXtEKWK30Icihc5sxFm2T0F+pAt
PalCxtdmzpwJsyZovOPHj+MTg8dHSNNH3qAV0YV79uwpLFmB/ENTwRvhFYwa
Q9ak6vVVhFYYXIeckZEBRxMbG6vzygiIPDw8unXrJmsE2LYa/upmqyxsbW2N
XSwB0+fk5LR8+XIzrWIqK9+3jgafk5NjvkcQxN8Bk903tCIUMtu3m52dDZdn
sDOyW6cB7IPBI54QX/v7+8O2I2/sYAQE3bIH1FckPAoZYqZFixZbt27lTBNm
HJJ19+7d6rOXnp6O0EN8KQYS37Fjx0cffcTOD8Gv7O3tBw0axIYv4BNHjhzJ
bgDEN1G87u7u4pzgCz4+PsOHD+c/ROLChQvQ4Trih52VJB5W2rNnD2IlgyO6
WhUO20GJdzHr0Kgs6hUywg0UqeDW0dFSUlJQcQZduQnVByEHoch/CIkJaNjg
xRQVFbVs2VJ813xZ+couaB5mnVD1vr6+4tt8EC3WqFEDShXlA7mFQp44caK4
rLZs2YK+zD/WLVt6UoX84MEDBwcHQcKhcY4bN45n0FU2fTQDvCM+FxQpolTY
ARTyn+VwKmStql62IjTEoEJGgfTu3RtlLj5Q6MWLFwEBAW5ubgq1iTzDqemb
UNMBX6tXr16jRo2MPXHozJkzNjY2nE8xARbZwc9CvVt8bztBVGlMdt+lpaVw
vpMnT161alVUVJRB2862b6Db9u3bl+cUIJjB4uJiwQY+fvy4ffv2YWFhll2W
zKOQX7161a9fv8DAQM4hFIjJuXPnik/AMw02vThw4EBxXSASgZ1cv349849s
1XFkZCQLZ9iPwnlW7CgMiAThz/FXq1evdnR05B963bVrFzvtVvzhTz/91LFj
R+FBLKtQ4waP1teqcNgRvnFxcToZw4/Hjx9HZS1atAgqAi+r+VSFSoWMskLH
0bn1A5mEQpY9gUGMCdUHgTRjxgwzzY8ztKpTHQ4dOgRZKE4Wkm9gOex1mHJA
C2dz4uxH4WBGdgLDhx9+KD4A4eLFi82aNcvKyuLMg2zpSRXy4cOHIdSFLRjs
mmaeS45k0//xxx+huIS1NEgkOjoa/ZppXX6FrFXVSyuCgag8Pj4eynbJkiUh
ISE5OTmmrULnOQ+ZzWR5eHikp6fn5eWtXbvWxcUFf6Iw0YlmCcNYq1YtODWF
PTW5ublOTk5sC7lA/fr1ob0V5g3Fs3gwfa1atTLfImSUD4xw48aNO3ToYNQe
BIIgdFDjvmFGrly5UlhYyGPomD+aPXu2aQfRs5tMobIsuzKZRyGjNDZs2NC5
c2fOE5PgkRFrqJ/9R67g7sUiEB4EBd60aVPh8iw4ZTZizH48efIkDKlwaigi
FwcHhylTpoiTvXbtWuvWrTkv2EItQ/xIFQUcBJ4rfM6kuHjUSx9aFc6JEyfw
FjpD1m/fvoV46NWr1+3bt1FoEJwQSLInq6hBpUKGYkHL15kyZtuREhMTDf65
UdUHDhw4MG/ePDPNjzO0qlMxkIWIcQYPHiwWeGjnUDIoJVZ07CBcYR8rW4QM
ucJ+hDUbPXp0mzZtxBlDJDJkyBC2lownG7Klp6OQkdWoqChx2MIWR+3fv9+0
9DMyMtC5hAVLkKZoxhs3bmRvza+QNal62Yoo+98B79CH+BzGHMWOTmGaL+C8
dRq9G5YNUTnys337duWJAGQJX4Nunz59ur29vYbnJsnO4lXMImQEYrInQhME
wQns6vDhw43aaGAyr1694hw0gJldt27diBEjBD0McwdX1bJly+LiYnPm0QA8
Crms/BYtJyennJwcnjShXkaNGqV+6BJ6wNnZWTxJyoRo37592bUUbHZbvIca
4sHOzk74k2PHjjFFIU4WJQ/lwNY0GswDggL4Qemt4ggZ8CAUC/sRih26nWch
iiaFA08K3T527FjxBDpKIykpCdKCTZLix8zMzODgYM37gsou9u7dO5SAtbX1
rl27xFMqqFYeMW9U9SH9hQsXorI0PGJCilYNXgxbICReQwsbEhkZiXITjr2F
RLGxsUExsh9v3ryJRiicj42m6+LiAumikzF8wc3NjedoGn2lp6OQIY0GDRrk
6+vLViKxgJpnLYds+vgQAh4CjBklNAw8C0pPWObEqZC1qnppRZSVR3mIiTw8
PFgvYHtMUlNTTVsly6mQ+UHVTC0HGTt9+nT9+vXj4+O16gKys3j6zg7SEKSP
pmvsChCCIHSoVMepMd6/fx8QENC9e3fhRM2XL1/26tUL6lTDA1RNgFMhw/LD
Bo4ZM8bgqlfmxyMiIlRuqcCD8Dj4HXFtskuohS0zTGt5enqiMOHCEH2sWbNG
2JmC78yePbtdu3bS6b/vvvsOXq+goMBgNs6cOTNw4ECd9bFsdA7VJwwZ7d69
mx28D42nMDWpVeEUFhZC5Oic78QWfgwbNqwCBnNUdrGsrKw6deqwI14fPnyI
eAeKNzY2ljNZ/upDxaH6IBLU5FYZrepUh7S0tN69e4s7Jrv7WLw3c/v27QiI
EL6dLQfKGdGisNQhNze3YcOGOqtZysrLBF1G9mAE6TdlS09HId+/fx/P/eKL
L4RFyOgdyDzUI/qFwhyZbProUz179mTTMUgZ7Tk0NFTcpDkVslZVL62IsvLB
zHr16m3atEll4gxtFfLz589Hjhzp7e3N1Ds6F2JPsbFSg+wsHsI0/jkdk0FU
snz5crq+hCD+kuzfvx8qTrDq8DJ2dnZS/1XBcCrksvKxlE8//RTfV/7a69ev
R4wYwc6UVsPx48fhmHRmriGJJ5TDltVBAzRq1Gju3LlQWRDwENUw1N26dWPj
Y8eOHWvVqpXsVC+c76JFi+B5lV0SKoutM5QeJuDs7Ozh4cFEAqKerl27Ojo6
4j+Q6LIX4DI0KRzkefHixQsWLNBZW8iu2BNunq3MoDyTk5OtrKwgkq2treHB
9+3bxy8POKuvrHxJBrSBWY/70KrBi3n27Fm/fv2kE8oZGRloZmzXQ3FxMZo6
YqLHjx/HxMQgaMJfffzxx2yiB10AInbOnDmyWxrRTVDmBtd36Ss9HYX89ddf
I96Jjo5mDQ8/QpnPmDEDGYOkUYjXZNO/efOmra1tQkLCjh07Bg0ahGBKJ/Tg
VMiaVL1sRQiD+TwH1/CgoULG+/bv3x+1I37xzZs3169fX+UNngzZWTx9F5hq
C9oVwrrKb9wIgjAB6Le1a9fCZZw8eRLyAHYmJSXFrMsjeeBXyGXlqtXHx0c5
iodK9PT0LCoqUpMrPMLb21t2XOL27dvwm/CPwcHBKM+oqCj4Qeilb7/9tqy8
kMPDwwMDA1esWAHdojCcC8GPd1H2GqgdOHrpGQXsoNFmzZpNmTIFihQ5gXRx
dXVls7oKm2I0KRzk2cvLS+r6T58+DWWCnOi8grZHkGkFaiokJASOm+0MGj16
tFHnuvBUX1n5iXxTp041awloUqdiIJOglyACpQ0Jahzx4MSJE9Hsg4KC9u7d
i1aHxp+UlMSOQYM8RseJjY0NCAhAcKfvxZFyREQEElGWZPpKT6yQmVysVasW
pHtEOStXrvziiy/wBWRMZ5qDJ31I4hYtWkAuHjx4UFZdcypk9VWvryLwyvjQ
wcFBZ4EccmvZVRZsv3CnTp10Vh1DvqJ20CTUzy7JzuINGTIEgnnnzp3mG+BF
/4K5qJjFkwRBWARYwvv37x84cCAvL8+yiysEoJA7duyI8Bxez+CdqrD/iOLn
z5+vYGlhjRMSEgxeR6gAEofmVFjUB0fw4MEDoQCfPXvGBjQEYKh59j9eu3bN
z89PYQ8L7P/69evFRwGU/W9g2c7ODn+IEsNvWT6hXvBQZa+tvnDu3Lnj7+8v
XRddVr6xsXv37uIxZGQPHlOrkS4NgbxnEg4uLyYmhg0mOzk5KQy/SzFYfWXl
swwI61TnVwn1dSqGrR6fOXOmwn0caPBodayWf/31V52mju6DLBnUWugyeAo0
tkKL1Vd6YoWMZj9w4EBfX9+XL1/evXtX6JXogwavFDGtdjgVssqqV64IhGZQ
yELPwpdPnDgBw2isVUdlnT9/HtH9pEmTEIyrH0NGh5I9u+P58+cwHerTl53F
g7kWZvFUpq8PNDOzHkdDEAQh5fvvv+/QoUPz5s3t7e2hBg1+H2owKytLeWhI
JadOnUIQUTEnw9+8eXPr1q1GyRu2pNx8F2wpPxq5VTgRFN528ODBn332GcRn
UFBQSEgIz2LdCgbObuzYsfCngr/GG/Xs2ZONJPMfdFxmUvVVckpKSqC3Nbmu
ziB4SmJiognrEMQKGSF/y5Ytjbr1UiX8Z1moQbkifv/9902bNg0ZMgQdbeXK
lYhD8R8Tag0tv1OnTra2trDA6LZV4joM5Vk8giAI4m8LO4jYqGvdKhLIBmge
8cnblY1jx4517NhRZ1lCaWnp8OHDHRwcKmBBI6ESsULOzc1t0qSJURduqqRi
FDIPCM3u3btn8Aj0vx4GZ/EIgiCIvyHsHFQ6dMhkUlJSPDw8pPPReXl5bdu2
Nevld4QmoPEjlklKSvr+++8zMzN9fX0rbIHoo0ePduzY0b9/f4hkiytkgiAI
giAIrTh06JCLi4t00fuJEycGDx5cSdbnEwogSJw6deqoUaOEa+8qjIsXL44d
O9bf3//w4cMV/GiCIAiCIAjzAQ3s7e0dFhYmXj/88uVLiC66MIsgCIIgCIL4
e/L48eOAgICRI0fu378/Pz9/27Zt/v7+GRkZlXbtNEEQBEEQBEGYmz///PPH
H39MSUmJiYnJycmhk04JgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiBM5v8Bo8cE5Q==
     "], {{0, 204.}, {950., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{734.6666666666638, Automatic},
   ImageSizeRaw->{950., 204.},
   PlotRange->{{0, 950.}, {0, 204.}}]], "Input",ExpressionUUID->
  "77cbcc1f-5f9b-4c51-9292-396b1462f5c8"],
 " FieldNumber = 7"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.748965833520466*^9, 3.74896583850887*^9}, {
   3.76753949071449*^9, 3.767539490714542*^9}, {3.767539876165092*^9, 
   3.767539876293001*^9}, {3.768090021473961*^9, 3.768090021643847*^9}, 
   3.831223719734989*^9, {3.8312250668089714`*^9, 3.831225067130825*^9}, {
   3.83122618810114*^9, 
   3.831226189134371*^9}},ExpressionUUID->"3c792501-93d9-4464-b13c-\
455b322a6582"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"77655209-9aed-4f04-b552-e510dd25d6be"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}},
 CellLabel->
  "In[201]:=",ExpressionUUID->"38f0b181-d882-4801-b04c-2abd08471ecc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.831839776814874*^9, 
   3.832947489655501*^9, 3.8329617743218756`*^9, 3.8458268634457483`*^9, 
   3.845852457115632*^9, 3.845857067546227*^9, 3.845919612678271*^9, 
   3.846006566110799*^9, 3.846099876507902*^9, 3.8474704379987803`*^9, 
   3.851700623223165*^9, 3.853975440382525*^9, 3.854977395640379*^9, 
   3.8549892538490677`*^9, 3.854999890467148*^9, 3.855165238153096*^9, 
   3.8551823079704676`*^9, 3.855185852736418*^9, 3.8553306280362253`*^9, 
   3.8553398340020494`*^9, 3.855343170862393*^9, 3.8553440052622857`*^9, 
   3.8553527329574833`*^9, 3.855449597762117*^9, 3.855507600049089*^9, 
   3.855508396136571*^9, 3.855512883730386*^9, 3.855533122153097*^9, 
   3.855533315364555*^9, 3.855578908804587*^9, 3.855593281994934*^9, 
   3.8557505942441907`*^9},
 CellLabel->
  "Out[202]=",ExpressionUUID->"4fba257a-bd80-46ed-aade-b41b2d8f54c2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"cV", "[", "1", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
             RowBox[{
              RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"KroneckerDelta", "[", 
              RowBox[{"cc", ",", "dd"}], "]"}]}], " ", "+", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"cV", "[", "2", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"\[Gamma]5", "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "3", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], " ", "+", " ", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "+", " ", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "nu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"nu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "4", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], " ", "+", " ", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "nu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"nu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "5", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
               RowBox[{
                RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
            " ", 
            RowBox[{
             FractionBox["1", "8"], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammadown", "[", 
                  RowBox[{"mu", ",", "nu"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"CommuteGammastdown", "[", 
                    RowBox[{"mu", ",", "nu"}], "]"}], ".", 
                   RowBox[{"\[Gamma]", "[", "ld", "]"}]}], ")"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"cb121cdc-69aa-4b10-bf35-0e1823c3c209"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"aeb8b756-c487-4371-918d-818b46416bee"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.831839780444157*^9, 3.832947493140336*^9, 
   3.8329617778154607`*^9, 3.845826867194545*^9, 3.845852460821918*^9, 
   3.8458570709822598`*^9, 3.845919616380583*^9, 3.8460065697463536`*^9, 
   3.8460998801643553`*^9, 3.8474704416277723`*^9, 3.851700626912719*^9, 
   3.853975443751123*^9, 3.854977399989114*^9, 3.854989257123913*^9, 
   3.854999894120681*^9, 3.8551652417391095`*^9, 3.8551823115583*^9, 
   3.855185856262486*^9, 3.8553306320821204`*^9, 3.855339837546842*^9, 
   3.855343174675928*^9, 3.8553440088369303`*^9, 3.8553527365089893`*^9, 
   3.855449601123783*^9, 3.8555076033674107`*^9, 3.855508399795397*^9, 
   3.8555128872505608`*^9, 3.855533128757841*^9, 3.855533318880374*^9, 
   3.8555789126710615`*^9, 3.8555932856634254`*^9, 3.855750597836319*^9},
 CellLabel->
  "Out[204]=",ExpressionUUID->"b509f033-eb70-4ebd-b654-3a2b9b295331"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]hat", ",", "\[Beta]hat", ",", 
   "\[Kappa]hat"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"b1a633bd-9a84-44aa-8771-2db663c66f1b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "4D, N=2 tensor Holoraumy, both untilded ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox["D", "a", "i"], ",", 
     SubsuperscriptBox["D", "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"aca504f9-7055-455a-bdd9-1513b13ade6a"]
}], "Subsection",
 CellChangeTimes->{{3.550920278304533*^9, 3.550920282240758*^9}, {
   3.5509221619582715`*^9, 3.550922211396099*^9}, {3.551793495341796*^9, 
   3.551793495906828*^9}, {3.5594927244525585`*^9, 3.559492746318809*^9}, 
   3.559499496819916*^9, {3.7113930579483547`*^9, 3.7113930664148393`*^9}, {
   3.711393103948986*^9, 3.711393104741031*^9}, {3.746807497233589*^9, 
   3.7468075031958065`*^9}, {3.7468296820915112`*^9, 
   3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, {
   3.751405314474931*^9, 3.75140531586872*^9}, 3.76753934580381*^9, {
   3.7675394595983562`*^9, 3.767539483364336*^9}, {3.7675398556290913`*^9, 
   3.767539855771489*^9}, {3.767543491843978*^9, 3.7675434934179277`*^9}, 
   3.768071522713936*^9, {3.831226401067482*^9, 3.831226401762913*^9}, {
   3.831229415899145*^9, 
   3.8312294169236383`*^9}},ExpressionUUID->"9ceccc63-37d3-425f-81f8-\
413cd3129ebf"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdQVNf7v8Xee8eKXaPBGNFEjdhFRUHsXewFUSyosWNXxIqK3cTesCQ6
MRq7JjBiL2N3jDGOJWMZzSQZ/s+P88+d/e69e7m7e3dBc56ZZGT37rnnnvK+
n/fcU0oHh7btnzZNmjQjM/O/tr3DG4SF9R4XlJs/2g8bOWjAsH59/YaN6jeg
X1jt4HR82Iv/ovnH//07USKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQi
kUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEkvr4+++/T58+PWnSpK5du86c
OfPevXtWF/z111979uw5c+ZMSuROIvlouXv37pIlS3r06BEWFnb8+PF//vnH
6oJLly5t2rSJDpgi2UuFvHr1aseOHYMHD+7Tp8+GDRvevHljdcGLFy9iYmKe
PHmSItn7aJBOQSKRpH5u3rwZGBhYuXLlzp07+/n55c6dO0uWLMOGDXv06JG4
4MaNGxixAQMG4BpSNqsSyUfD69evJ0+e7OXl1bp16w4dOpQpUyZNmjSNGjU6
deqU0LEvX76cNWsWn5w/fz6lM5sqoFj27t376aef1q1bt1u3brVq1cqQIUPJ
kiVXrVr17t27xCRNdeDAAV9f3zVr1iDAUjq/HzDSKUgkEpfy6tWrjh07tmrV
in84nMihQ4caNGiwfft2xeALv1mgQAEPD49S/7JhwwY5CiSRmMWDBw/at28/
btw4upv4hP61b9++GjVqoGPz5s1boUKFfPnyDR8+/OnTpymb1VQCGnX69OkB
AQFXrlxRPrx27Ro6Ch2bKVMmSqxgwYJYs/j4+BTM50eAdAoSicTVYNLnzZu3
ZcsWh0cb/vnnn/Pnzz9+/Fj9FSZrz549pM//X79+7VxOP3goKFkIRlA3Renj
NHn06NGFCxfUn1Ncp0+fXrhw4erVq+/fv+/+jKVa3r59e+rUqffv36u/un37
9po1a6Kios6dO/ehD71a5R/L4+Ynkk7BLGir0vpJXAom0cvLi1gypTMiSaXc
uXMnPDx8ZBK+vr4DBw787bff7EoBBzRz5syKFSviZ62+MmUUPVUxf/58T0/P
wMDAQYMGde7c2dvbOzo6Wj23UyKRqEEWNmvWrGrVqt26dcPUYBl8fHwSEhJS
Ol8SO8DcHT58uEOHDu3bt69Xr17NmjV37Nhhr5TV8RpEvpUqVSJek3ZVcvXq
1TFjxty4cSOlMyJJjbx48aJ169ZLly4VwyDXr18vXrw48syu8QfszPbt22fP
nq3+lfOj6KkKnpTHyZEjh4eHR/r06THdu3bt+jgeTSJxA0SyKNjMmf/vgPbs
2bMT3lpOmZB8EJw4cWLkyJFidhDCderUqVmyZFm3bp1dglPHa9y9ezc8PPzi
xYtmZlriAog+Zs2aNXny5ClTphw9ejSls5OKOH78eFhYWEBAQEhIiC01dfLk
Scpt0qRJM2bM+C9L9Pfv38fFxf35558O/PbevXslSpSoUaOGmIv47Nmzzz//
vFSpUsrrXT65fPmymdlV4f5e4HCJYXWXL1++b98+VKvbxgfcUAUSiV389ttv
165dc+CHKFjEz6NHj2wN2aX+1o712LBhw6QkoqOjP9DJBg7bQH7Sp0+fdu3a
/frrr+ITnEXZsmWrV6/++++/i0/cUInOeD0jkDLpi+WTElvgCnPnzu3n59e2
bdvNmzendHZSCz///PP48eOxdZRPoUKFTp06pXnZrl27AgMDW7RoQRlu27bN
3rvQxY4dO/ahv6eglIYPH7527VrHHoRfXbhw4ebNm+LPO3fulCxZskmTJspL
f+wz6a9fv951BeXmXuBMiSkK1hUZs4UbqkDhyZMn33zzTURExJIlSy5duvSh
9w7ToS6uX7+OfrMsGf79xx9/pGCu3MyVK1c6d+5M83Dgt4qCtXWBO1u7FeTt
6tWrDx8+tKpcqxlQb9++Rbu2adPmyy+/LF26NNe7OZ/O44wNRNpR+zlz5jx+
/Lj45OXLl3Xq1ClatKgyH8DVleik1zMCKWMJQ0ND3dC10cmHDh2aM2fO7Nmz
+YfmTHjjuHP3Qlzh559/bmvaIdKid+/eHW3Qq1cv+tGRI0dshSFHjx7lEVq1
aoW6c6c1oD2PGzfOVra7dOlCrjZu3Pj8+XPNn/M41CNugn8vWrSoQIEC+qaS
dLAk9ipYPDUlT+E42VrM4u+//3769Km9ESWZHzt2LM3AlFCURCZOnOjp6amY
JgFlFRQUtHfvXs0MLFu2bPDgwYQSVsPgRkbRBfq9wFycLDGhYL/99lueGhNK
Q1VP4rIXys3Hx2f//v1KDsneggULLCcn6FSBWWBFeZzWrVvPnTt3z549kZGR
VArV6vBiK7zM5MmTO3XqpGkHunXrRkUQsKR+7UdFnDhxIjg4uEiRIiVKlKhb
t261atUqV64cHR1NK6JJ4EnxdKZ4BGw+/aWPAUaPHp0i2omb+vv7//DDD479
XChY3NaUKVNGjBiByFHPkHdDa1egco8dO4YzpXJLlSpVv379r776qkGDBuvW
raNCRX8fNWqUZuX+9NNPn376aQoqWPrss2fP7HXuznsN+ixmQbkvJVC+fPnP
PvtMGYNNdMhr8PmKFSvoSr6+vthYW89litczYnWpdGL5MWPGuFQk0JVatGgR
Hh6OhqE7tG/f/pNPPkHHOpCU+3cv1Pfd3I6eHhUVVbJkSXJSvXr1Xbt2nUqC
ToeKHjp0aP78+cmnejIejpVaRhSJdTTu1GnUe3x8/IYNG5o1a0a2CdYQorgA
sn3y5MnY2NgZM2bQ8bNlyzZhwgQd/0X7xP3Vrl1bfzs+BxQstUke0qZNS+So
bPWTUtDTBw4cWLVq1SpVquTKlatixYqLFy8mzDfyWwq5adOmlnbDMR4/fow3
8fb2pi1pjnhTcZSV+r3hjh07Vq1aRWOjiWLqlc8NjqIL3KlgnS8xpB0NmwcU
u51Ta999950zWVqzZk3evHlJUPxJYRYrVoz2aWXAbVWBKWA95s+fj3GzdAr0
rHbt2iHYNFdtG0nz8uXLtBAqFztAsVNQp/4FEz1t2jTaRtGiRXfu3JlSg71E
x02aNEFT2XpdyCO0bNkye/bsBCwirBZglOgyNPKDBw8WLFjQsvE7AxYbpz91
6tSsWbNioJDNFOC+f9myZQvuAL+fIUOGPHnyODYK6gzYpd69e+PrHZ77jZMl
qqXAaVRv3rzhH/hTtQh0aWtXoHIRD1Qu2bCUUlQunyAG6OD58uUjQtH8eQoq
2NOnT9Oh8BqlS5fOnTs3kpvMGOxEZnkNATddsmRJ5syZ6QIGTZam16BFERIi
XDFBQ4YMwafb8vum5N+g1cUG0v1tNQDnoR579uxpaWAph6VLl3p6etobJKbI
7oVGfDcVigolD8Td6kiQeuzatWv69OmxKpYyFX174MCBe/fuoUkwsymy2GTj
xo1kjOhM3cd5KKoJ00HXs/VGiWqtXLkyjVl/cMMBBXvx4kU6PkVK+o55Z7O4
cuUK/kgJQNDzgwYNwnMhG5Id+6JyaTy7d+82KzM4F+QZfQcTYdVgqIKQkJB+
/fpZtjHc2ZQpU6jczZs300EwoeJze0fR3aZgTSkxGoxiWnnS7t27o/wdbkUU
LKVKCsr5SjQGXNL333+vvlJdBWaRkJBAHvBEVsMaVFzhwoWdMSBEMb6+viiu
rVu3qr+lzRDh0kKw5I6l7yTz5s3DDmD51TEjvgwLRvbojJoNGAHWo0cPpCb1
pbhCUzh69Ci2kZLXlHBCM2BX8Vkm3tQI27dvr1mzpjOajczfuXNHMel0SS8v
L7yqlZF3aWtPTNIJWDkqF4mlOWOTysWxZsyYkUjB1lYJKaJgxdttJIHSNsg/
KgVXGx4enuy8TdO9xrlz53CmEydOVI+I2uU18HcRERFvkmiWhPooOrPyb9zq
AhEld7x7964zd9QE29i2bdtevXpZHa7HgyObfXx87JKaKbJ7oUEF26VLF1sK
NjGpHDp06JAuXTqssVUEQaSD6k6pQ/GIp/BcWFpNjUpWV65ciYmgrWpGW0Rw
WA96q/5d7FWw9PHQ0FB6VqZMmVBrmFODPzQdGmpwcHBsbKzlh3RwEbBgP3VG
Yik9YpbGjRub+xKWO7Zp0wbDoh41jYuLIxpSB4aUJ90QL68ezTY4iu4eBeui
Eps7dy4NyWGLKpbOEYYL+49jxQ2VKlVKfcBlou0qcJ5ly5Z5eHhQU1Zze2gP
zZs31wxCDXLjxo0iRYoUKlRIU4xRF/Xq1aO1jxkzJkWibDJw9uxZtd/H0hKF
Yb5at26t40cOHz6cLVs2S1doCjQqyuSrr76y1VZxVWSMxmNXsvgvpK+mMDAC
bYMszZo1y8QBc6LmBg0aVKhQQe0jXNfaqVyegsr19/fXGcrj1lQu3dNWOTuj
YGlyy5cvVxYgGAe9GhgYaBW8XL9+HaOBM9XfNtN0G8h9KR8Uqa1AwwGvgVYs
UaIE+VQ3M7Pyb5fVRV81bdp09OjRphsoTCLBO2HUiRMnrL5avHgxbmXnzp3m
3tF0TFGwiUlbZiHGEKuWQxli5z3LVTluRl/BJib5Rzpj2rRp1aP3EBUVVbBg
wWSXNNqrYClzQv4jR47Qcgi7UvA4S6JXKkgtoclh5syZkZE6eaNIq1Wrhj9y
Mg+3bt2Kjo5WjDC1MGHCBBobhsLqShwf4pZGaBVrJyQkoE/mz5+vrkGDo+ju
UbCmlNixY8ewugcOHFA+oZUSPDr8mokqpttSBeJPuioOnQBcM3ixVQXOQyOc
OnUqWs7qcypuwIABWbNm1RydMMKOHTtwrMhUTacjBAztjUaSejYloyWvX7+e
PlijRg2dNUeJSY0K+9a9e3cTawQxgHOnTMLCwmyVCb6vX79+9i6UxujVqVPH
4fcFe/bs8fLycmaNudgClOatlCrtHEFStGhRtRl0UWunctetW0flYnOU1fSa
iMrVcbvOKFjCIlq+vWtCyTzae8SIEVb2gRwOHjxYTHrUcfdmeQ0ltYCAAHqK
2JgFV6JukA54DcokT548miVjVv7tsrrAlTgy0195UDjLli3buHGjuoXHxsbS
RBEqqccqamKWghWOhmt69eqlRENnzpxBBRHoEWZSBe5fspSsgk1MsorUVLly
5azCHzF3Amma7DxVuxQsRdGjR49Lly4RPBL+EGK7IsY3CPFy+vTp8+fPb/UK
8saNG+SNotNZmP/NN98Qszg5EY7egZek2SgRhKJgcTTq6xctWlS6dGkslfIJ
10+bNg0HRAx16tQpZWK8wOAounsUrCklFhMTQ31t375d/MnjT5w4MXv27Mq7
MHtZvXo1YZSydI6yJZOED8gM7qW2bOoqcCm0ELSlh4fHihUrHPv56NGjaU74
XE1TTLOh8dDU8YNOZ9Y0sJzEzkS4P/74o/6VL168qF+/Pm7IxLsL4USZ6Ni0
uLg4Gp69a8ecUbDCDfn5+Tk8hJuYJM4DAwM/++wz5Z0s1rtWrVq2xjld0dpP
nz4tBr6MVC7Chh5q6wL3K1hqoUOHDnSohg0bWnlGHL04D1fnTbEpNlCAuSaG
Ugw+oWh4eLhmRGCX1xCjrCVLltR8a29W/u21utyRC9xpoyiTLFmypJ6V5rYw
S8EmJk06xejRKpQZ6QsXLqTY+ROHa+9uw6ZgRMGKVwbp0qWj5Vh+Lobvhg0b
lmwMYlzBUgJRSfAP4qmyZcvqq0RXQ+3TSulKVpMA6VCFCxemTGx1GZoBjaFe
vXrOL0NDReOVFKOH0f7qq68wg5rbjJ89exb9ZlliBK1NmzZt27YtP8QCWI3P
GBxFd4OCNavErl27NmbMGGU4ETdE2+vevbvBlXeaucKZIvUTk96sDR06VEgX
LNiaNWvUfVZdBSZCXzt37hyuEL164cIF7o7x6dq1K8YnMjLSgQRfvXqFwOOJ
tmzZov6WxENCQki8SZMm+vNM3IlYamQ1GmALjE/r1q3VY9fOoDkJVgzXKHM8
MF+//PKLvSk7o2DFevOIiAgn/cimTZtWrVqlJIII5Eltvfs2vbVTuW3atDFY
uYhqKjc+Pt7WBe5XsMpYK6bMqstQqmnTpsXj25qxaaLXIPP0kRYtWoxKAqtF
qQYFBWlGN3Z5DVLgq+bNm6stqln5d8Dqcse6det269bNRdvP3rt3D/2GYDt8
+LAoQ7oJWWrUqJEzAaMbMFHB4npy5cpl6SxOnDjxySefjB49mkaSIhMJjChY
ZSJcjx49aEvY2D179uBJY2Nj8+bNa2SVt3EFS0/hLmLiE9ZJrNFbvHixXQ9l
IjxmXFyc5QJnAbFhjhw58GK2tvd/8uSJt7d337599QdhsA8rV65s37597dq1
a/wvyFRRtphxOg5WESdy6NAhOmm1atVs3VeMDo0cOVIJK/gH0TS9OywsjE5n
2feNj6K7QcEmW2JUBN4qa9asFHvnzp2t3gjwCFgYjCoPuHfv3v79++/cuZOO
hqXt2bOnOucGU8MRUBdcg65AG1ALxHGkSZWFhoZqekZ1FZgCxUL1kRmKaPfu
3ZgO8jN9+nQeDQmKZ8Q/OpAsbbtIkSJEMVevXrX6Css8YcIE7AN+0P0rkm7e
vDlkyBDsKqVtFWHt2rUrc+bMdEAjh2tQiVxv+sxq9STYhIQEupiTAzLOKFiM
Q548eXhYzW9pPzRp5BxxNyJq1qxZVgqEgEhsEES9z5gxQ+zhsGDBApocFtiW
MDC9tSuVa+SlCVmlL+jsBOh+BZuYJMJxEFZD1tilr7/+mmajM2vXLK8hTjRI
owKrqJmyXV7jzp07xYsXnzJlilpGJpt/inTMmDEYnPTp01MONDCrfX0x2qTv
gNXljtzX8sgGs6Bf+/v7N2vWjDJH6q9evZqg/saNGzNnzqRIiQuMd/n79+/j
kqwKh6emldLSxKofup65ZzSYqGCxyXgKLqNtKB/SmPXncbkUIwqWCqIGyTbt
GX9XpUoVgjuq1cfHZ9y4cUZK26CCJSn6i2IxxPwr7osbTVXbttO7Me9kjP5l
a8tcMQMcT2crESG0ihUr5uHhwf+LFi0qjEzp0qXpvDQ5OqzlwBEdk5JZv379
mTNndMpczFps0qSJZWDIveg7aplqfBTdDQpWv8QImnLnzk1ZFSpUCNkphjgs
jRWODNuitBO6FdH61q1bb926pW48xlOLj48nTIuOjuZbcihKnj5OedoyXJpV
4CQopX79+uE4LGfUiCXPqAvaT5YsWSyn/hpn+/btGTNmtFqvwb/5nA5etWpV
mpzrTtWxBa4Q+Yq14R8oEMuhFaogKChImKMU2WdPmQRr6fERFWQyKirKycSd
UbDLli2ztSqfQhsxYgRhDnWNfkDE8m/LHbd4qMmTJysLpWlaeKvNmzcjh/QX
o5nb2sXqIcpWZ6cmu0gRBasJxVizZk0eTVP7CUz3Ggaxy2uQAZqZ5siVfv7v
3r0rSiBXrlz58uUT+0dZxilcMHbs2FevXjlgdROTNi3hVybuX0cJbNiwIX/+
/FOnTrX0uVeuXKESAwMDeYShQ4cajN1IgacTo8qWt8CGE69haXv37i1ehzk2
H8wWJipYKgiNzWVoBhNz6AxGFCxPR+xDtqtVq8ZlREkYQ8IiAiiDs7wMKlhc
8PDhw5WmIg4W4b7JxqSJSS2BmAj7rA48daC7OXBGKvVIidENKQFb1xw6dChn
zpy2Xr2RW0o+W7ZsxAJifQS9gDCTKCw4ONgZwSCGVXVCUW7twCi6GxSsTold
vny5UqVK4eHhYsk5jQF9VbJkSWVyI2aW2MfgOKFdqa1atcpyT0IjJFsF9kIo
Rxegtai3UyCTfn5+dOHChQs7cGozbQAZRkfw9vZW9uHv1asXxhmH2KJFC0om
RWZ5rV27lg6SmDQLl6i/WbNmyoAh/aVEiRLkmfA5RdZQiAErMsD/GzVq1LBh
Q8qKposbOnbsmJOJO6xgxYR5VI36DTVdHp9IblGkwrZgkGn/yB5lcJsW7tj+
8+a2dqVyR40aZUrlph4FSzSNeUfC6VRuqvUaKFtydfHiRazloEGDUAKavkAn
/4hkVAQdWVn7TNuj7/AsQjbzdEuXLhXb/jhgdROTZmlydxNXzWzZsiVr1qyE
0lY2kOIaM2YM4oEwcOXKlQZTQ2nMmjXLSsn88ssv2F7ahghqxDrKVq1amXgO
sokKllYnFCzd06zsOYlBBSsGPaxO9DCOEQWLuejZs6dlAEVtImiND9QTsxN+
nrQHepO9I/ZiM+fMmTNrzsZRoE3Sm2ydWUPfLFSoEJ3XMsKl0dKjy5Ur58zu
hWIWFnpMc9eRxKRxVwdG0d2gYG2VGFVPxGc5MU+A8O7QoYOYe4PdW7BggZGB
ertSE9Ox7G32yVaBGtrhxIkT+RWPr34KjCSdtEePHupeQM+qXbu2/rZOOvAT
fkjcpyx8s2T//v358uWrX7++6VsU6kOnCAkJETddvnx5unTpLOd2it2xKJBN
mzaZeFMRyIwePTo0NFR/XRKiKHv27Pnz58dfX7t2DY2NJRk4cOAnn3zi/Ns0
hxUs+cd+au6ejd8hJEF+WH6IHUPERkZGiqnUND/H9vs1t7WL3bGoXBG/OE8q
UbBkoGrVqvhZ/RUHqdZrUAi0+ejoaIIgnsLW6x6d/OP9CcOtbBT9BbUmpjET
jNPrMWiOWV2RSaJI4y1H3+peuXKlePHiZcuWVW/BIdayYXWN7zLNQ02bNi0u
Ls7yQ6R7//79rUaQuF27du1M3PrPRAWLucPucZnOawI3Y0TBonD8/PzINt3Z
sdAgWQVLk8CWEkjinn78F/4tJvPY2ufH/YjjKemkVmfbqeEyepPmwXO0WxxK
wYIFrdqzWMSKZnDmmBsxqoahs3WUKhc4MIqebC9A+61YsWLChAlfG2PKlCnn
zp2zTMFWiaEQNA+9pVnyOVZIHBuknqusiV2p8SEtEMtj13BQslWghoKdM2cO
8b56YeCvv/5KxGFr40GMPCE8fWTq1KkOzLShpRUuXLhIkSKapadsU9CpUyf9
dXDcmraEVTdY+7STLVu22Bo14l6EV9ydamratCk9wnKpjjBZ+A4H1knpPwIa
r23btsWKFdOvOHHCgtVylTNnztChjI9X46cQzJtVUIaoEXS7+iv6oM6sCTHO
oLntLbF2TEyMunlQ6QMGDKDnIqvGjBnj2FJHc1u7qNxcuXJZGQflXtiHpUuX
Uj4EoWuSwOzovDc3omApASSZusC5RaVKlSgZ9Vf4MuPbL9CMu3btWqJECc2H
siTVeo0XL17Mnz9/6NCh48aN03nXYyv/ZJ7A0CqGEqxbt27JkiU0TqpSbInj
mNVNTAp/kNnGlwPotENlOZ6molM2CDJ+YCj6nBK28jvHjx8nNrcyg0SggwYN
sncfaR1MVLAieE/Z7aGsMKJgxd7C+psf6pOsgkVXII87d+7c9X/hV9yX6NU9
55kmC31TvG5OthxwGdQ1Ilz91YkTJ9DANBgrfyeiaSdPcCBj4gWHAxtx65Bs
L8D00Yo8PDwMzt+g1SFiLVOwVWJYP1vdGcuDEMIvYAcMSnFzU9PEsSqgURHe
qk9soddkzJjRy8tLc3gE7cGvkHOOrbXfunUrFVG/fn1by0gpEC7AtelPUaAl
9+jRI23atAZrn3ZCf0/WSlMXPJq/v7/l9DxxjCCq24hkwq3jIg1aLSRcy5Yt
GzdurBOn29oJdu/evVZbteggJr/5+vrWUSGilZo1a6q/UkarbGWsTZs2miNX
fKL5noUPR40aRTEuXrzY4c2EzW3tYvdCUtNsb/RK4jhEPn42b9681ELx4sWH
Dx+ucyK2EQVLJ6Lo1AXu4+OTJUuWihUrqr+iy2gGBWrQBoRsKGEr5anJh+41
bOWf9BFmmsVFGDV27FiaKAJPf+/fZDly5Ah3N/5aP9F2O0RwEkja2gdJHCJD
85s+fbrBcYMff/yRyNfSYtAwCArUcRCtkTDBxKUHJirYyMhITPcnn3ySssek
WmJEwVK/hHj0ZautRI2jr2DpkrgDzSOT9uzZgz3HTLniwDh7EVNWcKBGGi2X
EY2q37aIffaw0uoN9pEopUuXxnnZWh1mBPoI0a7pJeaGWQS2SkwHYliMwKxZ
s6ymxzuGWak5UAXi6Fs8plXVK8E+HlZThKxatYq2FBQU5MAAmpK4zpxDWmm6
dOkw8uqdClyN2PeYp1uzZo3l52KDu6JFiyarYElhwYIFxg9SuX//PpECekOn
g2MnK1SooD6B98mTJ6YMmzg8i0BMZcS5GO+kVDoNPjY2lgbgcOZNbO2J/1Yu
7U3/lQqCB61OxKTseG+LlJ1FQOEsXLiwVq1amjsfqvnQvYYDNlzsTrBr165k
X2smC1EYIp88GLxepx2K2SyFCxfWbIeEV4QMFJfBF3+JSULLaqSXiGPu3LlW
SpWKXrRokeacLocxS8H+8ccfRPd0OrKdelbWJ6tgySoZJtuNGjVSXuVj7lDj
w4YNmz17tpElqPoK9uDBgySl6YLRErTJPHnyaJ4mbJXPqKgomlwee+DB1afF
aUJbxZrt2LHDsu6I/W29ysQvkHP1I9M8evTooTl/ZufOnch1AlJnOjLpBwcH
64ckDuAGBWurxHRAVg0YMIDg3ZSd6MxKzYEqECvu1XvdKIsZJ06cqDYar1+/
btGiRfbs2XVWFOogdsmzNQlW3F1M41EfZesGUCnVq1cvU6aMGHzGPoh+cfPm
TdyHkRlo+IjBgwcbP7icYsQmEDXrXCPeo1ntBGsizsyDpfVSXHbte0Z0MGTI
kJUrVzrskkxs7Yn/Vi4qSNnKXpOLFy/mzZvXyEySFFSwFOmmTZuaNGliOc7G
I2PibMULH7rXcMCG06+Jo+mnmnto2AV2jLvb2k1OjU47FLpI0+5RrYsXLyau
J9vGX9VRJjNnzrTsZWgJdUHFx8dT0cZNlhHMUrCEBmLXGtP3K3OGZBUsvQ+r
iGG33PXi3bt3xFleXl7t27c3MvVLR8HSl3v37q05Qybx35nDuAwMe7J3wUzt
3r17m2Fo8ERtRuQKhcOTWrk2sWzQ1lYGmFYMjvpwPdFU1Ec00pGDgoKKFStm
MFq3BdXRsmVLx9b16OAGBWurxHSgcVapUsWxfVBdl5qtKqAVhYaGDhw4ECtB
tBUeHq68szt79izPTsNATvBt165dxQCjWNTg4eGhOdaE4sqWLRsJWvbBGzdu
+Pj4KK9L+GrSpEma4xt0rkKFCtmaBJuYNLczX7582AeHD+R1BnFoo/AvhMkU
l1jbhfHp2LEjMfXChQt1fk6HGjdunPqFJnasZ8+elHO/fv2WLVtGF1aWQkdE
RGDoiKb5tkOHDlOmTFGH52ISbP369V00M99hBUv+Z8yYQX3ZNVq+evXqatWq
OTPAbmJrT0yqXLHvjeYh5gp0UiSEt7d3ss40BRXsoUOH2rZta2XnyXBISIit
bH/oXsMBG86t6c60Aed3Y1u+fLla5JM+ghONQVNE50+fPh2RIJqWTjskLkCt
tWjRQi1vcIJE1ngKy/WtyVrdCxcufPHFF0o1UaGjRo2yyirdsHHjxo4NR+hg
UMGKoRJbCpZ+RPNDKCY7lmgXL1++pKCmTZvm8L6I+gqWp27atGmWLFnUQTql
jfszeAyQLQVL/WKpaFS24scHDx6gn/VPb3Q1ZJ4Wrt5y6t69exgoW96f5l26
dGn1+1lxajay3Mrm0GXoTStWrHByfF4cA2HuKfCJblGwtkpMh8uXL/Owxl/l
uCc1zSpISEj47LPPFi1axNNhq/39/S237kRK4ZHFWeoYEMSVsngK9Uj7V0+4
evLkSe3atbGlVhsFrFmzxnIjGmwyDk5TD4g5rrYmwWKpqlatinhGh5i7w7YR
KCWUJApW7K4THx8/efJkpTxPnTqFVCN7tsYbKToeecOGDVb7pcfExPArMXB3
6dIl1HvDhg3FrFd+0qpVK3EiAFeieZB2VhMYlEmwZu31pMaZ/WCpUGyI5ixK
W9Ag0erO1K+5rT0xacInDRiXZGti54sXL6g1aoFIJNlBsJRSsLQxxIBV36Q0
EDmoKVsF/qF7DQdsOPXepk0b58cNuCMClbtbljmCnIcSJ4vx59KlS2l48+fP
F9/qtEOireLFi6uXkHPZ+PHjc+bMaTWclazVxXQMGDAA3StGAjFc5EoRXXy7
fv16sYTT9Bf0Rnw3LqBJkyb0KfS8VRu4detWWFgYIpC+4MCGjfoIH4SXMbiV
kBViBwB+rt5GA0mMtS9VqpSnp6fVq3Pl1lSZ/rseBU0Fi2WbOXNmjhw5bG1/
l5j07p68UbDz5s0z+lSmQiaDg4NtLUjRWWJGR/Dz8yOIU8+OoBlgn3kipVSP
Hj1K6509e7bzspPEiZVMP8XMDQpWp8RsgZLB7Jilr8xKTV0F4vR2EPZQzL/C
ZYi3ReJPZRW5WFVRokQJ0SV///13gveaNWtarjHnh4GBgdhDq9EzYYctF6Sj
x/Bx6nU6PCaeNE3S3tRW7obeOmfOHKx01qxZaZPul6+J/64FFivIaA9ff/31
mTNnlG/FymWyR5Gq3+afPXu2W7du6gVcp0+fRgPwRKLfiVmv4eHh4jLxJ+5M
/ClOBcKjWabAvTBHeD3XDUo7o2CRN5QYbtrg9WIPbSuVbi/mtnaRq9WrV+Mx
69atqx4cpmT69u0bFBRE7RvZ+D1FFCxuq1KlSra8hs4JMh+613DAhtNaunbt
6vy4gVjJyN2VsVwKisCfLq9MNUG0EEmJ97n67ZA/J0yYgA388ccflVtglKKi
opA9VmthDFpdLDntFrnFlfyDHkEAsmnTJvRhmTJlChYsuH37dlfML9X33Ug4
2hU2TWmf+fLlK5sE4QAPS8YI7cmqrWamM8qdLGJv9iJFigwaNMiuZkzfJFeZ
M2dWso3FIMNkm8LEDFL+lDC9Q/N9h9iptWLFigYXD1opWB4ZT5EtWzZxa0qP
Tm0VTeOwsDyWOSRXFJSbpxB/88036dOnt2WLmjZtaqurirn3FKbmXpoEaw0b
NqQMsdU0/mbNmv3www+mPBrhRuHChc3daCjRLQpWv8Q0ofTEhpamZMCs1NRV
IA7KJPYXiYstsJRzOsR0LOX1jRjoQykp5SAGh2vXrr1y5crvvvuO0J5ej8VQ
j0CKbUN69uwprAH9FIVGHGoZn2JXMVlKq0YJUObCZPEPjAl2G23MD1N2+SQB
RYUKFaZOnRoSEkI3tKoX/jx06NAnn3ySPXv2Xr16LVu2DPMSERHh7+/fsWNH
9asucegkxlnZUN3qDNaDBw9i9JQty27fvk3wjm9N/Nde4eIVOy9OtvLx8VFS
MwtnFOzLly/r1aun1H6yEJv079/fSVthemtPtKhcypnaXL58eWxsLN0zODgY
k0v6PCnG08jMSfcrWAqfwMeWywCd2S8futdwwIajXem/zs/JoYoxa7NmzVIK
RHzSuHFj8Y5JLFxVXjcn2w75Fb0DIzBlypQDBw5Q5k2aNMEIEzhYlbkRqyvg
AgJG7mvZHtDYmBcn92HQwaW+W3+U2yCUOXbenSc/YkAIkCkWlOfgwYOJfTT3
BFYweCbXR0ZcXFzx4sXFa1A1FBdeku5gfCfwZKHv4O4t19yZhRsUbGJyJWYF
DR4LY7Uk3GHMSk1dBcKg5cqVS9nwCk9BbItJFH+KvT6UTWAwZQhUUrB8uU+g
JHbxJfEVK1bYmriIoCIpZdIsKeCCW7Zs6dhWnykOEuLEiRM6co5a4wJcDA6d
klmyZImtV89iTFU5iFYMP+KelFU2WF3LpccYNCHDzH6mZHBGwYpVtwg/g94Q
y+Pn5+fMcRUuau0CKvfkyZOicgcOHIg4OXfunL3b3KWSEw2M86F7DbtsOGze
vHnAgAHOqxdEJve1nFkqNtdCUQtlwtPVr18frSWmthpph/yQ1jtp0iRyOHv2
bNqS5qofe60uErpKlSqjRo0iAMHgOLNzoxFc57v1R7mNEx8fHxkZ6c4DFsUk
WB8fHzHzGd9K7eu8CPhvKlgaMP2FKM9twYWYvGfWyiZL3KNg7SoxbI6vr6+R
XRaNYFZq6ioQL8QtJ2ghQenm3OtoEvh6pJSyDTi9SX9qjQ7ohNy5cytze5Bn
pIwFRhHFxMS4M8hNbVAClStXVmb6vXv3rnXr1ng0TBOVhU+JiIhQNlPlmr59
+1JlxnetN4szZ860aNHC4cXI165dK1u2rMHdeJAZFIIzO2+kbGs3gjMKlmAn
ICDAXnfsJB+617Ar/7SWoUOHOr87E+n079+/Xbt2lqIRn5UzZ05lQ1f0CSEq
cRCmnoclOEopq7t//37kk8FNkJzHdb5bf5TbIOLMa81TPFyHWDKgLJqjj/On
OFBDk/+mgk1MKhmMg/5JgiayfPnyL774whVt1T0KNtGeEjt8+DChrlk7e5iV
mmYVrF27tkyZMiLcu3PnTvXq1StUqHDv3r0pU6ZcuXIFi1qjRg2hOh48eFCz
Zs1+/fo5MGoqNi7AaIv9bBFpeAexChKbqX8I8keP2MEAxCgKDouCwutRKV9/
/fWbN2+Qc9SLmJixd+/eYsWKmXtqrXGcPE2DxwkKCkp2ZbcYLB0zZowzQx8p
2NoN4oyCTUwqJXPzY4QP3WsYzz/2Fqvr/AFPtKsqVapYreK/efMm0ZzYhZUG
hjHMlCnT7iRQqilldYXMK1WqlNuO6nad79Yf5TYIJmLUqFEO70XgAGISrKXS
pppoGzoG/z+rYIm/QkJCQkNDXf2mIDFpFLFevXqaZ486j9sUrMESo8vMmTOn
d+/epoxUmJWarSoQU6o6deo0bty4wYMHY1QrV67MY0ZGRnJH7o4hbd68+fTp
0wMDA8mJY4unxItyTEqdOnUiIiK4UUxMDMm2b9+e8nTm2PSPg0uXLjVs2HD0
6NFDhgyZMWMGdVGrVi1qQSzWQPJhSHv27Dlx4sSWLVvataI/VUFF0wCSffdN
m+QxNY8cMkjKtnaDOKlgU4QP3WsYz39cXBx90Ektx11GjBgxaNAgK+EkjoBH
IU+ePBmRiWpt3LgxzVJMOk0pqyuu9/X1NWUPcyO4znfrj3Ibab2EDOPHj3fb
cLRAHGOnHBJEPgcOHJg3b16dRQ3/WQWbmORQ/Pz8HD600SDUwtixY0eOHGlX
+GMctynYRGMlhpHs1auXk8uozU0t2SqgX9+7d08JV61etdCtbt++7YzPio+P
pxtGR0f//vvv165dU7onDsJFreKDg9K4deuWsp88NWIV+z9+/Njco0BShP37
99OD9CfT3r17t379+g5vj5Pird0gH6KCTfzwvYbB/G/cuLFbt25OhjDcpWnT
prZkMEIRZSVugZ2nTVoOU7jf6orTgZFMbmj8Anx3hQoVdu3aRV8wd3Gu/ii3
kRQoBPefj4DN/+qrr5RjwWmrlE+XLl002+GDBw+OHj0aGxtbpUqV/6aCTUyK
NBH8Tm46rQNuAlMQHBws1gO6Atf1Ak2SLTEa2+zZs81azuB8am6ogmQh7LXc
k1DynwXLjEvFS4qtbjXBcc+bN88x6ZIaWrs+lMCFCxeOHDkSFRVVuXLlD07B
Jn74XsNI/nfu3OnwUfWCq1evBgQEmLUawgHstbrIoc8//9z5iRPGOXbsWLly
5QoWLFikSBHcnIkp649ym3gjcxFz9cU2FBjA4cOHe3t7K+etWCLOXytcuHD+
/PlLlSpl+mETHxCY06VLl7poKIwwAWfkUm/iul5gC5eWmOm4oQr0EdOxlLVI
kv84SLitW7e6yOSmeGtPllevXgUFBeVPwtfX1z0vj0znQ/carrbhpEz6zh9H
6zDS6iYmN8qdOkGv+vv7jx8/fsCAAT169PgQI1yJ5GMCA4ItnTZtWoqsPZFI
JJL/GtLqfrgQfdy5c8dFh4NLJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKR
SCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQS
iUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQi
kUgkEolEIpFIJBKJRCKRSCQSiUQikUgs+fvvv1+8ePHPP/+kdEYkEolEIpFI
JJJkuHv3bp8+fVq3bl2nTp0iRYoEBARcunQppTMlkUgkEolEIpFoc/v27Y4d
O/7yyy/iz4sXL1asWDF37twHDhxI2YxJJAYhBFuyZEmPHj3CwsKOHz+ufo9A
RLZp06a//vorRbInkUgkEonEXPDp4eHh33zzjeWHGzduzJAhQ61atZ49e5ZS
GZNIjPD69evJkyd7eXm1bt26Q4cOZcqUSZMmTaNGjU6dOiV07MuXL2fNmsUn
58+fT+nMSiQSiUQiMYenT5/WqFEjc+bMq1evVj68c+eOp6dnrly5zpw5455s
IKT//vtv99wrlfD+/fsNGzaEhoZ26dIlIiLixYsXLrqRumA/mqHIBw8etG/f
fty4cchU8QmPtm/fPpo0OjZv3rwVKlTIly/f8OHDaecpm1WJRCKRSCQmgutv
0KCBh4fH3LlzlXevDx8+LFeuXNasWQ8dOuTqDPz222/ffvtt+fLllyxZ4sDP
kWczZ86sWLHi7du3rb569epVx44dW7VqxT/MyKmZUOxjx47duXMn+UfKhoSE
DBgwgH+44l7z588nHgkMDBw0aFDnzp29vb2jo6M/jvV6jx49unDhgvpzdOzp
06cXLlxIXHb//n33Z0wikUgkEomrefr0aUJCwp9//ql8Eh8fnydPnoIFC16+
fNl190W8oVq7desWHh6OWo6KinIgEZTY9u3bZ8+e/fr1a6uv3r17N2/evC1b
tqS20V3yw8PGxsYqn6xfv/7TTz99/Pix6feifCiEHDlyEKSkT5++Zs2au3bt
Sm0FIpFIJBKJROIkaJ6pU6emSZNm0KBBlrLWdcTFxeXOndsxBfshcvHixQkT
Jrx9+1b8iZ4cPXq0r6/vH3/8Yfq9qM3ly5fv27ePu3wc464SiUQikUgkam7c
uOHl5VW9evV79+4Zuf7y5ctOTjK0pWCfPXvm0kHgFAEZuWTJkh9++EH55Pz5
85UqVdq2bZvOr96/f08pORBQKArWkbw6ykdZcRKJRCKRSFItr1+/7tSpU+XK
la9du5bsxaijb775ZujQoU5ONLWlYMnM8OHD169frzl4iKhbtmzZ4MGDAwMD
Ud2WXx0/fjwsLCwgICAkJEQ9u8AB/v7774ULF5YrVy5XrlxHjx5VPt+6dWuN
GjWUmZbca+7cuT179hw0aFCbNm1WrlwpNOe7d++UxVNcEx4eTobJ+RdffFG3
bt0KFSqsW7dOZ4CU4qUc1q5d68AgqlCw3377LWVFIrNnz1ZPGLYXMu/j47N/
/37xJxUxadKkBQsWKJMT9CtOIpFIJBKJxESQW0gRZNX169eNXI+GQac5P3tT
ZxbBkydPgoKC9u7dq/5qx44dq1atQo+VLFkSkaZ8/vPPP48fPx7Vt2/fvkKF
Cp06dcrJ7AmQZ6NGjSpVqpQyNP3mzZuWLVvWr19fvP0nJ76+vn369BF/Xrp0
qUyZMmvWrEG7ImvPnj0rfsVlX3/9Nb/96aefEKU//PBDly5d+MTW+Cr6cOzY
sdSLwzM6IiMjmzVrRrGQkz179lSpUuW7775zLCkBD5U3b14SFH/yRMWKFZsx
Y4alXtWpOLN48eIFsQDxQp9/CQ4O7t27t6hx6mvDhg09evTgQ+UC/ly6dKmc
BiyRSCQSyUeDWFcVEBDw8OFDI9ffuHEDrWs5IOkw+vNgT548WadOHasx4bdv
306ZMoWsbt68GTWFGhSfI/Nmz54tFPiiRYsKFChg1uFiSOIGDRq0aNFCmb96
/PjxggULokL5N6rVz8+vVq1ayoSKd+/e+fv7N2nS5NatW0hfZbMsdDXC2zJl
RCzCWHNNPSDDmjZt+vvvvzucc0IM5e6UT/fu3b29vR2OO5DB/fr1IwU0qvhk
165dVN/3339vdaVmxZkIOaHQtm3bVq1atTRp0lSuXBl1SqUobwQePHhw8OBB
NC3fZsuWjbgGRS23JpBIJBKJ5KPhn3/+2bJlC75eEWB8gh44d+6c5vXv37/v
37+/WUu99BUsQiUkJATVpN5sCpXYtm3bunXrKtuBKpCxTp061a5d26x9VhGi
np6eyGZln/yWLVu2atVKjLju3r07c+bMlo9AtgcOHIisQlHv2LFDfEiYEBkZ
ibSzTJkoAKWtuXHZvXv3Pv/8cxI35REEc+fOzZQpk8NpPnv2jCz17NlTVD1P
FB4ebjk0raBTcSZCfmrWrJk2bdro6Gj1t1TWhAkTULDNmzd/8+aN67IhkUgk
EonEXhA/e/fudWbO4eHDh4cPH/78+XPlE9z9sGHD7ty5o3n9iRMnypYtq7xH
dpJk9yLggjJlyliufhIkJCQUKlRo/vz56md//Pgx6nHIkCFm7d4fGxubJ08e
8f4d5RwaGopwunv3buK/Ks7qAAg+DAsLy5gxIxJOGRXkH6NHj/71118tU16+
fHn+/Pl5Fqs78lCTJk1q3LixM3sUHDt2DIVveUAw5ZwuXToxdOwA58+fz5cv
nyIXxdA0Yl4ZmrbEVsWZyIULF/LmzUv70WyNNOMmTZqgYJXQQyKRSCQSSWoA
pTRu3LiQkBCHpdrZs2dLlSpVoUKFT/+lXLlySIIvvvjCUtMqiNFFf39/swa1
klWw3KhNmzZ9+vSxHPJFkEybNq1o0aJXr149deqUsrBIcPLkSQSn1Wm5DiOG
8sRI4+vXr8eOHYtsU2YLUwUjR4709PS0FPx8OH78eKtpDDdv3uzRo4fliDH/
rlevXkBAgHrF2aNHj6pVq+bYQQ8KMTExyOPt27crDzJx4sTs2bMr8y7sZfXq
1VTW8ePHxZ9iaBqlTcjAvazG5DUrzlyQ4unTp69evbrmRAtqpHjx4lmyZLHU
8BKJRCKRSFIcJxXsixcv6tSpk0aLtm3bar7/vXv3rpeX16JFi5zO+//n559/
RhTNnz9f5xpuV7p0afSS8snbt2+bNm1KJnkEFJTV9k3oYRNPZEBeNm7cuHnz
5ocPH27durXlMaaC7777DiF3+vRp8SdC8ccff6RgUY/Xrl27f/++GIbds2dP
jRo1lOFWsYrf29v7ypUr6psiv0nTyXm83H3MmDHKKO7Tp0+//PLL7t27aw6Z
JgttDDmaM2dOMRHi3bt3Q4cOzZAhw7Zt24gg1qxZox7nVFeciZCf/v3701aV
WQ1W7N27N3PmzJqTHCQSiUQikaQgzo/B2suOHTsQh8rieocRx2kFBARUqFDB
w8ODNFGkU6dO1Rza5Xaowc2bNyuf8ODTpk2rW7duWFjYpk2bLLUTYqZjx45I
NfX8WMd48OABmUTERkZGamoh7shXXDBnzpzw8PABAwagP5FtiFgk3+DBg588
eUKGUenr1q0LDg6eMmUKT9q+fXsU7LNnz9QJCq1Yr149Jx+BYkHFIfN27ty5
ZcsWRDhi77fffnMsNQQwCjx79uw8V0REBM8VExNDmjxIaGio5hpAdcWZyPPn
z8UkWMvNKBSUSbB+fn6OKXaJRCKRSCQuws0KltuNGDGifPnyjx490rmMzPzw
ww/9+vWrX79+jf/Fx8cH/Wbva2Vux01HjhxpuRUSEuX+/ftqjScmwQ4bNkxn
3yR048aNG4cMGVI/CavVVY7x7t2769evW+bn/fv3t2/fFkPZr169QtySN3JF
tvW3F0Dxent79+3b11a1xsXFtW7dOmvWrOjJzp07W+lq8sDTKbKNh92/f//W
rVsR1ZrTQQ2mFh8fnzdv3ujoaDJ/7do1njcxqa55HFvLtTQrziwSEhJ0JsGK
kXM5CVYikUgkklSImxUsoqVFixYNGjTQOSkAmSSWzyAtypQpkz59ev6dJ08e
oWDr1KmzbNkye/UMt+OmJGtr8i0S5ciRI3v27CHl2NhYhI2tXU8Rz0uWLClY
sGBgYCC67sGDB+5ZpU6xTJw40aB0Rx8WKFBg7ty5mt/ymJSth4dHoUKFkJ0U
b7169Swl8e7du1evXm1QthlPbdWqVZY7wRoh2YpzBjEJtlKlSpcuXfpVBfn0
9PTMkiWLk/vfSiQSiUQiMR0nFez9+/ev6GK1cB5h4+3t3aFDB1tK7Pr161Wq
VEG4fv/990JBXbhwoWzZsuXLl3dmK04xMcDWgp3EpHFX7hsQEJCQkODj40OZ
iBFCK/gwLCwsQ4YMUVFRbt7Zft++fevWrTN48aFDh3LmzLlhwwb1V5cvX0az
hYeHi63PqPft27eXLFmSuEBc8PLlS54RZW7kRsZTExMbPvvsM7s2p0224hxG
mQSL8K6lRenSpflWToKVSCQSiSQV4qSCbdq0qeYyLoVevXpZXo+S8fLyGjRo
kObtUDskWLx48fj4eMvP582blzFjRmVFvANwu8GDB6OsbKkRymHnzp0jRozg
soMHD9oqjVWrViFfO3fu7P6JkZSJcSm1detWFKz6TKv3798PGzaMp7AaX/3u
u+8IK8R6sdjY2AULFhgZgLUrNcQ/CnbatGl2Kf9kK07N+fPnJ06cyK/094gT
O8GmS5cuJiZG/a3Yi4wGbHkIhYsgypsxYwYZ7tSp044dO+SZXxKJRCKRKOAW
z5w5s2XLls3/y6ZNmwICApo1a/btt99afcXFp06d0le2ON9bulgNnd25c8fT
0xOhqOmmV6xYgT5Ub9C6YcOG9OnTO7MxlNixqlChQrdv33Y4kd9++61atWpZ
s2ZN/a+V165dmyNHDvUxB1evXiVaUU/hQF7yOdrvzZs3FJTBc4HNTU0TByqO
apozZw7VtH79ep3LEhIS8uTJkzt37ri4OPW35FxEZ1OnTnXpJFiyMXToUEoy
MSm++/LLL5UDLCQSiUQikbx69QrdWLdu3ToqihQpUrBgQVyn1edcPHjwYLPW
4wvQtKiRUaNGqRXs8+fPa9euXapUKbVWmTdvXrp06Yy/Q1fD7caMGVOgQIGb
N286nMiBAweyZMmSMWPG8uXLV/gXdI6tgxtSkJiYmOzZsx8+fNjqc4SZ5t4F
gN4jZjl37lxERITBAXlzU9PEsYpbtmxZ/vz5bZ20KxCTYG3NaqBOS5QogQxW
H3drIk+fPg0LCxMHWyQmTZno0KEDnc51d5RIJBKJ5OPAzSu5cNbFixcfOnSo
WsGePXs2V65c7dq1s1qWjlvv1q1bjhw5jh075vB9uV1oaCi3VtSCAyxdutTD
w6N9+/au22DfLDZu3EiJ2bUP//Hjx+fPnz9r1ixT9lUwKzUHKo7a6d69u4+P
j+aBGgJlEmzv3r01W/6+ffuIVkqXLu26SbD//PPP6tWrt27dqnyCoP3888+n
T5/uojtKJBKJRPLRYKKCJalnz54lO+ugYsWKPXv2VF+GK8+QIcOMGTOsXto+
fPiwfPnyeHaxVsgxuF1wcHCyu3jpM3fuXDTP6NGjU/9MxdjY2Jw5c27bts34
T65evTpgwICRI0cqh9g6g1mpOVBxT548+fTTTxGoOk2RhkqLSps27YoVK9Tf
KpNgbR13awovX76kLSmb63LTRYsWkStnJrpIJBKJRPIfwRQFe+3aNVLo3r37
kCFDvvrqqwYNGhw+fFhz9uAff/zBBc2bN1ev9P/2228zZsy4du1aq89XrVqV
OXNmTaVhnPfv36NGuLVyvJQDbNq0CY0dHh6e+hXsL7/8kjt3brtmDt+6datK
lSqUtikZMCs1WxXH54sXL+7du/fAgQPHjh07ffr03bt3iyZ39uxZnr1Lly60
xj59+nTt2lWtCZVJsJpbe71586ZZs2aak2B///13bspvfXx8lBkUZAbBbHn6
LY/P3fv27cuH7dq1U05bs9wT7MKFCxEREfHx8X5+frVr1/7yyy9J08kz1CQS
iUQi+Y/gvIJFHgQHByvTFF+8eNGoUSPNhfCJ/77h1Zx8iOhCGCBLLD+8d+9e
1apV0QBODuUhNmrUqMGtnZkAgCwpVapUUFCQre33Uw/3798vXbq05nxjW1y+
fJkicmbVlStS06w41CyfiBOBE5Nmd6RLl045VnjZsmX8OWLEiLdv39Kq+/Xr
16lTJ6uh1DVr1nCNrU267t69qzMJlp/QgBHGSpZ42MKFC8+cOfOfJHbt2lWh
QoV169ZR+PwZHR1dvnx5ojx+SPgj8gxiseTLly+3bdtGcBQbG4uIVS++Mxdu
N2nSpGnTppk7v10ikUgkEjfjvIKNiory8PBo2rSpMkqGlkiTJo2/v7/mlqpL
liwpVKiQWHxtCRoDVdCsWTMlnV9//bVFixak4/Axpgo3btwoWrSolTy2F9TI
woUL8+fPf+TIEeVDlMCpU6cUMcNToOeRT0p57t+/n0905mS6ArLh5+dn105Q
PAViT7PKHMCs1NQVRy1Mnz6dWiDkEZ+gA4l9RKWIEMnb2/vJkyeJ/y4EQ45a
Tmd98+ZNhw4daKK2pjRv3LgxY8aMnp6emi/0xcliyvg2t0ATenl5CbkeFxdX
pEiRr7/+Wokd+Bx9u2DBAvQwDyIGdWkeU6dOvXjxopKs2HWB9q9z2IfzUFYZ
MmSgwxrcME0ikUgkktSJ8wpWuPvmzZsryjMyMhJ50KRJE035dObMmQIFClgu
YFF4+vQpsicwMDAmJgZV0KBBA8SwKYcx7dixAxWhaB6HobjIea1atSi0NWvW
oI66dOmCWlMuuHXrFsoHiSXkwfv375FJTs5ecADuPm3atDJlyhg/BmL16tVU
nFmqxqzU1BUn5kU3btxYDMtTI2FhYcpEWTEJtk+fPqI9U/5t27YtWbKkKAdS
48pMmTKJzYrTp09P4sRNYkASlevr64tgRuPxLTIvd+7cn3322blz5yyztHbt
WgQzzVj8Sd5QyMRxPKxYIGa1DQKBWKVKlXr37j169GhFEj979ozGYxnX8CDh
4eFk3vSzGywRJ1CgsQcNGpT6FyRKJBKJRGILU+bBIgCUn/OPvn374v3FS1X1
xQgP5MfAgQNt3RHnfvz48YSEBLM8LM/IAzZq1MgsGUmCKNWjR4+ieayecffu
3cgb5V0wsgrJFBoa6v6ps3FxccWLF4+NjTVyMUWN9NIMKxzArNQ0K+7IkSPZ
s2dHn4uS56v69esjU8XUDqRjvnz5Vq5cKS4W6pEUTFmelpjUvGm6VatWFe8F
aAA1a9YcNmyYGG0mBBMHH1u+o0eRVq9evVChQkhfpbXQvKdOnWrZBUjB39+f
rLp0DFaAnufuUsFKJBKJ5MMFlzpjxgzLl55OcvXq1RIlStSrV0/n1T8Co0qV
KgbPLXWehw8fVqtWzaw1SjqIcMBy5BOVmzt37k2bNrn61mrevn2LrrNcXqQD
Ss/X11dzb38HMCs1zYrbt29fzpw5N2/eLP4U7+hnzZrFTbny5MmTnp6eSgSx
c+fOHDlyaJ6u6xjPnz/38fERk2Bv3rzZrFkzwhNFcwqxGhQUZFnm4vCv5s2b
W75NWLdu3Zw5cyzDnzNnzuTPnz86OtoNL/fj4+MjIyNT/4JEiUQikUh0wGM6
78vwzqdPn16xYkXdunX79u37+PFjnYtx9PXr18dZO3lTgyxfvvyLL75wfjJt
sqBkGjZsqEwApmDnzp2rOenXPRw5cgQFePny5WSvPHz4cIMGDcx6f21WapoV
h24sW7asOG8LlT506NBMmTLtTgKlio6tUaOGOICYEAnp2K9fPxN3xLpw4QI6
c968eTExMdT11q1bLfvOX3/9haClCyhjsPSLqKgoRLWfnx/N49atW1zPZWS7
U6dOysjwo0ePGjVq1Lt3bzcMwNIs6aeuXjImkUgkEskHAZJ1zZo1EREReOqA
gIBk97GPjY3F0TuzO6tBkDT16tXbuXOnq2+UmCSu0CoTJkxQJsG2bdsWDfb0
6VMKxw0Pa8Wff/4ZEhKCptKfIkJu58yZg3wy5bWyWanZqjjSX7t2LQp58uTJ
ffr0QbU2btwYNThixAh+wrfI1+bNm0+fPj0wMJCcmLU2TYBkJSTh6bZs2aKp
NtHb3bp16969OypXFP7Zs2f37NlTtWpV/oyMjKQuaA9jxoxBRpJ/cjh69Giy
SsruOVXkzp07o0aNknsRSCQSiURiyatXr4KCgrJly7Zx40ad96GoO5z4uHHj
XOq1SXzs2LEjR450z/5Xu3btypQp06RJk8SD82eOHDl69ep179698ePHu2F4
Tc3Dhw+JKfSPRkVqkkk0til3NCW1ZCuOZnb9+nWhTrkjJWwpmCnq27dvu0cQ
avLs2bMbN25YZun58+cPHjwQDSMhIQGBTfbevn1LPk1Zq2gQ7khTPHHihNvu
KJFIJBLJh8LevXszZ87s5eWlf5b9y5cvg4OD169f76KJfySLiuYWyg6cLkWs
Jc+QIUOZMmXGJDF58uQJEybUrFkzJCTk4MGDbsiDJnFxcW3atLly5YqtC9CB
s2fPNuv4VOdTc3PFuZ9NmzaJeQ7uB9ns0r0OJBKJRCL5UEAaHT582PJd7aVL
l/LkyZMuXTr1AVtWIFHmz59vfMcnu3jw4MG8efPcpoJevXrVoEEDf3//58+f
X7t2TTmw6fHjxymuxC5cuLB06dLUfxCDwM0V52bQkNOmTdMJKCQSiUQikbia
u3fvlixZ0sPDY/bs2cpQ6o0bNwoUKMCHy5cvT9nsuZObN28WLVp0xowZcqN4
iQ5//vnnkSNH3DlzQCKRSCQSiRW3b9/29PTMlCnTunXrlA9PnDiRI0eOXLly
WW71/9Gzc+fOPHnyHD58OKUzIpFIJBKJRCLR4/3792FhYQsXLlT2FOIfY8eO
TZMmTZ8+fcxdBp7K2bhxo7+//9OnT1M6IxKJRCKRSCSSZHjx4kVoaGi3bt1W
r179008/hYeH58mTZ+TIkXK7HolEIpFIJMny/wDeIF1A
     "], {{0, 96.}, {918., 0}}, {
     0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{743.3333333333325, Automatic},
   ImageSizeRaw->{918., 96.},
   PlotRange->{{0, 918.}, {0, 96.}}]], "Input",ExpressionUUID->
  "3408238b-3b1d-4c41-8cfd-c789de4f0538"],
 ", FieldNumber = 8"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, 
   3.8312302427783546`*^9},ExpressionUUID->"cf97da72-8d45-4b29-b490-\
e94b044c5b9f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "8"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"9c00e2c0-f892-429f-a77c-90df07fc3dfb"],

Cell[BoxData[
 RowBox[{"At", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.8318058891268415`*^9, 3.831839780488205*^9, 3.832947493171578*^9, 
   3.8329617778563943`*^9, 3.8458268672444334`*^9, 3.84585246083394*^9, 
   3.8458570710222263`*^9, 3.8459196164507284`*^9, 3.846006569801221*^9, 
   3.8460998801799717`*^9, 3.847470441674632*^9, 3.8517006269595575`*^9, 
   3.853975443793936*^9, 3.854977400051631*^9, 3.854989257166469*^9, 
   3.8549998941518946`*^9, 3.8551652417859654`*^9, 3.8551823116207595`*^9, 
   3.855185856300387*^9, 3.855330632144595*^9, 3.8553398376092963`*^9, 
   3.855343174753044*^9, 3.8553440088842783`*^9, 3.855352736548493*^9, 
   3.855449601166029*^9, 3.855507603407735*^9, 3.855508399829486*^9, 
   3.8555128872871227`*^9, 3.855533128839507*^9, 3.855533318912642*^9, 
   3.855578912702332*^9, 3.85559328568038*^9, 3.855750597883179*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"42dce4ce-fcdf-43b9-b29f-a1adaaf916fe"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"Bt", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "  ", "+", " ", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"\[CurlyPhi]", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["2", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"74c21e31-26a8-4022-beea-8da3fa977501"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"0fac74e7-0c21-4e9c-89e2-df35c204d1f1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, 3.831805889252923*^9, 
   3.8318397806058464`*^9, 3.832947493280927*^9, 3.8329617779630413`*^9, 
   3.8458268674741936`*^9, 3.845852460983882*^9, 3.845857071138504*^9, 
   3.8459196165912952`*^9, 3.8460065699278927`*^9, 3.8460998803049507`*^9, 
   3.8474704417996025`*^9, 3.8517006270923004`*^9, 3.853975443938107*^9, 
   3.8549774002546782`*^9, 3.854989257293145*^9, 3.8549998942925096`*^9, 
   3.8551652419109488`*^9, 3.855182311761351*^9, 3.855185856431717*^9, 
   3.8553306322695403`*^9, 3.8553398377395124`*^9, 3.8553431749422235`*^9, 
   3.855344009009222*^9, 3.8553527366893787`*^9, 3.855449601288957*^9, 
   3.85550760352734*^9, 3.8555083999536133`*^9, 3.855512887432068*^9, 
   3.855533129623146*^9, 3.855533319082279*^9, 3.855578912849311*^9, 
   3.8555932858215733`*^9, 3.8557505980081234`*^9},
 CellLabel->
  "Out[209]=",ExpressionUUID->"d653e6df-aa8a-41ac-b448-32bca01d9375"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[210]:=",ExpressionUUID->"97569a51-ef04-4e99-b30a-eefea681030f"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQd0Den//6OXVYKoERZZ0cvqnbCRLBEtSNRN9E70TtTFsroQ9at3y3JY
dbElji44uoPFj9jD+rHH7sn/9c9zvnPub+beydw7k4Lndc7ukXvnzjzzmc/z
+byfOsXCBrXumdbNzS0iM/9r/c3IRkOHfjO6jTt/BA+M6NNrYI/uAQOH9ejV
Y2jNsHR8GMZ/LfnH//93vEQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolE
IpFIJBLJJ8w///xz+vTpCRMmdOzYcfr06Xfv3lUd8P79+127dp05cyYlSidJ
jdy5c2fhwoVdunQZOnToiRMn/v33X9UBly5d2rBhA56TIsVLbcgqJpFYjqxW
kk8EMuzSpUu9vb3PnTtn5jw3btxo1apVmTJlQkJCAgIC3N3ds2TJMnDgwIcP
H4oDrl+/Tm3q1atXXFycFQWXfNi8fv164sSJxYsXb9GiRbt27UqUKOHm5ta4
ceNTp04J1ffy5csZM2bwiUnP/GiQVUwisRxZrSSfFPv3758yZQrp1eUzHDx4
sFGjRlu3bqWhJD4RyTpv3rxp0qT5/L+sXbtWdtSkOMozUkj+h3L//v3g4ODR
o0crXkcZ9u7dW6VKFVRf7ty5fXx88uTJM3jw4GfPniVz2VInsopZiKoKSIul
OH///ffbt2+T/7qfTrV69+5dShfhI+HFixf+/v40AT5Nk/7777/nzp17/Pix
9ivqzq5du2bPns3/X79+nfxlSzZOnTpVvHhxwoLq81evXrVv37558+b8I0UK
pmXOnDmenp40afv06UOTtlKlSkuWLNEOpCYptJ0vXLig/Zygevr06fnz569c
ufLevXvJWaTUjKxiFnL+/PkiRYqQ5bt37x4eHl63bt1OnTr9+eefKV2uTxEc
+8CBAwMGDBg1alSPHj1q165NLEL7OXUSpNr06dNLlSp169Yt1VcEmdKlS8+b
N89ufPsUqhUR9dq1a2PHji1WrNiVK1dcOIPL5v1YIZVHRkbu3r37k7priS1X
r14dMWLE9evXVZ/TaCVobNq0SdurliLgopQne/bstF7Tp09frVq1HTt2pJKy
SSTJwNmzZ2nv4Pxubm6FCxeeNGmSmaENiRnOnDlTp06dmJgY8eeKFSsyZ87s
bPOTg7du3Tpz5kytMLtz587IkSMvXrxoWYk/KJ49e0ajvl+/fu3atcuVK9el
S5dcOMmHZd6//vorKipqYgLR0dFv3rxJ6RKlFh49ejR+/HgauX5+fsgVR8fM
mjVrwoQJWG///v1S0CYFLrjou3fvCJLONoTj/ztdc+/evWg8u0/z+fPnly9f
dva0ktQM3rJ27doJCZBMP+j+CgW81LWx/vPnz1PRqDvJNkLHtaitKTJeaQl/
/PFHbGyso29djkXwn//8J0OGDGgG0eQ8duxYtmzZOnXqpJxNhiMz5hUQ52fM
mGFX76UG81pbO/DV0qVL16hRo1WrVqNHj049w2opS1xc3LBhw65cufL48eNy
5cqRCOxm/5s3b3bp0iUoKOjzzz/nHx/6HAYzEJHOnTu3adOmI0eOPHjwwELp
66yLcsDgwYNXrVrlQhkUvefoAMQAJ1+zZo3U9k6B3a5du8ajtLUb/066gUJO
zuWowqpp5MRPVZOBP6ng1OLatWsXK1YM702iIiUP3Pj69ev79+/vWjAXei85
Q5ko8KBBg5Jh1Ji8efDgQRrpM2fO5B/mpxjhYCEhIY66hszEovgEz/z5559f
vHgh/ly3bh3yb86cOcrZUiQcEeoPHDhw586dZLuiI0yaV6Cj95LavEa2X6Bq
UACragchsUqVKj/88IPdb1++fEmGbe+A0NBQyokTKg6pgsg5btw4Dhs+fPhf
f/1lvrQGwW6Uimpot9gdOnTo1avX3LlztcOLCnv27EG6xCcYPG/evPPnz9e/
3KhRo7755hu7QZJvt2zZghEcFYbIzENHOpq/cfNQl589e+Zsc+nJkyfUCyzQ
tGnTjBkzurm5IZLFfIajR4/iJM2bN8cItv6Me/N5y5YtBwwYoN+jou+iKgjg
PAvSt2stPqH3aFYvXryYOyIpaGdlcLNt2rTBQ1w4v0God5MnTxYTqPTBkxHY
SVcSM+BLJ0+eDAsLK1iwYJEiRerWrVuhQoUyZcqIOUiYmkBNHLNWWpACVq9e
7evrmydPHq7VuHFjVFzbtm1///13viVmUh5Hev7YsWMVK1ZMJXrPtZoI1BS0
q91pV0ZA7xG0d+/eTdAm+FN/Tc5nQLRg8yFDhigPmhLyiW3W4KvIyMgRI0Yk
6RzvQ4cOff311yNHjiQWkUODg4MJU6g+l0+IqwQGBnJau9+ajEUqCIP16tVr
0qTJ06dPbT/XCUcUgDjWt29fWsq2yY7Ply1bRtVr2LAhsc5ZMXP48OGcOXMS
J127Eauwyrw6ei8+yczr1PYLFtYO/WTKhc6ePbt27VryOOXJkSPH999/Twyn
VLQ7iAnTpk0jQn722WeECJX+pCXFs6C0/LxQoUI64iopQDnv2rULRZEpUyZK
Tmb86aefTiVA9eRxYGeUSbNmzRyN1QrQjXgCN6tzjL7ei08Y9iWqkJrTpEnj
6elJqOGEojDHjx9fuXJljRo1KMywYcOSUxWrwLF79+5dvnz5smXLUp1LlSq1
YMECg+P7K1as2Llzp/j3jRs3iO14e1xcHGIJy5C2xKIMxV1/++23MWPGkJrJ
vPnz58cOOid3Su/hbH5+fqqQ6BQ0BPB2Sig2lcIa+/fvVx3D46tTp47OII5J
iGDo4aioqNKlS+O93D4+s/e/7NixAwdGJ3t4ePDtd999l0TF0IHY+NVXX0VE
RDgaaLh8+TKVK1u2bMjma9euKZ/jFbgHT//AgQP58uWzMGvwvLZu3UoI9fb2
xj623XoXL14UQZsq5uXl5ahtlUr0npmaSJitVasWIs3lqxOxq1WrRj3iitTf
Bg0a8LDMJBqsTdCbOnWqSGScCqFVv359Vb5A/uEwNAFcvpA+p0+f7tq1q60M
RscuWrSIsjkSbPpgH2I+Oc6RHjYfiwSEgpCQEHIousLu2RyFo23bthGZeYhF
ixZVKhqlpcGFDiHI9OvXj9aQU/uocHCjRo0IO5MmTUrZMQ6rzKuv9+KTwLwu
bL9gVe0wmEyRPenTpy9ZsqQ2GHJf1BoCO26g7MkDBHnMiIDp0qULAeT58+cm
i+oCqD7CO1Jq+/bt2m/PnDlDLEVvOGri8RRQ70Rd/cZyonov/r9OxdMk5mjb
IzxWJF+6dOnQzymyOuDKlSsEE2VtAqG4T58+adOmrVu3bqLrQPkJtx8dHa39
asOGDfv27bt79y7tF7KGODm3P3PmTKEBaD7kzZtXf6Kscb3HhapWraooT9fg
WSs1lKJ27ty5UqVKKgfgQSO3evTokaTdEVQZbpynQACxewAyplixYqIjOpmZ
PXs2zkzU0uoQ0btO2xDnsftkRUzImjWru7s7utqS8uCxPI4MGTIgJu2uL8DD
qcg0uHx9fR31J6cGvWemJuKNPXv25HgzPR48HfKR8ufGjRt5TNomj3GojyRT
JcaSI8gjtAe1gQ5BTv1NioFCmpatW7fu1q0bWtr2c26WNFq9enUX5jrSuCCv
OfIWS2KRLTz9tm3bck5tnbIbjqiYSDKKxxNEQuDbynkiIyP/SqBpAsY7GcTw
h+hCITOm4PwlC82bqN6z3Lyubb9gSe0wmEzFxFHqqa2iU8Biy5cvR1Zxdyo1
S1ovXLjw5MmTU6QtgFegvR3pvfiEbgoyZoECBX799Vftt9xLzZo1aVvpx08j
eu/t27ctW7Ykbtvt0OAMtH9FT07y76iGQ4aFhe3evdv2Q/y5ffv2FKljx476
fQsU/ttvv23QoIGjYX0aQbRWtLuvY9UOHTpgYf0GpkEXpRi0tZs0aWLtLCBu
jfimDSwxMTGIWNd6Bgxy7tw5opCOKOLBtWvXTgk1BsEVccIbN26YKRtG/uWX
X7Sde1QBxDyxokWLFjqefPjw4c8++wwhrcq/rsFJAgICqOaoUEd1EHURERGB
P9OsdtSkslDvIW+Iz84GPZM18eTJk97e3lZJaAFOiAciI11L7pgag1NTlPx1
9OhRTkhLUHswqszPz2/48OGWt3ljY2NpV9IGwUSqrxYsWEAFd5QgHEGsq1+/
PjrB0U4mSRGLrl69WqhQIa6rjbSOwhE1FKFLY0HbCEI5FClSxNHUdLvcvHkT
V6Q9gje2adPG5WaFyRBkrXkT1XvxyWVefSypHZbovfiEoIQboGemTZum3CD/
mDdvXr58+VLqFQCJ6j1AqaZPn75Ro0Za1XHx4kWiBAFB/ypG9B5J5IsvvtDJ
3egKKlHZsmV5IvqXsxy0LkL99u3bqs/37t2bOXNmGi+JPr5Tp05RX7gFrW+/
fv2ak3/11Vfa2eOPHz8uU6ZMv3799FOJQRfFMytUqLBw4UL9w/Q5fvw4lXff
vn3KJzhwunTptB3ppOagoKDw8HBLJufYhVYel65cubKjMQuiDa1OZ4eVkWF4
u86aFJfh6a9Zswaf4Xk5ChQC0cnTuXNn89bDwTp16kTdGTZsmP7ZduzYQcbn
/44OsErvCZEzYMAAZzWSmZrItXr37h0YGGhmTgieRv4aO3asYkmSINflQ9ee
FE/H19eXUommgWgb5s+f39EsmiVLlhATbDsYLQGbLF68eN26ddq7QF1j28GD
BzuVRnft2lW8eHFHizctiUXYimYRwlhpVSHzatSogQ9r5xc5Ckfnz5/H2rZL
PBRwKoK28TjAmfFqyoOGoboRQ1xeyW4yBFliXgUjei8ZzGsE87XDKr0Xn1AF
qDioGuX9eojeevXqYShyfXR0dPKv6DGi97ij0qVLc8zmzZtVX61du5ZHdvr0
af2rGNF7+h0aqGWsRCXq0KFD8u9LwG2ieD08PFRa9Pr168hdnvvGjRv1z0B1
IKRjK+3EoTNnzpAvaM2RSnBX2y5xohY/Wb9+vf7JDboo5/H09HRtDyWFqKgo
7LB161bxJ092/Pjx2bJls9uH9v333xcrViyJFtrgS927dxcTABz5Fc3bQYMG
6SsrLUmn93jWNO7IRz/99JP+kbStGjRoQAo2eUWx2SnNzGrVqiU6k4dWSbly
5XR6FVJc75mpiURXFAg+6WKhE8A4hQsX7tu3r1JPT548mT17dp1O0URPSK0c
N26cMnkP6VirVi2ckIygdV3qr5jhbOYunILAkiVLFtvZxYlC0g8NDQ0ICHAk
rS2JRfgz+cK2iwC9V716dT4Ri49UaMMRNp8yZUqhQoVQ1zi/bQgVXWQkR+NJ
mdpBgwKNRxhPkyaNTjs0UUyGIEvMq2BE78UnvXmNYL52WKj3RAdmunTpSJri
E5o/xP+VK1dS68eMGZP8G1sZ0XtiVJHE2qpVK1utRazu06dP+fLlE+1wS1Tv
KZP3HHVo7NmzBzVIS+GXX34xdmdWQr0j4hFGVMoW3y5QoAAP1IiD7dy5E7X/
5Zdfqjxk/vz5uCgJCxG1evVq23aQ6PtNdIMjIy6K5Wl80bgwuTdsbGzsiBEj
lGEC4lLt2rV5anbH0XhYpOZExbBrPH/+vGrVqtoJADt27FCiPaU6cuSIs3MI
k0jvUbtbtmyJk3fr1i3RIpG5WrRoYd7bRQCkghuZxEjCatu2rc4uJSmu98zU
xG3btlGbTJoUAUOgPn/+vPiTG0GqEfZdXm2Hu2bKlEkZ1eJP1CMeQmS2mxGo
v+KNHknUbc51161bR1CiAS7U2oYNG0htjRs3Nt4viodgk8jISLtDdVbFIpIR
OQX7K1kJr8A32rVrZzeTasMR8cHPzw+BTfOKR2AbablZvvL39ze4Doh7CQsL
E7OeiOTUuM8//9zlV/yYCUFWmVdBTKZC79mdU6eQpOY1iPnaYaHeI0vyFAj4
Xbp0EeUhZ3HXXbt2JfSlyL6FRvQej5uaS7FpHePAt2/fXrFiBfmIOy1btqzd
ecXaM+jrPSpsUFAQuVvbocFvcXvaCJTTzM4AZuAGY2JibBdRCk6cOEFwzpYt
m/5yP37OLeD26FXMqNph4+TJk+XKlRs+fDg1wjbV4iHt27dHTSVabY246JMn
T2gLd+/e3dEj4AYRGFmzZuV2QkJClC5oAWUgC1A3eRxo7549e+IwSAgqLN7r
SPCLQcmIiIikWGJjd/IeBuzXr592ixinMBNsabhRgNDQUCyjqtGkcgQ/DmNk
cSim5niT029woR49euByBpeDYTeyvM50mhTXey7XRH44ZMgQnfjMQ6chU7Bg
wfTp09OOOHDggGojRBxejCNjpd69exOpfvzxx/79+9epU0c7emjwbJRq5MiR
JI4SJUqMSGDixIkIGJ4XxuFX2nKKbm0zfUeOQMQGBgY2bdp0+fLl5O6VK1dS
BnTs9OnTcSHis/F2E4GauuloYkCisUiASKAkwcHBNWvWrPJ/qV+/vlggw9Mc
OHCg2B5n8+bNfMXxjh6xNhzxjylTpqAQhg4diqy1fUY8HS8vL4NrbDkGc5El
xZlxQlwxT548rr2ALN5cCLLQvMhmstJXX32FkEuTJk3p0qVbtWq1c+dOuzax
0LzEGe2gISFxwYIFXII6RSHtigHztcNCvUd9oUJRd2ynLyJ1uPekm+OkjxG9
F58whY/HnTNnTiIb6czT05Mk26dPH3zSSBMmUb13//59b29vzm/b+sYm/Nm5
c2cuhxdZHt9MgjPTAOdpEvAdLcSITxh0IPt//fXXpAnaPpg6X758qjfIkIu1
biMm7xHNEhVLRlxUzMf+9ttv7X67a9cuhBOPGEWK5OOmaJjYGpw6TkBT6iYF
5nIE2Js3b+rEQ8IFHkK4SIpddKKjo1WT9zDUsmXLiEgm+8ldDrZEWmoHaoR/
oItsm5lU8zZt2qjqflJDsqbuWLg1RIrrPUdnS7QmYn/qoKMpVXfu3EFicQZC
EGla7PlgO0WBA4hgSnOMSE4+ogVEgNKqIONnA4pEUqDY1FBFk9sugdcye/Zs
TmjVaF18Qnxeu3YtOX3y5Mm2IzjIFTxHrD5A2RpvtSGG0XtKL6gK/VgkykOj
snDhwkQk/k9j3y2BYsWKEejQzzSmlEzBwZyQ0Eo4wuGdDUccTwrTVkkKwC0Y
XHZNBqeyK/WCR8NvaYDQDDHycy1m9J615jWOVeYlUfbt21fVPuWc4eHh5KbG
jRsjJGgfEdnsymmTtcNCvUfwR05j2AoVKiT/ogO7GNR7a9asQVRjbR4QWoXo
2qtXr0WLFhnMXInqvUOHDn322WcEnC5duig75bZr146GBu43c+ZMg6sUuRCt
UbGhsXGoHS7sx0XQ5nET0u02wwVUW9rLuKjwXv7El6hl8+bNc1T+I0eOoL4I
rbRY8VsjAceIi9IaypEjB1Fd+9Xly5dpuI0cOVIsFxW7tOEVSl8rT5kGmguT
YEUXZVL0RSiT9zARQQYLk+uFtlG2tXEZl4PtqlWriAPxCesEUfU8emW0goxQ
pEgR/dWvliNeN0DNOnz4sCUnTJ16z0hNFHO9CCnaljV5irDMw1LWelAjfH19
W7ZsKTIXtZJYp1oU7Ainznbjxg2yre0KPiOIzXwsXPm+adMmYjtNFZV2xVYj
RowgPKZNm5Ymv8Gz8XAJFwgJR1OzdGJRfIJ9qEQ4LRYTHaqcMCoqKlOmTGFh
YWY6RhINRzwgSkWCE1OVDKZpDh47dqztOCZZlcpOgXWWPuljRu990OalMKR7
1fRmyjx37twGDRooK+/Ip4hSuxurmqwd1uo90cb/8ssvU0lvlUG9t3r16nTp
0rmcOBJ9vwYRD7PYPYDWAam8QIECBvcTpl1M2+RnZyAyO7sGROwVmTlz5ujo
aEexmnsZMmQIDXxlKxuOpL3MnTrqbKddX7ZsWWoiTePq1auTE40UzIiL0vil
Fmh3QSfCDxw4cMWKFaq7QGeSHEWHBrmJmuVCB5HYnhEHU40O68CzGD9+PL/S
36xDTN5DOU+ZMiU2gZiYGAQqWcb8llOuBVtUMQJGdHcvXbqU+mI7f0ksRyJE
2N1nw2WEOB8+fPigQYNU62KU/VWcsr8+qVDvGamJ8QkjCMWLFyfLaK+4ZcsW
6qNq6Jww3rx587Nnz4rfUlSdPnyXz0bUzZUrl7NBFc/Mnj27aFkYgcpCuqSa
k0m1Pe1Xrlzx8vLy9vbWrnoWk+pxIaf2gcTCXbt2LVOmjKNNWR3FIgEXyp8/
PzHQtjNBrGL+4osvzPheouEIw2bLlm3JkiWIN1K57S4EOhw/flws01A+Ed37
iGRlor6zmNF7H7R5Hz16RDRTVR+azyhJlbJav3693aa9s7VDhYV6j9wdEBBg
cqW2tRjUezRIya3Uetf2jdHXe5ilRYsW5EdHTUjUPrmyWLFi2nk7KYJ40RV1
ChWk01eD7MRi3LVto4l0gLUdTSjlbDwIVCIV58CBAwazoREXpcDUAu2cB6qS
3fe18VD4nMdNgkA2uGZ5ITkIL8Yn1HEvs2bNypo1q/4SGPSwmLxnuy0kEYxE
Y3w5MGqWmLNRA+q3dOnSI0aM0H7F43N0/jdv3lAqbhlj+vn5ofNFfheI+OBo
5aDL4Iq0l1u3bo3QVRkZBwsJCRFD83bnAWIumtuI5GXLlq1cuRK9tDIBnQjm
rN7DGmfOnNm0aZPKjIheMk7Tpk0xi+orDj516pRBzzdYE+MT+lc9PT2pWarD
cG+ksmp+hYBG7sKFC7kElkl0jbxrZ1u3bl1gYKCzG4oeOnSIvImXGjyeuoyf
I3eDg4NVPXgiR4v3K2ltLnrqxEC58UkIoltDZ+tIR7EoPsGArVq1ypcvH803
1TlpflKnzLyyJ9FwFBcXN2fOnP79+9MYMbgAB7NQsHnz5v1kA5KjQoUK2E15
Z4ojrA1Bgg/avLTWVTKA0/KrH3/8UXUkdqP9oq31ztYOFRbqPdEpgRtQiVLk
JRFajOg90Rin2C4PzOnrPRq8JUqU0EmFHIDYo7lEYnLh6pZDVRLDnToPUYTK
zJkz79q1y/ZzscAQKWWhAxhxUVqa1AJtTwIRwNFMfhQXyRdBFRkZ6fJesmI8
yKmNQzGsh4eH/lowMXmPnGLrkFQ92obGW1KXL18OCgqqo6F69eo8o1KlSmm/
atCgAZbUj+FYDGdW7fMm3r9TsGBBI9KXqIs8MOgh6MxmzZo1adJEdeMihlNt
+dbuTHtkxoIFC6iYFBVjCmVIhrJQ75HOkFh169bVWhJTkHdq166t+pyDUSAG
1YWRmiggRZKJhg0bpjqSPx8/fmz3gdLGwTg4GFns0aNHRspj7dkcceTIEeqy
8QHW+IRmHbc/d+5c1eeE1i+++MLRPja4lr+/vxHdYgvORrXSGcNyFIviExav
od5DQ0NVHis6oFDs2k5I47gWjvQhEDVq1Kjj/4Xye3l5YbdE43xShKAP17xi
8yjVjt9EmxkzZmjHuWiZKtuC2eJC7bDFQr1HCkNC8xwNDk0mA0b0Hs5ANhFT
dl3L+/p6j6CdNWtWnfhAisQV06RJs2jRIheubi2IUmQG6Vs/AJKwqJvUelUN
ommPn1h7I0ZclALT6DM4QiE4ceIEDSvqmv7LkXWg/g4aNAgjGN9kSbygjXCn
M3yGF4llp6pX7xETLNnNycxgCl4xbtw4pJ3q9XlC5xcqVChRvccZvvvuO1rx
Bq9479694sWLjx07VuWQWKlfv35YKSAgQH9WgBhrLlCgQKKt+1Q1nmuwJgrE
iyOdWnQg1tju2LEj0c7DZD7bjz/+SNbmxo3/hIZb7ty5tcsHxMRpHr3dDnyx
3ge7OdW9L+ZxlStXztHkN0exSGzXRt3Rbt5OnqLJX61aNYOj6nZxIRzpw3nQ
TtoVi3h1z549qXrYwbUZcWZC0IdrXmxFa0glF3fu3KlNbaRXgpvdC7lQO2yx
Su+JjdPTpk3buHFja18iYwYjei8mJsYjAaX/TWfWkF109J7yorSwsDBHwX/b
tm2ZMmWy+64f7dnmzZtH+MrlDDy1RM8sIO5RDSmPbYo5deqUtmcSN/Dx8VHt
piLEgGoU0jxGXHT37t0Y0LiKiE/oE+jVqxcVUGdDNn14oDxW/UaQCjH1Rf/t
VI523rMKM8GWNkvlypVLlCghJrG8efNGJHexra6ReVA0EPr27Wt8jO/AgQP4
sKobWSDeP6IvngEFQmOqQYMGical1KP3jNdEwaNHj0qVKqWzNbcWnt3QoUN5
Fo7WmTqFhWcj9uq/BkUF1h48eDC3r+1XFGmrZs2aWg/BsAsWLMB/KLZTj4mD
iRtUAUcrvBzFIn7YpUsXu3WE9EQKIImYkcouhCP9s02YMMHuPDFl3qNTmxba
YiYEfbjmRe8NGTLEtnvh3bt3EydOVPWZYN7FixdPnz7dbmmdrR0qrNJ76CKq
AJHZ2bd5JimJ6r23b9926tSJdIADK7VeZ9aQXXT0HmGwefPmOpP34uLi8Hzx
Zg0jezOSjGgRbDEM7kGLwIik4ckGBwerEqvogtYu78Vtypcv7+fnZ1tm8mnD
hg3tvjrNDEZclDxITXfqDTt4bNmyZV2eCBGfUFubNWtWv3597fR1Wgq9e/cO
Dw9Hn48cOVJp04lJj7Saab7xbceOHbUOpkzes3YunILJYJs5c2ahVwn13Jpo
/lOPaOyjUefPn6/zc7wFIaQdiyFooFWwSY8ePUSsUxZ7RkZGYo2BAwfybbt2
7SZNmqSkmOvXrxcpUkRfZFIwseGGkUkmqUTvOVUTBXggfujv7298ZRbeyyPD
Ay3ZTcjCs9HM0T5Tzo88I8ZSrQi2NKKVfdLEJrQ0kXASBGdQUJCyGIqwT/D/
+uuvtSP+RBVaLkQA2/4rPIrmgxJq+BV5QdVjKdbf5cmTx9Er4RzFIvFWjkKF
CqnyO5WiTZs25BqXt7NTSms3HLkGskS1TMMWMePd5be9mwlBH7R5CY8UUrEq
+gQj255QrC/GYx1NirBbO4xjid7jJKT+LFmyoGqsejtwfEKI27hxI1XY5b2a
xcpxR3oPD6Hmcl88AtVDdDRryC46ek+MRjnK3Yg9kj7JiEeQ/C+bs4X2L/lU
uzsKBkT3asc7cH6xlaVtw5lklD9/frtdMWYw4qLYuVixYtr5SzrgVJzWzBqZ
58+fcwbVO1NQa19++eX3339PSZTXzCmdHogZxD+tPBxMjNtqdb6YvJd0i9xd
DrbcESkVvSd22zh79iyNU+XeT506RRKkFeCo34PbpLqtXbtWtTdvVFQUvxIV
5NKlSwULFvT19RX1TjSXxN62HIkSq1ChgjKUTHkmT56MyKTqOdI5v/76K6Wi
jhvp+00Nes/ZmigQ8wSc8hnxDkcz7Z2kOBumI5ZSl21lGMGZuxMvMohPEBtU
kDlz5ohvxeQ9dJpoOhHqS5cuLQxFO8vLy0u7oofnMmbMmBw5cqiCFa6VO3du
JZlyQnSCdj+ZTZs2EdIdrTt2FIvEW5Y8PDxUwoMCc7Zly5aZTJ12w5HLpyK8
64wKbd68WWyj7dq7XM3ovQ/avBSeCKasxt22bRu5QIkST548IcASDB11ktut
HU5hJJmK/WHQ89rFyLStCNeff/65p6enavTBPOLJIocQk64t+MVuItqr+qWx
MOKkadOmSEG7c+AdzRqyi47eIzJkypRJ+1I2fGbfvn20LsV73MynGDMgS8LC
whxt3+fojXIHDx7koSvzKAjFKORBgwY5+3qvRDHioqSbgIAAmkXG31+DPkFu
mXlb8fXr12lOLliwQPlE9NaCyC8iCyutYPGnsrJPTACmPWJbp3gWYhkCbVLL
LSlwOdiK1Y7kVm4cO1M7zpw5o3wr1mZmzZqVk2tnyv3yyy+dOnXSLtM4ffo0
IXrmzJmiool6N3LkSHGY+FNZdio2eEQhKz9/9eoVpyX7R0REaBdB8IiRi5QH
DWlE2Ke43nOtJgoWLlzIo3HU6aQFX+3YsaNVewJYdTaxGsL21bRiSoztfBuC
Kk2AI0eOKH+S0JXNCfmcP8UaYfE+ONULnXko8+bNQ9ep5kaK9pftwltaGZxK
u3YSRYGpHc1S1olFVJySJUvOnj1buS5p6IsvvsD/zYs0bThyDcIRj4CcrjO2
RU0nq+psOq2PGb33oZuXoOTt7U2r2d/fv06dOt26dSO1LV++PCQkBEflE51K
pK0dzqKfTHkuBEzKpsScLFmyoMEoMNoen6c68HPsqdOudDRYkyjIMPJjzpw5
a9eu7ZSgpZoTIsTe7wIyAi017wT4B8XmLnr37u3IXXVmDWnR6r3Hjx+jUcWr
HMTVSeve/0UMQiGWQkNDcUhrRbILEBvTp0/vKMuoBm0VKDYKn7YzrSrOgGql
yZwUb5ow2CSZMmUKPmncT1auXEkrxozxuf0CBQrY9tyKd4rNmTNHnFbsgqvs
Rigm7ylbQ4h3x9OGEmWmHUqwonUgzJ42bVpyHMFq6dKl1nqImWBLsPLx8Zk8
eTJihoeuKhh/0gooV65ctmzZiGNU9i1btkRGRgYGBtKk1S5JFttKU0+VfZBU
b6qiGlJTlM55sbIJXWF7EpwTD+QwngWqj1Lt3LmTR9CiRQukIPrn4sWLtJqN
zDFIcb3nWk0UoL3z5s27efNmg9cirfCMrJprbdXZxKtpeaCKa4lPmjRpIp6g
2BlAGWkSk/dsB56QIlQiZR9IftWzZ0/cZtKkSTROqfVfffVVzZo1tYFXzJtV
FkmJl8Ehe7T7rdGyIO6pllMp6Mei3377zdfXlzJTEhJi06ZNDx06ZEkF14Yj
Z6HAdevWVTyQOqXahRubEDNJoGLBO3BwhQoVVPufJIrJJWMfqHkVyGhEKmqr
qjUXFRWl38bX1g4XLm1kPNc19AdrDEKd4vlataWqEfRnDdk9Xv/9Gh8xmAUN
sGfPnqTrojToosQcLy8vg68JwKnIAsaToxZCHwnddnWSSBC2b83D7XPnzk3k
EX+KBezKTM5Hjx6VLl2aM1g73TFRzARb8fOTJ0862mw2PsG2HECVId5iooUL
FzraBkH01ymvYBOvjyE1K4ukkG22iytxMyGntaeKi4tDWw4bNgw5TbQn7Lgw
QSLF9Z4Z8CJEEW1YgxfduHFjr169rHrTpVVnQ5JRi22nJ4kNKEgBIsdR3Ro0
aEBDSWRGsdVGUFCQ6Kjn3rEAlc52J1V+SE2cMGECJZw5cyZP2W5W5SdUzyVL
log/xcvgmjVrptXYYnEi7RpHk6z0YxE/p+WC4LQwqWnDUWrGZAj6OMxLsxTl
vHr16hMnThjcwkhbO5wlSfWe/mCNQbDw+PHjk/OFHfqzhrR8ynovGTDoojw1
sgDp3kjSoX41bNjQ2WapLcIrbCcsieFO28kVy5Ytw4u4ytEE0IGIGWWn0O3b
t2fPnt3Ri4GSDsRVy5YtleGwFES8Q1mZEiN2Jiebv3jxAsM+fPiQZpcyJ41j
unfvjnmN7zjtLFbpPTGlf+zYscm8DSlNibJlyxqZUoWv9u/fH9FiSdeHVWcT
G320bdvWVmKhCnLkyKFsoIf4pwkwY8YMqjBO8j//8z/169dXFuPw7Hx8fEJD
Q12Yp0G7zN3dXdnUBTejtqIS8VKaD6qoEhsb6+3tbXeHtHgnY5ElaMNRasZk
CPoIzCuqjN2V4zo/0dYOZ0k6vZfoYI1Bzp49i2JMTimV6KwhFVLvJSnGXZQA
Qq00srrn8OHDNDDNNCKWLl1aq1Yt1XyqVatWlShRQsx7uX37duXKlck+NDMn
TZp05coVMhQ3InIESblatWo9evQwU3ldJpVshy5W9YLob0EAk9mJaRgQsfTX
X3/RhMeGQsCId6Bb+742FVbpvfiEmJD8RsafUctKD5X+kfi/Ve+oteps1BH0
quo1wTdu3EBZiffRUFnIkpkyZdqZAG0l0cgScyTwosGDB1eqVMmFHXH5OSfB
/cR2GXgmFxLLfIg82pfZ8XBx0TZt2jga9zEeiyzBbjhKzZisHR+6ecVUH0cv
orKL3drhLEmn9xIdrDEC9Y4WVhJtTOEII7OGbJF6L0kx7qLUnQEDBgwaNEj/
QfC8Zs2apXoTnFOg3OrVq6dd9C0mC9E0GD16NGmIJFWmTBmKNHfuXK7FdRF7
/v7+U6dObdWqFWUws1rk4+DSpUu+vr7Dhw/v16/ftGnTsFuNGjWwmJhgTzId
NmxY165dx48f36xZM9deb20cC/VeSoFCJuQmukVYTEwMdnZ5lV9SnE28j7tP
nz6qwVbxUjn05MSJE5FkaLwmTZpQxThYjIKh7gIDA8eMGdOrV68uXbq49vhE
tsqWLVudOnUiIyOpvFFRUVTV4OBg4ondc/IhBzsalDQYiyzBUTj6iPnQzXv0
6FGcTRn6TBRHtcNZkk7v6Q/W6Mz/sWXTpk2WbP/uFMZnDQmk3ktSnHJRgnBA
QIB2SZ0tOGS3bt10Buj14SnzuCMiIhxVPeLD3bt3lelGquT7+vVrWhDSVRQw
BW1A5bV3WE+10pZYYckWsonyEeg9fHLEiBHIZn0HW7duXadOnaxqblhyNuqs
n5+fI9FIS4qALC5B/aV+2TbWuNnbt2+bmVt19uzZ3LlzL1my5OnTp7Gxscps
QMqjk2EJSkQbR7nMSCwyT6Lh6GPlwzUvqYEGrLKxlRH0a4dxSKaVKlWaMWMG
gvPcuXMWpqFEB2uMnIRmV7KN0QvEYg2Ds4bI3T///PNPP/0UEhKChJBJPClw
1kVjYmKCgoJ0dtfEM2lYuTabF/cgu4WFhYmtwCQfATQnL1y4cOTIkXnz5tFE
/aD1XnzC5Cj8c82aNTpdB0RjC9v45s929erVli1bmplPa5IVK1bY7rxnEDwH
iaizL3Giscgkn3g4+kDNi9tMmjRJZ1NlFRbWDgSVv79/vgQCAwPNvGBOi/5g
TarF+Kyh8+fPlypVysPDA+uZfF2LxBEuuCjpe9GiRUnR4MUrZs+e/WlG14+V
V69etWnTRrxUsWHDhh/QJChH4J9z5syxarg2qaGeUlstea2ba4jJe67tcE7M
37x5s86sqqSLRfEyHH0C5k3x2uEUiQ7WpEKSedaQRCKRSFKKt2/fovemTJki
G+wSyadJss0akkgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKR
SCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQS
iUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQi
kUgkko+PN2/evH79OqVLIZFIJBKJRCKxmH///ffAgQOtWrUKDAwsV66cl5fX
2LFj4+LiUrpcEolEIpFIJBJr2Lp1a69evZ4/f86///nnn+jo6KxZs1avXv3B
gwcpXTTJx8mrV6+2bdvWt2/f8PDwtWvX/vXXX6oDaG5ERUU9efIkRYonkUgk
EslHxuPHj4ODg2/cuKF88vbt29DQUDc3t7FjxyL/UrBsko+Pf//9d8+ePRUr
Vqxbt26nTp1q1KiRIUOGokWLrlixAsfjgPfv3+/bt69hw4a0O6T7SSQSiURi
CUeOHMmWLVuJEiWuXr2qfLh69ep06dLVqVPn5cuXKVg2yUcGim7q1KktW7a8
cuWK8mFsbGzHjh1RfZkyZfLx8cmXL1+jRo3Onj2bguWUSCQSieQj49dff82d
O3eePHliYmKUD7du3ZoxY8ZKlSolz4Damzdv/v3332S4UKri0aNH06ZN69u3
b4cOHbZt2/Yp9GXxoE+dOvXu3TvtV7du3YqOjp43bx4O+SmYQiKRSCSSZObG
jRu3b99W/kR6ffvtt25ubgEBAdqJVRZC9p8/f37Lli3btGlTsWJF/n/58mVn
T/LixQt/f/+OHTuqVAR3sXTpUm9v73PnzllXZMs4f/58//79RZ/q/fv3a9eu
jeRL6UJJJBKJRCL5VIiLi6tbt26WLFl27dqVdFf5559/5s6du3r1atGZ8+TJ
k4YNGyLPYmNjnTrPq1evIiMjd+/ere0h3L9//5QpU1LhkPSzZ8+GDh16584d
8efff//drl27vn37pmypJBKJRCKRfDqsWbMmY8aMAwYMEPPn9fnjjz+cVWiC
e/fuValSZdasWagd8cmWLVu4LkJIGc67du3a48ePXTh5agZdunLlys2bNyuf
IP+qVq06depUnV9dvnyZw5KuVB+lqSUSiUQikdjlypUr3t7eYWFhRjZe5uCQ
kJBLly65cKE7d+4UKVKkRo0aL168EJ+cOXMmZ86crVq1UhTg1atXQ0NDL168
6ML5Uy0vX74cPnw4Oln8ifz7/vvv0Xu3bt2yezwHrF+/vn///q9evUq6Un2U
ppZIJBKJRKLl8ePHjRs37tevnxGx9+DBg8DAwEOHDrl8uYcPH4pN/wTbt2/P
lCnTsGHDbKfrHzt2rEWLFvfv37dbgHHjxqFSkE+28wwfPXo0fvz47t27+/n5
2S46NsPPP//coEGDjBkzjh49Wine7du30WlKTx3CbN++fV26dOnTp0+HDh0G
DhwoRB3H2/aUXrhwITIy8uzZswEBATVr1qxdu3b16tV1NPMPP/wQFBRkpvPt
zZs3CPghQ4a8f/9eOSefKEpboGNqq4iJiQkPD//mm2/C/0u3bt0omOi6jIuL
GzNmTNeuXZVvKSQHY/ykK5JEIpFIJJ8UZNuOHTtOnjzZ7vJJFUgIEvGECROs
WkqJwkQ9enl5qZQP5586dSoaQLVyBAXF1c+dO7d27dpChQpdv35duQsU45Ur
VxBI5cqV4xirVv4ePnzY3d19w4YNyicLFy7MkyfPb7/9Fp9gEK5brVo10UXG
7bRq1ap9+/Z8fvTo0QULFijF2Lhx46ZNm16+fLllyxbOtnv3biTfwYMH7V6U
+6pVqxZnMFPymzdvenp6YkZRBp5vcHBw/fr1//zzT9vDHJnaQrjiyZMnv/vu
u2zZsrm5uVEMLIDFhBDl//x769atFStW5NtSpUph4ePHj6vKKZFIJBKJxDVI
8UOGDJk/f77SBfTixYuJEyc6eqsaSRltY9ULOFAaaAA0id3ewkePHtWsWRN1
ZPvhtWvXZsyYQbG7dOlCSZR+wj179qCm+Ae6MW/evNyRJSVEKc2aNStfvnzK
xnFcsU6dOh06dBCbyVD+XLlyHTt2TPnJ0qVLKcDZs2cRUb/88ov4EPOiqG2H
Tbn3iIiIpk2bavtUEWY9e/bs06ePMsDtGjt37qRsiqR8+PBhyZIlBw0apNXq
dk1tOVgpe/bsBQoUsDvzE8erUaNGmjRpvv/++yQthkQikUgknxTIiZkzZ0ZF
RdkKAPTS8OHD7SoNMnL9+vWRW5Z0nXGS//znP2XKlHHUxyX2h0EDaDcDRPUV
LlwYBaUtybp16xA5Vg0FIr3atGmjbEDN5ebOnVukSBGxLTAKqlSpUn5+fraa
DeXp7u5OySdMmKCM56ISR4wYYTuQis1HjhxZsWLFp0+fqi568uRJb29v0X/o
Mpx/9OjRJUqUuHfvnvjk6NGjqo5KBR1TWwimc3Nz03YwChDDefLkyZEjx+nT
p5OuDBKJRCKRfFKIfVFy585doUKFigmUL18eJZM1a9Zx48bZVXS7du0qXry4
C3vl2eXAgQNNmzYVw7joops3b2oveuXKFa64detW2w85bN68efny5dPusPf+
/fu+ffuWLVvWqjWnjx49Kl269MCBA4UkxgJFixbdsWOH+Fa8o0QlOw8dOvTZ
Z5+p5uadP3+ew5RO1PiEWw4MDGzcuLGqf49jevfuzVcmR1c5ra+vL+cRmlMo
uvz58zua2WjX1BaCcm7bti16z3Yhti1r1qxJnz49TqgsaZFIJBKJRGKSU6dO
ubu7u2lIly7dqlWrtMf//fffoaGhVm3FfOLEiW7duik70Ym1DLZySMC1uGL7
9u1tFz68fPmyXr16QUFBr169io6OVk4SnzCLr2bNmiEhISZHQm3LmStXrg0b
NqCXdu7cWbly5c2bNyvqDmmXPXt2lbmOHTuWI0cO1aDk6tWrZ82aZSsLz5w5
4+HhsWTJEpXK5XbQXebHNG/cuOHp6alId+RW69ata9Wq9ezZM4z28OFD1fF2
TW0hKOdSpUplyJDBdkcaBaFycT98zKpnJ5FIJBKJxFkePHhQsmRJVJn5wVyk
ZoUKFcLDw4cNGxYREdGjR486derYVThciysWK1ZMGZSMT9iSLl++fCtXrkTS
jBkzxrZ/7OLFi3nz5l2wYIHJEirMnTuXa6HrBg8ejF5SLSp5/PgxCnDSpEmK
Te7evct9Zc6cefHixehSMdERMdO/f/8OHTooO6sgtxo3bvzNN99oJ+9t27aN
KyoT/1xmx44dmTJlUtat8CfSFI1NCVVGE9g1tYUcP36cAuTPn19/8t7ChQuT
4uoSiUQikUiMcPDgwVy5cilDmY64fv36uHHjAgICqlatWsUG/mzbti365/79
++hGVaciysTRSz24Ite1XdDx/PlzPz+/rl27DhgwQDW4vHbtWg7WmQD2999/
Hz58ePz48c2aNatevfqcOXN07gWdhkDy8fEZOXIk57Q7CnnixIlGjRqNHj16
ypQpvXv35v/opUGDBjVp0gQdi8iJT9hXecSIEcuWLUMKzpo1a/jw4a1atdq8
ebO2P5NLDBkyBPto+98E4lQFCxZMnz49Jj1w4ICt/Obf27dvv337tpgcmCFD
hhIlSoxIYOLEiTyXatWqYTR+ZffkWlNbCKbmQderV8/u5L0LFy7kzp07Z86c
cvKeRCKRSCQpyOLFixED58+fd3TAX3/9haLImIC3t3f27NnJ70iOChUqoPdQ
Gj179rTdds8gXNHd3X3evHm2H759+xZVoxr4Qz716dNHZwLYqVOnKleuXLZs
2RUrVly9evXly5eW7CrDSe7evYuUVaQX/0DWKqszuIWpU6dSvDdv3ty6dUtn
QJz7+vrrrxGQdjdCvHPnDmbEquiiPHny8A80ku3SYA4YNWrUqwQ4SWBgIGWI
jY1VzP748WNHK6/jHZjaEsSyFwrcvXt3DPVIw8KFC+XkPYlEIpFIUhYkzdCh
QwsXLmw7Wc4WNEx4eHiWLFmmTZsmtApqKiQkJFOmTCaXAHBFLy+viIgIR9oM
4Yd+Q9g8fPgQLWd3v5H4/y6bRQLpCJ4kYsOGDQaN8PTp00qVKrVr1047hw2r
BgcHN23aVFmlcvnyZV9f35YtWwoBichctGjR7t274xMm7xUqVIhn4dTge6Km
dhkejY+Pj9hbr4aG6tWri6mkHTt2lJP3JBKJRCKxCjRDUGLYdkO9f/++a9eu
ZcqUsbvuVaz9RNrZbi8cn9BflCtXrrCwMO3ApXG4Itd1NI2fM/fr18/T0/O3
337r06dPo0aN7E4/u3r1atGiRYsVK6bsz5xsUMIpU6Yo2/fpc//+/eLFi3Mj
Wott2bKle/fuqsFQdFTz5s3F5jD8dsCAAaJTcfv27Vj+8OHDThVV39Ranj9/
Pnfu3IEDB86cOVN/FY/Yea9gwYJ27S9W2aRNmxa96lSBneXdu3dr166lRcA9
RkZGJr/yl0gkEonEEa9evVq2bNm4cePGGmPSpEm//vqr/jkvX778TWL87//+
r3I8AqBNmzaVKlWyuz8bYgbF5efnp1Ijd+7cKVy4cNOmTc0s+Xz69GnlypXR
n45EyMWLF8eMGdOrVy/UgtglT8U///xDindzc1O2VUlOKPaRI0cMLmq+ffs2
lhwyZIiqnPycW7D7ltvVq1cvXLgQmR0dHb1+/Xrx4bp16wIDA8XbyoyTqKlV
8Fj37duHQA0ODtZ/OYuYvNewYUO77wK+dOmSh4dHzpw5z5w541SBnQLfGDVq
FEoY21JatDE+Y+SdMhKJRCKRJAO3bt0qWbJkmjRptHun2CVDhgxIPmvLQFpE
Bnz55ZfazYFRGhMmTOCiaAzVV6J/r23btmYG6RAtVapUad68ucup+Y8//ihf
vjyWKVKkiM9/QbuS+l0uVRJx8+bN/Pnzq14lHJ8gWR8/fmx3cPbatWvIGJ5L
RETEo0ePzFzdBVNfvXqVAs+dO1fnGGXy3vDhw+3qbTxHzPNMusl7XHfevHli
sFuwZs2aihUrWrVPo0QikUgkHwEItvbt25crV06bkV++fFm3bt3ChQujS1Vf
bdy4kTw+ZswYM1u4cEWUQIcOHVwWjbGxsR4eHp6enrdv33a5GMmDmEHXv39/
4/2QYsXujh07vvvuO5O9ly6YetOmTblz5z5x4oTOMWLyXsaMGe1OYhQj8qjB
Tp06Jd3kvYsXL44bN+7NmzfiTwyF+GzYsKF8Ra9EIpFIPh3evn1r+6ovLSTl
Xr16lShR4v79+6qvxJQz7Uuy+El4eHi2bNmOHj1qpmwPHjz44osvunfv7vIk
wHPnzrm7u9vtnExtiE2Ju3btavxm0TBDhw7t27evztJpgzhralTT4MGDKbB+
v+KxY8dwgwIFCly7dk37bVxcXK1atZJ08h7NjYULF9ruM4NLlC5dOqnfFyyR
SCQSSWqAfL17927UBcKMLF+hQgX+f/fuXe2RZMxp06blyZNH+zYuji9atGjr
1q1VnTOxsbFeXl6tWrUy+T6O69ev582b19mlptoSVqlSxdn5bMkPmhnl7O/v
b3zG47t379q3b9+xY0fz7z1xZGoEG07Sr1+/Hj16LF68ePr06eJaomu3atWq
AwcORHAGBQXt2bNH+5hmz56t89pcR5P3cM758+ejP/nKtsmwefNmHqWyKuf1
69fffvstxevTpw8FWL58ufBDDKioVo4ZOXIkd0ch0ZaU2cfHZ/Xq1Za8Bloi
kUgkklTOtm3bRo0apeiEX375hXRPMtV24sUnjNy5u7trl3ySxBs2bIhEUQbL
4hNECPn3888/V72QwgXI9VyXq7t8BlJ/SEiIp6fnzZs3TRYmqUGrdO7c2amu
SMyOzlmxYoX5q2tNjSKKiooqX77877//Hp+gzQoWLOjr6yu23BGT96pXry6G
8rdv3166dGlVJ554jxt6z9E2L2LyXsWKFbVLgTh+2LBheJHSBsFXmzVr1qBB
AyEduS6+R2tF/EnxSpQoER0djdJDBCrvKOGwsWPH8luE66pVqw4dOhQaGson
Sbr3C4XfuHEjCtOq901LJBKJROICpL+vvvoqXbp0s2fPFh0dfEIqT5s27dKl
S7XHX7lyheRud9BtzZo1Xl5eQhLEJ4iWqVOnlixZUn9al0GWL19eoEABk7ox
JiaGEo4ZM0aRHEiCM2fOpMIev4ULF2JnbT+qI+Li4jp27Gh3qNRZtKY+ffq0
h4fHzJkzhYfcu3evePHiI0eOFGYUTQDlbR1HjhzhT2WNsCA2NrZo0aLp06fH
SbRXRKx26tQJNYgm1C4SEbtGf/3110pTAo/Kly+feGExGi8gIKBGjRrKQ0TY
BwYG4tUIe4Sist3K3r17VXoYyYeMvHDhgouWMgC2KlasGLfm5+dnd/dsiUQi
kUiSAZIjqRa9N3fuXEXvNW7cmAxl9w0LL1++rFevXteuXbW9ImgnpELdunWR
jgsWLGjRokV4eLijnZmdQkwCJOmbn1ePXm3WrFloaCipf8aMGSEhIcha23u5
fv169erVf/jhB/En8mPChAnmF0E4Cyo0b968mzdvNng8Sq9bt27m7aM1NZ90
7949T548yg7Ptu/UE5P3bF/9Fh0dnSlTpg0bNsQnWI9vCxUqhIOJZeNZsmRB
YtFeEM62fft2Hx8fTi4WniMIUbnt27e33RMP2ebp6am8nhgP5Ak2b95clHDn
zp2ZM2e29VUK3Lt37zJlyiBQt23bJj6knHj4zz//bHuzR48excjcjkmj6YDG
69y5c86cOWvXrp1ErySWSCQSicQIpELb9EriJn3nzp3b7vZ9YlPlcuXKOZqc
j4CMiYkhsVq4je0ff/xRqVIl5JlVU62ePXt24sSJCxcuaHuTkCvc+2+//Sb+
vHXrVuHChc3MG3SNV69eNWnSBN1icNHExo0be/XqZX5oUmtqsT0LMl7sasjn
06dPV4bF0TO+vr5BQUFiqqHQWhhQEYfm2b17N/Jy//798QneNWjQoGrVqol2
hHhBsGrWn3gLTMaMGXv06KFs9Mc/hg8frnJapL6Hh4f5FS6JwnOZMmWK3Tmx
EolEIpGkCFFRUeTK8ePHO1IasbGx3t7eJt+P5hQ7duxAgloyWKkPt4xIsN1Q
mku7u7v/+OOPSX1pLcuXLy9btqzdWZQqKHb//v3R4eZFqdbU4nUbnTt3VlZA
tGjRokGDBi9evFixYgVH1q9fH30l+j8fPHjg4+MTGhpqZm9tW7ijcePGicl7
aMtRo0Y1atRIKR4XjYiIUO2xw4djxozJmzev7ZD0jRs3unTpYrsRt+ipbtmy
ZTIMs/75559UqNS/MFwikUgkHz2k9YMHD5KVKleuvGjRIp2eIvLp2LFj27Rp
Y34pqBG4CtcirZt5HZtBnj9/XrVqVWW0WnQf2a4USE6QB8iqJUuWGDkSFWS7
04hr2DU1yq19AqIvdPv27Tly5OjZs6dY/oCS6du3b3h4OD8Ro7eoZcSVyZIo
IMaaNGni7+9/+PBhdObo0aNVL0/Zv38/eu/06dPiT/ThTz/9VKdOHQ8PDxom
9+7dE118u3btqlKlitKVJ4bpKarBN9yZ5OzZszNnzkwGB5ZIJBKJRJ/ff/8d
mTds2DByJVlbfy+1Bw8ecNjevXuToWA//PBDrVq1kmfu07lz5/LkyaNILLFS
oFmzZraLjpOT3bt3161bV5ka54iYmJgaNWqYN5EjU1+6dMnX13f48OH9+vWb
Nm0aoovLDRgwAGUVn9B1FhgYKF5m16VLF3zDZDFsuX//vo+PD5Jv7ty5dlU3
ypyvOGDWrFmIc8qwfv36mzdv4p+oULTokydP0O1z5sxZvXp1WFjYpEmTJk+e
HBwcjN5D3ltYVEcgmLmWso5JIpFIJJLUAMm9SJEiZcqUiY2N1TkMbRAQEJDU
L6Li/P7+/rYvwEpSVq5c6e7uriwoFisFSNYUIyoqKkk37rDLu3fvRowYgb7S
7xpat25dp06dTA6h6puaAmANRSDRHLDtZ+Pb27dvp+BbKrj3a9eu2RYJ0926
dUv0SaLbkYLcIMIPNZvM46qbNm1K/vU+EolEIpHoQ+7u06ePm5tbaGioTr8W
+WvJkiW9e/dOuulPnLlfv36LFy9OnlwplqbmyJFDrOJEQvTv3z9DhgxbtmxB
3EZHR6fIxrxomLCwsDVr1uhcffv27cqCYtdIZlMnMyjV8ePHJ79cFzx79iyl
Li2RSCQSiYBMdPTo0QsXLtjKie+++w695+npqX0Zri1og82bNysbr1nOwYMH
N27cmGwKRCxEzZYtW506dSIjI/v27RsVFeXv7x8cHDxo0CBrhymdIi4ubs6c
OUk6op3Mpk5m9u7du3r16pQuhUQikUgkKcb69eszZMiQO3du2/lFS5cuTZMm
Td68ea9fv56CZUtmzp49ix2WLFny9OnT2NhYZYMRhJZ22xbJBwRPVu6FIpFI
JJJPmVWrVqVLl6548eLKHhdiBww3N7fatWtbuIde6mfFihW2O+9JJBKJRCKR
fBzcvXs3KCjIVuQ8ffq0WrVqWbJkMf5yh48AMXnPqVfWSiQSiUQikXwonDt3
rnXr1hERETt27Ni/f39AQICXl9emTZs+1tlcdnn79i16b8qUKZ/UXUskEolE
Ivl0eP/+/fHjx2fPnh0ZGblnz55PahhXIpFIJBKJRCKRSCQSiUQikUgkEolE
IpFIJBKJRCKRSCQSiUQikUgkHx//D0l2aXk=
     "], {{0, 98.}, {848., 0}}, {0, 255},
     
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{648.0000000000002, Automatic},
   ImageSizeRaw->{848., 98.},
   PlotRange->{{0, 848.}, {0, 98.}}]], "Input",ExpressionUUID->
  "34aaa377-28ff-47a3-b4f4-8f1eeec82633"],
 ", FieldNumber = 9"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, 
   3.8312302449223967`*^9},ExpressionUUID->"d30a7d63-b34b-430c-8a71-\
ba9fd86888fa"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "9"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8312298277474966`*^9, 3.8312298282274446`*^9}},
 CellLabel->
  "In[211]:=",ExpressionUUID->"b9498d3c-bf64-4b99-bb2b-fe3a4c879f47"],

Cell[BoxData[
 RowBox[{"Bt", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, 3.8318058892938128`*^9, 
   3.8318397806484127`*^9, 3.83294749331217*^9, 3.832961778003557*^9, 
   3.8458268675210495`*^9, 3.845852460995616*^9, 3.845857071176112*^9, 
   3.8459196166694293`*^9, 3.8460065699671373`*^9, 3.846099880336196*^9, 
   3.8474704418627796`*^9, 3.851700627154792*^9, 3.853975443950626*^9, 
   3.854977400332785*^9, 3.8549892573359613`*^9, 3.854999894323758*^9, 
   3.855165241989027*^9, 3.855182311823837*^9, 3.8551858564691153`*^9, 
   3.855330632332057*^9, 3.855339837816881*^9, 3.8553431750047116`*^9, 
   3.8553440090561113`*^9, 3.8553527367299128`*^9, 3.855449601331483*^9, 
   3.855507603567402*^9, 3.855508399987763*^9, 3.855512887478932*^9, 
   3.855533129733139*^9, 3.855533319121661*^9, 3.8555789128821735`*^9, 
   3.8555932858365335`*^9, 3.85575059803941*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"f41c7968-6972-4cf8-8bc9-e1b7dd7b4964"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"2", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "3", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"At", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+",
              " ", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "1", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"\[CurlyPhi]", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
      RowBox[{
       FractionBox["2", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"f077acb9-c66d-4819-9cf8-36506102c0c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"fda659de-80fa-454b-b3df-5891ff40bc5e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, 3.831805889381689*^9, 3.8318397807412877`*^9, 
   3.8329474934058976`*^9, 3.832961778096315*^9, 3.8458268676400995`*^9, 
   3.8458524610878477`*^9, 3.845857071268445*^9, 3.8459196167944126`*^9, 
   3.8460065700529685`*^9, 3.846099880436925*^9, 3.8474704419914217`*^9, 
   3.8517006272485247`*^9, 3.853975444062911*^9, 3.85497740052024*^9, 
   3.854989257430084*^9, 3.854999894433076*^9, 3.8551652420983953`*^9, 
   3.8551823119175653`*^9, 3.855185856566345*^9, 3.855330632456998*^9, 
   3.855339837926257*^9, 3.855343175223409*^9, 3.855344009165436*^9, 
   3.855352736829418*^9, 3.855449601427143*^9, 3.855507603662331*^9, 
   3.855508400081656*^9, 3.855512887586421*^9, 3.855533130893758*^9, 
   3.855533319222992*^9, 3.855578912991835*^9, 3.8555932859323034`*^9, 
   3.8557505981526546`*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"1ea113aa-5956-47f7-a634-850d8c4eab2b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[215]:=",ExpressionUUID->"93449918-b3b3-4f9c-886d-f9a60bb389c2"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQl0TVfUx0WLIOYpiFnN1DxU1DxETRFziFmoSswzRcwx1EwMNVSMadAq
i1IxK4sYyzJ3ofhaLMPCarvy/b6c1bvud+97N/e9d/NecP5rsfLuu+/cc/fZ
Z+//PsM+RXqFt+2XOlWqVMO8+a9tz1H1hw7tOSYoKx/ahw0bEBrWt09A2PC+
oX2H1uz1ERf78G8sf/zf3wkSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEikJt27dWrRoUUhIyNChQ+Pi4v7991/NDRcuXNi4cePff//tkepJvAeQ
Oiah4J9//jl27NjEiRODg4OnT59++/ZtzQ2oQWxs7PHjxz1ROwkJxyCNm4RE
knjx4sXXX39dtGjRVq1adejQoVixYqlSpWrYsOHRo0dFl3n69OmMGTO4cvbs
WU9XVuKdhNQxCTWuXbsWGBhYpkyZzp07BwQEZM2aNX369GFhYffu3RM3XL16
FRYaGhr65MkTz1ZVQsIY0rhJfAh4/vx5x44dW7RowR/OlXD37t327duPGTOG
HiGuEHzt2rWrSpUqdJns2bOXLFkyR44cgwcPfvz4sXUVl/iAIHVMQo29e/fW
r19/69at//zzj7gi3HGuXLm8vLwK/4d169bJgSCJFA5p3CQ+ELx+/ToyMnLT
pk2K3XYU9+7di4+P11+nyxw7duybb75ZtWrVnTt3XKumhPPQtOy76H8/EB3T
98F3sbGSG//+++/Zs2cfPHig/wp/HRsbi0Hj/xcvXri/bhLvNF6+fOn+HveB
GLeExJ775s0bT9fi3cbRo0eLFi1KHO3piki4CX/99VezZs2Cg4P1fQe7Ubp0
6fnz5+tX3XgE586dK1iwYP369fv06dO7d29/f/+uXbs+e/bM0/WSsIE5c+bk
z58/MDBwwIABnTt3rlix4tKlS1OIIklIvK+AZC5YsCAsLGzMmDH0vqZNm+LT
HS3EHg2g/y5btqx48eIf8iQ4od+RI0daJOLVq1dOlCDFK3D58uWRI0devXrV
0xWRcBOeP38eERGxY8cOPRO4devWqFGjzp8/75GK6XHmzBkIzMcff5wqVSo/
P79JkyYp8zUSKQroUmRkZKZMmby8vGivatWqxcTEOD3jICEhYQb0uxkzZhDc
ifW9cKGgoCBM5YULFxwqx4AG7N69e8qUKR+s4YUodurUady4cWXKlGnUqJFz
bPOdEO+NGzfQpa+//ho/e/DgQU9XJwUhLi5u6NChbdq0GTRokL1ZJ+IR5DZx
4sRp06ZJOm0JMG779u1DqujkzJkz9RtpbeLixYvOLdo5d+4cD3r79q29GaLf
fvvN5qSkhHN48+bN6dOnEbijPxRB+q5du2CYbhvP/PPPP1Et9zwr5UCatZQM
N1tIuipU08fH58CBAwmJq1nGjBmTJk2a6Oho5QZ69OvXr50o/L2B0+JV8Pz5
87p16+rZZkoTLwZ83bp1ExOxdOlShxbkYL2zZs0aEBDQtm1bRX8kTp06NXbs
WBQA+eTJk8fexEFMTExgYGDz5s2R4ZYtW9xcSc8C4WD0tm7diqwsjJuwZgMG
DChQoAA8v1u3bpcuXTK+H9u7YcOGr776yrltXIJtGixGImbs0qVLyhmMfadB
Gw0ePHjNmjVO0EWFbSZHxewBW0qF165d6wZ++/DhQzQ5IiJi0aJFFy5csPyJ
CB9l/v3339Ul87e+43ywZg1p0ApXrlzRyASP//LlS0/VSgM3W0hw//79EydO
CCOJKDp16pQrV64zZ86oyw8PD3fzAqQnT558//33Hm8X18UrYI9tJrd4ee62
bdu+/PLL3r17QyP18kTOUVFR9AvxkerBM1u3bv3ZZ58VKVIEe2L+WVjvqlWr
/vHHHza/jY+P79mzZ0c76NGjB88l5LE3UnHw4MGhQ4e2aNECk+XO5VWQH+Iv
e9WGPFCr9evX//XXXzZ/zusQM/7222/8vWDBAnqW8awB5SB5e2aZykyePFks
CzRGaGioiB89BewYAZqZcadjx45h6Hr16vXpp5+mSpUqderUvCDxF7o3fvx4
JDxixAi13hIQLV++nC5Tr1697777zkAZqAOaT+c1OUn6ww8/oPlODz/CNqnw
jh07qDA6g8bqn/vLL7+0atXq7t27zj3CHnbu3Nm4cePajqB+/forV67U1xCP
07dvX3sKj2pNnTr10KFDnp13RgdGjx6NxXBiYDPhP7aJ8ixZsgQGSA+9ceOG
i1W6evVq9erVUSGlhlRv3rx5akFhZoOCgmgsF59lADoOr4OOzZ49OzY2du7c
udhk+J7rex94EdodQ503b97ChQvjzj7//HO06Ntvv4U8CJEOHz7cZrRlbNZS
MjC5Dg25cDN+FkefPXv2UqVKIaVixYo1aNBADDLwLZ1r+/btzlWGxiWeRezm
u7m/vz827fTp0zYLdLOF1ODnn3/OkycP9kStM/xNlDRy5Eibm1zs0QBI7IQJ
E3AcTZo0IQ5yqBq8+6hRo3Lnzu3xsXerxGuPbSYkm3i5GbOGBxe7FWrUqJEm
TZpChQrhYsRQKs/98ccfcdmrV6+26Rb5rYVsk24L/5k/fz51gFRUqlSJsPdo
IjBiGzduROdz5sxJ39SvocIX4FxgLyKDkDs3WyElIi8MSNOmTal25syZIY2H
Dx+m2keOHIFaTJs2DUFlzJgRpmEQMog4rmbNmsYp6YzNMoXExcURHZQuXZrK
VKlSZe3atbv+A3KDhg0aNAgx8i2eztWXdwq41P79+5cvX75s2bJZsmTB5C5c
uNDeAhLML9xMuEIafd++fZ07d0YhoZc467NnzyL5fPnyKXaAe5YuXQpPQBQD
Bw5EVgbydMiW8ohatWq5sgKE2larVo0K87JoLP197NixGl2lJljX7t27WxhH
UyYyRBlo8W/MgW6IPnfo0EHP1qgYur1o0aKsWbNiMXgFTIHopyg8Ogbf4Dp2
49q1a1a9gqNAyNi9R48eOV0CNAwJnDp1SqQlR1d3797tSpVQWggGBYqPKICf
nx/GQRMNIUM4wJUrV1x5lj2gCXPmzJkxY4a6WTEp7dq1wwu44sUuXrzYvHlz
Hx+fYcOGqZ0yvY8rUCBkmCNHjjVr1tj8eYpim7TI+vXr6aoGrA8BQp7pU9j2
XLly+fr6whKNg0QUadu2bfiv4sWLE8Wo7dL58+fh/zgLbBrWzOnWR+GpdkhI
iMluDlAG6kNEYLNAN1tIAWSLfOi/WBjUVR+eoC1ffPGFXpfs0QBETZhDmIyG
lytXDiE7NB51/PhxVBdX5dmzCawSb4Ih20xIBvHCJ3Fqbdq0UY+No+TBwcF4
inTp0pUsWRIyT2SqDGJrYDnbFEDTeBe4UO/evfVqRm+ihh9//DFvpHbTcFGI
8e3bt+nLuD+PjKtgoKhYiRIl9DLhpRYvXowpRp5KxmMNaKkyZcpAkIzTPpgx
y3/++SdmMHXq1PAumzdg3IoUKbJp0ybDF0oWoG+BgYFKvAD9HjBgAFXF2dkc
XYGacr8+qPztt9+wkzAfTCsGllcW1ymE0OxlIpomwoC2mbelKFu/fv2oqnNj
ZQLURO2PoqOjMad6DkOcSNBhoecVbLNLly7mK4+5IDiiJ9r7yenTp6k83U3f
ajxu3LhxdOEGDRrYG9JPVmAHsDPff/+9K4XQHxU+gBC6detWsWJFp/kYnRo2
QgnKJBFdAAH+9NNP+juJB7k5OULmc+fOUQciBU2zXrhwAb7knOXkJ3B7omxI
ss11p6g9Rjtt2rTZsmWjAjYLSVFskwgXQ40fXLVqlb0bwsLC8EFi9AAJbNiw
gdaEdtpbfcGdtCllDh482Gb8i/PFn3700Ud16tRxeh4T/4jpwBOZ/wmS54mu
s01LLKTm0XCMUqVKUaxeIDt37qSP37p1S33RHg3gZuHs0HPaCI5tvhq0NbEY
1szb29vNS2vUsFa8xmwzwWrx8pSjR4/aNGgwWMLw+fPnnzx50kDHko9t4hbt
sc2EREF16NCBXhkZGamh0CtXriQG8VQA8t1332FMYJs2+SRVXbFiBSYX/mPT
2hw5cgRrjNUyfooZs3z27FmKwvopAykaYP+RIS1o/CzLwXN79epFCK++iCqK
+AKXpFd+mpsg9+uvv7apinBOPz+/yZMn29yQXrBgQeMw1rwtPXz4cPHixe3J
0znQTLQRNkSj51R49uzZNWrUUJiJi0gOthkVFUUfbNmypc0l5QiKV1NW+7sT
1JxGx5Bau/SIFiEGd5rBEg1h+rp37y7kKebmChcubHPbBUwee75v3z5XKmwT
S5Ys8fLygpBoogD6XbNmzWxGysZAdQn6sHtogsFIMu+SMWNGJKBEhRqkKLaZ
kGg9YM72TAeWnA6l8Z44TeRQtGhR/ZA+kvniiy8w/jZH6gREJ8UMDhkyxOnR
Eg+yzeSwkGDZsmUff/zxlClTNBUQfgGJ6StmQAOQDJ4RV2u+AtHR0X369Pnk
k08wd/akZAZ79+6FlTm9xs9a8SbJNt0mXpPwFNtMSNxMkT9/fl752LFjykVi
EIhc48aNXVxA6zSM2WZCokkPDAxMnTq1fvoMQO9z586d5KZUM2aZkJyuUalS
JXv2H4ZAoJ1Ms3UGIH6hjW7evKm5jmIQOWbPnl2fpwtBQTV9fX35rf4rITSb
2b0oE803jkZN2lL0sH///vhTV2a3aYu2bduOGzdO4W9EgrwyF/WM7tKlS7it
rVu3Ov04NSxnmwiEqIFOOnXqVJv2UxDp9OnTK8sU3QZ6X4UKFRYtWuRKIYcO
HfL39yeQV66gafQpexPBSQKBYK+UuQZsVP369WEgNq09ata6dWsMoFXDRAro
eoRmJ06c0FynQUNDQzNkyKAfazUATY//pedi1e/fv29wJ42CYTQw6SmNbRrg
6dOnbdq0Ie7QaL6YnILMQynV12nNbt260VmGDRtm3KAxMTGZMmVyZcrJU2zT
EguZkOjE6WLqfbKwLGRic4EZvQmBa1YvGNAAKsm7lC1b1vwMBfQmODj4zJkz
tWrVogUJOR1/p/+D2Fw/aNAg5/LVWyVeBUmyzQS3iNc8PMg2hW3knh49eigB
JmQb300oRI9DUO7Pk58k2wSxsbEYZwIlzZiGWD+AvU1yw3WSZhnhEIshnO7d
u9sT4LNnz8LDww3qmUxYt24dgWrOnDk1MdrVq1dz5cqlznShBqwsb968tWvX
1pBnZIWdxC+j+atXr1YP+4sBrkKFCmnmAjQwaUspBO63YMECUy9pB9euXfPz
8+NximYKQ4oV0j8dqxIQEIBKWJKMwnK2SUNUrlwZckLAbvPndEO4GfK/fv26
8/V2Chs2bCAUdTRBnwZRUVFoqcL2kcaECRN8fHycng4gAIR+x8XFiY+IhUqi
olhmnqUXMspWpEgRt0kPDRk4cCBMafny5eZ/RbBPt82cOfPPP/9sfCdUAXZt
b2I64Z1im1gDOnLq1KlnzpypJpz0a8IHDG/Xrl2ViyKBJH2hWrVqSa4ihmWV
LFnS0T0saniKbVpiIRMSBwCxKp9//rkyMUGXwUhCjfRTFfRxOtHatWvVFw1o
AEqIcDp37mzSDIol9CtXroSSNW/eXMQLzg07u8g2rRKvAjNsM7nF6xA8yDYT
EsdsISfq7SHffPMNwuEjPoK+4/5TP8ywTTG9i/HBxaivi7g4LCwsSWVO0iyL
OTuMISqhvk7g/Ouvv4q/0bEDBw64n5CjAOnTp8ftqgelExKdr6+vL2LR6LYA
KtGvXz8xx6TW5IsXL+bOnRsXBpEbO3asemcobK1JkybNmjUzzl5r0pZu27aN
B+lHhBwCVaKSyro1ngidQ1ts7nNEeyMiIuAblpySZjnbRJFoRAygzephE8QK
tFmzZrl5BTUWA7uB93QxTdaVK1dGjhypOLjHjx/T6bp16+ZcMmRRK1iZmGMi
gkDlsBX04h9++IFASW+sUDbobjKliaNRTp48iX2AW8bHx/N0Wjk4OJguNnfu
XJOF0N0I9DQhvz1glFq1amVvC0DCO8U2sdVly5blxadMmaJhm23atOF6+/bt
lYvCZadLl85MUxJ+UoIrqusptmmJhUxIDMn9/f2VpezCDKZNmxbKp+8jCEps
cFbbKAMacP78eYKjhQsXmqzMqVOnevXqBYmi//bs2VPEEc5RKRfZplXiVYBl
o9EbNGhgkE4hucXrEDzLNrGWWbJkwWIr8w501XLlyuFVJ06c6JHJdDNsU7Qy
bxcSEoLTgfLFxsaiijt27CBkMLPpNUmzbHPRJgIZOHCg61lcXARvevr0aZHu
SQ0RwPr4+Og33KHzkZGR9evXx2JnzJhRPTOLC4NSdu/enV6sWYFw8+bNAgUK
TJo0yTjoMGNL+QqWa9CsUBGYSd68eT/++GPUe8+ePZocg9u3bxeLB5B///79
lyxZ8tNPP/HQ2rVrGyxxITqgHS1ZvGc521yxYgVk0uZEMO/YsGFDb2/vyZMn
uz9L8MOHDytWrNinTx97pgP1g/ZkyJABZSMM10wxoGx4al5K5OsgxqHtsDCE
LaiZ3nCZLA0NqVKlCvfQ4nhPVI5gkzKhJeHh4TZNqJh6dnosxR4Qy8aNG6kM
Ivr++++xmdRn6tSpvFrdunUJUXHrJotCP2lluq2Z8V5CLR5n4NpSAtuk0bHD
EIwWLVpgUgycCEEW8bKma/AK1atXx7aPHj1aXOGGvn37csVgwaoat27d0lgP
R+ERtpmkhRRA97BmCARNq/L/gdyw1UKeuABc//z58/fv3z9jxgwi7tmzZ9sM
Z8QsnmbBmAENWLduHRZVM9BhD+gqtlr4I16QNqUdmzZt6ly86QrbtFa8xNGE
h7Vq1YLD03/pdBBpm8lDLBQvjgB2pLefd+/epcI5cuTAs2MMDVI6eJZtIh/Y
vggwlYv0aPfPDiswwzbpNS1btqTaRA2QLmJkgtlz586hD2ijGe+cpFlevXq1
ZtEm6rp8+fLAwECH8sK5DVRv7NixyARfrNm8cPz4cToLis113D334KPVb4HE
IHJ6RgRVQPOTZO9mbCmPaN68OXTXpvRwENWqVaNixD70Gv4galD7X27AUikd
EwWgP+IOCFSNR4TQCkIGrK7xK5iBtWxTifTVYzv8AdeaPn16wYIFYaHKKLqb
gS0lvra3vIrIDpF6eXnlyZMHisgr4GfVthRGtGrVKuWlsCdEN5s3b75+/bqe
A5gv7cyZM2jF0qVL+ZYaKvnlIC32dEBsi27cuLGFibDEtmiiMHUII/I5L1y4
0M/PL3369OqlqgbgFdq2bcsrG2cYM4+UwDbpthhhBE4wSHd2dGCZn8O9UQkl
hLx69SpS1Y+CJh88wjaNLaQAPQhlRhQikYU4vRcTLegQlp8YXHkEnQJWQ5Uw
4MbLDyIjI+lZmmUzNmkA3W3AgAHly5c3ph8KUEW8kmL9sMNUuEaNGs4l2XCF
bVouXvOwSrwIc86cOZoKCP7j6+vboUOHdu3aZc6cGYpiz9x5lm3ixPPnz89t
YWFh5iuQrDDDNnk7ODzVrlChArdt376dsIXuTEhrUg+NzbKyaBMlQT8bNmyI
pglBOZTeBNsIcyD8SeUIcPROZAOjKREa5h0hqK8fPXoUWz116lRR7QMHDvj4
+OTMmTM+Pt5mOSgq4dX58+eF5iPhJA2LGVuKuatYsaLNzJN0f1qTgFfZpnTx
4sUGDRoQQYhegxgXL16s2YNvEogFYmDJ6Ja1bBOBEMtg0IiblMMCunbtSiCA
tQkNDbWXKdoN2Lt3L1YLNdB/RdOULl161KhR4tA3lGTr1q2FChXCDosbnj59
OnToUJN59R0qbeXKlepMm2YgFnIbbPRzFK9evcIyZMyYUb+tnkoGBARgu7D8
JvNXE+IRVtDlhw8fbsnoq8fZJh2WPiKmXWjE1KlTOzQnCEES++ZGjhypWHKx
3MuV5b6OwiNs08BCCgheAQuCxgvWjQ0vXrw4Zt/FlUK8Kf3dYAIIRaX38Y54
W+oQHh5uRl3v37+PQVOvmjbj3A3gCtt818VL/QcPHqzxxUS+eEnuV8ZhcPe4
D3vO3bNsk9cUJApzZ74CyQqTbDMoKIhqV65c2Tk/YmyWxaJNLy8voukricD1
YzyhbY4mb3ny5MmJEyeOOAJIl6OTpyIHu7e3t2b1Gv0dVwthVlYx8QfMOV26
dDExMTaLQrsw7EuXLo2OjqYVzIzSmLGl+OKiRYtCX/XaSCvgwTXL12n9Fi1a
iCVq/BYL41w4LJbymqeINP3cuXMJvmbOnKmJEK1lmyK7EdZMT8xofQgYQYrJ
gXrLsXnzZsyj/iweyACS0a/+2r17N2ZcWDyCgnnz5pkZg3KoNLFo09H+LjZ4
Ql9NnkydkLiEZsKECfzKZqKVFStWYJ1CQkL0o6noJxQFo6TenWEMkdGIAjF6
JqtnDI+zTXF8MNoOLW/VqhUa7tAyOZo7Q4YMwcHBivek0+GbkGrhwoUtWX2t
wKCne4RtGljIhES73aRJEwJnzardyMhIDIWLaTew+ZkyZbKnhNQH5wJPoHGp
Ht7ETEPwptOnT4+KilJ3oj179tC+efLkcW7jnits810XL44Yp6yxSLh7dXqW
hEQmEBoaqhlxUuBZtgmPEgfiOJ2UwHKYYZu44ICAAKptPDBuAGOzfO7cObFo
U50vCIXs3r27+3cHJwk0cM2aNdADzfl9XJ86dSrEUv2aKIM4pMbeDBf0eM6c
ORhG+rXJIRoztlTENfokeNh5QjObZ5pjuhctWsRb0KeSTKBqD2IIsXXr1iYp
IqpFv8YutW/fXn8+kYVsc9myZalTp6ZiNvkk1a5SpQrNlGSyIPzy8uXLeco4
c5g0aZI+C5YGPBTzqN8pf/nyZUy9vsfxClyHp9Gaw4YN068otgmHSuMipkyf
MNAY3EwJeDfza62xq7NmzcIn6rfaEbuVLVuWDmXzcBwxeIJRspm31iaErcuS
JYvNFqHyNMHixYtRFTj56kTQ1gb8zQm2SVXxTRMnTjSpP2japk2b7HUBjLZY
XI0JzZUrV8OGDc0v/kcfCL7gqOq4kgd17twZqdatW9fafQQGPd0jbNOehRSg
3VEVLLNGtUR+EhczlRH1+Pj4GCw2xj4TREBj0EaT269+/fXXxo0bx8bG/qwC
mkx4ZZDCWgAJHD9+HDWL/v/YuHFjmzZtmjZtSsfRfMXNR48eTXJg7R0VL72A
EFjjJR8/fszraGgSEqAvK1k7NPAs2+TpyAEFSI4cyM7BDNsUY4+83dChQ52b
gTI2y2LRJr5DPZBCfSAbKXDRJi5JTD5qRCGIVqlSpdSSFJGU+aVlZmDGlsLS
cfr6GUM+PnjwwKZ3hmaMHj2at4AwGOchNIDYWuLQMax4Paqq31ZsIdvko1hA
O2PGDJvvTjOJ7IItW7Y0rjk8is7i5eVlcp0GnQvCaVztqKgozML+/fs116F/
9rZpwM0w+LCmiIgIkyMP1pZmEzTZyJEjoT0Onf5JV7K51ARzkTZtWviJzZHS
ixcv8iuHRvOEL6N6NsM6Xhxai+/AhmfPnp22K1CgwODBg9V5FDVwgm2iXSEh
IQQ+JvUHTSPGN96tg0pPmzYNE6qsiEgSdHD4ZKdOnTTrV5VD8QIDA5Psdzw3
JibGvPzt9XSPsE17FjLhv2HzwoUL64OmyMhIF/OlJ/y3vGrFihWuFKIGXRul
hRkG/3/QiN7e3ngf470AhBXwKH9/f/159Hnz5s2dOzdKrj+nHgkbMOF3WrwP
Hz6k42s6HTLctm2b5k4RodvLWOhZtklHw3qUK1cuOVKJOgczbBNHkCNHDnXW
a4NpEZswMMvidLxUiZk21faNWNg47aRHQAgJK8Yw6kkL4WGWLFk0VEeMFeDg
XMlHp4EZWyrWT5o8KVhA7FLHfWjGbB0C3aRChQp4MfMUEZ6Dc9eHhxayTTEO
RpSnZ3QC3C/2jzRr1sz9k+moU6ZMmRyKRxCXODrckiMwrCqNJgsPD0fxzPdc
cbxm9erVNSs3KIrYlhaxNxy9cuVKqGNQUJD5/bYilRkc1Xg0WORlNThCV4HH
Z9KVatSoUQOxmyT5MEzkhtW1meya6Bix2zy+QQPIxoABA8y3tb2e7hG2aWAh
4c9Y8nbt2mkCTwTStWtXuuqhQ4fMV1WPn376KXPmzA69rzG2bt2K6daHycQU
pUqVops49yxXZtLfafHevHkTtqmuHn9DdfSrsE6dOjVq1Ch7PcWDbPPZs2eN
GjXCiM2ePdv9eTXtIUm2KU4kpNoNGzZU1kcZTIvYhIFZtpdp0wmIY3p8fX2z
OQLe/fDhw2bKx0nVr1+fAEfdfEePHhV7mb///vt06dJp8heJBCOff/65i6kU
1TBjS4WdMUiVrwdeG/9OyfZOhTYDetYnn3xikMxHA16Bfk1V9aOpFrLNkydP
Zs2alYrZ6/iYEdSA/mt8ZmgyYceOHZhHh0gLwUtoaChhtSXTnVaVJk5rcmhX
wsOHDzHI+oNQlSndCRMm6FvkxYsXzZs39/HxsbdiyiYgY/nz58ed2Zv5Ejh/
/jykCIVJMkdBCmGbYj1qSEgIQkNWxvT75cuXUEQ6nfo2vJuyXEGc6WZmNSyW
ENdgMjI16OkeYZsGFnLz5s34RP3ZeVgPdBtvJTbZOQ3IIf3d3kp+R/HgwQPi
NZvD9SJ1eSpHEtKq4QrbfKfFe+fOnZ49e6rjX8gzrkFDdeggeDoDY+JBtklv
Sps2rb+/v1UbNi1Bkmzz+vXrxYoVg5VptijamxaxCQOzrCzatCT/DC0L69ti
GmgmoZAZJ4t8oNaxsbHqi2JtttjSvnv37vTp02v2hPJSeC79AhVXYMaW0hHw
Fw6N1NGV4GnBwcGupK8R5yvpLQnKg+UZOHBg3759lyxZgtDEU0QyXvpXWFgY
L9W6dWtlt4iFbHPp0qUGizZFKgNuKFKkiMk1kNZCpJ13aLUSvbJs2bLm80y6
pzRxMI2eqHCdfoEB79+//+jRo6dOnaocoXjixAnenVZGNzCeqJ+YXxPblLy8
vGwOMEIy4VeUprb/6B6RnTL/wlc4CPVAPa0vcmvYPIRXAXLQL+yxiZTANkUu
C+JcsaHy0qVLvLW9LsN1wmEohIaRHjhwYMaMGeJvOHmhQoXoxTZXdyvgNuSv
cYsGDW3Q0z3CNg0sJD4RT61fwo1ieHt7O3RwlU0sW7YsybWUJsELzpo1a8WK
FTb1WdlwMWrUKCemq1xhm++0eAlmAwMD1Vuu6OPz589XCxnOgI6p803pkXxs
U0Ti9tgmz82XLx+kzt5meedAF8a2TJkyxemhM2O2yVs3adIEEqXXZ3vTIjZh
YJbFok2nd7u7B9Qfb6hf/XL79u22bdsKioLL9vPzUw+Oid5arlw5h/QtSZix
pWKC0iGp4oBwAS5SDog3PV19aDLSoNuWL19eRBPiQE/lPAgRs0ASBMfYvn17
6dKlhTytYpv8HRISYm/RJk/BZ/n4+GTJksXRBAhWgVAaoutQWp6LFy9WqVLF
Km5sVWl//vkn5aB4avnjd7hCNxFLBBcvXkx/V07lJvTg45AhQ1A/saimU6dO
ggvhjzBN+kPtHz58CDmpVKmSZjMplkSdsgmNoj9qiOXhw4e5B3MnNtfoQSVR
zlSGR+gqSAlsU6xdodfcv3+fN8XV2stdhnbxLc5CQwCI+zBTyjlx3BYREUHw
pT6vVoNbt27xrYaOGje0QU/3CNs0sJBYqmzZsmnGDTD1GLF27dq5OP4vkq5b
deAa+kwAZW9ZLwos1qv36NHDuQztTrPNd1286Cd+au7cuXQB3oUQSe0deIV6
9epB+YzH/5OJbSIikadU7xwhIUOHDoWw1a9f3+SmY/PArWOQvby8TGZB0YCf
iKWk+qQl0FfsT+HChfPnz6+ZO04wnBaxCXtmGUPXoUMH5BYUFOT+IylNgkqK
rHQ2oeSGpUvCjvC2ikxOnDiBRXUucaUBTJ7LtmjRIsy7+fWi+Ijg4GAXKQdR
ia+vrzqz7rFjx3LmzKmczowRKFq0qBJro8CwU2U+9MCBA3wUO+IF22zTpg3u
6Y45oMOYBU2SN3gF7MLmUvkrV67AbdD/4sWLJ3lqdvIBchUQENC8eXPzSxCP
Hj0KMbNqialVpWHfiKnVfkQkakABlJkLWhxfQ0Mn/OeSKlasCIFM+G+TUcGC
BYUtwk/VqlWrWrVq4luBx48fBwYGli1bVqPYgqkqRSUkHhuELv3000/q26jP
qlWrUAZ/f39913jw4EGfPn2wRRkyZDAzxpIS2KbIOSZ2t127di08PNxm7jKR
D1/k89dD0ztwZ7QLngXHrR+mhuPhZ5VsvUr5Bg2dYNjTaegaNWp88803Jrs5
wMJAXF08udKehaQbYgmbNm2qvDsmne6JkE1mWTcAAiSop7+7eAICAt+3bx+0
iraw5zp5EeFejU97tAcXT658p8XLK8Op6Be4MySMB1mwYAGEc8aMGXXr1k2b
Ni0BcpIitZxtxsXFUROCOKXn5siRo3gi0ATi6Ny5c7do0QKqbG+IxmD2IUmI
dM2Q8AEDBjh0FipGm1p5e3urDQ4VptrFihVDSTAFECdIgs3BMYNpEZvQm2UE
gtzSpUsnnk4ojaX65JNPiL5TzqJWAUyiOObAJpo0aaKQBKw03bNZs2aYwfnz
59PHzTeleZi0pcePH8+VK9fmzZtNFgvPJAQ2mbrQJsTsJ1GVUojI20+PUHzT
3r178UFiUY2IWdTj6qtXr0YlNm7cmJBoTiMjIw0kbw8I5+9EjBs3ThzdJYA0
iv8HVF3saKa2MGTPpj7gTadMmUK/Mx+PQ5mIE61SLatKIyzFOKuXxIi1WI0a
NRJDFmLvj9LiYtGmMh+EJWzbti2RryIHMehas2ZN2gg6NG3aNMwdplK/XF8s
/1Z2GvIgIhqCZf1+dl4TJSxXrhwuo2PHjmIwEAkQUdKX0UyMG2ppZvVySmCb
YjFP5cqVcY7wbc0RKgqQg8hsbxP4Kc0putg0jL845IUQYP369evWraPt6tWr
N378eD2hNW5o456OuYB7ONrNYc6adU1qmbhoIfGPCFNMp06cOBErMWfOHEtO
yBKCspccwyRwK+K8JwH6iGZqkgZq164dllYtLiJrh+ZAXWSb7654FZw4cQJu
oz4vhhAM4mSQp0KNZBrbdBrGsw8mgXGePHmyQ2zTRRhMi9hESjDLbgOqgmck
eE+mg+9N2lKejvEnhDFpK6Kjo0NDQ13RIl68YsWK6p4uEiIRmAgrJ1ZI5s+f
X6RRheNByJXllNST2uL4NMMmHwJOnz5doEABk8PgtFG/fv3MxxHuKQ1txDGp
9xIm/JeNRDkDka/q1q2LuROjMSLZhZKr5P79+5gRTdJIaI84vIzCly9fbm+s
Hp2hKGWRJyXgwr744gt7w8W89ZEjRyZNmoTXQ+tQ2pMnTzrqVVOIWUO2V69e
xblbeGCoAF6Jtxs+fDgRAZyTv+1Fo8YN7eaebpWFJISJi4sj7rDQt/7444/0
dEsWbSY3XGSb74d4qTzmEWXeuXMnVtohn56i2GaSsw8mcebMmblz51pyFptJ
GEyL2EQKMcvvB0za0oTEee2yZcuaOdaQPkWBLmZLiImJIa5UBx1imk9ZyIev
adWqFT0XfVi5ciV3fv7550oSV3plyZIlu3Tp4pEDfTwLSBGuGZ9uxvDCyurV
q2fVUZtWlUbzVahQQbPuF+OZOXNm5WgDWtzX1xdqx0O5E75H6KGktYdVZsqU
yeYJnkli1apVmCBlGTnhDCVPnDgRDYyKikqmSFyaNQXGDf0///M/7uzpyWEh
LYGgLu3atTO/ZsaDEHlcx40b5zS1eA/EiwEpV67c+PHjnfCMKYptGs8+mARC
IOTXH0SSfDCeFrEJaZYthHlb+ujRI6hdkmkDxZ3169d35dCBly9fBgUFDRs2
TB3J4k06JkIMcUAncEkYhBs3bmDEnj17xouIiVRuQKkqVqzoUGLw9wmEbLA1
zYSmTezfv5/GsmpXnVWlLVu2rFatWho7SWsWL15cnBOEC0Bpxe5pAKuEilSp
UkUcVIdLqlatWt++fZ3wFGIJB6ol8oWidTwoTZo0GJwffvhBc7yshZBmTYFx
Q4sjTd3W05PDQlqCS5cuwb4cStvlWdBxXBnFeg/EC7PKkiWLvaMAjZGi2Kbx
7INJ3Lx5c/jw4Ramc0wSTkyLSLNsIczb0oTEXI7+/v5Jxi+nT5+uUaOGK/v4
cOuQDX0JFy5cQFtGjBgxcOBAIuUxY8bwoEGDBoldOXicli1binPEQkJCrN28
/27h7du3iCU8PNx43gpbMWvWrJ49e1oyXmdVafDGOnXq6I+YFMe8wma//vpr
yAbEg+C6U6dOQ4YMEXuooZrNmjWbOnVqYGAgNXFusEss2MCW1q5dOyIigt4R
FRVFse3bt0eeyadU0qwpMG7oBPf29OSwkK6Dfo00BgwYkGL3wyYH3mnxiuXf
WbNmdW7qJ0WxTePZBzOLJYgi6b8mk5NbBZito9Mi0ixbCIdsKV1v5MiRcDxj
dVq/fn3Xrl2dnth68OABzt3eskMeff36dSVNB+qtDo74lojJld1J7w3oSgEB
AZpt1BpAC3v06LF69WpLnmhJabTg6NGjhw0bZs/OP3/+HOMmtIsn3r59W01u
iV5v3LjhyomZZ86cIdpdunTpo0ePrly5okTBxD7J6tmlWdPAuKHd1tOTw0K6
Dvp1kyZNLEl89A7hnRavOGRTpBdz4ufOsU3YVExMDL+19ixF49kHMyXQgu5P
U+nQtMjdu3cPHjwIDylbtqw0y5ZA2NLAwMCff/75yJEjSQ5rc0OvXr1QM4P5
xO3btytpsR0FbGHgwIH6g+MlnABBdOvWrS9dumTvBlz5zJkzbR4d7gRcLw2l
IlRBwTQnbrsTxObqTJtugDRrKRnJYSFdxOXLl9u0aWPVWut3C++ueCFXzZs3
NzguwSZQv/j4+AMHDsyfP79MmTIOsc1Dhw598sknuXPnzps3L5bZ8SrbRZKz
DykWJqdFeMGFCxf6+vrmzJmzcOHC79B6lZQMlHny5MloIzpZokSJY8eOJfkT
mMCcOXOSKazeu3dvdHS0pJpWAUu1ePHid2W6Dd4VGRnpQaopFm2683gIadZS
OFKahaQv06NdORH4XccHJd7nz58HBQXlTES9evWSKZ2RczCefUixkBOgEhIS
HgeWE7Y5ZcoUGe9ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISHgQb968efv2
radrISEhISEhISEh8b7h77//3r17d5kyZVasWOHpukhISEhISEhISLw/2LNn
j7+/f5MmTapXr54qVaqlS5d6ukYSEh8W/vnnn2PHjk2cODE4OHj69Om3b9/W
3EAwGBsbe/z4cU/UTkJCQkJCwlX8kwj+WLx4sWSbbsP9+/enTZv25ZdfdurU
adu2baIJUj7Wr19fo0aNOnXqHDhwwP1PR0qQMcKipk2b/vbbb+6vQHLg2rVr
gYGBZcqU6dy5c0BAQNasWdOnTx8WFnbv3j1xw9WrV2GhoaGhT5488WxVJSQk
JCQkXISn2OabN2/+/vtvNz/Uszh37txXX311+fJl/r579+5nn30G4UymZ2l4
7L///us0s+W3Q4cObdmy5a5dux48eGBF7Wzjzp07I0aMWLJkydOnTzVfxcfH
b9y4sVixYocOHUq+CrgNe/furV+//tatW5VG4ZVnzJiRK1cuLy+vwv9h3bp1
H1ofkZCQkJB4L+Fmtgl12b9/f4cOHdq3b1+nTp1q1arBuBx1qX/99VezZs2C
g4OhrJqvoCWlS5eeP38+D7Ku1hbg8ePHcLZbt26Jj2/fvkUIX375ZXI868WL
F02bNi1fvnzXrl379+/fokWL6tWrw3WdKw1JDhs2bPjw4W4QKbqRJUuWfv36
6bet0ehoy3vANhHj2bNnbfJ2OGdsbGxkZCT/04jur5uEhISEhERywM1s8/Dh
w1AXMXgFyZw8eXL69Om//fZbh5jM8+fPIyIiduzYof8VdG7UqFHnz5+3stIu
g3quWrVq8+bNyhXIZ9WqVadOnZocj0M+sE1vb29a1sfHp2PHjpcuXXK6NHey
TcIHGLKfn9/Vq1c1X703bFNCQkJCQuJDgzvZ5tu3b3v37t2uXbv79++LK3fu
3ClevHilSpUePXrkhgp4CrDrESNG/PHHH+IjtG3BggWwzRs3biTH42Cb8MN7
9+5ZMg/rTrYJdu7cmSFDBv3otGSbEhISEhIS7yicYJuwpitXrjjxLNhm586d
M2fOHBcXJ65Aw2rXrp0vXz6Fd/3222/JujjQPCDAPXv2zJYtW/Xq1f/8809x
8c2bN/369YMzK1O9169fHzhwYJ8+fQSRPnbsmLj+8uVLpaj4+PiIiIgzZ84E
BATUrFnzs88+o8wLFy4YV8BpOSts04nf6uFmtilGff39/TWrN/Vsk0a5ePGi
G6okISEhISEh4QocZZuXLl2CMSbJlOzh2bNnd+7cUXjL77//XqJEicqVKytj
m5cvX+7SpYu9qXDuHz9+PDeMGDFCTecggcuXLw8PD69Xr953331nFS+iVtQt
ODhY4ZbQG19f3+nTp/+biJiYmJIlS3777bf//PMPHxEjrwNF5IejRo1SdhNH
R0dv2rQJ+rRly5aNGzfu2LEDwrl3716DR7siZ8E2Dxw4MGnSpCFDhqxdu5Yr
TpQjYJNtXr16FcL8ww8/iI/If+LEifPmzXN9lz1PmTZtWsaMGffv36++rmeb
L168GDx4MG/nBhr88OHDDRs2EDIsWrSIRklpq4IlJCQkJCRSMhxim5C9li1b
7tu3z5JH47Lx3d7e3suWLVO7719++aVVq1Z3797V3P/69WsozdmzZ9etW5cv
Xz5laR8Mh/pDMuGEAwcOhMhZlTTmzJkz2bNnp5LKg6hA0aJFRR6e06dP582b
d9y4cQrF4jpcFNL1008/LVy4ULyUWJ6q5s/cD39r2rSpvZ0gLsqZYtu0acMj
Hjx4ACfnj4YNG1Kmc6XZZJurV69GMqdOnRIfb9y44efnB0u0hIZB5/LkyRMa
GqpeCWBzJh0SGBQUtHPnTtcfag9o3cyZM1HI2bNnx8bGzp07t2rVqoGBgQRN
zhWIchKJdO/evfd/6NWrV8+ePY8ePZqQqBuod0hICBeVG/hIP31X8mVJSEhI
SHxQePbs2aBBgxo3bnzz5k1795hnm69evcInQres8nonT54sUqTIhAkTNBuQ
KX/q1Km4Y/XoZUIil5sxYwYXcb4QD2V2G78fERHxMhFNE6H5odNYs2ZNtmzZ
lPTav/76a8GCBcWSQohQv379cubMGR8fr9x///790qVLI6URI0YoawOo58iR
IyFL6heEb3z66ac2V6u6LmeqR4srVO327dsw5MGDBzu3jFPPNimnb9++FStW
hOyJKzExMVmzZoVjO1dhDXbt2pU7d+7ChQur17XaW7d55MiR2rVrO7fkIEnQ
BHPmzEHr1CpKTdq1a+fv7+/ckg+kh85s2bKlQoUKdL0yZcrQB+Pi4pTxZ+Ks
PXv2oAN8mzFjxrFjx0KnnSa3EhISEhISyYpz585BliBIBr7YPNvcunUr7t7p
ITINoI5Vq1adNGmSPotRQiJtq1mzJh7Z5g/9/PwmT55sc0M6LwtPs2SEDVbQ
v3//8uXLi909cDZePyws7PXr1wmJywurVKkCz1EvL4Q9VqpUKU+ePNBUpQ60
ArVVMz1KaNmyZcOGDW2ObVor54TEoc769euXLFnSuZWcerYJf6btCAcEBxPk
GXKoPw3HiWdFR0c3a9bsm2++yZAhg1ot7bFNBEtIBfu1qUgugraDVC9atEgT
EF24cMHX1xce6HREgAx5ndSpU9vseshh/PjxdExEYVXoJCEhISEhkRzAEZ85
c0bZCm0TJtkmvv7zzz+fMWOGJUQO2tOmTZu1a9eK5Y7Xr18XFE4BF2fPnl2j
Rg1l9Ey5Pn/+/Ny5c589e1Zf7K5du2DX/O96DRMSX7l69epi0ea1a9eaNm0a
Hh6u8ENBLIOCgtQ8RFAIDUP49ttvZ82apZbb8ePHc+bMicz1wnRdzuLknS++
+ELhlq9evWrUqFG+fPkMhrgNoGebCD9HjhyKzjx//hw2yxN5kHN1Vmq+bNky
ODxcToiXYp89eya+NdiTfvr06WLFilm1wEONJUuWeHl5Efioh6YTEkVKK5co
UcLpoCA+Pj579uxZs2ZVViOogf40btyYjkk4JteISkhISEi808CRQWxwalA7
4ztjY2OLFi1qyRZg2G/fvn2VDSbwt1GjRik5kRRcunSJJ27dulV98enTp3Xq
1GndujUMZ/Xq1UqydPEuEydOLFSokPqiK4APwAkjIyOjoqIaNGiwefNm9UAW
TB7yqd46DUOACefPnz8gIICXgkJzP7d99dVXnTp1UuZJIYENGzbs2bOnzYFN
1+X85s2bwMDAypUrK3KAKcHbq1atqqw9cAh6trlq1SpokpJYgDflrRH+gwcP
kJU+MbsZ8KuZM2cWKVLkyJEj4qFTpkxRpy8wYJtIHpVQJwqwCvDzyZMnnzhx
QnOdZg0NDc2QIYPTiwfWrFnz8ccf28v9xXMLFCiQPn36H3/80bnyJSQkJCQk
PI5Tp041atSoWLFiadOmhW3yf/HixRs3bnz69Gn9zTjxLl26QKJcn9R7/Phx
mzZtmjdvPjwRMDF4QlBQkL5krvDEjh07qoc9oWG5c+eG7Vy7dm3s2LFqwsb9
TZo0adasmYsjbAqgl3ny5IEWbtq0ySYzhDZ37dq1W7duMNJBgwZBPqEl0MXy
5cvzce7cuXAS3nfkyJHLly+HC82aNWvEiBFQQUq2uYTSKjlv3Lhx5cqVCjn8
5ZdffH19161b51xpGrZJzXkXeKCghbQOjZgmTZotW7YQQRACODEWRyFjxozJ
kSOHer/P+fPnaWukKki+cb7NBQsWwFThvc69o6OgSgMHDvTy8qJlnfi5WPRL
v1NWI2iAHLy9vS1ZnCAhISEhIfFOQOQpioiIcHFST2R3T6UDnlfPvngWT4RC
qPdH/Pnnn1BKfDR0TjMAKIaD3D/zSJWuXr2q2UVy9+5dUY1z585NnTqVt4MD
37hxw5hGWiVnnjJt2jTY+J49e+bNm1elSpWFCxc6Pe6nYZtiwaqPj0/t2rWp
6pdffhkVFQXJb9++PczQuZnl7du3Z8uWTXOk1Js3b2Dy+fPnFw1tzDbh+Tlz
5oyOjnbqFZMA3PLkyZPLli2DW8bHx1NJhBkcHIzqElM4UaB4l9SpU1Om/ltl
0SZxh1Whk4SEhISEhLV48eLF9OnTe/ToUa9evfXr17vOvvbu3QsZiImJMb4N
0oWXxEVWrVq1igp8bNeunRM8hCfyXM16vNevX0Ms9dxp586d3Lx7926DAi9f
vgz7gifUqFGD/yFOjlbJUWzcuFGzGMAAxnKGstKan3766UcffQQHmzFjhoaK
QISUHJ40+rVr12BfCMTmBLr50jRsU2SFWrp06aNHj65cuSJGnimNoEC/T+f0
6dOtWrXKkCED7LRz586akbqnT59Sh1eJsLm/m+sXLlwQixCM2ea9e/cg6tTT
2jRBvBctiA736dPn+++/P3z4MASb8OGPP/6oW7cudHHlypVOFEsMYrBok/7b
qFEjuWhTQkJCQiLFAv84e/bsTZs28cfgwYOLFCni+mTckiVLYEG4SHs3vHz5
Ep6ZNhHFixfPlCkTvjJNmjQVKlTAU0MS+vXr58SiQZ6IR54/f77Bc9etW3f+
/HledsCAATzO3pYoroeEhOTMmXPs2LHHjx+HZybHFmYNqNWUKVPMn1FuIGdI
3ZAhQ6A3SDhv3rxQRP5WZ0nidb7++mt1OiYDOFSahm3Cr9SZNg0QGxtL83l5
eeXJkwfCiUrUqVNHvUwR/rZq1SqThMqYbYp9940bN7ZwB/ezZ8/69u1boEAB
dbxDbTds2LBw4UI/Pz+n11WKRZulS5eGS9/XAdnC/yncOHSSkJCQkJDwFC5e
vDh69GgxXvTFF1/kyJFDw3a4fiopqJdKwkCGDh2Kb7W3+wb/3rt3b5zjtGnT
xPrGp0+fdu7cOV26dOaH9WyCJ+LrDQasdu3a5ePjs3Tp0ujo6BIlSthz/Xfu
3IGo8Aq//vqrK/VxFG/fvj1w4IBJ/mMgZxjO8uXLeUFeUwzqQr1GjRpFKKEs
J6DVoItmpssdLU3NNsWiTfXZT/ZAUbApihUDyPwQZShUqBCMWtyAkvC++hz+
9mDMNqlqx44d7W26cQJ0kz59+mTMmBFKrPmKOgcEBBBM+fr6KkcMmIeyaBMS
XsMWaAi+lYs2JSQkJCRSJuADCxYsEFOxly9fzps3b506dTTnTZ87d06/clID
dX5OnGP37t3LlCljc65TpCqCWCpH5yhPyZYtW69evZzLKC7AE3luly5d7JGo
J0+ezJkz56uvvhozZow9vw/Za9++Pdxg7dq1TtfEDTCQ882bNwMDAzWneSIT
uNzcuXPFMsIJEyYoR7Qbw9HSuDJkyJC6deuuWLECxYBtTpkyxXjC+s2bN2Fh
YeqdSgK7d+/u0KGDmBnfsWPHvHnzzAxsck9cXBx1y58/vz22ifS+/PJL2Kx5
hnb27Flek1/t3LlTXw1eFp0JCQnRj4HDe2vWrEk3+fzzz5UETeYh0mR99NFH
UVFR+m9FagUKb968eXIv2qSJR44cSYP27dvX6bNoJSQkJCTeCeB8ly9fPn78
+HHmMGnSpJMnT9osClcl1rnxB648derUkZGRGk+KX36QFNQUEe4RFBSkPjhG
jUuXLsEBmjRponG7t27d8vPza9q0qSaRpkMQSRdbt27tSmYbGE6GDBkMJtlT
CAzkvHr1apiJnhH99ttvoaGhNPfFixehDSbJiROlEb+0adOG6onTFZMEkc6g
QYP0G/lRBq5D88R5muIA0CQBs12yZEmrVq26deumPl1Icw8F5smTx94NeqAP
s2bNQjf0Ycj9+/fLli1LDLV9+3b9D1FLmglCaPOIgSQhArGsWbPazP8gUis4
XbhJiPMxeYQIRWH+NWrUkMcVSUhISLzHwD+WKFHCy8srySFHgTRp0kA4jcvE
idStW9fX19f8okF7ePPmDXzP5uSpGIehPuvXr9d8JVxqu3btXCGKYvtzixYt
nF5jiVeF3iA0KlPyP5QuXRpm4goNTg4YyJkrNmvLxeHDh6M/CxcuNJ/40drS
bALKZG+ZLtRu06ZNhEsRERGujHtrQEPDkHPlynXt2jXzv4LEas4eFdiyZUva
tGmLFi1qc6QUNs6voIv6PJxmIBZt2luNcPPmzYIFC7qSydMMjhw5gg1R1ICH
YoKsOhZBQkJCQuIDQVxcXObMmSF7rnMqsSKuXLly+rFBOK2/v7+fn59+QCk6
OhoWOnbsWFfGZ3hihQoVOnXq5DRl5fUDAgJw7sbT6Hfu3BkxYgTcQ7PqwJ0w
kLM9iFO8d+zYAUt0LnN78pVmD2imOHlcpOu0ClQ+PDy8QIEC5nP7I/Bu3bpV
r15dc06QWEBLhAL5t9l9Vq5ciUYFBQU5MdOtLNrs2bOnTbIN5UufPr0lm/vs
4cWLFzBzNS3/+eef6cX2ZkwkJCQkJCT0EO4SsifSD+LUDMYG8acab6uBODal
WLFi+g0dXClatKh+9ZrYS+Lj43Pw4EEX3uP/8k9+8sknffr0cXoQTGxVzpgx
4/79+43v5IYsWbLABCw/j8YkDORsgNWrVw8cOHDFihWWzLpaW5pNXL58mdcc
NmyYcriSJUB6vXr1KlGihPmz4B8+fPjpp5/qc72iAJ07d4YQTpgwQS8HNKp5
8+bo9p49e5yopzhiPnXq1DbTwiuLNl0/BtQAp06dmj59urLyloaAV/fv3z+l
jfZLSEhISKRk3L9/v0yZMqVKlRKed82aNfoUjviaHTt2dO/eHVoInatQoQL/
2xxOwQNOmzYtR44c8ATNV9xfqFChtm3bahjalStXChQoEBgY6GI6mqtXr+bK
lYunO01+xOk8cIMDBw4Y3wkh79q1q5+fnxO7jC2BgZwNsGrVKtrOoZ+4rTSb
uH79etmyZZ1LU2kAmg+Gpg986ALh4eFQKfR8/vz5o0aNUsb0Tpw4kTVrVtQD
gs23wcHBYohexEpeXl7KQfBqQDIJXihQHcGhM9WrV1cOY+UrSOO8efP0e6mU
RZv2jkdv2rSpzUWbR44cqVu3btq0aceMGaMUe/PmTbjr5s2bxUd+8uOPP4aE
hAwYMKBTp05hYWFinJz71UwyKipKnPrk7+9fq1atihUr8r7Wkn8JCQkJifce
Yl8MDhG/ifMdPny4frhs27Zto0ePVtggnhdeV6VKFZsDa5s2bcI/6ocHKbxe
vXqawyJxtTi7woULu77L9eDBgzyXp7tSyLp167y9vfGtSd65c+dO5AYn8VRK
bXtyNsCCBQs6dOhg1aiUtaXZxMWLF1Ezk/uDzOPPP/+k2G7duqkDH6hd5cqV
eSnoFqresmVLdTrTJUuWfPTRR0OGDEF76Sl9+/aFoQlNJkBLkybN1KlTNZrw
8OHDmjVrVqpUSbOhBu1S5yCFtRK22IySuJOH2svUdOvWLYNFmygG6rFx40bl
yqJFiwhPxHOpOT29WrVqItvAixcvCPc6duzIdfqRkjKC7jl27FhqCEPmNQk5
586d26RJE0JUk6J2DtQKi7R161Zr0+9LSEhISHgKu3btwmGJqbotW7YIb6u+
Ac/buHFjvJ6yY50rDRo0sHeU3qVLl/LkybN48WL9V2vXri1QoICSxxJfj48u
UaJEXFyc6y+yYsUKX19fF1nr06dPoRmQBLV/v3btmn7/1OPHj6tWrerv7++p
1ZsGcrYJ2m769OlmiLT7S7OHo0ePwussJ7Rwp3z58sGplCtPnjypnwgx2ilW
acJIRf5P8VHJACA2GcH0xPA+qlKrVi2Ymzo/AD+Ev5UtW1Yz9iuYqjqZQExM
DLRQzxjpZZD5VKlStW/f3uaCjfXr16dNmzZ//vz6hdC0zqxZs3Lnzq3oLQS7
du3agiGLHBRw6V9++UX5CX2ZEPLMmTN0SWVD071790aNGqVOF8DLIhZ+npSM
nYeQNi+eM2dOg0MiJCQkJCTeIeCGAgICunTpMnny5DFjxuhTAuLru3btCtsU
+RUTEv1gw4YNcQc2D+6BfdWpU6d79+56F4mrhRPC0CCu+PpWrVr17t3b/E4N
A4gJTYUtuAJKgEvUq1ePt1uyZEmfPn0GDx6s34wj5rLNLPJMJhjI2SZox379
+lmVst7a0uxh1apVitZZiG3bthGYqCsP5fP29p4zZ454lkhbpKwBFos2UTDx
8c2bN23bti1UqJAyaCnGYAlSUO/du3ejGKVLl+7Zs6d+8F8sxVRaDeIKndPk
Zqd6hGDp0qUTaSU+/vhjahscHCziGu5EOWHLadKk4VsvLy/IauXKldXbdqhh
UFAQ9FL8hJdCjNBjyGRCIocsVapUkyZN1DRy586dlDN79uyJEycq9J4wUJPm
VAwLDxkyJPlGHXkc7U5lPvnkE+LfZHqKhISEhISbgW86derUpUuX7Ll1PMuT
J0+Uj+KY6ezZs9vclypSuJcrV87edBu+7PTp00eOHFGX6SJgg9CDGTNmWMVM
Xr16RSWPHj1qUMkLFy7kyZMnNDTUwuQ85pGknDWApRBWWJUm0drSbAI+BqFV
1hlaBZHninBJCUwE5cuSJYsypgcRRb3hPOJjfHx8jhw5YJLiIwKHTFKCevki
CrN9+3ZoGIUvX77c3nLWs2fPUpSyyJMSCJEs3+YjahgWFiY4YWxsLNxYWY99
4MABHx8fzWrPffv2ETpVr15dmR0Qx0gp60sFrly5AvWFlltYW3v4/vvvbaYw
lZCQkJD4EBAVFZU2bdoJEybYY1m4pOLFi7t4EqVDwJNCgC1f4GeMXbt25c6d
u3DhwuaThFsLh+S8Y8eOVq1aWbW/w9rSbALKVK9ePZtZzV3B77//XqFCBfXO
I3G0UJEiRRTyDMvKli0bjz6YCFho/vz59+7dK76FAmXKlGndunVOPF2M2ilL
R65fv07JEydOfPDgAd3KqhQHlE/9N27cCGOEs1WqVAnSrnBLiCX1X7Nmjfon
v/zyS+bMmRcsWKBcIQjt37+/Ok0oJUyZMoUKu+EsIZ4FvVfP9UtISEhIfAjA
IeJwIZk4r8WLFxt4xn/++WfcuHFBQUEubjM3CZ7Cs4YNG+a2MUZcYXR0dLNm
zb755psMGTLY3I/sBpiXsxi+GzlypCUToNaWZg/79++vX7++VUeZK1i2bFmt
WrU0SyOgXsWKFRNRw82bN9HwkiVL3r59e9KkSZcuXYL3VqlSRbD6u3fvVqtW
rW/fvs7lz+zduzekTqQPff369VdffZUmTZotW7aIfd9WjczPnTuXOAhWOXjw
4LZt22rIIR2ZF+TVlMfxplTM29tbZJGFkCckTmF89tlnXFHTVKKbtWvXumFn
3LNnz8aOHWvzAFwJCQkJifcYv/76KyRz+PDhtWvXxosZT+DisLjNPQeO4Knh
D247Sg+KBWOBfuDExXGZlqwXdQ4m5fz8+fMvvvhCpFR1HdaWZhNin0vPnj2t
zWiK0tapU0c/P8sb9evXr1OnTmPGjPnyyy8hVGXKlBk0aBC0jQpQGagmwcXU
qVMDAwOpmHMbl8RxVz4+PjRZREQED4qKiqLY9u3bh4eHC47nOuC0PXr0gC0T
ERw7dsxmRBAXF4fS8rJTpkzp378//9N9qEOjRo0g0uJ8ee6ZPn069wwZMoRX
7tOnT0hIiP4opWRCTEwMQZynEj5ISEhISHgcsKyCBQvijq9cuWJwGyQwICAg
uUcnKB9/vWPHjmR9igK4x8yZM4sUKSKGp8TcYubMmS3ZVu8czMj51q1bdevW
tSo7qLWl2QRyhjJZu+cdGjZ69Ohhw4bZO78ALnr79m3BcAgfNLnfX7x4cePG
DVfGz8+cOZM9e3ZIFEEKfUdQVgqE6Tl93KrTgIXyslBchdHxx927d8XxDWIi
W+yUhyRTQ3cmI0K1wsLCREIACQkJCYkPE/jHAQMGpEqVqkuXLgbzibgnHGv/
/v3VW1+tBSUPHDhwyZIl7nGF0IMxY8bkyJFj586dysXz58/nzp07PDzcU7kB
zcgZmhQZGWkVpbG2NJtA1LB6Cw9khD6tX7++V69eFu5NcxQrV65UZ9pMyaBx
x40bZ0m+CCfw/PlzT00WSEhISEh4BG/fvj148GB8fLx6VmvevHmwTZu5/tSA
CG3evNm5Y/vMYO/evdHR0W6jedu3b8+WLdu3336rFgV+uVu3boji4sWL7qmG
Hskt5/cAd+/ehSF7kGqKRZuVK1e2fCVqcuDevXtjx451z7prCQkJCQmJDRs2
pEmTJnv27Or8hMuWLfPy8sqVK5enjm70CF69emVzwprrFy5ckMf5SRjg9evX
sM0pU6a8E+fj/PHHH8eOHZPLJiUkJCQk3IM1a9Z89NFHRYsWVfIL4YPGjx+f
KlWqzz77zIODRRISEhISEhISEu8Bbt++3bp1a/Vis0ePHlWrVi19+vSWZ96W
kJCQkJCQkJD4AHH27Nm2bdsOGzYsJiZm9+7dAQEBBQoU2LRp0zsxJyghISEh
ISEhIZHy8ffffx86dCgyMjIiImLnzp1yAl1CQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJC4v3D/wI9CA4k
     "], {{0, 100.}, {890., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{673.9999999999985, Automatic},
   ImageSizeRaw->{890., 100.},
   PlotRange->{{0, 890.}, {0, 100.}}]], "Input",ExpressionUUID->
  "d8e42d2e-5fca-473c-9637-968809baac01"],
 ", FieldNumber = 10"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 
   3.831807216313492*^9},ExpressionUUID->"fa6d7384-282a-4e99-ae2e-\
36dc58a078bc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "10"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8312298277474966`*^9, 3.8312298282274446`*^9}, {3.8312302811942577`*^9, 
  3.831230284539338*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"bf43df20-741d-4688-a025-51b8d75e5a9b"],

Cell[BoxData[
 RowBox[{"Ft", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, {3.8312302820259466`*^9, 
   3.8312302849002533`*^9}, 3.8318072239900155`*^9, 3.831839780783698*^9, 
   3.8329474934371405`*^9, 3.832961778136568*^9, 3.8458268677226915`*^9, 
   3.845852461134233*^9, 3.845857071305496*^9, 3.8459196168881316`*^9, 
   3.8460065700811214`*^9, 3.8460998804682007`*^9, 3.847470442038282*^9, 
   3.851700627311005*^9, 3.853975444106017*^9, 3.8549774005973883`*^9, 
   3.854989257475287*^9, 3.8549998944643183`*^9, 3.855165242160901*^9, 
   3.8551823119800506`*^9, 3.855185856602497*^9, 3.855330632581967*^9, 
   3.855339837988716*^9, 3.8553431753089733`*^9, 3.855344009219466*^9, 
   3.855352736869689*^9, 3.8554496014697037`*^9, 3.8555076037037287`*^9, 
   3.8555084001171513`*^9, 3.8555128876298037`*^9, 3.855533130987331*^9, 
   3.855533319256798*^9, 3.855578913038699*^9, 3.855593285947297*^9, 
   3.855750598193689*^9},
 CellLabel->
  "Out[217]=",ExpressionUUID->"69e5cd93-1f6a-4245-931e-1269f655ac5f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
          RowBox[{"Lap", "[", 
           RowBox[{"Bt", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "-", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Gt", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      " ", "-", " ", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"At", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"\[CurlyPhi]", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]}], 
      " ", "-", " ", 
      RowBox[{"I", " ", 
       FractionBox["1", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"ld", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammadown", "[", 
              RowBox[{"mu", ",", "ld"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Hamn", "[", 
              RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.831230293795329*^9, 3.831230299121489*^9}, {
  3.8318072483544436`*^9, 3.8318075086103964`*^9}, {3.831807641331113*^9, 
  3.8318076496432943`*^9}, {3.831807851091679*^9, 3.83180785513081*^9}},
 CellLabel->
  "In[218]:=",ExpressionUUID->"96fde46a-982a-4c37-876a-04541fea99b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.831807825939827*^9, {3.831807866162796*^9, 
   3.831807866297452*^9}},
 CellLabel->
  "In[219]:=",ExpressionUUID->"d3cb4e1f-ce20-4568-8e5b-46c686909d7b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, {3.8318078154905806`*^9, 3.8318078284346147`*^9}, {
   3.831807862437693*^9, 3.831807867464693*^9}, 3.831839781758984*^9, 
   3.8329474944212832`*^9, 3.8329617791118593`*^9, 3.8458268689613876`*^9, 
   3.845852462203134*^9, 3.845857072408161*^9, 3.845919618037501*^9, 
   3.846006571061971*^9, 3.8460998816477203`*^9, 3.8474704432355566`*^9, 
   3.8517006285532446`*^9, 3.85397544520617*^9, 3.854977401970845*^9, 
   3.8549892586161747`*^9, 3.85499989558384*^9, 3.855165243385046*^9, 
   3.855182313143174*^9, 3.855185857705882*^9, 3.8553306337909355`*^9, 
   3.8553398391339836`*^9, 3.855343176546487*^9, 3.8553440104086037`*^9, 
   3.855352738025024*^9, 3.8554496025740433`*^9, 3.8555076047812643`*^9, 
   3.85550840121041*^9, 3.855512888846245*^9, 3.855533131483762*^9, 
   3.855533320412397*^9, 3.855578914280058*^9, 3.8555932871247597`*^9, 
   3.855750599349433*^9},
 CellLabel->
  "Out[219]=",ExpressionUUID->"876f321a-c929-4c1d-ab32-adb7ccd1e408"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[220]:=",ExpressionUUID->"2fae47c4-86c2-41da-baf6-8d2c79097cca"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlQFMf3x8ULPFBEDo8YFRWEqPGIiFFBPDhURCDirYh4EkXwABXxwANF
grcCIoq3omI0amm8kZho4YEHFiqaUmMsr/Iok0pS+//+6crU/GZ2h9nZWRbi
+1QlhbuzMz2vX7/37Z7unqahEYHjKlaoUGGaBf4XODraMypq9KwgK/xj4JRp
E8dPGRvmO2X62PFjo9xCK+HDsfhvBv74/781BEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQhKn5+++/L168
GBcXN2zYsCVLlhQVFQkO+Ouvvw4ePJibm2uK0hFli7dv3+7bt2/SpEljxozZ
unXr+/fvBQe8evUqNTX12bNnJikeUZpQ6CA+QcjtCUIOd+/eDQgIcHFxGTJk
iK+vr5WVVbVq1aZMmfL48WN2QEFBARrR+PHjIRtMW1TCtPzzzz+HDh368ssv
u3btOnz48E6dOlWpUqVx48ZpaWkfP37UFAfVI0eOdO/ePT09HRHY1OUljAuF
DuIThNye+BR4+/btoEGD+vXrhz+UneH48eOenp579+7lxMDr16+XLl1qa2tr
ZmbW5F+2bt0K5aBewYnyBwTkokWLBgwYcPPmTe7D27dvI5BCZJqbmzs5OdnZ
2cGdrly5YsJyEqUDhQ7iE4TcnvhEQMZPTEzctWuXspGif/75Jy8v7+nTp+Kv
0GQOHjyIk+P/7969M7ikRLnnw4cPOTk5f/zxh/ire/fupaenJycnX7p0qbwP
WorLT2lCDIUOAxG4GexZ3htOKfPnn3+yJyalySfl9lpDPaEXyJgODg7oa5i6
IEQp8fLlSx8fn2HDhombz7Vr15ydnSGTEEZMUjbC5KxYsaJhw4YBAQETJ04c
MmRI27Zt169fT/5AqAjkh7e3d+vWrYcPHz5hwoR+/fq5urpevXrV1OUqB6Al
Hjt2bPLkyTExMWPHjv3666/RPCE19ToJlPySJUtatmyJfrHgK0oB6E3fuXNn
zpw5TZs25T+okg+Zl+PWrVszZ84sKCgwdUGIUuLt27fx8fHZ2dliD3/w4EF0
dPT169dNUjDC5MAlEhMTLS0tzczMKleu3LFjx/3799OwEqEuCEGQlxYWFhUq
VKhZs+agQYOU5fFPkNzc3C5duly+fJn9My0tDWbUtwOIg/fu3ZuQkCAeZvzE
U8Dz58/RrQ4PDw8ODq5Tp86NGzcUnKS8mBfqd+nSpfPmzZs/f/7p06dNXZwy
xLlz56KiogYMGIB+nK6h+AsXLsBucXFxixcvJv2sCmg4J06cgFXhk2g+4gWD
RFngjz/+QALSd0xDU1y/GzZs+P777yEpS61//eLFi/z8/NK5VhkBFbR169a4
YqANyunDxN9+++327dsKfgh5OW3atMePH+uad1GOXOL9+/epqanziklPT//w
4UOJP1HcPMH27durVKkCicI6fWfOnIE+Hz58OHe2cmQ6I2GIeRkIfdBdWuVl
WTOvISIHcd7KysrX1zcwMHDnzp1GKmG54+eff549ezZiFOxjb2+fk5Oj9bD9
+/cHBAT06dMHNtyzZ4/88+PMt27d+vXXX/kZFn8rXkBU+qCo0IHoQ8FWr1+/
Vuu0iGno3DVq1AjCfsSIEeqOOSDXoHN3//59QWRA8qXpf/JB1U+dOnXz5s0K
9CEnL41RMF2gflHgLVu2lIKgffbs2bZt2+Lj49esWYPcYapHVBAhyAj+/v5f
f/1106ZNEWpMUgxDQNsfMmSIsuEdTl7qOqA0XcJAoLGdnZ07deqEXDNr1qwS
c4QhzVNT7DlQFC9fvmT/zMzMhNpcsWIFdzaTmA554dixY4jepXZFXRhoXoaE
vDS2eWFDhKaRI0dGRUWdO3dOfBUUaceOHVxCVCxyNMXy8quvvoIDa/322rVr
o0ePHqSDkJAQRLBTp07pkvGnT5/GLfTr1w+lKk1XhNpBM9RV7KFDh6JUaDVc
CxKA20lISLhz5w7+XrVqla2trXSIw3kQw0u0PBrI2bNnYbT69es3adLEw8PD
3d3d09MzIyMDVcnS7vTp002oc1DC58+fy+mUXbx4EdovNDT0yy+/rFChQsWK
FcPCwj5+/IgsFhsbCwvPmDGDv1sjunsbN26MiIjo3r07escSzoAyTJo06dtv
v1XxgSka1IIFC1xcXOzs7Dp06NC5c2fYf/z48cztkcUgZR89eqTs5BCrSIJd
u3btIptu3brhBsVbaiBwzZs3b/DgwVr9dvjw4TExMegDvnnzxlCLGACqEsVA
w1fWeWd+Dh9Yt24doigamnj6kL6gT+3q6nr48GGuhCjed999x3chqL6goKBD
hw4ZeC0J4P+4nf79+y9fvvzgwYNJSUkIrYjMDx8+VHZCxDH4LVrWmJKAMyMO
az3JmTNn0EjLiLyUH2FQYD8/P3RglV2IyUvYZP78+ZGRkUjWYlVmJJdQMSAw
EKYQtTj3lsbA5im+NMrWq1ev33//nf+5hOlQADRtxHB4Pn+wS34K0MrJkydr
166N0KHsRtRCLfNKyEuN0cwL4Yr84uDggBgVHBzcrFkz5O6ePXvm5OSw49kK
fXySl5cn+K1MkSNAWl7icmihycnJjRs3RknatWsHKZtTDJQSJC4ahY2NDcop
nkCFrIGKQDBhG/uU5iIpKLQrV65s3brV29sbxa5VqxZU4vnz51Fs9Muys7MX
L16MkFujRg1oIYlkDRdCrndzc5PeXEuO5fPz86H/a9asiaDH9wqcGZ+g0pGP
6tatiz6Rgvs1HPjzhAkTWrdu/cUXX6AVt2zZcvXq1bqewsBLoR5Z0kSlIwUg
nKanp0NPot3BM2H5Bg0acLeJY9avXw+fhz3Dw8NhKwl76iUv0TZ79+4NA+pa
4YgLoYphdh8fn+PHj3PSHX+gPGihKC1EPpqb4jWSiHufffYZanClbBAEmjdv
jjQkvnf4yb59+9Ak4bdeXl4//PBDzr+g/AsXLrS3t4dts7KyTDXqgspFwQTp
Ri+gu9Awf/75Z7YxMlwOt2lIkeB71tbWOCH7JyIPagRtXGAitH2kcmUPW0sE
dbdixQoEZ37eQWT45ptvoDS0roQtEZzq3Llzqampzs7O8AdoDMik7/8FIRcJ
ZfLkyYjA+BZyWutJyoi81CvC4PPRo0cjmCjuYyJGoc+IyADLIy7hDyRNsRGM
4RIqBgSGXvLS8ObJgOMhqiPUIEhqPZsu0yF8paWloQ1CM3BqUK8UIAYHe3p6
wsnRWTDtaLNa5pWWlxojmPfRo0cDBw6cNWsW96gR4RdhBK4FwyJ+Ojk5QYGg
yw/NJi6PMeQlA2WGREQZ0E0Wj63B1MOGDatcuTKiAV9DQnweOXKkqKgI4nP2
7Nkmmb2fmZmJgjk6OooDC25q7dq1EB7wW13PUBCaXFxcUF/SI4rSlseNwych
ceEtWudUIPrBgFWrVoWzmWRt482bNxFDuA4C9PbEiRMrVqyItKh14AWZQtB1
Yty5cwdNBrczcuTIjh07vnjxgn2Ok8THx78vxrsY8WtoOPSSl4mJiXBLtBqt
eQrWRmK1s7PbuXOn1rNBzNva2uIMixYtUhy1kE2QMfV6aoPQjZ/oyiZv375F
D7RKlSq7d+8Wfwu1AF9CsS9evKiswIaA5oxwceDAAUNOgmbFRT80wxEjRrRt
21aZANMUB8mxY8fiDNw7jODJVlZWR48eFR8JMYaDjdHVRctFGdasWSMY1kD6
qFevniEBEO0IKQDtERlE6wHXr19v2rTprl27tH5bFuSlvhFm7969CCCGlBnN
Ge2Li9vwWwcHB6ROQSQ3hkuoHhDky0tVmicf1A76RzinWAVpNR3iMBQgKg4h
F4oFvsedR34KEMCed5ibmyNQIzWY8OmeiuYtUV6qbl6InGvXrmm9EFIJ+jib
Nm2SeM5iVHk5dOhQXfJSU5wQg4ODK1WqhHQvSNNQ2pDEpnpzE5ulDHmpVUCi
qCkpKdB1qA6tnSn0IOAA27Ztk76KhOVhLngRyuDn5yfR5Tlx4kSNGjVQEZwk
KzXgh6GhodnZ2fwP4casQwHdK1ZuqG704NA915oxITLReV+wYIHWZeOff/45
uiFqPRxHnvrpp5+0DjyeP38excDlJGQYaqR9+/bVq1c/fvx4idfSherZBLq9
fv369vb2WgdVcMvdunVD1cycOVNfxYLoAf0jP7ALQK2h7nr16qXu0/nly5cj
dygO2mgyaDijRo1iug42iY6ObtKkidZFYZcvX0ZvV/EjVwnWrVtnZmbm5uYm
mHKD5uPj46O1hyuTvLw8RCEIZm54VgAqFOGXyzUCVJSXaCaHDh3StyOmb4SB
Ad3d3RE2VRynevfunaenp5OTkzgRqO4SppKXRmqet27datCgAWpEPJdMl+kQ
kAMDA9F3EM/Jl5MCBBQWFsJV0D2BtwQFBSl+Ko1SQabevXtX2c/VNW+J8lJT
WuaViQnlpabYCRs2bAglyc/mbPOx3r17m2rFirS81BRHOfgt+tHiR2kgOTnZ
zs6uxGVcuiyPE2ZkZFhYWMDCT548kTgDiodCSpjXeFy6dAl1JI5scAyUHF0k
8TQM3Be0Zb169fBb8VfMaOJfsXOiQUkv61Bl7iWEGexpaWkp/dQV1g4LC3Nw
cFA8O05jhGyyb98+dHmgIbXGMZYo0RjDw8P1NdGpU6e6dOmieJwQXtqmTRsI
VGU/Z5w9exaB8ciRI9wncBj0TBVPC4GnIexwI3sINbBP3759tQ5oQ+r4+/uj
oakyM40PahNdKnR2BJ/Dx8aPH48ujHg0VSabNm2Cfdq1a6erf4p0M3bsWF1P
eNWSl3C2WbNmTZ48Wd8YpW+EOXjwIJqkIYtn2a6A8AEu7MMZIAwgk8TFUN0l
TCUvVWmeCOAo/44dO7g+O7Jbp06datWqdeHCBcHBukx39epV9I75q4E45KQA
PjgzvA7lgWRC0EPTVrwHwvPnz/FzxYsKVTEvhxx5WQrmlY9p5SWLojgmJCSE
G87Nzc1F9ECXAYER8b/096gvUV5qiqMZolyLFi0Ewx1sSgBMWuKyaF2Wh9K2
tbVFw/zxxx+lz8DmliCPSB9mDLZu3Vq5cmUbGxvB2EhBQQEKD+tp3U8AjaJ+
/frQKoKUB1tBF6FRIMunp6fzYyzr/TVu3Fg68BouL2HMnj17whVjYmKkT8J0
MkorZ68PXaibTVDgGTNmoPCRkZFaC88GE1AvW7Zs0beoBsrLbdu2oQupbCUv
R2pqKpxt79697J+ogrlz59asWVPX4FuJoNVYWVnBpOyfhYWFKCQ8DbeJa4k1
w6pVq5o2bYrDlN6BfqAS0REwMzPbuHGjgp+zHhD8YdSoUbpiL7ohERERukKc
yeWlXhGG5RpfX1/FY+ya4mUOAQEB7du351ol00i6Hg+p6xKmkpeqNE/E87Zt
2/KHymE6V1dXfPLLL7+IjxebDi164cKFiFGIVDk5Ofxiy0wBfOC9EyZMgKSE
fkAjkuhklYiB8lIV83LIkZca45tXPqaVl5p/dzDgr+lYuXIlagT/RDbJyMgo
/Um5cuQlG0+uVKkSkhH/czbxcsqUKSXqHK2WR4uAbhHobV0g6PXv398kL5KG
A1SrVg3RQ/AQGS5dr149mEWrjIFLjBs3jqkgfgbPz8+3s7NDxr979+7s2bP5
PU3kCy8vLx8fH2ktZ6C8hI+tW7cO6Qz9BV3hmn/w/PnzlyxZYohnqptNIMs9
PDzgtFqn0sHUyO8we+/evfWaG88wRF6i4aP5o+9g4CZUt2/fnjlzJjcwi5iP
tjNixAhlCp+Vihta+fjxIzwH1kNjROBFB0dcsz/99BOkjpE2YYPTXrp0CR1q
iMlr167h6qiyYcOGocqSkpIUnJA9+q9YsaJgzez+/fu5dA/ToWZ1BRmTy0u9
IgzKiXAdHx9vYLLYsWNHWloadxIYAdfS9eY4dV3CJPJSreaJFjR69OjY2Fhu
9BK1hroLDg7WOmwoNh28EXE+MDAQAQpqhz8KLTMFcOBeQkND2TMySIiqVas2
adJE8ZMmQ+SlWublgGcuWrQI8lLrfEgOo5pXL0wuL+EGtWvX5mfG8+fPt2rV
asaMGbCDSZ6Py5GX3GS2kSNHok0hUB88eBCxNDs729raWs6aVq2WR/y3sLCw
tLSUMywDxzhw4IBJtj7GnV6+fJntwsQHEQ+Fr1mzpnizfTSxxMRENFVzc/Ma
NWrw4x6yITx81KhRSEOCx1sIno0aNSpx6Z8ceQntGh4eDp9EUxJcBempZcuW
qE2kwhIFKkqC2jFw3ai62QQVUb9+fUh0dE4FX8FJEPbhz3369FG2jZIh8vLZ
s2dt27YNCwvTFQHgRegiVa9eHT4zZMgQwbMA+Ay6n4h7sPmhQ4fQN8nKykKg
QA3CW8TxR+bZkDKQeXEM7guaBJ6DTiLOOXDgwIiICK2aik1EmTZtmrqLDWEW
SBoUBiZCW0boQ3mQQXBr6C9AH0LtKDit1omXiKXwf5kbOplcXuoVYY4fP477
RfDUdTaZjoHGsnjxYvRwjx079t1336FeVq9erevxt7ouYRJ5WWLzZECTpKSk
oHW4ubl1+F/c3d1ZsoM1pkyZglCDDLh79258heN1JVCx6fDHwoULu3btGhUV
hRbBj/YyUwADx2zatAmNiJ0ZToIar1u3ruKdkA2RlyqaF1kecqh3797QjWZm
Zs7OzgEBAYgYWm2ionkRB8TLENBS0C5wicqVK6OQEmsQTC4vkfSRFnEYbp/7
EHpDQtoZGznyEr1+Pz8/FBtVhhiIZj5gwICrV6+6uroinMrZr0ZseTb5FufU
dweGMgJ8GJEZ5UfWFszozs3NhR+igeBzCAMcg2zOF8a4d/G+5QCiAomjRLle
orxES0duRU3hD+RN/uskNMWPStFS0M0ptdVk6mYT1kkXTNvG3/gcDtm6dest
W7YoniRmiLyECLe1tV2+fLnWb9EjgwRCtLS3t0fqh1egy8Z/jIX4iarh4h7C
AtIlkldhYaE4GMo/25UrV9AHXL9+Pb5FCVlrRYx6+PChrtE8NnkV4d2Qx68C
0EUdO3YsYjt/Hj6Kt23bNkTvzz77rFq1avzppvJJT08XTLxEu9i4cSNSksze
qMnlpa6zaY0w69atk9hAQy83w/+Rknbu3ImYI71kUl2XMIm8lG6emmJrIALD
FWE9/L9BgwYVimnatClODg2AMM7NHMbBOCFMhxZaUFAgoQa1mg7HowGKB/pk
pgAGrIHYzvntjRs38Fv0R7hpMPpiiLxU17zyUcu86IoiqwpaAc4JRYd21LNn
z9GjRzdr1qxhw4a61LvJ5SUaFIqHw9D30asMxkOOvMTdobuBYrdp0waHZWVl
RUZGoi7Q7ZUZSMWWR9P4/PPPcc7p06erNUgCp1qyZAm0RwV9QKNQ8K5PVCWM
BpEGI/A/z8nJQdtZtGgRuynIFfQo0QvTNcIPB966dev169dhyYkTJ8LC0p6m
kSEvN2/ejGrVFM9CRHfG29ubexbA9inFXZfmGnwVswluGR1VlB89ZW7H7JCQ
EGgJxKg+ffpAZBoygdkQeYmOba1atbQ+XszPz0cfPDo6mm2YhrpGORs3bgyp
wA5AJERfW+aIq15nS0tL4+94KQc2p9qQSVwC4H5hYWE1atQQL35HIX19fRGC
6tWrp+ClsdzES9wjsgyyAKqPxVj5Ox2VTXmpNcLgEqhZRBitrUldN+OjrkuY
RF5KNE9Nce5AzISLDhgwgF0Fpk5NTTU3Nw8NDTVkTVOJplOQAjTFlTtnzhz+
Q+GioiKkVBRYYmRbGkPkZbk2LwqTkJAgWACCMiclJXl4eHAP75AxoYF1bZ9r
cnkJw7LQB02lVxmMh0x5GRQUhGK3b99eWXgRW55tNIRLMyGkFq9evUIP6II+
5OXl6bthONua1cLCQjB17cmTJ/BztFCu34Q/kO8kmjy8C/pz/fr1CBSoBTkD
ONLyEldEgmPTbzZs2FCpUiX+NC220RDb7UTFpcEskc2YMSMiIkI8/1/FbPLm
zRt3d3f0ILiVL3yQX+rWrYuAoHj2kSHycvfu3Qiw4hdJQO6iO8mf58ZAJzo4
OJhNicnOzkbUkvNETK+zsQlR+jZb/AoOBlki/3X2aERz587Fr7Ruy5OSkoKW
PnLkSLHyR2Rwc3ODQ6JaFexnwiZempmZLVy48HYxly9fhpqCAJO/j1MZlJe6
IgzOPGrUKBcXF7GLqutmAtR1CZPIS13Nk4H+l729PcQPf8jr3bt3PXr0aNGi
hSG+UaLpFKQATfH+EmxFD/cJe1ZVsWJFwRIJ+RgiL8u1eZG4kbwE8efWrVsQ
rgJdtG3bNl39VpPLS0Q/9v4IiTHkUkaOvIT68vX1NWTTA7Hl2XXRNxdv3aMp
DtToDa1duxYCCQEzvZiNGzcqGDxXHYTKzZs3oykJ3qnHpiJDSfJvE84QEhKi
a3W5plgPr1ixAloRiUnm6I20vPzw4cPVq1fxFWrKy8sLcou/Hor1cFGVBq7W
EYBToXsYGBiItC6e8KZiNkELqlevXv369cUT1TS8ReWDBw+WnryNM0Og7hQR
FxeHcAevE3+FOCA9ax1eYWlpKZ6cgzAFySFuOGhW+BxZmL0zResdidHrbPgQ
EQnSS68HBGyIGOlA/ssoER6XLVtWvXp18TI3hG5UJdpFVlaW+IdsHS6qTOs2
sCUCV2cTL/lhBNUEDSZ/mbO+8hL2yc3N3bVrl8BDduzYgQTq7e2N4Cb4Cgfn
5OTIlJ26Iozm354+f4d8DnXdTHzLKrqESeSlruapKR7gCggIsLOzQ9+E/zms
DWWOEGrI5PMSTacgBcDDUbDk5OQfeSBAtWnTRs4rMNDXgMoShzikWmdn55kz
Z4q/QlKTblDl2rzoiqILLDgtfiXeKg12S0hIKJvyEnEMQrpGjRrG2LVYGXLk
JRsiwN1FRUUpe5Attjzbi8PW1lZrjcOGSEbI9bCntbU1Lt2oUaOpU6ciRCu4
urqgBbHnTQJTIFG2a9euZcuWfEviRsLDwxXPK9OKzJXjSLhIu35+fvxJKQjp
sCR6uJDrJV4IqQoKX+YzdMi5vn379urVS5zgVMwm6CPDXT08PHStg0MexwGI
NhKBmk356969u/jVxkwIdezYUfxVv379pDcuSE1NRevGzQo+h/112RCZFwVG
TcXHx8vUHuqeTSvwK6QYtE29NlhGi9A6CQStvmrVqg4ODlqHF/Lz8/ErOKqy
niObeAm5xR+eRQNEL0N+R1hfeQnfi4yM1PrKbLboDLFO8DkORpuVuahWV4TR
FA9R+vv7ax2ONqpjqOsSJpGXupqnpniBLcQ8MrhgdJ0NrzVs2LDEHTYkUGY6
aeD2np6ew/4XlB+xHbkSvQnp1IBGBy8Se6+rqytSFVKY+CuEXBhQQrWWX/Oy
PWBRSP6HiAZLly4VP9bctGmT1gdnmjIgL5OSkszMzFq1aqV4Yz3VkSMvER/Q
xYDjyXypqxix5dleHAg+0r1p9jBX4nVvpcwvv/yCXJaZmSluaLm5ubVr1x40
aBD/oTP+HjJkCJxfvMxZMXLkJYoXGxsLAS+QkXA8RGmZe3Qj46PlypzK+PDh
Q0iIOXPmiC2jVjZhE8+k5+vivnB38CtlBjfk4Ti8Av13vfoRuE32Gm7xhswK
UOtssG1ERARSlfwqY2+uRHoSLHPjqgzpTOsUlLS0NHhpUFCQgq1C2Msu2Y6X
/EaHC+nlbGXq4bhEhNH8O9MMGUTO9DwOwx1DRZfQmEhe6mqebJtEOKE4JKJD
1LRpU3Q2xbcgHwWmkwbngdgQz/+B17Gt8AQ5SD6GPBwvv+aFraZNmyZQpwcO
HBC7E7qH4eHhui5kWnn55s2bXr16QSktX77ctC+d51OivERRUWAUu2fPntzk
BHSTIZWnTJmSkJAgZy2h2PKoTXRbSlzmdv36dWtra1071oqLmpycXK9evTr6
gHsX9Fx0ASWM1rdv3z5+9eXk5LCywSHNzc0Fmx6wHXfd3d3V2g1MI09esqHU
Zs2asSEj5G52MDIve3eY1ncw8cGRyJXyFyEeO3YMxjx48KD4K7WyCdsgS9fE
S01xM0QDxN2J3zwoE0PkZXZ2NjrpeoUXaODx48cjuKmyKZlaZ0MECw0Nle5y
CmDzvpDdBNGPda9QI3PnzhX727t37/r06VOzZk3B+jiZ6NrxUl/KjryUjjCa
f9/NgXat1/Icwx1DRZfQmEhe6mqeKN7IkSO1vlE0KysLIb3Ed09Io8B00meL
i4vTumCB7RmOtoZMrWyBvyHysvyaFzEqMjKS3/P6448/5s2bJ3A2tl/0kiVL
dJXWtPIS8p5tqKLWekxVKFFeFhYWIppBOfB3p4T2QD/FwcFh4MCBcka3tG5M
xFajS+uctLQ08cMvCZAjIPP2yAZC5ejRo3KiLuyDAgvkExtXZwvPf/jhh2rV
qq1evZp/APIC5LHWt1MpRo68RGO3sLBgsR2hJjo6muvtZmRkoMa9vb2lnx7C
OKgagTPDCOgqTpgwAX4OJY/Tsk4f7i4+Ph5Ogh4H+nfBwcGQ2VyIUyub3L59
297eXtfES03xAHLdunVxd4rfn2iIvERdI4rq9U40NC7cprL9Ho13NrTovn37
itfa6Kp9TfFAN+4dMRC1j2+HDRvGpkKxtUVmZmZanz5AVdaoUQMn5McQxEl0
IrgqgI7CabVuosVNvJTT95SgjMjLEiOMprihoVXCyfUanDfcMVR0CY2J5KWu
5slyt/htmOiSBwUFffbZZ4q3kWToMp0yoIIEK3r4rF27Fm0NpmBbB+iLIfKy
XJt35cqVKCRn1aKiIhiZf0K28h19YYlXVxtVXrJOui55iQgGC0PFSW9Bry+v
X79Gh2XhwoWKB8ek5SXu2svLC6opJSVFIJAQ35DrZb5oQ6vlz58/D+mFS+sK
Gq9everRo4f0695KB5QfQVK8Xxb8MDAwkKkdxHA0FlQHZyiWblq1amV45uJT
orzE55B5kJcQmfjnlStX0BfjHpfgXjw8PKpXr651pFFT3JTQd+C/OIaBbN6+
fftVq1bh/JCOfn5+3P57iBX9+vVjuz3j57jfNm3acM/l1combF6lromXaFmt
W7dGdEW+03crAA5D5CUEfNOmTfXaaCs/Px+5QNlqC+Od7cWLFzjPiBEj+I/Y
JGpfUzzLDt3AyMhIeAJ7Zs2troLUR62Jlxs8e/bMzc2tXbt2/Md8SBZIOvxk
gd4Q1JTWjZXYxEvF21lwlAV5KSfCMNAKkMe1TnLTheGOoa5LmERe6mqe7OWD
NjY2Ap2TlZUFO2/cuNHAkQGtplN8KnRAJJ61sanp+g5ucxgiL8u1eVF4JCxu
nfi+ffvgt1wrRqRCPkVy0bXZLMN48hL5rnfv3hBC0MCC24TqiIqKgkJDxSnY
2E0alnCRUpVtN8F2dsLPxev6oVdTU1ObNGnSsGFDwcMa7tIQhzIfnmq1PHvp
ACzTtWtXcWccKT4sLAy5BkJI2cuI1QKRMzQ0VNe2mfA65hvwxhkzZsDVuQ4O
+u/Ozs5M46lIifKS7dXAlrcgns+ZM0cw+IN04+TkhP4O2rjgJDB7TEwMPFaw
1z175ztgeZ9NrOK6yWziJfcScPamGGQT9ltkE1zu4sWLD2WDgsF0/GzC3sXG
9owVlBnetWzZslq1asFVEhISFGtLjWHyEqb29fVFD1f+NMKcnBykXUMKbIyz
wW3gG/xxeOnaZ//kljOzyfaff/45CynQfp07d+7YsSN/sTN+GBAQAMEgaPgI
73AVzpHY4Cciv3ihNFplcHAw/AEhwpCdTjVlQF7KjDAMpGk07bVr18o/v+GO
oa5LqBIQ+MiRlxLNE3fn6OiYmJjIpbnTp0+3aNECwcRwTSg2nTJgOn9/f2Rk
icX76HBBD0jsui+NIfKyvJsXbaR58+YWFhY+Pj5IASEhIXCnlJSUIUOGILPg
kxJ7Z8aQl9BXMB26aVw0QF+7eTEQ8xBgdnZ2/fr1Q+vQZUnERhgHqXPChAnI
7Ojm63r/kRi2j279+vUnTpyoV03BkVAqGJMrNmQeCoxio++D8IWeBRosHEDr
yADCxdSpU1u2bCkxVsxHl+Vxm8ePH2/VqlXVqlXRd9iwYQPEGDQngq2Xl9f+
/fuhcnEhZY1FLbZt21a5cmVdwR/l5BoUehnIL/DPjIyM5OTkHj16yK9K+ch5
OI7GggC+YMECJDuUX1wGBCtkZ9xXz549lyxZsnfv3jVr1qBNIbygCyzOj+wN
ntxTfrafDPcKsGPHjsFhuJ1nEADRKxk2bBj75y+//AKP0mVAXUB7sL7k0aNH
2Tu52OfQkHBR1sTwB5wfzR8HR0dHGz553hB5ySaxo0jyd92Eq6N/p5aHqHU2
dCfr1avHf+IsXftslh334AYBLTAwED1Wzg5s9MzNzQ3h+ocffli8eDGiFiKe
eIwFSg/JER7I/sn6KYI9WuFm8Adzc3PmDxUrVrSxsWHbSSm7d5PLS/kRRlPc
8e/WrZtgNZM0hjuGui5hYEAQI0deSjfPn3/+GeEauQa2ghT39vY+ceKEKg1T
bDp9QYG7du3KeQgirWDIAo6H+v3ss884HYKD0SkTbARUIobIy/JrXg540bRp
02xtbfleh85damqqshmAcpAzeqkYdP3Qy2OvX9cUz52Ah6DN6nUSVCiEhIq7
ZJcIQhwcHmaZMmUKpA56VVq3U+aQtjxKfuHChfnz58PxoLGXLl166dIl0z4N
NwS4CnIohIqRXiIvc2MixIrz589LK6XCwkJ0bcLDw8eNG4fgoGtrPlwI4q12
7drc7jFsTiliBfsnPBZtnOvfwRlY6lFyeybFEHmpKX7dc6NGjWSOV8PtYXZO
ShmIWmdDXUMg8dfxlVj7bGcJbuM4dDmhHnEGvv9DILG3feHkGzdu1DV1cPny
5XAkbh+8vLw8nFmvkToFmFxe6gVba4kuucyuveGOYSSXUBE58lJTUvOEYdEv
Pn36tPyt40tEbLqyjCHyUvNfMe+BAwcg1DMyMs6dOyeziTHKmrxkG3Gj681p
7127dqHzjhyn13muXLmCzotar1aUA5t46erqygbq2ZMLidFjZZYntCJTXqoI
e9retGlTrmcKhQBHRTxBuPjxxx/j4+O5KXBIZ2FhYThY/r7WZYfc3Nw+ffoo
mxivKRZR6CqOGTNGTl8Psat79+76jjAY+2xs3ix/GYh07QNojIYNG3I7KiMa
WFpa6no9nARsjKtTp07cqv/09HQrKyv0ehDq9ZptqBdqyUu27mbOnDnGbpiQ
382bN9e1f4IAwx3DhC4hE5nyUq/mqQpi05VlXr9+PWDAAH3lB8d/wLxwbCRW
ZRuPlDV5CeM4Ojr26tWL9enYHnH6LrFHTEPT1rpbvvFg08u57UTgkPjntm3b
dB1P8lJFSl9eaooXaDRr1oz1Ju7fv9+uXTsnJyf0Q+fPn3/z5k30WPEJe9Z5
6NAh9P527NhRamVTFwOHntAWEPHy8/NLPBJ6ydPTU619JNQ624YNGzp37iwI
d9K1DwGD5M7UDnygY8eOY8eOVbCPJeIeoh9iO3uU8+DBg7Zt2+K6+AP9l+vX
rxt4a7pQS15qiqNxKbRKXAIiNigoSM7+M4Y7hgldQiYy5aVGn+apClpNV5Yx
0HvLu3nZHI/hw4crUMhlTV6iLmrWrLlw4UL2WPnNmzceHh7Q/3rNVEfTnj59
uorbKpYIm3jJl8Hp6enm5uYSioLkpYqYRF6iBzRu3LjBgwfPmjULV9+yZYuL
i8vkyZOTkpLQEpHm4ISjRo2aO3du3759jTfQVPaBNWCWiIgIaZmKJr9s2bLR
o0er0tNX62xQBd26dRO/vVG69nF1CAkfH59FixYFBASgJMpWkZw+fRrx0NbW
dtiwYQsWLAgPD4eGwYXg6suXLzdw/Y4EKsrLUgOl7dKlS4nPMQ13DNO6hEzk
y0uZzVMVdJnuP0x5Ny8LQQkJCQrmhZY1eYkz16pVi3sb9Z07d+rVq7d06VLY
LS0tTU4FoT84e/ZsmbuCqwV7lxP3Gg6Uc8KECdbW1nl5ebp+QvJSRUwiLxnw
zKKiIq43JBhmf/r0qSpbB5d3kPp9fX3F76vlgzgcEhIi59WcclDlbGjIMTEx
06ZN0yXkpGsfYeHevXuK0woTQgiAN2/efPDgAS7E3BsyBhcy6nsoyqO8BFBT
cDPpecIGOoZpXUI+8uWlRl7zNJwSTfdfpfyaF248d+5cbkM/fVEsL52cnPbv
348opNZ7nRh3795t3rw5+n2aYqEIwWBubn6gGJnTVGDk0t+k/fXr1+7u7tz7
x+FOsM/QoUO19k8fPXqEHgHq64svviB5qQpMXgYEBPz4448XLlwozYFrQiaX
L19G/0tix2A0FvSR1ZrlbvjZEFozMzNDQ0MFG1KVGkgTcGm1dp+WA9rRtWvX
Tp06lZyc7OLiUu7kJcq/fv16iU22NYY5hsldQj6Ql23btl26dClyTV5eXomC
tsTmaSDlyHTGoJyaFw1q/vz50nuna8UQkXP27NkWLVrY2dnVr18fTVWv30oD
K23evNnT03PevHljxoyBpOzVq9fgwYMjIyP1vcHShM3rZptOIClMnToVTVvr
C+Vxg6tXr65Xr56NjU2TJk2UvfqNEIBWsGDBAngjfNLR0fHixYumLhGhBUiX
tWvXlpexC0TIxMREE2ZDNhFdr03pDeTt27dBQUE2xXTv3r0cTZDjgK12795t
pLhqcpeQz/Pnz318fOyK8fPzk7Muw6jNsxyZzkh8OuYt4yIHUe7OnTts6O/P
P/9ET7M0txhSBsQkWvHs2bPHjx8/cuTIctfxJwiiTFFYWAiNx3/zLEEQBPEJ
8tdff92/f79cbOdFEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEAT4+++/P3z4
YOpSEARBEARBEP8FCgoKAgMDAwIC/vjjD1OXhSAIgiAIgiivPH36FJLSw8PD
19e3atWq+D/JS4IokQcPHqxZs2bkyJFRUVHnzp37559/BAfcuHFjx44df/31
l0mKRxAEQRCmhWXA27dv161bl+Rl6QAjb926NSIiYujQofHx8a9evTJ1iQi5
vHv3bt68eQ4ODv379w8ODm7WrFmFChV69uyZk5PDRObr16+XLl2KT/Ly8kxd
WIIgCIIwJSQvSw3Ij5iYmKysrL///hvWnjx58vjx441kdlSrl5dXx44dFy1a
ZIzzl8jp06fd3d3d3Ny2bdtmkgKoy6NHjwYOHDhr1ixUIvsEvbPvv/++Q4cO
EJnW1tZOTk5oR1OnTn3+/Llpi0oQBEEQJsdU8hIS6+PHj6V5RdOC+01OTs7O
zuY+2bJly5dffvn06VNjXO7MmTMODg47d+68du2aMc7PQA2uXLly7ty5d+7c
EXyF+4L66tev3/Tp08VPkMsdjx8/1mpJiMyLFy/CCJs2bXr48GHpF4wgCIIg
yiClLy+LiorCw8MDAwP79u3r4uISFxen7zNiSLUlS5a0bNny3r17gq/evn07
aNAgqBr8oV6RVeD69euxsbHcCn3cwowZM7p37/7mzRtjXA7ysmPHjqXw8P23
337r1KmTs7Pzr7/+KvgKqnLatGm4zf+AvCQIgiAIQj6lLC+fP38ObckNBJ09
e9bGxmbYsGHv37+XfxLIlb179yYkJLx7907w1cePHxMTE3ft2gX9plqhDQYF
XrNmzYkTJ7hP8vLyIMn27NljpCuWmrwE27dvr1atWnp6uuBzkpcEQRAE8Wmi
TF7m5+crm2MG4de+fftTp06xf/75558hISE1atTgpNeLFy9wcgVnVh0I1JUr
V7Zo0aJ27dqnT5/mPt+9e3eHDh24J6GQuMuXLx81atTEiRP9/f1TUlJwU5pi
ocstH8Yx0dHRBQUFkyZN6ty5c9euXZ2cnDIyMqR1F2rk8uXL7Gz6Upry8smT
Jy4uLt7e3gK1L5aXuBfc0Sc1KYIgCIIgPkH0lZeQCtu2bfv222+VPX3Gb6tU
qRIbG8skB/6/YMGCSpUqcWNfkChTp07dsmVLWRjygsKcPn16kyZNioqK2Cfv
37/v27evh4cHe6h979697t27jxkzhv3zxo0bzZo1w71AWEJz/vTTT+xXOGzO
nDn4LVTf5s2boaWHDh2KTySkI8wLO+BgZXYoTXkJK8XExFhZWeXm5vI/F8tL
5jwRERFGmhLAByL2+PHjy5YtS0hIwB+0co0gCIIgSg195eXhw4f9/f0VL0iB
7oLW4q6Ff0Kb1ahR4+TJk9wxz549CwoKOnTokPjn+OG6desmTZoUEBBQUFDA
/+rcuXNRUVEDBgyYPHmy+KG5MqDxPD09+/Tpw82ZxFXs7Oyg+vA3NBLs1qlT
J24gF5LGz8+vd+/ehYWF0KWcuvv+++/T0tL4Z4bChGrVte4GtwnBFhcXp2zo
UqNNXuIWQkNDIyMjuTFVVCU+efnypbJL8Ll06RLkJZQkf06C1ofjuHp8fPzM
mTONqvdgXtRadHT0nj170FUZOHBgq1atIDKVnQ03hRofOXIkzDXmX/DP9evX
s/vNy8vDJ6NHj+a+DQkJQe/g999/V/W2CIIgCKJ8oJe8hKLr3Lkz/0mxgVy/
fr1BgwbQigJBeOHChS5duqBsguP37dsHnQaB2rhx4w0bNnCf//zzz7Nnz4Ya
hJCzt7fPyclRpXhQiQ0bNpw/fz63sWHfvn379evHBt8OHDhgYWGRnJzMHQ/t
NGHCBBcXl4SEBBSVfQgFkpSUhDvinxk2tLW11SV4tm7d6uXlZYg4EctLdi+L
Fi1i94Lqhuhyd3dXZSDx/fv3kHPOzs6PHz/mPtQ19xKCFmZkEt0YXLx4cdSo
UfweEKpg7dq1uH3+9Fe9ePjw4bFjxyAaK1SoYGlpGRsbC0979OgR+xY2RP3C
E2rWrIkDAgMDt2/ffvXqVdpcnSAIgvg0kS8vccC4ceMmTpyoeEhNAGRG//79
PTw8njx5IvgKeXny5Mljx47ll+rDhw9Qer/++uvOnTutra2hoNjnKA/kHNsb
Z9WqVZBtN27cUKWE2dnZderU+eGHHzTFI5MRERHQbA8ePNAUK5bo6OjatWvz
nwjjw6ioqKpVq6Lk3OQB/AGJJbhHaGMbGxsoEPFFi4qKvvrqK2hXQ0oulpc4
Ie6FE7TQgY6OjrgjVdZAocxQqlWqVMnMzOQ+lFjac+jQIdwjs6S6wNpQd9CB
z54943/OZjW4uroq3pcShkIXBurRz8+PG83mc/78eShPVKta7kcQBEEQpQx0
AnK04RMU5ctLZM/mzZv//PPPBl6RgXQfFhaG64o3tGFcvny5WbNm4uEmyDzo
h65du3IbXHNAZw4ePNjNzU2VOYewbWxsLJt4+e7du5iYGE9PT26DR4gNaKeG
DRvev3+f+wlTIAJ9e/fu3ZEjR/JLi7+7des2YMAA8UN8XDQuLq5Xr14GDioK
5CUKNmvWLNiTW5F0+vRpKyurHTt2GHIVBtvCfd26ddCr6C9wmwBIyEuIQPxE
8DBdFVAY2L9WrVpwV8FXq1evNjc3z8rKUnZmVFbPnj0hLxcvXqy13SUnJ5uZ
mX399ddizyQIgiCIsg9TC5MnTzb86RtUHGQGhJP0fEX22NfPz0+vHYR0AR0I
ETVx4kQmop49e/bbb78JjsGF/P39x4wZIxgsvXr1qr29/YoVK8Qp/unTpy4u
LuHh4ao8lIRBIPN8fHxOnjwJ1cR/Ywvjhx9+gLy8ePEi+yfK8+OPP3bp0sXG
xgYiB0KODWAePHiwQ4cO3EAlZDzuvW3btjdv3hRf9PHjx23atFmzZo2BhRfI
S9xLjx49UH1s1TaKunz5cpjx1q1bBl7oypUruLu0tDTYHGLS2toaHsW+kt6Y
aP369ags7vmyWsBtIHQzMzPFY+zZ2dkWFhZTp05VpmnZ7AL+Lgd8UK3BwcEQ
n2iVZWpTLIIgCIKQieHyEsIjLCysVatWtWvXRk6sWLFigwYNIEg2bNigVQw8
ePDAwcFh1apVhhX8/0HeT0pKmj9/PrdBTUpKCnsALQCXa9q0KdI69wnKtnDh
QhQVuignJ+fw4cP84y9cuFCnTh213kII5ePk5ASFidJyK8fFN4IDli1bFh0d
PX78eFwapYXChCqeNGkSZDNqCko4IyMjNDQUt7xgwYKBAwdCXr548ULrRXEG
aBjDn64K5OXdu3dxWm7BPrRQYGBg586dnz9/np6ezp8wqRfnzp1r3rz5kiVL
mB/m5uaiq8LfFkBCXuIeUaQtW7YovEP9gbdUq1atX79+ylYVoZtgbm7OHwHm
8+TJE2dn5ypVqmzfvt3gkhIEQRCECVBx9FIm+/bts7Oz43baUQzbsadt27ZT
p06dPn06/j9ixIivvvrq+vXr4oNxORsbm507d3KffPjwwcvLC9IIwgkiTbBD
ZnJyMgpZyttmQiTfuXOHP7AJ9cKtjn/79i2U59OnT1FlkCXSq3XYOvpu3boZ
/nRVIC/3798PaQSLMaWHf1paWoaEhEA2z549W9lC+yNHjtjb20dFRXFqDefx
9fVt06YNG4uWlpe4x65duw4fPlytqbwCcGuZmZkrV648efIkG3LfsWMH5F/P
nj0VjMDjFriJl1r37YTShkltbW21DkoTBEEQRNmnlOUlLhcZGeno6Cg9zIXC
nDhxYuzYsR4eHh3+F1dX1/nz50NIQKZC51T4X1q2bCle3aP5d/kJJAr3tBF/
LFy4ELIEqgZqga9bcPJBgwZJz3x78eIFJEd4eLhHMYLV3MagsLBw7ty5MhXU
s2fPILzDwsJ0Vevly5f79+9fvXr1mjVrDhkyRDCmihvH3bFVJ3x5yVYhQVk1
a9ZsZjHz5s2LjY3FAXChY8eO8U/y/PlzHFC/fv3KlStD9uNbvpHxd1ZW1v37
91nVjBo1SiBNt2/fjuKxMXBpeYl7xJ22a9dO9d17rl69ChHo7e2dkpKCHsqm
TZtwmwUFBUuWLIGz+fv7Kxi95CZeckvvBSQlJdHES4IgCKJcU8ry8uPHj336
9JGenwkd1bt3b+RfKysryBiIE/xdp04dJi+7dOmybt06feek4XK4KE7LH25C
cn/48KE4ibOJl1OmTNF6FQi8NWvW2NnZBQQEHD58+NGjR6pMIi2R77//PiMj
Q+bBbFnK8uXLtX578OBB2BYaxt7eHhIO5u3WrRtfmx04cABSiokfvrxku3dC
cb18+RKX4J7Lw2KCNVAPHjzAr3Dm2rVr161bF3/wV+izA2JiYnBCXAUKU+x+
+Pzu3btsuVaJL4VMTEzE+VVcZ40Lbd261cbGZsGCBfwxxps3b6J3g6rHHX37
7bcK5kayiZcWFhY7d+58IgIOOWDAAJxcl/sRBEEQRNmnlOUlNEzbtm2Dg4N1
jcLduXPniy++gKo8evQo0xLXrl1r3ry5o6Oj1olqMmEDkhIDXLjWqVOnoLtg
kOzsbGgVrXM4oTSioqKqVKmSnJxcytn/ypUrWudtauX48eO1atWCQBJ/lZ+f
7+zsHB0dzfbVQb3v3bu3cePGEO3sAOht3CO3UoYvL6H3GjRooGu9MwfE/MCB
A729vfPy8riL9ujRA8KJSXH8fO3atbCzzNspUV5mZmbifhXvRSlm165dEN7h
4eGC8Uk40syZMyHdK1asmJKSouDMkO7m5uaQl+grdRKB1oH+FBxMlZX4BEEQ
BGESDJSXMTExvSRJTEzkHw/R4uDgMHHiRK2Xg7Dx8vJq1KgRpBT/c5ykatWq
UEEKSsjA5SZNmgQRpUuhPX36FLIW+ufq1auurq6widZ5cWlpaUj9Q4YM0bpd
Ydlh9+7dkFvi1xVBLE2ZMgV3IdBp0NLQ/Gx9OlTfd999xx3Al5dZWVl16tTh
vxdJK3v27AkLCxNsiPT48eN+/fqxmoUbwOXkv+WnRHn5/fffW1payl8L8+LF
i6SkJJgiISFBPPh88+ZNOCE6NfytoriSxMXFsaF1BTtrcTtewtO0OtiFCxdQ
cXZ2dsaeePnkyRN0E9AoBg8evG/fPhopJQiCIBSA9JGbm7tr166d/8uOHTuQ
6by9vZGaBV/h4JycHGnZuW7dum8lEWR85OuGDRtGRkZqTWcbN26EeBPvFLR1
69bKlSsbsscO21vS3t7+3r17ug6AdkLBkHCPHTum9a5/++23Nm3aVK9eXevA
Zpli8+bNkFviV/ncunVL65suIXXweV5eHrQWDMXtyakplpeoMoixs2fPZmZm
+vn5SW8njjNERERoXWCVkZGBSkTlpqeny1+V/+DBg9TUVHd3dxRMl7w8ceJE
zZo1Ba/LlAD3e+TIEfR0Bg4cKBifZD0RKMAxY8aI3YBtd49vu3TpomBuJNvW
CT9funSp1ntZuXKlmZmZspPLB30otE22lxSk/tdff829GYogCIIg5PP27Vto
p65du3YRUb9+fTs7O6QYwec4GHlW3TRXWFgIjTd9+nSxvHz58qWbm1uTJk3E
CjAxMbFSpUryZx6KweXYM827d+8qPgkESbVq1apWrero6Oj0L15eXuIxLpMD
PQa5JR5mhPbTtZHRli1b0KG4dOlSfHw8X1ahyoYPH96/f3+Z8h6mfvr0qVbt
BNUaExPz+++/QyhqXYGlFXSLvvnmG3SCJF4/dOrUKdyvXk+rIa7gipDNgs8h
t1q0aIFuDn+fAY4PHz74+PhILMyRhtvxUusIMNvMHydX6xVIWkHvAAqZe88R
LhocHIyWbqTLEQRBEJ8gpTz3EkmtUaNGWtdE/PTTT7Vr14aQEM92g7yxtLQ8
e/as4uvickjZuLQhbw9cu3atmZnZwIEDjbQBjopkZmbCYtDD8n9y7ty5FStW
LF261Hir4Nla8v3793/33XfqyqejR4/WqlWL/x7JEoGWtra2xl0LPj9x4gTk
X7169fhDuBwFBQXQh3Akrd+WCJt42bx5c62bwLMZGkadeAlJvGnTpt27d3Of
oFK++uorqGUjXZEgCIL4BFFRXuJUL168kD7PkydPWrZsOWrUKPFhSHlIrOJl
I7/++qujoyMyoOJXPGuKn3iGhoaWuCGSNMuXL69QoYL0+wc/fvy4cuXKuXPn
KpMfapGdnQ25tWfPHvk/uXXr1vjx46dNm8a94lx1Pnz4EBUVNWnSJK1vSDeE
vXv34n4hXGUejxqcOnWq1m2stm/fDj90c3MTTw2FZ65evbpSpUq4CwXthbU1
uFD//v2lJ14a/gokXbx+/RoOzL3ZCne0atUqNC5dk0YIgiAIQgGqyMvbt2/j
DCNGjAgPD3d3d/f09Dx58qTWR4dv3rzBAT4+PuL0irRetWrVzZs3Cz5PS0uz
sLDYuHGj4uJpipe09O3bF5c25AXcbDPt6Oho6ZE35O5OnTo5Ozvregd6KfDL
L79YWVnpNVu1sLDwiy++kD99UQGohUGDBg0bNkz1rZw2bNigda3NmTNn0JeB
W44dO3bdunVLlixhl2Y7sUNWTZkyBXLX39//0KFDzGOzsrLgh3369BHvaYma
bdeuHazE38QAmhk9l8jISK4FHT58GJ+I1Sk38VLX0nsoPa0TL3///ffRo0fX
qVPH1dWVm9uA4o0bN47/qlPUIO40LCwMH37zzTfcO0b51r527Vp8fPyVK1d8
fX0hob/++mucU8UNnQiCIAhCo4a8vHfvHpIpN6fx1atXPXv21LpsWVP8pBsq
tH379uINgqCIkEBXr17N/7CoqKh169bIlQYOqSEpd+jQAZc25Lk20neTJk2C
goJK3EwbUrlatWrp6emKr2Ug0D9NmzbVOsdVF/n5+TCRUQddocQg5FRXsLjH
mJgY3C9f9UG/paamwnngV5riF0fWr18f6o4ta2ITL6Gs2KgdJCW6A+ze4cmN
GjXq1q2boCeCBjJ79mw49sGDB/mfs+mU3FRM+MbAgQO1dmSkXzXOTbzU+ipz
tBe0GihzzoFRX/Xq1YNgZtvO79+/38nJKSMjA7/FP9evX+/o6Ih+H36IDhG3
Kylbsgf5umfPHnSXsrOzoTDFS8DUBZeLi4tbuHAhbRRPEATxiWC4vExOTjYz
M/Py8uLy6YoVKyTeebdmzRpkdvHjP2gPZE9vb2/uPE+ePOnTpw/Owz3LU0xB
QUGDBg0E2lVfkLVXrlxpY2Nz6tQp7kNkzJycHIFqRcldXFxwL8pekmg4MKav
ry+sJ38DJdzF2LFjtVaZWkDkoIpVV7BQdFCtuF/+MN3FixdRUwkJCUz1QXk6
ODhwI8+QWFZWVtxrhlCh+CdbzI4DYmNjISN//PFH7mxoHfBza2vrzMxMwcDj
gQMH0C3iFBp7CZF4bQ6b9FilShUoTK1rwSBrmzVrVqlSJfEAvqZ411NcnRuO
xskh2HBHzJiXL1+GeJ4zZw53UXwO8fndd98dPXoUbs/KjLtYsGABf1E/21HB
2I4Ka+PGESX4G14RBEEQ/2EMl5dIuFWrVvXx8eFkYVJSEuRl7969tWqb3Nxc
W1tb/uICjufPn0PhBAQEpKamInt6enpCqaryIHXfvn3ItmwgyxBgLpS8U6dO
MFp6evrMmTOHDh0KYSY+LCYmBooFN2vgFZWBJL5w4ULIFfl70UP8oOKMmv2h
eUJCQgyZn6AVNjuXv9UPe01k3bp1uX3dIf8gAtnkTDbxkj8RF1Vpbm7OLah5
+/btuHHjoAPnz59/5MgRWAbO7Obmdvr0aYF9WPPh2xnHoN75a3MePHgAT8aH
7L2lUFn4u0OHDtCEmmJtjMI0bty4Ro0a7IBq1arhn1Cz/GtBc6L8nDvBkz//
/HN2DG4WpYWWvnbtGnc8OjjOzs6jR4+eMWMGN6/yxYsX8Fj+U3v2ls8vv/xS
9fdp8mE7+UMAT5w4sewviyMIgiAMR5W5l69fv+Z+zjI7cih7bCc+GLm7V69e
EyZM0HVFJMFz585dvXpVrUyEe8QN9uzZUy1hgxMWFhZCSBQVFenSY5cuXYKK
kF4HZFSgXho1aiTzzTgwNSSKVs2vIjt37hw/frzqAgMKEHfKn3iJfgr0W9eu
XdnTWNQRvBFyEbWm+XcOpL+/PxuqhR/CG62trTktyn4CCYc+DgqckJBw5swZ
rTMi2Km4gXr8avny5VoH5w2BlbB169ZsGB9e17FjxylTprCLspsVzNiEXGzX
rh1KAl3KuSja1IIFC/jtDmdA4dE0SmGYHQocVyd5SRAE8SmA1LN48WL+YzUD
QWL9/PPPu3XrJvFEOyUl5YsvvtC6N4sx+PXXX9u0aWPURSti3r9/36dPH2dn
Z0PWqhvChw8fAgMD+Us/JHjy5En37t3ZeJqRgKr59ttvob7UHSBlY3fffPMN
f6icvTWem2oLEdW/f38PD4+XL1/CDe7cuePu7h4VFcV8Hu7h5OQ0dOhQBRMD
7t69C9UaGxvLTbyEzTt37gzJl56erlbVo9iurq5s4iWu6O3tHRERwQlCpiSD
goL4FY0+GiSoj48Pf/A/IyNj2bJlfPvn5uba2NisX7++FJ5ZX7lyJSkpiV4P
RBAE8YmAzGJ4zEcWu3jx4saNG7t27RoWFob8LnEwEiJyPZKagReVyYYNG5Dx
DZ/AqRdFRUXQMFWqVNFrM0Z1OXXqFHR1fn5+iUeePHnS09PTqE9IcXJcQsXX
gjNu3ryJrgo3i5IBoTioGDbkmJWVVatWLajQe/fuoSf15s2bSZMmsZfysGfT
bdu2Vbbf/v79+83NzePi4pg8wz8tLS1DQkJQ+7Nnz1ZrSPDatWsQgYmJiamp
qT169Ni9eze/weIuoDa5oVpNcWNMTk6G7vX19UUZCgsLcTyT94MHD+ZWyUH9
9uzZc/To0aUwdAn7IDgYew0RQRAE8R8DejI9PT0+Ph4ZbcCAASVuzZ2dnY2E
WAoje0+ePOnWrRsEhrEvxOf27dteXl7r1q1zdHTs37+/6vvwyOTPP/+cPHky
tIf0zAek/mXLlkFmGPXB5eXLlzt16iR/LqgccF+RkZETJ04UP7m+ceMGlNiM
GTPCw8MXL148a9YsXB3WYAt2ICb9/PygAMePHz9y5EhlW0ixiYvoQTRr1mxm
MfPmzYuNje3YsSMuJFC8hgA9aW9vjwratWuXVimIrtPw4cNHjBgBCcpq/Kef
fjp48GDr1q3xz6SkJBiK7WkPjQddjeqGZQICAnDm0nmfwv3796dPn04rxwmC
IAhlvH37NigoqEaNGuI1tnygB5DskPSNmt1w8piYmGnTppW4lZCKXLlypUOH
Dmlpabg6Lm1tbW3Uh87SQDhB8B89elTiGKjKkJAQY2+jBH+ABFJ3ZTruCzJe
l2SF/QsLC7mNItHR4MsbfAvNY8h0XLi6p6cnZOrLly/RoeAuhK4WtxFQaYIC
FBQU8PsIKNijR49YM7x69eqiRYtw1x8+fLh3715pdnlwRSj58+fPl9oVCYIg
iP8ehw4dsrCwcHBwkH7giFwfGhq6ZcsWI837wmkhaXCJ0sz1586da968+ZIl
S5hszs3NtbKy4ubmmQSIW39//5s3b+o6AJIvISGhqKjIqMXIyso6fPiwiie8
devWgAEDTCjd4d4NGjTQtUd6WWPHjh179+41yaXRFow674IgCIL47wHdcvLk
Sf6o1I0bN+rUqaNrBz8+EH4rVqxQ94Epx6NHjxITE0tTWx45csTe3j4qKoob
LH337p2vr2+bNm1KeeangGvXrq1du7Y0h3CNDe4Fd6T6yyX1AoIZfg7nN2EZ
ZAKBt3DhQokuBkEQBEGUHR48eNC4cWMzMzNu/2pN8R7mtra2+HDDhg2mLV5p
wvbTHjVqlGB23Pbt26tXrw5TlIsxLkI+mZmZfn5+z58/N3VBSubPP/88deqU
qeYAEwRBEIRe3Lt3r2HDhubm5hkZGdyH58+ft7S0rF27tni/8f8wUI9QmOKp
pPj87t27Jnz/OEEQBEEQRDnijz/+iIqKWrlyJbdTCnthTYUKFcaMGWPUNwwS
BEEQBEEQ/0levXoVERExfPjwTZs2nTlzJjo6uk6dOtOmTaNNSAiCIAiCIAjF
FBQUpKSkxMXFZWRksFfvEQRBEARBEARBEARBEARBEARBEARBEARBEARBEER5
4f8AJbI8/g==
     "], {{0, 101.}, {885., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{631.0000000000002, Automatic},
   ImageSizeRaw->{885., 101.},
   PlotRange->{{0, 885.}, {0, 101.}}]], "Input",ExpressionUUID->
  "3597cdea-533d-4f29-ab6d-56cb0ec1567f"],
 ", FieldNumber = 11"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 3.831807216313492*^9, {3.8318079460699177`*^9, 
   3.8318079563486733`*^9}},ExpressionUUID->"974e8025-d4ee-46ea-b390-\
1a67079baf77"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "11"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8312298277474966`*^9, 3.8312298282274446`*^9}, {3.8312302811942577`*^9, 
  3.831230284539338*^9}, {3.8318079633937254`*^9, 3.831807963505604*^9}},
 CellLabel->
  "In[221]:=",ExpressionUUID->"ff501a9e-1066-400f-a486-abb4f4837a81"],

Cell[BoxData[
 RowBox[{"Gt", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, {3.8312302820259466`*^9, 
   3.8312302849002533`*^9}, 3.8318072239900155`*^9, 3.8318079668343773`*^9, 
   3.8318080664900227`*^9, 3.831839781804961*^9, 3.832947494452526*^9, 
   3.832961779150755*^9, 3.845826869039468*^9, 3.84585246225605*^9, 
   3.845857072445566*^9, 3.8459196181156206`*^9, 3.8460065711090574`*^9, 
   3.8460998816789675`*^9, 3.847470443298046*^9, 3.851700628615693*^9, 
   3.853975445247499*^9, 3.8549774020489545`*^9, 3.854989258659988*^9, 
   3.8549998956306725`*^9, 3.8551652434475565`*^9, 3.85518231320566*^9, 
   3.85518585774253*^9, 3.8553306338534155`*^9, 3.8553398391964636`*^9, 
   3.855343176628177*^9, 3.8553440104555683`*^9, 3.855352738062743*^9, 
   3.855449602615834*^9, 3.855507604821169*^9, 3.855508401244356*^9, 
   3.855512888887632*^9, 3.855533131566292*^9, 3.85553332044652*^9, 
   3.855578914314642*^9, 3.8555932871403756`*^9, 3.8557505993963223`*^9},
 CellLabel->
  "Out[222]=",ExpressionUUID->"9c52315f-2d0e-4a4b-a064-7d99fe638410"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
          RowBox[{"Lap", "[", 
           RowBox[{"Bt", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Ft", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"2", 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"At", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"\[CurlyPhi]", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]}], 
      " ", "+", 
      RowBox[{
       FractionBox["1", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"ld", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"CommuteGammadown", "[", 
             RowBox[{"mu", ",", "ld"}], "]"}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Hamn", "[", 
              RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.831230293795329*^9, 3.831230299121489*^9}, {
  3.8318072483544436`*^9, 3.8318075086103964`*^9}, {3.831807641331113*^9, 
  3.8318076496432943`*^9}, {3.831807851091679*^9, 3.83180785513081*^9}, {
  3.8318079768588448`*^9, 3.8318080340025797`*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"b0b40d51-ea19-4ec3-8074-546e0a99c93b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.831807825939827*^9, {3.831807866162796*^9, 
   3.831807866297452*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"a20740b4-efee-465f-bb7f-c21af95614df"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, {3.8318078154905806`*^9, 3.8318078284346147`*^9}, {
   3.831807862437693*^9, 3.831807867464693*^9}, {3.8318080495078526`*^9, 
   3.831808067116417*^9}, 3.8318397824122047`*^9, 3.8329474950617576`*^9, 
   3.8329617797446823`*^9, 3.8458268697736716`*^9, 3.845852462912397*^9, 
   3.845857073128769*^9, 3.845919618873807*^9, 3.846006571701654*^9, 
   3.8460998824472427`*^9, 3.8474704440570064`*^9, 3.8517006294124126`*^9, 
   3.8539754459254827`*^9, 3.8549774030031643`*^9, 3.8549892593384533`*^9, 
   3.854999896341299*^9, 3.8551652442163734`*^9, 3.855182313932413*^9, 
   3.8551858584423523`*^9, 3.855330634634853*^9, 3.8553398399105415`*^9, 
   3.8553431773977504`*^9, 3.8553440112108545`*^9, 3.8553527387658043`*^9, 
   3.8554496033440027`*^9, 3.855507605493181*^9, 3.85550840193874*^9, 
   3.8555128896600647`*^9, 3.855533132073839*^9, 3.8555333211818237`*^9, 
   3.8555789150916457`*^9, 3.855593287875507*^9, 3.855750600198702*^9},
 CellLabel->
  "Out[224]=",ExpressionUUID->"9a062841-a321-4388-8ba2-4fa4743e15f2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[225]:=",ExpressionUUID->"9ed4aceb-5cdf-454b-a045-babfed12c4dc"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQVwFVf7/3F3gruUIMW1aJACwV2DFJcCQYM3uBPcggV3KxSmfWmhSGlh
ittgpT9oKT/kHUoGOvSd/D//nHl39nd37+bm7t4k0Ocz0w65d+/ukec85/uc
PVKo17A2/ZIkSpRoZCr+1+azkLojRnw2rm0m/mg/dOTA/kP79gkcOqpv/74j
qvVKyod9+G8J//j//44SBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBCFu+fvvv8+cOTN58uSuXbvOnDnzwYMHLhe8e/du//79Z8+ejY/UJVBe
vXq1e/fuQYMG9e7dOyIi4vXr1y4XvHjxYs2aNU+ePImX5H0wiHEKHyriQwRB
EGLL7du3W7duXbJkyc6dOwcGBmbKlCl16tRDhw599OiRuuDWrVsIhv79++NC
4zepCYT//Oc/Bw8eLFu2bM2aNYOCgqpWrZo8efICBQqEh4e/efMmKlpHHT58
OCAgYN26dYiu+E7ve4wYp/BBIj4kYXLp0qUSJUqEhYVRQfGdFkEQTDh27Fjd
unV37dqlOcaXL1/OmjUrW7ZsiRMnLvhfIiIi8KLxm9QEAn3K9OnTW7Vqde3a
Ne3DGzduoJ3od1KmTOnv7589e3ZK9cKFC/GYzg8AMU7hg0R8SILl/v37ISEh
ly9fju+EfFAQArx9+za+U/Ee4BKf2u/X6EODg4OPHDnywUS+2NLPP//822+/
Gb9CHuzfv3/evHn8/88//4z7tCVYIiMjT58+bdoG7969u27dOuL0c+fOve9G
4pJ+TCWOcyTG6RRUnBq+e+8g2YsWLZo0adLNmzfjOy1O8gH7kOfPnzdu3Bj5
LSpFAPzzqVOnmkWD2XtxB3cWRQexcuXKokWL0k04lNh45uLFi/nz5ydW7dOn
T+/evdVbmH//+9927onuHTduXKpUqfbu3etUOgUhAYKradSoUenSpWk1AwYM
wOFUqVKFNhXf6RJix4MHDwYPHtymTZumTZuWLFly8uTJsZ1HgXCaOXNm8eLF
UVMuX7169apjx47YBv9wLsmu/P7771WrVi1RosSvv/7qu6cIToExTJs27cCB
A/KGXSA069Sp04QJE3A+DRo08E61WljUkSNHpk6d+vLlSycSG/9cuHAhT548
yZIlS5QoUd68eUNDQx3J2v379wsXLtyuXbv3dOxCEDwBR4FqJUCj+aRLlw5x
on+VKbwXPH36FMl66dIl9eeJEyf8/Py6du1qXPJjAT3Frl27Zs+ebRzTxgfO
mzdv+/btvh4S3LJlS+rUqdetW+fTp/wToDa//vpresMvvviCOjUubPzH8vbt
21WrVg0bNiwgIAB7M5Xcjx8/njNnDqEfpYde+ofIcsLGGzdu2LkDvUmdOnWM
qvWvv/46f/68T6WUdwZ/9epVnKfvUuWOixcvkk6KxdkJb9xt4MCB2bJl0/oC
jTioAkGIFV47HPzMyJEjHz165K753Lx50/TdfcKBbigiImJyNCtWrHhPJxKQ
C7wKvsWL36InK1SocPz4cfUnN+nZs2fatGlx4+qTZ8+e4Z8dS6sb7HcBqIWS
JUsSRhkrMW6y8MFAfEH/lS9fvlatWnXr1k1CUQXFgotArNJGCPSqV69u+kri
zp073bt3b9myZcGCBfmHO9/4Ie15goV07tz5ypUrdm7iTrUiKTdv3kykYPMl
uAWxNXiVpM8//9yn74/coVSrL9ZofPvtt+nSpZs6dapLqBUHVaCBNj527Bhx
H+ED/5AZRHqoiCdPnqDWXAwPjxSrUab3HTsOR1Ot7i64fv16ly5d4n7NApWL
FCdrLt0KleviEvmTjoMuhj6oUKFC7+P7ZWohODh4/fr13o3q4I6SJ08+ceJE
9XP+P2XKlKRJk2qDlohA7r9x40YfjRo51QXQ9YwdOzZTpkzGjt7XWdCDVyE7
06ZNW7p0Kc3KF08kp0ePHr1//77jd9buP2jQIGrEdHj85cuX48aN6+gG2vuI
ESM2bdr0/Plz05vTxDA2Lhs9enQce9pLly599tln7lJOsIYrIHxzF/398ssv
VOvraBpFY5F+6h1r5HGm6iLh73lC1RNFehIIU6HNmzfXglyvcadao6IFPCU/
ZswYUw3jzqIIYydNmtSnT5+GDRvSE1k82trgjXz55Zd0GfE1IINqJb8HDhwg
v7REpKZTr7Fo2lRBhQoV/vjjD5evrKvAKbCiJk2ahISE7Ny5E3fdvn37jz/+
GO3q3d0QAH379nXX3nv37j19+vQTJ04k/HUB9F8RERE0jSxZshQvXpw6KlKk
SL169U6fPq2+JZt79uyx/yCKYtu2bdytd0zQrOjg4iWmsOlwlGrFz4eGhg4f
PhwzMwqP7777rkWLFg8fPrSdWI/Ss2HDBmoza9as9Aj169dHi7Zr1+6nn37i
W+LEXr16HTp0yPS3pLNs2bIJR7XiQDwZ+MVs6Bzpbb0baI2Kdkd3797VzI8/
scm0adN+88032jUosbZt2x48eNA0AcuXL8fn0wvT1eq/OnnyJAKmVatWQ4YM
sciLg13AuXPnEAA4c6MjssiCU7x582b27NlY+9y5c/fv379gwYJKlSpRLKgd
Zx9E1WTMmHHlypXO3lbDuhPHQi5cuIAXRbYlSpQoQ4YMixcv/v7773Ghp06d
ojOdMWMGTQkTom91GZyhiLDVn3/+mZ/nzp3bxWB8DW0KZxUWFlagQAFSXr58
+b17956Ohs5r69atZNnPz48egc8t+jLihfz585MRi5DEQrUm8D1PaCkDBgwo
Xbp0qVKlMDN6ySVLlriba8rn5JGisN/1W6jWqOjFVk2bNiU2d/ncnUWh9keN
GoVuwbGgfKwrK1aqlUd88sknaMXYZM5JyGzlypXJLwWF66bQxo8f75R+oK7T
pEmD+zJ+5a4KnOLMmTM9evTQdwRUx7Jly/LkyeOdRCGEoWkjrugUkidPTinR
y6v2jqeijROo8nlAQABRpHP5iAXYJAE+telOc+IBdu/ejUcqWrQo/aw+hr18
+TJ9Df4W28bybc7P0eA+CFdUPR6ScqNH4xGHoqH3RONNmTKlXLlyfEtTjfsB
XvsOBymCJkG4Ymmkn38gFF2EHzcnosEafZpBKpdeoHDhwlTuqlWrXCpXyRWc
WL58+e7cuWN6hwSiWhGfqJGKFSuSGHqxnDlzEvhYaH58V8OGDY2hsddQXDQB
tJaLzqSZ16hRw9g0aFPh4eE4T5SAXkf9+OOPeAl6Iqw9R44cKio04mwXgI0R
qpcoUcJ0/N9dFhwBO58/fz7aQx8+4OcJmmrWrOngsAy2jebBaRAq+mjo2MNO
HH+bLFmyYsWKGVsNhUB3ky5dOpKqr4ubN29SRFRT9+7d8dXPnj3zRfqtIW3K
JxOdGWUhTalr167kC8foTglg0pkzZ3YX/yrcqdYEvucJMo+2r4l2go6BAwcm
SZIEGzYNvvC61KMjbtNatQI+nDDQ5RWDO4vi4u3bt/OPK1eu4EgXLVpk8WjP
VSsm0a9fP8rE61EC+5BZfY+AxkBdHDlyxP6dCQFCQkIQcl26dDE1ftMqcARq
v02bNshIl6NSyCxSuUqVKl7PHzt//jzlg/AzGjDVPWHCBFxBvXr13L0b8ik0
czwkBb527Vrjt7Q+en++DQ4ONn3nQl+GTkiaNGmtWrUcnLyh3lpSLM2bNzdt
jCQbwYyoi/uw2r7DwQPfu3dPS/mDBw/QjZSwS14eP35crVq1nTt32kque7TK
HT58uOlqSlxxqVKlEidOjHG66w4SgmolbUOHDqW7VBaI8WzevJkWh9c17SIp
cHzIvn37nEoALRdrpO+gyly+ok6HDBlCOeu9GSaNdqLQ8JxZsmShDNXnuHRi
NLUP1eLFi0m/6RQUx7sACqR27dpYAoLK+K1pFpzi4sWLRKDE9S55IeOEHgh4
R95DqW18UqZMiUuhn/WR0/CwE9+yZQtFjWo1jRFI6urVq1OkSNGoUSMXl4th
5M2bl5g9XlYqUUF0yu5Ua1R0B9qhQwf6AgSkMYV8QgslRrPuu61nCCRMUAi9
evU6cOCA/kPauBL5iHmXLgx3QXNDNDpSjzGqVi4gQjd9k2JhUbgCQgwiVotH
e65av//++6JFixKSx5SbuIMgiD4CR2rT0uh9cI90QOj/XLlymU7utagCmyDA
6CYyZMhACbt8tWTJEjye12/A16xZQ1tGgJmuJqMqKT3ia21lRxyDG7l69arR
bgmfkev4z/nz51vMjacuaJsoHwdrRGlpbjtjxgx3TTssLMyLAc9jx44R+Hjt
Lpx1OAqVWX9/f5dejEfMnTu3atWqvjhxknsGBgZSuXQxFpU7cuRIamHcuHHu
yjkhqFZ6eYzQRVOtW7cObUA44PIWQ/WeOHmngiz6rD59+lCY7gqBoJWI1fiy
Bm9AmFyzZk1jyIBC6NSpEzGLaajobBeA38OjLl++HB2F9jYd23eXBfvwXMIi
cuoSs9MFN27c2HRA0gvu3LmDhGjdujXG3LZtWx8N+DiiWqOi805SkyRJovd+
/AOPlz179vjaPzNG1RoVPSE/T548WbNmPXPmjMtX2BVmRp1ab9D0PqrWc+fO
EWLcu3fP5XNC5lSpUhGWulTZ/v378UtOrXOMUbXCihUrSpYs6fLuycKiKHws
uVSpUtYvOzw0eO42YMAA9E88rnxBzOBsJ0yYoLV94mKqhg/teAP8c1A01ALu
MW3atHPmzDHVBqZVYB+KFBdKiGHMBWEU5hccHOyFMKPKCMRo7NOnTzfNjtL8
qVOn/vLLL71Mug+gNLp160ay0S3W1bp379706dOr1wpOQS+D99OvyDayatUq
5Eqsbkv1IcCIjLx2ifYdjtqik3BA67PwNvic3LlzG/0egRuP27Vrl9ePMwWd
TEOjckeNGhVj5RLHWWyhHO+qFcnXqlWrffv2uTQu/C1eAkVEzKX/nGIvU6bM
0qVLHXk6pYcGHjhwoNLAxAK///67yzU0pZYtW9LXuxT1xYsXc+TIQfKMbkEl
fvDgwUZDdbYLuHDhQsWKFcPDw7ktLR03jkA1XuYuC/bB5qdMmfLDDz+4fE56
+vfvnyZNmq+++srmI0gzrX7r1q3UFDZPhOij98hOqdaoaD9Dj/PRRx9pa+Sx
81q1alEL9I9EZL5bU+YOT1SrqjWu6dmzp0sUSUXny5cvxukZ76NqjYiISJYs
mZ+fn0sgeevWrWzZslHX27Zt0z5UxUiQ65SE80S1otDoTzdu3Kj/0MKiEGME
kp07d7Zu7x4avNrRdPHixR7nyXlu376dN29eUquZJbE/usViQCZG8PbNmjUj
EFNv4SnPmjVrVq1a1fSluWkV+BT0JKqSFHrxjgyRX6FCBdyvuyVdK1euTJo0
aYECBdxNHYx7cB2zZs0iVZUrV45x7t/p06f9/f2tFxvGFmRSypQpixQp4i42
IYUIj9guErGpWh1xOJhQ69atMQnNS2DkmHqlSpWM09V4EI/r2LGjg3u+Kdmc
JEkSDyv3448/tph0He+qlWLEHZGd2bNn6ztEypnQgA4Ufa6/fvPmzXgPm7vN
KLCHBQsW0BFrtUMYZTpRCo9dqFAhfQMnqVOnTiVUoeFQyC4R66lTpzJnzkxS
jbdysAs4efJk0aJFMQbVHM6ePUv4rO2KEGMWfApWimgn6CA4tXkrTBSdj1Jd
sWIFNyxfvryD85n1OKha1cIlPPCaNWvUJ0TK2bNnX7t2LY1x/PjxcT+B0xPV
GhX9ZpncGZeM4asx6RinEb6PqvXQoUPIA9qOywgzjSVnzpxUol6r4Cqp+mnT
pjn1to54GfFpMYkr6r+CCk+oV6EWFnX58mX09pIlS6wf7aHB7969mwcZI9O4
hJ6UPGpH+ZBgHB0V4fXCxl9++aV27dr0ofppnzjJtGnTmgbaplXgIIS3NL1F
ixZ98803Sp8Qp9MS69ev74Vc+emnn7BnOhrTWdnYsJoXOmfOnISzk4CKC9CN
+iDRHcQsrVq1cvAEDW1Sa4sWLfRq7ebNm9SLVkq0AuM0whjvbEe1OuVwMKfw
8HDtJvSqODcCduOVXMPjUAsOrqdWlZsiRQpPhsdJW7t27Sz2Vop31frbb7+V
KlUKa3HZLg/Vilnyefv27bUP1Up/nLx9c+VWc+fOLVeuXHBw8KhRo/h/t27d
CD1M9yvDVv38/PStKTIysmHDhm3atHnx4sXkyZNdRu/VmzvTIX2nuoDDhw/n
yJFjxIgRWiROt0WIVKZMGeNwsWkWHISGee7cOeJ3NOqlS5eoR3x7165dqT7i
Ajt3pqJ79erFzaOiZ6Rj9gULFnR8dwKFg6pVSRGy3717d9XNEdJiMD169MB9
xcsmuh6qVoo6Y8aMZBD3QneJW6NFqJ3Y3ZmWHgvViqsxTjygHSGuKMxkyZJV
rFjR691+7EB1nz9/3ngsMlFh+vTp06VLp181SQpR7zEeAIqaQlbRHnEpFXXw
Jw5Z+dsbN2707Nnzk08+wapTpUpVvXp1ys10hIHC7NOnj0u8ZmFR1BqJNJa2
MeMxGjxfDR8+3Nra7fD06dMxY8bkypULA6Bwjh49qu8F+PeePXvUS8y7d+8S
vS5fvhxVSZpr1KhhnLVLQaExlCSjl5w1a5bLCDbeiRpU/Ujx4sVdZrHyiCJF
ihjX5Ea5qQJHQIo3b968UaNGq1evxksThlCh2M/MmTNprS1btvRirJVbUQJN
mzY1DuCTR5Qw9jZlypQ4PkCB2jxw4AD+vFmzZuRRL0vwTn379iW/pqN/Ru7f
v+9iKjYxndTKP7A39J6dO9tUrdYOx0ODj4qO+8gaoR/ltnDhQnwRjtddCMbj
eKhTUwq1yvVwJTImSuxmUbnxrlqjosNeHKxLAT5//rxKlSrklE5Q+/DJkyfo
TLyHtQHwLQVOQdWpU6fi/4V7hoaG8izUo1rdowc/ZhpJ4bHx2yNHjtTcO/9A
ZhN9oxuxan0Jq8Xa9EFGaR1jF+ChD1fpocNy8a4IqjRp0qAejTVuzIIjUNRk
n4KlUvbt20cITJg2ffp05A2FnyRJEuI7r29OLvDh3FClWW0GnjVrVh/t/++g
aqWjoSfCovTTnukjqLv4WoXtoWpFNRFVqSjy0KFDFPiKFSsIdsgvgVKMT3Gn
WnFElK2Ly8KRkhgslm6UnyAYcLwJ5HAHbAAPTzmgjvSvjOnF8OcW53eTKfRq
imiKFi2K7uUmGAyan2aC3+7Xr58Xm0jMmzcvS5YsLu+YTC1KhRilS5eOMcTw
xOB5RJMmTXw0LQftQYFQPgRKtGv+oV/cqi7AnDR5Q7Oip6CbRt0ZtRxJxbvi
cyh5XCj9OP/Wr53hJ1988YU6AwtPa7oygi7m+vXrpg3EtArsQGMhvvDz83MR
kDQBOik1jd/z3XQ1SDytyWUgiH88ePAAJZw/f37UrNoVM46hZtFvNBDiDmpc
P4SCSs+bN69x8CrOMJ3USjPHgRsPTYsVNlWrhcOJlcFHRdsA7p1iP3LkiLUL
4nGZMmUKCwvzIsFGqFzK1sH9fxKCajWFhOHwKTp9QK1WXM6dO9fih5jfp59+
qnZdox9U51ZT70q10gdhBrH1AyoQ47b6lzWUP3rbKE3VpNahQ4can2LdBXju
w3m06dFsyixNa9M0CzZRu1jky5dP39LV6QnEcXih1KlTeyJ13EGPHBQUpGWH
/oJ6xCpOnjxpN+lmOKhaERLt27enBj0Zn4wbPFSt2JjyMBjwixcv5s+fT4Hg
dT18FWuqWinP2bNn/+tf/3K5csGCBYQ22p5sONLGjRsvXLjQ4uZ0u7joRLEB
j+HFFnOUA1VMSyRy1GeEKBXDdjctWelwzH7GjBmqjeMfOnfuTIBsc3UDUi1D
hgwWox80FiJEBDZmWapUqWHDhsXo5Twx+D/++KNcuXIdOnRwPNqifGgjjRo1
0laTXb16tV69eq1atVI+iupetmyZy94O7uDiVatWUWV0yiqpFEVISEihQoW0
gegff/zRzhbfMVZBbNm+fTsh2+DBg10UOCkcM2YMdosIie3an6joKitfvjwd
H4Gztj0+jpTGRSzTv39/07UPvoY6HT16tHqjQRdM1vQzWNTEJGJkfX8Xl6hJ
rRRa9erVCaIDAgLoxPnT/kaFdlSrhcPxqcHzOLp1p8a4VOW6bIZvh4SpWmnF
agkkjVdf18eOHcNvmE7GUNAo8NiIVaI5peoJNIoWLUrl2nmtrIZPLV4P8azj
x4/v37+fWsbNojZNZwBadAHO+nAvshBbIiMj+/TpgykatyB7+PBhYGAghpoz
Z06vJ55R7xMmTNDH4w8ePMifPz++Jcb3s97hrGpt27YtBmx64E684KFqRfwo
1Tpq1CgvnmKqWh8/fkyH5TK0df36dQzSpQyJd6x3S0NI//DDD6diAw0qtm9C
1dm1qVKlWrdunX5wgEz16NGD7sx0bb7aNAb7pDvW/+rixYtEWzg0O3N9Dx06
RLyG7Zl+y51JMBVHPzVw4EDiU0/cnScGT1suXLgw93R8ovLOnTtxIC5WgT00
a9bswoUL6tH09R5uKIrdtm7d2mV+F/VIP05wpOYsTZo0KcZZExZYV4ER1A6P
JvojZDOOFVy7dg1hQN9kXMSt9slRAy9qhSC1SQtC7HkyNU7tasWdjauK1M60
xH3oqDieHqB2MlfHdLZo0YIUatPkMD+8Dfl1fPaXdRVoKGGpNrDFhIijr1y5
QnVXq1YNkW/T8u2oVguH41ODVyNv9BceKl51cAAmSrDssnZG28mqQIECxvO7
vSNhqla0GUFo165dXWbk7tixA9XqbhEfLbphw4a4AuX0NObNm0c7tTPWoXaS
sSh2NTsXhUkPVaVKFXc+waILcNaHe5EFI3T3mD2/Mt1rbvXq1Yi37t27G1/V
kUjaO4Zau3ZtlSPCjeDgYJS857HbiRMn1CIs7ZMnT55gqwTp2hInZ3FQtVL7
6Haf7ngQWzxUrXhsPz8/LrN+o+EOU9VKXOMyZKQOpzAuezl8+DD9S/yuECEL
69evx88sXLjQJSUqGCHwNN3MEB2CbsQFubRiteCUgNSOTvj666/TpUtnMd+G
/gtVQCdLbOvhtH9PDF5FMe42xsQ/r1q1auLEiRM8IzQ0VM1RR0LQwZkuItiw
YcPSpUupBUIG0wWtpnAxbsHopm7evEmZkM6rV6+OGTPGet82a2KsAheobuwZ
h9++fXsXJ6m8sbvGqEbY1OwUrSrVyYD9+vWLUUisXLkSJ9myZUtTeyOIrlix
Ih4sxtO+vK5cU/CWSp/TRWbLlq1+/fpa506OOnfuTH7r1Klj83xzFyyqQA8u
Gr1KAvSLnvjHnDlzLIbIXKDWzp49u3379m3/l61btyIMaP50HC5fcfHp06ct
vLGFw/GpwavhekzIQ9VKMmjLbdq0wdHdvXvXJQuqct0dCYGFU8hEZBjb2rVr
ydfaaCy6Vy9Uq7PGbOT69evEiYRjRoVGQyPadbdkg1TRGI1bUamdbexslqXi
hRw5crjUiP6CPXv24NvxRUePHnVnh+66AMd9uBdZMPL777/TbAkfjPu9PH78
GJXubhNsNaSMoWr7n1MgKPlUqVJ5OEyKJXfo0CEsLOxfOgh+y5QpY7EJoU0c
VK3E+JUqVSKp9D4JZJWuh6oVh0DXbL1poQVG1ar2PHHZRB2HM2vWLGOvirNy
fJ/A2IJ7IbgznUdEx4cnNx0/V+Njpid9qLHWdu3a2XnJfvz4cerFi/fFFnhi
8Hfu3MFpjBo1yvQanAkNIXHixB7O1qB86A7Uo4n0TVsx3S4mRAnjrzxfr831
piKND0k86VyyZInNXfi8qAL6MkrPuCL14cOHH330kcumahpqs2sXR4ftBQUF
oQqs315hYz169OC37jalp2GqPVGbN29uvc7L68q1gCTNmDEjadKktC99mtWJ
Hq1bt46xjXAHOhHPlzO7qwI9alKry0ZhFNQXX3xh2imbgi6iZ69Zs2YNA7ly
5cqePXv16tVdPudiGqBFjGnhcHxq8E+fPiW0idWuaxht06ZNGzRo4DJKQ4XS
lVO5fGt6N55FUmnyGCSGofQtlu+savWFMWvgpgi4OnXqZLo/P8EFfsN0doQa
3ytYsKBRlc2bN4/SQP55nkcX8LFqopHNg5vddQGO+3Aj3mUB3+Ln52ecjr5z
584UKVIQw5qO3BLl8Sv9O6Co/275Rd/tyYgTEr1u3bpd/y+Irnz58mFRQ4YM
8YUUdFC1UmJZs2ZNUJt4e6hace807Y8//lh7J2U95O6CUbXyXEzXxer27dtn
LBm89+DBg+N+J1s9P/30EwEXytM0p6p7pXCMc5XVzkjGoYao6LNH1XHwdkIt
OqAMGTKYHn7nNZ4YvJrh5sWaIK9RK1JRJsaxbi9Qo/oHDhzA69qcoOhFFWzf
vj1LlizGefjqRIOcOXMad66I+u/qFYrd5VsaIMqKWN7CkNSIgcUcQmy4TZs2
+AGEcRxPEoj67zahZE3vENT8FpLkyZkRNLSBAwd67iXcVYEe3JHaqVU/P0Ed
gWr/QEk7MwQsHI7F4+wbPI8rU6YMMszzQJuio3+fMGGCi3FqlRsYGGhtb1is
ahQxnj6foGYIoFTbtm3bt29fd68J8Bjp06c3XeCDQMqYMSOiyDiznRCVX504
ccLrhGEJw4YNo63Z7FK96AKc8uFeZIGiIyqvUqWKy6C39gLL3Uuo8PDwZMmS
UZX61xNqaTOyOcYlmaQQfWWc4MQd+vXrx3NpyL5Yie+UalXzG5MkSVK/fn0H
j8m2iSeqldQSLJNy0q85H4shdyOmqnX48OH6NZVqZavLdD61yczMmTMtCl+d
BoVbyxwbqCnjcZmmIBKIlXbv3q13vKdPn9YWXKtTGEz3IVeTf7QpMRpqkyWX
7bO8YNeuXdbnxXiBJwZPpFy8ePG4PHsdp4F7IWEWGzXECkJg+s3Vq1fbfEET
2yqgVIODg033pVE+xHikYFS0kS9ZsiRp0qQUgkuZ0xdUqlTJ9DRGjXPnzmXK
lOmjjz5y16djqLQI/MDkyZPjfrW+kutqP0CernUQa9euJcvG5mOE5ol38rAr
tKgC/TVqUqvLTq1OYXNeqzuHY4F9g8d4MKEYN2vSc/ToUZzt/v37jV+pyjUK
CRdQOIkTJ65Tp06MNpBwVOvr169RNdiYXurQY+rfQRNB4Dd27txp/PmOHTvw
A8YThNUmvTR2dQCKd6gD8uxvWuhFF+CUD/ciC2oeqfGkb22myqRJk4zt4s8/
/2zSpAndtH7xtUJtXWW9twnPwp2aLnnQFil4t/N2jDilWu/cuYOfoQnH13pY
UzxRrUSFKVKkoFt0eSHlbsjdiOm81kWLFvFo7c3RgwcPBgwYoHdN/IpSxWxi
fJtAc963b99Oj0FpfPXVV55MlqM227dv7+J11fQGTXCq95tZs2Y1HspDpgoU
KGAcLLpx4wahYuvWrW1a7MqVK7W1OU7hicFTTWiJuByXI6ghLO3atatTbZxO
s0yZMvbPUTKtAlKLyMTgMWksf/r06do5j2r4na5n6NChlDMxvva2gk6NhobB
G4fy6PLKly9fqlQpY9iuzM96LfaKFSssJrWqXTi4oFChQqbDvD5FDVykTJlS
LeC9du2atsL99u3bNJ9s2bJZv5HnMsrZZeDRuyrQ0Ca1UjI+mnjmtWq1cDgW
2Dd4dSygUU3Ro6FekMR9+/ZVgwzaUvFp06bR5VHOfNuhQ4fQ0FCt/XK3/Pnz
W7svzFVt9ebJnLoEoloxXbJJ5bpMHj5+/PisWbO0P9WRH6YzVOn18APGGebh
4eGpUqWyeUKTOqjLk0jQGi+6AKd8uLss0FkPGzaM9o6YCQsLCwkJ0d7d/PDD
D5Q2egM75FvSoN5+quEjwiI8pPFBiFX8Kjc0OmR8CJGU9bL6U6dOuSzC0rNs
2TKeW7FiRTsxiDscUa141IYNG6ZOndr+2I5L2rZt20byvD6hQIs13KlWXEHu
3LnJl4s6dTfkboqpaqX/xYtqOwbs3r17+PDh2gUER/i60qVLOzW25gVkDSM3
7vuBFkWI6vv37du30yiMsoFmFRAQQNPWezCaAN10wYIFbW7yqQ7ucfa0mijP
DF7VflxuhUEBoi7s7PPswuLFi+lGbapu0yqg0ikcddZMVLR3Spo0qXYEuZpR
ScNRbhOlWqJECWVL+FhiGeP6FBrF+PHjM2TIYDpmFRW9+x/3dLewncrq3r27
u0mtZGHDhg3p0qXLmDGjceOXOEC9d6YQCE5JHlGAtiUOaUP2IKf1h/a6cP/+
fb51kbVeV4GGtlOrU/syuWBzv1Z3DscC+wZPnM5D9edYUV9r1qzBS6sXT9hh
rly5tBP9aLPNmjVTpyFwJXqSil63bp36LSUwZcoUKpd+wV2qzp07hzinYzUd
k3QhIahWMoUBT5061SVH6DSqW79gHI+B3zBdGkBhUmguhxjS6VDO1qeDecKz
Z89QSrQOmy+mvegCnPLhpllAJ5AYjJzypLSbN2+u39CYYAoPgMAgDbQ4wqtO
nTqpTpnoAAMzropCgVSrVq18+fLuulcqKE2aNO58Mols3769xftcNaIe2zcm
HuJJJ652GUU5G3djQJNjq0gUfKDLW2b7KMunP0ISe7cpAU1A7WNs3M8Ev02E
i9KuW7euca2HuyF3U9ydMnD69OmiRYsSP6LratSo0bNnzy+//BJhj5Cmj+aT
uB/50cDy1T57prhs13/t2jX6QTpH4302btyIFNGmE1DINBCiAPvbC6tFGTbP
IjfiYZi2dOlSsuzsme8WID8IkJ2yBzW6qHWgXmOsAu5M/fr5+Wk1Ti+P/zx+
/Lj2J12/9sqJz/lTrahVJ9Ji+fpNjGkyYWFhWbJkcTetOip6963s2bObLt+I
il7ti73RkI3x140bN/DeOC6aocvOyXGG2k9JrQJDtw8bNkwfCOOg6J5w7zgQ
FzHP9ehtfIW2LaTCThVod1i7di0PxWl7vk45VthUrRYOxxRHDB7PnDNnTn2s
febMGcp59uzZyjLVLNaQkBDlOtSf2jJztZgLe9N+TuUGBQUhJ0aOHGmc30Lv
gOil90EJe9Lw4121qk3pUTKmXYZLA0Qy4TeaNGli3M+BT/B1jRo10gyegI4r
aSP2t3mnK8+dO3eM53p7Qmy7AKd8uDEL3LluNKrElKLWhjHVn9qeG2oxV/78
+ZVUQ3V/8sknlStX1u/IwQ9bt25dqlQpd7lTuwXiIhBOxoCaO9MvuHPIChoj
P7c+nMhrrDtxckfLQnfpjRMlSS+AiqZO8YeUHu3aIiRx94YlRlCqVEfGjBmr
V68e2wE3VBN9mVqeqSCqLRoN6aeXpB8ka3v27DENytwNuZticaIrzRCXlS1b
NhdNiNS3v+TBDvgfdRaJKYQJem+Dy61VqxaVaCwrsoy3r1mz5rx582hoLVq0
oLgcWVympjm5WxXuNR6q1rNnz1JrBIwOPtoCfB1BjVMTwvE5BFz2j4IyVoH6
pEGDBmpIRM32117BqBmV+jcy+K6UKVNqx4PyKxKGWAoNDT18+DDaiaCSkP/b
b781rWU+3LZtG0HfokWL6C7177nU1tbqSDsF9VX0v9DG1dpYXD32GY8b8an5
NhUqVFi4cCEO0PgCgoaG/1THA9HdoN4jIiIo1YCAAES+8V2PnSqgu6FAeJZW
aAQRRJ3du3d3djGCTdVq4XBMsW/w6l2qJgzUJ3369KHX0KIGl3NmiQsoSW0y
Jx0Ehk1Pob8tlUvz4TL0MB0BXnffvn3z58/HTyJo0QyXL18eOnSoJwOM8a5a
1dbx7roMulT9K1Fa7tSpU13W+mmgK2gLCCf6wcmTJ1PslIkjoxO7d++mqB05
BS+2XYBTPtyYBUwODaZtFKYWn2oTsNUIm/Y2GV3Rpk2bAgUKaCVPvSDScLN4
QiKLGTNmlChRArnibhQUb0nLxSxxC4RU+oM7uSd9vaYcMGyXwxRo+AsWLMib
N68mvbi4TJkyzh7y4mEn7h3Wb1g8BMeF/Tu1V7OHWAy5G7FQrQo8FfW4YcMG
tLSdPTHiC7XU7uOPP3aXeHoNzPLUqVOmu6B4B6qG/tTZSa1RHhs8/QjCYMCA
AXGzIAtt1r9/f6eWW9JYAgMD7c+sMFaB2ghLm6WPi65Tpw5OUoVgarakNr+U
oqMA6c70o4X8EG9AV0V+UWv0xe7CN/U6En+L31B7aepFxXsEWb516xadoEW/
TMPZuXPnqFGj6H3QrvzbXU7tV0EcYFO1xuhwXLBv8L///jtKQB+gqbFTbRmg
Gs5Fl2oHCqAi9BtiHDx4UEkL4831lUtMQZ/oRVwf76o1ttAj4D0sjoh69uwZ
HeLFixed8ntYHSbn1Hrw2HYBjvhwYxb4JCQkJGPGjNrmVPhPWjQhv/pT7d2k
bU5Ik0GU6reGjoqOntQutdx81apVFgPI2GpQNPxcLSOdM2dOvJw3bYFPVav1
GxYPofomTZoUl4dtWQ+5G7FWrXxI8ZounX6PuHHjRtGiReNsX1m1dUa7du3s
7JBviucGjx8oVaqUL6bluKAsRL+FhU3oKVq0aGFzhphpFRw6dChDhgzahqt0
2XTc9PW4yvDw8P/93/+tXbu2trSEHtbf379Lly5ezDakDeI3ChUqpDbiUEM3
PNpHB1u/R8RZFdhBraiaMGGC191KrByOfYPfu3dvsWLF9K931dQObXohBcgj
CBBw45Tzo0ePpk2bps175Jo+ffpgri6HZDnIe6da8RsEUwh1X+x9ZIqaWuzg
6gDPuwCnfLgxC+pwFv3iAmRn5syZCQq+jQY1SzCl7bqMOk2fPr3nB4XoQfA0
a9ascePGau6BWtdZtWrVhCZdfKdaY3zD4iEXLlyg/4qzPYiiPBhyd8Fatarx
fIKXOGu8vgDzoA9q27atLzayMHLt2jXchXFHDvt4bvBUHJ2U6epLZ+FBdevW
9e6ECyMqNifOstmiTavg9u3baAm1HRy9EsWoVscDflI5WNVwaDXBwcFYvhfb
faMQxo0bh+vQnwh5+fLl7NmzDxs2LIGcYBJfxE0V2AevaHPXSg8djn2D5xE8
aOTIkXoHjhF2jEYNYiMGCBaI4+7evUvC+AlSuXz58krSYKh58+bVZsL4gvdO
tUZFvxdAg3m9mDq2rFy58pNPPrE/OVbD8y7AKR9umoX169cXKVJEzVG8d+8e
Vkco+uDBg9DQULw04WrFihVVfIc1Vq5cuW/fvl6M9iBvCHj5uV7nLF68OG3a
tDaPqnEc36nWGN+weAKuY/LkyY5MU/EcT4bc9VirVrX1mTbg/P6Cw6xRo8ah
Q4d8/SCKcfjw4QMHDvTF1N9YGTwdEwZsc+u/GCFqJp51aqsErLRp06am5095
jrsqUCf/4p+/+OILpBEyqUGDBp06deJi9TIXgdS8eXN1zG737t2962RRCIS3
GzZs0DcZUtKtWzccSJx1ggmTuKmChICHDse+wX/55ZdIBWMDvHLlSr169UaP
Hj148OAZM2YQSdFOhwwZolb2IVxHjRrVo0ePSZMmkQAf7cag8T6q1r/++ovi
ItKMg0EnjL9WrVqm55bawcMuwBEf7i4LajkAbRwLpPMiYi1ZsiQFu2DBArUF
NJK1cePG06dPb9269Zw5c7x4saLmdRcvXlw/izUqerY2gpnbxuPSACO+U63W
b1i0U6is2b59uyOnBcWK2A65W6hWvsKnpUqVymJ6z3sE7j0wMNDDuvMaIruG
DRs6u+GVRqwMHqU0ZswYfIVPve6mTZuCgoKceod7//59Wpn1EagxYl0FeNGb
N2+qBNO6ifr17xEoq3v37tmZWhYZGWlqY3yOkLA58+HDwNdVkEDwxOHYNHhu
To/vzj9Tknfu3NHO20JXuOwGwM99HdUq3kfVGhUdelCDvh6so5rogkeOHOn4
QIeHXYB9Hx5jFrA9mrk2m93F6lCVKEw7/dTTp09NPcaTJ0+uX78ely+7Y0R1
4mhp4sdTp05ZHEATW2J8w+LJTSjJuH+x7vmQO6ZCoVF0nTt37tmzp7FmKd7Q
0FBPjhJ4LyA7K1assNhb2D40kFatWjm75FBPbA2eC3r16kV467uhcpqGg4cg
077mzZtnx3v7ugoEwUM8cTh2DJ7bDh48ePny5Ql22gkJu3Tp0vHjx8PCwkqW
LPneqdao6HHIli1bugziOQieGdGIl3ZwLbAeT7oAmz7c11n4wFCbIefKlSt7
9uzFihU7c+aMgze3fsOSYPF8yP3ixYvFixf38/Oj9AiUEqzrcxDyuGPHDl/M
OI2KDmyXLVvm05MXvDB4PMn8+fN9NPab0IiDKhAEz/Gpwzl27Ni2bdsSst9+
9epV27Zt/aIJCAhwcNJmXILwxqv4aLPHhw8fErb4VO/5uguIgywInhPjG5YE
i/0hd0EQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEH4h/Pq1avdu3cPGjSod+/eERERr1+/drngxYsXa9as
efLkSbwkTxAEQRAE4b3m8ePHM2bMQGt16tQJ0fX333/Hd4reP/7zn/8cPHiw
bNmyNWvWDAoKqlq1avLkyQsUKBAeHv7mzRsuePfu3eHDhwMCAtatWyclLAiC
IAiCTf766y+lMf45XLx48fPPP79+/Tr/fvjwYfXq1RGuPnqWi1pD6dnUb8eO
HQsODj5y5Ej86kBsZvr06a1atbp27Zr24Y0bN7p27Yp2TZkypb+/f/bs2evW
rXvhwoV4TKcgCIIgCL4AHRJnAhL5dPTo0SFDhowdO7Zv374otxUrVqBgY3UT
Ejxz5szixYvfvXvX5atLly6VKFEiLCyMBzmXagd4+vTpiBEj7t+/r/4kyx06
dBg0aJAvnvXnn382atSodOnSQUFBAwYMaNasWZUqVdDMdu757t27cePGpUqV
au/evU6l0wsiIyNPnz799u1b41cYw7p166j6c+fOyRCrIAiCIHxgPHjwYPDg
wW3atGnatGnJkiUnT5784sULnz7x7NmzNWrUOH/+vPozPDwcIYRwjZXI5OJd
u3bNnj0beebyFbIwJCTk8uXLjqXYCUjw2rVrd+zYoX2CiK1UqdL06dN98bhX
r16hWinYRIkSpUuXrmPHjvqRSa+hbAsXLtyuXbt/2iC5IAiCIAjxC8IJyXrp
0iX154kTJ/z8/Lp27Wpc2OIgW7ZsSZ48OcJSjYZ99913yKqgoKDYDre+X7x8
+XL06NG///67+hMRu3jxYlSrcazYEVCtI0eOfPTo0bt37xy8LXcbOHBgtmzZ
NJsRBEEQBEGIA7Zv316hQoXjx4+rP9GNPXv2TJs27ddff239w7dv354/f947
nRkZGXnq1Knnz5+rPzdt2oSInT9/vjbW+uzZs6tXr3pxZ8f5448/Pvvss8yZ
M1epUoVUqQ/Je79+/Xr37q1l/86dO4j/Pn368GG7du3OnDmjPteLf2TetGnT
Lly4EBgYWK1aterVq3PPK1euWCcAlXvjxg0vUq6pVi9+a823335LlDF16lTj
2PjNmzd/++03x58oCIIgCIKwefNmFOPEiROVAuH/U6ZMSZo06bp16yx+hSIK
Dg5ev369/YmjqLJatWo1aNAAfah9+Oeff3L/jRs3mt4f0bh8+fJBgwa1bt36
1q1b+s9XrVo1bNiwgICALVu2ODWplYQh7Lt27appVBR1zpw5Z86c+Z9o9u7d
6+/vv2HDhr///ps/V6xYUaxYMaQmPwwJCdGmW2zbto0Y4eXLlzt37ty6deuB
AwcQrseOHbN49LVr1zp37hyjsjVFqVbikdDQ0OHDh1OYfOLFfYyQhTp16lAm
+ipTXL9+vUuXLgltboYgCIIgCB8A7969u3v3rrawhT979+6dNm3ab775xt1P
uHjs2LGTJ0+2+UL/5MmTSLLcuXMjPo3658mTJ23btj148KDxh7t37w4PDyfZ
BQoUWLlypfoQxYhcRKySqsGDByMInZqde+HChSxZsixdulR7EHkvXLjwzZs3
+fP8+fO5cuWaMGGCtvaHz9G0Cxcu/Oqrr5YsWaLEMwVLOKCXc1yPqmzUqJFx
Xq7i119/bd68eYyD3u7gtq1ateIRv/322+vXr/lH/fr1uad3d3OBfKVJk2b/
/v3Gr7777rsWLVo8fPjQkQeZQpljpZ999lnv/9KzZ0+U+dOnT6Oi92gdP358
jx49tG979erFxadOnfJdkgRBEARBiGOQVUpGupNSEBER0bBhQ6PO9I5ffvml
Xbt2lSpVMo4oIjNq1Kjh8n48MjIyNDQU9bVt2zbEJBpJu8+0adNeR9MoGqem
5q5fvz5z5sxnz55Vf/7000/58+dXGxSgRfv16+fn56ef5Pn48eMSJUogk0aP
Hq3NWX327NmYMWO0SRFR0ao1JCSkbNmypiVJNrkD8tjrhfAk7969e9qk1gcP
HqC0g4OD7U9zffPmDSlPnjx5ly5djAv5SfD06dMRjb6bGv3vf//7+++/Jy5I
ly5dokSJ2rdvv3XrVkxXZY3/8+9du3ZRtnxbvHhxIo4TJ07wKx+lRxAEQRCE
OAZN1aJFizp16qC73F2D+EFh7tu3z8HnXr9+Halcu3ZtvaiLipYfQ4YM6du3
r1EaIZzatGlTs2bNly9funx1//59VCV6z5EZAqRhwIABpUuXVquoyH7lypWH
Dh2qVtA/ffq0YsWKSGt9MlCh5cuXz5Ejh34GxcWLF6dMmaJXjNyhefPm9evX
Nw0QEF08yKmh0ajoode6dev6+/vbnOnKfagUSqB79+65cuUy3ZcA+6lWrdrO
nTvtPChGCFjSp0+fM2dO03m/2FLVqlUTJ068ePFinyZDEARBEIQ45vXr1336
9AkMDLRQSmgw1GCDBg3sDFtxk2+++Wbr1q3a1klKYGTIkMH4Dvf8+fNFihQx
viVHBCIL9Qu4NA4dOpQ5c2b+73UK9ZC2KlWqqEmtt2/fbtSo0bBhwzSdqQRq
27Zt9ZMlnj17huBs3LixfrBxw4YNc+bM0af27Nmzfn5+pvt98VA0/KxZs7wW
3moz26ZNm2oaNTIykoojOrh3755394yKfvkeFM2rV6+olLRp07pkSsEnc+fO
pU59epTqggULEiVKREGZWuPly5ezZs2KUWkr4wRBEARB+ABAdCFHBw4cqAQA
YkPboEkPEqhMmTLaDE/vQOmVK1cuU6ZMP/74o/pEKUM++emnn1wuRvi1bNlS
v1o/KloUTZ06FQF2/fr106dPf/nll/qvyEiBAgW0nfxtcunSJbTlvHnz1qxZ
U69evR07duhf2b979w4Rqx/yJcFhYWF58uRB/yNu79y5w/Vc9vnnn3fq1Elb
D0VJ1q9f/7PPPjMdaN2/f3/hwoXt7KLw9u3b1q1bV6hQQSsHFRpUqlRJ2wkh
tmAVzZo1Q42r6aNkmYxzT5cRcsW1a9fIwq5du7zOgjVksF27dqjWESNGmE6i
2LhxY7JkybRBckEQBEEQPgAQhAsWLAgNDdUGP1evXn3kyBHjlZs3b0aPebek
XYOnoNYmTpyoPe7MmTNI1g4dOphKuMWLFxcqVAj5p30SGRnZsGHDNm3avHjx
Ao2qV3eIRr5CWXGNnURqIFNz5MhBgrdv326aPERRUFBQt27dULZDhgxBxP7w
ww/ITvQSf1KwSFZk3pgxY1atWoX8njNnzujRo5GU3Nl0iinV0aVLF0SvzXmh
W7duDQ8P1wZCv/vuu5w5c0ZERHh3t19++aV27dqVK1fmH9qHVE3atGm/+uor
4/Uknix07NjRR4cRPH78uHjx4smTJ9ef2qCh5nWgaSnJD3sTYEEQBEH450D/
Pnfu3HLlygUHB48aNYr/I8AqVapk3LxIbS9Qq1Yt41TS2PLo0aOhQ4ciXA8c
OIDqqFixYvv27d3Nt0QE+vn5bdu2Tfvk77//njp1as2aNUeMGIE207+hvnfv
Xr58+VDgcXyW67Nnz27duqUXSM+fP3/48KFKxsWLF6dPn04BoqXv3r1rLUd/
/fXXYsWKTZs2zWYWeMqMGTPGjx9/9OjRhQsXUshLlizxTsKpqkclusxiJS9F
ihQxXbtH4skC4YZe5TrIiRMn0qdPT0BhPanV5nsBQRAEQRASDrt3706ZMmWi
/wv6xLgg68mTJ4jbPn36WC9Cf/HixerVq1Gh1apVq/h/qV27tjaEi6pBb6BF
Ua3oPQuFhppFxY0cOVL/IpjrkUNG/Xzw4MHMmTObDhRrXL9+HRXXtWtXhA3/
V++7fQrS2vN35ceOHSMLe/fuNf2Wwt+0aVPZsmWTJk2aJ0+eWbNmuYwqX7p0
SdsDllK6ffs2hUyBuJsYcP78+RYtWqRJkyZdunSdO3d+8OCB/ltKmMfxCErJ
dPooVkF5mpoEWSAjXu/cZc38+fMxVGIo01RRCFmyZMmYMaNMahUEQRCEfyCI
zGzZss2dO9fdBWgkRGPevHkTJ07M/3Pnzq00cKFChZCslSpVaty48Q8//BDb
56rF759++qm7IUo+j4iIUBsfDRw4sEyZMu6mMvJ59+7d/fz8xo8ff/bsWZSY
cXcCxyFVU6dONV1rb8ry5csRexcvXjR+9ebNm+HDhydJkiRFihS5cuVCuPJv
/e5YZOeLL77w/KzV/fv3Z8qUifrKkSMHwlXpQP1OXPv27Vu7dq13o75kgZuH
hYV58VtryGbbtm1JLTHUr7/++tjA0qVLZVKrIAiCIPxjOXbsWIYMGdxNjETY
bNmyJW3atK1atVKr1JFSa9asSZkyZa9evezMLeS3HTt2LF++vLsdYg8dOpQu
XboVK1Zs27atWLFihw8fNr3sl19+qVy5MnLauObLp5D+48ePezhJlUIbMWIE
iTSuJqOEV61aRQbJpirP58+fh4SEEBRoM3t//PFHz09/4FclSpTgDmq0GXW9
a9euAgUKIJvVBS9fviQxXp8XQBby5cvnMkjuCI8ePfL391cvBaoaUCv7+FZ/
nJkgCIIgCP8cduzYgWo1PawqKlov5ciRA8mqf2v/559/1qtX76OPPrKz7yhq
atCgQagpl5fXGi9evJg/f/7nn38+btw4/QGvehCN7du3T548+caNG71OSRxA
Znv06FGyZMnffvvN5StigdatW7vMN0aVITsXLFiApuXfkyZN8vCd+Nu3b4cO
HapfrqU4cuRIhw4d1F4HBw4cWLhwodfTa8kCGfF8PdSzZ8/ICKmaPXu2tchX
O7XmypXLtLqxh2rVqiVJkmTZsmXepdxDKEOCuGHDhpHHadOmOXUWmyAIgiC8
7yAkVq1aNXHixAmeERoaeu7cOet7/vDDD8ahKo2jR4/qL16/fj1SQZszqQeN
gaDKnj37+fPn9Z8jV5BAWbNmNV0y4yHq5FMksXbOlBcgxtKkSWMxeSCBQIm1
bdu2XLlyxp1O161bt2bNGqOGvHnzZv/+/TGPq1evjhkzxsPNE65fvz5kyBDj
Kqo3b97w+c8//6wOgVWn1nqH2sy2ZcuWHqpWHn348OHChQsTX1jP3FCTWgMC
ArSdxPRcuXLFz88vY8aM2nFmvoDobOzYsXv27ME+SS2FRi3EwYQTQRAEQUj4
oNmKFSuWOHHiRJ6RPHlyhKv1PdEVB9zzP//zP/qLkUzp0qX75ptvjPf5/vvv
M2TIYDzfU4215smTx87O9qgCxFi2bNlu377t9R0QFZRJ5syZ/f9LiRIlUGU+
2pfJayhAZF6FChWM0yH4xDS1fDhq1CjMY8mSJaabUJmCKHW3Pmvjxo3bt28n
5Jk2bZqd41/VwWHNmjXzXMuhpQlPFixYYHGNNql19OjRpnMPNm3ahPH7NELh
uWFhYbQR7RMKrWzZssYRckEQBEEQ4h7EQPr06Y2zRtWe/8mSJVu/fr3LVw8e
PChUqFDlypVNN6L3EBTCsGHD8uXL5/XBAei6wMBAUmg9PYDLFi1aNGnSJDsD
jDZRk3g//vhjzxUX5TN//nwUFNrV6xME9Jw8eZIbzpo1y3hUWawgC0jHTp06
eT65FLWcJUsWEmBxjZrUmiJFCtNtGZDZgwcPRtMGBQX5blLr5cuXJ06cqA1r
UwVI6ICAADtnxgmCIAiC4BToogwZMhgPl0cndO/eXX/WlcaePXtSpkw5duxY
O+txuH+vXr2KFSvmbkPXGFG7EKRNm9Z0oFgPQqtq1aolSpSwMxHXDmS2f//+
RYoUidUaqHXr1iHVVq9e7cgutdevXycNI0eONH3/7jmU4UcffRTjVmkaGElw
cLDprmt6vvvuu3Tp0uXMmdM0uHjx4sUnn3zi00mtFPLSpUv1O3r9/PPP2Iyx
aQiCIAiC4Avoi03PftL46aefkKbGbdvVWU7GA+4jIyPbtm2bN29ezzd9MuXt
27dNmzZ1d9y8J6gUInWOHz8e48VbtmxJnTo1OtC7Z9mEWpgxY0bWrFmRjp7/
au3atWXKlInVTyy4c+dOqVKlwsPDbd7n1q1b2bJlIzsuWhrZ2aNHD2R23759
ly9fPnPmTLX2Sh0RW6lSpaFDhw4aNKhly5YHDx406vB58+YlSpTInT24m9SK
JF60aBEqmq++/fZb7XN1yIV2FAJNYO7cuSRv4MCBJIBAQA3YvnnzRtPeXBMS
EkLuSCQKmTT7+/tv2LAhjg+2EARBEIR/IKhNeuGR0QQEBAwYMMD09TQ9e6FC
hUaNGuUycEpnPWvWLKSCizrds2cPKnfVqlU2e/Nnz56hK7p162bnhW9ERESq
VKk80aKPHz8uWbJko0aNrDW879i+fTvlFuOwsJ7Fixd36NDBqTm6V69epcDt
T5NAHJIRsqN9giWsWbOmdOnSavMxFGauXLnq1aunilpNaq1SpYpadof9lChR
wiUZhDBt2rRBtbrbUEtNai1btqxxORvXY70FCxbUNqNALRMQ1alTRwlgnov9
9+7dW/1J8ooUKYLNqPPjtK2GuWzChAn8Fvm9fv36r7/+mpiIT3y6yxaJ37Zt
GzpZf36xIAiCIPyjePHiRYsWLZYtW6Y0ACIhX758pmd0RkZGBgYGNmnSxLhK
/datW8WKFZs3b54mUFEsH3300ezZs+135dw8d+7cS5YssXOTly9fNm/evFq1
avpVTrdv3zaOA1MOY8eORW75dAW6BSQJ8eb5C27KfObMmQ4ODp8+fbpv3772
NfDq1atz5syJ9tM+OXPmDNENVqHshDiocOHCREzK9pRc13auOH78OH9u3rxZ
f88bN24UKFDA3RRlLDMoKAhNi7I1LgF79epV3bp19QZ88uTJ7Nmzq/nYKFXM
u2rVqtpZaZQANvPpp5/euXMHuattbHXo0CGXgWiEK2LY88MdvEDFjGStYcOG
8RVPCYIgCEL88uDBg/z581esWFF11s+ePatUqRJdsPH4eLXqqkiRIqYny//4
44/16tULDg5eu3YtmqdRo0Z05Y68M929ezfix/7RAMiSMWPGBAQEhIWFLV++
vE+fPqTWdFT53Llz6CV3S9R9DQK7Vq1aPXr08HzDqH79+jl4dAI1qDaAtXOT
d+/e9e7dG5WovcfnE8o8a9asP//8s/pEf3atmtSqn72MDk+ZMuXWrVujoodY
+ZbgJWnSpGqLjNSpU2OlaHuVzj179vj7+3NztckGshbl37FjR/0eqojPPHny
hIaGqp9Qzk2bNm3WrJlK4b59+1KlSqU/yYsEDxgwoGTJkshsjFB9SDopHJd1
asRo2bJlM90UzilQqt26dcuYMWP16tVNG6AgCIIgfPDQg1+6dEnbVOrevXsF
ChT49NNPTVfinD9/Pl++fPoNf1xudffuXXpwd8cBeIHatKp+/fpOrc6OjIwk
F6dPn7bYE/7169dNmjQpUaKE1+u/7EAxzp079+OPP7ZelKRBaQcGBjqlZJDK
aOAdO3bYvA/hQLly5WbNmqWpX7URVs2aNdU5FGqIGBmJmIz67yZpLVu2VGO8
SjFmyZJFk7j2wW4RyUeOHImKlvrDhg2rXLmy2pgCMwsJCXGZDavOKUuRIgVR
mNYc+AfhjEvVrFy50s/Pz/QQXmehdogcHWxfgiAIgvCeog5XQki423oIydem
TZvevXvH2UGZv/76a5kyZeyvDIoVqILatWsnT55806ZNcflcjRs3bhQtWtR0
ZycjiLEWLVrYXO+vgR4LCAhwOS3CC/bu3VusWDH9rFR1VJY2PxndSLLr1Knz
/Plz6pcrKXNUohrfpt79/f27dOni1GRdRPLEiRPVpFYU8tixY+vWraslT51k
4bKxMB+OHz8+W7Zs+kkOxHfdu3fXHwCnxsZbtWoVBy/uid1ooe6ONhYEQRCE
fwIoiuHDh5crV65IkSKnT5+2uPL48ePIyDhbErJy5cpPPvkkLg+0QjE2bNhw
+fLliC5klfXRoj4CvTRhwoS2bdvG+HQ1SDhmzBinJjN88803yDmbuohkk3h0
oH7PK/Rnx2jUjNM9e/ZkyJChX79+anETemzQoEEERPxEzQfAGr0+V8IIkrJB
gwaNGzcmg1TruHHj9MozKvr0NFSrdh4uKvdf//pXjRo1/Pz8MIlffvlFxQX7
9++vWLGiNqxKUidPnkxSbW6U4SEXLlyYPXu2naMfBEEQBOHDgJ59wYIF9N0R
ERHuVNBff/01ZMiQYcOGxUHX+fjx41q1aiFvfP0gDVQBmiQ8PJzcIbqyZMli
f9TRO3799Vck06FDh6wvQ0o1bdp027ZtjjwUqTZnzpzPPvvM5lj6l19+Saxh
nLRw5cqVevXqjR49evDgwTNmzEA6Vq1aFXNCH0ZFD2M2b958/Pjx/fv37969
u7Nb5j58+NDf3x/hioWbvmEny3zFBZQAgQBp2Lx58507d6gFtDSK+smTJ+pA
hw0bNvTq1Ss0NHTKlCnt27dHtTpyuEOMIPt5loMTmAVBEAThvSYyMrJly5ao
NYsRV+REYGCg54eHege6cezYsUjHODvb/eTJk0WLFp05c6YS5GfPns2UKdPE
iRPjax9OtB/lbH1I6P379+vUqXPr1i1Hnohy69mzp83tCEhw48aN3U1+pmyR
gprMIzDRj3ny7b179+LxhCmU4c2bN/VJwvzu3r2rjJAYAUFLBpGvaPI4flO/
ffv2hQsXxssKQUEQBEFICCAhVqxYoY1rqel/iRIlmjx5ssWvzp8/j7j13VtR
krFp06ZevXpZrJlylsOHD+fIkWPEiBGaSP7zzz8RjT49zt4a9AlVM2DAAIsJ
kwiqefPmOSXs0WyzZ8+2s9iHpA4ePHj58uUfpLiisUyaNCnOJnW78PTp0/h6
tCAIgiDEO2qVNBpVO8BIU60zZ860/u2lS5eWLVvmo4HQhw8fIsbiTLI+evSo
WLFiPXr0cNGHW7ZsSZMmzcqVK+NruJUK2rFjh7aFacLn2LFj27Zt+yAla1T0
Tq0bNmyI71QIgiAIwj+UiIgI/b5JCMXatWsXLFgwblaXJBAQpQhX40xdPr99
+7azEyyF95cLFy7IrlOCIAiCEF+8fft20aJFgwYNQr4eO3YsKCioTJky+oPa
BUEQBEEQBCGB8Mcffxw6dGjjxo1nz551aodMQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQfCO
/wfnEZb6
     "], {{0, 100.}, {914., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{673.3333333333331, Automatic},
   ImageSizeRaw->{914., 100.},
   PlotRange->{{0, 914.}, {0, 100.}}]], "Input",ExpressionUUID->
  "e1bfcc73-d775-4ff5-95d4-72f90ffcd0e0"],
 ", FieldNumber =12"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, 3.8312302427783546`*^9, {3.831808118693654*^9, 
   3.8318081270334835`*^9}, {3.8318081574131556`*^9, 
   3.8318081782266583`*^9}, {3.831808482532746*^9, 
   3.8318084828979445`*^9}},ExpressionUUID->"2474d928-92ae-45d4-a3b8-\
1cb0e46ac77c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "12"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8318081498567114`*^9, 3.8318081500896044`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"581d401f-db7d-4c87-b27c-c18cf2c4afac"],

Cell[BoxData[
 RowBox[{"\[CurlyPhi]", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.8318058891268415`*^9, 3.8318081840551834`*^9, 3.8318085109314833`*^9, 
   3.8318397824591246`*^9, 3.8329474950930004`*^9, 3.832961779783176*^9, 
   3.8458268698830214`*^9, 3.8458524629603558`*^9, 3.845857073167286*^9, 
   3.845919618967504*^9, 3.84600657175014*^9, 3.8460998824784813`*^9, 
   3.8474704441351023`*^9, 3.8517006294748974`*^9, 3.853975445966462*^9, 
   3.854977403065653*^9, 3.854989259382339*^9, 3.854999896388156*^9, 
   3.8551652442944484`*^9, 3.8551823139948845`*^9, 3.855185858484682*^9, 
   3.855330634712945*^9, 3.8553398399886494`*^9, 3.8553431774944816`*^9, 
   3.8553440112913656`*^9, 3.855352738802668*^9, 3.8554496034091253`*^9, 
   3.855507605533558*^9, 3.8555084019726667`*^9, 3.8555128897016478`*^9, 
   3.855533132154665*^9, 3.855533321215616*^9, 3.8555789151385136`*^9, 
   3.8555932878910904`*^9, 3.855750600246833*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"23f4d49a-4b43-4f55-bb3b-4e219f3874ca"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"Bt", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "  ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"At", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "-", 
      RowBox[{
       FractionBox["2", "3"], " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"ld", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "ld", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.831808190171137*^9, 3.8318082274745865`*^9}, {3.8318082698744555`*^9, 
  3.8318082774822407`*^9}, {3.8318083932911024`*^9, 3.831808405033281*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"6e875641-194b-4918-b27a-cf786cc316f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}, {3.8318083436982317`*^9, 3.8318083446975236`*^9}, {
  3.8318084122341332`*^9, 3.8318084123777437`*^9}},
 CellLabel->
  "In[229]:=",ExpressionUUID->"b21cea8e-301d-4ecd-8b4b-c790c99e8208"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, 3.831805889252923*^9, 
   3.8318082892981205`*^9, 3.831808345791419*^9, {3.8318083978042974`*^9, 
   3.8318084129536543`*^9}, 3.8318085110716925`*^9, 3.831839782556592*^9, 
   3.8329474951867285`*^9, 3.8329617798714347`*^9, 3.84582686999949*^9, 
   3.845852463059486*^9, 3.845857073265338*^9, 3.845919619092476*^9, 
   3.8460065718620186`*^9, 3.8460998826034517`*^9, 3.847470444246865*^9, 
   3.8517006295842524`*^9, 3.8539754460664043`*^9, 3.854977403221867*^9, 
   3.854989259480728*^9, 3.8549998964975047`*^9, 3.8551652444271064`*^9, 
   3.8551823141354895`*^9, 3.8551858585972843`*^9, 3.8553306348239117`*^9, 
   3.8553398401388435`*^9, 3.855343177623811*^9, 3.8553440114025435`*^9, 
   3.855352738912431*^9, 3.8554496036178102`*^9, 3.855507605638467*^9, 
   3.8555084020753393`*^9, 3.855512889880136*^9, 3.855533132928746*^9, 
   3.85553332143426*^9, 3.8555789152634516`*^9, 3.8555932880004396`*^9, 
   3.8557506003758574`*^9},
 CellLabel->
  "Out[229]=",ExpressionUUID->"328b3800-9296-4fd9-be90-efaffc98a187"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[230]:=",ExpressionUUID->"a8e946b7-3510-453c-a670-332c65dd7fda"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQd0FFX//08g9NAJBAk9UkIxKBCaQOgllFCEQKQGYkQgdEEIvQQSeu8g
EkAhgLRDUyA04UsvcpD2fAWRB8WjcJTz6Mn/9c89z/zmu7M7O7s7u9nAfZ8D
J9nM3rnzqe/PnVvK9R/WeVDWLFmyjMzFf537jQ0bMaLfuC4F+aXb0JGxMUMH
RrcZOmpgzMARdftn48OP+ZfKD///z2kSEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhJuxosXL/7555+M7oVExuOvv/569epVRvdCQkJC
QkJCQiJz4Pnz5zNnznz77bdv376d0X2RyEj85z//2bdvX3Bw8MqVKzO6LxIS
EhIZgN9///3LL7/8+OOPBwwYsHHjxhcvXlhc8Ouvv65aterJkycZ0j0JiTcT
f//996lTp+Lj43v16gVlvX//vsUFEJiUlJTTp097uGPcd9KkSfXq1QsPDy9Z
smSRIkW+//57D/fhTYPXRukDBw40bNiwZcuWderUyZIly7JlyzzcAQk3wWvj
j4SEt+Gff/7ZvXv3O++8QzCMiooKDQ3Nnj17mTJlVq9e/eeff6alO8vevXub
NGmydu1aPCuj+ysh8abg9u3bERERwcHBkZGRbdq0KViwYO7cuYcOHfrjjz+K
C6Cv5LiYmBhIlOe7R2Tgf6JE69atJZd2K7w8Sv+dDn5YsmSJ5NKvDbw8/khI
mAUC7PLly4OCgi5evOhcC8Th6dOnd+rU6fr168qHN2/exEGI1Tlz5qxUqVKx
YsXCwsIuXLhgUq8lJCTs4+DBg/jd9u3bFWr0/PnzWbNm+fv7+/j4lP0vNm7c
KDhtRkFyaXcjE0VpyaVfG2SW+CMhYQr27ds3depUjNy5r798+TI1NfWvv/7S
/umHH35Yu3bt/Pnzz549K4ejtUAmYkRIQoDYGxcXh0FmlLVgzAkJCc2aNQsM
DGzcuPGOHTsy72o4ek6B/PjxY+2fcPaUlJS5c+fy/x9//OH5vllAcml3IxNF
ae/h0lppSMpnHJko/kh4CX755RcSAQW+1UglIaHF/fv3Bw8e3Llz53bt2gUH
B8fHxzvxhovkWL58eYp6i89///337t27h4eH84NJ/fUQSFXjxo3LlSsXJDZD
OvDNN9/MmTOHHHr9+vXhw4fv3bs3Q7rxpkFyaQkF3sOlExMTS5YsGRERERsb
GxkZGRISQq8yb3EtIeHlgLFMmzZt165d0sskjODp06cQ6cuXL4tfv/3226JF
i1KLadcB6ePGjRtjxozR0g+YCSV/cnKyN4wyOYp79+5RIHTt2jVDRuyPHDlC
6pQz9zwMyaUlFHgJlyabE0Xz5cvn4+Pj6+tbu3ZtCvzMGFElJEwB/GTVqlWT
0rF27dqXL19mdI+8BY8ePZo4cWJ0dHTLli1hZbauSUhIiI+PR3r79u2TxYIa
165dgxU78UVY7rvvvnv06FHx66tXr/r27Zs3b95Dhw6JT549e0bjpnXUGrzW
L/7zn//Exsb6+/srtYZDcFopAo8fP0Y1yMTiZa4HNPImwzku7aKuvQS4//nz
5+VcLwXmcum//voL8TqxW7VYSbRnzx748+uX+Lw/oKG4jRs3xqcDY5BTQTIc
P/30U5UqVUJDQyMiIsaNG5fp3nq7Cb/++uuoUaOuX78OeahWrRrmajVc3Llz
p3fv3h07dixbtiw/yNliAsjq888//+STT5wzJ76bPXv2CRMmCJnz/5QpU7Jl
ywanFRcQN+Li4jZs2OC+GO7NfnHs2DE/P7+pU6c69PguKkVpJDExkbt/+eWX
6s89oBEFT5484UGmTZu2ePHiq1evvn55XAtHubQpuvYSiGcZNmzYb7/9ltF9
8QqYyKUxD9x23bp1TjiRwqVd74YXwpMBzQIo5caNG//617/Ut+ZnC19++fIl
tATuUb9+/XLlynG9h/spYQE4w3vvvff1119b/evz588hEt1toGfPniNGjNi0
adMvv/xi9evoF0bEZaNHj3b0Bb0rwPDoVWRkpNVu9+jRIyYmJikpSScx7d69
Ozk5mR9I1v7+/gsWLNC/3aefftqvXz+rXJq/btu2DSHY6gwpD1YALXf9wb0E
mBM+bnVVhREgxh9++EGZXc+vAwYMyJs37+HDh5VrIFRdunRBTVZbgG1imeHh
4UheHZGOHz/O5506dRoyZIh+Ia/vFxkLvLJx48bvvvvuzz//bPxbLiol7b/n
RERFReERQUFBt27dUv9VXyOmAEo5e/bsDh06zJkzJyUlBReuVasWxc6DBw+c
aC0TOaajXNp1XXsVMDxKpzFjxrhvxc3ff/+9ZcuWgQMHDrCH6OhorCID1/6Y
xaV5BNIWfMy5IxQFl968efPSpUuhnTgmQdvFLnkVPBDQFGB+3377bd++fUuU
KFG2bFnCe6NGjcLCwtavX4/xC1GPGjXKKsH45ptv3nnnHcmlMxz6nAHdXbhw
YePGja1atcJ/8+fPv3DhwhMnTqSmpp48eXLXrl0zZsxAj/AcOLPFuAHxHz+9
ePEiX3/rrbc8PNPv3r17ZFuIU86cOek5MfDIkSOp6Th06NCKFSvIyDly5GjX
rp2t+RsCcPJChQrxsDrX6HPptPSpIAcPHoTA+/j4lCxZkmqXBkVn8KA1a9aE
hobSGZzFkxWHm4Ci69WrB5s1q8ErV65gP1AmC/aLDBs0aHDz5k2L6wnpqOPp
06digaGS9c6dOzd+/Hiq+z179hQvXhzh69zUm7k0WLRoUZ48ebBwg9e7rhTc
GemhBYyZwO7r6ztp0iSLQRtbGjEFpJvExMRZs2apUz9VfNeuXRs2bOgcb8ws
jukQlzbdAb0BKJpYvW7dOvfdAruFThM0yBcFCxaEHJLg9qQDQoVtTJkyJSQk
hL82b948A+3BOJcmIw8ZMqRFixZ3797V/pW83LJlS4fqcQtQzEIMiKviMJGq
VatSazvdmhfCrQFNwbVr19q2bevn5zdy5Ei1g//66698QphFtvi+LeOXXNpL
YJAzQCnJnhUrVtSqjNSGd2MJlFHKBuPg1q1bJD5iTu/evWvXrv3s2TPze28P
MOpSpUqRDb/66ivtX0+fPl25cmVoFfnU6tcJER9//DEhQj9T2+XS4hqkQQzs
06ePdhwA4kfWzpYtG7VJpl6+AXEdNGhQbGysc2MdWpBDqXqo06E9Fn9C2mSK
gQMHWowRffHFF3v37r1//36FChWgf0Ke9IfkKIZSqQf9/f2vXr2qc19v5tIw
q7Fjx2bPnr1nz55GxsdcVwrWi4/jLOIM6wcPHiBbeLXF3W1pxBRcunQJJrN4
8WKLp0CPAQEBiqIdRaZwTONc2nQH9B5AaGvVqkVId98tUDGRHGNo37691SUS
lPOEI0wlA6fzGefSuEyhQoVKly6tZYOER4S5c+dOV3pCWlSWIWNvH374IR76
2rwNSXNzQEtLtzcqmvz588PYrU7Phj716tULAoMe0abVRiSX9hIY5AybN28m
d8Ol1WxZAflo5cqVaJwq1WKNP+wlMDCQij5DpjUSMcqUKWOLS6elJ+Jy5cqR
i8+ePav9K89St27dyMhI/cRkhEuTDTt16pQ1a9bly5dbbWH69OlESHSRqZcL
nThxIigo6Ny5c6a0RiSJjo5u06aNrUBx/vx5SJ2yJlGN1atXwz20566iyh49
eqBW/c0ovJZLk80J70OHDqVELVGihPpoCVtwXSnkRyrKuLg4wSd/++23999/
v2PHjtoUo6MRF7F06VIfHx8UZzGjDM4Dz7Ra5htBpnBM41zaXAf0Kvz+++8t
W7YcPXq0+4oanCssLAx1UzrZSljz58+Pj4/PwMLKOJcWr5UJZRaf82g8QvPm
zc2dgj5nzpycOXO6yM+9De4LaGiHKh5aReGm83aAW+fNm5fCx9ZopOTSXgJT
uHRaekaLiIggJamjED8QeYoVK+b0oYEuwi6XBlQBvr6+hFAtubpy5Yq/v/+i
RYv072KES2Pqb7/9dsGCBW2lOQIRERLGog19mQU8/kcffURkMOUFKKSXgB8b
GysC/pMnT7SS4UYwugEDBlgUO+REyroWLVpo115BC4ODgwcPHqw/suSdXBoT
jUoHzyVibEJCgn6VaopSjh49CpFTsiSR/9133x05cqSWUdjSiOu4e/cuJfmZ
M2csPucBY2Ji8uTJs3//fieazRSOibobN25MJ/UDqbkO6IWAQOK8Dx8+dFP7
d+7cKVmypHrLIC1WrFhBynBTB+xCeY2CWTrdCEm8Ro0aixcvdqUn3377bcOG
DdU7zJPrs2XL5tZ5OJ6HmwIaely/fn2uXLkgydpXrmqgLHgXHbCVsCSX9hKY
xaVBSkoKtkFigsGKT54/fy7Gr8gFa9eudevrOaswwqV5oipVqnDN1q1bLf60
cePGQoUKnTp1Sv8uRrj04cOHCdEhISFwQu1fqUSQEhGyR48emXf3J7H18cKF
C11visCVlJQ0efJkRRrkL6uT8bhduXLlLBaInT59unDhwsuXL4f1kX/Vw6cn
T55Ep59//rl+B7yQS2M54eHhrVu3FgOkOBe5LDQ01NbKXwFTlHLw4EE4hsJj
z549GxgYeODAAasXW9WI+wCfpzLy8fGB5DjxdW92TB4N661du3aJEiWyZs1K
NwoUKFC9evWBAwdaPYbVRAf0Tly9elVMa3dT+zt27MiZM2eFChVs0XVCPRTU
M+vRLECt17x5c/pGqsIS+D8oKKhFixbnz593tCmiH2LUn+RmF6tWrSpatOj2
7dvFr0hm4sSJfn5+UDtXmvVCuCOgQSr8/f3z589/5MgR/St//fXXsLCwNWvW
2LpAcmkvgYlcmkheunRpKlO8THxy7dq1YsWKYQa3b98eP36857dANMKlxUt/
olNERIQ6XYqNfMlcdsej7HJpZTDhww8/tFreEpxJ6MWLF9cOu2UifPnll6jb
9UdAjHPmzIHexMXFjRo1iv+RG/X7lStXtBdzO0L6li1b1B8uWLCAZPH9998T
6in/1SO34kWJ3b1DvY1LP3jwoFGjRtAq9Z4VBHnMRn881hSlPHr0qE6dOl98
8UVaur8MGzYsKirK1uCnVY2YBeglTJ4qCeZ8+fJlNEt/evXqhXNRfDna2mvm
mGY5oNdC1I/YnjtmgyuTpTt06KBOBLdu3dq0aZPyCgbx6g8kejnEtkjvv/++
1XLMOG7evDlmzBhllggFfv369fEj79mK3yyYHtAgQqJC79u3r92Z2M+ePcMg
L1y4YOsCyaW9BCZyaTGLEgvp3bu3iHWYQcuWLfv06TNkyJAM2fncCJcmn06b
No1uly9fHqJy9+7d1atX//LLLzxp1apVoQ12p8bZ5dJEZnwna9asS5cu1X53
z549b731Fv20tQQyUwApDR8+XN9C0tIj+aFDhwYOHNi4ceP3/i9ga5MnT8Zy
oARi9xU1KleubDWFiVdgFvMNTpw4Ua1atdGjR8fHx6unedB49+7difl284hD
XPrGjRvz5s2D0YWGhvK/6RNrRfpDAhazo3/44QexBtBWlWpXKXSVhFiiRAlf
X1+qlQMHDlhsaorjiE0Ajh071qpVq6lTp3700Ud0RmcpsVWNuA6EAJlHKdHR
0Tt37kTFuO306dPRFLaEc+G2jrb5Ojmmibp2Du5uPy3dBtB+zZo1Xdl9whas
TpbmB2xDVJGZBTzIzJkz4WlNmjShCrCYA/bkyZOQkBDEaCtbnT9/HvKWJ08e
Pz+/yMhI5S2zAJGTNiHMNEulOWjQINSanJzcunVrEr123Mlga04/rLvbT3ND
QNuxY0euXLny5ctnZAz/xYsXhDudcUjJpb0EJnJpKqz27dsTixo2bKhwFbIV
8TOjFpUb4dJp6fMHfHx8ChQocPLkycGDB5csWfLcuXOxsbGEViNb19rl0g8f
PgwKCqJ99ZARMuFXCnluh5+6Izt4Eii6bdu2SEzH6+/cudOiRQux5RQkkJzL
z4UKFRJcukGDBqQtR+OVyIA0azFMCtnT2qqYLD106FC7dzHoF1xG5Vi0aNHx
48efPn0aOuGmFd+0bHWhEJkRJq9TxOko5d69e7Vr1xYzB4oUKcIPhQsXVod3
LsCwlWIEi+VeVudCqGFLI66AZ6f+KlWqlHoiqzjFY9GiRYGBgblz51ZP3TSI
18kxzdW1o3B3+wrmzp1Lyy7OT7AKq5OlL126RDpz7ozRDIF4qQe55Ye4uLhy
5cpZ0MubN2/6+/vbmm6dkpJCcCYbFi9eHIKKHt9//321C8Dr1qxZo/BzwixB
cuvWrUhPu3DD0dYchbvbFzA3oOGnnTt3pqv169fXX/9uEJJLewlM5NLkoG7d
umEkNWrU8JIFdAa59IYNG+B1OOO+ffuuXLkCL4qJiVmyZInBt2B2ubRYJgbj
gncpe/5/8MEHjRo1qlWr1uzZs+3yE7NAV2fOnClm3BkHsdfudrVEsJCQEB7K
Vt1069atqlWrQqH3798vghsZCiaDUTl31oaAGGrWGariXkePHiXqwp937dpF
IjayCaoRv6Db8AeI3Hfffedk790MHaWQIPDWVq1aKcvZrl271rRp006dOomU
IfbBQ2KO3tSuRhzFy5cvo6Oj8SDtFgGQ4TZt2hCaAgICnNjB3nsc03VkiK49
074amzZtyp8/vzv2VRCTpUkEkJxmzZo1adKEuptfM2pDV+eA5ElGL9PRrl07
6hqLl1kHDx5EgBs3brT63SpVqowdO1a8WSOdbd++nQSqvLUhIY4YMcLg2k9z
W/N8+wrMDWh3794tXbo0WXXUqFGmDHRLLu0lMJdLd+nSBSNx9EQ298Egl16/
fn22bNksTtYzDrvnHs6YMQOxWL0APtagQQOYgMem5lILnzlz5qQjIEXaXXhF
yCpfvnxsbKxVIRDWWrZsWapUKYt5X3PnzkU7ygIWJyD2AEfLFsMvCsR+bqT1
S5cu1alTZ9y4cUYWkdn1C0gC/AGncN9KKNeho5Rt27ZBUC3GuvHu8PBwoSO+
O2TIEP2FjVZhVyNaYGATJ07kW7t379YOIq1cuRI5Q3e1Y/50r27dujgX7Fc8
C1QhLi6OcsnI1CyvckwLpKamTtAFvqO+3ixd37x5E1eFQE6fPt1gV82yJQp2
9IhCdZYG79mzJ1++fOQjg32DBiclJQ0dOpTKSGdcEWshMmAMlABXrlxBCFev
XuVedCYmJiYDd5NOSw+e+pYA/vd//zct3aQXLlxIUZCWPvGsRIkS2nnRW7du
hUtrl0/iXEhp9erVFg6IK1GgiRcKVEPz5s0zMszrUGvo5ZNPPqF67dq1q8Hq
1azeQlTgyVg79mnLPMwNaKJ+J6AZt2F9SC7tJTCRS0NR2rRpQzjSf9HvSRjk
0kuWLPHx8bG75ZQt6HNpxNKhQwe4uq2dlI4cOYJzlStXzuJQ5swFyu2SJUsO
Hz7cKodZsWIF9pOYmGgRWDZu3Ojr6+vK7kzcbuTIkcWLF7d1gi0XoH06RmQ7
cOCAwbRo1y8I2nny5PGeVzBWYUspZI1hw4ZZXctJXYk6UNPatWvt7nZiFXY1
ogUyTEhIQJ7awuTRo0eUQjlz5rTqwmIwlpij7GCPfiFFuXLlEoxCByY65u3b
t6HlnxkG7M6u2SD8Wrpo166d+nqzdE1qhpNv2bLF4MQGE22Jshf6CgMfNWqU
LQoEFfHz8zM+Nx4t7927lyei8tWZf0XCgkVjSNOmTVNPlsYsrQ7h2gIsjlgH
uTVoCZMnT7Z6tIEauIC+JQCxHIkOUwLQB36ARmbNmpWCy0KS69atoxjRLgGA
e8MntYkbAfI5mRFF49cGk5RDrVFkwQap3Y4ePWpwtxyzesv1VHDcumbNmrZm
XJgb0ASVKlCggFW9cy9UAyFZvnw5Rr42HViUzoJiyaW9BCZy6WfPnuHUhKMR
I0Z4yeF9Rri0MiLh9EscfS798OHDChUqQNRtzQTgAvI1cc+5Tb28BHfu3CHa
WH1vJQYPy5Ytq41FhHrIDDnX6ftyuzFjxvj7+4sj+cyCvl9wUyK2mOxd6b+o
UqUKIdertjS0pRR+hbdYpStkH4wZR+BZnNuvwDmNLF26tGjRolr+tm3bNvwX
LmR1UAgKwbdwLnWuEVvDde3aVV8XJjrmpk2bYN3GJ00FBAR8++23+m06CrN0
TWquXbu28Zmc5toS7XDx6NGjbXFp6BZc2qEdnuFdSEZ/mxcxWRryoyaZxPNJ
kyZZLRNsgRBHlvTx8TFoCWRV6LTx9g3i+fPnjRs3xsy0ZzmtWrUKAWrfwEI+
bU1lgRAmJyfD/Sg0DI5FONQaCQKTc8gjzO0tNl+nTh0dLm1iQBPDR7RmdU4a
HYarxMfHDxgwoHDhwlhIqVKl4uLiUlNTdTovubQ3wEQujdkUKVIkd+7c3rOT
mBEuTW3bvHlzjPaTTz5x7l2ePpcmOBOidea9EH4J44RfqlEn7u4lEMe1I0Mt
l4bnUIbDbSzGhV69ehUVFZUvXz5XeAW3GzZsGLc2d/dyfb8Qr2AIiR6Y4PHy
5cuEhIRmzZoFBgaSH3fs2GF8KY2OUmxB7MbAXebNm+dcReyERsQBxKQzi2kA
NEVhjm927NjRKjFevXo1WujSpYt6qb7YzZJspT+y+po5plm6dpRLO9q+Puxy
6f379+fPn5/ixXg3YFbQkuPHj+tcs3PnTrGztHrtBn24e/eum1YTuxU8LFKy
Wk4iOkKuQwt1aS0xMXHWrFknT540pW8WrTnBpR1q3y7scmmzAlpa+iQlOBI0
W3/MXJyHRSFv94BLyaW9BGZxacLOnDlzUD1J39yTSV2BES59/vz5oulQhqfE
KgbiOR5kZId2HS6tnEHcv39/W0RdbAFH6Dtx4oThJ3MS4iTKgICAQo4Avdvt
26NHjypXrtynTx/tY27duhXj0R7Li/vTcq1atVzZRI7bIVu7e/E5Cn2/ECu7
nZ5g7xAIlXgW8fz69evDhw93KAnqKMUWIKXQ148//vjSpUtO9dcZjTx58oR0
MGjQIIt+kpIiIyNxn4kTJ2rJFVpo27atn5+f9tSYY8eO8fnUqVNtUTJvc0zX
YZauTeTSTtiSXS5NZEYjdifwKMBx4uLibO2oqVwjXk1a7CydSSEqUEKu2BIZ
e1CXA7t27UKA27ZtM97gjRs3YmJi0Ivr27BYbc1cLu1Eb/W5tIkBLS19PhgV
OuWMfnF35coVCkCdt2bqzksu7Q0wi0vDOSnq4V1edeyRXS5N5IyKivLx8YmP
j1fMnjCOJXfu3DkwMNDIFCkdLk02CQ8P15mTKU41ypJ+sJp6bI2f8V+4k9Im
OuITUedStHI7pE0EUF51ETBxXrunneJ0O3fu3GYYJK/9+/fbjUsUUI0aNWrd
urU2GWE8qEB7tuzq1atz5crl4swWnrpdu3bK0jOzoO8XSLhnz56wtaNHj5p4
U6s4cuRIRESEc9xGRym2gDy7d+/eq1cvpzeAsqURQgfFqdiemoJu7NixyjvT
M2fOkDUQ6eDBg/krdxd+JzbWxj2tDs5AoSlnaFA7cijeceuMOTvtmBkFnkjf
r83StYlc2glbssully9frj3wnRstWrSIkIgxEIqpkghxogVxvAsF+9ChQ2H1
HTt21C4HUyZLz5w508X90zwArFF/ORJVQ3BwMOWDSNYEXnXpATdDgA4tUSG5
V61a1Yn92w22Zi6XdqK3+lzaxICWlk45xHZn2sElNeg/0SkkJMTuvFPJpb0E
pnBpGmnZsmXu3LlJTCbGIuprKmsCoNPnvMClS5cubYtLk5uwZ54Lm7dwE7Gh
UPPmzY0sotTh0g8ePChfvryt6hLnxdFwK1Rg8f5IzN8jKQh54s44oNqdxTsg
nFTJsEgpICAgo9KBeKtllb3w7NB+kp36Q1RTvXr1rl27ujjWQSmB9GydW+c0
7PrFxo0bKQTWrl1r4k2t4vHjx0h10qRJTkxA0lGKLYhTs13Jm1Y1cunSJbqx
cOFCnBpm1b59e0xCGa5cunQpiYPKkbvzmAMHDlQYLEwAD1UcQcGTJ0/q1q1b
s2ZNWxsqYm958uRJSUmx+lenHdPDQFYJCQmIq1WrVmXKlCG3Ut5atQSzdK3l
0vp1vUPt2x0E0OfS4mjCcuXKqZVOSOTBO3fuLPq8ZMkSbCkxMVH8VUyW5naC
zJAIqlSpYvF6XdlZ2gOvmZwGAqF4pKzGGKpVq1aqVKnPPvvMKv0Ty6LheOgL
4YwaNUq9LxyiQ4AObchGZsERzFoar23NKpf+/vvv0ZoSgTGS+Ph4I5OFLNrn
+gULFrz99tsFChRQ7+y6detWLhOGpM+lzQ1oaelHiRUuXBg2ZevoInoiijsj
r5kkl/YSGOHSeHFSUpKPj492Wxiq/lWrVpUtW5ZY9OWXX5rL4oTXY1EQdec2
BsG2ixQpot1/BvsU57hBs4nb2sZFqiVYGXkiHS6dnJycM2dO7UHkeOXevXsp
n7Okn12udYSdO3fim8pCGHH0kvoQxgsXLuCPyvACnxNq6HMGbgZCZ0hbJC+L
z4khcH6krRQCjx49atu2LfHH9U0wCLlvvfWWBVF3HXb9Asun/9A5NXW5ffu2
drGPi8C6IAZ+fn74lxNft6UUWyCMoyxXrEirETHGC4QBCNaHeMXcHvErLFFs
hyVW+lACi1CDeOvVq0eqVW+WxRfxGtzH1nP9+eefY8eOFWWy1fmuTjumJ8FT
QCxXrFghAgsmR24lDhOyrD6UKbrWcmm7db1D7esPAuhzaW4NOW/Tpo0y0C3m
6qhn6KFZIqfywohfqZiUWUB8zq/qTUVoYc2aNZgKz2h8owbPY/v27TExMaIA
wUeo4iHMMECtie7Zs4c/ifd9VF6C7yl/JRojQMKv8bctqampsEGzZr9oW7PK
pXlAEpzyAgLVBAYG6o/l2mqfx6d2gKUo7AX7adeuXePGjYUN63NpcwNa2n9N
Lnfu3A0bNtR66+PHj6Ojo7t06aIoUR+SS3sJ9DkDthEeHp4rVy5l3TEGAL8N
CgqqUKECcZu4xNdnz56tMxiCrkkBgwcPxsKp14iZBl/5QXGxScrJ+vXrO3Sc
B9ZLgBXHbwlQJOKJQengB7rNU1C525rIR+wlINsa1LKAlkvjDvB/cRKTuDuu
FPRf8DMdIHST6KH02uAg5u+pF8JwGV9RH2W7bt06enj69GnxK6mEZufPn5+B
7yjpjL+/P/W+9k8YEtqHnFB5wfmJQvBDU46RgmGSiE0/LcVIjUkgJUg2adIE
sWPYBMC4uDg1N9MfWjl58iTBnGoOXSvJ7u7du7Vq1VJkiEXt27cvKioKwWI5
TlBcHaVYBbfo27evKxNmtBoRZ+YqOyKKjeyUU4zF3MIBAwaIX5FS586dKdsV
4xcDTZQtK1euRBrk0ypVquButk5hIG4MGTJk6NChvXv3LlGihLq6cdExPQxY
fWxsrJoVwCgIXPnz57f6QtwUXWu5tN263qH29QcB9Lm0WGExa9Ys5a/ik+bN
m4vXW2KqsPL+VEyWVr9OhaFRQ4lACrchEKFxJU0g2FKlSmE23rPkRwC7pX5R
7yOBVWCl9Pmzzz6zUAR8G7bMX6dMmUJssXgWRDd16lSLVZb6gPglJSWZ5Q7a
1rRcWozlKnQ0LT2GoKn9+/c70T62gaLV5cPx48eLFSumTDvU59KmB7S0dC3g
UNWqVSP+d+/effny5bt27aLn/fv3J0DRPoUzpmtkoYHk0l4Cg3M8nAMGA3eq
Xr26sMOrV6+S2po2berQIDNVHr5vfJt010G3p02bRvogHVMCfPDBB5MnT9Yh
fnbPPXQUYv5e+/btRRoV6zrVI07ciEJAGVVDOMQiepuxC2cIWSQ18W7R6gUE
eYIY8cGs+Rhibzp3LHc17hfE5/Pnz6empmpDsd2hlcOHD1uUSHAMakDxFbQ5
fvx4CpBHjx4RbH19fSdNmuRoRrOrFAts2bIlJibGaQVpNcInY8eOVZ/TTTRA
LCQO8avY/0eZt8zDQpVpQT35ByGLTcJpfMWKFTpDr2ghKh18XRyLkJCQkOGs
2AkIuUGWIiMjleCDXrp27ZpFtZ+2Gqbo2oJLG6nrHWpffxBAn0tTXMB11ZOl
xRZ5yiJTrI76FOoixu1FIFU2gRFhE9tz7hyBDIR4TLSgtnxxxFiDBg205/Py
+EiJKtKqGIlXiNHgMZSob9CgQcYLNCda03Jpsb9unz59hPEIX1APLDvUvnix
QhJXptC3a9cuPDxciVE6XNpNAU3p7cmTJ+kYhQOWSZF49uxZR1mE5NJeArdy
6VOnThUtWnT27NnChsXECezQob22sOGJEyd68iBFsS6JgC/2H8NKa9SooTMz
1nQuLZb6TpgwQXmpSnaoV6/e06dP6caPP/5I8MH3xXtSLm7VqtWwYcO84Xwc
AkjVqlVdP7bVIIRqzFoUo4brfmF3aEWcBFGsWDFl4JQMQmYUM+vEscuVK1cW
g1H4DpkUXu3EDl3GlUKfP/nkEwo3p8mnViPi1DD1HFfIMM5FQj+WDlIS1q4M
e8KZ8+XL59ABGQoQNZ7bunVr8bJVrDsLDQ114vTGDAcqILf6+Pio87jYUgAu
betQJNd1bcGl7db1DrVvdxBAh0vzXWgSpYR6csKePXvy588vNqxISx8JDwgI
QG4QGIzw3//+d6NGjZTzDjDOSpUq9ezZM9Nt1gHFgq3B0PAa5cPt27fnyJFD
HWEMAgGSUOyuUhdAkk2aNFHf1xVYbU3LpSl2eFhlxbEYWIYA252XYrV9qgYC
zr59+9LSByjIldxOvQ5Ch0tnbEAzAsmlvQTu49KYXHR0NB6hDAJgXYKgOtTO
hQsXYOOePMVVcH4lW5GXEREMx9b1pnNpRJQzZ874+HiRUPgVZ+zbty+pZ/z4
8WQ3Kl+KlLlz565atYpMRxnuJYfjUPI0btzY7paYZmH58uWUGO44edB1v7A7
tAIr7tKlizKsJFYllC5dWhy7LI4+j4uLE5qFTb3//vsdO3Z0gksbVwpXkrMO
HTrk6C0UWNXIunXrKATEZNS7d+/WrFkTSoMcJk+eTB1B+kPU4hx5SCBpjhrE
ia0zcFuIE19Xv0tduHBh3rx5jbwa9kKga4xBneIFqciaNautfRhc17UFl7Zb
1zvUvt1BAB0ujangERb7H9JIUFCQ2OYdm4G9Ezl3pgP2ImiPeNtOz/EmmKe5
hzp5DHRbvVRNFDVUVerZ48Zx9OhRKKKRRf2HDx9Gj2aNZVltTcul16xZU7Bg
QWXXODGwTEIkKpLydEoAbfsICusVgRdLI1NzgXaNgC0unYEBzSAkl/YSuI9L
CwrasGFDhSrMnDkTjzCyY7MCqkg8yPTZsPogXOPIytYf4sgG4r+t683l0oJ0
Zc+eHW8dk45JkyYRDXDJIUOGiFQCeS5evDh3TE5O9obhaDV27dqF0s3d7dkq
CFnQS/3T4Z2G635hd2hFvPsbOnSoYMspKSllypRRKk2SHV+HEohfxYotaIZz
RZNBpZw/fz40NNShtQlq2NIIzz5o0CCq0XHjxsFtYD7BwcEYM7WD2LqBvNO6
devp06dHREQkJCQ4MWwods+rXLmyxdpPnFeM53ubmziHU6dOEZr0R55d1LUF
l7Zb1zvUvt1BAFtcGv0OHz48NjbWopbkMogNnkWQxADgz82bN8fSuFhsKA0F
bd++PV2NiYnp3bv3a0M5UBBazp07t8FFPRbA73BAChn9nCXenZFoTJmVZ6s1
Cy4tfDl//vzisBWiASUSCXHbtm0EZCo4nU3jte2Ls9gIL9DsDh06EIK0U2Js
cekMDGjGIbm0l8B9XJoSEgNTdpLBnLDkxo0b4zirV6/mr0YagSs6ff6a00hM
TAwICFBK1927d4uFBrauN5dLC9JF/EdQN2/eVHaOQmKmbPrqbpDs4P8EGbe+
SqBxZE7addOpZK77hd2hFf5UqFChL774AvuBM9esWRNqoaSJgwcPcr0yJe/s
2bOBgYHaQ0kMwqBSNm3aFBUV5Vzkt6sREhMETJnXakH2SHnwXldshuLd6rT5
J0+e3Lhxw5MvttwEqrCePXtCZZUKyypc1LWaSxup6x1q3+4ggC0uvX///pYt
W9qq8oiZhGtxLzwLM1OzKeRw9+5db1tO6CLgbzly5EALTvM02FebNm30X9kg
Ruoms3b+tNWaBZcWo3B+fn4NGjSYNm0aZJWACTXt1q0b5F+HNFptn6qzUqVK
0GmIrq3p1la5dIYHNIOQXNpLAGcICQmZNWvWsWPHLl68aKLq8fHu6RCmSHFH
pUk1h4F99tlnBl9L4Vbm7htsF2LhobJNK3ePjo4uV66c1eF0/IXa+ciRI5GR
kXixKdK7ffv2W2+9ZWTzH68FhX///v2J9m56BJolU3ML9xUXLvqFkaEVYnux
YsUOHToUFxfXuXPnq1evqlsgUBPexQovjJAkAjNxZecTI0rBSZ0rHzygkTcc
Yh+twoULI2e7buWKrtVc2pW63jlbssqlKYU6depk1pTd1wDXr18PCgpCxS6+
bUGkHTt21NnGk8A1e/Zssxb+22rNgkuLnV6WLVtGCsbqlHWjVFL6IydO91bL
pb0/oFHnXr58+ejRo/Pnzw8ODpZcOsMBWaXiK5YOETNNbBx60LRpUwLj4MGD
IYfjxo0LDQ2llIZ8mngX07Fr166aNWuKt6i7d+8ODAy0tWj90qVLlStXLlq0
KNKjhjVl/JwcVKhQIW8+NcAICEGJiYlOzxbQB6qZO3euW6Oci35hd2iF1EDx
ValSpbFjx546dcqq5Ygt0KdOnSqO1lKYjNNwn1I8oJE3HAQEQk1ycrLB+tRp
Xau5tOfrei2Xhj4tWbLE6RPtXz9QyDRr1oyUasq0JfgY4nXT2z2DsODSq1ev
Vm9/5AFoubT3BzTq3C5duhRNR5MmTdyxaEjCqwBnuHPnjkIDHj16pJ2t5G14
8eLFqFGj+vTpM3HixHbt2nmY1lIOQ97ERgQSmRROD61Y4NWrVzdu3HB0nb7E
a4bz58+TLpWdAdwKNZf2fF1v9wzxNxzi+JspU6ZkLPs1F2ouLd7oOXR8p+vQ
319aQkLCFVD+e2ABncRrCc8PrUi8rvj++++7dOly6tQp5RN+Xr58uZvYJryi
ZMmSSUlJcBsP1/X37t1btWpVo0aNoNOSS2vx4sWL4cOHL1iwQJlyBgudNGlS
ZieBPEX16tXj4uKSk5P//e9/w6WnTp3qmUVSiHTr1q3Dhg2rUaNGZhejhISE
xOuEDBlakXgtQTn/0UcfWUwVXrlypbKjsum4c+dOVFRUhw4dbG275z6cPn26
a9eunTp10l9c+Wbi1atXs2fPptZQk8yrV6+OHj3aw0uKTMfLly/j4+Op2mJj
Yz38QvbZs2eDBw/m1nTAfdvWSUhISEg4ij///NOTQysSryt++eUXsnzJkiXf
+S+Cg4MDAgIKFy6s7A8j8SaASJKUlITea9SoISyhevXqpUuXzpMnj7L1t4SE
hISEhISEhAII0uTJk7NYA+xanBMh8YYgNTW1YMGCWkvIli3bunXrMrp3EhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIm4MWL
F//8809G90JCQkJCQkJCQkIiM+H58+czZ858++23b9++ndF9kZCQkJCQkJDw
Lty7d2/x4sW9e/ceMWLE8ePHtWOPV69e/eKLL/7zn/9kSPckMgpofNKkSfXq
1QsPDy9ZsmSRIkW+//77jO6UxJsCGZckJCQkJLwff/zxB2SpfPnyHTp0+OCD
DypUqJAlS5ZmzZqlpqaKzPX8+fNZs2bxycWLFzO6sxIZAEFU/vzzz9atW78h
XPqvv/7auHHjsGHDevbsOW3atF9//TWje/TGQcYlCQkJCYlMgYcPH3br1m3c
uHEkJvEJxGnPnj3vvfcematw4cKVKlWCPsXFxT19+jRjuyqRsXhzuDS+8Omn
n3711Vd///03pHrIkCExMTH8kNH9eoMg45KExJuDBw8ejB49eunSpYq/uxvE
dvWvrr/YevnyZUJCAqV9YGBg48aNd+zYIRcWZRSQvOfz9Y8//nj58mXt55jW
qVOnFixYsGbNGuzcw71yB168eCFfBLuCN4RLE2Pnz5+/a9cu5ZMNGza88847
jx8/zsBeqWGRBdLMSATehjcnLklISIDDhw8XKFBg0KBBr169cve9Ll26VLp0
6bCwsOjo6AEDBjRs2DAqKuq3335zpc1vvvlmzpw5BOfr168PHz587969ZvVW
wjj++OOPkydPhqeD6saJFlJTU8uXL79x40aLz+Hny5cvDwoKemNfg0KhFy5c
OHTo0HHjxkVERLRq1QpZOdqIFG+a2Vzaa0V65cqVCRMmKG5IbBw9enSTJk1c
jLQmIjExsWTJkhhzbGxsZGRkSEjIsmXL5BiIhIRE5sVff/0FoQ0MDPTAWM2F
CxcIob6+vlmyZOGOkydPdn08/MiRI8RkORswAwGp6NGjx2effRYcHNy8eXPn
uPSNGzfGjBlj1Qj37ds3depUj7068SpAMGbNmgXfEBaObLt06YLvXL161aF2
pHjTzObS3ilSDGbx4sWHDh1SPoHSV6lSZdu2bZ7vjFXQw7lz5+bLl8/Hx4dc
ULt27R07dmhHqiUkJCQyF3bv3p0nT5758+cbHBm4du2ac1O8Ll26NGnSpFev
Xpn4Ru/x48fvvvsuzVq0+ezZM/pp1l08CbRAKqTQ4KFmz559//59D9zUaZ0q
+P333xs3bqzl0qj7/Pnz0BjXOpi54bR4kR5E2s/P7+jRo2npY4zjxo3Lnj37
li1blAu8SrxiyVt8OpYtW/bHH39kdI/+H7x5jgfmERYWtmDBgrT0CHD8+PGu
Xbu2aNHi3r17yjUIc86cOX369ImNje3YsePKlSvFy0SeS4l+XDN27Fge8OOP
P65Xr17Dhg0rVaq0fv1600d9UTSG58TbTDFuv2fPHozZ82PR3uYvEhISrw0I
47Vq1SLq2h1IIfR9/vnnn3zyCcTJiRsJLm3u1Di6lJiYCNn48ssv1Z+TU+Li
4jZs2OCBcP3kyRPEMm3atMWLF1+9etXFO5JiyJWlSpXq1KnThx9+eP36dbP6
aRUu6lSBLS4t2h82bJiHXzH/+uuvO3fufPHihSdvqoXr4n306NGZM2eE18AE
evTo4e/vf+HCBXX77hMv3cazIGYDBgyAJGvliZxXrVqFC4hf0T4sGqZXv379
cuXK/etf/3JHr5yDE1z64cOHX331FcTvxo0bbp0FB3kuXLhwcnIyAp87d+7C
hQupo7t37/7TTz+JC3744YcmTZqgBaFo4kyFChXWrl2LYUCwsRDlss8++ww1
ffPNN+vWraMq79mzJ5+Y23k6SXSlfSdincKlTeyPQ3fPkHAkISHx2oPwMmPG
jLx58x4+fFj/yq+//pos6fQaFrj0hAkTdu3aNXr06HHjxh07dszFV3vkkX37
9kVFRcEugoKCbt26pf4r+b1Lly67d+925Rb6IDuT8jp06EA6S0lJSUpKoiqJ
iIhwZVEJMoG6wL48897TRZ0qsMWl09LVRKExZswYqysTMYMRI0aEh4dv27ZN
nZrhkBMnToyOjm7ZsiVMxqHOILqxY8cWK1Ysw0cgzRKvwJEjR4oXLz59+nR1
Qeom8XIxvvPOO++IdQ2hoaHZs2cvU6bM6tWrxbAe9927dy8ED0antVW4HN/N
vFwa8gnl48EpXpB5lixZ8ufPL14HuMNi582bx122b99ObDx9+rTFXyF+bdq0
QQXK2w2epX379i1atLhz586oUaOUSW5wVBSk/i50umzZslbXwTkHzOzTTz+l
YnKOnwsuvXnz5qVLl0LIiZ/wf7P6ZgT6/mIKcAcKjd69e/fv33/Af8Gvy5Yt
E55y8eJFPunXr5/y1759+yKNn3/+2U1dkpCQ8ACuXr1KJI+JidEZNCYB1atX
jzzi9F0IILVr1964cSN0i/gJ9Ro/frzTAY1swtchrqQwgrOvr++kSZMsxklO
njzZoEGDmzdvOt1nHRAVExMTZ82apc4pv/zyS9euXaEfTtMnT3Jp13WqQIdL
p6WLpV27duQXi88xA/IyDKF79+6QE8UY4AYwhOvXryPGatWqkbgdGgGDjUCZ
ChQooKUlnoRZ4sXAIB4wtIIFC2JyWic1Xbw4F4y9U6dO6tci+FGvXr1g1Dlz
5qxUqRKlSlhYmDJCboHMzqWvXLmi0EWo7JIlSz744AMe1h0WSyM0TgTLly8f
0WPBggUWctu5c2euXLnmz5+vfIINfPTRR8HBwXBR5ZUcEYNynqCn/i7m5+/v
f/DgQYOdsQsCOKboCuujk61atTp37hxPkZKSUrVq1X379pnVPSOw5S8m4sGD
BwcOHIAhU4Wh1gkTJlDmPHz4UPwVi0JNKNTPz48LOnfuTHFx6dKl128/EwmJ
Nwq4OZmxbNmytoYIiPaDBg2KjY115V3hixcvlGACtmzZAjdwLoqSp8hulStX
FscBE7gqVKgAr7Zg5oSmIUOGDBw40B1DEIS+kJCQxYsXW8iEwiQgIACe7xwZ
9hiXNkWnCvS5dFr6tPxatWqp53+CL774Yu/evffv30d9aolxcXJyclq6MGEC
Yh6pQfzxxx8QEjIU9COjXiWnmS3etHTDgKBi8zSrfUNtrnhRYmpqqlWvIUSs
XbsWGnD27FkdE83sXBoiNGDAAO3EWndYLPQbVjxs2DAi5MWLF2HppUuXVooU
8ZLFojDkwxEjRuTIkYPgpkwf4ofRo0c/evRI3fjy5cuLFi1KsDLeHx3w4JgZ
3N6VRnheZSAd7/jwww8JpB7ess+qv5gLdISFEIjat29vNSqeOHECmo12HF1K
LCHxJuDgwYP4aWbZ4Yd+wmlJMQT/PHnyLFu2zOpleH1QUNC5c+dMvDVZAy4N
MXCiGCfwVq1aNS4uTuQyqMX777/fsWNHbfY/f/48WU+9sN0sLF261MfHp27d
ur/88ov6c8Im8qxYsaJzRMJjXNpcndrl0lzQsmVLcr32uVavXg3DsTqGvGnT
pkKFClkMtekDe46Ojn777bezZcu2fv1641+0gIuO7A6XSUunRr6+vlOnTrUQ
o8fEaxAmcmmzIqpDXBoqiwmhRKt/NVekXFy4cGFYuviVKoYWaIeqcNWqVYSX
kSNHlixZ8u7du8pXBE+DtKtp2O3bt3v37q1e9sLPBMZOnTqZsggUFcTHx+Pj
5k42njNnTs6cOV3k545Cx1/MAjJv1qwZXHrGjBlWrZeClAxSv379N2EXHQkJ
hyAW2g8ZMiRTvKyht6Tm9957j4D8888/16xZMywsTBsnxftEimtXVnLRfufO
ndWrYLgpGYQPnRi4O3r0KLlMCb80/u6775JxtIGRPsOxBwwYYPrSIVLblClT
lFU/ChBXTEwMhcn+/fudaNYzXNoUnaphl0sDKrXg4GD1u4m09IzTqlWrFi1a
aFfn0UlEQdFkfMwK8tarVy+IUL169chipGlHH0TARUc2S7wIZ926deoNpcVY
FhWcdh9ID4jXOMzi0iZGVGGi1O9Gdn5GvJAc6JZWzqaLdMGCBcWLF1em0xw7
doxfKf+JLYmJiUhg3759cOlTp06JCyBmR44cadCgQdGiRW/evPngwQPRk5SU
FIK5MgT9119/QX1DQkLMWr/8448/1qhRY/Hixa408u233zZs2FB9EACUkrLX
rTMurMKqv5iIO3fuoLW8efNaHckRE3uIUdi23BJQQsICmYhLwy1nz55drlw5
MYRCfJ46dWr+/PmPHz9uceW9e/fKly+/cOFCV253+/btwMBAEo0ydCxYAeJy
IpIcPHiQMKXw2LNnz9L4gQMHrF5Mz3lMIpvTnXcIPM7gwYN9fHxWrFjh3Nc9
wKVN0akaRrg01RNa27Bhg/rD06dPU1JR01EQkd3UbxagMZDGyMhIg3UQEps+
ffrq1avpQ9u2bclTVssrg0254shmiRc7pyhr1KiRUuHinngNotbWvO4Wr0Pw
Hi5NCzx47dq1S5QokTVrVqyiQIEC1atXHzhwoP544JIlS3x9faGjFrc2V6Q0
TqUPaVeY+bNnz8LDw3v27EkYEZPuaC0pKQnnSkhIGDt2LKX6559/TkCDTvNd
wsWTJ0/E8o3169f3799/8uTJlPndunWj87TmmLxsg5tiYC5OSFi1ahUlwPbt
28Wv5J2JEyf6+flhMCZ00RFY9RcTQWmTM2fOChUqWF2K/ujRoypVqmTPnn3z
5s1u6oCEROZFZuHSf/75J/0sUqSIepuLK1euFCtWbNiwYRb048svv+Rz7QCs
Q3jx4sX48eOVMRNuMWHChIoVKzq30wKBqE6dOuKtKImGPkdFRdkaA6TnRG9l
S15zwYPA5EmsMOfLly+TGuhPr169SNmkP+ca9ACXNkWnaohpNk2bNtV5mwx1
EZtCqJnGggULyGiYAenVYiNcDNLf33/RokUG+3Du3DmIBHwG7+vXrx8qsLiX
cbjoyGaJlwoUiSlrChDOtGnTcuTIQb2gfWvsbvE6BO/h0k6DzsN2qFy+/vpr
9eemixSLtfAaNHj37l2LGWsE7Vu3bqn5PxdAtsVlUHFo9uPHj5EY5M30HSEE
58fHXZyQcPPmzTFjxiiV4NOnT+vXr//hhx86d8aTK7DqL2YBq1AmS1vdzloU
xViLu3c9lZDIjDAl8j979mzTpk2DBw9unA53zGb86quvChUqZJEIiMnENNKE
+pQTnmj48OGQ3h9//NFqUwRDYmOJEiV8fX1r1ap14MABdZv8zL3ETD/C/kcf
fbR06dL9+/fDFRs0aKB9NOOtHTt2rFWrVlOnTqVNgrzO8As9p/9OD1HaAiqG
zL/33nvR0dE7d+48ceIEPGf69Ok//fQTWsuaNavF5lQG4QEubVenAjzgoUOH
Bg4cyOO8939BITN58mSRg0iOffv2rVevHhwvV65cZEZ4rFgTqm0QWdWsWVOd
6JFbtWrVRo8eHR8fb/HSfOPGjVip8mpbH7ARLEFsmsEDfvrppyQyLMS5HO2K
IxsUb1r6Rh9UlG3atMHU1eLl165duwoiyhNh3vPnzz98+PCsWbPKlSs3Z84c
q6sCTRQv2X/z5s3K5sYKHj58iD1Qg+fNm7dbt24678czO5fGqnFDRIcV8SDq
BX2uWCwugx4nTpzYrl07nCgxMdGsDt+5c4dm3bcJ9pMnT0JCQjAwW4o4f/58
hw4d8uTJ4+fnFxkZaXHIFMSVpIYzir0WBw0aRCRPTk5u3bp1nz59tJZmPBE4
Dav+YhaUydJkBKuTpZOSkuRkaQkJW3Ax8hMJFy9eXKxYsYiIiK+//ppU5abD
JohpVmf08fnVq1fVCYKs2rZt27CwMKvjjffu3atdu7Z4bUqG5YfChQur39Zx
AaxGaRAOQKIhqJ45c0bLBxxtDXHduHFDOSfCFug5/W/RooWJwvztt98gFaVK
lVLPhRMHASxatCgwMDB37tzqOYHG4QEura9TAVIzEkMFBQsWrFChgjj5HZ4g
yB51EDWREz2cO3cuOrV4TUwdpKWdeFBsbGz16tW1edYqtm3bNn78eIVLQD7p
cGhoqMXKUINwxZGNiBdThEXnSEdQUFC+fPnobfbs2WvUqIF48QLIhlIe4inw
Nyrfffv26ed9s8SLMMVMXfWHt27dqlq1akBAwAcffADVz58/P2HKlk9lXi7N
jXBhJEMEpvxHO9TFFvtyOGexqampMDdkSJVN4IJEmejje/bscWWlrV1QXPj7
+9tagJCSkkKggBwWL14cOo0xv//++2pb3blz55o1axRWiQAR79atW4kzWqrp
aCJwGlb9xRSIydK5cuXasmXLIw0ePHjQqVMnnmvo0KFysrSEhBYupuARI0aQ
T6EB3uNfxMOQkBCyp3bEA6rQrVu3Vq1aKWt5rl271rRpU6KEyLBi57pdu3YZ
uZG5ralBz7t3727i+AMVR3R0dN68ebVrzyl/2rRpgxKhHM5NX/EAl9bRqYBg
TVDo/fv3i0x3+fJlSEXFihVdOYYmLX2XAziYzrYqd+/ehWlAgOEq9EE748gq
SE9RUVHqKfGbN29GC0YGh63CFUe2K17secCAAVRbM2bMEHwbWhUZGZkzZ05l
HqlzMEW89D8uLs6CEFI84olcrxAYmCG80dYhIJmUS3O7WbNmwYLEKzOxHx2c
p2XLlrYqI4MWu3v3bthm+/bttYsZTcGFCxcshoLNxcGDBzGtjRs3av9EoK5S
pQqCEkfJoCnMuEyZMpTb4gLMm9RmcJWfKYkAFcycObNOnTq0Y3GGlxp2/cVp
kBpwZ7g0pXGoBsQHX19fApSyeYuEhIQarkR+AjLORUr1/MwxHRAAy5cvHxsb
q32ibdu2QSkt1kCRUMLDw8XmqHwXURgcGDS3NTXE4npiu/FcQxifOHEi37K6
GdfKlSvRVO/evbVD63Svbt26JF9lvRg5CGayb98+g9zYA1xaR6dp6YkP5lCq
VCmLYzjmzp2bI0cOF8nenj178uXLZ2u5Df0ZPHgwTObcuXN0LywszAh1F3lz
1apVak0dOHAgT548xYsXd27NqSuOrC9eOik2AVu0aJG6w5cuXSpUqFD//v1d
IY2miHfv3r3Lli2zMPu1a9daHEXNzzExMbYW/HoJl54yZUo9XYwaNUp9PX6K
AKHTyuOfPn26QIECtooygyK9ceMG8adcuXIZfhCn09i6dSu0U3uMLDFw6NCh
2gn8SJJyUlRe8N558+YZ3NXQrERAlQdTrVChwrfffmvrGn1/0UI/LyhQdpaG
/1udLE2lhjCLFSvm7snSaIfyh/quZ8+e06ZNc1MdJyHhNHAWYmxycvKW/wuc
F/ehFsY9Lf7ExampqbYywk8//VSjRg2yv4dPgLKLu3fvkimGDx9uQe1evHiB
h165ckX7lfXr1y9evJhQQ/79/PPPjdzF3NYsQM9HjhwJrTJ+WC3qSEhIQB3a
Vd6PHj2qWrUqXOirr77SflGMSRJFSeIi2KJxyECuXLl27NhhsLd2ufTt27dn
zJjxmWEkJSWphxlt6VRgxYoVVAqJiYkWyYKY7Ovr6+KOWIcOHfLz89OZSY4N
kIYgaUuWLDE4k/C7775r0aJFSkrKERWWL1+eN2/eggUL6u/wbLojp9kTL9mT
v1KtWLCFe/fuBQYGckerydcgXBcvDBm2YOGJT58+5XEsyCQSiI+P1277I+Ao
l3aHItLSGeAYXajnRSAQSuC3335bzYdhbkFBQWXLlrVV1tkVKY9GcMvsL/TX
rVsH7dSen0iZALPVDtpjxnwO+SS2E351BofVMDcRwLdr166tw6Xt+osFdPKC
GkijadOmaFxdlKmxYMECHx+fBg0auHWyNI1/+umn5CmsDlKNOrBS952cLiHh
BCi3SS4NGzZsoEGJEiWoN+vXr2/xORfDkWz5zt69e3Pnzp0jR46KFStW+i9I
uC4ur3Add+7cgYWOGjXKIgvw6+PHj60GCsImLgyrJIRaHMJlC+a2pm2cpOnv
7291QZwtLF26tGjRotpX2Nu2bUNN5cuXtzrKfe3aNb4FhVPv4SB2SOvatasR
mmSES2/atAmimMUwAgIC1AnFlk7T/juubvUEzLlz57p4+kla+sbgJK+VK1e6
0ogaYr4EdKvX/0VERAT1Cz6lX5ya7shpuuIVp11QqqBBiz+JcWmMxJXlY66L
98mTJ3FxcRYreZGhclC1AsGRbJ0c5yiXdociHAXMCreCb6j5uTgWqlq1agbn
7WvBF6tXr44bli5dWontVNxWi3GvxapVqzCtw4cPW3yOGdha9w3hpN45e/bs
tGnTDL5WMDcR2OXSTviLrbyghrKztFZcaenlao8ePbAHgxPYnAMtz58/Xz0T
BnXgkh4+X1JCwjk4/UZyyZIlFKrdunVz30JsBfB2bgS7I8KT2fWPxCJXlipV
yqEpB2IJ9o4dO+bNm+d6rHC9NTEuxFMYPzFWnGxbp04dizeJ4uhewmDHjh2t
EuPVq1f7+vp26dJFPVFHLEqCzOtHYOUW7p7joaNTSoACBQrA6CyGLxBIVFRU
vnz5dBKTEezfvz9//vxaJuk0tm/fjnloB1vItpUrV0YXzt3LlakFOuIV23AF
BgZqS5UtW7bAscePH+/KAX+ui5fiHS6tlic/z549WzvZ9dy5c2PHjrUVr7xk
jodxIPYpU6ZgMBZTgimZ4cBt27Z1eurdzZs3YV8WBxdmOmBUuL9D66mPHz+e
mJg4a9YsU7aiciIR2OXSjvqLrbxgATFZOigoyOoUcVGduXuy9JUrVyZMmKAY
LRIbPXp0kyZNzD2zUkLCTXA68s+ZMweG5tYjTQXE61r+JxoQ6MiS+oOlgpP0
6dPH+BPhvxBOCKGym7QrcL01et6/f3+HlqE9efIEJqA935xYGhkZiaYmTpyo
5TxUJeRcPz8/7STSY8eO8fnUqVPtMiUPcGkdnW7dupUgrz30FlKEAGvVqiWW
FzkNqC/Jy+B0F7sgK5HarM5BFadmuLLLt9MUTke8Yiq1+uwVAbF5LxYi9vRz
Gq6L98GDB/369VNTBUoDKm6LaoX+R0dH25rgkeatXJpu29p4hPbxdwpJix3t
xD7AtnY2M4KLFy8WLFjw3Xffdcfea46Cxye2iE0X7e6ApMauXbswrW3bthn/
yo0bN2JiYkaOHOn6hhtpTiUCu1zaUX+xlRfUEBZL5OnQoYP+ZGnkY/C+jgJb
Xbx4sXpNJUZYpUoVh9QnIZGBcDryU6LCYcaOHesBLh0eHm5wz9609OxD6m/d
urXxaZyk3e7du/fq1cuUPehcb40W2rVrpyUwUOthw4aJ7annz5+P8JVJIGfO
nCH9iaPH+Ct3FwOJgvP4+PgsW7ZMeyModN68eWlQO0z6/Pnzxo0bG8mnHuDS
OjrdvHlzjhw5tOf5rl69OleuXM6d5KjG8uXL7c5hNgjkk5CQsHLlSqskh0dr
06YNGc05n3KFwumI9/79+2XKlOncubPFcO7NmzdLlSqls8WcQbguXupBuqFe
yEn+xTvUQoYaYaLqHQi18CoujUYwFbw4NjYWDlmjRg2eyGKcmRsNHTq0cOHC
6uVgPPWsWbP8/f0t1uE6BKH09957z8U61BRAL9ELpcHRo0cdmpn/3XffYVoO
LZe4c+eO2ADQ8W5agTYRQEoJqsQr9eG5d+/epVLYunVrmgEubdVfuNGiRYuo
KInkn376KbLauXOnsH9beUENZbK0dkRCYOHChbYmS/MUEydOhISLl8W4z6hR
o+rUqaOeDsSf5syZQ6mOMXfs2JEAKNwQbSo+wjXEve+//x4/rVevXsOGDStV
qmRxnISEhDfD6chP2ClbtmyXLl3cvTSAjpEywsLCDA6SiLdaDg2qkKTwcbNC
qOutPXv2jETGU6hT/6VLl3gowhoqIzi3b9++UKFCyojH0qVLs2XLNnz4cO6O
xAYOHNijRw+RfOGZVD3acaonT57UrVu3Zs2attYoEZ/z5MmTkpKi31sPcGkd
nZIxkYPFwW2QgerVq0NCXBxfEkeolCtXzsWN9QROnDjRrVs3W3M10RrphozW
t29f585bcZrC6YgXUtekSRNotprI4fKkRdzfxX1uzRIvibtEiRJJSUl0jGch
XKj3fsRCeITIyEj9l8Xew6URNWLZvn27cFj+nz17dtasWfFui2CLa2P86gkJ
sF+YDNpxZeodJAdxlSxZ0rktZcyFXXppCxgVpmV1FYAtXLt2jcBrcNWhXVhN
BIcPH4bcqidLwPaLFCki6LH+w1r1F6wa56XaFVteLFmyhESgHKmjkxcUKJOl
rW61p0yWjouLs7pcBXsTO0Tt2bNHrBxs2bKl8roK6o73QeOF9xExKlSosHbt
WjoDwVYW6XDZZ599Rl7DDbFqegL/t9iHR0LCm+F05CfCL1iwoGjRokePHlU+
pG5NTU013f4vXLhQrFixmJgYg+MSRKfixYsbfyFFFKJgNyuEut4a5flbb72l
5oe0GZYOEZEE+VEGjsSvISEh4h2oWLpYunRpsdgQgkSlT4hWvyHlixEREVWr
VrUlJUQ9duxYSDgxTb9c8swZ4rZ0Sl5A2q1atVKY0qNHj9q2bUut4fTaKwU8
ONmwTZs2Lo6+4ixkB5IgFMWWMHmQDz74gJylf6y5LbhI4XRcZsOGDaVKlYKR
il8xNuqyihUr6syXMAizxMsjz5s3L3fu3AEBAUiYvlFyQqdnzZolhgHhEnZF
6j1c+sqVK5ArIp4i88uXL8OZUdDNmzfVV2LhMBlIjrgXt4afUCAb3BhZB+fP
n0fp48ePV5yaW5w+fdrzI9VOc2kcCtNyaN44yQu26cq+NGpoEwFxICEhQb2z
HJV1gwYNFH6r/7Baf6FBnJEsrJhKcnIypiKSsn5eUFpYs2YNcd7W9Pjbt2/D
fiHk2nd/af89g37GjBkzZ86EIVukfmIyvQ0NDVXMBtkSmVu0aAGBp8xRtryD
h1sUHQRMqnUjC3YkJLwBLh49vHXrVjyFFvAj/BTeRThSLiA+9O/fn0SmNP71
11/ziZjcCMfr168fjk86UJ+YNmjQIMpYxSuJRSNHjqxevXrOnDn1N/ZRQMzH
wcVbMyPgFn379jVrjYPrrX355ZewAiU8gh07duTKlUvZ9k1sZKccjysmxSE0
8Ssy7Ny5c5kyZZThCzHeQpJduXLlvn37CH1VqlRB+LZyLsQDkxg6dGjv3r1L
lCihv6eoZ7i0jk4J1GRA8aI/Pj6eigNBmTJdR0y6trVPlEFA6gIDA5UtSlCE
xTR43KFr1644gnJNnjx5SK8ObfjgIoXTES8NYjYNGzacO3cu9V2HDh2wNOOr
YnVgingVnDlzBqYBc1bECEMIDw9XRyQdeA+X/uGHH2AvRAAIrfhEcGmrB97B
rnlqYia6g1TjBWYNJuP17dq1I6RDctARRcry5cs9P07oNJfGqKZOnYokjb/1
gFUmJSWZNa9AmwiIzF26dFEmS3Ajbge5VSbk6D+s1l/EJ82bNxcv4MRKc2Wh
jX5ewIUJlQULFhTO4uPjw89EJ2F1XIw5cbGy/xK1Kr9azJ4iI/v6+pKb6tWr
N2HCBHxQ/VdCH3/iK8on9OSjjz4KDg6ePXu2stMO3UYOFus9jx07RkTSbmko
IeGdcD3y0wLRG8un2rWIQuLlkTK7APfs1q2behownPDdd9+leFdCNKyPJEKR
K76yd+9emDZpjs9pqn79+kY2byewEF7wWYMPtWXLlpiYGLPShIutIU/U0axZ
M0VK4iyzAgUKKG/EoNkkViK/+JVUW6RIEWWjpEePHkGVaUE9w4G65quvvqKu
ofEVK1boDNoj4ah08HWx6VZCQoL+Pv8e4NJ2dUo5dvz48UuXLpmY7jG/UqVK
mTJZ2t1w0ZHtivfPP/8kyZLvTDw9wXTxiuV4jRs33r17N711aIaP93DptHRv
VQ+kU0rnzJkT5mNrO2gYNbwF4zfdBylUcSsiTEZt8+s0l0777+i6wZNniRui
JHHiRlahTQQiMiu7dqekpMBO1QsJ9R9W6y9iizxlhTgpA+OHMAtlGckLrkBs
91SjRo3Hjx/Dz0kTZKUFCxaIzihpizpd+Ypg+xS8AwcOVLrBD6NHj7bYNpDC
rWjRoqbsBiAh4QFg9uIQDXcQIcJ7oUKFlNKSYpmSWb1HJfU43qcsD+Hz+Pj4
8uXLi/diV65cqVChgtjxiYjUp0+ft956y+DxJQSQqlWrGnnXSUCAB86ZM8eU
4QjXWyObE53UL7zEMYjqaXKQYQRLpjiWDjg2hYYiZzhzvnz5rB6eaxdPnjwJ
Dw9v3bq1eCsntkQLDQ3V2VLJM1w6zRGdmgJBzLp27epVx3raguuO/BqIl5xe
rVq1CRMmOOF9ZnFp0yPqixcvkBKk6MiRI6Y0mLlglV5u2rTp/fffV3Yexmh7
9uyp5mwCmBbEUv2WUwdwuSZNmijvAlyE1URAVULc/uKLL/iQ5FizZk2ou/oC
HS5t1V/27NmTP39+SLv4lbwZEBAwa9YsnoUMQuVrVl6wCrG3vzIURpVdr169
Hj16wOR5uv/5n/8ZOXKkxdQRccCiv7+/+g3L7du3e/fura4T+Rn9durUyYnZ
bhISGQV82R0sSIzPqF+xwfosll2ItTNKDPzuu+9Kly4t3iIJAkl2E3O9+GTa
tGnGT1j++eefqdCtbl6hvTIsLMzqsgsn4Hpr1ONEJIu5vggKSYo6gtBEEK5U
qdL9+/cnT558/fp1Iud7770nDssmrRCNqfqdoChoqlGjRnxd/VZ04cKFefPm
3b9/v61veYxLG9epKUCwcEtbR057IVx05NdAvNCGAgUKKNTCIZjFpdNMiqg0
gohwalgiHM+UHY8zI7T0UsyUUL/fXL9+vbJ8zwJHjx6tUaPGtWvX7N7o8OHD
xle424XVRJCUlFSsWDE+jIuLg+RrZ+zocGmr/gILDQoKElMfCfgE4Zw5c+5M
B5zZrLxgC/Sfx1myZIn49enTp7Vq1RoxYgQ/kPqRwL59++DSyh5cmDT1YIMG
DYoWLXrz5k2yjBiaTklJoZ/KEDT6jY+PDwkJcfd55RISmQJip5327duLpRz4
EUW6en2TmDpVvXp1wRthhjj70KFDxfX4I/6lbIwpjtV2aHeOXbt2NWzY0O4W
zefPnw8NDTVlowbXWyP6UY9rzxcj5iAKSn5iFMSV4BkcHDxkyBCC86tXr5At
AbN169bTp0+PiIhISEhwYvmM2D2vcuXKFhFMzN6kWVtDBB7j0mmGdeo6kMbw
4cNjY2PfqBNsM7V4xTtlqnXnhhZN5NKmQAzuzZs3r0+fPsSElStXvlGmqEBL
L7HPSpUqKUfei8AFYba6+zThkTg5bNgw/Sk3YlVgv379zJohpk0EdKBv3770
HCuFXlqNlra4tC1/odvr1q2DtE+aNAkhwJ+bN29OmuBiUokpeUEH5KnAwEBl
sjdPNHPmTAIIuUDs/oQwyVB0iVvz1DExMZ9//vmdO3eg0/SWrIHK+FZiYiLV
UP/+/SdPnjxlypRu3brBpW3tdyQh8aaBkpmaVHnfKhY+1KtXD5K8du1a4qHY
Tke8IeLiVq1aEfEUwiamUqtnghExlPhpBNxxzJgxkE/9KLpp06aoqCizgowr
rdHPTz/9lJLBVtIkPCqT0hGIBedBdPBeV2ZpohqrSyaJeFRAtlr2JJc2qFPX
sX///pYtW5pVYWUWZGrxijfOVapUMXheswW8jUsrwN9XrFiRPXt26Mcb+Mpb
Sy/RVKFChZSJzWLURb3oxgLotE2bNjpv1tLSWR9El8RkVredSwS2uLS+v/z+
+++3bt0S9+JByBFqUbieF2yBcGGxrwu2irQtaDAdo3vqKRx8kS6JNEfnodmP
Hz8mffCA3nA8kISEV0Gsl6HAFNyPX/Ply0e8wtPHjx+Pg1++fLlo0aJz585d
tWpV06ZNiY1qMibmm3G98Ljdu3dDrS22hLIL/Jdqd8OGDTrzJymuv/76a2ef
0rTW6CHhl96auLbLMxBcOiIi4siRIydPnnRo9wknYESnLoLCoVOnTmbNnMxc
yLziJQu3bduWgOPQ0CLWSyA6evTo/Pnzg4ODvZBLp6UX0fQNOm3iZNfMAi29
nDNnTkBAgJILLl68WKRIEWWmgVVgbB07dtSZMwDfmz17tnqzOBfhXCKwyqVf
73B0586diRMnyn2kJSSsQrxvJfhXqFBhTDomTZo0YcIEAsWQIUPEpC/Ic/Hi
xfv165ecnGx1vIVatVevXvA0vhseHq7sYuEQoKaJiYneP8D48OFDyopMR6TT
0nU9ZcqUEiVKFCtWrGLFisZPqHQabtUptRt5+U1eP/5Giff333/v0qVL0XQ0
adLE9T3JXcfTp0+hYeqevHjxonnz5lmyZFG2aHhzYEEvxftN9WrotWvXFixY
MDU19fjx44cPH7bVDhUThufl0rM6Odyr/MV07NmzZ/369RndCwkJLwUZKiws
rH379gSHmzdvKi99oMcO0cV//vkHknn79m15lqiEhMRrj1evXkVGRkKblYOZ
0tIJVbt27fiQ/72cDZoOC3opNoOqW7euyCP37t0LCQmpUKECP0ybNu3KlSsZ
2lnnQYKjFkhKSipZsqRzGwBmUly4cMHE1wESEq8ZYL9vvfXWjBkzJAeWkJCQ
MAgx7gpt7tmzp7LlAnwyNDSUDydNmvSmRVQLLn3s2DE/Pz9/f/9evXpNmTJl
8ODB69atCw4OFhvQZd5C4++//166dGmHDh0+/PBDg/u+SkhIvPb46quvChUq
pPPGTUJCQkJCix07dkRFRanf3x09ejRfvnyVK1e2esrz6w01lxa7bQQEBFy/
fv3evXv3798XS2x+//33H3/88U2rMiQkJF57bNq0qX379haLfCUkJCQk9AE/
XLduXYcOHWbPnn348OG1a9eWL18+LCzMyCbJrx/UXPqvv/6KiIhQ7ywtISEh
ISEhISEhoQUccvv27VOmTJk/f/6pU6fe2I0O1Fz6X//6V8WKFUeNGuWB7Tcl
JCQkJCQkJCQkMjvg0tWrV4+Li0tOTr58+XKTJk2++eabjO6UhISEhISEhISE
RCbAy5cv4+Pj27dvHxsbKycNSkhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhIvDb4/wDb+mc9
     "], {{0, 106.}, {964., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{671.9999999999995, Automatic},
   ImageSizeRaw->{964., 106.},
   PlotRange->{{0, 964.}, {0, 106.}}]], "Input",ExpressionUUID->
  "8ae425fd-2277-4de4-9ea8-f779afab1ac4"],
 ", FieldNumber = 13"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 
   3.7468413969638214`*^9}, {3.748965842889092*^9, 3.7489658441604424`*^9}, {
   3.7675394916634912`*^9, 3.767539491663562*^9}, {3.767539878499586*^9, 
   3.767539878665174*^9}, {3.768090016647354*^9, 3.7680900168572702`*^9}, {
   3.768090065528351*^9, 3.7680900736443768`*^9}, 3.8312224092379217`*^9, {
   3.8312225103666058`*^9, 3.8312225189495754`*^9}, {3.831222593717477*^9, 
   3.8312225937791777`*^9}, {3.8312230860362315`*^9, 3.831223086347166*^9}, {
   3.83122340849144*^9, 3.8312234088093843`*^9}, {3.831808572296279*^9, 
   3.8318085912841988`*^9}, {3.8318102596120157`*^9, 
   3.8318102598987694`*^9}, {3.831810343955014*^9, 
   3.8318103442744107`*^9}},ExpressionUUID->"ef171ea6-84aa-4dfb-ba01-\
5679b7bbcb27"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "13"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312225715423098`*^9, 
   3.8312225716225843`*^9}, {3.8312226140321136`*^9, 3.831222614108339*^9}, {
   3.8318085756652145`*^9, 3.8318085757442694`*^9}},
 CellLabel->
  "In[231]:=",ExpressionUUID->"7bbc625d-dcf0-4757-85b2-11c8c528f9e9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"mu", ",", "nu"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.831222575357247*^9, 3.831222614461128*^9, 
   3.831223506718525*^9, 3.831223540075242*^9, 3.8312236315357523`*^9, 
   3.831805885217389*^9, 3.8318086124955506`*^9, 3.831819115541817*^9, 
   3.831839782603544*^9, 3.832947495217971*^9, 3.8329617799100375`*^9, 
   3.8458268700932417`*^9, 3.845852463107753*^9, 3.845857073302329*^9, 
   3.8459196191549926`*^9, 3.8460065718816524`*^9, 3.8460998826347094`*^9, 
   3.8474704443093777`*^9, 3.8517006296493487`*^9, 3.8539754461468782`*^9, 
   3.854977403299992*^9, 3.854989259535767*^9, 3.8549998965443687`*^9, 
   3.8551652444896154`*^9, 3.8551823141979485`*^9, 3.8551858586940193`*^9, 
   3.8553306349027133`*^9, 3.8553398402012935`*^9, 3.855343177717539*^9, 
   3.8553440114630795`*^9, 3.855352738961606*^9, 3.855449603676179*^9, 
   3.8555076056886168`*^9, 3.855508402117897*^9, 3.855512889919648*^9, 
   3.855533133011632*^9, 3.8555333214710093`*^9, 3.855578915310348*^9, 
   3.8555932880285482`*^9, 3.8557506004070745`*^9},
 CellLabel->
  "Out[232]=",ExpressionUUID->"fdd7a660-b039-41ca-a1f6-f066d5e10acb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Epsilon]downdowndownup", "[", 
             RowBox[{"mu", ",", "nu", ",", "de", ",", "ld"}], "]"}], 
            RowBox[{
             RowBox[{"\[Gamma]down", "[", "de", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Bt", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", 
         RowBox[{
          FractionBox["1", "2"], 
          RowBox[{
           RowBox[{"CommuteGammastdowndown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{
          FractionBox["1", "2"], "I", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammastdowndown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Epsilon]downdowndownup", "[", 
          RowBox[{"mu", ",", "nu", ",", "de", ",", "ld"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]down", "[", "de", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"sigma", "[", "1", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
             RowBox[{"At", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
            " ", 
            RowBox[{
             RowBox[{
              RowBox[{"sigma", "[", "3", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
             RowBox[{"\[CurlyPhi]", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}], "  ", "+", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Epsilon]", "[", 
              RowBox[{"kp", ",", "ap", ",", "bt", ",", "mu"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], "-", 
            RowBox[{
             RowBox[{"\[Epsilon]", "[", 
              RowBox[{"kp", ",", "ap", ",", "bt", ",", "nu"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{
           RowBox[{"Hamnup", "[", 
            RowBox[{"kp", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, 3.831222631982333*^9, {
   3.8312226673263197`*^9, 3.8312226704612937`*^9}, {3.8312229112856684`*^9, 
   3.8312229258835363`*^9}, {3.831223098749104*^9, 3.831223337077551*^9}, {
   3.8312234382368727`*^9, 3.8312234564921618`*^9}, {3.831223521847991*^9, 
   3.831223522905406*^9}, {3.8312236265577116`*^9, 3.8312236269345393`*^9}, {
   3.8318086421695127`*^9, 3.8318088346176443`*^9}, {3.8318088901292653`*^9, 
   3.8318089635216427`*^9}, {3.8318089968015413`*^9, 3.831809012048743*^9}, {
   3.831809097905634*^9, 3.8318091816017246`*^9}, {3.8318099116005096`*^9, 
   3.831809919481202*^9}, {3.831810013274686*^9, 3.831810076144494*^9}, {
   3.8318101836510143`*^9, 3.8318101918823986`*^9}},
 CellLabel->
  "In[233]:=",ExpressionUUID->"8183111f-821d-40bd-9c1f-64c8d0ef6172"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], 
   " ", "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.738583987798254*^9}, {3.746795246915931*^9, 
   3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, {
   3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 
   3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, {
   3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 
   3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 
   3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 
   3.747486056829548*^9, {3.7493830494673615`*^9, 3.749383050607041*^9}, {
   3.749383130633822*^9, 3.7493831323038206`*^9}, {3.7675393683993883`*^9, 
   3.767539368965523*^9}, {3.8312227380231514`*^9, 3.8312228069258747`*^9}, 
   3.8312228644057198`*^9, {3.8312234885720816`*^9, 3.831223493369345*^9}, {
   3.8318099510721807`*^9, 3.831809962912549*^9}, {3.831810202896742*^9, 
   3.831810203330476*^9}},
 CellLabel->
  "In[234]:=",ExpressionUUID->"dc92d93f-e2fb-48e5-99de-3f10952f3408"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.751405324826857*^9, 3.751566887006461*^9, 3.751727185490629*^9, 
   3.751734096141694*^9, 3.751737168081163*^9, 3.752250147466023*^9, 
   3.752256220811919*^9, 3.7522656173424673`*^9, 3.7523217125262628`*^9, 
   3.752324518723379*^9, 3.7524081675889006`*^9, 3.7524944970227137`*^9, 
   3.7524967017587833`*^9, 3.7524995173695784`*^9, 3.7525365544443827`*^9, 
   3.752537933700184*^9, 3.8312235071799235`*^9, 3.831223540368003*^9, 
   3.831223631796571*^9, 3.8318058853440533`*^9, {3.8318099447440248`*^9, 
   3.831809963929656*^9}, {3.8318100189542503`*^9, 3.8318100804613657`*^9}, {
   3.8318101988369136`*^9, 3.8318102040456266`*^9}, 3.831810406867548*^9, 
   3.831819116154368*^9, 3.8318397832598124`*^9, 3.8329474958896894`*^9, 
   3.8329617805610914`*^9, 3.84582687086133*^9, 3.8458524638446836`*^9, 
   3.845857074045499*^9, 3.845919619904818*^9, 3.8460065726174917`*^9, 
   3.8460998834235334`*^9, 3.8474704450677495`*^9, 3.8517006303992877`*^9, 
   3.853975446876051*^9, 3.8549774042262535`*^9, 3.854989260234199*^9, 
   3.8549998972937183`*^9, 3.855165245288578*^9, 3.855182314982546*^9, 
   3.8551858595156097`*^9, 3.855330635672432*^9, 3.855339840946438*^9, 
   3.8553431785131273`*^9, 3.8553440122686424`*^9, 3.855352739703293*^9, 
   3.855449604386899*^9, 3.8555076063801203`*^9, 3.85550840283167*^9, 
   3.8555128906787786`*^9, 3.8555332122910643`*^9, 3.8555333222107077`*^9, 
   3.855578916093082*^9, 3.855593288802967*^9, 3.855750601149725*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"3a7699fd-fff7-4296-8d63-4ce6577d19a0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.8318190968194513`*^9, 3.8318191112054167`*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"4a641855-97c1-470e-a83d-57c5de07be78"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQd0VFXb960UEaSXUELvAeklIB0x1BB6C0gTSOi9E0AgdEILUSBAkB46
oSwQlA7CRyfAoglLRHxAXd6ybn29Xfl+T/a6z3vec86cOTNzZibo/q+lK8yc
2WeXq/yvva+9d4l+IzoMTPfWW2+NeZf/deg7ocno0X0ndczJPzoPHxM5aPiA
T1oOHztg0IDRdfql58P/j/8S+eN//06RkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJD4
x+PXX39NTEwcPHhw//79ExISfvvtN80DP/300+rVq3/44Qe/VE9CQsLH+M9/
/nP27NmoqKjw8PDo6OjHjx9rHvjzzz/37Nlz7tw5f9ROQkLC/5DMQeKNxl9/
/bVv374qVarUr1+/Z8+ewcHBGTNmLFas2Jo1a/7973+npLq5pKSkxo0bx8fH
4xP9XV8JCQmv4969e+3bt69QoUL37t1btmyZM2fOzJkzDx8+/LvvvhMP3L17
F2I8aNAgHJx/qyohIeF7SOYgkUZAFNa1a9c2bdrwh0s/RFBnz57drl27W7du
KR8mJyfj2hDmTJkylStXLiAgoEmTJpcvX7a71hISEmkRR44cQeV37NihuK2f
f/557ty5+fLle/vtt4v/FwkJCfg4/1ZVwkZg+UNCQmrVqoVT8EsFTpw40bBh
wzp16nzxxRd+qYCERUjmIJF2gDQuXLhw69atrsZZr1+/PnPmzO+//67/6sGD
BwRuMTExFy5ccFTsyZMnJ0+eHBkZeerUKXfqLWGKJ0+eREdHDx06NDY2Vs80
rl27FhUVFRERQRjum/poxOCvv/6Scb2Avh+8xAyvXLnCoA8ePHjPnj3eKD8l
dVh5y/fff6//ChrMezE1/P9f//qX/gFavXPnzrFjxw4fPvz+/ftequHfBtjt
9evXjx49mh7TrxH7vjO/+uqrkiVLbtmyBdvivbfQ6qVLl06bNu3OnTuar5C6
/fv3t2nThlYjh96rw98MPjALGnjCHF69esW3+DVian3KhITvwTDBNMqXL8/Y
+bsubxK+/fbb8ePHZ82a9ejRo/6uyxsD7AZeJiEhQfO5fhqfP7Zt25YnTx5c
pN6SPH/+fN68eVmyZNEX5Q1AeJo3b16pUqWePXvCuqln7dq1r1696oNXp30s
WrQoMDCwffv2BIPdu3evWrXqqlWrvOHBGXT4J4O+bt062wv3HDT5+vXr9EOR
IkUePnzo7+r4B/j3Fi1ahIeH6+kBxDIoKAjvL2QDpb548WKDBg2qVav24sUL
zcO+70wIcK1atXyQ04IYBwcH0xVPnz7VfEWrx4wZM27cOEmArSONmwUNiIAO
HDhQokQJ/N0ff/zh7+pI/K/S7dixAzphOK0h4QgY8EmTJpUqVQom7O+6vDG4
ffs2UcPdu3c1nxtO4+OScuXKBQ02LGrFihX58uXDS3qxuv8FbBwC/O67/3vN
OSEPtku9+PVPBtaDgcuWLdvbb7+dIUMGKMSuXbu8NzceFxeXN2/eNBt6vH79
umXLliEhIf/YuR00ZdasWXv37tVTuEePHk2YMEGtsC9fvqxZs2bv3r0NmYCP
O9NnBBhs2rQpc+bM8fHxms8lAXYPadwsaIDvCAgIIBL0d0XeDDx48GDu3LnT
p0+fMWPGiRMn/F2dNISTJ0+OHj26Xbt2w4YNM2Tvv//+e0JCQlQqVq1aZS/D
p7SmTZuGhoaKpHcJ2wGzKlCgQHJysv4rPGaPHj3q1Knz6tUr6wU+f/7csDSn
wK3jmL777jtfpn3euXPHcC3eG0BTLl265MaMBJ4a77N//35Ir6HXhuTcvHnT
jjr+77J4nz59YCmUaUuBtuPx48fFixefNm2aJDBWAGPJkycPltnwWzc6020x
TvEtAX727FmFChWIqTUuSU+AaQst8peLQXN//PFHb5Rso3FL+2ZBA8Kf3Llz
y8xJi8C55MyZk1i4Q4cOW7Zs8Xd10gouXrw4efJkmAn9kz9//jNnzuifef36
NdQ3LCzsgw8+KFGihH7JyRPcv38/MDBw1qxZ0tl5A/gyBL5BgwY///yz/luo
bKVKlSIjI60zUuLu7t2737hxw43KKATYjd+6jdu3b0PyfTDFTetGjhy5bt06
NyRZIcCOHsDFU/iGDRs8V5MXL15Ur1594MCBjgYdnnDkyJH58+fPmzePPwyT
9LyKgwcP5sqVy2d56W864uPj6a4LFy4YfutqZ3oixim+JcBEixMnTsSta47R
0xNg/vjiiy9GjBjxyy+/+KBi6prw3qFDh7q6tdwibDRuad8sqMHQDxs2jPDH
Z5MbbzpwLjVr1sTj679CSjdu3Ihb72qEbt26DRo0aPHixfoVZwEkITY2dvDg
we3bt3f0jJcAq5k0aZJhtQGqMXr0aJrmaH6PuBhhFvsIli1bli9fPnNig3Gr
UqWKIwKM4lBIeHh4r169+vbt279//379+n388cd8Mn78eEcmcdeuXdjnw4cP
MwqHDh3q3bs3ET39mZb5MN1uZRock7J8+XJM8c6dOwkiHD2GbWQUVqxYYcU4
nzhxgjFt06bN9u3b1V3kaBoftlm2bFk8Ghbj4cOHw4cP79ixI6Mj+PDZs2fp
fGiV0/cKMPShoaFuZ2sLAnz8+PEZM2aMGjWK93ruFxBv6L1iBp88eYLYaxwi
ctu2bVu+8vBdJsAI4IuJE92bNxMEeNOmTUg+g4U86LcS/PDDD4yde7QQMcD7
R0REoJVTpkzJnTu3o0w/BrdVq1YTJkxAwBigzp07v//++/g7N14qgGRiEHr2
7NmnT5/+qeAP/okQXrp0Sf88XYF4vCkJwNeuXZs6dSoVvnjxoonJEjlL2Den
aS2oGAUiw/A3ddICAvbZZ58xiI0bN0ZOlHdhdT/55BPMMuLB84sWLeK3ISEh
om9d7UwPxTjFiABj+nAE6LvCrA4cOMAnLq06OQK0HwJMX6k71jAFgrfPmjWL
UfAlc6OlYWFhXiVpnhg3P5oFNRBdYgR4AmwBwaAyGAeMBp84Ov0M//XBBx90
6dLFvzz8DYIJAU5JTazas2cPFCJTpkxvvfUWQ/Dll1+eSQVDj+VBxt55553W
rVtjyjS/TUxMXLNmDQ6rWLFieDHvN+X/AqW+fPlyQkICpJFqZ8+eHQp66tQp
qn369Om9e/fOmTMH2/jee+9hVE34FeYOnl+nTh3zyN2cAKekHux58ODBmJgY
HqM++fPnx/xCca9cuWJoUUUCcIkSJei99evXr1q1Kjk5uXDhwgQj/s1sJxD4
6KOPsKLqVTOqxPjWqFGD1hEsFChQYMCAAY4sD0ODK8mYMeNbqcB6ODKDUDjx
GAGUOa+mlyjzxx9/FDvdFN03mcYXCcBbtmzhGUzc48ePsV1FixYVVxLAuvPm
zWtxAgFHhl3CObqdm0rroOj0Kl2Bs+aPDz/80JMFBXoATtiwYUNFtpGiPHny
0Fj1Y1R49uzZxFbeS4NEB2Ed+l1I1kGIjRZTc3E3RMWKFVElzTModb169VzN
P7l69Wr16tWxDPQDPUAIg6cz3KRPQEQvqQWVn6xcuTIwMNDtqIc+QQhxrFiY
dOnSZciQAR9Hd2GmDCmQyFlF+9JIArChKRB49uwZwZdQcLwDxtbQaiGlGDSe
Qc3NNzbyCvQLa0n/FCpUSJlOYRT4IbyX8ocMGYLrVwy1SAAmoGDU+C3hBl2N
FxOHgLnamZ6LsZ4AizU+FFA0nN7ABKl11hPQLkxrUFCQel3JUQ4w8oYH99km
L4avbt263s63dNu4+dcsqIFIYPd27NiBhyKcQVPoN3zT4cOHHQVuIgF4yZIl
nr/9HwJzAiwADSZYxpTt3LlT/+25c+fKly8PwVAHPlgYOB5OHI6B/KD+ttfc
CiBReJayZcvq6QQ2E1nNmjVrkyZNHK0+I9sVKlTAtJovhTslwAKYHXwBYozt
NQ/QRAIwFYuOjqbP+SEuICkpyauTdVawcOFC6o+hVmZuqerw4cNxMcJuYwFw
MWgrTNhk5RpHMHLkSIaG0ghy9f6RJmO+IAY8QJxy7Ngxk1pt3ryZzoG7lipV
CsYriKj5ND4N4ZOlS5fOnTtX1PxCKnivSAAODg62OBWDgcK1ecJXeSkGTZEx
GlKyZEn6x+2UYOS5XLlyo0aNEl1BOYSulStX1p8HBVchvtu+fbvblTcBDcG2
7N6925NC0EGFNjA0vXr1qlq1qiZoooHDhg0j7LI+70GZTVIhRl+UXLt2bf2g
E0B16NChT58+mt7DOUIb+ImHeYz4OPSF8MR8mUzkrBKwp5E1IL0p0ODmzZsw
UqG/hvPzYggET4ZymNBLtFgc6/Txxx+rszG//fbbWbNm/ZaK5qlQ2I5IAJ4w
YQIGQUzOoBRYCVFblzrTFjHWE2AKJAZXnKZYkxoxYoQtezypM1yayAIPqHxo
sgmOAaKNOHrPX20ONHTgwIGRkZE+mMlxw7ilHbOgBpVhNFETRwntCggGESrC
Pbte/beHFQKMNhUrVswRAU5JnQ0oUaJEgQIFNAlX0DaEpH79+oaZlj4A8oAR
wLAYUlzswOeff067sJyGc7ynT59GnJyeHK4nwHhkyKrGpPM6zDhirJ6lFECb
MD5K7C8mB6B/PAn3SzvnmVDD8+fPq+d86EAsqqY58fHxdDss7t69e46KEpaQ
3sBPXblyxfAZHF9ISAg8WW3GHWHNmjUUpb89Vj+NLxKAeXWZMmWoqsZSiQTg
iIgIK/wTw4hpYlhtpCXEFFhgGKzbWcGaAy5oYI0aNcLDww0DjQULFsD2bb9P
k5IJi5o1a2ZveiG1zZQpk56NXLp0ifDH+sTLrl273n333UWLFomBQ1Xh1YMG
DdIPenJyMrFS9uzZ9ftKli9fTmUcWUU9eAtmQfMKai4CRo2yMFg8jDSKGoqc
1b1791p8lwnQ37i4OBPdtAK9KdADx1GhQgUUDTEwzOqhK3BA2LoiRYo4ZV9Y
g8KFC8+cOdPwCIiiRYsib8pX6HX69Onh3hMnTtSvTlrvTLvEWEOA9Yf8nDhx
AjEglvfkLQLi0o3Y2FgcX9u2bZWgwIQAMzr8RJMy4Q2gRKVLl9YsRXkJbhg3
v5gFNTD+aI1mxZPRadSo0dtvv/3ZZ5+pP6eSNA0REoZdJAAHBQXB/N149T8T
thDglFQiBFHBcauZJGF4/vz5FXHyPcwJcErqTHX79u2hmnPmzNFXMiYmJiAg
wOk2cz0BxnN16dKFYuFdymqFIQHGg4wdOxZbjVlQjvfBv2MM9+zZw+jwed++
fU1yZf0I4pp27dpRW03XiZlzFJahN/n5rVu3ChYsSIdER0c7kpDLly/j9ZKS
ksxrIo7S/eijj/R+Vj+NLyZIhw4deu3aNUYfi6GefBMJwOvXrzd/owBjBM/3
5CACcVB269atFRFlrHG4hQoVcjvbE7OvPuCC+ILQYOXKlYYPMwo0YceOHe69
yxFoTuXKlVesWOFJIV9//TXhs3r0UUmURb9ci5cPCwvr37+/lWiRPp8wYUKO
HDmgcOKTb775hi4yHHRKhksQgulLRmFxlyKT3OlL0fR58+aJyV78rPK5IQGm
5Lx588LfYF9UQOSsogi2nKZOQIShNlmgsRGrVq1ivGigI84jWAqiYu6DeExY
Y8Ngmbags0qL0PQBAwYQxqKYGHY6XDMRar0zbRHjFB0B1hzyIzoBX6nn6q4C
g0m0u2bNGjoBups7d24lpdz8GDRGCjvp1UVGqhQREUGrfZbG45Jx84tZ0ODY
sWMVK1aESo0aNUpx+oYEmKCvbt26fAidEJe5iATgzp07ywRg67CLAGMoIBI8
o8w7oWWffvopfhylPnPmzIEDB2yuugU4JcApqRwGcS1TpozI/1SAYHft2hWJ
cjp9bZgCIdKHYHfKQpshAT537hzeAWeHrolPxORA8eLFqQ9/o0diMhDL7xuf
ZR3oIH4Eno9nVxtVWgejo6U9e/Y0+TnGH23lMVi0I51FtRkCp5so6UZMfVxc
HDE7llxdmn4an/Giz5EN/j58+DDfwuEZZbwGNkckABO7HT161Dx1RyRLtGzZ
0hN7TlUh4dWrV1dmwF69ehUcHIxWunfwjpjfVqdwxMfH01508OTJk/pkEipP
ExB1e09DosMDAwPdOxZDwerVqxkLxX8hY9OmTcuaNavhuCxbtqxEiRJWLvbC
EQ8ePJiHlfk3PAsUlIDoRCosVg+bljlzZv2CjgkIQyCE6tHRE2BEEdqPWs2f
P1+olchZJSyCQX3++efm5topfEmAGY4iRYrQZIbS0TNr167t3r27ufjRJw0a
NCDGgQwgz+rpYjFJi4dSPhQJwGLJ44cffsA4Dxw4kDHaunUr9XGpM20R4xQd
AWasKVZxDUJn4TMMDa1ze+kHBS9dujQBtQj2hXNROyATAkwbqZL1nb9ugAGC
jqKn3nuFBi4ZNz+aBTUYiIIFC2bPnl3JZNATYEGucJ0ffvihsjYhEoAXL15M
FCMiIDfe/k+DXQRYLDSLLUtC2LAzISEh6DVaj4Gy67hOl2CFAIvlM72JFjOH
w4cPdxrHOcoBxn/RIS1atFDCfD0BxvjzavXeBzE5gNrSgcgwprtevXqY9KVL
lzo60sdfoIsIV2kRyqghwHBakSJoXgLaymNis7bhA4TYODKnE+B0DtYbngxZ
ImBXV0Y/jb9w4UI+EZdNQH35G0+BtYE5/5//83/Gjx9fqVIlbCCOQ3+jqBqM
OKLl+VF1mzdvxl4phSBOBQoUcPsSOpFMqKR8IN5Vq1YtVaoUf1BV/c4+3svn
arPvOUTWsaNT5qwjOTmZ4VBUA3pANNSrVy9DeTh//jxs2eJZjuvWraNPxBzg
w4cPq1WrhiTjOGbMmOHoFhLMINKIpBFEiJCHgcO84IOsR0CEsWISWJnr0xNg
SFqhQoXUs6YiiQVbhIRPnjzZw/UgXxJgrBn9g447mhDDNiIqJvRYAP1FT7GW
9BI9oF4jpvNxNJhZpVtEArCYtkUdypcvz7BiYYieUArrnWmXGKfoCPCuXbsy
Zcqk5Gzwz2zZsvXp0wcZ07TOOpKSkvLnzz969GjFuVAOfkSZXTcnwCLs6tmz
p/cy7hITExlEZX7VB3DVuPnLLKghUuBQGWXdQU+AxbQJz6hXro8fP44ZOXjw
4LZt25zmbUoI2EWAhaQxIoR4Qtgwd/AidAqVRCT8kgVhhQDjXsWe5Y8//hhr
jBTt2bOHyu/duzd37tz6Led6OCLAxPIiC0LM9hgS4AULFvBJ27ZtlU8EreJz
0WOHDh2CwGCu582b56+lDZzOkCFDevTogZfRBDKM9dmzZzU2k/bWrl2bdk2c
ONG8ZIw2wTLc1XC5/8WLFx999JF6vdgRTp069f7772Pb8SnqLAj9ND5OrV+/
fhQraNWzZ88IN3A9Q4cOFct/X375ZfXq1YcNG4ZNMw+ijxw5kitXLkfV47cY
RgSDAIcGMvQaV3vt2jWxBQY7iR3D8R0+fHjJkiV45+XLl2u61HppJ06cyJo1
K5aQwGHmzJkMHFadUI4GIlSGIiTO3LPx0m3IBkL7ySefOOpAWB8ynyVLFqra
vXt3zeILg0VjaSAqsG/fPmJALM/WrVsRv969ezsyVoL54+KtrDwiJBRLzD5p
0qTBgwdv2LCBLmLQicj0BABCFRoa2rx5888//xz3DQ3jSehTdHQ0Qh4WFmZd
MfGtYnpHSR3UE2BBkqEKymw23Th9+nScIIP49ddfW3yXI3hCgE1MgSEYC+pM
L3Xq1MmQWWFvMb9O95C+fPkSlsvo0/Oa92I6ihQpAkVRXAxRMDoilv55KUNM
exllbGmKK51plxin/L8EWCy145jgWuNTQX0It3mA1mEE1IUwWDyAzGTIkAFP
LQ7GVL7lb1SDHhDCT/9oyDMekOrFxcX9lQoTAiwOjjO8OdoW0OpRo0aZ+GKL
LXX1vS4ZN3+ZBTV4kSC3yi0tegIsSDKfqCNHDCPxDmaffvZwkeifA7sIcEpq
GjAjok6hYfggSP7aAZdijQAjpSJXAa5+584dIr527doh21A4tMDK0okjArx9
+3berkxv6gmwWLzjEzRO0S8+xASpnTh80t5bNlwClcfl0TNiMdHKFAEdki1b
Npz46dOnzZ8Uvh4DpV9k5C2Ya7yeRfnBRepH2XAanwI1R4liV9WN4hMrBiQ2
NpaaG16RidhghQh/0BpMOqyVv9VHpfEKvJ5yug6DDrXYsmULAZc+88F6aZQz
f/78AgUK3Lp169GjRyKLJiXVhNI5joJQmsAo2Hh7ptghAt82/JYAk9dhK/Ln
z493Rv6hQGq3u3v3bryJUls65MCBA9u2bYMQmsTRwim4dFAY4Q9dJMokINLL
D18lJCTkzZuXUEJtCuheGJfwU/Ao68l+BFnQHlotyFiKEQE+c+YMDFm/Lwz6
ZIstdZsAu2EKUv67ENasWTP9XCsdXqdOHU0ClSPQ/xo9FSBEQg3VMxWog1qJ
KJxu13Sdlc60UYzVBBhlpP9xOhh2XqFUVX3giQACwK8oGa+aJ08e/tAcqcQD
EydOpEDeYniVpDAswn04vQp54cKFlO95vochGL5WrVrRcMP5bestdfW9bhg3
35sFNcTdc+pFEz0BRk7q1q2r3x5OxZCitLNrPu3DRgJMuMSIYAqszJr6BlYI
MNIiMlErV67MY7QRskH0RwRqMYvGEQEm6nzvvffKlCmj2B8NARbbNk3WB13F
uXPnIEhoyluWQf8QaZq8fd26dSJd9vbt2wEBAQS85iuwNK1fv36UTDjvtAOJ
lzEjGCj94f+JiYmFChVyY1qSfnZjGt9VUPjo0aMLFy6s371OBbBUSB2EVtgi
PN2ECRNKlCihTF5dvHjR4rn6LpUmlsZcPU1UnHNoce7UCo4cOQKFM8zioM5B
QUHUXxy+gYTs2LED80I0IR6AltCxbmzGEbP99k5hbd26FYMG69NM5vAuxBt2
RCRC4G+9QOpGDbGliLf4RE+AxbKISV6Qh3CbALtqCgTi4uKwSHhwDXuhSyMi
ImrXru1GM4lxkK7r168jP5GRkU730LkHG8VYTYAZaCyb4bZrNSCKOCY6Wdn3
x0ubNm3arl07EeLx85UrV1o/GMQpAYZN0V4bV4LUECcqdOnSRW/0bG+pGrYb
txQvmAU1qCe1xYHiRoUD1RNgcVQRddCsF0i4ChsJ8Pr168XJM+antvoSFglw
x44dnZ5FaQJHBPjBgweBgYHKJKGeAOM+CIrptLVr17rxXj1oy7Vr1067Ajiz
yYmFmHEoushpwZFRVacpr5gpFDM8PNxKtP7w4UO6iKhfc3wZrq106dJ6Cs2r
na4ricxkV6fxXQUV6927t+GlkzQKFqrJtmVocJeLFy8WRw0TdJw9e9bKi1wq
TeTPjB071iVrL+bJe/ToYXHqQLh7POmIESMMN51t27YNT6o//ZWxGz58uDrh
WYAIBc8oBAb5WbJkiRsZU2IPC5ZKsxLtNm7duoXrRA71C6/K2o3J+QaGEHeU
8MOFCxeKT/QEGF+Ps+vQoYOXUp7cI8BumAKBDRs28HC9evXUM67iCMr8+fNr
PDhya0VbqXzWrFlXrVpFVIjAOz0lxj3YKMZqAowbxSk49ZLbt2//5JNPNJEs
jgz3cfny5ZTU1QRGxPrNcU4JML2aLVs2EeNYwcuXLzFBIj3P6bILtS1ZsqTh
/fKuthQhpBXEGlYWRFw1bk7hDbOgAZEmKkMIIGbL9QSYOmAxcJ1W9vxKmMBG
AizsNkPv6FhX38MKAcbetmzZEqF1tDrjFI4IMCXj7JBkEQzqCTDSW7RoUcTY
89NvvAQoOjQSr0TPhISE5MmTR1gkR6AhWIa2bdtaNMuYsuLFiyMzyiEYKakz
JJUrV2Y41OuYVAC63iYV5vNO1NaNaXxXIeKmqlWr6uev4uPjV69erfcyd+7c
GTRoENbs5s2bcHuLW5lcKg2Jaty4sav3zohpybCwMIs+gspAyGFojs6SwoDj
SfVXgiIemjupBdAUPsduiIvwzPceOoKYOYFT2XJWmKDT4vpLvQiJ+X++1fA6
KyDazZAhAwGaGDINAaYrIFE8oDnz0w0gGzDDLTrA3IKCgpAZ/VdQEUcu1VVT
oEDsCVLPACM/W7duJeyFQiuRGl5myJAhCFXr1q1hLBAJk/s3+WrRokVDhw4l
vHV6RIzbsFGMUUnsPHTx66+/3rhxY2hoqPlFCZRAdGl4GeX69etXrFhBH2IZ
rO91evToEWakYcOGVMwRAT569ChhBeJhsUxxPRO01srRW2KuQ7mdR4F7LSV8
QH4GDhzo1GS5atzM4T2zoAYijWktVKiQOMpST4DpGXSqffv2afN81DcIdhFg
cXgXQ++9LHo3YIUAizNzqDmi694qiclNcMePH0dP69evDyHUEGD+GR0dnS5d
OixS2j+xRFwub36E47Nnz9DTbt26md8crYY4SC1XrlyKASTYr1OnDkOm3nV7
5swZip0yZQqe0TCZ0PdgBDGqhqsGfGI4iyXOfIaeLV++XEkBdQp7SzOE2Bfv
0rk9DAFEhbEwjBlxtXhSwyPXHJ3ttmHDBkgRYgYpck8dUF6x/ujhFQ8CyGGZ
MmWwHobHStD8Fi1aoMvKVbbWwYAGBweLg+lSdAT4/PnzcEvkytEV4dZBZISI
1tOhdu3amTNnLl++vP4r9Ncw2lLDiilQIyEhAT6v3hQPa0Lle/bsqQgPEgj7
VVLiYYl58+YNDw/3773PNooxYQXtbdu2rcUjhRFmBMBwIODVEydORIpwHNav
PDh37lynTp3Ese2OnsFb0V6X1u6JBQg5IfZOn6QHeFK/OOVeS7FU9Ce+w2n4
44ZxM4H3zIIa9MnkyZMpZ+bMmfytIcDiujpCMw/NvkSKfQQYU4Y3FLnfaYfO
WSHAWF08Dh7B7ZOKTQgw0rt06dJMmTKhwmiHmgAfPHgwd+7c6EvaiRccAV2e
OnUqXoxI3NEzaGXHjh0HDBjg0j4FYRWBmHfCEjZt2jQgIMDwMkdhB9IIARYZ
p++//7715EOEYdGiRXv37sULuHfGr5dKowmVK1dW78R0im+//bZkyZKEJIZ2
fuPGjdhnlxamGXGag4I43TjpCHTIiBEjrNwpZgUigb9AgQKG09G4XXF/mXuT
1RcvXsSiQkQxrWoCjHv94IMPKFl/vZQG2NjExEQIP012lfB7cgqEFVOgATSS
MF/ZFA/LQt9Rc7XdgzTC+flK/BM57NOnD/3vpXxUi/CLGDuFOC1h165dS5Ys
sffiNghV9uzZrVy7qYCBw4tZuXtX5OK6tDXMvKX79u3LkiVLTEyMOdV0w7iZ
wKtmQY1Xr161b98ey0Azf/nlF4UAo0QEBTAKZMwp0cIv0HWYCHGTuIdV+lvC
LgKMGc+bCvVatt/hlACLK3iwz+oDpV1KbUoxJcDiFXDdhg0bwtxErgUP9+3b
ly6dPn26vRfF4liDgoKwSLksA2c0Z84cc6MkVpFKlSolsivhn/plrMjIyJEj
R6qpKULl9DrIq1evUgdKxvVjPWrVqgUT0K85CqQpAozxGTRokKi59V9BG4YM
GfL555/bciqgXaUhumXKlDE57kkPcYHInj17DL+FluNJt2/fbr0Ot2/fpj+J
E93Y6C0gDrgzj3atQ5gO5QxDNejt5cuXp0+ffvTo0W4H+w8ePOjVqxesD1NA
9A3RwuBQeaJIKwlR1OHGjRudOnVyIw/QEwLs1BTosXDhQoxe79698d2IBGKD
FmvG6IsvvqC31Vc2zJw5kx62TrO9Ab+IsVPQ5wje4MGDDc+f8QQ7duygvVaO
nRQQ9zSVL1/eykQ0z/AkYmBdZcxbihhDXerXr2+ebOCGcTOBt82CGnhViCts
ITw8nCaI06LQXBSQMbJ4+yTcA23FUMjr4QxhCwGmn3v27EmEEhUVlXamf1Ms
EGB8B+KBTVanTbqU2pTijAAr+P7778XxJggwIbM3dmahMrBH7Nh2y0CVnM6Y
ibsdBw4cyODyigkTJqjPFSeynjFjxqRJkzS89Pjx4+ivecniwLQaNWoIPYWN
m+wNSVMEGHMnbll1KX977dq1lStXtivl267SCD2IO/Tb0hkdHBYce8CAAbGx
sdHR0cqm7FmzZqE1cDa+7dKlCwKgDhWJgnPmzOnSBbJoYsWKFa3nH+oh7h90
9QQMR8DWYfFatWqltwBYS3FCvloLkEno96hRoxQDeODAAT4xT4bHCNBkCHDW
rFkhe+Z5ofrfhoaGErm7unPBEwJsbgr0UBZz4YQxMTH8llfr+RKlEREoXS1u
oPD7fmq/iLFT0Etdu3b1Rn5IXFycfvcWr4PXEaZFRERMnDhx9uzZu3fvFoZC
3J0Bf8AOQFPDwsL27dvnKBhHK9FN5VooKzBvqbDAToXEkXG7d+8edSZaGT9+
PPW3aEV9YxbUoNpiXgslorY0x6XpjuTk5AIFCixatMj6T/5RsEiAixYt6ogA
w3+QLnhmjx497J3PvH79OkoHnXN7ocecANPqkJAQvI9+Ds16alOKZQKs5ADj
pt+gcIzOxz7gucQpNJcvX54+fbqynMS3mM1PP/1UY9YwWVBipxc8bdu2jQGC
RubIkQM9VdZADZGmCHBK6vIf/sIlH71s2TLool2xj12lnThxgobQHOUTZJWx
q1SpkljQEbdzKruS6f82bdqIS0B4EsmHh6sn63ABJUqUcOkwips3bxIHebJ0
+PLlS0ro1auXLWud+MciRYo0aNBAY9NwZDC67Nmza2a/YT6BgYFK7h8KTvhs
hY2LFIi8efO6msnw5MmT0qVLUxlXzaPbBNjcFBhCHJaC0RO3bSJCVnKbsfyF
ChVq3769e7uS7YJfxNgp0D6opu0cmzbCbzWXpiG9KJS4zjXlvxd5K2xKeMna
tWuLbafQA3iao7YjJ2LJw3rKn9OWYpeoALTQZNrN0LhhuMqXL79hwwZafevW
rapVqyqrD+bwmVlQQ78Jzjq2b9+eO3duz2/P+bvCCgEWN0tCVDQHpDDoSFfz
5s3hxuPGjbPXWAl9wXLiGtxb60HkYLCIjf5kJEJX/Hvx4sURzsTERL3kW09t
SrFMgBF+sYE0ODg47ef9KhD7XrEzxJ5YpClTpihHltFvX3zxhTgEXg8iC6cH
8IqrkAGu3OmxYGmNAGM56RacgsXnxbZHu1Z1bSyNAJDoQ30APmOB3ik3FIiM
3wkTJggmIP6pbOgW20y6deum/JwBatmyZatWrayP1JkzZwYMGOAJmUc+YU3L
ly93uwQ1aBo+EY/25ZdfKh+iCzExMViGjRs3aozG7t27iQiU7B1xM9eIESOc
cic8JprCi1w9u4PIi5o4ykIxgdsE2MQUOAKBsLgKWVwGZ8XuvXr1qm3btmi6
9R1eXoJfxNgp4KLh4eG2c2yxq5f2KtOtSDjMTZ3WiFtEyJVpCjEDoBxkx+f8
0+RgihUrViA81lesnLYUGQ4ICMCPmxz8ojduhJyE82i30E1iFpiGU0kW8JlZ
UINQ9/3330eD0DiXVth5C+GbxRyVfyZMCDC9h/yLa1kEiP4KFy5cOhX8gbQT
MEZERJgQVEac4eaZ/v37IyT4UIsTHQjS2rVreUWZMmVcysJKSbXwbdq0effd
d9VkjKpSbbHOTrG4bPy7oUF2KbUpxRkBhskPHz4c10zvKfWBlmNYMK2ODoGn
+QcOHBBXfxJcfPrpp95LKnMKrHq5cuVmzpxJZbBvio6LpQFHV2xgEMwvSxW7
lt5KvYPPytFVaY0AE0Y1aNCAMbI45YhbHDhwoF1J8naVJpabYUTKpIS4FBXF
V84z1Fz6jMtDg5T1IHHeNa5KKRMJQWLRNfP1cTVQdnGssdsNIZLF0+k7xG1V
Evei0rQZM2YkJSVRw48++qhOnTpE/Zp6ijNw1O0V806bN292VDi9hzlS2yjw
3nvvVaxY0WRNQZ2UwqhhhN04CNSTFAhHpsARsG+VK1fOkCGDxXP/YF/IHjTM
j3dfKvCLGDsFhLBPnz72Lram/PcI8blz5yqVF59gb4W+iDO+lOVU4SXVq6sE
45kyZTKReUhmvnz5tm3bZrFKJi2lklu2bGnRosXSpUuzZMmyatUqwxIMjRu6
QzUMD16zAq+aBTXgvXhGnlebCFSpSJEi6mtANVCnrIwZM6ZWrVoyAdgEVmaA
3QbEuHr16suWLWOwsGyhoaGOro41ATGU071U9sKl1KYUyzPA1oGnQHSDg4OJ
W3nvhg0b4JkWp6O9BJzmqVOnPD+aSQ0xyY+/s5gQldYIsNhBSWxuMVAiXsCz
W3emvikN3a9atara8YkZXWV3iZhqVm+2WrRokXofNNoBkdOkmV26dAlDbfHy
JiQBn2LdM+ohLlVUb2UV8FCV+AmMGnczaNAg4mU03dCV/Otf/2ratCn2TUz9
CcFwabLLSk30SSluJACneEaAU1w0BY8ePUKWIAlWprwQA7o6MjJSDCLk2UuO
yTp8LMZWAPFDGm2/7hYuR0vVCcDiVDRCAOVSYMyvcj+LkHmco5B5iCWMK3fu
3Ca3AGDAsd48ZnEa01FLRd4dcoUWiF2ZaoqrhiPj5uE5vWnHLGhgmLJiMZPz
nwnvEWBxWp0imYLtIHsubfQQFwa5ujjoIVxKbUqxmwCLzA1lXx7/3Lhx45Ah
Q1zqtzcFWCHrsyVpjQCnpG4xKF269I4dO6w8jBtt27atXTP5dpW2a9eusmXL
qsVb3J2kJNNivcWSNHHKmjVrvvvuu1mzZim5fDxDCFOiRAnNVCRjhB3u37+/
FU9NBNG4cWP9ddjWIfKQNemCPlOle/fuESAoaYR4Q9pet25dXhQfH2/LqRSG
SSmOjqEzB0rXrl0783x7uwDVsThXiZwwWDNmzFDyB7D83rjE3CX4WIydgv4c
OnQoPMreSWaKhbp36tRJbVrhBtmzZ1cOvMVEEPZCJmkmivY///M/DRs2VA7P
RwHLlSvXo0cP8/QPxrRixYpWTs5x1FIGAi3A4IiD5sQsPfU0jGr1xk0Q5o4d
O6oHlEK8kW3uA7OghmHKivVMzn8mvEeAkT0xLyRGX1wF7uppJBjPyZMn2zvx
6BSupjbZS4DRCyxJ8+bN/bsBJA0CYWjQoIGyFSstAOMPCcGcOt2RzZMTJkwY
P368LUd32lUa1abymqtYcGFdUyGmNQgA8S/4R+JBGstP4N44EeHF9u3bV7hw
YcNFPRQHUmqeBiNw7NgxImVPEuPj4uLwLBo75jNVwtZlypQpKipK2Dr+mS1b
tj59+jx+/Bjz5fnbDZNScG0WZyb1sPf8WM9BA6E6OIiRI0eOHTuW/xN/4Zjc
Xqe2Eb4UY6egcF5h+/HIt27dgpdqrqWGvxHdb9iwISU1EICOIuS7U5GQkCAS
wsWFaBgKhozhc5rfSP0JpR1lLGie1LcU0zRp0iQUQX0/NUISEBCgT6w1NG78
PWrUKPyIMgNM04joxTq101q5BG+bBQ0MU1ZkArA5vESAhYPOkSPH+fPnxSdE
JVjstWvXulQOMoOyeDWlSgM3UpvsJcBi4WnmzJm+bHUaR3JyMnYDhvPOO+8Q
VX3wwQd9+/a15cIvz8G416tXz+mCMkapdevWhvcHuQG7Sjtw4AC9qs+juHHj
BoHGuHHjhgwZMmfOHJxOcHDwsGHDxNYPPAsspXfv3tOmTaMajnJW//jjD36C
YzKPeZHz+fPnM6Bur+pi4fFo+kQp36iSsHUZM2YsVarU+FRMnz596tSptWrV
ovkaUuEeDJNSHN1D/SYiMTERG6vZRJBGfLfPxNgKLl26hCbalUYlIDhhZGSk
Zh2fFq1btw4WijxDdCG9kKtu3brxsBgXLHBoaChcbtCgQR9//LFFD0jUhiQ7
nf80bCk6nitXrvXr16s1mmoTLgUGBmqCFEfG7YcffsB29ezZc8mSJZg4mgal
t539+sAsaGCYsmLxKNd/LLxEgEV4qD5T5bPPPkN0keoTqbBSyN27d4cPH+7j
pX83UpvsJcDEvMSJWB71hxhVr+4slvAEWNqWLVuar1M8evQIc+T04k6LsKU0
KtyiRQtHs4hI/v3795U75nB5mqw5fu7Ui6EU9Iz5lZ3i2i+3j7OgnhMnThwz
ZozezvtGlQhGIAkwgVevXhGpKT1G/1i/E9wchkkpsBFGZM2aNT5eIPsHwgdi
bBEbN26EudkrwLQrJCTEEalGvO/cuSPeSBsfP36sZvho38OHD13akYeewgaJ
qc0DCsOWvn792lDa+ZyYXZ0PZm7cUlIPG7l9+7b37kfzgVnQQJ+yUrBgwcWL
F4uUlTR1QUPaAZ1Wrly5Xbt2weJsuUJUAX6H2EfMUaAj1apV40Woz4wZM27d
umWlBETI9r2uToFPsZjaxAPXrl0j7IqJicE92UWACUaqV6+unrZiXIhSLZ7T
IuF7IAmrVq0iUDJZ1UIRFi5caFcw7nlpVHXIkCGxsbHeXg0n5iWcNFF5NGve
vHmagwotQqT19uvXz9Cn+EaV7t27V6hQIf1J+zbCMCmF4VOSUrz0XgkFXhVj
62DoCbdtLBAS2K5dO6/mLeuBk0VnN2zYYKIynrTUZ8bNBD4wC/o3alJWMmfO
TB+KlBXf1OGNw9dff12mTJmAgACCBfTXxpLFaSHdunUj1hs8eDDjAkscNmwY
IYlXF4k8hPXUJhrYsWNHcQF048aNbZxFP3369Icffjhx4sT58+dTmeHDh1vJ
QJPwI7C027Zt88bClpdw5MiRLVu2+MZBECeuXLnSGytxT548IRAwmVHxgSqJ
ZVlv31lmnpQi4QN4T4z9BdpCi2y/UtkK0NlFixbZm8uhwJfGzRF8YxbUcJqy
IuF70PMExUpSiu07H70B91Kb7AU9hnF4+PChXLmQkPAE3laljRs3Yi58kKnl
NClFQkIijcBnZkED85QVCQkrcCO1SUJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCwtv47bff/vrrL3/XQkJCQkJCQkJCQsLr+Pnnn6Ojo8uUKXPv
3j1/10VCQkJCQkJCQkLCW/jzzz+nT59et27dNm3aBAYG5smT5+7du/6ulITE
PxG//vprYmLi4MGD+/fvn5CQ8Ntvv2ke+Omnn1avXv3DDz/4pXoSEhISEhJ/
J8CB+f+///3vFi1aSAIsIeF7/PXXX/v27atSpUr9+vV79uwZHBycMWPGYsWK
rVmzBsVMSVXSpKSkxo0bx8fH/+c///F3fSUkJCQkJP4m8C8BTk5ODgkJqVWr
1uzZs33/9hcvXnTt2pW3Dxs2TD/tJiHhVaB6iH27du1u3bqlfIhGhIeHQ4Mz
ZcpUrly5gICAJk2aXL582Y/1lJCQkDDEyZMnJ0+eHBkZeerUKf23165di4qK
ioiIIMz3fd0k3ABeaenSpdOmTbtz546333XlyhXEY/DgwXv27PH2uxzBvwT4
q6++Klmy5JYtW9AU37+dtp84cQISUq1atZ9++sn3FfiH49tvvx03blxsbOzP
P//s1Rf9+eefiYmJ48ePHzFiRNrJdX/9+vWZM2d+//13/VcPHjyIj4+PiYm5
cOGC4cTvq1ev+Hbo0KFz586VsZuEhIRdwOBER0eXL18eK6T56tdff+3atWub
Nm34Q3yCDceuZs2a9ejRo/qinj9/Pm/evCxZsiQkJHi93hI2gVELDg4OCgp6
+vSpt1+0cOFCxGPdunVefZEJ/E6Aa9Wq5V/ySR1q164tCbBfcOzYsRw5cgwc
OPCPP/7w3lv++uuvGzdudOrUKTAw8P79+957kc+A2h44cKBEiRL4I692nYSE
xD8KWMsdO3ZAXP/1r39pvsLswFi2bt2qROX8MWnSpFKlSsGEDUtbsWJFvnz5
rl+/7t1KS9iKTZs2Zc6cOT4+3tsviouLy5s379WrV739IkeQBFgSYD/i999/
79mzZ+HChb0tfsh5aGjohx9+qLfqbyhu3boVEBAQExPj74pISEj8Q4E5bdq0
KaZV7FnQgNi8R48ederUefXqlaMS4NtHjx6dMWPG9OnTYd2PHz+28t6bN2/+
+OOPblfbHFT70qVLhi3yBp4/f56cnOybd1nEs2fPKlSo0Lx5c727fPnyJZ1v
y1v+/PPPPn36wAAp05YC3YDnBBgOg7S4Nw2VNgnwnTt3vv/+e9+83ZPe+3tg
3759WbJkgcjpT6K2cSCePHlSunTpyZMn6zMKTp8+jfmNioqaM2fOG7QVlCA9
d+7chql3EhISEj7A/fv3AwMDZ82aZXiPANSuUqVKkZGRYse9ITDIPFCkSJF2
7dr16tVLvSHCELzoiy++GDp0qJKGYTvEK0aMGPHLL7946RUKaG/37t1v3Ljh
7Re5BAZl4sSJOXPmPHfunOYrKPHIkSM3bNjg+c0RL168qF69+sCBA03Ew9vw
kAAjhPTGunXr3OuNtEmAb9++Tdzqg1UbD3vv7wEC+Zo1a9avX1+fCWzjQBw7
dgy6aJhsv2vXrvbt27dq1Qp93759u8UCGTIqtnLlSow/1tLHZ5RhoIYNG0aQ
7rNITUJCIk0B/rB8+fIxY8bs3Lnz9evXjh7Dy8ybN2/FihVO6dzvv/8eGxs7
ePBg7KGGD5w8eXL06NFwVMyOelYQ45krV67Dhw9jDw8dOtS7d+/mzZtTiPBo
Z8+e5VvIkslLMWW8EUJr8ZSbAwcOhIWFeWL36Kt+/fqNGjVK4V2UySfqaWq+
wrCPHz/ecI+GXXj69GloaKhh+rTfceHCBRziuHHj9OOCs+vYsaN7Gxu/++47
IouIiIj+/ftPmTIFp+zHBOAUzwgwskGYEBUV5fYEpp4AWxFO62Dsli5dWqZM
mRw5cpw4cUL5fNu2bTVq1BBpS4YpEHzYtm3bJ0+euNMqa/C89/4ewFTOmTPn
vffeg6Pqv/VkIPgtBnnIkCEDBgxA3QoXLmySAIyAffDBBxYJMPX5+OOP+/bt
u2bNGrwPVqJUqVK0wr1VM0R92bJl4eHhvXr1okyqisBTPp9ggQ3DQ4IFatul
Sxev2mcJCQk/AsoK4fzoo48ePnyo+QqjgfvImDHjW6kgfnfECTdu3Cgeg9aa
J4AlJiZi0B48eFCsWLG4uDjl84sXL06ePBkivX///vz58585c0Z8LhKAS5Qo
wU/Wr1+/atWq5ORkzGz37t2FU4N1582b13wGwyUCDEupW7eu2pW7ATFrPXv2
bMHSMaGdO3du2LChJkDAI7Ru3dp79Ayqg7WHAKTN8y1/++03hCooKAjKqv/2
9OnT9erVczVz4+rVq9WrV8fZ0WTKh/xDgP1yAIICTwhwQkJCSEgIcajbb9cT
YIvCaR109dixY4sXL64kF9HzCHajRo1EmYYEmF9RB+iT97bYe957fxvcuHED
uzpo0CD9Uoh7A4HwrF69ulKlSt98840ov2DBguYJwNYJME9iuDRG+NKlS8RZ
uAn3VnPQvoMHD8bExFSpUgVXRW/MmDFj165dV65cMYyPRALwkiVL3HiXhITE
GwEIQ65cuYoWLeqIaeC2Ro4cmSFDBowGHFJvK7CE2M906dLxgKNJBgH4GDbn
6dOnW7ZsgZbgFsXnlDlv3jxxKBbUJV++fMp6vUgAbtKkSXR09M6dO3kXdCIp
KUnMV4gE4ODgYPPJK+sEGDIwcODAyMhID6eMdu/eTa8eOXJE/BOCV7Zs2REj
RugrsG/fvpo1az569MiT1znCjh07ID/ePmnBbcCX4F2ETgRQ+m9xc4RmAwYM
sD4Dg6w2SYXgXQxir169oF7uzW3aBbcJMP2DbCBLnrxdT4CtC6dFELfS58Qy
yiLRyZMnIQ9KZOdoE9yzZ8/q1KljfU3cJdjSe38b7N+/nxEhSNEfvJPi1kCc
PXs2b9682G0RRn377bclS5acMmWKSaqJRQJMCcuXL6c+yjSIghUrVuTMmdOT
2QkxGY6ratmypblh2bRpE2qCJLv9LgkJCa8Cs4NN8GQKBZpx+fLl58+fmzwj
aCFGAydOvGz4DPQ1JCQEnmxIZtSAD3To0MEwIQ3G0q1bN0yf4ivFbBXsuk2b
NlBrDS8VCcARERHmcwLWCfCpU6dKly598eJF88fMoT+2AouN3d68ebP+YcgD
/WaYBuAhcDfQy7lz56bN7EdxQUNsbCzsq23btoYyfOnSJbrRev7Grl273n33
3UWLFokmv3jxomrVqoazXlYARSQ88bz33CPAvDcqKqpZs2YeZolrCLBLwmkR
QkmJbUVfodetW7dGYZWaOyLAPL9gwQICWNvTO+3qvb8B6IotW7YggUuXLs2S
JcuqVasMn3FpIFCoTz75RO0OUJbcuXPv3bvX5FcWCTD6QjCFu5k2bZpG+27e
vAnr7t+/vxWN5pknT55o5v8pEJNI4cinhgBjih89eiQERiQABwUFERo4fZGE
hIRfcPz48Xr16vkgS//WrVsFCxbEbkRHRzuiBBDpwoULJyUlmRd19erV/Pnz
KyxFDRpSoUKFIUOGKPZt9+7deOc9e/bs378fatq3b191KrJIAF6/fr35Gy0S
YF4Klw4NDfVwTVZzbIVwLjT59u3bhs/jkmi17cmQdFrJkiXtOk7BXiAqNWrU
WLNmDX0+ZswYXCdcV/8YAxEWFoa/szIhz+BOmDAhR44c58+fF5988803+Gin
4uGoNIgiTtDz3XM41kaNGiHGjoJHQ3z33XeVK1cmvPXw7RoC7KpwWgG0BzU8
ePBgSip7GTFiBG9UL2qYHIOGYUFKd+zY4fbbDWFX773pQIzj4uLQtRs3bkAF
q1WrpqyPaODSQPz444+UqUxiIEX4BYy/4fSyAuszwMS8FKifloGOli9fvkqV
KlaIOha1S5cu6dKlq1OnjpLgZ0iAEdqxY8emT58eF4Mw84xIAO7cubNMAJaQ
SLPwGQHGRGANsBvt2rVzZBPu37+P0TCf5sK2fPrpp4UKFcLhnjlz5sCBA+pv
T58+jSf94osvxD8FCRG5hfw9cuTIcuXK4dogEvDhlP8mAMOoMZhKQoUeFgkw
LhsXsGzZMpNnrODevXuBgYFTp05Vciw7dOhQt25dvEZ8fLw+3xXfxPPm+/hc
hUgOadmyZRq8w+jkyZM4Ghyc4Jbnzp2DHCrdpQHDUaJECStH61Mao8zDytzm
Z599li9fvmvXrp1IhUuV9JwAUwKhDVSQyFEkCEHOK1WqNGDAACvXcqEFSIXn
Z3doCLCrwukUlENpQklh1xMnToRiae74MyHAyCdS2rVrV3uPBLSr995oiNQy
NAK7mvJf25s9e3bDZX2XBkLMVPTq1UtEpvykbdu2zZo1Q7CJah35I5c2wRkC
SlyxYkWU2uJlc2IXAKqnCLwhARYmCFci8plT/psAvHjxYli0iNPdrrOEhISX
4DMCDLAG2A2T6Hvjxo3h4eEmh0WkpKYBh4SE4HPxhlFRUZr5yZiYGMyO8qGY
rcIs8ytM0MCBA2nsy5cvly5dKu6vHD9+PIwCwoN9M7lX1yIBTkxM5O3K/KHb
2LVrV6ZMmWidMLn8M1u2bH369IEhTJ48Wb9JBK9Rv379nj172rhX/enTp2XL
lnV0dpwfkZSUlD9//tGjRyvehw5hiCtXrmyYh8Nw4Ji2bNlipfB169aVKlVK
TEM9fPiwWrVquEtc2IwZM5yefaeBjTPAboCX9u/fv0GDBp7fYKshwK4Kp1Pw
E5hPixYtjh07Bgui0/R1NiHAVAMpVYctnsPG3ntzASllLPLkyaM+SuX69euY
OMN8b5cGgsK7pkJo8c6dO+HVQ4YMQfWmTJniKOh2lQD/+uuvBw4cwNpv3bpV
pCJQN0KtXLlyWd/WOn/+fNwW8qkseegJ8Nq1a9OnT6/eB4pjhWYfPHhw27Zt
yoSMhIREmoLbBBi3FR0djeNr3LgxxNUKTYK6ZM6cOTAwUH9eREpqvuVHH32E
PzUvBMP76aefwvegQJs3b1a/F/qHRcVCKm5LsLgFCxaIxw4dOlS1atXhw4fP
mzdP2K4vv/yyevXqsBSMpPk5wE4JMF+NGjWK1zmaBPvxxx/h2wULFsyQIUPN
mjXFsWzKt/yNF6BnxEJ8xowZYWLjUzF9+nT4OSSEevIrfckioQ62ZuN29SNH
juAmHA0Hb2TQiWUw+wwoHkETtuBflE1SVmCxc8R+q969e2uI1qZNm7JkyRIX
F6eXQ/GTMWPGWMmRxmMSJXXr1g3Xz4hv2LChQoUKdDuxm6vBhX8JMDEmoo5U
OHr7pUuXYJt0WtasWbt376652wUNYnzFmKoJsEvCaXFMiS/KlSsHB6aTHV0x
Y34TnDjn0MaT+mzsPffg1fItFs7oiPQw9ahhNnv16oXKG2ZGuTQQN27caNq0
6bhx4+C9c+bMQVmCg4ORImyyo59YJ8AvX75EUGvUqEHoivDs378f0r5nz56L
Fy/mzJmTCNr6bcvx8fEiC0LshDUkwLgYPqFXlU8IxonKw8PDcQrmG2QkJCT8
BfcIMH4BlSes5o+RI0cS9Vu5HO3KlSsYHyykfmERdgFFCQkJsTLlggkikNc/
KZbV4LcK1eFJOKGa+WDENGcaYLKcGigrBFjsvGjSpInhJNijR48gCWIVO0+e
PPyhPsVCPDBx4sRfU0EhoaGhVDU5OVm5gIzWmVxGsHDhQgq0ccU2NjaWkTK8
/5eWYtVxCu+88w70Bg7M3+qj0uhSeJH1ORbrncOAQmj1tITP7927Z3haBcNB
fxJbWc/lePbsGfIs/P4vv/zixrJ+ir8JMJKTL18+lNTwW5gAmvj222/DBCBC
dHiDBg3U0dPu3bvXrl0rekBNgK0Lp/UxtdIccwKMlNIcGy+ctbH33IBXy7de
OBzY0C/wOXbGcOBcHQhUAyKqSBF6Z27/LRJgyDnxS/PmzdUGATuAUZo9ezbh
2Pvvv2+dlPI6Ij5l4VJPgMV+ST4hcFaHyXxOB/7DT5CWkEjLcI8AY2FwXq9T
0bp1axyclQXiu3fv5s2bFwup36+UmJhYqFAhN+ZwMDI0AasO39i7dy9OVmyl
sRdWCLA4MaBLly56i4ft7dy5MwZZ2cREBzZt2rRdu3aCldGKlStXih3QEDm6
Ys6cOS45uI0bN2bPnt2uSTCaOXr06MKFC+tPV6NWn332WdmyZbds2SJailea
MGECQZAyKXTx4kXrdwe41DluQKwL2Ds9bgX+JcBHjhxBHhISEvRf0b1BQUEM
mbinm+rt2LGjWLFihDziAUgIo6/sqVQTYIvCafuYmhNgpLRIkSIWJ/mtwK7e
QyuDg4NhmNgoi692dXQMQT9ER0fTYwyBOrPLlsJNYPtAaGCFAMOoK1SoULly
ZX0mBm6Cr2CqYWFh1vemYVTfe++9MmXKCDqtJ8DiwAc+GTlyZNo8L11CQsIQ
bhBgLMCyZcvE4vjt27cLFixoMVnu4cOHgYGBOXLk0Nxde/369dKlS48fP15D
FfCVTskDNa9YsSKO9erVqxh8KIe9e2EErBBgvEbJkiUNr1TGYn/yySeardPf
ffcdJvTy5cvit5hQscQmVh5NDkM2xP79+7Nly7Zp0yaLz798+XLx4sUiG0Q/
NUoTevfubXiJJ4PYvn17zb0hkEy8KgUiG/w9bdq0s2fPWqyJS53jBsTWNry8
lUUKG+EhAZ49e3YNU0RERJj8fNu2bVA4/UV4uGwGfc2aNRoGS9hI7Cam9eCl
S5YsUR5QE2CLwmn7mJoTYLH006NHD4sxlyB+48aNGzFihOFSuC29ByCToaGh
6KZFA+vG6DjCtWvXNm/eXKpUqa+//tr2wh3B1YFwFU4JMKasY8eO77zzjuGh
fKdPn2ZYYaoigsNTLF26FGNlsvsDPHjwALelLIfpCfDr169btWqVPn36tWvX
etxECQkJ+wFvweZv0SEqKorYNi4uTv8VdtuQ1mIBxBIYf2At06VLt3DhQis2
U2xAyJkzp7JVNiV1TolovUmTJspCGEYMgo2thj/AtZo3b64/z1wBNAOnPGrU
KEjO4cOHvTTbZoUAC3pPTTTP0Bz8rOFNc+vXr1+xYgVdFx8fr2yU2LhxI05T
TNFYx9GjR7NmzYp3s/i8uA0Exm54UA/+Cz9StWpV/XZFqrp69Wr9cONEBg0a
hFTcvHmTWMZigqKrneMGGI4xY8bkz5/f/IQlT8onoNu6datGfXDBxGVIL1GJ
5iseRqTNZRUqMtUU5tf/8S0BkT4Nm4hVc1G4APLA51euXGFE6C41JYB8IthE
N1ApK8Jp75hSGnSUArESjgiwOJ4rLCzMIu+iAlSvQ4cOjs7dsqX3eAt/jx07
1jqfdGN0TABdJHJRCLC9hRvC1YFwFU4JMDFL5syZy5Yta5gNxYC+99576hmY
58+fBwcHBwUFmdz1Q/9gDOG3n3/+eYoRASaGKlq0KDriyUmAEhISXgI6i7tp
3LhxPR0qVqyYKVMm7KT+K2W6xhGgx40aNSpQoIDFDfKPHj3C4xBKK87xyZMn
derUwV4pJQjz0r17d+Hs4FEYH37l3/OIrBBgzCAsC3+neYZ/fv/994ZOEF8z
ceJEvAZ+x8Pz0o8fPw4BFibaIjDXVBhio/8Kw44Xq169uj5tgE8M59jFSZjQ
ieXLlx86dMhiHXzQOeKsD+sHH7kKOD9RT/369fUaVLBgwYCAAFy25nMeRpy8
esIAQQryoJ+qheQokaYGGzZsgJlfuHBh1qxZanKOYPfs2bNt27YWD8W1d0yp
7ZAhQ2DdhOqOoipxqKz+YgITiNytZs2aGWbs29J7bhBgN0bHBBoCbG/hhnBj
IFyCOQGGdfft2xdqqpyupgGm6e23327YsKFa9YhP4cxEZCbvxbpCm1FbKqAh
wOIE43Tp0jHW8qwzCYk3C54cg3by5Mns2bN36tTJYtaBoIjKDlxe2rRpUxiC
+lRJDBfsF+8jsubEOnLGjBktHmPlJVghwCL/zcptcQrENvldu3YtWbLEw+Qx
OCdj4fQSPTVweblz5zY80lPkzbq0VYT6L1q0aO/evXh8R37WJdjVOfx2xIgR
DI2Xbos2ea8fc4CRhGzZsjm9U0YNJIERxLmLQ1+9ARsFXg2ktHLlypotSOYw
v3jXlt5zgwC7VL5TaAiwvYUbwo2BcAnmBFjMP8NFDecBcFLt27fHlWiWyQjE
KlSo0Lx5c5MT/JDVpUuXZsqUiQEldFIT4IMHD2JFW7Ro4XSLAVYRsccW8fM0
eLi6hMQ/EG4TYLFPSqGmeHmnUf/Vq1dz5cpVqlSpJ0+e3L17F+OcL18+/Toj
Fun8+fOCNoirjXnMfC7a27BCgMUdQ71797ZOeLCl9CElGx624BJ27NgBAXZ6
iJwCcS0IFTaciKMJgwYNEiNlvQ7x8fFDhgzB+9ji8e3qHNrSr18/k+PpvAR7
CTAe06UjdolEkAeXrgy4ffs2g46Lt3gygxuwUeDVePr0aZkyZUxOLdPj8OHD
2KI9e/YYfmtL79lLgN0YHesE2K6hd2MgXII5AX78+HHRokUZuFOnTum/vX79
eoECBWDImqAePZ04cWLOnDk1O1M0YBDhug0bNmzWrFnLli3FgfZ9+/YtVqzY
9OnTrdyXDQOnBIxqp06d5PVwEhJpAW4TYBE4w6AEr1i3bp1T9vXVV19ly5at
Ro0awg7kz5/f6W6aL7/8ksdmz57t39UlKwQYG4h5VM5LtwLMYNeuXcPDwz2f
EIiLi8OGX7x4UVP+8uXLsdIREREYebpx9+7dwh2LuzNq1qw5fPhwmhYWFrZv
3z7FU/PHnDlz8uTJ41JW29q1aytXrqz5CZwH/jlq1ChlBA8cOMAnTjdA2dU5
lNO6dWv1GfW+gS0EmEIYsj59+hBZwCtatWrFQFsRsG+++QZ5cOkm3/v371es
WNF6GrkbsFHg1SCaJkbWn02BwSEgpesGDBgQGxsbHR2tnEExa9YsCDDCz7dd
unSZMWOGukq29J4hAaaqtWvXVu6vpEOioqKszIfryz99+nSjRo3eeecdxEz5
+cOHD1Hqbdu2pbhCgO0aekcDYRfMCbA48Ttv3rz6u0TRQSKvzJkzGzqpCxcu
MNzjxo2zsiqBr0QfIcBw6ZMnT7q05zo5ORkSvmjRIus/kZCQ8B7cJsCQ2CxZ
ssCssC1QC+y809lCzHLGjBmhVTly5MAOmBwN9Mcff+CwQkJCsEuYC7/nVlkh
wNS5V69ehnmzjgA5hHl67nfEJIbmDiYGhfqIK/P458qVK9OnT6/YXpEAjC8W
m4B27twZFBSk3v+ydetWOt+lwyiWLVsGl9B4BHxrYGAg3Fu5Obdz585W6Khd
nfPy5UtiLkdpgd6D5wSYHtu8efPMmTOVLoUAQCA//fRTp2UiCciDPiPdBDdv
3qSjPNkD5RR2jakGJ06cQFaRWOUTum716tWVKlUS+21v3LhRsGDBpk2bill0
qtGmTRtxzwtPPn36lMBNnQVqS+8ZEmDekjt3biVQRfsKFy5shTEajg7qScPV
Jx5A2jGwonzrBNiuodcPhL0wJ8CoCbZFPw+QkjqRwucoo+HUK7EPoSUG0Moi
kZIDTFjt6kQuNWf0rYyIhISED+A2Ad6/fz8E+LPPPktJ1WvIj1NnIa5CBqVL
l7ZyTBYFfvXVV+XLlx84cKCPp+/0NbFyFTLeB1ZpfdYUahoeHu653xF71lq2
bKnMYmGl4Zzqu+nxSnh8JegQ/Fa5uovP+ad6Y/6tW7doC7TZYh3EZhD9XpLd
u3fzXiXRRczSGF6lqoFdnXP37t1ChQotX77cw3JchecEWJwbpjmm4MqVKzVr
1nR6ogUcD3nArVu/L+zMmTMDBgzwximCCuwaUw0+//xzAmr1PlnMC8I/b948
QSxFxu+ECROE1Il/Kge2iK1b3bp1U35uS+/pCTCSwDPqw1Vg4OidlU2jhuXP
nz8/ICBA2UFMrIcxpyGi2tYJsF1Drx8Ie+H0FAjBwCdOnKhWuvPnzxPO9OvX
z1ES0ePHjwnJM2bMaGUPBcYWX4AXCw4OdulocYQNYXCUdSYhIeF7uE2AMbb4
iB49esycORNH75Sgir1I2I369eu7dCBVXFxchgwZPv30Uz+eMW6RAJ87dy5f
vnxi/dEKYAJ9+vTxnNuLG5/nzp2ruFrxSbNmzURSn0jYVvJgRQKwOi0W4pop
Uyb1VNLPP//coEGD3r17W5w4xXsSp6gPuEv5LwksVaqUMjUtPJThKZ0a2NU5
iYmJOGVNxVJSL2uAP/Tt25eeGT58+I4dO+xdt/WcAF+8eJFQEfet/vDhw4fV
q1d3mkNLW1AZdc87xdq1a8VJzu7V1grsGlM16N7+/fs3adJEKVbcDJ4nTx7l
Gg7Nvd7EfQjhzp07xT/FQa8wc6VMW3pPT4CxmQQvik6Je6WLFy9u5YRqffkw
sY4dO2K9xZkGfMUDRYsWVbZLWCfAtgy9fiAU3Lt3D/s5aNCg8ePHo2tuHxfm
lADThISEBCJ3OhmNZoh5KUq0dOlSR7FMcnJySEhIbGws9rBt27aOknMYMmpO
KJ0+ffq3/ou3336bOItASX9cpIA6CQ1hYDhkArCERNqBJ6dAoMj46Fu3blmx
nCJDAMdknvwJLVm3bp364N9Tp05ly5atTp06JhcBexsWCTBsE84p0kKsFLtl
yxbss+dL80lJSUWKFFEv/IlT0XDiyn2+jRo16tChg7C9dHLTpk3DwsLEnA+1
pc65c+dWCENKqitZsGDB+++/b3G+AidOQKQhDOJFoaGh4kWiTIuT5LZ0jrik
6cMPP9Q45fv37zdu3HjAgAF8TiVx3GiB23dtOHq1hwQYugh1r1KlinoHKN6/
efPmVs7ZuHTpElJh8bY1+pn4xXrs5h7sEng1nj9/XrVqVXX0J2Z0CbQVZhgd
HQ3FVe68WLRoER2rTETv27fv3Xff1WRmet57egKMfkHLV61aJf4p7pVu3bq1
03lmw/JRzKCgIOXm9z179hQrVkyd42qRANs19PqBSEntBKpUvnz5DRs2UE+c
Bc9MnTrVPbJt8Spk4npoZ2RkJAoIDTY5thrNQlTWrFmDkjJY2ED9LaVuwzAJ
zfDYSQkJCb/g3LlzBLCuXrvgHvBHTu3ekSNHsmTJos4RPXnyJAQY/ubHLAiL
BDgldRGwYsWKVg5PwORSIITQ84kX/FenTp3UbnT//v3Zs2dXzo4TVArfhNPE
2v/P//wPPTx69GjRnKdPn5YrV65Hjx6aNdDk5OTSpUvjQaxUA6rQtm1bzS7y
e/fuQTwUfwf9xh3UrVsXeYuPjzfJuLOrc0R6pybpFEGCqxNSCbGnzvi+2NhY
e5cYxEbCKVOmuF0s3dWvX7+33noLjSCW+e23365evUqEdeLECSs/Rx7obbi9
FcKJYBAR2Oj99bBrTDWAX5UtW1adViHuI1OyvpFqJBMDAn1CEpC6WbNmKbn6
PENUXqJECc2VcJ73np4Ar127NmfOnMrBgyI9PioqigqvXr3a5EWG5VNOrly5
Nm/eTPm7d++uVq0aJFbdtxYJsF1Drx+IlNQ4omDBglgAoQU3b95kXMzPWzCB
RQJsEXQg9o3gSISo1IrRcZuca2CYhObo2EkJCQl/we9bzNSAMtWvX//gwYPi
n2K/9jvvvKO/wdOXsE6A8aq4WmWSx/zJJk2aHD161MO63bp1C8qtZPMK0I3Y
9g0bNqSkunJqnilTpt2pSEhIELcD49zF4XUjR46sWrWq/p4IGgt/69ixo9M9
+2Ixd/z48Zr+wSfyXly8GDv+SSzTp0+fx48fT5482eRcL7s6Jy4uDr6tOfiI
TsicOfPSpUs9LNwpaLWHpJqaE9qI9daSJUuGhYVdu3bN+s+PHz8O/4d1OH3y
2LFjdLhLOY2uwq4xVUNcfau5gwDG2zUVYr1j586dBIMEiQ8ePECe+QnBGnRR
RKn79u0rXLiwYU6Oh72nIcAiQ4CaiLN2qSRamTFjRujcgQMHiAdN7Jth+YsX
Lw4ICKA/0V+4uj7z1iIBtmXoDQdC5Dzny5fP8FpAN2AjAU5KSsqfP//o0aOV
hATMEXExI2798HMTGCahyQRgCQkJc5w4cQJPERMTg2WeO3duiRIlFixY4N+8
KesEOCV1LhQO73RD8aVLl4KDg60nGRoCFzNq1KjIyEhN/+BM161bh1+bPn06
nQnpxRR369aNh4UFhu6GhobCQgcNGvTxxx87ugmUz+vVq7d//37zamDkW7du
rbmsRLBiXHypUqXGp4LKTJ06Fac8bNgwDWPXwJbOoaUNGjRQUj3VtVJfh5rG
cf/+fTg83SimgufPn299s9Iff/xBV48YMcI8yBXbqfr27evVgzJsGVMNoI50
jr5M2GDTpk3HjRs3ZMiQOXPmTJo0iVfTFV9++WVKKluDl/bu3XvatGnIraOj
TjzsPQ0BFokZWbNmRaEI6rEnq1evbtGiRefOnXmFyVW8huVTJQLJcuXKIcxn
z541tEtWCLBdQ284EKLJSpay57CLAIutuAiAJgbftGkTKkbU7Plki2ESmuG9
8xISEhJqYCVOnTq1fv36gwcPenVWyiJcIsBUHrKHzzX3mxs3buzZs6eHO68P
HToUEhLiiFTAS+/cuSNegYN7/Pixxoc+fPjQaWIJrq1ly5bmWeKPHj3CvGuO
3xQpjtBs3FZycrKStkpRTtO5Pe8cWjdx4kQYiMbjMIJ8GBgYSNvVn+MK/bjL
0hEYX/oQZ0rf0pNiKphAxvqFBTArhs/8nAGkAjZlfhus57BF4NVAkCCQjtJ0
EQBiB0XqiIY0NIyfO41SPek9DQG+fPly7ty5V61ahUFDHZT0e5TXnBS5PTpW
CLAtQ+9oIMTVbB07dlSbHXrDpStd1LCLAFMHhl5vn/n83r17JsGIdeiT0AoW
LLh48WKRhJamVl0lJCQkTCAIcPv27b/88svTp087ndDggX79+m3YsMFkJmHn
zp3Kefju4fbt2+3atfNq3mZKatvx2hERESZu68GDBwsXLtT4cVxJoUKF3DsV
38PO4Y3QLYbAkGnDZyDAygwwDyclJdFAW25wthHXrl2rXr26Mj+J00xISMiT
J0+GDBlWr15tvRwkJCwsTDksSw/I2Lx586ycReAJPBd4NZDGIUOG2J65rYfb
vachwNAe9QnA1uH26FghwJ4PvclAiPWpBg0aKAbz9evXs2bNsnJmpgZPnjw5
ceIEHLtixYp25QB7FfoktMyZMyP/IgnN37WTkJCQsArM9cyZMwnhAwICypYt
a+UQY6jXokWL7F3wVQO2uXLlSnuvlHUEmr9t2zbzpAU9IDy5cuVy6SoNu4C7
hJA7mmf+448/li5d2qxZs/nz54sUEf7w4xkjhhB52p07d9ZMmZ4/f56wQjOr
5hRwaaTl77T8euTIkS1btvhm0t693lMTYJEA7NItOZ7D+jFonsB8IH744Yfe
vXv37NlzyZIl48aNoxNggK6OGh24fPnyAgUK5M2bt3jx4q4aIr/AaRKahISE
hMTfFRs3bgwNDfXNASNuAD5z584dRwd4+h3w3latWk2ePFnDFsTBbsrJchJp
FlAg2E6jRo0+//zz5ORkWJDPDjPn1SdPnly8eHFgYGBauHcMKn779m17779+
I2CehCYhISEhISGhgZgz1N/gLC6U8eR0NQmfYdeuXe3atevYsaP6YHMfANmI
jY1t27Yt8uPSrUMSEhISEhISEv4FrKl8+fL79u1Tf3j+/PmwsLBHjx75q1YS
EhISEhISEhIS3kNSUlLNmjWHDx9+6NCho0ePTp06tVOnTt7e9ighISEhISEh
ISHhR7x+/RoaPGfOnAULFnz11Vd/p41sEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
fsGvv/6amJg4ePDg/v37JyQk/Pbbb5oHfvrpp9WrV//www9+qZ6EhISEhISE
hISEXfjrr7/27dtXpUqV+vXr9+zZMzg4OGPGjMWKFVuzZs2///1vHvjzzz+T
kpIaN24cHx//n//8x9/1lZCQkJCQkJCQkHAfUNzZs2e3a9fu1q1byofJycnh
4eHQ4EyZMpUrVy4gIKBJkyaXL1/2Yz0lJCSs4OTJk5MnT46MjDx16pT+22vX
rkVFRUVERBDz+r5uCjRxNDG4jKwVaLrizz//9FdNDPHtt9+OGzcuNjb2559/
9uqLaHhiYuL48eNHjBhx7949r77rbwbc+tKlS6dNm3bnzh1vv+vKlSuYlMGD
B+/Zs8fb7/IS/h7mSF9nD03HP0HTX79+febMmd9//13/1YMHD+Lj42NiYi5c
uGAoD69eveLboUOHzp07V58yISEhYQvQvujo6PLly6OSmq9+/fXXrl27tmnT
hj/EJ1gtLEnWrFmPHj2qL+r58+fz5s3LkiVLQkKC1+vtAP/617+aN29eqVKl
nj17QsWpfO3ata9eveqv+qQp0A9FixZt0qTJJ5980r9/f7Eq98svv/i7Xv8P
jh07liNHjoEDB/7xxx/eews85MaNG506dQoMDLx//773XvS3BJoeHBwcFBT0
9OlTb79o4cKFmJR169Z59UVewt/GHC1atAhNad++fWRkZPfu3atWrbpq1SqU
yJMypaabgDDzwIEDJUqUwAV7tX8kJP7JwD7s2LED4oqt1nyFDuJ9tm7dqoSo
/DFp0qRSpUrBhA1LW7FiRb58+a5fv+7dSjsGXB2P8+6777711lsQdayHevnp
H47Lly/jBTJkyEDnFC5ceMaMGd6efnEDv//+O2yB6t29e9erL0K8Q0NDP/zw
Q73kSzjFpk2bMmfOHB8f7+0XxcXF5c2b900kjSl/F3OEj8ARZMuW7e2338Z6
1KpVa9euXZ7PY0tNNweiEhAQEBMT4++KSEhI/C8wIE2bNsWYiAR+DQhUe/To
UadOnVevXjkqAVt69OhRqNf06dNh3Y8fPzZ87Pnz58nJyW7UEI8zZsyY7777
zpeL+y9fvrx586bPXse7fvzxRzd+CIug2xmmtJb5oMG+ffuyZMmC5ddPMd25
c+f777+35S1PnjwpXbr05MmT38QlaQ/htggpePbsWYUKFWB3elJhozogqH36
9IFxUaYtBboH75kjG+XZKSCcly5dcmM6ETUkDNm/fz+a4uGsrwa+13Tkdv78
+VFRUVjCgwcP2tsce0GMmTt3bsNsQwkJCd/j/v37gYGBs2bNMrQbuIlKlSpF
Rkaa8CtMEA8UKVKkXbt2vXr1MpwP4cPu3bvfuHHDjRoqHseN37oNOMDIkSM3
bNjgbXNK+V988cXQoUOVpBSXIAhwGme/AG5Ws2bN+vXr6yeob9++TZBlyxLD
sWPH8C9pKrmUoXn06NHDhw81LAUBs2vUPBQhBSjyxIkTc+bMee7cOc1XNqrD
ixcvqlevPnDgQD8KrVfNkY3y7LQmDMq6devcGBSFANteK99rOi7s448/DgsL
K168OH+YyBWt5u0rV67E36EyPj6jDP0aNmwYMabP4iMJibQMfMHy5csxpzt3
7nz9+rWjxzB08+bNW7FihdPczt9//z02Nnbw4MHt27fXLEKdPHly9OjRcFR0
UD3Ds2vXrly5ch0+fBjjcOjQod69ezdv3pxChFE9e/Ys3+L4TF6KXvNG/K+j
abenT5+GhoYa5hhbgfA4x48fnzFjxqhRo6iMh44e0Dm1a9c+cOCA+Cf9FhUV
tWTJEnUTMI8dO3b09u4/6oDpdtskQoCnTp26d+/ecePGTZo06cSJE2lz8hNx
mjNnznvvvYfn0n/71VdftW3b9smTJ26UzG8R2iFDhgwYMKB///6FCxdOC2mB
kN6ZM2fi7AICAmrUqFG3bl2886BBg4goU1IJGJroXnv18FCE1Lhw4QIEGFnS
S5En6gBdHDFiREREBAM0ZcoUqIsfE4B9YI48kWeLwGQRrWC13MsmFQR406ZN
mHpYNP5Fv2HEPfhL03kvHdK3b19HBJiXQo95YM2aNThchLxUqVJU1XDp0yl4
y7Jly8LDw3v16kWZ1Kdfv36Uzyfjx4//6aef9D8hIvjggw+6dOliuIdOQuLv
BygrhPOjjz56+PCh5is0CIXNmDHjW6lo1aqVIxe2ceNG8Ri01jzlKTExEe3G
lBUrVgz7pnx+8eLFyZMnY6gJ+fPnz3/mzBnxuUgALlGiBD9Zv379qlWrkpOT
MSzdu3cXdhXWnTdvXvOY3ZwAQ+yxDxhqt4kZTYYt4HTon99++40/PvzwQw+3
6sTHx+OF6RbxT5pPqzGGmrmU06dP16tXz72lUiuAh0ONYK1ul3DlypVatWol
JCTQz7SiUaNGDHTaNLA3btxA9iCBeg+FbMyePRvv5tLmaAZr9erVlSpV+uab
b0T5BQsW9HtaIL6PkCRr1qwtWrQ4cuSI0lj+gG+gwgxZw4YNoQHueV4NPBch
Neh/DFFQUJDhDKd76kCMVr16ddgCo0z5kE9U79q1a7ZU2FX4xhy5J88uAZUP
CQl58eKF2yUsXry4efPm2EAkc8+ePRUrVjx48KAtdfOLppsT4FevXvGVRk0u
XbpUpkwZDKZ7ixGoHj0WExNTpUoVvDNNJibatWsXCm4YlYgE4CVLlrjxLgmJ
NxEY/1y5chUtWtSR18BdEoCLTUxwSL3ioNdYjHTp0vGAo7BaANuOAmKKt2zZ
goshXhafUyYBvjjgCDeUL18+Ze1PJAA3adIkOjqaoJh34ZSTkpJEhC4SgIOD
g00SgFOcEeAdO3bA0Dzhq9SK8EGxUY8fPy5ZsiSd5vYSKj8cMGBA1apVlSUw
rFbOnDkPHTqkf5L4hYe9QSkpc+DAgZGRkZ7sCMaPqKdTGHoaYpcjsxcEX9j/
4sWLG841PXv2rE6dOtu3b7de4NmzZ4nOkG0Rtnz77bcIxpQpU/yYBHjz5k28
Ic1kIAzVYd26dSgguoxSe15PW0RIDZQLck64TdCt/9YNdcC+NUmFWL2inr16
9apdu7a5SfEefGaO3JBn6+ClNWvW3L17tyeFQOCViUoxLphEW9YR/KLpJgSY
r5YvX85LlZkfBStWrMBgehI/ihlvNLply5bmekH8Cxk4efKk2++SkPAlUDQU
xJMoHmW8fPmyWPd0BOHF0KA8efIQPBo+A30l3ocnGzomNWCwHTp0MEzBwsp1
69YNO6DYPZEADLtu06YN1FrjRkUCcEREhDnVNCHAuDn86dy5c23kJJB2/Gm5
cuXczgp++fIl7qN3796ivVR7woQJmGvD7XuXLl0qVaqU2wumJjh16lTp0qWV
WWhbgPxgz/2bYKkHow8hbNGixdKlS7NkybJq1SrDZxYsWEC0ZTExjwZ+8skn
apU5cuQIcd/evXvtrLorYEALFy5MtIu/dvSMyIClE6itLW+0UYQI0jEysbGx
ZcuWbdu2raHdc1UdCC3ffffdRYsWCQtA82FZhnODVkCn7du3z21j4ktz5Ko8
WwclR0VFNWvWzN7TDqltpkyZPCTVftR0EwKMT2zVqhUedtq0aZqhJ2KFWvfv
39+KQPLMkydPNLPuFIhEUTg+VEOAf/3110ePHolhEgnAQUFB8H8rrZaQ8DuO
Hz9er149H6Ss37p1q2DBgihRdHS0I+MMkca9JiUlmRd19erV/PnzKx5HDRpS
oUKFIUOGKMqOuYMv7dmzh5gdT4r1UKciiwTg9evXm7/RhABTMqG6J/vHxZnG
rVu3VvwLNcT4FypUSJ9VYhEYUsypYpwxU7gwXmGYhg0NCAsLw0Lae3IjQ0Bk
ERoa6kl4hSkm2JkyZYpStxs3buAa+DDtnDPJCMbFxdWoUYO6UeFq1aop84Ea
oAVIy44dO6wU++OPP1KmEugh7cgJCmJXKqOrgD3CG7Nly2Y+/S68Oc10dOqg
ddgiQgowL/TnmjVrKHbMmDFIEVxX/5hL6iBCyxw5cpw/f1588s0336B6Tk2K
o9ImTZoEi3A7uPOxOXJJnq2DV1euXHnFihWeFPL111+jO2pvEhMTkz59ek9y
s/2r6eYzwIRs/Eo/EwUdLV++fJUqVaywcdhvly5d0qVLV6dOHWW4DQkwlHvs
2LH0J14Vos4zIgG4c+f/v70zD6riWPt/1BAj7goq7kbELe4iJsGNENcoonEl
ufiKC16iuIFxJ6iJu7igBgWXGATFLa6VmMVdAxV31DKupVFTaixzrdxb773F
7/Oj606d98ycYc6Z4QCmv39YeM6cnp7uZ/k+PU8/PaBw5qdJSKjhNgKMvqAa
KFHfvn0dKcj169fRIP36iihafHw81vjy5cvHjx9XNnkJHDt2DEL75Zdfiv8K
hyJWPvl7/PjxYh0Dfih2B4sEYBg11kNJqFDDEQEWGRQ9evQw46AZjdDQ0Nat
WxNKi0+ePHkSEBDQtm1bl8sorV+/HtqvvIoSy+CzZs1iopOSktSeffny5fXq
1bN2axWPgwugZTONXLt2DUfA4Csyc/ToUTgY01pItsKJ9BtGD9nL+a98litX
TvM9IHKCtAwaNMhIcqyI5j766CMxX/ykT58+UBEcDSzOzfusnz59+u6776K/
uGD9kWcEZs+eDYfU2fRqEJaIkADTgaeGIQjycPLkSRRkxowZmsG4cXWgNYST
ixW2v3btWm9v73Pnzn2fC6c6aZIAu98cOSXPxoEBx165VsJCAYYO265QUCZ6
5syZZcqU0bHz+ihwTc9zE5wmoMRNmzZFJg2eKCeS2NF0RTs0CbDQIEZYJC3n
/DcBeMmSJbBoEWYa76SERIHAbQQ4J3dLAkqkE4pu3rw5LCxM32/ybdeuXfv1
64dHhtHZrXUQ46ODyociARhDxK/Qx1GjRvGwmPGEhARxmGNsbGyzZs1wXii7
zhmpjgjw3bt3/fz8HBVYM46vvvoKi6E0gomuVq2ayyfT8aQRERFYZmGoMaf0
3MPDIz09nXghOTlZ3dtTp05hylJTU808hR22b9/OXCgrY64Bazxt2jTlQAHG
n5lizPO7Cr1BMLYwlsqVK9uWDjh//jwPHh0drSaKjDzSYsuX9BsflAvhdDIy
MpjTqKioX375Zfr06e48aZRuJyYmvvrqqw0aNMjzrQQXx8XF6bzoMQ5LRAjs
27evatWqEydOVNw3lgGz0Lx5c83cLafUISUlpX79+mKxjsFp1aoVfAMOwCA4
e36ESQLsfnPklDwbhDBfHTp0MHneTXZ2NuZdWZ797bff3n77bUima3FZYdB0
IwT4+fPnGHkc3NatW0UqAh2oW7duxYoVje/KXLBgAZ66e/fugr1rEuD169eX
KFGiY8eOygjDJaDZ+/fvT0tLU9agJCQKM1wmwHgQfNywYcM6d+4McTVicnFD
pUqVIrTX9KGPHj167733duzYod8Ipoa4OzAwEHeGoba9L+EzNgQrp1hO4REW
LlwoLjtw4EDLli3HjRtHIC8U+fDhw61bt8bjYDH06wBrEuBDhw5hWBz1mQYZ
GQg/hoKnxobY2V4sksiTxMTNmzcPpnfw4MGlS5e2adNmxYoV6nXazMzMPn36
eHp6lilTZsiQIXYJvTw1t+MW4oUa1zCzGGF6npSUhDUbMGAAtlpzd8y9e/cY
qEmTJlm1rEo7EyZMoE1Hacx0Evfk4+MDrWrbtq0oUqd8y994ASEneIHIyEgI
GNPHFPBQgti71ppBGBxqmhUpNLa3Q7Tws8y45ptoUZTPYIrphQsXiOBiYmLw
hkgILjggIABxRW6NP4t5IDONGjXCAxpZeGcooEzm64pYJUJCtsPDw+1KZ2zZ
soX5XbNmjdp2OaUOUA4i68GDBzM46NrGjRubNGnCHBHvO5ulY5IAu9kcCTgl
z0bw8OFDrPSIESMcDYJB3WRaIatMDWIAG8QAIgPqeKcIabo+AX78+PGUKVOY
LCIvFPDrr7/G2u/atevMmTMVKlQgADT+gi85OVlkQYiNnJoEGK/KJwyd8glj
S1AZFhaG2urvCZKQKCRwjQCjgMg/VoU/xo8fT5zr6HA0W4jtS9gE9bstrCvu
pmvXrkaifvSRqFZ9pXiRBL9V3BZXwqttvRgabccA0d88tdURAYaV8TiaB54S
O2MHMCOvvfYaPhqnw9+2tYm47+zZs5WonK5eu3YtNTWVCFoz8wFTxugVK1YM
U4a5xvh06NDBdrfCzp07icppJysrq1KlSqtXr+ZbeIiI4pkpBs1R8onY50IA
YtW6otiUQZuaBbtu3rzp7+/PI5QvX75y5cr8YVvTQ1yAqVeqj9LtEydO4IlO
nTqlfgRnW8sTxocaz6ipO3yOkGveEWmhceNHhTJxeC5FJO7fv+/+k6B5WEgm
w6s+PyL/YJUIMU2ah5oJjdOMB11QB+YFGyjY0bNnz1zbvmqSALvTHClwVp7z
BCbL29sb/6L5rXHdFP+l83v37k1LS0OJ1JFO0dJ0HQIMAydq6Natm608I8bM
6dy5c1HeN9980zgpTU9P9/DwUN7Vqgmw2KXIJ8R9tpERnzNKhWd3hoSEPlwj
wKgbmvgiF7169cIBGXnZd/XqVS8vL2yCeu/J9u3bq1ev7sIyAhrHI2DHsOS7
d+/GCeZHgSxNAszfEydOrFmzppIsZ9urtWvX+vn54UGENYB4E54TKShrBQTm
xmu886vGjRvTgjgKFgO4bdu2OnXq4PLEBZhKOiPKha1bt862ArARiMXzVq1a
mam6aQuxF37gwIHqB8QsDxgwAFutbHnm6YKCgvr27Sv4BqO3atUqg7UOrG0t
x8mhdgFIS61atSxcbM9viMoqODszSekuwG0ipIbl6mAQZgiwO82RLSyX50OH
DpUrV04z48Ja3Sxymu6IAEObmzRp0rx5c3W6BZ6Rr1DekJAQ43vTcMSlS5du
0KCBoNNqAiwKPvDJ+PHji4odk5BQwwUCjDosX75cvGi7fPmyj4+PwXytGzdu
1KhRQ72OdP78eV9f39jYWE2zTyCsU/afnjdt2hTHR7jdrl073Ie12zEENAkw
vQ0PD9c89pEnDQ0NtTtcA+eCsV2yZAkDyN8zZ87UqSVlC2zOuHHjbLPyBKD6
0AOx+ICvX7p0KReIDLrWrVs75bvFXh6Mv5GVfAG4B4/ArzSrNuE13njjDc0D
ptPT00eMGGG3dfrevXtY16ysLPFbrKvBMqrWtubUUBtpUA3xnmLo0KFFZZ1E
lDXD2YWFhVnb50IiQmq4oA6WwAwBdps5soOz8ix4ZkxMTHR0tOZL+bS0NAiw
+jw+a3WzKGq6JgEm4uvfv/9rr7321VdfqX9y7NgxBhPlFUcg4RwTEhKYa50N
Lzm5WWd4auVtgpoAv3jxomfPniVKlFi/fr0ljyYhka/ABmJ2UlUg6ifQW7Nm
jfqrr7/+WpPWog7ipQ9/YB+KFy++aNEiI1ZCZONXqFBB2Teak7vNn9C1S5cu
motLGG34rc7RGLiMjIyMCRMm4LAOHjyYTztPNQkwZg3LY3vYhILk5OSkpCT1
mGB2Ro8ezdBdvHgRwm9wOwZRht3hzgJYMz6HRYjTmoRN40MIcHx8vFOBORfT
QtWqVY2X2Hrw4MGCBQs8PT01T5EWwQ7zYtcNuorj0zx3b8OGDStXrmTQGD2D
eyisbS3HyaF2DaJ6UkhISP4RYHQKfzfdMGBBOq9HIYG1a9fWL2DoGgqDCGnC
BXVwtv2TJ09u3brVzuTCYYjlu3XrtmXLFruvuPj48eM69s1t5sgOzsoz3WDu
+vXr56igX0pKStmyZdVFpK3VzaKo6ZoEmEihVKlSfn5+msk8DGPp0qVtF51Q
uoCAgMaNG+sclcIgIEvw2y+++CJHiwATuWATUE+G0ZJHk5DIPyDAuIPOnTu/
owL0smTJkv7+/uqvlOUUR4Aed+rUqVq1agY3O9+8eROjR1ypOK87d+60b98e
5dVs4dmzZ7gD9Dc/zmhwCpoEGFOAcdNca+UTzYVoUTsRs79ixQr1oWyOgCl2
9OoZ5oBnPH369Jw5c8yQf1EQw3ipHIHExEQvLy/NzcVYSPgDD2vHXvjvr7/+
qsmj8DWYd4YOv2OwlLq1reW4ZajFFkV1SXkLsXnzZrTmFcNAhX/88UdHrYk3
ucS58Kg8bw2jWLVqlfFMiQIXIU24pg7GAeeE2AcGBqqtro+PT5UqVd5++227
z7kYE6Tzos1t5sgOLsizSJwLDg7WfLUHVy9Tpox60cNa3SyKmq4mwFBr/osK
KyXU7MDMFitWrGPHjraSQ3gFZ9ZX5++++w7ajNQ9efLEjgCLMsUYBLRM1jqT
KNIwUwbtyJEj5cqV++CDDwxmHQiPpmxH5aZBQUFYe806imgZ4WdERIS1W4xd
g6MV4EGDBjm1uYCfL168ePfu3fgdS9IpGToaxDqpCyM4BToWHR0Nz1EnEDqC
/pGvgjU5OjxaE2JT/44dO5YuXWo+r8za1nKsG2qkpXnz5nabRwozRJaRwRME
Tp06xbAb9PiFVoRcUAdLYCYFoqDMkQvyrH+iN+Fb2bJl8zwOyRZW6aa1rVmu
6WoCLBaZ4aJiqdYO+OXQ0FAPD49169bZfk5s2KRJk27duunkFiIbCQkJJUuW
hOUSsNgS4P3791eqVKl79+55ZtkhVGgiqsTP3Vm2UULCIFwmwGLPBcolqmWi
knl6vbNnz8Jm69evf+fOnatXr/r7+3t7ezs6L5UAPC4uLj09HV0rnASYRx49
erR4HONNEXdHRUVhryx5m3z58mX6gI0yXuJAEzzL8OHDdUpOqfHw4cMWLVo4
OpJYHD8UHh5u3JVjZpEoxllzG7uzsLa1HOuG+u7duw0aNNCp8lTYINyokkao
fyX8TTOe1UShFSEX1MESmMwBLhBz5II8Hzx4EEewa9cuzW8h5OXKlcPyG++D
VbppbWuWa7qaAIv0JIbr6NGj6uvPnz9frVo1GLJdTISY0U6FChX0i7pwO7hu
x44dg4ODe/ToIWr4c/c6derMnj3byCnVGARaQCY/+OADeTycRCGEywRYRJF4
KOEjUlJS8izh+8MPPxDat2nTRihF1apVHSX3EjnGxsai3aKwQ+EkwNgHKEHl
ypWdyoNav3598+bNrUqdun79etOmTe0CfBeAderVq5dtVXMBJpf4PTIyMiIi
YtmyZVOmTFFeCp86dQoTOnToUBwo34aFhdlm9NEOrSml1A32YdCgQbRjyVqB
o9aIvNq1a6ccIMhls2bNMrJgaNVQ0wHivjzJZKHChg0bCHX1l4xycvem8Vx2
7r4oipAjdchvmCHABWWOHMkz1p7ghZkdOXJkYmLiZ599phTomDNnDgR43Lhx
fDtw4MC4uDjb+frpp5+QCqfOQbZKN61tzXJNVxNgUbDay8tLfTAQ1xAMlipV
StMvnz59mkGOiYkx8qIEejBs2DAIMFya8NapbebZ2dmQ8MWLFxv/iYSE2+Ay
AYbEenp64tdQNNzE5MmT81x5SEtLw41iosuXL49ScGvNy8TLF1HNrDATYLB1
61bMiM4ePTWWL1+OzbeqVMXFixcJKMzs1BAg4qAdu0Sys2fPtm7dmg7z1OJ8
TNsqozi1EiVKTJgwQZyyh5sbPHiwso9GvN12qhgFvw0JCbHKizlqLTk52bZG
HIyrZs2aRpyUVUP9/fffIzNIjsl23IknT5506tQJfXe0asfo7du3z/bgLYEi
KkKa6uAGmKwDXCDmSC3PCENSUlKzZs3EZucLFy74+PgEBQWJ6Ik5ev/998WB
HVx59+5dGLhtPurt27fr1aunzv3WgVW6aW1rlmu6mgAzcQMGDOAu6qKXhw8f
5nNkSXPpFWXs2bNn48aNjbzjUHKAiQqdXcgV73B1thhISBQgXCbAX3/9NQ5x
7dq1OblCLnyc/k/EUcjA19dXp+TODz/8sGDBAuF6CjkBvnTpUtWqVVetWmWw
HbF9wMhmIoM4fvw4tME8nb569Wr16tVXrFihfPL06dMuuRCURrAR/IKomSn+
q2w5F5uGateubVs2auXKlQyO8cUl7hgWFmaVF9NsTbAs253yeGHchJEdQFYN
9RdffEH0pz4LppADVtCwYUOEJCMjw04LsB745YkTJzLmtp8XXRFSq4N7YJIA
F4g5Ussztt3Ly2v+/PkiqBQZv1OmTBFiI/6rFPcQO8UIfJSfw5B79OgBPTNe
lcIq3bS2Ncs1XbMKhKDZfG774alTpwgihg8f7uiVDVrWsWNHDw+PzZs353lf
SC/uD8cdEBDgVHVNpphAplGjRmZ2pEpI5B9cJsCPHz/GTA0dOvTTTz/FaOf5
rlDsK0GJAgMDdYoL0RP8oNKfQk6Af//99w4dOoSHhxtcKcKojho1yrYKnEms
X79eVPI02c727dux1bYdgxm+/vrrixcvFo2LUwmUfDaRvRkRESH+i4Xs169f
nTp1bCuxnzx50tvbOy0tzWAf4C3Dhg2z6qWzZmsIbdu2bZX5Yjbxy3Xr1jVS
7tWSoRZVmhVOaItr164hY6NHj0b+x40bVwjrCzFKAwcOfPXVV999912I07Zt
2yCoDDKPwyyrOVvRFSG1OghAJ4jNYSCwfeaIEbA2j8UkAXa/OVLLM58wxZUr
V1bOKLE7oPngwYMQNsIo8V9RcpawRWmTIY2Pj69fv776WAdHsMoMWtiajqa7
LEWaBJgPN23aRODDvNMUA4sN8fX1TUhIcBRBZGdnd+3aNTEx0c/Pr0+fPo7y
hZAiukckWKJECaViTLFixYhuCE/U1fYEUGQiRzoZGRk5adIkf39/mQAsUWhh
pgoEUn3mzJlLly4Z0V+x4INt1KlOTzuLFi2iP2H/RefOnYsXLx4UFDRmzBg3
78i2hSMCTIcXLlz45ptvGoxwoRBEDcYNuz4YUvyXcXrgCOJYH1iNYqsFMyxf
vvypU6fEJ3hJIhGl7Pm5c+fwccrWYx6/cePGtGC7bYS/g4ODRZKMkW6kpqZi
uq166azZGk6Zbq9evVrpIR6qV69eea41WTXUDx48gAR+/vnntirD39CDRo0a
bdy4kZFHobhmxowZhTNJ+Pr16zi4qKgoBgSi4qg4bdEVIbU6CPDgmKORI0fy
ORwGeoOlcvmsDUe3NkOA3W+O1PIsVnQDAwNF3S2xyAzFVc68ICAiuFBW6ffs
2SOiJNtmMzMza9WqZfAgP6t009rWNDU9x5wU6RyFfO/ePbQSL4n8QIPFSxZN
ZGVlMUHr1q2jEQgqKqk+mNVl8FB4eSJZ8TJo1apVkGeiCaval5CwFidPniSa
09EXC4FJzNOni2OJFKDUnp6eBw4cKNgt844IcE5uNE24jc0x0g4mnYjbkq3K
ObmcAVtq3nyJNDzbzElxEla9evUU57h27dqKFStyr+9zAavBqSkVPDIyMsqW
Las+vRR607RpUyPb0rkjw4v7toT1OWoN9lWhQgWlTAHOiKeYNWsWAWBSUpIO
cbJqqCG6fn5+du/oadbHxwfGK6Tr4sWLOBH9DdqFH0VXhNTqkJPr2eGK7du3
F6YSFYY8JCYmWnsOrNjINn36dJebdbM5UsuzOP5MSZ/+888/uUWnTp3geAwp
PG3OnDlKXjfXjBgxAiGxOxKOgBQSBTk0EstYpZvWtqap6SalSIcAGwSmD/Eg
JBEtYGSwh1bF2jQyd+5cLy8v5Z3C1q1bIdjGy8JISLgfhbkckyDABw8eLNhu
6BBgPsFh9e/fP8+N52JNLDY21iqn+e2333bp0sWppCxNrFmz5q233rIrlZOS
klK/fn2RrHLjxo1WrVo1bNjw1q1bcXFxly5dwk20adNG+FnIib+//8iRI9Xr
qPQN36esuOqAK3kWq3JdNFsTLyXLlSsnynvimplQDw+P9PT0vXv3Jicn63gB
S4ZaHFpqVz1epCV7e3trHm1WpFFERUhTHXbu3FmqVKmEhASTjecJhNBkBWO3
mSNNeUatBuVCvPUmrkHjRo0ahRjQMX4C60YSRESzZ8+emjVrap7h+9133xGG
EAzm2Q2rzKCFrWmOTI5pKTJJgPft21e1atWJEycqCQl//PEHhJxxNl47WgdE
jnD+4OBgEVKJQqkyAVhCwgWcPXt2wIABNWrUeOWVV1ArtN7NNTltoUOAc3IV
/5133vn666/1G8Es9OrVS5RNNg+MoUgkM/nCF+vUoUMHJSVPAb3FbQ0ePHjq
1Kk8+8aNG5s0aTJ27NglS5ZwR+4OdenevTshf2hoKD1xtGcEfxcYGJjn3GVm
ZgYEBFiVHKLZmng5W6ZMGSZrzpw5PFRSUhKPgJhFR0frHAxq1VBDs2FWmr2i
SzqHfBVRFEUR0lQHJZ2jSCzLu80cacpzTm7Zh6CgoJiYmKioqHnz5jH7zAvz
fvjw4Zxccjh58uTw8PCZM2fSAUc1K5AQfoJi6pM9q3TT2tY0R8a8FJkhwKJg
GsNuty1uy5Ytnp6eBH3mF4GJWbCu8fHxoqlnz54RumJdZQKwhESRhj4Bzsm1
eITS+qnUN2/exCCoCza6Bkz0sGHDTO7gxpBiUSdNmuTIRsEHbt26pRg0OxKC
Lf3ll1/0rTEtx8bG4gT1L9u8efOHH35o1T5uzdaysrIqVaq0evXqR48eZWdn
i2/pFX5K30RbMtTIBmRPndYoznLq37+/rc9lwPUr7hYhFCERcqQOaD0fEozf
uHHDrvPWpkBYBTeYI0fyLMBIXr9+XTldDhmwi+/4eZ4RDUyep9Cv0GKJblrb
mqORMS9FZggwv2XA1T/k82vXrumE/8ZBzFWuXDklpLpy5YqPjw/RLrMvUo7N
30JCQsL9EAQ4NDT08OHDx44dUy/WcQHMKjIyUoe34OgXLVpkVTiMo58/f76R
8gWOgOmDMwwfPtyuepXlYLi4y8aNG3UWGTIyMpTDKcxDszWMsG0FYOMwP9RI
RVRUlGayH35hwoQJHTp0UITqxYsXc+bMMVJX8K8DN4iQvjpAw6AuytqdqHuM
vltyoLnlyG9zpCPP1iIzMzMkJOTSpUuOLjCvm9a2pj8yLksRzeJ38D5DhgyB
ohdOMgmR9vX1RUlzco3Yxx9/XKpUKVRy586d6tx+CQmJogKs2aeffko8W6VK
FT8/P80ixlyTlpZW4OnKxnHnzh08YH6zXwHusnjxYqsyHFyASAB26lQFC3Ho
0KHU1FRHbOHhw4fh4eEffvjh0qVLY2Ji6CcuQ7JfO+S3COmrw7/+9a+EhITg
4OAFCxbMnj2bOeIP9+iOa8hXc6Qvz9bi3Llzq1atKiqv0fVHxmUpOnv2bKNG
jby8vHBAn3zySeE0DvD5lJSULl26iEeD9PKkgwcPJsCXacASEhISBYU///wT
mxwfH184fUdO7mlrly9ftuQYaIl8AjTsypUrjiqgSkgYwcstRc+fP+fpRCYS
hP/WrVtuPk5RQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkLipcTz58+3b9/+97//PSIiYtOmTf/4
xz/sLnj69GlSUtLDhw8LpHsSEhISEhISEhISVuE///nPnj17WrRoERgY+OGH
HwYEBHh4eNSpU2fdunV//vknF/zv//7vvn37OnfunJyc/O9//7ug+yshIeEQ
R44cmTZt2pgxY44ePar+9ty5c7NmzYqMjETl3d83BXZmBBMkDYsCu6HA/BZU
TzRx+/btmJiYxMTE33//PV9vxINv3749NjY2Ojr62rVr+XqvlwxyjpzCy2GO
1H02aTr+ClIExZ07d27fvn0vXbqkfJidnR0WFgYNLlmyZMOGDatUqdKlS5es
rCy73z558mTZsmUff/zx559/rl4xlpCQsARYts8++6xRo0a//PKL3VfPnz8f
NGjQ+++/zx/iE6wWlqRMmTLffPONuqkHDx7Mnz/f09Nz06ZN+d5vB/jjjz+6
devWrFkzwm2oOJ1v167d2bNnC6o/hQqMQ+3atbG3I0aMiIiIEIsSz549K+h+
/R98++235cuXHzVq1L/+9a/8uws85MKFCx988EGNGjWuX7+efzd6KSHnyCBe
GnO0ePFiZiE0NHTMmDFDhgxp2bLl6tWrmSAzbb70UvTixYvjx4//85//VH+F
t01OTobinj59WjMggjzv3bu3Xr16uOB8HR8Jib8ysA/btm2DuGKr7b5CBxct
WrR161ZFQ/lj6tSp9evXhwlrtrZy5Upvb+/z58/nb6cdA66Ox3n99ddfeeUV
iDrWwzb6/osjKysLL/Dqq68yODVr1oyLi8vv5RcXgL+ALdC9q1ev5uuNEO/e
vXu/++67asmX0IecI4N4OcwRPgJHULZs2WLFimE9/P39d+zYYX4dW0qRPhCV
KlWqQJILuiMSEhL/HxiQoKAgjInIX7IDgerQoUPbt2//5MkT9/dNAI8zadKk
e/fuFbaX+4UBZ8+enT17NtNUyAdnz549np6eWH6TS0z6uHPnjq+v77Rp04ri
K+kCh5wjI3g5zBFTvGbNmq+//ppZsHa6pRTpYMuWLZUqVdLMNpSQkHA/rl+/
XqNGjTlz5mjaqwcPHjRr1mzMmDE61p4ffvPNN3FxcTCx+fPn37p1S/MymsrO
znahh4rHceG3LuPx48cXL1502+2412+//ebCDwUBLvy+mKdr27ZtYGCgeoH6
ypUrv/76qyV3+fbbb/Evu3btsqS1IoR//vOfmZmZJt+r/qXmKP/MkYVjlSdc
nneFAFveJfdL0f379xcsWDBr1iws4f79+/OVeJsBXH3s2LFNmjRxm3hISPyl
gD1MTEz8+9//HhoaavcS6siRIxMnTuzbty86aPvaaMeOHRUrVjx48CB248CB
A+Hh4d26daMRYUZOnDjBtxs3btS5KXoNQ65VqxaNf/TRR5ovBPlwyJAhFy5c
cOGhhMf57rvv4NgTJkygM0oCs8tgcNq1a7d3717xX8YN+7l06VJlPYEhGj9+
PPfKb3NK+19++eXHH3/s2kNBgGfMmLF79+6YmJipU6d+//33hXNJhMecN29e
6dKl8Vx2X12+fHno0KEu59j88MMPCG1UVNTIkSMjIiJq1qxZeJJLeeqHDx9C
tOwmF8Zi4S4YGkdWU1JSTMrqX2eO8tUcmRwrp3ri8rwLArxlyxZMPY3Mnz9f
vWHENbhfivj3b3/7W0hISN26dflDf62Gu69atWrOnDlYXTfXKCMiePvttwcO
HKiZQiwh8VfDo0ePVqxYgTnNyMh48eKFo8swdBiolStX5rm5afv27evWrcOU
1alTB/umfH7mzJlp06bRDiF/1apVjx8/Lj4XCcD16tXjJxs2bFi9ejXOGsOC
dxCrCtzUy8tL32TRCJQbCueIet29e7d3796am+yMAC4KtWaUCJyhDfzx7rvv
0qZrrQkkJydXqlSJYRH/5fF5auy2rSvBPPbv3z+/y19AwjHdLq8J/Pzzz/7+
/ps2bUJ+eIpOnTox0YXTwMI3kL3Ro0erPRSurU+fPnfu3HGqQSYrKSmpWbNm
P/30k2jfx8enMKQF0gFmJDg4GBlr1KgRk1K/fv2goCChd3yLB0flLbkXc/3J
J58QvlmyreavMEduMEeujZVTMD/vS5Ys6datGzaQud61a1fTpk33799vSd8K
RIq4hgH5n//5H0cEmJtCj7kAF4n2xcTEoJXYfM3cvzzBXZYvXx4WFvbRRx/R
JoR8+PDhtM8nsbGxT58+Vf9EJAAvXbrUhdtJSBRFQFnHjh373nvv3bhxw+4r
NAiF9fDweCUXPXv2dMSCNm/eLC4LDQ3VcRxQoLi4OExxamoqnhdTIz7HQsKf
r1y5wt/orLe3t7L0IRKAu3Tp8tlnn2ETsCFYg3379gkDJRKAAwIC9BOA9Qkw
vcI+YKhdXpmkV4yeYtZu3br1xhtvjB8/3uX3/vwQBtKyZUtlBWDHjh0VKlQ4
cOCA3ZXHjh175513XHtVagRXr1596623vv/+e5dbwAXbehOmngexypFZC4Iv
7H/dunXVa03Ixty5c8PDw51aFz1x4gTRGbItwpbbt28jGNOnTy/Ad6CiQBOO
1dfXNzEx0dYPEkXi+nfv3o0uVK9e3Sqhgml37dqVUNqS1l76OXKPOXJtrJyC
+XnH3SjyiamHyGESLXk7XyBSpE+AcWF8ZWdpMzMzGzRoMG3aNNdcCdYbS7ts
2bIWLVrgneH8+F9cyc8//6wZlWzZsqVixYpHjhxx4V4SEkURZ8+eReZr167t
yN9hgjCeYhc/HFKtOOg1FqN48eJcoPleyQ4w2H79+mmmYNH44MGD27dvr9g9
kQBM4++//z4t291dJABHRkbq2wd9Arxt2zZ/f3+TC7a2gLTD2Bs2bOhyVvDj
x4/btm2LERbPS7enTJmCuVZnL/PgxC+w5fxYU6XNUaNGjRkzxsKSONheCDDN
FqqsYGQYZt69e/eEhARPT8/Vq1err7l//z6SmZ6ebrBNHnDEiBGVK1fmkcUn
hw4dIu6DYVrWbydBtIuoEKui0ZpLQBgBfGWJEiU6dOhgSak6JBZJ3rlzp/mm
/iJz5DZz5OxYOQUL513BwoULS5YsabLNApQiHQLMVytWrOCmyqtPBStXrsRg
mlmCECkfeOcePXrouAmRANy4cWMe3+V7SUi4E0SaKIiZKB5lzMrKgknqXCOI
EBpkq+N2uHLlCvE+PHnz5s36d4RyE4ouXrxYvcZCdN+kSZOoqCjFRGDuUP9d
u3YRs/v6+mI9bDMxRALwhg0b9O+oQ4CJuzt27Pj555+7vOAjahr36tVL8S/0
MDg4uHr16upFdYNgkBlqxTg/f/4cF8YtNLNQMjMz69ev7/ILUx0cPXqUMVfS
MFzAo0ePCHamT5+uUOgLFy7gGviw8NSZZAbXrFnTpk0b+kaHW7VqxWir6R8S
ggsOCAgwmJj322+/0aYS6PFz5KRmzZqupTISNtJJM0X1eTRE6LXXXkP1HEUf
DEVMTAyaPmHCBPOp2jzyrFmz0AXzXLpIzJF5uNMcOTtWxmHJvP/444/My759
+5RPli1bRmiWkpLicpsFK0U6BBjt7tmzJ3o3c+ZMu6m/ePGil5dXRESEkRUD
rrlz547dqjsNIlE0/v7779sRYDzLzZs3xQiIBOABAwYUzvw0CQk1vvvuu3fe
eccNezYvXbrk4+ODEqHajowzRBqttzVZavDb+Ph4rPHly5eJdpVNXgLHjh2D
0H755ZfivyIBWKx88vf48ePFOgb8UOwOFgnAMGron5JQoYYOAYZav/HGG2bK
KWAuQkNDW7dujSURn+DFMJ5t27Z9/Pixa22uX78e2q+8ihLL4PgUJjopKcmO
OhL+hISEYCGtpZTY0sjIyN69e5sJryBsiASDrxhVSHXZsmWZ1kKyFU6k39Sr
Vw/Zy/mvfJYrV07zPSBagLRs27bNSMsimvvoo4/EvODj+vTpAyvA0axbt85Z
ncXJ4qxd3hTPJNIT9HfSpEn6crJjxw4maOvWra7dyBaoavPmzVFSk+0UlTky
DzebI6fGyjgsmXcMHbZd6RuTDjksU6aMjp3XR4FLkf4KMC4M36peibp//36j
Ro1atGhhhI3DfgcOHFi8ePH27dsr8Y4mAaaTkydPJqDw9fXdvXs314gE4CVL
ltAI3S5Ub+gkJDThNgKMvhAbokR9+/Z1FCHC0wgh9QuMv3jxomvXrv369Xv6
9CmMzs7UE+Ojg8qHIgG4R48e/Ap9HDVqFA+LGU9ISBBn2cTGxjZr1uz27dsz
ZswQKcSacESARQox7ZtMhPvqq6+wGEpcgImuVq2ayyfT8aSwWSyzMNSMPD33
8PBIT08nXkhOTlYHIMuXL8ewW7tvHQeKC6BlM40wsNOmTVNOoWL8mSk/P7/8
rkJvEIwtVLxy5cq2GwnPnz+PEEZHR6spOo+DtAwaNMjIthSuGZQLoS8ZGRnM
aVRU1C+//DJ9+nRnRc4MARYeEGfn7++fZ04mYSlhJvGpCzeyA5EsgZtrpQwU
FKE5Mgn3myOnxso4LJn37OxszLuyPIv841wgmTp7sXVQGKQoz01wmoASN23a
1Nvb2+DbH27Xu3dvPDWWVsiAJgE+efJkhQoVCDHErr2cXC7BXfbv35+Wlqas
QUlIFGa4jQDn5O7JRYl0QtHNmzeHhYXpGyhMDXF3YGDgxIkTMdS2XA77jw3B
yim5wXfv3oUsLVy4UFx24MCBli1bjhs3jkBeKPLhw4dbt249duxYKLGOVXFE
gEX7jioMGwc2Z968eTC9gwcPLl26tE2bNitWrHB5PVa8UCtTpgwzS9/oeVJS
Uvfu3QlAsNWayYGnTp3ClKWmppp5Cjts374d70DLJtvBC0RGRiYmJjJ9TAEP
JYh9YQCuSqTQ2AoAooWfxYOrF+K4jBkh1nB0KKEd4ABEcDExMXhDJAQXHBAQ
gLgit8521QwBphs8TsmSJY1IyNGjRwlyzZ/WJ+K4Dh06mGyqCM2RSbjfHDk7
VkZg1bzTN8jqqFGjEICtW7diAMPDw/VT9XRQGKTICAF+/vz53r17cWc8ssjF
pQN169al8+fOnTP4sAsWLMBTM2KCvWsS4PXr1xMRd+zYUQkxGFs4Px58woQJ
Lo+zhIQ74TIB/uOPPz777LNhw4Z17twZ4mrE5O7bt69UqVKYC83U1kePHr33
3ns7duzIsx3uhVKrzaN4kQS/VWgqV9KsLWt98uSJHQNEo/PUVkcE+NChQxgW
R33GTDEyYk8QT40NseP2WCRaULpKhA7BIIJ2lPmQmZnZp08fT09PyO2QIUPs
drQxINyOW2RlZVWqVGn16tU8e3Z2tjBidIZBc7T2fu/ePVznpEmTrMoroB3M
IG062scHH4uNjfXx8Xn11Vfbtm0rqjQr3/I3HkeRE7p94sQJng46rfkITrVm
BAaHGmjqDp/j0TTrHouq1MYzrpm469evKyKBU3ONGLhMgGE+I0eOxP0ZzMm5
efOm3fi7BsJkwtURI0Y4cvcv3xyZhJvNkYCzY5UnrJp38V86DyFMS0tjgjRl
sghJkT4B5odTpkwhWomLi/vhhx/Q9Ojo6F27dp05c6ZChQpVq1Y1/oIvOTlZ
ZEGI4kiaBHjhwoV8wtDZGmSuZJQKz+4MCQl9uEaAUUDknxiTP8aPH0+c6+hw
NFuI/fvYBPW7LVQG9tW1a1dnHQcaxyOg5jCu3bt3Q/zyo0CWIwKcmJjI4ygv
6G0B7YQBYkZee+01iBlOh79taxNhN2bPnm08KucZGb1ixYphyjDXGJ8OHTrY
vo/euXMnUTkDsm7dOtsKwEYgNnoTgFj10lZsyqBNzaJ2cCR/f38eoXz58pUr
V+YP26J24gJMvcGDM6xtLceZoTbYoC2QFhpftmyZC781A5cJ8NWrV2vWrMkg
xMfHu7O0F7Gbt7c3dkbz25dyjkzCneZIgeVj5c55L1pSpEOAL168SNTQrVs3
2+UdbC9zOnfu3FdfffXNN980viqbnp7u4eGhvKtVE2CxS5FPBg8eLOmuRNGF
awQYdUMTRVzcq1cvWIfm4Wh2wJN6eXlhEwi67b7avn179erVXVhGoOdNmzbt
27cv1qZdu3ZTp061NhtNQJMA8/fEiRPhBspuEQXYh7Vr1/r5+aWmpgr7QChN
eE6koLwsg6Aar/HOrxo3bkwL4jRhDOC2bdvq1KmDyxMXEDjQmTt37ogXiK1b
t3aqfqbIHmnVqpVV1VZpB4M8cOBA9QNilgcMGICtVuqB8HRBQUFMoqDfjN6q
VasMFpKytrUcZ4baYIN2QFpq1apl4WK7QbhMgEWNbjO7h1zDoUOHypUrp5l6
+rLOkRm40xzZwvKxctu8FzkpckSAr1+/3qRJk+bNm6vTLWD4fAVTDQkJMV6c
AUdcunTpBg0aCDqtJsCi4hmfjB8/vgjpiISEHVwgwKjD8uXLxYu2y5cv+/j4
GMzXunHjRo0aNcqXL3/y5Enbz8+fP+/r6xsbG6votZ1O6WfnZmRkTJgwAYJ6
8ODBfNp5qkmAuVd4eLjmuec8aWhoqN3pcjgXjO2SJUsYQP6eOXPmiRMnjNwd
mzNu3DjbbSkC+/fvh2GKhU0I3tKlS8UxHxDg+Ph4p+wSz8IDYvyNrOQLQDh5
BH61Z88e9QoJXuONN94YM2aMekbS09NHjBhhVzvo3r17WNesrCzxW6yr/tEk
+dSaU0NtpEE1RKLO0KFD3bxy4hoBRoomT56Mp6tbt66FeZ45uW9s0QWRkK/5
3iEtLQ0ipD6m8CWeIzNwmzmyg7NjJXhmTExMdHS05kt598x7UZQiTQKM7vTv
3/+111776quv1D85duwYg4n+ijNA8Q4JCQnMtc6O75zcbRd4auVtgpoAv3jx
omfPniVKlFi/fr0ljyYhka/ABmJ2UlUg6ifQW7NmjforfKUmrUUdRNYTf2Af
ihcvvmjRIiNWQmTjV6hQQdk3mpNb54rQFdes5D6hdLVr1+YTiA1cLjAw8MMP
P7SkqL7L0CTAmDUsj+1pawqSk5OTkpLUY4LZGT16NEN38eJFCL/B/chEGVA4
dS4B1ozPIaLiuFJ9m6YPnosWqlatarx+6YMHDxYsWODp6blx40b1tyLYUReD
pas4Ps2Dpzds2LBy5UoGjdEzuInY2tZy3DLUonxoSEhIPpErpGvfvn1qdcbX
N27cGKlTf0UQ4Sg/kE4OGTIE39epUyfjOSRGIA5kJEpyVDg0JSWlbNmySlaq
gpdgjnJy7R6cZLphwFT1X2G7zRzZwdmxohsobL9+/RxVS3bPvBdFKdIkwEQK
pUqV8vPz09zdzDCWLl3adtEJKQoICMAU6ByVwiAgS/DbL774IkeLAGMu8NFY
eEuKvUhI5CsQYDhA586d31GhadOmJUuW9Pf3V3+lrKE5AvQYt1itWjUj+Q85
ua+EMHrElQpjuXPnTvv27VFe2xa4KZolTo7j+ri4uALZUWILTQKMKcC4aSYb
8IlmJoaonYjZX7FihfpUYkfAFDvahwL53Lp16+nTp+fMmWNm9VtUhDNeKkcg
MTHRy8tLM28QCwmd5mHtCDD//fXXXzXDJXwN5p2hw+8YPEvI2tZy3DLUokaH
uqS8VYDMIJZqdW7Xrh2OslGjRuqv0GJNgpTz39wYcUZ5nn6cFnbs2GG87gfe
EyGB2ml+S5fKlCmjPhfyJZijnNzEEpjJK4aBmf3xxx91GnSbObKDC2MlEueC
g4M1Nwi4Z96LohSpCTAqyX8RD6WGsB2Y2WLFinXs2NHWh27ZsgVTQFikc6/v
vvsO2hwYGPjkyRM7AizO6ShevDimVX98GOGlS5dGR0fzczeXBJSQMAIzZdCO
HDlSrly5Dz74wGDarSBFynZUbhoUFFSlShW7QuJnz56dPXs26lx4Kmk7WgGG
Gzi1uYCfL168ePfu3fgdlw+5sAVDR4OYF5OVwegYZqpWrVrqBEJH4PGxutAq
zewCkf/m6PBoTYhKDjAobKb5vDJrW8uxbqiRlubNm7t/84hrKRDoYFRUFL7P
yNF7ONkxY8YYFyFoRqVKlTTPEcjJpYhly5bVPxbHDkV9jsygoMyRC2N1+/bt
N954Y/r06ZoxVwHOu7WtWS5FagIsFpnhomKp1g74ZeJWDw+PdevW2X5+//79
Jk2adOvWTTMAEUA2EhISSpYsCcslYLElwPv370dtu3fvnueGETrAxfXr14ck
yOPhJAohXCbAYs8FyiVKg6KSeUo4zLZixYqow507d65everv7+/t7a1+1SUI
cOFhvzmOc4BHjx4tHsd4U8TdMArslSUb6i9fvkwfsFEmX0/zLMOHD9epWqbG
w4cPW7RoMWrUKM2ZEscPhYeHG59HzCwSxThrbmN3Fta2lmPdUN+9e7dBgwY6
VZ7yCS5vglMX/HSE7du3L1y40GC4IU5mREgcrc9DzIiv09PTjXe1qM+RGRSU
OXJhrA4ePIgj2LVrl+a3BTjv1rZmuRSpCfCtW7dq167NcB09elR9/fnz56tV
qwZDtouJUD3aqVChgt1mHPXtoK8ofnBwcI8ePUQNf+5ep04dHLTBpMTs7Gz6
QEBh+CklJNwHlwmwiCLxX4IypaSk5FnC94cffiC0b9OmjYgKq1atqn7PlZNL
gGfMmIEZjImJmTp16vfff1/g+0w1CTD2Yd68eZUrV3YqDwo60bx5c6tSp65f
v960aVO7AN8FELz06tVLTXKY3Ojo6MjIyIiIiGXLlk2ZMkXJkTh16hQmdOjQ
oThQvg0LC7PN6KMdWlNKqRvsw6BBg2jHkpdljloj8mrXrp1ygjaXzZo1y8gq
sVVDTQeI+8SeFJNNOQWXCTAzjsujz5q51raXISfq5Ue0njgIIRk5cmRiYuJn
n30mZuT3338PDAxs27btuHHjUK6QkBC73ZQ//fQTAubUebhFfY7MoKDMkaOx
cjTv4oQICDDzzrcDBw6Mi4uzVdICnHdrW7NcitQEWNRv9/LyUp+MyTUTJ04s
VaqUpl8+ffo0g4yHNeJboQfDhg2DAMOljxw54lSdJQKZSpUq6WfvSEgUFFwm
wJBYT09PXB6KBtuZPHlynisPaWlpHh4emOjy5csTFXJrzct+/vlnf3//TZs2
vXjxAk7VqVOnadOmFewLFEd1gLdu3YoZ0aTxjrB8+XJsvlW12i5evEhAYWan
hsDjx49pxy6RjEikdevWdJinFudj2lYZxamVKFFiwoQJ4php3NzgwYOVfTQi
QcKpamz8FhZklRdz1FpycrJtkWQErGbNmkaclFVDTUCHzCA5JttxFi4TYGYf
xlK8eHFUwJEa3rx5k2/tGDJDmpSU1KxZM7Hp9cKFCz4+PkFBQeLFq0gAJhgR
cVNGRkbjxo1th/f27dv16tVTp5HroKjPkUkUiDlSj5X+vKOY77//vjiwgyvv
3r0LA7fNRy3Aebe2NculSE2AmbgBAwZwF3XV98OHD/P52LFjNXUWe96zZ080
zsgrPyUHuFevXk45YlFDRuctj4REwcJlAownhQCvXbs2JzfKEzRJ/yfiKGTg
6+urU3IH3bTl0qmpqShyfhxvYRyOCPClS5dw4qtWrTLYjtg+oL/7wCkcP34c
5mmeTl+9erV69eorVqxQPnn69GmXXIg1YUFo8QuiZqb4r7LlXOyhq127tm0V
tZUrVzI4xheXuGNYWJhVXkyzNUHUbXfK44WRLiM7gKwa6i+++ILoT30WzLVr
15Cx0aNHM5Ljxo2zfHu1maOQnz9/znQTveJ/7d4R4BA3bNgwZMgQpQ6zAnTc
y8tr/vz5IrgQmZ9TpkwRSiTY2sGDB8XFGCL+a1uvA6bUo0cP3LTx6gRFfY5M
okDMkXqs9Odd/FepDyN2ihE7Kz8vwHm3tjVHUkQgsGDBAnjsxIkTkaJt27YZ
XCLWrAIhaDaf23546tQpgojhw4c7yvLFUHfs2BGN3rx5c573RccRexx3QEBA
ngsaXIwfoZORkZGTJk3y9/eXCcAShRYuE+DHjx9jpoYOHfrpp59OnTo1z4wg
sc0KJQoMDDReayvnv+fHOco1dQ8cEeDff/+9Q4cO4eHhBrc5YFR5ENsqcCax
fv16UcnTZDvbt2/HVtt2DGb4+uuvL168WDQuDrZQ8tlEAnBERIT4L/atX79+
derUsS0Ve/LkSW9v77S0NIN9gKwOGzbMqnp3mq0htG3btlXmi9nEL9etW9dI
9WNLhlocU6KEFQKieEKjRo02btxIl6AxDPWMGTOsff9uhgDn5NISKA2aWL9+
fegffnPTpk148M6dO9NV9UZInhRpqVy5skKMbQ/qFQnAtjnn0LCSJUva1jLl
8ePj47md8frDRX2OTML95kg9VvrznpObAIwUZWRkiP+KkrPEqkqbBTXv1ram
KUU5ufkVqAwEm89hp1yD/zVYpVyTAPMhmkjgw7zDpRlYAjRfX9+EhARHEUR2
dnbXrl0TExNRwD59+jhKOUOK4OfVq1cvUaKEUo2kWLFiRDeEJ+pqezm5mW9E
yviCp0+f8l9iMX7rqMyLhESBw0wVCGjPmTNn8AVGbIVYM8Q26is7RAv1mT59
umLDiaArVapkZBN6/sERAebBFy5c+Oabbxp8xQPRImqw6kABBgT/ZZxhOoI4
1ufdd99VbLVghuXLl1dKWuElmQWl7Pm5c+fwccrWYx6/cePGtGC7bYS/g4OD
RZKMkW6kpqZiuq2aZc3WcMp0e/Xq1UoP8VC9evXKc63JqqF+8OABxOnzzz+3
VZnMzEwfHx/YlJCuixcvoin6+1NcgEkCLIBfS09Pnzx5Mo4bGszfjgIWsbJH
tCvqL4nFRqiOqACD6w8KCgoJCRHrbEgIcoKA2S0jMzK1atUyeIrfSzBHJuF+
c6QeK/15B8TUxNrKq5k9e/aIQNu22QKZd2tb05QilIUBb9++vXiPhv2ZNGkS
RNRgsofOUcgEkitWrBgzZszUqVOhwaJ9TWRlZTFB69atoxHujtKpD2Z1DXRv
7ty50GMlpNIv8yIhUeDAhhPN6eiLhcAk5kmVr127VrNmTdtsw6NHj5YtWxa9
LsCtcI4IcE5uNE24jc0x0g4mnYjbqgMFcHOdO3c2b75EGp5tuqw4GK5evXqK
c1y7dm3FihW51/e5gBjj1JQKHhkZGcyR+vRSGHLTpk2NbEvnjgwv7tuSZRxH
rUHgK1SooBhknDJPMWvWLALApKQkHe5t1VDv2LHDz8/PNjFDZGXkucXMPNC+
vn37Okq8txziGCwlqxyii+R36tSJ+BdJYwQ6duw4ceJEoVBIYMOGDYcOHWr3
3pnAhMgXsm0kLHoJ5sg83GyO1GOlP+/wtDlz5ihbA7hmxIgR2Bm7c1gKZN6t
bU09MmDnzp2lSpVKSEhwrU0dAmwQmD7Eg5BEtID3xx5a9SIDLeaRg4ODhUSJ
OlEyAViikKNQlfr5xz/+MW3aNGWnFUqEeqJW6l2u7oQOAeaT6dOn9+/fP8/a
BWJZNTY21iom/+2333bp0sX4LjNHWLNmzVtvvWW3fz8lJaV+/foiWeXGjRut
WrWCoty6dSsuLu7SpUvYtDZt2gg/C7/19/eHIajXUekbvk9ZcdUBV/Is33zz
jcln0WlNvJQsV66cKO+Ja2ZCPTw80tPT9+7dm5ycrOMFLBlqcWipXfV4sWL2
zjvvuOG0F3eGkAzvoFyISJYQiZEfNWoUEoW+PHv2DIUSKTRcMH78+JYtW2oe
wgJjJzq7ePFinnd8OebIJNxpjjTHSn/e+QmsG2MiguI9e/bUrFlT8wxfN8+7
ta1pjozyWs3lFwcmCfC+ffuqVq0KKVUWl/74448ePXowzsZrR+uAKStTpkx8
fLwwpOg4xt/ROY8SEhKawFRGRkYmJiYeOHAAioLfsaS8uRnoEOCc3MiXTub5
cpm4uFevXqJssnlgZMROCpM5A1DZDh06KCl5Cugtbmvw4MFTp07l2Tdu3Nik
SZOxY8cuWbKEO3J32G/37t3nzp0bGhpKTxztGcHfBQYG5rnXODMzMyAgwKrk
EM3WBI3BRDNZc+bM4aGSkpJ4BEx0dHS0zsGgVg01NJtAw65XopQ97tK2ce6o
U6O+qODChQtBQUExMTFRUVHz5s1DkJgUROjw4cM5ue96evfuTbQ7evTov/3t
b47Gn2HhJ0yQvtOXc6TAbeZIc6xy8pp3yOHkyZPDw8NnzpxJBxzVrHDzvFvb
mubIiOPma9SocePGDdvPkSLzKRB5QhRMY9jthHbLli2enp5r1qwxvwiMyBHs
KBJ15coVHx8f/AUuRmRcmGxfQuIvAmLGEydObN68+dSpU4UhftQnwDm5Fo9Q
Wj+V+ubNm0TEVi1lY6KHDRtmcgc3RgmLill2NMjYrlu3bikRvR2PxZYSrehb
NlqOjY3FCepfxlx/+OGHVu3j1mwtKyurUqVKq1evhs9kZ2cr2af4KX0Zs2So
kQ3ItjqtkQ5MmDCBGERZXXzx4gX83EhZlcIPnu769evKKWOIk+0iKt9CBvLc
9gijQ7n0K3XIObKFG8yRo7ES0J938fM8g2K3zbu1remMDM8CAVZWgLGr+/bt
i4yMNHgMnxkCzG8ZcPUP+ZxQVCf8Nw7a8fX13bhxY06uguAuS5UqhSju3LlT
nR0nISFRVCAIcGho6OHDh48dO6Z+E8oFMCtMmc6iEFxx0aJFVvF5+Nv8+fON
lC9wBEwfRHH48OFix27+geHiLhhGnUWGjIwM5XAK89Bsbd26dbYVgI3D/FAj
FVFRUY52uzx8+DA8PBzGvnTp0piYmIiICFxG4WRWBYXMzMyQkJBLly45ukDO
kS3y2xzpj5WFcMO8W9ua/shAsBMSEoKDgxcsWDB79mykiD+MmF+axe/gfYYM
GQJFL5yrqZj3lJSULl26iEeD9PKkgwcPJniUacASEkUXWLNPP/3Ux8enSpUq
fn5+mkWMuSYtLU2pa1r4cefOHTxgfrNfAe6yePFiqzIcXIBIAHbqYA4LcejQ
odTUVH228OTJk8uXL1tyCt5LiXPnzq1atSr/3ge9ZHOUr+bIyFhZhfyed2th
ZGR4litXrmiWEXOEs2fPNmrUyMvLCwf0ySefFNrIKyc3tYanE+/XIPxEEwVY
vklCQkJCAoMMAY6Pjy/MvkNCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCwj34f6IjYZQ=
     "], {{0, 205.}, {939., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{690.333333333333, Automatic},
   ImageSizeRaw->{939., 205.},
   PlotRange->{{0, 939.}, {0, 205.}}]], "Input",ExpressionUUID->
  "65a6bcbd-3a10-475b-8393-6d47a1b7250e"],
 " FieldNumber = 14"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.748965833520466*^9, 3.74896583850887*^9}, {
   3.76753949071449*^9, 3.767539490714542*^9}, {3.767539876165092*^9, 
   3.767539876293001*^9}, {3.768090021473961*^9, 3.768090021643847*^9}, 
   3.831223719734989*^9, {3.8312250668089714`*^9, 3.831225067130825*^9}, {
   3.83122618810114*^9, 3.831226189134371*^9}, {3.831819154684389*^9, 
   3.8318191749817944`*^9}, {3.831819642293605*^9, 
   3.831819643093502*^9}},ExpressionUUID->"91d6d7a0-8ba0-4b61-a1af-\
da743468caef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318192019813013`*^9, 3.831819225492302*^9}},
 CellLabel->
  "In[236]:=",ExpressionUUID->"a9040b30-cb65-4719-91a0-56cfc50c1e68"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.831819239869073*^9, 3.8318192401496487`*^9}},
 CellLabel->
  "In[239]:=",ExpressionUUID->"84779a7f-eb4a-498c-821d-a0731ea54f15"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318192408803005`*^9, 
   3.8318209210443487`*^9, {3.8318243599269285`*^9, 3.8318243821873493`*^9}, 
   3.8318397833086815`*^9, 3.832947495936593*^9, 3.832961780607794*^9, 
   3.8458268709706798`*^9, 3.845852463900978*^9, 3.845857074089501*^9, 
   3.8459196200301685`*^9, 3.846006572646414*^9, 3.846099883470402*^9, 
   3.847470445145851*^9, 3.8517006304617414`*^9, 3.853975446959299*^9, 
   3.8549774043218384`*^9, 3.854989260284914*^9, 3.8549998973561726`*^9, 
   3.8551652453823323`*^9, 3.8551823150606203`*^9, 3.855185859565016*^9, 
   3.855330635804818*^9, 3.855339841055812*^9, 3.855343178606824*^9, 
   3.855344012329449*^9, 3.8553527397485332`*^9, 3.855449604445837*^9, 
   3.855507606426526*^9, 3.855508402873604*^9, 3.855512890747257*^9, 
   3.855533322255643*^9, 3.8555789161555696`*^9, 3.85559328881859*^9, 
   3.855750601205267*^9},
 CellLabel->
  "Out[240]=",ExpressionUUID->"ab04ffed-8d79-45ae-93b2-d822f4c170dc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "1", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"\[Gamma]5", "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "   ", "+", 
      " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"I", " ", 
         RowBox[{
          RowBox[{"cV", "[", "2", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "ld"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdown", "[", "ld", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "3", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
            " ", 
            RowBox[{
             FractionBox["1", "8"], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammadown", "[", 
                  RowBox[{"mu", ",", "nu"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"CommuteGammastdown", "[", 
                    RowBox[{"mu", ",", "nu"}], "]"}], ".", 
                   RowBox[{"\[Gamma]", "[", "ld", "]"}]}], ")"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "4", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", 
            " ", 
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "5", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
            " ", 
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "-", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, {3.831819259638297*^9, 
   3.8318192843596272`*^9}, {3.8318193167890882`*^9, 
   3.8318193365421095`*^9}, {3.8318193822299657`*^9, 
   3.8318193833181553`*^9}, {3.8318194160299044`*^9, 3.831819450671134*^9}, {
   3.8318195261348457`*^9, 3.831819530567998*^9}, {3.8318195744557567`*^9, 
   3.8318195749600797`*^9}, {3.8318196678477764`*^9, 3.831819692890753*^9}, {
   3.8318197307427387`*^9, 3.8318197891426706`*^9}, {3.831819826446647*^9, 
   3.8318200246372905`*^9}, {3.831820134837309*^9, 3.831820231487279*^9}, {
   3.8318208804703093`*^9, 3.8318208974076424`*^9}},
 CellLabel->
  "In[241]:=",ExpressionUUID->"54953f39-d50b-45de-8dc7-696d0405b3a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}},
 CellLabel->
  "In[242]:=",ExpressionUUID->"12b89c85-88cd-4f63-b25f-12c4930ec506"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318209253296533`*^9, {3.8318243645113945`*^9, 
   3.831824386205144*^9}, 3.8318397877857857`*^9, 3.832947500251416*^9, 
   3.8329617848033257`*^9, 3.845826875506705*^9, 3.8458524680296173`*^9, 
   3.8458570782558413`*^9, 3.8459196244129887`*^9, 3.846006576820938*^9, 
   3.846099888203429*^9, 3.847470449450886*^9, 3.851700634930973*^9, 
   3.8539754511306143`*^9, 3.854977409046138*^9, 3.854989264399374*^9, 
   3.8549999015206227`*^9, 3.855165249836938*^9, 3.8551823195917873`*^9, 
   3.855185863864613*^9, 3.855330640225559*^9, 3.8553398456336517`*^9, 
   3.8553431830490885`*^9, 3.855344017055624*^9, 3.855352744381741*^9, 
   3.8554496085421658`*^9, 3.855507610444827*^9, 3.855508407270063*^9, 
   3.855512894917129*^9, 3.855533326397023*^9, 3.855578920595247*^9, 
   3.8555932931724286`*^9, 3.8557506055942*^9},
 CellLabel->
  "Out[242]=",ExpressionUUID->"497026fa-35a4-4990-8000-f0e46e4b47d0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]hat", ",", "\[Beta]hat", ",", 
   "\[Kappa]hat"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}},
 CellLabel->
  "In[243]:=",ExpressionUUID->"ccaf1bab-e825-4954-9e19-f23dab886f8c"]
}, Closed]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
4D, N=2 Summary, untilded (tt1=tt2=1)
True if Holoraumy is correct\
\>", "Section",
 CellChangeTimes->{{3.7468448382541714`*^9, 3.746844841062807*^9}, {
  3.747484813570861*^9, 3.7474848147061768`*^9}, {3.751727150297126*^9, 
  3.751727152968473*^9}, {3.7517370764997187`*^9, 3.751737081484597*^9}, {
  3.831220515042942*^9, 3.831220515642957*^9}, {3.831828049988245*^9, 
  3.8318280554735775`*^9}},ExpressionUUID->"2bf50357-56b5-4a46-b6f3-\
0a9c8c2e92b9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResult", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{"True", ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", "tt1", "\[IndentingNewLine]", "tt2"}], \
"Input",
 CellChangeTimes->{{3.746844857362361*^9, 3.7468448795383835`*^9}, 
   3.7474860644092245`*^9, 3.7493830656655216`*^9, {3.7493833451039195`*^9, 
   3.7493833528869457`*^9}, {3.751407437687273*^9, 3.751407439737672*^9}, 
   3.767539374926538*^9, {3.831820950415612*^9, 3.8318209529669285`*^9}},
 CellLabel->
  "In[244]:=",ExpressionUUID->"60a4c4ed-61d9-4acb-8473-5067281d64ca"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7514074438856277`*^9, 3.7515668880971727`*^9, 3.7517271867772617`*^9, 
   3.751734098672987*^9, 3.7517371697663603`*^9, 3.7522501487124557`*^9, 
   3.7522562220856037`*^9, 3.752265618963244*^9, 3.752321713558817*^9, 
   3.7523245195678205`*^9, 3.7524081684923697`*^9, 3.7524944979477444`*^9, 
   3.7524967026381173`*^9, 3.7524995183336844`*^9, 3.752536555697006*^9, 
   3.752537934779698*^9, {3.8318209389647713`*^9, 3.831820955547838*^9}, 
   3.8318243984495735`*^9, 3.831839787829667*^9, 3.8329475002983246`*^9, 
   3.8329617848442583`*^9, 3.845826875584818*^9, 3.84585246805707*^9, 
   3.845857078296288*^9, 3.84591962447305*^9, 3.8460065768687973`*^9, 
   3.846099888234667*^9, 3.8474704495063133`*^9, 3.8517006349778175`*^9, 
   3.853975451175353*^9, 3.854977409108654*^9, 3.8549892644502783`*^9, 
   3.8549999015518274`*^9, 3.855165249899416*^9, 3.8551823196074085`*^9, 
   3.855185863907259*^9, 3.855330640288007*^9, 3.8553398456961365`*^9, 
   3.8553431831115427`*^9, 3.8553440171104994`*^9, 3.8553527444159613`*^9, 
   3.855449608590501*^9, 3.85550761048951*^9, 3.855508407313925*^9, 
   3.855512894960907*^9, 3.8555333264311857`*^9, 3.855578920626459*^9, 
   3.855593293188017*^9, 3.85575060564106*^9},
 CellLabel->
  "Out[244]=",ExpressionUUID->"8d1f1564-6c0b-4c70-aa70-7e92cabfee91"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.7514074438856277`*^9, 3.7515668880971727`*^9, 3.7517271867772617`*^9, 
   3.751734098672987*^9, 3.7517371697663603`*^9, 3.7522501487124557`*^9, 
   3.7522562220856037`*^9, 3.752265618963244*^9, 3.752321713558817*^9, 
   3.7523245195678205`*^9, 3.7524081684923697`*^9, 3.7524944979477444`*^9, 
   3.7524967026381173`*^9, 3.7524995183336844`*^9, 3.752536555697006*^9, 
   3.752537934779698*^9, {3.8318209389647713`*^9, 3.831820955547838*^9}, 
   3.8318243984495735`*^9, 3.831839787829667*^9, 3.8329475002983246`*^9, 
   3.8329617848442583`*^9, 3.845826875584818*^9, 3.84585246805707*^9, 
   3.845857078296288*^9, 3.84591962447305*^9, 3.8460065768687973`*^9, 
   3.846099888234667*^9, 3.8474704495063133`*^9, 3.8517006349778175`*^9, 
   3.853975451175353*^9, 3.854977409108654*^9, 3.8549892644502783`*^9, 
   3.8549999015518274`*^9, 3.855165249899416*^9, 3.8551823196074085`*^9, 
   3.855185863907259*^9, 3.855330640288007*^9, 3.8553398456961365`*^9, 
   3.8553431831115427`*^9, 3.8553440171104994`*^9, 3.8553527444159613`*^9, 
   3.855449608590501*^9, 3.85550761048951*^9, 3.855508407313925*^9, 
   3.855512894960907*^9, 3.8555333264311857`*^9, 3.855578920626459*^9, 
   3.855593293188017*^9, 3.85575060564106*^9},
 CellLabel->
  "Out[245]=",ExpressionUUID->"fd5c3eeb-00ae-40b8-92f8-25ee71ec48ad"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.7514074438856277`*^9, 3.7515668880971727`*^9, 3.7517271867772617`*^9, 
   3.751734098672987*^9, 3.7517371697663603`*^9, 3.7522501487124557`*^9, 
   3.7522562220856037`*^9, 3.752265618963244*^9, 3.752321713558817*^9, 
   3.7523245195678205`*^9, 3.7524081684923697`*^9, 3.7524944979477444`*^9, 
   3.7524967026381173`*^9, 3.7524995183336844`*^9, 3.752536555697006*^9, 
   3.752537934779698*^9, {3.8318209389647713`*^9, 3.831820955547838*^9}, 
   3.8318243984495735`*^9, 3.831839787829667*^9, 3.8329475002983246`*^9, 
   3.8329617848442583`*^9, 3.845826875584818*^9, 3.84585246805707*^9, 
   3.845857078296288*^9, 3.84591962447305*^9, 3.8460065768687973`*^9, 
   3.846099888234667*^9, 3.8474704495063133`*^9, 3.8517006349778175`*^9, 
   3.853975451175353*^9, 3.854977409108654*^9, 3.8549892644502783`*^9, 
   3.8549999015518274`*^9, 3.855165249899416*^9, 3.8551823196074085`*^9, 
   3.855185863907259*^9, 3.855330640288007*^9, 3.8553398456961365`*^9, 
   3.8553431831115427`*^9, 3.8553440171104994`*^9, 3.8553527444159613`*^9, 
   3.855449608590501*^9, 3.85550761048951*^9, 3.855508407313925*^9, 
   3.855512894960907*^9, 3.8555333264311857`*^9, 3.855578920626459*^9, 
   3.855593293188017*^9, 3.85575060564106*^9},
 CellLabel->
  "Out[246]=",ExpressionUUID->"a12700da-56e7-4597-ba6b-736e4faf9cfc"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Holoraumy ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "a", "i"], ",", 
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"f0851963-5d88-4b41-8b57-5cf82d025167"],
 " "
}], "Section",
 CellChangeTimes->{{3.746831725880522*^9, 3.746831726815978*^9}, {
   3.747484799938679*^9, 3.747484810026211*^9}, {3.749400068041915*^9, 
   3.749400077475848*^9}, {3.751566860960198*^9, 3.751566870113977*^9}, {
   3.767539264186421*^9, 3.767539275420515*^9}, 3.767630407991788*^9, {
   3.8318210538019447`*^9, 
   3.8318210600247245`*^9}},ExpressionUUID->"0c784d38-3c42-4953-baa1-\
16996110b7c1"],

Cell[CellGroupData[{

Cell["Set tilde indices: tt1,tt2=1 for untilded, 2 for tilded", "Subsection",
 CellChangeTimes->{{3.74748589807438*^9, 3.7474859927542334`*^9}, {
   3.7493829745987787`*^9, 3.7493829930707884`*^9}, {3.7514052692549267`*^9, 
   3.7514053037746964`*^9}, {3.751738034258769*^9, 3.751738035971404*^9}, {
   3.767539285403961*^9, 3.767539286757628*^9}, {3.7675393328642693`*^9, 
   3.7675393381796207`*^9}, {3.831226416603404*^9, 3.8312264306754775`*^9}, 
   3.8318217365215335`*^9, {3.831828069456098*^9, 3.8318280762393937`*^9}, {
   3.8318281302779446`*^9, 
   3.8318281320128803`*^9}},ExpressionUUID->"0debaf7f-8c26-4a23-8ee5-\
7bcaf52a1b74"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tt1", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tt2", " ", "=", " ", "2"}], ";"}]}], "Input",
 CellChangeTimes->{{3.749383010539157*^9, 3.749383013350893*^9}, {
  3.749383162056017*^9, 3.7493831621347337`*^9}, {3.8318211317934065`*^9, 
  3.83182113291881*^9}},
 CellLabel->
  "In[247]:=",ExpressionUUID->"92a13c16-10de-4f05-b1ca-799e7ff534d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "4D, N=2 Vector Holoraumy, both tilded ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "a", "i"], ",", 
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"a2923437-53c1-4733-84a0-244c1d66563e"]
}], "Subsection",
 CellChangeTimes->{{3.550920278304533*^9, 3.550920282240758*^9}, {
   3.5509221619582715`*^9, 3.550922211396099*^9}, {3.551793495341796*^9, 
   3.551793495906828*^9}, {3.5594927244525585`*^9, 3.559492746318809*^9}, 
   3.559499496819916*^9, {3.7113930579483547`*^9, 3.7113930664148393`*^9}, {
   3.711393103948986*^9, 3.711393104741031*^9}, {3.746807497233589*^9, 
   3.7468075031958065`*^9}, {3.7468296820915112`*^9, 
   3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, {
   3.751405314474931*^9, 3.75140531586872*^9}, 3.76753934580381*^9, {
   3.7675394595983562`*^9, 3.767539483364336*^9}, {3.7675398556290913`*^9, 
   3.767539855771489*^9}, {3.767543491843978*^9, 3.7675434934179277`*^9}, 
   3.768071522713936*^9, {3.831226408795494*^9, 3.831226409891334*^9}, {
   3.8318211407878213`*^9, 
   3.831821154540701*^9}},ExpressionUUID->"818c17af-9e12-49fc-af55-\
eb7c54ee0804"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQdQFMn7/29OB6iIGAA9VDCccnrmA8wKiAk5c8BTERURFRVz9owYUZBk
PPQQET09LT28Q70zYBkRpcx+BUOZPqgFV3q1//d/uz7zm8/M7uzs7CwL+ryq
tGCZ7enp7ud53t3TwXl0aP9xpUqUKBFWAf/1/zG887RpP872r4JfBkwOmxA0
OXCsz+TpgUGB09qNLo0PQ/AvHD/8/z9rCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgeHz69Omvv/5asGDBsGHDfvrp
pwcPHggu+Pjx48GDB//++29L5E6KvLy8/fv3T5w4ccyYMTt37nz//r3ggtev
X8fExDx79swi2SMIgiAIgvhiyc7O9vPza9KkyZAhQ3x8fKpUqVKxYsXJkyc/
efKEXXD79m2Iz6CgIAg2y2aVz7///nvo0KFvv/3Ww8Nj+PDhbdu2LVu2bN26
dWNjY/Pz8zVaYXzkyJFOnTrFx8dDRVs6vwRBEARBEF8Qx48f79y5c1JSEifD
3rx5s2LFiurVq5csWfLr/7Jz505oNstmlQ9k5LJly/r165eZmcl9mJWVBTEM
qVm+fPmGDRva29vj0S5duqQvEcjUqKioBg0aXL58uVByTXwmCPosaEjUiyGI
oswXaLN4xnfv3lk6F5850EWffUMyBTRC6Kvc3FzxnyA1Dx48uGbNGvwv0VBf
vXrl7e0NaVdQUGDOnAr58OHD2bNndd707t278fHx69evP3/+vMHaP3r06JIl
S/Cw5skm8T+gOn766adGjRqhjgR/ysvLGzRoUK9evfCDRfImH5iDl5dXs2bN
hg8fPn78eOS5TZs2V65csXS+CILQzZdms/fu3QsPDw/T0qlTJzzy06dPjUrh
8/DVZgVFumfPHldX182bNyv4OpWwTFAIS5cuTU1NhV61dF6Iog4aSVJS0sqV
K8Xdlvz8fPRo9u7dW/R7hWjzCFgVKlQoUaKElZUVvAF/OJ0giKLGF2Wzr1+/
7tOnT2RkJPOlt27dcnJy8vPzM2pU8/Pw1WYCDw5hiQ4LlHylSpXWr1+vIBEq
YYIgdIKAFRYW9uTJkyI1gYQgCH18UTb74MGDOnXqtGzZ8sWLF/j15cuXrVq1
+vrrrx8+fGjprH1uZGRkVKlSRZnI/Dx4//59TEzMQi3x8fEfPnywdI6KCjk5
OfPnzx87dmyPHj1u3ryp75pVq1YtWLAApXf06FEaqi18UOYnTpxYtGgRqgA9
PvGmB6bw9OnTrKwsBV/kApaKmTHIrVu3dE5rIQgFnDlzBmYF57Z8+fLbt29b
OjtyMZ/NmtW+FATigoICCJh//vlHwe3gNq9evZqdnc1+vXfvXt26dbt37869
e4XsvHHjhoKUPydMKWEOfSKzKJQwHnDnzp0LtGzdutVMs3Nhko0bN27btq2f
n9/s2bPVfb//+PHjefPmDR06dMaMGeKNg4oyr1+/nj59emZmJrxK06ZNUQU6
BeSdO3dGjhzZt29f9AHxg7FdYNwlJSWleJWMKnz69Ony5ct79+5NS0tDI2Fl
iwa/ZcuWiRMnoikKglp6evq0adP69esXEhIiMAQkNWHCBCcnJ/x1xIgRKr7h
QlJDhgy5fv26gu+ygIWnQ5ieOnXqjh07TLesXbt2eXp6cmHu0aNHsCz+jmHo
CuGTa9eumXgjg6C+cJfIyMilS5fu3r2b9v5SBtzF/fv3Ed8FUQwtvCgMph04
cACW2LNnT4TIX375xdLZkYVZbdas9mVsIMYFU6ZMSUhIMH1kA81v/vz5Dg4O
cLPch2iESB+FoDN9Zb5aGjwRSpgLBwz8bKk5h2qVsD6RWfglLAZ9GWgbCJjv
v//e2dkZhW9KavpA227ZsuWvv/6q86/o7Pz444+D9DBq1CjkEFapU+rn5+fj
r9ASkMq1a9cuzL4wag0RGd5GZ7YHDx4cFBQUEREhkaVDhw5BAuEH+Kvq1atv
2LBB+nazZs1CQRkVGqCOwsPD7e3ti9EogTRv3ryR0+ahSWBcKC4vL69y5cqV
KFECMv7u3bv79++PjY3FD+hTR0VFcddfuHBhzpw5MPnDhw/XqFHj7Nmz/NRQ
jLDESZMmyZmagmtevHghp2cKc+vdu/eJEycMXqkTlAOcAGIWNCE6Efiha9eu
ppgwfI6/v3+HDh3evn3LPtm+fXu1atVQOPzL/vjjjz59+kB/Kr6RQZA4+lOo
PlRWcnIy+o/169dfvnw52xNMARAGgYGB+pzMmDFjli1b9ueff1pw6pH8ZiMH
CMvFixc3adIEtg/f2759e3RR4ZHYsguUBlqOKjWIbCcmJqJsxxhi7Nixmzdv
1rlG8tWrVwhAFhSZRcpmzWdf0oFYAGoKEQfh1cQ2iSeFnG7evDlMWOBXNVpH
DZ+DUCj+ojJfLQaVC9OGkKhVqxasoGPHjnBxnTt3hnNDMGVbu0yfPr3w+1xq
lbBG8nV5IZSwRhuXUYYeHh6urq7oyOh8LYuG/e2331pEZCJ70JAoHzwpxECL
Fi3QvT2rBW3j559/RnC3s7NDE8Xngihw69atFStWwFoRklq3bv3y5Utz5F8f
8OQHDx6E4C9fvjxyDkf6+++/s5zDC0VHR8NXQOH4+vrqexXOgFitWrXqmTNn
JK5RJjL//vtviITKlSsXwe3rjQJmCCtAK0IrhSCvWbMm4pqEH4btpKSksJ+z
s7Ph5UJDQ588ebJo0SI0coRFW1tbtHku8ZUrV6It4eeNGzcifcEwhUyRCXMe
P358s2bNvvnmG5R5o0aNNm3apO+dFD5HbcLDKBY2aBL37t3j2sODBw/q1asH
aa3YW6J8GjZsiLJiWUI6aNJubm6CUUT8FZIsICDATMPjkBwomVOnTvE/hBd1
cXGB61P2dMgqrBIiB664bNmySAe1z0wVdgfHghiEzzt16sS93Ss0jGo20P8h
ISHdu3dH1eu84PXr1/PmzbOysvL29j5+/DhXXPhhz549fn5+6JIjyMI1KVbs
ArKysmBQ0OrwgShemFJqauphLQhtO3bsgNyFxsBfu3XrprPNWFBkFkGbNZ99
GSUyd+7c2aNHj+fPn6tya6jriIgIBwcHJCsoPRigu7u7YPoBilqZrxZw48aN
nj17whyg5/kjLTATfLJw4UJEcITIhIQEVR7TKFQsYek5mWYtYQYa8JUrV9at
W/fVV18hZOjcQ8CCIpOBR2NuCnFNHEdQEcOGDStTpgwMXNwXRoE4OjrClVlk
viKkppOTE8RkcnKy+K9Qd3Bc6A7A4ev8Oh4WAgYuTnoqjgKRCbv+4YcfUKQV
KlSAw5f5rSIIHmTy5MmoejbCBh+1e/du2BTav87nwgUoq/j4eJ2pIbb2798f
fS7xhlFohIMHD27Xrp1gt385IjMzMxMRnOsHIasTJkwoVaoUbqRzontSUhK6
RSpaHEoJ3XOoRMWzNOEE0NnZt28f+/XFixcwW9iduKOdk5ODUjKHKkA7R5RH
4uLuM5OIAvFpFMwVo7sqrhHU2ty5c2EsXbp0geZRfAtjMbbZwJOjjurUqaNz
TiBCKty4vb09AofOtopgCqvBY0LGqOgtmcUh2d69e+tUaGickLUQTjrdl6VE
ZpG1WTPZl3yRCfXbqlUrrp+uCmgYffv2hZ4RmDaaBPpNgYGB4siuwFdzoE6h
4mxsbKCvdM5LhIaHc0PghkEV/i5S6pawtMg0UwmLOXHiBESmzpChKRoic+jQ
ofpEpkY7e2HgwIGlS5des2aNYEIFyhZ+1VI7maO11K1bV5/I1Gjfhjs7O9es
WfP8+fPiv6IGUY9DhgyRHjNXIDIRaMaOHevi4oJC2759u8xvFUG2bds2Y8YM
gYFAQ5YtW7ZevXrioSeU1erVqzt27KhTLcCfQPOvXbtWHGSh85s0aRIcHCwo
ZIMiE/5q9OjRqamp/A/hVFm/CUYniLzIWIcOHVasWKE40LPNzXx9fbnwhFt0
69atdu3a+sa4DIJCQyvl1AsMCn38yMhI8ZWshNu2bav6VEk4vZ49e6LQ5s+f
LygcRAo7Ozt9/kEOMTExsAUIIZ2DeBcuXICjtrKySktLMzZldCEPHTpkbG0a
22w02nhx6dIlnQMFp0+fRl8b+vOvv/7Sd0f01r/77rtKlSrp6/Mqg4kl5Hn5
8uX6CgFeWt8YoCkiE1UZFRWlYPy5KNusmexLpsjE3VFTyBg3bUYZd+7c2bp1
KycqkOy8efNQtkhccCU0Erp+4kkICnw1Ax+iphAgYOwSQ4VMFEHsGfsOVHGr
Y6hVwhwGV5erXsJikALMH300nSFDUxxEpkY7KdrBwQGBj+9FocA9PT3RRYIK
hfC4f/++yrk3hEGRqdHKpDJlysAPizsF165dq169+qZNm6TvYqzIRFXCTyIe
tW/fHqUKlyXnW0UQ1G+/fv3Q4xNYATOBkiVLwkDE30JnGf1TPLXgW/h1yZIl
8OpoS7hG0CbPnDmDb+3evVuQmkGRie6Dl5eXWN0dPny4QoUK6LwLekAHDx6E
PDZl3R8kt5+fHwQD1+ARBBGVFDhMLkF0aZECp8xhTXBcKKX09PSTJ08Krs/M
zMQjJCUlKX4EnbCF/IjFYh2Vk5PTqFEjuCllkReGA1EhMYiHOmJH2cp8n8iB
VjF79uyQkBBj1a+xzUYCdA1cXV2tra2PHj0qcRlyiI4nKk7dbWQgJ+CZEa8l
JitGR0fDDer8kyki88WLF/CrCt7UFHGbNYd9yRSZ0MBubm7KdvbmgFFMmzaN
3+/gRCasW3AxBD8iOEI/f6RFma9mX9y+fTsqEQULpyGRSTwprEZBv1Vxq+Pu
a3oJ8zEoMtUtYZ1AePfp00dibl6xEJn4PCgoCNeMGjWKG9eC1dvb28fFxaFb
MWfOnMI/vkqOyESjaty4Ma7h3kVy7Ny5E1UpMfjAMEpkslk9sbGx6CmzcaGw
sLBiup8qHLKjoyP6RytXruRrAzQAX19fPNrw4cPF34JNoQ+LghW8XUWB9OjR
A2oKah99SUHIYEPi4jhiUGSiEtGJsLOzE6yRuX37NnoQ6FAnJiZyH7Km7uPj
Y+Kcq59//hlVzJUJTLhmzZrIibLUmL/lXo6g2NlcffywdOlS8XJXZB6PMGjQ
ILWm9hkEbuSbb75BeSobQDA4iBcVFVW6dGnYMiSTUSkrFplGNRsJUGVdu3aF
LcBFSJs5WsvChQsRbtTdR+7AgQPly5dHa9E3TRr3RUjVufpAYyGRWcRt1hz2
JVNkQlegy6Bs+TwfPBcegevOoJV26NDh66+/1rk7x8aNG52dnfmmp8xXAwRT
1KCNjc3vv/8unUOkjMYD8WDso5koMtUqYQ72FkbneAuHiiWsE9g+PIDEIECx
EJka7RoZmD9/ITn6gCiogIAAOHmLbAklR2Sy6Q14OvRk+U4DTzphwoRmzZoZ
PGzLKJGJJjd69Gi0HFyMrzAlptbC1UImNzcX0gKPgD6XQGT269cPnw8YMEDn
F1NSUtCZha7gz3dCCEY6Hh4e6GXD4fMTZLOCEezEs1MMikx4m4oVK8LMBZ0F
WDSCCKTLjh07uA9hZZBzUG4mTopDGFq+fDk6VseOHVu3bh1MbNOmTYprGWrc
ysoKznnYsGGLFy8ODg5OSEho0qQJnnr16tXiyTzIPB4BXstMWyvn5eXBY2zY
sGHv3r1sOAI3QoRCx+Hq1asKErx48SIqSN8gHioFDhA1tWrVKmO7Y4pFplHN
Rh+oiC1btkAvubi4GJwpgYsXLVr0008/mWNCpmAx0a1bt+CuucI8d+6cvmEl
i4jMIm6z5rAvOYGYLffz9PQ0/YxjOA3YLzwn1CZ6dohBbm5u+uZUo3lA8POF
vTJf/e7dO/ShBCNR+oB4QKO9dOmSsY9mishUsYTZYT2Igw0bNixZsiQ0IbQQ
vLfOrpBaJawPVPFXX30loTSKi8g8f/585cqVoTPZ5j8MeDbxRnCFhhyRyTwG
no7FOOQW/Vm4VugfKKjQ0FCDcU2+yISVjR8/ntky5/+9vLyK7x74KDEEAkH9
ovTatGnDRm8E1+OpYf7ooNWoUQMXoHj5hYaSRIJi22Hv3ydPniyuC4MiE59n
ZGSwFXl80tPTra2tId74rhXGCKV04MABnUkhqwjNTPCgt7tixQpBxUFicWNx
eJbs7Gz4jaNHj+p8Sy4zNaQDcYXYmpmZef/+fTRp9qRQemii+gIrHgEPong7
F33gQcLDw+ExIIfgl1CVqMGDBw+y3jrq1NiRRsa2bdtQCL6+vmJDuHv3bteu
XdElgX9WMHCkWGTKbzYwaihDxM1OnTqhQvk1AqfdqFEjtHPkQY4bQZEq20hc
HzonZDLpi8glJwWLiMwia7McqtuXnED87Nmz5s2bjx07Vroxv379GgaFDn67
du1a/i8dOnTgz9l4/vw5ageK/e+//5YwLvYmRfDGTYGvRqHBkFGD3HJpCSDG
UlJSFLz9NEVkql7CMlGrhBnI/P79+yHRoSohR9H+oVdLlSoFq9eXgeIiMmGe
kOtsXMsMOVWCHJGp0cY49DWgkM+cORMcHAxfhKA5YcIEtFU5fVX5IhO+Gj1l
TpKtX78excWfa/d5gBYLTwLVIdj6CT4NDalnz55QDvDkqBc0GH2bG6NU09LS
IGBgSqmpqba2tjqN16h9MvnfQkWg8N3d3fmFDzPUt54RTnjq1KkwVWS7Vq1a
iFn4mb9cAn3zhQsXyhzKk58amy3G3yFTDngE1c8yu3HjBjww+kR8X4QogHwu
W7asTJkyTZs2NTjsL4Yb0uePh+MHGC/EW506dSA+L168qCzPikWmvtQEzQbJ
rl69Gt1q/DBlyhRnZ2f+mVNxcXEoFgtuU6ZzQibahoeHh8yGahGRqROL2ywf
1e1LTiBGB6R69eoSc/hhNYcOHXJ0dEQ4w/+1a9cuoQXNEom3atXK29v73Llz
xuaNdVW6d++ub0KCHF/N1kojM2hO8tdEK8CUVlesS5hLCgGxWbNmrFUjQchR
JycneCGJjBUXkXn//n04NFyGhzJDTpUgU2SiK4dYUKlSJVQcNA9cWVBQUGRk
pMzhaJkiMycnBz0L/lDPnj17ypYtiy6MwZ1tcAsEXLZ1uXxgL6bsKqMM+G22
iGPmzJn8AoHtQ5907dqVDRGwTXhgqvocNXsX369fP/jzNm3aQCro7GsrE5lo
qyh22N2xY8f4SU2bNg2uQ7xCDeUfHR2Nr0Absz4Cwlx4eDh8CzcPBB0TmZv3
GpUaexs4ffp0Yx8QjkXF6b5ot+g+u7m5ibtdcH34E2q8b9++Bt+CiUHXo0WL
FjDA3r17c9uDw1LgruEqYYkZGRmKs62uyBQ3G9QXbP+DFojhatWqcbPauHk4
ihd8mQ6bkImyRWSH6XXq1Ak1hV/lb1xcdESmZW1WnBl17UtOID5+/LiNjY2+
qd14XgQUdCjgM9ncDOQtJiYGDQAO2ZSXiez9LIxU32JwOb4aWUKHEeZgrCsz
FlNaXbEuYY02+IaGhqL7wx8rhjq1srKSXpVZXEQmip2JTLQiM+RUCTJF5vbt
29HJReMRL9SVgxyRybbIQIPkv02Dt4SylfmSEb0/9ETOGMPly5cLbekHB/pZ
eKhhw4bxjwNDyUydOhUhmNsqis1AQ2vR924CJYZaw7egIVFQ+spWgchEew4O
Dq5QoUJ8fDy/OnCLgIAARGHxtqho235+foJBV6SDmBUREYFE2NFsBteIKUgN
bQPaQM4LJj7slQrMVqbrw7MnJSXNmDEDPkrcGtEd9vf3hx3pfMeKlgbPLL1J
jgTsVXuDBg3EK1PQelEmuK8+p2oQFUWmuNng/40bN7IXtTdv3qxVqxZ/Nhdb
zcS23FF3vhDsGs0DzV56ayb27Gx/UTS2rKys69evI/i2a9cO0l1mgRQRkWlx
mxWgrn1p5AXiffv2wdD0LdGCHSGUQIfwx0bevXuH2ndxcTFFP7D9ohFJ+aP0
fOT4arYlUdmyZaHTFOdEDqa0umJdwhrtOUEVK1YcN24cv1mykh85cqREWy0u
IhNOzM7OrkjtySNTZEZGRpYsWRKRTtl+nnJE5sWLF7t3737w4MHfeURFRaH2
cV/BIsrCJDs7G9pgrmzgnyVeiSLUQi306dNHMAEA8hiPiSLit3NELlSNieue
jBWZqKyEhAR4knXr1gm+gmxASjVv3lzc40NoE3QQGLdu3UK8hpy+cePGzJkz
Zc6tVTc1nbDhwb59+8osW3Ycef/+/R0dHe/evSv4K7wufJerq6tOL8RmlSt+
KQwrKFWqFLKqU0biQeCgEJukD/5AVeLue/fuTfxfoIoRFLy8vBDaBH/CxWfP
npW/0Zy42eBDyDbUF37A53gK/kbBcD5s6EbdtTwardNetWoVunLSi49Y+EMG
+Iti2BRf+RsdyBGZKIEjR44kioiNjW3cuDFasvhPSFD+9N2iYLMC1LUvjbxA
jEKwtrbWuQMDuoFQ1Pb29oJhf2Rv4MCB6N2bMtcXZR4WFgZ9pTPnMmGv7eAl
dG5JjVvguRCI4Q3QbOK1REdHS7zhNUerK9Yl/Pr1a3RyBXt0sHegcE1bt26V
+G5xEZnIp5WVlfSGbIWMHJHJ9fclBqulMSgy0T5RdAh2w/4XNFr0zRG+FUwV
Votdu3ahyuS/gq9Zs+aff/6pM6mcnJyOHTsOHjxYfCjPtGnT8KTQ2PzP2RrS
kJAQU96eGCsyYYBoElu2bBFfX1BQgKjx3XffiZsBPtEpgfDh9OnT4Rk2bdr0
22+/ycyzuqnphM1G6NWrl/z31+yFb7du3QST7WH+bM7kiBEjdIZU5BZ9tA4d
OihYkokEAwICkLi+nbRhU7hvCe2BNRLPgoiDbr6Hh4e7iFq1aiE0QCkJPsfF
aDky8yzRbDTaDWPR8tniLO5D9kYV7l3f+VZ8UOaIsPLfqiMn6NFLTyZkEzIF
QQfluXDhQn0TocXIEZlQazAcccm3adMGBt6oUSPxn1BcOhWgToqCzQpQ0b4Y
cgIxSgwRVufrttOnT0OEI0wL8sM6GmgGio+B0Gh9LDSb4g3KGGxbKiTCP0GS
A80SMXrBggUIlLa2trB32M6UKVMkzuY2R6sr1iXMNiERjOqzHTKrVKmiU9tz
FBeRGRERgVjTtGlT6UMYCxM5IhONBIaPp4NQYU9n8NWGAIMiE6mhCYndEdvC
GqYHpWfMYxVFICz9/f0DAwP5b8kZCMEwcDgNgRnu3r0bfVt9ZxDIxCiRefHi
xebNmwuWAHOwiTFGrV7BTdeuXZuamoqwZfq8OxVTwyO4ublB8MsfJX748GG9
evXmzp0rKBw2aAOxpHO/bjgx9JVQj7GxsQryicRRIxIzVZB/tl7A29u7MFeX
85FuNhrtqmcEoB9++IGfQzaNqnTp0nIOXz537pxOF6ETlAmEN4Kp9ILBlJQU
tkMmfxotO6FbvjSy+OvyommzKtoXl6DBQIxCsLa2PnLkiOBztnE34oi4pSEC
Ojs7t27d2pS1pSgxhEI4cFOOU2FDCugZiTcN4MMmmRgceZPAlFZXfEuYjVjC
TwoOKHz06FGDBg1gQdIDaMVCZL59+xZSDW1DfJKLBZEjMjMyMuy0cCtYDb7a
ECAtMhFrEBF0dt/YsZUoWOhzg7dYv359zZo1qxqDq6sr+l8G828679+/nzBh
Ajqe/HdPaFqs2J88edKwYUPBvl7sjAmDPSyDyBeZcG5wPvv37+e3T/SUuXpn
BwpIbFutk/j4+ODgYAgwVZq9WqnBXbi4uBjci4PPsWPH0GYEo82a/772hYjS
2ZZgKWiWUKEK1pVrtPueoQ1IzGhCXaAZl9AeeKegTEwXmQabDRuo53YIx42Y
hGPyW85UVVyJTEKpyszSs2fPEBHGjRsnPQmcvaAR7JBpLJYVmUXWZlW0L4ac
QAxhDDMU1wXyMHLkSJ3TruCB0dEweBCANOxALjkLVCXIzs52cHCAhJNu5/An
tra2eBbFG0qY0uqKbwmzWZ2w91WrVvE/R+cdXfiAgACoOORQX++yWIhMdAGg
5Tw8PJS9cTYTBkUm3O/w4cNLliyJEMZ/NOlXGwIkRCaqFZWuz5vh7j4+PijY
8PBwg00UDSAlJeUX2SQlJf3222/icUXVQfNYtGgRIppgdlNaWtqKFSs02jbW
rFmzHj168C9Ar6RTp07du3c3MYcyRSaMd8CAAQIPz1ZjcQvw2QGv1apVu3nz
pvwMxMXFubm5GfWVQkiNnY0iljdwJnA4iLCBgYFbtmzB47NNM9husQiCkydP
xl8HDhyIOmV/Ynu4oRcm7iihwUNfVaxYUbBLIbyBp6cn90YDAgAOROeMza1b
t0pMyOQmFDk7O0sPgOjDRJEpp9nk5OQ0adKkUaNGLEAkJCRwpbF9+3aITy8v
L2k3AmtFTQlyiHCwadMmeJXx48fDvSxbtow7v5XNcEaRoqbgk4cNGybuC3MT
Mk2cEWpBkVmUbVZF+2LICcTszALxiYcsQIuPWYe/9ff3d3R01HmOj3zYCW7G
7qImAAaO2jTY54qNjS1durTBkTcJTGl1xbeE4T3gKASHYaGcEYLhP6OiovDr
n3/+CZeis/CLgsgcMmSIhMhEDlH+iETKzvvQx5s3b6D9lixZonj7fTYIo09k
4rnQ4FEvaD+CypV+tSFAQmSePn0alqXvpQxbGllCewKCKlusFD7w+WjAqCOB
SID/RHCPiYnRaC2I7VvLf6GAMFGjRg19/XqjMmBQZOK+cOziia9oHv379+er
l71798LJGLXJwMaNGxEy1FrFr1ZqKF48CP9YBLRSVAfUPhsiuH79eq1ataBD
mP6Bt+zVqxfb1BpXwtsgCrPJhCw66OzF//777/gcEo7fQcbPcLx8hwmtBRkg
/joMcOTIkfomZKJC8UUrK6vKlStDXykrB1NEpsxmgwsqVaoED49b4JGnT5/O
jaohhY4dO+Kv+to5nvrIkSMzZ84U+B/8OmLECHaonEa7MhGRlzuZDuoFv06d
OhW1hptCzwwePFjQxeN2yFS2Ywa/ECwiMou4zapoXww5gRhRCb0t8RZATEug
GyiQOoh6yGR0dLSJr0UQv5A3fVOy5YNoaGtrC52gb/oiWjvrGSEsKg6IprS6
Yl3CERERkDpJSUncJ+jmI1lra2uUPNsKQ5+ZWFxk5uXlde/eHVUv3rEBrowN
ZaBadb4R1ujv3BkEJgwFWLJkyXXr1imrxCtXriC6ibdNQAOGl/Dy8kKlzJgx
QzzOIP1qQ4BOkYkPT5w4gRYLfa5vjBqeB76O7TFS+Ae7mw6ecffu3YihOpcI
8Rc0HT9+HCGPm+sCZ4KOW2hoqIJtFQUYFJlobGzfTp0Ijg2FD4H0lT9NlA21
yVnZUcipbdu2rWbNmvwTeP/66y84Se6UedaN4obQ2a/QLexXtq4B0oV9l4VU
NHJ+Cz937hyaN8pW0HTZ7AguKXZSG0KqeP0vYg0ijs6Fb1lZWbg7bL9BgwYG
jzmWQLHIlN9sEM5gAgg0Gu2YJDw5vyneuHEDpYE+OOKRoIkiBKBI4T8FC+VQ
QcuWLeNP4IEnhDtKS0vT/HdCJreemi0ZQFeav/kJUoiLi4Pfg9GZsl5VYyGR
WfRtVl370sgLxIgXPj4+PXv2FK+IR/CFKfE3N4DNuri4ID+mb5+FxNGAN23a
ZGI6rFnC3j08PMTDyDCHsWPHon/KWZMyTBGZxbqE4TPhB7hpRc+fP4ffc3d3
Zyvf4S4mT56sb3zYgiIzPT0dBYteM2fgyHADLYgv6JXY29ujgwb/qe+MV4nO
nUHgnxs3boyvTJgwwah6hCHDSyOrXLbxCI6Ojizn+AERE/kfP368znMiDL7a
EF8vEJkpKSm4C3d3lLBgrgVc9w8//IBbcNfAsuBzTD8ytTDhNmnRCZoHt+kx
imj//v2enp7oD0KX+vn5zZkzR2ZfQxqDIhO3K1OmjL5MCl7io/yRSTaDRc7d
8/Pzx40bp3j6kJlSY7oOnpYbH8MncOCwCG6TLsFhfOhVwSi4AX8oE+iTYcOG
sV9RfTt37kQoR8mgp4zLgoKCYEobNmwQe2P4K6S8b98+9iuLp/y9IpGZuXPn
stPBGNWrV2/wX2CYCNbIDPKPUG5i50uxyJTfbF6+fInAhA744sWLcS/xCy+Y
CXwIUuvatSvkDQpw8+bNo0aNwgOilMQZY9vvd+vWjc0kYXM+uflabEIm91IJ
3bT+/fvXrVuXre7BvZAsSo/Lqo2NjZOT08iRI5W9ibOIyCziNqu6fWnkiUy2
/ESwkovjwoULiK1TpkyBkAsMDPTy8jpx4oQqE8XhuqGoVfFyyA9KpmnTpuXK
lRs0aFBUVFRqaioyjD4FqhXFhdrEI+iMyzIxRWQW9xJGb71169ZQL6tXr4aL
vnTp0rVr19AhDQ0NhYiS2MTG4iOZipHu3MkE34L3LszTzw2+2hAg/1jJLxyo
yrNnzx46dEjFxqzsxB99oCphnvCBOTk5cq5HTIfAkHP2aGGmBqOGY+G/g2ZK
z8PDg/Vi2GAOwhy3ecLatWvh5bi3kKijChUqcO9nGRA56GvDWUFKQSkhTZ13
RwEiKW7XOIRdBF8T9xBQjLon/ugDSg8BKDMzUyLioKhReui0QuEgkEls0clO
6OAO2YSS6dixI5QkG/a/evUqypNb6Y+Gip445KuZZl9bfHW5QQrfZs1hXzID
cUZGBroMEGY6/4r7Qr6eOnVK357eCoAFwXzQwEyZkCkA0fzMmTOLFi2CVBs/
fjxK8vz582pZqImtrriXMNQLfNH169e58kQ/HUpM4rgfTbEVmQY7dzKBGo+I
iDDrQVQCDL7aEEAi04KoKzI12pcODRo04M9skQC+qE+fPmrFd7VSg4m5urry
562xA0q4OT9s8zRIF0iI2NhYqEd0frnNBnENLNfZ2Vn+dtkcbGCtbdu23Pxb
9M6qVKkCTZWenm7i/EAFsIUhc+fOLUwHYiKIjzY2NtwEftQj9AkCMUQUKgvR
GeqF2/oyOTnZ2tpa/ubqxmKKyITi6tevH3vLb1YK2WbNYV8yAzEkBOxrzJgx
hTbqwsZYlG1QZhFMbHVfZgkXU5FpsHMnh3+158/q3IHffBh8tSGARKYFUV1k
Ih1oEn9/f4Nv83FleHj4zJkzVbm1WqmxIyDDwsL4rRFRb5AWNhqGtg0ZM27c
OLRtPCy+gsjbokULtmLl0KFDjo6OOk+QNAhbit6uXTs2z/D+/fvNmzevX78+
fkCclb8HuIrAPIuRwtRoN3uBZGKn+SDkoW2XL18+RQvEJKQm/CoTVKiv1q1b
BwYGmnI4lDSmiEyNtlWrmx99dyk0mzWTfckPxJBP0CTcTCRzExUV1b59e2Ub
lFkKE1vdF1jCxVRkSnfuZG7Yfu/evenTpxfyTEU5rw75kMi0IKqLTI22a+nu
7m7whUteXp6vry9/ywhTUCs12DJclvht4PXr17t06TJjxozg4ODly5fPnj27
bdu2ISEhbFkN4iAMLSAgYP78+ciG4iFHdupE9erV0SlbvHgx7pWQkAA/gApa
vXq16eu8vgTYKYqdO3deuHDhmDFjICy7des2ePDgqVOnQmHir1CY3t7ey5Yt
8/PzW7VqlVo7G+jERJFZaBSazZrJvuQHYsRTJBsaGloI4QbtzdPTU/pQ5s+P
L7CEi6nINNi5M5gCuudz5swpnO3EOdiqH6NeHZLItCDmEJkabSjx8fGR7grd
v38fnSZ9myoYiyqpIcOQH/omFKF9ohlzG2rBvwm6b/i6Kfsts3Ox2emKeJwH
Dx6wSkFkR7JF54yGYgEKDf1cJiDhhVCY/Pd37969gyMtBIdTXESmplBs1nz2
ZVQghhjAk5p48qxB8DiIa2FhYV9g3/BLK2Fzi0w2h/nUqVOXL19W12tJd+4M
gsxYZGt3+a8O4erPnDmDxxkyZEjx3euyWMNEpp+fH2oBdaHWoDeS3bp16/jx
4yVWNyPKr1mzRi3/YHpqyCoMTd/52oUAMo+KMHHTZqKIAAeIoABn+M033xQL
kWlumzWrfRkbiDMyMvr27WviHuASoEu4a9eu0aNHC/bX+nL4EkoYLfnq1atp
aWnr169v0qSJmUTmixcv0DWz19K7d29Tzt/UicHOXRFE/qvDK1euNGrUyM7O
DqVn4sFShDJQ5osXL65VqxaqwNXV9a+//lIx5X379h07dkytBM3N8ePHExMT
LdgI2d474q2MiWIHIuCmTZtq1qwJ5/b1118XFyswq82a1b4UBGLIg8jISDMN
gqGLATX+xSpMxmdfwnl5ef7+/uxY7U6dOhWvmbefASa+OiSILw10J+Gp/vjj
D0tnhCAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiCKOgUFBf/884+l
c0EQBEEQBEF8Jnz8+PHo0aNNmjTZtm2bpfNCEARBEARBFHuOHTvm4eHRo0eP
Nm3alChRYuvWrZbOEUEQBEEQBFHs+aQFP0RGRpLIlE9WVhaUeevWrZctW1b4
d3/+/PmgQYNw95CQkPfv3xd+BgiCIAiCIGRiKZFZUFDw8ePHQr6p6fzxxx/1
6tVLTEy8evVq4d89Pz//1KlT0LctWrR4/fp14WeAIAiCIAhCJoUsMv/999+T
J08OHDhwwIABnp6erVu33r9/v7Fq89WrV97e3sOGDYNSFfwJ2q9x48br16/H
jdTL9f8DIhN5tqzAQx7atGlDIpMgCIIgiKJMIYvM06dPh4WFvXnzRqNddrR4
8eKKFStu377dKE2Yl5e3dOnS1NRU8bfu378fHh5+7do1NTPNg0QmQRAEQRCE
HBSIzIKCgoyMDAW7HuErY8aM+eGHH3JyctgnDx8+bNCgQYsWLZ4/f84+uXXr
Vm5urrEpG4Xi/GuKqsh8+fLljRs3LJglgiAIgiAIAcaKzLy8vClTpiQkJCh4
Hw1dN2TIEBsbm/T0dPbJmzdv3N3da9eufffuXfbJzZs3hw4dar6hSFPyrymq
IvPdu3d4qB07dphpkgBBEARBEISxGCUyCwoKZs2atWDBAsWbt799+/bhw4ec
Fnr8+LGrq+t3333HjWRqtCKqT58+jx49En8d18+bNw8qdMaMGfzl1chYdHR0
aGhop06d9uzZo09rmZ5/scj88OHD6NGjp06dys0s/fXXX/HJq1evFKT/6dOn
DRs2uLi4VK5c+dSpU9zn+/bta9myJYpOo+d1+bNnz/z9/Q8dOqTkqeSBHsHi
xYvHjh07xhBBQUFpaWnmywlBEARBEEUfo0Tmzp07e/TowReEpgApuHnz5goV
KkRFRfFlIYTWsmXLAgICBLv05OfnQx9evnwZ2ahdu/bt27e565F/aEtIx+Dg
4O+//17fSKPp+ReLzDt37jg4OCDD7BGgYwcMGNChQwfIaWW3wONMnz7966+/
fvDgAfsE5eDr69uxY0eWpr45mWfOnHF3d8/KylJ2X4OgeNPT02NiYho3bow2
A9G7Y8eOw//lwIED0PkhISF2dnb467p168yUDYIgCIIgigXyRSY0T6tWrVJS
UtS69fnz552dnefPny8eV8zJyWnXrt0vv/zC//DWrVsrVqyA4ho5ciSU3suX
L9nnDx8+XLp06XstXlp07iGpSv7FIhMJVq1a9fjx4+zXJ0+euLq6hoaGsm1I
FZCXl9e5c+eePXt++PCBfQJpZ29vn5CQwOVBp8j8+PEjNF5gYKB40b2KoNgh
L0uVKqWvzVy7dg3VunfvXvPlgSAIgiCIoo9Mkfnvv/8uWLCgW7duigfoBEAx
QvItWrRIpyLC7VavXt22bdtnz56Jv+jo6Lh48WKdS8vr1KmDfIr/pFb+BSIT
SnL27Nn169dnL7LBqVOnqlSp8vPPPyu+BRsaRcmwp3jz5o2vr2+vXr24nEus
Ls/IyEBmTpw4ofjuBrl8+TJENZ7xwoULOi+Awh84cCAyab48EARBEARR9JEp
Mp88eeLm5rZ582ZVborU+vXrt2PHDog0SCnIqvz8fME1mZmZ9erVS0pK4n+I
i9evX29vbw+pI0728OHD0D/433z5F4jMd+/edenSpXfv3iz/TBvXqFHj5s2b
im+RmpqKpzh69KhGO0MgNDQUd4R+5udBn8iEwOvbt++YMWMUTzo1SFxcXOnS
pfkbAghAngMDA8331p4gCIIgiKIPRNGKFSsgMiGNpK/cvXu3g4PD9evXTb/p
06dPIUJ+/fVX9it0Wnh4OLepEQf0ko+Pz6BBg/j6882bN56entBReXl58fHx
fOnFxirr1q3L/1D1/AtEZnZ2NpKdN28eNyGzf//+7du3f/HiBbIHZWts+kgH
qbEJmSiZWbNmde7c+datW4I8SOyTuXHjRmdnZ+h24x/OMB8/fhw7diwaTEBA
gL4t9N++fQthrODZCYIgCIL4DLhw4UK3bt3q169frlw5aAb836BBg+7du2dk
ZIgvhpwYM2YM1B3bRN0UoL769evXs2fP6VomTZoExejv7y+eRQm5tXTpUugl
7k00uHHjhr29fVxcHNTdnDlzIMO4PyGFHj16eHt7c1MZzZF/gcg8cOBA+fLl
uRf0+NXa2nrUqFGQiILsyQRfQb3gKU6ePNmnT5/Zs2eL8ywtMs+dO2dnZ5eY
mGjsreXw8uXLVq1alSpVKioqiv85HvzixYvsZ5R/WlqaWeeFEgRBEATxefDs
2bPmzZuPHTtW+vxHyJ5t27YNGDCgXbt2Lf+XDh06HD16lG3GXkLEuHHjdKYM
6VK1alX+DEOIHCjJgICAkJAQwfbj9+7dc3Jy4qYyGpV/SGsoukqVKllZWQ0Z
MoRb1s2AzNu1axfTrnyR+enTp/Dw8LJly0Krz9SycOHCefPm4QJk79ixY/xE
oK5xQa1atcqUKQOdhr/y84mfk5OT8QiPHj1q2LAhdGZERIQgGxzSIpOtPAoL
C1O88kgCnRMy8/LygoODuZ1OCYIgCIIgZJKVlVW9enWJV+rQSIcOHXJ0dCxZ
siT+r127NlOPzs7OUJjQVN7e3ufOnTP2vleuXIGeWb9+Pf/D/Px8iDHxnENk
gJvKaFT+Dx48iLsg5zVq1IDORLY9PT35Ew5TUlLi4uKYJuSLTLYMvHfv3q9e
vcItuNXuubm5AgV4//59fAspV65cuVq1avjB1taWvzQGF8yaNQsJyikWaZH5
7t075Kp79+46l9ibSHx8vGBCJqRsdHS0n5+fgmFbgiAIgiC+cI4fP25jY7Nz
506df4X62rNnz1dffdWvXz/IP41WeMTExJQvX3706NGmrECB9HJycpIYlIOO
Qq6uXbv28ePHCRMmuLm5PX361Kj837hxo3HjxuHh4S9evNBoX6wnJSXVrVt3
y5Yt7II3b95MmzaN2xmeLzKzs7Mhp5cvXy59zg7U14ABA7y8vLjFSrhply5d
UFxMB+LrkZGRqampMotFWmSiwAcNGiSxMEcx3IRMKGTo2K5du7q7uzs4OOCT
OXPmmGPglCAIgiCIYgRESJwh/u///o//lX379kGk6TtN5sKFCzVq1IBk4s8e
ZMuuXVxcHj9+rDirubm5TZo0GTp0qD6levjwYSsrq61btyYmJrq6uh45ckTn
ZfryX1BQMHny5NjYWIFKPHr06MCBA9m4IrTfunXruAv4IjM5Oblq1aonT56U
fopffvkF2kywddKTJ0969ep16dIl/AwFGxISIv+EIGmRCSk4ceJE6GR9b9sV
wyZklixZcsmSJVlaMjIyoMYdHR1V3D2VIAiCIIhCADonOjp63rx5c+WxaNGi
8+fPS6f5n//8p5ohfv/9d/5XEhISrK2tuf3G+bx//97Pz8/e3l6wYgiyEDoN
SZmylc3z589btGjRt29ffSITQmvt2rWTJk2aPXs2dwCQGH35v3nzJtSd+D1v
fn4+Pr98+TKeLiwsjL+4GwLPwcEhIiLizz//3LVrV+/evdkQqD6QQmhoqM6j
2Ldv375582bI1/j4+N27d0skwk8NghkJurm56ROZnz59Qp4h++VPksSTzp8/
H9IUOlxiVPbKlStsQia/jaFnERAQYKbF7ARBEARBmAnoBFdX15IlS4oXy+ik
bNmy0JmqZyMmJsbKykrnkN3p06dtbGyGDh0qWE3MRjKhx9gLdGVAv7Vs2bJX
r14mLlXWl39oNm4ipYAdO3bs3bsXamrp0qX85UJQU8OHD+/Tp4/MLTch+XJz
c3UqN2jXWbNmQUhDE4p3cNIJchscHAxlu2DBAvEieu6OM2fOrF69enZ2tpw0
NdpNpVatWlWpUiU8tcRlbEJm8+bN+S/inzx5MmPGDJqQSRAEQRCEAnbt2mVt
bS1+GQ3ttGTJkjJlynAnHnI8ePDA2dm5devW8t8Ci4H4cXNzGzx4sIlbi+vL
vwTp6elr165dsWLFmTNnTLm1BGy9+YEDB9atW6fihEYkFRoa6uTkpHO/UH1s
2bLFzs7u6tWr+i6A0g4MDGQ7ZPKrIz8/36gbEQRBEARBcKSmptrY2AhOEtdo
hcfIkSN1njCYnJxcvnz5WbNmmSKfHj9+7OLiYnDrJIPoy78EN2/eDAoKCgsL
k7niWwEfPnyYNm3axIkTr1y5omKyKKvRo0e7urrK3w4donHEiBFt2rSR6BHo
2yGTIAiCIAhCJ5A6Bt91Xrx4EUpS/IIY4mTo0KG1a9cWvBNHmv7+/o6OjpmZ
mabk7fbt29WrVze4fNsg+vIvwZ07d7755pvY2FhT7itNQUHBoEGDhg0bpu5e
Q0jW19e3Q4cO8k9pf/bs2bfffqtvt1IGNyGT23SdIAiCIAhCDGTbsWPH/Pz8
evfu3bRpUycnp7lz5+pbS/Lw4UNnZ+fp06cLhiXZqZR2dnYCMZmcnAw1Eh0d
baI4PHXqFNLZu3evKYlo9Odfghs3brRs2VJwnqO6QIr37dtXdR378uVL5HzE
iBGCOQZPnjwJDQ0dP378mDFj1q9fHx4ezk3aPHfuHMoZ/YXg4GD8FbpXvGiI
Tcj87rvvZO6MhA5CmzZtuMNDIX0XLFjAJgaADRs2uLi4VK5cGVXMfWXfvn3I
Of+AJ3XBfRMTEydOnCjYxp8gCIIgCBVJSkoKCgpiy14QfCEhKlWqBFWgc8ch
yCEfH5+ePXuKF5tAS7i6uq5Zs4bTk5AN0A8rV640cSIl2LZtW82aNU0/cFwi
//o4e/ZsYGAg/9h01YGkh5xTXceiRmrXrr1p0yb+h1euXIE+3LhxI+r6/fv3
6FlUrVqVe02/ZcsWCMipU6eifNjcy8GDB/PLCl8ZOHBgiRIl/P39ZS7CQouy
tbXl5lFAtTo6OnKD0sgGND87op27ha+vb8eOHeUPwBoL62vgKXr06EErlQiC
IAjCHOTm5g4YMIC/+hhqaujQoYi/c+fOFQ/3sQU+9evX1znKBCHRpUuXKVOm
xMXFQZ94eXmdOHHCxDFMzX8PHO/cubPpqkM6/zrBs0RERJj+FBJAXo4aNUp1
TbV//34oc/5LbajZzlrYvdgMzJYtW7LNl9ivzZs3f/bsmea/i9Pr1KnD5F9y
cjI6EeXLl2fbF5QqVcrOzg6diKioKInCYUqVS1OjPSG0SpUqv/32G/uVHZbE
l/3p6en29vbiFWQqAmGJJ61cufL3339vvvFSgiAIgviSSUtLs7Kygui6efMm
9+H27dtLly7t7u7O31OdIyMjw8nJSd+pNNAbd+/ePXXqlIobgD99+hQqZcWK
FaooPen8C4DuGjdu3L59+0y/rwSJiYlBQUGmj/fygUQMCQnp2rUrX7tC4FWo
UGHt2rWsJJ8/f84/yZ1NyISeZ78WFBT079+/bt26psgwtkqIW4fODnnnj1ve
uXPHwcGBO2geTc7X17dXr17mG8bkQJbQ41B9p3qCIAiCIMD58+dtbW2rVavG
30E9KSmpXLly/NEnPh8+fID2gBRRVxRJAGnk6uqq1ttko/Kfk5PTqVMnwfby
6gJFN2nSpNWrV6s7WPr48WM3Nzf+PE8m8CpXrsydHX/x4kXUflxcHPv16tWr
aAnbtm1jv+LZGzduDJlqyrL6y5cvI82tW7eyX9m4JWQkN24Jtc8dNJ+fnx8a
Gtq6devC2QoJOnb+/Pmqn7lJEARBEAQjOzubvyQcUgeCp0SJEj4+PvoWO6el
pUHAFM6iCeTB398/LCzMxM2L+MjP/8mTJyGKzKpDkDhuceLECXWTjYqKat++
Pf8Ad3bKpLOzMzcyGR0dDYEHCX1KC8Sng4MDdxxScnKytbW1vnPqZQIFW6VK
lfT0dPYrG7dcsGBBbm5uTEwMVOW8efPYwOa7d+9mzZqFojDrGis+ly5dWrly
pYrtiiAIgiAICV6/fu3h4VGxYsWDBw/qu+aff/4JCQkJDQ0thAD966+/Qiyp
O3FOZv6ht1etWvXjjz+adcwWGq9t27bqPmBOTo6npydUouDzhISE+vXrswXj
6Fm0aNGiYcOGEHiLFi3KzMzEt1q2bJmUlKTRnqLeunXrwMBA+SukxLDJtDY2
Nmwfe0jKSZMmlS1b9pdffkG1xsfH/+c//+nWrZu3tzfEfJ8+fWbPnq1zhoY5
QGagdWkXJoIgCIIoNHbs2FGuXDloMOn11I8fP/bx8eGWb5iJ3NxcKBCZ8yeN
Qk7+oS1HjRoFLaT63fns2rVr+PDhKq5eh7SbNWtWWFiYePV3Xl7euHHjBg8e
DDk3ceJE1HWTJk1Q1xEREXhYiGooTBT4smXL/Pz8ILBNzBU7DNTKysrd3X3p
0qW4Y0xMDNIfMGAAFD6qAFIWKhc6Exko5LmRe/fuVfd8JYIgCIIgJMjMzGzQ
oMHo0aPl7OuSkZHRt29fE3dZlwB5CA4O3rJli5mUgMH8Q2KtXLnS3OInOTmZ
20PSdCAUoVpRg/p2OtVoxznxUGwK6Nu3bwXnAaHY7969q8oY9aVLl2xtbbdu
3fr8+fOsrCwmWZHyw4cPTTyD3nQggAttUjFBEARBfOHk5uZ27doVuk7+zoFX
r16NjIw0k2A4fvx4YmKiWceazJp/i/Do0aM1a9ZIKMzCJDY2lr9DJkEQBEEQ
XyBsP/DFixd/ToqLsCBsQqb8g4EIgiAIgvj8eP/+/dSpUzds2MC9JH316tXC
hQuLyIAYURzJz8+HyFyyZAnNeyQIgiCIL5N//vln5cqVMTExfDFw/fr1GTNm
0KQ1giAIgiAIQgEQlhEREba2tm5ubt9qadasWZ06dSpVqjRv3jyznqVIEARB
EARBfK6cPXu2SpUqJUSULl3arIdHEwRBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARRZPn/APoVXs4=

     "], {{0, 109.}, {887., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{649.6666666666663, Automatic},
   ImageSizeRaw->{887., 109.},
   PlotRange->{{0, 887.}, {0, 109.}}]], "Input",ExpressionUUID->
  "e497f9c9-e450-4a9d-8fb2-640e56f68895"],
 ", FieldNumber = 1"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.8318211757101755`*^9, 
   3.831821176054186*^9}, {3.8318212250410357`*^9, 
   3.831821225462812*^9}},ExpressionUUID->"570b6be1-482d-457c-a792-\
e7628d362719"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "1"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}},
 CellLabel->
  "In[249]:=",ExpressionUUID->"e82d4350-8219-4382-a48f-d33d0d568e74"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831805884463417*^9, 
   3.831821543075192*^9, 3.831821615781942*^9, {3.831822067139452*^9, 
   3.831822083189903*^9}, {3.8318221168790903`*^9, 3.831822124229101*^9}, 
   3.83182237608669*^9, 3.831828156599307*^9, 3.8318397879014754`*^9, 
   3.8329475003451457`*^9, 3.832961784903102*^9, 3.8458268756610093`*^9, 
   3.845852468098875*^9, 3.845857078346724*^9, 3.8459196245511484`*^9, 
   3.8460065769185143`*^9, 3.8460998882704086`*^9, 3.8474704495688477`*^9, 
   3.851700635024682*^9, 3.853975451225416*^9, 3.8549774091867657`*^9, 
   3.854989264503747*^9, 3.854999901614316*^9, 3.8551652499619017`*^9, 
   3.855182319638651*^9, 3.855185863956997*^9, 3.8553306403505135`*^9, 
   3.855339845758627*^9, 3.855343183174054*^9, 3.855344017183717*^9, 
   3.855352744466668*^9, 3.855449608650231*^9, 3.855507610545306*^9, 
   3.855508407369957*^9, 3.855512895015918*^9, 3.855533326476686*^9, 
   3.855578920673354*^9, 3.855593293223029*^9, 3.8557506056879234`*^9},
 CellLabel->
  "Out[250]=",ExpressionUUID->"a4f653e8-699c-4475-b2c3-129afd2611dd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"B", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", 
      RowBox[{"2", 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"d", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "-", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.831821548575319*^9, 3.8318216060627775`*^9}, {3.831822072025206*^9, 
  3.831822074309018*^9}, {3.831822110039128*^9, 3.8318221104452844`*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"25d9e5ad-851a-451a-907e-b5215f8b8ad2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}, {3.8318220912578692`*^9, 3.8318221206819324`*^9}},
 CellLabel->
  "In[252]:=",ExpressionUUID->"de608e23-9759-4f3c-9415-ef5641281517"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8318058845321503`*^9, 3.8318216161991186`*^9, {
   3.8318220673581543`*^9, 3.8318220833984103`*^9}, {3.831822117035342*^9, 
   3.8318221244009366`*^9}, 3.8318223762236786`*^9, 3.8318281566461687`*^9, 
   3.831839787956139*^9, 3.8329475003906116`*^9, 3.8329617849636345`*^9, 
   3.845826875739091*^9, 3.8458524681515827`*^9, 3.8458570784039288`*^9, 
   3.845919624613635*^9, 3.8460065769744024`*^9, 3.846099888317306*^9, 
   3.847470449646907*^9, 3.851700635087163*^9, 3.853975451288979*^9, 
   3.8549774092960815`*^9, 3.854989264568668*^9, 3.8549999016768007`*^9, 
   3.8551652500556297`*^9, 3.855182319701168*^9, 3.855185864030508*^9, 
   3.8553306404130044`*^9, 3.855339845883606*^9, 3.855343183236513*^9, 
   3.855344017243099*^9, 3.8553527445288553`*^9, 3.8554496087443953`*^9, 
   3.855507610607738*^9, 3.855508407435831*^9, 3.855512895087983*^9, 
   3.855533326535614*^9, 3.855578920741284*^9, 3.8555932932543*^9, 
   3.85575060575041*^9},
 CellLabel->
  "Out[252]=",ExpressionUUID->"fb48d7ce-e2b2-4f15-9913-0c5d6d6ad736"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[253]:=",ExpressionUUID->"6d62d27b-b0bf-4350-b1a3-9b3dbe286317"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQlYTvn//y+MXZaUJUUiimnCZN8ZyVgKmYgYJGkoQpYJyZJtjKUkRZaK
lDBjxsXwmcYul2UkXHZX1q/tK3PhMp/r/j9/9/ua8z/fc8597nOfc9/dmNfj
umaunE7nvM97eb2er/fqMiZi0PjSpUqViqqA/w36Nrr71KnfzhpcHf8ImBwV
Fjo5ZJzv5GkhoSFT240pg4uT8V9f/PD/ftYRBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQnxa3bt1au3ZtcHDw1KlT8/Ly/vvf
/wpu+PPPP9PT09+/f2+V5Bni77//Pn78+Ny5c4OCghYvXnz79m3BDUhwbm7u
iRMnrJE6giAIgiAIK1BcXDxv3rxGjRoNGDBg6NChrq6upUqV6tmz57Fjx5jG
e/HixZIlS3Dl3Llz1k7s/+HatWv+/v4eHh7Dhg3z9fWtXr16xYoVJ0+eXFRU
xG64evUqVF9oaOjz58+tm1SCIAiCIIiS4e7duwEBAbNmzYKEY1fev3+/b9++
1q1bQ+PVrFmzadOmdnZ2kZGRT548sW5SBRw4cKB79+5ZWVl///03u8JUqL29
vY2NTcN/2LJli0x/44ULF9zd3VetWiXuqyQIgiAIgvgYKSoqgsIRX4ciOn78
+I8//piSknLnzp2ST5g8EGPnzp178OCB+FfQeLm5ucuXL8f/i4uL5Z9z69at
6OjoixcvWiaZhBXg1D7HhzadgCgxBJWBagJhUV6/fk11zKLA9b99+9baqfhX
AOO5ePHiZs2a3bhxw9ppIUoImUL/EPpCV6xY4ejo6O/vHxYWNmzYMC8vr8TE
ROqb/Rdy/vx5Z2fn7t27jxs3buzYsZ06dRoxYsTLly+tnS7iUwOibvXq1ZMn
T541axYsj4+Pz7Fjx0x9yLNnz/r06RMUFCRQL7Bd69evb9y48Yc2M6qEKS4u
Pnr0aD89f/31l4onUA6bBLIlKysrPj7eaC8Z8ckgU+hW7wtF2pYvX161alUb
G5uyZct6e3vn5OSIe/OIfwNnz56Fzkc1KFWqVP369efPn8/NPyEIcwGbs2TJ
EgSSbHY3hMfgwYNR3/7880+TnvPq1au4uLg9e/aIQ9H9+/cvWLDg31x7oZYD
AwPnzJnj4eHRq1cvderuU8phfMLBgwdh0+bNmwdfLF5P+q8F0j0pKSkiIqJb
t27bt2+X7NjBPVu2bJmrJzExkeSrahDYJicnz9OTmpqqpGEi8/Pz89+9e2fq
u1gUtm/fPii6EuuvQzqR2jdv3pTM6/5tXLp0Sd2k3/Pnz6PKoXQkB8s+ilK7
f//+0qVLYYLwIXBA1AWtkBs3bkBxIdPg/o4cOaLkTx4+fFhYWKjiXahIkHZV
qlQ5fPiwTj+0MWvWrM8++ywjI4O74cOvaSWA6hzmgDzr2rWrpLq7cuWK5Eyt
kqQkWyuqWVhYmJOTk5+f38iRIwsKCiz3ro8IZAvUGkQdGl14eHiHDh0kV9Si
/qCYBg4ciBtcXFzu3btX8km1ImhHCA2ysrJOnz6tMaJBo3Z3d2/btq2/vz/s
Hp5s9NWRkZGbNm1S0To4dac2sWrAS7dt24ZgoQRG/eAjDhw4ABuCeA0/WGgK
CgTV77//bnUtwTL2u+++M1pnJGHqztA8qJIsNdVcv349ODgYVqhhw4b44ROb
04UiePToETy+oHxhmRESankyLED16tV9fX0HDRrEqSwZ4Byh0EztbeOAWz95
8iQrHSQ+MDDQ3t7+7Nmz7LclX9OQhps3b167dk1gH4qLi601kKExhxky6u7y
5cvDhw+37hT6kmytKMeJEyfCNkoWKKrc1q1bkeHfSIH6GRoaunLlyqtXr0o+
HNUmISEBz4fLNnSPhbhw4cK3334rmWwwevRoqDKEUYZ6fu7cuRMXF/daj48e
eUvyn//854svvjCk7lBpQ0JCDCVm7NixCxcuhKP8EAYHkYYnT54o6RA7fvw4
woExY8bgw0uVKlW6dOlx48ZBVxgqdPm+UKi71q1b//TTT0oSiUfNnDkTJaii
4073j7pDGpBOSERIIO0zQmFJkBVTpkzhWiu+BVeePXvG3YNfoVLNmDHDojN+
obf79u0bHR29c+fOtLS0gICAFi1aQOOZ9y1wuF9++WW/fv2sPnsZ+QxTqTok
h7r7/vvv9+zZM336dIQVR44cES+ysHSp4Y1QFzARY42BJrZ27VrJlKBWo1HA
6FlL3Sk3HUqAxtiyZQt8dM2aNZs1awZ/7erq2qNHDzZXDb9FdmVnZ2t5BdQd
6jAsj5KbYdv79++PxqXljRy//fZb7dq1Yfb5hSVf05AAVFSIE1RUvjOCaIyJ
iUHF6N27N9SL0VdD0SGcQSiNBHh7eyNLO3TogGeyrm80B9htPNMcX2ka5sph
GXWn03vqAQMG3L17VzIBZslhtEQY3q+++srT09PR0XHDhg2S95RAa5VXdzr9
LKnc3NypU6eWL18eThwWBjXzmB4UBPw18qpcuXJff/21+MN37dq1ceNGuM4G
DRrAn1ruK8S8ePEC4m3VqlV4NZLdsmXLnJwclmzoqPT0dHxyrVq1YDHk51zh
852dnSEk5Pso5NUdqgreC7OMUPGzzz6bPXs27meJOXr0KBIAtYnrkD2IpLR+
uVrgrydMmPD55583b968WrVqsKhr1qwxNEIK64omwBZKI/dQExACpKam4mfJ
QjfaF2qSuoPZR0N7/Pix6o9FSALFfvr0abaRNT55//79qp+m00dkaMgw16ye
wD5DVnXp0kUQiUPsoaVs2rRJy7tkgOQeNWoUX+og59etW4e0mcsx6fSmadGi
RdDzHTt2tO4sFIQP7du3VzisJsm5c+fg41CjUNVRaeEX0DwF7tXSpQYKCwsh
8BDrwVjBSiDigODcp2fv3r1wFrGxsV5eXvgt3JZkpGlFdWeS6UCLmDRpEnwf
ZIbkDUg/bAgsc+PGjRF/8Q3FxYsX4W6QMzDI9erV0ziEp1zd4VuQsXipxgAc
1g9fBNuFIl6xYoW4pAzVNETNeDvqKioqPpyLmpE506ZNKygoQJNHECfvp3Az
6nblypUR/R06dIh7O36AZUbdgz1s06bNkCFDSj5kM1cO64ypOzwfVhpGUtCI
zJLDHPCMCD3QHCpVqvTLL7+Ib/hA1B0DIsfJyQkqTjJcOnHiBFo0YgF+FwHy
dv78+RA8sFqIv6BnzJ54o6A1MYMJUSrORsiDoKCgsmXLosgM1WdYgBo1ahgd
xZNXd4z8/Hw0algt8e4xyPw5c+YgnYik+L09JQZqL0I2TujCAoeFhcF9d+rU
SXKvG9hzyf5YQ4VutC9Uubq7ffs2bPLu3bvVfSkDTZXzGqgkI0eOhOvUMiUD
6UE94ep/UVGRm5tbRESEuFnBWSP9aFCq32UImLVBgwYhUkDp8K8jq+EyYLfN
tR0lnKyLiwuqq4eHhxXnsaDNjh8/HhVVS38RMocfyKPeopGKpb7lSo0DVQUG
H7nav39/SceEkAraBo5J0iNYS92ZajrOnz+PloKQWVKb4c9DQkIQ6kZGRkpO
hsFfwdKWKVOmc+fOGgcxlau7rKwshADmmniDjIJhhMdE7RV/gmRNu3LlypIl
S1BXg4ODkZKnT59yN2dmZur0p0TZ29v/+OOPhl6KG5BvDg4OuF9slFB5EJKj
5qP6LV++3AwfaSJmzGF5dafT98W1a9du586d/Ivac1gA1EXLli0bNmwouZbh
g1J3SGGDBg0MqTud/tth8OvUqXPq1Cn+dUhieBy0dKvE+DD7w4cPN6TudPqa
MHToUNgKVGmxJscVCD98uFGrrkTdJScn40Uw3ZJTZxE3oXFx025LElTpMWPG
ICLmX0TTYMIYAljcTJBviEDnzZsnWW1kCt1QX6hCdcdKBC3XvLNTli1bVr58
edWKkc2R5uv2I0eOoDTT09PFN7Osmz59utkH4uH4YH9sbW3/+OMPwa/WrFmD
D9Q4ksVA4UK1Tpo0CQ90dHQ01AOj5Dnr16/X0lmNz2zcuDEajuoniEHwjoKD
2xWYC8uVGgfEW/fu3dHiFi1aZKh/YNWqVYb6NzT6CwQmcGSmzqJUYTqQvLNn
z0pqKjhEhCHwMpL9Wgx8O0oBD58yZYrGslCo7hBud+nSBa7fvFNMUfnLli27
YMECwVfI1DQokPr168fGxopTsnXrVmjmo0ePSr4rLy8PTRWG19ANun/UCByQ
in4YdZWHw7w5bFTd4S0w+G3bthVEwToNOSyGOXTUZ8lkfFzqDmzYsAHVFQaK
H3MhUqtduzZaq1VmXxtVdzr9TEvUfDs7u+PHjwt+BduFhtanTx+jSziNqju8
HWYQKeEG7wQwt1KxYkWFo5NmBILcx8dH7KZh/SpUqFCzZk3xDj/4BEg7sZhn
yBS6ob5QhequqKjI09Nz7dq1xr/KML///juU588//8xdgdOE8FY99Aa/3KNH
D063M+uBHDA0SSMxMdHDw0Ny7ocWUF0TEhJghcR9WfC/KMrIyEjt4gRlh+cg
BoGMRI1VvfvTkydPYCtUr21Bg5owYQLyXMvUeng0hCFz5szhcgxRKio8Lorz
0EKlxsEG9ytXriwzhp6UlCQ5jUenzV+w8ASK3dS/VWE6DIFyHDlyJCxkVFSU
fGdsTk5O1apVWY+KFhSqu9zc3EaNGl26dEnLu2AiYF74G9whNsFXtGvXTtxF
KVnTUL4wUw4ODuIsRanBiTdv3lyyIx1WqEmTJmitkkOE/IeMGzfOzc2NO6NT
IaorD4dZcpjDqLrT6Tuc8casrCz+RdU5LAnUe+nSpSWFou4jVHeoFe7u7rhn
x44d7Ao+AbFJvXr1UMFQsUtetyhRd7geGhqKe0aPHi0Yn4XVcnJymj9/vlFp
alTdwY+0atWqUqVKhua3ozJAYCCTYeSNfZaZ2bJlC2R5rVq1BN0gV69etbe3
5y/b5wM/WLdu3Y4dOwrmv8kUukxfqEJ1t23bNnhAjYuqkpOT8bFc00aqYmJi
1AWtjGvXriFV33//PTfpDvKgffv2EDCpqalia4n04/60tDQNH2EayFgEDtoX
QaCsg4ODkX4Euagb8lJEHo3qDlUI9nn16tXq/pyBgkOoDgPIZQvzufBWYnto
6VKDaClfvryrq6shAYnahbhm7969hn5b8upOnekQw7aDgwH09vY2Op8WVqVp
06ZK5rfLo0TdMQ/i6+urcX0uzD6MP38ibl5eHmoadIh4GEKypr148aJz584D
Bw6EeoFV4ZtQ6EOoxGHDholV8bNnzxB4wruhbsi7eBawBwQEmGoiNKo7c+Uw
hxJ1h3fhjd988w1/HE1dDkuC20aNGmVo0p3uI1R3bJU3KpK/vz/LNGRv7969
4emQOXDr5hLnylGi7nT6TlcYIv5cSgYMaY0aNZTMtzeq7s6cOVO9enX4I8m5
KPhDNplk6dKlJb9yFlYOrh/JE/ReQmfWqVMHqZL0aMjb8ePHsyESfp2XKXSZ
vlAl6g4liHJEA9Q4yl9YWDhjxgzOqEJmdOjQYeTIkep2v9T945e54WbWt4Bg
Aa1m9uzZ4l0QkX52JoK5FhgKwHtRpX/88cdDhw4xm5meno4a3rNnTy0mlMW2
7JARKJDGjRsrd99iNKq7Xbt2Ico+efKkuj9nIDdQQOfPn2f/RNODRHdzc5Nc
4G/RUuMm3Q0YMIDvcaCiUZScTcD3GlrPaBV1p850iGF6Bo1ISXWCAvfz89M+
1UeJuoNlRn2Ii4vTOPaEOAKVh3MleBqeCX+6ceNG8ZMlaxoMKSp8SkoKHiWw
KhcvXoSWXrNmjeA5eHJCQgLkd5MmTYxOLkIdgAVTMcqmUd2ZK4c5YNjhI6Bp
ZbafZfnv4uLCd8cqctgQiFC8vLwEzxck4ONSdyzHYKA4DYNnLliwABV16tSp
8C8lPzirUN2dOnWqWrVqcFWZmZkw+AhIUZq4PywszNPTU8m0W6PqbsOGDbB1
kqPwN27cgNutUKFCbGysVXazRDHl5+fDjwius+iySpUq4jWJsD/Lly+Hd4ZB
rly5Ml+VyRS6TF+oEnX36NEjNJlx48YZKkp8BZwjIiakGXGWYDor0gxHifzH
26HbIU1RmVHiUJuIs8SlDPkBEVi3bl2YR3iBX3/9lZ9s/Iw/xxfhe6Ojo1F5
XF1dZ+hBCAyR4O3tDYuHvxKnkw2CtGzZUsuyX0kgVPr37+/j44P6BiUAS4U0
QKssXrwYrQBhqZa+O1i/4OBgluanT5+ivPBM5RZPgBZ1hzxHTCEziqSw7HT6
1jdhwgQ4QUTZMIMdO3Y0NLXGcqWmMzDpjnlnydmbYqyi7pSbDnwgKiFCnm7d
uqEZ8osDVjokJATfjpLiZrPLAKEiKFB1KFF3Bw4cQICPeE3+UWhiaPK+vr54
YGse+OeQIUOYX0BWwA0hOELMtWTJErj+ZcuWSbZHyZqGnEFoDEuFYhL0k8Bh
IZHimUV4b7NmzZCxkn3RApCfhw8fVjEPVqO6M2MOI2xHBWvfvj2ECvwpYnY0
B0NfhDfivfyhBxU5zIHwBO9CSqA3kBsoYplJd7qPUN3p9BrGxsYGSomLqfEV
UHrW2jZBobpDBYBox22QJWjyMEqJiYmIIuE++LOzZJBXd3g1ypE9n2+6kauw
eM7OzqgGZ86cUfGBlgP1AfEL0gx/J1jGe+LECTQrBHq4jraAeyCQ+JGOoUKX
6QtVou7YqgGYRMnf5ubmokGh+tWuXRsCD6lCBMc3j7t374ba4fIfbRmv27Fj
x/Xr18WeAh4E8gwPQWW2s7PDD4J137gBzfOVHvhlaCrkBlLIuSf+slwx0MZ4
oMYhZj74BJigWrVqCWKEgoICyGl/f398gtFmLgOeCbnOiTFYrV69euGZ3Hi0
qWhRd0hM37598eeS4bnysmP/hIeF3YbkgNWSV79mLzUOyUl30OqIki5cuKDk
CVZRd4aeJjAdeCyaLSIp/BAZGQlhw4+84Ljr168vMI8lgBJ1B3UNk8X17op5
/fo1mkA5PY0bN4amxYcg1vP09IRBQz1EFMnZBNSuP/74Y/PmzbCB8jGCZE1D
tUdIIug6Zr0Qn3/+ufhDYO4Q3aAVyMgS7WisPObNYeXgjfAXENv8i6bmsE7f
7iAVnJyckNvs8COEY61atUIiZTokP0Z1l5aWhuoE36px9zBzoVDdwdrDtOK2
yZMnwyOvWLECGYIaq3wHZnl1x5YjIWegAbiNSUeMGAFRhDoTGhqK+FfJW1Al
oAZRCqVMAYpIxYZgyBOIW1gGQe/TsWPHYIoXLlzIKgzCPYhhiApDPkhhX6gS
dYcoz9bWFk8T/wqhlru7e3R0NNv0A+/KyspCjYXpYDdAakKcKJwSD80QEBDg
4+PDTa/F83v06OHn58dGNlEQ69atY0sFERrUq1dPZp2jJNAS+BYz7kEH14l2
Fx4eLtAnaAIzZsxAHShdurShCflKQJgDv8zpRnayEmqXTFeqPFrUHRv4GDp0
qHiQ1KSyMxWzlxoHG9yHiejQoUPPnj27devm4eHBDkFW6Lk+HHUnNh0oAqTt
Lz2IZCG5+YcisYkxWia+qsOoukO2wGjA3Bka1kSNgiWvWLEimj8LNGBn0C5Q
lIIZ+6ZitKZBhGzcuBHiuaioqHnz5uLNl7iJUlAaluht5tBSeayYw2yTt6io
KEPKx2gOM/bu3YuSiomJ4X4LywZfBmssOXDD+BjVHaKSMmXKIAI9dOiQuVOq
BoXqDuXI1N20adPUvUhe3bHF0Yg7xOoC7hKaBBmLBqJkWBbi8+TJk0dNAW7O
1AFftudwhQoVUlNT+aLl/v37kKlwyly/HH5AhI62ZqhrXWFfqBJ1t2PHDrQj
8axy6BnIcvEMFoQYEACsiwbe/IcfflAowHbu3AnRIpjtjDber18/dnIQyhHW
jPVLoEUg9jS1wiNbEIRu375d4f1w8StXrsRnxsfHi+fOwVfCUqGCiVcvspUs
bI9c1ZuHwF6NGjWK35MAcwGxp2W0V4u6Q/43atQIwYK4UZtUdqZi3lLjYP6R
bXeJOKiwsBBZjXe1a9cOoZ9C+/+BqDux6cD/V69ezezD5cuX69aty586i1fD
6uLbGzZsaGiSkjqMZr5RdYfcQLU3tKkjWxoP07dmzRq+YWEb+o0ZM0ZLZsrX
NDwZmQyfhRaNVoB2JM461qWAjIUHtND8XoaWymPFHMYb8V5DmaMkh3V6XeSu
h+/6Wc4bmmPPfdpHp+4QFNvY2GjZJ8G8KFR3MKe1atXCbYZG/Ywir+7Y4mj4
QUmVhcoAYYPo1aKb4SsHFQ8pgY6CHOLXClxfuHAh2hp/H0jkKjtow9B0aIV9
oUrUHVIFiydedAyXAdsiHqRDbuM6qiJsO2I08ewgSXAzwjTJswgRvKxduxb5
AM+1bds2dhFRdv/+/U3dKBhROUQvFKnC+/EtEMawGOJFbWy1vqFKzqJjNkym
boIEvhdeErYUCva3f8DPeB0b/pbfexDqGinPEIFvh1WcMWOG+FeoYPIrx1k4
Jt7xzNSyMxUzlhoftqOOYCgHPyxdulSyp1oSJf4C2XXixInMzExBhqenp/v5
+fn4+EBOCH6Fm48dO6ZcYYpNBy5CrKIa4AdchyXkby7KdQJ37dpV3UnBhjCa
+UbVHdI2ePBgLy8v8cZoOn1IhUrYu3dvQf2/detW/fr1kZlaJlEbrWmo5LNn
z4b4h8+VbNdw2c7OzjLjg/B6iXo2bNiQqic5ORn+3VCyLVF5rJjDTIPBKRuS
vkZzmFtoIDBEbAUlwkmZZXofnbrjIlALTTxWgUJ1B22GpqRlewcZdccWRyMN
hnZrRMLYRk8QCVY/tVOnHwBlY5qCKsGaQ7NmzfhT2VmMU7FiRYUTFA2hRN3B
+KCYxL1k8OmGRq/S0tJgYU6dOoVmqLAd4asR1kmWFPQhmiTyAVpR41GMbETb
pKFSiNjatWtDaAmu3717t0mTJoYENixMnz59ZDZaVPJehK5wwUH/lw4dOuCx
hqajcFy6dAkmtKOINm3aoNqgOol/BUePspZJLbQfsmLatGmCKmrpsjNjqfFh
k+4E2yWhus6bN0/5iedK/AXkEzxRp06dxHlet25dBwcHlKngOm6Gg1AYFxgy
HQw8BCVbp04d/rAsd5yQv7+/0S4mfGNOTo7yhdLymW9U3cEao+pKjmyyLnE0
OgR3gl+xnqUhQ4Zo6TFTUdMEMAlkY2Nj6AzQs2fPLlq0KDIyEk0Y+V+hQgX4
SkQThiSTJSqPFXOYjZ9q2SSKPQH5JhhOSkpKQggjvwr4o1N3iEDZRGs8zVon
WQtQqO7Q/NEKWrRoofpYJRl1x+YIyYxWI5GDBg1iaxOssmaWD+IOpFawqI2B
wK1atWowxfw2xUJve3t7jdtPKVF3SFXVqlVNkpF5eXkrVqyArla+x7gMbCUm
/IugV1MFv/zyi62trdhwyQCZWrNmTXyR4DpCEtQuOE3JzsmrV69COTg5OSns
uhQA0zd16lTJUzxyc3PLly+PJ6s7n0vLyCybM2PSIhGzlJ0ZS40PspftdMcf
ykEDvHnzpnLXY/WRWRnTwUAmIPfglPlWjoWHsH6SO0gLgE4ICwtTXt/kM19J
3x3MHfyC+B62aQnk040bNwS/QpDFDhPXskJERU0TAF/WvHlz+DVu7rEk3Nkf
hs6/M4qWymPFHMYbPT09AwMDVUtE1kfn7OzMr5BsBaXMxraMj07d5efn19Lz
4Sz/VKLuXr58CVEKsb1s2TKutpw7dy4mJgY5o/CAFRl1d+rUKdSBJk2aGBq3
vXv3rpubGxJp9IRituEY/HgNU8DDxUdTSQIBAIe7a9cufjKOHTvGCpT5IMF+
Js+ePWvTpk2XLl00LotWou727NkDiyc4H1AeaM7Q0NCoqCizDPrA+kHqoFbI
rPBSSFZWFr7F6D4AHGyeW7NmzcT9Ttu3b4eta9eunXguGUpqzZo1ZcqUQbLV
mZFff/118uTJkmYfghmfgAqmcFGnAC3qDpmArDB04qokZik7M5Ya/x425CHY
6c5UrKvu5E2H7p8ZAlwPM17ECdeUlBRUUf5Ov4bA82GlFYpzo5mvZN4drIfk
/tJs5qc4zWxPTsldpEzC1JomBnWJrZSXX9X++vVr1iezePFidWJJ47w7a+Uw
3DGcsupFYbp/DmQRrNxnxxZwkZqhFv1xqTt8xYgRIxApQKJ8IB13OmXqDvER
vgthAr9zGE1+6dKlUOAKd+OUUXeJiYkyk+7YMljc4OLioqR3Ba+AytqpGFgJ
hIFKtE1RUVFAQEBubi7/ImoFksfa0f79+ytWrCjY3wzWG9Gx9pPmlKg7FiuZ
dAzZ9evXEcAqnyglD/wRIs2goCDt26qvX79evMwBz0f2oslPmDABbX/hwoUo
a5axLJKFM4LWQoNFdeLiDjRJVOC+ffuK+3mQqy1btkQO8DuFrl69CkHOZTX+
Cm1Wskfr6dOnSIyhwUE2W1X1ycha1B0MPsy+SX3dZik7M5YaBzfpTrV7ZVhR
3Rk1HTq9IPfw8ODmdWzatImTLteuXYNzsbe3lx+Gxm3IYYEY05L5RtUdbl60
aJGdnZ14YII5RHF/IxqFk5MTZJVGEyFZ00wlNTUVclryOAwO1rdfuXJl+b4m
GbRUHivmMDtOxdS9Dviw4x0Fm04zJ8VOpYSJQ52U3BfrQ1N3zs7OhtQdvg65
hIoEKWXG492RJAR6SJ7qQy64KbuG1B1UWb169dzc3MT9DwkJCTIbfYifI6nu
kIDg4GBDk+7wgZs3b4Z/rFatmuoj7M3Cs2fPwsPDxfvYoNzRvpjshFKqX78+
v4ORtesWLVrIbOOsECXqDhIFGlg820oG1Bw8Vt2gpJi//voLPkK7VmQHEwh2
MkfDGTlyJDvjQ6dfoFSmTBnIZvZbNoMIqoyNU6AZuru7s++C14O5E69uQIWf
PXu2ra2twO3C5kOQc44DD0Sxiq0cEomL3NY3YhBcI0RFqzepN5VDi7pDs0Je
mbTVg/ayM2+pcXA73WncZ8Ba6k6J6dDpY0MEy9BgeAUyDa2Y667B2+Pi4hDh
8o+EE3Dr1i38ViD/NGa+kv3uMjMz4azFRYNXd+vWTXDsDhIfFhbWsGFDjTsi
StY0FSA6QxAkcwIIOwAOOS9z/p1RNIYGVslhnX5zabxXy2nF0AYwpPwWB7vE
FoDHxMQgb0+ePIkAR9J+flDq7vz58xDYsOSCNdpIG3LJx8cHwm/69OkyZ3+o
gHlz5FXv3r3VPfnVq1dfffWV5KpwGNWpU6dWrFgRLka8lpO5D1gGhTsnGFJ3
N2/ehHTEW8TWDzFIYGCgjY1N48aNf/vtNxO/zJwgCBozZoyh7fK4afMoaxQx
xBI30oHaC4OpbuswAUrUHZq5r69v3759lc8POXbsWEhIiLlmM8KJBAUFadeK
bC4x/2hFth6ZP6sBZqdGjRpctxizgdwGSriOf7K1n+z8LKg4fi1CYa1atQrG
RzAPCteRIfxFajk5OXiU4DxEJAx2qWrVqjJrNpEPCK5RQ5YvX64iEzSeRLZ2
7Vr4buWzPbWXnXlLjXtCSkoK7CoEnnh+kUlYRd0pNB06vZSCuktKStLpd61Z
vXo13+PAUMPeIh/wCYIgBdmOEBhBumAfBu2Zr0TdFRQUoJpBN4p/lZaWhqiK
eztcBtIDay8/x1IJ4pqmGqggJMne3j4rK0vg4vEWfNeAAQPgZA0NLSlBo7qz
Sg7r9Ccv1KlTR4tKhBsaMmRI+/btWXCBz09ISPD394cWgnVifdeGxjU+BHWH
i8hPtt87A8ERIv3GevAD2gvqBiIymdksRUVFERERuIedwxIdHa3wuBMoOjT5
atWqdejQwdQoBhUA1QCp5VKOr2DJRoLh9RwcHPr164eATnJSJXwf1Nr48eMV
Zr5A3eGv5syZw86/4LYUbvwPSACMErIO3g11zLySWAWweGXLljVkoiGtOTUF
I4yGjHgK9hZF2aNHD24cRCNK1B1etGDBAsHkc3ngOleuXGmuDfChDUaPHq29
d5odrcjvzmVXevXqxcbQ2SQl7qQtNoOIf/BWamoqQnLujCr8FeoqFML8+fN/
/vlnfDWCmnbt2iHyEnw7wnl4tFGjRrFqz45RQyzMnR0Amz9lypTKlStz7X3y
5MmCVnDixAnU9goVKnCVBPZZsCeVUTSqO6QBbWrHjh0K79deduYtNWQ4Ph9G
gMtD6HP4suDgYHWJtIq6U246UPEgVxBlx8bG4l3ib8Sd8fHxyBB2oh+iEkQW
yM9u3boheBFH2RqbjE6ZumMny3PthQ/yCta7U6dOiG5Q+SGT4ODUrTCS/DRD
eyyYCmra0KFD0ZC9vb2Rw3B5aDUoAlhvmAt8IMzF+vXrVb9Lo7qzSg6zyXto
gBqNOfK2f//+CHCQgWFhYaixUHoQLaj5c+fOjYuLM9QX/SGoO+1A9bVq1YpF
aohEkBXyx46IQaHDpwvODLU0J0+ehJ2BLQoPD0c1QNQvH1kbPWf2UwL2cP/+
/YhKzLg/lRJ1p9Ov3IEHVNhbiJoDzaNcABglIyMjNDRU+9agEGD4Cv6kGrYB
AncSE2xO165dBw0axIwDm5rFxdcwCIiVEKHwezPwhwhyYVKQQthwVEhJw4I/
QZiTmJjI/smOUZM5D9FyaFR3SDk8OxvpU3K/9rKzRKmZEauvmTUKsgW5V1BQ
ICMk4Bx37tw5bdo0WF1oPPxsyP9qz3wl6o5tqNuiRQtDSzPwfBilo0ePyhw7
aCrimqad69evQyAxdzZ79myYUHPNodJYeaySwyh0Ly8vs+hnfP7Vq1ePHz/O
5SeuXLx48fLlyx/LjijqQHF018M+nA13wombtPUr/jYmJqaEN9BLSEhAsDNl
yhR4PTaYFRgYKOMB/1XqzhIoVHcoAhhwGCglbhrmAoG/wlPejIJqgGbCX1it
+jnQnEOGDOFXJzgaW1tbbnrMlStX6tSpA+ODT9i4ceP//M//dOnSZerUqayR
opo1bdoUoYeKwRTE6QhbuKENNukLmvDBgwfJyckW3dNeAGJ2Pz8/dSsyGIjr
mzdvrmS+kPays26pKUGLv2CT2+fMmWOhGN8SaM98JepOp59C07hxY43nXilH
sqZ9yGivPCWcwzr9dBQ3NzdzzcdWwSeg7pCHFSpU4BZUsp3fTF2DfPbs2fj4
+JJch8tUKDc3CTmDKNLZ2Vmm/5DUnUYUqjudPmb39PRUstDm0KFDiCzMFRfg
OXia9jNGCwoKoEkERxBeu3YN9o0t0IZVR3ssX778bj1btmxhp1GwlUFv376N
jIxE5VQ4vYEPG4+AT2S7/8HT4UVsWQRyXnDqXAmg0eagRLp27cr1Q8rfqbHs
rFhqCtHoL/DnH5G005kj8xWqO2QLpMvgwYO1z4JTgmRN+8DRWHlKOIfxFrwr
KirKipt7fOzqjk3pqVatGre1ONs9IyUlRflD4IDmzp1bwhvosUl33DJbGIdB
gwY1aNBAZroXqTuNKFd30N6TJk2KiIiQbxfsICc0H3P1R+Xn57dt21bjKjak
ecqUKWFhYYJhU3aEExTIvHnzUPHgnnr16hUYGIib2YAFHFP//v3ZyTjBwcHq
ahrbXL1KlSodO3aMi4tDw09OTu7Tp09AQADy82OsvXv27OnUqRP/8BRJNJad
dUtNISXjLz4ctGe+QnWn03f9ocmonkWgHEM17ZOnxHIYwMu0b9/evIcam8rH
ru5Y9MRf1p2UlFSjRg1Y2iN6lDwkMzNT+7kApnLhwgU7OzvuFBjYCnd39549
e8pMMyN1pxHl6k6nNwW+vr6CZZ4CIOpGjx6dmppqpgT+v30RR4wYoXFYDWnu
3bu3IcOCCnblyhX2CqT/9u3bfGmKBnXz5k0ts2XOnj2L8CoxMfHx48eFhYXc
lCSk5yP1Jkj2jBkzZs2aJW8kNZaddUtNIf82dcfQkvnK1Z1OLwlgc1QfZqQQ
+Zr2aVMyOYznI541yz4PWihJdefv7//bb78dPXpU44kDAhBbubq6svUIaGUt
W7Zs2rQpGuD8+fP5Rw3K8OTJk5KcC8Q4efKko6Mjt7tjdna2oa0hkHuQgocP
H161apWHhwepO9Vw01wh+8+dO2e0ziNGGDhwoEwtgsGPj48342IcVAOF4tMQ
ly9f9vPzM9c8QBVs3LiRv9PdpwFM1pgxY9LS0mSGlbWUndVLzSjFxcUw3TDg
w4YNQ0Tzr1J3WoC6gz/KyclBbG50JSZMPcKiCRMmWG6Lgw+/plmUEshhPDk8
PNzQOcglQ0m2VnxmbGwsOwXYzc3t+PHjZnw426ghMDAQwTU0JCwwJNCkSZNW
rlxZ8ppNOffv32/dujWb5Hn37l1vb++QkBDJOa74wMGDB7Pz17p166YwDCTE
QMYjpHLQ079/fyXbDEJXr1u37mPpdGK7S2k/wkw1bNKdSTsAfyw8f/58xYoV
lujxsHqpKQHJa9asGUwQ2s7MmTM/rulzVuT3339v0qQJMg3uD5Gg0fuRsTt2
7LDQjLiPoqZZGovmMDhw4EBGRoZ1G8gn1lohlm7fvs2tWzc6ScbqIKmQdhAb
Cxcu9Pf3X7p0qYWWuRFEiYE6DHW3YMGCj92eEARBEIRqiouLb9y4QcMcBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ/06Ki4vHjh3r7u5+5coVa6eFIAiC
IAiC0MqTJ086d+7cq1evR48eWTstBEEQBEEQBEEQBEEQBEEQ1qewsLB3797e
3t4LFy4s+bf//fffixcvbtOmjY+PDw3KEwRBEAShkbdv375//97aqTAZKCLB
FS1f8Z///KdRo0YZGRkXLlzQli6V4L3p6emurq6///67VRJAEARBEIR5OXPm
zMSJE/38/MLDw4uLi0vgjf/9738PHTo0dOjQgICAzp07e3t779q1y1SB9OzZ
sz59+gQFBUEiCn4FueLu7r5q1Sq8yHyp/v9ZsWKFo6Ojv79/WFjYsGHDvLy8
EhMTVb8L6g458Pz5c/Mm0iSQmUgDqTuCIAiC+AS4d+/ezJkznzx5kp2dbWdn
98cff5TAS/GWqKioFy9e6PS9XrGxsRUrVty8ebNJAunVq1dxcXF79uwR/9Wt
W7eio6MvXrxozkT/A163fPnyqlWr2tjYlC1bFqIoJydH3JunHFJ3BEEQBEGY
CwiV5OTkXbt2QZxMnz69Ro0a+fn5Cv/27du3uPndu3emvhR/Mnbs2CFDhty/
f59duXPnTuPGjVu2bPn48WN25cqVKw8ePDD1ySahOv3ItPXr1+/btw+ZZpa+
wQ9T3T19+vTSpUtWTBJBEARBECp4//59ZmYmNNXDhw8///zznj17vnr1Sskf
4rbIyMhNmzapkDcQVMOGDbO1tc3Ly2NXXrx40bFjx3r16t24cYNduXz58vDh
wy3U+abTln5O3ZkrMR+muisuLkYWpaWlWWh0myAIgiAIi5KdnV2pUqXExEQl
N799+3bmzJlz585V0fHFePny5Z07dzjZcO/ePTc3t1atWnF9dzq95hkwYMDd
u3fFf477v//+e8i/6dOnv379mp+wpKSkiIiIbt26bd++3ZAs0Zh+pu7w/ISE
BOif+Ph4TpSqQ1Ldbd26tXPnzlwHJvIB33vixAl1rzh69GjXrl3LlSs3a9Ys
bhD55s2bX3755Y4dO3QGRmYfPXo0ePDgvXv3qnupEiDsY2Njx40bN9YYoaGh
hw8ftlxKCIIgCOJTAiJnxIgRTk5O165dU3L/li1bevfuzVdiWoBYWrt2bYUK
FSCZ+HoMImThwoWjRo3i6zfw5s0bCLNz584hGfXq1bt69Sp3P9QpRBc+Jzw8
vEOHDoZ6w7Snf+XKlT4+PqdPn37//n1ubm7z5s3379+v+mlidQf9CVnVpUsX
yGB2ZfPmzXZ2dnij6rccOnSoevXq6enp3BVkO/dMQ/PuIAs7duxYWFio+r3y
oLDy8vKSk5Pd3d1LlSrVunXrtLS0ff+Qk5MDuT5p0qRatWrhtz/88IOFkkEQ
BEEQnxgQSPXr1w8ODoarvXnzprzGu3379pdffrl7925zvf3UqVMuLi4xMTHi
nrT79++3a9du586d/ItXrlxZsmQJJB8SDEHy9OlTdv3OnTtxcXGv9fjoEchC
M6b/wYMHnBhDskeOHOnl5aV6oqBY3RUVFTVt2nTKlCmsnw0acuzYsZ6enqqP
EYFsXrp0qYODQ0FBAbuCfINsCwwM/Ouvv3SG1R1eDXEVEhIiXphsRpAY6LrS
pUsb6j2+ePEiKklmZqbl0kAQBEEQnxJJSUkVK1ZkCz+hAWQ6iCAS5s6d26tX
L65PSSOQatBa8+fPlxQPeN2yZcvatm0rVjX4QyjS2NhYyQWzzs7OSKf4V2ZP
PwOJLF++vGrFKFZ3uFKjRg02ZqrTHxIH8RMUFKR6KJx1BkLOsXXKyIeVK1ci
l86ePctukFkzm5+f7+rqevDgQXWvVsK5c+fwvdWrVzdU9yDUhw4dimyxXBoI
giAI4pMBii46Orphw4Z37tyBZJo3bx7rzJGkqKjI09Nz7dq1Znk1nubn55eW
lsYWn16/fv3NmzeCewoKCho1apSVlcW/iJtXrVrl4OAAVSB+7L59+yAVJFc9
mCX9kECdOnX6+eefuStITJkyZTZt2qTugWJ1B7lYp04dbjwUn2lnZ7du3TrV
ab5//767u/vkyZNZZ2Bubm6DBg2g57kbZNQdlNXAgQPHjh2rWlsaJSUlBRnI
XzQtABUjJCTEcgPEBEEQBPGJ8dtvvzVv3nzRokXw/jdv3pS5c9u2bY6Ojn/+
+af2lz58+BD++qeffmL/LC4uhsjk9kjhgLTw9fX95ptv+MLvxYsXnTt3huR4
9epVamrqrVu3uF+x3jlIF/5F86Y/OTm5Vq1anODEG2NiYqpUqaK6Z0mg7t6+
fTto0KC2bdtCcbEr+Mbq1asfO3YsLy/v0KFDKl6BP4TiTU9PR2p3794NHbVj
xw5+36b8fnerV692cXGB/FbxaqO8f/9+3LhxpUqVGjVqlKEdrV++fBkREQFx
bokEEARBEMQnCWTVqVOnJCeqcbDZX5BVbHRPC0+ePPHz8+vbt+80Pd999x2k
2uDBg8UJgAKJi4uDtLhz5w538dKlSw4ODikpKdeuXZs9ezb/fA08oXfv3n36
9BH3QJor/YWFhTNmzODGdvEtHTp0GDlypEyfpzwCdQcN4+bm1q5dO3YFMtXL
y8vV1RU/ICvU7RKzcuVK5NjBgwcjIyMhHcX6Vl7dnTx5EoI2IyNDxauN8vTp
0y+//LJ06dLr16/nX8/JyTlz5gz7GXl7+PBhi879IwiCIIh/IY8ePYLMGDdu
nPyRYdAkGzZsCAgIgD5p/X/p0qXL/v372W7GpUSMHz9e8snw8jVq1ODP+4Ie
gIQbNWrUpEmTBDvu3rx508nJaf78+eJJd0bTn5+fP2DAgEqVKlWpUmXYsGG3
b9/m/xaacOvWrZAZePLevXuR2uzs7MzMTChJpOThw4eCp0H1QQTWrVu3bNmy
UC+//vorP0n4GX/OekoF6u7IkSNIgL29fVBQUGxsbHh4+KZNmzw8PKCBly1b
xlc4+BAk6YsvvihTpoyjo+OSJUsECvPChQsHDhzAbaNHj27atGl0dPTx48cl
j9WQV3dMcEZFRWk5ksMQkpPuXr16hQ/XuNUMQRAEQRDyFBYWQnJAYBi6gcme
+vXr29jY4P/16tVjss3FxQXSDgoHQujkyZOmvvf8+fNw/atWreJffPPmDaSR
eCYYEgCpILk/iXz6c3Nz8RakvHbt2hB4SHbnzp3508B2796dkpLCKTQozJ9+
+mnHjh3Xr1+XXNkBsYSHVKtWzc7ODj/UrFmTP3SLG2bOnMn2juarO7a4tU6d
OgUFBbgHCpMJKtwJicV/EXJgypQppUuXLleuHDQkBB5+njt3LifAoAPnzZsH
gWcwZ3nIq7vi4uLu3bt/9dVX8r276khNTRVMusMnJCUl+fv7l8ypxwRBEATx
r+XAgQO2trZbtmyR/C2Ex/bt2ytXruzn58e6pOCjk5OTy5cvP2bMGC0T8iFy
nJycZDqOIDmQqosXL75//z4sLMzT01Pckyaf/kuXLrm7u0dHRz958kSn7xPL
yspq0KBBQkICu+HFixdTp06V3FpZDDRJQECAj48Pt+gDz+/Rowdyhqkj5NW6
dev27NnDfstXd5BkUDX8ne4kwROgf9zc3DIyMljeQp4h/RDSXGfm6dOnle/Y
LK/u8JBvvvlGZtWDarhJd1C/EJA9e/bs2LGjo6MjrsyePdsSXYUEQRAE8any
v//7v7WNITgaYMeOHVBHhk4ugJbAn0DA8Ge1QedA1TRp0uTevXuqk/rgwQMP
D4/hw4cbEir79u2rUqVKYmIipA4ED381q5L0Q1BNnjx548aNgi64/fv3Dx06
lHWvQYn98MMPCs/k2rlzJxSLQJ4VFRX169eP7UAClThp0iRu0QRf3bFjO6ZN
myYvbKCfIQIFc/CQPxB4K1euRDrxc0xMzPHjx5UkWGdM3UGDTZw4EXJXMFot
A5QtEoC/QobL5BubdGdjY7NgwYJCPfn5+RDV9evXN+OeigRBEATxoQGBkZSU
9P33389Rxvz580+dOiX/THj/DcYQSLJNmzZVrVr1wIED4qe9fv0aYsPBwQGu
WfAWCCQ7Ozste1k8fvy4ZcuWAwcONKTuoItWrFjx3XffzZo1izu6Qoyh9F++
fBlaSzwI+ObNG1yHSsHXRUVFXblyRUlqcXNERITk2ofNmzevXbsWUic1NXXb
tm3cdag7R0dHqDKIq+vXr3fr1s3o8ls8ITk5WayakMjQ0FBUmEuXLs2YMUPJ
Qg88JC8vD29HGgypO0hN5ADUu/KJcA8fPly6dGmlSpXS0tJkbjt//jybdMev
sQgQRo0aZaElugRBEATxIQCX6ubmZmNjI16JIMlnn30GgWf2ZEBOVKlSRXJH
jj/++MPW1nb48OGCVY2s7w6yQX6jFXnYXr79+vXTuGTSUPqhx7gDLwRAmWRm
ZkJ4xMXFya8l4YAQevDggWRvFaTXzJkzIVahlPh7v0DGjBgxYsCAAco34sND
xHsD6vSKdNq0aagwa9as+eWXXxQmOCEhAW8fOXKkIfGGe6AV7e3tFZ5Vx8Bj
a9WqJT/xj0268/Ly4o/5FhUVTZ8+nSbdEQRBEISl2bp1a9WqVcXjnlAyCxYs
KFu2rHg739u3b7u4uHh7e3OjkCp4+PChp6dnYGCgxt10DaVfhry8vBUrVixZ
suTo0aNaXs1gq2hzcnJ++OEHC80ow2OR4D179kDjGZKs6h4bERHh5OQkuYug
JOyAtjZt2sgUPQRzSEgI2+mOX7jQqMpfRBAEQRCEJH/99ZfRrhJoBltbW8Gp
rzq9jw4ODpY8Rio7O7t8+fIzZ87UImbu3bvXpEkTozuxGMVQ+mW4fPlyaGho
VFQUm32nEWTy1KlTJ06ceP78ee1PM0Rqamp4ePiGDRsUzhJUAnJ+zJgxbm5u
yvcTfvTo0RdffGFolxuGoZ3uCIIgCIJQDQTAr7/+6u/v379//xYtWjg5Oc2Z
M4d/JBafM2fOQMKJRw/fvXs3fPjwevXqCYZfIWYGDx5cv3597uR6dVy9etXe
3n7RokUa5Yqh9Mtw/fr15s2bb9y4Uct7Od6+ffvNN98EBQVZYl8RjpSUFE9P
T+hSMz4TKf/666/FK3kh9iIiIiZMmDB27NhVq1ZFR0dzQ7cnT55EbqNiQGri
t/hq8bAvN+mO27VYHtSENm3acOebIFVz587lOkKPHj3atWvXcuXKzZo1i4sm
UCchILkTewmCIAjikycrKys0NJQN4cEhpqamVqpUCQ5UconrnTt3XFxcxMs5
IbqWLFlSq1YtgYrLzs6G405KStKoyo4cOYLnZGZmanmIznD6Zbh06VLr1q0V
rqcwCuTuwIEDzaUVDbF69eqhQ4dKzspTDWoI8mHkyJH88VNos1atWuF1yE/o
VQQIkGpct2RCQkKZMmWmTJmCr2YjsIGBgYJVHmzSHR6icKMV3F+zZk2uixhy
EbEDX/YfOnQIVSU9PZ37E4h5Ozs7ca+yucC3Z2RkTJw4UbCrNkEQBEFYhQcP
HgQEBPDnyUMSDB8+vFSpUnPmzBFLILhmX1/fvn37ildiXr161c3Nbfny5Zyf
hSRr0qRJfHy89qPnN2zYUKdOHe2H28qk3xDHjh2DLDGXUnr+/HlQUJC5tKIk
yP/FixdDBZn3sSjfevXqrVmzhruCb+muh/XmsVl2UIBsw0D2Ty8vr0ePHun+
WZTh7OzM31AFghAqFJVt8ODBStbLMInIPVOnP8QEWo5bPMI2gnZwcOCiDIjS
jh07ilWlGWEhA76id+/etAyEIAiCsDqHDx+uUqWKq6srfxRv8+bNZcqUgU8U
H8bKVk/gfv6RrxynT5/u0aNHZGRkSkoKvLCPj8/Bgwe1T/1ih8NyKkIL8umX
BN/Cto/T+GoGdN3o0aO1f4gMEKLjx49XONCpnF27dkFg8x8LZVWhQoUVK1aw
zHn8+DH/lDc26Q4Fx/4J8TZo0KAGDRqwnM/OzkYsUL58ebbEu3Tp0rVq1UIs
sH79eqM743HrL6AYo6OjGzZsyClGvAVCkau6eBTKDpKS7TFoIaDooGOrVavW
oUMH5fWKIAiCICzEqVOnatasaWdnx9+kLisrq1y5cvweEj6408nJiTtkQQD8
6Y0bN44cOaJ8z1ujPHz4EIlZsmSJWSSWfPoFQEVAKZlxylZGRkZoaKj2zkwZ
kPO+vr7mlRnQUZMmTerZsyenS5mygqThzpWD8ENdghhm/7xw4QLq1YYNG9g/
79+/7+7ujidoWZxy7tw5PDMxMZH9E4+C5v/666+5fjn2lsmTJ7Nu59zcXOhJ
qFDVb1QOyhSBgxmrPUEQBEGo5tq1a/ylEFBQy5YtK1WqFBSC5Mx/eNJBgwaN
HTvWohKFD7yzm5ubGWe+KU8/1EK3bt0E+zOr5v3799999x2y14xLWcVAuA4Y
MMAsK3w57t275+npyZ8uyI6ucHFx4WRkUlJSjRo1kFdH9ED1OTo6chtHZ2dn
V61a1dAZdgqBdKxevXpeXh775/Xr1/GKuXPnPnjwIDk5GQWKXyEN6enpyOHd
u3e3bNkSytyiuc0B3RsTE2P2Y9oIgiAIQjvPnz/v1KlTxYoVc3NzDd1z+PBh
+PqSmUMOhTl48OCoqCiNe6HwUZ7+Q4cOde/e3VwuG8/B0w4ePGiWp0nCutRm
zJhh3s301q9f3759e8HRvZs2bXJ1dWXLYBEgQEo1bdr09u3b8+fPLygogDBu
3bp1VlaWTn/smre3d0hIiJbJb2yA3tbWlm08+ObNG0jlzz77bOfOnT/99FNq
aiobh3VwcEAOR0ZGQsNrn6ipnLNnz8bHx5uxlhIEQRCEuUhLSytXrtykSZNk
1hG8e/cON0RERJSAL4Pjhq4w7zijwvSzKfrffvutuXop8/Pz27Zta9GpWa9e
vfr6668zMjLM+EzotM6dO2dnZ4vfNX78+MDAwFmzZk2cOBE1x8PDAxkLiYUc
Q+5B2vXp02fhwoX+/v7ISY0rU9h5JVWqVOnYsWNcXBzemJycjOcHBASgKO/d
u4fSHD16NBQm9O3x48cttFm0JPi0uXPnmn2uI0EQBEFop6CgoHHjxmPGjDG6
9A/O1NfXV+FBV6p58OAB3LfCOXImoST9kChQC2ZcfLp169YRI0aYd6MSAbdu
3eratavMSbumAsk0c+bMqKgoQ2taof1u377NRj9fvnwp2OsYFenGjRtmiQLO
nj1bs2bNxMTEx48fFxYWsmzEk6GWNZ5Pp53MzEzLHT5CEARBEKqBlOrZs2d4
eLjCXR3y8/MHDhyocZtiGZAMJCYhIcFCTtNo+qEf4uPjzThPPjs7m9uG10JA
Si1fvtxcageaDYoUat/Q7tYlycaNG/k73X1QPHnypMSmoRIEQRCEQtg+bLGx
sSYJgwsXLqxbt85CPScHDhzIyMiwaH+IRdP/CXD37l1oxQ9B2rFJd8o3PSYI
giCIfzmvX7+eMmXKjz/+yI2gPXv2bN68eR+CWycInb4fFepuwYIFNPpJEARB
EEZ59+5dfHx8cnIy32/++eef06dPp8EmgiAIgiCIjwsoupUrV9asWdPT0/ML
PZ9//rmzs3OlSpW+//77ktkojCAIgiAIgjAXx44dq169eikRZcqU2bRpk7VT
RxAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQej+P1g/DQQ=
     "], {{0, 110.}, {842., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{627.3333333333345, Automatic},
   ImageSizeRaw->{842., 110.},
   PlotRange->{{0, 842.}, {0, 110.}}]], "Input",ExpressionUUID->
  "8d50c33c-d755-45fd-8fac-6321787878ba"],
 ", FieldNumber = 2"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7489658073325233`*^9, 3.7489658088329782`*^9}, {
   3.76753948945888*^9, 3.767539489458953*^9}, {3.767539865759437*^9, 
   3.767539866312311*^9}, 3.767630182643195*^9, {3.831821196455926*^9, 
   3.8318211967683525`*^9}, {3.831821242320073*^9, 3.8318212426793623`*^9}, {
   3.8318225494123125`*^9, 
   3.8318225497559814`*^9}},ExpressionUUID->"a253f32e-933e-4dfb-8cb2-\
ce0730ce9beb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "2"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
  3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}},
 CellLabel->
  "In[254]:=",ExpressionUUID->"9e0a1e93-958b-4976-a72b-7dff01f16dc4"],

Cell[BoxData[
 RowBox[{"B", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.768069030307136*^9, 3.7680899708648167`*^9, 3.8312204961938925`*^9, 
   3.831222243321303*^9, 3.8318058845740523`*^9, 3.831822441450431*^9, 
   3.8318225653102236`*^9, 3.831828156693031*^9, 3.8318397879960327`*^9, 
   3.8329475004374747`*^9, 3.832961785003877*^9, 3.8458268758172235`*^9, 
   3.8458524681807327`*^9, 3.845857078442523*^9, 3.845919624660516*^9, 
   3.846006577027051*^9, 3.846099888332897*^9, 3.8474704497094173`*^9, 
   3.8517006351496205`*^9, 3.853975451334237*^9, 3.8549774093585963`*^9, 
   3.854989264617259*^9, 3.8549999017236624`*^9, 3.855165250149362*^9, 
   3.8551823197323804`*^9, 3.855185864081585*^9, 3.8553306404910913`*^9, 
   3.855339845932214*^9, 3.855343183298998*^9, 3.855344017304033*^9, 
   3.855352744566854*^9, 3.855449608757327*^9, 3.855507610652112*^9, 
   3.85550840748094*^9, 3.855512895131688*^9, 3.855533326571615*^9, 
   3.855578920772558*^9, 3.8555932932699227`*^9, 3.8557506057934465`*^9},
 CellLabel->
  "Out[255]=",ExpressionUUID->"e6614ea0-9147-4625-958d-4adb8d51ff4f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"A", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"d", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], " ", 
        ")"}]}], "-", " ", 
      RowBox[{
       FractionBox["1", "2"], "I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammadown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.831822462033601*^9, 3.8318224859948907`*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"1fd42138-7a35-4c47-980c-669e5a203f28"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[257]:=",ExpressionUUID->"8fa5e0f2-e850-48cb-8f78-2fbb96dd873d"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.7680690306715517`*^9, 3.768089971155608*^9, 
   3.8312204962648444`*^9, 3.8312222435342956`*^9, 3.8318058846787615`*^9, 
   3.831822565419407*^9, 3.831828156755523*^9, 3.8318397880569477`*^9, 
   3.832947500468717*^9, 3.8329617850590944`*^9, 3.84582687589533*^9, 
   3.845852468222138*^9, 3.845857078499062*^9, 3.8459196247229576`*^9, 
   3.8460065770895276`*^9, 3.84609988837976*^9, 3.847470449771881*^9, 
   3.8517006351965113`*^9, 3.853975451393097*^9, 3.8549774094405985`*^9, 
   3.854989264677388*^9, 3.854999901786148*^9, 3.8551652502512054`*^9, 
   3.8551823197948737`*^9, 3.8551858641439123`*^9, 3.8553306405535965`*^9, 
   3.855339846057156*^9, 3.8553431833614836`*^9, 3.855344017368827*^9, 
   3.855352744622635*^9, 3.8554496088194637`*^9, 3.85550761071747*^9, 
   3.855508407546835*^9, 3.8555128951980267`*^9, 3.855533326623271*^9, 
   3.855578920825304*^9, 3.855593293319389*^9, 3.8557506058403597`*^9},
 CellLabel->
  "Out[257]=",ExpressionUUID->"f7b97bbd-455e-464e-aae5-d0abcbc90ab3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[258]:=",ExpressionUUID->"e12809b3-eac5-4d2d-b5ee-2733b21fb292"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQeUTdf7/x9CBmF0Rhk9epCEIdFD9DKjJFqQUYcwWhAJ0U2MFj0Y0YIQ
NdoiiJoylhL9KwgLIV+Rz1K+kZXPZ93/6z975fzO55xzz5zbhzyvtVhzzz33
nF2e/ez3s88+exePjW/TO/0zzzwzNBP/tXlnRP0hQ955v20OPrQfODSuz8Be
PZsOHNarT68hNWKf5WBP/k3gj///b5cgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgBIZ///vfR44cGTNmTOfOnSdPnnz16lXDCX/99demTZuOHj0aitTZcf/+
/fXr1/fr169Hjx7Lly9/+PCh4YR79+4tWrTo9u3bIUmeIAiCIAiCYMPFixdj
YmLKly/fsWPHpk2b5siRI3PmzAMHDrxx44Y64cKFCwjUPn36IOpCm1Q9//nP
f7Zs2VK5cuVatWp16dKlevXqGTNmLFq06OLFi//44w9Xinjetm1bvXr1kpKS
UNqhTq8gCIIgCILwX+zatat+/frr1q3TpNrvv/8+ZcqUvHnzpkuXrtjfLF++
HF0X2qTqQWpOnDgxOjr6zJkz2sFz584hmJGjYWFhZcqUyZcvH1k7duyYu4sg
ZRcsWFCqVKnjx48HJdWCIPw/zOFhmnIyQoCQek+b0CE+ePAg1Kl4ysHUZVjM
AIaHBrt165b5K+Topk2bEhMT+d/GOH/77bcmTZog/x4/fhzIlBp59OjR4cOH
LW/6008/JSUlzZw587vvvku1xrdv3z5+/HgyG5hkPoVQpJMnTy5btizlbPjq
5MmT5cqVo+Sxq5CkTXiymDZtWqFChWJiYuLi4jp27FilSpX58+eL8Tz1SL2n
NS5fvjxixIihKdSrV69v376//PKLR1ew6Rfu37//1ltvtWjRgj/8l+QnD4p0
1apVpUuXnjNnjndXQPOUKFFi+fLlhuNSwmR8woQJmzdvFjfyD4GKXrduXUJC
gjk8uXLlCt7s1KlTIUmY8GSBIRHnZsuWLV26dBkyZKhWrdqGDRtkrOCpR+o9
rXHv3r1WrVrNnTtX1cL58+cjIyMJEzwaHbXpF/744w9qfM2aNf/YWibjiM8u
XbrQP2bJkmXmzJneXefs2bPDhw+/cOGC4biUsCAIgheoiTFbt27FeUoY+89B
6j2tcfXq1SJFirzyyiu//vorH+/evVu1atVixYr9/PPPoU7a00ZycnKOHDm8
FqJPKA8fPly0aNFHKSQlJT169CjUKUor3Lx5c/To0T179mzUqBFRhrtzPv74
4zFjxlB627dvF5/pHWKETzePHz/Gu/7555+e/lATJO5O4JpcWb14+BRz6NCh
sWPH4mcmTZpkHutIswSu3gMB4ur06dPBvKMvUES7d+/GKvCZCQkJ5kVsLCGD
Skl6cbuTJ09evHhRfbx8+XLRokXfeOMN7Tnvk1V6gcPrEtZwJ0TTiK8LkC/6
5ZdfypUrV7169ZiYmPfff9+/8weuX7/+4YcfdurU6b333jMvmpSWuXfv3rBh
w86cOXPr1q2KFStS7JYi89KlS127dm3dujWxIX/8o6bTYyp4wnXr1n3//ffa
BFq6nnnz5vXr1w9z0lspxxcuXBgfH1+vXr1Vq1YZCjOgRugjDx48OH/+PCnU
p5m///Wvf4UwVU7AJX7zzTchD46ozUGDBi1dutSLlChBgsFgVFyEDtcwu4wT
Vq5ciV2l/erwhQ0bNtA0mjVrRg/1xRdfhDo5jghovXsB7igqKuqrr75SH/FI
ePUZM2ZoTypp6dxr2bJlQWgyt2/fxm4nTJgwZ86cH3/80Ys7kuy4uLjIyMjo
6Oi3335b/0KuJaqlvPvuu757VxTR6NGjCxUqdODAAe2gfem56xeAiwwZMoRc
DBgwwKMH/WTk7NmzaAyDZw5V9+GvEnYnRFP1dfv27aMkW7RogYvQl4nXJWxJ
gHwRPewrr7yiNU8DCAyEwVtuQGGSwRUrVvz222/m3yLdaenHjx9fvnx5wYIF
gxnIUwukqmPHjpbJ7tChQ58+faZPn26TpC1btqxZs4Y/8BJ58+adNWuW/e1G
jhz5zjvvWApRPMbq1at79erVIzV69uyJXwryK12GpBLNORnBOHLkCN4vNja2
cuXKzzzzTPr06Uk8Nb5+/frFixfTaxAv05Vol50/fz7dClfu37//a6+9Zljj
y94Igw8JPnjwILkrUKBAkSJFatWqValSpfLly5MLskB1073iELyOO7CuN954
o6Yn1K9fn4J1Pr2Hnq5q1ao4pRCakyulA6Jp4Ae8GBZT0E4bN25MsKOWKa5Q
ocL27dv1J3CcDn348OH+zSnG/NFHH9WpU8d5HWEnxKT0I4ZLYTB4bLylO3dE
50XDJ6q1TxJulrYTWiFKj+CkLwtCvXtKUlJSrly5uKD6iI8qXLjwpEmT9F02
raZt27Y0T19uZA92ha5u1arV1KlTyRfZpJ3Ss3v6jBtXgK7Dchz6BLwrxmn5
0rFz+PngwYOrVKlSsmTJw4cPG761KT3LfgGojlGjRqHctm7dmj9/fvM1DZBZ
guvu3bvjmYsVK1a3bl1aKL7xs88+w05U/DJs2LCQjAj5pYRdto/mbXwdZUuL
o/tWbyRpJ3hawq6UNk4Z4s1Kly5drlw5y8fBfvdF9hqAjB87dgwliU9Ab4SH
h3/yySf00WTn0KFDmzdvpiEjRZ5//vkPP/zQINTPnz8/ZcqUhw8fdu3atVq1
anfv3vVXmp1w5coVmjk6OSwsjJQj877++uvDKezevXvhwoW4gueee6558+bu
HrsrELQ5c+Ykszbn2AtRV8qaUWhRLISUYGM4Iopuawo0W6LIcePG0br5tmHD
hiEZOsaH9O3b98UXX8ThZ8+evWzZsrNnz3b3iJye6L333lOeE89AeaL58fNY
+9ixYwlRySw+f//+/ep8zqT5PEyhcQqGPAZTiBJZIAKHDh3q7hnH6dOnsYqs
WbMS4GPD2nHEM06YRr1z5858+fLp3alHUGKUHvmdMWPGLGfglCi0N99802G3
jkHSMIkOUEehXe0B19GoUaM7d+54fQUcuxa2kH3CH1qKwdvjFakyogOf0vrf
kGa8Fr7LYR0B7q5UqVL0iear3bx5c9euXcS/6dKlK1SoEE0el6LcER3rkiVL
qlevjjvC/9s0/xAKUUoeg8do8fYE5hEREUTW165dc3d+cOrdOXhmEswVtF1L
NmzYgCvesWOH4UzqhVaDx/Y65TbQ9qdNm4ad6Bsy1dquXTv6fY9y55EQvXDh
wquvvrpv3z5vEm0C/49+xoypZcPdLUuPfsSyX6AQ6AqVj0VXYFc4Z5v74pmb
NWuGZ8Z76weRsBOOEDbS4+fOndu/fsAhfixh+zmi7nzd559/vm3btqtXrxIj
0EmpevG0hBU0lhMnTtA9oesqVapkuTZCkIWoBnosQ4YMKGTMyfAVmZ07dy7m
QWCirW+vQSEQeCK0QvKIEDkaGRmJh//yyy/N3x49ehTFRZhAH2H5c2qExo42
s3cRqQpRV4rf4BykZsuWLS0FHq0bbdytW7fgR3NnzpwhJNfeSyWgiIuLQ8bg
Gy3jdJy5+QmLBgKvTZs2/NYsgaiOIkWKmOc5BFOIJiYmUgvt27c314IaSCfa
IvGWDVZFVVmyZMFRaEMrnqKEaKdOnZwPFpEwAj0CGYc/OXXqVPHixclm+fLl
fY/QvQavWLVq1Y0bN/rxmlOnTiW0NF+TgI57YWD+uhEiqkaNGtiD85/gnGvX
rm0pRF0plYgCoVJo4+Z6/PXXX9Gizz77LBGEO2kRKiGKaxo4cCDNVg01kLyV
K1fSBOjXLKdxBrPeHaJertFKniyMGDGiWLFilvsDDhgwANUaiEcJ9O+I4Tlz
5hgMAG+Dttf0gxOcC1Ey0rt3b1y616PTZnCerVu3RlUaRthsSs+mXyBhHTp0
oLm52w2HPCJ68cyoXMuZqHjmzp0709HnzJmTQvYhZ97g3xJO9WUlG1+3ePFi
pLh5d8tUS9jM7t27EaKUqmWmQiVEV61alTFjRoSoWWq6Unzsp59+ihk0btxY
n1OOU5758uUL1Wrw+JmiRYu6E6KuFA9Al40T+O6778zfkhfqrmPHjvYG5kSI
4swR6nRDhodBeigrvH2QV1egCcfGxm7evFl/ED+jxm+xQ7Ngu3//fqNGjYhA
LZOKH0DbE/ibs0m3haMwd17BFKJ0pt9++615OJS6I3jEyAkHbGab79mzh+ap
H1rxlEALUbIWHx9Pd0DHXahQocuXL3uXTq6zYMEC7fUETyHNGHPDhg19mb35
zTff0HMR6WtHaCOoNfOAgLJJCtZfzcfvQpTyjI6OJr6zHEunuCZOnEiL015M
trx+SIQovp2CNUiLpKQkGkuJEiUMFhLkencIHRAd9Pz589VHrAVv3Lx5c8sx
AZRAyZIl6Yi9u5cN8+bNS5cuHXZlmMxGMpo0aWI5zuMO50L04MGDpUqV8jpw
Vly6dInS05KnPBLmSl0bznRXejb9AsEyIXP//v0tO1AOEsFhbC1btrQZY1fC
CYXm6bNXHx2dy08lrJGqEHXn69AYCDD9G2Qa9iVsRnumNnfuXMsT0qYQdaU0
pZiYGFKuF1rEPnhmQidKBsflx/EKh6QqRF0pbjZDhgz4JXOwcOrUKaL+2bNn
29/FiRClIaMKaCk2/m3hwoUkxv5efgcFjvWa5QpyMVOmTMS85iCC/KJCLdU7
X40fP75gwYJnz54lWNbbleqhqA6zGYR8jihpW7ZsGfklGe4sXMG3tIK3337b
6+A30EKUihs0aNDevXvDw8NxaF7HgMghGoXXby5TUJUqVfJ6WWbFokWL8uTJ
s27dOvWRchg9enTWrFm1p3t66ChxtjbPiz3C70KUTvyFF16wGUufOnUqPXuF
ChXcrRMeEiGKD0c/b9y40aAfVNeGrEJa6I8Hv96dsGTJEkpee7lGeWPcEbng
XoZmRWxOn9WjRw8/DiEqcLPjxo0jEDYcp+Po06dPlixZzFMF3OFQiHLlvn37
IuF8mfHFLYYMGaIfRdGE6OTJkw0nW5aeTb/gSnmgnzNnzpUrV5pvzQ9pUHhm
FObNmzdtEqk8M/f19JGij47OLyWsx8nyTZa+7ujRo/TXiGp8FyfoI0ebErYE
cd6qVavs2bObB1cVaVaIwqZNmzAYnK32vOP06dP58uXDCRBujBo1KvhbgzkR
ouSoXLlynLN27VrDV8uXL6f6jhw5Yn8XJ0J0w4YNYWFhhIruOkougvcO6Dx5
S8gjOhy3b+gfL1y4gAin0levXm3+1Y8//ligQIGaNWsaQlTiEYK1Nm3aoOrx
8/rHKLRTviLwN49ChFyI0twwVJTb119/bX8m+apbt+68efO8vldAhSjV0bVr
V2rn/PnzVJ994GOPj/4Zp0df72RKkg3nzp0bPny4NrZGkvB+RAGWA1ncS02/
9OWOGn4XovZj6epZJz17hw4d3M1eDokQJWwsXLhw+vTpExIS9FqUbq558+Yk
uEuXLvrzg1/vqYJbRp/QutVUf4oX/YZnoyTxOUlJSeYxuk8++aR48eKpvj7m
L/AJ/fv3R9UvXLjQ+U+cCFGqr0SJEmTHxxTSTTRt2lSbqYUbrFOnTrFixSzf
1jeXnk2/4EoZ7sb9Wj5zp/PFjzn0zPgrxIanWfPR0fmrhDXoiBGihvjOgKWv
mzVrFgfpuIng8EJ6q7YpYUtQKWiVypUru3vwl5aFqJoB+OyzzxJjqiN3797F
/Lp16zZgwICQLDLmRIiq6RN41JiYGH0XgPuKi4t78cUXU93ILFUhqk0QJcrQ
3wK1QE+neRIiZfugLxDQADNnzozlG/Q2biQiIoLatOzZKbTevXuTo8GDB+vV
EXkh8q1VqxYR9Oeff65vC5cvX46MjBw7dqzZ7YdWiBIfRUdHk5fu3bunOjGM
Bkglmsc0nBM4IapmwqjtU/EkpUqVchdHOMEX/6y6flSZj69KkRFCMyyN9rtm
zRqiGJyJu/bIvTA8dJFfBrL8K0S1CaLuxtLJJjI1f/78NqYVEiF669atChUq
kHLatUGIqlbTvn177WBI6j1VsGTcS9asWQmcJ0yYgH6jh+KapDw+Pt7yaTi1
QGzudduxBw/w3XffLViwANl58uRJMotJdO7cmcKcPn2684s4EaLr169Hgfji
rxRUNzqHO6JId+3aRSurVKmSu3dzzKVn0y+Qdzwbhm22GTyzis6ceGbEBp75
2LFjnmbNRyHqrxJW207RpsqUKUNIwjXRTuPGjbMcaLX0dQcPHqxYsSKdC1Jf
/3TepoTdQRXjjmx8aVoWogSwuCDMpmvXrlr60V0oEL8/43CIEyGKAeCdSDZx
DREfqV28eDHlTE7xwHiqVCfhpCpELSeI8se8efNolV7nzi+Qu+TkZP3r4YoD
Bw5ky5YN7232NthzYmIiOQoLC8NcDcZDvihGs83Ts+TMmdNyDZYgCNGLFy/2
798f+UcHZIiJNmzYkClTJjLr5J1HQnvO92X+W+CEKPmi6akxatwyRYrJpTqx
xB2++Gfi6CpVqvTs2dNdi8Dk6DWyZMmCgXXs2NHwzgjGgwLUhr/IC7axdu1a
giObdx65F3d86aWXfHlZW8O/QhQ3SJeaPn1681g6OaKQCxYsiKdy99akdv2Q
zBGlOROlGmyPxERFRWFguD7tYJDr3eHVECe5cuWaP38+dXru3Dk1FEAKyZc7
eaOe8w4dOtS/M/a5KQ6fhkkRbdy4EeVA1zNx4kQcYN26dTEPuh6Hl3IiRPlq
8ODB9r22StXu3bt79epFGl75b6jisWPHalVPAWKry5YtO3r0qM3K6pal565f
UHM8Bg4caM6I5pmdTMlAsFGkXjx19cXR+b2EHeLO19FkzCmxKWHtashpmhLK
k16GVkPUYOmsNNKyEKVRt2zZEtdk+WZcSHAiRF0p00SJQbJnz37o0CHkSqFC
hb7//vu4uDjs08nybqkKUcsJoidOnKCgiIg9zVQQwGJHjRpFVdasWdMwrx4X
hMEQc3G8W7dunIO0c9f8cQ5E0KdOnVLDy+7Wggi0EKV/pFoR2/xRuXJlfaCH
O23btm0wjTZAQpSMDBkyRHOn9L8NGzYkX/zQuwUrfPHPdPd58+adOnWq5beb
Nm3KkSMHLS5//vyoCBKJftN7VDqUJUuWeJFs4iMkh4/PhRX+FaJqgBoPox85
oTb5+Pbbb+Mc6LVT1c9pYR1RDbQBCoF61C9tF8x6d3411J1+BVEnqKGDN954
w4+L6RG9IkUiIyP1vYBapZxosXDhwpkzZ9a/n2WPEyGKT2jWrBkZsZFn9E1k
U60rWLJkyQwZMvB3zpw5lUzC/6NGPFXjqZYeud67dy81yJU3b95M7ZgHKNRb
9iTGvO60f/HF0YWqhF2p+TonJawg5RjSiy++qKQIVYZkxUoNzspAWhai+NX2
7dtTyO70RvBxKEQJ8TAPvBmVhWpCg/Xp02fu3LkOlUmqQlRNEOUW1F2DBg3q
1atHhMJHj5ZX5S6TJ08mL894Av2CF4ubXblyhbrGFHfu3Kk/fvjwYRwmIbxq
OJh61qxZ8+TJ405O07o5Yf78+atXr+aC7txsoIXo0qVLMWD+OHv2bL58+Ro3
bqyNuly+fLlIkSIU1Pvvvx+c9QoCJEQp20GDBmnDFJzZsWNH8mUzPGWPL/55
165d4eHhxCDmr06fPl2uXLkRI0aod8NJ27p162ikWvRNo0NRe/fOkVp9yy/v
O/tXiKpXemkpXbt21TawePPNN+vUqVO1atWEhAQnizCkHSH6+PHj2NhYrGv4
8OF66wpavTu/mpot8PLLL3s0Tq6eZvprdN2VEhjSErEB8wpUJLJp06Z0rxER
Ec63fXEiREl8lSpVbNYfJjavUKEC6mjHjh1K/+PJiZjw1b5sIp9q6an5HtHR
0SdOnIiKisL3msdXNc88bNiwgHpmXxxdqErYlZqvc1LCrpSGHB8fj0LWjzmr
bt1mgqgrzQtRNbjkaasPHA6FKH3Hs88+i5fYs2ePF3dJdWclzIBief3111G5
586dI4rB7OnmkLseiQQCQ4KUQ55w/PhxT3enVfsfZcqUyTCN/+bNm/gW2qym
z/mDgA6NjdJ2l+Bp06bhLSkBGx8bUCFKIgcMGKBa/YIFC6joCRMmaPlSr5Bg
2/6dI6F6RgQnzdzwykMghCi+tFu3bvromLugS7G61q1be7cioi/+ee3atThJ
85t3pIRwe/HixYZRLwJAnLma10T8PmPGDO9GcUlttmzZVNDhBFrH6NGj6dBJ
quGOfhSiai0U6sLSRWCZNCJESKr2n3aEKHVE2N65c2fDQjHBqXeProb3Q4iO
Hz/eIzGjVpCm73C4h7vL1pZcKQ/dcDKEIebGSLViaZgHUYnzOT9OhCgSt0SJ
EnFxcZa9DI6xUaNGkZGRhnmViYmJ9JjakgVekGrpkWZ65MGDB3Pazp07LZOn
YjcKzXlz9g5fHF2oStiVmq9zUsKulAmumTNn7t27t75nUSWvn2BpJi0LUZo8
kR0Nyn6kOpg4FKJz585Nly6d12vd2AtRigIJSrHo9Q9/fPzxx5ZDB6FF7V9J
b6Lfhdn19zqHaE697ZHf7t27+/JGjCJVI+TutKYxY8Z84Axk25o1a1Q7evTo
EVEheaEicAu5c+fWuwVl2FT9Dz/84EsWzAkm6GjTpk3hwoUN22T7XYjy7fTp
02NjYxHVX/8Nf9P/queV9r0bHfe2bdtWm6CjL1eu3PDhw81fYQP2LxRjQjhJ
84zHs2fPWu53jOvgOK3v4cOHQ4cONc9YdggulFje+UQ7DI9miKYyv5HnRyGq
1kIhAnK3OBv1hecvXry4fcYdOv+LFy+iex22FMB4PHqARSWWKlWKHJl3dg5O
vQfailwpjZQr5M+f3/ke9za2RAhfoUIFnKdlN6RG1WiqHm374kSIXr58uVCh
QqgRy3MWLlyI6zMv7KnWUfFlAS4vSs+M8szZs2e3XOKbW2BmdNwLFiygvSel
QI5sniYHwtGFqoRdnvs6M/fu3cNfYbH6BqsevKZPn15bdNeStCxE1e4VNKgh
Q4YEeVV2dzgRotqIpdcPYuyFqJogaqhuzvzoo4/QKl7cLqCQSPWEy1CDlAzl
U7ZsWb0BkIv+/ft7NLXJklSN8PHjxwRotA6HExIIK4iGDNMecGgITsOCb2rL
sAIFCjjxmefOnUNmOLRtBHDz5s0bNmxo6DH9LkTpl8lsx44dO/83OAqKItVl
H06fPt26dWvzzulRUVHULDVu/qpu3bqLFi2y6TT5Fidpfr5Aybubi0L3TexA
HRGveb25mHqo5NFivJi65dwSPwpRtRaKTbDDCahQzNt+9R6Hzp80I2udz96J
iIj45ptvHOYRTUXtd+jQwXLaXnDqPdBW5EpppCiTvHnzerTOuTtbosrog0qU
KGE5QkgD5FeYh0dvXjsRonQ9qEHLR9tqGLZYsWJmv5eYmEjQ5G4VModp86L0
DCi1xkUsH6VRufTpY8aMIdzOlSsXZhwZGTlo0CCbvdQD4ehCVcIur3ydgX37
9nEFw+57KmrGGi31v0ZaFqI0wNy5c1OnIVwQ0oATIYpOUK910KiV77J5rmqJ
vRDduHGjWkFUPyeEnxBMBWIXOV+goyQ2pyMzN72jR48SnBq0kJqIiK9AC/ly
3yC8Na+0HJ6NwFl/XK1eVbBgwVSFKFeYMWOG86ZHddP1fPDBB4bC9K8QxYSI
+yy3Pty0aROGh3/2biMJX55YYULZsmXzKDw5cOCA2oZb//KLp+zYsSM8PNy5
elSbmNMTmQf3/ChECe6IQ20mLGF7xKpET+72MdGuH9pH84jPtm3b9urVy7x1
iyJU9e73q9FIcf4etR13tqStBo8KspwltXjxYvwSBevRKqlOhKja4dryHEQv
/rxdu3aGPohcdOnShUp0HptYps3T0jOjPDMS3X5kmzZFy0p1BM8GXxxdqErY
5bmvM6BGPjFLw8aR6rVKZID9oFyaFaLka+rUqdhDgwYNfFncxr84EaLJycl5
UtDGK2yeq1piI0S14VbDCqJeoFaJjIiIyOkJVNnBgwedXJ/2Tntcv369XjgR
YKpiUXLasAqoWsKlTp06Pr5vHgQhqkZ0CQfUoAQ+X7kOYnY0gJO94wkc8Pw2
u38a2LlzJ+WPGjQc968Q5S4DBw607MLoi/FUpMG7lRl88c+bN2/m1h65KWKZ
Pn36DB061J3IcQLxI/d1N2PZjFpFoXfv3uaW6y8hqu3dGRsbazNTi8ZFyu2b
amiF6MOHD+Pi4gYNGqQ3Nlqu3rWGqt79fjVqivpKdVkePe5sSXttcPTo0eYA
/8GDB82aNcuaNavhtdBUcSJEb968WbZs2W7dupkNb+3atXTo5v2mr1+/Tq6r
Vq3q3NGZ8aL0zCjPjGDT9sOyhJ46V65cvsyt8sXRhaqEXZ77OgNqHi9m+fHH
H+uPq5cmyBF2i2m5GytLs0L00qVL9PL0el7vwhYIUhWiiEPCk3Tp0o0ZM0Zv
S+6eq1piI0S1CaJEH969f6EHG0YQfuEYbJW4yYlPplrbt29vUE3YIclWL91v
376d+NSwKCVtHydguX2wRwRBiNJFZsqUSXUTdKkjRoxQA9QYAAKPAGrWrFk2
P8ceCCjMzxyxdtps//79e/XqNW/ePIpLPfdXi9PSHFCJfPvmm2+i4dVXfhSi
d+/exercTfA4d+4c4RV93N69ex3eSI8v/hnDoGvwaBIUDqRChQq+THlypbyM
Zo4p8KXYLQXVt29f2imyUNuw8ttvv+V86oI66tGjR+fOnbXA019CFMtp0aKF
zQRRtSPMMyl7KtmPiYVQiGJ4GDBNwJBCTGvKlCnax1DVu9+vpvaNMr89hJ+M
j4/HkLCWmTNn4ka0p8/ubEm9tk8XYzlkh/6k3+eC+h4fq8OQtAem165d47KG
zRadCFESTxaaNGliHgOhQ6dbXLp0qeE4RYefdL7BkyXuSs8jSLNahMes5fSQ
YBpXqiN4Nvji6EJVwi43vs45amdSw/sdat8NekMuzsdvvvkGz2lZ+GlTiHKR
Ro0aIVRwtr7LLY3ff/8dfTh+/HivB9wQokWKFHEnRPGuGDn5opkbmoy756qW
2AhRbQVR797HDw4YFc7TvM4YpdemTRv1ZISMFC5cmOrQCkQN9lasWNFyaxKP
CLQQJakIQpo/cpSPx44d++ijjzRRd/jw4dy5c7/44ovulo6h88VOli9frjcG
/l60aBG/UpG42vOUoENFLkp+IESJWDmTIqpUqZKaFeAvIcp1SJW2lJYZNTVR
bWXo8EZ6fPHPNJ/ixYt7tO7K6dOnsQEfXzChGXJf/RwY2vXbb7+t9hZ0pbyW
SLelbZ9H7MDHwYMHU180XqIJTQ36S4gqT+JuxIZUqXfKyHuqzzFDJUQpWDom
/LChtyWwwgNo++i5QlTvgbia2g/CsA3WiRMnXn755U8++YTckfeWLVvSwDmo
vrWxJdQIzZCmauhNbt++jY299NJLeotFxbVt21av4rAoHJRBcjgRomq2gOWc
EKyRxBsGFnD4OLR27dr5OJ5sWXpecPDgwVy5cqE6Ll++bHkCzUeN81iOSTrE
F0cXqhK29HWeMn36dMPL+8Q+VFy2bNkoeWwVU3enW0IiRNVrucR05gUZkIg4
omLFiiG3DE91NdyNGqXKmjVraL/c1+vlXPASNGHzEhAY7b59+xo3bkxFoArM
w57unqta4k6IcnzJkiXcncLx5f3BgEJdqCUBLdFedSFrFBSmom1C+u2335Yr
V05JOx8JtBBVjyHy589/4cIFugbiC/3wAtWERMySJQvu6Ny5c4bfks0uXbqY
31E6cuRInjx5tA24ld4YMWKEOk191N6mVJsM0jG5/hai0dHRmMTPzqDRIaT1
q9VRa7QjPIbNwgt0xzRYKjExMdGLQvPFP1PITZs2bdasmfNpb4QD+Adfpq/Q
g7du3Zr7au5FPRbXz7rBpdCu1RCx6kS0zd/VGxbErcrF0bNUr1591qxZDusI
CEaioqIMQpQ7hoWFmV8Z4+7btm1Tu2fGxMQ4ieZCIkTViutqxXgzmTNn1gew
Ian3QFwNR1GwYEG9ilAD16D0oTIeGrV6wJqqLb366qvVqlXTL8zID6l3DMAw
wf7GjRtlypTRXIcaUCWMNSzq6HCLzzlz5uD3zHP4qaDOnTvTA2pyF8dOxaGu
fV8D3Fx63qE6UGysVq1a5iygmnr27Iloxzh9GWD0cYvPkJSw2dd5AZ0dJqoN
LmGlAwYMqFmzJpKJr7A3Oh1348xBFqLUUYsWLTJlyqT3POjwUqVKlSxZkvIn
0ufndMeWCbYfNUoVtWoxP4mLi/MotqJt0gFRnlqyiVULFy5cKgX+INnkom/f
vlo8a0i2u+eqlpiFKP4H2+YuWgLCw8MjIyO7du2adibQKuhl1F4PljRq1Ejr
Uwji3n///SZNmtDVzpw5k3rUHnH6SBAezdND4d7HjRtHWyPLhmTzcdeuXRUr
VsyaNWv37t0Jl2hi2ABO46233jLPsVQ7rGFg2npf/FyNf6qPBDLUvjYOr95G
wS+pe6EMbcrcHfQ73BcXRCelvRaNYWOlhggImV25cmV9s6WpunvI4g5f/DM3
Gj9+vOEFPXvocYh2fTEnNflqypQp2kXUkYYNG6rxB/XaiPZYR03qo5dXpUfB
tmnTBumu0kw7pRPxtI7oE1X0Si9J29H0G9WEzy/1N/yNeWASnTp1IiJ2mOuQ
CFH1UMldfnPlyqXfMDck9R6Iq61fvz4iIkI/iK22m9SmIak1l7TdIuxtyfX3
UG2NGjU+/fRTpPukSZPo2ugyzE9h9u/fjydZu3at+qhiWFyHoQd0KERxBXnz
5tWupocrI9oRw/TRqBEaO7nzy05S5tLzGs0zP/fcc7jiBQsWbN68mVqOjY2l
fVEpv//++6BBgyz7cYf4KERDUsJmX+cdmCLxET3d1KlT+/Tpc+zYsVOnTmHY
8fHxiC53mzG5Qvdo3jvsR40cwq/QD8Hcrd7muaolqe6s9DSBwWCfe/fu9cvL
Bdo1Ay1EXSlu4eDBg/qlKgxgY5xA0IH3QK8S6rp7JKR6B21XUPUGIrpCW2MB
h4Mr1h4RbtmyRfVi/s5TAPHRPycnJxN5ORwwp+R79+5t6cyds23bNu6of4Kp
VjhBGin/g7asW7cuCkHNx1OrfGhTN2/evIk2aNCggR8N27+E/K15JwS/3v1+
Nbonmr/+rVuO0G3pNz1U0+NRROqjE1uiW1FrjHPxhQsXultpBEmA69AezRDq
cmXzcgoOhSgJIBDr27evu77p7t27Bw4cQMj5q4c1l57vkLZDhw4pz0xeEGDf
ffedv3pbHx1d8EvYZeXrvAaz5Do//vijlv4HDx6g3Oz3enuChGiqo0YOQaUT
5AZzYVKb56qW/KOEaCAIjhD1I6jZ8uXLa5Og1NpriBya5+LFi2/cuEGMqU0c
4hwaQvHixZ0sBZZ2QGNHR0d796KTK8W/Ifl69OjhxP3ScderVw8N4929XCne
BhHSrl07/UNhOpfw8HBtNj5xAV08vRi3o5ro2ogdtNV9EQn2Ux1CzhMhRINc
74G4mhp50L/xpOb26KfkoSTpy7jXvhQQqH6xJTWUWr16dW0NqKSkpBw5chw+
fBgxo5+w51CIulI2dapQoYJ3e+Z6gbn00jg+OjpX0EvY0tcFmSdIiKY6auQE
fkWTN2/VEVBsnqtaIkLUR544IaretQc1toapIHhwDpjKBx988PDhw82bN7/0
0kvKNW3ZsqVw4cL+3UI0OPgY/eHb6ZL0j27dQQ9bv359X/YFPnPmDH2BYQ2c
ixcvlipVSu10g9Om1w4LC9uYAiIB3YLVqbn61FS1atV69eoVQt+eKk+EEHUF
t94DcbUFCxa8+uqrhol8S5cuLVmypJrqf/nyZVp3mTJlrl69OnbsWGzPX7ZE
DFu6dOkaNWqod+uuXLlSpUoV7ssfxLb69TGcC1EKhBjZ62U2PcWy9NI4Pjq6
IJewpa8LMk+QELUfNbJ5QqqHJj9s2DAfl6n0FE+fq4oQ9ZEnToi6UiY8v/76
6++9917//v0nTZr0/vvvV69efcCAAV9//bUr5WUi7LZbt26jR49u3rx5Wl4z
IXDQ8CmQ+Ph4+3ahtrul+Xj96IrrDx48OC4uzrDqndqvFnHy0Ucf9ejRA/HZ
sGHDDh06cDLKgW9RDk2aNJk4cWJMTAxp8NcrMwHiSRGiQav3QFwNw6hdu7Z5
lZX79+8TaWI8tHQUINENvRvZnD59Onf0ly2pzW7y5s3buXPncePG4VswYG6E
4Jw6darevJ0LUVfK4nW1atXyZVVPh7grvaeeoJWwO18XZJ4gIZrqqFGqVyCi
HDVqlMP12P2FelPJo+eqIkR95EkUoq4Un4BVaLsN4oQNERPRVhBcU1rm+vXr
TZs23bFjh805NLHu3bvbzMFOFa7fqFEjdy/IICEIKpUw4F5Xr17Va5UHDx7g
kZ6IlvukCFFXsOrd71fDDPDkQ4cOddfL08axH23KsaF1+2hLSktHREScOXPm
ypUr3EiJTAyYG5k3aHMuRMnO8OHDkdABtfNUS+8pJjgl7ErN1wWNQAjRKlWq
TJkyhVjs+PHj/i1G+1GjVCEx/npq4xHOn6vieQ4dOkR2OnbsiBt8IrqzNEhA
jVAILcnJya1bt6ZvdXcCEjEhIcFyG24nnD17Njo62l/zDNMm+CKaBn6pQoUK
T4QQdQW+3v1+NZTeihUrYmNj1WPx4IOYiYmJcbgOvBKinE/vQx+U6kNDTiBr
y5Yt8+NC33pCXnohJ9Al7Eobvi5AvujXX39t0qRJvhRatmxp3nPZR1IdNUqD
OH+ueuLEibJly+bJk4fSIxgM5htVTxOBNkIhtJw8eXLu3LmBGCfhmlzZl8Vb
0j70a7Nnz46IiMDPFCtWLLRzwzwicPUeCOhhExMTQ6ij1Jo8DrcD4Jxx48YV
KFAAn8mvjhw5kupPyNq0adMCNJgW8tJLCwS0hNOCr3tyfdGTizxXFQRBEILD
pUuX6tWrl6b2yBYEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE4ank8ePHf/31V6hTIQiCIAiC
IPxT+M9//rNnz54333yzffv2tWvXrlat2vr16z1VpP/+978nT55ctmzZn376
yfDVyZMny5UrN3PmTG7kv1QLgiAIgiAITzwHDx4cOnTo77//zt/oz3HjxmXO
nPmzzz7zSDdy8rp16xISEh48eGD46sqVKyNGjDh16pQ/Ey0IgiAIgiCkDR4/
fpycnPznn396+kN+0qNHj3bt2t28eVMd+fnnn0uVKvXSSy/duXNHHbl79+7p
06f9mVwTXqffIVyZ6//xxx8Bur4gCIIgCMI/k/v37w8aNGjp0qVePPtGoXXs
2DE8PPzAgQPqyO+//16zZs2CBQtqD9kfPHjA9ZctWxagZ+u+pN8hXHnlypXx
8fH/+te/AnQLDeTurl27Pv7444SEBP5AYwf6joIgCIIgCP4FQWh+zG0GnTNy
5MgxY8Z4PZyINvv55581EXj9+vXSpUu//PLL2ogo3L59u23btlu2bLFMwLx5
8/r16xcTE3PhwgX98YULF6L96tWrt2rVKnci0/f0A/eNior66quvtGtywRkz
Zvz73//Wzvnrr78mTJgwfPjwgCrD3bt3N2vWbMSIEV988QXSvX379hUrVkSO
qm9Jz6xZs1544YXs2bPv27dP+9XatWtfeeUVasF8wZMnTw4YMKCHA9577z3q
LnBZEwRBEAThqQc9tmDBAmRJ5cqV8+bNGxER0atXr2vXrrk7f/ny5Y0aNdKL
Rl9ALs6ZMydTpkykwSAdDx06VLNmzXPnzhl+sn79+sWLF//0009FixblV+og
imv+/PnoT7LTv3//11577d69e4FLf1JSUq5cub7//nv1kcQULlx40qRJhiz8
9ttvzZs3X7p0qS/3suHIkSPdunW7deuWdoRymDt3bqFChRCo2pFhw4YVK1bs
6tWr6sjDhw9JVd26dS1Ha3/99Vf0/7hx47JkyZI+ffrY2FgKfOvfrFmzZubM
mYQAGTNmzJkz548//higrAmCIAiC8NTz4MGDgQMHjhkzRmkSRMvKlStz5MiB
IkV1mM9HzFStWnXjxo3+SsB3331XvHjx0aNHm8cn//rrrwEDBqCK9SOKjx49
Gjt27PXr11evXo0U3L9/vzr+888/T5gw4WEKjVPgjwCln4SRqipVqty+fVsd
2bBhA4W2Y8cO88mIOu545coVX+5oyf3799u0adO9e3ctGQqlM6OiopCU6rT6
9es3a9aMolMnHDhwIF++fPbyeN++fVmzZiUqMQcCrr/Dh9KlS9sELIIgCIIg
/EPYtWsXgseLGY+ffvrpe++9Z3h2nJSUlDFjxhIlSly8eFF/nOsjWRs2bOiv
eY/nz59HpCEs3T28Tk5OLlmypDa4p/HHH3+gwWrVqqVevdeD5CtSpAjpNJeG
v9J/9+5dkt2tWzclnlHvI0aM0A856kEHNmrUiELWP7X3C0hE4oXw8PCDBw8a
vpo9e3ZYWNiXX37J35cuXSpUqBCFrAqEEkOmtmjRwr4Qpk6d+swzz9SpU8fd
aSdPnmzVqhVF4afcCIIgCILwRILCef/99wcMGODpUpxokujo6I0bNxo0261b
t8qXL58uXbpp06bpj9+4caNSpUpz5szxQ6JTrsbdly1bRvpJAHrJ/I75w4cP
W7du3aNHD8N46YkTJ/Lnz0/yzGpz69atOXPmtBzO9Vf6jx8/njt37vnz56uP
asgRdacNORrgTMrT74OHFM68efNWrFhhHkzevHlzpkyZBg0aRNnyNwWyfft2
V4qAj4+Pr1atmv0ILXEBOh8hOmTIEHf6GRncq1cvWRZAEARBEP7heC1EUSOF
CxdOnz59QkKCXtGhQ5BV6JAuXbroz1+5cmWhQoX8Mi3wl19+QcZoL/s8ePBg
xIgR2oJOej755JPixYsjU7UjJHX8+PEFCxY8e/bs4cOHtYu4/h7zLFq0qKXQ
8lf6lyxZkiNHDu2tfzXkyH0R8IsWLTLLQu7ICUhuH+/rHMokc+bMLVq0+L//
+78PP/xQjdZSyCNHjkQznz9/3v7nKPbSpUtnzJjxiy++cHdOcnLy6NGjZWMs
QRAEQfiH47UQRThVqFABwYmuMwjR6Ohojrdv3147yMV79OhRu3Zt89NwT/n1
11+5frNmzYal8O6777Zu3bpt27aWszq//fbbPHnyrF69Wjvy6NGjRo0atWnT
5t69e8g//YqjXIGvmjRpYh6c9Ff61XXCw8MPHTrkShljJP1KsyH/kpKSzIO0
3LFWrVqo+gAtW4rIXLFixaxZs/bs2aPK8PPPPydJDRo0uH37dsOGDSkQvmrV
qhV24iT7lhNE1QDsb7/9pj5eu3bthx9+CER2BEEQBEF4gvBaiLpS3vE5cuSI
QSAhNqKiohCiI0eO1A4iaapUqdKzZ0/7uyAOP/30UxRsjRo1Xvlv6tSps337
drWg/TMmevfubXllNTo3dOhQ7Rkxf6CckXZDhgxBcemF3+XLlyMjI7X5kHpS
TT/yePjw4QUKFMiQIUPVqlV37typvwh/f/nll1yf08gLOq1mzZoTJkzo16/f
okWLUHpkOT4+3nI5I+7IffUr9vuLEydOtGzZsnHjxpQ5in3JkiWYwYULFyZP
nkyRIu//53/+p0yZMmjR6dOnW05htcRygij3osBlkVJBEARBEPT4IkQt2b9/
f7Zs2XLkyKEG/RTq1RgkirtfIdW2bNlSuHDhdOnS8X/BggWVwixevDjKDWmH
WkMseZqYBw8e1K9f/4033tCPl3IvJLR5cI8EaPMhDdin/8qVK9WqVSO12bNn
z507N3/oX8lXJyDL79+/f+zYMb6aP38+qpJrqkmSlDzpsRFpiYmJ/MqPix1R
AsuXL8+TJ8+4ceP0EzXPnDmDDo+JiSEL7777rhdvSGkTRPXin/iiS5cuM2fO
9Ff6BUEQBEF4OvCvEEWHxMbGokOGDx+uv+CuXbvCw8MRP5a/QhetWrXq+eef
j46Ovnz5skrVokWLwsLCuJovj6T57VtvvWUznIhAJVWnTp0itXFxcZUqVfrl
l1/Mp9mkH63bvn37xo0bHz9+XB05ffr066+/Tl6U+iV3c+fO3bx5M38vXrxY
v4KoQ1asWMHdza//e82aNWuyZMnSv39/g/qluKg4JHf69Ok//fRTL66shqAx
AP5v0KAB5UAcQeKJTb755hs/JV8QBEEQhKcE/wpR5BYKp3Pnzvfv39cfX7t2
LWrEcqsjQJjlz58f5aYfpUTgIWNeeOEFX/bfIVP9+vUrWrSouyfLW7duzZo1
6/z581evXo122rZtm+VpNun/4osvevbsaVinCD3WokWLY8eOuVLmQ1K8v/32
m5ogatgEygkkEiGHVnd4/t27d6dPnz5w4MCEhATz1NkzZ85ERkaWKlVKaX49
6nUtZGSOHDk8VcuK/fv3U5558uRBup87d+7s2bOHDh3q27dvxYoVKRMvLigI
giAIwlMAgvPo0aNr1qxZ/d98/vnnKMDGjRujcwxfcfLhw4edC1RUB/KmVatW
2jspGkuXLkVKaXtH6kEpxcTE5MuXLzk5WX/8zz//fPPNN3Pnzm25KLpDyPXQ
oUNRudpO9Abu3bs3bdq0d999FzWu3/HTYfpJfHx8/KlTp8w/+eyzz+bMmYO0
S0pKWrlypSvl1SSE6Pjx4z195L17927U3eLFix2ez41Q1CVKlGjfvr1hzFMp
c6QmKTHXLAkbMmQI39asWdO717ISExP5ueGtLgyPm8oEUUEQBEH4x3L//v3B
gwfXqlWrpokCBQqgA1977TXDcU5GPzgUJDdv3qxbt26HDh0sN8dctGgRUmrP
nj3mrw4ePBgeHt6pUyeDUFEjooUKFTIP3DkHZaWeNRtW1/cUd+nn+rdu3bLc
C+D8+fMjR468c+cOSthyaSnn7N27l7t79KycoAD5PX36dMPxa9euvfDCCxkz
ZtSvJKDx6NGjJk2aoCQnTpzoxQYH7lYQ3bJlCwXo6dUEQRAEQXjq8cujecRn
27Zte/XqZXgir7FixYps2bKZH3yrVT0zZMhg3jLy6tWrxYsXr1atmnl81Tnk
Lj4+PjIy0sddMt2l3wb1Hv2GDRtmzJjh475IO3bsQKuTBuc/WbNmTa5cubTV
SjV27979/PPPR0REWC4HeuHCBZQ/xZXqYqGW3Lhxo0yZMqjctWvX6o/fvn1b
NlESBEEQBMGM70L04cOHcXFxgwYN0i+/+csvv6g9IhWbN29GSplXOOemXbt2
tZyRyM/DwsJGjhzpi4rj+rGxsaVLl/ZxgqK79NtAaQwZMqRfv34nTpzw5daw
bt067o6mdXg+JUZ1lC1b1jwSu2rVKoRijRo1zPKeoGD27NnPPvssyfbOGNQE
UXdbzAuCIAiCIBjwUYj++eefY8eO5QqGReD37t07ZcoU7eMPP/yA2jTvj8nP
O3XqVLBgQcPzd67Wtm3bwoULnzlzxotUaahtnmw2PXeIu/Tb3/qtt97q3Lmz
5Ur7HrFgwQKzVuf66MZ33nmnb9++yPWJEydq262qNfCrVq06cOBAlHDr1q23
bNmivkLeP/fcc82aNTPP2CR2eOmllypUqPDzzz97l041QbRu3boOS3vFihW1
a9e+deuW+njt2jWM4ejRo/x9584dspYzZ86oqChtNJU09+7d27xnqyAIgiAI
Tyi+CFF+i0YaP368YdNwpBfX1E8LRNsUL1582LBhhuFN1BF6NU+ePAbBiV5C
ei1cuNCLmYp60DCvvPLK22+/7aN0cZd+G9DSKEDnbxi5gzuiM7m7Xh+i9MiU
2h+Kj3Pnzn322WenTZumvlUTRJFw6hUtCrNcuXLqafvFixcjIyORfwatSO2P
GjUqPDx806ZN3qVTmyDqsJQ4n1hDHyN89tlnuXPn1vQ2WvTll19GyWt1d/r0
6YiIiMmTJ/toFTag4ceMGYNJ+74FmCAIgiAIqeK1EEUMrFy5MkuWLOZ9jiBz
5sz6leFRZU2bNm3WrJl598wLFy6ULl06MTFRUxf79u174YUXEhISfB/44uIF
CxacPXu2j9exSb87kIiIKO8mW+pBsCFoubs2skpBTZw4EfWu7ZK5Zs2anDlz
7t27V/uIjN+5c6f6yHE+qjf3qe4PP/wQwfn1119rt6DqZ86cmStXrhUrVnit
8c6dO1e0aFH0sHm6ryVqQungwYOValVrW1WqVOn27dvqBLX4vzYKzWlIxBIl
SvhepDZQdBkzZkyXLt2MGTMCJ3cFQRAEQVB4LUSvXr1apEgRSxWqthbSb+Ou
XkoqWbKk5WPf77///vXXXx80aNCSJUt69erVuHHj3bt3+0UGrF+/PiIiwvdt
ze3Tbwl6qXv37j5OCYDr168j1KdMmaIViDrSsGFD9WqYWnNJmwerJojqp8Um
JSWFhYV9/vnn6iO/6t27d6FChcaOHbtt2zbK/I033qhRowb637s35RGTqH0k
qKr65557rkCBAlFRUdoK/5bs378f8ay91qQ2P9WPfyJoOUE9qXelzI7A3hDM
AdWHGG25cuVIf1xcnEwAEARBEIRA4/ctPt2RnJwcGRmpNhgyg7r46aef0ELO
9zRPFbJGvho0aOC7GnSlln4zq1ev7tOnj+9iBq3IffUTRNVqTghjJcnIXd26
ddu0aaOmfaplr1q3bq3tH9q3b1/iAr0s5IfoujFjxpDChIQENGHwF/mcOnWq
/rUmkpc7d+65c+eqjyrZL774otroCquoVq3awIEDDZNAAgThxrhx40SICoIg
CEKgQZNMmjTpgw8+8HGJoVR59OgRYimYb5pcv369UqVKvs/SVHiUfnTUu+++
i9bycfiO6/Tu3btdu3b6KQFbt24NDw/XFgI9f/48im7KlCk3b94ks//7v/9b
p04dbSVPCqFMmTKdOnUKjoRziJpQWr16de3l/aSkpBw5chw+fPjAgQN79uzh
eFRUlBogvXjxYuPGjePj49HYwUnesWPHpk+fHugWIQiCIAiCK0WLBqfP3bt3
L8pQ/8g+oCxYsODVV1+13DveO5yn/86dO/Xr1/d9d/gzZ85UqFBBm+2pQJiV
KlVq2bJlrhR5jOINCwvbmMLy5cvV3klq4yT03qBBg6pUqeLjev5+R21JX6NG
DfWy1ZUrV0hkyZIl+WPChAmnTp06efJknjx5EhMTFy1a9Prrr69duzZospDm
sHDhQstdwARBEARBeHL5888/BwwYEB8fH+hpAK6UnZ5q166tX8vUd5ynPzk5
uXr16l6vg6TgLoMHD46LizM8N0cpLV26FKH70UcfITgRnw0bNuzQoQMnq4VD
kZ0tW7YcNWpUnz59unbtev36dV+SEQj27duXNWvWvHnzdu7cedy4cf379ydH
5cuXV8PI5BflmT9//nfeeWfNmjVBGwhVXL58ediwYfLWvCAIgiA8fSCKmjZt
umPHjoDeBQk3cuTIoUOH+n3qo8P0r1ixokuXLj4+DecujRo1cqdm79+/f/78
eXULFPLVq1f1cwYoAQSVXybH+h2E9McffxwREXHmzJkrV66QcjXaSY5u3LgR
2nfVHz16hIA/ePBgCNMgCIIgCELgSE5Obt26tY8r1duAkkEHxsbGWu567ztO
0v/ll19+9dVXvtzl7Nmz0dHR3MuXi6RNiA5iYmJ832UgECDg79y5E+pUCIIg
CIIQQE6ePDl37twAval97dq1xMTEAKlQRUDT70qRalzf971B0yZq+SmPdgcQ
BEEQBEEQBN+5dOlSvXr19u/fH+qECIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCGmR/w8gVDPQ
     "], {{0, 100.}, {899., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{687.6666666666663, Automatic},
   ImageSizeRaw->{899., 100.},
   PlotRange->{{0, 899.}, {0, 100.}}]], "Input",ExpressionUUID->
  "69edde9c-b201-4418-9830-c5380be21aa4"],
 ", FieldNumber = 3 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, {
   3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 
   3.746834847884678*^9}, {3.748965810890964*^9, 3.748965814377738*^9}, {
   3.767539490016307*^9, 3.767539490016355*^9}, {3.767539868227397*^9, 
   3.767539868502643*^9}, 3.7676319654924107`*^9, {3.767632095235854*^9, 
   3.7676320957494793`*^9}, {3.767632575145319*^9, 3.767632575616911*^9}, {
   3.7676326265689507`*^9, 3.767632627041649*^9}, {3.8318212518249097`*^9, 
   3.831821252188012*^9}, {3.8318228708324413`*^9, 3.8318228712233443`*^9}, {
   3.8318229934948907`*^9, 
   3.8318229938698034`*^9}},ExpressionUUID->"b1418008-4bfa-4238-9bee-\
233159dcd7a7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "3"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9},
 CellLabel->
  "In[259]:=",ExpressionUUID->"f3c5043d-d0e8-449d-98ad-c2abbc4c0836"],

Cell[BoxData[
 RowBox[{"F", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.768069030865663*^9, 3.7680899713072767`*^9, 3.8312204963547964`*^9, 
   3.831222243593419*^9, 3.8318058847436376`*^9, 3.831822575963576*^9, {
   3.8318230708206897`*^9, 3.8318231602155137`*^9}, 3.8318281567880435`*^9, 
   3.8318397881018267`*^9, 3.832947500515581*^9, 3.8329617851046667`*^9, 
   3.845826876004653*^9, 3.845852468251462*^9, 3.845857078538608*^9, 
   3.845919624769848*^9, 3.8460065771354494`*^9, 3.8460998884110274`*^9, 
   3.8474704498343897`*^9, 3.8517006352590017`*^9, 3.8539754514379168`*^9, 
   3.8549774096442623`*^9, 3.854989264689467*^9, 3.8549999018173904`*^9, 
   3.855165250313716*^9, 3.855182319810486*^9, 3.855185864191945*^9, 
   3.8553306406160555`*^9, 3.855339846104032*^9, 3.8553431834083476`*^9, 
   3.8553440174207225`*^9, 3.855352744660963*^9, 3.855449608876689*^9, 
   3.855507610764275*^9, 3.855508407591832*^9, 3.8555128952453327`*^9, 
   3.855533326639103*^9, 3.855578920872203*^9, 3.855593293351184*^9, 
   3.8557506058871984`*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"6112ea05-69f2-43b0-82de-8fd6fd4e9ddb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "I"}], " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"A", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"B", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}]}], 
        ")"}]}], " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "3", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"G", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+",
              " ", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "1", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"d", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"UD", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Fmn", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.8318230045845013`*^9, 3.8318230418415136`*^9}, {3.8318230769164424`*^9, 
   3.831823077510027*^9}, {3.831823118098921*^9, 3.831823120530302*^9}},
 CellLabel->
  "In[261]:=",ExpressionUUID->"e37e861f-bad7-4ad7-84e5-44b9a088830b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.8318230936977916`*^9, {3.831823127148842*^9, 
   3.8318231272894325`*^9}},
 CellLabel->
  "In[262]:=",ExpressionUUID->"a229da9f-dd42-49fd-8369-2ca988bb05f0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.768069031427635*^9, 3.7680899716064796`*^9, 3.8312204964988613`*^9, 
   3.831222243766441*^9, 3.831805884875602*^9, {3.8318230710886497`*^9, 
   3.8318231603404846`*^9}, 3.831828156855615*^9, 3.831839788178279*^9, 
   3.8329475005814342`*^9, 3.8329617851858454`*^9, 3.845826876245535*^9, 
   3.845852468330839*^9, 3.845857078617322*^9, 3.845919624855744*^9, 
   3.84600657721605*^9, 3.8460998884891396`*^9, 3.847470449928115*^9, 
   3.851700635344381*^9, 3.853975451522084*^9, 3.854977409769503*^9, 
   3.854989264777753*^9, 3.8549999019111185`*^9, 3.855165250423088*^9, 
   3.855182319919845*^9, 3.855185864283125*^9, 3.8553306407098155`*^9, 
   3.8553398462290144`*^9, 3.855343183493975*^9, 3.855344017517131*^9, 
   3.855352744742321*^9, 3.855449608972775*^9, 3.8555076108494797`*^9, 
   3.855508407687958*^9, 3.855512895387616*^9, 3.855533326712885*^9, 
   3.855578920950315*^9, 3.8555932934389486`*^9, 3.855750605965311*^9},
 CellLabel->
  "Out[262]=",ExpressionUUID->"f2951e95-3aa8-4958-827c-694de5826309"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[263]:=",ExpressionUUID->"37216610-d345-40c1-a2d1-29fe9c90f673"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztnQeQFcX2/yW55AySEUkSRFCiknOGJcOC5LDkzIK45LisIDm4hCVKBhEp
JCfDUrLIkgoBoQCBHw8skELqvVf7//y3y6l5M/fenTszdxf1fKq02HvnzvR0
n3P6e3p6uov0GtamX8rXXnttVFr+16bnuDojR/Yc3zYrf7QfOiq0/9C+fZoM
Hd23f9+RVXul4sNB/LeQf/z/f8cLgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIfvKf//zn9OnT4eHhISEhM2fOvHnzpuGAf//7
37t27Tpz5kxylM4XT58+3bZt28CBA3v37r1u3brff//dcMDjx49Xrlx5//79
ZCmeIAiCIAiC4BZXr14NDg4uXbp0586dmzRpkjVr1nTp0g0dOvTOnTvqgCtX
rqBm+/fvjwJM3qLq+e9//7tnz5533323evXqXbt2rVKlSpo0aQoXLrxq1aoX
L17EJyjtffv21a5dOyoqClme3OUVBEEQBEEQ7HPgwIE6deps3bpV03VPnjyZ
NWtWrly5UqRI8eafrFu3DhGYvEXVgy6dPn1669at4+LitA8vXbqEuka7BgUF
lSxZMnfu3Nza2bNnvZ0E3bts2bJixYr9+OOPSVJqQRAEQRAEwQ7INgTbvXv3
zF+hXXft2hUREcH/nz17lvRl883z589PnTr1xx9/mL/6+eefo6Ki5s+f/913
3yU6xPrVV19NnTqVmw1MMf/pvHz5Uo17//0wm9YrldYJQrIgfiEEFAzs79qn
CEkD0vGtt95at25dchdEeIUgG/r666+HDBkSFhbWt2/fDz74YOnSpShYv07y
r3/9q3HjxiEhIebcJDY2tlSpUiQmXMi9UvvHvHnz8ufPHxwcHBoa2rlz5/Ll
y3OPyVgeQXgVEL8QAsTNmzcHDRrUpk2bZs2alS5dOjw83MaURW+K5enTpx07
dmzevDn/cKm8wivKxYsXx44de+XKleQuiPAKcebMmQ8//DAmJkb9uWrVqrRp
0/rbeRE9pk2btnv3bvOvbty4MW7cuPPnz7tWYj+hSBEREZkyZUqRIkXq1Kkr
Vaq0Y8cOmTst/MMRvxACxMOHD5GssbGx6s9jx47lzJkzJCTE/P61b7wplhcv
XmC6mzdvFnNNXmjQlStXTkogKirq+fPnyV2iV4W7d+9+8sknffr0adiwIWbs
8ZiTJ09OnjyZhG7GjBn/QFn+66+/Xrp0yd5vN2zYkCZNGoSligBHjx7NmDFj
165dteHWy5cve5yX4gQb1v7HH38grf0dBI7/c0b03r17uUGPUvzRo0cXLlzw
97SC8Cpg2/cT9YtA8A/0NQLXunXrwhNYunTpKziFzxu0FPrTxg/Rk++9997h
w4fVnwTtHj16ZMiQ4eDBg9onBPNATx6wXX6LBKJn/GtB8ClVqlSVKlWCg4PH
jx8vQ9+Kx48fjx49Oi4uDvMoW7Ysju8xwO7YsYN6a9q0adasWb/44gvr58d9
rl+/fvXqVcOjbWLLXyWPo3I6d+78008/2fs5ihHN/69//Uv9GR0djYidN2+e
Vs9kCl26dHF3sNRfa+eA4cOHr1692kb3qvXO3g6grTn52rVr/6LPRvGRnTt3
+juOkbxQ58R8zEBf5/z7t99+S8ZS/eVw4vuJ+kUgSEpfu3///vr166dNm7Zo
0SKqKLm8mwBLt9WqVasPPvigSJEit2/fTpZi+AV1RdUNHjzYng7ht3QiEydO
VHXO/6dMmZIqVaqoqCj9+YcNGxYgf3dYfosEomf0CLfDVRYvXowxc1+vztKg
BPD333//yy+/9PhtbGxsz549O3qBRAa/ILXxNhJ15MiRkSNHNm/eHEWXlM7L
tVBBxFWPxe7UqVP//v0jIyN9jI7u2bOHxI1/EHZy5cq1YMECH5dDehEZrKhW
lOqkSZMQTm+88UalSpXq1q3LD8eMGaNSs3PnzqGm7t696/8duwOCmZJYGVck
BrZo0ULLYR2CEdaoUaN+/foPHjzQf3706NGWLVveunXLYwGITjgvtacXTmQB
y5cvJy7Vrl17w4YNBqvzbe0GOFVYWBgWbmOgNf7P3pkyLFmyhB5z9uzZP//8
s+EY4kDbtm0xNhvn9wFmhvFXr179Q8tQ/wRb63PAMJVx48blzp371X/EQFFP
nDjRq1evvHnzFipUiGopV65c6dKl1TxqmomsBIOx/UKQi7VNZ0d8IEB5DFxd
u3bFIDdt2pS8Gtuh71vxC3/BCCtXrqz5NZ6L23766af6EYAA+ZqeFy9ecDuE
rLlz5+7atYsupmLFioT0X375xd4J6X+HDBnS2wKEQW+6lCj67rvvJqNqpVoe
PXpkRQDQgshs2wOJuDC2pA0E8Sc1kyFDhm+++UZ/DBps7NixHl/T9qZYjh8/
zuetW7emOXyMWjssf3xCrkGkGjFihBaOOCefaMM7Ch89o1tw8o8++gj5t2rV
qu3bt2NgRYsWnTFjhvORaiqW/LFBgwbE4fz5869YscLfM/jux588eYIonT9/
fuHChV977bUKFSrs2LHjVALHjh3buHEjsTdnzpzcjnluEvZDjEUFqQnMHo0k
cNy4cYO4gaUFBQVRcqz30KFDquTEW4QNjf766683a9bM29N/Beo3W7ZsJ0+e
9HGMFdVKDzVhwgQ8qGnTpjiRZpP8gwBOFX3//fcE3nbt2iVxRSkI6QMGDHjn
nXfKlCmTJUuWt99+e+HChd4eoPM5xky/4HxYmGhAj58vXz5iu0GyxifojenT
p3fv3t0woIfjcPUff/xx3bp1/FYTThyPFKE+USODBg2iUQzCwC/VyskbNmxo
LpV16LYaNWpEy6oNOKjbr776ynAMpoWMsT3RwiMYWIECBdA/CyyDbCtWrBgC
zOIlzpw5kyNHDkwleXcVIakk+o0aNcpbLL1w4QI+njFjRgTS5cuXtc8xDLoG
XPLrr79Ge6OjbJfBxdrGgCnwtm3bUDtELcwPgzn1JwcOHJg6dSoJLzZPP5Is
g3iu+L4Vv/CLqKio7Nmzc0L1J10PLUIPa6iiQPiaBhUyb968WbNm6ZNcugZC
OhmNPSVD74nMnjJlSvr06VOmTIl6wTb2/snmzZvpmomcadKkoZPyNvSdjKr1
9OnT2DDdSpEiRbJmzVqnTh0K481uCePVqlVDN7p19fPnz6uexaAzaRRiArmq
4XhvigW7IlCQUVLneB+eGLjyX7t2DSFHr6dqiTK0b9++Zs2ahkTVW8/oFlQR
bm64l5iYmOLFi1MVzlf8II8jguH4GPb+/fv9/bmVfhw3pB2V9jMXmG49JCQk
derUhDK94kLT7tu37+bNm2ha7jRZHnyjXQsWLIg6pYrM39LhIs+wQ7oDjz/n
ZgcOHEjd+o45iapW4glxg87R40Ru7JN0BqemhiMiIizclsvExcXh2lregYOE
hoYSJAm2HkcJtm7dWqlSJRfDIFchttNTmwPv3bt3q1ataqhb5Ae9Aw5LMkhJ
SOS185BH/55AowQMTm1dtWK3lGfnzp1O7guz0WQzTtStW7fy5csbbAkbI3/v
27evi9kKOgqjxfit/4T0gZ9YVK30ArQX5po2bdokftRrAH+hGAR2c4alHrhk
zpwZM/bYoSv7IWzieprgsYHrtU3/WLt2baTIli1bzN/S73NTuXLlQhLYLLED
XPF9K35hHTwI9+EM2hNMQhltau4NA+FrGufOnaMMixYtMjyawfby5MnjpAdE
PJB2cRKPehs756IlSpTwNvKWLKpVPStHNmhlJh0j9qITxo0bZ84xaZF+/frR
79h7sGWGTrlly5a1atXy+OySXIDwbvBZj4qF8syePVslvJ999hl+5zGYuFV+
ehwSEE2Q3Llzh5YlyTUbj8ee0RVou4ULF3Jysz7H0vAsVzILdGOFChXefPNN
8y6riWJRtXbp0sWbao1PCLMdOnRIlSoVnYghk0KP5ciRI7kGZKiQwoULe1Ot
8QkhhTSQgPDdd9+ZvyW00nadO3f2bYq+VSs9FNlToUKFfAzYqhYkNBFhfN1P
AKDvJoXfvXu3/kM0gMpTyEcMeoCbJfVDNLo71HPx4kXyYs5seBTCVebOnVul
ShXzpBoiSYECBaZMmeJxAQEq3Dwb2aJq5Vf8tn79+u4+iuVGgoKCzEqYHJY4
6dZ0i/jAq9ZNmzb16dOHvBuXX7Nmjc1SJmxfQvfhxJBooG+//dbcCRKm6GsQ
fvRcPt6MoKIyZMigFzw2cL22r1y5kjdvXrJpjyqFW65Rowa+OXbsWH+FEGkd
/Y7t8ZkA+b43v7AISSsKpHv37ipKq7kr3npD131NY8mSJSlSpKC/MEQw4mfj
xo3RHrZ1I/VDc5sH3DRiY2Oxcy15N+BEtdo2GDRqcHCwQUgTsWkXumPzolIn
TpwoVqyYk+RRDwUmQDVp0sTbXaNYGjZsOGbMGLMHeVMsWFenTp1oX4/TqFwp
P4UZP3489qkNFqEPUYnIafPBPnpGhxBOmzZtisl98sknBk+nWXPmzOlNB/oF
dcWtNWvWzMYKAK6o1vgE1YE2o7n1IwDPnj1r1KhRgwYNkuslr0RVK6xYsYIE
sE6dOmZrPH/+PLkVeYfvq/hQrVQLnXvmzJl9D4NTq3gZkU3bITfJQK7TRuYO
dO/evWnTps2ePbthU7Bdu3a99dZbDl/IxRfo63FGTW9QhzggFWXW9nFxcVxx
69athjPMnz8/d+7cHvcso/BkrOZhQIuqlVYoV64c4dq/u/pfjh07Vr16dZJ3
7RMKjMwzP5kixrZq1QrncmucIaCqlY6AXObs2bPVqlUjJhA57RVSheghQ4a4
vsK8mjeF9dLWvh1KDWV069bNSc27Xtvbtm0jZCFNPaoUgirBipofNGiQv6r1
8OHDH374oe1RTVd837pfWIQIQL+zdOlS9Sd9DfXjrTd03dc0aE0yaHIow+eY
d//+/e09CY1PGMRr06YNzT1y5EhvzU1207dvX2+TZJyoVnsGgwOS2owYMcLQ
BOrZJfdSr149vSTg8wEDBrRo0cKV5920bHh4eGhoqHIfRB1h33wYBlO6dGmD
rvahWKgEjsfpzPHKrfJz9bp163Ie1ZRKl5K9epvE6LFndA7XJa2bOXOmud7u
3r379ttvY07OpfKyZctSpkzpcdApUdxSrco3OaZHjx7a8xcSFmQPxXvw4AFG
kvQzNq2oVnquUqVKcYz5eRwpIeIn0Sdx3lQrn2OE1ElYWJjv/oWGmzRpUvv2
7ZO+irhHRDsJlCFPvHLlCoo9TZo0mzZt0j5UlkAO69A9sYfy5cvrn8xSV5Ur
V+aTH374wXAw1+KKHTt21IflJ0+e0K3TARFeoqKi9JpBjZTS7mYhYVG1rl+/
nhTM9vIIipUrV1KrWkihVKSu3obTP/vssyJFily7ds3JFTUCp1rVfKpVq1bR
H6l8fNSoUfYefQZOtRJ2SGfIgA4dOuT7SBLVWrVqLVmyxMnl3K1tqmXMmDFU
LJ2+x4pVTyVwTJS5v0V1olrd8n2//MIKn3/+OXGDKlV/qpmBRABuk2uZ1am7
vpYoNCJSJ0WKFMuXL7fxc5VY0dw+ngXHxMRQh978KOlVK3XeoUMHbJjuz7Cn
JGJA7QKvn3uG76C+aBcbJTRfOjIycvLkyVpnsWLFCo+zpgnv2InBiXwolpMn
TyIG6BrMp3Kr/FevXqVI2hoIKmGpVq3aw4cP6ePMCbjHnjGg0IESuBAGFNXJ
eWim7t27207l3FKt8X8uXqR/O2bBggW0An8So9asWZP0rw9YUa1q5J+7Cw4O
1rc+d0q+9s4773jM1PR4VK3cLL0hgrB48eKJ9mhENsKsft2nJGPv3r3p0qUj
7BvEOVE9T548qVKl0vs1oY8QOm3aNIflpJ579uyJe2oVztUpA7HO/IYm1+KK
dDT6QHfhwgWUCR0W7jNhwgT9r/Dlhg0bNm7c2DzYYsXa1ZunSGKHe/heunRp
7Nix2nAZkQcj6datm8choG+//ZauXJ8gOCFwqpUso1evXog9aokWxGv0S+z6
RYBUK5bQunVrQ/rsDTX5zTw+5hfu1jZZGEKaQKrWMDFAVVNj3F2DBg1sbPrj
RLW65ft++UWiKG/VntEQTwYPHqw0Hm5OX28urbu+ZgCr/u6775A9aNTY2Fiu
TpOFhITQZKgpGyf0OKmVEEfnok1FuHXrljnZ10h61aqNqRJFDVZKwpsyZUpU
gd5ftm3bRjB36IbqunPnzi1fvvzw4cNHjx7N/7GrihUrelwkivBevXp1Q/jy
oVjUoz2PDxrcKv+OHTuCgoK0iW38mSlTJuIYMsbQxyk89owuQizCiagTYpGa
HsyFyDhQ79pWDvZQw1a2S+6iasVbs2TJoo+3J06cKFu27JgxY2iIZJkkYEW1
qqbn7kiXqEO6EjyLgEBqQ8/icSK0AY+qlSjx9ttvc1q65kTPQBmIDw7zF3tQ
NlJ1/evVCjpWXIaAqZ96feDAASwWb/J9TrweRUoaSMR4Xwd/tmvXTsVPqnfo
0KEctnv37i1btvBt+/btvT3P5YpcVz8b7dGjR0hT8jU6cUMkoQULFixIum3u
sKxY+/3793GoPn36eDN1qgupQ55I5XTu3NkwfY5gSPpGF8zV9+zZ069fP2wP
j0BFU1pvGZAaUbE9bmkgQKqVsDlgwABlD5QzLCwM827UqJE9veFEteIpgwYN
IihRq4bWx1TSpk2L6Vp5ZYCSc7zD2cvu1jaemDdvXjpB82NBtAr+QoBt2rSp
vUVvnKjWRH3fXb+weDZELx7NMdwXYRyxtHLlSs5JMCF0e5Rq7vqaBma8ceNG
CkPo2LlzJ30f5Zk+fTq3RhqCVKNbsXFaj5Naz507N3LkSIsP5pJetcYnxAqM
3DDVlqb/+OOPuR06Au0rWmHEiBGJzo6jeon/ffv2pTLf/18qV65MtEeloB7V
kkF66IU9vpClZuVVqFBBv0qMN8WiXkinlzcPZSRafkyUNA2nTp06NTf+9ddf
GxaLxhEIBWo+Nt5dtGjRsQlMmjQJf69UqRJBkl95PLm5Z3QFWofCULdULPaz
d+9evGnXrl1qMuobb7zh76OKn376qWfPnvT+BG3CPjHT9qTWeFdVK10JwZbD
pk6dqn3I7Sf9XE0NK6o1PuEhQooUKZDcJOz0hmRbtE5oaGidOnWs5AIeVevn
n3+OlXLOZHnV1yF4EMkdTUnI0r9cQIKPjxAzvf1QdayvJ1CsWDHEAyfBE8uV
K4eZ4YD0Vlq8wmEvXbq0adMmVCtC18cYDlfEyMl29R++ePECZzcP9NEnUkiP
T4WsWDtFypUrl7fpmnguJcFa8Fy6VDWeoI97dFg0vXYv3CyX4wZxcx83qCYr
NmjQwJWZXQFSrVg4VqFVOM3B7VepUsXw+olFbKtW0gqcFHXHP+iO9aMlmETb
tm0pVfXq1R0OlVvH3dreunUrvmMoP//mc3rnd955Z+3atbbnZDpRrb59312/
sH62s2fPZs+efenSpXyL56pnN1gUcdubqHPX1xRISgQVybJeP6j36BcuXFig
QIF06dLpp/JaRJvUqtfYjx8/xuYNwdAHyaJaPUKj0wVwO/ohBfXuDy3iYx1U
jIT24odYBaKOjpV/Y41KtVJCjNNGDhIREYHxGGaCeVQsalLr0KFDzVfxXX7C
grpllECOHDn4B1fUT4bhANL/pwlwkhYtWhBOsWStl9QvuGHGY8/okAsXLpQv
X75Ro0Z6m+HuUNFkYVQ+wj7RB9AaNDRdPK6Bw6rt8Eju3nvvParC9oMbF1Ur
9Y/e4zAa10ZJAoFF1UpHQFsQHpE658+fp2vu37//4sWLLXZ8ZtWqzTqgdZws
+KmH9p05cyb38po/IMBsrFNBU5I84mj6FA+TI8EnAnvroOkFsBDi84wZM5QL
U4GdO3cm/3U4Y1ytYOZjeIRLr1u3jrZT8zoQyR7dyoq1HzhwIHPmzOa3XOMT
3LlUqVIkoeq1dK7FfWFg2sRI7pcqsjEOpnJ5Q+Jvm0Co1rt379JX6lNstSev
7VcIbavW1atXc+n4hBmepMn6wV7KX6hQIYsPONzCxdqmzBg55afX0BaQ79Gj
R3BwMHZL54i9OZn6bluE+PZ9d/3Cr7OtWrVKv1KrFdz1tfiEEfs+ffpkyJDB
vAwChWzSpAlukidPHhv7cahhYeyB/9erV69u3bqYAdEpU6ZMx44ds3iSV0e1
kqTQF6Di9CdUD4s7dOjgLRcjP8VZEKv79+9XIic2NrZYsWLUicMn42plPG8D
leoBKAkUxr97927MzONIiI/y0wm2b9+eAKW9Moxt04itW7dWGROXQGaoBXyu
Xr2aL18+8yLDvkm0Z/QXIjz6nA7UXLdUBV9hja1atbIehfbs2UMlf/LJJ1oJ
1fMR5Ja3AeREcVG1EoSVah09erS9wriORdW6Zs2aVKlSGTbRsI5ZtaqVrKgK
6s3Fl1XJub799tuT/oC/+DtVWy3RnzZtWsOsMJq+e/fu2K3HIKZeeCQoLVy4
UP8rkkGS4l69ejmZvqhSXR+VuXfv3owZMy5dupS0jmjmbVjDirUTWvEy8x46
+CnpGL2kIaoQyghZ6nES8efTTz+1kT+qmWDYqvXF62hZQgG/Mi8e5bpqJeCQ
Ma1cuVJ/IWIOkcfG0yLtnDZUK4qFn6iIumzZMtxWn7CrlawQCR7XirGNEk5j
xowZNmyY+WZdrO3ffvutZs2axCuPWR52myNHjlq1atnurG2LEB++765f+HU2
NanV35EBd30tPuFRHSb30UcfmbtyuoaqVav6XrfKBwhOwlrOnDlJpS9dukSa
RkgfMGBA2bJlraeKr4hqpQDvvPMOwdkwpQdh/9Zbb4WGhnqMA/h7w4YNEWZn
z57Vfx4REeHNTaxDr4H+VymwGe4aJ0Vh0oVVrlyZYOWxJ/VRfiQB6Yyh3Wm4
5s2bq9vht0Qz9awKiUJH6a8CSbRnNPDo0aPIyEhcbPbs2eZnDXzStm1bKtZj
/MT26BkxZuvSGhcrlYDe/JQ6UhMyrZzEjIuqFbfCv5wshuM6FlUr+U6KFCmy
Zs3qcRmlRDGrVq6rxny8jYFTV0sTIOJFJYAkoJBJ9jKgN9QGlxinYT/E+AQz
wKS9LW4ZFxdHzkKEMTgpvXmBAgXIN53cmrJzUjxvvomenzdv3uDBg4ktPsY0
rFg7t08oM288QZfhcTs/7ovPsRxcnpzXPEPYCmqQDQVofXdL7mXOnDnoRvO7
5K6r1h9++KFBgwbk2od0IBqRiIku0c+tnTlzZvPmzZv+FwIjPQKGQa9h+IqD
T5065THUPH/+nE6Ec9IQGBsqTt+dqeFfjytROEHtx92mTRss2dxALtY2YSFP
njx58+b1aEXa8gKdOnXyPR+MM9OhbzIRHh5evHhxGs78FT24j0dLPnzfXb/w
62x8SJc0depUvwaa3PW1u3fv0pRk6x67GDUQR5PZW+FHbaJheDMUb0I/Wx/s
sqJaXTcYAzRoSEgIfaJ5XXQ12OVtxYzly5fj0eb3lNXSNw4XJzx48CBJgbf5
xpSHNqVg1DYZujfl4638GCpJrscXwdasWUPJuSP6fW1Rgujo6BYtWvhYXNoj
ifaMBnCZffv2oRg9LlhEUpYuXTpvawvTJxLwre+HqL0xZKgcgjMhGulub1Jr
vKuqVSWG3Fcg1nC2hxXVqsZ8XkvYr9beMyOzalVSDSXsbadIuloSluHDh5N+
qj2GqGE8MdlVK5apHsaZYwhGjnd4HNlQi00RXnA9w1dqrLVdu3ZOxpzVMwXn
+wJbsXbSB8zYnPMShbyt401fhtAiIOOk9oaUqe2xY8f6u6IIzUSeaH6d013V
qiZ+oDBD/pfg4GDslijnezvOp0+fErWqV6/+oQn12hG+Y/icg+kpfPeJ1Dah
z7BGIuZHX8ZprQgSJCLdh0XBQ4Bt1qxZ/fr1zYLKxdresmULTlSrVi1v765i
ZhyA4vKRmqnplLVr1zZXuNJXlSpVMn+ljf94xIfvu+sXAfUyhbu+Rtinf0EG
eBy5VauyY6g2XjD3tlIr0oIYZf08iarWQBiMHiL/xx9/XKpUqZiYGPO3165d
w55Hjx5t9kQ1Uv3mm2+a3Rk973CLk/iEkWRC/YoVK5ycxFv5+fPevXseUxVy
rrCwMFyJ7Mnjm2LWsdEzkhhSYPOKFjSTWhbG2/rVCxcuRNLUrFnTYraiykYf
YXhwSSaSMmVKJ6uRuKhaqQduqmzZsm5Ng3GOFdVKN0RnxN0NHjzYXjA0q1b1
cIHa8L0UpDZ4QudrO+9wEZKg8uXL0/V7NCc1H8zjTGy1iojHkSiycvrZCRMm
OFkwhyuWK1euU6dODqdbWLF2bj9Tpkx+vTqBCFFbkPvY/sw3WAKJecGCBa2L
H7UVZuXKlc0vQ7n+fhC9vDkqqhWnUYnmVMUKTtYQwJYmTpzIpaOiovSfq2Xc
8uXLl6hq5Qyffvqp9f0Qf/nlF5QJna/ZjN2qbTV3VM2w8qalV69eTWeNEPK2
8LhvbD/w9eH7PnDuF4E4m4u+pjUZkt7jgMOqVauw0rZt29oI73fu3ClZsqR5
Y9/79+97E/YeSd4ZAlTRggULqlSpEhcX5/EANTOTztds80j9LFmytGvXzhB8
aI6uXbv6NbnXI/v378+cObO98KXho/zeUKsK7Nixw/xA019s9IykftmzZ9fW
N9ZQw7boSY8yHvMODg7GGq0vhaHGVAsVKqR3NLVkYvr06c1PM63jlmr97bff
0H7c8ty5c5N+0VFvWFGtJIA5E9CeKvqexmbGrFpVE1Nj2orBHvn999+VYJ45
c2ailaZ2g8qTJ082fyhRosSJEycSvYX4hASwTp0627Zt05fk1KlT+mrp379/
0aJFzW9VqLk95rlbauKZYfksGxByixcv7mM1KotYsfbdu3cTyvza3xkJQc2Q
ONte3o376tWrl19vNqk36Pv162euExdVKx0W/bXHkT2137HthSidqFYVYDFF
NcCFJFDBXy3TneikhfiE53oDBw60/jzu66+/xpt27dpl/sqt2lZbtfqYrUcc
xpuocPO2oRZxMq/Vm+/7wLlfBOJsLvoaLdK5c+fXPO19GZ8wHtK0aVOin723
TtSzS8NKrfbOk1yqVb0w3qBBA303Sh0SXTXhrZLf7t27m+OAevRgnkWplg6u
WLGiv8/TDeBohPpEF3L0jY/ye4N4RbJD/PGxGo9F/O0ZiZPDhw/3uBqYmtZI
hXgUDOfPn8cUibrW81a1vaZhdQVC93vvvaftWmvv4bJbqpWERS3Y4taLma6Q
qGql0sjaUqRIER4ert2a72lsZjyufBUVFaUe9vmYhI8YoJPNkCGDxbwDE925
c+cXlsErSSetBHkCePv27Q2dsnoHRxOcVAsBJEeOHOZxHlXP1Jgh4yPekoci
4B0uMqM26vL3/UozVqxdZYh+zZgiJiNC7K3HqPjjjz+aNWtmlv20C6nTgAED
cD1ylnHjxmmPNb/99lvKiWMOGjSIb0NCQjRbdXH0b86cOaTeHqsd32nSpAlh
gVLZGDFwolrJLIiHSkVgWhRAi4EdO3Ykd16wYIGPn9NrqDUDDZ97q201QQvV
OnToUGq7Q4cOkydP1kzardrGWd544w1vk1rjEyY04n1EFdubn9oWIT583wfO
/SIQZ3PR11RWTveh7SerB7FKbOeE+qFCOkpyE60JyAI4rceJgmpSq+8exArJ
qFrp1+gUDHaOQsDrNZ2g3kBs3LixWcBs2LCBvtts7dgA7m9vrzE9y5Yts5Lh
+sZH+b2BPRCmsCLna6956xlpdIQ05tq3b98lS5bQj6trqaeiCH5CGbK5VatW
2guGasGKnDlzmscosHNkdrp06fQKnyhK9jdixAgtgNOx8omWUKsobdjHQXWv
atdako6wsDAbu6VYVK0qo/SmWqmifPnyccsOd0wwQA0jJqdOnWp76UWVPnhT
rdwXzU0vQNwwRAYf09jMeFSt5JIYc1BQkLdNWNRmzfSw/o5guA7lx7zNsxOp
PWKOvg/dvHkzJmfu7qm92rVrG7ajwjdDQ0PffPNNh1ujxidsEMN1Pe4W5BdW
rB39U6RIER9Pac1cuHCB09p7D0uBtXAGw4QiMnHS0s8++4ySEHPwdP2CmcSi
VKlSqc2+8Uqik/aSjls6iqSbXMbb40j1XrnahcqG8rStWvkhIZd4qFaMOXv2
7KRJk7R6O3XqFOLqnXfe8eZTVBFev27dOkOc91Hb/KR58+ZqjX1+hQAoV66c
NjnBrdpWc1a9TWoltHJTCCSUle3Z705EiDff94FzvwjE2dz1NTQVrTZ9+nSD
Od2/f79q1aoVKlTQvyhNSGzbtq1eMK9ZswZzNQsnbVKrX4HII8mlWtEnCAbD
e+LcC+G3Z8+emg2r2Rcep0xzBlph4cKF+g/plXCEdu3aORxyV/ukON9Yykf5
vYHlIBddyebMPSN2uHLlSqpIPSSl8yURrlu3rlIyalJr5cqVVdqFLipVqpT2
biPR3qOMP3ToEJ8Tq/X5l9o6WbN8vuLnetsmZGXPnp221iI8dYU9a88mSAaR
0zbM20o/jnmoNX7NCyxQciXC69SpY2M9Ot+oME6gtreaUHxCLFKjE4bVLahG
mrtRo0YI2jFjxpilqY9pbGY8qtb4BINByZMKbd261dA0NPHixYtbtmyJ13ib
E5U0EKLJj7wt92rY0DYuLg6bp+Tm86xdu7ZgwYLadALsBHvm9s3zZ2ywYsWK
PHnyOFe/VqydkNKkSZOmTZtan4qGUqIjc9KI+A55nz4+k4HWSUAFARUbKbx6
KKb+1N7pVi+YkKCpJ+ZIi5IlS54+ffoXy6jwpekozP7gwYMYJ+mqt3n+1I+2
27iV5M6AbdWqVi5SbyRRBpxUP1Sl3sxNnz49VWd+tEqcJPc3v4Tlu7ZVNNDe
hFVvGaBb1G+d13b8n3scq8WuDWUjvMyZMydz5szc1OzZs52YmRMR4sP3veHc
LwJxNnd9Da1SrVq1SpUq6VdX4IfBwcEkJoahaTVVVTMkNVRLBmRemQHTLVy4
MFLZ9ri6RrKoVoQQFu6tWzEY+aJFizAt8zA+3h0SEkI3rQmhu3fvEpnJKfya
X+0R9YIhod75gKe38nsDe+O+XMnmzD0jgShnzpwECiVdVOzSHoep3FObskL7
8qe2joHSwIh5fUwmZtIRIBIMQX7nzp3kFNpjYjVUq99LlOYjucA71Ggq5yT7
wy8QXdSYepJLAWzcte9+HMlBSfAdzd4QgcUS4EYQ0rlz527evDlB2NtkYGyD
+EBAHjBgALWBkuFmLUpQtdw0mUJoaKhfr+FQIVxIbUWh4BYKFCigSs4/aBrK
T5G8TSzxMY3NjDfVGp+QGNKzc3XCGoZERW3ZsoXOmo5+8uTJT548+fzzz5ct
W5aMM4GxWLXViEcaNmyoF28UuEaNGt27dzc3BzaJB1WvXj0iIoIWR5ATkP0a
gPKGiu1an+IEK6qVtpg6dao28cYKNGJkZKSTRty2bRvBR79ek9qZVFvyRS2h
o81fUhPttGcfamSGbk6VmfMQRb21qTfoZNVMPzwUH9E+p8YMMwAxeMIRDqId
g6BCxfn1TMTJDAEEDL3/lClT+DkGbKh5/iSWli1bNmPGjD169CBU4pvTpk2j
s+vYsaPH50G+a5toQMTQntf8/PPP+fPnp99Rfzqs7f379xNjNR+kJrE9Fan4
B9EPvcrB9DvOvcmJavXh+95w7heBOJu7vhb/5yBw1apVCYBfffXVjBkz6Lbo
8syj/QhIvEZ7u0qlPxiSVqWcHE2LqNb6XLp4bKBy5cr2VmWMTw7Vqm2y4w3D
BB6yzly5chleOlNQRaQqSJ2VK1eGh4fTC9BMrmxqpibHzpo1y7lF+Si/R9Cr
xCXn3Zm5Z1Tb1KJ8NGvRb8SsJrXqZ3ST4AcFBWmrs1IV69atI5rh5lu3biXi
9e/fn0BEexnGcFT01veSSvEaFnpF/xB1UbyIHFQcJ0fBkgOiK2hNYrK9RYGs
9OO2oTIpIT6uxDZ5Os6I1fl1EqqF7snFtfoTxfc0NjM+VKvi2rVrCDk1J2rC
hAm7d+92brHJgtpKAD3gbb2OFy9exMTEnDx50sZkFW9gonQiroQXi9bOLRQs
WFA9gE4ULLNfv37WQ5YZIgDqq169eppVqD2ps2TJoi2YQydLkkjHrf5EehGa
tJc9aQ46Ss7gymsvSYMT1Rqf0J2dOHHCR39Ku3AAnkuvx1XI7n3soeC7tglZ
6BxtbGTPnj1K5NgodvLiRLUm6vsGnPtFIM4WIF+jT1dre3Ly5cuXext2owL1
b1chLTizX8PXNnhFdhnwATVZv379AQMGeAsFjx49On78+Llz51yUAfv27SPI
O5zUqki0/AY2bdqEGnR+L+aeUeVB2n7Qaj9NUmz1NtyzZ8/q1q2rPdultJQZ
UzckRGha5Aoik/iMdvX4yps6lZqeGv9ncPA44Ix/Xbly5fTp03qPO3/+PEcG
dOUre1Ck6dOn69/N37x5M1LQ3zHhs2fPkmIn2f6M8YlNYzOTqGr9O0HIJfly
uCmJX9AKpIeuPE+xaO0YAKkWKYaVwEIvVrt2bY9LEVpEGZh+mpN6CK6fc0VX
iEFylSMJ0MMSi7SnM/SYmTJl8rgL7SuLesHn448/TkrX9ojv2j506BA5rDZv
DZPo06cPB9vbESx5OXPmTNOmTW2/ee2X7zv3i0CcLRl9TQ3SVqlSRXtdhT4l
a9asp06dQpLZ25bRCk5Uq0ODsQ5JQZkyZZLs/Q4anSSoXbt2bi04ab38XHrw
4MGuLLVk7hnVVlnanG0kZcuWLWvVqoXJYfMcWbNmTW35X0yiZMmSXbp0sTHr
Rq3Woi2RpGy7WrVqmApWbW+Pb+sETrWqEXhyEJWTqqXt/N21nDohhjhZ2ssG
vqexmflHqVbqBKXRtm1bVx7TJIraY27UqFEO17xSWLd2cit6N8Pmgx6hu6lT
p46TpTOWLVuGvxtmaq1evbpo0aJqzvz169crVKhAhLl58+bkyZPj4uLoxLkR
pR8IlZUqVerbt++rsOSvX+DdyS5ZFb5re/fu3XyiuqQ9e/YUKFDA3R1jkxKH
6/Nb933nfhGIsyWjr6mJf1WrVlXPoW7cuFG+fHmuyz9IizxuouQKTlRrvDOD
sQ4ti7jyuBRDIKBZEZn2ViTziPXycySW7HwnJo89o1pEBdSTdzKszJkzo8+x
bTz3t99+I0FTc104YPjw4VigX3ttaCCYg4KCwsPDlWrlT1K5Hj164DUTJkyw
8ZqDXwROtaqNJ6ZOnaruixqjWRHkfs1kIIaMHj3a9hoC9vA9jc3MP0q1xifk
Ix9++OHevXuT4FpYJr2Mw9c8NaxbO7nqkCFDhg0b5jtoY9tz5szp2bOn7cc9
9Ik1atQwr3FBrke0IVcaP348oWbt2rUk0RQpMjKSa3FdutHGjRtPnz49ODiY
MiT7rmp/aXzXNh0EUah79+6ffPJJs2bNAjcs9upj0fed+0Ugzpa8vnbkyBE6
xFy5ctGVTJkyZdCgQahlLqRG3hzu+ucDh6o1ySA3rF69eqCH6eITdPiIESNC
Q0PdrXOL5Y+JialSpYrzHs1bz/jTTz/VrVt3zJgxGNiMGTMwaS6HMR86dCg+
YYy0RYsWCMv+/ft/9NFH9qxCTapJkyYNOdfYBCZNmjRx4kQSOi7kYi7gjcCp
ViIbOl9b9+ny5ct58uSZNWsWoWPVqlVWMjjyWarX4iL5LuLvNLZ/mmqNT3CZ
Jk2aBHq+E+ens7A4v9QKflk7Hs097t+/38cxdGokmD5mj/gGLwgLCyNf9hY/
cRayVy3vM4REUlpSqqQZDPkn4Lu2scYk6FJffaz4vkO/CMTZktfXlPCmW4mL
i7tx4wYXUk8ZEMxcKKBv4/5VVCvtgv5BZQU6oBHSGzZs6NZIiIbF8kdHR3ft
2tXhIIPvnpECXLt2Tb+Pg37cj2+vX7/u5M0ajLZOnTqoX5TPpUuXtAtRKhff
Z/GBNqGXTPDHH3900WBQ9cWKFSNvjU/Qn2SUQUFBOxOwOCmIwiT9ngXqVSyL
09hu3bpFvWE8ZcqU+UepVkLu0qVLBwwYELhnAZyZbHHJkiUuPkT219rJi1u1
auVtL8L4hCcys2fP9rgFeaJgaUSwXr16JY2nC4IrWPF9J34RiLMlu68haYKD
g81bGwQOmik2Nvbw4cPz588vXbr0q69a4xPWqaCN0AyBk/EXL15s3bq1W9Ot
DVgp//bt2x0OEgaiZ/QLpF2+fPmcb/pjm4cPHyLacyegxLNbZ+aOVq9ejSaf
NGlS7969Uar169fv1KnTiBEjLL6FmlxYnMbGDS5cuJD0OWfOnG+++WYSDIy/
UuAyW7ZsCdxdHzhwYNOmTe46pg1rJ/IvXrw4EM/vMLCIiAiRrMJfjkD7vusk
u6+ptzycbxlgnadPn7Zt21ZtVl67dm3nC5wmDbTRvHnzXB8IVahl0p3vo+qD
gJZfEYie0S8Q3tmyZfsbT5TCdy5fvqzGw1++fEm+nJRrWNlDprEJgiAIbnHt
2jWk49GjR5O7IILglOjo6BYtWiTByhKCv8g0NkEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBMFF/vjjj+Qugt/85z//MXzy73//O1lKIgiCIAiCIAQUZN7ly5c/
/vjjIkWKxMXF2TgD0nHmzJlvv/32zz//bPgqNja2VKlS8+fP/+9//+tGYY3M
mzcvf/78wcHBoaGhnTt3Ll++/NKlSwN0LUEQBEEQBCG5ePjwIXpv0KBBHTp0
yJYt208//WTjJKjErVu3zp49+9mzZ4avbty4MW7cuPPnz7tRWA/XjYiIyJQp
U4oUKVKnTl2pUqUdO3aYR18FQRAEQRCEV4E//vgjJibm5cuXts+A/Js1a5ZH
1fro0aMLFy44K2Ai2C4/xV62bNnevXtRqkk2vko5Ke2LFy+S5nKCIAiCIAh/
D54+fTp8+PDVq1c7kW0+VOuzZ884/9q1awMkC52UX1OtgSiYj4uuX79+2LBh
v/32W6CvhTY+cODAnDlzZs+ezT/+ihOPBUEQBEH4e/PkyRPz03YzyJiwsLDw
8HAnA63xPlUr3L9/v23btnv27PFYgCVLlgwcODA4OPjKlSv6z5cvX460q127
9oYNG7wpUoflV6qV81MGpC/Szjyx1l+eP3/eq1evESNGaG91ffnll3zyr3/9
SzuGr6ZNmzZ27NiAysiDBw82bdp03LhxX3zxBVlD+/bty5Yti3bVDjh58mSt
WrVef/318ePHa/Mirl+/XrFixS1btphPGBsbO2TIkN4WGDNmzO3btwN3a4Ig
CIIg/NVBvCHD3n///XfffTdXrlx58uTp27fvrVu3vB2/bt26hg0bPnjwwOF1
favW+ASB9OGHH166dMnw+bZt21atWoVWLFy4MCVXH6Kgli5dipjkdgYNGvTB
Bx88fvw4QOWPjIxs1KjR999/j5LctWtXmTJlvvrqK9tng2vXruXPn3/69OlK
aaNLkYs1a9Y0jKwiYps1a7Z69Won1/LB6dOnu3fvfu/ePe0TanXx4sWUDTWr
ffjNN99kzZp148aN2ieLFi3KkSMHFWI+58OHD0k9pkyZkj59+pQpUyLFab69
f7J58+b58+eTfaRJk8b2DGdBEARBEP4JPHv2bOjQoeHh4UogoVLWr1+PJkG+
enwIfvPmzYoVK+7cudP5pRNVrWjCIUOGIKH1o4vPnz+fPHny7du3N23alD17
9qNHj6rPf/nll2nTpv2eQKME+EeAyo+u0yQxIrlbt27ly5fXiz1/oTzUgzak
eefOnRIlSgwbNsz8khcKkPLfuHHD9rW88fTp0zZt2vTo0eP+/fv6z6lGpHLl
ypXRn/EJrTZnzpzcuXNrKz88evSI5KJTp040jbeTHzlyJGPGjCRE5hxEnRPd
yy37yJUEQRAEQfh7gOBBz9iYpblixYoxY8YYHjpHRUWlSZPmrbfeunr1qv5z
zo++rV+/viuzKxNVrRATE1O0aFH9QJ/ixYsXSKzq1as/efLE8BWKrlChQpTT
XBvull9j7ty5QUFBtpUw0nT8+PHcJsJbfYLGMwxmaqAtGzZsSJO5vmoBepJU
JXPmzCdOnDB8tXDhQm5w+/bt8QnjwG3btkWmqpqnSiMjI6nws2fP+jg5VfTa
a6+ZR481YmNjW7ZsiQB26W4EQRAEQXgVUbJnyJAh/q51j/Bo3bo1cssg8O7d
u1e6dOkUKVLMmzdP//mdO3fKlSu3aNEiFwptTbX+/vvvrVq16t27t2EO6rlz
59544w2KZ5ame/fu5ZweB4pdKf+xY8dQy/v27dM+mT9/fqpUqWw/uH/27Fnd
unVbtGihlgjgjtB43N3Fixc9Hr906VJax/VhSap6yZIl0dHR5um+u3fvTps2
7fDhw7G0u3fvlipVaujQoUo279q1q3Dhwjt27PBxZoQuKQaqdeTIkd7ENpq5
b9++skiCIAiCIPy9sa1ab9y4UaBAgZQpU86ePVsv/5AZzZo1Q2Z07dpVf/z6
9evz58/v1uRDK6oVPvvssyJFily7dk3/w6lTp+bLlw9dd+rUqS+//FL/VXh4
ODrK4zN0V8q/cuXKnDlzbt26VbviJ598kjFjRm2ugr9cvXqVUk2cOFGb1IrG
q1at2sOHD6OiolDahuMpP8evXbvWwU34BzWcLl265s2bU7bjx4/TZBs3bqS0
5DsVKlTYsmWL70F+NeEhTZo0X3zxhbdjYmJiqEbZYkwQBEEQ/t7YVq337t0r
U6YM6hQRaFCtrVu35vP27dtrH3Ly3r1716hRw/xQ3h5ccfr06Uig2NhYH4d9
++23qMRNmzZpnzx//rxhw4ZIu8ePH6NR9Su7/v7773zVuHFj8xxLt8p/6dKl
sWPHak+60ZYffPBBt27dfMzq9M2OHTuCgoK0KQ38mSlTph49ety8eXPChAnm
VR0of/Xq1UkoHK7h4A2uGx0dvWDBgm+++UbNDUajojnr1avHn5GRkblz5z54
8ODw4cNpAispgMdJrWpoV1sk4datWz/88EMgbkcQBEEQhFcH26o1PuElptOn
Txv0D1qicuXKqNawsDDtw/v375cvX75Pnz6+r4KSXLFiBXK3atWq7/8vNWvW
VO/ao8QQaQ0aNECOpkiRolSpUsHBweaJCgo1Ujdq1Cjt4TL/QGaj3EaOHKkG
/bSDr1+/XrBgwcmTJ5tPlWj50Z/I0bx586ZOnbpixYpff/21/iT8e/v27Zyf
f+zZs6dfv378uXnzZhRy9+7df/31V3tn417GjRuHJixatOjYBCZNmjRx4sRK
lSrRoPzKXE7Kz11UqFDB+TIOBs6dO9eiRYtGjRrRgiQLn3/+OWW4cuXKzJkz
MYZWrVohNZHTJUuWpMyYjcW5tR4ntXItmk8WgxUEQRCEfxROVKtHjh49milT
pqxZs548eVL7UL2tgwLx9isl5woUKIAQ5f/58uV7LYEiRYogWVFuCDy0kL+F
QeLWqVMHiatfE4BrobfNo6YUIFu2bB7XofJd/hs3biAUKW2WLFly5MjBP/QL
FKgD0PBPnz5Vfz569OjLL7/csmXLtWvXzArZ+tmAu0MrkilQQu11JP0yBWYi
IiI4oYvrRHEL69atI4mYMmWKfnJpXFwcKQA5BbcwePBgG6+AaZNa9XkHt9a1
a9f58+e7VX5BEARBEP4SuKtakRm9evVCZowdO1Z/wgMHDmTOnBlt4/FXyJ4N
GzZkyJChdevW169fV6VauXJlUFAQZ3PyLJvfduzY0cfQImqWUp0/f57ShoaG
litXzjzy6bv8COP27ds3atToxx9/VJ9cuHChbt263IuSytzd4sWLd+/ebaXA
fp3t6tWryPsZM2b4tf5DdHQ092JeWsE2mzdvTp8+/aBBgwyDn1Q+ZoDaT5ky
5YoVK2ycWQ2VY078v169etQDKQyFJy06duyYS8UXBEEQBOGvgbuqFTWFgAkJ
CdHGFRVbtmxBbHjcrAq+//77N954A2GmH/9Ub8cXL17cyZ5H3NTAgQMLFy58
8+ZNjwfs3bs3Y8aMS5cu3bRpE9JI/3a/xfJ/8cUXffr0MSzKhNxq3ry5WtDp
1q1bVK9+pyof+HW27du3Z8uW7ZtvvrFyZg1uGdVHmmDx+EePHkVGRg4dOnT2
7NnmZWzj4uIKFixYrFgxlW7oUW+3oTmzZs3qcROBRDl69CitkzNnTrKGS5cu
Xbx48eTJkwMGDChbtqz5RTNBEARBEP4eoE7PnDmzefPmTf/Lxo0bkYuNGjVC
xhi+4uBTp05ZV7OICtRLy5YtzQpt9erVKCX95p4aCKHg4ODcuXPHxMToP3/5
8mWHDh1y5MjhcW15i3DXo0aNQhJ72zj18ePH8+bNGzx4MNJdv8GrxfJT+GHD
hp0/f978kzVr1ixatAjlFhUVtX79eiul9fds0dHRLVq0UAv4W+fgwYNIwVWr
Vlk8/sWLF4j5t956q3379obRVJUUoEt79+5tthMqf+TIkXyrLdDqLxEREfzc
8BIcZsxFZVKrIAiCIPxdefr06YgRI6pXr/6hibx58yIaP/jgA8PnHIw8sKg3
7t69W6tWrU6dOnmcUbly5UqUksdRwRMnTmTOnLlLly4GHaLGWvPnz28exLMO
wkk9pDZseeAv3srP+e/du+fxAf3ly5fDwsIePHiAbKZyLJbWxbN54/Dhw9yL
X4/syUdQ/pGRkYbPb926Vbx48TRp0uhXadB4/vx548aNkZ3abrN+4W2l1j17
9tAc/p5NEARBEIS/Oq7MEECptm3btm/fvoaJARrR0dGZMmUyP39Xq6emTp3a
vMz+zZs3ixQpUqlSJYvP1j3C3Q0bNqxgwYIOtzH1Vn4fqHUAduzY8emnnzrf
i8rFs+3fv580gTuy/pPNmzdnz579+PHjhs8PHjyYIUOGPHnyIKrNv7py5QpJ
B5Xv8dtEuXPnTsmSJZHEW7Zs0X9+//592QZLEARBEP6BOFetv//+e2ho6PDh
w/WLjv76669qE0/F7t27UUrmheK56EcffeRx3iM/DwoKCgsLcyLSOH+vXr1K
lCjhcBqkt/L7gNoYOXLkwIEDz5075+TSrp9t69at3IvvHan0UP807ttvv20e
492wYQOqsmrVqubMgnxk4cKFqVKlotj2TEtNajWs1CoIgiAIwj8Wh6r15cuX
kydP5gyGdfIPHz48a9Ys7c8ffvgBaWreDpWfd+nSJV++fIZpAJytbdu2BQoU
iIuLs1EqDbVRl48t7C3irfy+L92xY8eQkBDzG0w2cPFsy5YtM6cJnB+R2bNn
zwEDBpApTJ8+XVsCV21MULFixaFDhyKbW7VqtWfPHvUVmcXrr7/etGlT8yxT
0pYKFSqUKVPml19+sVdONam1Vq1aFtsuOjq6Ro0a9+7dU3/eunUL0zpz5kx8
gpEvWLCgePHiWbJkOXLkiPaTLVu2vP/++7ZLKAiCIAhCUuJEtfJbJNDUqVMN
W8CjrDinfvIhwqBIkSKjR482DJyqjVlz5sxpUKfIIZTV8uXLbcyH1PPo0SNk
Sbdu3RxuBeWt/D5AeCPwrL/0lDRno/yIUu5FL9WQhVSR2i+MPxcvXpwqVap5
8+apb9Wk1sqVK6s32miaUqVKqYf+V69eLViwIFrRICyxpQkTJmTOnHnXrl32
yqlNarVY5xxPmqNPT9asWZMjRw5NnHMSTvXmm29qq0lgpWQ01lWxDRD84eHh
OIhbW8IJgiAIwj8Z26oVPbl+/fr06dO/5ol06dLpl+tHdDVp0qRp06bmrUuv
XLlSokSJiIgITaAeOXKkePHis2fPdr7rKCfPly/fwoULHZ7HR/m9gQIMCQmx
N6UzcGdD3aF+uRdtzFbtjUvioG2Kunnz5mzZsh0+fFj7kwxC22mLz/lTrWOA
8UycOBF1eujQIe0SGNL8+fOzZ88eHR1tO+m4dOlS4cKFEc/mCc8eUZNgR4wY
oSSu2oG3XLly9+/fVweoHRn0LXj8+PHcuXNbPL89qLo0adKkSJHi008/dZh/
CYIgCIJgW7XevHmzUKFCHiWr2s7pwoUL2sHqrauiRYt6fBr7/fff161bd/jw
4Z9//nnfvn0bNWp08OBBV3r5bdu25cmTx/km9b7L7xEUZo8ePdwax3PrbLdv
3yZHmDVrlla96pP69eurN+nUclXaTGA1qVU/MTgqKiooKGjjxo3qT37Vr1+/
/PnzT548ed++fbRggwYNqlatSuphb90AlCeJBnpVGdLrr7+eN2/eypUra9su
eOTo0aMobe29rYcPH77//vvofC3xuXbtmiqkNu2hWbNmzZs3D9xAa3zCDhGl
SpWi/KGhoc5TMEEQBEH4h+P6jq7eiImJKViwoLctotASP//8M1LH23YANuDW
uK969eq5okx8l9/Mpk2b+vfv75ZWcetsCEvuQj+pVS2EhSZXco66qlWrVps2
bdRUVbX+WKtWrdQkEIxkwIABpCR6DckPyQvCw8Mp4ezZsxGQSb+Y6ty5c/Xv
bVG8HDlyLF68WDuAhtO26+Vehg0bVqlSJYcrS1iETGfKlCmiWgVBEATBIUiO
GTNmfPzxx85XZ/LN8+fP0UK9e/dOsu779u3b5cqVc3FmqfXyo+4GDx6MlHJl
xNits3Gefv36tWvXTj/PYe/evZkzZ9YWXL18+TLyb9asWXfv3qXq/u///q9m
zZraiqlUacmSJbt06WKYyZy8qEmwVapU0ZYyiIqKypo166lTp44fP/7NN99Q
bxMnTlSTWtHhYWFhderUcWvyRqKcPXs2MjIy0P4lCIIgCP8E6NOTpks9fPgw
MlI/cyCgLFu2rFq1ar/++qtbJ7Re/gcPHqCLDh486Mp13TpbXFxcmTJltBmq
iqtXrxYrVmzt2rXxCcoceRwUFLQzgXXr1qndr9TWV4jD4cOHly9f3uGWDa5z
586dEiVKVK1aVb1NduPGDQpZtGhR/jFt2rTz58+jVOvXr9+4cWMUbMuWLceP
H59kr0fhXMuXL/e4K5wgCIIgCK8sL1++HDJkyLBhwwI9GyE+Ya+uGjVq6NeM
dY718sfExFSpUsWtJZVcORtlHjFiRGhoqOHxPbJq9erVqOJJkyahTlGqCLxO
nTpxsFqgFY3aokWLCRMm9O/f/6OPPrp9+7ajmwkAR44cyZgxY65cuUJCQqZM
mTJo0CDuqHTp0mqAmvu9detWyZIlua/IyEgXp6BY4fr166NHj5Y1BARBEATh
Lweap0mTJvv37w/oVVBoYWFho0aNcn2CpcXyR0dHd+3a1a3H6K6cjTI3bNjQ
m/R9+vTp5cuX1SUQ50g7/UQI6hP1FdAXl2yD6p4zZ06ePHni4uJu3LhBydWD
A+7ozp07yfvm/vPnz1H7J06cSMYyCIIgCIJgm5iYmFatWjncPsAHCBVkXq9e
vdTzYtexUv7t27d/+eWXbl3R+dkuXrzYunVrSu5WkV4dSEyCg4OdbyQRCFD7
Dx48SO5SCIIgCIJgn9jY2MWLFwfoTfNbt25FREQESLIqAlp+16GclNaVjWVf
QdTKXX5tACEIgiAIgiAIScy1a9dq16599OjR5C6IIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAjC343/B3f9J5s=
      "], {{0, 107.}, {914., 0}}, {0, 255},
      ColorFunction->RGBColor,
      ImageResolution->{72., 72.}],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSize->{687.9999999999976, Automatic},
    ImageSizeRaw->{914., 107.},
    PlotRange->{{0, 914.}, {0, 107.}}], TraditionalForm]], "None",
  ExpressionUUID->"c849fc17-daf3-4c17-9ad0-33e84c9a25b4"],
 ", FieldNumber = 4 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.748965817048818*^9, 3.7489658189762506`*^9}, {3.767539490341497*^9, 
   3.767539490341552*^9}, {3.7675398704061737`*^9, 3.7675398705672493`*^9}, {
   3.767633176501169*^9, 3.767633177441382*^9}, {3.767633466976166*^9, 
   3.7676334672502728`*^9}, {3.8318212650137887`*^9, 
   3.8318212653224463`*^9}},ExpressionUUID->"31cf2f63-404f-448a-a7bf-\
08bca8b9d704"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "4"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}},
 CellLabel->
  "In[264]:=",ExpressionUUID->"1b707d05-2b78-4624-ad38-d66301ab47f3"],

Cell[BoxData[
 RowBox[{"G", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768089971905949*^9, 3.831220496559744*^9, 
   3.831222243822336*^9, 3.8318058849184866`*^9, {3.831823174956895*^9, 
   3.8318231970863543`*^9}, 3.831828156902482*^9, 3.8318397882226477`*^9, 
   3.832947500628298*^9, 3.832961785220752*^9, 3.845826876364196*^9, 
   3.845852468359991*^9, 3.845857078657138*^9, 3.8459196249403243`*^9, 
   3.846006577261975*^9, 3.8460998885047293`*^9, 3.847470450002592*^9, 
   3.851700635391245*^9, 3.853975451565246*^9, 3.854977409863976*^9, 
   3.854989264825634*^9, 3.854999901952407*^9, 3.8551652504699044`*^9, 
   3.855182319935489*^9, 3.855185864327773*^9, 3.8553306407878914`*^9, 
   3.8553398462758794`*^9, 3.855343183603324*^9, 3.855344017578907*^9, 
   3.855352744779683*^9, 3.855449609021776*^9, 3.85550761089071*^9, 
   3.855508407729906*^9, 3.855512895428755*^9, 3.855533326747354*^9, 
   3.855578920997177*^9, 3.855593293455903*^9, 3.855750606012144*^9},
 CellLabel->
  "Out[265]=",ExpressionUUID->"b4194b49-8003-4f6e-acb3-9ed60ef985b5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"A", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"B", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"F", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      "  ", "+", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"UD", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Fmn", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.831823191679903*^9, 3.831823192336481*^9}},
 CellLabel->
  "In[266]:=",ExpressionUUID->"90a00ff4-1c12-405a-a853-92e7164ddbf3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[267]:=",ExpressionUUID->"c4787b47-98b0-410b-8a52-0384d98f11e3"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, 3.768089972186246*^9, 3.8312204966675544`*^9, 
   3.831222243928761*^9, 3.831805885017222*^9, 3.8318231972371845`*^9, 
   3.831828156980631*^9, 3.8318397883094387`*^9, 3.8329475007064037`*^9, 
   3.8329617853051558`*^9, 3.8458268764735265`*^9, 3.8458524684392443`*^9, 
   3.845857078746333*^9, 3.8459196250391254`*^9, 3.8460065773590326`*^9, 
   3.8460998886062527`*^9, 3.847470450101677*^9, 3.8517006355109944`*^9, 
   3.853975451670248*^9, 3.8549774099996505`*^9, 3.854989264922503*^9, 
   3.8549999020617886`*^9, 3.855165250579295*^9, 3.8551823200448065`*^9, 
   3.855185864491828*^9, 3.8553306408887424`*^9, 3.85533984639283*^9, 
   3.8553431836970835`*^9, 3.855344017682841*^9, 3.855352744878997*^9, 
   3.855449609147606*^9, 3.8555076109892406`*^9, 3.8555084078590307`*^9, 
   3.855512895537032*^9, 3.8555333268328133`*^9, 3.8555789210752845`*^9, 
   3.855593293549652*^9, 3.855750606090294*^9},
 CellLabel->
  "Out[267]=",ExpressionUUID->"03956261-5cfc-4efd-b345-811337a171e0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[268]:=",ExpressionUUID->"9ae419c5-ee22-418b-8767-34e2e15b2f17"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdwFeX6/2lSBAKEXqWKVEEIHeldAiF0kCYlEHoISO/Sewm9KU2UJm0U
UOkKQ5FIGamOKDpSJuDoHe+d/D//vOP+9u6es9mzZ08SuM93BiZnz563PuX7
vLVYn2Ht+qdJlSpVVEb+a9d7TIORI3uPDc/Ohw5DowYOGNqvb4uho/oN6Dey
Rp+0PBzCvwO8////jhcIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQC
gUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCB4wXHnzp1l
y5b16NFj5MiRX3/99X/+8x/DC999993WrVv//vvvZCmeN8TFxe3atWvQoEHv
vffe5s2bnz9/bnjh8ePHa9asefjwYbIUTyAQCASCFxHPnj2bPHly8eLFQ0ND
O3bsWKJEiVSpUjVq1OjUqVOKITx58mTWrFk8uXjxYnIX9v9A2fbt2/fmm2/W
qVOne/fu1atXf+WVV1577bW1a9f++eefvACNOXDgQP369devX//vf/87ucsr
EAgEAsGLgfv373fo0GHs2LEQAPUEl7p///4qVarAEIKDg0uXLp0zZ87hw4f/
9ttvyVtUPfD+M2bMaNu2bWxsrPbw2rVr3bp1gyFkyJCBYufJk6dBgwYXLlzw
lgjsIiYmpmTJkimK87y4+Ouvv5K7CAGBmVimtNEzgSDpIXrxcuOnn366fPmy
+Tm9fPr06cWLF69bt+7evXvefv7o0aPmzZvjkZPYL/zxxx+nTp3ymOmtW7fW
r1+/aNGic+fOJTpccPDgwWnTpmm8SOAAiMr169fHjx9frFgxPVWzDwspQjjL
lClDb5onuZIM8+fPL1iwYFhY2MCBA7t06VKpUqWVK1cmY3kEgpQA0QuBBeLi
4qZPn753714Rif9N/Pbbb1iGyMjIjh075siR47vvvnOQiIUU3blzZ8yYMVeu
XHGjsE5AkebNm5c1a9bUqVOnS5cuJCTk008/lSkqwf84RC8EAkGiwFDMmjXL
MTdIyVATT/v378fuCQEWCBREL15oPH/+fM2aNZMTsH79+j/++CO5S5RS8ODB
g4kTJ/bt27dp06bff/+9t3fmzJkzadIkWu/gwYMvsfz/8ssv165d8ycFC25w
/fr1n3/+2Z/EzXAg2H/99df58+f/9a9/+ZqXZgO9vfD7779fvXrV12QFgpQA
x7qfqF4EAv+Duobh2rx586QErFy58tmzZ64kS7+XKVOmevXqYWFhY8eOjYuL
cyVZhR9//HHChAldu3aNjo427xxMyXj8+PGoUaNiY2PxWeXLl6fNPfr9H374
oUePHm3atClatCh/vKzLbGiHLl26+BnvW3ADqBdC4m1SwJsUoRGrVq0aNmxY
/fr1P/roI0MH+SrYvDB8+PANGzY4IHjKBlKGFStWkMjs2bNv3bqlfwFt5fmm
TZteUPaIOuzevfvFUmHaHM6JGOjbnL+fPn2ajKV64eCP7ieqFw5w48aNatWq
ffbZZ+ojRgDjvHDhQm2qIil17eHDhx9++OH06dOXLVtGEyWXdhP40Ai4oVq1
ahUrVgyD6Uqy6E6VKlW0pjbgyZMn2NVOXoC5Hjly5JYtWx49emT+7Z9//kmB
L168CKUpUKAAfepKge2APqJUiLTHYnfu3HnAgAELFiywKNK+ffu2b98en3Bi
Q+7cuRcvXmyd3fvvv9+7d+9EuQFvIrRNmjSpWLFiwYIFV69e7ayC/gNV+u23
3+zEyEha69atP//8cz9ztJ5T+PLLL0NDQ+/fv2947k2KKD8MGbNDFSIjI1EK
/Jf+h9aCbQAWhh4kIweDBgqIU7Nmzb755htkYM+ePeXKlTt48KD+BcxIeHg4
cuUsfW+4ffs2cl6nTp3atlG3bt3BgwcbmssCNPWYMWPy5MmTlCrsDBT1xIkT
ffr0yZ8/f5EiRWgWFK1s2bKICj2LBML9IJOOObyLrQ0XnTx5MrbIo43q3r07
Arlt27bkZTL+636ieuEr1q9fHxwcTILqI2SjUKFCM2fO1PvlAOmaHtglqA4m
a+7cudSLalatWpUwxGJNvjUuX748ZMiQ92yAEMmb98eKvvnmm0nDDejQCxcu
YJbp31SpUgUFBS1ZsgTtO3Xq1MmTJ/fu3UunUJjMmTMT2RnEGNKOLyDWIKAO
CQn5/fffXSmwTdy5c4cug7pkyJCBktOkR48ePZUARJ14k25Nnz59q1atvM0X
KMAxcGdU1uId+9wAIDyffPIJOvLqq68eOnTI54r5DRQnIiKiQoUKlCFbtmxv
vPHG0qVLvQ2585x64TT9X0FkzQ1If8aMGT179jQEp96kiGaErj9PQLMEGH7o
EzdAwps2bfrrr786rVz8zz//rNl/3NC7775bqVIlw0QJUoSz8HNqxoAvvvgC
24iXWWwbOMeSJUvi5mxmcebMmZw5cyIq/OFiyX0FYgOpjoqKUieTmHH16lXU
OUuWLISNiI32nH4ZMWLEuHHjDh8+DMMhknVcBhdbG4GnwLt27cKnYKAQP5zm
qX9w5MiRadOm5c2bFz6MuUiWgNQV3bejF/aBge3Xrx8paOfUffrpp9mzZzcb
0kDomgYaZP78+dglfShBgNy+fXt4o7PaEalBZqZOnYpfSJMmDfwW2dj/DwhU
Fy1aBPd45ZVXLJZsJSU30ICLTJcu3euvv27Ol/ZZvnw5KtmgQYOffvrJ8C1K
ijZR5WQRbxhC4cKF4QDol/lbbB2eEQVEEz3+HFEcNGgQPtS6u33iBgAfVLly
5aJFi969e9fO+y4iNjYWAdNWC0PnBg4ciCgi0h4Z78cff4xHdkXYEl2L+ODB
gxo1auzcudP8lYUU0cVEiOZJH/vcgF7APu/evdt2VRIH0QSk1JAm4kFogHFz
cTMv3gr5pBHs/+Trr7/mJza5wbNnz7B4OK+MGTMm8cSxAfPmzaMYHTp0MPNY
NU5I5IIYe5QuxS2xuvgRLeR0ANdbOy4urn79+hj8HTt2mL/F1FOp3Llznz59
2mGJ/YCLuq/Bo17YB6EBqkoEoZyyGtHyaEgDoWsaLl26BD9ZtmyZYZgR2cuX
Lx8s1DGbOn78OJ6URDyyGuScTPHC5vFVhWThBh999BECTKnM3j8+ocyrV6/G
BRO+6UfPeA7bgasn18FByMxrr73mjRvEJ/RmsWLF6Itz586Zv6UueKsuXbpY
DzX7yg2wTtgoYpwkXvmJhYSO7t27V/+QMnTq1Amr261bN0N5YMJvv/02Dt0V
XpcoN+AFTEf16tUNh1dbSxEOizTNbsumYJM4vKJx48b+DN5+9dVXeKUDBw5o
Tyhw2rRpN2zYYHjz/PnzJUqU8H+CRkOgucG2bdv69u1bqlQpqrNx40aHpYyP
h34TFvkjSHTQ2bNnzYMGKN3s2bOxTqGhoRZnr9FQmTNn1oecDuB6a9+4cSN/
/vyEJx59AVWuW7cuujl69Ghf3Q1UHz/ieImIK7pvXy9sAguQM2fOlStXqo8w
KwJSb4bUdV3TsGLFitSpU+MaDJPpFKN58+YeI2ibwADS3bS8N3N0+fJl5Nzb
IHwK5AbxCc1CQEoEqp/6efLkCbLdpk0bOnH9+vU+6ZQrSJQbAFhNunTpkDHz
nOCVK1cg7UuXLrXOxVduEBMTQ0Ml/VgK/AfyZjZTOFaiwuDgYIPz3bNnT/Hi
xd1a9GtnD2NsbCw5ErDoH1pIkfLsdLFZtGwKNvJcsWJFrKjvFfo/rFmzJleu
XFqxKdXEiRPh/6iq4U1sNRV57733HC9sMCCg3AAjA2O8cOFCzZo1MVkYLmeF
xK+NHTuWOM71xbpqAQ/SS197M00KfIv5evfdd/1peddbe9euXVgnxNujL3j2
7Bl2iZaPjIz0lRscO3asdu3ajkfvXdF9+3phE+vWrSOqoknVxx9++KFgwYJY
AKpJXoaedV3XNNCbWG+YquE54j1gwADHk8V//fVXu3bt6O6RI0d66244ZL9+
/bxNq6VMbhCfIE4oKSGGNsKDaBHu0aE3b94cN26cW3sr7MMON6BGZcqU4R3z
sN7mzZvxZYkO6PnEDRDUnj17JstiA6oDC0JbDcOqBC9QIPqXIFFfzq5du7Zo
0cKt1em00owZM2hPj2dsKpAXOXbq1Ekv/BZSxPtNmzaFq5sDB5uC/eGHH2Je
/NyCgcIS2Wnmnei1Vq1auCGP4cySJUuKFSuGWfMnRw2B4wZqBcjatWupRcuW
LTFZUVFRzgZLA8cNzpw5g2wEBQUdPXrU+k2Yf7169Yj4/MnO3damWaKjo2nY
ESNGeGzY77//vkCBAigm/MfXovrDDdzSfZ/0IlEgPDh6+lqt/sJEDB48mMbZ
uXMnak7UYA613NW1REEnwuJSp069atUqBz9X9FXVyNs758+fh19506MUyw3U
zG/atGmhcOrJ77//junGFWIWkmXPqR1ugCJ07twZDQ0LC9O7JNp/4MCBFSpU
oImsc/GJG/z666+VKlVCYh2vaHWM/fv3Z8qUCeJtYDvoTr58+eg4vQlCwOju
6dOn+z+4gTeH2zdp0gRaguLAxGjq3bt3m1PmCTkaGsdCijC5hQsXnjJlijkp
O4KtrA1Rm58HYqsrvfr374+Ybd++Ha5Cab2JDeEG7aCnYf4gcNwAAtmnTx9c
Kq2EbKMg3bt3dxaCBYgbIFdt27alYL169Up0WvnRo0ehoaHmWM8nuNvacXFx
0BXsqtoSZQBNTYtROxTH/qYSDf5wA7d03ye9SBRQCzQ6S5Ys1IuyDRo0CEdD
mh06dBg2bJhHh+iurhmAVJ87dy4mJgYmQLxDZemybt260WULFixwkKDHxQbQ
MwitNnlx//79b7/91lsKKZYbaLNjPXr00GwI3ha9cH1UxybscAPljyh28eLF
cUmUlliJvqCmKDVSl2isZM0NiEn5qn379lBxLCTmJVkWG8QnCDO0U7+EWwHz
lTVrVsQS4dQeHjlyhBj/008/tU7zxo0bEyZMIMSoWrVqFR34SJUdSCk5kq9h
ltCbFGF5eNnjrig7gv3w4UN4Wt++fb35LJoLh/Lqq6/SOF26dDEseYJRbNmy
RetHOAzZ7dixA65lYVRVdOA4BjcgQNwAtxsREaHkgXIi3ihIs2bNnAmtP9zg
5s2bxGLoDl7AwAwRlYwZMyK6ern1BkrO+35uCXS3tdHE/Pnz58mTx7xVCo+A
WmFyW7Zs6W3hmTX84QaJ6r67emEztQsXLgQHB69cuZLwCu+pXaSL0fbGDN3V
NQ1kunXrVswLpoMY58SJE3iQGTNmYHMge2nSpMGDOEjW42KDS5cujRw50uaK
yhTLDSh/69atqV2dOnVSyM1EdrhBfMKSA+LZbNmynTx5EkNUsGBBgqaBAwc2
aNDATnTvjRvwHMpKYLtu3Tp1aigS9dZbb9FErsTjroCCjRs3jiJhSfRLayCr
2Ack09sPlflKn4CSJUtiokkEIalYsSISFRISQrzgYOMqOcKdFi1aZJHv5s2b
r1y5ogZ2yM5jJGJHsLEwuXPn9jaNvmfPHkqCYOTNmxfDRe2gvvp9jpgFetbX
flSTyASDrkzWBIgb7Ny5E6nQyBjdQfWrV6/u8SSTROGYG0De0Ed8KH9g9PQD
F7iG8PDwJLY27rb2xx9/jO4Yys/fPK9WrVqFChU2bdrkOKryhxtY6767emE/
NRyu/mQDO3BX1xRw3P369cOq6+MXivfhhx8uXbq0UKFCmTJl0i+/tAltsYGe
yTx+/BiZtzCGBqRYboAYd+jQgdp5M9dJD5vcAB1Mly4dkkkEitPBKg4YMGD5
8uU2bY43bkBUGxQUNHHiRK2v1bAYGR0+fNg6wQ8++IBip/IFuDk7AZQBGDq6
FV6kLxIFhqwi597MILr23nvvoQUzZ85UCwBoKzh/hgwZDCsJHZQHvbOg+vv3
7ye+IHyAd1Fyb2poR7CJj+ggmIb5K0LUMmXKjBkzRi19p2epF7KkTVhTX5rI
QUyHmnTq1Kly5cr+HKegIRDc4MGDB1gk/SytHfW3gGNusGHDBrKOT5h5J77W
D1xQ/iJFiiD2pJxk1/e42NqUGSGn/JUqVdKOtenVq1dYWBhy27JlS+TNn/13
jrmBte67qxf2U1PTfwRWPmmNu7oWnzD61Ldv38yZM5u3YVLIFi1aoCb58uVz
cEqYGuJAHvi/UaNGDRs2RAywTsRcX331lc1EUjI3UEze1x4MHGxyg40bN6ZN
m5YeR/cd5OKRG5B1mQToe0qdbKAmL6zThDGePXv2pC+4ePGit/Wr3qAOFcyY
MaNhJQ8V6dmzZ9myZT3aFrXZEBoAT9b/ikCDcKNPnz7+TCuTI/l27drVW8RE
y8yfP3/w4ME4BQsdtCPYO3bsQPvM56dhk4cOHUqcYoh9oI4dO3ZUxy/v3bt3
4cKFDgZ/1KEZiKX90y3oWRgmvzJvA3SdG+Aa4KVr1qzRZwRvhNAS2Tlb1uWM
G+AX+InSlJiYGDRUP9qm9iRilLZu3eqgSN6g3FN0dPSwYcPMlXWxtQk/3377
bUyTRy6N3ObMmbNevXqOVyU55gYWuu+uXviUGpYNbjBt2jSfeKC7uhafMMKM
yPXo0cNM2x49elSjRg3rHYgWwK0T8uTKlYuA5dq1a5BhTHpERET58uXtE/IU
yw3oPogTjdOgQYOk35LgETa5wfLly1OnTp09e3Zn5zCYuYG2hsGwAvnbb78l
l3feeScl3GmljpDFOepPI1dQNM/bZvDY2NiCBQs2bdrUoALYTMINgjtfKYoe
ij61adPGzzUqdgSb6kPLzSdfoZh4JbMMUy+eIyTPnz8n6DOv3LADFTDiZ+2f
LU9d5syZg3c2r1d3nRsgok2aNNmzZ89RHXDNOOJEDw6iamfOnNm+ffu2/wbu
u23btggGZsTwFS+fOnXKI2dAR2CbpElHIGz4ygsXLmjfKotEkSyWZjkASnHl
ypV27dohyeYOcrG1sf8EmPnz5/coRdoWhs6dO1vbClKGXWwzYdKkSaVKlaLj
zF/t37/fYkTUQvfd1YuAapmCu7r24MEDupKYyKM3UYvM6TJnm9PV0V6GddFo
EyzF/vBRiuUG6tAq6+2ZSQw73EAFNRTb8dCTmRuouQPicUNMumrVqjRp0qSQ
xQb4RDV8Z+4spBHv7HH8Rx0pgDBs2bLF8JUaN2jfvr0/bl01HfTJzwPN7Ag2
0TFc3TxYhFHytlICi4E7O3fuHJ3obHiE1h49enTu3Llv3rxp/1d0EzGFefun
u9xATRXhx7v9N8LCwhDmTJkyWR+GT6wHGfZ43YBadFerVi3Dc17G+llP3tHa
cIDWrVvrZ43VSa0ka8fs44g3btxo0yjhi1u1atW4cWOz23KxtXfs2IES1atX
z9stYIgZL+DXLAbH1DR3/fr1zQ2uvFhISIj5K5RLz7IMsNB9d/UioFqm4K6u
7dy5E1dSvHhxj6MQV69e5VcIqoO9MN5ONsB9aJv+7CDFcgMaE26PAbF5iH0S
wA43wAJgB+iXwYMHKzm0Hlc0w8wN1PhAkSJF9GZE7QWDkXo7ojkpQQlhuRhY
jyxFzdOVL1/evG4EM4499xhVEZIgJOPGjfOH+ZBjxYoVCZeSYNyA6mfNmtWn
hUOYenWUuvUVGxZA95GrwoUL23cx6iD6atWqmZcCur46DltqZmVETG+88Qa+
2EwI7cCffQrI0oQJE8h6/fr1+udqQ26BAgUS5QaksHDhQos94wbcu3cP+z9+
/HizGLvV2mpOH5szatQob4xlw4YNadOmxd1YX/jiDY7nFCx03wL+60UgUnNR
17Qugzh5HBddu3YtUhoeHu5gTBivWrp0afPR2Q8fPvRpOXfK5AZqDpqguFGj
RinnFlQ73OD8+fO5EqANTlqPK5ph5gbqpEHD3Ao8HDZeokQJNYdoMfCuTgnO
ly9fDl9A75w4ccJOs1y/fp2y7dq1S2/9Tp06pbWAOuCLoprXFPEEy2meU1OL
hQwbIR0AwS5VqpTFvkKbsCPYe/fuDQoKsu814hMGQmmZqKgox7eZU68+ffr4
tK5PrdLv37+/uU1c5Ab4EayixyhVHR7ueOO2P9xAzTEhiipYw/AqZ0okWLBg
QTv3I1DTQYMGWRynbMDhw4fRpj179pi/cqu11XZvb4sN4hM8FNpEg5sP5rUJ
f9YbeNN9C/ivF4FIzUVdo0e6dOlCj0ycONFMGrHzLVu2xPpZLzL3BrXYwNs1
Cj6lkwK5AfE14oROOT4PMxBIlBvgoLt37546depJkybphcFiXNEMMzfA6cAN
DGfFqMGE1q1bkymWip9YHGlC/+7evXunbWBkDh06ZEeV6MEOHToYTJ9agaa5
dWo0c+bMnDlzmmMW1aQQJ0Ncj1TDz8PCwvzcLqQOaTRcuuoAdgRb9YhPByYj
55h6Z/uXFYjKES0zuaJfiHEiIiJwCjDDMWPGaAOhZ8+epZxdu3aNjIzk227d
ummU1cVIds6cOatXr/bY7NpSIkrlYLrQH26gVEnZakSLAmjUmvCWYMT6/nQU
WR0qYnjurbXVSiHs2NChQ2ntjh07TpkyRRNpt1obZcmbN6+3xQbx/9x9icl1
fPWAY25gofsW8F8vApGai7qmYh88hXabgx5QgsyZM5Ogfsxty5YtMECtC+Ba
JOvxMlO12KBevXp+htUpkBuQSNOmTTNlyuTNtjgDJmXbtm1wfsdnKuLIihQp
4o0b4N3QAupFlxk6xWJc0QwzN7h8+XJwcLD+CXmNGjVKo51IIL446VdlEIMg
8+ZZYxoKd6+3VNu3b0dHzEaVhqpfv77hmGI0YuDAgUWLFvXz8OH4hMPByNfj
SXE+wY5g08vFihWzGNc1A1EkWX/WR/3++++kYDjY/9KlS2+99daSJUsoCZ4I
AqnfYL5ixYq0adOOGDGCNlfX1GpL1NzyVidOnIAxehvAVGvX1QmEDvy7Y27A
D/HRcAN1QdiFCxcmT56stdupU6dwYRUqVPAW4dJEKPjmzZsNWmzR2vzknXfe
USf/8CvMbMWKFbXpDLdaW60l8LbYAOtBpXBD+C/Hy3r9Od/Am+5bwH+9CERq
7uoaPI1emzFjhkGcHj58WKNGjcqVK+s3lWASw8PD9bRk48aNiKt5mEtbbOCT
IfKIpOcGNMWCBQuQVfNmkCdPnqxZswanULBgQcMYtb7AGBZcEu1My+MTbYaW
ynSry82dbXygxxX9VrukNdDp+KBmzZpBG6Kjo82JW4wrmmHmBshS+/bta9as
qUYGeE7FianJjihVBekor4Ma+QN1D6O34xEMp0PHxsYS2ixfvtyczqZNmwoX
LqxNQKB36Au8UbsDxR9AL/Ply+c/x7Aj2HQT4XDLli3tTxHijyzuOrGDGzdu
FChQQH+BF0LSIAHKjKgZTwqvhsG1W+/VunG1vArGqzQRA166dOnTp0/fsw14
cpkyZTRvhfR+/vnnKFqXLl28rf+kfYigEZKGDRs60ETH3EDtQVPr8SgDXF0f
dlFyvParr75K05kHY6Hf3bt3Ny9BtG5tFRRo24vUyli8g/qt/60dnzDioc6g
hvYYygZ1nzNnTlBQEJWaPXu2P2LmDzew0H1v8F8vApGau7r266+/YtJDQkL0
Ozj4IYYd+mcYZlFLCDRBUsMO8Ezz7g9EF8fqz/WUGpKSG1BxWDS8XfMgmTJl
woyULFmyRIkSyA/0kp8jxh5X+KO8MAecjvIjGPz8+fPbNy+8Rk9ly5atVq1a
Pu3zVdfEwAq0YtPyhQoVKpkA/qDY1CIiIsLj2V/W44oe3/d4vgGMFF8cExND
TE3wglhSHXjOpEmTSD8QF4tb48MPP0yXLp03bkDB9C5S3X6oXZWuB9XEg9ep
U2fevHnoXWhoKGLvyiWbSoM0zfUHNknvtGnTtBUgdrBu3Tp4sj+DY1BoyI9+
5506+3f+/PkqWbUZSltxoSZAaRb1UUUZGBNVZtJBDX05Iuv/A1OmBgB3796N
OmjPzbcZ4q1gueiC9g5uC1/p01GE/swp4CawsVOnTuXnCLCh5fl45MiR8uXL
Z8mSpVevXjDwnTt3olyoXqdOnTze6mXd2gQFGAdtmPHWrVtEPd26dVMf/Wzt
Q4cOQaE1HaQlkT1llPgD2wgr4OUxY8b4r03+cAML3fcG//UiEKm5q2vx/wxo
1KhRAwN48ODBmTNnQvyw/OaRK9w0WqOtLVQkE0HSmpTEYQ5QF3yTkgciR2Sg
WrVqzrbSxyfTnIIzQLBz5coFc1AdoTi5r1OWNCYG3P7hFf7DelzRDG/nIlJN
iCuNoHk6nly5cgWGmRL2MFpDLS7F6j548MDjC7D68+fPnzx50sFFMN6ANKKq
ft4aryVlR7CpQuHChdWQdaJAFPv372++r9M+EAB8nH69Lk/QCAiwtvUJUxYc
HIx5VB/V9h9skfpId2COSMGVRV9JAz/vWsKunjhxwsLN0S+8AIEn2CSXZcuW
WZzsZN3aeA28iTaavW/fPuVKHBQ7eeEPN0hU9w3wXy8CkVqAdA3vAHXErZP4
qlWrvK3KoAH1awtx96Ts01CMA7wo3AA7AB+jQTQWZPP6HgPo2YkTJyblQYvW
44pm+HQP4wsEBJuIxs8zkH0CskFg5cqspU3BRtMJDWxe8o6tqF+/PnTCcakU
z9QvslLD5vqrJzE4qAm5HE8AdozQVdv3il3KmjWrx3OeUyzU8rbx48cn+7En
1q199OjR6dOna1v7EQksWFJe8usizpw507JlS/u7MwzwSff914tApJaMuqYG
HPT3jxBaZs+e/dSpU19//bWz03ft4EXhBsqlajeJqDsCaHlfFe3ChQuzZ89O
SrdrPa5oxsvKDbDk2PPw8HAXbyqxALmQV1RUlCvNaF+wibCwIXbWu6LUDRo0
8IemxsTE1KxZ07BzfMOGDSVKlFDLoQl4K1euXLp06bt37xIIx8bGYiqpiLLS
9+/fDwkJITpOCedq+gR0JNmJgYJ1a+/du5cnaoh43759hQoVcvdM5qSEn6cG
2dd9//UiEKklo66pyxFq1KihxlTv3LlTqVIl8uUPyOeVK1f8rJo3vCjcQB2M
r60R/fPPP0NDQ+vVqweVgsvZHOziV5MmTXL3WNRE4eu44svKDeITuHft2rX3
79+fBHkhhOiy4wPkDbAv2MjnkCFDhg0bZt199PKcOXPoZceHMmF56tata94y
ExcX179//86dO48dO5a4ZtOmTSgORVqwYAF5kS/Gqnnz5jNmzAgLC6MMbq34
+t+EdWvjCkeNGtWzZ8+JEye2atUqcCFeyodN3fdfLwKRWvLq2vHjx7NkyZI7
d24iyqlTp0ZGRsJJyGjw4MFz584N3EqzF4UbqA3IQDUF3RQUFES/wNlgpDZD
0e3bt5tP+w8o1EJEn8YVX2JuEJ/gslu0aOFs4tI+SB+VtDnvbwc+CTbaRB0P
HTpk8Q6S0KtXL4tlJ9ZANhCSqKgob5YBa0b8ohZaPH361LAm8NmzZyjOSylg
yQLr1kYand04+ZLBju77qReBSC15dU3RG6LL2NjYO3fukJHyX9ASMgroSjPX
uYFa/QXVuXjxorvG57vvvmvYsGF0dDTEaebMmVC16tWrQ9KOHj1qM4XffvvN
FTrqE+yPKyJFJ0+epDpdunRxtvU75QPBXrlyZURERODuzyJlJMTjzQ6O4atg
nz9/vk2bNqiztxfgurNnz3a2JhaDsGXLlj59+ri4blMgCDTs6L4/ehGI1JJd
1yAkYWFhzm5jdAa66fLly8eOHVu0aFHZsmXd4gY4X+K1PAlo3bq1s/M5LYBN
JuLWzlSBsPm0+ylZYH9c8dKlS2+88UauXLloPZhqCplRdR3Ua8eOHc6OA7WD
I0eObNu2zd3WcyDY6Nfy5csDMeIHz5w3b54QA8ELh0DrvutIdl3DNb/++uv+
H2RkH3FxceHh4erk//r16/t0EYbAAWRcUSAQCAQ+gVgYB52i7g4QCAQCgUAg
EAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgE
AoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFA
IBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgELyv++OOP
//znP8ldCoEgETx//vzvv/9O7lL4jH//+9/6j+ia4YlAIBCkHEAJFi9e3LZt
2/Dw8DfffJP/r1696msip06dKl68+ObNmw3PMYAxMTElS5a8ePGiS+UV/I8C
SrBkyZKhQ4eOHTs2LCysWbNmSJ2viSSXoD579owCV6hQoXv37hEREe+88061
atUuXboUiLwEAoHATxC5LFiwYOPGjSqEefjwYf369bGQ165d8ymd77//fvTo
0Tdu3DB/dfDgwWnTpj158sSdEgv+J4HvnjVrVpcuXR4/fhyfQGghsYUKFfru
u+98Sie5BDUuLg5ukDFjxlSpUmXJkqVTp06xsbGByEggEAg0EOn/9ttvDn54
7969KlWqzJkz51//+pd6snPnzvTp048cOVKxBZ6fP3/+zz//dLO4Jvzyyy++
shGfcP369Z9//jlw6QtswrGgIocQA7zqsWPH4hM47dixY1955ZVt27ZpL6Rk
QYUbREVF/fTTT0k5G/L77787GAMUCAQvAYinPvzww8GDB2N8HPz8zp07RYoU
qV69+qNHj9STM2fOZMuWLSwsTLEFlf6wYcOePn3qZrl1IIDC7PsaAPoEosWu
XbteuXIlcFko0Fzksnz58unTp9NuDx8+dDd9OuX27ds3b97866+/9M+fPXuW
wiev/RRU8ODBg7NnzyrfSjt07tw5d+7cFy5c0KefYgVV4waul8oCSMXw4cM3
bdqUBOuIEHXaH7FftmwZTSQrlwSCQIDwB85vR78+++yzNm3a+BMUY6/IS/v4
ySefZMiQYdSoUZqvwRqj8qNHjzb4I4Xjx4+PHDnynXfe2blzp77AWPKJEyf2
7du3adOmuGZvuf/444+tW7f+/PPPHZcfbNmypW7duloj3L9/HyYAydG/8+WX
X4aGhvKVPxlZg8R79OjRu3fvtWvX0ozR0dElSpSYOXOm/8EsfGDy5MllypTJ
mzdvSEhIw4YNa9WqRfoqBr906RJcjgZ3oxK+ISkFVY+jR4/SFDNmzNCH4SlZ
UBU3OHbs2JQpU0aMGIG/dsyRNNgRe1x2eHj4vn37/MzLAsjA7NmzUa65c+fu
2bNnwYIFVatWRSDv3bunXvj1119Rihw5clSrVk0zNfRR//7933vvPW3EUgOW
Z9u2bf369XsvMdBrUBGP3S0QvGQ4ffo0NqpChQrFihXLnj17gwYNcGrebO+N
Gzdq1qyJ0XMrdwINDGDhwoUNwdGjR49atWq1YcMGw/u3bt16//338VCdOnXC
6mpK+vjxY9gFcRaGq3z58pMmTfJYhT/++AOjwbf+xLxkivV7++23tYBx48aN
OXPm/Oabb/SvkQWupGfPns+fP3eclwVoIupi6Ivz58+XKlVq3LhxjkeSaUl+
njlz5pYtW37xxRdaOvzx0Ucf0exUE5Pbvn37JLaQySKo+JEVK1aQLznOnz/f
3KopVlDRrLZt20IPyAgJ5I9GjRrBN5ylFm9b7MHJkydr164doDk7GoSOmDVr
lt7F0wsIZJ06dTTeAj146623unXrpr129erVfPnyffDBBx4bnNJCD+isVKlS
0ddwj7179+5PADwHZjV16tRKlSrxbePGjQOk0QJBCoEaFEUdNC1GfapUqZIu
XboxY8aYY09FvAcOHGgm3s6Ami9cuLBgwYIegyNUknDgzp07+odbt249cODA
3bt3CZBxYZrl5OXt27fzBxwjd+7cixcv9pjjxx9/TBTsj4WMTxj3KF26NLGY
yh1/QUBRsWJF83g+EWKNGjUIG/3JziPou6VLl5K4eeU8cQ3GzZlbpPXefPPN
PHny0Jhmr0Sma9euJXEs5Lx58xwW3XekBEGFh7zxxhska55BSJmCSqPdvn1b
IzOUpHjx4sOHD3dMGu2LPV8NGTKEMDwQ7PHSpUv4aITc0Lm0J65fa+oLFy4E
BwfzmvqWhxAtWuD69eveUuYd6ByyTbQCNzO/AN0KDQ2F7b+IG1oFAvvAwIaF
hRkGvdGdokWLpk+f3rzr6sSJEyVLljSHCc6A7SIOLVu27JEjRzy+EBcXR7wW
HR1tdlJ4KAIWw2CmwpYtW3LkyEHkYv6K4IKoh4jDz6lJ3ARZ7NixQ30kNsRP
6SMUDWQ0d+7c6tWru74MAIdIXI8dmzhxoqE6dGuuXLmw275asK+//hqeVqRI
EY+tp0A4Vrly5SxZstAIzkruAMkrqBpiYmJgI9OmTTMIZIoVVD3waw0aNMC5
O16BYF/s4xPGryBFfs7cecSKFStSp04NK9YWLCngzZs3b/76668rQrVhwwZK
q7X8t99+i2AvWrTIoklVE6FTM2fO9PYaKfg56igQpHCoLVpEAQaGjEMZNGgQ
CtKoUSP9BCXPIyIiYNRujacdPny4WbNmaioBT/fDDz+Y9XHlypWQB4NTUBu3
mzRpYp4/VYUvV66cx1nmPXv2EDj4v44ad0+EosWwFy9exP4vX77c48uxsbFk
ShjoZ6YG0FYY3g8++OCXX34xfPXgwQMiXMJ/nwjJ999/X6pUqaCgoEOHDlm8
Rgv37dsXC5xki9ySS1ARM/yLflgGypE1a1a8ktrVqEdKE1ScF7LRqlUrrZto
vcaNGxcoUOD27dvO0vRJ7Gn8Nm3aeJzc9xOUf+rUqWfPnjU8p0kHDBjw6quv
IsBKBipUqKC04+7duyEhIUOHDrVeh4MJghtnzpzZgtKsWrVq9erVrlREIEiZ
QGc7duyIaW3YsKFhhzXxEcycoExb2xOfsL8Ae7VkyRJXcidE7dWrlzYMe/ny
5enTp5vjXJgD2rpp0yb9Q2KB4OBgCkkMi03Wj1titDHdXbp0MVsknnTt2rVF
ixZ+ugyya9eunX6fxfr167Nnz44ToVJffPGF4X2yI9NOnToFerObBuwhTid3
7tw3b960+RPqghggDO+//751TISnnjx5cocOHZJssUFyCeqRI0dwNPrpdfoX
blCvXj3ztEJKE1TyCgsLe+uttzQVo4sR2qpVq+qXAfuUoE9iD+iCYsWK4XAd
18InILeRkZHIA+6bQlarVk2NaaAFMLRhw4ZB1axT+PTTTzNkyFCiRAlv64cR
/mXLlgV0maVAkOzQwq66desa4qC1a9emSZMGW6efQt21a1eePHnMdN0BsCcV
K1Ykphg1alRUVFS/fv1q167t0ZjjC+rUqdO9e3e9CV28eDFlu3HjBsH4xo0b
9aMNV65cwScuXbrUnNSPP/5ItAsD8XOclkCMdLTgkSaqVKkS9oQ/SNy8aZHs
eI6R1PsvF0FM+tlnn9Em27dvVxsHyAh3mSNHDhiXnRQo4YoVK9KlS1eqVCnD
pLkZat52/vz5SbZlLLkEFZ+C7B08eFB9VP2YPn16MjXXPQUK6tatW/VF/fLL
L4n6zfMvNuGr2AO6IFeuXNpxEO4COTx37hy8CyaAnFNNWh4ygJwsWLCAJ2Q9
b968NWvWQCl37NiR6CyAttggNDRUT+OvX7++ZcsW7edUKlm25wgESQmINJzf
EEegZePHj0dH9CEGqjFixIhER5Ix459//jm+ntiqyn8DGj9lyhT0F05OOqn+
G9D1PXv2eEywb9++lStXJvLSHp44caJ8+fLR0dE4KcNoLaYPn3j69GlzUoSB
fEVo4K3kWIA333wzbdq02PNZs2YZRrCxNmpdxPHjx7NkyYJhxxBNnTqVUGXD
hg1ly5YdPHjw3LlzPUbTZErWrs+90jtjxoyhbWlYLP/+/fsJjmjGb775hoAu
b968NkM2nNEbb7xBL4wdOzZRE4p4HDt2zP6IhCtIFkGNT+hrGOyiRYuIixEJ
CJ63Lk6Bgvr8+fOZM2eOGzfu8OHDCxcupGpQEcMwRUDFXtEJyL+7s/OUGdpD
dWjw3bt308iQkxkzZvzyyy/0JlwRRgQZQP579+4NYU50uEDB42IDRZvJzsXy
CwQvKDCzISEh6AgWUtMRtfIN3bFQNDxRkyZN1A4gAgriUP7GyimTW7t2bbTM
gZWA/AcHBxt2OFJIs/HHaAwcOFCbZDSA3CmMx/PkqR0OBatCVJg/f37sJH/r
Vxxh+iZPnqzCkzlz5hB/xcbGEjHdvXtXvYPlpzzeAj0ypU1wMb7W3QJXr14l
cGvWrJl+KTu9QzmxkzQ+XsljO5ixbt063s+WLZtHV5VikTSCStfjfYj6Dx48
qPf7ZqQoQVUfaRZYHJE7hTdPJQRa7JW3pald3PH39OlTGF3hwoX1TFttY4H5
FCpUKFOmTAcOHHCQssfFBvRCnTp1bI6/CQQvN6DcRPFYXf0qKawinqhjx47e
VhZdv369XLlyWNpDhw4pW4FClSxZksDBz7F04pqgoCCLoPv27dtECo8ePcJM
UQZiZzMD4cnIkSMxHeYxc0q7atUqyokJVbUjKeJxgkRtMRiRODaTb9U0rn4O
2g7IFGvmYgCFHSNkq1ixorlt9+zZw1c4uzZt2thZEqCO++P9t956y9r3pTSI
oFoIaqKlTQKx54edOnUyjKX4gz/++KNv37647927dxu+un//fosWLV555RUI
jMerKxKFWmwAUaxVq1ajRo3q16+PHvERAXO2QkMgeJlAEEo4g8UwrJFG9YoX
L06w43Fb3JMnT5o2bYr7046TVSCSIiTxc4n+/v37s2bN+tFHH3n8lvJERkZC
+LFjFI84xaOF57WePXui7OZl4Vhs7J5hwhSzhp1csGCBmsecOHGiiqnVXLD+
CEc7IFOy7tq1q80125SWRouOjsZ9mOcFiMLCw8NpWI9DnSdPnsRDWe/D0kPt
SeR9+8VLCRBBVfAmqIkiCcReLRR57bXX7t69a/N9C7EHq1evxvv36NHDTHoh
NjVq1ECMfSUwCuqyDLXelTa5du3ad999R4eS5oABA+Q0A0EKR1xcHFR/woQJ
4+1hypQp586ds5/+s2fPunXrVqRIEfOvsCSYNe3YEwMoFTprXp+2efNmiLd2
/IgzEIhlyZKFgMvbC+jyuHHjUOHly5d7u9IOQ4c/JaI0b+tbv379mjVrzG6U
AJM0aXO8z+jRo9U8LCaLgMLXrf3K/xLI23S+6oqEdu3aET/eunXL8O2+ffsy
Zcqk7eM24MiRIwRW2bJl87in3gzsNj2OVfS2+A07uTIBWOb1CaC5PvnkE4tt
F6Rz+PBhQk6bgopIb9++3T4zEUHVw6OgJookEHu6ICoqKm/evGYZ9ghrsX/w
4EG5cuUI7ZE982/VeBFiPHXqVAdrOJEotU9HrwVqJsXx6k2BIMmAvuARUqdO
ncoeMIPQA5uJY5Sw0mXKlDl//rz5W4wDOu4xcFCMvWjRomZ1JhxLmzbtxo0b
fa/r/+HYsWOYXD/3FBNo4Jo9DpvzxKOb4yH1pVJLly613vKfKNQpMfqDcxMF
NrlVq1aNGzc2zJvTTb1796Zz3333XY/OlNIiIURPNm/+vXPnDqaYn8TExHh8
gRB75syZw4cPJ04n34wZM3bt2hWDacENqCbBXZo0aWwKKrkTR9scuRVBNcCZ
oCaB2NMFsAuf9tJ6E/v4f25rLV68uMdRCHXeV/bs2Z3tT1GLDV599VX9OWx/
//335MmTk+C6NIEgxQItXrx4cfXq1b3d8K5mzAcPHmw2uSgjUar5dH1sePfu
3bNmzfrVV1/5UzYMVFBQ0JYtW/xJRE192l+eF//Pse179+7FVPo54UimFStW
7Ny5s/3Q+N69e5hBnKAhCFJDELhdjz4Iwx4WFgYntIheDfj5558Jx/DOK1as
sHiN1oiOjrY4TjZpIIJqhouC6m5qJDVs2DC6I9GNsRq8ib1ahqFW0XikNAh8
unTpwsPDnQnn7t271ckG+okedei0XKsk+J8FKrB169YmTZro5/jgzBB1zTio
o/Y8HiS+Y8cOnJF5dlvNUVatWlXd3OcYH3/8MSbX25Yum1BnplmcauIR69ev
j4yMxAv7udOcpihVqlTfvn3tT1wePnw4R44c5n2dagqABjlx4oT5V8Q4+fLl
gzzY9yyKTmB1J0yYYFHN58+fE83xmrerapIAIqje4JagupsadenTp49PR2h6
E3soU5cuXTyeEB6fMCPQsmXLLFmy8HMH5dQWGxhONhAI/sdx5MiRdu3aGU5S
JT4dMmSINrD59OnTt99+u3nz5mbd+eijj9KnT2++hw4mnzFjxlWrVvlZvJiY
mOzZs/t5Nj72BKeQM2dOiytxzVi3bh3xvk8/8YgbN27kzp3b7JW+/PJLvBh2
uF+/foTtuF2120sds4ORHDp0KN927NhxypQp6iu1ZzxXrlzmxdiYYmKrTJky
6d0TYRT2ecSIEZqv/Oyzz3iiP4seX4DT9Hjcn74KaoeXt8svkgAiqN7glqC6
mxoRd6tWrcyLA5HhYcOGRUREqLMjxowZoyYdLMRe3euUOnXqlStXmjOCEiCZ
JOgsxtcWG9jkvehCtWrV0COtmpMmTVq4cKEaqjp58iSqhKTpTwtBaCGf2lUU
AkHKx7fffovSGZZMI9JIfu/evTUDC29/9913PU6DkgLqbDjhjfC2QoUK7du3
9/PKeHVYmSuHCm7fvh3T7fFwV29YsmQJBsr/UOL48eNkrW7fU8AErVmzhiai
9eITTtzNnz8/BkpNs+LQ33nnHXUADm8S2GKr8eDxCWF+hw4dPPqgo0eP8hxH
qbeQaiJ1xowZyujxFT83mGuCbp5kyJDB2xF26kaDNGnS+BrPuggRVAu4Jaju
poZcValSxbAw5tKlS/QOWdBi+P3WrVtrhzlYiH18wt1JMFhNkjU8fPiwRo0a
lStXdtzy2skGNtucIgUHB2sKeOvWrUKFCumZP+nQg/ptRMuWLfN4mbVAkDJx
/fr1MmXKeFshBnvXT9oi3nnz5jVHE2h0t27dmjVrprmbBw8etGzZEq23P7Lt
DWpplv+XIMQn3HlE+b1dDWMGmk4coZkmf7B69ep8+fLpT8U5ffo0sf/s2bOV
PVHTrARQqsHVR22xvVrK2LlzZ/VbxTTwRPph87Nnz+KY+vTpY1jEtXv3boyt
FuyrYQfzznrKxvPcuXN//PHHhq/oAhotNDSU9L3N9gYaIqgWcFFQ3U2N+LpA
gQJ6Mvb48eMGCVBdoIgcsq1mc6zFHrJXs2bNkJAQ/Q4O3gkLCytXrpzjUQ7q
u27dOlgH9MDOfgqUrl+/fvqNJDAZ9FFbt6l2N+TJk0dbEgNHql27NhVJxoU6
AoF9aIfeeIPhZvkzZ87gOzwOi6Gh6AtKSiw8adIkdH/+/PmuHIam5oJduaz2
yZMndevW7dmzp80FgTjB/v37q7jeH6jhUM0exv9zvi5xxMWLF9UTwzG5hw8f
xtpoe7UwWRgu/Jr6SFNs3rwZ90FdcOW8NmDAgJIlS9JfBuOjJlL1K6wUr/B4
MAIRNNFi2rRpMb+QFpKlr/l5w4YNp0yZQuthQmNiYpJ+sYEIqjXcElTXU9u1
axeUWJ8UEp4xY0ZtD6naeKitw7EW+/iEzQiwhRo1akC2Dx48SKgOY+zdu7ez
sSwEHgEgR02QgoKCChcu3KNHD4vJNRx91apVtd5BxaD0RYsW1XZPwBLDw8Mh
A2qjEDVdsGBBkSJFDEdqCAQvDeLi4ho3bhwREeFtQR1a8/XXX1+6dMnFI3QO
HDiAtroyFoeSzp07t3z58javSkHZCQP9HyImJsUA6r2GCojq1KmjWQ8iNcyg
tsQO44lRJVhWH/ft26csqj7Zn376iYhs4MCBuG8Ygsd1dGoilbhYBfuqBTzG
1BooA8lGRkbCZ8aNG7d3714HJ8kkL0RQ/YFbqeE0hwwZ0qhRI01+lBvNli2b
ts0Q2hAcHAznVB/tiD3sF/IwYsQIEl+1apVbSyzsQ91MrS17QNggGK1atdJo
Ob0GY9HGsvbs2fPaa6/5uUJVIEjhgK6XK1cuyWacse2EMO3bt3drLO7atWvE
1zaPv8MthoaG+jkNHZ8QKxFRahYv/p9jErV5WBw3GdWrV+/Ro0dr167F6U+f
Pl2bMecdAitnd93evHkTyqFtQFDX7NasWRMisX79evurx184iKA6hlupqdUC
+r206phE/ZIMnHuOHDnOnz9//Pjxo0ePuiX2AQVMJnv27HBL9VGtVZg0aRJK
vWbNGorNV1Rq69atKN3u3bsrV668Y8eO5NraIxAkDVBbXJjHpcKBQGxsLBbe
2b4kj4DJjx8/Pjw8PNFhZBXjjB492s8bENT5xlFRUfoYFjLQKQFq0SBxUFBQ
EM7l1q1bFI+fYJ8xKcq1ET0VKlTI2U1w6oh4DJcyTXzMmjVrr169iA3HjRtn
8366FxEiqI7zdSu1mJgYWKhhIceGDRtKlCihpvVv376NkJcuXRppnDJlCm3o
ltgHDmp+EG09efJkfIIiDx48+JVXXtm5c+dnn30G31YzCHny5Pn888+HDx8O
FTfcvSUQvKxAf+vUqZMEISdqOGLEiIEDB7p79gjhTO3atffv32/9GnFTq1at
/L96HouBhTSP0GIxGjZsGB0dHRkZOXPmzLFjx1avXn3IkCFET/EJjGLUqFE9
e/acOHEixfBpyboGZecxXFjj0QmYPHnyhAkTQkJCyMhFR5YyIYLqAG6l9uDB
g7p165oPNyZ9OHDnzp0R+EGDBm3atKls2bJII/6UiNsVsQ8o1GxglixZ6Jrp
06dThTVr1jRv3rxDhw7Dhg2jyxAGuDeEB9U7ffq0u5dTCwQpGRhAvAyqHej7
Rw4dOtS0aVO3ZlH1wF+3aNHCfJeNHnfu3CHwdHahmwaywG7gpDx+SwP+8MMP
+kN7DKcc83N/XJuaCW3duvWjR4+uXbumZUSyjx8/dpzsiwIRVAdwJTUa/P33
34+KivJGlhD1u3fvqrGsp0+fGoTcT7EPKC5cuBAcHLxy5cpff/0VnVLLeKgv
vS/HJwoEuLA+ffrA+QM3ifb999+3bdvW44H5/gMyj3ZHRERYDKrfunVr3rx5
/ug7iUdGRq5YsSK5YoebN28WKFDA5m2MLyVEUH2F/6nR1Fu2bKHZX0r+uXbt
Wv3JBgKBwAAUf/78+YGIleL/2VCvjkMJELC6O3bsCOi4+pEjR7Zt25aMg4qf
fPJJjhw5UuDAbFJCBDWJcf/+fdjFS0kM1GIDj8dqCQQCwYsCwrfWrVv7eUeA
QCBQ+PPPP+EG06ZNk1UEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKB
QCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQ
CAQCgUAgEAgEAoFAIBAIBIni/wFDG2Xj
     "], {{0, 109.}, {692., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{583.3333333333314, Automatic},
   ImageSizeRaw->{692., 109.},
   PlotRange->{{0, 692.}, {0, 109.}}]], "Input",ExpressionUUID->
  "f8c600fd-218d-40ac-8f85-58fe1c3fef47"],
 ", FieldNumber = 5 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804167332865*^9, 3.7468041675702257`*^9}, {3.74896583020805*^9, 
   3.748965831542252*^9}, {3.767539490536141*^9, 3.7675394905361757`*^9}, {
   3.7675398740057373`*^9, 3.767539874142686*^9}, 3.768069439738882*^9, {
   3.7680697802297287`*^9, 3.768069780230094*^9}, {3.768070010349584*^9, 
   3.768070010962525*^9}, {3.831821275827352*^9, 3.831821276169865*^9}, {
   3.8318233845284033`*^9, 
   3.8318233849194555`*^9}},ExpressionUUID->"c009505a-3461-4976-9a9b-\
517653f44de4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}},
 CellLabel->
  "In[269]:=",ExpressionUUID->"73bd0ee5-0ec4-41f9-ae8e-47952abb7fee"],

Cell[BoxData[
 RowBox[{"d", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.8318058850612555`*^9, 3.8318232057600164`*^9, {
   3.831823310356422*^9, 3.831823336761688*^9}, 3.831823396987137*^9, 
   3.8318281570274925`*^9, 3.831839788369858*^9, 3.8329475007532682`*^9, 
   3.8329617853397937`*^9, 3.8458268765516148`*^9, 3.8458524684681*^9, 
   3.845857078794394*^9, 3.8459196251082687`*^9, 3.846006577424219*^9, 
   3.846099888637495*^9, 3.8474704501583576`*^9, 3.851700635557892*^9, 
   3.8539754517134943`*^9, 3.8549774100713463`*^9, 3.854989264981119*^9, 
   3.8549999021086226`*^9, 3.85516525062612*^9, 3.8551823200604277`*^9, 
   3.8551858645328903`*^9, 3.85533064096685*^9, 3.8553398464396877`*^9, 
   3.855343183778493*^9, 3.855344017736355*^9, 3.8553527449762697`*^9, 
   3.855449609195436*^9, 3.8555076110434637`*^9, 3.855508407900558*^9, 
   3.855512895577567*^9, 3.855533326867475*^9, 3.855578921137771*^9, 
   3.855593293569517*^9, 3.855750606152768*^9},
 CellLabel->
  "Out[270]=",ExpressionUUID->"a5293170-1167-4aa2-94e3-ee4a55f5696f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"A", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"B", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"F", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"G", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "-", 
      RowBox[{"2", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"UD", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Fmn", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831823324862943*^9, 
   3.8318233251909447`*^9}},
 CellLabel->
  "In[271]:=",ExpressionUUID->"f88dad10-498f-44d2-92dd-65b45f1fcb5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[272]:=",ExpressionUUID->"4a2f4706-e15e-4313-8d49-8224568f9038"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.768089972563644*^9, 3.8312204968590865`*^9, 3.8312222440988665`*^9, 
   3.8318058851715117`*^9, {3.8318233106018105`*^9, 3.8318233369491444`*^9}, 
   3.8318233971121073`*^9, 3.8318281570881386`*^9, 3.831839788456631*^9, 
   3.832947500815754*^9, 3.8329617854293003`*^9, 3.845826876661001*^9, 
   3.845852468559103*^9, 3.845857078878812*^9, 3.845919625186384*^9, 
   3.8460065775136395`*^9, 3.8460998887312546`*^9, 3.8474704502521143`*^9, 
   3.85170063565162*^9, 3.853975451798238*^9, 3.854977410183967*^9, 
   3.854989265071928*^9, 3.8549999022023787`*^9, 3.8551652507355037`*^9, 
   3.855182320169812*^9, 3.85518586462706*^9, 3.8553306410605764`*^9, 
   3.8553398465646667`*^9, 3.8553431838565984`*^9, 3.8553440178248563`*^9, 
   3.85535274506776*^9, 3.855449609306295*^9, 3.855507611125492*^9, 
   3.855508407992371*^9, 3.85551289568257*^9, 3.855533326948702*^9, 
   3.8555789212158766`*^9, 3.8555932936481237`*^9, 3.855750606237522*^9},
 CellLabel->
  "Out[272]=",ExpressionUUID->"e2bb3409-45ff-4f22-bda0-61f58fd61902"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[273]:=",ExpressionUUID->"3984b89c-7289-49cd-91e2-a3ba9e851399"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdwFMfW74kCk0GIDCJnE0w0UeQsJECACIJLljE5mZxzNDnnnAyYVHAB
AwJsQ5GRTAEilMGYj1Rgl3Hde0vv99TvzptvZnZ2dnZWEnb/q+xCu7M93adP
n/M/3ae7C/UY1KZPimTJkg1Ly//a/GNUvaFD/zG6bRb+CBs4LLLvwN69mg0c
3rtv76HVe6Tkw/78V4Z//N9/x0lISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISDiN2NjY
JUuWREREDB069OzZs//5z380D9y8eXPbtm3/+te/EqV6rvDu3bs9e/Z88cUX
PXv23LRp02+//aZ54PXr16tXr37+/HmiVE9CQkJCQkJCwhDv37+fOHFi4cKF
g4OD27dvX6RIkWTJkjVo0CAqKkrQsDdv3sycOZNPrl69mtiV/f+gbgcPHixf
vnytWrW6dOlSrVq11KlTBwYGrlmz5o8//uABuOLhw4eDgoLWrVv373//O7Hr
KyEhISEhISHx//D48eOwsLDRo0fDssQn8JZDhw5VqlQJGpYtW7YSJUr4+/sP
Hjz4xYsXiVtVNaBY06ZNCwkJuX37tvJhdHR0586doWFp0qSh2jly5KhXr96V
K1dMyrl+/XqpUqUWLlyon/GTkJCQkJCQkPARfv75Z0iI/nNo2IULFxYtWrR2
7dpHjx4lfMXM8fvvv0dFRX348EH/1f3799etWwen+v77791OfMXGxo4aNerG
jRu+qaaEfdDFkhVLSBhCY9mSWmaIhIREAuDVq1dNmzbt3LmzIReSkPAU8C5o
f0hISNu2bcuXL8//b9265WkhrtQSRrdixYqiRYsmqcV0CQmPcO3atQIFCtSr
V69Xr149e/YUORhv375N7HpJSEgkKN69ezd16tQDBw7IyQoJ70FcP3/+/A0b
NogA//nz50FBQfCl6Ohoj8oxUcsjR45MmTJFWXCXkPjocOXKlbx586ZKlSpZ
smT58uWbNGmS1GcJiaSG3377bfXq1RPjsW7dut9//z2xa5RU8OHDh5UrVw4a
NAj/vnXrVkP2+PTp09mzZ0+YMAHp4bUlw7SOX375xVPKJPDo0aNKlSoh9j//
/FN8smvXLj8/v6FDhyprLjExMc+ePXOsrvG4f//+zJkz6Wh82enTp638xHYb
kxp8IU8JK7h165a9xNpr166hq4yRv97KI426fPmy2EUlkbjAS9IXiil2EB9F
L3tPAPARpUqVqlatWmho6OjRo9+9e+eLen50wJUvX74c3oUa9O/fv0aNGq9f
v9Y/du/evYiIiNatWxcsWJB/eGrreMuxY8diY2MdqvVHg9u3b4eHh9+8edPG
bxFXgQIF0NhXr16JTy5evJg5c2YUWLEDd+7c6dSpk7Npe4cOHcqSJUuzZs3a
tGmzfft2t89708akBl/I0xBYMN6ydOnSqVOnbtmyxXcnw0Bsvvvuu6QcMVE3
JPDll1/as8mCgP312FfcfyVDaJwAK6oQgOPHj+NkZ82axT9kFo0aaObgwYPX
r1/vi3GUkL1sG14SgLh4AlapUqVvv/3W8Ns3b97Ayjq4ADZ56NChmzdvVlyh
Bk+ePBk3bhyPjRgxQn/6lk9x/fr1f/zjH65q3r17d1jrqVOnXFH3R48e4QJ+
i0eTeJjUH1X56quveJ2n8j958iTMYcWKFZ617SMHWtGqVasTJ07YLuHnn39+
+fKl8ufevXvTpEkzfPhwddbxmTNngoODHz9+bFgBQ7UknBk/fnyvXr0aN24M
5dD8CgJWuXJlxouVGnrfxqQGE3k6BQrHiDGO1qxZQ5/SO0WKFJk+fboSBf/6
6698mzVr1qpVqyoKgE/s06dPz549rYfh8Dq6smXLlknZn2KTMey2Jx4hYCj5
gQMHECM2/PTp03+lY3awtNjnkSNH+rQHGb/NmzcfNWrUrl27Nm7cGBYWVrZs
WWiY8sD58+fr1q3r5+eHhBXxPnjwAO3auXOnvkCCst69e7vySujwtGnTiAsS
t6dw+u/fv3f7GJLH6+FGfTH9JZAAvYyoiabplJ7ugF9YsmSJYU1sE4A4dwSM
Aq9cubJp0yYYSLJkyTJlyvT111+fO3cuKioK3WN0Yx7Lly+fPn16BruGqWI2
6Z2rV6/y8zx58vz000+e1s0boEXwq4ULFwYGBlLzihUr7tu3LyoeaPi2bdsI
LbNnz46F53MThRfzLTTEhOTbk//r16/r1atH3SZNmpSUI3Fn8fvvvyMo5OmU
kcFWQHXy58+vmWuifKxZt27dNMzZlVrSHVA4LCQuDzOr73HrBMzxNiYFuJKn
UyCIQ2iatd3Lly8XK1ZszJgxysiCg3322WedO3dWzP6tW7dy5co1Y8YMi4OI
x7BaKVKkqFmzZuKmRaGxjRo1GjZsmH6dBbX8/PPPLa50GwINr1KlCkqONt6/
fx+egBiTMuH0FChMixYt1q9f76PyL1y4gLarCTBDYOnSpXnz5lUHVgTRWbJk
waEon+Cm/f39f/jhB32ZjB0cEA/wk9SpU9MjxDXCK+FP8UTdu3fn86CgoLt3
7/qoXa7AgFqxYgVkAIceEBDAmIKWmARcqBaBKuPRp7XydS/HxZ9MBQeDAOOL
6ZdZs2ZBbA7F4+DBgxDvyZMnV6hQgW8bNmxoaP18R8AUbN68OVWqVMWLFye0
13xFx6GWGTJkgE78/PPPyucxMTEzZ86kwkS1mAL1lEWCgboJwcJg9cJBebDk
tAtf6co00QtE3Pzf5C025C+22qVJk4a6ffHFF3/JlQJD7N69G2XQa5E9YBIX
LFigMYkKnj59Wr16daJX9Yeu1JKxtmPHjrh4t4j9WbRokaY06wTM2TYmHRjK
0xEwHBYvXkzheCLNV8JbKVSEeDBbtmx8KP5EARi8hQsXplstvuvGjRuFChVi
3JUuXTpxE9vmzp1LNcLCwjSZt2JOLzIy0pu5BTRc7T1xMYjxyJEj9qub9MCY
ZUj6IoXj3bt3bdq0gQ5pFsGRKnygatWqIjEPvZ09e3aOHDmUoyaxJxD7jh07
mmRTE1bQF8T++rOb0OexY8eiFfXr13e1ruQLEMYOHDiQoSRmUajGli1bqCSW
0ND3PXz4EMnv378/Aermu15WQHvx4IidWN6w45BPcHAwhNzQUycAAdu6dSvM
HAKmpljqCqxatcrPz69JkyaaXCkMY758+eCQiTLJgwXr1KmTKwIWFz/Q2rdv
nzJlSoyhvoZ8gk4GBgaa974N+d+7dw9mGBoaSt3atm3ru1ncJAVMSp06deA/
jigDhaCWuFH1ooDmgTlz5lSrVk2fSmSilsQaUG4CUs3nFgmYs21MUjCRp5f4
448/mjdvzlgYP368Rm63bt3Knj27Mn6Jhemdixcvim9//PHHAgUKWD8kmRcN
GjRowIABxD7w9gcPHtiuMAGUl9MUOLtLly7pp7/OnTtXtGhRwykU27h69Sr+
FF73V4r1sN6NGzceMWKE41PN0dHRcI9MmTLRF5qviBRQnr1798bFU2WstzKV
ihLOnz8fhTQ/2Xv16tV4HHy9YYY5/U5PZciQ4dSpU55WG0sIXbFheXDfiFEz
C7Fu3TqcPtGNRs+FW2zYsGHCZGf5rpcVwK/EatT06dNdSQ8j42pRI9EJWFz8
sgt0IkWKFOom8A+qTYCQWEcquSVgcfEJxphif3//CxcuaL4i3qHrmzZtar45
1FP5U6vRo0dv27aNDqVudL2VNfe/AL755huGs40zuwxx7NgxCL9YecSUwWn1
Y4fIlDfu3r1b/aGJWtKDX3zxRZkyZfRzIxYJmLNtTGowlKf3oEdOnDgxY8YM
vXifPn1asmTJ8uXLw/ronX79+n366afiMcLwKlWqELlb3ypFJw4ePBjXhm/F
zdm2Sy9evGDYmk+M24NoI97Zm6XeX3/9tU2bNmPHjlUiO4ZJtmzZ+PAvFust
X76cEMzx1ESEv2zZMmIxvbgOHDiQNm1atAhfjHKWKlUKDRR+mbFPtL5v3z6T
kunfHj16YPanTZtm6OsFVf7kk0/cOmUNqANuheDCUxoAewwJCdm/f7+mPthA
ZJs8efJ58+apP4cDlCtXTpmFTgD4qJcV4DvgAOnTpzfJ2l25ciU01fCrpEDA
4uLVD80sVqwYhlF8Qs/Wrl27devWkFjodMJv97NCwPi8b9++PNO9e3dNCECA
nD9/frc5Wp7K/8yZM9hYSBd6hXpXrFjR1yvpSQGiL5o1a+ZIEtHZs2fpL0Wj
rl+/PnXqVL38eRdv7NChg9pHm6jl69evq1evHh4erje8VgiYs21MgjCUp0+B
wOHDAQEBhOGvXr2qWrWqSADjT+j3oEGDrAcvjLKIiAioSExMDAWa21tz+I6A
oY1Q3K+//tqbQhBOvnz5CCUUg3bu3LmMGTOqc8X/GqA3cZ0bN25MsDfiK2FH
YgcHVihr1qyE0rgACAyWfOfOnebOQiQxpkuXztW8/YoVK1KmTAmRgxV4VDHb
BAyVQ1tSpEgxa9YsdeVpYIsWLfCMXbp0UT+/ZcsWZJ6Q+7t93ctw5jRp0hQp
UsQVx0MsEM6DBw+6+jYpEDCRr47yrF69Wnxy69atHDlyrF27FoMwZsyYhJ/n
sULA4uJXnWidfqcAAmd8uU2c8Ej+eH8ioO+//z4uPlnIz8+vYMGCSfAiJ8fx
5MkT9Aea5P3aXFRUFCEYfTp8+PBhw4b17t27Zs2ahj6Ld/HGQoUKqSVsopY3
btzANS9evFhflBUC5mAbkyYM5ekgoMTYokWLFu3YsePp06dx8fuRGSAMw+vx
yJ49+9y5c7Ew9evXx9lZpxNi2lMsVmJmixYtypC3cpyIIXxHwPbs2YNyXrp0
yZtC4Mko9rVr18SfSGncuHFoZgLvhEoAYE7FIf8+mtl7+PAh3gGFPHnypIiq
oFtoToMGDfhz/vz5dBY0fvDgwW3atLHCSX788ccsWbLAsQ1HEAakfPny+NDZ
s2d7SpVtE7Bnz54R4+Alp0yZoiFgISEhIk1R+ZDCMbwEsAm5gcWnvawkgAUH
B6vjSsI0ul7pBYaksEh6JBEC9vbtW/qFhhBmCkG9fPmycePG3bp1QysSZVHG
IgGDDmXOnJkGYvYZVps2bcIR83xkZCSO3u2qk3X58yR+HxcmuvX06dMZMmTw
9/dXXxf+VwURH27UfH4+Ln7/F86iWbNmsJ1KKvBnu3btMFB4T/Qw2f8G8cs3
33xjWCBv5L3quQ4TtaTreVi/GB1njYCZtxH1YEQLA0tAN3PmTM3SNgTDVVxs
Bb4uX0AvT0dAp4waNYqOnjRp0pkzZ5D2oEGD6FOREpMzZ8579+7BuPgHA41x
6mk0R0djl8RUM+/iRaiNIdO2Am8IGLS/f//+2KWmTZtq1A+zMGTIEBMzy3tH
jhyZO3fuVKlSoY3Hjh1Te0z+vXfvXpHYdv/+/X79+i1btuzo0aNffvklEYo+
rdF6afbg6/Lj4nW+V69evlhEgL62atWqSZMmq1atwvlitzEXWKcZM2agOa1b
t8ZTdO/evUSJEugtFsMiX6I0hmeLFi30aS10Gbwubdq0kydPtjHDbJuAxcWH
OTRBQ2/EhDONxbspHz5//rxChQrI3NVbLl++DJNJly4dri08PFxZDhOASmGj
PD3v3Xe9HOciAYx/MHbUm1tNkEQIGIQZjaUhkFWFHqNIDLHESjywSMAwiQQy
IgTAqKI5y5cvJzqmvYcPH3b7FuvyRxTQeGV/HBETvixjxoxnz571qF0fI9Bn
GqtE5Xpg0KBefvEoWrQoYqFH0Do4MCpapUqVPn362NhLyxvx4AsXLlR/aKiW
gnIrKUYaWCFgJm3kjfjWFClS0DpcEkaYf6uzOhk+EydONLz13gp8Xb4CQ3l6
CXgIVh1np946imGkwtOmTcN9ly1b1uIJbIZAOEOHDlX4Eva/YcOGaBf6Zm+u
0jYBw3/Bvgiu+QdUWRPUi80IrpJCY2NjGQVUm2iRqI1/ZMuWDbKqfgBDpBzc
So/jVfF38Af9Lm9PS/MUvi5fwdy5cynZwRUxVIJALHv27BoiRJhMdCB2TsFp
bSzmYmFwE5q5Jv4BS4HXFShQAGL2448/2qu2NwTMEHQWRpjBrqbuYnvCnDlz
DH9CxMTzyZMnJ1CCg9HS2rVrq1nT/v37obI2Bp3jvazAMAEMKweNsWgtkwgB
w5KEhYUhcyuzRgkDiwQMU0AX8NjAgQNfv349b948xhfKbHHG3qL8+Xbs2LHq
VQ/GHYMuTZo0bueFLIKaMJBxwck8AQPKmxOHrADjgAfMly+fqzxA2Bd99Mkn
nxCGCO8DhyeAQjhepnzzxvz58w8bNsyVwYSJrVmzhnAP3S5TpsygQYMMn3RL
wEzaSL+sXLmS4UPvC4fL6wicCxUqpMyB/PDDD+JUQ0SB+okZP4v7DT0q36Qc
TGWHDh3wm5hxV2lsbuXpKTCApUuXxmjoF2Ww53wlJhy8OcOKMGrw4MGKM0UI
qBbFmgTy5rBNwNavX48tjYvf+0PQB+dUzwYgf4ho+/bt9d3EoMC68ryycYCe
rV+/fkhIiOgpdGDp0qUHDhywUg2PSsPnNm7cGK2ADFtsplO1xS7VqVOnevXq
W7ZscfUMDDNTpkwOTsnu2LED8gBP1qgcnTJy5EisJaGNq3xsc9C/FStWJKBo
1aqVcsInJLxp06bEfX379r18+bLtajtLwGi72CxAk9UFHj9+HGlDUPU/oYtL
lSqF2RFndPArTHdgYCBhqXgAk46FtJdL73gvKxAJYHRKjRo1GjRoEBQUhM3h
T+tnZyUdAta2bVu67LPPPksiWeUWCRguWBCw4cOH23iLRfl/9913Ivde+URE
wQxnJWvOe0AgCXjPewKMpK9zqpFMt27dXJ28JM43YBQsXrxYHRwRhmTNmhU7
4I1JEXt5UAND7kHJWFp6H34SGRmJV3WV3eSWgJm0EQUjcNZc5UN9MFbz58+n
yfx7/PjxYukT7oRW4OxOnTplsV88Kt8EvA6Xx6txE4Z3b8W5k6cewg6PGDEC
ZqvPK8YdYzQIGQxn+1FOrK759nC3wB3QL+rYGVcFH/OG19kjYDgg/KNQMJFr
rUkXxDcVLlwYPdQr/K5du6CLmo3/WOOWLVuKQw/4LYVbPDzKo9LOnDlDreD2
1qdPnaotyoaQ+RWW2ZUC8EDGjBkFrbUCvCqDglh71qxZ+ijj9u3bxBdFixbV
r42K4xfEcZ32DgkR6+kUrichDD1GqzhU3541dpaAwY1hoZ07d9ZMUe7cuZMh
qU9HZxwhUiJZTTcdOXKEgEIUQpkLFiywN5Cd7WUFQmji4DXsJ7EGhoJ3wfnh
wxYlmUQIGGrTrFmzJHWugkUChtizZ8/OY65mVs1hRf7YXvRw4cKF/1SBjibw
N9mSnHRw9+5dnOBYy0D51VxFkHOie8MpHYweFIgoW2OxxfYc4mhv+KGIOnG1
rggD427MmDEMN0Jyk8xStwTMpI3r1q2DY+u7OCYmhvdinQgeiTTFZAheieAL
um61hR6W7xY43KpVq7oiYG7lqYG43rFNmzZ05f379zXfYsk/+eQTwxOe4+LD
7fTp02fOnFk5+MtTiKOZ4PAnT55Uxh3/xiCI9RHzs4wQ3eHDh7frgKMh2Eek
+q/gHq72ryF/YgpsPuYRbff399ccGCUiwSFDhmhmF/Eg0FfDuzg3bNiwZMkS
mokOmEwTeVMa+oBCutIH78s3Bw8PGzYMAu/KQp44cSJDhgz0iMXqYUzoUyhl
WFiYhn6LU2hc+Qsxxc23tu9QgHUTbjN2DA0aIwtfjJ81P/idajAcduzYoVE8
QpiQkBCsJc5a8xUPR0VFWacHd+7cgSUGBwfrGTJ1gwjpU0n5CdxP7/dpKZ8T
46MV9KP1A5M1cLCX1aDCUC/6VB0KifN1DWf5DJFECBicEw9FW9DSJLLZ2SIB
w8LQuba3pVuRPwYHXtr5f4O6EW1RPVQ0iUjMFTZv3ox8rC9r5sqVS00hGAKY
HcOpURFXol28QvOVmAFr166dNzmEL168QMO9v/jPLQEzaSOfGJpcPiS0h5Ys
Xrz46NGj4kMbBMyj8t3CnIDZkCfEo0WLFg0bNtTYZ7pVpMR07drVsIupdvLk
yevUqWN7yxV+gXEXHh6uGXo1atTgva7y/RRAXOnTmjogH3hjyZIl9V/VrVvX
kAyr8f3332fJkkV/2BfMLWfOnJpbTePife6zZ88My8SjYXxQALybq11aGnha
mqcEzNnauiVgp06dwnp7tCaIViBnmLnm88ePHxcrVszV9ljUuGnTprbjZTS8
W7du/NzVKc24DwZCsvjz2E0GF0EBFL1WrVp63cudO3eOHDnQbc3nPAyxtDiI
6Bd0uGPHjoY9jm4jbUIYzedosqsFu40bN8IA0XnDk4IswsFeVkMkgGlOBaGS
EydONIwgDJFECNj169eJ6WycIOc7WCRg9BF2vmzZsvauJnEr/9jYWKqhX9vi
+T59+lC9Dh06/MUOSNRA3AllmEotthgbTo9gBsWNad5MD/LGcuXKYU+8lLCV
GTBXbXQFXNW8efMOHDiAz1XMlw0C5lH5bmFOwGzIE80nFB07dqymH8VkmquM
GthjaGgoCmA97NUAL0YwaHhhyjfffJMmTRrCH3uHE3qzCxIhjBs3LlWqVARl
mq9Efp1HCd5ip+G+ffsWLFjgfRBnWJqnBMzT8s3hloARWWTKlEkfvpkAPpAt
Wzb91icCcMJMgkfDiZqffvoJZ00H2ZvGEQl+lK9nLwIMqDZt2uAOoHkJvAtS
Ab3ctm3b3r17u9ocgZwzZsxoZW+aAuSMFYJ26vfhWoeDvawGxkGcAKb2zmja
gwcPrAeYSYGAiTQebGmDBg0S5oYCK7BCwKgtsTk1p/7KGL969er48eOJGqzc
7GAufz6cMGGC4eK1klQgTpXxsHHGNVm4cCEGJKsnoFv1N244C3HareFJdyLv
pU6dOhq1EQfOEPV4uUHgyZMnRLW2060VWMkBc9VGE+CF+/fvDwNR1MxBAmZY
vluYEzAb8jx27Bhqpj8nRGxCMbzwJS5+aRhNhqHZ3tHDewcOHGi48Cqyy8Tx
YjZK9oaACdqJnogd+lRPoSLi2H9XV84Zgp9DMrFUJvuLrcOwNAcJmI3auiVg
u3fvpiut72MSGYDIWT8FJ9xc9erV9Utv4rrSlClTUn97lkRMezJ2XN0Sqxyw
g1OwEXJ6T8DwQZGRkQhHPWQYfeLeJQGiOaTt0YWwd+7cwTDSid7seHWwl9XP
iAQwzQlgniIpELB79+5hUjBo6o3GiQ4rBAxS7efnV6tWLfXKEWKZPXt2unTp
rJy+ay5/TL0m916NpUuXJk+enC4QO0cUEG3hBJV+gY0zKq2EjYxuWP0uy0Cx
CS683wxuDkQ0ffp0f39/BqPmK9xQYGCg/pKU6Ohogs3Q0FAvqSmSDAgI8CaL
W8AtATNpownWrl1brlw59U8MCRhaWrt2bWWGFluNYlvJjNKUj/4sWrQIL5A5
c2Y1s925cydKKMJAcwLmSp78CuYA2SN8XrZs2YwZM5T9blOnTsUywIX4tn37
9pMmTRJfYUwwKdmzZ9dvN2Yo4ek++eQT2xuEX758yZB0tY4g0j7t3bgX5x0B
E3fZiGsZkcOoUaOU6JsYhEjEowkQLEOHDh06d+7sSARnWJqegOGge/ToMWTI
EMXiYan4xG1Svb58rC7dhHqgcsokrbiOHKONTXBLwFasWKHPiqcE+BIlY3sx
ztOmTVOu2hFT7oxlFBIq2Lp1ayXKhmngC5o3b66f/WDgQ5vLlClj+wji5cuX
mySAiQ3sPFCoUCF7M2xeEjBEzcCkBE3AwgCZOXOm8qc4SNaje4jgBshNM4/t
qQoZ9nKca7Nj0ssKlAQwfuWNd0h0AkYhjRs3xlp6FGi7BRq1fft2pGf7EFdl
v7krAkb35cmTh3bpA2F6ExNtJUA2kT8mJSwszGR+CceHYPXTJuvWrcuWLZui
b/fv38+XL5/3LCIRsWPHDkaQfvodpxMUFKS5cBMDSCxWsGBB7w9+gWbwXt7u
ZTlWzgFz1UYTfP3113AStU3WEzBx5696knDDhg0wPStbsfTlM6yGDx+ObJUz
EjFZLVq0qFu3rijfnIDp5YlOrl69+tNPPxVHGNFluXPnxrKJoINubdmypTif
licJECCEYvWNWjE6DO3qP//5Tz7Hm9jL3KONDBbcrquAheHGoGPoeRTLK7BN
wKgPHgECJk5guHLlysSJE5XQg3907drVo13kiBfnYnuV1kppegImMmeUVCj6
iH7UT2JbLF/cziNumBKfYPBz5col3KI5ARPHmGuuZqAaiJGYTtSZIDdlypTK
hYYiNQgNFzkPkK5SpUoJznP37l2CPv3WDAz7mDFjMmXK5Oq0Z7egaREREa4S
wGgFI5pwgLDIcMXcCrwhYPwWhjNlyhQNOcQyUKZ6kz5yRtr6NEUT0JtwDA2r
9EiFDHvZ3OyY9LKmDiaLwhbhawImdhIlT548MDBQf7AtQsCY05A9e/Y4Sw9E
X6O0sDt72yrfvXvXqFEjStDvmkf4IsTGkOoDcGEJ6T4r27pdyR9ZYW0Qjj67
SYG4cV5zeiflwOfV++lwXvgj63nUSRC3b99mRGAM9V9t3LgRu6ecQIjwGZiw
YkfOpyUowJh7T+SsEDCTNhpChL2aXCA9ASPqKVGihLI5TizOQmPcnhJmWD6D
Ap0nzFcYL3LOkSOHsvfKnIDp5XnhwgVCFeUiOZHxNWrUKFFb8adSeZHD37Fj
R/FbQecYPuqxc+nSJQY+4bC9UY/XoNUZM2Y02ceEKcaaYRnmzp1r4xW2CZjY
Z4eSYHOQ/9ixYzXTmEuWLOFb65OodBPUxfbmMiul6QkYJAGTpeQti5lMVwfo
uS0fFkqwqUyqUMiECRPQGfGYOQETO1/Ut6/yGNYDhVTsCcECtVWmOkWUdOzY
MfEnn/On2JIp7myCaMH/lVfQZQsXLqSGmzdvtu3gHjx4gIhwN/qL7aKjoxkO
uNeiRYuq3+spbBMwGkXzxbmpemjqjNIibbX1cIuoqCjcmYbaeaRC+l6Oc2d2
THpZafXatWtxvlAXEwdtBb4jYNgZolfiNXV3YBtRFeJHDAWN4ucIwSRkczVJ
6BaYX1gQQUGNGjU8nfjFp9ChBD5Kzf39/YvGg/ozmvA4NA1ibJhLLE7oEssE
bt+llz+1rVWrVqpUqcSrkZLmyEGUBE6bL18+pYY8jEsVB/GJ/aQITdSNh9Er
9ZTFxwhxBbbSKDWQG24dieENFy9eHBwcDMFw5Op2wVXwld7nJVohYCZtNARG
CR3TnH2tJ2CMIIzVzp07xZ+Cw6hnDDwqX8R9yhXz1LlFixaMBUVEJgRML09x
SwiDSzlyU3MfEzYQ/VfSSLB1vJ3Kiz/FqeNYEoS2e/duHuvbty+DdNGiRZ7e
VxIXb6hhesp2XQbXwIEDNUMYwsPQVts03q45gM4tvFmCxB9BpydPnoyvxCNo
3kv1AgIClL52C1hK9+7dnUq7NSxNQ8CEo1fnLQsWbeXeFsPyYf4ojEJEUdcC
BQqIWzvj3BEwcfuqelpJfNKwYUORViHOjlDWbkRqkHoph/AkTZo0SuX5FUNG
DJDDhw/jownhq1evThttsC9x+La4ZkWAzi36X+CJoBCIDl3CAHp5dpNtAiZS
MV3tZ8dXqlegEMKUKVM0WevmQIbiNEJNVa2rkL6Xzc2OeS/TXgTO65Q2Qrnz
588fERFhbxwlwBKkPZhPEloEXoYeT2DuQQxOB3Xq1AneiMfBX5iQZG/kbwiU
CtVavny5+FNMWRheH/YRQWzTKFu2rKusSNgC/PP8+fOOpPsKoN4VKlRwte/b
I1ghYG7bqAFaTVinMWV6AkaZuXLlIlIWfwr1sDLPZlg+sYByxTwyJ+rkdWq6
a0LA9PIUbFC5fUzMueG/lLOw5s2bp95WdvDgQciPsh4kgJ2EAkVGRmKWoWGa
fMgkCC8v4+bn586dM9xzzWCHPPTr18+iMdm+fTuU1ak91IalaQiYyJxp1aqV
mNMQOm9x1k5fPs2kscp5IGgs74I2KxMm5gQMjoTrVC9hi/MKlLt+cKl169Zt
06aNWMsWlVcSscTb4RiKHxdvxGFNmDCBqs6aNYvme3mCTcLA8auIXAErjcwt
3rlAX0NoNQGFpyqk72Vzs2Ollx1EkiVg5pOEFsEIGj9+fAIfrb9s2TLCZ6Jp
OI9YEOzYsaMr/uM4ASNkgP4pC3BiygKDgMWG0H68B1ZAIYj7vLxayCMQEBEH
ObJAY4WAxXnYRoxYcHCwZgeEhoBh/HEf1apVU1bDieZQj6ioKDTEPHtBX744
A0HMpmKm0FuIhH7JyRUB08tTHIyvHOSFxeONuDxqu2bNGpjV1KlTlaQmniFu
JfB3dVTpxwLMfkhIiL0EfrdYtWpVmTJlrOylxeB8+eWX6u3b3sBVaRoCdvfu
XcyRco2m0M/PP/8cn4hmmpxTZFi+uPFZTOdScpMmTYgI1BG6CQETx/i0a9dO
bZkZp5kyZVIO8kJX4f+EDMREKOT//M//1KlTRzmp8smTJyVKlCDQ9vVVIAkA
sQlo7Nixvj5SEmnT42KLhNuHEXtQUJDmiiWPVMiwl83NDp2ekL2cNAmY27UJ
i7hy5QoUztesXg2RAKakYNGJI0eOLFCggKtZOGcJmFjlwYaIU1PQGayWyBam
m9DPjzcPH0liH9q2bevIji23ENfcYL0d6ReLBMx6G8XKMqqlMZgaAiayI6pX
ry48YGxsLJpZpEgR/gG3MTkt0LB8XFvDhg2bNm0Kc8NkETLrj2d0RcAM5Yl+
doiHmCXYu3cvqovBvH//PnLgJ5DAihUrCjpx8ODBfPnyWVmrSvrwnZuDrOJK
lAlw8yfhz05dkOeqNA0BE3fnKUcl8GfGjBm7d++OeRwzZozJ6oZh+devXydI
nzt3LqFl/fr1d+7cqRGsCQG7ffs2TFXJ8xHAuRMBid3ruGyMJ7XdH49NmzaJ
HDyxJwuNHTx4MKOJn3gmqaQKRJQwB3oTepQrV87K5jjsDJ2umT/xSIUMe9nc
7Lx9+zYhezlpEjC3axNWgJzpJtsXxNuDSABTNk4Kfh4YGOhq1dtZAibkliFD
hpo1a+JhUSRMEx4zLCyM2NDVGTIfC6g/7bK9duMR0GqiKtvbxjWwSMDiLLfx
3bt3LVq00J+5rSFgp0+fRhkCAgI6d+48efLk/v37r1+/nuhPTCaYn5itLx8i
RDAIB5s/f76rgMIVAXMlz5s3b+I6cZHUjRgcUletWrUBAwaIjGI42PDhw7t1
6zZ+/Hjq4+WGo78JYK1YTpPZJIHLly8jaqc03FVpagImWL3YuD0yHhMnThw3
bpy4wF3jJa2UD+PKmTMnxnPHjh2G5M0VAcPYDhkyJDIyUjMEeIwBgtOnYthw
SBfa3rFjRx4WiQE44latWonbxyIiIj52i5oo+PPPP+lu/JG5y/tP/J0+dK56
rswjFXLVy3HuzE5C9nLSJGDmk4QWz5xnVDpywrNHEEf6K6dzM2xLlSrVoEED
V4dlOUvAxJ4g4l+ihujoaGUVG8P1UaQiuAXK1qxZM3uXDlgH5cNaLSYqWIF1
AhZnrY2xsbEMB/0OXDUBExYsV65chIE8D2USYwFVxDubz4W6Kt8tDAmYuTzR
TwIr5RwnhoxmYo2fu6UTEgoY6TgmfIq5Sdm8eXOXLl2cWlhxVZqagIl8VFwb
Wop1Unqc/nWbummvtq4I2NGjRxs3buyKfFLPmJgY8S4cEANHk3j24MGDpHNg
+McIKA0mznxjPjLv3r274S5siypk3svmZifBetlLAiayagm0r1696uBKn9u1
CSuFvHjxIuFTni5dupQ3b15lhyw1d7WlnZDt/PnzUO7w8HA0zRHpwU7VJ4D9
9QCFgF6aHE7rPSiZsGjZsmUOUncIWIkSJfbt24c/crtD00obGQhz587Vk2o1
AePb0NBQKycsWS/fLfQEzBfylDAHrqRHjx4bN240odmYJgdjZ1elqQnY3bt3
8+TJY+9AQnu1NSRgd+7cCQkJ0WQWSSQwkH/r1q2JDV09AAeYNWuWZqbdugol
/V72ngDAcAhsc8RDkFIHq2c+SZhkAZGuVKmSyKN+/Pgxxqd3796GGfjXrl0r
WbJk9uzZkR4c2Hv3JBLAPDqJ8WMEgtq5c6f5goU3gDxv377dWbYAIypWrBgd
nTt3bqyK2+dtt1FNwMT+a4+OPfQeegLmC3lKuAVdMG/ePKdWGG1DTcAgUVmz
Zk3IdWQ9ASOmWLp0qSNXL0l4ievXr9MXHkV5FlXoo+hlxwmA43C7NpEEwUiH
fcFLp02bFhoaOnv27ATbI8OLIGBTpkxJgl0pkTCAgH366aeDBw/esWMH9i0o
KCjBrvf67bffII2DBg0qV66cg4eBSHzUQP3y5s07f/58goLNmzcTpyfYOSGx
sbGrV6+uU6cOHOzj3XwkoUYCq5DER4r379/fv38/IXdfSkjExW/dmjBhAjYq
MjIygc0UgVL//v15NRX4qA+dk3AQRNBdunQJDg726AZAR3Dx4sV27dqFhITY
vqBHQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJC4iPFv//9b/Wf//rXvxKrJh8v/vOf/3z48CGxa/FXxp9//vnHH38k
di0kPMDx48cHDx585MgRjYXxCA8ePIiMjKxYsWKhQoU6duz4008/OVhDBfoa
SjMoISHha1y7dq1AgQL16tXr1atXz549a9Wq1aVLl7dv3yZ2vT4avH///vz5
8y3j8fvvv9soISoqqnDhwps2bdJ8DqlbsWJF0aJFr1696kRNP0oghGPHjg0Y
MOCrr77q3bt3jRo1li9fDhnzqBDc64wZM0qWLHn//n3NV9evXy9VqtTChQt5
kXO1TrpISGWDw4wePTpt2rT79u2zVwIdN3v27O+++46iDhw4MHDgwNjYWKeq
p8a8efPy5s0bGhoK2QsPD69QoQJq9jdRCQkJicTClStXsDypUqVKlixZvnz5
Jk2a9ObNm8Su1EcD3BlR+dixY0uXLt2wYUN7BOzOnTsjR440DO2PHDkyZcqU
v3OPXLx4sWbNmpcvXxZ/rlmzBofuqXPk4d27d8+aNQu2rPkKhz5q1KgbN244
VuOkjQRWNsQL32vXrp292UsIGINr+vTpPuVCFD537tyMGTMmT54cS1ilShUY
ozezdhISEn8r3Lp168WLFzZ+eO3atYkTJ/75558JM+X+8uVLquqjwjGkJ06c
gEPSIrztw4cPrfzKtugUvHv3rm7dunoChlRhDnLh7MOHD8jB02krga1bt6ZO
nRqOJBzimTNnMmTI0KVLF6W0mJiYZ8+eOVldz/H06dPZs2dPmDABxYPGyJkT
BViVyMjIgICA69ev2yvh8OHDBQsWpN/dPmlbzcTs36FDh9Axn/adNAgSEn8x
YDG2bNny5ZdfQgNs/FwQsARLeHj//v3gwYM3btzoC0OH/cTa58+fPyQkpGvX
rrdv3zZ/3kvRKXBFwET5gwYNSrAlXSz8gwcP7t69q0lIQ+yJFdEjHHp8/fr1
9nockZ4/f/7Vq1fiz82bN8PH5s2bp5R2586dTp06Je4U1r179yIiIlq3bg1V
4B+Jmz5ER1+9enXHjh2nTp168uRJorPB06dPw5mnTJliryboT+PGjcuWLWu+
+OiNmikEzEb1PH1RAhsECQkJGyBKevnypRVj8u2332L5bU8CQMDGjRt34MCB
ESNGjB49Gmvpa0/9/Pnztm3bHjx40PGSqfkXX3wBobLYBC9Fp8AVAYuLnwGY
OnXqyJEjDVP0kfbQoUNbtmy5a9cudV8/ffp0/PjxvXr1wvVAMNxWANIFiy5V
qlTOnDmrVKlSv379GjVq0KFiZo8uDg0NpUzvWmkHtPqrr76aMGGCvekvDX75
5ZfatWsj519//VX9+ZkzZ4KDgx8/fmxYgWXLlqEVSEC97sbnK1euxBUGBQVt
3brVykBDjGFhYZUrVw4MDOzQoYO+rymExv7jH/9IRALG4IKHUIcmTZr4+fkl
S5YM6iIy35xSNk/x5s0bRsdnn32m6TWUs169eosWLYqLF93Zs2fbtWvXqFEj
NdHit19//TVtgXV36dLF1RK/l2omCBhqgKogvVmzZulzBZ2CuUFwBFi/7du3
9+7du6c70OlLliyRu4ckJBRcuHABS/jpp58WKlQoS5Ys2Cj8iysHgU/5/PPP
Ma22X0ewjMvetGkTxg2zg6kcM2aMr4fk+fPna9asGR0d7WyxHhEw70WnwISA
gVevXrVo0YLYXPM50sZr4Ibw5rhFReavX78ePnz47du3YYZ4T9yKCT3gYfor
ffr0zZs3P3nypOL6+QcOhZJ/+OGHqlWr4toSxcyiVyizxvPaAN45PDw8T548
8Ch9aXT3tGnTunXr9ttvv2m+2rNnz5o1axA1rAknqzy/fPly5IO/7t+/P2QV
Mbqtw9u3b9GWiIgIWA3MTa9jSYGA0dj9+/eLf9+9e3fIkCFUldY5omy2sXjx
4nTp0n3zzTfqD+nTbNmy7dixg+Ezd+5ciBbMh+pBs8UDjx49QnlmzpxJJUNC
QjJnzhwVFWVYvvdqNn/+fGgeg4W+o55lypQ5cuSI7dLM4cogOAhMKxwMYaKr
OBEES4h9KB5Evhs3bpw8eXKFChX4FqulHzUSEn9DiAlqRo3CTG7dulWpUqVU
qVKNGjVKnzmAFe3Tp09kZKQ30wuMPvXUAcOWAes74yOAlRswYAAxmrOswDoB
c0R0CswJGMDoVa5cWbOGsm3btsOHDz98+LBIkSKQKKXOPIxX4h83b94MCAgQ
UwSG4IHy5cvnyJGD5w35AO6Y3sTM4uC8aqEt0DRarfAB74FHhklSJg3XfPX0
6dPq1avv2rVL/SHdMWnSpCdPnqDV+Holj4hypk6d+ls8msTDog9CyEOHDk2d
OjV9p/820QkY1aMC69at03/lvbLZBoYL84XQOnXqpB7vCxYsyJkz5+7du0eM
GHHx4kXNr96/fw/pUma9du7cmTZtWsOmOaJm8E+FhGMTunbtCj/xXW6hoUFw
FkIZGPutWrUytEtIODg4mLBFHrghIREXT7cI8DUrKTExMQULFvTz89PvHD93
7lzRokWJ2hysw9WrV3HZkBNfj8rLly/jC06cOOFgmdYJmLOic0vARB4LjkZf
MTiSv7+/3gHFxec7Zc2a9fz584Zlnj17Nm/evAUKFHD1APj1118rVqyYIUMG
KznMzgI2MmHCBGTibLrLnTt38uTJU6dOHSUrTHndnDlzqlWr9vz5c81PIABt
2rSpVauWfn8fHhABWp/2oS28GsZruFSX6ARMCAFV1AhHgW1lsw28PKHWwIED
IyIicufOraRlwsTat29PaJkxY0ZINcQPnqz+4aFDh+DMx44dE39+//332CXq
rynfR2qGGNOkSeNg7KCBiUFwCki+Xr16EDCTPaQLFy5EenK/p4QEY2TmzJlD
hgzROHGMOaSCcdSgQQN1rjif9+vXj+jGmwlkHDS+aezYscpEEIEwdo8PHZka
MgHVbt26dc+ePR18kUUC5ojo1HBLwMDy5ctLly6tYdcYySZNmjRq1Ei/C0D0
e5kyZQzDcAhAsWLFMmXKdPToUZOKUUivXr2KFy/+888/e9IgB8Aby5Urt2TJ
Em8KYVCcPHly27ZtyvQv1AKWRcP1VAHnXrhw4d27d2s+v3btWs6cOdV5+wrw
8rAO69nX0dHRuXLlqlmzpuFZDYlOwOLiz0WhRfAHfWNtK5ttvH79uks8eCOh
Vvr06WfPni0qxosYDoMGDWIMEvR16NABJnzlyhXxQ8bvqFGjSpQooegtP4f3
6uM1R9Tsu+++g58fPnxY+QRmkjJlSp+uEhoaBAdx7949AjRkbhLkrly5ctWq
VT6qgITERwR4CCEhRKt+/foa875ixYrkyZMXLFjw0aNHyofigJ2vv/7am5fe
vXs3X7582F5laeDcuXPEpKNHj06AsIjKFypUCEPhVIEWCZgjolPDCgGD2WIP
N27cqP7w4sWL0F36FyaMQVYv0OC8qlevHh4erieokBCUBFXB3Zu3FGc3ceLE
sLCwhE8A27JlC+3VrxV6BMRSoUKFLFmyKHOVtL1q1ap88uOPP2oexpU3a9YM
V65erEcCU6ZMyZMnD5QVcvLtt9+qvyL8DwwMtL4StHPnztSpUw8ePNhQ7EmB
gCEEIgs4mD650Z6y2cbz589btmzZtGlTsRMEmwbJgTyL2Tn4M5VRVnIFb9y8
eTMscfXq1TwzdOjQ2rVrC0uIYKdPn/7ZZ5/ppzcdUTPemD17doW687rx48f7
et7Y0CA4iH379qVJk6ZIkSKuOB7NhLj6YjOUhMRHB2WmC7OjSQles2ZNihQp
GK1qT7Fnzx5CwkuXLnnzUsz1mDFjrl27Jv7ErYwbN6548eI+uu9DAyqP3du+
fbtTBVokYI6ITo23b9/Sa5Ai/TmfCoQDUh9gBRYtWkS3Im2M/4YNG9SzFjdu
3AgICFi8eLGmHJ5ZtmxZqlSpihUr5pY5IAc4huHkj0+BMvfs2VNxoLYBlYLP
oJMKp7pw4QLsi1BFL2raOHXqVCi9Ok6BEjdu3LhNmzaMKUShPoMO5ecrGILF
43OVBDBXGpsUCBjYv39/2rRpoSuaaU8bymYbdEGdOnWqVKmi7gtCnvTp04s5
WyqTM2dOZUUSusifJ06cYFSirogaYlCxYsUHDx7w7ZMnT2rUqKE/YsIpNYuO
jh45cqSyiAlj5HVdu3a1d66yRRgaBKegJIAFBwer45GYmBhYrmIekXaibI6W
kEiCwKecPXv25cuX6g+xOWPHjmUoVa5cWfmKETRkyBCTpSVsCCYld+7ceGp+
eOzYMbXt4t979+4Vxu3+/fv9+vXDp2MYoS41a9bUL+5g6Bi25cuXT5kyJTZ8
5syZGtN0/fr148ePe9peKk8Thg0b5tRsmxUC5lZ0AjQZd9C7d++6detW+t+o
WrXqpEmThNnEdHfv3v3zzz/38/PD62G38b937941LLBXr174FPVerXPnzpUt
W3bEiBFwA83C0KZNm7JmzQrf0JSDMypZsiT6YGWWko4+deqUYX18iufPn1eo
UIH2mlMRSNGqVavCwsKqV6+uETLuW+wEoZsGDhwoTkrZuXMnX/G8q74j6kdo
6jUXRDRlyhQ8Hdxp27Zt6lGA/ufPn5+udMVOqR6/bdmyZURERLdu3RgXJglg
cUmAgNHYQ4cOwTYhM2KrpromNpRNAdp+8uTJ8ePHt2jRAv2HI5lUQ/AitFRz
EB+mpkiRIqGhoXAPHoD9KtXAsiHnTp069e/fXxwBwRvnzJkTEhIyd+5cfrJ0
6VK9trtVs8uXL8NA0qVLlyFDhvDwcM3JzFQDs4Ypo+Pge3369MEq7tixA05O
dyubMT0tzUQyGinpDYJTMEwAE7Gb4f4RCQkJQ2CaCCQZSmpPQVDTvHlzhpjh
lEtsbKz4SebMmf39/fmHeguYeABPoVi/Dx8+YHuxHgRE+rUq3gVjSZEiBRwD
RgcH49/q1E1+MnHiRBsnXQsr0ahRI6dysawQMHPRCdy7d49aiR3cuAxxTxMe
SnADOCp2zAZpxJXQEZrlEvpXTyfE+eGffvqp3gusXbuW+tCzJu4y0QEvDQgI
wIG6ekC4vHz58iVPnpz/58mTJ1k8ChUqhIQJGXCCyhQlD4tt9RCwn376yWQ2
79q1a3TZwoULNe969OiRfpKECtCnrjb88kYGEdRL/DAmJga1wfkaJvMrL0pE
AoYfh8BQSQgMsmK0whU159N6qmwCUVFR8IQyZcqsWbMG8knz3So/AaBhVjyU
iRJ4I+RWMwDFGcIa+8NjjBdXrMZczb755huUAQWDjtJxYnFBzXb279/PaFLU
CeF8++236BjDX69jnpZmBYYGwREYJoAxOtBe21cSSEj8DYFBSJMmDb5AnR8r
cmPat2+vn77GrIWFhTVp0kS5VPfWrVv169cnlhQ8BxNBOHngwAErb+fhlStX
Fi9eHJMu3vXq1atRo0bhKJXVnB9++MHeEYj8pEOHDg7GgFYImInoBHC1+Bp4
19GjR4U5xWQVLVoUIajXU2wAipspUyaTnFgcED4OCeMlqYP+sCnq3LFjR4y/
/ljLJIXjx4/TUv2+XQGkunXrVrwDOimmYWnm6tWr0fMePXp4syJDZJE/f36T
OVWGALWClgjWUa5cOUPW8fjxYyRco0YN5Y4qkRaO5F0lgMUlKgGjngz5Bg0a
iEly/oTHwhY0XFQNt8omAE2FeLRq1crKUWkJDBM1wzqVKlWKLhM9SI/s3r07
MDCQ0Ek8AI0cOnSoxRx4Z0tT4NYg2IZIACNSQ4fRiqCgoNKlS4trLjUrLBIS
Eq7w5MkTIlNcv+b+REZ64cKF8SB6U79r165evXppwk9sbMuWLcUmI347YMAA
VxvVNcBKh4aGauJoXCS2aP78+Xgc/j1+/Hh7szEi7Q07ZvHSxrj4UzJ4Hb/C
L+iDTSsEzER0cfGGtHHjxjhxZUOWALGqn5+ffoedRzh06FDGjBnhHobfUp/+
/fsTt0JoqV69evX0fE8cKwEN6NSpk6+3qXoDogY8i6v8XhqYM2dO2Jd6KonA
gTChWLFimuMIPILYW2ciHLogQ4YMy5cvJ6BgWKk3vin48OFD796906ZNixdT
PkSj4HWpU6cWp2YZIrEIGK8bMmSIv7//999/r9Rk0qRJ6Imr5TkryhYXv9mW
4Um0lTBJoZ7ClZrRgwMHDoReakzEkSNHiLzEzD8R6IIFC6xMWNkrDdUiEMbU
YMCJTw3n280Ngh7m1k8Bujp69GixnwvTHR0dffPmTd5VvXr1vn37avSBfh8x
YgRM0tlL2CUkfA2G3sqVK8eNGzfWGjCJioW0AsZs586dCxQooP8VvAjjidXV
MA0CfCJZw3vxNmzYsGTJEobtunXrtmzZYrEOPLx69Wr9YI+JiWEsIwGY4ciR
I+1lqwqnhi+2fvHHL7/8Mnv27HTp0hnuHrJCwFyJToAO1Vw1KECUTfzo5W53
Ql28v/4sIwV03JgxYxDs0qVLDe0hTBV9wLROnTrV0AJjbJfHY9WqVeviQfft
3bvX5P5fX6jx+vXr8SyGaYGoKJQ+R44cly9fVn8udgHDIry5H0EQ1NatW7si
YK9fv6Zz0RA8lCtScfHixSxZslSoUEG9546Ipm7duuiqSfUsEjAeO3bsGE7Z
osDpGlifCd++dOkSFea96mcIxAgZTHK83SobAwRjgrJBP5LmUVGu1AzeSIyp
5zyMAj6HxqCEWB6MmJW32CjtxYsXWBj+T5yLvs2aNctwALo1CBqYWz8FIpbR
WAn+wW8NZwtPnjyZOXPmPn36JOWYTkJCA2gDQXTy5MmTWQOeHedlsXDGAra3
VKlSGj8lcO/ePXzB8OHDNYaRP589e2bomrEPeAc8FLbC+s4Xnjc0HXzI25HA
4sWLzY+iMgG1hbwFBAR4lCVOsJY9e3bDTAYrBMyV6OLiV1cJEgsWLKgnhHPn
zk2ZMiUk1no99Th16hT21puDd2JjY0XelHKrjgZXrlyZPn364MGDibtRubRp
03bq1Amra0LAfKHGsD5aimHXf3Xu3LlMmTJpDkWP+6/XgBuLRUl7EEtv6qt2
PIWy1KiZI2X45MqVy3zDnUUCRt0iIiJSpEhhUeB0Tb169VytHIm9mXS05qKf
Q4cOffLJJzAE29wJdy+0CM5f4r+Al8Ln7RXoOFypGYzIlbigLrBZIgjIicWJ
ShuloYcoodt1ARsGwcT6KRAJYPA0NTWlehMnTjSMzVFIiDqGJWnOc0pIJDCw
mYsWLapWrZpmG5ECketi/dbpuP/ui9y3b9+CBQu8j2cpgcjuwIEDMBnbSQUi
xKYh1g9iEreEVK1a1XAJ1QoBMxHdpUuXiAT11ybyUgwUsfZ3331nsZ6GgKnC
PTZv3my7BNh1mTJl8MhK8okhaNqIESOSub6FxNegjYhLv8AnTuVKlSqV/ojL
hw8fFipUqEqVKhYXxw0BZyhXrlzHjh1tx/JipguSqZkl3r17t5+fH1THRLUS
ZQkSQlizZk1UWkNcqT+tWLp0qe2So6Oj8fVeUmKfwpWameDs2bMYrpkzZzpy
5r+r0lCAgQMHQpvNEzU9NQjm1k/B/v37xQlg6mVllFO/x0HBwYMHIWwLFy5M
4PNqJCSSGhgC27Zta9SokfqEUkb0rl27FKrz9OnTkiVLenSNF44Y9wE/UU79
8hLr1q3r378/4ZvtMUvle/To4dE57c+fPy9fvryrm5KsEDAT0YljNvU3dzx5
8oRKVq5cWUnJtgecOPZWnVnkKf7444/Q0FCY1bhx40zETszesGFDHpsxY0ai
WFSYOS3V3MwYF9/jERER6oNVFezduxev4fZoWXPQU8WKFXN7/IUJRBYZNVQn
AVIlAg10Aw2Ji58xSDoHsTJ2SpQoUaNGDfXUHDVBQ2iFRzkPGohbyZLydg9X
amaCO3fu9O3bd9iwYfrrAGzApDT0J0eOHHxrMvnsqUEwt34CSgKY5gQwc2DZ
sG8mO3wlJP4mOH78eJs2bTRRJzZwwIABiiUUd9I1bdrU+hDDa3To0KFz585O
nfmwdu3acuXKac5E+umnnwjQlPPGeemECRNczbnxbYsWLWiIfsvAoEGD+vXr
17NnT4KyUaNGKWuUIt1FnBfEtzRHvVxohYCZiG7r1q1+fn76yZk1a9akTZt2
5cqVbiTiDitWrDDkHh4B3gsTqFu3rsnld/SC2IRu43A2R/Djjz/SUn3KHCE8
fZcnTx6NehMdtG3bNl++fK6mfC2ChgcEBJhcfucW8PNSpUppbp0QNx3kypUr
OjpazP0aXqeYKARMLBQ2btxYPdWJbgQFBRneOmQdDx8+DAwMrFSpkpdxh+/g
Ss1MQFQrztNwpAKuSouJiYGV0S/EFCb5WoYGAau4ePFitAgDiDpNmzZt//79
Qp/NrZ+AkgDmUfAl7hrAYujXc0+fPl22bFmx6InNJOLGfhLLJ/zlGhISvgYm
hZGl2ZGEzYfSMCQVziDmoj0KTrHPrVu3dsryxMWfa92+fXsNjYEeZMuWTTEp
2Ae8qiuH+PLlS8w7DVEvGF27do12UTitVu5VUWbtli1bljJlSnFjJm6ud+/e
HTt2VFyPFQJmIjqEz7s054HjhjCk7dq18zJkFmdTa85ptwGEhgHEsJucxz5z
5swUKVKY3ELia9BGWqpPtBN1y549u4Zo7d27F88CxfVyvg5nQTkmGxXdAv/V
sGHDokWLqkV37NixjBkzimt0Xr9+Tbv0d+LEJRIBww+Kk2zVy1LiYHlNVpin
YGiHh4fD5B28LMxZuFIzE9y6dQubYzH93l5phw8fJgg9c+YM3yK9GjVqGJ7g
YWgQYM5YJ3FxA38uXboUc6cce2tu/QSUE8AMMzBNcPPmTXRGs01STKUWLlyY
ShLdjBgxgqHapUsX2F3iXvcgIeE4GMhE365ycTV7kYj7GC+uDuXWgxFNxOSU
5WFgMgahW+oPhU1Qbx/bt28fDtFVlj4jOk+ePGrCQyXrxUNM7wiypMTg4k+l
fJHDX6BAAeUUC4tXEbkSHaYMETVp0kSZXHr69Gnz5s0hga7OqLQOHCUEuFmz
Zt7PQGIqixcvHhAQsHv3bk1LeQtGOzg4GMPO66xPkDoLJElLEZ0+A41Op/Jz
585VuBZsoVixYrNmzfJ+Exbhea5cubw82ZIgxd/fX8nquXDhgkhRRjGQ56lT
p+CQSWcJMi5+zhyfq6RCMYhatGgxaNAg7+coLl++nD9//jFjxijtpWkXL15M
InNiJmrmClFRUdgop8aFvrQbN24Q+IjNhuhzt27dMHGGu7z1BgH9mTZtGuGJ
cs8poQQhISoXZ8H6iRLWrl2bOnVq9MH61nKBQ4cO5ciRQ7MFibo1atSoadOm
mzdvnjBhgvdmUEIiaUI5Y9MVFi1apH4eM4gLFkkpVgD16t69u8m6lUfA5vTp
00dzIfLLly8rV66MzRGeVGwoY0S7OuZrz549uEt1IRC2tGnTKqdAiENTlZQe
kQLRs2dP8ScWjFAxMDBQCSEtEjAT0eFZsKihoaGrV6/G4EAFqYwji7YikQzf
7UhSFiJt37494XCVKlWgLoSlNGf06NH169efNGnSmzdvsMMrVqxIrJRakWyv
SQNW8MMPP1DPwYMHU0mkDbE5ceKE91UVN+Ao7N020O2JEycGBQUtX74ckY4d
OxatgJURHE2fPh21N7ndOFEIGO9lKNWuXRvt2rJlC9oLZXIq0+D27dvQuU6d
OiEByg8PD0ev1FQZ18yrlWOiEQ4PGy7ROg5zNTMEKicOMHSkAprSxMGG2CjB
kcTlpMR6hlOIeoMgPmnYsKGYbBf7W5UUWXPrh0FA84l2FX+RKVMmyHNERITb
4UAFtm/fDsvCxaRLlw61V74S13X5+fnx/8jIyF27diXKph4JiaQGBilDtV+/
fhatPUOsb9++Tp30wngndtPYvatXr/r7+yvjlxpiE7DehmMW8zJgwIAGDRoo
9kEQtsyZMyt30MDNsmXLhpUTf16/fp3ylV3bIl2HEpTFQYsEzK3oYJJnz569
du2agwfjHD58GCPmZQKYBhj2xYsXi4QQfO6BAwecItjeQ0yeuLpwAZtPoH36
9GnrZ/C6BeE5dN0pigv5P3funJpr4R/RTJPJk8S9igjGFRUVdfDgQW9OsnUF
KCgjggGomVXjz7Zt26rTODds2MAgdVbPTWCuZhownOHP1oNWT0sTp6AoSfLi
nENXiSJ6gyBOpYBSCgUWG3JhWULmbq2fPVBJGDXVvnnzpjhGTx3CoE5Y4CNH
jrx+/Zp/ly5dOjg4OOkYGQmJRASDsUyZMlbyfDAI0JI5c+Y4Ffph8RiJmrEP
UyIEw1CLP0U2woQJE4iOV69erSEzuIly5cqpc9JE/KhOili5cmXWrFmxsafj
gfujQCWxfO/evRkzZlQfLWiRgMV5IjpHQNMwy+3atfv7xI+0FN8BM0yw0x33
7dtXvHhxpxbZbSDRL+NOeIg9mMqxxmISknFtmCPnC3ikZpCWoKAgw5MVbUBf
GgQGuqVmUJAZwzOfDQ3CoUOHMmXKpOR2iqPnCCh4EXby/Pnz5tbPBhDarFmz
MLliwV3MKFIHYcP5E+utLGGIP8WpQdHR0TBPeWaFxN8ZjHdCJPWMscmTmAKn
Lh0TU1UjR45UGxZhexm8Yiz/8ccfEKHUqVPv2rXr22+/XbdunWa0EnZ9/vnn
mqSC9evXFylSRCQhPHjwgHAM887wnzRp0u3btzFERGriPiC4U5UqVXr37q22
YNYJmHXROQIqD987duxYwrwuiYCIHl+suUXLR/jtt9/atm07bNiwRCQ/f0MC
dubMGUIkZRZITAF17tw5Ic9Ut65mJ0+edHs2l3XoSxNxbvfu3cWc1cGDB+Fj
hlcnGBqEu3fvFi1aVOyaxKxRVJo0afbHA6Ll1vp5Ckz06NGj/f391Xc53bhx
I0eOHOJiUMZUkyZNlBQ7YfaxyRjtJUuW0PW2Xy0h8dfAgQMHatWq5fYcLcK0
atWqebn/TsG7d+9atGih2YUnbG+GDBlq1qw5depUiNDq1aubNm0aFhbGcNYs
i2BMateurT9Sm5IJDDt27IhloARsUenSpQcMGDB//nxMOg4O+0OZ06ZNCw0N
nT17tmY9yDoBi7MsOu8hruqLjIz8u23cpsvoO3o/AQgJJB8+75SG28PfkIDN
mTNHnM4h/hRJCN6c/moDFtVM3MWjubDJNlyV9uzZM/gnVmjixIktW7ZUsinU
cGUQKJMIFFLHbwlmIV0NGzbEGPIwBtOt9fMUmF/I84YNG9ShMVXq2rVr3rx5
IbTYxlKlSqn3yxBcV6hQYeDAgVOmTPn7TOZLSLgC42XkyJHQFXPjs3nz5i5d
uji19yc2NrZu3bqaeyuuXLmSLVu25cuXExJikMW7qBU+UWNn+BA/NWzYMFeE
BGvz8OFDZRpfw5Hev39///592wexKrAoOu9x9OjRxo0bJy43SCxAvJs1a2b7
siqLwOvhmCwmAvkOfzcCJvLAxekc4pN169ZlyZIlKirq7Nmznh6D4A2sqBlM
qXv37pqN27ZhUhpq8Pjx47t377paoTM3CAShMTExwn7yFiyhmuOZWD9PAYNS
tk5oPr958ybVoP7Pnz/X2NLXr19Tc7n4KCEh8ObNmx49emzcuNFkUBDsKIej
eg8sAGGRhj6tWbNGfQKYK1BJ2CAVNjwbx0sIAkZ4+M9//pNgze2pzlZE5yXu
3LkTEhLiVNrJxwja3rp1ay9PWDUBLql///7Lli1LxAujqQP6htaFh4fjl/8m
BIzIqHjx4tWrVxdjmbisQoUKRYoU4R9Tp041vHbQd3CrZlCaWbNmObXpw3Zp
0iBISPzFgAGcN29eIs6xiAQwKwfDEhtC3nzBvuLiCdjkyZNz586dI0cOXIPb
y3DjfCw6cSqXU3c/fby4fv06cvDRCuzx48e3b9+eiOwrLv704JIlS2bPnh3F
8/I2pY8Ip0+fzpAhQ0BAQOfOnRl30OD169eXLl1a7PdJ+AV3n6qZI5AGQUJC
wnEQD0LApkyZ8jdxPRISf3OIJKhcuXLdvn07Njb24cOHYuy/e/fu559/lktU
EhISEhISEhKO48OHD6GhofqLXCUkJCQkJCQkJHwEcWy7R/cwSkhISEhISEhI
eIN79+4FBQXJw6AkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJBIR/wcLNCZq
     "], {{0, 107.}, {811., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{659.6666666666665, Automatic},
   ImageSizeRaw->{811., 107.},
   PlotRange->{{0, 811.}, {0, 107.}}]], "Input",ExpressionUUID->
  "254ce531-6579-4259-8f54-51025b312185"],
 ", FieldNumber = 6"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 
   3.7468413969638214`*^9}, {3.748965842889092*^9, 3.7489658441604424`*^9}, {
   3.7675394916634912`*^9, 3.767539491663562*^9}, {3.767539878499586*^9, 
   3.767539878665174*^9}, {3.768090016647354*^9, 3.7680900168572702`*^9}, {
   3.768090065528351*^9, 3.7680900736443768`*^9}, 3.8312224092379217`*^9, {
   3.8312225103666058`*^9, 3.8312225189495754`*^9}, {3.831222593717477*^9, 
   3.8312225937791777`*^9}, {3.8312230860362315`*^9, 3.831223086347166*^9}, {
   3.83122340849144*^9, 3.8312234088093843`*^9}, {3.8318212874620695`*^9, 
   3.8318212878057346`*^9}, {3.831823603428726*^9, 
   3.8318236039134126`*^9}},ExpressionUUID->"a447912a-1d13-41ae-b455-\
78071e7bf5cf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312225715423098`*^9, 
   3.8312225716225843`*^9}, {3.8312226140321136`*^9, 3.831222614108339*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"04e69f79-4f0a-4b02-981d-70f23aa20b99"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Am", "[", "mu", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.831222575357247*^9, 3.831222614461128*^9, 
   3.831223506718525*^9, 3.831223540075242*^9, 3.8312236315357523`*^9, 
   3.831805885217389*^9, {3.8318235376013265`*^9, 3.831823563447502*^9}, 
   3.8318236198691216`*^9, 3.831828157152676*^9, 3.8318397884985185`*^9, 
   3.832947500878239*^9, 3.8329617854605*^9, 3.845826876723477*^9, 
   3.845852468588221*^9, 3.8458570789177103`*^9, 3.8459196252645164`*^9, 
   3.8460065775618706`*^9, 3.846099888746871*^9, 3.84747045031184*^9, 
   3.851700635693165*^9, 3.853975451843589*^9, 3.8549774102618585`*^9, 
   3.8549892651196423`*^9, 3.854999902264835*^9, 3.8551652507918544`*^9, 
   3.8551823202010517`*^9, 3.855185864668583*^9, 3.8553306411315327`*^9, 
   3.8553398466271496`*^9, 3.8553431839347053`*^9, 3.8553440178717704`*^9, 
   3.855352745115505*^9, 3.855449609353239*^9, 3.85550761116776*^9, 
   3.855508408035029*^9, 3.855512895723373*^9, 3.855533326995377*^9, 
   3.855578921270223*^9, 3.8555932936637716`*^9, 3.8557506062687635`*^9},
 CellLabel->
  "Out[275]=",ExpressionUUID->"dd6c229e-572e-475f-b6b6-412b4b2b6418"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"sigma", "[", "2", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"CommuteGammastdownstupdown", "[", 
               RowBox[{"mu", ",", "nu"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], " ", 
            "+", " ", 
            RowBox[{"I", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Gamma]5", ".", 
                RowBox[{"CommuteGammastdownstupdown", "[", 
                 RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"B", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}]}], " ",
            ",", 
           RowBox[{"{", 
            RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "-", " ", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"d", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "-", " ", 
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "ld", ",", "kp", ",", "de"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"ld", ",", "kp"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, 3.831222631982333*^9, {
   3.8312226673263197`*^9, 3.8312226704612937`*^9}, {3.8312229112856684`*^9, 
   3.8312229258835363`*^9}, {3.831223098749104*^9, 3.831223337077551*^9}, {
   3.8312234382368727`*^9, 3.8312234564921618`*^9}, {3.831223521847991*^9, 
   3.831223522905406*^9}, {3.8312236265577116`*^9, 3.8312236269345393`*^9}, {
   3.8318234500562487`*^9, 3.8318235286864443`*^9}, {3.831823559287733*^9, 
   3.831823559553809*^9}},
 CellLabel->
  "In[276]:=",ExpressionUUID->"46249d89-320e-4ce8-9d81-e5d68432bab1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], 
   " ", "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.738583987798254*^9}, {3.746795246915931*^9, 
   3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, {
   3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 
   3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, {
   3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 
   3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 
   3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 
   3.747486056829548*^9, {3.7493830494673615`*^9, 3.749383050607041*^9}, {
   3.749383130633822*^9, 3.7493831323038206`*^9}, {3.7675393683993883`*^9, 
   3.767539368965523*^9}, {3.8312227380231514`*^9, 3.8312228069258747`*^9}, 
   3.8312228644057198`*^9, {3.8312234885720816`*^9, 3.831223493369345*^9}},
 CellLabel->
  "In[277]:=",ExpressionUUID->"e74a8908-1113-4935-bf9b-5b556ee28bc9"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.751405324826857*^9, 3.751566887006461*^9, 3.751727185490629*^9, 
   3.751734096141694*^9, 3.751737168081163*^9, 3.752250147466023*^9, 
   3.752256220811919*^9, 3.7522656173424673`*^9, 3.7523217125262628`*^9, 
   3.752324518723379*^9, 3.7524081675889006`*^9, 3.7524944970227137`*^9, 
   3.7524967017587833`*^9, 3.7524995173695784`*^9, 3.7525365544443827`*^9, 
   3.752537933700184*^9, 3.8312235071799235`*^9, 3.831223540368003*^9, 
   3.831223631796571*^9, 3.8318058853440533`*^9, {3.831823537866927*^9, 
   3.831823563689347*^9}, 3.8318236200253735`*^9, 3.8318281572494984`*^9, 
   3.8318397886173644`*^9, 3.832947500987588*^9, 3.8329617855755672`*^9, 
   3.845826876887267*^9, 3.845852468718156*^9, 3.8458570790378513`*^9, 
   3.845919625391341*^9, 3.8460065776816783`*^9, 3.8460998888923464`*^9, 
   3.8474704504524384`*^9, 3.8517006358337965`*^9, 3.853975451977013*^9, 
   3.854977410418442*^9, 3.8549892652428827`*^9, 3.8549999024211087`*^9, 
   3.855165250932478*^9, 3.85518232032603*^9, 3.855185864801443*^9, 
   3.855330641287772*^9, 3.8553398468614645`*^9, 3.8553431840909185`*^9, 
   3.855344018032962*^9, 3.855352745266625*^9, 3.855449609497039*^9, 
   3.855507611292371*^9, 3.855508408160664*^9, 3.855512895866987*^9, 
   3.8555333271272993`*^9, 3.8555789214320164`*^9, 3.8555932938262577`*^9, 
   3.8557506064093904`*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"04002f26-42b5-4689-80fa-ce3b42827a7f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdwFdX7x40U6SAQakINCKGJKITeDTWBUKRLD0mAhI6AFOlILyH03kMo
CsiIoiBNYOh1MCAOKDJYBmXUUSfv5815f/vuf3fv3r17994EPd8ZnXDv3rOn
POX7nPOcc8r2j+8YlTlTpkyjcvC/jv3GNR05st/4Tq/wjy5xo2IGxw0a2Dpu
9KDBg0bW6Z+FD+/w3yb++H//TpWQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkPjP4N69e8uWLXvnnXdGjhx5/Pjxf/75R/PA1atXt23b
9tdff6VL9Vzh2bNnSUlJsbGxAwYM2LRp02+//aZ54Kefflq9evXjx4/TpXoS
EhISEhISEhLpgl9//XXKlCnlypWLiIh4++23g4ODM2XK1Lx585MnTwqi+/PP
P8+ePZtPLl68mN6V/f9B3Q4cOPDaa681aNCgV69eoaGh2bJlK1269Jo1a37/
/XcegI0fPHiwSZMm69at+/vvv9O7vhISEhISNnHz5s2wsLBatWrNmDHD/2/H
g8yaNat27dotW7a8deuW/ysgISFhAw8ePOjSpcv48ePhseITmOGHH374xhtv
QHQLFixYsWLFQoUKDR8+/MmTJ+lbVTUgsRi6Dh06XL9+XfkQG9izZ0+Ibvbs
2al2kSJFmjZteuHCBVeFQJITExPLly/vZ+pOn2Mthw4dmpCQkNFmxf/LMB+X
H3/8cdGiRXxLuKdfLPAFNHEZ4iojNQWarvCRHj19+nThwoXx8fF+G/QMhePH
j0+YMCEmJubEiROar+jwPXv2jB49Oi4u7u7du36ozOeff16uXLnt27dfvnzZ
D6/Tg/du27YtODj4iy++SJcKvBDAmU6ePDk2Nnbfvn3pXRdnwLjToujo6AMH
DqR3XSQ8xsOHDw0tBhbs1KlTixcvXrt27TfffOPq5/j9Vq1aQSz/+OMPX1ZT
i+fPn588edLwpV9//fW6detgI2fPnnVLCQ4dOjRt2jSF3vsHz54927lzJ4HD
yJEjJWnxNZATPOOmTZs0n+sDHPNxIar66KOPypYt27Vr1z///NPX1f71119b
tmxZrVq1Xr16YV3btWtXu3btS5cu+fq9LwToh1KlShHADhw4cMCAAWId55df
fnH8RQw6JgJW07lzZz+bOB9BzEZWqlQJO6n5CkcQEhKC5VSy1LD8Y8eOzZMn
zyeffKJ5mGeuXLkSGRlZsmTJlJQUP9QcilurVq2ffvrJD+9yBfwddZAU1wTf
f//9vHnzcuXKtX79+vSuizOgRXPmzKFFeici8a8HrGD69On79+/X5+5KmABz
XaBAAQhVelfk348bN27gpm/fvq3/Sh/gmI/L9evXixQpAgfwVV1VQLOguDly
5MiUKRMcA16tXrD4j+PChQuBgYFZs2alc4KCgqZOneq7KPXmzZvFihWbP3++
j8r3MzDUu3fvxmUTQ2m+unfv3rhx4yCuyifw4fHjx8PwDWc5nj9/3rp167Cw
MP/Mb0uK+6IgMTExICDg3xSPL1u2rHDhwmrVkJCQMAFxLn4T75neFZH4PzAf
l61btxYsWFC/aOsLQHFHjRr18OFDmcqiB95zypQpf/75px86Z9euXQz6f5PV
QIObNWsWHh4udjdocP/+/TJlykyaNMk/8xuS4r4QQCX79u1LLz19+jS96+IM
sDM9evSoU6cOo5/edZH4PyC4Xr169ZQ0rFu3jqA7vWuUUfDo0SMs88CBA8PC
wm7cuOHqmblz506ePJneO3TokINm/I8//ujYsWPDhg39nCDhPb7++uvZs2fT
IVOnTj127Fh6V8dhmI/L33//PWzYsMqVK3/33XfWy/z+++/tBTIKxbXxW9vA
K127ds1vr+Nd9jL8BcV1xW9xSefPnzdkZZ6CQR89enSlSpWwBt6X9sLh7t27
gYGB06dPN7R+WMUCBQp4lKCIijE09vJ8MibFfVFUxhwOtuKHH36oWbNmVFSU
Xj1951J9Cmx4tWrVYmJi5GxDRgNDExISEhoaGhkZOX78eJymg4V/++237733
HtHNmDFjXqyNGBhJ3Nb169fhKlWrVkXjDHUN8/7OO++0b9++TJky/OGgeMNb
Xn311eHDh+NAU1JS4uLiOnXq1K9fv4zPeD/88MNXXnmldevWUMHt27end3Xc
ABI+cuTIdu3a7dq1Sz3ErgIc83Hh//Xq1Xv77bet52QiY927d7969aqNyguK
+9lnnxFNjBgxYuPGjd7r7+bNmyHwCkV/8OAB+nv69GnlgV9//ZXm8y5fex/K
37Jly9ChQ+01CoqL8dm/fz/GB8vGQKtzp0Xh8fHx9rJzGd+lS5cy7tHR0QwB
lObfkYhLExISEmJjY3EH6rwdPl+5ciXd1aRJk61bt6qHPjk5GRL78ccf8+Hh
w4f79OnTsmVLCvknDUimR4m4jDXStX79envSpae4z58/79+/P9qhGOePPvqI
T2zPtn355ZeNGzd++eWXESpFomjgm2++KZKX9BT3RVEZc3jZCiwn8oO+DBgw
YOLEiQULFjRMxLXnUkXW9/Llywm16AH/n/956tQptIDO8fN7JdwCivvGG2+g
9Ybf4rJR5K4ugO+DHuATDc3F77//DjO8ePHipk2bSpQoYZjo6CMg8NQK5mBY
7W7dug0ePHjBggUmVTpw4MCOHTtS0076LVy48OLFi81f9+677+LvXOnj8ePH
e/fu3atXr759+w5IA3/wT35y/vx5w5+IhE8o4ldffYVBuH//fpcuXUqVKsUf
HnREegCKi7VHrqw8jIDp8/30IOqHUcAl9uzZY7LQgGGfM2fOsmXLLPKWr7/+
moF78uQJUgHLVSiKSYBjPi4iEXfhwoVW3p6aFgOGh4fr9+lYBF3XoUMHuoV6
EkLyR/PmzSnTXmmpaUwGxt6oUSOlAzds2FCoUCEaq34MD8Jjvt47jFHC03k0
H64GlgemgfFBYBhoaMmECRPULBRtxSGOHTvWU2pK56DORHCCSuFYs2TJgj2x
V08boMJQd/gGrzaZw0do4Z/wfOu2Nykpac2aNXRX6dKlExMTxYcQuRUrVsBs
//zzzyFDhhDEKRxSJOKWLVuWnyAqPHbz5s2goCBsLw+LRNy33nrL4vwG7UIf
UTfbWzX1FFdMMs+YMUOoMK9AYdUSbgNHjx4lit+2bZvyCTZHURPDRIUXQmXc
wnYriDdr1qy5ZMkSBAZhwOhBcU1OvXDrUtUgDIcM8zCii4MgpA0ODp45c6bt
NRqaSZjQs2dPiiUawl9TOCrPJ64OF0UAAgICZCJuBoQ5xUXALly4gJsgMM+U
KVO+fPmQ0hMnTpw8eZJgFjOLIL322mu5c+fGkGqMxq1bt8QpOsiJ/7Nu7t27
t2/fPhh49uzZqTlS+umnn55MA4xi5cqVERERROJt27Z1lYQgAFWG0tBYk2fc
6iMMDdtL0Aq7zpw5c9asWVEcepWedDWZMG/ePEGt6UPRsWfTkL4LNyJ2YDSx
JK6esUJxcWE4UAQP4aGZxYoVGzRoEJbK8GF6le7Nli1bpjS0adPGlQ2nbuKx
yMhIK8wZJ3Xw4EHYKSYR/qPYLpMAx3xcoAFICxGN21enps0vITM4dNsnZvDS
lJQURepoSLly5WA+tlcT4EsVK1YcMWKEqBLloDjVq1fXz4qgEfXr1/ddojis
rG7dut4kumB51BJFVAItOXTokPoZtA8L4NG2bvocvoQ7O3funPgEUcFfWxx0
R0ArihYtKtShZMmSrnoJ2ShTpox4xorzRSCnTp1KiERf0SJMlvj8m2++IRb4
LQ0t06BQVpGI27Rp01mzZmET6Bx4BTolel4k4uIaLFotTGJYWBjW0srDhtBT
3L1796KSR44cEf8UqzDx8fHeKN3cuXOJZJWtnbg2dAHbLqJvV7m4GV9lrMBG
KxiOpmkQBhPjD12sXbu2yUS6dYpLITymafX58+crVKiASbdnCYmDiFZ27949
ceJEjAYaRMdCYj/++GPD9QiRiBsaGioTcTMgzCmuAsgDxAzjoJ8jYnyXL1+e
J08eZFg/pQDRJah///3304WbQXQx71BZQ0p2+vTpSpUq4SwUA6gBChIbG1ul
ShXzuNi6PqI4qAzxvvm8ikj4RLPQU8LGjHPaMB6NUYZGrl271tUzbikuhcTF
xUHthMXD12zZsoVugTryW1e/wk5C3sQGeUJs/TyP4B5EEDxAzHX06FGLjSL2
Z0TUa/EKNAGO+biIRNyQkBCLOZmYUFyhN5OuGojRgaPazs7VHBZBAzEOPXv2
1Pc2ok5jCUx8sTpPmVFRUTExMQ4evHbx4kVkTJ/+RziDuGIoLJbDeGEGW7Ro
IdaCGXTiaP8n4tIKqDUqgzQSgxhKESKNYAsmPHr0aIslw1ER8gYNGuhzouil
UqVKqRc1xBwpSteuXTs0TjNeIhF3//79Vt4LH2YgYKQW62kIDcXVn/YAF9JM
wHoKsdIBzRP9Q1csWLCAblEOV3dFcV84lTGEjVYkJyfnyJFj/vz5QmwIYWrU
qDF48GATd2nRpfLY0qVL69Spc/LkSc1XMFIG2kvCj4dq1KgR6rNixQqTx0Qi
bnR0tEzEzYCwSHG3bt0KscG2G3pPJG3VqlUwSQJ8dQTN54sWLSLgTa8rzzCb
pUuXdkVxU9Om6cqWLVusWLGzZ8/qv6UtqI9YdDN5i6E+osgPHjzQyDzRpeBy
d+7cUX9O+TzMWAgjICbTIHKXL1+OjIyENfkzzcMcuLlr166ZBCxuKS6iMmbM
GI2FhDEiYOXKldP0jBrCjGNwcNyuJIqQKiwsDCYMO7XQmv/vaNm33npLn72m
D3DMx0Uk4nbp0sWK8ccPYjxnz55tO/QTh5e2bdtWUcnnz59DvUqUKGH7DNIP
PvhAfVgEnUxXE8AaPowwQx5sZ1mY4MSJE+XLl9dkR3gEtA+eNnHiREVz0fSC
BQvyoUaXGXcEBoG0OK332WefEc5PmzZNDBxOsHHjxhYHXQ+oF77Y9j6FpKSk
nDlzvvTSSwp/0ACZhJGiWV27drVY5qVLl4j6DQtEtaGs6jgURopB27dvHx8y
ZNhAJY9IJOIGBQXpD9fVg4epJ9Lr5cHFGoqrOe2BtyDhtM585c4cxDIoPkG6
EBjajouBxSkPmJyokJFVxjo8agW9NG7cuPz58585c0Z8cu7cOazKhg0bTH5l
keIyrG3atMEj6I/swEkFBAQMGDDAIu1EVGALmrU/jAPajX6tXLlSU73Hjx+j
vMKYiERc8xZJpBccobipae4Vp084P3PmTEXYMLANGzZs3749ogKHsT5V4hTc
UtzUNMYFI2ratKl+H+6VK1ego8SJ5m/R6yOqN2fOHDFhq7Z+hhR3//79KGPu
3Lkx8sLZYah5jD7n748//hj1wZXQmWvWrMn4R16YU1xa0aFDB5qjsUjQyMqV
KwtnbVL49evXixcvjk2D3bkihxcuXMCxHjx40EptT58+DfNJTEyEFBGqq4mK
PsAxHxeRiLtgwQKiFT4xN614Rvi8NzuUqSoaV7NmTUWt8K2hoaF0vr2kIDFH
rV5uQ2dp78mTJ48fP66fFUdWUW2ciLMTR/RbdHQ0tMSbDaroFzJAhKIMKBwg
b9686i1CChh3ZM9VnowGiHe+fPmUfZSEVAgkgw7zcTvoekCY69evbzt5ki6K
iIhAHXDErsghtrd58+bEZVYKRKdg70RJkEDGXe0XBAvFnCryJuZIy5Qpg5nl
7+HDh4sVBCIjekkk4sJa0SNsrHnmEr+qXr06bN9y042hobiIQWBgoJIpISS8
bt26T548QbbtLXagCyj+tm3bKBP1f/3113fu3Km2RSYUNyOrjHV41AoxUVC2
bFllIh26iAe8fPnysTQY/sr6LC5MG1+gly70sVKlSq+99prFrWfYtypVqsAE
RowYoThZQ4qL/CNCfNiuXTtxZ59IxCU2pDJKeo9EBoFTFDc1zWvnyJGjQoUK
ypYoPDhOf+3atZiaCRMmWEmPdBZWKC4tIirnGf1h/ps2bcKaEaOZv8WVPop9
KGrOoKe4EKQGDRoQGsydO1exk/PmzVNyvbCi/A0Tw7TiizP+ISrmFBf7APeg
vYQA6rbgfdq2bYuz7tWrl0nhxA5dunThMXiyq3kzzE69evUsznsvXrwYJ8jD
u3fvJgxXV0kf4JiPC3SF5w8dOoQgbdmyxeSlIncLAuClS8LPQqvUW+GKFStm
+3odkaYIqxcMgZGqUaNGcHAwf0yfPt0wmXPJkiU4L2fvZuV1kH9K9qYQOhaD
oxwsDwGD59A6Q6m4evUqMmBxNzSaW758efEwrhDqmDNnTuwn8mCj572kuGD9
+vX4ZWi2q+UP1IQwDTmxUhotCgsLEzvpILTqEIwu5atWrVopBEDMkSLGfILp
i4qKoi2EV+jU2bNnRZZLXFwcfc5YmMfm6AtDYO9cETU0FDc5OTl79uxKZgX/
JMzp27cvfsG2PyKcQfEhM1B6OkpfZ/NzcTOsyngEj1qBiGJGxGR+SkoKQQFk
kohy6tSprq6q8Wi7mSFwQLxFv2BqAoYSPSKAVfLq9RRXxIA4IMJGJdFu7Nix
1apVg8NjZIh57VVYwkdwkOKKTC1I3erVq8UnmDusYp8+fYYNG+bPgwEVWKG4
8I1u3bqJPUrqPZgoV0xMDKLr9nAAV/oo0v8KFSqkrIvpKS5WokSJEnyorDFR
SP/+/d966y2hQUSj+BHMMs7U4kRT+sKc4uLNsTz0trLUK4AjhrXyOQzWvHxc
DI+ZhOebN2/u2bOnxenuEydOVK1adcyYMfhBTa6CJsBxOy40GXfPq0eMGGEu
MyKf09VRotYB65g5cybO+uOPP164cCGKDCG3PUF07NixPHnyIJw04f333x8y
ZAi+qXLlyjTwgw8+MAwozpw5ExAQ4OzRcElJSVAIZVnTNnCp0dHRCQkJhw8f
pgmwL1ebRkWYSWxlpesYMrqladOmU6ZMGTBgAELSokULDAiDbiMd13uKe/ny
5YIFC+bKlYtmGj6AhaG2FvcH4a9RTHpj5MiRYqJS+QpyUrJkSWiJ8qEQY2RD
fEIFiIngtESvSAv6QhfBEOh883sQxK5GR84AV1NcsUSO24JfjU0D9YGE8AD+
CJWxUb64s6BixYqUjGUwTG4xp7gZWWWsw6NWYFcJf9CR8ePHx8bGEh5iVRgC
LLkrjfOU4vIKOAyx1Y4dO4QaQjjLlCmDATc5t0EDsZcB56KsJugprlg74xn1
avWnn35as2ZNWkQFZDpuRoODFBfXj5li9N955x1FdCGN2EZf58C7ghWKi6BC
Nqg2gTB6QW3XrFmDmaKlkDEre29d6SNOVkSFyl1XeooraDAGSh0RY+rV83uo
VTr2YWpaA/fv3w/Ba9euHYpsfuii21xcOhnvoGkOHV67dm1GgZ40r8zBgwdz
5swZGBhomHH6ww8/wELVySFuQSCml2rDAMftuNBR0BW3I3XkyBFsr6tK8mpY
OhyeaJFmzp49W0PXMdrKBkneiCzhaw4dOmSYn2CxNLFPvFixYtevXydWFUvP
qWlGns5xRcXFxO+oUaNs70/XgHLgiiZ25smTJ3AV1Cpr1qyImTiOVfmWv9F0
RTAYICSN5uORTXJl6aKBAwe+/vrr1vfy0y23bt0SETHDTXfZU0/vKS7ySYzG
4BqmAorpa3iF9erRh2ionm0eOHAAoVUfScGT9Jh66NFizcY32KZb4kqsCjdm
CFzRA8xmREQENJ4QrHv37pqDEymfIRZSraa4jBGMJTw8nFrB8BXtoLf1OWke
KZ05zCluBlcZi7DRCpgnA6dksJtniVinuAwr4QYchuCL0cf74LL37dsndnYX
LVrU+oQ5OiLoq5LZq6e4ggbziTKPJ4B5sXhOpoSf4SDFZZSxJ0iI4W7cdIEV
ipualo6L0ObPn//LL78cMmQIJg4FgeEgzIYXr2vgSh8fPHgQHBysnmDRU9yT
J0/CgUuWLOn/RGXrwHQQgMPuaAi9ZB68e3QurvoVefPmpXPMz2dL/V9QgLfV
LxFio7C6YWFhtsXPRoBjAwkJCdTf8H52WBMOK3PmzAgtXgmHy9/qg8XQsilT
plicmrBempid8PS8UGHwrR98aqXCbdq0oUzDRWR0BPKAhUEIxVkB6rOtxANo
oo1z7+fNm0dR3i+UewrvKa4y9bRo0SL9t8SDGG3DvbRWwLBu2rTpypUrIuKr
Xr26L/w4/BOT+MEHHxh+C11B37HP0BVsKS1t2LChOhjZu3fv2rVrBSdRU1xs
bIkSJdSzba7grNKZU9x/h8o43goNLFLca9euERy1bNlSHVhRNwZrxowZUHqi
P+sSK6bo6SJxs0+qEcVFtOrWrWt9O7NEusNBigvBEHmSPrKENmCR4m7cuBGh
xX4eOnQIez5hwoTBgwcvX77cIlNypY/Y4ddff523JyUliU/0FFfMSVrPijcH
CgjBQyUzWQYP4zJMziXDiI0ZM0akGMHNMP7m++9sUFw8SP/+/anM2LFj3Ybt
t2/fDggIoBv1t2bQzzg12xuWebWNAMdTiGOmgoKC9EENgoQtRcsIIsS0G+5y
3LhxZcuWVfJ8qJvFs/E9Kk0sOo8ePdojSs8Pu3bt6tH8pznEgUJvv/22voF4
LswL7kw5TINWNGvWrEOHDsLP0l501uIRVRrgsIg0fbHV3RzeU1wliV1/OgfW
D1NsRadcAV3OkyfPihUrECHEw+IWTk9x5MgROt8wk5khDgkJQWiFgaIhu3fv
xqRjiMQDmGi0ScngUlNcbD6BpNvDA51VulR3FPffoTKOt0IDKxT37t27lStX
RsL1VpqwiK9Qivbt21s/6gTTN2rUKH6FMxLv1VNccT4YVMFeoouE/+Esxe3U
qRMSUrNmTR9JvqewSHE3bNhA5O7RYapquNJHcYIiHTJv3jzxiZ7iYmHQoI4d
Ozp1WCLESVzMYRE8jK0wmejAvMP5xV1FERER1N886csGxcXGYjR69uxpZTIh
JSUFFpo/f37NSbbEJuXLlzdx6FZ62EaA4ymoXp8+fbDAemJD0yIjIzUbu+h5
HO6CBQsYI/6eNGmS2/2PNkpDBpo0aeLpdmCxXRoVs3jpnqAoREzx8fGGC4hw
lXLlyhle9b5r166BAwdqJpkxR+3atRNHkvLbYcOG2Tt9HaHNmzevOCvDn/Ce
4jKInTt3xshozh5HlaA9oaGhhoXjza3c/QRXnD9//tChQ8ePH++7cwt37twJ
xdXfmYXCxsXFqTdUChw6dIimCVuB6Vi4cKF6xyXGAfGGYRK2hIeHuz1U3EGl
4+Hjx4/zK+rgiuJ6qjKpaetWVIBf0UV6Q50uKmOjFR7BLcWFouNb8eyGRxzj
15AoTcasFaxfvx4mQBQgpsT1FPf69eu4b8bX2Q2DEr6DgxQXm9m6dWvkytWi
if9hkeIKngl5s3d+r4k+rl27NmvWrETNIrNLQ3HpMWw1D2iO3ctQYMRFptal
S5eoefPmzb3MxdXgxo0bUFPIs0VLK/YR0I3K9VKpaYuShPMInj4flUG5devW
xIkTy5Yt62oDrz8hIsEaNWro5+3XrVu3evVqvU2m/rBuuv3atWtweIs76Zwt
zRBi3qNo0aJWzj5N/d9V8gR0ro5LFfGLcr2aAjwarNjwVAfi02XLllEy7TU/
yMIEn3zySZ48eSweO2ADtAtuv12HyZMnV6hQITExUf8VemQlyEKciA01x+jR
XQwx2qpP+8EkDhkyhCFo27YtcRYV0Cem+hnwCuILfaYrlgECpnclmE0+x1aL
S6vVe9ghHr169cKYWD9/zEE1QWgTEhJ4e+/evV1phKcqk5rmo+fOnZsrVy7D
Qz/SRWVstMIjuKW4sP2cOXMa3kWVmrYukDt3bv00iFsQx2GaSpQoIbZn6iku
XQcRIibK+Kd3Sgg4SHFhF3AbjO3IkSN9kcFoA1YorjjdkWrbXnYx0UcKDA0N
FYeLpuoo7pkzZwoVKlSzZk3f3SruFGgjETERrrJE6AoeUdxHjx5hQ7p162bd
z4pjxwoUKKBY7wcPHtSpUwfh1DPYJ0+exMTE4NMJJQzTd/2PP/74o3379oYr
HXxiOLfGh6NHj8abLF261NXGeT2cLc0Q4sAcj07mwTVArlq0aGEYBUNR8Jv6
fAn+iY4YTshARdA+GovPtX3FmLjQYdWqVfZ+bg6qDZFo0qRJfR2qVKmSPXv2
WrVq6b9SptrMoaSHLViwQHyCgDEoEACoo6bHUAd0Qckp/eKLLwICAmDI/jlP
1RVgmHS+4cHLrk54huzt2LHj7Nmz06dP93IPux/URA0bKpOaliHGSBkmA6eL
ythrhXWYU1xknq+QeUIJw+wRhgxe2qhRI09X4mjXhAkTxJoIf2sorriJmHDM
rTwQfxE8xsbG7tu3z6MKSDgOBykuCghhE6dEOl1Nm7BCcXG1OFxxLaxQKLfL
qRqY6+NXX31FHWrXrk1l1BQXYlavXj0CcOW8hYwMca1AyZIl3do06xQXi9Gp
U6dBgwZ5tNlBmHRlqyxmvFmzZkWKFFEOM9SDAZo9e3YGobgijc2jfRAY2/nz
5+/fvx9HZu9aBx+VRlHoiEebJb/55pty5cpNnDjR0PmKG7fRROsxstgwnpyc
vHDhQtuRNT4rX758/t9C4kguLhFT5syZxRQ00oV3xlYbcj9oIbEVLxX/5OG+
ffvmzp3b/0nIatDt0AaPEn1RdmQYpXa7O9U2nFU6dbGeqgzDBJfDgxiuc6WL
ythohUcwd6likwsybxiTEptERkaiAvYWZehkfo6bPnDggLi7UFBcFI0qEZAi
dW6jKmz7vHnzcuXKRZhpow4SDsIpiivuRkTqlCORMwKsUFxoZ0AalIVvt8up
GrhdVaEQbBTOhWcIAbDncXFxdCYEz5urJPUgaKVMAo0CllGwYMG2bdu6teE4
QVyhOA6O9pos01ikuL/99ltMTMzw4cPVRfEr85SS1LR8CaodHBxMjHD79u1a
tWoRMpif55OhKC5CMnjwYFF/679at27dkCFDMOmO3P3hVGnirGDzyFcDcSuc
q8kNcSdRnz59rE/NIT8jR46MjY01PKHCIghpobgenTXnCBw5UYEQD+O8c+dO
/saw8PekSZMMM8+3bNnCt8ptX/wfPpwlSxbkwX4bvAY0ks7ftWuX9Z9gNlGi
UaNG2Tg9wzqcVToBGyrz+PHj1157LSoqylAp0kVlbLTCI5i7VNx6qVKl1Kdx
qoHvLlasGBzY9p53fBP+gj7v2bNnhQoVMmXK1K1bt6ZNm1ImJsJiUJCYmCiu
PLNXBwmn4BTFvXv3Ll4b55WhLrBzS3GJ+Hr16kWYNnnyZLU2mS+namD9Qm3i
Sihunjx5MJ5u90HYADWBseOvd1kGD585c8ZcbcWRQQSwe/fuTU1LuTfZX2yF
4vLbqVOnjh8/XkOV8fjYFvM2iuPFENpDhw4hckWLFrWyaTrjUFyR8qG+EMQK
1q5dW716dacCIqdKE9v59UeNYSXi4+Ojo6MHDBiwaNGicePGicl/cQY1AwET
E9kjiIF6lZxyKK1Vq1ZWNkMpdejatauXq+34I/X1K36D9xSX4JQoD5OSlJTU
uXPnrFmzmugmiky4rbBfceeC7W22TuHcuXN0vke39+JuqlSp4rvcaQFnlU7A
U5VJTctno3969OiByvAtoq6eeHFEZX744Qf8F4pZu3ZtZbqDx+DVhhf1umqF
UzB3qeJUXgikfgskz8PecbKacHXz5s0NGzZUFO3Bgwf0p3mmLnXAIISEhEBx
iad4l/VIR5w/hmI6OP8vYQ+OUFwKCQsLQ66cDXjhXdu3byfYtH0zmgj3XFFc
NBeyQbuQdo2qmi+namD9nGqRqIBu+iiFyUdgfDH1KPujR49oLHzA5JwZtxSX
YaWEadOmaWwy9hbSqzlSW4+dO3cyZFDE/PnzE60rq64myFAUNzVtvRgx8IhX
LFmyBEJo3Yv5pzQMONZDkxF36dKlmjVr8goGmjENDw9XDgEmomnXrp249oJB
+fbbb5Er9RSiWJP16EgWymzfvr03bId6or9ly5b1xRlx5vCe4ooN9WhEUFAQ
/Pb999+3fsvDlStXSpQoERkZmb67g+l2Ot+jA+vwCAiery9LdVbpBDxVmdS0
RNwsWbKMGDFCXJQ8aNCgbt26KZMDTqkMP6cQeK9SMToZA6vexmjeCgdh7lLF
Ne6GMemnn37K58OGDVOvYoijjdSEfMOGDXgQtyGtfruZRYjOdDXxLuFPWKG4
yNuCBQsYaP0hIT///DOcpEyZMoGBgUlJSYaE8PPPP+/Tpw8RKLqJtqIyFudb
hOkjhoI/2zPCWAkkGfuvOQ4IwTt27FjLli1hv2PGjNEXbr6cqoF1ikuBBAL5
8uWzMtcNDYbeEz+OHTs2Li7O2ckEj4ALrly5MoYXW0Gt4uPjTU4/MKe4YuuN
OMJdDzpHfX2SIcQFvqB8+fIWj8/KaBT3+vXrRYsWXb58ucXnqT9a49RqsoOl
3b59G46kPidZ7MgAwpsI/4uFEWsWInJUdn/zIV/hr9VlLlu2jM6xLu28Eb/s
DdsR6aytW7fW2CU6CsMo7h/HShCUOb4s7sgFvgi20B2P7g9FhSMiIvDgtvfo
OQUYF53fpk0b67vUT548iTdxlnxq4KzSKfBUZcQ/lQNYxD6vUqVKqR2xIypz
4cKFggULKnPpvGjy5Mloq6Fm6VshgCedO3curnDkyJH4rN27d9ub8nLrUnHf
UFmeUT9w5swZCEP//v01Dv3hw4cVK1ZUzI5YvCC4dnsWPfFj1apVUa6JEye6
1Sz1PDzP05kyETcjwJziomXt2rXLkSOHmoQgRbALsUaMmPHzOXPmGIaQCCoE
uFq1aiLNFYJRvHhx5dA5t+AxtDt//vz16tXzaIIFSZ4xY4a4zEWAKDgoKKh8
GviDatMKpNEwVcbtcqr+eXN93LNnD+9VdyPInTt3lSpVDKfyKDA5OblSpUob
N26kLTAiTJySQed/UAesPWHpwoUL8SzmRNGc4op5dVf3UGAWzGfsxTaHTGk3
6Fk/ryajUVwCw4YNG8KdLM6B4MqjoqLUh6R5AwdLI6otVqyYuijkFjmfP3++
kFVxLr1yNyuRI6qnLKkwgoTGeFt1madPny5cuPDOnTst1gEX3LdvX28WTMW1
F5qrE6Bbo0aNCg0NRWb4HE1Ebk22NNqD9xT38OHDBIz0GOGzdfuANWNQIJaG
Zy75GVSb8AGHYt3Ir127Vhxa67taOat0CjxVGZGIC2sS/yQc69ixY+nSpdV9
5YjKwMewkMraPTVE4BctWmTYyfpWpP7vbG0cBCXju6kzsm3vnGq3LpUHNm3a
BAPBikKkMSmDBw/GyRLl6QOlzz//nKYp/SMia/V8tQYwW/wLlkrtm7JmzVqy
ZEn1nXdq6Ofh8WUWr8OT8CksJirYw6lTpwICAiDAQk3EHM64ceM8vUEJA+ij
I6YN4XY5VQPrs7gWcf78eWIBOK3oKFgfVN/TI/6cBW0kcqcObmfg7V3gaxFi
TgP775HlzGgUV+zNrFq1qsUJNIQfNuLUMrpTpSGcw4YNU28v5RO0m5hUuRwE
J4iph5CIf+LH8YzKvNCBAweEc1cX++zZsxYtWhB+WtSm7du34928WTA9ePAg
zku9ainWrZSdBfxz8+bNRLuO5897T3Fx9PXq1bNyvJgC+gpPHRMTIwYOEpXu
l1Fi8RgCi9dsUX/Ip3VGZw/OKp2ADZUR5xQpRwdgMUJCQjSHk3uvMvyQn1er
Vk1IAm2vVatWXFyc4Ty5vhWpaSnBdFedOnWEjlAlIsSEhAR7JzZYdKkPHz5c
unQpkjx+/HiIriv1xNhidsRRt6lpJ3rRpdYX0dzCcB7e1QkYEn6G7yguwgkV
QZaU+xSOHDkieKNH5SA2kyZN8ud1aVaWU9VwluKKbCuicsNTuzM+fEpxU9Om
QD2dvcloFBdgb8uXL49ZtvIwrj8iIsKpVXKnShOhnzqjT9x5pE5qXblyJd0O
gTl27Ninn346ffp0JWkQR4B94GH9uXw49CpVqlg5cYI3Dh06FBdme0KPEuBL
nTt3Vk/+iJXNli1b+jpJlZixTZs23jBnaujRxYh0O+x96tSpCnuht91mB/ka
dH7Hjh0NdzbpAc1r0qSJ/v5uZ+Gs0gl4qjIA6hsYGKicGLNnz568efPqLzv2
UmUgY1AyMbF5584dJD8+Pt6V8OtbAfbu3StSZSx0g3s46FLFvHdoaKhCONet
WydOqj9+/LgjGy0N5+EJImQibkaA7yiuYIYNGjQQxy+L1CYbN99duHBhzpw5
/pQWK8upajhLcUW/1a9f30cXyPoavqa4NsAAzZgxA8eRcVaOiJ4mTpzYqVMn
t7PiYp5n7Nixjlyn4mBpiYmJdevW1Qz0+vXrg4ODRQ5JSkrK66+/Dle8f/8+
nOr69evQBj4RjvjAgQNBQUGG92/iIxo3brxixQq3deDJpk2benOsK7WCG2hu
nBc3QWiuxPUR/GnZeBfcBv87fPjw0aNH8//evXujrRkhmqbPIU5WdhZDSxh0
n056OKt0CmyoDHwedyBiYRSnVq1agwYN0q/Fe6kyGMaAgIB58+atXr26WbNm
O3fuNGm4vhXKXLRTS40OulRx/EKdOnXE7UL37t1D/ulw/iDi9l7yDefhCxUq
tGHDBi9LlnAEvqO4Yo+Ssuny999/F7sbCKYIAC2uzfGryZMnO54QZQ4ry6lq
OEtxxbnWkB/1hAavyCB3IrtFhqK4dBry89Zbb2HAX3rppZCQkMjIyL1796ZX
VrMa3377LYEM3WX+2LNnz9q2bbt9+3ZHXupUaXjehg0b6g8qofyoqKhu3bqN
Hz8+NjZ248aNGIFhw4YtWLAAeYbPw6z69OkzadIkqmEyhQIZJjp2e+rm+fPn
Q0NDba8mo7AjRoyIiYnRTIRCAPLmzavZLUL9fbq/yQ9ISkrKnj27JgG+UqVK
6b7jLDWte5GT+Ph4cyuK5ooNTT7ayy/grNIJ2FMZ2gu/bdWqFUE6tou2uxJC
b1QGTlu0aFF6dceOHeaOxrAV4j7fwMBAcdW7AoryaaKCFRw7doxwtXDhwj17
9iRoHTJkCHpND4upbI9WQAxhOA/P64gaxDy8l+VLeAnfUVw0sWsahBShFPny
5UOXCVcnTpxo8VAFNM6bS4tsQOw1s7Kcqv6Js4kKuF3MiDKLS8xOlUQqu/fl
+xoZiuJmcKB3rVu3Ng/37t27R2CoPwHSHhwpDRFF4HFqrhwEfvD+/fsijvjl
l180bpf2unXE4hZanL65Tm3evLlXr162mefhw4fDwsL0DBnpxQKoZ3HptwED
BqRvPvy/HgR9qIP57ajiRjZf31XhrNKleq0ycEX8prku+EFlTFrBqEFxFQWh
IQcPHoyOjrZ3MKxTLlUERMWKFbt+/TpjSg8LH0pYQQ87NdGhn4cXSSNiHt6R
V0jYBsa8Ro0as2fPJty4ePGis6tmV69ebdas2ZgxYwidZs6cifYRPxKffvrp
pxZLePLkiU+jdUNYXE5NTbM8X375Jc3p3r07htep3nv8+HGfPn0wRNB7eg/f
unfv3heC36amUdyKFSsmJyd//vnnPrre8V8DxnTFihU4ApOZEyznvHnzvJ9t
cKo0sfeqf//+YuHPdyDE4y0bN2408UQEzrbD8xs3bnTo0MFVSid63bx5c/ws
LjI2NjYuLs726dwS1sFwtG/f3oQYwM3mzJnj693Hzirdv0NlzFuBm168eHGL
Fi3QlylTpuCz+MNGe511qYxgZGSk766oEDCfh/fdeyWsAA7ZqlWrImkIDw93
fA8gInr37l0llCNWzfgpptaXUy9dulSpUqWAgAB6D2/oLAtlLPDC3tzZlC74
4osvKlSoQIcUL14cZ5Te1cnoQGZ27typyQXNyCD0w/v72lkL8Jb58+f74kYG
fN/y5cvNr9fEp/PqlJQUuW3En7h8+TJD4xS9zAj4d6iMlVYwardu3XJ73qwJ
nHWp4jxAj24VsQ3zeXgJiYwGK8upEhISEhISEhkQ4qheKxctSUhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISLxA+Pvvv58/f57etZCQkJCQkJCQ
kJBwBrdv3+7YsWNkZOQff/yR3nWRkJCQkJCQkJCQsI/vvvsOWtu4cePWrVu/
/PLL/F9SXAkJCQkJCQkJiRcdf/31F/+/efNmoUKF/EZxeV1YWFitWrVmzJjh
h9dp8Pfff8+aNat27dotW7a8deuW/ysgISEhISHxouD48eMTJkyIiYk5ceKE
5isoxJ49e0aPHh0XF3f37t10qZ6Ep/jmm2/GjBmTkJDw888/+/RFiEdSUtLY
sWPj4+Pv3Lnj03eZwM8U9/PPPy9Xrtz27dsvX77sh9fpwXu3bdsWHBz8xRdf
pEsF/sv4/fffFy9ePGnSJD/EFxcvXpw8eXJsbOy+fft8/S6nIF2GhISEryGm
eipVqvT1119rvsI/hoSELFq06J9//hGfwIhgKXny5Pnkk080D/PMlStXIiMj
S5YsmZKS4o+qSziBo0eP5s+fPyoq6s8///TdWxCPq1evdu7cOTAwMB3dmf8p
bq1atX766Sc/vMsVfvzxR+ogKW664Pvvvw8NDcWKfvvtt75+0bx583LlyrV+
/XqfvshBSJchISHha2Bndu/ePWfOnF9//VXz1b1798aNG4cVUj6BD48fPz44
OBiuqy/q+fPnkIewsLDffvvNt5WWcA6QvV69egUFBd2+fdunL/r999/Dw8Ob
N2+ulzS/QVJcCT9j69atOXPmXLduna9flJiYGBAQcOnSJV+/yEFIlyEhIZFx
ADlp1qwZRAW6ov/2/v37ZcqUmTRpkjLrqwembPXq1VPSgNm3cnwTbOT8+fO+
m2OkZMo3bJEv8P3330O0/PMuizhw4ECuXLnU0/UKbt269d133znylgcPHpQv
X37ChAkESo4UaAM2KK434pcxKe7Tp0+vXbvmtwrwridPnvjtdRkNjx49qly5
csuWLfWRnYMD8ddff/Xt25eBpkwkdtOmTZPTsGLFinSMKN3CisuQkJCQ8A/u
3r0bGBg4ffp0Q4t06NChAgUKwJdMSoDghYSEhIaGRkZGjh8//tmzZ+Zv5IHh
w4evX7/edzaQkrds2RIfH//LL7/46BUKrl+/3r1796tXr/r6RR4BBvLmm282
aNBAn5F748aNHj16qGfybePo0aMFCxZM31xBTymul+KXMSkunIdGbdy40de8
QmjW0KFD3ar5vxgEdO++++4rr7xy+vRpzVcODsQPP/xQs2bNqKgouO7z588h
t+3bt69Xr17ZsmVNciREqsDy5csx6YzU48ePvayGp7DiMiQkJP7duHz58nvv
vTd16tSvvvrKxBjCRsaOHXv48GGLs2R4+YSEhNjYWNimepGaz1euXAnla9Kk
ydatW9VvTE5OxiJ9/PHHfMiL+vTp07JlSwr5Jw3U0G1WFRT3jTfe+OijjyzW
EO+AufZmCpem1a5dW3kjZVLgwoUL1b2EX8DI03s+Xb/G14SHh+vTmNMdjN3M
mTNz584NC9V/C0+LiIh48OCBjZL5LUIyZMiQQYMGDRgwICgoKH33lXhEcb0X
Pz3FhX70799/xIgR4oQHgGTyCUTU3iu+/PLLxo0bv/zyywSMikijg8QsO3fu
THWRqACZ6dSpk6+pBU2DaDm1CvDi4uzZs1DcMWPG6C2zNwPx8OFDrHR0dDSa
NXHiROJHTSIu4vfaa6+5orho9DvvvNOvX781a9bs2bOH6gUHB2MHbK9nHT9+
vHfv3r169erbt++ANPAH/+QV58+f1z9v0WVISEi86Lh69epbb701atQovXl5
9OhRw4YNM6UBR4YJMnS4uOPu3bvzTLZs2VasWGFlWiApKQnj9vXXX5cuXTox
MVF8iBHm5zBb3gIzqVevnuKgRSJu2bJl+cmGDRt4DMIAaeG9PCyyqmiFeVaV
RxR306ZNYWFhP/zwg5WHXWHdunUYf6ID8U8qT53pRk0XwQTatm3ru80a9A+m
Hr6Ujsv0JkACixYtOnjwYIV6KaDCM2bMgKl6lC9H965evbpatWrnzp0T5Rcv
Xjx9E3FTPaS43oufnuKKdRD6U4gf1ejSpUujRo28WUEgMIFBbdu2Tflk2bJl
NFPIvKtcXLhx/fr1fZczQ2hZt27dY8eO+aj8FwgoTps2bUJCQiCl+m/tDcSl
S5dq1qy5ZMkS1JPyiZ2xcpqDO0woLlKBOdKMDkS0QoUKEyZM0BsBK0BTeCMm
tFu3bpkzZ86aNSuxG0p04sQJwwjOosuQkJB40TFv3jzYKc7OVW7qtWvXYJs8
kzt3bsOQHzfatGlTwYQxfW79Mi8igsb6bd++HduIaRKff/PNN9OnT/8tDS3T
oNgfkYjLW2bNmkXUj4+GkB88eFDM74msqvfee8+cXVunuBT45ptv7t271+2T
JsBWDxo0qEaNGsoaXHJyMnzg8OHD+ofpWN547949b97oCrt374Zp+HpjtW18
+OGHRYoUYQT1B2ukpsVZderU2bVrl/UCT506FRAQMGfOHCEPyFW5cuUmTpyY
vkl31imuI+Knp7gUWKBAgSNHjoh/wnleffXV+Ph424EP/Tl37lzG7vr16+KT
p0+fQpmgGcKYuKK4qMawYcPQDl+sXFBmVFRUTEyMT4/peFGALBHFZMuWbfPm
zfpvbQyEsPZAREZ0cu/evWvXrq1hkq4oLjKzdOlSNPrkyZOarwiOMI9eBibE
VhSCopnvYLXoMiQkJNIR0LzExEQvj/rEUp05c8Z8hQiDULlyZRhsixYtDHPb
MJUQlcDAwJIlS1rkabyxY8eOhkmYlFCqVKnJkycr9kdMQBGet2vX7ujRoxrn
JbKq9u/fb/5GixSXl/JqWuplfizuHqLSp08fUVuIxLhx47CrdKb+YXo1LCzM
cD3RS+B68HGzZ8/OgMacKhHmtGrVavHixbly5VqxYoXhMx988EFoaKjFbD1E
ceDAgfi4ixcvik8gdURSbsXDFfg5AYj3vWeR4jolfhqKqz+QBC6hmYD1FDSk
U6dOcFqhwtR8wYIFaO6FCxfEAyYnKpw/f57K+CJz5sSJE+XLl1eWTv7LENd/
JCQkEMtEREQYzlh6OhDE6Tly5Jg/f77QiB9++IEoXr8E44riYvbbtGmDK9Hv
87p27RqR6YABAyxO5PLqBw8eaB6mOUh14cKFNW4RI8zDuADxUosuQ0JCIh3x
5MkTomm4pR/eBf3IkiUL1sOV7xBUpHr16pgRKwVeunSpaNGiiqlUgxZhf9Tt
2rt3L6/et28fH+K/+vXrp8w5i6yqoKAgwzlANSxS3IcPH9KKZcuWWWmFCaBY
UBqFtkFiGay2bdu6mi3nSeIIe3mnJqDTypUr589t7BYB6SJAY0SuXr2Kt3r9
9deVqSENrl+/ThN2795tpViUgjKV0AnxmDVrlhXxcFVJmOGwYcPsrZ+qYZHi
OiV+GoqrOZBEaCsKeOPGDduvePToUUhISFxcnIjLkLTSpUtDgZQHTCgudKt9
+/bwGWfnWhmm6OhomikXoAk0UIQ1a9bQJ6NGjSLKM8xK9WggRJyeP3/+M2fO
iE/OnTuHVG/YsEHzpMksLnQaldS7CcSpUqVK/MpKMIsYz5kzR0zYqkXOkOJC
ZSHPuXPnJnikvdZdhoSERDrCnxT37t27JUuWhOWuXr3a1TNr167t3r27lS0D
GJlp06aVKFECD3vy5Ek17RSzWPhKZTZY0Awx/8nfw4cPr1ixIkwADknbRVZV
ixYt8OarVq0yIdgWKe6WLVsCAwO9P3mA3sDYHj9+XPxTTETTtO+++44+1DsU
3sgDGzdu9PK9avCWHj160D8ZzeNTMTxU2bJlv/zyy9T/yUO+fPmU7lKDytOE
rl27WhEtupdIoXfv3qKH+UlERATiAePF3Xu6/8hBiiucLwprnhLslPhpKC4e
n2KVlVlodseOHevWrYsNWbdunWGiplswWISi27Zto0yCUIKUnTt3qiNW83Nx
lyxZggA4uwcQo0E0RMkOlvkigqEpX748TFLI7enTp5E9V+vy1geC0mJjY3lY
WQtYuXIlfPLy5cvH0qA8ab7dzBDY5ypVqugnYE2wfPlyXFJoaKiSJqGnuCg+
AW/mzJnnzp0rmm/dZUhISKQj/Elx8cvNmzfPlCkTDNNwMR0uMWDAABMCrAZG
JiwsDCeLkYH1qecY4TN81apVK2W2U0xAYZT4BBsbFRVVv379p0+fLl68+OzZ
s2LWLi4u7vbt2xMmTDA57dYKxaV8WtGwYUMvb5UV5cDZBIWjc4YOHZotW7Zd
u3ZRAUiF3tcIU9yrVy8H57VwMa+++qqrk9bSC/QGvLFQoULq1O4rV64UKVLE
MDWUytMEtWM1L7xrGsRk6Z49exiFIUOGfP311xMnTvSU6ntPcZHwgQMHVq1a
NX/+/KgPrpbIDuKXmJioHxSnxC9VR3GTk5OzZ8+uJP/wz7x58/bt25ewEa2x
txFvwYIFDNknn3yCTUCX9bTcnOKeOXMmICBg+/btNl7tCklJSVRJmWP8b+Lg
wYNFixYdOXKksl7A+GI/XS2xeTQQ69evDw4OFvOfKSkpxDXw0gcPHkydOlVJ
yU61QHGfPXuGJcSG79ix49GjR6lpOfNlypQhaLJ+5fTFixfFRK6yGKGnuFB3
NE69/mjdZUhISKQjvKG4WAD8fo8ePSCTVlax8fWQNHx0586dDTnYZ599hmu2
GLZT2rRp02B02GExC6R8hdksWbIkBlP5UPC0Dz74QHxy+PDhGjVqYKDmzJmD
DYcVTJkypXHjxlTP/B4lKxT38ePHFA4ncUVpMKERERG5cuXKkydP9+7dNYm1
MJPNmzdjM4UV5RnYOPQsNjYW8k9Xd+nSBRZn2EsiiRSX4eUxDmocOXIEl6Fe
yNO8kdriibJkyRIYGDh79myNtcfXKLuTrMBi50A7qdWGDRvU485Q9u7dm2oY
SqM4Ms5ixiBci5hozJgxSPjMmTPhqKGhodDUTz/91HpbBBycxbUCp8Qv9f9S
XLG+TIQFORmbBlTmvffe4wGa9vHHH6sLsSgV4sD/ihUrUvKpU6cMw15ziiv2
u40aNcqp/HPKGTFiBGW6mpRGK2l78eLFs2bN+uabb4oTCJVv+RvJ9OYUKZ+W
b7Fw0at9+vTRhC1bt25FbAwDK48GAmoaFRXVrVs39AKztnHjxsqVKyNFxDtq
v2BCcZ8+fYrMYB4x8jyG/8Ik7tu3T+wUg5xbn9iHadMhxLAnTpwQn+gprqDB
BD5KsdZdhoSERDrCNsXFk+L9b926xR8YIoszh3PnzhU7zvRhL0ayTp06yh52
K+BJwnb9bNWBAwcgM4cOHVI/CetTm19cp8Z44srdTnxZobg3b97EPEKnDb/F
DmMtX3rpJeww/oLegNWrGenevXvXrl1LhS9cuFCwYMEVK1bwLWWKFXZMK002
ScWcN28ev3LwdoaEhAQ60/BiTaoEH8icOfPLL7+Mm4DP8Lf6YDHqiSOwPqNi
vXOQH8OEAT6n7Yb7GWkChS9atMhiZehqPBrOVPzz0aNH9uZF/UxxnRK/1P9L
cUUeeHh4OIrDK5RuYRQ0d0M4KxXmFBcORq0cPLhJbGVylQpy7949KkOn5c+f
v1ChQvyhPs5FPPDuu+/avirCp+VbL5zRxxrrxZXPYX2GnNPGQKBQhFdC0n75
5Rd9TOGK4hLAEsS1bNlS/RUVQKhmzJgBe69atar1zIEHDx4QtaELyjE1eop7
8uRJOLB+H7QVlyEhIZGOsE1x169fT1CfmnZlA+EtBsfKYk1iYiLuleBXY6Xx
etHR0bVr17Z9Qw2mddOmTVeuXMEyx8TEWN+z5hGsUNwjR45gD6mM/iuMc0hI
yLhx48SVoFR19+7dpUuXhkaKBzCYI0eOFPvF1qxZoz4R1yI2b97M253aZg4t
oT5BQUH6My7wTStXrnz11Ve3b98uohvYCE0rW7asMolK5a1fPeBR59gATcBJ
OTjjZxF+prhOiV/q/6W4uPsSJUroD2TWwHGpMKe4FNK1a1cHly3E7v63335b
Xz1IVJcuXTB0yjkbtKhZs2YdOnQQvI62L1++3PYWe5+W7+vKOz4QqS4oLlFn
5cqVMe/6jCPCN3FoT/v27a2fYCa2qRKOJSUliU/0FPfgwYM5c+a0uItNQkIi
48AexcUV4rKFkYG1ZsmSxWKu5saNG3lYOSNIgB+uWrWqaNGimuVO5VsraX40
IU+ePCtWrMC34mExSp40yCqsUNydO3fCMfTH/2J14+LiIK6ajjp06BAuVXB+
XMzChQt5QGRUWjkiWAP6IW/evCL6sAJc3qRJk2JjYw1PtaIaffr0wXHop0xT
UlIiIyM1d+Pi6eAzCxYsoCj+puRTp05ZqYZHnWOxaRqITWQ9evTw82GnXlJc
5HmRKUSqtgJHxE98paa4IjPE8P44NZyVilR3FFfsXYKlGx6jZwhzgYfelytX
jhhZP1i7du0aOHCg5ryOhw8ftmvXThxxxm8ZZbFrSZy1Rc1nzJhhsWIele8K
CNusWbNq164Nm71165azhZvAxkC4hZ7iwsY7deoEHTU8pw5FQPKhuCIQ+/33
3xcvXsxYq/tBD3FsHb+aN2+e+ERPcSH/L730UseOHX16faSEhIRt4MJgfdt1
wOWFhISMHTtW/xVW0VVG0/Pnzy9duoQ5hXxiyQsVKqScY2kOTFO2bNnUs7jY
oh07duTPnx+SrJlew13iGUeloUmTJtHR0SYTszji+fPnDx06FDphfmS3N7BC
cdevXw/J1Ceg3rhxAyeip+uYYj7H82LAaakwyGLn3bRp0zydcvzkk0+g+gyr
xedp0dy5c3PlymV4DgOEBPuvvntCwbp161avXq0nCdR/8ODBjO+1a9eQK4sb
MTzqHHsQ0zXt27f3EcVlpE6fPo0wa/QIme/QoQOUg7hD8xUPnzx50pz6RkRE
lDXF7Nmz1c87In4CcIzAwECoKQxz8+bN4eHhYvrXBA5KBYUcP36ct1MHVxSX
PqfORMfWz24yF3hsDq8bMWKERu/onPj4eA11F9iwYcOyZcuoLW3fsmWL+JCu
gyozxBbzMTwt3wS8EZELDg5WOs3Bwl3BxkC4hZ7iEpXkzJnz1VdfNUyWQOZz
586NK0ENxSeMdWhoKA7OfH/H2rVrs2bNipIKsdRQXBSEGJAHVq5c6VTTJCQk
nAWeBedeXwfifYxGpUqV9F9BRA29lRri+nLrZ0hu2rQJW9G8eXPleYh3gQIF
evXqpXG+UFacO+Gz8DW4yJIlS0ZGRqbvDapWKC6dBsnUz3fRZCWDUQO8LWyH
zoTne7mc/dlnn/H2VatWWf9JQkJCQECAoS/+448/EBvDyWQ+MTyAiw9Hjx6N
p1u6dKnhLWyG8EPniO177dq189FUDPwNatSgQQO9KhUvXrxIkSL16tXTfM7D
sbGxzqbzOSh+RLgoJmpo/YhdB6UCxUcyeXvv3r1dESeegTB7dEhUqqnA02R4
GlXVUFz++d133xkaQ0zTu+++S8PheGJff6rRxXDm8LR8c2imvp0t3FX9bQyE
OTQUl8i0X79+mTJlUk7z0wDReumllxo1aqRWKOJKHBwE3uRFNB8mjCMT16Vp
KO6ZM2cKFSqEDfT0tEAJCYl0hzcnKmAz33vvPSiruQFRA/+bOXNmJVcKPoZD
adasmZ5B3b9/v1SpUnASMXEk7vkqU6aMlUOffAcrFHfz5s158+b1KFPi+PHj
8+fPnz17tmbR2QbgD/ny5TO8atMQrm7PVL7t2rWrR9s3cHa0Zf/+/fAEV5zK
IzjVOTShevXq3bp1e7ESFTxF+oqfKzguFUqx8fHx1u9DTHUn8CJhe+jQodZX
T8QxBcnJyQsXLlR+5SnF9bR8c5hnd3hZuCFsDIRbaCiuWIXBfRjG78RQkZGR
2bJl0yxgwdsrV67csmVL87mRr776qnTp0kgFfkdNcR88eEBkGhgYqJy34Apo
d1JSEp1JPzjI8yUkJLyBNxRX2Jzg4GCRf/X8+XO3RnLevHmE4X369IHi7tq1
q0CBAo0bNzY8nwf+fPnyZcVWpKSkYILeeust27uVHYEViosfh2TSOuvF3rhx
Y/DgwaNGjfK+dbt37+btrs740kMciBEVFWVIwPiQijHEHm3yIuQZMmQInsiR
o3Sd6hx8ZYUKFUxO0/IR/Exx01f8TOCsVAjQpf379zc540sPc4EX12NhoKwP
FnZv5MiRsbGx6lNHHKS4huWbwzrFtVG4IWwMhFtoKK6Y9FCf7qXGlStXihUr
hj/SBONo37vvvgtlVbIXXOHrr78m9qlZs2a/fv1y5sxJnBgXF0eLOnXqZOX+
PqT66tWrnTt3hg87exeJhISEbXhDcXGmOXLkEM7it99+GzdunPkUK9ZmwoQJ
UFyc6aJFi/gtr7ayOia2qGA6DC+u8iesUNxz585hUT26PhWTWKVKFesJtCZI
TEzUX5FMQLF06VJMd3R0NAZ/xowZe/fuFUzjzJkzPN+jRw/ox4ABA3r27Kle
FOaZmTNnqs9Ft4K1a9dWr15d85Pbt2/Xrl1b6TqqNHnyZCtzR051DhUoXLiw
2zMBHIezFBfWZD4Lnb7iZwJDqfASSFHbtm0bNWqk30gVHx+PtCPSmBpMkxIs
mws85VBaq1atrNyCp9Sha9eulKNO1nKQ4hqWbw7rFNdG4a7KMRwIb6ChuOLo
3YCAAP1WCzQLog4vNQztRTbdmDFjrExTM+4oAkXlyZOHoMxt8rnmt+Hh4c2b
N0/fbDoJCQkFtiku5oIgF5oqzpm5cOHClClTzJ2v2J4PxSUYz5IlS7Nmzdxm
N/HAiBEjatSoERwcLBKl0hdWKC48v2zZsvp0PhNcu3aNYr3ZSyUgpiw0d3jh
dHr37i2ugUv934WV8+fPF98mJCTwTzpZ3Ps2aNCgbt26qXcD7dixAwfhdiu9
GkuWLHn77bc1JAF/oT4DDV4RFBRkhXA61TnHjh2jITTHy3I8hSMU9+eff541
axZBCuVAzzp16uRq5TQdxc8chlLhJZ4+fUrNNcmZly5dqlmzJq+jB2BusA71
wc7mAi/SGDw6yYTftm/fXhMg6Ckuj/Xv35/3KmKAGeETt4cY6Mv/8ssvGzdu
/PLLLyNXyiinpKS8+eabO3fuTPVwFldfeRswHAgvoaG4SE6XLl308Tv49NNP
+RzVMEyzRwbatGkTEhJicYZZJCrApT3NN3jw4EH58uUnTJjg52MJJSQkXME2
xRWnxBQtWpSYGjs5ceJEtytBmBpxga+44My6EyEoFhurN23alL7WwwrFFdeX
Y1St3+oIe8fVeu/9xe4w3q7MyUAgZ8yYgbk+d+6c+ASOh8f/7LPPUv/n0JUD
E8SeEQIQ9ck/169fZ5QhxhbrwBshY5r0bMEl1CczJCcn40es7DxyqnNWrVpV
rFgxBy/FsAjvKS6jOWbMGHV6LV6+Xr166nP7FaSj+JnAUCq8B8anRIkSS5cu
VT6BVTZNg5hOFBKupPRbEfhly5Yh8NZnm3ljz549NQGCnuLevXsXC4YyipgO
VYWwWZn2NCyfkBP1UZ+dRbULFSok6J91imtYuA3oB8J76E9UEFEqUbxalc6c
OUNMR7Dgau6UwaWfs2XLZnGHwr59+3LmzJkvXz5D/TIBg0IUz889+pWEhITv
4E2iAp6xYsWK77//Pu57y5YtbqfjcCvVq1fPmjWr9bOkFIjZBgxI+s7lWqG4
9MO0adOCg4Ot74xbu3atODXUy+qJe4pnz56tubm4RYsWIs1SXOWgpMyJvMQB
AwYIl4Hb7dixY+nSpdU1//nnnxs2bNinTx+L8zMwpaioKIVRC4jdgkoh4jbY
MmXKWDlF05HOEecMK8xHDTzj3Llz+/XrR8/ExcXt3r3b2UwG7ykuTpPKq2eo
qOH8+fMhJ/ppq3QUPxMYSoX3SEpKImxRF0volCNHDjpHNEdc5aAkYFsReEL1
woULi+lQK4Af9u3bVyNXeoq7d+9eQkvlMDex7B4fH+82ZteXT9OQ2CJFihB+
ik/Qr/r16yvT0dYprmHlbUA/EALeKJee4vLbTZs2EYBgSShqz549gwcPLl++
/OLFi105FHFAcUJCAr0dERFhko9BaRSF8GRSIXfu3FWqVDFZw6KSVGbIkCEE
ichVUFCQTMSVkMg48Ibiip+fOHHC4mkq9+7dgx/iT63MxGIoVqxYodg3cXoD
Nmfy5Mn2quoIrFDc1LSlrpIlS1q8KgjWh/e37lJNcPDgQd6rXsgTZ4jBeZSL
Mhs3bqycYX758uVChQopO5QfPXoUEhLSvHlz9bYjfvjBBx9UrVrV4plCsNbW
rVtr+NXFixd5EQMq/ilug23btq3bSMepzmHgoDpq8i+AmDVp0gT3RM/gjnFS
UAXbB+AbwkuKK9Kh6S7N2WIbN25s06aN4cxVeomfCQylwkvQsfQq4qowNBE6
5c+f/8yZM+ITSBdxMTZH/NOKwPM3IWF0dLTF8dq+fTtESxMAaiiukAF13CEm
JA2vMHBbvritQLlABwkhQilVqpRyOLl1imtYeU+hHwgBL5XL1QW+RAdLly6N
iYmhSyG6JumydAjmes2aNQzlqFGjkARUw9PWuQLdvnr16mrVqglif/Xq1eLF
i8tEXAmJDAWMZIcOHcSyta+BnbE4XSAmG5V7alJVFHfWrFk+rqYZLFJcmBs0
EpNuxXfgZ3EE3tteuheu0rlzZzVvJHjJly8fjkz889atW8WKFYPp8VIs/5df
fhkYGKjMLO3Zsydv3rz6u19v3rxZvnx5vImVasCsIiIiNHvz4Rg4dGW3oFi0
JVohOMJNmPSSU52TnJz86quvahZkkUZ4V506dYSXpM74wYSEBGeTYQRHnThx
ou1iV65cmSVLFsRJOW4LkgMzmTJlimGZ6SJ+5jCUCi8B+alevbo6j1RkT6lz
0em6AgUK0LpjaYD6WhF4OHCVKlWsnCLCG4cOHUoMqAmdNBQX2tOsWbPw8HCR
DSLCRivpEIblC2YeFxcnRn/fvn2lS5dW77SySHFdVd5T6Aci1QnlckVxLQJr
g9XCX4hQ5fTp05ggnIhTqxWnTp0KCAiYM2eOKBCRK1euHGru592sEhIS5siY
ufH4HfW0D86iUaNGZcqUUdbm0gUWKW5q2vQpZv/atWtunzx69GjTpk29v9ud
nsEvay5BvnPnDnZeXOQE88GjZc+efW8a6GF8Jc0R3BWHjlscNGiQfmYVCcF0
d+rUye22azGNNnbsWLVQiSQBmLY4dhUvTzWyZcu2a9cuenLdunUmTsGRzhH3
fuJhNfNydELOnDkXL17sTeFWQAO90bJ79+7Bz4nvGMqDBw/SCuICSKzJYcX+
Fz8TGEqF90hMTKxbt66mE9avXx8cHCwOSUhJSXn99dcrVqx4//79qVOnoiAW
BZ7eaNy4sbLoYAKepPc++eQTzecaiosaQq0VfiUSJKg89A/5N9kGZVg+5A3e
vm3bNkpDhmnjzp071UpkkeK6qrynMBwI75XLG4qLmhBBjBw5UsnkIcrAoaAU
1o/4NgE6OHDgwEKFCl28eFF8QtxUsGBBi0snEhIS/3FgmjCPsbGxMDGsR69e
vbBOx44dS99aWae4f/7557Bhw+Lj482XO0VaXb9+/bxcK+QtI0aMiImJ0SRn
Uj5OH0c2ZcoUeCad2aJFi27duvEw7p5vcfetWrWaMWNGZGQkNXG15whHU79+
fbcJLc+ePWvbtq0yaSwgrhXLkycPJUyfPp0xhaHx0i5dutA/Ji7Mqc5hvHDB
mlVyZVHb7TbJjIATJ05UqFABlpslS5aaNWuOHj3afMHXz+JnDkOp8BJIb8OG
Dffs2aN/V1RUFBI+fvx4JI3grnLlynTFggULaKN1gYerNGjQwO0e/PPnz4eG
huoTMDQUNzk5mdBy8uTJgojyz7x58/bt2xfuPWHCBJOlbcPyaUuRIkWgpsOH
D4cq63dQWqS4rirvEQwHwhHlsk1xRZ5znz59NB27devWXLlyQci9n2gVNg0J
UXJFZs2aFRQU5OD9xRISEv96/PDDD9Aq/BSm0qc7vi3COsVNTaOFrVu3Nj80
ALeLp/N+pzlvCQsLc+Wt8Pu3bt0SHcgbcaxqSoMjwDK7zTyk1TTHPO/63r17
jRs31hxceeHChYIFC65YsYLRvHnzpqgGr6O25nfpOtI5VBhKo59dwQuPGjUq
MDAwJSVF/Tm9kQHXNfChSUlJJUqUELtgoLtuk4v8KX7mMJQKb4DwvPvuuwyf
K/mBdyHkSv65hqlaEXhKHjt2LDzZ/LHNmzcTfetNk5riCr6XLVu24ODgsWkg
3nzvvfd4AO6tWXZxWz71YcgqVqxImadOnTKUVYsU11XlrcPVQDiiXLYpLuPO
iOsHjs/v3LljO/NBDawKoZNySBp9GBER0aJFCxjvmjVr5FW/EhISLyKUXUvH
jh27ePGiW1p4/vz59u3bmyRXYBvnzJlj5WABE9y4caNDhw6+TqfEN0FTo6Oj
TSadYA7z5s3T+DtsvvpEXOvwvnOo6pAhQ1xlAEL/8MLKRBMe8ODBgzTQwRtm
HQH9ACnq1q0bQQERH0wJlpsjRw63N4X5R/zcwlAqbIMmw8369+/vyMUKJoCu
8Bbia5NO3rNnj2HAq6a4YnNleHg4zJMQT5EuiJDbJrgq3xwWKa69whWYD4Rt
5UJVL1++TAS3aNEiaKQjjNRxoDhd0yCkmp7Mly8fpgZRnzhxopf3aEhISEik
C548edKqVasiaRA+y+1PMNfLly93yr/rQcmU7+X9mxaB99m5c6f5vJMGIhHX
o7P0HcSRI0e2b9/uauLozz//XLx4cYsWLebOnSsSOfjD18TJU8ANGF84kpJD
iNThTLNkyRIUFARlMv+5r8XP/3jw4AGE2T/DxFvmz59vYylfTXHv3LlTokQJ
f16rZ/1EBW9gPhC2lYuIoFOnTgFpaNKkiSOps77A1atXmzVrNmbMGJSRwR0/
fnxoaOiwYcM+/fTT9K6ahISEhIQ/8Pvvv+Pdpk2blgFX/wWgf7du3VLupMho
+O67715//XXl2CsBOhN28fLLL69fvz69KiZhAjXF3bNnT4ECBTy6H9BL+Ifi
WkEGVy4vQfx+9+5dZV760aNHmpP9JCQkJCQkJFzhxo0b5cqV01+0JHJmrOz6
l/A/GK/AwMAFCxbAMzdv3hweHm5yfKuD+Oeff44fPy7ugswIFFdCQkJCQkJC
whDffvtt1apVt27dqvkcituoUSNP7xiV8A/u3r3bq1eviIiIZcuW+fO9f//9
d0JCAu/t3bu33N0vISEhISEhkWEBaZk1a1adOnXUNxHw4aJFi0aOHJkRjhmR
kJCQkJCQkJCQ8BTiRIU333xz4cKFX3zxRVJSUt++fUeMGJHRTn6QkJCQkJCQ
kJCQ8AgPHz7ctGkTXHfVqlVuL36VkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQ+A/i+PHjEyZMiImJOXHihOarv/76a8+ePaNHj46Li7t79266
VE+Pv//+W/MJ9UyXmmRAaDrnn3/+0XdXOuL3339fvHjxpEmTbt265et3Xbx4
cfLkybGxsfv27fP1u/5lOHLkyPDhww8dOuRr4Xn69OnChQvj4+Nnz57922+/
+fRdPsK/xhxpGuJlK6Sme4Qff/xx0aJFQ4cOfXEVQULCb8BYzZo1q1KlSl9/
/bXmq8uXL4eEhKBNkB/xyTfffDN27Ng8efJ88sknmod55sqVK5GRkSVLlkxJ
SfFH1S1g/vz5gYGB1Apa3r179xo1aqxYsUJpzn8Zv/76a8uWLatVq9arV6/o
6Oh27drVrl370qVL6V2v/4Pvv/8+NDQUIfz22299/aJ58+blypVr/fr1Pn3R
vw/Qm/Hjx+fIkSM5OdmnL4IIQaSDg4M7d+78xx9/+PRdPsK/wxxhJUqVKtW0
adOBAwcOGDCgQYMG2JBffvnFmzKlplsHivDRRx+VLVu2a9euf/75Z3pXR0Ii
QwMDu3v37jlz5sB5NF/du3dv3LhxEFflE/gw7gwvA9fVF/X8+fPWrVuHhYVl
kNCSpmHN8ubN+9JLL2XNmrVWrVp44Qw1UZmOePbsGRQXZpIpUyZiFqzl9evX
07tSBti6dWvOnDnXrVvn6xclJiYGBARkNJL/QgBDUa5cOZgnztenL7p582ax
YsUgij59i4/wrzFHFy5cgKjTBExHUFDQ1KlTf/75Z++LlZpuHdjqIkWKLFq0
KL0rIiHxrwI0uFmzZuHh4Ya+7P79+2XKlJk0aZLJvATsd/Xq1VPSgDWDFbt9
6R9//HH+/Hkb4SrVwJp9+OGH+BG/TZVQT2rra1+v4Pvvv8fv2/ghFHfUqFEP
Hz7M4Euljx49qly5MmxcH4I9ffr02rVrjryFTujbty+sgzIdKfAFgm0RUkDv
xcTEFC5c+PLly5qvnFWHXbt2FSxY8IsvvnCkNHvwnTlyUJ6tgHc9efLExg8h
h1hvesBZ05Humk4F5s6dO3nyZFp36NChjDy7TjiAIujTBSUkJLzB3bt3id+n
T59uqP6YhQIFChw4cMCkBPxpSEhIaGhoZGTk+PHjIVrmb+SB4cOHr1+/3obB
UXyKpz/0Brx0y5Yt8fHxXq7cWQGxfPfu3a9evWrjtwrFdbxWzgI+8O67777y
yiunT5/WfIUrRDY2btzovTP64YcfatasGRUVlXEIP416/Pgx5FOjI1ALB1dJ
vBEhNY4dO5YnT55p06ZpxsJBdUASRo8eXalSJaiIl0XZhk/NkYPy7LYmDMrQ
oUPdml9DCIrruKaku6bj3d5555327duXKVOGP0waSMh25MgR+PCcOXP4w89p
M3TUsGHDCAe+++47f75XQsJHuHz58nvvvTd16tSvvvrKRMdv3LgxduzYw4cP
W1z8QjETEhJiY2Nhm7dv31Z/vnLlSrxSkyZNiBbVb0xOTobEfvzxx3zIi/r0
6UPQTSH/pIEauk3EheK+8cYbH330kcUaYvQIq+1lHAmfQhOoIRYSc6TPN/YU
z58/79+//4gRIxQDSFv45Mcff1Se4SuiAMbCp6bv22+/DQ8P1ydFW4SguJ99
9hmjRnNwH/b8nR9w9uxZHN+YMWP0gg0J7NSpk3lU5QrQe4Q8Ojp6wIABEydO
LFiwYEZIz8Obb9q0qUWLFtQHOte4cePg4OBmzZqdPHlSfDto0KA9e/Y48i4v
RUiNn3/+mapCHqAQmq+8UQd+snTp0n79+jFMiGutWrXSMRHXD+bIG3m2DkwW
RM42QYLi4o/279+PSo4fP57oxql0i4yg6QwTo4zIuaK46EubNm3GjRu3a9cu
zGaXLl2qVq0K0bVRsdQ07ViyZEnPnj179+7NS6kh3gSCzSeozE8//aT/CbpW
r169t99++wXNSJf4D+Lq1atvvfUWNly/ovfo0aOGDRtmSsPLL788c+ZMQwOL
tHfv3p1nsmXLZnELQ1JS0po1azCzpUuXxvaKD7Et/Bw7zFuGDBmCKilaJhJx
y5Yty082bNjAYzdv3gwKCuK9PCwScWmF+RSTRxQXXx8WFqZ3mtaxYMECSDih
AZZk3759VapUOXTokO3SUv83jz1jxgzRw3Q7Jq5Ro0aaSSoYb9u2bX1Hmeht
7CHe1rZzgSx16NABkcPTMWT80bx5c1/v9bAHqodPCQkJMZxz/vLLL+vXr+/p
UjtuGj6Gc6EDKR+mh+PTr7P7E4goKgmhLV++PCxI7d2uXLkSEREBqWDES5Qo
4WVegYD3IqQBXDRXrlyGG9XtqQM6hd/v2LGj6Irly5dnyZIFjXaktjbgH3Nk
T56t4/bt23Xr1oWX2i7h4sWLxBr0BiKELyC0mTBhgiN0KyNoujnFPXXqVJ8+
fdTRAcUimTgF26EiI4IYLFq06LXXXsODFy1adOrUqcnJyfSzoa8XibgLFy60
9zoJCf9j3rx5yDZkyVVu6rVr12CbPJM7d27DSBYv0LRpU8GEDedSNOBF6BGU
Zvv27aj8559/Lj7/5ptvpk+f/lsaWqZBoawiEZe3zJo1a8+ePZgCCPnBgwcf
PHiQ+r9EXKJ7c3ZtneJS4Jtvvrl37163T5oAW6RQBcwFHrNGjRrerO9QnwIF
CigxO6b41VdfjY+P1/MEhon637t3z/a7TLB79268jDeMlGFKSUlRzDi9Xa5c
ueHDh2eclXoF1I0ggtht8+bN+m+p8LBhwwYNGmTdyQplASIwEYJRu3Zt9VS8
n0FNaAJtZAgMp27w7HhAOB4BryM5MN6LkBqYgnHjxlH/Hj16GA6Ep+qAfBJI
BgQEnDt3TnyyY8cOLNXx48cdqbCn8Js5siHP1kGZUVFRMTEx3uzExyMImy+A
B3nllVe8nDoQyAiabkJxnz17RsDVt2/fx48fqz+nQ4jgKNZebrPy3pkzZ+K+
W7dubd7ArVu34oPSSxEk/mvAticmJt65c8ebQlDAM2fOmG/KQP0rV66MCrRo
0cJwTRmV/PDDDwknS5YsadGV8EZ0tkGDBvotsZRQqlSpyZMnK5RVTGBmzpy5
Xbt2R48e1RhJkYi7f/9+8zdapLi8lFfTUmczWj/44IPs2bPb9lP6AyWOHTuG
ed+2bZv+YcYoLCzMcNHNS2CfcQSzZ892MGeP+AVHULFixYyWnQu1oxsTEhII
JSIiIgzXCM6fP8+gWJ9FSU5OzpEjx/z580UHEg/CNAYPHpxe9J4K4CJffvll
quSqDkgRsoT6jxgxwnuJclaEEB64R1xc3DvvvFO8eHHDozk8VQe4NyOu2Dp+
NXLkSNuJuCjssmXLbOcw+9kceSrP1nHixIny5ct/9dVXDpZ58eJFbKD3eewZ
RNNNKC41LFy4cL58+fT7vJYuXcpQWswgomRiBM00FO9FH1Fw3KuG4qICuGMh
eyIRNyQkJB0z0iX+UyBwgxv4Z0/TihUrsmTJgj1xZaNQE8xm9erVYZJWCrx0
6VLRokUVC6AGLYKyqtuFKebV+/bt40PsJEZAmXMWibhBQUFuk10tUlyIFq3A
K1lphSt88cUXsPeDBw8qnyxatIgOtJ0/oDlQQvQ2HXjjxg3D5xkvohL1jIcj
YAjKlSvnzRZjcRgytEohtAwlHrxEiRIZ50zj1LTjiZCWNWvW4BRGjRpVsGBB
fJz+Mbxh+/btBwwYYGVuiraPGzcuf/78BJXik3PnzhUqVGjDhg3OVt4iqHzv
3r1xbTTQvP7467x58+7YscP7l3ovQgp++umnXmnAEcM9cufOPXfuXEPm7JE6
fPbZZ+r9a/j3xo0bd+nSxd7cJqXVr1/f9vKNn82RR/JsHShRdHQ05sub7YoQ
s44dO06cOFGp29WrV1FMPvSmthlH000oLm+HgW/evFn/9v3798Olhw8fbiWC
QwXefvvtzJkz16lTR7G3hhQXRzN69GiEBIfLK3hGJOLaVgQJCU/hT4p79+7d
kiVLIvCrV6929czatWu7d+9u5ZQe9AUPAquBoZ08eVJNO8WsRenSpZXZYDGB
WaZMmfv37/M3uixm/AjhabtIxIUj4e9WrVplQrAtUtwtW7YEBgZ6udGbXgoI
CNi9e7fSqEmTJuE3lawMT3Hnzh1qpSRjYGQw7HXr1kUG1q1bp5//pP48v3Hj
Ri8aoQXWtUePHvS2N36KmkdGRtasWVMZ3x9//DE0NPTNN9/MOKdmHT9+HMMO
FRe+5vTp00RYrjJhlixZUrZsWSvX6lFabGwsDytT8StXrhQHXh1Lg7OtMIfw
a2h0rVq13CYXoaQonat4yjocESGBx48f45FbtWollmjxv7A4BMlwIdgjdcCq
5MuXb/v27eKft27dKl68+IIFCx49eiSIkEf19JLi+t8cWZdn6xDHF1OyN4Vg
A4OCgtAghWKdOHGCyAvvYHtxIUNputvtZobAo+XMmVM/AesKIisYQqs005Di
iq5Qp+uIRFwUAZ5sQxEkJDyFPynur7/+2rx5c7TAVbQIsyXCNSHAasBLw8LC
xG4OCK16SgcF5Cs8lzJPKyYwcYt8glpFRUXhMqBDixcvPnv2LJ0AcY2Li7t9
+/aECRNMTru1QnEpn1Y0bNjQyxPFb968OXbsWGVtkUoS//bu3dvKYbyGSE5O
zp49u5K8IWbV+vbtC+2n1frjHIXH79Wrl4OzMWIB19W5bdaxbds2LKRSCH62
WLFimzZtcqKODuDgwYNFixYdOXKkYu3pXsTP1QrFmTNncAQKIzLH+vXrg4OD
xYpDSkrK66+/XqVKFVzG1KlT/Xz/hWB9CJWVmsMlOnTo4P0x+06JEMyhUaNG
kHP1RTAwkNy5cx8+fFj/vEfqAJWC9gg+jMIOHToUCoHd2Lt3rw0p9Ybipos5
8kieLSIpKQl2pExp2gOuAVun3JuAG4KkIU7qM3k8QkbTdCsUF4O/efNmfN/R
o0dFnIg5zZYtG97Zetg4d+5cXDlOVlkT1FPc/6e9M4+uokr3djOJRKYQCENI
GEUCNiKXQQWMBgQCYhhkBpMrQ5gjoCBzEJkDRCAEkDGNDDFh6AabJYiCAiou
RIYgCwPCutq2zXAXNIvrurdXvufLXrdW3VN16tQ5VTlJ8H3+Ss6ps2vXHt73
9+7aw8aNG4l/9cuZacmo9IMHD+7atYvIy+a9BCFgnEhczPi4ceMGDx5MO7fz
0hB7gqmnF7z66qumboL2jym2uYSE1N555x2cDuaFHqr3d1iDyMhI7ID2oXKL
S5cuVZ/gwlq2bImmXbx4Mf0RazB37tyYmBiyZ70xux2J+8svv5D4iBEjvBmZ
06dPv/LKKyEhIRUrVhw0aBAGR/8tngj7g+Mgq/v370eNZ2dn79y5k0JOSEgw
mk1qENdTu3btsmXLtm7dWm2Jpn3L3/ycAlGvvbBj2MypBfDImHdc/IQJE/iV
MZ/kn6fArjpZhe3BoUOHQkNDvR2Wyh15drUuCe2EzfRwoGfPnlVr5TDFCxYs
wFuR8xUrVlApq1at8mhU9lOzic2iVov4qCyPqGH79u1UekZGhlGbqZ9MmTLF
zlDS3bt3aRUDBw6cPn362LFj0VHNmjWjEpcvXx7MAzG518iRI+nONgfPr169
6lFigeFKE1LCr2nTph5SATlBB+ndu7cx4vOrO/CY6BNMK72MG6mN1KiySZMm
BTAL0YnEDbI5UvjVnu1AOhQdaXqbbG+zb+YXVPHo0aPT09PxAhh8Cvbzzz8P
LLVi2NOtJS7avmfPnl27dl2/fj1iGwlKasj7hQsX0pHj4+Ptzx/YtGmTmqug
XnmYSlwcLp/QurRPaDDo/yFDhlCbNqcjCoITApa4WE707aVLl/gDh2JzcEOF
flh7Y+xP36e/oDntO0Gu/PHHH42jE5hinKB+kSxX4pj0VoWO6aGlb9++7XOg
w47EVbP66d2m3+7du7dq1aqlSpUi9scMUhqoer3T3LNnD5ZHKwTEA7cj5r1y
5YqxZJANaFQSqVKlSlhYGH/o95dQF2Dx7hZARWPfeHByqGkS/SppI8uWLSNB
51vra+BZqBrT0ycfPHiA3cNsPvLIIzgXJAp/63eFwk4iGLQNcygNgqwdO3ZQ
0UaJ5W9qPrFf1GTM9Ng1lWHTCE4tl/O5Z50elBJqRJvqGfx1dnjGunXrUg7G
ExMKFbeaEKbPdPkVBu3ixYumCsHf7kBjwEKqYS7MI/UVWAziROIG0xxpBNCe
raEMu3fvTprG0CPfn76p/qUZnDhxAumOzDOKuhLd071JXD4nzqpevfq8efP0
8wAJ8VJSUojpeEwEv/2QZPfu3eXKlcP1q/0ZjBJXTRfkEyS6vtnzOS05mMG4
8HsmYIm7efNmYtX8giMbwsPDCQztvEAnsMWcxsTEeGyqQKcgsm7btq3Hfib2
wWLQhb/77jt1HKf9NWt+YUfiHjp0qHLlyqavI8+fPx8dHT1t2jQ194+sZmVl
1atXD6+tLkBjT5482eaSFqxlv379KPkzZ85o6cfGxvbq1UvZT4zJmjVr1DYR
mNw6deosWLDALzWCF+BZ3FocrdaVo4uMO2aQq3Xr1jVp0gTJqqwfUpyCatCg
gfaC4KuvvrK5cb27qeX7WdQBQDYGDBjg7oB5YUPbwMc5mRweAEFrQqa42x3s
40TiBs0c6XG9PavNBPr372+sO3f7Zknv6d4k7s6dOwlhxo0b5yHpyc/UqVMJ
gggG169fb/9Gam3m448/rpS8UeKqzRMs5iUKQhAITOJi+mi9ag4bqrVMmTI2
p8Zt3bqVizHX+vFSfkjnqlmzpunrcgUdVq0U83YBj4C3Xbt2LQ4ON6df+esi
diTurl278CnG7X/p+BMnTtTPIFUcPHgQ0600P5ZzxYoVNlUocfSIESM8RqKI
8TEy33zzTX7B0leqSb1Iys7ODg0NPXz4sJ2UNSjVSpUqqVjGDjdv3ly+fLma
AWIcpqASExISTI9uzMvL6927NxGK/kPML/6XBCkQ/p49e/aJEyfsZMPd1PL9
LOoAUEtLUBcer4mLLeo4WvxX/fr19XNZnVNMmpAp/nYHt3AicYNmjvQE0J6R
lNQOvyKrxjvSvxo2bDhmzBjjkKm7fbOk93RTiXvhwoXIyMjGjRsbN5zRxlq1
nY7ozm+99RZhjvU7zR9++CEiIkJ7n2KUuPfv3+/evTvufuPGje4/pyD8XzBZ
qL4dBjBxBPLEccav6OzeFn7SemnYuDli3i5duoSFhanu7xM1rV0/ikvXIMCs
UqUKItmbguUaetyzzz5rEfnevn07NTV1/Pjx06dPD3jtgE/sSNzNmzfjB42T
PC9evIhtNL5oe/DgAZ9j4dUpXZcuXbKTEy5OTk72cOiKLVu2rF69mkLbtGmT
NqU/MzOzZ8+e/m7uTahO4EAjsXm9Ok0DZ2S6LQwao2/fvi1btjSO1ZPVDRs2
GF0bpZGUlERrOX/+PK3U5lI7d1Pzt6gDgJZP1RPlOT+j2Rs89bp162bNmjXT
HikpKV9++aW31KhKdRyh8Y2MQ4pJEzLF3+7gLyiQrKwsoylGhDz++OMZGRnG
r1Dd1lIkOObIgwDaM6Z1yZIlISEhpntWUDIIKuOmyu72zYegpxslrhLVdNXh
w4cbAwT1WoRv9eNOhw8fxiOPGjXK4n0H7YSeiIJVY79GiYt4iIqKotacb6Ii
CD7BvMfHx7c30LZt2woVKjRt2tT4Fc7L1GXoUady29+rcNu2bWXLltWv3MSd
EQkOHTrUdJKVAntLEFocXuPakbgUGn7QOF7KI3tblYNVR+dTmOh8m/uoYJp+
/vln09rBK2HlKCtsqcMdttX2nn69wMKgYcBNDyrF9NEITU+v4xPTneLUzoq4
g1WrVpmuczfF3dSCUNTcQr0udHgIiwU8dZMmTUqVKvUHexCKonK9pabet3JZ
7969fb73p+hycnLsr4UvDk3IlAC6g30oJbTTCy+8YDTFzZs3L1++fJs2bYxf
aaOL3giOOfIgsPacnp5evXp10+nx6CWaBPXoIXHd7ZsPQU83Stzr168TH9Gd
TbdxIOLr1q0bHVk71T2/oJfhkevWrWs9WER3QAl36NDh1q1bHhKXfxcuXFi6
dGmKS3YGE4oQJzsq0IxnzZqFZCWwtfkT7C3NXlu5SR/BcMXGxlpoV0JLLFtc
XFxJkbiZmZmVKlXya6bEsWPHUlNTMRHGtb0BoJYDIypWrFjhcBIUkqBy5cqm
51F6w+KgUqWLnnzySfvTpMk/JbNv3z7agPM9b91NLd+9oua3ycnJ9s/1K3Jw
W+PGjcOj2dkzny48ZswY+49WbJtQAN3BFZxMVCgScxRAe7Y+nZZ0SM2v9VAu
mkEXUyvsnm6UuGrSbK1atUwH5BGx6kRRj2/3798fEhKycuVKizEuniUtLY3g
Cx2LVNZL3IMHD9KFEc8+XTZdkiKlTPi5W4sTBUHDicSl9SI7GzVqpKYV0ch9
9v1ly5bRCxISEugFu3fvDg0NjYmJsVgiSoJr167NyspKSkoqKRIXZ4of5Ons
J3vx4kUeEEPhyjtfKmLy5Mljx441XXXuF5Q8z+JtgyYj6lgNbweVYnV5TBqM
XwtYCKBQU+vXr3dl2b67qblV1JTM66+/brEnUjHEuOmlNz788MOlS5faFAbF
uQn52x3cwonELRJzFEB7VjvzeDtIl8ZAk8Bx2B8SdNEMuphaYfd0o8Tdvn17
uXLltN29PC5etWoVvZhH8yhYhEHr1q07dOhgPQ2GFFCzGIHOnTvHxcXh3KlE
7l6vXr25c+faOTD6wYMHpECPfvXVV+XIM8F1nEhcdeqfMkrEX9OmTbNeeILz
mjFjhjrrk/CQ33Jr65c+J06cmD9/PomPHj26pEjcr7/+umrVqn4dl3nlypXm
zZu7NccPQzFgwIAhQ4Y4D4ozMjKMBy6TPoYRO0alYE7ffffdPXv2KPGgtsfH
Nk6cOBF3EB8fr188wh8LFiwICwvza3YWUqpFixZuTegyTQ3/hd+ZNGmSZuep
Yj7xuajEraImnR49etiRi8WHy5cv48hq1KhhOndRfxntxGPQtYQ2IdPuEASc
SNwiMUfe2jO6Ljk5mUofPnw4LgCXob2vP3XqFPkcPHgwwQjf0qf0s1VJh9S0
gwZs5sEtM+hiaoXd040SNzs7+5FHHunevbtRQNIr1XESRsetOtpjjz1mc4Uy
jTMxMRHnToLHjh2zX035Bfva1apVKzU11f5PBMEmAUtc9Co+CJmqtk/55ptv
iNqsX1mq1dD0gqioKCLH2NhYa6ONoJ06der169fV6eQlReJiLho0aGCcNmbB
+fPnSTawlR1GEGwIA+eCmfxjLfUnSOYX+Jphw4apQ+X4d82aNVSlZp3ULMq2
bdsq94R1jY6O1j/Xzp07cWR+bezw3nvv9e/f3y+b6W9q+PSIiAhtNhq+oF+/
fnbckFtFffPmTRoABVuCtoukeRB+li5dWn8cqgdXr17lWw8NXEKbkGl3CA5O
JG6RmCPT9vztt9+2atWKuiAn6gRY/f7G6enpNAPCTHUA5ciRIwcOHKitDVTT
GEznYHvDrb7pbmqF3dONEpcgIjIysmPHjh7WjAtmzJhRuXLlvXv3miZ17tw5
emJSUpKdkXNtLi4C3t/B2N27d1erVs360CVBCIyAJa5ap0kX+P777+n+M2fO
PHnypPVPMGvqAF91wJm1sSL9FStWqIXAJUviUhpxcXFEzfbXbn/xxReYdLdU
HMphyJAhzgWzWtrDs2gDF9gxdKD+zHH0Bn4KF6z9i/zQNn/jc/7VL0C+cOEC
bQZVYzMPatmC/cnegaW2Z88enkJbda5OIEpOTvapCtwqajpRnTp1Vq1a5TCd
IHP37l2cdbly5fCqHg6UxrNly5ZBgwZp+4sqSm4TMnaHoOFE4haJOTK2Z3rK
iwWodqIkK7ZU7fGi/tU2ylBrsqKiovQ7a61evZp6tz8U71bfdDe1wu7pRomr
DilGyh45ckS7jG9XrlyJsMzMzPQ2ewdVEB4eXr9+fTubP9A71L4N7dq188tN
q+0HvU1MEgSHOJmogCV84okn5s2bN2HCBHyQz3lumK8WLVqULVvWztY99MfU
1FTVT0uWxKUc3nnnnUaNGtkf7dm4caPautONPP7/xb+JiYnOX4SpU4+JzT3O
Qe7cubOapKc2nNHmlalZlPppZuiK8uXLf/DBB1qad+7c6dixY0JCgs1BDPzs
qFGjNDnkENPUyPb06dP19XX06FFklT7b3nCrqD/88MNatWoZH/PevXtLlizB
YVHOEydOzMrKCuY5YnagIy9evJjiUgdD4zG3bdtGbl944QUcq3GmR8ltQsbu
oOBfDAL5wQy+9dZb9H13d1HLdyZxi8QcGdtzTk7Oo48+iklXyaqjHLRjhdVE
XG1XK/RSnz596tWrp8/zyZMna9SosWvXLpt5cKtvupuat57uVisy3RdXHQQc
ERGRkpJy4MAB6vell1565plnMHSmtcyHO3bs6NatW1paWkhIyNq1a73djj6I
XUK0lylTRtuMpVSpUsSwRFXeDnLSz1OaMmVKmzZtZCKuUEg4kbjq58ePH7dp
e69evYo+pH/5HBzDksQXMKSAwYMHY6KrVKlCR8CfujXaGQB2JG5+wbHvkZGR
Nk/AwUpgf+ybbp9gnZKSkpy/CMMY8hT6mYdq0yTtwFaqKSYmBmekrBN6LDY2
llpTFaQCk2rVqunH8fjh0qVLn3zySZsx+7Vr1+Li4tx6NWyamsp2z549VbZV
Dm2OF7lS1OoYoE6dOnk40CtXriAUR44cyedkEgGAzgl4z/lC5fbt27t3737z
zTfJJEKXv72JgZLbhIzdIb9A4eOj27Vrd+7cOTK2devWqKgo070gnOBE4uYH
3RwZ2zOfTJs2DQOubRyHxqNatUMBzp49GxYWpu3GRs1GR0eTgl7m8TeREe3B
5oozt8ygi6l56+kutiKLA3wp8zlz5vAU+NBPP/3Um6QkkxkZGbg5MqNWlGtj
765gOk/JdIdAQXDOnTt3evXqpb0lLFTodPZ7Chf/9r/g+Lp27UrUj+kr2qMA
bUpcTBZdGHdvxyTyUCgZ3JArOaTcxo8fjwZwONxHOng6Ygr9eDuhUOXKlbX9
FS9dulSrVq1FixbxCO+///4//vGP559/fvLkyaqObty48cQTTxCeeIQkubm5
jRs3zsrKspMN/PIrr7zi1rCYaWqXL1+OiIiYNWuWNhGXunv22WcJ3zZt2mSx
8NmtoqagWrRo4THNj56CMHvmmWfUm1zyjBNMT08v6UdhltAmZNodqHdcc2ho
qDrCmH8zMzPHjRvn7wErPjl58mT37t0DTjbI5sjYntWsNv005nXr1lFu3OVo
AUhf+qA2Uyg7O7tSpUrGQ4fRwM2bN7ezmYZbfdPd1Ex7urutyJvEtQktBAFM
Tan94tQrADqsW1Gb6TwlbzsECoIrFH+niYND4j711FPeXnwEDZsSN79g4AVr
dv78eZ9XHj58mDDZxcPcSe3jjz92mM6FCxfwJh5HKqMGkRbq+CH8Jma/fPny
ewrAHylHpt42IhTfeOMNohLjDue0t5kzZ/bt29fnnEY1+DN16lRXmqi31HJy
cniKOXPmKP/Fv7jXxMTEa9euzZgxw+JEEreKOiMjA0XtsecARVqhQoW0tDSH
iRc3SmgTMu0OhD8ocEyTRSNxC4f75wfTHJm2582bNzdq1EjN6szLy3v66acp
OrpYSkoKZYuuxq6qmAUF26ZNm5EjRxons5GrmJgYi/fm+itd6ZvupmZaMu62
IicSFz87ffr0sLAw/XHP3333XXh4uJ2FCXYwnackE3GF3y3qrU1sbGxISEi5
cuWee+45YswiXHVuX+KSyQkTJmAZrE0ND6gmW7r1UKdPn27Xrp3D17LkedKk
SWPGjPF4mUVucVVY+7lz56JD0CQYq4EDB3KxslGokZ49e6IMk5KSXnvtNQya
afp83r59e5/TYzCDPXr0MD2UJwBMU1MSiKalppICjzZr1iycLNXnIWk8cKWo
KbeOHTtmZ2cbc1WlShWfSzhLHCWxCXnrDmrSxbx584rbBGkjQTNHpu05/3+n
g1LRiCiiGKx6s2bNyNLy5cu5F/dF33br1u3dd9/t3bs3efA2G23fvn0dOnTw
uamsK33T3dS8lYy7rciJxCVvoaGhW7Zs0eeENj9s2LCIiAg78ZFPTOcpmR7V
LQhC8LEvcfMLvHBcXJz1maGY98TERLd2DMgvOMxo6NChDqcrk+cuXbp4M+l4
q0uXLqlbkP9r167pHSKmNS8vz+eMFMqQwrGeXnj16lUMoPUhkvYxTY1nQW6h
qW7dupWbm6udfkXG1FQxC5wXNWWFP5oyZYqHhVcH2eNWKEn95/fu3Sv+71zs
ULKakLfu8PHHH1eqVAnFrv+QBynCxQIWBMEceWvPGsg86lqTNx5Kleb9ww8/
WGszUiYORSdbX+aKGXQxNYuScbcVOZG49+/fN+1NfH7u3DlXZosZ5ynVrl2b
MEfNU5KjfgWhaEHitmzZctGiRUePHj1z5ozPLkn4Hx8ff+HCBW8XYMcWL16s
3xvHIUTiNhW4Ny5evNirVy+35gZ7Q51bN3r0aIvXc/i7ZcuWuRXgm6Z2+fLl
OnXqLFiwIIAhFIdFrSbdvf7666ZaGimCxNVGcbn4wIEDFJcr5w4/HASnCVl0
B6xBq1at9ONvKOrhw4cX27H3QjVH1u3ZRe7cucNdtm7datFnnZtBF1OzLhm3
WhG94PPPPz9y5MigQYOIU4qnXDTOU6pQoQJlq+YpFXXuBOH3zq+//tqtW7fw
AtTQn8+fnD17ds2aNSXlRQz5JLeuHHnpEyTKrl27rCcDFDbq3Zxf5wi4xfXr
11Ff3vTAb7/9lpaW1rlz5yVLlqh3+vxR2OKhxFHYTchnd0BUdOrU6e2336Z2
xo4dO3HiRFfe5xYehWeOrNuzu3CX1NTU4J/BERg+S8aVVkQrbdq0afXq1fFN
JFU8X/f4nKckCIIguEVmZiahiutL4N0CKXLp0qUiX2UpWIDXRmvl5eUVz3Ez
oUTwu2pF1vOUBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEFwzrFjx2bM
mDFmzJjjx497fPXf//3f2dnZb7755sSJE69cuVIk2TPyP//zPx6fkM8iyUkx
xKNw/vWvfxmLqwh58OBBWlra7NmzL126VNj3OnPmzJw5c8aOHbt3797CvtfD
hNSRXzw05sjjQRw+hbQiv7h169bKlSvHjx+/aNGif/7zn0WdHUEo1mCsFi5c
2LRp0x9++MHjq7Nnz0ZHR9ObED/qkx9//HHq1KkVK1b8+OOPPS7mmu+++653
796RkZF5eXnByLoNUlNTIyIiyBWyfNCgQS1btly7dq32OL9n7t2717Vr1z/+
8Y9Dhw4dPXr0yy+/3LZt22+//bao8/V/+Nvf/tauXTsa4Y0bNwr7RsuWLQsJ
Cdm8eXOh3ujhQ+rIPg+HOcJKREVFvfjiiyNGjBg+fHiHDh2wIf/5n//pJE1p
RfYhIvjLX/7SoEGDAQMG/Pbbb0WdHUEo1mBgs7KyFi9ejObx+Orq1avTpk1D
uGqfoIenT5/eqFEjtK4xqfv378fFxXXp0qWYhJY8GtasUqVKpUqVKlu2bJs2
bXJycorVQGURcvfuXSTuo48++oc//IGYBWt54cKFos6UCdu3b69QocKmTZsK
+0YZGRnVq1cvbiK/RCB1ZIeHxhx98803CHUeAdNRt27dlJSUO3fuOE9WWpF9
sNXh4eErV64s6owIwkMFMjg2NrZnz54EksZvr127Vr9+/dmzZ1uMS6B+N2zY
MLcArBmq2OdN/+u//uv06dMBhKtkA2v25z//GT8StKES8kluTcunMPjb3/6W
m5sbwA+RuFOmTPmP//iPYv6q9KeffmrWrBlq3BiC3bx58/z5867chUJITExE
dZCmKwmWICjDX3/91UkKv6s6Kjxz5GJZ2SHgekccYr0pAXdNR5G3IjKwZMmS
OXPm8HQHDx4szqPrhAPVqlUzThcUBMEJV65cIX6fP3++affHLISGhu7fv98i
BSRZdHR0u3btevfuPX36dISW9R254I033ti8eXMABkfzKf7+0Anc9E9/+lNy
crLDN3d2IJYfNGjQuXPnAvitJnFdz5W7oAfefvvtqlWrnjx50uMrXCFtY+vW
rc6d0d///vdWrVqNGjWq+Ah+nu7SpUv0F/3T8beL7Uq11fHjx/vshtb8fuqo
UM2Ri2XlMydO6l1JXNdrochbEd7ttddei4+Pr1+/Pn9YPOCDBw8OHTqEHl68
eDF/EPU4zJVfUFATJkwgHPj555+DeV9BKCTOnj07a9aslJSUr776yqKPX7x4
cerUqR999JHNl190zPT09LFjx6I2v//+e/3n69atQ6S98MILRIv6O+bk5CBi
//rXv/IhN0pISCDoJpF/FUAOfU7ExWX/27/921/+8hebOcToEVYHNuNI+RQe
gRxiITFHxvnG/nL//v3XX3990qRJmgHkWfjk1q1b2jV8RRRAXRSq6btx40bP
nj2Nk6JtoiTuJ598Qq3xOLgPhzqn8Pjyyy9xfG+99ZaxYf/yyy99+/a1jqq8
gbynkY8ePXr48OEzZ86sVq1akU/P4wGPHz9Oc6pdu3ZUVFSHDh1atGiBL1u7
di1dgPZMDsmzW+qCpotDd8VR/h7qKAjmyElZ2cdhvSNx8Uf79u2juqdPn370
6FG3plsUh1ZENVHL//7v/+6tl2Fyu3fvPm3atN27d2M2+/Xr9+STTyJ0A8hY
foGzeO+994YMGTJs2DBuSg7p/ghsPsGD3L592/iTO3fuPPfcc/379w+ytBaE
gDl37txLL72E5DC+4P7pp586duz4hwIeeeSRBQsWmBpYWvugQYO4ply5cjaX
MHz44Yfvv/8+ZrZevXrYXvUhtoWfY4e5y7hx4+hKWi9TE3EbNGjAT7Zs2cJl
ubm5devW5b5crCbi8hTWE3H9krjbtm3r0qULcbedi01Zvnw5IpzQAEuyd+/e
5s2bHzx4MODU8v93HPvdd99VJUyxY+Kef/55j7E1FG+PHj0Kzx1T2thDvG3A
zuXevXu9evWiyeHpqDL+6NSpU2Gv9QgMsodPiY6ONh1z/vzzz9u3b+/vbA3c
dKtWrXAuFCDpEyzg+IglXcpyIJw/f542U7FiRfSPfmk5HZAYZMaMGYSW4eHh
Wld1CFHts88+iz5xJbXfQx0FxxwFVlb2cV7vZ86cadOmDaWBFcIXxMTE0Dhd
kVvFoRVZS9wTJ04kJCToowOSXbNmDU4h4NEGaoRmsHLlyqeeegoPXrNmzZSU
lJycHMrZ1NeribgrVqwI7HaCEHyWLVtG20YseZubivtDbXLNY489ZhrJ4gdf
fPFFpYTp0T7tMDeiHyFpduzYQZf/9NNP1ec//vjj/Pnz/1lA1wI0yaom4nKX
hQsXZmdnYwoQ5AcOHLh+/Xr+/07EJbq3Vtf2JS4Jtm7des+ePT6vtABbpEl0
zAWRcsuWLZ0MW5Gf0NBQLWbHFDdp0iQ5OdkoNakm8n/16tWA72VBVlYWXsaJ
IqWa8vLyNDNOaTds2BBxVXze1GuQN4IIYrfMzEzjt2R4woQJI0eOtO9kVWcB
FZiohtG2bVv9UHwwoS54tMqVK3fo0MF02gl98LXXXgsJCalatSoCyfkdKatR
o0aNGTPGrRXZD30dBc0cBVBW9nGl3mmNyuYr8CA0S4dDB4ri0IosJO7du3f7
9OmTmJj4yy+/6D+nQAhOSdbJnHbuu2DBAtx3XFyc9QNu374dH3Ts2LGA7yUI
9kHmZWRkXL582UkidMBTp05Zr1Gi+zdr1owu0LlzZ9N3ynTJP//5z4STkZGR
NpUVd6TP4liNS2JJISoqas6cOZpkVQOYpUuXfvnllw8fPuxhJNVE3H379lnf
0abE5abcmid1d0br0qVLy5cvH7CfMm4ocfToUcz7Bx98YLyYOurSpYvpSzeH
YJ9xBIsWLXJxzh7xC47giSeeKG6zc3NzcynG9PR0QolXXnnF9B3B6dOnqRT7
oyg5OTmPPvpoamqqKkDiQZRGUlJSYPKeeIdwJuC64KaLFy/GrfN0Fi6SHkd4
Sz493GtgHD9+vHHjxq6o5fySUEcOCbI58res7ONuvSvOnDmDDXQ+R7qYtCIL
iUsOa9SoQShqXOe1atUqqjI7O9tOrkiZGMFjGIr7YtLx77hXD4mLK8Edq7an
JuJGR0f/9NNPdu4lCA7BK6ENgrOmae3atWXKlLEYyaGbYDZbtGiBkrST4Lff
fluzZk3NAujhiZCs+ufCFHPrvXv38iF2EiOgjTmribh169b1OdnVpsRFaPEU
q1evtvMU3vjss89Q7wcOHNA+WblyJQUY8PwBjw0lVGlTgBcvXjS9nvoiKtGP
eLgCVdCwYUMnS4zVZsg9evTQBC1ViQevU6dO8dnTOL9geyJay/vvv49TmDJl
SrVq1fBxxsvwhvHx8cOHD7czNsWzT5s2rUqVKgSV6pOvv/46LCxsy5YtAeRQ
RT04ncD8O01o69ateGEe0zq4UO8Lhg0b5nzclayOHj2aZuzK5n7Fv46cE2Rz
5FdZ2ceVekeY9enTZ+bMmVrezp07R6XzoZPcFp9WZCFxuTsKPDMz03j3ffv2
0YvfeOMNOwMaeIT+/fuXLl36mWee0eytqcTF0bz55ps0Ehwut+AaNRG3X79+
MhFXCA7BlLhXrlyJjIykwW/YsMHbNRs3bhw0aJCdTavoL++88w6qBoX2xRdf
6GWnGrWoV6+eNhqsXHn9+vWvXbvG3/RlNeJHCM+zq4m4aKTbt2+vX7/eQmDb
lLh/+tOfIiIiAtsrQINSql69elZWlvZQs2fPrlixojYrw18uX75MrrTJGBgZ
DPuzzz5LG9i0aZNRopB/rkfDOHgIT7CugwcPprSd+Cly3rt371atWmn1e+vW
rXbt2rVu3br47Jp17NgxDDtSXPmakydPEmF5mwnz3nvvNWjQwM6xeqQ2duxY
LtaG4tetW1ejRo2zZ88eLcCvTDqUuDxUeHh45cqVjxw5Yn0lPSsmJgYPG8Bd
PKDSCZEoMedJlYg6ck7wzZH9srKPK/WODaxbty61o0ms48ePV6pUiV4Q8Ouq
YtWKfC43MwWPVqFCBeMArDfUrGAErfaYphJXFQXNBnGuPlETcZcvX45OVhGB
/UwKQgAEU+Leu3evU6dO9AJv0SLKlgjXQgDrQZd26dIFkYb3RNDqRwXpgHzV
rVs3bZxWDWCirPiEbjVq1Kj27dsjh9LS0r788ksKAeE6ceLE77//fsaMGRa7
3dqRuKTPU3Ts2NHhjuK5ublTp07V3i2SSeLfYcOG2dmM15ScnJzy5ctrkzf4
F9uemJiI7Oepjds5kn919I+LozE3btxo0qSJt33b7PPBBx9gIbVE8LO1atXa
tm2bG3l0gQMHDtSsWXPy5Mmatad4aX7e3lCcOnUKR7Bjxw47iW/evLlRo0bq
jUNeXt7TTz/dvHlzXEZKSoq/5184kbhqxR/dmSbk0zMSg7zyyivaeJQTPvzw
Q7yk86RKSh05pEjMkV9lZRNX6h3XgK3Tzk2g/SPSsEj6PXn8ori1IjsSF4Of
mZmJ7zt8+LAaasCclitXDu9sf+RhyZIl9H2crPZO0ChxN27cWKZMGf1y5k8+
+QSVfvDgwV27dhF52byXIASME4lLRDxu3LjBgwfTzu28d8aejB8/nl7w6quv
mqom2j+m2OYqJFJ755130GCYF3qoXjJhDSIjI7ED2odKWS1dulR98tFHH7Vs
2RJNu3jxYvoj1mDu3LkxMTFk77PPPrO4qR2J+8svv5D4iBEjvBmZ06dP4+5D
QkIqVqw4aNAgDI7+WzwR9gfHQVb379+PGs/Ozt65cyeFnJCQYDSb1CCup3bt
2mXLlm3durXaEk37lr/5OQWiXnthx7CZUwvgkTHvbdq0QeHwK2M+yT9PgV11
sgrbg0OHDoWGhqKuTb/ljjz7U089hWGMiIjAZno40LNnz6q1cpjiBQsWqHX6
K1asoFJWrVrl0ajsp2YTm0WtXspTWR5Rw/bt26n0jIwMo7xXP5kyZYqdoaS7
d+/SKgYOHIg6HTt27NatW5s1a0YlLl++3N9gxInEVRMFiZLsDEtS8lzvfC4o
GZ40aRJl5W1exMNXRw4JsjlS+FVWdnCr3vkbxTh69Oj09HS8AAa/ffv2n3/+
eWCpFcNWZC1x0fY9e/bs2rXr+vXrEdtIUFJD3i9cuBC/HB8fb3/+wKZNm9Rc
BbX2zVTi4nD5hNalfUKDQf8PGTKE2rQ5HVEQnBCwxMVyom8vXbrEH6gIm2N9
KvTr3LmzMfan79Nf0Jz2x/e48scffzSOTmCK0VH6RbJciU7TWxU6poeWvn37
ts+BDjsSV83qp3ebfrt3796qVauWKlWK2B8zSGmg6vUacs+ePVgerRBu3rzJ
7Yh5r1y5YiyZq1evolFJpEqVKmFhYfyh319CXYDFu1sAFY1948HJofZCX79K
2siyZctI0OErTj14FqrG9PTJBw8eYPcwm4888gjOBV3K3/qNxbCTyHJtwxxK
gyBrx44dVLRxfoK/qfnEflGTMdNj11SGTSM4tVzO5551en766SfUiGoSSMfA
1tkFLHEp3r59+1IIpos9Cw/u2717d8rK+NIh/yGtI4cE0xxpBFBW1rhV7+pf
+v6JEyeQ7sg8o6gr0a3Im8Tl823btlWvXn3evHn6eYAXLlxISUnp3bs3j4ng
tx+S7N69u1y5crh+tYDUKHHVdEE+QaLrtQGf43SCHOgJv1sClribN28mVs0v
OLIhPDycwNDOC3QCW8xpTEyMx6YKdAoi67Zt2wa84BqLQRf+7rvv6Npjxoyx
v2bNL+xI3EOHDlWuXNn0pfn58+ejo6OnTZum1p6T1aysrHr16mlzFFELkydP
trnCC2vZr18/Sv7MmTNa+rGxsb169VL2E2OyZs0atU0EJrdOnToLFizwa4aA
2gzKrcXR2E+erm7dusYdM8jVunXrmjRpgmRV1g8pTkE1aNBAe0Hw1Vdf2dy4
3t3U8v0s6gAgGwMGDHB3wNwOAUvcvLy8qKgo/JeTSYwBoBaV9+/f31hxD2sd
OSRo5kiP62UVtHov6a3Im8TduXMnIcy4ceM8JD35mTp1KkFQ6dKl169fb/9G
OIXHHnvs8ccfV0reKHHV5gkW8xIFIQgEJnExfbReNQ0e1VqmTBmbsyu3bt3K
xe3bt9eP/PBDOlfNmjU9Xpcb+4WFI+YRKlasuHbtWlQN2ka/8tdF7EjcXbt2
4VOM2//S8SdOnKifQao4ePAgpltpfiznihUrbKpQ4ugRI0Z4vPwlxsfIfPPN
N/kFS1+pJvUiKTs7OzQ09PDhw3ZS1qBUK1WqpGIZO9y8eXP58uVqBohxmILq
S0hIMD26EcnUu3dvIhT9h5hf/C8JUiD8PXv27BMnTtjJhrup5ftZ1AGglpag
LjxeExc2AUtctQlYuXLlTHecCxilst56663k5GTTJTmUc8OGDYlhjRl+WOvI
IUEzR3oCKCskJV2SX5luYRe0ei/prchU4l64cCEyMrJx48bGDWe0sVZtpyPc
Oh2QMMf67cwPP/wQERGhvZIzStz79+93794dd79x40b3n1MQ/i+YLFTfDgOY
OAJ54jjjV3R2bws/ab00bPwjMW+XLl3CwsJU9/eJmtauH8WlaxBgVqlSBZHs
oWlTU1PpRGgVLNugQYOI4i0OPrt9+zbXjx8/Hpcd8NoBn9iRuJs3b0YWGid5
Xrx4EdtofNH24MEDPsfCq1O69CdDWcDFyAAPFafYsmXL6tWrKahNmzZpU/oz
MzN79uzp7+behOoEDjQSm9er0zRwRqbbwiAs+/bta7o5KlndsGGDsXIpjaSk
JFrL+fPnaaU2l9q5m5q/RR0AtHyqnijP+RnN3tI/efIkHc2jj9Mfe/Xq1bVr
V6IYj6+4+IsvvvAmfbmejoxb1NZKuwIlSTn36dPH2w5++GhswqRJkzxsxUNQ
R/kFVnrdunWzZs2aaY+UlJQvv/zSOs3gmCMPAigrTOuSJUtCQkJMt3AJTr0/
BK3IKHGVqEZ8Dh8+3Nid1Zs1vtWPOxHA4pFHjRpl8ZJLTVVCwaqxX6PERTxE
RUVRa942pRQEF8Gnx8fHtzfQtm3bChUqNG3a1PgVQtRUJ+hRp3Lb36tw27Zt
ZcuW1a/cRBERCQ4dOtTD2HLfZcuWYZxLlSrFT9q0aZOTk1Pk7zvsSFwKDVlo
HC/lkb1taYVVR1FQmOh8m+NpFMXPP/9sWjt4Jazc3//+d2ypwx22P/nkE57F
rxdYGDQM+PLly41fYfpohKan1/GJ6U5xamdF3MGqVas++ugjm3lwN7UgFDW3
UK8LHR7C4g20E/KgQ4cOxm5eu3bt8PDw5557zuNzLsYzehvJIWKiV/JbO546
NzcXhWCz8xJ39OjRo3PnzqazLvGbtC4q0SO1h6CO8gtGxpo0aYLF+4M9iDJQ
udZpBscceRBYWaWnp1evXt10enxw6v0haEVGiXv9+vXHH3+cpmK6jQPdrVu3
brQl7VT3/AJDjUcmzLQeLMI7oIQxFLdu3fKQuPy7cOHC0qVLU1yyM5hQhDjZ
UYFmPGvWLDwdga3Nn2Bvafbayk36CIYrNjbWqHlIPCMjg4xhE1w8BsshdiQu
3h9l7tdMiWPHjqWmpmIijGt7A0AtByYiWLFihcOgAB1YuXJl0/MovYFzrFat
mun5jGoe2pNPPml/mjT5p2T27duHd3O+5627qeW7V9T8Njk52f65fm4R8EQF
OiahcZ06dXxKXDovhbN7926bKf/4448NGzacOXOmaa+nfCglv9bFlPQ6ckiR
mKMAysr6dNoirHd3UyvsVmSUuGrSbK1atUwH5BGx6kRRj2/3798fEhKycuVK
C+fLs6SlpZUvXx4di1TWS9yDBw/iBRDPPqccY4cpUsqEn7u1OFEQNJxIXFrv
008/3ahRIzWtiEbus+8vW7aMXpCQkEAvwOuFhobGxMSYLhHVJG4AGSs87Ehc
FBSy0L5Pzy8Y+UxKSsJQmB5t7C9UxOTJk8eOHWu6cYFfZGVl8Sze9vgyoo7V
aNq0qelAB1aXx6TB+LWAhQBq3Lhx69evdyXScTc1t4qaknn99dct9kQqJAKW
uOoYEYuTCjXy8vIoH/szZP76179iFvbu3Wv6Le2K1oUBsZ/hkl5HDikScxRA
WamdebwdpFuE9e5uaoXdiowSV80p0nb38rh41apVZcqU4dE8CpYO27p1a5/7
pZACavb555/v3LlzXFwczp1K5O716tWbO3eunU0CHzx4QAo4hVdffVWOPBNc
x4nEVaf+KaNE/DVt2jTtHBZT8KczZsygF2A8CQ/5Lbf29tJHSVy6Z3p6Oqpp
8eLFhTcFzj52JO7XX3+N6/fruMwrV640b97c/pRXazAUAwYMGDJkiPOgmCow
yhjSxzBix0aPHo05fffdd/fs2aMUozotAts4ceJE3EF8fLx+8Qh/LFiwICws
zK/ZWRs3bmzRooVbE7pMU8N/4XcmTZqk2XmqmE98Lipxq6hJp0ePHvo90oOD
k03DePDSpUunpaVZXEbBkr7xLTn+PTk5mfYzfPhwTAGmQ723pYXMnz8fiUv7
IRLp379/SkqKvmwpH0pJ23DeDiW9jhxSJObIW1l5q/f8gjMRyOfgwYOpd76l
vvQGvwjr3d3UCrsVGSVudnb2I4880r17d6OAxJ2p4ySMjlvZ6scee8zmCuWf
f/45MTER506Cx44ds19N+QUTmWrVqpWammr/J4Jgk4AlLs4RN4RMVdunfPPN
N0Rt1lswqQX19IKoqCgix9jYWOPKej3Lly/v2rUr+oof7t27l56o3+q2SLAj
cTEXDRo0ME4bs+D8+fMkG9jKDiPoCrSlc8FM/rGW+hMk8wt8zbBhw9Shcvy7
Zs0aqlKzTmoibtu2bZV7wrpGR0frn2vnzp04Mr82dnjvvfeQOn7ZTH9Tw6dH
RERos9HwBf369bPjhtwq6ps3b9IAKNggbxfp5OiHL774gmjlj3/8o7cxeQoH
L7lt2zaPAfNvv/22VatWVAR3VyeBauuy+cnLL7+sDgfhVzdu3CAe0c+DUq+z
Tadze6Ok15FDisQcmZaVRb3nF0zExZIQZqoDKEeOHDlw4EBtQWgR1ru7qRV2
KzJKXIKIyMjIjh07elgzLpgxY0blypW9vTE5d+4cxjwpKcmOcdDm4iLg/R2M
3b17d7Vq1awPXRKEwAhY4qp1mnSB77//nu4/c+bMkydPWv8Es6YO8FUHnPk0
VvpTCZSJa9mypbUqLmzsSFxKIy4ujqjZ/km7qAVMulsqjkIbMmSIc8GsVofx
LNrABXYMHag/cxzJip/65JNPtH9RsNrmb3zOv/oFyBcuXKDNIIxt5kEtW7A/
2Tuw1Pbs2cNTaKvO1QlEycnJPlWBW0VNJ6pTp86qVascpuMvTiSuWl0eEhKC
AcnNzfX49tSpU0OHDjWuMqPEXixAOVzVr+lTaiaDmoirLZxXJ2sjdfQprF69
miZkf1S/pNeRQ4rEHBnLyrreNfOu9lpRa7KioqL0O2sVVb27m1phtyKjxFWH
FCNljxw5ol3GtytXrkRYZmZmepuyhSoIDw+vX7++nfenOAu1b0O7du382vKX
7BF/eZvbJggOcTJRAUv4xBNPzJs3DxeJjPE5uRHz1aJFi7Jly9rfr0nP0qVL
y5cvjxoJIKtuYUfiUg7vvPNOo0aNrKdt6Nm4caPar9WNPP7/xb+JiYnOX4Sp
U4+JzT3OQe7cubOapKc2nNHmlamJuPppZkggqky/deqdO3c6duyYkJBgcxAD
Pztq1Ci3dqYyTU3JPH19HT16FGVuZ8dXt4r6ww8/rFWrlvEx7927t2TJEhwW
5Txx4sSsrCx3l146kbj5BU2duODJJ5+sWLEi5ZCenr579+758+f37NlzwIAB
pkvj1bG/qamp6kHUlv7a8bIER5R8dna2uljtvYm00KdAKF2jRo1du3bZzGRJ
ryOHFIk5MpaVdb2ribjarlbopT59+tSrV0+f56Kqd3dT89aKKBbcCoaRzvjW
W29RZYFNhDbdF1cdBExXSklJOXDgAPX70ksvPfPMMxg601rmwx07dnTr1i0t
LY0Ydu3atd5uhxmnzSPay5Qpo230UapUqerVqxNVeTvIST/VbcqUKW3atJGJ
uEIh4UTiqp8fP37c5sjq1atX0Yf0LzuvzD777LMOHTroFwITddKPNm/eHFhW
XcGOxM0vOPY9MjLS5gk4WAnsj33T7ROsU1JSkvMXYRQ+T6GfiKv2EMP8aqdJ
xsTE4IyUdcLXx8bGxsfHq/EfbCwWrFq1ato5QfkFxpNQBVFkM2a/du1aXFyc
fe8cQGoq26gylW2VQ5vjRa4UtToGqFOnTh4O9MqVKy+88MLIkSP5nEwiANq3
bx/wnvPebu1E4ip4fIwA3pOsktTq1auNO8xrt5s2bVqVKlVOnTqlPsHX00K0
zeGRQPql3/v371e6SJ8I/pogi6ZlM88lvY6cE2RzZCwrn/VONBQWFqZtTohx
iI6OJgW9zCuSenc3NW+t6P79+yi9du3anTt3DvuzdevWqKgo001pfGJxgC9l
PmfOHJ5i8eLFn376qTdJSSYzMjJwc2RGrSjXxt5dwXSqm+kmk4LgnDt37vTq
1Ut70Vyo0Ons95QNGzYQCWZlZal/6aGzZ89GX+nPCg8+NiUuJosujL+zYxKx
53hJ3JArOaSQx48fj0hzOJREOng6gmv9eDuhUOXKlbX9FZEiCJJFixbxCO+/
//4//vGP559/fvLkySqEuXHjxhNPPDF48GCPN565ubmNGzfWatYa/PIrr7zi
ykYT3lJTmwPMmjVLm4hL3T377LOEb5s2bbJY+OxWUasZpx7T/OgpqPFnnnlG
vcklzzjB9PR0d7eGVotKZs6cGZwdp9XsJv3s7nXr1oWGhtL4jx49euTIkfnz
52vzLek7I0aM4GLjATRooebNm9vZl+MhqCPnBNkcGcvKut4B6Usf1GYKZWdn
V6pUyXjocPDr3d3UTFsRaSLwKA3l2vg3MzNz3Lhx/h7To6VmKnFtQgtBAFNT
ar849QoAmx+Y3jbNnnGqm7dNJgXBFYqbQVYghKZOnapJYvr7c889R/QXwAwH
F7EpcfMLBjyxZufPn/d55eHDhwmTXTzMndQ+/vhjh+lcuHABb+JxpDJqEHWq
jh+iIjD7auoI4I+UI1NvGxGKb7zxRsuWLY07nNPe0FR9+/b1uTZZDf7QDFxp
ot5Sy8nJ4SnmzJmj/Bf/4l4TExOvXbs2Y8YM0wMIFG4VdUZGBoraY69girRC
hQrW+xW4Ak8dTAuwefPmRo0aqdl9eXl5Tz/9NHEQRZ2SkkKTIwbhE6Vh9u/f
X7duXdPpIpR8TEyMxftT/ZUPQR05J5jmyLSsrOsdXY1dVWEvtd+mTZuRI0ca
TX3w693d1ExLhiCaoujatauFqbGPE4n74MGD6dOnh4WF6Y97/u6778LDw+0s
TLCD6VQ3mYgr/A6hq9LRRo0aRURPoNetW7eEhAT7RwYUEvYlLuHwhAkTsAzW
pobHVBP53Hqhdvr06Xbt2jl8s0+eJ02aNGbMGI+XWeQWV4W1nzt3LlIWWYux
GjhwIBcrG4Wg7dmzJ8owKSnptddew6CZps/n7du39zk9BjPYo0cP00N5AsA0
NaV7y5Urh/+dWgCPNmvWLJws1eeh8D1wpagpt44dO2qzT/W5qlKlis8lnCUO
NS2QNoMzJSAiXGrWrBlFvXz5croAUc+bb75JT589ezaVZbHzBmK4Q4cOPjcX
lTpSBM0cmZZVvq96577oW4z8u+++27t3b/LgbbFbMOvd3dS8lYya/TVv3jxX
BpydSFzyFhoaumXLFn1OcAHDhg2LiIiwEx/5xHSqm+lp74Lwe+DmzZvoyV27
dl25cqU4LOKwL3HzC4RcXFyc9UGxmPfExES3dgzILzjMaOjQoQ43ZyDPXbp0
8WbS8VaXLl1StyD/165d0ztETGteXp7PGSmUIYVjPYv76tWrGEDrQyTtY5oa
z4JiR5bfunUrNzdXO/JMv5uHN5wXNWWFP5oyZYqHhVcH2eNWPCa13rt3r3i+
c/EX3D3NRnNzHoqFwvepYSgx4hH0krUrlzrSCII58lZWGtb1TtH98MMP1hUa
tHp3NzWLkvn4448rVarkscaEigjsdk4k7v37900NMp+fO3fOldlixqlutWvX
JsxRU93kqF9BKFqQuC1btly0aNHRo0fPnDnjs0sS/sfHx1+4cMHbBdixxYsX
6/fGcQiRuE0F7o2LFy/26tXLrbnB3kAGrF27dvTo0Rav5/B3y5YtcyvAN03t
8uXLderUWbBgQQABlMOiVpPuXn/9dVMtjRRBPmkjhFx84MABisuVc4cfDu7c
uUPpbd261aLupI70FKo5si4rFwlCvbubmnXJ4FNatWqlH8UlGB8+fLi/bwcw
pJ9//vmRI0cGDRpEnFI85aJxqluFChUoWzXVrahzJwi/d3799ddu3bqFF6CG
/nz+5OzZs2vWrCkpL2LIJ7l15chLn6Byd+3aZT0ZoLBR7+b8OorCLa5fv47k
9qYHfvvtt7S0tM6dOy9ZskRNC+GPwhYPJQ4KJDU11a330UYevjoqPHNkXVbu
Utj17i4+SwZp2qlTp7fffpv2M3bs2IkTJwYwKwCj3bRp0+rVq+ObSKp4vkrw
OdVNEARBcIvMzExClcAWLwcBpMilS5e8bS8pFAekjgTnoP1Q7Hl5ecVz9NVd
rKe6CYIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCII3/h+cs0VE
     
     "], {{0, 217.}, {929., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{746.9999999999984, Automatic},
   ImageSizeRaw->{929., 217.},
   PlotRange->{{0, 929.}, {0, 217.}}]], "Input",ExpressionUUID->
  "a72e8234-b9e3-410b-8d4c-dcc4455be032"],
 " FieldNumber = 7"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.748965833520466*^9, 3.74896583850887*^9}, {
   3.76753949071449*^9, 3.767539490714542*^9}, {3.767539876165092*^9, 
   3.767539876293001*^9}, {3.768090021473961*^9, 3.768090021643847*^9}, 
   3.831223719734989*^9, {3.8312250668089714`*^9, 3.831225067130825*^9}, {
   3.83122618810114*^9, 3.831226189134371*^9}, {3.8318213032147303`*^9, 
   3.831821303464676*^9}, {3.8318237867909966`*^9, 3.8318237874162517`*^9}, {
   3.83182387501729*^9, 
   3.8318238939814467`*^9}},ExpressionUUID->"185687ce-56ff-402e-a157-\
e55a983bc37c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318236553982487`*^9, 3.8318236773981123`*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"9ab20625-2605-4698-bbad-0d9eb7db4ba5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}},
 CellLabel->
  "In[281]:=",ExpressionUUID->"fa367f4e-5b8f-45cd-8ef4-a41fa279abcc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, 3.831839788660249*^9, 3.832947501034452*^9, 
   3.8329617856224318`*^9, 3.845826876949743*^9, 3.8458524687495728`*^9, 
   3.845857079075445*^9, 3.8459196254422145`*^9, 3.846006577753017*^9, 
   3.8460998889236145`*^9, 3.8474704505221643`*^9, 3.8517006358806233`*^9, 
   3.853975452024617*^9, 3.8549774105396924`*^9, 3.8549892652933273`*^9, 
   3.8549999024679146`*^9, 3.8551652510014906`*^9, 3.8551823203572655`*^9, 
   3.8551858648466253`*^9, 3.8553306413346524`*^9, 3.85533984692395*^9, 
   3.855343184137783*^9, 3.8553440180793962`*^9, 3.855352745315826*^9, 
   3.85544960954627*^9, 3.8555076113344793`*^9, 3.855508408202354*^9, 
   3.8555128959113398`*^9, 3.855533327163916*^9, 3.85557892147888*^9, 
   3.8555932938462048`*^9, 3.855750606456219*^9},
 CellLabel->
  "Out[282]=",ExpressionUUID->"7e563361-bd6f-46e7-8c40-668d99dffce9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{
              RowBox[{"cV", "[", "1", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"\[Gamma]5", "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "  ", "+", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"cV", "[", "2", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammadown", "[", 
                  RowBox[{"mu", ",", "nu"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "3", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
            " ", 
            RowBox[{
             FractionBox["1", "8"], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammadown", "[", 
                  RowBox[{"mu", ",", "nu"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"CommuteGammastdown", "[", 
                    RowBox[{"mu", ",", "nu"}], "]"}], ".", 
                   RowBox[{"\[Gamma]", "[", "ld", "]"}]}], ")"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "4", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", 
            " ", 
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "5", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
            " ", 
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "-", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}},
 CellLabel->
  "In[283]:=",ExpressionUUID->"a96dc2a0-6a68-4d2d-80c1-749e5a33ce0e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}},
 CellLabel->
  "In[284]:=",ExpressionUUID->"e8f50692-b4f4-4857-8dd3-af808e7d18cf"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, 
   3.831839792158786*^9, 3.8329475045707684`*^9, 3.832961789255352*^9, 
   3.845826880756817*^9, 3.845852472265524*^9, 3.845857082586527*^9, 
   3.8459196292270913`*^9, 3.8460065812676396`*^9, 3.846099892662676*^9, 
   3.8474704546093044`*^9, 3.851700639697857*^9, 3.85397545564994*^9, 
   3.854977414872986*^9, 3.8549892686144857`*^9, 3.8549999060107374`*^9, 
   3.8551652547731686`*^9, 3.855182324073387*^9, 3.855185868421384*^9, 
   3.855330645325405*^9, 3.855339850789484*^9, 3.8553431878820066`*^9, 
   3.855344022092167*^9, 3.855352749247933*^9, 3.855449613080131*^9, 
   3.855507614663069*^9, 3.855508411776206*^9, 3.855512899441523*^9, 
   3.855533330870118*^9, 3.8555789252581444`*^9, 3.855593297543486*^9, 
   3.8557506101019087`*^9},
 CellLabel->
  "Out[284]=",ExpressionUUID->"d33feb4a-5d97-4555-8eb5-9286e5acc40f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]hat", ",", "\[Beta]hat", ",", 
   "\[Kappa]hat"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}},
 CellLabel->
  "In[285]:=",ExpressionUUID->"4f85f125-214b-4434-bb75-3e53ca687de5"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "4D, N=2 tensor Holoraumy, both tilded ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "a", "i"], ",", 
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"bd7da44b-2cf5-457b-940c-21bc453d1f7e"]
}], "Subsection",
 CellChangeTimes->{{3.550920278304533*^9, 3.550920282240758*^9}, {
   3.5509221619582715`*^9, 3.550922211396099*^9}, {3.551793495341796*^9, 
   3.551793495906828*^9}, {3.5594927244525585`*^9, 3.559492746318809*^9}, 
   3.559499496819916*^9, {3.7113930579483547`*^9, 3.7113930664148393`*^9}, {
   3.711393103948986*^9, 3.711393104741031*^9}, {3.746807497233589*^9, 
   3.7468075031958065`*^9}, {3.7468296820915112`*^9, 
   3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, {
   3.751405314474931*^9, 3.75140531586872*^9}, 3.76753934580381*^9, {
   3.7675394595983562`*^9, 3.767539483364336*^9}, {3.7675398556290913`*^9, 
   3.767539855771489*^9}, {3.767543491843978*^9, 3.7675434934179277`*^9}, 
   3.768071522713936*^9, {3.831226401067482*^9, 3.831226401762913*^9}, {
   3.831229415899145*^9, 3.8312294169236383`*^9}, 
   3.8318214983533125`*^9},ExpressionUUID->"ec0b653a-b0cb-408f-ae95-\
5b5e66778716"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQVwFVf//49bcZcADQSXQotLcfdC8BIsuAYJ7g7BNSS4SwMUKFOsoUGe
wuA6QCgMtMAXG0qndJ7nmfxfv5x/d/bZ3bvZe3dvEuC8Z2By9+49e87nfOT9
Oba+PYd+0ydZkiRJRqThv296BNcJCuoxtm1mPvgPGdG/75DA3k2GjAzsGxhU
pWdyLvbi3y3u/39/x0hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISCQ0/vOf/5w+fXrSpEldunSZNWvWgwcPNDf8+9//joiIOHPm
TELUzgxv377dvXv3gAEDevXqtXHjxnfv3mluePXqVWho6NOnT71dk+jo6GXL
lnXr1i0oKCgyMvK///2v5oarV69u3boVSXq7JhISiRAfrpNJKEiJxRsSTxz5
NHHnzp02bdqULFmyU6dOTZo0yZw5c9q0aYcMGfL48WNxw+3bt7GCvn370hEJ
W1U1iPL79+//4osvatSo0bVr18qVK6dMmbJgwYJr167966+/YmIt9ODBg7Vr
1w4PD8ecvVeTP/74Y/LkyYUKFWrZsmX79u0LFy6cJEmSevXqRUVFCSry+vXr
2bNnc+XixYveq4aERKLFB+pkEhBSYvGDxBNHPlkcOXKkTp06u3btUsQrImaO
HDmSJk36+T+AHCaqFB71mDFjRuvWra9fv65cvHnzJlaJCqVOnbpYsWI5c+ak
aRcuXHBVCOq3atUqPz8/O9zg4cOH/v7+Y8eORW7iCoI6cODAV199BRXJmjUr
NcmWLduwYcOeP3/u8VM+RPz999/Cij9WaDwS6iR9lCE+UCeTgPhEJKaxl/hv
iyNxRMIOcJvE399++03/FTofERExf/58/ifTd1UCyX6hQoWwBW9W0wB//vkn
j37//r3+q3v37kFZFy1adO7cuTiDwqFDh6ZNm6bwBw9AYnL58mX9dQzq9OnT
ixcvDgsL+/XXXz0u/4MDSvXDDz8MHjx4zJgxgYGB1apVW7lyJYTErUJevnzZ
uHFjXIG+i5F2iRIl6F/9hFd8AqNo1KhRmTJlyJ769evXvHnzSpUqXbp0KQGr
lDhh38l8avhEJIaxFChQgPjeu3fvXr16iYGIN2/exGcdnIojEgmIGzdujB49
+vbt2wldEYnEgjNnzlSvXv38+fPi49q1a9OkSQMPcYszvH37dvr06fv27dP/
Kjo6Ojg4+MqVK47V2CNQQ0gITUuSJEn69Ok7dOigTqYkJCTMceHChXz58qVI
kQIL8vHxmTJlip1kUEJCQkJgy5YtKVOmhCeI9OHkyZPEaHIcdwdDEjkgISNG
jHj8+PEHPR4uIZFQuHTp0uTJk3EL0oI+Yrx79y40NHRyLMLDw//888+ErlFi
wZMnTyZOnNi7d++GDRveuHHD8J6ff/4Zcj5p0qSZM2d+akM9v//++82bNz37
LWqG6F6+fCk+btq0CU6yYMECZUzj1q1bhkPNzoJq/PTTT2vXrj1+/LjJIIzH
LVVIiI06uo34EZ2EhHVcu3bNs9VugoSYMJBEq+1v3rwhnm7fvp3YkbCTwokf
ONgSJUpUrly5TZs2Y8eOxW06WPiJEyeCgoKaN2++c+fOD6sjXr16NXLkyOvX
r6PhpUuXhmYY1n/v3r3IrWnTppkzZ6aNHjzlu+++02/1SvxAMp06dbp69ar9
otDAmjVr1q9f/9mzZ8pFLLdz586u5lMePXo0YcIEbhg1apRaeu/fv1+9evXQ
oUNr1669ZcsWE5WDfsyaNStPnjx169ZdunTp/fv3Xd1pp6WChMBwYKrDhw/f
sGGDffuCsCEuxfE+fPgQOag3YJqLzkEgXp6yfPny6dOnb968We5M1OCPP/4g
RKLeaj3k73he0pCwoL3oxqBBgzzTfEgIlr5v3z4snfBEQNEsvYg3bdeAdtGz
OAfNtqO///5bJPJivd+MGTMKFSpUsmTJgwcPflgRMD6BJL/66qvvv//e8NvL
ly/36NGjgwt0796d6IyPNRxFv3fv3pgxYyDA3AkPMVzY4yXQ3fhqYodhtTt2
7Ni3b9+QkBCTsYv9+/dDYmNiD+7IkSPH4sWLTR5HRl+tWjV3SQjWFBwcnDNn
zkQyhEJ96CwrEyJwgBYtWvz44482nxgZGUkf5c2bFyKnZiACJ0+ebNmyJUFW
c/2vv/5C6y5evLhx40Z+q0iP+q9cuRLuQRMGDhxIj7jalogqDh48OHny5DNn
zjQf5rXZUsJQ69at4SFwBsgSf9SrV48yPSstJrbmbdu2/frrr5VAtn79+mzZ
sv3rX/9S3+ZKdA6Cwrt164ZzWLt27Z49e4gRhQsXRp4e73XCnwcGBrpyNb16
9cKf//TTT4l8+R/VO3XqVM+ePeG3BQoUqFGjRtmyZYlBYt01fmndunWQZEcm
F3DOqHEvC6B37GidHRBZWrVq5fFgBWZesWJFLJ3ITkCpVavWuHHjNKEkHrRd
AVQKiyNzwejoVswZP9OuXbtffvklJnb0g64/cOCA+iePHz8mx8+YMeORI0fi
oYYfIsxJyOvXr+EYixYtKliwYJIkScqXL0/uHxULHMLWrVuhuNmzZ8f/cF3j
H/gW+vfgwQO+RXPi2XtER0dHREQEBQWlTp36/71KuFevY8eOiZoTU8iX0dtU
qVI1a9bM1VSLAGQmS5YsP//8s8k9npEQslc0OVOmTAl+jhA5bL9+/cqUKVOq
VCnqU7x48aVLl7qamOM6oQca4FSH/vrrr1hxhQoVNKMNlE/cCQgI0IwUkV3O
nj2biwRBHNSLFy+UckjJ38WiUSxcDTFdu3YNpaW9KL9Jxey3lKBz//59JeJg
C6RFw4YN8zgG4dCKFSs2fPhwUSXKQbEJc5pRCFeicwooPJIhLVVfPH/+fJEi
RbB0z1pHVbHNZcuWZc6cOWXKlJRDcBEGi/XhXkh5uF67du07d+441A73gH42
aNAAJumKaKFX+JP06dPTxWipch0yTJfRoh9++IGkY9WqVY7Uh5SBXGnq1Knp
0qVLliwZ4W/37t0H/gE5FH4beo/Q8GCODFq6CxKEqlWravTELaAVanaxbds2
1OPQoUPqe7yt7QJo9a5du7BfPz8/woc6wbly5QqpAX0xcuTI/Pnz3717V/Nb
qk0vdO7c+SNb8+YUzEmIAKIjGRGhXO9hyGG7dOmSIkUK3LV+uINEiVCbUHEW
KoJWQDZI1vTfUisCbq5cuVxxVBo7YMAAQrM5k/eAhJAjE3kRaZo0aTTMOZ5B
BoqnUjgkZL5///74NJI4w13DWCKh39nECh6YN29eEnxllYjAkydPqlSpYihY
nLyPjw8e2HBrDEmoqxm0mNiVPCQmZDHmXsvxltLpderUgUV4vEqEuExA2bFj
h/hIGMJ4sT69czMRnU0gVTgqhUMPNF8JCmEn6MBkKIG0Ra976Of48eMxGfJQ
jZ7ED+bPn8/T/f399fxcDL2iVFiNYbgXnBm2QOs0w1Y2gbShPblz5zZctkTF
6JSiRYvGz0CBGsSCPn364EwcjLwXL15EgBSrCUPe03YBvGJgYCBEAjJpuD0H
L0qYSJo0Kcqp3xZ96tSpDBkywGDlkktDWCQhsDhXJCQmdpCqffv2yZMnx07V
nl+ck4DwnV1qYh3kngULFnRFQmJisxtfX19M+Ny5c/pvobvodqdOncztyAMS
Ajfu3bs3mSNCW79+vfUfOgt8IwnUvn371BexFME5iW4aq6GlUIXZs2fbmd/k
t0ePHt26dauSUVKsGLHUjDhx57x58/hKk+lznSyPpNLwBDlIHZHahNoJElK/
fn0Tn2C/pQTNWbNmkRorlIPH8VDolskSFHMgDXW4ofkw/OXLl+vvdCU6+6DX
mjZtinpMnDhRIxwxxOTKS1hBaGgoFtGiRQvD0QbCNzGImHv8+HF3SybRIFe1
o7dEorNnz+orRmPnzJlDhGrZsqXJ8kt0/rPPPitXrpyzPUIv0xfqGToNLl++
TMWUAcN4A5HXz8/PDuMivf3mm29gnor7xV1nzZqVixqH7D1tj4kdKG7SpAlB
hOjmSrEx9hEjRtARY8eO1Q+cWnE4nzIcISExsclsvnz5cImnT59WLp45cwad
WbVqFeq0cuXK+FwWIhAnCQFr1qxJkSIFKap+CcGVK1dy5MhB3mf+FHdJCMk1
8f3ChQtVq1ZFqpiPxR86DqgXLFEfE4ngadKkoe80UT4iIqJQoULEGjsPRRlw
xeqUEAFWqlSJK2JqVQ1SDJ64a9cu9UWSkZo1a7Zq1QpyGx4eHh0drXyFO5o0
aRKdrr6ogRWfYL+laHubNm2+/PJLpSaCa1WoUMGziECBuF9KUMYBaDtCi4qK
ioyMJMZp7jcUnX0g4R9//BF+pZ/MIiEtXrz4F1984VkswLdAibGIGTNmGLIF
kQinTZvW3F/pQVwgOgwePNjxnZ7Uc8OGDRgLXtR8gItvixYt+u233zo4MiBU
AokFBQW5mjSEspLFx/O5xMi5X79+kEk7UyR37tzx8fEZMGCAEjjEkIJhoPeS
tpNHd+3aFQmPHDnSvOP27t2LV+F//VeShJjDKRLC9b59+3JP9+7dFZ1ZvHgx
zOT27dvoBvl+/C8PtkJCcA4lSpTgHmWUW8HGjRvJqdW0yhBukRAxg7l27VoU
UmSUUOiEWm5HAyFgZK+ahIUug32R3G3btk25KNSApMDm3Cv+sEePHhMmTFAc
IxImuLRv314/ksmzeGKHDh3UXhRukDNnzrCwMNzUuHHj1L/i/oYNGzZu3NjE
3uP0CU61dOvWrXS0ovYnT57MnTu3x0cHiyhWpUoVwZbhNnC5woUL88f06dP1
GwQMRedV4ExKlSqF5ni2bAN2CmdLly6dq+lR0pnkyZNj0fppd3N4j4SQZ6GK
qNOxY8fM76TXatWqtWLFCgefLlQCOzVxPufPn584cWI8n7OBTkIJlixZYqcQ
FBjrVk4YphNxGrTXcCW/N7RdDGYmS5asYsWK+pXzGpALlC5d2lDzJQkxh1Mk
JOaf0x7UGxYgrvTLqFGjSE4TZEbGCgmhdR07dqR15K1qBaal/fv3j3P5Yoyb
JIRwT7qHR6J8YjHPTcBDug4cOEBeCQHQEC2cPOESh0+Wp1x89OgRHoB4Z59M
4jyHDBkiNt/B/dBAf39/w0SSZ/FEX19f9SKBFy9ewDQCAgIIK5rBivv37+fP
n3/KlCkmlYzTJzjVUhzjzJkzxYrEhQsX0sylS5d63Ndi9p8Q36VLl6lTpw4c
OHDdunUlS5YcNGjQvHnz9MOMhqJzEFg0foNEY/v27U+ePImJXRv8+eefw9sN
X1IQJ3755RdUkeBlWGE65YsvvkAn586d6y5p9xIJEbufNJmXK+AlWrZsefbs
WQcrYLggBK2D6ijDZQ8fPtQPMHobu3fvhpvZb+y9e/f69etHcw4fPoyeV69e
3dUeAW9o+9WrV0miCR9ip6Q5SDHatWtnGOYkCTGHgyTk3LlzmTJlgoeou4x4
Ec+HNalhhYQI7aV1wvsRxcheMWGqTVo3dOjQOD2edRKC18KmxMo9ih0zZgzP
bdSoUUIpJ3UgUVKv5BeIjIzMkCED/k29yJD8lPhiON6oBhQUdkFWUqFCha9U
4CNGqqzzROx4zm3btkFC+IlJuOeJPFezTxa6SE/pA/r+/fu5WbN+XoM4fYJ5
SzEB+LYIiPio2bNna8ohBCu5PO0iOaKZVMlwFsZiaZRD8CXcXL9+nTQTxRZq
idNDUV1Jz1B09kFDgoOD6VPIHr4XKouZREREiDUbuXLlcnekQmDNmjUIoVmz
Zvp+IRjVq1cvTZo0sC8PUl07JITug+/hABs3bqxhvIiXKmEpVtbi0ijud/aQ
EMMFIZcuXQoKCor/uW8FSHv48OHQeFee//nz56NHj86TJ0+KFClwC1B0zVEq
uGtljpiGkCJhI1Aa80Y5q+34lsDAQMSr3oJnAlT06NGjhpYoSYg5HCQhWCvs
l9umTZvmhZp6AiskJCbW+yVNmhQGhbbgcIgFuNP+/fvXqVPHCq+2TkK4h7xY
CZ2LFi1CXOpZ/sQAfAiVpGLkHeqKkY9g4ybvXyMFg36kioWfnx/OmUIgpWXL
lkXHsOU+ffp4sByCJxLakJXJczdu3HjlyhUxeMXjzAevBMUy8QkmLSUC4mCT
JUtGG/GiBE3+Vm/jxU9OnjzZ4lCA9dLEChOT9YeGiFN0HoBAXK5cOZizet8Q
7Jp6zpgxg7BSunTpOAcP9VAGBvEeiifnD0x41qxZBQoUgJx4nNF7TEKePn2K
Q4Cl8wdEUT1oSd+1bduWCteoUSNBXmiiLAhRz+e+evWKSjrb4+5CLF3GeRq+
Pg8KjSug2vjbbNmyideIQ2XVN5CdeTBy7qy2kxkRCKie+bCqFURFRVnZjvfJ
wkESgvKIXhsyZIgXauoJLJKQDRs24DzTpUtHukosIwT37dt3+fLlFn2LRRLy
5MkT/IM6SRSvUDFJGRRgBbhiGpLEHeTIkcOD/ZL0I1XCRZChKBfxcqRXPj4+
rhZ8Yl+oR9q0aWfOnCmcD9Lr1KlT6tSpba4WE/usTVbOkImnT59+5cqV27Zt
o+YHDx40L5CeQpKutu2btJReWL16NY/gQeK3dH1wcLCvr6+SI0NfYRFW5lzc
Kk3MEI0cOdKtmYg4Recu0N6SJUtC8/TkPCIigq/QulatWnmQhj979qx8+fKY
YYsWLZRTtrCXxo0blylTBntUXnfoATwmIevWrcNIY2IX3pNhqQctSdWhRq42
RMQDxIIQKsD/BLi6deviyQl2EOyffvop/uujQKw8b9++vd4K8Az+/v6IUVnx
jqpT89atW4sAjVHgeDX79SzCWW0Xqws+++wz/ZJvd3H9+nVcMTKJc2HJpwkH
SQhWKUgIrtILNfUEFknI+vXrSUI91jcrJESscQoNDVWTaqI8zMfi8DU5ztmz
Z392B1i6u2PX4rjRNGnShIeHq6tKvwcEBBBlDI9MEVvk4BtLly5V/4rcJEuW
LD179rQzF88Tea7JUT9IZsGCBYMGDSIcxHn8LH6AHA2K5WoloUlL0fA2bdpo
loBSK5hDSEgIDefviRMnxrmS2YPS0JDatWurE0YriFN0GogTmUaNGjV06FC9
ThImyP2xpq1bt+p/K8acMX9YqAeZo5jK8fPzMzwjF5nwXPrXs2WHnpEQWDQ/
EXRLrIlVLxMSW26JU4bS8BjmXaCGeO1j9uzZjxw5cvPmTWgSXdCvX7/SpUsn
4Ax4TOwqlEKFCvXv318vbZxk7969NaN51LZ58+YXLlwQv0Xmno0Mu6vtL168
wNBImefMmaMZo1C23BI+CCIeVEYN6kNvoipLlixJ5Ef+JggcJCEYAhaRsHtO
NbBIQuDeSZMmxQcanjsRJ6yQkF9++aVBgwZki8dUwLPhxxw/v8hjiGOlCSUL
Fy7UGAs6QABydcoBVB/+2bBhQ417ITfx8fEh8bGzZF3kyOTXdpbv0hy89LJl
y4oUKYKXVg/yaGDSUoiZhkYK3Lp1i1T97du3pHWjR4+2OPPrbGmGcFd04nUw
33zzDb127949zbf79+9PmzYtebfhAW6EQpTZ4xOAsYVkyZJRVUNVoSG4Kdw4
+mlSCL3M07dv377tfwFPINdGD7ds2aL5ipujoqIM3RqSh0VTJvk7up0tWzYR
KAXEMKbhvnI7MO8CNcThaTVr1lQP2NJ89Z5WK4/DFiZNmjTeGiZMmIDEzNVJ
ZKPKub4KCPTEYsP3vJAGYptUBqPYvHmzxcpr4K62o2kHDx6EL/n7+2skRgmd
OnUS4jWcAEXmGzduXLFixerVq8PCwqh2WCxc0T8KwZbRli5duvBQz17n97HC
QRIimDmOyPGFcB7DCgkRWZI4lN6z4bI4SYiYqsANdvlfkAinSZMGx26+kDLe
QBxBXFiWnq5jpFj3l19+qReROJoDh7xp0ybNV2IkpF27dnb4gzgX1Obrh+gj
/GeFChVy5sw5depUV6+ViTFtKVcMQyQXR44cSchYunTp4cOHLVbJ2dIM4YHo
iLzNmjWrX7++ZkKfHhRrNlyddEFtYfJff/21BwskKDAgIIDCXZ0Oh9vhudzQ
okULk7bA3Ih9NWrUqK5Dnjx56HrsVHOdm4na5nU+d+4c4UNz6gXaniJFCoo1
pwoCJGjEWYtZsKsuUMPVCSEQRZitlaco5XTr1g36Z3GGly6uU6eO+cquu3fv
5sqVSz91yMfffvvNsH8h3mPGjMEiRowYIXZaeQAPtJ3EhKqGhIRorqOQ7du3
p710hGFpPAuFp85oRfLkyQVdmTFjhskYFBku2U2GDBlwL3v37pXvs1PgIAmh
K1FR0szE825lKyQES8fead2gQYNE66yPiArESUIoDRqsV2ZxuBOuTB++4x8k
dKT/1MTQOsTR/YZrDnHgeHLDxE28NGHcuHF2LI4nli1btmPHjvY3MlMNVD1H
jhxEH1daatJSV8C7LliwYN++fThe+0dTOliaB6L79ddfyQ3JeTVdJtJMotWa
NWv0v4I4ideUrF271oN6ilUEJvOh1F/E3MaNG8fz7hjkAH3FSMl21dfF9va8
efPGSUIoYeHChdYPM3TVBWqItwghcM3pRk+fPo3/w1E1EGszcKfWpx7EfhlC
s34M1jo80Pbt27dnzZo1MjJScx09GThwIPrWpEkTc30Ts3Kujs0XoB95UMaM
GSnN/uTOxwenSMibN28I5fioefPmJR6OZ4WEnD9/PnsslGFV6yOiAuYkhGBH
Eme4VkEcC49g9VRcA3FQOaqexR0ULVr01KlTcdY/JjYTIcHZvXu3uu+ioqIU
mYjD6AoXLqyfshdTwPqNG+L1app9vh7g0aNHRYoU6d27tyOHPNDAOXPmwJZx
eobuzqSlJiBC4bUI0I4ov1OleSC6H374Ac2JiIjQXMeUChQogCM11CjsBeWE
pXiwLybmn6EGqurqTT30hViEafJKIBPYISGCfaEPInz8+eefQm3u3LmTL18+
K3Op9+/fHzBggPUReFddoIYYdjaPfQkFkVsFBARYlzZSDQoKQkomm+/ihLva
Tj8OGzaMqhqOvYSFhSVPnrxSpUrmC1RgTTiTWrVqmWxbo/wSJUpAzBLJC9MT
G5wiIWTQxHoy4kS1ADhOEgLL7dq1K1qEc1M3zcqIqAITEoKez50711U04elw
YwQbHBwcJ//HxL777rudlrFr167Dhw9b2elGVuXv769xemIlrcIfqP/MmTOz
Zcumf+mwELL+hQ64R+yOBNnmxjRxfKtnyx0NIRy4q5UqJi01AS6LLMytn8RD
aa5EhwSIEfCcwMDAFStW0NHK3oTp06cTAYcMGcK37du3nzJlivhK7MWAq+sd
KYZDBEmbNq36ZBUsqGfPnsOHD1fMCifDFUOXvnLlSpMFIWJrGDf4+vrqz7Sx
AjskZN++fWnSpBEvTUMUmKpYqkpVO3ToQK0WL15s8nPkwKP1IzzIc+jQof36
9cOpkl9QrDhs06QL1BALQsxjX0KBKpGSuDVm9f79e4TZpUsXO77CXW0XQ7gV
KlRA1PAf1E/9diFKg3Wbk0wxAKifFNPgzJkzmTJlql27dkK9Qy2RwyIJEat0
XJEQejlv3rz4KM9OSnQFlARuMG3aNI+34Yv0zRUJoV1orHjJssaWrYyIKjAh
IaSNxHdXA6RiI0aS2BMX4/lcZQVUHvPUL0pBdPAKtc/fvn07Jql3p4gO+9Kc
lI5X6d+//+eff27/HeIQIZ5r5dBCi4jz7CBXLTXBkiVLiBdOHRntVGl60aHP
oaGhZcqUEWNc9E6ePHmUV38ikObNm4uD2rgT3gsXEtMQVAZNNvTJx44d4zoh
Xj3hePfu3Xz58ilvgeErfm54zglm2K1bN1cLQvDt69evhzTixiHhnsnBYxLC
D4lQkBCxafTChQuTJ09WyHZUVBRkFWG6GjRDnniYjRs3atpFvv/ll1+KvRIE
xBYtWijn0ph0gQJlQYi7W7bjB8jn22+/NVxV5Qq0Gg7g2VyeAne1XSwIqVSp
khjuJkaUKFFC8XgIdurUqZDMHj16uLLEc+fOoQDmx+bHqByOPCfEEFZICPyt
QYMG6Lx+9xOuRiRBderUMRxrwl6WLl1KP8L5x4wZg1PCk1hMaVEn+jdp0qQL
Fy70LAvGroWSiM3+CvBFaCy5MPxk1KhR+uEOKyOiCgxJiHjPF7kb/M3VQilM
Tyx/MnwBdDxAvEXX1SI0zZH1169fx2YN39m6YcOG/PnzK3M3KAkdDSnVT7Z6
gDVr1uTOnds+mVEQJwkxaakhRKquiRQew8HS9KI7ffp09uzZ58yZIwxKkG1l
IE58VPY1iJV+HTt2FL8VTh4rVofys2fPouRokUaBMXMsSDk5VgykGJ4/fP/+
fb4yXJ598+ZNno4H8PPzi/PlLCbwmIRwPzkyyoBzQ1vIStR7f8RujnTp0uH9
9NMiSKZr16769aivXr2qEwvBx0TIRs5ivsa8CwR4VsGCBZMnT26+VygBsWzZ
MoRmfSgPmXTp0sWzYS4F7mq7yDWUjXLHjx/no3pvDoGPHkTOI0aM0CfCUFDo
Iv0IsTGvuTwx1RzmJIQggn8Qq38FiOl+scDzZM2aNWfOnHQEHNJwLRBWhn1B
2sVmBLw6RS1YsMBi3a5duwY1pYvJqd1alCheEieO4xPguT4+PqLm/IGyUX94
keEUpMURUQV6EoIH5inK0/Vv2OQn7dq14xHKPbgyXE08H72IxaVIkcIVCWnY
sKHaasS7awMCAvR9ga/GA9SoUWP+/PlwzpYtW/bq1cvkPbbWIRaWKB7bEcTp
E0xaaggSpT59+ji1VdOp0vSi40rv3r2xC2UruuaAehwypqEMG5Ih5suXj+gg
PmIXJPUEFySza9cubuvbty8GtXjxYo0kRdAvXLiwcqaZIDDqIzWoDDFdnLEs
kCNHDr9/gHkSPvgJ9Ue1bFJ0O9MxxJpixYqRFPNz7EWTDfERGZYuXTp9+vTd
u3dfsWIFfgDv0aJFiw4dOhiODIvD3nGDoiixKFdZyWDSBeQykJO8efMqDlkc
tEsu79nZAt4DVI3e1L8S1BUI4kjPjo27q+1iQYj6oEj4ZOrUqTWnvqDYs2fP
pkegN1ARFADfTt/h4uAnsKwrV64QJsznWSQJMYeVkRDPgInBBNQLPmGe6ACE
061y8GN4gPh8xZuVEVE13HqB3YcLcSIZ/tbVHjqi5/nz57E4kw2w7gL9xEW7
2rnpGeL0CXG2VIMHDx40adLEqTdnOVWaXnQirVaOGRdDLsQ4ZQsY3hVnq6R1
+/fvF+FSXSxOG55JXkBYh4oYrreEM9StW5dALMaxhTzdSo2dhc0X2NHGU6dO
mWz6wztxA6lKYGAgT1m2bJny6hN9TcjEM2XKpLzcDfdINhcWFiY+WumCxA+C
MvZFlmdR4Nu2bYPQ2nHy7mq7UFFlGRL1pLZ0hCGdw6Hh3keOHAnPgbqEhoa6
lWFJEmIO75EQcdA0khcsUZyGbeWIcg0uXLgQEhISn1OfVkZE1fhESEhM7Dgw
WarNY9jdAjwQnbE5TquBFZ/gVkv37dtHZuTUqjOnStOLThwpqRz0gfvlQbVq
1UKB165di2GSwitT+dxDIunr6+vB2+jEzpEJEyYoC0K++eabqlWrYkqQ+fg/
z1MsNh4/fnyCr6AQ8zvql72uXr2afAf2fuLEiWPHjjnVBQmONWvWlCpVysoW
M2Qi3gRtJ9FwV9u58+uvv1YWlBKtihUr1rlzZ6eWdakhSYg5vEdCjh8/nj59
euV1VG/evEEB8EVuHTkl3q+hzCzHD8wHpfX4dEgIBosnb9u2bfyssBLnhI8Y
McLZVbtW1olZb6nIbV1t+HUXTpVmKDqxoQMIG0TDkUOfPn3QcBrLT+A/5cuX
F4GDHNzHx8ezM8mJCKlTp1a20/IxQ4YM3bt3f/Dgwbhx4xJk+RM1SXAGIrBu
3brChQuLxZD3799H4IQ/JDNlypTr16871QUJDngUDn/lypVW7qxTp46dIy49
0HbiEWxQbLXghmHDhpUrV05sUHIckoSYw3sk5MCBA0h+27Zt4iPMM3fu3LNn
z37y5AlE1GJYwUhHjhwZzysl3B0R/XRISExsylC9enU6Nx6ehVqSPjs1zaGA
rBOSGecbaS229O3bt82aNVP03CacKs2V6K5evVq3bt1Ro0YNHDhw5syZY8eO
rVy58uDBg8WyT5w55hYQEDBx4kSq4dmrlASPSpkyJaF2dCwmT548YcKEihUr
8iCTA/M/EdDFhMKOHTsifOLghg0bSNiRTEhICDm7I12QSAChqlGjRpwDX9gj
SmjHzD3TdihHixYtxOtKu3Xr5uqMGvs4fPhwunTp4jz37JOF90gIXezn54eJ
xcSushg0aBDJ0Xex2Lhxo5US+BUaYvG4LacgVqW6NSL6SZGQmFiTx6C8fS4u
5Tdu3Niz92ma48WLF5UqVcqUKVOcm3estDQ6OpqMz6ljiBwpzVx08H+UWdk2
TlKgIfn83M6MCUGWxBb3jl3cvHlTeRDFOrhY6EMHYn/w4IEySqwRuM0uSCR4
//49FJTQb55ybtq0qWvXrh4HaDvazrfkuV49a4UIQuxLmjSpswvbPiYo63lO
nDhx8eJFB8e9xdvQcEfkQb169YJ41K9fH/4/fPhwi+v9qEyCHH1mfUSUe5Ab
95cqVerTISGkuitXruzXr5/3xtUpmeTF8C02juDcuXNFihT5/PPPIyIiTHTe
Skvv3bs3f/58O++1cbY0b4suTpB95M2b18HD5SQ+XBDxe/bsSSpqogx79uzx
OAtOcG03BzxzwIABqVKlIurJuRhXeP78OTQyZyxE8uJs+aRFt27dEiwXTkin
xOc+F89gcUQUs1q6dGnu3LmzZ89OOPukxpkx+R07dnivyUeOHNm2bZtXHQvu
MTQ0tEOHDnTx+vXrXTlJb7fUccSD6MxBTMmSJcsHPY8g4SBevXq1YMECxydV
BRJc213hxYsXsC9y8KFDh9o5i17iU8bHMSIqIRHP2LRpE+mMfFm5hISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhIREQuH169d///13QtdCQkJC
QkJC4lPBu3fv5s6d26JFi0aNGhUsWLBcuXI7d+7897//ndD1kpCQkJCQkPiY
8ddff40YMWL16tWCdbx+/TogICBp0qSjRo16//59QtdOQiJuREdHL1u2rFu3
bkFBQZGRkf/97381N1y9enXr1q2SV0tISEgkNhw8eLB///5QEeXKvXv3fH19
M2bM+NNPPyVgxSQk4sQff/wxefLkQoUKtWzZsn379oULF06SJEm9evWioqIE
FYFUz549mysXL15M6MpKSEhISPwP/vOf/wQHB+O3O3Xq9O7dO3Hx77//bteu
HRenTp2qTyolJBIJHj586O/vP3bsWJiGuPLvf//7wIEDX331FdqbNWvWYsWK
ZcuWbdiwYc+fP0/YqkpIfJp4//69HIGUMAEcgzwxadKkpIpv3rwRF9GZnj17
4saHDx8OS4mfanyCUz+nT58ePXp0r169AgMDr1696r0HaTrxo/EJjx8/vnz5
sv46DUS2ixcvDgsL+/XXX+O/YhISnzhw6UePHm3fvj1pQs2aNStWrLh79253
PQ+Oa9asWcWLF793757mKwy/RIkSixYtkmnyRwCi/4ULF169eqVcefv2bZ06
dZIlS7Zs2TJvP/2PP/74+eefm8fizz//9KCEqKioQoUKbdy4UXMd5Vy1apWf
n18iHIfHuKjw1KlTRQq/b9++ypUreylcXrp0qUCBAnRo7969ITw1atTo2rWr
QjglJCQkHMepU6dGjBgh/BvcA1+XNm3a9evXu8UZuHnXrl1z5swhTGi+io6O
Dg4OvnLlipOVlkg0IIvMnDlzqVKlHj586NUHwR86duw4fvz4kiVL1q9f3zMS
cuPGjdGjR9++fVv/1aFDh6ZNm6aM1ScewLumTJmirMO5f/9+0aJFDxw44I1n
wTDz5cuXIkWKJEmS+Pj48NxEKBAJCYnEBvLT8+fPe3BoAz8h32nXrt2TJ0/E
FTIs8sHy5cs/e/ZMXHnx4sW1a9ecrK4OHtffIiiZ8tXLKSUcAUygc+fOGTJk
+O6776zcjyLZnHB/+/ZtrVq19CTkY+1iWD2s6c6dO8qVY8eOQQ/OnTtn8iuP
5Xzp0qXJkycjzHibhflYO05C4tMBbnnYsGHr1q3zYL4DD9CpU6eMGTNGRkaK
KyQ+1atXz5s3rzKxghuk/A0bNnhpPsVO/S2Ckjdv3jx06NB4GFjGnR45cmTu
3Llz5szhD5urFxLzdkIqExYWljVr1k2bNsXZd6ILBg0aRHfbeagrEhKfXRyf
+Ne//jVr1ixlnQbNb9WqVb9+/VxFbZtyFiQkPtXpY+04CYkPHZAB/dSGHsS4
MWPGTJo0yeNhBGz/119/VYLIo0ePihYt+uWXXyojIeDp06dt27bdv3+/YQVW
rFgxYMCANm3aqEe5ub569Wp8S+3atbds2eIqSNmvP+C5lSpV+v7775UyKXDh
woXqJXb41enTp5NUenVN448//ti0adPg4OCdO3dC2/z9/UuXLg0V8aCoxL+d
8OjRo8WLF9++fbsV9kjvED1/++03mw91RUJi4uriEydOQOSaN29O16gr/OTJ
k4kTJ/bu3bthw4Y3btywWT2Bn3/+mUqmSpVq7NixihLev3+/QoUKO3bsEB+p
w8GDB6GX/fv379ix45AhQ37//feY2BUgaoIRGhqK6MLDw2vUqFG1atVy5cr1
6tXLhGDYlDMkZMKECfv27Rs1ahSVR2g2FxvTTT179hw+fLhCbKghV16+fKnc
Ew+2SStIc5A2j+71D/i4cuVK0UCMiCs9evRQvu3evTvJkdoNSkh8CiAWr1q1
6quvvvriiy9y5MiRO3fuwMBAk9n2jRs34jydshQcI3l3mjRpqIMmsuBXq1ev
fvPmTc1Pdu/evXbt2nv37hUsWJBfiYvYNdYN96A5AwcOrFatmnopo+P1x0WT
j5Mzio9UxsfHZ+bMmZom4PeaNWuGL7LzLBOcPn06ICBA7f+Rw/Lly/Plywc5
cauoxL+d8Pz589BLi/wKlkgAJaLZf64JCYlx3cWoBFwXWXXo0AEeogQ71HLk
yJHXr1+n16CLcFenhuNgaJkzZ966datyBcuiy4SWUnmeW7FiRbFWCsIJh6du
XEdKS5cuFdWgnuPGjaPyCJBGwQ1CQkKwF2XyVAP7ciYWUyuskprwXERNBexw
g7t376L/M2bMUFqEYn/99deacQ9v22ZM7ETzDz/8ALXAgjJkyADXwqAU10p9
cHGLFi1Knz49N3zzzTe4LyjZR7M5SELCCvBFJER4QmGhhLDNmzfjymAjhuvQ
Hjx4QG5lcTreCs6dO+fr60tiqB+XwBgHDx4MI1J7JDzVlClTHj16tG3bNiLj
yZMnxXXsndTmXSwaxUI5VsLx+lMxakWG+PTpU3Fl7969CO3w4cP6m/fv388T
o6Oj7TzREARHHBcuTqmGAA3Hu1aqVMkttpDItxMS7Nq2bUtNlCv8rSeuAihM
nz59yPcdWfNjTkJiXHQxZODgwYPoW+HChYmqSnbPzdu3b4+JndXCyhCs/RrG
xJL5uXPn5syZE3ojrrx48QIO37FjR6rNtwsXLsySJYtiLwDpUYELFy4Qr8+e
PSsuogbBwcHqEVHoOkSUn+sf6oicUVd1yoNdY0qHDh3yuECsm5YqZJUWFS1a
dOjQofoBFu/ZpgIeSu/DMVq0aGGoP6dOnYKfZM+e3auboCUkvA0sDoPyIKVa
s2aN/vhr0vyUKVMWKlRIvTgtJtbRQVfwxk7Npd66dQsnAKlwlfiQ/OLD9Un9
X3/9RfytUaOGfiE9LqVAgQKGCaZT9ce9U+2AgADhe8WBWp9//jkRR38zIYxE
EiE7fqLFzZs3CSIZM2bEj2m+IrFNnTr1nj17nH2iZ4C6kJIbckKLII7069cP
ZVBfRHUJWIb3IxA/Pz9lnMom4iQhJl28du3abNmynTlzRv+rTZs2ESvJhR2p
JBYESYN1CItA1UNCQjAEOEZMrACLFy9OJdXsAo9BuJ83bx5GoUzHREZGwjfU
toO2Q0IMj2RxVs4CFy9epFZwG88GBKjk2LFjcRoKYT5x4oRmgEiB92xTAQKv
V68eJEQ/TCqwaNGipEmTVqtWTe4JkvhwIexu8ODB7potat+6dWsSB411/Pbb
byVLlsQ0FixYoL6OKytbtqxThzNQGk/fsGED9acCd+/e1a98I3K1atWqV69e
mlTr0qVLuXLlonp6uz5w4AC+3XAYx6n64yeJLCtXrhQfxbEVzZo1cxWkuBN5
Or6fFOGsWLGCWKbPQ/ft25cmTZphw4bFz1le5jh+/DjB0eM1Ay9fviSLzJcv
3xf/AGHmzp07a9asytpmNbACGAs/sUN71IiThMS46GICUKNGjRo0aKBfUEEl
BwwYUKpUKftLVgSePHlSokSJIUOGiB6PiIgoWLDg3r17xbd0Qfr06TUHzMLt
P/vss0qVKik5ON+uXr1aWekkANdF2hpXEOOQnJ89e0Y2MX78eEWHqQw9y0XP
RleQed26damVcCa0CJaFr3C19sZLtqlAzA0hZ8PpUahj+/btoSh478RgqhIS
nsFjEhIdHe3j45MsWbI5c+aovROmQUjFNLp27aq+f/PmzRiUI8OGv//+e2Bg
oOLucB3BwcGG885Llizx9fXFlpUrVHXatGl58+bFsURFRal9phjrwP0aDrE6
Vf+wsDByKyUCCj/DcwkooaGheufJE7kBumXzudaBTNKmTateipCAsENC6NAp
U6YkMQIi1Z9TFxOr1YUKFUJtbFf8/4cVEmLYxWfOnCGerlq1ilBLsFP3xatX
r6pUqdKpUyenNomjjXBv8n0kRlpRvnz5HTt2KEZNBMyQIYNm/cPJkyczZsyo
FhQ1hFcoUzMx/9iaodU4Iuc7d+7gguBjinDE9IR6ea27BVLbCRMmKAtC4DNV
q1Z9/vx5eHg4aYjmfm/bJmwwderU6pEZNQR1TJky5ZYtW7xUAQmJeIDHJIS4
QC6GP8fPaEhI69atue7v769cpPBevXrVrFnT/rAhDoHymzZtOjIWgwYNatWq
Vdu2bQ1TKlxi9uzZ1QPvxIKGDRviW/DkhH71iSKUwFeNGzc23MjgSP1FOXhv
MZBOwkX9cSM7d+4Uewr0gzM8UZwD6aVjSR48eLBp06bFixcfPXpUyJBgRJXq
1avn1GiAHdgcCXEXu3fvzpkzpzqS2sSbN29QG/Jrk71jhl1MjxDgbt++vWvX
Ls1ZfFeuXMmRI8fSpUudqmRISAithmwMGzYM09BwBoQPLYHOKXVAZ1DjNGnS
rFixgso/evQoJnaosFq1alxRsxc/Pz/DzfKOyBn9HDdu3KVLl8RHXBn8oWjR
ooZnu1nB3r17CfrKbCwfoTTdu3envTxI34NetU3qoCwIMdzgDHWkemiCspJH
QuJDhMckJCZ2vv706dMaA3z58mWlSpWwnTFjxigXnz59Wq5cud69e5s/BWKw
Zs0a2AuJ3lf/i6+//vrQoUPisDJ9YutqFlisKxsxYoSSGfEHrAnXERQUJFI/
5eb79+/nz59f7Wyt1//8+fMtW7ZMly5d+vTpSVE1CzxwVgR6uA0MirZwD4F1
+vTpJHGhoaHQHpo8dOhQ4cw14Ik8V30am1PAe+PfGjVqhMwJB2FhYagBDnzW
rFmIFGpnfSQETdi+fbtGOIiRfLlOnTo4duLpzJkzPTjiKT5JCLoxfPhwFEaf
86pBMwmvgYGBtWrV0mgpmo/+CIu4efMm8Ys8OlWqVMRrAnSPHj00C6WUAvVd
TFJfunTpUaNGERM1MzIbN27MkiWLep2tBlQASjlx4kSxxlg/G6J5OvUsVqxY
cHAwZRqOIRDv6EccBbbTr18//qfH0dj69esjB/E+Yu5Bc7gHGc6dO5cWdevW
zXC5cpxyxkxGjx6dJ0+eFClSVKhQ4YcfflCbJH/v2bMHa42J3UZEfWA+hw8f
hs+jKvp1MhZLE6uzoN+FCxceHYvJkyfDaipWrIhd8CtD0XnJNmNUC0KUrToa
QB3lghCJjwB2SIghiDvw88yZM6u9gVgGOW/ePFe/wsr279/v4+ODWfF/3rx5
Bbvw9fXFt+M6iNQe5E0YMs6zQYMG6qSeZ+FC9ZZLBfDthkvrzesfERFBe6l5
rly54CFUm+RX7Ze+++47QjzPvXDhQtasWVeuXMm3lCmCMpKnPiYRf/78+fzK
wQXw1IRAlj179qlTp6qJASkVMbRNmzY0AZducUybEiCcGucvznRCE8qUKUPw
JV7j3levXu1uVeOThNCQpk2bojAmoxZ3795FnZAPPU60EgeGozaChFBVAqIH
cwGGXfzixQt9mEZb+vfvj1TFMR16REVFERZLlSq1du3aGzduoOeOLBigEKg1
PFkJiPzx8OFDcYAGf0NlxQ4vgj76bPJQczlHR0cT95FqpkyZsmXLJrZ4qzfm
cAP6phAzDAfuBMnHP+iNyHppYnUWtJwWYZsIX9yA7rnasB/jBdtUICZqoa/b
tm17ogMSFgPOykoeCYkPFM6SEJyAeEUpeYS6wCNHjmTMmFH/Hi4BPNiWLVs+
++wzzEokONQqNDSUDJrS7Ax18tsOHTqYpCqQE2p15coV4dvLli1r6NtN6n/t
2rUSJUqQQ4k9rZSza9euggULEozEDUSBoKAgsXqNuKA+IcQicLA83d2zO0yw
fft2yNLAgQM1Thtx0XHQrWTJkhFTLJZ24sSJ2bNna/Tnl19+KVeunLK0QLwx
sHnz5lZOtFMjPkkISkKd27dv70rlbt26RXCHexBtRbvI9P38/EjqbW5AjrOL
sQuUh/gILaEOhptGY/7ZtEIkNYmb3gCKNH78eIv7VU3kjHr4+/s3atRIOdEO
+6pbty6eQeQRiH358uX79u2z8iC3Srtz5w65j6t9KK7guG0qIHPBAUJCILeV
dUCAEGCIveHOHQmJDwjOkhDMmejWpUsXzQAywQhTNTzCNCb2qOdcuXLhGdSj
E2KlepEiRQwnKSxC7COAEhhugI2J3Q6TPn36lStXkm4QSg4ePGh4m6v643vJ
RIgOGsd16NAhfKwQAjIR+xbFghDN4a5WQCUzZMhgffkZLnfixIk03HDn9fXr
1/Pnz0/oFHxPDbE0V6T5FpkSjZo2bZpmAywevk+fPpoxJR7Xrl07zbEkccIO
CSE1nmUKZY+SAESxUKFCcFFDW0A5GzZsiOjExlUF5MKpUqWCeXpQQwXmXUx9
YIzkxXQK1SNhN+Q8N27cQNV9fX09XhThMaBG48aNs7iIyETOO3fu7N27t2YX
PIVDX4XY+S3OSn1+qQncKm3Pnj1ZsmQ5evSolZIVuGubL168CAkJwWnMmTPH
RFzKCSF4RcNJzJ9//hmPpD7axUvAxZF8QXo7d+48ffr0eCa3Eh8T0OozZ86Q
Am/7X0Ck0XOSBexI8xU3R0VFWScn+EBCW8uWLfUuYt26dZiq4XmVWGKbNm2w
Jk0gI0sijmfLlk1/6ql10OoRI0bAcAy3QsTErkJZsGDBoEGDYGImrttV/Wky
Tkyf3eM3uA4ZoHVUgAxaXISEELLdHT4lz4IpQXUs3v/777/PnTsXNqhfty9Y
Gc6Nmuh7looFBQXxrXJkRJzAjdNAjQQiIyPxV5o8FyJB3FFGuTWAohDHt+kA
KYKIrlq1Sv8V/t+8kmFhYSVN0aBBA00dCPSGh1qA1atXk3jqd3bjoslJbe7d
jrOLr1y5QlTq27cvmbthq6kzkSKhxudRudOnT1scQ3AlZ4yFJhi+wHr9+vVI
mPLDw8M3b95s5SnulrZp06YWLVq4e6Kvu7aJEyDTgYP5+/ubzMCKFIzenD17
tqFUFy9enDRpUut26hkofMyYMdAzeora4tPQwMSwaU7iQwRZOVZfo0aN6jrk
yZMHDlCtWjXNdW4mYFlU8idPntSqVatjx46GVDk0NBRTNcwyTp06BaWHZmt0
W5ghzkqfsFsHtiPmFwwXBFqHq/rj6FxFVQgALO7cuXOEY5ujTOKgBuvzI2DF
ihXZs2fXLwuEMxDTCaaGR3X9+eefjRs3NlkLp8exY8fmz5+vjiZwDyK1elu0
wLVr12B6hjMdYgFJ7dq19cpZqlSp1KlTV6xYUf+Vks86BeoMXx05cqQ+iMOr
q1Sp8vnnn+vZLM1Pnjw5cc3Ooz3oYg2gAWXKlKHvChQoUOwflCtXLpEcOqeG
KznzEaZqqHjQeKLhs2fPYLyuDoHXwNnSXMGDjiNzofkhISEm9ygnhBj6TIwI
T0tfu5qVcwSUvGjRIvXMFz7tiy++iLetahKfCByZjoF4tG3bNjAw0NWbqsgy
MmTIoJ/sECcJkEjq38Lw4MEDX19foo/FoVdDiPQwf/78Nk9XdlV/E0RGRhKL
SWTsH2t5+PBheBp1sHg/Purbb7+tVKmSXnTijKncuXOLwRkNbt++jetDXIbf
GmLLli2a8RZI47x58zRkg45esmSJB3MW8bkmBCWh7YYrcs+ePZspU6Z27drp
V9F07doV3RA7RDyGu12sx82bN6GdNkl7/MBEzq4gdrjs3btX855Hz+BgaR50
HLmJq7PyFIgFIX5+foYnoYnjEby9IOTKlSsTJkxQzitAUKNGjSJTkK8PlnAW
9knIu3fv+vfvP2zYMPXxGuRl6hQMOo2p7ty5U/NbHtqtWzfDFQj8HDMkYbHj
JSi/Z8+ecW66jBOu6m8C8p2+ffuSatl8FzwgdvN05QTLOPH06VMSFsNty3AG
fBdJvZ6fwBOWLl1KUh8UFGRdGZDJrFmz1Pnm7t279YK6cOECHe3B2+vik4SQ
FBcvXjwgIEDf/B07diA3/apF8RLnChUq2Hwxn7tdrIc4sdyDFUfxDxM5uwK+
BbUcMGCAciqIHThYmrsdhzfDVdJ8kxEY4ZOTJEnSsmVL8wUhTr1GWQ/xblD1
glsUrESJEm75QAkJK7BJQsgEp0yZQgmaA76IHbNnz1Y+/vLLL3hI/bw5P+/c
uXPevHk16RultW3b1sfHx+ayK3F8q/4lmO7CVf1NcPfuXbFN0s5zBVatWqXn
aTQNztCjR49+/fpB1WbMmKEcoU/azv0IduDAgb169erSpYsyiQC1S5UqVdOm
TfUTu/BGsbVTvejx9u3blSpVUs6V5VeTJk1S54+XL1+uWrWq0k106MiRIzVV
xVXWr1/f8KSFOOEgCUEHzFdOcgOq0rhxY73nh7whN/14Hf2bJk0aD7Yea2DY
xW7hwYMHBQsW/OqrrxLqPcXWYSJnV0DxOnTogCY7coCeg6W5a5vifDNY65Ah
Q2BBrVq10q8eVxaEuNqqs2TJEsMFIVjl4sWLixQpkilTJvW7iaHQKIZi17gm
PEPv3r1xDu3atVMOnFFLQxxDjflTSQycOhcrVkxzaJ6EhCOwQ0L4LTY4bdo0
jTNBmSkzNDRUuYL++/r66meBUWm4Svbs2TVkg1iJaePbbeq8eH/Wt99+a/NI
Q1f1N8G1a9d4tPV5DVfgifgxnq7mBrhxGiXOfeXj8uXLkydPrpxJtWLFCj4O
Hz4cLide2itehxoTuw8xf/78NWvW1LAybhs3bhzpVUREhPp6eHi4ek8xZAZm
qPaN+Nu+fftCXcTZCw8fPqRWyrgT327YsEGsLPWsK+2TEFo6d+5cIk7//v1x
uWXLll20aJHhIepiGstwMAEWmiVLFs0hpcT9MmXKUKbNwS7DLnYX2GCnTp3y
5cunX42T2GAiZ1egv4jXjlB6B0vzwDbFghCIvcgLcHQlSpTQeAnzV8YoC0IM
3+7EFdyU+oWY4r3YtWrVomLY4N69ewWdEG/dWrlyZdGiRW/evElfwDqUFX1U
b/z48fwWu4Z7UxOSGvVreiQknILHJEQsJhRnc+mRNm1a9Q5NrL5JkyYk4Hrn
D9nGCubPn68EKTg8YWvOnDn2FZ7C8+bNa/+Aa5P6u0JUVBTR34MzQjUgjuMw
ebqSpyAociuYG5FRXNm+fTshkngd84+HL1eunNgMK5bmFihQQDglcbQ1ZOPY
sWPKI+h64jJkY9OmTWqqIAiMUlRM7EHWkENxJpUC3Ffbtm1JzbiTP6BeuNat
W7cGBQUVLlw4Z86cu3bt8phM2iQh9BdhQqkA/6NXyZIlg6EZLvJftmyZ4QvL
KAca06hRI4W8PXnyBH1o0aKFq0PDrEPfxZ7h/PnzMEzIpBKb6MEzZ84kwrER
V3J2BYIj8rdP6Z0tzV3bFB+xIGVUkOt8VO/3oYSwsLCUKVO6Wt5DHoFZQWz0
43Ix/7wQU+2pIiMjsUFxMxqSJ08euISiIQghd+7cCxcuxKjxk4qdHjhwQEPS
4CFwG8MjcCUk7MBjEkJQI7QZMhBxLKH6tSxiAaqrNzGRaNetWxdij/UR9XD1
KLwj4367d+/GxBSH4DHM628I2hISEmK/FWLVgXqnnrhSv359kYCLfbXKuhex
IETZgStewlWwYEGl5vyqT58+uLgpU6YcPHiQejZo0KBKlSpwP01tX7x4UaFC
hYCAAMEGxbnW6iRLATeEh4fzXLUO4IqJ9fZ3H9ghIVeuXMmWLRtOWNEBvChB
gQhouPWbkJ0jR44dO3bovyKUo5xt2rQJDQ2dNGkSrp701pHZAX0Xe4zr16+T
9pK0EkEosFOnTqtWrVKTeXhmzZo1FXk+fPiQm2m1zee6CxM5G4JY2b17d6eW
RDpVmru2KRaEqJeoYTWpU6cW60ujo6NRKjiJMB9YPX9D6cXZBRgyv8WQP/vs
MyXR4yPpg1ptxCiK8u6J169fow/NmzensTgEDF+zaU68Ba9Hjx6jRo1SJm2p
J75Ls6Ie/0CXGR6zICFhB44f2+4KIk1zddQhJoMJoOeuThXzADSNdtWrV88R
32Vefw1w+9i7dR9rAngCz1VPOotdgcp7A2ldrVq1YBoitcfDEHaVPYPCySAE
9ZQBPyQoE0n79u07Z86ckydPGg4LXLx4kaKUE71EkoVPczUcJA7zHDlyJBwS
P++IRtkkISgV1BEiqpxCI0iIq6O2aSMRpF+/fq4qDzEjtbx06ZKD49L6LrYJ
+BKVpKWabuVj27Zt1Uuk1q9fTxc7+GiLiFPOGmzbtg1ddUrmTpXmrm2KxR6t
WrVS3teABFBF5UBX+8BBKe+e4ClDhw6tWLGi2BsoXlylWUny7Nmz8uXLw8nX
rVunkBl6B06iSR9gsxAYRxYGS0iogeLNnDlTPUDnJRC5MEYy9HibVSQrKVu2
rIPzyNbrj/3Wrl1bc/yaBxDJS7t27dRx/8CBAxkzZlQO+hADqqRjPJTGkr+Q
CikJy549ezJkyODqwHxzhIWFkYspewlFkgV1gRKEhobq5fD999/jzU6dOuXB
s1yBlLlp06Z2JhQQnfosNfGmVNiUqwNw4G9QKcOtkd6AYRd7CbDEYsWKKaeE
iSN8sRF3j7F1BNblTD0HDRo0b948R0ZHnSrNA9v8v//7PxhgUFCQkD8Oiu7o
3Lmz/UlbAVo0YcIEMVaJzo8ZMwY9V2adBN+AhaotF1INS2ncuLF6TO/OnTvd
unVTGwh/16xZs3Xr1u6+dkFCwgpQ3fg5YpE0AY+nnqbxKqDuVatWtT9lr8B6
/Y8ePYr5298sef36dRy1Zl8JLkK8IT0mNsLiUYmq38UCsoG7I98RJ3Lg4fEw
gYGBHgQ4EaHwqGJUFj/Jg1KmTLlz507IRnh4uMaHi5FnHKDNt6gY1sSpovC0
RA1yf/WSGA3oNbJXzYnu3oNhF3sJJ0+eJE1WBuhEatylS5cEWW1oXc7ciTU5
9X4Wp0rzwDbFecViqlRMr5QrV87mOYpqwBDq168Po8D/tGzZcuzYsWoiwUOH
Dh1ao0YN5SLmsGjRIjKLJk2a8FuyDBEIIiIiUAxl0EPsiaOq3j4iXkLC28DX
DR48GEPw9tRPTOxYBNTd2eMiLdaf6Dx37twePXrY9O08haS1f//+mkF1yl+3
bh2OdPLkyTg0nBuep2PHjmIBBt/CQHBEM2bMaNOmDTXxLM8SESp9+vTVq1ef
Pn06zjM0NJRi/f39kYD+hT7i/tq1a9s/F8VxIBP8J2Ih66SGcR4ft2/fPny1
zbNlrMBVF3sJpP8k5spiGDHdtnz58nh4tCEsyvn8+fOVK1d2itw6UppnthkT
y1JatGghTuDv1q2bnRdj6UHSUaxYMZ4YEhJiOK9NRta1a9dvv/12/vz5wpWd
PXsWylGmTBk+8ivaBQ9ZsGDB+vXre/bsOWXKlKlTp2LykBBXR0NLSHxYwOhg
3ZrtFY4DUxozZsyIESMc9+1W6g/36N69e3h4uM1n8ZSGDRu68pbE+lu3bgmC
wRPxOWrOQ15z7949O2TvwoULWbNmJVElcyRsKbPY1MdQquL4feuz/PEJKkwq
unDhwoCAAKjpmjVrzBWDb0ePHk0i6e22mHexsxBLlIm/yjl1qGjmzJmjoqIi
IyPdfXGbU1WyIudNmzYROp2as3CkNDu2SWPv37+fgOeOQidu376trhIqAYER
Y5tUPjg4+LfffoON0MDEf/adhIS7IBNp1aqV90b2MCX8DDTeSy98jLP+OJ85
c+bYXGF748aN1q1b219V4jHWrl2rPiEkTpw4caJChQreeKe5g0A3xHvoyFLN
Z7dfv36NCm3YsMF7pzPFcxc/fvy4aNGiVapUEXYRHR1drly5woUL88f06dMN
X/QWD7Ai5z179ijH5dmH/dIS3Da9irt3706cOFGeByLxcePy5cvLly/30hA0
lH7+/PlefeW0V+sfE5shUn4CLkQXC0I+iDPA3cWTJ09KliwJD4lzsa54w7KX
hiniv4thienTp8+RI0eXLl2mTp06cODAdevWIQqxSjMBX43qVTk7jgS3TW/j
wIEDNt/GKCEhIWETf/31FyRk2rRp8f9SeGfx/Plz0l714uR3797Vr18/SZIk
ysbJTwFinVLu3LmvX78eHR394MED0bNv3759/PixPItbQsGFCxccPCdBQkJC
4pPF33//3alTJ/hGnTp1lCl48TohLvL/p0NCaGmbNm3sv0RJQkJCQkJCwgrE
Ukz4RufOnZVNyi9fvqxcuTIXJ0+e/OmMAIiTPN16+ZGEhISEhISEHezdu7dr
167qBULHjx/PkCFD8eLFDV/M8bHi7t27tWvXFi8ZlJCQkJCQkIgHkPivW7eu
ZcuWc+bMOXr0aHh4eKFCherUqRNvJ+ZJSEhISEhIfMp4+fLlrl27pk6dumjR
otOnT8vthxISEhISEhISEhISEhISEhISEhISEhISEhISEh80/j8K5kkN
     
     "], {{0, 99.}, {727., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{610.333333333332, Automatic},
   ImageSizeRaw->{727., 99.},
   PlotRange->{{0, 727.}, {0, 99.}}]], "Input",ExpressionUUID->
  "f0346658-541e-4d67-8c7d-4dcc6922df1a"],
 ", FieldNumber = 8"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, 3.8312302427783546`*^9, {3.831821333973628*^9, 
   3.8318213344110136`*^9}},ExpressionUUID->"71b27233-de5c-41c9-882a-\
917bab0641a6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "8"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}},
 CellLabel->
  "In[286]:=",ExpressionUUID->"56dc098d-8899-41c6-b61b-88b3e40c5701"],

Cell[BoxData[
 RowBox[{"At", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.8318058891268415`*^9, 3.8318248942243414`*^9, 3.8318278099447203`*^9, 
   3.8318281608234634`*^9, 3.83183979221088*^9, 3.832947504602011*^9, 
   3.8329617892865534`*^9, 3.845826880819297*^9, 3.845852472295751*^9, 
   3.845857082625546*^9, 3.8459196293052235`*^9, 3.8460065813168197`*^9, 
   3.846099892693946*^9, 3.8474704546561785`*^9, 3.851700639744712*^9, 
   3.853975455692075*^9, 3.8549774149354973`*^9, 3.854989268661875*^9, 
   3.8549999060575695`*^9, 3.85516525483568*^9, 3.855182324088998*^9, 
   3.85518586846002*^9, 3.8553306454035435`*^9, 3.8553398508207617`*^9, 
   3.8553431879288464`*^9, 3.85534402215462*^9, 3.855352749293366*^9, 
   3.855449613093073*^9, 3.855507614703353*^9, 3.8555084118180447`*^9, 
   3.8555128995283937`*^9, 3.8555333309513273`*^9, 3.8555789252893877`*^9, 
   3.8555932975591087`*^9, 3.8557506101487713`*^9},
 CellLabel->
  "Out[287]=",ExpressionUUID->"c07c5265-1bb6-4180-8413-bb11e864425d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Bt", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "  ", "+", " ", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"\[CurlyPhi]", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["2", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8318248693531437`*^9, 3.8318248794142475`*^9}},
 CellLabel->
  "In[288]:=",ExpressionUUID->"2e8ce957-20b2-4541-993d-16bb4b68b8f9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[289]:=",ExpressionUUID->"853e2754-d513-49b2-ba5d-1a5777e6bf00"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, 3.831805889252923*^9, 
   3.831824894396179*^9, 3.8318278101165338`*^9, 3.8318281609328556`*^9, 
   3.8318397923026996`*^9, 3.8329475046801176`*^9, 3.832961789380329*^9, 
   3.8458268809521255`*^9, 3.8458524723945007`*^9, 3.845857082718987*^9, 
   3.845919629414585*^9, 3.8460065814022927`*^9, 3.846099892787671*^9, 
   3.8474704547654877`*^9, 3.8517006398540597`*^9, 3.85397545578168*^9, 
   3.854977415029236*^9, 3.85498926875036*^9, 3.854999906160199*^9, 
   3.8551652549606247`*^9, 3.8551823241983476`*^9, 3.855185868560009*^9, 
   3.8553306455128613`*^9, 3.8553398509947395`*^9, 3.8553431880382233`*^9, 
   3.8553440222483854`*^9, 3.855352749390316*^9, 3.855449613200096*^9, 
   3.855507614798338*^9, 3.8555084119181757`*^9, 3.855512899670559*^9, 
   3.855533331071981*^9, 3.8555789253957915`*^9, 3.8555932976699424`*^9, 
   3.8557506102581453`*^9},
 CellLabel->
  "Out[289]=",ExpressionUUID->"6b3f1adb-bd8a-42fb-9958-2aad74e5eec4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[290]:=",ExpressionUUID->"742737c3-2963-46fb-80a4-c2afeef4ddb6"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwTef//0VtbcUWa9Wudhq72rcKJYitYq89lBD7VvsS+74HoYTUTjEU
VUGVsdQ+IcGI4kt1qKHTdvJ//fNMz5zfPfeee3PPTWL5vGaY5Obcc57zeZ7n
83k/e6Huwa16p06VKtWQDPzX6qsR9UJCvhrVOgu/tB04JKjPwF49mwwc2qtP
r5Bq3d/jwyD+NeSH//9zvCAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgpDs
xMTELFq0qEuXLiEhIceOHfv3339tLvj11183btz4999/p0jyHPHPP/+cOHHi
m2++6dix47Rp02JjY20uIME7duw4efLku5AM4TVEykZiefbs2XfffdevX78e
PXqEh4f/+eefNhf8/vvvK1eufPDgQYokTxDeFMT5vFM8f/58/PjxhQsXbt68
ebt27YoUKZIqVaoGDRpERUUpRff06dPp06fzyblz51I6sf+HGzduBAQElCpV
KjAwsEmTJlmyZHn//fcHDhx47949dcH169cpw3369MH5v/XJEF5DpGwkChzO
rl27Pv3005o1a3bq1Klq1app06YtUKDAqlWrXr58GZ8Qevbu3Vu3bt2wsDDi
VEqnVxBeX8T5vFPcuXOnbdu2o0aNQrCpT/CWu3fvrlixIoouW7ZsxYsX9/Hx
GTRo0KNHj1I2qTYcOHCgXr16kZGRmktXmjNHjhxeXl4F/4N2vUlf4oULF0qW
LDlv3jxjP2RyJkN4K5GykShQa1OmTGnZsuXly5e1D69evUq4QdGlT58eX5Qz
Z05Mevbs2RRMpyC8/ojzeddAoqNnjJ+TvydOnJg/f/7q1atv376d/AkzB+l1
7ty5+/fvG/9Eid2xY8esWbP4//nz5+b3iYmJGTFixMWLF1M2GYLHsem0IaeS
uRtHykZiefHiRVRU1KtXr4x/unnzZlhYGG2un3/+WbrjbDAaRKLz68Nff/2l
upSTk3fK+VDaxSdYBxtOmzatRIkSONuUTouQTJhkuvV+To+Aj/Lz8ytbtmyn
Tp369u3brFmzKlWqnD9/PgWTJAhJxOzZs/PmzRsQEBAUFBQYGOjr67t06dKU
rYAC9t+/f/+AAQNGjhzZq1ev6tWrkynoukTdxMTTPnv27Msvv8Sz8YPnUv2G
8dtvv3377bfFihVbtGiRG18X8+qhxEZGRs6YMePtUPiCK5hkusV+Tk9BBUTL
ZciQIVWqVBkzZqRW6oftBOGtgco4a9Ysb29vLy+vNGnSVK5cedu2bdJNkeKc
PHmyRo0aZ86cUb+uWrUKd5RYjW3iaV++fEm+R0REvJt5zVuj32iqE24++OCD
efPmuXGTN8i8JPXgwYMTJkwYP348CTauYXlnefXq1fLly4ODg+vWrYuwt1u/
4uLiQkNDv/nmG6z3/fffSzvXg7x48eLHH3/Evx0+fNjEsDS7rl696sb90XJD
hgy5d++eo8Gmx48fX7p0yY07C68bV65cIUTu2bOH0pLSaXEfPBJxP7H9NvEJ
Tn7ZsmW7d+8m6CSbjyKdpDb5hw49BYai+m/cuHH9+vUmvRBuZwoQVtKmTYvS
UGLg6NGjNCrRHtrdxAVZMa8Gd8iSJYtRy70m5vWUd6IUBQUF5cuXr2XLlp07
d5auCQVmwbzUNUpR//79q1evbncVT3R0dJcuXVq0aFGwYEF+eNemoCCHaAjQ
bDl9+rS2LsY6qLhp06blyZOnfv36CxcuvHXrlqMrKa6BgYG//vqrG0/RtJyj
C3DggwYNWrdunUh018FWDx48QF3bjDtQj4zbhngKbk4huXHjhs08OnJQRUkq
765du3r16oVLDwgIMClRry3Yk9K4Zs0aN0qjpuWSImEmD92wYQNt4T/++COp
n4ViPHDgAM3qGTNm8IPd6ZSuQ8r37dtXoUKFokWLjh079vjx4446XqxkSnyC
o+PmT548Ub8iGpF2s2fP1u6WUi4IhUM7OsX9nkXzajjSckltXhf3cHv06JFH
vBOltF+/fl9//bXd4kqAHjVq1JcO6NChA4mkBGql0Qbq1JIlS7g/Kbx+/bp7
KXSPCxcufPXVV45S3q1bt2+++ebw4cOOBP/t27cnT578ZwJ+CZhEIvJo5MiR
PM6RlkNykFOOEtOjR48pU6ZQd16HrlrSQNFypR104sQJxH/37t0//fTTVKlS
pU6dumfPnjhVR5nuSj+numzAgAHvvffe1KlTzbXx3bt3/f39EZOJfUeF0nKU
gQkTJgwePJgabZz2gCxp3bo1Fc29R7gCVWzixImYrocz+vTpQ2qTLiVWwCuG
h4c3bNgwW7ZsJUqUqFOnTpEiRZDiUVFR6q+U/61bt3r2oTi98ePHlyxZMleu
XJUrV+ZxtLmGDRumVtOfP3+eEhgXF6f/CjEah1mpUqXXpIOO3Hdl5gmVAg+D
y3Kvg0JpOSodFZPgheCxPnWZql2lSpU9e/ZoKSR5c+fO1Tsx6i9edPjw4RbF
lTl4gC+++GLEiBFbtmyhFrdt27ZMmTIoOrdvuH37dm9vbwrzw4cPTS6zmCk2
UCBr1aplfKiJCzIJrygHQnPLli3xpYmd2sQTqSDNmjVL0lxzigfN60jLxSeZ
ed3bw82idzLXclTGs2fP4qURMyQmU6ZMCxYs+Omnn0gSDYqdO3cScAnlH374
Ie0XY/vru+++W7VqFX6jQIECOBM3kuc22IrAR/bxaFJevnz5bdu2RSWAakIM
88rZs2fHyOZTR5DW+fPnp0SZSHenWg4dyHOR6OQULa/Ro0cfPXpUJQYzkgC0
JZ8jcm7cuOGBl3cLSnXfvn3Lli1bunTpzJkzE5EXLlxIy9HuxZRVgqZavIz1
cKeBgYFqOy+7me5iP2d8QpOQfCEZ5uWZhGFw8sVtAcwrUBmRc/fv3yeD+IGa
hT60uYwMqlGjhnvDuK6AQfAMK1euRJNQUCtWrEg82v0flA0EMB4Dm/BXYmUS
JcMRlG0aayglR0qMMk+OU4+KFi2K69Nn68WLF3FleAmy6aOPPvKgDXkKlQi3
QxA/dOiQVu/4gTJG++j06dMojTZt2tjEI6xNA4S6hgfwVGLcgGRQNchrnGeO
HDly586N1r1z546j6/HAjRo1MpcW5syZMwcfjlnUvq/U8e+//97tuwGVHd3O
DdWv1PePP/6YcGDjJ2nmN23adM2aNVaeZQItyq5du+oXY+IQFi9enDdvXvda
eTgWDPX+++/v3bvX/ErrmaKg+uM8qSBoBrt3c+SCHIVXMoXaQcsUB0IzR7Wn
XITsIxNpmPNEDw61uIGnzBtvquXik8C8bu/hZtE7mWs5Dfx5mjRpihUrZgx2
JIC6kzFjxnr16ulHrKgUEyZM4PpNmzaRftSLG8mzCGnDsWPAHj16GIUW5aRj
x468F7HGURuELMiaNav58IRTLadQJYqoZ9y/BeOPGTOGdNavX99RJ2eScvny
ZTyJJmuR5UFBQdTomjVr2t1tBuFnt6/VUaa73s9JzaLJgKwyH5KLjIxEYBhL
o+uQa7du3dKyLDY2lmYU9csmE/kVKUWoTdJW6uPHj6npGBzFa/cCdFGhQoUi
IiKSLg12QfFSr3Evq1evNv6VcoJl+Ct2syvO8ZDIlffee69WrVqeGmv79ddf
uWfOnDntzjomW/HAVDRq06xZs4x/HTduHH+aP3++RxLjBph04MCB+BxlEF5h
w4YNJBhRZ9fPUDJpqm/fvt3KQ1E7WgapkOHr62t3PwpXoFKQ79xBO1YD18Er
7Nu3z3jxrl27SD+NYveeZQLxtFWrVjSEbU73wHUgIBHzbux3ipWqVauGzzdf
nOWRTNGDh6TpwT2NM0bsuiBHnpbMnTFjxrVr1/h5wYIFFKpETUFRfoYKUqpU
KbeLh3U8a15zLedx87q9h5tF7+SillOzNNFyducXkYYVK1akS5eOGG3j0l++
fEl1QxKkiMjH8h06dHCk5eITvEG7du2INbh9Y88bn+BykeXmjshFLbdy5Uoe
5O/vb3c+MGqf8oYkTv5xNFxf9+7dd+7cqf+QwqxkMHLX2DuH3Wg0jR8/3m6x
Mcl0p/2cSss1bNjQUZdgfEJjv3bt2tOnT/fgPAclWmgxGUs4rgAF7vZgriuc
O3eO8EEB0Do6bCCPKKiJbRCREbQoLXb2kmWXLl0ympqmEBGTWj979mxHJZ/i
MWzYMErR4MGDPTKF4NixY3nz5qUIUU4cXUPCypcvT1UymkvVaNLj3qI2j4Cr
xCY2TYOwsDAcLK0Jm8xSCaY6eHbW2cyZM9OnT+92rKTpQajt2rWrGv8iZ0eM
GFGwYEG7S+eUr+CVPT6HhJYCwRR38dNPP9n8aeHChbygG8P6mpYzkUBJlClX
rlz56KOP8GzG5rwjF2Tiacma9u3b8y6un9fA3YKDgxE2mI5a5vbELYtux+Pm
Nddy8cllXqdY9E4e0XLxCaE/ICAgderUNt3s58+fz5Url34+Z3LiVMvFJ9Qg
yq2Pjw+a2eZPBFC8UOPGjU10RbxrWo4/oZdIyZQpU+yagmiuzk/RpqAkGz//
/DMi3Fhzd+/enSFDBlolxnPZeAWEXO7cufmu8YYmme60n9MVLbdjxw6inpUl
SGrXIKSIVp55HA/FlxrtQDFo0aIFRcgjE2PsQksNnY8CcTSmgFeh5ZjYYcpH
jx4hUJNi0js26dy5M+V5yJAh5mbZtm2bt7e3R3oUqaqffPIJxcNu/48Gda1n
z552nVWKazmCQsuWLRFRNlXj/v37pUqV8vLyotboP+cVypUr597WWBo//vgj
8Ug/aMjrU97cHvrEIeAwtT5k1BrFjNrkqM5yJW9nMojsHhTCJUuWrF+/3lgC
aZniuwYNGpRYAemKlvNIplAADh06tHHjRq1pj4SrWrUqxdvYTnHkgkw8rSpR
/fv3d31FHo4Cix0+fJg0EIzcPo7TotvxiHn1ONVyyWNep7wmWi4+IcJSfXC2
WuuMtE2aNIn4iBOOiopKfpXiipbj8z59+nBNt27dbBrLhPV8+fJNmDDBXIi6
ouWI0RUqVPjggw8cTcqlIYN3LVCgQHR0tAtv5knCw8PTpEmTPXt2m06h69ev
0+wl3zdt2mT8Fr4uT548NWrUsJEfJpnuSj+nUy2n8rRJkyZW1kWS0TQ9yBEt
JcqRVqpU6fHjx8brFyxYUKhQoSTKGqU9KIFdu3Z1VIRootJkNql9dkkiLUc+
Tp8+neJauXJlpxNaKAPFixenMFh8KBlUv359rERdM3dWqqHRtm1b47B4ims5
ytvHH39Mm3fGjBl6r0JS0UIkrFOnTvrrN2zYQEvTvZXaGitXrqR2R0ZGql/V
UI7dfksXoelBcDx27Jj6lXpBIjEsAY5nGZUV6eeCdevWufsGiQa3Q7vYjQn8
rmg5j2QKFcfX11ffFU8Jr1KlCp/88ssvxuuNLsg8vOJIeQuS6np6unTpwktd
u3YNt//hhx+6PRJh0e14xLx6nGq5+KQ3ryu8PlpODZ/h4anO6hPCcaNGjVq1
akUFIZHJv5eLK1ou/r/F4OSazQSwXbt2kV9OJwm7ouWonhSnwoUL2x0ov3v3
rppWFBoamvyrWal0+D2SZ9MzScHOnTs3qbLrhLFt79691fCZ3nubZLor/ZxO
tRy2ohxOnjzZYk8vLeJVq1ZpNyGu8bLIWrsXnzp1imhoV9NaR41YEd9t1gdt
27ZN8+pYg/ZyYgNTEmk5FZrTp0/vikF++umnli1bWpxiQTYtWbKEFgdNRacz
r6hBFDy7rekU13KondKlS5MAwoSNlsNKfI4E1T7En+C4atWqZdF6V69eHT58
uDZiRamoXr16586dzYcbHKFSpXUfvXz5kvCB/9yyZQvxLiwszGh20l+zZk39
zmmeJTY2Fh8+f/78Q4cOqSYetZskOZ12a8SplvNUpmA3QsbYsWO1fjncL064
Xbt2dpdGGl2QeXilhOfMmdPFmEuWzUuAH+7cuVO0aFFHTXhXsOJ2PGVePWr+
kk2Ptw1Jal4XeX20HL6CLCAlyHttHgUui1ocEhJC5Ur+YVYXtdzPP/+cOXNm
XjAiIoK6T0C/ePEi1wcFBZUrV87pAmFXtNyKFSsQRXaHIW7evInPyZAhw8SJ
E1Nka02yiZaLms+ph3a3t7c37fcjR47Y/ImKNmvWLCosAZ0WnL7NYpLprvRz
OtVyBw4cwNOic+z+lSzAqythjN6YPn26zX0uXLigukbJ6KlTp44ePXr//v1z
586tWLHiwoULHcUaij2Ff8iQIUmhtO1Olnv27Fn//v0t7h3htlMlg3bu3Nm9
e/dmzZoNGDBAv1sLJurVqxd1ylEfpg1ILyxsse4j4EuUKMFDR40a5TQLeBa6
1+50nRTXcvEJs9yJ2jYlTfXJqF5H7cMHDx74+vr27NnTkWOh2jZv3vyDDz6g
kgYGBtpMV6OSUhco/7w1zVJaXlu3bsXF0Zjq2rWr0a1RWpB8efLkQTOTuTa5
xs98nSrMZVQWnlijRg2aVIQPGu/cExUaHBxsdzmS6nk2mULgNufPn/f39/fz
88PBEo5Xr15NcaVJPm3aNIzZokULj/fLOc0U7T4kCZtwt4r/l9q1a6v+AbzK
wIEDkXPUtc2bN/MnrncUYY0uyMTTqkV/KHYXFRGahKitcketw8J6+ENXvmvE
ipbzoHnVkQ00kYoXL+7l5YX0QpsRZO3Kew+alwpOLbNJP18/evSoipgEJkKP
Mda/PlqOWkO1IiX6uYIkj1dLqdXNLmo53D4ZrRrLlEDc1NKlS5HovK/Tlenx
Lmg5PuevNo1xfsD34nPy58+PxrPbr56CUB7QOaQZj20zF/fkyZNUGUodnxMU
uAZPrm9LOsp0V/o5lYA00XJLlizhJnYPTqV2DB48OHXq1OnSpSMkIef4Wb9v
CUV0/Pjx2iIj0knWk9EkyVyWqJURn3/+eVJseBsWFmYzWY4EL1++PCAgwOKx
d247VdwOqomX3bdvH80cfXOVQPnxxx8be5aSFGI0AoOUGCe1JgrNW86ZM8dT
afMIGJxij57Xz5VSc/tnzpxp9ys7duzgeoJUrly5kHO8FE1pvVjavn07dtPy
iBJOmwvNEB0dbcw4JHflypW5CUb28fFRmyfoB2G5AC+Hqj979ix/wkPyLFKo
QhIujipvIpxo+vEtDw6c8Qo0urNnz27TBL58+TKtReoOr+A0rhlRotokqeaZ
ohKGo6OOkDX8/9FHH6VKoFChQrhNRDLeEtmpXcwNqV/kCzXLpELZdUGOPK2a
zYVQdOX1sR5yRfMSauYwCUZkulfBrWg5z5rXdTxlXoxJNbGZ8aj2zaaCly1b
FiVQp04d1BQe3vhqVryTB7UcwgmdTEpc6ctKHlzUcrgppDKXkTsI/tmzZ2MQ
YpmL+xs71XJqYR3BCK2rbf3aqVMnSh2Z26dPH+1IPqcPQvshVFIlBqqGsWPN
KdiE7Max0zzXfx4VFUUNmjJliiowhw8fRvriUe2uwo5P6P5KVD/nli1beEFy
zW4XGQ/F7ZAA40AbxqF2kGYco/oubnnEiBHUca0n/PTp0+5tPqkaYknRsaBN
liN84EwaNGiAeFalES1tsRvQPadKlg0bNkz106Kc0cP6FrqakGBltlViUUvG
MEiFChWs23/RokVEAUrR67A1twIJpBZGDR8+XO9DDhw4kClTJrvj/hTpkiVL
UrzVtht8KzIyskCBAuSXuoAAxDu6uNyAQIbr9vPz06a7c//69eu3bNlShTYq
1+LFi9VS91WrVul3lnMRig3v4sHF4BERESjY/v37G7cQxIw4PcrtihUrEntb
NcKIJR0dZ2mSKfEJhiJWfvjhh5hOraKimK1cuTJ9+vRksZUhZqcuSHVHo/B5
IjlFHrm4heDevXsHDRqk6WEeFBgYSGl02jnmCCta7k03L6F2+vTpNnb75Zdf
fH19ketKG6uVd82aNTM21a14J89qudatW3vK5XoEF7UcpUJFz6FDh7rxFKda
To3X4yKMrpUahENGvSAdXRlgRWrS6DieGPDPiR26VTv6ZsiQwWb2S1xcHKWd
eqo1VfgB7UFVcjTomah+TooNN0dA/vDDD3YvwMJdu3a1u/cRmUhj3GZXKF4E
89LM4S34edy4ce517PBcqomJhzdeT2xFEQUHB5uvmFCT5ai/kyZNupoAwp6I
jF61vr2Se05VbYaJuWihN2/enKKrtXPxEtQRakrBggXtzvx0G+xANtGYmjFj
hk3np2oK8VBHCj9R3L17l7thXhcbUMkAoQFZ0rFjR5uTR3D+xDXjpvSoFwyl
n+2pILi0a9dO3YR7zp0718V+FRpQBG6bLSBw9YSbs2fPxiconAEDBtA4UtOZ
3PDwFEJvb2/iiIvXm5SH+ITOt3z58uFRjavOtc4Nkx1+HMHbUQ3fe+89k2aU
o0xR8MRcuXLZTBAlZCOMP/nkEyv7YTp1QWoqJo8+f/58lSpVXAwouAg8qr4T
khdH2rk3Qq3d020t90abV5UfG8dC6e3du7eN8KPctmnTxmZfxHhr3smDWo5X
a9KkCWWAfLQ4NuQpXNRyBFC1r75J164JTrXcsmXLaCRSNexWLrxixYoVMW/S
7Y6eKHgdUkKFsjmRh8+nTJmCbMPzax/yyurQCkcTZV3p5+QpV65coUlCfSxT
poxNT6Ae1V7Qb1KqgeykgWYMXteuXevTpw8B7tKlSzTY3ZvvTQqHDBmCG3Fx
AhvJQFW2atWKWmn+FTyDmiyn390FT4WDdX3ZLG+HSN5kgHBfsmRJ3tr4JzLR
0f2p4ypEkrYcOXI0aNBA0xham71OnTrGI8+sQNXgFQoXLmxcf4p3zZ8/Pw91
tOCF+rs0gRUrVoQlQEnYunWro1hGYfv8889z5849fvx4zG4e8m7cuDF16tQx
LoMCSdSoBIlBk6CZjbuKUQ3RP8aV73zF7uFBvAif03ZT55gYZ8DahYtpcdjd
Gnft2rXUSmyOSdWSPR6BLyVgJbbf4ODBg7TpKJAuXm9SHlTYdeTVVde9mhzi
+tweIvWOHTv8/Pwo8HbnMmk4ypT4BEvSnMyZM6dNIKbWoLF9fHysHH3i1AVx
AWV+8ODBGAcX6kqXGjlLce3evfuhQ4d++A9+xrBqyN58hzfPuh3FG21emjzc
xKZiHjt2DMdl0wilvAUFBdmd2JMo72STQk9pOdXDQBl4fcYvXNRyR48exc+4
vQrbXMuRBjWpzNHetnxLbdXl7++fskfgKahHarDGJhNV90iJEiX0ZYDE9+/f
35Ujb0wgio0dO5bCQz2dOHGiye6L2AdJbLdbgE/sFns+HDp0KDV04cKF5vuS
mYAp1MCN6xtgIhqbNm3asGFD83aNmiyHOtW/ERYeNmyY6w0iZCpmqWGA9iNZ
Q5YZ/4QYsyt9NdRpPqRNG7aL1x2kglN12kXGHbZt2+b63BWcGL7UOFdE7ePh
5eXl6BzAs2fPktRBgwaVLVuWtGXIkIFaHx4e7sgNknKa/7Sy8+XL53TXvvXr
1+MZXJ/SgBP+8ccfXXzluLg4MqJ9+/Z2yzwZhF8ittp8TlBzNL1z3bp1ERER
hADCh4sDZJRtIovdkoAaxLNRMolQNifbJhY1GSNRg56OygMRk0afo/Yj9a5x
48apHO/kaUQdvUFtpUlF8TZfnOgoU+ITlmzTBKbs2bhx1XFkZffdeLdckFOw
cL169Widdfy/VK9eHQM6PUgxKdzOG21elPCsWbP0cRNXM3v2bKN8xXSjRo2y
60IT5Z1sXsFTWu7ChQto4xTZ7dYRLmo53AWRokyZMu6dWmKu5dQ+QoQDu+VT
JbJVq1apElYQpMg6Vj1qZJ/4ZaxuJ0+ezJw5M75OXwJVRw1VwPoGYjyRksOt
qPKOMkJpCXLK9a4PCja1aefOnSg6V9ZdOrpJcHAwlcv1o4hu375duHDhMWPG
mDgudRZSqoSd5fRWpRh45MwjK4MdasM9Xlnv3JR0J8GUWKda7unTp7Q9XX8R
REi2bNm0Xcs01OgGNVSvKo1oZ0zQJjLpfUUI9e3bN126dOpQORfTlhSg31q3
bk0BcNTDSTX09vZOVCsJ61HaaTaanIvhOmplK4LcpoveDWhGEYh5I9e/4qg8
0OLGnaKZ7XY8Xr9+nbBOuXWxW1IPZbV27do81KRR7yhT1HZkadKkMQ6vxMbG
FipUqHLlylbOZ3TDBZmDIgoJCbE7kWPHjh3p06d3+1lW3M4bbV5kks3+XcjL
mTNn2rhK3mXBggXafo96rHgnT2k5kkeaU6dO3aBBA8+ebGIFV7QcqW3YsCEp
J/1a2D137ty4ceOwzK5du5w27sy1HG1kmnsmo/k0MzEsiTQ52Up70Lx583Bi
WRMDNzeecWMXvB918LvvvtMnIyoqSq2xpdZTwW12FFHLvnCAHlmqzJ1nzJhB
1CaC2C2QamPnIkWKJGoP+bCwMBTIihUr3F53qY7tMG/L2LB//36Mj1c0ucbR
znKewopTVRFT7S+E3TR1pI6oIMedVnMKEnXKRQ2gZunQljf2/6Bs1bJE84V1
uD61/m7atGkml6kTAdq2bZuy7SZSi9DllfWykxaK/tgpkor+0U9pcApNKirI
kCFDPDICTtoI97hBu8vGEwWRi3dxNKvWiEl5UMGoWrVqxthNvi9cuJDySbLd
m7d/+vRptFzFihUdTQh0lCk8jspid5IeeYrndLrHtTluuCBzcFADBw602+pR
G0PhvhytaDPHitt5o81Lsm2cDz7Q+C5nz57lXeweFmzFO3lKy0VHRxNhyf1k
W93mCq5oORoCyOCaNWvqKy9ONTQ09IMPPnBlr3JzLbd06VKTyXJqaSoX0LJw
pSGJIERTbXEZXCgtYlccOzlLEbLRHmrFjVoG+/3337///vs2mw4h83B9Hjyj
TY13+/n5OTLX1KlTfXx8EtUNiPwoV66clZ5DtS2/UcBgNFpztKQoYMjsESNG
qF4s0knDiuqAt0RGtmvXDg1sbGdpk+WSaEcat52qWnSsHdl5+fJlbf0vL1ig
QIEcOXKYHz7OZZjFpvsUM1J+qCn8iSozZcoU7TQrtZ0syhaL4ZGoL/pmlDqu
tE6dOiYCUnXIoD8dHa0Sn5AvEydOxCHYHLuQzGBJysOoUaNsIunhw4enT5+u
/ao2GE/UYUb44dKlS7s+Lc0c8uvLL7/s2LGj9Q5MWivGQOxeeSB247G/+OIL
44wUylv58uWxgH5hDgWD9qY2WsS3KMyOehpV88pk8pWjTFGxxngIIFncunXr
jz/+mErkiqEc4cgFuQevidkdVWE1gdztw8GtaLk32rxI388++0xLCWkeOnSo
TZknDNHktDsn3KJ38oiWowY1atSIQG+l68Nu2jZt2kTy3N5dWZuq7UjLoRwo
HryXsQGyZMkSk6029JhoORKAAnc0WY4XXLt2LVUmc+bM1hctWoEWLpLDuMg6
Nja2VatWSmQSJqgy+s5D0k88KlOmjJUFRDY43Ss4IiKCyu5owNouCxYsQE1Z
6YdR+2d27txZ31uOEqtQoQI3xw4EO39/f23jOxLfrFkztacx5sI+iEkEic1t
1WS5pFv37bZTpUaT4JIlS8bFxZF+ArHajyI+IdORqbQ+qJiOpnfGxMTwV5tI
gZPEgGofdX5dvHgx765txq4mRxFz1dxj4jVP11o32B83a3LSxL8Jx4qRKvM+
W22RI6E8cRbxHBgQe06aNMmmQFKEqE3aoTnxCcP0NPEIB653OOAqKahuDC/a
hWKMiLKuDEk/HpJ30Usst8sDzYR8+fIZZ+bjfkePHo33sGmQUsv0m6hwQ/yY
zbnhGnhC872CHWWKKoGEDBtRQcrxV8uXL7cYGe26IPcg5by+tq+UEWoQ9Uid
5eHG/a1ouTfavPjDPn360JRQPVqYkeKtSSb+um7duk8++YTqbze1Fr2TK1pO
rXbx8vIyrtil9YTzKViwIC1im7E566hs5dUQiu4tjH327Nnnn39udzcDlElI
SAj6k1JnXF/JxWQrnsSVIXgTLUcjAqHIU4wyibZP+/btsWrRokUdbcGRPBBE
1PZWdtFmwPJ2w4YNo8Brox6nTp3CwWpR3iM41XLUZZw8nt/FG6qeT6OOShSU
EDS/vk+SAFQvARVQVIHBOKrnXE2WGzx4sKpWaqt8slt/T8yOwsTCtCuTaM2L
205VbYapFuMQOoODg/UVgWrFy+LqKfY28ZTraZ7QgLI5mFstgsYVaz2QaHIi
ptbwVxJda67yOb/qjzsktlKVcuTIERkZaeOseCjloXnz5rgLRx3gWjJS9twH
tWuo2trXiI2joAo0adLkiy++cH3xdVRUVK9evTw1fEwh79ixo3VlqJYs6c9Q
tlIeyP2xY8fiJfRuE+9EnqLZbOb6qimp+pXvNK+4laNlUE7PfTDJFLwERXTW
rFlaAo4cOULsnjFjhnUBZnRB7kEW4A+9vb0d7eEWnzDZhlhPgeRd3HiEFS33
ppuXVjn+nLBOkeMH3D5qc+PGjYgN5HHOnDlxX45kUpKe+0CmNGvWLEOGDHpv
g8NEfpAwQiqVgtRiTJOOBUfjUE5BvxEyMmfOXL169cRuZnXs2DHynYaelnIf
H5+iCZB+qjxW5dWws91iQMX/9NNPe/fu7eLKbhstxw9jxoxRZ0koiEFF/4ME
4MQwHQV+xYoVKb5/Cx4yTZo0jrQcQlqrVgTxUaNGNW7cmHhNVtavX18bE/EU
TrUczQea5DaLBUwgrpGPFgcxaafkzp1bfxMiAvVCG1xWK1y03TWJQeSvNvfp
5s2bNHYIi+pXPqdwpk+fXlk4derUlAeT9prbuO1U1dh6hQoVaCESCo1xjdyh
1vOO+IHhw4cTQAkN+Ku6desSZ40tIHWKLtmqhvvVxhFaP7+aHKXv9kd7Yx98
oP4mNCRRv1TqypUr83TMuHnzZgok5XDChAkUjNWrV5vbMMW1nLa/il3wS/ox
CDXfGwu77v2wgNpN0SOpJaZ369bN+qCeyn392ITF8sC3qNTUKfJ97969vDVt
djQYwd3m3dWYqeYuuDMBqGDBgo62EXOq5cwz5fTp05RGEk+SqDh+fn4HDx70
SHYYXVBiQVHTutQWZVOPBg4caBPgTp48SeDTR3yiPAonUa9gRcu9uebVoKRR
XDGjvmrj4TG++WLwJNVy1jEZh3IRLEPmurhHq6c4deoUcapDhw79+/dHghKF
TXYJc7q/3FvGb7/99v3339NS9uwOYwqnWk6tsilTpoyLmyRQcmjoWdnYlqI7
YMAA/aIeFRFoZWgbbqh5g3gY9SsaT7/ObteuXUr4uZ0G97DoVGmr4ttN5koR
+LZs2TJ06FDqCIqOnx3FfbUlhXbsF5fVqVOnVatWqkNS7SqgdalRj2j6YU+b
zj1FdHQ0wUVVzNGjR+/cudN1sZHiWi6xnDlzJl++fC52feMqUTjoW089fdOm
TX369LHe6YHc4i30E4eslwe+SKUjN0khwv7o0aN2O7f5Cq34pUuXql9xWdQI
u+diK5xquXhnmULCCBaoSg/GLKMLep2x4nbi3xbz0gwpXbo0vhG1SSBwsVPo
tdVy5uNQLsJ3x40bl8wHSSxZsoRmC0KaKq966du3b2+iLt4pLZekONVy8QnD
00WLFrW7ptsIPqF58+ZWZKea7aafNaR2K9XP/1m+fDn+Hy+Ek/nhhx8mT56s
zYKj2Pfs2ZOLXd/711M8ffq0ZcuW7k1g9iw4drJVm+2Gc0PrTp8+HUGOYf/3
v//Vrl1b25cSgxcvXpyWlMeXmr5xWo5agMJBtboiqDBm3bp1PXWeBYWcuKBf
3e/2fVCYbdq00dfoZCsPNK9olWsbm1AH8+bNSxm4f//+ypUrjVZ1RcslKlM8
gtEFvc5YdDtvh3n37NmTK1cuF3eQULzOWs58HMpFzp49S7MrOWWS0pzaFAu1
i2D+/PkdNQREy3kQTcuZdAeRI2PGjGndurXT5XWqA83RDicusmzZss8++8xm
SeaaNWuKFCmiemtv3bpVvnx5wg0lZMKECZcvX0ZA8omahK9OgrYZLkw2XpNd
u2/cuIH8VqvC8dU4HLVIFsLDw5U2VguUXr16NWjQIGqfB/dE1XjjtFx8QhcW
gcaV9V+HDh2i4eypZq86UM/6CapUh9KlS9ss3Eue8qBOHMOfqN32kII8SE3p
J9TaHFCocEXLxScmUzyCXRf0OmPR7bzp5lVzBhJ70OFrq+WcjkO5ArWPt0ui
HRscoSbLaUtfcSY0EwoUKOAoX0TLeZAzZ87Qjna6NpyWVI0aNZx24z979qxp
06aOFj+6QlxcXK1atfS7fml37t27d/v27UeNGkUNIiqVKlVqwIABc+bMoS2A
yBw6dGjXrl3HjRtHAhK16vatRB0MhzYYP348NYt4jVzHetocEiK1v7//6NGj
+/Tp06VLFw+ujNajJmJ5eXm5vnYmxaE4Ua6Cg4PN3QsWDg0NxQt5qjeDmli1
alWLp+6SZrI4KCjIZgA0ecqDWnOUMWNGfMXkyZOppytXrmzcuHHbtm2xp917
Uq/r1KnjdJsgFzPFIzhyQW8xb7p5VcGrW7duosaDLHqnpNNy5uNQassyp0RE
RFjfcjyxqAMstONmyOuSJUvqT6W0QbScB3n8+HGVKlVoAhj3e7eBlnWTJk3M
j+qIiYnBMzs6B9YpZCg5O2TIEEfrTCkbsbGx2pwfmx17SJunNvZ8O6AGXbt2
TY2U4a4xnV54YO1bt24l6YwgsoP2PrVbf/rt6w+qg6JufgIdluzWrZvF9dp6
1q9f36lTJ4vD3KS5UaNGjgRhUpeHs2fPZsuWbenSpQ8fPrx69ao2+470OKrR
xBoEZKqEndvN444rmWIdpy7obeWNNq86bqxv376JkgQWvZPScgEBAT/88MPx
48c9snu/hvk4lCt3QN8m26C5xqlTp/LmzavtOIpid7SC+/nz5xgN0wUGBuJI
Rct5BEryJ598UrBgwR07dpiYlKKLl6a+mCwEpuzNmjXLvXqKQiOcde/e3eR8
WOFNgYJEVf3ss88I7mrTv5ROUeKgCdyiRQsTt4lQmTFjhgcnhOP3LJ7GeOXK
lZYtW3pq/p4brFq1Sr+znIvQnGzXrl369OmRc+Z132mmWOQdd0FvrnmPHDlS
qVIl1+cneMQ7ERAnTpyYJ0+enDlzFitW7MSJE27cxBHm41AefJBniYuLq1ix
oppaf+fOncqVK/fq1cvuVPzz58+XKFEie/bsWM/iGSKCHrVv4Zdfftm0adO1
a9c6KtsYfPPmzXb30LYOWY8OfDe96FsGbq1Ro0aUpdmzZyfzKioPcuHChcWL
F78p/TNq0z/rh3+5jZos595G3Hz30KFDffr0adKkSUhIiEkXR5Jmirigd8G8
b5B3Mh+Heg0hqQi5xo0bT5kyJSAgIDQ0NMWPvBcEQRBcB6eNlps0aZI0sQXh
Xeb58+c3b96UYVNBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBMOHp06d//fVXSqdCEARB
EARBSAR//vlnaGiov7+/n59fgQIFfH19t2zZ8vfff6d0ugRBEARBEAQnvHz5
csiQIcuXL1fi7enTp127dvXy8ho2bNirV69SOnXC20lMTMyiRYu6dOkSEhJy
7Nixf//91+aCX3/9dePGjdKgEARBEASn7N27NygoCEWnfXLz5s1ChQplypTp
xx9/TMGECW8lz58/Hz9+fOHChZs3b96uXbsiRYqkSpWqQYMGUVFRStHRmpg+
fTqfnDt3LqUTKwiCIAivO//888+IESMIpoGBgX/++af68K+//mrTpg0fTpw4
0dhhIghuc+fOnbZt244aNQrBpj75+++/d+/eXbFiRcpbtmzZihcv7uPjM2jQ
oEePHqVsUgVBEAThjQCpNn36dC8vrwYNGvzxxx/qQ8Jr9+7dia2DBw9G7CVD
Ml68ePEOisYTJ04MHz68R48evXr1+vXXX1M6OcnBvXv3Lly4YPycIoc15s+f
v3r16tu3byd/wgRBEAThzeXVq1dnz579/ffftU+ePXtWr1691KlTL1q0KEkf
jYQjfLds2bJ169affvop/1+6dCmxN4mKiipcuHB4eLjN54jDZcuWFS1a9DUc
qkMhk+CJEyeq7qmdO3dWrVpVNIwgCIIgCB7hxIkTWbJkKV269J07d5LuKeiZ
OXPmrF27VnX9PXjwoG7dukivq1evJuo+V65cGT58+PXr141/+v777ydNmqQN
570+HD9+fMKECdocxVu3bhUrVmz37t0pmypBEARBEN4CXrx40aFDB29v7+3b
t7ty/aVLl9yb2nT79u2KFSuGhoZqO9pt2bIlXbp0ISEhSt3x+ZkzZ/SLMt4O
nj9/jvi8ceOG9skPP/zw8ccf//zzz46+8urVK0yRdFv/va2mFgRBEIR3jX//
/Xf16tXZsmVbv3690wlsXLBhw4avv/762bNnbjwrJiYmf/78VatWffLkifrk
5MmTmTNnDggIUKJF3T84OFibyPd2cPr06WnTpmkTEbFeixYt+vbt60hKccGg
QYPWrFmTdFMK31ZTC4IgCMK7xqFDh0qUKBEREeGKbNizZw8i5P79+24/7t69
e48fP9Z+3bp1a/r06YcOHarpnL///nvy5MnDhw+3u9PdkSNHQkJCmjVrtmXL
Fn2C4+Lixo0b17Nnz0aNGl25csXt5Ok5fvx4nTp10qVLN2rUKC15t27dqlSp
0ubNm9WvpGHv3r1dunQJCgpq3779wIEDf/vtt/iE0WS9Tlu5ciWmCwsLq1mz
5meffebr69ujRw9HepgXHzly5DfffGOlU+7Fixfdu3cfPHiwtl0bCeATTUXH
OzO1R8AOKFLsw6N7/Ae/Ll26VJn03LlzfPLVV19pf+3WrRs69uHDh0mUJEEQ
BEF4mzhz5kzdunUPHDjgysXXr19Hh6CmPPX058+f+/v758uXz2ZFJ3qjadOm
aACb62/evInIefTo0Zdffomc0xTI77//jhq8fPkyIrNMmTKoIE91ZyF0s2TJ
snHjRu2TRYsW+fj4nD59Oj5BL/HcypUrX7x4Ub1OQEAAaeNzrLRw4UKVDNI5
evRoEo8BeamdO3fOmTMHzYn+tPvQ8PBw/mpRzERHR+fNm3fKlClaGtq2bVu7
dm2bXjhHpvYgt2/f3r9/PwotVapU3t7eY8eO3b17tzYtk/SgmefNm5cxY0Yu
aNWq1bfffnv+/HnZMVgQBEEQnIK0aN269YkTJ7RP+HnZsmV2hRBioHfv3kFB
QZ6awfXPP//MnTsXvXHw4EHjX3ft2lWpUqWYmBj9h2iqvXv3xsbGFilSBHWk
9ZVxcURERHzCwQE5cuSYP3++R1KIHUJDQ3PmzIlKVJ88fvy4Ro0a7du3Vxuq
kP6sWbMePXpU+wrWIwFnz55FRJ06dUp9eO/evREjRqD0tMvQaRUrVuTrxofy
dry4ixMXTeAOpE1T6aShWLFiwcHBxg1n7Jras/BQ8guphnTHdMYLfvrpJ2Re
9uzZ35F9WgRBEASBGE0IttL7RHDv27fvmTNn9B+uWLFi06ZNdq8n2hYtWlT1
R1mHlH/77belSpVy1CX47NmzRo0aDRs2zKg9Vq1a5ePjc/LkSeO31q9fj4A5
fvy4RxKJfEXrIt7UqljSPGfOnPz58yPV4hMMWKJECRKpF2lkSpYsWWbOnPnN
N99oY6zHjh1DtukzC02IljNu5cc1fLFhw4YW57Bx21GjRqF4tT1Pjhw5YtPB
qGFiak+BiRo0aICWmzp1qt1CO2/ePC8vr+rVq7+GC5AFQRAEweOoSD1gwAC3
x6GePHni7++fN2/eT/8DWZU7d+5s2bIhPIzX8yCEH1/RzomwyP79+/38/FQn
DJonOjraGOKXLl1Kqmz2SEEV8MXPP//cONmMRPbr16906dJWpvPpiYuLK1my
5MCBA5XI2bFjR4ECBbZt26b+evjw4YwZM9ock3Hw4MEPP/ywSpUqWv8Sf12+
fPmePXv0d7569SrWnj17ts0T0YflypWzvsUfVqpfvz75pfQkaUBe5sqVy9FM
Qrum9iBqwBfL2O2DRTO3a9cOpUeRTp59qgVBEAQhZbGo5YjsEyZMSGUPAu7N
mzeNX4mJiSlcuPCCBQssp/3/g1zs1q2bNqh34cKFyZMnG98FOUR61q1bp//w
5MmTCM5ly5Y9fPgQBaKftP/7779Xq1YtMDDQU6PApDNr1qwbN27EYtu3by9f
vvzmzZs15YYs8fb2tplpdvTo0UyZMukNRQqRwdp4a3yC/SdNmsSrGccTN2zY
YPfzxHLjxg3uM3bsWG2yXKtWrT777LNHjx6FhYWhGG2ut2tqD4IMTp8+vb6f
UI/SzGnTpv3222+TKAGCIAiC8FphvV8usXz33Xc5c+bUCxK3iYqKKleuXI8e
PYYOHTpkyJBevXrVqFHDrkp8+vRpzZo1O3XqpNdm8+fPR3Vcv349MjJy7dq1
+j6xixcv5siRY+HChdYTqZgzZw5vjWYbNGgQWshGYt2/fx91hyrW0hAbG8t7
ZciQYcmSJST+7t278QldbdWrV+cTvQgsWrQowsmmK5Lc5Ou1atWyPs64bds2
tJO2BoRfkZ3oZ1I4evRo/aCwwq6pPQVp0CbL2d2DBc1M8sg7bV6iIAiCILzd
JLOW43GDBw8uVqyYsT9HD4lBpaDN6tSpU/H/UqVKFTQPOuHOnTvcx6YzENWx
Y8cOuzfs2bMnekm/ovOnn34qU6bMsGHDECo2w6zh4eFZs2bVL+WwgQQcOnRo
3LhxTZs2JUnGIU6bpyN+ihcvPmLECO5pd+wPEVKvXj3yYtKkSX379uX/27dv
BwcHN2zYEDv8+OOP6ppp06ZxDTYMDQ3ljbp06WL3fNIHDx74+vpygaNsffTo
0fDhw/PkyZMmTZpKlSrt379frwb5eevWrbdu3SKppDlt2rRFihQZnsD48ePH
jh1buXJlygzfsvuyRlN7Cm2ynLao1gY0s0yWEwRBEN4pklnLvXz58osvvkC0
GPtzNKKjoz///HPidZYsWZAQiA1+RlkpLVejRo0lS5a4MRVq1qxZ2bJls+kQ
e/z4sVFVYoqgoKCyZcuq7d2MREVFoVVKly69atWqK1euIBs8MjWLm8TGxt69
e1dTKfyAZFXbuPHzihUr9u3bF5+gxFB6Jg+9evVqjhw5Zs6cafevMTExiDGs
mjlzZh8fH37AMvoltFwwcuTIZwmQWf7+/qSBe2q7+d2/f19/Aq8Ndk3tEdRk
uQwZMmzatCnOADZp2bIlr6PNSxQEQRCEt55k1nIPHz709fVt166dowG4a9eu
oZGQcIgWJWkuXLhQtGjRYsWKWTw7fv369ZkyZbI7YV5x69YttBmiBXVHGuzu
uRH/3/JS5I2JmEkKXr16NWbMGBe3+zhw4AAvGx4ebvwTKrpt27Z+fn7nzp1T
n1y6dKl+/fqoILUaBbMvXrx4586d8QmT5T766CNHK0Yd4dTUbrN9+/b06dOj
5VD1VQ1QtFD+adOmtbvGVhAEQRDeSixqueHDh9td+KBRoUIF/fV37twpXLhw
UFCQ3cc9ffq0UaNG+fLlUzt1aMyaNStdunSRkZFupFBj9+7d3t7ejqbEk57+
/fvnzZv39OnTJK9evXp2peOVK1cKFChQqFCh69evW0mMG6AwR48e7eLi382b
N6OmkJ3GP23ZsqVnz542G5Vw82bNmimzk0eUB9UZuHXr1qxZsx46dChRSTU3
tZHHjx/PmTNn4MCBM2bMMHlBbWc5ZKfdyXLHjx/nrfWb+CURcXFx6Nt+/fq1
b9/+u+++kz5AQRAEIRkg3Jw8eTIiImLT/2Xjxo1ERj8/PyKvzZ+4OCoqylzj
ETR3mKIfuYtP6PtCLxk3Q1MsX748bdq0s2fPtukFCg8PT5MmjcXtNQ4ePJgx
Y8ZVq1Y5uuDixYtIhT59+ixevNjubCvSHBwcnFJDeL/99tuJEydc7B9bs2YN
asq44R5KiVdQR0vYsHbtWizM/cPCwjZs2KA+XL9+vb+//6NHjxKVVKemtgFh
tnfvXkR+27ZtTY4AU7ujYP/p06fbtcP8+fO9vLy0TfySiPPnz3/99ddqSxZ0
b/Xq1ZFzSfc4QRAEQVA8e/YMBVWzZs0aBvLkyZMzZ05Cks3nXNyvXz/PhsXo
6OhcuXLpj0zVePLkSbVq1QoWLGjcyWTWrFnvvfceYsPKo9UebitWrHD7Dqip
smXLoiXy589f/D98fX23bt1qJWFJwcqVK3lZY38aZr9//75dIXTt2rWRI0c+
fPhwyJAhjk4EcxE3TI00omDMmTPH5BptZzm7/YR//fVX+/btyR1Hg+MeAVkb
EhKijXTz0Hbt2lFNkuhxgiAIguCUZJ4vRxDMly/f119/bYy2p06dypw5c5s2
bWx6ZgiXnTp18vb2Vms53Wbfvn2ZMmVav36923e4evVq9uzZkRO3bt2ykpJk
gNfEYnv37nX9K2pl67Zt2+bOnWtRC7lh6oiICEebS2uoyXJFixa1uxExGrV0
6dJJOlkODbx69erNmzdrn2C0SpUqTZkyJYmeKAiCIAhO8ayW++OPP8wndMXF
xZUoUaJr167GxxEiCcTGafZ3794tVqwYETOxI302REZGIjC0oxbc4Ny5c1my
ZKlQoUJS7LbhWXbu3MnLbtmyxfWvvHjxIiQkpF+/fufPn7f49MSamkI4aNAg
CoZJf6AqqKlSpWrevLn5ZDlHB1JY5+nTp8OGDdNWN1NQFyxYQMm0uye2IAiC
ICQPHtFySLjQ0NCOHTsGBQW1adOmXLly8+bNs3vuOVfWrl27cePGxnD87bff
pkuXzubsg/iEI1MzZMiwfPlyt5OnWLZsGUrMyiGwsbGxBQoUqFixokVVmQz8
8ssvvGyiZhi+evXqyy+/JBOtn61m19Tcf+HChV999VXfvn1Hjhw5ZcqU7du3
K92uthdGFA0cOBAx2aJFC+MBwdpkOUeLapFVdifLIbx5aNasWatUqaLtqUJi
evfu3aNHD209dXR0dP/+/Xv27MmHlGFta0G9NdSpImfPnm3SpEm1atWqV6+u
P2FNEARBEFIE61oOzUZojoyMVBGW/2fMmJE6derBgwcb57ETOjt37my3awv5
QcC1OWoB+VS2bFliq/HI1ETBa5LIQoUKWdnYBP0ZGBiYN29e4r6VxCQDvCYv
a3deoiPIR0SU6wsWHGHX1Gh48r1Vq1ZqI5fFixe/99572gbLarIcukh1cG3d
urVkyZLXrl3T39b8GFZtstygQYOMr0xho8ghUzXldunSpdy5c0+bNu3fBLZt
21a8ePG1a9fyXX5dunRpsWLFrl69yhdHjBihbT6jFgShFbds2bJx48adO3ci
54wLTARBEAQhObGu5S5evOjj45MzZ07EmPrkwoULqDKiM9HQeP2iRYvsnsyO
liDa+vn5adtlxMXFffHFF/7+/o727HUdVCVCpUmTJhY7nc6cOZMvX77Ro0dr
ggG7nTx58nXrqcOYvCzWs9s7ahcUC/a3UVBuYDQ16mjKlCnZs2fXSgiKiBJy
+PBh7dcsWbJop0jwOb9qa2nj/5uoljZtWkeTFW/cuFGkSBH0obFfF86ePZst
Wzatl5K8++abbwoXLqxeljzNkyfPmDFjtDzlc5Te3Llz9+3bR+NCNVLI6IkT
J+qXAHP9kCFDKLEmG18LgiAIQlJjXcvdvHmTMErsIyaqT5SWc7TzP8onR44c
+gnkGiiiXr16BQQErFy5kmhbr1692bNnWx/yi/9v0p2jvSwSxeXLl5s2bdqh
Q4dVq1Zxw8DAwGXLlum3Pl6/fn2tWrXu37+vfr1z5w4X89YWn5soeM1JkyY5
OoDeLgiYbt262ew75wZGU6tPGjZsqDpXKXIhISHaOW5qspz+WLewsLD06dOr
JQwxMTEUA6Sd2q7Qy8uLnytWrKgKG7qR7xYoUODDDz9UF7z//vv8Om/ePH1G
I/AokFoWICnz58+vrqHY9+7dG52pPwqNRkTJkiW/+uqrYcOGaXPhHj9+PHz4
cLXtnkIdcPbpp5++/vMnBUEQhLcYj8yXe/Hihb5rQp3GTgi2u58JAZ2w3rdv
X0dPJGgeO3bs/PnzHjycfe/evfny5bMyWc4GZCeJRADYjCPza+vWrWvXrq2J
orVr1/r4+Hjw0S6iuhDV8Q2usGnTpj59+li3udHUaosStKXSV1imTp06rVq1
UqZTE+FatGihplBSKigbNAS0Yyksom6oncgWGxtbuXLlgQMHqseRj+pgOH1Z
RZuVL18+V65ciEBNE1IgJ06cqC+03MHf379BgwbSLycIgiCkIISqqVOn6geY
LPLnn3+2adMG9fLDDz84umbFihWlS5e2u7NEUqD6XkiV6wOObnPv3r3ixYtr
myHz6B49epQrV+7BgwdJ/WgbeFn0kn56vwmk8+uvv545c6bFfku7pt69e3em
TJnQiupXNYI5ffr0uLi4VatW/e9//0P6hoSEKIvdvXsXA3bo0MHuYlU3ePLk
SZUqVdRkuRs3bvj5+QUHB2vqS8k25LfeSrQm0HuNGzfW9wmjyUNDQ/X2OXny
ZPbs2ZcuXWq9s1cQBEEQrEAksi7kuMnly5cjIyOJwnXr1j1+/LjJxQTQOnXq
EAQtPtRFSBjSUZuOlaQcPXo0a9as2giy6vbRz7pPTg4fPoyMvHTpktMryZF6
9epZP0HVrqlRUEWLFl23bl18gsJENKZPn357AuHh4ci/fv36oTn5QY2Z+vr6
8hWLKdG4cOECimvWrFkrV66sX78+WaMv7TwUaVezZk2tXw79Nm/evLx58zZp
0gTJFx0dzfVK67Zv315bg4Nob9CgwVdffSWdcoIgCMLbAVGY0Dx37tyuXbvW
qlVrxYoVJocxxSdsgEYA1aZIJR1E4cGDBwcFBZmnx1PMnDkzd+7c2qKPc+fO
+fj4LF68OBkebQQBOWDAALSK0wH0M2fOVK1a1coi33jHpkbnr1mzBq04fvx4
NBv6rWHDhugiLlYbyqHc/P391QFqXbp0uXv3rpVk2IB4y5UrF6IrIiLCru76
7bffOnXq1LlzZ/SeMtepU6d27NhRtmxZfp0zZw7vpTZSXr58OekPDQ0dNmxY
QEAAd06eHbYFQRAEITkhcKtjVYl6Jl0WhHuC46hRo5I6Gu7bt69Ro0YWVYqL
8FKtWrVCFGkz5MPCwrJkyRIVFXXs2LHEnlDvEdBFTZo0wQjml61fvx49Y3FY
09zUz549u3btmnoEIjM2NlbfV0kxuHXrlvWVF27z+PHj69ev65NEJt65c0eN
n54/f37KlCkk8sWLFzdv3vTIehxBEARBeG2Ji4srVaoUci48PNzksqdPn3bv
3n3dunVJN93oypUrLVu21BbYJjX37t0rVqxYtWrV1I5kMTExvr6+RYoU4YfJ
kyfbPdE+GeD1W7RocfnyZZNrtm7dumfPHitPSWZTJzMbN26MjIxM6VQIgiAI
QpLw6NEjZIB+C7g///yzYcOGqVKl0tYqOgLNM3v27CTqNOPRixcvtn4ilesc
OXIkY8aMOXLk6Nix48SJE/v3779mzRpkrVpWkDyDvHa5cOECpki6BCS/qZOT
v//+e9KkSeZiWBAEQRDeUP7666/AwEBkW7169bQBMiJ706ZN+ZD/U1DAJDP/
/vtvaGho7ty5CfoxMTGxsbFqjv2zZ8/u3bsnSx3fXCjkhw8flnFVQRAE4a1E
zRBDtnXo0EHbhuLJkydVq1blw/Hjx787GgZTBAQE6HeWEwRBEARBeP3Ztm1b
p06dtDMr4xO2wvD29i5RooTd45beVtTpBok6AlUQBEEQBCHFQbqsWbOmefPm
M2bMOHToUFhYWOHChevVq+fKtmZvE9HR0XXr1j169GhKJ0QQBEEQBCHRPHny
JDIycuLEifPmzTtx4kSKbI0rCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgvCn8P3XCzPM=
     "], {{0, 105.}, {836., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{679.9999999999995, Automatic},
   ImageSizeRaw->{836., 105.},
   PlotRange->{{0, 836.}, {0, 105.}}]], "Input",ExpressionUUID->
  "4b6b0280-6ede-4180-8181-7a3d0642fe07"],
 ", FieldNumber = 9"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, 
   3.8312302449223967`*^9, {3.831821346714077*^9, 
   3.831821347135849*^9}},ExpressionUUID->"422062e4-9209-4f13-8a06-\
2da6223acaca"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "9"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8312298277474966`*^9, 3.8312298282274446`*^9}},
 CellLabel->
  "In[291]:=",ExpressionUUID->"e4dbf513-2cc3-4853-bdd3-0fd312bb745a"],

Cell[BoxData[
 RowBox[{"Bt", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, 3.8318058892938128`*^9, 
   3.831824948917231*^9, 3.8318278101789837`*^9, 3.831828160980167*^9, 
   3.8318397923445873`*^9, 3.832947504726982*^9, 3.832961789411298*^9, 
   3.8458268810189548`*^9, 3.845852472423913*^9, 3.8458570827556973`*^9, 
   3.8459196294940143`*^9, 3.8460065814472065`*^9, 3.8460998928189306`*^9, 
   3.8474704548123875`*^9, 3.8517006399009295`*^9, 3.853975455824918*^9, 
   3.8549774151313543`*^9, 3.854989268798582*^9, 3.8549999062070894`*^9, 
   3.855165255023136*^9, 3.8551823242139697`*^9, 3.855185868600337*^9, 
   3.855330645637865*^9, 3.855339851010347*^9, 3.8553431881162906`*^9, 
   3.8553440222952127`*^9, 3.855352749431376*^9, 3.855449613243491*^9, 
   3.855507614839039*^9, 3.855508411960803*^9, 3.855512899759412*^9, 
   3.85553333115457*^9, 3.8555789254413567`*^9, 3.8555932976948204`*^9, 
   3.8557506102893634`*^9},
 CellLabel->
  "Out[292]=",ExpressionUUID->"a78578c1-248b-4e6f-8452-3318df12590f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "3", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"At", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+",
              " ", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "1", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"\[CurlyPhi]", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{
       FractionBox["2", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.8318249155673313`*^9, 3.8318249354494715`*^9}},
 CellLabel->
  "In[293]:=",ExpressionUUID->"9a75a946-2ab5-4334-9c08-27fcf64a77d9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"0d42ed06-bda8-4c98-917c-5e3809ecaaea"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, 3.831805889381689*^9, 3.8318249491046867`*^9, 
   3.831827810277328*^9, 3.8318281610739403`*^9, 3.831839792428364*^9, 
   3.8329475047894673`*^9, 3.832961789489394*^9, 3.845826881112625*^9, 
   3.8458524725094337`*^9, 3.845857082835478*^9, 3.8459196296033387`*^9, 
   3.8460065815383596`*^9, 3.8460998929282722`*^9, 3.847470454906081*^9, 
   3.851700639994652*^9, 3.853975455906783*^9, 3.8549774152426786`*^9, 
   3.854989268877713*^9, 3.8549999063007917`*^9, 3.8551652551481085`*^9, 
   3.8551823243076973`*^9, 3.85518586868856*^9, 3.8553306457339697`*^9, 
   3.8553398511509447`*^9, 3.8553431882256536`*^9, 3.8553440223967237`*^9, 
   3.855352749517537*^9, 3.855449613329782*^9, 3.8555076149243603`*^9, 
   3.855508412045382*^9, 3.8555128998787947`*^9, 3.8555333312623577`*^9, 
   3.855578925539091*^9, 3.8555932977845826`*^9, 3.855750610390145*^9},
 CellLabel->
  "Out[294]=",ExpressionUUID->"8f836bbe-1e34-441f-8e49-87355bd52290"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[295]:=",ExpressionUUID->"35af6183-dbb7-4d34-a5f2-c0b1363cd94b"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQdw1Ub3v08Ahx4CpoYWOiTU0EOvhoDpPYTeTO+99w6hGTDNhBaq6UxC
eQmmvTCY0BlaYIAAXxIYEgYyyTv+Pz/v/9Xole6VZV25AOeZSQbfqyutds+e
8zmr3VXuzv2bdk+cKFGiwcn5X9NOw6sPGtRpZLOP+aNFv8FBPfp161qv35Bu
PboNKt85CR/25r+5/OP//TtSEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEATh3eWff/45ceLE
uHHjvv7662nTpt29e9dwwN9//71z586TJ0/GR+msePny5datW3v16tWlS5fQ
0NA///zTcMDvv/++YsWKx48fx2ox7ty5s2jRovbt2w8aNOjYsWP/+c9/DAdc
vHhxw4YNVGOsFkN490ggFi4kEMTVCG8Lb6+uEBIaN27caNKkyWeffdamTZt6
9ep9/PHHKVKk6Nev34MHD9QB169fx8x69OhBQIzfourBP+/atat48eKVKlVq
165duXLl/Pz8cuXKFRIS8vr168ioLrB3795q1aqtWrWK/hJLxfjjjz/Gjx+f
J0+ehg0btmzZMm/evIkSJapZs2Z4eLiKIM+fP58+fTqfnD9/PpbKILyTJBAL
FxII4mqEt4i3VFcICZCDBw9Wr159y5YtWphTvi5jxowffPDBp/8lNDQ0QaXn
hOkpU6Y0btz48uXL2odXr17F7AnlyZIlK1iwYKZMmbi1c+fOeTsJvj04ODhf
vnyOvfq9e/datGgxcuRIKk19Qi3t3r27VKlSRJD06dNTDH9//wEDBjx9+tTZ
JQQHGDQbDf3WqThXLPytwNA0CcrPJBzE1byf/PXXXyonfbt4S3WFAyj/Wxdc
3i4I3yi0R48emb/CqHbu3Dl79mz+Txbv7Qy//fZb3bp1CZ1v3ryJzZIaefXq
VXh4uMeL3rp1a9WqVfPnzz99+nS09rNv375JkyZpnj+mkBheuHDB/Dmme+LE
iQULFqxcufKXX35xdvKECVU6bdq0QoUKUc+Gr6iKwoULU/PmB5FxCeYaEBBQ
tGjRdu3a9ezZs0GDBmXLlo2IiIjHIjnALQtP4NAuOXPmJKJ17dq1S5cuatz4
xYsX8V2uBMd76GreZ3ChBw4c6Nu374gRI7p16/bll18uXboUyRqjk1hE51j1
1b7rireCX3/9df369QUKFFi0aJGDn1tE0pcvX7Zq1YrIxT/cKOn7DtU4efLk
sLCw+FUmQpxBQ5Mjz5gxw+xk7ty5M3z48J9//jleCqaBTSJTkydPnihRotSp
U9Pf9QOSQoLi3Llz2bJlS5o0KY2VPXv2CRMmOM4ZBeGd4eTJkxUrVjx79qz6
MyQkBIeGUo1RnLWIzgnEV7+loDCRpiTU1GHKlClR+w5OYhFJX79+jZLftGnT
2z4KIQiCR3DOgwcPfvDgwdv+OOl9ICIiYvz48X/99Zc0liBorF+/3s/PDxWk
hMrRo0fJuNFFMR1QFWIV8oiPP/7YmUwVFH/++eeKFSvGR7Fq1apXr17Fd4kS
Cg8fPhw7dmzXrl3r1Klz5coVj8ccP358woQJ48aNmzp16vXr1+O4hO8w2OG/
/vWvkJCQw4cPWwwO/Prrr1evXnVwfk2mejvg2bNnly5dcnBmwRvUp7MpkUqm
xqVGJdATXN7G+X4OwLktXbp0z5499Kb4Lsu7A14Lg9+wYcO6dessnly/efMG
S3MmLHGSBKDffvtN/cmFUK1z5szRHOa1a9c8PlUXbOJL62h4k6nvRoh58eIF
unHTpk24kdh7XI5rKly4cLly5Zo0aTJy5Eh35zncv39/zJgxbdu2HTp0qHmT
nITM77//PmTIkMuXL9PNixQpghD12ATbt2+n3r766ivs8Pvvv4/7csYjmMoP
P/ywZcuWM2fOaA9h6ddLlizp1asX1aLX7Xy+bNmy/v37V6tWbf369Rb2jO+d
Nm1a1qxZa9SosXDhwtu3b3s7ktZp06bNxYsXnRUemYoGJssYOHDg2rVrDZZP
ZBkwYACfy0wV36EOv/vuuz59+jhzL8hU3EhYWBhuBB915MgRH59zYWOdO3em
3TXpi0jjEy3iqwJjrnEwAxYxfPDgwZkzZ86YMYN/uD6BnyBLJ7px44bhzFi4
qkZ83a5du7p164YTo9ta9Lh3AFr8zp073KNBe1AbbuVBGM/+/fu/+OKLfPny
YbcoSW/mSnfAyaxevdp3J0Mcr1y5cq1atZ48eaJ9iHIg+Hp7au8tOtv31bEE
4u1f//pXvDtet1rHm0y1DjHeIikcO3Zs0KBBjRs37tu3b+zN3bW5qR3u68SJ
E1OmTMmTJ89nn322d+/e2Gg4zLtUqVJ4aY/fXrhwoVOnTq280LFjR/Qbsd5j
ukH5+fb8+fOhoaGffPJJXA42UlGklmgYj8Vu3bp1jx495s6da1Ek/DYJQmRU
W2TMmHHBggUWlyO6ffnll95kKj5q48aNRIEu0dG1a1cMI44XmhmK+vTpUzvJ
I5b5zTffENmLFy+eKFGixIkTU3hafOvWrSEhIbdu3cqVK1dwcLB22qVLl+Lx
OHPv3r2pK2+7i3DvdL0kSZJMnTrVOmrgYwMDA9HJDm4zMspF0M1RqqQhuGj+
UbNmTc6pP+bx48fNmjXDEpxdwhuESCyzUqVKFW1DAELjmSsNRzp+/Hjs2aOd
t2vXbsSIEdhevK82wr00atTI8cAOPqRMmTK4EeQlplW1atVRo0b50k1u3ryZ
LVs2XKvyqJyqRYsWVapU0VcU5jd58uRhw4bFan/EgElyhw8fjvcgYFEMkmLE
qu9nxsywjcKFC2fOnJnaI+mj3yFI1IA2yp/w9/DhQ/1PEFfE09KlSyeEYVWc
ybNnz9wKecTciRMnEkYzZcpEvKtQocKnn35KFFB3SsKLN7h3754r19qxY0ea
NGkMitEMdkX3JET6OFiHhMCfEGFpUPMVjx492rBhQ/OteYvO1r4aZ1i7dm37
jguqV69ORLCfV+J1scAGDRrEYxyMdK91Ii0f+luEGI+RFM6cOYP3w/Pv3r2b
rh0eHq595VZkcbap3YMHD8qVK/fRRx+54r4MWMtUyoMKpYapK4pasmTJ7du3
h0dBvoOW5h4zZMjAjfC5wRSvXbvGvaABEOT4SXyO64W3AL+0c+dOEoFkyZJR
ckTgoUOHVMkJDWSLNMGHH35Yv359bw/0FcjddOnSkRFbHGMtUyOj9ghCLaAc
KAkWO2PGjLCwsN1RYKKEJ1xoiRIl+BbnFi/DzvSXnj17Fi1a9PPPP0+bNm2h
QoUWLlzobQYIZky8U0uGaXTqk96xatUq+s6ECRMQe9xs+vTp8ZDqeI4k4v8Z
RUAU3u6RPBpzohjWgZKCkT3hQxyPqtHd6NSaEr579y69ktzWoI1pd/qys3kF
3vjxxx+zZ8+OH1hgm/79++fLl888zMXtU2M4NBw7xlOnTp19+/aF/xfcxaRJ
k3BlhKFt27bF1+gEERBVcOTIEcdnwFr0cRbrohNxp45PiJCgU2vuFAdboEAB
KtlgTvRr/MPq1asdX8gacr0OHTro1TsFWLx4MRLacf4VGTU6SiBLlSoVAhhj
00yafyA/8EJEurJlyzZv3tygBIjI5J5+fn44dsdX9x2qBUvGCeTOnZuGRufg
SbxZ78WLFxFOpJneZmhQG2PGjEmdOnXdunVpcUNtIO0ItWQohANX5njgmvBv
KVKk2Lt3r/WR6ENu01rK2gcfS4PiBwxPl7Ao0jHMzOByvUVnC1/NqXD7qIV5
8+bZdFwoB86A1LEp9mjlqVOnJk6cGK8bv8skXWwd67mpHkMMVuQxklKNiAfa
jn9/++23GTNm1De3K5HFl03tKC3eo23btq7PjraWqQouqiQWYs88xkVTfv31
10mTJkU2mDMgqpSqQ4bFS5RErObIkQM5Spg2f3vy5En0GHHcm/7nZnv16oVy
sx4IilamRkb1cbIz6jAwMNCj/EP74SrxJ3G/TuTy5cu4ay3RePHiRVBQEL6C
vMzj9jVoWvOTCA28fdOmTfmt2c/QHDlz5vQ2gyIyqs+SjpGmWWv1LVu24FoN
g5++QOUTDemAhtmqtEXfvn27devmYmqPM8GiqAr7Pzl27Bg/8fY0luygWrVq
+IfNmzebv8XFUaU4NKK/wxL7APXWvXt3zMlFx4WuwO1zWmc9BSPHCZNZa7aN
hOaEHrUZWSShP0aNZRNajW7SsWNHw6vBsHy0MTLS2Txewlbx4sUzZcrkcQkw
/S4kJISbxRHNnj3b/O3YsWP5yvrhUeyh5loQa7SoTRZGeCK4DB8+3KOM5C4o
MIHVo1Pl56o2CKAeU1pyELoGZ9CG1n0EVVy+fHmSIOsF8uTF2BXpku9X1Lhy
5QoJKZJbm7uiePjwIUXyGJ4sorPZVyuZGiMRwm/JEWhQmz+h0shNaI7PPvss
HmfVuts61jLVIsRYRFLqs3Xr1jSrfiDUlcjiy6Z2P/30U5o0aUgbXV/iZFOm
YpzeZGpklMslY0qSJAlOQ2/w/JvWwUvE1xtPsLdcuXJ5k6mRUV6dfpElS5bT
p0+bv1U+p02bNta9zI5MVUKIOiRb9OYPqStfRgidQVjs3LlzWFiY/kPMTCUm
JCBmk6O5yTTJ2jwWNSIiAuWvn8mvQVKGA+f/3gqjZGqtWrUs7JzaxhVPnz7d
cVhRm9EhBjRRyuW4KE7eLAVxMkgaX0a3DLguU8kXsmbNSp17HPUl6ahcuTJN
OWzYsLjfugTHRbZ+5swZx2cgC8ZXjx49WuuD9FmSej50Jn3piTVq1CBbVLIH
K5o1axa15/GpijJ1orPrVUdjIZCwdqrI8NXChQuTJUvmzWVZgJ1ky5YNdWHx
9If6LFmyZOrUqbUhGg2qAv+Dqfi4KpmKDQ4OvnHjRkx/iKok/zU8oUZKffrp
p/jw0NBQ808w71OnTnlUsFQsGozasEjQqI0vvvgiZcqUbj2p1GSqxZx5Vc84
HF9m43ASPImaHKg+wTGqp66G1lcWzleGhMg6Opt9dWzLVG6kf//+aDaMHzN2
PEfasfkpXGkdPdGu9PcWYiwiKRoeJd+7d2+9HnM9ssQUO+HbGa7I1MioVA7T
8vf31/sEsgBCZKNGjfD2q1atio1BCWuilamwfPlysnU0pHnuH8kdoYSoYX0V
OzJVTYdLlSqVheBZtmwZhbG+luugzwMCAsyGioNKnjw5esDsxOg1aFSP2p6v
Jk2ahN7DHsLDw/V2pbo/zWFhBnbsfOfOnXny5PFljSR5K9GQ8KSVRHl4Mmjz
1BRkPAaM5bs1Hui6M9m6dSsWTkfz6Fe1/AifFscyFV/Rs2dPBKEv81gIN4iN
Xr16aaMNKmcfOXKks9vhhPREoqc2MRXFW6FChadPn+KjzJs/LF26lIjg1sRF
DepkyZIl69atM9sVOSNdb8CAATG6QXpc/vz56T779++3OIxG6dq1a4ECBcx3
6pZMpSYxOYts1CNcndxz4MCBhr6vHmmp2XH2l+CRBXCP2In15BBVG/gTt956
YEemUvPFihVztt+7BgK7RIkS6B8tB8SJlS1blk/+/e9/Gw6+fPky97hlyxb9
hxbR2aOvjm2ZisFg84cPH8aGuQvHQ1vOzE/DldbRE61M9RhiLCJpZFSgxMa+
++47/YciU6OVqXzeo0cPjunYsaMWUNASJGsrV64kNIwaNSru3yhhR6ZiloUL
F+YY8zNT8neMIdqnpXZk6vbt20kSSZq8xTvMkq7h+oKdaOEeUekZMmQwDHld
v34die7n57dx40bzr3DCWbNmrVixomH2DvZZp04d4j7uGkenF5N0Rr6qW7eu
hQ1Ha+fKFOvVq+fjDN4NGzaEhIRoWerRo0dR3R6HayKjZgHlzp2bRMOXK2q4
60xU7KDfEd89qhr1KJB2XLt2rfNCO4J7JDhSe76chIbGdWgvCOMeCXwoEMdL
MlVP1J5m8idiBq+Fr/DoozB1ZG1c1h7eOEWKFDFaRYILqlGjBmYwYsQIa3Gr
cswWLVqYTx6/MpWu3bJlS67OjRiecgYHB6u3Z9oUkzgfNK392kAkuBVY7chU
1AUW5WyLEo3Xr1936tSJvqCNphKnkEPUodmG6UT4TOSiftjZIjp79NWxKlOJ
I+3bt6dOrl27RtyxHs+xxkeZ6krr6CGw0i5z5syxOMYcYiwiaWTUg1fazvCh
yNRoZWrkf/dt0y8bfPbsGVXdoUOHvn37xssWYXZkqprmwd01adJE34u506Cg
oGiX80TakKnaxFTDRH26JJWmOdJTp04Z1t7GAXRnYiL9yKDG6TIotyRJkngM
0FRa9+7dlTrSuyDuhRywUqVKgwYNQgrqn1bQF3LkyDFhwgSLh/XR2vn9+/eR
KJMnT/ZxIhl+eOrUqTjnAwcOzJs3jy6wcOFCb76UdkHGe5TrDnDXmbx8+bJq
1ar0O7UxhQHuiK5HM9WuXdvb7gqxx9atW/Gl1J6P57l161bPnj2XLFmyf//+
Pn36kBxZL2m0APscPnw41UXCOCwKVAqRtEyZMlQUxmD+CZJJvZ41lnZNx0fh
BBYsWIBhqOSLjkMJo52hrUFfoHJINvPnzx+tXVEDRD2PTxLjV6Zqo6aVK1c2
2CoZZeLEiREPdnqNvjaijb8cjEeaNm2aW0snopWp3CZhlHv0fYnQgwcP+vXr
p/Zq27x5M06M7MPjXtDcHT4TIaTX+RbR2aOvjj2ZqqYfqLey3rt3L1++fN6G
R+zgi0x1sXXUC6QaN25csGBBkiw8IbU9ceJEj53aHGIsIqlaK4TkMBRSZKod
mXr69Om0adMaIiaqzLxJXZxhR6aqLszdqUc/lBaviPKkv9OC5vW/ZqKVqR4n
pip3Gr+LaiOjusPZs2fV4kE9GHCaNGlSp05tXqNN75g9ezZ3lCxZMtJeg/Fw
X1SjuZvv2rUL7239DC5aOz948CAn2b59u8dvMU4ifvHixVHXBLXp06cbznPh
wgVtEhrlvHHjBp6BIllvQ6FWgg8ePNiVh+buOhMaLmvWrPhA89RK/CExgv74
1Vdfuf7MOlqoK1IYjw+XFUQTVCKFR1GULl0aiWiY1k6f1W75zZs3pFE0Lv7c
4xijzbOh6rHbwMBA+uzVq1e1dn/06JE3Ga+eC5csWdKtRdkaERERlCQgIGD5
8uXc18qVKxEM5PioJnxFo0aNbI6mkrsVKlSIn9iZCEFVHD582OPMvfiVqZFR
fhJTN3RGSjV69GhKpZ+TQ/l79+5NVKpbt65BYsW0No4ePeriVh7RytTHjx+X
KFECi7JeAMh5sApkJ2cr9b9UqVJF86KUX20jg0zFcizENj6TUhmGKL1FZ4++
OvZkKi3Yvn171b9oYrWoPNq5dt7wRaa62zr28RhivEVSNTGVDMVg3q5EFq6I
fjPcvuomKuITWJExHmeDvxUyFddBuOQwsgB3C+kYOzI1Mmp6KvkOGpt6xvvR
EGfOnAkKCqJd7DxmilamepyYSpAiV/K4qi7ewf5HjRpFU1asWNGwbvTkyZMY
DOGMz8nEOYZI4W06B0opNDT0559/VkPTxYoVsx6aVtrYws4R9vhP7RGwHjoO
uihx4sQ0N3IFpcq/9UvSCPrjx493UOEqy6hdu7Yre4W5K1NJ2Llfw2pQ/s3n
ZcuWLVq06Nq1a+MlSaQ5kMfUm0fb4PbLlCmD8dDp/P391VYn+kU9HDBixAib
cxHtnw0f9cknn1gsY/QISRkndPE5IFenX2TIkGHixIl6h3/58uUJEyY0adKE
W+jTp4/NtAh9izjn3n3czEGTqXPnzvXlPD4+dTWAblGNqw3uoSXw0iRo/IOc
1DDQrdUGnsqVAsQINUHUwlrU0rlZs2Z5OwP3iErMnj07IYn/Y66JosidOzeO
F62Ov3XwhAKfGe0MSWtfHUsyFfsfNGiQZi1qNSv3q80ejym+mF98tU60IUZl
lzt37qQVwsLCMDCzGPY9stAW+EnzErzvvvuOuEw06dSpk3p4t2zZMvPZwsPD
7WzU4wAXZSr1gxjjMHS+u4V0jE2ZSijHs6VMmZKmp5+i0Hr06LF48WKbI//R
ylQ1HY5LcBiNWK1aNbIh/ozRdrJYy7Rp07iXRDGBTudgy0qakuQOV294DIod
0jenTJmiAigdJ3Xq1ERbb9oPX8EBS5cuJd/nhNHuJUgdcoPePCEXxaFRAHNP
pHLoOFyCC6nf0ijDhw/He2iDLaQezrZrVg9Z3BpPc1GmUiEk4LRyiRIltJdE
dOzYEZ1Dp0YlIlbja5dstcTD45aJ+OQWLVoEBARoqyRooxo1ajRu3Fj5N1qT
3mfYfcIbMTobfoA0hyaI0b2sW7cO9+vibg+bNm3C26C1zDuXDhs2jD5LhmVz
NaU2Z+mLL77w3T4XLVpE/KWX+fLgwF2ZunnzZpwnrlLboWj16tXr16+PjJp3
nSlTJppey2q12vC4HDIOUM+sCTqEHo8HHDx4EFvyNg0eW+XWUqVKhfWq/k5D
rFixghro3LmzL/mm2pvR4pFQtL46lmQqFxowYICWrHFkmzZtaMFohzS94Yv5
xVfrRBtiMH5CANcl3SAPGjlypHk80/fIglSYPn26odr//e9/48nphiprUPvk
NGjQwDz+QJaN7+Jg1x88uShTuVklU4cMGeJuIR1jU6auWbMmSZIkmF9M45ci
2rdQYVRqaQAamHyNRJtOVL58ecRwjHri77//TqZ2PCYQu2O6bbV6/0jy5MlX
rVqlz2cfPnxIP8IDaOqdf1SsWJFO6u0pPAWeM2dOnz59qIFo17xg25wcbXzo
0CGPB1BXHTp08LilHraHNjPsVciNoFTnzp3LXfDvsWPHOhtuUrPmLEKP+Xj0
IS69f//+5oVXLsrUFy9eVKlSBfM2rOFV0Kn9/f1Jft1axRwjiNd58uQJCgoy
Wzg9hRhk2JfgwYMHuL5z586p3/bt29cwjO+NGJ0NwRkYGBjTLUnprWnSpFHS
yA4IJKyObH3GjBnmgQWcOYLB4/satPFM/Qpua9QGU/zElV2179+/z9nIBM+e
Pev4JC7KVMpTtGhRVJOWbOJzaE1l0sHBwfht/Ux1tcGU2knPxYcI1j1af9ik
SZMo0qhRo7ypQcI9QsjbUlkaPXPmzKgR/QiJ2kItf/78vuwUrZ4UWxhJtL46
NmQqpoJL1488cxVUa4wmvZjP6dj84qt1og0xVAsaZuDAgRx24MABj7LBx8ii
rNfQ8XFf3bt3N4zccnzz5s0N+5tFRgVcOoifn9+3337r7q4yLspUBFiGDBk4
zGLMPI6xKVMXL178wQcfON4Ew1qmKjOmWvTulH/MnDnTW9YWj1Cw1atX01Xn
zZtnmCczZcoUFKn+NjGGjh07+jLdPTKqA165cmXRokX09CJFinhcxqLADps1
a0ayZu4gKGqyWvNDomvXrpELvHz5kjA3bNgwZ3Nm1KAlDurWrVt2jqcYCOam
TZsS7s0/cVGm0uOyZMmSNWtW89TiSN0mAK1bt7a+cQpMtSOQRtuD0LNp0ybr
aKWSVvP+A/g9XJnHzc/JFjEDCkNrGvZa8Ya7Z/PGDz/8kDp16pCQEJvHkxju
3bsXlW5eUK8tFPLoS9XzAjXZxuajHFxczpw5De5FD0ayNIrly5evioKegj/0
lr3SGWvXro1djR8//vTp0xZJLt2K29xogooqXLgw3c38Fd7D/o4ZeE7UJnen
3/gOS46IiKCi+LZOnTokYioZMdSGi6uiIqPr0ZFRInDnzp0BAQEZM2b0NnNP
gXcl5fG4TSvGTK6dKVMmg1RQeyBwp77MoVXpDNrPsXp3XabyLdlc586dcYmH
/gv/pmuolXTWO5fGhvnFV+vENMR4xMfIQjpPGQxjpByAYzE0H9YeFBTk8WkF
TUbNI6XoubSOs3eUmHFRph49ehRn7stWEq5jR6Zqo52On+pay1Q1MdWwgzTV
SBSwflNJvEAhqbElS5YY1IXycoUKFdKviOEuevfubefNgBZQe7iy0qVL4wEm
TpxosSCdiI+b9fhwk088hgY+HDJkCH1/4cKF1vtJWkBVqEex9reMJpjWr1+/
Vq1a5icjLspUcn9yhKpVq3qbw4mY5AC8n/VQNhXbvn37xIkT25xJQk5XvXp1
64eqmD3XpfINhsSfeDmPEgKxPWLECJoSb2lzywt3z+YNNbklRnsaI/a4ffMk
T2IB6Zi3zA6zqVu3bqKYvBQJQ1Iz5fQv/taDikM4DRgwoGjRopw5efLkOHMS
ZG9SCm+PXWFvOXLk6Natm0XwJfWjP5pfFF62bFl8Ar7C/BW26jGd9FgMEiL0
hrdxXbQr0dCwK696tI0lo8ajvQR9c/HixTbnBlj0aIyQPIhvKQ+SzHpPG24f
W/L42O6nn3766KOPaB1DaqMGOnzZ8T4yaoyRQB+jXc4MuC5T6SO4kTZt2nz9
vxBMMdRo99iJDfOLr9ZxEGLM+BhZyBFmz56td9e02pw5c8zCnppHMnkzg/Pn
zzdr1gy1T+ts377dlWzRRZmKT8ZbFilSJB5fc2bAjkzFzNSc7T59+qi7s/mI
R8Napu7YsUPtmKp/9qreKR9f8wa9oWahrFu3zmxaJ0+eTJs2rcHhqHlEdC6P
b/CJEVwRI+RUOBNv9qMm8GBg0W4RpkGno6OFhYWhlxzPVeMkWALhz74HoK3z
5MlDnDXXpFsyVRt5M0tBjdWrVydJkiRDhgy+N1BMUYLB/jqgyP+u1sezGUby
neHi2UhwiFD0C/s/IUFInz49DWf4nBSeRD5LliweB8DJJoh31JvHbz2iJq3h
eEktLQ7Thta9vaxZgeTr2bMnDlO92N1mGQz4/tCf0i5YsKBcuXKXL1/2eIDS
P0mTJjXIUVUb2DyWH+1VTp06hYXYdMIWPVoDm69SpQrtbjFQgxURwc15vdrO
nTsyl5woljt37jJlyticBuMRfGaxYsVat26dQEZTqXbcl8cXku7cuZOIGSN/
q8cX84uv1nEQYsz4GFnWr19v2HySz2fNmmVoO6ri22+/9TjNjK/we7jKevXq
2ZwgZxO3ZOqLFy8Qe6Sx3JeLT1t8xI5MJVvPEIX28o5oH/EYsJCp2lCtYcdU
B6jN5Qhw6WJCgQIFzG9j9AiRkd69detWffOFh4eralFi27CTnlrWimf2fZc5
dYMzZswg4Hp7rad6hYTFKxI8QiDr3bv38uXLHZsl1+3cubPF3kpmDhw4QOXj
b81fuSVT1VtQvU1MjYzqturxWfny5X1xoc54+PBhoUKFOnToYH/2NfKJyNWr
Vy+POznEFBfPRg3je71NwDaj5tdx++ZRXGKBn5+fxxbBPhcuXIjEotj2Kw2v
onYGsF4ZjeZUybj103D1AqwWLVr44qx8lKkUb8OGDbVr19YPEVAhOFgt01QP
d3AFKhrS1spjaLUR7WYOHIlnNucR3rDo0XrOnDmDTCWkenswRw1jS+ZgwQ22
b9/e45xkghe+N9pXFVhz//79/PnzO16XFOm2TKU++/Xr5zFjUvsaUdvOtsHx
xfziq3UchBgzPkYW7trgHBAD5qo4d+4cVeHxaT7urnDhwohtx+9e8YZbMpU0
RG2M4/oiL1+IVqbirNq1a4c0GjdunP7WLB7xmLGQqdrEVFfmSuFqkIvf24bw
un//fju7+tA7iE0GJ6zW9KmNAvbt25ciRQrDXnYoWHyyx63CnaHmjQQEBHiM
klyF6OPv7x+jscGVK1cWK1bMl+FEEn+MATVuXqdDCtyzZ0/6BRnE8OHD1SMb
tRMvbhY/jEJu2bIl8l4bm3JLpl69ejVz5szeJqZGRg2AU1eIIjsjS66jlnfV
rVvXvuChnoloX3/9tSv7mbh4tuDgYHOE4vx0h06dOmEABKkpU6bQN1VHUG8E
KF26NAaATm7UqNGuXbvUVzgi3NFXX31lHsTDFSO9aGj9YxccEfFr4MCBmnfC
V/OJXuWSiKm5HxZz+dQ4bapUqSxeXk8JJ06ciLMiW/SlR/soUylh06ZNDdZO
WOnbt68WXJSc7t69O9VC+9L1tEpbs2YNtYEPsXbduEeciSGcOevRehDStLvF
TEV8JrZkfhenCrKffPKJ4cYxgGbNmmXPnt3bwLJN1FsFY7oVmx4XZSq1RMfx
NudNLXIhEBw+fNhBOX0xv/hqHW8hJkb4GFlICipUqKDdCLc8ZMgQg9MjjCKK
vK0fUY9cq1WrZv+lxjaxKVPVHhHeZCrqghYkF3B3F1C8Pepx0qRJjgfr1Ix6
bzKV+6Lb4tOwQIN52HnEo2EhU7UdU53tIRA3UH58r3kfNmqPeKFUEDdCZ9Re
MRn534HiIkWK+LLC0UC0+wNv2rQJNxKjyvz2228JK76MDqkdp7/55hu9s42I
iPjiiy/UkkYCVmBgoLahK4Vv0KCBeg0B1UX9oJO1p5NuyVQ179TbxFR6YtGi
Rcm/CLs+DuM7g7qixmK0SxL1hqKzv1Ipbs6mXiFneIMP7oK7U68yjIxag5kk
SRLtfYhqYmrZsmXVsxicT+HChVU/QvbkyJHDvDwEvzpq1CiM35AqKgeiTVUl
nJFOGsIZ9sknyZIl87aSkd9Onz49ceLE1k8itH0G5s2bF8NK+h981AlEGcPe
FDQBEQphoyyZP5GLyFS1ydi5c+fGjx+v9U28GZ0iZcqU3kY+uc29e/cOGzbM
0ASOe7Qerm69vT+3hi2ZJ+qoNkKeGQQPxoPHW7ZsmY9DAUeOHOE8Ht9VZxO3
ZCrnIexquxqawUQxVJyb9fvHveGL+cVX63gMMTHFx8iCb+nRowd/qh2naQX8
mza6y7dr167Nnz8/Obu3m9XCd7zsm0ocrF27tsc9T/CigwYNSpEiBYbhbaSX
u+7QoQNCqFu3bkuWLJk2bZrNu1CBmFCL23RmBjgZNaBk2EyGoEC3JeNGwdL1
zHm3zUc8Cm8ylTKvXLmSqxNofFnBF6vQFp07d/a2WEabx06NUVGYivYc89Sp
UwRfm5tb2iRamYqXQACgCmyeUG02a2c9hQUYNlmYfiQZcVI9ChXplCSjctSj
EJXjaIvc1eKF1q1bq9/iTAoWLHjixIlfbKN0jl6mqjd6J4rao9jgUbHGmTNn
Uo1E6hkzZsSLRlUsWrSIxrI/jk2tfv311/anZcbN2dTCvXr16mleS+16oZ8m
hKfCXWiDPyqZ0sYc+Jw/1W4DNBaBm9bR77pG55o/f3769OnN08J37NjBmbUh
UPW2GvOr8RBFfJ4xY8YtW7YYvqL89JeGDRsSf7kRC3uI97dQ0VjYuTdfpJm6
2i1BLQzEUYwePdqwk/+lS5foYvRZOo6hNh49ekTSQcwyLNX0pUcbzmMtUykw
tvTVV1+ZXRy3QyPOnj1bswGCFMKAXuz75lrLly/PkiWLL6+oUDK1cePGxDKb
juvu3bu0mn7zZDoRDjlNmjQWu9xgBrly5aLFqQoH5fRFpsZX65hDjAN8jyxP
njxp1qwZiqtEiRL8AyPngA0bNtBfSBwyZcqEe7FQYvH1FirENk2TJEkSzVeg
+vJFgdPDr1Jy0kzuxduOEytWrEDqKH9OH8maNWuNGjXsPEmPjPI21CE/CQoK
ipEl0KGII+p9NApuIXv27Krk/IOoQfl79uzpcd6a/Uc8CrNMpXvSU7iKVgCa
L0eOHO3bt/dlVD82IHomTZrUW2ioU6eOZnJkKyNHjqxbt+6aNWsIZLSj9pTT
LaK18+fPn1euXJmsx6Y9EJS7d++uyQlnbN26FQ+vP8n27duTJ0+uzXZQW9lr
877QJzS9NoCPVydPQTKpPzkPEdZbhXuDJFcltvv376dLak2GFsWBKMPmH3QW
KpCDhw8f7stsfFdAPCCcNm/ebPN4wlPHjh3d6iBune3+/ftU+PTp0zVTV59g
pWocW61l0+aVqYmp+mlmZEnJkiXTXovMr7BJTAKvsnfvXjLZ2rVro22Ieobe
pB5Y6FdfqjExj29YxufgqXB0ZcqUIXRiftQ8P6efciE6DheyGAmJjG+Zqu3M
740FCxZoB4eHhxORJ06c2LdvXzyY+aZUbdBNatasiS4ivJI0YQ8UjGoxPxP0
pUfriVamqsU4hhW1GmfOnKG9sB8aq1u3bgEBAT/88IPvPla9ql4T4c6gGIg0
i2DhDXIKCkC6hM5PlSqV+hBDJbwaGgKPUbx4cRpC+y2uEvEWoxrwRabGS+tE
egoxDvAxsijohvgrWkF/DCk5bRftfinx+7JUxyDsuUFtppPKSQmgMZpszK9w
R3H5wkf7j3gU0b6F6l0Cg9m3b9/hw4ddn38SacPOaY5Zs2YVKVLE5hZDRCuy
Y48+xybYKqGQYKd5eD7BhtOmTau9FE/N0cV3qT8Jdvql3Lt27VIR0HEZ3lKw
EJqSZNDmqo2NGzf26NHDrZ7u1tlQkiSY+jlaan8qwplyaxhG1apVmzZtqqab
quno2rgl904NYB76PZn5ITaDJqSEuMejR496XG+uThUYGKhOpYzfeoD65s2b
hHWSa2TJqFGjwsLC7CuTeB9NjelVfvrpJ+tdZbTaIC+gvRC3Hk3RxR4drUyN
jFq0i0V5ew5FKyCDyUdcXCuN00Z161OtdxgfzS/uW8ccYuIdhCvydciQIehw
zN6mA38bZSq3Rjbq7++v+eeDBw8q7Rej85w7d27u3LnuvtTAGvuPeBTvlUyN
VezY+dWrV/Ply+dtebsBvE3Dhg19UdQqSdFPcVTPHPWTFZctW4Zh499wX4cO
HZo8ebI2JxOZRC/gYPu7mr9LLF++HHdnZ2cGarVPnz5u7RPi1tk4DwqnefPm
eoMkAmKl2kRQ3DgaBg1A6oSd/N///V+VKlW0941iPwULFmzbtq2D2Rc3btzI
li2btoQfKYsYrlChAh6JrNmXRcEecUumPn/+vHHjxs7Wv8QLLvZoOzIVW6Id
ySPibOyFmFugQAG3ptMkcHw0v7hvHXOIiXcQhKTDNvcI0ngbZapSd5UqVVIL
oNQsQbxujOK1ele7xerU2MD+Ix6FyFS3sDMHm+g/evToZs2aRTvDWQ2SeNve
yibBwcEIA8NOratXr86bN6+ab3z79u2SJUsiRcivJ0yYcPnyZbQxnyhttmvX
ruzZs3t8Svs+QGSvWrXq0qVL7RxZvXp1t94M4tbZaE1ktmFlK+qRREntMYhD
Rg8nS5ZsRxShoaFK86jVpgjLAQMGlChRwtmu3agLzqytW+TPNGnSdOzYEUsb
NWqUzalT9nFLpkZGdT1XihRnuNWj7cjUyKgBeZSJ9YsA3AI/ibccPHiw462o
3jp8NL+4bJ1ILyEmHlGzmD799NOYPoV8G2Wqeomwtnjt9evXDRs2JGYh6kgc
bL4CAI8xZMgQV7bltE9MH9qKTHWLs2fPkiBEuy8H6WfFihWjfazz8uXL+vXr
+/Ii14cPH1auXNm8TYSaXti6deuRI0eiSVAsmHrfvn3nzp2LtRMXMNoOHTqM
HTuWAiTkTR7iAEI8uWq0Q380fbly5XyZnuH62QjrAwcODAoKMjyRVy8URgaP
Hz8eOYo0xTNjDNr0LURpYGAgSrJHjx7t27d3thWGSrL8/PyQT8Oi4HJjxowp
U6YMlmbxTmHHqFm1H3zwgf0liu8MbvVozkOMw4lZzzPknJy8f//+cSAdCe6o
ILd61vtAXLaOtxATj6gBRgf7Su3fvz9lypT16tVzfd1u7MlUitoqCuXkaQiU
Nq6AjHX06NF2FvujyXH1MR159hG1fipGD21FprrFs2fPypYtmzZt2mi33cZi
6Q7Wyc6dO3cIGY63GsZHjRgxYvDgwd7eU4OHuXv3rjZB0aDEKJvrj2XfRqg9
JBbR39rnr1u3rl27dm75N1fOhtetU6eOt/iODyeTVZfAS2AJ+qeE3Cwpti+T
zTg/Shi5i3u5evWqtrM9dmXxQmFfwFyLFSvm7+9/+vTp2Dh/wsf3Ho3UJ2Yl
SpRo3Lhx1mN6JC94MMdvcLYJZa5bt667+7G8D8RN60QbYuIF9VpY+2sKFHi/
Pn36kOTGxhRobXL1kSNHzp8/7276cPHixRo1agwdOrR3795Tp04lVJUrV448
Rb8ZiwUUJl5eFmD/EQ/HUG8c//nnn4tMdQVCZP78+T/99NOdO3daWCMhYOnS
pXQli0efJESzZ8925gHoaEidzp07x5IkeK94/vw5Nbl27VoL90Ua62Ky7PvZ
rly50rhxY28vlI8Dbty48cknn/iyH7t96GjHjx+vUKFC+vTp3XoN93sLCUXL
li3VbA1r74F1NWrUyMed4S3ANxJ5lyxZ8tbNwUgIxHbrJNgQg6QpXbp0jGZM
kdz16tXrww8/HDhwoOtP/COjBnjJtjJFoTJ3d8+PA7x586Y2FEC6GsdP8B1g
8xGPerlhlixZMmTIgKyKjcdw7ydYyIoVK1q1akXlr1mzxlvQxPdu3rw5lqqd
BASJm9AcyNsLNTlnzpy35cmj2mvUlXe2OgalnS5dujiYMXLixIk6derQ12ig
BPUOwbcXoh4N16NHj3r16g0aNMgi5F24cAFLi6XBtIMHD27cuFE0qmNitXXe
jRCDtENpV69evX///vHrMN9P5KGtIAjxxbp16wIDAz2+O1sQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEF4h/nPf/6zdu3a7Nmzr1mzJr7LIgiC
IAiCIAj/P//888+YMWNy5sx5+PDh+C6LILxH3LlzZ9GiRe3btx80aNCxY8dI
GA0HXLx4ccOGDX///Xe8FE8QBEEQBEF43/jjjz/Gjx+fJ0+ehg0btmzZMm/e
vIkSJapZs2Z4eLgSq8+fP58+fTqfnD9/Pr4LKwiCIAiCkED5888/+/TpU7p0
6ebNmz9+/DjuC/DkyZNWrVqVKVOmb9++FCbuC+Au9+7da9GixciRI9Gi6pO/
//579+7dpUqVQqymT5++YMGC/v7+AwYMePr0afwWVRAEQRDeT169emV+yvnO
c+LEiWHDhnXp0qVbt24XL16MvQv9888/+j99eXD822+/FS9efMqUKYcPH379
+rX68ODBg+ioffv2GS4UG3DRI0eOUICSJUv+/vvvsX252ObBgwcXLlwwf04b
YR4LFixYuXLlL7/8EvcFEwRBEISEw7Nnz0aPHt25c+fatWtfvXo1bi6KOiUQ
N27cuFmzZogf/n/p0qWYniQ8PDxPnjyhoaGGz9G9wcHB+fLlS4CPSpFzFHji
xIlqDC0sLKxcuXKxpEYiIiJy5sxZvXr1rl27IokrVarUrl27Fy9eODsbMrVM
mTL/+te/9B+iqUaOHJk8efLt27e7UeToOXr0aNmyZd8BmSoIgiAIgjV//fXX
jBkz0HsPHjwoUKDA2LFj42BsE6k2d+7cNWvWqCG4x48fV6tWDVUZU5F85cqV
YcOGXb9+3fzVvn37Jk2apD1OTTgcP358woQJ2mjk7du3qfbdu3fHxrXOnTuX
LVu2pEmTJkqUKHv27FzXlwrxKFMjo1YAkSw0b95cu6lYRWSqIAiCILwnXLhw
YcyYMW/evDl06FCqVKmQrPZl6qVLl5zNmvvll19KlSo1c+ZMRLL65Pvvv//w
ww8HDRqkhCufnz17Nm5kT1zyxx9/oKtv3LihfUK1IyBPnz7t7Sc0DVWhVVSM
iIiIGD9+PL91ZZG4N5nKyYOCgjJmzOjxEbbrmGXqtWvXHj16FAeXFgRBEAQh
Ljlx4sTJkycRh3379vX39z937pydXyFlv/vuuz59+rx8+dLBRe/cuZMzZ85y
5cqhfNQnlCFt2rRNmjRRekydv3///o6fUCdMzpw5M23aNG0aJ7XXqFGjnj17
ehPkHDBgwIDVq1c7G+JWMtWtjYy8yVQ4cuRI6tSpJ02aFAdD8WaZeuXKlbZt
2/7888+xfWnujqssXrx48uTJ2Ge8rCMTBEEQhPeN+/fvFyhQoGHDhjYXUO/Z
swd95csQ1oMHD549e6b9uW3btmTJkg0ZMkSTcIgrxMCwYcPevHlj/jm6aNCg
QQ0aNPj+++/10ujhw4djx47t2rVrnTp1UC+Oi6fn+PHjVatW/fDDD0eOHKkV
7/bt26VLl968ebP6kzLs3bu3ffv2QUFBrVu37tev36+//hoZNb1BL0FXrFhB
1a1atapSpUoVKlQoUaJEly5dvEl9bnzEiBHjxo1zNpQaGSVTx4wZExYWNnTo
UApPpfmy0MlCpj5//pwq+uKLL548eeL4/IpXr1517tx54MCBmrqmxvhEy2g8
PvTnQ6z33r17Pl7dAk5O+3bq1CkkJARzpUrz5s07depUZ2P+NATZByfk1rr8
F/5cunSpaqPz58/zCZfTvu3YsSM5i+81LAiCIAhvFxs2bEiRIgVx087B169f
R2Khedy6+h9//BEYGJgjRw7DmneUSf369c2lunXrFvrt6dOnrVq1QqlqOhbp
gtC9fPky+rlIkSIIPLcG93788cePP/6YWtI+WbRokb+//5kzZyKjlBXXRcKp
AT1up0mTJpSNz6mlhQsXqmJQzlGjRlF4KpCbQj3OnTsXOY209njR0NBQvvVF
liB1KBXnoSRcFyVJATzKfjtYyFTgNlOmTLlz507HpVXcvHkzW7ZsU6ZM0Sqt
RYsWVapU0cbVPcpUpB0/6dChQyxtVMW9oxgNNn/27Nn8+fNTpc7Gq3/55ZcD
Bw4gPhMlSpQmTRoSit27d2tKm/slP5o/f37q1Kk5oGnTpuvXryfvkE3+BUEQ
hPeK169fN2/ePG/evHfv3kVinTp1ykLdIRu6d+8eFBTkeIjPAAJj3rx5KJMf
fvjB/O2uXbtKly59584d/YfIxb1791JayoxI0EYIOXjTpk2RUW/tyZgx44IF
C1wpIbUxc+bMTJkyIYDVJ8+ePatYsWLr1q3VblqUP126dMgn7SfBwcEU4Ny5
c2gn6lN9+ODBg+HDh1PD2mFI0FKlSvFz80W5O258x44dvpQczaYfYNy4cSNi
e9++fc7OZiFTMSFuzc/Pr23bto5lsIJbpjIPHjyo/lQr+/r376+1srclVKj9
8uXLf//9975c3SM0MSKck4eHhxu+IluhSh2nbNwUBowKJU3DlswH/PTTTyjY
DBkyxOquZYIgCIIQGxDN0WY+jhleu3Yta9asXbt2/fvvvw8dOrRkyRKLExI3
8+XLp0YRfYcLrV+//rPPPtNkiYGXL1/WqVNn6NCh5qfVISEh/v7+J0+eNP9q
3bp1SJ3jx4+7Ukh0V7NmzdClapk8ZZ47d27OnDnVPF50VKFChSikXn/SKKiX
WbNmjRs3TnsofOzYMRSpvm6Ru8jUgQMHGu6OY/hhrVq13J2ae/78eUpFluFs
RM6bTOXG+/bt269fv/bt22NImph3APUwcuRIsg9thy4UoGEc25tMpdKo8HLl
yrk+ZZQW/OqrrxCT5n0wLl26hIbs0qWLsyql6mrWrMmZp06d6rHTzZ8//4MP
Pvjyyy8T4J4VgiAIgmCBiukoBB+fAx4+fBglsHHjxj///BN15HF/JwUX6tmz
Z2BgoFuPVg8cOBAQEKBGihADN2/eNAfrpUuXomMN0w6J7/ywdu3a5omdFLJX
r16ff/65W6u/Hz58WLhwYWSYEpM7d+7MlSuXtk0otZc6deqJEyfqS/7DDz+k
SpUKNaUNgvHtsmXL9uzZoz/z1atXs2TJMmfOHMMVkb7FihVbtGiRL8V+8uRJ
06ZNR48erY17U5j06dPzobORcI8yFbnYLgoaQt31zJkzHedNNGuNGjUwMKXt
lfLMnDmzfpqxxYZUKOQ8efJs2bLF2dW9QTG4tWnTpqn5xnqwDZKU4sWLO9PG
aoYDlebxUQL5UcuWLRGx9PE4eHuCIAiCILiIWzKVCFu9evWgoKDBgwfv2rXL
4ki1Q+a3337ry+U0jh071rFjR+2B/oULFyZPnmy+F8QVoXzt2rX6D0+ePIni
Cg4ORoyhY/UPmhEw5cuXb9OmjVvTEihnunTpNmzYgFzZsWNHyZIlN2/erCkx
BEaaNGkME2iRUh999JG+oighCl+bABAZJX4mTZrErZmf53733XceP48RN27c
yJ49O4pdqxz1BFm/ECxGmGUqltOgQYO6deuqfcmeP39eqVIl/QYODsrMjY8Z
M0abmIqorlChAudftWoV6j3SUqaSPdWrV69Vq1ZxtpUZwpWEKGPGjPpNxuxD
ypMsWTL96LEelR/5+fmtX7/e55IKgiAIQpzilkyNjIrvp0+f9raWR2Pr1q2Z
MmXSay3HhIeHFytWrEuXLkOGDEEed+vWrWLFih4FsBI/7dq108vOBQsWoGeu
X7++ZcuWNWvW6Ifvfv75Z2TDwoULfS+kYu7cudw1cnTAgAGoJoN6fPToEcJ1
woQJWhnu3r3LfSVPnnzJkiUU/v79+5FRA6RffvmlfkIFJ8yXLx/y2zD2SGvy
88qVK/v4nJc2HTVqVEREhPoTa0H+FShQwGK03BqDTEVZValShU/0EosWTJUq
1f79+51dYvv27cg2be0bf6KryWWoUu5FTauwkKn8ikwnd+7csfRWr5cvX+7Z
swfb27Rpk+osXOjTTz8li3GwZyyl1SametTV5EfcPsbsyzwKQRAEQYgXXJSp
Ni83cOBAdI4a1PIGhUGAITurVq1a6n9BXSDnUJv37t3jPIn+F/SJx3XinLBr
165IQf2a959++qlIkSJDhw5F0hie+4eGhiIbTpw44a2EFODHH38cO3Zs/fr1
KZL5mbvh6sikggULDh8+nHN6HIdETlSvXp22mDRpUs+ePfk/6qV///61atWi
HpSu45hp06ZxDHU4c+ZM7qh9+/Yetc3jx49LlCihpgp7LNLTp0+HDRuWNWvW
pEmTli5d+sCBA3qhy7+3bdt2+/btyKgtESgP2hjd2KdPHxIB83xd+2fTy1Sl
pQsVKmRQUFwxb968TZo00c/UtXkJ6latw+IMw6IYP3480pqLYuT8Sh1v/RYq
lC2t7/EZui88e/aMsmHDGDAF2L17N+2LuZ45c+bjjz/OnDnzzZs3Y3pObWKq
tq2BAfIjmZgqCIIgvKXEsUxVC0nQY3oFYoBgXbt2bSIvsRuxoV7TiWxQMhWZ
hGRy8MR59uzZ6dOnNwxjohzMglm9Ealo0aLmaYSK8PBwFO/nn38eEhJy5coV
BIArs/44yd27d+/fv6/pDf6BGlePv/n38uXL1Rgjmg0Ra3HRq1evZsyYcdas
WR6/vXPnDrKNWk2bNq2/vz//oGb0mwxwwIgRIzTp/ubNG9T1unXrTp06ZV6D
H6OzGUZTuRGPK7yQ2VSsZpP2LwFYV2BgIBeiErRtdR89eqQXpdYyNSIiAtub
P3++x2+dcenSJRKHgIAANTCuoBegolGYGDkZkzd7s0BNTE2ePPnGjRsfmsBI
GjduTHVpk6IFQRAE4S0ijmXqkydPCNYtW7b0Nufz2rVryD/UKXpMqbULFy7k
y5evQIECPj6ERWV99NFHFkNkt2/fRnYibxCulEG/f5EetQAfIRTHb4RHH44e
PdqwrZY3Dh48yM2Ghoaav0IatWjRAr10/vx59QkKqkaNGugZtaiNal+8eHFY
WJidC8X0bNb7pvp+iRs3bnzyySfe1rxrWMtUKjlHjhyDBw92S9ohJj/77LNi
xYqZbXjnzp18hZJs1KiRg224duzYkSxZMmQqGVw5E/Q1BLCfn59+lwNBEARB
eFvwUaYih0ZbsmTJEv3x9+7dy5MnT1BQkMfLPX/+vE6dOigEw+tWZ8+e/eGH
H/q4+Hr37t1p0qTxtpCE8vTu3TtbtmxnzpyheNWrV/eoiq9cuZIrV67cuXM7
npzpGMTzqFGjbG6PsHnzZmSqx7Vs33//fdeuXQ1jmJy8QYMGqtppI+zB5gqm
mJ7NgUyN0SW2bduWLl26H3/80fqc1jL10aNHSMe2bdvaXECH8WCcQ4cOJbUx
P7inyZo1a4YBe9SKx48fp6W07aRev369YMGCsWPHkq9Fe11tx1QUu8eJqerk
+t16Y4mHDx9S/l69erVu3Xrr1q0ycisIgiDECALHyZMnN23atPF/IXQS4wIC
AtBvhq84ODw83Fq+Lly4sLQl7dq10x9/+/ZtpKB5k0/FsmXL/Pz85syZYxgK
Cw0NTZo0qY97K/3www+pU6cOCQnxdsDPP/9M0O/Ro8fixYs9TuSjzOiQ+HqE
+uuvv544ccLmNk2rV69Gk5s3kkUycQse31y/Zs0aapjzr1q16rvvvrNzFQdn
Q0wWLVp0wIABWJfFxA/Hl1i3bl1gYKDaNMDbCdHwnLNYsWLeZOqTJ09KlizZ
qFEjmzKVMlDCpk2bZs+e/datW4ZvSRZSpEhRoEAB/eN+DdooVapUadOm1Tbv
paHLlStXuHBhj8frUVtvYZDTp0/3aBgo3g8++EDbrTeWiIiI6NOnj9rvi5Th
yy+/RKnG3uUEQRCEd4+XL18iDitVqlTRRNasWTNlykRwMXzOwb169XI3wN28
eTNz5sxDhgwxyzwETPny5T/99FNzoJ89e3aSJEmQJb5cWu1Nunz5csdnQD8g
sVAFOXPmLPhfSpQosW3bNl8KFhusWLGCmzUPKlLtjx498ihprl27NmLECBTa
4MGDo92uwfHZXr16NW7cOJRkUFCQhZiMpQJHRs1G7t27NwWgGB7f2RQZNWO2
VKlS+lfoRgunql+/fq1atQzaG6HbqVMnbOabb77xKHpJ9FCSVapU0Xc0ckaU
LfLb+qLajqkeR4+5XOvWrbm0t+krrkBdDRo0SJuLwkVbtmyJ34ilywmCIAjv
FXE8N1XN+uvTp485bp46dSpt2rTNmzc3aAMCX7t27dKkSROjJ8Vm9u/f/9FH
H61bt87xGa5evZohQwaEgVq0npDhNqmxvXv32v+JWkq/ffv2efPm+a5q3D1b
HF+CfKRYsWJoPPu75v7yyy958uQZPXq0QVGrgdnEiRN7zI9ev37dpEkTPz8/
wyA/qvuzzz4LCAiwHnBWE1Pz5ctneG+FAnn/+eefx+rEVG525cqVmzdv1j6h
UUqXLj1lypRYuqIgCILwXhHHMlW9cKdDhw7myxHsCKnmxS/3798vUKAAsc/O
4JsFW7ZsQaZqL35ygHpP6BdffKHf1SphEhYWxs3G6N30r169GjRoUK9evbRd
Un3B3bPF8SUwufz581ts52XmwIED6dKlM2+Gdvfu3Zw5c9IWP/30k/lXP//8
c5YsWdCxhjX+9MoRI0ZgbB5f46sdQ89NlChRw4YNrSem6l+/5S7Pnz8fOnSo
Vnh67rfffktXNT8QEQRBEAQHuCtTX7x4Yb3GhwOqVKlSt25dc2Bdv379hx9+
aHgTE4SEhCRPnnzZsmU+li04OJi4f+bMGcdnQHLkypWrVKlSPgrmOODf//43
Nxuj2bxv3rxp1arV119/7cpLbN09Wxxf4vr16xkzZjRnTEePHiXD6t27d7du
3ZYsWTJt2jRtq4HJkycjU/v168e3LVu2nDBhgvrqwYMHJFkZMmQwr7mjxyGz
U6RI4TF1On36NC2ICPQ2UKxNTPW2rQGK0ePEVJKsTp06UdqyZctqG3ZRmd27
d+/SpYs2gHzz5k3uBa3Oh82bN9f2ENbXtnrp27lz5+rVq1e+fPkvv/xS/25f
QRAEQfARV2Qq4nPmzJkIhqCgICJasWLF5s+f73HiH0Hwm2++8TggibIidBpe
/IQyLFq0KOc0bL8fU9TwlI+vFkJat2nTJlu2bA62YY9juE1u1uMcYG/QXo0a
NbJYYhYj3D1bHF/iyJEjSMRNmzZpn6ADV6xYgSlipZFR797NmjUrKlE9lKck
DRo0wHoRnBx5//59uoCaWYrNtGjRwmN+dOjQIT6n63mcAYsa/OqrrwoXLuzt
RRjaxFSPe6xpE1MHDBhgtgF6H32QDquJ0kuXLmXJkgXh/Z8ouJGCBQuuWbOG
3/Ln0qVLEdtXr17lh8OHD9eWnqmFlsjg77//fsOGDWFhYShV88I9QRAEQXCG
7zKVGI0C3LJlixrS4f8zZsxInDjxwIEDPcbfRYsWZc6c2fwgkvMQNwMCArSt
hx4+fEikDgwMdLDtuQFKgqSpV6+ejyNvZ8+ezZEjx6hRo7TQT72dPHkyoY2v
UpncLLXnbZWQGbQH9W9nH6S4P1scX2L58uVoNv2o4IkTJzJkyIBhKyNXM1ER
bMoM1J/a/hVqBRYqUf1WiV76iL6LnTp1ijyic+fO3mafkqBVqVLFz8/P42xq
NSmUb73NlL5x40bevHmTJElifjwB586dS58+vTbYTrHHjRvHLajKxMgR4aNH
j9aMnM+pkHnz5u3fv59EUlUCtzNx4kT9JgwcP3jw4Gin1AqCIAiCTXyXqcQp
f3//TJkyqYGmyKhHgenSpUOLXr161Xw8oi5jxoz6ZRcaxPdu3bo1adJkxYoV
xM3q1avPmTPHlUe6aoKrt317YsTly5fr16/ftm3bkJAQTtimTZvg4GD9Wht0
ReXKlR89eqT+vHfvHgdbTDKMDbjNSZMmIVTsjx4jRTp27OjxnVAOcPdscXkJ
9QpXbE87s3rTLkauvV/g4MGDauxU/XngwAGEqLbhw61bt1CPSGj1J20RGhpK
d+jQoQPZHIf16NEjX758CxYs8JZE0HHq1KmzZMkSjLZhw4b6LnDnzh3KxuXU
24E/+OAD/o0qRltGRqVjAwYMyJUrV6pUqdQBKVKk4M/58+frLR/tSvk1m6Tn
5syZUx3DzXbv3h1Nrn8JLwlj4cKFO3XqNHToUG3e6bNnz4YNG6bfX1e9qbZ4
8eIJf/K2IAiC8Fbgu0xVb2DPkiWLCpSR/5Wp5jeTKl6+fFmrVq2ePXt6uyLh
79ixYxEREfbXWUfL3r17c+TI4cvEVAMoagrJnRpGjPmzWbNmVapU0UTOmjVr
UDguXtomauDX5sukIqMe4CKf3Kpzd88Wl5f49ddfS5Qooc9o1OhopUqV1CRP
Pp82bZp+7gfJFPavjevu2rUrefLkfKg/7YMHDxYuXBgUFER3Q6xaDL+fO3eO
y5EE0UEGDx5MP9J6litwWnqf9i7gu3fvlilTpl+/fmq6uLpZw4xWtV8BSht9
q1ULPXTixIn6XswZAgMDa9asKaOpgiAIgisQdKZOnap/wOeAV69e6QPT9u3b
kyVLVr16dW97ri5fvvzzzz/3uItObKAGiJo3b27/CbhjUCMFCxbUnv+qobli
xYo9fvw4ti9tgJtt2rSpflGMBZSzT58+s2bN8n202fWzxfElsN4CBQro5xKo
l1JpG58ixho2bFi1atXffvsNMUmLT548WZtuzTFdu3bNnTu3swnM5D758uVD
Biv5d/LkyY8//njMmDEu3ibFLlu2rJqYeuPGjYCAgP79+2v9VylSUi292ZA5
ImXr1q2rH9cl/5o5c6a+YJQ2Q4YMS5cujb12FwRBEN43iCkubjtJIEMQ+vv7
Hzp0yNsxhEKiPOHMrYtac/nyZVTxgQMH4uBaR48eTZcunTalQY1N6deqxCWH
Dx9GIV+6dCnaI2kR0gqPi3Ec4O7Z4vIS6sWmgwcPNgwStopCjZxv27bto48+
IvG5desW+R0/CQsLQ9qptGvXrl3Zs2d3tlXp3r17M2fOPGjQIG2IHvVYr149
GtH36dkaFy5cQEzOnj17xYoVNWrUwFb13Z8bR7VqQ8eRUXUyf/78bNmyURLK
g/zmeJUmtG7dWlvbiFyvWbNmp06dZChVEARBSGigdVGDW7Zsadu2bbVq1Y4f
P259PJGdUOhtFbOLEE8HDhwYFBRk/41CvjBr1qwsWbJok3LPnz+PYl+8eHEc
XNoM2rhv376ojmhndJw9e7ZcuXK+bIMQe2eLy0vs2bOnQoUK5tNevHgRRTd0
6NDevXtPnTp15MiRXJ26VbkYQm7IkCEdOnQYO3Zs/fr1Pb4TKlrU1lWcxCDz
1q9fnzJlyuDgYLeGKNGliGH0pLf31SKJ27Vr98033yBllf2cOnVq586dRYsW
5c+5c+diTurdCsuWLevSpcvMmTOpmSZNmnDmuNl+WRAEQRBiBCJwx44d8+bN
I85Wrlx5+fLl1rKQbwlzhPvYjmv79++vU6dOrEomDW6qadOmCBhtXcmqVas+
/vjj8PDwY8eOOVMvPnL//v169epRCdaHrVu3DmXicZd4B7h7tji7xKNHj+rW
rettNi+GevPmTW2j0YcPHxrmtPBzX9IuVCg/N3cHPr9x4wbt6PjMzuBOr1+/
rn8KgFXfu3dPqeWIiIgpU6ZQ2levXt26dSv2dscVBEEQBBchii1btszPz69L
ly7Wj/+I8p07d167dm3szWS7cuVK48aN3V2BYoEaECtfvrzaWPLOnTslSpTI
mzcv/5g8ebJ+6564hNtv1KjR5cuXLY7Ztm3bnj173Lqiu2eLm0tgq717916y
ZEksvdr1HWPDhg1btmyJ71IIgiAIQoxRbyRHqYaGhlofiZybM2dOLA11vnnz
ZvHixbH3sk4zR44cSZ06dcaMGb/++uuJEycie1avXk1VqMU+cTPrwCMXLlyg
KuKxAAmfgwcPbty4UTSqHf7+++9JkyZZJz6CIAiCkBB4+vTpnj179Es8/vzz
z1q1aiVKlKhp06bvjzT6z3/+M3PmzCxZshC+79y5c/fuXaV5Xr58+eDBA1n7
LLwz/PXXX4cPH5YH/YIgCEICh4DVpk0bFKl+O3Skaf369fmQ/78/MpU7bdKk
iX7HVEEQBEEQBCG+UIuGUKRt27bVdiX97bffypUrx4fjx49/f0YR1YuuhgwZ
Ig+OBUEQBEEQEgLbt29v166dWjSkOHz4cJo0aQoVKuTxbePvKjdv3qxWrdrR
o0fjuyCCIAiCIAjC/+Off/5ZvXp1w4YNZ8yY8eOPP65atSpPnjzVq1e3s6u8
IAiCIAiCIMQqv/3225YtWyZOnDh//vwTJ07Ey0uXBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQrPn/AN4RlIY=
     "], {{0, 107.}, {909., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{707.6666666666663, Automatic},
   ImageSizeRaw->{909., 107.},
   PlotRange->{{0, 909.}, {0, 107.}}]], "Input",ExpressionUUID->
  "78ce346a-1fa0-41ca-92f1-5da0df665b1c"],
 ", FieldNumber = 10"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 3.831807216313492*^9, {3.8318213573593793`*^9, 
   3.831821357718653*^9}, {3.831825421077572*^9, 
   3.8318254214837303`*^9}},ExpressionUUID->"999a432a-5089-45ab-a503-\
8b49792b68b4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "10"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8312298277474966`*^9, 3.8312298282274446`*^9}, {3.8312302811942577`*^9, 
  3.831230284539338*^9}},
 CellLabel->
  "In[296]:=",ExpressionUUID->"dc238272-4bc1-49b5-bdad-c4ce0951c1dc"],

Cell[BoxData[
 RowBox[{"Ft", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, {3.8312302820259466`*^9, 
   3.8312302849002533`*^9}, 3.8318072239900155`*^9, {3.831825121497237*^9, 
   3.8318251343028555`*^9}, {3.831825172430654*^9, 3.83182518495291*^9}, 
   3.831825466915935*^9, 3.8318278103448453`*^9, 3.8318281611208*^9, 
   3.8318397924712486`*^9, 3.83294750483633*^9, 3.8329617895279584`*^9, 
   3.8458268811689615`*^9, 3.845852472538919*^9, 3.845857082874134*^9, 
   3.845919629681471*^9, 3.846006581585656*^9, 3.8460998929438906`*^9, 
   3.847470454952943*^9, 3.851700640041521*^9, 3.853975455949191*^9, 
   3.85497741534102*^9, 3.854989268924883*^9, 3.854999906347681*^9, 
   3.855165255194971*^9, 3.8551823243233175`*^9, 3.855185868728118*^9, 
   3.855330645811591*^9, 3.8553398511665635`*^9, 3.8553431882881255`*^9, 
   3.855344022450431*^9, 3.855352749559657*^9, 3.855449613372815*^9, 
   3.855507614965583*^9, 3.855508412088827*^9, 3.855512899962207*^9, 
   3.855533331347846*^9, 3.8555789255747976`*^9, 3.855593297802888*^9, 
   3.8557506104213924`*^9},
 CellLabel->
  "Out[297]=",ExpressionUUID->"2129879e-ec71-4867-b16e-0fb41aebdde5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
          RowBox[{"Lap", "[", 
           RowBox[{"Bt", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "-", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Gt", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"At", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"\[CurlyPhi]", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]}], 
      " ", "+", 
      RowBox[{"I", "  ", 
       FractionBox["1", "3"], " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammadown", "[", 
              RowBox[{"ld", ",", "mu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Hamn", "[", 
              RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.831230293795329*^9, 3.831230299121489*^9}, {
  3.8318072483544436`*^9, 3.8318075086103964`*^9}, {3.831807641331113*^9, 
  3.8318076496432943`*^9}, {3.831807851091679*^9, 3.83180785513081*^9}, {
  3.831824973845834*^9, 3.831825039581436*^9}, {3.8318250744918237`*^9, 
  3.8318250786167717`*^9}, {3.8318251303307123`*^9, 3.831825181576143*^9}},
 CellLabel->
  "In[298]:=",ExpressionUUID->"52735757-04fc-4b8f-8014-4914b22c6d1a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.831807825939827*^9, {3.831807866162796*^9, 
   3.831807866297452*^9}},
 CellLabel->
  "In[299]:=",ExpressionUUID->"3b28b47e-cf27-479a-b77f-b2dc18d46676"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, {3.8318078154905806`*^9, 3.8318078284346147`*^9}, {
   3.831807862437693*^9, 3.831807867464693*^9}, {3.831825122665122*^9, 
   3.8318251353447466`*^9}, {3.8318251736607957`*^9, 3.8318251860151987`*^9}, 
   3.831825467876891*^9, 3.831827811257238*^9, 3.8318281620427413`*^9, 
   3.831839793468239*^9, 3.8329475058447027`*^9, 3.832961790541247*^9, 
   3.845826882337208*^9, 3.8458524735548277`*^9, 3.8458570839060707`*^9, 
   3.845919630790594*^9, 3.8460065824777784`*^9, 3.846099894059585*^9, 
   3.847470456069188*^9, 3.851700641207837*^9, 3.8539754570767727`*^9, 
   3.854977416644206*^9, 3.854989269942521*^9, 3.8549999074284544`*^9, 
   3.855165256305299*^9, 3.855182325444772*^9, 3.855185869792622*^9, 
   3.855330647056619*^9, 3.855339852348681*^9, 3.8553431893976994`*^9, 
   3.8553440235883226`*^9, 3.8553527506398478`*^9, 3.8554496144575167`*^9, 
   3.8555076159751062`*^9, 3.855508413120022*^9, 3.855512901096675*^9, 
   3.855533332421296*^9, 3.855578926668394*^9, 3.8555932990959806`*^9, 
   3.8557506115034885`*^9},
 CellLabel->
  "Out[299]=",ExpressionUUID->"b754d37d-9c7b-45d7-85ed-39ae2a983374"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[300]:=",ExpressionUUID->"e6d275cf-6a48-4a4b-a225-1e57a934e792"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQdwFWX790+VItISQgtKbyK9SgcpEWlCkI5ASIAAoYciUoL0jqEHASUg
vQgyKqBIFYZeB6QNIPLjAQfkBYfHyfv55/677/52z9nsOXtOAnh9ZmBy2u5d
r+t73XuXQj2iPgxPkypVqiEZ+e/D7tH1Bw/uPrJNdl6EDhjSJ2JAr7CQAUN7
RfQaXL1HWt6M5N8k/vj//k4QBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQbPDf//73wIEDn376aadOnSZNmnTt2jXDF54/f7558+aDBw+mROqs
uHr16vz587t27Tp48OCffvrp77//Nnzh9OnTq1evJv3/hmQILywvbxcT/IFY
DOGVR4ye4AWXLl1q3bp16dKlO3ToEBISkj179kyZMg0YMODWrVvqCxcvXqRF
RUREPHjwIGWTqufx48djx44tXLhwixYt2rVrV6RIkVSpUjVs2HD//v3KvD98
+HDy5Mm8c/z48Vc+GcKLzEvaxQR/IBZD+DcgRk/wgl27dtWvX3/dunWEM+od
ZQ9z5cqVOnXqgv+wcuXKFypav3HjRmho6MiRI0mteofkbdu2rVKlSpj3nDlz
lihRIiAgYODAgffu3XN3Eez/woULixYt6rXl90kyhFebl7SLCf5ALIbwb0CM
nuAFSDLE2J07d8wf0X42b948ffp0/ieoT/60WUOcdfLkSfP7NO8DBw7MmTNn
2bJl169fT/I6O3bsmDBhguYdUioZwqvKy9vFPEVzPQpxNC4Ri+EdhtZFtzK8
86ry119/PX36NKVT4Rn/HqMHz549S+kkCP+P/fv3Fy5cmEgnpRMiJBM4gkmT
JpUsWfLKlSuGj3C1pUqVmj17tnlSnPBqc+LEiTfffLN+/fphYWE9e/asVatW
586d//jjj5ROl/AqgHRp0qTJO++8Q6Pq3bv3Bx98ULVqVZpcSqfLj2BCv/32
2/79+48YMaJXr17vvvvuggULUKceXeQ///lP06ZNO3XqZFZNYqsdQgh54cKF
0aNHFypU6OzZs15cwcKTPnr06KOPPqKd84cvEvsv4ty5c8OHD7948WJKJ0RI
JrBg69atmzJlijnCvXr1anR09KlTp1IkYUIKcuzYsfz586dLly5VqlTBwcHj
xo3z+rmDIBjAL6NIM2bMSOvKkiULzto7DfAScfDgwZo1ax49elS9XLp0KdlH
lHokICm3mJiYLVu2mH8lttoJ9+7d69OnT2RkZLt27XLkyHH69GkvLmLhSZ8+
fTp9+vQ1a9a8Yg8C0N6TJ08eO3YsDmLPnj0pnZwXiNu3b48ZMyYsLKxx48aI
apff+fnnnym3Tz/99LPPPhPJ7UOePHny448/YmN3794tEfqLw7Nnz/CAno7D
KE6cOIGd4bfJ9rCee5Hal+6BphfQR3bs2LFs2TIsEn0npZPjPb/99tv58+e9
+CHKasiQIbdu3XLXui5cuODyGbGfsGnBvM4vfPXVV+nTp0c0Kk2yd+9epHjn
zp217pnMWX71cGLuFFQ9+sqlIr1///6ZM2ecJTDlQRoRBG3fvp2W7JMLbtu2
LXv27CEhIR9++GF8fLxPrvkK8ODBg6FDhxJl06PLlCmD5nRpVTZu3Ni6dev3
33+fMvz666/tXx/7SVXevHlTf1n+folG4Enqd999RwR35MgRHw52YcknTZqU
N2/eBg0azJs379dff3V+TZwU8T6XMtgWAk+ZymgfanzgwIHLly/3LkZQijQ5
C5x0fvnll1FRUckwNwDdu2vXrqlTp06ZMoU/kn/m2OXLl+Pi4ug1OXPmnDBh
wp9//pnMCXAO9rZDhw7ejSZpitTdF7C3HTt2TIYRP/sWzEl+1Y0IQP7zn/+o
l6tWrUKgzpgxQ+ueyZZlH4K6/vbbbzHXKZ0Qp+ZOYaFI8T5cf8WKFS/mkIvN
refu3bu3devWXr16IYHQQs79NYq0cuXK7vTtyZMnu3fv/pEbPv74Y6QaMaC7
IGLPnj1k54MPPkCtJWexcy+6J53dZbLbt28fERExc+ZMi1FNCnnNmjUJicWe
K1euOXPmWNwOm/Duu+8mqUjpa0TNFBrGqmDBgnXr1q1Tp079+vW/+OIL3LRa
1I8MTkGNRAppYHZCwgMHDnTp0qVHjx7lypVLlSpVmjRpwsLCcMo44tjY2L59
+9I49cXL+4sWLUIb1KtXj9DeXWPga/3790+bNu1nn33mvBzoU+PHjy9dunRQ
UFClSpVq1KhBsVP1qrXjDlq1anXjxg3vLk5m0VfUYE3b1KpVq2XLltpTNg1K
g8aD73DXXPv164dxQHI4LBAnUDUjRoygv3s9YoAi/eSTT7Zs2TJs2LCRI0di
HBw+b8Ij0wIHDRqkNRVCdd7RfHRCYjASExMzfPhwv0pEQjPC0ujoaOoRFxMa
GkoYiy717moUS3x8PEa+Z1LQ6WgY+qxROyQjderUZPlFiLbsmxTC8+bNm1OS
3t1IKVKc0bhx42gS1II5ut+7d2+LFi287vJ2sG/BHObXADatdu3a77333u+/
/65/3yLLJID+iNmhP+rjFwtbjVts1KiRfYsHOLilS5fa7+nff/99tmzZcIVe
FYPPcG7uFBaKFO7evdumTRtK1WUCXHpSQB8iq3BetDT903zUIJoHL2O/dmgz
OBfDzlrebT23c+dORKmFmLSJtSLl1vTx2bNnv/XWW6SqQoUKGzdu3J8I4gqF
THYCAwNJM+8bWt2VK1eoU8yRmn+bzIMGqJHNmzdTcRkyZCDlWO8ffvhBpRwj
QI+jtF977bVmzZq5eyKvQNnSnAhFLb5jR5GeOXMGn5UlSxbMpr6B0Rh4hwZA
agMCAojIPM2pT6Br9O7d+5133nn77bcxCCVLliS6d/f4jxaLEVOrfal0ypOO
EBcXx9/r16/H/lD1NBjNqvD+ggULMG707sjISMrK3eZylBLNiWRYt+o//viD
zohtdBeRcX2MLaXdtGlThIHmGviDZNDH6UqISdqA1490sfxVqlQhhJxjG3px
0aJFCUDMV7t9+zbpRC2jJfLnz48/pclpHW3ZsmXVqlWjuRKwpNTY18qVKxs3
bmzwdx5BmVNiXId2RQshIhs1apQTs4BEp6wmTpyo7CSXQgpSrYYRUbon3dx/
PYvorFu3bvrHozT4zz//nLR5rTfOnz+PKMVyYruw81OmTEHJb0sE/0XzINQq
X748nyJCDE0C04dBpgOaNxtPTjwyKbzfvXt3BIDXQQpGCR+NLaUiKBD+wGMi
uvTf4eK0FirLf53IpgVznl8N9AnmN1++fJg1c/d0l2XsHnenS9If+a3mkixs
NR9h9gntZ82aZdPioRyaNGmCqrGp67gXCpZWTViRsiOHzs2dwlqRJiRO/EMZ
mmduuPSkcOTIEcwm0RamIHfu3DgI7SPEfHBwMFrCvksi7sAl6d2o11vPUcVd
unRJnz49stBJiVkrUu1eyjai68xxH7XWqVOndOnS0cL1/oWEffPNN1hFzCNl
mCLzbzHOBQoUwJVv2LDB/OnBgwexk1Sru9EMMkuQgkW1no1jrUjJOM07a9as
NDyX80awFRQgiaTdpsji0LNnz2LNtJgCh96nT580adIQbbncZAZfYw7cEhLN
LJYEL4AzpekSnqv3uUhMTMyfiTRJxJ1HoHtSULgSa5dBKVFWb775psspWBRy
uXLlgoKCSIbLVoc4yZUrF+1ZEzNeQLOvXr06AYv9n9BOiEldKtKEf2wXqcJ9
mA043R9RqsZekr8r0YuxEps2bXJyEepUP1ZD7aC1duzY4fUFSQ/NQOu8t27d
Kl68ODbWXD6oONLvj0eBuIYPP/zw448/plPo3yezyOCqVat6vWUouSCipz00
b97cpZBDgxFS0VoMNplmRlOhA6bgLDVPTcq6deuIVgwC0iPoPjhWrShosYUL
F8ZvGgqH0I9u69EMK4+wacGc59cApdq2bVsauVn5uMzyhQsXsDYkkpialNy/
f1+7jjtbrRRpx44d7Q8bUimffPIJ4sHOT9RTQjWChNtNwRF+n5g7RZKKlGz2
79+/V69eeu3kzpNSjASn1B1/z507Fy+mvyyKFK3ikZUjnOEnekXq9dZz5HTM
mDHUnfUD5SSxqUhph+4UaUKiWSYOwl1Onz7d4OLR+SjqlDoCjKZFiOFOkSYk
PpQvVKhQnjx5Dh8+bP6UkI2+TARq3aEsFCnFRYMkcMCtWARc33333euvv05F
aJYh2cDg9OjRY8uWLfo36REqBkEqm70h1U38SCzmUhoRfeOjcT3myaV0FmSk
u0m5Cf/Y8/fee896dQaleuzYMZeNdt++fcSJ3IXu4+7nVETFihUzZ87s9XPV
BD8oUsqtVatWeG2XT6woMfQzNUKs6qnI4cpc89KlSx79Sn9rqoxK8e1szOPH
j6NIw8PDvXM9tD0CeaJdzTzu2bOHC7qM0FWLxZ/6XMwTE+EXaLQ0PMNH8+bN
w726szxJguBU40XEIO76y+zZs83jbMpqeb281zmemhT6RZ06dbCTPhwWU6VX
okQJw8xSbjFt2jQUuyGC8BV2LJg/8puQOGs0X758XFk/ayXBMstoG6zl+PHj
XS60N9hqfyvSy5cv800CGRpJmzZtvH5c/kKZuyQVKRw9ehQ7Zn6eYuFJKZz2
7dvTzfVPG32iSL1GlRt1h1Fych2fKNKExO6QP39+xKdeCag94ho1apRSC3aS
VKSwePHidOnSYb7Mj5JPnTqFu8GzWN/FnSKljpAfGTNmpIQJVC2uoIZ3LIrX
fyDFqSNzm6RhkHICNPNhVeQLOepOxp84cSJ37tz6Cfb6a9I3+d9dYmwqUncg
DyjGN954w3rkjUIOCwsrXLiwk23Gfa5IiYiLFSuGpjpy5IjLL+BW6IMYEE8n
6qBgad4WxW4NjbNs2bLz58/37ucKigvrOnr0aM3RYKJpXbzpnevBtjRo0IBA
T827UG6XhuduEs6CBQtKly7t8zmEqK/Y2FiagTkXSDJ60MCBA72TwWpOAoGq
xaP/RYsWYb4Mb6a4IvXUpGzevJnO6GREV23b2KxZM01/YkAwIyg0czLOnj3L
7datW+f17SywY8Gc5zchscGjQIi/tHlHamycu5vnmLnMMldAPAQFBbk8jtBs
q/2qSPkCASbZUaoGe+X13vgvgrnTsKNIsSEtW7bE+xtKycKT3rlzB2sWGRmp
FwyiSPXwfkREBN/5+OOPtfHngwcPYn8IWPBHeITkX39qR5HSAkuVKsV31q5d
a/ho5cqVtCWL0TaFO0XKD9X4yQ8//GB9BTV/ZtmyZdZf8wfkEUEeGBhoEEIX
L14k8enTp3e5AwP9K2/evDVr1jQM/NIsJ0yYgCNAGOzfv3/79u36j2ixVIdF
l3GiSCnDhg0b0gJHjBhhrQGUosYIONknx+eKFHuC/ChfvrzL0RuSSoLJHaGx
p3NfHZroL7/8EmnkUN5cunQpODi4b9++mhHYt28fsQNuyDvBxgVJFf5Om0SK
uK1RowaZjYuLM6+5Jv1qgq6TXHgEjT9TpkxeT6HfuHFjhgwZihQp4k5Fk3H8
pnlZRIorUo9MinIuISEhTuZ2UsKtW7euWLGiZluUPHP51IkbcTtkkj+2BUvS
gvkkvwmJ9gdboQ9gyXLVqlV555dffjF82WWWHz58iDnCqjx69IguozfLLm21
XxXp3r17e/fujQpFJ6ROnbpChQpez+F8Ecydhh1FmpD4CL5QoUL6tasWnjQh
sZlxTZKqf1MUqQG1+4R+mvScOXOoXF4SneGIk3+ush1FqgbAyR02Td9hyWmf
Pn2SnKOe4EaR0rmUhNBLdHdgNlu0aHHs2DEbefIxNAD8JnbMILzpHXny5Emb
Nq1LJ06hhYeHk7tBgwbprQ12uHHjxmgD3CLtUz8OgFXko6ZNm1roQK8VKU0r
NjYWP1isWLEk+xdfHjdu3KRJk5w0SN8qUm0SaZcuXVxab4QHepWQ+dChQ54m
1YmJphfQ60m2ww2+qP1Ro0Zp06Txbriq4sWLe72LrxJs2lNFXqJv6Wt0eW5k
HmAh/eqUKIeLZ93BfWkMWDz8ghIbq1evxh4mOaXQJdokUsPiuwsXLnAXTcPT
GMwPX1JckXpkUm7evEkziImJcegdKO2lS5dqF0HhcC+XBwXyHW6HAPDHSaxJ
WjBf5ZdW0b17dzqR1jwobcq8Xbt25sbvMssY56CgoGXLlhHcGbqMS1vtP0VK
3+zRo4d64oZUwF8XLFjQ69p5EcydhpptRWd0OTlTg45MBKeP1Cw8aULidB3q
zvCmKFIDtKhs2bJhhNW+SQmJwyBlypShGZPUFHlwb0eRqt5K7tRjXGoHy4Z4
uHXrFpXlcqGEAZeKFBeZMWNGvKQ2LdkCLMCmTZtS5Axfcnf06FE1WVoPbZXE
Z8mSxXxuAr11+vTp9HokATJJH75xNSI7XP/gwYPxEXqrS8EWKFDAehGltT2n
fJCRqI569erhl/XXwc6XLFmSSrQz5sYPqRSvN6ZW+FaR4laIX9KkSYOuNqeW
TkqgR0v2buKrExN99+7d8uXLh4WFuev4XHz48OF58+YlHMCSfPvtt4Ytdul6
yuJduXKld+/eZHDnzp39+vWrWbOm+fGizatRxdHR0ZiaIkWKDE9k7Nix+L4q
Var079+fX5nTqaZqOBl7cQcyu3nz5k2aNFm8eDGeBRdPGlDatFUaJNXqxRip
y0mkKuxKcilriitSj0wKTZqkYi1dXopao4uVK1cOHZs/f36iNoNlwNGrToEJ
paxQVtT+rFmzKlWqNG/ePHdCiNtxU1/tvKQnSUVqnV8N2g/tOSQkhF5QSQcv
27Ztq5ZE4aEGDBigdlRbu3Ytn4aGhrrbkdWc5fv376N5unXrRnM1aBuXttpP
ipTv0GVwwcpu0zZoIQEBAV4fueVXc6egi9HZKW06WqX/TZ06ddScMbowsqdR
o0ZIzdSpU5cqVap169Z4eZfuT03bGzJkiOa8LDypWmmO5DDIZp8oUiQQ+s2Q
feUxlcenG9LRzM8XXkBFSqiFbudrlKT2Js3eYtdif2NHkSYkTiWlzSCnsSeR
kZGU+ZEjR/r06UMV2InUzIpUzUmmKCx2OnqRoTtg20k/ssEwT/7gwYP0O9oe
72PN+A6htF5L0zIpNHOMuXXrVkyi9QxP5bNc2nMa3rRp01RnGThwIPG+fnMb
bBoahhpMtjV0vlWkN27cKFq0KOnXD4HS73jZpUsXGiTGKkUeY6mVO5S8y0+x
fohA2gApx4mo7UH0IRhfGDFihBaNos0OHDhAoZEvs06zfzUgR+hAipQUak9m
79y5Y9HdCKO4oA91Gk195cqVeJzx48frTTTOFG+u1migvb2YluByEinSFw9l
PdiSkOgua9SoQV97obZGd2dS0Nju9hihSAcNGkSYhgEnSEGU8rd+JRdNiEhE
KxCqAx8UHx+PkbFeIsrtsmfP7tB1usTCgiks8qtAWqPiXksEm8DVKDSCr7Jl
y2J46SDh4eFa7siy2igMRYqItQj2XWaZEjafG5Lgxlb7SZGSgM6dO2vbDtA9
uTW5piRt3sWA/8xdQmKOKJzg4GAEA//ny5cvVSL4IxUv4A29eIylIlDkq/55
ijtPqiaREowYDItzRUp7wMAaBgrUOSPUyDvvvNO9e/e6devSGhctWmS4lKZI
Z86caT8BZnyoSCkKrChfo6ycJMmH2FSkK1asQM9kzpyZPogZx3JGRER8/vnn
NofuzYqUKn7zzTcpiqFDh/pqeS81PmnSJPKSyhPoX14cDktVErIhDAzDTfv3
76cbTpw4UWVq9+7dxLN4ZHdekv6Fy6ZI1RQIjKp1S6MMyaBLo0cUT2d5kkiz
Zs30QbQ27yI5NyvwrSJVmy1Qkl27dtX2P2/Xrh0RN5maMmWKk6XBTkz0rl27
smbN6vLpJ1Y0NDS0SZMm2soI6qhBgwatWrVSdpUWSycyrLl2h0dXQ3jgCywW
obuEyiIvPhwZIz7CaBDDGtQ1DXL48OF0PRSUeeWRHdScBIwShqVhw4b16tXD
B/FSv1GPO+ggISEhNCcnW0n4HJcmBTMyePBgTIrZjVKzeD1+gtxS1oDuEx0d
jevXBvSOHDni3R7maldA/ZCUr7CwYAmW+VXQ1On4mTJlom2rMB8f1KFDBxqD
w6VYSWY5SVvtD0XKvUaPHq1/Wo3LxnWS3ySHkd3hJ3OXkJidr776ip6FUVIq
jjJZsmQJqe3Ro4eT6UBq2NPiCQ63xttu3ryZO2IDiazNYzvOFSlSYfLkyQaN
98svv5QvX56QRxlbtYrwgw8+MD/SnT9/PkKdFu6kW/lQkZIvpUiRYV6nx7fY
VKSIBAJwWhp16sVdzIpUCQxCCRqwFxd0x4MHD4i/fvYE/LunE/jV3sgZM2aM
i4vTe/zbt2/TZejsmlDnj5o1a1pYD1oXknXBggXYHJzLN998Y3FfOiMXx2eZ
F4KRjLlz56q7nDt3Lm/evPqpPmo3J7WxjG9nCVJ6Y8aM6du3L3GxQfz4UJFy
ZRwQ6ScCNfcvwmQKOU+ePIbJ7fZxYqIxRJhol6eK0ODDwsIMe6TcunULY6Vm
RN+4caN///6GMXZ3eHQ1unOOHDk87a2UAJG+/S6J9iPeJ74mIjDPBSUgwsUb
9pdWaMMFFjsnWKA2tuLnCHIUwvnz50+fPk3iaW9Eyna241D9rmXLlj483tcJ
7kwKeenWrRti27zhM6XaunVrwzCvOpGKSuEi/E3fTHLZqUvUKJN9cUU6EYTo
saioKIuj0ywsmHYdd/lN+Ge/CMzpvHnz9KWktl9G8zjZiSXJLCdpq/2hSH/8
8Ue1oEl7h9C7XLlyhHIoPZt3MeAnc5eQGAHlzp0bOarvVmrTj2LFijnZXVbt
fG5xqgXVh3Tk1jSGqlWrYh/Mbt2hIiUNEyZMMBwpiN0LDw83qF++37ZtW/Mg
CSWAQiDgMp9LaB8fKlIsZ2BgIF+zGPROZmwq0s8//xxtj/twuQ9GkpgVKV4P
OYppcrk/El2bWIybLly4cOnSpXGJLFq0yIvRfp+DDVm+fDm9ctasWfpIR83Q
xlrqs0lj+Pjjj92tx09IlNAzZszo168fPcjdGhbugsgkvKJTlylTxuUkQO6O
U3706BF/kDDslX7nWxVW0/AcLlYyQ7+YOnVq5syZzcu7fKhIsS0tWrQgJnI3
noaDI8ApVKiQeW6eHsoHPxJvgjZWqlSp4cOHmz+iNq0PJ6UxoOLMo21YKryz
y+fCZJDapCJo1YbVoO7w9GoUe/PmzT3dl5U4EZ9Ladj8PvVCeRYuXDg0NNQw
Cqo8iDuTqIbC1BNqLzSh8nH8XL/+hT9oiu5Gb8wJoGYLFiyIbafcqGKLfsFH
dDok9Gh7oDHWrFnjkSxxaVISEj1LmzZtXO4vQbLRJOZk0wWQ5TT1M2fO0KS9
2y6DzovrRLHbzAXJoHF++OGHeNsrV64YPrVjwRQW+U1IjHHy58/fuHFjQ1yG
xuC+TZo0cbI5QJJZTtJW+1yR0jXatWs3e/bsH3QgSMqWLWvn+JLkNHcJiTaK
ECkoKMggt8gauQgICHCyMIGyHTJkCHLX3Lq0L6BhBg0ahNmhgbmUYQ4VKSE/
aTCMfPIFrJCh+pDHffr0cfmwho7QqFGjPHnyjB07FvHjRYv1oSLdu3cvBt96
A71kxo4i1UYkvF71YFakav+TXLlyuezalCHpwQVQnjlz5uTWBQoUGDhwoP5E
sJSCzkiJxcbGGnyHMmglS5bUzwomI5GRkZkyZbIe/LSG0sNq0Qjp7OPHj7ee
dosRq1u3Lg1eP+9dPZBCpuLFkrwdPY5YwP7DfYrC5bQEHypSTEGRIkVcbtui
fQE5SgbNs3f04KPxOObDi4mpqSPqzvwRhenS72vwKZ3aPBpJ88AuufwhmmHE
iBGUD/bNehteP13NHWqSiUeP0TGwuAnzzChqBPnhLhZDJjVt2tTrQ8HUJFLD
CQ70NYy8/amhyHUsDI2qWrVqJMNiYSliu2vXrrQumxOBCN7r169vvwe5Mynq
1rTYihUrmg0v77h0Z7w5dOhQHPe8efN27txpMw0GKJxKlSp5tDGXmiz03nvv
mR9W2rdgFvlV4+q0KLNJUWOkbdu2dfIAyIssG/C5IsVc05A6/W+4PsacZta/
f3/rh7/Jae4SEpdpE1WRPEMBqviRDutkxTo5VfN8vN7YP8GxIiUcmD59ur7M
qTWCFLOGp+SRTC7rlDfXrl3LNanEXr16eaHSfahIsdsYK4JE6zM3kxM7ipQW
hZ1RaxC8eyxiVqRq/xOUjPWglnrcjC9YsGCBF/f1OWrGiGEZu+LgwYPZsmUz
2Bb+7tChA/3I3bbk9uGO27dv51LYDYv2Qw/CLGCc9d5KPdFImzatnbPLDx06
RN+3aZbVWb2YOPOjZx8qUlw28sOln1Lgf7F4dC60tP3baTh5jEUG33jjDY8i
DrVefuPGjeYxMS/w4dUQMDQej6pszZo1xIzmRRZqWg6RkcsOThxKfWGTrbu/
OzZt2qR2ItUvq/w78ZRMm+0Wv1auXLng4GCaVvLvuafHwqQk/DN9Dpdh/9AH
2gBecsuWLehSryeNc7uyZcu2b9/evriiLgoXLjx69Gh35WnHglnkV+1O5nIM
lqgHpTpq1CgnVelFlg34VpEinLiUeeEwLljtK2jzpCcz/jB3anfQdOnSmV0M
GqNQoUJVqlSxOT3JJZRtVFQUFsPJSccOFelXX31leBTI+9OmTTPUgppB53JW
859//tm7d2/kljqI1qtM+EyR/vHHH+g6xBVZSFkbqMeOIj169GhgItoIlc1Z
QxpmRaq2705yweCpU6fwdxaDY3rUERs4wRyeULx4cfP5hi7Be9KR169fr6++
/fv3q7QpL2nYD0TtyVynTh2fTFfjylOmTEF3oUBcag/1MFQbmKKalINGnap1
zUkudeGbBHf2V3GqSU0uT7r0lSL9+5/jQS3miVEpFL7Loyrt4MRE4/q5r0fn
gD958oRq6tu3r8WC4hS5Gp2avNhfMUF7GzhwYMmSJc1js2paDg3A7Iao0Hnz
5hEfkWwvIlztkY1hJ1L7cFP8Asmz88jAr1iblIR/zlWxOAXAJeQrMjJy8eLF
XjsadT5akpv86Pn2228xp5s3b7b4TpIWzCK/vIPixZYaHtmrHTJd7sLnEV5k
2YAPFSlp+PTTT13O6NbmYHu3kW+Cf8wdCe7atavLaeFIC4xzkseyWMP1sf84
aycbEzlUpOTaMO2NnmsuimPHjlEULmdMqVPqQkNDnUwv8ZUixTUj/IjyfL7d
nxOSVKQUXefOnbEh9AIta9azhsy43P2JeklSIy1duhTPVb58eZuFhlVBGX5t
G1zwzp077ewES0cgwQZ7q1bVKUu4Y8eOTJkyGQ5UxbOgqF0ec+YdauKHuxlT
CIPSpUtrMwcIVzV1gczDBfND6z1dKRNqxNCGkbXkq3v37vhxDAv6UNs17tCh
Q1ghGj8ekMbfqVMnrT34SpGiuD744AOLSaTqPK9Uiac1eTdrzomJpoopAY/O
1KM88UGUlcNTaXx+tYULF5p9ikXtq2ErzOOAAQOQxC1bttQWuGFPsCrvv/++
edASW1qhQgXsvH785+LFi8Ru2to0foXBcTnqq00i9XpStFpvSE6drC9wTpIm
JeGfNX0BAQEePWRZtmxZ2bJlnTyXUadHmY0zaY6KiqIl0NkJ/6Ojo9VTVLVn
NYqUloApaNeuHbG5ywZpbcEs8qtclflQ3fPnzxcoUICI22H7d5dl+/hQkf78
88+GBU161LKOSpUqeTpRXOEPc6ckkPlQWgxymzZt0Ale756qwCA0a9bMHI94
hENFevLkyRo1auh3sBk6dKjBWtJu33vvPXdrPcaPH4/hIihzogdsKtIOHTpY
KFK6IZWFwk9yrzyPwLRitydMmOD1EJxa8+JOkZIveihKhsZmaAkWs4bMuNwh
f9++fag1ysTd9BKUhnI93bp1S/7j7PWQfsyseTcJSg8LqZ48Xr58mX6nHZGT
8M9gTpkyZZysMTRgvb80KcycOTOmjOKivugv2lADWahbty6fuhvEINnffPPN
8OHDDRXNyy5duqijMRISjSHiEI2tPo2NjeXloEGDSA837dWrlyYLfaVI1dNA
d+PkpIpORyPBPnv9QMeJiSZ5hQoV8mgTM3Xgqf0FRMlzNXUKkuHYGuvaV5NI
UZIqDMGGlCpVSnUHhAo6gdo0j2iNGjWKNmxoh3FxcVgDzbxzQXqTS3mg7UTq
3b4fCS/ADvkJ9kyKYs2aNTR+jzI7d+5cNKGTcRgkMTfVTnJRnDhxomLFilyc
poL8a968ubZxqAob1c72VBkWD0nscgg6yR3y3eWXhlSvXj3DMUkIlT59+hQs
WNB5VbrMskf4SpHev3+fUMXicc/atWvV4RcejZxr+MPc/Z14pl5gYKBBeWIT
KNVFixY5HJOhTLDw7g7ss4lDRUpji4iI4KXaAprCp6tqY7Z8umLFimLFihHX
u8ysNrhNoO11FhLsKdJHjx41atSIe5lbI/Zz8ODBmTJlog14fSCgO+g+tEzC
JfLoXY1jTwhIzbsw4TjooUSyiFV6mVl2JjlrSI9LRaqOoqBkatWqZY6I79y5
ExYWRniFiLJeruJvsL09evRwt4pBO0SVEqOg6DXaE8xDhw7hoG3uNmkTa3tO
W9WKi9JWvkP79MyZMyVKlCAywkoY7AmljRqhoRoWHagn5voJGzQ5/M7u3bsT
/plEqi2MVZPPCXDUBh0o0mrVqs2ZM+e6bXAryBuDIuWOGTJkMB9Wy92R0NiH
VInn2zqR/U5MtNrc8v3337c/PEshd+rUybsplP67mlpUoj9P3Lr2E/4RD9qA
AO/zUq33V6eg0lb1+/zQR2bPno3yNEybVLGMfoU1woZLmRfmKKOBvUKU2nk6
45IUV6Q2TYoCF4/stz9BWm3L7HBCwuLFi/PkyaMvH/UkAlSIofq+Nkyn3AGR
qTIsapUQwan5ykkqUov84vEJc7TWSBpon8WLF/d6r3g95ix7ilKkrVq1omXa
tHiYygEDBhA+aLKBd+iGaGyL5k3l0gWszxGwwE/mDnlDXej3eEFCoNCmTJni
fMtBLo7nMjyC9BQUKR7wwIED9l2SirK1QTOcGpoExYWx4g8aOV9YvXo1rpMA
ISgoaN26dRbzqJPhzCb6ArWQNm1azZ4g8IomQiiB7SWRBI8k212lWDwUSxI0
BsWVN29e4kSPKp2+w43UsS8KshAcHKxSzh+4A9JPkty1eTuzhjRcKtKExDra
tWtXmTJl0L3EiQQX6Dc8Dua6cePGeKWHDx8OHDjQJ9PtvAYPmy5dOnfug3Rq
fZPAZOTIkUTxaCpaXYMGDexXpU2s7TmBJOaCsGj8+PGkxPyAA3OH9SM7DRs2
xG3RfebPn//xxx9joIi7zQPR6oxpbqcmNqh5qtpkHjWJVHsuQEsmZnzrrbfU
IBt3J6KxXJTsAm0UF5FM2fJSa59o3aL/wN80UWQJmcXuOSxkJyZaTek3rLKx
BvVImTt5/OSPq6m6njx5slaY1rWvJpHqZ3bhKIkdtEM8+VV4eDh1NG7cOGIH
+jVhO1LQXF+0W2xst27dlBFTR6DilPV7D/I3dUSla02FjoA+6dq1q6d5T3FF
at+kJCQ+CKtdu7ZWOEny9OlTit3OxHt3qJmZmvhUqEOftQlIuGb9aZK4A6pG
e9CmVhoSKJkvnqQitcgv90I31qpVC9mD02zRogXpdLLUxTrLnkLJkDCLmnVH
3759SQAGhKxpP6c8DaMZ9IuZM2finTW9wZfLli3r6eQT/5m7I0eO4PUwC3R2
Ykzs/3fffecTD7h+/XriBSetOiFxygHBjqe18/bbb+snr9IsMXQ4Pv13CNsJ
x6y3OknOU0S9xvqhmE1oGygQ3+58bo39WUMKd4pUQcoxU1yBNowGxicePnw4
ZR/TO4GmsmPHjt27d9uZnuopSdpzZCFm4ezZsxZ24PLly9hzKg7PhXnZv3+/
u9JW2wHxHXU1mmvdunVprmpy4MmTJwlqtOmd9EfiI7SuPzLuV5yY6ITEpX9I
I/uD4fHx8REREb7qsL66GqKRXOinRVnXvprP2bJlS/V0WC0XIgbXb1nMD/EC
2GFSOGXKlL1797pcC89PaEjafhrqCNRmzZp5Nys4SVJckXqE2haesN3m1l5I
d8JS+/GRGSwYalMfm6gYQX+Gr5ohj/BQL/FZ+n0Vtm7dquSr+eJJWrAk80t7
o8dxHR8eP23O8iuMX80dBUg8QtTpbit7L6D59e/fH8/iqyjeOWhUlOrQoUOR
3DR7O3LlxVekST4Us8mxY8cInXx+3JsF9mcNKawVqWCfJO25b6HxczttS0m6
Hn4Hu42zWLp0KYnJnz+/tifkhg0b3njjDZtblL9QPHz4sFWrVp72Ow3qAp3W
s2dPO7IQ29WvXz9fbbjhq6upLWXatm2rb1fWtf8///M/derU0U7EwwiUKFGi
Y8eOXkxfRNhkz55de/aqZopive/cubNkyRKfx9ovlyJNSFy8U7RoUZunZCIV
WrRo4SQqxKoXL15cPw9EnXegn2O8aNEiChBxgvb44YcfYmJitM3ZqK+wsDC+
7HIbFjsWzKP8+gRzll9hktPc+QQlMHw18d4nbN++PXfu3B5t7fLiK1Lrh2I2
+TvxdONkPqDZ/qwhhShSX6HZc58s006SS5cu4RrUJmwYIsRPhgwZNiWC8kSZ
UO/Kcdy4caNKlSq9evVKHqnscxwGdJh3bKZ2nrgF6iBFX52R4aurnT17lpDf
sETUuvaVSlFzNp49ezZw4MDy5ct7sX+1emBKq6ZtJySOgHGj9OnTYy4w+4ZT
NX3CS6dIaZyjR49u06ZNkr1eDWa621vJDtyCGw0ZMsQw7LN8+fIiRYqoyY2/
/vprhQoVCECuXbs2btw4Gg8ymHfUQputW7cGBwdrkzcM2LFg9vPrE9xl+RUm
2cydT1i4cGGNGjX89JzaC5RUK1iwoEdPIl58RWr9UMwmGIehQ4cm8+nM9mcN
KUSR+oqjR49S8g43wbCPOt8QzTN27FhkAzoEV0LooebM8ClytGnTphMnTmzd
uvXUqVOdLO99qfnrr7/69+8fFRWVpFOjBqtVq+bkoarPr0aaqdA+ffoYLI91
7SckStbmzZuPGjUqIiKia9eu3i0uU/EslrBmzZoxMTGo3CVLltCoQkNDKU8f
7lOhoeY/BwYGOjnWMJmhHCifJJ+0Pnr0qFmzZu7OLLYDUQDe39yi1Kxgan/k
yJHUEXFK6dKlafMzZ86k8SPqcEPdunUbM2YMCbDYGcCmBbOZX5/gLsuCO+yb
O+dgamrXrm19ynkyo0xWvXr1PHoSoSbee32Mi4b/FKn1QzE7df3kyRPcgXe7
gjvB/qwhhShSX3H//v2qVatmy5bNJ8tLbUK/o66V2sQWXbt2Tf+85vHjx4Qk
/57hBXfgQ0NCQpI8t3HVqlWdO3f2lXT3ydVIc+PGjd15ZOvap94Jip3ER8eO
HcuZM+eCBQt+//13JKI2K5X0eH2eozXYq8yZM6O0kzmQdwjCiQZmfd7f1atX
69at6/WmLlycWMBiRjS+iQagDaEYHufx8yQf8Nm3YHby65wksyy4xKa5cwh2
YMSIEUOGDPGTKfAOdV6q2mXR/q/oGmXLlg0ICDh8+LCTu6MbS5QosXHjxr17
9/pkWZ+G9UMxO1egQJJ/v321rMnmrKEbN27s2bOH/v7222+LIvUJtOdixYoV
LFhw8+bNogNfKI4ePdqyZUvrvaAJ9rV94J3j/Grnzp1r1apVCu4VT/St34nU
r6CuuV1QUFC1atW83jwqpfjvf/+LbrfYOD0h8XHV9OnTvXPfXDYyMjI2Ntbf
SxJsWjA7+XVIsmX5lcSOuXMCSoOIu0ePHj5cwuYTkDSVK1e2P1eKRv7zzz/X
qFEDQ6eW3ji5+48//kj3wYjlzZt3ypQpTi5lIMmHYi8sNmcNqeMC8+TJExgY
iP1xeZCB4AUPHz5csmTJRx991KxZsy+++OLfsD70ZeHkyZOff/75CxXRW0A6
SW0K7q6mJpFq4a3/QHLMnTu3bt26HTp0IOR/WSrIALlYu3atnwzprl274uPj
k0eb2bRgfs1vQvJm+ZXEr+YOgUF49aLJUU85cOBA48aNaeczZsx4oc7rdIf1
Q7EXE/uzhgRBENyB3UORTpgwQVSBIAiC4DV2Zg0JgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIQorz7Nmzv/76K6VTIQiCIAiCIPwbef78+Y4dO0qXLr14
8eKUTosgCIIgCILw7+Lbb7+tVatW48aNq1atmipVqgULFqR0igThRefRo0fr
16/v27dvz549V65c+eeffxq+8ODBgyVLlty9ezdFkicIgiAILx3/TYQ/Pv/8
c1GkgmDN33//vXXr1nLlyhHHde7cuVq1aunTp3/rrbeWLl369OnThMTHDd98
8029evXi4uJUzxIEQRAEwT6iSF9JVq1ahWqqXbv27t27k//uSLJJkyZVrVq1
SZMmFy5cSP4E+BY058SJE1u1anX27FntzfPnz3fq1AldmiFDhhIlSgQFBdWv
X//YsWMpmE5BEARBeHlJKUX67Nmz58+fJ/NNU5zbt29/9tlnffv2bd++/fr1
6/00mPb3338PHjy4efPm27Ztu3Pnjnrz+vXrw4YNi42NffjwoT9uauDkyZOr
V68uUqTIjz/+mAy38ytPnjzZv38/Ldb80ZUrV+Li4mbPnn348GEZGhUEQRAE
r0lmRYpY+v7779u1axcaGlq7du0qVaogzDyVpv/5z3+aNm3aqVMns0hACJUq
VQqFwI18l2rfcOLEiX79+p07d46/b9y48e6775J3f9yIvA8ZMmTo0KGGQqDk
s2XLFh4enjxbK1BN1O8roEgFQRAEQfA3yaxI9+3bh1hSw3QI0fHjx2fKlOmL
L77wSEA+evQoJiZmy5Yt5l9dvXo1Ojr61KlTvky0L7h3797gwYNJnnqJJkSW
9+3b1x/3cqdIEfCdO3cODg6+ePGiP+5rQBSpIAiCIAg28UKR/vbbb+fPn/fi
Xsiwnj17tm3b9vbt2+qd69evFy1atEKFCr///rt658KFC9qD5lcGlOGyZcvW
rl2rvYNArVy58sSJEy1+5XU5u1OksHXr1syZMyfPGLJZkd6/f//MmTP+vq8g
CIIgCC8dnirSs2fPdujQ4fTp017cC0XKb7NmzfrTTz+pdx4+fFizZs18+fJd
uXJFvXPu3LmOHTu+gIOcTiCbw4YNQ2Gql6jBuXPnoki1XJtxUs4WilQp4Vq1
aiXDbFKzIn38+PHAgQNXrFiRDHr47t27X375ZUxMzPz58ynGF3AWhyAIgiAI
Gh4p0ps3bzZv3vy7777z+nZ//PHH9evXNXnABYsXL16xYkVtjBT27t3bokWL
GzduuEzAJ598gmRF4Ol3g3z27NmiRYuioqLq1av31Vdf+UR+kKTu3bvnyJGj
atWq9+/f124UHh7es2dPbSrm5cuXIyMjw8LC1PDvgQMH1Pv65J08eRJpdOzY
sZCQkOrVq7/77rtc00JtOixnC0XKO5999tnrr7/+/fffe3dxPatWrapdu7Y2
pk2VUTUHDx5UL10+tUcotmnTZuvWrc7v7o6nT59OmTKFJjRt2rTNmzfPnDkT
Ed66dWsanncXPHr0KJVLY+j5Dx9//PGgQYOQ9wmJe5COGjWqW7du2qc9evTg
yz///LNPsyUIgiAIrzL2FemTJ0/ws59++qmv1hSjjubPn58xY8aFCxfqtRPX
nzhxIi7esAM5SoO7Hz9+fOXKlfny5dMmQ/J90o8QRSUiDtF7iASfpBBRilru
1KmTpj/PnDmTJ0+eSZMm/Z3Ixo0bS5Qo8cUXX5AGXpIMBPb58+f5YXR0tJaM
+Pj4NWvWPHz48Ouvv169evWWLVtI5K5du1ze1Hk5WyhSQAnnzp07IiLC4V4H
iHO0ZZ06dYgy1DuUQ0BAwJEjR9RLd/NIkWo1a9b0bkJCklBoM2bMmDx5sn71
FikhWKhVq5Z3E0LI4L59+2bNmpUlSxY6S2hoKJV46tQpVYD8z9/r1q0rV64c
n5YsWZJWTa61YhEEQRAEIUnsK1J8LgLj5s2bvrr14cOHCxUqNGbMGPPS79u3
b1evXh39pn/zwoULKA1kateuXUmJNm55/fr1mJiYPxNpkoj5MB3vOHbsWM6c
OREY6iVqB6FYuHBhtcfm0aNH8+bNO3r0aE068j56Femyc+fOefPmKUGoFnDp
5yHwfRQj6Xz8+LH5ps7L2VqRbtu2LSgoqGDBghZzBuxw69Yt1PigQYNU9slm
z549y5Ytq51Y5E6R8s3+/fv36tXL5X5KDjlx4kT58uWpMkOjQodTNaNGjfJa
5+/du/eNN97gIi61NJmtVq1a6tSp586d6931BUEQBOHfjE1FisOtU6cOgtBX
8/EQb5UrVx43bpxLWcJdpk2bhos3H8jID4ODg9F4Lhfav/nmm4hGXyVy+fLl
OXLk0B5D//LLL1xfLQtCVoWHhwcGBp48eVL7PkK6VKlS3bt3HzZsmKb3UM7D
hw+nALWvIYqio6PLlSunn6ug8Ek5u1OkvIyPj2/atOmcOXMyZ87scIMFFBqF
oy3XunfvXqVKlfTjyRZr7RHzRYoUcTL9wx2xsbHIQsIZfYEnJI48k/HixYt7
LfVnzpxJT9GPCesh4ggICMiaNas2bUMQBEEQBJsgURA/+Fnkn/U3N2/eXLhw
YV8tlL5161arVq1WrFihHnZfvnxZHcWo5+zZs9xx3bp1hgQjCIOCgo4fP26+
7LZt29BI/O+TRKI5e/fu/c4776gVSdeuXUNfDRgwQCVVCbCaNWvqlwihMCtU
qJA7d26krKYGT5w4gX7WPyLnCs2bN2/YsKF5jNQn5exSkVLUCxcuJM2nT59W
6axfv76TJ8u0Gf2AITWCJCPA0b5goUj//PPPli1b6qfj+opff/2V0j506JDh
fco/IiICHb5z504vLkvc1LZtW3rK4MGDXY6y0pjTpUuntRZBEARBEOxw5MiR
9957r0iRIq+99hp+lv+LFi3aqFGjo0ePmr+MbOjYsWNISIhPnobjsnv16rV9
+3b1ElUWHR2t7Qelwb2440cffaQXq8i/2rVrI2YePXoUFxenbe+ZkCjDPv30
07feekv/phMQVFWrVlWDfpcuXWrSpElUVJSmIZWoa9OmjV5T3b9/Hw3WtGlT
fUF98cUXU6dO1YvDgwcPBgYGLliwwDCG6atyNitSrjxlypRChQqp5Ta8P2HC
BP2mB56CQvvwww+rVaumDUVSHdmzZ9+/fz/XVMumrPcjnTt3LukhGPEuAZ6C
jIyMjEydOvWiRYu8+Dnts2TJkunTp9dv4aWhghf6EdWXPKcPCIIgCMK/ELUi
PiYmxvnT8Hv37rVq1er9998fmki/fv2Ql+g6swbjXtwR0aJfIn3mzJmgoKBl
y5YhEUeNGqUfY+QKjRs3Rg0+efLEYSIVJ0+eRDdOnz59yZIlDRo0QIroB8cQ
IQhU/TZKJGD27Nn58+dHUpIwtBbf52vksX379kho9bVbt241bNiwe/fu5gFS
X5WzQZEi6UeOHBkQEKBf4X7q1ClKkix4N6+SXJDU6tWrq9VbRAHly5cnwOEP
0q8mzVor0kOHDlG88fHx3uQwKcjU4cOHFy5ciP6kHikHhCLBBaJx5syZXlyQ
XLzxxhu5c+e2nkSqTTkWBEEQBMHn7Nq1K0eOHBs3brT+GuJk8eLFoaGhCJVK
/5s6ders2LFD7ZCfykR4eLjLdd/ckfvqZxvev38f2dmtW7f+/fsbHm3/+uuv
BQoUGDdunIWcO3fu3KxZs1Am6Af+V7v3uAMJigJBOq5Zs8blEqTffvutc+fO
Xbp0QbWSHtQdKmvz5s3vvPMOL1E+ZIpbDB8+HF1ExqdOnTps2LDWrVtzZZf5
tS5nfrJq1apy5cqlTZsW3Tt58mSD9kZ6qfX7BkW6YcMGLms4GOvZs2eknOvo
i9H+Lfbs2ZMlS5ZcuXJRjOPHj4+MjFy+fHnp0qWR39OmTVNzg60VqdK0pNO3
x8GThdWrV9PkwsLCNm3atG/fPhTyxIkTqay6deumSZNm6dKlXlx2xowZNNTa
tWu7nOdAseTMmTNbtmwyiVQQBEEQ/EdsbCyS5sSJE+6+gNTZunVrcHBw6tSp
+T9fvnxKahYqVAhtULly5aZNm5qn9iUJd8yePfvs2bP1bz59+hTxaX42SgJI
JLrX5aUQJF27dg0MDBw1atTBgwcRir5a6I1IvnjxomGvoRs3bij5RxaQQ8gk
pN2VK1esH8dblDO5HjRoEILqtddey5s3L4qRv/U7RJGdsWPHqmVWBkXKrV3u
esT7p0+f1gZv7d+Cy6Ku8+TJc/bs2atXr167dk19h0uhMzXda61IEfn169dv
1KiRrzZGSEjcpqlXr14EJvoohvR8+eWX8+bNo2VmypTpm2++8fSyap8r2jMq
9+bNm7dNzJ8/XyaRCoIgCIKn/J+kMKyIGTx4MN7c3fxMvvzVV1+9/vrrrVq1
QiuqnyxZsiRDhgw9evRwMq2OO6IuLIbREDMrV65UO0P26dOnbNmyLiXB9evX
kUZk4ZdffvE6Md6xevVqw+Isd1iUMyW8aNGi4sWLx8fHq/JE7EVHRyP4tRHO
I0eOoB7Vp9a7P7nEo1ug0Fq3bu1u1bmGtSLlOh999JH+AFmHILBRjLTDTZs2
GT4iQAgJCUmfPj0qWtvG1j5qnyu112g1E1WrViVu4lP9PgOCIAiCIFhz+/Zt
83NzA3oVgdjr1q1b6dKl3e0ujlDJnTs3clS/6vzx48cNGjQoVqyYk301uSP3
tVgtsm3btixZsixYsAAdhZpyOfyFag0NDUWNrFixwuuUeAdFN2HChLNnz9r8
srtyRuejAA0nq1ImKMaZM2eqSZJjxozRHhl7oUg9uoWa78r1rR+4WytS8tu3
b9+33nrr2rVrNhN5/Phx0sCvtm7das7a4sWLqeWuXbuaR79JSfXq1fV7NxGk
DBs2LDY21s5pqmon0rx587pUsw8ePODiadKk0e8z4A/IF/FXVFQUPSImJsZX
x0AIgiAIQpI8evRo0aJFn3zyyWh7jBs37vDhw9bXxK99lxR6N40UadOmTfny
5c1bgyYk6j2UTFBQkGGRPr9q165dQECAk6N51Hr2li1bulOkOOUZM2b069dv
5MiR7sa+duzYkTlzZnfDp36FZO/evdvmU2mLco6Li1uyZIlZg124cCEiIoJG
cubMmeHDh2tzPvnmoEGD6tati0hTo9ZJ4tEtLl++XK9ePXSau6txnZ9++gkp
mz9/fneKVB0TQCxjf6N+anDq1KnUpjm4IM56++23M2TIsGHDBvMPaUgULIpU
v43t999/ny1btvDw8CQHNtUkUrKszXDQc/r06cDAQC6l7VvrD+iSI0aMIHeU
G124f//+1Is/jhgQBEEQBDM46+LFi6dOnTrJUU1F+vTpEaW+TQNeD01oOHpe
Y9++fVmzZu3YsaPBOaoxUgSJTUXkErXn5wcffOC158V947spmRw5cpT4h1Kl
SqGFzDugpiwW5cw7LlPLm0OHDqWRzJs3z7DN5saNG1u1aoXE3b9/v527e3EL
Cyj22NjYFi1adOnSxZ3g5DtI3Fy5cl26dMnmZRMSp9oaTiVQfP3116+99lrh
woVdjrgip/lV9uzZ9ZOZKfDOnTsHBwdbP8fXJpEOGzbM5ZjwqlWr6Hd+DXm4
7+zZs7ds2aK9gyYvV66cd4eiCoIgCMLLiJrvV6ZMGbPDVdtapkuXbvny5YaP
EAaFChWqUqWK4egcj+COOPr27dt7PT0PQRUSEkIKk/+RvadYlLM71BnuCBVE
o3amqm/x3y24clRUVIECBezvH0sRIXGrVq1qaFRqCi6iEUnvUlcvXbqUNoCw
NGwdsHXr1syZM6tDuNzdVE0iRe66nA/8/PnzyMhIbo249d8k0lOnTn3yySda
4skv8rhevXpODjgQBEEQhBcKPLi1aFSH3RQpUuTGjRvmj7p27Zo9e/YjR44Y
PtqwYUOGDBlGjBjhZG+fmzdvFitWLCwszOVeSXZQC7pff/11tWf7i4xFOVsQ
FxeHIlq8eLGvDk5NtluQ3x49ehQvXhzJZ/Mnd+/eLVeunHmvMKRghw4dkIVj
xowxJ5I28P7772fJkuXbb781fHTv3r3KlSvrN5U1s3fvXn6bJ0+eCxcumD99
8OBBjRo1/DqJlBzNnz9fv3vA8ePHS5Uq9fXXX/vpjoIgCIKQbCAUt2zZ0q1b
t549eyL5ypYty/8un3jiED/77LOAgIBz584ZPlJnDOXLl8/waP7Jkydt2rQJ
Dg62uajHHRcvXsyVKxd391oLqRSiKHbv3u0kJcmARTlbsGzZMurOo594ip9u
8ezZs2bNmpkX7CNQo6KievfuTcucPXt2dHS09lj/0KFDhD9UKAqZTzt16qSm
BCBQeZk6deoFCxaYb4QQJSThgua5H6rMrQOW6dOnWxxn724SKf1rzpw5xFN8
tGfPHu39tWvXVqpUSTv0AbU8bdo0umGfPn1atmyJ7FcDrcSJmupWh5rRF/r2
7Yv6RT+XKFHCsLusIAiCILykrF+/fsSIEdqiG3w92g9f6XKAbs2aNSgBs9fG
J06ePBmPbFCeGzZs4PuLFi1y6DRx5VyHuzu5yMqVKzNmzBgXF+fkIsmDu3K2
YO7cue3atfPrnFg/3eL+/fu0ty5duugfdp84caJixYrcEUVH42zevLl+g9bY
2Ni0adMOGjSIkAfB1qtXr/bt26tn2cuXL0+fPv3EiRMNTe7u3bvVq1evUKGC
/uQvPUjK3LlzR0REuByHV4elokjdbUGmJpGWK1fOvB6N7w8dOrRgwYJaoEeO
EOF169ZV4hY5Xa9ePbS0eklKihQpQkMlJchUbcorXxs9ejS/3bt3L9n87rvv
0OS8IztNCYIgCC87eLdGjRrh3KdPn648OO80aNAgTZo0CxcuNH8fwYnXdvlc
8uLFi8WLF9euk5AoI4sVKzZlyhTnHnPx4sV58uTBUzu5yMOHDxE2yBL9iqFL
ly45HL/1Bxbl7BLKfNKkSX4V2/67BS0nX7588+bN09558OBB/USUQlOzRlGt
6mgt9VLbi0AtjHrzzTeV3qNya9SoUaVKFb0y5IetW7d+++23LQZ4t23bFhQU
hG50uQLr/Pnzb731lrt5yIjhzp07o1dRreYB2EePHpGX999/X5v/+dNPP3Ev
NemaPIaEhFSrVk07OAzNT0OlY16+fBkpq23uRAoN50whSkmweXmXIAiCILxc
4PvwpChStdVkQqIibdiwIb7VcECSAlFXu3btbt26uRSZR44cQc0OHDhw2bJl
vXr1atKkCR7T+SNF9ShW0ydO4Aqol3r16pG72NjYsLAwUqtfQIQ6qlq16vbt
29VL1MWnn346a9Ys3x5wmSTW5WyGegwPD/frtv/+u8X69esJN/RX3rhxY8aM
GWfMmKEaj9qySZtFrCaR0iTUSzV6iVzUBj/PnDmDfCX0IJDZsWPHZ599VqpU
qe7du7ubl8td4uPjmzZtOmfOnMyZM+uf+HNxWgiCmT6idrHIlCkTIpBgQTuY
tUSJEgEBAWofDCQrocRHH32k3yMUYZk/f37tWFsqt1mzZh988IFqz5s2bSKz
+u5Gvnr37l26dGmiOQpHvUkLpJP+/PPP+pQT9OXKlUsd5yoIgiAILzV4Or33
VIeM58yZ0+V2prjUadOmlSlT5vbt2y6vxheuXLmCo7S/23mSoBgRJJMnT/bV
fLknT54cPXp0//795q3F4+LiyLu2Pou8BAcHO5m/6h1JlrMBSjskJMTd82if
4KdbqF25CIK0cIN3oqOjs2XLpj2tRqxSKYQ56uXJkydRgKhN9ZIiQnByBf0e
oVQxWnHQoEFcfNGiRRZDo9xu4cKFKNjTp0+rbW99Evvo2bJli3asLcI+Kiqq
SpUqamMBLbP62adqx4DXXnuNsE7LFH8MGzbM0B5IeWBgoMWpvoIgCILwkrJk
yRJc4ZgxY9ytaj9//nzRokVtHojpEzZu3IhIdrnA2beoGYn6rem5dfbs2e1v
v+lDPCpnNE+LFi1cbtvuK/x0i5s3b5YtW1b/MFod4VSoUCFN/SIpUXQEEXsS
Qanmz59fGxhEeb7xxhsrV6704u5//fXXlClTuJcae1SbmGXNmvWnn35ynLP/
H675ySefqEmkjx8/HjFiBIpXa8zqdADDbr28OWrUqFy5cumnqVy6dKlr1676
rQDUQHqrVq24rK9SKwiCIAgpy507d3DxCNEKFSp8/vnnFg+LcZejR49u06aN
zROIHMJduBde2+t9n+xz//79ypUra8/K1fiVfkFKcmK/nFU6hw8f7r+pBf67
xcKFC2vUqGHYeXX58uVFihRR8zmRarTJEiVKUAvjxo07e/bs7du3K1WqpLT6
jRs3qlSpQhxh2F/UDk+fPh05cmRAQMDWrVu1N0+dOhUUFBQVFeWrnCIX33vv
vaZNm37//fdIeu5o2GBqx44dKFL9wa8//PBDzZo1AwMDiUqQ5SoK2Lx5M7nW
hkPVfBKipxdwFrQgCIIgeM0vv/yCEB06dCiucODAgdYPi2/evMnXtm3blgwJ
2759O4rFr8+jNY4fP44+0aYRqgUpzZo180Lt+ASb5Uw6SWR8fLz/UuKnW9DM
ateubT7uk9uFh4e3b98e/da3b98VK1aULl26f//+M2fOJFhAsyFH0XgTJ05s
3br11KlTvVv+z31z5Mhh2D0JpdelSxck4pkzZxzl7R/QzMhpRCmJdxnakCM+
4gtkBNkfERHx5ZdfXr58marv2bMn2b979646noCk9ujRA1k+fvz40NBQFKmf
TkMQBEEQhBTn9OnTb775JgLA+hh6hGJISIi/zy7k+ggP/ZmJfmXZsmXZs2fX
ntiqBSn4fZKxZMmSFNljx045X716tW7dutYnYDrEH7d4/vz5iBEjhgwZ4u5k
WPQqEk7JxT/++MOwf/7jx4+vXLniZOScQMNlwfI+vcCvUyDMIKovXLigHz6l
WMigKhwSg1gltUhTojOXx/gKgiAIwqsELr5Pnz6pUqXq2LGjxdggnnHBggW9
e/f23xw2rhwZGRkbG5s869zViv6sWbOqKYUohH79+qVPn/7rr79GFsbFxaXI
PuR2yhndMn36dHe6zif4/BYU5qpVq3r06GFeXCaYITgaM2aM7DsqCIIgvKrg
4/bs2XPy5Em93Jo1axaKNH/+/C43ZtRALK1du9Z8IKOv2LVrV3x8fLJtu3Tv
3r1KlSplyZKlZs2aMTExffv2XbJkSdOmTUNDQ6Oiom7evJk8yTDj73JOEW7c
uIHEFTlqk23btn3xxRcpnQpBEARB8Bdffvll+vTpc+bMqd8NcuHChalTp86V
K5dfHwS/aBw7doxyWLBgwe+//37+/Hk1NfH58+fXr1/36/CjICQJjTNFltcJ
giAIQvKwfPnytGnTFi5cWNuORm1WkypVqnffffdfNYS1dOlS/U6kgiAIgiAI
QvJw7dq1li1b6mXY77//XqVKlUyZMq1duzYFE5bMqEmkFStWlDUjgiAIgiAI
yc/x48c//PDDIUOGbNy4cceOHSEhIQUKFFizZk0yn5uZsjx9+hRFOmHChH9V
rgVBEARBEF4cnj9//uOPP06fPj0mJmbr1q3/qof1giAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIwr+Z/wtOBaUQ

     "], {{0, 107.}, {902., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{705.9999999999998, Automatic},
   ImageSizeRaw->{902., 107.},
   PlotRange->{{0, 902.}, {0, 107.}}]], "Input",ExpressionUUID->
  "bb2fe010-0e52-456f-9b67-9f0a988bd8d4"],
 ", FieldNumber = 11"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 3.831807216313492*^9, {3.8318079460699177`*^9, 
   3.8318079563486733`*^9}, {3.831821408066439*^9, 3.8318214084299297`*^9}, {
   3.8318256995252156`*^9, 
   3.831825699962925*^9}},ExpressionUUID->"53aff6bf-6845-4760-b424-\
e96b590956f3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "11"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8312298277474966`*^9, 3.8312298282274446`*^9}, {3.8312302811942577`*^9, 
  3.831230284539338*^9}, {3.8318079633937254`*^9, 3.831807963505604*^9}},
 CellLabel->
  "In[301]:=",ExpressionUUID->"f99ba893-6bf3-421a-a38b-c0aa99439aaf"],

Cell[BoxData[
 RowBox[{"Gt", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, {3.8312302820259466`*^9, 
   3.8312302849002533`*^9}, 3.8318072239900155`*^9, 3.8318079668343773`*^9, 
   3.8318080664900227`*^9, {3.831825542640394*^9, 3.8318255832442617`*^9}, 
   3.8318257279495864`*^9, 3.831827811319681*^9, 3.831828162074024*^9, 
   3.8318397935135546`*^9, 3.832947505875945*^9, 3.8329617905841317`*^9, 
   3.8458268824153214`*^9, 3.8458524735834827`*^9, 3.845857083947598*^9, 
   3.84591963086868*^9, 3.8460065825249834`*^9, 3.8460998940908675`*^9, 
   3.8474704561119328`*^9, 3.8517006412547317`*^9, 3.853975457120036*^9, 
   3.8549774167169857`*^9, 3.854989269989977*^9, 3.8549999074752903`*^9, 
   3.8551652563521776`*^9, 3.8551823255072327`*^9, 3.85518586983202*^9, 
   3.8553306471347504`*^9, 3.8553398523642583`*^9, 3.855343189460148*^9, 
   3.8553440236351943`*^9, 3.8553527506833553`*^9, 3.8554496144987297`*^9, 
   3.85550761601515*^9, 3.855508413160136*^9, 3.855512901147105*^9, 
   3.855533332517313*^9, 3.8555789267152576`*^9, 3.855593299114123*^9, 
   3.8557506115503206`*^9},
 CellLabel->
  "Out[302]=",ExpressionUUID->"7a60d5b6-efc8-4ace-928e-9c38ea2d5210"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
          RowBox[{"Lap", "[", 
           RowBox[{"Bt", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Ft", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      " ", "-", 
      RowBox[{"2", 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"At", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"\[CurlyPhi]", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"CommuteGammadown", "[", 
             RowBox[{"ld", ",", "mu"}], "]"}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Hamn", "[", 
              RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.831230293795329*^9, 3.831230299121489*^9}, {
  3.8318072483544436`*^9, 3.8318075086103964`*^9}, {3.831807641331113*^9, 
  3.8318076496432943`*^9}, {3.831807851091679*^9, 3.83180785513081*^9}, {
  3.8318079768588448`*^9, 3.8318080340025797`*^9}, {3.8318255020874166`*^9, 
  3.8318255724996223`*^9}},
 CellLabel->
  "In[303]:=",ExpressionUUID->"17562af1-8007-4bf9-b8ac-6a50b6f2e8fe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.831807825939827*^9, {3.831807866162796*^9, 
   3.831807866297452*^9}},
 CellLabel->
  "In[304]:=",ExpressionUUID->"0df541fa-fae9-4b9e-aa4e-5431545ebcbd"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, {3.8318078154905806`*^9, 3.8318078284346147`*^9}, {
   3.831807862437693*^9, 3.831807867464693*^9}, {3.8318080495078526`*^9, 
   3.831808067116417*^9}, {3.8318255435181837`*^9, 3.831825583941395*^9}, 
   3.8318257285908012`*^9, 3.831827811882376*^9, 3.8318281626389136`*^9, 
   3.831839794097087*^9, 3.832947506672633*^9, 3.8329617912074647`*^9, 
   3.845826883122838*^9, 3.845852474257516*^9, 3.8458570846213408`*^9, 
   3.8459196315564384`*^9, 3.846006583111011*^9, 3.846099894787693*^9, 
   3.847470456815691*^9, 3.851700642008174*^9, 3.8539754578277693`*^9, 
   3.854977417447962*^9, 3.854989270641417*^9, 3.854999908180321*^9, 
   3.855165257180069*^9, 3.855182326264787*^9, 3.855185870511436*^9, 
   3.855330647914363*^9, 3.855339853239078*^9, 3.8553431902415533`*^9, 
   3.855344024336049*^9, 3.855352751433631*^9, 3.855449615181314*^9, 
   3.8555076166560373`*^9, 3.8555084138256617`*^9, 3.855512901843861*^9, 
   3.855533333264559*^9, 3.855578927437991*^9, 3.855593299883996*^9, 
   3.8557506122376575`*^9},
 CellLabel->
  "Out[304]=",ExpressionUUID->"2d4c5876-bd74-4d30-8a63-6ca462eddc74"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[305]:=",ExpressionUUID->"626a2266-ff86-488a-ade6-2e579d283812"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQVwFVfbx4HgRYpLsJDgWtwKBCsUggUI7ikJDsEJ7hJcE7y4BikwFCgO
BQYpEGCAUjqlpQw28PKVTtvJ9/typvvtu7t3c7N3702A85+Byd279+yRR/7P
Oc8569NzUOuvUiRLliwsLf+17jHSf+jQHqMDP+VD24FhoX0GBvduMnBYcJ/g
odV6enGxF//uc////R0rISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISHhTrx+/XrHjh19+/bt1avX+vXr//Of/2hu
ePHiRWRk5JMnTxKleo7w999/nz17dvz48Z06dZo+ffrDhw81N/z111979uw5
d+5cYtROQkJCKmmCIXvMY3hPHd+HjX/++Wfv3r3lypWrVatW586dq1atmipV
qoIFC0ZFRf3xxx+xcfJ/4MCBunXrrl69GmVJ7Pr+P+7evduqVauSJUt26NCh
SZMmn376abp06QYOHPjLL7+IG+7cuYNS9+nTB7lK3KpKSHyckEqaUMge8wze
X8f3YYPOnzp1asuWLW/evKlcjImJQeYZoDRp0hQrVixnzpz+/v6XL19OxHrq
cfjwYWq1fft2RVpevnw5Y8aMHDlyJE+evNC/gPoiWo4KuXbtWokSJebPn498
eqriHwXevXuX2FVwIzQGCuGRJssQtijpR4WPpMc0+uL5try/ju+Dx9u3b8+c
OWPoQe7fvw8/xF9fuHDBkcnl+vTp04sXL87Nbq7pfwEvcOXKlV9//VX/FSq8
Z8+eOXPm8P+bN2/My/nxxx9Hjhx5/fp191TzowO25fbt22PHjvXx8VEru/N4
/vx548aNsQx6mUwiBBKh+uKLL8qUKUNsFRIS0qxZsypVqly9ejURq5Q0YZeS
fjz4SHoMZSlQoADuvnfv3r169RLTFK9evfJkHVx0fBJJFigRlH7mzJnvu5pI
uI6nT5+Ghob269evXbt2WbJk+eGHHywU8vr16ylTpkRHR+uJRxIhkNQQTpI2
7f8du5whQ4agoCBr7EtC4uPE5cuXvb29U6ZMiQbly5dv4sSJMK7ErpSEhMSH
CbjEjBkzLHOSpA84SVhY2C+//PJeT55LSCQWrl69OmHChD///FNq0McGvMOR
I0dgoQjAzJkz9cnbHy3evXu3YsWKQYMG1a1bd+PGjYZrAdyzfv368XFYtmzZ
RzIR9Ntvv8XExLhSggknuX37tuG8tL14+/btiRMnoqKijh07ZrLKY7mlCidx
oY4Jhme6TkLCedy4cePp06cWfig4iQkhSbLS/urVq9WrV2/ZsuXWrVsyBdEC
/v7779DQ0Pz587ds2bJLly72zjDjspcuXdq3b99WrVrduXPHxpLdDboFjgEV
gaj369evRo0ahunruDbYSIsWLbjBx8fn559/dlTaB7NrDwnp0KGDi/MbJpwE
Re7YsaOjxRd6ODw8nBuGDx+u3pHnDIEUYMgYgjx58tSrV2/RokUPHjxwdKcr
LRWcBMID2x8yZMi6deu4YqEcNTZs2PD5558rdvjRo0f0g1pmzLvORtC9PGXJ
kiVTpkz5+uuv5RZIDYhN8JgQWrUc8reH0yESF7QX2ejfv781yYeToOnR0dFo
+ujRo48fP65J2/CYtGtAuxhZjIPGI+ApsC2xccYcaz916tTChQuXLFnywIED
kpkkCAw0nAHJMUzUoTOxhFjmICO0b9++T58+ERERjvjGjh07CEXv379fsGDB
5cuXu7kp/4Vr16716NHDsNqge/fuMARcBoJk+POffvoJe/ufOHwRB/2edDW+
++67cuXKGXKSpL9rj6EnlnHUFWrQwICAgCNHjrj4RPO1GzqzefPm+FzN9T/+
+INRu3Llyvr16/PmzatInZMEMjaOugwYMMDLy2vatGnmc8IuthSvBMmHlkAh
kBz+qF+/viPK6gyoeWBgYO3atRW/tnbt2mzZsn3//ffq2xx1nY2g8K5du6Jc
qPbOnTtxGb6+vvSn2BppAZj34OBgR6raq1cvzPuJEyeSeCYh1Tt16lTPnj2h
uwUKFKhVq1bZsmXReiQTsUTg16xZA2e2ZSUC44YY93ICjI4rUucK9u/fT7Bm
eSoDNa9cuTKajqPHg9SpU2fMmDGadFMPSLsCmBUaRyCD0jGsqDN2pk2bNhcv
XoyNmxth6Pft26f+CRa+atWqmTJlOnz4sAdq+MHAnJPExiUNEsIPHTo0TZo0
yZIlQ86PHj16Jg5YbIJTpCJ16tRNmzaFuKp/iCwRJKIRmzdvzpo1K/Ljifb8
i5cvX0I55s+fDx2i2p999tmuXbtEtbFvmzZtosnZs2fHnHLdxNzRfCwMrtCc
6zriJEl81x4RbkhISJkyZUqVKpU5c+bixYsvWrRIsH09uI4noitc9w7mnITy
cUPdunXT8EBiT37FRXwi9urZs2fiuvME8saNGww67SXSMame6y2lgQ8ePFDG
9OHDhwRNgwcPtjzK2LdixYoNGTJEVIly0ES8nmaOwlHX2YXnz5/TMwSt6ouX
Ll0qUqQILsNa66gqWrl48WLoeqpUqSgHbRKqevr0adSTCILrdevWhd7b1I6E
ASlt2LAhxNIR70KuMIAZMmRgiJFS5TrcmCGjRYcOHcqZM6ddcRkRxN69eydN
mpQ+ffoUKVLgDYn+9v2LLVu2YPeIg+i0xErZIl6oXr26Rk4SBKRCTTZwIojH
N998o77H3dIugFRjwNFfPz8//J063rl+/TqRAmMxbNiw/Pnz37t3T/Nbqs0o
dOzY0ZmIT0IgXk4igGumz+EeREb6b8+dO4c7y5Url54QosWtW7cmakiUrGkk
gVBLUCm9wfz99987deqUMmVKvI+jszLQcfRaQ4D1MOQkSXzXHvEphkuhZFD9
0NBQTByDhZfX349iwgRsCbvizXF9/PhxtWrVtm3bpv8Km58vXz4MsuGmG3MC
iY8jbCHGMTdiNrZUgCGGmkIqLGeYIGB019atW8VHvFLFihWRXr2tM+k6F0Gv
QlkpHLag+UowCld8EMSGEogR9LKHfI4dOxYtJkqFFFl+hGWgpzy9bdu2erou
ZpIRKrTGUJgFhYY80DrNpJaLoLdhQblz5zZMeaJiDErRokU9M42gBrb0q6++
wpjY6IgxpHQgxWrMuPukXQCrGBwcDK+AWxq6MKwoAR0BJsKpt+SnTp3KmDEj
hNZRoCehh5OchECvYMGCjjhJbFwo4ePjg4JcuHBBff3q1atwlblz5ybKmhpK
AUd1xEli42bk2rVr5+XlhdnR15ArODgajrMzf5DJ2k3SBKaS8Co6Olp9EcUR
FA5np1EifEHt2rUhEraMY7ychBtmz55dtWpVzTwA14kBCTmxUfpfxUsgBSdp
0KCBiYlwvaXiQB4CZ4WB8DgemjdvXpP0FXPQG2rvQ/OzZcu2ZMkS/Z2Ous51
EF98+eWXiMe4ceM0nSMmoBxpmTOIjIxEDQMCAgznIvDmuCRc8LFjxxJaMoES
kawrcotjOn/+vL5iNHbmzJk4rObNm5tkcn777beffPJJ+fLl7R0RRpmxUC/n
aXDt2jUqpkwnegw4Yj8/P1cIGNEikSxEVGE1GIqsWbNyUcNz3CftsXHTyE2a
NMHr4R0cCTbKHhYWxkCMHj1a70OdMTgSGtjFScDKlStTpkxJPKjMbiEwkydP
xhTfunWL2Gr//v021z4+xMtJYuNypby9vbHwZ8+e1XyF427UqFHjxo3jlaj3
jpNAHb/44gu9i8Shp02bFvXXOP09e/YULlwY12PL053ZC0wAwhO3b9+uvkio
8vnnn7do0QIyuXr1ajVXdIZAOmMiXG8pcWKrVq0qVKig1ASeg9msVKmSNQdB
gVhjSlBmCWg7PhqdOnnyJC5Pc79h17kOsUcPuqVf+SJcLV68OCpgzTWgmzBk
9HTq1KmG5EGEyenSpUuoDcGs4SwGDBhg+9oo9Vy3bh3KUrFiRfPpL74tWrRo
ly5dbJw3ECJBjw0dOtSR6YbBEuNbzvOxBvo5JCQEbunKesrdu3fz5cuHY1Km
r8WEg6Hfd5O0v3nzpnPnzvTwsGHDzAdu165dWBX+138lOYkF2MhJUL0SJUpw
jzLDzEDg09EdWAr+wi6P5jyc4SRc79OnD/d0795ds4KDy86fP//EiRPjDbLe
O06yfv16CCSxrSacuXPnTo4cOQj9Nm/erFwU3UjIYNe6Lf2J94GTEMo5uodn
8cSgoCC1UUWEcubMuWrVKqzWmDFj1JOlzhDIeE2EXS3dtGlTVFSUIjaIR+7c
uelza6UJp1atWjXB9qE6BN2+vr78MWXKFP3WA8OucytgKaVKlUJyrKV8EBdD
4dKnT+8oG3D58uVeXl6YIP2SvTncx0nOnTuHKCJOR48eNb+TUatTp87SpUtt
fLoQCfTUZNni0qVL48aN83CiGjIJQ1i4cKErhSDAaLdy7jGDGB4eTnsNN1O4
Q9rFVGeKFCkqV66McJrfTGhQunRpQ8mXnMQCbOQk2PP27dvj3AkShXhQ5uTJ
k2vVqgWZx0p7fvnGGU4SG7fLEu1Wb+UQ2Lt3L35Tk1hliPeOk+zbt4+ok9hT
MzuEzcd7Yv+JAZWLtAuDgPtzfQRhEbDThg0bQoeSJ08OiUVadu/ebbhwxhN9
fHzUCQbPnj2DeHTr1g0vo6G4zhDIeE2EXS3FTk6bNk0kN86bN49QetGiRZbD
ZJE5gMfv1KnTpEmT+vXrt2bNmpIlS6K2s2fP1qdCGXadjXj9+vX+/fsXLFiw
ZcuWx48fx8alGRcqVMicZJrg4sWLiCK+zLDCDArKhUzOmjUroVnHbuIkYl+V
YSCjx/Pnz5s3b37+/HkbK2CYTILUwXyUybRHjx6JXSGexI4dO6Bqrjf2/v37
ISEhNOfgwYPIec2aNVFewzvdIe0//PCDt7c3/g4Jj/dmjH+bNm0MtzxLTmIB
NnISIRvoqdq2cJG/E+tYYCc5yYULFzJnzgwtQQLRa+JZYk/uDw0NLVu2rPke
DQFHnITr+iUh5BMPhe9LmTIl3ipRdoox3IRR6j0CAidPnsyYMSPmTp2vSA1x
N4aTk2rA6AhniFkqVapUUQU+orMWCBtP5LmaDbnQXeiH3r87QyDjNRHmLUUk
oK/CP2KyZsyYoSkHj6yMJpJP6LR582aqZLhk42RplIMvxvvcvHmTIBRNFKqK
DSRYdsSdDLvOddCQkSNHMqZwP2QbZjto0KA9e/aIfI9cuXIldB5DYOXKlXRC
06ZN9eOCb6pfv37atGkhYxYCYVc4CcMH/cOANG7cWEOA6V6qhKY4k9ZLo7jf
3sNJDJNJrl69SvSXiK+2pLeHDBmCZXO0mPX06dMRI0bkyZMH04dZgLFrjnDB
vygLyjQE44mOwHDMG2WvtGNbgoOD6V715j4TIKLffvutoSZKTmIBNnKS2Djb
QvCLf7c3KLAMJzkJxgduz22TJ0/GzOKRly1bhjdBuQ4cOODMgww5CbJK32qk
Gs5DZdKnT4+l7dGjh6+vL/4oibwMBRkgtKcfiErUGxyIVlB5k1fI0SjYSOo4
+Pn5YaspBI4Ho8N/odpfffWVhVQKnoinmz9/vslzE0QgBeMyMREmLcUhYm9T
pEhBGzGq+FD+Vu8XxmxOmDDByYkC50sT2SkmqYyGiLfrLAC/XL58+S+++EIt
52/evKGeU6dOxcuULl3aGQKvAWOHIgjtUww7f2Bzpk+fXqBAAbiK5XjfMid5
8uQJhATSzh+odufOnRUazNgFBgZS4cTaTqgkk4SFhSkC8+LFCypp74gnFCIL
2t/f33AvIYwaU0C1cRDZsmXjD80ZEdwwatQoC2es2SvtxFbYZKrnzKq9Oc6c
OePMRj8JNezlJOvWrcM04XCdWe/wAJzkJOiCEMKBAwei2nPnzqVDMGXOnz2r
5yT058yZMzVrzUh4REREnTp1lBlXPDVR2Lx58xyVzE+wzPR8soQgR44cFjZm
0g/QMCwG8Yu6IQRf+fLlc5Q7KlhWunTppk2bJmwRhrpDhw5p0qRxMfFM7EBX
G14NEkogt23bRk86Oi7ApKWMwooVK3gEDxK/hbONHDnSx8dHiaC///57SIUz
CzQJKk0sJw0bNixByxbxdl1Cce/evZIlS8L69DPke/bs4SukrkWLFhaC9N9/
//2zzz7DbgQEBCiHfeFe0YsyZcr06dPn0qVLlqttmZOsWbNm48aNsXE58AQs
MDGFxxLIw5QcbbXwAEQyCRXgf/xdvXr1YP74Pvj2iRMnPF8fBQwlrLVdu3Z6
LcAytG3blm5UkucRdWresmVL4a9RiiVLlmh2AjoJe6VdLOV/8skn+uzxhIJg
E1NMn8SblCKhwF5OsnbtWiI+W0bTFjjJSTAygpNg+a09SM9JHj9+PHz4cE1s
i30LCgrSTGx+/fXXY8aMMel/aNL58+dPJwQofkInusUhqGnTpl29erU6OqDf
unXrhtMxPGhF7MWDfixatEj9KyKXLFmy9OzZ05V1fJ7Ic01OHEoQgcQsEMHB
uBwlJZq0FAlp1aqVJpuUWkEkIJk0nL/HjRunX6czRIJKgwzUrVs3oUcOxtt1
GoiDoZDYQYMG6ddf8BqBgYGo/6ZNm/S/FRPUqA+k1EJcKdZ9/Pz8DE/upU94
LuNrLYPRGieBVPMTwb5Eeq06xUjs7cVtGfaGZZgPgRoIA1Q8e/bshw8fJrrB
qjAEISEhpUuX9vArljRgBAsXLhwaGqrvbcKB3r17a+whtW3WrNnly5fFb+lz
a+fPJFTaiQRRNCJQwkbNDIaytxd/5/rb36gPo4moLFy4MIkfRJx0YC8ngegm
T54cC2N4fITn4SQnQa9RcG7DvVp7kJ6T7N69e+XKlep76GEc6MGDBzW/JbpH
NRJXYsXZ13iWefPmaWpCH+KPHJ2uQCAAnWvUqJHG2hC55MuXj7DIlWR4EUET
fbuyiZLmYLQXL15cpEgRjLZ6CkgDk5bC0yIjI/UO9/bt2wTyr1+/JugbMWKE
k6vG9pZmiIR2nXiFTevWrRm1+/fva77du3dvunTpiMoNk4LwjPhoyJ61Fzbh
9FOkSEFVDUWFhlSsWBGrjnyaFMIo8/QtW7Zs/m9AG4jEkcONGzdqvuLmM2fO
GJoFeh5STZlE98h2tmzZhN8UoCjqg5WzN4PUfAjUEGe4ff755+qVI5qv3jzr
zOPQhfHjx491DuHh4fSYuTiJ4E45bVgBfh/XbPhuGsJYdJPKoBREZ05WXoOE
SjuShtWFPrVt21bTY5TQoUMH0b2Gq6X0+fr165cuXbpixYpVq1ZR7VVxcMQG
KQRdRlo6derEQ629kfCjgo2cRIQk4iD3JDJV5SQnEXEHdtVylpSGk4itZKdO
nVLfw7czZszQG17k2fbN9QkFboXxRdH0YoDOouwVKlTQj6k4EgT7vGHDBs1X
Yp6kTZs2rtAJcVopkZQraXtEXpjTSpUq5cyZc9KkSSYvFTJpKVcMPSYXhw0b
hgdZtGiRnm06gr2lGcJC1+GImzZt2qBBA00yACMo8j0cnbBBbYlEateubSG5
ggK7detG4Y4OqUNteS43BAQEmLQFIocrrFWrVk0d8uTJw9DXqFFDc52bMX3m
db5w4QLeRHPaBtKeMmVKijVnDgLEO7hdJyMOR0OghqOTSeCNEF1nnqKU07Vr
V9igk8vBDLG/v795Vti9e/dy5cqlX2fk46+//mo4vvDwUaNGoRFhYWFiD5cF
WJB24hSqGhERobmOQLZr1472MhCGpfEsBJ46IxVeXl6CvUydOtVkhooInWAn
Y8aMmJddu3bJV/KZw0ZOgh6hTYwRpSXK21v0cJKTIJloHEG0MmmPFI0bN46e
cfIESA0n4bmomGbH+u7du/UnPmES+/XrF+85sW4F4V758uWxtIYtFefzG6Yv
UnkMu2FYJ170MGbMGFcUkCeWLVu2ffv2rh82RTXo/Bw5cuCMHL0XzKSljiDm
vqKjo7HDrh+YaWNpFrrup59+InIkItYMmQhCcV6aeT8BeJR4tUpUVJSFeooM
BJPVXuovXHDjxo09vO+GfoDNQj+IhdXXxT76vHnzxstJKGHevHnOn3zuaAjU
EG8+osOVY6AEnjx54vkjWzUQeR3xehM1xE4cPLV+htZ5WJD2LVu2ZM2a9eTJ
k5rryAkGGXlr0qSJubyJJTxHZ/sLMI48KFOmTJTm+krQRwIbOcmlS5eyx8Hz
m+IdwRlO8urVK6gUJnf27NmKKUDIZ82alT59evUxHSbQcxKiNvWGerGNQnNu
Ko9bunTp9OnTTTpfnKaO5GdJCIoWLaqZpXEE4hTCnx07dqjN4JkzZ5RBFGfK
+fr66pf7xfKxfkuIeEOcZkOxBdCfRYoU6d27ty0UlwbOnDkT8okNNOxwk5aa
AIeFEcNf2xL+2FWaha47dOgQkrNnzx7NdXS/QIEC2FVDibp+/TrCCWmxsOMm
9t+JCKrqaKs4YyHyOeN9D6YhXOEkgowhD8KbvH37VogNsYa3t7cz769B37Gu
zk/XOxoCNcSkrrkrTCyI43y7devmfG/Tq0OHDqWXTLb1xYuESjvjOHjwYKpq
ODOzatUqLy+vKlWqmCe3QKIwJnXq1DHZEEf5JUqUgKc5v11Cwi5OAqXs3Lkz
Y4TpSCKTJLHOcZINGzbQLuJ9zYw9bAF+5eTWTn0+yYIFC3i0MgdLB4aEhKil
FwO7cePGL7/8Mt4ZS4rdvXv3Nqexffv2gwcPOrOljpirbdu2GhsoFp4UOkE9
p02bli1bNs17n2P/lQr9Syiwlqgh4bOLO+DEobLWMicNIey5oywXk5aaAAtG
jJagn3igNEddRw/gMqA9wcHBgg8rux6mTJmCQxw4cCDftmvXbuLEieIrscsD
XdDbVXQKh5IuXTr1iS54mZ49e8LJFY3bv38/Vwwt/LJly0ySScSmM27w8fHR
n6XjDFzhJNHR0WnTphXvfaMrRo4cKbJeqWpQUBC1QsdNfk4/8Gj9/A/9OWjQ
IKwBRolwg2LFhKrJEKghkknMXWFigSoRoSRoRotgjc7s1KmTK7YiodIuJngr
VapEV+P+ED/1fDilQcLNOaeYHtSvoGlw7ty5zJkz161b18IG548WznMShskR
J8ElIQ/ipcz2agpRGMqLk7U2rackLDniJAht3rx5Mbka7sEPu3TpEi9VVpej
4SSYL5yLsstmx44daiv95MkT1KFMmTKuRAcugqahrfpd24w1NEPtArZs2YKG
6q0rY426aY5zx8iEhoYWKlTI9Zekw4t4rjNHKTqJeI8wctRSEyxcuBD3Yde5
1naVpu86TG5kZCQiJ2bAGJ08efIoLzOlQ5o1aybOi+NOJBnpFWsWVAbiamii
jx49ynU8vnrl/d69e97e3sqba/iKnxuer4KWde3a1VEyCSq/du1aOCRWHU5u
rR8scxJ+iIbCScTu1MuXL0+YMEHh3mfOnIG70pmOptToT0zi+vXrNe1C3ytU
qCB2YeAfAwIClPNwTIZAgZJMktC94Z6BMJuGGVmOQKuhBNYW/hQkVNpFMgnm
Xay+4dRKlCihWDw6dtKkSXDOHj16ONLECxcuIADmZ/vHqgyOPJ/EeTjJSdAa
MQRiz74CNB15IPCErgwfPtwwNctRXBAvhISjgMRo1nw37LRhw4aUoN8mhuUU
IZ6/v78+ABQHJelfje0IhmemYbj8/Pwwa3jtmjVrdu/enYBx5cqV0CQElSvW
Qj9bIN4L7CifDV1WT8XfvHkTFTZ8C+26devy58+vLPTQyTgjOJ5+odYC6Kvc
uXO7zm0UxMtJTFpqCBHIaxyHZdhYmr7rzp49ix7NnDlTeEmRuoAyCsUXH5Ud
EyJpsH379uK3wuaPGjVKrQ7nz5/38fFBijRaD3/AsSrn2YppFiyA3sI8ePCA
r9BBPTGOiYnh6cmTJ0eD4n2hjAkscxLuxzAiDBgHpGXs2LHqXUVin0j69Omx
Hvo1FHqmc+fO+tTWFy9e+MdB0DNh3+hnsbhjPgQCPKtgwYJeXl7mu5ASEYsX
L6bTnJ/oo086derkoiVMqLSL0EPZgnfs2DE+qnf94DgYQfo5LCxMnwWNYYc9
Mo7wHPOay3NcLcCck3ARFyPO3BNgmPLly+cXB/5gKLFL8A1HnMEkLogXiNOq
VavEcrPzeWIC+ETMnciLFqAVotpUOGvWrDlz5kSuYMiGaVFYFZ4Lk+nXrx9U
Cq0xz2dzdLY8nh2pzpEjh8bjw+ET8Qjo2LhDUVKmTOmIkzRq1EitROJtvN26
ddP3FaYbg1CrVq05c+YsWrSoefPmdJctKbsiKUUx4LYgXhNh0lJDEEZBXO1K
oLKrNH3XcaV3796ogLJJX3OKPvYZgVdmQZF2b29vxF58RBMJ+fE19Mz27du5
rU+fPqjSggULND0pOICvr69ytJrgM+qjPKgMLl6cnCyAgvj9C9QTb8JPqD+i
ZbIDxRm4snaD6ylWrBghMz9HXzQzHnykD0uXLp0hQwbCjaVLl2KjpkyZgokL
CgoyXPMVJ9LPnTtXFCXye5UsCJMhwFbAVfLmzasYNHH8L5F+Ejl1QQHMjdHU
5N+aAJ9O77mi4wmVdpFMoj4AH3qZJk0azWkzCPaMGTMYEdgONhwBgGwzdpg4
6Aqk6/r16wMHDjRflJGcxAKcnCexBvO4wHkgDObnotgOLAzqjx1AlpDw4OBg
AhYTuTJ/Bx/1h78RN8GULO93S0SIg9Ewv44qjzO9dOkSCmiy0zahgM5hsR1t
EbWGeE1EvC3V4OHDh02aNLHr5V92labvOhF0K2ehiwkZXJ5yNhfGFturBH17
9+4V3lNdLDYc2hkaGoqXh5kYajEUol69evhlMekt+jNBgbO9cPEdfLTx1KlT
jjZqxcbZNG6YOHEiJoKnLF68WJPHrq4Jcbr6vRuQT4Ijwi7x0ZkhSPrAR6Nf
RKlOdvjmzZvht65srEuotAsRVVKYqCe1ZSAM2R0GDao5bNgwaA9MhlgyQQGX
5CQW4FZOYh4XOAl+S7iU0HMsXYHgTsrZWfTMiBEjChQoYLKZy4ST0Fi6t1q1
ataOKEwiiImJIYb15DkqCA+xjL3LW86YiAS1NDo6mrjJrgQ2u0rTd5046FI5
YARrzIPq1KmDTEZFRUE2CPCVNADuQUl9fHwsvFBP7EkJDw9Xkklat25dvXp1
3ATRqOdPGRV5y2PHjk307AuxGKR+fe2KFSsI3iHzx48fP3r0qF1DkOjAXJcq
VcqZzWvCNqo3PFpAQqWdO2vXrq3kpmK0ixUr1rFjR7tSwtSQnMQC3MdJ4o0L
nMSrV6/GjBljEqrYDpFMoqTFCrtasGBBkwDWhJMIJqZ+h9f7CEYTwx4YGOiZ
ZC1xmHlYWJi9e7icSTlzvqVCwh3tLE4o7CrNsOvEVhEgVgx37txJP3z11Vf3
79+nsfwEOvTZZ58JP0KEni9fPmsHp+Mg0qRJo+zb5WPGjBm7d+8On0eLXVyI
sQZqkuiERGDNmjW+vr5iFfjBgwd0ON6Qnpk4ceLNmzftGoJEBxYPArBs2TJn
7vT393flfb4WpB2HgssT5p0bBg8ejH12MsUxoZCcxALcx0nM4wLnT67ArCHe
njz77tq1a9myZVNOiBJ7zOvXr28SwJpwElqaIUMGJdvq/QWtq1mz5r59+zzw
rP379xNc27UmogDZ+/TTT+N9x66TLUUemjZtunnzZlvqZldpjrruhx9+qFev
3vDhw/v16zdt2rTRo0dXrVp1wIABIoMU2z5s2LBu3bqNGzeOalh7X5WgValS
pcLzjojDhAkTwsPDK1euzINMTvX/SMAQ4xnbt29P52Mb161bRzhPz0RERBCw
2DIESQTwq1q1asU7LYY+IoSuqLk1aYeBBAQEQJL79OnTtWtXR2vuruPgwYPp
06eP9/g1CTXcunZjHhc4U8KdO3cGDhzo4XcEnD9/3tvbW9k4AM0m1lu/fr3J
TxxxEngIFkbZUfi+AwuAfrl7zoryGzdu7I4ee/bsWZUqVTJnzhzvtiBnWvrj
jz8SD9p1GpItpZl3HWHCvXv3lNM+IduaPQX83JXlFXwuYS/W/vnz5zExMcqD
KNbGRKP3HXQ7NlBEKHBjTYe7OARJBO/evYORwgTM5zk3bNjQuXNny/7aFWnn
W1ySW894gWfiWJMnT25vUtwHD8FJWrVqBYE8ffq0hTdWmMA8LnCyBM8fDYT0
VqxYUWQUPHr0iCgvODjYcPKN3rt27dqxY8fmz59P0/SchBsgYM4cjPZegOYs
W7YsJCTEfZPwlExoY/jmHVtw4cKFIkWKFCpUaM+ePSYG05mWQrbnzJlj1/4p
10tzd9fFC8LPvHnz2njGncT7C1xJz549sfkmwkC4p3/dhpNIdGk3B7QTl5c6
dWqxUSKxq/M+QZwPI15TVbRoUSdftp4gmMcFSRBUFUICA586dSpsbdasWY6Y
PJQpMDBQnKhft25da8drv19AYLZu3eq+efjDhw9v3rzZrXYGaxkZGRkUFNS0
adO1a9c6spnubqnt8EDXmQMXkyVLlvd60UHCRrx48WLu3Lm2r8AKJLq0O8Kz
Z88gY/7+/oMGDUrEIzElPjzAwwldk845+RISSRwbNmwICAiQb2OXkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQcDfevn375s2bxK6FhISE
hISExEeKf/7559ChQ61atQoICChdunT+/PnHjh374sWLxK6XhISEhISEhBvx
+vXrHTt29O3bt1evXuvXr//Pf/6juQEyEBkZ+eTJE49Vafv27X369Hn27Bl/
//3336tXr06fPn2VKlV+/vlnj9VBQsIykqBOSUhISCRx/PPPP3v37i1Xrlyt
WrU6d+5ctWrVVKlSFSxYMCoq6o8//uCGv/7668CBA3Xr1oUVwA08U6tff/21
bdu2d+/eVa5QmY4dOyZLlmzs2LEeq4aEhAUkTZ2SkJCQSOLAQk6dOrVly5Y3
b95ULsbExHTq1AkrmiZNmmLFiuXMmdPf3//y5cuerNixY8cyZMjg6+t769Yt
5eLatWu9vLxq1qz58uVLT1ZGQsJ5JFmdkpCQ0ODt27dEEIldC4n/ByNy5syZ
d+/e6b+6f/8+Qdz8+fMvXLjg+VCOh2bNmjVbtmyXLl1SLm7fvj116tTly5f3
zHT3n3/+KaLajwqPHz+eNm1a375927dvv2PHDvcNvaZkLMOHMWOQZHVKQkJC
ACVdsGABgUNgYGC5cuX4/8aNGwktBDUvXLjw+vXrNdcxZcuXL/fz87ty5YpN
9ZVIErh79+6DBw+Ujwz07NmzkyVL1qRJE/3SvI0QubUDBgwYNWpUcHBwjRo1
li1bBj9JUCHPnz9v3LgxobHeN127dq1EiRI4piTIz69evdq/f38xN/Xo0SPa
Di1xx4PevHnzxRdflClTpnPnziEhIc2aNatSpQpPd8ezJCQkJBQQDkRERKxd
u1bEBUS4devWhULExMQkqBzs5IgRI+7cuaP/6ptvvpk8ebKcz/+w8eLFi1q1
aqVLl27Pnj1ufdC5c+dq1qypzM9ERUWlTZsWWpIgCvH69espU6ZER0frf/Xj
jz+OHDny+vXrttXYJjx9+nTo0KFUT3yEhrVr165v377ueBb9AyehYyGZGTJk
CAoKUq90SEhISJjjxo0bmCwLP/zpp58qVqw4a9YsJdLctm1b6tSpsX6CpXAd
++/uSfLffvstoSwoQbh9+/avv/7qvvIl1q1bh9gMGDDAGVF59+4dQpXQyQ2B
jRs3pkqVCtog5PO7777DaRLOK6V9kGMNd1q1atXWrVuVK+h7pUqVpk6davIr
y2oFJwkLC/vll1/++usvCz+3hg9y4CQkPjZgrL7++uv+/ftjRiz8nLCrQIEC
VatWff78ubhCHJo5c+ZWrVoJIy/KHzRo0KtXr+ystwqEYB06dPjhhx/cVH5s
3DROx44dPRD80l08ZcmSJYTh9JubMitevHixe/duty6RJAiMoJ+fX8+ePZ05
PA1BHTx48Jo1a6wtjrx9+/b06dOKuG7YsAGKMnfuXKU0j421J/Hy5cvhw4fD
McRHGrtw4UI4yf379x39xBW1UjiJxepawgc5cBISHwYINp89e+aM0d6/f3+L
Fi1ciS+wPOKUCYGdO3emSZNm2LBhSpYXsRIedsSIEYaJYcePHx86dGizZs22
bdumrvDjx4/HjRvXu3fvRo0aqXdnaPDzzz8HBAQcOXLEcv1j4xzT559/rnTC
o0ePMG6QK/U9BNTNmzfnK1ceZA4K79q1a48ePaKiouhGnIivr++0adPsnWVi
XEaOHJkzZ07DlTLPg26vX79+v379nCEkiNCoUaPGjx9vbZJEA3w0496gQYPf
f/9dfd1krJG38PBwxIPRUZM6KrZixQq4d926dTdu3GhLMgm1QhiyZMlSpUoV
RcV40FdffdWrVy+lB+7du0fvoSlcbNOmzdmzZ8V1dfWuXbuGDl6+fLlJkybV
qlWrUaMGZZrwDRfVSnCSY8eOTZw4cciQIevWrbMW8qiRRJT00qVL9DPj0utf
dO/enTaKeWbY/pgxY7p166Z8C9PmZmiw+6okIZGUgUXCiZcpU8bHx+fTTz/1
9/dHTx1ZSLxS9erVYQV2PR23ginLnz+/xtwRljZt2pTYVnM/YRouBnUOCgqC
liikBdWG1RCpYYJKly6NDzJsAjEv+s63rmS589DAwMDatWsrMzlr167Nli3b
999/r76NR0ydOhVr46bpBbqItmjGAgNYpEgRrJyNc+CYcVqXOXNmjT1PFDDQ
nTp1mjRpkiFf1WP9+vWIt4ZCWMDJkyc7dOiQN2/eVq1a6UtzNNaQQ4TtypUr
VIPfKqSO+5ctWwYVgSdAD/D4dh1IS90qVKhAFykM5MaNG7lz554+ffo/cdi1
a1exYsVEQhcfqUbRokVjYmL4IcxTqcbmzZu3bNny8uVLmP+mTZuio6Op5OHD
hw0f6rpaYQdatmwJLUF/6UP+gHa6chpeElFSQAVOnTo1b968DBkyJEuWrG3b
tvTn9evXhYbyP39v3769XLlyfFu8ePHFixefOHHCfbPEEhJJFmKVBOeuLAFj
vipWrJgyZUqskz7WFgFXaGioLSFnbJxBQFW9vb0Nw6u9e/dWqlRJSbETQJ0P
HDjw8OFDX19fPK9iA7kZE8ofcJscOXIsWLDA8InofuXKlV08+fOXX37BqhPp
iKdjVYhuypYtq183efz4MTEmVt2VxxmCsVu0aBGFnzlzRvMVNg1uaRdvxFkQ
SmMt06ZNu2/fPlvKtAwcB93O4CqMC2I2YcIERw4dOUGEdu/ebVcFfvrpJ3qD
MvUzBoZjffv27RkzZlDtrl27InjK3AXlTJky5T9x+CIOdvnEy5cvZ82aFRkQ
HxFRqELhwoWpSWwcZc2TJ4/6lDmuw1hQw4MHDyJRgsnTvbA+9aIG98MTqKfh
3JTrasVzHzx4oAwrA0edBw8ebJlaJwUlVYNAL2PGjHS1Yb4NYly1atXkyZMv
XLjQrdWQkEjKgIEQ9GnmLbFRhQoVSp06tX6bLWzfz89PE2hYBlaIOLFkyZKO
gq/Xr18T4Q4fPlwffEVFRRHyGIbtGzZsyJIli+HMJ4pP3ISPcHGeHPPCI5T0
v6dPn0Lk1JGpArFfFWtje5oHjPHLL7+EKowbN07THIY1e/bsWGBbpkqIl3v3
7l2kSBEvLy8iTdcLtAy6d+bMmZGRkWp5gBsgIYYkmW7BHTdo0MDekPPWrVt5
8+ZFkJQME+VxjsYancqXLx9e3nDTTYECBRxN61nAmjVrEE5FNS5evEj5YqMx
8kBMgWxcu3ZNuR+PXKJEiR49etCNSq4I3GnEiBHqBor1O2J5/RyRXWqlBszH
398fUmE5wyQpKKkaERERaKt63kYN6B8GLVOmTMo6moTExwY0ETNCHPH27Vv1
dQxX3759UZ/69eurl3S5HhISEhAQYFdAd+jQIcIuEW/iYe/du6e3acuWLYO0
aFiTOMqgYcOG+hVnUflSpUoZprvs2bOH4MvCWSgaYMHU8c6VK1ewJ0uWLDG8
+ebNmzyUQNLFh2pAXx05cmT69OlKFqICvEzx4sVxH67bWCJfzDihd/Xq1REJ
Gu5igZYhtpBnzZqVULdcHMqUKYO3TZ8+fXh4uKE3xJ1xszJjYA2U/O23327a
tEmZNhQhLe5Dz3sNx5oSoAQ5c+Y0PDBn3759uE67JqCEktIzQioePnxYuXLl
gQMHisoLv6w59haO8dlnn+XKlUudA3z16lUYlJrTUgK6j03Qz5O4rlYMLpLc
tGlThYFglCCTcD/1iTQJQlJQUgXv3r0Tk43K7kIN1q1blzJlSmXgJCQ+QojT
BlCTevXqaY7yWL58efLkyQsVKvTTTz8pFwnoUFu7phZPnjzZvXt3ZV1GJNTp
43oYi7e3NwqrvkgMiG+ikphTSIs6r+DFixfVqlXr0KGDPhriSseOHV0/X4vH
tW7dWr1vaPXq1Z9++umZM2doFP5Lcz+P46FBQUEeOwIUswYry5Ejh/rtMBYg
ltqjoqJwEGJOJiwsLLFOm6R76eRkOnh5eemTjgS+/vprhMfF3VXIWPny5Xm0
Mj3IuFepUoUrFy9e1NxsONYo1+eff96iRQsoNKKiXosUMzkFCxbULFBahqib
mA1g9KHugwYNUliEoB+BgYFq7Xj27Bm8pXHjxmq9WLt27axZs9RMD6XLnj27
/lQWW9QKnWrVqlWFChWUfhDEr1KlSupk+AQVmKSUVIQJqVKlUu+tViCYJMJM
T9q1LC4h8d5BmQ/BYGqW43FDKVKkwJ6rTeWOHTuI9c6fP+/6o7EMBLC9evUa
NmwYbi44OJjYzZDtYM/FW6vUqrpgwQLqdufOHeIajKfaSF6/fh1fvGjRIn1R
hPxFixaF+bg4w0woRzkwH9FpdBE+y9fXlz8oXL+vkMdx3cfHR03wbASebv/+
/fTJli1bMH2xcbkK8Emib/UUvQXghXv27EkzEZUePXogKpqBSMoQ+QPItotH
5+GkaHt4eLjirc6ePYt3g8/rZwwMx/rGjRsozqpVqyAJY8aMUf8KV9ioUSP4
gGau0jIYcZjDnDlzIiMjiTXwgGoOSZ9AUVAopU+owPz589EmPDIVu3fvHvdz
W//+/du3b6/MQyLz9evXpx/0TbZLrTZt2oTZUQr57rvvcufOrV8+dhJJTUlP
nDiRMWPGXLlymSeTuDinJyHxvgMLQ9SgiURQz7Fjx+KA1EEKlmrIkCGoufny
LtbsyJEjcIw6depU/G8Qvk2cOBGP9ujRI8rRRLtp0qQxPI2TAnv37k1wp17F
PnXqVOnSpYcPH06MqVm+wYjhiw3XZA8fPsxXu3btclTzDRs2lCtXjrgbEz1j
xgyNm8Dai7yX48ePZ8iQAeYjdn/069ePOL1kyZKY8dmzZxtuBuGhPNrF3cd6
MDojR46kb+lYbPi+ffvwOHQjXAKniQHExVguHNkgdhOJsoz+qFGjGCbibru8
p7vx5MkT3BDCY55Ug89auXJl27Zt8V8aia1du/Y333wTG+fgBg4cCC2Jjo7G
y/MV9ztSBP1YM0wQj27dug0YMECzwPHgwYP8+fMzfCYO/datW/PmzUPYcFv8
b35QIdVj3CEPEFTDZNTffvsNYtmlSxd4C/VBYIgykJkyZcrwMSIigu7iESNG
jFixYgWkbtasWShaq1atKNmwJ+1SK9jRtGnT4GyHDh2ivXQykYWGAL+PSiow
d+5cEf0ZJpNQ7axZs2bOnFkmk0hI6CHmctEgtakUGZX+/v4mJ0LgARs2bMgP
cYiEJClTpuRv1FxY+Jo1ay5dutTCzD/GE4XVzMBTSb1TwGSFhoY6WpPl6VTG
8A0atA7GlSJFitSpU+fJkweLx9/qjY0YsQkTJmA66BCsNBHczZs3ibkePnwo
7oEaUR9HnoWH0icEpAltuwnwbvhcSIJ6swOjQz2nTp1K50PbXFmb3rZtGw5C
cQpUntFUT4YncRCQ4pJMEmDE6+Pz5ctHfMr/efPmFfSYYBlxhZA3btxYmRXk
ZgrcvHkzrvnOnTsmFMJwrBEw6Id+iokKIJOC+ejB8HXt2jV79uwMxLlz56AK
Tm5/jheoD61Q14dhJVgQ7aIJiBDahMe/f/+++aKMLWolPvL0u3fv0sl0iH7J
5n1UUqVigYGBiBYMGW19rMPixYtlMomEhCNgddOkSQMtUaeJilX1du3aOZq6
v337dqlSpaAiBw8eFFqPcfDz8ytatKiL06FERpkyZTKJX7D2UVFRGFUMDnUg
9NMzH64MHToU16NfuKe2hITUE2MoWkdRI0eOxDcpUe33338vDt0SC9+Okucd
gYcSDtuYjAH9I+grW7asvm+JefkKA9iiRQvLLgw7STStnmYR56vHO1GWdEC8
jNg4mvwXe74++eSTli1biixKhiYyMhLJ79mzpyvrU/GONS6eWonjKaDQDKKh
J2Jk0UEkVp+14m5s2rTJyWxPu9Qq3ge9j0qqQOxKFmePVNVB5CbxreGeIAmJ
jxzQeOg6uq+ZZCaGKly4MCbUcP725cuXjRo1QqMvX76svj5nzhyCGhez2fft
25cxY0Y8iOG31Kdfv37e3t5YJKrn7+9vSIG4rVu3bjhr/X4cXBIWTLPEjHHA
4kVERGAM+XvcuHFiWlWsnquPnHUGPJRHO5/ARm3ptOHDh8Ov9OsvODXCLjoW
36H/7enTp/HFmLhp06ZZW+IXmyBw0OqfHzp0KH369C6uB1nG//zP/wyOD+L8
DQVQa/ph7969hgUiLbQFQqLONnnz5k29evWKFCniyjkb8Y418pwhQ4Zly5bh
XpGlAwcO6O9hiNu2bQsJ1GR3ewDI3uTJk518/51dahUv3jslVUOcTJInTx7D
Y5BFWn6KFCkc7QmyEfTPiBEjevXqFRwc7NY3a0h8JHj9+jXBQnh4+FjnMHHi
xAsXLjhfPjYZrl6gQAH9r7AJ+H3lACINqJXmDSACxIMpU6Z0MXHryJEj2PCo
qChHN2CpxowZ06dPH5TaUUIjdgY/Xr58ef322NWrV2v8rwA+jjLpc+gZiixW
rjE+devWxcgkqAliv0OLFi2cNHfiFTatW7cmAtW/XgQ/my5dOqyuoes8fPgw
4b8rZ64SmDds2HDPnj1HVVi+fDnFqrefOII7pBTJrBMfNBVbs2YNjsDw6Bs8
Pg4uZ86cyqt+BcROtGzZsrnycsZ4xxofhKb0799/9OjRjs7q/+abb2CAjqZQ
3AqqfezYMSc30dilVvHivVNSNUQyCVUyPC0fbpA9e3Z3H5KM3cYaT5o0SVjI
6OjoqlWruimhV+LjAZKPJ0qePLl+R6Qh4AkYfCcLRxNxECVKlNAYagHUnLjS
MPR4/vw5PL9QoUJ6xZwzZ47rB21hIeEkK1eudKWQd+/eYW0qVKigP/GJK4Yb
ALlIe2nUokWLDh486MrTxbkQ6pPw4wXWtWnTpg0aNNAk8DBMYgtMly5dDI0n
tUVCateubW2/Cc6IMKply5ad/hs48bRp08KFHCU/KHCrlDoPXBhio9/1GRuX
I50pUyYiYs1wiHkSuLflMzFiLY21BqjYgAEDRC5WsX+BYoaFhXlsO7mT8Jha
vV9KqoaSTGJ49mPsv690dDf/PH36NFqm9CESjpIm+rHMEhKOgLIsWLAA5uxo
zlYsthLc6dXq/PnzkPw2bdpodBmP2blzZ2LVEydOuFI3TA0eBM11pRAqExQU
lKC0T1pKgENAgdGzdkiCAh6KzWnfvr3z68WEMIULF4YlamJDEc2lSJHCkKRh
cyAPmDiTaSVzbN++3fDVh+KAhZQpU7o4EB4D9UT29Csj9OfkyZNpiP5Uk4cP
H/r4+FSuXNmVPF4LY60Bg9ikSRNq6PmFm4QicdXK3tJsVFI1RDKJoyVssfTs
7l32UCaUWn1a0dGjR/Ply5egWXQJCY8Bhdq0aVPDhg3Vq6Ioy7Zt2xQ1Fy6p
W7du+nySrVu34gT12QtiVbdSpUrmuxfjBboMJ3G02dBJUO0+ffr4+vom6AWg
q1evxmLg/V08e4GuKFKkSLz7UtU4dOgQYbJ+fzR+s0CBAnQIwb7+V9evX8+d
OzekxVrM9euvv3bp0sVk1RvjGRERYaFkzwM/RS/pX2LCEHTt2tVwEUq8n3rU
qFGuZDlaGGsNxLHqn3zyieEkT5JC4qqVvaXZqKRqfPfddxkyZEArNflOAqhV
9erV3Z1MgqhPnz5dkerXr1+3aNEiJCQkqU27SUgIHD58uHXr1pr5auLxAQMG
KFOyr169ql27duPGjfVivHHjRqIAfdRJqJ42bdoVK1a4WL3ly5c7k8ZgDuwV
rClbtmy3bt1y/lerVq0idErQTwyBl8+RI4eetmGvoHlY1ODg4KVLl2I3xDq+
OMEJczdw4EC+bdeu3cSJE8VX4jCo7Nmz65kDtnTo0KHp0qVT87e3b9/27Nlz
yJAhiqXdv38/V/RTAZisWbNmObLtIniHk4wcOTKxjnJVVybeqYyLFy8iNvpc
JnHuqP7QcjoqMDCQ4NHJ9E5HcDTWzkPUEEd27NgxV2riASSuWtlbmqOBQ+MG
DRqEB+/Vq9f8+fORfzHhYKKkasyZMyeZ49fcmCSTnD59uk6dOpjW0aNHKxqH
0BLlKYfBUocDBw7AsUNDQ9u3b09NRDDC/WpDHRkZidZD3mrVqgUFKl++PG0x
TG6RkEh0YLqRT02yEyKNDPfo0UMRbOwkEbThwjEloJiao1MJ58uUKdOmTRsX
JV+c1mXL+YpbtmzBSSUo9ly4cCGmxvVo4vjx4zxavLZYAGOCoaCLxE5PTFOe
PHnq1asnFqbxj82aNRNHUXEnERxWF5MSG+eO27Zta0jSjh49ynWYpHrl5d69
e97e3lOnThWWlq/4uaGFPHXqFF85mgAXOyywrt27d7fl1X4WgDBER0dTDSSW
eJY+4X8kzfBmBAax0WdAidc84Qg03GPnzp30HhTaxXBbP9YWsH79evi8GPEk
jkRUK3tLMxy4q1evYvR4BFIE3wgICFAOYzFRUgXiiPtkjl/KIJJJHL2ail6l
SurtdXBsGKDQfSqAeFeuXFlsR8J0tGrVKigoiOu0RXnFM3UYM2bM/fv3IV1E
jmhQREREo0aNxJnPEhJJCrdv3y5RooSj5ENYt1qPUIdcuXLp4xFUoFOnTl98
8YXi5pD2L7/8Ev11PWtLJNG5/pKa2LjXbFF/5+dI0ejp06fb4hdWrlyZO3du
9ea7s2fP4hZnzpwp7IZYmFamIMRHZZeTyL4jDhK/FcYTqqbmBufPn8cF9+zZ
U5Nut3v3bsymsv1ETLNojnARr/Pj5x06dHCU4McoK29HMsnocyt27NhBqxVJ
oMkEtvSM4cIBFUZskEP9zg6MM51AAKvQD7q0SJEiDIfra/r6sbaAly9foj7V
qlVThwCE5y7O4bgDiahW9pamH7gXL174x0FYNhGXIW9iMdpcSQViYmIKFizo
KDUIyezcuTM6BW/R6504+S1nzpzKoBMv1KxZk0fwQ76dN28eqq3eXrR8+XI0
4vLly8QgynF/qDyGRa2zCBVV5efWO0tCwg1AxRBvkw0RCxYsUN9/7tw5BN7w
HVLoY3BwMCyd2H/8+PFo8dy5c215fbBISrHlNejiVWhE2U76HSKvr776yvUT
q8SLVxTLFvvvgfnEO8qLYjUHdB86dAjWQeQuPhLjeHt7Q/zER7qCOBpHQFu2
b9/ObX369PHz82O8NP4Xazl69GhfX19llknwGXXkBWnJly+fMugYK82paM+f
P2/Tpg3VU+5Jnz49kuPie2QSCsSpYcOGXl5eCpfgCgQpRYoUmGL9/SKXVd12
NYg0+e3gwYNXrVqF6MKoYWWuy5h+rC2DEkaMGFG3bt358+cvXboUgaG2apIP
s6pSpcr+/fvFR5waqoej8fDKWmKplb2lGQ4c+pg2bVrliANxbqSScGKipIwF
g5U3b17EVahMunTpChUqBHMTRfGrYsWKYQHE9jRIC+ocFBSkfu+Y2LCjvMSZ
H0ZERBQoUECcAYWSFi9evFGjRmqysXfvXqo0e/ZsJEGZODp58iRSoZZtuA1q
7uhgBwmJ9wWvX79u0KBBSEiIo6l7RB35v3r1qo0J5AcOHMifP7+LySQCaCXa
Wrp0aScnLR8+fEig7fqaEX4EU6amVSKkUl6FJmI9DJqSY4wZVCfFYWqEbVQX
i1FatGhRaGgorANmYphILDa3EnELAyV6wHCyK+mDJhBUYuTFGVmxcZykfv36
mHRH54FfunQJ4YmOjjb8lkLwI5A0R6s/FqAfaxcByaQVZ86c0bwlMzYutzNr
1qyKatAWuKUreSzWkFhqZW9p+oHDX48cOTJz5szKhAPMhw6HxIqPziipK6A/
S5QooUxW79mzp2DBgkrYIk5ImDRpknq44dWffPIJTFWZ7RHn3yrEVSAmJoaa
21hVCYnEwsqVK0uVKpWgHHtXAPkhCCJIt+u9byijn5+fk+fK4suaN2/ueiYY
ZqRo0aLqrHtxYqRywAjelgfVqVPn+fPnUVFRkI0pU6YoqTvcQ2jm4+Nj4QDV
u3fvQnXCw8OVleXWrVtXr14dAoNHe19OiVeAcVa7ZrEOhZtwtKURsaG9xL8e
O7JbP9ZuAqoRHBysPqyMRxMju3hGhzUkilrZW5p+4MRr09WZbDj3LFmyQBHh
sUePHrVLSR2B+I7Hbdq0CeXdvXv3Z599tnXrVoWBQD8yZsyo2Vnw3XffZcqU
Sf2CdVSeKFL9Mncxf4hZkOe4SnwAQAFxncuWLfPM427evAkFOnTokF0F4tTG
jh0bGBgY77qSiJJGjBjh4vSmOAc+LCxMPbkECQmKg1hE3rlzJ5YE9kWoS/X4
CZYWEyS4n3hPnOEx8vECS5smTZrx48cLU8ZH7Fj37t2JLseMGZNYaSF2ITIy
MnXq1OPGjTPJuSWcLFu2rOZFCW6C4Vi7Cc+ePatUqZKyYiLEtVChQjbO+TgP
z6uVvaU5Gjg8vq+vrzgK8sGDB6hksWLF6OGJEydimuxSUkeIiIjImTMn3GPw
4MFQaw2FIK7h6erXpFIx6HfatGmXLl368uVLccgzvL1GjRpcUZMZCOS6des8
PJ8mIeEmoIm1atXyQIiNfRgyZEhoaKhd70IVQFVr1qwZ7wGGRF5NmzbdvHmz
i4/bv39/9erV9XPLWJh69eoNHz68X79+06ZNGz16dNWqVQcMGED8FRtnJIcN
G4bHweFSDWvnVAiLnSpVKuzqiDhMmDAhPDy8cuXKPMhGpudhYI0PHz5Mz2CT
lyxZYj4Hwrc0dtCgQR7gCY7G2h24cuVKtmzZlOgAcfX390dU7JpRTCg8rFb2
luZo4CifSKF9+/aoZ9++ffHjJUuWRJxgC8iVLUrqCIgrsQMUCBU+e/asIek6
efIkg07dJk+eHBISwv80AVFv0KBBcHCwOKmSe6ZPn8492NJZs2b17t27a9eu
youYJSQ+AMAQ8G4IubuN/MGDBxs1auQOC48JatKkif6tYWr8+OOPderUcfQ6
EifBIxo3buwon4EOvHfvnvpUOk3WKD93hfsJPxUQEPD8+fOYmBjlQRSrT054
j3Dx4kWoCO4AJ0gIGW8aA+6S4Xb3oob5WNuOVatWffrpp3gc8VHs+B4/fjzV
iIyMTJTXy3pMrewtLd6BQ8AePnwoZhVevXqlUUkXldRFwFWoGxKuTHrwx6NH
j8TpPfy9cuVKIflPnz7FlsqkVokPErjOnj17unX279atWy1btjR8847rQDEJ
MIksTBYv7t+/P2fOHFemaCi8X79+S5cuTSw7cPfu3bx583o+6dFj+OGHHwoU
KEDoGu8r8xCkFi1auG8jrYfHWmwSyZQp0+nTp2PjlgL79++fKlWqbdu2iaOx
EmXEPaNW9paW6ErqVtAzY8eOhbkldkUkJNwO8W5TN01To0oEwuJgIjcBE7R1
61a3rl8cPnx48+bNiWjrdu7cmSVLlqR/Prll4JpDQ0OTJUvWsWPHeNcsrl27
hlDZuw6owMNjLfZtZciQoWbNmlOmTOnbt29kZCTBftu2bQcNGmT4tmjPwANq
ZS8SXUndil9++WXMmDG2nMkgISEh4SI2bNgQEBDg4suGkg7+/PPP48ePQy3U
kwDz5s2Dk3h7e5u/LP4Dw+XLl7Nmzbps2bLff/89JiZGbPSGoREjuIl0SbyP
+O23386ePfuhTpNKSEhIJCK+/vrrVKlS4YvVB2QtX748efLkOXLksCtF4b1A
VFSU+mQSCQkJCQkJCU9izZo1Xl5ehQsXVg6RIAAMDw9PlixZjRo13uus3QRB
JJMYvnlKQkJCQkJCwgN4+PBhixYt1JMDOOXKlSunS5fO8H0HHyr++OMPOMnk
yZM/1CwICQkJCQmJpI8rV660bt06LCxs165d33zzTZMmTfLnz79lyxbpnSUk
JCQkJCQ8jL/++uvEiRNz5syZMmXK3r17P54lGwkJCQkJCQkJCQkJCQkJCQkJ
CYnExf8CIh5gBA==
     "], {{0, 99.}, {732., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{641.3333333333337, Automatic},
   ImageSizeRaw->{732., 99.},
   PlotRange->{{0, 732.}, {0, 99.}}]], "Input",ExpressionUUID->
  "72464a0e-1de9-4c83-b6db-ae99ad7c8ad1"],
 ", FieldNumber =12"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, 3.8312302427783546`*^9, {3.831808118693654*^9, 
   3.8318081270334835`*^9}, {3.8318081574131556`*^9, 
   3.8318081782266583`*^9}, {3.831808482532746*^9, 3.8318084828979445`*^9}, {
   3.8318214208645134`*^9, 
   3.831821421270607*^9}},ExpressionUUID->"9e76dc3c-22f2-4deb-86a9-\
3fc87d9d873e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "12"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
  3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
  3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, {
  3.8318081498567114`*^9, 3.8318081500896044`*^9}},
 CellLabel->
  "In[306]:=",ExpressionUUID->"844533d8-6a12-4e47-86f8-3bfb5c02e91a"],

Cell[BoxData[
 RowBox[{"\[CurlyPhi]", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.8318058891268415`*^9, 3.8318081840551834`*^9, 3.8318085109314833`*^9, 
   3.831825796977454*^9, 3.831827811944871*^9, 3.8318281626857395`*^9, 
   3.8318397941420164`*^9, 3.832947506727194*^9, 3.832961791248355*^9, 
   3.8458268831853495`*^9, 3.845852474287451*^9, 3.8458570846618423`*^9, 
   3.8459196316501617`*^9, 3.846006583158931*^9, 3.8460998948033137`*^9, 
   3.847470456878177*^9, 3.8517006420706716`*^9, 3.853975457873456*^9, 
   3.854977417527946*^9, 3.854989270689076*^9, 3.854999908228228*^9, 
   3.8551652573206844`*^9, 3.855182326327252*^9, 3.8551858705510893`*^9, 
   3.855330648008096*^9, 3.855339853270327*^9, 3.855343190360874*^9, 
   3.8553440244110637`*^9, 3.855352751475124*^9, 3.855449615228599*^9, 
   3.855507616695713*^9, 3.855508413865714*^9, 3.855512901892231*^9, 
   3.855533333349518*^9, 3.85557892748485*^9, 3.855593299902737*^9, 
   3.855750612284521*^9},
 CellLabel->
  "Out[307]=",ExpressionUUID->"c3f3546d-67db-4c6b-bd25-da620e001d61"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Bt", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "  ", "-", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"At", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "-", 
      RowBox[{
       FractionBox["2", "3"], " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.831808190171137*^9, 3.8318082274745865`*^9}, {3.8318082698744555`*^9, 
  3.8318082774822407`*^9}, {3.8318083932911024`*^9, 3.831808405033281*^9}, {
  3.831825754520916*^9, 3.831825789573799*^9}},
 CellLabel->
  "In[308]:=",ExpressionUUID->"621c579b-f4c6-4e2f-b394-b14c56b9ff12"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}, {3.8318083436982317`*^9, 3.8318083446975236`*^9}, {
  3.8318084122341332`*^9, 3.8318084123777437`*^9}},
 CellLabel->
  "In[309]:=",ExpressionUUID->"b80d2c33-e487-4df5-969c-ccf14ed697f4"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, 3.831805889252923*^9, 
   3.8318082892981205`*^9, 3.831808345791419*^9, {3.8318083978042974`*^9, 
   3.8318084129536543`*^9}, 3.8318085110716925`*^9, 3.8318257971648617`*^9, 
   3.831827812044132*^9, 3.8318281627795095`*^9, 3.8318397942372293`*^9, 
   3.832947506834444*^9, 3.83296179134011*^9, 3.845826883332526*^9, 
   3.845852474384398*^9, 3.845857084759356*^9, 3.8459196317751083`*^9, 
   3.8460065832541533`*^9, 3.8460998949126577`*^9, 3.847470457061888*^9, 
   3.8517006421956544`*^9, 3.853975457964422*^9, 3.8549774176373253`*^9, 
   3.854989270784852*^9, 3.8549999083375735`*^9, 3.855165257461279*^9, 
   3.855182326467845*^9, 3.855185870654518*^9, 3.8553306481486807`*^9, 
   3.8553398534269395`*^9, 3.8553431904713697`*^9, 3.8553440245313864`*^9, 
   3.85535275157903*^9, 3.8554496153483477`*^9, 3.855507616796564*^9, 
   3.855508413963566*^9, 3.855512902007592*^9, 3.855533333524561*^9, 
   3.855578927609826*^9, 3.855593300013462*^9, 3.8557506123938727`*^9},
 CellLabel->
  "Out[309]=",ExpressionUUID->"f312ed8b-881d-4143-8c64-657933f3e41e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[310]:=",ExpressionUUID->"8019479e-3ca1-4d08-a3cd-3c2edd746625"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvQdwFMfW/m1yjkKAyQiRswkiGSEwIgoQGSQDBkRGIKLJSeRgskgi55yh
wMYGBJhQRJGKTBmM+YPxBVPGr9/76vt96rpTc3dmZ9PsrgT9VNkldmd7uk+f
Puc53ae7i3Yf1LpXys8++2xoev7X+puRQUOGfDOqTXb+0S5yaN/ekRE9m0QO
i+gdMaRG91R8GMl/G/nj//87QUJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkLCPfjw4cPff//t7VpIJGlIJZGQkJCQkJBI
dvjnn38OHTpUpkyZ5cuXe7suEkkUUkkkJDyAhw8fLlq0qEuXLkOGDDl58uS/
//1viweuX7++adMmxqNXqmcN//u//3vmzJnx48eHhYVNmzbt0aNHFg9Q4T17
9pw9e/ZTqIaExKeJt2/f7tixo1+/fj169Fi3bt2ff/5p8cDvv/++YsWKFy9e
eLhiR44cqVOnTnBwcPXq1T/77LOlS5d6uAKfGpKsJhhAKkmyRnJUuU8T7969
mzBhgp+fX4sWLdq3b1+sWDGGW4MGDeLi4gTjffPmzfTp0/nk8uXL3q7sf+Hu
3buhoaEEwp06dWrSpEn27NkzZMgQGRn5yy+/iAfu3LkD+ezduzfK9tFXQ0Li
EwQ2at++fRUrVoQthIeHBwQEpEmTpnDhwitXrvzrr78SEsPMgwcP1qtXLzY2
lpjUw9X730Twx+LFiyWNcSuSuCYYQCpJMkXyVblPEE+ePGnXrt2oUaMgtOIT
emf//v1VqlRh0OXMmbNkyZI+Pj6DBw9++fKld6tqgaNHjwYFBW3fvl1RIcHJ
fX19U6RIUeQ/IM4ymIu+evVq6dKlv/vuO+08tierISEh4QRwKNHR0a1atYqP
j1c+vHXrFqElTiddunSYr9y5czNCL1265MV6Jkga42YkI00wgFSSZISPQ+U+
Hfzyyy/wPe3nELMzZ87Mnz9/1apVjx8/9nzFjAE1vXz58vPnz7VfQTX37Nkz
e/Zs/v/u3Tvjch4+fDhy5Mhr1655txqfJt6/f+90iJG8wAgaPnz4kiVLlIhS
C6Qxc+bMBg0aFChQIDAwcNeuXZ+IcFwBQouLi/vw4YP2q/v378fGxhLG/vzz
z0lhRkXSGLciGWmCATysJBbSwOAkcfkkKXwcKidhJ16/ft24cWMCGd0el5DQ
AhNBDEU43KZNm4oVK/L/GzduOFoIRsbPz2/dunUWn2OuY2Ji/P39k1q+zfHj
x7Nly9arVy9rm6x//PHHWbNmYRjj4+OjoqIOHjzo4RpKuBWS60rYhCeV5N27
d40aNSpfvnx4eHifPn2aN29evXr1K1eueODVEhLJDm/fvp0yZcrevXvlHJSE
PYDLzZ07d82aNSLaffHiRb169aCmt27dcqicmzdvjhgx4s6dO9qvDh06NHny
ZIMZVK+AYBCfUqBAAd06g++//z40NFRmdH+skFxXwiY8qST4brhu+vTpeWPm
zJk7dOigXouXkEhG+PPPP1esWDEhEbGxse/fv/d2jZIKIB7Lli0bNGgQRGvj
xo26RP3Zs2czZ84cP3480oM+STKvxo0bN5zL3378+HGVKlUQrDK9uW3btrRp
0w4ZMkSwXz6/ePGiSOx3K54/f75v376YmJj79++7+10CvC5jxozWksOpzxdf
fIGy2ZPX7bT8DXD79m3dbBwJU+AEjfn1118djQGTJqRq2QlPKglcd+jQob/8
8stHuZEkyarcH3/8ARnbsmXLzZs3JakwC4yC0qVLBwQEhIaGjho1Ct32do2S
BOBUGBMoLrSqf//+tWrV0p1Mu3fvXpcuXVq2bFmkSBH++CgNghNgeG7YsGHA
gAHOqdPDhw8LFSqETr5+/Vp8cvbs2WzZsqGigv2K8glDsAlm1vu/69CxY0cf
H5/u3bvDtN33IgvATqtWrVqnTh3dOWcaPmfOnMyZM+/YscOgEBflbwBsb+fO
nZ3OXbcfNIG34NanTJlCWz6Ro3gcpTHx8fGdOnW6fv26W2vlGXhMtZI7PKkk
Ctd14rdJH95SOYwbvIt+sSAVeDcx2Sh2QkVHR/v5+ZUpU+bgwYOS8boOZF6l
SpUDBw7ofovDhQB3sAL0ZMiQIevXr1c4iQWePn06duxYHhs+fLj2QDm34urV
q9988421mnfr1m38+PE//PCDtcTIx48f42T/TESjRBjUHz389ttveZ01rotW
R0REWKtMjx490Oqffvrpo0lQR53g/66EzFjXV69eKf/cuXNnunTphg0bpogI
UdNBI0aM0E0CP3HiBJrZvHlzaKraSjx79mzcuHE9e/YMDg7G0Fl7+6NHjypX
rpwnT55Tp0453QTnQG2nTp2aKVOm48ePW3wljpEPDw/39fX19/e/ffu2tUJc
l78BfvzxxxYtWjx58sQdhQtQOJEjA2rlypV0PdajWLFiiMW5mXz89YQJE4hc
dEcf8mTwbt682WPhjAEcojFY15CQkGPHjrm7Vh6DB1QLvzBw4MAedgCtQ8Lu
q4nT8KSSCK6Lo5w4cWJUVNTatWs/stkwD6icAkS3Zs2a+vXr+/j4wGAbNGhQ
q1attm3bXrhwISFxLrd79+779+9X/wQ/GBAQkDVr1qNHj3qghh83jLku7vXS
pUvr1q2D7DG+kPmCBQsgAHFxcadPn967dy8OqGLFirhmOK2Fs8AxwScvX77M
z/Ply2ctBdFNgKUzQr/77rvChQtTc6jLrl274hIBq9y0adOAAQNy5cqFD+Vz
A5Ip5hhpiEFgZZPrwpN576JFi7Jnz54mTZrRo0czxERlECMVgHvzeb169e7e
vWtC470KOrpmzZqwTbMKfPfuHea6YMGCFlMTRFjNmjVbvXq1xfP379+nO16+
fAmTge4qZJggGrZM3AEJLFeunEGfouQpUqTAJ3plop5mQrN79+6tfjujCbUJ
DQ2FrsfExKROnRr+plt/0+VvAQYLoVnXrl3dFL3SrQwli/pfvHixePHiSMCJ
HqHCN27c2LFjR9WqVTEFhDmEDHH/AU5k8uTJCBwbBa/27vyJ/TTm/fv3SAkd
/mgC5AT3q1ZC4rrJvn37Jk2alDFjxpQpU8IuUIz9/8GWLVtwGYwyrHGOHDk8
P2GOD8XsNGzY8MGDB9ae8aSSYHtbtWoF3cVm0in8AUNLmiGAc/CAyiUk8qjt
27f7+fn5+/svW7ZMPZ177dq1Nm3aoJP4JnzcvXv3LH5LGI42du7cWd4K7SKM
ua6C9evX415LlCih1XO6gNGXOXPmoKAg9WLH7du3p0+fjgp16dKlWrVq6mk6
j4G6QXiwDMTpWi/522+/hYWF0S6sgbUzIjCAGD2LaMsCNrmuAP4argu71p7P
xogbM2YM9SToszZJniyAGHv16tW3b1+zBiaSmTdvXv78+XWnJjAREBjiEfWH
BDIHDx589OgRooYdKXaeh/FlCYlk0tfXd/78+bpvpDfRB/pi7ty5pjTBUaBs
uXPnLlKkiJIkTJUYYqVKlRKhEPpD0/DIWqU1Xf66gG/XqFFj27ZtppdMSxcu
XEjhsFCLr0So6DSHf/v2LbEkXmPr1q3ab4k9CeTRijNnzjhXvimwn8bgOjGq
HxPrEHCfaqmBFuGw8ubNq5vFihKibDg7z0z3qXHlyhXcTaFChQzSaz2pJIgC
1q34NYwqhG3w4MEfU7aeu1WO+CUiIgLLExUVpZuZFh8fX7Zs2RQpUuD9tUeP
njp1KkuWLIQ/ci+Vi7CT627cuJHOYvjrpu4wIpYvX542bdpGjRpZpKDAeAsU
KEAc7ZUJEzw+AZE1rpuQ6AHbt2+fKlWq2bNna2soaE/hwoUt2JT2MXu47ooV
K3hRSEiI7lLs+fPnceVY4B9++MGOliVRMDAJXWmLKaUhWBSvTJky1lZw6L7g
4ODhw4drJy5Wrlzp4+Oje+EygRsO5fTp09ZeKrjud99952L9HQWvJopv3Lgx
PDxjxoyKO3v+/DnGEBcjmonx/PLLL1u2bKnluubK36Ces2bNCggIMD2NlqHR
tGlThD9u3DiL8Xjjxo1cuXJZG8g2cefOnc8//zxPnjy6LEKIlPeOGDHC0Ukw
Qg+okSnzQnbSGMLhunXrTp8+/ePL4nOfaqnBK5AzMrSWuHL16tUWLVo4Oj/j
uiaIhVScssEzXlQSmFhQUFDJkiU/pgxet6ocZTZp0gRqBMGwZrgwOEOHDqVP
R40apTU++CnC8K+++kpyXRdhCtdNSFwuCQ0NTZky5dSpU5XBxR8Qhty5c3vr
IFObXDchMUE9f/788CLtlA5WCyoF9zBWM3u4Ll91796dmkRHR+saH0QkLg62
2RdJFrSxT58+kHmz1oOOHDlC9CRWEmFB9+7d04oOmw8ZtpiBEcdCEgtrs8uo
ZL9+/aCO1tJZvcV1sXIxMTEMRtr722+/Va5cGbcifDHhD/q5e/du8STffvHF
F5hHC8NouvwNEB8f7+fnt337dnOLRfjHjh2bNm2a1t0/e/asVKlSFStWdM4l
7dixA48DodWlN8KJ0+n9+/d3lOvSO7Vr13Y9O5q2w0yoA57X+Mk9e/YgfCdO
nE4WcJNqKSBCbN26NXJWznXRgoAoIiLC0fxwszTBAJ5UEoTDSGzWrJni9PGD
kK58+fIZpFgkR7hJ5bAq4eHhdNawYcOMF9p27doFoeX/2q8k1zULZnHdhMTB
lT59+uLFiz969Eh88ubNGzEBBeWIjY01nh11B+zhunzeu3dvnunWrZvFRBkj
umDBghMnTjQOje3huoKfZMyY0doUJTwnVapUhQsX1mbsJBfQv1iMBQsWmFLa
yZMn6RFFZ65evTplyhSthGGGhCpr165Vf3j27NmcOXMiUsQOGVZ36++//16j
Ro1OnTpZMz5e4bpUZsaMGUWLFhWzzdRh8uTJmDiEkJB4xzRtPHfunHj4559/
LlCgAIGARSHmyt8Y0OkmTZp06NDBAye/CWCpiFB8fX2dyGnHaw8fPpw+jYqK
0qU3BLx4cEychSLZA9cZzvnz5/FlxYoVg41TSf7v7+9PpHbx4kXtw8KmIXwP
7/b1GNytWrgwHBl9bbBsjeTHjRvn6AqCW7mu55UEsxkaGorbUozw69evAwIC
qlat6pWMRPfBHSonIoWUKVNWq1YNN2T8cFxcXLly5XQtm+S6ZsFEriu2cUHY
VqxYIT4hqMydO/eqVavoxNGjR3v+Glx7uG5C4qI2rdNuoNu3b1+OHDkOHTpk
/BZ7uO6FCxeyZ88OFdG9TPnp06cVK1ZEdDNnzky+m0127NhBdyuUzBUw9itU
qECvEREPHTo0IiICJ6LL4oin6tSpQ/is5q7z58+HHNKbhOpr1qxRhyrXrl2D
Ly1cuNDaqz3PdTGwo0aN8vHxQd+UD6knwhw0aBD68OzZs+rVq2/atCkhUaX5
kPZqvZiJ8rcJpEToATl30+XgRMcYJfpxy5YtND8hcYG4SJEijEfd+8ptlhYY
GMgYFwnbFkCkAwcOpMdhDk7c0+GB2Tw1sBXYYYT/8SUwCLhbtXSTdRlNS5Ys
UfZKPHnyROyOdwge1gQDmKUk2JyVK1cqhfz444/ITXsTZXKHO1ROTMIQkuja
HAsg2LZt2+qecSG5rlkwkesqOW9dunQRxIPoLzg4uGvXrrgSr6y42cl1f/75
52zZsglXiNFjLMM0eL5v374wLuPsqQT7uO7y5cuhss2aNdNq7P379xs0aJA+
ffpJkyZ5bJbMdEDJoqKijDUkIXEW/dixY3BXuEeV/wZ0buLEiXQZjoZyPvtv
pEuXbs+ePboF9uzZs3LlyurY+dSpU4TJw4cPh7VaGBA6F75ksAXJfq6LehMl
9e/fPzAR1hKAbWLnzp1UyYKTf/jw4euvv8ZaioGDg27UqNHkyZP79OmDMmvn
VWzK/+XLlyNGjPj8889Tp05dtWrVI0eOqF/H31TDoaXJXbt2UW3Tz7yiaSNH
jkQfUAZcwP79++H2dL1IaM+TJ48TCx+3b9+m4QQC2oPmGO9jx45l7Ddt2tS5
vUgeZjhHjx5F7LrLnQmJwwGdFIEzyjN9+nQLg0Ok4Mr5Re4uX8BNqiWgm6x7
5cqVIUOGuHiLvdOa8O7du2nTpnXr1q1evXqI1/UoxiwlYXRMnTp19OjRmIt5
8+YxKhcuXGixIiZVTgtEhI9DzezclQ8HOH78uG6/S65rFkzkuhiKkJAQ+ld9
Ej7kDQfqreMy7OS6d+/exQ/yGFwC30rUv3Tp0s2bN9PegwcP2nyLTa7L53wr
ylcnMz969AgTV6hQITiwE9MISQpiV1FQUJDB7D0spWHDhshBnEcB6eJvLIzg
uriJJUuWODGtPXv27Jw5c1ocEISF0eqqiF/Kly9vEL/QL5AfY66LXi1atAid
CQ0NZezAkVxZK8SI6fpHPqdRClfnpVA1a9mqxvJ/+PAhVpdGEdP5+PjwBxKD
SaofQIcdOjwTekA/mjv7DbGvVKkSrF69eZwWTZgwITo6GoUhhLEZe2qxffv2
tGnTWtzQwd98ToSFPqxdu9ZpG+VhrssYYcggfO1X6ADxTsqUKWks3B5uwN/q
I6cw0UjSiYlxz5SvwB2qJaAk66rT3X///ffw8HDXX+ecJmCUoN9btmzhj8GD
BxctWlRJAnQaJioJ9hD/iDc8dOiQlrZJldPFnTt3oOWomc0ESJuIi4uD6zZo
0OBjzVnyGEzkujiLdu3a0b/2zIV6BnZyXRy90MzIyEjs3pw5cwYMGDBq1Cg7
zwS2yXXFViM8NbGAclY51rVx48b42d69e+vmXLkDVBV2LTK+7Ievr6/Ns55o
Iyylffv21jjD7du3y5YtC8U9fPiwGP4YKH9/f5TKxZUjon6sgUFITrS1cuXK
169fo73UQSQGWHuY+tOVaDs6r/sA5nfIkCE8gGFMOgknBvKHKzIwIZDKFlEo
Zf369Vu1aiXspzjTbO/evQ69kVFTsGBB7RY5p0EoVKZMGayHVh/27NnDV6ii
7ukTxlC2OSMfZfR169aNOAXTR4AA43VlQs+TXJe2oHsFChTQ7n2gE5ctW8Zo
gpYIHUDhR44cCXdS1tTOnz8PT+DbW7duBQcHE/4QQdj5aofKNygHS1K3bt0a
NWps2LDB2jOmq5YCkayLMvB/+AOjAB3AemTJkuWnn35ysXDnNAHp4T7eJ6JZ
s2aEovHx8a5Uwywlsfkih0rD1OBVq1at2rZtWzu3lyZflRNZkbpXAjkKlAH/
i+2ymfQrYQxzuW6bNm0wI1988UUS6Rc7uS5cSHDdYcOGOfEWm1xXLL/C67SL
pBAnBi/kE2rtmQQGyPy5c+dOOwI4ks260TQ/P7++ffvqCuHNmzf4VozJpUuX
1J/Pnj2btru4AXb//v24KmvUlPr079+f/qUXqF5QUJAxtT558iS2JSAgwJoO
Q5sZC506dUpSi0oG8t+2bVvPnj0tzh9gIDdv3lx0B78dOHCg+mBnRgRFEaDh
Vjp27Kgb9OHT4Z/2H3IuDlQfPnw4sYY2DwFXiPVAGURasgXEQh4jVBzzgjbO
nz9/3LhxBpfHKaDheDpraobpg10EBgY6HXC5wnXPnj1b3hb+9a9/Kc8jw65d
uyJ27evoMti7xYWndA3mZe7cuQiNv5GYyN758ccf0RYohP0TYg6VbwBqzoBF
9zC21qa8zFUtNWh45syZc+XKdfToUQj/zZs3Ua0+ffqUK1fO9XO0nNAEJLBg
wQKRbEBlPv/88y+//NLiFNZTp07ZVBK1LTJLSWzCodIwLxUrViS2Qkp2erpk
qnJKcF24cGHXp+jFBg08DnqSdKZWkiNM5LoocJMmTehi44VsT8JOrovRw/rZ
c5CLLmxy3ZiYmJQpU7Zs2VJ3jMOp6ALEq70CLBlBxAvW9rkTntPAOXPmWJia
devWpU6detGiRa68+tixY/gvKKi1B7CWo0eP7t279+LFi3VP8074z912kZGR
OXPmhHRZYz6MlwoVKmTMmNHmjkUPw5r8aRemUvfO9zVr1iB5eiQ2NlY940EJ
M2fO/Omnn9DnvXv3IhPdE1TEagVabad34EVUo3Xr1gUKFFCuyVCwb9++DBky
6N5Wk5CYf5gpU6Zs2bIpBybTEcQjpUuXtnlUPqM7b968sAhdYqwc0QClNw5e
kDDebbMG48ePL168OGNc+xUe1pq+KWVOtgW10RDzCZUqVdLOjNGJK1as0Lpy
Wo3mv3379saNGyNGjBBthPJVq1bNoY14DpVvDAqBDCB2a8TDXNVSg+Cavrbg
kyhVv3797J/bN1ETqLnIU+KPefPm4Sa0J71DpWwqiVpQZimJTThUGlwXlXNo
8jyZqhwldOrUSaiZ7gmHaAKOb8mSJbjFVatW0cxVibBGriiEZmbPnj0sLOzg
wYMvX760p4YSFjCR67569UrcwmlwbqGHYSfXFcE+ztS51HRjrksdiLKpg7Vj
vfnV119/zQMhISEubo7wIjDIefLkIXDWdj1WrkaNGuqLwBRg2FOlSgXpcuXV
P/zwA923fPlyVwq5dOlSt27dChUqJK6TtqbAmBooWdq0aRkLJf+D4OBgrx84
aU3+/PP58+e6iofLQG8x8ngBcdaB8pMxY8aoD8rWBSYX06G+hdkmxCrtV199
ZRELi7wRhgADQdfXLFy4MEWKFHXr1lUTBowSfYGnMH7p1q1bsV2BgYHWspG3
bNnCA0jPIGcJURAO1KtXr7YGZcuWTZcuHX5c+5Uyc24WEDXuWHfhjE90Q2k+
RCsYesjw8OHD4kMnuK5D5RvDJvEwUbXUsHayLnGWcnaQPZV3hyag2KgoQZmL
CQwJ5imJTThUmhNcN5mqHBasffv2qBnf6pbGu6g5thePj/sTrDg6OtqAXF2+
fJn4JUuWLPQs7uljPYPFrTCR6169etXHxydJ3YZgJ9edO3cunrRcuXLOLUQa
c12RSGmQukMlhQVu3Lhx8j2HQeQ7DRgwQMsSz507ly1btrZt21oMfBoeHh7u
eqYc5i5r1qzr1693pRABzNfo0aNRdcieLulavHgxqtKuXbukdju5gfytQZzM
gOWcN2+exa+g9MQm6s1rWogp7o4dO9ovisePH/v5+SFbC1stJlVSpkypG7Aw
KEJDQ+kUi6l7+HmZMmUaNWpkQG9E7qJIT7ImmdWrV+NxcuXKpT2lwR54Ml9X
XHru0AY9Wj1nzpy9e/ciAWVvkRNc16HyjWGTeJioWmrgvIhMtfdEv3jxwpQD
Y13RhJMnT2LEMJKuuwCzlMRp6JbmBNd1qHxjeFLlRNYcNqdJkybGvQklgBhY
u6taqTnBOLpBaa5nRHzKMIvriov28FYNGjSwdvGi52EP16W2hGbUnPorSksY
NW7cuH79+hHy24yhjLnuzz//nD179uLFi1tbbFWO2Bo/fry74zVxkx2DK4cj
oHqnTp0yLllca9W1a1etEMTEmnaeUBwCWbVqVRcXZbZv327t0hkngD4EBQXB
wL///nvtt+LAIt1bib0LA/lbA8QeHoiSa/dri8uXcZcG97/QfWh1z5497X/j
kSNHUCft2XHY8EKFCtGJump27do1NBYybOG76QLGHYNL9yZoAXEQokFOOCYC
40Cf1qhRQ52xbD9M5Lr0iHH2l7j4plixYg4djxYbG4vzJY5QH5RqFtfVLd8Y
NomHiaqlhli/M6YWrsBpTRARGUZy8+bNCYm9bDC76DElcQXa0kzkurrlG8PD
Krdq1SrC5+rVqxublHnz5qVIkSIwMNCAMmHYS5cuXbBgQTt3yktYg1lc9969
ewwuut54LsjDsIfrrl+/XpxHpF7xQSwzZ87MmDGjPfcoGXPdpUuXGiTrioMR
eKBo0aLqfEIMWvfu3aOiopQy6SM+EWOHqvI6pM1oUgJbzGOvXr1oqXFkyqDe
vXv3NrsBSTh8+LDN06jEDiDdqWmUBwlrs5FXrlyZPn36ZcuWGZdsEzExMRCe
8+fPu1iOAH5n1KhR6IxuFvGmTZsYCCNHjkxqXNdA/taAwnTo0CEsLMziNJs3
b94sWLCgUaNGtDQ8PNxaOhy219fXVxvCYAGg3HiiiIiIJUuWoN7KaQ9TpkxB
aSMjI/m2ffv2EydOFF+J3fG5cuXS2nP0HxqQIUMG3VhGBJIGoQesJk+ePNaS
dRMSczV9fHxcyZZ3nesiGfxmaGhoSEgI8QV+bcyYMbpElCcROBV2aAoaz1uh
QgX1T3S5LpaQuEBpCEwJ42kQR1gr36Z1skk8TFQtNUSyrjG1cAVOa4JYoSBW
Fe4VVdRqu+eVxBVoS9Pluh+rylEawbuxVxLLVTZzPpFGtmzZ6tWr59CBkBJa
mMJ1KSQ4OBh/ZFZUKIACEOf269fP6XsolCxxa1wXTc6XLx/t0u5HRrFxvvbs
UzbgulSgS5cu1pJ1aeCaNWsyZ86MMsM/1V8RO+TPnz86Olr8imHbrl079fnn
4tJhiIrCbJFS3rx5GYxeSeahGl9//bVuktiFCxewCRZXlT169Kh8+fLWLoux
H2Jyz8Qrb4zvkqBfihQp0qZNm6SWWW0gf2uAxBKCWSQGIEbGMuqKG23VqhWa
GRcXp/vzEydOYMzVtwIhuhUrVtCt4rDo69evQzLr168vpqF4XfPmzcUR9zxJ
zIW3Etm2mH3UW9c1fP/993w+cOBAXYHjXJo2bVq6dGlrMbjIxbWWrMvoprYp
UqQYNGiQ02vHrnNdwsnevXsLH40+IxOibLy27koQLUIgDp1lROSCL1Y3UMt1
ES9arbYwmCb4kj0hpLZ8Y+tkk3iYqFrqBopUMYNsFhfhtCYcOnSIHu/Tpw8e
BPlTQ+2UrOeVxBVoS9Ny3Y9Y5eigSZMmpUyZElZgTaTE6SLKNrirOkF1l4Q8
X9dF2MN16UqR0ao9Q+PNmzfoA94fYrZjxw5zWRZuFw6DdcL5OnewAw5OXF6g
PUsE0iLmi4KCgrSzSYI52FyDEDDgug8ePIBI8xbttv1bt2517NgRqfr7+2uX
y6G+jCPlOhgx8aU+GPbSpUs5c+ZU5h75HIbm5+dnzylMbgKVyZMnj3ZmALOA
CWrUqJFi0549ewZFCQkJcf0cZrERw8Wb39Uw5rp8O3/+fIIg/JryIaMAQuj1
DF5r8rcGqA79olYYRhn8VpnL3bp1a/r06a1t/iKwxZWor/A4c+YMkpkxY4aw
AyKfTZkDF/9UTooQm0EYAuK3wtcwjtSD6Ny5c1iA7t27Wxv+mCN8Jf5CN1sb
LyO2vEVGRlrQG8b1zJkzcSIQBirsiot3kevyQ3j+3bt31dUWq1FjxozRsrL4
+Hh6efHixXaWL1aOLDpRy3VFLqvSO/RCjx49cN82j0LVLd/YOtkkHuaqlgD2
Fv+VKlUq9x1347Qm7N+/Hz0UK1wwH+3pUl5REqehW5qW637cKgf3wJCib7xX
ewQH/gKqDPcwWHISkPemmQVjrksP0iP4O+VaAWgb3gd6VqxYMUYT7omfow8G
s0nWVgFsAgcH4cyWLVutWrUcnbU7efIk5FBschQghvJPBPVnUOTOnZum7dy5
U5eiMNwqVqzYq1cve7J3tFyXPzBB4i425ToG//+ACjCIEB2qzhDT+nGxjI6E
lVYLJqA+ehSLDRlWlnuIPQsVKgQ98+IOTSpDMy32fQigSPR+aGgokREmiIbP
mTPHFHYqkn6tnXHhBIy5bkJi79DGgIAA+gh7O2LECJyOevLTffknxjCQvy6w
sd26dVOv5+JzGRpHjhwR/xQZArqHuQnHRD8qPxeXNTPKlBsrLC4qpVhKY8SJ
f96/f58AGbIt/onY161bh0nBVmzfvp3HevfuzWAhsrBm5MWFCJgUFKBFixZq
dTp8+DAfiov5AESC0SRGH3/gX3AfZcuWxXMZJCTbCRe5rjhFhFqpg5Q1a9Zg
uyhW6yX55Msvv0RKdqoKpAjVsriWUct1+YTOUpRH+G71LJlD5RtbJ2PiYa5q
MbIYifny5VN8gbiBi9GnlGYWnNYE7ADROmZk0qRJWBVtioVXlMRp6Jam5bof
q8opwHDhmHgMFs3bN2zYsHv3bhwfxgoaTFdeu3aNMNx4ZVNyXbNgZw6DczBe
BbATaP7kyZM9vAPx3LlzqCjGB4rOKECHDY5ttHm+rqNAPkgpJCRETDeJfX/q
KTte1KdPH+WuW4SDGWHUePcYB8YsQ1KsxOk+gEknBrly5YqJU6AHDx4sWLCg
Wcm6CXZwXQEY771794hBEL72PEyv5J/YlL8FNm/eDJ9U6kCL4H4lS5ZU8gGO
HTtGvKZ7EB+KV6lSJXWIIVyVcg+vmHtBDspB6xh52qhMYuzbt48gmg/VxfLq
hQsX9u3bF48P4zXYtHjp0iVeBw+nsfgRKLrHLh+0gItcl4CCyuNV1fUXlxrr
HpEqrEG5cuXUx8QZAP2ER1nMFWi5LmWqN23h4qmSPROD2vJtWidj4uEm1fIA
XNEErARGLD4+XlcmXlESp6FbmpbrfiIqxyjbtm3bsGHDIBKDBw+GETkUX0uu
axbcynWNVwHsBAxh3LhxHr6IbcmSJYTMUVFRKBjjKCIiwuCoedO57t27dxlW
Y8eOVchS69ata9asyQCMjY2FD2A3qlevLsgSDzdq1GjQoEFJ4f6O5cuXly1b
1qH9v64AgRPgt23b1kQ7YCfXNYAX80/slz+iGzBggPrsEbEZXDlmX+xwgZPr
Linu2rWLRqkrLC4eUg7Ixcu0aNEiMDAQXYWRIoQpU6Yo6cQ807Nnz6JFixrf
cmUNREz+/v54HzHizp49S2SqjBcPg7c3bdrUlbNEGMLq85kFURFnFumufUAP
aL6dtw3u3buXjrCYO7LgusLCBAQEKClb2BlEGhcXh6iN0z615du0TsbEw7uq
5Qpc1wQDeF5JnIZuaRZcV6qcnZBc1yy4j+vaXAWwExAD2LJZNNIeiGRdJV6G
A4wYMaJQoULW5pZN57qIKF26dMoRZPwzS5Ys3bp1owKjR49mCF+9epUgYvbs
2QSJ9evX37p1axI5FoCxj0FYunSpZ14XHx8PtVPW3E2BwnXnzZvnxM+9m39i
v/x5MigoyGLOdt++fZUrVxYu9enTp7Vq1aKq2lqJ+3zxHWqFxx10SITYRLZz
505MNJHI/fv3x4wZw0/wUBQueDgvKlCggO51wDZx8ODBPHnyQMuV3WqMCDx+
hQoVXE//dg7mWicoaJ06dTJkyGDtBC1x2QddYDMLSMzVY74s7IMF1xXhWI0a
NcQnDx8+xPqhw/yBT9e9dM+gfJvWyYB4eFe1XIfH/JQHlMQ5WCvNgutKlbMT
kuuaBfdxXZurAPYAlYN4mJVHZCdEsq5ydIOIQAsXLmxticdcrivGcpo0aRj4
IxIxYcKEsWPHYigGDhwoeB1jGXfPG7ds2ZIUpnPVwAjQ6a5fLm8TSDsqKqpv
377mHolAb06fPh2ua/PiMF14Pf/ETvlfvHgxICDAQqWJ8qhtq1at8BqhoaGL
Fy/WdX+Yi5o1a2qHw/Xr12k7DqV///5ID87PK1BasfUSBzFs2LCuXbuOGzeu
WbNmDm0SVyBcJIVYqP3GjRszZswYExPjxXx1s7B27dq0adMiNwOVIBKpXbv2
/v37jYt6+/YtohantqphwXUJxzJnzuzr6xsWFjZp0iS6jxinTJkyYubfYHzp
lm/TOhkQDy+qVvKCB5TEOVgrzYLrSpWzE4cPH8ay2byWQsIm3Md1jVcB7Exq
QnW1lzq5G+ICOOUKJ3GYc4MGDawt8ZjLdXlLUFAQZAlB3bp1S9m+hMTMOvvd
rcBMwc+xDO6e4sAIBAcHm5VjpgZMgFAaA+jEFUJezz+xU/7r168PDw/XtZ+o
GXbe2jQCeti4cWMYte63vJRgVpEbY8di4ww/dyUOQqr8XNs0PkeY1q5rSUaI
j4/39/c3OHpCAUYbD2hsSB8+fIjJ1Z4zo+a6iG7mzJnidlqeJ/gS9hZDhKiN
Ywdr5RvDGvHwrmolI3hGSZyDtdLUXFeqnJ3AR0D+U6RIYeLm608WSlY2cdbl
y5dN5Cc2VwHsKQSG4PmjnM6dOwddUfItqXmWLFnWrVunfRJTc/r0aQK9Tp06
devWzRTp4bLz5cvn3KRiEgEGATu8du1a9zXh5s2brVq1ctN2JAzvwoULiaYJ
2B09XD0p5J/YI3+02okIl/r3799/yZIlSSRn5iMDrpOYGgnbE/vQBUuXLu3T
p4/BwxhbNE07S6bmunwbGhqq3jtpP6yVbwxd4iFVy054TEmcg7XS1FxXqpw9
wGX069cvbdq0Yt+Qt6uT7AGZJK7JnQgxl2hi4carAEkWhG9VqlQRWf1Pnjxh
hEZEROgq25UrV0qVKgV1QXrffvutKUMGEpIjR47kvgyHG50zZ447Jl0TEk3l
4sWLtTfbmos7d+5AWRkU7du3t/N4oqSTf+Im+RMAbt68OWm6huQOcdzxpEmT
7Pfj4vg7J/LV1VxXnNrnvhsWtNAlHlK17IEnlcRcqLmuVDljvHr1qnv37kFB
QYMGDXK3m5MwCzZXAZIgGA4QXUKA6Ohows+ZM2d6MlVm/fr18Cs3beaVcCuS
e/6JhLfw559/RkVFzZ8/X1kbQoUIlNykNnDd/Pnzz507F+6Bfa5Xr57H7nZ/
+PDhihUr6tatC/dIvktXXoGHlcRcUNXy5csPHjyYGP/q1atS5SQkkgjevXt3
//59T57/IJHc8RHkn0h4Hn///feMGTNwx+oppuvXrw8fPtxNGVzw2/Dw8BYt
WigH33kMZ8+ebdu2batWrSxuRZcwhueVxFy8f/9eLJP17dvXwzM5UuUkJCQk
TMTHkX8i4UlAXebOnZszZ84KFSpUTET58uULFSqUMWNGb50YLJHUIJVEQkJC
QiKJQOafSDiKuLi47Nmzf6ZBqlSpVq9e7e3aSSQJSCWRkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ+KTw4cOHv//+
29u1kJCQkJCQkJCQkDAT//zzz6FDh8qUKbN8+XJv10VCQkJCQkJCwkk8fPhw
0aJFXbp0GTJkyMmTJ//9739bPHD9+vVNmzbBfLxSPQnP48iRI3Xq1AkODq5e
vfpnn322dOlSb9dI4lPB27dvd+zY0a9fvx49eqxbt+7PP/+0eOD3339fsWLF
ixcvvFI9CQkJCYnkhXfv3k2YMMHPz69Fixbt27cvVqwYxKZBgwZxcXGC8b55
82b69Ol8cvnyZW9XVsJz+N9E8MfixYs/Ha575syZESNGQLEiIiKI77xdnU8O
2Jx9+/ZVrFiROCs8PDwgICBNmjSFCxdeuXLlX3/9lZC40HDw4MF69erFxsYK
/ZSQkJCQkDDAkydP2rVrN2rUKAit+ARXsn///ipVqkBvcubMWbJkSR8fn8GD
B798+dK7VZXwFj4RrgtxWrdu3aRJk8RY2Lt3L0Tr8ePH3q7XJwTYbHR0dKtW
reLj45UPb926FRYWBuNNly4d5ih37txBQUGXLl3yYj0lJCQMwECeP3/+uHHj
bt++bfAYQSv0w8/Pr3z58uPHj3/37p07KmMRERNNyxjZu6ALPnz44OGX/vLL
L1evXtV+DuM9c+YM6rpq1aqPw93//fffYl5IwlF8Ilz39OnTEydOVJTkwYMH
JUqUIO7zbq3U+OiN9vv37+Pi4nTN4P3792NjY7/77ruff/75I2u1hMTHh19/
/TUgIKB06dJPnz7VfeDly5dRUVH8//Xr13PmzJkxY4Y7HDT8uVGjRnDp8PDw
Pn36NG/evHr16leuXDH9RRL2gO7AzzZPBNbeiRJwEARH69ats/gcbxgTE+Pv
7//Jph8ggSNHjgwcOPDbb7+NiIioVasWnM3RIwXwrdOmTStVqhQO1+IrIgWG
My5Ym+H80cBErmsgybdv33bo0IEhwB+uv8hRMAZHjBhx9+5d5ZPvv/++QIEC
MCvPV0YX0mhLSEgkI2zcuDFDhgyEqLrfwnIxYmfOnHFrHfAmmM306dPjwjJn
zoyLUa8ZSXgS0NSOHTuOGTOmTJkyX331lXNc9+bNm3jqO3fuaL86dOjQ5MmT
lRSFTw1nz56tXbv2xYsXxT9XrlyJ2kPbHKKmPLx9+3YCT+0iy8OHD0eOHHnt
2jXTapz0YCLXNZAkQf3s2bO3bNnilVm78+fPQ8KVV2MhW7ZsCaVMOmsB0mhL
SEgkIzx79gxWg9XSTU74559/IiMjg4KCfvvtN5tF/frrr7du3XKiDpjNoUOH
/vLLL+7eVv/q1asbN2649RVuxfPnz/ft2xcTE6OdhlKDNrqYzkqPBAYGarnu
33//DU9LOg7XK/jw4QNCcO58V0LLNGnSQEcFjfnxxx/hCeHh4UppSURFiVYg
kwcOHGBQe7sulkjKOQwnTpwoV66cyMNhmCxfvrxu3bpDhgxR1sFh1wcPHuzS
pUvfvn0JKrGuQsLog3pYrVixAuHHxsbWqVOnZs2alSpV6tGjhztmmJO+0dbF
7du3MYaef6+EhEQyBTb222+/zZ49+9mzZ3UfuHTpUu7cuXv37m3McAjqO3Xq
5NxOYcVsOvFbhwCfHzx48Nq1az2wwvvixYsNGzZMmTJl0aJFiMXFNz58+BDP
6OPj0717923btv3xxx+6j/EWXjpgwAAX3aI1rivKHzRokLUKuAm///777t27
tUf9eB5IBhVavXq1cx2KPE+fPv369Wvxz/Xr10N958yZo5TmVhVlsJ85c2b8
+PFhYWHTpk179OiRxQPwlj179mAKEDhRVUREBJYhNDT0wYMHplfGaTjKdemy
Y8eObd++/fz5825dUKDLxo4d6+fn9/jx4zt37gwfPnznzp0EMohaEEJ6f9iw
YdWqVRMT7/Q1su3QoQOfQ5IXLlwoOh1iPHr0aOJZCkHT9u7dO3fu3ODg4GfP
nplb4WRhtHVBLNa5c+ePe/1CQkLCXPz88894NCyzdrWO8BmDVr58+XTp0uF/
rZXw9OnTkJAQHIpzFRBm84cffpg4cWJUVBQvcl+OHBS0TZs2+HE3lZ+QOJ8z
Y8aMFi1azJo1C+aAn6patSpOzelNVXCSypUr58mT59SpU8ZPHjhwoGXLlq7P
eFjjugmJdAgCP2LECN0tG7jsIUOGNG/eHEKuZmu46XHjxvXs2ROXjZ9yqDKo
5ciRIwm4dJMiPAmaTGAIVzTl0q5ff/31yy+/RMgWiyYGKkoFlixZ0q9fP9RJ
LQ0+X7ZsGTFIvXr1Nm7cqMuT7969y6/KlCkDvWnSpAlDPkOGDJGRkQpdoUA4
MFEtRFf51eHDh3kSBU46E7wOcV24/ddff02EWLFiRX6VMmVKlJARak2S4OTJ
k+hwq1atBg4c6NBWXGKxhg0bNm7cmBAGJbGQGJ0yb968HDly/Pjjj8qHMTEx
vr6+ly5dio6OPnfunPiQHkHh1a9GQ6pUqcLP7a+MTSQjo60LxIiNffLkifte
cfHixR49enzzzTc9/oNu3bqJDSwJiQE4IUnXrl2Vb1EzHiaYdV+VJCQknAYm
umnTpqVLl7YI0g8ePFi9enVMyo0bN/Lnz1+rVi21E1QAHWKAY9udTmzDquNZ
sJyQNCrDHw0aNLC2Xc51YItq167t3MqdTSCEOXPmTJ8+XU2HXr9+3bZt2zp1
6jjHQhcsWJAiRQo8r/FyIS67Zs2asE0nXmEBA66bkNicZs2arV692uLz+/fv
QwVxBGJTj0KGUZthw4bFx8fT/HLlyqEqDk1anj171sfHJ1u2bNaWHjyGdevW
wdXtyecxBmwKwpkvXz6Ilm5p1lR0x44dK1euRM6FCxeGJokPUTmIHxQXlevf
v7/uOD169GhQUND27duVQSqOKYZooVpF/gMaaKFjlAlXTJMmzaZNm1xstVmw
n+tiWAjhRYxJw+F1iF2cg6oryYTERFkIDPq/f/9+osu4uDj7K/bgwYOCBQum
TZuW//ft25dwTz18sK6lSpVCf9QkloiGUIKgmEGhLJyhHtBa9Rh59eoVXBeW
ZVbycLIz2lpQcwIEqKb7lnv++OOPU6dO0ReZM2dG5dq1a8couHbtmhgj/J+/
GVMijKJzFy1a9NNPP3l4zUtCQsJOPHr0qG7duriz9evXKx8yiosVKya20uPv
MCm4Zt00UQZ7tWrVXLFyWHXchOJkqY+fn9/gwYPdlAlGsfDGiIgId5ypdeXK
lUqVKmH0LKb+rl+/njdvXtyoo84F4eCSsKVz5841eIy29OrVCw9rypSjMddN
SPTRVatWffjwofpDHAHxEd2H5qhbysNbtmxJSBQC5Gr+/Pn21wSXSphA89On
T+/dA5doF03evXu3WQXCwWgaZWoXkXVVlL6YOHEiA23z5s05c+ZUpgcpZ8qU
KX8molEiLLw/KnT58mXdOAvGu2fPntmzZ/N/3TlMfjtu3Djk71CvuRX2c90X
L15op20TrEuSsTNjxgxxBiMBJrrq0Po+ek5phw4dEhkgZcqUadGihcJ8fvjh
ByjTpEmT1CQW+p0pU6bq1asrL+LbZcuWHThwQF0yUQ/WgyDa/soYI9kZbV08
e/asRo0axBRufQvqkSVLFuSvOz1C4B8QEEDAiMK4tRoSEskFR48exQAmtbOA
GL/BwcFLliwpUaIElll4SexVv379CFfFpYfUGWeaJ0+ee/fuWfyckQ5Pnj59
uontwucGBQWVLFnSfclgFy9ehI85vX5nACSJ3cMCKzmZArjXxo0bI2RH/YvC
db/77juDx06dOuXv73/+/HlnKq2BTa7LA6iNbt7LypUrfXx8dOdgCaZy5Mjh
0BofbKRnz57FixdPlSrVmjVr7P+huRC9gEDMnbS5efMmISQjyEJbEqyr6F9/
/dW6des6depoU08JPQoVKuTotLkx7FQ/m6DaMTEx6kO0nIb9XFdo6YQJE3QD
TANJQno7duzIKNZdydKFEFSRIkVEFrT4Z8GCBekUbOzWrVux/1Ami9UQeFTW
rFnVNInopk+fPko+gyhq8uTJ+fPnN+vetGRqtLWg/rNmzYJquvVy3rlz56Jv
SEx37F+7dg1zRye6+7QiCYlkAYztqFGjbC5DexiXLl2qUqUK5IRaDR06NGfO
nOI0pJcvX/J5r169RG2pPN9+8cUX2vXWPXv2EM67snNcHHHZrFkzxUjCryAV
cAD37YiB0rds2bJHjx6mzIKqQZ0nTZqkdlUCSLJ3794ZM2Y8fPiwQwXaQzYo
HP8YEhJi1nKeTa4LIBtlypSxyJcTp242bNhQm7wnAqiyZcvan8hBXBAWFoaW
1qxZEwng1xxtiFlAOStUqLBo0SJXCqErjx8/vmnTJmW1WkwK4Si1/N+ail65
coWoU72dTcH+/fsJJcyd/TaL62JS4EKu1436QNLsVAYehujmzZtX91haA0mi
ouh2//797TfXYlK9adOmYsiIJPPKlSv/+uuvqA2cljL558SJE5XXwYrp3/Tp
0xMgw7dFFIym1apVi0+Ux4h3CGNN3K6YTI22LuLj42nL9u3b3VQ+oYdYVxoy
ZIhuxES/pE6dunz58kknoV1CwotIglz35MmTmFBlj/DZs2ezZ88+duxYLCqc
FmY7efJkYV2JZ/FT2mwxvHDnzp2bNGniCsXCmISGhvI6ZUFcEICqVau+evXK
hfbZwIIFC4oWLaqdqXYTEB2uM0WKFMuWLXPoh/aQDUSHwTdxEc0ernv9+vX8
+fNb7FhEi4iYYmJiUCHIsHoJ/vfff69Ro0anTp3sjC9EPh6BGHWAQiABAi5v
XVG0YcMG1yfWkEmlSpUYZcr0O6pevXp1Prlw4YL2ea2Kiik+GMXNmzfj4uLU
K91CTwoXLmyRWOIikg7XRWgoZLFixdKmTUt9+D/mi6hKOaxYF3TZ559/Xrt2
bYs43UCSCYn50kQNdLr91YP1lS5devbs2QojpRC6OzIykheJcYTJRQg4Aj4h
OOX/jx8/HjRoEO2KiIj46aefxDPYZJ7B3s6cObNnz55dunTRvUzQOSRro60F
raAtHTp0cNNBiM+ePStVqlSaNGm2bt2q/VZMMqCNiNT0aRMJieSIpMZ1Dx48
mCdPHvXBj+/evcNoVKhQgfiUSg4YMKBbt27i23379mHWtNlKT58+LVGixJQp
U1yccNi0aROURinkxx9/zJs3r/bWLXNx7ty5XLlybd682R2F090///wzlA9m
i5+iaVjCsLAwm2m3WthDNnbs2JE7d27tZLLTILr58ssv69evb7AP/c2bN3Xq
1FGfDQvmz58PJ7xz58727dvXrFmjVoxr1675+vouXLjQzjrAbbp37w5DRhu/
+eYbJGDxLo+BCvTo0QOBuHhiFe6YhhBOKn75zJkzEN327dvrylmrolCm4ODg
1q1bIxa0Qj01h9Pnq8aNGzt3/Yc1JB2u6xxQmF69elF/qKNaeQwkCWgsA8qh
mU8E9eLFC4tYjMJhs+pRwAOPHj3Cciof8seTJ09EEgt/L1++XCz9IDF+a3pw
l6yNthYiv46Q0E1XhxOAZMmSBV9pnKzr4oqPhMRHA1O4Lrb6+PHj48aNa9as
WfXq1Z3eqvDLL79g7rp27WrhYTdu3JgxY0YYGgbk+fPncLN+/fpNmDChefPm
ujzq6NGjOXLk2LVrl+5baOn69esrVqyYKlUq+M/06dMtvDAkkBISEt301KlT
R48efeTIkXnz5lWpUgVGpGU1Fy9ebNGiBTXMnDlzp06dLE4HhYfwOvsdvRCC
6VOFtBovQBN69uy5e/fuU6dOYYqjo6OJIAIDA1OmTImDcKhAm2SD+uPHaYtx
phwVO3bsWEREBNWo8t9AlyZOnCgEjkknxqlZs2batGnTp09fq1Yt6JlumiUF
0sbKlSurZ8xob7ly5YYPH06dLdIY8INoi51ZbWhmnz59xJkS4ghoJNCoUSNz
iZydgMNUqlSJxhoPXogNRKVdu3Y1atSwkHDdunUPHTqUkKh1kZGR0N29e/du
3bqVr3jeWsdpVZQ/Jk+eTIhBlIqaqemKOARAvUSuBlREK3mEyUDjFalTp6Ym
YjBaIFlzXWzC7NmzeW+6dOkyZcqknrw1kCQDoUOHDmi+QWjz6tUrrE3//v0D
E2HWMVMfPnwYM2aMuTPzFvCk0ba/NFdAW2iROzZfAJwsyk+cq5usS/1z5syZ
LVs2mawrISHgOteNi4uDV5QtWxaydPPmTeyw0yQNw6573w2fw2qUzVNiwoFP
rM0ALFmyBCOjewf6X3/9BQGD2kGZPv/8c2wdf6uPuMGqw6KVtTnx6s2bN0MJ
dFfB9uzZkz17diJoQmzorrA/apYFsVy1apX9kxViM0XDhg1NPLIGewiZhHKo
Da+4fwFHUKBAgQwZMhw8eNChMsUB9QZkA1E3bdqUthjMwd67d4+WUggyLFas
GNyGv+k7wcRq165NVzqhThAJTL3Fyj7dpyVvKFvfvn3tz2rbtm0bblRxnbSd
CgcEBGj3cHkA8H9fX1+DBFH6aN++ffQv+sn/8+XL91kiihYtinirVq3auHFj
JVrkYQpE1eG6d+7cMdBYXRXl+cePH2tpGBWgQwWjtsD9+/cJWi2GFWX26NGD
odSgQQPCGbQCNqK95tXOY0BswvNc9+zZswifyqMzxPU0gV5QjxFrkhTJuoQk
uiMCnVy0aFHu3LlDQ0Mhz1hIEw0IAwe1d+udKR4z2o6W5jRoC2bNxVhMF9Sw
TZs2aA5xLm7xmQZogkzWlZBQw0WuK45hDAkJsX9fsLtBi4YMGYJn185CiGNz
SpQogRkUdAV3M3LkSFy/six4/vx5+8/k51elS5emBHGINzLcvn174cKFsdvi
ARwWlXHoXHExe2MxLekK3r9/j0nMlCmT9lgqKtakSZM0adLkzZvX0QsRqCdU
hN9u3LhR9wGRBdq+fXtrwrx9+zYhEmTm8OHDglnhX/z9/ekgFxf+1q9fnzVr
VoMZlQcPHhCa0fs4ceowaNAgexg1TiQ8PFydpyqu1rU5d+0mHD16lGZaW59F
pFSPfm/VqpXYmEMbV6xYkS5duu7du7uSdGFTRSFF1Eoc+EkoIRKQLJ6hMjNm
zPj+++8t6gx3DQwMVFZm4SpQQd3bCnDocHhre3PshCtc9//+7//+ny38z//8
j/oncXFxmKbo6GhRZ3HeV65cuawxKwTCMwTUPL93715xdJj2MfgbckAVYVbu
SB2n+86cOeO+s3o8ZrTNKg3NZwhUq1YN12ktBKAtBQsWdEcyP9amZMmS4uzc
AA1Epj3fhoWFyWRdCQkBV7juzZs34XVYCa/fG6UGDenatWuZMmW02+rx+KGh
oRYXOGINsHV4WJG8Om7cODvXfQiuIyMj1blhAjgjCJ5YKMc9qU9fh3bOnDmz
QYMGWHUc+q5du7TuQxwLgGC1N6Vaw+XLl6k2v9I9O2758uU4wS5dumiP7cXO
16hRQ31wDfRp8ODBNMGmfT558qSvry+m1RrhgUj7+flBdXRViyggODgYX3Dp
0iX157Nnz06bNq2L+5ehLlmyZLFGwqlP//798+fPj1OjelAde6i12OINV1RL
+MiRIxkzZtQ99c4D2Lp1K1zX2l17tI6KQXTVM4Tv3r2rX79+8eLFXTnC1KaK
In8o3NKlS2EU8ArdJQMCh+HDh1uswGJSoBAWgcOGDRt0z3+mCfBthpLxLjBj
uMJ10fzPbAGmqjxPk6kwr1N6hD9q165N9GFt7R4jRixGJ165cgUOg63W3euE
FWKMd+rUySu5NK7DY0bbrNLohRMnThCz0KHW5nnEPLz9u8PEVAmDgtDb2J6I
k3U///xzXc8rNtumTJly8eLF9rzXFaDSU6dOxRp07Nhxx44d3tqiKyGhACU8
e/bsli1bNv83Nm3ahCFt1KgRxMDiKx6Oi4uzxoEpkCGJMbe2puYtYFjatGlT
qVIl7dmGsbGxFlxF4Pbt271794adEtqPGDHCTn+BX9a9rBMzyOfwT3FrjzgB
XgAbNWvWLMQVHx8fFRWlywHEQWqwFN0LMnTx66+/QqEhXdrrkrFF+Eqc6c6d
O7U/FFOvdKJykjzdjT9Nnz69NedLo9AKOj1nzpzI2YAl4lbgk9buVFq2bBne
WXuw0rp161KnTu3ilopjx47BtQwykHF20Cc6HXdg58auCxcuNGzYcM+ePd+r
EBMTkylTJvUJBtaAdtHksWPHjrEPEydO1D2QSo3Vq1fj8nQTC+kmfHru3Lkt
eCCjg0DMx8fHlev5bKoo3paeHTBgALpkLRDevXs3UZhFsfxKe/Ydw2TGjBm6
WsQYpFPy5s07YcIExGWw5x35U85mDVCS0qVLM+q1X23bts2YcjBYztjCv/71
L/Eweg41YiSqrxighG7dujEQrO1FpdWMXAYRdILAStcaM/wrVKjA8Ned8k0W
8JjRNrc07DkBiDWui3WFCbds2dJOrkutsEutW7cmfDM2/iJZt169errXH1+/
fj1XrlweuM+R+IsxLq5Wf/LkSa1ataC7bn2jhIRNMCgwmHXq1KmtAeEhPhFF
tfichzGw1pgABrZ8+fKMuEKFCpX8DzBWupzKk/jw4QPmRffQXT7R9YZ8OGzY
MMzLwoUL7T9mFjph7RwbOCeRAs53ypQpavcEO4KBGOd74N0wtr6+vg6db79k
yRLdlVAca9q0af38/HSn4DDs/Aqqpt7iJw4Ka9u2ra6sLl26hHem0zHj8GGD
MAeeAB1CsNpnxHxykSJFtCZ99uzZrt/OIJaGLaiUKxBJpESFYf8NepO4IEOG
DDZpBi0tUaJEihQpbM4ECsB/oLvGZeK1aebx48e1X506dSpr1qydO3e2mMwX
87rEIK4cN+qcilqUMG3aNCqp/vDp06fTp0/Xat2qVauszfPDIrZu3Uo0V7Bg
wYiICAMCj6pjFrTWD65C95UqVUr7VWBgoC4vcg6C+fAi9ay1WGJwIlteDX5L
CQxzFEwxxcHBwR4+UdYVeMxom1uaMdcVp8GrLyW3CTh2s2bNvvrqK4M9Dkqy
ru6NOQmJGVxYD93EIRNB64YMGaLknIggGsLgvjdKSLgCp3MYcCvQJBedpjsg
kgnLlStn/0gXE0p79+7F3JlyDOPJkycpEMdtsQ/6+fPn2PMJEyYYSFtMmIuL
jex8HU3++uuvsboWO6REFhxWET9ibekzderUWE71PIbIsYTJGOzO4PnRo0dj
UceMGWNt1kKkqxH4aw0y1DpbtmzQaQsvQFHh4eFZsmQRR3o6DbwVTE99tbSL
gGvB7rQ+S5xyiQxNfJf94KXISkuTxBmt1MriMqyExGsCihYtWq1aNVc20zmh
ohago4cOHWpBlXfv3m1xnGxC4io/bFD3RQQgffr0geOJm4idq4nH9qadPXsW
ncc0qccLf3fq1ImxJibHnMPixYuJodq1a5cUkjPFfZcoWHR0tP2/8rrRdq40
Y64r5ts7duxof788fvzYz88Po2oQYYlkXWuJXiJ6cvdBiFSPCFR9tC/jqGrV
qg51uoSEJ+E01718+XL27Nl1I3HvQlwEVqxYMYd2hMXGxmIili9fbso0Dp6L
OuDNLdaYKByLmjlzZoO1HurfvXt3h7Y7vXjxomLFisp1cgqEJ8XujRs3Ttuu
d+/eNW3alMocOXLE4qsTJ07wuXJnhy7ERR5wLYvtRQoED+zatatWtTCS8OSp
U6dalC/O2MRmir1+TgMvANe1lobhKIhQCCUMUuNcPw3AOeCaaaZ6TVwAgXfp
0kU3s2Lnzp3p0qX79ttvXck7ckJFLYBmRkVFqSNBsfndInBGPZYsWTJt2jTd
2tL89OnTw/FcOa7fRK5LNQwiCJg8krc4e03c2VG3bl1XTkieNWuWwSyfhwH9
g61t3rzZoXMMkoLRdqI0Y66LNStevLjNIwHVwBTnyJFjz549xi/FOOfNm1ed
HaeAytSsWdPdybqoK/qmBCZIbMGCBdht+/PuJCQ8DKe57qNHjwoXLlylShUX
aYnpYNxBonx8fByaKiFKJQZ3ZXZFjXv37olD2NQfIuFDhw4Rbvv6+vr7++ta
qoREp9+sWTPtLefwikGDBvXp06dHjx7ffffdyJEjlWmxc+fOQWw6d+6Mrebb
sLAwYXPEXQMpUqRYunSp9kXY1UyZMlGgdroSUxYYGGgcyAjNwclay62l/rSi
cePGWiqycePGtGnTamcdkRjsxdEb3LSIiYmxJ4fWHtDMmTNnWvOANK1JkyYI
ge7wPNO4cOECzdTKX1xBpb0X9f37923atClQoID2CC+HYE1FHcL8+fOppLJW
iz1BFdUFinMkCMcImrQ/59tJkyYh+RkzZrhCdVznuuKEBGI6xhrEBjPC/7Up
Q4z9DBkyWFxZQg/mzJlT9zpg+7Fp0yYiR69ooBYwsWrVqjl6LE9SMNoWpSFM
VBSymi1bNnGetoA4fVrsUzDmukTHmHptRM+v0BZsdUREhAjlxKqEuH4CrhsZ
Gcm37du3JzLSLljMnj1bvZvYAsbJujSkXLlyIgzBdmHWKEd9c1NCovPi7egw
+ty2bVtlm566JpRAVS9duoT1I9ivVasWcnDx9kYJCbfCaa7LSOnUqVP+/Pm9
sgPdGFu2bIED6OYxWgNhKbbFrPscb9y4gT1Us1lKHj16dGhoKI4bJpY6deoJ
EyboOrhXr17x26+//lq9AnXlyhWYJ5Wkv7A5ISEh6rMoMZipUqWKioqCzNCP
mNCOHTuKtAT4JH4wOjra4l0vXrzARlWuXNna5jKccsaMGQ1mGGwe5i8yK3QJ
My6e+lv4fehB+fLlsa66Gy7sh7jiwawbi06dOtWuXTtry5pi/zhC6Natm+dv
HqSBNFObEU3XTJ8+HZdnwWl37tzJuCCUcHEeTFdFHQWVh1oopy7s2LEDBVZk
iH7i8dEH3QNXE1Tqp3scmf1wnetSc/RNYQIEnjAc5GMxRYmdJMqgzorwhe2F
e7hyJoYouUiRIkQx9ueFug/Ocd2EJGC0taXRQQwuZKtELvQyUV5gYKDgmcZc
F2JJi2iX8gldv2LFCrRaXL0t7olWboHEYjdv3lxcqMGTaAUDJDY2Vl0mXdy6
dWuDe8lFsm7FihW1u/zEieh+fn4MPXj48OHDMQjh4eGQbTHueIBXlyxZcs2a
NRTOP5cuXVqiRIlbt25hwwmmlJaKretv3rzZtm0boRaxHnTX9ds3JCTcB1fO
HLt48WLBggXVxwFRCOGkeqaXoffll18qJ8lg/zt37ixCTnsCZ+eAi8+TJ4/9
izgMasa7hVVxBXFxcRBOxWxSPpUpVaqUmImlacWKFYP36vomrFC+fPnUPBAL
E5QIYWAFh1Rm1MU/lS3MYt9QoUKFhH3GRtWsWRPvozZ9/JC3ly1b1tqUCDXH
smEztZubFNhzcdWiRYvoCO1bsOphYWGNGjVSpiYIAZo2bQqHd30/hdjn0qRJ
ExePvqeBx44dg0wS01kTAg3BPyIE42uL3QTeTjORm3bbOFqEk5o9e7bCrBhi
jLUZM2a4nsWnVVHnwDDx9/dPnz5948aNa9euTbxw4MCB5cuXI/CsWbPyibW1
j4Qkc28aOtawYUMiTUXUfIIypEyZkpBW/SS2EXbBsFWmqWHFpUuXhie4Uv+E
RFFgSAlt1OebwUMQr+czeJ3mut412rqlEXSjG+rxdfLkydy5cysLUsZcF03O
mzeverbzzJkzdJOyEiGyc5UJefFP5eAasbWtY8eO6jKhnYULF06dOrX2yJ2E
RIMAd2VQwIe1JkvoKmMNp8zY0VpaHDrce8yYMYpDZwDSBMLJw4cPM96Vs3om
TZqkPrdNHMyCPfe8DZSQsBMu3iWBgSLOhRGtXLly+vTpOCksvGJgxY5R9WoL
AaOPj4+yuGwzcHYO2HkIdteuXe009VC7Xr16iVjbFKxatUqc1ij+KQ7JHDx4
sLAhNI3qwcd0GdSOHTswL+rKEGvDB5SFTnFQmJIGJpJ1e/ToIf4pAn/soRIs
iEnmGjVqYHsPHTo0depUPOw333xjLTUOe4U+REZGdunSBdNnbb3bHrJBUOPr
66vewqAAS044AOVesWIF5eBTaKApFzOJpF+00ZXZy927dxcoUEA5FQEBWuSm
vn79um3btjly5FCeyZgxI47JlcRLRyH2oBE36QaGjDJIF1qHNiJqPBHU3ZTM
Rq2KOg0cLl4SJVGfQVG+fHm0wniWMolwXUwH7AKuq4x3dLhBgwa6FYM7YWwh
G5hBvqV3UDNTegTDwigLCAigfAgb0S42Ga7resmOwmmu612jrVvavXv38ufP
r6RYU0N8U/PmzRXfZMB1Rf6YMkGR8J+7y3F/ly9fFp9YXIt85MiR7NmzKwcZ
3b9/n7eHhYUlJFp1BjIBJpomxkiGDBnwm4QGom78qmTJkhQuTnqBDBM4dOjQ
QV03cVt32rRp+X/fvn23bdtmsSUZCVgc5kNcJpwFYZqSi/vq1SsUTJ2ajvrB
2HFDSW3zjoSEAtfvCE5I9BcEvIwRC/ckdowqgaoY/hUqVFDmGG0Gzs6B4T9r
1qxy5crpZvppAdNu0qSJKUveCYkTrRgNNcH74YcfsELKtWUYhC+++EJ3EYpP
6At8pWIhhRnJli2bciyYyPGDwIh/InYKV87XEtaJEtSZAIhXnNJJ4cuWLTPI
cMM2hieCn0ONMmXKNHPmTF13bA/ZoJCvvvqqT58+1rQLs0mPX7lyxcQJqIMH
D2LMTUnWTfoQayvW5gbpIzzUiRMn7L+XxCa0Kuo6RGQBA0QZ7ByzSYTrJiQK
RM0oMHqEWoxQa8cjQ+8JObEJLubq6NYEeia62313nBlDy3UxPt27d1cnqBw4
cIBPLPbxeddo65bGsFKut4YMDxo0iKapjwQx4Lr0cqVKldQRt5inrVOnjgiH
xUyyOgmQYF+942zfvn1iisOUBooCxb17VJi/y5Qp06JFC2UUi+rVrl1bHa2L
g/KgzXhkpSGY60mTJqlNOsIJCQnBJsh5XYkkC7EpQL1sYSIwBdgKhfWJ0aS+
uNBm4Ow0bt265e/vb+f1W9g0Rr1ZrgdbXa9ePfUZ/sTvNFMhqzhBPLv29IOE
xDlJYgH1pjZxR5U6+xSyilQp/0QiKJbClVwpOG2WLFms3RtrDGIQhN+4cWOR
HUF3YJkDAgJ0d5fbSTYg4WXLlnVoe7UrELMTbdu2TaYXSDkKmtm6dWtCSI+t
VmtV1EXQZQMGDKhRo4ZDx6CZxXVR8latWqlX/13EihUr0qZNO27cOM/nbycF
aLmuMPLKloEPHz60a9dOd2uVF422tjSR3SrWHKFw3377LTGRRVKNAdfdtWsX
IY/6eXGNmpLlDj/kjYGBgag9o4kQacqUKcruBp7p2bMnZt+s7TBivChLqOKf
4thAxI6PhpxDa9u0aaO2JK9evaI38QjqFTdiUosJkLNnz+bKlWvp0qXeirAk
JOwB+ummDbzE6QSqygHvly9f9vHxUWdk2QycnQYtgsAzcm0ui4uJ0xEjRpgl
hOPHj2MV1as5sF9M4qZNmxISjRjNDA8P161YTExMzZo1LTKpiKmLFSsmlpAe
PHiARSpZsiQmixghPj6ewokghIOAUiLAiIgIJ5geXBoHxM/VkxsLFizIlCmT
7uHqdm4OQg7Yc92DINwBBAK11o0jPlbA0yCfN27c8MzrdFXUFYicHEePAzWL
6yYkWgAXS0hIZDLEm1BchicmLikcdesVaLnu7t27MfJKMC7mvbGBuqtaXjHa
uqXBb7/66itoHvYcUjpq1ChtepI1rkv9acXQoUMtJj87JEKsfu7cuTNr1qwE
5hh2Ws1P8IYoj5gW2LdvX4ECBYTLMAWU36hRI2UJVTSZ1zGQFy1aREOoKp2i
TDuLnzC4iFOaNGmCNGDd/EpEph07dlTiAjq0QYMG33zzjZzUlfg0IRJH1bOC
sbGx2bNnj4uLO3nyJAbEnsDZFTx9+rR27do2VycZs82aNbN2R6ejoFHEvAx8
C2d34sQJTM3kyZPFoWG6+/phrV9++aX24jlqiEnEvGBv+/Xrt3bt2jJlygwc
OHDu3Lm8hTdCdLHJ0dHRoaGhvN2JjckivaRUqVIW2bnYYbGNTmvHxGZ/yIb2
UB0LYMMxoU6fxWo/aEVUVFTfvn2TwoZ0jwEdQBnwUx6YSLSmoq5AHObs6NFh
uN3BgwenSJHCreeI2o8LFy5Qk2HDhmFzqJidC/EfHyy4rsiRU6eUi9MJrLE4
rxht3dLgnCVLloTuYmatpQBZ47oHDhwgHtTmV1y/fr1+/frDhw/v378/ZhPJ
4B8ZvOKIcrgl+tO1a1ciJurj0JEUNoH5LV26tHqz6unTp4kxIyMj8UqCAMN7
CTm//vprHhMm5dy5c3v27ClfvrxwN1iYly9fEhQsW7YMf4GvoS14h61bt36a
qxgSEgn/id9r1KghTMHDhw8ZWRg9/pgyZcq1a9fsCZxdBDaHmFQ5BUIX1Ccw
MFD3pgAnAPHo1q2b7u5gvrp586b2KBgBbAVsf+jQodZ4Gt5TScP7448/LKgj
woSXuph0rZs6QoWptm7JmPqsWbNi1Y1vGqJFmEf619328PDhw8HBwWal8CUj
wBDQc/vvNnUONlXUCaDPePb06dM7ehwB+l+hQgUfHx9rabHeAnymUKFCRKMG
FxZ/xLDguuJO6pCQEBGAi6Rc3bNZFHjeaDtdmi7XpeY4NWv6zCC6d++eYjCx
6hZej5+7Y1oAyWPJLabBqTnW0iLGpG6IQj1X8/r1a5i/eOzKlSvR0dG0AnqM
xzFlN7GERLKGmK7x9fUNCwubNGkSkezq1atxAQMGDMDc4S7tCZxdBEN76dKl
ffr0MVheYcASxprlvjHpM2bMcLQ5mJH169d3797dif3LXgTiFcfwNmvWzPhE
d+w5rVu7dq37ErqoQKtWrdRp0p8UaHjLli1dvCTCAG5SUVRo4sSJ1i6M0AV+
9vTp00RYOXPmFCeRmlgf1yGu2P7ss886d+78iSSNq2HBde/evZs/f/6xY8cq
ybqtW7em74isY2NjdUmd542206VpuS51xtMtWbIkKdzr4Q5s2rTJzoRqCYlP
AWIpP2/evDhfoma4nxj7b9++xb550j2J03iSeAIntB9jm7yIroI7d+6MHz8+
JCSkffv2ynE6WtC6OXPmuGnSFT+1ePFia/cOfCK4evUqQnBT/kYSUdEzZ84E
BwcTW6FLSeGAo7///pugHsmrbdq8efPgunC8T/DKVAuuSzCSLl065QYN/pkl
S5Zu3brhEUaPHm2NzSYLo52gx3WPHj26efPmj5XoEsdNnjzZfQG1hESyAw43
NDTUxVtEJSQkJJIyNmzYkCZNmpw5c6qPZo2JiUmRIoWvr69Zi+zJCGquKzZA
IZ9ixYqNSMSECRPGjh3LAwMHDkz6VNYAf/75J2x80KBBFSpU8HoA6DEQ2f3w
ww8yb0FCQoE4z197e6mEhITER4PVq1enSpXKz89P2VQrttx+9tlntWrV+nRY
kAI11xXHp4eEhLx+/frWrVtKkurz58+Tu2RoS//+/Wna+PHjP8FMFQkJCYF7
9+7Vq1cPu+ftikhISEi4C48ePWrZsqX64pLffvsNspchQwbd6wI/eqi57t27
d/Ply2fznBYJCQkJCQkJCYkki8uXL7du3Xro0KG7du06dOhQkyZNChYsuGXL
lk9zSUvNdXfu3JkjRw5zz86SkJCQkJCQkJDwMP7555+ffvpp9uzZU6ZM2bdv
X3JfoHcFcN38+fPPnTsXgaxfvz4kJERcwighISEhISEhISGR3HHv3r3w8PAW
LVosWrTI23WRkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQcBX/H/o4LnI=
     "], {{0, 110.}, {932., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{723.999999999998, Automatic},
   ImageSizeRaw->{932., 110.},
   PlotRange->{{0, 932.}, {0, 110.}}]], "Input",ExpressionUUID->
  "5f32f27a-2a21-4cfb-b0a3-867c4c0f53c4"],
 ", FieldNumber = 13"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 
   3.7468413969638214`*^9}, {3.748965842889092*^9, 3.7489658441604424`*^9}, {
   3.7675394916634912`*^9, 3.767539491663562*^9}, {3.767539878499586*^9, 
   3.767539878665174*^9}, {3.768090016647354*^9, 3.7680900168572702`*^9}, {
   3.768090065528351*^9, 3.7680900736443768`*^9}, 3.8312224092379217`*^9, {
   3.8312225103666058`*^9, 3.8312225189495754`*^9}, {3.831222593717477*^9, 
   3.8312225937791777`*^9}, {3.8312230860362315`*^9, 3.831223086347166*^9}, {
   3.83122340849144*^9, 3.8312234088093843`*^9}, {3.831808572296279*^9, 
   3.8318085912841988`*^9}, {3.8318102596120157`*^9, 
   3.8318102598987694`*^9}, {3.831810343955014*^9, 3.8318103442744107`*^9}, {
   3.8318214339624376`*^9, 3.8318214343075294`*^9}, {3.831826258337841*^9, 
   3.831826258681981*^9}},ExpressionUUID->"9a5f3f3d-529d-455e-aae3-\
f7d16d301e9b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "13"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312225715423098`*^9, 
   3.8312225716225843`*^9}, {3.8312226140321136`*^9, 3.831222614108339*^9}, {
   3.8318085756652145`*^9, 3.8318085757442694`*^9}},
 CellLabel->
  "In[311]:=",ExpressionUUID->"515696e7-b296-4236-9f46-1b571f46dbfb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"mu", ",", "nu"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.831222575357247*^9, 3.831222614461128*^9, 
   3.831223506718525*^9, 3.831223540075242*^9, 3.8312236315357523`*^9, 
   3.831805885217389*^9, 3.8318086124955506`*^9, 3.831819115541817*^9, 
   3.8318260315189776`*^9, {3.8318260861965375`*^9, 3.831826102652904*^9}, 
   3.8318261331867332`*^9, 3.8318262256269007`*^9, 3.8318263998089223`*^9, 
   3.8318278120910435`*^9, 3.831828162826331*^9, 3.8318397942806664`*^9, 
   3.8329475068670874`*^9, 3.8329617913819976`*^9, 3.8458268833950377`*^9, 
   3.845852474413431*^9, 3.845857084797921*^9, 3.8459196318688664`*^9, 
   3.846006583301268*^9, 3.8460998949439087`*^9, 3.847470457128645*^9, 
   3.851700642242525*^9, 3.853975458022777*^9, 3.8549774176998158`*^9, 
   3.854989270835867*^9, 3.854999908400094*^9, 3.855165257523741*^9, 
   3.8551823265303373`*^9, 3.855185870694685*^9, 3.855330648226757*^9, 
   3.8553398534581776`*^9, 3.85534319055832*^9, 3.855344024582641*^9, 
   3.855352751629881*^9, 3.855449615396242*^9, 3.855507616838187*^9, 
   3.855508414005088*^9, 3.855512902072687*^9, 3.855533333608161*^9, 
   3.855578927687933*^9, 3.855593300043068*^9, 3.8557506124563556`*^9},
 CellLabel->
  "Out[312]=",ExpressionUUID->"88bd690a-8f6a-42f7-a264-70b9fb5a745c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Epsilon]downdownupup", "[", 
             RowBox[{"mu", ",", "nu", ",", "ld", ",", "de"}], "]"}], 
            RowBox[{
             RowBox[{"\[Gamma]stdowndown", "[", "de", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Bt", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          RowBox[{
           RowBox[{"CommuteGammastdowndown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          FractionBox["1", "2"], "I", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammastdowndown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Epsilon]downdownupup", "[", 
          RowBox[{"mu", ",", "nu", ",", "ld", ",", "de"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"sigma", "[", "1", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
             RowBox[{"At", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
            "  ", 
            RowBox[{
             RowBox[{
              RowBox[{"sigma", "[", "3", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
             RowBox[{"\[CurlyPhi]", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}], "  ", "+", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Epsilon]", "[", 
              RowBox[{"kp", ",", "ap", ",", "bt", ",", "mu"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], "-", 
            RowBox[{
             RowBox[{"\[Epsilon]", "[", 
              RowBox[{"kp", ",", "ap", ",", "bt", ",", "nu"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{
           RowBox[{"Hamnup", "[", 
            RowBox[{"kp", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, 3.831222631982333*^9, {
   3.8312226673263197`*^9, 3.8312226704612937`*^9}, {3.8312229112856684`*^9, 
   3.8312229258835363`*^9}, {3.831223098749104*^9, 3.831223337077551*^9}, {
   3.8312234382368727`*^9, 3.8312234564921618`*^9}, {3.831223521847991*^9, 
   3.831223522905406*^9}, {3.8312236265577116`*^9, 3.8312236269345393`*^9}, {
   3.8318086421695127`*^9, 3.8318088346176443`*^9}, {3.8318088901292653`*^9, 
   3.8318089635216427`*^9}, {3.8318089968015413`*^9, 3.831809012048743*^9}, {
   3.831809097905634*^9, 3.8318091816017246`*^9}, {3.8318099116005096`*^9, 
   3.831809919481202*^9}, {3.831810013274686*^9, 3.831810076144494*^9}, {
   3.8318101836510143`*^9, 3.8318101918823986`*^9}, {3.8318258301750107`*^9, 
   3.831825871340287*^9}, {3.831825962425344*^9, 3.831825997539344*^9}, {
   3.8318260790973144`*^9, 3.831826123818728*^9}, {3.831826191273325*^9, 
   3.831826210573077*^9}},
 CellLabel->
  "In[313]:=",ExpressionUUID->"c21b1069-f5b7-488f-9acf-1e122e0cf4ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], 
   " ", "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.738583987798254*^9}, {3.746795246915931*^9, 
   3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, {
   3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 
   3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, {
   3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 
   3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 
   3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 
   3.747486056829548*^9, {3.7493830494673615`*^9, 3.749383050607041*^9}, {
   3.749383130633822*^9, 3.7493831323038206`*^9}, {3.7675393683993883`*^9, 
   3.767539368965523*^9}, {3.8312227380231514`*^9, 3.8312228069258747`*^9}, 
   3.8312228644057198`*^9, {3.8312234885720816`*^9, 3.831223493369345*^9}, {
   3.8318099510721807`*^9, 3.831809962912549*^9}, {3.831810202896742*^9, 
   3.831810203330476*^9}, 3.8318261289603744`*^9, {3.831826217774646*^9, 
   3.8318262216034565`*^9}},
 CellLabel->
  "In[314]:=",ExpressionUUID->"40094c7c-997b-446d-b143-894309c4bbc2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.751405324826857*^9, 3.751566887006461*^9, 3.751727185490629*^9, 
   3.751734096141694*^9, 3.751737168081163*^9, 3.752250147466023*^9, 
   3.752256220811919*^9, 3.7522656173424673`*^9, 3.7523217125262628`*^9, 
   3.752324518723379*^9, 3.7524081675889006`*^9, 3.7524944970227137`*^9, 
   3.7524967017587833`*^9, 3.7524995173695784`*^9, 3.7525365544443827`*^9, 
   3.752537933700184*^9, 3.8312235071799235`*^9, 3.831223540368003*^9, 
   3.831223631796571*^9, 3.8318058853440533`*^9, {3.8318099447440248`*^9, 
   3.831809963929656*^9}, {3.8318100189542503`*^9, 3.8318100804613657`*^9}, {
   3.8318101988369136`*^9, 3.8318102040456266`*^9}, 3.831810406867548*^9, 
   3.831819116154368*^9, 3.8318260324299116`*^9, {3.831826087128106*^9, 
   3.8318261034912434`*^9}, 3.831826140898239*^9, {3.8318262146313024`*^9, 
   3.8318262262361326`*^9}, 3.831826400371705*^9, 3.8318278127002735`*^9, 
   3.8318281634001017`*^9, 3.8318397948976593`*^9, 3.8329475074927745`*^9, 
   3.8329617920242805`*^9, 3.8458268841604834`*^9, 3.845852475103924*^9, 
   3.845857085488975*^9, 3.8459196326059456`*^9, 3.846006583927163*^9, 
   3.846099895679184*^9, 3.8474704578331966`*^9, 3.8517006429611063`*^9, 
   3.853975458725396*^9, 3.8549774186582117`*^9, 3.8549892715126963`*^9, 
   3.854999909100072*^9, 3.8551652583195024`*^9, 3.8551823272402506`*^9, 
   3.855185871399205*^9, 3.8553306490519524`*^9, 3.8553398542287235`*^9, 
   3.8553431912889314`*^9, 3.855344025365795*^9, 3.855352752332479*^9, 
   3.85544961611763*^9, 3.855507617506174*^9, 3.855508414691223*^9, 
   3.855512902806649*^9, 3.8555333342685547`*^9, 3.8555789284514637`*^9, 
   3.8555933007933393`*^9, 3.855750613150858*^9},
 CellLabel->
  "Out[314]=",ExpressionUUID->"61361ff2-dca4-4a18-b09e-1f534b1bbd18"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.8318190968194513`*^9, 3.8318191112054167`*^9}},
 CellLabel->
  "In[315]:=",ExpressionUUID->"2cc2ace9-6c3b-4140-b731-258af33ce3fb"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdwFMcWtg02XHJGZLCRiCIYg0Fgk8GAyCKDyDlK5BxkckbGgEwQQeQM
Bgw/voDBRENhciiyC2zsS3ARyr5lXPqfT113vv12Zmdnd0cJzlNll9id7enp
cM57unu6C3cPb9H7vRQpUgxLy/9adBtVa+jQbmNaZuUfrcOG9esT1qtncNjw
Xn16Da3c/X0+vM1//x9//J+/YwVBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEBKQN2/enDhx
YuLEiaGhodOnT793757TBX///ffOnTtPnjyZGLkz4+7du1999VXnzp2HDh16
9OjRf/75x+mCS5curV+/nvzHx92Tb7kJgiAIyZ3E9YCC8O5w8+bNkJCQwMDA
9u3bBwcHZ82aNV26dGFhYQ8fPlQX3LhxAynYp0+fZ8+eJW5WHXn58uWkSZP8
/f2bNm3apk2bgICAFClS1KlT5/jx48pcPH/+fMaMGXxy/vz5+MhAMi03QRAE
IbmT6B5QEN4dDhw4UKtWrS1btrx580Z9ovqXn59fypQpP/wfa9asSVJh6YMH
D1q3bj1mzBhyqz4he998802FChUwF9mzZy9evHiOHDkGDx78+++/u0oEexIV
FVWkSBEvLEkyLTdBEAQhuWOLBxQEwQpoRVTiL7/8ov+KDrhz5845c+bwf6LX
hM+bOQ8fPrxw4YL+c8zFiRMnIiMjV6xYcf/+fbfp7Nu3b/LkyZq1sYiP5YaV
mz59+sCBAxcvXixCOonw559/rlq1aujQocOHD3/8+LHTt1TTtm3b+CosLOzW
rVuJkkPBdo4ePTp27Nh+/fodO3ZM/y0WZuLEiX379t29e3fC5EeLuxViHDSc
SgYL7PSJLVDgW7duHTlyZHh4+M2bN21P30Z88YAJ37AF4R3n+PHj/v7+a9as
SeyMJCdevHixadMmQn6EWXwYfEHj6dOnDRo0CA0N/euvv5y+wl+ULFlywYIF
arKSijhz5ky1atU+/vjj3377zelirrl48WJISEjBggXv3LmTQLkXPId6JA4t
UaLE7du3nb6i37Vt27Zx48b8oT5BS6CLMmbMePDgQX1Sv/7668yZM9OnT58w
9u2nn34qVKhQrVq1evbs2aNHj6pVq3bs2PGPP/5IgFsncV6+fFm/fv0yZcpQ
IAg8arBSpUoUl+03optfunSpVatW+fPnf4sj4gRu2IIgXL16FV9z48aNxM5I
MuPIkSPZsmVDMCd2Rt5yEEVTpkzZtWuX/m2Xu3fvjho1CgGsffLkyZNPPvmk
S5cu//3vf/VJvX79Ojg4uF69eq9evYrfTAs+QEVv2bIFJaCf0/nzzz/nzJmz
ceNGLT7ljzFjxgQEBLgaf/vqq6/8/PwcG0n8ce7cORRaqlSpUqRIUaBAgYiI
CE9nu95W6MVI5bRp01IyxDXEO1euXImne9FImjRpUqdOnSQ4l2ojCdmwBSGJ
c/v27RkzZkyaNAmre/jw4cTOThLi0aNHEyZM6NmzJ8oHtW94zQ8//EC5TZw4
cdq0abbHArjsPHnyXLt2zd5kkyy//PLL7t27o6Ki9GN9SYeffvopR44cS5Ys
Mfz23r17H374Ic1Gr7pd8ddff509e9ZQeNsC2v7y5cvxlPi7AHKodu3aSCME
kv5bKq5Dhw6VK1d++vSp9TSpEe9Wh9L8sNXcNMHWXXAv2qfhs8cHv/76q3cW
D6k8bNiwhw8fuioZGzvCgwcPihQpMnbsWMP5vj/++CM6OppoC69h3Q4kNbxr
2ILwtvLNN99kzZo1ODi4RYsWGzZsSOzsJBWePXs2fPjwK1euoN9Kly6NGDY0
etu3bw8JCWnYsCFluHnzZhszgIKiRqpVq/YujBrdvXu3Xbt2SNDu3btTjEl5
QhknmC1bttOnTxt+u2/fPr61vroP/z548OCVK1fGn0tF6XGL1atXJ1+vnbjc
unUrf/78U6ZMMSxApF2ZMmX69etnUbuSyNq1awcOHKgt8PAIJZUTcn2yynB4
eHgC9Ersbfv27S9duuTFbzWp7OoCGzvCd999lz179p07dxp+q1YCT5061d/f
PzAwcO/evd7d8fHjx5Q8De+rr76iTBK4/3rasAXh7Qap/Mknn9AvDL+9cOFC
t27d2rqga9euaMhDhw65GhM7fPjw0KFDGzdujP5JyJ7OvWJiYrC6htlGlfXp
02fevHkm48ConY0bN8bGbTjp5+cXGRlpcjvi7k8//dSVVMbUfPnll6GhoZ06
daIwe/TogSDs3Lkzn4wcOdLVHnHY/GLFimHb37x5c+fOnbCwsJYtW/LzpKyc
yZsXM5L37t37+OOPc+fObfjalCO0xvHjx0dERJw5c8akOakFP99++63bNd4/
//wzCXbo0GHEiBGOSyaIU77++mvkQc2aNdetW6fdi6rs2bPnRx99hBfj+rlz
5/LbevXqnT17Njau1ZE36wuVucvo0aPpQb4MKdOGK1WqtGfPHi1NEpw/f77j
s5NbGk9yfD3H9hqnfBYvXty/f38iXKfuf/ToUYxV8+bNBw0a5NiMCYcJf/bv
308GuEWXLl3q169PIio/iCK+RYBZfCJqqlmzZoZv+1oBqUyB7Nq1ixY7ZswY
DKyPLzK8fv0aczRkyBBNEZFDPnEcS+QrBBslrF/MbyN0xiZNmhguCLeCkso4
I1oLj0ON6IMRXzrCkSNHqPoBAwb06tULG16gQAG3C5Wx4UFBQZkzZz5w4IBH
9/rzzz9nzpzZtGnT2bNnI8hxVfhoWqyVl9AN4cGJzvA4+B0ql/zjSvBHfELs
b9iEPG3YgvB2Yy6VET8YnwULFnzwwQcpUqRA0uA4jsfx/fffr1+/ng6YM2fO
gIAAPnfqcbdv30YJ/P777+o1mXg1s3ru3r2LkcH3pUmThpxjHP7973+rnGON
EUIYon/961+NGjVytbhCgeTGYvzwww8m15hL5dg4PbNv3z6KEZVFZpCF2HNK
7Pz5865kklqovGHDBkTCuHHj0JOtW7cuVKiQ/gSThOSPP/5ASHz++eeOapBH
iIqKqlChAk9HWJEnTx68yYMHDyymSRyRMmVKkjUfvnj06FG1atVSxEHFTZs2
zbDoaGaESFyTOnXqJUuWmOgr/BGqkipYs2ZNvnz5NOFEM+aHKGTSxzNSs1o4
oxYqd+zYEanDbxFXK1eupIGtXbs29n8LlSkciwuVuS8yW/96oEfg6bJnz04j
Uf+k0+HEKRynB6cBf/bZZ8lrMY/tNQ5bt25dvnw5pYRBo9Fqn1OAY8eORVxh
D+meWAn1uVqoXLhwYX6yatUq0qcMKWHuqDLz1VdfYQAtruekjVWpUsWXdW40
14oVK9JyaGxkqUaNGmTbF9OqxsynTp2qyo2ksDPVq1d3GkPGxGEqae1e38gc
HgfxRp/yWvkT3RDmoJbpm3RA/qhTpw7y2+kyLzoCJbNs2bIyZcr8+OOPsXGD
J3nz5rW4UBkDTrMkoLYeDlMCxOAzZsxw/Anl36pVq6pVq3oXZFGttPAtW7bg
SrJmzUpnoR3SdAkAXcX1HjVsQXjrMZfKCvosclcJTr2ewdcTnKZKlQpD52i0
EdJ79+5F2iGkXS3rim8QzAULFsTPbtu2Tf/tyZMnS5QogWd0FfXzsP379y9V
qpS5gXIrlRWYXNw9xYigcuvd5syZo0azsZnKbZ2OI3Gn0X/66ScEPIpd8zX4
i7CwMKpeZZJaRjdijck8TcttgjwOv6VM5s2bZyUDly9fpqi5PkOGDIajQ8ja
WrVqKX1Vvnx5EyF6/fp1yhav2rlzZ+QHMlh9fv/+/SlTpryKo34cmvRVC5VH
jRpFe1YR1sOHD2nkOPrY/y1UHj9+vJU64mL63Y4dO6w8tSton0Ql5cqV03au
I/6i8L/99lv9lQQjXJzAEavv2FjjVBMhKvIJAUN8QTSqPse+zZw5k/YQGxe4
0XS1NQBqoTLpT58+HRtCzRJhUeMqElTrOYOCgqys56Tke/fu3a9fP18mEWiK
jkEoD0J1E4Z7nSAtkB6tGUA1mRUeHq431xQ+LRaL6vW9TEDF0Qf1ytY6VA2q
T3NP9C9/f//Bgwc7OSwvOsKJEycQjbQQ1a+xD6SM5rTSzY8dO5YpUybCZ2Ui
rICRoUejVJ3aCW0yT548PnpSrDRxED3F1dsWCo8atiC8C1iUynQcV1I5Nm7y
q02bNu+//z4Cz8mALF++HHWRWKc2YzA/+OADV1I5Ns7+FC5cGBNkuPoUL1y5
cmVtBMkVeqlMKeHRnLw2JYM2oxj1Y+wUID5IG8lRC5W5smjRotHR0Ulnf3ie
69y5c46tZenSpSNGjHB6HPKcOnVqHIrbfUc1qbxgwQKLeaBOAwMD+UndunUN
F3yqbfbz589PlOTWsyOQChQo8MUXXxhuf0FQ4LhMneeikaPZRo8erZ+MUAuV
d+3a5fYR1FOTfx/Xfzptx4EPRcYj1w2nHs6ePUvQ6vUEty8gL6OiorzehNbe
GiczdK6qVavq1zJRjO3ataPLa/MIatD1vffeo89+9913TnZArefs27evlfWc
qKYiRYpo4/+2cP78eaQyCty7BaX6zT0OHz5MguvXr9dfTMnXq1ePzm77oAf2
E/2GbbRxHIAYhwCnePHi+tXLHnUEteYKF6YdQUVYQZxlpZvHxg1iZ86cmXZr
XSovXrw4ZcqU+vfpSKFBgwYEMhYDCkqAjuM09E0l1qhRg/S//vprx88pecJt
moFq4R41bEF4F7BFKsfGLRfEp2BSiMG1D9Vel8TU3r3D4jtupXJsnNhLlSoV
dlW/bPjixYt+fn4LFy40v4teKqOTiR3wsFg8bYbLUCrjuIcPH44Aw41q+5Vh
3jHyAwcOvHDhQkhISMmSJZPmVnuIjebNm+/YscPJx/3yyy9oGwzy3LlzzVPw
QirDkiVLKDF8uivhQbKzZ88uW7asecPmMu6bK1cuw6MY6RpIX21sXA3h4kEu
X748bdo0mnpMTIxjUhEREahuK9t3UL/k7auvvnJ7pTlk23E7DnoZzbhRo0aG
fvnVq1fNmjWjC8ffbhuuINYjY1ZmGVxhV43Hxo3a5c6dm5apF2aq3Q4YMECz
crRtbrpz504yTw/t1q2bY9mq9ZyrVq1ym38SRHg0adLEl10ECb0R+ePGjdNq
kEgf2caH3tWp0+YeqgwpHFdr0qgFysf62iqLULyE1b5sT6E2yqbla8KYakKg
5suXT7/AwKOOQNOtUKGCFlhRRNzIYjeP9Uoqk2Ei91OnTjl9ThPq06dP+vTp
9XNGhhDZlSpVCtc2ZMgQ7e6GUpnoskqVKnyIY1ILsK03bEF4R7BLKquOzDVd
u3bVdODJkyex5FFRURh5zGzCT/5akcpYV7Qo1+h3MF6zZg0Ww1H8G2K4AAOD
jA+iQLQZeUOpTBHhi3PmzKkWwimOHDnCh+vWrePv/fv3kwdcNrZ6+fLl1k1u
AoCNxWsQEWizkwqeDrfFk3bs2NE8Be+kMva8YMGCaKdly5a5umbFihXt27c3
3+SKIq1WrRp+Ew8SHR3tOCCpMkbj0T5UQ7ihoaF0h8ePH3/00Ue9e/fmSTdu
3Eh+1EJlfCIBF8GXeYdau3YtcaV3b/o7PSPt5OjRo+qfagiUbCP5KBm9Evjy
yy8LFy6c8Ocm+C6V7apxqnXy5MkoKNTg8ePHtdchFQgb+ppaeR77v0FXNUrP
34MHD1ajlEQo6lnUek6098GDB7XlHIbQilCDlL/1R9Zz8+ZNulv//v0166Hm
98mkdyO9JEiD0QyUmsxCNVFfdAf9eCwtluvtfdVLORf6ji9BBDkPCQkpX768
1luxyUFBQXRYbWGVI9Y7goqeOnXqpHoTratp06Z0c2WN3a4c9kIqu4IqJojT
DwiboJZVkwHNROilsuoRWOA6depok1zWG7YgvCPYJZVj496AS506teMbUpGR
kZhW/rllyxZC1IRfZ2tFKqtZV54OY+voZ3nSfv36lSlTxu04lau1yrNmzSLZ
Bg0aaIM2eqmMf0cAOL1HM2fOnFy5cqkt9BHJ/I2ixty5fWspgcFTlCpViifC
2DpJ5ebNm/N569atzVPwTiq/fPkSw86v1A4h+gsocNqqiaxSXL58mbKlCtAM
Y8eOdZysxHHXq1ePutN8nFqorIaCURElSpSIiIhAM0+YMAF5rEafwsLCaO0k
ZeIZaVfkzfdtAFU6+EH1zimPPHDgQDog7RAFiNTRN5VTp07hARN+T0jfpbJd
NU69UK0IQqqMhuc0kqmmGLQP1aArKo5fUdpERp999hnSC7N2+vRpsjFy5Ejs
w/3791GbaqmzK7Zu3UrK+qFCj6BN0rS0E+jIAPctVqyY11NO27dvT5MmjbbE
iH8ivLt27YrZdOoOClqsOh/QxomJn3/+mUdwtRefddavX4921RJB4OXJk8fV
SXPWOwLtSu2bpCw2foQeh2S9ffv2uHHj3Mp7r6UylUsbi4qKQtNeuHCB56LM
idOtv9YR+79VKPxEm8DSS2UVZXCN9i6wRw1bEN4RbJTKdO0sWbLgrNU2a7Fx
gx6lS5ceMWIE1jhR1mBYkcrYBww1T+fv749xuHPnDiYX9YscQgcavuHihCup
jFxRazDUqjNDqTx79mw+adq0qfYJJdy9e/fPP/9ciedHjx7hr/FfCCHbpz4t
gsmdPn06eahZsyYBkaNTo8ROnDjh5Dp53kqVKvFco0ePNk/ZO6lMjVAa/KpV
q1aGXvvQoUNoUbeL+pA9CKcuXboMGjTISTXRDAoWLIgY1h6WcI+4T+0Lx03H
jBmDG+rfv7+aD6XWJk2ahBsiY99//73JTVHX5cqV69mzp6uuxC1oD+nTp8+Y
MWP79u2dFh4jV6gCPK8S51yDfqMBkxOEItqe8IRGa/js6qWtYcOGJfA7tr5L
ZbtqnHQI69B7Q4cORVw5tmT18jIdWQthlIqjh6rLqGgqjmho5syZqrf++9//
Ll++PI0H8WxiGLnpkCFDSMrVrr+UD+Ikb968qVKlwhqrjem0b/kb86UWEqDQ
+vbtu3jxYjJDgVD1+s15LKamVrZjrgMCAkbGQQNGGlWsWJEn4lf6fKqFu4an
unvNgQMHsmXLhko3/JY70to/+uij999/n96H/XTSnMhI9U4iqhWxh8In5/Pn
z6drLFy40JWk96gjXLp0CQuMF0Mhcws6flBQEEVE7bv9rRdSmUemZZJ/inrH
jh34UHr31KlT8dGYFxwK7sliUjy+ksHaoUh6qazkNJ84hpkWG7YgvDvYKJVv
3ryZK1cuNcaofYgaMdkWPr6xIpVj45YrYyvQ+Vg27CE2+cyZM/369cOGWNnK
0pVU5hM8kdqGN9ZIKmtCsV27do5WHWfttM0vri3hl5gqqHHUAuEPfwwePLhw
4cJuN6w7cuRIpkyZsmbNar7JXmxcCeCdPZXKsf8bsTf0QbQ3whOnNSGu+PPP
Pw3Ldvfu3Xhwx70FqAXHyVwSJ3JxGhl+9uyZ27Hia9eu+fn5UaSG3+7cuZNy
ozXmzp0btcwzogAdlQnec8WKFdz93Llz2bNnX7JkCd+Sppq5oI5osa5WOim3
aH07O7vwXSrH2lfjXEMR6atJTbWjhDX5xJWUraOaoqc7qXGK2u2sE1XTsGFD
SsBwe7G7d++iTnk07E+OHDn4w3F3DnUBIac21MAdCU4RkKdOndJXtPXU1Mr2
Jk2a8FC0H61tUw6uNnuPjZvwIkHf1w5pIPvpaNpQuSOUGyEG4hADjvJHLfO3
44ZyPD7yHrWs/kl94YM2bNhAtzVcd6HhaUegW926dUtL89GjRxanhI4fP45U
rlOnjsUb/fHHH7169SJId3zrUJ0Cg/IvUKBAunTp9u7dayUple2uXbs6zsXo
pTJ1XaVKFaIqxzcvYq01bEF4d7BRKmOEEZlchruJh5x6g0WpvHr1amwFygQb
e/HixbFjx/bp02fRokUW7aErqYy5y5AhQ9GiRZV71UtlzBeRu8m0sqecPHkS
n4IlTGEZxPyECRNM7n758mV86+s4GjVqhP9VK0NcwaN1796dlEeOHOl2RIKm
1a1bN/KgFmZbJyoqisfE7DvNVnD3vn37VqpUSds/zTq4szVr1tAA1NobK++I
ecGBAwfwnoZTwxR1yZIlR40apfY8IRtbtmyhASMn1AU0yKFDh6rJheXLlzvu
qGwFNXBq76igFWyRyvFR43TJQ4cOEZ7Q/nft2kV5+rLxmiso7XLlyrVp00Yf
kaHZWrduXb9+fe3FUtpA7dq1mzdvrsQVOcQQWdxvwaPUUJX58uXTb8FtDoKK
1mvXPioUO+0ZBajft4RcIeeKFSuG9FXlhpmlaxCqaxNANH7vTvBJsI6AqSQu
pvat3AgD27NnT1yGfg9JunxwcDB2Mk+ePNbX21C8w4YNwxRjkJUp1ktltdkF
vs9wHkEQBIWNUvnOnTtKKg8fPjwecuoNFqXyqlWr1CZg3333nRd3cSWVb9++
TYFoYyZ6qYxtbNiwIbdesWKFF/fVQ01duHDhB09AXZtsRkeev/zySzU9evXq
VXS420W2OGIMb2hoqJUlN0ePHsWVBAUFeeqziG4ot88++8wxM+R26dKluXPn
1pt92q3bYIS+kDFjxiVLluCd8dHWR288YtOmTYgN/RbBNAliTMf1lgrEGypL
FSZlO3/+fC5QC5XNtxHWo/YJp0dYP8gG0UUkxa/IsNerSW2Ryp7WOJ3LbYbV
YnuUJD0UsT1mzBjztwK9A53j7+9veEYwRgN15LRn4MOHDzER586dU78lmra4
va1HqWESMU2eWjwqMVOmTNYD2ydPnsybN0+tWtGPrFIgXbp0CQwM1L8fhzcJ
CQlxOgID+4ZaJkG1dpeW6fada0O86AjeQSbDw8ORuFhRt/aHlsyVnTt31k8W
UGWVK1fGd+hPhzFn5cqV9BrCJTWjoZfKSszjpxL+bV9BSEbYKJWvXbuWM2dO
LnM1uZzwWJTKixYtwnpkzZrVcNMwt7iSyrjdli1bYqmwgbFGUhnrVKhQIcyU
+YmBiQh5vnTpEgaWPxBp7733nn7rbEd4kCJFijRt2tTcueM0jx8/jgPNnj07
ReTFga3r16/HrTiOMZKrjRs3ZsmSZcqUKY5eibaNZ0f6ut2c7dmzZ3Pnzh04
cCCSKf5258N5ITb0p95QdE5HKitoRXxOy1RnkKm3bNRbbJMnT/ZoMkKNMiEs
LW51FRtXerNmzSL2sbLvAXVBfLFBB/q/ZMmSI0eO1H9Fr7Hooy3WOAo5MjIS
9Uu7+uijj/i/yS5k/ArLMGTIEIQTYjuelmWqMQTu4lRZVCg6yvBANIJ3misP
GB0dre3IYY6nqcXExDRp0sTTPdsPHjxIOGl9uaw6sYVIoXXr1noFiGehghzP
0NEgq8uWLdObGtp/nz59aANUKy3Ku50lvOgIXoOyJZ84l9DQUIrCVYE/evSI
qC1NmjSGrkpNTOA7DHeANwE7VqBAgXz58qlDo/RSmbZBtyIqSVJ7KwlCUsNG
qXzkyBGsaIYMGRLlmANDrEhltSVUirhju72bjzM5re/QoUO48qpVq3KNk1RW
W3QiPjHaSf/ViefPn2Nj8+TJY7L6AmvPNe3atTNZ66g4d+5c165dCRPUUele
LD5Zs2ZNqlSpHBcB4oayZcvWsWNHTW2SLAqBT0aNGoXY83Q5dDyBAKCb6Efz
eBBXCyyRqWjC06dPowl9aSrq3XY/Pz+PTgNZvHgxIbC2ItQE1EuzZs0+01Gp
UqV06dKVKFFC/xUNxlAR6bFY4/PmzcP7qxaFAKtZsyaxW+Ke6E0sgCobPny4
Uzvnn7/88ovhsyMIR48ejTnCONCtrNzF3tRcgUGj9arY3yLEgDy+4b4NmEEa
jOHkCJ8YjvCrjeiRuAsXLrS4w7Ae7zqC1xDnEhEQIPOwmDvDOsJ94KeIKQwH
uulZ9EH0tqebqPCkY8eOVRqbv52ksjrpkoy5LUkeYeLEiUSUO3fu9CgDgvB2
YKNUxhjSB0uXLu3dOfXxgRWpjJ+tW7cuTzdw4ED1dGqN6IgRI8LDw60MeZlI
ZaxTZGRkmjRpcFKE7Y5Sed++fdmzZ2/QoEECLxz1jqNHj2bOnLlVq1auZqix
uriDXr16Wd/qhALBjKdOndrxVAWLoK+IMnA9aqgKD447rl27tmFhnj17Fi+T
RKRyTEwMvsmj1R0U/ty5c2k8bl+TNIfWSJO2cqSdBvXSqVMntK4vR9zasgDD
So3fv3+/QoUKs2bN0pqTUiBDhw5N4E0/HKG0KXPMi/U8qF0skFXz58/3Pec2
poamwg44vQJmDlEehk7b2tcRtWYYl2H9pQDyT1/YtWsXgtn83T3zRDztCN6h
Jj4oseDgYJPFHmrNNq6B5m1oYJcvX06ciIH1YuyXnhsSEoIB3L179x9//KFJ
ZfoRARS+CcPiNgCngubMmZM+ffqVK1d6mgFBeAuwSyrTBxGc+DJtb6WkgBWp
jI7KGYd2CAj5v3jxYosWLSyeymQilVVqqOLq1atTPhhMivGjjz7q1q0bGZs0
aZKPRxs7cebMmZIlS+KYslkGvTFt2jRzB6osOZpW7URKG3CaS3316lW/fv0G
Dx7saMlpVObrXmLjmo0a1rCy85Ij2G1KskuXLuSEkudBcAGu9lpJUlIZL4/r
dNVaDLl69WqfPn2ItnzccVHtQ2iya5ke7bAVX0azbZHKVmpcnUUeFBSkCfuT
J09myZIFqZBYG8jExs22lChRgpxbL0P6ET2uf//+hltDeIqNqW3ZsoXW62pv
Nz3q6BYe33A0Wx1cFRAQ4NE2mNHR0QMGDFi6dKnXjsaLjuAdPDUGGU1uvqCL
xtm+fXvHXd0cefnyZcOGDTNmzOj1m3fYZ/QwHTk0NLRo0aJqzyW6pEeTelFR
UepcEu/yIAjJGrukckxMDIq0atWqSWqM1K1UJoTv2LEjUfbEiRMdH03t9oC4
NdzfyQlzqazxyy+/qK17MFBHjx6NjxeIMIkHDhzAnW22DKbS7dAKBj8wMBB/
pzzLypUrHX0lzSMiImLMmDFOIx6HDh3CPpunrK1+8eiUZ21WEfWIAE6bNi1m
32RmOUlJZSIyMuPR8966datUqVLWF4i6Qp2iqH8ziGoNDw/v27cvHZxSGjVq
lDYxferUKXJL90ec8C2u1ovlnbbsq2yxxnkWx8FGOn6aNGn0ix8SEkqbMteO
IrICNdW2bVtK25Zt/WxMDb2kP16c9BcuXEj4TxMaPXr01KlTtcPu1akluJiw
sDC0erNmzRzfD+UPdUa8Ry9rrFixomzZsr683+GqI9iOitRq1qxpHuSqt3Rx
Q9oh9Y6gkDNkyEDZOg5Q4HCrVaumTeASa9BJuZ3JXShtNZZCPyJCQb1bjzXU
vnMVK1b0eiRfEJI1FqWyinldSeUjR47ky5ePIN3KgkbrYGZRsJMnT/b6XDOk
cqFChVxJZZ4LQ506dWqMjJPNvH//vr+//7hx46wYE4tSWVurjJVO+DO+fWHf
vn3p06fHVlP7FBTCQxsFQoHgPakjJxmAU0YDuz09zbsjSNSL8/yKylXvd5uv
+UlSUpmmVbhwYY/E2+XLlytUqOD7sVm4OdLRTulV/PTTT+XLl1dv6KvT2B33
uV28eDElPGTIEHViXa9evdq1a+fpLLDvUtnTGlcQ5/I4BQsWtHEfYC9Qi1g8
2q6EEkZV+h4c2ZsaLQQlTOt1fA8Xg8DTqQMQY+NekaaC5s6dq75VC5UrVaqk
IizsMFLNsSVv3LiRvunRRhy01TZt2vgy1GDYEeID7QgSt0HKypUr8UREGU4e
5/Hjx5UrV/74448dyxz30bJlS0epv2rVKiIOt1tH6l/rswhNlwbs4+ySICRf
rEhl+tfnn3+On0JSOtmWW7duDR06NF26dLhCwzkmkwEHt2BFsR70a7VBlkfP
pVCHEeu37aW/Hz58uH79+qjoESNG6IeOCeQRDBZfYbAolSmK/v37U4wW90a7
efMm1xP+jxw5MiwsLBF3yaCRIJWVdeUxtY2P1N746qQMPbQKt7vUeieV8Tvq
mGN1fJvbwkxSUhndEhwc3LBhQ+uC8/jx42hU36ch6KGEtPRH7RP1Xg8on6tE
HSpCvaev/qltUKBehkKserrFlu9S2dMaj43LLXYjf/78SeEt46+++grFaL0L
Uy+hoaF2nSlsV2rqLTxaryb86L+YdMfVaxhtLOehQ4e0f9L1tJUDfM4/Hff0
uHLlCiWDwLaYB/U2dHR0tC8Pou8IChzBrFmz8FY4NUzuli1bfFxMaP20Ppp0
lSpVKlas6LgZCB0nJCSkVKlSTi3n4cOHxYsX1/ZUUYPSZcuWdbu1+IMHD0qX
Lk0nGjdunFvR6zjZxPXZs2eXhcrCO4u5VD569GixYsXef/99Tf+gPIvEUbhw
YfpOrly5GjduvG3bNsPw3HzAwS3qRIa8efP269fPo/AfA4IBV4dVKbhvgQIF
VM75A3NN/jEChiuv1FHXGHys5YABA9q0aRMREWEyLGAulck56WCZHYsR/Y9/
QS8ZGjcysH379hIlSqxevZpnwZsgV8aPH59Yi8CfPHmCfyRQ+uKLL8aMGaMN
ZahBe1eHm9A8TPbpUngnlSk0/EKqVKks7haVpKQyjzx58uSAgADrW+StWLFC
7SXr4623bt2aJ08eTdUAzSxt2rR0SZW42pNKO3RbLVTW5pJQSvTlDz74wNPN
/XyXyp7WOI9DdBwYGKjflC9ROHnypJ+f36ZNmyxej6zt2rWrXcsD7EpNnfQ9
Y8YMrSmqT5CCaoGBeqlBWwOsFio7LglG4qZJk2b9+vVams+fP69WrVqXLl0s
WngCxt69ezu2YS/Qd4TYuGGfmjVrEpNSUGhmmv1nn33my9ussR4ebK0mjypX
rrx06dJ9+/ZNmzYN94du1y/kPnLkCO5Ja07qjHuiIVdlSApVq1bFBjraZ3pT
wYIFHU8/dEQ/2YQ9t3fWWBCSEVZGlb3D7YCDRfDLKLSEfCsHs4b+J6tqYx/c
AW7aZBzD4qiydZB2BAhoY2XEMKFEHObr0OIbZNKZM2cQ7fbKde+k8t27d3EN
CEiLaxiSlFSOjcsPTsriEWy0fLSBdZXlCnU0ZJ06dTTJxCejRo3KkiWLtgMV
XRWHqB2Ig2ck3tR2BlPvKJGCp28X+i6VPa3x/fv3169fX627QFyhghL3XWNK
DL2kljBZuX7Dhg19+vSxy+jZldrevXtpt46z/GrvOEI/VbxqgwXiKbXADMFZ
u3ZtbVcHnp0SoIE5bl/PD2fPnl26dGmLu9gRnhO2e7ETu4a+I6ickywyVc2n
UF/Dhg1bvHixj0vcPZLKsXGuR230TQ6//vprV9MQlBhSX9sCkfKkn1ofmXeL
4WSTj9vgCEKyJv6ksvmAg3XOnTs3b968hHwrRy1U1qa3VMzerl07V9fbK5XV
ilA/Pz/D0wTeMrxeq+zREFlSk8o4ROREjx49rKgXJETNmjV5BB9vqiI+xwWr
6swyx6WneGciRO51OA4kdP78+bWBWZx4pkyZDI/kNuf58+fNmzf3NEZ2xKMa
P3r0aNeuXbWXVRH8Pu5HbQtEHKVKlbKy1QNZHThwoF1bCdmVGukQsrVq1cpR
9eE+kIJqY5zYuOFrJNyMGTNotLS0//znP9WrV9d26qMFFi9evEOHDk5LiZB8
RYoU2bJli5VsEGA2bdrUl61g9B0BduzYkS5dusjISK+TNcRTqWwFNbnjuM1L
dHQ09u348eO0fO8OnHXCcLKJaCvRO5EgJBbxJ5XNBxwswm9x3wk8i7p//34s
j/YmoDqfOjQ01NX19kplpcydDvB9W9Gk8vz58+PvLmfOnKFCra/8SQDoHfhr
twtUAN9Xq1Yt3zeWiYqKqlKlilNPX7lyZUBAgHrl6s6dOx9//DFi5t69exER
EVeuXEHw0BSVhkHjVaxYkSDO6/PRfMy/RRAMFCxhyPDhw4cNG0aG6Upffvll
wtzdBGoQA2i4xYH+SmrcriXWdqVGe0DqO+1XdvPmTVSuOsmRhoEmT5MmzY44
CKlULKYW8GD2Bw8ejOLSn/pB2xg3blzLli3dvvum5kFGjhzpS3PSdwRtesX2
mbv4kMoPHz4sVqxY5cqV1bJGQkJKlV7MH4SEvg+wGE425ciRY9WqVT6mLAjJ
l/iTyuYDDhbjU9w3Li+BRSOaiqxqb8Hs3r1bhdiurrdXKuPaUCw4DschRySl
lW3rkh3ariDTpk2zfYqcBJF5zZs3R/6lTJkyV65c9erV++KLL2zZgMtHqNxB
gwaFh4ebdwQeQb1n5OPsOZ2uWrVq+n1gXrx40bt373bt2o0ZMwZVg+YJDAwk
Y/PmzeOOqgAbNGgwderUkJAQchIfOxzaCHoeFeG0Zh7xlkSOGNu1a1fVqlXd
TqudPXs2KCjIlzUGtqdGKx0yZEi/fv2cBjpoIURbSPFJkyYhiZHHyEKaExer
BRUI4yZNmowdO7ZPnz6dO3f++eefDdPncyIat0t0aK6NGjXSfIoXGHYEdc51
/vz5cTeOn2NyfT+xJX369MHBwTZ2nMOHD2fMmNHPzy80NBRrNmDAAKqAbqvm
DnzfW8lwsonbXbhwQU02+fwEgpD8iD+pbD7gYCUFdZrbsWPHbM+bCeqdPm1n
JwRDz549sRsmx/bZvgADR4M91wIEyoEsaftOvGUcOXKEkKpKlSrv2o6dyAN8
qPmRsjS/rl27+vi+Py1q9OjRiAFXbhT9cO/ePW32x0nLIRhu374tc6++Q/mP
HDmSqMS8MGNiYjp27GiXuLIlNVopYaYrvY2CvX79uroFLZa25BjZ8bBIULfr
Z/bs2UN3MN8D8O7duzVq1DA/zsMEk47AAyKVtVFl+sLevXv79u3ri1GiEPB6
BOmOL0L6iIqd8+TJc+XKFUqDolZOgSqg29p1F/1kk1o7pCabbLmFICQvkMrF
ixffvn07isXeUz7dDji4BcuWKAea7Nq1C+OgVhXu3r27QIECjq9sO8I1RNlc
jyWx8bW+x48fd+nSBQc3f/78ESNGUHrEF2+lTo6NG9JZuHBh+vTpGzVqlIgb
4iUKZ8+ebdasmYn3QX7MnDnT083ZHKEbIpa6d++upmuFxIX4l7pYvXq1iarZ
tm0butGuO/qeGr2yefPmvq+WNwc7sGTJEtSpyfQZ4m3OnDneDZyadwRkbWRk
JB4KIaocFn/40mXos/379//Xv/6l9iT3Oh0nePaQkJD4PjzFfLIp/u4rCEmW
77//vmjRorly5cqbNy9O2fb0zQcckiavXr0aPnw4YnXChAnoN1cvSmB70XgE
+Dlz5vzwww+9PnXUFU+fPsVJJYXVAgnAjRs3Jk6c2KRJkzZt2ji+IP/Wc+HC
hUWLFsXfkTREc6gL0clJB+pi7ty5dq2viG9ombTPhDnOGLW8adMm2w2pwkpH
4GHxVm53JzbnyZMnCPJatWqFh4fbXm7qZfmEOX3SfLJJEAQhNu4cajEOgiAI
QhJBbf585MiRxM6IIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAj/h1evXv3zzz+JnQtBEARBEARBSEI8f/58+vTpRYsWvXnzZmLn
RRAEQRAEQRASn7///nvSpElVqlRp3Lhx/vz5c+TIcePGjcTOlCC8tbx58+bE
iRMTJ04MDQ0lOL13757TBXTJnTt3njx5MjFyJwiCIAiCM7hm/v/nn382aNAg
IaVyTExMUFBQtWrVDh06lDB3dOTw4cPVq1evXLny2rVrE/7uwrvJzZs3Q0JC
AgMD27dvHxwcnDVr1nTp0oWFhT18+FBdQO9DQvfp0+fZs2eJm1VBEATbefDg
wfTp0wcOHLh48WKlPRx5+vTpggUL+HbGjBmvXr1KlBwKnnLgwIHBgwfv27fv
zZs38XqjJ0+ezJ8/Pzw8PBGbRwJL5X/++Wfo0KFNmjT55ptvfvnllwS4oxPc
lFs3btx4+PDhsjw74XmnOpeCR65Vq9aWLVu0R37+/Dm58vPzS5ky5Yf/Y82a
NU4ehH9u27aNhoqovnXrVmLkXRAEwSXHjx/39/fHdjl9jm+NiooqUqTI+fPn
1ScvXrzYtGkTSgMBoDf+6JA9e/YULly4bdu2//3vfxMi64LP4KHGjBmTNm3a
7du3x+uNaB5ohoCAgFatWv3111/xei+TPCSwVB42bFjiylSVhxEjRohUTnje
qc4VG9fYcBaGUSGCeefOnXPmzOH/L1++NPztxYsXQ0JCChYseOfOnfjPrCAI
ggdcvXp15MiRhuIB8zt58mSsnPbJkSNHsmXLhmA2TOrKlSu5cuVasGBBfOVV
iAfu3r1LrISTxeHG642uXbuWJ0+euXPnxutdTBCpLCQw707n8p3Xr18HBwfX
q1dPJiUFQUjWzJkzB4OMWTb8dt26ddmzZz927FgC50rwhb///rtfv35+fn4X
LlyI1xtt3ryZ5vH999/H611MEKksJDDvTufynXv37n344YcTJkyQtioIQvLl
r7/+atGiRbVq1RzHmTXevHkzaNCgwMBA82WZt2/fnjFjxqRJkyIiIg4fPmzl
vr/++qsrcW4L169fT7ClpJTh2bNnk9oCFSoiY8aMkydPdnJS5JPc2jIgRvNA
NJYoUeLRo0e+p+Yd3kllr5tf0pTKNtapFeK78yZ9ErdzYXDWrFkzMY4lS5YY
Ln5IIuzbty9btmy7d+9O7IwIgiD8X7DhQ4cObdy48ebNmx3NOPaW0L5nz571
6tW7evWq9vnDhw+LFSs2ePBgLPOdO3fCwsJatmzZrVs3pZz5/6efftqmTRvz
xXLffPNN1qxZg4ODUd0bNmxwm8krV660b9/+0qVLXj9mTEwM8l4Tww8ePOjQ
oYPjPkU8I59cvHjR61tY5MWLF5TeypUrk9qwCXVXo0aN8uXL//bbb46fk8+1
a9eGh4f/8ccfXiRLS1i4cCEtpG/fvgi2ihUrJu5aSi+ksi/Nz1Aqc+tKlSrt
2bNH/ZPSQMPMnz/fuze/qC+KF4FBmk+ePNHS7N27d48ePRBjeqnsY516hO+d
9y0gcTvX69evaWDNmjXDOBcuXPjnn392laBaLbxo0aIpU6aQscePH3uRK6/h
7hEREbJQWRAEX8AG7tq1C6GFKdN23dGDwdm+ffv48ePdioHbt2+PHj36999/
b9u2LWpZs7HPnj3DuePj0JalS5fGzGpOVi1URt+eOXNm3Lhx9+7da926daFC
hdS2mWqhMk7f/L5I5U8++eTXX3+18tQY9iZNmhw8eNDKxYbwXOj56tWra/5o
1apViCUewfEyHq1p06aoaK9vZCUnFDjlmdSGlBW43fTp0+/cudPp87///hvX
OXLkSE8lLgXeqVMnAiK1JRTt9v333583b55tOfYcT6Wyj83PUCpHR0dnz55d
a350wwIFCkybNs3r6AkBhgwLDQ3V2tXly5fz5Mkzffr0f+LQL8Dwuk49wvfO
+9aQFDoXJu6jjz5yJZUxfZ07d0Z4L1++fNu2bTSYgIAAmqXXg95Hjx4lhx07
duzatWuPOPiDf3KLs2fP6q9XC5U///xzWagsCIIJ+LKYmJiKFStiqfTf7tu3
L3fu3CniIPR2tXSBkPzDDz9U15gPk65fv37v3r2oXEzi2LFjtUGt3bt3b9y4
kT8uXbrk5+cXGRmp/WTOnDnqkxkzZijleToO5YXXrVuHkMZCmj+mdamM8cSu
oi192WqJsKJ48eJDhgxRieCbMNply5Z1GjPh26lTp3bp0iX+DPWaNWvq1avn
NLKURMAhjho1KnXq1B06dNB77adPnzZq1GjlypXWE6RJUJ45c+b88ccf1Sc0
KiSi2+YRr3gklX1vfnqpTPPr1atXuXLltOZHYJs1a9Zvv/3Wu1vAuXPnKNiv
vvpK/ZPckmd/f//r16/Hul6r7EWdeoQtnfftIIl0LhOpTB6oLCefgqAtWrQo
rkG/L6gVMHTckedq167de++9lypVqu7du2MDjx07xu3016uFyuPHj09qM26C
ICQpXr58WatWLSzqihUrDC/AZGESEasoYcSeodE7efIkSkApany025suX76c
6w1PTUK3I31/+OEH9U+1UJlksZ/R0dG///6748VqoXLJkiXdrkS1LpW3bNlC
4GAyY2gFpy07yHaFChUch+A0yHnlypU3b97sy+1cgSPgqXfs2BEfifsIDY+6
CwsL69y5c968ea9cuaK/hgCK/N+9e9dimtRasWLF6tat++LFi9i45jF06NDE
Xagc66FU9r356aXykydPKEYiMtX8KBZEFApBf5yZdVAjtHCtCyOfChUqtGDB
AnVTk9f6PK1Tj7Cl874FJJ3O5Uoq0zAWLlyI6Tt+/LjTV8RfxHEW3yhxxZkz
Z0jEbadTC5V37drly70EQUji3L9/H8Pi45gk1vLy5cvmYfXWrVvTpUuXMmXK
uXPnGl75/PnziRMnIrnbtm1rfjvMeP369T///HNlch1Blvfv379UqVLaEl81
PDtw4MALFy6EhISgih1Nn1qo3Lp1a7cziRal8tOnT6tXrz5jxgwfBxlmz57t
uGXH+fPnMdqLFi3SX8mNuDgoKMj2RXqkTI3g2hJgdainPHv2rGMctIGDBw9m
yJBh1qxZ+jLn23r16qG4LA4SHjp0yPFVJh68Ro0aVpqHIbZ0rlhPpLItzU8v
lVXzW7JkifonpUp03KhRo9evX3t3C/pp3759y5QpozoUkhuBijDT5s1NpLKn
dWoduzpvcidJdS5XUpmm0rBhwxQpUui3nsAZ5cyZs0ePHhYHln/77bcHDx44
XXz27Fmksp+f382bNx0/J1rkYtqtWiYUERFRoECB27dvW7mRIAjJFMzXZ599
lgAbKSAYmjZtimXDPLqSXtjeOnXqIGvNkzp58mT27NmjoqIwcbhvR0uLka9c
uXL79u210VcsLRZv3bp1/L1///5s2bLt2LEDhbx8+XIcvVqoPG/ePKwfn5iY
VotSeefOnf7+/thq88vMUSPhqF9tyi86OpqnOH78+NGjR7/77jun63kKbrpl
yxZfbqqHKKNs2bLaFHnSgaCgcePGqEc1R0BtVq1a1bG4HKGFBAYGWlzOTS1n
zpxZe23z+vXrefPmpXk8evTIvHkYYlfnol/Qa2gA2qk6rrCl+eml8ooVK7i7
NlF+69at/PnzE0bxaMuWLfNiETs1ValSJTVLghQh8g0PD3fc5cB8sziP6tQ6
tpReciepdS6TUWVk/PTp0/U2mQRLlCjBr6yMHiC5Z86cqQaQHY9cMZTKu3bt
QoQTO9D48WhqoXLdunXxO0uXLrX4JosgCMmOBJPKsXFTrqlSpcI8OsXpGkhE
VC5m0zydyMhIPPWNGzcQh6tWrXJ0phcvXsS4LVy4UPtkzpw5iGE1gYhI5m+U
Nk4fI88PeXyu37dv36ZNm9auXWtyUytSGb/foUMHjKePA4lqyw40v3r55e7d
u+XKlQsICOCPKVOm6Ndycztu2rZtW3u30qJAKOektg/A/fv3q1evXrFiRf7Q
Pvzyyy/xX4ZLZ8k/T7F69WoridMyixQpoi7GDxK1pUuXbs+ePbQc/bmQbvGx
c71584ZWypPSZd577z3CzCxZspQpU6ZXr16G2x7a1fycpLJaJ4/IUYuaaGMU
S+rUqTdv3kzJEMR5MQZ74cIFJAd9E6Vdu3Ztep/TyKS5VPaoTi1iV+kla5Jg
5zJ/rc8QrHSpUqX0A8ImqBcMHSMCvVRWUQM9URtjV+viwsLCcEZjx471epJF
EIQkTkJKZfxj9uzZ06dP7+ptoFu3btWqVcvtdqbHjh0rXbo0bpTQ3mkNBiY3
W7ZsJ06cUP/Ey3fv3v3zzz9X49iPHj3CL3ft2hUrrUZCMKo4x9DQ0CFDhpjL
YCtSWS3GQ836OIGrdjTFSpOxL774YsCAAUQZgYGBZHv27Nn6+Upux00LFy7s
6OB8RAkkV5tRJxYqVyVKlHBaPHn79m1CiZCQEP3+q8rBdezY0crgJyVJUdMI
J02axI1oTnXr1m3Xrh3Nw4vlygnZuWLta35OUlnpARokz0Li/fv3R982aNCg
devW4eHh3i3rRRvnzp27W7duGzdudHVesIlU9qhOLWJX6SVfkmbnciuVcQHo
7cjISNqSSgcz+OGHH+IIrJ+fcv78eTWwrO0yqpfKuKd8+fLxobYPDCXGs9So
UQPLnKxPUREEwRyvvTl2b9euXQjRxo0bDxo0SL9sWA86E4lL8L5q1Sr9t2/e
vBk/fjyO2IrVffLkiX7rOXXClLYAUoExdxwmQmfeuXPH8RY8CI/v9qZWpPKB
Awewz46zeE7Zi4mJwexTAvnz558xY4bTKASGnRTIz6xZs/LkyYPDunv37r17
99SAGyXMI7vy49yUW9u4w9Xjx4/LlSvXs2dPVxOjuJKmTZsS+CCi2rdv7/SG
F8XOw1ofZrFYOLFxys1wAQ8Zxs3pc8snPMXHH39sfRMPivr69etqiJ6GwaN5
J8kSWCrb0vxidVJZbVWxZMkSCpAwVhULqSFI9FGbXa3CXCp7Uadusav0vCNe
00/WnctEKuMFRo0aRRwXERHBZZhoYredO3eqN/KIxRC3FnNFOJA3b97MmTNr
Z7bqpbKS07ly5XJK9tmzZ0lqPEEQBNvx2ptjmsaMGYMK/fbbb7NkyWLlVA61
V0aKFCkWLFig/3bv3r3FihU7ffq0pzlB+i5fvvzp06coyVKlSmEt42OjJytS
efHixXjbn376Sf8VrmHIkCHvvffev/71L2wyPou/HfekQnVMmjQJn8UfISEh
jjsqW4GbYsYNC9Y7EEW4idmzZxt+iz/idilTpsQfoYuo02rVqjm6yx07dqxY
scLiAJ31wvHuWebMmYPYS/iVJAkslW1pfrE6qUznctxR2QQbW4Xbg61tr1O7
Ss8L4jX95N65XEnly5cvE8vXr1/f8StcDM8yderUVKlSlS5d2vri4QcPHgQE
BDjOeOql8vHjx9HSBQsWjKfdVwRBSLJ4581RyHgxtQMqLgbb67g82BXY5EaN
GuFA9e+Y37t3r2zZsiNHjvT0zSmuHzBgQP78+XHl/fr1Q4rbuAjBEbdSWe19
VKBAAb0h5WG//vprAgECCjWEgrAfNWpU4cKFtXeIyL865kNNBCNUPBL83BQb
jrqwK0w4cOAAfsFwDSF5LlmyJPlXL/5QBVu2bPnggw9oCeqC58+fUxQWX/bx
qHC8e5aYmBieJeEPlfBFKlN620xx2sHPruYX+/9KZTUprz+yTY/trcJcKttb
p3aVHoZx4MCBGIpWrVpZ3JHGrvZPBbVt27ZixYqDBg3S5tHegs5lKJVv3boV
GBiIy9Bbe+I1vsLLNGvWzPrGNZTexx9/TDSxdetW9YleKu/duzddunQW3xYU
BOFtwjtvjnUdO3Ys1vX169dNmzbFpJw6dcrtr7geD4IR++KLLxw94IsXL9q0
aRMUFOSUDa638p7axYsXyUyfPn0WLVoUfxNhbqUy2qBLly5YaX1h3rlzJyQk
xOl1PJ4OnzVv3jyKgr8nTJiglljjBWrWrImD8Ch73JRbd+jQwaLLU0oGKRIe
Hm44Tblp0yY84O7du50+x/uEhYUtX77cScPs27ePSlTrcHbt2jV//nyLQ8oe
FY53UHeZMmVSu6AkJL5IZXL7vilp06Z1vN6u5hcbp6+GDBlSo0aNpUuXXrt2
Dak8efJk8xDM3laBXl22bFn16tVRy66u97ROnzx5wsOSyZkzZ+pf3LOr9BCi
SKmpU6dS9RbfsbWr/XO7w4cPc2skn3od2MbETYjvzqWXylRfy5YtkbXr16/X
X//DDz9guPAy6ihJiiUyMpJnVAM7rlCno/KrOXPmqE/0Uhn/kjJlyhYtWiTi
GfeCIMQr2Eyk0QYdEydOLFq0aFRUlP4rbKAr5fnw4UN15P1PP/2EMalTp46V
tcqY5dDQUMyROrtWfYjdQ+WSiHZoCF/t379/0KBBo0eP7tWr16effrpkyZJE
P1XZrVQmhxhbxxPNNKKjo3H9eqeP9ebZKbrLly+PHDnSlxeo1ahIs2bNLBYU
mcGBYvZdbQq6cuVKPKB+eeTVq1epGv0LPrgkPj9//jwVisIxd0yOJEDhHDx4
MGPGjG53VvEaezuXd9jb/LZv3968eXMS1J/vYIi9reLkyZPE1GTA5OwbT+uU
nOzdu9ff399wI1+7Sg+pXLFiRY/e8LK3/SMsK1WqpEnlt6Bz6aUy8Xu6dOmK
FStmuIAZk5UhQ4YsWbJop9tgtIOCgkqWLGn+CuqKFStSpUpFq1Ol4SSVaT8E
fVzw9ddf2/l4giAkGTCVa9eurVmz5mc6SpUqlSZNGsy7/qvGjRufO3fOPFki
9/fff1+bYzUHf4SfQirPmzdPfYLPwlBj9xBmmj3HxHF3LJX6J0Y4bdq0am83
H8rAV9xKZZ4FpWo4Vc0nhkNMfDh8+HCU6sKFC305Izj2f9sUUGXWRzzwCI0a
Napbt67hFgR4WDygfg9nNM+TJ08ME1y9evXGjRtPnz49ZcoU6wtpEqBw1NkH
S5cu9SURV8RT5/KUxG1+trcKt3hRp+j53Llza8bHEbtKzwupbG/tOEnl5N65
YnVSGSfSrVs3nEinTp0MhwV4opQpU1avXt0xFF23bh1ehsDB5EaUFYpabV8f
q5PKp06dypEjBy3EfJKIFr5161acWnh4uPWt6gRBSOL4MkeMX8C2FCxY0KJN
UP7ovffeU0MQGLovvvgiderUTj4Us8aHo0aNUnO+mEpMsb0bQ3mBlVHltm3b
evQuCQ84d+7cXbt24bZcKQ2LcNOyZcu2a9fOeindv3/f399/3LhxhjFITExM
pkyZ9u7daz0PR48e5XFmzJihTRD4go2FgxjInDkzT+R7rjwiIV/rS9zmZ4K9
rULDizpFsWfPnl07SMURu0rPC6nsUfpucZLK9iZuSHx3LieprKbPcCKG4pwQ
ICQkBPfhNMr96NGjwMDA+vXrGw4LaJw5c+aDDz6gAO/du+colR88ePDpp5/m
z59f2x/DFdjSS5cutWrViout778hCEISxxdvrs487dy5M44GE+F2Fg8zVbt2
bezYpk2b+DssLIy/J0yY4DQQSjp4VW0reIwwl7k6DjvBsLJWuU+fPgEBAR4d
IhYdHT1gwADMvo9PhyspWrSoyd5uetTZhTt37jT8FjeKB9y8ebP1PFy9epUS
GDZsmJXVOFawq3C2bNnCs7jaByz+sFEqv3r1ytzLJ27zM8H2VqHwtE4Rh4MH
Dy5RooThFr52lZ6NUtkwfbdYlMreJW5IfHcuJ6mMiC1UqJDjrm6OXLx4MU+e
PGhpJ0NN7Y8ePRrpq63KcMXt27c7depUvnz5bt26pUuXLlOmTPipYsWKtWzZ
Utty2RzkepMmTerUqWPeYQVBSEZ47c3VJsZp0qRR6wmvXLni9jXqJ0+e4Ecy
Zsy4detW4u5UqVK5/QkWr1q1anXr1rVxA1XvcCuV1XIUx03srbBixYqyZct6
9BNDbty44efnp95kcfwcR9OlSxd8Yq9evRYvXjx9+nT1TpM6tQSpjCPg2zZt
2kRERDi+7vTjjz/iWTw61frWrVulSpVyGs8h8OnevfuQIUM0Db9nzx4+MTwn
1wm7CicqKsrx4IAEw3epjIunf3Xt2pU6Ig5q2LAhz2I4pZ64zc8Ew1bhO4Z1
StC9cOFCRE7fvn2RRlOnTqX0VI9Qh2XQhWnw/fv3b9as2e7du7XOYlfpGUpl
gn2MmNYMUOMdOnRwq9n06dMYIiMjiYizZMly+PBh7bJNmzZVqFBB7QVhXSon
l87lJJXVSaY5c+bE4jldiYUZOnQo+tZQt58+fZp8jhgxwsoeQXQxWixJ4a2I
KdSmLhahfosUKTJ27Nj42LNUEIREwWtvrmb8S5Ys+ejRIxwNBnPXrl3mP8GG
+Pv7p06dukCBAujkL774wkQnHz16tH379vny5QsJCUl0nRxrbV/ljRs3Yo31
63tN+PLLL5Gpvh9Ijevk1mRA+4RKWbZsWZkyZRC9sXFH0ObNm7d27dpqrAMF
27hxY3XmAlfiiahNx7V8eN7ChQt7tGfd5cuXcdlOr26hlPLnz49oUbIEMdO6
dWuLu0bbUjhqQMneowwt4qNUpsTWr19PN9FKACXWtm3byZMnG84dJGLzM8Gw
VfiIYZ3Sojp16tSiRQslFNVRxXPnzlXfqoXKyEj1Euu2bduwXY65sqX09FJZ
ba3g2OBXrVqFJreiLfXp8+B0yQ8//FA724XwtlGjRjVq1FDpW5fKyaVzOUll
MowBMRTn//73v/l80KBBhu9rUFBEmlS6/uwqQ9QCDDS5p0uOaULZs2d3NVsn
CEJyxGtvrnYna9KkCXYJYxIeHu52nPDChQtosxQpUhCtR0ZGWlkqgAVu1aoV
GjXhz49wwopUvnLlCu4YH20xTbTQ9OnTzV82scjSpUvz5MnjWEonTpzAzs+c
OVNpVLUyWVsBrv45ZMgQ9U/1VmC7du20n6Olg4ODcS7W344/fvx4r169nJzv
jh07qHRtJw01KGTlmBi7CketkOdZnLYII/09e/Z06dIF3zpixAj0p70rBGJ9
lsqUFeGM0/4k58+fpx0ablqSiM3PBMNW4SP6OuVZCMdo8CowjI2TvjQ8qkD7
J8pn//796p98zj/Xrl2rpWlL6emlMpVYvHhxraOpfaoJS93uzWuYPk20Vq1a
jr3y6NGjuXLlWrlypfqnRamcjDqXfgcMNSyARHf0IKdOnUKxd+/e3dWyB4IL
ApbUqVNbXFaN1sVPZc6c2cq+nY6Td9RvgQIFZKGyILxNeO3NsfwY2/Lly8+f
Px/7YEXKfvvtt+nTp/fz88MKWV8gd/Xq1Xz58mHlrEzZxx9WpPLz58+rVauG
zbT4bh36oXfv3ppz9xrlf/Gh2siVOnA2R44cKCv1idO5vWgG3M22bdvUP5Fe
+fPnDw0N1dKkgnBwAQEB1seLVqxYoTZr1T6hkYwZM8YxEeXmDDdEdcKuwlFH
ujideoPSGDZsWFBQEO2Wz1evXl2oUCHDF758wUepfObMmSJFijjtWH7nzh06
neGhconV/MzRtwrf0dep+qRu3bpKkqkjRfhEDSGqhcraP2PjVuqmSZPGsR3a
Unp6qYyIot9t2rRJ/VPFpHQ0t3cxTF/N0URERGirSho1akQ8pXV8i1I5GXUu
vVQmzTVr1hDXUFlbtmzBiPXp04eeEhkZ6Squv3btWr169RYvXkxumzZtqt9Y
W4PUSCpt2rQpHMiQIUOpUqUMZxwMJ+9kobIgvGX44s2xEjdu3Dh58qSJ5XEE
+/bpp5+63YAOi4QLc5x0xuoS3dv7Br2nWJHKZH727NmlS5c2fHVIz71794KD
g32fuyRX5cqVc3RYyiNXrVpV7ZikBpEcX8qeO3dunjx5tAno3bt34x202WrF
2bNnCxYs6HZdjQLXj/PVJIFCvcjZpEkTVZuqfPBxVlZI2lU4e/fu5Skcp2vJ
BuINAaPGi/hnTEzMgAEDPFqRaAUfpTK1Qx2hExy7zObNm+vXr2+4a0FiNT8T
DFuF7+jrVG1ZRnCnugDSsUaNGtppEaodNmvWTLVDAsm+fftmz55dCyRjbSo9
vVQmTSoRqab+yR0JYK2MXRumT2ek3e7bty82Tu6Gh4dzO8cTBi1K5WTUuVwd
bE3Us3Dhwn79+hGMI5hN0qf7YAyXL19OvaPhqXdtJ1LfMZy8c7WtkCAIyRSE
bsOGDW0XCYbgsNzu+vvbb7+h+hyXouF9MP58Et/DX+ZYkcqxccMXRYoUwXRb
SRPH17RpU9/n/bdv316sWDHHhZdqeYy29ShelRshHihMXAZeZsqUKdouslzT
s2fPwoULO00avn79GrHRo0cPK+NsCIyaNWs6+aCbN2+iz8ePH68tVCbBKlWq
0N6io6PNFw3aUjg4R6Raq1atHIeb1Jy4252jfMfHzkVxde/ePUWKFOnTp0cE
EpD+9NNPdevWdXyly4lEaX4mGLYKHzGsU7on0fSGDRvUP1WUQfBIBmjw//nP
f6pXrz506FC1CgLdRQPo0KGD07IQ30vPSSqrBk+kr82I0ezVzr1Hjx41Xxet
T59ORFdSC5VpuqNHj65Vq5bTInCLUjkZdS5XUtkilDN1On36dLVagy5J+WsW
yUcMJ++Q4haHFwRBSEbYeC6A7+C8unXrhinTvBhhO8atTZs2iTulZVEq44vH
jRvXsmVLtyPtXDlq1KiRI0f6+KK0OuZ12LBhjvVI6bWNQ8Um27ZtQ0jg127f
vk32+AnG/OOPP1ZbY+3evbtAgQKGiyIOHTpUtmzZy5cvu80Gfh/H7fQCJho+
TZo0EydOVI6Jf2bKlKlr1674+rFjx5pUqF2Fc+XKlVKlSmkrVBVqBNLpdPV4
wsfORXtTZ8GDv79/s2bNLly4YHJ9wjc/cwxbhY8Y1ilBGYpo9erVsXEh3sCB
A9XmPLBmzRpqoX///gR9/EGPGDx4MPG4/nUt30vPSSqrlfmVK1dW2vXu3bvc
NyAggD+IVZ3Om3abPv2FQKlBgwaUKkJ3zJgx+gMfrUjl5NW5fJHKe/fuzZ07
NyGSNkRDGQYHB2PTrG+gbYLh5J2r808FQRBsBP8SFhaGWkbOqX2QWrdubfG1
5fjDolSOjRuz+uyzz7je/LIXL140atRIGwfzmj179lSpUkU/l3rp0qXatWuP
GDFiwIAB06ZNw7EGBQUNGjTo3//+d2ycwB4+fHiXLl0mTJhANlwNcP33v//l
J+Hh4eaSDx8xa9YsYhzH8WflkVOnTo02GBnHpEmTqFa0BGk6eVgnbCkc8jxk
yJB+/fo5zWUcPHgQxa69CaUg5/G6EYTX3Lp1i/qlGNXwMuVsns8Ebn4mGLYK
H3FVp9yLCkWW08aQxMhjVGW7du24WC2oQBg3adKEAK1Pnz6dO3d2Jb18LD0n
qXz48GF0o5+fX2hoKOqRnkgmAwMDUfKzZ882mWIzTJ/Atnjx4jzXvHnztB0w
nLAilZNX5/JaKqs4BRPnFJKvW7eOfhQVFeW7mDecvKOCUM7Lly9PmLOHBEF4
Z8GIXbt2DWOOVL5x40ZSWPdlXSrHxsnX4OBgc1N59+7dGjVq6HcH9Qhu0aBB
A1fzfbgzhJa2rhXN4DQMxc/dxiA4KZ7F/PRbPEXXrl0N39ZHn6AfqE0tG9zU
7QSxLYVDnuvVq6cPIqjE8uXLOw58cTv0lZWtbhMYHoEyPHToEEVBSarhZRSg
+dR5gjU/cwxbhY+4qlMFxXL9+nWlyrg7etJRpdMd7ty543aXQl9Kz1Eqq0gh
T548V65c4Xoyo0ZxySSdztymeV07VqRy8upcXktlMkA562N8Pidu8npFhyOG
k3cERNrkne+3EARBSEYglYsXL759+3ZMt+N7NIbgE5csWdK3b1+TNQaY0zlz
5rhdvG0CiWOWFy9eHN973Z89e7ZZs2Z4fFcX4DJmzpzpNNKFP8qXL5/+VBQr
+F44V69ebd68uatVsj/88EOdOnVGjx6NmOnfv39YWJiVRSYJzIULF1Ad2oA/
Tn/NmjU5cuRIlSrVsmXLTH6YMM3PLYatwhfM69QufCk9R6nMtyEhIRa3ELeY
vlusSOVk0bmoBdo/QeKCBQsCAwNtUbbxgfnknSAIwjsF7q9o0aK5cuXKmzcv
AsDt9Zj6TZs2mS8z8JEDBw5s2LAhYc6Ewm0tWrTII/e6bdu2bNmyeXSmg12Q
T3JruKOaBgL+/v37d+7cSVJr9TXU8trWrVs7zVyfOnWKAKRly5bmqxoSoPkl
MFbq1C68Lj1Hqaw2UvPoEB/fsX4EidckTOd68eIFjTxnHDVr1rRlaXE84Xby
ThAEQRAMiYmJadKkScJsrvL2gUJu2LCh/nhc/jlo0CBt/z0hSYFULlOmzODB
gzdu3Eh0icazcoCFLbx69Qp5Hx4eXrZs2XiVyoIgCIIgCImOOlZGe2NIA6mM
HBo3blxCjlUKFnn9+vXEiRMJZPr165fAQeKTJ08GDBjArcmA9RM2BUEQBEEQ
kinHjx8vUaLE7t27HT88depUs2bN3K6WFwRBEARBEIS3m717937yySdhYWHf
fvvtwYMHx48f36pVq/h+r00QBEEQBEEQkgWvX79GME+bNm327NlHjhyJ1z0r
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQPOXFixdbt27t379/jx491qxZ8+rVK6cL
nj17tmzZssePHydK9gRBEARBEAQh4fnnn39279790UcfVa1atWPHjkFBQalT
p/7ggw+WL1/+559/csHff/+9d+/emjVrRkdHv3nzJrHzKwiCIAiCIAgJAWJ4
6tSpzZs3v3LlivbhtWvXQkNDEcxp0qQpXrx4rly5atWqde7cuUTMpyAIXvDg
wYPp06cPHDhw8eLFxLxO3z59+nTBggV8O2PGDP1EUmLhFI8Ty0uErtCXg75O
E5cDBw4MHjx437598V1lT548mT9/fnh4eJJquskCqSPrJP0eZxGnB/HxKdCN
kZGREyZMuH79um/5cs/58+cnTpzYv3//nTt3xve9THj9+vXx48f/+usv/Ve3
b9+Ojo7Gk54+fdqwTyVNPysIbz30WX9//zVr1jh9jqqMiooqUqQI5kV98uLF
i02bNuXIkWPo0KH6XozF27NnT+HChdu2bfvf//43IbLujpcvX9avX79MmTId
O3bs27dv48aNK1Wq9NNPPyV2vpIEc+fOzZ8/f0hISL9+/dq3b1+uXLklS5ZQ
6Ymdr/8LLnjMmDFp06bdvn17vN6IpovYCwgIaNWqlaH/ElwhdWSdpN/jrID9
LFSoUK1atXr27NmjRw+1fuCPP/7wJc1ff/01KCioZMmSP//8s135dHWjOXPm
pE+ffuXKlfF6o/gjCfpZQXgXuHr16siRI2/cuKH/Ct80efLk58+fa58cOXIk
W7ZsCGbDpK5cuZIrVy5i3vjKq4eg7ZHK+PEUKVJkzJgR2+I44fUug4PGZWTK
lCllypSpUqWqWLEiUicJjrffvXuXOA51pNbvxR/Xrl3LkycPYiZe7/JWInVk
heTS49xy7tw5BD+PgFEtUKBARESEo4PwmnXr1qVLly46Otr3pMyJiorKmTNn
sh4wSWp+VhAEJ7D2eCt8luG3mLvs2bMfO3bMJIXbt2/PmDFj0qRJ2NjDhw9b
uemvv/7q6o7mIJWHDRv28OHDhJzovH79+i+//JIw9/rrr7/Onj3rxdiCmjL4
5ptvcNZJeVyLiuvXr5+fn9+FCxecvuKpeXa75NnmzZtput9//70tqSUjvO5c
Gu9UHcVfj3vy5Mnly5ftyKMluNfvv//uxQ8RmVhvSsBeo/ro0aPAwMD69eu/
fPnS6SsbS4Y8d+3alTiFNPUZmDVr1sSJE3m6ffv2JWWraMXPCoKQWOAmWrRo
Ua1aNcNhBFzAoEGDMHfmQhFnkTVr1uDgYJLasGGD25sSQbdv3/7SpUteZFiT
yl781muuXr3aoUOHixcvxveNeLrBgwevXLnSC6uuOe74yJi9EE9lzJhx8uTJ
To/JP9euXRseHu7j5G9sXNMdPnx4iRIlcJc+JmUXPN3jx48RsdSy4+dIFBsX
KPrSuRx5R+ooXnscEpHEV69eHd8iTVXKwIEDnZqWRZRUtn3wgfodPXo0ruHk
yZNOX9lYMr/99lv58uV79+6tz/+tW7c6d+7crFmzDz/8kD9MHpDQ78CBA+jq
mTNn8kcCLwey6GcF4d2E/rhr1y4sxqJFi0y0H8Zk+/bt48ePN1xQ4QQObujQ
oY0bN968ebOjFcIZTZgwoWfPnvXq1UP4aZ9z32LFipEHeuudO3fCwsJatmzZ
rVs3pZz5/6efftqmTRtz04Gz+OSTT3799VcrT/3zzz83adLk4MGDVi7Wo6Ty
oUOHIiIihgwZgrH1zjs4EhMTQ7CgmakHDx4gjJ3M+5EjR5o2bcpXPt7LBAoZ
zzJx4kTvlqspx71u3brFixdTodj827dv255JW6Bd1ahRAweHm3P6Cnc2ZcqU
kSNHeuGt+MnChQtpvX379qWRVKxYMSksgkUVrFmzpm7dutmzZ0cW8uABAQG1
a9c+fvy4+rZXr17btm2z5V4+di5H3oU6SoAeR3CERd29e7cd+XXJnj17EIRe
Cy2kMv4FZzRixIgxY8bgROxaRnL69GmkMsnqE/SlZHBbBGs0oR49eowbN46e
ZbJQmWqilmlyrqQy/aVhw4ajRo3CaeJQWrduXbp0aQSzFxmLjesdX375ZWho
aKdOnbgpOezevTtCnU/oMs+ePdP/xKKfFYS3FTopMgx3YOgK9+3blzt37hRx
FCxY0NXSBRQsQbG6xnxgE0ONTfj999/btm2LWtb6Hd1z+PDhV65cwZZiBHAN
mopWC5U3bNhw5swZbM69e/cwFIUKFeKP2P8toJo/f775Y1qXyq9fv8Z6kAGv
TTHSonnz5jhZnuXVq1f8UadOHV/eHKGUsNjVq1fXRslWrVqVI0cOCsTxMjI8
derULl26xN8byggqAhm9MrHOvHnz6tevT84x1zt37ixVqhRtzMYc2gh6KX36
9IYvrT99+rRRo0aevqRD9eGbWrRooZwR4ef7779PgdiTXa+gFrZu3YowLlKk
CGrK0UvSkYm8ECf0hXz58vm4XkLhe+dy4q2vo4TpcT/88MNnn31mSxUbcuPG
jSpVqlhc+WbI+fPncVKUBk0IJ0KINHbsWFtkG9YSFVqyZEnDsSDvSgZhTwSH
HKWdkz6xIVJZv1JIw1wqnzhxAqvuGGWQLC0zf/78Xoec1AjNYMGCBR999BGO
Gy8fERGxfft2ytkwKLPoZwXhbQVdV6tWrdSpU69YscLwAjrvxo0b/fz86FBl
y5Y1lHwnT55EuSlFjeI1ud369ev37t2LysU7Y+s0j0nkzl3449KlS9wrMjJS
+8mcOXPUJzNmzFBa8XQcSkuvW7cOIX306FHzx7Qulbds2YJN9kXZkjFiB83o
8bD+/v6DBw/2evYQG168ePEhQ4ao4iKdHj16UBf605QePXpUuXLlzZs3e515
E3gQynDHjh2+JILB1/QYNhlZUq5cuSQ4qffnn3+OGjWKftGhQwdDj0yLpTTu
3r1rMUFaBYFMzpw5f/zxR/UJDR4H6rbpxh/0pl69evGMNE7DoSQUAp4UrVit
WjXfFzPE2tG5HHnr6yjBehwmZdCgQTSG+BgzJM3evXv369fPl50TEJyO82Ub
NmzImjWrLVE2hVy9enVaUUxMjP5bL0qG0q4Vh+oyqswrVapE7ObqJyZS+cWL
FwRuXbt2dbL2FAiRIMl6t/Zbu++0adPw2sHBweYPaNHPCkLS5P79+1999ZWP
o4i4ksuXL5uvyNq6dWu6dOlSpkw5d+5cwyufP38+ceJEDE7btm3d3nH58uVI
a/3ysNi4lQZ0SWJ59U+1UJm+XLRo0ejoaCezoBZQlSxZ0u1KQotSGWuG2UST
27hyTwUjaF2vVy87bQBCIVSoUCE0NFTvesj27Nmzg4KCbD+TlJSp37p169oi
mTTIbZo0aXwUA7ZDldGuwsLCOnfunDdvXsMNTHBh9erVM5y3NQR9WKxYMQpQ
rcbhV0OHDvV6EazvHf+3337D1f7rX/+iR7sK4sgkD0jv08I0X7C3c731dZTA
Pe7s2bMBAQG2LIxx4tixY0WKFHGaAvOR8+fPI5UNV/96BMEgLWTx4sXUe9Om
TQ0ry9OS2b59e9q0aTVHSUcjNunTp49JVk2kMjn08/PLnDmz/n26hQsXUpUW
V0aRMrGG0/QE96U/0sEdZ3gVdAGEgWp71v2sICRNDh069NlnnyXAoBw2BEtC
n6pRo4Yr003nqlOnzsCBA82TUtsOf/755/oVvHTn/v37lypVSnsiNaBKmhcu
XAgJCaG3Oi6HVguoWrdu7TbktyiVd+7c6e/v78uLz1iV6dOnI0I0Yfz69Wv8
Xb58+e7cueNdmng3xw1AcBMEGosWLTK8GM3AI2zZssW7e7mCxylbtiyu35dE
vv/++6pVq+7du1f7ZMGCBe+//36S2m702bNnHeOgfeIfM2TIMGvWLEN1t2TJ
ksDAQIuLw+mqju+g0YnoSlaarqvUfOn4dOdOnTrRnYcNG2Y+1offz5Qpk5rx
8RHfO5fGu1BHCdzjaBLNmjXr0aOHvbvmYtL79u3bpEkTH8O6Fi1ajBs3Tsvb
pUuXsmfPzoe+5PbcuXMVKlRYvnw5maQjkCCqWH+ZRyWD/R81alSWLFlOnTql
Pvnxxx8x16tWrTL5lYlU5u4o+ZiYGP3dd+3ahSZXb/G4zRhdoE2bNu+9917l
ypU1T2Qolf/888/hw4fTSAhwuAXXWPezgpA0STCpDFjXVKlS5c2b9+bNm4YX
0I/at2+P5TFP5+TJkxilqKgoDCCOzLH34QHpyCSimYUjR45kzZp13bp1/L1/
//5s2bLt2LGDnstdkKBqAdW8efOwA8riubqpFanMTTt06BAcHOyLVedxkPTl
y5fXpn2fPn0aFBTE3fU7BVlMEI9ACtr8XXR0NGVy/Pjxo0ePfvfdd07Xk3ke
oW3btvbuN7t27dr8+fP7uGvBsmXLcubMqcl4jPCECRMQJ9SyDVm0g8ePH+M1
GjRooOYvaGkoDcfCd4TSoExWr15tJWVaYObMmbXdV65fv05Xouk+evTIvOka
4kvHV/4RV1ixYkW3i2BpZsSqjq/ZeoctnUvxLtRRbGL0uC+//LJw4cK3bt3y
5Y5OqO2vSdmXRPA4BQoU6N+/v+Ysjh07RgQ3ZswYryc7MJ5IwenTp6tqxSth
VMePH28YcFkvGTXaw8X3799Xn3z99ddqS8PDcRj+yu1rfYbs2bMnXbp0+gFh
V6hV0whj7TENpbIqCsdlSNb9rCAkTRJSKtPZkbjp06f/9ttvDS/AktSqVcvt
GxCRkZG4gBs3bmDAibUdTdPFixexKgsXLtQ+mTNnDp1Uza4ikvmbjoyVUwdO
8fhcv2/fvk2bNuFZTG5qRSqr6dcpU6b4OEG8fv167Inja4l58uTRn0toEbUB
CBGEWnCI6ylXrlxAQAB/kFX9S5Tcl88dbbXvqNXRrvbrsw5tY+TIkdqsBFLn
008/7dSpE1GPHdn0FUqsevXqCEjHosNLZsiQwbDNK5HWsWNHK8NNuHtcs9Js
PO/AgQNxczg7WrUXbcOXjq/UY5o0aazsmogmad68ue/HPdjVud6ROkqUHnfq
1CkEkpVWYZ2tW7ditLUhVu9A440dO1Y7vwN5jNijOVnZcMmQvXv35s6de+jQ
oZo+fPnyJXFc2bJlDX2ERyWzcuVK7LPaaeTOnTsff/xxqVKlEJkRERGuzqKy
IpXv3bsXExOD9/zuu+9UvImjSZ06dZ06dayHn7NmzUIYE2aqgRRDqbxixQri
aMe3yK37WUFImnhtjekju3bt6t69O31k0KBBVnYzw4aULl2aTmQ4l6TMFwG1
W5eE8yWdESNGTJw40em++KNs2bKdOHFC/RO7QQ4///xz1WcfPXpUu3btrl27
4sLUjCpZwr6FhoYOGTLEXAZbkcoHDhzg7q6OyiUzWCr1lhNKAwvj5G4IJdTu
PRiuadOmYdv3798/f/78ChUqIP6disV6amrzWCwVj/nFF18MGDAAUxwYGEgh
zJ4923A8gUfgQWxcdvj48WP0ec+ePV1Z8rNnzzZt2pQwiqy2b99ebU6igbvn
YXlAWt3u3bt79+69bdu2jRs3YrG7dOmirxQcOv49b968qVKlotYoRkd9xd/8
3PpqFotFrcRJiRIlnNwZLg/HFxISoj+kgJ9QJrhCKxsUkG0qjlhy0qRJ3Eht
ztauXTuarhcrAL3u+LTDXr164RwtTnMQkTmVv3fY0rnekTqKTfAep1BR+bBh
w+zan4R0KDrSdPWahvWeThX37dt38eLFBESYPgpWe5/F09TUY1IOTq1l3bp1
lGdUVJS+tXtUMjg1CpxmM2bMGBwikRfmGic7b948V87RXCoTIzRp0qR+/fpL
ly5FtCNlSY0wYfr06XTkZs2aWV8XEf3/t3fm0TWd+/9v0QFBDCEqtKYqQQ3f
NFrUEGqWGtogpq+ZIDWmKKKmKEJNKRpDrpIQ0xdl0UopOuhqXZJimcqqfvVe
6q6q5Xbd7135vVaedfdvr7P32Wefc3ZOkvbz+sOSk5NnP/t5ns/n8/7s/Qyp
qWoOhnoFYyqVCSt8wujSPrEfZwWhcOKzN87KysKQEXV4nnLlytnJl9XyNIzI
9GhL8nScyZdffmnn6sRoo/NUx281atRIb4z4fH3KjPHi6/QOB2Pn9j3qcztS
GT9MNDc9e5QcHC+Bk3nyySdxxQR0/q/f84qKEV617YCo1eXLl2lVMnGjILFf
GuUsWbIkNDQUbYBoISCq7+CNaUB3AoZbCA4OdvAEUrW0BBdq+tu9e/dyuccf
f7xKlSrEGkZI69at9cpkz549uHettjTIgQMH0tPTr1y5YrwFbjMiIoJCGJZq
W5UKFSro3xfzBcKKza2qveo4Qq3pPHx0S05OjmkUW7p0KdWz/5acal+8eFE9
0mHQ0qG+Tbb02fCJsGFhYbSq8eSOfMUp4/oz9FFuYC1OQ3n4jh07OrXbJG3Y
tWtXyjSmMLneWzrD4PTp06QAyEWjOLRfGi1gepSqctqm27P40DLkVowcbdK7
9Zpud1KZz8nXKlWqNG/ePP2EOsJBYmIiuSG3SeJgP7XJyMh44oknyEnVum+j
VFaLSfkEqe9DnBWEwolv3hh7nzZtGuEgNy+EEZj0cx7cgSl169YNIzKuYccn
NG7cmIzeh1lMSN+NGzeS5OJMwsPD4+PjnXqmocejVFar3VERxq2luNkPPviA
RADpq3wFtU1ISKhZs6a2Rumrr76yeUyAV6Wpmc/6d2F24BaqV6/u4NOhI0eO
lC1b1vQdNHWuX78+9VcTRxkAO3fufPbZZxlX6gskOzSszXVVhKQ33nijU6dO
3377rVZ++/btX3/9dRWkaL01a9bs27fPTmnOdpwpBG5aJj/2DbDGZxlGhYmV
AZ4fHjDjMqXI9VFuAC1ODy0cExNj8wm8HdTmD2+++aax75y1dGdLM+J4y7jg
Tirv2LGDVCguLs4lNaA+RFuSKWL3+vXr7V9IrYGtW7euygiMUlltdsEnNlcL
CkKRwDdvTOiZOXMm5vbw4cOePXsGBwfbmUvG9/v27YsRkeHqpTJ5Os4wMjLS
tBpoPIvq4RnwA9WqVaNKY8eOJXN3cIatHo9SmZoMGTLE9OBOxDx61WVWMK1B
tFq+fDlNwf9nz56tzRuxxqvS1AzPqVOneuW1uAVuZMCAATbVhYq2ZE/kKaZL
V9LT0wncxlOr8K4TJ07UT8xWHDp0iCGhHgcRnpKTk20+wMzIyBgxYoRLXkAO
hSf/5ptvcvPWcePJLXYo1eNsx5nCuCpTpoxadhpIfDN8dUwzJvzcc885a2h3
796lSRkMSUlJxidvATMuU4pWHykCZnF61JI0VLfLdA4LkKb0Dn9FVY1XxFpr
1aqFYzc+QnHW0p0tzYgPLeMVplI5Ozu7evXqderUMU420579ErvVLnyYMw6c
dMl6cvvVq1eJttr7HaNURhJ07dq1ePHi7s5ZEITCDMaCmNluAHshQ0xJSTH+
igDhzmrwIcr6sBcy06ioKDuvs4lZsbGxmNWiRYs0r0hYHD16NIUYZ47l/mf7
dOt9TYmS6HYKIev3f/WQOzxKZe6uT58+TZo0Me5InJqaumHDBmMguHjxItXm
Hi9cuECOb3NtmlelIVzbtm3r7QPAn3/+uWnTptHR0TalMpWhF+ipsLAw05Om
N23ahNgwnqOak5NDADK+XX306BGfE0bVYYXq/YVH+DJa3fS0x82bN69evZp6
0nr215U423GmHD16NCgoyOOuLz7jrOEzHvr376+2fPT/sHU99PjBgwfRRaY7
SgXMuEwpWn2kCIzFuYCX5m+rVKli/7h5POqSJUtKlSpluscILYMwM27K7ayl
O+43jPjQMl5hlMpKnGOqw4cPNyYa6jUNvyUX0wbSsWPHypUrN2rUKAu3zzjB
ElHC6lm0USoTcWrUqEGv+b/pjSAEGMYzZo5kamkgPDz8qaeeioiIMP5KS6gt
il24cCFWo725swYDJA5iVtoxrxgXUaxkyZI4dmOw45NVq1Y98cQTDs4E8BmP
Upl7QVs2a9bM+IqNT0w3XlP7T+I8uU13u4IYcbY0U9QZJfY3EcrNe5jQrVu3
Dh06mM4qRMwgNkw3pnO3NIzQuWPHji+//HL+/Pk2p+UwSH766SfTp2GEfkIJ
TcdYsr/AKgBNrXbi9eodqH0cN3z1HhkT7tWrl8c0iqvv3r3b/t4FxFa0hOkZ
0AEzLlOKVh8pAmNxLmCA6rW+u+1ATSF8VKpUyfTUZnQXQ8L4UsxZS3fcb5he
woeWsY9RKt+8eZM8i+hpuowId925c2cMecGCBdqNY2UDBw4MCwuz3hgEc0BR
t2rV6t69ey5SmR8XLVpUrFgxmkt2hBP+SPjzjk/t91u9enWb5q/iHXakns8Q
aufNm4ctu/PMZ8+eHTt2bM2aNYuEVFYqomHDhvZX+HJTy5Yt27dvH7HAtz2T
86k0bqFx48Yu6zKs+eGHH2rVqjVr1izTiJOWllamTBn9QQYeOXHiBLeDHzZ9
3eAtam07yi05Odn/seRgU6PiypYta3okbr7im+Gr+U5ERjtnN9y/fx/7tX8q
tMUZ0AVrXEWrjxQFYnG0eXx8PBHBfqdbn9qsFk14te7MWUt3qjQfWsYrjFJZ
TSoODQ01fUGAGK5WrRr1cfnt/v37S5UqtWLFCovpN9zLypUrSeKIy0huvVQ+
dOgQJowI9zglG5OkSWkT/typRaCCkH/4442VMQ4ePBh3h2V5fMX54MGD9u3b
o43T09P5/8SJE/n/7NmzTR9d4jnxUadOnapfv36RkMr4qNGjR9euXdur5TCp
qaloj/Xr1zuymYBTpd26datu3boWO00ZUce77N271/S3KBbERkZGhv065OTk
0J50vSMv+hmckydPHjdunOkWCj7gVFPv3LmTlnG3B1r+4bPhGzdNdceuXbve
e+89m5bL19566y13Z0AXrHEVuT7KLSCLU5tzWuztZuTOnTsvvviiuwOmGQwM
iSFDhth3RM5aulOl+dAyXmGUytu2bSO8aru6uXx51apVWDG35tKwpAaEuVat
WllP76EEVDFOoEOHDl26dEEq04lc/dlnn507d66dJeSPHj2iBCy6b9++coSf
UPjx2RurndlILffs2ZObt4LA4xpzEsmIiIigoCBiKAZSokQJd39C3Fy9ejUZ
Lq6yqEhlNR2lYsWKXs3RQng0btzYqWldTpV26dKlkJAQbsdFY2RlZRG2kB8j
R45cu3btokWLtOXh8+fPRyqT/vDbN998MzExUf+s4Ouvvw4ODvbqjN0rV66E
h4c7NUEUbxwTExMbG+vyBCMtLa1169ba+EeJDRgw4MyZMx4LdKqpU1JStJU1
gcRnw798+TIBkeFhOrdT/7UxY8a42Au9QIwmpPIrIvuCBQvwHmqMqZM+MDGG
EMokOjpav86rYI2ryPVRbgFZnNrjyJhGoQ/j4+Pp9OHDh69YsSIhIUF7EfnF
F19QT4wOv8FvsVD9bF7KoTTtwAubdTC1dJ/vyJHS3LWMUxilcmZm5pNPPtm1
a1ejEMUq1bEmxpW5ytBKly5tnLpjCoNz6NChSGUKPHHihFcHvH7//fehoaHL
li2z/yeCUFD47I3VO3p0LGoW+yKaeNxIRy1nJtUNCwtDJ8+bN8+dtD558iQy
DBsvQlI5N+8NMm7fppNRvP/++whLp46Qdqq048ePcyPcjvYJXbxhw4ZGjRqp
s0rPnz9ftWrV9u3bq5nJDx8+7N69uzohgm/eunWLsZGamqr9OT65Zs2aXm3E
ceHChebNm/u2vMgINUR9ucgABlifPn308Wvz5s3oMTuiyJGmpjUIcM4ejGgT
nw2fOpMWFStWTH9MsAvXr1/nty5amkYeNGhQ79691amRa9asKV68uBYo1UTl
l156SSklAj2Gr+/9gjKuothHuQVkcXfv3qUEelnv2L/77rtmzZrRF9REnYys
3x+bjJthMGnSJCwUmUcO3q9fP+0FpZqeYTpH3R2mlu4zTpVm2jIOYpTKJCPV
q1dv3bq1izjnCzNnzixbtqy7N4D4dixx9OjRdp7ka3OVSQS8fTickZFRoUKF
zz77zKu/EoQCwWdvrPYTw+9hIFhlfHy8x410zp07h5PErEqWLLly5Up3lnjn
zp3p06erF1VFSypnZ2fjZNAANstUiyD0ktIfHCxt/fr15Pv6MxdOnz5dqVKl
pKQk9aBPzUxOSEhQ/aJ+1Baqq1WBhDztz4k4Xbp06dq1q/2NCE6dOkXcdCqJ
QJ7Fxsa6yADGWL169bRqq6PcEPnGbRZccKqp1ex9Wibws/X8kWG//vorQZ+c
l+jsEoi5I9KN/v37a/vTKmixBQsWMIRUqpWbJ33xBlRD+xElfPjwYa16/Kjf
c6CgjKuI9lGBWNylS5eeeeYZ/R772F27PNQ4UdIX56C2dFY/ahubqLVvNWrU
0O+otnr1avrd/qsBU0v3GadKM7aMsxilsjr9Fkn8ySefaF/jtytWrECgpqWl
uZuVRKSrXLnyc889Z2ezDqxD7bMRGRnp1ZbRattJdxOuBKGw4c/DJSIR+X5y
cjIO1s5RVh9//HGpUqVCQkLIZ93ZKba8dOlSLYAWLal8//59svghQ4bYfHRA
VBo1apQmHvzEqdKUYtSiW+5/zvatWLGipn9cThlG4SBsMjMz1Y9q701CjFYm
3f3uu+/Wrl3b/qO5Dz/8UO2L6+ftKAh2Q4cOddF1WVlZ3EV6err6USl8qu2x
+5xqarXrtfFEHn48cOAAA2nChAnTpk2j6ZzdmS3XPxmWm6fEyJvodPoUeUPk
3bp16+TJk9u2bUuANmbN6k47dOigbkTtVaVN3VQTlfUzOZG4Tz311EcffaSV
UFDGVUT7qEAsbteuXaTY+jbHRTz99NPLli1TxaojRbRFEGqisrabGbqrd+/e
zz77rL7OZ86cIWRoRuoRU0v3GadKM7aMwqlRZLqvsjogG1ecmJh48OBB+rdj
x44tWrQ4fvy4aS/z4fbt2zt37rxy5Uoi9bp169xdDhucOHEi4r948eKP/YfH
H3+cXJjszN2jBv38K2J6RESETFQWigp+emOSZVyZzectBNNXXnnFeo8jnAly
pX///rF54DmDgoIIVYMGDfJqNbfj2JHKNMh7773XsGFDm5nyjRs3unTp4tSL
XadK4x4JZ3ptoDSkttZDPa/DA2unjRAK9Uut9+/fr+KjvtizZ89Wr17d5nFX
uGKcvP346BFCwOjRo11UFp1Ftb///nv1I4kA6YCd55ZONTVDmjZxme+BCiWO
REZGkn7S1Fu2bKlRo4bpvhD+4KdUVvzyyy8ZGRlTp05F7SCY+b87UaH2W9PO
wuZrbdq0wbpVoFQLfqOjo9UjTcI9wbRChQr6R9MFZVxFt48CbHHqmLaoqCht
DPBJQkJCuXLltA0Dce90q3Y4xblz57A4bRc+9WDEZZd+/k+GxXiwubLP1NJ9
xpHSjC2jcHAUWRxsTZvPmTOHuyC3zcrKcidNqWRKSgp+nsqoffX1T0v8x3T+
lenOkIJQCEHokgaq12H5DQHRTgqJsf/+Hy5cuIAvfeutt4ihTj1g9A07Ujk3
b6lCnTp1du7caadMoljPnj2dehjlVGm7d+8mN9G/c1STbbSJdvQFF0Lq3Lt3
b+PGjT/++OP8+fO1+YR8Z8SIETVr1nQ5to+4gJ9EU9mJOwTNtm3bEuv9vBcF
I2r8+PEILf0QUo+wiFPaI9DU1NTg4OBTp04RraznxDrS1NQKcdK3b1/9K3Jq
SPgoX768OjWGH9PS0uLi4hy30EAafm6e+ZQtW1bb4pXRRZJCOkZHM4T+/ve/
v/rqq5MnT1Yvj27dulWvXr0BAwa4TAYIvHEV6T4KsMWpFQr6ab3qFAz9NO8P
PviAduMqx/NAQpNxa+ekZGZmlilTxngYN1o6PDzczuYnppbuM06VZmyZXKdH
kTupbBNGCEKanlL7BKpXEhisU9mf6fwrdztDCkLhpDBvFZ6Tk4NBFYbT5G1K
Zeo5a9asPn36eHzSrh65TJ8+3ZFbc6o0qk3lXTaQR7HE5KEyHSIaXhQJcfXq
VW6WP0GWNG3aVMWy/fv3h4WF6V+da3z66aeEDNIfj9VAqbZr186ryW8WUA6l
HT16VP8hCp+MoEWLFuopx/Xr15s0aVK7dm3+g/K32N7BqabOzs5GAGizc7Va
oRI7depkepKLswTS8C9fvozKVSeyIeFQIGrzHEAaKU2lXsQzxrB3+sK4W3vg
jauo91EgLS4lJeXll1928ZCbNm3CptSs12vXruElaLobN24kJibStujz5s2b
q9wH7xERETFy5Ejj5GpqRWJuMR9A/02jpfuMU6WZtoyzo8gfqYx7nzFjRsWK
FfXHoOMAK1euHB8f70h4Mp1/JROVBcF/7t+/P3XqVCJmsWLFUMvdunUzHtIa
SGxK5dw8t9CyZUu+b/01nAY3ZXqUkg84VdqBAwfw6sbX1ufPn2/fvv20adPi
4uIWLlyIa42MjJwwYYJaM4J0obOGDBkye/ZsquHukezvv//On+B+rf05bn/J
kiW4fafeop49e5bautzU8ePHg4KCQkJCYmNj582bx30R1hs0aKCeI1m8/nCk
qWmBSZMmjR071uVCaqIC9SnYdyiOw+3QvAiPuXPnIomRx8TNfv360QgqXCKM
e/TooU6oHzx4MEZkWk4gjesP0EcBszg6sXXr1tpqBQ01XZaOxmOQDZErYWJU
afny5Wo3fnRy586dFyxY0KtXL+rgblEhyXirVq08bkpsauk+40hp7lrG2VHk
j1SmbuXLl9+8ebPLS7dBgwZVq1bNTp7lEdP5V6ZH2AuCUKSxL5Vz8wRnly5d
rCcZXr9+HXdhfYSofRwpjQoTttxNbsQJX7lyRTv4jBDgsk09f+4xliF1aBnr
g4aJoUOHDnVqY5DcvM2TBw4cqI/CShuEhoZmZ2fTdDdu3FAPT4js3IJ18HKk
qWmB1157zRiFjx49WqZMGVSl/kMaxKmdQAoWmvfixYvqXrgpml2vzRhg165d
8zg9MmDG9cfoowBYHB2HTpsyZYo75YOvoK81meTiJR48eHD16lVrjUfJ06dP
R29bf81o6f7gf2kWLePsKPJHKj98+NDUmvj8/PnzjswPNM6/qlq1KumSmn9V
mN9rC4LgFRh7vXr1du/enZWV5fFwUnTXunXrxowZY/FyjeiwdOlSp9Jq/0uj
qnFxcWvXrs3vuS5nz56Njo5Go7r7AsEiKSlJv2GUn2RmZqKv9J/QUL169fLt
RAD/mzonJ+f11183nRdKLtasWTP9syYG2/Dhw+2civInITDG9Ufqo3y1ODXJ
dtiwYWoiU/5BYs5VtmzZYpHJGi3dH/wszbplnBpFWMHnn3/+ySef9O/fn3yn
cMpO4/yrkiVL0rZq/lVB104QBMf47LPP6tatW7lyZdJhworH7xPQ09PTXWY5
FmaOHDlC1h+YOeHnzp1bs2ZNAb59U3PnvDqgwSm4a+7d4pxcAl9UVNTbb7+9
ZMmScePGTZw40ZF3oH8k8tu4/nh9lH8Wd/PmTbKS/NbJCq6ybNmywJ8F4xse
W8aRUcQofeGFFypVqkRsoqgCX9Rjisf5V4IgCEJh48qVK23btlVrzwshRBb0
wLVr1wrnMyIhV/pIcII/1Siynn8lCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgWHPz5s1FixaNHz9+7dq1//rXv1x+e+/evRUrVvDbxYsX//bb
bwVSQyP/93//p//x3//+t8snf1qM7WDs04LlyJEjb7311qFDh/K7y+7evZuc
nBwfH1+ohm6R4Icffpg2bRoO4f79+/l6IQbnrl27pk+fTjddvnw5X6+Vf/xh
3JFLtf10HY8ePVq5cuXs2bMvXrzoX7088+23386ZM2fcuHF79+7N72vlE+fO
neMWxowZs3///oKuiyD8WTh16lStWrW2bt3q8jluPCUlpU6dOvgW9cmvv/6a
np5esWLFyZMnGz087u7AgQM1a9aMiYn5/fffA1F1Tzx48KBTp06NGjUaOHAg
jqV79+4vvfTSd999V9D1KhQsW7asWrVqvXr1Gjt2bP/+/Zs0abJu3To6vaDr
9f8h/s6YMePpp5/evXt3vl6IoYsgr127dt++ff/5z3/m67X+eBw7dqxcuXKj
Ro3KV6tnZJ4/f54OYtBeuXIl/y6Uf/xh3BF1rlGjRrt27UaMGDF8+PBWrVpx
R//4xz/8KfN///d/IyMj69evf+vWLafq6e5CS5cuLVWq1KZNm/L1QvkHt5CU
lMQtGKO2IAj5RE5OzvTp0y9dumT8Ffrh3Xff1T8vysrKKl++PILZtKjs7OzK
lSuvWLEiv+rqJWh7YhNa67HHHgsKCkLDU8OCrlShAOFBvChTpszjjz9eokSJ
iIgI5GghfMB1/fp18jgEEmo2Xy/0/fffh4aGkj7k61X+kJBcoJTCwsJMfYiD
MAZ69OgRFRWF5szXC+UTfxh39M0335Cw4De4Efo9MTHRkXcK27ZtK1myZGpq
qv9FWZOSklKpUqWimKRorF69OiQk5K9//WtBV0QQBBPQVygKdIXpb/F1FSpU
OHnypEUJV69eXbx48dy5c3Gwx48ft3NRkmh3V7SG2DRlypQff/wxkFMLLl68
+NNPPwXmWqiUs2fP+vA0T70y+J//+R/kcaF6kuwCHTd27FiCwrlz51x+xV1z
705J6IyMDIbuZ5995khpRQifh5Ce/fv3lypVihzZOJYcNIebN2/WqVNn5syZ
BZvT5Z87unv37oULF/yrnRdwrb/97W8+/CEiEwfOmHHWr96+fbtBgwZkE8ZU
yMGWoc5Dhw6NiIigTGMFlixZMmfOHO7u0KFDhdYx0vIDBgxo0aLFvXv3Crou
giC4QlTt3bt369atTZ8hEL8mTJiAr7OOjMiz4ODgLl26UNT27ds9XjQ7O7t/
//7nz5/3ocJabPLhb30mJycHPxaAfJ+7e+uttzZt2uSDS9ekcn5UzFnIp4KC
gt59912X2+THv/zlL/Hx8X6++c3NG7pTp0594YUXiJV+FuUgCAZ0JsJMf+P8
3//71fBnCOlBcf3Xf/1Xq1atjJ7BQXM4duwY6UzBTjHNV3dEj9MdW7ZsyW+R
pmxn/PjxVMmHP1dS2fHnD5jh22+/TXQ4c+aMy68cbJmff/65WbNmo0aNMtb/
ypUrgwcPjo6Ofu655/iPxQ2SoR85cgRdnZSUxH8CPGsLn9CoUaOxY8cWttUl
glDgYIz79u3DXaxZs8bC2eJJdu/e/c4779h5GYoImTx5cvfu3TMyMvQuCMEw
e/bsESNGvPbaa0Q67XOu+/zzz1MHfNq1a9cmTpzYp0+f//7v/1bxkX9feeWV
N99809pvIM+Iqhi7nbu+detWjx49jh49aufLRlRs+vTTTxMTEydNmoSn9S00
6ElLSyNZ0NKBmzdvogRcfHtWVlbPnj35lZ/XsoBGJqzMmTPHt+eBSipv27Zt
7dq1dCgO/+rVq45X0hEYV23atCG6EeNcfkWkmD9//vTp030IVfzJqlWrGL1j
xoxhkERERBSGicpY1smTJ4cNG1a1atUaNWogPhs3bkz6uW7dOjqaXkPWkh04
EiL9HEJ6qNjChQtLly6NmjX+1h9z4G+HDBkSFxc3cuTI4cOHh4WFFeBE5QC4
ozt37uBU83u51oEDBxCEPj/tRyoTYohH06ZNmzFjBnHEqef8X375JVKZYo0F
+tMyRC6sBktnCM2aNYuEy2KiMoMZu8AzuLMyBkDXrl0TEhKIm3TiG2+80bBh
QwSzDxXLzbsvcpbY2FjEOYZPDbn0oEGD+CQ1NdW0YU+fPl2+fHku7dsVBaFI
g4UiwwjZmZmZxt8eOnSoSpUqj+VRvXp1d1MXULBkxOo71k9ykEY4hL/97W8x
MTGoZU0k/PLLL1OnTs3OzsaR4gGIpJqKVhOVt2/f/tVXX+Fwbty4gZcgoPOf
3P9MVE5OTra+TftS+eHDhzgNKuCzH37w4MHrr79OeOJefvvtN/4TFRXlz7IR
Wgl3/eqrr2pP9jZv3lyxYkUaRP81KrxgwQJCfP5tp7B161YSGaN6tM/y5cs7
depEzYkIe/fuDQ8PZ4w5WEMHQdOWKlXK9HHivXv3unXr5u0KHbqPYNS7d29G
Oz+SfhYvXpwGcaa6vnLhwgXuJSgoiORFvxUAlURZzZw58/Dhw5gYOY4jl/N/
COk5f/48Dmr06NFGgeGbOeB2NmzY0KhRo6+//lqVT/pQgBOVA+aOPv/885Yt
W/o2x8MOly5devnll21OfjPl22+/JU4xfmgT4giZLIPTkTSTZkGF1q9f3/Rx
kG8tg7An0X7//ffpOMon2UEqGyd0aVhLZWQqI1mfZVAsDqRatWq+5VC0G054
586dhFTSBGI3vbN69WqMnWhu+if8tlKlSjJRWfhzgiNt167dE0888eGHH5p+
AcvdsWNHSEgI1tS4cWNTyXfmzBmUm1LUKF6Ly3300UcHDx5E5dauXVs//Y+0
navk5sUmrrVy5UrtT5YuXao+Wbx4sdKKX+ahtPS2bdsQ0idOnLC+TftSGe+B
Q/ZH2VIxvI3m8bjZWrVqoUN8fiiHA69Xrx66RTUX5QwfPpy+uHPnjss3b9++
3aJFi4yMDJ8rbwE3Qhvu2bPHn0Lw9koo5uZNfkM6NmnSJGCzrO3z6NGjhIQE
7GLAgAGm4ZgRS2tcv37dZoGMCpQbsUZpMGDAEz09Dt38Q6XJZcuWbdWqlenL
fUL84MGDyRcIpi55mW84MoT0YNfIePJ009cTPpgDmoQ+SkpKUu7lhx9+wHiR
EwU1gzRg7ogfJ0yYMHLkyPx4x0GZo0aNGjt2rD+vEhiN+ncE27dvZ1g6kmjT
Jq+++irGjjkYf+tDy+Di2uWhApZydC+99JLFLF8Lqfzrr7+SXw8dOtTF4dMg
JLkU69vcbwU15N4J3OvWrbP4mpqoHBkZKROVhaIInpxcz8+niIT7CxcuWMeC
Xbt2lSxZ8vHHH1+2bJnpN+/fvz9nzhy8TUxMjMcrbty4EWltnBuWmzfTAOlL
Iq9+VBOVMeS6deumpqa6+AQ1Ubl+/foeZ3valMr4AfwGmtzByKiSEbSuz7OX
XTYAoRGaN28eGxtrjDtU+7333sOhGVW0n1Ay/duhQwcH56wCtX3qqacc1E6O
QJcxriZOnIhQrFq1qumOAcSv1157zfSlrSmoneeff54GVK+/+avJkycX4ERl
IjKCEIPt2bOnRag9duxY6dKlSWf8H1HODiFKQyx17tyZJBoxbxrovTUH2mTE
iBG4Jm2nyiNHjpDO7Nu3z/8K+0CA3dHZs2dr167t80wPC06ePFmnTh1Hsi0N
+gipbDr71yu+//57DHnt2rWYJ7ZgGky9bZndu3c//fTTWqz8+eefsSDTdx8a
FlKZGoaEhJDSGpeur1q1Cv9p+kbYCF1PUuDyfgR31KZNGyL7Bx984FIfrAaB
oaKMmqg8ZswYmagsFEU+/fTTli1bBuChHA4EN4JkxazcRTqMLioqavz48dZF
qX0+O3bsaJwyhxmOGzcuPDxcuyP1QJUyz50716tXL1Sxfjq0mqj8xhtveMz3
bUrlvXv31qpVy59Vz0igRYsWkexrkejhw4fIg2eeecbdiy2PEO71G4AQI4jm
a9asMf0yuo5b2Llzp2/Xcge307hxY/Iyfwr57LPPWrVqdfDgQe2TFStWFC9e
vFDtNfrLL78MzIPxSXBEKC5ZssRUqyDPGjRoYHM2LKaqXyeIEWFKdoZufkAd
tmzZQjQn57LO4NRKgUGDBvk/tdiRIaTAylJSUqj8+fPn0SFNmzbVnuC54JU5
qCRUWydIK2HLYWFhBTWjPsDuCCcfHR09fPhwZ7eqxqsjsXr06OHPIx16uXfv
3rNmzdLqRteTxfChP7X95ptv6PGNGzdSySlTplAgqtj4Na9ahjZPSEgoV67c
F198oT75+uuv8dibN2+2+CsLqczVUfJpaWnGq5PEYcVqIY/HipH2EltLlCgx
adIkhoH60FQqX79+/eWXX+bD7t27q1n6aqKy9S0IQqElYFIZ0DNYWdWqVd2d
WkXQ79+/P27HupwzZ87gkYh0eD/Ehl4qoFJatGhBIZpPyMrKCg4O3rZtG/8/
fPgw1rpnzx4CGVfB2NVE5eXLlyNXlLtzd1E7Ulm9Y+rSpYs/Lp3bQdI3a9ZM
ezV/7969yMhIrm7cJshmgYQD/Zuv1NRU2uTUqVMnTpwwLmii8txCTEyMs3sC
/+Uvf6lWrZpva/A1NmzYUKlSJU23EB1mz56NgKSXHaiiE9y5c4fo0LlzZ/Wg
lZGGcHL32pHWoE1srnNhBJYtW1bbfeXixYuYEkP39u3b1kM3P8AGMRzq88kn
n1h/E5MkkhKp/b+oI0MoN89Ok5KSatasqd49MYpIQLgX06ksXpkDjpTcR8sL
+JOePXsiLJXDCfA0oQJxR++//z4N6+waRrVLOSX7UwhBh5xl3LhxWrw4efJk
mTJlZsyY4fMsbgZMnTp1SCWU9WEU+NV33nnHNC+23zLqgQ9f/uGHH9QnqFC1
8+TxPEz/yuOyPlMOHDhQsmRJ/aofa9Tce72xGKWyMqjHHnssKipKSz/VROXv
vvvu6NGjhcddC4JNAimVsXQkbqlSpT7++GPTL+BG2rVr53H5w8qVK4mYly5d
QjKRper90l//+ldcyqpVq7RPli5dSkxXb8ARyfwfh4aZqyPeuH2+f+jQofT0
dAKxxUXtSGX1inz+/Pl+vu786KOPCKz6ZYmhoaE+n3CkHuuRQagpvsSdJk2a
1K5dm/9QVeMiC67L53pH7T9qdrS7/frsw9iYPn265n6Ro6+88grKRHvEUbDQ
Yq+++mpERIS+6QiRpUuXNh3zSkgPHDjQzrMmYj1xWelq7nf8+PHEOCIdozrA
p1+pdV6EwqFDh3qMsCgr5KL2fMxnnBpCyFfUUcWKFfWbEmAFeIb4+HijavLK
HCg8Jg/VLJmZmYiKuLi4q1evzpo1K8CHjxeIO6KjUUR2ttO0z65du+gdP4cQ
jT9z5kzt/A46Gk1L+/h8AM3BgwerVKkyefJkzQSwCxKTxo0bm4YJr1pm06ZN
uGj1MuLatWtNmzYNDw+/efNmYmKiu/Nf7EjlGzdupKWlEUCPHTumRiOd+8QT
T6BpbQ5ONf0G29de7hilskqv+M7ChQvVsKG18duNGjXCiGj2AJwDLgjO4rNU
xgT27ds3bNgwEtIJEybY2c0MB9KwYcPixYubvoVRvots2qNsOHnyJOVMmzZt
zpw5LtfFgZcvX/706dPqR5wGNezYsaMSV7dv327fvj3xHZmh3npTJZxbbGzs
pEmTrGWwHal85MgRru7uOGMqg5t68cUXaQGk/uLFi10EHqmE2roHr4WTUVsH
JCcnN2/eHPHv0iz2S1Mb/JIRcJvz5s0jcOOHGzRoQCO89957plKHW+BGHJxz
eOfOHfT5iBEj3Lnxs2fPIqhIo6hq//791eYkGqgjbpYbZNShcEaNGoUI2bFj
R+fOnYcMGWLsFCQ0nrlq1aolSpSg12hGlz1++XP7s1lsNrXSci+88IJLLCPe
EfWIHcY9ENTUVuKgnf0c1JZrxKm5c+dyIYZ6hw4d+vXrx9AN8HRlNZGyTJky
drYjoK34vv+zi50aQnS9ehGsHxJYAQkXnWs6V8Erczh//jxOBu+EoWHFyPLI
yEg8pMfH744TSHekoRLzKVOmOLUPG+UwwinT3Twf+8aOJY4ZM2bt2rXkrXg/
Ap+2pMXb0tRt4nxcjHrbtm2MwJSUFGN64lXLENfwclg344eYSIKMx2YULV++
3F3LW0tlcoQePXp06tRp/fr1iPYPP/yQ0kgTFi1ahKaNjo62+VSZqysZPHv2
bHWPRqms5DSfbNiwQftDxn+zZs24KEJdpisLRQ6fpXJWVhZWjBfF7ZQrV85O
sqwlpKZHSJOk40m+/PJLO1e/e/eu0XOqI9JIXfXaiRCpz5dxCDg6vbfB3rl9
j/rcjlTGCRObTA8effToEQ6/WLFiTz75JH6Y8MT/9Ts4UTEkkLYXELW6fPky
rXro0CHji077pVHOkiVLQkND0W/Xr19HP6jv4N9oQHePm7iF4OBgB0/6VutK
UOamv927dy+Xw7VWqVKFQMMIad26tV497tmzB9+u1ZYGOXDgQHp6+pUrV4y3
wG1GRERQCMNSbatSoUIF/Ss/vkBMsblVtVcdR5w11YTIvJycHNMAsXTpUqpn
f1IB1b548aKaDMCgpUOdnRfqES7dp08fWtX05I78w6khhCA0dXd8Ti+Yjgpv
zYGOZmRqZksiE8iG0giYO9KjnHzHjh2deoROVbt27UqZprvteWvs3Nfp06fJ
EZCLRnFovzQaxPT4QtVQpvuN+NAyjBwMXFubYL0owJ1U5nPS6kqVKs2bN08/
iYiIkJiYqHQviYPN1EYdGsifaNObjVL5l19+efnll8k1XPYDocFtHkwgCIUN
36Qyxj5t2jT1GgWHjJvVz3lwB5bSrVs3rMy4IhuH0LhxY9J5H/JNpO/GjRvv
3buHJwkPDzd9i+o/HqWy2pEgLCzMuP0XN4sbIREg1ihhQ20TEhJq1qypPcX6
6quvbJ6q4FVp6l2YfkdlO3AL1atXd/DR0JEjR8qWLWv60pY6169fn/qryb0M
gJ07dz777LPa7FZkBg1rc+0b8eiNN97o1KmTtgUB5bdv3/71119XEYrWW7Nm
jc0dCZztOFPUZmv5sWlAPoG51ahRAyv2Z5KnDwRsCBlx3BwCQMDckQv8SUxM
jM0XJXZQmz+8+eabxso4a+zOlmbE8ZZxwZ1U3rFjB8ljXFycS2pAfQi4pJ+E
7/Xr19u8CuMKQ8D8hw0bpi5klMpqswsuevjwYSfuTBAKHt+kMo505syZ2NrD
hw979uwZHBxsZyIZ3+/bty9WRnqrl8rYGp4wMjJSq4ZLSOLL7oIU1ooTqFat
GlUaO3YsabuDM2z1eJTK1GTIkCGmB2SjLtCrLrOCaQ3C0/Lly7k7/j979mxt
3og1XpWm5itOnTrVqyivVicNGDDAZqxU4oTsiTzFdN1Keno6Osd4ZBXee+LE
ifqZkIpDhw4xJNSzIGJTcnKyzfmWGRkZI0aMcMkLyKG6d+/+zTff5OYdUzhh
wgSbe3s623GmMK7KlCmjlp0WCdTmb0888cRHH33kYLGFZwgZ8dYcCgMBc0fG
644bN448xWUCjMX3rfsdg61Vq5bpacjOGruzpRnxtmW8xVQqZ2dnk+XVqVPH
ON9Mbb1IONb2PCd00hEkmNYvQTZt2lS8eHGSCPWc3yiVuSgKnKBcgCdUCoJv
YCl4pO0GMJa6deumpKQYf0UQd2cyOBBlet999x1GERUVZed1Nh44NjYW21y0
aJEWtkjYR48eTSHatDG1Fxxp6cCBA8eMGYOneumll0xfIyrw+eh2CiHlz78X
nR6lMnfXp08f0/1jU1NTN2zYYIzUFy9epNo03YULF0jwba5N86o0nFXbtm29
XXGsts+Kjo62qQ2oDL3Qu3dvd/ti4V0RhMZDVHNycog+xlerjx494vNvv/1W
nQ5mcxkIXybgmp4GtXnz5tWrV1NPWs96/aYeZzvOlKNHjwYFBXnc9cVnqPzh
w4cx81n2eOedd3bs2GHR76h6dDLhVTsJxal6FoYhZIq35uADjCWUBo1vs5sS
ExOt56oFzB25oJ46VqlSxeb+eB77nUCD6NKOT9Jw1tgddx1GvG0ZbzFKZSXO
CbjDhw83PYxy8uTJ/LZly5Za3CQRLleu3KhRoyyG+qVLl+isZ555Ri3AN0pl
WgwXQTpWSFZbC4JNMCJsHMnU0kB4ePhTTz0VERFh/JWWTVsUu3DhQhJMmztB
YX1vvPEGtqkdxfvPf/4Tn1yyZEnioOa6MT2k8tNPP803URExMTHu1vwGEo9S
mXshmDZr1sz4fo1PTHea4sOpU6fiOVetWuVuVxAjzpZmitoe1v4OQrl5Uz27
devWoUMH0ymFhGa60nRjOndTH7ds2YJmQw/Mnz/f5rQcnP9PP/1k+vAQGUAc
oemIVvYXwQWgqdVuyfZfgHoLPTh48OBixYo9Zg9CXrt27Szmo6alpaktH+1E
fIIpcdPmG43CMIRM8cEcvIXGfP7552l8m92EFEEtWxQYMHfkgtrrICQkxN2O
oEas+51kH3lpfC/mrLE77jpML+Fty3iFUSrfvHmzbt26DBXTlUQ0e+fOnRlL
CxYs0G6cYTNw4ECUsMXGINzIzJkz1dth/u8ildU5g2S1fjpGQShU+LNZnNpg
s3r16jZtX3lvorZ6hoZyxtYwZJdAhunhlEwXTRQgdp4qo+obNmxof+UCfmbZ
smX79u0jEPi2Z3I+lcYtNG7cuF+/fvYfo1kf4Iu+wnnqjw7xyIkTJ7idxYsX
G1ep+4Ba2L579+7k5GT/Z5w62NQElLJly5qeh1s4wRDIbZ955hmPUpmRQGvb
PxW60A4hH8yhwCkod0Qh8fHxBAX7J7Zb97uaKG5/3Vmu08buVGk+tIxXGKWy
Ov8oNDTU9JUKYrhatWrUx+W3+/fvL1Wq1IoVKywmLBH6e/XqFRwczJfVWUhK
KhPiqcNTTz2F0XkM399+++2cOXPGjRu3d+9e729XEAKKP1JZWeLgwYNxy2pp
ufX3Hzx40L59e7Rxeno6/584cSL/nz17tsuzGk0q+1Cl/MPOXOXRo0fXrl3b
q9VDqampcXFx69evd+TkWadKu3XrVt26dS025jKijndx5/SIvwhC+6opN+/F
Ou3JSLC5VYU1DM7Jkyfjli1m8niFU029c+dOWsbdjl6FEPJiIqw2v9GCa9eu
0eAWZ167UGiHkA/mUOAUlDtS+3Na7O1mxLrfb9++/cILLwwZMsR+4ztr7E6V
5kPLeIVRKqu5Ui1atDDOr+bLq1atKl68OLfm0rAYLJHO4/42v/32G3r4xRdf
jI2NxToee+wxcsl27do1bdoUb2YnpyCYLl26FFleqM5aFQRTfJbKamc28sc9
e/bk5s3k97hi+u7duxEREUFBQbt27erbt2+JEiVM/0RJZSqWmJg4adKkLVu2
OCKW/MSjVFbTUSpWrEiAtl/shx9+2LhxY6/+JAClXbp0KSQkRNtAXiMrK4uY
RTAdOXLk2rVrFy1apK0Nnz9/PvGO9Iffvvnmm/Sdfk+kr7/+GnHl1ZHEV65c
CQ8Pd2oSL+lYTEwMXt1lp6a0tLTWrVtr4x9dMWDAgDNnzngs0KmmTklJsSM7
Cw/qlI1ixYqtXLnS4msIjBkzZhjnSxTFIeTOHAozBeWO1DZHxi130Ifx8fFj
xowZPnz4ihUrEhIS1LtIj/1OOZTWuXNn+4eHujN2n+/IkdLctYxTGKVyZmbm
k08+2bVrV+PEIQKZOtbEuApejZzSpUsbjdf0oviu+vXrI5VJzbAUr2wE76eO
8LP/J4JQIPgsldVLSWyErB/rYMx73EVHrWUmzw0LC0Mnz5s3z1Raq7PAUMvU
Si3JiYqKMt2pMpDY2Vd5x44dRHM7Hkbj/fffJzo4dYS0U6UdP36cG+F2tE/o
4g0bNjRq1Egt5lLHm2qLoNFF3bt3V+cd8E06i7GRmpqq/TkOuWbNml5txHHh
woXmzZs7da4TNYyOjnZRTUSQPn366IPX5s2bURd2hKsjTU1rEN2cPRgxAJw6
dYpWYjC4e2JJaxNtt27d6nJ8QxEdQkZzKBIUiDu6e/cuba4d7a1ACzVr1ozC
6Ttceo8ePbQNnz32O+VQmumka3eYGrvPOFWaacs4iFEqk4xUr169devWLuKc
L8ycObNs2bLunuRjm1WqVEH62nmSb1zWZxO1RXNERIT/kw8FIb/xWSqrDZRw
eugNTDI+Pt7jLjrnzp3DJZJ+lixZ0uLIHkz+2rVr2m9v3LiBwH7rrbcK9u2n
HamcnZ2Nh1mzZo3NMrnTRYsW6eOCPzhY2vr160NDQ/XnYpw+fZr0PykpSYkf
Nb0wISFB6Rb1o7ZKXS2D6tevn/bnhJsuXbp07drV/ppo9NjIkSOdSiJ++eWX
2NhYF9X0448/1qtXT6u2Om6PSG3cNMAFp5pazd6nZQJ85LGfqN0ASpUqZXoM
/RdffDFw4EDjar6iO4SM5lAkKBB3dOnSpWeeeUa/zb5a5wVKsCnpS+eqmTke
+x1Wr17Njdh/1m1q7D7jVGnGlnEWo1RWB+AiifUnRfLbFStWVKhQIS0tzd0T
YIJd5cqVn3vuOTtLd8mXGzZsSFifNWuWVzGa3IcMaNSoUUVoXpPwp8VnqYwZ
4lcZ6snJycQjO3Hk448/JryGhISQzNp/TaMOOULSFOzsZTtS+f79+6TwQ4YM
sfncgCCOo3Bq0y2nSlOKUQttuf85f7lixYra5vwuZ+YePnw4ODg4MzNT/YiD
rVatGvFFK5Pufvfdd2vXrm3/8emHH36odnn183YURLqhQ4e6PF3JysriLtLT
09WPKkxTbY/d51RTq12vjSfy8OOBAwcYSBMmTJg2bRpNVxjmIOmhhowBQmRQ
UBANu3bt2oyMjPnz55M7x8TEaKe8aRTdIWQ0Bw1c05IlSxAnkydPnjhx4s6d
OwvVDI0CcUe7du0irdAXoo5BX7ZsmWocdaSINvHbY7/DmTNniBqanXrE1Nh9
xqnSjC2jcGoUme6rrA7IpkkTExMPHjyIRXTs2LFFixbHjx83vQofbt++vXPn
zitXriRYr1u3zt3lUMitWrWi7/Qbs5QoUaJ69er6Yx9d0M/DQVqj2GWislAk
8GdZH2ZFpowfs/lMbOvWra+88or1BnRKgXfr1k0Txg8fPuzQoQP5uHET9UBi
RyrTIO+99x76weaeQjdu3OjSpYtTL9+dKo17JJbp9ZvSkNpCD/X0Sb/DPHFQ
v856//79Kjjqiz179ixe1OZZVwR3PLz94OgR/P/o0aNdNAOdRbW156KoOLSc
nadwTjU1wYs2cZnvwYCfMmVKZGQk6SdNvWXLlho1apw4ccLPa+UHtOfJkyeJ
wiTLqPrVq1e7M9KiO4SM5qBQO5Zz44go1A6hH0fq8/kU+UHg3RHem2EQFRWl
CUs+SUhIKFeunHZGFVoRgYRmUz/a6Xf0HiEAfWXz8aOpsfuMI6UZW0bh4Ciy
ONiaNke+chdJSUlZWVnu9jykkikpKdgpnkftJW6aIfqMcR4OI8GYVgtCIQSh
27VrV/ur1P0BV+BxY1J1EDMGpe2oo7akQ6YW7IwmO1I5N28j2Tp16uzcudNO
mQT9nj17OvXA0KnSdu/e/fzzz+tfOKrJNtosu0ePHnGhNm3a0DUbN24kqZk/
f742mZDvjBgxombNmi5HNaEAe/fuTSywE3QI7kQQpJGf96IgdowfPx7ZoFc7
jDTqw9DSAlNqampwcPCpU6fQpdYzPB1pamqFluvbt69+RgE1XL58efny5dWp
MfyYlpYWFxcXGAvNP4ruEDKaQ27eWjNUZYsWLVS/qJXIa9euLWwnXwfYHamZ
xvppveoUDP1s/A8++IDhTb8cP378k08+sdPvuXlzYMLDw+3s5mFq7D7jVGnG
lsl1ehS5k8o2ofER0jS+2llRvcQpW7asU0m66Tycl156qVBll4JgQWGbKfTR
Rx/pj6lFM4SGhm7durVga2VTKuPlZs2a1adPH49P2tXzlunTpzsSXp0qjWpT
eTy2flSoTQ9AZTqZmZm4UGTe1atXuVn+hCDbtGlTFcj2798fFhZmeurxp59+
Sry4cOGCx2qgVHGq9hfyWEM5lHb06FH9h8gzJBBxCh+em7d9a5MmTWrXrs1/
CN+m53YpnGrq7Oxsov/hw4ddalWvXr1OnTqZHsdQdCmiQ8jUHGDPnj1qwYU/
hQeAALujlJSUl19+2cVJbtq0CbNSs16vXbtGLzPCb9y4kZiYiAnY7Hf6kcTK
Yj6A/ptGY/cZp0ozbRlnR5E/UhnznDFjRsWKFfUHx+MDK1euHB8f70iEMp2H
Y3PloCAIRvDqCxcunDlzJioiOTm5efPmq1atKvDN/21K5dy8BwgtW7bk+9Zf
+/XXX7t162Z6jpIPOFXagQMHcOnGl7Dnz59v3779tGnT4uLi6B38amRk5IQJ
E9SCEbps6tSpQ4YMmT17NtVw90iWTuRP8L3W7hFfqibvOdXpZ8+epbYuN3X8
+PGgoKCQkJDY2Nh58+ZxX8T0Bg0aqIdIFq8/HGlqWmDSpEljx451uZA6vI/6
FKpZr45QFIeQqTlokwrsbCpY4ATMHd2+fbt169barGN9yeRE/fr1o8fHjRu3
ZcsWrIxOXL58Ob1js99z8x56t2rVyuOKFVNj9xlHSjNtGcdHkT9SmbqVL19+
8+bNLu/dBg0aVK1aNTuZqTWm83BQ5lzRz5IF4c8MBnv58mX89qFDhwrJTjL2
pXJuXoTt0qWL9Qzw69evt2nTxuL8UK9wpDQq3LlzZ3dzQfHAV65c0boD/++y
Rz1/7jGQEbhpGeszTwmgQ4cOdWpjkNy8zZMHDhyo3wlBSanQ0NDs7Gya7saN
G+rJCWGdW7CWqY40NS3w2muvGUPw0aNHy5Qp47LUhQZxaieQgqVoDSF35sBQ
mTJlChLCZWL2gwcPCtsEDEUA3BE9i06jWdzlmPQ1VqYs6x//+IdLL9vpd0qe
Pn06ettaChqN3R/8L81dyzg+ivyRyg8fPjQdHnxOhuv/pD7TeTghISHnzp07
noef5QuCUEhAKterV2/37t1ZWVkeTybF161bt27MmDEWr9GvXr26dOlSj5O3
beJ/aVQ1Li4uAPMtz549Gx0djUZ19wUCU1JSEoHVqStmZmaiFvSfqCnxvh0H
4H9T5+TkvP7666bTaMnFmjVrpn+qzGAbPnx4kXiAGTACMISszQGhjsjROoXO
OnjwIPZeSPJ6F/LbHakZ9cOGDVNzmfIPEiuusmXLFotk1mjs/uBnadYt49Qo
ols///zzTz75pH///mSIhXNKg3Eejpp8rubhFHTtBEFwhs8++6xu3bqVK1eu
WrUqUdjj9wlP6enpLjNRCzNHjhzZvn17YB6LnTt3bs2aNU6lCT6gdmnz6jwL
p+CuuXeLA6qIelFRUW+//faSJUvGjRs3ceJE/1+A/vHI7yFkbQ6///77ypUr
O3ToQB/NnTuXXIb/5LdQ9Id8dUcIHmR2YG6fqyxbtqyoHNlj3TJOjSKcyQsv
vFCpUiXCE36jcL7asJ6HU9C1EwRBEFxRezSpXSYKIf/+978RA/qDeIRCCEL9
4sWLHg+sEQQL/lSjyHoejiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIQqHi/wHxFKSW
     "], {{0, 220.}, {953., 0}}, {0, 
     255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{750.9999999999991, Automatic},
   ImageSizeRaw->{953., 220.},
   PlotRange->{{0, 953.}, {0, 220.}}]], "Input",ExpressionUUID->
  "c6074caa-bc78-42aa-8b72-2782824f8632"],
 " FieldNumber = 14"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.748965833520466*^9, 3.74896583850887*^9}, {
   3.76753949071449*^9, 3.767539490714542*^9}, {3.767539876165092*^9, 
   3.767539876293001*^9}, {3.768090021473961*^9, 3.768090021643847*^9}, 
   3.831223719734989*^9, {3.8312250668089714`*^9, 3.831225067130825*^9}, {
   3.83122618810114*^9, 3.831226189134371*^9}, {3.831819154684389*^9, 
   3.8318191749817944`*^9}, {3.831819642293605*^9, 3.831819643093502*^9}, {
   3.831821449278725*^9, 3.8318214496518993`*^9}, {3.8318278692775154`*^9, 
   3.8318278695899396`*^9}},ExpressionUUID->"aa42c791-4870-4fd8-b411-\
2891bb0592c5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318192019813013`*^9, 3.831819225492302*^9}, {3.8318272228056684`*^9, 
  3.831827234397349*^9}, {3.831827674827033*^9, 3.8318276766530857`*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"7f570c54-452b-47bc-8772-88e870933681"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.831819239869073*^9, 3.8318192401496487`*^9}},
 CellLabel->
  "In[319]:=",ExpressionUUID->"b37b68f4-ac59-4b4e-9b62-7d1a05d3a7f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318192408803005`*^9, 
   3.8318209210443487`*^9, {3.8318275813344088`*^9, 3.831827605696169*^9}, 
   3.8318276840235233`*^9, 3.8318277656462555`*^9, {3.8318278127627525`*^9, 
   3.8318278319715166`*^9}, 3.831827925746167*^9, 3.831828163462552*^9, 
   3.8318397949488716`*^9, 3.832947507555216*^9, 3.8329617920841694`*^9, 
   3.8458268842541866`*^9, 3.845852475139534*^9, 3.845857085534531*^9, 
   3.8459196326996737`*^9, 3.846006583986267*^9, 3.8460998957104216`*^9, 
   3.8474704579102135`*^9, 3.851700643034924*^9, 3.8539754587782583`*^9, 
   3.8549774187363195`*^9, 3.854989271565649*^9, 3.854999909146902*^9, 
   3.8551652584029484`*^9, 3.8551823273495693`*^9, 3.8551858714447613`*^9, 
   3.855330649145714*^9, 3.855339854259963*^9, 3.855343191429525*^9, 
   3.8553440254282813`*^9, 3.855352752379869*^9, 3.8554496161662903`*^9, 
   3.855507617553403*^9, 3.855508414734869*^9, 3.855512902863639*^9, 
   3.8555333343619947`*^9, 3.855578928513942*^9, 3.8555933008301315`*^9, 
   3.8557506131977043`*^9},
 CellLabel->
  "Out[320]=",ExpressionUUID->"819704a3-4a79-4da3-ac7d-251f4ed92c00"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"cV", "[", "1", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
             RowBox[{
              RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"KroneckerDelta", "[", 
              RowBox[{"cc", ",", "dd"}], "]"}]}], " ", "+", 
            RowBox[{
             RowBox[{
              RowBox[{"cV", "[", "2", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"\[Gamma]5", "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "3", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
               RowBox[{
                RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
            " ", 
            RowBox[{
             FractionBox["1", "8"], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammadown", "[", 
                  RowBox[{"mu", ",", "nu"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"CommuteGammastdown", "[", 
                    RowBox[{"mu", ",", "nu"}], "]"}], ".", 
                   RowBox[{"\[Gamma]", "[", "ld", "]"}]}], ")"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "4", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "+", 
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], " ", "+", " ", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"cV", "[", "5", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
               RowBox[{
                RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstup", "[", 
                 RowBox[{"mu", ",", "ld"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "-", 
            RowBox[{
             RowBox[{"Cmetric", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], " ", "-", " ", 
            RowBox[{
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, {3.831819259638297*^9, 
   3.8318192843596272`*^9}, {3.8318193167890882`*^9, 
   3.8318193365421095`*^9}, {3.8318193822299657`*^9, 
   3.8318193833181553`*^9}, {3.8318194160299044`*^9, 3.831819450671134*^9}, {
   3.8318195261348457`*^9, 3.831819530567998*^9}, {3.8318195744557567`*^9, 
   3.8318195749600797`*^9}, {3.8318196678477764`*^9, 3.831819692890753*^9}, {
   3.8318197307427387`*^9, 3.8318197891426706`*^9}, {3.831819826446647*^9, 
   3.8318200246372905`*^9}, {3.831820134837309*^9, 3.831820231487279*^9}, {
   3.8318208804703093`*^9, 3.8318208974076424`*^9}, {3.8318273031684465`*^9, 
   3.831827318814865*^9}, {3.831827394864084*^9, 3.831827405522624*^9}, {
   3.8318274536010265`*^9, 3.8318274973492556`*^9}, {3.831827531030447*^9, 
   3.8318275537690153`*^9}, {3.8318275950312924`*^9, 3.831827602648566*^9}, {
   3.831827786339622*^9, 3.831827829558851*^9}},
 CellLabel->
  "In[321]:=",ExpressionUUID->"ea1c2fd5-6d92-4bca-a26c-f261d5d2e112"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}},
 CellLabel->
  "In[322]:=",ExpressionUUID->"6af6d17c-cd4e-4cac-abc0-9fb6aa711449"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318209253296533`*^9, {3.831827585618477*^9, 
   3.8318276131361856`*^9}, 3.8318276903476067`*^9, 3.831827771359091*^9, {
   3.8318278183728695`*^9, 3.831827835488449*^9}, 3.831827929105707*^9, 
   3.83182816687142*^9, 3.831839798526885*^9, 3.8329475112438526`*^9, 
   3.8329617957523575`*^9, 3.8458268881047845`*^9, 3.845852478781261*^9, 
   3.8458570890317*^9, 3.84591963657257*^9, 3.846006587449766*^9, 
   3.846099899410571*^9, 3.847470461530918*^9, 3.851700646836468*^9, 
   3.853975462280534*^9, 3.854977422485186*^9, 3.854989274959279*^9, 
   3.854999912699356*^9, 3.8551652621549835`*^9, 3.8551823309021225`*^9, 
   3.85518587498664*^9, 3.855330652852141*^9, 3.855339858018529*^9, 
   3.8553431950374427`*^9, 3.855344029169569*^9, 3.855352755991879*^9, 
   3.8554496194471693`*^9, 3.8555076208261642`*^9, 3.855508418331558*^9, 
   3.855512906313748*^9, 3.855533338041833*^9, 3.855578932265969*^9, 
   3.8555933045573072`*^9, 3.855750616832797*^9},
 CellLabel->
  "Out[322]=",ExpressionUUID->"8d7da55a-0aba-42f6-b173-bcf3bbd46746"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]hat", ",", "\[Beta]hat", ",", 
   "\[Kappa]hat"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}},
 CellLabel->
  "In[323]:=",ExpressionUUID->"881be4b0-61fb-41e7-9c1d-608480d41c2d"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
4D, N=2 Summary, tilded (tt1=tt2=2)
True if Holoraumy is correct\
\>", "Section",
 CellChangeTimes->{{3.7468448382541714`*^9, 3.746844841062807*^9}, {
  3.747484813570861*^9, 3.7474848147061768`*^9}, {3.751727150297126*^9, 
  3.751727152968473*^9}, {3.7517370764997187`*^9, 3.751737081484597*^9}, {
  3.831220515042942*^9, 3.831220515642957*^9}, {3.831821062978949*^9, 
  3.8318210760739365`*^9}, {3.831828090167012*^9, 
  3.831828090416955*^9}},ExpressionUUID->"9b4cd258-bb57-4366-b5c3-\
19dd043d3e20"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResult", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{"True", ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", "tt1", "\[IndentingNewLine]", "tt2"}], \
"Input",
 CellChangeTimes->{{3.746844857362361*^9, 3.7468448795383835`*^9}, 
   3.7474860644092245`*^9, 3.7493830656655216`*^9, {3.7493833451039195`*^9, 
   3.7493833528869457`*^9}, {3.751407437687273*^9, 3.751407439737672*^9}, 
   3.767539374926538*^9, {3.831820950415612*^9, 3.8318209529669285`*^9}},
 CellLabel->
  "In[324]:=",ExpressionUUID->"c0002082-2868-482e-98cd-15f72b9a20a5"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8318279375677404`*^9, 3.831828166933948*^9, 
  3.8318397985761905`*^9, 3.832947511275104*^9, 3.8329617957942452`*^9, 
  3.845826888167261*^9, 3.845852478807568*^9, 3.845857089070284*^9, 
  3.845919636619439*^9, 3.8460065874946456`*^9, 3.846099899441847*^9, 
  3.8474704615777483`*^9, 3.8517006468833733`*^9, 3.853975462327856*^9, 
  3.8549774225476665`*^9, 3.8549892750100203`*^9, 3.854999912746194*^9, 
  3.8551652622174883`*^9, 3.855182330964577*^9, 3.855185875029114*^9, 
  3.8553306529302735`*^9, 3.8553398580653934`*^9, 3.8553431951624193`*^9, 
  3.8553440292439203`*^9, 3.855352756031867*^9, 3.855449619489071*^9, 
  3.855507620865719*^9, 3.855508418385792*^9, 3.855512906401932*^9, 
  3.855533338137979*^9, 3.85557893232845*^9, 3.855593304572898*^9, 
  3.85575061687963*^9},
 CellLabel->
  "Out[324]=",ExpressionUUID->"578df8a1-55f8-4a81-8d68-3b4ff94092b8"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.8318279375677404`*^9, 3.831828166933948*^9, 
  3.8318397985761905`*^9, 3.832947511275104*^9, 3.8329617957942452`*^9, 
  3.845826888167261*^9, 3.845852478807568*^9, 3.845857089070284*^9, 
  3.845919636619439*^9, 3.8460065874946456`*^9, 3.846099899441847*^9, 
  3.8474704615777483`*^9, 3.8517006468833733`*^9, 3.853975462327856*^9, 
  3.8549774225476665`*^9, 3.8549892750100203`*^9, 3.854999912746194*^9, 
  3.8551652622174883`*^9, 3.855182330964577*^9, 3.855185875029114*^9, 
  3.8553306529302735`*^9, 3.8553398580653934`*^9, 3.8553431951624193`*^9, 
  3.8553440292439203`*^9, 3.855352756031867*^9, 3.855449619489071*^9, 
  3.855507620865719*^9, 3.855508418385792*^9, 3.855512906401932*^9, 
  3.855533338137979*^9, 3.85557893232845*^9, 3.855593304572898*^9, 
  3.85575061687963*^9},
 CellLabel->
  "Out[325]=",ExpressionUUID->"c347687e-527f-485c-857d-ffbb9fae6dc2"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.8318279375677404`*^9, 3.831828166933948*^9, 
  3.8318397985761905`*^9, 3.832947511275104*^9, 3.8329617957942452`*^9, 
  3.845826888167261*^9, 3.845852478807568*^9, 3.845857089070284*^9, 
  3.845919636619439*^9, 3.8460065874946456`*^9, 3.846099899441847*^9, 
  3.8474704615777483`*^9, 3.8517006468833733`*^9, 3.853975462327856*^9, 
  3.8549774225476665`*^9, 3.8549892750100203`*^9, 3.854999912746194*^9, 
  3.8551652622174883`*^9, 3.855182330964577*^9, 3.855185875029114*^9, 
  3.8553306529302735`*^9, 3.8553398580653934`*^9, 3.8553431951624193`*^9, 
  3.8553440292439203`*^9, 3.855352756031867*^9, 3.855449619489071*^9, 
  3.855507620865719*^9, 3.855508418385792*^9, 3.855512906401932*^9, 
  3.855533338137979*^9, 3.85557893232845*^9, 3.855593304572898*^9, 
  3.85575061687963*^9},
 CellLabel->
  "Out[326]=",ExpressionUUID->"c2209ea9-eb4a-4bee-a097-cf5c96944ecd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Holoraumy ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox["D", "a", "i"], ",", 
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"85791a76-c0fc-4db1-b255-d381676388df"],
 " "
}], "Section",
 CellChangeTimes->{{3.746831725880522*^9, 3.746831726815978*^9}, {
   3.747484799938679*^9, 3.747484810026211*^9}, {3.749400068041915*^9, 
   3.749400077475848*^9}, {3.751566860960198*^9, 3.751566870113977*^9}, {
   3.767539264186421*^9, 3.767539275420515*^9}, 3.767630407991788*^9, {
   3.8318210538019447`*^9, 3.8318210600247245`*^9}, {3.8318282885102186`*^9, 
   3.831828288822652*^9}},ExpressionUUID->"207c6e73-a978-4fe9-b8be-\
d6c143d9fcd9"],

Cell[CellGroupData[{

Cell["Set tilde indices: tt1,tt2=1 for untilded, 2 for tilded", "Subsection",
 CellChangeTimes->{{3.74748589807438*^9, 3.7474859927542334`*^9}, {
   3.7493829745987787`*^9, 3.7493829930707884`*^9}, {3.7514052692549267`*^9, 
   3.7514053037746964`*^9}, {3.751738034258769*^9, 3.751738035971404*^9}, {
   3.767539285403961*^9, 3.767539286757628*^9}, {3.7675393328642693`*^9, 
   3.7675393381796207`*^9}, {3.831226416603404*^9, 3.8312264306754775`*^9}, 
   3.8318217365215335`*^9, {3.831828069456098*^9, 3.8318280762393937`*^9}, {
   3.8318281302779446`*^9, 
   3.8318281320128803`*^9}},ExpressionUUID->"bb3dd1a9-d55e-43dd-a76f-\
61bdc1838322"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tt1", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tt2", " ", "=", " ", "2"}], ";"}]}], "Input",
 CellChangeTimes->{{3.749383010539157*^9, 3.749383013350893*^9}, {
  3.749383162056017*^9, 3.7493831621347337`*^9}, {3.8318211317934065`*^9, 
  3.83182113291881*^9}, {3.8318282863531675`*^9, 3.831828286431819*^9}},
 CellLabel->
  "In[327]:=",ExpressionUUID->"377b3ecc-c91f-4ff0-95a8-f0ee993db604"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "4D, N=2 Vector Holoraumy, one tilded, one untilded ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubsuperscriptBox["D", "a", "i"], ",", 
     SubsuperscriptBox[
      OverscriptBox["D", "~"], "b", "j"]}], "]"}], TraditionalForm]],
  ExpressionUUID->"f7eb0846-2ba7-4031-b341-a084bbd9c016"]
}], "Subsection",
 CellChangeTimes->{{3.550920278304533*^9, 3.550920282240758*^9}, {
   3.5509221619582715`*^9, 3.550922211396099*^9}, {3.551793495341796*^9, 
   3.551793495906828*^9}, {3.5594927244525585`*^9, 3.559492746318809*^9}, 
   3.559499496819916*^9, {3.7113930579483547`*^9, 3.7113930664148393`*^9}, {
   3.711393103948986*^9, 3.711393104741031*^9}, {3.746807497233589*^9, 
   3.7468075031958065`*^9}, {3.7468296820915112`*^9, 
   3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, {
   3.751405314474931*^9, 3.75140531586872*^9}, 3.76753934580381*^9, {
   3.7675394595983562`*^9, 3.767539483364336*^9}, {3.7675398556290913`*^9, 
   3.767539855771489*^9}, {3.767543491843978*^9, 3.7675434934179277`*^9}, 
   3.768071522713936*^9, {3.831226408795494*^9, 3.831226409891334*^9}, {
   3.831828337103121*^9, 
   3.83182834499345*^9}},ExpressionUUID->"f8844fd6-a00b-412f-9b37-\
8db05aa2476c"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQl0TVf7/6kh5rammqIIap5aQvEj5qiQNGKo8U3jFVKCFDWreW5NRczU
8EojeGktQ00JbZOFVkxLKRZK35auDkvf1fdd+X9+d6/u3/mfc+655957cu/F
+a7FSk7uPWefvZ/h++z97GdXjU188+/P5cmTJ6kQ/735t/FhY8b8bUL0C/wS
MzJp2NCRQ+LCR747ZOiQMc1j83GxAf9S+eF/f86xYcOGDRs2bNiwYcOGDRs2
bNiwYcOGDRs2bNiwYcOGDRvPBn7//fdff/3V362wYcOGDRs2bNiwYcMX+O9/
//vZZ59FRUVFRETUq1cvODh40qRJDx8+9He7bNiwkVv4z3/+k5GRMXXq1H79
+s2ZM+e7775TfeDPP/9MS0s7ffq0P1pnw4YNHdy4cWP58uUDBw4cM2bMiRMn
8N2qD3zzzTfbtm1Def3SPH/hl19+SUlJGT58+Ntvv7158+bffvtN9QH4THJy
8v379/3SPBuBj127dg0dOvTHH3/McTjH9evXFylSpFmzZrdv3/Z302w8wbCJ
VsDi6tWrhL116tTp27dveHj4Cy+8ULhw4ZEjR965c0d84MqVK4waZsEOh23Y
CAT8+uuv06ZNq1atWvfu3Xv16hUSEpInT5727dunp6cLMvzo0aO5c+dy5ezZ
s/5urO/Au+/du7dhw4atWrXq379/aGhogQIFXn755bVr1z5+/DjH4WX279/f
tm1biA0uyd/ttRGIuHfvXkxMDG5RXkF43nrrLVRs0qRJttjY8Aw20QpYHDx4
MCwsjOBXardwoGXKlMmbN2+Vv7B582aDOaXz58/Xrl37gw8+0M5H2bBhw1rc
unULNz1hwgRUVVxBN/ft2/fqq6/iqUuWLPnKK6+UKlVq1KhRP/zwg3+b6kvA
VWbNmhUZGZmdnS0vXrp0Cc8CGQ4KCqJbypYti7nLysryYzttBDiOHj1arFgx
QsuLFy/Kixs3bsyXL1/Lli2l0tmwYR6WEC0buQFY69mzZwl+tX9ijNLS0hYu
XMj/LvcI3LhxY/z48V9//XXuNPOZwx9//PEM6oJ2muUZ7AQzuHPnDoGn9jrd
lZGR8eGHH65bt+7mzZu+b5h/8fvvv6enp6M72j99++2369evJ07/4osvnu7Z
PNXb2RrkARASYkkCyczMTHkRAlOwYMFGjRo9g7k0d+/enT179vDhw/v06ZOS
kpJ7GqS6M/zk6dBWq4jW0w3Ges6cObVq1cJc+7stNvwGlOXw4cO9evWKiYlp
3bp106ZNsTnuOrKffvqpS5cu/fr10/KBAJ+0X7RoUcWKFaOiooYNG9a3b188
zkcffRSYTbVhIwBx7ty5ypUrh4WFxcXFvf322yIz5Oeff/Z3u548XL169fr1
6/JXrNCCBQvy5MkTHh6uTTU3CQMvH8iWGaF65513xMT4rVu3Xn/9dbxSbjwI
Eti5c+f69esjtPHx8d26dWvWrBlPz41n2QhAIPwEm/PmzXvGw4FnHCdPnkxK
ShKLbrDf999/v3Dhwhs3bnTLNv7yyy8zZ87cs2eP9luBPGlPa4mIixcvnjdv
3vz58xMCpKamPh1TATZs+AZZWVkEkqgPhK1SpUrTp0+3V/AtwcOHD4kpsMZp
aWke38TAywesZf7hhx/GjBlD88Sv//73v3v16jV8+PDceBaeCxpcqND/HntW
rFix3r17K7ObbPgXSO+hQ4cwKdOmTUOGtZv7nln88ccfq1evTkxMbNu27ccf
fyx516lTp+iuqVOnzp49+8qVK/5tpI/x/fffX7p0yYMvYmHefvvtnj173r17
V1y5efNm9erVGzdu/ODBA3Hl8uXLugsr3uC3335LTk6e5sD69et///13b+6G
SGRmZvIu7n4R4Vm1atW+ffugvj6bEvnxxx8vXLjgm2fZsGESyKRnSd3nzp1D
i9E+3SUkrqObYqtgwALrN3/+fHwHL3LgwIEAmR3dtGlTwYIFR4wYEeC9Zy3o
/HXr1u3cuVNeQSxfe+21WbNmGXzLYw8IDU5KSrpz544vM3lsF2AS+OVhw4YF
BwdHRkYOGDDAjlAE6JaPPvoI9ot1TUhIeP311+X2xtTU1KioqK5du77wwgv/
+Mc/3L0z99m9e7fHa09+BLLRt2/fb775xoPv0o18t0SJEidOnBBXHj161LJl
ywoVKshFtIsXL7711lvWThpgtWrXrh0aGsqQTZgwAVvk8a347qhRozZs2OCB
85I02OOne4Bff/2VBuPjfOBt79+/v3Xr1pkzZy5fvhwJCRD/7mPQ4YRyiJzy
9fnZXrgXoCsQknfeecczNRQ02BmLEDdPTEz0fW9j3K5fv3716lVVphbyoFrx
uXbt2sCBA3v06FGlShV+CITcZqx69erVY2NjzazVMnCHDh3atWvXl19++aRP
xdP+sWPHoq3iV+Rn6dKl0GCD1E1vPKCkwR421yP40gU80UBPhw8fjmnSXaKl
97Zs2cLQ99ZDnz59hg4dunjxYmeTopiFlStXcn9IiI8nTs+fP/+3v/1Nt9lg
8ODBhORHjx51NrN38+ZNfPpvDnR2QEVcf/rpJ7ixuzSYTh4/fnzZsmUDZBqZ
9hACm5nevH37dkREBDbQ42fhnuhVqY/csGbNmk2aNJGzweDYsWPdu3e/deuW
bgMmT54MT8Z2KcfC2aS9AFbu1Vdf/ec//+lxs+VT3nvvPWTGg6ngnL9oMM1D
HbBL8+bN8z5PHhFq1qyZfDVaSPOWLFmiVGTYaXR09N69e718lgEeP37M6zBq
CxYsSEtLwxrgStB3j3ex4S9gO9gWXc3t378/A7F9+/YA4Zb09smTJ2ER5cuX
r1y5cqtWrRo0aFCnTh2CaESFcSduQjgtITzYtBEjRrxtAuhIANaARVZhgB6v
+ECDsQB79uzh7QhpP//8c+2OOYz2uHHjdDcSWg6oL4JKlP3SSy81bdq0Xbt2
eATaJua6aS1aIBe/lEAqkGHck99pMGPRvn37hIQEMxw4IyNjwIABiHrDhg3z
5Mnz3HPPxcXFof7OvLyxZfYMOAv67cUXX8T0ibrH4kF///vfEXtpnAk3eCmR
Q96zZ09aLq4rHQfahLRkZWWFh4c3b96cseOeBhTXSw8oaDCUY/r06aNHj4aa
ejMnIwA3a926tVQo/Cb+UVWV1wcu4OHDh7CaQYMGSfuDkDBM6enpOQ4LuXnz
ZoI+LsoP8OuKFSsCJy3QmAbnOBJ78G5jxowJCgpC+HmFI0eOpDuASCDneMCC
BQu+8cYbygIsAikpKWvXrsXjv/zyy9CA3H+b/wOxHiL3wQcf8Gia3bhx49TU
VNHs48ePb9u2jVcuXbp0SEiIcZYmr493g2CotNgzGoyIlipV6vnnn/d7BWm0
Iz4+vn79+nXr1qU9tWrVWrZsmbOcAa4j1XSCVXJLZy5fvrxQoUJIhbJjuf+s
WbNQKFXQgbHl6WfPnkWhKlSoII2twaS9gHkaLCI+3Nknn3yi/SvP7dSpk5Kx
uwv4IcHUl19+KUqI0+0HDhzw+G5g/fr1JUuW5IbiV7SsUqVKs2fPVgnqqVOn
WrZs6dlCnkvQ/4sWLZo7d64yOkA1cD0QQs8ID/e8cOECpgM6jebS7XRU+l84
ePDgjBkzIB6IASPl31kO2ondK1asGKHN5cuX5XWEEE83ceLEzz77jJjXKtMH
v8Kdvf/++0WKFIGE4FbopX1/YceOHZg7qEiBAgXgCZ7NWXkDYw1CZ1u0aAF3
9fj+qD83RxMxR0h7mzZt6GEV40X2GBFCD4+fYgaML48uWrRo165dDx8+LNks
P2CLCNbQSjgVWqBLyAOEBvMW/fr1Q5zMRA3wZBi+iG3RUFx/3759RXlqXS/v
0jJ7DIxwkyZNaLm0OahhuXLl5syZ818HcOivvPLKxo0bRQYazahZsyYGkC/C
1mQzCKVRGXgCThw+QHhFIzEvug/13gPSgZGRkTBhrCLejR8IQLyJVRk1+O3/
/M//yAkBXhl2IT2CRK66gByH2BNT0I0NGjTAYtepUweKe+LECcnz4edYQjqQ
v6I16A52LKCq/bikwQKwweDgYOiuromD1MGj8E1KKUJyCHwYaOQNf33s2DHL
G+8SaApGSbB3rc1BL9Cm/PnzI97OTAH+BZ+iXc72gAajCBhGGgP98/H6uArZ
2dm4S8n/0aNhw4bhWKEuusK5a9cuHJCF80tffPFF1apVp0yZop1cvXv3LrG5
qmPhGHAtrAdRJC2R8wAuJ+3N02BGJywsDAqxbt061Z++++47KNnu3bvdfk8F
sH7SAvPWAwYMaNSokcczYwjzkCFDlAWOGM0XXnjh008/1X5yxIgRfDg3psjO
nTtHG4hoVOMIB8MxYe489hqY0LZt2zIcyuQ9CYxJiRIlypQpI+d5fAxB+WgD
KqNLOIWswlcZFK1j8gYwSYg33avr10SAid/XXVLJVRhokJivw8h4tpgiQJcq
Xwq3Qt9qY0k8LNoq9z1ZDoa7YcOGRDeQKK140/9wQhqGnV+4cKHuHQKBBtOZ
RGoffvihbAMebdq0ac7IKnZGd0nXmZd3aZk9RlZWFg9CyMWvDAHuu1q1aiIO
zczMLF++vPIcEK6jLEuWLME2Llu2TATOYo+2MgGPz0NNaafuxLj3HpDnXr9+
XfY2PoU2Ez57LAN37tyB7TOI4k25DyQHIqoteZerLkACp0wXwSKIO7R/5fUn
T56MUnTp0iUAM0JN0mBGjVjPGQ3OcRgHiA3yBsNRXn/8+PGbb76Js/BLKhFW
V5yPo0uDcxzetlevXvny5cNkaWeWuIKK8eJao+oBDcZQxMXF1ahRg8cRuLn5
KpYBIYyNjSX4VV7Emol4gbhANSfMmxJywkKtmnnDLuGnMJ7OpkoWLFgQGhqq
VWe+WKlSJcyXbpkI3Ul7t5IiuMmFCxdUdxAy0KFDB2tX4XnHoKAgj6k1Noc+
HDRokOAVItmmSpUqultccQ0hISHeJLQ4w8qVK/PmzUvYgpAoryNCmDvImMeO
A4eLOyOy1iV7jEXr1q0R13Hjxvl+ZQ1LMm/ePPhe9+7dDXZ7HT58uGjRopbX
YhW1rZSzQCqcP3+ehslQ0ZfQ1aAcR5WY6tWrWxsOnD17FrYJu1YZdkx6p06d
xo4dmxuCceLEiYoVK2JqTp065ewzDx48aNy4MaGKs5kfv9NgjAYCnJycrOwi
PDid5ixOEb0KT9btVQMv78wye4wNGza8+OKLcjn1q6++4v6iGhv9iTyULl1a
WXj87t27tWvXprd5O5mKhnZgOpRWS5hQAhztkp/lHjDnr5gRHutxtjDSRT/I
WQIMEZ5OOUmuRO65AAn6nPDEWdQP6+jYsSOGC78fgInKVtFgsGbNmvz58zO4
yojy3Llz+LJFixb55d1d0uAcx84sLFupUqW0M0uMHbqPQ9dmC7hLg+EDiCiR
bIsWLWgPvszdd7EKxCnEvMq6kQL79u0rVKgQkqw6oDYtLY241aoNp2h9ZGTk
pk2bxIrVtWvXtNuTs7OzeSIBuPIiH8bWlS1bVvf8XGeT9t7nBtNgQmw5+eAZ
jh8/jo/Yv3+/vMK7EA15vHpLJyCxMu7GSaF3b7zxhm5aC2Lco0cPZe6cVUCK
iErOnDmjuo6uDR06tEiRItrZaZNISUnB2sB1dcmecCLoUUJCgo9pMHKI9KIp
yJWxC+OvBAIDBgywsNuJHOEbvPiYMWOcvTiBw5AhQwJn1z/CEB8fHxER4c0s
EOSEF580aZLsTGgbxoqL2u5FL+rUqWP5fDieokaNGiVKlDCWat43Li6OoXcm
Hv6lwYjN4sWL6TrMWkMH6tevD5NEWydPnuzMTXMdDqyd5hIw8PLOLLNnELJE
g8XWNmhJ06ZNR44cKaRdUEHVWXgiKqF5yt3NNBjDpex/7oCItm/fXjsb7L0H
FEWVsc9SJDDUHTp0qFChgtYRmwQUQrkkJDzCihUrdD+cey5Agu6F/ilLPynB
awYHBxcuXFjpBAMHFtJghpiwi8/ICAWpmzFjBmONAUlPT/d+p5K7MEODhcvm
M4MHD1bNT4qx041f3KLBIuV17dq1CH/Xrl15VlJSkr/ywzdv3oy4EjKrorYr
V66UKVOmQIEC27dvlxdFB3pTVl0JbBcOWooBBocAXLuLhGfxxN69eytdOZYN
UoQuQ/nWr1+vnJ83mLT3ngZv3bqVKMnLTMvk5GQ6XBJ7GjxlyhSD+SKXWLdu
HXG3LLtBNEEj6YR79+7xLK2tW7p0adWqVfmYp2/gHpBtCGrevHlXr17t2dfH
jh2LmsglPxWwJ1gVZBVG6nVj3cPp06eJxeBCR44cMf7kw4cP27Rps3LlSguf
Lqg1L25geTIzM5Euv2+/kkArYRFIoDc3uXr1aqVKlXBV0kSfPHmyePHiEyZM
0EoI2oo6WCsbGPx27dohkzBYY9MtGGNMTIyzNWj/0mAcscjZUMFlVE6vli9f
HpKp4jkGXt7AMnsGRqFZs2ZizhOR6Ny5c2JioiSugvFGR0crDaBYrFetxW/c
uHH+/PlKt45eY6K1RxpZ4gGRhKioqCZNmsh+4EVCQ0Nfe+01z1ZtRDjMHeSE
Nj6RYaX/cQqHDx/WfiVXXYCYh0eK5AKlCnv37i1UqJCz9Uq/w0IazOv36dOH
rmDEBYGB9XXq1InxwiOgDr4vYWeGBuc4dlziWZR7rwQYOyJZ3a1MbtFgCGds
bCydQBtEonj//v1zLy4zBoE5QRkqo5r9RkGILjGGSvch6jnMnDnT+8l8QvXI
yEiigHcdQOTgtJgsrXnhWTwRnVUmKiM80A/oH9Zv4sSJypjdYNLeSxosEq6g
316m9BCzjxs3Tk5s0hUIz4ABAzyrYyxaBRMTK7PoGp0pqBFvij3UDtaZM2cw
8soAx0JgOr744otVq1ZBes+fP8/TkW1cFXK+ePFiD25IpAOB5I127Nih/Ss3
HzFiBDfv2LGjVftuTELsc9ENmbXARHTv3l07Ve4NdBODkX/ItnSIt27d+uqr
ryx8qJdISUlBc73sB94RrZenbiFykydPxjTpltxBW8UZc1bZWESaHs6fP3+N
GjVcMjqRrWqwAOr3pAjPQGcKqkNwquxYAy9vYJk9A+YFO7Zw4UKCfaKSnTt3
KnkL/QkrVuZm0IAPPviAmAgei/Li4/g8H8NgwlXkHi6iy/bt2zMi2qlgqzzg
tm3b1q5dK29y7NgxtHjz5s2e3U2Ew82bNxcGEJls1KhRSEgIP9BU3aKjueoC
MD4iMVh3O7BMDGYUrJIEa2EhDRbshZcl9pdbSokTEcsxY8YgBr7PizBJg3Hi
zz//vHC7KA7CiSDx+WHDhjVo0ECWFlTCPA1Gs+Lj48UWaToEA0h7CGP9JQ+0
ITMzU7mxXYAosnjx4jhZ5W7ugwcPEgikpqYa3xNnhJwj5IS3ryrArz179sSS
iOMztFMQ2tQ+AZ7Ic5W5TETNWFSCTSiQKp4ymLR3SYP5yp49ewhSunXrxp1V
RWzu37+PeYmLi3MmPPQkVKdIkSL0W9++fVWhLtaYCIuB5imEVLws6oOM4Rd4
Ea1cmbybWPvjMy1btkTj0F+cAveMiYnBC+im4wqzafkaBN2CXtMYumj37t0n
T56kPbNmzeLV4LFYRSy/B7dFOMuXLw930hafQT2RNFSVeMr3u8AQy0KFCqEm
ZioeMFJ83vKUcm1iMOQQA+ubKmFaGGsQ8gZrMsgQQJiJEBluSCbm4rPPPlNV
XUZlxMLxt99+iyGFjn766ac4LITfWYKuSEtwtj7rAdCpWrVq0fO6k88q0Oaj
R48SrRt84ImjwRgfyGdYWFhQUFDRokWVFtXAyxtYZgl0fMmSJUTNoaGh/G98
tAq896WXXqLrsKK6e9mwPIQ/AwYMoLVII/YQ+peWlla/fn1+JSqnz4XIEbPj
kubPnz927NioqCjurDscxh6Qr2CTGzZsmC9fPsj23LlzVW4d3i7qBmC4Zs+e
LarH8L7YzGXLlmnDNJMuQITDZcqUEbU+EhISNmzYUKdOHfQCE6FrCnLJBQhg
ggwSgxmpDh06BGxicI6lNDjHkR6cN29eKKWM/XlrKLG/Sm2bpMGYLHwuH0Od
9+3bh4B99NFHxE2IjbNUFvM0mM8g/FLgCU55kHI5IxDA6NNIGoZzUTYMp4MR
MDj6XNCSgg5Ur14dhsBNYCmED2g6ESLcz4N1H56ITtFXyouPHz/GrmpNh8Gk
vUsaTFSOa+Mt8K3IrSpYvnTpEqbGWSI31pVGIvBYZgwXL966dWul54UZrlu3
Tio+/UBLsLfXrl3TWgPzdxN7pRFR/koLxcoL4o2iOeNCIpm2Y8eOFu7ShYkN
GTIEN6eMVsQpBlj4SpUqeZwJtmvXLsRJteOGn7nerFkzPNqmTZt8v5hCP0dH
RzMu/trwKxODlb7s4cOH+H2VpvgSxhpEpxGwIHu6pOXGjRuYCN6IL5YqVYof
VDWF+ACMUVJreiAjIwMmgH8xpv2wIG5lVdU49A6WTiMtqUzyxNHg06dPY0Wn
Tp2KayB+F/v9lQPqzMsbWOYch3EeOHBg6dKlcT08AnZqVSiHpb1y5YqqiiNR
s7C6OBdCdTpfVN4zNokGHhDZJsQj2MdYEcfBhPlZWVSN15k2bZrcr8fTYRoo
CB2i6xNNugBaDnsvV65cdnY2CgI3E09ETeC6znhmbrgACZEYXLt2bTTurgZw
Y2IE3IGXNUJzD9bSYNwTvcEIBsj7mqTByBLDxMdGjhyJW1m0aBEdgm03OOTC
JA1GBnBSyoScjz/+GJZoMD0igTzPmTOHPtdOohoA2uZBcU56gCZh54lV5UVE
ggAfPuNsHRCFomMRb+JcYRWxhMSwQUFBqg1uHrQHfmUQupqctDemwdxk7Nix
YmIcc4cRg78pP0AgX6JECd2lqwsXLqD148ePF9MXNINXRkdkLihdQe+ZnLF0
625r165VVgw2A1E50ML5MTxIXFxc0aJFtcUuaGR4eDhCjqH24JgYUbkISW7U
qJEstz548OCoqCiGEk5Fz/hl5pMQrHLlyianBHMDYj6HBvB/+/bt27VrR4cg
n8Sex48f9317ckxoEPLGOPbq1UsbtmAxYmJiOnfuLDe9ogW8VGRkpPDUGMAV
K1aoatqYhChnZ8nWeJnspzrrx2M8WTQ4PT0dFwBvFDJ/9OjRYsWKqaoxKGHS
MkObiYC4s+8TeLZt22bSPRl4QAZx9erVaCK0Vsg2lAADXrVqVblYiYk2f+KS
eRcgMo0NasXownIXICETg2HvoXqgT/hrwCYG51hNgzdu3EhMhHPUTdL2PUzS
YBycoMHvvvuuyTubocFif2hycrIyQINnEiYgMGaS1eHkZ86cOeUO8CnubhIX
Fc4LFSqkSiulx4j969Spo1veVlQ2g/HKYowCBM6Ez7Gxsd4YeZ7Icxk7ZzbE
5KS9MQ3GTImJekhd9+7dicRVGYw7d+7EmWqP4MEQETEpc70EiP7w+GLyCve9
ZMkSM2tAbt1NJAa765H5FmqOCps3RAjSlClT+Bavr32LNWvWQHQHDhyoZaSo
RvPmzY2LehmAr/BFTI2uq2IoS5Uq1aZNG99XXxcF0Hhr3KiFt/3xxx8XL16M
AMybN894oubYsWOCgRCdXbp06eLFi+h7fHx8vXr1fHxIq4RLDcJrV6tWDTqk
tQYYTyIplYTwIt26dcvKyhLfHTFihGerZtgHooOPP/7Y5OcNRkFsvEKeDcyR
W/AjDYbO1XMFZeh69+5d3j0sLEzO9PJDy5YtMfvO8gTMWGZ6mAjIL1tc6fMZ
M2ZkZ2eb/LAzDwhngIuqsnARD3gsgiT2R2A/TS4fuOUCRLoyXMWtYNxyFyAh
NiFC/KA62r+KbZKoT9euXXM7EZTeHjduHP5xyJAhbq0EWUuDCd7z5s2LMdSt
auV7mKTB+BSci1t1zMzQYOLcjh07pqWlHVFg1apVOFPLi+p7DHHeK2RPdQ5v
jqP3oqOjnRU+xZIQO3Tq1EnlyLC0hM+dO3f2pmSTcD09evRw5ndMTtob02B8
rkg7hLqXKVOmffv2qsxGegZnqj1aCAaCg9au8/LKXEf4xTlB2gRsXbh1Ny4i
zFhyt2ygmGIl+DJ/iDNdN3/+fEI2ravCOdatWxdXqGsNxAQg2qRb4dklUMZy
5cqVL19et/dkEYk+ffoYG1UeTciJBZ5kDpMnT96xY4cBzxHrOGiutfNXDChU
Aa5oUFtAYOHChWKdVLn6fPr0aWX9BJewtltcapCYYdBW/ECkExMTdffybNy4
cfny5bSTqHzr1q0m30uFQ4cOQcbMp6YbjAK+T6wCONsnhcR+5ACx4XoH4AOo
hjMDaJIG05OrV6+m/02O1PTp03WrmSkBY5nlCtLa005+Rc2Vbo42Dx48WFVQ
SAkzlhl2h2FxNlGcq0CSjx49ajIxwMADilHWygNWa+jQoYzdhQsXoGQmiZ9b
LuDatWtt27Z1t8qQtS5ACTHxhWHMzMzU/lVsk/TYHZiEOLKZRwjbSMgQGhpq
fqrEQhrMHZD8PI6Tiy2fePcMJmmwmGaBnZpfRHNJg0XCQGRkZL//H4SQhQoV
Cpw8GTieWHnRCgDuACKqO/EoQjyM4ZYtW1R/EkrRs2dPb2ZOxC6wbt26ebn8
baZSBO8ye/ZsglltbSsMHYKhXdpgcJ0lPGMxoA34I5ymydkea++mCwYXmwxR
Mdi5owUdorv6idhjCuAMuhML2H++pZ0YNImdO3ciV23atFERKgk6hA9gz40z
LpCcgQMHPvfccyaziYjfw8LCDPLYEfX8+fPDz834EaiROM7V5SdzHE6Q1zGu
quGsYvDevXt1J2EM7mNtt+QYahAum1fTzlzx671793TdIr4elojNwWtrqyma
hFi7h5ea/4qzURBxPf3g7FDsrKwsXn/UqFH169fP4zgkFKeDU/aSBiNmNWvW
5LkmRwqlgAmbf1+XEHMRtWrVUq410OaEhARvCsAy9KLSC27ilb9Qu3Zthjtw
il0LGHhArui2lotIO2O3bNky81XTnzgXoIRIDHa2QClyybypIW8Gp06dQvjl
iPBQdMd8tWoLabDcD8jdAiTrySQNxvRhberVq2f+cFuXNHjXrl1InZbFYdgx
LIiNlkD6Hl999RWhLi3R9Ucim4hu0cbsoiQR3kFLCbZv345BnjhxojehH09s
0KBBnz59vFyFNEODRQnH4OBgrX2gZ4oXL+6WwT9x4sSiRYvmzp1rcM6U7++G
dicmJvKO5gt4ihOfmzVrplqVFvly6BQOQtcRrF27FvGOjo72YAlM3txgyQ+r
C+PCOGvrSOQqRKXBChUquKTBSP6SJUvMn62DmytZsqSsAq0LcXaq9nTp+/fv
++XAOCUMNEgk+bv0L0qIjfypqana9SnzwOeWKFHCLRvrbBRwCnXr1sVBGJeA
lusUERERLtcpnojc4NOnTz///PO4AKUR5ue+ffvCpjzWPoxGeHg4JsL3GRHu
wsADOgNigMXes2cPFswSxQxAF6CETAx2Js/CbFatWjX3EoNhnlgMpfE5cuQI
5MTl4oiEhTQ4MzOztAOBU7XSDA3++eefYe/PPffcggULJHNzmRVjTIOxnMiP
7mzVw4cPReaky5Kq4ty0cuXKvegOCIJOnjxpfGeBy5cvh4WFpaSkKF8wPT1d
Dp84WCQkJES7z0uk/GmTP0Xmqqrqmge4fft2jRo1DCqVmYQZGnzo0KGiRYsO
HDgQaaErlC4Ma4YzdevIbLwDnZaUlORsMtMtWHU3ujE2NtbMxkwJ+FXDhg21
Fe2EH0SAURCtamCRunbtigAo91qahzgl2VlisHi6qLynPcE5t4GZrVixopl0
puvXr2M6jEs/SWB4R40aRWhsPPMpVqxUFYMDBAYaJKL+QYMGmVdkvk4oRAca
FKhxCeQHzXVZ6VHCYBSgbVFRUYicwSFrOY4JPTELNGfOHOMZgMChwbyagRLt
3r07KChIVeRKHGCB5fe4WIooWRA4G4gMYOABDbB+/fqEhIQ1a9ZYkgMQgC5A
Caj+a6+9Bn3SPSlJJgY7O+HUEmCQUTrJYOmoHj16xMfHm19csIoG88T+/fsT
MvPWftduCTM0eMuWLaI6k3JK32VWjAENpif5rjMtELEwTRo/frzLuQ7YILbo
H6aB8f/000/N6Au6EBMTk5aWpmo54iQZrFjrLFWqlDbwF/KgPckUH028idfw
siqLONKOp3tpSVzSYLGdGWsvKh5kZ2cr9/YSEUB73DpJ+dq1a3Xr1vWsXm7u
3e2PP/7AEGnDFsQgMTERi4GCEHMhkzKmPnPmDO+O+mDS+Wu/fv3ELKiIdNB0
eZSzErBfHBw3VK6DMJq4TjkK/IlO1p3rQ35eeuklZ4nBOY4ZKgSyQIECHp9D
7THQ3N69e2PwP/zwQ4OPYe0nTJigdfHwWNggnTlkyJCVK1eiaEJHxMIKrmTk
yJGYYgy4bugtEoPbtGljbSFi72GsQWLDY5cuXcy7JMSDfkbevLEhq1at0gYs
3HnZsmXwT+QTIjpr1izaLLraeBQgNiJRx6DzEXKiJIRfu5VABb/TYPSOAB9p
RJHj4uIaNGjA/9rJugMHDhQuXFhV+gOTWLJkSYPDQVxCOGViuqNHj3p2B5/B
wAMaYN26dXSpVWtVAegClJCJwbqTA6hw586d8+glBp86dQqFgnopC+9cv34d
HVQeQ7x//37iayxMnz590E0xLc/nlfYkOTlZnBuFCrdo0UKUGHIrajBPgytX
ruyMBiPYSAuGgh6z1kp//fXXDBDszrPVMTlz5YwG45sqVKhAiKTNfjHOijGg
wSdPnoRhOlsQEZtP8zgOovKXGaTxCLY2OZlRhtkqGciOHTuQcK1PZ5Tbtm2r
Oh4IRUNcq1Sp4n25Tqg4z9U9RMwtuKTBIvuidu3ad+/eRenwnsoCTTdv3qxa
tapbe3IvXLjAE01ujvPZ3ZBG7jNgwABl2IIFa9KkydKlS3k77FVERISyQiby
ny9fvtGjRzPECCrkTe5Kg4Ki7LAIlWW7f/9+8+bNGzdurNqbgIFSVnjDllaq
VEk3xhF5v84Sg1HG+vXrw8Cx235JI0xPT8cn0gZns0P0D++1efNm1RkQGGq+
JdZZxKG07dq1EztiREoqYYJwMRhYpFE14jIx2N3t4T6AsQaJdVW3CpvQh7BQ
b/y+OKVIdQwlJouWiMPOchy7uRFv6Jz4q/EooD7wB6i+s31hvPjcuXMJkczM
HPqdBqekpNAAGWXAdsqUKYN9ULUcAoaeEtRIYRbbf+rVq6d7Ro95oCCiMJE3
N/ENnHlAA2BRe/XqZZWBCkwXIMEg8hln28Fu3LhhkBhMr9K3ysI7y5cvx8AK
T8GDMHdNmzYVG2mxllFRUQTI4vQQWZ8K2zhx4kTUljgUx4TxWbx4cadOndza
VmCSBtMzYhJGVYKGzqFJEH4Y8tixY3VrpHsMYUIx/tBRzxbIcKYdO3bMo1fr
Bh0fM2YM0W5YWJg2e8FlVowuDWZcDh06hPmFezvb28UgoiM0SfpBHwNpj42N
dbbPAmetzIPKzs7GO+AytPfZtGlTcHCwzKCgx+BFBBTGKY4msWbNmnLlynlP
p13SYFGZDfVnvIiC4VfKEWewwsPD3ar0AlPCXFhlA626GxJOuKec2IEMhDkg
4lYh8PSVWMoXv8ot0mJ7BQZNTBlh8Qi6MVDKDdR8ETNVt25d1TSIsJ/K3dap
qalYP61h5DXFUeNE/SpzxKDMnz+/RIkSWNR58+b5ayuNKF9AG+g3bXICdKJ/
//7anXEZGRlYMJot7DbcrFq1anIxSPhZmUNy9OhRflVVSOBZL7/8Mu7G93Pg
LmGsQTkO14YNMT85hmT269fPG78vdjahuZLpiaIHyoQ9uh2PLyckXY4Ctgjj
Bl3UzsnwOCxk9+7dsfzOEuaV8C8Npk/wicjSwoULhUByBWekPQmX5uHTsQmS
USDhRAeeVXJW4tGjRwgMIbOSOyE8JuuY+RIGHlAXotq/hQw/MF2AAJIjyExM
TIzuLh6x1F6xYkXtNDIdhUkvW7asHHSIesuWLQXTFtsr0FBlQQzkEwXMyspC
l+X+6zt37mBLlVQKoeIt+Lr5zjGmwVzkieJ8HwHUhwixugP8gK1A9+Pj4w1o
qsGsuzHoinXr1vGIGjVquJWfmeNILMdq0VrZct5CNJsGlyxZkv7v1q0bUb/u
8LnMitHS4N27d9Mh8nEMhCoJh6/07NmTkZWfwZ8y6D4+kQrbnj9/fmc0mDBK
SfloW+vWrQcNGqTtJXoGstqqVSvMKcqFF2B8zaffG0Asu0v19AYuabDIAyEi
Rmu0xQaRwBkzZoSEhJgvvYLEirqRXrXb6rulpKQQViiT9sW5wHJxU1Q5k8nY
Qv7lGoqYjYSJyX4QcxQ4MmTgwIEDs2fPxj/i2bVTYSJ5TIoQHY4FUJVShxKj
rVIs0Qv6XGgrP5QvXx4CDMHmi5YImDeguw4ePFivXr1ixYoNHjx45cqVGIGZ
M2fi1nv37q1dPBIH+2J8ZA1J5fGsIiVVmbCHAw0KChIzJHT76NGjcV7Sjonz
qgjPA6QiZY4rDcpx5LHgvFQ7+wwAAaZjvdF9UVh17ty5UnHElQ4dOohVBrET
U3a78ShIILE4fcaCAJCgBt/BS02YMAEOOX36dEwl2oqndqmt/qXBIn2Rt5CG
BTLTvn17pEt7FiHdxQt26dKF4I6/8qYyjcRLML7QqrZt23JblAgdYQiUMzC4
odjYWORf9hJmnCs+3hFg4AF1QfdCGyzcHhWYLoC7oS/oiLBLmG5uTvQqyAya
wshiuAoUKJDHUW0GFoeJUO5Z44bR0dHwXvEV2sBrQrNFzXA0sVatWrARJb/d
u3cv91mwYMHUqVNlXADTU9XnF/Pe2iKNBjA5G+wxjGfdTQLVM65XbDlcZsWY
P0z5iYY4IwOn72yJAWnMzMw8deqUWGq0BBhD9FHpxby5lZmCaUTKOGvdXETe
Ljg42OQECKYSG2je4/vmbqJCEZ5OUgvBRZWHnouUP0yu+BU6B3OT9aYYfViu
qiosfgqtxNpw89WrVzub7oOwcSuZSMwdCHBydceED8DQnDx5EvID8eP1ly9f
LsrnaiFK/8nzl8VkUcWKFcXpORh5qIWcQsTjxMfHMxCBw3LNwFiDGHH4J+9l
kvVt37596NCh3pSI2b9/PzqrTFYU9dMIaYVJQRHatGmDWxdrdm6NAgNH1C/8
wsSJE7EM7jJ2vydFoP5Kcy1OJ+R9ne2sx4oS6tKHlmz7VQIjgIFNT0/Xug/6
GTWRmVeMVExMjGcn8ngDlx5QBRhgeHi4VYf7BLgL8AbihnLhLy0tDY4t97QK
hVVlFIutuM2aNZOxtjjLT+XfReV5me9kBrlKg41n3U2CN2Us3C0W7SVcZsU8
IzQ4xyFU1atX9/JwZLeALmCWLUmvNUODjcGg4y5xeWb8MqpNFKxbRdwDWHW3
27dvN2jQQJlsKU4UUiZPYkyIT3nW5w5gG/FBcrMPdLd48eK6h0q7hFjQkaky
wrsRzt+7dy85OdmSY7kCGSJnQKbkQbS6d+8OB8OAMCIIOZ5dlgJmpF555RWi
70AroOolMOB169Y1s90eycQZKYv2uAtRwalnz55Kc71v374SJUrIzF66HUdJ
oI2KMQr/+te/fDkKfqfBKqCGBQsWnDJlSoC0R2D37t1YJGmCBFdPTEz0fW68
Wx6QsAgFt5ArPgUuQBd4BB63bds21IGxbty4MWxfaj2Ml8epcsAggWjx0qVL
5RWCIyJWZYF6sYBLy3PjFDnPYDzrbhJQaIJu8xV9vYeZrJhnhwbz+pMmTYqO
jvay+INJ8BSelZSUZIlN9p4G5zgiU2yIPCneAIcPHybos+rsGKvutmrVqhYt
WqhKX2JhQkJCxBrH9evXsUK4fiR8+vTp2dnZmF/6TVh+2EvTpk2JBD2YvxX5
LdguUfQSXoGpKVCgAIoj9vbm3rlCAQJRXwKIiUe8Cb0BT6PnUSuMG+ZXrDzy
gVGjRmF23Kpv/0QAGYb565YW0X4SmTd/jJEWSC+UW1Wvjy6FyYiyP4gxQihK
WwA8u6AEPhuFAKHBuFRIDuwX3V+xYkVABaRiL54yG01smrb2HHPzjTHpAcUU
K2zBKjb1FLgAZ1i8eHHZsmXRdNTtzTffVLFWhJP2KIv10TA0FD65cuXKR48e
iU2aBEfQMK4o+bPQdLc8S+7RYJez7iYBl8Z++tJdukyMzHmWaHCOI5Zs2bKl
+TNZvAHsCIW1alHJEhqMgxgxYkRiYqKx2xI5/3g3SxyKVXfDmrVu3VqbU/TL
L79Axvr06YO7wQJgN+rUqcNrYp1E9VcMYJcuXWbNmhUVFUVLPJsZEykBxYoV
Q35mzpzJg5KTk7ltTEwM/enlfvMnBVj4du3ajR07NiEhYfbs2XR4aGgoXX3k
yJEcB0OLiIgg0h86dOjAgQOf1j7Zs2dPq1atXNYszczMdOsUVBXQ0NGjRw8b
Nky1Q1kcGQ+jmDZtGoYd6tuhQweEnw+LxW5fjkKA0GDcMez33XffRTehIh4f
2JcbEGkqjIgwOyIzwa2NltbCpAfEqL7xxhvOyom4i6fDBehCHMkN64YiZmRk
6JLPEydOoLC0bcaMGfHx8fyPWcBroLkQ8uPHj4vPzJkzh8+gyLQwLi4O5TU+
804XuUeDXc66m7nJlStXRo4c6VYShfcwkxXzTNHgHAc7DQ8Pz+05ee6P3nm/
E1nCEhqc4zCDvL7xcZCYDlTbqj3CltwNHcThJiUlOatbgmwTZcuESRVLwRl9
++233jjrrKwsIl/C2AcPHly6dEnmXmITvDwm+8kCr3zt2jVZRJFuV26M5a/X
r18PtILA1oLhHjduHA7LWJy2bNnSv39/jx0uGtqpUydnLBoDfvnyZXFz9AvJ
VxIMn41CgNBgCcK0ypUrQ4EC52QWcVSNPK9EzES1aNECJoBJNH8AhIUw4wFv
3LjRpk0b40PezePpcAHeAFJK23C+chaUH27duiW2SYp0WeGUEQy03mMSK2gw
bP/IkSOnTp2ytmqB8ay7mTtguHzvHYyzYhgFODxUrW7dus8ODUZOIDMEZblX
5I07JyQkrFy50sKITO62Y8jOnj3rjToTvvXo0cNAbnGv8+bNs+rISO/vhpWA
VMTGxlq4e9FdrF27Vlkx2MazDJwL0mi8Xomx9ThovXjxYmRkpFWZ+bkBTBxO
Flfbt29fP9aNV0EcgCLKigbIxtXU1NSgoCBZsphfccH0GPZw4sSJfik0asYD
QnUWLlxoVYD/dLiA3AP9PGnSJEtqBzG477//fvny5cuWLVuzZs2MjAzv7ylh
POtu4YOshUFWDHK1bNmycuXKlS5dukqVKp6dGPuEAlHZuXNn7r0yccf27dut
XZUgSOzSpUtZByIiIrwstnP+/PkVK1Y8KdOYiC422Y8GUCQGu3V0go2nG0jj
okWLrEp5UkIU7/Xm/GUfgObVqlUL34E5eu+99/xyEgqe9/PPP8eUKYORJUuW
QIN167v6HiKdskCBAiEhIeMcmDZt2uTJk3HEkAc/+tzc9oCWw+8uIFdx584d
YiLfbFnyHsaz7gGIXM2KsWHjGQFaAw2eMWNGoB18ZsPGM4utW7fCMEuWLKks
Ibtq1aq8efOWKVPGqgV9byBqKopZi0uXLslUonv37j2tjM6GB/j+++8zMjKe
+k3W/oV/s2Js2LBhw4YNa7Fhw4Z8+fJVq1ZNVqSESEyePDlPnjyvv/56IPDM
q1evVqhQQfewdRs2bNiwYcOGDRs2PMN3333Xo0cPZbr+gwcPmjZtWrhwYavO
/fESn3zyyYsvvnj48GF/N8SGDRs2bNiwYcPGU4WzZ8+++eabSUlJqampBw4c
CA8PDw4O3rFjR4AkL23ZsiUiIsLH5aFs2LBhw4YNGzZsPAv4888/jx8/vnDh
wpkzZ+7duzcQciFs2LBhw4YNGzZs2LBhw4YNGzZs2LBhw4YNGzZs2LBhw4YN
GzZs2LDhGf4f9p+PzA==
     "], {{0, 46.}, {941., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{672.3333333333323, Automatic},
   ImageSizeRaw->{941., 46.},
   PlotRange->{{0, 941.}, {0, 46.}}]], "Input",ExpressionUUID->
  "e0f203e6-0778-4c52-b708-c6de3fce2b2c"],
 ", FieldNumber = 1"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.8318284238811274`*^9, 
   3.831828424224834*^9}},ExpressionUUID->"18c282bb-bf1b-4f64-9898-\
5204139cd0e0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "1"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
   3.7676307019645357`*^9}, {3.8312294412605715`*^9, 3.8312294413324594`*^9}, 
   3.831828487734791*^9},
 CellLabel->
  "In[329]:=",ExpressionUUID->"80cbc7f4-3569-45a4-8499-66c7784aee7f"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.8318058891268415`*^9, 3.831828566975727*^9, 3.8318343763315926`*^9, 
   3.8318397986495485`*^9, 3.832947511321964*^9, 3.832961795847151*^9, 
   3.8458268882300825`*^9, 3.845852478843998*^9, 3.845857089120985*^9, 
   3.8459196366818914`*^9, 3.8460065875505104`*^9, 3.8460998994730577`*^9, 
   3.8474704616402345`*^9, 3.851700646945829*^9, 3.853975462380609*^9, 
   3.854977422610159*^9, 3.854989275066519*^9, 3.854999912793063*^9, 
   3.8551652622799497`*^9, 3.8551823310426836`*^9, 3.855185875079235*^9, 
   3.855330653008354*^9, 3.8553398581435275`*^9, 3.8553431952561474`*^9, 
   3.85534402929027*^9, 3.855352756078299*^9, 3.855449619550058*^9, 
   3.8555076209199133`*^9, 3.855508418438816*^9, 3.8555129065009737`*^9, 
   3.855533338202423*^9, 3.8555789323661904`*^9, 3.8555933046116557`*^9, 
   3.8557506169264936`*^9},
 CellLabel->
  "Out[330]=",ExpressionUUID->"b5f7dec0-cff2-49be-8823-f09ec0bedbd0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"I", " ", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"Bt", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
         "  ", 
         RowBox[{
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         RowBox[{"I", " ", 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "  ", "-", 
      RowBox[{
       FractionBox["2", "3"], 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.831828498316846*^9, 3.8318285455438175`*^9}},
 CellLabel->
  "In[331]:=",ExpressionUUID->"33c2c62e-6be3-4666-b33d-c44c9988c8b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[332]:=",ExpressionUUID->"df9ae35c-5d9f-457a-a43d-efc97aa0a6f6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, 3.831805889252923*^9, 
   3.831828567137283*^9, 3.8318343764252777`*^9, 3.83183979873643*^9, 
   3.8329475114042063`*^9, 3.8329617959219513`*^9, 3.8458268883237915`*^9, 
   3.8458524789292603`*^9, 3.8458570891993856`*^9, 3.845919636806895*^9, 
   3.846006587629424*^9, 3.8460998995668097`*^9, 3.8474704617476826`*^9, 
   3.85170064703957*^9, 3.853975462464916*^9, 3.8549774227038813`*^9, 
   3.854989275148263*^9, 3.85499991288008*^9, 3.8551652623736773`*^9, 
   3.8551823311364126`*^9, 3.855185875165352*^9, 3.8553306531020813`*^9, 
   3.8553398582215853`*^9, 3.8553431953498435`*^9, 3.855344029416444*^9, 
   3.855352756166445*^9, 3.855449619633713*^9, 3.855507621004993*^9, 
   3.85550841858176*^9, 3.85551290662434*^9, 3.855533338300617*^9, 
   3.8555789324755735`*^9, 3.8555933046970873`*^9, 3.855750617020221*^9},
 CellLabel->
  "Out[332]=",ExpressionUUID->"37da6306-32a3-4abe-b5fc-dae62687fdf4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[333]:=",ExpressionUUID->"8806ecb7-07be-4a8c-9e16-bd477fdf525f"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwFGX6xrmEgIDITUTOeHCIgMuhRAhXIFyGKxAJCQbCfQUCkUMCBBAU
DXKfQmA5VoKAi0LJynIEZIWSw4BYXLIlLrIqFmrp1ro1/9/OV/a/t3ump2e6
p4cJ31OlRSaT7q/f732f93m//o66qRP6DC9WpEiRyRH8r89Lme0nTXppWt8K
/NB//ORRI8anDYsbn5E2Im1S69TifPgM/2Xxj//+2yUhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
IeHGtWvXli1blpycPGnSpCNHjvznP//RfOH8+fNbt27997//HZLmSUiEHWRM
6fHbb78dP3581qxZgwYNWrBgwfXr1zVfwBq7d+8+ceJEKFonIVHIcffu3Z07
d44ePXro0KG5ubk//fST5gvff//92rVrb926FZLmSdxX+PHHH7OysurVq9er
V6+EhIT69esXKVKkY8eO+fn5Il3euXPn1Vdf5ZNPP/001I2VkAgDyJjyiC++
+KJ3794NGzZMTEyMi4urUKFC6dKlx48f/9VXX4kvXLp0CVE6YsQIMmBomyoh
UcgA8+zdu/fpp5+Ojo5OSkpq1arVAw88ULt27XXr1v3yyy8ud923b9++mJiY
DRs2UCSGur0ShRw3btzo37//tGnTyIbiEzzwvffee+aZ/x53X7FixSeeeKJS
pUoTJ068ffu2t4tQTA0YMKBHjx78w6mGF378+uuv99WYmC3Qc6bzNrQlpgof
Dhw40L59+3feeUfpI6HAq1SpUrRo0Tq/Izc3V7q9gMaZpVkKDeB2h++IvJw3
b158fHxBQYHy4cWLF6n1kKClSpWClKpWrUqEnj592uG22Yt//etfQktLmER+
fn69evUgXofv+9VXX509e1b/OUR3/PjxJUuWrF+//ssvvzS+CH39+uuvb9++
XZZL1kF9evDgwYSEBATM888/36JFi507d/qbd7777ruuXbtCLHqWo7sbNGiQ
k5OjfwtcCLB48eJHHnmkd+/eo0aNSkxMbNq06cqVKx1+UltiqpCBLvj000+/
/vpr/a+QoLt374ZA+P+PP/7ofNvuTZw5c6ZWrVqIgWHDhg0dOlSMVv3www+h
bpdE4IABPv/88xkzZtStW1ctAs0jYGL/+eef0RgeRe+VK1c2bNjAH548eTJ8
MzhPvX///nHjxr388stpaWnPPfcczI8Q9esi92fevHDhwtSpUy9duhTqhkiE
GEePHp08ebIYNIOs5syZU7p06Y0bN/rl83fv3s3Ozt6zZ4/+r65du5aZmXnu
3Dk7G31vgIdFw5QrV65o0aIlSpRAt+/atSt86VTifsbp06cpo3DjIkWK1KxZ
c/bs2cpAukQ44vbt21TEY8aMSUhIePjhh8+fPx/ARe5PYjeDEydOtGnT5tSp
U+LHdevWRURE+DvycA+al9Lg1VdfzcrKggEOHTrk8N3DDjdv3ly0aNGsWbOw
2Pvvv1/4KgWf+Mc//nHx4sUA/pBKbejQof369cOG4pMvv/wyKiqqWbNm33zz
jfiE2tnjCJIV/PTTT2vXrs1ygyqYMtne6/sFqk44xN+i1eUWn6tWrXrvvfcQ
nB69jmtyZflSJuyAS+Tm5s5yg4QSRgOkn332WWCTK86cOUMw4rGOvW0Pu+hw
Pi8HTOwK4CXa7FF8BoPYwwtWzPvHP/7xgQceQB+K0Ya//vWvZcuWTUpKUvLI
vWbeY8eO4bcQ2vz58w1GHUlnFSpUiIuL69Onz7Zt25xs4T2OI0eOTJo0KT4+
fty4cUpGuHz5cnJy8gsvvFCnTh3+cb9NVSooKEhMTAyssCVS+Nvy5ctjWPHJ
nTt3KOgiIyNhWvHJhQsXXnzxRXtLMKK+QYMGrVq16t2797Rp00I4d5dbT5w4
8e233w6gZlHEp8EXtmzZMmHCBPn6Ug/iF37GE9SW59/BsxUX53bEi2Z5EVGg
KX/4EZaGUp577rm6dev+/e9/D1KTbIRwtrFjxwYWTUJ8OkmeTkYHEvfAgQOL
Fi1auHAh/whsDqTDedkKsSswEJ/BIHafQKrt37//2rVrTt7UIyyaF4pAzn33
3Xfix82bN6NFFy9erLBZUM0bwCYeu3btItt269YNH/7Tn/7k7co4+R/+8Ad4
0uNvz549+9JLLw3wgiFDhtCkjz76yNtIDiUb+q1Hjx40wMlBQlQNMsNbs+km
WkUPKr2px9/+9rfp06dDrdinWrVq+fn56t/yLC+//DKW8cafOFtaWpq3Bgwd
OnTevHmHDx++F16b0obbt2+bGYsjLfbs2fPDDz8M+F4w/5dffql4Ahd8/PHH
mzdvrox8utxlXa9evW7cuOGxATNnzqT7pkyZot5GA3pfvXo1mSUmJoYiUeNp
+PYzzzzz5z//OeBm2wIaic8QLwEMe7p+F5883YoVK1Cw5DVFsSvAG7Ozs6dO
nRq8Of94C6kQ3x7qC8OGDVu2bJnzqw/UTT169GhqamqNGjVq1aoVHR3dpEmT
hg0biulS2JMqAJ+xVwLBGBs3buzQoUOlSpW4V8eOHZGU/fr1++STT1xu/6c9
3ioIPP/pp58OofhENX377bdmiJpoQi0HPNiC+CSQ9+zZQyBD1KQJi0xIdsaw
6enpSm/SQj5RM7wD0QGgR3JuZmYmKW/Tpk39+/dv3LgxEtTf6xjnZXthndgF
DMSnKwjE7hMHDx586KGHoE1/H8Re2GVeAVzi+eef79SpkzppuoJmXiubeBB9
sF/A4hMVh7bMycmpXbt2kSJFmjVrhqbNdwPttHXrVorfypUr169fXz8DjeRI
tkXYiNXiTqYheOb06dO5ubldunSh2eXLl3/rrbfIRDSbCgLSmz9/Pjz/4IMP
0in6WpjcRHL//PPP+Td/WKVKFU00+RSfdDH3IvnSWRQp6Fh8Q9iNBmArdDuf
0+l0bpCM4BO3bt0aOXLkU0891ahRI4L0ySefXLp0qbe30nzO86Kd7BLM2BD7
REREQA5qt+f6KPOUlBTNLm1kRu7+6aef0q2RkZHKYD7fR04QO/TamDFj8HZN
FDgmPnkKKpoWLVrk5eXpf0uzY2NjNYzhF9544w38mbJIVJr02vvvv6/5DvHe
vXt3ZFXAd/GJixcvoj8JaiIL9yZSCKj33Ni7dy8Jd86cOU2bNuW3MKR+qz1n
8Nlnn2GHsmXLItRFIAvgG0gU4nH//v1Vq1a1MTHRKe+88069evWioqKgdLUT
njt3rm/fvhgnIyPj0UcfvXz5sscrhFB8Hj9+HOeECurWrUuftm/fnsZ4y/WE
3rPPPmvlXTBRTJgQEbAKaaJdu3b0iJUEgUkfeeQReEO0mUuh+tq2bavh9mBH
B2aEuNSaHHZavnw5bfNXezgmPm0kdmPxaTuxG4Mv48aw0OzZs0M4O85G8x45
cgQFiIlQg/o8EgzzWtzEw6L4FKB5ItcMHTpUfxfsgPQtUaIEz6gmEKTpvn37
rl+/jjSFW0IyyocYoGGPP/64ntJ5KGiB9IR5FRmv/87AgQNbt26t6Ref4lPg
1KlTMDmPr1//izVmzJiBSTt06GAwABs8FBQU4MNKyQBLjxo1qlixYtHR0R5X
K+OB5AsbM+PJkyfJdK+88op+JPDmzZvYXOO0SAjcnshKTk6mJd9++634nNZm
Z2f/5EYXNzTR55j4/PHHH/Elaor169drfkUUEGXvvvuuleuT1BQ/xGiDBw9G
4+lHnxA53CuoL5vwGfwf76Wi91itYArKcJjQ+XkpogSg3sSTPSZB4UJlypQh
NlHyttyU8ElLS6PrUbYe184QbhQLMDbx7m1WZ0jEp3gfDb0rE9LQ7cQLtJmZ
mamfJAnDDx8+HK4IbABfgC5QD9FQy9AX+krKPIgsNI8ywAifw/kTJkzQJ53g
Rcfdu3f79OkzZMgQzR7mPCyKt2XLln7Nj3VMfNpI7Mbi02U3sRu3hLqyVKlS
cNTo0aNDODvO9ryJWfr164dv6I1sr3mtb+Jhl/h88cUXvYlPlzvuEhISihcv
Tns0Vca6desqVaoUqkM9xExdiMijvKSpa9asKVmyJJb3WFVh+YYNG1IXaJ7a
pPhcu3YtNiFBe5zoTuKDclG/H330kZ+PZRW4WWpq6p49e9QfoiJEiUEpoVEU
eFHbtm3xYbtKSCICr6Mm9TjcwV1ee+21Vq1a6Y+i4A9r1qw5Z84cj0v2atWq
RQUUwtfutIHcrWkAP9KqTp062TvfDBPBrnpBSzDGxsZOmTIleOWekNm4yvz5
8725RE5OTgD1PvoBeRCwmxGPCxcuJOSRvga5/uDBgw8++CDS3ZazTrhIXFwc
NAL7eSME7DB58mQsNm3aNG82sSI+SSXLli0LYJwZd6UI1bytI8rq1KnDE+n3
xzt69GhUVJRdol2AHAcTomkDEwnYE6uqa/xDhw5xwa1bt+q/HLzoQL1XqVKF
qgcTaX61dOlSQtXjCxFvcEZ82kvsPsWnvcRugMuXL5PLcGwirm/fvgEXSgGH
lYDteVPgwoULkZGRXFkzbOWYeU3CGfHpchvkkUceQWceP35c+ZAkha7r3Llz
qFZ5GItPl1tx4aLFihXzmEaPHTtGKG3ZskXzuRnxya8QeBhNeRmkgaDc0qVL
Oz8d8eTJk/TL1atXNZ/jDBERERUrVtScTUOBU69ePfKULXenL+Lj4zdt2iQW
bkMUenFeUFDAHSkb1R/yZSRN1apVPR6dQ+PpLP2EupDP+eR5mzRpAolZucjh
w4ejo6P37dunfIIpKG08vkNcuXIlRZPH+T+2QLzlRL8ZvExcvXo1lZ1flxUq
Yty4cYGJENwDp8KB6W5v8S4gRsYGDx5sZfhOAIpLSkoizDMyMoyvtmvXLpQJ
//f2BSvikwK2TZs2/k7CFGohPT1dU2xi/9GjR4uDq9TUzecjR46kmrYym+Kb
b77p06fPjBkzFHOhVeAcPgysO+iCDh06KDW+SMHVqlUjJXn8fpCiA5usWLFi
8+bN+qegzMctJ06caF7xOiM+7SV2n+LTZSuxewP2h0YoPRBU+DBlcsA7SAQW
VgpsMa/YHJvHUbIkog6FCZmgTzRfdsC85uGY+OTzESNG8J0hQ4Yow1knTpyA
VVatWgXhEPLOrz7wKT5dbg+BGR577DH9Mi7RZXrnMSM+eeTmzZuXKVPG22xz
zIJ4qF27trc5YMFDbm5uiRIlKleurBnBuHTpEsU7FlOvrxS9HxcXZ8v8PTwt
LS1NkYLQQmZmprL5kgLuxR2pXtW69M6dO88///wLL7xAQtywYYP63ZkYXcSY
+hdqIRefFC9INYsrSdeuXUt/KazC877yyitly5ZFsei/zL24I0rMyh0NgIIq
VapU/fr1vWVwMaF37969fl3WoviEbYhWOPkvf/mL8Te///77du3aIRUCuIsa
NHjBggWUri1atPA5mzc/P79x48YGc7ydF5+EdkJCgpj8o5ktADuJaV3qSTgE
F6ntrbfeCqCFCrBAzZo1EbdKOjh69Gi5cuUMxoR9XhBvnzlzpjLhEx377LPP
3r59G5bQM3+wo0MPyKd06dJ+LXxwQHzaS+wuc+LTRmL3BuKIEonMguTAh9Vb
+fkLK+LTLvPS+KZNm6rnCCHqWrZsySdiGaMaDpjXPBwTn67fdwBQT2pdsmQJ
Yc6PJE1/9xK3BWbEpxh2RgeS39Wfi5muWE8/icuM+MQxcA+42uMUSlIMiYab
Llq0yPnZsHQ6ZEjz1MPULveIVvXq1WmVmpnFmvTs7Gzr3Uc6iI+P79atW4Yb
Y8eOJSL69u2rD0/uxR3r1q2rth5VAOpi/fr1pJvp06er61muEBsb27VrV/0U
xNCKTzyEqCH2LW6jffHixalTpyov7rEknjl48GCPUy65lzg1xvrInh7KhM9e
vXqpKe7zzz+HARRn/vjjj/U1hc8rByw+cQZcS1P8egOsSONpob930UDImJIl
S27fvt3nl8mJ/fr1M3gH5Lz4VEY48U/NvKN169Yhqnk6dVbauXMnAWjRboQq
wXvmzBnxI52OboRhAj6FRJRCyntDfkTK4gbXr1/XsIRAUKPD5Z7gTSCQ+w4e
PCiYbevWraShjh07mtchDohPG4ldgOvMmzcP8enxEDTlO3YRu0fQuampqSdP
nnS551sSm5oCyi9YEZ92mReORWkQIwrZkrXJ3ZSNet8Otnn9gpPikx5/6KGH
iDKFiilpKfanTJkCM4TkzbsZ8UlCh3t5uuTkZDUdiQmf48eP14tDM+JzzZo1
qLju3bvru/XKlSsQUURExJw5c0Ky7zFPdOrUKfUqYIEjR47A22XLllUvZT1w
4AB8YvC6UIDcQYBQduFOz6jAj+RcIlFsMl9EB29zvbgj91W/2P3222+JlJSU
FPSJZjj66tWrjz76qMeFjcEWn9xxz549MF6PHj1omMbPb926Rd06bNgwb65C
RyCEypQpg9kTExM1w+9wKYkMF+Iue/fuxVZ5eXnEF3SBHbyFLffijlZKfgN4
nPDJP1asWOFxlp15WBGfeAsBhfeaWYWNPfm+xSm4+HNaWhp2UE/jNwBRjxox
yETOi0+XuzeJek37aaRYDknwKr+id9LT0w24lIKI+qhGjRolSpTgD/fv36/Z
VRXXFVN9MMXIkSNxmA8++IAKlJbrXyCavBqtyszMhOTr168/1Y2srCyIiE7B
kfgrfTuDFx0o6p49e3bp0gXyR6KT7mkDxLhgwQKMSaF9T4182kXsLrcXkeI7
d+5cuXLlokWLNmjQoHfv3u+++65Hb7eL2PXgO9gc9SVSNlQAqVaqVCmw4z5d
1sSnjeYl4tAhYneyHTt28Nv+/ft7C0MbzQsjaYanXG7yXLp0KTxAYNISg23E
nBSf6GoENl+bO3eu8iEPbjz/KqgwIz4hBBiDZlMOYy78bffu3XgvHV2xYkWP
azB9ik8+57fCFOoEjbSAiGrVqoUo1Y+ZhxY8MmURbSbc1DOZyRE4szJSoQfV
E3FR0o2oqCgEABfB7E2aNME5yQJIJjPZWQPuSH2Xk5Oj/hCtTrzohywQZjTS
Y2cFW3wSoUgmjEAmpfjS7AgtliG89tprHv8WT+MZoetq1aqhP8UYlDonQuDQ
qeJCmJEHgX8uX75szMavv/463mvxXb9HeJzwSWcRPgYjHmYQsPjEK/r27StC
2LGDGska2MHGvVxCIj49AjcjbDWPhpG7devmbQbdtWvXxJ8QAqR7/oH7qeeE
8AU4UynNYF3yGoUVIk0vycxfDdAkCBzKItYUnlFvDaGH7dGBlXJzc5FemvEE
ZA82FCtfkNn31JzPcCd2PbhCUlKSEkH0L39Ls5VjTfyFlbCy17w4mNjjDvKH
eQwIxy7zUiGOHj1a07+0GRFIqurYsSMKh4oPDvSm7Z0UnxCCYGNUusHVnIQZ
8cnTUUfQbDqd7NmoUaP4+Hh6sGXLlqRCjyOTPsUn+oHKmtIAVlS23SYuunbt
+tRTT40YMUI5p9UY3AixinPqBwwNgNoJYBc+ug9Dwfbq4QLYctKkSTVr1vQ2
J0R4Y+nSpefPny+yEtk/MTGxVKlSmmnPAbSHomzy5MneGJtbQ/jnzp2jF0aN
GkX3eXTjoIpP2jBlyhQxhgzbFCtWjKpQ/QUKw/Lly+tXDbvcb0MaNGiQmZkp
1mWLjSJr166tzEXEkhg/sJURYrshu3Y2VkO85cS3IRYoKCYmpmHDhuK4+QAy
kRoBi094lYLOeC257RCzjBDhBw8etOWC9474JMHRxXSo+oJi7llCQoI+hRH4
UGiXLl2UFQ34docOHSBS8aIZHlu+fLlmew1v8OtqX3zxRWRkpMGuCx5he3Rs
376djDxmzBiNkMZWU6dOhZBhBr/W3wVbfBYCYteAL8+YMUNd+1+/fh1aoME+
hx+9IeCwCnfz8rcLFy7UTJ4nxN5444127dop27JB+EiaN9980+ONnBSfpAAh
PjMyMgyu5iRMik8xbNK8eXPcLC8vLz09Hc2PBvP2sD7Fp9hGiXJGrxxQs+gN
9KQ3ZasB9fvHH398zB9A2v6+zRc7zUZERGzYsEFN4zxgSkoK6sJjAIqFpcQL
ikv9V0h36qnU1FQrG6yJaQ84nrepWbhu2bJlV65cCeHQxeqV4GoEVXyKk7DE
mYm9evWi0zUz4sjjpDn90huSFDXaunXrNEmTIpT8LgaISK/EdWCjahiHUhr/
D+BvDSD0oViiAn3BQufPn+derVu3pqSyuJ9ewOJTbJ1EpFt8728eytZJFAv6
hYqB4R4RnzSAApmA0ryhg8rq1atHttL3Dvll2LBhmmkMUG6PHj1Onz4t/pZu
NbmhsV9Xg66hGn/1v73RUVBQQLqH7fX7h4gFHeI4Br/2pwq2+CwExK7B4cOH
xToj5ZNbt24RUMh+zWoO8wg4rMLdvDdv3pwyZYomBi9cuDBgwACNlNqyZYu3
XdydFJ9kosqVK/M1by8ZnYcZ8YlOi4uL82tPBp/ic9WqVfj8Cy+84FEEfvPN
N8ghGhbUk2jMQxw1iEZC6mi8SChzbzsiwrqUG7GxsRovpfii6OvSpYuVGa1i
9BgbegsiZPnixYvHjh2LYjFYreBTfPL4FBrkiBnmMHPmzO3bt4tW4Vci48Ab
VapU0WxNAzAsaU4/MYZAJoHq/Q2L8TnlA/Up8kY/L9ckPvzwQxgGcWvy+9Sw
VLXoYQpeg2URYlsbgkU9kZ5/LFq0yOPorkfgYydOnMCG2/4XSMf4+HjchrDV
/Iov5+fnews3EeYel39agRiLhoQnTJig2ZKC3k9MTBTTJDzOHb1z5w4GWbFi
xerVq9evX09Nt94NAyIyIz5xNpq0TQe897HHHoN29L+C4c1PRaB/Bw0aVKtW
LbFkQ3Nrgp3CXEMReAv28Xiu9MaNG5ctW4Z78Pj6Des8wt+rbd68uWfPnn7t
3+6yNTqURVsek6MYARNzmfyaEOIzL8MzuBZcZJK1Zs+ere7TQkDsamBbavac
nJy/qIANmzRpYrDboQLbwyrczfvuu+9qBurxZP7qgw8+0HwT7UpQhFx8Qp5E
tPHufw7DjPiEWLAATwdLmHxnZyw+MRdVDxf0trssfzV48GBxQEwID79WgDQS
b3v1j0/zcGPN8esCoqjHvPC/5leiguvXr5+V9aQkFESj9YNZfYpPrp+cnEyx
YHJWQ9GiRalT1K+YMcX8+fOLFy+u372Hopug0I/MkMK8vaTetGkTWotMgcAL
uASmZue+5t/0QXfQSL169fr3729gcDHhU7OBGI3MysryKBg8gryJhomOjm6j
Q40aNapWrQplaT7ny6R4b2wvDjLjb/Xn3etBjYyMMRPpdCsP1adPHzKC5srK
JkXdu3f3aC68d+nSpbAEMY5jCJlKErQiPsVpRDExMXq7NWrUSLwo1/9KGTD0
CR4KldKgQQOPk4Lo+mrVqmVkZGhMx49ff/21R6KjdMICUAdllMmtD+y9mjfY
GB03btxAn2i2p1Pw888/d+3a1Yz+0cBnXsYhyWtwkUnWooXoT+XPCwGxq0E9
AicP+l8gWh599FGenXLeIN6DEVZhbV6xg5zmrAR4CT2jV8UU1N7mCTgpPqkN
iYXGjRvbNfXIOsyIz7Nnz1aqVMmvzd6NxaeYHGUwGQx7ktGwJ7wUktXuanzy
ySe0lkDwyI1ivyn6VO8hYscSfV52uc/LEyfaW1mIwR2pWwcOHGhxRxQHtloS
u/5CdPpdHDFsuXLlTL45Ejhy5Ag1JpGuXwJsHpSo5cuX1/ObAS5cuIC6IIoN
vkNFLHb4VG/lQS9fvXrVeioJ+LW72DosMjLSp/ikqW+++aYBH2qAeEBedurU
STNGTQvHjBlDCMfFxRmHsJgSUL16dWWilDeE9rU7xl+yZAlu7G35gJhL5teq
GbFifdeuXfpXKgHAxqvZGB0ffvih6F+PLynEqjTs5u8rjGC/di8ExK4Az0Sf
6PdTIkiHDx9OkPKkgd0r4LAKa/Pyh9R3mlwG8+tzKM8CDXqb1+qY+Pzhhx+g
6GLFir322mvO7+fpDT7Fp5h9QbM7duyojIH7fAVpLD5PnjxZoUIFymFveYRi
mSZhT59nWomzCWC2h/0BF9cf8eYRUCIF486dO9XNyM/PV15firMDPG4nLuaA
tW3bVvPuQOxsqdmvKQBgPWxosEmRSTggPkUCElt1YUn15lp79uwhzZlXOy53
msPmhL+V3cmoRo3P09Fj+/btFStWNFgZqkz41OzwaRcCFp9im3Ez0+oQyaNH
jzb/lpaMhpPPmDFDH6eU/MWLF2/ZsqXxVEaUEiV5u3btfO7sFELxydNt3bq1
c+fO6tkF9AJ+q4zP37x588knn0xJSTHfOwTCpEmTMLjBml/zsPFqNkaHSDGt
W7fWuwFWXbp0KU5CswOop4I95zPciV1pFWnU4/RdZcKtXzusqmFlzmf4mpcs
lp6erh76+PXXX7OysjRTmsX2egsWLPBWCTomPqkiS5YsiaQPxtaCAcOn+IRs
8RAEm3ofD5+vII3F58qVKw0mfIoF7Hyhbt26ZsphfImi40+mAa9S15vRLdiE
B9y9e7f6QzHkrvi/eKFcqVIl/Vl1169fr127tv5QvIsXL1Lp9+7d2+LJDuK4
JX/XseoRbPEp1gwqx6wXFBTAeIpNxFkDfp2tiU82atTI/IQ0j1i1apVfaxzo
94kTJ6IuDF5oKhM+8ZBgFJhWtloaMGAAMbVkyRKDr6FeuL5fi1P2798POWhi
RAD/rFWrlrGRaZjYZsfMlJ4Qis8DBw4QyJrkApPTFwqfkyvJmH69rIE86ZdB
gwbZcoaOjVezMTry8vJIfN26ddNnCpinWbNmxHIAm5wHW3wWAmIXQCNp1hmp
sXz5cko/+N/fWcECAYdVuJsXIkXyKValzRhZrZa5OOIKtzfIF3aJTzG73pv4
hDYjIyPReBY3+tPgzp075PG5c+cGvHefsfjkqWNjY0uXLr1mzRpNTxm/gjQQ
n9gqOTnZ24RPSGzjxo1UNw899JDQKqECjjFmzBj9Bl+4GXGhVsWU/BC1PmXj
ijExMZrDEWBglFidOnWs76GHAOa+Zs6OMUawxad4zdGgQQPCkB4nr6m3lCHv
UGXoZ8oZ4LPPPqPBAS81cv1+CJHmnAuXu3eWLl2K38IkfGHevHnKRtDiZRBU
MH78+NGjR1M67d27V+PAyg6fdm0upG92wJvM5+fnQ/VPPfWUt52p8FIIOTc3
Vx+V0FdKSgrhkJaWJmp5ZUuf7OxsxCc24bcJCQmzZ89WUgOtnTNnDooXe3rT
YydPnqRVUJCZoe9QiU/qI4hd4yo8HSGjfjSYbfDgwR6nsXkDNseRLJZRtl/N
3uj44osv0Az6dWf48PTp08uXL6+pXHiK1NTU9PR0xcmxM59oBk4d2Ocz3Ind
5X5H2b9/f4PXfDt27BAHEAS2YZ2VsApr8xIaJDVlbfvOnTvVHnvr1i0CAbI1
fgdhi/i8e/du586dEVT69fvkI4p69Fv79u0DPh/NGzAgnkPlEtiGM2JbKv5c
vx0KZLJ27Vr6mmSqeems3NrgFaSB+Lx69SpaF4PodR2lzcCBA2lPVFSUz+On
gwoSKHTnbWo6TqX2h4KCAnQ4JaT+Ops2bYJ4lXf0+AaMzeMHvKmvGlQE1atX
tx6MwRafYmsLsXaMTDRhwgR1HoFh4uLiqBDNn1+GjkIFWXmvLaa7a44VhvQQ
D1QWYvNtOrR48eKLFy8WvxXVVsuWLcVMpLy8POS0WgCL00OIR0LGzLqeAGBF
fIpF0GXKlIGI9LMrP/7446SkJP06I/4KHsDhhQ/jbDVq1OjQoYMo+emyHj16
iGNK+CayEELmLsqfQ4xcFjNOnjxZXyDTj/w57eGaZkqJkIhPGkZHe6MCzflu
y5Ytw0n0gznegKcNGjTIShkVjKvZGx3ieFBEpprSceCcnBwyiH4uvajglPVH
NAb5pH8J64D4DHdiJ6fTjyRxAzoiWqEs483eDWBFfIa7eaEvhEpERAQ6GSMM
GTKEHMrFExMT8XY+8RmJFsUn1sAmYrWmAIV8lBtUjgRX1apVIViC0dvsVoNy
0ifELtxQN0WBX7Nnb9++Tauwm9Js1CANptkUQbgEpQGCZOHChR6reJ+vIPXi
U+xwKw54EqhSpUrU7+DWlStX5qZkIrrP5IZOwcOWLVtKlCjhLePExsaqlRJZ
lbo+JSVF3wU8NY8THR39+uuv08u9evUaOnSot+nHfkFMgMFcFs9AdAVffIqJ
Cs2bN6dEQjRqoh5XmTt3rmaFjjHQeBRNVl6aiGOF1WPv4thlnFBhPMorOBl2
VX7EP5XzBficH8WGNpA8HcGPiodAPpBncnKy9d5Rw4r4dLmf8cCBA40bNy5b
tixUuWLFCngvOzubuoAS3uNLmePHj2MTeEAYSszwzMzMFIpL/KhsLiSWkVI/
qq9ApGBnjAPhI0GxGPyGaCEW0KWIlnPnziHhzEyDcV58EtE8jjceAJppDCdO
nIDWduzYYfL6pCc6wi4nsetq9kaHy12DDB8+HEk5e/bsffv2Eb+dO3du3br1
oUOH9FGMe3BlZbOIr776isZQsWrKIgfEZ/gSO4FJ25QURl9ozi/AmFBozZo1
FenCl6kcTZ7tosCK+Axf8yrA/eA0Ql4zNkXBbmZ5qS0jnwHDuJw0CTxtzpw5
dq2MMwOfryDNnO1eaCDWZJHTvUnxX375haA+duyYwXl2/gKHbNq0qbe9qvy9
VLAXHNHIS5cukZo9TtfBOEg1k8e74OckMvP53SPIgNxRPaVNJNxOnToJFSS2
H1Smo4hqSz07ZcOGDaVKlXJsz3YBi+JTAAMePXoUGUAhwKWWLVum3/pbQJzx
TTWtnKSjOY4ZsUFeo7IWP165cgWBMWjQIP2l8Hw4NiMjA+bHkpBzAKnkHtlk
3gA4Dy40cuRIkx20bdu2ESNG2EXddl0tGNEBAyBcZ82aRQupZehKj9lZeLi6
FBUvSfWB5oD4DHdidwBWwqrQmJdyCRm/cePGI0eO+LXFWQjFp89y0iROnz5N
FePYqXkuc68g7x/x6XJPGIiKirJ47JdfQADA9ra8sHNAfBrj559/pv5ClpjJ
m0R3TEyMvxW6GmKDkX79+qmHr8XGhnPnzhWkRFXYrl07WiVSpFhJpCyR4woI
jIoVKyqqzBmIWfozZsxwJtjFSKZyHLxYCYi8VFZ8Uyart9ChAo2IiPC3djYP
K+KTwqdbt26BrarwC2vWrGnUqJGZGXR40dixY+3a/MSuq4U2OsSlevbsKS4l
9InHmQwOiE9XmBO7A7AYVoXAvCLuPG7m4BMhFJ/G5aRJEJ6rV6/WHxATVBi/
ZHHdf+KTvkMS9O3b15ZVqz7BXbjX5MmTbTFvyMWny+1CTZo00ZxX6BEHDx5s
3769lS0jCgoKkAeK9woQ5uXLl1f2wYadkFUUyGjddevW/fOf/2zbtq2yIpvI
feKJJ1588UXnN6ElshwrM8Vk3cGDB4uigIft1asXqgPOxCbQVHZ2trK+hu8M
Gzasbt26mqOObIQV8elypwl72+MRWAMTrVy50sw38WS7Dhyx62qhjQ6xJ9jM
mTOVCZ9I3GeffRZ5s2HDBnVmdEZ8hjWxOwMrTS0E5hWbliclJQXwxiGE4tO4
nDSJq1evZmRkBLzaPQCYfMlyX4lPl5ty27Rpg7c4cC+EIoQcwP4kHnEviE8i
d9y4cRMmTDB2GHFOJX4V8LtFrp+enj5q1ChNlJH1qME3bdrkco/EUsyKvaFA
bm6uOCJQ7GXBH+L/EI5+w/xCBrFBExC2ysvLQ4EMHz78ypUrpAyYfM+ePc2a
NROjfHv37q1Zs2ZQ5yFYFJ+OAbNER0f7HEM4depUq1at7IpiW64W8ujYtWsX
V1a2d+bHcuXKDRky5Pr169OnT1evBXBGfLrCmdjDAuFu3kOHDqHilFnxfiGE
4tO4nDQj2+ABQtLkful2wcxLlvtQfLrcvh0XFxfseWVcv2vXriZnSJrBvSA+
XW4Wwnr6s3HVQHOSidTrqf0F14+NjdXzDx779ttvt2/fPisrizRKSu3UqdPA
gQPJxWIaD8m0Z8+ehNuIESOSk5PvfQlkC86fP0+wT5kyZcyYMfPnz582bRoK
hzJBrFxGf1L5pqSkvPLKK927dw/SBlMKwkV8IsCmTp2KrYzZb/PmzUlJSXYN
nttytdBGx2+//ZaZmSl2/pnqBrebOXNmixYtcDn9YKwz4tMVtsQeLghf8xIX
UF9ERERglzUjPp944glKMKjPlvVWCozLSTNXgNyc37L+zp07Bi9ZkKbHjh0j
NyUmJqIT7ivxiUFWrlxpsKOvdXBlZIDHU+YDhjIHmyKOCiKEXXbq1CmKGm/H
F7rcY3HUmJptwczjwoUL8fHxBvNF7969Sw0oPBmhy43UQ6xY5urVq/YuYL/3
wVNfvnxZfY6P5j0LrO7XTCF/gaufPXv2o48+ysnJadiw4b0vPl1ukkxNTYXb
DcZD8vLybKz4rF8t5NHB9dG3iFiS8sWLFxWXw8H0S06Cl5f1CFNiDxeEr3m5
2uzZs413kveIGzdukG2RrI0aNTIQn4cPH37ssceqVq1ao0YNEp/l9v4/fJaT
9yaMX7KcOXPmySefrFy5MhZ7+eWX77dQ4nl37NihKdJtxIEDB7Zt22avVW/f
vk1JWNUNwfw2XtxfIDOWL19u/Rh0PbgmV7blHEMJJ4Em6du3b2U3YmJinBns
sg700uLFi8PlFeq9EB0kkcjISJNHzwQvL3tEOBJ7GOG+Mq84VbZ69eoQWp06
dYL31D5hXE7em7g/X0FKSEhISAQJeXl5Dz/8cLAnb0hISIQ17s9XkBISEhIS
wcDmzZt79uzpwHZYEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhLg/wCXaigd
     
     "], {{0, 51.}, {895., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{633.6666666666658, Automatic},
   ImageSizeRaw->{895., 51.},
   PlotRange->{{0, 895.}, {0, 51.}}]], "Input",ExpressionUUID->
  "7e51f579-90af-4a46-ba8e-9319aa33c38d"],
 ", FieldNumber = 2"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, 
   3.8312302449223967`*^9, {3.831821346714077*^9, 3.831821347135849*^9}, {
   3.831828615367176*^9, 
   3.8318286219505453`*^9}},ExpressionUUID->"4dec8107-e9b9-49a4-9f13-\
eb9a3896762e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "2"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
   3.7676307019645357`*^9}, {3.8312294412605715`*^9, 
   3.8312294413324594`*^9}, {3.8312298277474966`*^9, 3.8312298282274446`*^9}, 
   3.8318286263528223`*^9},
 CellLabel->
  "In[334]:=",ExpressionUUID->"268bff17-0113-4831-a32c-5b7f270059ef"],

Cell[BoxData[
 RowBox[{"B", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, 3.8318058892938128`*^9, 
   3.831824948917231*^9, 3.8318278101789837`*^9, 3.831828160980167*^9, 
   3.8318286888563595`*^9, 3.831828721986229*^9, 3.8318343764565206`*^9, 
   3.8318397987804356`*^9, 3.8329475114354906`*^9, 3.832961795960847*^9, 
   3.845826888370675*^9, 3.845852478957142*^9, 3.845857089237756*^9, 
   3.845919636838106*^9, 3.846006587678058*^9, 3.846099899598053*^9, 
   3.8474704617945466`*^9, 3.851700647086427*^9, 3.853975462512298*^9, 
   3.8549774227975817`*^9, 3.8549892751986713`*^9, 3.8549999129269433`*^9, 
   3.8551652624674315`*^9, 3.8551823311988974`*^9, 3.8551858752082167`*^9, 
   3.8553306532270517`*^9, 3.8553398582772284`*^9, 3.855343195443571*^9, 
   3.8553440294665804`*^9, 3.855352756204977*^9, 3.855449619680181*^9, 
   3.855507621046533*^9, 3.855508418622151*^9, 3.855512906713471*^9, 
   3.85553333834729*^9, 3.8555789325215874`*^9, 3.85559330471891*^9, 
   3.8557506170720816`*^9},
 CellLabel->
  "Out[335]=",ExpressionUUID->"81da5548-5639-4bd3-a228-5382f85ca987"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "I"}], " ", 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Ft", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", 
      RowBox[{"2", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"sigma", "[", "1", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
              RowBox[{"At", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+",
              " ", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "3", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"\[CurlyPhi]", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.8318249155673313`*^9, 3.8318249354494715`*^9}, {
  3.8318286332689114`*^9, 3.8318286847298965`*^9}, {3.8318287170681562`*^9, 
  3.831828718990193*^9}},
 CellLabel->
  "In[336]:=",ExpressionUUID->"bfee47f2-d516-4e2f-8d7a-b2146a33c6ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[337]:=",ExpressionUUID->"574d615e-cb84-458b-b6cc-5c07c765b665"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, 3.831805889381689*^9, 3.8318249491046867`*^9, 
   3.831827810277328*^9, 3.8318281610739403`*^9, 3.8318286890370145`*^9, 
   3.8318287221404705`*^9, 3.831834376503422*^9, 3.8318397988408074`*^9, 
   3.8329475114667645`*^9, 3.832961796002735*^9, 3.845826888433135*^9, 
   3.845852478996838*^9, 3.8458570892869463`*^9, 3.845919636887043*^9, 
   3.846006587742632*^9, 3.846099899629689*^9, 3.847470461888275*^9, 
   3.8517006471801367`*^9, 3.853975462619665*^9, 3.854977422875718*^9, 
   3.8549892752623453`*^9, 3.8549999129894295`*^9, 3.8551652625299025`*^9, 
   3.855182331261383*^9, 3.85518587526758*^9, 3.855330653343933*^9, 
   3.8553398583553267`*^9, 3.8553431955529213`*^9, 3.8553440295322733`*^9, 
   3.855352756253468*^9, 3.855449619743248*^9, 3.855507621100172*^9, 
   3.855508418678351*^9, 3.855512906851407*^9, 3.855533338399448*^9, 
   3.8555789325821743`*^9, 3.855593304745509*^9, 3.8557506171127515`*^9},
 CellLabel->
  "Out[337]=",ExpressionUUID->"9e09d7de-9e93-49e1-9e44-2866c34918fb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[338]:=",ExpressionUUID->"e68f8de7-a5d5-4faa-8935-39fe91065e24"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQmQTVf+xwkJEVpbmmaInRAkYuiYWNquLa0XBC22IRjTlu6OPdrebd9i
bYQkwjBNi7VMGLEmkbK2rTSJKWbECKnIlJnKTPX/8+9TuXVzt3ffu/e91+J8
q6ju1/fde+7v/H7f3/d37rnnVBs8Ou7tZwoUKJBclP/iBo1vnZQ0aGJ8KL/0
HJU8YtiooUOiRqUMHTY06fXBhfiwEf+O88P//5wrISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISHxK8V///vfEydOTJ06NSEh
Yc6cOV9//bXmgJ9++mnnzp0nT54MRuskJJ523Lx5c/ny5f37909KSvrss8/+
97//aQ64cOHC5s2bidOgNE8ikJB0LfFk4Ycffti+ffsf/vCH3//+95s2bfrx
xx81Bzx48GDt2rV3794NSvMkJFzBtWvXYmNj69Wr16dPn6ioqNDQ0Oeff37U
qFG3b98WB1y9ehXSHjZsGA4f3KZKSDxtePToUWpqavXq1aOjo3v16lWjRo0C
BQq0bdv2+PHjQlE/fPgwLS2NT86cORPsxkr4HZKuJZ4gwFG7du165ZVXmjdv
3q9fv4iIiGeffbZKlSoZGRmPHz/Ozav79uzZExkZuX79eorEYLdXQsJHHDhw
oHXr1tu2bVPcWKTmsLCwggULVv0Z1JIWQ17nzp2rW7fu4sWL9cNlEhISPuPW
rVs9e/acOHEiUSk+IQw/+eSTxo0bo6hLly5dp06dMmXKjBkz5t69e8FtqkQA
4ApdS0gEBqjlWbNmxcTEZGdnKx9evnyZWg9FXaRIEeirXLlyuPRXX30VxHZK
SDgE0vfMmTN///vf9X+Confu3Dl//nz+f/TokfV5bt68OX78+PPnz/unmRJW
+Ne//iVLGENoRjmw0hM37nH79m0KVf3nKKUTJ04sWbJk3bp133zzTeAb5i5+
BT0VALhF1xJPIuj9f//738FuhXcgNx0/ftyw2Tk5OevXr1+8ePHnn3/+Kwh2
ekfGXX4AvjRnzpyXXnoJBwt2WySeDEBTSClK/vj4+FdeeYX/L1686O1JILrq
1atv2rRJ8znMsGrVqpo1az650wZgto4dOzZo0KBfv37Dhw/v2rVr06ZNz549
G+x2SWghe0pCwgIEyLFjx7rmAdr34Qzfffddp06dEhISNLL2V8DzQceNGzfG
jx+fnIfIyEgY7B//+Ie3JzFLxD/88MObb75Jv/ODS+39lQOX3rZtW3p6uixt
JOyA4mvhwoXvv/++qOjv3r1LFEOJly9f9uo8ly5dGjdu3NWrV/V/2rt374wZ
M5SpBU8cIB8UWtGi/791U/HixWEk9XNGifwD2VMSEmZAZfXu3Xvy5Mn16tVr
166db1qaEJs5c2ZWVpb+CeaTzvPBxYMHD6Kjo9977z2RiK9cuVK5cuXY2Fhv
hZxZIn78+PH8+fO3bNnyKxi6z80TugcPHpw2bVpqaipyV//S9FMLitzVq1eP
Hj0aIffRRx8pcUoRjbmmTp06e/ZsQ50mIXDx4kXfprl+8803jRs3njt37n/+
8x/xyZ/+9KfnnnsuKSlJBB2fnz59Wrzc4SJycnLS0tIIBPr38OHD7p7cENT4
3hYIAqSP5OTk27dvm00chfcMH5dL+Ab/9ZQ/cP/+fR+e4zzRgK43bdo0NQ8r
V66U4za+wQcO9Dk0FBAjrVq10mtpP/H80wafEzFq8MUXXyQXi6/DKr/97W+r
Vq2qzLv7lfGMQw5BnIwYMYJyIyYm5q233pJjJgKYBWMioQnnkSNH/u53v1Ne
G8/MzKQ069y5c2hoKBovuO3Mn6Du+PDDD//4xz/69uzm5s2bhHBERMR3330n
Pjl58mTJkiUxu1DX4vyUOd9//72Lzf7kk0/o06ioqLi4uI8//tjFMxuCWOvT
p8+FCxd8+K6i0MwOuHTpUt++feUkf1fg157yB8gCY8aM2bhxYwDeNbh79y7B
OHPmzOXLl2Mid6/I2ZBq2F+zagc8oNFd/EoG7N69O1xdrVq1v/3tby42I78B
s2B2FKyGYDGLfkE2r+AtBzoJDQVmWtpPPO9vIB72799PFgt2Q5wmYr5+7ty5
a9euiV9v3LhRpUqV9u3bK2cLJM/4AG/XKnTIIfQ718LahsPsmOiDDz4gWN40
Qu/evYcNG7Zw4UKz4Vl0/ooVKzg/KijAQ7j4wKBBgwybDQYOHIjRDh06pIx8
akDlRXb4MQ8d86DpCGQeBjfT0hgTIho6dOjvPWHIkCHkoCfitYvHjx9Th9qJ
mt27d+OQTsZF0R5cS/n1z3/+c5EiRVJSUhQv/emnn+igcePGGZru8OHDSUlJ
Xbt2pYPUDb5z5867776LzTt06IDa1HyLPELd7cN8MB9AnHbr1u3gwYO+fV0o
NBx42rRpY8eOhc30bPnXv/41Ojr61q1bjhv7C+zatQs6fcMbtG7dOiMjQ88w
tDk1NRUaMQzSfv36TZgwgTgKbiYNQE95C7i0adOmRJn4lRCAzRYtWqS2MAki
Pj6eznJ4LQtACOnp6fjYvHnzdu7cSSIgfKB656+LYqL333+/TZs2ZcqUqVev
Xtu2bSHbHj16fPnll/wVfxg8eDDRavhd3P6VV155IrT0w4cPvRr74mAkAZqz
dOnSL730EvqzRo0aWOn48ePir2QcqNJJk7ziQIehocBMS+d64nkaMGXKlL59
+77zzjvqBG3G83gshNOyZUv73NW8eXNy2enTp+3fzl/+8peSJUuuWrXKSzO4
D+eJWAFKCZP+5je/+eyzz9SfW/OMWSLmJHweExOTmJioDgHkOmoTm9vvoBYt
WiBfNbW2w7UKfeMQay2dmzdICE9y44iZAgUKIP8+/fTT43kgiFavXg2XPvfc
c126dNGLE4oCGp+Tk8NdBNi1oCny1+LFi7k0zW7UqFFmZqZo9pEjRzZv3swt
ly1bFi7ic4vpOmKMlFSl0ZDWWjo3b20cZACSgKtT6ZN0srKyPskDvUxKnT59
+quvvspf4RCHgwlOcOHCBaQR6d7iUdqJEycgpQYNGlCscS9II5zNTFST6Js1
a+biHAliDcauXLmyZvSDLsDrNmzYoDkef0OD3bt3T7zXoJAw4YYaz87Ohlvq
16+v79OAaWlSBoUeDfB5nhg2gYjoNe4F5+EH9IYm9jn5rFmzBgwY4KJ3cU7S
VuPGjVFuS+yBGKQU7dWrl75u5WwXL16EJTA7gYCP7d279/jPOHDgwIwZM8qX
L1+xYkUUQlCGPgLTU94C/kdNffHFF+JXHL5SpUqzZ8/WmOjYsWPkGofP382A
QRYsWJCWlqbuVkISxUv+8jl9k+O2bdtWvXr1mjVrklzUKfL8+fMiaxPFsMH1
69cNzxBcLS1Gn5o0aWKhabEY2ZAgop1hYWHh4eFoYOuaF7MQJmQrzLJixQqN
WUjBJBe8lEhx2N32OdB5aCiw0NK55jxPwuLqZ86cob7gxpXBOgue//bbb+ma
/v372+QugIdjcyo7m/fC1cmPsBm1c3BHa91KxJhx7NixaBXcT1RtGpjxjFki
hrgmTZpEp+Ns0Lv6nJQhUBn1jv0OGj16NB2ECFdO4nytQj9paQEkJfSFZjak
iJMnT1ImYxbSn/IhcYE70R4kJcxP87xqmCuAtYSapQTQz1cksjBv4cKFCTez
kWG6u1SpUvoxEI9aOjfPtvgSV0cKGrIEeRYaRO0EcbnU+fPn08KePXsatlA8
JMKGSqQgfsgCGG38+PF6+Y0Z33777REjRpgN+HsLbIhsoxw2HP0gscL8mqdp
FEqUnF9//TWxT8wqjs3BW7Zsyc0rH0hhhKHmbAHT0qgFKN1JuqdfYA/FbbhZ
5MeYMWM0jnTnzp3XX3/dxZlIQkv37dvXfv/S1ClTpuBCZl+BVCMjI2G5rVu3
6v8Kb4SEhNBfFHS+t9tXBKyn7IMvIr1IbcqjyczMTCrcffv26Y9MTEzkYH88
9jp79ixtWL58uaZbCS7EoTru7OP777+ntXgCudvwfTGS48svv1ywYME2bdqY
jegGV0vTKnI0t7Bu3TqzA0aNGkXGEU9bsBIES/fh4WYj7YpZcBvDHWogZ265
UKFCLVq0cPgQxz4HOg8NBdZaOteE569cuYLQpT5FG9MS5TmmBc+T8eFDih37
bSPRY1WbWlqsHCJGHZFVQUzrridi/HbhwoUkYioXTWib8YxhIqY96enp9B0/
L126lA5SD5GhpQlwr6bHfPbZZ3xFraWdr1XoVy2NQapUqWKmpXPz/LZatWqw
KI1Uf47ciouLa968eVDepaXjyPtmWjo3L4p79eoFCyEp9VUkn0B63Li+c+1o
acGrXF0/ZKSAbnWltPcZcO+pU6fMBqVRzrGxsZoxEwKhatWqOIN+lZujR49S
JCojZg6B0T766KN69eqpazQ16L4OHTqg7vQGzMjIKFOmjOFGw3Ap9RHVtObz
wGhpPKdly5ZkARdHLYSnUW5r5uVyiXnz5kVERLi1fa0/tPTVq1crVKhAJW44
pIZ/kssIonHjxnkbJt988w1iz+dh+UD2lH2IN4AowIU9sQlVLfFo+Nr46dOn
SWTOn8LrsWLFCjQtykR5qUGARNapU6fatWt7m4lw0aioKFgFKjYTIdxscnIy
zjBx4kQzZ3CipR06jADJAto085k1a9YQQZpET35HKlNkKXNTFSD/unTpglkW
LFhgYRbOiVmoQRymEpsc6G5oeNTSFjxPMqpUqdL06dP1LdHzvL+19PXr1yE6
MiZ9ER8f75aO9QHuJmIBeqd79+6lS5fWj05b8IxZIsY4vXv3pjvU5aErWto5
gqulc/NYonDhwmQKtXHOnj1LloQHgvK8w6OWzs17S4tqi+7WD3xBqoQwqUEf
43a0NJHFmV944QWLXLZ69WrsZu9uAg26DLaEnzW3jyXxGbHXs3ryJ58PHz68
W7dubk0q2L9/f8eOHUXditrHnnovWrlyJWJbo/bFor7qtyQ0jSf69I+hA6Ol
d+7cSdJ08vqzWLCdDKvoMTqITFSxYkU9pWRnZ3O5bdu2+d7iX17adS29fft2
iMVsSE0pSEeOHOmtTjh06NAbb7zh83yDAPeUTZw5cwaywu3Fr3g49uEShjqE
SCT9wX6up3Xaj4ChDNd8TnwNGzasWLFi+nFyC9DL/fr1o5dTUlKsm5qZmRkS
EsL/Zgc40dIOHcYjHj58GBMTs2PHDg2PcUVIjNqERKn+nO576623MAsVhEez
lChRQozHOoFNDnQeGmp41NK5JjyPGRcvXlyuXDn9CtKGPO9XLU0HUeJt3rx5
6tSpdBlRGazFZNxKxCRczK6EkmBybo0b1BxpxjMWiVj4PKyuFmZSSwuQL+rW
rcsxyrNajD9jxgwSB3qVWkZ5WSZgsKOlBflzzMCBAzXDBXRQ5cqVDSc+2dHS
8FuRIkWo18zmwnHa5cuX+/X9ICfAer169cIybdq00TxWWLVqldjVV/2eESEA
wS5dutSVqxMj9IgSVufOnZs5c6a+E1HaFCwbN25Uf0gVTPlMIyFP2EDdrRR6
0GmfPn30uSkAWlo4ZFRUlBOW43ZiY2Nfe+01xTh4Y0REBI1Xv7ApwIW4HFLW
laWlXNfSHofUoA4I5Nlnn9V0sR04kUaB7ymbWLduXWhoqPIGkCjYyW7c5tq1
a/VGJh6rVatmNrvYddCJ5EfIYfXq1fa/QsXxzDPPNGnShIC1Ppg8Ur9+ff34
rYL8rKVxg0qVKnGn6enp6pyCn1ANEQUUFMqHYiijUKFCNs1Sp04d/StL3sIO
B7oSGmrY0dKGPE9WQuii4jjD+vXr1RrMkOf9qqVxPBQs6pGMg/83atTIY6/5
Ca4kYqIyKSlJ/VRd0dJEq/54Q56xSMTHjh0rVarUhx9+qD5eamkBMWiPqUkf
InETGh06dIiLi8OxYfvAL0VoR0vn5j0MIlmr318QQOXS3Xv37tV/xaOWViZL
R0dHq2XMlStXuJxi7VOnTt25c8frGwsIlPFnyEQzTy8jI4OMALmp3X779u3l
ypXTD1X5AFJDw4YN6bWUlJTk5OShQ4eS4wzJAToV7+qqOXPJkiW0jd7ctm0b
NKhOW+fPnw8LC1u2bJn+VAHQ0oRn7dq1KQocPqbZvHkzXaCchNgPDw/XT7nJ
zSNALgfLubIZt+taWqRRos9wSI2vJCYm4oHt27c3nClqDSfSKPA9ZQeEJEER
EhIinlxDLFA31oOIdu/ejZzQt5Z4LFu2rJ/WeMQfPv/8c3Ilyplql6vTZQkJ
CXTZwoULbZ5EyCSSi51hVQzYo0cPi7VQ8rOW5szkfYwzY8YMjZaOiYkR760o
HwqzFClSxE7fHT16lDM4n0hphwPdCg0FYh6XxRz4XBOeR1GQcaguqa0mTZqk
/rohz/tPS9O8wYMHiwmuJB2cWTPQFEi4lYihKSom5S5g4JYtW3JfhisnG/KM
RSIWDxQ0mlBqaQGRtSEEaiJhf84JaRACFDjklMBP87CppQmBkiVLioROrY0L
EYkcP2LECBSdIbF41NKGk6X5YcWKFZjC+a05BOQzcuRIjNOpUyeLGoe7wFc1
Y2jcxeTJk7k19fAafT127Fg41noiKFY9ePAg2hgF1fiXaNq06bRp0+iyW7du
cZ4CvwQ5ZefOnYYnHDJkiGYQgMxSv359VB8VnCbt0rnUR4YvsgVASx84cICr
mz2h5l7gefEaERSUlpamGahBroip43gpfkX62L9//6JFi7AeWcNM33I5LurK
pFnXtTSlZYUKFSBV/ZAa98gXicrOnTv7trKfE2kU4J46ffo0RXexYsWKFy/e
p08fzeRnMjWX4xL37t3jDBzDfUG2UPfatWsJYTTY6NGjDcmfeCSaKEjdfSkD
C8BjNIbo27FjBxFHe2bNmkX4ENoU2lQQds6DKWADAlz9+pgFcnJySLgWqSQo
Wpr2ZGVloaa6du1K9Wch9cmMkI/GAcgmsB9GmDBhgvhEMYvNRxjIDxzMeYa1
w4HWoaEABUX8IsY4oZrn+ZVqSHTQ5cuXBw4c2KxZM6RF0aJFSamDBg0yfOhg
yPNYpkOHDgMGDMDmmixmyPN+0tKYHT2P/4sQO3z4MBFapkyZoOzW4WIipsRD
DEMyGJNOp5BBDpktDGLIM2aJWCwKQXdrqj9XtPTjx48/+ugjvQ+TRLhf+uWF
F16AMC1yStC1dG7elOmCBQuiS5WaCDeDPYK1iadNLU3wks3FcAFkQiCsXLmS
Cgvf2LNnj+FXPGppw8nSZ8+epbIgzzq5Kee4e/cuQhoZww/4jKbY9wgYjMSn
WfYHB0bzWE8Swybt27cXiwTWqFGjcOHC/AzjiRAmi1Fo+JDx58+fX7p0ac2K
eTRSTyaiPmrQoIFhsgiAluYGuV/cQP8nDAgHIkKIMuQlIo2f1e+lwmypqamK
82B5/BYv3bt3r3W25XIYfPHixc7b77qWFmM4mneT+ZnPoXR6auPGjT7P9XWi
pQPZUxSJdBDMWb58eeS0eBKk1gyIVZI15/nqq69wddiJv6JDlLVS4VizxTpE
UU/cubg0olhZonLlympyE2v+UClUqlTp+eefN2NODVBc8KSLa4gFRUtz0YkT
J2Lhffv2kf68fQrA10uUKIEPKC/KYRbMqB/B9jfscKBFaAiIKvi5PNSsWZNb
40YoilFi8Dy54+233/ZhjpMhzxMC6CgNRZjxvJ+0NA0ghyouRwuxD3etWYo5
MHA9EWM0vAIePnnypMVEQTOeMUzEYrL0qFGjNOneFS2NKluwYIHmzKgdDgsP
D+/VqxelXEhISGxsrBkl5gctjcHpF9KB4byIwMOmlqbvBJ/TuQ8ePKAjMAjc
aLG/jEctLSZLYw0Oa9u2bWRkJM7DrzaHXwRg0Tlz5mD2At4gLCzMelXJDRs2
ULjl5k1GpYjo2LGjxUQ1PbZu3cqtcSOa1zpeffVVw2WEBYQzE7mkG5EdEBsw
LQWLw2dhcCOhYTHuSqBlZGTQZQQ1bRg9erSht/tbS4sZaKRIPVdgkNWrV2MK
srAwIK0dP358tWrVlPGWL774AsHmg7AUC1q6MjLprpZWlmXAc5TdiwYOHAjL
QelkBBS1k/XcfJZGgewpvlW3bl3OIDbqFQssQ7akM3EAlQWNEaMouLF6ZWk7
EENALs7ehCuGDBnywgsvoPA1f6KRUVFRqCZyls3NucT8Os5GGnWleYHX0mRk
gkIs80WvUVgZTiEzAx4+ePBgsVKNkqSEWYoXLx7gtWQ9cqBFaAhgDaKYYmr2
7NlCzuHAffr0IWU4fAPaOc/7Q0vTZZMnT1ZXT2Lrbe7X49C9PxCsROyRZ7gW
8bVz5046JSsrCx7Tq0TnWpqrjxkzRuPA1P4xMTH4gzI2fvz4cUots1HN/KCl
cblChQq5SIwOYVNL0xFCS6ekpNg8s8d9D5Hi4q298+fPX758mVoVmiKQhw0b
5tWyk2j7U6dOHfMGZ86csagfYbbExEQRNatWraK/vJr5hoPhhMSd5pkaabR6
9eojRowwvDsu2qFDBxSdZnX0+fPn41QOORbDlihRQlQHetCekSNH0r8oEJpH
7WzGGP7W0rRkwIABlFT6ZI0HIiA1W37jvUishQsXimmo7777rm9rLItBAPsC
WMg55AHko3mXxF0tDcW1bNnSzAF2795dpkyZVq1a+czwPmvpgPUUOor6XT2h
WoAsQzYUzE/eWbRoEQeIydKvvfaaV6pYvPUAexsummcICIRb4Fu7du3SM8Oa
NWuQef3799eXObAiFAfv0a12FjpWiimvmmeNwGtpsfeE2NY8Ojo6NDTUq6mq
9G+xYsUSEhKURI9ZyESYxfU5t/fv38dLcbn09HTDQTmPHGgRGrk/L8KJjKSa
UHvO2bNnS5UqRcngZMll5zzvDy195MgR8cqh8ol42ktJtXbtWvsXcgvBSsQe
eUa8LICmxRmaNm2KQNKrFOdaes+ePStXrtSw1vr166l31AmIn1Fi+/fvNzxn
ftDS7733XsGCBSET/Ro1QYFNLY3WLVu2LIfBAzbPbK2liSxUNCdUy1R+mDt3
rs+vHbkFCB9nprtpJGGFXDHb/UcPvgLnU3RrVhHP/bkeMVuNYfXq1eRf/dKI
WKNw4cLLly/37V4EDh48WLx4cYv5mSgfkh2xg39aTDfymEeuXbs2e/bsybZB
2lKfDW+Mj49X77KhgGCHePW65cqVKzSbJEvlMm7cOK8eHygggzRq1Kh79+42
BTDNwGJxcXGVKlXKyclR/8ldLU3chYeHV6hQQYzpaaAs8dG7d2/rG8f3yAIf
6zB16tRatWpRMOr/RF9beELAeurSpUuaXXQFyDJ8DouKrRKFffgQHpsxY4ZX
zxeEXi1fvrymKy2A08JUCDz92il37twhcyGWDBOBGBOjywzX+9UDO/fp00fM
aTHU3vQRFLFixQoIZN26dRh/XR4s5oLayYPuOgyNEakcXg0LC9OsFGoNHKBm
zZoocPUy3YpZKCSd7zivBi6E2EBr9ezZ0/CJj0cOtAiN3LwVOMkCpBVNb4oF
TDp27OhkNSHnPO+6luYq1LyLFy/+VAVs2LBhQ7pv1qxZ1lHAX5FzeJ3NhAKR
btmyxZp7g5WIPfIMB0AaNAzByV0b6jGHWlqMY2gGOu7du8dFNYzB1TG72SSc
oGtpZTA2iKvBaGBTS2M6gtR6IWgNrLW0mCxNMlJvMkIDUlNTNR0dRKCHqXrs
r0KJMQnnunXrnj59Wv9Xbpk4SklJ0TuSGK2qWrWqPsoohwsVKmR/h1ZDHDp0
iO5zvky3xzwCCeMk9ifbIBSPHDmifJ3khaA1HFfkE8Msw4eYFLstW7bMqwV7
1RAvrKl3cfUIpGCXLl3atWunkXnuaumtW7dC7BaCgcTBAfiVxYQBMU03MjLy
DR2E6mvSpIn+T1jDooQMWE8RemYzvtCx3D5BargUpH3QZWh7NJ7FOnJ6IF/L
li2rfwYK45EFEGOGo0/UEXzL/sCssuomzmbonLgu9pwwYQI0BVEI1Y1EcaKl
/eEw4rQU2jRSmZzjERQmOD+lomaNGmW73tjYWI+BxnUzMzPtj4Sj3gkos1VW
PHKgRWiIrc0IWL1YFePSPXr0cLLOuXOed11LU9y1bt064ZeAHitXrkz3UQ5b
yyqM2b9//2eeecZmQilYsCCXs54jGqxE7BvPaOBQS1PfjRkzRmOfvXv3bt++
XfMtMUZhdqGga2nSLsmXHudsQdw9Uw2bWhpiwUvr169v/+metZbesWOHWFla
/ZhJ7Cbsj/18fYBQOJSisIGd43GPJUuWREREmL2bLCblGjoSPF+yZEmIVHPv
9E6/fv1KlCihFpw+AOkSEhLiFUMawt9zPESKxM3sXwJjLliwICsrC270eUVi
LtewYUNStv1Eht+ilyidNMMXLmppZf1SQ9oX2LBhAwyPPPNt4Vyf53gEq6fU
IEdwwrS0NP0GnV6Bho0ePZrYtJ+huP233nqradOmmj0NlS5DTRkWFBkZGVBK
fHy8zWF58VyeE0ZFRVmPWJJkKWMpTg03x1QjWGviiZXDsbNNLYF+xlBDhw41
3E9KmCUuLs5joD18+HDEiBH2O5cCrXTp0mYjcnbGpc1CQyxbp3+YBT7++GM0
9qRJk5y8R+mc593V0tgcJtTPJKH73n77bbrPYoMq/yFYidgHntHDoZbmf7S0
+u74OT09Xb9kxxdffDF+/Hiz3gm6lj59+nTZPHz55ZdetcF/sKOlv//+e0oA
asN58+YpkW49YzDXUksr4/OalaV9gNjXiQxSyhvUrl376NGj1mcWz/1R+2J8
idxn4QA0Y/Pmze3bt1fPnsWe3L4iG+7cufPSSy8NGDBAb2cx/KjfSF2sUwp1
i7eufMa2bdust0KziQDMlx42bJjF3j2GoNghsa5Zs8bnNISda9WqNWTIEPsV
7v79+3Ek/SKELmppsaisxSQ9jidsiSP9RtU24WS+dFB6Sg3KB9qQnJzs8Ck/
9zJ48GCPa2SpISZ8ogc0DqPMPYAb9ff46NGjzp07Fy9e3GwWoiHWrVtHuaTX
7RosWrSoYMGCrVq18jgNO1ha+uDBg6j9/v37YyWMY11N/Pjjjwhg8r76MJhH
Sa/CLHamnW/fvp3MZXPaD4dxUYjabFMDO/OlzUJDzNTVt1nM88cxrN+I9wjn
PO+ilhaTBAwnb4vx+QJ5+wK7uHiOTQQrEfvAM3o41NLUNYMGDVIzCaeiLzS1
A/5JNrRYZSW4WhrRSGkD3dHyfDIonWtPSxNZYlUu9UMrixmDAhZaWpksPWfO
HOdZlQ7dsWPHn2wDwqF+95h/s7KyihYtKtIl8U6NZvGSy4EDB+Li4jTLoWOu
xMRExWjiPbJOnTrpywcIBwtv2LBB83lGRgZtsL8/mhlWrVoVGhrq1eIGhvC3
lhZPgcuUKePVKCtZtWHDhk52NLt69WpYWJieQmEMKBf5N3To0BUrVuCugvnF
QvFo6VGjRvHXXr16TZs2TfzJRS19+fLl8uXLm02Wzs3bMwtbQf56z7EJJ8sF
B6Wn1KBuJUfYXKXZAmJPPb3CIeWNHj16+PDhcCMFOwygDKieOnWKgKKX6X3+
mpCQIEYahSiC5JUdzNVAQiMmOaE6c8GuSBGlC5BbnJaeVQ7AOV988UXr+IVS
YmNjYdSkpCSPojEoWloswlakSBGxtkl2drbFQi58TkBNnDhRo7e5elpamviZ
viDhErbWcwI5DINrKAv7L1u2DFHBnyZMmDBr1ixl13IxdAzLEdrk/e7du2sG
izxyoEVoCJGgH0sn0itXrmyxBJlNOOd5F7X0sWPHNK8cqiFeHGvcuLHDYSIf
EKxEbMYzXsGhlqY7cDP1+ywoIshN7eFIIzxfvCxsdk5/a2kYz0xL0yrii6wH
TzqxpB4wCR6LPvRtOS9lIMVMS2O0ihUrUkzpZwaazRgUsNDSysrS+WQxEz0w
JlxK+KCo+fWrr75KTU01c60vv/wS62mUNmfYvXs3dK0ErHgubDiPjjMgzDTr
ROFRDRo0sN7CzOa9kC9c2dcvAOtLb9myhXTglWMsXboUNevkAcfhw4e5qHpT
ObgFwsH+4hHShQsX0LTKvmOk+K5du4rtGDgSSkEiirlALmppMRfabLI0cUfz
yEfoPZ/v3ckwY1B6So2LFy+Si80KDfu4f/8+5yE21fY/e/YsoUqD6VAUTrdu
3dQrBkN9hQoVGjt2LJ4AbVJqKa9/kojpNf1LVXfv3kWlNGrUSB2GpNf4+Hh1
ekWTIMPUcogGTJ8+/ZlnnlGTiQaff/65qKos1iBVEBQtLaZR1a1b986dO1gG
1SeoVQ/ul7/OmDFDc7P0AupaWfmBw6hnMQvZ2WxaIJKDv2rENqamr8Vew7l5
oo6uXLBggfirmCzdtGlTURyRzWmz2sfscKBZaHDpyMhIVJy6RqDxVBlVq1bV
rAvtLVzhebe0NDHVs2dPi4e/YgTY2wdbriBYidiQZ7yF83U8cGly2cKFC3E8
WoLOUS/diQVwUTShtUz1q5aGZgWbaR5qwLRk6o4dOyKzSbIWy4P7AOEVKGE0
rcXK8BbAPcSa5Prsj+JNSkp6/vnnW7durX+zyWzGoAIzLS22QMJQyGn7L84H
GGL5GvFKF7w3efJk9UiRGtAsZGv2KoRmrfXly5dzTv14BZdISEjASRQHJuN0
7tyZDO5cuIp3YaKiopw/TQuAls7OzsZEJDibx4sFxm3OaTfDmjVrwsPD1bns
xIkTxFR6erpQRGJ29Pjx40Vvil+VN8HFq4uoqdyftXRMTAy+/Y09wNX4iWa9
U4QE2knvQrl5kTV37tyQkJBixYrRQifS1ImWDkpPqXH8+HFErHNlToxXrFhR
nUBRWa3zIOJRcJ0yhiZ+VRZqEK8Uvfjii2IyGAm6WbNmTZo0US/jwBdjY2PJ
aJrYv337dp06dRRHEsPaaE7NEhCwdL9+/ZB8ycnJ+uUXsAOVHa21eIShRlC0
tFh2EkKDjq5du0YBaJg4xGuPYjsePUhG6hV3MQsdQSpBQ2pSP1dB3SEJNOtl
cX7KHPU0S3Qv8on7Un5FBiuTcPicX2mScgY7HGgRGhs3bqxcubJydXyJ9tSu
Xdv5riWu8DzeGxERsWTJEpvcBaBNZIBaSxMItMTwDT4F8AAdZ72jjf8QlESs
5xkfgJaGMUhP9jtI1IOKloZkFi1aRCiR8ggQfG/p0qXI6bS0tFatWiFToSOP
MtUfWpoPiQVUtBLvMF6lSpVq5oEfiERKxeHDh1v4jMXDRGsIXcolatWqZWdE
Qg2CFzOKV78FuAvRbBpcunTpcuXKQdF0hGEZZTZjUIFeSxNiED6tVa6IHoBY
+vfv7+5YvSsgQ+G006dPT0xMhEsN56JgGRSUxWvFkJL6eAR5WFgYJbn+VGRb
hIF4/jJ16lQMtWDBAlfmkom5XkRKYPbPdQikQosWLQYMGGCzeEdK4YROXkAQ
AkYRTrk/78ZLOCiJWLMpMKkWN1aeQJEyKAwh4dy8kJw/f77YJ8srQDIilPbt
20d/KWdAV9SoUUMEJj+gl4gaVBks4eQdFgEnWjrwPaUB1CcWrHZ4nu3bt5NW
1A2jo4sWLaqsiyUWslOm0wvqUx7koWHi4uKqVKmijAeKAfPXX3+dGg3tN3v2
bHIZlZF+CI6UhF8phCCKMhxJb1KyPCGM19FUFDWMRPqjhdHR0chsVMH58+cp
u+wMnQVFS5MoqaRee+018jhEZzYGKx7vmsUIWUmzaD9moZwUm9NR0XzwwQeb
Nm1KSkqKjIycMmWKXq4LMmzXrp0wlHhXVJnCKiZLq2e0IvmKFCmyefNm5Qx2
ONAiNPAZvKJ58+awBLKK7sORnAdyrks8DweiJL3lLjhKvDlCCHBrCnfRL5qn
D1iYmEUXKcKDgykeDVe+8h+Ckoj1POMD+DpVgLcdRL7QTNI+deoU9Y56kztK
G/QessdOM/w6Lu0zrB8m2gS8ar2uteswmzGowOO+h/kfhNXRo0d9UxqGgMCh
cYomswLk/v371Dj0votvN+/Zs4eCxflk6dyAaGmxl0H9+vXN3v3RgOQbFRXl
5LEmt4NSUucgIWmUbbvFgCpqWXmxFHaFFZUxwF27dgnp5XMbggUnWjrwPaUG
AYIyN8yGXgHWpVhu27atUknxCXVKyZIllVXUyF+oOKS7+PXcuXPUWcrKY9w+
UlmzZjIaTywVy8lXr15tNkUcA6pX3qB248wWQ/0PHjyAUVNSUqBcVB/p3gcZ
Fqx3D3GYq1evImNcf91MbRYUNT+bDc6IVeOUbcc5rFWrVpRCYpaIeJFHWYMF
loar6Xr14LYdDvQYGpwf9Xjs2DHNWn9O4CLP/+oR+ESs55mgQ6ymgv+Tv/BG
r2aw5EMtbf0w0SaIXIg9wFupWswYFPgVaGl/gJ6iSAzYJDERLz169PBtExMN
AqClc/PexKlZs6bNHaaysrKio6OdzGTLzMysXbu2+uG4eB6tTGwj8XEJOAeX
zsjIoMCfOXOmMt2OY4YMGVKtWjXNBohPBBA2nTt39vn1nwD3lBqolMjISOfD
WWKuu/oFRjG/Sz3vFDFcqlQprnU4D2hsCitlYXw0c4kSJXzYYUoMaEdERCjD
p+vXrw8NDT1+/Dh53H/vkjjR0g4dJuiAwUJCQpT9rIl6ahnqaNwJH/jnP//Z
smVL5f1NTFSnTp2+ffuq5xHZ5ECvQsM53OX5pwEBTsR6ngk6SHOUe1OmTPHh
QUY+1NLWDxNtAh0+adIkF4dPPcJ6xqCA1NKGoItRZYav+fsD2dnZMIZXa3BZ
IDBaGneaPHlyfHy8x/ErMYSI7/kcm1yCCyUnJ6sjjtT5Zh7EaBViifxLqsrJ
yaFhfAVZ2KhRI8HDFPWVKlVSPwV+suBwl5OA9ZQGSM3WrVs73/Fq1apVzZo1
07j0hg0batSoIR603bhxg75GU0Fu06ZNI6DQXY0bNxYyCR9o0qTJ0KFDfdAw
FGUUca+//roYnLx58yaMynX5gWLNf1tWOdHSuc4cJui4du0aElesPUWXkdbF
0iKAakiUUWL2DrE/ZswYekQz39ImB9oPDVfgLs8/DQhwIjbkmeDiwIEDJUuW
VOpKr5DftLTHh4k2gSDXb7DuV3icMZgrtbQ5UGLNmzd3ssikTdA7Y8eOHTFi
hFvb3wRGS+fmVfFvvPEGl7M+7IcffujSpYtvbCCwe/duKE4/8eDChQtt2rR5
5513Ro4cOXv27IkTJ0ZERCQmJn766ae5eQo8JSVlwIAB7777Lg3It8vRBAAB
6yk14Lq5c+cOGjTI4RNYVHGLFi30s+NoLaVT79696XfIH+lVr149en/hwoVi
bWSEdKdOnWbNmhUbG0tLfHv/8fDhw8WLFw8LC0tISJg+fTqehobnQuSaefPm
+W/LKoda+okGfYeRqcJSU1PJX+jndu3a0dHwpJiPgXLu1q2b2Gi7f//+eivZ
50CboeEcrvP8U4KAJWIzngkihPgMDQ317dFeftPSHh8m2jnJ1atXR40aFeCH
bnZmDEotbQYYb9y4caRpf4/w7Nu3r0OHDm7NUM0NoJbOzVO5UVFR1k9bbt68
2apVK4vts63ByVFEZmtz0TvXr19Xb7WjWUKBrweAh/M/AtBTGiBoBw4c6HBJ
EPp3woQJycnJZgqEHv/666+VibWavn706FFOTo7PISzKgfDw8OzsbIzDhUR+
gUK5kF8HRp5mLS2Aka9cuSIqIHwJ46uLMvr0xo0bZvNaveJAO6HhHK7z/FOC
wCRijzwTFIjd0sUalT583YmWjo2N/fTTT48dO6ZfksgJrB8m2jkDtBD42ezW
MwZv3bpFIYBEefnll6WWNgReNHjw4I0bN/ovaV66dCkmJsbd96PJI/hnZmYm
oeTKu+cWIO5Wrlxpsdp/bt4CGvPnz/eNozjtyJEjV6xY4ad3ip8e+Lun9EAF
paenq2eUeQvi7oMPPiAGXXz5yytgCnKKw40bvALddO7cuUOHDi1evLhevXpP
s5Z2Aq840E5oOIQ/eP7pgb8TcdB5xgzffvtt586dLfZLMoRDDhFL5VeoUKFc
uXK1a9c+ceKEl622gvXDRBcv5C4sZgziPMuWLQsPDy9btmzVqlXlDC4zEFwL
Fizw02ACmfq9995zfenOI0eO1KpVi0AgHBAz7p5cD0Jv69atfnIhKsGPP/5Y
CmlX4Nee8gdgLbR9EBOcWMEsJSUlYB5IromPjy+bh8jIyHw1dfMJgrcc6NfQ
8BPPP1XwayIOOs+4i/zPIdYPE/Mh3JoxKCEhIfEU4vr16ySjAC++JCEhISGR
3+BwxqCEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISExBOB/wOSaO5g
     "], {{0, 49.}, {964., 0}}, {
     0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{742.6666666666631, Automatic},
   ImageSizeRaw->{964., 49.},
   PlotRange->{{0, 964.}, {0, 49.}}]], "Input",ExpressionUUID->
  "203ed699-ece8-49eb-9f48-a9ae7a9f6dba"],
 ", FieldNumber = 3"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 3.831807216313492*^9, {3.8318213573593793`*^9, 
   3.831821357718653*^9}, {3.831825421077572*^9, 3.8318254214837303`*^9}, {
   3.8318287617414007`*^9, 
   3.831828767965352*^9}},ExpressionUUID->"cd28ff75-95e5-4354-89bf-\
cd4569882567"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
   3.7676307019645357`*^9}, {3.8312294412605715`*^9, 
   3.8312294413324594`*^9}, {3.8312298277474966`*^9, 
   3.8312298282274446`*^9}, {3.8312302811942577`*^9, 3.831230284539338*^9}, 
   3.831828771310425*^9},
 CellLabel->
  "In[339]:=",ExpressionUUID->"ca27befb-4c77-4aea-8668-c1b3a6520560"],

Cell[BoxData[
 RowBox[{"F", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, {3.8312302820259466`*^9, 
   3.8312302849002533`*^9}, 3.8318072239900155`*^9, {3.831825121497237*^9, 
   3.8318251343028555`*^9}, {3.831825172430654*^9, 3.83182518495291*^9}, 
   3.831825466915935*^9, 3.8318278103448453`*^9, 3.8318281611208*^9, 
   3.831828772169597*^9, 3.831828827917018*^9, 3.831834376550288*^9, 
   3.8318397988842325`*^9, 3.8329475114979773`*^9, 3.832961796040633*^9, 
   3.845826888495651*^9, 3.845852479026414*^9, 3.845857089327739*^9, 
   3.8459196369027014`*^9, 3.8460065877969847`*^9, 3.8460998996453114`*^9, 
   3.8474704619440823`*^9, 3.8517006472371254`*^9, 3.8539754626737967`*^9, 
   3.854977422953823*^9, 3.854989275312521*^9, 3.854999913020672*^9, 
   3.8551652625923758`*^9, 3.8551823313313293`*^9, 3.85518587531349*^9, 
   3.8553306534574275`*^9, 3.855339858402226*^9, 3.855343195631055*^9, 
   3.855344029574746*^9, 3.855352756265911*^9, 3.8554496197897673`*^9, 
   3.8555076211497583`*^9, 3.855508418718895*^9, 3.855512906938201*^9, 
   3.855533338442729*^9, 3.855578932635023*^9, 3.8555933047612443`*^9, 
   3.8557506171595993`*^9},
 CellLabel->
  "Out[340]=",ExpressionUUID->"cb436141-a93f-451a-9b29-f195c429ae2c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"\[Gamma]5down", "[", 
            RowBox[{"[", 
             RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], " ", 
          RowBox[{"Lap", "[", 
           RowBox[{"Bt", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"Gt", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "1", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"At", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"sigma", "[", "3", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
          RowBox[{"\[CurlyPhi]", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]}]}], 
     " ", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.831230293795329*^9, 3.831230299121489*^9}, {
  3.8318072483544436`*^9, 3.8318075086103964`*^9}, {3.831807641331113*^9, 
  3.8318076496432943`*^9}, {3.831807851091679*^9, 3.83180785513081*^9}, {
  3.831824973845834*^9, 3.831825039581436*^9}, {3.8318250744918237`*^9, 
  3.8318250786167717`*^9}, {3.8318251303307123`*^9, 3.831825181576143*^9}, {
  3.831828779478269*^9, 3.831828821678605*^9}},
 CellLabel->
  "In[341]:=",ExpressionUUID->"5c765328-6a66-4c97-aacd-95feaefe5fe5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.831807825939827*^9, {3.831807866162796*^9, 
   3.831807866297452*^9}},
 CellLabel->
  "In[342]:=",ExpressionUUID->"66cf1379-7809-49da-9411-4c0517153620"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, {3.8318078154905806`*^9, 3.8318078284346147`*^9}, {
   3.831807862437693*^9, 3.831807867464693*^9}, {3.831825122665122*^9, 
   3.8318251353447466`*^9}, {3.8318251736607957`*^9, 3.8318251860151987`*^9}, 
   3.831825467876891*^9, 3.831827811257238*^9, 3.8318281620427413`*^9, 
   3.831828828040616*^9, 3.8318343766127763`*^9, 3.831839798954628*^9, 
   3.8329475115604606`*^9, 3.83296179610546*^9, 3.845826888573728*^9, 
   3.8458524790953493`*^9, 3.845857089405719*^9, 3.845919636990612*^9, 
   3.8460065878767705`*^9, 3.846099899707798*^9, 3.8474704620534344`*^9, 
   3.8517006473465147`*^9, 3.853975462761486*^9, 3.85497742304755*^9, 
   3.854989275400961*^9, 3.8549999131144257`*^9, 3.855165262701725*^9, 
   3.855182331440696*^9, 3.855185875398065*^9, 3.85533065356675*^9, 
   3.8553398584958997`*^9, 3.8553431957403774`*^9, 3.8553440296672387`*^9, 
   3.8553527563467607`*^9, 3.855449619882818*^9, 3.8555076212358007`*^9, 
   3.855508418801655*^9, 3.855512907077009*^9, 3.8555333385222683`*^9, 
   3.855578932708889*^9, 3.855593304817356*^9, 3.8557506172377057`*^9},
 CellLabel->
  "Out[342]=",ExpressionUUID->"29ee6bc1-e719-4fc9-bf06-cfc297cdaace"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[343]:=",ExpressionUUID->"3b92fd91-7939-4a4f-b5db-7483ea921893"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwFVXWx1kHkGXYwr5vIWFXAzIimxDDkpCwBhHZEkPMEIEQAgRC2HcD
YSfIEJYERZYAAoW4ADKgUgwgBixBwBpGxmKUUqd0ambqfb/v3c+u/npLv9ed
BOT+q7TCe/26b597zvn/z723bzcd/9rgV0qVKFEiqTz/GzwupdfUqeNmDqnK
P4YlJsXHJcbG9EucFhsXO/WZ8aX58En+68bx//u3R0JCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQuKxwX/+85+zZ8+mpaWNGjVq8eLF
t27d0hzw73//+8CBA3/+85+Lo3USEo8efvjhh71797766qsTJkzIzs7+6aef
NAd89913W7ZsuXfvXrE0T0Li0cUXX3wRFRUVHBw8cuTIfv36Va1atUKFComJ
iX/961/FAdevX4fL4uLiiLLibaqExMOP//73v3l5eR06dOjWrdtLL73UpUuX
smXLNm7cOCsr6+eff/Z4FeCRI0d69uz5xhtvIBeLu70SEo8Sjh8/3qtXr7fe
ekuJne+//37JkiUBAQElS5Zs8isQigSa2UkuXboUFBSUkZFBtBZVwyUkHkbA
SgsXLoyMjLx69aryYX5+PqoP5ipXrlxgYGCtWrUIugsXLhRjOyUkHkVAMRcv
Xvzb3/6m/wrmOnDgwIoVK/j/jz/+aH2er776KiUl5fLly4XTTAkr0Im//PJL
cbdC4v/wz3/+86OPPjLskRs3blBYIe3Onz8vyyuH0BjQQlFLFAaw/+LFi1u3
bo1XF3dbJB4ZoCXOnDkz0AtSpR9nILs2a9aMIlrzOTy4cePGFi1aIGncaKnE
bxAWWeuHH34YMWIEbskfhXHpv/zlL40aNaJWjYmJmTBhghiDffDgQWFcS8IQ
pIi33npr6dKlBVY0EhIC0E10dHRqampwcHCfPn3846zPP/98+vTp169f13/1
zjvvzJ8/n3LbcUslfpuwyFo///zzihUrcnNzC6mcvHDhQv369cuUKVOiRIkG
DRqkp6dLR1WDrjlx4gRmmTt3Lh2kX1P32OKXX37ZtGnTa6+91rNnz127dimT
WYh/zJWWlrZo0SLDfCgh8Nlnn3377bdOzoCO7dGjh56z/vWvf3366adixr/w
8M033+Tn5xfe+a9du2Y4cC3x24Df/k+dRTbGyQ2HBIvG+R9mIBXi4+MbNmwY
GRk5evRo9dTq4wzMsmHDBqgKD0lISPjDH/6grCrct29fVFRU//79q1at+uab
b9o/JxkY5f/111+r13LwdyGNMBQjuKmdO3f+8Y9/dHhrZpwlzo+cKLwBEwJh
5MiRV65cKaTze7xl4IsvvlgE86SYi6usW7duwYIF2M319efEyM2bN7/44gvN
PBcVykM+sUXzLl68SMX03nvvaQLTCRz6v+AsszmsInB+V1B4Txhx5ldffRXz
GnoX9tmxYwfBO8II0dHRcXFxq1atMis38OH169dzfpJ8EZckly5dGjdunGGz
wdixYzEmjkq4Gf789u3bBPhPXrzgheYJlH/84x8QWYGchVU//PBDLle3bt0m
TZqQgbt3796rV68//elPdJmYWJk2bdojMceKtLt//76duD58+PCgQYOcFxFm
nOXxOjwdNH36dMP1AO+///7UqVMHDhxIB6kbfPfu3Tlz5sTExISGhkIZZtcl
fYWHh584ccJJ4wmc5557TjHCnTt3YChNhH7wwQcRERF85eRC1uDkL7/8MrGQ
lZX19ttvJycnN2/efNGiRc6FOjxFag0KCqpdu3ZISEjv3r2JCM4vigsSL1GP
wd24Cd/w/fff25mGgLsnT56MZYju3/3udyVKlGjbtu2NGzcsstapU6fwK+T9
pEmTLC7h0P8x3ezZsw8ePIgxZ86ciTPrl2RYOL/fwCXoUBLUs7bRrVs37pS6
T3OqQn3CyJqzPN5Vc7AhPVWuXDm6dcKECSdPnvzIC4J606ZNBB09PmDAAH0S
2Lt3L5GCGzRu3Jjk7GvbnAC/hZIyMjK4NM3u1KkT9ZFoNiSye/dubrlmzZrE
L59bqEFuv1GjRhCcJlfb4azPPvuMcqxSpUpJSUlq56eb+AT3wLA1atTYtm2b
8/v1G5QSffv2pT0WSQy9RJJv165d06ZNcT84l2RrRl7cadeuXQk0522z4CyP
twvwOr318LcZM2aQOcVEuRLXmB15QAFFMiE76ftUgGuRx/jWSY3ARYcMGUL4
K2IYlUJff/zxx+rDuMTChQvHjBmjfybXFWAi7kXTF2SYli1bzpo1y2+lhCX5
ecWKFXHvd999VzkPf+zatQuzc5udO3ceOnRoUa75RH+SZJ566qkOHToEBATU
qVMnNjbWQg+Qmvbv3y/+JsdOmTKF4oVbM8ta3BR3jU8eOnQImiaTGJ7Wuf9T
+qEBsrOzcUWaQQhwXY0lzZzfCf7+979zXRTOattYsmRJixYt8G31eVx5wsgC
BXKWAKm7YcOGcBNSTf8t6rF169b0I61VPsTg6enpSNacnJzq1auT5fxonkPg
xkSQoFq9fegjuL5MmTIkKLPgwj+rVavG/zWfW3MWxqRHqlSpghSBufQHkKO4
NPbk5Mgq3+/MNaxYseJ/38I2bJghL4iBCGyozOxwO6QFjJaSkqKnOcz4yiuv
xMfHmxWwPsGas0BeXt7TTz+Nc6o/RJAcOXLk1q1bCBKCXXFsDs7NzfV4aZrw
IeIMz0msEbn4rZOWoycDAwNJg+Lq+B4e2L59e/24HJXIM88849Mgs03Qd5mZ
mZxcn13Xrl2L9vAvr2I9SKFWrVqGixC4KAmfk+NUuJafTfcdVD3IeAJZiAQa
ht/SDDpaH7ziAITNG2+8ofncLGvhz0uXLr127Rp/r1mzhtMajhu74v8kBzXV
0hJu5J133tEcZuj8TkA+xFt27Nhh/yekweeee07NWW49YWQBm5xFBkB1mHGW
x+vJiHC0zfnz59Wfk9YGDx5MCVksS1/wnBdffNGMszzerDh8+PDSpUtjSb3q
5hOigBvXO4YFZ3EhREXZsmXDw8NxA7O2UaWiVPG6+/fv+35nroEYP3funFmR
BUNR42vEKpGLTMIZ9MvIT58+je7SVBN+o0DO4gAKwOTkZL33kjmpawxHy4lK
pMKZM2f0X9GtFEd0n8OpDXIdl9izZ4/4J0UfRI9K0acyLrR8+fIuXbq4Ps1E
n1IH4fxz5szR3A7dWrNmTbOgsMCpU6fq16/fqFEjQ+sJ4POdOnWqVKmSHzL1
9u3b8KkfVefmzZtxA43yhJIIw2bNmlFGaY4XZse76HH92SyyFj0YHR1Nbjcc
1HLX/wWgADgLKtR0loXz+wdXOKsI4BZnebxug/ymKlT3JkUE9dfKlSuLZROJ
AjnL450KJwzJb2fPntV8RezgFWFhYfqcacZZ3CY9WL58ecjIejAfKd6qVSs/
8kaRgXshe1MsaG6fBuMzWPX5559XzzLz+cSJE2Fqt0a6CuQssGHDhuDgYA2r
ouJeeOGFvn376ifBRePbtGljKAVRgKQ4w9LYJ5AP0W9KcUrawcHWrVtnePDV
q1e5KPWdw4tqIJYEL168+JtvvtF8hWe2bt2acsknoiRSWrZsWaVKlaNHj1oc
hoVjYmLwbWXywj7ee++9Z5991teZIJglMjJy//79miTDefCNkiVLkn/0v6L8
RFfQU/rUZJG1xDkTEhL0YeuK/0Mc0GVqaqoibygHqPj4UC94DJ3fyaUfN87C
RYOCgjhGkZf0+Pz58+vVq4e34yGHDx92ufUFwQ5n8XlcXBzHjB07VqPTbt68
2bBhw/T0dL3rmnEWxBcQEEBcnzx50rptMDv8vnXrVh/vqeiA9ShCsUzv3r01
gnPjxo1iaBphrHxINUruXbNmjVsNsMNZRDSSY/v27eoPKa8IcxpJGBLX6m7F
7ATmyJEj9RlAeEu/fv0cci6XI8NQOikaHsGPVCYEqFPeffddzfFcjouOGDGi
yBYww2KwNo6qL0DMwL3gBjjDjBkzrHMFwTJ37txhw4b5MZnlH2fheA0aNChV
qtTSpUvVoUoDBgwYQJtfeukl/a8wO/wCbWnGSK2zFgUmP9m5c6dhM5z7Pz3C
vZCTFetRu1WuXHnmzJl6sxs6v994DDlLVM14SFRUlIg+Ug11CvFLokhLS3Mu
X32FHc7yeAeLypYti5dqlgnl5eXhn/qRZI8JZyHvBw0aZEh/ety/fz8iIuJh
3pZNqadwS81ISFZWFimCeFGPmu7du7dWrVrnzp1zqwEPHjzg0qRKi9FvyFRs
FKDmoNWrV9M2epPihYBS57HLly+TqzMzM/Wn+vrrr6kOFixY4HBMQFTQyvAR
JurYsWPz5s35g5PrF7dzOT5v2rSpWgC4CKifxItNcnNzRe3PhdAb+PalS5fs
nIEWrl+/vkyZMtRZBU6gkEkIdv+GVvzjLI6HgnFUuEbDWdRfYrrW8IeUZuXL
l3/yySfVJaF11srIyMDJDVOZK/4Pk86aNUuZ48aYs2fPxp0M110bOr/feAw5
S4QeHoLYENHHOfEirDp16tTdu3cX/fCgTc46f/7873//e2iLoMZnsrOzSSwc
Hx8f3759e/3QiseEs/bt20cIIIrsjORzIUKmuPYGQc4lJCRgnLCwMAstQfMo
DTQzbvRjamoqVlVPxtHXU6ZMKXBECKueOHEiNjaWAuqp/4/OnTtT0oroy8/P
h/e7du2Ky2FSTD1u3DjDokCMRHXq1Ek9dYg0bdu2bXJyMjlHMzxI55Kr9ePA
Hu96J76iE81aTjh36NChdOnSEOKSJUs01R/5X6xBQrdXqlQJZhw1atS8efOw
87Zt24KDg4my5cuXG4oZLsqlHa6u14PeSUlJwbYYFp88dOjQa6+9duDAgY8/
/pi6r3bt2l9++aWd88DmrVu3pscN1b4GuAfUY7+CU8M/zvJ4WZg+1aRughSn
ErWh5njuAmtATBiBAzCLkh8sspZY04U36ue5CvT/b7/9dvr06XXr1oX6CZxj
x45pntMktd68edPjXfg6ceJERMLRo0fxGQxiNnto6Px+wy3OwtP08UWwIBSx
D7ePQ6pX6/kKFznL453SKlmyJPlfERv0Be5UXHuP2OQs4guBJHQankzC2bBh
Q05ODhY+cuSI4U/0nCXmbTmJ+gHkhxP37t0jkV67do0/SMK+6jQyYUhICHeq
HjUVM/69evWyYGEyZN++ffkhCZO6Q+xOQ64WnEVsEqd+TCivWLGievXqmnVc
NFKfPYQOadeunaEO4epmyzi5OzISpSUhQNqBtvhbvR4eJpo7dy60hUGWLVtW
p06dq1evUpIQOOIYqJP2mMk2LopN0PC+3rsFkCLUdy+88IJ6DSS9QzsXLlyI
8aF1QzvosXXrVo4nrg253kX4zVmGIHkiIDGsJueTnEkLuCvsQJjTp4S/uv41
y1piMisxMVHvpdb+jyeIkMGGNWrU4A/NUmoOgFgVfYU7YWrog0RqPWJj6Pz+
wRXOwqQQikblos/JwE888cTzzz+P+CT2UX1+71/hLmdt374d36ZthuNpRQ+b
nIXDYEMOwxuhm5UrV2IQJKXFc9B6zkIjNWrUiJNMmzbNrZU8xM7ixYvFA4/2
gcK3XsaM7N+1a5fHO6tOtJLWfNrQb8+ePeXKlSMG1bkFhydDDh8+3Iz+oMg2
bdrgrqhHkbrJ8C1atEAYOBwTI8qqVKliUaTQNVlZWXQZrEEbENX6DuITdHWD
Bg30Y1+0dtOmTbST/CbujlNRvzRt2lQpUalcoDC+JcNERUWpn8yyA/EsSVJS
kluegzwgu7Zv315vW+osvsJPBg0aZGfKSRnzf/LJJ13R8xZwkbO4tfHjx9Ns
qht17FPv4PAkT5FXxZJOlLaZYBBlI0ajaw4ePAhBGCY3C/+HxYYNG8ZFlT2Z
cZvevXtHRkaKmVMusW7dOk7ux20W6Pz24ZyzMNHSpUs1U/nc3apVq3r06KEs
ScLyYWFhr7/+un/tdJezaDwStGLFivqJ5mKBTc4ipwnOgm5snlnPWWLtetmy
ZQUduAU4FK11xhcQGhaz+ajHSZMmiVS2ceNG+sunGRxEO3UKCVwzonjnzp1m
zZpRxRjamYuGhoaSljXzd6hEnMrhkjlKY+S0mdlpD0Ul/Qut0DyUsCFFctiY
MWNI5vqEiXtAQ5p5KFwL2iIYMR1/z5kzR9QgYlLMV90iBDy+arPgpbUYLTk5
Gf7Vj++RCYcMGYJhd+/erf8tHkKWw9sXLVpkp9/F2nWOt988v+EiZ0EBiOdR
o0ZplrZSL1PpKI/kYIH09HTuLiYmxtB1xWQZ/EIt3LlzZ6SsYXBZ+D9ZgpNr
NAzyaeDAgSIc+C0habjqvkBYO78e8AVOiziHXDRrjZxz1t27d/FJzZ0ijEeM
GKEZ9Ni5c6f62Umf4C5noRZQLBTjD8lbHmxyFgKgZs2aHLZ8+XKbZ9ZzFm4D
YVH7a55QE8C8x48fxz7QBJr/DS9Q7y6uWLAJSiqij/Yg/+AR4tf+OhB+QhKg
nNTfo+B95SlaDbhTjKOfl8/OzqYwX7t2rX/3IoBaqFSpElY1OwC6IUDi4uKw
v9kwNa5Cnkcq65d/01NbtmzRp3cqR85JSoS+EfOiVoVBevbs6eujSYIXKHxs
koLYQnDw4MEUhvqXZeTl5VWoUAHqNHwyGj9EXOGoNrd6I/bFAIKZtiF8Nnix
efNm4diYi0RhIZzwFjg3Rwdq1ZYtWxIj+q9IzvanGMiTlPAREREaIiDcyE7j
xo1T25koJrOZjZDjz9wLjk2ePHbsmFkaMfN/eAFdYbirJKkez8ekWMxwIaId
FOj8GtApR44cgV71Czudc9b+/fvxAfUBWIOo1z8cQRsgzWLnLM6ACBEbJRX2
GIJN2OQsMgz9TiDbL7H1nCXSb0BAgOGIIlfHdIQkLalevTpNouiYPHmy2Q4w
RQB4h/i1/zgJxkxNTQ0KCtJvL+bx5uratWsb1hfYilho0qSJPrtSZ1HoOVx3
hDin+zTB4iuIXyjDcPiLTwzTLx9yv9xUZmam9SNLBUKMUKl3mioQUOSAAQP6
9OmjmUChm8jJONjo0aMNkzCtRVh2797dJgWIleT8xGz7NTQPJRvOTAHOdcuX
L0/QEQ5mnCU2V4HZ9fvXUdGIYWf9V0pVUiBQ+z169IiOjtZMK4vhX5p34MAB
9eewIRRPpeNkYNbM//knlZoh16N5ZsyYgXclJSX5vTGjH84PodNUqi3N5w45
S7xx7PTp0+oDUE1LlizRe8LWrVv9Hl1xkbOIHSIIp+VsD8lzsjY5i+4jJNu2
bWt/UELPWcLzqdfEBi9mwDFIjKVKlUKX2rxWYYAgmj17NiSr377GELjH6tWr
u3TpYjZzKmZkDB0JcYuq1+8+R+8gbitXrvzhhx/6dxcC8EWVKlV8ijU9xJIw
+8sSPL9qyIMHD5KpHG5mwkXbt29PmrU/+Hb79m3UMipCkw9FyYaDGeYxskdU
VBQ1r31lLgbHCJD169dbHIY1kpOTiTVUkH/vO/O4MTYIT1Evx8bG6h8nh6M5
OV4qlucpgEAxiNkT3zZh4f9mECsJ9+3b9/rrr/tNl344f25uLrL51KlTms8d
chauC/lq1otSeekfy6UjEhIS/N51ykXOQn7X9OKTTz7xrzGuww5nPXjwAKol
xtVPxF+8eHHOnDlYJi8vz1Aj6TmLzqpfvz4ZWO8Maly+fBmHocCxYyUunZGR
UadOnWq+oFWrVhq1o4fIbM2bNxfvCCDJWDgAzdi9e3ffvn3VUyfYk9tXcrXY
WmHMmDF6O+/Zs4ecoJ89EVM/Tz/9tMPXbCHYCFuzNeo2IR4txyA+7SoA4xN9
sIPD5zgwRcuWLc2mVAxx7Ngx+lpTMnh+HcrDIIY+gPvhTnS9fWoWNEcQIXIs
bpNqXUhWxLbf1nDIWbQhPj6eik9NmtypyFpiE0jNSnUh3ohHwyF9+7DwfzPQ
SOo+koyTHUd9dX7CHPvQVH1l55yzpkyZol6iKRbTahSCeNYPJ/Gbpt3iLBwb
zYwYS0tLe0iKLI89zqKPuK9u3bqpB4Xw82XLlj3xxBNmz5gbrnUfNmxYgVPb
6NvSpUt37NjR5vAp2Qyt8qZt4MNIrwJf3EN1UL58ebGJGZGekpJisXjv+PHj
gwcP1vge7Z80aZJyF1B/9+7dw8LC9OMAu3btwsL6PagxBW3YtGmTHTtYYOPG
jeQch5u80WV0XI0aNSzeUaLH1q1bqY98+okhrl+/HhAQoPecDz74gDQILVI4
iEhXVpotWLAAzkpMTOTb4cOHp6eni6/EE81IR/0YNX1NkqxQoYI6xZE5x48f
T7ZRAgRhzCfqmSCxcV+PHj0sFkNyOTRbxYoVnTx644SzCHaMMHPmTE2VxzmX
LFni8QZ1u3btQkND1QdwRz179jTc5ssnWPi/GUjplPajRo1ysu+KmfObeY54
DBmhiOeQ+QcNGqTIcufzWatXrybfKoPVsMbEiRPVPsOFyAb9+/d38pIa+5yF
eDPjLLyFcMOrabC7byJDFnLX6m3tfQINGzlypAVn0bP16tUjxvUbAtDRBL7Z
RgGGzxSjbKmhOJsmvSv47rvvxAY4Pukx14Ex8Vj4QiyvvXDhgngvquHB1INY
T8NonIHMNm7cOCVC+fno0aMN54M4A9lVs/UEHkUCGTp0qMNcITbodmUTidzc
XMLfpyWva9asgS+c77n0/vvvc2mx7bwA0b1lyxZMJOrxK1eu1K1bV9kShKw7
cOBA8QQ0RyJsoE4xzCu0k2EeO3nyJJ+jNNSDtNTOcM3ChQtF4uIrfq5Zq081
zSflypXLyckxbL/YmrJUqVK+Fqoa+M1ZuAHZe/78+Zq+IFHDYljS8+utkZbV
dIzla9eurS9XfYWF/5uBToQy7A/S6mHo/NaeIyazOnfuLCaXyedBQUFiOsM5
Z9EM/FBZJbh37161Frp37x5ph4Y5fJOFTc7iKkhQ/UJu2kOni5emJScnu7ur
g3ADMjzc4d9tkg/FQ6z6ZbqEqtCcvXr10itScWl61mwBqiFn4S0Ib86JktFr
byIxJiZmyJAhlG/OiwsnEJsy4brcOIGTmppqtoQMZ8alzR4E0zxcuXbtWs6p
v3EugZjESZQ0iMpCa4WHh9sfoTKDWDvhfJNAj3evWtpvf15DPD1nc0LQGps3
b65Tp476ydCzZ8/i9soGemL2inJYGFz8U1mlJpZwREdHi98KBiSbqXXRuXPn
SG4UUJogpYqH+5TiSJRp+kfYaBufUwzqBSRdgNEiIiI4P33hhMH94yyxqIOw
MvRS4lF5oorbhKCVjQLQkAMGDOBmXXnPl5n/m4GrExfW09/WMHR+a88RwuzY
sWPiYAzOP8WqRTirS5cu1Eq3bQOvIEmq11B99NFHLVq0QA9TctKVY8eORdzi
3tQO4t1MTu5XwJqzxDvpxIPbAqVLl27QoEELL/iD+8VRKYUsOIUowCs4Brme
kZGB9Wzu6yIogEu0bNnS1xcMnTp1ihCjtUrLuQvRbBpMNVSrVi2UKjLDsL4Q
G0To9/9XYLGvO3HRtm1bSBy9gfajluEuyBWhoaGoYmrzyZMnF+87szxe1woM
DJw3bx6qG481HMxUHiY1g+YVVBAfOU3ZIVkNkmpsbGxUVBQKMC0tDZ2wcuVK
V7Z/F5Nizt8e4vEOmyAaKYFtLoQgOeMhzmdvxdu1sInC6WJPHjxWeWZEs68U
OYe4UAY90MykYhKg+CemyM7OJn9yL1AMh8XFxeH59Jdm3Eys9aU4UoS64DvD
B7sojcWLe0JCQkiJnJa+5udo+PT0dKyHn+PwTjrCP85SVuMbgmBXniWkbYh/
ehmHwe1xyFmzZrn1GgIL/zcE2ZuU7mRgSu/81p4jJrPUG0yhuCifRXfTEoSl
RbwbAqmgqVIRoklJSZhCfRjlFbHvijawWWf5DZIz9fKaNWs4v7KRsq8ZGylo
/VyY6xDPcVCdJSQkkE/IBpp12tbvfCTpnTlzhkAmUUPWONX58+cfnmk+AXjk
9OnTbu2T4/FWtX369OF+ze70/v37aAl638VHU9HMDRs2dOWNReKdSugNm4Pt
pEokrvMxSWK8Y8eO6swj6ibl/U2ioIOVlDUwMD51mSJZ8/LyULaaN26QlzIz
M+Pj46EVmMtwoQs1F4xDVIriSFjAuligDZxWxAUJH0nm4nSAu3s3mYFEhGbD
aA7f7KlBgf6vQU5ODlrCSSzond/ac0R3K7WweHkKnF4Yj9OStClqKMEIeSez
V3oUKmeJ120oAlIMuGFSn9aJYXZKyyJ+zfH69evRk+LVUfQs1EPFodao1pz1
2IKeatOmjVsv9CkQdA2VztChQ/1eXK1Bfn4+9YjNJ0dI1xEREQ7n4zzeDXKR
vuoxE7EthvKAFRmGC4kXFGZlZUFGCxYsUKZOOAZp3bRpU5sb3qohFrsqCwLF
W1S6du1KhKLA/XgBlkNQqvTv39/hOtJihH3/x3XFnsl+l6WGzm/tOfhY9+7d
p06dKrI9lB0YGIgyd/0lOOLuNFOHbqFQOUvsc67sfiC25PJpQa/HW7Ei5wpb
eqkhuFXZEgHLTJ8+vVGjRmJZuIDkLEPQxQRIkT16dvXqVVKEMjjvHPR1amrq
kCFDChwv4siUlBQcw2HgiH2WkpKS1EFBDhnhhRhLefvtt6tUqUKCotinefwE
uuzUqZPIjdQLCFrD0bwCQYSWK1cuLS1NRCj/rFy58tixY3F1gq5YXjrwsA1H
+AT7/s+RiHkn+wQaOr+155BLyfZiQRoHTJ48mSzn3w781hCp3q2XpGhQeJwl
glq9x/snn3xCHerrWw6JI3ygKN9jIiazlKWGQnw2btxYPQokOcsMpNNu3boV
gUQXe8fFx8e7MkiuAPH57LPPHjp0yPowyqsBAwaYraOzj8OHD1PX6AcYr1y5
0rt37+Tk5ISEhEWLFs2cObNLly6TJk0SG5BCW9OmTRszZsycOXNohn/be4oI
LVu2bPPmzad7MXfuXGqukJAQLuSiEnisYNP/P/30UzrU74FlC+e39hwYKjw8
XGxl9vLLL7s7OqpAvI5H8wpOt1B4nCUWp6nXYW7atKlatWp01vte2DnJ9evX
ExMTi3is4NKlSzVq1FC2Ebh7925QUJDmPfKSs8xAEJH9iJTCFsxHjx4NDQ0t
jPckwiP9+vWzLu2/+uorFLXFzv92wCXCwsLMNvTGgF9++aX6qW3Nbkv83Ik2
wJ+R+mQwnDk/P1+5EKd9yF+m8zDDpv/v2LGDMsTvQTlr57f2HL69efOmuw8l
qQFPIaWUR2lch+CsqKgoWPjMmTPuvuhq27ZtSDixegErderUKTAw8NatW+np
6TZfnkJYFZ5tzUBhWL9+fWX1L/V15cqVs7OzxT/v3LkD4dIdFOaSswyBF40f
P3779u2FVx1//vnnkZGRhjsfOgdBQWk/ceJEi8ExvHrFihVOSjxOjhL275Vh
rgDJXa9ePZu7u0vYhx3/J6voNzWyiUJ1fufAn8nwDh8ctj7/vHnz6tatW6tW
rVatWrn7TjcY55VXXomOjkZ1wIx0YnBwMFXqqlWrCvulBk6AqZ966ikxEQ9D
hYSExMbGiolOnDAzM7NOnTo1a9Zs0qSJHD8xg3gNWSG9LF48EFSozwsQF3v2
7CnU/kUU5eTkFBdhebxps1q1ag/Ja4N+Yyg8/y8C55eAAqithOSgaCr6xUi+
gqZCWGFhYQsXLqQCXbZsmevraiQkih07duwIDw9/dBfpSUhIqPHjjz/euHHj
kV7FJCEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEh8ZjgfwC5Vbb9
     "], {{0, 50.}, {572., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{454.666666666666, Automatic},
   ImageSizeRaw->{572., 50.},
   PlotRange->{{0, 572.}, {0, 50.}}]], "Input",ExpressionUUID->
  "c8be2fc8-38ba-4d27-abe3-ec1cdbf10dfb"],
 ", FieldNumber = 4"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 3.831807216313492*^9, {3.8318079460699177`*^9, 
   3.8318079563486733`*^9}, {3.831821408066439*^9, 3.8318214084299297`*^9}, {
   3.8318256995252156`*^9, 3.831825699962925*^9}, {3.831828846201292*^9, 
   3.831828866213798*^9}},ExpressionUUID->"53aed0f2-4096-40a6-8120-\
8957dba1b693"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
   3.7676307019645357`*^9}, {3.8312294412605715`*^9, 
   3.8312294413324594`*^9}, {3.8312298277474966`*^9, 
   3.8312298282274446`*^9}, {3.8312302811942577`*^9, 3.831230284539338*^9}, {
   3.8318079633937254`*^9, 3.831807963505604*^9}, 3.831828876014092*^9},
 CellLabel->
  "In[344]:=",ExpressionUUID->"c51e84ea-110c-4eb9-affe-63b5100fd553"],

Cell[BoxData[
 RowBox[{"G", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, {3.8312302820259466`*^9, 
   3.8312302849002533`*^9}, 3.8318072239900155`*^9, 3.8318079668343773`*^9, 
   3.8318080664900227`*^9, {3.831825542640394*^9, 3.8318255832442617`*^9}, 
   3.8318257279495864`*^9, 3.831827811319681*^9, 3.831828162074024*^9, 
   3.831828876889188*^9, 3.8318289990687933`*^9, 3.8318343766595974`*^9, 
   3.8318397990019536`*^9, 3.8329475115916667`*^9, 3.832961796143358*^9, 
   3.8458268886596484`*^9, 3.845852479125555*^9, 3.845857089444318*^9, 
   3.845919637037447*^9, 3.8460065879252205`*^9, 3.8460998997390633`*^9, 
   3.8474704621002984`*^9, 3.851700647393368*^9, 3.8539754628146887`*^9, 
   3.8549774231100416`*^9, 3.854989275451099*^9, 3.8549999131612644`*^9, 
   3.8551652627665944`*^9, 3.8551823314967422`*^9, 3.855185875439062*^9, 
   3.8553306536917443`*^9, 3.8553398585584126`*^9, 3.8553431958341312`*^9, 
   3.8553440297238054`*^9, 3.85535275638555*^9, 3.8554496199265547`*^9, 
   3.8555076212768583`*^9, 3.855508418855728*^9, 3.855512907161545*^9, 
   3.8555333385734043`*^9, 3.855578932780672*^9, 3.855593304828354*^9, 
   3.8557506172689476`*^9},
 CellLabel->
  "Out[345]=",ExpressionUUID->"394d8226-dec6-4a6f-9741-29d8f5106695"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], "  ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Gt", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
       RowBox[{"Lap", "[", 
        RowBox[{"\[CurlyPhi]", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.831230293795329*^9, 3.831230299121489*^9}, {
  3.8318072483544436`*^9, 3.8318075086103964`*^9}, {3.831807641331113*^9, 
  3.8318076496432943`*^9}, {3.831807851091679*^9, 3.83180785513081*^9}, {
  3.8318079768588448`*^9, 3.8318080340025797`*^9}, {3.8318255020874166`*^9, 
  3.8318255724996223`*^9}, {3.8318288818841896`*^9, 3.8318288972621326`*^9}, {
  3.831828932520444*^9, 3.8318289903951263`*^9}},
 CellLabel->
  "In[346]:=",ExpressionUUID->"82688c43-8705-4332-8b67-3308cba6b081"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.831807825939827*^9, {3.831807866162796*^9, 
   3.831807866297452*^9}},
 CellLabel->
  "In[347]:=",ExpressionUUID->"d1bcf5eb-8025-4e07-9aa7-7b0a1ee60517"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, {3.8318078154905806`*^9, 3.8318078284346147`*^9}, {
   3.831807862437693*^9, 3.831807867464693*^9}, {3.8318080495078526`*^9, 
   3.831808067116417*^9}, {3.8318255435181837`*^9, 3.831825583941395*^9}, 
   3.8318257285908012`*^9, 3.831827811882376*^9, 3.8318281626389136`*^9, 
   3.831828999179249*^9, 3.831834376722125*^9, 3.8318397990612984`*^9, 
   3.8329475116365967`*^9, 3.832961796197215*^9, 3.84582688878461*^9, 
   3.845852479179776*^9, 3.845857089487834*^9, 3.845919637107234*^9, 
   3.846006588017101*^9, 3.8460998997859297`*^9, 3.847470462185231*^9, 
   3.851700647471475*^9, 3.8539754628802347`*^9, 3.854977423189706*^9, 
   3.85498927553584*^9, 3.8549999132237825`*^9, 3.855165262842521*^9, 
   3.8551823316060953`*^9, 3.855185875491482*^9, 3.8553306537881002`*^9, 
   3.8553398586209035`*^9, 3.8553431959278336`*^9, 3.8553440297904997`*^9, 
   3.855352756429687*^9, 3.855449620017757*^9, 3.855507621332176*^9, 
   3.855508418919365*^9, 3.85551290727916*^9, 3.85553333865422*^9, 
   3.855578932839538*^9, 3.855593304859624*^9, 3.855750617331478*^9},
 CellLabel->
  "Out[347]=",ExpressionUUID->"09b9d6e7-66d2-4353-90f4-0a535ccd25cf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[348]:=",ExpressionUUID->"53708261-c1d7-445b-ac0a-bcdf9c898ca4"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwFVXahgGDAQRUQHYEE5CAkUUWRQSCCAEhkLBJ2A0EiExCCIFMIgga
MDAJShATDEnYhCDMhMgi1AxhZFMQCwi7BThAiTJUBAu1xqmZqfs//z1l/z29
pe/tvln8+63SunR6Ocv3fe/7nXP69BNRc0bOqFGtWrV5tfjfyFeT+ickvJo8
6hH+MSZuXszMuOjpQ+ISo2dGJzwX9QAHO/HfMM7/398uBw4cOHDgwIEDBw4c
OHDgwIEDBw4cOHDgwIEDBw4cOHDgwIEDBw4ceI6vv/76vffemzx5ckJCwqFD
h/7zn/8oTjh79uyWLVv+9a9/VUjxHDj4reL+/fs7dux47bXXpk2btnHjxp9+
+klxwt27d3Nycm7fvl0hxXNQqeAEai/w448/Ll68OCAgYPjw4WPHjg0MDKxW
rdqAAQOOHj0qGvDevXtpaWkcOXXqVEUX1oGD3w7wr48//rhz584vvPDCxIkT
n3322Zo1a7Zu3XrdunX/+Mc/OIFItWfPnpCQkLy8vH//+98VXV4HFQknUHuH
GzdujBkzJjk5mfYRR3CrXbt2devWjQZs0KBB+/btGzZsGB8ff+fOHb2bIERf
eeWVYcOG8aO8Cu7AY5AgOOqu8gAWW7p0aXh4+Pnz56WDFy9enDBhAkzn7++P
6zVu3Lh///5ffvllBZazqkOtDaqiF9gSqCsQ9MLbb78dFBR09erVcn70N998
c+bMGfVxGvDYsWOrVq3Kzc29fv268U3w1vT09IKCAkdqVkJAbZmZmXFxcThI
REREaGgows/Tm3z//feDBw8m/P7yyy/y4wjI7Ozstm3bOtLRU/z88890hKI9
BYgDJG7vvvvu8ePHfxs+pWc/gPjToUMHKqsedrMFGRkZLVq0wPJjYmIiIyO7
dOmSlZXlo2f5DrYE6goEDb59+/bly5eTjVZ0WRz8poBppaWl4dp37951uePq
qFGjWrZsefbsWY/uQ4aemppaVFSkDg579+596623JHnpwIEaBvbz9ddfJyUl
lZSU+OK5PA75Xa9everVq/v5+fXo0eNPf/rTb0M2OHDgAPzzn/+E4OrWrVtc
XOxyjxiQzdWsWXPr1q0VXTQHDnwOMc6wa9cuLL/K5W7lBlrmz3/+85IlSxYv
Xkyq9be//a2iS1SJcOjQoYSEhPDw8NjYWCkJvXXr1ooVK9544w1aDJHvmJZ1
fPfddxcvXvTuWrrj888/F3MQUN64ceMee+wxaYqHIydPnhQrHHwHK+U3g0uX
Ln377be+u7+DisUvv/yClWKrnl4ocZzeCaWlpefOnbNWuioPBEBMTEyrVq2I
5JMmTZJPEFsHfff++++/9tprERERly9ftvHO5YATJ06kpKTcv38fE2rSpIk0
y3PlypXJkyePGDGiTZs2/KiKM7yVCpgcuZino4uaOHDgAD21dOlSqVMIAps3
b54zZ84PP/ygecnNmzcXLlw4fvz4+fPny5e1Q52LFi2aPn36oEGDLly44NPy
b9q0qU+fPhKL3bhxg/J89tln0gkUgCM+Gu+Sg+biKWvWrElNTaXdbF/Pz/3R
A7SYGFuWQHj/+eef7X2W7SAUkA5s376dyCCNXevZD6Fv7dq1GF5ISMiHH35o
oIS5bXx8fH5+vhdqWXAc9yfMchOSFMWaB5Q5xzds2FBFpTh2UlhYqH7fxCPA
cXDQ7373O81RXFoGB8SFX9ECmnnmzJkrV67U468dO3asW7eOZm/dujV9YaWc
ngIjTE5O1iw2wCZJ0Kja999/r3k5TofBoJ/5nZmZSWqgCGK0zO9///tXX321
TI7jTGxs4MCBnTp1atGixQcffGBXHSstsKU7d+6Y0aWEiLCwMEKHlcfxIHwc
MnrkkUcyMjIUPcI/idgLFixQrwcgvyMfP3Xq1MaNG5s3by6ZMZ6VmJhIKIZ3
goODOUcvRFgvP6UaNWpU3759JRZev359w4YNCaTy0/76178OHz4c+vP6QWWC
m6PZMGl89o9//CNBOzAwcNmyZdazYMI4lXrxxRepV8eOHQcMGPD888+PHj36
iy++4K9UPCoqyiAZ8R3MG+qxY8dIAShn586dq1WrVqNGDfQPQUbTfrhtVlYW
1MOdZ8+eTWUVnC6B3ieMcBMvkjgBwm9oaCjWgp3v3Lnzqaee2rt3r/wEhAoG
9vHHH3t3fz1cu3YNXnjhhRd6mwZCDqLRawo1aMakpKTGjRtbzI+MOc7lnjOl
6WAEf39/OnfatGmo5aNu4NpoFVzvwQcfHDp0qELuIsyWLFlCENi6dWuDBg1w
Uivl9BT0+JdffontYQAUu379+lDV4cOHKfaRI0eKiopwXsz1oYceQobpiXzX
r8Nfzz33nKJrzHMcuH79OkED86tTp84nn3xiQ/UqArRSbGwsZI15652DQ82a
Nevpp5+msg8//HBQUNDq1av1JDrHaUAc3JZZcm6CjfHEGTNmKDoUJYN9IpUV
l6Bh0tLSUInE9h49epSWlorjBISCggKX+4VT5M2qVat8V/5vvvmmffv2c+fO
FTfBnHAx5JAih+Kv5KdTpkyxqGn1QBNRl4MHD8oPnjx5sl27dikpKV4PVnAh
iU9AQEDbtm2JFXInImEUsRc50apVqytXrliqgIfwyFDJhmB8sa6PjiDuEd7z
8vJQQZr2w5nIqp/cCHVDr9cIUGizv//9715XBBkmtSrBCiLu0qWLYmSbiAfF
2Duc/pe//KVly5aLFy9eZRpktZiBQfRQ4LPPPkMU0TvyMQ0vUCbHCcB02CFc
RqzWLAxG0qRJk/379yv+hAgcOXIkdF9RK9NI1vz8/J588knYVvEnTGLNmjV1
69bt378/oUbzcqwF5YkYU7i5RxwHMOOuXbu2adOm6s54nj59+tFHH3388cf1
nAWXj4iIkFZ2QTQxMTEoXnpfc90v0Y/IoO4XK8jOzqa733rrLYU9E0u7d++O
Gasvgenw1jfffFOdrGE8VJkQofksW8oPL/OIbdu2iX+SVnTr1m3ChAlqYX/r
1i201kcffWTlcZqg4kR4bq5+7eK9994jO1Zwn0lgANHR0TVr1oTBNd0fg4Fi
qlevTopXnouuPTVUCNFgtsXAfrA3/EVvHIBQgE0WFhZartD/4Q9/+APJiOKe
xCjUKX2h+SqHd4Dj6DtNh9LDoUOHuMQkx2EPZPqkJ7Vq1bKY45vkOLqjdevW
ehznciveJ554omnTpsePH5cfJzDCfRkZGRU1IPzhhx/iZXCcJotRqg8++IB6
obU0k2jiGyFo8+bN6gs94rgTJ04QK8gmKv+8gx5Eavzdd99p/hWlGhUVRYIs
P0hlX3nlFQyVoK2oOIlD3759kcFWDANHIDuTR2ZS9Xr16qnz7vv37yOYUeMK
O+fp7777buPGjdVvwFFfXAOv1FzvYUv5Xe6ghNdIsoFioF2RXuozeRAnP/vs
s7ZPkyFEX375Zbpp0aJFiuqcO3euUaNGpJaepnIUcsiQIXhWenq63rX0xbx5
83hucnJyua1499RQXb8aDzmLupAG9gMIzkQPzRDNhXDfSy+9ZDCIVCY+/fRT
eHnPnj3SEQrzwAMPqIcsSMkDAwMtTgrI4WuO27p16/Tp09u1a0d11q9f72Up
3bCL4wBkgYQmJ5LCC/2Iom7evPmFCxcIRLt377ZSVO9gzHEut3kj0lBxy5Yt
U8crYcDqtUmechz5BY/QFHu/DaBt0AlqA8bBUWINGjRQBIGdO3cGBARYXPS1
f//+OnXqyCez8CM4rl+/furQkZWVRUqumNIiv+jTp8+IESOIY3l5eXKfxYzh
ysjISM25ElvKj64eOXIktCXNC1MGtBDOQkUII4rzSUB4KPmjlYeqIRZXv/32
22oBQ/IYFBTUuXNnj4gV7TFx4kQoIzEx0XimiWSqfv36/N+bcnsFTw3V5W4f
CE4t4F2G9iNYjLCpSQSEo06dOpEmW6lLTk4OCkSyB56ISqlbt656Yghmp5Bo
Fa8n/hTwKcfdvHkTsYGi7tWrF1aEtLNQUjs5jl7r0KED50gDL9AH+gcvJlzQ
3RWyirVMjnO54xXmjWZQDCRiD6i7559/Xj3S4hHHcZ8pU6ZU6cm4MrFx40YU
Dh6nWCxx+fLlxx57TPHOGg0yfvx4dL7F2aWvvvoKHStNstMpqampWOC6des0
d3Nt0aLFhg0b5AexSTRMbm4ut0pJSZGPmJWUlFDy1atXq59rV/mxSSxTyjqJ
GF26dEFv84OKqBdS8jgeik36+m0ICbAecYl2oH1MXiL2NULR9ejRo8yZJtg8
ODjY/M2twyNDlYDxNGvWrHfv3ooaGdgPnUX0Gzx4sObQzebNm7FGi8uJSf8X
LFggybk7d+4QrCZNmqT5xMzMzCeeeMKueU/fcZyYesaFqYUYXiDZt5Lm28hx
YnkGRSItEj7IPcnjiEIJCQlbtmypkBTGDMeJYXOSYnSR/LiYjIuLi9McozDP
cfgFsQsDq8zb0VgEMrh27drkIMeOHZMfx6cQwLStnFzQafQIYdy6SRw8eBB1
SrqN06WlpdHIqD7NeQeEitgcWC5lS0tLCUQokNjYWIUGIxg++uijiurYW34K
j+omtKJayfFnz56dn5+PyeGPmrUQJO47QyIZ2b1796pVqwoKCsjgXO7lE23a
tKEdNLda0oTQEsQKsW7HGGQco0ePLs+dYD0yVAnYzIwZMwhuc+fONWk/BPNW
rVotWbJEbSRiZREJoMVVCmLXawpGWKa14VNKojeb8Pnnn8Psdm2P4DuOQ3tE
RUWh+mglAixtrvBZT2EjxwkHpEgBAQGSD3KQ3xW4FZIZjkMIYW+UfPLkybBz
cXExmR0NUlRU1KBBA8VaXAFjjsPN+RPOi9pPTk7GHqruZBzSFFk+derUkJCQ
TZs26UV1muvkyZPibQs5xOAhkVy+bmH//v2EzTJHqJDWCxcuJHPp3r17Nxn4
J20rLfaACw4fPrx+/Xp6yiBxoKemT5/etWtXxTn0OH6ncCJOjomJefrppzUj
hnH5uZaG6ty5MwGTaA/zKvodvuAOtOSKFSuIq+fPnydW4GLCBwn42KpeO/NQ
Hm3jxIoAsTopKYm2JSbDOxDBnDlz8AIxj9ykSROT+p9mjI6OxpXk6wwNcPXq
VbyjPNWvR4YqQPhKT0/v37+/v7//Qw89pJhz0bQfl3uZEz2lGT1u376N6MUa
9RQyJRw+fHidOnUoT2RkpGJ8ifJgYJJR0c4Uadu2bfSRQUuKQQOLOZEEH3Ec
0WbWrFmiCygnMRZbCg0NtRI5beQ4l3tKrnr16g8//DCawesi2QszHEeQDAsL
ozHR+Rg/HREeHn769OmePXvCUJrjQnocx3GUEvotNzdXbLBDAvvMM89wc1vS
lnIGtSOhQCLyIz4+ngzCo3WhtEBKSgp17927t/xVxPfffx/3p4X1Lvzpp59g
twfdaNu2LcGHm9CPnTp1Ig4TP9GuZkKoAkQqRIvBABEOuG7dOoqKtWAGxHlN
vzAoP9aC1K9RowYlb9asGTTHb/n7BRjb4sWLoTl+REREyCcTzYCHQjrkreYv
KRMkIIRcIol8jaj41snSpUv9/PyCg4P1sgMFkCXQOp2lmb9UWugZqsu9aByT
owc5TpbEOaRLeqtAsVvS/5KSEqGRMFfNdrt48SLJu940E9KCLiaQIi2gOZ6I
ApcLs8LCQsKLp81LmaHpgQMH2vL6iY847qOPPqIjJMGAnVN9+YS1F7CX40jz
8Qj6RVO9VAjMcBxNOmbMGBoTm+Q06kiYoln27dunJ7T0OA7xVr9+/UWLFknt
KVaD0ybczaCc3JB0iRau5gnwFO/WdZsE0Y9q/uwGeWjDhg092gkHF6Dl0Tzy
utMyCQkJLVu21HMQfHDatGm1a9detmyZCCYIV9QsKtricgvUL72jlwTRlbNn
zyZEk7wQoAgImkOCBuWnE9euXUuV0TnCT/FN8iO0gTSQxc3FO79iwDMxMdEj
XS3e4rFLjbvcY3QdO3bE8tWVJdjyJ8xsxIgRJped08K4G8mOesFMZYamobrc
04V0NEQvWru4uJjEqlGjRnojt+S/nJCVlYUBcEP5ikc5yOKxQ9hQ/SfspEOH
DtiM+IiMeMGQ2IusEifgC5ifF7sBiNUF6nEM7+ALjrt169bEiRPlIwZmoneZ
sJfj1q9fj3CtVBZukuNGjRqFL5NwmTQATY6jlTq4IdfD4s04+fitHu7evUv+
e8QTnDp1ynfLD6hjZmamGJG7cOECWYlHMwhik4datWrl5eXJNScthh4meGqu
yRcr5KGz1atXy68Sb+dFRUVZ2TyNEERKiEnonYACR0bOnDlzzZo1ejU1KD/+
S2qmWCtCOxCyVq5cSXX4jf4RM0H4ckhIiKd7I4g54vHjx5ucoRBBcv78+eSk
6vFG5ASWj19v2bJFfS0GRijGLzSXHKshvQtArKhC74HqGSohF89F6kiWwA8S
PYxTb5gaF87IyCCcJicnG+zOsW3bNhpWvfcIQiIuLk69YoqUYezYsWLWsqio
6J133vEiRxbvwnjUNYQXzJWrKKriibZznFiqlJOTI38QkoPswPxQud6dbeQ4
IgMpNol25fnelhmOgyaGDBmCb2LPJt9FVXOcNB0p7Vkh8MUXX9Agw4YNq6jJ
uK+++ooY9bppEI3FAAs1Onv2LJ7FD9yqRo0a6enpJp2L0/Lz83FkLlSYllAU
Xbp00VyOTp5IJjVo0CDFCB7ehKIODQ21wulkcMhsYojXd3AZlp8gqXBSgUuX
LsGbtCQqfcGCBVYsQUgmEiuTHCe2oBw5ciStp/6AI7GLfFlzhwSXO91Ar5rf
aEJ8BkKMrWkOwMIRJC+kJGS7ubm5NFeuGwa+SfkJdGS+Jq134cKFBQUF5pco
6Bkqx0nfoDP5S/c4+9SpU61/2IInorXUO2agJOXbv0vA5jlOUEWToCLUk4lm
IBQIfGH+O57EgRUrVsAy6nU4tnMccXLgwIE7d+48IEN2djYWSPxULIL1CDZy
nPiyCRZuVzpsC8xwXGlpaffu3Sl5QkKCySEgNceJMUnUoEKe4c6wQwVOxm3a
tAk7MT/+2bRp008//VR+B0JTv379xOoIkw/Ff8UAi7o9EauEaM2UWbxSRH9R
ZsWfRB43evRoKyusxFiTxS1DDcrPEU0K5mBiYiKxheTU4vsjwsyQTOb3rBDj
zC+99JIieNKSYt3apEmTNFuV0iJZ+/btazJ55yakG9yQx2kWj8JzTxwnLCzs
gQceEGwIlRjPlU+ePBkPMmm9FBilan6uVs9QhZYICgqSl02MZqMK9AYhTQIh
hB2qB7ugML2SwzJw9/Hjx4kk3g1lUEH0lUevgbjcU8+aY7P2cpyYnggPD5/w
34iIiCCi0uBWJr9s5Dg8CD/CzLhb5dmN3wzH0YMNGzakJaUVU1ga6UxcXNzy
5cs1p2jVHCfytccff1ze72L5K0JIrdmqEDBOhC78YjKHoilIc/QWYYp5Ac1l
DGJ5v2bGgXKmH1NSUqxIBfiFiqgJ1CMYlF8POFdGRkZRURFM58VSGTl4aKdO
ncaNG2ee669fvx4QEECOo2g6EcahD03Sp6+JMLS5+bRXUAARYMiQIcamQoRE
d8k3eKkQGBgqqSsJLB0tb2eRqEITxp+iKBM8kTzOI6LEBzGhtLQ0vZ3lygRG
OGfOnFatWpknJrEBZs+ePdVLPuzluO3bt2vumi62IPDz87PiszZy3MmTJxu5
IbYTryQok+PEBBCePmDAAGmABQ/FAokMY8aM0VSkao4T+yQoRjsJIwj+wMBA
MRln4PhiUyC8/lFPQL0OHz7sdeOYgVhiIY3PUF/jDOLSpUs0wo4dO+Rx4+jR
o5JVcIeZM2fSJup5c47Q5uqlhuJ9Is113R4BV7K+q4ZB+Q2Ql5dH/IdNLKbz
N2/ebNeuncGyczX27duHqezcuVNxHKdGktEgmiZUUlKCNUKC5qkc5ObmkqBp
RkU53nnnHRIuze1oyg3GhlpYWOjv769YHUqlqJr5xFYPqB2a3aOtR2FVrG7e
vHlev0uIwURFRXm0fuP27dudO3eeMWOG2ths5Lhvv/0WJtWcvhR7DaGayDjM
P0gBuziO6D1x4kTs9o033qg8SZzLBMdduXKFeEUQUMz+Y1RNmjTRa1s1x2G3
cJzidUWR3IWFhdE+d+7c4RKDT0sQvvCsj0yDiE1i4uv3Z5FSHTt2lAZt8vPz
DTiCc1AFinAqZpMleqLpli1bRuKsFsPCzEaOHKlIUlD76E/SCovLnrOzsy2O
7bsMy28Agj/5l0X97/p1Ow71IhBaHpU+a9Ys8UZ8UlKSGJIS08SYd1xcHCQ7
duxY4rZoRvHCFKJUHV6waoRN7dq1FX1d5qfuuBW8adzIIkP0aGrAdpRpqHv3
7qX6il1ucOcGDRpY331XhAWPNvIiTEEQVqaSkaZDhw5VC0g9y3G5XxunnHQx
lsNfJ0yYIA2w2MVxtPmKFSv0tJ+0UoJSeW0q5jkO09XjOCISTgeV0Br2CjPE
JI1PMPe6gsYch0YdNGgQxqxu5IKCAuyZftG8rZrjzpw5w/nyIzRLYmJitV+3
usVg8KCKcmqvgbPXqVOHXqBedC410stfULn4gnrkHOOBtuQT5bQtvqOej+D+
ISEhiu2P8M2YmJg2bdpY3PhIvFJqyyYheuU3QGZmJvxifREsEZhHK7YQOX36
9DPPPMMjqCP8haaSXt+jJYcNGybeWMcI0VFQLUmlyx1AiPOafHTgwAGOx8bG
ynN2M5+6owBvvvlmjRo1cAS9yh4/fpyr8EpffEPBDMwYKpzSsmVL+ScDxHqD
4OBg61/KwAKxQ49eGzl37ly3bt28W20iUFpayh0Uc68GluNyT8aRlc+dOxcr
wv2jo6PHjRsnfNMujjt8+DBGqDeAL9YwE0KnTp3qdepkkuOotTBLxbprnovT
hYaGQn/z58/XXJRooBOMIUaDqSBS0+B9YQNgnyRiZJfqFbP37t3LyckhcrZo
0UIxXuFyN0t8fDzJi9jRSPPOCo6j60ePHt2rVy+RqXEcC0Gv0jIINiERi4uL
vahFxWLXrl1w3Nq1a13uNzSFO6hPE9u5660EUGwYcv78eXJkzd31N2zYQMom
DWxiA0uXLkWi6IkN8xBrRaxvMukyLL8mxMuPglksAjHWtGlTOd1jb/3dENQj
vIZoJl6wEpNx0lpfsWSFSCWuFYyJJcsDCGKMCExvKtzZ5Kfu7t+/P3HiRGLj
vHnz1GN6R48ehXMpbbNmzaxEbK9h0lCpHQGNtpIiAM3SoUMHxQcLvAOxAjt8
+eWXza+wpd2gGCsaiRS7efPm8szU2HKkr9GJ/hVLVsh0RCCF4zCGY8eOXTcN
8iMaUOI4sRM4lhYZGak3/UH7iFVMVr6+ZMxxYntM2E2yAUwXedPWDX7gIBQS
/tLjIGOdYAwaITc3l0e0a9fOU8lHN+FKtWrVkkpOskZRKXZgYCABitvSm8uX
L9dcAioWP3Tv3j0uLo72ITYq3hDRez+OCuJB2dnZpB4bN27EirATUkUEYWpq
qo3fbyo3ILHwRzJ09Dk6Vi9P37x5s5+fn17ooAXk7ix2a0ehqRdO0J6EcRo/
PT0dfxw+fDiB1CO5qAfxzrX1r+G4DMuvCULTjBkzrM9TC1qRgpIACRp2Lg2g
ic1RpQm7ffv2YerS8MvVq1cRdRMmTBD/5BKsFHegLtu3b+e0mTNn4iOrVq1S
h1/zn7rjWtqZ50LHMB22UVhYSAnpTejvwoULJSUleFZ5blMpwbyhUjwMfvDg
waSriHPCLLWwZXW0+CCLNE1vBkRC8Yql1w9FydMdciM0thwxGSd9Vkl8I4Nk
QZSZ+2A2es2oB/I4MZ5GS0If0nEMSTHORq5NyoC9SeegtNFmXsyEmszjvIOx
TjAPGsT4vTzbISbjevbsKcafhQKRy069fU5oRvQS8kaKQhzBo7lhFdraSAHM
+8SJEyQvdlVBrPMJDg7WS5MhhZMnTx45csRg+tJT7NmzhwzR4mScQJnlVwDx
g06wPkZKikEUktM01pWUlCTfPU/MGRESxT+JYEQ2yXSRaiKsyW9LeEFOoMoI
6TCdnnua/9SdAH2HNE1MTCROxsfH5+Tk2KJVyhm0+d69e4uLi+1lZMwbazSZ
FYodoSV14QWwk9jYWPmyujItR6w2l9bcYurEQO5QIcrECnzKccY6wSTEZ0w9
3Q7CIsSEi7SxDxbOP+VfSvX0+3EOFCBUki/Y/ik0PdBNRAmUoV1v4ntUfkIZ
KYz14IBDkYrKtZbYvEI+ybh27VrULyH04MGDBw4cSE1NlV7lI1Tifd59YMXT
T905MAZ2SHua/KAb/BISEkKfev04MQ8rX7JibDkA7iPll156QufXq1dPc/+x
Sg7fcVyZOsEkEB4pKSma+z75CGIyTr5MBXf29/eX73fkcJxF0Mivv/76qFGj
bNkhtkyQhD711FPGW4Z6BPPlF46wYMECiy4m9t2aN2+ewuTy8/MDAwPFgMO1
a9e6du3avn17MsclS5ZQa+iVI2KZEElcy5YtNbftKhOefurOQZlAOcM7Zr6q
iYTo37+/lY01srOze/XqpXgNxNhyINZu3boJFYf99OjRIzo6uip+OcV3HFem
TjB5H7RrVlZWeQ70/fjjjy+++OKIESPEDC8VmTVrluIDwQ7HWQfasnfv3rt2
7fL1g+ijuXPnxsTE2DsfarL8pG9Dhw61/t2u3bt3E6bUA57cnxR13LhxycnJ
eNyGDRs6duwYGxu7cuVKcgSYMTExccqUKYsWLaIYXidcnn7qzkGZoHfopjlz
5hjHEPENJkKN1zv8wFZ9+vRRT/cYWw7PheAGDx68dOnSiIgIylBuX+a1Fz4d
qzTWCWbucPny5bi4OE/n7yzi3r17ffv2lV7eIZRR7PHjx8u72OE4W0DcHjJk
iK+T9E8++WTQoEG++K6omfKT6fTr189gh14z4BFEG4PpG+IYniWk4A8//KCY
wedyKzu3e/epOwdlgtiC/Rhv7wbdTJ061etFuQQoIhXpv54OMbYcBD8BvEpH
OcFx0PSBAweOHDli78dMjXWCyTuU/04IIgMVC4owjPj4+C5dukjvO9DpNBTN
FRkZaeWtDQcut/mRpJMme70wuExcuHAhPDzcylyGAcyUnxCRnp5uJdPh5uRN
mpt/lg+8+9SdAzPAMkeMGGGg+ZHWy5cv9+47DjDXpk2bxGe1vS9iFYd4Z7NZ
s2aNGzd+8sknFd9/twXGOqFyAkYLCwsTn1mZPHmy/K3P06dPBwUFNWrUiBZD
IFW5d7orG2jAbdu22ThTJgfBec2aNd69XGkSPi2/wP79+7du3VqBlubdp+4c
mMSZM2ewUl+M9964cQN99f+Z4BwYgATt2rVrjnB14MC7T905cODAgQMHDhw4
cODAgQMHDhw4cODAgQMHDhw4cODAgQMHDhw4cODAgQMHDhw4cOCgPPE/ChRc
Tw==
     "], {{0, 46.}, {588., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{477.9999999999993, Automatic},
   ImageSizeRaw->{588., 46.},
   PlotRange->{{0, 588.}, {0, 46.}}]], "Input",ExpressionUUID->
  "7bde4e0d-dca8-4d9c-98e0-88a5d1d2c77f"],
 ", FieldNumber = 5"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 3.831807216313492*^9, {3.8318079460699177`*^9, 
   3.8318079563486733`*^9}, {3.831821408066439*^9, 3.8318214084299297`*^9}, {
   3.8318256995252156`*^9, 3.831825699962925*^9}, {3.831828846201292*^9, 
   3.831828866213798*^9}, {3.831829015560419*^9, 
   3.8318290342739677`*^9}},ExpressionUUID->"add65f6f-5482-49e1-b40c-\
71c8c0ad5350"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
   3.7676307019645357`*^9}, {3.8312294412605715`*^9, 
   3.8312294413324594`*^9}, {3.8312298277474966`*^9, 
   3.8312298282274446`*^9}, {3.8312302811942577`*^9, 3.831230284539338*^9}, {
   3.8318079633937254`*^9, 3.831807963505604*^9}, 3.831828876014092*^9, 
   3.8318290407311044`*^9},
 CellLabel->
  "In[349]:=",ExpressionUUID->"ce88ad36-411e-4ae1-95f3-1eba42ea4dda"],

Cell[BoxData[
 RowBox[{"d", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831229441839361*^9, 
   3.831229828980212*^9, 3.8312302289122653`*^9, {3.8312302820259466`*^9, 
   3.8312302849002533`*^9}, 3.8318072239900155`*^9, 3.8318079668343773`*^9, 
   3.8318080664900227`*^9, {3.831825542640394*^9, 3.8318255832442617`*^9}, 
   3.8318257279495864`*^9, 3.831827811319681*^9, 3.831828162074024*^9, 
   3.831828876889188*^9, 3.8318289990687933`*^9, {3.8318290419045873`*^9, 
   3.8318290641648664`*^9}, 3.8318343767533255`*^9, 3.8318397991215143`*^9, 
   3.832947511671375*^9, 3.832961796233119*^9, 3.8458268888315*^9, 
   3.845852479208572*^9, 3.845857089535892*^9, 3.845919637138467*^9, 
   3.8460065880759754`*^9, 3.846099899817177*^9, 3.847470462232687*^9, 
   3.8517006475198298`*^9, 3.853975462926866*^9, 3.854977423252203*^9, 
   3.854989275585664*^9, 3.8549999132706394`*^9, 3.855165262905031*^9, 
   3.8551823316685867`*^9, 3.855185875551568*^9, 3.855330653926938*^9, 
   3.8553398586833887`*^9, 3.855343196005966*^9, 3.8553440298530183`*^9, 
   3.8553527564777412`*^9, 3.855449620063439*^9, 3.855507621381837*^9, 
   3.855508418954978*^9, 3.855512907293747*^9, 3.8555333387040167`*^9, 
   3.8555789328934*^9, 3.8555933048817415`*^9, 3.855750617393918*^9},
 CellLabel->
  "Out[350]=",ExpressionUUID->"13195f2e-231f-4dee-a752-e1482df4e342"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "I", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], "  ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Gt", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
       RowBox[{"Lap", "[", 
        RowBox[{"At", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.8312294636384*^9, 3.8312295617099032`*^9}, {3.831229592566062*^9, 
  3.8312297002207775`*^9}, {3.8312297429807634`*^9, 3.8312297682926865`*^9}, {
  3.8312298366535068`*^9, 3.831229877371009*^9}, {3.831230085969098*^9, 
  3.8312302104355197`*^9}, {3.831230293795329*^9, 3.831230299121489*^9}, {
  3.8318072483544436`*^9, 3.8318075086103964`*^9}, {3.831807641331113*^9, 
  3.8318076496432943`*^9}, {3.831807851091679*^9, 3.83180785513081*^9}, {
  3.8318079768588448`*^9, 3.8318080340025797`*^9}, {3.8318255020874166`*^9, 
  3.8318255724996223`*^9}, {3.8318288818841896`*^9, 3.8318288972621326`*^9}, {
  3.831828932520444*^9, 3.8318289903951263`*^9}, {3.831829047215911*^9, 
  3.8318290581132917`*^9}},
 CellLabel->
  "In[351]:=",ExpressionUUID->"18b1a953-be44-4d5d-bc1e-042bf89087d2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.831807825939827*^9, {3.831807866162796*^9, 
   3.831807866297452*^9}},
 CellLabel->
  "In[352]:=",ExpressionUUID->"7f9f0b3d-a214-46a2-8ae4-8e50834aa519"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8312297952925653`*^9, {3.8312302205102425`*^9, 
   3.83123022908241*^9}, {3.8318078154905806`*^9, 3.8318078284346147`*^9}, {
   3.831807862437693*^9, 3.831807867464693*^9}, {3.8318080495078526`*^9, 
   3.831808067116417*^9}, {3.8318255435181837`*^9, 3.831825583941395*^9}, 
   3.8318257285908012`*^9, 3.831827811882376*^9, 3.8318281626389136`*^9, 
   3.831828999179249*^9, 3.8318290642742147`*^9, 3.831834376815855*^9, 
   3.8318397991840925`*^9, 3.832947511733901*^9, 3.832961796290964*^9, 
   3.845826888909621*^9, 3.845852479280472*^9, 3.8458570896004953`*^9, 
   3.8459196372165475`*^9, 3.8460065881473284`*^9, 3.8460998998640366`*^9, 
   3.847470462326415*^9, 3.8517006475979357`*^9, 3.853975462999423*^9, 
   3.8549774233615546`*^9, 3.854989275659783*^9, 3.854999913348753*^9, 
   3.855165263009365*^9, 3.855182331746687*^9, 3.855185875623403*^9, 
   3.8553306540206623`*^9, 3.8553398587723317`*^9, 3.8553431961120577`*^9, 
   3.855344029915491*^9, 3.855352756591683*^9, 3.855449620143795*^9, 
   3.85550762146852*^9, 3.855508419021983*^9, 3.855512907411858*^9, 
   3.8555333387985773`*^9, 3.855578932955383*^9, 3.8555933049363256`*^9, 
   3.8557506174564304`*^9},
 CellLabel->
  "Out[352]=",ExpressionUUID->"14c8665c-b5db-4ab3-8281-6a62afb7b6d9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[353]:=",ExpressionUUID->"e2fc8916-92e3-46eb-89a4-629ee0ff4077"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdwFVX7/ykCofcaeu9SpElHWugh9G7o8kLoQcDQQwlI71UUCE1AURgR
kC5l6CAMTRyaDCIDMvKOvpP/558z7uxv997N3ns3Nwk+nxmdcO/es2fPec5z
vs/ZU4qEhrUfkCJZsmSjAvhf+w/DG44c+eHHIVn4R8dhowYPHNa/X9Cw0f0H
9h9ZMzQlHw7hvzX88f//jhEEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
QRAEQRAEQRAEQRCEJMvdu3cXL17cq1evkSNHHjly5H//+5/hgsuXL2/atOmv
v/5KkOwJQnwjTSCJ8vfff584cSIiIqJ79+6RkZH37t0zXECV7dq16+TJkwmR
O0FI2ohjFJIWr169mjRpUtGiRdu0adOpU6dixYolS5bsgw8+OH78uLLe33//
febMmXxy/vz5hM6sIDiPNIGky82bN4ODg8uWLdu1a9egoKAsWbKkTZt22LBh
Dx48UBfcuHEDrTtw4MDnz58nbFYFIWkhjlFIcty/f79jx44ff/wxxqk+Idr6
6quvqlativVmy5atVKlS2bNnHz58+NOnT90l8vLly86dO7dq1Yo//JVxIQH4
+++/DZ+8BbG5I00gSWCovreg7vbv39+wYcNt27Zpj6Y62Zw5cyZPnrzwP3z2
2WdvwcMK/05Qj2hL/9/33+MYeS5z1yb4CIEP0RC+18/3ffDgwcWLF82fU8sn
TpxYsGDBmjVrfv75Z+tE/vzzz6ioqC1btohh+AgFGBkZWbp06du3bxu+oprK
lCkzf/5886sfvzF37tzAwMDg4ODBgwd37dq1UqVKy5YtS8D8OIIjTSDxc+HC
hYIFC6IA+/Xr17dv3zp16vTo0ePFixcJnS/vwfDOnz//6NEj81f0wrt27cIp
8f8E0QOC4Dt37twJDw8fFUuDBg0GDRr0+PFjTxNxJy3iHIn6NzhGyvOLL74o
WbLk4sWLvUvBXfHinZYvX168ePF/7Qj2tWvXxo4de+PGjYTOiJCQ0BC2bds2
a9Ysc0d89+5d/NulS5cSJGMxsXlDJGTMmDF58uTvvPNOtWrVdu7cKVFMUuHc
uXPEI1RcsmTJ8ufPP3nyZG34RRCExMbz58/btGmzZMkS5WN/+umnAgUKBAcH
exqjuZMW//KRKJ4aHUtcT6+aLl26+fPne5eOhXL75ptvpk6dmjjd7O3bt2fO
nDlp0iQ6gkOHDiV0dhI7Dx8+nD17dkREBCVGtSb1cbzEzB9//LFq1apJsaxd
u/b169dx/uTNmzdnz57973//6+m9VOD51Vdf4Q1c1umzZ8+uXLniabKCR1DC
3r3pu3DhAkZCvfvnLXziNwYawmeffRYRy7Jly5LQcO7jx4+vX7+e0LlwAHSa
y2H2xAlO77vvvkMD0I5mzZplXoroEq8bLOkXLFiwatWq6uc0qPfee69w4cLa
0ChtGU+ONPUi8bcGr4tXgzLMkiWLWdMmtuJ11l/Rj/PUQUFB7du337x5s1OZ
fAs4cuTIyJEj27VrN3ToUK2Qb9261atXr7Zt29IA+cPTPpT49Msvv0StxUN+
EwUvX77EN27btu306dM+BnH0bmXKlKlRowbx+8cffxznfGYuGD58+Lp167wI
NDRN6+4CDIDEN2zY4Ico5smTJ59//vm0adOItS9fvvxviJt4Rh75P//5j3ez
1pWm9du0Un8agwHK59q1a7/88ov+1vxtKDcCQHoH3NT7779fpEgRrvdzPr3j
6tWrXbt2xeYTOiMOQDV169bND++eqH3usmTJEjwGjQjv4UUixPKDBw8uUKAA
/V3Pnj2piDhv6kuD5ecXL168efOm+uedO3cKFSrUpEkTLTWVflhYmJ9nECEj
f/jhhwR3uT4Wr4Y7TRvfxUu2t2/f/tFHH/Xt2xexahY8CKFVq1Zptuqsv6If
J0RyN5UFw/vwww87u6FPnz7k5ODBg+5Gxg4dOoQsbNWq1datW/1pJ6gpVJC7
bONqyNXGjRt/++03dykgycaPH0/VUD65c+c+fvy4/lueZdy4cZSMR90ofiM8
PDxXrlxJaxoG2SZatDP4eeLECfxhaGjou+++myxZshQpUvTr149gkChs6dKl
WDjqVP/sfL5ixQpaVoMGDb744guDhWCTBPJff/21nUySFDWCNXoxSBvzj6Yl
D+QTuTJr1izzpF8aYEhIyJ49e7xI3yaUFbdu06bNnDlzdu3aNW/ePNomheb1
zC4MGLHXpUsXlw2hR48eFBqRbIJPPaWWcWhej2uhaSdOnLh79+4xY8bQ8HE7
8f3O0Q/GoMGz0M/ibPPmzUsoXb9+/Xr16jVs2HD9+vX4H2W6o0ePdumLDh8+
TGNMEpqWTLZu3ZqIOKEz4hgUPm35/v378XcLEu/Vqxc90erVq3fs2IH9FytW
bMaMGdoQ3K+//sq3WbNmrV69+rNnz9SHeMsBAwagNzRviY3hnxFRNhuOjw1W
D3n45JNPAgMDjxw5ov8ce0aljx07ltyaf+VOWrgcibIJjRp/S5ou7+hPnCpe
d5o2xtviffjwIZVFt960aVOiNvMPuRiviM9Rixpq1KiRKlUqAhbsU9kk9927
dy89/tq1a83G5oi/sta0iEMkK2VCrlAplStX3rlz5/FYcLObNm2iFeTIkYN2
ZJ5/iCqgx0QOqdna/rQTyu3cuXMECM2aNSPbmTJlWrhw4dGjR8n2sWPH6Pto
9RRd+vTp6QrNHTqtDGnx008/8Tc/zJkzp2HowDtNe/LkyezZs2fOnDmpbCZJ
Gx80aFCFChXKlStHtkuXLr1o0SJ3cwBwIHhUpb6wBPqmrl27KrslZMOksQes
iP5XXc/ny5YtQ0ZS2kOGDCFAM+xH5JGmpa5pZThwrx8WAYm1EMuoDT955G++
+cZwDcZTu3bteHo3SoHMnTt35syZellO2NWhQwf8g3f+jTSvXLlC+dPGaQgU
EQ91/B/2798/depUQrZ8+fLRISbU6ARhTq1atXyZ+HT+/Plq1aphAxgnZobq
IyCNb4cTr8agQfW1aNEiQ4YMo0aN0seDNBY+IWDBVvEq69atc/nzhNW0WNTG
jRupGqzL+koqDndKTPo2TYDkWaZPn967d+94ejGHc6DQDA0HGVOiRAnsX+ub
8IpVqlTp3r275lgwqjx58kRGRmpN3iNN63uDVeDTRowYUalSJfSDYdRIwQO2
bNnSbNvupIX1SJQ1FAWqIEWKFDTqhJ0m6lTxxlhq2hjPixefQ+x89epVKq58
+fK0VkOXgWrF4Ako9OP8eEhsD2WbJk2aUqVK5cqVi3gceeYyS37QtAraAk9H
n0hkZ1ZxNBny/M477/CM+n4ExYsgv3fvHhaLpSWIs8KjkrGSJUuaS4mHWrJk
CZ0FJazt92i+pkuXLjVr1jTILS80LZIPcUIZBgQEWLzjTjxglsHBwVqogvIf
PHgwTR595XLYEAFsGIZV0FtNnjyZ8t+8eXO2bNkwWvU5iRAn/hFLs1gMnt++
psXGsOEvv/zSuydV0E61Wqbee/bsibM1KEmqm/C/f//+8aGXLly4wB0XL15s
GGomnqID8qUF4eSJi/Eq0dHR5m+pEYI+ArcTJ054l74vqCEjTMu7AXYFlqMf
DcPS8OTmkMRZ4tUYYmJlBiqdqqGTdTl9l6fG8aZOnTpr1qwYj8tEElbT4vTw
rhjemjVrrK/ctm0b0jdJjCd7xMOHD+k+tm7d6njK9EGLFi0icbNyw4dg/5oo
Qj/geLXF79gVPXXRokXVoI32oU1N60iD1YORzJs3LzAwEGs3333Pnj349rt3
7+o/dCkt4hyJsubSpUtFihShgy5btmwCToR2tnitNW2MJ8WrLt6yZUtMbJdE
8S5YsMCQGn091ujSH6KT165dS05+/PFHCxvzp6bt1q2bO00bE9tpdurUKWXK
lFFRUQbpvnr16uzZsyfUyOQXX3yBR0XTulStZHXlypV0Cggql5uWY9tY+JAh
QwxP7YWmpZ/t168fETSltH79es8fxa/QXYaGhu7evVv/IRarQht6UvNoLTbQ
tGnTSZMmubRYIrj27dujh80hMA2qYMGC5qDPpqblV/y2cePGzr5AnzNnDnGl
WSfjJWjp8fGGdOnSpcmTJ6eTMkyJoaibN2/uMi6zCYFG3rx5c+fO7XJQkXKr
W7cu1Tp27Fj/B55Hjx4tXrz46dOnHUzz/PnzeHK6hvieYRt/xkDOZ86cie9q
3bq1xdsHbp0+fXocuPZa2YAvfQRtdvny5dqkR++gdSPIrV8BYPD16tXjeRN8
HqPj8ER4kho1ang3zdUCaqdFixY0208++cRQbhR4jhw5tM563bp1RD1aF3zm
zBn8rWHjRPuaNj4aLC6ubdu2CG+zPlfdypgxY8wZcyct3I1EWUBhhoWFEaLi
81HXd+7c8e5BYmK3lUb7eW3JzhZvnJrWi+KNiR0qxKKOHTvmSCb1JB5NGxM7
JR5joBD0oz2EYMhF/dxvP2OtaWNiW1NwcHCKFClmzJhhtkNqjbr7/PPPDZ97
qmmpI3Qg8XKtWrUoRrycF8/iTwimqDhz08ZaAgICcD7mjekoEwRtnjx5+K05
wQsXLqCp5s6day5k0qSQzWPXNjUtNVuxYkWvt+BT/PDDD+htglPtE/wA0Yf5
vQxqH/ern4rmFJT2lClTTp06ZfgcGxs4cGC6dOm+/fZb71Levn07gRvC1aXs
V4NpmCWxm581LY82aNAgZJsvL2eRfIRLEyZM0Grk8uXLmCgfOl5HBuLJGGgj
hL00NDzzw4cPLa7E+HFuFm7Zlz7i6dOnGIYfXirt2rWraNGiiXwrCa+5evUq
T7dt2zZnk1U7FURGRpr7bmymdOnS1DtCWjWxChUqqMvu3btXrVq1YcOGGda8
29S0jjTYmNil1suWLdPMkmeZOHEiLigiIsJ8MVeWLVvWMC3ZQlq4G4myACMf
Pnz4wYMHM2XKhAj0ettVSu/jjz9GG3sXTTtVvBpxatoYz4uXTGIq5cqVi4/R
7ESlaVXPyzV9+vTRBp8R+XQuBPv0OxSd/6dex6lpY2I9Kt1HiRIlzBuYYAy5
cuUyO1uPNK2aVUXUg35WkfWoUaMS+bSxzz777J133iHYNwSMN27cyJkzJ0Xq
cosMtETevHlr165tGFmiuKZOnZovXz4CHyJxvUxVo6yFChUyvP6Isa1piTgI
pnxcK71q1SoeVut3yNUnn3ySIUMGbaaEnoULFxYpUgS37Msd7YOp4J+TJ0++
YsUK735OGI7VjRgxwqXVUSlUDXW6YcMGnzPrGVQ63T3l6UsiN2/ezJ8/P25W
cy9Hjx7NmDEjnYsfWll8GMOJEydoZXSv33//vfWVz58/R3ZavNlP/JpWdS5B
QUFv624wPBdP17lzZ79tnYTnRHJgQjSN3377rXr16moyLf9EqISFhZkXT9nU
tI40WG4xcuRIPJI2jqRpWiS6+Xp8Ox7e4J0spIW7kSh3kEKvXr24y08//USh
pU+f3us3Lz5qWkeKV48dTetp8eJzatas2bVr1/gYMUhUmjYmdkSanpH+UZtU
uWDBAoqLf6IW1q9f7/9XS3Y0rXr3nTJlSoSN/nM1i/j99983vy73SNMiC0ND
Q7EELuYnFGOPHj3iewTJR7CKtGnT0hwMcyzpu/PkyUNZudQ/PNSAAQOUfNI/
IGK+adOm7du3pxBQsPoYAYfPV82bNzdPZrCjaSlSbLJu3bo+zuq/fv362LFj
tWFMenPqvWfPni4XxJ06dQoBHE8b3+EVf/zxR5wJCvbixYtYGiVJl0Spzps3
z4sECbTr169PK1BToQyQOB6YxAnJ7b+qc4rt27cTM5qHpj0CExo/frw2oZQC
pH+kyftndxHHjQG90bZtW8PggDuePXvWpk0bdwsuYpKCpiVvVNa0adPevokH
Cp6LpyPwiadzqWjgOEm6Whq4GtXnRoULF0bXXYwF+4yKiqJ3a9SoUXR0tEvV
alPTOtJgY2LHTND5WoHgeerVq0eeXe4hhm9Xi+j1fYqFtHA3EuUSfjg/Fv64
f/9+8eLF3Y3Y2MFHTetU8WqgPejE586da3GNp8V76dIllP+iRYucyqSexKZp
6YszZ86s7z2PHj1avnz5MWPGoGQSZPqBHU2rzSckWNNXq3qFMWzYMHMzt69p
6aEGDRqkpuuTDr/iRgTLdk4QSEDIKiGefhGB4siRIxkzZsyQIYN5VSZNA89J
J5gmTRpCXb0WJbWpU6fScAjPN23apG8gd+7cKVCgwOTJk809mh1N++TJk0qV
KvXr189dRfAUdPrp0qUjz4SWhqF48kwgRl2oHUgQ5Dt27MB60di9e/d21yjU
C1/HB9t5BAqHR+ZxvvzyS9oOXeH06dPJBqI0RYoUq1ev9iJZKjFv3ry4SvPW
K6hB5B8NpEWLFvG645BLKD1iH4u2iaYi0CDz77zzDj5q3759hk1ZqSw1Peb2
7du0sqVLl3777bf0y7Vr1zbP9bKfmkc4bgw7d+4MCAiglbl8R2CAGsRULPYs
ShBNS2Hu3r2bQL5Vq1b079aef//+/agvntrltzQKWiiPQBxNJztz5kyD50Sz
kYKnOfRb+gqejmd0fN41EU14eDgeA/9JRVNTYWFhu3btUkomd+7ct27dQsTy
B10Vbs3CTuxo2jgbrIIi5Un79++P16r6f6levTpZpZMlWEM1cUfELcWLoKpY
saK7lf4kiEusXLmy/vWfO2lhMRLlEqQv/b5KmfIkk3TQXgs2XzStg8Wrjuxs
165dqVKlkidPjvNv2rTplClTXL4K8ah4Y2LjEYzZ5YLiP//8E8Vl7jfpXMhw
9uzZEQYdO3a06GsSm6a9efMmpcdlCBjtQ+zEuo7iFTualvbVunVrso3o+u23
3w4ePIhbwMBwy9myZXO5etq+pt26dev48eM1qUw8yI1q1KhhsTVuooUy4VnI
P5rBkP+TJ0/SprB/PkcNcg2yUO9CKTGicrOfQUnSQFwWsh1Ne/36dWJGd/OT
qUd8O40ar46sJVcEL/qWix5Ys2aNpm2wVW5HL0BfYDFqpCagNmnSxMG3pQRW
tHrkvb7jUztj42Dz58+fNm1a/XRf++DcUqdObVidx998jg+sUKHChg0bEuSt
gVrkQkm67Grv3r1brVo1qowwGWfIH/pNM9QFtEHN39KKcbPok1OnTpmHNz1N
zT7OGoNaSkn2zFvbeUeCaFpuSs9OgRBiUODWo15EIu72baA06OWJ5jBgghFk
J3/r9/uioidNmoTs9DSH/klfg6eL8xWwpyDGCOebNWumr1yskQwTCBO4oUms
u3U9djStdYNV4DlpCxgwz1usWDF1XDX1q0QXHQfVrd0CV4x14X/oPqwnZkRF
RdFgDRPMXEoLi5Eol080cuRIzcIJZxo3bkyGifS9e2vgi6Z1vHjtY794ea7B
gwdr07MNoHbmzp1ryMBPP/1Urly5PHnydOrUqUOHDpkyZQoODnbnLRObpqVf
INTlMizKlyw5iB1Ny9MRO5BtQkXcF+VPgIMXosfHPl22NZua9uHDh0Sg+rl2
dvLjEeQkMjISn5zME9CBXmx/R/2Sczqpffv26T8/fvw4ogtHqoyZoCBDhgw5
cuRw1xdgz8R6ly5dUg2EYndpfnY0LTE+bYTUzF/h88uUKRMeHq6OF+ReqLhC
hQrR6tUF6Docmhfjk2oowBDY+gK+lEiZGNa8zQLZCwoKwmbwCV68TKdGRo0a
RY3T/fX9hz59+uBVKFtcKGWSUBuMU3rkCkdnVtR4dZok/bW2WIPabNSoEQ1T
OUPMfsmSJYZ9OdzhbGoGnDWGO3fuFCxYkPoaPXq0IwO//te0FOmYMWPUKx7a
GirRYtRLTa3Ee5in01MpK1aswOEgiZWFEC/TnIsUKaK9Vj59+rQvx6zEa/p6
eDrCVQcH8+lTUG54TvN8BgJ5vsKE2rZta79p29G0Fg1WodQLWotYRmlCuoDi
xYtTyD7OuyBWxc+7G+jmXnZGoszs3bt3+PDhWhfPc3Xt2pWis3jxZ40vmjbR
Fm9MrF9avXo1DQTdQh7CwsLMdkL+KUxDV/7ixQvcLNdrwwWoBSSxO22Q2DQt
D640LQ7Zlyw5iE1NGxISQrarVKlClLdjxw6Cdxo4ys3dw9rRtFQ6anPVqlX6
iI8006VLp94K+fJcep4/f37q1KljnkDn7umCBXUyQkBAwNq1aw0Hi9Ch0/dp
w4D8QcCYJk0ad+8TMTlE77Jly+hNqBp3w492NG10dDSN0XycE86cwIpmaAi3
8XU4DdW+8H6ffvqpF/G4WviJPLZ5KnpM7O5Sn3zyCb9yuc3LypUrsdJevXqZ
+yDcSM2aNTHOevXqebFZGT/hh4Q8LpddU7bZs2evX79+PM30swa5XrRoUYIa
cyMi3qdbMTwvTbhVq1Zq7ii/peOw+bLD2dQMOGsMam8ujAHH5UVmzPhf06p9
73EXRGpt2rTJkiWLxfxASq93794udwSlNyHyMpwtS7LIznnz5ql55hSjegeK
kEaP0ZF16NDB5q5ZHqVvwaFDh2hiNFKLRUlq8JA+1KY8VgE4oQFiwNxT8LB0
WDTqTZs2mX+Le8cl6ldg2cGOprVosDGxbr9p06ZId8Ps7qioKHf+xz4YYcaM
Gd01CorXzkiUAcwb29MPTvLsqDJPwwE9vmjaRFu85IeuH2lH0yZ7+ASX/QX9
OH26weRQC/odaWJim9jAgQMNw2IaiU3TXr9+PUeOHIlqryo7mhb7DwoKItvW
w/567GjaM2fONGnShODxex3Lly+nz8LPO7u/X3zD865btw5XiQjUOz0+nz59
OvJVv6k4ZdKnTx+LmfaI8Llz5+I/af4WY492NC25ojGaJ7xdu3bN5dmI1DWf
IyroF0aNGmWeMGwHNfhJYGI+P9cdPMvs2bMJZ8xr6wgKcMiUocuzllTwjnFO
mTLFC/lNk8yTJ0/evHldPqm2JUKXLl2sJ3hza7xQRETEBHtMnDhxy5Yt1j24
CoHNuzFQNXTlBrGhWL9+/eLFi8kMrtLmumZnUzPjrDEof5U5c2aXG+JxL0x9
yZIluBHitbWxrFixwkI02ukjCPHojzab4BZlypQZO3as+Svau7uoHE+rpiUj
MHLmzPnBBx9YzOhQ4wlYuFmI8miGAQEFlkyfSJpXrlwhb8puiUd4THzRwYMH
bUbrHqVvAYKKPpT4aPTo0e5aKK2YwB+lZFPTkg4W2759+/z585vtilAobdq0
7jasxkLoYjw9rdKOpnXXYBXYIaZr3q1RbaHj416LxHoZMmRwt6CA/NgZidJD
JolcQkNDDxw4oPXO/I3CUVPUrAcQuCPFi4sztAuiDKR1s2bNaMiGr7j4+PHj
cQ4JJsLijYldF0agSrvA+bicqKwCQIObJWrgcQzSixKgHzGcg6yR2DQt+aFk
fNkKw3HsaNpnz56pk0NHjhxp891QnJqWnpSywry7/1+Cg4MDAgLwSPF9yJGz
4CfVW3tD+ShfXbp0aX3xqrDO6/mfGnY0Lb0SJocvMnxO+bvbhR4hgXtBM0yb
Ns3rF0x0dmqrHPu/ovRczsdAHhBoE6G7HOhT26dbD3ZZEB0djf3Xr1/fna6g
KLgASWY9seHNmze9evVKkSKFzcktyZMnJ0J0VwUKRBH3Nb9k55/oBJfyAL1B
u8PqkJHWG7fGU2ou03fQGFQPRWouqwNzpe+mR8C3ZMuWjXIuUKDA8OHDLc4A
tdNHYGPIrdomqlevTiumdZu/wqJcCkINddJoypQptak+LsGuuHWVKlXMMzf4
xKU65UNsBqW3aNEibcdmNG21atV++OEHi3v5kr41PCwmRHjorkDo3HFlHh0Q
j5Zu2bJl48aNDYE5fbHaPKdnz54uFTLZpvXVq1fPo61g7Ghadw025p/XSYUL
FzYr8KioKN+PGVLz2VauXOlLInquXbuGg+ratauhg37//fcpW3fzRTVwp6i1
OnXqmJuGWpBLOobPuZgStqiUJF28xKQ4IoPDR+Rs377dcKUaTTLPNVIkNk1L
4ENrKl++fAIeLWfAjqalZ8mePTve284xrIo4Ne22bdvo6cweTO2GTbe1ceNG
m/dKcM6cOVOpUiUybPbYxKqZM2fu3Lmz4eUCvoJ+2bzQ3iPsaFpylTFjRo/E
MxEi0e7MmTO9PgYFnxMWFoaccNcwzajDdhEJhhfc2laN9Owue1hiZ6wlJCTE
i40ytMQtJmeuW7cOl4i+8rGyvEBNMrR5xLxC7V2wc+dOw/sC73AkNQeNIeaf
PfSoDus3COgxdCAhxrJly6zvlVB7efFoNWrUoFispb6ajezpaiba7+7du7Fq
rQ/1QtN6lL41cWpanq5ixYpdunSxPzX3559/Js6dMGGCIU01jEDVu1Qg+JDg
4GC6PE/3SLGjaS0aLBE3HUGHDh0MXR7P26NHD1y0j1VDcJEpUyanOk0yiWN0
eZb6rl270qRJ41Fz1uPL3IMkXbx37txB0+qzx9+zZs0yL1c5ffp0eHi4u4aQ
qDTtixcvCCppa3PmzEk8Ow3GqWnV2YVk+4MPPtBeN+DK0OfDhg2jUlwu0LPW
tEh6+iyXIy1qv+Jk3u416jIn8+fPz5MnT1ZPoECOHj1qJ336Vvo1oi19nR4/
fhyhGxO7bwAewLATl9rl29OBAjN2NC1dD43Ro+PUEW8DBw6kD/J6czkqPTQ0
1KOFfoSxNFXzaa3aqgTzAZcxsYubWrRoQQTtbvaRNWqTOovZVtxdvWszH8jr
B1R817t3b/v+H2FPZ0Tn63KZvKc4kpqDxhATu3VMYGAgnZS7d3OKS5cuZcuW
LUuWLKoZWpBQmlZNDFa7I2LY7iIydVJPsWLFPFqquXbt2iFDhiDqtCbjoKZ1
mb41cWpayr9EiRIerTyiyeOokViGz+/du1ewYEGcnksHjmHQFyB67ccICjua
1qLBqvdB5hm8avNhBIZaqOs1eDAe2d0CDU+hbOncXdqkmo2stvb1ImVfNG2S
Ll5CMOSQvhNBokdERBhEOF0SrcDCuSUqTYvIV1sGObUY3BHi1LS3bt3Co2LD
+o19iHb37t1LmNyxY0eXb4ssNC1WPXv2bHf+UJu7S6hi8B5oYKSgJuG4LyZh
ZwQJA0BbbrUNBkxcZkfRUWiUgMGvqrVvatuEb775Jm3atIZ1zfSzdLguj8H1
CDualnvRs3s0m4gaL1eunHd7vSqompYtW5oXbfE5RYFVDBo0CPOYPn069aIK
gUCbfNKI6CtpRN27d1dvkdSZEcmTJ3c54IbvRRiQmt4I7dvJ9evXc+fO7W4y
bUzsMHv27NlpIOYjgP2AWr/WvHlz+8sVedjOnTtTeo5snOUuNY9aojtjoO2E
hYVRd9QvUSftXRuxdGcMMbH+Qe3BYr3AB+tNmTJlpUqV4nS2CaJp1X4mRLtq
KOzq1avudg9QUxQwQo9eE6xZs6ZixYr6nzirac3pWxOnplXHL5rrlNpBw2AG
/fv3X7p0KX5V24hj2rRp9EpIL77t1KnT5MmT1VdqP+QcOXKYx0wodmI0HLIX
4sSOprVosPSz9P5mN4KhBgQEeHcAop7ly5c7tQjl2bNnuGiXE+xj/lkTlCFD
hoMHD3qRuC+aNkkX76tXr4KDg/XzkVAa6iQL7RokBzam39rUjD81rRpNcqdp
yUm+fPloa75v5afn999/xxlOnTrV6xE/a03LUzdt2hQnYJagODT0gLvRVAtN
S/hMr+TupZVa55ss9pAgw2/Xrl2LFNTsim4uf/78Hq1ddRa6Cdyped7vvXv3
2rdvr2QS+pBMUkdaJlWjLl++vI9mGWNP0xIeFilSxKONj65cuUKy3q0OU6it
uQ3z2fBIfKLOSuOfS5YsQXVoB7jQYfHPESNGvH79mnqnC9OWZeGpMFEEsKGi
nzx5UrNmzcqVKxsWmdq3EzVX1t1kWppqhQoVkNNIL7+d2qlHvYJ3OZfSHZRY
27ZtfYlH7KTmUUt0aQwXLlzguRYuXIhZIkVat26t34LVwhhiYh0Id8dluTsA
AgNr1KgRPsTOEHeCaFr1qr1MmTIPHz6k0OgxLfZJw0rpT81T4i2gYJF5eqN1
qWk3btxYt25dbSLc/fv3iSPsrJwypI994uqpQSIdzbETywwYMIAOUQ1EW2va
Q4cO8Yz6g/y4EgFAA1Qj7epUcapVzZ7FGFq1aqWOouBKqo/yxCxj/ol6XCqQ
77//ns8RVF6s2bejaS0aLE9Bbg2DG/QUPGCHDh18PG5JnVXkyEFsJEVD1rad
NIORFCtWDLfp0bs/ffpea9qkXrw7duzAhpFMmB/PQjimn93BIzRo0AAZab34
zm+alkJTO/2adyNB1ajYEO/n+GGUqlOm2/VuzyW1tpGfm3faQSTjUgoXLhwY
GGh4sa7dmp7F3SC5S03Lh9999x22QcW58yo4K7wlJam5L4Xq2vTrf/FmOCib
ixQch444NDTU3QogbQo92caT06drS2xOnTpFX+bdVp8G7GhayjMoKKhFixb2
p5seP36covZFxWHnRHB6D6P2fyDA194FYz94IRXsK2elVa5aVVSwYEFlk3iw
WrVq0SPrl34jJwh7y5UrZxgssm8nPKBaS2LefhwBMHv27EyZMqVLl27WrFkJ
ImgVixcvJnK0PyCGnOvevbsv8UicqXnaEs3GQLINY1HeW9U+lqzeD1obQ0ys
La1ZswaPWqdOHXPJoND69esXEhJC3dkZn0kQTau2rkLJ4wZv3rxJ0GQxs+Xq
1avYADGgzcTVjtxK4GmYNS23ppT04+fr16/Pnj17nINRLtNXE5ixFq37IzTO
kycPV/4vFmtNu3LlSi7Wbxt14sQJ3AWtT/1EzZ7VXt6pf2pL4NUSMwIf9Vul
kOmA9L0PjpeuB6dtc+seAzbPxnXXYHG/FE6zZs200qZHwC1jA57OgjCjFhLi
5318O8PPqa+MGTO63M9cgTdALeA2o6KivLiFj2fjJuni5ZHRaTguTB0JRFRO
bIisnTlzZv369VOnTo09x2mcftC0iDryljJlSk3P4BaKx0ILQvXlypWLiBKJ
7m482eKFbJyobfMR/4MHD/Zo42ucALkKCAjQsk1Rk2GyTRSG2eAT8BK4FJdj
RGqfutKlS7tbDW3WtDxU/vz5tduRuGFkGK9LSIXO0a6hV8JNqSFotfdC7969
1WOSAfwbktv+ppfO8vnnn6szSlzStGlTTUMS79CKmzdvTpcxf/58tLr9+rXG
jqblRlOnTqVO7ceYCAa1/6TXGSMIotnqpzKqeU2NGzdWIbNanKW9HVDzJ7V3
HLSI9u3b4zm1PKuh45o1a9L3ffPNNzNmzMDssS7zJEM7doL64tZa9WFmlI9q
s/xBa0LNopb5oXfrIBzk5MmTOXPmjI6Otnk9PU6fPn282KfXfmqetkSzMajD
bbW5N2o3Nm0uZZzGEBNr1fv37y9fvjwdQefOndU4J3aLYqHpkT5OAwdlZxpw
gmhaNT0JEUgfR4BgOJ/IAM9St25drcDjhBBswIABhonEZk1L0ytVqpQmC9Uk
n4oVK8a5e63L9M+dO0dnp81xIs2IiAhkpwqIrDWturUW48T8cxopPal2CIjh
gOB9+/bRQ2mb+92+fTswMBBVo/7JXVBl9GIU2rZt27hs4MCBtO4FCxZ4feS6
TU1r0WCxFupavYCmcHhemoAjc4SUd0Uaee20aWVYQvr06ZVLRM8Q6RtkJ49G
S9FrBkoY6eLRTX3UtEm0ePUQW6GQ9YdApUqVCjFmsTeLHr+N03qN9QtZm+Dt
p0yZ4s/jO3GzderUoViwfFo6dWTYHd3+2bg2wbnh4rRJlUgjjLZly5Ze+yg/
g/0gxg4ePOjjexBDmnFqWjh79myBAgVsjgxjRXRY9kWUGbwWLku/ojDmn71Q
UNfKSPiKyBSzV8P1amMNbZ0ygRKS1bBvJxWttlgk8RUrVrgbukzqdmKA/BMI
EO3abEebN2+m+3bKFbhMzaMSNhuD0sCZM2fW9l5T08tRpOqfdoxBQcaOHTs2
efJk+jKKiE7nxx9/9NThJNQaMRrCjRs36KPj7HbVKl0EvM3t1AgugoKCDDGs
WdPy4KhEraWroU79QKtH6a9bt47UtHkL1GnBggW16YLWmhY/RlCj1wwqM9px
1WpkGNWqbflLF0mgpL1BoPdRUZI+WUQ7imvw4MGIKJStj6uEbGraOBssIeGR
I0eIthzsr/fu3YuHTxI7uvuoad+O4iXzdLL0gNgtvbNHkiCRa1rrF7L2IUae
N2+eU6cK2kFNpq1evbpau4HYoN/Rv6N0XNPS5RGYa1MdcG64OMKxR48eEZf5
U88nHmxqWsQG6lFNbIszTfrNBg0a0NC8zpWa22aYhEkjypQpk3bGBKZCl0Qv
xu24EmVCbWoHQ2BO1u+/LHj77AR1V65cOTvL3mlr9LlObaviLjWPSthsDOpY
Mf3kNCIUnB4mdygWtK5TxmAHX/oIFFe7du28WyzjEdevXy9evLjNs5CIXtu0
aWPoKM2alpqlDZKy+qcKVezMcDCnT50iM7QJV4he7jVs2DBt0o61pt25c2fJ
kiX13Yeam6HNwSYd7ogG4CmwJcTqtGnTtHmVXNOvXz8sysGjJ83Y1LQxnjRY
R1ACqUOHDkkibFdrHidMmOC1XHkLihfzJkSdOHGiF446kWta6xeyNlGncpsP
iopX1LIFbQMlvDr/1J805KymVS+nEEVqx1RcHL5FTVNH0RnOov33YFPTxsRW
ENJCO6XdggMHDjRs2NCXrTmWL19eq1YtQ3u5efMmnbI6FgrnQPWpRd+AXEHZ
8iCqy8ZZ0SH279/fCx/yVtoJdUFvHuc+q+pK6s6p81xcpuZpCbs0hnXr1hUr
VkyFw3fu3KlcuXKpUqUQQpMnT7569apTxmATH/sI/4wkcBdkQEhISJyDumoY
fOzYseYp4npNq2Z01KhRQ5vHS93hw48fP060YrEezWX6anNCNcZLS2/WrFlY
WJh+ZqCFplXn2PKtvqfArjrHot7jENdgckgLbIZy4CfoasxGCZs9e/bkz5/f
5TG4DmJf09pvsI5Ak0HjebeZYYKADfjSat6C4kWtZc6c2d0potYkck1r/ULW
JnQKo0eP9nGnU49Qk2n12ht/iETRexVnNa16FUVZ1a5dmwgd37Jq1armzZt3
7NgR5+n7BgJJFPualr5m6NChlJV1dVBrs2fPpta8Hs9EkNStW9d8iK06OxiN
NGnSJEQROpZQrkuXLiNGjFBLv9EwVOj06dODg4PJg3fLst5WO6EHr1OnTpyh
7tmzZ1Epvq99tkjNoxJ2ZwyE8OgTav/jjz8mBSKdsmXLYp/z5s1Ta+QdMQab
ONJH+AFySJnHOc+Bsm3ZsqW5uzRoWrXhVc2aNdWct7t371aqVIlAgz+oVnf7
OLlL/+LFizly5IiKisIYGjVqFB0dbRAtFpoW90XUYzbay5cvkxQ/GTJkyIwZ
MzAVrBEj+f7772NilTC9Xu/evT/55BPy49GmEN5hX9PG2G6wvoM/x4UOHjzY
i50cki5JunhVVEj86N3L0ESuaa1fyNpRg69fvx4/frzN0wGcggAcb6Od66Re
PGXLlk2bzx/jtKZVCxAIzYjRrl+/rt0XT/ivassG7GvamNg+MSgoyHqbCBRF
nz59DCua7UONUOl0Xu4qhQ4RI1fVx73u3bunF8/Y1e3bt30xmLfVTsj82LFj
6datC2fjxo09evRwSgG6TM1+CcdpDHg5DEAL5w09lO/GYJOkomljYuUfTdj6
DEpEaf369c0b7Bg07aFDhwhMcubM2b179ylTpqAbCTmJLNRsE4vG4jJ9RGzu
3Lnx9lu2bHG5cNudpuVZCF7cTfWn9m/duqVtDobBGIZu+LkfhI3CI01rs8H6
Dv68adOmToWxSYUkXbzqGF+1j58XP3dK05YqVWrnzp2k5uw6aOsXsnZSoE79
f4IDjqVevXojR45UrZvipXy6deumOjh82rFjx4imu3btat5j1jtQ+Pr9MAWF
traCHoqAIs6iJjAkErl69aq7C6jBWbNmebeVBL0VKig0NFSN/CQIb7Gd0Ogo
W3yFxfSJHTt22D+9Ok5cpmazhBODMViD77p48eLBgwfnz5+PlksSmpY8E00M
GjTIYsMfAoGoqCizKNVrWvU6Jk+ePLgCejTau/LkhJxIROv5Oe7St8alpuUp
0NJLly7150oQr1GaNjg4mK6NDi7OF6N2GqyPXLt2rV27dr6sfUi6JN3iRbC1
aNHC3Rkr7nDWX+EHSpQokStXrrx589Lj+5KUAesXsg7eyFnUKg+12Q7Obfjw
4Sgr7QygCxculC5dOkeOHJTYuHHjfPdXagqfRzvP/0t4+vRp8+bNc8XSunVr
O4e30i6WLFkSH4OW9+/fp7NLQA3z1tsJZTt37twEHJOxX8IJbgxxgn4LCQnJ
EUuDBg3iaVsbx8GdRkdHezG7T69paf5oM/PJbvGHS027f//+zZs3JwlBGxNb
8lOmTEED4GxLlix54sSJOH8Srw2WSsSTO3IEdhLlX1W8SctfWb+QTZygYBFR
48ePHzhwYK9eveJ1lIOSoSedOnVqUvF+QoIgdhLfSAknXfSaVq1N9uhsQR+J
88wFQRCEhOWvv/66c+eO3yJ9QRAEwTvQtBUqVBg+fPiWLVsuXrzYoEGDw4cP
++fWd+/eXbVqVb169ZC1omkFQRAEQRAEr3n9+nVERETr1q0HDx7s4+kDnnLy
5MkOHTq0a9dOf7q9IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC8Hbw999/P3/+/H//+19C
Z0QQBEEQBEEQPObu3bt9+/Zt06ZN7dq18+bN265du8uXLyd0pgRBEARBEATB
Lrdv3+7cufOZM2fUPy9dulS6dOksWbLs3bs3YTMmvH38/fffJ06ciIiI6N69
e2Rk5L179wwX/PXXX7t27Tp58mRC5E4QBEEQhKQKEiI8PPzzzz/Xf7hx48ZU
qVLVqFHj2bNnCZUx4e3j5s2bwcHBZcuW7dq1a1BQEHFT2rRphw0b9uDBA3XB
jRs30LoDBw58/vx5wmZVEARBEISkxdOnT6tWrRoQELBmzRrtwzt37gQGBmbO
nFmGywSn2L9/f8OGDbdt2/b333+rT37//feZM2fmzJkzefLkhf/hs88+I85K
2KwKgiAIgpDkQFegNBAVc+bM0VaH/fLLLyVKlEiXLh06xA95ePPmzb9QxvDU
6LewsLBu3bpNmzYt/kYmNQ2poJYNn/gBbnr+/PlHjx6Zv8ICd+3aFRUVxf9f
vXrl54wJgiAIgvDW8PTp0wsXLvz3v//VPjl37lzWrFlz5cp15cqV+LsvOufA
gQOdOnXq2LFj3bp1q1Wrtn37dk/FLfIsMjKydOnSt2/fNnz18uXLzp07t2rV
ij+cy7UzIOTGjRu3Y8cO8o+4HTp06MCBA/nD8RuhEps1a1ahQoUePXoMGjSI
0qhevTrV7fiNBEEQBEEQEhVIzSlTpiRLlmzw4MF6oes4R48eHTVqFOouJnZa
LzdNmzbt+vXrPdpMjIu3bds2a9Ys8xDfn3/+GRUVtWXLFv8PS1pDfubPn797
927tkw0bNrz77rsuhzF9BD2Ppg0ICKBCM2TIgMi/evWq43cRBEEQBEFIbNy4
caNo0aKVK1c2r0k38+bNm7Nnz3ohfflJ3759O3To8PDhQ/XJzz//XLx4ce77
66+/qk+ePXsWrwPFCcWlS5cmTpz4+vVr9U8k7pgxYxo0aPDixQt3P3n8+PH1
69e9uBealsDhwYMH7gbA39ZCFgRBEATh38yrV6+6dOlStmxZOwoKvTR8+PB1
69Z5cUwDmrZr166ZMmU6cuSI+uT333+vXbt2vnz5tFkEZIb0N2zY8DYdA8Gz
LF68+LvvvtM+OX/+fJkyZbZu3eruJ1evXqWsvNsxWNO07i54KwtZEARBEIR/
M+jMiIiIWrVq/fTTT3Fe/ObNm3HjxnG91/MTXrx48fPPP+sXppUsWbJKlSra
OC08efIkJCRkz549LjOwdOnSjz76KDg4+MaNG/qv0MkjR45s167d0KFDHVl2
RJY+/PDDrFmzVq9eXdvfjAwMGDCgb9++WgncunVryJAh/fr1U0PQJ06cUJ//
8ccfWlLkJzw8nAyTc4q6Tp06pUqVsphxQbG0bt1ar4E9QmnagwcPTp48ecSI
EWhX8+xii0J2iufPn/PUvXv37vsPoaGhFOnx48djYkeqP/vss169evGhdgH/
XLJkSWKbNyIIgiAIgv9BNCLqmjRpcufOnTgvRjwsXrwYHYiIspM4IqRp06Z6
/ekLavQyICBg+fLlBnV37Nix2rVrm8eNt2/fvnr16tu3bxcqVIhfaZ+fPn16
/PjxKLevvvoqd+7cSjX5Dk+K3u7evbumYK9cuZInT57IyMj/xbJz506lTilJ
/rls2TIkOtnmh8g5bVsDMjxhwgRU7uHDh9etW4dY7datG5+4DA1ev36N8CNw
8FraIaGpU2Tto0ePuCl/fPDBB+YqdlfITvHXX39dvHhx69atFStWTJYsWdmy
ZdGrhB6awL5///6+fft4WL5Nnz49NYjGJuSJp/wIgiAIgpCEuHDhQtasWQsW
LBinVkGDbdmyBUXx9OlT7RNUx48//ujy+nv37r333ntffvmlU1nlRkWKFPnk
k0/M0g45hDLv37+/flsAxN7kyZPRZps3b86WLRv6UH3Oz2fNmqXGmRcuXJgz
Z06nDvk9d+4cN0J4q38iMpGaRYsWVfc6e/Zs3rx5kaaa+ORzFO+nn3767bff
Llq0SBPqKG2kuD5lZG3hwoWRfOabbtu2rVq1ajajDJdwXyIabTItFUeehw8f
bphe67KQHefZs2c8TooUKRD8LrM6ceJENG3z5s31I9uCIAiCICRp9u/fv2fP
Hl9mOSJUUGKPHz+O88oDBw6gc3777TftE0TFsGHDXA7wkiXkXOPGjS3WNHkE
8g+FjEZ1J6hQjMWKFTO/f//zzz/bt29fp04dtXmCHsRtly5datas6dS+r+vW
rSNA0A6hOHPmDMHC/PnzKQ3KecCAATly5NDr0ocPH5YpU4YwYcyYMdoMYRTv
vHnzjh07pk/50KFDaG/zVsBUR7169WbOnOngTNdXr141bNiwVKlS5hm27grZ
QSgf4oIsWbKcPn3a/C0m16RJEzQtliCTewVBEATh7QDx8/HHHw8dOtQPhxGc
OnWqcOHC6Jx3/6FEiRIIj1q1aulVrgZyqGLFitqIpY+QWrt27TZs2KBe2d+6
dQulargGtdO2bVv9zFXFhQsXcufOPXfuXLMEevToUdmyZYcMGeJIAZLIoEGD
KlSooAKEe/fuVatWDc2vsqrOYqtdu7ZeWv/666+VK1cme/o1dC9fvkTials9
KJYvX44eNu8Zu2vXrqJFi/qyKYHavLdly5aagn39+jXBSL58+czRirtCdhCK
4p133tFvbaGHLBUoUCBt2rR79+6NpwwIgiAIguBn/KZpnz9/jhhL5or27du7
HDj9/PPPAwMDHXmnj0Ts37//119/rf6p1k8ZJJ9i4cKFRYoUQfFqnyAUp06d
ijy7du3a8ePHtUQUx44dy5o1K1n1PZMxsUOm1atXV5Npb9682axZs7CwMG31
mZKvISEhejWo3rMbXqPz2169eumlL3/XrVsXVW9Yy0ZS3bp1CwoK8uUtPNUX
HBxcpUqVu3fvag9So0aN9957T1vppsdcyA6iRrOxq969e7uUzXv27AkICCC8
srOJnCAIgiAISQJ/jtN6BPnp27cvMsz8ut9Tnj59ipZr0aLF6Fj+85//tG3b
FmXoUsWdOnUqR44cmzdv1j55/fp106ZNEd7I8oiICMN45vz58x08B+3ixYvc
PSoqatWqVY0aNYqOjtYv2qJMkLj6KRA8AhlA+SNKEauoRHX9rl27qlatqg3J
ojnJeaVKlcznIKhdIKZNm+bjW/hNmzatXr1aS+Tw4cN58uT57LPPXF5sLmQH
QU6rybT6BX0a2mRaSkzbuVcQBEEQhKSOL5oWERUZGdmnT58GDRps3LjR2amJ
T548QYP169fPOmPozJUrV3bs2LFmzZpV/y/16tX75ptv1JkL5sHhAQMGuEz5
wYMHaLxRo0ZpYpI/pk6dipIcOXIkyk3/mCTeuXPn999/30J4P3v2jMIZMmRI
/VgMc1wNIGJz58794YcfbtmyxeXmYI8fP+7Ro0fPnj3RvdQaEhd9iIKtUKEC
/5w3bx4PRYbnzp27fv360NDQyZMnT5kyhfJB07ocMt2/f3/WrFl37tzpMj+k
RubffffdlClTopxnzpxp0IGIcDVBF3U9Y8aM8ePH79u379NPP6X8Fy1a5G52
gbmQHQQlbzGZllJt3LixTKYVBEEQhLcMrzUt18+ZMwfpxR/Dhw8vUqSIs29y
r1+/njNnTm7h7gIEyZ49e/Lnz588eXL+ny9fPiVWyQmC6r333mvevDl6z9P7
qsVNTZo00Y/icq+ff/7ZLFzVZNphw4a51GYousWLF+fKlSs4OPjrr7++f/++
U6vsUac3btzQK8bffvuN9JVIe/nyZXh4OHkjV2Tbehu0pUuXomnNk2xjYlfG
jRgxIkWKFKlTp86bNy+ylr/1+329efNm0qRJ2oI17n7z5s3NmzcTSrjUzxou
C9kp1GTaMmXKXL58+aEJhC7iPG3atGTS8VsLgiAIgpBQeK1pr1y5Mm7cuNex
tGzZMnv27Ob32r6wf//+TJkyuXt5jXz64osv0qdP365dO7UKiQdZtWpVmjRp
QkNDfVl8pIZe3S0vUrc+ePDgrl27uOPu3buzZcvmUh0hCEeOHJkqVar58+f7
eT//W7duudyszAwZI5NEBNo8WA0ec8WKFSVLlkSjqqSQzUhlQgZtogX60Luz
MOIsZK/RJtPmzp27hivIP9/KZFpBEARBeMvwTtMieBYuXKheWF+7di1v3rxx
Tnzt3bt3e0v27dunvz46OhpN6+7MKdQUogVBq7/pq1evGjVqVKJECV/2WaUc
Pvroo0KFCrnTPI8ePSpXrhy3vnDhQvXq1Sk98/4JsHr1agRt165d/T9p86uv
vlq/fr2dK3lY6qVs2bI8lOErIoXg4OBLly7pP0SLImvnzZuHAfA3ylk7wswj
4ixkM+fPn+d2/Mp63zm1Yi5lypQEOOZv1e5waNoWLVrEd71QMmPHju3bt2//
/v2d2rtYEARBEAS068mTJ7ds2bL5/7Jp0ybkWbNmzb744gvDV1x8/Phxl1oX
bUA3/fLlS/749NNPU6RIERUVZT07ETXS05Lvv/9ef/26desyZsxo3kw1Jnbq
JnIrV65cZ8+e1X+OyurUqVP27Nl9OaaKgho1ahSCWdvr1XzBjh07RowYwROh
w12Wz+PHjytWrJguXboEecF97tw5m1qREgsJCalUqdKTJ08MX61duxZZaK7T
n376aeDAgVT9lStX0GzeKcM4C9kMRTp79myKdMOGDRaXqeM/smTJYrANBZbT
tGlTNO2UKVPibzKtOoGXW6iAa/fu3TVq1JCjygRBEATBERAhyLA6derUNpE3
b1704fvvv2/4nIuRbdajr3xbv379PHnyODvxABBUGTJkOHDggPmro0ePZsqU
qVu3boYdwNQ4bWBgoJ0jet2BIEGq5cyZ8+bNm14nsnfv3rRp06ZOnbpkyZKl
/gE15UvG4gMKsG3btlWqVDHPAeATl+PPfDh69Gi06KJFi7799lvv7utdIS9d
utRw3oQZNZnW5RPFxA4+FyxYEGHsdc7tcOzYscmTJ2ulx00xg6+++ir+7igI
giAIgo97eR05cgR52aFDB5f6xxc2btyYMWNG8674ardYdAvqxfDVvXv3ihQp
Uq1aNZcnONiEAgkLCytQoIB5iql9lixZkjx58o4dO8bfsQKOoOa1li9f3s4Z
cAq1qcLu3btRttYLwawT8bSQyWrPnj2rV69uUbnaZNoPP/zQpT0jLIk1HF/P
qIfACrmu1+rff/99/vz53Z3+LAiCIAiCI/iiadUKo1SpUqmNRknB3Zmz5h8i
h6zviGpCLW/dutXwOb/q1auXy52aduzYkSZNmnHjxvmyJov0Q0NDS5YsaT7U
1T5z5sxBWY0ZM8bPq8M8hYcdOHBgsWLF7t+/b/9Xa9euHTJkyMqVK71+fe9F
IT958uTdd991twObAqN67733UqRIsWLFCvO32mTali1bxt9kWswyMjJSq/eX
L1+2bdt20KBBjgd9giAIgiDo8UXTPnz4sGzZsqVLl1bKZN26de62OdW4fv06
9+rZsyeiqF69eg0bNjxw4IBLaXTmzBmEq/lgXHXulfnQVVRKSEhI/vz5fZwF
gSxH85C3Fy9eeJ3Ipk2bkPrh4eGJXNNS8jNmzMiePfu1a9fs/2rNmjUVK1b0
6CcG3BUyhhQWFoYC7Nu37/z58ylAbcDz1KlT2ANVj+Xwbffu3c1zcbXJtC53
pv3jjz+aNWvmcjLtsWPH6tevnzp1atqCVmUYGAo5Ojpa/ZOf7N27l3hq8ODB
Xbp0GTZsmBrc5nq9Xl21atXXX3+N7K9Tp06tWrUqVapEblG2XpeVIAiCIAh2
8EXTfvPNN+nSpUOB8FvEyejRo62H+xAhoaGhmkp5/vz5Bx984G5zg59//rlI
kSKkaZCFSIuZM2fmyJHDoF137NiBmFmxYoWPa3+ePXtWtWpVVLcv0wZu3bpV
uHBhNLbNgesEZMuWLZSby3nL7li4cGGnTp18GXh0Wcgo0ipVqpA4NY7+bN26
tX7j3KVLl6ZMmXLEiBEEL9hb//79EZaG4VaUJNe42yLs7t27FpNpKQHKgWBE
+4R4CrWv5DE3whSrVaumNoJ49epVcHBw586d+fzQoUOLFi1SVkd1jx8/Hju/
ceMGId7u3bvnzZvXtGlTl6cwOwi5ohlu27YtkcdQgiAIghB/+KJpv/rqKxSC
es+7detWpUYsrp8/f37y5Mnp4rXRublz5yZLlgz1YhZIqIWgoCCXey4hGEqW
LKnfaQFdUaJEiVmzZvk+f5XE8+XLh0rxJREytmDBAoT3wYMHtQ9///3348eP
J7YZtoQGuXPnXrJkic3rebTIyEjUoy83NRcyAU7DWJRtqNmz6N6nT59q/9T2
Z1BLzBCo+mmxyGCUNubkbhrzxo0bU6dOHRgYaB7g5aFmz56dK1cuLVBCddeu
XVvJZrW5BwL78OHD2k+WL1+eM2fOc+fOTZ8+XTva48GDB+Hh4foD4FDXPAU/
96W4rFGFw4Njby7PzhAEQRCEfwO+aFr6fWRnt27dpkyZQiJxvqxXoqJ58+ba
lfPmzaMvbtKkiVm4qrVgxYoVc7kJ0unTpxs1ajR8+PA1a9b079+/WbNm3333
nSO7M23fvj1PnjxnzpzxMR0KNjo6ukaNGpQMChANRkGhabULeOTQ0NARI0Zo
Jf/111/ziS8L3LwApV23bt3evXvbFNtEHwMGDPCxfMyFvHPnzoCAAGIcVYlI
Qf3JyGoybd++fdU/37x50759+0KFCinbIDVinDRp0qiD5N555x0S7969u9qy
A93boEEDJHSqVKn4lqgqS5YsVapU0S/aIsGQkBBErPoJecAy0cxI1phYpVq6
dGliMb1Y3bNnD+nMmTMnIiJCi8iOHDmCfNXboRqRppbjbwSV29EKyAxhnXn+
uSAIgiD8S/Bx3wPEAPLy6tWrNvUkmkG7EX8gWtAYkZGRLn9+9uzZAgUK7N69
22VS/OT27duHDh1ycA07pUFRfPDBB75MpjUkeOvWLZVJwzPyeWBg4PTp07XX
1h07dvRxHq8XcHeEWfny5W2+H+dBCGR82W3VXMh8Eh4enjlzZm3AE7mbLVs2
pJr658WLF7Nnz75y5Ur1T7JapkwZUnBqnqpKUDvjeNeuXQhmbXL4wYMHM2TI
YJiFSwyVPn366tWra+cpqJPXCEz0KV+/fh2BjVZ3JJ/WfPnllzt27PDDjQRB
EAQhEaJWCU2YMMH/M/GuXbtWsGDBunXruttI6vXr1+3bt+/bt6/f3tf/8ssv
FStWXL16tR/uhQLJmjWrdqjEgwcPSpYsGRYW5v+KQHcVL15827Ztdi4mxGjT
po0vYtJcyOpYsSJFimhSGXFI4RDUHIoFrYv+18oK5ZYxY0Z35yZ7wZEjR7jd
pk2baA7US+XKlaOjozUFi3zldoa94w4fPpwpU6aFCxdqnxCVDBo0SJPlMf+8
ayDnfjhHjHuh+fWzIwRBEATh3wa9oT911B9//HHixAlES506dfr162c+lVXP
wYMH0T9XrlzxT96WL19eq1Yt+5u1eo0aHtfPrEC5GdYo+Q0yQ1ATEhJC1cR5
ZXh4+NixY30xGJeFjGKkNNRM1zt37qAqS5Uqde/evcmTJ1+9evXhw4dVq1ZV
qvv+/fvVqlXr37+/g/txzZs3L1euXGjX4cOHE0YZJCgmSn7IiaZyyRihVkBA
wNKlS3///Xd1FjNRyfvvv88nejFMsLBhw4b4O7NM48WLF+PHj7duTYIgCIIg
OAjd7tq1a6dNmxYUFNSuXbtjx45ZXPzf//536NChYWFh3k2N8AiEU926df3z
9lYdeaYtjlMTAHLnzu3LBlm+gCqrXbt2nGddvXz5smXLlmo7Yu9wV8ikPGDA
gC5duiD1P/roI3Rg2bJlqXrUJjZA+SBomzdvPn369ODg4NmzZzu43Sum1adP
HyQ0cp1oy6VcP3LkSMOGDcnb1KlTBw0axP8JRjDLxo0bo65/+OEHdU1kZCTX
jBgxghwSr/Xq1cv61DMH2blz57Jly/wgngVBEARBMICMCQkJSZ8+/caNGy36
YuQW6jdeDzONiRU248aNGzVqlH9237p582ZgYODEiRO1ybTt27evVavW06dP
Efy+HPfgNV9//TXlbD3Qd/fu3fr169+4ccO7W8RZyChebeLxixcvDOVAIHD7
9m0/RDcuQeuSN6xRs1X+uH//vlrTp179KyulElG8/nz3QY0MGzZM7REhCIIg
CIL/2bNnT0BAQNGiRfVniZo5e/Zs27ZtfTxMwQIECbo6NDT0+fPn8XQLAzt3
7kyTJk1ERIQSSPwzY8aMffr0QTWNHz9ev77eb6DBli1bNmjQIIu7IymjoqK8
k/3+L2R/QplMmDDBl/OUfYHw0M9LCwVBEATh3wyi9MCBA/q3xpcvX86aNWvK
lCkNC3DMXLx4ccmSJfE0iHr//n2kmt+0lpqVmipVqmLFio2NZdKkSRMnTqxW
rdrQoUP37dvnn2y4zFh0dHQ8ZcDPhexnHjx4QDAS54RkQRAEQRCSOnfv3i1U
qFDy5MlnzZqlvb29ceNGzpw5+XD58uUJmz1/8vLly4YNG7Zu3fq33367fv36
s2fP1OePHj16WyXfW8/jx49PnDgh01kFQRAE4a3n9u3bgYGBadKkWb9+vfbh
0aNHM2bMmDlzZv1hBG89N2/ezJcv34wZM0QCCYIgCIIgJC3evHkzcuTIBQsW
aGtn+GPcuHHJkiXr27evg8vYEz87duzImjXrgQMHEjojgiAIgiAIgsc8f/48
LCysR48ea9asOXz4cHh4ONJu1KhR6kDSfw8bN25s3bq1rFIXBEEQBEFIuty4
cWPlypURERHr16+/detWQmdHEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEATBH/w/xVsvzg==
     
     "], {{0, 107.}, {924., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{638.6666666666669, Automatic},
   ImageSizeRaw->{924., 107.},
   PlotRange->{{0, 924.}, {0, 107.}}]], "Input",ExpressionUUID->
  "b686d6e0-4489-4088-8346-48187d447c3f"],
 ", FieldNumber = 6"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.831229432558462*^9, 
   3.831229433343569*^9}, {3.831229819435503*^9, 3.8312298197640195`*^9}, {
   3.8312302449223967`*^9, 3.83123027366938*^9}, {3.831230559369629*^9, 
   3.831230561543606*^9}, 3.831807216313492*^9, {3.8318079460699177`*^9, 
   3.8318079563486733`*^9}, {3.831821408066439*^9, 3.8318214084299297`*^9}, {
   3.8318256995252156`*^9, 3.831825699962925*^9}, {3.831828846201292*^9, 
   3.831828866213798*^9}, {3.831829015560419*^9, 3.8318290342739677`*^9}, {
   3.8318291152134514`*^9, 3.831829136286242*^9}, {3.8318291984253893`*^9, 
   3.831829218711399*^9}, {3.831834552696831*^9, 3.8318345530249205`*^9}, 
   3.8318347244369974`*^9},ExpressionUUID->"4e690dc7-12d4-4c4b-aa30-\
f06db8ec72ae"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312225715423098`*^9, 
   3.8312225716225843`*^9}, {3.8312226140321136`*^9, 3.831222614108339*^9}},
 CellLabel->
  "In[354]:=",ExpressionUUID->"04277b0a-8e0e-4c44-ae95-6ae08f4c1b5a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Am", "[", "mu", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.831222575357247*^9, 3.831222614461128*^9, 
   3.831223506718525*^9, 3.831223540075242*^9, 3.8312236315357523`*^9, 
   3.831805885217389*^9, {3.8318235376013265`*^9, 3.831823563447502*^9}, 
   3.8318236198691216`*^9, 3.831828157152676*^9, 3.8318343986541047`*^9, {
   3.83183467334256*^9, 3.831834716497449*^9}, 3.831839799227975*^9, 
   3.832947511754306*^9, 3.8329617963458614`*^9, 3.845826888956478*^9, 
   3.845852479310865*^9, 3.8458570896402197`*^9, 3.8459196372478237`*^9, 
   3.8460065881922765`*^9, 3.8460998998952827`*^9, 3.8474704623732786`*^9, 
   3.851700647660427*^9, 3.853975463045611*^9, 3.8549774234240274`*^9, 
   3.854989275710299*^9, 3.854999913395585*^9, 3.8551652630562334`*^9, 
   3.855182331793569*^9, 3.855185875664974*^9, 3.855330654098742*^9, 
   3.855339858822657*^9, 3.855343196237032*^9, 3.8553440299623613`*^9, 
   3.855352756637601*^9, 3.85544962018878*^9, 3.8555076215109873`*^9, 
   3.855508419057136*^9, 3.855512907427732*^9, 3.855533338847754*^9, 
   3.8555789330102663`*^9, 3.85559330495625*^9, 3.8557506175032673`*^9},
 CellLabel->
  "Out[355]=",ExpressionUUID->"93f5a966-3141-445c-ace3-955331787ef4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Bt", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "-", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Gt", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", " ", 
      RowBox[{"I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"CommuteGammastdowndown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"UD", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "3", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"At", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+",
              " ", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", "1", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
              RowBox[{"\[CurlyPhi]", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"I", " ", 
       FractionBox["2", "3"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downupupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Hamn", "[", 
            RowBox[{"nu", ",", "ap", ",", "bt"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, 3.831222631982333*^9, {
   3.8312226673263197`*^9, 3.8312226704612937`*^9}, {3.8312229112856684`*^9, 
   3.8312229258835363`*^9}, {3.831223098749104*^9, 3.831223337077551*^9}, {
   3.8312234382368727`*^9, 3.8312234564921618`*^9}, {3.831223521847991*^9, 
   3.831223522905406*^9}, {3.8312236265577116`*^9, 3.8312236269345393`*^9}, {
   3.8318234500562487`*^9, 3.8318235286864443`*^9}, {3.831823559287733*^9, 
   3.831823559553809*^9}, {3.831829183010249*^9, 3.8318291871564393`*^9}, {
   3.8318344052123504`*^9, 3.831834475894414*^9}, {3.8318345668881884`*^9, 
   3.8318347124815655`*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"3a1fcb48-4ca7-4dcc-bda0-7f3a93661da1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], 
   " ", "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.738583987798254*^9}, {3.746795246915931*^9, 
   3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, {
   3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 
   3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, {
   3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 
   3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 
   3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 
   3.747486056829548*^9, {3.7493830494673615`*^9, 3.749383050607041*^9}, {
   3.749383130633822*^9, 3.7493831323038206`*^9}, {3.7675393683993883`*^9, 
   3.767539368965523*^9}, {3.8312227380231514`*^9, 3.8312228069258747`*^9}, 
   3.8312228644057198`*^9, {3.8312234885720816`*^9, 3.831223493369345*^9}},
 CellLabel->
  "In[357]:=",ExpressionUUID->"e24fc3e3-0de6-4926-90a8-a095f479039b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.751405324826857*^9, 3.751566887006461*^9, 3.751727185490629*^9, 
   3.751734096141694*^9, 3.751737168081163*^9, 3.752250147466023*^9, 
   3.752256220811919*^9, 3.7522656173424673`*^9, 3.7523217125262628`*^9, 
   3.752324518723379*^9, 3.7524081675889006`*^9, 3.7524944970227137`*^9, 
   3.7524967017587833`*^9, 3.7524995173695784`*^9, 3.7525365544443827`*^9, 
   3.752537933700184*^9, 3.8312235071799235`*^9, 3.831223540368003*^9, 
   3.831223631796571*^9, 3.8318058853440533`*^9, {3.831823537866927*^9, 
   3.831823563689347*^9}, 3.8318236200253735`*^9, 3.8318281572494984`*^9, {
   3.8318346735816865`*^9, 3.8318347167161903`*^9}, 3.8318397993383937`*^9, 
   3.832947511879327*^9, 3.8329617964615526`*^9, 3.8458268891126585`*^9, 
   3.845852479450972*^9, 3.845857089753941*^9, 3.8459196374196253`*^9, 
   3.8460065883071394`*^9, 3.8460999000514927`*^9, 3.847470462513871*^9, 
   3.8517006477854047`*^9, 3.853975463160037*^9, 3.8549774235504017`*^9, 
   3.8549892759559927`*^9, 3.854999913520586*^9, 3.855165263196824*^9, 
   3.855182331934143*^9, 3.8551858757876673`*^9, 3.855330654223714*^9, 
   3.855339858947598*^9, 3.8553431963932714`*^9, 3.855344030111848*^9, 
   3.855352756870224*^9, 3.855449620348686*^9, 3.855507621628928*^9, 
   3.8555084191704073`*^9, 3.855512907582505*^9, 3.855533338969425*^9, 
   3.8555789331419086`*^9, 3.8555933050796785`*^9, 3.855750617620656*^9},
 CellLabel->
  "Out[357]=",ExpressionUUID->"84b46beb-956a-4330-98b5-06ecb74ccaa9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdwFUcWtu3PxmsMNuBEMDnnKDBJAgSGBSSiyVkkkXMSSYAAEYUQQSQh
hMk5Q5EzCLvIyUUSFBhMkQpMsd711v2fX10733wz945m5o6Ccb9VUFdz5/ac
Pn36nPf0dMjfdWDznh9+8MEHQ9PzX/Ogkf5DhgSF/JCFP1oOGNo7eECP7g0G
DOsR3GNIla4fcXEB/7Lx4f//7JKQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkLCOc+fO
9ezZs3r16v379799+7ZyPSEhYd68ea9evUpF2f5uuHz58oIFC7Zt2/bnn38q
F9+9e7d58+bp06dfv349FWVLMUiDtAq3ZvPo0aPo6OiFCxe+fv3ay/LRPBZ4
6tSp//73v14WpQdlUjLl8xTHC5dwCn/88ceePXsiIyMxNvV1B81MIm3iyZMn
YWFh/v7+zZs337dvn+IE3r59GxMTc+nSpdQVL3WBElBO+/bt4+Litm7d2qFD
h4wZM7Zu3XrmzJldu3Zt0aKFXj//+c9/goOD+/TpwwdHZHDr/99XvHjxws/P
b9myZeqLW7Zs8fHx+fXXX/n88OHDxo0bDx48WK0NPuO+cuTIceLEiZSWOGVh
ySDj4+O5vnPnzuSI7GkKJ0+eLFas2K1bt5Qrmm7o1mwIaiEhIZUqVcLqvBRg
6tSpFSpUWLx4sVO9Xg3KpGTK5ymOF57qePbsWWxsLOT/+fPnqS1LEtCbGXZF
u+zYscOVyHXxP0WLFt27d6/6Vw6amUSSIFxGRUVt2rQpZcIljb5r165mzZrN
mDGDdg8NDc2aNSttPXny5JEjRzZo0GDVqlWKJGk52dfbtlO4du3aoUOH1DGI
p6Co/v37E9nRidtfPXjwwMH+4tb/v69A1bdv34YqqC++evVKycFRLIR/zZo1
mh9u374dbyaI1nsMSwZ5586dqlWrjhkz5r0nURgMldVUU90N3ZoNHapXr169
e/f2vmfNSISXhaT6I1IFtB31KlWq1KNHj1JbliSgNzP4LR3wjz/+EH9CovBC
mgFDp8yMZ1HO119/TacuXrw4CcLvv//uTYFpATQ6TV+gQIFq1aoRxFevXu2l
syJcBgQEkEAlRzqjB7EJXvTmzRvlCpx5yZIltBR5gSYepeVk360LfW/giTb8
PUGiUaZMmatXr6ov0vRQhVatWineTALQhcuXLy/S5L853JoNPQvXvWLFCu/L
lyTKNui848ePb9269XvQeSMjI5s0aaLJAZ0yM1jBhAkTyKZHjhy5c+fO90Bd
rkQS1a1bt2HDhoWFhWleg9rDy5cva9asGRsb631RyQFnk33IG8QgOjoaJ/9+
2MO7d+8WLFgwaNCgNm3aPHnyhCtkCuvXr6eOBsNWScKt/3//gIvAz3Tv3p2U
TfFCBw8eHDFiRNOmTfkgrsTFxdWuXfvp06ebNm0KCQmhA+Kj0HO9evUiIiI8
lUx64j3HxkrTfrKsxvHjx0nuyC9SWxA3oDkOHz68aNEiGv23336zXQ6/xf02
a9YMwxBX9N3Q5cFsLl26VLhwYU+um4zy2bNnJsVIYRKVHKaIY7fto5QS/vWv
f1n9FZ29YcOGnjpvGoHezBISEuB+Xbp04boY9KBR2rVrN3HiRKxu4cKFQUFB
UVFR2LlTZsZT5s+fjytzqlICyWFL5ivFo+fNm6cfNbIt1ZUrV3B66lkNNAGe
EFezfPlyx7VnCY4n+7/88kuRIkWImNib7c6rt+1UxNq1azds2HDr1q2CBQue
OXPGlciK8Xt47LJly9o2VLf+31HB0wR+/vnnmJgYQmrFihXF7IgbN25MmjQJ
HUKiQkNDsUD6Wr9+/dAAvPTcuXOwev6kw8ITihYt6naMFH5F+qZwMDMgy8PO
xSzQI0eODBkyRNjnn3/+uWTJEnqiI+9Vqc6FCxcwD7KwpUuXKuHeQcyePRtu
mTbH/Im2jRs3pucSiWzPl0aHNMfp06dbtmxJei54sr4bejIb0tVq1aq57U3Y
3tChQ833WTXD4XG06Zw5c5AHUwkPD1+9erXJchCmb9++X3755dmzZ12JJocY
xGWKUj/CcVPcuHEj1uKlb0e3o0ePNumdbt++3b9/f6pGBfPly0eY8+bRyQq9
mdGnkPzmzZvLli3DhMRSDjhk5cqV586dC4cnWBMucWjc7JSZYVezZs2aNm3a
xESoV5SYQcq4NZfFSnEbNjNlyhS8NExAcVaWpELJ1A4uMXXqVOpYvXp1tbYp
AfMmq4Jcbd261aAcFLJr1y48EiJRoI2MwBjGyb4NQKL++c9/apJQtLFu3Tp/
f//PP//8o48+8vHxwW5bt27dqFEjNNOhQwf6qfpmvQt1CpYkEYDnYOe46OLF
i6sZLyH++++/1xiVKJ84ApNMnz79119/XbNmzcGDB2sIvCf/72BN9aBp9u/f
r2QHND1RiU6HddH7TPY1Kkg48/X1zZgxI0GBZHPfvn3qG3766afy5ct/8skn
uXLlwoE/T0STJk3ogOIRVPPNmze4plKlSkEgXYkhpkqVKtmzZyetUI+ZoxaK
0o+RUs7kyZMJPeb9A3dS0+7du1N9EcJ69uypqAJ56Ko8zmRpnkCBcGPySuyf
yEXXDgwMFBHfDK5du9apU6dKlSphnKi3QoUKbdq0EWFXAcVisWPHjk3u19xE
kB07dqjt9v79++TghEjchaeZijgoZMbMNNfFLFzRKfLnz4/lU5ryLXXB02bN
mpVvIdvQZjod2iAKHzp0SNyj74ZuzUbMVAF626BR2rZte+rUKfNKUDMc+HDV
qlWFxVIUAXTz5s3mi8IYFGPGdWD8YqKyZrDLKVN0JYZUHJr387qFQ6b5kow+
Dx48wDMQ2vhM3lS6dOkUns149erVFi1aYEgZMmSgH02fPl0tM4kb/YuvsmTJ
0q5du6eJUJsZBobBi8ULQUFBwj9gjZkzZ4ZHqRdpOmhmlLBq1SqSTT4fPXrU
z8/v3r175n+bAm7NZb1SWJ1YU4BUxBcUpTSEeam4hx6HNoTTc6ttvsLIDUgU
TUywgERBpfAYkDqcj8lBcpPR3CDZtwe3JEqAxkV+DDg+Pl65iG5J2EXAVVpf
70KdhXlJBFAmJBZlqrukWxKlgNBJ1xswYIDbQO+JNiQfxOg6blyMjeDu6H1E
AWLZjz/+mDdvXqi++dccCQkJBQoUqFWrllviB8uClyqlXbx4Ea3SAdUZMSZH
+4pYfPnyZfwtV1AXPpBehp6VMVLInkaHx44d4zou0Xz1oQR16tQRywPFZxIi
9Q1XrlyB8Hg5AE7ejXNWF0K6SkNbCiXUi0hUpkyZx48f678VE6IccYzGgAp+
9tlnCkM+cOAALhrCT55OaoM/ITfX27YnEiWAYXz88cck3XoGiG3g/6FnSpmk
56iOnqJ0Rk03dGs2YqYKatdEfIqdNGkSUdUS+VQzHNgsjxMWi9+ABeHrTJaj
HvCnOqNGjSKai46vf2PoiCnS+5o3b26ewBuDPtixY0eyeIN7RB3hABiwmBCF
JaT8jA6eiG7x7WRz+m+JyDhttVr0ZsZnCJjiHyIjIzE5WpyqQfUxJB7hrJkp
IG6SOhGATN6fMm7Ny0rhDXLnzk0UsCQVBAziynN5KNquUaOG29dSxiQKyadO
nQqJUuwQKtW+fftBgwZZmqBuHM09Jfu2YUyiIJOYt360Z/369VwXw6Tiit62
HYQlSVyJPsTf31+zEllNouhKu3fvJnNXNvMhs6CcYcOGCbVTGlYEXblx44bL
g/93vJoaIKpIS7EoApnak2zbtu3TTz8lOJrUtrDwsmXL6l9X0WTjxo1Tv8oJ
Dw+HblH9BQsWqEMk/UIsfxBvNvG95LD4gdu3b0dHR6PJBg0a0HPxVDBqpTRC
D84ZTVqq+/Xr10uUKCHSPZoA5fNZrXN0gkmEhYXZHuHhh1jIF198oX6FAUct
Xry48VvpCxcuwC6UOU7wUtSFL1U6EWwKsyShQHtiQpR66ZAZ0Ey0gqWhTm5W
GvHhw4chISHKmAZGQi6ZKVMmPVkyJlEI//nnn+PB9L6InohNqtNVzIMrmzZt
OnLkiLio6YZuzQYzK1SoED2L2Kd+44kBkEVanUimZjgEUPq70CG5D16OR5vs
L0hSt25dKCJGgtgBAQGKy9WTKO9NUUgYFBTkoFehIerXr2/wUo8mo3WEx6OT
EiXnzJkjsiF7Tzx69OiqVaus/pz78T8ZMmTYs2eP/is4xq5du9Qy683s0qVL
BP3z58+7VBOi+NCjR4/Q0NCTJ09CJjEnp8yMfo3exOgTXaxixYr0NZO1TgG3
5rJeKTH6hIsQPop2zJYtG/9bkgqvmCNHDjFh4+rVq1STdtHbszGJorciOTmp
ejx23bp1RYoUMaiOpWhukOzbhj0ShQDNmjXDLO/evevyYNsOwrwkAii8QIEC
hw8fVt+pJlFoEjlz5szJb0Wf0qidb6GyuDXRmm79fwrwKAEiO2kUUVWZtCYy
IMK9yZxFTH359ttvNW/wxVQBzcKxpUuXUllUcfPmTXEFyydN5oqYXjJixIjh
w4fzgW7StGlTso9Tp07RRlwkIhNi1JPr4H7wtwcPHliqMiwF7kHFeSJcjkzz
7NmziKo2e7wZVufNdGjqpRkfe/r0qY+PT//+/Q36FxSlYcOGuXLlEqsMNCTq
2bNn1Bcfglfhz6ioKAwG702NzAsG6SIC2p6gtWHDBmRQU6MDBw5kzJiRTqS5
05hE4Rxwp/QRjanjrPC66rcYRGGCV+fOnbFSJUipu6Ens4Gc0CvJTdSDdTQ6
Hlu89bBUcYXhiPEN5KEEvBNVgAriuk0O9dBNihYtitLmzp07evRorEL/CDW8
NEWMsF69erSavZ+7BXaIWXpqWVdijo9PoIJ8hoEQp7h5/vz5tt8nLlu2TJkD
YAmLFy9Oly4dibDmOj0Ic1LbnlszW758OX1WDKTTBDAcsdEixeLA4fBcdNDM
jh07NnjwYPF07ISebjzip0YKuDUbleLpxG44huBIYkKsZqAmSangJ6iC9JlC
YOMELIK1pmouE6/z8C0ab8Ojv/nmG2iSp59YiuaYvdtk3xvYI1GAHAHLF33Q
rW07CPOSCNBGNKiGYGhe51EmbpYYIQb51WoHeE7ULlyuJ//veDU9gU5XsGDB
MmXKKFFVvEKCFJlMN6hs3759M2XKpBEbGkCP07+gxJLVIycoDX0qls/9Sg/F
4NW7c5D5qnsN5j158mSr6yAogZBHc4waNYr+iPJJT4jami1VHz9+TGfXbKln
A6h327ZtZF7UC9dRsmRJjNlYYJKjf/zjH3hpl45EUc7nn3+uZG30fb4dOXKk
pWzXSxK1fv36jz/+eODAgUpbiPFtmLDmTmMSJbSBP1RTTeq1atUqMddIDTGM
r85VNd3Qk9lwUUNlMT9ovI310QrDQXVly5bl6bgFLLBLly4YIV+Z3EaeViMv
wwnQmprs2y2J8tIUxdtGZ9dv0vR9+vQx3teOahJ36GIhISFYKRSIKG97DMQ2
iYKEfPrppxMmTFA/GvMIDQ3Vz+XTmBnG0z0Rimmpx2/5rHRkp8yMKAzVxK7Q
XseOHTEGk84tZdyavUrhA5GE1l+5cmWjRo30IyFJSoUSxHAW/IRq+vn58ad+
LWSSJMqVqCj4Mx7mypUrNDQ5Ph7VeFWI+WjuKdn3BrZJFHr+7LPPcMuCN+pd
qIMwKQnfkoagwBYtWmi6pEtHogQ1UnSrVrvomNmzZ1e6sAFtcByoMSIiAjvE
Byo+PyEhQT3lBpsvXLgw+Zc6RzYGtk3cF5NIBagUbNCAjeOC2rdvD0eNjo6m
Y9pIUbHShg0bihfl6uvUhbiG5/zqq69mzZqleKG7d+8ePHhQ+IGlS5cSxIUG
XidCU7gYXpsyZYptq0MMEWgwIZ5LCnD48OGsWbOqZ3u6BckRJieYkoZEbd68
OX369Aiv3ExaYXUenXkSJda8jBs37ocfflCmMSA8iaH6oRs2bKD14XKanxuT
KPHGB0tTDyTevHlz4sSJBl0AMQy6oRkgfP78+dUTIAWMzcalYjhiQhQ5ApKL
28QMZPNFeYJbEuWlKRKUyYn0BO/EiROVK1f+8MMPSaDUr1ewUjOMi27raRqk
AoxTvPJDA+bnWLqFbRJ1/vx5fG/Xrl3VDUQisGbNGk/6FEsbSNvx+bBle5OE
PZlZkmrn6cRNnICmh6LDqKgocltSmNatWyuDOfTELVu28GcKuDXbleK59JrT
p0+7dVYmpcKEBDNxWzWXCRJFmo8rg2TSshAnEtXIyEj6aZK8y3w0d+mSfS9h
m0TBFflKk6UmE0xKgvfmtr59+9K/9O/aNCQKY8AkCIXidYNa7TQ07VikSBEb
21nglOAM/Ly5Idq1a+d2NTFPj4mJgYFjDPny5fP09gHrypAhw6JFi8wLxk/o
2prxuhUrVhh0CroDPAF9Enzt7eyBkylXrhzZjeZiQEBAYGAgpKVfv3558uQR
1I66iyHW69evk5iL12EG4P7+/fuTDNqbDUuLV6pUST2bjr6AJ0dLM2fONP4t
PgprQS3IoCFRy5cvp8vrB2oswTyJwuesW7dOzOT0NGmBvkCaprx/1HxlQKJQ
LCz6yy+/xCDFFUyCXmN8ChU8xKAbmsGePXvofZpFT0majUvFcHg0CvTE9MwU
5QluSZQ3pih+q5/UjV8i3gUHB0+bNq1p06b0IzHnjVyGXmwmj9u9e3fx4sVT
7KQ/2yQKCfPmzVuvXj0lfOOrx48fb0z/duzY0aNHD5IgNSWwBLdmZlvtBCk8
P4nt2LFjQ0ND+SG5mLB/yAlZDL0vBdyas5VySioFBiSKRxDR8MmKt3ElnjVW
s2bNL774wlhvyRTNTcI2iYKxUDWqnAJnLTkiiX51HpkOVERsQq5WO2kCIYnc
0AY/hESNGzcO0t7IEDSrZsqWALYN8abrzZ49u0CBAm7zTZJocopu3bpZenMq
xusUL3f//n3kTG4CTDylFurX2Tw9IiJCef/uSqQBAwYMENvdL1iwgLY+duwY
QT9J2SgBr1WnTh3jcZ7Lly/jKDSnOBFG0SFP0Syprl69esaMGQ1mkgjQTKR7
eAN6qJpEib6sJES2YZJE8XSUiXPAw5D/asiqgn379uXMmdPtpF9jEoXGQkJC
1AqhKUmlk3u7BphM6dKl1dU3YzZcJEaI9AQ+KaaFu62UmaL0EAcQUz5P0X9l
2xSFk4dzqi+S0ROzFNIrZIaf86Dt27eb3G8Nqp87d+4U2x/YNomishUrVixf
vrwIQ9gkGna7WM9Z6M3MG7WfOHGCrEohfhQFiYKQk3fQ6MSdFHBrjlfKqlRJ
woBE4WSyZs2qeW13+vRp3KliGwZIjmhuErZJFDaTKVMmXH0KLPl3RBI9iSLE
FyxYsHfv3pSvVjuJNq1p702ElyApoC1od39//6CgID3tp46oon379lZN4saN
G998802LFi3Equ2ZM2din84J7h43b94kfKvp4tOnTxcvXqx+GY0wc+bM4U66
j1hiYx6zZs2qVq2accb64MEDbEN9ZhbNKoaISXPUd4pZ5WSLSa5+FfOWxYQf
NYmi+Ro0aKDZZS5J3L59G/fbRwXal7wAA1BfJDfX9FNqRO3EumBSLbdjDvCx
qlWrRkdHu41uxiTKlTikky5dOnFYBpUdM2ZMCiRNMBncpvrtkkmzgbsOHDjQ
+ABi2xYoDiCmfLcM2Z4puhKbgIti1YZykb6pXpXmSkydwsPDMQBM12TfJ87S
+/RvdrwHou7Zs6dfv35q+yROFS1alNopV2CGxPQkZzjTFgEBAYgqcsYDBw6o
1wUnH/RmZlvtSBsXF6fJeeEn69evJ8cnu7EUSmzbkrOVsiFVkvBEooTnxH40
40XokCQOS0vSilIxmtsmUaRyH3/8ccowDfOScCcGQ3PrR//0JIr7Fy1alD9/
fsxMUTsEhmQTO1TvLpjCIJXOli2bfnMhake4xDXZsGQqXrx4cUHIjxw5QvfR
uynHmxLrwjcmmezgkDdv3jx//nyrhBwq6OfnZzwcDZ+h1uozs8SOtfQ4DevA
3X311VchISFmHDg3FytWjJQZfQoSRfYXExPz9ddfb9u2zVItkHDjxo1xKlAv
/AkKUV+kWLdjj7AaaJLwHpqvEKlVq1YGPjxJEsVD06dPHxYWhveDaZBNa24Q
CzYt1TdJwNzKli2b5Hw/22aTHEXZM0VXYhMQPoYMGWKsRvSPeDt27NAwfwMQ
PnLlypVMQzokZThetX127dq1bt261E65guHhWpP0KsK9i/FbLHb06NH6eIRy
HPdOZszMhtoVwHOgNMuWLTO/QZmAbVtyJWelzEiVJDyRKGwV39u5c2fNuEFE
RESmTJncvrXRwF40h23C88VGo7YrZY9E0fG7dOmSPXt29ZZcyQfzkqBJ/Hy+
fPn057162rF8w4YNhNQBAwbAePlATtSiRQurm/kroC38/f3/z//5Px8YgsC0
fPlytyWInWzFACYWpbgOPtAfx44dK/y8OK/E5GojV+JMvxo1ahCayU/HjBmj
HmyhQNTFQ318fMzvvmsGIjtI8uzdU6dOjRo1SrOVepJAAzBnmsx4kQX1LVKk
iHoaD4lY6dKlMXt1xBQnehB0zJ+/SRxp1qwZllmiRAlMLigoiEyNynrv7S2t
zhPD4PzPc9UuCNvAqvGTQh4qq4+nSZIoehz9rkePHnQrza62WNTcuXPFkhyx
vaG1SnoG8bdkyZJJjgfaM5vkKMq2KboSwwpENzg42JhEiRkjaNv8biFwkjx5
8ly/ft3k/V7C9us8sWPbJ598QipBcNfkXPQykmLqDs/s1q2bgwfMmTEzG2pX
QIAODQ2NioqyNI/IG1tyJVulTEqVJDyRqF27dmXIkAFdqS/iYerUqdOkSROT
zM1GNMcr4vZLlSrljV3ZI1EHDhz44osvsPwUGHS1KsmJEyewIv1sIoMdy1E+
Gfdnn31GQPF+t9jjx4+vWrXqR0OsX7/e04PEASvwHOxt8eLFypqC7du3T58+
XbFhPpAamF8FT2mtW7f+8ssvR4wYodnXDhNFaWTi6M1ZEiVekIkdeg1w9uxZ
knGrmkfVhG/8qhLZlYPAxo0b17NnTzEyjFeBY1PrkJAQAiWVFfvPd+rUSU0J
SFUgrsru3OZPXsOuKlSoUKhQIWKWU93BPIkSm1dUrlwZ9n7y5EllQjvOgU6h
no1GmSRcmp8nSaKgwblz5ybnHT58uNrlCkq/bt061/+2pkF7TgU4wmiBAgWS
TGTsmU1yFGXbFMVvsTTYuHGoRcl0f1pBPOL8+fM0SvXq1UUaRV5Qu3ZtDED9
E/h8mTJlUuywV9skCqxcuTJdunQoig6o1oM4q6JPnz5cxJlUrFhx9OjRTvUy
M2amUbslvHz5kghufhcpAW9sKfkqpZfKHjyRKAIQsUn4EwXclj9/fuXtuadj
BzWwFM3FXv1ERm8mzBuTqO7du2sOW0GZRBOajyawPfRNx8dplC5d2vw2R+Yl
IfBRI/2LD+NjX8R6K7ebM6cwkCRXrlyQw4SEBKKemPl86NChWrVq0WXGJgKK
1bVrV+UoCjOgXijqgw8+oBu6tb3Dhw87TqIQ/ocffsDvGQ/OHDt2jBpZ7Z7U
ncBHlir+1BwEJqY2id1yyEcwORLDmjVr0hPFJEl/f39lPgDWglq6dOmivCc1
f/IaJfv5+bndDd42zJMonk6lRBfAWsQLShwCrKZx48Zj/wfcbGBgoH45Z5Ik
StBg0jpov/o6jdWjR48aNWoIHULLs2XLpn/ZZw+EALLsJA/DtWc2yVGUbVMU
98fExIjjHgweIZi88oofUbFYZUoMWVulSpU0BjN37ty6deum2MnX3pAoMfVF
n/yKfRT5lg/okJAxY8YMp97rmTEzjdotgVYODg62SmK9tKVkqpRGKtvwRKIw
fhyyen3xzZs38cDK6uk/DY8d1MB8NBfHq3l5GLHxAcQZMmQg7OJFYYCwNdwy
9aLtxLsD9U/oqiQROHP0gOUY7C/qSvT8TZo0+fzzz5PcxtmqJGJsnIQFMVCy
eqcRgwOIGzVqVKhQIcrPlCkTBony9Vum4KDg/KGhoZjf/Pnzk+N0GwHaAnNF
mVOmTBGUhm5Iv9C/E3Q7DcYABFmqKQ6y0SM5SJQrcToi4duY7BGgrc4jciW6
lwoVKojtQ//r4SAw/uSieHMq1Cg2RqZ9oUzQANgp7Aib4efqd6NmTl67du1a
x44dCV4ff/wxeXT58uWxTM0BxK5EmyS+4AFmz57NU8xQI0v7RJGfwqjRs/I2
ihp98skn+jfIereZJIkSzrNt27b6FqTLKxoTsxGszv3wBDFpTT9upoE9s0mO
orwxRdf/5tcZb61AS02YMEGZ2vH8+fPq1auLKTHYCRmW5qwiPENQUBD+SnGA
NuzQErwhUdQ9Z86cBltEkvfheIkabk+otAczZqZRuyXAZ8RkQku/8tKWkqlS
aqkE7AVEg9V5uFkCPX7sxIkTyA+32bBhg2K9SR476LISzZXBPSw2X758SeZr
xjAYiTIPNDNgwABx9DNchSqYYbmEG82qAe9BFytTpkxkZKRIYSBaSqczHoky
BgZDq4lN7KdOnUozJWt+R+FXr151/BFowO3MfIFkIlGXL1+G+ionyOhB76Mz
GgjmCUQ93IXI3zUHgcGuSS6wRtgI/EcsuTpw4ED27NkVkiP2xV26dCldVT83
wJuT1zS1Gz16NIQNCalj8eLFzcy5sjQniorQi+0FlyRJFP3o5MmTxtk0fQpn
5faAY9uIiopq2bKlwQQM22aTHEV5aYr0dOiBPiioQcjr27evwlrhXYULF8aW
+G23bt0Ir5pgTaP4+voqUc+eHVqCNyQKqQ4ePOipuXFKZJTYw6RJk8zPAjWD
JM1Mo3ZLIJehU1gdN/PSlpKpUmqpXF4ExCTPzqM60dHRGINm8VSSxw6ah2Zw
j6K8PIzYERJ19OjRXLlyiXeXuFy3U5L02LRpk+MrR3Aa+AfxRhgt5cmTR5HE
Non6b+IRmYQJxepSfuuDFEAykSjsHCdvsNWt2DvaaruIYulu4k/NQWDQ+N27
d5MfXbp0iYbD53B/jx49cB1mEkMvT15T49ixY3nz5lVcnEnLgbCRUjl1KoEB
kiRRSQJRg4KCNHPOvcfdu3erVKmiH9ZTYM9skqMoR0xx7dq10GaD9eZ79+6F
6SlKjomJqV69OkRo4MCBcXFxeuWvXr26bdu2SmizZ4eWQAUPHTrkeLEKcL91
69ZVdrB0BEmamUbt5iGGiK1OiHLElhyvlEYqbwKimWNf3MLMsYNm4Glwz6o8
ajhCoqZPn16+fHmxrBIajDdAvcZtxM2QasfPT1m+fDkdjWLFK1ShK/GVbRIl
DqNXn0T2XiKZSJQrcTAqMDDQ02gGzKRPnz5WHSNcnWxLvS5VcxAYrU+/+/e/
/41x0nawoOHDh5tMvrw8eU2NmTNnava+S1PwkkTRNSZMmCBG3clcvEzo1BDn
etCIntyIPbNJjqIcMUVcFsHF0wC+WDqqvLDDEQ0YMADnRoFuNwdDGERSzzNP
43boCVRk0qRJYiqsOHuuSJEiNhbKeYKxmWnUbgnEHfyG/uw/YzhiS45XSiOV
NwHRHokyeeygGWgG9whMFEjf9yatcIRE0WQNGzaENtOaAQEB1HHTpk0GTBiB
N27cKIbmnAX5e7t27dAJZMDHx0c9z8E2iRKHX0ycOFHoGROi2GQ9Pi9VkHwk
Cr2ROGO3buMUKbP6pDkzePz4MaFfv1mop4PA+Gzp3WiSJ6+Zx8qVK5UZ7OIV
s1MThxyBNySK/o43XrFiBZHiwoUL+DRnq0YXCw4O9jSf34bZeII3RTloileu
XCFUue2ANBPdR30chgEwVJgtKao6xqVxO/SEa9euFS9eHJbuStRkx44diZ6W
drJNEgZmZkntGpBTQDMsuR0HbcnBSuml8iYg2iNRJk9TNQPN4B6cHO83f/58
L/eJypo1qzhYx/ZmpA8fPqT7k7PjSFEvn+HJzr68NgnYYFBQEMkLLaWcc0H+
hUglSpQoXLiwvUH7n376SaQDUVFR1NGAH/4VgWulvRo0aJAhQwaaD8Lj4IC5
AH2HLkCn1hN+jMeS4SEbAcLkaQX2YHzymiWg2549e44cOXLJkiWENmzSy6Fj
ZyF2esyXL1+dOnUsTZIhQE+ZMuWjjz5SJq7jQxyc9CtAzw0NDXU7oc6q2RjA
dlGOmyKhKjw8XB8Z0TZB2WTiv2/fPmKE5l1wGrdDT4AQ/vjjjygZ1jdv3rwa
NWokh+/1ZGaW1K4B3sPSiJnjtuRIpTxJZSMgCo/h4+OTOXNmqyTK5GmqJqEZ
3Bs6dOjatWu9GYnCSu/evYuqxdtG2+WgIlpNlPD06dPkW7xmRhKcudpIEIb8
jjomJCTYfiXHD3G2798AVErCKb+drP5fdHZPJ6/ZAzljmn2TQnJH18CvpsAU
LBsQxxCkthQe4bgpUlkvDc9ApLRshwYgNSaOnzt3LvlMNC2YmeO25EilPEll
IyBie7iaW7duWd0cyeSxg+bhaXBPQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQoM/
/vhjz549kZGRmm0e4+PjZ86cuXPnzvfyjEIJ28BOFixYsG3bNvVub+/evdu8
efP06dOvX7+eirJJSKhx7ty5nj17Vq9evX///uIsV4GEhIR58+alyk7UEhIS
fy1AgUJDQ5s3b67e//zhw4cVKlTYsWOHuOHEiRNFixbdu3ev+od37typWrXq
mDFjJIn6W+HFixd+fn7Lli1TrvznP/8JDg7u06eP2DMQ42ncuPHgwYPVJIrP
UPEcOXJgS14K8Pvvv+/evRv2nkx76mLY8L2zZ89Kw36P8fbt27CwsPbt28fF
xW3durVDhw4ZM2Zs3bo1iWHXrl1btGhh48Q3CQmJvyceP36s2SGZaHjr1i1l
F1wCH5xKc4jqr7/+Wr58eUG0JDQg0MfGxh47dsypQHz58uWoqKhNmzal+vna
4hRjzW7GDx48UM5K44O/v/+aNWs0P9y+fTtW5P3xx6giV65cI0eOTKZtvbH2
Nm3a+Pr6ps3N4dMIsIHo6Oi7d+86UhoOB2I8e/Zspw4NSRLXrl07dOiQunvi
8Ugn+/fvv2XLFk3Ty1F3CQkJbxAZGdmkSRNN3Dx+/HixYsVI21NLqjQOXHTu
3Ln535HSHj58GBAQEBwcnOrHXiQJSE6ZMmWuXr2qvkj0GTNmTKtWrbw/NYPy
GzVqlKwMJwUe8VcHZH706NGVK1d++vSp96VhHviTAgUKqA+jTzuQo+4SEu8Z
3rx5Q6ZPJrhjxw5votLZs2eHDRtGdL5x44a4kpCQMH78+C5duoSFhYl4Tfnt
2rWbOHEiif/ChQuDgoKioqJwJqSN9erV83RA+a+//uplDKIEZ09YpjpQkRRz
g1S/WbNm3bt3V9Oely9f2jvdnh/WrFkzNjbWMfmsg4qsWLGCGvXu3Vswauq4
YMGCQYMGtWnTRhkXiouLq127NrF106ZNISEh3bp1o8rYCdYSERHhqWTzTZPy
JMpxU3z9+vV7cBYYTgPas3nzZvVF2xZ+6tSpkiVLqpMybGb9+vV4Of3QUApD
jrpLSLxn+OWXX4oUKUIsg9XYdi+4u2nTpl28eLFw4cJHjx51JXotyNLNmzeX
LVtWrVo1Ma8SB0K+OXfuXMIlkY50LCYmhoe2bNly7Nix+sDHlY0bN0KxvBxz
OHfuHKmuPYesB1WbMGGCg8evm8HatWvR7a1bt5Qrz58/HzVq1Pnz560WdeXK
lWLFiqXuPI2ff/6ZpodHVaxYkYq4Eiu4YcMGKliwYMEzZ864EulQv379IE7E
Plpw+/bt/AlnIDgWLVrU7YQoq02T8iTKWVOEewwdOvTRo0eOlJaKoIN36tSp
devWaoZp28LxMPXr11cnZTioGTNmYEtly5Y1Vtfjx4+xzBEjRoSHh+PQrD46
SchRdwmJNAvo0P79+5XBChjI6dOnQ0NDhwwZsmrVKk/LQ/jVP//5z99++01z
/erVqy1atMiaNWuGDBkqVao0ffp0tX/DKeH0+CpLlizt2rWDEZEOL168mCRL
5MWIwQcxTzgoKEhIReDLnDkzPIpUUaFMIjUjROplO3LkSIcOHUSQ9QY8a/ny
5SEhId4PAvz555+TJ0/GIZucUMRtsbGxOXLkgFKKKu/evbthw4ZWwyi+Hf8/
b9489UXoUNu2bTUTzNyCR+/cuROqPHXq1FatWlWvXt2pOC4At0G9sPH06dPn
z5+faHX//n3106Ho2BLfwpowA6yRZm3SpAkcQGjy6dOnGAlmULx4cczJlTgh
qkqVKtmzZ1+0aJH6/S/3YDD6CVFWm8alYzioCOVQF1ei7dFxTPIrg1bWPMJB
U6TP0vp0JS/LSSPYtWtXvnz5MGn1RfMWDmUijxs+fDhN4OPjM27cOH1SBnX5
/vvvDUgUFBeHyUNp0OvXr7dp04Z0z+Rbb8yGh/r7+2Ox2Dm5AAawZMkSjTUa
j7pLSEikFogy9FmCi3gVgouOiIiYOXMmfuPkyZN169Yl/REJvgaeSJTrf+kh
NOmnn37Sf3vv3j08klImbqF27drjx4/nV4r7IohAwPAk4s/IyMjGjRvHx8f7
+fkRVXEv3CxSM/XkcwE4WPPmzd3KbAOI17FjR6Kkl+UcO3aMOAuHNP8TnHa5
cuXEAD7tghiDBg2yOqlbtEWNGjU0ZDg6OhoekqSfh3hUrVqVJqOcli1b9urV
Kzlmla9du/bjjz8mlunjF8/t2bMnNqk8lzQ/V65ccACl3fnV6NGjsRBBMKAf
pUuXhnENGDAAPv/mzRuuKxOiaFBNFWw0jZrhUBqsSbwz5TNaRWDz08Y8tbJ+
sMsRU6TkSZMmkdq8N1NrYEoFChSYMmWKpkZmLBwTwkiwajSPxytUqJDbpMyY
ROFwyAfVw5g3b94kc4Hdma8FwtMuZJewaLdyehp1l5CQcBZHjx5dtWqVpb6G
c1AGbfbu3UsOpUQZUvuSJUvCZ/SrkAxIFE8nt8Ih7NmzR/8V1EjtXs6fP587
d+7Tp0+TailPuXTpEhfFgLwyIYoPPXr0IOOD3RFKoqKi6tSpQ6wkBKsfsWjR
oqCgIAcnkGzatKl+/frejMDAVElOf/zxR0u/giUWL15cDOAfOHCANBmdWyoB
jUE/Onfu/O233x4+fFj91YMHD3x9fY2HI7CKypUr49tpNaoPE4uLizPzXOxn
/vz5mk29DEBNP//8c7cUkRwfcqVuzfDw8Fq1akGlFEOFXZDIT506VdwgJkRB
ijZu3IiFiDVccMgGDRpAHmJjY69du6aUZq9p1AyHknmK2G9BfFbIv8m6u21l
t28MvTfF69ev16xZ8715K/T48ePg4OBmzZrhozRTvMxYON4SQi4SLrxKqVKl
3K71MyZRmCgJ44QJExTrhbl16dKlbdu2Bl4IX4fjwu8JmkcXw84zZsyIDYgb
aPr9+/evX78eSzYYdZeQkHAWOHPlTYdViJdorVu3Vl6pUM6wYcPSp0+vX7Fi
QKLA4sWL06VLFxMTo7l+4cIFgqDat+DVq1SpMnDgwC1btijcb/ny5UQT4RV5
BCFy3759fEuxECTCJRdJ2QimI0eOVEcEHE69evU2bNhgo/qegBg8CIdmuwS8
NGwEr27pV7NmzRID+CLwKd7VJHDCUFmMAS4UGBio7KEkQMuOGjWKxjUwFRor
R44cIsW+evVqiRIlILdm2CnkrX379noK7QnYUrZs2QiFmsLhJOPHj7937576
4tKlS+FISE6+L65gAAUKFBAskeqMGDFi+PDhfEDapk2bQgKJpNSdi/ClGTNm
qJmJvaZRMxxaB838/PPPrsS5RqVLl+azeQ7vqZXdkigvTZEeFBYWpllo8NdF
QkICNrN582Z0lS9fPs2kazMWDqmGnIjFfSRlDRs2xOT0yjEmUWiVLqbOW4UR
YglwPE+PpmXxhLhWkj6XjkRRwtixY8lD8YTI42nUXUJCwnF4SaI6d+6sHkES
g8wfffQRfVlzszGJ2rlz56effkp2pvYtb968CQ0NVU9yFiDiiPkkihjdE6F4
M/W3fFY8CaFHs+lBfHw86aSziTbKhIFodm40DzQwefJkqyvr0UmLFi3GjBmD
U+3Zs6fbF6MGQNXIDJMRqlu5cmWRIkU0bISgA3/w1IKuREoAPbh27RpVmDNn
TrVq1Ui6Y2Njk9SDVRJFol2yZEnKV79T46GrVq3atGmT/n4inVqZW7duRU4l
xmESiuWgRvV+mC9evFALb69pXP8vw1m7di0BjryD0hYsWFCpUqWzZ8+a0ZLL
sJXdkigvTRG9wT9Td32lU8A4fX19yapQO2ps27Ztx44dNe2YpIUvXLgQ4oSS
0UxAQAANgb3RfJrbkpwT5Ur0S4cOHdq+fTvGjPn17ds3b968mh6nATYD+aeV
xetmNYmCLWNIVFD0CE+j7hISEo7DPIkioERERAwaNAi3rEyYoc/CjhTmgzcI
Cgr67LPP9HsNGZOo8+fPZ8mSpWvXruq0bv369WvWrPH0qlHMIobFEanLli1r
b1vp+fPn43n0k+EpDXf64YcflilTRiwDFDh8+LAZxhUdHV2rVi01lzMPXDSO
WrwUU18nS+3SpQtU86uvvpo1a5bi/+/evXvw4EG+9fHxQfmEPA1RdCWyFPzq
t99++/HHH7du3VqZLM2dW7ZsgTbwuPr16yutww3lypWDCKkLuXnzJswKbXuS
nKeMHz++d+/eJOzYiZ+fH3+aeUlnlUQhsL+/f+HChdUjQog3ceJEgy3BL168
yK9+/vlneIiGrpuEvaZxqRgOHQ3NYOqjRo1CvSNGjKhZsyZaUtYw2m5lTwsA
vTFFiEf+/PlJNDTXvewdyVGUsd7wXbAaCLDiXuBLEBLNPplJWvjDhw9btmxJ
OTQZFgudxtT13sOYRCEbjqtNmzYbNmxAt5gBlg8lg1ob866nT5/S+oIpaUgU
giF506ZNxZCm21F3CQmJ5IBJEsUNMTExV65cOXPmTL58+TxNw8ZlFSxYsFmz
ZvpVIcYkKiEhgUSsXr16Smig++OpjJ0/nrBHjx6QOrX7NQ8q1b9/f7yZJiHF
gePSg4ODcVP4JeiEWLbz/PnzuXPnmjm5AydWvHhxM4t99Hjy5AlPXLlypeYi
bjYwMDA8PLxfv3558uTZuHGj63/LtdSTdvQgcBD3cb9jx44NDQ2l8J49ewpn
SxKNJ8chUymNEog7molt/Fm+fHn9tt4akBSLUP46EWaqbJVEifu//PJLZY0V
T5wyZYrxdgoYZ69evUj5CWH2psDZbhqF4YixnaVLl0JTRfBVa8mbVvZEorwx
RVpEPyBppndwZfPmzeq1sW5hr6NRJiVTvlKpJPXGTwTxUBcC8dA8woyFUya3
iaLESk/9PQYkCjE6duxI6qc0Oh4P082ZMycM39i3YDA1atSgI/NcDYniiZTQ
rVs3RR79qLuEhERywCSJwl9FRkYSembPnk0G5zbBof+KN/vKNphqGJMoIm/F
ihXxYOIGHoSLsPpOyiqIxT/88ANRVV19JIFZKZtX81VERMTy5cvxWtu3bze5
NRAJZu7cuTU7YGuAunbt2kXWrEmHifVoWL3oRsjw448/KlGAIDJgwACcJA2R
5OJokn1yUsVpU0FIFJGFgEuoMr/5DyVUr17d0+aT3sAqiUIhISEhRBBltg/q
gpkk91ok202jMJzr16+XKlXK7UEhXrayJxJlxhQxCSx83rx5minoMBC6s5pL
m+wdU6dOrVChwuLFiw1ktt3RKJOSKV8sDfBSb2o4ZeGeSBSS0BPhpWr/idgT
J0784IMPhB82OJuGbgIBI4fFG2tIFK2cJUuWsLAwuRxPQiL5QP8iTpGp9VHB
19e3aNGivXv3Vq5AKnCeGs9DigS9IRUiXQoKCnI7J2TdunUQIU971hmTKJw/
uSTJlLLsSL3oL5kAVatfv/6wYcPUnuf06dOatcaPHz8mw0VyaKTJhe1ENOqi
fw+iBg89duyYfoLrzZs3+a16cRyJJ1FDHR9pnTlz5nDn6tWrjTcJRIdxcXEa
0kuEWr9+/cWLF1euXGne6xKVaP1JkyaZvN8TyJHRpNoIe/XqRZUbNGigvjhw
4ECDfScWLlyYLl26FStWuBKXi44ZM8b7bb6ShO2mwR58fHy2bNmyd+/eTp06
ubUib1qZ9iX016lTR0+izJgiLUtE1k9spg8qG7IJmOwdMxJh8ETzRXmC8ghv
9KaBUxbuiUTR47Jly9ajRw/Nko3hw4d/+umnYjMK47Np1qxZkzlzZkimhkSR
DUGiTp486aXkEhISxrhx4wYpW5wKXbt2rVu3LsFIuUJgxb+5ja3Hjx/HCXja
rzIwMFCzhZ0axiQKr0IkxT8QN8l8cSOeNkNwMFZCogjcQ4YMMWZrMMb58+dD
dQiCJku+dOlSrly5khxJO3HihObYCFeiooh6SQ55wYc3b96MYDYG7R88eEB8
XLZsmaU9EESImTJlitXHaUBbw0PURrh8+XLoN2xWfZEIaPASatu2benTpyf1
pnWImNBRL6UyA9tNQ0AcN24cTM/qAcQmW1lscoUa9ZZsxhTFHiP699ow1bJl
yxqfNOe2d5ghUSaL8gTjR9jrHU5ZuCcShaH+4x//INlUXyQ/xQNXqlRJ0bPb
s2kEXr9+3bp1axwpzFYhUdeuXStcuDAG4PYldcoflCwh8beC+YnlYmNA8cZN
vdGlK3Fte1BQkLKM7v79+7dv39b83JhEUdrUqVM/+eSTjRs34vo8xSkYYIsW
LZx6108tWrVqFRwcbFx9vl20aNH48ePNL2yHCubJk+f69evGt+FU0Ylm/piY
V5bkoVenTp0aNWrUvn37TIqkBh44NDQ0KirK0iqzV69eVa1alV/ZeKIxrL7O
c/1vsx2SeugTAUKd2hO8SpUqRRiqVq1asWLFIGNOveNIgaZxvCgzpogF1q9f
X/8aCyoLydfv2a6G295hj0RZ6mjGj7CnN6cs3C2JEjMwv/rqK82rVfht9uzZ
SWoUK3V7No0CSBdVa968+Q8//IDD7NatW5UqVSZMmOBpc/I0flCyhMRfHeZJ
FL6U2EQ2TR9fvHixQpnwGMOHD1fPPoUIHTlyRPNzYxLlSlxWny5dup49e5Jh
uQ3uPLF27doU4hSJErtaNWvWzJhL4IWmT59OHUWkPn/+vK+vb/Xq1cXE4MeP
HyOVZiCdOFumTBlxqojr/z0MBW2Lg5IFhatYsSJ/UmtlHaJYgyM2YzTA2bNn
GzRoYO84s5cvX8JFre5lTU3LlSvnNkH2EjZIFHwmd+7cNATtoom56ITIQsui
WPMbeJpBCjSN40VpTFE5tQTlkD6I+V0oM2/evO3atZs8eTLZkDKDnVyG4KtP
iNTQ9A4BNcPhOm1BvsCd9Ljw8HBorcmiXrx40bdv3y+//FJsIyDyOHHkjTGJ
sqc3pyzcLYlCZvgh+lQfVITl9+nTp169eprZaG7PplGDdhw4cCAkauHChUme
7aI/KFlCQsIpmCdR8fHxuXLlOnDgQEJCwrx580SWhNuBhMABxv4PgwcPhlTo
VxIlSaLw2BkzZvTU2XEUPHTSpEkBAQEOrjqJiYkhjzPe0ll4fuUlJh6e+sKI
hNJWrVql36F97ty5devWVZyb28NQUB3RLTIyEu8K5+QGMSMFxZJjjh492nj8
5NixYxBae7sgPnv2jACqBFaTIIMuUqRIchyWaoNECT6Dwaxfv17zFcELU0mO
/SFToGkcL0ptip5OLYFO58+fn+yAeoWEhPTr10/8FvpEix8/ftygfE3vEFAz
HLoGti3276L7V6tWzRNLcVvU1q1blRMMkZk8bu/eva6kRqLs6c0pC/f0Og8y
U7hw4dOnT4s/0TZ88rvvvtNTfU9n0ygQW5a5PeVBD/1ByRISEk7BPInCAZLc
kcbStcW4k9jl8gMdSpQooX8FkCSJgnflzJnT7c5+eAyc8NGjRxctWuQsicJh
FitWzHjxOBFnwoQJSv74/Pnz6tWriynNBIhatWppDjcRm2WFhoYKB6g/DEX8
Fo9avHhxkeZv3LgxT548CnucNWtWYGCgcTUhD7bH53momE1k6Vc80d/fXz3j
l+oTc6kpsW/+/Pm2Y70NEoVysMa2bdvqtUTwgudgpbSamTzdEpK7aZwtSmOK
mlNLRMIiRkjg9ti5uJ+0SPwc1dWrV09zGrUGmt4hoGY4Z8+eLV26tBi4Fnvb
epqJpy9KOcEQC0G2UaNGderUSSjfmETZ05vewtFV3759eRBimJ9354lE4WYX
LFgAp92wYcPhw4dxvK1bt9Y7H4OzaVyJ06LIVZHziy++wNnmzZu3YcOGixcv
1vhwMwclS0hIeA9LO5bTMUnW7EWlJEnUmzdvDh486PY4+ytXrsTExIilzc6S
KOrSpEkT48PL8Oo4UmVLPXgX6STJI7/t1q2bOApZfT/OU30Il+YwFIgTJRAv
li9fjjul1uJEWj8/P8V7i8VcyjEleqAK2IvBroDG2Lx5M8mpJacqNlUWb1LE
FRhUnTp1xFbbU6dObdSokW26YoNEIQY0wO1gGqyVuM//CEbriIEXe4LpkdxN
42xRGlPUnFpSv359rJreJDaNdCWO75UtWxaCrZTAbfArt71SQNM7BNQMBx4L
oxA7bJAE4QSwc7d8W18UFkUfiYiIoLlJVej7SnZmQKLs6U1v4QcOHKhSpQok
RxxxaH6ulPFmmw8ePFi3bh0ODc+gd7zGZ9OYhMmDkiUkJLzHpUuX9LuLJweS
JFGegMuNjIwUP3ScRLkSj+Egmhgsqd67dy8+WXH7eL/q1avj4gYOHIhj14eD
1atXt23bVmEUmsNQvvvuO/JxuMeaNWvatWuHl7t37x5xWZ04cxF6ZjCYL/Zn
tjdVBr9NWmp1QtTdu3dJfpU5sWI9V82aNZWQ502ei0g4eeMzL+xh//79uXPn
dvAVZLI2jeNFaUxRc2rJiBEjNm3aBBelRmKi14YNG7BPNTWl3SES+pNNFGh6
h4DCcMQc6c6dO3MD+QL0YNCgQVu3bnW7eYW+qNu3bxctWhQyA+cfPXq0ep2g
AYmypzeNhUPCq1WrNnnyZNHQlszbzLEvbmHmbBozMHlQsoSExF8ItknUsWPH
SKnEhCvS0vz585Mt2tuB2S3w7R06dPCUqYkprMoLO8I9KZ6fnx+Zu1sZ8L1k
7up55prDUHCS4jAUVBEUFDRp0iSevmrVKo2X5obAwEBP05Zwj3369LE3wAJd
JMToTyQ0ALJNSYQiJHGZiAONTO69vKxCjD6hbRF6iCbZsmWzt6G9JyRf0zhb
lN4UNaeW8FmcWoJ+4POYIhc1k5nF4UpDhgxxO3ak6R0KFIbz5MmTsmXLkkTA
gnguhteqVSu+0h+V4rao3bt3FypUCPqEhJoOYkCibOhNb+Fklzly5BDzr6zC
HokyeTaNGZg8KFlCQuIvBNskSoE43bhBgwaOH2dA4CCguB0JwRUPGzbMYJmM
GripCRMmRERE6KmF28NQxPRytzyEysbExPBot7Fg9erVS5cuNSOSHmT3kB9L
r94OHDjQqVMn9Q5d4gWc8u6D0rZt22bmQJzkBsqcNm2asn/1ihUrKlasaLxI
3yqSr2kcLMqTKXo6tYQW9LQfFM0aHBzsdja4p96hMBwxIerq1asPHjwQtJaO
4DaaW+poLkMSZUNvegu/e/cu9E8ZMYMXHTx40OR4lD0SZfJsGjMweVCyhITE
XwiQqKxZs4qjsmwchypW5/n4+OTMmXPUqFHmt2wyidOnT4eHh+uphTiIweR4
y759+8i4DSaQWAJBh1hA8NK7blyrvSNlXYkx0ZL27t+/P378eM3MYVfi/jbN
mjWbM2cOqS43pB0XLQReu3btypUrGzVqpN9tw3skU9M4WJSzpgjvCg0N1c8E
89Q7FIZDNK9fv74ZGmCpo7kMSZRVvbm1cFo2OjqaTIGGhpZPnz7dzEap3EM6
VqJEicKFCzvyStceTB6ULCEh8RcC6SfJHX4YZ5U214kgoZeC2Zi9kCplWsKf
ifD0lb1MObnxr3/9C1IHMU7WM1hTvWkM4LhsdA3z74NgHe3atTt+/HhYWJiY
Fu6sJKdOnaJ8nuJIgQYWjv2QcZivOHfeu3cPL5eQkJC6b7rNHJQsISEhISEh
kdZw5syZgQMHGh9AbBtila7x0YoSEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIphj/++GPPnj2R
kZGXL19WX4+Pj585c+bOnTvT5kZVEn8rPH36NC4uLjo6Wn1u47t37zZv3jx9
+vTr16+nomwSyYcnT56EhYX5+/s3b9583759ii96+/ZtTEzMpUuXUlc8CQmJ
9x64ndDQUFyQ+tyNhw8fVqhQQRx6zg0nTpwoWrSo5uirO3fuVK1adcyYMZJE
SSQ3Xrx44efnJw72VbBlyxYfHx9xDA1BE0pfqVIl9VbYf/75J/w/R44cGHBK
SyyRzMDt7Nq1q1mzZjNmzMA14cSyZs2KAUyePHnkyJENGjRYtWpVWjuMUkJC
4r3E48ePNacw/Oc//7l165ayUTMxCE6lOSOY4FW+fHlBtCTSAn7//ffY2Nhj
x445RWsvX74cFRW1adOmVA9G1Oj27duaLdNfvXql2CQ3jB8/vnPnzprdxbdv
347pOnve3/uBv7q10PqbN29W7/D/+vXrJUuW9OrVa968eZoWl2OSEhISqYjI
yMgmTZpoQtjx48eLFSt2584dLwt/9OhRqVKlChQoUK1aNQpcvXr1X3poK3Wr
c+jQody5c/O/I6U9fPgwICAgODg47Z9zASUIDAycP3+++iKaHzNmTKtWrbw/
t2Xr1q1ffPFFuXLlfHx8/Pz8bty44WWBjsBLqf4+1iLHJCUkJNQg/1qzZk10
dPSOHTu8CRBnz54dNmwYrk9xv6T2ZPRdunQJCwsTzpDy27VrN3HixCdPnixc
uDAoKIh8k/A0e/bsevXq6U8ZFiATNHlgK6yjW7duiMETNdOu7AGBHT+uNBWr
YwkI2axZs+7du6sDmW2FvHz5smbNmrGxsY7JZx1UZMWKFdSod+/eCo0/ePDg
iBEjmjZtygdxBTIPlzh9+vTPP/88bdq05s2bx8fHY5yYaEREhKeSifsmKe6u
Xbt69OgxdOjQRYsWPX36VLmOYajfg3sPR6QyiRSwlnv37i1btgzxUv1MbTkm
KSEhoeCXX34pUqQIYQVWY/tweZwe4ebixYuFCxc+evSoKzGdhyzdvHkTv1et
WjVxUjlup3LlynPnzl2wYAHundQ+JiaGh7Zs2XLs2LF6b8+VjRs3QrFMsjs8
9rx58xzMXsk6lyxZsnz5ckdeK6R6daxi7dq1NOitW7eUK7YVcuXKlWLFiqXu
7FxIEfYGj6pYseLz58+5AuGfNGkS1guJCg0NFRZINvHdd99x2/r16+/evduh
QwfEhlkVLVrU7eADpj5hwgSFgyWJAwcOaOYECpw7d2706NEvXrzwoorOS2Ue
yW0t5BEhISHff/99z549DToF/gRCSPqGMnfu3OksL3U5OiYpISGRpgAd2r9/
v+Je6Oxk04SGIUOGrFq1StAYt7/65z//+dtvv2muX716tUWLFlmzZs2QIUOl
SpWmT5+udkfEnU6dOvFVlixZ2rVrByN69uzZ4sWLy5cvzwdXYhbMB/4PDg4O
CgoSUhGDMmfODI86deqUQpnEhCiSO71sR44cIYSJeGcGsA4855QpUwgfcEJP
Q1uW8ObNGximW/GsIsWqQ8wii8+RIwc8Vuh59+7dDRs2tBqgHz9+XLZsWYic
+qJ5hfBoohg3T506laBTvXp1pxiCUj6B29fXN2PGjF9++SUV3Ldvn/qGn376
CdP65JNPcuXKBXd9nogmTZoMHTpUhPXXr19THSywVKlSmzZtcv1vQlT69Om7
d++OVStFUV+K0g8+UM7kyZNnzJhhnicgJL2SpuFB6lVgfIBvwBO8j/sOSmUe
KWMtqKhv376eSNTTp0+pOCQKKsXP6TjdunXTOzdPAqxbt65x48YklRjA119/
XbNmzcGDBwuHpsB4TFJCQuIvirdv3xJE8PNiXjd+mG4+c+ZMMuiTJ0/WrVuX
zM7t6eqeSJQrcTQepgRNIhjpv7137x5ZoVImvqV27dp4YH6leGD8GASMbFT8
GRkZiY+Kj4/38/ODFeDhuVlMiFJPPhfAdzVv3tzSifCESHw4/1MykvTq1cuR
PJS8ODAw0Mv3eilcHaQtV66cmKvPrzp27Dho0CCrAwLCAGrUqKFh4CYVQuis
WrUqdkI5LVu2RP7kmCeckJBQoECBWrVqwYj038KyWrdurcTBixcvQqjg8Gpj
g9vny5dPDKGICVH0HX6IAi9fvsyd//73v8XgA99qqnDs2DGuqzdDSBLnzp1b
s2YN5SAVXW/Dhg3KV5RPS8ElLGlAD2elMomUsRYDEsX9EDBIlNK4UKn27dtj
+ZaGc+mk5HoDBgxwK4DBmKSEhETawdGjR1etWmUpH8RNKaMce/fuXbBggeIE
yKlLliypWbUtYECiePq4ceMyZMiwZ88e/VdQIzI+5cr58+dz5859+vRpUn7l
KZcuXeIiX7lUE6L40KNHD9Je2B3xIioqqk6dOjglwpb6EYsWLQoKCrLNgvbv
38+jCZr2fq4GAuPSw8LCvJnXncLVgZoWL15czNU/cOCAj48PDW3pidQaLtG5
c+dvv/328OHDmq+SVAimWLly5UmTJnEPXJrYGhcXZ/LRloxfPKhs2bJ62+a5
GLB6KWh4eDh0CzWqe8esWbMQTyzOEhOiYFkPHjz47rvvYCNE7Zs3bzZo0GD6
9OmxsbHXrl1TSiNzadOmzY8//miyXhogwJAhQ8hE1GOMmzZtql+/vjdDdskh
VZJIMWsxIFGw6Jo1a/r6+qoHe9etW1ekSBGDRSt0yd27d5NuKNzv559/JnMc
NmyYsBBEwmDQp5jt6WlMUkJCIk1h2bJlyksHqxAv0UjA79+/L65QDj4hffr0
27Zt09xsQKLA4sWL06VLFxMTo7l+4cIF4pGaEly/fr1KlSoDBw7csmWL4i3x
eIRvMQ7AI/z9/cWbAoqFUZA2chEPRlwbOXKk2tGRRNerV89SOiyGa3r37i3y
UAJxtmzZxAQt73Ho0CEcu8n3AnqkfHUgBmKuPu1CZIFHWRKYFB76gQUSjwID
A/v06aMJW0kqBAvJkSOHmJNz9erVEiVKwKhNckhLxk+ZjRs3Jnbfvn1bfR0z
g/No9s1YunRp7dq16QvwInEF9TZv3pwrwmghq1gj9SIid+vWbfTo0WLa3vDh
w2EmM2bMUM8bPHPmDKEfumVGTgFKDggIWL9+vZAwJCREmaAlQGdBAMQwX6YG
ySGVMVLSWoxf50GENL/i0d988w1OxtOjqe+RI0dy5szZrFkzwRs1JIpvM2fO
jL+idsqEKP2YpISERJqClySKlFA9gkTfJ8v76KOPcEGam41J1M6dOz/99NMJ
Eyaos0hy9tDQUPUMUgHcl/qVCmJ0T4Ti8dTf8lkZdccjaTY9iI+PL1WqlKVN
D9DVtGnTSBiFqGL+sFMJ4+PHjynN9szbFK4ODdGiRQu8PdypZ8+ebt/GGoD2
JQ62b99etNfKlSvJ5e/du6e+J0mFkLYTCq9du4b8c+bMqVat2rlz52A1Zkza
kvFjXUTVTJkynTp1Sn2dWBwWFqaxK1dinFW/y3v06BFybt26VSlNGYFBctiv
+t20WiSuT5482eoEYzhSjx49xHAWzdS2bdsBAwaoKQGPQPmDBw+21/eTSSoD
pLC1GJMoV6ICoWSbNm26cuUKpcGiP//889WrVxtUgdI6depEkiJGa9UkCkCk
IVHiRTx00e2YpISERFqD+TiCb4+IiBg0aBCuTBmRxvnjEBT/j5cgk/rss8/0
G7kYk6jz58/jT7p27ar2WmSsa9as8TQ4z/WFCxfC4nCDZcuWtTd5YP78+b6+
vvrJ8JRGlv3hhx+WKVNGPSxz+PBhKMr9+/fHjx+/du1aPHmjRo1IIZUbcONd
unSBEH711VezZs1SQszdu3fNrGASwx1Tpkyx90YvhavDtz4+PrQ4rl7PIrg5
Kirq22+//fjjj1u3bq0QM+7csmULMRG+Xb9+fcUkuKFcuXKENksK4SliJI2I
g3H6+fnxp8mNGqxmEDziH//4x8aNG5Ur1IVaGIQ5Ij5xf8mSJdHR0bVr1zY/
6qKAeNqwYUPxBkp93Vi9/A+zJSvZvXs3mUjHjh1pLE3JiORpipdtqZK0fwOp
DKyUTCqFrcWYREGkf/jhB56O84E4LV68ODIyklorJNktsLQRI0YoTElNokQm
mD17dpEz8qfbMUkJCYm0BpNxhBtiYmLIuej++fLl8zRvGVdZsGBBZbxaDWMS
lZCQkDdv3nr16imxmOCOfzP28GR/JLaQOntv06hU//798VSabBqnjRsPDg6e
Nm1a06ZN8dViugsRcO7cuWJOC+767Nmzp0+fVpOHJ0+eBAQEBAYGhoeH9+vX
L0+ePCLgilVsZjJKIRLBxca65jRVHaIAUQ+KNXbsWMIlD+3Zs6d4A8KDNmzY
QJjj0RpRIeqaGUcmFfLs2TMRa14nwpzCLJMowiWMBaUpVwiaK1asMGC8SBUW
FkY4HjlypHoVnnmgELQHv1VfNKNeV+IiMlr/+vXrbiWEyRQvXlyzq783Upk0
GLdSJWmlKWwtnkgUj1i0aFGlSpVwhspFWGvNmjW/+OKLCxcuGDyX+kLwyDHF
bC41iUJgWFmRIkXURqIZk5SQkEiDMBlHcGikWnjp2bNnFyhQwO0LIxwOeVbp
0qXd7kJsTKJwaxUrVixfvry4gQfhS62+HrIK4bhwlerqIwl++OrVq+JPvoqI
iMCj4gC3b99uMJok7lTei7kS09UBAwZAS1DXggULzLy2EO9D69Spox/YUYPc
mciiOa4iTVXnxIkT0AYlQiEGUZ4wSvBCcvMrEE0qxB6skqgjR44QAZWf3L9/
f9y4cZbWptkAiQk9TjPZxhH1xsfH586dW7ENt6CVd+3aNWvWLA090EvljcHY
tlINHLQWTyRq//79WbNm1by2I/vInDmzcF/GZ9OsWbMmQ4YM/O/6f0nUq1ev
atSo4evrm9zmJCEhYRt06j179pAh9lGBblu0aNHevXsrV3AdOAGN9yANxD/Q
0/39/YOCgtwmeuvWrYMIiSVyehiTKJw/OWzOnDmVdV7qZU3JBKha/fr1lbm+
AvhD9WJAV+IbCjJrJIdGGrg48uvFixerx97R4Zw5c27evInL9aQWPQhY1apV
Mx5OefDgAZLTamoVpZ3qIFVcXJyGaRMK169ff/HixZUrV1p6WWlGIUnCG+NX
QHbwzTfftGjRAvvnnpkzZ6Jeb6QyAxROv1CvRHNKvVBxSoZKGdxDUfCBfPny
aWbO66XyxmBsW6kejliLywOJwg02aNAAm9EMKqL8jBkzYl3ifoOzacRYPSbH
nWoSdenSJbiZZlKohIREWgNRgFQxToWuXbvWrVt3xYoVyhWcMD7NbV8+fvx4
tmzZPO1XGRgYqB7i1sCYROFSevXqJWYLPHnyZPTo0W7vdJZWwTpwiUOGDDEu
log5f/58gsiWLVusPoLAvXnzZn5uPjUmNPv5+alPKdXjxYsXEABaTX0xbVZH
AcQPYrxs2TKreyCYUYgZeGn8rsTJ4cWLFxfDBRg88V1RNR8IrMlB+1EXdCXJ
0Rgb6iVw58qVK8nx3hMnTpQsWVLD2UxKZdtgbFupU9bilkShsa+++kp/ZnRE
RESmTJkUSun2bBoBTGvRokX58+cXx/0IEkVy2q5du/LlyyvLnDV49uwZ3F5s
5uZlvSQkJJyF+Tca3MOdYshavdGlK3HhcFBQkLKMDlegWQbuSopEUdrUqVM/
+eSTjRs34jz1zvncuXMjRoyIiooiWbO6jt4TqEWrVq2Cg4ONqy9mQYwfP97S
am6BU6dOjRo1SrPBtQHQAxWsV6+e8WzSy5cvFylSRHNcRRqsjhoEgtDQUFrQ
0nQvkwqxB6uv816/fl2jRo2iRYui/zFjxqjXMPIZpvHNN98ULly4SCIaNWqk
31HKBsTYhWYgSA8b6iVhyZMnz/Xr141vmzNnDj1XM8vRpFS2DcaelTpoLW5J
1K5duzJkyICS1Rexijp16jRp0kTN3PRn06iF3LBhA0IOGDAgY8aMfAgICGjR
ooXeZyqAgs6YMaNUqVKOn7ApISHhJczHEXFoBbEDL7148WLFP5CiDh8+XL3W
GCKkXuElYEyiXIlrltOlS9ezZ89p06ZpAgG5cP369XkQ1zt27Ohpj1+rELta
kTMaxx2c3vTp06mjjdPlzp4926BBA+H6Xrx4gVv+8ssvxcGmgpQqB6YoIvXu
3btbt27Ks3Ct/fv357Zx48ahHPEeIS4uLnv27LDKkJAQgpTw3ilcHat4+fIl
kcLqLtl6hTgIqyQKxbZu3ZoWRPOajWGhIu3atZs9e3Z0dPTChQvbt28fExPj
yKuZp0+f+vj4IKrxbTbUCwUqU6aM8mZKfR4KahHHeQtmXrFiRf7E/JTVsial
sm0w9qzUQWtxS6JwRLT+unXr1Be3bt2aP39+zVobt2fTqEEFt23b9tlnn7Vp
0yZJ/YhDgrA9eY6ehERag/k4Eh8fnytXrgMHDiQkJOAcxFIgfAVRG+869n8Y
PHhw7dq19Uu3kiRRYl6B/sUBWRhuXCEbuDUHX5oQ6apUqWK8bzOPCw8Pt3eq
3bFjx6CdiivG3yq7EFNNSKlmTxsqS9CZNWuW+JM03NfXVyxxWrFiBffzW7HD
D9nrq1evnj17VrNmTSV0pnB1LAFRg4ODra5Q0yjEWVglUdxJWP/ggw8weM1Y
BwZ/7tw58fnChQsRERFOnUhLOT/88MPo0aONKZkN9c6dO7du3brKEJPb81Do
4BCtyMhIsVckN4hNCUxKZdtg7Fmpg9bilkTRs/z9/dWbot+8eROd6Amzp7Np
1MCjZsmSxcwxSeKwLXmOnoREGoT5OAL/wUFNmzZtypQpYtxJ7G3ygQ4lSpTQ
79aYJIkiDOXMmTM2NlZzXbw4mDRp0tKlS3FfK1eudDAdu3jxYrFixYxX6xMv
JkyY4Gm6gjHWr1+vbN6uPpYd1Y0aNQo3q5krAmuqUKGC2M5R3O/n5yd2YiQV
FdsX8CcXxXamBM0iRYooO72nZHWs4vbt2zSf1bZTK0TgyZMnISEhoaGhBNn5
8+d7M+ZgY6dZ0odChQq5XX8qQOvQQfSbMnkDWEFgYKDxtCKr6hVbuqFGEf31
56GIGXdovnjx4uJNE2Q+T548So5jRirbBmPPSh20Fk+r82A+8CjqfuLECYwB
bqNsKKHA4Gwa1/8OIG7UqBGGhLfMlCkTeRBUSnMAsUs1Co2V5suX7/jx4yaF
l5CQSDFYiiMkrVevXrV01pWCJEnUmzdvDh48qJ/MQF4v9uH8PRHt2rXDgzm1
hoUCmzRpopxc7BZ4ctypQUbpCXhgHLgyQMGzSPzxrggfFxcXEBCgp5pEnHr1
6omhJBSCuxaLdwhV3C/GN27dulWqVCmx3OnAgQPZs2cX7wdTuDpWsXnz5rlz
51ptOLVCXIkxsU6dOmKL6alTpxKJ7FmjgA0SBYUw0AC1g+prJvx7j8uXL/v4
+CgnyLiFVfU+evTI19dX4Rua81AgThByjA0ugdFiiuKoO0HpTUrljcHYs1IH
rcX47Dz6XXR0NOrSLwNM8mwak9CMQpcuXVqeoychkQZx6dIlt0txHUeSJMoT
cOlff/21Qgxmz55dvnx5R6bsCqxdu7Z+/foGy6j37t1LLLDhCcXuzcqEB/LK
okWL4n4JdqNHj3769KnmfmJWt27dcM7iT7xx48aNxdaOUCby1t27d5NN02Sk
rlAp7u/RoweuXj3+kGLVsQSiGJHF6oQojULEQdXUXYmtXnJpx43/2bNnxM2f
f/7ZwTJd/9ODwUbcNtS7evXqtm3bKqRCcx7Kd999Fx8fD/1Ys2YNaQsC3Lt3
D8qkHlZKUipvDMaGlTprLUke++IWZs6mMQNPo9BWy5GQkHhvYJtEPXz4sFSp
Ukp2L96n2Hsb5Rb4vQ4dOniafYEHmzFjhqej3o1x5swZPKoyNwYKhOTQp6NH
j7r15ydPnmzZsqV6FTM/adasGUGNgFKrVq0hQ4bAkf79739Pnz594MCBgwYN
Gj58uCZbT7HqWAKxgHjqdrGSATQKIeL7+/tT8TS7jfORI0fKli1rbw9wY1y+
fBl65mnKk1X1olIUi3qVK5rzUHx9fcV5KHTYoKCgSZMmYVSrVq3S2K2xVLYN
xp6VOmstNkiU2OozybNpzEAzCo2SKQRNyl2kJCT+trBNonDvPXr0ENvQ4VKg
E26PlfEGV65cwf26TRhxXLgyg/2vDECyv3TpUpM3k7aTbOo3b6Sm4vUEelDP
muCzJyWkhepocPv2bcKZpVbTKwQNkOMrSwwobdu2bd7vCOQgFi5cWKJEieRY
h06VY2JiaDu3nMSSeiEG9KaIiAg9u3B7HoqYXu6WihhLZdtgbFip49ZieyQq
ybNpzEAzCl2kSJH9+/fPnz9f7hMlIfG3BSQqa9as4ngsq/sJk2KTCOPWYmNj
YVDJcaw57jc8PFwfhogdRCh7ySwZusmaEjUIauaPt0gSqVsdPQguljb88aSQ
n376SQzNRUVFjR8/XpkMlkYwdepULNxGpmAGRGc4yebNm/XDEZbUu2/fPqKz
U/tuGUhl22CsWqmz1nL48GFfX98cOXIk08YaJqEZhR46dOjatWvlSJSExN8W
uKO7d+/evHnz/v37NlwBPh9icOrUqeQ70xwJU9FHOT7hIXWr4z08KUTsDZ6m
BqAUPH369MqVK8mqdu/tJDmm1qT6dB0HrYWbf0mEftZiCsPTKLSEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhMTfHOfOnevZs2f16tX79+9/+/Zt5XpCQsK8efNs
HF4sISEhISEhkXbwxx9/7NmzJzIy8vLly+rr8fHxM2fO3Llz5196q8nUwtu3
b8PCwtq3bx8XF7d169YOHTpkzJixdevWqLRr164tWrS4dOlSassoISEhISEh
YQQoUGhoaPPmzdXHcj18+LBChQo7duwQN5w4caJo0aJ79+5V//DOnTtVq1Yd
M2ZMmiVRv//+e2xs7LFjx5ySEBoZFRW1adMm70/mvXbt2qFDh9SC3bp1i4bo
37//li1bNNvFP3r0KDo6euHChbaPg5GQkJCQkJBIDjx+/Fhzdud//vMfYrpy
xAMkCk6VkJCgvufXX38tX768IFppFhCV3Llz878jpcEtAwICgoODU/ioL7hT
SEhIpUqVxOEUEhISEhISEn8VREZGNmnS5O3bt+qLx48fL1as2J07d1JSEuiE
pcOt3r1716xZs+7du6tpD+Tw0aNHNp7+8uXLmjVrxsbG2vitN/jzzz979erV
u3dv70fAJCQkJN57pOKR1hJ/K5w9e3bYsGEBAQE3btwQVxISEsaPH9+lS5ew
sDBhh1COdu3aTZw48cmTJwsXLgwKCoqKivrvf/87e/bsevXq/f777wblv3jx
Yv/+/cuXL9+xY4eYJs0Pf/nlFw0fMwmEHDp0qFX+s3bt2sKFC9+6dUu5AhVZ
smQJUlnlJFeuXIE36mcrPX78OCYmZsSIEeHh4RcvXrRUphmgxmrVqq1YscLx
kiUkJCTeMxCVJkyYkNpSSKQ+IBswEIVRQz9Onz4dGho6ZMiQVatWuV26dfXq
1RYtWmTNmjVDhgyVKlWaPn26eqbTy5cvO3XqxFdZsmSBF8Erpk2bRtCHYxw9
etSVaHuQpZs3by5btoyoLR7x66+/Vq5cee7cuQsWLHj48OGYMWMgDO/evWvZ
suXYsWM9TTeCb7Rt27Z69epQsnXr1vHzDh067Nq16+DBg23atEESq9r47bff
KPDUqVNWfwjDKVu27Lx589QX37x507t37+3btyf5cyq4c+dObp46dWqrVq2o
kead2rlz52gU6gslu379OrVDUSbzoNevX48bN87f3z979uzp06cvWLBgw4YN
IXgadgdto400E/slJCQkJDTAeU6ePHnGjBmpLYhEKuPt27fE0/Lly4vZSnCh
iIiImTNn3rlz5+TJk3Xr1i1WrNiZM2f0P/zjjz9gStCkn376Sf/tvXv3vv/+
e/FD7nz27NnixYt5inhHRujnA/8HBwcHBQUJJnDixInMmTPDoyAwCmUSE6Lc
khCKnTVrVoECBZYuXarMqnIlDqd07dr1m2++GTRokNUhIO6fNGkSnNDGFHGh
kBo1amhoJ7QnMDAwyXEt6li1alX0Rjnwxl69eqmFR13QUZihcgUKCmeDLpqX
kEpRO8jt7t273d4QGxsLp5UToiQkJCSMcezYMbJdG3m6RBrH0aNHV61aZYkD
EN+fP38uPu/du3fBggVK+H748GHJkiUrVaqkmRDuSozI48aNIyLv2bNH/9WS
JUvU8f3333+vXbv2+PHjYQiKbARrSuZO8WdkZGTjxo3j4+P9/PwWLlyIDNws
JkSpJ58LvHv3btiwYTlz5jxy5Ii+Rjt37syUKdPq1avNK0Hg+vXrNWvWtDH/
CvEgn507d/72228PHz6s+QpGFBYWZtAo6B/2CMPhHtQCE4uLi1PfcO7cOfjq
hAkTlKaBeXbp0qVt27bqMUANaLW1a9eePn1a0FQKnzZtWsaMGQ8cOCBuQI37
9+9fv349rkBMiNKQNwkJCQkJDd6+fdumTZsff/wxtQWRcB7Lli0bOnSovTgo
hoZat259//59cYVy4Crp06fftm2b/v7FixenS5cuJiZGc/3ChQvh4eHq4H7+
/PncuXMTzWfPnq3wsUuXLnGRr1yqCVF86NGjR2ho6MmTJ+FCUVFRderUOXHi
BGRAKQ0yAOOCDHiavQMLgpNcvXrVUvUpFqqjmRxuBlAR+CRqhwsFBgb26dNH
U8KhQ4fgRb/99punEtBYjhw5xEATYpcoUQLlqBWIbBSupmE0zYgRI0qXLv34
8WMDwWgImm/RokUuHYmihLFjx0KDly9fjsBiQlRsbKwBK5OQkJCQOHPmDCHm
wYMHqS2IhPPwkkR17txZPbgkXgB99NFHxFn9/ZCcTz/9dMKECerg/ubNGyiQ
en61K3GEp0qVKgMHDtyyZYtyM2X6+PiIF3wQDH9//3379vEt3CwoKGjq1Klc
3L17d61atUaOHKkeHbp48eK3337bqFEjnuW2IgkJCTAxqwOtr169ql27ttU1
ccgAa2rfvr3YW2nlypVFihS5d++e+h54TsWKFTX7X6lx48YNiNO1a9eo/pw5
cyAz586dQxJNO/II+Nj27dt//fVXGqtv37558+bVPEsD+HCBAgXQFdRIQ6LQ
fKVKlXx9fYWiaKNChQrBVyGoxtP4JSQkJP62wJFOnjy5VatWmvcjEu8HzJOo
Fy9eREREDBo0CA6gTOMhnv7yyy8KzyFSw2c+++wztzsgnT9/PkuWLF27dlUP
vKxfv37NmjX6V1cEcfUWjvykeyKU36q/5bNinwR09SI77u/Zs+cnn3yyefNm
T1WD2Fy4cMHqvCaYTP78+ePj4zXX4RUkHR9++GGZMmXExHiBw4cPwxUhmfXr
11dGmaA35cqVgwhp6t64ceMpU6Z4EonKjh8/vnfv3tOnT6dF/Pz8+FM9wZsb
Fi5c2KZNmw0bNiAh5UN0AwICihUrZjzb6unTpzBVwZQ0JOrhw4fwvaZNm4qh
JyT//vvvBwwYYGYavISEhMTfE+/evWvYsKGYfZHaskg4D5MkihtiYmKuXLly
5syZfPnyuZ06Du7evVuwYMFmzZq5HZpISEjImzdvvXr1FJJz584dor/BftdY
HWSgc+fO586dK1u2LPzEdM3+70MLFSqUJHmwAWiJfhAJpgR3Cg4Ohn7ANyBI
Yi/Q58+fz507900iNPkI7FQzhQxt9+/fv2PHjsaZy7Nnz8QW4q8ToVyH//Bb
lKZcROFQspw5c/r7+3sajhOAHteoUQMeBZvSkCgaixK6deum8Fg+yHmSEhIS
EgbAvRMIVq5cmdqCSCQLTJIomEBkZOS//vWv2bNnFyhQwO1UakKqmHWjbO6k
AUG/YsWK5cuXF+MwlEaMdrtYT40dO3b06NGjT58+6lEd89i1a9enn34Kr7M9
defy5cvwH/2hKrGxsVRWzX+oIORHmVvF/REREcuXL4eNbN++Xb1WzhjirWid
OnVs7FtFK4wcORJ2p24jCpw4ceIHH3wg2vr27dvR0dEwXv3PoW0QMHgyLa4h
UfHx8VmyZDGe8S4hISEhoQaelqDpaY2zxF8IxL49e/b069evjwq+vr5Fixbt
3bu3cqVv377QA81U5zdv3sB8Xr165e/vHxQU5HaEZN26dXAkMfHbLd69excQ
EJAzZ04R3wnN6pV9yQQ4zEcffTR69GiDBxmzggcPHtSvX1+/LzfCK5swCJw+
fVqzh8Djx4/Dw8NRHRTU0qDNrFmzqlWrZuNMuosXL2bLlg3aqW5BJB8+fDhk
cufOneJPFFK5cuWnT5/qS1izZk3mzJlhfRoSBZOERJ08edKqSBISEhJ/W9y8
eZOop1mFLfEXxY0bN3788cc4Fbp27Vq3bt0VK1YoV1auXAkZcMsrjh8/ToB2
OwfmyJEjgYGBV65cMXg6Yb1Xr14E6DNnzvx/7d1bSBRtHAbw7yLrIgrKm6JA
kfQijaBQvHAxLe2gJbaIRjeFmKiUFRptfXmAKA+1oq1bSxRFByM7iBgKSoHY
QRQiyROmWRe5Rixh3tSN38O+fMOwM87u7G7uKs/vyl3X2XcO7jz7zjv/1263
4zyuvAEN53f/dnTcv38/JCREo8TZ0NCQsoyknMPhQNRU3tlntVq3bt2qmkMk
SJsWi6W1tfXZs2e6ml1bW2swGLQvvamqq6tbvnw5Aq38SSwHezk2NlZqLY4E
fDlSHSeG5Jadnb17927kQylEDQ4ORkZGnjhxYr4OPT9OgkxEtGSMjo4iRHl+
JYIWF88HluM1eKW4GCcv3zTnvOP+6NGj0h12X758+fTpk3IJ+JNLly6tWLGi
ubkZ0cLloEKsQgAwm81Xr16tqKjQuMFfl56entWrV589e1Z1HfGkzWZD+zWW
gHgQFRWlnFQFgTM6Ovrbt28af4vl37hxo6ysTNfNrdhQ2AKpqaliyJPnxGCq
0NBQl3INfX1969ata2xslPaaKPWJsKQaihC6sMUOHjxoNBqxv3Jzc+Pj49Ek
jbvwAjUJMhFRMBNDhfFVOtANob/C8xCFtBATE3P+/HmcfxE8pMg0Pj5eWloq
H1+NjKRa03LOeUf/smXLjh07VlVVJb8miAZcvnxZGq/+8OHDmpoav3RJORyO
xMREg8GgejWtvb1d3g2F7IcQUllZeeHCBTQSwWDOGZaQQM6cOWMymRAtpN4h
hMCIiAjVuCjBKlRXV2P76IoWaE9BQYF8CLeH8HYIbGiVVLlrzpmXCgsLEclc
Sou3tbWFh4drdB4iMhUXFyNEWa1Wt0UMAjUJMhFRMBO3PONUG+iG0F/heYjq
7e3duHFjZ2fn5OTktWvXRA/G1NRUZmYm8sa//zt16lRycvLg4KDqQhA8Vq5c
GR0d7TI0HSf6I0eOIKGJvpcHDx7U19f767oe2owUVFtb6zJM6Pnz54hq0uDt
r1+/JiQkIAHi5zt37iAxIjfiZUggaWlpP3/+/PHjB3KCGFY050xcUVFR3d3d
Gm8twqHeIgBo0t69e69cuaJvPZ1ev34dGRn55s0b8RDbEBszLi5OOcMd9iPi
lkYhBVHeRLXIvNJ8kyDrhe2MI2rLli1e1IEnIgo2OFcajcZz587xlpwlyfMQ
NT09jTN7VVUVTrui30nUbvpHYfPmzfNd5EK42rBhg2p/Bc7Ua9euxekeaUd1
uJQvkAARkPbs2XP79u2Ojg6EwOPHjyMOSSuOwxsRTnRYif6cnJwcRDs8xJOi
dqgolCRVXJ+dnU1NTXWZQdgF/n0qKirk/UKeQJzbtm2bfFJju91uMpnKy8sR
ySwWi0YPFdaosbExJSXl8ePHL1++xM7Nzs5WZlqk3/z8fMSV2NhY+dh4YWZm
Bnk4KSlpzZo12KFhYWH79u2z2Wwux4nbSZC9gBCVkZGxatUqec15IqLFC9+I
09PTvbjbmoKfrorliA0fP370pTz1r1+/urq6VIf6ILHgXLx+/fqQkJDS0lKX
aXl9h+AxMDBw9+5dRDiECpdVRsOQGUpKSvA8DvW0tDSz2YwINDY2FhMTI245
FD1a7969k/6qoaEhKytLY+QS4lNRUZHedWlpaZFffUOC2rlzpyhIjk20f/9+
t7sAMezRo0fIe+/fv1fu3MnJScSnp0+fYoOEh4d7fbFeexJkX2Aj65ormYgo
aOGTdvv27SMjI4FuCPnfhw8fVKuLLzBRghu5ZWZmxmq1hoaG5ubmLuSkbAhC
Bw4cqK+vn3NWVt+0adOLFy8sFgu2T2JiIqIUGpOXl4dEJB/KNTExER8fL49V
Ltrb200mk66hTXgjrPv169fFQzFxM9ogJTEf+4SHh4cTEhJsNhuWg/c6dOiQ
26qeqtxOguyLJ0+euC0gRkS0KIhPdY2xE0Q+GhoaMhqN0nWlnp4eg8Gg9yqY
j5CaMjMz6+rqEHt27Nhx+vTppqamP3/+VFdXFxcXnzx5Utk/Jgqq45WqMQm/
ramp0RstsO5ZWVmIKOLh7OxsUlISGuCXTh6knV27dl28eFFqcGtra0REhPb9
iarcToLste/fvyNOe1HegYgoOA0MDKSnp4ublYj8bmxsLCMjQ5qZ5fPnz3l5
eVKQWDBILOIi2u/fv+UjhfDzfFfQcK7Pz89XLbiERFFSUqJdO8vF1NRUTk6O
NCxctOTw4cOVlZXiKwya0dLS4nXAwELEoC/5M/i/9mKBHk6C7EULm5ub+/v7
fVkIEVFQwSfbrVu3cEYIdENoacIBdu/ePaSRjo6OpqYmHGka18iCjd1uLy8v
V17vFhOseB4qELrMZrOyJltfX5/oImtoaCgrKwuSLeN2EmQiIpLgM/PmzZuB
bgUtZQ6H49WrV2/fvl10dzEgBPqlyOR8Y5OQxLzrL/rb5psEmYiIiIiIiIiI
iIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiI
iIiIiBbefyW7oCg=
     "], {{0, 149.}, {791., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{697.6666666666662, Automatic},
   ImageSizeRaw->{791., 149.},
   PlotRange->{{0, 791.}, {0, 149.}}]], "Input",ExpressionUUID->
  "5ad730d0-2415-42f7-bfbe-9db79978a812"],
 ", FieldNumber = 7"
}], "Subsubsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
   3.831837565561267*^9, 3.831837565717546*^9}, 
   3.8318376089841914`*^9},ExpressionUUID->"6d3abbfa-6d64-43ea-be98-\
6b005cf19455"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{"3", "/", "4"}], ",", 
     RowBox[{"-", 
      FractionBox["1", "4"]}], ",", 
     RowBox[{"-", 
      FractionBox["1", "32"]}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"-", 
      FractionBox["1", "4"]}], ",", 
     RowBox[{"-", 
      FractionBox["1", "32"]}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "4"}], ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "3"}], "/", "4"}], ",", "0", ",", "0", ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{"-", 
      FractionBox["1", "4"]}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.831831302775831*^9, 
  3.8318313425712132`*^9}, {3.831831417571769*^9, 3.8318314249331074`*^9}, {
  3.8318360089626865`*^9, 3.8318360258726*^9}, {3.83183697293332*^9, 
  3.831836980278759*^9}, {3.8318373329155426`*^9, 3.8318373882613344`*^9}},
 CellLabel->
  "In[358]:=",ExpressionUUID->"77563f17-3066-4334-8def-ad3e752aa24f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318348118468747`*^9, 3.831834815644092*^9}},
 CellLabel->
  "In[361]:=",ExpressionUUID->"1dc43ffe-5dd0-4f9e-b5db-bbe6ff02fda0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, {3.8318348123779774`*^9, 3.8318348160189466`*^9}, 
   3.8318354324495916`*^9, 3.8318355280734353`*^9, 3.831836057734417*^9, 
   3.831836224616662*^9, 3.8318369940172477`*^9, {3.83183739467624*^9, 
   3.8318374223770795`*^9}, 3.8318397993831377`*^9, 3.8329475119105663`*^9, 
   3.832961796500448*^9, 3.8458268891595335`*^9, 3.845852479466729*^9, 
   3.845857089793455*^9, 3.8459196374508944`*^9, 3.846006588358014*^9, 
   3.84609990008274*^9, 3.8474704625607357`*^9, 3.8517006478478837`*^9, 
   3.8539754632106733`*^9, 3.854977423644103*^9, 3.85498927601285*^9, 
   3.854999913567418*^9, 3.8551652632905846`*^9, 3.855182331981007*^9, 
   3.855185875830792*^9, 3.855330654348708*^9, 3.8553398590101132`*^9, 
   3.8553431965182476`*^9, 3.8553440301565447`*^9, 3.855352756945799*^9, 
   3.855449620460322*^9, 3.855507621672101*^9, 3.855508419203659*^9, 
   3.855512907669549*^9, 3.855533339011839*^9, 3.8555789331857915`*^9, 
   3.855593305098035*^9, 3.855750617667519*^9},
 CellLabel->
  "Out[362]=",ExpressionUUID->"c0875058-f151-4947-a0e0-8dde6750f986"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "1", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "cc", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V", "[", "2", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammadown", "[", 
                  RowBox[{"mu", ",", "nu"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", 
            "+", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V", "[", "3", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"\[Gamma]5", "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V", "[", "4", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"\[Gamma]\[Gamma]", "[", 
                  RowBox[{"nu", ",", "ld"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", 
            "+", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V", "[", "5", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammadown", "[", 
                  RowBox[{"mu", ",", "nu"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"CommuteGammastdown", "[", 
                    RowBox[{"mu", ",", "nu"}], "]"}], ".", 
                   RowBox[{"\[Gamma]", "[", "ld", "]"}]}], ")"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V", "[", "6", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"\[Gamma]5\[Gamma]\[Gamma]", "[", 
                  RowBox[{"nu", ",", "ld"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", 
            "+", 
            RowBox[{
             RowBox[{
              RowBox[{"V", "[", "7", "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
             RowBox[{"\[Gamma]5down", "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", " ", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "8", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}},
 CellLabel->
  "In[363]:=",ExpressionUUID->"0afc20e2-b0f3-4e43-99dc-5e85f9a37428"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}},
 CellLabel->
  "In[364]:=",ExpressionUUID->"7a881ed9-122b-4573-8e65-340f9bf44d07"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, 
   3.831835435398642*^9, 3.8318355330585437`*^9, 3.831835717106969*^9, 
   3.8318357717602043`*^9, 3.83183606388894*^9, 3.831837000246211*^9, {
   3.8318374034065166`*^9, 3.831837427619596*^9}, 3.8318398044711704`*^9, 
   3.8329475172572937`*^9, 3.832961802385796*^9, 3.845826894756374*^9, 
   3.845852484760194*^9, 3.845857095164053*^9, 3.845919642967038*^9, 
   3.8460065935518494`*^9, 3.8460999055215797`*^9, 3.8474704679777007`*^9, 
   3.8517006533632393`*^9, 3.853975468256014*^9, 3.854977429079421*^9, 
   3.854989281070797*^9, 3.854999918813494*^9, 3.8551652687961473`*^9, 
   3.8551823373939395`*^9, 3.8551858809371967`*^9, 3.8553306599593277`*^9, 
   3.8553398643659697`*^9, 3.855343201911481*^9, 3.85534403561141*^9, 
   3.855352762991507*^9, 3.8554496255756283`*^9, 3.8555076265655117`*^9, 
   3.8555084244567413`*^9, 3.855512912801265*^9, 3.855533344204233*^9, 
   3.855578938443756*^9, 3.8555933106105213`*^9, 3.85575062295625*^9},
 CellLabel->
  "Out[364]=",ExpressionUUID->"25ee95e2-4ab4-4cc4-8495-063577924f81"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]hat", ",", "\[Beta]hat", ",", 
   "\[Kappa]hat"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}},
 CellLabel->
  "In[365]:=",ExpressionUUID->"1fa93b17-1f8b-45c2-88fe-a94248831a91"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQdwVVX+xwFBiqEIEroSQgtNwKUJCEiXloQiGFqQIlISepMalF6E0BJC
E4QFaS6KAxIFQXBhKAoKg6DsCCLjAgM4uKM77//5vzN75+5t77777iss5zuj
E96779xTfuX7O+V3YgakJA7OlSNHjjH5+F9i8oQWo0cnT+pahH90Hzlm6JCR
gwa2Hzl20JBBoxsOeIIPG/FfNn/8/98eCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJiUcEf/7552+//RbuWkhI
SEhISEhISEhENC5evJiYmJiQkPD777+Huy4SEhL/hatXry5fvrxv376jR48+
fPjwv//9b80DX3/99ZYtW/744w/XX33v3r0dO3a8+eabr7/++saNGx88eKB5
4Pbt2xkZGTdv3nT91RISEhISEpGGGzduwJabNWvWvn37J598kv9L5iwhETm4
f//+9OnTK1So0Llz5x49esTGxubIkaNly5ZHjx4V/PnOnTtz5szhk9OnT7v7
asrfu3fv888/36RJk969ezdo0CBPnjzPPfdcZmbmw4cPeQCivm/fvubNm2dl
Zf3555/uvl1CQkJCQiIyIeapvv3222LFiknmLCERObh27Vr37t0nTZoEPRaf
oK0ffvjhCy+8AH8uWrRolSpVUNvU1NRbt26ZFQIBXrVqVcWKFf2i1nDj2bNn
x8fHnz9/XvkQK5GUlAR/zps3L6+Ojo5u0aLFqVOnHDdQQkJCQkLiEYVkzn6B
7mrTpk29evVgF6F/+59//vnOO+/Ur1+/bdu23333XegrIBEa/PTTT2fPntV/
Dn8+duzY0qVL165d++OPP/os56OPPpo1a5ZCv+3gt99+O3r0qKE1+P7777Oy
spYsWXLixInHc6qZ/n8cGq5vYzC2A0lISEQIpMr7i3Ax53/9619i5ffRwmef
fVahQoX333/fkNiEALx3y5YtsbGxn3/+eVgq8FgBDslwb9y4MdwVkQgzfv75
582bN1euXHn58uUOfi5i3qpVqxJ9aL66d+/eq6++2rFjR/5wo6YuYOHChWXK
lElISBg6dGivXr1q1669cuVK/R57CQkJF/HPf/6zXbt2SUlJejKG34+Li1uy
ZEmQ1FCqvL8IMXNmLPbv3z9ixIiJEycOGjToxRdfZIBg0X4VYuGGgi1gMOd6
9erdvn07GIXbBPpFHSRzDgEuXLgwfvz4ixcvhrsiEmED1ga23Lt37wkTJhQo
UADb4qAQzNH27dvnzp17//59zVcPHz5csGDB1q1bI2Q2m6pSn4IFC+bMmTN3
7tyYmp07d0ZI3SQk/odB7JyWlrZnzx49e7l69Sr259y5c8F4r1R5Bwgxc/7y
yy8bN2588uRJ8c/MzMx8+fL5G91YuKGgCphHMudIAnHTnDlzpk+fPmPGjOzs
7HBXJ4Jw/fr1qVOnDhw4sE2bNpB/8SEKvnHjxmleoHF63fkfBm3H5vgboWtA
CUWKFNEz519//fWbb74JpGSfePDgQUZGxnQvsrKy7CQR/fnnn7HtDt4ltsd/
+OGHuM6QTTqFoA8l/gfwxRdfYO2xYG+//bac0NDAsZXzqfJSPfVwwJwDcUOb
N2/OkycP5FZENBDRqKio3r17K6WFYIwCqX9kMufHU7DRdJgMopuYmPj++++H
uzqRAoRz7Nix58+fv3HjRo0aNfAywhhCt/i7S5cuL774YkxMzD/+8Q+/ikVh
9+/fT2QanFoHEffu3UtNTV23bl2APNCMORODUP6GDRuCxzOhwXFxcQ0aNEhI
SJg0aZLPfR2Mfq9evb7++msH71LcqKOaOkQI+lDBzZs333vvvbS0tOXLl9NF
cklajT/++AMdv3LlisY/MkCRsPF1586dqMArr7yCJv71r38Nd3Wc4Nq1ax98
8AH6deHChQBjeTUCsXI+VT6U6vmowF/mHKAbwn0TNsL9xD83bdoEkV64cKFS
WrDHKMD6RyZzfjwFG03/y1/+Aqkw/Pbs2bPJycmvmqB///7QyEOHDpnZruzs
7NGjR3fs2BH7HMpe5V0oBbTHsNo9e/YcMmTIokWLLOZb9u7du3XrVo831XPx
4sWXLl2qeQAZfv755/1lzgcPHixcuDAG1kGjgoE7d+7YmTbHrE2cOJGxDtxJ
mTFnj5eMde3alZ43rMCKFSvefPNNPL5m1A4fPoyMxcfHjxgxwrotCPkLL7zw
t7/9zU49GdlOnTodOHDAzsN6CDe6efNmqo1VmTt3rn5TnL+g4fXr11fqT58w
IosXL1avCFv0oVt4+PAhzencufP8+fN3796NHmFAGBc7h20NQYQyaNAgMyPz
+uuvz549G0Md+QvfsOWZM2dWq1YtOjoaSWvUqFH58uUxNcK60kykFMoX+ItQ
W140cODA132Bt2OfDQvBAxL+Rw5zRq5+/fVXn24CE4Rm9e7dGzNeokSJHDly
FCpUSMz5oLNvvfXWa6+9Nm7cOHXmfDRl9erVKSkpzZs3RyXNXhGglbOj8iFQ
TzWQk7FjxzZp0qRy5cpxcXHKymnkwC/m7KIb8njdQdOmTVu1avXLL7+oP3fg
hkIjYB4j5kwsMGDAgFGjRikhOQ6CT5TowF8QWTRr1uzJJ5+cNGmSYnKvXLmC
kd+2bZvHZLdGCATbFaPnIqyZM7WlDvCc5557DhtVp06dnTt3HvWCrtuyZcvw
4cOfeeaZ2NhY/Z4u7AZycuvWLXF0K8SHZ/FiuHU4Vd68eak5/fnpp5+KmkOH
kHNcP+LRoUMHa3sCA3/66acRJ83nDpgzAt+iRQsqM2PGjPBGZ8L74NxpAnFB
yZIloS4WPn3jxo1t2rTRWBhnsGDOHq/aNm7cWL9BYseOHZmZmUgUcqiOO776
6qvJkycTyCPGuFEG1+LV9pkz5oiAERMXCFuDUrZt25YaYtMQxerVq3/00UeO
SwNZWVlFixalQPFPeqNs2bJvv/22RpbM+tAV0CELFy6cM2eO2vhjS7t164aD
vnHjhoMyITkM3PLlyxGMPHnyMKAol1BV2oJhIULnc7zSpUuX3GuKH7h79y5x
WevWrfEghg+g2nC2qKiodu3affLJJ4oX4w88KX729OnTL730EjbHlRP9dD4B
Y0ZGBnQIe4JUb9iw4cP/gB7DvlFhLDPfElsZFhI5zPnYsWOYl5o1a8bExCAD
GEkEwMxCnjt3TuEejEt6enqPHj1OnTpFx/I5/YyxKl26tEJskNiVK1cyCvxk
2LBhNNlsyi5wK2dH5YOqnhpQjTNnziAATz31VK1atcy8fJAg5q9gWR988IHZ
M34xZ7fcELrTq1cvhATFNCzNLzcUSgHTM+fLly+XKVNm9uzZQl/oxu7du2Nq
UA3Hbzl48CBqCLtTPsE4M0zC9Zjtcw62YLti9FyENXNW6gz7FfxTv9qIJCQl
JeXOnRvDpZZ/en7fvn0//PADvBpvGJYpI/hzuXLlYMiGyvvll19WrVoVxoWz
M/w5jSXAxADqKYG/zFnMSAgaT5lhXLS9f//+yJEjGSyhXIzLe++9h6ZAoQ2X
GhlBJGTXrl2uvN2aOdMtCD80Xi1I8FhiDbr6/fffhzrS8+JzxHLu3LkiseS7
775L/a13Vthnztu3b8c4+LugoAEyo5g4qtqnT5/atWs745Yeb8/QLZSgXDeJ
raAnP/74Y/2T+j50Czhi6oAh1Uyb0PPEX4GouRAMbIV+7poyp0yZguK8/PLL
judSAgGtJnx+9tlnDf3CN998gymIjo5GPg2bv27dOoST+isOzhX8+uuvyHOu
XLlw3IYPQDLhomLtTI9IYM70BsYH56J0LJ1Jo/AmEyZMMIwy9u/fjxvSf4Ud
IKAjCuvbty/KS+eIzxGntLS0B1609UJ/kavHJStnR+WDqp6GOHDgAMwZH+3i
thY7wNEQBBHzrl271uwZ+8zZXTfk8QoG8T5l6r2GX24olAKmZ84UiGlSCMxP
P/1UuXLllJQUx3YYlZw3bx7WTLmKAlWCEvfs2VOcDDJjzqER7ACNnouwyZxf
e+01M+bs8e7eIfB/4oknFixYoHENxGioBhzV5XrbA+JKeGjGnD1ej08/4/RP
nDih/xYRbdiwIfGp3ub4y5yJDXEQBLl0Y9euXUNsxNRYs2bNuHHjNOKdlZWF
iatQoYJmWo/RhGO3atUqkBhWDWvmLB6APum3SeArExMTmzRpok+sTWei14yU
9QYwm8wZy0DMjhd2d11g/vz5xE2OLScWAz3t16+fkBwMI9SifPnySLj+YbM+
DBwrVqzImTMnXa1hsBjVdu3aYbQdhxsZGRkYkE6dOhnypa+++gqxiYqKcrAM
h1vZu3dvIKOJ0Tt16pShkTxy5EjZsmUh1ceOHTP7+S+//FK3bt0CBQqYRejO
cPr0aZwm3aIsQ2iAB8csKy5eg0hgzvBkTKJmtQsOjGBjtA0TmTIQlSpVotsN
C+S3DMfMmTMNE2swTMqJFTVct3ICZiofPPXUg6a9/fbbMI309HS/fogarlq1
KsBVHvqcIbZQPZvMOUgDdOHChdKlS2Pt9fG4AzcUAgHTMGe8wKRJk9SzDdnZ
2ZrpYn/BQMBPoMqigdR80aJFtEu5ss0it0YIBDtAo+ciXGHOHq8QlilTBi1Q
exCiTkKw1q1bhyvLrk/m7PEyydy5cxMd63kX8Uvx4sWXLVum/5VfzJkORMKR
Z9SHbuRd4UrKgTrEx8djzDXafePGjWrVqkGKFi5cqP6cGLZWrVrO0i8bwidz
RvK7dOmCpGmCizNnzpQoUUJ9mkNT+WHDhlnP5Ntkzrt37yaCCPCwMIYF67pv
3z7lE5oMM1y3bp2zArEYKJcSaKNQSFGHDh0MM4SY9WHguHLlCrTk+PHjms/p
+SFDhkAO9XPgdsDPBwwYYDErS/MRm/z589vcpq5AOJcRI0YEY5UHv0+wULBg
Qet9OLx64MCBCJXjreCGWLt2LRJVp04ds/VfvPygQYPM1k/DzpwZaOLTUaNG
aWRYrPQhDC1bttQ7Dqw01W7Tpo3eXFMgWhYdHW143yueDp9ruKzmipWzr/LB
U089kIHOnTsXLlzY38mrW7duYWGCfcZZuAOfDtGVAUI8Dh48iBdWYnNUoEGD
BoUKFdLvxnTghoItYB4dc6bTXn75ZWW2gSoRrFG9QDa0X79+PS4ubuTIkWLW
Gm8Ig9q5c6fygAVzDoFgB2j0XIRbzFm4Tp7p37+/Ej+irUWLFiV0pZk4/dDf
sGmHOSPViArPiA3wamzcuBFdMJxN8os58/Abb7yBnNMJsFOLcQ82iIvLli2b
K1euuXPnqnWfoYGGMXy9e/dWP//ee+8REDnLL2EIn8zZ4916ERMTc/nyZeUT
qjpr1qzSpUtjE44ePaqhT9g9homqWr/aDnMWot6+fXvDFTf7yMjIeOaZZ7Zv
367Uf+rUqVFRUY5jYSwG/Xb48GHxT7G9jUCMqIF36S2Vvg+DCswskQuyvXr1
agc/9zkriw3BYKLL/rYoeMwZ/wW1Q2UmTpxovTbK6E+fPh2fYicRok0INs7b
+/XrZ9a0u3fvpqSkYN8Mvw07c0Zoe/ToITbhaGbwGG5kqXz58oaxRnp6utgc
qGk4hTRt2pR+hm9nZWWpUxiJST/kxzCvkStWzi+VD5l6Xrt2LTY2Flel7PKy
iaAyZ3QH6a1RowaUHgHAH2Hb4WOMu2Hg7MoAYWRq166tnq5EBerXr88nf//7
3/XP++WGQiBgHh1zvnTpEsW+9dZbyibnxMTERo0aMXbIv5niWwMXgzMlvqDM
Xbt2wVXgRepBsc7nHFTBDtzouQi3mLPnPzle1Kczli5dysjyT+zJ+vXrQ38s
zg5zFmv9tC4hIUG9UkxLhw4dWrNmTcPOsc+csecDBgwQu0HoBypj5hFCAIhW
9erVaSwWQMOc4+Pj+bx79+7Kh/QAI44z8uvmcWuIZXfNzLYGx48fxwepcyRC
Odq0aYNZwGhgoDQTwmKiyecssR3mzIBWrlw5LS0tQFkl5h0/fryyNocpg6X0
6dPHGXcSA6HMjSClw4cPR9egPTQHI6mvrb4PXQREEXnGzcGTz549y9tRoqSk
JORn0aJFDgrEcyEVZrOyDAq6BnOeN2+ev/v3gsScafKKFSvgb5UqVTI7Nqh+
eMaMGe+88467m5yx21AOTaKenTt3KjQAYTt06JDZfEXYmbMyt4yF0UwgZ2Zm
0jR8hyEPQR7i4uIKFiyo0WUsAHaAGBNGMXnyZPU0JoEwBqRdu3Z6BXTLyvml
8kFVTzUIRZ966il1ymKbCM2csx24NUCYzeTkZHim4uWPHTuG2SF8M5zx9ssN
hUDAPDrmjLLnzZtX2R/CP1GK/v37Q3s08m8fGHCU6MCBA6mpqbRUz/atmXNQ
BTtwo+ciXGTOOFNCSBy6sj37yJEjxJXjxo1jcMOyYcMOc0bqYEq0Tjhu/CB2
G/EgbIFkmm22t8mcKRxLTvmikOzs7KioqGLFiinb70MP2ojF0BhSEX2LCTTl
w5s3bxKkE+VZsw6+RdEGDRrUrFmzF/4blAln4F3i3iXIeZUqVXLmzIluYmdm
zpxpOLUrjjmMGTNG6Xn+gOo3adJk9OjRIhxWHhbHV3FSPu2SHeaMoyHiVi9O
aXDy5MnOnTsXKFCAcezVq5dmmzF1IH5Eeanh3r17Bw8ejOChDlhUwmS9ltks
DS9GzXmmcePGyBJ8IyMjgzIJc5BPQyHU96ErYKzpfyqDVOzatQsFpz6zZ8+m
aYw+Ng3dcVDsmjVrIMaGm0++//77li1b5suXD2lxkJgiEOaM64Hu4omaN2/O
QKiljj6vWrUq+qLO3WQGfoi5cHcB0XC/HzZ22LBhNvMfhp05e7w9fPjwYeU0
nwDdJQ6E4pg0X3m8BBX5x63wABb4+vXrylc8jFVB0RhuTRyNVS9XrpxhUiOf
Vs5dlRcInnru2LGD2kKVsYpUDLOJVhLl+VuUY+ZMP+zZs2fAgAEdO3ZkIAL3
+zbdEHwSM4JJbNiwocYNvfTSS2I/Fd0+cuRIyDM13LZtG1/xvNn8pF9uKAQC
5vlv5iyOukC3YmNjx3sxffp0msYDdPv+/fvVhfBqChHzDwSkc+bM0Vjas2fP
iqRAmDt8NCVDEgyF05o5B0mwBQI3ei7CReZMpA8jEvOZyodYsxDMnJvBDnP2
eB03dA7a/8UXXzAKiBZDM3ToUEyH2eSwTeaMQmHElMeI4Bh6AkNl2T1CQHOo
FTKp3vGFkypevPj8+fMtfnj58uXWrVsz6CIxQu7cufmbNgqTBdPDaPurROJQ
NsWqeTUWibHQ02OxyVnZl2UBO8yZ2lL5M2fOGH67e/dumomolChRAkMnpsvU
G28gkwRKivFE+HkdJppe0ltU+6WdOnWqaNGiK1eu5FsGRRBINJEOMQuuDfsw
QNy9e5f4CAehPgMi0iMsW7asbNmy+fPnV+/ztAkakpycrFkH4Q+UF+L67LPP
wqgNl1PtwDFz5nkkHwrEH6mpqTExMWqPxrgg6g62j7qFrKwszX4/Wrp69eqE
hASbc02RwJwNgdbgmvXZOxkIxKxmzZroFI6yYsWKcEJNpn1UQ38Bjcebnx+9
NtyObm3l3FV5BcFQT8okpqB/YEEe7ywoVhFtRUr1BxN8wjFzxpWgcbz9448/
5tWBTz/6dEMiZsH+MEz8v3Tp0jm8QGcx+NAbohilB3iYAqkVY3Tx4kV/x8jM
DYVGwNTMWRx16dSpE4rMK5QYU53gRQClGDVqFMoCESpVqhR2g7/VOVdxIrBu
ITY+Yc2cgyHYCgI3ei7CReZ89epVOCePobBBqKkT2GTOGzZswA8it0j+uXPn
Jk+ePGTIkPT0dItpTDvMmb6aMmWK2nRQH5hA3rx5LWY1FSD/bdq0Qady2AYP
o3cYPZ+Fq4HiiPNZxK3q8SUILVSokOEJd4HvvvuuevXqEGaMpFBttA+PRtQZ
yHYUMY1ssRucdx06dAibg+Ls2bMHVmknVbJP5kxpo0ePxvYarhF/8803cXFx
BOOie+mo7du3I13KfA7Sws9tXnXhV2mZmZnqTM524LMP/cVvv/02cODAp556
Sp8rgEq2b98+T548JUuWdHCbMzWkniggXkDJZk+8ib+DBqCJJ0+edFxtx8yZ
AZo4ceJvXkDd1etEyv4uw0nREEDZ74dU4KdatmxJiCpsr/3EgBHLnKE0WEi8
szqfG42aM2cObRShvZhwo71YSDOnie/GdmHPxb47s4TGFlbOXZVXw3X1xIan
pKTAwdTbqjGSUVFRDjY5e5wyZ/p83LhxIlMovQRDMzxf7xes3RC+YPPmzdil
+Ph4sW8K2cjIyECEcGqBHFXzOUahFzA1c7506RIxgj6fvwZ8C7fEI8NDRG+g
+LyRsEJZl8Gz2L+fxZo5uy7YClwxei7CReaM3IqGjB07Ngg1dQKbzHn9+vXE
MmjfwYMHbZZshzkjXeJgoPIJFoxfYU9QbTtvgcKJ+yBsgoet5zoMAfkkakhK
StKsrOHCUHmzi4FQatxWuXLllHw1AgsWLKDDlZMyDiA2QDJwhinXPP/ZrY2p
PHPmTP369aFGdtbxfTJn3tuvX79q1arpsy7jmIgHYbCavoWx9+jRQ/Qb3bh4
8WI7ne9XaWKbXN26df2yRT77UI/Tp09PnTqVXxnmcFuzZg3cuG/fvvpZbmxp
w4YNUXxnGfjF1ncCLj0DYVgx8uJCK2d3iDhjzjT/3XffFeHthQsXSpUqpd6m
KM4z0l7Xc+RaD4ECsd+PMHnWrFnfekFwgbcl6LOf9jAymTMWlXAJR6/ZboFq
FCxYUJ0r8ssvvyxcuDBPmq1p4trgjStXroQz8JjZaoiZlXNX5TVwXT137NiR
P3/+wYMHqwVSZHJGZx1IqTPmLK6m4nXEm507d0av9dPdffr06W0JzTqOtRvi
jSVKlMAXqKe5RNKJSpUqBZKT3+cYhV7A1MwZSvP000/7ZCywsoSEBOi9+kMG
CLu6aNEicUQFubJIqqmBNXN2XbAVuGL0XISLzJm2iAtcrNf3QwmbzDk9PZ0R
Qc0N0xkZwidzRpGR/yVLlnyqAr1NZOr6nQiBAGIAacHK6XNarlu3Dm9llu6A
SBYqpc/PQ3CdO3fuQDLwwHbGjBmDPTTbvMQDDOioUaNQt/3799skRT6ZM3Le
tWtX9W0jCuglw9u9oXN8jtg8ePCAOovJFp/wqzQ+RO8wF36F1T77UA/6Z968
ecRQGzZs0Hx1/fp1QpW8efMa6pE4tI5UG+bR9YlVq1YRS3bp0sWQG1M4o4ak
WSf0o7043K1bt77/39iyZQtetW3btps3b9Z8xcNEmobCQyu+/vprnBd/4Lmo
njpTvVg5or3uHvrzWA6BGuJmFuyVOgs9Boe4z/6pdgfMmcaibtOmTZtiD2+9
9RadbJ+2oREEI/StJrs+TSMogwipV7KIszBcFqetIRhYp+HDhxM6WSyFmFk5
d1VeA3fVk5YS2WlS0zBYyKfFnRECCDmU730dYHRxcXHjx4/Xf4XMmIkZUYyY
+EVEixcvbphXsFu3bl0tockRZ+GGGAJoYXR0tGZZSqRtKVasWCCHC3yOUegF
DNZRpkwZGC/EddOmTZ06dfK5vpyVlZWRkaE3UxQ7ZMgQRocQlVG2c3SdQg4f
PszbqYMZc3ZXsNVwxei5CBeZM8NKCEaQG5oc73ZghzmLWSlxt7j9aT2fzBmJ
JWZP+m/QjeXKleNdqEZYLlXUAEbUrFmznj17Gt4hgsYxoIZRrZhmxG3pFQSO
8cQTT6xfv95xregZdBnD6+5tyz6Z8++//w5/M5zdxYiZrcuj79AD1DktLc0m
h3e3NEM460NCeIJf/YY3fCVKVKFCBcOZBGwvvzKcX/IJbAumD40wu3qGTujT
pw8P4CYsTkzjAoikmjRp0liHUqVK4VthiZrPeZjIy/pgKd+iICVLllQf6RU3
k8JJ0HGfDcQzEpjb39RhNgRqiP1+RCtqQYW0jBs3zv5+PwfMmf7v27cvDbe/
eQwbaLPtSAJkG7am35wj5k5x9GqNEAtPNWrUCPBSaTMrF1QldVc9xcFzzWKZ
yOSsYRp6oLwYPb3W1K9fP3/+/FWrVtV/hUYYkjEF4voVRNTByUQ9LNzQkSNH
ChUqhFfVWAYx5wzB85n3xgJuuSEXBQyK2Lt3b4bV/sQUJsJwRoIPx44di/te
tmyZzST8dAgDytsxyBaTWi4KthquGD0X4SJzJhjBVGLKHF8x7DrsMGe6vVWr
VrSO4NG+GbRmzvhWekw/GUL5gwcP5l2vvvpqGK8RFIAtE+APGjTI7PgzUS3B
suEiFBypcOHC3bp105gsGoVq8yuzmNQO0L6UlBTIieF+Y8ewM+fMuPjriwnD
Fy5cCPHTp9N3ALdKc9CH4r5gPKZm9UFs/0ZozaaFMzMzc+fOjSw5yLkn5qst
NkpRq8TERN7erl27EOfW8HiHA9eMnKtfLTibzXtt0BRcic0sSWZDoIa4hz2H
N6mp2oZQQ7/0JaJ2azBMS5cubdCggT7pEDRs5syZCJhmp6iY+X/llVcCzJJt
YeXMELiSuqieYm4ZedDcdSvm5DVMwz4CyUonbhihda5MfZgNkMiujGDo1RDZ
iImJqVevnoUe+YRbbigsAuYTtI5X7NmzB/7s4mENFwVbDbeMnotwiznfvXsX
/pkrV6758+dHyD4Ejz3mfPLkyWe8UM7vi436xDLIgNlCgAVz5ufTpk3bvHmz
/iuRLz2H93osn4dP79y5AxspVqzY07ZRtGjRDh062FEE3j506NDU1FS130EM
1B2FWkEbDH3rtm3b8uTJoz+eIPIhI1H+nlJUQ9woZ7GD0Rns7HMeMmRIbGys
X0d+Lly4wK/GjBnjSt5Ft0pz0IdiEz6RnUbHUX+cMkI7depUvWoTeMJeoqKi
NHmQbOLEiRNFihSx2JHIWNAK3m54ra1PBMKcRciAnItDvpQgCDDmOiEhgSr5
PJ7Dk7zdfiIdsyFQwyypqb+IHOZMH27ZsqV169ZqY0sPUDcaK2YbiNM1WzHp
VQhJ4NveLKycGQJXUhfVU0mLPW/ePPXnhKIEpIJpIMn+ZrgNhDmr91czOhah
DRW7ffu29QiaDRAN5xWGFzHjxfLmzevziiJruOWGwiJgdpCVlTVs2LA1a9a4
SNhcFGw13DJ6LsIt5kxgBUFt0qRJuG7HM4RP5oxr6927d86cOdU3UiFI586d
S0xMLFu2rNmqhAVzJk7UHAxUQ+yphsL55JZUA1YPh/+rbfDw8ePHfZoLBnTG
jBn4dI1NO3ToEHGu8k9xP4XhwhBxAb2qD/YzMzPz5cvn7CI5BeJCQ2fHzSzg
kzmLRUZCFb9uL8XdV69e3Vke4+CVZtaHGDTiQeQTXV6yZMmECROUeSEkh+FG
0zGnfJuUlCSEXxxRRGgNN0xCmPGSFKh2zViDpk2bKmtPsF+KNUzgRpkWm5yV
vZoxMTGON5Q6Zs7Xr1+vVq1a1apVhRdA2pWUOOvXr4dRt23b1nqhEJVEojSv
djAEaij7/Rxn6hOIHOb8ySefYGw1C+v4EUaN/zOCI0eOLFq0qHo6WtzcXbx4
cc3xZAewsHJmCFxJ3VVPnlfiOwHRPwrT+Pzzz5ctW+YXQXLMnEWiCYirOLfF
qBnmbbh69Sqt6Ny5s9hPFR8fb3bFntkACVpSunRpjeTg1Lp27YrvDvDSBLfc
UFgEzA7Wrl1bq1atQK7q1sNFwVbDX6N38eLF+vXrK76eWiGEixcvFtQIhtas
WTNx8FwhS0gRTFh/kbQZbDJnMelkxpyhkQgwgYbNlIA2cefOHdo7a9Ysx5fv
iBU9M+ZMu/Br2BxGTTPQIhVVq1atzDyjGXMmOOrevfuRI0fMqiRma/2d2HQR
iArmlF7VcJUHDx4gSOqkHz/++COMZezYsXoqjgAjyZqMQ/R2zZo1u3XrFmCk
TB9Ccfv06ePuhhY7+Zy3bt2KetpPseLxbhSkWGe8LnilGfYh9qdu3brvvvsu
A8pwd+rUSZ28esWKFU888cSoUaMQfrE61rNnTxFbQRoRWv383s2bNxs2bFin
Th31xiTMFJ5LbTzhmcQj+qkh6ta3b1+zTc5Ukh9GRUUVLlzY8enpQJjzRx99
VKBAAaw9v6UtKIKis9BObC/f7t692/C3NGffvn3qS+UEHA+BArHfz99cK3pE
CHPGkuBWNBvb6Bz0NDk5WdgoxI9eUq9cw+vwjDC0wE2EhZUzQ+BK6q56Llq0
SJPOiKCV8gsWLIgnEoli/LJpngCYM2YWPhYXF0fgyavxNXv27NE8AzV69dVX
FRZ07tw54lMMr+GWBrMBEtHBM888o2HI+HqKWr16dYBTqW65obAImB0gFT16
9HCWs8gM7gq2An+NHs+r87gib0RS6iVC1AEh2bJli/ITQhtDJ2UGO8wZIiRu
u4BhaqSI4Gj06NH58+dHyxykcrUGNAZ/nTNnTmeZfzzeIaM3KESzd4IBys7O
btu2LQbHcIc50l6hQoUpU6aYvdeQOUMdu3TpYnhuTgFjSn0srtsIKsS9FSLj
uh6MozoxMtLbvn17w52EfEJsSAcqxAA7yZMoRYAHdjzegJFALPBEoBrYYc4Y
4RIlSqSnp9sv9ujRoyi7W/bHrdL0fXj79u0WXoghE7vLlLUP8U8lr4g46EHU
KY4EYq8aNWpUr149ddYRfpiQkFC9enXNrMVPP/1UpUoVLKHwFGLKGmeqz1hC
mE+4rZE6gW+//Rb7ie5XrFjx008/ddwPgTBnbCOaIhZQYJjC8ivf4t1oJp2M
p9b4RHjLxIkTMYyag7eBDIEAfgdnh6oSmwR4w2wkMGe4ARTL7IChcr0RmgtP
Tk1NFYPIh/Pnzydkc2XywcLKmSFwJXVXPVEW/la2M4np+saNG4vkEvyEnvQ3
znLMnMXVVOI876VLl1JSUjT7VxnECRMm4IbUH27atAm32KBBA/1WQ4sBohsx
IOq8N7j1SpUqzZ07N/CQyi03FBYB8wmxnGfnjLNfcFewBfw1eoJ+q3Nk7dy5
E56sHISk7fPmzYuOjlZiLqQOfdEzdgtYM+fDhw8jmbB9xZqhjBW9IIyC1fP2
jh074jvMBJWW0o3JyclvvPEG3mT27Nm7du2ySYNFnvBSpUr5O7dA//MiqqpU
myYQdIia8wfdSP2pkhl93b9/P+TWbELJo2POMO0mTZqIG/RyeC/U0wTaVGnR
okW8WulMHoZOBHLLgwMoCbUMwYCq06iKIxixsbGGeZ+QfOQT7pSRkYHRRjUW
Llzoys1BO3bsKFmyZICL0XrYYc537txp2rSp5hiCNdauXSsSY7pRR9dK0/ch
1iNfvnxKFkFxNE+5E1ZsNlMWlVDbxMTE5557Thl6MQ0CXVmzZg1El/gd3USv
9ewF1UB3lGUvcXW4OvWxuCFI3DcqULx48Yr/AYopMnUgUbwrwHPTgTBnzCku
77XXXps5cyaF6Bdt0SZMOorcsmVL3ND27duXL1/ev39/ak7z9W8MZAiwsZji
vHnzih7LlSsXvQRJWLVqlTNpCTtzVi6UMYP6fkAYYJcuXQYPHkzHQqExO26l
orK2coYIXEldV09UksA2LS2NmGLIkCGnTp06d+4cJUBc8Z52LorSwDFzRuPQ
hbp16y5evBgHod+DIQwCjaUblQ/FZRCGl3JaD9BXX3318ssvIxKUxuvatm17
4MABV6yxW24oLALmE9BytMl1J+uuYDszemJTtOLExa1J5cuXV9i4WBWFKovN
DBRFb8OL/Nr6ZWfO2THwNQQUdIWYe0lPT4c30od+FUIf4rlCmYmCnsQE4f0J
1YcNG4ZznDFjhoYT2rx9+1EHxL5cuXL65TYFSCnhFQGIWwOEnMNzoCLubnL2
2GPODD2up0aNGtevX7dTJq0W3tyVGrpVmr4PhfVQ38OLcSNQUpzX2bNniTRh
quKfNB9irEnHSjwu0mhT+OrVq802yNGBGE8lk+rp06cp2a9pfBcRYG4NbCyu
+fz58xaGGgq3bNkyDAVjh4s0yxHtyhC4iLAzZ39BByJUu3btwtq4m9LTp5VT
I3AlDZ56IqswVUX8iDqPHTvm4AJBT2AnBFGWixcvwoENJ1KgK5ScM2dOdTIB
PCmMSJOSWoH1AFHI999/n52dbf/2DZ9w1w2FWMDsgL5q3759IFf96hEkwfYX
wuMop3LENeUdOnRQ5pPFW5Qlrd27d8PV7VzrrEbwmDPyPHv2bHXOiq1bt0JH
Dx065Fc5BAJEBKHMfkwPd+zYkarSmbQCpa5Vq5ZmXeMxYc50BYEPIWHIIhfR
28E4HGGHOXu8s1sVK1a0eQciOti8eXO3Fg7cKk3fh+IAfkxMjGIqob5IOO/K
9gLLVqZMGcVtwZALFixocfG6GcSkQYMGDZQlWhSnSJEi8EkiLH83WwYOcepz
ypQpYU+fHrIhsIlHjjkHD35ZucCVNIzqaR/w2/j4eH+dtU1AyzWTLXh52hsd
Ha25O1LgUXdDIRYwO4DGd+7c2d2oPEIEG1qOx1EyGl2+fJlXTJs27caNGxkZ
GQwBX1GHLVu24B2IxOvUqUOc4u8Mf/CYs0hQ1qpVKzE6IsWTvzlexK3rZtfY
BQlik7OyUVOsLvXs2VP9zGPCnD3ehBuog6FBCwZWrVrVqFGjYAikTebMoEO0
unbtamfnCVSQeNatfDJulWbYh+vWrYuNjRU78K9cuYK5qFKlyg8//DBjxozz
589jrukcES9cu3atXr16gwYNcpApF+1Gxxs2bCiWma5evVq7dm3eyx9paWma
S2BDA2xI2GmzQGiGwCYkc1bDvpULXEnDqJ5+IWRaI1J258iRw2Jb5qPuhkIp
YD4hpoLHjx/v7hBHgmCLYzWFChUSB4ofPnw4fPjwPHnyYOhw/VlZWWJvBjHa
gQMHUlNTiWjMkrpYI3jMGVGJioqaNWuWIPN3795t1qwZ9fTrYAtdPXbsWMe5
NZxh//79xCxKOg4GnZglKSlJ/czjw5wxZSNGjEhJSQnkSjubQI+aNm1qfVW6
Y9hkzh5v0Ne4cWOfK5XioEFycrIrMyFulWbWhwSwgwcPJgCcNGnSm2++uWHD
hmrVqjGymBGRdhXz1a5du9mzZyckJFATZ+dTxHVmxYsXR1/whsOGDcNy8iLM
1/z58wM81PaoIzRDYBOSOath08oFrqThVc/IxMWLFytUqACnsthu8ai7oZAJ
mB0gbB06dFCnMQwcESLYYp4TH4QHT0tL440ZGRmU3717dzofz07/9+/fH/ZO
7HDs2DHHsUPwmDMlw/yV0fnuu+9Kliw5Z84cejgzM9OO/BN6TJ482SLDW5Cw
cOFCqqrkhNm7d6/Y4q5+5vFhzh4vk2zfvr3NOzodA5GYOHHimDFjgsSv7DNn
wGM02fo2TBQfHXTreLIrpfnsQ7QP96QEs5oFoPv37xMnOvZNwuyLu6qvXr3K
i4Rdwnjyosi5ICm8COoQ2IdkzhrYsXIBKml41TMyQaOgVbAp5WSEGR51NxQC
AbMJjHOzZs1cTIYWOYJ96tSpokWLrly58pdffkGiBA+n5B9//NHdAYXfQr93
7twJFXT3HsNLly5VrFiREMPj5cDDhw8X2dGBzX0stDf096qI44FK5kAkeeDA
gTExMeIoN0zg7Nmzhw4dWrJkCcr+mDBnj/eMQ5cuXQLMLW8Bun3Tpk0DBgzQ
JPJyETDn2rVrE7tlZ2efPn3aWk8ZaLTP4kYbj3claO7cuW4dSwm8tBD0oTUw
TQkJCa5fYSPhLq5du4YK7Nmzp3r16pI5q+HTygWipGFXzwgE7nXatGmNGjWy
mbv4UXdDQRUw+4CmLliwwC0mGVGCnZmZqc7kHDx8/vnnlSpVio6OLlWqFEPm
Ysn057p161q0aDF9+vTXX38dttyqVSuiy1GjRtlMXBAu4FPq1Kkj0m3t3bu3
bNmySsbse/fude3aVdzW3bx58yDlJIlMEDKkp6cHaUKY3kaXg6p6t27dateu
XbQXnTp10mQZ1QPyvG3bNmeXSocFIehDa4ijDX7l/JcIMTDLy5YtK1myJBas
fPnyj5B4hwbBs3JhV89IA1Zi+fLl8fHxfk1APepuKKj1DwsiR7DFJufAb4mK
BEA1CSfFnDkBJsFUKPPLOcODBw/w/v369Zs6dWqHDh1CnxBAQuJRxOXLlwkn
P/vss3BXREJCIqJBBLd169bk5GRxI4b4BEp54sSJ8FZM4tEFPBPmPGvWLDl1
E0bcuHHDrzQgEhISEhISEj5x8ODB1NRU9cLfgwcPRo4ceeXKlTDWSkJCQkJC
QkJCQiKicPz48fLly1epUuX5/6BSpUpFihRp1KiRz010EhISEhISEhISEo8J
bt++3bhxY8P71v1NWishISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhIRH5+D+Wv2A2
     "], {{0, 57.}, {958., 0}}, {
     0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{754.6666666666656, Automatic},
   ImageSizeRaw->{958., 57.},
   PlotRange->{{0, 958.}, {0, 57.}}]], "Input",ExpressionUUID->
  "b78e1495-b6fe-4965-be37-23aa25c8ccf3"],
 ", FieldNumber = 8"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.8318211757101755`*^9, 
   3.831821176054186*^9}, {3.8318212250410357`*^9, 3.831821225462812*^9}, {
   3.8318294604157405`*^9, 
   3.831829467991518*^9}},ExpressionUUID->"44b90fa9-641f-4f15-8cbb-\
666a36b80c93"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "8"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
   3.7676307019645357`*^9}, 3.831829475160224*^9},
 CellLabel->
  "In[366]:=",ExpressionUUID->"733528d6-0221-4385-bf25-1ecaf235c63a"],

Cell[BoxData[
 RowBox[{"At", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831805884463417*^9, 
   3.831821543075192*^9, 3.831821615781942*^9, {3.831822067139452*^9, 
   3.831822083189903*^9}, {3.8318221168790903`*^9, 3.831822124229101*^9}, 
   3.83182237608669*^9, 3.831828156599307*^9, 3.8318294762749405`*^9, 
   3.831829549740491*^9, 3.83183980451912*^9, 3.832947517288538*^9, 
   3.832961802427701*^9, 3.8458268948015847`*^9, 3.845852484788975*^9, 
   3.845857095203622*^9, 3.845919643045144*^9, 3.8460065935987606`*^9, 
   3.8460999055527916`*^9, 3.8474704680245447`*^9, 3.851700653417843*^9, 
   3.853975468302574*^9, 3.85497742917315*^9, 3.854989281119254*^9, 
   3.8549999188447556`*^9, 3.85516526883383*^9, 3.8551823374563937`*^9, 
   3.855185880974595*^9, 3.855330660015359*^9, 3.85533986442848*^9, 
   3.8553432019895625`*^9, 3.8553440356646633`*^9, 3.855352763036804*^9, 
   3.855449625609475*^9, 3.855507626608336*^9, 3.8555084244927263`*^9, 
   3.855512912839862*^9, 3.855533344292777*^9, 3.8555789384906206`*^9, 
   3.855593310617525*^9, 3.85575062298748*^9},
 CellLabel->
  "Out[367]=",ExpressionUUID->"d1de06f0-c51d-4ef4-ad0d-4737ad4d8c38"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"B", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "-", 
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"d", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
      RowBox[{"I", 
       FractionBox["1", "2"], 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
  3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
  3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
  3.831821548575319*^9, 3.8318216060627775`*^9}, {3.831822072025206*^9, 
  3.831822074309018*^9}, {3.831822110039128*^9, 3.8318221104452844`*^9}, {
  3.8318294808204727`*^9, 3.831829539826767*^9}},
 CellLabel->
  "In[368]:=",ExpressionUUID->"e1447aed-c72e-44b1-8844-790e4ffeb508"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}, {3.8318220912578692`*^9, 3.8318221206819324`*^9}},
 CellLabel->
  "In[369]:=",ExpressionUUID->"0eb7af85-2405-4d88-b8ab-ac04df7bcc37"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8318058845321503`*^9, 3.8318216161991186`*^9, {
   3.8318220673581543`*^9, 3.8318220833984103`*^9}, {3.831822117035342*^9, 
   3.8318221244009366`*^9}, 3.8318223762236786`*^9, 3.8318281566461687`*^9, 
   3.8318295498517356`*^9, 3.8318398045745077`*^9, 3.8329475173354163`*^9, 
   3.832961802478081*^9, 3.8458268948796964`*^9, 3.845852484852474*^9, 
   3.8458570952657843`*^9, 3.8459196431392536`*^9, 3.846006593659254*^9, 
   3.846099905599655*^9, 3.847470468087044*^9, 3.851700653495942*^9, 
   3.853975468369605*^9, 3.854977429266876*^9, 3.854989281186694*^9, 
   3.854999918907219*^9, 3.8551652689275684`*^9, 3.855182337518881*^9, 
   3.8551858810447187`*^9, 3.855330660093494*^9, 3.8553398644919825`*^9, 
   3.8553432020989447`*^9, 3.855344035730124*^9, 3.855352763108375*^9, 
   3.85544962567078*^9, 3.855507626679315*^9, 3.855508424560975*^9, 
   3.8555129129191008`*^9, 3.855533344409658*^9, 3.8555789385421424`*^9, 
   3.855593310660615*^9, 3.8557506230499907`*^9},
 CellLabel->
  "Out[369]=",ExpressionUUID->"477978f5-6e7a-4593-b6e1-562ae6cb983b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[370]:=",ExpressionUUID->"28260de8-a442-4868-9d08-de72a4ec9423"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwVdUZx8NSgcpmFggKSAgphsUKlKVlBwUSlhBSAhpKIAIBMQsBSiIQ
1hAQJYDsBGQpi1CaQCthZCkRgkuYIBQBhyrYEUsZrU7FoZ3aef31nfHO673v
3nffffe9F/D8Z3TCfe+de+453/f/f9/ZblRa1qgpNUNCQmbW5X+jJs7pn5Mz
MS+pMf8YnTlzWnrm5ElxmbMmp0/O6ZFWi4tP8d8Avv+/vx0SEhISEhISEhIS
EhISEhISEhISEhKG+O677yoqKvLz81NSUpYtW3bjxg3VF/7973+XlJScO3fO
9lt/8sknr7322vjx43NycsrLy//zn/+ovnDp0qU9e/ZQAdtvLSEhISHxAOCj
jz5KTExs167ds88+GxcX17hx43r16mVmZn722WfiC9euXUPd0tPT//73v9t4
32+++WbBggWtW7ceMWJEcnJydHR0SEjIwIEDz549K7Tsq6++Kiws5EpVVZWN
95WQkJCQeGBw7Nix/v37HzhwgHRMXBHaERERUaNGjVbfY+fOnQbZ0AcffBAb
G1tUVKTNpPTw6aefjh49Oi8vj9uJK5R/5MiRLl26oGWhoaFt27YNCwvLzs6+
c+eOj88oISEhIfFAAtEhzfn888+1HyEuJSUlK1eu5P8kTcblfPLJJ3PmzLl4
8aL5W5PooX3a62hZRUXF6tWri4uLb968ab5ACWv45z//+QMZrVXiNAGMX3VF
4gcCaQn+wJdffjlkyJCUlBQoJdh1kfhBAM89fvx4cnIyGXHv3r27du168OBB
b+UM31+2bNkTTzzx5z//WfWRhfTcryASGzx4cMeOHceNGzd16tRhw4Z169bt
woULwa6XRKAhLcFP+Mc//rFkyZLS0tJq4vISDzzefvvtmTNniuFcxGvRokX1
6tV7/fXXvbJAvnzgwIHly5drs3UL6blfgYvBXXXr/m8Haf369ceMGXP58uVg
V0oiCPhhWsLdu3e3bNmywIlt27Z9++23wa5RdQGZ46ZNm7Kysvr16/eb3/xG
IcAzZ84sXLgwPz+/oKDg2rVrwa3kAwzav7Ky8l//+pe3P+Qnzz///C9/+ctb
t26JKzdv3mzTpk2nTp3+9re/iStffPHFn/70JzurqwEZXGFhIW6FtZw6dcrM
T/76179euXLFwr3gLlT7s88+C+Tw6dWrV90O10v4Dv9ZQgAs30fg+Dt37sx3
YsOGDR5nfBzO5oqNje3evXtiYmJeXh6NEIB6Vn989913NCDiBSVOnz79F7/4
hbKC8dChQ7RVfHx848aN33jjjeDW80EFdpidnb19+3YL+Ttd9uyzzzZs2LC8
vFxcISnr2bPno48+qowN4hqUv2PHDv+NDxw5cgQLiYuLGzVq1N69ez1+n5iZ
al+6dMnCvRTusvBby/jwww+fe+65ACSk9BF3Wbdu3ZIlS3bv3n379m1/3AWX
LysrI8v2R+Fewa+WEADL9xFkUuhXQkICrBsVFfWXv/zF409QsS5duvz+9793
+ynuj7SN0QE2nJOTs2vXri+//NLtz6nAvHnz+Nrs2bNJ+nx6Ni/xwQcfTJw4
Ua/mEyZMoKFOnjypF+oTveMyd50Y7ISq/jwyjaynYtgSQfjYsWPd3n3cuHG5
ubkw29dff23/k1djYE5mIiuCMdqHDrKQiAnQsPSg4qfY4U9+8pPOnTsruRiA
DJOSkg4fPuy2AuvXr3/hhRcIV1zTbb303C1QsZ/97Gf4l5kKU8Phw4e/9dZb
ph5PA8Fd2DN534wZM+Ao38NR/Lp3795KtvXpp5/iyKo9lX/84x9HjBjBRz7e
ywAUPn78eHx569atv/3tb2GS6OjogoKCe/fu2Xuj48ePN2rUaOPGjfYW6y0C
YAkGlm8X8PRFixZNmjTpeU9IT0+ntm4Lwbp++tOf+q5ipKXnz58nv4PGQ0JC
iG/XrFnz9ttvnz179syZM6WlpZgTN3r44YdRKxUnY2YQUVVVFT8nDA7w4BvN
SOMUFRU9/vjj1LxTp07kUGedOH369J49e1588cXw8HA8gusGa3iIzVq2bMmD
qCjLWMUokLT94MGD8Bh3HzRo0Jtvvnn2exw7dmzx4sVNmzalWXDMahsUmQGV
h+66du3Kg+h9BzGCHDAzTCUiIiIyMnLy5MkG1IfB0GKuiuNjDV977bW6detS
B1VTY8PkaNqhGzoOziRxw3gUWjNIz93CvIoRfMLS2JjltWTEBiNHjoS+EB3C
Lf4YOHCgGffXA3oN0fXp00dx6tdffz0sLOy9995z/RoVXrp0aWpqqp9iVLyM
llGNx1ZWVsbExLz00ks2Dp/Slf3798dVIf8g+mPALEHP8u0CPlJeXr5ly5bY
2FhaFd9HT498DyiXaDAjIwMG5tNVq1a5LcQuFVMAU9WuXZuAVlsmFSbZr1+/
PmbgmslevXq1sLCQliSUguW++OILj5WxHdSN3IeGQvS1Ng9PpqSk8FyYjd76
Sdr8kUce4f+q68YqJkAURND+ox/9aP/+/dpP6SOiAli9oqLCm2eqXsBr6Hee
sbi4WO8LmZmZtLDgQ9xz9+7djRs35sG1rQpu3LgB+f/ud7+zq4bvvvtuVFTU
/PnztZkdJoErIamuvQ+TQGXYOclyaGgo3SSue0zPVTCvYgcOHMBBfBEdiPfj
jz9WLJw2bN26dXZ2tmWex5Hbtm1LMC/olHLwoCeffFI7mnfr1q0ePXr4Y2id
h1q7di2FE/ipPiIswYRMzjaauRGxSp06dSAKEvAgbs0ImCW4tXzbAecjLjVr
1iT8c/uFixcv4pv79u1z+6ntKkYIClOhYm5HXGm6zZs3P/TQQ7i2KkBFy5o3
b052GZQIB+J67rnn9FTM4RSa5OTkWrVqrVy5UltDrkC/BOTa0XIzKkb62axZ
M3IutzEPrN67d2/q9utf//q+3tBB45B46vUvhjF79myVs2zbtg1zwr8++ugj
1+uiwZ9++mm7xloxP6QEVdLzVgJ78nHtAM69e/dGjRrVq1cvZd+6Ar30XAWT
KoYhkfIQ79noICK0QIYsz5RBIARvSvR1584dWIKQTxsJUO2XX365e/futk9X
0QXx8fE4CBGIqnGwN8J4Paf2FtevXyfWTUxM5F5koJbHsYlzkFfLaWmALUHP
8m1EVVUVVkS8oUrhFdBW0K8SKKoQYBVzOCNYzADZLSgoUHqBP4qKipo0aRKs
Q5Y8qpjDOUn92GOPhYWFaXMiGnnQoEFDhgzRLt00o2IHDx5E2ZEqt5wsDIy6
TZ8+/b5WMQMgASNHjiSxUjnm559/3q5duxo1arzyyiuu17EuAn6owJa7Uxp3
37FjB81LBSAr7WQKXZyQkIB5qLjrwoULhB9UT0speum59mtmVKykpAQ192XZ
mNjXNnToUMU3MVcigUcffZSw3FqZCFNkZKQSfeG/OMi6devcfvny5cs8AnmE
tXvpgZaHY3k0bRuSAD7xxBNQnO/SSb/n5eXt2bOHsARnxCXNTN26xcmTJ3v2
7Gl53WaALUHP8m1EcXExCYLr2mAV8EfyQb2BzcCrmMPZC3Xr1o2JiVGO24XE
4HDaipSH8Dvw63/MqBjX09PT+c6ECRNUETtd36JFC7dD5R5VDIsiB6FYZVhG
BdQT66JVoVnvn+z+AD1OJk5ss3z5ctc2pJ3xNRpn3Lhxrt/fvXs3EYW11Vkq
YNg4iGLYUNOcOXOUtfeuWLNmTVRUFBqnXKGqixcvpnfoo7Nnz7p6h0F6roIZ
FRP2GRcX58u8Eo1JANm5c2elShgnyRF3tzaMT4HkoZSgrNrCeYmoaYry8vLj
x4+rvk/leQTSGdtXXOiBVm3fvn1ERIQql7cAqHLq1KmYx4YNGwirDCjXI3xR
saBYgtbybQS8OmnSJHw8NTVVj3sJ77OysvQ0JSgqJkZaEN8tW7aIK8QVJGIo
Msb20ksvWQ5yLMOMijmcs348nXYJyuHDh4m633zzTe1PPKoYwt23b1+KdTvq
S8UyMjKo2DPPPGPvKcTVCng0bMNjIgoqFSNL+t97XUePVi6KyRfCHu0gnre4
c+cO5cfHx89y4sUXXySUSkpKcksR77zzTnh4uOtieCJYcnCYnK5Bs1zDY4P0
XAUzKiYWTy5ZssTHQSRSia1btyqF4P5kUjt37rRWGj5OrXr06CEsE79+6qmn
oqOj+YOqapfWc1+uw4d+OlQNV4KgVq9ejSuJOIQbtWrVCt90e86beWBpaWlp
7777rsM5J/XQQw9RrOWn8EXFgmIJWsu3Eegm9k8Eq1r2eejQoffff1/8jRPR
aHqj/UFRMWWiZ/z48SJL5UFwebQYxg7KVjuTKoYZN2rUSCgONEWn46p8f9q0
aU8++aRbIvKoYlevXm3WrBkiTjyv+ohbzJs3j9tBs35dpew/4CalpaUwwLBh
w+hcg3XdcEJFRYVq1ILW69atG/2Sm5urXLx9+zZsSfxmPNkBtW7evBn5g2a7
/D/69OlDyCF2PYdoMGXKFLclC9KeOXOmkjLzB7Lbq1evnJwcaMGVWAzScxXM
qNixY8egYvza7afUlvgKRyYyJEUtLCxUSSccTgkOp0UVFBQQKJaVla1atYqm
WLt2rarNzZd26tSp+vXrk+mkpKQsWrRo+vTp27dvb9euHcHAyy+/7JZzeAQe
xPZJFgiEDJrHocHhNJqU0L2kpOS9994jN2zatKkveQQ9SICNcIh+F08dFhZm
+bALX1QskJagQGv5NsLtpBhEgTlpj3Rzi6CoGOY9fPhw6MJ1TvzevXs4vv+G
Xo1hUsVIFZEbkTLgKRjzhg0bCFF43j/84Q9uf+JRxURop1oewN9ch8A7duy4
Y8eOYDWL78DA8vLycJmjR48SAHgbzvHzBg0aYOFnzpxRLl65cgXmhCf1fgXt
kB03b968Ro0a/J/cWcgTWQA2jGSQIhFeevssYoKSpNg1U+Ne6K82KzRIz1Uw
o2Lr16+nNLfH3OE4M2bMIJTFigiHoC/+dl2DjbstWLBASUaoMGZMR1A37fCR
+dIoZ8WKFQTwkDnJ140bN8R34B98X0+7eQR6s6ioyGOzmAdxL1HN4MGDXXlM
vPBo6dKltWvX7tChg8nteG4BL40bN04p/NKlS/QFZqlslvcWvqhYwCzBFW4t
3y5s27ZNNSlGhTdt2pSYmGhyUC4oKgYnEyHDKnr5S+BhUsXwViIcvpaZmUmo
/8orrxB2wtIGe9w87hcjwqFA3FDZ3zdhwgR6kNYmBUPLTK5xpT7ks/C2NrnQ
A18mKfbfO1+w+dmzZ5NsOpzeh08R75n/OQ9OEicWZ7p2CsFkw4YN9UY/8E2M
8OGHHx45cqSYqqaRt2zZUqdOHUrzJR4Q2zEMJkRMpucqeFQx6k+uhxxrp9h4
WPwdd4OLxKNhb2Ql6LUypkGIa3JjuFelibkV151iZsAjkKLaGNWTZJH90dTa
8T1yMT7CfhISEiwvFKcr586d6xp9odctW7bEnPQSIo+wrGIBswQVPFq+ZSiT
YqGhoQjlwIEDaRnBseSJJo0kWCqWlJREPVWHJAQRJlUMVhQtPGvWLJMlG6sY
DAAPEDu5XbhFa4eFhfXt29fkCDy2LbaZmwRfhgT8t7UBr8EUadtvv/12xIgR
BOFeZUClpaU//vGPU1JSVOOQ+/fvR8X0jhTgpk2bNkXCXPMjgroBAwbExMT4
ssUGw3jhhRcef/xx7UvABUym59pfGasY901NTYWQtbyHQSIlqhkoGhz6evXV
V+lZ/p4/f77JnYZelSYmaHAEr/RILDrF10xyKc+OaxALZWVlaUcFCRtgEtxn
z5492t9i4dgJ3uq6HNpbnD59WizqUK7cvn0bziQkU6b1vYVlFQuYJWjva2z5
WlRVVXE7foWfGjS+mBQjnF68ePEVJyorK4l4UWrzW0GDomJkvnFxcT6uVrUX
JlWMRha7yA2Gs1QwVjEKjIyMJP0XCYsKyvLFsWPHBuv4ZRSEGG/evHlzzWHh
woViEtzhHE4X2dCFCxciIiIItMyfd/Thhx+2adMG7dOeWrZ9+/YGDRqI4X0V
oDV8uUmTJviC63X6Nzk5mZDAl1MIROKMROoN15tMz1XwqGIi6iNb1y4X37Zt
G1yqZQnMKT09ndYmDieTNWk8XpWGpvTr109vC48eiFoJ6UmOTKqYOBpx1KhR
0Jq22WHIevXquT1jweHM2UnJGzVqpDoOyzwIhDCboqKiEy6gv0j98MqlS5ca
iyPGjwTv1YCEiIBq48aN2o8o3GDNUsAsQQWPlq8F9rxixQqiUOOV1TCDmBRT
SMPhbHbE2vxUZlBUTOgvZkB2XE02QJlUMZqLYBvXMD89baxipBU0F9mWHr3v
27ePL2A/wToVH7ulN80PVFJbhMy1BDyLYLhWrVqEWCZveuvWLdoE7Xa7LBNv
pRe0C7kdzjetEH7TlaoRJJGLkUdb3hjlcPoyPGDLsm1XeFQxngXadztwwRW3
q9a5SJZE361du/bo0aMma2JvaW4htkUPGzbM/BAfxDt06NCnn35aFfHisxMn
TsTkfvWrX7nVRGqL3fbp08fyWlakgUg75f+BdbVo0YL7ZmRkGNAXZr97926E
vqcG7du3r1OnTteuXbUf0TLnz5/XKzNglqCCNcvH34n5jVeHikkxdNn1idAO
onfzCU5QVIznIiomiPJYWsBgUsXIzfGLDh06mB8NMFAxMcotxif13IG8g17G
GLQrGO8XiK0oOL5JF0C5CDgnT56sp+y7du0iF9OO14ndW7Vr16bRVB/duHEj
KioK3tA7j9oM6KOsrCwexN79jGZysTFjxni1RIGqkhWWlpZiWr4f6WZjaTwC
iQzxifnZmZs3b7Zu3Zo0X5VoiLSuZs2amzdv1v4K9iYrh4u2bt1qrar0Mpyg
HcyHH6ZMmYLb0inWplktjygGyxIsWD5VJbro1q2bgcfRkrh5iHOnmGtL0nde
uVjgVUwcRIPtDRw4sPoc1W5GxagtASE1p/6KQ3kc/jVQMbHjQG9SzPH9C7Co
VY8ePTzSLwEn5E948IhphIaGEuX6++BK8layV7GrgiYyHtO4e/futGnTsrOz
Xb+G7bmeIYxLknBpm5SO4y5uz7Hh50S/ubm5vuT+lJ+WlmYcoVmAmXmx9PT0
6Ohor3ZbEOVOnz4dhrdl3tOu0qCamJgYj7skXFFWVoatlpSUqK6LVRZYAgm4
9lcXL16MjIxE5qytH6N6+fn5sJn2I7GfHa+Ewayt2fNlXiwolmDB8sXsod6m
FQG9nWLeIvAqdv36dXoBs/R2RN2vMKNipABiSbxr8utx+NdAxa5cudK0aVO9
STFw7tw5VIn21CYXWmCilZWVCOIbpsGX33nnHb8O6orVeiiImKu9fPmywSop
ri9cuDAvL0+ldHh9YWGh8s/3338fqdIePyU6UXuKDqWh782bN/fxbbbiIBFv
V+V5hEcVE0OyWIJX+XhxcTFZj10pvF2lXbt2LSIiQrvcArog2p86dSoOWFRU
NGfOHJG5i43S0EVmZiZUnJycjIUI7RCbmMLDw7WD7VhdTk5OvXr1VMsIzbxE
RuDMmTOqRR2uWLduXY0aNeBDa+t7LatYsCxBz/L1es3h3CiNk9K89BqfpqSk
aOfUlEkxZXezNQRYxShk0KBBWJddIaIAPLx3714SIss7psULEw1UjIaCHnku
7TCv8fCvgYqJOS+9STEK7NixI86CnQTsxB7bIUaQYmNjb926JY4EJ5Ny+006
kU8XL16selgoC11zXQ928+bNqKgo7TAs5SN29IVKrUjE8JRNmzb5aHLi5G29
WRjLMLNfDFPhEdxOBephzZo1cL5dlmNXaadOneJBVMfUwGadO3fmFnQo3T18
+HBlSxQRyLBhw8Q+X7oPpsKcSC4cznGn0aNHu029T5w4wfWMjAzX2TeTL5Fx
ODuakt2meAJiOtvbnEiBL/vFgmIJbi3foNccTlasVavWjBkz6EExcqhdoiYm
xXxfqW6vimFmYuZIuybzq6++gohatWr12GOPHTx40N7V3YLWQpzv57K26BEd
eeaZZyhBuwaY5FHEdf3799dGfR6Hf/VUDKMSc9MEmSo25ifkdw0bNiTFW758
+f0rYY7vV1Zj4XAIcRqK7LahxFQ4z+t2xQiN77p9GF+Ii4uLj4/XDk7SQUQa
ru8dgDZjYmJoRt+lh8KJZLza8mYGZlQMXSZt1ztlVwsef9myZYLtfYeNpRG+
RkZGuh6AKd7YBYS4CIdS0hwxKaYcMSoWh8CH4rdCE3Nzc10jT7IA2CAtLU1F
BSZfIgNxJSQkwFQG6/HEqxb0dh97hC8qFhRL0Fq+ca+JfyprKcXikJYtW7qK
gjimPsT5dgAfX/til4pReUKmunXrujIPttSmTRsiFpodY+PnkImB7FKZ1NRU
MlCEGymn8U0OO2OuNFqjRo3QC28PNysvL4f3CAmUmhOetXGC+oeGhjZp0oRH
I553S4Meh3+1Knb06FHuWLt2bXE7qJsmEnfkj2bNmqFf7du3Jz2vDm9F9xHi
9GzCrVWrVtGteuf3ijkOvXWP9IJrli1WcdBWbvua0HrAgAHZ2dnFxcXccfDg
wW+99ZYtURPRFwzs4+iHFmZUTByXrZoENwCRDzZpV1XtKk0Ih0J9AiRZ8Iby
UgD4wfV4sbKyMqhDmRVFWQiDU1JSxD/5yc6dO6EXWubAgQN8LT09HT9avXq1
NsLx+BIZzKlXr16KY3Jf1bgBxkyU3rx5c4Uu+DI6qNrW4RG+qFhQLEFr+ca9
JlhRGdcSp0aT2giHpZsgQPGaNlCzZs3w8HCx9cCan9o+omgNVJ5MrWPHjqKh
4DrIHC7yKrGiWyE38/vybIHH4V8zb2Z5sEHnEsudO3fOxuNr4I0WLVroDU5y
R3qBQN1GY4DBMjIy/LEkyYyKiTVRHTp0cHvYvhY8OOmqXYfu2lUazwjXub4Y
i1YlWiP+VLbDwwAELcqrVOFJ+FOZOD58+LAgT9diSbJIE6ZNm5aXl4eW6c1V
efUSGb/CFxULvCVoLd9jr4lV6MraUaoaGxvr1XZRr1BNVKyiogI5Vt7KIYYR
aCivFh7QyPPnzw/wYSAeh3+livkDtDDRnV/feaSCmJGxvGzbACbfLwb9kmWY
fDkX+j5ixAi7SMOu0gjgCcJd1zKJQyFcT7nftGkTGRNRCkHIiRMnlixZosyb
0NdE+9ZeEeLtS2T8CiK6+Ph4yye/BdgStJZv3GsAdSNlVs4lIPlq0KCB5Vcn
eER1UDFxlBbarbwi0/jcZj2cP38eHQzka8TNDP9KFfMTCGhxroC9AWHjxo0/
//nP/XHsp0kVw7rmzp2r99YY1TeJAO16M7hdpYnTombOnKny0O3bt0dHR4sR
jI8//rhTp05t27bFgxYuXHj58mVImCtiEYU44dntYVMe4e1LZPwNX2gqwJbg
1vKNe43kC7EQOkvfde3alfDef6cPVQcVEwPUyqHuYjoSKfcq4rp3715+fr7t
cxbGMB7+FZAq5ieIN69lZWUFIG7BK3v37u26Z81GmFQxhzMq7tmzp8eXRxN4
Dx061K63QdlVGtQBGWqHtih/ypQpY8eOzcvLI8LfsWNHu3bt6NlXX32VLoao
Z82alZqaOn/+fKphOWmy8BKZ6oyAWYKe5Rv3GhyOhA0ZMmTp0qWJiYkrVqzw
6xK16qBiYhmbsoyT5yUF7tu3L/xPGmty9Hjfvn2rVq0K8HlWZoZ/pYr5D9ht
XFycj2cieQQqmZubSxLhJ64zr2IOpxbwyMZOQX6B+9h1ZJktpVFhOE1vHtPh
9B0ieTGh8PXXX6v26fBzX3aaW3uJTDVHACzBo+Ub99o333xDshaAINMrFRMz
s0Q1VVVVNtYN2RrjhGgrdL9hw4YIPS1A4mxySQAJXeBfwmU8/EsqTVvhue3b
t5cq5idUVlYmJCT4uJ3ZAHjorl270tLS/PeibVSsbdu2hw4dwhk9rkqFfjds
2GCwIdfhXMi3cuVKuzTX99KoKrnP+vXrg3VoqrWXyFRz+NsSAmD5PoIWII84
efJkUVEReZAZFUMmiKaaODF8+HBfzqPT4tKlSwMGDJg9ezbWXlBQQJbavXt3
8tMTJ07YeBfbYTD8iw2sXbuW8C88PLxVq1ZlZWXBruwDCyx53bp1fkqU6FZ4
wK+OfPr06ZiYGNyqWbNmy5cv9/h9nHf//v33kUUR5u3duzeI535be4lM9Ydf
LSEAlu8jSKWTkpLCnejXr191eFUlyd3169eVM/0QCMsnUQcMAR7+lZCQsABr
L5GRkPjhIGDDvxISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS9wX+C+qTfd0=
     
     "], {{0, 48.}, {578., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{472.666666666666, Automatic},
   ImageSizeRaw->{578., 48.},
   PlotRange->{{0, 578.}, {0, 48.}}]], "Input",ExpressionUUID->
  "d5d371d9-1711-4024-b535-b2128c7881c2"],
 ", FieldNumber = 9"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7489658073325233`*^9, 3.7489658088329782`*^9}, {
   3.76753948945888*^9, 3.767539489458953*^9}, {3.767539865759437*^9, 
   3.767539866312311*^9}, 3.767630182643195*^9, {3.831821196455926*^9, 
   3.8318211967683525`*^9}, {3.831821242320073*^9, 3.8318212426793623`*^9}, {
   3.8318225494123125`*^9, 3.8318225497559814`*^9}, {3.8318295850741386`*^9, 
   3.8318296011964397`*^9}},ExpressionUUID->"5477656e-fc53-401b-9266-\
c5dc371a2630"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "9"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.8318296099419785`*^9},
 CellLabel->
  "In[371]:=",ExpressionUUID->"bceb44a6-b8f4-40e5-96ac-5d2939806024"],

Cell[BoxData[
 RowBox[{"Bt", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.768069030307136*^9, 3.7680899708648167`*^9, 3.8312204961938925`*^9, 
   3.831222243321303*^9, 3.8318058845740523`*^9, 3.831822441450431*^9, 
   3.8318225653102236`*^9, 3.831828156693031*^9, 3.831829612261064*^9, 
   3.8318296452854*^9, 3.8318398046188555`*^9, 3.832947517366648*^9, 
   3.8329618025170264`*^9, 3.8458268949265585`*^9, 3.8458524848642807`*^9, 
   3.845857095307755*^9, 3.8459196432173853`*^9, 3.8460065937081757`*^9, 
   3.846099905615307*^9, 3.8474704681338825`*^9, 3.851700653558427*^9, 
   3.853975468382416*^9, 3.8549774293293724`*^9, 3.854989281232976*^9, 
   3.8549999189540577`*^9, 3.855165268981662*^9, 3.8551823375813646`*^9, 
   3.8551858810867643`*^9, 3.855330660140374*^9, 3.8553398645544906`*^9, 
   3.855343202224319*^9, 3.8553440357855806`*^9, 3.855352763148481*^9, 
   3.8554496257083797`*^9, 3.855507626720614*^9, 3.855508424599015*^9, 
   3.855512912963078*^9, 3.8555333444967127`*^9, 3.855578938573386*^9, 
   3.855593310679145*^9, 3.855750623097951*^9},
 CellLabel->
  "Out[372]=",ExpressionUUID->"37340005-a4f6-4989-83fe-482f1344a0ff"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "I", " ", 
      RowBox[{
       RowBox[{"sigma", "[", "2", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
             RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", 
        RowBox[{
         RowBox[{"\[Gamma]5down", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"F", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
     " ", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.831822462033601*^9, 3.8318224859948907`*^9}, {3.8318296166470056`*^9, 
   3.831829639985794*^9}},
 CellLabel->
  "In[373]:=",ExpressionUUID->"1bd15189-6d9e-4467-a64e-74a0938856a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[374]:=",ExpressionUUID->"cc3e4894-0b82-474b-b5ed-03d0f94692ae"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.7680690306715517`*^9, 3.768089971155608*^9, 
   3.8312204962648444`*^9, 3.8312222435342956`*^9, 3.8318058846787615`*^9, 
   3.831822565419407*^9, 3.831828156755523*^9, 3.831829645388474*^9, 
   3.831839804667283*^9, 3.8329475174199424`*^9, 3.8329618025610414`*^9, 
   3.845826894973423*^9, 3.845852484902076*^9, 3.845857095352345*^9, 
   3.8459196432955227`*^9, 3.8460065937644815`*^9, 3.8460999056469655`*^9, 
   3.847470468199115*^9, 3.8517006536365366`*^9, 3.853975468436796*^9, 
   3.8549774293918915`*^9, 3.854989281288789*^9, 3.854999919008943*^9, 
   3.85516526904412*^9, 3.8551823376750927`*^9, 3.855185881137875*^9, 
   3.855330660202846*^9, 3.855339864616971*^9, 3.8553432023180213`*^9, 
   3.855344035827812*^9, 3.855352763187483*^9, 3.855449625758594*^9, 
   3.855507626779295*^9, 3.855508424648511*^9, 3.855512913014135*^9, 
   3.855533344605226*^9, 3.855578938620219*^9, 3.85559331070586*^9, 
   3.8557506231391883`*^9},
 CellLabel->
  "Out[374]=",ExpressionUUID->"94bfb80c-3270-4809-affd-8bf83ae2cd43"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[375]:=",ExpressionUUID->"15b859de-eab0-45dd-9e01-08d32d49f64c"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQtUVVX+xx3NwXHyESJKYQ1oIQyWWkqNpiBqIpIiajpYooKIipIgSL7w
Ub4gMFNM1KQydQgfja9V6ThKTU0uRS3NlY3NrJpxmkZdlqtmVYv/J/aa8z+d
c8+55557Lg9nf9fSdbn3PPbj9/t9v7+999knZNKskVOaNmnSJLsF/42cmBcz
e/bE/KS2/DF6ZnZG+sy01LiZOWnpabMfnNSMLx/gXxDH//i5RkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkLCMq5fv15RUTFt2rTJkyeXl5d//fXX
mgOuXLmycePGy5cv3xz3lZCQkJBwED/88MPevXvvu+++vn37jh8/Pioqqnnz
5nfddVdZWdk333zDAd99992+ffuio6M3b978/fffN/b7SkhISEg4C4L2smXL
RowY8cEHHyhfnjt3Ljk5mcDu5+cXFhYWGBgYExNz4sQJo4tACqWlpV26dDl5
8mRd3lfCCDCvoGMJCQehUXQ4vtR4DQ1VVVWhoaHl5eV1fN8bN25w62+//Vb/
08WLF0kHiouL3333XbcGs3///iVLlly9erWO7yuhwaVLl6ZPnz5y5Mj4+PiI
iIiFCxdeuXLF04sYWaMNzSBx0+Crr7565JFHunXrNn78+KlTpw4bNqx3796n
Tp2q73JJ/AQffvhhbm7uRx99VN8FkWjE+OKLL+CR6upq8efRo0cDAgJI9PQz
UOYwsUZPNYPETYPr169DJS1a/PjI96233vrYY4+phxQkJCRuGmzfvr1nz56H
Dx8Wf/7nP/9JSUn55S9/+cYbb9RvwSRuAkAl2dnZn3322XfffVffZWmsuHjx
4vLlyxctWlRQUHDkyJH6Lk4Dwueff75gwYLU1NTBgwcjZcWX3377bXl5+cJa
rF+/nry4fgvZ6HD27FnyCxsnvvzyy82bN58/f/4PP/xQUzsetXjx4mbNmm3e
vFkcALm8//77Pp1GIQPauHHjolpw3xs3bvjuXhI28I9//OPcuXM2TlSoxOiA
L7/8EtP1omiNAF4Gt9dff71t27ZxcXEjR4589dVXnS0b3DR79uxhw4bt3LlT
RIDGgitXruTk5JDk/v3vf4+MjKRtRfmJHnwePnz4b37zm5CQkL/97W/1XdJG
AxoQOpgxYwZua+N05CKyR5mB4s/JkyeTlbz55pvq68+aNevatWsur2BkjS41
g0sQqcLDw6OiohITE/Pz8z2tCDe9fPkysU5zIiTo6TBdHeP7778/ePDgX/7y
l/ouiBnw1nHjxp05c8bGuYJKyHlR1E8++eTWrVs1fURczcrK4vvGFcc8gpfB
DSp54IEH8BGXv1ZXV0+cOPExA6SkpHBr2h9f0J+L48+dOxcJypH4r8tpaB+B
7n7ppZewK5fFHjt2bHp6elFRkcn0zd69e7dv384HLLN9+/YlJSWaA/7whz/c
d999Rq1Nu2VmZk62gDlz5jRqPiILQLBZ8a/f//73WCnU7Mh9T58+ffvttxPS
1doJflm6dGlubq7e2Iys0UgzuARucv/991MRj4pKCRF7AwcO9Pf379q1a//+
/Tt37jxgwICqqirxa1pa2muvvebRNRXQ/qRI/fr162MZffv2pSPI4KzfBb5u
06ZNaWmpvULWAXCihIQE26Od9MKIESNgE8wAWudDbGysxjGRAUlJSUQGJ8r7
//jkk0+IVHSK9R58+OGHkWT6NSfQH8ZAfHMZ98aPH48LkC8YaS0F5sHNCOZU
cvXqVZiiuLj4rrvuatKkSY8ePSorK6tqcfTo0W3btlGjgIAAXIPvNUuS+HXf
vn2XLl3i16eeeqqOFyyhoHbv3o0K9fPzo+QE7bfeekuUHHvbsGHDo48++vOf
/zw+Pt5ciEJJt9122/HjxzXfm7c2IQuTW7x4ccuWLZs2bTpp0qSKiorX/wtI
iiYlDDZv3pyL29NR9Y63334bGd+tWzcEDIltTEwMbWIUh2Hthx56yKkR1H//
+990HzGZhEL/E326ZcsWzfdG1uhWM6jhKZVAbfQ7d+zSpcu6devUvg8VUoU9
e/ZAXnCivWEZ8M9//rNXr15PPPFEiWUsX76c8rz44osWb0Gx6VycCMVej5qc
AIg8GzRoELFX8xNyGsVLS9oOMtSLyyoTJdhJaGgoaYhm6oQ4QCS33VkuAU0H
BwdDAdZ7kNSbHtS3A9U/e/YsJkdIp79wz/3791f9F4cOHVqyZEmHDh2wN6SL
SVf6gkoESDogNRGQ9dNSGHNycvItt9xCV+rVYFlZWbt27d555x2PSuUUIJRO
nTpBGS5VH6VCJdK2NLLL06nstGnTfv3rX+u1tJXWJnLeeuutHTt2dGl7dOXa
tWvvueeev/71r5Yr1CAghpIwCaVeGDAxFhvIy8vTz1ZgFVOmTMnIyHCZvXoK
RGNqampcXJxR48MOmLTL0RgTazTSDGp4RCWEPtIN1AIRyeWiZVoPE2rWrBki
061QNALe9+CDD1J466fAttzRIpWINdJCj+EL9TgrferUKTrozjvv1HvT7373
O/jUweyeJAX2DAsL08yeUH3ojG51cIwFKiHCeDR4+Mc//pFT9FQiQG4SHR2N
4e3YsUP/K4GrdevWqCakoNH1fUolv/3tb42oRBR+zJgxOMXq1avVZCdWayMk
7A2Pew/UBfmUEZXU1GpRRDXR/t1339X/SgTAT0k/9THQSmuvWrWKRuvXr59R
oKiurkaafvnll9Zq01AAcZBSaRjw/Pnzv/rVr2hq/SMbx44dQ0S999573t+a
jkCxwEqiSS9fvqw3XYwNPTZnzhyNRjWxRhPNoIZ1KiHCkxzRGoWFhUbhl+JR
SCzkySeftC2nfU0lH3/8MZqB7qacSUlJtsXAp59+inDyZkqIZjxx4oS+u6kO
LkaqZTtjovGfeeYZ+kshDtKcgQMHot714fr9998nzXRw3aDjVPLRRx8FBQWh
kF0qWByH3qc3c3NzjayuHqmkpna5/h133IHkU5Md8s/f3x9Vg8GvX7++LqdL
BNxSCXjhhReQ04gQvXQ8ffo09P3cc8/pz3Lb2lR25MiRNNrs2bONuoy+RuE0
rme3cVjcluinWb8kojH1jY2NVcdqvp86dWpCQoL3M8vYYVFRUUFBgdJi9B0p
vP5IjC0iIkJDdibWaKIZ1LBIJdT08ccf//HNdNnZ5hesrKxs1aqVGGGzB59S
CYXPz8/ftm0b9E118BHbSxYPHz7cp08fp2bK1Ni9e3doaKg3y6uwBLiyZ8+e
SjyniaKiogiMeplH5w4fPpxI6EiKXeMDKqmoqCDiGaW6IuGiN6dPn94wqYTv
09PTOSYlJUVx0pKSEvgFliQDxXTrfqDVCpUgRcLDwzlGnw8isMmpXWaCblub
y95zzz2kmTt37jQ6BoWzYMGCxrWUHWMgA6WjBwwYoHmajyj9s5/9jNwECap8
iY/g6WvWrPHyvrQSWV737t2zsrJycnL4n3CN6UL3+oNJNjG8rVu3qr80sUYT
zaCGFSoRVEuG3qtXL+K8+QWrqqrCwsLMZ+vM4VMqwciRAQQfmJee7dGjh9sa
GcFHVCJCU1xcnJdCBbosKytTTIKKd+zY0WiDDow5JCSEfM2bOypwlkrcproY
G9kWcUnjHWrUL5XU1I42U0LKqayMOnbsWGRkJFVD1dTLGJcVKqF2Y8eOpXYo
E3WCQE0zMjK6devmsnHctrbLiRIMft26dfiy+BPZ/Oc//9lOxeoPSvZBONLk
cThj06ZNCddqv0AjBQYG/ulPf/LyvlxHjNir0bVrV/3Me03tchGxkaZaOppY
o4lmUMMKlQgWo6hWltZTpBEjRnjzfL3vqIRSTZo0SQz8Qr44kUYkeAQfUQkO
iGBbunSplzIVx3z66aefeuqpgwcPPvvss/QyusIo78CYAwICnHp0wlkqwbD7
9+9PHHaZ6lKjzMxMHGfQoEEmmw7VO5VgdW3atNHUggzR5MEfX8MKlWCEmCK1
QzzjKXQQIRF3o9j016xZs1ySu9vWdjlRcurUqdmzZ9f9QJ+zQKZizJrcn2ac
N28eVVYPC9B0qCOc3dwGMKo33ngjLS0NL7j/p+jdu3dBQYGngwlcMDU1Va+i
XVqjuWZQwy2VUE5qoWkEExBAiF3ehEEfUQlF2rRpE34hjF/oonbt2tneTsQ2
lWBszzzzTEpKSnR0NNXUtNWhQ4fQAJWVlUank/g/+uijLVu2pPzjxo0jIKh/
hS65phiq5coXLlyAIPbv32/ed2LAITs725FVqc5Syfnz54OCghBv+lQXupw/
fz7xeejQoeZLfeqdSugIqsBhS5Ys8agMvoMVKqmpHXInf4cHjx8/Pn36dFTl
e++9R3iJiYkxkmHmra1MlKjtDRmATi4uLvayUg0TeF+vXr00S0bJ8rBb8zH2
jz/+GI3EiW3btu3cufMtt9zCZ+KDoBLiD3mcDZ9dvXq1v7+/yUJri5pBDbdU
Qj4eHBwsXKBuhnN9RCU0DraqmDfNSI+0atWKIGavnPaoRIxqIk35kJWVFRIS
ouECbIOCGe27uHv3bowK1+7QoQNsIlJptbrYtWsXjOlpT4npBozWkQdLnaUS
kT+SkqtTXT7zPaoMvbR161a3wqzeqYTWIAhz2MyZMz0qg+9gkUpoXiIYxoYg
OX36NHluenr6888/bzLyYN7aQrfQFPwfGxs7YMAAQlDr1q1xxqNHj1ovP+wz
ePBgfKGJZXAw/mJvcxJvsGPHDj8/P9hEHS5w2+7du48ZM8bIehFROAUMcuDA
AeHR1dXVXbp0od1sj6UIEF1pcKOVNpixRc2ghlsqEWO8CGDMw3bJPYIvqITG
IcFUD+DgR3feeSf9a6L/zWGPSs6ePTt37twbtYiPj9ekRVA/OT7c7TIOc254
eHheXp7wBSpFOCUawD7iALyb020sxRcPR3gzc6SGg1RCg6BdCQI4nfIQNAld
YmIidouoowWsDInUO5VQNUElOTk5HpXBd7BIJbhVs2bN1LtwuIV5a/Mr8SQg
IIAE/Ny5cySb5DtTp06NjIz0dLgPG6uqqjpuGRyMzq/jFQ60A4KH+K9ZSIOf
hoaGEqtdmg2+DFF26tRJ894WEgq6DLP3pkgYNsT9yiuvGB1gUTOoYU4lODKW
j/17M6fgEmR8RUVFKLQVK1ZolLAvqAS1I2bblW8uX76MtTdt2nTjxo2eF/9H
2KASbHjNmjWCvPCgoKAgiq3uKYxqwoQJERER+ssSMGku9Uy6AFoRYSNmyvbs
2fPss8/a8BQxXUhg0aRIJjh58uSCBQs4a+/evZo7Okgl165d69evn5HvYLdw
cf/+/d0aZ71TCTGT4Mlh5KQelcF3sEglBBPEPLmw9XdVmLc2wVBk02rLf+ed
d7ClhjBRgitt2LBh/vz586yhoKDA5XM3AsSc5ORkVKv+GKEujBaTUAY0fGFh
oca5ysvLSRLXrl3rTR3JR2Bzgok3F9HAnEpwk3HjxtHveKuzi0y++eabffv2
QcqjR4/W2I/jVILFEmyLi4vfUoEoce+991K1ZcuWmcdeepw49qoOCxcuvPvu
u0tLS/U/cXGXVM6Nzpw5Q0vygZgPkWkeW6PBk5KSUOD6V1pDPZmZmfphVVqS
73FzsTsKSbGVFtNAiP8OHTpcvHjR4ilYzsqVK1u2bKlfN+UglRCBO3bsCOe6
rJeyuGvs2LHmO5HWO5UIKd6g9v22QiW0cH5+vtgWxnrGatLaRk+UIEhsizpn
gQuQQVgfNyPgwyYuL4VtwDXh4eEu93QiP8Lj0Op6KiGgEQMR8Hp/JGKQJFrf
2cMlkMFY4wsvvODNRTRwSyViU4jExES3w9GERPS29YVtxEZaktxE873jVLJ5
8+aYmJjknwL3J3mkasRhkxklsQ1CdHS0ftsoQp8Y/9T/NGzYMPPXiUI0sDNB
UjPpj6MNHz68Z8+eereFKYymzgnm27dvR/YsXbrU3jp8WiA3N7d9+/YXLlyw
fta6detQ2soLdxQ4SCU7duzAVU2UDBXnAAzJ/O1R9U4l2DnRKTIy0hcPItmD
FSpBugwcOJDazZgxQ9RODKvC4LNmzTJaPW7S2p999llYWJh+4wK0U6N7sN0c
+FRJSUlUVJTRwh6xcQ0Nq48/RNE2bdqMGjVKI7MxtvHjx3s6qaTHgQMHWrdu
7VGMdQtzKhHzLxgSQsItlRAeMzIyrAcQgoC/v79+1ttZKqE8eLp+AISqTZky
harBlfYezfNmMTC1pisxFc3DvIK7CThul95prkYivHz5cvNNckyAMRMZMGzr
3UdRH3/88d69eysPAihwikrEzJGYXzCi+y1btiDSYDTzR5nql0quXbtGQCYJ
XbVqVcPZh9kKlSCnA2qhPOJB+U+fPk1ACA4ONsphTVpbZGdGW295BAIOKXy7
du1uswwCTnx8fB1wFq20bdu2QYMGqdkW89i5c6dy988//7xr164TJkzQm41Q
UE8//bTGWsSTAtiklysHEAPEH9vTxC7hdtp906ZNuKrJVjkKKioq8BSLK9M4
LCsry+VDNA5SCX20cOFCl7NL9JF44D02NtbesiXbVCIiJKYilgFQSPWLBtLT
0zt37uzR1DlRlLOys7NtD0Jy30mTJrld4q6GmGyCjvWO4BSViB1RTCYZCeME
cDoRg9Ezmhr1SyUYs1iE5siqBqfglkrQOWhgkik8RV01sWIEcjRaxWrS2mKi
hDTT9h59CnBhmA7b2GkZHIzgr4N9mA8dOgTbauyZ3s/MzFRsQMwDDhkyRL85
DCGLftFv4VtWVtaiRYsNGzZ4WbzS0tK2bds6svGXArdUcuHCBeytffv2Lp/B
Vx82depUjdMRIZ977rmJEyfy09y5c5ctW7Zr1y7Bs+KJS/x05syZ06ZNGz58
uDJ76yCViJUhRgYv5hOpvj2Kt00lsGdERAQ0KuI2BqPIA1oAKYLQ8mi7AJQP
cdibSTR6iuCgFwyUkGyFNiROFhcX5+XlKSNguCTWSBQlb+XX5ORkRaM6RSUI
1w4dOhhNlNTUztXSVpCy3uk08CmViPlEIyrh1rfffjs0rR8J9AZ4EBHem9dt
i0WMRlRCvTBF2pYu1lgFOX5oaOi8efOMMiyj1lYmSkzSzJsAZHAYg2YkhPoS
ZgmGCnGIvN7laDZXIIfS7FVCf3Xr1m3UqFFeTltTEqJxSEiIsyup3FIJ9126
dCm5ucn6CoIGv2q4BvOjobAc8QwycZvsprCwUPwqJkp69+4t4g/GHB4eLiKG
U1RCIjl69Ohjx44ZnSWySE9TAAW2qWT//v0tW7YkPhN5aCXcSl2A7du3E6Kt
L7ys+e8u1vYm3AVoK65Af6nH+k6dOoWdr1mzBhsgcUtISFA/8LJu3To6VOxc
R0XS0tKUuW+nqETMgxhNlBCZ8SzEAGTndtM/31EJZRMPkRFyNSOlUDzp5y9+
8YuYmBiXUzkmWsstRONQfXtr9mpq+1cQsSZtpzePHDnyyCOPwDJz5szRK7GD
Bw9iCbt37za6slFrow3QpZiNW+pvvMANCWVGc/QoZzWHrl27ljCo1434EdqM
LlBIHP05dOhQfNCjoW+XEBOy3m/NpIGVjVNwFoIMJoe1a/QJpSKAo8o0CwWx
bfxCPcSK5WN+yovsRcDEJsWffM+fL7/8ck0tlURFRZWUlHxqGWfOnIGV1FQC
g9NcLpdAKNi8ebN4vY7R84DmsE0lBCioRGSpJN0iViu/fvDBB1gXzGv9glVV
VV7uoUqgQzmrVZB4pQsQPS4UlJLBiT+VlWZi1h6JK9YSQyVhYWFvv/229R4U
WkJNJVSHGKv3vppa5bBy5crWrVvTjCtWrLBScV9QCfRHrkFgVAIFkblLLZB8
/v7+gYGBw4YNo2ouJ+PMtZZbiIeMSNk8fdUFjYlvUlSl2Nw3ODhYlJwPeCLl
h91c+oXYSgWvoV9ISMeMGVNQUKAJSprWJkogOTAwpa0gKUqOz1pfYNwooGxZ
ZgTN26NIq9u3b+/y1Qk4Gk6dmJi4ceNG0k88EdtwJPiLCRdvNh53CYs7A8OS
+Kx4eJ+gQcpQXl6O4oqOjp4/f75+mFqUduDAgUJPitkBZSheTJSoR+aJ6n5+
ftu2baupdTHo2OJKPAVEFSGTiEt9+/YVOww0qd1wYM+ePeqycfeioiJcRjFs
Dr733ns9egljjRdUQgqAJEDELl68OD8/X8POV69eJcOaMGGC9fiwadMmauSN
YVRUVHTs2FG9e15lZWWLFi2UZe3iydzU1FQxhiMmSpQhHTFwgeAUKTPXgQ09
7UGyEmEPBw4cwDaUHqRnxavWAB8IQZAIB+fl5VlPfHyXldiDW61lETQ4VuTU
ls5WQCiAH8XePtSCJsV38F/1MfZa+38QhEeCpBigcHkAsQLFAqc72MX79u3r
1KmTsxMlNR6++gr5hIrOyckhhkAofDaaOxPrlpW9Vjisf//+RBsxREbKPGDA
ALIGoSfFpv2ouMYlUbxZwUU70JUkIPr4zzerVq2KjIx0uaunHtjYlClTXAob
i4BbMzMzY2Njld7kGwJ1mzZtlKXdRDw6CM4Sf1ZXVyNrlXXpFBWFrHkXQ4NC
Q6MSc61lHSdOnEBF1OW8g5goUR6sQzwTQJDi6mMklVgHToQuqrOXRYqVq6NG
jTJ/DssG7L3b3S3wQaSjslHJ+fPnEb2kVMScsrKyf/3rX/369VOeUcLkwsLC
UOmN6zU3JKdDhw71xX4+586dQ4Fb3BuBJiU39DSlUkMIS/WsvXj4XT0xt2HD
BoQodzlSCyjmjjvuUF7V+tprr7Vq1cpoB/uGgIZGJeZayyI4l34xemGuj3Dw
4EEyfWWm/uLFi1hCcnKy+hhJJdZBvk/Xr1+/vm5uh3yFuZSZBQfhIyq5cOEC
wVA8Bw39zZgxw8/Pb1ctCDgiUonhEXwnKyure/fuHj0c10Dgo/fywLDz5s1L
SkqyMjT65ptvxsTEeLPKtLS09KGHHtIEzC1btnTu3FnMNH3yySc9evSA7i9d
ulRQUIA1wl+YjSA7BFWvXr3S0tIc1zkOoqFRibnWsmhX9EtOTo43L3SwgcLC
QoqqrPHYu3evGAhVHyOpxCPs2bOnb9++dfC6AeyKdDIjI8MXG9T4iErQS8Qi
QtyiRYugDOiDXJ4smIqIcRuIIyEhQewY9sQTT0ir04AG6dOnDwHH/DDaeeXK
lRMnTrQ9lEp3PPzww/rloNevXycRpsvy8/PhfVRBREREZmZmUVER9+K+8MiQ
IUOWLVuWmJhIGRp4RtnQqMRca1m5AmfhPiYLFH0BMeeurF/FElJTU/UvTZNU
4hEI7Lm5uTiar18ZeeDAgcGDBzu7BliBj6hEgHCEehFBBqtD06ojHu2GrPL+
SaWbFXRKXFyc+VwM7ZmSkqKZ9LQOumDu3LnZ2dlGKgWiodeUQRiNcPrqq69I
WxrFK1NtUwm5WGVlJad7tLbZLdxqLbeg2evlgUckNCmqGNsnJQkODharZWpq
s+nq6urDhw8XFxcjPCSVWId4Kx/SwnebIXz44YcjRozwZiTcHFBJ9+7dyayP
HDly8uTJRhEW/keAY65fv97kEcua2hWzK1assL6drxoY7UsvvYQBm7x8sLHD
y+B29OjRu+++OzAwMCgoiHZ2vHjmWqth4uuvv87JyZkwYcKCBQvi4+PVD0BR
naSkJLHRSnR0tC+yuZsYuGFhYaGPUga04vPPP2/vqQeL+OKLL4YMGRJYi4SE
BPPdJyTqGETCHTt2+GKOrKZ2jmP16tU3MY/UyODmM5As1+OrhCUkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQaDv4PIK2YqQ==
     
     "], {{0, 52.}, {537., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{434.99999999999983`, Automatic},
   ImageSizeRaw->{537., 52.},
   PlotRange->{{0, 537.}, {0, 52.}}]], "Input",ExpressionUUID->
  "7cacd335-68f7-4264-97bc-473249adf1d7"],
 ", FieldNumber = 10 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, {
   3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 
   3.746834847884678*^9}, {3.748965810890964*^9, 3.748965814377738*^9}, {
   3.767539490016307*^9, 3.767539490016355*^9}, {3.767539868227397*^9, 
   3.767539868502643*^9}, 3.7676319654924107`*^9, {3.767632095235854*^9, 
   3.7676320957494793`*^9}, {3.767632575145319*^9, 3.767632575616911*^9}, {
   3.7676326265689507`*^9, 3.767632627041649*^9}, {3.8318212518249097`*^9, 
   3.831821252188012*^9}, {3.8318228708324413`*^9, 3.8318228712233443`*^9}, {
   3.8318229934948907`*^9, 3.8318229938698034`*^9}, {3.8318296756470013`*^9, 
   3.8318296817597713`*^9}},ExpressionUUID->"7db37e87-4608-4214-8545-\
560b6d813a8c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "10"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.8318296865854692`*^9, 3.8318296866635475`*^9}},
 CellLabel->
  "In[376]:=",ExpressionUUID->"a09ace34-507c-44a8-997b-a6f55c5e9e8d"],

Cell[BoxData[
 RowBox[{"Ft", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.768069030865663*^9, 3.7680899713072767`*^9, 3.8312204963547964`*^9, 
   3.831222243593419*^9, 3.8318058847436376`*^9, 3.831822575963576*^9, {
   3.8318230708206897`*^9, 3.8318231602155137`*^9}, 3.8318281567880435`*^9, 
   3.8318297321651335`*^9, 3.831839804711166*^9, 3.832947517451187*^9, 
   3.8329618026009345`*^9, 3.845826895022812*^9, 3.845852484913772*^9, 
   3.8458570953924303`*^9, 3.8459196433892217`*^9, 3.8460065938129883`*^9, 
   3.8460999056781774`*^9, 3.84747046826106*^9, 3.851700653683372*^9, 
   3.853975468449112*^9, 3.8549774294750433`*^9, 3.854989281336274*^9, 
   3.854999919055805*^9, 3.855165269106644*^9, 3.8551823377375784`*^9, 
   3.855185881181161*^9, 3.8553306602653294`*^9, 3.855339864663845*^9, 
   3.8553432024274035`*^9, 3.8553440358902698`*^9, 3.855352763232202*^9, 
   3.8554496258021307`*^9, 3.855507626826109*^9, 3.855508424691882*^9, 
   3.8555129130640507`*^9, 3.855533344696505*^9, 3.855578938667107*^9, 
   3.8555933107232804`*^9, 3.855750623186053*^9},
 CellLabel->
  "Out[377]=",ExpressionUUID->"e0c24668-212c-4970-9144-815dfdf9bf91"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{
       RowBox[{"sigma", "[", "2", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Cmetric", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"Lap", "[", 
          RowBox[{"A", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
        "+", 
        RowBox[{"I", " ", 
         RowBox[{"\[Gamma]5down", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"Lap", "[", 
          RowBox[{"B", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}]}], 
       ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.8318230045845013`*^9, 3.8318230418415136`*^9}, {3.8318230769164424`*^9, 
   3.831823077510027*^9}, {3.831823118098921*^9, 3.831823120530302*^9}, {
   3.831829695246733*^9, 3.8318297200125055`*^9}},
 CellLabel->
  "In[378]:=",ExpressionUUID->"81443141-03b6-4788-a372-24b3e191d633"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, 3.8318230936977916`*^9, {3.831823127148842*^9, 
   3.8318231272894325`*^9}},
 CellLabel->
  "In[379]:=",ExpressionUUID->"a5dccd62-31d5-4a4c-a418-1e9a40a70dfb"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.768069031427635*^9, 3.7680899716064796`*^9, 3.8312204964988613`*^9, 
   3.831222243766441*^9, 3.831805884875602*^9, {3.8318230710886497`*^9, 
   3.8318231603404846`*^9}, 3.831828156855615*^9, 3.8318297322588587`*^9, 
   3.8318398047787294`*^9, 3.832947517498049*^9, 3.8329618026587796`*^9, 
   3.845826895085298*^9, 3.845852484968598*^9, 3.845857095439055*^9, 
   3.8459196434829226`*^9, 3.846006593909643*^9, 3.8460999057406626`*^9, 
   3.8474704683221035`*^9, 3.851700653761506*^9, 3.853975468521782*^9, 
   3.8549774295505548`*^9, 3.8549892814100237`*^9, 3.8549999191651554`*^9, 
   3.8551652691847115`*^9, 3.855182337815685*^9, 3.8551858812546663`*^9, 
   3.8553306603590326`*^9, 3.855339864757536*^9, 3.8553432025594177`*^9, 
   3.8553440359527874`*^9, 3.855352763280871*^9, 3.855449625874126*^9, 
   3.855507626903162*^9, 3.855508424762364*^9, 3.8555129131466703`*^9, 
   3.8555333448526497`*^9, 3.8555789387255616`*^9, 3.855593310788604*^9, 
   3.8557506232485375`*^9},
 CellLabel->
  "Out[379]=",ExpressionUUID->"a3e3b110-6a49-4e41-b172-0ec0ec8fd5a7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[380]:=",ExpressionUUID->"6d9d658f-8cf9-4d6d-8206-3580251216cc"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJztnQdQFdf794k9FkQE7BWwa8SGxoIVRUQBu9iiWBAVBAQrir0hilgBW6Ji
L9HE0dhbDIxYwDIixIyVn9GM6JiMce77fTmTnf3v7l327u69gD6fmWRk771n
z559zvM8391T6owJ8h1fxMrKKrQU/uf7XUSXkJDvZva3wR8Dp4YGTJg6zt9j
ati4CeNC2o4pioMB//+/YlZW///fBoIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIwGDIzM9etWzdy5MiQkJALFy58+vRJ8IXbt2/v2rXr48eP
+p737du3+/fvnzRp0tixY3fs2PHu3TvBF16/fr1ly5YXL17oe16CIAiCIAiC
IAiTyMnJmTdvXt26dfv27Tto0CBHR0crK6tu3bpdvnyZCag3b94sXboUR27c
uCFZAr62ceNGJycnY18w9qujR49+8803HTp0GD58uKura/HixWvVqhUfH//h
wwd8ATLt+PHjnTt3TkxM/Pfff3W5WIIgCIIgCIIgCBU8fvx44MCBM2fOhD5i
RyBYjh071rJlSwgoW1vb+vXrV6xYMTg4ODs7W6acEydOLFiwgCskTyCOFi1a
5O3tnZaWxh28e/eun58fBFTJkiVxXgcHhy5duqSkpKi+usILpCLTj4RqxHJb
93emBFEYEXQN6hcEQYj5+++/87sKnzOfPn3KycnJ71oUbi5fvly3bt0dO3ZY
+LxPnjy5efOm+DiC6ZUrV9asWZOQkPD777/rft7379/jkiU7ZkZGRmJiYkxM
zK+//voFvmzKysoKDAz09fX19PRs1KhRZGTk69evTSoBjbZkyZIGDRqgJQUf
vX37dvDgwX369ME/9KtyAWXVqlXVqlXz8fEJCAgYOnRo8+bNN2zYIB6JShBf
FKmpqTVr1uzSpYu/v//YsWPZS/+//vorv+tFEESBAOnfvXv3Zs+eXadOHf7D
beXIJCFIOBs2bIgE70uOxY8ePYqIiAjNpXPnzhMnTnz+/LlJJVCax0hPTw8P
D79//35+V4TIT7Kzs6GbODF7/vx5Ozs7Pz8/8RQwGeCR9u3bt2zZMvEDjQ8f
PqxcuXLPnj2fvSZFI+BKy5Ur99VXXxUrVqx169YHDx787K+aIPIkJSWlWrVq
6BRWVlbVq1efP3++8tECBEF83iAJCQgIQB4yaNCgChUq3L59W0UhMklIZmYm
VMOtW7f0qGyh5PXr13379o2Li2MJCVRqjRo1fHx8THoDVSjSPMi6pUuXzps3
D1Hm7Nmz+VuZAsXTp0/nzp3r7+/v7u4O9ccO/v333zt27IjMZcOGDV/aG0lc
fnJy8j///KPit7D2Fi1anDlzhv2JQkaPHl2mTJlTp06xI69evbpz545udZUC
Mm3Lli3zcklMTHz//r1ZTyeP6sZk8++OHTsG7yH5dAtlomQaFUkUUuAH5AdR
GyM1NRVdG/ZvyXF6SA+ePXtmsdMVBBAcly9fjiCI1j5x4sTn/YxdS9RTggUC
n/mwfAKp/XbAXFFnSelUqO+FXmhp4aysrJo1a7Zs2ZI5cLRnq1atateuzY3v
KggtrEsajwTMxsbGw8PD19d39+7duleykALtHBYWlpaWhpjYpEkTtDCLDki2
8e9+/fp9++23derU+eOPPxQWiJ8/f/4cBQqGqME+8zeBV87bt2+Dg4O3bt2q
LlB+//33xYsXnzNnDvs5/h8VFVW0aFFIGPYFGDDK3759u/kCMW5Bw4YNXV1d
fXx8Zs6cmY/vfLU0JiedZL6A1g4KCiqkQ5XQRw4dOmTS60jLgIQ8MzPz0aNH
grAC06U5NbrATHfy5Mnq+iaTTha+F+np6cOGDbPAo2Y0Ds4SFxe3cOFCtFI+
Ls368OHDkSNHIg4iKcI/PmPj1xj1lGCBwMcBm4HlwH7WrVsH4aD9jBZOIHW5
HTLSyZL3wlAg00KNLYxf3bx588GDB+xPxMpatWr16NGD8+cWbmFJVKfxfGD5
UIXGxiKiEb777rvBRhg9ejQqcObMGWP69OzZsyEhIX369Nm7d68lG+rNmzdI
jI1VG2EOtdq5c+eff/5prISjR4/u2bPHkLtuub29/Zo1awRfOHfu3DfffJNn
m8Ngtm3b1rVr14oVKzZq1Khbt264WQMGDPjtt9/wKTLbMWPGyOTAFgBtpUR0
Q6fPmDEDt1v10x6E14yMDG4KGP4cO3ZsmTJlTp8+zX0Hjr1///5ofMkKrF+/
ftKkSVA9gsGfFy5cwA319vaeMmWK/LXAzlu2bPnjjz+quwS90NiYTDr98MMP
aBB4oWXLlomHBKN5ER/Dw8P1nQz74cMHpKadOnVqr5gOHTrARyUnJys8xb//
/hsREeHg4FBwhvhCLkHmo/+iVrCfdu3aIWOcMGECc5sIfLC9x48fqyscwWXo
0KFoJeVN2rFjR4gL8TxBeBvcnSFDhkj6veHDh8PqkN4UZEGNvglrUf0SB9Jp
zpw5R44cmT59OkIAApD2cR2IFGhwrkq40YggV69e5X8H4aBv376qbUAJKBwi
BeE4Pj7+wIEDuEBHR8fFixere7mMZoEljBs3bmxe+Pv7I82WdCNwRLAoVKnQ
SSeLRT0AP9amTRsu6KBMFLh69Wq+ZcoEPr2AnSBSwEpXrFhx+PDh6OhoJH4I
phqne8snkPqiy+0wyEong6okBMc3bdoUFBTUuXNnxOU8c90Cmxbq1cIMFDJ3
7txq1aohQ+MfN3eax0AfDwsLQ2CtV69ew4YNuZFjfBSm8ZLIWz7ODmUUExMD
5WhlZeXi4nLw4MHLuZw/f37Xrl2I4HZ2dvDh4tkWSOdwF7Kzs9msLkuuZwJP
npKSsmPHjp49e6La1tbWa9euvXjxIqp96dIlBFZEHLQY8nbEWflEAnETXQy/
EhzPs81Rh3379tWtW9fJyQndip/n3Lp1i1kO7myNGjUePnyo8XpVAKtG+o08
EFcBbVi5cmWEUZnQj8Z0d3d/+fKlXhVAI1StWlU8CBZNjeTw7t27gu/v378f
OQOMCqaImnPHr1+/PmvWLPgiWHKlSpVwi2VOajHpBOcJy2ndujWSHPGn2hsT
gQ+2jWuHmSEONm7c+MSJE4Lv/Pnnn56enlu3blV9FjGoMy4KKdwaxSBIoQsg
Uig8BZJSBJTy5csLstN8Ad0WLqJs2bK9evU6efIklyLiHwiRsN4bN25ASCIh
UT088vTp09WrV4fkUd6kiNFoUmguQVHwwHfu3EFPgUuH34ONwSou/wfqv2DB
AvQR9DuYZX499EO60qNHj9DQUHGLIVZClmoZ9oPbAftE/3r//j18hZubG5yD
ltCD38JX4xZzYQKWDPtE1+N/DS2/aNGiUaNGmelVKfoyFIqgZZKTk52dnXGB
6pQLfCzUE6IzTMXGxgZ5NSLjsVwQm7Zv3x4VFdW8eXN82r17d8nrKlDSSd7l
MvIl6iUmJtra2nIGA7NEf0cGIuiAxgKfLsA+V61aBVfMT4lhVEjXkVtqGW5q
SemkVxIiL50MJiYhaNsNGzYgHKBtAwMDIYJkFr8q4GmhXi0Mi5o2bRq8B6SB
ZEpm1jSPgaZOTU1dvXo18vxmzZpJmqj5pBMDJsEc7NixY8VOEu3s5+dXrFgx
aFV+kIKwOn78eFZWFloPV50vs7rgS1ExqE5x4+Ci4uLikBR16dLlyZMnkj/H
xUL/Ii8V+xb5NkechU8uXrw47EdynnJaWhqK/eqrr7p27Wr5CVM449SpU3G/
WD6AW/P9998jeiKaSD7rwE2EkRw6dEivCsBpI9tEYvP06VPBR2jzKVOmoPX4
toREaP78+WhtxHqEITQ+O46biIh/7949/BvqGPWXn/hpMemEFoZdwQASEhIE
H+nSmDBIzuuiEUaMGAE3JbZS+GGcKzMzU8u5+KCzt23bFt1K+U9wrzt27KhQ
OqHdEM3hakqVKpW/b2MNuTNu0McdHBxgdZLuC7IUJofaIm1WrUQgneAKTLpH
Fy5cwE/E0omB+NK5c2fYXlJSkvhT9B1ra2tU+8qVK+oqrJGVK1eixQYOHCgY
kYL+Pn78+ICAAC0PPJHh8zNh3Di4NfFTBeUgNNSvXx9unBkAe1eOQCweLAdX
hq6xd+9e1ecyBkwrNjYWhYsThnXr1uECVYtNXBS0D26Hl5eX5AAh9Ec4akhC
SXFUoKSTjMvlvmD5qIeWQSyDc+YM5uDBgzjpTz/9JP6mOPDpBXJI1AHWIuhc
CJfQj1rSM4tJJx2TkDylk0lJyO+//75w4cJ3ufTMxdjzkwKeFuqe5uESoqOj
q1WrBkUm3jPCfGken1OnTkE6QaFIhhULSKdhw4YZk06G3GA9aNCgokWLIiwK
UghIyIoVK+bXA+QffvgBhgrpJCmOUNXNmzeXKFEC1i75oAAHEbCGDh0qbnaZ
NoeT9PDwQLFoDWMxBYYUGhqKJp05c6blRSWuevr06QIXnZiYiLaqW7cuN06V
gVZCuOnevbte43zgWPz9/dFExiw2OTkZcptbPoLjw4cPvr6+HTp0ELsd3KAh
Q4bgZsmvdm7JAXtIhpF7C7qD7o3JWLFiRcmSJcVODx3T3d0d91ovGzO3dILP
hG04OzvDmSh/USXm5MmTkI1aXqxcvHixevXqNWvWlJEYaI0WLVqULl0ap1N9
It2l0/3796tUqVKpUiXJJ9gwPNwOeJ7w8PB8eZyFCly7dk38ygkN7uTkJHib
o5EbN24gTYUiU53bw88jxeJEaHZ2NhyIZCCGsaEburq66j4FCW3Vu3dv3LK5
c+cKTBoexs7OzlhczhMmN1Cy+CUIR0xMDFyWpKnoKJ1wjRs3bhSEHlORdLkc
+RL12DR5aE9mMGw0cu3atZGmir9sLPBpZ/369UjI4boFkxSQrPbq1Uvy2bJC
LCOd9I2beUong6okBOaHeMHNixdg7rRQYw8yU2YCA+vXrx90kPixj/nSPA5c
FDxbkSJF4uLiJL+Q79LJkDtVFuoSKomfacAzQ5Xw54hZGHnpZMi9sz4+Pmhb
ydhx69YtKNzY2FjxD421OS55+PDhaKuwsDD5x6cHDx60trbG/025IB2AQXp7
eyPNFlzvs2fPGjVqBAe7atUq/nE0XbNmzdatW6fL2dEm6KEBAQGsh8KfiG0P
2grdDcYmaMDU1FQkhKie+E6xygcGBsoH8Xyf66RLY54/fx6O5fjx49wRpDfQ
GpJj8zZs2ICW0WsWhlmlE3oTktKUlJR27dqhByERVVdJBB2EnilTpqjO6CA6
4DTKlSsn/8IC5UPoIe/SMl9Ad+m0f/9+BGi0uWQQ5LJldJZ8X9+VAy05ceJE
Ly8vLQPeYJyIubNnz+b8BlIjRG0cVP0mC0ZYuXJlToRCiyHGGQvEaWlpMIZ9
+/apO5cx4O6QYCxZskTsKp8+fdqgQQNEInV67eHDh4ja/GVOxWzatAmiw1jF
9JJO0KQwS/O9aM6vqMcMBk6Y/YlECJfp6ekp+Y7PWODTDnxFVFTUtWvXBMdx
4yZMmFC6dGnxWzCFWEY66ZuEKJFOKpIQNAXKlLRhC6SFGnuQXi0MlwJr5xJj
tNKcOXNw4cj6BN80X5rHARXWt29fmcH/BUE6sT6I74wePZp7sIMKI3JBCyOo
oT0tv31zntIJHD58uFSpUs7OzuIHQTt27EBfkHzsLNnmbCcvCLHWrVvnOV4U
MrxJkyYan7OpAEla9erVUclly5bxjRN3By4ddxB9nP/977//HuFV3Q4IAmBI
0dHR8+fP5545IyhLZqdr166tU6cOf7gvqrpgwYKqVatCpKPpBPLn0qVLuFOo
qnwF8l066dKYW7ZssbOz4zI0tMzcuXPLli3LveDmg3PhjNu3b9dyRg7zSSc2
WyQ+Ph5JBXvGHhoaqi631yidXr9+3a1bN1QAaaF8BdDy8+bNg//XshqSvtIJ
FZ4+fToqz40xE4Dug04Er6iXSegCLh+iA71eSyHwpfBskyZN4gLNxYsXoX9V
v9lHOZBdrq6u3LP6xMREGxsb+B/cAv76NgwkAx4eHoMHD7bYvgBwaLAEe3t7
dXEEGVrJkiUdHR2NPVqBhSObMrZ8QSGSTvkV9RISEmAw3DR5plWRRiIJhBsX
Z9HiwGdW0C+QiEI5QiCrK8Ey0knHJMSgTDoZTExC2FubWrVqiT25ZdJCjT1I
lxbGlYaEhPDfYnPSCS0g/r6Z0jwOuDU4N5knSwVBOhlyJxYhIuOquZUx1qxZ
g9uBP5HmIXey/MRkJdKJvWYtWrQoXBn/OK40ICCgadOmyueXsTS1RIkSbHU+
eVDCgAEDLP8+Dk4b0RZ3EyYqCCLe3t5sGgJ3kI3tR+qrfWdJFLVixYrmzZsH
BweHhYXh/yNGjIDtSS7qe+3aNagD/mKnyE7d3d2RySCzhY8SbA0QExPj4OCQ
534B+Sud9GrMu3fvhoeHc+8U4DO//fZbNKZkAo9zdejQAYmBLk8yzSedrl+/
PmbMGNxctBKSMZbMqKuzFumEHrF+/fpixYo5Ozsbe63D//L8+fMRFLR4Nn2l
E/yJm5sbnJ6kC0J7olnQtj169FA45sEy7N+/H/1X/FTcJKBcZs2alZqayv6E
GSBqw/mrXqoRUQM/58aH4B6xic/4x8KFC8WOC2aA40gGNK5aZgzcXPguRFXc
XDZLFCeqXbs20gluq3HlcBOdBIuc3Lt3Dx2cE5u4KeIZqYxCJJ3yJeqxcqyt
rdkyU2jkyZMno2/u3bsX9xEyXOw3xIFPR3BPf/31140bN0IowWBwdjgEPz8/
XH50dLS6Mi0gnXRMQhi48EWLFuXZa0xKQuB88FGvXr3EUdgyaaGWHqRjC+/Y
scPDw4NzgGioTp06wUelpaWJv2ymNI/j5MmTZcqUkUkkCoh0Qq8sX748P2pf
vHgRCnr69OlohHwZs6dEOnGD/0eOHIkrRUISHx+PfA8/gbMNCgqSfGIpbnP8
dty4cSindevWr169yrNuGRkZyJryZZ0rGPaVK1cE5oRLbtOmDXvYzh2EWke2
4O/vLx8c8empU6dw+UjbWv5fUCbSS5wL2VHJkiWt/i8NGjSQjMssaeG/d8A/
EPWgAkJCQnbt2sVvN7aMCeRDnh3f3NIJtTpy5AgkQJ8+fZCjCmw+z8ZMTk5G
GlO6dOmyZcsOHTpU8BoUV4eUBr4FZzl69Oj48eMPHDiAvgZ3PWrUKGNdmA0q
c3Fx0WV1RDNJp5ycnIkTJ7LZ7lxG17NnT3Vvc7RIJ/Ro2KTC0ea4EfADGhfF
0lc6Ie+tUqUK4ot4LVYEd0gJ+MPevXubdRltSR48eBAYGIg4AnMVxD6087Rp
02S8NO4jTA7+tmjRokhCli5dKjAMpEBsuhmcKgwJ4venn35Cmtq+fXvx4qjK
S4NBoifa29sjvYyKikL9t27d2qhRI5S8YsUKyUEUBw8eREqm+3QVBJSIiAj4
LvhSmByiNgLT4cOHr1+/bmNjU6lSJRXvKSQnOrFHB3CwSkooCNJJ3uXy0THq
KXTUbGYcvgM7hKaeNGnSli1bYP+Qabh9kgmbOPDpAi4E9xSVwUUdOnQIiRnq
A/mAqIGQXaRIEeQ86kq2gHRSmIQg2d68eTPaFhFKkIQge2eDW2DzyEV79OiB
jP2rr75q2LChj4+PeBgnw6QkBN64Ro0a6J6CoiyWFmqRTjq2MLzimjVrYOrQ
UPCikC3NmjUzto6NvmkeKo8kEx0TJ8U30QdRFGwbDs3YFRUQ6YTgiJDNHuxw
B2EtMrLF3CiRTrjXXl5eqDbu1//+9z/ER8RThKSAgACYorHnh+I2v3//Pn6I
csTdp1CAKypXrhwCMT/ZQFqIzEF+1gmiNnwRW+HW0dGxWLFi+DfyB9anEDVg
uqYGAhbWUSx/7gNaFbdD3HHYCNipU6fmeRZzSye0IVJu1BmZW/ny5QUPD+Ub
E4kQGhD+HIkQgjLaEIqDr3fg4RMSEjjTQs/ChSQlJaH95e1t5cqVtra2uox2
MJN02rt376xZs7isJiYmBpfPHyhlElqkE1oYBmzJpdH1lU779u0rUaKEYI4t
/o3jSBGbNm26fft23WdS5AlCM/wqZB3+AbcpeAzIlkFAf5dcVAqfQlghAuK6
oAqhd/Bv/sIFcODz5s3jHiDjT2TIMNFr166J1Y3y0tCnli9fXrly5bS0NNwd
pMfsO0jOEU2M9bjU1FT0Yhiwpvb6v0BpIrHp2bMnP9ygrVBPZL8w1yZNmqjI
XSUnOqH+MB6F77AKgnSSd7lKfm5q1FPuqFNSUuB4N2zYgE9RJnu1h7ZCFDM2
eUEy8GmELeyGxJ5/o9ne07GxsdWrV//666/5M2dNwgLSKc8khD1LxIXgpuD/
VatWZQ9m69Spg3CP6kGuqnijbVISggog5xHPPrBYWqhFOunewjB41ASxBmFU
ZvSyjmkeioJeQ4BjvgsF4puwefgEmVtfQKQT4gszEtRZRU3MgRLphKuDjka1
2drvt27dQhY3YcKEuLg4mbcY4jZn4xUFe7xqBDLf3d0d5mqlGHwZnhz9yKQT
wZOPGTOGrbvFv8UnT560trbesWOHsR8iHUIWB8WEyMU8A0zXyckJba5l1Ap7
wiDzrgTnOnPmDKIY+tGRI0cQoZQsQWxW6YTeOn36dLaEJtQiUjLBAiMyjYns
qGHDhhEREezGsd0fatWqxT0wgSmGhISoe1kAy8R5dXkSbg7p9PTpU+TS/Mfm
SrqtDKqlE1vAB70ALlHJE0Jd0FE6cQs0IdPmtjQdPXq0j48PzB7yBEZl+Qmn
htxV3HFPDbkzrRwcHATvE2FUqPCgQYMkl63btGkTLAEpMfsU5oRugpDNvbq6
fv26wj0cTSoNDYV24+/opATcR8RrHd8aoF8gYUBsErtTeD98hNvdr18/FbeV
TXSC8vr222+7devWuXNnlIY/FT4eNxQA6ZSny5VHRdQzyVHHx8fzd3RSQp6B
z1TQ0fz9/ZGWiNdfRSU9PDzgaStXrqx6UKsFpJN8EgIjhG/BBXp7ezOXiK63
ZcsW2DZurpbHRHneC5gfaoWMkU3ukNw8yBxpoSRapFOBbWGFaR46clBQkI2N
DX+6N35YtmxZ+SV0Coh0Qqsy6RQWFqaiJuZAoXTq378/qt2iRQvl/krQ5lzS
Ai8que6oahCL2U6+CsGX83wNIQZmWbp0aT8/P8GAh6SkJPQpY9OEESag7JAq
pKSk8I+vXLmyRIkSWlaaYjtqyTQmG7uOvpyamtqmTRukykqmZptVOrFd22BO
iFZ9+/ZFRxY87jDWmOj4U6dORZwV3DV4CeST7I7gBq1evVrdYyv08XLlyrHc
VQk3btyYO3cu2l+8vrfu0olNoYUf5p/o559/hjWqG4Zk0CCd2GLj6MXGtoFQ
jUyT6iidkOQj1TfW9WD2FStWdHNzM9NMHGPAS+BesJNu3LixaNGiCxcu5DcC
Uri6desi9xDfL1wj9ItgVhFuDXLX6OhoNlkDDatwjyqTSoNvR+BALDNJBLFH
owiXCu2H5d7I/xH6xdaO3AyxCTdUcgQdvD38ifzS4sZgfQS/7dq1Kxrk7t27
t2/fhqNA754wYYLCjpPv0ilPlyuPqVHPJEfN5o+YlFQYFAQ+MTK+xZC7EBNS
oJEjR4rFNTwzbjdswNTnA3wsIJ3kkxDYACIFMgH+g+6cnBwYtrOzs+pF1w0K
7gWuHcn5hg0bdu/eDV8hfnNnvrRQjBbpVGBbWGGat3///q+//nr8+PF8r8t2
dGLTcIxVoIBIJ7hfOzs7LasK644S6YR74eHhgWobGzEiiaDN0URDhw5l7+4l
vRCsDqJ+/fr1mzZtSkhISExMTMglH0czcqSnpzs5OSH0iMdHbd26FVm3sW1r
cC1oXvEykrjSYsWKaVnokvkcdNiMjAxjXzhw4MC0adPQ9ZBpK4zdeUonhD9c
1Jw5c2YrY/78+b/++iv7LW4ly2bRze3t7bt16yaIyMYaE+2P3FJse7BMHEdk
RAaF1mAPV1UAHwIPr3w0O1pp+fLlSCrEi7DpLp1+++23Hj16HD58+BceSLDh
9JAIyT+whQ1cvXp1z549u/8vyDPhbHv27InuL/gIX758+bIxa4EDr1mzJlsO
SN/BFTJNqqN0ggeuXLlylSpVJE2FW3xvyJAh8pPIcO3oU5GRkQp7AfoLGtZY
hMK50CNwdli4u7s75JvgSQt75ia5JCD8pEBWM3CByPDRv+7cuRMeHq5wTpxJ
pUHIdO7cWXLVShnQQVxcXPr166dQOqEyUC6+vr7Vq1cX+zokM0gJjG27wyZB
qxtcyjIfGANfxrIxijJjDMSVN1U6oZGRYe4WAe/UsGFDNL74o7179xp7hJKn
y5VBRdQzyVHjIPKlBQsWmCS98wx8YmR8y9OnT+EoSpYsiVgp/iF72wsbiIqK
Uu3u8kwgtYRUhkwSggb38fFxcHBITk7mH0fvg5iFq9EyETXPe/H69WskP5Mn
T0ZKL/nazhxpob49iFFgW1hJmoe7gOYV7K4Ie2arGnL7AkhSQKQTqoEMTX6T
CAujRDqxTetwdSEhIcq9nFg6wZBQiKenp+TYiezs7NjYWAQaLy+vokWLst60
aNGifJdO8K5ubm7IpiRX3EKmgXsq+a6ZPbOqXbu22OxXrlypcUtT3Ag4AdWL
7hojT+mEa4G1KB8hCeuCq+eXwHZhw+WLJycaa0x4J2MjZBANkZQilCDDUf1o
l725NrY5iySovJ2dnXjKg77SCRcOlwKZ4/d/ga8uVaoUkkb5QZgIInCqHTp0
aC+CLZXw7bffCo7jy3DCxgbistFW8LcIYXleFzKouLg45eP6jDWpjtIpKSkJ
BonubCyBhC3hCwhV8uNz4MFGjhyJdlA+SLhLly55NgXMGHJYvHkTwjqqJPl+
B/Ym+ZgRB/F99FY4VeVb0uhbmiRsZYA+ffooH0EHpYao0b17d0FOjpjClpoc
MWKEpBBDbdHynTp1UrEuFpvoJMg34GHmzZsnueSpJCqkE8QpdKW4w7Zp0wb9
vUGDBuKPYM+SgpdfDWMu1xjqop65HbVBbeAz5luQM5coUaJu3bqST/XZfsqm
vqoTkGcCqT2kyiQhFy9etLa2RnYq6G7syQAsPM9VUmXQnoSYIy00Rw8qvC1s
+G8xn0aNGj179ow7yHZ0gm0LZLiAAiKdoqOj0UGaNGnCv4T8RYl0gsOBdobV
mTSOS9DmaJbAwEA0kYeHh/zIMdgn1CV/m8V8BIGjf//+48aNM5ZrIUkuV66c
5BxS+Nvy5csPGDBA0KdgLcOHD8evzp8/r7pi6FNBQUHIY01KKfPEAouTQym4
urqi5mJvINOYxkCSvGrVqqVLl4oXClMOskF4P+V6B3cQ2Rpcsfh5rL7Sad++
ffCc4pjCNvosVqyYSSfiUD1gjw0PMLa5sADYv2TlJZFpUr2kE7enhswYM1wX
rg75knj9PXPDNvjAPRXLUqZYJ0+erPzJFb6JfnHkyBFcrPZZaTqWBg/TrFkz
5OTKB3z+/vvvSG5nz54tHhzr4uICASv50ANRxsfHB9FN3dpohw4dYjs68Udv
ogIwKuWiL98H7DFkXK4kWqKeMXRx1AZVgc+Yb+EcAjJtyZwEloP+iKbQsi2d
BQbsGbsdbA8gXILYXUMq1qlTp3Xr1uoWGmJoT0IsmRZq6UGFt4XZ2yW08NCh
Q/ku9/Hjx05OTs2bN5cfLlsQpNNff/3VvXt3+PkVK1YUnPXl8pROqCoqjGp3
69aNe6MqP/6cIW7zhIQEpCWS2RGf1atXQ2C6ubkpGV385s0beDYouwqKsbW1
9fT0VJIAvHv3LiAgIDg4mO85YQn8l/tIJ5B17927V/xz9ohbPMyezRGAUZm6
VAUf3IIxY8aoXijAGBaQTvwRtmgZftvKNKYxkOJOmDAhNDRUy9r+MGaTNihn
y6CNHz9e3Nl1lE7QKYj4kq8/kNuwQfjqdhtRLZ1YOmqlYPIIvolTcDtd5olM
k+olndgmCzJzDGGQcOC4OrStlninDiYEkKuzB+DoF5xQYkp51KhRJt0vSDCk
JZAVuoQbvUqD93N2ds5zmV8+P//8M/z24cOHBcfZ8FH03IsXL4p/devWLSRa
aFIVWSs30Umwo5OpFBDpJONyxWiMesbQxVEbVAU+Y76FGy02d+5csVXn5OT0
7t27bNmyMD8tFbaAdDJ2O3C9uOmS47pxN0uWLJnnnuby6JKEmCMtlERLDyq8
LcxmS8HIly9fzj/OpChiCnoBamjscVBBkE7IptiiuHqtDKMLeUonKCNEc0Qu
/ph2+fHnDMnFyRHp5CdocLmZwsGBqElycjJyob2KwZevXbuWZ+G4p/Pnz0cA
FQSaM2fOLF26lPvzt99+wxVJzlpC2+KOix9HxMfHlypVSvXu5Ay2ybuW6auS
mFs6sZV24FLYckZpaWn8tb9kGtMYsE8kyao33WBs3LhRbJZo4djYWKQ9EydO
hANctGgRt70F7AffR5dHMoku7+fnx/UCvaQT7BO+zlimyk0/jIiIUOGZtSxO
jnrCY/Ts2VN+2iM6GuSVoHw4maCgILQnGi0mJgaV5x6DyzSpXtLp7t27lSpV
MjbRCVy9erVixYq4OiXv1HQH0RlugSV4SF/RONz7Dra6Ra9evUxK45GTNGvW
TK/XZ3qVhihgb28vlt6IF4jjuPvjxo1bv379kiVL2KhFtosuAtDUqVPx6aBB
g+CW2Uds0xM7Ozvx4wW0ISLI119/zX8eAk+OPGTatGmcWcLR4Yg4Z+MmOmmc
01cQpJO8yxWgPeoZQxdHbTAe+FS4a7ZOBRJyyekeUEzILVEaP6uEpSHJ5+Ij
PkJjIquXccIWkE7GbgfLS6tWrSrwhLi5/fv3R/ImuQ2rcnRJQsyRFkqiRToV
3haGkcOGEdT4uxKgX6A7FylSBJkP/jx//jz6jqSjs4B0Yo8vjEknVADNCz+v
Yk9zGd68eYOeu2DBAtV7HMtLJ1y1u7s7ApA4hTM2/pxD3Oaw+aioKNwv+Ddj
OcCvv/7KsheTnmjpDqoKo0LDCuqJkI2wsmXLFu4I0ps6depIDgFCd0PEFywG
m5WV1bRpU3XbYfN59eoVNI6xQf6qMbd0YsN1GjZs+PTpU1gUGhkZI/epTGMa
486dO6iw6gUiDP/tMIvz8kfmwFOhbdme3fgzLi6uaNGiq1atYp8itcOfyMHQ
C9DfkexxCwvoJZ0uXrw4cOBAY+9GcVLkmXA4o0ePVpGVaZFOqK2bm1vp0qXF
bwEYuK3Hjx8PDw8XePvU1NQWLVqsXbsWZ0c/8vLyQu/AQfapTJPqJZ3YPCZj
E53gmdExkUdB3Gl50aAOtAmkAaQT6w4pKSnz5s3jujYbcWTqWmRoaggNva5F
r9LOnj2LJITbFN6QazDwqGh8OEz8efv2bchbKBcWWWADffr0galABOGbCChw
IGxMIyqDPiKZdP3yyy84Dgvn571s+hKSahbL8BF+LpmWcDs6aVwwuSBIJ3mX
y0eXqGcM7Y6aIRn4VLvrrVu3widwJsHx4sULuHEXFxfBYpswPP5q6pBgSI/l
X8FbQDoZux0sQ7azsxMk8AcOHEDv2LRpk8Y3yLokIRZLC7VIp0LdwtHR0YKx
Fs+ePUOx5cqVQ5qBGsK3G3N05pZOiMVsz1PxmqtwwuzxF+6a6q0BjMGSAYR7
dcsy4yds+pV48UNoMbjK2rVrI4Ls379fXLix8ecckm2Ohho+fDj8WGhoqFju
Xb58GVESDSXzZNgCsL3w2F5+YgRz8+GBPTw8evfuLR4FgSN+fn49e/bkQjOC
F76JpFG7I4UtQYybtEmHEswtndjSxGgB5C0PHjxAmsp/5CvTmMaAzSAUasno
UJN+/frhvNzcfBgAgin8IcvlDLkdDcnbmTNnDP/lsc2bN2e7IbCJnDVr1mQ9
CMmtq6vrmjVrflcMcsU2bdpw0glnP3XqFBz10KFDjb1GR/uw2bVchmkSWqST
ITcLql+/PswPAUIQSnB/kSvC4wlml+PPLrmwvsDaEJbGxqzKNym8Ok535coV
5U2KiiFX5EsnWAhbUkC8YyAscPny5dbW1ujyy5Yts7xuMvw3rIItT4GbC78q
WBRu3bp1+FT5Sx82xF3Jah4WLm3z5s2VK1fmbz+NO4u+hpZnoYRFFu51KvuT
W12QrTKB1Jf9lgkxmBzfkq9du4buM2bMGEHXOHToEHoxt+wDe2kFFyROhxIS
EhBYEfuUL+MmSUGQTvIul19VXaKeMbQ7aoY48Gl01+3atWvdujV/axs0tY+P
T+PGjQXdjckurihD7s5fMD/5hVMsIJ1kbgeaC0a+cuVKLk9Dl3F2dkZ30/7Q
Va8kxDJpoRbpVKhb+O7duzD4yMhIVkPYPEJ/+/bt2ep/MGbERGMP5cwnnS5c
uIB2Y0t/MFAfp1zgvW1tbR0cHHDfEcqNNaPMi+Y8YdvPwaICAgJMuk2wItSq
VKlSfN+ICqPajo6OiNFwCIhQuPvGmtTY+HMOY20O24NOR/kIoOgpcNe43lWr
VvXt2xfdB87q1q1buJUaX8pogVuBWRLcU253SMN/8wQFs4k50M5wtvDD0KEw
XfRcXKku26BDz6IBuWChF+aWTmyXohYtWkDso2X4GZQhr8aUBEkO23FGdZXY
1DPYJFcIO9K9e3dmhGw2Mfdmlo2c594vo//6+vrWqlWL1RnSAGI5jzWSRHAv
cdAXqlevzh3HvRC8DkbaM2DAAHQ9/m+RSZr03lmjdDLk9hFot2LFinXr1g03
dN++fcjtR48eDQtPSkoSF4scA96GW6WfrfrLTXiRb1IYOTySqU2KzIc1HRIb
3DtUlWsuGBhz0fgHnCdEE76MXF3fFVdMBRkCFGJUVBTuC7yiwKShpOzt7dG2
CktDjjp+/Hi9/INepbEhUpyCZkdgBgiaN27cYEcgbdg7JvYnAg2CBTfRBloG
isbPz4/9iVbasWMHzGPUqFEwQnxtwoQJuLNr1qwRJDnM5vm+hcku/oZQsGrU
DQc5K4Jt1KhRY+TIkeoGzBQE6STvcjl0jHqSaHfUDHHg0+KuDf+9Dmvbti1E
PeTh4sWLkVPhlol3V2dLDbPpIexEcBq1a9eW35DIAtJJ/nZcv369a9euwcHB
uAUwAISnU6dO6TL/UcckxAJpoRbpVNhbGIbdunXrhQsXrlixAh4yJSUF7YkQ
HBQUBO0gs06vud86qUb+RbNCcDcRcPUduCWPzPhzDvk2x/Xu3bs3LCwMPg0m
B2WRv3mLFpKTkxFejY2CMOS6XEjs1NRUve4RnDbyK/7CHXphgWUiYDz3799H
KigpIfNsTD5oT2R0yvNJSY4fP44z8sf8sLXK4SqZ90Mju7m5oZOyd0BswUlu
Ua+nT58i1Jq0YUq+o106MR4+fBgbGwsPgLuA5jK2IRTLMcqXL8+t8YtYgGQM
gYb9+Rk0qS4guF+8eFFy/VU0BZLDiRMnKrxlSOc8PDz02ttXr9LgXhCv+Y8p
2FukDh06MO3PXm9BHHGrDyEaInngnjYfPXqUaXB+sUiSYYfIAWDVEFCSy++w
6UteXl7sxQdb/sikF3kqKAjSyZCXy1WH5R21wUjg0+6ukbezzXFQ+KZNm4yZ
BNQ9iuImRqEE3BFPT0/5V28WkE6GvG4HWiYjI+Ps2bM6bjtrjiTErGmhlh5k
KPwtDCtFknP79m3OF8ElXrlyhf++VUzBlE7yL5qVAwkZHR2tZR0PU5EZf86h
pc0LF2gNOGp0doupV9bg2qfcirGAdJLHpMZEHOzcubNgKzqTgBtBTB8wYAA/
/KHLW1tbc9MqkbYheUO+h9OhzS9duoTUjhv2g5hbrlw55btkFgTYPi+zZ8+2
jNNgo9H4s8mQn8B74MadzQWSqrA3qQVA+te4cWPxw3BJEOL79u2rl/bUqzTE
i3r16vFH3bDhZNxgfrbbCFLfP//8E30NmmjhwoXcJC98x9/fH4Ykv3+lJA8e
PICNzZkzh5voBD/Trl07JFSIXGbaPVBH6QRp6e3tbWpuYD4s7KgZkoHPYu46
ISHBxsaGWzWUTYiLjIyEDSPJN9YOlpFOn1MSYiY09qAvs4ULpnSSf9GsEDhn
5CGS2xybD/nx54wvRzoZch98wcj5QxrMysaNGxH0zWGT+S6dDKY05unTp7t0
6aJlycq0tDSko4LlZ5FlOTk5sa3n4TAnT57M1qcCiLmIyGgiNukSeWzr1q3H
jRunZeOPfAF+w5IPW7Zu3ero6Mhmjjx69MjFxaV+/fpZWVnz58/HLfg8mtTc
wM6hKeQ3f2ew13zh4eG63GK9Snv37l3//v1DQ0P5OgJaaXAu7B0BMlukwePH
j4epQNrjJ1BtsBYmGI8ePVq9enX+EDvlQLWhF3MD/vEnUujRo0fDCGfNmqVi
wqASdJROhtwbob0QHbGko2ZIBj7LuGs21hTGyfalgt3iRGzhAoRLqG9jA7Qs
I50Mn1ESYj409qAvsIULpnSSf9GsEOQhYWFhqlfYU4f8+HPGFyWd/vnnnylT
pgQFBekSIuVBLOjYsSN/lw0dKQjSSWFjotcsX74caYnqp0AoH/I/ICBA0ONQ
MlJ9xPp58+YhXCL+du/efciQIfgyW6UKgbhXr16LFi3y8fFBHfJlYYHCxdu3
b5EPow1nzpw5adIk5DmNGjXCXY6OjmZ7zVCTKgE6okOHDnk+W0Nre3p68lej
1YJepcGrIBMQj/q7fft2165dp0+fHhgYuHjxYliIq6srbOOXX34x5AouBLhR
o0bNnTsX1VC35B1Tf0h0od/Dc0HXnjNnDhJpnEjjxj0y6CudChoWc9QMY4HP
Mu6aPR9Gwta+ffuFCxfCiW3ZsgXFDhw4EC0gk+dYTDp9NklIgeULbOGCKZ3k
XzQruTvv37+fNWuW5IaAZkXJ+PMvSjoZct8henh4yC+2ox1YBWJxaGioSfpa
OQVBOhmUNSb82OjRo7Ws+oXy3d3djc3gQMYIC2dxFufKysrih/6cnJyMjIzP
MiMyH/BsaEbuSZFAAlCT5gl6PdJ+iAv5VsrMzHRzc9NrQVddSnv27BnyTGMz
BXA5Dx8+5Jbih50IHgbi51rG1LFpKV5eXn/++efdu3e5E6FYwVKQ+vJ5SyeD
pRy1QUHgM7e7TklJsbW13bBhw8uXL2FC7EQoEOFDPhZbTDoZPpckpCDzpbWw
RulUv379gwcPohB9lzKQf9GspAS0sOU32GVrRBgbf/7vv//evHnzzJkzMTEx
jRo1+nKkkyF3ImG/fv00boImA1p+586dY8aMMV+45+Zxnz179saNG/kY8fNs
TASvZcuWqZ6VmZ6e7u3trX34PUFYEmgKeABEDZkVnJAlrly5Uq+wq700JK6B
gYHr16/PryFnCLVVq1aV339HX3DJly5d+uWXX4YOHapu87XCgrkdtcEigS9P
4uPj+Ts6Kcd8CaQkn0ESUsD5ElpYlzT+/Pnzzs7ODg4OVapUgQfQsXryL5p1
PJHuyIw/f/v2bf/+/e1y6dy5c+EaCqsd2FtcXJyZnhWgwZHDmLVDZWdn9+rV
yyEX9pDWfOfKE/M1JspEydx+rARRiIAHWLVqlV6r51mAkydP7t69Ox+n6hw4
cKBChQoa97c1CfiWBg0aIAjCkc6YMaOgTVPSF7NGPYNFAp88bKKTqXtSM8yX
QBqjsCchBZ/PvoULRRov/6K5YKLL+HOCIAiCMDc7d+708vKSXLScIPIE6Rmk
04IFCz5vCUwQhAXQOP6cIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC+NL4999/379/n9+1IAiCIAiC
IAiCKLjcv3/f19fXx8fn77//zu+6EARBEARBEARBFCyePXsGueTm5ubh4VGi
RAn8n6QTQRAEQRAEQRCEmI8fP+L/d+/erVixIkkngiAIgiAIgiAIGUg6WYZ3
795Nnjy5VatWAwYMePHihYXP/u+//y5ZsqRNmzY9e/a8d++ehc9OEARBEARB
EJ8Bn410gjrg//np0yfBEVM5efJkcHDwiRMnNJbD+PPPP7/55ptFixadOXPm
w4cP2gs0lZs3b+7atcvR0fH8+fOWPztBEARBEARBFHb0lU6XL1+uW7fujh07
BMchZDZu3Ojk5HTjxg3tZxGTk5PTs2fPpk2bDh8+fOLEiX369GnTpk1qaqqW
Mj9+/Dhz5sxSpUodPHhQew0hnVq3bp2/sqUg1IEgCIIgCIIgCin6Sqf09PTw
8PD79++LPzpx4sSCBQvevHmj/Sxi3r59C+kEmWNlZVW2bNnBgwenpaVpLzYz
MxNKcMCAAdrfExUE2VIQ6kAQBEEQBEEQhZQCNWDv+fPnqI+KH0I6hYaGPnny
hK19oRcoLSAgwN7e/ubNmxqLKgiyRVyHf/75Jzk5OV8GEBIEQRAEQRBE4UKF
dHr8+PGBAweOHTuWnp6O3FuvmqSlpQ0dOvT27dsqfstJJ70qw3H27NmyZcsu
WLDg06dPWsopmNIJF/X9998HBQX99ddf5j47BNrJkyeXL1++bNky/KMgSHWC
IAiCIAiCUI5J0glCaePGjcOHDx8yZEilSpWsrKysra13795tyJUYISEhffr0
2bt3L19lPH36dO7cuf7+/u7u7pBaxkr+448/vLy8Tp06pe4qmHQ6c+bM/Pnz
p02btn37dhxRV5SAN2/euLm5tWjR4uXLl1rKkZROO3fu7Nix47Nnz9if0KTD
hg27evWqulNcunQJVS1RosTMmTO5pS0ePXrUqlWrpKQkY3X4+PHjwoULw8PD
zaplcGd79+4dEREB88DdGThwYJMmTSCg1JV28+bNKVOmjFXA9OnTYVr6XgtB
EARBEATxZWKSdLp161ZkZCR70/TXX3/FxcUNGjQoJSUlIyNjxowZ2dnZgwcP
hnriinr9+nVYWFhaWhrUAVJl/Fby3c379++/++47fKp6LbucnBxvb2+oJ5zo
3bt3+Ee3bt30ypljY2NLly59+PBhLYWIZQtaqX///p06deLe+Gzbtg334vr1
66rPcvr0aRsbm127dnFH1q1bx5Vp7M0Xjnt6em7dulX1eeW5cuXKqFGjOIVo
yF0OEcZTrVo1dWIZlnb06NGoqCjclyJFiowZM2b//v3H/mPPnj0xMTE+Pj7F
ixevUKGCuveYBEEQBEEQBCHAJOn0888/jx07Vjw1Brn68ePHs7KyHB0dZ82a
xSkg5LfIY/EPpK/29vZr1qyRLHbfvn1I6bUoHSiyR48ecROdUJO6desGBwdr
n/qEi42IiEASPmzYMC3vZcSy5cmTJ/Xr1582bRprLlQVbdusWTPVuz6hEZYv
X+7g4MAtkfHq1av27dsPGTIE4lSyDhy4U61atcrMzFR3ahnevn3r6+s7evRo
wXVB4UKvtWnTBjpIXclsLGXlypUl58ehNSAb69Wr9/jxY3XlEwRBEARBEAQf
k6RTSkqKs7PzxYsXJT+Nj49HUZLjzXbu3FmhQoVLly6JP0I+36lTp6VLl2qc
TMQnJyenS5cuECYaZz+hnClTpkydOnXkyJFVqlTRsmqfWLacO3cObcKG0hly
36S0bNnSz89P9fQx9hoLWoktY4j2jI6OrlmzJu6asTpwQOC4u7tPnz5dl02s
+MDAoJqtra3FZhMbG1uyZMkDBw6oK3nFihVWVlb813YCbt682bdvX+hHdeUT
BEEQBEEQBJ/k5GQbGxsIDciEPL/8+vXrb7/9Fjk2/iH4iO2s1KNHD/Eko48f
P06aNKlx48b8IVschw8frlu37p07d1RfArL9JUuWeHp6ckLp/fv33bt3r1q1
6qNHj1QXi2scnguu6NSpU2XKlFm+fLlqfSeWLcj8+W9Mbty4AeEZFxenusJP
nz5t2LAhhB6TP2jYWrVq8Telkl+qYsOGDY0aNdL9Hc27d+/Wr18P7SyWhEeO
HClVqlRwcLAKvQad6OvrC+kUEhJi7Odo23HjxtH6gQRBEARBEIQWoAv8/f2b
NGlSvnx55J9FihSB0EBevXHjRnl1gNy+WLFikZGRgrFwV69etbW1xc9fvnyJ
JJz/Dgvnatu27dChQ8XJM44MGzbMw8MDCbbqa8G5fHx8WrRowY03g0ZwdXVt
1aqV6jcOL1686NOnT69evdhwsjdv3nTo0AFlomR1BQpkC8v8+QUmJiZCw16+
fPnChQunT59WcQr8sEKFCrt27cIdPHTokIuLS1JSEv9uykun27dvV6tWbfv2
7SpOrY4ff/zx66+/5k+OUw5kcr169YoXL753715j30lOTp47d66+69UTBEEQ
BEEQhEL++OOPhg0blitXDnkv//iaNWuQeN+/f3/fvn3btm3jZ+y3bt2yt7eP
jY2VLA0J8MKFCzWO1oNeiI+P5wo5d+5c5cqVd+zYoa6033//vVOnTlAZ+Ad3
cO3atWXKlPnpp5/UlSmQLSzzh6Jk7+8g+po3b+7o6Ih/oDXQYipOER0d7eDg
cOrUqeDgYOgy8fII8tKJycPhw4fruOA8n6ysrJ07d8JOIAyZUsZdg/bp1q2b
CuEsOdGJveHi1Ojjx49/++03vepPEARBEARBEMpBmjpp0qQmTZpYWVl98803
T58+5T66ePEijk+fPj0yMlIwZg8SpkKFCleuXBEXePLkSXzEH1TG5+PHj0i2
caKiRYtCly1dupQtd8Bx8+ZNtsA1cubFixfPmjXr559/Xr16dcuWLaHUBBJA
YWlsuYYGDRoIZjZlZGRA2vj4+PBHNmZnZ4eHh1epUqVYsWKtWrXC2fkaEP8+
cOAAGzQokC0s84ei9PPzi4qKCgwM3Lp1a6NGjSZPnrxixQr+Wxjl1R49enT9
+vUjIiLQ1JJj2OSlE0rw9/d3cXHRuAy7mNTUVC8vr549e27evPnatWsJCQlT
pkyByl6yZAkMqV+/fireOklOdMKJQkJCaMcogiAIgiAIIh9BXg0x0rRp0x9/
/BEiwsnJqUiRIoIV8169eiVelgE/DAgIwA+fP38uLnb9+vWQTsh4xR99+PBh
2rRpOEuJEiWgTSAc8G/+AubIkOfNmwfhwP6ETnnw4MHu3btPnDghHqdnUmkQ
RJIrD7x48SI9PZ0bAJaZmQklggS+fPnyFStWxD9sbW3PnTvHfR9fmDFjBhOS
fNnClsKrXLky1Bm+k5WVxaqBb6IB+eLL1EaQJ89teVeuXIlL0HE1b1wLhLOd
nR3kIX/OES58/vz50KFoNKhFU+c6cROdQkNDud+yuWkxMTF6VZ4gCIIgCIIg
TAXZ6dKlS6tVq8aWyMOfERERSFzd3d2NLS7x6NGj+Ph45OrQAo0bNw4KChKn
xzgSEhJSvXp18ZrYSLk3bdpUr149SCH28ghF4aR16tThFpS4fv06t8mUPPqW
xsCFDxw4sGfPnjdu3GBHUFTXrl29vb3Z8DOcNC4u7siRI+xTvmxhk7NkloYz
U7XzlE47d+60trZWvTGxmD179pQuXTowMFDwJggVDg8Pt7e3hxLcvHmzqcWy
4Y6wQPy/W7duaPaWLVui5uXKlZO5OoIgCIIgCIIwlWXLlvnIEh0dzf/+iRMn
kJTy1w+/evVq+fLlkbhKrv798eNHZMuQWkjsAwICunTpwp80xP/aqFGjGjVq
JF55D8oL1RBM+UG+DeGAuqEa+PfcuXMlBwGK0bc0xt69e/39/QXaB63Rp08f
thj448ePp0yZws274csWNsMrLCxM/m2L7tXOUzodO3YMN/qHH35QWOCrV69Q
k6lTp8KixPOV0tLSatSo4eTkJF7nEJWH4oP2sbGxYdv1wkKmT5++fv16trK6
POfOnStbtqydnd3Jkyfv3r2bnp4OUT9x4sQmTZpoXI6eIAiCIAiCKLw8ePBg
8eLFsxWDVFZyaByftWvXjpQFGSz3ZaSynTp1cnZ25ssf6AKkxLVr15bURIbc
pSFmzZo1YcKEuLg4Y8kwMv/+/fs3b95cvAlsYmLili1bxGtH3Lt3D2W+ffv2
zp074eHhglk/xtC3NEPu1KqgoCDJxRy2bdu2bt06nAsn/f7777njkC1NmzYN
Dg7es2fPzZs3O3fuzB/aZ+5qo5ALFy7ANqBnZaTTqVOnIEni4+PzLJDx4cOH
48eP161bd+DAgYL3SmxFeoijsWPHite4Yy8c8Sm3CxU4ffo09Pj48ePzfIm2
cuVK/LZjx45804KcxxlpohNBEARBEMQXy86dO8uUKWOlmMqVK+s7ZoltaYRc
nZ8AP3v2rHHjxk2aNMlTpsmALLdfv34tWrQQr0uAI5Lb8eBgWFhYRkZGbGys
8sXu9C3NkJv5owUkVwWErpkxYwbOGBoayl9GAwInMjLSy8srICCALXhuyWqj
wpDDffv2HTFiBH5o7GtnzpyBdDJpBF16enqlSpUErykNueIacrt48eK7d+8W
/wqt0atXL5jrokWLuGaEPQwfPrx69er379+XOaOxHZ2OHj0Kpam85gRBEARB
EAShI0hro6KiihUrJljoOysrq2bNmr1791b+pkbMP//8M3jwYJP0F1LlVatW
HTlyBNpB9Z5NZiqNwdbcO3jw4OrVq1Xs9KoEc1SbASFmbW0Nta78J3v27LG1
tb1w4YLgOFPcEPLQkuJfQRxVq1atRo0agk8hf0qXLh0TEyOzWP2TJ0/q168P
UZaUlMQ//uLFC31bgyAIgiAIgiD4IA9//fq1sUz148eP48ePL1++vGBCDVLl
cuXK8V8ZqACFT5gwwdHR8fHjx8p/lZiYGBgYuHnzZo1bQZmjNEPu+5SQkJBJ
kyZJLhuoF7pXm7Fv3z5IJ2NrxYuB8QQHBzdo0ID/fo3xww8/QN20bdtWvIkw
6hwbG1u0aFE0lGAsH4Rnq1atOnToIDPjiU10EuzoRBAEQRAEQRDmIzMzc+zY
sX379m3fvn2VKlW8vb3Fq1IjN546daqtrS1/kyOkvkuXLrW3t2frIagG5Sxe
vLhixYrp6enKf5WQkNCsWTOTfmKx0gy5w8kGDx7s5+enYptX5ehebcbGjRu5
dRs4cEVQOt99993EiRNnzJgBvXzo0CEm2dguuhA7MBKoxX79+h09epR9dODA
gRIlSvTu3Vs8+ej58+cuLi6NGzcWT5RjJlGmTJnTp08bqySb6OTm5ia/PiHH
zp07O3bsyC1FAp0+bNiwq1evGnLNe82aNc7OzuXLlz979iz3k6SkpJYtWxqb
x0cQBEEQBEF8UWRkZCDD/+2339ift27datCgAdLm48ePC765devWChUqsGXJ
GdnZ2W3atAkICFC+lLcx9uzZg5PK5Mli1q5dO2jQIMlJQCrQtzRD7lsnKAjl
Ky2oQ/dqG3J1BJRRnTp1+JIB8mTEiBG+vr6vX7/Gn3FxcUWLFl21ahX7lE10
gjGw+VOQSw0bNmRj8B48eFCjRg1oFoHA+fjx46xZs6ytrQ8fPixZDeh3lCmY
W8fBTXTKc31C7vv9+/fnrwO/bds2qHVOHqIQFFW7du2srCx2BJrX09NTuTRT
ASRnZGTkggULlCwnSBAEQRAEQeQjSEojIiL4678Zch/OFy9e3NXVVTBh5Pnz
58iNg4ODWSqLVHPFihVt27Y1aZSdMdLS0pAnIyFX+P1Pnz4tWbIkMTFR+6l1
L40BieHn5yc5wUcvzFFtw3+rdnh4eHDvy3CiRYsW2dnZcRIbUhc6+syZM9yf
UL4///wz+xPH8SezK9jJnDlzIJF++eUX7hQwoZiYGFtbWxibsaGGx44dc3Bw
gJaRXM7i7t27tWrVgnyDoldyUWxi1LRp05jOQgXGjh3brFkzblHHt2/fdunS
hT9r78KFC6iAwvLVgXZDX/vqq69Wr16t75BLgiAIgiAIQl+ys7NbtmxZqlSp
hIQE7uCjR4+qVatWvnx5NpaJD/JVJNXjx49PSkqChvLx8Xn48KEuNXnz5k3H
jh1HjRql8AXWhw8fUA0uk9eIvqUxIJpGjx5tvhcWBvNU2/DfblP83bvYke7d
u0NfGP5bUZzbzItNdOLv7QU1V7JkyV27drE/8SvUE0Y1f/7848ePw9h69OgB
0X327FlJvYCDu3fv7tWr15o1a0qXLr1hwwbuI8g6yJ+qVatCNLGVJEuUKFGl
ShWIem5LYknOnTsHrcctKMEsH9qWszdYMqshNwTR09OzT58+Zr2Dd+7cadiw
Ieqvy6tbgiAIgiAIwnwgP+zSpctXX321YsUKfp7s7OyMlPXkyZPinyBPhoA6
dOhQamqqjgvH4eyoQ5MmTcTrDEiSlZXl4eGh1yQUfUtjIPmfMGGCWfNhc1Qb
QN3UqFGDP9GJrVW+YMECZiRQE25ubr6+vmz6Uk5OTteuXaGp2bjBjx8/Tpw4
0dbWlq9l8ENIvMjISLTJsmXLIGSM7bsEo9q4cSN0ze3bt1++fOni4gIT1a5f
YF38BSVQt4oVK/Lfch45cgTa6sSJE4ZcTRoUFNS6devMzEyN51UC7mBUVBRJ
J4IgCIIgiAJOdnY2RBA/bUtJSUEO6eDgcOfOHUvWBGmtk5PTvn37lHwZiW7f
vn3ZSxDt6FuaIVc+TJ48mS9IzYHu1Tb8t5TigAED+KvNHzt2zNramtuY6d69
e5AhS5cuhc6Nj4//3//+16lTJ25zJUjv+vXrDxs2TMUMLNghhFWdOnXYlDq0
HvQaTi1e89wk2MQoV1dXbpW/xMREGxuby5cvo+TTp0/jRHPmzGETnaAEZ8yY
Ab1m1sGWfNDjoqOjzbSCPUEQBEEQBGEm2P5NVlZWlh9BhNRx9uzZ/fv3z3NJ
OnwzIiIiPDxcl2xT39IYL1++RO596tQpvQoUY45qG3InnTVu3JibtcR48OAB
VO327dsNuctfQBWWLFnyUC47duyA2po0adLYsWPxD4iU4ODg5s2b4yemnhpS
a+bMmRUrVjx69Ch38NatW1DxQUFBWi7zyZMn9erVa9u2LVvjIjMzEzV0dHTE
PxYuXIhTQC517969V69ekFFQo6iGxdZtQI/btGmT5BtegiAIgiAIoiBz//79
unXruri4cOuMWZI//vijffv2x44dk//a27dvPT09uZcgGtG3NEZycrKrq6tZ
F7U2R7WhfaZNmwbVLBhNh/R+69atEIPz5s2DRIJcgtAYMmQIvswGWEIoeXl5
zZo1a8KECSNHjsR9VHH2AwcOVKhQYdu2bfxXdajJiBEjqlWrpuUd6NmzZ8uW
LWtvb+/n5xcVFRUYGIjLadSoEXsziFM8fvy4fv36uKjo6GgLW/6jR4/CwsJo
hT2CIAiCIIjCRU5ODvJhpJT5uMfojz/+6OHhwW2+I0lmZqabmxtUni5n1Lc0
xs6dO4cPH67vmuECzFHtn376yd3d3Zjig1i7d+8eu6h//vkHEoP/XhKyCypA
y6Sk9+/fS953HL99+7bqcYkQYsuXL69cuXJaWhoaDdVmL7BQ4JMnT/J3XTtc
GvTmxYsX87EOBEEQBEEQhKkgDY6MjGzXrp3FpnhIgrR2w4YNEydOhI4z9p2M
jIyVK1caW2fAVPQtjXHgwAFoQB0LFKN7tdPT0729vZOTk/UqsICAJvLx8eHv
6FRwgN58+fJlfteCIAiCIAiCMAEIlnXr1iFzVjfUSvfKJCUlCabbEGYF+iIu
Li41NTW/K6I/bGV1hTvnEgRBEARBEIQMnz592rNnz3fffZednc0dQSL966+/
5m/FCEI7Dx8+7Ny587lz5/K7IgRBEARBEESh5/Tp08HBwdy6zeDdu3dTp059
9OhRPtaKIAiCIAiCIAii4HDt2rXatWvXr1//m/9wdna2sbFp164dX0wRBEEQ
BEEQBEF8sbx+/bp9+/ZWUvj6+uq7cgJBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEGbi/wENTFXG
      "], {{0, 105.}, {1129., 0}}, {0, 
      255},
      ColorFunction->RGBColor,
      ImageResolution->{72., 72.}],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSize->{904.1999999999964, Automatic},
    ImageSizeRaw->{1129., 105.},
    PlotRange->{{0, 1129.}, {0, 105.}}], TraditionalForm]], "None",
  ExpressionUUID->"c593cd64-0de7-4634-b79b-2677badf28fa"],
 ", FieldNumber = 11 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.748965817048818*^9, 3.7489658189762506`*^9}, {3.767539490341497*^9, 
   3.767539490341552*^9}, {3.7675398704061737`*^9, 3.7675398705672493`*^9}, {
   3.767633176501169*^9, 3.767633177441382*^9}, {3.767633466976166*^9, 
   3.7676334672502728`*^9}, {3.8318212650137887`*^9, 
   3.8318212653224463`*^9}, {3.831829769992965*^9, 
   3.8318297837351017`*^9}},ExpressionUUID->"489dd30c-702c-4269-8f2c-\
6a9bbaab615b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "11"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.8318297886536007`*^9, 3.8318297916544185`*^9}},
 CellLabel->
  "In[381]:=",ExpressionUUID->"87f1ae72-dff2-4019-8a79-5d556ed4e211"],

Cell[BoxData[
 RowBox[{"Gt", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768089971905949*^9, 3.831220496559744*^9, 
   3.831222243822336*^9, 3.8318058849184866`*^9, {3.831823174956895*^9, 
   3.8318231970863543`*^9}, 3.831828156902482*^9, {3.831829975728379*^9, 
   3.8318299873991003`*^9}, 3.8318398048236084`*^9, 3.8329475175293036`*^9, 
   3.8329618026986732`*^9, 3.84582689514781*^9, 3.845852484998777*^9, 
   3.84585709548125*^9, 3.845919643623543*^9, 3.8460065939555655`*^9, 
   3.8460999057719374`*^9, 3.8474704683845863`*^9, 3.851700653823992*^9, 
   3.8539754685689383`*^9, 3.8549774296286902`*^9, 3.854989281457411*^9, 
   3.8549999192120185`*^9, 3.855165269231612*^9, 3.855182337862565*^9, 
   3.855185881295076*^9, 3.8553306604215436`*^9, 3.8553398648434525`*^9, 
   3.8553432026375504`*^9, 3.8553440360160503`*^9, 3.855352763323121*^9, 
   3.855449625910685*^9, 3.855507626945455*^9, 3.855508424798174*^9, 
   3.855512913195191*^9, 3.8555333449426727`*^9, 3.855578938772459*^9, 
   3.8555933108075294`*^9, 3.855750623295401*^9},
 CellLabel->
  "Out[382]=",ExpressionUUID->"44d5d0fd-3edd-4a62-b5f3-8fbaacdca6ff"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "I"}], " ", 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"A", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "+", 
         RowBox[{
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"Lap", "[", 
           RowBox[{"B", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", 
         "-", 
         RowBox[{"I", " ", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"F", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
               RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}]}], 
      "  ", "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"sigma", "[", "1", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], 
               RowBox[{"G", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{
                RowBox[{"sigma", "[", "3", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
               RowBox[{"d", "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}],
             ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], ".", 
             RowBox[{"CommuteGammadown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Fmn", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.831823191679903*^9, 3.831823192336481*^9}, {3.831829798896637*^9, 
   3.831829957870433*^9}},
 CellLabel->
  "In[383]:=",ExpressionUUID->"d97eff12-76dc-4bac-8159-b51b1dbfd2fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
  3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
  3.7676307247800837`*^9}},
 CellLabel->
  "In[384]:=",ExpressionUUID->"932d0f29-4d77-488b-b53d-10b20f742ad9"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, 3.768089972186246*^9, 3.8312204966675544`*^9, 
   3.831222243928761*^9, 3.831805885017222*^9, 3.8318231972371845`*^9, 
   3.831828156980631*^9, {3.8318299806203575`*^9, 3.8318299875726414`*^9}, 
   3.8318398049791927`*^9, 3.832947517685463*^9, 3.8329618028515925`*^9, 
   3.845826895335255*^9, 3.845852485164188*^9, 3.845857095648983*^9, 
   3.845919643836975*^9, 3.8460065941141415`*^9, 3.846099905943742*^9, 
   3.8474704685769205`*^9, 3.851700654011446*^9, 3.8539754687346497`*^9, 
   3.8549774298317876`*^9, 3.854989281627304*^9, 3.8549999193994756`*^9, 
   3.855165269450307*^9, 3.855182338065658*^9, 3.8551858814685707`*^9, 
   3.855330660626232*^9, 3.8553398650527*^9, 3.855343202856679*^9, 
   3.8553440361954536`*^9, 3.855352763515243*^9, 3.855449626091579*^9, 
   3.8555076271142883`*^9, 3.855508424969455*^9, 3.8555129134319153`*^9, 
   3.855533345128592*^9, 3.8555789389442587`*^9, 3.855593310984023*^9, 
   3.8557506234672766`*^9},
 CellLabel->
  "Out[384]=",ExpressionUUID->"fd5a8217-21be-4147-a68e-fa4581a7f03f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[385]:=",ExpressionUUID->"3d53bf77-2b01-4b25-ab08-99704a740eeb"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwFVX69gmgLAOBYQcB2SGEVUDCyBJ2AgQIeySsI0uGgQAJYYewI7vI
GgibggzIIgNKIaJAREYo1rAVyzgUqDBuJVqOpVP3+305Rf97uvv27dvd996g
56nSCvf27T59zvs+7/OetfKwpJ4jcufKlSs5P//rOXRS6wkThk7pVZR/9Bmb
nDhy7PBXYsamDB85fELUsDx8GMV/1/nj///tkZCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkHj6kZWV1ahRo4SEhB9//DHUZZGQ
kPCNX3/99eOPP545c+aAAQMWLFjwz3/+U3PBL7/8sn///tOnT4eidBISEhIS
EhKWcPz48eeee27WrFkE7lCXRUJCwgdu3rwZFxdXu3bt+Pj4mJiYokWLFihQ
YOzYsffv3xcX3LhxA3E+cuTIb775JrRFlZCQkJCQkJCQkPgN4MiRI61bt969
e/evv/4qPvn2228XLlxYsmTJsLCwSk+wbds2k5z64sWLERERK1as+O9//xus
gktISEhISEhI2Me1a9c6dOjQpEmTefPmBf/pDx8+7NevH08fM2bMDz/8EPwC
SIQWaObz589//vnn+q+Q4vv371+yZAn/f/z4sfl97t69O2nSpEuXLgWmmBKW
QGv6bKnfBpSEUYEcdZWQ+A1D4/JwnZ4EJEKO//znP6Eugt/48MMPq1SpsnPn
zosXLwb/6T/99NPx48fR/w0bNpQzDUII+GTBggW1atW6fft2qMsi8fThzp07
JEHJ2YiOjh41atQXX3zh700yMzPhom3btmk+J96tW7euWrVq5Gsuldcpli5d
+txzz8XFxSUmJsbHxzdo0GDt2rVyFEZCIqAIFUU8fvy4Y8eOdevWTUhIgNy6
du364osvXrhwIRDPeqqBkNiyZQtVRBR48803g0aJv/zyy/Xr16dNm1a5cuWs
rCwbd/j66687deo0YMAAvYwP9Dg7IrxJkyahFcCUAZOWIjyEwLp27969aNGi
30lPpoSLwHO7deu2evVq0TUEGVaoUAGB6q8tXb16NTU19caNG/qvDh8+PGfO
nG+//dadEjsDzrJkyZLChQuHhYXlzZsX/ty7d6/sFpOQCDRCRRHff/89Ijx/
/vy5cuUqVKhQv3797Cm93zzee++9119//aeffvrzn//ctGlTlG0QHvro0aPE
xMTRo0f37dv3j3/84+XLl23chCaeO3fugQMH9Eo70OPsUoTnfGAVR48eTUtL
mzVrFjpZv3PI7xYkrevXr09KStLk3adOnaK6Zs6cOX/+fEPGltDjypUrsJmN
H2KQFStWbNSokfj5V1991bhx40qVKn322Wfigp9//vns2bMws5vF/V/88MMP
6enps7KRkZFhZV8sjIdSUTZ/nyW63Q4ePIjwDlpXTxDqUOI3AEl9Jvjiiy+u
Xbtm44cotOTk5Pv373ubdXb9+nXDSZW/K1BLKSkpSFYCAeGgdevWfGLxt7ab
RgFUvHDhQkMRHoTWsR1NPDlVhBPHkQQhLFKOArGeRK9ChQo9evQYOHCgzMEF
qJa1a9eivbF8suA//elPignt3bs3Li6uc+fORYsW/dvf/ubtDlDEnj17/vKX
v5C2b9u2Tb8qgRsi7b788ssAvkYOAPT1xhtv/PWvf7XOmZqfX7x48ebNm+Kf
d+7cef7559u3b6/cTdyfXOm7775zrdD/Czg8IiKiadOmtPuUKVN8vggXjBs3
bvPmzTZUtCLC7RbWDoJQhwqQ+keOHHn11VdJ+fnjaZxmGTjQEBACgkFjY7BQ
TljWZJH6cjL+9a9/vf322/jX1atX7akaQxA34+PjbXeTChHu7QKK+vLLLwd/
URLWCPXxahoJR70Ff4Nu/OKtt94iTzl8+HDBggWXLFlikV2dNI0CExEe6NZx
Ek08OVWEP378mJfaunWrnGbpyVabCEU0kuGQN1W0fft2bLifEfr37z9y5Mhl
y5Z56xUhwq5Zs4b7Q91B7jlBuQ0dOtSw2GDIkCEzZ8784IMPvPHwZ599Nnfu
3B+y0TEbmiD49ddfo8wNIxGV9s4779SvX7958+YJCQmIt2eeeQbpuHHjRtHZ
CJMcOnQoOjo6IyPjKZ1pwIuQzFrxoL///e/du3d3pa+AxpoxY8Zzzz134sQJ
9efUJ42VmppqqOiOHz8+YcKErl270ljqAj948IC7vfLKKx06dIBITZ5LJGrU
qBEvYqWQlGHy5MlYl70QL0Q42R+OA02hVJ2vpMD14ECl/JSQ4i1fvlxte+Z1
6BaOHj2KhJs0aRJtAQP36dOnTp06SHF7dyM8zZo1CxYy9HFcj4bYuXNnEDIL
hyAkkae3a9euWLFitWrVatWqVdWqVdu0aZOZmSm+HT58ONLR+YNocSqEu/3Z
F/CL119/3dAYTKgvJLDIRfgjnoVVYDClS5fOlStXeHg4teFxTBH37t2LjY3F
tu2VX4hwglFaWtr48ePxC32aj4zp1q0bGYS9R/hbni1btmB+xYsXr127dtu2
bWnu3r17f/rpp3yLNw0bNizIvQQKoCmao2zZshZ7Cx02jQITEe4xbR0KMH36
dFT6xIkT1RLC2zi7Bg6jicdIhJNA0YJYmjLyQmjgE3vTe6CUlStXVq9evUiR
IviR8vmuXbsImmLA2nA6CllVr169UEp23soavv3229mzZ2MwPukOHYsDBq4k
5jAX4Z7sOUv79++Ho/LlywdxUeBjx45lZgPbxpAwv2effbZLly56mtqzZw/K
ExWBBIUAA/82/wfqn1pdsWIFj6bYDRs23Lt3ryj2Rx99tGPHDl65RIkSBDvz
Obe8fsWKFfECjZt4i0REhHnz5vXo0UPNEteuXRswYABSnDqsWbNmqVKlWrdu
fe7cOXdfOTj4+OOPCUl169atXLly0aJFeRFczBuHIP+aNWum9k17QMNDGg0a
NKC9hDLRgObAAjdv3qz5HNuDxB49eoQqI8gqogJCSElJoY24MzpQ375q+CXC
UVPUz8OHDy2/nBZktSR9//jHP8QZUpGRkYcPH7Z9N0Cuh7rjhuKf1En58uXn
z5+vN2nDOnQLWM7gwYPV6Rh+t3r1arIqe1GSn1+5cgWSady4MT5OtVNRmU+A
tp8zZw5yq1y5cijYkHS5oFjGjBnTvn37O3fuGF5AE1N+rLpatWqkXeo4denS
Jaj1wIEDGCev4HA8XQH3QXniDtQY/kuWxyMOZoOAiAIkbOFofEtSYNj9nnNE
uF9cRH0qYoZ2wfD69u0LCTukCCTN0KFD+dZ2dwpJFvECHc6DqHD+QPci3tTX
cHPCCu4T0AERrHH37t1VqlTBGonsGmsUkok6qVChwq1btwJXDBMQjikeybuV
uXPOm0aBuQj31joUkqefP3+eoIALK/2QJuPsGjiPJnoRTttBuRRY2DMGT322
bNnSdmcFr4NVVKpUSZnMTD0QSlq1aiXu6W1O+KlTp1566SW3mE0PqvfEiRPp
6ekREREQGkEcfjv4BAg/jBx+Rgfy7fLlywNUDJ/wKcIFMH5cD7Ft2CFz+vTp
WrVqEe/UnVq4AKk9ZALnowFoCNcL7xO0ggg35A76GXfYNto4b968eIq3DkAa
C9fTJ/7eIhFvjQAwvBtsjxwiLzhz5szT2AEuJi1Qn4rXIIEwbCpw0qRJelak
EkaMGJGYmOjWsC/RCoEKgUBN+gokQCDGMFT1h2Rbhw4dghzQOVOnTlV+xcVv
vfUWf0CqJUuWJJc3ea51Ec6DKMO+ffv8e7H/BbFY4SuqbuDAgYgi20MJmP3w
4cO5gzLxCfJBsbz77rv6iw3r0BV8//33PXv2HDJkiGb+laBrKNrekgFx5+jo
aDLcXbt26b+FdsLDw2liBJu9+zvBhQsXYA+yeMNAQ4SiaSj5uHHjDKMwv6pf
v36ePHlatGjhYn8+XoDshBVjY2MN5xXgaOh/RIXhLOWcIML95SJP9rI+ooD+
K4cUgWpF5Gg0s7/vQo6mVDUlQWdiEprKf/DgQVRUVOCqXbHG8ePHGy5BJR+J
jIwMCwtr06ZNqPZYIIAWKFAARUGlEUbNncJ50ygwF+EeL61z/fp1fgXFDRo0
iJJ89dVX4nOf4+wCrkQTvQjnhryIItXu379fo0aNpKQk25oEBib/7dy5s0Im
SN9SpUop/TneRDgWjgbG6gI6/Eq1wwy5c+cm8TG8gASTLF44e0hgUYRjD88/
/7w3Ee7JZipepEyZMriG+nNIj+DbvHnzkOw+gYZ5+eWXvYlwT7b99O3blzBn
OMeMT9DnvLheluSESBRkEObi4uI0g27wDCkwhqHf2uvkyZPVqlVTOmBdAW7e
vXt3cjp9fzhN2aFDh4kTJ+oteePGjcWLFydV1N9w+/btMBIpuclDLYpwYS3t
2rVzd/7D4sWL8+XLZ5uKxVJWBJVIhagcVIq610INkzp0CMQSSgY9jFVovlq1
ahUvaHu6xY0bN8qWLVu6dGlvQhcFCwOkpqb6+1LEytdff91J3yOcc+7cOcMd
NR8+fEj2geMsXbrU24o8CkxbUHh0kYstgoIiaHJb/WiIghUrVnjrQnSR+mzX
sL9cBGiI6tWr681PwB5FUBUtW7ZEaLk4ziJap2bNmppZ4jwCKmjatGkglhFx
z5iYGKqOOGhijcnJyZjNlClTgu9KnmwtAflTM+hqCkwiaSIq3G0anyLcpHUw
y/Lly8+ePdtwaxTDcXaPe9FEI8JpOJqPfFPZ2eD48eNFixYlFbX9CNG1npaW
Jt6CRoHZunbtqpTcZHeUs2fPUhjn84VMcP78eRqOd/QmRTBLRGBIeokF3BLh
YMOGDXnz5oVA1LV94cIF4iOBJiTDwT5FuCd7YQUmBAPr+8poHTRJp06d9P1F
vzcRLlgIMaCpCmoV+6GG27Ztq57KyOejRo2KjY11SLw4OAms0ptBMaZPn87j
ICj9xVxZu3ZtTWgW2/Cq13JqCh8ZGWnez2xRhBM069WrR6zx/Vbe8dFHH5Gx
Hjp0SPkEOUSSaHuWCBSEbSudAKLXApL0trTKsA6dAzNYs2YNekY/LHLgwIH8
+fOPGzfOns7cs2cPvOStr1gRnKNHj/b3/h988MFLL70UiK0PqI2BAwdSKlSN
+TjR3r17Cxcu7G4vjQiaf/jDH0xi3/r16+Fzw69cpD57NewvFwkQlSg2fK4X
A7YpYv/+/VWqVHGyz4M4RAN/VCQ3L4X0KleunH4KU1ZWFo/bvXu37ccZgtdP
SEig3lJSUnxaI3k0//f3Ea64ktgXhaJSyJ07d5o7hfOmUcOnCPd4aR1+CIGX
KlXKcJN5b+PsHpeiiUcnwmnrNm3aEJfFkJDIHVBo5quizAGB8xZiziS3TUpK
4onqfksTEQ4Tklghz1xcJa3Bpk2bCKANGzb0NquHMg8fPjxws2J8wkURjtlE
RERwjTIuTBPPmTMHPqGJMzMzLc6qdRFWRDifjxw5kmuGDBmiGRaBBitUqKCk
eGr83kQ4NUm2SC3hwpr+h3Xr1oWFham3DfQ8mbz32muvOXkoNjlhwgR1l50i
wolc+uthSNTF1q1b1R+ePn26WLFiFBIfRGGqmxhaiIqKio+PN2cAiyL8jTfe
4OkOl+Gnp6eXKFFCYXLed8aMGYUKFbKdp0NBRYsWVZayCgFGCkNA5Fn6Fzes
w4CCii1QoIB6Oq51+Owrhnngn2eeecbGGwVIhIuATlwgVPmc7Qlt1qxZ00mI
1AMRlS9fvqpVq3pLtSgh0d/bmqmQi3B/uUjB6tWrxeRDTSywRxEiuMTExDjp
Z+BZcXFxL7zwgiJaqN6mTZs2btxYmb2ggAfxuH79+rm4m6jIAnLnzm3RGuvU
qaPsVWUdrrgSrQb5k1PPnTuXiGCyQ4srTaOGFRFu2DrYZ4sWLdCZ5HcZGRlq
aWoyzu5xKZp4dCKctuO2VKMyIbxnz57NmjUjwaF4Jlv0eIOIyGJoFYU/efJk
Guj69euaMpjsE45IqFy5coBWGYiVvHCFt8l1nuzRUhIHG+/uFlwU4Vh+//79
eV9YRdghbtKhQwdamfrH3oK/M6QVEe7JHnAkTKuXTggQhpQUT4PfmwhXepmg
FI03bdy4EQ7HtdVksmfPHtL/Tz75xOFzt23bBrMpIZVHt2zZEpc3XB0P44kd
adQRc+XKlZSNlkXZbtmyRZ1PXbp0qWTJkqtWrTIvgxURTv1gY1SOw2lX5OOp
qalKpy7ciJkNHDjQ3p5golTh4eFiMB2vxNMxdeyW14F19dmlYR26CJgEd6NR
3n//fREid+zYQZHatm1rI2IS2lq1asXPDbvFeIUxY8ZgtO3bt7exSVeARLhI
c5DBYmsOc5w8ebJHjx4uzuVTJoR369ZNrRaIm7SLEgXw3AcPHhjeIeQi3F8u
UnDv3r2IiIjChQtrfNkeRXC3GjVqIAgdDvJi/xRbuQmKpUyZMoYzariGx6FY
DFMMexDWSGS3MtpC2Xr37m1js1m3XEmsxQbmcsWtplHAfebNm4cYMDn83bB1
KCpxcNOmTajfqVOnqufSm4yzuxVNPDoRLhJwZQKMGGgbMmQItKwpnkXwk3bt
2vEW8DmUMmXKFH2ZzUU4VFOiRAkrZGgDYjYmnKDZGIQXF7v9eLJlKvYZws1y
XRThwgjhxipVqgg75J5z5swhpk+YMAGqCf6MFIsi/MyZM0WKFBGhHNeAAOFe
rk9MTKxXr57hlE5vkYgXF9uZqj/kxbFDMkTsH8Yji38aD0bB3U6cOKHpn+HV
pk2bRg2ru25o9/Hjx0OD5tkltXT06NHhw4ejoxr9L/DZtLQ0mg/XIERiojTK
kSNHEIe0iLftVkTaqxl4QsbUqVNn4sSJMI8mfHBPeNXnkj0rIvzLL79s0KAB
T/dmZmfPnoWjChYsWKhQofj4eM2UbIgLCQQbiP0tR4wYgaNhSJAbKbzeAi3e
TQzgcg0REN+kGtPT07lnnz59yP0NlywZ1qEruHDhQmxsbMeOHTds2ADxEphQ
yCifBQsWYD/du3e3QYNIx7JlyxLm9H3FOPL06dNx6s6dO9ubXWNbOeApvBSh
LTo6moZQ8x4mjcFr/MUEiMn33nvP9SnHmgnh/LFmzRqL80JDLsI9/nCRAtJb
7B8q4IL69eurUwx7FAEd8ZW3uRn4EU0v1tXC+QsXLtRoLeScWByHodIWSCAa
evny5Tgsmt9bCszjeKhbc2gVa1QvGzTB7du30Vo2rDFwM7sMYd40CiAfKCIm
JgaDUUcf/kmuIegRS8MqyOIRimFhYSRxcXFx+/btM6wEfetQqyhtOByu03RC
moyzuxVNPP8rwsWCICixatWqqdmYNWsWNcAFFA/zU9+E2MEFsGvevHmpEA0L
8TcRileAWmvWrIkOX7ZsmbejHs1FuFgZmpycHIjdKgwnhOPjo0ePdr73r1tw
UYR7sqeFY6gIWqULlMZCl4bqTHCLIpwslTjOZaQMBw8exLDXrl1LaoZtqGfn
qmEYiZDWkydP1izhEQv5yTfr1q07dOhQ0XG3fv16V14w5IBkcGGqTk0m1APK
h1hvklnfunULZhP7pMEJeDp/4y+CBmFsVIFikwhC2mXr1q2nT582z1+WLFlS
rFgxzSgehdSnAyLJolEMkyw1rIhwsfBw8eLFht/u37+f18Q1SpcuDXOKTjy1
yoXVEaVKBVJgHrdr1y5qSU/R1u927tw5agNj5ltKqGxTj0uaKF7DOnQCSoKY
IYrNnj1b3XxZWVmYDUGNV/BJQYbYvXs3pKRZ983ffA7t07jYjO0ufdv9tJiB
yMTHjRtXuXJldWwi7pcvX15QTUiWyRhOCCc/og5NevnUyAki3BCGXOTJbhFk
LcaATxF5q1Wrljt3bs1uJzYoAoKCr6g6/VcY+fjx43kKxomMQYfzt3qhK96H
/lEqnNISg4g4hw8fNhfDPA7fX7FihYX68A2sEWPQ15jrCLIIN2kaAZGhP5sN
7IHoTCUQl+vVqwfVY0UjRoywkpVoYNg6GANiVc9CJuPsLkYTtQgXC4JiY2Nx
YR6hvKB6Py4Bcn/hSmi54sWL84dmgzsuQOpYHBMxF+GiWwAxEIjtNzMyMjQT
wvFB1BdBJ1Q7/Ojhrggn5KGmMAyHOxu7BYsiHIsSXDR27FhMZenSpVTIlClT
TA4YMoxEx48fX7hwoeZBn376KVktgko4hZiD17VrVxMboAykz3hZLsvgYjzR
9j5vtsF75cuXD4dVEywGzyv37dvXm/65fv16ZGQk2vvdd98V1UI8ggzJehyO
tG7fvj08PNykpwg+3LhxI81HzKUMVrZmsiLCjxw5wnMNB5GvXLkSERExadIk
0TpiM168iUghLkA0TpgwwWJvrV93403VO4RbhM869BcoUjhh9OjRGuWPeaSm
phJukCjelgGaQNmuAWNTjl0YMmQIBEt7kQZSM04GGe0pBxqI8PRjNrp06UII
U0+dEjPfnEzydwgxHg1LQ19t27aNjo6uXbs2/7TYF+rJwSLckIswEjgZehd9
I6IzUOwq742BrVCEWK5CPqWf9wKhEeWhMkS1IEBuxUNJx5S+UFzS3gksYq9g
t7oNhTWSkb3//vvO72aCYIpwk6YRQOxBFAUKFJg/f76wATgzPj4e43G46NVn
61gcZ3cxmqhFOIleuXLlTPZEEqBO+vTp07FjR2UxKQ9t06ZNjx49hE7m56tX
rz5w4IDFajEX4WIf6UCMvSoTwgmC6HzoDiMUSk+9GWnI4a4I37JlC3lHEJza
IiyKcFhXNE1KSorFO+sjEfefM2fO2bNn1ZdhtOTUmpSEx/Xu3dt8pyncOTMz
85RlcLFhr2lAce/evbp16xJuNANtMECVKlUgGcM6hyWIgJCV5riiJUuWYGAO
afDgwYOFCxd+8803Db+lPEhB2pogSPFwTCua34oIRwBAm/q1bIhAMjv1nE8B
TIIkRfQkwGbLly+30nZ+3U1MLHzhhRf8JTfzOtQDrp4xYwY0wuvr3wIJSluT
Yel3exBLk8RoiI2tLL/77ruWLVt6sxnaCwHcqlUr22mdDeXAG7322mtiHPzq
1atly5ZVT+wUp1rwvt5WDtoG+nnZsmXYxqJFi0w6lMQGZWJJI0rg2rVrly9f
prmjoqJGjhxpwpBq5EwR7o2LcA2MWb1V3enTp4sUKeJtspxFiuCywYMHk7/o
C4+dkwZqzjEnEiGcaCOKIU7+tbdxPY/joQQ1iwJeiLSJEyeSSmjWvik5LJHd
20QCt+CkofGjcF9QrwQ0aRrPk/1A0NurVq1Sk5XY0n/YsGEWvcAQPlvH4ji7
i9FELcIRb7yjT22Ga6NdNZtN4Sxdu3YVIZv4PmbMGOsnbJqLcLHEw7oRmpi0
BmJCeFhYGMLsWjaQZ2QrJGgOd193F+6KcPIjXpmQarghT/BhUYTTOuLUJG8D
QHroIxGWCadpeldOnDgxd+5cjUviqtC7jdEuh8BJ169fP3369GnWkJaWptn1
XQ3edMCAARUrVtRfI5IabxtWUIZnnnlGv2sliX/evHkdbsp09OhRWA6a8nYB
wZEsGMmBrVqcJWVFhG/evJlYrz+BnQgCX+n73H766Sc+x03EGXma5eTe4Nfd
+BCzh3/8Tfl91qEG1M+rr75asGBB/Q4kyho6QwdUdr8hQNuYsYbblilTBqFr
WHvKxin9+/c3X9aKucLqO3UgQahevfq6dev0XxFMDQuMSSNrcTT+IBTmzp1b
fQABPBAfH0+RSA1srG4zAW1NQBeHCZp0/osNyiiAes0af9B8ht1uhrAhwl2s
YW/vZchF3IE0jUeohTRETUpokgdZoQiaslevXuozsBRkZGSkp6frs1GslHvS
7qQJqamp9pZak1A3bNiwe/fuFkU4xeB1evbsifDQTIJVrNHb9p68O1aBaIGx
N23axHttyobJSp9ANLQohjnU5TdpGk92nwCxqUOHDppXvnv3LlXUsWNHJ8u1
fLaOxXF2F6MJApj3Jfv76KOPtm/fHhsbaz5czh0Qt5oUUmDLli1EZywKS3jj
jTdMbqK+GwkFN6xXr543ES6SwdKlS1ucpG1i0hqIxAo5qqYFzIkcLVRHvhrC
RRGudLMEYmTBHiyKcAwV1WG+ca4G+kh07NgxAq66Gnk6HqdvbkiYigrcxpje
gMWSfVuf5YJURocb3orCo9IjIiI0Pf8CvDI+lZKSojcq6i0qKooIqHcfai9P
njx4upN3/OCDD2hKG3MbTGBFhBN2ea6+kwEW8pZtIVnfeust+AFFZLH7xd27
eYONOiRSk8bqJxUjeAi+GJLh4nd0SKdOnbA05QxlvwC9c2cTQUuFcAGmaBLv
xJKN6Ojol3SIjIwU0xv0XymdQt4A1VMwcgT1XBTlAN+4uDif7k/B9u7da31/
IQI0b0q0NblGTAgnXVLHd6xl1qxZhmHXEP6K8ADVsAITLoLPYXVNJ//nn3/O
c+vUqeNzMYgJyHTQWobDTHxiKOT4EEqE91atWmV4Xq0ViKXWfu3nKaZFtWvX
TiPelJ0e+dbwbjyLok6ePBnlBjMLuY6rehPhgW5oizBpGjH0BicgRzVfCcHW
u3dvJ3HZRusYwsVogssnJCR069bNYu8WIRsHMWRjtD3GQK2imb1tnaQBpR09
ejT2Q7V7yzp5opiUaH3rS28mrYGYEE46prYErHfixIk5Z0K4x1URLjarEWus
HMoAt2BRhBO5kKbQsjKAZT7C7jGKRG+++aamJ/DOnTuLFy/WOLUYsHb9wIVg
AlNZuXJl06ZNDfcJ9DyZGmdoVIiKIkWKwHX66cFwBek/CbuTshHdwsPD9Rzr
BFZEOE+k8N6GFw1x4sQJcrSFCxean9cZ/Lv5W4e03cCBA1988UX9AKVQQWhR
w85qsS4MU7E4EKCG0otumOsJbN68GRImO7C3z7aTMXSagzrEztV6TEx1oMw9
e/b0GeuR8YmJid7mtepBCC5WrJiyIbwh9u3bJ3YIV3cCi2PTrcuGHDUdxYSL
eK/Zs2fnzZtX08lPLKtYsaL6lG0bEPmUX0qeouKhBw4cwGJtD4PyuHr16vXv
39+6VqStq1SpQp6iCWSKNcbExJh3/6IGhRfbPtAkmHPCTZpG7L9q2IO6c+dO
xPnUqVOdTOm00TqGCHk0MYTYL2Xv3r3Lly93cUI1t0pKSiIKWOc6byatBuYt
dv5RTosWwNStPyg4cFGEnz17tkQ2lA0YQw4rIvy7774jd8idOzeCWWlTkxF2
AX0k4u8FCxaorWLPnj36UEXWP2jQIPMhIbiiV69exYsX/6NlEH/JDYMwxYUX
3LFjR/v27dU9/NQtb6o8nTS5Vq1ahtvji95L/doQsbNr48aNHa4tJbuxd6ab
CayIcGIrz/VLmaAMR44cmZyc7MrMBBfv5m8dfvnll/Xr1x8xYoS+uclMae6o
qCi9PscAVq1ahUhGS9vI2cV59CaLCPB9vB7fN3y6FdhWDiJBUPr/eTtF4orj
21q2bOnzNGrYA0ayGOy4bNy4cTidSQ+VMlKp2SHcX+QcEW7ORfyBTZLya2Zf
I1dQOPYGX9RPwd1MDjwyREZGBrp3w4YNth8NT1avXt1k8zo93nvvPQLE/v37
9V8JazRMn9VAdIWFhbVq1cr2EeouinBSJ/NuTJOmEYuV9N4nls8UKlTI2+a3
FmGjdQwR8mhiCGoeWkMummw7YwPU1bBhw3xuaKyGiUkr8LZDeA6EWyIcVk9I
SMBV9eeRhRBWRDhZp9jlTDN65W2EXUAfibiyWbNmSocMj05JSdEsN8NTEPya
DTn1gKLJaFAXf7MMLv7kk0+CsOD3yJEjPXv21Cyyo+rGjBmjVKBYMdepUyd9
rEeVUdv6Q9g3btyYP39+5zs34nH2VvmZwIoIJ/HkuX5NaEc5REZGWp96HbS7
GdYhMhLNPHTo0FGjRk2ePBkNo2yWi+FxPY6GwMDRBgwYoHQ0QRc0d+fOnfUd
rdRqw4YNKbO6V/bGjRtIAqWq+RV8Ytjxcu3atdKlS3ubEO7JXn9HGosS1hub
RdhWDijh2rVrI4lFWKEASkZz8+ZNiLRkyZLm0z+4jHrWdOWZNIHo4iPojB07
Fj7v3r27fghPmRCu6SvwFzlHhJtzETZDbRQrVkzdSS6OPqT+HU6B4D7z58/H
wPwaZEH01qtXz8n5pzgIhdd3Ynz44YeDBw/GAYcPH07koomVjSzmzp2LYqEq
+LZv375paWnK0l3uVrFiRXPChMPFJqIIMNvxxbkI50WIm5QkNja2Tp06FSpU
mDZtmuE0Y5OmETJGPw4FmXBDbu5wlzxvreMvQh5NDAH/9OvXD3p3dy9Bbtul
Sxd9ZgR5JiUlwXXElBUrVkyaNEnMVzE3aQXKhHCLfcLowBYtWigmSr5GRCOI
eJ4Mt5FekdGr07Rdu3YhDJwvsbcuwvFWbyIck8bwiHcU23aybAhCFa2AwrTn
/sraE28iHO4qV64cWZhGbJuMsAvoIxG2RCqKI4jNx2hEnF1J7vh269atYnFK
SPYHdgXYMzWpsTqaBtWENlAkt6g9w1l53AHX0JxAh3XVrVvX3llsmpIgTtw9
Uc5jTYTzRJ5rMjVCjytXrnBbGzMxAno3wzrEqWlQcfStJ3v9dZ48eZYuXSq+
Jejzz/Hjx//4449iEFBZCwltEt30K7+4bOrUqeHh4ZrejIyMDPWeioj58uXL
GwY1Md/b24Rw3BmLCgsLg8Zt9/raVg6HDx8uWLAgxMVr8uJYhdIpR/USQXLn
zg3repsBcvfuXb7VqHTzJhATwuErkf7A0hERERpjUHYId7h1VQ4R4Va4iPQH
tlEP0D969IhaSkxMdL4kBwskxPtVma+99hqawckwBBqAh6pPt8Q10tPTsXYh
Ni5fvkxmSrYluotxw65du4qTa7jy3r17ZAF4mfgt1TV79mysUc3eGpw5c0Yk
s05a3LkIRwMQXsVgK8XmFXAxmtLwxDFvTYMTRUdHaw6pxA2xh0qVKjk/GUHf
OvYQ8mhiCCqN7N51nU+bUnLITe2SSGj0A/5CDSCwybyUjd/NTVqBmBBucXMw
bKBXr17qRGDLli2YvRKJxMZWGImyhQulIndwMjykwKII5/WFJ2o2LiPKYHgd
O3ZEn7s+3V1oOSR0iRIl7I2AEKDFiTD6XYMISaT2BQoUaN26tX7dlskIu4Bh
JKK5aUpCf4MGDfgD0yIa7tixgwdVrVq1VKlSMMnTq8BxcCK7t1WcpKVqEyKL
RxXo+yLwIFJpDEYx3QcPHnTu3Bkvc7JOSkAsyYmJiXE3VbciwnkvnuvXRNPM
zEz0qltnp7p1N30diiOb1dPMiDJwIIHV88RJlb0IxCobEnZBVvxz+vTpiO1j
x44pj8CnVqxYgdjWnCYpBLx6WwNolqCmX8XGayIb9FbnyXbMV199lScSoxct
WuSkQmwrh4MHD/J0MawDRYhQonwLKVFjcCnJjobAqXzIPz4+XrO7lHkTeJ6o
DmWIjc/5p3oHA+6wadMmHooOd3hUXE4Q4Ra5CM9Fp40bN07QOB8uXrw4KirK
3gmqGmRlZUFxZEMWr6cJFixYoFcLfmHDhg1lypRRy8WPP/4Yw8DUhSuJ6bKT
Jk0SNSD+qWxUJVYOkiMrP8caExISkCvJycn6XUpgFQQPIdJkyMkKHIpwftin
Tx/1wj38WoxxT5s2TS9dTJpm69atFSpUUPwI+sKzatSoYb6YwiL0rWMPIY8m
hiD9J3a7rvNRX+XKlVP3y/Gg1tkQ9ChCDHYrpqr6NGlPtkIWi46RYVZWu9y/
f79mzZrKPcX0JLS9EonEOUfqFsFgUHS2h1nVMBfhfIiJiiOTBPDW8uXLV8sG
f0D1pGyjRo0yEcnehhV8QgQOHlG9enV/OZ8qwrPEmm4B3kIUmwIjAKhA6AWR
bNglYjLCLuAtEnE3aBYBrw4KkCTta3FBcc4E74Wdm2ylojmB7vTp0yVLlty1
a5f+VngNdBEXF5eenj5z5kxse+nSpa7IZjGxXL0nsCuwIsJ54pw5czRL3syB
bYt9g90oo2t309eh+KRdu3aiz1lMeFam8Il0VRlpgvF69uz5/PPPK/XAr0hm
0X5paWmHDh2inOTFCCGSd01pxSw+ZR2NOFdF3fngyV40yqPF+aoArUudC7/m
D6QC8jsyMpIfOl99Y1s58CLEUNhj9uzZU6ZM0XeVwOSoJnFWLDkLyci2bduo
1ejoaHIW/eibeROICeHqSZVQUL58+cQx9NQeLsazFFelitAhgwYNsteHE3IR
7hcXXbt2jaQSC4SLqCVox63dyZCsLVq00Cz7MgECiWI4WTAltIEiTjxPjiMh
tClZm+bEdvIyml4ZvyaK4YmEM/VtsUb8ncsQkEhxcrd9+/bByd26dUOfX716
9dKlS+Q1ToYpHYpwsV8TzqLu1RGHkhjubmrSNNQYUrl58+ZLlixB+PGOVKkr
K/X0rWMbIY8mhkB+DxkyxN2pDp7sxS8YntovsN78+fMrmxiLs/+UmfbmJs3n
MCHsJ6ggd+7cqC+fMxA+/PBDvEaRK0LYc0/FfsQwonKwLAbWpUsXBKQrtWGx
J9w2TIYVrANOMN+f3HWYjLALmEcicdRaSkrK0aNHMd2cM0k+aICx0QxiRN7w
AoQKiRKW4OJWjWg81IW7E8I91kS4J3thMk+3eI4Yby2EgRsFdPNu+joUEVA5
Zh3aadWqFUpb9DBcvHgRDaDsZ0imGRER0bZtW3XI5odwLAnXyJEjEZ8wnmHv
BEKCW61du1b8U3Q+wHVOdrFwAifKgRekDrOyskyY/5tvvoFAYAliN1Kcv71R
unkTiMneSE3RD4bH4XfFihUL0GENIRfh/oLQgxQniMA2LoY5cexLnTp1LPau
kA2RmjmZKQcRoUbUCbJQC0hKIURFZztqQUk0UDLqvYneeecdIW/0N1dbI9lK
enq6i5tIOGzoM2fOYM+Qg3oXyt27dz/77LOG+4H7bBo8hVudOnXK2+bVNqBv
HScIYTTxhp07d0Lg7m6tjD+OGTOGeKFQn+h7KVKkiLI7K7GD1ifLEP+0btLW
gbWoN/8RkUg9kkJDIFzFqYsYT1JSUpMmTdxykICKcPNhBYvApAnxwTzl2XyE
XcA8EiHYSpcuffLkyeAUOGeCViMTcWXk1wrEZgi9e/d2XbNZFOE8F11ECLNC
U0SH6Ohow13WbcCtuxnW4cGDB8PDw5WNvmE/+IpYw0M3btxIICPoK/tOkywX
LlzY+skvaohhL2VcWHQ+IN2J3UiC4O+rf/r06c6dOzvcrscVmDfBv//975Yt
Wyrr5u7du1ezZs2XX345QGPTLorwnFPD9kDUrlatmsX9Zonj3bp1c9KfvHfv
3ho1aqjnA4gjGpX5tLQ4jyBBo40wjPv378+dO1eZFss1r7zySuXKlYN/Uonz
hr5586Z6Ba6Q2bmy91c0HEX1q2lcgb51nCCE0cQQhAZUonoHOVcgZnSr55mL
893Ui5LWr1+PAObtjh8/fuzYMddNWozeNm3aVBmCzMjIIBJlZmYSjN5//31e
efr06WJM9vHjx5MnT0bTujgtJ6Ai3HxYwSIQ8FOnTg3OFqMCPkfYPaaRSAwW
u34y9VMHmptwoHRsBhpZWVlofp87z9iARRHuye7wgVI0B2cbAtfGkd0608qt
uxnWIeGPcCb26iQ0wBX58uXblw3ENvxP5YhgR8LVpEmT4cOH28iDxGAuUlMs
o0NO8CCxHIyahxVDspgih4xhmTeBCFuCryCrcePGQbPWT77wFy6KcE+OqWF7
gOqnTZvWq1cvn7PpRP9eamqq7TjLI3hQcnKyusZwk37ZEGMipMB4EHn07du3
KRg/Qfk3bNhQ9IS888475cuXF5OUgg93G/qbb75p3rx5gQIFvO1TZ71pXIFh
6zhEqKKJIbg5j7B+mqFFrFu3rlmzZprlYJs3b65ataqYAEzmhQHXrFkTAZyW
lkaEct2kyVXJnqKiosSwyN27d+FPCsAfCP5Lly6JE3A6depEPZPkTpkyxcb5
ziYInAj3OaxgESh5hFwwQ7CVEXaTSCSGCMlMA7dj59MC/AWqtL7/p21AfePH
j09MTHR4VJkhrItwEvMxY8YkJSWZU7E4KHzo0KGu9O66dTdvdcj9YUUYeNas
WSg9VB+M1L9/f7HMgW9R4BDUvHnz4uLiKIm9DljhNYUKFXrppZegPkgpPT2d
2/bp04f6NNwD4fcD8ybwZKv02NhYcdj6oEGDAlpd7orwpx1UNRZ78OBB88uI
BV26dDE8N9Yi4B/kir5j5/Lly23atJk4ceLo0aPnz5+PQmjatCksJJZCIw5T
UlIGDx48Y8YMCuBwY5ycAxLSZ599ltc0YRuLTeMKvLWOE4QkmnjD2bNnsSt3
XxDuatGihX6msVhGBL9hzAQC2rp27dpUxbJly3hH1036+PHjxJ2SJUsOGDBg
9uzZ+BFkyxNFzz/REMFPFgDlUgD1dAi3EDgRbj6sYHFX/Bs3bowdOzbI45Vk
DT5H2E0i0cmTJ8PDw02mQ/9+gAGnpqbiSoGuinfffbdDhw4BGnqwLsI92cwf
ExNjfiw1TDJkyBCH+yS4fjfzOoQYr1+/LkIeT4SL1Jz/+PHj27dvO2nlc+fO
kaGTbj98+PDatWvK9GbKE4jE6mmEeRNQV3fu3HF92ZQeUoRrADPg8uZjtXfv
3m3VqpV+Gy6L4OYkpN5mCNP0t27dUp+Vpump4+dB6AkJGrKysqpVqzZs2DCf
u7FZaRrnMG8dJwh+NPGG7du3JyQkuDjDDaOdPHlycnKyN3rHjKE4ZRWMxoDd
MmmRwpQpUwajwkl5olDCkC33D07frxDhcXFxJM6nTp1yt5vdfFjByh2oiiCE
FQ3MR9j5hAwCj4uMjDSMRHzbuHFj1wdunlJgUbAlyWzg7Pnq1as9evQI3Iw4
ZcUNLXv+/HmfUpOSdO/e3cTCobJFixa5lVO7crdA16FPbNy4Ub1DuEQOhE/q
+32CGEryOGrUKBNNSBBcsmSJvXSS244ePXrNmjVBOIst5wP11bZtWyrEyn7I
VprGIQLdOkGOJt7w9ttvW+yGsgLEAKoeYeDiwlh7wCVRv1aOMA4cxHb9ZcuW
LVWqVI0aNTQn/DqE+bCCiw9yFyYj7OKsbfKmEiVKVKpUKRAzkH97wNGWLl0a
oG5qnGj16tXuHqSrwaNHjzCGUtmIjY21cgb6xYsXKdXT0oUbhDo0h5gQbvFg
BYmQQFKfCQiju3btClCdHDlyZOfOnVKBe55sVY1isU6tAW0aT1Ba5+mKJlZA
Ok9OGnIF7nmy+6tf5yI9jTAfVsixcD7CLiEhYQUkuYjwOXPm/LaZUEJCwjZ+
+OGH8ePHr1y5UgnKX3/99axZs3KClpN4SnHr1q3o6Ohgbr4nISEhISEhIfEU
4eeff160aFF6ero6T798+fLEiRNz8qi6hISEhISEhISExFMKhPeyZcuKFStW
r169+tmoW7duxYoVCxYsOH369JBsXiohISEhISEhISHx20ZmZmbRokVz6ZAn
T57NmzeHunQSEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEsHG/wPU1475
     
     "], {{0, 56.}, {983., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{851.6666666666652, Automatic},
   ImageSizeRaw->{983., 56.},
   PlotRange->{{0, 983.}, {0, 56.}}]], "Input",ExpressionUUID->
  "da954528-0e86-486e-886d-616cb2786b0f"],
 ", FieldNumber = 12"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 
   3.7489657980188217`*^9}, 3.7675393590312347`*^9, {3.7675398583456163`*^9, 
   3.7675398624754*^9}, {3.767629280013187*^9, 3.7676292873384743`*^9}, {
   3.768070102649458*^9, 3.76807010341292*^9}, {3.8318211757101755`*^9, 
   3.831821176054186*^9}, {3.8318212250410357`*^9, 3.831821225462812*^9}, {
   3.8318294604157405`*^9, 3.831829467991518*^9}, {3.831830091683408*^9, 
   3.831830119307135*^9}, {3.83183039911767*^9, 
   3.831830399436865*^9}},ExpressionUUID->"38a58f7a-116c-405d-b2c5-\
803a8e7ed327"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "12"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.7676306819160223`*^9, 
   3.7676307019645357`*^9}, 3.831829475160224*^9, {3.8318301282398386`*^9, 
   3.831830128427283*^9}},
 CellLabel->
  "In[386]:=",ExpressionUUID->"c3072e66-29e3-400d-8e5a-9f0eda46b59a"],

Cell[BoxData[
 RowBox[{"\[CurlyPhi]", "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630695973481*^9, 3.767630702420961*^9}, 
   3.767630736617812*^9, 3.768069029703578*^9, 3.768089970288188*^9, 
   3.8312204959989634`*^9, 3.831222243133398*^9, 3.831805884463417*^9, 
   3.831821543075192*^9, 3.831821615781942*^9, {3.831822067139452*^9, 
   3.831822083189903*^9}, {3.8318221168790903`*^9, 3.831822124229101*^9}, 
   3.83182237608669*^9, 3.831828156599307*^9, 3.8318294762749405`*^9, 
   3.831829549740491*^9, 3.83183013100054*^9, 3.831830212034797*^9, 
   3.831830246409827*^9, 3.831830331683629*^9, 3.8318304182526894`*^9, 
   3.8318398050272856`*^9, 3.8329475177167473`*^9, 3.8329618028904877`*^9, 
   3.8458268954046545`*^9, 3.845852485193149*^9, 3.8458570956879177`*^9, 
   3.845919643887159*^9, 3.846006594161016*^9, 3.8460999059749823`*^9, 
   3.847470468639407*^9, 3.8517006540739374`*^9, 3.853975468780898*^9, 
   3.8549774298980536`*^9, 3.8549892816869993`*^9, 3.854999919446339*^9, 
   3.855165269497175*^9, 3.855182338128112*^9, 3.855185881507308*^9, 
   3.855330660679965*^9, 3.8553398651152096`*^9, 3.8553432029348125`*^9, 
   3.855344036279882*^9, 3.8553527635553513`*^9, 3.855449626127178*^9, 
   3.855507627154523*^9, 3.8555084250133457`*^9, 3.855512913470592*^9, 
   3.855533345219473*^9, 3.855578938991154*^9, 3.8555933109996133`*^9, 
   3.8557506235141*^9},
 CellLabel->
  "Out[387]=",ExpressionUUID->"7376ef40-144f-4864-87a8-326d1c6a1e1d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{
        RowBox[{"sigma", "[", "3", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"B", "[", 
               RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
              RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      " ", "+", 
      RowBox[{"2", " ", 
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
      RowBox[{"I", 
       FractionBox["1", "2"], 
       RowBox[{
        RowBox[{"sigma", "[", "1", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.831821548575319*^9, 3.8318216060627775`*^9}, {3.831822072025206*^9, 
   3.831822074309018*^9}, {3.831822110039128*^9, 3.8318221104452844`*^9}, {
   3.8318294808204727`*^9, 3.831829539826767*^9}, {3.8318301355715485`*^9, 
   3.831830190625273*^9}, 3.8318302372390122`*^9, {3.8318303062865815`*^9, 
   3.8318303140423822`*^9}},
 CellLabel->
  "In[388]:=",ExpressionUUID->"bd7c3e54-78f5-4d8a-832b-b34ab7e075b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"FieldNameList", "[", 
      RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.8318220912578692`*^9, 3.8318221206819324`*^9}, 
   3.8318301958618183`*^9, {3.831830318744608*^9, 3.831830319135913*^9}},
 CellLabel->
  "In[389]:=",ExpressionUUID->"0d024189-be16-47df-9eab-5abe4ef3569b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.768069030126391*^9, 3.768089970566922*^9, 3.8312204960819893`*^9, 
   3.831222243251432*^9, 3.8318058845321503`*^9, 3.8318216161991186`*^9, {
   3.8318220673581543`*^9, 3.8318220833984103`*^9}, {3.831822117035342*^9, 
   3.8318221244009366`*^9}, 3.8318223762236786`*^9, 3.8318281566461687`*^9, 
   3.8318295498517356`*^9, 3.831830212266634*^9, 3.831830246628562*^9, 
   3.831830331824182*^9, 3.8318304183493214`*^9, 3.831839805078825*^9, 
   3.832947517763615*^9, 3.832961802936366*^9, 3.8458268954671125`*^9, 
   3.845852485253531*^9, 3.8458570957528543`*^9, 3.845919643934054*^9, 
   3.8460065942441845`*^9, 3.8460999060218534`*^9, 3.847470468701893*^9, 
   3.8517006541363916`*^9, 3.85397546885739*^9, 3.8549774299917774`*^9, 
   3.8549892817508*^9, 3.8549999195088253`*^9, 3.855165269575245*^9, 
   3.8551823382062483`*^9, 3.8551858815827103`*^9, 3.8553306607580442`*^9, 
   3.855339865193291*^9, 3.855343203028514*^9, 3.855344036342331*^9, 
   3.85535276362014*^9, 3.8554496261984158`*^9, 3.8555076272343063`*^9, 
   3.855508425064784*^9, 3.855512913535475*^9, 3.855533345332143*^9, 
   3.85557893905361*^9, 3.855593311036276*^9, 3.855750623592207*^9},
 CellLabel->
  "Out[389]=",ExpressionUUID->"28c29f4c-bad3-49bf-a2d6-f6185b0bb1e2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9},
 CellLabel->
  "In[390]:=",ExpressionUUID->"322dc9d8-eaa9-47a1-9d34-027d25dbf752"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwFVXahhEQEGSRXQg7iKwRBGEGFBQhbIGEEAKCbLIkgOwEhIQdAQFB
9lUWJSAEBScMFLIbtgmFbCIWCOIIgxYuw2Dp1PxT+Z8/p+zqv7fb93bfvjd4
3iqtcHNz+vQ53/d+33vWagNHdRuSN0+ePOMK8b9uAya+OHbsgDfiSvCP+JHj
koaOHDyow8jxg4cOHtt8YD4+fJb/2ubPk+f/fs6WkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQCDL++9//btq0KSIiYuPGjaGui4SERFBw//79nTt3Dhs2
7LXXXtu8efODBw80X/jxxx/Xrl179+5d1x9948aNZcuW9e3bd+zYsceOHYNw
NF+4ePHi1q1b//Of/7j+aAkJCQkJCYk/Av7nf/4nJSWlcuXKhw4dCnVdJCQk
XAbyYc+ePZGRkS1btuzTp0+zZs0effTRKlWqrFu37tdff+UL6IiMjIzWrVtv
2LABNnDx0f/617+mTZtWvXr1Ll269OjRo0aNGnny5GnTpk1mZqYQNT/99NPc
uXP55Ny5cy4+V0JCQkJCQkJCQkLiIQCCZfbs2TExMZcvX1Y+vHLlSu/evRE1
BQsWrF27dtmyZV988cWzZ89alHP+/Pk6deosXrxYP7dihlu3bsXHx7/xxhto
FvEJuunjjz9+9tn/uw6oZMmSPLpUqVKjR4/+/vvvA35BCX/x1VdfJSUlNWrU
qFq1aj179rx69ar4HFNZsmRJamrqF1984U1NNNpZTs9JOIfGqOArd4doJCSc
47fffpN09zDhl19+sZ8aSTiBZPiQ44cffmjfvj0iAh7z8rl4WWZmpuFDr1+/
vmHDBhTK6dOnfdrDjRs3Jk6ceOHCBfuP/vbbbxFB+s+h8RMnTpA5r1+//uuv
v7ZfYK4GLfzmm28+/fTTNLvmV/fv309ISOjcuTM/eFCN+fPnHz16lF7YvXv3
yJEj6Vnlt//4xz+aNWuGbv3mm2+CXZPPPvuscuXK6OhBgwa99tprYurw559/
DvZzJTwAnFO9evXNmzdrPif0rFq1qmbNmkGajf3Xv/4VFRXVoEEDbCkxMRGf
eu6557C0YDxLQsJfYP+ffPJJjx494uPjn3/++aZNm+7cudNfXWMRSgIYdZRw
AvIrMpmYmJi4uLjIyEj+f+nSJX8LCRVb5kZIhg8HkKnOmjWLBFLyzB8T9PuO
HTvmzZuHP2p+9euvvy5YsGDbtm0eDDLwiClTpsyZM8fMDt9///3HHnsMnRvs
mpw9e7ZixYr58+fPkydPRETE9OnTlVk8idyOzz//PDk5WZn4U2Pv3r0zZ84M
Ul9DswS7QoUKYVSPP/54QkKCelZaQiK0OH78+Lhx44Txo2JmzJgB2W7cuNGv
rMAilAQw6vjQ4N69e4S2gQMHtm3b9sqVKx48kWC6aNEiuk8E7rt377Zu3Rr1
4e/TQ8WWuRGS4SUkJBRkZGRUrVr1yJEjhr+9fft23bp1YQx9rHQXn3322bRp
0/7973/LRRcSboFgR7r47bffSqOSCDfAda+99lr37t3hWPHJ119/TfbbqFGj
7777LrR1y+2gbdF3mZmZ+P5TTz2Vmprqwbgx3ffss8/Onz+fp4tPPvjggwIF
CowdO1YufwoSJMP7xIMHD9auXTstBxs2bPjll19CXaNwwW+//bZ69epRo0a1
bt36/fffVyji008/nT59+tSpU+fMmWM4qiARtoAQ2rVrV79+ffUyMwXw8KRJ
k0qUKHHy5Ek7pV26dCmwrU9CznhASl988cWdO3eC/RQJF/GPf/wjsPFVJdi5
XiWbkMb20IOYmJWVpWSw9sGf9OrVq1ixYseOHROf/PTTTy1atKhQoYKybOze
vXsBrFaSOH/+fEpKCl1z8ODBIkWKIG3sy5mAQxgBtHLlys2aNfvhhx/EJwTN
4sWLx8bGCvPg/5iKOHBJQo3gMbxkYNq2Tp06mCV2+MYbb7i7heGbb77B0V55
5ZUJEyboj0cOZ5DZrly5EhWDVw4fPvzPf/7zjz/+KH61a9cu2qpjx47kvR98
8EFo6xk+wHIOHDiwY8eOM2fOKBPEcOyKFSuGDRtGi2mkH3Ft7NixMTExr7/+
erBnQwSo1TvvvBMVFfXoo4/26dPHULmfPn2absVcrYeYiBfvvffeiBEjAvMX
5Ax+sXv3bh6E0x0+fDhII1qff/453ufBAgwahKcsX7581qxZtEwwzjzPzgm+
R48eDYc1q7du3UpPT//4449pYSW7ox8x6c6dO0ML6krevn07NTV10KBBSGm+
b1Hs5cuXyfouXrwYQJVEsDt06ND06dPHjBmzadMmD/ajqfGQGVvuAhRKMkM0
VxseP7u4Iw9zGj169LvvvhuYA1KTr7/+WvlbcoOnnnqqcePGyuwMr0D52K1h
+WahxGzU8Y+DEydOICWIIETSUqVKWZ9rpMBhCMvO2SCMAlX+CR8WLFhw/Pjx
IpaJ8ukXMwt0zpae4dy5cwMHDsT2unXrtmjRIvV27OPHj3fv3h1LjoiIqJgD
fsBEFZWnQVAZ3jMGDltAgM8+++xf/vIXw9+SAZJuJZiApsMgt2zZYth3CPOp
U6diCZs3b65QoYLHExnnz58fMGCAWc379+9P3TAMs4EmiJdY+SAHUTnQyDFe
GY1jJmcws2nTpvXs2dPw6eTSkyZNSktLe2h2f8Oor776Ki4fGRmZJ0+evHnz
QkcYwM6dO9etW3f9+vUqVaqsWrVK+T6SZ/LkybQSCWG5cuUyMzODXUM6FHqc
O3cushQNVbx4ccOH0ssIVQS+9Sg3/tK1a9eAR0JwiqZNm+IXSCoap1WrVrRG
kA7KOHLkSJcuXUi/g1G4AIX37dsXd6OvCWpotBo1asyZM8fdoTmy1iZNmhD+
PD5RRAMYA0vGhfFuTBdrL1asGL5MP+LU33//vTjaQqkk9kaIJ4phLfXr14d2
zDIuErzo6OgDBw4EVjGyQQybeMeDMGN+aNOmjQfnWqiR240td/E2eSPZFKz7
5JNPVq5cuWXLlg0bNqxbt+7KlSuxUswM6UE+6cosMPbMu2O9AUzN6EHdli1b
VqhQIVxJ7Q74eFxc3J49e/R/YhhKLEYdNSAfINt/zQawKI+9xhUIeYj32Rw3
dhjCNIB84K5KlSqpE3UMjyQqOTlZz9jO2dIz7N27t0GDBmJW8YsvvqCRt2/f
np0TCBYuXEgIIPNBfxHQUXOw7tKlS83GJz1geA8YOJxdyVrOYJCIffIu8nkR
uN955x0olFTw008/3b17N3GEDLZIkSIpKSkakqfryR5pdqIPfa0W8h4AIYZa
Wbx4MexHzRs1arRr167MHBw9enTr1q0jRowoXbo0oZDPLcbGxaSq3q2s5QwF
Xrp0CQYmAePpJNI4Rebv2L9//8yZM3EEVB4ROeQO6xB4GXYrDmrjxfHWXr16
bdiwgdxg+vTp2DMJQMmSJZUdK2KtrzgSGXMqU6ZMYIMVftUQHlBmZKAjIqnh
lv+bN2++8MILjz76KCLdrDSE+Z/+9CcoK+D64BRqwqF9SpQogYUEXKAF6JHZ
s2f369cvSNOjOAK5paY1srKyatWqhUZza0EdPgLVIJNbtGgR2s2hFy5cUJI6
GG/58uU9evSAJKGUjIwM7AdK4cUVSiE327ZtW3bOhbmY+pIlSwyLxTJpRkoO
eJ6OJvrqq6+UBqcm1atXHz16tJcLrXO7seUi3qaenTp1evzxx+li9fHyJIRj
xoyhNfbt21e2bFn1IJITkAPQGm7tczl9+nS1atVIAvXiiLwCH9esxsE7DEOJ
z1FHBWTOeOKMGTMKFy4MjaAB6eWPfwceSqoQGxsL8z/xxBPBjkfBAPzz2GOP
IWDtfNl5CFMDr3n77bcrVqyoT9RxWKxUXyuHbOkZvvzyS/QLbyecHR1Rt25d
EnXslvyhfPnyf/3rX8U3EWgkiggcs6K8YfhgM3B2eLuStZxRQHaXP39+elav
tuhZYjq8+uKLL+rHtGHaiIgI3j0k5E/dkP8EJixQH+wg5969e/Ne2JjZkC8d
RKfwf83n1nJGgHy+devWdKuQ8xrAychDfPbEiRP+vFPY4e7du/q1ZAp+/fXX
bt26tWzZUp+F0js9e/Zs3ry52ZCaW6D7CILEd/FPsaJs3bp1mq8RQwnZK1as
sBjmwk6GDBmSlJTkyiilwLlz56gPxQYp87x9+zaNHIyFkTj10qVLKVw/1bVs
2TJeyq2IiYgg/8GRiSahXR6MFUEmZnMBGFWpUqUM915BoTAJ2ZrhH+7YsaNp
06YujmUh4SHk2rVre7yb5iEwtjDnbdoBW6IOkKphtiCGEEk2aJMzZ844fyKJ
E/ruww8/dF5Udk5KQGnIE8OYCwe+/vrrgwcP1v/WIpSYjTpqgIWQqJCFGm5e
EHNGkH9QB7eDAVqme/fuSAN6Csc/deqURTu4G8J40Pvvvw8tI/YNv0DqS3cb
blYNmC29Aa82c+ZM0ldEjfgE08Xx4f+///3vDRs2pA2VkA3NQrYpKSlmLe8Z
wwePgdUIT1eyKWewWOid6hkGRyq/Zs2aAgUKREVFqVNTPkeplS1bNlSHh+Ow
r7zyipmcyc6JXD169MiXL9+CBQv0dsgnMGSVKlX0zmhHzpDhP/nkk+XKlTPs
8Z9//vn555+nbsnJybn6MBCxv37atGmGb/HZZ5/RAgsXLtQ3rxjrGD58eFAH
kKnVxIkT1V5/4MABbFIzlHT27FkcAYKlMuPGjUP+ZGVl6Us7fvx4zZo1nSQJ
iGiC8pQpU5RoQk7C4/jQRYmkBi3/1ltvNWvWzPVdBoTRjh07YsP643QuXbpU
unRpM7/z9ymjRo0iySlYsGDFihW/+uqrgMtZtWqVEpsCA3ZSq1YtzED/K3Ev
QNu2bfXL0WmEYcOG1atXz1CLQSYvvPDC3LlzAx7zEfdxdOrUSTHyX3755eWX
X65QoULAzRUYcruxZYc3b/OC8+bNIxZ36dLFYhP3J598UqRIkWeeecZ5L4gg
iC25ssQO+4yJidm0aRNNR8nXrl3TjwxAvGTm+qF+i1BiNuqoAZZJx+FrZu9y
/vx5GtbLlSSoABJ+h4O9pNlY7KBBgzCPgwcPrlixwqJA5yFMjX379kF6QlbT
lXSo5tEiPdBvRw2YLT0DFUMvwDnKNtudO3cWKlRo6dKl+BdCTL0q8vTp03yy
ceNGw6K8ZPjgMbAaYehK2S7Jmeycto2Njc2bN6/6Xo+ffvoJ5u/atSuGsWHD
BkOFHlT4lDPZOfunyJEwRf1o24MHD/DE9u3b67eN25EzGD8SjxYw7HEhrqkb
+XyuljN0N1oGnY5H6381c+ZMPI5GzszM1JjZp59+Sgx67733glo92nbs2LH0
ghjTE8uWGjdurHb2Y8eOwfDQhTCSkydPlihRQj/Swm8TExOjo6OdzOSSTkdE
REDXyvAj8aVo0aJvvPFG8Mzg8uXL1atX37Fjh7vF0j5kHbQbNKL51e3bt59+
+unIyEjnpEqWMnr06EOHDhUrVox+CXhshPQPj/OZ81jjxx9/xPGhBf2UImaD
LEUxoVhXrlypHl7my82bN+/Vq5ehYv3oo4/oHSfHOvEs6BerVjgWgiKiNWnS
xOOAkp3LjS07jHmbFkAIkFARsq0n3cSZva+++qrzERKKatiw4bJlyxyWk52T
bAwePFiJArTkxIkTlaObFcCu5AxiSY/yoUUosRh1VAMf6datGx1ncZgwApYa
enYeF9WA9l9//XWHMhxuhBjT0tJoOprCYp+yKyFMAXGzf//+SrOTwc6aNUv/
LpBh3bp1NQP1AbOlZyBSY29YnUgDqEy/fv1q1aqFfNi1axf6UbnCUuQYderU
MZuM8Jjhg8TA6sqEmysJuCVnsnO6DKalu2/evCk+ofvKli27fv16DGPy5Mne
HGClhh05w+dDhw7lOzimZoIbu61UqdL06dP1mtqnnKGXJ0yYQLFjxowx7HFo
GWehVYlQ/r9ZeOHixYt4d4sWLTSLq5GBJH5YPgQFzWrcWczceXA45549exo1
aiQGMb755hs6Tn0+T0ZGRrly5XBMpfcx1A4dOhDENYkTTAJLvPPOO04qQxzB
F9RMiG7Cs4J6VgYP5Y0SEhI8oxearl69emXKlHE4G4JF9e3bFwMTE/1FihQJ
eCulK3IGLF++XKxQ1VDKkiVLKlasSD8SRzT3A164cIHKL126VF+a4Ch6x2GC
sXXr1nXr1ikPPXLkSPny5fXXbXuA3Gts2eHN22SAECai/uDBg9bfhG9btWq1
YsUK5w997733sGrna+DxvpiYmI4dO47PwYgRI9AscXFxhmYPx1arVu3atWvK
JxahxGLUUQ0h8eg4i6idlZWVmprq2XYzt+QMKh5mS0pKGjdunOFBCgpcCWEC
iEpCJJkVvclzyV1JAAxLxngwIY2/BMaWXiI9Pb1AgQJvvvmmqBsES4URMtk5
02H169dXNs7Q5piWWWTxnuGDzcBh6EoCLsoZsX41X758a9euFZ8gG+EZJC0O
G5Ij5e3ImeychZq8nf74Naz0iSeeMNyj7VPO3L9/n4BCsWJrm75itAkVa9u2
bbB3jngAXmfIkCEiB1CPqEDXM2fObNmyJWIBZ1RTltjWRBt6sLObZ7311lsE
0wULFsTGxpKOKomKcExMVKO1MfjChQtrDt7ZuXMn6cSpU6cc1uf69euJiYkk
G/AhYZ0oEOxFwrzFrFmzyBDEiQ2uA2uHQ4hQWLsYbuVBVatWxX3Onz8fcLFi
tSrgh1u3btWsWROHSktLC6w0t+QMirhOnTpFixbV0Obx48eJcSTDpFuaFRQE
HZrCcLeFOJKI3nG44IQQNmfOHLEH/O2334bVyQdCMryZS41NKTw8eVucZ2I4
7KYH4alLly7OmYqgSehUprYDhrhGM48OZhsGqXnp0qXVnm4RSixGHdUwXO2P
18DDytGskMzf/vY3J2/qF9ySM9k5L3L69Gn9VJcGboUwGgrW0vRmwYIFP/ro
I/2XMR46rk+fPmo6CowtPYNYoy6W8EGq1DM6OlrZ5oOlocKioqIgOr4QHx+v
jE/q4T3DB5uBw9CVBFyUM8qi4r59+yqNjDyEbUI1aWhTzsADxYsXFyGMTsGb
Lly4wPeTkpL0Q/QCPuWMWM4KdejPTucRKSkpPK5jx465btehHpAVMoFEETYr
UqSIxpbwLHxKHw3FxpmRI0daLNhADqM0hw8f3ioHDnN+0o+LFy9qRvConuE1
u3z+5ZdfqjfuUU/EmoULkC0nJyfT6fnz52/SpAmco7kDIj09XVnmSkICXfN2
RBbD5MSv0uxg165dxIiApzbMQB9B+3AI6cSRI0cQC6NGjSKonTlzpkSJEuXK
lVMPsfqLS5cuQSZiyo8H8RR8OeBRO1fkDAQ+bNgwAjE1iYyM1OQPVFJvHoJJ
GjRoYMgk+/fvp1/EoJ8e/C1GwoPy5ctXsWLFuXPnagyYBF7ZhCuMliRw7969
hmvM/CrNCXKjsQmELW/TpIUKFUJE2znxgG7l+853u9y9e/eZZ54RmzIsvga1
rlmzhqSuefPmz/5/vPDCCwGc2ShGmcaNG6eODmahxGLUUQ3D1f5koep5eY/h
opyx+TjrECZAZfDcwYMHE3M1vfncc8/hev6mcxSICTVq1EizeCMAthSgAp98
8klqamqnTp2oksV5YgFDbJzp3LkzXn/z5k3DM/0wm6tXr/r0Mi8ZXkGQGFgg
DF1JwEU5w4sgYHlNw7NHQgKbcgYLIX7xtZkzZxIiEZ4rV67EZnjfjIwMwz/x
KWcQ7wUKFNA0BT/zOQ6It27atCm0S0NdwcmTJ7GfqVOn0iD9+vWjDdu3b2+2
qhBnPHToEOkHvLp79+6SJUuaxSBaZtmyZXRKbGwsxknyEPJrWMVOZCjO8O1u
3LjRtGlTXh9dXKpUKX5QHygqvjBp0iSbd5a5W5oAbEPKt3jxYvt/4hPIDbKd
qKgote6jfaZNmzZ79myEGGm/RVSyBg0OPSrqQ+x8pCksTo+xhkM5A4GgpPBc
DPL69es1a9bMmzevxVGiiM1169bhF3BmvXr1SLwNlfuKFSuIO4aDe7QA6QdP
gUnIsYl3/Kw+6hPKpaltTkm4W5o1cp2xKQhP3qbv4uLivI+tiPcyZcqQvZh9
AU9ETURERDzyyCP8v0KFCmKgvlq1asSFJk2aEA4CmAsQG5Tatm1rRvs2Rx0V
KKv91RIJFdanTx93rdQveCxnrEOYwLVr12h2Ggr/rVGjBm7FzxCUkDMtWrSA
rwLYMrZgwQJCmMWSRZtsmZ2zyA1lxHf4/ueff447BGMLm9g4A7E4P5LXM4ZX
IxgMrFQpDF1JwEU5A8nHx8fzmj65xTPYlDMkh+hivjZy5Ej6BbE/YsQIeMZi
O4PPe2foawok/iqXCvXv35/knNaGUgiOnslY3qhdu3aEG/1cvxn48vPPP29x
co4AxEIIw+WFVSNVUIKlS5c28747d+7AQjExMfgauQEtbLi2U+Sx2BveET6H
JHz33Xf0Zo8ePfTJDNEByyfRUnapk3q99NJLvKkIx1Di8uXLUXB2HuRuaQow
8kqVKmkGPJ2AwFe3bl2cXT+jjWLlVxhS165dA7bzjIyM0aNHKxZCs/fq1Ysy
fY4Vm8GJnKHR5s6dC0uIKUKxFEFcTWKYG1DD4cOH8/0zZ86QbvFcw3l/sYcU
J9LvYqaXV69eDeWmpaUJk4NzeCiJorJwl8Jt3mzoV2mYGQRILtq9e/fANteH
obHhvwkJCU2bNiV7NEuSw4q31SDZq1y5MhUL6oEheuzfv79YsWJmO7DEIb1F
ihSBmsRMMXVbu3ZtwYIFBw4c6ET0iaXI+vF8BTZHHRWI6R4akP+3adMGOqVD
ebWiRYsePXo04Ho6hEM5c/v27bOW0MwwWoQwgS+++IIAjYr561//KtJ4QnnN
mjVpNIfLlsTR4maTBTbZMjtnJo4sPTo6OthLPdPT09Egn3zyicNyPGN4DVxn
YAXh6UoC7soZMYLUuHFjt+7bcgibcgYqFnJm/PjxNku2ljM///zzCy+8gOI2
PFyC1i5VqlSrVq2CtLJRD2xb3HxqE3xZf+KiBnAp4QbmUUYL+aFFixbEMrN5
VTwLlhgzZsywYcP27dtn1iPr1q3D2Mhdrbd2eoxbt25Vr15dfdS8AsyAHFsz
6YyndO7cmZgi/paYpSwrtUYApWHAVIzugAl79uxpKMPF6j7cwSY38ppY74QJ
E0aNGqVfw0NCiLNj4Vu3btX/LSYEv+FQ4pxDJMmSJUtSU1PV9/1ZA+nRr18/
9WgexoO6cSKRnMiZvXv3QtfqkzZPnjxZvHhxC0q8cOHC5MmThw4divY0G1Gn
kXlNw8t06FOyaApRf0jfEe8WLVpENfiZJrW5wtyv0jCtyMjI2bNnHzp0KLDN
pCE0NrNH8CKHDx/mpXATs1wo3HhbgTh4GVY0bIGAce/ePXp/5MiR8+bNM5R4
27dvp23NdpeTa5UrVw4tozZv1D0ZTq1atZxcsSGO6q1SpYpyrJAGNkcdFRw5
ckQMtSHQrly5Qp6P2SQmJtavX9/ji5nUcChnpkyZYj0siQ+qv28RwrJzwne7
du3IgUWUUbBgwQIzj7APWBf+JI00+4IdtqTXMAliXFCPzRFAfyGafI7o+oRn
DK+BuwysRni6koCLcoZ40aFDB5zIejbTS9iUM3QKvcPXLGbVNbCWMxRYvnz5
J5980jB/Uw7PIfMMq4zdPvA1EgOUi7oFaOH+/fs72aydnWOQDRs2LFy4cAAr
roMKoXn15x2RBsAAGlIS2Lhx47Jly2irDRs22DyPOoDSqM/8+fOPHj1K++/e
vZvkxPDA0u+++45EDi1gk994ENXo1q1bRETE9evXNb8lw3nssccM79XNzhnU
Jfsi21f2TtKtzZo1q1Onjp0kh0fD5wMHDiSLO/g7+FnsJjY7QVfB/fv3MzIy
0nRAJlOB5ORk/a8wYwsOJ7yS5ZKhqfNYcTRB1apVnSS3YgjI8H4Qennt2rX6
/BxKIejzjpcuXeJdbBKIX6VBbk2bNnUy1BZaY7MAsfi5554zkzNu8Tavs2/f
vqlTp06xh5SUlG3btlm0lYi/JUqUcHd3LSEbTyHFjY+PNxwiePfdd8lCDbdT
wVQkY2XLltXcz8Vb9OjRA91neGuPTYhpMrSS3hgCAzm5oA51qozBqA/MDx54
HZ5FF2toB3GKGIyKiqJ/Nb/iy5mZmdYyB7f91hKaUWWzECawevVqbEx/rc/m
zZvz58/v8KTuAwcOkAPrr662D+pMZBRLaMJnzYZPeMbwGrjLwGqE1pWs4aKc
uXfvXpMmTfJYHkbtMWzKGaE3/ToD1lrObN++neZq1aqV2e4GyIovQNcejDME
A8JZnn76abU9iCljEg+fU/8W4G8poUCBAhhb7d/Rrl07j28D1IN0l/4aP368
xrb55507dwyHheGlSZMm0VaEZp9nzgRcGn9CRmQ9NJ2dMzeBp3fu3Nk+50Ck
nTp1evnllzWjE7jVgAEDcCuziy2WLl36yCOPIAHUjAeH0LNwuM/nfv755y++
+GKvXr16/3/gcTzUepdods7aPGi8hQ7ksVQAo9X/Clc1jCwC0ALkQIhRc4hY
OelwvwZ9QVUNp7P5xGwpJkZIxKGRlZNCfcKv0pzLmZAbmxms5YxbvM1b9+3b
N2/evPYX92LwFnt7t2zZQkqJzrKT3qMjNm7caDME42u8zqJFiwx/i1MQGQ2X
3Bw/frxYsWKEV00Xi9kZJ9fdZudwGomcKydvZ5tfk4FMVk5hDSowJ0REy5Yt
9cwjzp2A2TSf82XyQ3f3SZmFsOwcl2/evHnVqlX1Bkb6mi9fPrMLIm1CLERf
s2ZNwCVAszA/nVi5cmUlMUAmpKenO6lYsOEZw2vgIgOrEXJXsoaLcub8+fOl
SpUiYfBZmmewKWcgcwIKmYkyIXju3LnU1FT4xOzGXgs5I1ZLiqVrZjHl3Xff
hSJKly6tPz8nV0CstElISFAnGGJ3AzHIyUstX76cvoiPjw+3cxLEYtQRI0bY
l+ridLJdu3a9/fbbzgW+RWloQCKR+qwAPcS0V8+ePe037Ndff129enW0ksYF
hJglWzMMT7BxbGwsdKEZi0OC1a1bNyoqynrqFsLEfT788EP9rz766KOCBQvS
C4FdyBvYYjPefcaMGSSTmh0EN2/eJLCq74wOAGKPgF+aiK5fuHDh7t27oRfn
V2QaluZczoTc2MxgIWfCmbcxWgJrhQoVfMoZWg9+sL7fWQ0EWsmSJY8dO2b4
W2RU0aJF9cNT4lJLnIIG0fwKv6hWrRr2Y3NtrSHEUHzAnq4BSQupL0aCXFV/
fvfuXe8vmVXD46MALELYqVOnCOjdu3fXZL/4b58+fZxviyAtR/xiTgGXIJbQ
OJTJ3iNUDO8iA6sRtq4k4JacoQXeeustgk6bNm2cnw/pFuzIGWqLIKXm1F/p
R5pl/vz5hQsXNrsrzULOiAOrLZabKofwN2/e3Ann28RPP/0UFxeH0nzCNghw
6HQL+yTbJLHUHPXPu5Aq2BwmNYM4A3DChAlhMsGnQNw83q9fP/uhh0SXBAlR
bHEovX1YlHb//v127drBmRbR/5tvvqlVq5Zf++j37duHMeivEhCZPOHp+PHj
+r+6cOFC+fLlSUE1BE6HTpo0qUSJEtaLgnjoyJEjDTWC2CUR8PUigckZmmvI
kCHEes0aZjJAorzDo2/EHb41atTw6+DfDRs2DB8+nPTe+ak7hqU5lzMhNzYz
WMiZcONtNb788ksSOXznzJkz1t8k2YMibK75F/vRoDWzuWNyKlpeH+bo1r59
+xrWJz09ndCApzshcMofOHCgzyOFbUKsvtBckxEOcFfOEHatc1eLECbmJfVT
/OLOlCZNmjjcRYJPYUhmm2rt4Ny5c9hb+OzLtolQMbyLDKxG2LqSgFty5tq1
a3QZrWE9ROwx7MiZLVu2iJM5NW6yYsUKi0O6LOQMHV2uXDmzBdjZOVMbiAva
UzO0dfXqVUKt0he//fbb1KlTxVA8WLJkCfZJWqW+dwAWovusV+/jEVlZWfDJ
B7bBl0+dOmURj/bu3fvYY49pbgD529/+hg7SL771C1u3bqVlJk6cGG5yRmwT
bt++vf3N0fRgQkJC7969XTll2qw0otg777wTFRVFu/Xp08dssgDrKlOmjD5g
4bAEOMhz8ODB2Pybb76pnJ82a9YsPBpxwW979OiBehW/Emeb4B36JTd4GZoL
2zCMXKdPnyYkWWhVFPSAAQMMtw5l/z5AB50eOnTIuI0sEZicoaq0AIZ9+fJl
5UMaZ+7cubSnZtusv6AcegQ28Gu0f/369Q0bNnRrgkBfmqGcgSfJ9pX5a6Iz
1GqmTENibHZI0kLOBMzbHgDOwfetDwbPzhnxID3Wrw0za3ZxvyHJKs2OCOra
tatmNQKUjsPq902IwFqhQgXNUDkViIuLi4iIUDtLAIDrOnXqpLnYImCI1f6t
WrWyWZqFqTsJxHq4Imfoyvnz50dHRxMCqlSp8swzzxDBDQu0CGEkeGRBesNe
t25doUKFVq9eHXD1BFatWmVHjFvg5s2bvB2N7Hx7vpcIFcObMTB0OmrUqMTE
RFLixYsXk2iJ9ZwWDKyGv66UnRPTU1JSxBGR/F+9/5HKjBs3LjIyslKlShV/
R4MGDQK+QdUVOUMh7dq1I6y4NWAogLOnpaVBs8qxdf5COdzVTM7A83Ay76WR
Lfzhq6++SuAzG4WzkDNifbXZAmweRH898sgjGJWGVZDkZE2Ky1+/fp24oBgk
rTF+/PiqVasqh71gbHC+X6blFlCv1A21pXS3YOb69es7OdBGlMw7EhNDvq1M
A2ESfo0OEdzJEJzsf/RZGgEU1yO1JkOLiYkhyGZmZhr+OcGXgKK+65y+W7t2
LdYo9hdfvHiRXO6ll14Si8F4XOfOncX9X3yTboVgxc4X7DY+Pt4wPB08eJDP
CdCG3YfFduzYsU6dOoY0gglh7cq533qQV9SoUQPnsr+WRo2ATzYjytMO6ltc
KQpySEpKcr4kkh6hxfw6ERT1SrgJ7MwxO6Xp5Qy9iUuq08uNGzcSo83yk1AZ
m0+StJAzAfO2N8CvaXDqYDbMSxviPps3b9bct2vR7GLjDA0i1rClp6fjm2o1
B71Uq1ZNv/pOyHk0pka2UAI9QvbrMA0Qd+aa7ZbyC8pqf4s1hJrvW5u6i4HY
uZzBFEkIaXBRAvoU3YqVTpgwQc/AFiEM88D7NOOTvCCW0717d78uONNDzMs7
vKSeNyWXI911flWuxwgJw+sZODvnMhp6n8LpEYwWCaxciGPBwAr8daXsHMHS
unVrYjr2yetgS6TiwjKPHz9eu3ZtfksamZCQAPfiREuWLCHnDzihtSNnxEFD
+Ij+4ETcB7bEtTGznTt3GpKY2dCQTwgutbjcwSdwQ3EnlP7AOpxCjOyR4ejH
/e7evYtmHDJkiBnPmMkZukxsXNWfv8GfzJ8/v1ixYoULF543b57GVnkQ7aM+
AQO7wiCVvWDimlr1Wv1jx46VLVvW+6FCUVsIE8tRVimcOnWKUOjvZSh6YEKY
NIFSPQKPmRHNlR6kBQYOHDhmzBildzBgPhHaE66mC3BMwrSyXg4PojdxJSfx
cdmyZUR/+2MmZE29e/e2fzqxv6XhFEgYZUZm+/bthQoVMttrv2bNmvLly6uP
Pj5x4gTtjCkKtxVLZ5V5MfFP5RgcsbWwZ8+e4m8FWxKk1A6CDeCwdISZt8Ie
5AkQl34RNZwAMxQtWtTskovsnMMQoCCca8GCBVYtZYKA5QwkiS2NHj1avCwN
8tZbbzVv3tyVq+FJCDGq5cuX2/w+nUVD2TlRIeDS9HJGLJlWjIF2wJWId2a3
0oTK2HySpJmcCZi3PYM40pA68IL6lR60BjygPwHAutlForVv3z7xZSiXf6pP
TaQZO3ToYLhBjKD51FNP4YlK0KebatWqxbOcaxAKr1Chgia7Dgy0FaSRL18+
m4HSp6m7GIidy5mMjIykpCS1TaJM8QvM1XCxqFkI410ILlFRUUomSWTnHcl4
nd8hKLbDY0gOVylkZWVVqlRp8uTJipHTbidPnlTP13g2s2YfIWF4PQNDei/m
QHSx0LbKbJc1Awv460oYFaREvws5LE5fF3MiWGDNmjUhIsEVWAjyrU2bNg6P
RLaWM7wUko0cSTmDhfwfZ6EmNWrUoI9gP/4cBjMcsrYeGvIJvkaDY3sIB3+N
DYah3Wh5pealSpWqmQPqX7JkSfiHV0tPTzfkXqIDr4YjoMJgMzxdswdTL2fQ
HTxR3KILiDs0kXgiP/DiMEy9evXoQcMNDuJcOHSfqI+4p089BIT+QjMq21XI
8BGzvEKodipholBx+/btiaGLFy+mWz/88ENX5uZ4dximWbNmlI9TJycn0xHq
SQfRFMq2BXwhPj5ePZ6GNTZu3JheUzr30qVLeDcs4aSGsGKZMmU0m+AsQPrd
v39/tzpIXxqZOZasZCNiKZfhZJAIygqViU8GDRqEUyiXde7fv18Mzoh/Uiyl
KefGYP+0OU0q/kkzojtgACx2x44dfG3o0KGYOvHCbLUbZNiuXbsVK1bgJl26
dFFCG90HixYpUkQ4Dj5LSqmJ77R8ZGSkmoh4NNmOX73p5N4ZKk9ERhHT++ia
2NhYtwYJcWTir+L4PkHqQjXcOrDXsDS9nEEFYBuK5Ytgp/YvNUJobD5JUi9n
HPK2l+ClaLf69es//vjjUAGuRACaNWsWOWdCQoJ+XbR1s4uNM+oVF5BtwYIF
1VfbiC3/tINh/D1z5gy0TyHr168fPHgwyfCBAwdcCQE7d+6Erp0YuWAVNJGS
A4iL1+l9pTUM4dPUXQzEDuWMcplvr169FDqlnt27d+fDGTNm6PvCIoTxpnQi
zEbONnXqVPx34cKFriyTFhtw1Jd2BQykAa1NPkCYo0BefNWqVUrXeDmzZh/e
M7yegbNzhscJoMpeAHGnqrK5xoKBA3YlsTpX0WW8F02NJaAxR40aBakqg+Fi
MN9iNZRN2FxsFhish4ZsAhuAUc2u0woSiBT0HZ1IuBRNrblrwPqg5gCAYdD1
K1euFP8UQ0D0vvLQ3bt3Q7PiNhYMA3sg5Qh5hMV+qNKhQ4cczkfrgZEQOA4f
PkzXa2gQ3URTKLchiNX1NIhiV2fPniXPV5Z88zn8jO05nCjhHV9++eXExESb
0SctLY28y60j2jSliVhWu3ZtJRshl0CkGx42TjfBXeqAIsJ0y5YtxbkNYkRI
PZUP75FRKC22Z88eQYbqYnk0miIpKYmgTJ5psaqZHuFxxCCabty4cfSO5roK
D+BEzmTnNDiiBtv77LPPXNzYJQ5RIUe1eZQ37tChQwe3xhINS9PLGWqo3v4p
yMpsvDGExuaTJK0Pas4VgAGOHz9OOk1UIhOG5czOerJudnGiMiJdjO3jmDAb
jqlJUcSQuNm0O2WS+QiWdusFcS7eK1RnCvk0dRcDsUM5I5b8PfLII+q2Eqco
kHMa3i/jM4Tdu3fv2LFjUJyLJ4tmZGRgQk42zmiAYVNJ9LtmQZ2XM2v24T3D
6xlYZAvFixc/deqU+ETsdF6/fr34px0G9gs8ev78+bStsh5VnE7Aq+EsjRs3
Vl/nKnZ1md1+ZR/BkzM+R+RsgjdNTU318jgLMQ2nrPsSZ+BXrlxZzdiuyxns
CnWsHJgphoBIwu/cubN27VpoMyUlRYwqEIYmTZqEV7q1iil3QYQA9YChWIui
HlQUmx2Ufcp4Lt23ePFi56NDa9asqVevnp1VRtj/iBEj1MflOYG+NHGurHKb
ldhyCEsYrv/B6VB8aoMRtwYrq9MxsC5durRq1QrDRnQQF2bNmqWssuY7+HK1
atUCm5LAqmvWrEkqJeiLfqG/sGcX99nZAQ0VExMT2DECQQW5E+1j895tsil6
yq3RA8PSNHJGLJlu1qyZMnS2YcMGejAzM5Oe1a8JD5WxYU4+SfIhkDP2Yd3s
tAwphHJ/BMkGqeArr7yiWU1H4kfvO1ym6xfEun23thz6BZ+mbsfG7EOQ9pQp
UwIeHqHCZ8+eVduzyNjz5s1rdvGl/RDmCsTJkN27d/fgxnAvZ9b8gscMr2dg
sdBLvX1p9erVtFVWVhbp08GDB10M9wJYZmxsrDKWkp0zHlu0aFH+L1Sn+s56
pAFKwcnBdwLBkzM+R+RsAm+dN2+eNwezC4iNM8rpAYLiqlSpotbL7soZMYxQ
rFgxsd2YgELuKrY80zUw6j//+c+XX365ffv2MCqmTj7v7gVbuQhiUDE6OlqE
XTH0oV4PLIYZlcsWiTvkZiNHjnRl0Tv+Tj6gTKJZf5OwYv9i1gBK27NnT6NG
jcTYLDkABomO02uEBw8exMXFjRs3Tu1E4qwkIMZD0tPTMT/izvXr1wmv/Amk
SuEi6vGgiIgItWC0j4yMDHqHrEkZeKEHO3ToQMbifFW2vwi34/IExEWo9JHP
pR1ikC05OdmVFzErTSNnxOxn8+bNRdZ048aNZ555pkaNGvxAENQcQxdCY8Ou
fJLkH0rOWDc7KRwZjghzfGH06NF0q+G1lYcOHcJbAz6Qx1+sWrXqT3/6k/fk
kG3D1O3YmF+Art0lpRMnTqC/LASL/RDmCi5fvkxllBXRQYWXM2t+wUuGN2Tg
7JwxXixZbJogZ4Bv0RRkR4g7+sitcK9ArDBUVvFBLKRkIg1D2Pbs2VOZRKMO
yITx48c7P/0peHLGemhI2atlDf5q6tSpbi0UtwlxH6hya9vt27fr1KnTpk0b
tV52V84I6ff444+3aNEC2iTKrF27Fs6Mj4/H4zAMzAzbg0gXLVrk8bq7cIO4
gkEZ2xdik/BHG6L7iEfi+hsxJsOXo6KiaEOHW8zUwPHxPp8XImRlZTVr1syt
RUGGpfGCEHhMTMyCBQtiY2PhbUMOxLtpH31NLl68iDCcMGHC8OHD58yZQ2jm
Ea+//vrBgwezc1gRhunXr19qamqnTp38OphFgUgPKETT/u+//37hwoXJWzye
oAlb4OP4vs+FcFAQfZGWlubKQ81K08iZw4cPQ01lypTBp2bMmIG1EBnhdjFd
qIlBITQ2OyT5h5Iz2b6aHXqMjo6ePHny0KFD+/bta3YoJTzDn8CiHgwqEm2f
f/75UF317tPUwzwQkyi+8sorRYsWNbyGWIHNEOYcGAxZa1JSkgfnlHo8s+Yv
PGN4Mwam5CFDhqAjIAEyzE2bNmHY+DWWjIO7wsBqiHNF+vTpk5iYOHv27M6d
O6OglWmyq1evkregudBu/Oq9995zhVuCJ2d8jsjZKWTbtm2u3KjuF06dOkXC
rGzNoOb6A5fclTNirwfd/d133125ckVZzIxNhtt5xSHHrl27ChYsqJwRzT/p
nf79+8NRxGVoCjVaunRpMnwkIaF8+/bt7toPPZKcnAwnWDvgli1b8GW3zkGy
KI3cjKTFbCr/zp076GKzpe+8wrVr15Tz38glNION/LmTqEcf8ef6huJzUimH
Z3o/ZICEO3ToYD3Oc+PGjVatWulPYgwMZqWp5YxYAl2+fPnLly/zfbxMeBPB
kZ7VqNHQGpsd/NHkTLavZue3X331lc/FNrgqxqkcsxkkUBmSTJKckEQ9v0w9
DEEN169fTyJBsLCurc0Q5hwYTLt27YJ3aJga3s+s+QsPGN6agbNz3F/ZjIzX
a/jWLQYWriTWzHz//fe8lD4H4zsYhruEr2waOnz48Llz59w1b+uhITugKTxb
squAHkfiiYWOt27dIrIPHjxYSRf5hLbCYOrVq+eWnFm3bp36xhkJM4ip2Ecf
fRSaSs7BtGnTUlJS6CPsSsxoo1/wowEDBqCFXZyUUQMaHDhw4KZNmyyiBirY
xVGCwErj9XG9FStWhOciKwk16KOVK1cmJiZaGO3169fR6W4le2alqeWMWAJt
50LDXGFsf0A54xaysrK6du3q8H5MC8Cl5OHwaqh6x76phyfI0p9++mminh3l
ZSeEOQSpbExMjGdHvoT/zFqwGT58GDhUroReQM2VzUF0dLTDc9L08DkiF4bA
wdEyNMvs2bPpFGSmMirOr5YuXVq+fPnSpUtXrVrVlRWhYuOMX/cz/mEh9jkK
Q71y5YpiV3fu3PE4CPK4hQsXejPuFDD279+flpYWcnKTsAlxRLk368wtoJYz
Ygm0nXvTcoWxSTnjBOfPn1++fHmQpk7INknkQtg19k09DIFqaN26tbKkxA6C
GsIwEkxFXNHoAXLLzFpQGT58GDhXu9JDCaQuStmD1cJoJeTMzJkzZdf7xJdf
flmhQoU5c+aED0FJSDxkQM40aNBg9OjR27ZtI4MlTUIFhLpSTvHgwQMSiVGj
RjVs2FDKGQk9rl27lktN/erVq3FxcSdOnFA+4ec/1M7E3D6z9pAh97qShIRn
SE9Pf+KJJ5zvU5OQkDDDL7/8MnXq1Ojo6KSkJIu7hHIX7t27N3z4cF6KV/Pg
zFgJCW/w7bffJiYmatZ0rVmzxq0DQ3IF5HSAhIRE7sKWLVtISB6aFEtCQkJC
QiIw/PDDDwTEihUrRv6OunXrli9fvmTJksoddn8EyOkACQkJCQkJCQkJidyF
//73v9OnT89jBASOuGFEQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJC4uHA/wK6cgON
     "], {{0, 51.}, {1093., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{778.1999999999998, Automatic},
   ImageSizeRaw->{1093., 51.},
   PlotRange->{{0, 1093.}, {0, 51.}}]], "Input",ExpressionUUID->
  "08d25c35-d58f-485b-b228-d9571ebf2cbc"],
 ", FieldNumber = 13"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 
   3.7468413969638214`*^9}, {3.748965842889092*^9, 3.7489658441604424`*^9}, {
   3.7675394916634912`*^9, 3.767539491663562*^9}, {3.767539878499586*^9, 
   3.767539878665174*^9}, {3.768090016647354*^9, 3.7680900168572702`*^9}, {
   3.768090065528351*^9, 3.7680900736443768`*^9}, 3.8312224092379217`*^9, {
   3.8312225103666058`*^9, 3.8312225189495754`*^9}, {3.831222593717477*^9, 
   3.8312225937791777`*^9}, {3.8312230860362315`*^9, 3.831223086347166*^9}, {
   3.83122340849144*^9, 3.8312234088093843`*^9}, {3.831808572296279*^9, 
   3.8318085912841988`*^9}, {3.8318102596120157`*^9, 
   3.8318102598987694`*^9}, {3.831810343955014*^9, 3.8318103442744107`*^9}, {
   3.8318214339624376`*^9, 3.8318214343075294`*^9}, {3.831826258337841*^9, 
   3.831826258681981*^9}, {3.831830661338045*^9, 3.831830715913927*^9}, 
   3.831837934401955*^9},ExpressionUUID->"88f6a2d6-dbb9-400d-ae16-\
88734c45d289"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "13"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312225715423098`*^9, 
   3.8312225716225843`*^9}, {3.8312226140321136`*^9, 3.831222614108339*^9}, {
   3.8318085756652145`*^9, 3.8318085757442694`*^9}},
 CellLabel->
  "In[391]:=",ExpressionUUID->"2819096a-b3e4-46d8-a765-8cd0c783bbd6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Bmn", "[", 
   RowBox[{"mu", ",", "nu"}], "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.768089972331336*^9, 3.8312204967264414`*^9, 
   3.8312222439816604`*^9, 3.831222575357247*^9, 3.831222614461128*^9, 
   3.831223506718525*^9, 3.831223540075242*^9, 3.8312236315357523`*^9, 
   3.831805885217389*^9, 3.8318086124955506`*^9, 3.831819115541817*^9, 
   3.8318260315189776`*^9, {3.8318260861965375`*^9, 3.831826102652904*^9}, 
   3.8318261331867332`*^9, 3.8318262256269007`*^9, 3.8318263998089223`*^9, 
   3.8318278120910435`*^9, 3.831828162826331*^9, 3.8318378881176815`*^9, 
   3.8318379269795094`*^9, 3.831839805138663*^9, 3.8329475177948675`*^9, 
   3.8329618029784136`*^9, 3.845826895513978*^9, 3.845852485266468*^9, 
   3.8458570957923603`*^9, 3.8459196439652967`*^9, 3.846006594294727*^9, 
   3.846099906053089*^9, 3.847470468759662*^9, 3.851700654198908*^9, 
   3.853975468906378*^9, 3.854977430101125*^9, 3.854989281800166*^9, 
   3.8549999195556884`*^9, 3.8551652696221466`*^9, 3.8551823382530828`*^9, 
   3.855185881627195*^9, 3.855330660820551*^9, 3.855339865240181*^9, 
   3.8553432031066465`*^9, 3.855344036389228*^9, 3.855352763660128*^9, 
   3.855449626235565*^9, 3.8555076272782288`*^9, 3.855508425101068*^9, 
   3.855512913576639*^9, 3.8555333454231253`*^9, 3.8555789391005106`*^9, 
   3.8555933110512686`*^9, 3.8557506236390705`*^9},
 CellLabel->
  "Out[392]=",ExpressionUUID->"e9952580-c357-4134-b057-f0636dc239dd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downdownupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "de", ",", "ld"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"KroneckerDelta", "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"B", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "-", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"B", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], 
        ")"}]}], " ", "-", " ", 
      RowBox[{
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"Fmn", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
      RowBox[{
       FractionBox["I", "2"], 
       RowBox[{
        RowBox[{"sigma", "[", "2", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]downdownupup", "[", 
           RowBox[{"mu", ",", "nu", ",", "ro", ",", "sg"}], "]"}], 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"Fmn", "[", 
            RowBox[{"ro", ",", "sg"}], "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ro", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"sg", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, 3.831222631982333*^9, {
   3.8312226673263197`*^9, 3.8312226704612937`*^9}, {3.8312229112856684`*^9, 
   3.8312229258835363`*^9}, {3.831223098749104*^9, 3.831223337077551*^9}, {
   3.8312234382368727`*^9, 3.8312234564921618`*^9}, {3.831223521847991*^9, 
   3.831223522905406*^9}, {3.8312236265577116`*^9, 3.8312236269345393`*^9}, {
   3.8318086421695127`*^9, 3.8318088346176443`*^9}, {3.8318088901292653`*^9, 
   3.8318089635216427`*^9}, {3.8318089968015413`*^9, 3.831809012048743*^9}, {
   3.831809097905634*^9, 3.8318091816017246`*^9}, {3.8318099116005096`*^9, 
   3.831809919481202*^9}, {3.831810013274686*^9, 3.831810076144494*^9}, {
   3.8318101836510143`*^9, 3.8318101918823986`*^9}, {3.8318258301750107`*^9, 
   3.831825871340287*^9}, {3.831825962425344*^9, 3.831825997539344*^9}, {
   3.8318260790973144`*^9, 3.831826123818728*^9}, {3.831826191273325*^9, 
   3.831826210573077*^9}, {3.831830644755558*^9, 3.831830648859022*^9}, {
   3.8318376725129833`*^9, 3.831837866043133*^9}, {3.8318379169779434`*^9, 
   3.831837921509451*^9}},
 CellLabel->
  "In[393]:=",ExpressionUUID->"06d4d0ba-485e-44cc-9dc7-c86f5366d2ea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], 
   " ", "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.738583987798254*^9}, {3.746795246915931*^9, 
   3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, {
   3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 
   3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, {
   3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 
   3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 
   3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 
   3.747486056829548*^9, {3.7493830494673615`*^9, 3.749383050607041*^9}, {
   3.749383130633822*^9, 3.7493831323038206`*^9}, {3.7675393683993883`*^9, 
   3.767539368965523*^9}, {3.8312227380231514`*^9, 3.8312228069258747`*^9}, 
   3.8312228644057198`*^9, {3.8312234885720816`*^9, 3.831223493369345*^9}, {
   3.8318099510721807`*^9, 3.831809962912549*^9}, {3.831810202896742*^9, 
   3.831810203330476*^9}, 3.8318261289603744`*^9, {3.831826217774646*^9, 
   3.8318262216034565`*^9}},
 CellLabel->
  "In[394]:=",ExpressionUUID->"7d0f5adb-3be4-4e04-a416-06cdcbdf8cb3"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.751405324826857*^9, 3.751566887006461*^9, 3.751727185490629*^9, 
   3.751734096141694*^9, 3.751737168081163*^9, 3.752250147466023*^9, 
   3.752256220811919*^9, 3.7522656173424673`*^9, 3.7523217125262628`*^9, 
   3.752324518723379*^9, 3.7524081675889006`*^9, 3.7524944970227137`*^9, 
   3.7524967017587833`*^9, 3.7524995173695784`*^9, 3.7525365544443827`*^9, 
   3.752537933700184*^9, 3.8312235071799235`*^9, 3.831223540368003*^9, 
   3.831223631796571*^9, 3.8318058853440533`*^9, {3.8318099447440248`*^9, 
   3.831809963929656*^9}, {3.8318100189542503`*^9, 3.8318100804613657`*^9}, {
   3.8318101988369136`*^9, 3.8318102040456266`*^9}, 3.831810406867548*^9, 
   3.831819116154368*^9, 3.8318260324299116`*^9, {3.831826087128106*^9, 
   3.8318261034912434`*^9}, 3.831826140898239*^9, {3.8318262146313024`*^9, 
   3.8318262262361326`*^9}, 3.831826400371705*^9, 3.8318278127002735`*^9, 
   3.8318281634001017`*^9, 3.831837888668687*^9, 3.8318379273388395`*^9, 
   3.8318398054384356`*^9, 3.8329475181003914`*^9, 3.832961803282733*^9, 
   3.8458268958576775`*^9, 3.845852485607836*^9, 3.8458570961333447`*^9, 
   3.845919644324586*^9, 3.8460065945796833`*^9, 3.8460999063967915`*^9, 
   3.847470469150547*^9, 3.8517006545429544`*^9, 3.8539754692281437`*^9, 
   3.8549774306166306`*^9, 3.854989282123211*^9, 3.854999919883769*^9, 
   3.855165269981786*^9, 3.855182338603857*^9, 3.855185881954194*^9, 
   3.855330661179823*^9, 3.8553398655758862`*^9, 3.855343203497157*^9, 
   3.855344036740062*^9, 3.855352764009697*^9, 3.855449626650255*^9, 
   3.855507627592448*^9, 3.855508425431039*^9, 3.8555129140490627`*^9, 
   3.85553334577376*^9, 3.85557893944414*^9, 3.8555933114470596`*^9, 
   3.85575062398277*^9},
 CellLabel->
  "Out[394]=",ExpressionUUID->"117844b2-2862-4b5b-8fbb-150ffef17623"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input",
 CellChangeTimes->{{3.8318190968194513`*^9, 3.8318191112054167`*^9}},
 CellLabel->
  "In[395]:=",ExpressionUUID->"6896d314-dfcb-45dc-96ae-dd3c7ddb8a9b"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQeUTdf+x3nE6KMbPYxeQzAkeh+MGkKUIBiMzDBGHSVG791oI+FFedog
hKW9YLSw9BJLz0LE8vLeQlZeXfP//GevnHXeaXPuuefeGd7+rpWsce69++zy
K9/f3r+9d+kBUV0G/yFDhgyjsvK/Lv3HNo2O7j++ax7+0S1y1NDwyEEDQyNj
BoUPiq43IBMPQ/jvAd///7+TJSQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk3jr8+9//PnXq1OTJ
k3v16jVz5swHDx5ovvCvf/0rMTHx9OnTbr3x5cuX27dvHzZs2GeffbZhw4bX
r19rvvDLL7+sWbPm2bNnbr3xzcL9+/eXLVvWt2/f6Ojo48eP/+c//9F84erV
q5s2bWJc0qR6EhL24X/zIiEh8Rbg9u3bnTt3rly5cs+ePUNDQ/PkyZMtW7bI
yMjHjx+LL/zwww9YlfDwcAiD96/Dz+7Zs6dGjRoNGjTo3bt3SEjIO++8U6pU
qbVr1/7222/JKZZq3759TZo0SUhIwKx5/8Y3C69evZoyZUqZMmU6dOjQvXv3
4ODgDBkyNG/ePCkpSVCUv/71r7NmzeLJxYsXvXnRo0eP8BTDhw9fsWKFnuT8
5S9/WbRoEZ/yLj11lJCwCb+ZF2t5vnz5MuxoyJAhGB9v3iIhIeEfHDx4sGnT
ptu2bVNogPB9BQsWzJgx47u/Y8OGDRZBOopfqVIlfJk+wNcA+jF9+vROnTpd
v35deXjz5k2sExQlICCgQoUKhQoVokoXLlxwpYFvFjCw3bp1Gz9+PKMgntDt
e/fuff/996Eo+fLlo3/y588/YsSI58+fG5YAh4HYMF6a5wxNfHx82bJlFUrz
8uXLrVu3Ulp0dLSeBDJS33zzTenSpT/++ON//OMfrrZS4n8FXpoXfgXfqFix
4t27dzUfIb1IZvv27flDeWIhzz/99NPs2bOzZ8+uVw0JCYn0BhwWrurp06f6
j7AhiYmJ8+bN4//E8tbl3L9/f+zYsVeuXEn1jb/++ive8+9//7v+I+xPQkIC
DOfs2bNmEybHjx+fMGHC0KFDT5w4keq73kQQTsL09M8x3adOnVq8ePG6dese
PnxoUcKNGzfGjBlDNKr/aP/+/XFxcQrtAX/+85/z5s2LSTcsCgIJUWREPGyE
hBO8fVNV3psXSoDYQCr034E88/MtW7aobYW1PC9btgxSZMdMSby5QOQmT548
bNgwRCut62IALPmOHTtiYmIiIyPv3LmT1tVJHdilNm3a9OrVy9BrSyjAL+N5
c+bMeejQobSuy9sAzHtQUNDNmzcNP/3666/z5cv3tvLA9AY5VeU9LOSZLv3k
k0/q1auHsfV/xST8hp9++gkxyJ49+/r169O6LgaAb0OPO3fuXKJEiXv37qV1
dVLHy5cvp02btnv37lSXRf7HQZQ0fvz44OBg69kDCTuACXfp0qVhw4bquRQF
dPXnn39euXJlw8hXwheQU1XewFqe8VnVqlUbOnSozCF/6xEfH1+gQIFLly6l
dUWM8euvv4aGhrZq1cr7CVJKWLNmzZQUJCQkULIrNXwLgDVYtWpVVFRUkyZN
iLIVZnXy5Mkvvvhi8uTJM2bMMFxfcIxXr141a9YsLCxMpM5KqHHs2LHo6Oj2
7dv/6U9/UrPcJ0+eTJo0aeDAgajDjRs3lOePHz8uX778iBEj4CFw+MjIyK5d
u/bv31/Ydv7/wQcfdO/e3Xo2j0/Pnz/vu0j/xYsX165d81Hh6Q1yqkoBcrVi
xYphw4YRY2psyPHjx5HzTp06QZ7Vyz3W8nzq1Km8efN+9dVXqb7XR/J869Yt
v/F8X2ul63BRzSGf/fr1q1OnDmW6UqDrePDgwbvvvotN9n4uAspdqVKlkJAQ
1ISwXcm/+h8HFmDlypWYU1QgIiICR6Yk2+/cuZO+atu2bZ48eXCULr70zp07
xYoVmzZtmpxi0uDu3bvjxo17/vy5yBJUGAWDEhMTQ0iOYaxatSqMUek6sUC/
efPmc+fOxcbGojLdunUrWbKk2OkpoviFCxdavBRdwBesX7/ed8OB9+EV+BQ/
jPizZ8/++Mc/Il3Lli27evWqn2VMTlWpsX379rVr1yLVpUqVIhBWniOrEyZM
QPD27t1buHDhpKQk5SNreWZMiaatE058Ks/EBZ988okfMl78oJWuw0U1//nn
n2vVqjV48GCzKTIC24MHD86ZM2f27Nn84f9Uiv379yOoruwag5y8//7733zz
jeGn0HIYy8cmQBoh+Rs3bjRb6Pzxxx8nTpzI10aPHu3nLLjLly8TVpjVHPKJ
Izt69KgZ/X748CFm/HUKWqdAU3+aDGMxIydIzpIlS3r16tWnTx+q8dlnnw0Y
MKBv3748GTNmjNmmQmgPw3rgwAFk+Ntvv/300095LxHWm6KGOCD4g2GXop5x
cXG9e/em5z9LAX+IHtZ8E2NLRElf0WP0QHh4OKHlpk2b9u3bx0fBwcFYbyVL
EBXYsmVLcsq5KAULFly8eLFSzrx588STWbNm/e1vf+PJ2RSIzoR20tVEqWZt
QamhQwiJNwEaNa9bt66iXJRJgTAidZYjnIEQ2Kc7QLFXWKoOHTrMnTs3MTFx
wYIFtWvXhmA7Xj10IN42p6rSFeg34lND7WNkcRA0n4YLeUZWd+3apf8yikzP
8KnoIrQAHfniiy+wjTCNfPnywTrEN5E0hunWrVv8TfcivUi1Uo6FPIuEEwJM
i4QTV+TZGjQEGXv06JGPyk/2uhV4dsQVxUcrlZkHymQoGUHHPeNrNX/8+HFU
VNSQIUOoJLwUmTFLODl06BBR89ixY3FMcCHoKyEbFMXBSwWwkAi5xm7zT7rx
/Pnz+u8jjci2Wwkn1uQEK3ThwoUNGzbgJTNkyJA7d2605sSJE1D6kydP7t69
e8aMGTVq1MiRIwckRKiMAlSbMbp48SI/L1q0qLsrIKkCYwj3WLRoEbEJNa9Z
syauPykF3333Hc5u+PDhxBo4O55bnDdy//59whN1SC5gTU6SUyQWDkkF6B8q
QBzEqPEuOsRQC0TCSenSpYmnvvzyy5UrV968ebN48eI9e/ZM2wlMhpWYt2XL
lhbyhuqhO9WqVatSpUpgYGDFihWXLl2qXiKk965du7Z69Wrklt4ggiaKp4v0
xpxfoVbFihXLmjUrzOTIkSPKIhfBZv78+Q0Ps4IhY3OQSfFPsUDPi8qVK5eQ
kKDZmCyi+EqVKj158sSsRQhtq1atsGapdY8VeDWWhFBX/JORZUBRGU2rqfaH
H35olrjrJWjs/Pnz8WhqKUJ6P/roowYNGjiex/BUvO1MVfkHeHyEedSoURaL
p6dOnWL0kWf0MU+ePE2bNsXzqkcNUo3dhom98847NL9Hjx70huH+d0hITEwM
X0PyiWfRAlEOb0dEGQJ9DgkdSIH16tVTaJ61PIuEExTQIuHEFXm2BpI2ffp0
aJjv4lDvWyFmHmDRipQyIkFBQTNnznQcA/pUzS9dukSFcbt0Lx0bFhbGuwz3
PCK0dL5ao/nJ8uXLsaWOd1jQXUg+XAiB/MMf/pA5c2Y4NqMABzBkwiLhBP1y
RQasyYkCjD8VK1++PLqm+YhRpgdy5syJCitHDyWnrEKKbYPEC2m1RkbdPv74
Y5QayqfXXHoeKaVdcA+zgG7v3r14Pf6veZ4qORFAPpFSKsCQWceMIuGEPkRN
duzYwQ8xX/v27fNpJGIHaAc9AEMzUyv8DmG4wvEgM0OHDkWSMbya2JzhEDZ2
2LBhFoYUUcEEEVeqtZv+gSEj9vqVR4qiQHiRopjIYYUKFeCfaDF1g4eoubGI
4gkrzEbkwYMHtWvXJhC26pfUQK0GDRr03nvvKecA00V4OkJp/TchS3zZF7MK
DB91WLZsmYYz4KOxyeppKAewL96pTlX5DfPmzaPCjL5hfh0tgjZjNBRpx3lh
IbESBKQaPoMbEixabx/UIBpq1KiRJjpjXGB08Ea9T0SMYe8RERGKjljLs0g4
IaIxq4Ar8mwHsH04lbuL3QpcaQWxNs4ddRD/RPgx/mXKlBETVg7gUzWHnTZN
gQj8UeE+ffrUrVtXTwywipjWfv36aU4dx/+2a9eOn5idHGUTUC8aRWxoPckg
Ek4mTpzoymy/TXKCbYH8Q07U9EMBNSEozpIlC+5DM6nLoEMjp06dmiZrE2LC
04ycJKeMaffu3TNlyoTJ0teQJ4huqVKl7t+/r/lIT04oHyKhYfWUAEOjAupM
CeXVFKtMN4mEE3w63zx8+HD6SfcSs2fIieGnCD9cevfu3eqHmH3BCeF+aheA
KRgxYgTPO3ToYKah9BhEnW7XjNfp06exKvHx8fTwypUr1T9H5DCJ6ikm2D6q
hNDy94EDBzDd2DQ4ydq1a6mPiOIXLFjAePFE8yIx6C1atNDMBHoKKBa2lFhG
1Iq2493QXP3x5uD8+fPBwcG+2EK+YsWKjBkz6jeZ0g9t2rQxDDcM4Y1425mq
somDBw/u2bPHG2NClc6cOWM2bQIVwftrIgKMGAOHfdMccYYjqFGjBjqL9TN7
HQoCc0YI1Q+pf1xcXNGiRW/cuJGUlKQxv4TYSCwcSXliLc8i4QS2g/woi0Tq
d7kiz3bAu+bOnRsSEuL6xRxutQLbQu8ps6/ff/89YZedAzbN4FM1h+dAfRUG
i/bBgsLDw/W+DC5dsGDB3Llz6xPOly5dGhAQQMBr86W8BfnXvIKaI4G84vbt
2+rntJov4x1EDUXCicYdOIYr5CQ5xdah1OipejqLPxh3HIGXR5E7RqrkJDkl
lQtWACckANF8hGEhhMeG64MsPTlhjOA59ACOQFkBMbTeGMaYmBgYUdmyZZUd
1lgbRj8xMZEojOf9+/d/I3ZOnT17FkaqX/GhFagVdEIz9AsXLqQ3LNbHEf7e
vXvrxWzx4sUME7x927ZtBIlqY3LlyhW0Bh1UnkA1kTpxTi8dy9+YI8J2WA0/
PHr0KN9Hj7Zu3ap2AQK8unr16kps5Rg0HKHijeKfOGsiIKIYw2FF0jp27OjN
wrcZGBpCA9yx5jnqgJXLnj27PsQzhDfinepUlU2IpU94jo82zIrmjBw5UjNG
YmpO3LOgnrhj1HjCc4tQcdOmTbGxsZphpXwMC6EuvBqfq9nKIWym+qGFPP/z
n/8cM2ZMtWrVHj58SDX0MwBuybNNUMkyZcqgpO4W60orGEex+ixCLfhDnTp1
IiMjvdkd6Ts1FzwnMDBQUV6oFO8ynCKjZMKQjRs36ktGBzHFYp9Xqi8V+Wli
kgRqpDw3JCeUDCvOkSMHMkwFRMJJ8eLF9SceO4Nb5ATgWOmEcuXKKaQRo9Sw
YUOGgyFLSEjQzz/4GnbIibDSfKdfv34a44kRLlGiBB2utzyGyzpiTVBtrAyt
N4aFgWZYETbxRFhdwbfF9EKFChXoaiTfesY4zUEsmTlzZtqiLLkKwCKQZGRm
8+bN6uf0GA8xX4bLVXQRfk2tFAqICKpWrTp69GgUQbOyQx2g6wq3ZEAHDBjQ
smVLEWQRrTdr1ozBHT58uHgpMh8aGtqrVy/ckH5GCLoCC1LnIjrDunXrGGVl
IUPMjFH5p0+frlmzRm9DlixZUrp0ab8dq4iYRUREZMyYcdWqVTZ/4li8raeq
PKqzT8kJgwIBozkIjCYVJD4+XpxIr16ppBqEzHy/b9++hlXC4iFm+iCahsTF
xTVo0CA6Ohr2ojYvYiUa26K+4sFano8cOVKrVi26BQKvr4Zb8mwTCAnKRRPc
PQ/BlVZgtOvWrSsSTnCyRFVRUVGpnhBuDd+puaDEfFkROVQVo3r58uVjKbBZ
Q5x7tmzZ9HObFli+fDnBhTqE1JMT5BMBJlqZM2eOEGCRcNKiRQso9+rVq80m
2+3DRXIickdpFIMinkD+MUoMHy2aMGGCl2LgAHbISXJKRg2t02ft7tmzB69H
iK3/iVnOCSPF69q0aSN009B60yH0UqNGjZQpSpFwwsgyvtRz8ODBH3744YsX
L7A2Z8+e9aYHfA24E5KP3GrmndC+oKAgmqk5e+HkyZO5c+emVw1zuuhwiJnZ
lBEdohc/umvo0KFKNCSA4qgzsuh5eKbaUDAuWA+96aA0RMXsqCv7EOXQUpGj
izDgSpAxBAZdg6jr6S7xEQ5dw+XcAt4QQcLDYt/oebHFAyuNZMIZ7JfjTLyt
p6o8aoVPyYkyQ4IAaJan4VTYYfyOOsISaw2CzOgzAOlhams2oPwWp6MXM5Fw
QjivjnNTlWeeGPoCt+TZPmjXtGnT1C7Ve7jVCiQfFZs3bx4eiiFDGr28etXX
ar5+/frg4GAxEcGI16xZs0qVKjBS4mX19W1qwIRxZziOw4cPC5mB/VKl5s2b
209SJSgWkyfKyVF6coKFx2PyUAlLnz9/DpdAdHGjuHvvZ/5dJCfYIuRHxBFC
cURmI8EF9iRNDpuySU6w24GBgTRwy5YtjCCR+JUrV4TXq169uqHWm5ETBFJM
fQvOaWi9586dq8m7+PHHH+lbngth/vbbb9977z1Gefbs2Wm19RK+NHPmTAK0
Jk2aIO1ms9ZoN3Krn0wmlMiVK1fOnDk1DB/ZhrQYriZglnv37q0+SM0CqCr+
gk5GIFFYIiBXrnh+9uwZPT9w4EAzaaGxDBz1p2k9e/bUBMUYT/oKrRR6yncg
mdhqXB72EJ/erVs3qmqY5iFO2Ro1apS7d1XTEKwTlaFRu3btOnHiBPWZPn06
Ut24cWNklW60X5oz8baeqrIPb8gJghcREYE1YBQsbBFij+hqsvdpZmxsLI2q
Xbu25iOGlQ4xtBIHDhzgjXY8glhqTExMpIG7d+/Oly+fYUDkAG7Js0cvFUci
uJhA5VYrYCOFCxfu378/dt46Uk4nav7y5UsC1R49eiD2FE6gB3FF/gko9IHV
pUuXwsLCWrduvXr1aigQMQLfhCdgxhHdjh072ncl0KEiRYqoM1j05EQQmEKF
CimzQIzOlClTsCowtO+++87muyzgIjmh7WLWV70/DjKpIfn+hE1yQofTyXwt
Li5u7969CNvKlSsht7R33759hj8xIydi2aJGjRoiJUxvvZVoC5FTuoWHP//8
s1pcKd9mpqIvQF/hYlBh/hgxYgRxkGF+lxloCMyZNqKzmtwS5A0uQWSNm9P8
BO1GrexkplErzD5hLKQdAtm0aVO3wjSRV0bbDT/FfaCPGTNmxMRhuESIrc4R
xftjE2iC2BSAFPEpZYp5BqpNPc1MBNaShri1C0+AeGHQoEElSpRQewqxIWXp
0qXFixfPli2bmYQbwpl4J5tPVXkEx+SE2iIwUGiRwgoH9qgmEJI6derQKP0K
r5gzJ4TUrLMz7n369LF5KBk9g1J06tQJ/1K3bl3a6NaaiFvy7NFLaQXFunhP
gZ9bkd7U/MmTJ5hfUX80Wu+C+YiAukCBAlOnTlVLzvXr15HYzp070wQIg/2o
59GjR8HBweoQUk9OkpKSYC/YFk22xi+//OLWNJ2L5AR9hzHSD2azDf6HTXJC
9+Lp+FpkZCR9O3/+fIYSE2GxbcqMnOAFcuTIUa5cOUEt9NZb7Fzgic0MpVRx
+vRpWC6qlME2GMpJkyZZvJ3Qcty4cb+moF27dvnz5zebRTQE/YmoBAYGajYp
JP+um3o7j6gzRvalGrMP/wkPD1++fLmLU9YHDx5E4wzvnadPKlWqNHbsWLEp
D3Hatm1bqVKlVqxYIb5ANaKjo0UawNq1a9VHH9iBSDaoWbOmW4dRMHYEm0ij
fvcllQwNDUUMgoKCPDqAyP/irYZjcrJ+/Xqx1eXGjRuEIUSXHs0GEHEHBATA
T/THwoj4EZlRL2tSTzwp9M+mQ+T7O3bsGDlypNjX4+KilVvy7BFQf3yWi3OA
/mzFG6fmgCgSIgH91jAi3jVmzBgYhfWGMj2oGzXMkiXL9u3bxRM9OSGogZYr
cYov4C456dq1K3apVq1aPj3txz5skpN79+4JchITE2OzZDNyIo4+yJs3r7iY
SW+9sYpt27bNlCkT3Ntps/4LtPHy5csnPQF8xmLbO3VesmSJyErFmMN8PFrt
FQf+Z82a1XDJVUl1GDBggDIiFM4/9bul/A/cEGZQf5AjYwdxxRZpWrR///7u
3buLBN3du3cvXLiQL4iVaE+1QCQ8YAbtT1LhGSGZ/Mpwdy3mCJ3t27evPohD
euvVq8coqDND7MD/4q2GM3KCdPETMbcWHx9P3Ty6IQIaVq1aNUyf4WIQxTJk
ajOenHIoRL9+/dLDBcGuyLOnLxVpMxhem9NTL168WLBggVjFNpxP8Fsr0qea
W4OwESpYtmxZ/ZZJZRpTnRliB/SDcOXz5s0TT/TkhKiQiLhLly6+SzxwkZz8
9ttvhGO0iNDY/7mvhrBJTm7evFmgQAG+ZjZzqIcZOaETGFYMoGCqeut9586d
kiVLYuFtJlf4H9T56tWraCJ/oIawbsNDYMx+S5SKJdGc3qxA+Bc6pFWrViJ6
5Se4jOnTp7seaDsAlc+VK5f+wGcGS3MRmwDDzXNIAkaVUFHk3vAQeYuLi/Oo
RXyZEgoXLmx/Ix7KO2fOHIIm/Y1vT548qVKlitn5BuLABEbB0wOI/CPedAX8
mXhw839j06ZNnTp1at26NeZI8xFfTkpKMtRxxAwqRZkMH1KXP3/+Cxcu2KwJ
P4FL0yKzvHRxzAU9AJ8XT1CcgQMH6s8bSRO4Is+eQsTdHTt2tElOxGmTZcqU
Mdts7rdWpE81t4CSwm3o4HhXdHS0WF73dHqZ4CJz5syom7DSGnJC22FrfMH+
Xj8HcJGcKHpKh6QHR5Nsm5xgSXLmzJkjRw77SVwWJ8QePXo0MDCwQYMGfEdj
vfnnzJkzcffIZ/q/3Bx5bty4cVBQkP01HQyImAK1EABxLJgysUnh2P90ch/c
mjVrkITDhw9rnmOUzI44hhjgGXFexOPejCk9JuZgNcccWYPOhFfrtz4hmYTz
GHzDAO3atWv8CmujP/8kVfhBvPHvI0eO5BUf6lCkSJFChQqheprnfBkrbW2B
GSOaHBYWZnO5H+sRGxtbqVIlw2tEBLDSbdu2pQfEKgY9kJCQoD9CMK2QJvIs
0kQ92rsKK8Bfm20c81sr0q2am+HRo0flypXTn9ggIA5aRDgJ/TydAcM4h4SE
oC/i9kkNOcFuQPJr1arlU7vtIjnBQlLhbNmypVqa32CTnKAUuMuqVava72oL
coL4LV68mKAVe4V4qK33/v378+XLh8Ckk2Uvaxw/fjx37twfffSRzfS877//
nnjcYmuPQGJiIp1DcH3v3j36h5DE4iwXivLnfiUqT4zmUY4ovSQur1Fu9nEG
xCYqKkqfYGYBs+OslYiJ6NVw7NauXUvU07VrVwfb/dJQvL3ZrYMgTZw4kVZr
MrEt3kUzsc/WzFxs/KcHUBOG44cffsDgWKSy02P+PCs7TeQZn1K9enVNRrQ1
8PtIjtntBmmola4X6EDNLSBywIgfDWeHkEbMLO9yNgN27tw5Ik3MCwGOmpzA
iPB9lKw/jVYDtGP79u2QMZrsgIy5RU7EwcUETc2bN/fDOck2YYecUNsWLVpQ
c2Unb3Jqq/nJqd2tw08w1I0aNaJksdRVo0aN/v37M9ZTpkxxt38QIYI7VDuv
bRCkzJgxw3p2Szg4hZPTe9YkAflv2rQpoqhJc1VO4lJXGDkn+iYM2bZtGz7O
sORXr15hB9qnwG+H5e7evRs+5tHlIAR94eHhtEJ/6Y9HEGdtWfN/DcTeE/39
6Yh9z549kTpkWC+9dCzBPqGoPl3ZJvwp3mp4Q07EWkNwcLCYSkKiLOSfBm7a
tKlly5bqw7J4KYKh32UsbhcSGzpQGcN1NF4H1enUqROEkL7i//45WiFN5Blu
RjhvsfNXA3HsZMWKFc1uN0hDrXS9QAdqbgHhl/WXUySnSObSpUszZcqETDqe
6rl79y7hT61atdDubNmyQREjIyOpPAJsZ91WZAjA22EyDo6XdIuc8GoUH8eX
ThZbBeyQE2h5lixZGjRooA73LFbzBWxe/Pf06dN+/fplSLkWGe7t7qmJAq9f
vz548CBe/k+2sXPnzlR5O4aicuXKWAwx4uvXrzc8uFWA73Tr1i0xMVH9EJsz
c+ZM/UmGvLp48eKE3itXrsSHGjJqWA2RV2xsLHXAA/qNnEClIE4enZKN5Fep
UsWj00IMAUNr166dPkOV5xgZjMOQIUPGjRs3ffr0Xbt2Ccpx5swZaouER0RE
IOG9evUSC9kiVS9jxozKqdpqwEmItihNzQntXPuuhx/EWw1vyIk4xFsQOVRm
7NixFtvPUaguXbpoMgyxD7xaPykkDkmuUKHCmjVrMN16WaXaCxYs+PLLL0Vn
QimbNGlStmxZH91DrYb38ixmkCAbRBNqXd66dSuOw7APxenQ+mt5cQ2ffvop
sjpo0KAVK1ZgHMT6mjhrtHbt2vQe8WDHjh01IWEaaqXrBZqpuTPAhHFexBr6
+A4XJg5tU4+RMzVHr2k45ISIRn8ptjX4bVhYWPPmzR2kobpCTiikVatWVN7m
ORU2QY8RtiOujqMMJYQ0IyfoS9GiRWmXftXebDVfwP6txGLeG4FMq+PUnIHQ
GG4m7mFHj2JiYsy249EVGBz9sVGEqFh4/YyiuLWcPqHb4TwWAkOQ0rhxY3+S
ExS5dOnSNNZ+0pS4tdbxraYKCMkphzhFPRlOz/NEXMKS/Pux0vPnzxefIqL8
U9wFI25HhdGJvqJjUVj9WjOekTgLq6VxKzavfdfAz+LtmJzwQxwf5ERcSXbh
woUpU6aYLTrgCjEXmv6hBIwkFFFPwA4fPgzZw0c0bNjQMJykKEaWYEd5o8gI
8kNunivyzG8pQX2ZnbjrFt009LBwGLjEli1blCfICcytWrVqYh6VaLpIkSLN
mjUTDksknOA0BbXG4VaqVEldgTTUStcLNFRzxyCyK1GiBIKnGQgUZMKECblz
59YEjM7UPPn3nBMcoqerM3gNeLiz28/tkBNqLrIy9BugIL1IHXJbrFgxzZS+
9xAyKXZ2ONv+g3dr2bIlJej3tcGEMQ4QqqZNm+qPerC4nFrAJjnBYots6pCQ
kDciz0TB3r17ISciGZtmLlmyxFC6xK3EZgeqaE6VFxC3nvEpjNp6jtT/5ERc
D0EkYv+NSUlJsALvJw0QQniy+vpCtAl2ob6kBoOfN2/eo0ePJv8uospd7SLR
rmTJkkJDEbb69evXqVNHfQoBIU/nzp0JpjQ+1P617xr4WbwdkxOxqQEPSCcz
srGxscq9tBrgffCMZvKsOVVe4Pr16xj8zJkzmx1sIu71UN9UwtsDAwMZC1+f
TumKPIvL7NSFHD9+vFChQhBgwxIIUYOCgtT34Jw6dQoxnj17tugfDHuZMmXG
jh0rOhOpRtiURUbEm3+qrzlIQ610vUC9mnsDOnDixImQkCNHjigPkfZFixYh
k5r0P8dqnpySKIiv5EWeroxA3amJhiPZhDU5wZq1b9+eiENRT2oIYYALBQcH
o+w0jZ8jdRamyWw2L1VASDC/aDE0wNMjQFEfAnPiSqXm+fPnL5sC6k93oVw0
DZZuaB/MVvMVWJMTysSOIYTqCsDu0FBUzOzUGgSJgRCn/Y8ePTouLs6tBVMH
gOFjECB1U6dOxSOYTUJiQzDLZsZc2S+shlh0oP9TvTbI/+RE3GWPbNuXt3Xr
1kHdvaflcHtMujpFR1xqQPOFGIgsIGX2UoioMiUIT+jSpQvhg1JzEevVq1cP
Z7F//37iI9wusb9+Bsyja9+T0068vVnWwblUqFABYebnCK3heNGuHj16mAkz
WLx4sf5XYpgIgiz2CjFk6mQVzE5AQIBHUwHO4Io8i8vslFMTaWa7du0wnoY2
QWg3ZEb5lCcDBw7E/CoXlB88eBCOLZaJRcKJek6e6J7O2bRpk7ut8BK+U3MB
nN2cOXNQT3Qc5dq2bZvNd4kj7sUA7du3j3oiimj9sWPHNCV4qubJKYKKx1QT
AJAjRw4CHP3mKQVqj48wFC9e3Nl9pjaXdZzBejbPJuhJJNOtI2tswmw1X4HN
mRP7wP+OGjWK8Ipeot+++uoroi2z9HX/AH937tw5AkPX9xccOnRISZywgP/J
SXLKBGaJEiXE/H+qQDixDFu3bvXypeJgVU0yOSFkzpw5EX7l5Gp6Qzn1SGyO
Uw5+fPLkCdyDEtQen34TR49S+KpVq8xy2Dy69t0ZXBFvLy/+I9Q6ceKE65sf
iaYZBfvb7bF+YWFhyJh/bgr2Xp75rXL/KY2NioqqU6eOWdIaDoXYfNasWYp2
i53Fyp0mYr+5kiEp7jxVtpUxskOGDCF4VJiMW63wBj5V8+QU+tekSRNcOc/p
EDyO/uIPC9CleNjJkyeHh4fPnj0bbmC4xuoHNTf0+M4STpJ9TE6sZ/NsgvGa
NGmSn9dELFbzBdwlJ2LhTEkn5p8bN26EF3mUevT2IU3ICe+CAGAf7Ey5Qwmw
KhbnYNgE0Xf16tU16XZ79+7NnTu3coLBrVu3iLkw+7yUb548eRILr5xMBQnJ
lSuX4RHfqcLTa989hVviLbbGxMbGppNjlByAmi9cuJDudfFePGt4Kc9iC7aI
r3Ex48aNw6NZpF7s3LmzfPny6i+IA2OVLAtISIcOHdBrTChizDcbNWqkpN+g
CBUqVCAq1CygpIlWul6goZrj4EJDQ+vVqyfUAaMHjbc+KsoZfK3mySYeH4V1
Ft76jpxYz+bZx4ULF2isPw81sl7NF3CXnDx+/BiVbN26dTo5WTedIE3ISXLK
lAU2xE4a9uHDh7HV3jPn+Pj4+vXra/Jzbt++XbZsWbFfjB4YPnx4QEDArhRA
QjCYaO62bduSU7LOCGah0A46ysG1757CRfGmMm8uM6HyX3/9NZ5af9ipT+GN
PDNkKGCbNm34CFIxfvx4i9Wr169fd+3aVXMEHxL1cQpEOA+LRtgGDx589+5d
3BauediwYWJ1ki+MGDECw2uYdel/rXS9QEM1R52zZctmuGLoIvyg5oYeP1++
fDbnu/TwHTmxns2zCfoQaqdfofMpUl3NT3abnIgJfE/PEn/rkVbkBHb6+eef
R0VFWVNiBkssE3sZdEAzGjZsqD8fQ9wFgFWcMmUK0gghoSt69OgxcuRIfsKn
MBO8xvTp0zt37kxNnGXrObj23VNI8RY4cOAADE2s5jBYWEL/dIg38gzvhVgi
eAsWLEh1bR0/gvPVZ4bQ5GbNmo0ePToiImLGjBkwnJCQEKok0jihImFhYeIe
z759+5qJnJ+10vUCDdVcJH4EBgaaZWi7BT+ouaHHL168uOOD+n1HTqxn82yu
/G7ZsiXVXdiuw85qvrvk5NChQ7ly5dJkv9Nvvj44Ip0jrchJcsoEbGhoqHUe
OwPUr18/myeOmgFLO27cOLOT6JJTOuHWrVtCEngjDkJtJAls0X1v5hUdXPvu
KaR4J6ek6CMtSqoGRsbLg9A9gh/kGZOOszMLk2kpZEzJCsaoqmdg+PTevXup
Hv3hN610vUAzNRdX7YjjstXP0Wt3vZ4f1NzQ42O9GWj7Hl8NJX/p2LFjFy9e
dFFZrGfzbG7YgYz5eredHmfOnLFYzSeUoK/QwSpVqrhFThiFWrVqqUNLjBjB
sq/pdDoHxopYw9MMardw/vz5jh07WiQ6IuGzZ8/2JlVbZF8MGDBAHGOSJnBw
7bunkOKdlJRUvXp1mhwTE4MzGjRoEAGsclegf+BTeUZDIyIifJEpoYEftNL1
Aq3VHK6Fu1F0gS/v27dvyJAhZrf8OIMf1NzQ4yMVHnl8NfD+0N1CKQgLC3P3
mm/r2bx0C4vVfHEmcFBQUIECBd59913HB4DrcfLkyebNm8Ou58yZM2zYsMjI
SP8ccJ0+AbcnWqlfv36WLFmyZs36wQcf9O/f35WrsjwC4e3y5ct9d7wY0jVv
3rw0ZCbOrn13gP9l8WaUy5cvr9mVHBAQ4OzwB2/gO3kmlNu8ebN/prh9rZWu
w1rNib4XL17cokULVEMs4PKHuzbBb2r+Znl869m89Am3VvMdvPfhw4f37t1L
J1eaSrz1cHbtuzNI8ZaQMANc69atW2ZnBHkJf6r5m+jx3zh4v5ovISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEh8abg/wDHdvk+
     "], {{0, 55.}, {735., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{619.6666666666666, Automatic},
   ImageSizeRaw->{735., 55.},
   PlotRange->{{0, 735.}, {0, 55.}}]], "Input",ExpressionUUID->
  "ac7711aa-ead6-4704-9392-723ac4976bdf"],
 "\n                                                 ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdwFMcWtm1yzjlHGwEmGwQ2IoNIAokcLbIQSYBB5JxzRhgQWBgQIEAE
CSgw2IDIFMYkQ5EMRXQBdsF1Ydf1Lf3Pp/4933wzs6vZ2dlF4H6r7BKzM53P
Oe/pPt1dqk9YuwGpP/roo68y8r92vcc0HDmy97j2OflHx2FfhYYM69+vxbBR
/UP6j6zdJw0Pp/PfAf74P38nSkj8y/D333+fOnVq8uTJ3bt3nz179v379zUv
/Pe//42NjT19+vS7KJ2EhIT38Pr165iYmEGDBvXt2zcqKuo///mP5oVXr16t
Xbv22bNn76R4EhISEhIS3sGtW7eCgoIqVKjQtWvXFi1a5MyZM1OmTMOGDXv0
6JF44ebNmzDnkJAQLKM7GR0/fnz8+PGhoaEnTpzQ/3r58mUo+sCBA/fu3etO
LhISEtbwv//9D+mrUqVK3bp1e/To4evrmy5duhIlSqxbt+7t27eJSZ5yXFxc
gwYNIiMjcastZ0RqGzduHDly5KhRo/RM++XLl0uWLBkyZMicOXP0/FxCQkJC
QsILOHToUMOGDXfs2KHYu99++w3DlC9fvlSpUpX8B1FRURhH/ed8NXv2bB8f
nzt37mh+ev36defOnVu3bs0f4skvv/wSHh6eNWvWw4cP65N6+vTp3LlzM2fO
TF62VvH/YtOmTRh9Pz+/o0ePeigLJzh27Fi9evVq16797bffej93CQnngLXO
nDkzMDDw2rVrysMbN27gHcOTM2TIUK5cufz586MuLl68aJgCzLZ58+a8/+ef
f6qfQ7wjIiLKli176dIl8QS9ce7cOSSxWrVqz58/15dk//79pUqVQoH89ddf
ttby/wfEGwb+2WefdejQwfuT4UJt1qpVy9/f/+eff/Zy7hISEhISyQLLhc16
8uSJ/id4cmxs7IIFC/j/mzdvnKQAu4bZ6t/BzPF5dHS0wr35Y9y4cWXKlIEq
G6a2YsUKmPlPP/1ktULOQFFHjhwZEBCwb98+wyp7GmRK1rgMo0aNojDeL8B7
ARyxmJgYPKmwsLBbt2696+IY4EOd4fzjjz8SEhI05FYA/zcyMpJanz171snU
Mb7wjBkz9uzZox/e8fHx06dPR6soT168eAFBDQ4ONuTAsHTYODlarU0yoBOr
VKmCR4CzLKbHvYzLly9v2bIFZfjDDz94P/d/OejxpUuXTpo0yQvuCRZ28uTJ
gwYNwpJ6Oi8L+FC1mYTEewdYdKNGjeCohiYJQ9mtW7fatWsjs57IHav91Vdf
vVt2KsowevRoyZAdgZa5cuVKhw4dihQpcvv27XddHAN4YYbz34Aff/wxT548
q1evNvx18+bNuXPnNgzHsgUomZo1a75bdpoSyvCvxdOnT319fcuXL//w4UNP
Z7RgwYLMmTNv2LDBoxlZg9RmEhIpBBAeaM+MGTMM+SGapFKlSqGhoYbhHO5D
MuT3BSht3KjGjRs7Wbx4t/D0DOe/AZGRkbly5Tp79qz+p7///nvo0KEVKlTw
3FpPSmCnKaEM/2bghWXKlIlx6OmMIiIi8ubNi0vo6YysQWozCQnb8eeff65a
tWrQoEFBQUE3b95U/3T8+PGRI0cGBgZi5tQkZ9euXdjEgwcPwg8PHDgQHBzs
7+9PIoIunjp1il+/+eYb5/lCpG/cuGGhwCmWIf/8889ei/qg1y5cuOCJuQIb
a/HgwYOyZcuOHz/enb1gHoWnZzjfOzx8+HDixIndunVjbKvXah8/fjxp0qR+
/fo1a9bs+vXrynO8YB5WqVLl2bNnvL9w4UK+5R0GZ2JSiNfnn3/eqVMnw5AP
Na5evfrrr79aKHBKYKf6Mrx48YIaea0AllvvwwCDEy8MG6T3xG3sCIZ6r169
6GjStCVB2yG1mYSE7YiJiVm3bt2dO3dKlCiBj6w8P3fuHNzm9evX+/btK1Cg
QEJCgngugpBLlSrFJxs3bly9ejVEt2jRol27dhWEbcWKFTjazoOQ8XZ5/8qV
KxYKnGIZMswBeuCh6Gs16JThw4dv2LDBEy1gYy2OHDmCxnYStget+vbbb2fM
mMGYYTB4uUO9MMP5fuHt27eTJ0++dOlSVFRU4cKFFX/51atXiBsyS0N9+umn
vKP0lAhC7tGjBz/xHJ+aYZkhQwaxiVVMai1evNhJpiTFy0OGDFE2AruElMmQ
oWpI6DfffOPpIe1m630YQJDHjh2bM2dO/SmmNnbE8+fPq1evPmDAAEdro4jP
oUOH5s2bN3fuXP5I1iu0F1KbSfybgfRhjAzFHEOG2Pbs2bNPnz59kxAcHLx7
9279ywcOHPjyyy/5lTf5Y/r06b/++uvUqVMfPny4detWyMz3338v3oTrIuZi
+8OyZcvy5cunsFkRhNywYcPZs2fv3LmTXChbXFzcgwcPEv8JQvb19XUShEx2
AQEBhudgmIEhQ6YRatWqtX//fvFPtBP2GtNsbfYSZdi7d+9cuXKRpjJjQJq0
M81LHR1FWdCAbdq0EU3hIVAMzAG181ywmTu14FsG2ODBg/v3709b4ToZBiEz
Zhhg5DJ//nwo9KJFiyBaQUFBjvZ+JgvINjyhe/fuDGwhCPQgQsETRweamZ/h
TFGgLoitYe8jmwg1fLVXr15CFfAHDoh+5879+/cHDRok2or+CgkJQYKQd7HN
h+fqubK9e/dGR0fzB0oAVbB06VIlHRGEPGbMGLxpMbf86NEjtMEff/yRmDSp
hRBBm51UB5lt27atZbNuyJA3bdrk5+enpMlIRilZPgT+5MmT9evXT58+/bhx
45SBdPfuXUbstm3bHJWBAdm+fXtPn3jpZut9MDh79iwMGYWsl3R3OoLBHBYW
NnDgQERpwoQJmEhHQciYs5YtWyII27dvh5B37NgRXxKebCHTxKT5aswuugsN
hh4jd2GyeRIeHm54WOt7qs0kJJwAi9O0aVO4lpNd2KdOnWrWrFmlSpVKlSqF
EoCaQkLUxAyLhg1CcNKlS/fRRx916dIlPj7ecNENagqx5LVixYrh6l69elWk
Q+7t2rWrW7eueou6AIaYBGvXrq1IpQhCTp06devWrY8cOaKx1CIIGZXiyNHG
dCLyEDzLK++GDBkWhPo6d+6c+OedO3fgZrNmzbI8dSBmDNBISgVproIFC+IX
/C8JhgyZSs2cORPK4bndxFFRUYwH/claNsJaLWiKtWvX0vvnz59PTBrbhQoV
MgxCJv2FCxdCxtSDB5rRoUMHBqE1c49doPd37NiBIUNMEIQ6deqsWLHi4MGD
kBnDT8zMcHoNv//++9ChQ9EGjkqbmGTrkSxauGLFijly5PDx8Vm+fLngogJ0
AaP066+/RsBpgQoVKnz77bdQX70U8BV2HEHOmDEj9Pi7775TVBA8GdmZNm2a
/iuYJ4wXxqg8Qe7SpEmTJUsWvDZ19EXiP5Na5cuXf/z4saMaUTa66dixY8k1
j0Po2SkjAUZUr149mlQ82bhxIzReUQ4WgKJjUG3ZskV5wtBS0nQ0j01DffHF
F9ZiyczA/db7YICmgqAy2JTD/9Ww1hF4f5gAmCojmfQDAgIwMZcvX9a/iY1G
W6oVF5+sXLkS+bI8EUTnYseXLFlSpUoVZLlAgQJTp07dtWvXpUuXnBwak0K0
mYSELViwYMH/uR2yY0e1mVMgVtA6d+6siDbmr0aNGmnTpsVX1ZBqOKGwd/v2
7XOSI2oc26GJN0YVIICQFr1NROqxs4MHD1YY7+7duzEWsbGxZFS2bFnorrrw
IggZk+SoAHAYrIk7+471DJmy9e/fv2rVqsqBqGgSCnngwAHLuVy8eBF9iB0U
/0TjwepLly4t5tWd7NSDD+BQbN++3XLWTnD//v3PPvuMLvBE4mpYqAVdnzdv
3rlz54o2+eWXX2gu+Kq+iRhvdBZtq1H1kGp8EDfjluFFjHDEytHpCgrMzHB6
DbQJhSlevLgjO44FDAoKYmCLxqGaoaGhOKr4FJqJd1oVh5cWGDRokJPdsi9e
vMDV2rp1q7qD+BujjKlVTjxWQFIkCDlXmICQOxg7eglvFMYIhVbeF5NaKDdH
k1piUYZauLMaomencKRy5cqNGDFCNBSF7Nu3b+XKlS2flkybzJs3jzZRzpem
6WBcXbp0EarPEUMma3wEmsgT03q2tN4HAxQjUp8uXTr1CFRgoSNevXrVMAnC
z6KRe/bsWatWLf3a6OvXrxG3Xr16aQYYpLpVq1Z84k6IOGMPyUKWW7Ro4bzw
KUqbSUhAUCMiItw86BXpO3PmjKMJZOwONlGz2A1DK1myZPr06TX3cSCeOJtY
zK+//tpRdsgsNu7gwYPqh8jg9OnTCxcufP369YSEBCVQQQDvG7lTrsYQQcgU
AI3E38OHD8cYYZKwp4KZiyBkzD2+sxKzoQD1gh6bM2eOO1FheoasOZGVguFB
iEJazmXDhg1UXFmZPX/+POwF8iAydcKQeTJ//nxfX1/b7y8gZVh6kyZNlMkx
z8HVWogdW3AkhVkdOnQIF2PPnj36l1etWpUqVSr9eYDwjebNm3/yyScmHag3
b97QxZo5agxW/fr1SX/NmjWaGlEXyKQySJKd4TQPkmXku7NwQAPilD19+tTw
V1Lu06ePpjFpLtxnrGf37t3VXqoQTJ63adPGkVWlNRjhDCcNhYbW+vn5tW3b
lmaMjIy8d++e8hOcgS5Tthsk/iN3Yp1F6B84GzlGR0ffvn1bTGotWrQIDbZu
3To9Vz9x4gQutjtTu4lG7BS1g+SK+AcAP6lRo4Z6MchViElpKLFYYqPpqBTa
QLlvxUks9IULF8qUKWN5ItEJbGm9DwM4lfh6aBVUB2PeUAxd7Qhc0YwZMyqz
Rs+fP8epDwkJ0Q9jcs+XL1/27Nn1W+SWL1+eIUOGnTt3msmRlJEUzeIguWMu
keXWrVtrZBkJRTyFLbBXm0lIuA8ULw6m8wlbdyBEY8SIEZrpZTGTg8g0btxY
vTsDtcATnk+cONER/9yyZcuECRM0loL0US94wVhALKZm56+YUFIeiiBk/Fm+
oiQYRAwHhnLp0qXiDoLw8PBKlSpBGCiG/hT32NjY0qVLu7m5WM+QYWXqE1lp
FroG/91wZt4MqJpYzhaMBRqGBRw2bJjiyzg/7Q1uQDV37NhhLXdHwBOpXLmy
Mq3tabhUC8FDlEAdmmX27NlFixbVX9GYmBTDOW3aNHxDzXOaHRuUOXNmk5P/
R44cqVixYtq0adViYsiQMSV16tThIYZGxEUnO8PpEo4ePYogeC4cFOHy9/fX
B2Cgf7DjeCKaKd/FixejCpxsB8C179Gjh35JGtlE3tevX88L48ePV3sfP/30
E0wAo688EUHIYkCSlI+Pz9SpU6HKkyZNQpnQJrwfHx8PWdXfPilELCAgwM14
JD07xbMrWLCgMhUvlMPKlSstZwHrgHsg/mJSGiVWokQJGJSTMiigdrgbYvOC
5QLoYVfrfQDAT0HzCBcMnYwsiHNUNHCpI8QcS44cORQddf78eUaR4dooKUPO
N23apE8ZlxbxxF01sygGPe7UqVPq1KnxQxVJN2TImCHMX5o0aXCRxLU+9moz
CQn34WmGjLghL4gGjFQTHhwRESEuklavrqIfgoODef/LL780XFqFJHTv3l0/
rYrwTp8+HW4zcuRIKLSa8lGGzp07I3pKAR4+fIifjg0Sr8Fk8KyxHXPnzhWy
+d1331WvXh1/Fs6sKYbYxAe7dlOr6xkyBj1nzpzKApOIlIbtw1jWrl1rwTZh
8mrVqiXmnaAKkJOwsDA1W3DOkKkg1aTp7L3kC5pBvawdAGIBLtVCROP07NlT
tDaftGnTpkmTJowcjJdJ6shQHDx4sH761wlEtHP27NmV3tczZLFKIpxKZfo9
2RlOl+BphhwVFYUjkDdvXs2c4c2bN2Gh6dKl27p1q/r59u3beYiDY7jdElFF
fNQcT4EIvUCTIMIaT5Yy5MqV69SpU8oTvCcGpCAk9Pu4ceNQifjvwsHBu2T8
IET4L/q5cdQRxVu2bJlrDaGDhp1SNZx9tWsQGRmJckhISGCE4FJZyIIPqbjQ
jbt3765WrRqcXy34zs/ToI6lSpWy99Icu1rvfQddA0vEGRfye/r0afra0RyR
+Y4Q01C8rFhYlAmCdvny5WNJMFm8/fv3Z8qUST/96wgi2lk9zWXIkEU10QZi
x0ei3dpMQsJ9eJohK3PFfn5+mr2riACeJrZJvQYqluAFo9ZTUGG/NGZU/S2q
QL9NT9AeZfJEvPn8+XO1R4x10KyJI8iGi8WCXTu6Z8Q8NAxZxBnCkcQGIrjZ
kCFDoAeQBBQU9tFCdmhC9M+CBQsg2LQnBlEzCeCcIfOQaqoVrPsQ1WQw6LvJ
Q3CpFjR75yQINb5z5056BLp7586dCRMmGPpENOnZs2dx97A+NDjZMUohVIxh
VL3JQuK2IIZ8okyt6xkyRQoKCuId9c5N5zOcrsLTDBk9g6nFLKoJamKSM1iw
YME0adJojh9HFmh/eJ3hxqK9e/cOHz7c0QoLXXn37l2NX8nwCw0NVVZVBGhY
9dmwtC0GWj0+eUKbGLqoMTEx2HT9OoKr0LDTR48eoWSUncVoSFz4MmXK8AeD
2doZhoxGinr48GEaDfqtd1GdM2TqiDJxpHutwa7We68RFxdXoECBkSNHKtQR
bYBTVrlyZUMD5FJHbNiwgWEjlsAQB9yiihUrMrynTp2qhKNrcP/+/U2bNi1d
uhRHTGg8vCosEY65+UmhefPmoamaN28u5iUMGfL69esRefVeVHu1mYSE+3CH
Id+6dQvy0K1bNwTBScgB8o6PrDmfHJGBciAyn332meYn6BzM2VA/HDx4kBzN
yCnpI26xsbEQmD179uTOnRu5c6VyDnHo0CFMtuHMVWKSCUa9VKlSBdmH/KMW
NBYcWy8Oz9EwZLG+nzVrVigKRhC3gnagYTt27BgWFqZh7xcuXGjTpk3mzJl5
v2vXrpoZdYw7ZSBf9Ay6t3fv3tHR0Yb3wSV7p564VMXG+MNnz55h6/v16+do
fsBk1VzK1KVawBzwJmgTRhpcFI/M19d36NCh3333neZNqoDtoNeozu7du0+c
OEHHzZw5k3ELuWUM4wOaLCHsS7DfSZMmib7QM2TBonnCwFA+dD7D6SosM2TK
Nnv27F69ejVo0IAOcjScEEb6Vx+2hH7Ili0bPa6Z10LDwJwN41UoZI8ePTTn
TjgC3IC+gAHCPGEICJQtl7+QCM0OlTU8eSAxSajDw8MLFSqUNm1aFJ24nEj5
lb9xwcRKtIad0g60BmyBnp02bRpDEaqDm4/XPH/+fPVUnkmFI+6JKFeu3Jgx
Y3BPDKvvnCEL0o66sOvenGRbz7wutQbzveO5xEWrBgcHa/Tz5s2bGfb43XpR
cqkjUCMDBgzo0qULegybggfKKEKb4S7pPb4ff/wxICDA39//66+/hofDYHnz
5s2biDaqqW3btuaDHyIjI0WghVgEMWTIjGTNLgN7tZmEhPuwzJChOuhtjJ3Y
24K1cikMAFaMNkZAcGY1SkCs6RQuXFgT/Pn8+fOePXuanD/BgGIKAwMDkfpa
tWqhH+wKFVi1ahV0y/DKTrJAtNEM6dOnRzei2PlbfSIcqmDKlCliQkzDkMWh
E6tXr6aaN27cEKXFRvzyyy8avQTtz5kzJ0wJ9osWFfPz6p0RsDWUm5k552QZ
MtUkLxsvABX7QdCNhr/aWDU1XK0FzX779m3FcXv8+LF+xvv333/v379/sWLF
1MRbHNuyfPnyokWLMobj4uLM5wiBob5KsJ+eIb969apOnToYXM0+dycznK7C
GkOm8HQoXhh/UP5SpUq5tLeU+o4fP566k7Um3hgriRQjR5qrePkEZwQ7bmYk
UCo0FRTr3LlzoaGhqDu71kQQ0pYtW5Kgoft57949oeJy5MiRJ08e/lAf1S5e
GDt2rNiFoWan4tAJXINr167xjthNnJg0JGBH6iq7pHCShXOGLBy0pk2b2hUz
7Lz17K2aHi71jucSpzfpU/10Ac9xDw23+lroCDQYo0iMHBSX3iXhp6ioqLx5
8+KOqQ0lIxADLZx3vDPzzpGIjxKXVCYaMWRlsRj2rtZdNmozCQn3YZkhb9iw
AT83Menysvz58+N4ujSzt23btgwZMqBG9Ob40qVL8Jns2bOrl2KRTaww3MMk
O+J9nHR0rDj1wq6IJpIdOXIk/EcdGSJAwSAzePdbt24VAo7FGTNmDIRBmWDH
Rit3ZGgY8rp169QnITsCSZUvX55kxdk71GvHjh0lSpSAt4sX4HKU0OQ1Gcky
ZKoJCbRx4ujQoUP0rOYAEwF7q6aG7bVgqPfr1y9Lliz6A+soXosWLbAOMBzN
aYROQMEoHvaiT58+YqzqGbI4oxvHQXOKi42wxpDpOMz9H0lo1aoVlMDRAq4h
6B2kBi6hr5cSfKLxoxMSEvr27Ws+UAe3GhIeEhKycuVKG8N7xMkAnTp10ht0
St6xY0e0orL3kFZq1KgRPrsgNlSHwijHeqjZqQinUa8+G8JVhZMsnDNksZuj
WrVqdp1h7qT1XKqaOAKCks+cOdNk1q72jiMcO3aMbqpdu7Y6JMCuxB3B9o4A
uLcoFhxJzWwMeYWHh+fLl8/56VJ6HD58GPX48ccfC5KvZ8ji2Ar1nICERAqE
NYaMlWF4i6mYiIgIHHyX4nKRGmw9CtAwNoNk4UXp06ePiYlRHqIPe/Xq5eSG
O+9AbCQ0vBPz7t272DXNFDcaBsW+aNEiEZ46adIkhfarGbKIzq1evbpzpYdu
GTZsGFxa09Tx8fEYGjHdgeJdvHixyb5IliGLEO5u3bqZNLKC1pJgWFiY4V4S
PCMYsv5mKNur5k4tkgXGAg785Zdf6pcdGaJYTDR/sgxHA1xO5AhLKqbU9AwZ
2ompKlKkiL27pdSwwJDpjmXLlomgI5zlQoUKuRRkTo9glzNmzGgYaa9EdCuO
Q2KS8uGfmkjmdwK8odKlS4eGhuod8O3bt+NDaQbAo0ePYAjidDW+RYUqCk3N
TsVOBzSDc+bgqsJJFs4ZsthRgmY2v0AARaQAfIW86zvXSeu5VLXvv/+edODS
5ueTXe0dR0BSMJ18pd5wbVfijmChI5wDxVKsWLGyZcvqQ0qUmd6cOXOK2Zu3
b98uXbqUxtfHSqkh7jVQFlv1DBlvumXLlmi89evX21ILCQl3gMGNi4vbqgOc
pHz58viJ+p+QdEe2mOHNyEeBY83x3/PkyaMcqpks+ASrV7x48bNnzxq+II4n
RZqUPc4UHp2jP5fY+0Azt2/fXn2phwJM/Nq1a/WGAE0SEhJCFXAHaGdlpp03
R4wYAQuCbt24cQOGPH36dOc2EQaCatUvSqK1eI49+s9//gPjda67FNy7d48C
Q+T4xBHthLFXq1atbdu2Jrkl6WDX2rVr5+iENHhgtmzZ9NGD9lbNzVo4x+PH
jytWrOjogFAxM8boNbzNzQlu3rxJoxUuXFgc8KVnyBs3boSWwxwsn/6nAFOI
I6MXeazhxx9/jM+r/wkmYMh7qeOVK1fEejH+S+rUqRcsWGDeQWM84DE5uldd
nFtOY6JkRK35hOLNnDkzJcw70YzQAOVSDwWMVTxEw3gwOnHFihXUAnWhnniE
L1WqVGn48OHR0dEwvQYNGiSr7lxVOE5AIsePH4d8Uh1HDFkscxQoUMBQrg3x
9OnTefPmZc6cWbMBU8BR6yW6WDUaCmJveIWxISz0jhNoJhnsTdwQFjrCCZSt
9Bggvasi1kxFBJQi/nSrr68vtMHJee/obQwlBFjMPOsZMtQCDsAAMLmVQELC
o0ClwBC+0KFWrVqZMmXy8fHR/4SBNlRTaoh75M0faAlFmTBhAsJleNijgIhP
Q5rEsrhQKfpLAd4JkG6a0XCylyeGoc7i1Ee02fLlyzUbjnbt2hUYGIgmSUhI
MJM7jazZ1agAG4RtpTtmzJhhsqFOnz7doUMHCuDkbjuxf9D8OT+JSd5Tq1at
mjRpYhheyIjKmjWr/rgqe6umgYVaOAGeY/r06UuXLm04h4Og5c2bF6FwdYe+
Eo4LteZvDUMWd2PhXLhzwaKACJaGg+lFXjB/+Ib+J2UGzBEwoBRYRM+aLAmO
koiicUJ3xbUsypoyieNfe+60DZeAlYeo6Cd7+SclNNSccLyxY8dSF5Sb+loE
pAYVhyINDQ01eXmZBYXjCBSYdm7Tpk3Pnj0d8S5xSny+fPlcul6KZBEHw9ld
R62X6GLVXGXIFnrHCTQM2d7EHZXfQkc4woMHD3CK9QctCojLj1BK+KTqSm3e
vBnaoNkdoMHRo0dz5MhRt25dvD8NQ/5f0jnzeNM0RUow6xISjuDOWRaM84kT
J6ZNm9a5pChAtJcuXYr76dyGiis8kCb4G4z65s2b3bp1c+SuUgZDJuYhiBiw
Tz/91PxOW2q9cOHCPXv2oNsdkUD3cfz4cXJBC4nD4uwC1axcubJmM4VzOLmm
GWzatAmaZ34LW6IdVbNQC0dQJlVwlAyN+Lp165AIvB4LM72YkqCgINj13r17
f//9d4UhY1OwrXBXGiFZg8IYW7x4cVhYGC+7uqnKndPe6Kbs2bMjsya3xJ4/
f75q1apODr4QiI2NpeJFihS5e/cuTTp06NBklRVN5x0KLeLbXdrBJI44wDV2
NG3uPjykcEiWQUV99VswHMHJHceJllrPsGquMmQnsNA7yQaquZO4ISx0hBOI
gGEcW8PlOYwvokdeml9h+BUqVPD393difIW5R3hpHyRXzZDj4+Nz584N9042
lNodbSYh4T7cYchi8bpMmTJiMg0pcCL4KJAtW7Y0bdpUHbmBud++fbv+IDhx
h7s4xwBCYricjcUcM2bMV0lo0KDBwIEDvXA+jLgujSq7tF8MD2Lw4MEmt95b
w/Xr1ykYTWFt87Uj4Jh8/PHHTg5n0+PgwYO5cuWC2Bj+inWDR9Hp5svgftUs
1MIRMPpdu3ZVH8umBvaiZcuWWbNmtbyZDiuALahSpUr37t0ps9jrjYQiaNhW
M4YVgooBYohCVl2dM7fMkIXjoMxE0c7Os8bgUqmYmBjN/jvl7gAF586dw2XI
kSPH2bNnd+zYwTBwnjKDpF27djAWL4RhwBN8fHyCg4PNjyuUJA01aNAgw8Nw
7IInFA517NOnj5PD2fRQrvA2bB8LrZdoVDUbGbKF3jHPkO3qegsd4QSbN29G
bJVj2dSgRsuXL0+TJg3F1vQRwoXPjmCePn3aSeKkgC6qV69ekyZNWrRogTZj
PPTu3btEiRJTpkwxs03DHW0mIeE+3GHI4jJKoQCx7PBVJ8coHTp0CMul2QsA
AR46dKjekRR3b5UrV27t2rXDhg3TT8ehD9u0abNy5UphBzG4+LlBQUGenk8W
7D1PnjwuRU+tX7++cuXKHg24wu+oWLGi+QN4TUJcdqa+okIAq4Rpw1T1799/
1apVs2fPVrZpz5gxA4ZMr/Frp06dpk6dqvb9oUDoVZeunNZUTUxNwB5hTerj
c7dt21ajRg3DEeioFhYg9lSmSpVKuRxcDYhxlixZcNbUynzTpk34egrtxLfq
1q1bspYFZli+fHlsCt4B5Xep5Ddu3ChYsODChQvNfyJgmSGLOSUIj7DaGzZs
cHRgeGLSrqWOHTtqfCi6lVGkv+fr3r17RYsWzZAhAw2Ob+J8ZVnYdCy+jeeW
OAEmHuuvXItgBgyMzp074/54dELMEwqHkrdq1Uq//5TntDm0h2EPa5o5c+bu
3bvFcD1z5gzCzmhHFSA11FodwmGh9RKNqqZnyNgLOOSIESMUXrd//36eJLs5
Tt872CaqhkKrVauWMpPDa1g9cfWzeYZsV9c76ghr2LlzZ/r06fHr9fzz6dOn
4oYRQ6UqAixNuqKoFHGaJQkeP37cpR63rM0kJNyHZYaMXMCCYMji1JqLFy/i
FTpaxYYXoU80gkYKKC70j15ejhw5AtNAcqEWhnr+/v37xYsXhxGJmD2xuU9z
gbWHEB0djWZw6eLXZcuWwRXtvbtZg6tXr9Ia1jayOQGMhcpSZeUJhgC3pVKl
SmK6T1yXrJzAgG1q3bq1uFGFNx8+fIg5Uwfh0EGlSpVKdp++Gvqq8S0p0N1K
JDBGB6tRv359Q6uhr4U7gP7BwTSBeYlJM2a1a9fGBKgHIXanffv2anO2ceNG
PKxkj/XT79Qzj+3bt+fOndvRlisnsMyQ4+PjM2fODEeCk1BTesfRIgssBb6k
v76HrsSD1g9gKEr16tWxrZ988gkt75yHXLhwITQ0lAHmHYYsogiSPYJGDQSk
bdu2tnuyGnhC4aBjEUPlQnYB+pondJwgqCtXrkyTJo1CZvCd+SdMlVozMPCm
u3Tpokx3WGi9RKOq6RkyPnWRIkUUCUUG8cjMUErD3hEjEGarVByNBGfDoftf
EszPIdvS9YYdYRm4nMWKFcPOahqH/ho/fnz27NkdrQaicuHVePFmprKVOGS0
tKtTwZa1mYSE+7DMkMUe2AIFCty8eRPZnzBhgqNpMayemA0zhPoyaAXXrl1D
KNKmTevoAGQeXr58WZlQunv3bokSJZo2bWpvjIEhKBu1xhaYfF/sSjAZqm0Z
CQkJGCDbSfjXX3+NLVBfUHvq1Km8efPOnTtX9IuIOh4zZozoRPFPZX+62CKH
WVQ+Z6i0aNEC1Wo+TFdfNXqZQatO5Pjx4/nz54dBmayFO8Bi1qlTB6OsPs+E
mgYFBVWsWFHj0GE+ypUrpzSImILGa9CfhaIBDPPTTz9FQJAsl5ahhfvg4+Nj
YTeQZYaMAoEhCzKPRYPGGBJUrGqfPn0cqQLNZdACdHGzZs34NSAgwLl0w73D
w8MZLWgb7zBksGLFCrSB+dlaiBxcy3ZPVg0PKRz0fOHChVHI6oxgoWgDJTYG
JxTvmFGU+A8BVo79EfvLihcvrt7f6mrrGVZNz5B3795NMZQDc8QldGYuUjTs
HXGXk7LsRSKTJ09Gy4nXzDNku7pe3xHugOpMnDgRJqy+MxSFs2TJEmrtZJsA
/YjTkS5dOs0FRoaAFYsTM3x9fV1yiNzRZhIS7sOdKAuMEdZ/2rRpQ4cO/fbb
bw1FCT0JQXJkE8HSpUv1X4kTQWG8Zg5WFWdjFilSBJpkoRaugiLhcQcHB5t0
4aF2AwYM0AdY2ov169eLk0JtTFPQOYaHMr3Ak379+uXJk0c5DF9zB/fBgwdz
5sypxI2LUzGxC0qalHD69OllypQxP9uvr5qYI1JukaBHWrVq1bp1a8M5In0t
FOBhobdDQkKw3Xhq5i21mNauXbs23Ds+Pn7WrFmwst69e+snTjHftM+2bdvE
P4XLoJ6P0oAU6tatSxuqZQRXsVixYuoLxTRQr3RjryEM1sL2LDPkFy9e4Ph0
69YNbTBu3DhHk3VoCeriSBUoR7qpIboP98fR4ZACtAwcZu/evVhSbzLk06dP
58uXT+nfZAFB6tWrly3r447gIYUTExODm6lOVmjpJk2aCM9FxKIr8bEiCFk5
Q4zR2K5duxIlSqgF39XWM6yahiGLEwLVGkYsIW3ZsiXZ9A17B78bEVbmf8gd
ng+BFMrHPEO2q+v1HSHw5s2befPmoQToBbTZjh07TJoDcTO10KhxcXHoWywv
yo12c5SCuKVl1apVdHebNm0cxY2g5SgJfD5NmjSKmKdKlQqvqmXLlo5mCezS
ZhIS7sMdhiw+P3HihO07x9GEcI9kj40i3xEjRlStWhV9aPLANPeB0pg/f/6n
n35q0qvF14Y8eDT8A0WEijNvaEzi6dOntO2cOXMUPSkIHhROeC5iSkd9h8XC
hQvV26JhLBkzZtSEkF24cAG+Z/JKKcOq8S02S6zUM1TCwsLQoo52dutrIUoO
q/fx8fnmm28wqYw03pk4caJ5FwMuJy5txD1cs2aNI3bNUKFBxBHHiUl3KOBf
mF+AMAPDlW58CgtJuXOWBSbs3LlztKTt21EPHz6shLY6AlqIoUgZvMyQYRdQ
RBFeYub9rVu34pF59FJdTygccQNa48aN1QSP0ZI1a1Yc3v/9c51x/fr1GYeC
zFy+fJmhrlzEJvqFFNQLAa62nmHVNAwZotioUaOAgACx6iTUtcmZan3vUDCK
p6xuUADygvUpS1rmGbItXW/YEYlJkwYNGjTo378/z2kBHBP9He5OQOGh3Pjg
lHDu3Lk0qRNGevHiRazAunXraBzqnjt3bidnt7oKG7WZhIT7gOoEBgaKdbH3
FCgEcdZ9VFSUd8wihKds2bI46WZehs7hZXs0/APrg3q0UU0JwCE/+eQT9bKg
uJxOCYHDTFA1zCKqGIX56NGjGTNmKIGFvNOvX79SpUpp7p2BW6IAxT4XC1UT
ZwyKIGS6fuzYsbh4TtYu9bVITGLphQoVIh0xYK5evUqlnO+eswAxb+br66uY
qsjIyJw5c+LNHT9+3KVQdkcwXOnGZllbT6EFWrZsafI83pSDZ8+ehYeHi6lL
LzPkxKQYnooVK5o53AZGMWTIEAib5860SfSMwhEbCjQxtPv27cuePbtyji4i
hjOIK0oX8ObJkyfRyUqoA+5ktmzZ9NfNm2+9RAdV0zDkW7duka/i7QoZrFOn
DqMa6XMSNGvYO0hurVq1xKIPKfv7++OPq/eDm2TIdnW9YUfAKnEcateuLSSX
9qFIzo8ZtwwUC7YPb1Q4NWgMFJpLcwtOYK82k5CwBSnhdio3ITZBIEremUmm
xSZMmNC+fftkdyXz5pgxYzDfHm1kuBYs0aX4rmRB1aig5kR3KHHnJIgZBqwe
JnLAgAF37tyhQfgEE1atWjVh7/bu3Vu0aFHDxU08MvS84Z3jGuirhnlq0qRJ
8+bN+QlzOW7cOCehOIa1EJuG8uXLZ3j1lY0QAZBYLmG+7927J9Y7+ANXwpbc
DVe63Qnbe+8O8KfACxYsUHx87zNkBidOouHZJvo3GcyHDx/2XGE8pHAiIiIg
mZoocRgjZEncl4cGhgFmyJBhdxJgwnREjRo1xDQCCgESi9Dpo2jMt56jqmkY
Mh4xxZg8ebLgbPwTZt6rVy8c6vHjxzs57Miwdy5fvgxhY4CtXbu2UaNG27Zt
0+RukiHb1fWGHUGDZ8qUyTBe0V7ExcUVKFAADaPMMNOekHOUuS1HrdquzSQk
/p24ffs2SlW5RkTMK3700UcoRu8UgKy/+OKLZKNTkPRWrVoZXldkF6i7CD+z
d+l2//79qGL9Wu2VK1ewFFiEwYMHz5o1C4Lq6+s7dOhQsdEDRjpq1Kjg4OBJ
kyZRcUfTpBSVT8LCwpzzMcOqYW3LlSuHFl20aJHhrXbJ1kLEiqjvUfUQjh07
ljVrVqh49+7dp02bRott2LChQoUKYjbJlsg6w5Xujh07/nvC9s6fP09vdu3a
tXsS2rVrR4NgZ3v27OnSxTTuAMewbt26yW7qv3DhAsLi0YArTygc+Imfn5/+
UHpxaTjEb8qUKX379oUVI5VdunQZMWIEn/Ar9BhPdubMmUFBQQiyo33EJlvP
UdXUDFmw6HTp0uGHhieBsmEaeAGF4/yUcsPegRLDCVFB0dHRhuzaJEO2pesN
O0JUOUeOHLYvgWkg/H10u6YdNm/enDlzZqi7+9PIUptJSLgP5V4z5YRbhSHP
nj3ba8WAfeE+Ow/avHfvHjJ+8+ZNzxUD9tirVy97t65TKUybo1BhaC0einI6
KHpbQzX5PFl7h4tB6zm/FdfNqjmqhbjppn379mribfvljILei1uYGQaQeTH7
hKGncexaZ9evdBcqVAjfQax0v3cTwtZANf/6B1evXs2TJ8/w4cPhYx4NZlAD
Cw4Zw1t03uCbNm3q0aOHR099tF3hUKOxY8c6uaiF8cyoE5Wi/RnnarFCpu7c
ueO8WUy2nqOqqRmyOOUmICDg5cuXN27cUHQUqiDZK0Ws9Y5Jhux+1zvqCLQK
D8Wlk+rntLy96whUEMWl7yOe37p1y9Glty5BajMJCVsQFRWl3rKB9qtXr17J
kiWT3dxnI9A/q1evHjhwoBNmhXVYsGCBR11gtO7cuXOTnU01D6ozePBgD4Wx
qXHhwoW2bds66TJ3quakFmjaESNG+Pn5KcT+jz/+mDFjhqMzyqyBTg8KCrLr
YH9H0K90Z8qUCd9NrHR7Lt8Ui+vXr+fOnRuG7OXgMcZSnz596AgnTGnnzp10
jUeLYa/CoS5QO+ply411TmCm9RxVTc2QEYfChQtbuxvIWu+YZMhudr3zjjhw
4AAMWZlD5uW4uDgMk413jnsHUptJSNgC9OTSpUsHDRqE4Bw6dAj3vHLlyvoL
uTwNrPC2bdssXzGcMkF74sV7h2Bcvnx55cqVnvAgnNfi2bNnwcHBDJvFixdj
3fr27YsStrfKIqbOpbtRLMD5Srfn8k2BgGXR2lWrVk2dOjUkuVWrVso2Me8A
9rJw4UIvXFrkNTx48ABS6ml6LGC59dQMGSKaK1cuW/bAmoT5syzcgfOO+Ouv
v7CGCP68efOEHuAP7/SavZDaTELCRjx//nzfvn24nLjPHl27lPgg8fLly+vX
r3vo/l9x/hLm2xOJa+B8pVtC4gMGIlakSJFFixb98MMPmzZtCggI8NphLPfu
3Vu7dm29evUgyV4L6XGEP//8EyWQ7FVEKR9Sm0lISEhISEhIuAlc0R49erRp
00a59s5rOH36dIcOHQIDA3fv3u3lrCUkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCS8gL///vvUqVOT
J0/u3r377Nmz79+/r3nhv//9b2xs7OnTp99F6SQkJKzj9evXMTExgwYN6tu3
b1RUlP7W71evXq1du/YDuD9XQkJCQkLCRty6dSsoKKhChQpdu3Zt0aJFzpw5
M2XKNGzYsEePHokXbt68CXMOCQnBkrqT0fHjx8ePHx8aGnrixAn9r5cvX4ai
Dxw4cO/eve7kIiEhIfC///0PaapSpUrdunV79Ojh6+ubLl26EiVKrFu37u3b
t4lJnm9cXFyDBg0iIyNxky1nRGobN24cOXLkqFGj9EybXHbu3MlPaJXbt2+7
VSUJCQkJCQmv4NChQw0bNtyxY4diH3/77bc5c+bky5cvVapUJf9BVFQUZk7/
OV/Nnj3bx8fnzp07mp9ev37duXPn1q1b84d48ssvv4SHh2fNmvXw4cP6pJ4+
fTp37tzMmTOTl61V/H9Kq/4n/MEdVvCBQdMUht3tPl68eLF48eKwsDDGmH4y
MyXgg/HUYK0zZ84MDAy8du2a8vDGjRt4u/DkDBkylCtXLn/+/Ij/xYsXDVN4
+fJl8+bNef/PP//U/EQrlS9ffsmSJQhRYtLgOXfunJ+fX7Vq1Z4/f655mXd+
+ukn3PBixYrdvXvX1lr+X3hnAL9fkBpPAeMhJiYGA4TyuXXr1rsujgEQNwRq
yJAhKVY3Skj8q4DCvHTp0pMnT/Q/wZNjY2MXLFjA/9+8eeMkBdg1zFb/Dgaa
z6OjoxWdzB/jxo0rU6YMVNkwtRUrVsDMMaZWK+QMlNDf379SpUo9evSA/0Dd
a9Wq9eOPP3oir/cOtEPx4sUhS/369evbt6+Ycvz9999tz4hRER8fzxjo0KGD
nnelBHjBU/MO/vjjj4SEBMNGxp+NjIzEHJ89e9YJZcK3nTFjxp49ewQNVuPe
vXtjxoxRiyq+z2effRYcHPzXX38ZFqZFixbNmjXzkOn32gB+jyA1nhqM4StX
rqB2ihQpkjIXMtCN+/fvL1WqVOfOnQ2FSEJC4gMGGrtRo0YBAQFihVcDdEK3
bt1q166NK+2J3DH32IuMGTN+9NFHWbNmRQup59b+5bh48SKGI23atDRO0aJF
p06diovkobxu3LhRsGDBhQsXeih99+FRT+1DBdQrT548q1evNvz1/v37JUuW
nDRpkp5s2wJvDuD3BVLjaYDdwfo0btzYyZzPuwUdlD9/flzXd10QCQkJbwPP
HSs2Y8YMQyv59OnTSpUqhYaGOl8e5TUoloXcsRdfffXVo0ePvLn8+uLFi6tX
r3otO/L69ddfLXwIvZkyZQpOimHj8PzChQuGfo0FbN++PXfu3D/88IMtqdkO
T3tqHyoiIyNz5cp19uxZw1/j4+P5NdnAFQ8NYHvxvgj1O9F4tuPnn382XOW0
gAcPHpQtW3b8+PEpNtRk8+bN6EbDfToSEhLvEf78889Vq1YNGjQoKCjo5s2b
6p+OHz8+cuTIwMDAoUOHqr31Xbt2YSUPHjwIQz5w4EBwcLC/vz+JCMJ86tQp
fv3mm2+cZIqL3bVr1ytXrlgosGIvLHxrGVR/+PDhVMpDU2cKSP/bb78dMmSI
EvXtEgTBcGRJReJhYWHuL1tjm0aNGuXj4/P48WNHef30008rV67EkyJT7x+w
YNJT+7Dx8OHDiRMn4imMHj1aHReB1K9Zs4aR0KBBA6y5Mqppq379+lWpUoX+
4v2FCxfybbNmzXCsEpP6dOrUqc6DkD06gO3F+yLU70Tj2Y7r168zlmxZ0Dly
5Aj8MzY21tELjF4aHM2zYsUKrIyn+1cDdCMWs0KFCnZ5BBISEs7x9u3bFy9e
GEo6tHbAgAE9e/bs06dP3yRAWXfv3q1/GTb75Zdf8itv8sf06dMxgjExMevW
rbtz506JEiUiIiKUl8+dO4eTjnLet29fgQIFEhISxHMRhFyqVCk+2bhx4+rV
q2/cuFG0aFEYr4i5QinlzZvXiSbEagcEBBju8jMDYS+OHj2KsR4xYgQGzprd
UWPTpk1+fn6KQnvw4AHKXHMmHlq3ffv2nt72tX///rZt21pWrRAMGNGePXtg
RHTTsWPH9PueMBzh4eEWgof5ZPny5b179x44cCBdULNmTUdByDQgA4w3GVo7
d+6kMGXKlJk1a5bl6WucNUZ4jx49evXqJQY5f/BPshDkTQ8znprXQC/8+uuv
rgYlIsJ4o1QcmRW1RnJDQkL0G5Ro2Hnz5okGATQ+H/7xxx+TJ0++dOlSVFRU
4cKFFf+XwiC2EGPKM3jw4M8//1w53EYEIZMOI5BvafYNGzZkyJABvpH4TxBy
06ZNnQQhe3oA24v3Qqjt1XgnT56sX79++vTpaV6lbXF56Pdt27ZZTtaMCv3+
++/btGnDTxbS51ukgOHav39/BAGLYxiEjCDMnTuXXObPnw+FXrRoEfUKCgpy
tGUmWaAwly1b1r17d8QQyRIyiHzxBC1qeCrUb7/9hkx16tQpZW7QkJB4X4B7
i7lB+zlhDhj6Zs2aVapUCVKaM2fOhg0boivU7BdrhSFDWtOlS/fRRx916dIl
Pj7ecDkPajpq1CheK1asGPb06tWrb968QevyfOvWrXjlpCzexHSiZ37++Wf+
Rj/ky5dPme8VQcgUY/bs2ZAfSkLh4+LihN4TS9u+vr6OlrYxsugZjK9lw0cB
AgMDaTS0MXXnj8aNG1MFa6klJhE/rGS9evWUmVWYf548efARNG9iXL744gtr
wSFmAIepU6cOrMByCtAhiCuMiHbGhcEU4uZoFDVd06pVK5iPSynTONiIdu3a
CaOwcuXKNGnSYID0b5I+XaypBTz2448/pjDWpgefP3/O4KTMDO/UqVOnTZsW
O0U1T5w44WikJeupeQdwMBwK5LdixYo5cuTw8fHBy6B3DF+mkYcOHYpOUCZp
Hz9+jKFHA4gY1JkzZ8I69JYXMURRIJi8hmzCfskX+RW76THojArYr3gZtoCX
9J8k+CdBYbwiCHnMmDH01PXr13ny6NEjpFsUWAQhw2AdTcp5ZwDbi5Qv1LZr
vCNHjmBKtmzZojxBWAw1nkmYVKHofAYwRNelbZ4MtrVr1yJB58+fT0wymoUK
FTIMQib9hQsXMubVrij6AUe+bt26lj0UehCTumTJkipVqiBfBQoUwGjigTJW
DX1eEYS8ePFia9lJSEgILFiwAInr2LGjocUUa3OdO3dWtDectkaNGtADTJiG
VGNNihQpkjFjxn379jnJ8YcffkCPaaIpSArmgw7Rb4pBA8BJateurTjLIggZ
ltK6dWs0rUZFiKVtKIEjIrRjxw4soDvqnWaBPyjpY7VLly49fPhwyyuzcIBy
5cqNGDFCkHbS6du3b+XKlQ3Pg4XA9O/f3xMmmzQHDBgQGhrqzvZnTI96igbH
B1OIete8tnfv3s8+++zevXsmk6XNMW0QTmGkQHR0NC4Vrpn+TRggA0ZZdFCA
FaYw7lCFxKSlDRLB+GrGsAbJemreAbYyKCgIYyqGFvyB/kV2kDXDSS0Iaq5c
uYoXL64hbLgG+CPO123JAsczJCREQz/gyUWLFp02bZrhQRbkxVfKT5GRkWSU
JUuWsWPHCoashghC3rNnj2EBvDmAbUTKF2p7NR6pzZs3DwqnbPfDdcJHQM87
ctyShXkViseHcti+fbv5xHH90Dxz584VoxTBofoTJkzQj2fEp2rVqugZTWtD
qgsWLOhm3DLZzZo1C3vdokUL50MF/xQx0etGCYl/D2CVERERbp7HiMU8c+aM
owlk+DDmVbMmhb0rWbJk+vTpNWdYoYvwcDG+X3/9taPssD6DBg06ePCg5jmK
Bb8Y71uvc7DI2OXBgwcr2nj37t3YrNjYWKh42bJle/furdarYml748aNhgWA
rsDP8fFtDAx78+ZNw4YN0c+W4/S+//57yqysMP7666+4Id27dzc0ahcuXChT
pozlEBEnOHHiBO1peRrHEJcuXaKzsNEaY/r69etmzZqNHj3apMnAo/nkk0+a
NGkilnf5auTIkYZByAzmli1bYkf0xx0wnrF0mE6Tlv358+cMfs3LtD81ypcv
n0b06CxexkETmSbrqbmEQ4cO4VO4OmgRtz59+mj4JMKCz0v7MMD0hITSXrx4
kcJrniOzmTNnRkidKBwIj4iOUD+kzEuWLIEOMRL0nyDCjHzFpyZ3iCLtRk9B
BnBDNm3apE5q6tSpkG39kekC3hzA9uL9Emo3NZ6Y74USi/kQunXRokU4So4O
0zYD8yqU7ObPn4/ranJjggiMZygqAxhhxDc3dNNWrVqVKlUq/eZcBK158+Zo
MJMzM2SKMtGcB07JsVxIbuvWrTUMGa2Isynmz0UQcvny5R1t0JCQ+DcAJYCa
cj5h6w6EPOKVa8wowgvLRU4bN26sjkbDHPOE507WQLds2YLrrdFavDx9+vTC
hQtfv349ISFh//796l9PnjyJ6hNRiIn/BCFD0e/fv8/fw4cPF4oa9SWaQixt
Q7kxN0rMhgJ4Ne6/O/vHxc0mrVq1UqwD7QNzo/yWrzBAYxcsWFCZtaMuKOSV
K1cavkw7t23bFppn70GXdCt0LiAgwJ1jZlHp7dq1U3fxlStXsCY81Jd29erV
+D4mYwKPHj2aNWtWxokYWtiC+vXrd+zY0XC5n66nj/Q0D5MBqRa7wJLNUcQT
iuniXbt2Kc8NGTLmklGXJUuWyZMniwZ07qm5BDHmsXqukrSzZ8/6+/vrhyWS
kjFjRvrFkLUa4qeffqI62bJlczQxhRSEhYVphDcxKSTSz8+PEYuuiIyMVK8a
0FM0V4kSJZSHIghZEBvhcUNN6eLo6Ojbt2+LIGRk7dWrV7jhmv71/gC2ESlZ
qG3XeIgh/G3YsGHCO0YnMwbUImYBLqlQXDmswI4dO8ykLMi2sr7JoKU1HLlp
NMi0adPOnDmjeU5HhISE4GMeOHDATKZoxU6dOqVOnRqyrTSyIUNGTY0aNSpN
mjT4QeK8cRGEbKgbJST+PfA0Q0ZXI6TIY6NGjTTBDxEREeKaPPVCLUogODiY
97/88ktDU44dxPbBbDXP0bfNmjUT8aVYTA19FRNQykMRhIyh5CtywYB+8cUX
GNalS5eKOwvCw8MrVapEwSDqIoxZXaNu3brxrTv2ArUTFBRUvXp1xay/fPnS
19cXy66EWbqaIHVXL8dDJOBgOAuwkSNHjug/WbZsWalSpew9rJ7qYDVI2Z1E
II3YDhwoRTmfOHECWqXekqMA7lGkSBGTG9kY59mzZ9+6dav4Jz1bqFChRYsW
YW3XrVtnkjrCqSpWrKif/nUCEe2s7h09Q0Y6MKCYs3nz5im+oXNPzSVYZshR
UVFp06alGJopxJs3b1L+dOnSKe2ZLDDZZcqU4RNHe6liYmJGjx6tN8pILvK7
fv16mmv8+PHq0E3EEMFv3ry54oOLIGSaLjFp3Rx3ZurUqVDlSZMmoRwEV4FZ
UX6S0nju3h/A9iLFCrXtGg+1hre1ZcsWhGX37t3VqlVjULmzqOeqCmXgYQU6
d+5sZt+uWMTs2bOncF74pE2bNjgISD2ax2RoMYNn8ODBGM01a9aYrBSFxLVR
zzgZMuTTp09TU3X4mQhCRjcis+Z1o4TEBwZPM2RlrtjPz0+zYRa5gw9Ab/Qz
QoJR6yko6gUrY2iR0R7Tp0+HY4wcOVKoTfVX6DE8YoWii9X2+fPni9dwyatW
rYrRnDt3rlAa3333HcocOgFn1igH8a2jU5TNg0LSAkoi8J+CBQtavjcNJkCp
lEBrmpQawUb4g6Ia7vM6c+YMKtE8vTEDGA56VT/74RLod6iLctkWPYt6p3aG
IbuCWPbo0cPMvBnUpWzZsoJOQ42GDBmSKVOm/fv3Y2Edtfzr1695gWEQHR0t
Fhzxm3DrsM6XL182WSOxyA5tU2Ji9QwZVlO4cGEeKkTUuafmKiwzZJQDrUTB
Tp06pX5OgRmxMH/z52zAPRiiSLfh/SzYYpxfQ3YHiYIG4ztTfo3ze/fu3WLF
isGBFVHasWMHWkWcDSI0BioOLSRm3qj+lClT6tevT+/rD8H2/gC2FylWqBPt
1niQN0qF5zh8+HCYrbUjN9VwVYVSEZ7jj5g5XwJK3DkJwr7s3LkTVx26e+fO
nQkTJhhOtjBszp49GxERAR9G1ZAdgxkBQXwMdxY7Ah43n+BCCiZvyJDxPRFk
9RbFo0ePop3i4+PxO5S1VwmJfxvcYcgYd2S8W7duSJ+TkIM3b97gg2smCpBT
NANyqp9DWLt2Lcy5cuXKhnGM5Oho8pY0UVb6bXrCf1fW48Sbz58/V8/nYLs1
wV1oD30BEpPix2BHjpbzsL+bNm2qUqUKCgczjS7STFKh60ghMcmMzpo1C0tK
pRYvXlyjRo3ly5fraR6Gvk2bNpkzZ86aNWvXrl01k+dUluzI4tixY7yATkOF
Tps2jVbasGEDtYYG4AgYrpQJi/DVV1/ZNa9FOiNGjCBNR4GFDDYoX6FChdKm
TUu/i5OolV/5G8MhVgMxHAMHDly1ahWship88cUXJ0+eNExTBPhVq1ZNE25n
CLKgWRjwcKS+fftinZs0adKlSxeKrQ+3Y1iOGTOGfoF9Yc2RkbCwsNjYWLHJ
rkCBAuZn6qgOtcYmKmfv6xmyYNEYfXWyTjw1V2GZIfMhpdXzc4Q6W7ZsjDpl
0yKSPnv27F69ejVo0IBhqXchGYdt27ZF6mlJ/fF9uMZO4kmw74wNvYDs3bsX
eVRvgiMXtUqhGHBvjVqABekVhZcHsHldYR7eF2p7NZ7J1HiNYVauXDkkFMfN
SWXNF8+CChUn6psM/IbDN2rUaPTo0aRMOyCMvr6+yCMyri8z3gTtg2bDeUdp
QMVnzpyJPcKzwzjiaJjJUSAyMlIEWoi5cUOGTAV5gqFRnpBXixYtaAp639AO
Skj8G2CZIT979gxJx26KSD+Tk3gKMGE1a9ZEKtWTPwL79+/PlClT4cKFNTFa
UKCePXuaPPaKNPGC4TMozz179uTOnduujeRYPbSiMkGkBkYcfYI6Sp8+PWYU
nczf6hPh0D9wM2XukUJCkLZu3UrZDJcaKT+sKVWqVPAxSLKYildTQfQn7j8a
dd68eQULFrx27dq9e/dEcHVi0vwnds3RXLfYKeP8VFiXIHa3kabhJaoUTPR4
jhw58uTJwx/qc/nEC2PHjlWC0mkrbB/W7cyZM85j4RYsWEBS5ieRyIJxK2ZU
GLQ0l37o4vFVrVrV399f7TdRL7oPUwVB+vTTT80bDhFdoA4g1DPkhIQEKHSx
YsU0R3M48tRchWWG7Cg1qA6dCPcTlpdksbPR0dH8MXz48FKlSulDocQyMV8F
BQVp+hR+MmDAAJMH5DJi8W5QBeQVGhpq6E1bgDcHsKu6wiS8LNT2ajzb28R8
guJkDFdVKFYAKTZ/KTPDFf9XqTheud5N+/333/v3748eUBNvcR4UDkXRokUx
jnFxcSZzTEy6MzRdunTKvgk9Q1bWbbt06aLWhDx/8uSJRyPnJSRSOCwzZPzr
zZs3JybdMZQ/f364hEtn7Gzbti1DhgxYHH0IlphMgy2oV3XRV9hfVITJ2AaS
rVixYmBgIEqsVq1acANbLikWpx+gpvQnjFGwNWvWfPLJJ+h/oVVgDmPGjIEq
KBPs586dQxeZ1Dl8Vb58eVIQh0KjXXfs2FGiRAkoungB7UphYF8ixk+9RmYG
IvjE5OyrGZAOrLJTp076CmJeO3bsyCBRdnVRu0aNGtFBwpTTeitXrnR0AJdz
QEIYLTZu4ceKVahQAd6lXz/FZ+EnrEnbtm3N72GhZWhnzHRMTIx4omfIWD1s
n8kNgBZgL0Nm/DPU4YrKkTJ0KPzwjyS0atUKDqkcw6WGmK1ShzwlJklKr169
lBjIZIG+ypo16+rVq5E1iuESYXACrw1g23WFAm8Ktb21sL1NXErQmgpFCqCy
Ns7YIzv9+vXLkiXL7t27NT+h51u0aAHXhca7FK6DYiTBjz/+WDj7eoYsjq3g
CY5tir3/WkLincAaQ8a6IVOCP0REROCbuxSXi6hWqlQJ3WUYm0Gy8EA1nUhM
UmXYUPOnwiLpO3fuHDFihDgXzq6NBmIjoeGBrnfv3kXHaqa40b3o5EWLFoko
skmTJmmCOR0B3TVs2DB12J5AfHw81krMU2GOFy9ezAsiNHrUqFEu6TcRIk5T
6+f6rAEdXrp0acP7kbdv347m11ifR48eoaXF6Ux8y4iyduovozdbtmzCX3Mf
EJ727dsz/NQ3ESg4efIkbBxrMmvWLPMDXpxMxVcLFiwQT/QMGX6VKlWqdu3a
eWjzuI0MWdxhlzFjxsjISGX7z7Jly0ToES5zoUKF/Pz89PNjiUnBqFh5xV6L
b5cuXUrLmB+9r169Wrhw4ZAhQ6iRjcG9XhvA9uoKNbwp1PbWwvY2cSlBaypU
xO9169bNronWr7/+Gun48ssv9UpAieF3lcaLKwaUdU89Q4aWt2zZEiO+fv16
W2ohIfHeAU4VFxe3VQc4WPny5cPDw/U/YRQcRVoiU4gbyuTNmzfNmjXLkyeP
+VMo+aR79+7Fixc/e/as4QvisCZEWNk9TeExT27u5bcFaEKoTtWqVfUTfbCF
tWvX6lnTzz//HBISQhVwB2hnkzPt0AwMrn5l8+3btzy/dOmSuJRKRIfSTQ0a
NHC1feg+UihQoICjg2H1IF9sCibY8FhdTBKqWDlvXwFFDQsLMwyP2bhx44oV
K0iK1rO8H+Tw4cNZs2Z1KTbPCahapkyZHB06eujQoSxZsuTIkUNzEW2ywPqk
TZs2MDBQDAANQ6ZbcXx4wfwudUeg8SlbdHS0RpyhpuTu7++PK6H5iZcTEhJM
MmcRy42bgHemDuy/cuUKg5w/eJ46dWoYr6EHwSils3Lnzq14x2iSnj172jXn
6Q68NoDt1RVqeE2oba+F7W3iUoLWVKhYG2rbtq0tDPnx48cVK1bMkCHDzp07
DfPC7mAWDS/NcQJ0CzYLAiyuGNAzZOqOOaaX9XfrSEj8S4A2QJC/0KFWrVrw
AR8fH/1P9evXN9QwasByMfTmj8pEk0yYMAFOLnaaG0K5rEGsXgnrM3ny5JRw
4IzYalS9enW9QeeJYSCHOGoSg7V8+XKT51gmJhllR4cgffPNN1AaWn7GjBnu
tIk4KsGlU8uePn06b968zJkzGx5fgKbFNOvnYfjnkydPDAcS1mrs2LE0HX1t
+Wh6ccqxkytmzIPx2bt3b8aeci6TBnRiqlSp6tWrZzhB6gTU0dfXVxwelahj
yGfOnMHNZFxZvlJWAaYfPlO3bl29RBcqVCh//vyff/655jkvQ5BM1ggfQYT6
GM62kQh6Q8RzGn5Oj1NrvAwRFYMPGBoa6up+NA/BawPYXl2hKap3hDrR7lrY
3iaea2QF4uRA/dUb1rB9+/b06dOXLl3acP5fXFSE0rBwqAgaEqceMX/58qWG
IYuTmXFpGcApwcJKSKQouHOWBcI1ceLEtGnTwmDNvI+OXbp0KTzBkfUUEAcU
I8IdOnSApdy8ebNbt276CT29xvaCgIswP5d2aVHOhQsX7tmzB7Vs7eRPDY4f
P06CaDlHxzuYL1hYWJh+a5hzQI1Q1IabZURU3pAhQ8yvVIrDAXbt2qWekHQV
mLns2bOr702zDDEp5OhKR2xrUFBQunTprM1Xnzt3Dm6JT4oFVDPkBw8ewFqL
FCminHThBJcuXcJbhNDGxsa6lLstURbnz5+vWrWq4TkVAgxO+gLJdRT2L+5b
Uc6I27x5M6VyMgVHsW3ZQWAG72oAK3BfV6QEobZX49muP21MECtQuXJlzQY3
y6UaOXKk2OBgOODROZja9u3bW1tZwPJmyJABGsznaoYcHx+fO3fu5s2bJ7uI
Q1sxyBldfG7XPlAJiRQOdxiyoBNlypQRPi+i50SLYlK3bNnStGlTdeQGxhrH
WX8QnLg4XpzbgN4wXHVCy0EqYCyhoaFdu3bFcK9evdrGa6ANIW41osomL3ET
wIMYPHgwpMuW4l2/fp0yoOtMbvx3BOrSp08fJ+c46YEh6NmzJxzPMN5SkJ/g
4GDzHIwxQ//C9wzPBjGJHTt2wMrcvE5LgJFcvHhx9bFsavz0008FCxZkzFs+
OeHOnTs0YPXq1Xv37p0pU6Zs2bINGzaMLsDwmVziJOsFCxZkzpx5w4YNLmXt
PkP++eef0RUxMTHqYZyQkKDssBNWXrlDhIz0c2u///57vXr1kO4ZM2bQGkiu
Iy5HdgMHDhwzZsz48eP79u3rzggxiXc1gNVwU1ekBKFOtFvj2ZuajQk+fPjw
448/7tevny2x/ciC4TX3iUlLLS1btsyaNauyMdZVkCZkGNFr0qRJixYtyKhK
lSpoIXz2KVOmmAlshreTArYP/1detCfxL4E7DBk3PGPGjAMGDEA/4FRiy5yc
nX7o0KF27dppLhiFAGOy9d6ruMarXLlya9euhULovWbkHZ4AwUiVKhVv1qxZ
E4LkhX24gr2rr34wg/Xr11euXNmuKC9cjIoVK7ofdouWa9WqlUv7PpQ7fA0t
giA/ytH0JsvQuXPn7t27uzMpERERob5owx2I42Tz5s2r3/9FleFC0Fr3qTjt
Q/eRFCYPYy3OKjEP6isu2nPpKzcZMi3TsWNHzcS1uEpYOQ8ZNlWhQgUIlaBn
cHh9W8EESAcDDZEbNWqU4XbIxKTY8ho1aohF8CdPntSpUwdr7ulFonc1gNVw
U1ekBKFOtFvj2ZuajQmKayVd2rTrCDQ+biDmbPXq1fpfIcZZsmTBYXSfmiJN
vXr1QgDx9I8fP+5St964caNgwYKG1/1ISHyQsMyQMY5wVxiyOODo4sWLuKKO
FpvOnz+P+Gv4Myns378fw6cX0iNHjqAQ0qdP7+fnZ6jH0EjwBIotApVdLbw7
iI6Oho8Z3uPsCMuWLevUqZNdi8VXr16FPLh5w1pi0qoZ6egDbqE3YWFhaGO6
bMmSJTg+SkzjmTNnqHu3bt0GDx7MrxAD9YYgMRllGKTtCPg+bdu2dYftMwDG
jh1r8marZEEfwd8M+fZ3333Hcxim2khRfpjeiBEjFHbBkOZJsmcaiCgLiK75
eFEBcVcCLqGrC8TuMGSqQ4/rTxS/f/8+bq8yFHkhc+bMjByygFlBgPVLLRSD
5xhoqEW/fv0MiSVd+emnnyrH46CjgoODV65c6WkX+J0MYA00uoKSoCFz5cpV
q1YtpccZgRBaBFCvbx0JNZ8sX76cpOgd5GXmzJm7d+8WzWu7UOtr4SbsTc3G
BPENaTosgi2lwqNMly4dXaOxaLgwtWvXhtBqVBz8nFGBwhH/pIsnT56cbLSP
EoeMJ+Uq396+fXvu3Ln1N1FKSHyosMyQxbFCBQoUQE4xExMmTHC0ux8DWr58
+Y8cQH3VnYJr164hiWnTpnV0ALLCkF0ttvugbNQae23yfbEVwmSothkkJCT0
79/fffVOxxUuXJgWVj/88ccfsYZYEDoF9hIQEKC+HmXVqlVp0qSBENLjDACK
0aVLF/UM/4oVK2gc85Mzr169wiK7w/bF3skWLVrYNYknrB4sQs0kYRGQcKiv
5nSR27dvFylSRDFqFAaCbWYGLzY2NlOmTNmzZ7ewfZ4OcjTj5wSWGTINS8Ud
yW+lSpWUmBPkEYYsjuPAmIpRpE+Q53xIuxkGvtKSixYtsmtRwFV4fwCrYagr
RI+Ti0J68ZELFizIm3rdaCjUjEZYLr6MuE8Z3YUUKzOBtgu1vRrPdv1pY4Jf
f/01HeH+hdcCdHSdOnVwftUHJWGgg4KCKlasqG9/qoCVVMQEv6Zo0aLJTmij
ozDcCKCvr69LXo/wbX18fCxvqZaQeO/gTpQFVK1cuXLTpk3D7H777beGgolW
R986Mq9g6dKl+q/E6ZRNmzZ1tL9eMOTNmzej3ocPHz537lzzpxu5CYrk5+cX
HBxscncGVBY+Y/42hGSxfv16cZ6nm+nExMSg3tUFw4A2TIIgeGL6qEaNGiIM
QPxTOelO7JovXry4euc1XlK+fPm2bdtmsgxQi169erl0vKcGYqjMmTNH0yD8
c//+/XQTg3P06NHTp083GbbNh1FRUVACvt2xY8fOnTtDQkLKli3LQNVH++ze
vRsPQjmKQQRp6K9UVkBqJJUxY0a1CGTJkgUL6GRVQj2rjyuKWXQ1CDnRDYaM
aOOrOpLfZs2aKc3y4sULXJVu3bqhE8jLUbfSCHgH8+bNMxzDpNa6desyZcr8
8MMPDDCqPHHiRJfC/t2B9wewGoa64uLFi/Q4NFX8k36cPHly6dKlDWm5Xqhp
ZDy4vHnzKg+jo6MZtEePHk30jFDbq/Fs1592JSjiIhRtqcatW7dgoegNGnPY
sGHmnQuxPli7dm24d3x8PHS3fPnyvXv31o9/4cuozx3dtWsXfqWj0znoaEqC
94Q3pAhvqlSpGBgtW7Z0dEuReunhq6++gr3LIGSJfxXcYcji8xMnTrh/RJUG
KDFUhPMjL2CJ/v7+eNDoitjYWDiGXfdKOwcWZ/78+Z9++qlJVxpbA22wJQYg
MUnRod7NWytHEPcoNW7cWK3e0bGQt4ULFwrqIk7gVPahiHhFjIL4J3qyXbt2
JUqUUFcNFtqkSROxzm6mGFu3bsWOuLMTPC4urlixYpr5RlgW+tzX1/fKlSvU
5ZtvvsHoHz9+3HyykFJMQ2hoKEwPnmwYKiw4J1xOaQEx/+wottYa9LP68CVX
LyNOtOksi2TBqKAvkFwnHhwSsXLlSkesUpygBc1j4NGwFHvt2rXwBAuHXFmA
9wewGoa6Am8IQqus0EHtGMxLlizRt7ChUAsXkkoJD1HsplS28nlCqO3VePam
ZmOCT58+RT1qfHP+Rov6+Pigc2hqBIF3cPHMT2igu8RdV3TlmjVrHLFrcWuA
MlFDXmPGjClZsqRdN8UkOlh6wOzalb6ERMrHb7/9FhgYKOYT3i9Ay4XkJqpm
Qmzn6oa4ceNG2bJlIU5mXt6zZ0+bNm3cPHdCAbS8QYMGTk6TNgnsZuXKldXx
k0LH5siRQ6Ei2GLImHLREqwsT548yjFolATegjnWVI0X8FbMTPphcIcMGYK7
YXk+XBwM2KFDB/Xsrlimh1SIAAb+uWnTpsGDB7u6IS5ZvHnzplGjRlBWEfEi
XCeX1qOTheGsvqNjB5xDbDKdMGFCCr9YFuKB+5k5c2bF4aWdGWaQNFfPoLYG
bw5gDfS6giygpkooC/ynZs2aw4YNMwyy0gt14j+nhU+fPl0UkoFUv3595epG
24XasBbuwN7UbEwQJoyjoZnJRzMXKlQISiyk7OrVqwisq7cLmcGlS5foOGVb
H9VBS7Rq1crCWXCGMFx6wBy4NM8gIfEBIIVbTJPATmXIkEF/nb0nQIvBNNq3
b59s7KugneHh4XY18pEjR9CE7l9AFhERUadOHfWpZSKwXL3lbc2aNfBMdP6x
JMCcixQpokQU7Ny5M1u2bFFRUZqUKRsm2HBHtv5N6iJujrCGa9euYbg1JyA9
evSoXLly/v7++hsJ7cWtW7doEGWCSMy/0apQ8cjISPPHbTmB4ax+SEiItXlg
Ekn5wi4mx2hY5dwbsTkxZ86c7juGZuDNAayGoa7AFcIhEkHIjDdGdVhYmKOB
rRfqxKTg8OzZs4vz9xKTwkIKFiw4Z84cyDBc+uTJk/YKtb0az3b9aVeC4m56
zS0bIvIhX758htcv2ov169cjEQpfFRsiJk+e/OTJk7Vr17q/qGG49CCDkCUk
3gv88MMPdevWjYuLU54sWbIkTZo0FuIzrQEF8sUXXyQbnYJ6wa9XzJObgOHM
mzevd+/ebipAtJyfn5/+lGlar0yZMiKiG35SrVo1qOb9+/enTp0KF+WrGjVq
iJnzBw8e1KxZE3NgOGWxZ88eeidZigjh8fX1tbzciT0aMWJEaGioJi5OTJq5
ejerBUBfccqwSiIj/gm7gMvRYuPHj3efnxvO6ufJk2fjxo1uppyS8fbt2zZt
2pQsWVIZGCLgkz712r3z3hnAGhjqisuXL+fNm3fBggXQnkaNGm3bts0RtXMk
1PDqsmXLivtZkNYhQ4aImQQAE7ZdqO3VePamZmOC+/fvxxnRdL0IEMIueHqx
Q0gEjo+4NAqRoVvTpUu3fft2CoZ77r7qM1x66NixowxClpBI+cBeYDiUOAek
eNKkSd60oYlJSrJFixbO4zru3buHYtEfrmsNEGMImJu7sNGuY8eO/eqrr/S6
DvMxYMCALl26jBs3btCgQVjVChUqDB06dNGiRWRNI9PgzZs3nzlzZlBQEFzd
0XkapBweHk4izqc6N23a1KNHD8uHchw4cKBZs2Z6fnL48GGYqsZXovz2Xs0m
6CtWCZ8iPAlTpkyZOHEiHIMWs3ywvxqGs/r58uWDNYlZffezSIEQp1Eh3co2
BHGZQqFChew6MiJZeGcAa2CoK6DEBQoUwCmOjo524nM5EWraE1lo2LAh4xNa
BStu0qQJMo53CT22Xajt1Xj2pmZXguh8Wkwcc6qGuEKrffv26hkMWtj2xSxB
xbF3sPEZM2agJTCIFAkGGxYWpr9/1gL0Sw8IIIZALD3I+6klJFIybty4gbpW
NqSgMT7//POePXvaFYVlBnCk1atXDxw40IkCvHPnzoIFC+zyuzFec+fOdWcv
hgjK7dOnjxLCrQc6kCyUqQPNrBGVpVLJasjffvuNXODYTmYzdu7cqRzm6Squ
X78eGBhouOz+9OnT6tWrq+eQMYtwA3ujAUXgX0BAwMuXLxmNylm16vB496Gf
1RfhoGJW365cUhogMJ988klERIT4J/WtVKnSyJEj7doQZwaeHsB6WNYVZoSa
4QrJEeyXZkTA1Y1po1Dbq/HsTc2WBGmrwYMHr1q1Sj+ZL1a1/Pz8lDlk7BEM
1tGxh5YhjjfB+sDJUT6iW8kdV9quttIvPWTKlInRLpYebMlCQkLCQ0BF7927
d8CAARip6Oho3Ofg4GDLdwFbBnpv27ZttkwYegeQDQyEjRTOCchl4cKFNm5C
V4AVWLlypZNL5U6ePNm4ceOxY8fOmzdv0KBBw4YNu3r1qr1lwIIULlzYluu0
nMD5rL7n8n3nOHLkCExjzpw5CHirVq3wQ72zTU8Nzw1ge/FhCPX7gkOHDm3d
utUR43327BmWqEePHosXLx49ejSOOZTS9uD/devWqU9C9gScLz14Ll8JCQm7
8OLFC7xaOOrt27e9fLOeRAoH4wE7fvfuXQ8tCMLccuXK5dLVipbhfFb/QwVk
LD4+fvPmzdevX5fSLfEe4eXLlwxau+4w0kAEIbt6y6E1OF96kJCQkJCQ0GPT
pk0BAQG2nyAnISEh4QTwVRjy9OnTU/65NBISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEu87/v7771On
Tk2ePLl79+6zZ8++f/++5oX//ve/sbGxp0+ffhelk5CQsI7Xr1/HxMQMGjSo
b9++UVFR+st5X716tXbt2mfPnr2T4klISEhISKRM3Lp1KygoqEKFCl27dm3R
okXOnDkzZco0bNiwR48eiRdu3rwJcw4JCcGSupPR8ePHx48fHxoaeuLECf2v
ly9fhqIPHDhw79697uQiISEh8L///Q9pqlKlSt26dXv06OHr65suXboSJUqs
W7fu7du3iUmeb1xcXIMGDSIjI925VJfUNm7cOHLkyFGjRumZNrns3LmTn9Aq
t2/fdqtKEhISEhISXsGhQ4caNmy4Y8cOxT7+9ttvc+bMyZcvX6pUqUr+g6io
KMyc/nO+mj17to+Pz507dzQ/vX79unPnzq1bt+YP8eSXX34JDw/PmjXr4cOH
9Uk9ffp07ty5mTNnJi9bq/j/lFb9T/iDO6zgHUJTbMOuSZl48eLF4sWLw8LC
GGP6ycyUgA/GU4O1zpw5MzAw8Nq1a8rDGzdu4O3CkzNkyFCuXLn8+fMj/hcv
XjRM4eXLl82bN+f9P//8U/MTrVS+fPklS5YgRIlJA/LcuXN+fn7VqlV7/vy5
5mXe+emnn3DDixUrdvfuXVtr+S/CpUuXGJmDBg2KjY1912UxgPSDJCQkPiRg
udC6T5480f8ET0YPL1iwgP+/efPGSQqwa5it/h0MNJ9HR0crdI4/xo0bV6ZM
GaiyYWorVqyAmWNMrVbIGSihv79/pUqVevToAf+ButeqVevHH3/0RF4eBWUu
Xrw4xKZfv359+/YV04O///77uy6XKTAq4uPjGQMdOnTQ866UAC94at7BH3/8
kZCQYNjI+LORkZHw27NnzzpxEvFtZ8yYsWfPHkGD1bh3796YMWPUoorv89ln
nwUHB//111+GhWnRokWzZs1Splv0XoCRiUZlZG7YsOFdl8UA0g+SkJCQsAw4
aqNGjQICAsQKrwYY1m7dutWuXfvly5eeyB1zD0POmDHjRx99lDVr1s6dO6vn
1t4jXLx4sUiRImnTpqUiRYsWnTp1Ku7Muy6UC7hx40bBggUXLlz4rgviEB71
1D5U4LjlyZNn9erVhr/ev3+/ZMmSkyZN0pNtCfOIiIjImzdvivXrpR8kISEh
YQ23b9+G2s2YMcPQSj59+rRSpUqhoaEeihmAIX/11VePHj16j2ISDIF9nDJl
Cg7Fe1qR7du3586d+4cffnjXBTGGpz21DxWRkZG5cuU6e/as4a/x8fH8+r4H
rrxbIO+9evWqWbPmixcv3nVZjCH9IAkJCQnw559/rlq1atCgQUFBQTdv3lT/
dPz48ZEjRwYGBg4dOlQdfbFr1y6s5MGDB9GfBw4cCA4O9vf3JxGhTk+dOsWv
33zzjfN8IdI3btywUGCFITt6Abtz9epVCylbA3n9+uuvFj4UDNmb9BjSeOHC
BcOZf1fx999/jxo1ysfH5/Hjx+6n5gl42lN7L/Dw4cOJEyfiKYwePVo9H4jU
r1mzJiwsrEGDBps3b1aIEG3Vr1+/KlWqPHv2jPcXLlzIt82aNWPYJCatv0+d
OjVlLr5TIwppGBliC2yUnefPn1evXn3AgAEpdmRKP0hCQkICxMTErFu37s6d
OyVKlIiIiFCenzt3bvz48dDRffv2FShQICEhQTwXQcilSpXik40bN65evRqi
W7Ro0a5duwrztGLFirx58zpf2r527RrvX7lyxUKBBUM+evQoxnrEiBFQcWUL
oQBkfvjw4Tz39AQI6X/77bdDhgzRFMAkYMiwlz179sBeaNJjx465ud/wjz/+
6NOnD22iWN79+/fzRJlEFQWGF1mLdoaELF++vHfv3gMHDqQLatas6SQIWUQz
rly5csaMGWTq/SPITHpqHzCgc5MnT7506VJUVFThwoUV/5dhhthCjBHYwYMH
f/7558rhNiIIuUePHk+ePOFbfOQNGzZkyJCBHkz8Z/G9adOmLi2+I48///wz
DotaHvnbxpB7BBCRp6iWRZ7GqVWrFvIi/smopvqLFy9WRNJN2cGj51sEp2/f
vhMmTMidO7eTIOR3Kzsp2Q+SkJCQ0ANjh/Ey1P/o9gEDBvTs2RMu1DcJwcHB
u3fv1r984MCBL7/8kl95kz+mT5/+66+/ogwfPny4detWlPb3338v3sR0zp07
F7vG38uWLcuXL5/CZkUQcsOGDWfPnr1z505yoWxxcXEPHjxI/Gdp29fX18nS
NtkFBAQYnoNhBhQgMDAQhoYRx1LzR+PGjUlT/Q42pX379p6eA8Getm3b1nCD
pBlAXSCZsBeIB+5G/fr1cUnc2fUmol9mzpwpup6kOnbsWK9ePbVNhzxjdsPD
w13NiEQYY+3atRNsCvOdJk2aRYsWGb7MYGCAwaVxvhgkuABlypSZNWuW5Sk4
qBq5w9x69eolBjl/8E+yENObepjx1LwGiBay5uoMJ/24a9cuKo7MilojuSEh
Ibdu3dK8ScPOmzdPNAig8fnw+vXr4qQR/qle0//ll18YA/9Jgn8SFMYrgpDH
jBnDUOTzxCRqh3QzRBP/WXzHrUuWiFLfEydOUNpChQoVL168bt26lStXrlCh
AsycRuBz+CGM0ZZJVEby2LFjIbTuTCBHRkaiAM+dOyf+iTzi9TNi1TW1LDu0
avXq1VGkNAtNjfYjr8uXLxu+/M5lx5ofJCEhIWEvoJ0oIjieE+136tSpZs2a
VapUqVSpUjlz5oSawmPVehs9hg5Eb6dLl+6jjz7q0qVLfHy84bo/NHLUqFG8
VqxYMezp1atXRTrkDvPBiul3imF0SLB27drKLJOgYalTp27duvWRI0c0Vkks
bQ8cONCR7UP9opkxZ5bnSynz3bt3lfSx2qVLlx4+fLgmx5MnT37xxRfWAjnM
AMekTp06x44ds5wCHSfcCgGcFPqXvrOcIG5Rrly5Dh06JP4Jt/nkk0/gIZqm
xnlp1aqVS/voaXOIN4Tz/Pnz4kl0dDRWnoGnf5n06WJNy2CLP/74Y3iXNVL0
/Plzhj1lZjQy9tKmTQv7wrmAhhn6YmY8Ne8AZw1xQCgqVqyYI0cOHx+f5cuX
C8KpB27I0KFD0QnK9N3jx49jY2PRAGJf6v/X3rkHZXGdf/ynFa+AI8QoeElU
OkaINyyYxBCiEjQxiGi8RLSiqMglIiJiUYOXEC9g4h2CBCnRgEC81FSYeEkV
lTYyUamiHWOMTuPYmYY6ps40087w+wxnurOzu++y74VI9Xz/cHDf3bNnzznP
83yfc57zHHrh/PnzeoZGB6EocF25DRWxb98+ZeIRPxeyt3btWsNEFtBXhFH5
CaKI49OlSxc4p2DIaojF98OHD5t/MoqFAUZtkUrhZQugQ1JSUhgDlZWVTz/9
tHrFyhkwDGgffW4662BMLliwYNiwYUqj4V8gjMeOHdPc6YDs8NWjmyAcVUYm
fDU4ONhwZLYG2bHuB0lISEi0HLKzs7FoU6dONbSYYl1v+vTpCs3D9IwYMQIV
l56eriHV33zzDcS1Y8eOv/vd70ze+Ic//OGVV17RxBtfvHixR48eOTk5epV4
9+5df3//xMRERTlDw7AdWG1e5Ofnhz5XV14sbe/du9dWBcrKyoKCgjRTvs7g
xx9/xPoMHDhQE5lMhSEbGL6WyEVGmQsXLoyPj3dh3OPXX39NwzocnahPwYed
pcD9+/frbz5y5MivfvUrCJLFwukvyHZYWJiIJ+FdS5cuNQxCZgjBAHGplLAc
BTt27KA+zvgUjU3BPxTi7e2tGcMaNOup/Ty4cuVKVFQUdEs4KXAkxgwsBW/U
MFMikoj4wFo1nh30BuKKJJosWPAKuG5cXJx66o/u+PDDD6GjjC79I4gwr1M0
hiCKtBt6Jisri0YuLi5WF7VmzRrItj5luvoeHvH09OQDDWOoxIR2586d6URl
wtYZQOcYySglZwrRJLijJVGwsET9maSN9ssOvY9aVrQrfBUqTjfpR2YrkR2L
fpCEhISELUBQc3Nz9cuddgGLWVNTY2sCGTuFeVVPMzY2zQihutu3b6/J8nrv
3r2hQ4difD/66CNbr8M8JSQkVFZWqi+iltetW+fr63v16lU0sxKJJ1BdXY22
FFGIjf+lYcJ28PeSJUsENcX+CjsrlrYx9F988YUSs6Hghx9+gJ9v2LDB4dkJ
cbLJhAkTFD4MP4e5UX991NyFCxdgjA6Hc5jgzJkzeAfOmHgM5eTJk1euXKlw
bBiFl5cXFx1j3ZoUfLTw5s2bcXz0M4GNTXGb4eHhaWlpFmfyT5486e7uzjgR
Hce4DQ0NxbPTex+8/Y033sDv02+EZzwzNmJjYy2yVpqIwa+5mT7Fynfv3l0j
ejQaNyvBrs16anahqqoKXmTvoEXc5s2bp2EaDFd8XtonOjpa7xfzsbW1tXyF
5joyC6ukN00UDmxcxA+rL/7jH/8ICQmJjIykxz/++GM1r+NzYNTPPPOMclEQ
RSpGYwp9gr9GF5eUlNy4cUMsviNrDQ0NKBl9Jan8xo0b3dzcJk6caLJ39fjx
4126dFFP2DoM8QlUycmQZtSXOsEdbYXTjZIxnLiwS3YE2e7atSt6Xlz56quv
eJfhyGwNsmPFD5KQkJAwByYALWo+YesM0FQwyZSUFI2WRunBctGiY8eOVW8Q
wxxzhesmq2P79+9XUzIBykfhi/hSzI0mC4SYgFIuChqGoeQpaoIBHTVqFIZ1
69at4syC5cuXDx48+LvvvqMa6gVWgUOHDvXv39+ZRBPYa7yGwMBAxazDukeO
HIll16dOok3gBpgV1+5w58MXLVoEF3UmTg8jhRmiKxWSCev28PDAAXEs/oQC
e/XqpfQ+xdKnL774IgMVaqRP/QEf8Pf31/hftsA49/T0/PTTT8V/6VkfH58t
W7Z8//33e/bsURti3o5LghejZ1Dc/Nxzz4k8Cc2+EbYA3RJTXp999ply3dDK
w0LhD/AuBrDoFHNPzS4Ir/Cdd96xdzoaiRg3bpzecaMxO3bsiDdkOK9riMuX
L0P4GR6GYS2NTVKcnJyscW8bm5gV8ltQUEBzZWRkqDPS0FAI/vjx4xUNI4KQ
abrGphAdOguyRGdB2FAODKQRI0YsXrz4+vXrFKXRS/R7UVER38U9JnlmGv8b
/DN79mznpZKihgwZIirsDGgfBpXStiKQjLGEu5Gfn6+vp3XZEeq6X79+ypJB
Xl4eo/fSpUunmqC+uTXITrN+kISEhESzaGmGjFqeNm0ajBdGqgkPzs3NFQdJ
qxdqUcVz5szh/l//+teGphxKGR0drV83hACsW7fu5ZdfXrp0KRRaza6pw/Tp
01966SWlAmK1ffPmzeK2Y8eODRs2DKOJQhZM78SJE9BX6AScWVMNERqK+nVy
AwiVhJUp9YT/9OzZ09a5adu2bcM8ufbsVFoSnk/JzhRCI0AzlCMD6AXILW1r
vgBqAkxhhw4dlJhS/guhiomJocc11Eigrq4OGmAx1QMm1c/PT9yMDU1KSurU
qRN87ODBg9ZPrMPaBgQE6KewTCD2A6rDifVWnsHJ6G3btu2mTZuUo5PNPTW7
4DBDpmXatWsH/dCsNdDF1N/NzU3xOJoFZGzAgAE8UlpaanhDeXl5Wlqafkof
txEajGag/hrPFOrep08fOLAiSmVlZQwJsXsLaeWrUXEQPBGOy+dnZmaGhobS
+/ok2OfPn4eK40ahAcy/BepFIbt27bL47Sb45JNPqLBjKXEU8F040dS8urq6
sYle8oE09YEDBxjheJf6CQe7ZKewsJC+E1OytPnw4cORAjqUlrd+1NHPJjvm
fpCEhISEFbQ0Q1bmikNCQpRdcgLwQ3QaKlq/ZioYtZ6CCntnyyLzLFxCv01P
BCGjLdUpj/72t7+pJzlRv5qgYsy04cyDYNe2zhmxDr4uKytL7Pf54IMP0Ofb
t2+3NR9VU1MDRbFORawANgIZUJZNHQZGc9GiRVAFGAhGedSoUcJGOwCxmItZ
xxYvbwJkBnIYFBQENdLE1QgI4zhr1iwrU3ki+QADnmKhE3C/sLCwGTNmpKSk
2MqH/ODBAwgGjlJJSYm4hzGGW9etWzdbu/j1ELHZ3t7eSqyI3srj/vj6+mri
Wk08NXvhMENGOeBHULFz586pr1NhfDrYi/VMdEjZCy+8gHQbnmAI3cL5teUG
QvkgZvpePnLkCH2h3hmK5KoXYuh0StaoBXSRXlGI9DJUD4+s2bB/vmXixInO
i49gtqhHJ0+iFJzQ3d0dAUQ7oXXz8/PHjx8/derU5ORkwx0TdskOgrBw4UKE
hVFE4XQ6SpXhtGXLFluPP0LZMfeDJCQkJKzAGYaMgkpMTJw5cyZ62CTkALtz
+vRpTfAAZmvlypUYI31cAYod5jxkyBDDOEbeaGXylvJPnjx56NAhiMHhw4e9
vLycya6gRlVVFRpeveqnBpq5uLh46NChMAfI/4YNGzTTF5gGJUsDlaQN4b3U
zfxcKrGkm5qa6mSqYQWUAy2kTFtLyQwMCKqPj0+7du3oI3GuivIrf1dUVCgr
79AJ6BMfDmEwpBYWSxORkxEREdCP+vp6pU3wcTTulQJxNsTw4cOtJwHgLdeu
XRNxzhj3W7duGZp43g5dh3WsWbPmyy+/REZgGowosVGoR48e1qf0cSL4dk9P
zzNnzogreisvmAA+i6ZYW56avXCYIfMgtdXPYCPUHh4eUDJlkR1Jf//996GX
r776KoNB70LyLZGRkUi9PjMJtcI1thhxjQbAu7l8+TJPxcfHG+oKByA2o/FR
VraSIdfc73wy5Hv37g0bNowxbKtfaHyoeOfOnWnqt99+W7N8BsulqalMbW0t
Wm737t0IArIjhjdlQkptsX0HZAeiSwWUMH5b2qOVyI6hHyQhISFhEQ4zZBQ7
ZBW7KfbCWJyIUIAKDQoKwlaql0cFjh492qlTJ19fX80mC9T47NmzLSaGhVMF
BARMmjTp4sWLwcHBcAOXHCMFdu3aBUNW4grU4BXQTuh9+/bt0eqQZP5WZ4TD
VGVmZlqfP1EgMl24MLen2E1Dmfq4hcamAAzRO127dvX29uYPdZZpccOKFSss
njBivTRMHv2uSd/aLLKzsynQyUVqDfD44C3jxo1TT77RVnTfe++9B89//vnn
rbMyEV0AyVHybumt/NmzZ6EBffr0sZ5ewC44zJBtlZaRkUFXjho1Six/U+zm
zZtLSkr4Y8mSJf369TMMhUJp8FRUVJSGtkFKFy5caHFEoa+gi7BBvEu8vM8/
/9z5L0IipkyZQt0M00W2HGCzDAOazvBXWCXjpE2bNrBKxo9YjFMT2oMHDxYU
FCAve/bsUWdCtggpOxISEhK24DBDLiws3LdvH39cvXoV5x19aFesV2lpaYcO
HSBO+rxPYkIAjade1cW2YkS2b99ukTtxf0VFBXxVZL1wVbIskR+sd+/eelVM
xfLy8rDXWG3hLMAc0tPToQrKBDv2y7ETAUQotV2zPeYQyZqmTZumrwy2bOrU
qXSosgOL+o8ZMwZ3Q/BzvnTnzp0W0yjZVRpdhvdx/Phxu75FJOZyYa6PGzdu
+Pv7DxkyRJ/KDMbCTxCVyMhI6/n3aG36Dr+pvLxcXNFbeWgejqHFTUwOwLUM
mfHPUMflUUJf6FbcnIdNmDBhAq6QYXgqUkzrqTcFNDZJSkxMjJKkulk0NDTk
5OQkJSXxRQ5HvGtw8+bNvn37UjeHN5k6hqqqKkavYRg8TTpo0CB0iEipQceV
lZU988wzSvAzbYg6EtkeYmNjAwMD7dUPUnYkJCQkbMExhoxmxtQKHZibm/uL
X/zCrrjcO3fuDB48GAtrGJtBsVgBtUpsbOKW2NBHfm6C2EhomNAVCxsVFaWZ
4oZ/YuC2bNlC4/D36tWrNcGc1t8L1adZDFObGt6PMU1LS0tOTjZc0MSq9u/f
Pz4+Xs+XDhw4MH/+fM3y8V//+tc333yztrZWPEvvW+wLu0rDXkdERJik2DIE
o9fDw0P4a84D3j5lyhSGn2EG5urqahgFVt6uiW74gJifzM7OFlf0Vh43oU2b
NpMnT26JxNeNLmXI4pTnjh07Kvu/+Hfbtm0i9AiX2cfHx1ZgLa3q5ub2y1/+
Uplg5NmtW7fSMj8nL9VDZG+jbob97jCalcTS0lJGlP7cTIbB4sWL1Zt5BX7/
+9/j2IrJdvzKDz74QJwHCkNet26dvW0oZUdCQkICjYqj/akOaOBBgwYtX75c
/xPcxla02MOHDy9evIg2/vHHH8PDw729vQXbsQIeiY6O7tu37x//+EfDG0Q6
U1SikmaBysOynMx25RLADVDXhklQYQv5+fl6zX/t2rW4uDg+AXeAdnZsVzVN
nZqa2qNHD4vpPakGXB2TYSsjKHy+V69eKSkpGpOKjcOUG4ay7N27d8eOHZTM
lyqZpc3h2tJs4YsvvnB3d2ckO1OIArhKp06dcN8MNzdVVVXBo7p27Xr+/Hm7
ii0oKGjXrt2kSZPEANBYeRgOtIcb8vLynKw/HUrdSkpKNOIMaeHt48aNgw5p
fuLms2fPWmTOYrcjVAdupt76WldXxyDnD663bdsWPmPIgpBiOsvLy0vxjtEk
s2fPdtXiiMOgWaDHdIr1qWwraFYSaUw4qrI3QQGOBu6MPgiKocL1r7/+WhxV
72SGEyk7EhISEtijyMjIUToEBwej05577jn9T6GhoYaUTw1YLsrKek5dGObK
lSvh5CIXkyGUhPNiY5ogUe+++64mXe2VK1dcFZRrHWKrkeFqJlcMQ525uGzZ
Mozj9u3b9ce/WoRI/GVXliSx2B0WFmYYaYzvA9+mYhqGzH/v3r1r2OnY4hUr
VvCZ9IutzA/6aruwNFsQ54CYHDFjHYzPuXPnMvZs5bmlE9u0afPKK6/YG6rK
l44cORJhEQeNaax8TU0NbibjyuSwOQGoEbKQkJBw6NAhwxugqTg+L7/8sl6i
fXx8nn766ZdeeklznZsp0OIXwXPEQr/hdCWFoDd69uxpKwMY/c5Xw5TEyj6D
Mz4+Xs8PBRB5V20faBbFxcWwLJrIihNaX1+Pi2dxwtZcEtGxjF59ZBHKzdbu
3aKiIpwadO/69eudXBF4cmSHhiovL0eL4rM7eUKWhITEEwJnclnAfFatWoVZ
gcFauR+DsnXrVnSdef5McYQHmvatt95C016/fn3mzJmaSYmGhgYsO+Y+KCgI
lRv6X7z99tstmhxexAPbtdOEr87JyTl8+DB01DxhhXkhKHa7tqJ89913/fv3
xx8xJKiUQ2lJSUnWl2VFPorPPvtMPXnoMFxYGn6Hp6en+mRhhyGCHm0d6Qhb
i4qKcnNzc2zO7U9/+hPcEp/01q1bait/+/ZtWGuvXr2U3fomYOBlZ2d37ty5
sLDQrre7JMriq6++GjZsmGGeCoHTp0/TF0iuLWYrzoxQcsTt27ePWukJ1dWr
V3GgMjIyGCQzZszgY1v63G2R1E6/QVgPMU9+4MABiyWbSyKN6eHhYddmQxoZ
lbJhwwaH0yoqeHJkRyxzMDK52bWJ5SUkJB5XOMOQhUocMGCACI59+PChCdVB
Qe3fv/+1115TayesHoZGnwguKytL2bW9dOnSiooKTWm80c/P76mnnnr22Wf9
mkA13N3dV69e3aKWlMLj4uJ4l8VD3ATwIBITEzEcDqdQ5r3z5s0zSc6mR2Vl
Zbdu3WzNNAqiMmfOHOvNRf/SFwkJCYZ5POyFC0srKyvDytvKv2cXGFd9+/ZV
p5ZS4/Llyz179mTMO+yFwb5mz54dGBg4d+5c+BjUaPHixXTrlClTDI/VNkRu
bq44aM+uVzvPkK9du4auKC8vVw/js2fPKmEJYh+rcoYIL9LHhd6/fx+XFule
v349rYFLq3f6cIcZGMpWL9xhiI1LWJwJxGGOmnzUhrh58ybVsx4tby6J+M6M
N+t8u7HJfUALpaamWkz9YYInSnZg6REREWPHjjWczJeQkJDQwBmGjG7v2LHj
woULMYX//Oc/09PT9fuXFVRVVU2ePFlzdi0EGJOtj1gQx3gNHDgwPz8fNaiP
3cWKrVmzRm3rz58/Dwtt6TRNgr2r09dbQUFBwZAhQ+x6RAOYxoQJE6AW+i1v
ycnJixYtio2N/fDDD+kCsYBIPWEg2GVaj2aZNm0azaUOShFEZfz48dZXsanD
9OnTo6OjXRLc4sLSYIxWiI0ViLzT8E99hgQGG/QP06ymE4xMPJeUlBRlKB49
epQr5tsYafM9e/ZQFD4d3pNdOxN5UUxMTFBQkL3rEU4yZFpm6tSpGppHme+/
/76SPRi3y9/fH89L+HGFhYV66vXTTz9RDgyZVlq2bJnhli4I9syZM9XsOi8v
jxHeos4vncKAbNu27datW01uo8dpRn1QxJdffom/iawtWLBg165dNIuSqsVc
EvEvGL12HTl948aNgIAAlwQPP1Gyc/v2bT8/v4yMjEe7J1RCQuJ/BQ4zZJQM
Oh+GLPJ01dbWZmZm2spjhhXAwGn4MyWgEufOnasnaWJfefv27UNCQgyJ5Z//
/Gf1do+7d+/GxcU5uWnFIkpKSrApdmUk27ZtG5bRmYhK6NCIESM0AX4XL14M
DAykcFoSmxsREaEkasb6vPnmm+JkE2z0nTt3oOjqYBjKERMy1ndIUWZkZKSr
NvW4qjS+fcWKFf369TPxzqyDPoK/GXKGEydOcB2GqWZucJVevXq99957YlqV
n3hc78joIVaKoRP2hkTSX/SacEvtetAZhgxpgd3pz9y5desWbq8id9zQuXNn
/DVeQQtAgPVLLVSD6zDk7t27z58/39A/qqioEKRRjHZKww2Eczp5imWzOHv2
LM7v4MGDba0QMWhxkPHfNefd4MjzlJhLr6ur8/HxGTNmjJiobFYSGbeMXv2O
ABOg/dAGzqu7J012UNpeXl62JvMlJCQkNHCYIYv8Yz169Lh+/TpWYOXKlbZ2
KKPJBw0a9H82oD4MWsGVK1dQZe3atbOSABkzCjmHbNv7CY6BuvHVO3futHg/
9ce4WwzVtgUa2dfXl9ZQrjQ0NIxugjAogvFiN8Wkigh9VFJViBNpZ8yYoS4T
BsKHWJ/Z5o3R0dGuckNcVZrYO/n6669ruBbNzpCYM2cOdjktLW3dunUWl6RP
nTqF/YU5qJlkTU0NRGLevHma9dmDBw9CfpSNZmIaTX9gnB6Y6U6dOnl6elrJ
0KJeKUDQEA17g5AbnWDINCwfbkt+YYbKujlqBIYsUgocOHBA+G76ArnOg7Aj
W0fn3Lt3Lzg4mHvGjh1LyyM+fLjDMfzWITYF8wmIVX19veZXajJr1iz9Br1z
587B1jZu3Cg0lRC99PR0cVuzkojyZPS+8cYb1rPcwOQXLFjg/B7GJ0F21HP7
jKLevXvLIGQJCQmLcCbKAkU9cODAtWvXokg/+eQTQyoLc8Mc2DKvwHBN886d
O2jL1157zUrUxMmTJ5OSkhzLouYAqFJISAha1+LBHxiyhQsXOplCqry8vGfP
nupCxAm5OTk5otnFCSDK2bWVlZWYKiV++5tvvoGQwEjVZeLRdO/evbS01GId
YLMxMTHOH7Pr2tLEUNmwYYN6+DEYUlNTR44cWVdXx/WioqK+ffuePn3aSoHc
/9vf/hbfgS4uKyujDePi4vz8/BiomjEmOOeAAQOUKTjBEEwS6lIaRdFxahHo
0qVLQECArVUJ/UoBDNmBYxkdZsiINr6qLfkNDw9XmgUSC92aOXMmOoF32epc
GgGGs2nTJhPnF74UFRUlXgFP/hnosQBVgrM9//zz7u7ujM9du3ZB9devX0+z
T58+Xd/s4uBmb29v5UAczan0zUoib4SCqkdRsygoKBAp1p361Mdddgzn9mUQ
soSEhHU4w5DF42fOnGk2RZW9gFV+9NFH5ikvBB48eDBp0iTDE6laCCjezZs3
Y0Mt5ii7desWtMGZdUysCcQG3a5QDq6kp6d37dq1pqZGXMEKQJwwneK/MGcY
tTJDe+TIEUGn1cXSdGFhYWJN3Eo1Pv30U+ydAwcCtmhpn3/+eZ8+fdQLu3QQ
/AGWIqaY+G9xcXFiYqJdIYswtO3bt8fHx2PHsfWGz2Jqx4wZA3cSs3liYNg1
Ld8sDFcKgoODHTg6x7Vn6tnCv/71L/oCyTXhb0jEzp07TZwjnsUlhJHCtJ99
9lmI0IgRI1yyP9QiaGfU2po1axYsWECL7dixQ7OBQoGYE1YOqhYLRupsCVYk
8cKFC4xhi4dUUjc8buuOrQkeb9kxnNu3lVFEQkJCQg8UOwzz5MmTj7oiDqK6
uhq9p0zg/Dyor6/38/ND+Vu5GcM3ceJEZ3adi9hFdciuCHFRBxDm5eVh1zC1
p06dOnHixPr165UYY0zq/PnzuVm/vIgbEhAQYCUvB29MSkrCirnEvriqNJEY
8K233lLPUGGgBw4cOG7cuJaeLBLZD1atWqUEUk6ePPnFF1+EEnz88cfWs46Y
wHClAM/CAZYrNpnCEFr/NiW8J+iTGNt///vflyxZ4ubmBgt95Edq6nH37l1/
f39lgwB8D2EPDQ2lqggsY8CKJDJ6GTmxsbFWHEYc81dffdUkn7xFPN6yYzi3
7+XlZdENkZCQkBBo/RbTFtCuWHwYsl2515wHLcZ7p0yZ0mweBjHZu3z5cmca
OTc3F9uhyZJUWFg4YMAAkbv15s2bw4cPx7TdunVrzZo1V65cwRBwRTTLkSNH
evfubbh8ieHGmu/evbvZOnDn6NGjxSkPzsNVpfGlMPzKykr1RXEIwtq1a1t6
sgj62qFDh3fffVe8iP96eHjExMTQCxkZGc5zDMOVAoz+3r17HSuQerZ+Yb9/
/354eHh+fr5yRSyXP/XUU46d2N6iEBkwgNiDVlFR4enpCfNEMFER6AeLksig
xQtWzhk0wfHjx5Ed548gfLxlx3Bu39axhhISEhKPHx4+fDh+/Hi7zu9wFe7c
uTNq1Khmo1MePHgwYcIEkR7WMXz//fchISH6jNCUjCGeMWPGb37zm4SEhKKi
In9//3feeWfLli0//fQTpnnZsmVz5sxZvXo1FTDJvIEFx440O2lz4cKFkSNH
umTPu6tK+/e//52SkhIfH69Jugvxxtpq9rLRJq49nU3QVzc3N/yU5U3IzMxc
tWpVUFAQvaAhHo7BcKWge/fuly5dOtUE51/RCnHv3j0GpGauD+IUGBioeAqt
CnV1dWPGjElLS0tMTMzKykIeGduMgRMnTjQ27XO0IomMTx5JTk42Xx2A6W3a
tGnu3LlOhic99rJjOLcfFhYGYd6zZ4/LwwIlJCQkWhswpkOHDlUSOPzMOHr0
6Ouvv26ubL/99tvQ0FB9glCLwJCtWLEiNTVVf/KCAPwZ8iDmYe7fv68hutSt
WepLyVgozLq5aS4uLp41a5arDKVLSjt27Fh4eLieZuMuwabU82D0QmxsrK1c
K44BD2X06NERERE//PBDfX29spWMNm9oaHDVW/QrBSIqRqwUuOotrQoitxsk
UL36D2F24S5Rl4M637hxQxkDSKVmi7EVScTpRp+YH0wP36MdnEyM0/gEyI7h
3D4ujDK375K3SEhISLRaoM8hDC+88MIjCVD8z3/+s3v37kWLFpmsCaKQs7Oz
bfFbc4htMvPmzXMh4zIE1py3FBUVmSytYmJcmE/P+dKuXr06adIkW9GY1dXV
Y8eOxbnYtGlTQkLC4sWLraxf24W//OUvvr6+WVlZLboebb5S0HLvfbRgwCNW
06ZNKy8vP378eGZmZlxcnKvWL1ozGM+RkZEmvg/Eb+PGjeIMU4fxhMiO+dy+
hISExOMNFOy5c+dqa2sfVQUgyaWlpS5ZFtTj9u3bsOuWpscCvCUnJ+d/hYTg
cezcudM8uQFjg8+5efNmC6VugOR369bNroNjHIb5SsHjim+//basrGz//v3m
mTEeM1y6dImx7ZhPbQVPlOw0O7cvISEhISEh4VoUFxdHREQ8kvAeCYn/aUjZ
kZCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkGiF+H/EOmlE
     "], {{0, 130.}, {950., 0}}, {0, 
     255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{678.6666666666655, Automatic},
   ImageSizeRaw->{950., 130.},
   PlotRange->{{0, 950.}, {0, 130.}}]], "Input",ExpressionUUID->
  "75fce724-0422-49e0-9fe4-f8a291bcef09"],
 ", FieldNumber = 14"
}], "Subsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
  3.831830505824813*^9, 3.8318305059028606`*^9}, {3.8318305385927286`*^9, 
  3.8318305785077844`*^9}, {3.8318381295560975`*^9, 3.8318381300872593`*^9}, {
  3.831838569542036*^9, 3.831838570026646*^9}, {3.831838790424917*^9, 
  3.83183879073734*^9}, {3.8318394275780106`*^9, 
  3.8318394362674923`*^9}},ExpressionUUID->"49c47d10-8efc-44ac-84c6-\
e8a28c3f8f5e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "32"}], ",", 
     RowBox[{
      RowBox[{"-", "3"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{"1", "/", "32"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "4"}], ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]hat", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.83183145204464*^9, 
  3.8318314861991167`*^9}, {3.831831517508382*^9, 3.831831521106166*^9}},
 CellLabel->
  "In[396]:=",ExpressionUUID->"056fffce-b929-4b4d-9fda-3d2060772f5a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318305039182835`*^9, 3.83183050401201*^9}},
 CellLabel->
  "In[399]:=",ExpressionUUID->"4e8af0f3-0672-4597-8f49-ec7e7964acf2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, 3.831830511954101*^9, 3.831838137244884*^9, 
   3.8318390551517353`*^9, 3.831839448496304*^9, 3.8318398054932394`*^9, 
   3.832947518151841*^9, 3.8329618033291645`*^9, 3.845826895935779*^9, 
   3.845852485648197*^9, 3.84585709617831*^9, 3.8459196444026623`*^9, 
   3.8460065946385727`*^9, 3.8460999064436483`*^9, 3.847470469213032*^9, 
   3.8517006546054153`*^9, 3.853975469282321*^9, 3.8549774307103577`*^9, 
   3.85498928217839*^9, 3.8549999199582887`*^9, 3.855165270059613*^9, 
   3.8551823386662893`*^9, 3.85518588199965*^9, 3.8553306612656965`*^9, 
   3.855339865638401*^9, 3.8553432036221247`*^9, 3.8553440368025427`*^9, 
   3.855352764057681*^9, 3.8554496267023697`*^9, 3.855507627640588*^9, 
   3.855508425471178*^9, 3.85551291418999*^9, 3.8555333458834257`*^9, 
   3.8555789395066576`*^9, 3.855593311472565*^9, 3.8557506240330615`*^9},
 CellLabel->
  "Out[400]=",ExpressionUUID->"b1dc87a6-13c6-4686-8964-013b995fa929"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "1", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "cc", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "2", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
             RowBox[{
              RowBox[{"\[Gamma]\[Gamma]", "[", 
               RowBox[{"nu", ",", "mu"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "3", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], " ", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "4", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"CommuteGammastdown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}], ".", 
             RowBox[{"\[Gamma]", "[", "ld", "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "5", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"\[Gamma]5", "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "6", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]\[Gamma]", "[", 
            RowBox[{"nu", ",", "mu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], " ", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "7", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", " ", "I", "  ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"V", "[", "8", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318381592978725`*^9, 3.8318381847173567`*^9}, {3.831838252481107*^9, 
   3.831838255043916*^9}, 3.8318382952770805`*^9, 3.831838336978504*^9, {
   3.8318383745890293`*^9, 3.831838395733345*^9}, {3.8318384528535833`*^9, 
   3.8318385155253572`*^9}, {3.8318386784909325`*^9, 
   3.8318386955706415`*^9}, {3.8318388221525035`*^9, 3.831838822449297*^9}, {
   3.8318389218065166`*^9, 3.831838923262472*^9}, {3.8318389817304688`*^9, 
   3.831838982980516*^9}, {3.831839015980637*^9, 3.831839034914899*^9}, 
   3.8318393770089655`*^9},
 CellLabel->
  "In[401]:=",ExpressionUUID->"8355d629-f6a8-446e-b24a-ff01dab0932e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResult", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHS", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, {3.8318394097129955`*^9, 3.831839416806579*^9}},
 CellLabel->
  "In[402]:=",ExpressionUUID->"314fedc4-9a12-449d-82a2-48902d1efc10"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, {
   3.8318394114476423`*^9, 3.831839418888733*^9}, 3.831839462726506*^9, 
   3.83183981954131*^9, 3.832947532973485*^9, 3.832961817319906*^9, 
   3.845826910506074*^9, 3.8458525003784447`*^9, 3.845857110221128*^9, 
   3.8459196592720413`*^9, 3.8460066085970755`*^9, 3.8460999213985643`*^9, 
   3.8474704839425635`*^9, 3.8517006694994946`*^9, 3.853975483325396*^9, 
   3.8549774460289297`*^9, 3.854989296142776*^9, 3.854999934190219*^9, 
   3.855165285225543*^9, 3.855182353201945*^9, 3.85518589607263*^9, 
   3.855330675530592*^9, 3.8553398799989104`*^9, 3.8553432182963696`*^9, 
   3.8553440521112967`*^9, 3.855352779749861*^9, 3.855449640073745*^9, 
   3.8555076411538153`*^9, 3.8555084397829533`*^9, 3.855512928483841*^9, 
   3.855533359921072*^9, 3.8555789541838956`*^9, 3.8555933264054875`*^9, 
   3.8557506385567107`*^9},
 CellLabel->
  "Out[402]=",ExpressionUUID->"bfa5129c-945d-47e8-a4d2-ddd4c02718de"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]hat", ",", "\[Beta]hat", ",", 
   "\[Kappa]hat"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}},
 CellLabel->
  "In[403]:=",ExpressionUUID->"c46de6e5-ec0b-43c5-9a36-e8910ce86588"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
4D, N=2 Summary, one untiled, one tilded (tt1=1, tt2=2)
True if Holoraumy is correct\
\>", "Section",
 CellChangeTimes->{{3.7468448382541714`*^9, 3.746844841062807*^9}, {
  3.747484813570861*^9, 3.7474848147061768`*^9}, {3.751727150297126*^9, 
  3.751727152968473*^9}, {3.7517370764997187`*^9, 3.751737081484597*^9}, {
  3.831220515042942*^9, 3.831220515642957*^9}, {3.831821062978949*^9, 
  3.8318210760739365`*^9}, {3.831828090167012*^9, 3.831828090416955*^9}, {
  3.8318397194293966`*^9, 
  3.8318397251013904`*^9}},ExpressionUUID->"b61984e8-3611-4344-a7f0-\
9353258e16c2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResult", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{"True", ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", "tt1", "\[IndentingNewLine]", "tt2"}], \
"Input",
 CellChangeTimes->{{3.746844857362361*^9, 3.7468448795383835`*^9}, 
   3.7474860644092245`*^9, 3.7493830656655216`*^9, {3.7493833451039195`*^9, 
   3.7493833528869457`*^9}, {3.751407437687273*^9, 3.751407439737672*^9}, 
   3.767539374926538*^9, {3.831820950415612*^9, 3.8318209529669285`*^9}},
 CellLabel->
  "In[404]:=",ExpressionUUID->"a793d423-9bf3-49c5-8ca1-3d67e2ec099a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8318398196032743`*^9, 3.8329475330139093`*^9, 
  3.832961817351191*^9, 3.845826910568554*^9, 3.845852500404706*^9, 
  3.8458571102603693`*^9, 3.845919659334558*^9, 3.8460066086444564`*^9, 
  3.8460999214298377`*^9, 3.847470484006512*^9, 3.8517006695619802`*^9, 
  3.853975483364243*^9, 3.8549774460914726`*^9, 3.8549892961925707`*^9, 
  3.8549999342214613`*^9, 3.8551652852880216`*^9, 3.855182353233156*^9, 
  3.85518589610963*^9, 3.8553306755931025`*^9, 3.855339880061391*^9, 
  3.855343218374471*^9, 3.855344052183282*^9, 3.855352779802135*^9, 
  3.8554496401072693`*^9, 3.855507641208994*^9, 3.855508439879451*^9, 
  3.855512928597723*^9, 3.855533359957181*^9, 3.855578954230761*^9, 
  3.855593326421112*^9, 3.8557506386035433`*^9},
 CellLabel->
  "Out[404]=",ExpressionUUID->"1353ff48-7377-49f1-bad9-be8c39042828"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.8318398196032743`*^9, 3.8329475330139093`*^9, 
  3.832961817351191*^9, 3.845826910568554*^9, 3.845852500404706*^9, 
  3.8458571102603693`*^9, 3.845919659334558*^9, 3.8460066086444564`*^9, 
  3.8460999214298377`*^9, 3.847470484006512*^9, 3.8517006695619802`*^9, 
  3.853975483364243*^9, 3.8549774460914726`*^9, 3.8549892961925707`*^9, 
  3.8549999342214613`*^9, 3.8551652852880216`*^9, 3.855182353233156*^9, 
  3.85518589610963*^9, 3.8553306755931025`*^9, 3.855339880061391*^9, 
  3.855343218374471*^9, 3.855344052183282*^9, 3.855352779802135*^9, 
  3.8554496401072693`*^9, 3.855507641208994*^9, 3.855508439879451*^9, 
  3.855512928597723*^9, 3.855533359957181*^9, 3.855578954230761*^9, 
  3.855593326421112*^9, 3.8557506386035433`*^9},
 CellLabel->
  "Out[405]=",ExpressionUUID->"5b306415-05d3-4168-867e-f9c99aab2bf6"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.8318398196032743`*^9, 3.8329475330139093`*^9, 
  3.832961817351191*^9, 3.845826910568554*^9, 3.845852500404706*^9, 
  3.8458571102603693`*^9, 3.845919659334558*^9, 3.8460066086444564`*^9, 
  3.8460999214298377`*^9, 3.847470484006512*^9, 3.8517006695619802`*^9, 
  3.853975483364243*^9, 3.8549774460914726`*^9, 3.8549892961925707`*^9, 
  3.8549999342214613`*^9, 3.8551652852880216`*^9, 3.855182353233156*^9, 
  3.85518589610963*^9, 3.8553306755931025`*^9, 3.855339880061391*^9, 
  3.855343218374471*^9, 3.855344052183282*^9, 3.855352779802135*^9, 
  3.8554496401072693`*^9, 3.855507641208994*^9, 3.855508439879451*^9, 
  3.855512928597723*^9, 3.855533359957181*^9, 3.855578954230761*^9, 
  3.855593326421112*^9, 3.855750638619197*^9},
 CellLabel->
  "Out[406]=",ExpressionUUID->"85f1eeaa-0c77-4ce2-bbdd-245670e2397b"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Checking antisymmetry", "Chapter",
 CellChangeTimes->{
  3.845921943174184*^9},ExpressionUUID->"c7606bd4-feb0-4325-985c-\
21824dfe797a"],

Cell[CellGroupData[{

Cell["Scalars", "Section",
 CellChangeTimes->{{3.8459219583430996`*^9, 
  3.8459219611396*^9}},ExpressionUUID->"b9cb720c-ab44-4a2d-ac10-391566818636"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{"tindex", ",", "tindex"}], "]"}], "[", "ScalarFieldNumber", 
     "]"}], "==", 
    RowBox[{"-", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"HoloraumyDD", "[", 
          RowBox[{"tindex", ",", "tindex"}], "]"}], "[", "ScalarFieldNumber", 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"jj", ",", "bb", ",", "ii", ",", "aa"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tindex", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ScalarFieldNumber", ",", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "8", ",", "9", ",", 
       "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845920793514638*^9, 3.845920925520278*^9}, {
  3.8459209956881156`*^9, 3.8459210239081955`*^9}, {3.8459210757460375`*^9, 
  3.845921114460932*^9}, {3.8459211750919456`*^9, 3.8459212131341457`*^9}},
 CellLabel->
  "In[407]:=",ExpressionUUID->"1498c433-2923-4e9a-9bc8-590699dc75d9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8459211229367833`*^9, 3.8459212269197545`*^9, 
  3.8460066175107*^9, 3.846099932774188*^9, 3.8474704961134996`*^9, 
  3.8517006822293587`*^9, 3.853975495180194*^9, 3.8549774592280493`*^9, 
  3.85498930795509*^9, 3.854999945248081*^9, 3.8551652987432756`*^9, 
  3.855182364189801*^9, 3.855185908005198*^9, 3.8553306885182924`*^9, 
  3.8553398907587366`*^9, 3.855343229586923*^9, 3.85534406436945*^9, 
  3.8553527907569113`*^9, 3.855449652798732*^9, 3.855507651115241*^9, 
  3.8555084507806053`*^9, 3.855512939543047*^9, 3.8555333691648893`*^9, 
  3.855578966501317*^9, 3.855593338466704*^9, 3.8557506492763433`*^9},
 CellLabel->
  "Out[407]=",ExpressionUUID->"acb20523-cc79-4952-b139-321ae448848c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", 
  RowBox[{
   RowBox[{"HoloraumyDD", "[", 
    RowBox[{"1", ",", "1"}], "]"}], "[", 
   RowBox[{"FieldNameList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8459213584465227`*^9, 3.845921388175336*^9}, {
  3.845921493653739*^9, 3.8459214992936926`*^9}},
 CellLabel->
  "In[408]:=",ExpressionUUID->"01f183f8-4afe-49b4-9d72-e9a88e9caf77"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "4", ",", "2", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.845921389084299*^9, 3.845921500371909*^9, 
  3.846006617597542*^9, 3.8460999328366394`*^9, 3.847470496201639*^9, 
  3.85170068232778*^9, 3.853975495238717*^9, 3.854977459321774*^9, 
  3.854989308026628*^9, 3.8549999453105674`*^9, 3.855165298822916*^9, 
  3.8551823642366652`*^9, 3.855185908064077*^9, 3.8553306885821066`*^9, 
  3.8553398908368807`*^9, 3.855343229680623*^9, 3.8553440644319363`*^9, 
  3.855352790941937*^9, 3.8554496528621264`*^9, 3.855507651178939*^9, 
  3.855508450841361*^9, 3.8555129397153587`*^9, 3.855533369218368*^9, 
  3.8555789665637884`*^9, 3.8555933385100145`*^9, 3.855750649338829*^9},
 CellLabel->
  "Out[408]=",ExpressionUUID->"d70bc57a-d427-446b-af14-7dd07caa8667"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["TableHoloraumyDD for fermions, vectors and tensors", "Section",
 CellChangeTimes->{{3.8459219675328846`*^9, 3.845921969454814*^9}, {
   3.845922100328164*^9, 3.8459221134608355`*^9}, 
   3.845924358960832*^9},ExpressionUUID->"c2e8cdf6-ff47-4a5d-9498-\
6c9e3f6a5686"],

Cell[CellGroupData[{

Cell[TextData[{
 "Fermions: \
TableHoloraumyDD[t1,t2][FermionFieldNumber][[kk,cc,ii,aa,jj,bb]]:= ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], ",", 
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "b", "j"]}], "]"}], 
    SubsuperscriptBox[
     OverscriptBox["\[CapitalPsi]", "~"], "c", "k"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "357463ea-b5af-46c9-89e1-2f174bf19247"],
 " for t1 = t2 = 2, FermionFieldNumber = 14 and similar for other D\
\[CloseCurlyQuote]s and the other fermion"
}], "Subsection",
 CellChangeTimes->{{3.8459221239926095`*^9, 3.8459221632013807`*^9}, {
  3.8459222001987343`*^9, 3.8459223056030793`*^9}, {3.8459243650862045`*^9, 
  3.8459243664845753`*^9}},ExpressionUUID->"26be3b92-47b1-41c4-854b-\
0af24e3bc189"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TableHoloraumyDD", "[", 
      RowBox[{"t1", ",", "t2"}], "]"}], "[", "FermionFieldNumber", "]"}], " ",
     "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"t1", ",", "t2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "FermionFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t2", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"FermionFieldNumber", ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "14"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8459218747710443`*^9, 3.845921927649105*^9}, {
  3.84592197429941*^9, 3.8459220070247145`*^9}, {3.8459220629657335`*^9, 
  3.845922092590564*^9}, {3.8459223174681187`*^9, 3.8459223402880864`*^9}},
 CellLabel->
  "In[409]:=",ExpressionUUID->"cce1cd57-11ed-42cc-8afe-2e47225d1c59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TableHoloraumyDD", "[", 
     RowBox[{"1", ",", "1"}], "]"}], "[", "7", "]"}], "==", 
   RowBox[{
    RowBox[{"HoloraumyDDRHS", "[", 
     RowBox[{"1", ",", "1"}], "]"}], "[", "7", "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8459223511178555`*^9, 3.8459223961291623`*^9}},
 CellLabel->
  "In[410]:=",ExpressionUUID->"d8c3eaeb-d7ad-4430-a919-bb8ed5c20397"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.8459223710528355`*^9, 3.845922397924825*^9}, 
   3.8460066185720625`*^9, 3.846099934100214*^9, 3.8474704974709177`*^9, 
   3.8517006837185435`*^9, 3.85397549658939*^9, 3.8549774607114325`*^9, 
   3.85498930925974*^9, 3.854999946482542*^9, 3.8551653002166348`*^9, 
   3.8551823654283304`*^9, 3.855185909292074*^9, 3.8553306899681687`*^9, 
   3.8553398920160356`*^9, 3.855343231009593*^9, 3.8553440656180897`*^9, 
   3.855352792060588*^9, 3.855449654139864*^9, 3.855507652258953*^9, 
   3.8555084519507313`*^9, 3.855512940966671*^9, 3.855533370266109*^9, 
   3.855578967905009*^9, 3.855593339922476*^9, 3.855750650556304*^9},
 CellLabel->
  "Out[410]=",ExpressionUUID->"b76b1cd3-3df4-4241-9601-4641aa42e69a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TableHoloraumyDD", "[", 
    RowBox[{"1", ",", "1"}], "]"}], "[", "7", "]"}], "==", 
  RowBox[{"-", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"TableHoloraumyDD", "[", 
        RowBox[{"1", ",", "1"}], "]"}], "[", "7", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"kk", ",", "cc", ",", "jj", ",", "bb", ",", "ii", ",", "aa"}], 
       "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8459224150390015`*^9, 3.8459224665887413`*^9}},
 CellLabel->
  "In[411]:=",ExpressionUUID->"0690d944-8735-4258-a63b-5c87da6808b5"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.845922479754038*^9, 3.8460066186237154`*^9, 
  3.846099934131459*^9, 3.8474704975414495`*^9, 3.8517006837820106`*^9, 
  3.853975496626862*^9, 3.8549774607582912`*^9, 3.854989309305006*^9, 
  3.854999946513787*^9, 3.8551653002634983`*^9, 3.855182365459577*^9, 
  3.8551859093268623`*^9, 3.8553306899994135`*^9, 3.8553398920629025`*^9, 
  3.8553432310876856`*^9, 3.8553440656570616`*^9, 3.855352792091056*^9, 
  3.855449654170868*^9, 3.85550765229539*^9, 3.855508451988989*^9, 
  3.855512941008569*^9, 3.8555333702981157`*^9, 3.855578967936276*^9, 
  3.8555933399376745`*^9, 3.8557506505875115`*^9},
 CellLabel->
  "Out[411]=",ExpressionUUID->"c3d82795-abaf-4b38-94ad-8f5209453d65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TableHoloraumyDD", "[", 
       RowBox[{"tindex", ",", "tindex"}], "]"}], "[", "FermionFieldNumber", 
      "]"}], "==", 
     RowBox[{"-", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"TableHoloraumyDD", "[", 
           RowBox[{"tindex", ",", "tindex"}], "]"}], "[", 
          "FermionFieldNumber", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
          "kk", ",", "cc", ",", "jj", ",", "bb", ",", "ii", ",", "aa"}], 
          "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "//", 
    "Simplify"}], ",", 
   RowBox[{"{", 
    RowBox[{"tindex", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"FermionFieldNumber", ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "14"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8459224989552383`*^9, 3.84592254763443*^9}},
 CellLabel->
  "In[412]:=",ExpressionUUID->"a39bd7da-7ce7-43d9-bc1b-be0b06b33ecb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", "True"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.845922558918836*^9, 3.8460066186676426`*^9, 
  3.846099934178296*^9, 3.847470497588318*^9, 3.8517006838132577`*^9, 
  3.853975496663423*^9, 3.854977460820777*^9, 3.8549893093532467`*^9, 
  3.8549999465669823`*^9, 3.855165300312767*^9, 3.8551823654751797`*^9, 
  3.855185909375601*^9, 3.855330690046276*^9, 3.8553398921097665`*^9, 
  3.855343231165792*^9, 3.8553440657039223`*^9, 3.855352792242032*^9, 
  3.855449654215096*^9, 3.855507652350333*^9, 3.855508452040813*^9, 
  3.855512941052754*^9, 3.855533370347221*^9, 3.8555789679675193`*^9, 
  3.8555933399619517`*^9, 3.8557506506187544`*^9},
 CellLabel->
  "Out[412]=",ExpressionUUID->"13b69e48-d717-4375-bdcb-0c1c8e772020"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Vector: TableHoloraumyDD[t1,t2][6][[mu,ii,aa,jj,bb]]:=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], ",", 
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "b", "j"]}], "]"}], 
    SubscriptBox["A", "\[Mu]"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "022c197c-31f2-484d-bda5-2fd730a59d3a"],
 " for t1 = t2 = 2, similar for t1,t2 = other values . This makes mu be from \
1 to 4 instead of 0 to 3 as a table index"
}], "Subsection",
 CellChangeTimes->{{3.8459243492454*^9, 3.8459244608739257`*^9}, {
  3.845924612656059*^9, 
  3.845924632017685*^9}},ExpressionUUID->"675d70f3-62b3-4437-957f-\
94e75a1c54c8"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TableHoloraumyDD", "[", 
      RowBox[{"t1", ",", "t2"}], "]"}], "[", "6", "]"}], " ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"t1", ",", "t2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t2", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8459218747710443`*^9, 3.845921927649105*^9}, {
  3.84592197429941*^9, 3.8459220070247145`*^9}, {3.8459220629657335`*^9, 
  3.845922092590564*^9}, {3.8459223174681187`*^9, 3.8459223402880864`*^9}, {
  3.8459244754678245`*^9, 3.8459245151257286`*^9}},
 CellLabel->
  "In[413]:=",ExpressionUUID->"1799e3a7-a4fa-4725-a89a-f5405cf2c06d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TableHoloraumyDD", "[", 
       RowBox[{"tindex", ",", "tindex"}], "]"}], "[", "6", "]"}], "==", 
     RowBox[{"-", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"TableHoloraumyDD", "[", 
           RowBox[{"tindex", ",", "tindex"}], "]"}], "[", "6", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"mu", ",", "jj", ",", "bb", ",", "ii", ",", "aa"}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "//", 
    "Simplify"}], ",", 
   RowBox[{"{", 
    RowBox[{"tindex", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8459245795793715`*^9, 3.845924638408832*^9}},
 CellLabel->
  "In[414]:=",ExpressionUUID->"5c495d51-a386-4e26-80fe-8fdf2234d3da"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True"}], "}"}]], "Output",
 CellChangeTimes->{3.8459246480683613`*^9, 3.846006618722509*^9, 
  3.8460999342720275`*^9, 3.847470497650834*^9, 3.8517006839382424`*^9, 
  3.853975496741149*^9, 3.8549774608832846`*^9, 3.854989309418538*^9, 
  3.8549999466294756`*^9, 3.855165300390873*^9, 3.8551823655532866`*^9, 
  3.8551859094465857`*^9, 3.855330690124383*^9, 3.8553398922034726`*^9, 
  3.855343231243904*^9, 3.8553440657663774`*^9, 3.855352792335823*^9, 
  3.8554496542860813`*^9, 3.855507652415842*^9, 3.855508452105835*^9, 
  3.855512941117291*^9, 3.85553337041507*^9, 3.8555789680300045`*^9, 
  3.8555933400296593`*^9, 3.855750650696861*^9},
 CellLabel->
  "Out[414]=",ExpressionUUID->"d89c5317-f08a-4136-8bed-0d23e6c40033"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Tensor: TableHoloraumyDD[t1,t2][6][[mu,nu,ii,aa,jj,bb]]:=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "a", "i"], ",", 
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "b", "j"]}], "]"}], 
    SubscriptBox["B", "\[Mu]\[Nu]"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "b1be5733-543b-43ad-a58a-e22b6c756685"],
 " for t1 = t2 = 2, similar for t1,t2 = other values . This makes mu, nu be \
from 1 to 4 instead of 0 to 3 as a table index"
}], "Subsection",
 CellChangeTimes->{{3.8459243492454*^9, 3.8459244608739257`*^9}, {
  3.845924612656059*^9, 
  3.845924671829355*^9}},ExpressionUUID->"53c49537-4786-4948-9b4a-\
66e0b0ef4111"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TableHoloraumyDD", "[", 
      RowBox[{"t1", ",", "t2"}], "]"}], "[", "13", "]"}], " ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"t1", ",", "t2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "13", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t2", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8459218747710443`*^9, 3.845921927649105*^9}, {
  3.84592197429941*^9, 3.8459220070247145`*^9}, {3.8459220629657335`*^9, 
  3.845922092590564*^9}, {3.8459223174681187`*^9, 3.8459223402880864`*^9}, {
  3.8459244754678245`*^9, 3.8459245151257286`*^9}, {3.8459246973419533`*^9, 
  3.845924707390303*^9}},
 CellLabel->
  "In[415]:=",ExpressionUUID->"a0d99f91-f728-4e1f-b34d-41d56963817c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TableHoloraumyDD", "[", 
       RowBox[{"tindex", ",", "tindex"}], "]"}], "[", "13", "]"}], "==", 
     RowBox[{"-", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"TableHoloraumyDD", "[", 
           RowBox[{"tindex", ",", "tindex"}], "]"}], "[", "13", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
          "mu", ",", "nu", ",", "jj", ",", "bb", ",", "ii", ",", "aa"}], 
          "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "//", 
    "Simplify"}], ",", 
   RowBox[{"{", 
    RowBox[{"tindex", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8459245795793715`*^9, 3.845924638408832*^9}, {
  3.845924716572387*^9, 3.845924728057683*^9}},
 CellLabel->
  "In[416]:=",ExpressionUUID->"6ab7d8b5-074c-4b1f-811c-add55dfd7c81"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True"}], "}"}]], "Output",
 CellChangeTimes->{3.8459246480683613`*^9, 3.8459247360191703`*^9, 
  3.846006618929691*^9, 3.8460999345532393`*^9, 3.847470497925344*^9, 
  3.8517006842506547`*^9, 3.8539754970243473`*^9, 3.8549774611875753`*^9, 
  3.8549893096947737`*^9, 3.854999946897824*^9, 3.855165300687705*^9, 
  3.855182365803254*^9, 3.855185909726931*^9, 3.855330690452441*^9, 
  3.8553398924690313`*^9, 3.855343231618806*^9, 3.8553440660319405`*^9, 
  3.855352792637123*^9, 3.855449654566209*^9, 3.8555076526580877`*^9, 
  3.8555084523467484`*^9, 3.855512941366166*^9, 3.8555333706503553`*^9, 
  3.855578968334499*^9, 3.8555933403095536`*^9, 3.8557506509468017`*^9},
 CellLabel->
  "Out[416]=",ExpressionUUID->"343d71f6-23f1-46f5-8ca4-e9f6cce7c3e7"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Appendix F check for cross term   ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], ",", 
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "b", "j"]}], "]"}], "Fermion"}], 
   TraditionalForm]],ExpressionUUID->"05575f88-4430-4bbc-b37f-f3ccd299f09f"],
 "  in X and Y bases and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubsuperscriptBox["D", "a", "i"], ",", 
      SubsuperscriptBox[
       OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Fermion"}], 
   TraditionalForm]],ExpressionUUID->"a41e05ed-c1c3-41dd-b031-782264ae4dca"],
 "  in W basis."
}], "Chapter",
 CellChangeTimes->{{3.832947726675784*^9, 3.832947778862173*^9}, {
  3.832960631569329*^9, 
  3.832960640352331*^9}},ExpressionUUID->"572e727c-46ce-4675-9157-\
b9aa50136e84"],

Cell[CellGroupData[{

Cell["Set tilde indices: tt1,tt2=1 for untilded, 2 for tilded", "Subsection",
 CellChangeTimes->{{3.74748589807438*^9, 3.7474859927542334`*^9}, {
   3.7493829745987787`*^9, 3.7493829930707884`*^9}, {3.7514052692549267`*^9, 
   3.7514053037746964`*^9}, {3.751738034258769*^9, 3.751738035971404*^9}, {
   3.767539285403961*^9, 3.767539286757628*^9}, {3.7675393328642693`*^9, 
   3.7675393381796207`*^9}, {3.831226416603404*^9, 3.8312264306754775`*^9}, 
   3.8318217365215335`*^9, {3.831828069456098*^9, 3.8318280762393937`*^9}, {
   3.8318281302779446`*^9, 
   3.8318281320128803`*^9}},ExpressionUUID->"2d93ac5b-b820-45aa-abb6-\
24ba3912d99d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tt1", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tt2", " ", "=", " ", "2"}], ";"}]}], "Input",
 CellChangeTimes->{{3.749383010539157*^9, 3.749383013350893*^9}, {
  3.749383162056017*^9, 3.7493831621347337`*^9}, {3.8318211317934065`*^9, 
  3.83182113291881*^9}, {3.8318282863531675`*^9, 3.831828286431819*^9}},
 CellLabel->
  "In[417]:=",ExpressionUUID->"3b097268-0a0d-4ce6-9286-f950a7aadeec"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdQFdf7/x977yLYOxoLmtg1sfeusRE7gqJGUQQVRcESC/YSxYoNK1Ej
sQx2E40aB4No1LGgjInRMepI/H6S+eQz/F9/zmRnf7v3XvbeuxfQnPeMDnfv
3t1TnvJ+znnOOZV9AvqOzv7BBx9Myct/fUdOaxMYODLks6J86D9xytgxE/18
u0wM8hvjF9jUJwcXj/LPlz/+/79TJSQkJCQkJCQkJCQkJCQkJCQkJCQkJCQk
JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJLIY/v777//9
73+ZXQoJiQzCX3/9ldlFkJCQsArpkiQksg7+/PPPrVu3Nm7cOFeuXHny5One
vfvFixfVGvr8+fPJkyevW7dOqm1m4fXr17dv305MTPzvf/+r+QpzmpycHB8f
//vvv2dK2d45PH36NCgoqFKlSh988IGbm1tgYOCTJ0/UN/z444/e3t78n1kl
zAqwIXLgxYsXCQkJDx8+zPiCSbz3kC5JQiKrISkpqU+fPoMHDz569OiNGze2
bdvWokWL7Nmzd+7cecOGDbGxsXPmzGnWrFlkZKRFlwHu3r0bEhJy586dDC75
uw6s3MGDBxcuXPjHH39ovtI06cuXL4ODg0uUKEHXvHr1SnMzHcf13LlzHzhw
ICPK/S6DNqe5mjdvPmvWrMuXL//www/z588vW7Zs4cKFx44du2/fPtrQ19e3
bdu2V65cyezCmg+zRA6KOGzYsLx58/r4+FgzC/9m0Hpnz549efJkxnNpWBa0
ildjzDP41WbBeZckISFhLrBpAQEBqKQ6Ovv777+50qFDh+LFi3/44Yfc8ODB
AxsP2b17d7169Vw9CIMNxIbEx8e/fv3apS/KMFAjXO2AAQP0NdI36bNnzz76
6KMJEybQO/pHrVq1CsIj6Xq6uHr1KpxQI8+0/9KlS728vIoWLfrpp5+uXr06
JSVF/9u3b9/SwgkJCe/uzLWJIocTd3d337hxo2tL/G7i22+/LVasGBFHdHR0
Br+aXhs5cmSdOnUw4K54vrDD169f14cbpsAZl/QeaKiERLrAPRHvHzp0SA6q
64Gt2L59O968SJEily5dyuziZAKuXLlSsmTJnTt36r/CMHp7e7du3frNmzcZ
X7B/Cf7zn/8sWLCgfPny1atXT05OzuziZARsiBzYsWOHm5vbv3ya3hrgin36
9IFWZVYBYFZ9+/Y1/bHY4W3bthFTZEE7/C/UUIl/JwiUPv7447Vr10quaBGY
qcDAQOLlp0+fZnZZMgGRkZHu7u4W55V+/fXX2rVrBwcHWxz/kTALf/zxR+fO
nXv37o1XyuyyZARsiNx///vf8ePHY6+ePXuW8QXL+nhfuWJqmh2eMmUKYXsW
tMP/Ng2VkHgngNH45ptv4G/+/v62J6lNwevXr1u1auXt7f0ezC/QdDExMePG
jVu2bJl6utNak+KaR4wY0bRp05cvX2IGN27cOGrUqEWLFolpoO+++65EiRL7
9+/PhJr8m/Dw4cOKFSsuXLjwXYzmzBU5LvKVTFa0hveYK75586ZNmzZDhgzJ
gnb4ndZQifcGycnJjRo1Kl68OH6ZmPpfbiRRxu3bt69fvx7T0bVr17Fjx4oG
efXqVc+ePUumAWNl4qzo7du3y5Qps2rVKrMemIk4ceLE8uXLr127Vr58eay6
uGitSVP/yRzD0T9//nz+/Pl4ohkzZpQqVernn3/m25UrV5YtW5b2sfHGt2/f
RkZGui6h8dixY5Tq/TbRR44cQapPnjyZ2QVxBOaKnEhW3LBhg4038vDjx49D
RM2VCiSZAt+7d8/EZ1qEM+XPalzRxEbDhmBt1q5d6/yjTMc7raES7w3u379P
zBIVFXXx4kW90hGeo49/WALXbVsb+NXixYsx1BnsbQkMLRYYpDuGTwvgO7gT
V9KgQQOFPNMOiYmJNNGcOXMaN2788uVLiz+nmrxdU1l+q7+oYN++fbD07777
jr8vXLjg7+8/YcKEDHAZNkBRNSGD5iM3qOeFxd80WmhoaFJS0rZt2zw8PHDf
4ltrTZqatiKDuiMk4eHhuGkeGxsbu2XLFpwRLTZw4MBWrVrZWPKDBAYFBa1e
vdrhSeoHDx7Q4Hfv3hUfU1JS1q1bd/PmTeUGZNjX13f37t2uE2CejBegsu3a
tfvkk08ISQ4fPuxwyGavBHJx9uzZWSEVSlNCfZ+q2+R/aTBX5PgWholT5h4b
5Txw4ICPj48r9nGi/J999pnt4Mh5OFN+NVekSVesWNGlSxfYuDJyS3tu3rx5
3rx5Dgswwk/fodriI7q5Zs0aJTbXjys602jYFqwHCh4cHExd3NzcrCUrUsHA
wMC2bdu2adOmZcuWyI81F2AEiLpGvIXaWmy0rKOhEv9ywBWrVatmLZf73Llz
H3/8cd68eT9IQ65cuWrWrNkgDbVr1yYGh2cSpKvdqwCSj0KdPn2aqL9evXoZ
lgSCDi5cuJBSZc+eXZS5SJEi9evXF2WmpvgCarR06VKLyo62itkoTBCmAx+k
uQHa0KxZM2uG4vLlyy1atOCHH/yDbNmy0Upwnp9++sliaadMmVKrVi3swJ49
e1auXInnKl68eCaGt7QAfLh8+fJKA+bMmbNXr164XaXMOGgkQXybL18+aifI
bUoaunXr1r17d2U5oY0mjYyM5C0VKlTYsWOHZvnhr7/+SrNABa3xQK4vWbJk
zJgxiltxAHiK0qVLizElEBcXV6pUKf5X3wMVwSEKMm86UBPEFTckHAF+gXjE
y8sLBmtxzXK6sFcCafZOnTpleioUbBkrkSdPHqXYnp6ehE7qG+ga8VWOHDlQ
5L1796aaKnL8ClNmO1kRLtGhQwcluDAdMTEx/fr1U3TNdDhZfs24IjIzYsQI
9BRtFVdEjvEXX3zhWPiGLnfu3LlHjx5CGoV5VPeIxTloxxoN+ofkh4WFIQYJ
CQlIVN26dS36KWTv888/xwKISlHHwYMHN2zYULEbdgGWPmzYMDwUdlWR9oIF
C9apU2fjxo36gC6LaKiEhG2uKIB4N2nSBJHWpEwI19axY8f8+fMvWrRIPTdx
69YtKAfx4KBBg9q3b5/xS1lxNIUKFSpatKimaqgevgNVrVq1KlTW2s83bdqE
b8KGaK7b5ooKMCyFCxfm7bbHKESyIuYX0rJv3z5sEWYcjq3ZQjlTgDPNnQY9
YRZLAEqUKLFu3TqNw71y5QrttnXrVv0DNU3KQ0aOHNmoUSPs/4ABA3Ax6uUG
6SYr4vWaN2/uzOwzPA0X8Mknn4h99hDmuXPnVq5c+dGjR5o76XRc2IsXLxx+
lzXgfENCQjReIDExsVKlSgsWLHBmMNOgBOIxIU5OvsssEHFUqVIFO0O/6EOA
I0eO4FL9/Pw0HWSWyGHlmjZtyg3WxsTQehhpVFSUM3W0DUyor69veHi4K9Zz
OV9+DVfEfH366adYeCXHb+fOnQQmDgdWxGVY5nnz5glpRDFRT3UOoUWu6ECj
UXKaAtospi3Ei2CA+mRFgrhRo0Zp9pMkPKEY7dq1c2Z0kd/iSpD2L7/80ob2
ZSkNlfg3wwhXhA+gF0j1ihUr9N/i6QIDAwn2p0+frpgR7C3WHlNctmzZNWvW
uKToNoGDKJYGiwse0X2RpankOKlB4bEP0GP9TI1BrkjICdXBT9meTb59+7aH
hwcecNKkSb/88kt6dcpQEMsT0dPpdK7GCF++fBkzS5ig+Qm3zZgxo3r16th8
eLiaaeubVDwfzsmvoHy01fr165GZvXv3Im9IWpkyZWjGY8eOEXdoXiRsdVhY
mDMu9enTp8TykydPFg/h1biPLl266FkKrgSuuHz5cnPNtRgxgI0TJqiv01b+
/v6wVnTT4YcblEAIGLc5mQpFA5oyJ8tzgoKCELn69ev/9ttv6q94PgRy5cqV
GiJnosjxW65ERkbSYvp0Pj6uXbu2bdu2rj5FCOWqV6+eMp9uFkwpv4Yrilxr
OkV8xII1bNhwwoQJDi8P4flI44kTJ8RHFB/zSByt3GBtbYu9jXbo0KH8+fMr
0zdUxJqfonbZsmXTRxCHDx8mFrO285IR4DexKjzc9maepmiohITzcJ4rpv7j
TPPmzbtr1y7lItaJaIg40XVTNjZgmyumpp13hiHy9PTUO1OR5oS/1o8waLgi
dfz666979uyJhVSPcVn01ESI3AYh2bx5s+An+/fv57bo6Oi5c+dirLiedYJH
SrJ48WJMWZUqVdQrSWnPfv366UdcU9PWErZq1QoHTQOGhISoR0f1TXr16tWS
JUvu2LEjNa2zSpcufeDAAS5GRETga6BwePlHjx7NnDlTz6JhBXRcYmKiMxWE
69L4e/bsER95FzUNDw+32AVQCAiMuXz+9evXvXr1qlGjhn52eNOmTbly5TIy
BOSMBIpUKNT/8ePHzlTkypUr2AdT8kzQSopN3dW7PSNX48aN27Jli75rzBI5
WgOKgkE4d+4cjX/8+HHNi3gaip8BYS/cFT6mXo9jCkwpv4YrCvMlRhEJ3yDz
iJbDw+90LtEfOqiMG6ObPF8dk1rjinY1mtimrHjx4oreIQYIhj74pUhwRcqA
+mtkD7VCfvr3729kpQ8ecMiQId7e3hA/5TkWuSKulpgUsxAQEICXMUtDJSSc
hylcMTUt/MmXL5+Xl5eSu4LRaNSoEREZ9hyKpT9Ry6VIlyuKiVQqNXHiRI2F
oTUwHfq511RL44r8FnuCd2vcuLGSM6P31FS/TZs2WIbp06cr2ThBQUG1a9fG
yWJwuqWBr/BZmcKu9aAYFSpUyJ49OxUUJo7qDBgwgCje4v00BdQOf0G9NFl/
+iaFDFSuXFmMGSIh3mmgL0Sa+rFjxxAeGCM/0VhpmCTcANfgZALP6tWr6SNF
PGh2PsbGxkIeIAz6pkBNMuy4Crxw7ty59SO6FuGwBKLXHTt2xDH9/vvvRHkO
J4p8//33n376qaL4zoCCIWBoZZcuXUTGJjQgODgYkmOxKUwUOXgmrYFohYaG
6ldUQSeqVq3q6oUnArBiIghzz9EzpfxqriiSCTFf9DvN9cUXX/CVM8GUSFZs
3769SGsRjI7n0y/79u0T0mVjzxzjjSYGnJUtbXkRAla3bl0KTysZFGPIGwaB
+NHgVpzEU+XKlStcuPCZM2fEFT1XxNAtXLiQK7gYQQ7N0lAJCedhFlf87bff
6tWrlzNnzs2bN4sr+Fx3d/eYmBgevmDBggzejSddrpiaRkjy58+PCmvS3lBe
Sm5x6MziHLSwGwULFlTsgN5T8zQi2TJlyig8UCQrimwfWrhDhw4+Pj74+hkz
Zmgm4DILItuffm/SpAnMPzk5efDgwXoepQF36qdx9U2Kx1E3IxabZlQH6dhS
i2MU+I6aNWsuW7bMkSr9A5Gs6ObmJhLUKQlEXaxziYiIiI+P19xPB8FeBg4c
6LoNQ9RP3r59O6o0dOhQg1rjmAQiZh999BHU6Nq1azgphzXURK6Y+k/UiVdF
0miTsLCwxYsX2y6bWSKHs6ZNLC7B9vX1xWs7tuDIXiQmJtJNFmNVx2BW+dVc
EfPVsmVLiP3Jkyd79uyJ/Dizyiz1n2TFrl27ikCGgLRs2bK9e/d+9OiRwt5t
cEW7Go04EW8lmC3KXqlSJV6EfcP22hjTUC/Vh5TiOAg9DI74iVxZbOm0adOE
gOm5IkYGqpwjR45NmzaJK2ZpqISE8zCLK6JH/fv35x5lW2miNqwTZGPq1KkZ
P4RuhCs+ePAAfc+VK9fOnTuxRRs2bOBmKkscB3OwaFctckXMS4sWLXgO34or
ek994sQJeCmKr8Sh2Mbq1atHRkampjmpdevW8ZDJkyfv378/68xEQwOKFCmS
N29ezBe2zmJ6pzUYbFJ7QRngeNbWJWGH4Uvjx4+ntETiGmrHR8rDPSJZEUKC
b8IIT5w4ccuWLR9//DF/wEz0hFDkxamXfJoCcSBsv379IKJ481GjRq1Zs4bm
IrZClfho0Ds4JoHoKZXq1KnTpEmTLK6SNghzuSLKRV1E9RctWgRXNM7PXSRy
SIuXlxd2zNowL5aEchJJffnll/p2oC/sGhESMzImTkObVX41V+QnOA5YIhJr
eziR327evHn48OEBAQE//PCD5lvokBgM5OHECPBDXEZ4ePj06dNRzAYNGkyZ
MoWvxM02uKJdjYaMDRs2zM/PLyQkJDg4GJVH93lRbGys/uY7d+588cUXsDhi
t9GjR3M/pvvq1atFixb19PQ0uA4Rkz5nzhykWlmqo+eKKGb9+vULFCigjJCb
paESEs7DLK6IFUKeRV664oy4iCnIFOZjhCuKsVCxfOPQoUPoPmEp1hIDZXFQ
MdUKVySgxpKg9evXrxdX9J6a5+fJk0eT64h9UzcO5XF15ry9oOt79OhBE5Us
WfLAgQN2/fbIkSNGmtReRERElClTxuK6D6gCjIuOUDajwEOpV2pDI+kjsX6f
Gu3duxdZxespy1vwetbEdfv27YiTicfFPn/+/PPPP0dflEQpXk0jU0KuU3jc
hMHFO45JoAAfNYvZ7YW5XBF89dVXOXLkgPpC3e0arXKRyF2/fp3GJJrQf0WX
8TriKfVuP+rdVFDq0NBQuzJwYAgDBgyAMJuVt2NW+R3YixvzK2ysssUWeqSo
GOK9bNmyK1eucAV+iCd6mAZlYgULqRZXG1zRgUZD2dUZU3rbC+2ECVeoUGH1
6tXKgp3bt2/PnDmTkAT5hJ0az8/Ee9ICxC+iAfVckfLUrFmTABaFUv/QeQ2V
kHAeZnFFkYXLPZUqVdLvOpLxMMIVlV0LiPX4e+vWrZBG/JQNwmaRK2JGMKE8
R5kY1XvqXbt2YVuIEJ2cqRHFpsDVq1evZhj4TRsbBNnGvn37cufOTUtaS1O0
BsTGSJPaBay3n5+fxZ3QxIqYihUrLl68mKKeP38+ICAA5qCst6I8s2bNEjOw
GP90D4XRgGCfp2nWLDsMOGrbtm3pRM0ubSkpKVOmTEGJxHC3wadlsARqYDpX
xIDQMrhRe7cKcYXIgYMHD9L1FgfVY2NjPTw8kEnE49q1a1AL+m7o0KEKoaLZ
xVaQxiFSAatWrWrWdIxZ5beXKz558qRhw4YtW7aMjo6Gr1KMDh06YI6UtXJI
KV4D1oRMdunSpVevXraTkG1wRdMbDVMzb968AgUKREVFaXaK4woCr55EMwK4
OhEQnlQQPz1XTEpKgpeitvr9iiUkMh2mc8Vy5cqZm5XtGOziigSkBlXeIlfE
TE2fPp3nKBuwaDy1WBLODQ7vUqvGmzdvgoOD29iDnj176md/jAAbTqXy5ctn
cfOcjAd+qnv37sqmiGpAhkV2k3JFjJkMHDhQGGfYIzRSHGIyePDg1q1b2zUz
GB8fj8NVdghJF/gafCW/0me/U4sxY8bAwJUpYwXKvjGIrj5t0hoyWAI1MJ0r
xsTEwOQtbp6TKYiMjKTr9RpEz8KdNBOXtDwaJ8zO8+fP6U0HqoCgFi9e3PhK
fyScjoaPWeRaZpXfLq6ImIWFhc2YMUNdJMopEi3EDUuXLhUZttCkypUrp3vk
se3zoO1tNNs4cOBA/vz5hw8frq8vvBoOiXwuWbLEeCxDTQsWLKiItJ4rinlt
ZdGNhESWgolz0FOnTuUesTLOBSW1D0a4othVgzIbPwjb2v6KItlGOZNO46kx
C9AYuIGNzaWzIDCSc+bMWbRokYgCiNkx6ZlbJCGKSmyugKJCk/S7XnAbnYsw
cMOsWbPEpCTdMW3atK1bt9o1ZiX6VNkoOF0cP34cTqvOIVQArS1UqJCXl5ee
RYjhEVrb9vmGemSABFLx33///Rcdjhw50rhx459++klzHTvgwMpN2m3EiBFi
Ntkinc54LFu2DEuiTxiLjo62yBbw/mKXFfiGxa1+0gVsqkiRIgbjOzoXJS1f
vrzFneRNLD8y5unpOXPmTMKudEuFZ/H19dWP7sLlxo0bl5KS8uDBA9RQJJTy
95AhQ2zkDCDVq1at8vb27tq1q7V77Go024BFN2rUCK547Ngx/beCKyKfV65c
Mf5M1KFu3brK9vh6rrhhw4YcOXL4+Pg4vEGlhITrYOLaFpSde3r06GH6JJcD
MMIVsauVKlXKnj37unXrDD7WGld89epV+/btIQBnz55N1XlqTAofmzRp4rrT
u0wH5Bk/MnfuXFjWrVu3ypYtix1T74ubKRCrLzt27KiRMQwvjWzRxu7YsQOC
hIeC5jljhO/evevm5gZtNu76cV4eHh6avcTFNDqaYnEDTyoiEkRtn+agRwZI
4IULF8qVK5dXB3HgI7xOcx3u2rBhQ7sOIYKEDB06NDk5GZsDuRX5XZmbrEUv
0BfFixfXzwxiZCy25507d0JDQ7ES/O/YlChUrXDhwsYPQEEdIFG0ld72mlh+
QkUehQoY4YpQI/0u+qlpEj59+vSHDx9u27btm2++Sb9uaRBckVfbSAKxt9Fs
4ODBg3ny5Pnwww8tLtsRJ0ViiOxKKBU71vJDkYes4YpUsG3btnBdZSsDa+DO
27dvo+CZPssj8a+CWVxRjNEh+cSwWWEZrxGuePr06YIFC5YsWVKZ7LMxbyhg
49yWa9euwTxbtGiBeVF7alqmU6dO7u7u6e42k3WAFfrqq6+U+SOxpSECQN1t
p4HhWXAExidP7YUQxTZt2hhf33rp0qXly5dD29I1wraB48PhLlq0yKB402jQ
Hv10uVhRZXG8MTVtL47KlStDyRzYCi+zJNCsOWgI7eDBg5VktgMHDuCv8Z7W
vD8tDHPw9fUdMGBAWFiY6zZbwKYVLVr0+vXrBu/HPsycOfPEiRNEW445dIIy
/fmkNiB2kieysyicGV9+G6CEKOPRo0dN3xzM3kazBmWdpvp4QQViVCRnzpzK
zjbGgSno27cvXikuLk7NFXkjhoVoix60PcNF1wQFBeGzTFz6JCFhBGZxxbNn
zxYqVKhq1arqMz4yEelyRdQzJCSESqkTuW3MGwrYPuOPyJ3QHs6M5xKn8S5d
urRhw4atW7d23oIpwPVDlohPPzAGzBElOXTokMHnizS/CRMmqCcQIVr0b758
+Y4cOaL/CY0JH+vduzcF4x7jwwX2gp7q2bNn8+bNjZ/ECun64osvpk6d6qRp
pQdpRuVcsHQhOCFOR+NtUZCyZctanBMEUVFRiF9AQIBj+6VkjARqYApXTExM
HDhwoDrZDDmn5AjwuHHj9K3x9u1b6oifff36NZEdsQxk2OEFXLbBW2hJfYaD
NUADgoOD8el2zVEqEHsyQ/U1655sAMMFf7A4YZqa4eVPF5gX9JFo1MRRBQca
zRpgg/369VOvFFPj7t27FStWRLUdE3jEFb+Do6R5RQYUyv75559zZcuWLUa0
XhxVya/kuKJERsIUrpiSktKrVy98HJFdVhhUTDXAFcVZ1UAzCGZx3lCBkfOg
IQk4aChT/vz5582bx4vMbRMsOYUcPXq0n2EEBgZaq5EGFHXfvn0+Pj6a8UN4
Y8eOHcU6IBtrFUWameu4IuZx/Pjx1uaGLOLhw4dNmjRZt26dk72AO0acDh48
qCnPt99+O3bsWH9/f2pN9ZWhkh9++AHPNWPGDNzimDFj8I9ijILylC9fvkqV
KvpxMOQK0lWzZk316jC4JQ9XNtBG16iL7ZWSrpZADZznitSuf//+moX2lBln
TUxUoUIF/UlGsbGxgwYNUl765MmTWrVqwS1dkebBu5Dqw4cPG7xfjMMPHjxY
ibYIpaEfrVq1Uk+hYnm4TS/JYlyrRo0amul7aAYG1tfXFyIH8YMZComioejl
cuXK0VwTJ06EWmta0vnym4tdu3bRU+ZuGGit0RwA1Ue0cGf6Bew09dy5c/Pm
zavuR8KW8PBw5Qr3YBMwFDaUDhPKPZRWWNRTp04ZT9zCWZcqVSrDzpCSkBBw
niuiWWhKjhw58GgmZipC9mbOnOlworJtroiLadOmTaFChTTWwNq8oQIjXDHV
ymm8WR/YWyhN3759LTKxHTt2YD+p17Vr16w9wdVcESxfvpyGNT56gITjmGyk
IhgEUT91V0cWSPv06dO7d++elJQkzowrUKDAiRMnxLdfffUVPGfEiBEvXrxA
3hAbscEdZK9Tp04EKZotIgU1Kly4sCYjC3ogDpQRH+Pi4qi+5jw7PTJSAp3k
iqhq165dT548qf+KJqpUqVK2bNn0SzBWrVqFRYqIiBAf//zzT8JV9N2sPRU1
JSxZsiQdavB+zMjAgQM1hy/v2bOnSJEiyrC8OBTJ4qJX6oIOahItCBkQm7Cw
MKwx5alevbqyky1y2K1bNyRn48aNPBYO6eXlpVYQU8pvIlCEPn36mJuGarHR
HMbKlStz5syp35Hy6tWrKCNxujpeTkxMdHd3V7Y2FeN+U6ZMsT3uxxPoUM15
0EbA/ZRB7qsjkcEwwhVxdo0bN8Yya7Y7QxdwE9h54qzZs2dbJIq3b9/Gn/r5
+cEzz507Z4NmqIHii/3iatWq5dgZo7wLKqgsOlOAJYEOValSpUKFCkR2Ggdk
bd5QgUGuKN5ucFEelnzWrFm8NDQ01JTEbMeAr588eTJdqZzSqAFCAv0Q+65Y
WySSAVzx7Nmzbm5uFqfCLeKnn37y8fFx0jGJQ2PVh54gOTgUjLbQHTHgULFi
RbFUXCQ14TLE/WKrny5duggd+frrrxEP9VAnf0RHR3t4eOAI1DIpziJUghfx
FmvLXdWwSwJRcKjXxIkTQ0JCoqKi7D3H0GGuiLtEGcuUKWNtJ5bXr1+LKLVu
3brJycnqr6BY/FYxDuJ8NBi4K7ixOBPE+G4JGJmRI0eqwxM6bv78+dgcJUVH
GF64n370SeR+q7eooh2Qnw4dOohF7ggDIoFgCDVEGBCJoKAgcf+dO3eIEdRM
z/nymwvCH+PE1SD0jabAAQNLk9auXZvoQ8088WXwc5pds0HBrl27MIyKovEH
zDzd9ft0SpMmTZBtI1srKG506dKlFEAmK0pkPGxzxTNnzqAyRFgi8y1HjhwY
pdppILDFIkG6xo4da9GqIP+HDx/GRhHnor8bNmzInz+/wT36+O2SJUtwdnBF
u07K4OGoHh5cydbjpTVq1BBlxpVDMzApERERFvfbtzZvqMA2V6SokOrixYur
cwWxG/zE4nIPHg7f4CdYMEoOeWjevHnGb64VFxf34YcfitWsoECBAsr+1QL4
cfihcgOVopXgQnp7lQFcEXqAVMyZM8fgvOrevXvT3bctXbx58wbSMnr0aMXb
imOp8eDKzrp4FuImwQZF0AH7EtIuHJmy1Q8PgZvBkfDvR48epYQDBw7EcRw/
flxTTnEWobJrIg9Xc0497JVAgOw1bdp02bJlSCOhHPxWOVLNIBzgitSLtkLB
lULC5zW5DQcOHKDkSkUQS9rQmqWiDAiev7+/K/Ybob94so3pBg2IF+Ba6iwO
qtazZ89OnToJAaCQWEJCD4sTpvQUpFedYMzf2DElVxbmwA0KG8TAoo/KVtti
Hz91rp3z5TcR1B3aZnpQrG+0VOcMLKqEVezRo8eePXtoW8IozM6iRYs045Y8
dsKECeqNQKHB7u7u1rZ5pFUHDRpUrlw5nKlatnFSFvNkNG40MjIyX758imGR
kMgwGBlXdAwoLxoBKxPyL2iYhoTYBj/csmWL8ZRs52Ft3lCBwXFFI6B2mzdv
hm+LTU7wJrBT2Mg7fZxTBnBFjCTcqX379kaSqfCSOKbt27c7+VIsP2GRul5i
j7Xly5eLj8nJyURPyjARpIuoRDl4RUwCavbBfvjwIT8PCAhYvHgx/t1iFijC
j9bgrcRHsdw1PDzcrPzDW7duVa1aNTQ0VBQM8W7ZsqW9qwNM34vbXqCtnTt3
hny6bk8qaHyFChUMTosgJ6NGjVKz1sePH2NmxYZLQvE9PT2tWTY4IYGGMmRK
10As4f9Kgp9g0eLnYicWomAlxxV2BLHUEH4ny28iqBfxjulLIDWNlmqGgcXC
oBFTpkyZOXPm/v37La7axhfAP4cNGyaai//5mytmjfs570YlJEyBi7giPhrF
JLxS0io2bNjg4eFhV5YFD1m4cOGdO3fMLZs12J43FDCRK+Jb69Sp07Nnz6yw
HaVZyACumJpGTmA4RgacxXYxTh7ijJVeunQpJEo90hITE0NNFY988uRJbDgV
xx1fuHDh/PnzWHjFm8MJudnIrnQarF69mscq4/YnTpzgY2xs7NWrV53fAAf9
gr6WLl3a4Lona4DD9OvXz/jBuOYiJSWF4K5Xr14uHZBH5Vu1amVtUxo1xAYL
8+fPV99JZEHHoR18K1Z2WFuyDT+B96q38aSbYG5KZqNIh6hVq9aTJ08gjfwP
k1HGDEU2LFxF0x1Olt9EnDp1qkePHuZOoeobLTWjDCxRJFGhEjPiO+rXrz9+
/Hj+iI6Odmw3AwWmuFEJCVPgIq6Ipnz00Uft27dXJt18fHzs2uokNW2sJiws
zJRcZSOwPW8oYCJXFLs7QkKcf1TWQcZwRWj86NGj6al0TTFheJs2bZxkEQgG
vjgqKkp9MSEhQRlpxPF99tlnpUqVwoYvWbIEIvfw4UPkX6xA4WKNGjXmzZtn
r+MQyYp4IjHQh9R169ZNrHOJiIhwfhNLRcIzTMVMB5IAsUESxCAzNbJ9oLAz
2L9/P7qfbvo0wkA3qYf1lGRFggjI+bBhw2ycgorMIDma3TUJGZRBM/q9UqVK
hLGPHj2aMWMGr4OTYFoxubxo06ZNlStXthiVOFx+EyGaQsmpMAsWGy1jDKw4
Zl2kX1KpZcuW5c6de+PGjQSPmtxjB2DNjcpkRYmMh4u4IjTP09NTmXQTS8PG
jh3LH3v27DHiNPkhFtLiefcugpF5QxO5Ita4SJEimjPXeFcW2XTIMWQMV0xN
W+eLzUx3/7f169cPHz7cmdk0umPVqlX9+/fXTHnTU2vXru3SpQskkNgfJolV
nzBhwqJFi6Ar/Iorffr04SP/b9++3QHnKJIVCxcu3LVr14ULF8KItmzZgh7x
x+LFi+1dgWLt+SNHjlTrIyV/V1Kh6FaYwIIFC0RT8HHWrFmu298Vfz106FBl
NtAakMwWLVqoi0HBvL29IXuzZ8/G0tr4OTJG0IFcae7B4MAw/fz8IMbBwcH0
vlhpK45y5lfjxo0bP378zJkz+bm1vWgcLr+JePv27YABA3bs2GHiM601WgYY
WJGsCDmsW7dueHh4UFDQihUrBg4c2LdvX3rH+RNR9W6U4I43GnejEhJmwUVc
MSUlpUePHpBD5FkcApInT55169adOnUK921EWy9evIh/dN4hGoeReUMTueLj
x4+xMOrlivHx8dh8x9Z9ZxEcPnzYrn2/nQHWctCgQTZCbGQvICBgw4YNzrzl
+vXrnTt3tjZL+/r1a7yqMNr4wSdPnqhlGy+GtXfYNyGKRCt79+7FNfAWZXkL
EmKKv4PDjB49Wlmek5rGSaZOnZruhjxZASJBhXgBfhgWFgZN8vHx6dmzp0un
wu/duwdvtx2hoAJQMgfmPelT7KSvr6+1YV5xxLb4m2pq1p7wVbp1d2n5jYAq
oE3Ob5etwEajZYCBxfgggSNGjOCPu3fvijKgp9gBUzyX3o3mzZt306ZNp0+f
NuhGJSTMAlyxdOnSYjxEv4eMM8AitW3bllCagHflypW49T59+hBt2Zh/USPj
FcHGvCGKD0ukiagFkZ0pXDE1beqkQ4cOvGXJkiUTJ07E5b2jRJHO2rlzJ/1b
vXr1Dz74gP/529zRAz3oGvh8SEiItWlHrOv+/fud2ZuX3w4ZMkTkxmc8Vq9e
XbZsWQcO+zMO/Km3tzcOlHdNmzYNIczIpWTOAH3MnTu35ogia3vvmIjvv/9+
4MCBNowYds+xVNLjx4/DOly9DYLrym8Ez58/j46ONrGPbDeaqw1sYmKih4eH
k9GobTjpRiUkzMKzZ88IysS583hec6ef/vrrrwcPHojJOxFtuS6byHnYmDck
vps+fXq3NISGhpq4VJlXPHr0yKyRon8bxLEprpt2xGkaP0XXXKA7gwcPbt26
tYvOzlDjxYsXxIwuWvf6/uHGjRtnzpwx/TCmAwcOZMz6IFeUP1NgpNFcamDh
vW5ubpotfE3Hu+VGJST+JXBy3lBCwhTgDqZNm7Z161YpihISWRMxMTHKuioJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQmJfwn+
/vtvuYO6hISEA8B0iJOFrX2bkYWRkHhf8eeffyYlJcXHx79+/Vr/7YsXLxIS
EuRRqhKuALK3devWxo0b58qVK0+ePN27d7948aLatj9//nzy5Mnr1q2TBh/1
vH37dmJiot4twrSTk5NR4d9//z1TyiYhkSm4fPlynz59ihQpki1btrp1627e
vFl9mCOaEhUVNWbMmFevXmViISUksjJwK9OmTbt7967mekpKSkRExKFDh4Tz
xcts377dy8sLdbt06ZLmZijisGHD8ubN6+PjYyNwcxg88+rVq3FxcT/++KMr
nm8DsBRoycmTJ2/cuJGR75VQQISCnR88ePDRo0fphW3btrVo0SJ79uydO3fe
sGFDbGzsnDlzmjVrFhkZmcGykWFABw8ePLhw4cI//vhD8xWaGxIScufOHfHx
5cuXwcHBJUqUoIn0jo8G5Hru3LkPHDiQEeV2AlLlJUzB27dvw8PDW7duDT+k
Q48dO4aTIt709PScP38+1mPjxo1YEj8/P+LNzC6shETWRXR0dL169eLj4zXX
oX8NGjRYvXq1MlADXQwMDKxTp87Tp0/1z0EN3d3d0TtXFPK3336rWbNmo0aN
pkyZoneXLsWzZ89GjhxJrTt06JCR731XIEabr1+/7qJ+gfwEBARActQDhogi
V+iR4sWLf/jhh9zw4MED/W/fm2E0GhkHN2DAAP2Q/u7du9FfCJVyBYn96KOP
JkyYQPX1j1q1alXZsmUVbpllIVX+3wCUmo5OSEj45ZdfXPT89evXL1q0SCNC
yD/ksHz58qVLl+7Xrx8hiX4+4r2xHhISGQz8VKtWrby9vf/66y/9tzt27HBz
c1P7LBOBPeHVP//8sysebgQwk759+2bW27MsMKfbtm2Dq1gcbc50vEPDaCbi
ypUrJUuW3Llzp/4rNBf9bd269Zs3b0x/L952//79oaGhR44c+eGHHw4dOjRz
5kz+cOxpUuUdwO3btwnnd+3adfHixVOnTkVERGzatMliyJBFABPr3bt3zpw5
58yZk9WyR/6d1kNCwnlgiMqUKbNq1Sr9V//973/Hjx//8ccfE5K74tXScWRZ
4ImmTJni5eVlcbQ50/GuDKOZiMjISHd3d4vzp7/++mvt2rWDg4NdwR945owZ
Mz74B/nz5w8LC3v79q1jT5Mq7wDOnTtXqFAh0f7ZsmXr1q1b1k8gj4uLc3Nz
O3bsWGYXxAL+hdZDQkKPxMTEoDTcu3dPff3mzZuzZ88ePnz4t99+q4719u3b
V6JEie+++46/L1y44O/vP2HCBPHbly9fNm3a1EXJiqnScWRhvHnzpk2bNkOG
DLE42py5cOkwWsYAAhYTEzNu3Lhly5alpKSor3/zzTeBgYGooXr+HQUcMWIE
yohK/uc//9m4ceOoUaOUOTiUFxXev3+/i4q6ZMmS9evX7969G9PhZNgoVd4B
0L9Tp079+uuvsdWE9lltpE4PSrhw4cLKlSsnJSVldlm0eA+sh4SE83jy5Mm0
adPu37/fsWPHiRMnKuMMCQkJXMdQr1mzpk6dOr/++qu4LoaPatWqlZycvGfP
npUrV8bGxhYvXnzt2rWp/yQrbtiwwcYbMQvHjx/HwTlgwbKg4yAQ1nBpV8CZ
RrMNs8pP0E3oLcQgq8Glw2gZgxMnTixfvvzatWvly5dHCMVFem379u2wMrxY
165dx44dq8RoIlkRbvn8+fP58+fTxTNmzChVqpTQHdSWzoJF2Hjj27dvIyMj
HRhLoZEp6vnz5+2vpQVIlXfgRXBFYooMkHbCk3Xr1jmfR0o406dPn27dujk8
/uw6vAfWQ0JCDcIfTdq/5gb1WN//0pCall546NChe/fuEdMtWbJEXERzZ8+e
ffPmTR4CY0RTFK4okhXR69WrVxO0csPdu3cXL14M5+RbPFfJkiWvXr1qo5wH
Dhzw8fFxLE9Y7zjE6jZKotQLM37w4EHHLPnZs2f79evHK5QHpqbl0owaNUok
Xesdx6tXr3x9fXfv3u1S3+FMo9mGM+VHGBADfo4hXbFihZubm7VkRXxKYGBg
27Zt27Rp07JlSwTm5cuXDpcZUdeIN4XnorXRbJcOo9kF/cZumo/coK6a+Btf
HBoampSUtG3bNg8PDxij+Ba1hQHyLYSwQYMG48ePV56GDlJl2hntIILjscR0
W7Zs+fPPP2mogQMHIuQW97wSQK2CgoLoXAf8o+CKp0+fRhh27tyJ+jgzyyBV
3oHfIvBLly6F5xPOx8XFuW5ATKwZCQgIcIAuIid0HAGOv78/gl2tWjVryYop
KSkEoZ07d27Xrl2zZs3GjBmDb3K4zP9Ng/6itQmRrGM9JCScx8mTJ+vVq5cn
Tx4lTcjT0/PChQvqG0qVKiW+ypEjB4q5d+/e1DTDi46sWbOmbNmyiYmJyv3C
vIiJxQEDBuBixPXbt2/jrQoWLDhp0iTNmjXUbdy4cbaTFXEfHTp00O/MYxB6
x0GZ3d3dsVfiI6+mAFOmTHE4BsS6FilS5MiRI+KjqJSy6NvihBROvEuXLmJS
3hVwstHShWPlh/516tQpLCwMN5GQkIBE1a1b12KyIrL3+eef83zRKcQdgwcP
btiwoWODRXjPYcOGVaxYMWfOnIq0I5D00caNGy36GiPDaBkAZAlvWL58+ezZ
s4tiU4VevXope3TQPnDCXLlyiW/z5cuHtIvsjpQ0dOvWrXv37opf5oHib9gj
RB2Hq7wrMjKSt1SoUIFgUOPHaf9atWpBBa3piJhExiM7NsjDz+fOnduzZ0/K
g+iOHj160KBBDmexSpV3AOfPnyci+/LLLy9evPjVV181b95c7QvMBa4Brrho
0SK72h/Rmj59OsJMS+JlkBCkXRkwV+PJkycjR47ctGmTEGNeh7dCsKOjox3g
6hRy1apVyH+BAgUU64HGVa5cGf5vMXrKItZDQsJE4FaqVKmC8OOa9XYeY4hL
9fPze/Tokfo6CiIIoXpXUgGMFWqyfPly5QrhFUEWeoo74KvNmzcrCosTb9q0
KXptbRjh5cuXGIeoqCiHK6h3HLt27aI8yipL/ihZsiQhv2PPpy7z58/HECmp
X/fv34cFwYhENa0lL/FGwt4XL1449l4bcL7RjMDe8iMzlAp3Jqzrq1evPvnk
ExigPjZPTk4eNWqUJrUe2kMztmvXzpnRRX7brFkzpB2faMNrGBlGy2DA33Kn
Qc3uBMTqMERaP7V35coVwr2tW7fqH4gn5SsYu/IQ1LBRo0aIK3pdu3Zt9QqX
dMdJICqwC2cy+eGuSo9DTb28vCZPnuzY6KJUeQcAy1X2qKfZJ0yYAJ1W5oZM
B03XokUL43SUgkHASpcuLbbL4CPepFKlSvpkRZR39uzZBw8e1PycUAjv48yW
CzyEJ2M9INU2LEMWtB4S/2YQ7JgyvchzgoKCkP/69etjY9Vf8XwIJBqqt9hn
z57F9u7btw8Oqey5LXDgwAG+UlKPxPNxPdgi4rtuaYBhnjhxAlaJq8JhocVQ
Vn2aDR/Xrl3btm1bZ2qqcRyUBzOorixBtLu7u3qA1C5Ql549e3bq1Em4aQxF
YGDgRx99JGbYU607DsgSjgNSbe60lCmNZgT2lh85yZ8/v5KdSNCN6Sbe19+J
yGXLlk0fQRw+fLhw4cIWd3QxCDqLMvNw25t5pjuMZhzEX+p1JQ5DDIWhp0iX
plSXL1+GgePoNT8Ri4urV6+OPz19+rRCC1PTyABsvEmTJoqQiOfDOfkVlA+t
XL9+PYXfu3cvgr1ixYoyZcqgRMeOHbt165bmRYLGw5TMys4S3rZixYqOLVuQ
Ku88iE3y5s0LxzbrgRpQ5gULFtCMBgkVbVuzZk1lhJwu6NWrV9euXfXjG8g5
gQDU/fHjx+rrv/zyy4cffkhwqkx4OQDaGR2k2DYeYqL1kJBwHleuXGnXrp0p
m40QqcHucuXKFR0drVx88+bNuHHjtmzZojdrQs09PT0hitA89ZYFaMfUqVNR
SWWuWSQrDho0CIuKmuPUfHx8nj9/jhfDdMMYPTw8zp07t2nTpuPHj2texG3N
mjWzSCeMQ+M4CMCbN28+bNgwMZzF//zNFYdPaMIiYZeIN0U+5+bNm2kZteO2
sSiS1sOFmbuXrCmNZhDGyy82Yy9evPhPP/0krhBTYNL1DEcMICCQPFwjewQU
pUuX7t+/vxFrTyQyZMgQb2/vI0eOKM+xyBURS9w3ricgIEAMWpqVbiQ0xZm5
TvWjFi9eTMmrVKmiXrx848aNfv36qXmgAlQYyYcTIhIhISEKk0lNE5IGDRr4
+/urkxXpDhhCapq3pZ3pIC5GRESgI5MnT4ZYou8zZ87UdzdEFJl3mHqlpg1L
YiKUpEoxyFmsWDFFWuyCVHl78eLFizFjxmCEFU1B+HPnzr106VKTymgBdBCB
DAGgkZvj4uIKFCigTFclJyfz2/DwcL17wp1VqlQJxdekXGI0evfuXa5cufv3
76f7OmwC/YtNWLJkifo5eq4o1hPxOtRQjHnKZEWJLIXvv//+008/NWWOAAc6
YMAAVKBLly5iDIRgLTg4GONjzcfB8fAdOCCUVz0NrU9WTEpKQqmxkKlparVu
3boWLVrgelAlPuK/OnbsiDsLDQ3VB5h4q6pVqzqZ9aFxHHg0Nzc3xeY8e/YM
0z1+/Hj+gCo7MOeFEcMyQEhoK8Lwhg0b4jrVN9hwHPAZnI6aojsPUxrNIIyX
XwxkKQldtBUCVrduXZwmBTYoxsJH018G91QhnsI1FC5c+MyZM+KKniuKnTe4
grdVBiJsD6MZBw+fM2fOF198Ycp+ULR2hQoVsmfPDpcWLhLyjK5dvnzZ4v28
FGrXvXv3oKAgpFT9FU4NZqiezqYTK1euLCqLFnunYeLEiUKQaIdGjRqhtvxE
452hXvRsnz599OkoxrF69eoiRYrExsaKj1gPHqgfGjIIqfL24ubNmzTRpEmT
lNaAN+bNm1e9eMd0IDDEfQqHt42YmJiiRYt+++234uPJkycpMO1MfGFwIlsE
IPnz58d5Gbn/999/hxPiFmfMmKH4QT1XRPsIgSmbMmZilvWQkDAFJnLF1LS8
xHz58uFVz507hxaEhYUtXrzYthWFT+qnPMQuKCiLcgXPQtCq9i9YcvUPxVFN
Fpdg+/r6wiSdnMLTOA5se65cub766qvUNMaybNkywmeYA8bH2jIHG1Ayl7BX
UALsnn4DWxuOg+gVfj5w4EBnpkXUMKvRDMKu8sMH6tWrJ0ZU4uPjif0J85OT
kzHFNkZ41Ev1aVu4H5TGIIUQ3gHbPm3aNCFgeq5IFdq3b58jRw6co7jCnbaH
0YzDXK4oFlBQHcqGTtF0gwcPRmFt/4o79fN0VN/d3V09GkkPqhNBaQQaWd2t
NJ3FRDsxOYgeOVKlf4A8zJ49Wykn2gr5+fLLLx0bj5Uqby+I06dPn65slktH
EIO0a9fO1Xks2ISKFStaPGRTA2S1SpUq33zzTWraVP5nn33m4eEBPV6yZImN
PTToboWI8geVQhL27NljsHhicLVBgwbKUjI9VyQG4QqhjbhiovWQkDAF5nJF
3ESLFi2QebH7LlzRuCkT+xgcPHiQPzDIcEXHZo40ePr0qZeX19SpU635CywM
5cRd4lP07YCnEHMHaschMpdQ/7p164aHhwcFBUFrsdsY9ilTpmiSo7j5zJkz
48ePh2/gbjQNwscbN2783//9n7e3NxQIT/fjjz9a9Ds2HIfIKKtVq5ZZ/WhW
oxmEXeVHxnCsfn5+ISEhwcHBBCNiLaoymqQGQQeOGBY3dOjQ0aNHcz+9g1Mg
fvf09FRPp9qAoGpItbLdt54rilGmAgUKqEfebAyj2QVzuWJqmtYXKVIkb968
MFvE0uIiUGuAD2zYsAGhha706tWrW7dupgQUlMHNzU0zsKbAiBJxDw21e/du
dBMyEBUVhWVDrvTFc7XK8/PNmzcPHz48ICBAf8Igj4UWim2W3z+VpyPGjBmz
devWI0eOoHSIh35JtZH2savwZ8+eRXgEA7QNagdPg2bPmzePciIk4uByvJV+
QJtyQuE6deoEhfP398eAEBeIbCgkISYmxmDxLl26hLoR1SpLOzVcUaTWcEWd
Z2KW9ZCQMAXmcsXUtHzvHDlyEHZNnDjRro0vxL6jGBB0pE6dOuplzs7g+vXr
JUqU2LJli/4rno8aosXq3X7Uyx6xWqGhoWK0Su04uNK8efMRI0bwB5ZQOCN0
HO6h8WIYFqJ1SIXyCiqoXmSKB1y/fr2Rmto+xGH79u3FihUz60BksxrNOOwt
P4G2IrQvXrzQD1xAq8QGF6tXr1bGBG7fvk2QDtVBPrHDxleSQgyoKY5P9K+e
K1KemjVrFi5cGIVS/9DaMJpdMJ0rIoE9evSgRiVLlrT3qFk4AEwbGYAzNGjQ
wGKKowOIiIgoU6aMxRwwe5UI2kPI+fXXXycnJ2selQEqD1mCASrPz5cvH7Kt
lE0MSF65csVIm7yjKo/Zh7xB6Qn29RJrYvsogMeWK1fO+IHOSBQ/EWWjtHSi
/oeQWMgz3FhZykSn8woYaeXKlQsVKpTuULwCqkxPoWvKAn8NV6QkEFGuiORV
5YemWA8JCVNgOlckdKpevTqGfcGCBXaRPW7G5hMsi724zSoPXgPXZnHkJDY2
1sPDw8/PLy4u7tq1a1ALQj9iYcX4Y+7EVpCp/6/jSExM5Ie2z4hJTZutICqs
WLHi4sWLL1++fP78eeJoCqOsCsTfzZo1y+BWZrYdB1XgyWblBZnVaMZhbvmx
vfPmzStQoEBUVJRaCPlbDDdhlr29vY2fCYgPJQJq166dsnxSwxWTkpLgpXhb
E0VXXWxzuWJq2nGZuXPnxoVZS1O0Blpg69atgYGBRIVmzS1SLyTK4iaZ5iqR
q1Ue1tGwYcOWLVtGR0fDvtCjDh06VKtWTZke5WnYN4M5me+fypvbPgrEUUEw
ebMUBB7o7u4+ZMgQzeZRsL7+/fvnzZsXZTc++EkERBykXmOl4YpikJkrBLam
lF9CwnSYzhVjYmLKli1rcfOcTEFkZCQ2UD/TgXnp06ePZuISS9WmTRuxI9zz
58+DgoKUKqgdB4bOzc3N9hkxqWnrOnv37q3eUlJE6AMHDhQmCMeHBzSYTGXb
ccTHx1PNlStXGnlUapp3xm7zK4vrO8xqNOOwt/y2ceDAgfz58w8fPlyfAiEW
QiKfylFBRkAUU7BgQUWk9VxRzGsri27Mhelc8e3btxCwfPnyWdw8J+NBN3Xv
3v2TTz7RD0ebqESuVnnKEBYWRrSrpjoUctSoUWJxMTcsXbpUWSGVLt4zlTe9
fRSkpKRQHminKef0EffVrl27evXq+gRIZcuptm3bGk+zefHiRYMGDdTLYTRc
UWw1gD4qi24kJDILGNjff//9Fx2OHDnSuHFj4h3NddijA8czHT9+nOBOzFLl
zp3b4V1qTcSyZcssbpqB8bfIFvD+YpcV+IZ6qx+MIVTB398/Kipqz549EydO
tN0+GAHcsX4vF2zj+PHjExISuGHWrFlGpvBev369atUqAs+uXbtauwfrXaJE
iXnz5hnkP/QUrjlXrlwW+8isRjMOe8tvA9jzRo0aYZnVuzApEFwR+bRrngt1
qFu3Lr8SbEHPFTds2JAjRw4fHx/jY5UWwc+RNI0y4uKDg4NxqY8fP9Z8BTW1
940IHsxz0aJFYkPgqlWrOrb9oIlAKdqlQTOMY6ISpbpe5e/fv+/r66sfa01M
TBw3bhx8Bu4xbdo0I+md76XKm9g+GqCPnTp1shhr2Av46vTp09GLgIAAfQAi
BjDT3YRfA7EnOb9S5to0XPH27dtlypSBnTq2YF9CwkRcuHChXLlyeXUQp3rB
6zTXiXEaNmxoMPlfgAB/6NChycnJWPLevXuL/C7nz3Z3BigmSl28eHH9zCD+
RVmVpsadO3dCQ0NfvnzJ/2rNJWLdtGkTjgnHYWTBDuYLNmLRj+/YsWP//v1Y
SOy8EUcvHAee3cZ80927d93c3DTpLrZBLO/h4aHfjcHERjMOB8pvDQcPHsyT
J496c041xAl0LVu2tMutiG0J+aHY+ELDFemgtm3bFilSJN0hESQHYnb9+nWL
eiGOqCtUqJBeT7OnQX8d3guHMT7eyJ24ft5CSej6smXLQnEzfeaLBqRHOnbs
qBkXMlGJUl2v8gQUFvc2oRbQj4cPH27bts3I+ovU91TlTWwfDcTpDE2bNnXm
MCYBXF6NGjXQLIsbNkLq3N3diRntzdxAjOmsxo0bi/xDNVek8QncMCYzZ860
PTxu23pISLgUZs1BowuDBw9WBu0JNvHXeE9r55aiIFevXg0PDyeQHDt2LIrp
5ICMNRAvo9rol8H7sTbo7IkTJ3CpLpqbu3Tp0vLly7HbDsy2WANGGFOPzTHo
OGhtiL21SDzjG83e8lsDb580aZJ6zbIaXOF6zpw5lZ1tjIOG6tu3b7FixeLi
4tRckTdSbKItCJhtzsadeMN69eqhF3YtSTBrDlrsMKBMAootDWmrZs2aGck8
hJuhsCbmTCoQ44pt2rQxPqZkohK5WuXpPsp59OhRcXCAWY9911VegfPtI8YV
W7du7cBcmAbHjx/Pnz9/5cqVLQ62R0dH58qV67PPPrN3slvUEZ9Io9ERaq6I
Cy5dujTBpu3tXh22HhISpsAUrkh0P3DgQPWBC4SiDRs2RB3GjRtn0bngd4KC
gsS+2T/++GO5cuUCAgKc2YbXGvDm2ED9NJY1UIbg4GDKZu9aPOMgOMXvT506
1fkZEwW0IdVUTr5LF9hkzA60yqKdz/hGs7f81oAd7tevH4Jncae+u3fvVqxY
kYo7JvCIa0hISNWqValpgwYNxETV559/zpUtW7YYIVG09pQpU7y8vOxKazSF
K4o0vwkTJqj9KUSrUKFC+fLlO3LkiO2fw0wqVaokDk5yuAzWgMfEbzZv3tz4
uJCJSpQBKk/LU1SIuombn7zrKq+Gk+0j8v0I35z3IJREvYpNDR6OmytQoIBd
e0wpoNnxenXq1CHkFDFaixYtwsLCsEjjx483st7ZMeshIWEKnOeK+N/+/ftr
xuRReZx19uzZK1SooF+iKFLZS5UqJaY8+Ni1a1cPDw+DixntQmxsLDbQ4AlQ
qf8MtgwePNj5ENUaHj582KRJk3Xr1pnoOAiHixUrpjnpXmxZOXbsWH9//2++
+QY+oITtP/zwQ4kSJQjkMdFjxozBQqo5gPONhkTx3jZt2gQGBioGHLcOudIf
wmit/A6AksBniP31CzNp7blz52pOkXj79m14eLhyhXvEJp82uobqcE+NGjWw
9gMGDDh16pTxQQZxIJHFMU8bcJ4r8gTq6OPjoxk/pDwdO3YUFbHhZ1NSUmAF
VapUcRFXRFBxl9bSBizCRCXKAJUXx7KYsmGsgqym8s5A0z7I+YoVK7p06YJf
UOaqxDGI8+bN02uBoMF+fn7OD3rv2LEjZ86cw4cP1z8KIk0TUWt1QgItRpMq
FgAXtmbNGhttQi1u3LgB50TpatasScWNO1/HrIeEhClwkismJCSgzidPntR/
df/+/UqVKmXLlk2fGi08MtfFuCL/Uwa7PIVdJSxZsqQ4bcEIUEMU2aXnINMy
GEaxitAsbNmyBUcQHx+vXMF8TZ8+HU6elJQkTlsjIlYW4tEgMPkRI0YQz9L7
zZo1U2+tZkqjYeSrV6+uHljGc+HdLK7105ffYaxcuRJrr98p7urVq6VLlx49
erSaFCUmJrq7u69fv158FOsc0z15Wcx5ac6DNgJxIJG9w6dOckUxe9W3b1+L
+oVzhFrT+Moxyvq3R0VFbd26tW3bti7iiqlp51YQPKp37bMNE5UoA1QeaezT
p4+5aWZZUOWdqYumfVAxiqrebFxswIsW6HVTbEoTERHhfEloBzc3N5RFk6FK
nAt3pQDqLUBp8M6dO/fo0UOYFDHuhwFJ9/BQ2k1zbosROGY9JCRMgcNcEe3A
AaGhyrFEGsAA27Vrh0bUrVtXvymuGqdPny5evDjOwhW702MYGzVqNH78eIN+
NiUlZeTIkeYSOQ0In318fEx0HOJY5I8++kixUbQklAlqJI6hF0NqFStWFEk4
Im1PsWlimBdLqETHpjTa5cuX8WVQEfERgeGln3zyiT41Tl9+BZjuWbNmTZo0
KTQ01FruqwaPHj3CpPfq1Uud/Hb79u369et//vnnmuPCiesppLJVCH/gMdNd
v0/7NGnSBNk2sgqVN65evdrX15c6rlixAk9kb7qRM1wR1Z48eXLevHk3b95s
8QYkhBagLjzfIg+EjYSHh1Nl1Nl1XFEcvZHuVLgCE5UoA1QeATBOw4wga6q8
w9C3jxhAUMvbzp07CessGoFTp04RaOgPaKZSq1atmjhxYkhIiMEFStzj7+8P
JVNXjcoSY9asWVMzMkzb0sKKEYBPYt/SHfej72bOnInGUcF0Myictx4SEqbA
Aa749OnTrl27FipUSGy8ny1bNoy2ZgLrwIED+Fxlc37C2wYNGggjpoCfoP4o
Jp4dR+aKnPnUtOkMXmF8OwXUHxvo0gNM9+7du3DhQhOJ8Zs3b/DjWDOlDcXp
urgDZe9ouBO9JlyDmLLBhIoI/fnz5/SOOkXHlEaLjIzEtism9+jRo0QWFtc5
6sufmubd8H2NGzfGO1DOdevWNW/e3GCiDub0ww8/JN7fs2cP78VT1KpVa9Gi
RZqlE+LgNvVGoDgsyqzOvFWDCuK8ypUrlyNHDrVs16hRw9pk6IMHDzp16hQW
FkbbwnurVatmccdp23CMK8bFxdEIYqMDUU5l/2oB3CLPVG5AkSGNeDp1p798
+XLGjBnUQiw/cR1X/OWXX+gj40dvmKhErlZ5Woxgx2CkYxBZU+Udg8X2EdvI
KLtHIh4NGzZEW/XihwxEREQgPJpdO3hg06ZNly1bxk+uXbsGTza4eyGNM2DA
AHQHknby5Mm1a9cSGBJm6g8V4oGojMJRb9265eHhYW1XAVp++fLlnp6eYl9T
gZw5c5YvX3748OGaGFbAFOshIWEKTN+L2zjQ8cePH1+9ehVXjh2DRbjo1Mvj
x49XqFDB2hSbBhRj1KhRrksIwSZjGLdv327iM+E2VapUUdMwsYsgpkl8TE5O
rl69OjZHtDBNQXwKURffiuknzeSOk41GNXElyi4WlJCIAJNucW5XX36Rm1Sq
VKmzZ8+mpjm+MWPG4BmNjyPhTHfv3j1lyhRC+P3791tcX0nZ4J/Dhg0TJed/
/uaKWWuOsP/47g4dOghHIIYdBg8ebK90ueLcFiMQFF2M9bmaK/KuyZMnt2/f
3kj+m7lK5GqVh+cgBvqNnZ1BFlR5h2GxfdBZaJggkIR4UDXusbgARBxYqVlE
CW2rWrVqaGioqCCmoGXLlsYzHPgVr549e3ZgYOCGDRtu3ryp901coXnpBWWj
eCJTymx8fZBtmGU9JCRMwU8//dSvX7/MPXTyzz//HDFiRPHixTVn6ZoFKEGr
Vq3mzp2bLhfFREBc58+f77qz2glaCRVNnEegqEuXLsUSqmP8mJiYokWLKnE0
0TFGDPOOI7hw4cL58+fLlSsnbBo/x79wMxfVj3Wy0cSmtWJKC7/WunXrL7/8
0qKVs1h+gpc6der07NnTlIMYrIGC4UAV90qZ69evT5n5Izo62nlidujQofz5
8yv5Rbdv3y5btqwDKV5iw43w8PAMPmAFCVm0aJGYuXM1V0xNi1vx70ZUw0Ql
ygCVP3XqFGTGxE0PsqbKOwx9+4jEP6JL7ABMCU7bp08fa9ns8fHxnp6e1FG5
gubyk9KlS1vcztEsiGRFohsRwFJmiCVlfvLkyb59+5wffjHLekhIvLsQK0nV
q57Xr1+fLVs21x03RpTarFmzdNfOYK+6devm0oOWfvjhhzZt2pg4j/Dbb78R
b0ZFRakvJiQkKMMOVOqzzz4Tq86XLFly9erVhw8fQuTi4uL4los1atSwuLrQ
mUa7cuVKyZIlCcnXrVuHRT127Jg1t2Kx/KdPny5YsCAO0UgLOIxdu3blypVL
JEoheMuWLcudO/fGjRvxs/zv/E6PyDMRkJLjJBIzzBp2cDXevHkzcOBAPz+/
6WkICgqqWLEiosLfOHdXvBFSOnr0aCNbi5uoRK5WeaQITjV58mQTLVvWVHnH
YLF9xN7sAwYMQBMJGBcuXGgtZuRXU6dOHTJkiPoGZYbdgSNgjEMkK3bt2lXk
X12+fBkuJ86jDA0NtTinbBzvuvWQkDAFMAcipu7duyvJxps2bcqePXu6608d
BqHf0KFDIyIibBOAn3/+uUWLFubOFmkAKx4+fLhZgzNUZ9WqVf3799fM3NGM
BKRdunTBI4wZMwa3gqeYMGHCokWLsGxiZSuhOh/5f/v27Rab3ZlG45nE9WPH
jv36669tbMZirfy4oSJFiuC5NJUycfBHJCtCDuvWrRseHg4XWrFiBeyob9++
yKHzx97hiEeNGqWcEC0WI/AuHDFmP1OyPuwCTf3kyZP7/wC+UbNmzR49ety5
c8f50zGsAVlq3rx5ulv2mahErlZ5OAycR1nh5TyyrMo7Bovtw5OrVasGS1yz
Zo1t4nr9+nXIrWbJCRqH3o0cOVJNhqmRuc4FG5UvXz744bhx4zAgxFBwWjgq
1sN5Fv2uWw8JCVOQmJjYtGlTJSUYUzZs2DAlO8VFuHfvHjGgbTd0+PBhTKXr
5j2xAAEBARs2bDDrgZjKzp07W5tqIbbF6gqDSaVw/WoXgK9JTk627RRc3WjW
yv/48WMMo3rCJT4+Hpts4q5Kr169gpaMGDGCP+7evSuGILDJtJJdG1nYwOrV
q+vVqyfKTPkrVarUu3dv2nzGjBkmzkhmDPBZXl5ecGlXp0vt2bNn0KBBNtrH
XCVytcrT+0i48Uy5dPGuq7wGzrQP1aEYcGBNjRDR0aNHK8t8UtOm16dOnSqG
VU0Bb4QfQmgfpkFJh37x4oVZkdT7ZD0kJBwDihYbG+vr67tu3bqTJ08GBQV5
enru3bvXdSlDAt9//z3ODtW2dgMW8ty5c64rgNi6365Ttm2A5wwZMkSs/nAd
XNdotsuPYe/QocO8efOWLFkyceLEsLAwc7ffJGDx8PAwkbfrgdcgCPLz8wsJ
CQkODl68eLHYvBHhd91LTQfEY+XKla1atcqVK1fRokVxwS4tP69bvnw5LWZt
ONpcJXK1yj9//jw6Otqs6ONdV3k9HG4fCCFsDZ2yGLwQbHp7exNdwrimTZuG
ATF39hae3KVLl169ernirDGB98N6SEg4D4K+06dPExXyv+tOTNDgxo0bZ86c
cTUpzRhgro2f3+oMXNRo6ZYfVvDo0SMooiv6Cw/l5uZ29epV05+sAeVX5oxe
vHjh0u2Y3g+Iw0dcmgryjuJdV3kTgWU4cuSI7dRW1O3+/fuuGAlPSkqqXLmy
uVufWYS0HhISEhKZiJiYmIkTJ2ZYkCIhIfHegEBmyJAhCQkJmV0QCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQm78b///c/GYRBZ
+SQLCQmJzIW0HhISWQF//vlnUlJSfHz869ev9d++ePEiISHBxjGmEhI2cPny
5T59+hQpUiRbtmx169bdvHmz+rBXXEBUVNSYMWNevXqViYXMCkD7bt++nZiY
aNEtSjWU+BdCWg8JCVcDvzNt2rS7d+9qrqekpERERBw6dEiEY3///ff27du9
vLzQx0uXLmluxjcNGzYsb968Pj4+tg8JlZDQ4O3bt+Hh4a1bt8bC37hx49ix
Y0hRnjx5PD0958+fHxsbu3Hjxs6dO/v5+T1//jyzC+sSoGIHDx5cuHDhH3/8
ofkKxQwJCblz5474+PLly+Dg4BIlSrRo0ULv+KQavqO4f//+yZMnz549azEM
dylu3bp16tSp7777Tk2u3iFI6yEhkTGIjo6uV69efHy85jp+p0GDBqtXr1aG
7qGLgYGBderUefr0qf456Km7uzuK6fISS2QgxGDy9evX9TTGFCBd69evX7Ro
keb5sCPMe/ny5UuXLt2vX7+4uDj9FBICmZycjOj+/vvvrihbhoFGxsENGDBA
TxV2796Nev7444/KlWfPnn300UcTJkyg+vpHSTV850A/jh07tlKlSn369Pn5
558z+NVLly5t2bIlMnP79m3Tn4/O/vbbbwkJCb/88ovpD091znqkykF4CQnX
AEfWqlUrb2/vv/76S//tjh073Nzc1E7NRGDHoKm7du26ePEiUXBERMSmTZss
+sp/CTB9+/fvDw0NPXLkyA8//HDo0KGZM2fyh7lvoYW3bdsGV7E4mJzpOHr0
aIsWLXLnzn3gwIHMLkvG4cqVKyVLlty5c6fFb12nhhkjcu8KTLRI/Armv2bN
GtMLaRDQuTZt2riCKxLH9e7dO2fOnHPmzMlq6YJyEF5CwkXAmJQpU2bVqlX6
r9C18ePHf/zxx8+ePXPFq8+dO1eoUKEP0pAtW7Zu3br9y4NB/MuMGTM++Af5
8+cPCwt7+/atK140ZcoULy8vi4PJmQ6ksWzZssoU7b8BkZGR7u7uN27c0H/l
UjXMMJF7J2CiRXqPuSKIi4sjeDl27JgrHu4k5CC8hIQRJCYmBqXh3r176us3
b96cPXv28OHDv/32W3UwuG/fvhIlSnz33Xf8feHCBX9/f0yc+O3Lly+bNm3q
ugCNl06dOvXrr7+mDNi0rBaiZjzwL0uWLFm/fv3u3bvpJhdRdPDmzRv8yJAh
QywOJmcuKJK3t3fr1q0pZGaXxUHQjzExMePGjVu2bFlKSor6+jfffBMYGIiW
PXjwQLmOfo0YMQJdQ+P+85//4OZGjRqlzMG5VA0zTOTeCZhokd5jrkizLFy4
sHLlyklJSaY/3Hm4dC5MQuL9wJMnT6ZNm3b//v2OHTtOnDhRmT1JSEjgOtYD
21WnTp1ff/1VXBfjS7Vq1UpOTt6zZ8/KlStjY2OLFy++du3a1H8CtA0bNth4
I3bj+PHjeEAH7CqWGWeaYZPOb9++xSdqKLSLXhQZGenAsBhNsXz58vPnz1u7
gUBeQ/UdA2UrW7as6OWsBoSzdu3awcHB7242wokTJ+jHa9eulS9f/ujRo+Ii
vbZ9+3YkEA7ctWvXsWPHKtxPJCvCLZ8/fz5//ny6eMaMGaVKlRJ5bkbU0HUi
ZyLMkl7byCIWKQtyRcKTdevWOZ+iTDjTp0+fbt26ZcHxZ1fPhUlIZDX89ddf
alunN1/qQYb/pSE1LaQ6dOgQdIigb8mSJeIiqj179uybN2/yEBgjjljhiiJZ
EcVfvXo1oTQ33L17d/HixXBOvsW1lSxZ8urVqzbKeeDAAR8fH8eWIWCZly5d
ioODpsbFxTk/jnT48GGcrGLBqAu2Wv1Y3Pdnn33monkZAd4eFBREezrgcYTj
Pn369KVLl3bu3BkfH68ZSnr16pWvr+/u3bsd8IP0NaXi59CwFStWEHpbS1bE
pwQGBrZt2xZf07JlS+Th5cuX9r5OAZKsaQoKz0Vro2RIRYkSJfbv3+/wG02E
A2qILw4NDU1KStq2bZuHhwciJ75FKxFOvoUQNmjQAI+m/BYVo8q0c3h4OMyQ
hxCybdmy5c8//0w1oIYuFTkT4Yz0GkcWsUgarojJJTpAodAsZW0yDRIQEACz
dewV6Km/v7+y2UVKSgpUEDsvPuq5olgzwhsdoItUB55PFXgjgl2tWjVryYoU
gyC0c+fO7dq1a9as2ZgxY5QiOYD/pkF/0dqEiKvnwiQkshROnjxZr169PHny
KHlEnp6eFy5cUN9QqlQp8VWOHDnQ3L1796ameQ2UCANVtmzZxMRE5X5h9MTM
44ABA4QPSk1LVsSdFSxYcNKkSZpFbejauHHjbAdo+JcOHTrod+YxiPPnz0NF
vvzyy4sXL3711VfNmzdX19FeUHcMVI8ePYQpFkOm+vLHxMT069fPRTstiBk9
zKNjETc/nzt3bs+ePbHGtO3o0aMHDRqkSSmEhHTp0kXkDBgHbqVTp05hYWG4
iYSEBASmbt26FpMVEa3PP/+c5wvigY8bPHhww4YNHVvLicseNmxYxYoVc+bM
qQgz8lanTp2NGzda9DUrV65Eel3K5w3CYTVMSUO3bt26d++u+GUUSvwNe4So
08XKcyIjI7Nnz16hQgViPY0fT1cNM0DkTIRj0mscWcci6ccV0cHq1avTmwqN
OXLkSLFixeBgjr2C6KB06dKKYkJukUb+Fx8tzkFj+eGKixYtsiusQLSmT5+O
MNN9OBEkJF++fMqAuRpPnjwZOXLkpk2bhBjzOloAwY6OjnYgQKCQq1atqlWr
VoECBRQdzJUrV+XKlQk6LO5EZGQQXkLiPcO9e/eqVKmCduC79Y4AO4PP9fPz
e/Tokfo6GiQIoX5nLUwoXnj58uXKlf3795coUQJFxl/w1ebNmxWNxssToKH4
1gI0IjisR1RUlMMVxCVhk8UbeQumFZ+ojHnaC+wYnGTevHnigcTsn3zyiT4l
D/OFnQkPD3fFFCeuCv/izKIMiISSTk9TeHl5TZ48WdMFu3fvhhW/ePHC4DMR
CXoKHyqsq2gZGKA+Nk9OTh41apQmnx/a07dv33bt2jkzushvmzVrhjDjiG14
DYo0cODAVq1aZfyWdNbgmBpeuXIFx71161b9A/GkfAVjFx/pXLSsUaNGOF/U
tnbt2uoVLumqYcaInImwV3qNI0tZJD1XvHz5MsaWcEB8xD5jndBEx4ZA0RQE
kp+LDTkpMzYcEqXIobV8RShrixYtjHNgnkz4BikVGYDiRZUqVdInK1Kk2bNn
Hzx4UPNzQiGcizNbLvAQnowOwuRtWwYjc2ESElkEWAlTtobjOUFBQShI/fr1
UXz1VzwfQ4EK60362bNnsUj79u3DaCh7bgscOHCAr5TcJPF8fBMWEgbVLQ1Y
sBMnTsAq8WV4NNQcX6lP/uHj2rVr27Zta+ImeFjRvHnz7tq1y7GfE55TOwov
Pt66dcvDw4PQW38nRrtevXrK5KBZEJwqLCzMLBYqiBMEWGOW8Q54Wzi/wVAd
McifP7+SnYj7wHRbzKRCorJly6ZnJocPHy5cuLC1HV2MALmizDzc9vpE/HKt
WrUQS+fbMBPVUCwurl69Oh13+vRphRampjEQ2HiTJk2Usj179gxCMn78eH4F
5UPp1q9fDyndu3evGAS2oYYZJnImwl7pNYisZpH0XFGz1J3QoEyZMvSpY2XD
aNepUwdWL7oegYEnd+nSRQlnrHFFGmrBggU9e/Y0GI49efKkZs2aygg5ityr
V6+uXbvq4yZkFZ5WrVq1x48fq6//8ssvH374IcGpMp/lAOhcdJBi23iIkbkw
CYmsgytXrrRr186UeRxCOfhPrly5oqOjlYtv3rxBI7Zs2aI3tsIOeHp6QhQx
Teo9DTApU6dORWeVuWaRrDho0CAcBHagQ4cOPj4+z58/x81hZyBdcK1z585t
2rRJn1HDbc2aNXMmc/vFixdjxozh4Uot9u/fnzt37qVLlzrwNB6Cx6xSpYoS
Vu/Zs4emu3jxov5mrFyfPn3UiwtMAayAlldP/dsLQm+6QyGxYsSpWLFiP/30
k+ZOOhfqYmQvXLHXevHixZWHEDJg0vUtIwYQaDQerhEtiErp0qX79+9vxNoT
aAwZMsTb2/vIkSPKcyxyRaQOzoDrCQgIEIOWJiYrZqIa8hWaBSdETUJCQkT2
r4BIVvT391cnK9IdYrgJb0s700FcjIiIoO9sq2FGipyJMC69xpHVLJKGK4qG
FUvdU9N2qyBIF13sWGnRX2QSKyc+YvewfuHh4UrhbayD/vnnnwlkCACNvCgu
Lq5AgQLKbFRycjK/Vb9IAWpSqVIlFF+T54nR6N27d7ly5e7fv5/u67AJs2fP
xiYsWbJE/Rw9VxSLmHhdv379xJhnuoPwEhJZCt9///2nn37q8FyqGnjYAQMG
oCMEjGLzDXhOcHAwJsiakcG5NGnSBA+FdqunofXJiklJSWg9djs1Te/WrVvX
okULAlUsJB9xcB07dsTfhYaG6iNQ3FnVqlWdSSq7efOmm5vbpEmTFL3GShPF
79u3z4GniWTF9u3bi+BXECSsMbXggfq+wMXXqFHDxO0c4du0FRTUmUO1Vq9e
XaRIkdjYWPGRnuKB+jg9NY2PcV1NXaxBDGQp5/LQMshP3bp18dR0okEppQC8
Dv9uMGCHp+EaChcufObMGXFFzxXFzhtcwcUrFVyxYkWZMmXwZYQ5t27dMvIu
a8hENaTNZ86c2b1796CgICV/TACnBjNUJyvSiZUrVxaVRUm90zBx4kShXDbU
MINFzkQYl17jyGoWScMVxVJ3saAJoti6desvv/zSmR2r6Di4ojJKidnnI/1I
lEFkkWqTKyIwxH3Dhg0zUoCYmJiiRYsqSZUnT56klY4ePUp8YXAiW/Dk/Pnz
K5M+tgHlgxOibjNmzFD0S88VL1++TAhM2ZQhEduD8BISWQ0mOqnUtISofPny
4XaxAKhJWFjY4sWLbcdNODL9RIzYJgVfrFxBlQil1QqFeVH/UJzlZHHtp6+v
Ly5MvXecvcDxTZ8+XdnBhjLjjtu1a+fYFJJIVuzatavwm5gRKkswS7htketi
ruEkapftJMRMzbJly5x5SHx8PDG1MrkDZcL94VP0XQAlhrcMHDjQyEAfbqVe
vXpiGIdXEPvTMsnJyZhi/enDCtRLgCHVcD8ojUEKIbwDtn3atGmi8HquSBXg
9jly5MAjiyvcSahCpEOvwbWcHHfKdDVEufTzdFTf3d1dPSvN09SJoDQCjazu
VmtqmMEiZyLskl4jyIIWScMVxbk8GzZsICRHEaA3zjAZkawIZxMLW5Cfbt26
iXUuERER4mhX2/srYhMwmOpNPq0BWa1SpYqYK8dcfPbZZx4eHjx2yZIlNtIC
qb5CRPmDlsyVK5cyCpouxIhugwYNlEWIeq64fPlyrhDaKFdsD8JLSGQ1mOuk
sAMtWrRAKcT2vDgp4wZWbHRw8OBB/vjqq6+gT6ZMLT19+tTLy2vq1KnWHAom
iHIOHjwYp6NvBwyamFwgKB4zZszWrVtxxEOHDsXc6RcwcufmzZuHDx8eEBCg
P3oMeyjGBqkmrpwKjhs3Ljw8HJu/cOFCTM2UKVMsLjPEjzdq1MjEaWgCbUz3
6dOnLX5LQ505c2b8+PEwqF27dml6kI80BffgPnbv3o2LwTJHRUUhRdA5i+5P
ZMTVqlXLiJghQsOGDfPz8wsJCQkODobkfPzxx7SMMpqkBjHFF198AYujR0aP
Hs398HCcAvG7p6enejrVBqjInDlzEFplbZGeKz579qx+/foFChRQj7zhQ+kX
GCM03slhgayjhpAQSAJdDEfq1asXcu4MpVFgW+RSjamhQZEzqNEGYZf0GkEW
tEgarrh9+3a4HAbn66+/tj0ObKSoIlmRyIXoGEM3ceLELVu2oNT8gXYLybTN
Fc+ePYvwGMmWpCLwNLj9vHnzaByERBxcjhboK0LZoHCdOnWCwvn7+2NATp48
KZKd4H4xMTHpvk7g0qVLRYoUIapVcoo0XFHMHHEFO6Z0uu25MAmJrAZznRSA
5uXIkYO4DFNg184YYltjzBouGNuiXubsDK5fv16iRAmsk/4rno+XR83V24yo
t1vBgqHIynAW1cFqQZ8gsXrahumuV6+e8ijYICZXqQImYtmyZQTsXIEfVqtW
7WEalAUIEEJrS3dFqIv3tzGwZhcI58uUKWMxIQer5evrC01SKkKPqLdGgUau
X79eqReOAHqPT0lOTrbxRpqiWLFixlcX/vLLL4pM0jL60RLaX2xwsXr1amVM
AF8zc+ZMqA7iB4szvnx1xYoV1BRvK2y7nitSnpo1a+Lv0Bf1D7nTlEWyWUcN
IR4wbfQC70/8oh5UdAY2RM5eNbQhcvY+yiDslV7byGoWKdWhvbiNF/XixYsl
S5bcu3cvARfcUlnegk4ZyVdMTWOk5cqVM36gM0aMn4gG4UWwMv0PYc4wdliu
YoEJOngFjLRy5cqFChUSk+NGQDsjHtRRWeCv4YqUBCLKldmzZ6tLYm0QXkIi
C8J0J0VsVb16dfzsggUL7CJ73AwPIYQXe3GbVR7cCr7P4v5asbGxHh4efn5+
cXFx165dw1QSGxKhK4MwGGGxB126wBw1bNiwZcuW0dHR+AJe2qFDBwihMm+C
FaVeUAtsF2Fvr169jCduid0Xq1atakpeFoaLKlvcsRDSNXny5IoVKxLvX758
+fz58wEBAbSesrgS0jhr1iwHdoSjhXmOY8lUelCFefPmFShQICoqSmN7xXAT
Ztnb29t4hhWOG2bVrl07ZfmkhismJSXBS3HxJkqmGllHDWmBrVu3BgYGwjbN
WqVrQ+RSTVVDEx+lhrnSm9UsUqpDXNF4UYnm0t2D1DZXFPmTI0aMMGtiBR7o
7u4+ZMgQzQahsL7+/fvnzZsXZTeeH04ERBykXmOl4YriJFCuWNzpQkLinYDp
TiomJgbLYHHXjkxBZGQkllk//4L96dOnj2ZmE/uJyRI52M+fPw8KCjJSBSxt
WFgYLFdN/7BCo0aNEuaXG5YuXSqWTsA6iFsXLlxolweHvBUvXtz4GlLefu/e
PXyEnpFivrp3767sdabG6dOnRdqkckWMHgwcOFAYVdgjJXEgEI6P///aO++g
qq61/8fYS+yIRlTsxp7YNTERe++igiU2VBQsWLBHYyOAiIKSCIoRjWALFhzs
XguWwagx6sQWJ7lRx+t14nXezPu+d/h9hvW7e/a79z6Hfc7eiJr1/YPh7LPP
2muv9ZTvs8qzMumFqKgoV39oiJSUlGLFio0aNUo/tSo2QiJ+yklAZkDXlChR
QpFYPVcU89rKphvb8XaroRORs1ENbSxKA1elF0oDVeNXhrurXjeLlOU6VzRf
VWiSn59fjgemO+eKL1684Fu4ri3n9GGBGzRoQCSlXwApUkKhNT4+PuYXKjx9
+rRZs2bq7TAarihSDRQtWtTtTOYSEq8M+M1//OMfv+mQmprasmVLAiLNddyW
G4dGpaWlEf2JaaxChQpt3749N97FJURERBhm1SDcNqQT0AORhgVCYphjRA/i
ynHjxukHYaB2kydPxtBhlObMmSMWVvE/8ayrU3uY8VKlSun9iyFwEKtWrapS
pYo6260CXEbHbGhiasza9OnT9dlpuC0wMJAKc8PChQvdm5TEj5QrV07JPW4F
2PMWLVpgmdVJlhQIroj4ick1k0DaGzVqxK/EAng9V4yLi8ufP/+YMWOs7AbN
+quqoSORy7JVDW0sSgNXpZf2hxgXLFjQsOVfN4uUlc0Vud6pUydiWDOrfM1X
FVXiQQkJCY6qzfW9e/dCLCFvjrgihXTt2tUw1nAVvOncuXMhcsHBwfqYVwxg
5piEXwORCJ1fKWP4Gq7Ie73//vu8YK5u2JeQsAWnT5/28vIqogMGDanGoWiu
EwQ1b97c5O4AgVOnTo0YMeLhw4d4hH79+okFYNYPf7cCNBetL1u2rH7qEM5j
eHberVu3FixY8OzZM/6aVG0cumHKFEwcdunevXtbtmxxO42tABa4ZMmS5o8b
IwDv0aMH7a+PxJ8/f96+ffsuXbpovqK28CtDLrR169bk5GQcDe7SPbJ0+/Zt
Dw8PzXId97Bnz57ChQurc2+qIU6g4wVdcivUavXq1fxQJL7QcEVazMfHB66u
jMM4Aq7h/v37V65ccST2f001dCRyWbaqoY1FaeCG9BLcVaxYUW8WXluLdPTo
UV7QJFe0saqCK/Lo8PBwRwu2xeELSr5HK+Dt6tati2YZJmyE1Hl6ehJhZWRk
uFQslhMJIdwTq5fVXJEXJHLHmMyfP9/5jIxYvkjb2pvMU0LCFtg1+YWy+Pn5
KaP6xJU4dNyrI3qDVs6YMWPbtm1nz57FTIWFhX3zzTe5scqXKB7dx32bvB9z
hFIfPnyYwNlifdB9XMbBgwdFwnArRUVHR/MWIomrGYhst0uXLtV7NzHI06FD
B/P7W8+dOxcZGcm75EiWHAHPhX/EZlrkivTItGnT1HuW1eAK1wsUKKBktjEP
uOWAAQPKlCmTnp6u5oo8kWrD4mhM58uluBMX3KRJE8Te1X0QeaWGWdlSCoOF
JOCvkfncOEXCDZGzUQ2tF+Wq9CKH0HVH42Bvh0UyhI1VVUOMK+Y4kW0GaWlp
xYoVq169uuFZP0lJSURtAwcOdHWyWzQsusbr0/tqrohqV6pUiWAzR83KzMwk
uMN8md/FIyHxymCLk7p+/bqvr696NR1RZ/PmzdEX9enzapw8efK9994TG+hw
yoSNNuaaVgN3j2U2PBLFENilWbNmhYSEuDSJ6QiQh9mzZ8fExFjRfZEIuly5
cupths6BSSxfvrzhLC3mCyPWtm1b80E6xH7KlCm8iNtzQLBcekE5uc9tYIcH
DRqEzBhm6rt9+3a1atVga+7J8/Pnz0NDQ2vWrEnvN2vWTExUDR8+nCvx8fFm
1tWLXUiNGzd2dVljXqkhPhGKCLHBkSEY8HCRgdlKNfRwQ+RsVEPrRbkqvdAw
hJDGNORLb4FFcgR7q6pArPcjfLOSyF2A11fvYlODwlGf4sWLG247yhH0dXJy
csOGDQk5x44di9K1a9du8eLFWCR0ymS2BAJVDw8PQ7stIZG3sO6kcNCDBw/W
DNpjiPDm7777btWqVQ23zf7tb3/DZO3evXvnzp1QkdwLo/bv349lNnlEVNZ/
Dpjw8/OzHsNmZW8GxFlbTBQpBtPq1q2rmR6C20RHR48bNw77jOvBwoihNhpz
2bJlXl5edEFQUBA8Qd07lIbtcjSHawhofKtWrWJjY93uJrhrmTJl9uzZ497P
FfCCQ4cOJfbX7walbkuXLtUcXQEXWrJkiXKFe0QOTycvgsvgHlobaz9kyJCj
R4+aH2QQ5w0Zjnk6R56oIZKAnLRu3Vo8F2LZsmVLqLh1j6x/kKsiZ6Ma6ovi
fSdNmkRPzZgxQ3lZ4iBCA8OsyIbSK/LBUs7EiRO///771NRUZaTu/PnzRHbz
5s3DxAUEBMBP1PLwFlgkR7C3qgoE9x4/frz1KGbr1q0FChQYNWqUvihMKP1C
/dU75ugm+lGxACjRunXrnLwdGnft2jU4J9ajXr16tLZ5pRZjAo7GPCUk8hYW
ndTVq1d79Ohx5MgR/Vd37tzx9vbOly+f4SpouCJe7BWklhJnxBNHm7wfc4em
WzmqVY34+Pj+/ftbXC2G7SJW1Uzh3b17t2vXrsStFM471q5dWznVDsvWs2fP
kiVLfv3115hEOGTjxo3VY5KRkZEVKlQwP0pJV+JflCO63ADtgPcUZzRYRFRU
FNZen57u4sWLlSpVmjBhgprqXL9+3dPTc8OGDeKj2OeozohrCDHnpTkP2gzE
eUNuDJ/miRpS22rVqqmnVkWKdffq4ByuipyNamhYFOqDyqiHWyF7EELDnap6
6UXF5s6d26tXL9y6OOuwePHiyjZYrA38fPTo0U+fPqVP27RpoxbXt8AiOYK9
VVUgktKEhYVZL4rG9/DwwJxqUigQKXTv3r1BgwbqFKDiMNbevXsrmYUwHRiQ
HGeTaQHNuS1mwFPoGsNF5hISeQ63nRSCTbyMCqvPLVLj+fPnHTt2RGUaNWqk
z5oLVwwPD8db7dixIz093d44VA1x6In5mTX42Oeff26FF6kRHR1t3ik4wpMn
T5o1azZjxgyF4dC2+KnOnTuLhP8Yuo8//nj48OFi+OLBgwcEpyEhIeJ+Ghk3
rTbg4hwEnKPJCvzwww9jxoxx27+IY50//PBDvY3FdC9cuHDatGkLFiwwuXOH
t8Ok9+3bV82cb968CVWmBTQnIBDX4+WV/eP8g5vOcV8wMtOqVStE18zWV/Xo
7po1a2hYN5I254kaJiQklChRYu/evQcPHvziiy+Sk5NzTw1dFTkb1dCwqIyM
DARj69at4iPN6O/vjxLp9w7rpReRIGAhMBHrh8WANqxbDAeJRbMKoxD5guAh
CgF4CyySI9hbVQVHjx7FgukPaKYl165dGxQUFBoaunnzZjPEjHsmTpxIQKeu
JNUmxqxXr55muFUcxqoYAWFmc5w1QGDmz5+PxqHROS7aUY9Oo8i1atWSixUl
Xk+44aR+//33Hj16qFcbQiQ081YpKSk4ZSWlP0E3bEe9NePUqVPt27dfvnz5
2bNnsV1t27Y1eba7q8Ago4bm8y1gHzB3tmQhxqTAgsxvXnaEzMxMjBs+XbnC
/8WKFVPGr2BK3KCwwUOHDuEHlVU3InmgeoHfb7/9Vr9+ffNG6bvvvnM1IaQa
MBDoCtZY7RxpHBxuy5YtaR8MZmxsLDJgcpkfZOyDDz4g3ifQ4DXxFLzOqlWr
NFsnRNY4dYJBJM3T09NRmko6fejQoV5eXvnz51eLbt26dR3Nv2tGdzH1jjJO
O8erV0MaZ/bs2UjR6NGj4+PjEfsVK1agJnYd1KKBqyJnoxoaFrVx40YkQSEM
SBF82zBZgV56xdnWMEAlczuRC30h2KCYMIXAiEhNBHrqBXJvgUVyBBurqgCB
CQsLQ3g0K3B4i9atW2PWeKnLly9Dzk1mL6RHhgwZggGBNh85cgQrSmBImKk/
VIgCMaQKR71x40bFihUd5dOmuyMjI+vUqVO0aFFF4woUKFClSpVRo0YZnuKn
GZ3G+PBb91ZLSkjkNmxPAmwSeDpYonAcIj8Vyp5L1UhLS6tatSr2xMzN+Iux
Y8daTKMngH/EDpg58t45sGZ4H2WtlzhdtGzZskoULCiBWC0v0r8QDit7haBk
UAK1IaWE6dOnd+rUycw4Er2Df0lMTHS7/nCzGjVqqB0xldy0aVOFChVOnDiR
le1tAwICcMfmhy6p+fbt22fOnEkIn5ycbLip89mzZ/DPkSNHit7kL/9zxa6j
Eg1Hd/38/NwQnlevhoKx4M6U8Wd6YcCAAd27d8+N02ldErksW9VQXxTvDqVR
crAgnw0aNICQGK5M0EuvyOEJMRAfHz58WLt2beIFYc2wMx4eHt9++634Vsw4
T5kyRV34m26RHMHGqirAJhAVajZnQdtq1qy5YMEC0aqYgvbt25tf4cCvoJqL
Fi3CkMbFxf3444/6EIYr9Cldr6SoJTKFOprflOQchqPT3t7ecrGixOsJ+Mag
QYNsOdPWCrZu3VqkSBHlLDl7gUf49NNPDRPIaIANCQ0N/fLLL22ZBTh69ChW
ziIzwbd269ZNndsNm4lBVs4QEXNkIu6GNPIX+qSMWrx48aJr164QJE0XQ04w
tmZmSwnDKcHtw3Cpdnh4OJZcPdoAKaL+ffr0ydWVOXh5vLbi0x8/fty0adPA
wED+SUpKsr5O3vnorkt49WooFl8VKlRo165dyhWE36U0ni7BvMjZqIaGRYmU
y2IWGCH57LPPli9fbshwDKWXFitdurQSfB05cgQKAU2C+50+ffrUqVNeXl5K
4Ib4cTMX1cW+0RbJEeytqoLMzMw6deqoZ53oNbg3LMswh6RdEIsViW5EACsi
dGIKDOzOnTuth3XOR6clJCSysteZBAQEfPPNN4pVSU5Oxm1hlnPpiZTfpk2b
HLdhYkV79uxpy0lMvBpmc/r06Rb376Snp+PXNCcaREdHKyON2FKiUWwO8e+8
efN4BYgQ5BCHSB1o5OrVq2tcVVb2up0JEyYEBQXlSJnOnz/foUMHt8+2e/To
EcR18+bN6ovHjh0rUaJE7nW3AKFHwYIFxeoseiEiIgIZ+/rrr3Hu/LWe6dHJ
6O4bgTVr1sB1lTkvGoSQxFGaYuswL3I2qqFhURcuXKCn4uLiYmNj4QOHDh1y
JAyG0nv16lVlpJHyBw4cWKFChR9//PGrr766ePHivXv3UFjUlm+5WLdu3WXL
lulf+c21SI5gY1UViJUS/v7+agalTOubT9fpBsRiRcibWNeRkZFBJCiOQF2w
YIH1sXfD0eklS5bIxYoSEgowoR4eHtOmTVNMKJRGk+3EXhC7jRgxIiwszLkm
/vTTT+3atbNljgbjNmTIEGXxvHv4448/8ETr16/XVPvZs2cjR44cP348gfys
WbNWr14ttveKE1r51eTJkwMDA+fPn8/PHeXH4GWhlDlmQtuwYcOoUaPcm1ei
2mvXrh08eLBm5hGHUqpUKdyl+qK9m3DFYkXIYaNGjbDAISEhUCNfX98BAwbQ
UNYnegxHd3kW3h/S+OoXdbgBIogyZcoQWYiPwi+7cWiFeZgUORvV0LCoxMTE
SpUqTZo0affu3U4SBDmSXhoKlezevTskkJgXJgk5RNhWrVpFafyKK/379+cj
f3mWITd7Qy2SE9hYVQVXrlyBUWssGBqH3n3++edqBk4z2suBsVFFixaFH2JL
MSBz585duXIlHBXrYQsf1o9O4xMJ3MTotPXyJSTeAhCUoXo///yz+CiMGHGi
vYuiNeBxBInO/dS+ffsw4LbMAsAZunXrZn4JjR5Yv5iYmHHjxjkKn8V5weL/
p0+falqPr3Kc09yxY8fQoUOdzElhjYODg+Pi4lys+/8Hpp5G0E8V/fLLL9Aq
9XRtZmYmNtnGw614KWjJ6NGj+ef27duiDfEmv/76q0uJLJxAP7rbr1+/hw8f
itFdWx6Rq4AC9e7dG8okAgGxY3r48OG5eiBgjiKXZasaWinKkfQK0FzwIkFX
KB+5UrM+2hZJcM4D3ziL5Bw2VlWANqRAiLemGRHXCRMmKLO3WdmxM2GOGMu1
BTwRflirVq172VCWQ2NRrZ8zKKAfna5YseLNmzfF6LQtj5CQeAtw7do1QvKE
hITU1FQMQs+ePQ1TdtuLM2fO+Pr6OjkgBrt98uRJW5715MmTpKQkK7QkLS0N
quP25K8Z4OkiIyNDQ0Mdja6IwwhcOo9YAb/y9/cXu1f0wLB37tx52bJl2Mag
oKDFixfbewrq9evXsb1us1wzcD66+0YApYMuUmccPe9CyJbbZ9HmKHJZtqqh
20U5l1678GZZJOewsapZ2YQQtoZOGc5oEGwOGzaM6JJ4bc6cORgQe9d+wHi7
d+/et29f2/PSK3A+Op1LD5WQeBOBPmKKt23b9sMPP9h+rJgjwFGPHz/++q8J
wVykpKS8gs0OIsFXbmyNxHE4P/SWRz948ABykhvdgVv08PB4BRG689Hd1x+Q
h1OnTiUmJl66dOkV5MbPyk2RsxE5Sq9deFMs0isGliE1NdW5X0Dd7ty5Y++2
a4H79+9Xr17dSqIwk3A+Oi0hISEhkavYtWtXUFBQ7iWXlpCQeFsBf/P398+l
XKMSEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEnmL
f//7305Oi5CnKki8NciNE08kJCQk8hx//vnn/fv3MzMznz9/rv/26dOnV69e
dXK4qoSEE2RkZPTv379UqVL58uVr1KjRpk2b1AezQiA3b94cEBDwz3/+Mw8r
+ToA7bt58+b169cNSbVUw9ccv//+e0hIiLe39zvvvOPh4TFjxgzNge+XLl0a
NmwYf/OqhhISEhJ64HfmzJlz+/ZtzfUXL16EhYXt3btXDOb87//+b2JiYuPG
jfHm586d09yMbxo5cmSRIkXGjBnzyk6Xlng78PLlyyVLlnz22Wfww2vXrh06
dAgpKly4cJ06db788sv9+/d//fXX3bp1Gz9+/JMnT/K6srkCVGzPnj0rV678
17/+pfkKxQwNDb1165b4+OzZs1mzZpUrV65du3Z62izV8HUGvXzw4MG2bdsu
XLiQyOj8+fOId+XKlUuWLDlp0qSdO3empKSMGzfOx8fnwoULeV1ZCQkJif+D
pKSkJk2aZGZmaq7jd5o1axYdHa1M/EEXiYIbNmxIaKwvBy/v6emJW8/1Gku8
QojB5CtXruhpjC1AujZs2LBq1SpN+bAjyGGVKlUqVao0aNCg9PR0/QQ0Avnw
4UNE9x//+Edu1O2VgUaG3Q0ZMkQ/Yr99+3bUUz3K9Pjx4w8//HDq1Km8vr4o
qYZuQwzY/vTTT4YNax0XL16EE969e1fz0PDwcGLw0qVLf/LJJ9hbgnT9b+Vw
sYSExJsCzNqnn346bNgww5U2W7du9fDwyKWpE2w4NHXbtm1nz549evRoWFjY
N998k0smPTcAEVq6dGlUVNTx48fPnDmTkJCwaNEi7H9e1ysH0MJbtmyBqxgO
Juc5Dh482K5du0KFCqWkpOR1XV4dLly4UL58+W+//dbw21xVw7cYz549CwkJ
oWENB2zzFnK4WEJC4g0ChO39999fu3at/issWGBg4EcfffT48ePcePTJkyff
e++9d7KRL1++nj17vlkhNrSwRYsW7/wHNWrUOHDgwBuxUwO6OHPmzMaNGxsO
Juc5kMbKlSsrU7R/BWzcuNHT0/PatWv6r3JbDd9u0Gg0XXBw8GsYhMrhYgkJ
ibzC9evXQ7Lx888/q6//+OOPixYtGjVqlIbP7Ny5s1y5cn/729/4//Tp0xMn
Tpw6dar4LVF569atnYe9FJWWlvb999+7wZF46OzZs3fv3k0doKyaEu7evRsb
G5tLk6RqvHz5Ek/tBjOBK06ZMoX6f/vtt2fOnFHv2sglHDp0yBY6+scff3To
0MHf3/813LZJlYYNG/bZZ59Rybyui5uAluzatWvy5MkRERHqyUeuoykzZsxA
y9SzlujX6NGj0TU0DimCPIwdO1aZwTejhq8e1D8mJiaX1BOV3LBhg8aCuYdL
ly5VqFAhKSnJelG2Qw4XS0hIWAQeU00J9EGx2nH8Oxv88+uvv86ZM+fOnTtd
unQJCgpSfnX16lWuP3r0aN26dQ0bNvz73/+uFDtz5sz69es/fPhwx44dUVFR
+/fvL1u27Pr167P+E/bGxcU5qWdKSgpezL2lZXBFnKmjeF+seQsODs5VuohX
gldHR0e7MewAV4TrvspJ53/+85/jxo3bvn27RboIMa5cubLoZT2gAfAZHx8f
+GT79u1Xr14NXXH7WUiypm2pPBcdMR+Es0GDBrNmzXodBoLcU8PDhw9HRkZe
vny5SpUqBw8eVL5NTExEpOHAPXr0mDRpkvJbsVgRbvnkyZMvv/yScGDevHkw
nJ9++inLnBoqQBNR5AULFsA2Ec6jR48qT/nhhx8yMjLcbIj/CyzMoEGD7CrN
ELTewIEDCSEtlgPxrlSpEpGy/it65MiRI76+vh07dvz444/79Omzb98+twm5
kGqNYiIw+osCcrhYQkLCIrBgTZo0KVy4sDK/WadOndOnT6tvwJWIr/Lnz1+r
Vq3vvvsuKztQ3bt3L/F49erVv/rqK2Gj/uu//mvRokVYSwwXjBFHrHBFsVix
f//+kKWdO3dyw+3bt+EGIuEDrq18+fIXL150VM9z58517txZv9vaJOCK4eHh
8Ba8W3p6un4c6c8//4Qrrlq1KpdoA8XSSgEBATBGN34uuCJ+E4KdnJz8yy+/
WKwPJG3ixIlKe7548SI2Nlbj5u7fv9+9e3cxDuwS6Gt6GaoJDVuzZo2Hh4fh
YkVEa/jw4ZQv2hxR8fPza968ueAtrgLqMnLkyGrVqhUoUEAR5hIlShCw4MQN
fSiPLleuHO3pxuPshXtqSGgDVaObtmzZUrFiRTiPuBmthAHyLYSwWbNm8ASF
lqBivDJ6t2TJEpghzYJExcfHI/9ZJtRQ4Pr164MHDy5Tpgych46GoyYkJIwY
MWLo0KFIJk9v3bp1amqq9WahTyGK27Zts1IIrIzWUPQOmSeM1ViAXbt28SA3
tsnDMOfOnTt+/HjMC8JsuFgRCrdy5UpiIsLkrGymd/bs2caNG6OAhvtQcgTM
mQehVoq05MuXD5KPgYWl6+9/PYeLJSQk3jhg3mvUqIHNwdzpyQxmH5+LPXzw
4IFykduwgVjdypUr4zuU68IIi5nHIUOGCB+UlW1UcWeUM23atN9++01dPhZs
8uTJTsJebF2vXr02b97s9gueOnWqffv2y5cvx0rHxMS0bdtW7YgFoE9YYP11
WwBZ4qFur4uDK/br12/SpEmHDh1KS0ujbSMiIqzM6uLiK1WqpLAy+DNUhL+a
27Zv396tWzeXxjNpxq5duy5evBiucvXqVVhNo0aN9IsV8Ztjx47VrBrFdQ4Y
MKBjx45WRhf5bZs2bRBmutv5oGhUVBTSa31AyS64oYYvstGzZ08URBkVR6HE
/7BHGAVMUrl/48aN7777btWqVYn1NKPoOaphVvYeq4ULFxYvXhxaCEfVfLtn
zx5fX9+PP/64SpUqmu26boC+W7FixahRo9wLrwT4LQLcu3dvsWxDzG7o3xEz
RWgDfzYfKlI9WGiLFi1QSX5FwxYtWlQ9w6LgwIEDoaGhmnUj2Exvb29e0Mq4
PcFOyZIlS5cu7ZzeuzRcLCEh8fYBu2RLug/KCQkJwUk1bdr00aNH6q8oH8+F
V9XHpM+fPxeEUL98juAdLxwZGalcSU5OLleuXFJS0tKlS/lq06ZNipHkEYS9
n3/+uWHYy23r16/38fGx8qZwFViieCJPmTp1Kv5CGfNUHoTp7tOnj2GqcCsQ
FAj65PagJb7s+PHjyigE3gdqp8w5ugpIJn2KTxdjILw4nVK9enU1CRHgBlwt
/WjSo9F0kJbOnTuLNuTnPMXPz09Pa5GofPny6Tsd/4v7c7RL1wyQRupM4c5X
8lMliM2nn35qvbvzVg0vXLiAMCQkJOgL/Oabb/gKxi4+8lsaHHqD5KC2DRo0
UO9wca6GgCr1798fRhQbG2soyTRpQEAA9UcArC/noNpNmjSxGLtBaKtVq7Zs
2TIhwEIgDVfPZmRk8DhlbDZHZGZmenl5hYWFiZLPnz+PfdMPgdIOhE6FChXa
uXOn+jqNPHHiRJTuzp07br5bVhaxHg+li52vtzQ5XCwhIfG2AjfRsWNHW3aY
Xrp0CbNTsGBB9drsP/74Y/LkyfHx8YZU4cSJE/wEGwjHUHJuC6SkpPDVqVOn
xEfhBPFNVBXa0zMb+PTDhw/DKnEKmDsCcyyefuvKkydP2rRps27dOuvvqGDr
1q1FihTRG3Zsb+3ataErNj4LHDt2rE6dOurRV4u4d+9elSpVIA/uDS3SCw0b
Npw+fbrw+C9fvoTgde/e3XAAh36BumiGgh0BMShWrJiyOvHmzZvEBfq+o4uh
PUgIhWu6GxmoVKnS4MGDlRFpJ0B48PvDhg1LTU1VyjHkirhsGG/fvn2Dg4PF
oCWRQv369RFL66sO8lANqfy8efMQWkgRYqbQwqxsNjJ27NhWrVopPFZs1A0M
DORXt27dQuk2bNhAp4vpbOdqSKP16NEDzqPvMjX2798PmVy4cKHFZa7UcO7c
uQRuFjknURXtiZ0RH2/cuFGxYsXo6Gj9nbQDTFi9ttMJuAdW7OnpqSzbiIuL
o2T9YkUiEaSubt26+tlhmDwdbWa6hMbcvXs3rUGQq56bMOSKd+/e5TY0mnic
ZjQzXCwhIfF248yZM5988olmfMw94GGHDBnyzjvvwBnE+BXGc9asWTh6Q2cq
RuGgQBBF3MehQ4eUr7h/9uzZH3zwgUIwxGLFoUOHwm0w/p07dx4zZgwkEDf3
6NEjLDlm9uTJkxjPtLQ0zYOgnTVr1rQyUfj06VMMO4Ur/is5ORmvFx4erm8E
WMrIkSNt3LRLUbhs3JDbm5dpT3oB+68shXr48GGtWrV8fHzcW+909uxZXMyO
HTvER3qwRo0aS5YsMfTv8DGeZWZ3p8i1XrZsWcUt0nfly5fncebr9ssvv/A4
2KlJ1wZP8/LyKlmy5PHjx8UVPVfkvVauXMkVgg5lqaeNixXzUA2hkWgWAoY2
hYaGqo97E4sVJ06cqF6sSHcQKGVlj9rByekgLoaFhVG4EzWkVlOmTKFW48eP
dy7GsBeiGKimxXagmwgtLU6b0u+LFy9GtpUBc2SeTnckkLBxSJ2ZbFpii1Cn
Tp0ElaWFMWht27Z1KbOisEKojJlohUcQXsEtW7Zsqayr1HNFKtChQwdEHaYt
eirH4WIJCYm3HjY6qazsBVFFixbF7eIv/vzzT8zs6tWrnVgYnEurVq3wUJGR
kWoPol+seP/+/dq1a0Mps7INeGxsbLt27aZPn4615CMOrkuXLvi7BQsWaCYE
efq4ceP41j1SJECw7+HhMW3aNOVd8IZFihTRzAoJREdHV6tWzfpqKwW8Xb16
9SIiItwuQay5wjcp3FsMvo0ePdo9+8874mKU+Uf6kY/79++HNtD1mpvxhvAW
X1/fHAf6xECWci4PHhCS06hRI6oNJ3Eiper9m3hquF/16tVN7t8R86rQmDlz
5gifq+eKvAJuPX/+/PS78sM1a9a8//77eFvCnBs3bph5liPkoRpyff78+b16
9QoJCdEsN7106RLMUL1YEcJPw4qXRUmHZSMoKEgEYk7UcN++fcWKFUMvcgzZ
7ty5A2WyMq8qsHv37sqVKxvu1DAPoTgKoxOxDBSUN0X39f11/fp1RELdYo5A
sEaYDH8WIgd1hJYTzfEPdNSJVqqVKDExsUCBAiNGjDCpxSKMKlGihBIW6bki
IQDBGm+hbFtzPlwsISHxV4C9TurZs2dQONyuSLmGk8qRHmCN9Su1RJoUfLFy
BQP19OlTtZl69OiR+od8xRV9fA3raNy48ezZsx2F3pA66unn57d8+XJ9O2BL
8Yk4PqJsxZxSZ3hsx44dDdeYnThxAmJpfWBEwcGDBynw2LFjht/yXlj+wMBA
CM+2bds0Dc5HGN1///d/Q3LUI2CbNm2ihfXDI2ZaQyxWpEpiYwud3rNnT7HP
JSwsTH9Wo5jlrF+/vhkxg4U2adJEcFqK8vb27tevH46VEvRDLsgJ3hZXjruc
MGECxJKYAr5aunRpHLF6iMwJkJwvvvgCoVUWoem5Ih68adOmxYsXV9gUL0Wo
QqTz4MEDuJbJGXZHyHM1RLn06wd4fU9PT/WsNOWoNw3RCNAPdeGGaoiaQP+o
D1FhjiNgsET60eLEMU+BwcK+HG1MRoxRgVGjRgUHB58/f17zLa8gxgbFYsUe
PXqISDYjIwOtQSDpdD0fzvpPxnsz09CErr179xZ3UtuYmBhiT5QUNd+wYYM+
mw1GYNCgQcRcRL5067p162iiFStWiF42yRXRIASjYMGC27dvF1f0XJG4D1ZP
XKkMyzuftZGQkPgrwF4nBTB6+fPnxxxhq13afog9PHDgwJ49e4TltD4mIHDl
yhWMYXx8vP4rDPKWLVtKlSqlTjOiTreCy8AjCIoC4woICEhISEhNTYWZwI4c
pd+Bbnl5eUE/7ArAIWCE+YYjLXgrfAesRnkF3J/az0IjhevhzoULFy5btgzL
T92aN29OU6traL41xGLFkiVL4kNXrlxJR9O8H330Ef+sXr3akJYkJiaWKVPG
zCF9UJGRI0eOHz8eXgFnoEBKnjlz5v79+9W34Rxxl1WrVoVbKtP9N2/ehLbF
xcUhfrhs85uviUp4X/pUVF7PFaGC9erV45XRF+VXhw4d4ikwRtrNYl+/PmqI
nNCASDtS1LdvX9rEyoC8AEFK4cKFc9xsayOoc4cOHQYMGGAojbwd8Ygi50WL
FkU+1YfOR0REXLhwISt7sSLfYosmT568ZMkSAkYEHgqKQPKVvmREkSjS5CF9
PMLHx2fRokUEelFRUUOHDu3fvz8la6awobuEZoQqSmRHVVNSUtBrrlN/wiiT
K2aRBAIrBJvfiit6rrh37146q02bNkpQ4GS4WEJC4i8C250UEXft2rUxR64m
cxBpjaE6uGCoiHqbsxXAiHBShht+oR/Ey9CS9PT0y5cvwz28vb3hgYp/2bZt
m0gFKYClPXHiBBchsU4CebESye3pXQ0ohBoaJo3BMUFUqlWrBqHKyMg4depU
cHAwL6vsuBH5SRROS3tev36dbyGQ+vyQ5lsDn1W+fHn+500hxsr2FgiVoy6j
TCpmOGVvCIpSZBLKpxm/pU0gvcWLF9+8ebOG7nIFecaBOjo03BBwXZhVx44d
Bc3Wc8X79+/DS/Gqmq0H3GlLevPXRw0Jhegp2O/y5cshRepBRfegTPHzgq/s
mGPoTd26dQ3zz/AVgVL79u2TkpIIJLEPnTt3rlWrlrJoBPoEf6NnaTf4IV/d
y4ayr5wed5SRSWTUqVmzpsn1D4gozxXKyG+pm2YxJyoGn6QrNSlDIcM8CA0l
HDC/5Z/HQUfpC2VBi54rouaU2bVrV3WI4WjWRkJC4i8C253Url27CMMNs3Y4
B+YIDkOMLHJx21WfjRs34vv000wYYcymZrQKy9mhQwexDI9wPiQkxKVXEBBj
Gjgg8+M5eB9Y3K1bt/RuHarWq1cvJTuNGseOHRPTYcoVMTbo6+srOA/sERpp
xsK71BrR0dGuJhXMzMykF6Kiosz/xAlSUlKKFStGWKEfNYKUwiERPyW7uxkg
eCVKlFAkVs8Vxby2spDSdrw+aojkJCQkzJgxIyYmxpY0PmKDDDURu6etF6jA
idYQH3l4eCiJbhRQgcWLF2Nk1JSMVxazuuKG8PBwsZwP/e3evXvfvn1d2lOG
xpUtW9aWlAWId0BAQKFChZQpY/WLiORIZcqU0a/6cASxN5xfKRkMNFxR7Dfk
BmUhpYSExF8KGAEs/286pKamtmzZ8ocfftBcx225ccRtWlra6NGjxdCEoYl7
9SCCxpzqp7OTkpIM6QT0QOT0gJA4SvXjHHgWonJDdmcIyB60p2jRoiNGjNAP
heHIOmZDs4ILP4LB1y845Dac8tWrV7lh4cKFJseFzLcGNfTz83P1BGThkvS+
2w1Aa1u0aAFXVG+cVyC4IuIn5hBNAmlv1KiRMkmq54pxcXH58+cfM2aMxe3t
f0E1vHfvHqz13XffjY2NtbFY51pDS6L1+u1gd+7cGTdunJ4DQ+0mT55MlHf3
7t05c+aIaff79+9Xr1595cqVLgktnLNUqVL64NQNEAy+9957jRs31rN9MYAJ
qXM1vaeYVVd+peGKSD7hJzLzOhxFJCEh8epx+vRpLy+vIjoULFgQg4Nx0FzH
njRv3tzk7gCBU6dOYbcfPnwIXcHgiAVguXo+co7AyC9fvpwwXz9QCYkyXPd+
69atBQsWPHv2jL/uHYQn0j+2bt3a/NEhVM/T0zMmJkb/FSa9ffv2Xbp00YxS
YtWhQ4bUZevWrZh63B/czCS3Md8aPBdnmpCQ4JIDFeM8ixYtss4V9+zZU7hw
YXU+JTXEqSK0mEvTndRq9erV/FAs/dJwRbrAx8cHAqDsHnUbf0E1hIRARXgX
M0lHb9y4YZ5lOdEaVAOevHbtWs11uLfhjnV6fO7cudDaLVu2KLvS4I3+/v6u
zsIjgSVLlnTjXEsNxOITuk+ds0hd4d69e5s5WkgD9KJTp05Q0BMnTmTpuCLt
xsdWrVq5cVihhITEWwy7Jr8wMn5+fsqan5SUFBw67tW6zbSIiIgIvMaVK1dM
3g8vmj9//uHDh7/66iv3ZmHEuKJLI287duwoX768oZcU44odOnQwv8Xg3Llz
kZGR69ats85trLeGAA4axr5q1SrrCZanTZum3rOsBle4XqBAAXVmG5PAhw4Y
MKBMmTLp6elqrsgTqTYsbunSpTkuQCVMuH//PsLmKjd7i9WQEKNGjRqQ3hwP
CaKpv/jiC0f7/fVwojViXBGhNVkUYom+UEORr9XkrwwRHR2Nwbl06ZKVQrKy
t5I1adJEvWdZDWht9erViTvcSBt7+fJlb2/vdu3aEW2puSL8EMMF/danvdJA
LF+ERVvc/i8hIfGmwBYndf36dV9fX/USHcxO8+bN8emTJ0/We1hMDWRm8ODB
/MWtx/8HGH8rx/gaAneP6TafzBmeMGvWrJCQEJcmMdUQyY0hGyaXOQn+g18w
dFLQjz59+rRt29Z8y+A+pkyZMnv2bOtbCay3hgCuk15QTmNxG7DBQYMGqRfn
q3H79u1q1arRku7J8/Pnz0NDQ2vWrMn7iiV2wcHBw4cP5wrCmSNRpB+3bNnC
0+FmZnZ8q5EnapiVrYnQSGgwHGnx4sWaDRS2QORKhcCLDN5OQEAxffp0kzOq
zrUGSYDz8EbmYxP6DpWJiYmxEs6InO2wL+stCeGvXLmy4foZsHnzZmgk8une
Broff/yxZ8+eCDlNJM6DDg8PR1SIcM2w3MzMzH79+tGnNmZ7kJCQeJ1h3Ulh
lmF9GRkZ6osYELz5u+++W7VqVX1uGTz+iBEj3tEBn2LLcno19u/fjyU0f+ie
OCTFz8/PjXViAmJAYPz48RozDoWbO3cu19esWUPkrpwbK06YxXQvW7YsMDBw
4cKF6gNH8IlcdDTlaoh79+61atUqNjbWuhm33hoCaWlpeL09e/ZYr8/QoUPx
kur96QLiTGpNgvSXL18uWbJEucI9Ii+Tk5aBHnNP3bp1EcghQ4YcPXrU/B4l
sYqscePGrm6ByRM15NvExMSoqCgR1EAyEcIjR464XQdD8JRVq1bly5fPedbB
Fy9ezJkzRx/Tuac1tH+DBg0MZ28dYdu2bZAli3m6BINFeFxaNmAIcQpnjRo1
9CthCBuRlnr16qmz68AteV+ll2lPLIDzTYJYKihi0aJFixUrRjNeu3bNvMVI
T0/38PAwXDMsISHx9sGik7p69WqPHj0M/cudO3e8vb3xEfpNE8+fPw8ICMAj
37hx4042CGb9/f1tSaior2H58uUNFzUZAjbi6+tr5fBoXuf9998PCwtTrvD6
kNUWLVpgWvEmcXFxGGflZC4aoUKFCg0bNqQRcG1cHzZsmJqfREZGcoP5kQoq
gNdTDlWxAuutIRAfH1+uXDnzGzadAG5ToEABfcLMixcvVqpUacKECerhXPiP
p6enkk1OHGcMnXM+ny5WEWjOgzYDMYZmOD/uHHmihpAQkedcufLtt9+OHDnS
zDnaLkEct4dSOFoKgrQvX74c/q/JgOS21ohjQMWR8SYriUT179/f4sJOmm7A
gAEurRhxBEpACCtXrqxJrCr4f8mSJTUZqKKjo0U+fPERLkf7aA7i0cPwPOgc
IYZPq1evfv/+ffO/kpCQeHPhtpPCCG/ZsgX7j4E1dC4Qwo4dO77zzjuNGjVS
+6Os7Hh2/fr1yq9wrCtWrNi9e7d7r+Ac4iSFwMBAkyMMmOjPP//cCtE6evQo
tvfw4cPKFTiSl5cX7FG4wvPnz2OflSyI27dvL126tOLoITb8XL0CXxwEk5qa
arICUO4xY8bYsp3Bemtk/eeoPvVJEFbw4MEDiEffvn3V7vjmzZtNmzYdPny4
ZgaTRqaplSVt/EPgkOO+YGSmVatWiK6rG7fFeUNuTLXniRrevn27Ro0a8GHl
HZG9sWPH2niUuYKTJ09WrFiRPtKn4+YK4pqUlKRpaitaI44KQk7MNylcy3xE
6QgiQZDJA5pzBCbxvffeU08Q8A8NRUuqey0r24Qi/EruBTHGDpdTJ9QyBP3C
I1zduI3UIW9QcZfSvEtISLy5cMNJ/f777z169MDCiInjfPnyYeo18XtKSgpO
WZlcLl68OCbU0UqYffv2EaXmhofKyt5OOHHiRPMZbIiUYUduT4VjpfFu9evX
VyahqEBAQICnp6cyHxQXF4e1Fx/FpJWSapuPc+bM0SxS+u233yjQ/NKg7777
ztVEH45gsTUE/vjjD+jKhAkT9HT96tWrCxcupAUWLFhgfv/FuXPnPvjgg969
e+/YsePgwYOhoaG0z6pVqzSDOTTm1KlT1QkGIQN0hKPcd7zm0KFD4Sf58+dX
i27dunWdTOhDxqAZ48aNgw+vWbMGVu/qYsWsPFJDmgvKzcuOGDECUnH27FkK
tLgw1Qnoax8fn8KFCw8bNmzdunXJyclEiFAOPz8/fY9Y1xqsCveb7AuMDwVa
3wEEvyVY2Lt3r/51uAiHREh4a5Mz1Pxq7dq1BAIhISHIOXrt6+tLFJOWlqaR
RnGUkpI1EQrXq1ev7t27O+JyNEvLli3Lli2ryAbyg6i0adPG0eC/OFdr0qRJ
mFPCk1q1asnFihISfx3YngTYVUCE8LOaEQ97gWmtWrWqstLJOb7//nsrQyv/
+te/4DDqrQTiGJdOnTqJgT6u49OVvSpi1lI5ZIR7unbtqsn5LI4epgQziwYp
H6+XmJjoXv01sNgaAjCBGjVqaA7IpsyoqCgcFg6aF4SM0Sbml/nRFNu3b585
c+b8+fNhHYYbHGhhyhw5cqSoP3/5nys2nh5y9+5d+mvx4sV0HFwIB2p4wk6O
yCs1RO+gi1CFIkWKQEJu3bqVq4+DWly7di0iIiIoKIi+27hxo6OBL+tag0h8
9NFHyrCkc2CFIFfK/nG3sX79euU0cwXUyt/fH5pHlZA94hE01PzA47179yIj
I4ODg1evXn38+HHDWXV4frly5QidxEdaFY1bsmSJXVwOzjl37lyaiOCRxucV
zGxsl5CQeGtAJD5o0CBbzilzA2KuJDQ0NFfPCMC/fPrppzwoR8tJNajMl19+
6baNJSqvU6fO6dOnlSu4Y64o5yCIJXOE5/yDbedv69atFat+5cqVChUqLFq0
SNMgcImaNWuaGSQRiS/cGNrSw3prZGV3cXh4ePv27dWDk1zctGkTbyqSvOH+
AgICJkyYYG8aQDiqh4cHflZ8pKmbNm0aGBjIP0lJSdZPYHz+/Dnes3PnzmLi
W+y28PPzc4Na55UaIpyEIdCYihUrwhi7dOni6JTzVwzrWiNO6INSmgkNjh49
SohnMYiARHXr1k2TRBSRpnlhuSJj4Z07dwgK1MdP24Lo6Gi4orJW5PDhw3zc
v3//xYsXc0yAkyOoKmFdpUqVxIi0MNre3t5ysaKEhMSrARF3ixYtlHA495Cc
nNymTZsctxLjLHr27HngwAH3noKrmj17tr+/v3rq58WLF7ghsQmUG2JiYgoX
LhwbG4t72rBhAzRp1KhRs2bN4ivuJGCHe+jX9f35559QqaCgoBwZzvnz5/GP
thxFZ7E1BB49egSD2rx5s/ri3//+94YNG/bp0ydX1zuJk23FIjSaNyIiolCh
Ql9//fWRI0c0y73cw969e4sVK6asTrx582blypWt7wN6ZXjw4AHkEO2jKegR
BIzmgsnkVeSohi1aA5lp2bKl5uRKPXh9AiJlAtdtpKenf/jhh5qEhzy9RIkS
yu6q3IBYrEhYJDa2EBqjtmKfS1hYmPUNZb/++mu9evUIi5TT0vv27dujRw+5
WFFCQuLVYN++fRUqVDCf/NBtYOVGjBiR44QU1rVdu3ZuT0VduXIFRqrfzX3h
wgUfH59FixYFBgYSoePa+vfvP3PmTJHy4tq1a7hFQvVx48bhsBzlUaRubdu2
zXE5GV4JN2rL4k+LrZGV7YXXrl07ePBgzez5sWPHcKDh4eGW6+gQYrEi5LBR
o0ZLliwJCQlZs2aNr6/vgAEDaHnrQyKUP2PGjLJlyyrdLRYHvgJhtgXiqBpE
UZnT5EpCQkK5cuVsT5vjHmzRmk2bNkFsnA8YwnmGDBmSY/pH50DCBw4cSOCg
tjCGCylth1isWLJkSfjbypUriSjj4+M/+ugj/qGLre9qF+dmKuPzDx8+rF27
to0T3BISEhJOgKnBEeBtHe01sBc///xzjkv34a5QSvfiZZwFv928ebOhCYW8
QboEZcKDEKqr1x39z//8D+wlx/weO3bswGM6cXyUExwcHBcX50b99bDSGgKQ
527duulPVTtw4ECpUqU0Z87SLDZ6H1oJaj169Gj+uX37ttj2IlrelpwwNPXY
sWOVNXJirze89LfffoM05uECYJOgwojK7Nmz1YNpjx49+uSTT9LS0vKwYmpY
1xqkd8qUKfAcJ6JFlyGlVrJnU3hMTAys1XB3Va1atTTrsa2vf1CD8IQg5bvv
vnv8+DHNpWxv4b1sUahdu3aVLl1amV8glPDw8Dh48ODly5fVi20kJCQkcgMi
rzJm55UtkTpz5oyvr686ga0GMEn3lvfwLgTaRPG5tJtbABeD1wsNDXXkH3ET
EDDreYAF3G4NAarh7+8vViRq8Msvv0Cr1NO1mZmZkydPtvHIMAKQihUr2kWb
DREdHa1sZKD+3t7eIl3hvHnzbNw+k3uAXbRv314tLRkZGSiILamNXh88efKE
kEG/N1l9Q1JSkpUIAnbNIwwXfkC0EAwlHEZDCSdXrlxpI11EDitXruzGYX8m
cfXqVWVvGoI9cOBANIvHffXVV/oMSBISEhL2AlrVv39/Ly8vJ+TNdly7du34
8eO2z548ePAgNTXV3uECQ4jMFdY3bL4CwDOdHMOdnp7euXPnZcuW4XGCgoIW
L15s79myeH/CkFz1Zc+ePRs5cuT48eNh77NmzSJSEIm+c1wg95oABST06Nq1
a3x8PErB/2PGjLElhfvrBnoqJSXF3p1TCgjcKNzRIk++XbFiRd++fdeuXfvF
F18QEMEVbcx2Tif6+fm5dPq8q8DmrF+/vnv37mhrQEAA9f/www+nTp26atUq
86nOJSQkJNzGjRs3cFK5ugla4rUF/Q7HtmumTINdu3ZBQXPPgSqg/sqMM4TB
9kMqcxuPHz/+/vvvExMT4dW5Oir+Vwac6vbt27kx2kzJc+bMSUhIyO3Vg8+f
PydEFeHwy5cvf/31V7leUUJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QuJtwv8DE/aqyg==
     "], {{0, 181.}, {868., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{598.6666666666642, Automatic},
   ImageSizeRaw->{868., 181.},
   PlotRange->{{0, 868.}, {0, 181.}}]], "Input",ExpressionUUID->
  "b320a7cc-7094-4679-88ce-976572d2a93e"],
 ", FieldNumber = 7"
}], "Subsubsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
   3.831837565561267*^9, 3.831837565717546*^9}, 3.8318376089841914`*^9, {
   3.8329479164930973`*^9, 
   3.832947916789883*^9}},ExpressionUUID->"42876889-aec6-4f23-b2b1-\
dd9be25972d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"1", "/", "4"}], ",", "0", ",", 
     RowBox[{"-", 
      FractionBox["1", "4"]}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"1", "/", "4"}]}], ",", "0", ",", 
     RowBox[{"I", " ", 
      RowBox[{"1", "/", "4"}]}], ",", "0", ",", 
     RowBox[{"I", " ", 
      RowBox[{"1", "/", "4"}]}], ",", 
     RowBox[{"I", " ", 
      RowBox[{"1", "/", "2"}]}], ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"I", "/", "4"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "4"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "2"}], ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "2"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", "0", ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", "1", ",", 
     RowBox[{"1", "/", "2"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.831831302775831*^9, 
  3.8318313425712132`*^9}, {3.831831417571769*^9, 3.8318314249331074`*^9}, {
  3.8318360089626865`*^9, 3.8318360258726*^9}, {3.83183697293332*^9, 
  3.831836980278759*^9}, {3.8318373329155426`*^9, 3.8318373882613344`*^9}, {
  3.832947939008093*^9, 3.832947950335035*^9}, {3.832948656116955*^9, 
  3.8329487410535097`*^9}, {3.832948894769576*^9, 3.8329489277416515`*^9}},
 CellLabel->
  "In[419]:=",ExpressionUUID->"92ab5ba1-03a1-4588-b918-d2cf780e8157"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318348118468747`*^9, 3.831834815644092*^9}},
 CellLabel->
  "In[423]:=",ExpressionUUID->"38e7d083-8422-46a9-b221-f2dc3425ae9c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, {3.8318348123779774`*^9, 3.8318348160189466`*^9}, 
   3.8318354324495916`*^9, 3.8318355280734353`*^9, 3.831836057734417*^9, 
   3.831836224616662*^9, 3.8318369940172477`*^9, {3.83183739467624*^9, 
   3.8318374223770795`*^9}, 3.8318397993831377`*^9, 3.8329475119105663`*^9, 
   3.832948941291499*^9, 3.832958613181907*^9, 3.832961817413678*^9, 
   3.845826910677902*^9, 3.8458525004510508`*^9, 3.8458571103153048`*^9, 
   3.8459196594362383`*^9, 3.846006618998796*^9, 3.846099934615719*^9, 
   3.8474704980011597`*^9, 3.8517006843189077`*^9, 3.8539754970685463`*^9, 
   3.8549774612657084`*^9, 3.854989309751214*^9, 3.8549999469491215`*^9, 
   3.855165300750164*^9, 3.855182365850092*^9, 3.855185909773093*^9, 
   3.855330690517352*^9, 3.8553398925315433`*^9, 3.855343231712533*^9, 
   3.8553440660944433`*^9, 3.8553527927691793`*^9, 3.855449654608007*^9, 
   3.8555076527063713`*^9, 3.855508452390476*^9, 3.855512941434922*^9, 
   3.855533370696289*^9, 3.855578968415886*^9, 3.855593340333823*^9, 
   3.855750651009287*^9},
 CellLabel->
  "Out[424]=",ExpressionUUID->"0f1e42c4-8499-4d5e-8939-9d4d3d47720e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHSX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "1", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "cc", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "2", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGamma", "[", 
           RowBox[{"nu", ",", "mu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "3", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "4", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGammadown", "[", 
             RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "5", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"\[Gamma]5", "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "6", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGamma", "[", 
             RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "7", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"\[Gamma]5down", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "8", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"Cmetric", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}, 3.832948966605893*^9, {3.8329490066212797`*^9, 
   3.832949165343768*^9}, {3.8329492191094065`*^9, 3.832949345931453*^9}, {
   3.8329493910452533`*^9, 3.83294939649691*^9}, {3.8329494596448545`*^9, 
   3.8329495059992666`*^9}, {3.832949539592924*^9, 3.832949618672328*^9}, {
   3.832949652028014*^9, 3.8329497369508505`*^9}, {3.832949808347021*^9, 
   3.832949837440094*^9}},
 CellLabel->
  "In[425]:=",ExpressionUUID->"d913ab41-1189-4cd4-8bb3-3755803efa87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResultX", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHSX", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}, 3.8329497831714077`*^9, 3.8329586005652723`*^9},
 CellLabel->
  "In[426]:=",ExpressionUUID->"fc85d647-b608-46ce-ada4-44dca3d81a18"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, 
   3.831835435398642*^9, 3.8318355330585437`*^9, 3.831835717106969*^9, 
   3.8318357717602043`*^9, 3.83183606388894*^9, 3.831837000246211*^9, {
   3.8318374034065166`*^9, 3.831837427619596*^9}, 3.8318398044711704`*^9, 
   3.8329475172572937`*^9, 3.832949798211484*^9, 3.832949843855173*^9, 
   3.8329586178151646`*^9, 3.83296182200089*^9, 3.845826916178063*^9, 
   3.845852505966984*^9, 3.845857115487961*^9, 3.845919665099205*^9, 
   3.846006623545738*^9, 3.8460999404378557`*^9, 3.8474705037261715`*^9, 
   3.8517006899637194`*^9, 3.853975502383582*^9, 3.8549774672073965`*^9, 
   3.854989314816167*^9, 3.854999952232645*^9, 3.8551653068799505`*^9, 
   3.8551823715626698`*^9, 3.855185914889131*^9, 3.8553306961691384`*^9, 
   3.8553398978709803`*^9, 3.8553432373784094`*^9, 3.8553440716935873`*^9, 
   3.855352799140373*^9, 3.855449659826955*^9, 3.855507657835761*^9, 
   3.8555084580426683`*^9, 3.855512946834628*^9, 3.855533375719718*^9, 
   3.8555789742695975`*^9, 3.85559334586887*^9, 3.8557506564982786`*^9},
 CellLabel->
  "Out[426]=",ExpressionUUID->"e73976da-9251-40b7-84be-10f49fc374fc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", 
   "\[Kappa]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}, {
   3.8329497659203863`*^9, 3.8329497726326275`*^9}},
 CellLabel->
  "In[427]:=",ExpressionUUID->"87e8f704-a2f5-402f-bf10-b711f1336713"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdQVNf7/x8L9q4IigV7L7GXxBp7NzZiR1CUKBFBRVGwxN4L9t7FFoll
sJtY42gUjToxoozGyBh1NH6Tz+TzGf6vP2dy5/7u3V3u7t5d0Jz3jA579+69
pzzl/ZzznHPK+If0HJ75o48+GpeD/3oOndAyNHRoxOcF+NB7zLiRI8YEBnQY
ExY4IjC0kX8WLp7iXxB//P9/p0hISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISHxw+O9///u///3Pba/7z3/+47Z3uQcfXo0kMjjc
rLMSEhISEhJ//fXXxo0bGzRo4OHhkT179s6dO1+4cEHtjJKTk8eOHRsTE2OK
h3r27FlYWJivr+9HH33k6ekZGhr65MkT9Q0//PCDn58f/zv/Lvfgw6uRRAaH
m3VWQkJCQkJCIDExsUePHv379z9y5MitW7c2b97ctGnTzJkzt2/ffs2aNXFx
cdOmTWvcuPHq1av//vtvJ9+FC+MtTZo0mTJlyuXLly9dujRz5kwfH598+fKN
HDlyz549sbGxAQEBrVq1unLliim1czXcVqPXr1/fvXs3ISFB3wv//e9/k5KS
rl+//vvvvzvzCon3Be7RWRsiB168eHHz5s2HDx86UY8PFi9fvjxz5syJEyfc
3z4EFEQQvBrBcPOrJSQk/g3AvoWEhOB91IMS8BCutGnTplChQlWqVOGGX375
xcZD7t+/HxERce/evTRfd/XqVdiU5mm4pwULFtSsWbNAgQKffvrpsmXL3r59
q/8t9hB3CTvifsP1czmcqRFtfuDAgdmzZ//xxx+arzRNSjeFh4cXLlwYevDq
1SvNzXQW17NlywZHNa9mElq8e/eOHoEspW82gjM6a5bIQYcGDRqUI0cOf39/
58PJDw/ffvttwYIFiRZ37Njh5lc/f/586NCh1atXRxhc8Xxhh2/cuKEXoXRH
BtFQCQm3AWqBPT948OB7N6+0c+fOWrVquXQSFre4ZcsWmFj+/PkvXrzouhe5
E1hg3G6fPn30TFjfpLiDjz/+ePTo0TSF/lFLly718fExQt0lHMOff/45a9as
kiVLVqhQISkpKb2L4yBMFLlbt255eXmtXbvWtSV+PwFv7NGjB62dXgUgiOjZ
s6fpj0USNm/ejJxkQDv8YWiohIRd+OWXX+rUqbNixYr3jje6B5is0NBQ4uhn
z56ld1nSAVeuXClSpMi2bdv0XxFc+/n5tWjR4s2bN+4v2L8Hf/zxR/v27bt3
746HSu+yuAM2RA5s3brV09NTpuxaxIfKG1NS7fC4ceMI4TOgHf63aaiEhIRt
vH79unnz5hCkf+ccxOrVq728vCzmLP3666/VqlULDw+3OC4kYRYePnxYunTp
2bNn/0siOxsi9/fffwcHBxPnPn/+3P0Fy/j4gHkjwWnLli0HDBiQAe3wv01D
JTI+kpKS6tevX6hQocKFC2MzZVYPLOWbb74JDQ0NCgpSkqlevXrVtWvXIqnA
cJk4Anb37t3ixYsvXbrUrAemI2i6ffv2jRo1auHCherUR4tNmpLqpocMGdKo
UaOXL18SSq9du3bYsGFz5swRKUbfffcdMrl3714bb3z37h00wHUT2UePHsVX
ftjm+vDhw0j1iRMn0rsgjsBckeMiX9lObkQYjh07xsPNlQokedWqVT///LOJ
z7QIZ8qf0XijiY2GDfHx8VmxYoXzjzId77WGSnyQePDgAbHMpk2bLly4oFdA
zC+6+YclcN225YFrzZ07d+TIkW72vASMFgsM0hznp5xbtmzBFsEMO3bsSOGF
B6EdEhISaKJp06Y1aNAA/2Lt57xdU1l+q7+oYM+ePbAjOBJ/nz9/Hjc3evRo
N7gPG6CoGr+p+cgN6jFA5e/jx48vWrTo2rVrJUuWxMIrN1ts0pR/Ms1w+snJ
yTNnzkROJk2aVLRo0Z9++olvlyxZgiWHV1srJxIYFha2bNkyhwckYRQ0+P37
98VHiEdMTMzt27eVG5DhgICAnTt3uk6AeTIeoW/fvq1bt/7kk08ITw4dOuRw
+GavBHJx6tSpGSF1SlNCfZ+q2+R/qUgxW+REcuOaNWtslDM2NhZi6Yo1/tTi
888/tyHwpsCZ8qt5I026ePHiDh060MIKM6fl169fP2PGDIcFGOGnR1Bt8RHd
XL58uRKn68cbnWm0169fYz1Q8PDwcOri6elpLbmRChKDtGrVqmXLls2aNcOv
WXMBRoCoa8RbqK3FRss4GiohoQDeWL58eWv5PGfPnq1Tp06OHDk+SoWHh0fl
ypXrpqJatWrYWDgnRljtagXQApTr1KlTWPVatWq5LWkEfZw9ezalypw5syhz
/vz5a9euLcpMTQncqNGCBQssKj6EDasFw8StcL9+ABYK0bhxY2tG4/Lly02b
NsX+fPQPMmXKRCs1b978xx9/tFjacePGVa1aFZuwa9cumFJcXFyhQoXSMeyl
vnBjvLDSgFmzZu3WrRsNopQ5MjISSRDf5syZk9rRbjQa1xMTEzdv3uzt7Y09
F/fbaNKrV6/CmZGT6OhoXDYWkupv2LABx4T8QKV4srVl5hRj/vz5I0aMUFyM
A8BrFCtWTHAGEB8fD4Xgf/U91AjnKIi96aCaiCsuSTgFWoDYpGbNmrBZi2vV
04S9Eki/tGvXLt1Tp2DOWIns2bMrxa5YsSJhlPoGukZ8lSVLFhR59+7d5ooc
38I2sQ/cY62c8Io2bdoogYbp2LdvX69evRRdMx1Oll8z3ojMDBkyBPP166+/
iisit+TLL790LJRDl9u3b9+lSxchjcI8qtMGLM5TO9ZoUEEkPyoqCjm5efMm
ElWjRg2LfgrZ++KLL7AAolLUsX///vXq1VPshl2AsQ8aNAgPhV1VpD1PnjzV
q1dfu3atPrjLIBoqIaGGbd4ogKg3bNgQ8dakWAg317Zt21y5cs2ZM0c9f3Hn
zh3oB3Fiv379PvvsM/cvbcDp5M2bt0CBApqqoYZ4GdS2XLly0FrNr/AvYsYK
H4Tz5U7NDbZ5owKMTL58+Xi7DR+U8k9yI6YYArNnzx7sEiYdp6bZXjtdsHXr
1myp0DeCSAPD/8bExKi3rXibik6dOnXu3Fm5bqNJV69eDTstVaoU79Jsf4Fx
xh+FhYVZc0B4wCZNmjgzQw1nwx188sknYj8WhHn69OllypR59OiR5k46HXf2
4sULh99lDTjiiIgIjUdISEjw9fWdNWuWM4OcBiUQ70n7O/kuswDfK1u2LHaG
ftGHA4cPH8a9BgYGqjvIRJHjV4TANpIb0XresmnTJjPqahmY0ICAADitK3J6
nS+/hjdivj799FMsvJITuG3bNoIUh4MsQgAs84wZM4Q0opiopzrn0CJvdKDR
KDlNAYUWYal4EWxQn9xIQDds2DDNfpWIHMVo3bq1M6OO/BZXgrR//fXXNrQv
Q2mohISAEd6IgUVHkPDFixfrv8XrhYaGZsmSZeLEiYpJwQhj+YnofXx8li9f
7pKi2wQhZMFUWEyAxw6IrE5lbkuDdevWFS1alIdorhvkjYSi0CqeYHvG+e7d
u97e3njDr7766unTp7af6WbgPfGhdDqdqzHIly9fxuQSMuh/deXKFWq9ceNG
/VeaJkVChg4dSi/QBX369KlWrZq6p2wnNwq7HRUV5Yx7ffbsGTH+2LFjxUMQ
V1xJhw4d9IwFtwJvXLRokbmmW4wkwMwJGdTXaZmgoCAYLLrp8MMNSiBkjNuc
TJ2iAU2Zt+U5RAqIXO3atX/77Tf1VzwfMrlkyRL9XJ5ZIscrGjVqxA3WpgtX
rFjRqlUrV+9Cj3LVqlVLGTs1C6aUX8MbRW42nSI+YsHq1as3evRoh5eW8Hyk
8fjx4+LjnTt3MI/E1MoN1tbF2NtoBw8ezJUrlzKtQ0Ws+SlqlylTJr1UHDp0
iLjM2qp8I8BvYlV4uO1Nn0zRUAkJc+E8b0z5x7HmyJFj+/btykUsFVES8aPr
pnVswDZvTEk9Iw+jVLFiRb1jxUQQYzZs2FBvYzW8kTru37+/a9euWEv12JdF
r03kyG2Qk/Xr1wuuAi/ith07dkyfPh3DxfWME1RSkrlz52LWypYtq15ZQHv2
6tVLz6hTUv3+pEmTKlSokJiYeOrUKfU9+iYVvDQ4OJhf0XS01apVq+BsYv4R
ScMl0YxHjx7FfWhexMPpuISEBGcqCO+l8Xft2iU+Pnr0iJpGR0db7ILVq1dD
Zszl9q9fv+7WrVulSpX0M8gQHg8PDyNDQ85IoEidQv0fP37sTEVgbtgHU3JR
0EqKTd3VO0u/efNm1KhRGzZs0HeNiSLHb7lCR9Ni+mUjycnJKL4bQmDKAzdT
52SaAlPKr+GNwnyJ0UVCOYg9ouXwsDwNTiSIDirjyegmz1fHp9Z4o12NJrY+
K1SokKJ3sbGxRYoU0QfCFAneSBmQCo08ICTFihXr3bu3kVVCeMABAwb4+flB
ApXnWOSNyCHxKWYhJCQEL2OWhkpImAtTeGNKaliUM2fOmjVrKrkuGBBCeyI1
zD50S386g0uRJm8Uk61UasyYMRprI9KigoKC9FZIP97IPdgWPF2DBg2UHBu9
16b6LVu2xEpMnDhRyd4JCwurVq0aDhfj0ykVfEW4nS5MWw+KUapUqcyZM1NB
Ye6oTp8+fYjuLd5PRzdv3hxnTTtERESoZ9v1TXr16lVs9datW1NSOwsjjPXm
4rx58/7zn/+MHTsWj48HmTx5soat8S2vwE04mfCzbNky+kgRD5qdj3FxcZTh
7Nmz+qZATdx2TAYeOVu2bPqRXotwWALR67Zt2+KkYFZEfA4nk3z//feffvqp
ovjOgIIhYGhlhw4dRIYnlCA8PBzCY7EpzBI5Ho4AEEjS9ZD2Y8eOaV7EneXK
lXP1ohUBGDLRhLln+ZlSfjVvFMmHmC/6nQjoyy+/5CtnAiuR3PjZZ5+J/AHB
7ng+fbpnzx4hXTb24THeaCKgULbM5UUIWI0aNSg8rWRQjCFyGARiSYNbNhFb
lShRIl++fKdPnxZX9LwRGzt79myu4GIEUTRLQyUkzIVZvPG3336rVatW1qxZ
169fL65gkL28vPbt28fDZ82a5eYdftLkjSmpu6zkypULddakyVFg/Is+ry/F
yjy1sCF58uRRbILea1MeItzixYsrnFAkN4rsIFq4TZs2/v7+OLtJkyZpJunS
CyLji36HwhEFJCUl9e/fX8+p1PdD8zp37gwf1qwu0TcpHKxMmTJiLBF76JcK
OLxwbXQNQQfskZ9oIn38SOXKlRcuXOhM1URyo6enp0hup0Mh7WKNDCzi+vXr
mvvpIJhM3759XbcJifrJW7ZsQZUGDhxoUGsck0DE7OOPP46MjLx27RoOy2EN
NZE3pvwTgeJhkTTaJCoqau7cudbKZqLIIVf4aBgFDaJZjcVbAgIC+NaxxUr2
IiEhgW6yaH8cg1nlV/NGmqhZs2aQ/BMnTnTt2hX5cWaFWso/yY0dO3YUQQ3B
qY+PT/fu3QkelR6xwRvtajRiRryVYLkou6+vLy/CvmF7bYxvqJf8Q1BxHIiT
wZFAkSOBLZ0wYYKIgPS8ESMDbc6SJQuRi7hiloZKSJgLs3gjOtW7d2/uUbaw
JprDUkE8xo8f7/5hdiO88ZdffkH3PTw8NGkqKDKM1+JUrEXeiKlp2rQpz+Fb
cUXvtY8fPw5HxQgo8Sl2skKFCqtXr05JjTRjYmJ4CExp7969GWe2GkqQP3/+
HDlyYMqwe9bSQdWAYeo9iL5J8T7qZsSWIiRq7oRdtTjnRRnge/o1Tcpz4E7B
wcGUlghdQ/P4iDxwj0huhJzgpzDIkIcNGzbUqVOHP2ApenIo5kPVS0dNgTh/
uVevXpBSPDukZfny5agbcRaqxEeDnsIxCURPqVS7du2++uori6utDcJc3ohU
UBdR/Tlz5sAb0+TqZokceoen1g9sIi01a9bEjlkb/sWSUE6iqq+//lrfDvSF
XSNFYqbGxKlqs8qv5o38BMcBY0RibQ8z8tv169cPHjw4JCTk0qVLmm9pcDFI
yMOJF+CKuIzo6OiJEyeimHXr1h03bhxfiZtt8Ea7Gg0xGDRoUGBgYERERHh4
OCqP7vOiuLg4/c337t378ssvYXTEccOHD+d+TPfVq1cLFChQsWJFg2sYEa1p
06Yh1coyHz1vRDFr166dO3duJQIyS0MlJMyFWbwRi4Rsi5x2xTFxEbOQLizI
CG8UY6Ri6cfvv/++Zs0abqay3bp169Spk8XY3CJvxGdhVbAAq1atElf0Xvvg
wYPZs2fX5EZi69SNQ3lcnXVvL2iNLl260ERFihSJjY2167evX7820qT2Yt68
ecWLF7e4ZoQ3wr7oCGWDC7yVetkslJI+EvsAUKPdu3cjq3hAZWkMHtCauG7Z
sgVxMvH42uTk5C+++AJ9URKreDWNTAm5TuFxGQYX/jgmgQJ81Kwsthfm8kaw
cuXKLFmyQIOh8XaNYrlI5G7cuEFjElnov6LLNm/eTGyl3kFIvUMLSh0ZGWlX
lg5soU+fPpBns3J7zCq/A/t+0xfCxirbdqFHiooh3gsXLrxy5QpX4Ip4ooep
UCZcsJBqcbXBGx1oNJRdnVWlt71QUFhxqVKlli1bpiz2uXv37uTJkxEz5BOm
ajyfE+9JCyCTogH1vJHyVK5cmWAWhVL/0HkNlZAwF2bxRpHByz2+vr76nUzc
DyO8UdkJgRhw//79xI+YUCJuglyLg40pVngjJgVzynOUyVO9196+fTt2hsjR
ydkcUWwKXKFChfKGQY2sDdCliT179mTLlo2WtJbWaA2HDx820qR2AUseGBho
cac1kRVZunTpuXPnUtRz586FhIRQAGWtFmI8ZcoUMUuLI7C9qbge8fHxPE2z
9tlhwFdbtWpFJ2p2gYPnjBs3DiXSD4PbgJslUAPTeSMGhJbBpdq7/YgrRA4c
OHCAx1ocbI+Li/P29kYmEY9r165BM+i7gQMHKuSKZic8set1InWwXLlyZk3T
mFV+e3njkydP6tWr16xZsx07dsBdKUabNm0wR8o6O6QUrwGDQiY7dOgA1bed
tGyDN5reaJiaGTNm5M6de9OmTZrd57iCwKsn14wA3k40hCcVJFDPGxMTE+Go
qK1+P2QJiQwF03ljiRIlzM3odgx28UYCVf7euHFjaGjoypUrbQz6WeSNmKyJ
EyfyHGVTF43XFkvLucHhHXHVePPmTXh4eEt70LVrV/0MkRFgz6lUzpw5LW7I
YxuIjZEmtQv4rM6dOyubLqoBMRbZUMoVMZbSt29fYahhklBKcXhK//79W7Ro
Ydfs4fXr13G+yq4jaQK/g9/kV/rMeWoxYsQI2LgyraxA2YsG0dWnWVqDmyVQ
A9N54759+2D1FjfksQ1XiFxK6mp6ul6vQfQsPEozuUnLo3HC7CQnJ9ObDqQr
I6iFChUyvmMAFaej4WYWeZdZ5beLNyJmUVFRkyZNUheJcopkDHHDggULREYu
lKlMmTJpHsFs+3xqexvNNmJjY3PlyjV48GB9feHY8Enkc/78+cbjGmqaJ08e
RaT1vFHMfSsLdiQkMixMnKceP34894gVdi4oqX0wwhvFikvKbPxgbmv7N4rk
HOV8E43XxkRAaeAJtk9bzmjAYE6bNm3OnDkiIiCWx7ynb5GEKCoxuwKKCmXS
76TBbXQuwsANU6ZMEQNQdMeECRMgGHaNZYk+VTYlThPHjh2D36pzDhVAcfPm
zVuzZk09oxDDJrS2jbNyLMINEkjFIWNPdTh8+HCDBg1+/PFHzXXsgAMrQGm3
IUOGiJFDi9Ta/Vi4cCGWRJ9gtmPHDovMASYgdm6Be1jcPihNwKzy589vMNaj
c1HSkiVLWty13sTyI2MVK1acPHkyIViapcKzBAQE6Nk7vG7UqFFv37795Zdf
UEORSMDfAwYMsDE+jFQvXbrUz8+vY8eO1u6xq9FsA0Zdv359eOPRo0f13wre
iHxeuXLF+DNRhxo1aihb8et545o1a7JkyeLv7+/wBpgSEu6BietiUHzu6dKl
i+kTYQ7ACG/Exvr6+mbOnDkmJsbgY63xxlevXn322WeQgTNnzqTovDbmhY8N
GzZ03QlipgMijU+ZPn06jOvOnTs+Pj7YNPUevOkCsYqzbdu2GhnDCNPIFu3t
1q1bIUt4KyifMwb5/v37np6eUGjjNABH5u3trdl/Uky1oykWN3qiIiKh1PYp
Enq4QQLPnz9fokSJHDqIQyfheJrr8Nh69erZdfgRhGTgwIFJSUnYHIiuyAdL
3+QueoG+KFSokH72ECNjsT3v3bsXGRmJleB/x6ZNoW358uUzfvAK6gChoq30
ttfE8hM28ihUwAhvhCbpd15NSZXwiRMnPnz4cPPmzd98803adUuF4I282kai
iL2NZgMHDhzInj17lSpVLC75EacOYYjsSkAVO+LyQ5G3rOGNVLBVq1bwXmVL
BAmJDAuzeKMYu0MLiG0zwnJgI7zx1KlTefLkKVKkiDIhaGNuUcDGeTHXrl2D
hTZt2hRTo/batEy7du28vLxs7GCT0YBZW7lypTLHJLZMRACoe/qu3BGi2LJl
S+PrHS5evLho0SIonJMGGSeI850zZ45B8abRoED6KXWxGsviOGRK6v4eZcqU
gZ45sNVeekmgWfPUkNv+/fsryW+xsbH4bjypiw4HNw5sWoECBW7cuGHwfuzD
5MmTjx8/TuTlWFYAAZr+jFQbELvWE+VZFE73l98GKCHKeOTIEdM3HLO30axB
WeOpPuJQgRghyZo1q7JbjnFgCnr27IlXio+PV/NG3ohhIfKiB9Oc+YJhYhxQ
cFccRikhYQRm8cYzZ87kzZu3XLly6rNF0hFp8kaULiIigkqpk8BtzC0K2D5n
kIiekB/+HBUVJU4HXrBgQb169Vq0aOG8NVMADYA4Ebd+ZAyYJkpy8OBBg88X
aYGjR49WTzJCuujfnDlzHj582MZvHz9+PHHiROOJefaCnuratWuTJk2MnwyL
jf3yyy/Hjx/v5OpUepBmVM4mSxOCH+KANOYdBfHx8bE4bwg2bdqE+IWEhDi2
B4t7JFADU3hjQkJC37591clpyDklR4BHjRplsTXw4Hv27AkICOjTpw/1dd1m
X3h2WtLiwZoWASUIDw8PCwuzax5Tgdj/GdqvWTNlAxgu4l+Lk6opbi9/msC8
oI9EpiaOMDjQaNaAXPXq1Uu9ykyN+/fvly5dGtV2TOBhffgdHCXNK7KkUPYv
vviCKxs2bEhT67F7/JC+NnG5vYSEvTCFN759+7Zbt274OyK+jDDYmGKAN4qz
s4GG5FicW1Rg5HxqCAPOGoqVK1euGTNm8CJz2wSrTiGHDx8eaBihoaHWaqQB
RcUX+/v7a8YV4ZBt27YVa4j0ufdQo0WLFnXv3h1CS8WNTz/ZC14UHBxsbf7I
Ih4+fNiwYcOYmBgnewHXjDgdOHBAU55vv/125MiRQUFB1BpSrQyhXLp0CS82
adIkXOSIESPwlWLsgvKULFmybNmyep6DXEHAKleurF5ZBs/k4cpm3egadbG9
4tLVEqiB87yR2vXu3VuzYJ8y47iJj0qVKqU/Qendu3dwRRgRjvj58+fDhg3z
8vJyeNMA24iLi4N3HTp0yOD9Yny+f//+SuRFWA0Vad68uXqaFcvDbXpJFuNd
lSpV0kzxU1MMLDwZUgcJhCUKiaKh6OUSJUrQXGPGjIFma1rS+fKbi+3btxMR
mLshobVGcwBUv1+/frgz/UJ4mnr69Ok5cuRQ9yOiGB0drVzhHmwChsKG0mFC
uYfSCot68uRJ48ld4rhM2KYcb5RILzjPG9EytCZLlix4NxMzGyF+kydPdjjJ
2TZvxMfBcPLmzauxDNbmFhUY4Y0pVk4HzvjAEEFvevbsaZGVbd26FVtKva5d
u2btCWI5g+t4I4Cg0rDGRxWQcJyUjXQFg9iwYQN1V0cZSPvEiRM7d+6cmJgo
zh/JnTv38ePHxbcrV66E8wwZMuTFixfIG2IjNtCD+LVr146ARbMFpaBJ+fLl
02RwQRXEQTbiY3x8PNXXnI2ihzsl0EneiKp27NjxxIkT+q9oIl9f30yZMumX
b8CFcO7KS2ELVatWpaNdkUJMCYsUKUKHGrwfM9K3b1/NYdC7du3Knz+/Mlwv
DmOyuHj2r7/+Qgc1yRiED4gNVFkcpV2hQgVlp1zksFOnTkgOLJrHwidr1qyp
VhBTym8iUIQePXqYm7ZqsdEcxpIlS7Jmzarf8fLq1asoIzG7OnZOSEggZlG2
ThW8bty4cbZ5HU+gQzXnUxsBzhq9dtuZpxISehjhjTi+Bg0awBs126mhF7gM
bD7x19SpU00kjRgBsR8dvsCxM0/Pnj0LLVQWrynAqkCNypYtW6pUKSI+jTOy
NreowCBvFG83a3Gfe4ALHjt2LF2pnBSpAUICFRF7uVhbYOIG3njmzBlPT0/b
0+Vq/Pjjj/7+/k46KXGIrfqwFSQH54ITEbojBiJKly4tlpyLJCjch7hfbB/U
oUMHoSP79+9HPNRDoPyBI/D29saJqGVSnIeoBDLiLdaWzarhTgl0mDfiOlHG
4sWLW9vd5fXr1yJirVGjRlJSkvqrpUuXcn3evHniIz/v1q0bcaJZezaqIc4i
Mb7rAkZm6NCh6lCFjps5cyY2R0njEYYXHqgflRK54uptr2gH5KdNmzZisTzC
gEggGEINEQZEIiwsTNx/7949eIWa9TlffnNBKGScxBqEvtGcAU1arVo1JErN
Qu/evQtXp9k1Gx1s374dw6goGn/A0tPcB4BOadiwITJsfIsGAUwEZkfu8SiR
jrDNG0+fPo36EHmJTLksWbJgoKqlgoAX6wQBGzlypA0Lg65NnDgxMDBw8eLF
+DIbQ1VqoEfz58/H8cEb7TqhA6OBGqJWSnZfrly5KlWqJMqMW4dyYF5wNxb3
+bc2t6jANm+kqBDsQoUKqXMLsSH8xEbKH55uypQpkNXIyMh0WQIQHx9fpUoV
sSoW5M6dW9krWwCnDFdUbqBStBK8SD8q6wbeSByBVEybNs2gsd29e3ea+8Kl
iTdv3kBghg8frnhecUw23lzZxRcvQwwlmKEIQMaMGSO8mHBqyvZBPATaA1/C
1x85coQS9u3bFydy7NgxTTnFeYjKrow8XM0/9XBMAtEFykNpIyIiNm3aZO8Z
3A7wRupFW6HgSiHh9pr8h9jYWEquVASxpA0VS8UTUE8lqBRn+/r4+LhifJX+
CgoKsjENoQGxA7xLnelB1bp27dquXTshAFgVGA5hiMVJVXqKiqgTkvkbO6bk
1mJUuUFhhkePHkUflW29xT6B6tw858tvIqg7ts50Q6dvNAWOGVhUCavYpUuX
Xbt20baoBmZnzpw5mvFMFHP06NHqjUahxF5eXta2kaRV+/XrV6JECZypWrZx
UjZyaRQ3umDBAoirTG6USF8YGW90DKjAoUOHiHMxayjXmjVrMH12xYM8YcOG
DcbTuZ2HtblFBQbHGw0CE7pkyRIcPdaMZsFuNGnS5L3e9NUNvJGGgkdBEowk
X+Ex8Rdbtmxx8qV4AUIkdb3EHm6LFi0SH5OSkoiklOEj4iMiFOXAFzFRqNlz
++HDh/w8JCRk7ty5+HqLOzYj/FACPJf4KJbNRkdHm5iviOw1atQImoE0Uuw6
deooxwEbhOn7fjsAyoDgwY5ctPcdlL5UqVIGw17kZNiwYeqSPH78GDMrNnEC
69evr1ixojXLBj8k6FAoMTKD2SQWUBICBaMWPxe7uxARKzmxmBQsraYTnSy/
iaBexD6mL5/UNJqAkwYWC4PBHzdu3OTJk/fu3Wtx9Te+gGcOGjRINBf/8zdX
zOJ1Gje6evXqnDlzKgGphES6wHW8kQCQqGrevHnCx4mhPM1Alm3g9GfPnn3v
3j3Ty2YRtucWBUzkjcJ9FC1aVGy4B20YMWLE8OHD3+ujSN3AG1NSSUK5cuWM
DESLLWicPFSaniLMb9asmXoEZt++fdRU8c4nTpxAvKk4rvn8+fPnzp1D+BXP
Dj/kZiO73mmwbNkyHquM5x8/fpyPcXFxV69eNWVTnTt37tCSkZGRwg0h3lTT
3hWp8JlevXoZP6jXdPDq9u3bd+zY0XX7o6LyzZs3t7bRjRpio4aZM2eq7yTK
oOPQDr4Vq0KsLeGBq1AX9TahmEFYnJIJKVImqlat+uTJEwgk/8NqlLFEkT0L
b9F0h5PlNxEnT57s0qWLucNl+kZLcZeBJaIkQlTiR3xH7dq1g4OD+WPHjh2O
7YqghvNuVELCdLiIN6IvKKmXl5eShrFmzRpvb2+7sjKSkpKioqJMyXM2Attz
iwIm8sZff/0VX9C1a9eMsE26WXAPb4TSY//pqTTNMma2ZcuWTg7hIhj45U2b
Nqkv3rx5UxmBxAl+/vnneCjEe/78+ZC6hw8ffvzxx2L1ChcrVao0Y8YMe52I
SG7EKwkih9R16tRJrJHBjzi/2RHl+fLLL3mgwbX2GRPYhyFDhnTr1s3VA/V7
9+5F99NMt0YY6Cb1cJ+S3EhAQYMPGjTIxkmsyAySo9m9k/BBGUyj3319fQlp
Hz16NGnSJF4HP4EoQlR40bp168qUKWMxQnG4/CZCNIWSd2EWLDaaewysOPZd
pGtSqYULF2bLlm3t2rUEkppcZQdgihuVkDAdLuKNGDEU+bPPPlMSuvz9/e3a
dg8dxFoqSTtugJG5RRN5o9h1fMGCBc4/KuPAPbwxJXW9MOKU5v5yq1atGjx4
sDMzblj+pUuX9u7dWzMtjlSsWLGiQ4cOEEJsO6wSgR89evScOXP+/PNPfsWV
Hj168JH/t2zZ4oCjFMmN+fLl69ix4+zZs+HJGzZsqFOnDn/MnTvX3ixEPZTI
yG2hmemgESIiImgQ0TvUyOJ0vynAlA0cOFAZ+bEGJLNp06bqeVjEz8/PD+I3
depULK2Nn1MLAhDkSnMPBge2GRgYSGXDw8PpfbFiVxwtza9GjRoVHBw8efJk
fm5tfxuHy28ioHB9+vTZunWric+01mhuMLAiuRGiWKNGjejo6LCwsMWLF/ft
27dnz570jvOnslpzozK5USJ94SLemJSUVLFiRYV0ia0JRo4cyR+7du0yMvBy
4cIFfKXzztE4jMwtmsgbiejz58+vOS+Y5sogG2A6BrfxxpTUjU369etnw4Qi
ZiEhIUTozrzlxo0b7du3tzYi9/r1azyskGd84pMnT9Tdh0dDERzuUESRyGX3
7t1oDW9RlsY8ffrUFCERvHTo0KFqfeTJ70vqFHwMVjBr1ixhJfg4ZcoUl547
8PPPP8PhbUcrhw4dgp45MMZFy69cuTIgIMAajRdHfou/X7x4oVm3wldppgq4
tPxGQBXQJue35lZgo9HcYGAxPrC4IUOG8Mf9+/dFGXgFdsAUz6V3owR6MFXj
blRCwhWANxYrVkyMk+j3pXEYaFCXLl0gisi2OLQue/bsMTExJ0+eXLVqlZG3
uJ8+2ZhbxAjAGGkiiAqaawpvfPz4MVGqeruM69evjxo1yrF9hzIIcDp2nU3j
DOgauH1ERIS1ISYED6/hzD7A/HbAgAEiP8r9WLZsmY+PjwMHDhoERGv48OHK
kvCU1HGt8ePHp7k5ZEaASH7Ga8MVo6KiJk+e7O/v37VrV1enWX7//fd9+/a1
MdEMK3Ms9fTYsWMwEFfPtruu/EaQnJy8Y8cOE0cDbDSaGwxsQkKCt7e3k5Gp
DejdaI4cOdatW3fq1CmDblRCwhUgciFYIwjt1KkTXtjEoQbsT6tWraZOnRoc
HLxkyRIYV48ePcaNG2fDZKUvbMwtor8TJ07slIrIyEizMqtx0G3atIGdzp8/
f8yYMbi/95Q00nTbtm2j0SpUqPDRRx/xP3+bOxtlEeK4FtcNMeFAjZ/qay4g
df3792/RooWLzuwQwLf6+fnhTOGoEyZMQAjduX2BMyCOy5Ytm+ZITWv7QJqL
W7dunT592vRDoGJjY92ztsgV5U8XpNlorjawcGBPT0/NFsHm4r1zoxISTgLf
h08Xjk+M3rsu+8gsODm3aC9olkePHpk18yjxwQBNgcht3LjRDYKB533w4IGL
9l2RkEhHuNTA7tu3T8mtdR3eRzcqISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEh4U6878dwS0j8GyC3gpeQkJCQSEf89ddfGzdubNCg
gYeHR/bs2Tt37nzhwgU1gUxOTh47dmxMTIzDrJJXJCYmXr9+/fXr1/pvX7x4
cfPmTXlEl4SEDTx79iwsLMzX1/ejjz7y9PQMDQ3VHPL+ww8/+Pn58b/Dr0A9
7969m5CQ8Pfff2u+IqhMSkpChX///XeHny8hISEh8b4DOtejR4/+/fsfOXLk
1q1bmzdvbtq0aebMmdu3b79mzZq4uLhp06Y1btx49erVeleCi5kwYcL9+/c1
19++fTtv3ryDBw8KnonH2bJlS82aNfPnz3/x4kXNzdDFQYMG5ciRw9/fX/8K
58Ezr169Gh8fjz91xfNtALYMAz9x4gQN6873SnxgQI9QzyZNmkyZMuXy5cuX
Ll2aOXOmj49Pvnz5Ro4cuWfPntjY2ICAgFatWl25ckX/2wMHDsyePfuPP/7Q
fIXmRkRE3Lt3T3x8+fJleHh44cKFsQCvXr3S3EwBuJ4tWzbe5aJqmgWp8hIS
EhIuAp4iJCQEj6AeSITmcaVNmzaFChWqUqUKN/zyyy8Wf75jx45atWpdv35d
cx0qWLdu3WXLlimP5ZmhoaHVq1d/9uyZ/jnYWC8vr7Vr15pUrf8Hv/32W+XK
levXrz9u3Di963Qpnj9/PnToUGpNY7rzve8LxCj0jRs33NwvRpChhtdgQfBD
jRq+fv16wYIFhGMFChT49NNPUTfiNf1vaWQisj59+uiH+nfu3In+qscnkdiP
P/549OjRVF//qKVLl0JWFZ6ZYSFV/t8AnAsdffPmzadPn6Z3WbTIUNZDQuI9
BT6refPmfn5+FlOztm7d6unp6cz8mg1gW3j1Tz/95IqHGwEkvGfPnun19gwL
TOvmzZvhLRZHodMd79Hwmom4cuVKkSJFtm3bpv8KzUV/W7Ro8ebNG9PfCwfY
u3dvZGTk4cOHL126dPDgwcmTJ/OHY0+TKu8A7t69S2i/ffv2CxcunDx5ct68
eevWrbMYPmQQwMq6d++eNWvWadOmZbS0/H+n9ZCQMBcYpeLFiy9dulT/1d9/
/x0cHFynTh1CdVe8WjqRDAu80rhx42rWrGlxFDrd8b4Mr5mI1atXe3l5WZxj
/fXXX6tVqxYeHu4KLsEzJ02a9NE/yJUrV1RU1Lt37xx7mlR5B3D27Nm8efOK
9s+UKVOnTp0yfsJ5fHy8p6fn0aNH07sgFvAvtB4SEraRkJAQloqff/5Zff32
7dtTp04dPHjwt99+q44B9+zZU7hw4e+++46/z58/HxQUNHr0aPHbly9fNmrU
yEXJjSnSiWRgvHnzpmXLlgMGDMiAC4RdOrzmHkDG9u3bN2rUqIULF6qnsLn+
zTffhIaGoobquW8UcMiQISgjKvnnn3+uXbt22LBhc+bMEVO9KC8qvHfvXhcV
df78+atWrdq5cyemw8kQUqq8A6B/x48fv3//fmw1YX5GG8HTgxLOnj27TJky
iYmJ6V0WLT4A6yEhYS6ePHkyYcKEBw8etG3bdsyYMcr4w82bN7mO0V6+fHn1
6tV//fVXcV0MK1WtWjUpKWnXrl1LliyJi4srVKjQihUrUv5JblyzZo2NN2Ii
jh07hrNzwJplQCdCgKzh1a6AM41mG2aVn2CckFyIQUaDS4fX3IPjx48vWrTo
2rVrJUuWRAjFRXpty5YtMDQ8WseOHUeOHKnEayK5EZ6ZnJw8c+ZMunjSpElF
ixYVuoPa0lkwChtvfPfu3erVqx0YY6GRKeq5c+fsr6UFSJV34EXwRuILN0g7
oUpMTIzzeaeENj169OjUqZPD49KuwwdgPSQkrIGwSLMiRnODegzwf6lISU1H
PHjw4M8//0ysN3/+fHERLZ46dert27d5COwRrVF4o0huRMeXLVtGMMsN9+/f
nzt3rthFBC9WpEiRq1ev2ihnbGysv7+/YznGeieCnYmOjqYkSr0w6QcOHHDM
qp85c6ZXr168QnlgSmruzbBhw0TCtt6JvHr1KiAgYOfOnS71I840mm04U36E
ATHg5xjVxYsXe3p6WktuxL+Ehoa2atWqZcuWzZo1Q2BevnzpcJkRdY14U3gu
Whvldunwml2gnJpCaj5yg7pq4m/8cmRkZGJi4ubNm729vWGP4lvUFjbIt5DD
unXrBgcHK09DB6ky7Yx2EM3xWOK7DRs2/PXXXzRU3759EXKL+2gJoFZhYWF0
rgO+UvDGU6dOIQzbtm1DfZyZfZAq78BvEfgFCxbA+Qnt4+PjXTdQRgsQtoSE
hDhAHZETOo5gJygoCMEuX768teTGt2/fEpC2b9++devWjRs3HjFiBL7J4TL/
nQr9RWsTJRnHekhImIsTJ07UqlUre/bsSlpRxYoVz58/r76haNGi4qssWbKg
pLt3705JNcLoy/Lly318fBISEpT7hakRk499+vTB3Yjrd+/exXPlyZPnq6++
0qx9Q/VGjRplO7kRV9KmTRv9bj8GoXcilNnLywvbJT7yagowbtw4h2NDLG3+
/PkPHz4sPopKKYvHLU5a4dA7dOggJu5dAScbLU04Vn6oYLt27aKionAZN2/e
RKJq1KhhMbkR2fviiy94vugUYpD+/fvXq1fPsUEkPOmgQYNKly6dNWtWRdoR
SPpo7dq1Fv2OkeE1NwBZwjOWLFkyc+bMothUoVu3brA+cQPtAz/08PAQ3+bM
mRNpFxkgb1PRqVOnzp07Kz6aB4q/YZKQdpyv8q7Vq1fzllKlShEYanw67V+1
alVooTUdERPNeGfHBn/4+fTp07t27Up5EN3hw4f369fP4axXqfIO4Ny5c0Rn
X3/99YULF1auXNmkSRO1LzAXuAZ445w5c+xqf0Rr4sSJCDMtiZdBQpB2ZSBd
jSdPngwdOnTdunVCjHkd3grB3rFjhwO8nUIuXboU+c+dO7diPdC4MmXKEAtY
jKQyiPWQkHARcDFly5ZFEXDTepuPYcS9BgYGPnr0SH0dZRHk8M8//9T8BMOF
yixatEi5QthF8IXO4hr4av369Yry4tAbNWqEjlsbXnj58iWGYtOmTQ5XUO9E
tm/fTnmU1Zr8UaRIkZ07dzr2fOoyc+ZMjJKSKvbgwQMYEexIVNNashNvJBx+
8eKFY++1AecbzQjsLT8yQ6lwbcLSvnr16pNPPoEN6mP2pKSkYcOGadLyoUA0
Y+vWrZ0ZdeS3jRs3RtrxjzY8iJHhNTcDLpctFWqmJyBWliHS+um/K1euEPpt
3LhR/0C8Kl/B3pWHoIb169dHXNHratWqqVfHpDl+AmmBaTizCgAeq/Q4NLVm
zZpjx451bNRRqrwDgPEqxz3Q7KNHj4ZaK3NGpoOma9q0qXFqSsEgY8WKFRPb
bvARb+Lr66tPbkR5p06deuDAAc3PCYvwPs5s3cBDeDLWA4JtwzJkQOshISFA
EGTKFCTPCQsLQxdq166NvVV/xfMhk2ir3nqfOXMGO7xnzx74pLK/t0BsbCxf
KalK4vm4IewScV+nVMA2jx8/DsPEbeG80Gjoqz4th48rVqxo1aqVMzXVOBHK
g0lUV5bg2svLSz1waheoS9euXdu1aydcNkYjNDT0448/Vs7ysOZEIE44EQi2
uVNXpjSaEdhbfuQkV65cSjYjwThmfPny5fo7EblMmTLpo4lDhw7ly5fP4i4x
BkFnUWYebnuz0DSH14yDWMzitor2QgyRoadIl6ZUly9fho3j9DU/EYuUK1So
gG89deqUQhFTUokBzLxhw4aKkIjnwz/5FfQPrVy1ahWF3717N4K9ePHi4sWL
o0RHjx69c+eO5kWC0sOazMrmEp63dOnSji15kCrvPIhTcuTIAd8264EaUOZZ
s2bRjAbJFW1buXJlZeScLujWrVvHjh31Yx3IOUEBNP7x48fq60+fPq1SpQqB
qjIR5gBoZ3SQYtt4iInWQ0LCXFy5cqV169ambGBCBAfT8/Dw2LFjh3LxzZs3
o0aN2rBhg97ECZWvWLEipBHKp94GAU0ZP3486qnMR4vkxn79+mFdUXkcnL+/
f3JyMh4NMw579Pb2Pnv27Lp1644dO6Z5Ebc1btzYIrUwDo0TITBv0qTJoEGD
xDAX//M3V/QHZBgE1gkbRRwq8j/Xr19Py6iduI3FlbQe7szcfWtNaTSDMF5+
sfF7oUKFfvzxR3GF+ALzrmc7YmABgeThGtkjuChWrFjv3r2NWH6ikgEDBvj5
+R0+fFh5jkXeiFjiynFDISEhYjDTrPQkoSnOzIeqHzV37lxKXrZsWfUi6Fu3
bvXq1UvNCRWgwkg+/BCRiIiIUB9KKJIbg4KC1MmNdAdsISXV89LOdBAX582b
h46MHTsWkom+T548Wd/dkFJk3mEalpI6XImJUJIwxeBnwYIFFWmxC1Ll7cWL
Fy9GjBiBEVY0BeHPli3bggULTCqjBdBBBDUEg0Zujo+Pz507tzKNlZSUxG+j
o6P17gl35uvri+JrUjQxGt27dy9RosSDBw/SfB02gf7FJsyfP1/9HD1vFGuR
eB1qKMZCZXKjRIbF999//+mnn5oyj4Az7dOnD+rQoUMHMTZCEBceHo4hsubv
4Hv4EZwRiqyeqtYnNyYmJqLgWMuUVBWLiYlp2rQpbgi14iO+rG3btri2yMhI
feCJ5ypXrpyTWSIaJ4J38/T0VOzP8+fPMePBwcH8AW12YF4Mg4aVgJzQVoTn
9erVw42qb7DhROA2OCA1XXcepjSaQRgvvxjgUhLAaCsErEaNGjhQCmxQjIW/
pr8M7tNCbIWbyJcv3+nTp8UVPW8Uu3lwBc+rDFDYHl4zDh4+bdq0L7/80pQ9
pmjtUqVKZc6cGV4t3CVEGl27fPmyxft5KTSvc+fOYWFhSKn6KxwcLFE95U0n
lilTRlQWLfZLxZgxY4Qg0Q7169dHbfmJxlNDw+jZHj166FNWjGPZsmX58+eP
i4sTH7EePFA/ZGQQUuXtxe3bt2mir776SmkNOGSOHDnUC39MBwJDDKjwedvY
t29fgQIFvv32W/HxxIkTFJh2JtYwONktgpFcuXLhvIzc//vvv8MPcYuTJk1S
/KCeN6J9hMOUTRk/Mct6SEiYDhN5Y0pqHmPOnDnxsGfPnkUjoqKi5s6da9ui
wi310yJiZxUUR7mClyGYVfsarLr6h+K4KItLuQMCAmCVTk7zaZwIdt7Dw2Pl
ypUpqexl4cKFhNWwCAyRtSUSNqBkOmG7oAfYQP1muTacCFEtXL1v377OTJ2o
YVajGYRd5Ycb1KpVS4y0XL9+3dfXl/A/KSkJs2xj5Ee95J+2hQdCbwzSCeEp
sPMTJkwQAqbnjVThs88+y5IlC45SXOFO28NrxmEubxSLL6gOZUOnaLr+/fuj
sLZ/xZ36uTyq7+XlpR6lpAfViaM0Ao2s7laazmJinphARI8cqdI/QB6mTp2q
lBNthQh9/fXXjo3TSpW3F8TsEydOVDbjpSOIR1q3bu3qXBdsQunSpa2dY6sG
slq2bNlvvvkmJXW6//PPP/f29oYqz58/38ZeHHS3Qkr5g0ohCbt27TJYPDHo
WrduXWUZmp43Eo9whTBHXDHRekhImA5zeSMuo2nTpsi/2OkX3mjcrIm9EQ4c
OMAfGGd4o2OzSxo8e/asZs2a48ePt+Y7sDaUE9eJf9G3A15DzC+onYjIdMIU
1KhRIzo6OiwsDIqLDcfIjxs3TpNMxc2nT58ODg6Ge+B6NA3Cx1u3bv3f//2f
n58fdAiv98MPP1j0QTaciMhAq1q1qln9aFajGYRd5UfGcLKBgYERERHh4eEE
JmJNqzLKpAYBCE4ZRjdw4MDhw4dzP72DgyCur1ixonrK1QYEbUOqla3F9bxR
jD7lzp1bPSJnY3jNLpjLG1NStT5//vw5cuSA5SKWFheTWgPcYM2aNQgt1KVb
t26dOnUyJbigDJ6enpoBNwVGlIh7aKidO3eimxCDTZs2YdmQK33xXK3y/Hz9
+vWDBw8OCQnRn3LIY6GIYkvnD0/l6YgRI0Zs3Ljx8OHDKB3ioV+abaR97Cr8
mTNnEB7BBm2D2sHZoNwzZsygnAiJOEgdb6Uf6Kac0Ll27dpB54KCgjAgxAgi
YwpJ2Ldvn8HiXbx4EXUjwlWWhWp4o0i/4Yo6F8Us6yEhYTrM5Y0pqbniWbJk
IRwbM2aMXZtpiD1OMSboS/Xq1dXLpZ3BjRs3ChcuvGHDBv1XPB+VRKPVOwip
l09iwSIjI8UoltqJcKVJkyZDhgzhD6yicEzoOzxE49EwMkTxEAzlFVRQvVgV
b7hq1SojNbV9eMSWLVsKFixo1gHNZjWacdhbfgJwRWhfvHihH9CAYolNM5Yt
W6aMFdy9e5fgHdqDfGKTja9IhSRQU5yg6F89b6Q8lStXzpcvHwql/qG14TW7
YDpvRAK7dOlCjYoUKWLv0bfwAVg3MgB/qFu3rsWUSAcwb9684sWLW8wZs1eJ
oECEn/v3709KStI8yg0qD3GCDSrPz5kzJ7KtlE0MVF65csVIm7ynKo/Zh8hB
7wn89RJrYvsogNOWKFHC+AHTSBQ/EWWjtHSi/ocQWog0PFlZBkWn8wrYaZky
ZfLmzZvmEL0CqkxPoWvKRgEa3khJIKVcEcmuyg9NsR4SEqbDdN5ISFWhQgWM
/KxZs+wiftyM/SeIFvt+m1UePAhuzuKISlxcnLe3d2BgYHx8/LVr16AZhITE
yIojwPSJrSZT/l8nkpCQwA9tn02TkjqjQbRYunTpuXPnXr58+dy5c8TXFEZZ
XYjvmzJlisGt0mw7EarAk83KIzKr0YzD3PJjh2fMmJE7d+5NmzaphZC/xTAU
JtrPz8/4uYT4U6Kh1q1bK8swNbwxMTERjornNVF01cU2lzempB7ZmS1bNtyZ
tbRGa6AFNm7cGBoaSoRo1vwj9UKiLG7Caa4SuVrlYSD16tVr1qzZjh07YGLo
UZs2bcqXL69MofI07JvBHM4PT+XNbR8F4ogiWL1ZCgIn9PLyGjBggGZDKhhg
7969c+TIgbIbHxQlGiImUq/P0vBGMfjMFYJcU8ovIeFSmM4b9+3b5+PjY3FD
nnTB6tWrsYf62RBMTY8ePTSTm1itli1bih3nkpOTw8LClCqonQhGz9PT0/bZ
NCmp60O7d++u3rJSRO59+/YV5ggniDc0mHxl24lcv36dai5ZssTIo1JSPTU2
nF9ZXBtiVqMZh73lt43Y2NhcuXINHjxYnyYhFlQin8oRRUZARJMnTx5FpPW8
Ucx9Kwt2zIXpvPHdu3eQsZw5c1rckMf9oJs6d+78ySef6IepTVQiV6s8ZYiK
iiLyVdMeCjls2DCxSJkbFixYoKyuShMfmMqb3j4K3r59S3mgoKacFUgMWK1a
tQoVKugTJpVtrFq1amU8FefFixd169ZVL6XR8EaxZQH6qCzYkZDICMDY/v77
7091OHz4cIMGDYiDNNdhkg4cEXXs2DGCPjGTlS1bNod3xDURCxcutLgRB47A
InOACYidW+Ae6u2DMIzQhqCgoE2bNu3atWvMmDG22weDgGvW7w+DnQwODr55
8yY3TJkyxcg03+vXr5cuXUpA2rFjR2v3YMkLFy48Y8YMg1yInsJNe3h4WOwj
sxrNOOwtvw1g2+vXr4+VVu/spEDwRuTTrrkw1KFGjRr8SjAHPW9cs2ZNlixZ
/P39jY9hWgQ/R9I0yoi7Dw8Px70+fvxY8xU01d43Iniw0Dlz5ojNh8uVK+fY
9oYmAqVonQrN8I6JSpTiepV/8OBBQECAfgw2ISFh1KhRcBt4yIQJE4ykg36Q
Km9i+2iAPrZr185i3GEv4K4TJ05EL0JCQvTBiBjYTHPDfw3E/uf8SpmD0/DG
u3fvFi9eHKbq2MJ/CQkX4fz58yVKlMihgzhZDI6nuU7sU69ePYMLBwQI/AcO
HJiUlIRV7969u8gHc/7ceWeAkqLghQoV0s8e4muU1W1q3Lt3LzIy8uXLl/yv
1mIi2XXr1uGkcCJGFvtgymAmFn361q1b9+7di7XE5htx+sKJ4OVtzEndv3/f
09NTkx5jG8T43t7e+h0eTGw043Cg/NZw4MCB7Nmzqzf/VEOcgtesWTO7XIzY
9pAfis00NLyRDmrVqlX+/PnTHCpBciBpN27csKgX4pi8vHnz6vU0cyr01+HA
8Bnj45DcCQ3gLZSErvfx8YHupvvsGA1Ij7Rt21YzXmSiEqW4XuUJLizul0It
oCIPHz7cvHmzkbUbKR+oypvYPhqIkyAaNWrkzCFQAri8SpUqoVkWN4SE4Hl5
eRE/2pvdgRjTWQ0aNBD5imreSOMTxGFMJk+ebHvY3Lb1kJBwG8yap0Yv+vfv
rwzsE4Tiu/Gk1s5RRVmuXr0aHR1NgDly5EiU1MmBGmsgjkbN0TWD92N50N/j
x4/jXl00f3fx4sVFixZhwx2YkbEGDDJmH/tj0InQ2pB8axG6+xvN3vJbA2//
6quv1Guf1eAK17NmzarslmMcNFTPnj0LFiwYHx+v5o28kWITeUHGbPM37sQz
1qpVC72wazmDWfPUYqcCZaJQbJlIWzVu3NhIpiI8DYU1McdSgRhvbNmypfGx
JhOVyNUqT/dRziNHjohDCsx67Puu8gqcbx8x3tiiRQsH5sg0OHbsWK5cucqU
KWNxEH7Hjh0eHh6ff/65vRPioo74RBqNjlDzRlxwsWLFCDxtbyfrsPWQkDAd
pvBGov6+ffuqD3ogRK1Xrx6qMWrUKIuOBh8UFhYm9uj+4YcfSpQoERIS4syW
v9aAZ8ce6qe6rIEyhIeHUzZ71/QZB0ErHGD8+PHOz6oooA2ppnL6XprAPmOC
oFgWbb77G83e8lsDNrlXr14InsWdAO/fv1+6dGkq7pjAI64RERHlypWjpnXr
1hWTWV988QVXNmzYYIRQ0drjxo2rWbOmXWmQpvBGkRY4evRotW+FdOXNmzdn
zpyHDx+2/XNYiq+vrziwyeEyWAPeEx/apEkT4+NFJiqRG1SelqeokHYTN1R5
31VeDSfbR+QHEso570EoiXoFnBo8HDeXO3duu/atUkCz4/WqV69O+CnitaZN
m0ZFRWGRgoODjaybdsx6SEiYDud5I764d+/emnF71B/HnTlz5lKlSumXOoo0
+KJFi4ppET527NjR29vb4KJIuxAXF4c9NHgKVco/gzD9+/d3PnS1hocPHzZs
2DAmJsZEJ0KYXLBgwQMHDqgvii0xR44cGRQU9M0338ANlHD+0qVLhQsXJsDH
XI8YMQJrqeYDzjcaEsV7W7ZsGRoaqhhzXDxES38QpLXyOwBKArfx8PDQL/Ck
tadPn645veLdu3fR0dHKFe4Rm4ja6Bqqwz2VKlXC8vfp0+fkyZPGBx/EQUgW
x0JtwHneyBOoo7+/v2ZckfK0bdtWVMSGz3379i0MoWzZsi7ijQgqrtNaaoFF
mKhEblB5cRyMKRvSKshoKu8MNO2DnC9evLhDhw74BWUOSxzFOGPGDL0WCEoc
GBjo/GD41q1bs2bNOnjwYP2jINU0EbVWJy3QYjSpYgFwYcuXL7fRJtTi1q1b
8E+UrnLlylTcuPN1zHpISJgOJ3njzZs3Ue0TJ07ov3rw4IGvr2+mTJn0adXC
O3NdjDfyP2Wwy2vYVcIiRYqIUx6MAJVEqV16LjMtg5EUqxHNwoYNG3AK169f
V65gyiZOnAg/T0xMFCe+ESkrC/poEFj9kCFDiHPp/caNG6u3bjOl0TD4FSpU
UA8448XwdBbXDOrL7zCWLFmC5dfvRHf16tVixYoNHz5cTZASEhK8vLxWrVol
Por1kmmeBC3mxTTnUxuBOAjJ3mFVJ3mjmOHq2bOnRf3CUUKzaXzlWGf92zdt
2rRx48ZWrVq5iDempJ6XQSCp3hXQNkxUIjeoPNLYo0cPc9PSMqDKO1MXTfug
YhRVvbG52OAXLdDrptjoZt68ec6XhHbw9PREWTQZrcS88FgKoN5ilAZv3759
ly5dhEkR44EYkDQPMKXdNOfFGIFj1kNCwnQ4zBvRFJwR2qocjaQBbLB169Zo
R40aNfQb8Kpx6tSpQoUK4ThcsSs+RrJ+/frBwcEGfe7bt2+HDh1qLqnTgLDa
39/fRCcijmn++OOPFXtFS0KfoEk//PBDyj9DbaVLlxZJOyLNT7FvYvgXq6hE
zaY02uXLl/Fr0BLxEYHhpZ988ok+lU5ffgWY8SlTpnz11VeRkZHWcmU1ePTo
Eea9W7du6mS5u3fv1q5d+4svvtAcX068TyGV7Uf4A++Z5j4AtE/Dhg2RbSOr
WXnjsmXLAgICqOPixYvxSvamJznDG1HtsWPH5siRY/369RZvQEJoAerC8y1y
QphJdHQ0VUadXccbxZEfaU6XKzBRidyg8giAcUpmBBlT5R2Gvn3EYIJa3rZt
20aIZ9EInDx5kqBDf2A0lVq6dOmYMWMiIiIMLm7inqCgIOiZumpUlnizcuXK
mhFj2pYWVowA3BL7luZ4IH03efJkNI4Kppll4bz1kJAwHQ7wxmfPnnXs2DFv
3rxiw/9MmTJhwDWTXLGxsfhf5VAAwt66desKg6aAn2AKUFK8PE7NFfn2KalT
HrzC+BYNmALsoUsPVN29e/fs2bNNJMlv3rzBp2PZlDYUp/3iGpR9quFR9Jpw
E2JaB3MqIvfk5GR6R53SY0qjrV69GjuvmN8jR44QZVhcL6kvf0qqp8MPNmjQ
AE9BOWNiYpo0aWIwsQfTWqVKlS5duuzatYv34jWqVq06Z84czbILcXiceqNR
nBdlVmfqqkEFcWQlSpTIkiWLWrYrVapkbcL0l19+adeuXVRUFG0LBy5fvrzF
3a1twzHeGB8fTyOIDRNEOZW9sgVwkTxTuQFFhkDi9dSd/vLly0mTJlELsXTF
dbzx6dOn9JHxIz9MVCJXqzwtRuBjMOoxiIyp8o7BYvuIrWmU3SkRj3r16qGt
evFDBubNm4fwaHb/4IGNGjVauHAhP7l27Rqc2eDuiDROnz590B0I24kTJ1as
WEGQSMipP8yIB6IyCl+9c+eOt7e3td0JaPlFixZVrFhR7JsqkDVr1pIlSw4e
PFgTzwqYYj0kJEyH6ft+Gwf6/vjx46tXr+LWsWkwChedwnns2LFSpUpZm4bT
gGIMGzbMdQkk2GeM5JYtW0x8JjynbNmyakomdinETImPSUlJFSpUwP6IFqYp
iFsh7eJbMUWlmQBystGoJm5F2RmDEhIdYN4tzv/qyy9ymYoWLXrmzJmUVCc4
YsQIvKTx8SUc686dO8eNG0dov3fvXovrNCkbXHTQoEGi5PzP31wxa70SvgA/
3qZNG+EUxHBE//797ZUuV5wXYwSCrosxQFfzRt41duzYzz77zEi+nLlK5GqV
h/MgBvpNpJ1BBlR5h2GxfdBZKJkgk4R70Dbusbh4RByaqVmACYUrV65cZGSk
qCCmoFmzZsazIPgVr546dWpoaOiaNWtu376t901coXnpBWVTeqJUymx8bZFt
mGU9JCRMx48//tirV6/0PQTzr7/+GjJkSKFChTRn+5oF6EHz5s2nT5+eJi/F
XEBiZ86c6bpz5AlmCSFNnGugqAsWLMAqqmP/ffv2FShQQImviZoxaJh6nML5
8+fPnTtXokQJYd/4Ob6Gm7mofqyTjSY2yBXTXvi4Fi1afP311xYtnsXyE8hU
r169a9euphwAYQ0UDGequFrKXLt2bcrMHzt27HCepB08eDBXrlxKPtLdu3d9
fHwcSAkTm3hER0e7+WAXJGTOnDlids/VvDElNYbF1xtRDROVyA0qf/LkSYiN
iZsnZEyVdxj69hGJgkSa2AFYE/y2R48e1rLfr1+/XrFiReqoXEFz+UmxYsUs
bhdpFkRyI5GOCGYpMySTMj958mTPnj3OD8WYZT0kJD4MiBWp6tXTq1atypQp
k+uOPCN6bdy4cZrrbrBdnTp1culhT5cuXWrZsqWJcw2//fYbceimTZvUF2/e
vKkMR1Cpzz//XKxenz9//tWrVx8+fAipi4+P51suVqpUyeIqRWca7cqVK0WK
FCFUj4mJwboePXrUmouxWP5Tp07lyZMH52ikBRzG9u3bPTw8RGIVgrdw4cJs
2bKtXbsWn8v/zu8kiTwTDSk5USJ5w6zhCFfjzZs3ffv2DQwMnJiKsLCw0qVL
Iyr8jaN3xRshqMOHDzeyjbmJSuRqlUeK4Fdjx4410bJlTJV3DBbbR+wD36dP
HzSR4HH27NnW4kd+NX78+AEDBqhvUGbhHTh6xjhEcmPHjh1Fjtbly5fhdeJM
zMjISIvzzsbxvlsPCQnTAYsgkurcubOSqLxu3brMmTOnuY7VYRASDhw4cN68
ebbJwE8//dS0aVNzZ5Q0gCEPHjzYrEEbqrN06dLevXtrZvdoRgLVDh064B1G
jBiBi8FrjB49es6cOVg5sUKWEJ6P/L9lyxaLze5Mo/FM4v2RI0fu37/fxgYv
1sqPS8qfPz9eTFMpEweFRHIjRLFGjRrR0dHwosWLF8OUevbsiRw6f/QeTnnY
sGHKidViIQPvwinjAtIlM8Qu0NRPnjx58A/gHpUrV+7Spcu9e/ecP5XDGpCl
Jk2apLkloIlK5GqVh8/Af5TVYc4jw6q8Y7DYPjy5fPnyMMbly5fbJrE3btyA
6GqWq6Bx6N3QoUPVxJgametcsFE5c+aEK44aNQoDQjwFv4WvYj2cZ9Tvu/WQ
kDAdCQkJjRo1UtKJMWuDBg1SsllchJ9//pnY0LZLOnToEGbTdXOjWIOQkJA1
a9aY9UDMZvv27a1NxxDzYoGF8aRS0AC1O8DvJCUl2XYQrm40a+V//PgxRlI9
KXP9+nXss4k7Nb169QqKMmTIEP64f/++GJrAPtNKdm2OYQPLli2rVauWKDPl
9/X17d69O20+adIkE2ct3QP8V82aNeHVrk6v2rVrV79+/Wy0j7lK5GqVp/eR
cOOZdWnifVd5DZxpH6pDMeDDmhohosOHD1eWCKWkTsGPHz9eDLeaAt4IV4Tc
PkyFkj794sULs6KqD8l6SEg4D5QuLi4uICAgJibmxIkTYWFhFStW3L17t+tS
jAS+//57HB9qbu0GrOXZs2ddVwBxZIBdp37bAM8ZMGCAWDniOriu0WyXHyPf
pk2bGTNmzJ8/f8yYMVFRUeZu70nw4u3tbSKH1wMPQkAUGBgYERERHh4+d+5c
sTkkwu+6l5oOSMiSJUuaN2/u4eFRoEAB3LFLy8/rFi1aRItZG6Y2V4lcrfLJ
yck7duwwKxJ531VeD4fbB3IIc0OnLAYyBJ5+fn5EmrCvCRMmYEDMneGFM3fo
0KFbt26uOONM4MOwHhIS5oJg8NSpU0SL/O+6kxo0uHXr1unTp11NUN0DTLfx
82SdgYsaLc3ywxAePXoEXXRFf+GtPD09r169avqTNaD8yrzSixcvXLrF04cB
ceiJS9NF3lO87ypvIrAMhw8ftp0Ki7o9ePDAFSPkiYmJZcqUMXc7NYuQ1kNC
QkIig2Dfvn1jxoxxW8AiISHxwYCgZsCAATdv3kzvgkhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhI
SEhISEhISEhISEhISEhISEhISEhISEhI/Cvw3//+NyMfNCAh8W+Aqw+SlpCQ
0ADHZ+MIG+kWJSQ0+OuvvzZu3NigQQMPD4/s2bN37tz5woULak1JTk4eO3Zs
TEyMw+rDKxITE69fv/769Wv9ty9evLh586aNY1UlJD54PHv2LCwszNfX96OP
PvL09AwNDdUc5fzDDz/4+fnxv8OvQPvu3r2bkJBg0UVKNZT4F+Ly5cs9evTI
nz9/pkyZatSosX79evXR1WjKpk2bRowY8erVq3QspIREhgJ0Dq3p37//kSNH
bt26tXnz5qZNm2bOnLl9+/Zr1qyJi4ubNm1a48aNV69erfc1+KAJEybcv39f
c/3t27fz5s07ePCg4Jn//e9/t2zZUrNmTXTz4sWLmpvxU4MGDcqRI4e/v7/t
Q0slJD5IoCZoX5MmTaZMmYIXu3Tp0syZM318fPLlyzdy5Mg9e/bExsYGBAS0
atXqypUr+t8eOHBg9uzZf/zxh+YrFDMiIuLevXvi48uXL8PDwwsXLoyC652g
VMP3FA8ePDhx4sSZM2cshuQuxZ07d06ePPndd9+pidZ7hHfv3kVHR7do0QKu
iO87evQowp89e/aKFSuigPi+tWvX4gcDAwOTk5PTu7ASEhkFuJKQkBB8lnog
EZrHlTZt2hQqVKhKlSrc8Msvv1j8+Y4dO2rVqnX9+nXNdXxQ3bp1ly1bpjyW
Z4aGhlavXv3Zs2f656CzXl5eKKlJ1ZLIEBCDzDdu3NBTmnQHApmUlITo/v77
7+ldlpSrV6/CDzVaBg1YsGAB0VaBAgU+/fRTtIlwTP9bGhln16dPHz1t2Llz
J+qpHp98/vz5xx9/PHr0aKqvf5RUw/cO9COS4+vrS+z/008/ufnVyGezZs2Q
mbt375r+fHzHb7/9dvPmzadPn5r+cPH8VatWzZkzR2OdiLMgiiVLlixWrFiv
Xr3i4+MtzrLJwXkJCVcDp9a8eXM/Pz+LuVtbt2719PR0ZgLOBrBpUNbt27df
uHCB6HjevHnr1q2z6Df/JcAM7t27NzIy8vDhw5cuXTp48ODkyZP5w9y30MKb
N2+Gt1gcZE53EBk1bdo0W7ZssbGx6V0W9+HKlStFihTZtm2bxW9dp4buEbn3
BSZaJH5FFLB8+XLTC2kQULuWLVu6gjcS03Xv3j1r1qzTpk3LaOmFcnBeQsIN
wLAUL1586dKl+q/Qu+Dg4Dp16jx//twVrz579mzevHk/SkWmTJk6der0Lw8S
8TWTJk366B/kypUrKirq3bt3rnjRuHHjatasaXGQOd2BNPr4+CjTuP8GrF69
2svL69atW/qvXKqGbhO59wImWqQPmDeC+Ph4ApmjR4+64uFOQg7OS0jYi4SE
hLBU/Pzzz+rrt2/fnjp16uDBg7/99lt1kLhnz57ChQt/9913/H3+/PmgoCDM
nfjty5cvGzVq5LrAjZeOHz9+//79lAH7ltFCV/cDXzN//vxVq1bt3LmTbnIR
XQdv3rzBpwwYMCADLhCmSH5+fi1atKCQ6V0WB0E/7tu3b9SoUQsXLlRPYXP9
m2++CQ0NRcvUc9/o15AhQ9A1NO7PP//E5Q0bNkyZp3OpGrpN5N4LmGiRPmDe
SLPMnj27TJkyiYmJpj/cebh0jkxC4sPDkydPJkyY8ODBg7Zt244ZM0aZYbl5
8ybXsSTYserVq//666/iuhh3qlq1alJS0q5du5YsWRIXF1eoUKEVK1ak/BO4
rVmzxsYbsSHHjh3DGzpgY7HSOFa3TUy/e/cO/6ih0y560erVqx0YLqMpFi1a
dO7cOWs3EOBraL9joGw+Pj6ilzMaEM5q1aqFh4e/vxkLx48fpx+vXbtWsmTJ
I0eOiIv02pYtW5BA+HDHjh1Hjhyp8ECR3AjPTE5OnjlzJl08adKkokWLirw4
I2roOpEzEWZJr21kEIuUAXkjoUpMTIzzKc2ENj169OjUqVMGHJd29RyZhERG
xn/+8x/NihjNDerBh/+lIiU11Dp48CDUiGBw/vz54iJqPnXq1Nu3b/MQ2CNO
WeGNIrkRI7Bs2TJCbG64f//+3LlzxTYjuLkiRYpcvXrVRjljY2P9/f0dW8KA
lV6wYAHODsoaHx/v/PjSoUOHcLiKNaMu2G31Y3Hln3/+uYvmbgR4e1hYGO3p
gPcRTvzUqVMXL17ctm3b9evXNUNMr169CggI2LlzpwM+kb6mVPwcSrZ48WJC
cmvJjfiX0NDQVq1a4XeaNWuGPLx8+dLe1ylAkjVNQeG5aG30DKkoXLjw3r17
HX6jiXBADfHLkZGRiYmJmzdv9vb2RuTEt2glwsm3kMO6devi3ZTfomJUmXaO
jo6GJfIQwrcNGzb89ddfKQbU0KUiZyKckV7jyCAWScMbMblECigUmqWscaZB
QkJCYLmOvQI9DQoKUjbNePv2LbQQOy8+6nmjWG/CGx2gjlQHzk8VeCOCXb58
eWvJjRSDgLR9+/atW7du3LjxiBEjlCI5gL9Tob9obaLE1XNkEhIZFidOnKhV
q1b27NmVvKOKFSueP39efUPRokXFV1myZEGLd+/enZLqQVAojJWPj09CQoJy
vzCAYnayT58+wh+lpCY34try5Mnz1VdfaRbHoXejRo2yHbjha9q0aaPf7ccg
zp07By35+uuvL1y4sHLlyiZNmqjraC+oO8aqS5cuwiyLoVR9+fft29erVy8X
7d4gZv0wlY5F4vx8+vTpXbt2xTLTtsOHD+/Xr58mBRFC0qFDB5FXYBy4mHbt
2kVFReEybt68icDUqFHDYnIjovXFF1/wfEFC8Hf9+/evV6+eY2tCcd+DBg0q
Xbp01qxZFWFG3qpXr7527VqLfmfJkiVIr0u5vUE4rIZvU9GpU6fOnTsrPhqF
En/DJCHtdLHynNWrV2fOnLlUqVLEfRqfnqYaukHkTIRj0mscGcci6ccb0cEK
FSrQmwqlOXz4cMGCBeFjjr2CSKFYsWKKYkJ0kUb+Fx8tzlNj+eGNc+bMsSvE
QLQmTpyIMNN9OBEkJGfOnMpAuhpPnjwZOnTounXrhBjzOloAwd6xY4cDwQKF
XLp0adWqVXPnzq3ooIeHR5kyZQhALO5uZGRwXkLiA8bPP/9ctmxZNAU/rncK
2Bz8b2Bg4KNHj9TX0SZBDvU7d2FO8ciLFi1Sruzdu7dw4cIoNb6Dr9avX69o
Nx6fwA0jYC1wI7LDkmzatMnhCuKelG3MeQtmFv+ojIXaC2wa/GTGjBnigcTy
n3zyiT6FD1OGzYmOjnbFNChuC1/jzIIOSIWSik9T1KxZc+zYsZou2LlzJwz5
xYsXBp+JSNBT+FNhaUXLwAb1MXtSUtKwYcM0awGgQD179mzdurUzo478tnHj
xggzTtmGB6FIffv2bd68ufu3vLMGx9TwypUrOPGNGzfqH4hX5SvYu/hI56Jl
9evXxxGjttWqVVOvjklTDd0jcibCXuk1jgxlkfS88fLlyxhbQgPxEfuMdUIT
HRsaRVMQSH4uNvykzNhwCJUih9byG6GvTZs2Nc6HeTKhHARVZAyKF/n6+uqT
GynS1KlTDxw4oPk5YRHOxZmtG3gIT0YHYfW2LYOROTIJiQwILIYpW8/xnLCw
MJSldu3aGAH1Vzwfo4E66837mTNnsE579uzBgCj7ewvExsbylZLLJJ6Pn8Ja
wqY6pQJrdvz4cRgmfg3vhsrjN/XJQnxcsWJFq1atTNxkD4uaI0eO7du3O/Zz
wnZqR+HFxzt37nh7exOS6+/EgNeqVUuZQDQLgl9FRUWZxUgFiYIMa0w0ngLP
C/83GMIjBrly5VKyGXElmHGLmVdIVKZMmfQs5dChQ/ny5bO2S4wRIFeUmYfb
XueIj65atSpi6XwbpqMaikXKFSpUoONOnTqlUMSUVDYCM2/YsKFStufPn0NO
goOD+RX0D6VbtWoVBHX37t1icNiGGrpN5EyEvdJrEBnNIul5o2bJPGFC8eLF
6VPHyobRrl69OgxfdD0CA2fu0KGDEtpY44001KxZs7p27WowNHvy5EnlypWV
kXMUuVu3bh07dtTHUMgqnK18+fKPHz9WX3/69GmVKlUIVJV5LgdA56KDFNvG
Q4zMkUlIZExcuXKldevWpsz1EOLBhTw8PHbs2KFcfPPmDdqxYcMGveEVNqFi
xYqQRsyUep8EzMv48ePRX2U+WiQ39uvXD2eBTWjTpo2/v39ycjIuD5sDAYN3
nT17dt26dfoMHG5r3LixM1nfL168GDFiBA9XarF3795s2bItWLDAgafxELxn
2bJllXB7165dNN2FCxf0N2PxevTooV6YYApgCLS8Oj3AXhCS0x0KoRUjUQUL
Fvzxxx81d9K50Bgj++6Kfd0LFSqkPITwAfOubxkxsECj8XCNaEFaihUr1rt3
byOWn6BjwIABfn5+hw8fVp5jkTcidfAH3FBISIgYzDQxuTEd1ZCv0Cz4IWoS
ERGhPpRQJDcGBQWpkxvpDjEMheelnekgLs6bN4++s62G7hQ5E2Fceo0jo1kk
DW8UDSuWzKek7npBwC662LHSor/IJFZOfMTuYf2io6OVwttYT/3TTz8R1BAM
GnlRfHx87ty5lVmqpKQkfqt+kQLUxNfXF8XX5IViNLp3716iRIkHDx6k+Tps
wtSpU7EJ8+fPVz9HzxvFAihe16tXLzEWmubgvIREhsX333//6aefOjzfqgbe
tk+fPugLgaTY0APOEx4ejjmyZnBwNA0bNsRboenqqWp9cmNiYiIWABuekqqD
MTExTZs2JYDFWvIRZ9e2bVt8X2RkpD4yxbWVK1fOmSS027dve3p6fvXVV4qO
Y7GJ7vfs2ePA00Ry42effSaCYkGWsMzUggfq+wJ3X6lSJRO3i4R701bQUWcO
9lq2bFn+/Pnj4uLER3qKB+rj95RUbsZ1NY2xBjHApZwHRMsgPzVq1MBr04kG
pZQC8Dp8vcFAHs6Gm8iXL9/p06fFFT1vFLt5cAV3r1Rw8eLFxYsXx68R8ty5
c8fIu6whHdWQNp88eXLnzp3DwsKUfDMBHBwsUZ3cSCeWKVNGVBYl9UvFmDFj
hHLZUEM3i5yJMC69xpHRLJKGN4ol82IxFKSxRYsWX3/9tTO7YNFx8EZl9BKz
z0f6kYiDKCPFJm9EYIgBBw0aZKQA+/btK1CggJKEeeLECVrpyJEjxBoGJ7sF
Z86VK5cyGWQb0D/4Ieo2adIkRb/0vPHy5cuEw5RNGR6xPTgvIZGRYaLDSklN
oMqZMycuGGuAykRFRc2dO9d2PIVT00/WiK1X8MvKFdSKEFutXJga9Q/FeVIW
15AGBATgziwer2YQOMGJEycqu+JQZlxz69atHZtmEsmNHTt2FD4Uk0JlCXIJ
wy3yXkw3/ETtvp2EmM1ZuHChMw+5fv06sbYyAQR9whXiX/RdAD2Gw/Tt29fI
ACAuplatWmJ4h1f4+vrSMklJSZhl/WnICtRLiSHY8EDojUE6ITwFdn7ChAmi
8HreSBXg+VmyZME7iyvcSdhC1EOvwbucHI9KdzVEufRzeVTfy8tLPXPN09SJ
ozQCjazuVmtq6GaRMxF2Sa8RZECLpOGN4jygNWvWEJ6jCFAdZ1iNSG6Ev4lF
MchPp06dxBqZefPmieNlbe/fiE3AYFo7plYNZLVs2bJiPh1z8fnnn3t7e/PY
+fPn20gjpPoKKeUPWtLDw0MZHU0TYqS3bt26ygJGPW9ctGgRVwhzlCu2B+cl
JDIyzHVY2ISmTZuiIGIrYByWcWMrNk84cOAAf6xcuRIqZcr007Nnz2rWrDl+
/HhrzgVzRDn79++PA9K3A8ZNTEAQLI8YMWLjxo045YEDB2L69AshuXP9+vWD
Bw8OCQnRH3+GbRRjhlQTt04FR40aFR0djf2fPXs2ZmfcuHEWlyvi0+vXr2/i
VDUBOGb81KlTFr+loU6fPh0cHAyb2r59u6YH+UhTcA+uZOfOnbgbrPSmTZuQ
IqidRVcoMuiqVq1qRMwQoUGDBgUGBkZERISHh0N46tSpQ8soo0xqEF98+eWX
MDp6ZPjw4dwPJ8dBENdXrFhRPeVqA1Rk2rRpCK2yLknPG58/f167du3cuXOr
R+Twp/QL7BFK7+RwQcZRQwgJhIEuhi9169YNOXeG3ihwp8gZ1GiDsEt6jSAD
WiQNb9yyZQu8DoOzf/9+2+PDRooqkhuJYoiUMXRjxozZsGEDSs0faLfoa9u8
8cyZMwiPkexKKgJng+fPmDGDxkFIxEHqaIG+IpQNOteuXTvoXFBQEAbkxIkT
IiEKHrhv3740Xydw8eLF/PnzE+EqeUca3ihmlLiCHVM63fYcmYRERoa5DgtA
+bJkyUK8hlmwa7cNsYUyJg53jJ1RL5d2Bjdu3ChcuDCWSv8Vz8fjo/LqrUvU
W7hgzVBqZZiL6mDB8GsQWj2Fw4zXqlVLeRTMEPOrVAFzsXDhQgJ5rsAVy5cv
/zAVyuIFyKG1JcAiBIYJ2BhwswuE+cWLF7eYwIMFCwgIgDIpFaFH1Nut4N9X
rVql1AunANXHvyQlJdl4I01RsGBB46sUnz59qsgkLaMfRaH9xaYZy5YtU8YK
8DuTJ0+G9iB+MDrjy2AXL15MTfG8ws7reSPlqVy5Mr4PfVH/kDtNWWybcdQQ
EgLrRi9gAsQy6sFGZ+AekbNXow3CXum1jYxmkVIc2vfbeFEvXLhQpEiR3bt3
E3zBM5WlMeiUkfzGlFR2WqJECeMHTCNR/EQ0CC+Coel/CIuGvcN4FQtMAMIr
YKdlypTJmzevmEA3AtoZ8aCOykYBGt5ISSClXJk6daq6JNYG5yUkMjhMd1jE
XBUqVMALzJo1yy7ix804CEJ7se+3WeXBxeAHLe7fFRcX5+3tHRgYGB8ff+3a
NcwmMSORuzLcgUEWe9ylif+vvfcOqupq+/5jr7GgiMaKPXZj18RErNgIRkUF
SxTFCopYULHGRhARFcWCYsQC9oaDJeotEctgQaNOVNRJHssYbyY+zpNn5n6H
9/Nj/bJnv2fvc9icswHL+v7BcPbZZ+9VrvK9VrkWpql169adO3eOi4vDL/DS
7t27Qw6VuRUsKvWCZmDHCIc9PDyML/QS2R3r1KljyjoujBhV1s2ICAGbNm1a
zZo1V65cmZKScv78+YCAAFpP2aSJNw8JCbEj4xwtzHPsW3ylBVVYsmRJqVKl
tm3bZmGHxTAUJnro0KHGV2ThxGFZXbt2VbZhWvDG9PR0OCru3kTJVOPdUUNa
ICYmJjAwEOZp1m7fPBM5EzVaDXOl912zSJl28UbjRSWyyzbHqW3eKNZbjho1
yqwJFzihi4uLj4+PRQJSGOCgQYOKFy+OshtfT040REyk3p9lwRvFaaRc0c2Y
ISHx3sF0h7Vv3z6shG4mkHzBxo0bsdLaORpskaenp8XsJ7YU8yXWb798+TIo
KMhIFbC6CxYsgPGqqSAWacyYMcIUc0NYWJjYdgEDIZ5dvnx5jrw5XtXJycn4
XlTe/ttvv+EvtOwUU9a3b18ll5oaZ86cEcsslStiVMHLy0sYWNw6JbEjQE5N
TaUXIiIicvpDXSQkJJQsWXLkyJHa6VexoRLxU04gMgK6pnTp0orEanmjmPtW
NuyYjg9bDfNG5EzUaAvkVHqhN9A2fqW7M+tds0iZOeeNxosKZfL29s72AHfb
vPHNmzd8C+815axALHDjxo2JqrQLJkWaKbTGzc3N+GKGV69etWrVSr2VxoI3
ipQFJUqUsDtruoREvgBr/Oeff/6hwZEjR9q2bUugZHEdF2bHwVWJiYlEhWKq
q2jRort27cqNuuQIq1at0s3UQRiuSy2gCiK1C+REN2+JFsSbvr6+2sEZaN7E
iRMxehioWbNmiYVY/E+cm9PpP0x62bJltb5GFziLFStWVK9eXZ1ZVwHuo2sW
LGJtTNy0adO0GW+4bdKkSRSYG0JCQuybuMSnVKhQQclz7giw7W3atMFKqxM3
KRC8EfETE3AGgbQ3bdqUX4nF81reGB0dXahQodGjRzuyqzTzY1XDvBE5EzXa
AjmVXtofklykSBHdln/XLFJmFm/kerdu3YhnjawKNl5UVIkXxcTEWCs21w8e
PAjJhMhZ4408pGfPnrpxR05BTWfPng2pCwgI0AYjYmAz24T/FhBJ1/mVMrZv
wRup12effUYFc3Xjv4SE6bhw4UK1atWKa4BxQ8JxLhbXCY5at25tcGeBwPnz
54cPH/706VPM/rfffisWjDl+ML0jQIuxAE5OTtrpRZyR7vl99+7dmzdv3uvX
r/lrUM1x7rppWDB32KhHjx5t377d7pS5AljjMmXKGD/yjMC8d+/etL82Qs/I
yOjcuXOPHj0svqK0cC1dXrRjx474+HicDq7TPuJ0//59Z2dni+U99uHAgQPF
ihVT5/ZUQ5yCRwVz5GIo1cqVK/mhSKZhwRtpMTc3N3i7Mj5jDbiJ9PT069ev
WxP7j1MN80bkTNRoC9ghvQR6lStX1pqFd9YinT59mgoa5I0mFlXwRl4dFhZm
bYG3OOhBySfpCKhdgwYN0CzdhJAQPBcXF6KtlJSUHD0WMUZCCP3Eamc1b6SC
RPEYk7lz59oeNhfLHWlbc5OFSkiYDrMmyFAcb29vZeSfeBPnjqu1RnXQ0MDA
wJ07dyYnJ2OyQkNDN2/enBsrhInusQO4coP3Y5pQ8JMnTxJQO1ge7ADu4/jx
4yI5uSOPioyMpBYiYawRiMy6ixcv1no6MfjTpUsX4/tkf/nll/DwcOqSLXGy
BrwYvhL76SBvpEemTp2q3vusBle4XrhwYSVbjnHAMwcMGFC+fPmkpCQ1b+SN
FBtGR2PaXl7Fnbjj5s2bI/Y53UORX2qYmSWlsFkIA74bmc+N0yvyReQUOK7R
OZVe5BDqbm187MOwSLowsahqiPHGbCe7jSAxMbFkyZKurq66ZwzFxcURwX33
3Xc5nRAXDYuuUX16X80bUe0qVaoQeGarWampqQR6mC/jO4AkJPIFpjistLQ0
Ly8v9eo7otHWrVujOxMnTtT1tufOnfv000/FRjwcNOGkiXmt1cD1Y6V1j2LR
BTZqxowZQUFBOZrotAaIxMyZM9evX++IHRBJpytUqKDermgbmMeKFSvqzuRi
yjBoHTt2NB68Q/InT55MReyeJ4Lx0gvK6YF2A5s8cOBAZEY3E+D9+/dr1qwJ
c7NPnjMyMoKDg+vUqUPvt2rVSkxmDRs2jCtbt241siZf7GBq1qxZTpdB5pca
4h+hi5AcnBqCAScX2Z4dKYYW+SJyChzX6JxKL5QMIaQxdbnTB2CRrMHcoioQ
6wMJ5RxJGi9A9dU74NTg4ahPqVKldLcsZQv6Oj4+vkmTJoSfY8aMQek6deq0
YMECLBI6ZTDrAkGrs7Ozrt2WkHh34LjDwlkPGjTIYmAfo4RnL1iwYI0aNXT3
Qv7rX//CfO3fv3/v3r34iNwLr44ePYqVNnhMVeY/B1t4e3s7HttmZm0qxHE7
mIhSDLI1aNDAYgoJnhMZGenr64utxg1hbcQQHI25ZMmSatWq0QX+/v5wBnXv
8DTsmLV5Xl1A6du1axcVFWV3N8Fjy5cvf+DAAft+roAKDhkypEiRItpdpZRt
8eLFFkdmwIsWLlyoXOEekSPURkVwH9xDa2P5Bw8efPr0aeODD+KcI92xUNvI
FzVEEpCT9u3bi/dCMtu2bQstd9w7a1+U9yKnQKvR1HfChAn0VGBgoFJZCCph
gm4GZl3pFflmec748eMPHz585MgRZQTv0qVLRHlz5szBxPn5+cFV1PLwAVgk
azC3qAoEDx87dqzjEc2OHTsKFy48cuRI7aMwofQL5VfvtqOb6EfFAqBEa9eu
tVE7xPXWrVvwT6xHw4YNaW3jSi3GB6yNhUpIvDtw0GHdvHmzd+/ep06d0n71
4MGDWrVqFShQQHcFNbwRj5YHqavE+fXE1wbvx/Sh9Y4cHavG1q1bPT09HVxd
hh0jhrWY5nv48GHPnj2JZ3k4daxXr55ysh5Wrk+fPmXKlNm0aRPmET7ZrFkz
9VhleHh4pUqVjI9e0pX4GuWYMDtAO+BJxdkQDiIiIgLLr01/d+XKlSpVqowb
N05Ne9LS0lxcXDZs2CA+iv2S6uy7uhDzYhbnUxuBOOfIjmHVfFFDSluzZk31
9KvIrW1fGWwj70VOga5Goz6ojHoYFuIHOdTd8aqVXlRs9uzZffv2xcWL8xZL
lSqlbKfF2sDVR40a9erVK/q0Q4cOanH9ACySNZhbVAUi0U1oaKjjj6LxnZ2d
MacWqRiIGtzd3Rs3bqxOMSoOhO3Xr5+SrQjTgQHJdsaZFrA4L8YIeAtdo7so
XULinYLdDgshJ45GndVnJ6mRkZHRtWtX1Kdp06baDL3wxrCwMDzX7t27k5KS
zI1P1RCHrRiffYObff/996Y4rMysdYnGHYQ1vHz5slWrVoGBgQrboW3xWd27
dxcHDWD0vvzyy2HDholhjcePHxO0BgUFiftpZFy22piL8xdwlAYLcOPGjdGj
R9vta8Qx0y1bttTaW8x4SEjI1KlT582bZ3DXD7XDvHt4eKhZ9N27d6HNtIDF
yQvE+3h8ZR86/+Cys91fjMy0a9cO0TWyhVY96rt69Woa1o4E0fmihjExMaVL
lz548ODx48cXLVoUHx+fe2qYxyKnhq5Gp6SkIBg7duwQH2lGHx8flEi7B1kr
vYgEwQtBilhvLAa6YeBimEgsslXYhchBBCdRyMAHYJGswdyiKjh9+jQWTHtg
NC25Zs0af3//4ODgbdu2GSFp3DN+/HiCO3UhKTbxZsOGDS2GYcWBsIoREGY2
29kEBGbu3LloHBqd7SoL9ag1ily3bl25uFHi3YcdDuvZs2e9e/dWr07EwlvM
bSUkJOCglaMECMZhPuptHefPn+/cufPSpUuTk5OxYx07djR47nxOgXFGJY3n
cMBWYPpMyXiMeYERGd8EbQ2pqakYOvy7coX/S5YsqYxrwZq4QWGGJ06cwCcq
q3REckL1gsA//vijUaNGxg3Unj17cppwUg3YCNQFy6x2lDQOzrdt27a0D8Yz
KioKGTC4LBBi9vnnn/fr14+gg2riNajOihUrLLZdiKx06gSGSJqLi4u1NJh0
+pAhQ6pVq1aoUCG16DZo0MDahKnFqC9mXze7dbbIezWkcWbOnIkUjRo1auvW
rYj9smXLUBOzDoixQB6LnBq6Gr1x40YkQSEPSBHcWzfpgVZ6xVnbsEElSzxR
DH0hmKGYVIXMiKhNBH3qBXUfgEWyBhOLqgAZCA0NRXgsVulQi/bt22PWqNS1
a9cg6gazI9IjgwcPxoBAoU+dOoUVJUgk5NQeZsQDMaQKX71z507lypWt5e6m
u8PDw+vXr1+iRAlF4woXLly9evWRI0fqniRoMWqN8eG39q2ulJDIS5iecNgg
8HowRuEXRP4rFD+XipGYmFijRg1si5Gb8R1jxoxxME2fAL4Sm6DNLptTYNnw
RMraMHHaqZOTkxIdC3ogVtqLlDKEyco+I+gZ9EBtVHnCtGnTunXrZmR8id7B
18TGxtpdfnha7dq11U6ZQm7ZsqVSpUo///xzZpbn9fPzwzUbH1+i5Lt27Zo+
fTqhfXx8vO7m0NevX8NFR4wYIXqTv/zPFbOOa9Qd9fX29rZDePJeDQV7wbUp
49L0woABA9zd3XPjtNw8Fjk1tBrN86E3Sl4X5LNx48aQE93VC1rpFTlCIQni
49OnT+vVq0fsIKwZdsbZ2fmnn34S34pZ6cmTJ6sf/r5bJGswsagKsAlEiBYb
u6BwderUmTdvnmhVTEHnzp2Nr4LgV9DO+fPnY0ijo6Nv376tjVC4Qp/S9UoK
XKJUaKTxDU22oTtqXatWLbm4UeLdB9xj4MCBppyx6wh27NhRvHhx5XAxc4F3
+Prrr3WT0lgAexIcHPzDDz+YMtBx+vRpLJ6DLAU/26tXL3XuOOwnxlk5u0TM
o4l4HALJX6iUMprx5s2bnj17QpYsuhiiguE1MqNKeM4T7D6cl2KHhYVh1dWj
EBAkyt+/f/9cXcmDx8eDK/79xYsXLVq0mDRpEv/ExcU5vsbe9qhvjpD3aigW
axUtWnTfvn3KFYQ/R2lCc4Q8Ezk1dDVapHcWM8UIyTfffLN06VJdtqMrvbRY
uXLllEDs1KlT0AkoEzzwwoUL58+fr1atmhLEIX7czEX1Y99ri2QN5hZVQWpq
av369dWzUfQaPBzGpZuj0iyIxY1EOiKYFdE68QUGdu/evY6HeLZHrSUkJCyA
f/Tz89u8ebNiYeLj43FhmOhceiPP79ChQ7bbObGoffr0MeU0KKqGCZ02bZqD
e3+SkpLwcRYnKURGRiojkNhVolTsD3HxnDlzqAKkCKKIc6QMNLKrq6uF28rM
Wuczbtw4f3//bOnTpUuXunTpYvf5es+fP4fEbtu2TX3xzJkzpUuXzr3uFiAM
KVKkiFjNRS+sWrUKGdu0aROOnr+OZ5K0Mer7XmD16tXwXmVejAYhPLGWEtlx
5JnIqaGr0ZcvX6anoqOjo6Ki4AYnTpywJgy60nvz5k1lBJLnf/fdd5UqVbp9
+/aPP/545cqVR48eobCoLd9ysUGDBkuWLNFW+f21SNZgYlEViNUUPj4+ajal
TP0bTwdqB8TiRoicWPuRkpJCVCjOxJw3b57jY/K6o9YLFy6UixslJHSBOXV2
dp46dapiTqE3FhlUzAUx3fDhw0NDQ21r5a+//tqpUydT5nEwdIMHD1YW3tuH
v/76C6+0bt06i2K/fv16xIgRY8eOJcCfMWPGypUrxTZhcWIsv5o4ceKkSZPm
zp3Lz63l3KCy0MtsM61t2LBh5MiR9s09Uew1a9YMGjTIYnYS51K2bFlcp/qi
uZt5xeJGiGLTpk2xxkFBQdAkLy+vAQMG0FCOTwbpjvryLpgABDLvF37YAaKJ
8uXLE2WIj8JH23FYhnHkgchp36jV6NjY2CpVqkyYMGH//v02kg5Zk14aCpV0
d3eHEBL/wiohigjbihUreBq/4oqnpycf+cu7dHnae2qRbMDEoiq4fv067NrC
gqFx6N3333+vZuM0o7l8GBtVokQJuCK2FAMye/bs5cuXw1exHqZwY+2oNT6R
IE6MWjv+fAmJDwwEa6jhb7/9Jj4Kg0b8aO6CagvwOoJH2z7r0KFDGHNTZgrg
D7169TK+5EYLLOH69et9fX2thdXi/GLx/6tXryxaj6+ynffcvXv3kCFDbMxb
YZkDAgKio6NzWPb/H5h9GkE7nfTkyRMolnpKNzU1Ffts4gFbVAqKMmrUKP65
f/++aEM8y++//56j5Bg2oB31/fbbb58+fSpGfU15Ra4COtSvXz/ok2BoYuf1
sGHDcvVQwtwWOQs4otHWpFeA5oIjCerC85ErNQOkbZEE25zwvbNItmFiUQVo
Qx4ICbdoRsR13LhxygxvZlYcTcgjxnhNAW+EK9atW/dRFpTl01hUx886FNCO
WleuXPnu3bti1NqUV0hIfGC4desWoXpMTMyRI0cwDn369NFND24uLl686OXl
ZeNgGmz4uXPnTHnXy5cv4+LiHKEoiYmJ0B5TZuusAa8XHh4eHBxsbdRFHIKQ
o/ORFfArHx8fsfNFC4x89+7dlyxZgp309/dfsGCBuaeypqWlYYfNoh+6sD3q
+14ApYM6UmacPnUhfMvts3FzVeS0sFujbUuvWXi/LJJtmFjUzCxyCHNDp3SH
nQk8hw4dSqRJ7DZr1iwMiLnrQ2C/7u7uHh4epufAV2B71DqXXioh8b4D3cQs
79y588aNG6YfbWYN8NWzZ8+++2tIMB0JCQl5sFFCJBDLjS2WOBHbh/Dy6seP
H0NUcqM7cJHOzs55ELnbHvV99wGROH/+fGxs7NWrV/MgD39mboqcichWes3C
+2KR8hhYhiNHjtj2C6jbgwcPzN2+LZCenu7q6mpWJigbsD1qLSEhISGRZ9i3
b5+/v3/uJbKWkJD4UAGX8/HxyaVcphISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEjnFf/7zH5n0XuI9BaJr45SK90iwc+McDQkJCQkJ
CbPw999/x8TEtG3btkiRIsWKFevbt29ycrLaz758+XLatGlRUVF2O19ekZ6e
npqampGRof321atXN2/etHHYq4SEDaSkpHh6epYtW7ZAgQJNmzbdsmWL+qBY
yOS2bdv8/Pz+/e9/52Mhs8WzZ8+CgoJq1ar1ySefODs7BwYGWpz1fPXq1aFD
h/LX7legfXfv3k1LS9Ml2FINJSQkJCSyBXQOn+vt7X38+PFbt25t3769U6dO
BQsW7NWrV3R09NGjRxctWtShQ4eNGzdqfQ0+aNasWffv37e4/ubNm9DQ0IMH
Dwqe+Z///Cc2NrZZs2Z49l9++cXiZvzUiBEjihcvPnr06Dw77Vriw8Dbt28X
Llz4zTffwBWR3hMnTiBFxD7169f/4YcfkN5NmzYhyWPHjiX2ye/CWgVqgvZ1
7NgxJCQEDnzp0iUKX7Vq1TJlykyYMGHv3r0JCQm+vr5ubm6XL1/W/vbAgQPL
ly//7//+b4uvUMzg4OB79+6Jj69fv54xY0aFChVQcC2FlmooISEhIZEtcCUB
AQH4LPVAIjSPK927d3dycvr888+54eHDh7o/j4uLa968eWpqqsV1fFCrVq0i
IyOVx/LMwMDAJk2aPHv2TPscPL6Liwsu3qRqSbwTEIPM169f11IaU4B0bdiw
YcWKFRbPhylBFKtXr16lSpWBAwcmJSVpx8kRyKdPnyK6f/75Z26ULUe4cuUK
/NBCyzIyMsLCwoi2ypUr99VXX6FNhGPa39LIML3BgwdrR/J37dqFeqrHJ1+8
eNGyZcspU6ZQfe2jpBraDTGQ++uvv+o2bP5CDiNLSEi8j8Cufv3110OHDtVd
u7Vjxw5nZ2dHJuBsAHsOZd25c2dycvLp06dDQ0M3b978Dpp3a4AULV68OCIi
4uzZsxcvXoyJiZk/fz6+IL/LlQ1o4e3bt8NbdAeZ8x1ERp06dSpatGhCQkJ+
lyXvcPny5YoVK/7000+63+aqGn7AIPoOCgqiYXUHcvMXchhZQkLiPQXk7bPP
PluzZo32K6zZpEmTvvjiixcvXuTGq8+dO/fpp59+koUCBQr06dPn/Qq9oYht
2rT55B/Url372LFj78UuD6jj9OnTmzVrpjvInO9AGqtWrapM434M2Lhxo4uL
y61bt7Rf5bYaftig0Wi6gICAdzAglcPIEhIS7wLS0tKCsvDbb7+pr9++fXv+
/PkjR4604DZ79+6tUKHCv/71L/6/cOHC+PHjp0yZIn5LtN6+ffvcC4d56cyZ
M/fv308ZoK/vBeNSA944efJkyv/TTz9dvHhRvePjHcdff/3VpUsXHx+fd3CD
MEUaOnToN998QyHzuyx2Aoqyb9++iRMnrlq1Sj2FzfXDhw8HBgaiZeq5b/Rr
1KhR6BoahxRBJMaMGaPM8ue2Gn7YuHr1aqVKleLi4vK7IDqQw8gSEhL5jt9/
/33WrFkPHjzo0aOHv7+/EmLfvHmT68+fP1+7dm2TJk3+67/+S1wX406NGjV6
+vTp7t27IyIijh496uTktG7dusx/wuHo6Ggbb4TsJSYm4g3tYH3wRhyrtXEA
HGtUVFQuLcBT4+3btxs3brRjdAveCO/Ny4npEydOmDKkSWWrVq0qevldA8LZ
uHHjGTNmvIMDRAZx8uTJ8PDwa9euVa9e/fjx4+IivRYbG7thwwb4cO/evSdM
mKDwQLG4EZ758uXLH374gS6eM2cObOfXX3/NNKaGeQ/Uc/369bmknqgkDWUR
+doHSHiVKlWImh1/lLmQw8gSEhLm4n//938tdsRY3KAefPg/WcjMCmAPHjyI
vXV1df3xxx/Fxf/5n/+ZP38+lpOHwB5xygpvFIsbPT09IyMj9+7dyw33799f
uXKlSDOCm6tYseKVK1dslDMhIWH06NH2bWGAN4aFhcFhoKxJSUkW40tib0VA
QECuUkc8VFBQENW3g6UI3ghLh2zHx8c/efLEwcLgi8ePH6/sgn/z5g3MWe3y
/v3vf/v6+u7atcsO6khfU01+DiVbvXq1s7OztcWNFCMwMNDNza1Lly6dO3dG
Hl6/fm1fjTKzJNmibSk8F62NniEVFSpUoD3tfqOJsEMNEdd58+alp6dv3769
cuXKsEfxLVoJG+RbyGGrVq3gDMpvUTGqTDsvXLgQlshDkKitW7f+/fffmcbU
UAGaiDZRgDFjxiCcp0+fVt5y48aNlJQUe1vi/wEyP3DgQEeedujQIVoD7RMf
kXlCWrUFoN2+++67u3fv2vFwfjV79uyxY8diXoYNG2ZtcSPtfOrUKS8vr65d
u3755Zf9+/enVHYP6gqptlBMBEZ7UUAOI0tISJgIrFnz5s2LFSumrJ2rX7/+
hQsX1DdUqlRJfFWoUKG6devu2bMnM4sFYaawwFWrVk1LS1PuFwZZzE4OHjxY
+KPMLAOLaytduvTUqVP/+OMPdRmwZhMnTrQdDkM8unfvrs32YxDnz5+Hlixd
ujQ5OXn9+vUdO3ZU1zEza0cqvHHFihW5NPTEY2HXfn5+iv/KEeCN33777YQJ
E06cOJGYmEjbrlq1ypGZX3hdlSpVxCgTgEvTy/xV3wMhcXd3F+sKjAMq2LNn
zwULFsBbbt68icA0bdpUd3EjooWr5fmizQkxvL29W7durZQqR4DGjBgxombN
moULF1aEGXlr0qTJpk2bdP1pREQE0msfYTAXdqvhmyz06dOnb9++StSDQon/
YUSQdlil8pyNGzcWLFiwRo0axH0WUZIRNRRA3wcNGlS+fHn4D4J0/PjxmJiY
4cOHDxkyhIgG1gpLOXLkiOPNQp9CGnfu3Gn3E1C3Xr169evXTyztELMe2jru
27ePF+UoTRMSBfdr06YNKsljadgSJUqoZ14UoKfLly8nPnr69Kn4IVaoWbNm
BG66u+OzBSwagkrPKtJSoEABFxcXAnMYu/b+d3MYWUJC4r0Gpr527drYH/y4
ltjgAvC/xNSPHz9WX8/IyBDkULvcDoKHRw4PD1euxMfHV6hQIS4ubvHixXy1
ZcsWxZXjHXA033//vbVwmHgZt7ht2za7KwhvUdKY85YpU6bgO5SxUAEID9bY
gk+aBXgvZNXu/RfQ2rNnzype5tixY7AIZV4yp8CR0dFffvmlGBuhWegUV1dX
i/7NzMrigts1Pj+OSNBTMHyREIbn8xbYoJbi4kPHjBljsTuJCg4YMKBr166O
jDry2w4dOiDMhAk2BkspkpeXF65WNwt9vsA+Nbx8+TLCAHPTPnDz5s18BXsX
H5F8tAyqg+Sgto0bN1bvjslWDTOz9vWHhISUKlUKikhYYfHtgQMHaFJ6vHr1
6tbSdhkHfbds2bKRI0faF2oJUEhCiSVLlghJEAKpXW2Lfvn6+i5cuNB42Jia
mlqtWrXQ0FDx5EuXLmHfdCku2hocHGxhJOHetWrVooKOLAUh5ipTpky5cuVs
DxHnaBhZQkLiwwZWzpTUczwnKCgIh9WiRYvnz5+rv+L5eLGIiAitN/n5558x
lXv37sWRKfm9BRISEvjq/Pnz6ufjp+BvmOg+WcCQnjx5EoaJX8O7EbDjN7XL
F/m4bt06Nzc3E5Ps7dixo3jx4hZGXvip/v37m04kBB1asGCBWYOZ0C1cM/1i
35AjvdCkSZNp06aJ8uCXIXvu7u5aB42fhTfC/w16N8SgZMmSymrGu3fvEiOs
XbtWeycSVaBAAS1LOXToEK7QWpYYI0CuKDMPt717lKihUaNGiKXjnZKPashP
5syZU69ePQjSmTNnFIqYmcUSYebt2rVTyiY2/E6aNIlfEcKgdBs2bKDT9+zZ
IwaHbaghoEienp4lSpSIiorSbTSk0c/Pj/ITODi+5IPyNG/e3ME4Ds6GIcLO
iI937typXLlyZGSk9s6UlBRep8z12wZtS01dXFyUpR3R0dE8Wbu4kXbo2bNn
0aJFsZMWTxg/fjzB2oMHD3Jcq3/w66+/Ujt6zcb6TOPDyBISEh8DLl++3LVr
V1MynFy9ehUTVKRIEfV+wL/++gubs3XrVq0TESyrfv36kEZ8zYkTJ5Sv8Ckz
Z878/PPPlflosbhxyJAheBYMKW5l9OjRL1++xOXhjLDqmNxz585t3rw5MTHR
4kXc1qFDB13uYRCvXr3CyPNwpRbx8fFY8rCwMIs7scO4YKiL3e/SBQ6dhlLP
5ucItCfVnzJlirJ06unTp3Xr1oVL2zfPlZycTF/v3r1bfKQHa9euvXDhQl1y
SOdCYyyWFlgrZ2BgoJOTkzJZRvhQsWJFXmdxJy+CAlEGHm7xUjxglSpVBg0a
pKxwsAGCDh8fn6FDhx45ckR5ji5vROpgvx4eHgEBAWIw08TFjfmohnyFZsEP
UZPg4GD1oYRicSPkRL24ke4gaMrMYmW0Mx3ExdDQUPrOthrSaL1790ZrtF2m
xtGjRyGWISEhDu6oojyzZ88miHOEf1IGgjVkWxmhReZpXq1AZmZFT7Bi9R4i
GxDbi7p16yaKx08waB07dtQubsT0IXUNGjTQziDTznS0kWkUKrJ//35aAyOg
nrPQ5Y0PHz7kNiLBLVu2iIgm22FkCQmJjwcXL1786quvLOZb7QPedvDgwZ98
8om7u7tgIxjSGTNmwFisDcjgaNq1a4e3wiOrZ2G0ixvT09PhY3iczCwbGBUV
1alTp2nTpuG1+Yiz69GjB75v3rx52rE+XFudOnUcWYR2+/ZtZ2fnqVOnKpYT
i128eHGLEQDRCDCWESNGmJg0hkdRNVyS3clzxBot/JRC3gS5GjVqlH2+IDIy
EnejzFHSj3zE40MhoA0WN8PN4KhGsouIAS7lPCDEBvlp2rQpxaYTDUrpkydP
eB1M1eDwCJytWrVqZcqUOXv2rLii5Y3I2PLly7lCAKJsKVq9evVnn32G5yXk
uXPnjpF3WUM+qiFtPnfuXEhCUFCQxfJUKCgsUb24kU50dXUVlUVJh2bB399f
KJcNNaRUkydPplRjx461Lca0Z/Xq1Q8fPuxAG/x/oJsaN27s4JI8oTgKuxNx
DY+lpui+tr9g5hA8I5ldCdyIBGkT0SnIKhQdtsY/UFODWimiV4pkZMSbZxJq
wTPbtm2rrMPU8kaIK7YXUYd1i57KdhhZQkLio4KJDiszawFViRIlcMGQBygf
ofrKlStt20Ass3aGTqRewS8rVzBWr169Upus58+fq3/IV1zR3UPq6+uLO7Nv
YE0AJ4gVVUwrZcY1d+3aVXduEU5Vs2ZNx1dnKcBJNWzYcNWqVXY/gcaB6KpH
xrZs2UIL6w6bZAuxuBEiLbafvH79uk+fPmKPTGhoqPa8SHwuHMbLy8vIACCt
17x5c8FveVStWrW+/fZbnOycOXNsHKKh3geK14YHQm8M7hkXa/agNLNmzRLy
o+WNVAHyUKhQIZpRXOFOwhainsePH8O7jIym2kC+qyHKpV1jQPVdXFzUM9c8
Tb1wlEagkdXdak0NDx06VLJkSfQi2/DtwYMHHTt2dGTuVWD//v1IuO4uD+MQ
ixt79+4tGFRKSgrPRCDpdN0QNS0tjVBCzbStAXPUr18/MThJc61fv544FOk6
c+bMhg0bbHAzdWvHxsYWLlx4+PDhBnmmCKlKly6thEha3kh3Ozk5UQtlC6Ht
YWQJCYmPDeY6LHxKp06dcMEiFTAOywhVEMB4Hjt27MCBA8KKOm7zBZ49e9as
WbOZM2faSL1IOb29vZcuXaptB+yq2N9969YtPz+/mJgYnDKGGqZkbWv2zz//
DKdyfMBEwfHjx3kgDkX3W+qFF5g0aRLkZ+fOnRYNzkdKzj34uJCQkCVLluAF
Fi1a1Lp1a5pa656MtIZY3AgtwZ8uX77c399/69atX3zxBf/AT7Q9LlbQNWrU
yIiYIUIjRowYO3ZscHDwjBkzeCBPnj59+tGjR7U3E19MnjwZRkePjBs3jvtx
9FeuXClXrlz9+vXVU642QCPQIAitstlByxtfvHjRokWLUqVKqUfkTpw40aZN
G9gjPMHBQZh3Rw2Rk+joaGQGquzh4YGcOxJwCRBeQQUpD32a7cgYjJF+dHBx
I29BGlu1amVtgzNiTOg0cuTIgICAS5cuWXwL9RVjhlgkGDi2aOLEiQsXLiR4
ROB5LALJV9rHilOZDE5VX7582c3Nbf78+ShvRETEkCFDPD09ebJ2uJLqYAQG
DhxI/EUUTLeuXbuWJlq2bJnoZYO8kcgLwShSpMiuXbvEFS1vxD7A8Fu2bKkM
19uezZGQkPjYYK7DAlC+QoUKYZqw2znaxihSKGPJccfQEvV2aUdw/fp1DCPE
RvsVz8fjly1bVp26RJ3CBfeBqVSGuagOnBBuBqG1YaihXtWqVYOKmDWhExoa
SvivOwKDGcePwHCUKtCAap8LpVSGL/iblpZG+bmoPd/EeGskJydXrFhxz549
eBYqq2yN+eOPP6xVOTY2tnz58sYPmOZRikzii7XjurQ/rrNGjRqRkZHKkoC7
d+/OnTsX2oP44b6Nb+JevXo19YUjCX6l5Y2Up2HDhlBl9EX9Q+40JZX6u6OG
hEWwbiSBwAGCpB5stBvx8fHFihXLdtOuiYDrdunSZcCAAbqEGVbcvHlzRc5h
hsinIrrI86pVqyB1XIEr1q1b91EWlH1G9Li13fqI4uDBg40fMM39aJBQRt4L
Q9NO4kN9hw0bRtiizA5QsISEBPSa65SfoMzgziwkgSALwea34oqWNx48eJDO
6tChg7qO1oaRJSQkPkKY7rAeP35cr149TFNOE0RwM3wGGyjyfptVngMHDuCw
dBPOHD16tHLlymPHjk1KSrp27Ro8pFatWsOHD1d8DRRL5LjLEcSKd7uXDlqA
h1BC3QSGOJ1p06bVrFlz5cqVKSkp58+fDwgIoLLKLm+R88RgykrjrQFVy2nS
Qp5JwbTLQe0DbbJkyZJSpUpt27ZNLWP8zxXkGWc6dOhQ40tMCStgWV27dhWU
W8sb09PT4ah42Fw6y+PdUUNaICYmJjAwEOZpyhZvZRkAFTTIphwHBKxBgwa6
uRD5qnXr1p07d46LiyOoxD50794dcqgsLIFKYYKQAViWu7u7h4eH8XXFIrtj
nTp1HM+rL4AxcXNzoystUpJCjHkRGkpoYDx1ABrh6elJXyiLXrS8ETXnmT17
9nQkeZGEhMQHDNMd1r59+yAVuplA8gUbN26EsWinojDImFCL2U+saJcuXcR2
D8L8oKAgO6ogxjpwRsYN76tXr9LS0u7du6d18dC2vn37KpkS1Thz5oxYaqVc
EWOGXl5egv/AJKGURkYJjLcGrsfb2zunJzKnpqbSCxEREcZ/YgMJCQklS5Yc
OXKkdjQJggqfRPyUE4iMgICldOnSisRqeaOY+1Y27JiOD1gNxaZsSiKy95j4
ZBtaQ6zk7OysJF1UQAEWLFhAcKqmgiiLmPkVN4SFhYnlfwQLrq6uy5cvzxHx
RuOcnJzsTn2gBuLt5+dXtGhRZVpZXRGRcKl8+fLaFcXWIPaY8yslg5YFbxQ5
LrhB2bAjISHx0QKD8Oeff/6hwZEjR9q2bXvjxg2L67iwHBEDgcTExFGjRomp
Ll1zl/cgssa0apdKxsXF6VILqILIEwI50c1bki1wSUTrukxPFxA/KFCJEiWG
Dx+uHSLDqXXNgsWKL3wKxl+7sYXbcNA3b97khpCQEIPzjMZbg9rNmjUrJiYm
Ry0j3JPWj9sBKG6bNm3gjerETQoEb0T8Ll++bPyZSHvTpk2ViVQtb4yOji5U
qNDo0aMd3Cb/Earho0ePYLAFCxaMiooy8bG2tYaWROu1W8kePHjg6+urHUeF
5k2cOJGI7+HDh4i3WNLJ/z4+PjmdqYd/li1bVhuo2gECw08//bRZs2Za5i8G
NiF4OU07L1ZsKr+y4I1IPqEoMvOOHJ0pISGRj7hw4UK1atWKa1CkSBGMD4bC
4jq2pXXr1gZ3FgicP38eG/706VOoC8ZHLBjL1fOaswVueunSpYT/2ulF3IHu
mvl79+7Nmzfv9evX/LVvskmkJW/fvr3xI0sonouLy/r167VfYd47d+7co0cP
i9FLLDzUSJfG7NixA7OPK4SnGeQ5udcaAmL8Z/78+Y7zxgMHDhQrVkyd21MN
cQoeLZajKVFKtXLlSn4olopZ8Ea6wM3NDTKg7EK1Bro+PT39+vXr1sT+I1RD
CAm0hLoYSWp6584d44zLhtagGnDmNWvWWFyHh+tmTKLHZ8+eDcXdvn27gzva
kMAyZcrk9GxNLcQCFbpPnT9TAQXu169ftkcaaYFedOvWDTr6888/Z2p4I+3G
x3bt2tk+MFEsd8RoOJhGQEJC4n2EWRNkGBxvb29ljVBCQgLOHVeraz8xO+Hh
4YMGDeLv5s2bt/6D3bt3O3I8nC5WrVqFB8GVG7yfAsydO/fkyZM//vijfTM1
YrwxRzO5VLxixYq6HlOMN3bp0sX4ttZffvmFhl27dm22PCdbON4aAjhr2PuK
FSscT+Y8depU9d5nNbjC9cKFCyvZcowDfzpgwIDy5csnJSWpeSNvpNgwusWL
F9tesMqdsI7mzZsj9sZ3AAnkixpmZmkiX1E1CPOCBQvsO9fbNgg3ateuDQHO
9lBLGnDRokXW8gZoYUNrxHgjQmvwUbQD+kIJxTkCBn+li8jISAzO1atXHXlI
ZtY2NGRJvfdZDSiuq6srMYgdaWmvXbtWq1atTp06wfrUvBGuiOGCimtTsFog
NTWVkARFM3H3n4SExPsCUxxWWlqal5eXekkPJqh169b494kTJ2q9Lf59+PDh
n2gAOzLxKEABXD9m3HiiQjjDjBkzgoKCcjTRqYY4gAPiYXA5veBC+Ahdh/X3
33/379+/Y8eOxhk1rmTy5MkzZ850fBuC460hgBulF5TTA+0GkjNw4ED1wn41
7t+/X7NmTVrSPnnOyMgIDg6uU6cO9RVL8gICAoYNG8YVghoju5zE7GGzZs1y
ugwyX9QQjx8bGxsRESEElR/26dPn1KlTjpRBC5HDH44hTpmxAYKLadOmGZx1
ta01SAL8ByZsnNXA+VGZ9evXO0KERH54mJjjDBzyX7VqVd01NmDbtm1QSuTT
vs13t2/fpq8RcppInE8dFhaGqBDtGmS8hFfOzs66a0UkJCQ+bDjusDDRgwYN
SklJUV/EfuLZCxYsWKNGDe1+XlyDn5/fsWPH8BQPsoCx8vHxMSVhowWOHj2K
VTR+8J84nMXb29uOdWUCYqBg7NixFiYdOjd79myur169moheOccWdvfll19i
xpcsWTJp0qSQkBD1QSf4Ry5am5bVxaNHj9q1axcVFeX4UIDjrSGQmJiIBzxw
4IDj5RkyZAgeU7vPncouXrzY4hCft2/fLly4ULnCPSJHqI2WgURxT4MGDaBb
gwcPPn36tPH9TYIj6Y6F2ka+qOGTJ09ETnXlyk8//TRixAjjyR6NgDKsWLGi
QIECtrMavnnzZtasWdr4zj6tgbc3btxYd4bXGnbu3AlxctAECTaL8ORoaYEu
xAnytWvX1q4PIYREWho2bKjO9AjPpL5KL9OeWADb2/+xVNDFEiVKlCxZkma8
deuWQYsh6LGrq2t6enrOaiUhIfH+w0GHdfPmzd69e+uOUcAGa9Wqhb/QbrjA
Xq1bt05xTzjZZcuW7d+/374yZFvCihUr6i6C0gWF8fLycuQwayr+2WefhYaG
KleoPsS1TZs2hOd4lujoaAy1cjoY5LlSpUpNmjSBPOPmuD506FA1VwkPD+cG
4yMYFAAPqBwC6Agcbw2BrVu3VqhQwfjGTxuIiIgoXLiwNiHnlStXqlSpMm7c
OPUwb1pamouLi5KtDmohsojbnnMXKw0szqc2AnHOkR3DqvmihnAMaAl1VK7T
UIQJJh6RKSCO/EMprC0XQdqXLl1KLGCRVclurRFH2MMqjafQQaI8PT0dXAiK
TRswYECOVpVYA09ACBEni8StIhYoU6aMRVaryMhIcWaT+JiUlET7WBwcqYXu
+dTZglalrWhematHQuIjhN0OC9Oxfft2fAEGRHeAIiMjo2vXrp988knTpk3V
Yxpa4B2IXk33VgLiBIdJkyYZHHnAXH///feOkK7Tp09jh0+ePKlcgS9Vq1YN
Jinc4qVLl7DVSpbFXbt2lStXTnH6+G5+rl69Lw6gOXLkiMEC3LhxY/To0aZs
hXC8NTL/OWZafQKFAghPSEjI1KlT582bZ3ArwePHjyEhHh4eatd89+7dFi1a
DBs2zGKWk0amqZUlcPxDEJHt/mJkpl27doiukQ3gvBGX7evrSx1Xr15NT+V0
cWNmPqkhDUgzFipUaPjw4bRqcnIy5NPBBQnWcO7cucqVK9NH2tTfXEFc4+Li
LJraEa0RRxQhJ8ablE40Hl1ag0g6pD0wGuNz8OBBriMkxMgGRyMJpT/99FP1
xAH/0FC0pJrtZ/5z9KeSw0GMvbu6uqqTdOmCfuEVRjaAi/O8JkyYMH78eESu
bt26cnGjhMTHCTsc1rNnz/AvWBuxKLFAgQKYfYu4PiEhAQetLFwsVaoU5lR3
5cwff/yBz7VNLB0BFhtDZzwrTnp6OkzJ7mWWGFI8XaNGjRTXQAH8/PxcXFyU
OaPo6Ggsv/goJraUtN58nDVrlsWiJpqIBxq30nv27Mlp0jlrcLA1BP766y+o
y7hx49TUHU8XERHRtm1b6CK1xjl27NjR4LJAiNnnn3/er1+/3bt3Hz9+PDg4
mPZZsWKFxSAPj50yZYo6gSHEgI6wlluPag4ZMgSuApVSi26DBg2sTfo/fPiw
Z8+eCxYsgKXDgXGmuhnas0V+qSF6B3Xkq+LFi0OV7927l9OSGwft4+bmVqxY
saFDh65duzY+Ph4GBd319vbW9ojjWkM0yv0GOTzSyAMd3wQN161atSoUUX2R
Qvr4+Hh5eSGHWCFkjHcZ2WVGI6xZs4agICgoCDlHr3kI3ZSYmGghjeLoTyUr
49u3b/v27evu7m5tPJBmQfWcnJwU2UB+EJUOHTroTgrwnNmzZ/NMDALqTBWM
bHSSkJD4IGF6wuEcQcTFRk6tdQSY2Ro1aigro2zj8OHDjkzVwR/gM+ptCOL4
mG7duokBQK7j35V9LmJFnHK4CffAQyzyS9M4eASeYGSRIc/HK8XGxtpXfgs4
2BoCsILatWur05vQ71u2bKlUqZJIBgLbgSRALI2PkdIUu3btmj59+ty5c2Eg
upsjaGHaecSIEaL8/OV/rph1aklGRgaetHv37mKQU6y4gwXZ0Vz5pYbwRkQL
NgLFgjz06NHD4OlC9oF+v3Xr1qpVq/z9/em7jRs3WhsQc1xrEIkvvvhCGa60
DUIzulLZh2431q1b17x5c/VSZMpG81JykdnmwYMHdLT6WMNs8ejRo/Dw8ICA
gJUrV549e1Z35j05OblChQqEUeIjrYrGLVy40JTgkYcQ4lWpUkVEHMJo16pV
Sy5ulJD4OEGEPnDgQFPO2LUD2Pk2bdoo5i6XgK/5+uuvsXXZWlEYGiT2hx9+
sNveEq3Xr1//woULyhVcM1eU8xfEErsJEybwDxXnb/v27RULf/36ddjU/Pnz
LYg0vKJOnTpGBk9EMg07pkq1cLw1MrO8TFhYWOfOndWDlhAkvHz//v1zdX0U
fNXZ2RmfKz7S1C1atJg0aRL/xMXFOX4K5MGDB0uWLKmsZrx7927VqlXtWwua
L2oIu4AoIoT0ET0Cby9SpAisJr+sgRqOa404XRp6aSRMOH36NOGegwEFbLZX
r14WSUqPHj1aunRpZYVtLiEyMhLeqKwnOXnyJB959ZUrV7JNqpMtfv/994YN
G8KrlVM4PTw8evfuLRc3SkhI5D0OHTqEwTeeJMduxMfHd+jQIdstyTiOPn36
HDt2zL634LZmzpzp4+Ojtqhv3rzBJYnNpNywfv36YsWKRUVF4arwJhjhkSNH
zpgxg6+4c8iQId27d9euA/z7779x6/7+/tmynUuXLuErTTkOz8HWEHj+/PmX
X365bds29cUzZ87gTOGTDpUvO4iTdsWiNZp31apVRYsW3bRp06lTpyyWh9kB
HhgYGOjk5KTMjYpJ4TwQZlMgUp0jb8r4FVdiYmLgG6an4rEDpmhNenp627Zt
LU7P1IKKExwpk7x2IykpqWXLluqEiroT6KZDLG4kRBKbYgiTUVuxRyY0NNTx
zWjiDCYl/oLS16tXz6zBTAkJCQnjwOwQm5t1lqttECkPHz4820krLG2nTp3s
nq66fv067FTrIy5fvuzm5kZlJ02aFBERgZvz9PScPn26SKNx69YtXOTixYt9
fX1xXtbyNFK2jh07ZrttAa+KSzVlk5GDrZGZ1cVr1qwZNGiQxQw7XLRs2bIW
Z5nhZE30RGJxI0SxadOm+LigoKDVq1d7eXkNGDCAlnd8ig0+M2bMGGVuVOz9
4V3EJhDI/Fr4YRwUOCAggDBHTZYg+V999VViYmI+FkyBKVqzZcsWDw8P2wOJ
RHmDBw/ONr2kbSDh33333bp169QyLISwbt26Fuu3HR/rVkMsbixTpkzv3r2X
L19OdLl169YvvviCfwgNHM+qtG/fvnLlyinxI2EFHPX48ePXrl1TT6xISEhI
5DZELj5MUK4uqVLw22+/Zbtd9NChQ9BL++ZfcBz8dtu2bbrkh8pCwAR9wpv8
/vvv6nVK+BGYTLY5Q3bv3k2L2XCCPAcyEB0dbUf5tXCkNQQg0r169dKe7Pbk
yRMolnpKNzU1deLEiSYeW0YrQbNHjRrFPwiY2DIjWt6s/ISRkZHKYjbKX6tW
LZEOcc6cOWYtocxV7Nmzp3Pnzuq9vSkpKVBr7cBdfsFxrUF6J0+eHB4ebiMk
oQeRUkcydfPw9evXw2C16XcgXQiGEhpTC0wE7M5E6picnFyxYkV6k46juZSt
MdTLlEDs5s2byvpkBBt6XLly5bt37/7444/a3fESEhISuQecgqenZ7Vq1dTZ
a3MVFy9exC3aeB2s0r7lQNRl4cKFRPe5lE1IAF+DBwwODrbmK3EZ8fHxjucc
FrC7NQQoho+Pj9j5okVSUlL37t2XLFmC9/H391+wYIG5Z93iqfFuZlFoXbx+
/XrEiBFjx46lR2bMmEHvi+SQ2U6MviNAVhGnnj17bt269ezZs/w/evRoU9J+
vlN4+fIl4YPFHmeLG+Li4hyJJhITE3mF7uIQVHXZsmUeHh5r1qxZtGgRwRG8
0dzM6sQvVatWtePAQYPAqqxbt87d3R1t9fPzo/wtW7acMmXKihUrjKfHlJCQ
kDAFd+7cwWHl6mZqC+AWeaPpK3MeP3585MgRc6efdCGyqDm+8TMPAOe0fSw4
daHdzBoVsQBMwNnZOQ/GQyi/Miv96tUr0w/KzG28ePHi8OHDsbGxtFWuRj35
CBh+QkKCKRlNtYA78XDbm4m45/79+7kxCk2XeXt7f/PNNw6e6JQtMjIyMDvC
xL19+5aoUK5vlJCQkJD4YLBv3z5/f//cdqYSEvkLGOmsWbNiYmIki5OQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ+FDxfwH5x/tx
     
     "], {{0, 189.}, {872., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{623.3333333333322, Automatic},
   ImageSizeRaw->{872., 189.},
   PlotRange->{{0, 872.}, {0, 189.}}]], "Input",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "c2044d95-d13d-4475-961e-16dfbc7f934c"],
 ", FieldNumber = 4"
}], "Subsubsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
   3.831837565561267*^9, 3.831837565717546*^9}, 3.8318376089841914`*^9, {
   3.8329479164930973`*^9, 3.832947916789883*^9}, {3.8329498997072983`*^9, 
   3.83294990456853*^9}, {3.832950626549264*^9, 3.8329506329406137`*^9}, 
   3.8329586249943604`*^9},ExpressionUUID->"6f841ac1-2e42-4b22-bce4-\
92366037bd58"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"{", 
    RowBox[{
    "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", 
     ",", "a8"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"I", " ", "b1"}], ",", 
     RowBox[{"I", " ", "b2"}], ",", 
     RowBox[{"I", " ", "b3"}], ",", 
     RowBox[{"I", " ", "b4"}], ",", 
     RowBox[{"I", " ", "b5"}], ",", 
     RowBox[{"I", " ", "b6"}], ",", 
     RowBox[{"I", " ", "b7"}], ",", 
     RowBox[{"I", " ", "b8"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Delta]", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"I", " ", "d1"}], ",", 
     RowBox[{"I", " ", "d2"}], ",", 
     RowBox[{"I", " ", "d3"}], ",", 
     RowBox[{"I", " ", "d4"}], ",", 
     RowBox[{"I", " ", "d5"}], ",", 
     RowBox[{"I", " ", "d6"}], ",", 
     RowBox[{"I", " ", "d7"}], ",", 
     RowBox[{"I", " ", "d8"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Kappa]", "=", 
   RowBox[{"{", 
    RowBox[{
    "k1", ",", "k2", ",", "k3", ",", "k4", ",", "k5", ",", "k6", ",", "k7", 
     ",", "k8"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
   3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.831831302775831*^9, 
   3.8318313425712132`*^9}, {3.831831417571769*^9, 3.8318314249331074`*^9}, {
   3.8318360089626865`*^9, 3.8318360258726*^9}, {3.83183697293332*^9, 
   3.831836980278759*^9}, {3.8318373329155426`*^9, 3.8318373882613344`*^9}, {
   3.832947939008093*^9, 3.832947950335035*^9}, {3.832948656116955*^9, 
   3.8329487410535097`*^9}, {3.832948894769576*^9, 3.8329489277416515`*^9}, {
   3.832949921693014*^9, 3.8329499729489202`*^9}, {3.8329502098525867`*^9, 
   3.832950220748808*^9}, {3.832950409755516*^9, 3.8329504118958826`*^9}, {
   3.8329507484015727`*^9, 3.8329507682247605`*^9}, {3.832952032847721*^9, 
   3.832952059375659*^9}, 3.8329522259439697`*^9, {3.8329564755201683`*^9, 
   3.8329565777975492`*^9}, {3.8329566247766266`*^9, 3.832956624995286*^9}},
 CellLabel->
  "In[428]:=",ExpressionUUID->"e724b434-1224-44de-b3ad-10488f9131c4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318348118468747`*^9, 3.831834815644092*^9}, 
   3.8329499079814496`*^9, 3.8329499818474035`*^9},
 CellLabel->
  "In[432]:=",ExpressionUUID->"7176d465-010f-475e-b870-c89b78000105"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, {3.8318348123779774`*^9, 3.8318348160189466`*^9}, 
   3.8318354324495916`*^9, 3.8318355280734353`*^9, 3.831836057734417*^9, 
   3.831836224616662*^9, 3.8318369940172477`*^9, {3.83183739467624*^9, 
   3.8318374223770795`*^9}, 3.8318397993831377`*^9, 3.8329475119105663`*^9, 
   3.832948941291499*^9, 3.8329499825191097`*^9, 3.832950417268711*^9, 
   3.8329507741782503`*^9, 3.8329520628892093`*^9, 3.832956462697851*^9, 
   3.832956584548358*^9, 3.8329566274646015`*^9, 3.8329586322151623`*^9, 
   3.8329589449658194`*^9, 3.8329618220477567`*^9, 3.8458269162717905`*^9, 
   3.8458525060045547`*^9, 3.845857115532263*^9, 3.8459196651773376`*^9, 
   3.846006623604597*^9, 3.8460999405316086`*^9, 3.847470503788683*^9, 
   3.8517006900418096`*^9, 3.8539755024249697`*^9, 3.8549774672855*^9, 
   3.854989314871244*^9, 3.8549999522950945`*^9, 3.8551653069557447`*^9, 
   3.8551823716095085`*^9, 3.855185914935237*^9, 3.855330696247239*^9, 
   3.8553398979490876`*^9, 3.8553432374721565`*^9, 3.855344071749176*^9, 
   3.855352799285028*^9, 3.855449659868486*^9, 3.855507657884141*^9, 
   3.855508458084214*^9, 3.855512946887596*^9, 3.8555333757647533`*^9, 
   3.8555789743321157`*^9, 3.8555933459001026`*^9, 3.855750656545106*^9},
 CellLabel->
  "Out[433]=",ExpressionUUID->"71c1842e-8858-4d22-bc2b-664fb928d152"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHSX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "1", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "cc", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "2", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGamma", "[", 
           RowBox[{"nu", ",", "mu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "3", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "4", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGammadown", "[", 
             RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "5", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"\[Gamma]5", "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "6", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGamma", "[", 
             RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "7", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"\[Gamma]5down", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "8", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"Cmetric", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}, 3.832948966605893*^9, {3.8329490066212797`*^9, 
   3.832949165343768*^9}, {3.8329492191094065`*^9, 3.832949345931453*^9}, {
   3.8329493910452533`*^9, 3.83294939649691*^9}, {3.8329494596448545`*^9, 
   3.8329495059992666`*^9}, {3.832949539592924*^9, 3.832949618672328*^9}, {
   3.832949652028014*^9, 3.8329497369508505`*^9}, {3.832949808347021*^9, 
   3.832949837440094*^9}, {3.8329499872705965`*^9, 3.8329500001998386`*^9}, {
   3.832950087070361*^9, 3.832950105096285*^9}, 3.8329502335028925`*^9, 
   3.8329508490766478`*^9, {3.832952027649889*^9, 3.8329520288899865`*^9}, {
   3.832956439613422*^9, 3.832956451331169*^9}},
 CellLabel->
  "In[434]:=",ExpressionUUID->"c34c8ba7-4e85-4f7a-97e0-a7f31aebf6c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDResultSubtractX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"HoloraumyDD", "[", 
         RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
        RowBox[{"FieldNameList", "[", 
         RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "-", 
     RowBox[{
      RowBox[{"HoloraumyDDRHSX", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
     "Simplify"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}, 3.8329497831714077`*^9, {3.8329501296219893`*^9, 
   3.8329501299969635`*^9}, {3.832957233326663*^9, 3.8329572399223013`*^9}, 
   3.8329572728526006`*^9},
 CellLabel->
  "In[435]:=",ExpressionUUID->"009b27b4-6c3c-4f8f-bad4-133fce3f998b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDEquationsX", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"HoloraumyDDResultSubtractX", "[", 
                  RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber",
                  "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{
                 "kk", ",", "cc", ",", "ii", ",", "aa", ",", "jj", ",", 
                  "bb"}], "]"}], "]"}], ",", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], "[", 
                    RowBox[{"[", "derselect", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], "[", 
                    RowBox[{"[", "derselect", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], "[", 
                    RowBox[{"[", "derselect", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], "[", 
                    RowBox[{"[", "derselect", "]"}], "]"}]}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "]"}], "==",
              "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"derselect", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
          "Flatten"}], ",", "True"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
     "Simplify"}], "//", "Flatten"}], "//", "DeleteDuplicates"}]}]], "Input",
 CellChangeTimes->{{3.832956646734638*^9, 3.832956893867624*^9}, {
  3.8329569278316097`*^9, 3.832957103867409*^9}, {3.832957135278473*^9, 
  3.832957294579089*^9}, {3.832957590293367*^9, 3.8329575920949025`*^9}, {
  3.832957751556386*^9, 3.832957755373175*^9}, {3.832958935573391*^9, 
  3.832958938307458*^9}},
 CellLabel->
  "In[436]:=",ExpressionUUID->"2a2fbe44-283e-40ae-a19c-7412bb00be9e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "a4", "+", "d2", "+", "d3"}], ")"}]}]}], "\[Equal]", 
    
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d4"}]}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a4"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a6"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d4"}], "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a8", "+", "d5"}], "\[Equal]", 
    RowBox[{"a5", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", "d1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d2"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d5", "+", "d7"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", "a5", "+", "a7", "+", 
     RowBox[{"2", " ", "d2"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", "a5", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"d4", "+", "d6"}], ")"}]}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d5"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"b4", "+", "k2", "+", "k3"}], ")"}]}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k4"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", "b1", "+", 
     RowBox[{"2", " ", "b4"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b6"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k4"}], "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b6"}], "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b8", "+", "k5"}], "\[Equal]", 
    RowBox[{"b5", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", "k1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k2"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k5", "+", "k7"}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b3"}], "+", "b5", "+", "b7", "+", 
     RowBox[{"2", " ", "k2"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", "b5", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "k4", "+", "k6"}], ")"}]}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k5"}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", "a1", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "d8"}], "\[Equal]", 
    RowBox[{"a8", "+", "d1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"d4", "+", "d6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "d8"}], "\[Equal]", 
    RowBox[{"a8", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"d2", "+", "d3", "+", "d6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", "d8"}], "\[Equal]", 
    RowBox[{"a8", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"a2", "+", "a3", "+", "a4"}], ")"}]}]}], "\[Equal]", 
    RowBox[{"d1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"d2", "+", "d3", "+", "d4"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "a3"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}]}]}], ",", 
   RowBox[{
    RowBox[{"a2", "+", "a4"}], "\[Equal]", 
    RowBox[{"d2", "+", "d4"}]}], ",", 
   RowBox[{
    RowBox[{"a3", "+", "a6"}], "\[Equal]", 
    RowBox[{"d3", "+", "d6"}]}], ",", 
   RowBox[{
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"d4", "+", "d6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", 
     RowBox[{"2", " ", "a6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5", "+", 
     RowBox[{"2", " ", "d6"}]}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"a7", "+", "d1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"d3", "+", "d6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"a7", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"d2", "+", "d4", "+", "d6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", "a5", "+", "d7"}], "\[Equal]", 
    RowBox[{"2", "+", "a7", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d5"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "k8"}], "\[Equal]", 
    RowBox[{"b8", "+", "k1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "k4", "+", "k6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "k8"}], "\[Equal]", 
    RowBox[{"b8", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "k2", "+", "k3", "+", "k6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", "k8"}], "\[Equal]", 
    RowBox[{"b8", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"b2", "+", "b3", "+", "b4"}], ")"}]}]}], "\[Equal]", 
    RowBox[{"k1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"k2", "+", "k3", "+", "k4"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"b2", "+", "b3"}], "\[Equal]", 
    RowBox[{"k2", "+", "k3"}]}], ",", 
   RowBox[{
    RowBox[{"b2", "+", "b4"}], "\[Equal]", 
    RowBox[{"k2", "+", "k4"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b3", "+", "b6"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k6"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b4", "+", "b6"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "k4"}], "+", 
     RowBox[{"2", " ", "k6"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", 
     RowBox[{"2", " ", "b6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5", "+", 
     RowBox[{"2", " ", "k6"}]}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "k7"}], "\[Equal]", 
    RowBox[{"b7", "+", "k1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "k3", "+", "k6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "k7"}], "\[Equal]", 
    RowBox[{"b7", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "k2", "+", "k4", "+", "k6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", "b5", "+", "k7"}], "\[Equal]", 
    RowBox[{"b7", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k5"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d3"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d4"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", "a5", "+", "a7", "+", 
     RowBox[{"2", " ", "d3"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "d2"}], "+", "d5", "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{"a3", "+", "d6"}], "\[Equal]", 
    RowBox[{"a6", "+", "d3"}]}], ",", 
   RowBox[{
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a6", "+", "d4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "d5", "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{"a5", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"a6", "+", "d3", "+", "d4"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"a2", "+", "d3", "+", "d4"}], ")"}]}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d2"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "d3"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "d2"}]}]}], ",", 
   RowBox[{
    RowBox[{"a2", "+", "d4"}], "\[Equal]", 
    RowBox[{"1", "+", "a4", "+", "d2"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d4"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a4"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d3"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", "a5", "+", "a8", "+", 
     RowBox[{"2", " ", "d4"}]}], "\[Equal]", 
    RowBox[{"4", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "d2"}], "+", "d5", "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k3"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b3"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k4"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", "b5", "+", "b7", "+", 
     RowBox[{"2", " ", "k3"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "k2"}], "+", "k5", "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{"1", "+", "b3", "+", "k6"}], "\[Equal]", 
    RowBox[{"b6", "+", "k3"}]}], ",", 
   RowBox[{
    RowBox[{"1", "+", "b4", "+", "k6"}], "\[Equal]", 
    RowBox[{"b6", "+", "k4"}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "k5", "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", 
    RowBox[{"b5", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"b6", "+", "k3", "+", "k4"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"b2", "+", "k3", "+", "k4"}], ")"}]}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k2"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "k3"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "k2"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "k4"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "k2"}]}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k4"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b4"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k3"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", "b5", "+", "b8", "+", 
     RowBox[{"2", " ", "k4"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "k2"}], "+", "k5", "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"d3", "+", "d6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a3"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a6"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d3"}], "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", "a7", "+", "d5"}], "\[Equal]", 
    RowBox[{"a5", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "d4"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", "d1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d2"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5", "+", "d8"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", "a8", "+", 
     RowBox[{"2", " ", "d2"}]}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"a3", "+", "d2", "+", "d4"}], ")"}]}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d3"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "k3", "+", "k6"}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", "b1", "+", 
     RowBox[{"2", " ", "b3"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b6"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k3"}], "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b6"}], "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", "b7", "+", "k5"}], "\[Equal]", 
    RowBox[{"b5", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "k4"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", "k1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k2"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5", "+", "k8"}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", "b8", "+", 
     RowBox[{"2", " ", "k2"}]}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"b3", "+", "k2", "+", "k4"}], ")"}]}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k3"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", "b1", "+", 
     RowBox[{"2", " ", "b4"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k4"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "b3", "+", "k2", "+", "k3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b4"}], "+", "b8", "+", "k1", "+", 
     RowBox[{"2", " ", "k4"}], "+", "k8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b6", "+", "k6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b6", "+", "k6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k8"}], "\[Equal]", 
    RowBox[{"b5", "+", "k5"}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", "b1", "+", "k1"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "k2"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k4"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b2", "+", "k2"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", "b5", "+", "b7", "+", 
     RowBox[{"2", " ", "k3"}], "+", "k5", "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", "b5", "+", 
     RowBox[{"2", " ", "k3"}], "+", "k5"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b4", "+", "b6", "+", "k4", "+", "k6"}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a4"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d4"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "a3", "+", "d2", "+", "d3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a4"}], "+", "a8", "+", "d1", "+", 
     RowBox[{"2", " ", "d4"}], "+", "d8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "a6", "+", "d6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "a6", "+", "d6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d8"}], "\[Equal]", 
    RowBox[{"a5", "+", "d5"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", "d1"}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "d2"}], ")"}]}], "\[Equal]", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d4"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "d2"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", "a5", "+", "a7", "+", 
     RowBox[{"2", " ", "d3"}], "+", "d5", "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", "a5", "+", 
     RowBox[{"2", " ", "d3"}], "+", "d5"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "a4", "+", "a6", "+", "d4", "+", "d6"}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"2", "+", "b1", "+", 
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k4"}], "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", 
    RowBox[{"b8", "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "b3", "+", "b6", "+", "k2", "+", "k3", "+", "k6"}], 
      ")"}]}], "\[Equal]", 
    RowBox[{"b8", "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5"}], "\[Equal]", 
    RowBox[{"b8", "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k4"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "b3", "+", "k2", "+", "k3"}], ")"}]}], "\[Equal]", 
    "1"}], ",", 
   RowBox[{
    RowBox[{"b2", "+", "b4", "+", "k2", "+", "k4"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"b3", "+", "b6", "+", "k3", "+", "k6"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", 
     RowBox[{"2", " ", "b6"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5", "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"2", "+", "b1", "+", 
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k6"}]}], "\[Equal]", 
    RowBox[{"b7", "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
      "1", "+", "b2", "+", "b4", "+", "b6", "+", "k2", "+", "k4", "+", "k6"}],
       ")"}]}], "\[Equal]", 
    RowBox[{"b7", "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", "b5", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k5"}], "\[Equal]", 
    RowBox[{"b7", "+", "k7"}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", "a1", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d4"}], "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{"a8", "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
      "1", "+", "a2", "+", "a3", "+", "a6", "+", "d2", "+", "d3", "+", "d6"}],
       ")"}]}], "\[Equal]", 
    RowBox[{"a8", "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5"}], "\[Equal]", 
    RowBox[{"a8", "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d4"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"a2", "+", "a3", "+", "d2", "+", "d3"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"a2", "+", "a4", "+", "d2", "+", "d4"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5", "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d6"}]}], "\[Equal]", 
    RowBox[{"a7", "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "a4", "+", "a6", "+", "d2", "+", "d4", "+", "d6"}], 
      ")"}]}], "\[Equal]", 
    RowBox[{"a7", "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", "a5", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d5"}], "\[Equal]", 
    RowBox[{"2", "+", "a7", "+", "d7"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", "k1", "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b3", "+", "k3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b4", "+", "k4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", "b5", "+", "b7", "+", 
     RowBox[{"2", " ", "k2"}], "+", "k5", "+", "k7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b3", "+", "k3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b3", "+", "k3"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "b6"}], "+", 
     RowBox[{"2", " ", "k6"}]}]}], ",", 
   RowBox[{
    RowBox[{"b4", "+", "k4"}], "\[Equal]", 
    RowBox[{"b6", "+", "k6"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b3", "+", "b4", "+", "k3", "+", "k4"}], ")"}]}], "\[Equal]", 
    RowBox[{"b5", "+", 
     RowBox[{"2", " ", "b6"}], "+", "k5", "+", 
     RowBox[{"2", " ", "k6"}]}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b2"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k2"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b3", "+", "b4", "+", "k3", "+", "k4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"b2", "+", "k2"}], "\[Equal]", 
    RowBox[{"b3", "+", "k3"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "k2"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "k4"}]}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", "k1", "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b4", "+", "k4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b3", "+", "k3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", "b5", "+", "b8", "+", 
     RowBox[{"2", " ", "k2"}], "+", "k5", "+", "k8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b4", "+", "k4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", "a1", "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", "d1", "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a3", "+", "d3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a4", "+", "d4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", "a5", "+", "a7", "+", 
     RowBox[{"2", " ", "d2"}], "+", "d5", "+", "d7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a3", "+", "d3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a3", "+", "d3"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d6"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a4", "+", "d4"}], ")"}]}], "\[Equal]", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "a6"}], "+", 
     RowBox[{"2", " ", "d6"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a3", "+", "a4", "+", "d3", "+", "d4"}], ")"}]}], "\[Equal]", 
    RowBox[{"a5", "+", 
     RowBox[{"2", " ", "a6"}], "+", "d5", "+", 
     RowBox[{"2", " ", "d6"}]}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a2"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d2"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a3", "+", "a4", "+", "d3", "+", "d4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"a2", "+", "d2"}], "\[Equal]", 
    RowBox[{"a3", "+", "d3"}]}], ",", 
   RowBox[{
    RowBox[{"a2", "+", "d2"}], "\[Equal]", 
    RowBox[{"a4", "+", "d4"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", "d1", "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a4", "+", "d4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a3", "+", "d3"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", "a5", "+", "a8", "+", 
     RowBox[{"2", " ", "d2"}], "+", "d5", "+", "d8"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "a4", "+", "d4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b3", "+", "b6", "+", "k3", "+", "k6"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b3"}], "+", "b7", "+", "k1", "+", 
     RowBox[{"2", " ", "k3"}], "+", "k7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b6", "+", "k6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b4"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k4"}], "+", "k7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "b6", "+", "k6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "b2"}], "+", 
     RowBox[{"2", " ", "b3"}], "+", "b7", "+", 
     RowBox[{"2", " ", "k2"}], "+", 
     RowBox[{"2", " ", "k3"}], "+", "k7"}], "\[Equal]", 
    RowBox[{"2", "+", "b5", "+", "k5"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", "k1"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k4"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "k2"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b3"}], "+", 
     RowBox[{"2", " ", "b6"}], "+", "b8", "+", 
     RowBox[{"2", " ", "k3"}], "+", 
     RowBox[{"2", " ", "k6"}], "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "k2"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "b4"}], "+", "b5", "+", "b8", "+", 
     RowBox[{"2", " ", "k4"}], "+", "k5", "+", "k8"}]}], ",", 
   RowBox[{
    RowBox[{"b1", "+", 
     RowBox[{"2", " ", "b3"}], "+", "k1", "+", 
     RowBox[{"2", " ", "k3"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"b2", "+", "b4", "+", "k2", "+", "k4"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "a3", "+", "a6", "+", "d3", "+", "d6"}], ")"}]}], 
    "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a3"}], "+", "a7", "+", "d1", "+", 
     RowBox[{"2", " ", "d3"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a6", "+", "d6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a4"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d4"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a6", "+", "d6"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "a2"}], "+", 
     RowBox[{"2", " ", "a3"}], "+", "a7", "+", 
     RowBox[{"2", " ", "d2"}], "+", 
     RowBox[{"2", " ", "d3"}], "+", "d7"}], "\[Equal]", 
    RowBox[{"a5", "+", "d5"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", "d1"}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a4"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d4"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "d2"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a3"}], "+", 
     RowBox[{"2", " ", "a6"}], "+", "a8", "+", 
     RowBox[{"2", " ", "d3"}], "+", 
     RowBox[{"2", " ", "d6"}], "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "a2", "+", "d2"}], ")"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", "a4"}], "+", "a5", "+", "a8", "+", 
     RowBox[{"2", " ", "d4"}], "+", "d5", "+", "d8"}]}], ",", 
   RowBox[{
    RowBox[{"a1", "+", 
     RowBox[{"2", " ", "a3"}], "+", "d1", "+", 
     RowBox[{"2", " ", "d3"}]}], "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a2", "+", "a4", "+", "d2", "+", "d4"}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.832956687866556*^9, 3.8329566944324803`*^9}, 
   3.832957107880642*^9, 3.8329571415693665`*^9, {3.8329572793125467`*^9, 
   3.8329573009892263`*^9}, 3.832957594612644*^9, 3.832957769706215*^9, 
   3.832958678813571*^9, 3.832958966713557*^9, 3.8329618400079927`*^9, 
   3.84582693767169*^9, 3.845852527631545*^9, 3.845857136313429*^9, 
   3.845919687354003*^9, 3.8460066413202596`*^9, 3.8460999617315373`*^9, 
   3.8474705251505737`*^9, 3.8517007117903795`*^9, 3.853975523386394*^9, 
   3.854977488394266*^9, 3.854989335413816*^9, 3.8549999735123897`*^9, 
   3.855165331565651*^9, 3.8551823930074253`*^9, 3.855185935951868*^9, 
   3.8553307180697794`*^9, 3.85533991895476*^9, 3.8553432588999596`*^9, 
   3.855344094079846*^9, 3.8553528217351227`*^9, 3.855449680268386*^9, 
   3.8555076786762943`*^9, 3.855508480114978*^9, 3.855512974765777*^9, 
   3.8555333967041197`*^9, 3.855578995640803*^9, 3.85559336655891*^9, 
   3.8557506777119975`*^9},
 CellLabel->
  "Out[436]=",ExpressionUUID->"c907c474-6004-4cdb-bca2-6a993d30c08a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDSolutionX", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"HoloraumyDDEquationsX", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", 
       ",", "a8", ",", "b1", ",", "b2", ",", "b3", ",", "b4", ",", "b5", ",", 
       "b6", ",", "b7", ",", "b8", ",", "d1", ",", "d2", ",", "d3", ",", "d4",
        ",", "d5", ",", "d6", ",", "d7", ",", "d8", ",", "k1", ",", "k2", ",",
        "k3", ",", "k4", ",", "k5", ",", "k6", ",", "k7", ",", "k8"}], 
      "}"}]}], "]"}], "//", "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.8329573126790953`*^9, 3.832957334298295*^9}, {
  3.832957375921785*^9, 3.8329574117139673`*^9}, {3.832958996236898*^9, 
  3.832958997638348*^9}},
 CellLabel->
  "In[437]:=",ExpressionUUID->"507407c8-73d0-4cce-9838-9a92de6c5bef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a1", "\[Rule]", "0"}], ",", 
   RowBox[{"a2", "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{"a3", "\[Rule]", "0"}], ",", 
   RowBox[{"a4", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{"a5", "\[Rule]", "1"}], ",", 
   RowBox[{"a6", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{"a7", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{"a8", "\[Rule]", "1"}], ",", 
   RowBox[{"b1", "\[Rule]", "0"}], ",", 
   RowBox[{"b2", "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{"b3", "\[Rule]", "0"}], ",", 
   RowBox[{"b4", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{"b5", "\[Rule]", "0"}], ",", 
   RowBox[{"b6", "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{"b7", "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{"b8", "\[Rule]", "0"}], ",", 
   RowBox[{"d1", "\[Rule]", "0"}], ",", 
   RowBox[{"d2", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{"d3", "\[Rule]", "0"}], ",", 
   RowBox[{"d4", "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{"d5", "\[Rule]", "0"}], ",", 
   RowBox[{"d6", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{"d7", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{"d8", "\[Rule]", "0"}], ",", 
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{"k2", "\[Rule]", "0"}], ",", 
   RowBox[{"k3", "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{"k4", "\[Rule]", "0"}], ",", 
   RowBox[{"k5", "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{"k6", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{"k7", "\[Rule]", "1"}], ",", 
   RowBox[{"k8", "\[Rule]", 
    FractionBox["1", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8329574141417522`*^9, 3.8329577806944313`*^9, 3.83295868470193*^9, {
   3.8329589817436967`*^9, 3.832958998981905*^9}, 3.8329618400696387`*^9, 
   3.845826937772792*^9, 3.8458525277050734`*^9, 3.845857136373946*^9, 
   3.8459196874477253`*^9, 3.846006641401242*^9, 3.8460999618183603`*^9, 
   3.8474705252435846`*^9, 3.8517007118772135`*^9, 3.853975523459306*^9, 
   3.8549774884924965`*^9, 3.854989335512059*^9, 3.854999973601673*^9, 
   3.855165331682573*^9, 3.855182393092628*^9, 3.855185936036107*^9, 
   3.855330718163512*^9, 3.8553399190641203`*^9, 3.8553432590093107`*^9, 
   3.855344094142336*^9, 3.8553528218943453`*^9, 3.855449680323695*^9, 
   3.855507678753626*^9, 3.855508480169957*^9, 3.855512974864612*^9, 
   3.8555333967670097`*^9, 3.855578995714038*^9, 3.8555933665901275`*^9, 
   3.8557506777753553`*^9},
 CellLabel->
  "Out[437]=",ExpressionUUID->"74366973-b42d-4cf8-816f-521da6b51480"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Alpha]", " ", "=", 
  RowBox[{"\[Alpha]", "//.", 
   RowBox[{
    RowBox[{"HoloraumyDDSolutionX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.832957825313237*^9, 3.8329578456111937`*^9}, {
  3.8329579355791903`*^9, 3.832957935923359*^9}, {3.8329584538927155`*^9, 
  3.8329584549388313`*^9}, {3.8329590351562138`*^9, 3.832959035890442*^9}},
 CellLabel->
  "In[438]:=",ExpressionUUID->"5331421b-0ef8-4f67-9fbe-42821ce3a529"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   FractionBox["1", "4"], ",", "0", ",", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], ",", "1", ",", 
   RowBox[{"-", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.8329579370214834`*^9, 3.832958457433273*^9, 
  3.8329586952790127`*^9, 3.832959036425249*^9, 3.8329618401035485`*^9, 
  3.8458269378353195`*^9, 3.845852527712591*^9, 3.845857136382039*^9, 
  3.8459196875258064`*^9, 3.8460066414401393`*^9, 3.846099961865717*^9, 
  3.847470525290495*^9, 3.851700711924051*^9, 3.853975523467407*^9, 
  3.8549774885370083`*^9, 3.854989335519793*^9, 3.854999973601673*^9, 
  3.8551653317583704`*^9, 3.855182393139491*^9, 3.855185936045512*^9, 
  3.8553307182103744`*^9, 3.8553399191109686`*^9, 3.855343259087417*^9, 
  3.8553440941735773`*^9, 3.855352821902975*^9, 3.855449680331715*^9, 
  3.85550767876162*^9, 3.855508480179379*^9, 3.855512974875284*^9, 
  3.855533396777821*^9, 3.855578995745305*^9, 3.8555933666057496`*^9, 
  3.8557506778065963`*^9},
 CellLabel->
  "Out[438]=",ExpressionUUID->"d4c96a21-c3c9-49dc-9413-b16e92132368"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Beta]", "=", 
  RowBox[{"\[Beta]", "//.", 
   RowBox[{
    RowBox[{"HoloraumyDDSolutionX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.832957825313237*^9, 3.8329578456111937`*^9}, {
  3.8329579355791903`*^9, 3.832957948003191*^9}, {3.832958459132363*^9, 
  3.8329584598508224`*^9}, {3.832959039651402*^9, 3.8329590403784375`*^9}},
 CellLabel->
  "In[439]:=",ExpressionUUID->"13870cd3-3542-4134-a038-261c9ec7f56b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   FractionBox["\[ImaginaryI]", "4"], ",", "0", ",", 
   RowBox[{"-", 
    FractionBox["\[ImaginaryI]", "4"]}], ",", "0", ",", 
   FractionBox["\[ImaginaryI]", "4"], ",", 
   FractionBox["\[ImaginaryI]", "2"], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.8329579370214834`*^9, 3.8329579487592154`*^9}, 
   3.832958460523057*^9, 3.8329587011588154`*^9, 3.8329590408710685`*^9, 
   3.8329618401044064`*^9, 3.8458269378977675`*^9, 3.845852527736589*^9, 
   3.845857136417905*^9, 3.8459196875882916`*^9, 3.846006641478036*^9, 
   3.8460999619282017`*^9, 3.847470525337313*^9, 3.851700711970916*^9, 
   3.853975523504155*^9, 3.854977488599488*^9, 3.8549893355628242`*^9, 
   3.8549999736172943`*^9, 3.855165331819206*^9, 3.8551823931863546`*^9, 
   3.855185936082206*^9, 3.8553307182572412`*^9, 3.855339919173428*^9, 
   3.855343259165524*^9, 3.855344094220441*^9, 3.855352821962583*^9, 
   3.855449680361443*^9, 3.8555076787921133`*^9, 3.855508480209135*^9, 
   3.855512974941581*^9, 3.855533396812049*^9, 3.8555789957765408`*^9, 
   3.855593366621369*^9, 3.855750677837838*^9},
 CellLabel->
  "Out[439]=",ExpressionUUID->"41b25d82-5669-4349-8da7-a980967f4b94"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Delta]", "=", 
  RowBox[{"\[Delta]", "//.", 
   RowBox[{
    RowBox[{"HoloraumyDDSolutionX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.832957825313237*^9, 3.8329578456111937`*^9}, {
  3.8329579355791903`*^9, 3.8329579528511696`*^9}, {3.8329584618518033`*^9, 
  3.8329584629788456`*^9}, {3.8329590431792636`*^9, 3.832959043834496*^9}},
 CellLabel->
  "In[440]:=",ExpressionUUID->"f9fe9c05-163d-4393-9335-601681f6a34d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", 
    FractionBox["\[ImaginaryI]", "4"]}], ",", "0", ",", 
   FractionBox["\[ImaginaryI]", "4"], ",", "0", ",", 
   RowBox[{"-", 
    FractionBox["\[ImaginaryI]", "4"]}], ",", 
   RowBox[{"-", 
    FractionBox["\[ImaginaryI]", "2"]}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.8329579370214834`*^9, 3.8329579537494383`*^9}, 
   3.8329584633983383`*^9, 3.832958703103556*^9, 3.8329590443170033`*^9, 
   3.8329618401356497`*^9, 3.845826937960041*^9, 3.845852527743841*^9, 
   3.845857136426051*^9, 3.845919687666399*^9, 3.8460066415196557`*^9, 
   3.846099961975067*^9, 3.847470525384204*^9, 3.8517007120177827`*^9, 
   3.853975523512024*^9, 3.8549774886381135`*^9, 3.854989335570462*^9, 
   3.8549999736172943`*^9, 3.855165331878553*^9, 3.8551823932488403`*^9, 
   3.855185936090857*^9, 3.855330718304103*^9, 3.8553399192203026`*^9, 
   3.855343259243604*^9, 3.855344094257383*^9, 3.855352821980796*^9, 
   3.855449680369033*^9, 3.855507678800395*^9, 3.8555084802170763`*^9, 
   3.8555129749507923`*^9, 3.855533396823838*^9, 3.8555789958234186`*^9, 
   3.855593366621369*^9, 3.8557506778847027`*^9},
 CellLabel->
  "Out[440]=",ExpressionUUID->"b5373978-22a7-49a6-91e2-b73beef4e0de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Kappa]", "=", 
  RowBox[{"\[Kappa]", "//.", 
   RowBox[{
    RowBox[{"HoloraumyDDSolutionX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.832957825313237*^9, 3.8329578456111937`*^9}, {
  3.8329579355791903`*^9, 3.832957958762809*^9}, {3.8329584653162904`*^9, 
  3.8329584662143254`*^9}, {3.832959046723402*^9, 3.8329590473864393`*^9}},
 CellLabel->
  "In[441]:=",ExpressionUUID->"27d3b312-04ca-434f-a87d-82b8f8a2eced"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], ",", "0", ",", 
   FractionBox["1", "4"], ",", "0", ",", 
   FractionBox["1", "2"], ",", 
   RowBox[{"-", 
    FractionBox["1", "2"]}], ",", "1", ",", 
   FractionBox["1", "2"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8329579370214834`*^9, 3.8329579596701202`*^9}, 
   3.8329584668224955`*^9, 3.8329587050774193`*^9, 3.8329590479029303`*^9, 
   3.832961840173035*^9, 3.8458269380225434`*^9, 3.845852527770911*^9, 
   3.845857136462813*^9, 3.8459196877288833`*^9, 3.846006641566526*^9, 
   3.846099962037551*^9, 3.8474705254310684`*^9, 3.851700712080264*^9, 
   3.853975523552472*^9, 3.8549774886849766`*^9, 3.854989335617652*^9, 
   3.8549999736329145`*^9, 3.8551653319314165`*^9, 3.8551823933113275`*^9, 
   3.855185936133663*^9, 3.8553307183509665`*^9, 3.8553399192828035`*^9, 
   3.8553432593060894`*^9, 3.855344094310345*^9, 3.855352822037566*^9, 
   3.85544968040775*^9, 3.855507678837953*^9, 3.855508480254059*^9, 
   3.8555129750259333`*^9, 3.855533396861177*^9, 3.8555789958546295`*^9, 
   3.8555933666369896`*^9, 3.855750677931568*^9},
 CellLabel->
  "Out[441]=",ExpressionUUID->"20de2c95-bdf8-441c-b2f9-37b1be38293e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHSFinalX", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "1", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "cc", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "2", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGamma", "[", 
           RowBox[{"nu", ",", "mu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "3", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "4", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGammadown", "[", 
             RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "5", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"\[Gamma]5", "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", " ", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "6", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGamma", "[", 
             RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "7", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"\[Gamma]5down", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "8", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"Cmetric", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}, 3.832948966605893*^9, {3.8329490066212797`*^9, 
   3.832949165343768*^9}, {3.8329492191094065`*^9, 3.832949345931453*^9}, {
   3.8329493910452533`*^9, 3.83294939649691*^9}, {3.8329494596448545`*^9, 
   3.8329495059992666`*^9}, {3.832949539592924*^9, 3.832949618672328*^9}, {
   3.832949652028014*^9, 3.8329497369508505`*^9}, {3.832949808347021*^9, 
   3.832949837440094*^9}, {3.8329499872705965`*^9, 3.8329500001998386`*^9}, {
   3.832950087070361*^9, 3.832950105096285*^9}, 3.8329502335028925`*^9, 
   3.8329508490766478`*^9, {3.832952027649889*^9, 3.8329520288899865`*^9}, {
   3.832956439613422*^9, 3.832956451331169*^9}, {3.8329584941430373`*^9, 
   3.832958494629758*^9}},
 CellLabel->
  "In[442]:=",ExpressionUUID->"821cd6b0-edd9-4c0d-aca7-6a29fe136f6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResultX", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHSFinalX", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}, 3.8329497831714077`*^9, {3.8329501296219893`*^9, 
   3.8329501299969635`*^9}, {3.832957233326663*^9, 3.8329572399223013`*^9}, 
   3.8329572728526006`*^9, {3.8329585128795233`*^9, 3.8329585295796647`*^9}},
 CellLabel->
  "In[443]:=",ExpressionUUID->"17c1e474-909c-44ea-9bb5-2623ac19d9ad"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.832958531020672*^9, 3.8329587547666903`*^9, 
  3.8329597264661226`*^9, 3.832961844868998*^9, 3.845826943575305*^9, 
  3.845852533467935*^9, 3.845857141727806*^9, 3.8459196934332857`*^9, 
  3.846006646256647*^9, 3.8460999676334515`*^9, 3.8474705310004616`*^9, 
  3.851700718042145*^9, 3.853975529177836*^9, 3.8549774944690094`*^9, 
  3.8549893407489433`*^9, 3.854999979220972*^9, 3.8551653384189644`*^9, 
  3.8551823989866753`*^9, 3.855185941384581*^9, 3.8553307244107604`*^9, 
  3.855339924793554*^9, 3.855343264947731*^9, 3.855344099868408*^9, 
  3.855352828331935*^9, 3.855449685563342*^9, 3.85550768408288*^9, 
  3.855508485736261*^9, 3.855512980440219*^9, 3.855533402493845*^9, 
  3.8555790013167295`*^9, 3.855593372044362*^9, 3.855750683539007*^9},
 CellLabel->
  "Out[443]=",ExpressionUUID->"e6e6bc2b-cd0b-4a2f-9c01-a5cce5387313"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", 
   "\[Kappa]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}, {
   3.8329497659203863`*^9, 3.8329497726326275`*^9}},
 CellLabel->
  "In[444]:=",ExpressionUUID->"3d2d5538-d72d-4d55-9c59-e7c857d96f94"]
}, Closed]],

Cell["Same thing but in Y-basis:", "Subsubsection",
 CellChangeTimes->{
  3.832959781753699*^9},ExpressionUUID->"20c087db-4bb0-4cad-8b20-\
7306f4ca4c2d"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsnQdwFVX7/6WF+hJKQkKJoQaU3hEUAem99xLpEIpAQkkCCU16C9J7CR2B
UIcQEASEyIQSFBhRyiAgg8iIjjL6Tv6ff868O/vb3Xuz9969NyGc7wxM7t67
Z88+5ynf59RSA8d2Hpr1nXfemZCL/zp/Oqnx+PGfTulSgA/dxkwYMWzMkMGt
xoQOGTZkfL2B2bh4gH/T+OP//50iISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEh8Ybj9evX6V0FCYk3ANJSJCQyJaRpS0h4Bk+ePAkNDS1ZsuQ777zj6+s7
fvz4R48eqX/w7bff9urVi//Tq4YSzuG///3v06dPr1+/fv/+ff23//7778OH
D5OSkn799VfP1+1NhLQU90HqqkQ6Qpq2hITHgLc/evRo/fr1p06deunSpW++
+WbWrFnFixfPnz//iBEjdu/evXfv3sGDBzdp0uTy5cu2Crlz586UKVNu377t
yZq/zXj16tWcOXMOHDhA86mv8/HQoUN89ccff4grROqOHTtmz549Ojpa82NA
0zdo0MDLy4tW9lDV31hYYilvIZDbl19+qdZJBRq/kb66evfu3fj4+DNnzrx8
+dId5dvBL7/8cvr06YSEhMePH3v40RIp0rQlJDyOxMREjOvHH39UX8T3Lly4
sEqVKgUKFPjoo49iYmKgOnYK2bFjR9WqVd2dDP7999/37t0jPHk+NGQ00F41
atT44osvNAEaEQ0aNKhbt26//fabcvHkyZOFCxc+cuSIYVHLli3Dx8qsIU24
YinPnz+/fv36Tz/95KnKZiCgkwMHDuzevbvebPV+I7109d9//6VxS5Ys2alT
p++//97y8u3j7NmzrVu39vPzQ388/Og3AmjOrVu3aBeayR3lS9OWeJthqyNL
IiU1NGzZsgU/4O3tffHixfSuzhsDdGn27NmBgYGGvvH169e9evVq1KjR77//
7vm6vSVA8v3798+VKxcE7J9//knv6mRcpKOu4l5Gjx69fPlyy0s2X4GxY8eS
S6ZXBTIsXrx4ERoa6uPj06BBA3VCnREgTVsiE8BWR5aEAM55/PjxlSpVevLk
SXrX5Y3BX3/91b59+5YtW+rHOsHjx48rVqwYFhbmps4ECYEbN274+fmtXbs2
vSuSoZGOuiqZZ0bGL7/8QmREPhnQTUnTlnA3Hj58WLt27UKFChUuXDgkJETm
OPiBQ4cOwQaHDx+uDFWQlhI+fFLRuXNnCzsoXr58+fHHH/fq1ettXnuIeOfN
mzdixIgjR46oMxSux8TEDB06dO7cuX/++ady/cGDB2XLlp02bRo/fvToUXh4
+KBBg+Li4sS9X3/9Ncq8Z88eO0+kZVesWGFIBlwHVV21atUPP/zgjsIzDrZu
3err6/u2rU3AP+zbt2/kyJGLFi1Sj1Qa+o0UK3QVdVq9erUTw/EZkHl6zDSc
FlqaxVpVfwynSJEisbGxrhdlOd5O05bwJO7evRsYGLhp06YLFy7oDQrXga39
YQSuZ8xuzL/++suwwiBNdscbbdmyBd8Ct2zdujVcSFBx5JCcnIyIpk+fXqdO
nRcvXhje/k8q9BftPPfWrVvFihVbtmyZg2+Z4aDJ3G0l8v+mQvz931QgHGhn
QkLC4sWLq1atqvT9wskjIiKQ+XfffRcQEEBYVwoRE+e4cv369cjIyEuXLtWv
X5/2oun5dunSpcWLF0ewtqqKznft2pW7XHxlO7hy5UqXLl3s1MF1ILr4+Pge
PXp88sknH374IZnRwYMHnc4cRUNoLJqW0l8U4EEkqjVq1Pjll1+ce2I6wmld
5Y8TJ06gqLQvOnn06FHlW0O/keKyruJmQ0NDyb+c6BnLgMwzxSOm4YrQ0oRV
9V+7dm3RokVv3ryp/0qatkSmB1GYlNxWdvPVV1+hgbly5XonFTly5KhQoULN
VFSsWNHPzw/WSvpvaD62OrLcimfPnnXu3LlQoULv/A8lSpQQFa5WrRp/k2a2
bduWQGBoyHDv8PBwOCrlcIu+E3jHjh0ffPCBIfPEliGQ77//ft68eZWnI7FS
pUoNHjzY1gKi3bt3E5i+/vpr/j537tzw4cMJFunVXYYvOn/+/Oeffx4WFrZx
40bN7HQNEBE//vvvv/l7586dKIaXl5d4ayTQsGFDQq3mFiLCoEGDsmTJIn5W
unTpuLg4iCV8npDds2fPpk2bKv3Ju3btIprzB6TUx8eHX4rr6BI1pCn5du7c
uagZ7UWUQXriFfDYH3/8sS2B//rrr9DO7du3uyIoAgF6onTD3rlzh/iu6Qnf
t28fD0JKrjzIFnjNOXPmjB8//uHDhympMoGiV6lSBf2xv27OFmBEDRo08PX1
VVSXZsLAkeS1a9f0v8cE6tWrl44zwdJFV9E02OO9e/c2b97s7+8PCRE/tuU3
XNRVXMqCBQuGDRum7vA3D0PmiaBQEjRWfERbVq5caejA0wTvuGTJklatWkGk
FfnzyuvXr585cybf2hptd6tpuCg0M3C6/vDVyZMnDxkyZOHChb179zac5ClN
W+JtgH3mKUCwrlu3LhqLRag5pDCK5s2b58mTB78qHLuArY4sz4CKTZ06lQpj
XBo+8ODBA0IVXLpTp04///yz5kZsTYzAElMwVeKL5gd2mKf66dOmTePpRDT7
K9ZxkhMmTICs4mQIiEuXLj18+DC0OV1mRiGZ4OBggiZkmArgrJDSxIkTDV/2
+fPnderU4QdwMOXimTNn8ufPnz17dpiArafQHDQK0VlROWROjLhx40bx4sXV
UZKG4CuEiSIFBASgqOK6mDjHUxo1apSYmKjp1nj8+DHyDA0NNezuEExgwIAB
rkQl7m3ZsmW7du1Et5VoRH0XAeZAxhEdHe2OjheyuSlTpogKKEhOTi5ZsiQv
6EqiRxJEIxYoUADZ2vmZmAm2Zs0apx/kCtJLV1NSqRpo06YNCawyW8OW33BF
V8HFixfr16/v9JCxIfOE9xYtWlRZ6n7y5EmScf537hG8IA3BWyhbJ4mZq6NG
jRI9xobM062m4aLQzMCJ+mOSqF/t2rWPHTvGXatXr86dO/eYMWP0Jbzlpi3x
lsAM88SpfvLJJ1ApMlz9t9gICVq2bNnI5hTyaasjy2NYtGgRFebRhhwDJ4AB
4qBEXqnHunXrcMj6nhAzzBPgbHk6QUfNxvUQkzzhwIQDYihe6M6dOxAtzWa/
HgD5e48ePZTRw5TUCEvay1v07dtXPx+SBiW44DkJ6+qLQk9odMMXx21u2rSJ
5F0jQEEIAwMDla4YBZSDfJo1a6bUQUycQ+ViY2MrV67cr18/tXbZnzhHg5IH
iR4np3Hv3j2qOnPmTBEFfvvttw8//BAp6edUXLp0iccpPWNWAVG0aNHCy8sL
nVFfh/8g21KlSiks3QnASRAgym+/433Lli0+Pj72Q1iawDad6MZJX10Fly9f
Rj6GlFXjN1zRVV6qc+fOUVFRTtMzPfNERXv37o26iq423nHGjBkojOEu92aA
B/voo4+QoaL827Ztg7eIQRw7K4zcZBquC80kHK1/UlJSiRIl5s+fL5zGN998
Q9PrR14yjWlLSNiH68wzJTX4tmzZMleuXIop2erI8hjsM0/Mnx/AlknY9T+g
8oMGDapbt67+YBEN80Qy06ZN69Chw4IFC9QxRc88eeLx48d79erVtWtXRdq3
bt3y9/fPly/fZ599pu+A9SQ2bNgQGRmpcde3b9/GW5KbKyPdaYK2zpo1K41u
uH/giRMnRo4cqQ/lUILatWt/+umnyBAJq0egSA2CgoKom5Lsx8fH4z8PHz7M
36tWrcKRUk/U+NixY/wGFS1WrBhP5yPpj/opvB3JEY3i4sKiI0eOUAHeRXzk
KTSi4aaFqBa0WT3rzxIQ7lG58uXL6wfLYD45cuSAMqVZCLLav38/0oCcqDuI
DMPTjz/+yM/atm27fv16xMjr0I4uzgQT6caECRMcJQnpq6s8Nzw8vFy5ciQg
CQkJ6uRU7zec1tWU1EkmaH5ycrLJ19FDzzyfPHlSqVKlcePGCemhn7Rpq1at
nB4CENPUly5dKj7ixGrVqsVDBRG1wzzdZBquC80kHKo/vxk2bBiEXJnVsGbN
GpyGfpJD5jBtCYk0YQnzBDh83H6VKlWUYRc7HVkegH3mmZLqJHHCefLk0e/w
LCZrkWPqvYq+z5Mog43zLOKREg31zJMcuVChQgUKFCDKKPfu2bMHVxAbGztj
xgwiILafLou2CBN9+vQhmG7evFkd0BEdCTgvAjE2SQ9wdLwIAV3PxNAxuKVh
dy75NW553759/AadUYudUCIWaIiPQqneffddMa9s8eLFBJoHDx4Q1k+dOkUl
iaqE/vv370dERGjIPD+rWLGii6NIVCAqKqp06dJKN9HOnTup4YULFwx/D00i
jnhsT2Y0ysvLa/z48WbaCznDGQhnderUUSat6cMTiUDjxo2zZMkCbxeDgOh8
vXr1aE1XaAOSnD59+qhRoxwqJN11VQzBwzCR2JQpU9S/0fgNV3SV1+QRcBvN
qKtD0DNPtJTGRWPFRx6NJhsermQSwoOJHs5Xr1717t0bDqP0LdvfVcly07BE
aOZhvv6wuOrVqxOMRM6LegwcOLB+/foO7eT5Bpm2hESasIp5Pn36tGrVqtmz
Z4c+iSt2OrI8gDSZJ/ZLkOI3Xbp00XgqpOHj46Of5JliY7Rd+ASCjmLjeuZJ
3OEKXlG5QgVCQ0PhQk+ePOFim1RQkxMnTniYq/PQ1q1bUz3NjtZibE6MSJrc
9IkXgRhwS5MmTdRF4ev69++v79gRQALNmzcn1544cSKhWblOQJw7d25AQICy
fkEQD8QomvXatWvoGO1I9BReHWLPFWI6zaeJp/v374dpGE6qNw8xyVMJImI7
VhoRBrJ79279QYHJycnFihUz1CWroB4s3rJlCzbYr18/k4FDDAfny5fv9OnT
4oo+PF2/fp2kibdQ1JIr/GD16tX8hqTAOd7iHPNMd12lthBF+BXGq5keqfEb
rugq6lShQgWcmCmh2ICeecKxadwbN26Ij7ga0SVL6vfVV185Uf6ECRNQftT+
5cuXNKVm8rx95mm5aVgiNPMwX38xcCPmvqakElGCBU3DH2QBdvT/DTVtCYk0
YRXzxM1269aN3yhbU9rpyPIA0mSeAKeBLeuPF1m7di0110/yTLHBPC9evOjt
7V2yZEmlH0zDPAU/4Yp6bFFM8hSBEgk3a9aMRBjuGh4eDo138fUdxZkzZ3g6
kUjtahBdq1atqLZ6jT+yioyMxG3aOu137969OXPmLFCggHIqE8Ry0KBBomPE
FhALb61xdNCMjh07QkrV4+PITZ0pvHr1ioijvpFv1TP6lPLHjBmjzg70P8BF
86bkStu3b9fM/eMj8ZrfiEmeyq44ly5dgs1SSZoesegXlIn8y/JRRWpy9OjR
rl270kCDBw9GvBAMpISh0V58NPk48sEGDRrkyJEDxRZX9OEJrciTJ0/16tWV
ATiu+Pv7w1XWrVt3/Phx517BOeaZkgF0NSW1WfWORe83nNPVlNTz3H19fRMS
EgyfblJXNcxTkHOKFbMLcGKkumK10fz585OSktSFkOtFRUXBnGfPnq3Pp7gF
rs7bNWzYsHv37vHx8fi6OXPmaGRin3labhqWCM3848zXn3Zv166d+CWPWLFi
Ra5cubAdqrpq1Sr9fkdvumlLSKQJq5in0oVYrVo1oca2OrI8AzPME8vC7vLm
zYu54UXXrFmD8+FlO3TogE82XPtgyDy5q2DBgj4+PsqkGg3zxFcMHTqUK2JD
afEbOEy5cuXILlNSo/DKlStxFOPGjduzZ08GyTRxULAsQjMBWlyBX9GaJMgx
MTGojeF0d7G4VZl+INZ3fPnll+afe+vWLaSB50xOTg4ICFi2bJnrAqE1Gzdu
3LlzZ8PlJLQ+Tl7ZQgcMGDBATXeJWSJGHDlyJHfu3LBNFDs6Onry5MkEXAgt
OYXhwdyEe0KztWfkQZ6hEBiaMsRPxWgjaij6/dQTP+wD68BGeHHuFVf04enA
gQPogFrtoU+YNkHQkGybhNPM0xDppasm/YajgAoWK1bMsM7mdVXDPMUkz/z5
85M3obQkYhs2bKhRowZ/zJs3Tz0jnZScVFopPygoSD0VlgyRdkefYacIFi/H
IwynqdtnnpabhiVCM/84h+pP7tOkSRP8P9R36dKlPXv27NSpE05D0+mROUxb
QiJNWMU8la2E1F1/hh1ZnoEZ5il2mRBZYVxcXIECBXC55PgQCcMOzxQbzBMZ
4vEgn8pIroZ5itOZuaKeUYZYyJrVwkFW+jVNeuDE6tatW9Y04LcdO3Z0tB+V
iuEhs2bNSpwSLoi3gCokJiaKo6gh7coqGzXEGJzIQR4+fDh16lRCs3kdEPsY
E+zOnz+PAIODgy1xgHjU8uXLG25jwntB+OEtxN9Lly6dPXuWcIkyKMvl0H/e
Ag7DW8A2EelPqVBESjva2u5ASKNMmTJWJV+kdYQw2lSzLgbCw4OwPvR527Zt
Jkvj3YmANJYyRqkPT8iBMlu0aKE2JUTB67uygthC5pleupqSOr/djN9wCAhk
yJAhlStX1m9GZ15XU3Sj7ZAZsuNdu3ahQpBGZZERpFH9yocPH/b396cCJ0+e
vHLlCrejVP369VOoKc+iEDMvYp95WmsaVgnNPBytP9VA7GJeB/fikTSzvDKN
aUtIpAnLmWeJEiU8tp7CDswwT7iN2NNvy5YtvOPGjRvHjx+/YsUKO/TPkHlC
PAg66uimYZ5iVULu3LkNu8Ucxc2bN7t27drYEQwfPtwMp1UDP4xTxZMrbio5
OVlsNIcnJC9W7wqowblz5xCsl5cXrm/mzJmOHgyKf54zZ47oRbRqJI7X8fX1
VbZCUiMhIUEMlytXRLdPjx49RK8IoYqYJc7zatWqVYcOHRxawsC9hQoVMr/e
loci86tXr+qfgjoNGzYMwSojaArEtGG0jgxIM3JqB2K9P3cp65014Uksk+EH
yiw1q2Ah80xHXTXpNxwCrdy2bVtl7yM1zOtqio55kvbaPy8pJZX8IAexGF8B
osOHiNmhz549Q81MprH2mWeK1aZhidAcgqP1t4PMZNoSEmnCwtH2iRMn8hsx
4dwNNXUMZpgnHilfvnwO7cRiyDwJnXh4Hqfs9KthnmLvEZJZz886cA5Q5W7d
uhHN1etxCD3ixMnExER8ID+wRcCQD1JCAr1797Zk8NF18CLUWb/6gAbCM+tX
pqPzISEh169f5wdTp04VfVn37t0rVaqU5jyFNEHo9/b2/uabb8z8GJGKRVWG
uyyisf/5z3+qVKmiD/1K952dM3EMIeYPKHdpwpOYaktAtH+2uH1A56jwz/8X
jx49CgsLGzRoEEah+erJkyfmGWDm01Xhb4Fm+y+HdDXl/zJPsdxJsyxLj9jY
2AULFujVe+3atatXrxYjvxs2bDCp/2kyTwtNwyqhOQSH6m8fb6hpS0g4BwtX
GPXt25fftGvXzn3HlpmHGeYJjcyRI4e/v7+t/hDDWwx3kr98+bKvr2+dOnXE
egE18xQLtLNkyRIREfFGpJY05aRJkypVqnT16lX9t6JzG3+l7M2ih5hRljdv
3vj4eHfW1AHQQAUKFFi2bJnmOu6Xrwx5ztatW/HJycnJSlfYjz/+iJI7GqQI
2fnz509z0YoCNLZ169Zt2rTRqK4YT0SvDPf74kUwPb6dPXu2Q8T4t99+w0yI
emfOnEnRhSeEw8e6des6fdYhOj9jxgzKz6VD1lTor6M5Y8aMMdMXmil1Vazc
ad68uUYBHNLVlFTJjxw5ksYlV8LPI6iNGzfa1w1027Chb9++HRkZid/jf5Pp
882bN6dPn16rVi07+zlbZRop1gnNIThaf1t4Q01bQsJpWMU8xV528CsoX0ZY
IGNmVyVcMb9p1qyZ+SOWbDFPXhkHmzNnTuglTkzNPM+fP1+0aNEmTZq8EXvz
IpbFixfXr1/fFhsXDV2hQgU7By1duHABhxwUFGTriCjPQ/R5LliwwPwtFy9e
RBQ0q7ItiXOIiYmB9No3MTXELouwNY0diY3L1ItV1fjpp59KlSpVokQJ+8Op
hrhy5UrJkiUbNGjw888/q8MTbd2iRQs/Pz8nttxJE66PtmdWXRX+tnHjxub7
YG3p6qlTp+DeME8Xj0XD4+HZTpw4gQWZTJ9hnuhwdHS0YVIgYJVppFgqNPNw
tP62kJFNW0z7JCVJ37NOJDIZrGKeZFXkVmXKlFG2XkxfpMk8xZ4YXl5esbGx
ykWCIC46KSnJFku0c3omDpkMulKlSp07dx40aBBPx96joqICAwNDQkIM905x
DvgKPIZ6naZ98Mtq1aqZCT04mW3btrVs2VLdiL/++uvZs2cVV3/48OHcuXPb
368bZ85D1ZuXGuLBgweTJ082P3PJFdy5cweh0Rzm0yL8PLxo4sSJrqy95XHE
fRy++X7148eP+/j4qE8cEKBRihcvrl7IpsamTZuIXGPHjnWOyMET2rRpA09D
ROJw54ULF9aqVatRo0auB1ZDuMg8PaarJJK7d+8ePHhw9+7dEY4HJsxQE5JW
GHWap/QqsERX7eCvv/4KCwsLDQ21tT+VE7DQNFLSQ2hO1N8WMrJp4587duyY
PXt2rDUj9ClJZA5YwjxJMzt06IB1kANmEOVM8/TMFStWYE04K/XMGTzbhx9+
aCv3TDFxbjsl37hxo0ePHjy9QoUK27dvt3zWK4n/pEmThjiCefPmmenXxaVT
c01sPXfu3Pz580XsFqeEKMM3J0+e3LJli6YQMaOM1+ehhsoguqrwZo0bN4YY
KOcTuRVPnjypWLGi4WCWLfz0009169ZduXKlKyotdhsrX768hvmjdRgLfIaA
fuHCBSQvxvt41syZM0uUKIECjxkzZuTIkWK+oqhPQEBA6dKl9eQHhfzoo4/Q
N/XivoMHD4aHhyv6D/eGZdlXg6dPnxKVaJQ8efJQDTTZfebsIvP0jK4iPeL1
2rVraS+yUQokf7G1Y6RVoP7kqu+99575XiZLdNUOhDCRlfnhoTRhoWmkWCE0
9JAA16pVq9atWyvpDF+tX7+e5+q11Fb9nYCjpk31cGXKYnziL2+hP4tTDVdM
G9vx9fU1JPwSEs7BdeaJW4iOjs6WLRu2YOEMz+vXr0dERDg9eds+8yR2EEGq
VKmiPsFWgOjs7+9v6wSTNJmnUsg7//cMo4wP3DgtqPHbeNe5c+cq51LhY4OC
goQERLvrh9LgeAjWzMQ5sSONZ5in2KtfnBJl8hZMo1atWsqBL84BBejcubNm
EJDA0aJFCygNtULPy5Urp+yCi7pSyfz588N2CHZ4e4QpOlUogbuKFy+u2bGQ
CIK2c8vu3buVi+KspXbt2on3FYsUzBzHbHi4szvgCvP0mK4ePny4Z8+eSvJI
me+//z5a4e6pcaRmNIH5zjRLdNUOECA8386MTSdgoWkIuC40jCU4OJgmVlpc
7PhquPrbsP7OwSHTTkkd5Vdv1wAz5MU1J2rp4Zxpi67dUqVK3bt3z/xdEhL2
YYZ5Pn/+vE6dOuq12wIY4/nz58kQc+XKNW3aNAtpJ0Yt9iLDCTgxvYSKwVrF
YkBNki46DMn7iMv63Z9wsP369TPcmkPADPNUnk6u6uEzQ50GTJvknYy4gApi
s1NkpWS74gSfwYMH4/kvXryIPuipNUE8X7587777bpqba3mSedIo4eHhDm28
cO3atYEDB2qWyjoKMdVQfdryy5cv27ZtCw0Wne1oCPrWu3dv0bGDfuLkQ0ND
xe9v375NpFAi/v79+//zn/+ou7b4IzY2llyJcKy2TdFSyi5S4il9+/ZNcyXF
V199xSOsWrFrB04zT0/q6rJlyzDk+fPni4+U0KFDh4IFC1qyb6cdnDlzxtfX
1/yeG5boqh1AjT799FNrma21ppFihdB4Lk5bfQDrtm3b/Pz8DNcQ6evvCsyb
tjiLSglSfDVjxgzD9f4aOGfasHFiseGqLgkJp2GfeZ4+fZpgnT17djFjMFu2
bGh4xVSQjWL4pUuXHjFihB2PdOvWrcmTJw8ZMmTJkiVo/pUrV8zUCmtasGAB
ZgLzVA62MwOy43bt2hFNlFmO+CJR4QoVKhQrVgxDxrkdOHDAMN6Jmd52JobZ
n+dJ0h0UFERMVJ6O6AICAgYMGGBnNwyi2NSpU3loZGSk68sknYDwLbamiZIm
Kz3AYikxfJ5YPHbsWPUGILjB4OBggriXlxd3Zc2alRS+UaNGdmbFe5J5pqSO
PtP65tVp165djm6gpEdSUhJyQN+UK/wNQVK2mkE+/EAJoBAnBH706FHxEQNE
mZXNoFBauBBqTPzlN9SwR48edevWPX78uKaeR44coRxlg1lakHdXH2SgAWIh
uyxUqJB6erCPjw/abmciriuq6/S57Z7U1SdPnmzevFlJfmEpTZs25cfu7hDm
ibg+8zPrLNFVO4DGwzyt2rBUwFrTSLFCaGL7u6VLlyoF1qpVa/To0Yb5mr7+
AugzF2GkYWFh5Dsmx+LNm7bYjUHZpRNCSERr1aqVLWbohGlTMg6EyD58+HD0
H4YgJ3lKWAszfZ7OAUUl1teuXRuPgSavWbMGr+JQhkgJGzZs0G/F5j6QDOLc
wsPDJ06cOGzYMIxO43NMjrabBIXj5XALRG3EQsJbv359/RkcGQrUMzk52dZG
JQ7Bw8wT7lGjRg14iBkXSiCAUOlnBjoKwii5jEJdkB4mQBRQlhLs3buXKCCU
nIrNmzcvMDBQ6YJDPbAazQEEfEuOA5vix8Rf/fwByomKiiIrVLpBdu7ciWJb
aEquq661p2cawkJdFTh//jwaSzi2qkBboOZQC1iumXmVVumqHWCkgwYNsvat
LTcN14W2Z88ezETkUK9everduzekztbiUE39BTCBvn37QhrxNiQ4PXv2tL/A
TYM0TTsldTcGKqlsFCbW+0dHR1vFDGGwkydP5sVJN5Akr5A7d26F8EtIWAL3
MU/yqRIlSiiBXpA65cAyM8A5kJMqh6F7ACtWrMiaNWtwcDDe5vHjx5BMqK/6
BxYyTzF3vUiRImIFBE4Grjt06FD3DZllNHiYeYqzLxs3bmxmCoTYdcSh/nY9
8NstW7acNm2aEhRQaSJ4pUqVBEkjJIWFhb3//vuPHj0izvJ/RESEMo4mZn/B
6BzdGEFM8iQEC10SMb1ixYqUv3v3bteXvFmiumIjMlrkjdjkNiV10hFSbd26
tWf2P4TllilTxowGWqKrdkADTZkyZdasWRb2ernJNFwRmpgLLSbkvHz5kpyo
U6dOtuZ66eufktolDuekVkJDiK0fffQR5Nba3sKYmBgiqTLOeOLECT4ePnw4
MTHR9d3PxEG0RYsWFZRADOWXLFlSTvKUsBZuYp64EYKRn5+fsuBuzZo1/v7+
9tffafDw4cOoqCiPHSwiNsNXVmGI49g0oxgWMk/8G262ffv2b+38GQ8zz5TU
QcM6depoDgc0BIkSHNXF/ueTJ09Wr15dM4ZL4FC6SsjO8Oqo2f3798PDw4mq
sbGxRC40EJ+/bt26UqVKnT171tHniimOcCTRZ3Lp0qXixYuLAwQjIyMdOgbF
EG+h6uKFSEg7dOjgsSEJ/A9k3syO+pboqh2glm3atLHk5F8FbjINV4Qm9qLv
3r17fHw8uj1nzhw76m1YfxxLvnz5Vq1aZVIITkBM8vT19RXLi4hENI1YbTR/
/nzXd6iD4VeoUAGxiywSB4LO40neHkuX8AzcxDzxDxim0uuCHxg4cKBDm62R
geKIPNnJLyZ54rVEJ4yYQK45js1C5inO7ly4cKHrRb2h8DzzBOvXr8eXptnt
SfgYMGCAK8OLv//+e5cuXb744gtNjwfK079//yFDhkyZMiUsLGzevHkkOxMm
TBB8mLtGjhwZEhISERHB7Yb7+6UJcWoebJOioqOjJ0+eTBhFmXmKJfzhbVNd
+AyNhWcQw7h4BvM7JLgC6AQ+M80tNF3X1TSr0aBBAws3anaraTgtNF6QUAjn
XL58uf1lrYb1F0eT2NqT0yqISZ758+eHDWLU6OSGDRuQEn8gLte3UoFR582b
d/HixeLjw4cPy5UrZ+FQvoSEgJuYJxobFBSkbEYBEcU6RowYwR87d+40M7Pr
woULWJYndyW6cuUKueS2bdvEx+vXr/v4+Gj207CQecIBvL29NWfm8qy3x8bT
hXmSvNOmuFY7ckY/x44du2bNGqefIjaMHTx4sK0ee0KbMur9/PlzzdoNvnL6
6AExqQCj/ikVysoaCrRqfvJbpbqQEzi2sjSej1OnTvXYeRl4y549e9pJlFzX
1TRx8ODBfv36WdXr5QHTcKvQbNUf/R89ejR2pzkMy9ppzIRFotKuXbuIpCih
ssgIoVliffv27cMnK/lpfHw8MfHo0aMEx3PnzrlevoSEAMyzaNGimMzcuXPR
N6tiB1bZrl07qCZ2h3Vgqjlz5ly5cuWpU6dINs08xfNR7OzZsyVKlFAmtENO
sEExoEPQgXMiIhxazZo1LYngDx48qFy5snpXkKSkJJL6t+eQMiIaEtYvDnU3
nj17FhwcbOe54jgqVzaIPn78OI9Il8VihKFWrVp16NDBff1yb4/qiqnm9evX
h21GRUVFREQMHDiwffv2Fh5JlmYFcERTpkyx1Zqu62qauHz5soXHp3rANNwq
NDv1h7aVLFkyOTlZecqmTZvQHwvJZ0xMTPHixZ04RtMkrl+/Xrp0adEbAHXv
0qWLv78/j1uwYEFiYqKbHirxFoLUifStdevWbdq0wVotnO2Pv2rSpMm0adNC
QkKWLl0KZ+vUqdOECRPS3OYxvUDFqlevLvbjvXnzZvny5ZWjKyDSkydPbpOK
yMhIqxYB8axmzZrxFOx6zJgxhLbMF7v1EOceogzlypV75513+J+/t27d6sk6
kDvs3bvXTYu5iHcU7jFyosG9e/dKlSrl1j12Ut4a1SXfFDsvqZHmsbDWQmxx
k0FOJXYRHjMNNwnNfv359vPPPyfpW7Zs2fTp08nFYJ4Wqoo4cqtRo0YWniSl
AXL74osvSF0x7WHDhlF/YqLomPLMDBMJCdeBpWD7wkxQaXLMjKy9RGoMjbCC
lfH/li1bPLDqlkfcv3/fqrESCQksrm/fvu7e6jxFqq6EhBGIcXfu3HHHGSKU
PGnSpI0bN7rb4l6+fIkbEb0uf/75J4Fb2riEhFsBT3748KE0NAkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJibcc
//77rzzDQkJCwpOQbkdCIr3w8uXLW7duJScnizPjNHj+/Pn169d/+uknz1cs
4+PFixdnzpyJj4/3vHx++eWX06dPJyQkPH782MOPthB///33xo0b69SpkyNH
jpw5c7Zt2/bChQvqWPDs2bNx48atXLlSBgjngNyePn2KCd+/f1//LZH34cOH
SUlJv/76q+fr5hCkrUlYBel2JCTcAezlyy+/nDNnzh9//KH56s6dO1OmTLl9
+7b4iD8PCwsrXLhwgwYN9Acu4+T79++fK1eugQMHGvLStxxHjhwpWLBgkyZN
YmNjPfzos2fPtm7d2s/PLyYmxh3li3zk+++/h5y4o3xw7969Tp069enT5+jR
ozdu3Ni8eTNKmDVr1pYtW65Zs+bw4cPTp0//4IMPVq9erdG9P//8EwWGTb1+
/dpNdcvgePXqFdZ94MABTWTk46FDh9SGD6vs2LFj9uzZo6Oj9WEUySNzLy+v
vXv3eqjqziIT25qEAjghbuHq1av6yGUVnHY7b1CaJiGRLsB+4Yrdu3eHP2i+
2rFjR9WqVb/99lvlChl99erVR48ebcgxsE1c7tq1a91b4zcTREOcGNJOl6fT
XmPHjv3iiy8sL5l8JDQ01MfHxzAfseoRVB7nr6ZDvBFXmjVrVqhQoffee48f
/Pjjj5ob//rrr88//zwgIKBcuXIEAnfULeMDsdSoUYOm15BJVHHQoEHdunVT
t9rJkydJLdFVw6KWLVtWvHhxJRW1EJCHGTNmLF269PTp0+fPn9+4ceO0adOe
P3/uXGmZ1dbcB3Rjz549kZGRcXFx33zzDXlKREQEf6R3vWwCIcMDCU/e3t4X
L150xyOcdjspb1SaJiGR8XH58mU4xrZt2wy/3bp1q6+vr5qpSijIxNGQfARu
Q/nu6/N0GlCali1bduzYERaa3nXJ6CDCzp49OzAw0HCQ+vXr17169WrUqNHv
v/9u+aMhmbVr137nfyhdujT24vTwZSa2NTeBOoeHhyvyz5MnT1RU1J9//pne
9bIH6jxhwoQqVao8efIkvetiAPelaRISbxtWr17t5+d348YN/Vf//PNPSEgI
DAQe4vmKZXxk4mhIrlGkSBHPj2yaASQKKjVnzhw5CytNQM7bt28PUTccvnz8
+HHFihXDwsLckV/APEeNGrV//36y2vPnz7uYJmRiW3MTqPOCBQtWrVq1Y8cO
pPdG+HAyoMaNG/ft2zcDTqRxa5omIfFGA2+zb9++kSNHLlq06NWrV+rrhw4d
Gj9+/PDhw9VDCXDL4ODgevXqvXjxgtCwdu3aQYMGzZ07V8QpLvKV/UmeJNFw
V8vTQIrFZ/7www/WFmv4IKfrn9GioYVCQxOKFi168+ZN14uyHHFxcT4+PvHx
8eldkXTAb7/9Nm/evBEjRmj6D7keExMzdOhQjFfdr/XgwYOyZctOmzaNHz96
9Cg8PBwDR4Di3q+//rpw4cJ79uyx80TcxYoVK5yYdwfznDhxotPD6xpkYluz
D6cdFHVevHjx2bNn3VErDY4dO+ZKh7YCXrN48eIZk+G7NU2TkEh3aBT7v6kw
/KWaEIq7Tpw4gbe5cuVKQEDA0aNHlRK2bNmCnyRZa926NWFLuVFM8oSpPnv2
bNasWXgPYlORIkW+//77lP9N8lyzZo2tquIVQ0NDCXnuMEbeokuXLrdu3bK8
ZAUu1l8dDRHpkiVLWrVqhYQVbo/k169fP3PmTKfXZx08eJAWUbjEnTt3li9f
LpJuw34YV4TGXZMnTx4yZMjChQt79+5tZ5InL0gW06RJk8aNGzds2BAuRJLi
xBMFXr9+rdd5LhoKja/gUW/0JE/Ny9rSvX9TIf4WTgCZIOqEhARsvGrVqsqI
5MuXLyMiIi5cuPDdd99h+OSYSiFikidXrl+/HhkZeenSpfr166Oiogdy6dKl
BHo72nL37t2uXbtylxOvKZgnJRw+fBhyCwd2ohAFeuaJUURHR+/evVt8RD78
5ssvv3SC/6RpvJbbmkm44qAE80RbLl68uG3btqSkJPetEsVRDB48eMeOHU4I
H+3lBbkdUkcr+Pr62prkmY5uJ8VcmiYhke6AJMDZxo0bh/ljSnasHm0najx9
+pS/SaIxqwIFCojJOdmyZStfvjwOUG/ROJN8+fKJn3l7e0+aNAkzJLjcu3dv
8+bN/v7+OEbxS8qEvfzxxx/Qy5o1a4aEhCiVSUxMxJowYXw4PJOnECY2bNgg
PDx81cfHh98YVluM5gwbNsx9c4f27dtH4KPa7ijc9fproiHRPDg4+P3331d2
XxFp8qhRo5xjtlSsZcuW7dq1EzxBTIJSJj/YGgF0Qmi0OxS3du3ax44do9jV
q1fnzp17zJgxhtWOj4+Hl+KHxbe8Y58+fWrVqiWyFUfx66+/9u/fPzAwMHv2
7MqcNBS7UqVKa9eu1as9atyiRYt0n+SJzZ4/f/7zzz8nXG7cuNFwSYICJJOc
nCzeZefOnRUqVPDy8hJvmjdvXmIotFBzC00/aNCgLFmyKJMk4+LiIJbTp08n
7+jZs2fTpk2VUb9du3ZhqvwBzcBg+aW4zhOpYYkSJfh27ty50AOkR5Q/d+6c
eIUePXp8/PHH+nWIAjQNirR9+3bnRATzpJnIc1Gq48eP49YWLVrk9Ciqnnki
UvJiEmrxUcxMxkCcszX7xmuhrZmHiw6K22fMmNG+fXvCAQFo6NChqI375k8S
d6DuuAWH7sJwMOeoqCg0EysoW7Zs5cqVDSuZvm4nxUSaJiGRvsCJzZ8/n3QY
xojfxqERaJo3b244lxI7ioiIQO2HDx+uEEJcWd26dblIIbYGmERYKViwIERR
8eevUtGmTZu2bdsqA2QUK/6Gi5JR4oiUQuAYWbNmfffdd7du3aoZUOOukSNH
2pnkiTerX7++W6db8+7kwrBid/Spul5/TTQkgn/00Ue4d6U5yA4Ijo56YwU4
c3zjzJkzhSeEOXz44YfKJChb0dAJoSUlJcFPUFrxoG+++YZ8xJByPHz4EEak
Wa6CynXu3PmTTz5xpQuCez/44AN0fvbs2XZ6TghVqCuan46TPB88eIBRk8Ht
3r0b+Tdo0CBXrlwTJ040fP0zZ87kz5//vffe+/nnnzUXiXqwVltPgVhCC0kV
lfV9mCQkBDdCBFy+fLnySyyXrxAIKWRAQMDdu3fFdTHJk6c0atSI/FGjD8Ru
iFZoaKihngj3MmDAAKfzMvTw9OnTypwfjKVIkSLKQIyj0DNP9BMtVRZr8wes
e8eOHc6Vb994LbQ183DdQeHwFVOluatUqTJu3Dj39XwifDJl8/MrkDlxqlmz
ZiL3Ef4NPqlPT9Ld7aSZpklIWAWciRM7d3EXHjsyMlJxkugzTixPnjzlypXT
J2h8u2nTJpyqumuRi2S7WbJkgXgocUSDmzdvYndwBs31y5cv4+ENI9q6dev4
SulgwQV9+umntWvXJhx0796dBF/NjXn3evXq8QNDTyWsnlzV3ZNeLl26VLVq
VaX/1ipYUn9NNCQdLlasGKmx+AjTICUfPXq0K/08xNYTJ06Ij999952/v7+y
qaCdVQ8OCY32HTZsGEFWmdW5Zs0aHmQ4yZO3Qy31WnHw4EGolK0dEswAmkTY
onD7W3jFxcUhE0smecKp1HOhTYKskBikZlAUMnDgQIIXSYF+PiQ21aFDB5JQ
tabBKomY3ALVMUwthVsgG9VEVUEIcQt37tzR3EI5aCNxXKmDmOQ5fvz42NjY
ypUr9+vXT704wv7oIV4CFRK9o5YA2gAr7t27t3PmoLE1hIllVatWTQwVgRUr
VqDDycnJzlXPvvFaZWvmYbmDFdwJzSGftaRAPaCOmPDixYtNZoUHDhwgLCpS
pQk0KZWCdHc79tM0CQkLAYUjOjg6PIH5dOvWTfGHAqh3ly5dCDQjR440mXKK
saRs2bIZTrN89OgRwU6/2ZHYSQOKi3tJSEhQj+LxXNLGunXrKnRajE+FhIRw
F5k1pHTVqlWE4127domxD66sXr36hx9+OHTokMaZUHhQUJDTft48qA8RRz03
1RJYUn9NNCSIE8pFJwmBgyBLRu/0CgsETtwpXbq0cvrMzp07Kf/ChQvio51o
6JDQxFzfpk2bCsbCLahW/fr19ZM8qRIhgDqgFRp9QEmKFi2K5ptZAwJrgqT1
6tVLWeqSYiMEUCUCGcyNN4WDiUmesCkXJw2m/I/COTE4u2HDBvJKzV2YT4kS
JXLnzq2MdKcJImzWrFkJtYbDhaQb+Ap9Z47YqogQDIfcsWOHuo0ePnyISlM3
RaTwcxrr8OHD/I1pY87Uk0z22LFj/GbJkiVwLZ7OR5Ia9VN4u8mTJ7dv397p
Db0pgReEuSk1pHo0XJMmTZxg+yk6W0MyqGj//v0FM+R//jZUWpOwb7xW2Zp5
uO6gLl68SF6jUGLRz1CwYMFr165ZVEcD4BlIB9Td+7aASMmJChUqpNRn7969
Pj4+in9TkO5uJ0VO8pTwIM6fP//RRx85emIa+RcefsyYMRofGBMTg3qTHWtI
qS1gEeS8kNVWrVpp/D+2QFRSusLUECN0MMxnz55NmTIFgqp8JSZ5qsf0ExMT
sfStW7empHZxYMLYPhfnz5+PW6B8f3//r776at26dcePH1c/BT/PI/C3nplr
R6wvX768hafmWVV/dTQUkzArVqyIwrx8+XLUqFF8ZcYD24KY5KkQQuGoKZ82
3b17N0+xv9OLeaEJxqJMRoWIoidwBv6A65qMp6J7jaBjcvMW0jqoWv78+U+f
Pi2u6EMA0WHOnDlc+eCDDwTVRBTNmzcnIpA9bd++3ZXtTSh8+vTpvLVDhAHN
6dOnD5nd5s2b1eSTxmrRogXW+tlnn5mksmIZL+RTfzIOGSUkQW28CjBPEtJ9
+/bxG5izuvJwFbGYSHlBfvDuu++KOahEUloZMUJBT506RSXHjRtHHkpeExER
oVFUfoam2VlamCaE9pLRKCULkhAcHOwcQ9MwTyiZr68vLyU+onXoHkk0f8TG
xjr6iDSN1ypbMwlLHBR65e3tLfKOlP91iVuStdkB7I5HmNmNTfSEVKpUSfTt
IOGwsLDKlSsjdsKQybDrGbcD7KRpEhLWwjnmuXLlSpS2QIECmg5JAmWOHDkI
BOYHOyCx3EJWqC4Klz5p0iS+MhzRwJyJI2TroaGhJ0+eVH9FIfBM9SRP/EOp
UqWEHRHEe6UCziwmURP4iPI4h8jISM3kFr6qUKHCokWLTL6IiyDKYPXqmrsI
q+qvjoaIqGHDht27d4+Pj2/fvj2+y8WFV2KSp7IM+dKlSxCVjh07QhVEi9iP
huaF9urVq3bt2olOG8pcsWJFrly5SDdgMrAU+3OflG8Ju7h01MlkXBM9MFA1
lFlQNX0IgGdCvLNly0ZlxBWyNsgMr3/lyhUk7Eovk3PMk0rSIlRbs60foujd
u7cYPTc5mozaQGK5pUmTJuqiYGj9+/e3Fd0I01gliefEiRPVouZ15s6dGxAQ
oKx1EiQZ/RR6eO3atdq1a0OMo6OjRS5DDOUK/BMl0bTy/v37UTZXOscokFZT
9xGtX7+eMvU9WiahYZ7CnaKrKamkBVv28vJCc7A+WytE7CBN47XK1kzCEgeV
lJQ0bdo05UVgTWXKlJk9e7Zbx4tRrVatWvXo0cNMJyTcuGrVqoLhU9uSJUvi
30iEw8PD7fRde97t2E/TJCSshXPME6eBjyIZ1/iu5cuXo94irRZX0HAi+7Bh
w7Zu3WoYrbCmoKAgzGTGjBnC1jCcefPm4ZHsh8vnz5/raQ+W5efnpx5/xzmo
h/OwL56o9hg8lFiv91RHjx719fWFmdiqAOEvKiqKwIej0wsQH+hQb5UYYbRw
PMuq+qujIbeQfRO2aGj7rol7icIDBgxAT/SH2SFw0XlC4blz5yZYQzNgC5Mn
TyYg1qxZc8KECeIkRPvR0CGhXb58Gf5DnAoJCVm6dCn0iffiQYbdOLdv34aw
4Zz79es3dOjQsLAwSHJiYiLZFupq2FOnhyB+Ym6kUH59CBAdWXnz5lVyKH5J
VGrRogUMysVBQ+eYZ0rq4qCBAweeOHFCTW8wNwIur6NsHMG3p06donzaztYw
x969e3PmzInclG1kIJbkevaXpNHuFKghV0iPqA0pVY+PQKjUnWakGLSO+ka+
1c8GoXzSTzTN1pJtkwrM06dOnTpz5kxkhahr1aql3/KIZ50+fRqhwQcgkxq6
wscbN24I/6MZXxg9ejRUs3LlyoiXLHvJkiWwnc6dO6O0mtTeTG3TNF4Lbc0M
LHFQiHrHjh0I6tChQ5s2bSKWYTv6qQ7W+mox3Uu9RYAdEH1IsoYMGTJlyhTc
CKFN7E6g9NOqkY5uJ8VumiYhYS2cY56GQL1xjCg8YUVReAwtLi5OrFQ1nCMt
jhDirjp16uDcUPiNGzdipOaHYHD+a9as4RHEow4dOrRp08a5SVYazJ8/nxzf
cOkTlcQ2vb29la0qcAvqmWy4+sjISIemYyGx7t27W3iGuFX1d2J3a9qCNF8p
HG65ZcsWxZWJ3ht4IFcIqUTDn1KhUBfUQEkW7EdDR4XG74lByk6heHK9mqGQ
hOZ33303JiZGyZVu3boVERGBmuXIkQPnbH5eK2wBCaCTQoD6EAAHqFChQv78
+bFE9Y1IwOn5hwqcZp6G+OGHHwIDA6GRypnOkIe5c+cSxWCkhDlDmxX79iAE
gjUyR/jUB3pm/rkIf+XKlTRxcnJyQEDAsmXLXA+LuIjGjRvD4gwV26QCi49c
p2JQSuilnsDgnQYPHqzsHAXgh+qW5S6l111ta7xv/fr1g4OD+ePOnTvCpwml
1dTZodragbW2liYsdLDkMmjU/v379fvfusNXp6TuxVewYEHzB69j5kqQxXvo
V/VmELdjmKZJSFgOC5nntWvXihQpUrRoUWW+98GDBwkZ2D5+j6yNZMpwEIS0
K28qTpw4AU0lrXbID3ALheNeyGdr1qyp3zbQCeAHyFJt7bpGuurv788PqDkv
i8coWbIkWap6mGzXrl0OPVHMwipTpowlM5QsrL+jzJPIWKtWrYYNG8bGxl69
epWI0KxZM+ilMkKK2582bRouTvShkSzYyTLsR0NrhZaSKreZM2eiips2bVLT
G7EKG0vBn/fq1cv8yuUNGzZky5btk08+EWRDHwLu3btHuClcuLA7jlKykHmK
FRBZs2Zt3bq1mJdy//79sLAwTFUM46qXYKsh2gi58QOIwdSpU4mk5qmjyExh
C3iq9u3bw8Qs2fIFLS1fvrzhbq7mFTjNp6AnOD3oOgn4pUuXzp49izLjrJS9
vNAKBKIs4VfbGmwWI01zGqqFtfWkrXnMwbrDV6ekxizaUdnh30VkMrcjIZEm
rGKesIi+ffvmy5dv586d4go6HxoaKk5eIwXLnj376tWrDe8lARQbe+I/KcTR
GSY8aOPGjePHj1+xYoUTO0QZAr/Utm3bDz/8UM+Bf/nlF6KDZqwE9964cWOx
X9OzZ894cZNrrNQgPBUqVMj8Sk9eHPESbvRhxcL6O8Q8CU9RUVHh4eHqKlHP
QYMGiY1E+MHChQvF1He8X6lSpewfTZ7mWdKOCs0+9u7dmydPngEDBujfV+RH
aOmCBQvMEyfeFKNQWJk+BIihNGUNgrWwkHnCjmAdUAXlLEWimzB2Uk4fHx8y
CFuTfs+dO5c/f34vLy8UiQjr6I5DkCiUREzAsGqol9fx9fVVdpFV4JACp4mE
hAQxaVm5IrrgevToISgBXBQFVtiv2tZgktTQ1gkX7qit5bbmGQdlB+7z1UlJ
SZitsj+Vi8hkbkdCQgFKCyv7WYe4uLg6deoQOzTX4aLmp75QOLk5wUW9IwQu
5dChQ0SKly9fYukBAQH63fmU28nKMS5CWwZZUofP/CQV+hFPIoKhE8Coxevj
RgjKTgwIEiy8vb3107QMgTMRqy0gb+rQZnn9iYZBQUERERFmDke+e/fu4MGD
9fyfaDVy5MhXr17BIiZNmiSGDvmbRMNOHzX5uJg7Z7j9nYBDQrMP4lTt2rUJ
AceOHdN/K0IA7trMwKUC7Ai2xl2CQuhDAIaTLVu2gQMHOr0hqgC3E2U0Vvzo
0aOwsDB4yIMHDzRfEXHMPxFX0K1bN8xTmXcKSzl69KiYioke5siRw8528cpG
1r1797ZkJozr4EUKFiyoX97ikALbByxi3Lhx+tVGmGRISAhqzw+mTp2q1n+1
re3bt2/MmDH2nbCFtbXc1jzmoOzAfb4a+lq4cGF95uIE3mi3IyFhH+fOnStR
okQuHQgZRAQvLy/N9dy5c+OFTE5pxmQCAwPRasPB9K+//hp/RUJnS8nFXHqq
QZTMIHvYigHE5s2b67txiBSGqxJu374dGRkpDvd0bkAKZwh7N38YEHVr3bp1
mzZt9JW0sP737t2bPXs2qYEZ5onHM8wdcH2TJ0/+6aefNm/erD5x2z6IhjNm
zIiOjr569aqt3zgqNDv48ssvc+bMqTmIR/2grFmzIlWHpoKIM3e4Ucxy1IQA
mqlJkyZYh8leKVsQZwj+5z//0Rt41lTorxPOIDZmuhAxW9hLpUqVDFtBsEpI
qZ3tLGC53M4TLdkb3xKI+T/Lli3TXLdQgbmFpxg6va1bt+7Zswd+qOkBdsjW
rK2tO2zNMw7KDtznq0WfOS3lOvN8c92OhITTcH20/dKlS9WqVSO7NLRB1H7i
xIlEugMHDtgqQcylh/0qKxfSHSIlb9y4sfkuGvxYRETEiRMnyLKd488xMTH6
jars4P79+6VLl1b2BFAjXepvB9Rw+fLlR48exRM6MbZlB44KzRZ45c8++0y9
IFQNrnA9e/bsyiYk5oF6d+7cuWDBgidPnlSHAJ44d+5c1J4WTJMBEixu3br1
/fffO9Q0ro+287jFixdjnrZOjj516lS+fPmGDRtm5xEXLlyAsQQFBekXgKQX
RJ8nqm7y99Yq8MWLF5EqBbop9LvJ3DKNg3K9KAh/oUKFsF8XmWcGdzt///03
2RDJiOurHSUk1HCReRKPyJ7UrFJsIaKsAqDkSpUq2d9bnnSb/LFYsWJ2huMT
ExPJxydNmjRixIiDBw+6e4wAi2vfvj0B1/xpuVh3WFhYaGioQ8MiCsTWvoUL
F7YV4vU4fvy4j4+P4RiN5+ufJjZv3kwOsmLFCgv363BCaLaARnXt2pUQYLjB
IJoZGBiIGjtnKZjDlClTypQpg3hr1qzJU8aOHdu7d2+ubNiwIU3/TyNyI23t
6MpiF5mnOBKXmKUsV0lJnZV99uxZZQM0Cs+TJ4/mFAYNxGZrJmcL79mzB0t3
37nbAjSon59fVFSUeW20UIFJIpAbpVm1TlwPy80tMzko14uCfkPC7cyJNYmM
7HYI5WgRT/f29ja/il9CwgxcYZ4PHz7s0aOHxrE8f/58woQJyhiH2M1P9Pk/
efJE2eFZjdjY2Bw5cpD/2prURDDCdgSbxeRLlCiBBbn1aCFqGxISYmsExBDi
SI4+ffoob3HmzBm8yscff6xeApmUlMTP9MWK5Ld8+fKaGQ68dUxMzODBg3GV
Fy5cQNqCdRMIZs6ciShwWWPGjBk5cuSlS5esrb+12L59e61ataw91c6W0JwA
r9+zZ0/0UL/QFVHPmDEjV65c6nb8888/UWblCr85cuSIfi9HNdBYfkNtCQHd
u3c/deqU+X34xSGwqL0n+zxRNgxcMxx57tw5cf5Xyv824xX7vfCIBQsW6JfK
is3eeeV58+alyYK+++67kiVLmt+p3mngiypWrKg+7CxNWKjAP/30U926dcW+
H66XZgjLzS0zOSh9UUTAESNGEIPGjx+vRBbyAizOMKviYsGCBR3aHMxWTTKy
2xEbGlSpUkUuRJKwFk4zz19//XX06NGosb7AIUOGiM4NvDoeSZkadOjQIf2G
KmJBpZ1JnmIVZJEiRURQ42Pr1q39/f1tdZBahcWLF/NQ8wk+PoQwrZmfv3Pn
ThJG5ZxrBIIHNlxRyHt17txZM/z0448/tmjRIioqShwxX65cOeUMNbxHmzZt
kO3atWspFoePf1DX1pL6Wwiy7E6dOlk7amMoNKexdOnS7NmzU0/N9cTExKJF
iw4dOlSd7CQnJ/v5+a1atUp8FMwwzRPSKYEG1RygbAYkXLSmmQP71HCFecIT
IGYaYiCG6tavXy8+7t+/n7xSzHaDhU6cOFHPClB1NNPMJE8akQSzdOnSHmCe
6GGzZs2wIPMJrIUKfPfuXWihWF7tJlhubpnJQRkWxbtQf/yzYiz4beilONJC
A8RbuHDhpKQk1yuTkd0O5kyLG84EkJBwBc4xT5zPgAEDsJcCKkCxSNDUxzqL
4/bE4QvPnz+fMmWKfpHj06dPa9asSdJnuM98yv/SugULFog+T/6nwg4ly87h
zJkzvr6+CmlME8jk008/VUcTaj5r1izlUOmU1IhTtmxZwzE+ceI8GbfiQ3hT
KDfxUbw4CfiHH36IPIUTQJKlSpUiUovf3759Gzeu9qWu199axMTEiHMALYRe
aK4AkVasWLFDhw7q2Hrr1i2CKWLXbCO5fft2Qo+yzpc/fHx8duzYYf8RWIHY
QMzRVbGEDMKQo5vvOc08v/vuu/Lly+fOnVtt4LAI7FS9CBchQCnhn+JAUsMY
DeHMly8fVmD/yG+xdeHGjRubNGniAeYpjqFRn7aWJixU4GvXrg0cONCtc+cs
N7fM5KAMiyLVwqK3bt0qPsLWYFy8kX7rAHH8evXq1U0epG4fGdnt0GrFixd3
fVKBhIQGzjHPdevWZcuW7R0jkFip3cvRo0dhiXPmzBk+fLh6UST6v3LlSqKb
croEoQ0DtMU/FSQkJBQqVIh82d3He8Fs33//fQK3yQfdu3cPb6Z2U/iu9u3b
k2yKEINDxm/jrwyHhkmfsXH1jFn+JsorVo8v4geKbIn+uCDEKz6KDdzUk4Vc
r7+F4N3JRyxZga6GXmgKrl+/PnXqVB4aGRlp/rkXL15EXdu1a7dz505kS66E
DOfOnavpUxW7Maj3TifK+/n52drqEKnCpkqUKKG2Gjgb+m9nyJUWnzx58pAh
QxYuXEgMcuL4GKfPbe/UqZOhdQO0TllPjSY3bNgQ00ZQaKb6KVQ1ODgYwunl
5cVdWbNmpaUaNWrESxk+lKaMjo4mRH7yySceYJ4pqedc+Pv7m5zAZq0C79q1
y/42ti7CHeaWmRyUYVGrV6/GhBU6Ss2LFStmuDPA77//jpYOHTpUb1aZwO2o
p08sWbKE7EBO8pSwHBaeYWQLeJhz5865eCYX0RBSSoyDna5fv97dCxBSUs18
3LhxTZs2NTmtCB+lHBsq8ODBg7Jly4qxSEC1g4KC9Pv7CeDAq1atqnTk8nRo
Khxbmam1d+9e0ltxu9g0IzAwUOlHWrp0KVFA3enkev0tBO/Vtm1b9UIVS6AR
mgCvgDTq1KmD50cI+Nj69eubn6eEuHbs2DFhwoSIiIg9e/YYrox78eIFZfbv
31+Ii//5mytWLRihfeFFtWvXJnzzCsTE3LlzGx64k2Y5Fp6eaQiyKnRS2V7e
OSDP8PBw1EMsefYM86Rla9SoMX/+fDPMx0IFpi1gJlu2bHG9KFtwh7llJgel
L4pGgYvWq1dPrHiCyxFolPnMGvBt6dKlNaQ0E7idFN30CeKXrXOmJCRcAX6j
a9euGf+oVjGRLDExkXwQB4jVu7vPMyWVlpcpU8ZMxoeroWKzZs1S1+rkyZNk
/XFxcXwrJvwnJCQY3o7badmypXp3ODwhvlGZESrGd0iEHz16hIfnfxyUcgII
qTHuAhekaUcX628hTp06RUZv7UpevdBSUvUEhl+kSJEzZ86kpCYsw4YNGzp0
qLUjm4QeX1/fxYsXi4+//PJLtWrVQkJC+CM2NtZ1mpeUlFSiRAmFFH3zzTco
knLkonmI3XWio6MzyDa5hhBhWoy6epJ5Ihwk07hxYzNqaaECP3v2DGt1az+S
5eaWmRyUYVFYbvXq1TFh3gvrbtSo0ezZsw2VkLsWLlzYsGFDdZdp5nA7htMn
+vTpIyd5Skj8/fffwcHB5Np4LQ88C+9hZsNtjLRNmzbqjF6Z5Hnu3LlRo0aR
nNqZ5wZHxe9pBiJjYmKUTgaoSMmSJXEL9+/fDw8P53G4Gjw5PocHrVu3rlSp
Uvrdp12pv4UQohg3bpy1/MdQaGIXr/bt25tfv+kEIIE5cuQQ8+h4qUWLFnl5
ea1duzY+Pp7/XQyONBZhy8/PT5nVuWbNGn9//8x6wvKFCxfmzp0r1iR6knmm
pI661qlTR3O6oh7WKjB5BHTXff1I7jC3zOSgDIu6fPmyj48PhkYSBMc+duyY
LSt++vQpfGzTpk3qi5nA7aSkNX1CQuKtgtgUQr2SfdWqVVmyZLFqXYl9fP/9
9/jPNLd942cNGjRQD28ROnv16oVnnjZt2rfffmvHLfz+++9dunTB3jW/efHi
BXx1yJAhZOhhYWHz5s0TyxhFoOSukSNHkvBGRERwu63tU5yuv4XAG3fv3l2Z
um8JbAktISEhX758CxcutPBZGojZVvj8ypUrR0dHh4aGLlmypEePHp07d6Z1
7BzlYxKi+6Vp06aiw4SgPHDgQGvH1DIOaEdEh5JPTgXCDAwMLF++PH/r981w
B9avX9+hQwf7srVWgXFfdg50cx2Wm1smc1CGRW3ZsqVo0aIjRozYv3+/ne0O
kMCyZcu6deummSGQCdyO/ekTEhJvG0g/ScTIppVtqMmgs2bNmuZWElZh586d
PXv2tB+bDh482K9fPycSXlwZOezgwYNt7Qv0888/K7Nwnz9/rpkVz1dpzpRw
a/3NgFdo2bKl65u9K7AjNJIUb2/vPXv2qC+iJxbOIhBHbgUHB/MHCZGoA494
9OiRmZ3S08TDhw+DgoJGjRol1BsiWrNmTYIOf9CUHpjh7EnQLsjt7v+QmJhY
oUKFdu3a3b592/we464AnUfU9lcsWqjANN/YsWPXrFnjelG2YK25ZT4H5UpR
V69eRbb6E0szgdsxnD4By6V9oaBuXQkiIZEBkZycXK9evRMnToiPJKQk2oUL
F7Z8obQtYJIEJvJ6O7kwOftXX33lROHHjx/Hmbh1Crdb628Gz549i42NtcQ9
CtgR2oMHD/CW6hGipKSkkSNHWrgHFwrp7+/vPvJATIF6jRgxgoYTuxXlypWL
bCshIWHVqlUemN6cjhCbf/bo0cOTU8vQT9TJzvG+FiowDQo/cf3gAzuw1twy
n4NyuiharW/fvmImpwaZwO2kGE2f6NixI4mwmD7hvudKSGRAEGoPHz5M0r1y
5cr4+PjQ0NCgoKBdu3Z5MgQTL8hqLR+MxtOSTnpgeZeb6p8uSFNoJ0+ebNas
2cyZMxcsWDBmzJioqChrt34lrPv6+iYmJlpYpgYExyZNmkybNi0kJGTp0qU9
e/bs1KnThAkT7G+J+UYD+sGbfvzxxzly5ChQoEDbtm3TnH5pIV68eIFSycOp
NZAOSg346tWrV219mwncjv3pExISbyEICgkJCZs2beJ/Nx3vKJFpQCC7f/8+
nt8d6cm+ffuILO5WwtevXxOIxVPEmJpbj4uVkJBwEZnA7aSkNX1CQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkLCFv7999/Mfai6hIRERgM+559//rHzrScrIyEhocbLly9v3bqVnJxsaKTP
nz+/fv16Jj4UW8J9+Pvvvzdu3FinTp0cOXLkzJmzbdu2Fy5cUDv8Z8+ejRs3
buXKlTIKOAfk9vTpUyz0/v37+m8h/A8fPkxKSpLH/L1BwA8nJiaePHny22+/
tUOc3AEMFguNj4+/ceOGJ59rOS5dutSpUydvb+8sWbJUrlx5/fr16gN2keqm
TZuGDRv222+/pWMlJSQyGYhHX3755Zw5c/744w/NV3fu3JkyZcrt27fFxxcv
XoSFhRUuXLhBgwZ6M4Rw9u/fP1euXAMHDvSwD5RwKwgx9+7du3r1ql5DrALl
4/z79Olz9OhRAtnmzZvRsaxZs7Zs2XLNmjWHDx+ePn36Bx98sHr1ao1q/fnn
n+gnbOr169duqlsGx6tXrzDeAwcOaAg5Hw8dOqS2a1hlx44ds2fPHh0drWfv
SB6Ze3l57d2710NVl3AZpBIVKlSoXbv2hAkT3Geehvjll18+/fTTSpUqNWvW
zB3le8Dt4D2whUaNGsE2cTvHjh0jeJH2BgUFzZo1C7ezdu1aXNCQIUNIe9U3
yjRNQsJFYOCYW/fu3V++fKn5aseOHVWrViWbVq7gbapXrz569GhMT18Uxuvn
54e1Wl5JAuWePXsiIyPj4uK++eYb4mxERAR/WP6gNwg45BkzZixduvT06dPn
z5/fuHHjtGnTnj9/bu1TaGh4IGrg7e198eJFawsXIKMZO3YszEdNh3guVwhq
hQoVeu+99/jBjz/+qLnxr7/++vzzzwMCAsqVK0cgcEfdMj4QS40aNb744gsN
mcSuBw0a1K1bN3WSePLkSTLHI0eOGBa1bNmy4sWLK5mmhfCMrr4RsNaVwTw/
/vjj77//3tpKmgdG2rlzZ8uL9YDboSFWrVo1d+5cDbNF/6GaeJWiRYt27doV
k5FpmoRE+uLy5cs+Pj7btm0z/Hbr1q2+vr5qpmoVcETh4eHv/A958uSJiooi
Y7X8QW8QCNy1a9dWZFK6dGkYhTtGohH+hAkTqlSp8uTJE8sLdxFEjZYtW3bs
2FE9QCZhCHRj9uzZgYGBhvNhXr9+3atXr0aNGv3++++WP9pjuprxYa0ry6zM
MyVju50Ud6ZpEhISGqxevdrPz89wYs8///wTEhJSo0aNX375xfLn4oUWLFhA
irpjxw5iljse8caBaD5q1Kj9+/eTCJw/f9591Asq0rhx4759+2bAEW1IFFRq
zpw5byeNcQhoSPv27SHqhsOXjx8/rlixYlhYmOFwhovwmK5mfFjryjIx88zI
bsetaZqEROYGPnDfvn0jR45ctGjRq1ev1NcPHTo0fvz44cOHq4c44ZbBwcH1
6tV78eIFsWPt2rWDBg1SRiu4yFf2J3mS2sNdncgTqdLixYvPnj3r6I1Ogxdf
uXKlB6ZO8aAVK1Y48SCi+cSJE+0MWR47dsySniXai+z+iy++cLEcdyAuLs7H
xyc+Pj69K5IO+O233+bNmzdixAhNK3M9JiZm6NCh2Ka6M+3Bgwdly5adNm0a
P3706FF4eDj2iwDFvV9//XXhwoX37Nlj54nu01WrwPtC6n744QcPPCgjuLIM
yDzfBrfj1jRNQiLjQ6P5/02F4S/VhFDcdeLECXzglStXAgICcCBKCVu2bMF7
k821bt2auKbcKCZ5wlSfPXs2a9Ys3AvBq0iRIsLviUmea9assVVVfHVoaCgx
0QlrFe46ISHh4sWL27ZtS0pKcnERk5hbvnv3bvGRt+Z1vvzyS0V6YhbQ2LFj
3Uo+796927Vr10uXLjlxr4jmlHD48GEIA7xC8wMYyODBg3fs2OFEFHj58iUt
xe141yVLlvj6+tqabQUbIUlp0qRJ48aNGzZsCBciB3HidQRev36tV2kuGjY3
X8Gj3uhJnpqXtWUa/6ZC/C1sHJkgaiwCu6hataoyIknDRUREXLhw4bvvvsOu
SSGVQsQkT65cv349MjISratfvz42Lnogly5dSqC/deuWraq6VVctBA6tS5cu
dl7EdWQcV6ZhnmfOnKGNuKJ4tpTUlWWkGD///LNzj8DAhw8ffufOHfHx1atX
pOQ3b94UH/XMM9O7nRRzaZqERMYHdg1nGzduHE4JW7PjizAHwgoOh79J7bG7
AgUKiClD2bJlK1++/Pr16/Umj4vLly+f+Jm3t/ekSZOwU6LPvXv3Nm/e7O/v
j7sWv6RM+CR0C3pZs2bNkJAQpTKJiYmYGzYOZ4Nn8hTiyIYNG/7++2++ha/6
+PjwG8NqizGmYcOGOTejidtnzJjRvn17aot8hg4d2rNnT1fm/yQnJ8OT4Zbi
I6S6Ro0aEyZMUPsf3gvmOXfuXDcltr/++ithYvv27c7dTjTv2LEjqcGxY8eO
Hz+OJixatEgzMkX7tmrVCj/pUMl49RYtWkRFRaEGsJSyZctWrlzZUNrx8fG9
e/emfCGix48f9+nTp1atWs51wiCQ/v37BwYGZs+eXZkIh95WqlRp7dq1eq2m
etQz3Sd5IvPz589//vnnhMuNGzfqV0KpgVnxY2EyO3furFChgpeXl3jTvHnz
EkMRuOYWTAbmkCVLFmWSZFxcHMRy+vTppIcYQtOmTZVRv127dmGJ/AG3wR75
pbiO9KhhiRIl+BaVhh4gPaL8uXPnxCv06NEDxqJfZijgAV21EPv27aO2mvXI
ViFDuTJ9nydKhYdX2h3vPXLkSCzI6UegJEWLFlUeQf5SpEgR/hcfDUfbM7fb
STGRpklIZHAQNOfPn0+SDmPEsQcHBxOJmjdvbjiXEkOLiIjALkhCFUKIg61b
ty4XKUREND1E3ClYsCBEUXH4r1LRpk2btm3bKj17FCv+houScuIelUJWr16d
NWvWd999d+vWrZqeQOHf7EzyxMfWr1/flfnY1EdZGYGrqVKlCkTd6e4CRA2L
VpaU8gdhmjxd8zOcYYMGDUR0thaiRQYMGOD04gLa+vTp08o0iSNHjhARlL5r
BbxUy5YtzQ90wj3Qh2bNmgkSAkX58MMPcex6nvDw4UMYkWa5CvUhEn3yySeu
dEFw7wcffIBKz549207PCa2DNiLGdJzk+eDBA2yWBG337t1ffPEF2pIrV66J
Eycavj6tUKdOHX5w8OBB5eKZM2fy589P1IO12noKxBKCQSaoLN9D89EcvAQR
cPny5covMUy+QiBkiAEBAXfv3hXXxSRPntKoUSPSQ00yhUG9//77oaGhhkmW
x3TVKvC4wYMHkyC7I2fMUK5MwzxpqVmzZmEUSvqDAkDhoHPO2QhWD8fDA4gd
EigE2lyqVCllS1hb8zwzsdtJM02TkPAYcHFObO3FXbj0yMhIhTGi8Nu2bcuT
J0+5cuX0GRzfbtq0qVOnTuquRS6Sg2fJkoWsTQk0Gty8eRPDTEpK0ly/fPky
IcAw5K1bt46vlB4YHOOnn35au3ZtXE337t0rVqyo5sa8e7169fiBof8UbgHv
Z1UgELbP+5JcO3E71Rg9enS1atVE1zFYsWKFn59fcnKy5pci5hKyLXcyCLZq
1aoWclpcMUyDMKHx1fhwQsDixYtNhp4DBw6gfsr0KvJ6DbdRQOKP1ukbHVoF
lbK1AYIZQJOoM4Xb36ErLi6O9MGSSZ5wKvVUZ5Mg6UMP1QyKQgYOHEjw6tu3
r36eBgRy1KhRY8aMUUdkLhIxuaVnz56GmaOwepJNTVQVyokVKCOhCigHL0Ec
V+ogJnmOHz8+Nja2cuXK/fr1Uy+OsD966DFdtRCXLl2izspQjlXIaK5MwzxF
ftGiRQvR7hROi1evXv3Ro0fOVe/JkyeVKlWCGIv3xUzgh61atVJyEFvMMxO7
HftpmoSEJwGFI3w4OqKBfXXr1k3hPwLof5cuXYhEI0eONJkIi7HjbNmyGU6z
xO0QDfWbHYn9PaC4OL2EhAT1MB/PJa+sW7euQqfFeHRISAh3ke9DSletWoX/
2bVrlxgc4crq1at/+OGHQ4cOabwNhQcFBel5nXlcvHiRuKzEEUGDCxYseO3a
NSdKI4LXr1+/f//+IvDxP39zxfCUCrw6IlJ3UrkOZDh58mRihNOTSCkBtwx/
Vur88OFDqEWTJk30DIp2gWabmehFsYSqQoUKKYLdu3evj4/PhQsXNL+kiQkB
0BUK1zQ3OlC0aFEU21YPvBqwJkhar169lKUuKTZCALIikHXo0GHs2LG0oJjk
ySu7PmlQUDjNXAsz2LBhA2mj5i6so0SJErlz51ZGPNMETZk1a1ZCreFw4YkT
J3AF+s4csVURhgCH3LFjh1p7UQYsjropIoWf01iHDx/mbywXa6WeJKrHjh3j
N0uWLClWrBhP5+N3332nfoqHddUq4Jrg3upp6pYgo7kyDfNULyID69evp7Z6
4zUP7kVtdu7cKT7ev3+/dOnS6pMI7Kxtz5RuJ0VO8pTISDh//vxHH31ENuTQ
XSRohIAxY8ZoOE9MTAz6T86uIaW2gMlg/pBVslFNgMBYCFsEL/1dYggPhvns
2bMpU6ao82IxyVM9pp+YmIgr2Lp1a0pqHwg2jnPg4vz58/EblO/v7//VV1+t
W7fu+PHj6qfA63gEUcCVyXgIxNvbW8TNlP916TjNOggcvr6++BPxEVKNh4RU
80dsbKwmVFFtvJlCUy0B1a5YsaKd1VhpgsCKk6xevbri2IXjDQ4O1oda3Cyy
4tXSLFZkHMqsMFo2LCyscuXKPIXmNqneIvwhUpM7xpC1QdXy589/+vRpcUUf
AogOc+bM4coHH3wgGh09b968ORGB5Gj79u2ubG9C4dOnTx81apRDLAV96NOn
D1nJ5s2b1eSTpmnRogXG+Nlnn5mksmIZL+QTPdd8RcIIMzHss8L6yDf37dvH
b2DO6spDkMRiIuUF+YEyCIvmQ0gQIxT01KlTVHLcuHGkmfCKiIgIDVXwsK5a
CPKC8uXLW3iYbwZ0ZRrmKRaRwaZoU4yiVq1aaILTVRW1pUBleAs/L/IXdA9v
n2KXeWZKtwPspGkSEh6Gc8xz5cqVaHWBAgU0HZI4jRw5chApzA/BQGK5hbRR
XRQ+f9KkSXxlOOSBvRNo2rZtGxoaqswYF6AQeKZ6kicOpFSpUsLQiPK9UgFn
FrOsiYzQALxHZGSkZmCarypUqLBo0SKTL2KIpKQkEnlliAerL1OmzOzZs50b
7xDiXbFiRUqql6NuXl5eeJv4+HjDKeW438DAQPsrRxzC/v37YRrO9XIIUElI
vjrvXr9+PWUa9m9A0khJevToYaY3gJcl5REkAbGXLFmyY8eODx8+DA8Pt3Ny
MUFZkRuxHpeOtpgMpqLbB6qGrooG1YcAXqFp06bZsmXjrcUVYi5kBn27cuUK
0cEVDuMc86SSrVu3ptqabf3E1Dgxem4yW6FdILHc0qRJE3VRMDRSHlvRjTCN
0ZFXTpw4US1qXmfu3LkBAQGKxgqSDMMRFoTi1a5dG2IcHR0tElViKFfgn5i8
Rv89rKsWggQThqB2Yi4iA7oyNfNUJnmeO3cOZUZzXGTdQpNJ0kX5L168aNOm
jVhtNH/+fDF3yw7zzJRux36aJiHhYTjHPHFlY8eOXbx4sWbq/vLly9H/ihUr
KgViAqtWrRo2bNjWrVsNwxnmFhQUhB3NmDFDGCOWNW/ePPyk/Xj6/Plz/cIB
TM/Pz089/o73UI/3YYA8Ue1SeChuUO8/cU34LjupN/ExKiqKyIj71QsQL0cs
pvAdO3aMHj360KFDmzZtQtR4JP1QHb8kqA0YMACp6g+ko3p4JzHJE6pJTk3k
hXWTw+Ie8Z8TJkwwpPpnzpzhFdQb1LgCKgBjr1mzpq21t/yANDwkJATHCEnW
+G0+3rhxg9/A8KdOnTpz5swTJ05AnGrVqqXeFUpTIOJ6//33zegnrUzMGjJk
yJQpU8LCwlAhsepf6aVR4/bt28Q4nHO/fv2GDh3K7xFgYmIiyRTaaHJ2mSB+
Ym6k0G19CBD90nnz5lVSJH7JS7Vo0QIG5QovSnGWeaakKsbAgQORv1rsWBMB
l9dR7wuB4kGSUbzLly8bFrV3796cOXMiN2UbGYglqZz9BcK0LFqtaXSkR9SG
lKqHP9AWdU8dtkPrqG/kW/16EA/rqhlXYEcaGojZCBYOuGc0V5byf5mn2N4c
/gaz/fbbb+1MsDTZamKSZ/78+cmwSO7QhA0bNuAN+AO3IO6ywzwzpdtJsZum
SUh4GM4xT0Og/xAhLIK4o1gElhgXFyeWshpOohZHCHFXnTp1cLlYxMaNG7Fi
8wNDRIc1a9bwCAJWhw4dSG8tmYVFdlysWDHDpU9UEuP19vZW9rLAb6inuuFX
iddKzosnJGDt37/fcP9Gao7XVYrKnTv3li1bFM8g+jaJ+5RWv3794OBg/rhz
5454R77FX9nKzQkoZNO4KUv8DE9s3Lgx7trwcbTC4MGDlS10ANFHTSEIGeQg
oib8n5ycTOzgov2gjCgKFixo/gRkcnlFmVEn/eo59I386N13342JiVFSoVu3
bkVERKBFOXLkwDmbX9kK+edNUTkhE30IoD4VKlQgCGJo6hsJWK5vuOo08zTE
Dz/8EBgYCI1UznS+f//+xIkTUTZkVbZsWUNbEHtTIwSCNdoo1iKh7eafi/BX
rlyJVqMSAQEBy5Ytc11dPaarjroCM0Atu3fv3qBBA4fusoOM5spSnNpJ3nyr
XbhwwcfHZ9euXRAwfKCyyAhjNDPPMyXzuh3DNE1CwvOwkHleu3atSJEiRYsW
VWahHzx4kJiCseNtSOuUlYYakJflTcWJEyegqST7DrlcbqFw/CcJe82aNfX7
CjoBHAVprK1t2chn/f39+QE152VxKSVLliSNVcIccQq/Z+ZB8MZatWo1bNgw
Njb26tWrePVmzZoR5ZUBR5zztGnT8BiEPx7q0Lw1sYW+VdPSqGr58uXHjBmj
b0R8KY0LbyHRuHTp0tmzZ8eOHUujKPsoEiCmTp2qX8ucJpAw5aj3l3YFyGHm
zJlo2qZNm9T0RqzCxhDw57169TI/M3bDhg3ZsmX75JNPRATUh4B79+4RbgoX
LqxsYW0hLGSeYgVE1qxZW7duLaadIAQKT0xMFMem58mTx3DStTilGrlVq1YN
NkIro6LmqaNIPGE7OKL27dujq5bsxuAxXbXQFSgQIi1TpowlG9dnQFeW4jjz
dKjVYHdp7lppn3lKtyMh4VZYxTzJKPv27ZsvXz5lOSFGERoaKs6DI0fLnj37
6tWrDe8lQxQbe+K1KMTRKSg8aOPGjePHj1+xYoUTO0QZAsfbtm1bZTs4NaBz
nTp10gym4EIbN24sJrQ/e/aMFzezxooQExUVFR4eru7g5XUGDRok9uXgBwsX
LhQzyfHnvr6+tna8N4To+cH/m9/PkIwYinv79m09ecCrUwFcqP6rhISEjh07
KnvlpfyvL6VHjx7CNxIpCBlOTAlLSkoiBECKHL3REHv37oVBDRgwQN8VJtIf
lHDBggXmiRNNg84r+1zpQ4AYSnNlQ2w7sJB50rhQHfiJcoAjaiCGHtCi5s2b
qzfl1uDcuXP58+f38vLCLlAPR1e0wUzmzJkD1zpy5IhV48ue0VULXYEGVKBQ
oULml6JTcxoOvqcfKsqArizFceZpvtXE3OA0jya3zzyl25GQsARoNazsZx3i
4uLq1Klz7do1zXW4qPm5SRS+Zs0aoo96ywgc3aFDhwglL1++xJUFBATY6kYQ
+8xgfcS+DLLmDm/2SSr0Q6IwQEMvgdWL18fPkJOacSN3794dPHiwni0TcUaO
HEnEJyhPmjRJDKzv27dvzJgxDk0YwyO1aNHCMOgYAseOe8ydO3e/fv30/AEl
KViwoH6dAu503Lhx+mUXiC7k/7V33sFZHFm7XwMSiCSChAQIiyjAZBNMMtFE
YUDkDBZZBJkcBAiDSSbLFiLnZJFFLAwYMGAMLoHIFBgBBWtMYZZaPmrZ+vaW
7q/UtX3nzsw7mjdICLmfP1TSaKanp/v0Oc/pPn16xIikpCRumD59umtz0dgm
PHdTCuEssLO1a9fGBBw5csT4X2ECUNeOAhpNwTCBrfGU8AiMJoBxkT179vDw
cDczDPA4VkY3SJ88eTJhwgSM+6NHj3T/wuLYfyNC1bVrV0afNu4U7iFOnOTT
6HducBQAIxNZ9+rVK/3SDTmFjJFVD6oCHWBrvr6+xjhJU9AvYmeWNlO6RCZU
ZSmpzBPiNGzYsA0bNqS5kcepXqM1eNH69esdVRt7tHz58p49e7Zt29bRG5Xa
UVDwCM6ePRsUFJTLAC8vL0yGt7e37jr0o1atWjZjnhlTwcHBiL3pRMFPP/2E
FoXSOBoFYu8M1cCMZpIkt2inRo0atWzZ0jhbiH4z3bZw586dadOmicM9bS6T
oUBMmTaaZPLkyQ8ePMCpd2d/EAo5NDS0bt269g/IuHHjRkBAgNg+r4MImUBp
G2vLv0w7d/PmzfHx8VgfF6bCBMTklUj058LjWuzduzdnzpwVK1Y0nVQXB13R
6U5Feogzd3hQRDnqTABS1KxZM4RfTvW4BnFwYb58+YzjN1sqjNcxZ/gpdqYQ
6RcsdeXKla9cuWL6gTQ++kGuZRghNnTwRo/kxvcIMkZWPagKdEAaceTtH+OI
moJHMdiN+ipzqjIqs2bNGuiiHebp2V4TzBOptlhMV2pHQSFd4f5q+8WLF/Fe
cZ8dbU+eOHEipnDfvn2OShB7Z7BucmvDO4eYKGjatKn9ORwUdVRU1LFjxxYu
XOgmf6Ylv/3228OHD6NYXFiqkxBznmkuPGkBwfDz8zOdbBHzSHyd/QpcuHBh
yZIlfIvLOhBzVqhQofnz57tpAuiRL7/8UrshVAuucD1HjhwyCYl9IL2dOnWi
ZY4fP641AbyRaiPVkMY0GSDG4vbt27du3XJKctxfbed1dBCjz9G6p0iQW6FC
BQsn9Pz589CkkJAQ010n7wTvRFYl3FcFMTExxpx1FhCZ0mV6EC2yhipzBA/2
mhZ/EbUD509OTsbldH+3o4KCU3CTeWKwcK+0rFIkvpDbBCi5cuXK1rnlb9y4
gYNZrFgxR8vxGOWxY8du3boVG3fixIlvvvmGoZqus6MMyfbt22OR7c8WMvwn
TJgwfvx4p9ZNHGHjxo0w9tjYWHdUn0i5j1KymShA6ElHnUXvBAQEOHWSMh0H
L+JDXN6li/HFBMvD6VwGSr5Lly6YANOshnxacHAwH+7aQEDap0yZUqZMGXof
nsZbIiMje/XqxZV169alqf+RMR6E8Du7ndlN5ilOvEU8tBlf//zzzzNnzsgu
PnjwoI+Pj3VueZFLLSwszGLyigLPnj07b968GTNmwGdsJs12Ge9EViXcVAUi
DXjhwoXth0EePXoU+TFdz80aqswRPNhrWvwV1A4jmq7h7b6+vvZ38SsoeATu
MM/Hjx93795dp+5evHgxbtw4uYgj0v2JRYHff/9dpoDWYtu2bV5eXnjljqbm
Tp8+nS9fPpFJAxsXGhrqwQM+TEFtR4wY4WiJxBTioJDevXu7cyqNhDjIw818
jxBIFMvgwYN1Wgh1PXnyZK4vXbqUtpW5CNDeDRs2pHlnz57N50+fPl3LEOi+
SpUqac+HShN00yeffCLyG7j2CZhU/HqnsvSYgt7p0aMHYmbcqEvdZs2alStX
Lu3q25s3b5BVeYV7Dh065CjvqAD2mnvKly+PlHbr1g0Xyf7GLnHGK4YjI+c8
GbmMX91yKvxQHO+V8l+RZuj9+OOPKakxaZs2bdIVIjZ08MkLFixw1Di0A4Sz
b9++fCZECB6rTRmaHngnsiphVAU0IAwEN1ArY4mJidxm1DDCAUSQdPPMMI2Y
mJhBgwZBC/HB6T4xjUaFGbBBQUHQm9GjR0dERIgAXVlaFlBljuDBXtPiL6J2
RBaFqlWrqo1IChkMl5nnn3/+OWrUKOTcWCCURsx+oPbRkzJg6cCBA8aMKwg/
Btc6yJPH8Wr37NnDkIQ1ZUwW3CVLlhQpUsSpvB/YcbGR033gtIaFhbm5CHL/
/v1ixYpBJOQVmm7//v21a9fGbNHadEfu3LnHjh0rWv7mzZt8cuXKlXH56Tuu
9+zZU+oxKtOiRQt4qf1Uq1QAoyPPsHMBtEPhwoXFsSNuYtmyZTly5KBA3fVL
ly4VLVp0yJAh2u+6fv16QEBAXFyc+FMwwzRPSBfhDboDlO2ABqfl7RzYp4U7
zBNyAjHTsRGxVLd27VrxJ8wnJCSkXr16L1++RLyxicZYUGwWlssiyJMy4UV1
69YVSgaftE6dOtAwd05yTBPvRFYlTFXBjh07fH19ExISxJ90GRTRdPcxyrNT
p0669fHffvsN0YqOjubTkpKSypUrJ89bZITypahZpI5iGdr0iFZxZQFV5gge
7DUt/iJqB88CMTONBFBQSFe4xjxRif3792dAFdAAvYoHpz33WZxiJk5nePHi
xZQpU4xbL589e1azZk28QtM88wIwT9z5DN58JA4AkpYiTdAmX3zxhad0YExM
jOk2H6eAX4DF0aZhRJcGBQXBRQV7//nnn1GwMife9u3b6UdJIVCAPC43Doij
PbQHVKWJq1evhoeHu2x0xDnINWrU8MjiLLJH5Tt06KA16DgyWHCkVJdGkjah
ZWS8K7/4+fnRPtavQMhFfjBnd8ViMjBDzibfc5l50qfly5f38fHRjl+oC8NQ
uwk3OTk5ODgY55HyL1y4MHfuXON6OtKSN2/eDz/80NEyxJ07dyhEGzJHt6a3
85jxsqqFURXIAyJlYAOUqWzZsqbxACK2VvqDKamzne3atYNLCykVaxMIrSAM
CHapUqXGjx8v7qfBGbZa3pgFVJkjeLDXJP46agdRKV68uPtBBQoKzsI15rlm
zZrs2bP/zQx4Xlqld/jw4YoVK86bN2/YsGHarZoMkBUrVmD+5PEZ2D5GqCn/
5MFFixYxTHbs2HH8+HGPrAGliadPn3700Uf2DwDCTKOuPZJQFIMCe7e/s9UU
VBuGySfINTv4w9ChQ/GpJcNZtWpVYGCg+FOs8cmM0/w5adKkggULapfJ9u/f
z/32g4J27txJ17tMM+jo5s2bDxkyxMiskpKSpk+fToWnTZtmv6GoOdL4+eef
I0hIJq4Q7QMp0m2+EMkWZLo8gOmk3RzlV6TTe/ToAaXXDoo8efIg3hbrgDLm
AdnGBrlwZo3L57aHhYWZDl6A4ZO+htj23rhxYwQpMjJSG/1LVQcMGACV8vb2
5qls2bJhwpo0aWJM371+/Xqo6b59+2hwahsfH58x4zeDZVULoyqgzdu3b9+q
VSvBkWhYiCXcxnTfFu4hjakNnud3PALJEGhkbpBqFk+BXqN5xZ8i2aM2sPB9
V2UW8GCvSWRttaON2Vi6dCkuiQryVMh4ePAMI0dA7509e9adQ7vOnDnTqFGj
OXPmnD9/nsFYv359CvRgDU2BHhgzZsxnn31m01AeOHBAHhvqJmixdu3aafd9
uABsHLouIiJC6k9xpBFfJMwf18PDw+XWA7HyIo/S4B4MpW41EJX48ccfyylT
a1A+KtoYGWgfqNzSpUvr8kpRvWXLltWpUwfNTx+hY/kE+3FKfOb27dvHjRsX
FRUFCzLdS0WDUGa/fv1EU/CT37niqV0MupiHlStX+vj4mB64k2Y5Hjw90xRU
iV5wlNPGzuMTJ06ENUFT161bB6WZO3duw4YNPXLQmDUyWFa1MKqCR48elS1b
VmTpAWvXrg0JCTEmqBSAYVarVk0GQtCG0NRChQpJH3DXrl1+fn7icZFgJzg4
WM45Mzpo8EOHDskC33dV5gie7TWJrKp2UgwxG8iko8OtFBTSFWizLl26ZPKz
XBkaqFlhQdA2OIbYlHRlywLQ8jJlythxCdFFeLJff/21R7zvEydOQBrdVDiJ
iYlYNy1Ff/z4MVcgKoLhiCCi4cOH8wvOOD/r1q07c+ZM8QlXrlwpUqQItlJL
h/gXN0BQ7dTt+fPnaDmXHWretWjRIjwO7dyLsNpUTOx5+de//jV06NAhQ4Z4
drkN0+Pv779kyRLxJy1TvXr1ESNG8Mu2bdvcp3nWMQ/2IVLW0COZJAuuEbTV
sGHD/va3v8m1YLqsU6dObdq08cgpmRbISFnVwlQVHD9+nC5OSEjgv2LHzcmT
J00fh6K0bt1am0mSNoQHSh9QrAWLtQwoKD8hM/K0iNevX/Mh0BWdSn+vVZkj
eLDXJLKw2jGN2ejdu7cK8lRQsIPNmzfnypXLBUvtLN6+fYt6sZORm1EcGhqq
nWdwGSIkzNEZ9zYh5pr69Omj3eeIVcIKQDX5HG6IjY3NmTMnzjvWIS4uDnXa
v39/sc+LO3v06IGOMkY6JScn4/jrTtwzBYQKu++yQ/3s2TMU44YNG7QXRZKu
9u3b29+/6QIQLS8vLxGcRmssXrzY29t79erVP/zwAz/dtMjWMQ9ZDGLzLK23
e/dueQVi41SadJeRYbKqhVEVyCBP3ED8vn79+lmk5oCj1qhRQxe0EBMTI2dB
cVtKliwJhXj48OHUqVN5HbQEqslQ5UVr1qwpVarUmTNndMW+v6rMAh7sNYms
qnZS0orZUFBQ0ALnHUuNRpVDLz4+niGJZ5oBb7916xZaPc28dtzWoEEDjywq
ody6desGu3ankCtXrtSrV8+YyYQPadas2YwZM3Clly1bBr0MCwuDGwhTeO3a
NajprFmzBg0ahL1wlAAQ979Dhw5pzmPAZi0OrrIGfb18+fKuXbvq1gdPnjyZ
N2/edO16EW2FgFWpUmXmzJnjx49funRp9+7dO3XqRENBZtws31HMQzrNC71z
0HrYOxmFKA5FwnPcv39/Brw9A2RVB6MqoNiePXtCHfnwy5cvW1AIpL1z585w
A909jET46uDBgyHt+IYLFiwQW54FqeapiIgIRnRUVBSPO8pf9J6qMgt4sNcE
srDasY7ZUFBQ0EHkmf/yyy+ltw4L1aVBS1fs2LEDhmZtvDCjffv29YhH/PTp
09atW9tPgWIEapPK4Lab2jgUNWZFqFbU0ZMnT7RpPWhktJx1Lho+c+TIkUuW
LLGwoZQTGRm5atUq1z4B5kwjGM/jO3TokK+vL66H9qJn90qLE7UGDBjAL3fv
3hW7AERDpXnMnx0YYx5q1qyJ0RExD+ma5fKd4MyZMwULFpQJo8RsfIECBbQ5
J9MPGSCrOrisCqhhbGwsTp+jw4bQDDLECH9ctwOIf6UZNPXeqTILeLbXBLKw
2jGN2YDl0kdQ0AwIXVNQeL/w6tWryZMn37t3T/wp/OjmzZt7ZOulHTBmsVxT
pkyx4GO//PLL6dOnPfK658+fY6Zd1jYi7+KCBQvSNXqHSqIkLU5ERbOhqC2O
XLQAT/Xp00eEVOnw6NEjtKV2hSgxMTEiIsJ+luw0cf369cDAQM9aNC2MMQ+4
UThTJ0+ejIuLy5hctRkJfBzxvUIgGc4M3l69emXYgX3pKqtGuKwKjh49Sj3T
dbvH+6XKrOHZXkvJ6monxSxmo2PHjjjCImYj/d6roPCe4tq1a0OHDl2/fn1C
QgL+eGhoqKNzNtMJaDnc3nTaoelZPHz4kFbKgKmzly9f4iynB3/A8Bkzlksc
P368RYsWs2fPXrhw4ejRo6Ojoz2o/1NST9Ty9/e/dOmSB8vUwTrmIeuB0Qr5
5AP379/fr18/PEfPdlmaSD9Z9RSggtQwA3Z6vkeqLIOR5dWOdcyGgoKCEW/e
vMEb3bp169WrV7PeiqSCU8B6QrDR/OkxQ7h7924sS3rnnLSOech6ePv27Zkz
ZzZt2nT58uVMuxNfQcECWUDtpKQVs6GgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCQJeHZc5wVFLIYGB0Wh4CosaOgoKCgoGAH
b9++Xb9+fZ06dby8vHLmzNmuXbvz589rzejz58/HjBmzYsUKZVsV/pq4ePFi
WFiYr6/vBx98UKVKlbVr12pP7IKObtiwYejQoer0cAUFhayEV69e3b59+/r1
66ZO94sXL5KSkrLqqdkK6Yfk5GRMau/evQ8fPnzt2rWNGzc2aNAgW7ZsrVu3
XrVq1cGDB7/66qt69eqtXLlSHfnqMmDsz549Y4Q+fPjQ+N///Oc/jx8/TkxM
VOcAZkK8efNm5syZTZo0gW0yQI4cORIeHo6DFhIS8vXXXzNAVq9ezWAZPHgw
Dtq7rqyCgoJCGsAe7d27d968ef/zP/+j+9fdu3enTJly584d8efLly8nTJhQ
uHBhWIHRrYZw9uvXL1euXKhERQ+yEt6+fQszvHLlilFCPALkKjIyEs6pncyE
CHGlRYsWhQoVqlixIjf89ttvxmexyMgnbOrf//53etQt8+P169cM3n379umm
gvnzwIED2nENq+zYsWOOHDngMMZ5Y1qbce3t7b1r164MqnpWgaT0T58+Tafy
4+Li5s+frxuASD5Us0SJEkWLFu3Spcvx48eN3aocCgUFhUwIeAVcsVu3bq9e
vdL9a/v27dWqVbt8+bK88scff9SoUWPUqFEoNGNROOMBAQF43x6vJBo1Pj5+
2rRpCQkJP//8M3Y2KiqKXzz+ovQDVmPWrFnLli07derUuXPn1q9fP2PGjBcv
XrzreqUBOnrjxo2Iga+v74ULF951df4//Otf/5o7dy6Wt1y5cpjXd12ddwMI
+ccff/zdd9/pWAfjeuDAgV27dtU6iZATPMdDhw6ZFrV8+fLixYtLT1PBJiSl
/+qrrzJbKIhyKBQUFN53/PLLL35+flu2bDH97+bNm/39/bVM1VOA/0ydOvVv
/0Xu3Lmjo6PfvHnj8RelHyCZtWvXlp9QunRpCEBms1OmoPHHjRtXtWrV33//
/V3XRQ/4fOvWrbH72oA3BVMgbHPmzAkODjaNh/n3v//ds2fPJk2a/POf/8z4
ur3vgNKj+o4cOfKuK2IC5VAoKCi811i5cmVAQMC1a9eM//rf//3fESNGfPzx
x3/88YfH3wv5WbhwYVxc3Pbt2yFs6fGK9AbMc+TIkXv27IG3nzt37j1iSlCR
pk2b9unTJxOuaEOioFLz5s17Lzj8uwUi1759e4i6adTE3//+90qVKk2YMMF0
OUPBAsgeEliqVKnk5OR3XRc9lEOhoKCQqYCJ2b17d0RExOLFi1+/fq29fuDA
gbFjxw4bNkwbXAe3HDBgQN26dV++fIkVW7169cCBA2X0ERf5l3WQ55s3b+Cu
LnjfVGnJkiVnzpxxdAP1XLFiRToFIupeFBsb68KLYJ4TJ07MyOX1I0eOeGRa
lf4qXrz4d99955FaeRYJCQl+fn4//PDDu67IO8A//vGPBQsWDB8+XNfLXI+J
iRkyZAhjU7su8OjRo7Jly86YMYObnzx5MnXqVMYvDSie/emnnwoXLhwfH/8O
vsQBqNjRo0fRRenkVnhKaaAMw8LCQkNDM+EqjHIoFBQUPA6dPvk/qTC9U0sI
xVPHjh2Dzv36668lSpQ4fPiwLGHTpk1xcXH4yG3btsWuyQdFkCdM9fnz519/
/TX2DuNVpEiRW7dupfw3yHPVqlWOqopaHj9+PDbRBR0omOfJkycvXLiwZcuW
xMREHb8VQfiRkZHpSj7v37/fpUuXixcvuvCsYJ6UcPDgQew7NMDNyuzfv5/2
l8bu7t273377rXZmAwYyaNCg7du3u2C4X716RU/xODZr6dKl/v7+joI8Md84
Kc2aNWvatGmjRo3gQvggrn1RSuoUjVGkuWjqzvAveNR7HeSp+1hHQ+M/qRC/
izFOm9DUjAjGRbVq1WQgBB0XFRV1/vz5mzdvMq6hbbIQEeTJlaSkpGnTpiHG
9evXZ4yL6fdly5bhX9y+fdtOtbkN/2vMmDFw17lz50pfkkqiFp49e+ZkM5hj
165deLIub40R+8G///578SeNRt327t0rh4M7SkN8KeoR93zjxo1QekdBnjj1
eG2tW7du3rx5vXr1hg4deuPGDde+KCVVjRvHAlccrUdkQodCQUEhkwDaAGdD
k2NHMPEW04ZoGMyK0O337t3D3BcoUECEDmbPnr18+fJr1641KkDYWt68ecVt
vr6+kyZNgh5gfZKTk1GbgYGB8E9xJ2XCZ1DF0MuaNWuOGDFCVubSpUsoMewd
+hyeyVsgUevWrXv79i3/ha/6+flxj2m1xXI5Wte1aQEenzVrVvv27akt7TNk
yJAePXrowg6pBkZk/vz56eTdYwGhnVu3bnXtcZhnx44dMVVHjhw5evQoHbd4
8WKX169pRmzZ559/LmiDCMU0hjrQv23atMH6OFU4ZLJVq1bR0dGIASwFq1ql
ShXTIM8ffvihV69elC/a/O9//3vv3r1r1aolnBFnQQv369cvODg4R44cMiAW
ua1cufLq1auNUk31qOc7D/KkE8+dOwcBg6WvX7/edA++BMOKm8WQ2bFjR4UK
Fby9vcWX5smTB+pOg+seoa8heB988IGMEE5ISIBYQnVwNBgIn332mfQ4du7c
yUjkF0gp45E7xXVajxoGBQXxX8YIXgmth3Nx9uxZ8Qndu3dv3LixcZuhFqgC
2CBqoVixYkgygxFh/uabbxDFOXPm0At8EWwWMXC1Lf8fGOYtWrRAMbpcwvXr
1/GF4ZbiT4YGA4RhotUPrikNemTy5Mnt2rVjfIku8PHxkc67Fk+ePPniiy/W
rFkjyC2vwz388MMPt23b5oI/SCWXL1/+0UcfISpygHh5eZUqVQon0bTvnHIo
FBQU/iJAXaO6O3fuDGOE1QwYMABL1LJlS9NYSjRPVFQU2gZHWxJCbNknn3zC
RQoRFs0IYXcKFiwIUZRs53UqQkNDUaHS66dY8Ttc1N/fH+MiC1m5cmW2bNlQ
m5s3b9bNEvBURESERZAndgST5E6UO/WROyMwbVWrVoWo6yg6Rr9BgwbCmHoW
ogH79+/v8oIaXXPq1CkZ1XDo0KEiRYqYWis7wOTB0GbPni3sF0SiYcOGpqGY
27dvhxjYX+XHfiEPGH1hyETJ8EljyY8fP4YR6bar8IGdOnVq3ry5OzOfPFuv
Xj1EGj5jYaDpbqSRfnmHQZ6PHj1izOKgff/999999x3ilytXrokTJ5p+Pr1Q
p04dbti/f7+8+OOPP+bPnx+yDWt19BboDbQQyie37yH5iCJaAl4BmZF3MjD5
Fw2Ch1iiRIn79++L6yLIk7c0adIE91BHtBhQ8Jnx48dbEDB8UrwY/FZcSN3w
p3CcWfxKmB4M1v14YFoPIdywYYM7haBO8ZRlBgx+gYozHHS3Oas0aFvoXNGi
RUVf8CdOccmSJY1BnrTDjBkz9u7dq3scRUqvuZMpQsz2M0BwVSycBZsOhYKC
wnsKNLYLq0I8hd2cNm2aZIyolC1btuTOnbtcuXLGiSP+izYOCwvTTi1yEVvw
wQcfQEWkodHhxo0b8IHExETd9V9++QX+Y2ry8NP5l5yBwZzhvNeuXRuy1K1b
t0qVKmm5Md9et25dbjCdrRVsJDo62lOzkUKj8r06bS/4IRbW45qWdqhWrZoH
OS2EDWLQq1cv18w0xBWreuzYMfHnzZs3AwMDY2JijHdCHWGeS5YssUnP9u3b
h/jJqM7bt2/ruI0E9hepM3Y6tAoq5SgBgh3AZKgzhVtn6EpISKARPBLkCYvT
hjrbBE4fcqh1HygkPDwcSoAXYFzDhUCOHDly9OjRWkeAixB1HunRo4ep5yhG
Pc6mjs0KaWcUGCcGKQctgfsg6yCCPMeOHbtt27YqVar07dtXG5iR5prsuXPn
SpcujVJylLkCN6RixYp02dKlSx0VYhN8F+LXrFkzd1JQompGjRpVvXp1ufQf
GxsLMb5+/brxdU4pjSdPnlSoUEF668hqhw4d2rZta/RJURpwXZpdF1rz9OlT
2gpvztFEgR3QRMgM1bYoxI5DoaCg8P4CCof5cDbtDGa9a9euurAoVFnnzp3R
KhERETZTsot1pezZs5uGWaIqsYZGkyFSFWFN4G8nT57ULvPx3oEDB37yySdS
+Yu1qhEjRvDUnTt3IKVxcXEo2507d4o1Wa7gy9+7d8+4I4DCQ0JCjDrfPi5c
uIBdliEBggYXLFjw6tWrujuh63yRdk7JffDJkydPRsm7HERKCZA3TKFMroil
xiRhXl0gPDQvNB4mIA+j2bFjB8zh/PnzpvfTL5hgO2muqSfkpFChQrJhd+3a
hfU0lixmfngpheu6GxkoWrQogm3HsMKaIGk9e/aUW11SHDBPGh/+jJWPjIyE
g4lpH6NZdwGCe+jWYe1g3bp1uI26pxgdQUFBPj4+cqU7TSAb2bJlg+GbRing
X6AKjJOoIk8XAwEOuX37dm3eTqSLEUfdZJPCz+msgwcP8jsjl9FKPXFUjxw5
wj3QxWLFivF2/sSL0b3o4sWL/LdkyZLG4SYhUlvky5fPfe8MPl+vXj1TZ8c+
aK769ev369dPeHb85HeumJ4s6ZTSOH78eJ48eRBF8SdNzbOmyflRuTQasq3b
V8646NixI0LiaKJAC8QeOUfsFy5cqC3HyDzFhixe16VLF6HtVZCngkLWxrlz
5z799FNnA5y2bNmCCRg9erROH8bExGB2q1WrZjNWH0vdqVMnFFGbNm107AgN
jNmSk2NaiCU8GCaqfsqUKRBU+S8R5Kld07906RIMZPPmzSmpvjzUAk7CxW++
+QbLS/mBgYGnT59es2YN2k/7FnQ+rwgLC3MnGI8G8fX1FXYz5b9TOqasg7fA
eaTF8Qh4S6VKlSw2T6UJEZZZo0YNSf8EPRswYIAL5z2J0j777DPR14IuUkN6
8PvvvzcKIeyOttq2bVuaJQuPo3LlysKHouQJEyZUqVKFatPdNsVbTK/BdW0m
v8Jrwwrnz5//1KlT4oqReYrENVyBk4hO59tbtmyJRcY52rp1qztJYyj8q6++
GjlypFN9gYD17t0b1rFx40Yt+aR3WrVqxWD88ssvbVJZkT0A8mmctYZCwC21
Y1OC0Ye/uXv3bu6BOWsrj68nNhPJD+SGDz/8UMSgwprgpTQjFPTEiRNUcsyY
MbiZODJRUVE6DwW3lK6ESMutOo4AV0Ry3A/yRNLKlCnjZmgifq6/v7/kh4gi
XwE35hcGgq6jnVIaNHiBAgVkNn4oPS86fPgwfrFN1i0c59y5c5uqZSOQcBgm
EjV16lQpUUbmiYOAz0jdZFpRa4dCQUHhfYdrzHPFihUYU3SFbkISS+rl5YWl
sJ8gDhLLI2gebVEYwUmTJvEv05VWFCCGpl27duPHj8eR1/6LQuCZ2iBP1HWp
UqWE+sLK90wFnFkYCCwjNADSMm3aNN2ilVicWrx4sc0PMUViYiKOv1zPQpdi
m+bMmWNq2THfwcHB1hs9nMKePXsgBhYTPmmC9oeTaycf1q5dS5mOZimtIYI8
5a5kLA5FdezYEeZgbP+UVJKGS9K9e3c7k5C0Hi6PoB80e8mSJSn58ePHWD3T
+SIBTLaUsQcPHsAkkRabs5HCEGNGkVXRoUbmySfAtLNnz04ziis4ZTB5vheL
Dyl158BW15gnlaQLqLYuWSJN0atXL7F6btP9oV8gsTzSrFkzbVG4J9AhR5wB
74BBh185ceJEbVPzOfPnzy9RooQcAoIk46yJEYQk165dG2I8c+ZM4bzATLgC
/2TIa3UFD8LWqFi3bt3SjHBGpPv06ePOCnJKqjAMGjSI73JhLUALoUJjY2NT
Uh0o9I+3tzfiBFE03a1mX2ngd5cuXVqwekZE586dcbpRgwsXLnS0v1LUQQoD
v9CeVG/Hjh02PwfVQf1r1qwpj2U3Mk9oNlfoZXHF2qFQUFDIAnCNecLKIiMj
0Rg6rf7tt99iditVqiQLxEDExcUNHTp08+bNpuYM0xMSEoLmmTVrltCr6PAF
Cxagcq3t6YsXL4w2BeUcEBCgXX9Hm2nX+1BrvFFrZcThxUYqePjwYX9//5Mn
TzqqANo+OjoaywiTNDYgJBNbTOHbt28fNWoUCn/Dhg00NUTIkW368ccfeaM2
n4w74Isg2FqdrwPVw+b279+frjQe6EmbiD04EMLp06fPnj372LFj8JxatWpp
E7zId506dQpbDxPDdOqMOH9eu3ZNpHPx8fGBbcI6IA+TJ0+GelHDcePGmR6M
KMIqPvroIzvySS/DdgYPHjxlypQJEyYgQmJHsJxw1uLOnTsQNjhh3759hwwZ
wv2wYuwvzhTSaDpTZ4QgfiI2Usi2kXmKOas8efJIF4k7+ahWrVrBoNxxClJc
ZZ4pqZIWHh5Oh2r7kdEEz+dztHkhkAFIMgL8yy+/mBa1a9eunDlz0m5y4wnE
ElfOOi8BPYuA6aSI1sNZgLxplz8QP+2iA2OH3tE+yH+N29DOnj1LlfLly8eX
WlRDAB6l9VVdA19dtWpVuLSj6WI76kIEeULVqlSpwgDBs166dCmeV6dOnZBk
U3fevtKgcFgfXcxYRiGjjsSBwrB947IOlUG9I6UQwmHDhjFGoL70RePGjane
7t27bTVKariRr68vbqAMsNExT7HwwRVt0Igjh0JBQSFrwDXmaQrUF0oSHYLd
kYYYApCQkCC2spru3RBxVjxVp04dLAh6Zv369ZAH+2vc6MNVq1bxCgxWhw4d
QkND3Zx2EPjmm2+KFStmGtFEJVGJaFSZIQS6og11w6pir+VUG1YJtrZnzx7r
/I3YpqCgIE+doUwjNG3aFJtlOplDc1WrVk3WH0K4adMm+V4x2SLJBtevX78O
pYReGleHaf9BgwbJ5DkANqslDzyF90FHY0zLli37IBUyHoNOt9hOTq0KFixo
fzvt06dPpTBTsnGvB9UQ+WFiYmKkK3T79u2oqCikyMvLC5Nnf0M9xIDvReRE
IxuZJ/WpUKFC/vz5GWjaB/lk9zO4usw8TXHv3r3g4GBopDwpG7YAlbp79y5t
RceZjgWR8VuuqIq9SLpt0dag8VesWMFgQcZKlCixfPlyN+VfxMmISd0M2xx9
5cqVwoULr1u3zvgv++oC1K9ff8CAAfxCsws9RqtCth1NyTqrNGgQHhECg6+h
o/EC+KGwaEiyHKTUhFfAb0uVKgWfP336tJ13paTqGcavn5+fTA+iY57UBFrL
FXFSgHzQ1KFQUFDIGvAg87x69WqRIkWKFi0qN9Ts378fm4I+gcMUKFAAH9Z0
QkCEvoNjx45BU4cPH26xPGoEj1A4un3OnDk1a9Y05hV0AejDwYMHO8oGefDg
wcDAQG6g5nwsTAanvm/fvtI6QNJ27tzp7EtFxnvXQiiNwKaUL19+9OjRxjbn
X7Vq1WrUqNG2bduwmPCEFi1aQC3kmh1mEUNgh/xj5elWGAsuxsWLF8+cORMZ
GUl3yPSh8Kvp06djRsWUGq6BU3GztDClpRmqZxM07OzZs5G0DRs2aM2c2IXN
QMAC9uzZ036oLUwje/bszZs3l/uFdcwzOTkZlgsncScLtyN4kHmKjVfZsmVr
27atYGs0AoVfunRJHJvuKLpPZGSl3apXr45jRV9D4O1TR+F4wsRQRLARhN99
rijidamSTN6VAWAQIaim2cbsqwu4N3c6FZjtWaUBYJUBAQHGFAdwyK5du+bK
lQt51mUkswDeCv67dk+ljnmKUzK5YprgQkFBIUvCU8wTXoGyyps3rwwBQnGN
Hz/+3r17KalTQzly5Fi5cqXps3/++adI7AkXohBnA3t40fr168eOHRsbG+tO
PhMt0Irt2rVr2LChkQOj6sPCwnRruFC1pk2binxNz58/58NdOA9FzFJCAm3m
3sTWwCETExNNd8RA9vz9/Y3GF6oQHR09depULQOkDQcOHCi25XLDokWL5K4Z
a5w8eVIEasorYoane/fuwnLBRSGllAkHK1WqlLMnlfN1GHRIkf1HLLBr1y4Y
VP/+/Y0zSML9QQgXLlxov4a0EjIvc+AYmadYwZdbnzwLDzJPpKVMmTK4WmLA
pqSyILH0gFi2bNkSj9JRmv2zZ8/mz5/f29ubcYG8ObtFDn8HqRARFx6hT8gk
neLj42MaaOEyrIcbyo2ONkatOKUu8AQZsxZRl0Y4qzSswSCtVKlSuXLljIGj
IkmIMabXGi9evKhZs6bWbdExT7FdlM4yjbdRUFB4r4GRgpU9NSAhIaFOnTo4
pLrrcFH76oXC8dOxPtpMNXC2AwcOoK5fvXqFbixRooSjcz1kemFsXybZyQhr
ap4K45Io1sGUnEA2xOdDb9atW+fCZAtWvlWrVqZ01xRHjx7lZi8vL2OW6ZTU
KeiCBQsad0jdv39/0KBBRooO04iIiMCQYXQmTZpkJ2IB2zFmzBjjbiMabcSI
EUlJSdwwffp0MQtNsbgVzs5IY6MLFy7skckrTGft2rUxgnILrRaCeUIeHAU0
moJhAlvjKcEWjMyTcZE9e/bw8HA3UxbwOOREN0ghQhMmTMBlePToke5fEF37
b2Skd+3aldGnjTuFF4njVvk0BIkbHE1Wy/z5vXr18kigi5vA8cHPlcfjegrW
w42BZpotzSl1sXv37tGjRzuV7sBZpWEBkYSNfoyMjDQulIjJ1TRPSdAB/T9q
1Ciekucm6Jjn7du3ixUrBtd1P8mYgoJCZsPZs2eDgoJyGYAiRQ94e3vrruOE
1qpVy+ZWC0x5cHAwutR0Mf2nn37y9fXt37+/I1Mo4uqpBmY0k6QOhi03atSo
ZcuWpmmWTffs3LlzZ9q0aeJwT9e0KKo4NDS0bt269o/R+fbbbwMDA03puohw
WL58ue46ZMn0fkwYdufBgwcYbpu7nHiEt5h26+bNm+Pj42GzLkyCaSFmbnUx
YK5h7969OXPmrFixoumkujjoik53yoKLM3d4UEQ56pgnUtSsWTOE3+YEsiOI
M1jz5ctnHL/ZUmG8DouGw9iZQqR3cDQqV6585coV0w+k8dEPFtuZYbk8zhs9
khvffcD26QJHHa0FX3fs2DH709GOhpsISChUqJAxpiL91IWAC0rDEUR8ju6k
KgkoYkBAACpF+CP2gYpgCIsw/pT/n3mKbAZ0VlRUVCbR/AoKChkA91fbUUTV
q1d3dJ4v+mTixIlos3379jkqQcTVY93k1oZ3DjHn2bRpU/tzOGh+9CeGbOHC
ha5pUTF9oct1YwE4Q9++fR1Nd4g5Typj8+10H4b18OHDkCgXQgV0uHDhwpIl
SyjQTdKFlcegY57cZJ70yJdffqndh64FV7ieI0cOmfvIPmj8Tp060dTHjx/X
Mk/eSLWRakhjmgwQjoplv3XrllOS4/5qO6+jmxh9jqYHRYLcChUqWDih58+f
z58/f0hIiPUGugzDzp07cagdBWlrwQ3Dhw+3mb7VergtXrwYVmbK3k3hvroQ
cFZpWODo0aO5c+cuVaqU6SZ6NDyt2rlzZ2eX9YViwenje2lDLfPE+hQtWhTv
LM0u4GZqRfO6vy9PQUHhncNN5onBQm9oWaVIsCO3CVBy5cqVrXPL37hxA6e4
WLFipsvxKC6MY9euXfkJMVj3X+zYscN9N98RUHToRiyy/VdgAiZMmDB+/Hin
lmu1ECFPUBebe3BoUhrWUd5vGjMgICA6Oto+Z9u4cSNuQmxsrPsTjPAoGBGl
ubkIePnyZQy6PBPTZWDyunTpgskzTdBKWwUHB9OYrg0EpH3KlCllypSh9+Fp
Yr2yV69eXEFQ06SFyBgP+vn5NWjQwNkZV3eYpzjxFnnTBvX9+eefZ86ckQJw
8OBBHx8f69zyIpeazMdo+qKffvoJBo5Tg0B6dhHciF9//RVHoESJEmluhNm0
aZP9/VDWww1fA0G1n+fWfXUh4KzSsADDX7tdTguRtyRPnjymW6jSBC0WHx+P
IcBHE2kHEHUkgUE3YsSINPew8zh1o/F9fX3dOTVeQUEhk8Ad5vn48WPUkS5q
DjUybtw4ucAk0v2Jtcjff/9dpoDWQnjTTZs2NXXbxVTD3wzgfk/tJzKC2qIS
7SzYaeuJUu3du7fLkw/CtA0ePFhHJGBxkydP5vrSpUtPnz4tUwf8/PPPhQsX
pm0heEOHDkU5a2fzaO1KlSppj3NKE1u3bq1Vq5abSSYFMPqffPKJyGzgTjlH
jx6FRTiVpccUtEyPHj0QM2POAWoIKcqVK5d2B/2bN2+QVXmFew4dOmRMZKoF
1pl7ypcvLxKYnzhxwv7skNi+YRpfZwE3mScjl/GrW+o9e/asON4r5b8iLbNi
Hj9+HKqmK0Qke+eTFyxYYNo4XOSpZcuWCWp0/fr10NDQdF2XF4HldKh10MjN
mzdHjRql0yEi6+zw4cMZODyekJAgXWbr4QZFh3naP/3WfXUh4EhpuIDNmzfn
yJGjf//+xqJg1HwdFdY6F3wsrSGFHPcNH8Tic5CEa9euicx7FSpUQNvYtzsi
hULVqlXTY6eegoJCBsNl5onGRm9jXo0FogZlrrZBgwblz59fpJVGkxtnGFAp
GFyLIE/sCHoec4CluJ+Ky5cv9+nTxyMEyQJLlixxapMCpgSl6s6pzSIDCXZf
XqGtUO+1a9eGJNA4tF7u3LnHjh0rGio2NjZbtmwDBgyA7dOD9erV06YThOG3
aNECK29/MoTHw8LCPLKexbdAYsXuXXdAlTD3iYmJ7lcJ8oNhNWZcvHTpUtGi
RYcMGaJtKAhSQEBAXFyc+FMwwzRPSBdLn7pz2+0AkUbY7JwTqoU7zPPixYuQ
K51jJSIE1q5dK/588uRJSEgIcvXy5UvEGypuXE0WGdQtgjxhtuIwKXlly5Yt
/fr1c/PMIGvgIzBS2rVr54gI/fbbb6NHj9ZFbEKicPF4Kjk5WZx3JlK9if9a
D7ekpCQ/Pz9x9pAduK8uBIxKw2XwCf7+/sYMwP/4xz/atGmDG6tN6CpOwv38
88/FqBHMkDGS5ro5n6w7w8gO6A68CdNQGQUFhfcOrjHP169f4xpjxwto4Ovr
mytXLu25z+I8PnEoDOp6ypQp2vQ7AvjsNWvW9PLyMs0zL2747rvvpJqizLlz
5+7Zs8f5b3UO4nCQhIQEm/fTJl988YU7XAsaD/3QZk2EcQUFBWFWBF0Xsy4i
VaYITZSqXqSBwkDIKQhxAJD2PKk0ERMTY990WgO/IDw83E0SK45fr1Gjhs1I
PGsge7RGhw4dtLG7t2/frl69OlKqSyNJI9PUMkkOv8ArTDc1a4GQi/xgzm7G
h6nCfp3N+eky84RxlS9f3sfHRzt+8RAZhtq9/+K0U5xHyr9w4QLjzsgWIJx5
8+a1yPF49+7d0qVLa09+hM/LwybSCSJxK59D5XUbfPgEVA3qSzdURUZTekEc
4ytmwvl8EfSY5nCj6/EQtcc/WcN9dSFgVBoug4/CGSlevLi2VtQTp6xChQo6
T1/IhpRz2GnDhg3TZIaM6KioKAYIRsepwJI7d+5QMfejbhQUFDIDXGOea9as
yZ49u3EFHHzwwQdaR/7w4cMVK1acN28eOk17oB76asWKFZg/ebQHtg9i4Ih/
Suzfv5/SMsDzffr06UcffWT/cBBUMabE5QAA3gLD5I1yKwcmbOjQoQEBAZKQ
rFq1KjAwUPwpVtlkonixE0QXo0Vbcb/NyCiaFJfB+tBD+9i5c6ezqTuN+Oc/
/8kXYfiM1jwpKWn69OlUeNq0afbrTFMgjZ9//vmOHTuQTFwhGnz+/Pm6fWQi
2YLM0pmSOt9FR1y/ft20WDq9R48e+AjaQZEnTx7E2yLeQAZRLFq0COrrbJBn
ihvntoeFhZkOXgDfljOBYtt748aNkczIyEhtqDZVHTBgAITT29ubp7JlywYx
aNKkCR+lex1tC9unZfr27Qv5P3/+fNu2bd0MbrQDOhH3oUSJElRs7NixmzZt
QrdMnDixRYsW0dHRxvhtxh38Cj4pDwWg2lRVcMs0hxtdgIqzn93ITXUhYFQa
EjDh5cuXU2GEfMOGDTYnGPmubt26MUZwQvEpYHp4Ugin8fiqQ4cOISqS8SIz
qBpH2eDFRraQkBCcHSlpOXLkoHdwARydHcB1CsR3wP1cunSpv7+/CvJUUMga
8OAZRo4AhTt79qxHjkKjKBRRxmyhRVuOGTPms88+sxmIdeDAAXdmcjBhMKKI
iAjJIkQCPSogrBvXw8PD5aanX3/9FVUsibpY7IOEaJeDMZcff/yxnDK1Bm2L
2TVmkHYBVBVOaIwJdBYwvdKlS+ui9WjhZcuW1alTB8LJx0LtaBP70V/05vbt
28eNGxcVFRUfH2+68Y0Wpsx+/fqJ3uQnv3PF/ZSJArogipUrV2KRTU+bSrMc
D56eaQqqRC84yp1lEwxYWBxkI1euXDAZeZBiBgACCTuaMWPGiBEjcFL27t3r
aDiLhK4QJFnncuXKyQ16dobb0aNHoeIyDNsabqoLAaPSEGBo1K1bd/HixZRP
fVAC9vO080U8TotB13F18XON2oMrtAxjU65h4cpBRO1vsEoTKKJWrVrxFr6R
1i5btqydZAUKCgrvBa5evdqlS5f34oRcsf6FC59hmd+g5WXKlLHjaFMlKvb1
11+7PMuXmJgYEhICRZdXsH1ckdZNhBqKJDDo+ZMnTwYFBQlVL7b/FyhQ4MyZ
M9oyuT5z5symTZvaoUwnTpzAinmEXD1//hyr4eYEBZVftGhRo0aNtPNCXFy7
dm2RIkXEnhd4xdChQ4cMGeLZXCtwLWiGJCE0ePXq1aEu/LJt2zb3aZ5FEIVT
EPlq6OJMngsRScaJ6969e2BgIPyzZcuWjg6VeIfYvXs3I0gytB9++IFOgR/C
3BiVjKw0hxsOS+PGjdFRaSoB99WFgFFppKROP6K1oNlCKvCzGESezScggjyl
U8yLoKmVKlV68uTJ999/7/48xqtXr/CCW7RoIaZDxVJ+7969VZCngoJCBgOH
t3bt2hYZrT2Ot2/fwmrsZORGN4aGhrp8AJzIetqnTx/tbujXr19DBaGavJ0b
YmNjc+bMuWLFCihiXFzc/fv3a9Socfz48ZTUtFTly5efPXu2sZ7Jycl16tRJ
8xhBLCB2EHrgEQ4DlYLuujlB8ezZM8zNhg0btBdFkq727dt75KxAR4AEenl5
iZBXGmTx4sXe3t6rV6+GjWjjFV2DdRBF1sPDhw+hmgxb2o3uY0DRtp9++mlm
83aTkpLkBDvDuXPnzjg4dMrChQsvXbr04MEDO8MtPj6+Xr16aSbEcFNdCJgq
DaqEr1q0aNF0PQxOBHm2bdtWbC+6ePFi8eLFxSm6MF5Hq+f2sW/fvty5c8uo
ztu3b1O++7uxFBQUFJzF/v37sQUeXNCxg1u3btWvXz/NsDRua9CggctL1Veu
XMFgGXfr895mzZqJtcJly5b16NEjLCxs3Lhx2EHsOKyMP+fPn8/PTZs2OSKN
a9eu7dChg/VkJsarW7dumzdvdq3+OkCMLY6ssgO+bvny5V27dtWtjYojuRct
WuR2HR1CBHlCNatUqTJz5szx48cvXbq0e/funTp1ouVNk2w7BUdBFJ5ays9U
EGc8IbcybwBX1q9fX7hw4Uxy4JEE/Q7VadOmDZQS14DBRTchCYwvKm9zuNGn
ffv2TTO+xU11IWCqNGQAaroeYwpn9vHxgQ1GREQwRiZPnjxv3jzeywBx//h1
MYNaqFAh+Wm7du3y8/PLYM2voKCgIE7xQx052uWRftixYwem05oYwIqxOK5N
xEGueBa7Zmqt4G9YKEHA0MlPnjzRJv/h+uPHj63NHLUaOXLkkiVLLG57+vRp
69atPbIkB5WKjIxctWqVO4VgVamPcd4Gu+br6xsfH6+9SLO4n/peQpyoNWDA
AH65e/eusOCi5T2SCMgYRIHJhuGIIIr0i9h8JxA50yZOnKgLP/7000+PHj36
DivmCK9evWK4iV5g4NDpWtGyM9zu3buX5hYqd9SFrImp0hAnmX7xxRdaQeIe
D8ZjiBiesmXLPkiFjJR+8eKFR472oOYDBw7kK8SiiUhwgRuIjoKCpuuWBAUF
BQUtRCZwf3//jI8QQxNC26ZMmWKRGBNDc/r0aRcKF2kSFyxYkK4hTM+fP4dK
WRxgyg3btm3zCLMS55VYHLaYJni2T58+IpJTh0ePHmGDtOtuiYmJERER9hP+
pwlcm8DAQDeZswWMQRS5cuVas2bNyZMn4+LiPEihMwl27tzZqFEjrTxcvHix
e/fuHsmUlTlx7tw5PtDiBCWX1YWAhdLgypAhQ+QO/ZTU6FOYv4gT8AggzG3a
tOnQoYP7pyY5QkxMTLVq1cSgZoCXLFlSpISdOnVqllwaUFBQyJxAo4aFhQUF
BaV5Il56QJxs4pF93zo8fPgwISEhA2a6MEC7du16L049xihbnH+NDW3RosXs
2bMXLlw4evTo6OhoD9LOlNQTtXBwLl265MEydbAIoki/l74rMHJx3Fq1arVu
3bpTp07xe3h4uPt5LDM5+EA+Np38CGulgXfWs2dP3DH426RJkxgjnl2nTk5O
LlWqlPs50yyAsurXr9/gwYPx9ydMmADHFuc4pBmvrqCgoOBZ3Lx5E2Weybfx
KmQAkAGML4QzPWzf7t27MdZunmmYJqyDKLIe/vjjjwMHDmzatAlKr3YoZwBe
vHhx//799Ghq5LZPnz5JSUkeL1kHBrhcW+dz0u+sZAUFBQUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFF/B/AX/w
7Tg=
     "], {{0, 175.}, {894., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{666.7999999999987, Automatic},
   ImageSizeRaw->{894., 175.},
   PlotRange->{{0, 894.}, {0, 175.}}]], "Input",ExpressionUUID->
  "f26ed5df-ee61-4c4a-8605-8cec66766c8b"],
 ", FieldNumber = 7"
}], "Subsubsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
   3.831837565561267*^9, 3.831837565717546*^9}, 3.8318376089841914`*^9, {
   3.8329479164930973`*^9, 3.832947916789883*^9}, {3.8329597477059917`*^9, 
   3.8329597735868235`*^9}, {3.83295989665702*^9, 
   3.8329598970215206`*^9}},ExpressionUUID->"ef7b086f-3d21-419c-90ff-\
70992d123193"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     FractionBox["1", "4"], ",", "0", ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "2"}], ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", " ", "1"}], "/", "8"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{"3", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "3"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{"1", "/", "2"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.831831302775831*^9, 
  3.8318313425712132`*^9}, {3.831831417571769*^9, 3.8318314249331074`*^9}, {
  3.8318360089626865`*^9, 3.8318360258726*^9}, {3.83183697293332*^9, 
  3.831836980278759*^9}, {3.8318373329155426`*^9, 3.8318373882613344`*^9}, {
  3.832947939008093*^9, 3.832947950335035*^9}, {3.832948656116955*^9, 
  3.8329487410535097`*^9}, {3.832948894769576*^9, 3.8329489277416515`*^9}, {
  3.8329599272668066`*^9, 3.8329600296417837`*^9}},
 CellLabel->
  "In[445]:=",ExpressionUUID->"0fd1a7a0-9fc7-4db2-90d4-2681e604b85c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318348118468747`*^9, 3.831834815644092*^9}},
 CellLabel->
  "In[449]:=",ExpressionUUID->"de081412-0dc8-424a-b83f-291c5174e9a1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, {3.8318348123779774`*^9, 3.8318348160189466`*^9}, 
   3.8318354324495916`*^9, 3.8318355280734353`*^9, 3.831836057734417*^9, 
   3.831836224616662*^9, 3.8318369940172477`*^9, {3.83183739467624*^9, 
   3.8318374223770795`*^9}, 3.8318397993831377`*^9, 3.8329475119105663`*^9, 
   3.832948941291499*^9, 3.832958613181907*^9, 3.8329601162808743`*^9, 
   3.83296057085248*^9, 3.8329618449060907`*^9, 3.845826943669058*^9, 
   3.845852533506596*^9, 3.845857141770927*^9, 3.84591969354264*^9, 
   3.846006646314492*^9, 3.8460999677115335`*^9, 3.8474705310629735`*^9, 
   3.851700718115677*^9, 3.8539755292265*^9, 3.854977494531495*^9, 
   3.854989340803502*^9, 3.8549999792834206`*^9, 3.8551653384952583`*^9, 
   3.8551823990491285`*^9, 3.855185941430027*^9, 3.8553307245044823`*^9, 
   3.8553399248666973`*^9, 3.8553432650571117`*^9, 3.8553440999273376`*^9, 
   3.855352828459502*^9, 3.855449685605157*^9, 3.855507684127644*^9, 
   3.855508485779714*^9, 3.8555129805227137`*^9, 3.8555334026841383`*^9, 
   3.8555790013635874`*^9, 3.855593372075613*^9, 3.855750683585871*^9},
 CellLabel->
  "Out[450]=",ExpressionUUID->"3fe45951-7608-4f69-885f-26bbdd9125fd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHSY", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "1", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "cc", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "2", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "3", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"CommuteGamma", "[", 
            RowBox[{"nu", ",", "mu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "4", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammadown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "5", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"\[Gamma]5", "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "6", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGamma", "[", 
              RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "7", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "8", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}, 3.832948966605893*^9, {3.8329490066212797`*^9, 
   3.832949165343768*^9}, {3.8329492191094065`*^9, 3.832949345931453*^9}, {
   3.8329493910452533`*^9, 3.83294939649691*^9}, {3.8329494596448545`*^9, 
   3.8329495059992666`*^9}, {3.832949539592924*^9, 3.832949618672328*^9}, {
   3.832949652028014*^9, 3.8329497369508505`*^9}, {3.832949808347021*^9, 
   3.832949837440094*^9}, {3.832960121550168*^9, 3.8329602308458614`*^9}, {
   3.8329605563012486`*^9, 3.8329605568614025`*^9}},
 CellLabel->
  "In[451]:=",ExpressionUUID->"e1d25b3f-ae54-4eca-ac92-61b42f3c8c26"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResultY", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHSY", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}, 3.8329497831714077`*^9, 3.8329586005652723`*^9, {
   3.8329605618437667`*^9, 3.8329605662744865`*^9}},
 CellLabel->
  "In[452]:=",ExpressionUUID->"bf17f9b8-7d41-4bd8-94af-caa116fabebb"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, 
   3.831835435398642*^9, 3.8318355330585437`*^9, 3.831835717106969*^9, 
   3.8318357717602043`*^9, 3.83183606388894*^9, 3.831837000246211*^9, {
   3.8318374034065166`*^9, 3.831837427619596*^9}, 3.8318398044711704`*^9, 
   3.8329475172572937`*^9, 3.832949798211484*^9, 3.832949843855173*^9, 
   3.8329586178151646`*^9, 3.8329602499819965`*^9, 3.832960575612449*^9, 
   3.8329618497770514`*^9, 3.8458269493851924`*^9, 3.84585253923479*^9, 
   3.845857147214768*^9, 3.8459196993573284`*^9, 3.8460066511537447`*^9, 
   3.84609997366434*^9, 3.847470536817665*^9, 3.8517007242044573`*^9, 
   3.853975535106225*^9, 3.8549775016003294`*^9, 3.8549893461192093`*^9, 
   3.8549999850814524`*^9, 3.855165344234985*^9, 3.8551824047269115`*^9, 
   3.855185946764903*^9, 3.855330730281273*^9, 3.855339930596325*^9, 
   3.8553432706866255`*^9, 3.85534410605751*^9, 3.855352835108412*^9, 
   3.8554496910865583`*^9, 3.855507689452333*^9, 3.8555084914246264`*^9, 
   3.855512986149686*^9, 3.855533408214848*^9, 3.855579007285879*^9, 
   3.855593377630065*^9, 3.8557506892467194`*^9},
 CellLabel->
  "Out[452]=",ExpressionUUID->"c90fe636-4714-4b7d-9ba7-e8dd92c984d6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", 
   "\[Kappa]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}, {
   3.8329497659203863`*^9, 3.8329497726326275`*^9}},
 CellLabel->
  "In[453]:=",ExpressionUUID->"02eeaffc-b903-4089-909a-d8b45495751e"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsnQdQFef6/2PDesUCggWxookt1hiMRo29d2MnghrFEhFsKGCL2JXEgr1h
N/YyKhqN2OJg0CTqJLGNN5axjV4nySR3+H/+vHN39re757Ccs+eA+H5nYM7Z
s+Xd533K93lr+cFjug3N+c4774zLx79un01oFhb22aTuRfjSc/S44cNGDwlp
Ozp8yLAhYQ0H5+LgHv5m8OH/f06VkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkMgg/vrrL7c967///e/ff/9t51e3lSTT4U6xS0g4A6mrEhISEhKW48GD
B+Hh4eXKlXvnnXe8vb3DwsLu37+vPuH777/v06cP/y153IULF7p27erp6Zkj
R44aNWqsXr36jz/+UH6Fna5bt27YsGHPnz+35HFZFm4QO3z+4cOHKSkpd+7c
0f/6zz//3Lt3Lzk5+enTpw4/QuJtgNRVCQkJCQlXAOd/6NChwMDAqVOnwg/P
nz8/c+bM0qVLFy5cePjw4du3b9+5c2dISEjz5s0vXrxo6yY3b96cNGnSjRs3
0n3c69evY2JimjZtCvm8evXq4cOHBw8enDdv3oCAAJ574MCBlStXtmnTZsiQ
IY8fP7b0RbMWnBT7q1evZs+evWfPHk27MV/37dvHT//5z3/EEQJ3ly5dcufO
jdj1jcyUoVGjRh4eHjzORW8q8abDSV3l8m+++Uatkwo0fiNzdfXXX389fvz4
qVOnXrx44Yr728GjR49OnjyZmJj4+++/u/nREhISEpmOS5cuEU1+++039UFc
8fz582vWrFmkSJHGjRvHxcXBfOzcZMuWLbVq1Uq3MYTgsnz58tjYWE1IIhLB
PP38/EqWLNmjR49jx44Z9sv/+eeft2/fJlq5P1JYDifFzoV16tT5+uuvNYJC
RMHBwT179lQ3JiPP4sWLHzx40PBWS5YsgVSYSSIkHMaTJ09SUlJu3bqV2QVx
BE7qKjpJstmrVy+92er9Rmbp6j///MM7litXrmvXrj///LPl97eP06dPt2vX
zsfHBzG6+dFvBNCc69evUy9UU2aXRYs32rQlJPSw1cwlkZoWKTZs2EDg8/T0
PHfuXGYX540BujRr1ix/f39DV/nXX3/16dOnadOmL1++dH/Z3hIg+YEDB+bL
lw8+ZmdQtEQm6iruZdSoUV999ZXldzZfgDFjxpBaZlYBsiyePXsWHh7u5eXV
qFGjrDZYS5q2RPaDrWYuCQF8dVhYWPXq1R88eJDZZXlj8Mcff3Tq1KlNmzb6
jlHw+++/V6tWLSIiIgs2NWQnXL161cfHZ+XKlZldkCyNTNRVSUSzMh49ekRk
RD5Z0E1J05aQyFzgFvbt2wc5/PzzzzU9d67AixcvPv744z59+rzN83afP38+
Z86c4cOHHzx4UJ2wcDwuLm7o0KGxsbGvX79Wjt+9e7dSpUpRUVGcfP/+/cmT
JwcHB+/fv19c+9133xUvXnzHjh2Z8CZvEzZu3Ojt7W3VXL83BfiHXbt2jRgx
YsGCBeqOe1t+IxN1VRLRrAwMp0SJEgkJCZldEAO8naYtkYm4d+9e/fr1ixUr
hj8MDQ19y5viiQ4bNmxYvnz5y5cv27VrBzUSAoERderUySsN3bp1s7Af7fr1
66VKlVqyZIlVN3zjAAOHhSYmJi5cuLBWrVpKyzAUPTIyMikp6aeffvLz8yPK
K5eIQXccSUlJmTJlyoULFwIDA6kvsUzB4sWLS5cujWDtPBSqsHTpUsNGKucB
Z0aFfvnlF1fcPIsAu8Bd1KlT59GjR5ldFrfi6NGjKOrly5fRyUOHDomDtvxG
qhW6ijqtWLHCgUGkWZCIus00HBZaure1qvwrV64sWbLkjz/+6PytrMVba9oS
mYhff/3V399/3bp1RHy9feFJML3/GIHj9nvbbTVzuRp4eMMCg3RbHZHA5MmT
OfPx48d169ZVmDlyuHbtGiKaNm1agwYNnj17Znj532nQH7Tz3O3btxOnvvvu
Oz6fOXPm888/J3a8iRxG08Fkq7/pnzSIz/9NAzwTqRLBP/300xYtWigkf9u2
bQR3PsBR4f/79+9Xrvryyy/LlCnDr7GxsagZ9RUXF4f0UtNobe/evT/++GM7
k7/Q+R49ekAJHH7ZvXv3oidKI+3NmzcJ9+r0BKLSvXt3+wTDSSCH48eP87Kf
fPLJRx99RKJEqRxOJLkbotPYKTWlPyiACTRs2PANHUXmsK6iaZDJ27dvr1+/
3tfXl1oWv9ryG87rKjoWHh7OJQ504BoSUVIwnAwaK76+evVq2bJljtEh3nHR
okVt27aFVyuNwLzy6tWrZ8yYwa+GLaJuMA1nhJYunCk/V02cOHHIkCHz58/v
27evrQGi0rQl3jYQlCtVqmSrEf7bb78lM8qXL987aciTJ0/VqlXrpqFatWo+
Pj6Q2BEjRuj9mK1mLleDQNCtW7dixYq98z8QBUSB33//fT6XKFGiQ4cO+/bt
M7QyDopWMryNt7c34UZzwpYtWz788ENDIoppL1my5L333itYsKDydCRWvnz5
kJAQw1jDJePGjeOSe/fubd26dfHixQcOHKDwmdWZRa2dPXuW0BkREbF27Vr7
IxMQNSf/+eeffKbwKIaHh4d4ayTQpEmTlJQUzSUEiODg4Bw5cojTKlSoAL1E
5hy/evVq6dKl1UGTiuAnXCWK5Ofnh6KK42LQXe7cuZs2bXrp0iVNrPn999+R
J2HIVgx6+vQpLHTz5s0OyEd5izZt2nTs2FE0aolK1Dcg7Nq1iwe5aMEuamr2
7NlhYWFoTmparCFLqlmzJhzD/loQtgAtJyyi84rqUk0YODTphx9+0J8vRpHF
x8c7+yaOIlN0NTWNuYH27dvjRpQWdVt+w0ld5fi8efOGDRumHpdiHoZEFHpW
smRJZRL9sWPHcIn8d+D+qWkvGBQUxFsoazSJUa8jR44UNN6wa96lpuGk0MzA
gfJjoZDJ+vXrHz58mBKuWLEif/78o0eP1le9NG2JtxD2iagAsfuDDz5AgTEQ
dQ4lbKRVq1YFChQg3xd+XsBWM5d7QMGmTp1KgbE1zaPv3r1L5IJad+3a9d//
/retO6xatQr/rA9Pdoio+ulRUVE8nQBnf1EmMUCUkhAdtm/fjlO6efMmvEuz
qrZ7gGSIKaGhoZSE2IHvQkrjx483fNknT540aNCAE/CuysFTp04VLlyYsAsx
sPUUqoNXJi9Qq5xoOCKpURpqFKBUyKdly5ZK0BeD7nDUCQkJNWrUGDBggLqK
7Q+6Ew8aNGiQM0Hq9u3bFHXGjBnCFp4/f/7RRx/1799f0+5NyUlAYmJiXNEs
c/DgwUmTJql3TADXrl0rV64cL+hMBwQCpBKLFCkCcbJz2oYNG7y8vOyf4zpk
oq6Cixcv4hwML9T4DWd0FZw7dy4wMNDh/mU9EUVF+/bti7qKhjj0ZPr06WTK
hovtmwEerHHjxjh5Rfk3bdoEjRFdPLaIqEtNw0mhmYED5U9OTi5TpszcuXOF
bZ4/f56qN0yH33LTlng7YYaIwgE++eQTmNWiRYv0v2IyeNpcuXJNnDhR4aK2
mrnchgULFlBgOLAh5SAkYY/4K5F1akDhg4OD4d767U7MEFGA7+XpnTp1UpNz
Pa5fv+7r61uoUKEvvvjCDit2A8jue/furYx5S01r+Rk8eDBvAcXSj6Ukno4c
OZKMniivPij0hMBk+OJ40XXr1pHaawTITerXr//ZZ59xBySs7q6iggICAqZM
maJ44OPHj+PDDxw4wOfly5cT9wk6qPHhw4c5BxUtVarUzz//zFeyIU0BYAi1
atUSHaMOg0hBAY4ePSq+8hQq0XCxxAsXLvA4pQPXKlAdrVu39vDwgIapj6O3
yBZeobQeOwBEx9shVTvjQ3jQiBEjnB9Fhm060MiTuboK95g8eXLlypXJRxIT
E9W5qt5vOKOrvFS3bt2io6MdZmt6IvrgwYPq1auPHTtW3BP5d+jQoW3btg7n
ZWKI++LFi8VXnFi9evV4qOCldiYrucg0nBeaSWSo/CjGsGHD4OdK12F8fDxO
Q9+TmG1MW0IiQ3CeiKamNQq1adMmX7586hTPTjOXG2CfiFI2ToA8BwUF6U8Q
A70wfH33vYaIIpmoqKjOnTvPmzdP3dahJ6I88ciRI3369OnRo4ci7R07duAZ
EhISpk+fDmNfvXp1Zi1ytWbNGsiexnsTNMni8+fPr4zPTBdEvZw5c/Iuhgto
Q97wcnoaT/aNl961axeSQWfUYifWi7ke4qtQqrJly4qu2IULF0JT7969S5Q/
ceIE5SfIwgTu3LkTGRmp4fb8Sq5EpTgzR4kCEOYqVKigNCJt3bqVEiYlJelP
RrW6du2qnrpiCV68eIHKValSRd+ztmrVqjx58sCg0r0JL7J7926kAW1QNx8Z
RiukzWmQFlQUMUK0GjZsSOLgzHuJqhw3blxGOUPm6qpoJoVw4iUmTZqk7rzQ
+A1ndDU1TfM5/9q1ayZfRw89EUVLqVw0Vnzl0Wiy4ZZPJiE8mGj/hAT27dsX
JVEIvx0i6iLTcF5oJpGh8kPqateuTTASnodLyJsCAwP1A0Szh2lLSGQUlhBR
gP8nCtSsWVMZLGSnmcsNsE9EU9OS9+rVqxcoUEC/4wnS8PLy0g8QTTVqEcVy
MXmeNXnyZCU46okoGXSxYsWKFCly+PBhcYSTw8PDq1Wr9uDBA05rn4Y//viD
COhm6v7XX3/169evcuXKvLI6viM60nNe5IsvvjDJFvB7RHbiu76FEKmiDIaj
DpBAq1atiPvjx48nUivH8aixsbF+fn7KCEBRVEKAqFbcNTpG8QimwskjXo4Q
4nkXTXjlzkjbybFPYoCoElPEMrDclvfavn27fjdDWBNhxW17lEAMPDw8KJKZ
+iLWLF68mOjWoEEDZcCbPlphuc2aNcuRIwc0XvQYpqSkcMKKFSs4hxzBMRrD
VdOmTRs5cmSGQl6m6yqlhTcSuDFezdBKjd9wRle5Fq7LtZou2gxBT0R5Uyr3
6tWr4iuuRjTYkgl+++23DtyfPALlR+1hUFSlZryT/eWbLDcNS4RmHubLL7p1
xLjZ1DReSsJC1fCBpMCk/r9Bpi0hkVFYRUQfPnxYq1at3Llzk1iJI3aaudyA
dIko5kxQ4Jzu3btrHNfKlSspuX6AaKqNrnnhIvAtisnriejChQs5gpNUjogB
omJ4FRJu2bIlaTJ3gNAiTCdfP0Pg9du1a0fxNDu8iBFlovvS5DKnvB3Bl0ua
N2+uvhVubeDAgfr+RwVUB2+t8XsUrEuXLnBUdRsmclPX16tXryAM6gv5Vd0J
q2D37t0QD8Px+eYhBogqy++QX3BPCnnnzp0pU6bohwRfu3atVKlShkmNVVD3
LG/YsAEbHDBggElzE4MYCxUqdPLkSXFEH60wBHIo3kLJjyAwvr6+UJdVq1Yd
OXLEsWI7RkSzgq6mpmXZesei9xsO6yqnVa1aFSdm5kVsQUNEhYi8vb1FCzBO
jMxXTFyaO3ducnJyRu/P2zVp0qRXr17Hjx/H182ePVsjE/tE1HLTsERo5mG+
/NR7x44dRfMpMlm6dGm+fPmwncTExOXLl9she2+oaUtIZBRWEVG8XM+ePTlH
WZvdVjOXe5AuEQX4EExb7L6HU42Pj7969Sov27lzZ1y04eg1QyJ67tw5T0/P
cuXKKd21GiIq2s04ou6IhNJUrlyZ3DM1LSgvW7asUaNGY8eOhda6Pw89deoU
NBgvpH40omvbti3FVi8wi6xgXAS4ixcvGt5q586defPmLVKkiLJpKZoQHBws
+u/M4Pr160iDbB1X7+fnt2TJEucFgthHjx6tThb0J+CxedPPPvts8+bNmnGD
fEU3OOfgwYP58+eHfKLYMTExEydOJP5yW2rWcDNx0S9geRckJTl06FCPHj2o
oJCQEMQL30B1yfioL76afBxCRuvy5MmDYosj+miFVhQoUKB27drKsDEiPqbN
Uwy5t0k4RkRTs5iumvQbGQWVC2OEqBj+alJXNURUDBAtXLgwTB6lxRzWrFlT
p04dPsyZM0dzk99++y06OhqiPmvWLH07P0oCdeccYgdejkcYDnG3T0QtNw1L
hGb+cRkqPxpIvhMVFUUBFi9eTLrUtWtXnIa+QTUbmLaEREZhFRFVGhjff/99
RasNm7ncAzNElIwPMyxYsCD2uH//fuIR1BTHC68wbA5NtUFE8WBFixb18vJS
BuRoiCiuY+jQoRwRG6yIc/iAK1MLB1npp0dlIvBXsHQiNfFaHIFpk1aQPsfF
xaE2hiPnxfotylgFMVXkm2++MflQsZxyQEDA2bNnEWBQUJAl/hB60KxZs27d
uhnOTOER+HxlrR4waNAgdTMsIWz58uWUDfLJi99Kg9JwTT3amr9GUtarVy9r
d5SGS/ft2xdDUwamokXUESUUrYLqUSL2gXVgI7w414oj+mi1Z88edECj9jyR
13dmSojDRNQQmaKrqWlDksz4jYxi7ty5pUqVMiyzSV1FvBoiirbgo7Zt24Z/
hkMq85XgkJq1UHgdMmvl/hijehgt9Q5LMaPP9omo5aZhidDMPy6j5ed8xC7a
3pEMlE8/hCB7mLaEREZhFRFV1ixSNwxmIswQUbGchcgZece1a9eGhYUtXbrU
Dhs0JKLIEAcIF1W6fTVEFBfUp08fjhjOrc4oSK4/+OCDSqZRuXLlLl26ZLS7
nwolc8+ZM2e7du0EFeQtYA6XLl3iJ8IuHF6ZOa6GGDkmUpJ79+5NnTo1Pj4+
Qx4edz179mzRxmhVawluv0qVKrYW7hs7diw0Zs6cORcuXDh9+jTRE3ahzLxD
N3gLKI1oduvcubP5QWhCGhUrVrSqUwAW0bx5c+pUM8UGps2DsD70edOmTSbv
xrt37dqVylI6NPXRCjlwz9atW1u7MKOFRDQTddWk38gQEMiQIUNq1KihX37Z
vK6m6rrmcT7p7uIEDhw44OvrSwGOHTt2+fJlLkepBgwYoGRwPAs2a+ZF7BNR
a03DKqGZhzRtCQmrYDkRLVOmjNumZtiBGSJ69uxZsZag2MHHDAyJ6JMnT+rW
rasOdhoiKmba5s+f37D3NqP48ccfe/To0Swj+PzzzzMaJXHL+Fgcu+K1rl27
Jha4wzG2atVKvSy2BmfOnEGwHh4eeMIZM2aYHLPnUvA63t7eyuKfaiQmJopB
nsoR0SjUu3dv0WZC5CKEEXdu375dvnx5zWq66YJrixUrZn4mLw9F5leuXNHT
XdRp2LBhCFbpblMg5r6hdSRE5sf7iZUEuEpZ0kcTrcTUb05QplpYBQuJaDbT
VWq5Q4cOymqfapjX1dT/S0TFzCnNwFo94ELIQaw3pQDR4UPEFKfHjx+jZiaz
2nT3mrfWNCwRWoaQ0fLbQXYybQmJjMLCrvnx48dzjphE6YKSZgxmiCgOqlCh
Qhla8sWQiBJJcfg8TllwWENExWp7pLruHyvrGIhWPXv2JLirp/YQicS2mJcu
XcIlcoKthkHkg5SQQN++fS0ZMuc8eBHKrJ/IQAXhqPWLL6HzoaGhKSkpnDB1
6lTR5frbb7/1798/o92vMAFPT8/z58+bORmRioUCDJcZR2P/9a9/1axZU88E
lMY9+1tG6iFGvSpXaaKVmC9GfLSz7nq6gAVR4H//X9y/fz8iIiI4OBij0Pz0
4MED84Qw++mq8LdAs85YhnQ1NU0lRowYgQ8kdcLPT5gwYe3atfZzqISEhHnz
5unPWbly5YoVK0Q38Zo1a8wkYuTLJBr16tWzs460haZhldAyhAyV3z7eUNOW
kLAEFk5WIkZzTseOHbNCO78ZIgqrzJMnj6+vr63WEsNLDBe0v3jxore3d4MG
DcQcWDURFWsQ5ciRIzIy8o1IPKlKYlb16tWvXLmi/1U0feO+lNUI9RDTIgoW
LHj8+HFXljQDoIKKFCmyZMkSzXG8MT8Z0p6NGzfioq9du+ZkQxkRvHDhwubn
v6Cx7dq1a9++vUZ1RecjemW4wi0vgunx66xZszLUYPv8+XPMhCB46tSpVF20
Qjh8/eCDDxzekBGdnz59OvfPp0PONOiPozmjR48201KaLXVVzEZv1aqVRgEc
0NUTJ04gAYioyc3a4GOGFX3jxo0pU6bg9/hvMpuGiFLvMTExhlUjYJVppFoq
NPPIaPltISubthgyimJk7pYrEtkbVhFRsZgzdAsGmBUWHzOzfBMhjHNatmyp
dFfhBPDYycnJtvaVsEVEeWWy47x588I28WlqInr27NmSJUs2b978jdirArEs
XLgwMDDQFjkXFV21alU7oS0pKQn/HBAQYLhxlQIi2sSJEx1YN8YBiBbRefPm
mb/k3LlziIJqVdY/cQxxcXFwYPsmpoZYZpwgrrEjsUKaehqsGrdu3SpfvnyZ
MmXSHQSox+XLl8uVK9eoUSNijTpaUdetW7f28fFxYJHJdOF817x7dBVz3r59
e0hISK9evaKjo93QqSH8bbNmzcy30Fqlq7aAx8OzHT16FAuyMJu2yjRSM0lo
GS2/LWRl08Y/d+nSJXfu3FhrVojsEtkSVhFRci4yr4oVKyprj2cu0iWiYvEN
Dw+PhIQE5eCRI0c++ugjWw4h1e4Wn/hn8uvq1at369YtODiYp2P+RC5/f//Q
0FDD1QIdA64DB6KeAWofnPn++++baRLBz2zatKlNmzbqSnz69Onp06cVF3Tg
wIH8+fPbXzYc385D1YumqiH4A86NqMGtlF2TXIqbN28iNKrDvC/F7UOTxo8f
78ysXh43e/Zs/L/5VneU0MvLS9n4QAGVUrp0afWcODXWrVuH3o4ZM8YxXvfj
jz+2b98e2oaIxIbU8+fPr1evXtOmTZ2Ps4Zwkoi6R1fxHghk5cqVL168IJHE
rtEiWwsEWQVKQg4LwU53K2EFluiqHfzxxx8RERHh4eG2FsJyABaaRmpmCM2B
8ttCFjftY8eOeXt7G4pdQsISWEJESUI7d+6MsZAhZpGkKd0tPpcuXUqWh+/S
jLohMPn6+tpazjrdvea589WrV3v37s3Tq1atunnzZstHzN65c2fChAlDMoI5
c+bYn6QggKuh5Jo2nzNnzsydO1eEcrF3idLXg4PSz/MS0yJ4fR5qXxnE0jfu
IaIPHjyoVq2aYc+XLdy6deuDDz5YtmyZMyotljWrUqWKJhFA6zCWkJAQ4ntS
UhKSF52DPGvGjBllypRBgUePHj1ixAgx1lGUx8/Pr0KFCvpGORSycePG6Jt6
nuDevXsnT56s6D9UHN22rwYPHz4kSEHeChQoQDHQZNeZs5NE1D26CpX99NNP
FROmEt977z2CuMMDFcyA8pO6vvvuu+Y7Qy3RVTsQwkRWZtyISVhoGqlWCA09
JMC1bdu2Xbt2SnbDT6tXr+a5ei21VX4HkFHTpni4MmWaP/GXt9DvXK+Gw6Yt
+Hb58uVv376dsbeSkDAN54koXiImJiZXrlyYhoWjQ1NSUiIjIx0eB26fiCYm
Jvr4+NSsWVO9625q2rsMGDDAcOqlQLpEVICI/87/3Vkp6wOvTg3q92ePjY1V
dsvC5QYEBAgJiHrXDwCD8iFYM4Pu3ElExd5VYhNVk5dgGlAOZT9Ex4ACdOvW
TdNjSBxp3bp1dHQ0pULPK1eurKy+i7pSyMKFC69cuZLYRxRGmKLJhTtwVenS
pTUrJRIp0HYu2b59u3JQbEXasWNH8b5ivkOdOnXSHR9iuCG1K+AMEXWbri5Z
sgRDhtyKr9QmGXfRokWtWi/UFhYuXEgVmG9qs0RX7QABQvvtTDtyABaahoDz
QsNYgoKCyDWU1EOsNGs4r9yw/I4hQ6admjYkQL0QBEkWL67ZcFYPx0wbmXTt
2tVwXK6EhFUwQ0SfPHnSoEED9axwAWzz7Nmz5I/58uWLiooyVNTr169PnDhx
yJAhkNhvv/328uXLZkqFjYs10PAJDoyRpmCQWDHNUJPCi+ZEskLCtH6ZKTFW
x05fnhkiqjydTNZMpw/+durUqTx0ypQpzo97dww//fQTqT35chEVxCKryErp
lBEbXIaEhBAIzp07hz7omTYxvVChQmXLlk13FS93ElEqZfLkyRla0uGHH34Y
PHiwZhJuRiGGKap3iH7x4kWHDh1gxaIpHg0h8enbt69o9kE/y5cvHx4eLs6/
ceMGgUMhALt37/7Xv/6lbvjiQ0JCgq+vL9FZbZuippTlqsRT+vfvn+6kDIyU
R5icC+yM6jpMRN2pqzDV9evXKy4IZSC3hTC4mqWfOnXK29vb/GoeluiqHcCU
PvvsM2uJrrWmkWqF0HguTlu9S+ymTZt8fHwMdVtffgH0bc+ePRyPiIhA60y2
l5o3bbFVq9Jawk/Tp083XElAA/OmLbaQGz58OOke+g9DkANEJVwK+0T05MmT
xO7cuXOL0Ya5cuVC4aulgVwVP1ChQgXU1dBBobd79+6tX78+oQHFjo+PJ0zo
zdYQXDtv3jysBiKq7L5nBuTOHTt2JLgoIyRxTaLAVatWLVWqFHaNr8NRGIY/
LJScEcYyfvz4YcOGYYOawG1/jCgpeUBAACFSeTqi8/PzGzRokOGyG9x88eLF
kHwcHZfjhQIDA/ULMrsaIue1NcQUgSgDFcQkZej93Llzx4wZo15pBK8YFBRE
TPfw8OCqnDlzEq+bNm1qZ4C9O4loalpXNbVvXp22bduW0SVD9UhOTkYO6Jty
hM8YgrK4IvLhBCWeYiwI/NChQ+IrBogyK6tOobRLlixBjQnHnEMJe/fu/cEH
Hxw5ckRTTuII91EWtqUGeXc7+ykgFvSwWLFi6qHFXl5eaLvhbDLnVdfhveYz
RVcFyLvRWKKzq5cbhfri+sxHf0t01Q5g9RBRa/d9s9Y0Uq0QmlhnD8VWbliv
Xr1Ro0YZVre+/KlpmQvpHlaJvqFmcFr7Q5QVmDdtsc6Dsjro69eviWht27a1
1WKZUdPmPhMnTuSeVPrLly95BSKaInYJCVfATIuoY0DJy5QpQxQQdiQ4nrKZ
hRlw4Zo1a/RLwLkOS5cuJSoRpJ48efL7779jqhRAfYLJrnkzEKOPIPNiDBsR
Fuo7dOhQ1zVrWAK837Vr12ytiJIhuJmIEhrq1KmjKKR9EBeIIOZ3OrAFomqt
WrWUJjWkRy5GUFBmJezcuZOgIJScgs2ZM8ff319poCMmEpo1+yDwKykP5IqT
Ccf6wQbcJzo6miRRaSTZunUr1meVKVmiutZu8WkIC3U1Na1jqE2bNu3atXPp
AFEBSg7TaNGihZkxmVbpqh1gpMHBwdbSb8tNw3mh7dixAzMR7Z+vXr3q27cv
fMzWPFNN+VPTGsxhj2RkQkOIrY0bN+YR5hOEdE07NW2dBwqprEgmVhKIiYmx
JA0Rm5SVLFlSUALR3FquXDk5QFTCpXAREcXMiU0+Pj7KCOr4+HhfX1/7A6r1
NyFjVTZwdzXEUqjKODqxVYcm07SQiEJ0SWw7der01o69cTMRxanirps1a2Zm
vIRY3iRDrfF6EBChLlFRUUqMQKUJ6NS7aDwkdEZERLz33nv3798n7PI/MjJS
6XQTI8eIaxldckEMECUiC2YoQny1atW4//bt252fPWeJ6ooVz6iRN2JxXeqC
/LRz585u67A4e/ZsxYoVzWigJbpqB1TQpEmTZs6caWGLq4tMwxmhiXHUYvTO
ixcvSJG6du1qa2CYvvypaVPbChUqpOzt7iLExcVBRJVeyKNHj/KVR1+6dMn5
ZdaQc9WqVQl8wnXAhNF5kq+3NkhJuAcuIqJwudq1ayuhECczePDgDK2tAe7d
uxcdHe227U7EAFFlO3IxBEizVYeFRFTs6zR//nznb/WGws1ENDWth7FBgwaa
HQwNcf78eSirk6zj2LFjWIGmw5c4ojSkJCcnlytXDrd/586dyZMnE2QTEhIw
E8yHALdq1ary5cufPn06o88VwyMJH6JF5cKFC6VLlxa7HE6ZMiVDm7MY4m1T
XXJSmBieQTS14RnMT3lz5qFDhw41s7C/JbpqB6hl+/btLdmeWIGLTMMZoYkl
8Xv16nX8+HGSrNmzZ9thX/ryi4WpbS3BZBXEAFFvb28xU4lIRNWIiUtz5851
fk1m3qtgwYILFy4UXwnBlStXtqq5VULCFlxERFHggIAAZbIh3qNOnTrDhw/n
w9atW810xnEhfsmdQ1MuX76MgW/atEl8TUlJ8fLy0syXtJCI4tg9PT0126vx
rLfH5N1PRMHq1avJ8dNtFF2+fPmgQYOc6YuEtHTv3v3rr7/WVCjKM3DgwCFD
hsBtIiIi5syZg2mMGzdO0GOuGjFiRGhoaGRkJJc7FtTE1n6QT25FEJk4cSJR
layKp1hCJ94q1UUHoNzKXCe+Tp061T2rJcMuoF7pLt3pvK6mW4xGjRpZ+Mou
NQ2HhcYLEgqhoF999ZX9GbKG5Uf/R40axR00OyNYO/JEDBAtXLgwaSZGDeVe
s2YNUuID4nJ+kZZdu3bhkxUvAScnJhKFCY5nzpxxuvgSEsZwERF99epVx44d
YZ6YIRa6dOnSvHnzLlu27MSJE3gAMwErKSkJQ3Pn8kfk12XKlFGGJJEVYpKa
pNtCInr37t0aNWqoZ32Sz+Jp356d1Pbu3YuENaP9XY3Xr1+TXFC5dpQQpR0z
Zkx8fLzDTxEL1YaEhNhqz6eWlS7yJ0+eaKaB8JPDOyCIEQgY9a00KJN0uKEl
epv6NqmuGB0EsYF8RkdHQ4EGDx4MV7Fwfwr7IG3/9NNP7eRNzutqusBOBwwY
YFXnrBtMw6VCs1N+WFy5cuWuXbsmvhL41q1bh/5YyEUJT15eXtu2bXv06BHM
WZmvhNAsSQNTUlIqVKggGgcQIHzb19f3+vXr8+bNu3TpkvP3l5AwBES0ZMmS
pHKxsbHkQRa2aZCTNm/ePCoqihx28eLFeIauXbuS3qa7qo+A+1tXKFjt2rXF
amw//vhjlSpVlHWM4cNQUETEW9StW9eqgM6zWrZsyVMwc1JaIl32C+V6iD1x
UIbKlSu/8847/Ofzxo0b3VaAx48fBwUF2SHAYpMsZ9apPnLkCI9w/wIIqWlR
qW3btp07d3Zp9/FborpYvZhZr4atbZhcAfwPSdOkSZNs1abzupou8OQW7vHq
BtNwqdDslJ/Hffnll5jekiVLpk2bRmoGEbVWVeLi4kqXLu3AXp8mgWS+/vpr
HAimPWzYMMpPTBT0wA3DUSTeWpBYkdy1a9euffv2GK+1Ewf++usvsjYxsIo7
Y/hZWZkhSNgdUQaj4/+GDRsUaZD8Tpw4sX0apkyZYuHEdh5x584dq/JZCZMg
ldi5c6eLFihAybm52xrNNLh9+3b58uVdupiPgFRd90As6phFtk52Em4zDRcJ
zUz5OefmzZuu2GtVbATWtGlTC/e3MsSLFy8QnWiEIbElcEsbl5BwJ7Dxe/fu
SbuTeENBBOnfv7+rt/6RkJBwM6C4EyZMWLt2rQxPEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEob4559/5ErOEhLZFX/99Vdm
F0FCQkJCQkKLP//8c+3atQ0aNMiTJ0/evHk7dOiQlJSkZqSPHz8eO3bssmXL
nKGpL168uH79+rVr18TGdho8efIkJSXl1q1bDt9fQkLCEA8ePAgPDy9Xrtw7
77zj7e0dFham2QX++++/79OnD/8dfgSe4eHDh5jwnTt39L+S4d67dy85Ofnp
06cOP0JCQkJCIlvi9u3bXbt27dev36FDh65evbp+/fpGjRrlzJmzTZs28fHx
Bw4cmDZt2ocffrhixQo9gST6fPPNN7Nnz9bvKX/z5s1JkybduHFDfH327FlE
RETx4sW5uX6TaPjnwIED8+XLN3jwYEOa+pYD6Z06der48ePuJ+qPHj06efJk
YmLi77//7uZHSzgPLBS7DgwMnDp16oULF86fPz9z5szSpUsXLlx4+PDh27dv
37lzZ0hISPPmzS9evKi//NWrV1j3nj17NBkoX/ft26c2fEhmly5dcufOHRMT
o09XKQOG7+HhweNc9KZWQdqahISEhDuB1x0zZgxhQh07/vnnH460bNmyWLFi
7777Lif89ttvhpf/+eefUMdevXq9ePFC89OWLVtq1aqlbmPBzdauXXvUqFHc
X38rOLCPj8/KlSuteK3shoMHDxYtWhS2kJCQ4OZHnz59ul27dlRNXFycK+4v
2sl//vlnQ63IXLx+/ZpMKiUl5c3t0b506RKEU2O/yHz+/Pk1a9YsUqRI48aN
qVkIp+HlXFinTp2vv/5awy0x/ODg4J49e6qTymPHjpFpoquGt1qyZAkEWMlM
syyysa1JKECBb9++feXKFX0TSqZDdh9ISLgOFy9e9PLy2rRpk+GvGzdu9Pb2
dqZzMBuD4Ni1a1ecZ6Y8HcdIMgIbsfzO5EHh4eFohWE7eebijz/++PLLL/38
/CpXrkxcyOziZHXAVGfNmuXv72/YkAiT79OnT9OmTV++fGn5o+ES06dPX7x4
8cmTJ8+ePbt27dqoqKgnT544drfsamuuA1W/Y8eOKVOm7N+///z583v27ImM
jORDZpfLJhDy+vXra9Wq5enpee7cucwujhZvUPeBhMQbhxUrVpDsX716Vf/T
33//HRoaWqdOnUePHrm/YFkf2Tg4UuPUO/fPgi2iMJw2bdp06dIFUprZZcnq
QESdOnVCXIZNTL///nu1atUiIiJcUctwzvr167/zP1SoUAF7cXg0eza2NReB
Mk+ePFmRf4ECBaKjo1+/fp3Z5bIHyjxu3LiaNWs+ePAgs8tigDel+0BCInOB
Ie/atWvEiBELFixQ9+txfN++fWFhYZ9//rm6QxCqGRQU1LBhw2fPnhGzVq5c
GRwcHBsbK8IWB/lJDhC1hWwcHL///vsSJUq4vxvUDG7duuXv7z979uy3cCmJ
58+fz5kzZ/jw4RpSx/G4uLihQ4divGqycffu3UqVKkVFRXHy/fv3YSYY+P79
+8W13333XfHixXfs2OGKokJER44cuXv37k2bNp09e9bJrCEb25qLQJnnzZu3
fPnyLVu2IL03ojHh5cuXzZo169+/fxYcdePS7gMJieyEo0ePLly48PLly35+
focOHRIHCTobNmzAI2FB7dq1I4opxFIMEIW4Pn78eObMmfgrQhUM5Oeff079
3wDR+Ph4O08k6q1YscLyJJHbUuBffvnF2tsaPsjh8me14Gih0EhJSpYs+eOP
Pzp/K8sBj/Ly8jp+/HhmF8TdIBTCQhMTE7HxWrVqKa1GL168iIyMTEpK+umn
nzB8Uk7lEjFAlCMpKSlTpky5cOFCYGAgTkDQwsWLF5cuXfr69et2HkreunTp
UgfG7EFEx48f73BfvAbZ2Nbsw2EHRZnRk9OnT7uiVBocPnzYmeZuBbwmCpk1
Cb9Luw8kJLIaNHr+3zQYnqluqOQqggWx5vbt2+vXr/f19YWOip/wltBLfoVt
1q1bNzQ0VLnw0qVLxCmiW0xMDLSTBx04cGDNmjXC4UNfificY6uoOMnw8PC4
uDhX2Cbl7969u/0o6SScLL86OCLSRYsWtW3bliivtDkjz9WrV8+YMcPhJuW9
e/dSd0ob182bN7/66iuRkhu20jgjNK6aOHHikCFD5s+f37dvXzsDRHnBsLCw
5s2bN2vWrEmTJujPs2fPHHiiAPxKr/McNBQaP0VFRb3RA0Q1L2tL9/5Jg/gs
nAA8c9q0adT+p59+2qJFC6VlZtu2bZgqH+CoGCxEXbnqyy+/LFOmDL/GxsZS
mzgBtP3MmTOpaWLv3bv3xx9/rJ/SqODXX3/t0aMH9NWB1xRElDvgUnbs2HH3
7l0HbqJAT0QxCrzW9u3bxVdelnO++eYbB+hQusZrua2ZhDMOShBRVOLcuXOb
Nm1KTk52XccWqhUSErJlyxYHhI/68YJcDsejFry9vW0NEM1Et5Pq4u4DCQkX
Ac4QHx8/duxYvAGWZccJoPxJSUkPHz5MTSONWFmRIkXEwJ5cuXJVqVIFf6g3
cHxLoUKFxGmenp4TJkzgPq/S0L59+w4dOiiNGDxafMZzYubQVOUm5No5c+Ys
W7bsxo0bNY0eXDVixAg7A0RF18+wYcNcN+5o165dxEH4sytu7nz5NcHxjz/+
CAoKeu+995RlXkQSPXLkSMeILgVr06ZNx44dRfuVGECl1Iit7kIHhIZ2wXjr
169/+PBhbotW5M+ff/To0YbFPn78ODQVtyx+5R379etXr1490YqeUTx9+nTg
wIH+/v65c+dWxrOh2NWrV1+5cqVe7dHS1q1bZ/oAUWzt7Nmz0Dyi59q1a22t
XyGAZK5duybeZevWrVWrVvXw8BBvWrBgQUJqSkqK5hKqPjg4OEeOHMoAS+gl
JslxEsbSpUuTjygnIxN+4v6EZj8/P7ifOC4GiCLYpk2bkk5qapOKQ1fhObaU
k6pBkTZv3uyAfFLTiCjVNHz4cJTqyJEjuLUFCxY43OWqJ6KI1MfHZ/ny5eKr
GNWMgThma/aN10JbMw8nHRSXT58+HQXA4ROAhg4dSv7iurGXt2/fhsnjFjJ0
FYaDOUdHR6PDWEGlSpVq1KhhWMjMdTup5roPJCSyDvBpc+fOJVmGQOLG8W/E
nVatWhlOCMKsIiMjsYLPP/9cIat4tg8++ICD3MRWb5Ro7ihatOiaNWvU7v3i
xYslSpQgOOovWbVqFT8pUY/HffbZZ9CPQ4cO9erVC6+rLiGm2rBhQ06wRaFx
boGBgS4duc27kynHxMS4osXV+fJrgiOpfePGjfH2SnWQLBArM+qcFeDbcZUz
ZswQjvH58+cfffSRMoDKVnB0QGjJycllypRBacWDzp8/T+5vyEDu3bsHQdJM
wSb36dat2yeffOJMAwXXfvjhh+j8rFmz7LSrELnIm9D8TBwgevfuXYw6NDR0
+/btyL9Ro0b58uUbP3684eufOnWqcOHC77777r///W/NQYKgoZ0KvHz58uOP
P65bt656zQph9WgFea7mfOodbWzZsqWSUYoBomFhYQkJCcT3AQMGqIe32W/h
EQ8aNGiQw2ka5Tl58qQyUh1jwfko44UyCj0RRT8pvzINnA9eXl5btmxx7P72
jddCWzMP5x3U5cuXFVOFudWsWXPs2LGuaxdF+CTO5gdjIPMOHTqgsaJNXvg3
6KU+W8l0t2Om+0BCwhXAtziwYhhX4cCnTJmi+EzUG59WoECBypUr69M3fl23
bh0+Vt0DzkFy4Rw5chBxlPYNDX788UfMEAqhefrkyZN5EBwmMTFR3dKC/8GW
4bfKS4k2BOIpV+HuCBPLly8n7mzbtk3kpxxZsWLFL7/8sm/fPo2RCidAJuvq
ATMXLlyoVauWMszAKlhSfk1wJFkuVaoUibP4CvEgYR81apQzrUCE2qNHj4qv
P/30k6+vr7KYoZ0JFBkSGooxbNgwYq4yIjQ+Pp4HGQ4Q5e1QS316snfvXpiV
rUXAzID0jSjGze0vWrt//35kYskAUVTd1kKddkCSSEhSEypuMnjwYGIZOYJ+
LCXJXefOnclJ1ZoGISSAcgnMxzDTFG6B5FQTZMVUdOTPHYj76rETBOuAgAA8
j2KqSAlZHThwgM+YNuaMmeNPDh8+zDmLFi1CXfFIfEW1NAXA/FEh0YlvCWAR
fn5+ffv2dcwcNLaGMLGs999/X3QkgaVLl6LD165dc6x49o3XKlszD8sdrKBS
BBRCgyU31ANtxIQXLlxoMkncs2cPYVGRKlWgaepXkOluJ93uAwkJF+HixYsE
i4z2ZWBNPXv2VNyjANrevXt34s6IESNMJqSi4ylXrlyGc4Xu379P7NMv7yla
USCchMtJkyapdwwUA0TV7a5QXy8vr40bN6amxZ2SJUvu3LmTg3PnzsXc4D+w
kW+//XbVqlVHjhzRPAiWS9Rz2O2bB2yBAKSeYGUJLCm/Jjju2LGDuC+aUIgj
xFzyfYcna+DMCUMVKlRQNmfcunUr909KShJf7QTHDAlNTFhr0aKFIFFcgmoF
BgbqB4hSJCICZSA90cQashX0B803M53k5s2bcLY+ffoo07dTbUQEikRcg8jx
plAyMUC0UqVKTg44TP1fi58DPblr1qyB7GmuguCVKVMmf/78yvjMdEHAzZkz
J5HXsG8R68NX6Jt6ME/cwq5du7B9yq+uX1RazEsSX8ULli1bVgwbQIwoPHKD
kZ44cYLyjx07lrQU7YqMjFS31qamqdbEiRM7derk8Lri3IEXhMgpWgRPpuKa
N2/uAPlP1dkakkFFBw4cKIgi//lsqLQmYd94rbI183DeQZ07d440R2HIov+r
aNGiP/zwg0VlNACegexAo06GQKRhYWHFihVTykP0IR4p/k1BprudVDlAVCLz
cPbs2caNG2d0WzeysxIlSowePVrjEuPi4tB2cmcNR7UFDISMGO7atm1bTTjA
NAhSSkOZGngbwgoulNzt2LFj6p+IXJi5eoBoQkJC+fLlRWMIDLZPGii5GAYD
iW3VqhWclrCr6Y/A7XMc9+uecXqE/ipVqli4tZ9V5VcHRzGAs1q1aigM4ho5
ciQ/mXHItiAGiCr8UPht7k+9bN++nafYX1LGvNBES5oykBVeSsICheAD1Ndk
eBW9wMQgk6vEkOXB3AoXLnzy5ElxRB8RCBazZ8/myIcffiiYJ6JAJwkQT58+
3bx5szPrqHDzadOm8dYZ4g9oTr9+/SpXrowdqbkoldW6dWus9YsvvjDJbMUE
Ybiofr8eTBXOoNl3XoC8GAlg/uPHj1ezcV4nNjbWz89PGa0qiooSir51wn39
+vUpXkxMjNCow4cPcwQ6yrto4jt3RtPsL5dhH0J7SXAUExCcISgoyDHCpiGi
MDRvb2/YgviK1qF7oaGhfMCtZfQR6RqvVbZmEpY4KPTK09NTtIen/m/khiVJ
nB1A9niEmWXfRA9d9erVRVMPEo6IiKhRowZih5GaDLvucTvAfveBhITr4BgR
XbZsGTpcpEgRTXMlcTNPnjxly5Y13zMCp+USckb1rfDwEyZM4Cc73R8k8vqR
XRiaj4+PurMe16RucsEVYHfq1JJHQJv1gZUQWbVq1QULFph8ESdB0MEJqCm0
k7Cq/OrgSPxq0qRJr169jh8/3qlTJ1yZk3O4xABRZaWdCxcuwFu6dOly584d
kRrYD47mhfbq1auOHTuKJh3uuXTp0nz58q1atSoxMXH58uX2x00pvxKF8fDk
NSbDnGifgbmhzELB9BEBvgQPz5UrF4URR9BGuA2vf/nyZSTsTBuUY0SUQlIj
FFuznCCi6Nu3r+hqN9n1jNpAFLmkefPm6ltB2AYOHGgn2CEu5KCpFwqGbsBR
1UkrSqJmMlQ0mq++kF8NW+x3796NsjnTdMZTqDV1C9Lq1au5p769yyQ0RFS4
U3Q1NU0g2LKHhweag/XZmmxiB+kar1W2ZhKWOKjk5OSoqCjlRSBRFStWnDVr
lks7l1G/tm3b9u7d20wTJVS5Vq1agvBT2nLlyqHD5MWTJ0+207Ltfrdjv/tA
QsKlcIyI4kNwWaTqGlf21Vdfoe0i6RZHUHgC/bBhwzZu3GgYvDCugIAArGb6
9OnC9LCjOXPm4KBMRk8cbHx8/NWrV3lW586d27dv71i/mAaHDh3y9vaGqNg6
4bfffouOjibO4vf0AsQlZqgtS4yLs7Dzy6ryq4Mjl5CbE8WoaPueimsJyoMG
DUJP9DvuwTFE0wo3z58/P7F7xIgRMTExEydOJD7WrVt33LhxYt9w+8ExQ0K7
ePEidIiwFRoaunjxYtgU78WDDBt5bty4AX/DVw8YMGDo0KERERFw5kuXLpF8
oa6G7Xh6CB4oxlUK5ddHBNHMVbBgQaVtnzMJUq1bt/7iiy+c7GF0jIimps0z
Gjx48NGjR9VsB2Mn/vI6ytpo/HrixAnuT93Z6gTZuXNn3rx5kZuyXs2DBw+C
g4PNz267fv06mS9RGy7k5+e3ZMkS5+dwoVejR49G02xNBjepwDifqVOnzpgx
A1kh6nr16unXVuJZJ0+eRGjQA7ilhr3wFd8lCIOm92HUqFEwzxo1aiDe8PDw
RYsWQX66deuG0moyfTOlTdd4LbQ1M7DEQSHqLVu2IKh9+/atW7eOWIbt6P2/
tb5aTFJQLz5gB8+ePSPnGjJkyKRJk3AjhDax7oHSiqtGJrqdVLvdBxISLoVj
RNQQaDt+Ev0nyij6j93t379fLMZiONxa7LDJVQ0aNMDXof9r167FZs3313B/
7BTbwckQWfSrxDiGuXPnlipVynAWFYXkcZ6ensqaGHgJ9Sg4PP+UKVMyNJQL
ifXq1cvCfc+tKr8Di2xT3bVq1VJuDtXcsGGD4tlE2w60kCNEWILjrTQoTAY1
UBqx7QfHjAqN8wlJygqlOHa9mqGQROqyZcvGxcUpqRNcKDIyknwnT548+Grz
Y2IhD0iA5EgIUB8RoARVq1YtXLgwlqi+EAk4PHZRgcNE1BC//PKLv78/rFLZ
hxouERsbS1CDoBL1DG1WLBCEEIjdyBzhUx7YmsmHCv+AfiIfSFRQUJAlU3rh
Ks2aNYPUGSq2SQUWXzkOQ4Zhwjb1fIbShoSEKEtUAeiiuma5SmmTV9saKh0Y
GMj78uHmzZuCXAml1ZQ5Q6W1A2ttLV1Y6GBJbdCo3bt369fddYWvTk1bfbpo
0aLmN4vHzJUgi/fQTxDOIm7HVveBhIRLYSER/eGHH0qUKFGyZEll6PjevXuX
LVuGK8ANwhVJtQx7TEjKCqbh6NGjsEqS7gy5Bbw63DUsLGzp0qUOrABgCNwC
Oayt1d5IZn19fTmBkvOyOJBy5cqRw6r71LZt25ahJ4oRXBUrVrRkdJOF5c8o
ESVQ1qtXr0mTJgkJCVeuXCFAtGzZErapjOsjCkRFReHxRAtb586d7SQd9oOj
tUJLTZPbjBkzUMV169ap2wTE/G4sBffep08f83Oi16xZkytXrk8++URwD31E
uH37NtGnePHirtjgyUIiKiZT5MyZs127doIK3rlzJyIiAlMVfb7qyd1qiDpC
bpwAT5g6dSqBNUPtLWjO7NmzRSO5Vc1xaGmVKlUMV5E1r8DpPgU9wenB3snH
L1y4cPr0aZQZT6gsGoZWIBBllSq1rUFuMdJ0h7BaWFp32prbHKwrfHVqWsyi
HpWNBpxENnM7EhIZhVVEFFLRv3//QoUKbd26VRzBBMLDw8X2cCRouXPnXrFi
heG1sEexoCjulJtkhdEpuKkOHTp89NFHekr86NEjgoWmYwVv36xZM7FC6ePH
j3lxk9O11CBaFStWzPwcUiSMeIk++ihjYfkzRESJVtHR0ZMnT1YXiXIGBweL
FUs4Yf78+WIUPc6wfPny9rdTT3f/64wKzT527txZoECBQYMG6d9XpEto6bx5
88zzKN4Uo1BImj4iiH43ZTqDtbCQiEKWICEwB2XDR4KdMHYyUC8vLxIKWwOG
z5w5U7hwYQ8PDxSJgJsVttjmdby9vZXVaxVkSIHTRWJiohjwrBwRDXS9e/cW
DAFqigIrZFhtaxBLSmhnxzfLS2u5rbnHQdmB63x1cnIyZqsshOUkspnbkZCw
BXQYvvdvHfbv39+gQQNCieY41NT8sBluTuZOrFEvPYGH2bdvHxHwxYsXGL6f
n59+eWrlcnJ2bI1Il0Um6+FCP0mDvnuUAGHoE7Bx8fp4FWK0A2NsiB2enp76
IV6GwLeIGcRwOXWks7z8BMeAgIDIyEgzGzr/+uuvISEh+nZpgteIESNevXr1
22+/TZgwQfQz8pm8w85QCrJ1Me7OcNk9gQwJzT4IW/Xr1yciHD58WP+riAh4
bzO9nAqwI8gbVwlGoY8IGE6uXLkGDx7sJD3jcoKOxorv378fEREBLbl7967m
JwKQ+SfiCnr27Il5KmNWIS2HDh0S84nQwzx58thZtV5ZT7tv376WjN92HrxI
0aJF9TNlMqTA9gGpGDt2rH7iEiYZGhqK2nPC1KlT1fqvtrVdu3aNHj3avhO2
sLSW25rbHJQduM5Xw2aLFy+uT2QcwBvtdiQkMoQzZ86UKVMmnw5EEAKEh4eH
5nj+/PlxSiZHR2NB/v7+KLlhz/t3332H+yLds6XzYlg+xSBoZpGldEVvY6tW
rfSNPAQOwwkON27cmDJlCjGX/471XuEbIfPmJ3FQtnbt2rVv315fSAvLf/v2
7VmzZpEpmCGiOEDDVAJPOHHixFu3bq1fv15ZBDJdEBynT58eExNz5coVW+dk
VGh28M033+TNm1ezPZD6QTlz5kSqGRo3Irak5EIxQlITEaim5s2bYx3ptllx
5vXr1wl/hgYiNjr817/+pTfwnGnQHye6wXPMtJRitpCZ6tWrG9aCIJlwVDsL
ZUB6uZwnWrJEvyUQg4WWLFmiOW6hAnMJTzF0ehs3btyxYwd0UdM+nCFbs7a0
rrA19zgoO3CdrxYt6tSU80Q0K7sdciV0EpVwfry6hIQdON81f+HChffff5/c
09AksYLx48cT+Pbs2WPrDmJYPmRYmQShAXcms8NJEhCHDx++d+9eV+dxImFv
1qyZ+QYc3FpkZOTRo0fJwR2j03FxcfoVsezgzp07FSpUUFYbUCNTym8HlPCr
r746dOgQjtGBjjA7yKjQbIFX/uKLL9RTTdXgCMdz586trHZiHqh3t27dihYt
euzYMXVE4ImxsbGoPTVonxBSNeHh4V5eXhmdKuJ81zyFXLhwIeZpa7frEydO
FCpUaNiwYXYekZSUBIEJCAjQzyXRA4aGpbtui0YB0SKKqps831oFPnfuHFLl
hiY7zTMKF5lbtnFQzt8K/l+sWDHs10kimpXdDmeSyNSqVQvKan5aloSEA3CS
iBKeyK3UJFOsVaLMbOXO1atXt7/EPck42WWpUqVs9d0TmwjE4p64wTJlyowZ
M8al68yTCXbq1In4a36HX8oTERFBOTPUh6JArDBcvHhxWxFfjyNHjkBODDt0
3F/+dIFPIyVZunSphQuDOCA0W8Dn9+jRg4hguLAhmunv748aO2YpqO6kSZMq
VqyIeOvWrctTUOC+fftyZM2aNSZ3hqpTpw5XZShuOklExb69hDBl5ktq2oju
06dPKyutcfMCBQrodyVTQ6zqZmakMfG9XLly5tcpdRhUqI+PT3R0tHlttFCB
r1+/jty4m1Uz0PWw3Nyyk4Ny/laEITi5nfG0JpHF3Y6YoVazZk05lFTCpXCG
iN67d693794aP/PkyRNUV+kQEasIig4ClFnZ8USNhISEPHnykB0bDogSw9pL
lCgh5vfxtV27dr6+vrZYqyWgtKGhoba6SwwhNgrp16+f8hanTp3CyXz88cfq
yZXJycmcpr+tSI2rVKmiGQ6BM4mLiwsJCcFzJiUlIW0Ro4kLM2bMgJPjwUaP
Hj1ixIgLFy5YW35rsXnz5nr16lm79Z4toTkAXh/+gx7qp9Ai6unTp+fLl09d
j69fv0aZlSOcc/DgQf0akmoQ/jiH0hIRevXqdeLECfPbARD4MAEzm7loSu4M
EUXZMHBN3+WZM2fE9rip/1sEWCwswyPmzZunn4QrNj/ilefMmWOfFL169YqI
WaFCBTcQUXxRtWrV1HsBpwsLFfjWrVsffPCBWFHE+bsZwnJzy04OSn8rIuDw
4cOJQWFhYUoTB2kCzM0wyeJg0aJFza9CZqckWdntIB9kYthaKyFhIRwmok+f
Ph01ahRarb/hkCFDRNMHTh4HpQwr2rdvn37lFjFV084AUWFrxDjRIsp/Cpwh
D+YYFi5cSOg3n/5jqkRtzVD/rVu3enp6KntzIxAcsuFcRSTWrVs3TV/Vb7/9
1rp16+joaNh7SkpK5cqVlY3ecCbt27dHtitXruS2+H/yVnVpLSm/hSAH79q1
q7VjjQyF5jAWL16cO3duyqk5funSpZIlSw4dOlTdCH/t2jUfH5/ly5eLr6LF
Mt1d3bkDFarZ9NkMOJ8yZHStFWeIKLQBnqbfnz02Nnb16tXi6+7du0kzxUg5
SOn48eP1JAFVRzPTHSAqVqpZu3Zt8+bN3UBE0cOWLVtiQeY7VixU4F9//RWW
KCZuuwiWm1t2clCGt+JdKD/+WTEW/DZsU+ysoQHiLV68eHJysvOFycpuR2zR
63zDr4SEfThGRPFFgwYNwnyKqADjIn1Tb0Ut9gQUW0I8efJk0qRJ+umTDx8+
rFu3Limh4XL3eiQmJhYrVgwn5uqtH06dOuXt7a1wyHSBTD777DN1cKGEM2fO
LFu2rNKzSQCqVKmSYYfg48ePkQP5uOJSoNwdOnQgXAoGTnr+0UcfIU8Ro5Fk
+fLlw8PDxfl4DLy62rU6X35rERcXJzYrtBB6oSkgLE6dOhVVnDJlisnpFYi0
WrVqnTt3Vofa69evE1sRu2Yd9c2bNxOJlBnEfPDy8tqyZYv9R2AFYqUyM/Nt
efTEiRNJ6+bPn08BHFhL3GEi+tNPP1WpUiV//vxqA4dUYKfq6b0IAYYJHRW7
phqGbPhnoUKFsAL725QT02NiYpDPJ5984gYiKjbHUe8Bly4sVOAffvhh8ODB
Lp0AYrm5ZScHZXgrMi8seuPGjeIr5K1///68kX5RArFlfO3atfWbv2cDt6Nu
4l60aBF1JAeISrgajhHRVatW5cqV6x0jkHapvc2hQ4fefffd2bNnf/7552rD
xByWLVtGsFP2vCDSYY+26ChugZ+4CeesXr3a1XMZUtP2nnjvvfeI4yYZ7+3b
t3Fuaq9FmTt16kQqKiIO/hk3jvsy7EcmEJN7qkfb8pmgr2SjuCZOUGQLGcAj
IV7xVSwcpx5o5Hz5LQTvjnO2ZG67GnqhiWctXry4QYMGPI6QgZoFBgaaHOOE
y0VdO3bsuHXrVmRL6oQMY2NjNS2uYp0H9RLuBH0fHx9bSywiVchVmTJl1FYD
hUP/DftnObJ379769etTyzxrxYoVcELD1dftw+G95rt27Wpo3QCtU2Zqo8lN
mjTBKhEUmql+CrQkKCgI/unh4cFVOXPmpKaaNm2KGuuf+OzZM2gh+ZqYw+IG
Ipqatt2Gr6+vySBrrQJv27bN/vK5TsIV5padHJThrbAyTFhhp5S8VKlShmsO
vHz5Ei0dOnSoWuGzgdtJ1TVxV6pUydamAxISFsLCnZVsAYdz5swZJzcOE31/
ly5dwkhr1aqFf3B1iyhWP3bs2BYtWpgckkSRlL1NBSgwhiw6LgH8OSAgQL+u
oAD+nPdSekJ5Oqy1WLFiyiivnTt3kvyKy8XqHP7+/korEz6QoKBuknK+/BaC
9+rQoYN6zosl0AgtNU0yyLlEiRKnTp1KTeNUw4YNI2SYb31CXFu2bBk3blxk
ZOSOHTsMJ9lBnIgyAwcOFOLiP585YtXcE4I+4WPu3LlCyc+fP09MV7bjMQ9r
t/g0BIJFJ5VV7h2AiNqiZcydRJSarVOnjiJk+7BQgakLWOKGDRucv5UtuMLc
spOD0t+KSoGaNmzYUEyegtpVq1ZNGQutAb9WqFBBzVGzh9sxbOLu16+fHCAq
4WrgRnr06PEGbS/7559/BgUF4QA1m+S6AjyiYsWKZtpM8Fcw5JkzZ6qD2rFj
x+APRFh+FXMHEhMTDS/HC7Vp00a9Kh2OEVepjCYVnUGkyffv38fh8x9/pexL
QuJMGotH0tSjk+W3ECdOnCDft3aOsF5oqf9bpaFTp07mB+Q7ACKRt7f3woUL
xddHjx69//77oaGhfEhISHCS9XE5UczHx0cZERofH+/r6+vAZnxiGZ+YmJgs
sjyvIaAusbGxYlS5O4kowkEyzZo1M6OWFirw48ePsVaXdndabm7ZyUEZ3grL
rV27NibMe2HdTZs2nTVrlqESctX8+fObNGmiblDNBm4nNb0mbgmJtxli0p96
jvzy5ctz5MhhODLQWhAcyWrNrPuNv23fvr0631cGiJ45c2bkyJGkrnbGyEFZ
cYOaXsu4uDilCSI5OblcuXKkq3fu3Jk8eTKPw/Pg2HFBPGjVqlXly5fXL4Lt
TPkthBDF2LFjra0vQ6FB9QsVKkSksPBBepBW5MmTR4zB46UWLFjg4eGxcuXK
48eP89/JWCliYosWLURzCnU3ePBgC9s9shRgOL179x4yZMjENISHh/v7+1ep
UoXP+omQluP27dsNGjTQbAGph7UKfP78ediv67o7XWFu2clBGd7q4sWLXl5e
ZHzLli2Dch8+fNiWFT98+BCCvW7dOvXBbOB27DdxS0i85cAnkKbh4pRFCHFr
OXPmTHeqoCX4+eefcafpLjfHaY0aNVL3hZFN9+nTB0cdFRX1/fff2/ESxOLu
3buTh2rOefbsGfSVGE3+HhERMWfOHDFBUsRNrhoxYgTpcGRkJJfbWqfF4fJb
iNevX/fq1UuZBWAJbAmN+OLp6bljxw71QfTEwpZeMVKLEFCjRo2YmBi406JF
i2BT3bp1o3bsbDBkEvfu3QsICCB5EepNKK9bty5P5MPWrVvdMDranaBe7t+/
/+v/cOnSpapVq3bs2PHGjRvmV5h0BqtXr+7cubN9km+tApNH29lmznlYbm7Z
zEEZ3mrDhg0lS5YcPnz47t277SykgASWLFnSs2dPzXCCbOB2DJu4eRaJBozU
pYP3JCSyPq5du9awYcOjR4+Kr3gJvF/x4sUtn/liC0T/Tz/91H6o2rt374AB
Axzol8FTkeGGhITYWoAIP6A4gSdPnmgG2PNTusMqXFp+M+AV2rRp4/ya8wrs
CO3u3bs4T3V3UnJyMgHRwsW+xEZgQUFBfLh586YoA34bQpXugu1mwA1hYsRE
QoOYjZ4vXz6Sr8TERDiMq4dGZy7EWk+EV7cNS0Pn4fz2V+GwUIGp0zFjxsTH
xzt/K1uw1tyyn4Ny5lZXrlxBtvptVbOB20k1auLu0qULebFo4rbkERISbyjw
hKTYeMJly5YdP36cTDAgIGDbtm1ui8jEDuIUWb+dTJmM/ttvv3Xg5keOHMG3
uHRaokvLbwaPHz9OSEiwylumpie0Y8eOtWzZcsaMGfPmzRs9enR0dLS1S86S
Gfn6+rqUS1AdzZs3j4qKCg0NXbx4MWG6a9eu48aNs78C0hsNtJQ3/fjjj/Pk
yVOkSJEOHTqk22NuFdBP1MnOHsQWKjDMYceOHc7vv2AH1ppb9nNQDt+KWuvf
v7+YjqRHNnA79pu4JSQk/vOf/yQmJq5bt47/Ltr6xw4IHwcPHrS85xrHu3Pn
TjfMFHNR+TMFZoTG+965c4dA4IpshSjv7e196dIly++sxl9//UV9CVUX7R4u
3dP2LQchGKVy6cKebyKkg1ID+nrlyhU7J2QDt5OaXhO3hISEhESmY9euXaNH
j3Z/NiQhIfHWQrodCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCYnUtG0psvc+2hIS2Rhu2x1eQkJCAUHz77//tvOrOwsjIfGG4s8/
/1y7dm2DBg3y5MmTN2/eDh06JCUlqc3n8ePHY8eOXbZsmTM29eLFi+vXr1+7
ds3QZp88eZKSkpKNN/KWkHARHjx4EB4eXq5cuXfeecfb2zssLEyzkfr333/f
p08f/jv8CAz/4cOHWOidO3f0v5LA3rt3Lzk5We5FKPFW4cKFC127dvX09MyR
I0eNGjVWr16t3gWYSLdu3bphw4Y9f/48EwspIZH1cfv2bUypX79+hw4dunr1
6vr16xs1apQzZ842bdrEx8cfOHBg2rRpH3744YoVK/QEkvD0zTffzJ49W79D
9M2bNydNmnTjxg3x9dmzZxEREcWLF+fmequEfw4cODBfvnyDBw+2k1pKSEio
gQFitoGBgVOnTiUmnj9/fubMmaVLly5cuPDw4cO3b9++c+fOkJCQ5s2bX7x4
UX/5q1evMN49e/ZoEky+7tu3T23XkMwuXbrkzp07JiZGn41SBuzaw8ODx7no
TSUsB5720qVLx44dI0Nxs9f9888/k5KSjh8/TsRx53MtxOvXr7GFpk2bQj55
i8OHDxO88ubNGxAQgA0SN1euXEkMHTJkyOPHjzO7sBISWRrwwzFjxhBH1MHl
n3/+4UjLli2LFSv27rvvcsJvv/1meDn+BOvr1avXixcvND9t2bKlVq1a6kaY
R48e1a5de9SoUdxffyts2cfHB+O14rUksgrQEDKdK1eu6FOVTAehhEQpJSXl
ze3RhkhAODXmiTHOnz+/Zs2aRYoUady4cVxcHITT8HIurFOnztdff63hltRa
cHBwz5491TkjjIVE8uDBg4a3WrJkCQRYSTwlsj4ePnxYtWrV+vXrjxs3zs3m
SSz47LPPqlevTpRxxf1d7Xawl+XLl8fGxmruj/7DPP38/EqWLNmjRw9MRp+1
ye4DCYlMxMWLF728vDZt2mT468aNG729vZ3pPbQFXMGOHTumTJmyf//+8+fP
79mzJzIykg+WP+gNAv5z+vTpixcvPnny5NmzZ9euXRsVFfXkyRNrn4LLXb9+
PfmIp6fnuXPnrL25k/jjjz++/PJLQkblypWJC5ldnKwOjGjWrFn+/v6Gg2dg
8n369GnatOnLly8tf7R7dPWNgLWuDCL68ccf//zzz9YW0jwOHTrUrVs3y2+b
ld1Oquw+kJDIVKxYscLHx8ewL+bvv/8ODQ2tU6cOmbLlz8UvTZ48+Z3/oUCB
AtHR0a9fv7b8QW8QiOP169dXZFKhQoWDBw+6YlA9wh83blzNmjUfPHhg+c2d
BAynTZs2Xbp0UQ/rkjAEIurUqRPiMmxi+v3336tVqxYREWHY2eEk3KarWR/W
urLsSkRTs7bbSZXdBxISFgFL37Vr14gRIxYsWKDu+OP4vn37wsLCPv/8c3WP
IVQzKCioYcOGz549I6itXLkyODhY6drgID+5aIAoRZo3b97y5cu3bNlCCHMF
133jQHAfOXLk7t27N23adPbsWdcxsZcvXzZr1qx///5ZsPv71q1b/v7+s2fP
fgtZzfPnz+fMmTN8+HANqeN4XFzc0KFDsU01w7l7926lSpWioqI4+f79+9Ah
7Hf//v3i2u+++6548eI7duxwRVHdpqtZH9a6smxMRLOy23Fp94GExFuFo0eP
Lly48PLly35+fvgTcZCotGHDBvwkJtauXTvCnEIsxQBRiOvjx49nzpyJFyWW
lShRQrhBMUA0Pj7ezhMJiytWrHAgi8R7U9TTp09n/C0dBAx82bJlbhh2xYOW
Ll3qwIMI7uPHj7fTv3n48GFL2p2oL3L/r7/+2sn7uALwKC8vr+PHj2d2QdwN
QiEsNDExEbuoVauW0mr04sWLyMjIpKSkn376Cbsmo1QuEQNEOZKSkjJlypQL
Fy4EBgZi44IWLl68mFq+fv26nYe6TletAh4G3/XLL7+44UFZwZVlQSL6Nrgd
l3YfSEi8cdAYwn/TYHimuqGSq4gmBKPbt2+vX7/e19cXOip+wodDL/kVtlm3
bt3Q0FDlwkuXLhHICH8xMTHQTh504MCBNWvW/Pnnn/wKfYUScI6touK6w8PD
4+LiHDBe4b0Ju+fOndu0aVNycrKT7a5ivuT27dvFV94F5/nNN98o0hND2ceM
GeNSLvrrr7/26NEDSuDAtSK4cwdqYceOHXfv3tWc8Pz585CQkC1btjgQFOAz
1BSX42wXLVrk7e1ta6QW5CQsLKx58+bNmjVr0qQJ6vHs2TMHXkcAfqVXaQ4a
Vjc/RUVFvdEDRDUva8s0/kmD+CxsHJ45bdo0ssVPP/20RYsWSsvMtm3bsEQ+
YCzYI0RduerLL78sU6YMv8bGxqIbKDZVfObMmdQ0sffu3RtKo5+xqMClumoh
cGXdu3e3z6idRNZxZRoieurUKeqII4pnS01bLSE4OPjf//63Y4/AwD///POb
N2+Kr69evSJD//HHH8VXPRHN9m4n1cXdBxISmQXMPD4+fuzYsfgoTM+Oa8I6
kpKS8D+paaQRMyxSpIgYbpQrV64qVaqsXr1a7wHweIUKFRKneXp6Tpgwgfu8
SkP79u07dOig0C0eLT7jz/ED0FTlJitWrMiZM2fZsmU3btyooWdcNWLECDsD
REWH1LBhwxwbDcXl06dP79SpE+VBPkOHDiX+OjN26Nq1az4+PlBN8ZViU/hx
48ap3REEGyJK1HZR2vv06VOixubNmx27nODepUuX4cOHHz58+MiRI2jCggUL
NN1YJBpt27bFbWbozjj51q1bR0dHU8spKSmVKlWqUaOGobSPHz/et29f7i9E
9Pvvv/fr169evXqONdEgkIEDB/r7++fOnVsZRIfeVq9efeXKlXqtpniUM9MH
iCLzs2fPQvOInmvXrrW1PIUA+R0ni9xt69atVatW9fDwEG9asGBBQioC11yC
yUAkcuTIoQywhF5icRwnHyxduvRXX32lnIxM+AlZEZr9/PzgfuK4GCCKYJs2
bUq2qFFpKu69996DXNlSdTfoqoXYtWsXpXXRkjtZypXpW0RRKjy8koAIz4wF
OfwImGHJkiWVRxw7dqxEiRL8F18Nu+azt9tJNdd9ICHxBoEAMXfuXFJ4CCR+
PigoiMDUqlUrwwlB2F1kZCRmQoqqkFX87QcffMBBbiICnB6iPaRo0aJr1qxR
+/+LFy/iVYie+ktWrVrFT0pY5HGfffZZ/fr18Ty9evWqVq2auoTYcsOGDTnB
FoXG5QYGBjoztBtirMz2xfPUrFkT3u5wYwKiJqVVJqvywcvLiyxecxq+sVGj
RqLVyFqIGhk0aJDD8xSo65MnTyqDew8ePEh9KUMsFPBSbdq0Md8r+uLFCxKT
li1bisax58+ff/TRR/h5PW24d+8eBEkzBZvyEJg++eQTZxoouPbDDz9EpWfN
mmWnXYXaIS1CjJk4QPTu3bvYbGho6Pbt27/++mu0JV++fOPHjzd8fWqhQYMG
nLB3717l4KlTpwoXLkwQNDRDgZcvX8I36tatq16SQqgQAVRprVKAbnTt2pVK
VBJGMUA0LCwsISGB+D5gwAD18Db7LTxu01WrwONCQkJiYmJckUJmKVemIaLU
1MyZMzEKJRsiE6HeYXeO2QhWD+XDA4hFwLgJLLp8+fLKngi2xohmY7djpvtA
QiJTgMdzYEkxrsLDT5kyRSGQ6P+mTZsKFChQuXJlfX7Hr+vWrSPEqHvAOUiG
niNHDkKS0gCiwY8//oidJicna54+efJkHkQCm5iYqG6KwSti7PBb5aVEmyEB
l6twwsSR5cuXE5i2bdsmEliOrFix4pdfftm3b5/GioWXwBlaFReEK+B9KbkD
l1OMUaNGvf/++6JhGSxdutTHx+fatWuaM0UI7tSpk+U+B4nVqlXLQoqLZ/bz
8yNqaFw3Lp2IsHDhQpORaM+ePaifMjSLrF/T5qZg8eLFaJ0++4BlwaxsrfFl
BmRnlJmb21+Tdv/+/dAnSwaIosm2Fuq0A3JA9FBNqLjJ4MGDiWX9+/fXD+qA
+40cOXL06NHqAM1BAiiXfPrpp4aJpLB6ck9NkBVT0ZE/dyDuq9cLJVgHBATg
WJRKR0rI6sCBA3zGcrFWrBh3cfjwYc5ZtGhRqVKlcDh8/emnnzQFcJuuWogL
Fy5QZmXEkVXIaq5MQ0RFu3fr1q2F7nFzUo/atWtrdukyjwcPHlSvXh2eLN4X
M4Eutm3bVklJbBHRbOx20u0+kJDILFy8eJFoktHuD8ytZ8+eCh0SwBy6d+9O
YBoxYoTJNFl0NOfKlctwrhBeiOCoX95TNLNAOImnkyZNUjsrMUBU3e4K9fXy
8tq4cWNqWmAqWbLkzp07OTh37lzs8ejRo76+vt9+++2qVauOHDmieRAsl7Co
p3nmce7cOcK0ElZE82zRokV/+OEHB+5GQA8MDBw4cKCIg/znM0cMN3HDycPV
1U1YzgOJTZw4kZDh8ABU7oCXhk4rZYZ7VKpUqXnz5npCRYIA6zYzSIzbErmK
FSumCJZapt6TkpI0ZxJfiAhwG26uiTUkI6gHim2rfV6Nmzdvwtn69OmjTN9O
tRERkBVxrXPnzmPGjKEGxQBRXtn5AYci3dAMzDCDNWvWQPY0V0HwypQpkz9/
fqV7NF1QlTlz5iTyGvYtYly4An1TD9aH1e/atQvTpvxqX4HFiXlJ4qt4QaWh
DDFij8gNRnrixAnKD9Mg67xz505kZKRGT9ysq1YBpkTCrp5raQmymivTEFH1
wghg9erVlFZvvObBtSjS1q1bxVc0pEKFCuqduezMms+WbidVDhCVyMI4e/Zs
48aNyZUydBXpW4kSJUaPHq2hQHFxcZgDGb2Go9oCFoQ3gLuSq2riBbZDFCOW
6a/CBxJ3yHBJ7pQxPwKENvyAeoBoQkJC+fLlRWsJDLZPGii5GCcDiW3VqhWc
lrisaTyE5nGcoODMQD4E4unpKdpzUv/X8+gwCSGOeHt7417E10ePHuEwQ0ND
+cBraiIXxca5KazVElDsatWq2V9hwD6Is/jM2rVrK35e+OGgoCB95MXrIite
Ld3bipZwZUQZASIiIqJGjRo8hdBgUr1FNESkJpemIYmDuRUuXPjkyZPiiD4i
ECxmz57NkQ8//FBUOnqOyhEgnj59unnzZmfWUeHm06ZNGzlyZIZIC/rQr18/
khTMRM1FqZrWrVtjjF988YVJZismCMNF0XPNT1giRMWwRYs6QgJY9/jx49WG
wOvExsb6+fkp/bOiqJiMaMgi3NevX5/iwSiEuzh8+DBHoKO8iya+u1lXLQRp
QpUqVQxX73cMWdCVaYioWBgBcoXiYRT16tWDOTtcVFFabqiMwiKOiHZ1kqBv
v/021S4RzZZuB9jvPpCQyEQ4RkSXLVuGkhcpUkTTXIkPyZMnT9myZc3318Bp
uYSkUn0rQsCECRP4yU7/yJMnT/RDv7BEHx8fdWc9DlPdJoOvwDDVuSePwCvq
Iy8xtGrVqgsWLDD5IoZITk4mzVfKiROoWLHirFmzHOscEeJdunRpatqLUDYP
Dw9e+fjx44aj0/HG/v7+9iehZAi7d++GeDjWBiJAIVetWqXOylevXs09DVs/
IBtkKL179zbTVsDLkgEJzoDYy5Ur16VLl3v37k2ePNmwxViAGK3IjdCPhydt
MRlbRaMQzA1dFRWqjwi8QosWLXLlysVbiyMoG9yGxOfy5csEC2cojWNElEK2
a9eOYmuWExTD6kRXu8nkhXqBKHJJ8+bN1beCsJEB2Ql2iAs5aDSWglFlcFR1
Tkp6qKZPr169wjDVF/Kr4Yg+N+uqhSDfhDCos2knkQVdmZqIKgNEz5w5gzKj
OU6ScKHJ5Ozi/vj/9u3bi4lLc+fOFQO97BDRbOl27HcfSEhkLhwjoni2MWPG
LFy4UEMFv/rqK8yhWrVqyg2xiOXLlw8bNmzjxo2G0Q3rCwgIwKymT58ubBND
mzNnDm7TZHglVMXHx5P88qzOnTvjcyzpOMNT4crsJOYQvOjoaAIx3lgvQJwe
oZk32rJly6hRo/bt27du3TpEjYPSF48ziXGDBg1Cqvpd83DaOCsxQBTmScYd
ExMTHh5Ohou3xJ2OGzfOkPmfOnWKV1AvyegMKMDo0aPr1q1ra1YvJ5Ckh4aG
4ifhzBo3zlfqiHOor6lTp86YMePo0aPwqHr16qmXn9LcEHG99957ZvSTcEMI
GzJkyKRJkyIiIlAhsZ6A0oajxo0bNwh5+OoBAwYMHTqU8xHgpUuXyK3QRpMj
0wQPFOMqhW7rI4JotS5YsKDSdM+ZvFTr1q2/+OILZ2hSqqNENDVNMQYPHoz8
1WLHlom/vI566TMUD86M4l28eNHwVjt37sybNy9yU9arefDgQXBwsPmpx9ev
XyexJWpDwPz8/JYsWeL8HC4366oZV2C+8GIMrYW981nNlaX+XyIqVlmHzkF0
v//+ezu1b7LWxADRwoULk3CR66EJa9aswRvwAbcgrrJDRLOl20m1230gIZG5
cIyIGgJzgBdhIIQhxUAwzP3794vVWgzHY4sdNrmqQYMGeGAMZO3atRi1+V4k
7o8hY1x4UUKPfhkZx0DuXKpUKcNZVBSSx3l6eiqLZuBG1MPkcLOEbyUjxjES
v3bv3m24biTCwQkrt8qfP/+GDRsURyFaPqEB3C0wMDAoKIgPN2/eFCGAX3Ff
tjJ34gu5Nl7LErfDE5s1a4b3NnwcITskJERZqwcQjNRNW0QQUhJREv7DOggl
HLQfoxFF0aJFze/aTKavKDPqpJ+Ih76RLpUtWzYuLk7JjOBCkZGRpDN58uTB
V5ufM0suwJuS+wiZ6CMC5alatSoxEUNTX0j8cn6hV4eJqCF++eUXf39/WKWy
D/WdO3fGjx+PsiGrSpUqGdqCWCIbIRC70UYxrQltN/lQYf6YD/Lp1KkT6m3J
9Dq36WpGXYEZoJa9evVq1KhRhq6yg6zmylIdWtDefK0lJSV5eXlt27YNPoYP
VOYrYYxmxoimZl+3Y6v7QEIic2EhEf3hhx9KlChRsmRJZUD73r17ly1bhu3j
fOCKyhxGDcjaCqbh6NGjsMrhw4dnyAPji+CuYWFhS5cudWAFAEPgN0hybS0H
R7br6+vLCZScl8XDlCtXjiRXiXqELdygmQdBI+vVq9ekSZOE/9feeQd1cXX/
/4kKig0LxRrsJfaoxBaNGrtRsXcNdoxgwYKoGE2iBiux14gdrFhwsESJPRm7
UceCOvrEOESdOJmvM9/nN/xew51nZ7+7+1n289kPiOS+/2Bg2XLLuee8z7n3
nrtt25UrV1Dybdq0wegr8+no6lmzZqFAsIZ81Kk1b+JIKXctaaOoVatWDQ0N
1XciqpXOhcbgd1y4cOH06dNhYWH0uJK/kT6aOXOmPl1PhqCFeY86zbUd0A5z
585F0jZt2qQm52J/NwMB9d6vXz/rq2o3bNiQO3fu1q1bC4OotwgpKSlYn+LF
iyuZtN0INxJRsZkiV65cHTt2FFSQRuDlly5d4l+4ePnz5zdcsC1O1qbd6tat
CzmhlxFRpxwfRH3evHm85NChQ+6KAWaZrLpRFSgQTVqxYkW35M/PhqoszXki
6lSvQfYyzJZpTkSl2pGQyEq4i4jibw4cOLBgwYLKRkXGSHh4uDi0Dg8uT548
q1evNnwW9igSiqLEeEl2WL6CHu7cubOShk4N2F1QUJBm5gWN2rJlS7E2/sWL
F1TcynYtLE5UVNT06dPV4V/abdiwYSIBCDcsXLhQLEpHvfv6+pqcAKWHiAth
DqznUcRfhvHeuXNHzyVQ8hQAjar/14kTJ7p166bk6Ev7b6SlT58+QlViOLAg
Liwnu3z5MhYBjuTsg4aIj4+HUA0ZMkQfKBPeEEIYHR1tnUfRNci8klBLbxHE
vJudvNwmcCMRpXNhPtAV5ZRJxEBMTCBFbdu2VecG1yA5Oblw4cKenp6MC8Qj
OxyxnTWy6kZVoAEFKFasmPVN7pScjoP+6SeSsqEqS3OeiFrvNbHBLcPj1M2J
qFQ7EhKZAYQcvvdMh4SEhMDAwKtXr2quQ02tr2vi5WvWrMEYqXNToPcOHDiA
iXz9+jWarWzZso6CDCKhDYMRU5hNdvOh3FqnQz9/CiE0VBooAVF91A4eqxWt
cv/+/eHDh+ujuBigkJAQCMCDBw+mTp0qZuF3794dGhrq1GIzFFS7du0MbZAh
0PNoSy8vr0GDBunpBEJStGhR/ZYHtOuECRP0OzhourFjx167do0bZs6c6dqS
CUwVfr0ho3AWmN2GDRtiEY4cOaL/r7AIaG9HiyENwTCBvPGUcBD0FoFxkTt3
7uDgYJv0jMcxOppB+vTp08mTJ2PrHz9+rPkXBsj6FxGqXr16MfrUa1ahIuJY
TKpGv3ODo9UySj7t/v37Z15eI6eQNbLqRlWgAeTN29tbv8bSEPSLyDagTtiu
IBuqsrR0IgqPGj169KZNmzLcE+RUr9EafGjjxo2Oio09WrZsWb9+/Tp27Ojo
i1LtSEhkBpKTk8uUKZNPBw8PDyyIp6en5jpspEGDBhaXTzPEAgICGAWGYYSf
f/4ZpQrDcTQoxDYcioFVzSa5dlFWzZs3b9u2rT6WiLoz3AFx586dGTNmYJT5
aXFODX1iSLxRLNOmTXv48CEuv52tRujnTp06NWrUyPqxHTdv3vT39xcb8zUQ
6yvQ4frS8i/Dzo2NjY2Li8MYuRwoE6EtkWDQhcfV2Lt3b968eatXr24Ychfn
wNLpTi0LEUdS8qBYIamxCEhRq1atEH4lEOQI3Hn79m3Mn6H8i9MVCxUqpB+/
udKhv451w22xEimlXzDcNWvWvHLlimEFaXz0gzLToYfYG8IX3ZKi3y3IGll1
oyrQAGnEr7e+4Qs1Ba1isOv1VfZUZRRm3bp1sEcrRNS9vSaIKFJtMvP+D1E7
tHxKSgoD3/56dQkJO7A/NX/hwgV8W5xrRxufp0yZgmXct2+fozeIbTgYO2WX
hAbY6IkTJ27duhWn+Pjx499//z1KLFMpqwgjtGzZ0nqEB70dGRl59OjR6Oho
m2WjJX/44YfDhw+jZ1yY11MgIqIZzlKpAd/w8fExDMWIKBO1s16Ac+fOLV68
mLpkqBIdAetWrFix+fPn27QI9Mj48ePVW03V4ArX8+TJo2Q7sQ6kt3v37rRM
UlKS2iLwRYqNVMMhzQkhkhMeHk6zO7s/xf7UPIWkgxh9jiZJxQkR1apVM/FJ
GZWwpipVqhhuYFGKii88b948jDsiZDFlost4J7KqwL4qiImJ0SfHM4FI2K4k
HlEjZ6gyR3Bjr6nxT1A73Il3UKdOHSir9W1ZEhKZAZtEFPuF86UmmSLDhrL1
lTfXrFnTPMX9zZs3cT9LlSrlaO7+1KlThQoVEjslGW44/m7M9mwIXMUuXbpg
oK3HEtEGkydPhlE4NcniCKgICPyKFSvsaEJxBBU6ymIKAqE2HXUWvePv7+/U
6c94ENAkKuLy/l9sMRZZOUHPZaDze/bsifwYZlOkagEBAVTctYGAtEdERFSs
WJHeh7bxlbCwsP79+3Nlw4YNVliiOIiWp5yy+zaJqDiWF/FQZ5r9888/T58+
rXTxwYMHvby8zFPci6RtQUFBjkJbf//9N/xz0KBBVJN7eJs6Q1Rm4J3IqgKb
qkBkIy9evLj1JZSJiYk4MoaTvzlDlTmCG3tNjX+I2hHb4mrXri2Xkkq8W9gh
ok+ePOnTp49G+6WmpiLbyoyPSDMoZhCQduVIFDW2bdvm4eGBz+4ocPfzzz+j
avbs2bNr1y40TxbkQKO02EpH8ymGEMeXDBgwwM5ZOQrE8SI280zCJ9FyI0aM
0Cgl2nDatGlcX7JkCSRfyXKAMm/WrBk8f+7cuVR/5syZ6sgV3VejRg318akZ
An/hk08+EZkTXKsCFhav33o6IEegd/r27YuY6bcAU7Y5c+bky5dPPVUHd0JW
lSvcc+jQIUf5TgUw39xTtWpVLELv3r2PHz9ufY8Yhs/Pz8/KYS6aktshooxc
xq9m7jU5OVmcfpv2X5HGB/zpp5/S0tezbd68WfMSsTeEKi9YsMDRnAji1KhR
I6Fk0AyBgYFYZzun/GSIdyKrCvSqgAakyniFahm7fPkyt+k1jPAHESRNFBri
ERMTM3z4cFji2bNn6T4RZKPAtHCZMmVgO6GhoSEhIWJxr/K2HKDKHMGNvabG
P0Tt0L+YXcNorYREVsJlIvrnn3+OGzcOsde/EIYjYiNYAdSmstjpwIED+tQu
6En8OPMFojyOjs3i5aOLFy+GGziVYASzLraI2gcubVBQkM2lO/fv3y9VqhS8
QrlC4+/fv79hw4ZYMdqT7sifP//EiRNF2966dYsq16xZE15E33G9X79+ilqj
MG3atIGmWqcQFAAbpBy05wJoh+LFi4vDUGxi6dKlefLk4YWa65cuXSpZsuTI
kSPV9bpx44a/v/+qVavEnyJimeGp7mIthObQZyvgfsrgbK4VO0QUrgJP05/P
Pn/+/PXr14s/IUJVqlRp3Ljxy5cvEW9MpH4dKZSvdu3aJgtE79y5ExAQoJ7l
5CuZ7Uu+E1lVYKgKduzY4e3tnZCQIP6ky2CMhvuaUZ7du3fXTKY/ePAA0YqK
iqJq165dq1y5snIoJCOUmqJmkSJey9CmR9SKKweoMkdwY6+p8Q9RO+KIXvuB
XwkJm3CNiKIhhwwZwvgqogJqFv9OfVa1OGpNnBmRmpoaERGh39T5/Pnz+vXr
4zMaprsXgIguXLiQUYMyT0pKcoufniHEsUSK4cgQtMmXX37pLpUYExNjuGPI
KeAmYIDU6R9RrWXKlIGaCiZw/vx59K2Si2/79u30o8Io0Ic8ruxBEAeOqI/N
yhBXr14NDg522QaJs5vr1aunX1KILZ45cyaSNmPGDIt7OpA9Ct+1a1e1fb99
+zYGHSnV5FGnTWgZZa0sv/j4+NA+5p9AyEUiMiv7bZW4NLJNAVxIYO4yEaVP
q1at6uXlpR6/MBmGoXp7b0pKChwSX5L3nzt37rvvvtNPviMtBQsW/PDDDx2t
ltm4cSM37Nu37/Dhw5Q2Li4uC8Zv1suqGnpVoJxiqayCgEFVqlTJcPGAWJer
uIdp6bHQzp07Q62FlIqZC2RGBLIQ7PLly4eHh4v70ZMMWzWNzAGqzBHc2GsK
crbaUcfVlyxZgmDIBaIS7xyuEdF169blzp37X0bAL1PrQKxP9erV582bN3r0
aPXIZbysXLkSa6gc6oEpZMAa0tHTp083b97822+/PXv2LDqtSZMmycnJLlfZ
Ip49e/bRRx9ZP5YIq432dktGfewLus76nllDUGwIJ1VQJvigE6NGjcLjViJv
a9asKVGihPhTTAgqia/5c+rUqUWLFlXPqe3fv5/7rSuunTt30vUuh79gLK1b
tx45cqSaaNE4S5cuDQwMpH0oJFKEPFhc40TJkcYvvvgCjwbJxDOifebPn6/Z
xyHSOChp+gBSR7s5yutIp/ft2xeGrx4UBQoUQLwNJw01cenVq1fDCQ2zr5vD
5bPmg4KCDAcvwA4qrofYUN+iRQsEKSwsTL1yGC40dOhQmJWnpydP5cqVq3Tp
0p999pkmi7jYqwi55eYNGzYwRmCzkCh3HX9mgiyWVTX0qoA279KlS7t27QRl
omHhmVAdwy1geIs0pnrhPb/ThkrkikbmBkXNIkX0GvIs/hRJJtWLEt93VWYC
N/aagpyqdtJ0cXVcIUcnHUhIZCXceLKSI6AG4Y12ThZjpEBBlZPoGa0ff/xx
ppY5LV0tTJgw4fPPP7cYwDlw4IBytqlN0GKdO3dWbyFxAagaVF9ISIiiTsVB
S9RIWEOuBwcHK7sYxHoh5YAP7kFlaaYO0ZC0vBJQNQfvxwbpVxVaBxq4QoUK
6qwvfHf9+vV+fn5i1SL2HWqNybAeEqGa27dvnzRpUmRkZFxcnOG2LBqEZhk8
eLBoCn7yO1fctSHCPC5tHe494tMQjAJ6wVHynAxBwfBAsY9KvI4u6969e4cO
HdxylKcJslhW1dCrgsePH2P0RTogIcNVqlTRJ8YUgHDWqVNHWTVBu8FaixUr
priE8fHxPj4+4nGRyScgIECJSMOXYK2HDh1SXvi+qzJHcG+vKcipascwrj5g
wAC5QFTinQPl1rNnz/fr/NnY2Nh8+fK5YLidBSy9YsWKVoIqqHr83G+++cYt
vvnx48fhkDb1D2wHY6cOHT958oQr8BZBCcQCpDFjxvALrjo/GzVqNHv2bFGF
K1euoHgxneowHf/iBviqlbK9ePECKuvyvA/fWrhwYfPmzdWRGZGEoUuXLtYX
5LsALJGvr+/ixYvFn7RM3bp1x44dyy/btm2zyfrM49JOQeTGoUeySfZdPcS2
XE9Pz927dytXGClOJcl0DVkpq2oYqoKkpCR8jYSEBP4rNu+cOHHC8HEYS/v2
7dUZLBEYaKHiEoqJYzHTASPlJ9xGObTizZs3VAT2olHp77UqcwQ39pqCnKp2
0jKKq0tISJgAjYrhXrdunaIY8SgxbaiLzP7027dvcXutJAZH03bq1EkdhXAZ
YjnZhAkT7LALMSU6cOBAtebESGEUYJ5UhxtWrFiRN2/elStXYixWrVqFmz9k
yBCxZYw7+/bti++sXyWVkpISGBioORbQEOfPn4cGuDzv8/z5c8zrpk2b1Bcx
3wULFszsrocqeHh4iIVttMaiRYuQt7Vr1x47doyfNg20o7h0Jhnrd44lS5Zg
/pSJY5EhH0dy//79mf3pLJNVNfSqQFkgileIGzh48GCT7HNQVsRDs8IhJiZG
iZHiYJYrV65z586PHj2aPn06n4OlID/IFR9CT5YvX/706dOa176/qswEbuw1
BTlV7ZjH1SUkJMwhsoyOHz9eUaEoW03Wi8zDb7/9hpLPMJ8etzVt2tQtM1BQ
x969e8fGxtp5yZUrVxo3bqxPmUJFWrVqBRPA0V66dClsMygoaNKkScIyXr9+
HaY6Z86c4cOHYz4cJR5cv359165dMyROkFuT47TMgdZdtmxZr169NJOJ2Edv
b288EfVF9+7CFiu1MAG1atWaPXt2eHg4VKpPnz7du3enoeA2Nt+vj0vXr1+f
L4q4dKZm13wngBQVLVpUyUwlXKQiRYqoUwxlHrJAVjXQqwJe269fP5gk4+6X
X34xkVWkvUePHsuXL9fcw0iEvo4YMSIiIgJXccGCBWIzteDYPBUSEsKIjoyM
5HFHiZLeU1VmAjf2mkAOVjuGcXW+hXcDI83sdW4SEu87Xr9+PW3atHv37ok/
hXJr3bq1W9bSWwH0AMJmbsv2798/aNAgt0zcoBnat29vPdeKHmhRCoNTb6gn
0dtYGaFpUUdPnz5V5w9BX6H0zJPeUE141OLFi030MO8JCwtbs2aNa1WASNMI
+kMDHz9+jPJUTyddvnwZK2w9R2KGEOd8DR06lF/u3r0rNhSIhsrwLEIr0Mel
8arwrU6cOIFhzYIcuVkMJE3UVxAGhjODt3///llzqmAWyKoGLqsCSogw4AM6
OgIJIVcIQ2pqqkYB8q8MV1i9d6rMBO7tNYEcrHbSjOLq3bp1wy8WcXW3fEJC
Igfj+vXro0aN2rhxY0JCAkqyU6dOjs5gygyg8TBkERERJvTs4sWLp06dcsvn
Xrx4sW3bNpeVj8j3uGDBgkxdgk4h0Zkmx7aiQuPi4kzOhTQBTw0cOFDsC9Aj
KSmpTZs2c+fOjY6ODg0NjYqKcqM5SEtfqVWiRAn3GjgNzOPSOQ+MVrgoFYTk
DB48GEfSvV1mjkyVVT1cVgWJiYmUM1O3ML9fqswc7u21tH+A2jGPq0tISGQI
PHRUxNatW69evZr105covUOHDmXS3k/34tGjR9D1LGgi1Fp8fHxmxLWwg/rE
6WrQHVQTQ5AZ8UNMp6+v76VLl9z+ZjXM49I5D7CR06dPb968+Zdffsn6rVWZ
J6vuAr1PCbNg0+h7pMqyGP8EtZOWUVxdQkJCQuKdY/fu3aGhoVlzaIKEhIRE
mlQ7EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhLW
8J///CfnHbQt8c/BP1yAM/VIWQkJCQkJiUzC27dvN27cGBgY6OHhkTdv3s6d
O589e1Zt0F+8eDFhwoSVK1fasfKvX7++ffv2jRs3DM++TE1NvXbtWk496Vsi
U5E1Apxt8fvvv4eHh5crV+5f//qXr6/vxIkTNcd///LLL/369eOny5+g3Z4/
f84IffTokf6/8P8nT55cvnxZHlYoISEhIeEsUlJSgoKCBgwYcPjw4evXr//4
449NmzbNlStX+/bt16xZc/Dgwa+//rpx48arV6/WE0jM0969e+fNm6c/Qvru
3bsRERF37twRf758+XLy5MnFixfn5a9evdLcDP8cPHhwvnz5goODs/4Ue4n3
GnYE+H0HA5BaN2nSZObMmRcuXDh//vw333xTunTpwoULjxkzZteuXfHx8cOH
D2/VqtXFixf1j79584bBu2/fPg0/588DBw6oxzUks1u3bnny5Jk9e7aezFMG
2tzT05PPZVJNJSQkJCRyJOCHYWFh2BG1cfnPf/7DlTZt2hQrVqx69erc8ODB
A8PH3759C3Xs3bv369evNf/avn17nTp11EGYP/74o169euPGjeP9+ldBIfz9
/deuXeuOaklkFyAhEMUrV67oXRW3wI4A//333zhK165de39ntC9dugTh1NSO
wbhw4cLatWsXKVLk008/jYmJgXAaPs6DH3/88fLlyzXckl4bNmxYr1691D5j
UlISjuShQ4cMX7Vs2TIIsOJ4SliEEmp+9uzZuy6LFjLQLSEhkcNw8eJFHx+f
LVu2GP43NjbW19fXzuyhI6Dq4+LiZsyYkZCQcP78+X379kVGRvKL2z+UeYDF
zZkzZ+nSpSdPnjxz5szGjRtnzZqVmpr6rsuVATBkP/74I/6It7f3uXPn3nVx
/g/+53/+57vvvitbtmzlypWxtu+6ONkdDKJvv/02ICDAcPEMTL5fv36fffbZ
X3/9lfVle6+hhJq//vrr7LZuRAa6JSQkchhWr17t7+9//fp1/b/+93//d+zY
sR9//PEff/zh9u9Ch6ZPn/6v/yJ//vxRUVF///232z+UeYBzNmzYUKlChQoV
Dh06lN3MliFo/EmTJtWuXfv3339/12XRAnrfvn17aACk9F2XJbuDJurSpQvN
ZRjZ/ve//12jRo3JkycbTnZImCMpKQkf/MiRI++6IAaQgW4JCYlsCyzO7t27
Q0JCFi1apJ744/qBAwcmTpw4evRo9YwhVHPo0KGNGjV6+fIlRm3t2rXDhg2b
P3++sGtc5F+ZtECUIkVHR69atWr79u3wt8zgupkNiOhXX321Z8+eLVu2nDlz
5j0iTn/99VfLli0HDhyYDae/Hz58GBAQMG/evPeC0rsXr169WrBgwZgxYzQe
DddjYmJGjhzJ2FQ7a48fP65UqdKsWbO4+enTp3h2jN+EhATx7M8//1y8ePG4
uLh3UJP3HDQgEli+fPmUlJR3XRYtZKBbQkIiO+Po0aOLFy/+9ddfy5Yte/jw
YXERpbp582YoH4qrY8eOmDmFWIoFohDXFy9efPPNN5g/bJmfn99vv/2W9t8F
omvWrDH5ImZx9erVLvjmEFGKevr0aUc3QJhXrlyZSYsYNR9asWKFCx+CiE6Z
MiUr5+KPHDnilqAr/VW6dOnly5e7pVTuBTzKx8fn2LFj77ogWQ0IBiz0xIkT
jIs6deoowerXr19HRkaePXv21q1bjGs8SuURsUCUK9euXZsxY8aFCxeaNGnC
GBc+0dKlS+nl27dvv5v6GAHRTUxMpMCZ5GW4S2nQgEFBQZ06dcqGczQy0C0h
IZHZ0KiX/5cOwzvVgUqeQv1ijHDhf/zxxxIlSkBHxb/u3bsHveS/sM369euP
HTtWefDSpUsYMszf7NmzoZ186ODBgxs2bHj79i3/hb5CCbjHUVHR0uHh4TEx
MS6oREFEMbvnzp3bsmXL5cuXNXFXCgN5DgsLy1Quev/+/Z49e2LBXXhWEFHe
QKPFxcU9fvzYZmH2799PTym27+7duz/88IM67vHq1avhw4dv377dBTsOn6Gn
eBwTtmTJEl9fX0cLRLHmEydObNWqVcuWLZs3b454vHz50rUapaXzK71Ic9Ew
zM6/Zs2a9V4vENVU1tHQ+E86xO9ijMMzv/76a7q7b9++n3/+udLvO3fuZCTy
C4OF8QhRV5767rvvypQpw3/nz5+PbDBS6OLk5OS09Gbv06dPixYt9DsWDQFf
xR2bMGHCsGHDeK3iWlJIfJ/nz5873RBGiI+PDw4OdnmXDUMDTbVr1y7xJy1A
2fbu3asMBztKQ9QUP3306NGo0EqVKjlaIPrmzRucuPbt27du3bpx48ajRo26
efOmazVKS1fj+rHAFUezFTLQLSEhYRGwiDVr1qDYoVtYfJPZbRTO2bNnhaqH
NGL9ixQpIpYd5s6du2rVquvXr9frQ8hbwYIFxW3e3t5Tp07lPW/SgSPfuXNn
RRXzafE71BT6gY5VXrJ69epcuXJ9+OGHsbGxGtXNUyEhISYLRMXcOkrYtaAB
j8+ZM6dLly6Uh/YZOXIk9lezZBE+jE3ByGaS749BhIVu3brVtcchot26dcNy
HTlyJDExkY5btGiRy5PdNCOm7YsvvhDhLLGMU9/+OBodOnTAGDn1crhlu3bt
oqKi6OVr165hZGvVqmW4QPTYsWP9+/fn/aLN//3vfw8YMKBBgwYiSO4saOHB
gwcHBATkyZNHWUyL3NasWXPt2rV6qaZ4lPOdLxClE8+cOQMfg7Rv3LjRUXoK
Afw7bha+244dO6pVq+bp6SlqWqBAAZg8Da55hL6G733wwQfK6mLoJSOO6/iD
pUuXxgFRbqZN+BdthUdQtmxZHB9xXSwQpWE/++wzvEXNGKHjPvroI/xE87HD
myGH+KelSpVCkhmMCPP333+PKH777bd8gho1adKEtznVgIZgmLdp0wbF6PIb
bty44e/vD9UUfzI0GCAME3UdXVMatPy0adNQm4wv4Qt4eXkpk0pqPH369Msv
v1y3bp1QmHyOzkKFbtu2zQX3kEIuW7aMnkJUlAHi4eFRvnx5fEZDJyIbBrol
JCSyG9DeaPIePXpAICE5Q4cOxTC1bdvWcEMQiigyMhLlgxuukFVM2yeffMJF
XiIMnB4iHlK0aNENGzaoyc/Fixf9/PywnvpHUJ78SzGLfA6N2rBhQ/Rt7969
a9SooS4hFKJRo0bc4IhCY1awUHYWzEOMld2+WLratWvD2zWfgwM0bdpUBHnc
C9GAQ4YMcXn2ja45efKkshb30KFDNK+h8bICLCCEbe7cucKcvXr1qlmzZobL
OLdv3w5PsL4kAHOGhYUDCLsm3gy91L/5yZMnECTNFmwq2L1799atW9uJi/Js
48aNEWnojYm9prux6fTLO1wg+vjxY8bs2LFjd+3atXz5csQvX758U6ZMMaw+
vRAYGMgN+/fvVy7+9NNPhQsXhiIaDkMB2E6LFi1ggOqUFEImEQM9W0PYgoKC
6ETFYRQLRCdOnAgFwq0YNGiQOnhuJW6G24tTgxuLR6nxQ1Fi+La4mRC/Pn36
2F9LTOshhJs2bbLzEtQplVJya/CLj48Pw0Fzm7NKg2aH3ZUsWVL0BX/iI5cr
V06/QJR2mDVr1t69ezWP49FDDu3koBBzAQwQPBeTILazgW4JCYn3GlBEF6aQ
eApTMmPGDIVAomG2bNmSP3/+ypUr68NK/BfljIlRz4BzEdPwwQcfYJKUAIgG
N2/ehB5cvnxZ8/Xp06fzIVToiRMn1KEYCB4cA36rVErEEzC4PAWfhEStWrUK
VrZz504RN+MKChZrpV/TJchJVFSUu2KVQsFSX43yF6a5S5cuble8VLBOnTpu
pLjwt7Jly/bv3981qw2PxcgePXpU/Hnr1q0SJUrExMTo74RJQkQXL15ska3t
27cP8VNWhN6+fVsTc1OAOUbq9N4HLAtm5SjHlxVAbCgzLzfPSZuQkEAjuGWB
KJLsKFGnCfABkUO1N8FLgoODYQg4BfoJX7jfV199FRoaqvYLuAhv55G+ffsa
OpJi1ON7asityMNA+/MG+JU6Xyg+QpUqVVAsSqfTSrTVwYMH+Z2Ry2hlFKMu
jhw5wj1LliwpVaoUCoc/kSV9Gc6cOVOhQgV0haPkbHyxevXqdBmvMm+0DEF5
EL9WrVrZSX2Jqhk3blzdunWVdQIrVqyAJ9+4cUP/OaeUxtOnT6tVq6bMIiGr
Xbt27dixo95FRWlAfeH/mnU4z549o61w7hzFDayAJkJmKLbJSywGuiUkJHIG
Ll68iDVxNr8NVr5Xr16aJVVoth49eqBkQkJCLO5AF5NQuXPnNtwrhObEOOot
iAizQDixpxEREeojBcUCUXXcFeqLUo2NjU1LV7AlS5aMj4/n4vfff4+WgxFB
hE6dOrVu3brExETNh2C5mEW9CbCOc+fOYaaVhawiPFu0aNGrV69q7sSYYi7V
ESf7oILTpk1D57u8AJU3wOWwjApbwHBjobC2LvAfTCesHmKgnNW4Y8cOaMbZ
s2cN78dBwCJbybZNOSdOnFisWDGlYell+l3/ZhEX4qO8XENxcUYQDwTbip29
e/cunK1fv37K9u00B0SUxodOY/TDwsKgZCIopLfyLkBQEc2krRVs2LABsqd5
CoJXpkwZLy8vZX1mhkA2cuXKBeE3XNLA4EIV6EOsjD5G/e7duxnalF+tKxhx
Yl+S+FNU8MMPPxTLBmhGxiPtBiM9fvw45Z8wYQJeJ+IUGRmpl5MLFy5AU8uV
K6cfbgpE9rZChQrZd9ZQPo0bNzb0fayD5mrSpMngwYOFo8dPfueK/ki4NCeV
RlJSUoECBWhD8ScDmWcND6uiX2g0ZFuzY51x0a1bN4TEUdxADcQeOUfso6Oj
1e/RE1Gxt4vP9ezZU2h7uUBUQuIfhTNnznz66afOLo7asmWLn59faGioRj3G
xMRghevUqWNx2T+Gu3v37uilDh06aMgSChkrpoTO1MB2YHdw7XGZ0a7qf6HH
oB/qBaLbtm0rX768iJagD/ulg5KL1UeQ2LZt28JpscuawAImgOtBQUF2FvLR
IN7e3iKek/bfmUdDEsJXoECKAXIL+EqNGjXMEwKYQyzprFevnmLlBVsbOnSo
C9muxNs+//xz0deCPVJCemHXrl16IYTs0Vb0YIZvFpHwmjVrCpeKN0+ePLlW
rVoUG0ZqUbzFLDDU12KWLZw4jHLhwoVPnjwpruiJqMiQwxUoiuh06o7IYaD/
/PPPrVu32slOw8u//vrrr776yqm+QMAGDBgACWGYqLkovdOuXTsG4/jx4y0y
W5GXAC6qj2kzEvG5NOfOC9BHtACje8qUKeqBQHXmz59ftmxZZbWqKCpDRkTt
4JMNGzakeNAnIUJHjhzhCnSUumgIVUpKCl0Jr1Z2/TgC1BHJsb9AFEmrWLGi
zWWNuL2+vr4KXUQUqQVUmV8YCJqOdkppwPyLFCminE517NgxPnT48GHcZIsk
XPjR+fPnN1TLeiDhEE4kavr06YpE6Yko/gIuJGVT0plmGOiWkJDISXCNiK5c
uRLbiurQhCsxrB4eHh9++KH1xHRwWh5BEalfhd2ZOnUq/zKZlk1NTdVPKkEA
/P391ZP1qDt1TAZ9iO1Th7zEOXd6yytmshYtWmSxIoa4fPnyrFmzlHKiWjFV
3377raGhx5oHBASY7xlxCnv27IEnmISDMgSNs27dOnVoYv369bzTUQzTHGKB
qJJ4BwPEq7p16/bo0SO9I5CWztnwUPr06WMlREnr4QEJwkyzlytXjjc/efIE
I2gYTRLAgisy9vDhQ4glbovFWKWwy1hVZFV0qJ6IUgWId+7cuWlGcQVhg9hT
XwgAHNVO9lrXiCiFpAsotiZJI03Rv39/MdVu0RuiXyCKPNKqVSv1q/BWYEcm
FILmoh00o5uC0WVwVLVPilSoPcE3b94wMNUP8l/9QmLKD3mjYL17985wdTQi
PXDgQDvTzWnpwjB8+HAK78JMgRpCha5YsSItvZXQP56enogTvNFw45t1pYFW
rFChgog2MyJ69OhRokQJaHN0dLRJzhDKoAgDv9CeFG/Hjh0Wq4PqoPz169d/
8eKFuKInorBuruBuiCsZBrolJCRyGFwjotiCsLAwFIhGyf/www9Y4Ro1aigv
xKasWrVq1KhRsbGxhtYNo1+lShUU0Zw5c4SaRaUvWLAADWzRvGKq1qxZc/36
db7VtWvXTp062bQFAocPH/b19T1x4oSjG1D+UVFRGGKIpb4B4ZyYZmq0ffv2
cePGof83bdpEU8OLHBXvp59+4ovqDIp2gD4PDQ1VmwANKB4meMiQIXSl/tRR
eILYzkPzzpw5c+7cuUePHoX2NGjQQJ1JRvnWyZMnMf0QMyypxqbzJ70j8sZ4
eXlBPkNCQmbPnj1t2jSYGCWcNGmS4THiYjHwRx99ZEU+cTcgPyNGjIiIiJg8
eTIiJPYaK+FoNe7cuQN/gyIOGjRo5MiR3A9JxhzjWyGNhnE8PQQPFOsqhWzr
iaiIaBUoUEAJ3XMnlWrXrt348ePt+AhprhLRtHRJCw4OpkPV/chYhvZTHXXq
M2QAzowAX7x40fBV8fHxefPmpd2UPSy///77sGHDrGc8gAvh2EKNbty4UbZs
2WXLltnfw5WcnEyRChUqRE0zvBlapZ5DcQ3Uunbt2lOmTHEUTLaiLsQCUZhb
rVq1GCDh4eFLlizBEevevTuSbOjdW1cavBwSSBczllHIqCMcIj43f/58/aQP
hUG9I6Xww9GjRzNGYMKoghYtWlC83bt3W2qU9LVJ3t7eeIXKahwNERXTIlxR
rzAxCXRLSEjkPLhGRA2BNkNnolIwQ4pdhg8kJCSIbC2G20DEGi2eCgwMTE1N
Re1s3LgRLmF9Qpz3Y3RQWWh4WI0+jYxr+P7770uVKmW4GopC8jkUrJKKBPai
XiYHi8N8K4E4jBTkbc+ePeZ5IzFVZcqUcde5z9Ddli1bYsIMQz30SJ06dZTy
ww83b96sfFeEYhTuwXVIAgwTtqmfSsY8DR8+XMnSAyC36qAWT+GM0NHY1kqV
Kj1Mh7J4g0432ahOqYoWLWp9o+6zZ88UYebN+m0jFEMkoomJiVE8I7hQZGQk
7oyHhwcW0PpWfXgC9cX3EY2sJ6KUp1q1aoULF2agqR+kyvYzx7pMRA1x7969
gIAAWKVyujfkAWZ19+5d2oqOMxwLIvG4Mv0qtjVpNlybQAx/hg/tAzkZOnSo
/f16YlGNCPlm2bbrK1euFC9efMOGDfp/WVcXoEmTJjQCv9DswmOlVfGMHAVs
nVUaNAiPCIHB9dCElwVwSyHVcGZlkFISPgHdLV++PPT+1KlTVr6Vlq5nGL8+
Pj5K4hENEaUksFyuiJOzlAcNA90SEhI5Em4kolevXvXz8ytZsqSyN2f//v0r
V65EvUBp4Ip4uIbhArGKHhw9ehRWOWbMGJO5VD0w6HBX3OoVK1bY2a+qBupx
xIgRjrJQHjx4sESJEtxAyaksxAaXf9CgQYqxgLPt3LnT2Y+KE6BcW36pByam
atWqoaGhhqsOGjRo0Lx5823btmFAoQ1t2rSBaSgTfFhJ7IIVXwCjT7dCYPA4
Lly4cPr06bCwMPpaSVtK78ycOROrKgJuXbt2dWrNLS3M2zJc5mcRNOzcuXOR
tE2bNqmtntjfzUDAIPbr18/6Ml2IR+7cuVu3bq3sRNYQ0ZSUFEgvFMVOMnBH
cCMRFXu4cuXK1bFjR0HeaARefunSJf6Fi+doZaDIBEu71a1bFz+LvobPO+VJ
IXXz5s0TUXG3SL5Y60uRlCxhWQAGEYJqmNbMurrA3eNOpxZ1u1dpAEimv7+/
PnkClLJXr1758uVDnjWpz0yA84I7r96eqSGi4ihPrhimzpCQkPgnwF1EFJqB
7ipYsKCyfAg9Fh4efu/evbT0wFGePHlWr15t+CzsUSQUhRrxkuywKAgl2blz
52bNmukpMZo/KChIM+ELc2vZsqXIUPrixQsq7sIpLSKGCSe0mPMT0wOlvHz5
suHmGrifr6+v3hbDHKKioqZPn64mhHTWsGHDxIZfbli4cKGyAcccJ06cEIs8
lSsi/tOnTx9hyKCmcFTeCSUrX768s6erUzvsOxzJ+iMmiI+Ph1ANGTJEH18S
3hBCGB0dbb2EtBIyryTb0RNRMd2v7KJyL9xIRJGWihUr4nmJAZuWTorExARi
2bZtWxxMR9n+k5OTCxcu7OnpybhA3ty42841IJN0ipeXl+GqDJdhPtxQbnS0
fomLU+oCx5Axa7JiUw9nlYY5GKQ1atSoXLmyftGpyIOnXw9sjtTU1Pr166u9
GA0RFSlQ6CzDxTkSEhI5Cdgs+N4zHRISEgIDA3FXNdehpta1DS/Hi8cYqVPi
QOEOHDiA9n79+jWqsmzZso5OG1GyHGMKs8keSUhU63To508xFoZcBe4hqg/b
2bBhgwuhGIx+u3btDNmvIRITE7nZw8NDn+w6LT1AXbRoUf1mq/v37w8fPlwf
OoZ4hISEYNewQVOnTrWyzhZTMmHCBP3GJRpt7Nix165d44aZM2eKxRK8Fi/D
2YUTmOzixYu7JbSFJW3YsCE2Udmcq4YgonAJR4shDcEwgbzxlCAPeiLKuMid
O3dwcLBNesbjcBXNIIUXTZ48GQ/i8ePHmn/Be61/kZHeq1cvRp96zSo0SZwJ
S9UQJG5wFMpW0vj379/fLcuzbQI/CLfXz8/PtXOyHMF8uDHQDNOyOaUudu/e
HRoa6lQiBWeVhglEtjf6MSwsTD+NIkKvGR7WoAH6f9y4cTylHN+gIaK3b98u
VaoU1Nd+NjMJCYlsjuTk5DJlyuTTAb2KWvD09NRcx0Vt0KCBxV0bWPaAgABU
q+HM+88//+zt7T1kyBBHllEs0acYWNVsksEY8ty8efO2bdsaZns23P5z586d
GTNmYJT56ZpSRTN36tSpUaNG1g/3+eGHH0qUKGHI3sVyiGXLlmmuw50M78ei
YYYePnyIHbe4YYpH+Ipht8bGxsbFxUFubYbIRFxXs37MNezduzdv3rzVq1c3
DLmLc2DpdKcMujiSkgfFCkkNEUWKWrVqhfBnGF7mTiwyxMlQ/sVBsYUKFdKP
31zp0F+HVENprERK6R38jpo1a165csWwgjQ++sFkozSkl8f5oltS9NsH5J8u
cNTRalC7o0ePWg9WOxpuYvVCsWLF9AswMk9dCLigNBxBLObRnJ+lAPn09/dH
pQj3xDpQEQxhsQUg7f8SUZGwi86KjIw01/zcnJKSgojaX1ktISGR3WB/ah69
VLduXUdnEKNepkyZgnLbt2+fozeIJfoYO2WXhBq8dvHixb169eLnunXrNvwX
WEb7utcRRES0ZcuW1iM8FAZ1il2Ljo52jU6L4IYmqY4JoBCDBg1yFAwREVEK
Y/HrtDN29vDhw3AqF9YVaHDu3Dn6ixdanOJ3BIw+9h1rZZOI0iPjx49X73BX
gytcz5Mnj5JkyTpo/O7du9PUSUlJaiLKFyk2Ug2HNCeESE54eLiPj0/Tpk2d
pcE2p+YpJN3E6HMUPBQnRFSrVs3EJz179mzhwoWrVKniaC8e5cQbpR0Qraio
KPcGKvXYuXMn/rWjBd5qcMOYMWMspo01H26LFi2CpBmSeUPYVxcCzioNEyQm
JubPn798+fKG2/PR8LRqjx49nF0DIBQLPiD1pQ3VRBTrU7JkSZw18y6gffCO
69Spg09n54BRCQmJ7AmbRBSbghpRk0yRyUfZrMqba9asaZ7i/ubNm7jMpUqV
Mpy7F/r/XzrAEt21NUkPlCSqEgNtnetiESZPngyjcGpuVw2xXAomY3E7D01K
wzpKP05j+vv7Y/etUzi0PV7DihUr7Icfb9++DUHibTZnDH/55Rfsu3Jwp8tA
inr27InYGCaGpa0CAgJoTNcGAtIeERFRsWJFeh/aJiY3+/fvzxU8JissUSzA
M5wSNYFNIiqO5UXe1AsCGVOnT59WBODgwYNeXl7mKe5F0jYlD6T+K5s3b166
dKmQ6hs3bnTq1ClTY6e//vorfkHZsmUz3FNDwaxvrTIfbrgeCKr1/Lr21YWA
s0rDBAx/9c47NURGlAIFChjuxsoQtFhcXByGAJdNJDTA50I1MejGjh1rZXe8
2BNXu3btzFhrLSEh8W5hh4g+efIE7aRZcYdWQWMos1EizaCYuESHKEeiqCF8
bYiloVOPlR81atShQ4du3bp1Px2Qk4EDB9rMwWgOSouGtDK7p0AkjRkwYIDL
oQlh6UaMGKHhFZC6adOmcX3JkiWnTp1SkhKcP3++ePHitC18jybCjqhjfbR2
jRo11KedZoitW7c2aNDALQ0LB/jkk09EzgQ770lMTIRUWE8H5Ai0TN++fREz
fTYDSjhnzpx8+fKp9+b//fffyKpyhXuQQH0CVTUw1txTtWpVkUf9+PHj1mNH
iLSfn5+VM6Q0JbdDRBm5jF/NvHBycrI4/TbtvyKtZONMSkqCuWleIg4/osoL
FiwwbBzeL04WUK7AfgcPHmwzgbwJxKJ0OtR8hQn6ZNy4cRpnVmS7HTNmDAOH
xxMSEhQP2ny4wdghotaP6LWvLgQcKQ0XEBsbmydPniFDhuhfBcGmdhRY3WtU
ltZQhBxvDpfEpDqIx/Xr10WKv2rVqqFtrNsdXkufGk5nSEhIvO9wmYiiwFHj
WFv9C9GKSo644cOHFy5cWGS3RrHr4w9o/rCwMJMFomja5cuXKwoQRfTdd9/t
2bPH2QI7i8WLFzu134GCoWPtnDQtUp1AA5QrtBXavmHDhnAGGofWy58//8SJ
E0VDrVixIleuXEOHDoX804ONGzdWpzGE8Ldp06ZTp07WQyU8HhQU5JZVWNQF
Tiv2BdsBRcL6X7582X6Rli5dip3VZ3q8dOlSyZIlR44cqW6oGzdu+Pv7r1q1
SvwpIpYZnuou5kk1Z81bAfdTBmdTPNkhohcuXIBrafwssZxg/fr14s+nT59W
qVIFuXr58iXiDTPXTz2LRO4mC0ThJxUqVFCfCkSrKqmGMwm4DIyUzp07O+JF
Dx48CA0N1az2hFPh8fFUSkqKOA5Y5JQT/zUfbteuXfPx8REnIlmBfXUhoFca
LoMq+Pr66jMPv3r1qkOHDni16kSy4rjeL774QowaEbFkjGS4zoEqa05WsgJx
mKz9mREJCYlsCNeI6Js3b3CcMetFVPD29s6XL5/6rGpxaKA4qgbtHRERoc7z
IwDPrF+/voeHh2G6ez0gZvPmzcsCv1gcWZKQkGDxftrkyy+/tEO9YPVQX3W2
RghYmTJlsDLCiIuYjEjRKZY1Kppf5JvCXigBCnEskfqUqwwRExNj3ZKa4+rV
q8HBwTY5rTgyvl69enrrhtGcOXMmkjZjxgyLh/gge7RG165d1et+b9++Xbdu
XaRUk/mcRqaplWw8/ALNMNwurQZCLhKRWdnmrwS6Fy5cSAGcXSCaZoOIQsCq
Vq3q5eWlHr84jAxDdVYBcSQrviTvP3fuHA6gnjzAPwsWLGiSW5LWps1z5849
aNAguuDs2bMdO3a0OR+dIUTCWKpD4TV7hagCqgb1pRmqIpMq7oA4a1jEyam+
WDCZ4XCj63EY1YdSmcO+uhDQKw2lPMuWLYNso3U3bdpkhfVxD74JfE9dKsqJ
j1atWjXNRImQDUXOEd1mzZplGLFkREdGRjJAMDoZSjtDEo1ED6IElixZgjaW
C0QlJHIkXCOi69atw7Lo122CDz74QO3mHz58uHr16lBHVJyaMKC+Vq5ciTVU
DhzBFMITzOnos2fP0Evm5xO5C3zro48+sn5kCZoZy+LyslW+AuHki8quECza
qFGj/P39lUDZmjVrSpQoIf4UU3JKvnqxqUSzvgvSzv0WtTcWBF5n/WRGc+zc
udPZlKF6/PXXX9QIO6g27pQTwhAYGEhRqTtS1KRJE4srx2gKpPGLL77YsWMH
komNpsHnz5+v2ZIm0jgo2UHT0qNhdMSNGzcMX0un9+3bF5dBPSgKFCiAeBsu
TtAEulevXg0nNDx6wBwunzUfFBRkOHgB9FuJE4oN9S1atEAyw8LC1Mu8YRFD
hw6Ff3p6evJUrly5IDCfffYZ7Fr/RQYsXJTbcFQh6sohO5kKGhNvomzZshRs
4sSJmzdvRrdMmTKlTZs2UVFR+rXfjDvoFvRSOZuAMsOZBdXMcLjRBag462mU
bKoLAb3SEGBoNGrUaNGiRfTgr7/+Cn+2mKWTevXu3ZsxAgPExVi+fDn9hZek
P1SLFyIqCgFGZlA1jpLSiz1xVapUQc4VScuTJw+9g0dgePrVgwcP2rVrR0/R
wnidlSpVsrL7TEJC4n2EG09WcgQYXXJysv3z2kSMAvKQNSme+MqECRM+//xz
i4u4Dhw4YGfCEX0LQQoJCVFIhUjcRwGEseN6cHCwsn8K++Lr66vwdjEzCCdR
Nw7WExukBFTNQTdhhfWJrF0ARYXT6tcTOguIX4UKFdQr/ajI+vXr/fz8xKpF
2AJcHaZqPfRKb27fvn3SpEmRkZFxcXGGe+hoYdp58ODBojf5ye9csZ+qUcAk
0O0U3HvEpyEQJ3rBUZIui4CIMpT69OkDV4GBtG3b1lFKYbcDCYEszZo1a+zY
sTNmzNi7d6+j4SwSycKXlDJXrlxZ2etnZbglJibCzJUl3OawqS4E9EojLZ0T
VqxYkcqKsiHtzZs3t77EiKfgsbQY7B3PF7fX0JOiZRibygwXnh0ybH2vljmg
pugiXAbBUUW4dcCAAXKBqIREjsTVq1d79uz5XpzqizvcsGFDk3yGbgcsHZVu
JaKI9oYhf/PNNy7HACEnVapUgbErVzCFXFGMnVimKLLN0AgnTpyAzAjNLzJc
FSlS5PTp0+p3cn327NktW7a0wqCOHz+OUXML13rx4kW7du1szqNR+IULF2JD
1VEjkYShS5cubjlHxhGgXrAOhZPQ4HXr1oXJ8Mu2bdtssj7zQLdTEIlx6OJs
kn3XEHAVmCcSS2npPrwGDw8PnN/spnN2797NCFIih8eOHYNZQRchloxKRlaG
ww3/pUWLFjjLGSoB++pCQK80kC40RsmSJTP1ZBCxQFTxkakOrLVGjRpPnz7d
tWuX/bDGvn378ufPr6wIvX37dunSpe2vp5WQkJCwif379/v5+bnL6baCt2/f
YjetJAaHv3Xq1MnlU+pEttWBAweq+dWbN29ghjBPvs4NK1asyJs378qVK2GM
q1atun//fr169ZKSktLS819VrVp17ty5+nKmpKQEBgZmeNYhBhGzOGHCBLdQ
mvPnz8N+bc6jPX/+vFmzZps2bVJfFKc3QlBtlS8jbN26FbIklsvSIIsWLfL0
9Fy7di3kRL3pxjU4CnS7K9yarSAS/vft21fZCMaVjRs3wvGySfZ7BdeuXVPC
7/RFjx490DaMrOjo6EuXLj18+NDKcIuLi2vcuHGGqTZsqgsBQ6WhrBnI1COu
xALRjh07im69cOECRFEc9TtjxgzDqXbrELS2WLFiyqrU+Ph4Hx+frNT8EhIS
EnqIE17QTo7W6WUSfvvtN0hChnsruK1p06Yuz2tfuXIF+6XPm8R3W7VqJSYW
ly5dikEPCgqaNGkSZpEGgaTx5/z58/m5efNmRxxy/fr1Xbt2Nec52LLevXvH
xsa6Vn4N4MkmB2lZAbVbtmxZr169NBOp2G5vb2/MvfoiFbef+FT9tnHjxsE8
a9WqNXv27PDw8CVLlvTp06d79+60vGGub6egD3TDHPiiCHRn3iT7O4HIiQFf
0qwY+fTTTxMTE99hwfSghMuXL+/QoQMMc9SoUQwumCf9wviCblkcbjgXgwYN
ynAxjE11IWCoNMQpV19++aVakCiMe2PmDEMvLy/IZ0hICGNk2rRp8+bNQ4wZ
IPaPjKfkw4YNoxbCkxU7FhmM0HsYaaauIpOQkJAwgcgD6evrm2WryxRAD/i0
OZHbv38/Bsi1+WK4Fs9i5gyNFxXHYAk+hk5++vSpOssQ1yE25laPUkF7Fi9e
bHIbSr59+/ZuOfIGOwL3WLNmjZ2XYGQpj3568fHjx5gk9STd5cuXsYbW071m
CHHO19ChQ/kFYRORJdHybkl9qQ9058uXb926dSdOnIDAu5FRZxPs3LmzefPm
6t00Fy5cgNhbPM8oi/H69WuGm2BxDByKre4RK8Pt3r17GaYFsKMulJIYKg3U
xciRI5UtV2npCwZwBEQs1y0QC34qVar0MB3KKuvU1FR3HXUXExNTp04dMagZ
4OXKlROpaKdPn54jJw4kJCTeC6Bgg4KCypQpk+FpKW4HVgkWFxERYZKQE7tz
6tQpF14u0jMuWLAgU9fhv3jxAmZlcsoqN2zbts0tREucomJyImSG4NmBAweK
7Uh6YFLbtGkzd+7c6Ojo0NDQqKgoN7LQtPQFoiVKlLBJpM1hEujOvI++KyDY
DJ927dpt2LDh5MmT/B4cHGw/bVF2xpkzZ2DaJr3psroQMFcaOGv9+vXDO4PO
TZ06lTHi3klt+HOHDh26du1q/ywnR4DQDh48eMSIEWjdyZMnU1ORxTfDJUYS
EhISmYpbt25hyN7Jvgxx3opbdpRr8OjRo4SEhCyYkEW3x8fHuyVZfWYDG21+
ZjfdQbvBPzMjfggh9/X1vXTpktvfrIZ5oDvn4Y8//jhw4MDmzZtp2H/C3meY
Nsoqk+LbVpRGamrq/fv3M6OpU1JSypcvbz85W4ZggCsT8VQn8w50lpCQkJCQ
yD7YvXt3aGiozYMXJSRyKnCgBg4ceO3atXddEAkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCYnMwv8HyaqOWQ==
     
     "], {{0, 175.}, {899., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{668.5999999999976, Automatic},
   ImageSizeRaw->{899., 175.},
   PlotRange->{{0, 899.}, {0, 175.}}]], "Input",ExpressionUUID->
  "3ccae081-c071-4519-9d92-9e84490af106"],
 ", FieldNumber = 14"
}], "Subsubsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
   3.831837565561267*^9, 3.831837565717546*^9}, 3.8318376089841914`*^9, {
   3.8329479164930973`*^9, 3.832947916789883*^9}, {3.8329597477059917`*^9, 
   3.8329597735868235`*^9}, {3.83295989665702*^9, 3.8329598970215206`*^9}, {
   3.8329603030246444`*^9, 
   3.8329603106335955`*^9}},ExpressionUUID->"e1034276-ffae-4f7b-89e4-\
b80c2645e528"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"-", 
      FractionBox["1", "4"]}], ",", "0", ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "2"}], ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{"3", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "3"}], "/", "8"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"3", "/", "4"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "8"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "8"}], ",", 
     RowBox[{
      RowBox[{"-", "3"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", "0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
   3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.831831302775831*^9, 
   3.8318313425712132`*^9}, {3.831831417571769*^9, 3.8318314249331074`*^9}, {
   3.8318360089626865`*^9, 3.8318360258726*^9}, {3.83183697293332*^9, 
   3.831836980278759*^9}, {3.8318373329155426`*^9, 3.8318373882613344`*^9}, {
   3.832947939008093*^9, 3.832947950335035*^9}, {3.832948656116955*^9, 
   3.8329487410535097`*^9}, {3.832948894769576*^9, 3.8329489277416515`*^9}, {
   3.8329599272668066`*^9, 3.8329600296417837`*^9}, {3.8329603682264347`*^9, 
   3.8329604517383823`*^9}, 3.8329604834824495`*^9},
 CellLabel->
  "In[454]:=",ExpressionUUID->"075cd1ba-1816-4b6a-b215-8329afd815cf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318348118468747`*^9, 3.831834815644092*^9}, {
   3.832960523562337*^9, 3.832960523741064*^9}},
 CellLabel->
  "In[458]:=",ExpressionUUID->"2a84e1de-5823-45cf-90c2-63f7c644f6eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, {3.8318348123779774`*^9, 3.8318348160189466`*^9}, 
   3.8318354324495916`*^9, 3.8318355280734353`*^9, 3.831836057734417*^9, 
   3.831836224616662*^9, 3.8318369940172477`*^9, {3.83183739467624*^9, 
   3.8318374223770795`*^9}, 3.8318397993831377`*^9, 3.8329475119105663`*^9, 
   3.832948941291499*^9, 3.832958613181907*^9, 3.8329601162808743`*^9, {
   3.8329605254665337`*^9, 3.832960543731526*^9}, 3.832960592654311*^9, 
   3.8329618498239155`*^9, 3.845826949485787*^9, 3.8458525392722263`*^9, 
   3.845857147258119*^9, 3.8459196994666786`*^9, 3.8460066512086325`*^9, 
   3.846099973758096*^9, 3.8474705368876905`*^9, 3.8517007242826014`*^9, 
   3.853975535149358*^9, 3.8549775017096796`*^9, 3.854989346175956*^9, 
   3.854999985166749*^9, 3.8551653443120737`*^9, 3.8551824048050137`*^9, 
   3.8551859468098307`*^9, 3.8553307303657455`*^9, 3.855339930658781*^9, 
   3.8553432708428745`*^9, 3.855344106114377*^9, 3.855352835409786*^9, 
   3.855449691127404*^9, 3.855507689498126*^9, 3.855508491468508*^9, 
   3.8555129862507763`*^9, 3.8555334083145037`*^9, 3.855579007348397*^9, 
   3.855593377661274*^9, 3.8557506892935514`*^9},
 CellLabel->
  "Out[459]=",ExpressionUUID->"2d6ff930-4e57-49f7-b78a-0b10c46d8065"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDDRHSY", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "1", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "cc", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "2", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "3", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"CommuteGamma", "[", 
            RowBox[{"nu", ",", "mu"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "4", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGammadown", "[", 
              RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "5", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{"\[Gamma]5", "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "6", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]5", ".", 
             RowBox[{"CommuteGamma", "[", 
              RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "7", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"\[Gamma]5down", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", " ", "I", " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", "8", "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
          RowBox[{"Cmetric", "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
          RowBox[{
           RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], 
             "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}, 3.832948966605893*^9, {3.8329490066212797`*^9, 
   3.832949165343768*^9}, {3.8329492191094065`*^9, 3.832949345931453*^9}, {
   3.8329493910452533`*^9, 3.83294939649691*^9}, {3.8329494596448545`*^9, 
   3.8329495059992666`*^9}, {3.832949539592924*^9, 3.832949618672328*^9}, {
   3.832949652028014*^9, 3.8329497369508505`*^9}, {3.832949808347021*^9, 
   3.832949837440094*^9}, {3.832960121550168*^9, 3.8329602308458614`*^9}, {
   3.8329603145414653`*^9, 3.8329603236597786`*^9}, {3.832960581605524*^9, 
   3.8329605819570613`*^9}},
 CellLabel->
  "In[460]:=",ExpressionUUID->"f69c30bc-8b5c-46fb-8ce0-ecbda48faa22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDDResultY", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HoloraumyDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"HoloraumyDDRHSY", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}, 3.8329497831714077`*^9, 3.8329586005652723`*^9, {
   3.8329605855551834`*^9, 3.8329605891063766`*^9}},
 CellLabel->
  "In[461]:=",ExpressionUUID->"987089b7-531b-4cf3-84a1-1f514a4c8813"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, 
   3.831835435398642*^9, 3.8318355330585437`*^9, 3.831835717106969*^9, 
   3.8318357717602043`*^9, 3.83183606388894*^9, 3.831837000246211*^9, {
   3.8318374034065166`*^9, 3.831837427619596*^9}, 3.8318398044711704`*^9, 
   3.8329475172572937`*^9, 3.832949798211484*^9, 3.832949843855173*^9, 
   3.8329586178151646`*^9, 3.8329602499819965`*^9, {3.8329605364041986`*^9, 
   3.8329605484110737`*^9}, 3.832960597585552*^9, 3.8329618546375065`*^9, 
   3.845826955056219*^9, 3.845852544850482*^9, 3.845857152885447*^9, 
   3.845919705328029*^9, 3.846006655988367*^9, 3.8460999795635023`*^9, 
   3.847470542560743*^9, 3.851700730447178*^9, 3.853975540709332*^9, 
   3.854977511129242*^9, 3.854989351465144*^9, 3.8549999907203517`*^9, 
   3.8551653500778627`*^9, 3.8551824105555115`*^9, 3.855185952109618*^9, 
   3.8553307359922676`*^9, 3.855339936283269*^9, 3.8553432765025773`*^9, 
   3.8553441121476955`*^9, 3.8553528420058947`*^9, 3.8554496962752523`*^9, 
   3.855507694862768*^9, 3.855508497116829*^9, 3.855512992089878*^9, 
   3.855533413814001*^9, 3.8555790131006145`*^9, 3.8555933831317415`*^9, 
   3.8557506949378786`*^9},
 CellLabel->
  "Out[461]=",ExpressionUUID->"8fbf0609-055a-4295-8e46-f608b6264ac7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", 
   "\[Kappa]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}, {
   3.8329497659203863`*^9, 3.8329497726326275`*^9}},
 CellLabel->
  "In[462]:=",ExpressionUUID->"5254ecbc-057a-4e43-af40-38c9115f9b02"]
}, Closed]],

Cell["\<\
Algebra in W-basis: recall W is coded as the function X[xx][ii,jj,kk,ll], the \
same used for X above\
\>", "Subsubsection",
 CellChangeTimes->{
  3.832959781753699*^9, {3.8329606159546924`*^9, 3.8329606194094057`*^9}, {
   3.832960908008184*^9, 
   3.832960957624942*^9}},ExpressionUUID->"6b867420-4f62-489a-83aa-\
ed0a3ee8d24e"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQVwVVfb/g0UL1YgTSBQEpxixQkUC6W4a3AJmmIhuIXiECwtENzdvYPD
AxSbUKzAQIsM0jI8lIHytp2n7+T/+7K+Z81+9z5nn33O2ScJdF0zMDlb177X
Lde9NLjn4FZ90qRKlWpYRv5r1WNkncjIHqNb5+BH20HD+vcd1Du84aCo3n17
R1bt+QEHD/BvKH/8f38nKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgo
KCgoKCgoKCgoKCj84/HXX38ldxEUFFIi/vd///c///mPydmkLIyCgoI5/v77
b2WVCgrJgmfPnkVFRQUFBaVKlcrPzy8yMvLx48faCy5duhQWFsb/yVVCBYXk
wvnz51u2bJk9e/bUqVOXLl16+fLlf/zxhzwLz1y1alXfvn1/++23ZCykgoIC
+PPPP1euXFm5cuV06dJlyJChSZMmZ8+e1XLL58+fDx06dNGiRYpwKijYDszq
wIED1apVGz9+PKHz+++/nzJlSmBgYLZs2fr3779ly5Zt27aFh4eHhoZeuHAh
uQurYAnU6S+//HL16tUHDx4Yz759+/b27ducVS3SLoGsoqOja9euDY28du3a
wYMHe/bsSZwqWrQoZrJv376lS5c2aNCgd+/exKnkLmwKAmH9/v378fHxr169
Mp598eIF6vfzzz8nfcFSPshQLl68ePjwYfJ3k1ZxX4Bag30dOXIEVU/K99oI
tI7sr1OnTgQ1vmL16tXVq1dPkyYNRrpkyRIMdtKkSSEhIXFxcUksWwWFfwhw
X1DHn376SXuQQBATE1OmTJkcOXLUqFEjNjb2zZs3Jg+5c+fO6NGjISo+LqwZ
zHnUewCqYPr06bt27dIl1/zcs2cPp37//XdxhFDeokWLtGnTQod0F//xxx/T
pk3Lnz9/kSJFHj16lHSlfweB6BYvXjxjxgwpWAH0HA6JDPPkydOmTRuiv8Pm
jvePON26dWvkyJEYu+44mjlr1iypmX///feaNWvwHtmzZz937pzuYgTStWvX
jBkzQs5VWDcCJ1a8ePFKlSoNGzZMp3i+xq+//tqjR49SpUrVq1fPF88XicaV
K1d89F0vX74cPHgwZFJrj2gjR/iinDlzlihRggt0wU5AJdoK7x+ccYaUj40b
N5YtWzZ5u8VNeNT7ATxh+fLlv/32W93X4ah79erVtm1bbccrPCdXrlz79+83
Pgd/Ts6OrLS9twr24r0kThs2bMDMMTTdcT62QoUKJJ5SM4njkZGRkJNnz54Z
n3Pt2jV/f/+lS5f6vMTvIKCUtWrV+vHHH5OrABCwVq1a2f5YVGL16tXoj8NE
I3mhEm2F9xLOOIOCRZjwqH8U0J+pU6cWKFDAYRMZBzlF8qLUzKf4JxOnV69e
wYvCwsIctvmsXbvWz89PDcx2iPeVUiYkssphw4aVKVPGYaKRvFCJtoKCghbm
POofBbxis2bN8JAOO5j27t2bO3fuI0eOJH3B/lH4JxOnW7du5c2bd8GCBcZT
//nPfyIiIsidf/3116QvWMrHe0wpX79+XadOnc6dO6fAzmWVaCskMZ4/fz5v
3jyymNatW7+7o5ftBVnnnj17IiMj+/Xr53CAigA5af/+/Zs3bz5q1Cjfic6c
R73T+O2332bOnIkM9+/fr/V4HI+Nje3Tp8+MGTPevn0rjz98+LBw4cITJkzg
4sePH48ZM6ZXr14wyf9NBMdd9u9QmwsXLvSRJCnq4sWL796964uHpxC8Z8Tp
+vXrUYnQ1dqNGzdQp27duuk0c8uWLbly5frXv/7F36dPn8Y/DBw4UNz78uXL
qlWrmo8H4FGHDh3Ct9ge3w8ePKgrqi/gTflTIKW0S2i3b98ODAz89ttvvXyO
L6ASbYUkA6a0e/du9I0M69KlS/Aoh5eRef3uBC7b0p1xBl+Dgjkrs8tEknKu
WbMGbkDu2ahRIwpvPmYMDiNmy3799ddWHs41OlEgeeNBCRMeZf4u26HVEPEh
2p+6oeM6of2dCPm3uB3dOHbs2Ny5c8uWLSv7jF69ejV27NizZ8/evHkzf/78
xC/5EDEAgCNXr14dN27c+fPnq1WrRh2J6q5fv755/869e/fatGnDXR5LAHtB
/pLl3rlz55tvvkFP5AWXL18mNbt165bHr3CJN2/eELxIMerWrRsSEtK3b1/4
j8dP+08ijAedabIV4uQjmOuYzn1xSmcg2iPiRqxp5MiRaMWXX345aNAg+QS0
i+NQICq3VKlST58+la8YNmzYp59+islv2rRp/vz5+/bty5kzp+ASYjzAkiVL
TD5h27ZtiO7f//63x0JwBjxteHj4xo0bfeoWvCm/llIi/3nz5jVs2BDjlTk7
JV++fPnkyZM9Vi1z8zRSSm+Ehpsi7eX24cOH8y1+fn7OBlLygZGRkaGhocTZ
mjVr4vQwIndfJ4Fh6lRd+FKHQrOYaCso2IIrV64EBAR89tln0mcagfZOnz69
QIECadKkSZWI7Nmzc0uFREB1YKTly5ePiYkxmokzzuBrPH/+HNeBq0/1X+TL
l08UmJLz98cff9ykSROYiUMzvHv3Ln4JisJzuCUiIsKli+Pi5s2bZ8qUiRBj
fiV8pnr16vgfWbbUqVMTiXC2P/zwg8NbTHiURYHYAhxmxYoVYc6i2NmyZfvi
iy9EX7wg4aVLl06XLp04myVLFnivXGgFTYiKipL35s2bd/v27TDGSZMm4fA7
dOjAo6Tn37x5M0/jDzQH7YI8i+O8Zdq0aVQfZ2fMmEE4QOx49dOnTyck+u1P
PvmEC5xFB+IgfHL9+vUeS4BQBZFr2rSpkLwgGMb2Oj6NF/lo7R1YUI8ePZYt
WyYaWv/880+CJh++YcMGD8Iin7BgwQI40ocffigVkkoMDg4mVjpcJ8cKcfIF
KCqBW+uIAgMDkT8SSEik2QMGDEAOWpNHSlImhNTPP/8cW+MUT8AGUd21a9fu
2rULe+d7Z8+eLS6mconCsHTeCLEsWbKkdI9iIGXLli3Rui1btnABpAUXJ5a6
RS1R14sXLzr7BCyoXr16xnnlduH+/fuQNNGC6gt4WX5dKyVy7t69O7onxcsf
SPurr75y1rhhDpfm6bDj2zOh4W1IYCdOnIgZ4paJg3g/hwHuyJEjHTt25Pni
o/jGTp064Ug9a63FiXXt2hUrSJs2rVR1nC2Jz9KlS40ewEqiraBgF/CoaObA
gQOtmDCBO2vWrDly5NCNoUJpV69ejZIXKlQIDqA95YwzJA2wr/Hjx2Nx+DHd
qx8+fEhqmTFjRqLDkydPdDdCIEW8vnz5MtyPr7Pyuri4OAIWTsZiZMfJwMqQ
p0kMSnDFo5IYojCIFKZNgNCdJbjjuziL0xOBXofvv/8eGoDrExSd/4kCUBQO
wovkZXygaFAiWOfPn//evXviuBgAgMbWrl0boemUFuYJ8XbWvyNK3q1bN203
ursg+qDnkydPFlVMXcBSjAOo+Hb4WHR0tGeR0QS8CLazc+dO7UEKg+4hQ29m
m4rWDOquZs2aDpmkhEvi5FNgyJSQcmK/RvHCdvLkyZM+fXoItvFevvHrr7+G
w2DX4gjKgEjRPaR3/fp17VsS/jtArl27dlKZb926RQ5OBB8yZIjOb6CxcFqT
8QBk3KSxq1at8vDLrWHjxo3QqhcvXtj+ZO/Lr6OUqFmNGjUIDdJ81q1bR7bi
MSV2aZ7OxlK6KzRKjihg18JSxIsgisaGfRIZMmvdGHjSH4pRt25db9oquTck
JARDmDp1qknEcZloKyjYiJUrV37wwQejRo2yEvvIxT5KhMNBg1hNpUqVcubM
idnKg844Q5Jhzpw5GB1s1iGR2L17N4yuWrVqzjoFli1b9vHHH/PhVt7lljAB
rhUKxPPNh96Z86ikB4QwTZo0VapUMXZ+Ud39+vVD4HhRh+26u3btwgFqTwmm
RyAwNn0QxyH8+G057lEMAIiMjIQwlC5dukuXLjJTEIyIs1zjsNhUYtmyZb3k
4fv376fKvvvuO/GTjAmCAb03Xnn+/HleJ6mLXeAroHPGz4TelChRgqDmkMlb
xLfffkvdoWwmD3FJnCwCezRfD9YZKBslpJxki8YoKeSQIUOGHTt2OLx33Lhx
R48e1R6EFQjeaGzGQSdxXHPnzpVHtm7digKgflBTTi1fvlyWAXOoWrVqjx49
nPU/It7Q0FBfdHlrAb2BHVFmeymELeXXUUox0Wn+/PniJ3VXsWLFgQMHejzD
xaV5OqOU7goNP5Y5c2Y5cpIPcRbg+LrUqVMbtYLQky1bNii0xU8zAnWlzDzc
fOEF80RbQcFe2EgpExJ3NsSEixYtquVIJpwhCWBOKSkbFyCB7t27Gy/ACUCN
HHInh3AmTN5CgCMO4i21S6Y7pJQklVxGCky0Es8x4VHJgs2bN6dLl87hunyE
bFgNAm/Tpo0xLjx//nz48OG6u168eEEmgsvlozZu3KhdfxKejy7BAaSfxzEi
MTG0YPHixYgOed67d+/gwYPc/uWXXzZv3pzKWr9+vU5ESJJ6oQq8mZVDMSZO
nFiwYEG54PymTZsoz9mzZ40Xo07wYZejcN0FJhYUFBQWFqb7QNE+nC9fPtmi
awKEAP1GVrNnz9Y+x0gpxVwMXkeFir4Jc+JkEcInDBs2zIP8iPd269aNcjrs
HuXzqSDM0GHPAgnFzJkzdSU/ceIElbhlyxaqVbdw7rZt2zh16tQp8ZPXRUVF
lSxZEh1GRI0TQWSHw+DccI8oZFxcHOZsnL2C8oeEhCRNWk0ZPvvsM2Pnizew
pfw6Sin4uWiTJL/o2LEjfs/j9lUr5mky49u60MTCpDlz5pTjlNATEj2jH6BI
UErKwMN1+oCS5MmTp23btlZyQLSrc+fOmKF2/LxDSolpQ4wx7cGDB798+dJl
oq2gYC/spZRiKijeftCgQdJvm3CGJIA5pUxITI1hR6ScxiUfxUDKfv36WYye
JsLkCfgWmFjlypXlEDsjpUQ4derUwUvwENlmYsKjkqUvg/ciLoiNcSufkydP
lihRAoHD7nQCFwPvjW1HFy9e9Pf33759O4wFmqEV9bFjx8QIUvkELvjkk0/E
YH48J4QTV4lMjh49SrQqV64c/PPy5cvTp0/XVRmXwQS8HP4nRmqhS4KXisjC
Yx8/fgwhMY5GXrFiRbFixZJm3Se+FxOjXmQTjTlghqKtb8yYMVJdjZTy/Pnz
hM4cOXJQ6eKIOXGyCO6aNGkSnNADXkppCZeU0zjegFNTp04VI6iNi/y8evVq
9OjRutUbhFKhSCgzHyU/UzxtxIgR6LOkGWIgpeioRQfq1avXs2dPzBkZon5I
noQaE1i2bBk8XPd2WEehQoV8OmlLAgYCi3DY9e8xbCm/llKKgY5inCqCRRkc
jkGyDivmaUIprQtNNDXInJoXkSmT7FN4pGQyK0EL0VAAibXY2n/hwgUSxmzZ
sh0/flwcMVJKlBnXxxHIv+CQiMIk0VZQsB32UsqE//INlF82x5lwhiSAS0rJ
hw8ZMoRrWrdurev5osDknhYHUia4EqbwIVmyZJE+wUgpkTABMW/evLJF15xH
WSyYvSAZx7P5+fnpmp2JC8TW8ePH49OqV6+uyx3gwJw1+jTcMk5vwIABhG9t
Ks2Hz5gxI3/+/JIDEMc7depE3BFV+cMPP5CqUHfR0dFiFj/Pr1+/PkeMs5yg
soGBgc5mP1mEGKklZ0VBt3hmixYtYCNQWeP4w+vXr1OV1vXHXYhVAsTf/NGu
XTtylk2bNlm8fevWrenTpydpkjmOkVKibxxB5vKIOXGyCG8oJfdS45SqSZMm
uhae+Pj4CRMmwPQ4a9xninAPyTdyYL6oSpUqsE0+VusBjAMpUYAiRYrAPEUx
Fi1ahJ4PHToUSYqlGNBkyIZRGfjM8PBwznrW1+8uMIeGDRu2b9/em1EQWthV
fi2lREQ1a9ZEvKTMqBxcyJtBzgnWzNOEUroltNjY2LJlywoCjNaRX/OiR48e
4YJM2ky0a3qQaRIlg4ODLbYfipwRxR45cqSIL0ZKyScQ6YhB2KY4Yp5oKyjY
DtspJQQASyG0yVEizjhD0sAlpQQE/bRp0xoXEsdUIcMWB1ImuBImroYAhGQ2
btwojhgpJdENQo4TkKmrOY+yWDB7cePGDdFypZulRWBdu3YtuTDfSPatnbyD
K4MfOht1j7i42LhhN14azdF+JnFBG/QJcMRx7Y0vX740ioXnDxo0SMuddIA8
LF++vFu3boMHD/7+++91ZymbUIz9+/dnypSJOIUyI38qGi/NY4cNG+ZwVyPR
Pm973zelhfxAntGKfv369enTh6AsGtCgiORuFp9z7ty57Nmza1ubdZRStPNw
RNtDbUKcrMMbSgkWLFhAqWrXrq3NUDAQKuXKlSti6AVMT2uGT58+xf8461Tl
XuPgFrHS4Lx587TF5glafUM3tDdyiiNG88cHlilThgI4c7O4zYkTJ1LyqVOn
Gpu5cBRutS/xFriNdia1l7Cr/FpKyS2k2CjbN998Y944yUtJwyMiIuBUuBcd
5eMn8YhrrJinCaV0S2j4ma5du/bu3ZtMZPjw4TNnzixfvjwvcrjcB4qEqhOD
unTpgrVyPez34sWLuNCiRYuKtQJcQpiMtnHeSCmJGjjeDz/88PDhw+KIeaKt
oGA7SNvTpEljI6XEaZC+ofkEI+0ihEbOkDSwQikPHToEkcMSYXREySVLlvCB
YlGgxo0bW0/MBaWUWaQOFIBi4AEWL14sjhgp5a5duzJkyBASEqKdCeiSRyUx
iAX4bW1za0Li+AG8K+EVp4pjJ1hoZzzB04g1Vkbd37p1a9GiRdDv69ev58+f
H/Lg/ZcisTp16hBKHLY/UNdCYwUo/Jo1a7QbOqNCFy5cEI1jfNfPiZCEGY7h
bNqmaDk0Nth6AyRJcCd2ywLwdcSaPXv2BAcHZ82a9eTJkxYfxYdjy7lz55Yd
CjpKCd8jAnJELIgqb3RGnKzDS0pJDoihwRa0FJEwSvmRuRh7ox3tKaaWaKcN
OoNgJjt37uSPhQsXet+yLQDRxdJxtsZTlI3PgdtLDYRmaJeXQdSwd3dVCB2m
cu3ab9qu8nuw1DneLzw8XCz9JEDqp00b8UJ4VOrainma757jrtBwepJ/8iKH
0xXFAl+xsbHS++Hixo4dS5Qh9SbltD52lOyGzyckCfM0UkrKU7x48WzZsp05
c0Z7o8NEW0HBF5g/fz5aKlddMIcVSilXNkghW1NZoZRiMR/Rfrh3716SR5wk
FIiYZb2JMuG/81acLWKJNFq2bElhKJI4YqSUoomPpNLLPqCERFePH8PDFLaM
YsWKWVlkGELLlVBfCLB8F/FXpMZipak8efLIeSJwHmKKlVFYYiwuIQmXCLHp
3r27x+1gxgJrF7LWnqpYsWLNmjU3bNhA3IRL1KtXD1HI3nbqCEKF96ZGGjZs
SJZhfXk3MVqsUKFCdjXOQxf9/f2xLF2AwB7btm2bMWNGgpf1oZtUUN68eTFn
yZp0lBKNDQsL44jDKe3ewEtKSTWhfui2bN3C7YwZM4afct0wbE36nxs3bnDQ
SlQV6yJCWg4ePFiqVCnthG5vQIHxKg45LSlYQEBA7969MZ/Lly/DQIKCgrp0
6SLTH3wCjsXdN/I03rhlyxZvi54Iu8rvLqWkBocOHVqgQIGZM2eeP3/+1KlT
gwcPpiRyaVnqlJq9c+eORfM0p5T2Cg3dxp1++OGHq1at0mVkHKlRowZa6myn
eIeA0pNJ1a1bV2iykVLev38fD0BM8WbjAwUFj4EfDg0NzZkzp8W8zC1K2a5d
u3eFUkJgoJRp06YlS8VaV65cGRkZCUdyd7kMonmJEiVgRA5n3YpJx9ouOR2l
lEs+erzSrxY8DZoEQapjGUiJr3b5ajFrCXGtXbtWHMGDRUdHy655nZLA0hcv
XmwxNMPlpk+fLvqq7OovJuL4+fkZ8ya+dOLEiVARbRhCAXr16iVmtnJBTEyM
aIzFXQcHB7u7Ty6hEPvSLnhoDt6OMkBujZGRAsB2ihQpYtwe9Ndffy1fvjya
gzlb7yF98eIF9aid0aOjlDwKApApUyaH3frewEtKeezYsSxZsuTPn18us79u
3bqtW7eKs9Lk5VLwVL3FVTR5FNWNSoilzj0om0PExcXBVYxjKqg4qK+utxS3
gDEK88HWoqKijAvAukR8fDxvlOvzuAQVQXrFXQ5ni9hVfncpJRUtBkPKI6JR
tH379qJyIZmYGHZq0TzNKaW7QjPHtm3bMC7SE2PnCNxV7CwgV9e3AjQTtZdj
ioyUUnSmO1yLQ0HBp0CNz549S75DqLW+6YYVSin4BsZiZceZJIAVSikiFKFT
7tLiMU6fPl24cOFy5codOnTIyKjFaB+cqmh801FKMXowffr0MjimTAimgVQF
78JhwoTxxuIsdDpPnjxQdDFykqAzfPhwD2KijRAsVzYOS1DU8PBwY+IAAxww
YMCbN28gbyNHjhQjH/i7c+fObrVaA0SUPXt2Yyx2CBRAzEgiOOpm08t8ZPDg
wUbOj5BROZeLHuuAeQ4cOJC75DLIOkoplg2ExHrTyooVUPtP/i9gL2gF1J0n
604RDV2moiJ0YjuCnOimR4nBPFWrVhU9nidPniRwJ68vQve0rcES+F6HpAKS
IJadcTalyCWEb7HY/ZSQOPjn888/14709kX50QQYUb9+/VatWuVyFgwXkH0b
V+aBTBJcsEQuGD9+vDBJl+aJeixYsCAsLKxRo0bOrnFXaCbAJCtVqgSl1K4h
ICEoJTp84cIF6898+vRp6dKl5dYYRkq5ZMmSDz74oGfPnimhMUfhnwM0s02b
NnCbggULotvWzccKpcS9BwUF4dIXLVpkU3m9ghVKiRfFlwYEBHi2Q5YOCCck
JIQHylRd4rfffqMkWbNmPXHiRIKBUuJe+FmlShUfbeRnF8SKfEj166+/Rnlg
0fPmzZM859GjR5AQtOvAgQOcXbZsmewfTy4gWPywcVUZDOHmzZvG6/HV8Lef
f/559erV2u3FPQCBVbJrK0BLCXmIV6euou8+Y8aMu3fvNt4F9/P39+cb3d27
HMmQVFauXFkM6NJSSjHjnoA1duxYj9vMuRElQeEzGpAmEcbjhFrtEmQOcfv2
bYotuDqvmD9/vnYEqZjJLnbHE6sQJM06Ts6AJMXSRsZmTzyqQ2PnAyHJUGL+
94zPi5Z53SBYc5D+4AONFmFj+dFqHAI80AqlxAzRT4fsaO3atdQyqR/0zyJ9
EpQSgZj0a3sgNGcQYzO0K1BpgVtA+WvWrOnWEFmxmxg3ioW/dJSSDwwNDcUo
tEPcFRSSDNj7sGHD8OHR0dEWrdIKpRQtfrlz55bNVskLK4sIjRw5kmvq1asn
Ow3Nu4GcAZNfuXIlFKJly5bONsS5fPkylLt69eq4Gi2lxDPXr18fYmB9ekVy
QUxCFzOwRNTQNqmJWYcw6s2bN/NdEJKkWTjFBKKVcvbs2Ravpx4Jr1Bisd6g
N6+OjY01To03AZIk0RNcXXtczCALDg6+f/++8a4NGzYg8NatW7s7BFd8KbGP
aqJatZTyzJkzefLkIUh5uUuOs/d60/Et8lYxs/XKlSsQHi0/EcsmiCWvIR7k
Bcm+FR1eCDWgqBavx6yoET4EpfWMz8MMIYEkBRa/ndrv0qXL559/7pDkJH35
zXHu3Lm5c+eiuvbSJ3eF5gxyYTqHEwo4wvG0adPKpX6sg9pp1aoV3gzN11JK
3kixyaRwHS5tCvJJEkr0SfaN2BTeM6CTbdu2xf1a7PB1SSlR0dGjR2NK2uHZ
yQuXlFKs9KLbFNi8G8gZEEvevHmrVq1q3sxIst+4ceMKFSpMnDhR7PEdExNT
sWLF2rVrW+ceLiEGCvJdqSwDL2dluIJc0L5nz56k/OvWrdN6YLHdrWimxss5
3FlG4uHDh6NGjfJ19nHnzh24uvW91xMS5xSPGDFi4cKF3gQXsfKw7J+1AhSP
dMzYWSbmOMuR+Vpgxe3bt4dfWZnRbAR6Au8qVaoUoapXr15UK/kOsipQoAC1
7IutohO8ppRiEg26vX79emKorvXs+++/z549OzUOKyZbdPYJGCn62TkRZILe
T4gzAUEfMze3BS2o0+HDh0dFRbnVMaoFnoQ3yh0DXUKs1AERckgzkr785oAR
oTxYqL0bZ7grNGeANLZp00Y7E1ML3BHGhbQ9W+JJrNhfqFAhxCvGmA0ePLhj
x44cWbFihUuDgu1zI07G3pUoFBQE4uLiSHMsNvW7pJRiL2+QQpooEyxsyAht
gEo1a9ZMN7nYWTeQCdauXcujHM4sNgIfDpPMlCkTlH7y5MmIzva2lCNHjgwY
MKC3ZfTr12/nzp0uiyEn1dasWROvrhuLSDSpX78+Zzt16jRt2jSHDeDIZ+7c
uS1atKhTpw4S8LJz2SWePXsGA7G+C1JC4jRVSL6XC8iIxopixYrplp5D02Jj
Y8PDwwm7hGkIpJASgkUT8uXLh9KiRdSd7MgWqtWtWzfjJ/AE4iBsUJvE7d69
e8yYMVLniWLos8nMHV6NBkJNqbjixYvz+XYtaejsdd5QSlSuSpUqpC18tXFC
mWj8h1VCiZ0txn7v3r3+/fufPHkSyUMkypQpQ0Lnu0kN+/bto44cDlpwCErF
p2FBsspOnDgBS6lVq5a23xY3y2UOu1b5cBw15qw9KJZI4sOxBYxu7969shEe
Ho7Q0Bksum/fvqQwWsv1vvz24ueff0YBSFrt9ZkOheYB+PwOHTqInhrdKQpM
EpQxY0ZtPYolVeURrhErWZl8HW6Wa/AtYibs0aNHredEYjafw1HZCgpewsal
zolBMISsWbN6sOSF+UvHjh1rcYKDEeaU8tixY/7+/gQUXT+1eTeQM5ivS2mE
wz2+3wkIqWbLls3YMoboBDMpWrSodkNzhxBLNvmaUoq988R2zBZvId9v2bKl
l4u5wfFatWqFUWi7/n/66Sco98SJE3k4ul2kSBG5KRsqSiGR6tKlS+FaUE00
U7RwcqWfn59xaU30s2HDhhBm7SIDYme6pk2biu8VaxkRRFx2YUM7U/3f3XN8
BC8pJaKrW7cuRa1QoYKRUME38ufPL/pKHFo9L42Kipo5c6b8zF27dhHlLbpB
D0D15c6dG/Zr8XphRLoNtTdt2gRPlj1KfAVJh7PpvSgwvkWb2iMKPrBJkyb3
79+H6YWFhYmVeMVZygZF7969+4sXL/DkISEh2lUobSm/jUDbyfhMxl95BqPQ
PMb8+fPJAY0reV68eDFPnjx9+vTR+qLr168ThuR6xYLyafcXcAiRvOv2+LYC
ciiCjr37dSooCLhFKUnqYYxyxpkEEZOstmDBgp988gmpk42ZIz5frOX46aef
erD9Kx8FHeV2sntdvvzgwQO4X+bMmQm+xtH75t1AzuCWMBP+K0/rM4JTDsSk
WqKSMWQT6fr27cvZWbNmudSEpKGUYl8MsZuwxVtiY2OtB1BnEKsfaNf8f/Xq
FTEdfiuaxMUggY4dO4oWIXQyODgYtiOuh5Dj+eW0+n79+gUGBmrDKHZHbCpe
vLiuNVXsTCcnroq3uFwnVhpLjRo1fN0j5iWlFEu8pkuXzuFml2LBZxi4s4WD
UNovv/wSxZPk4c6dOwEBAQ7HFdgCMbrG+iIY1GyPHj20dY3EpkyZIjdmTUik
VYULF3Y4nEPsOq3dhItrIDmQGTG0RrSVoSRiaK4Y3SeTDpQNLSVVkdbtffnt
BQrfs2dPeyvLKDRvgC3jcJo3b65NJ2/dukX+iL3resTWr18PlZVRgD8g8C7H
XFEpVapUsb6stAQUFE1Qa1cq+AJWWBCnUFqUUA66g4kVK1asZCLwS3hvQicU
wmTkFdbEW3r37j1v3jyo1OXLl60UD0uZPXs2vAtK6dZOELiFpk2bZsmSRZaZ
QooCE27y5s1LBMFt7tq1y6GTNO8GcgaLlJIPqVy5cs6cOWXZyDTxISEhISYJ
MrJdsGDBoEGDRo8ebWW+pE+xdetWopvDkZ9iPC0ByMrElqShlAmJHcHUuEUV
oq7JJqxP03YGahMSqJ3wzt/YjhyshVFwgWzMOXjwIFonG37FMnRyOBYEtV27
diVKlIDuHjlyhIcQUAhPxkVQSet4jmyAunnzJt/ubLlyMQihaNGimTJl0o6q
zZ8/f7du3UyWmr969er48eMR1Lhx49yVlZeUkrtgFPXr13dYPCwF+zLZPTAh
sbFo27ZtsqWIb8Eene2v5D0oMBmB9V4PmB6UTDukhKI2a9aMTxY8ChUlVYH/
ONzOj/QZeky6IcXLZfg9PJ5cJRu206hRI0EaRQYtR+yIVEhLsL0vv73YvHmz
uyvEuoRRaBKeqTreBmslDG3atAmjxisSxWbMmKGbrojMBw4cqN3BlmTW39/f
2WK2SLVDhw758uUj1kiD/fDDD4nIJiMBZPyNiYnBaaiBlAo+grsNax4AJSeg
wzGImLxlyZIlRFVt042VJ6xYscL64HDvYd4N5Ay+EyZ+rGrVqrALQglsvHz5
8ravPu0WoDGwQWefiS+12O6aZJQSd43QrDScJiQ2cxF8jSuKuwtYH5Fatq6L
LbOhLrJREVZDKiEUW6wQot1ofv78+ViKtqJ5ApowYcIEnoMd3bhxw/g5HJk4
caKY7yyOENFgmDaaD0pI2aBtFIYiEciqVavm1kBELyklt0OqnS1CSPEQrPXy
iCY7RO39IDoTHDp0iCzMYiqNRfTq1Uubxj58+LBw4cJi0DtYvnw5WYCzOoWN
oABasxILIZI7iJ9ipS/ZwkmpyLjXrVsnzopubt2GC16W30agM7C7NWvW2PtY
o9ASvFZ1aOrGjRuHDRs2duxY0nCHWfbLly95ZteuXYW4+J+/OWIX5dPF37i4
OJJHiwP+FRTcRRJQyvj4eFIqGc1FA6DcUcsK8CHkpC4H5tkFl91AzuAjYd68
ebNQoUIkyOKx+KiaNWvasoRmsiPJKKXYobtOnTpWHPXRo0ebNm3qpUsnmjRo
0EA78Q01Js7KwW+io+3TTz99/PgxFIj/iTuyIejNmzf169cnsrg751oMpJR7
xwgeW7JkSZ6/ZcsW7yfdCD7z8ccfi7VV//jjj759+/bp08etXkixeBE1khLi
2pkzZ2DyM2bM8Oly6DCHWrVqGZeHMkK080+ZMkV7JZwQtynyODF37NixYw5v
566YmBhchLaRcPv27RiaTE8g5DwNu4Minj59+tSpU7homdrAPLmYgzaW30aI
9dbs2r5cwKHQbFF1l4DKwucl2xeLsEVERPDHhg0bvNdJ7+OvgoJ1uDujxF2I
kXX+/v5y5MaSJUsCAgLcGshBTk1CnWTLG7rsBnIGX1BKBPjVV1/lyZPHrbnn
7wqSjFImJHbGVa5cWbd5nBFi0JrcNNNjwAHKlSun29k8NjZWtlvi6oOCgshW
Hjx4MGbMGJgkEQQOSSgRS8QHBwfrwroViIGUjRo1Er2658+fDwwMFLvaabeY
8RiQUlhxs2bNfLrqTpIBs8K64ZNJsOHI1q1bQ0JCXI4JRxMaN26sbZ2WAymh
f3iDrl27mizejvsiMVm1apX24NWrV2UTHM9v3bo1TAknPHv27IsXL/I0dBWN
TUhc4qxYsWKTJ082khmPy28vIEXkhvZOz3cotKRRddhdunTpxMhtfM6cOXPS
p0+/dOlSaD//e0nLbYm/CgrWsWXLFvS5f//+PsrQxVZxss1EDIIiboq90qwA
KyMQe7bmnmew0g3kEGSaqVKlio6OtjE9l4Q22RcM9wWSklKC5cuXN2/e3Lz5
kfDRrl07uX25Z3j9+jVR+9tvv9VpAmoPH+jdu/fo0aOHDx8+c+ZMMbVTEF3u
GjBgQERExNixY7ndsyWMxKaf0EgehSqS4EyfPh0VEtume/NRAmIvg5iYGO8f
lex4+PAhhEHsSIt1wyt8uig6PrBLly4uR1/8+OOP1atX1467gO6GhYWRjEyY
MOHSpUsmt3NqwYIFbdu21c1G5OvQxoYNG8IV4RhwJ9zywIED4dKkHtzFkZYt
W/KT/9esWePQ13lcfnuxePHibt262ZgCOBNaEqi6GEgpNnvCWqOioubNm9e+
fftWrVphsA73NXALzuKvGkip4CNg+EWKFAkODvZRI9ijR4+KFi0q+ZhYHgEG
yx+bNm2ywmPPnj1LTEzK2ShWuoGM4IuqVq2aM2dO76d1aEEyTqbco0cPraxE
BLTxLcmFJKaU0EVUkQo1iYlPnjxp0KCBN+MKxGKn4eHhzrIAXiE7oF+8eKGb
xcApjxcYF/37hQsX/jkRcuwWD7SexJkDXpo9e3bdNvRoY7LvUOMukDPcXk5i
Qlzjxo3ztZ+5e/duo0aNzBcA3717t7Plj1ziypUraK8zZ/7q1SscvvAkPP/x
48faWoNQ4a7N69HX5XcJCj948OAlS5bY+ExnQksCVYfaQfC6d+/OH3fu3BEe
g1dQNbaoojH+kl1CYq3HXwUFdwF3qlixYrFixdauXWv77tLYSNOmTUUrKFpN
qM2QIcOiRYuOHj1KsmnFNpM+VFnsBpKAIWzYsAGqXKBAAeO+J16CZLxPnz5y
qmZCYkvXiBEjRPHedRB9oJRJuQk4Go4DN3kjF1Cb3vjzQ4cO8QrfrZttAuJ4
w4YNmzdvbn0FTnfx8OHD0qVLa5ccjI+PHzBggAdrfCUjINtIqX379hMTgUE1
a9aMP5IgUztz5gzvNem5hrB5tisrPKRz585i4J/v4LvyW4HY7MnhPHfPYCK0
JFD169evBwQE2MuQtTDG34wZMy5btuzYsWMW46+CggcQM0knTZo0aNAg2xcT
w8OEhoZOmDAhIiJi/vz5HTp0aNmy5bBhw0ycUvLCYjeQALEpKipqzJgxsCMf
xXE8W1hYGK4sNjZ25MiR1FFSTn73BZDwunXrkG2RIkVSpUrF//ztZV+zdcDJ
t23b5qMVCNEBHu6jfQxd4v79+8HBwbavr6ID6Uy9evXIs2bPno02wsTeLT5J
vtCtWzfdbqQffPCBB3suewZ87PHjx22vI4ic9W24vYGPyp8sMBear1Wd7NVk
AVVb8M7FXwUFl/jrr79++uknMVJFtOr7rhXFLljpBkpKwFLu3buXBJMIFN5d
YGWdO3d2trqOjcCKHzx4QHhNOQaioOAL+FTVt2/fDlP10baVEu9i/FVQUFBQ
UFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQ
UFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQsI53cZ90
BQWFFAi1JYqCQjLi1atXt27dun79unEndwL9o0eP4uPj//3vfydL2RTeb/z5
558rV66sXLlyunTpMmTI0KRJk7Nnz2q55fPnz4cOHbpo0SJFOLUwsdmExL3G
rl69qvYcVPhH4dmzZ1FRUUFBQalSpfLz84uMjHz8+LH2gkuXLoWFhfF/cpVQ
QeEdBfF3586d06dPN+7lfefOndGjR9++fVv8fPny5fDhw3PlylW9evXffvtN
d/GBAwc4nj59+m3btvminLz9xIkTR44cSfrw9+uvvx4/fvzYsWNPnz5N4lcr
CNy/f79ly5adOnVCza5du7Z69WqULU2aNA0aNFiyZMm+ffsmTZoUEhISFxfn
kDi9ZzCx2Tdv3syaNWvXrl2CV5vbLKbUtWvXjBkz9uzZM4XLjeJdvHjx8OHD
RPkkLiq5DMkLngfFS8r3KvgC2AU+pFq1auPHjz9//vz3338/ZcqUwMDAbNmy
9e/ff8uWLcSv8PDw0NDQCxcuJHdhFRTePeAwCSjt2rV79eqV7tTGjRvLli2r
zdQgV+XKlRs4cODff/9tfNSCBQuwTUlB7cX+/fs/+ugjLH3Dhg2+eL4JTp06
1ahRI39//9jY2CR+9TsB0Q72448/OtQK7wEvGjx4MIFA2/zIuzhSr169nDlz
lihRggt++ukn471v375FIa9evfo+9XCZ2CwssUKFCiiqlJW5zUKTUOylS5f6
vNDe4ZdffilevHilSpWGDRtmJNI+BQLs0aNHqVKlULakfO8/ECgtFY21Pnny
xEevIDGBOup8BXYUExNTpkyZHDly1KhRA/MhNTPeq5r0FRTsBYlb7ty5161b
ZzxFyA4LC6tdu/br16998WooZcuWLQmmvni4SxCOIS3ffvttsrw9JQO+FxUV
hVY4bAdLXvzxxx/Tpk3Lnz9/kSJFHj16lNzFSR6Y2CxYu3atn5+fLzr4oAdb
t24dN27c3r17v//++127do0dO5Y/PHsaTKNWrVqkLfYW0jrIX1q1apVcb/cM
JHqRkZHr168/e/bs0aNHZ82atWzZMh/lfbYgPj6+RYsWadOmnTRpUkobvvIO
NekrKLwriIuL8/f3d9gB9PTp05IlSw4fPtxHLktRyhSLX3/9tXz58sgnBUar
33//vUGDBsQp6GVylyV5YGKzRMaIiAjqjhq0/b0ow5gxY1L9F5kzZ544ceLb
t289e5qilB7g5MmTWbNmFfJPnTp148aNU34L2+HDh8lxDh48mNwFcYB3pUlf
QSFZgM/fvn37gAED5syZo23n5/iePXtIb/v166ftICAAde/evWrVqi9fviRA
Y1m9evWaMWOG6If617/+lStXrq1bt/qotIpSplhcunTp448/TvoBCVZADC1Q
oMD06dNTWqOHZ3Bms+DGjRsTJkzo1q0bliI/1txmOcgpH7W6UNTZs2cvXrx4
48aNFMlL1qoopQfAJ48YMWLHjh1btmy5detWyjcBSoipBgcH379/P7nL4gC+
a9JXUHgP8N13382dO/fy5cv58+fHYYqDGPWaNWsIBK9fv27UqFH//v1luBGD
sghnz58/nzJlCmFizJgxcAnh5+fPnx8YGIjjMnnj27dv4+LiPBtsmdIoJd+C
lO7evevrV3sjNPPH2lV+iEqePHmgNN4/ynbs3bs3d+7cR44cSe6C2AOHNguu
Xr06cuRIeNc333xTqlQpOY/M3GZFq8uSJUtM3ohDOHToEDmmu4QEk6Gop06d
cv8rHSAFUsqDBw9q2bvvQF6/cOFCD0aQQilJPZKg74ASLlq0yPsxrmQ9OPnG
jRt73JrtO/i0SV9BIemh8wx//fWXbraC/JvjxskIkhlylosx/3HjxpEMrl69
OiAggCAlzsIxCDqcJQZVqFABI5I3Xrx4MVeuXDNnzoyOjiYY8Zx9+/atWLEC
msfr2rdvj883zheQwEtERUXFxsZ65uKMlJIHUhIScPldXLNz504PnDzfOG/e
vIYNG8KiZcMsz1m+fPnkyZM567CVEqG1bt3anEV7CS+FZg5vys9do0aN6t27
d0xMTMeOHZ0NpESG0Dl0o27dup9//nmzZs12797tcZuYUGxd/SIZ40F5/YQJ
E5JxIGXS2CyBmM+E0nMNxLJkyZKSUprYLGdJHuHbXGPyCdu2bevZs6cHK4MJ
Snns2LFz586tW7cuPj7em7ZQh5QSXcJZSfpx584dGLVnY7lPnDjRpk0bXiH9
SULi0L5evXqJqSJGSonCh4eHb9y40aes8t69exTs/PnzHtwLpcQ8yUY3bdp0
+PBhH41yT0jUT/JTPKQHrBI9wW/379+/X79+KHbhwoWdDaRMXmfi0yZ9BYUk
Bi49LCzso48+EgNj0qVL9+mnn27fvl2cvXnzZmhoaI4cOcTZtGnTVqlS5Ycf
fpC379mzJ0+ePOJspkyZsH1iyptEkBI2adJEugLsRfxNwPLz88PG5UPi4uLS
pEnzySefrF27Vuc6CGGUB/LjjPmIXrC+fft6nH4aKeX169f9/f1xZeKnGNE3
bNgwz9gXcbl79+58hQzHYnToV1999XciHHZ8UwU4fOi3R9/kAt4LzSU8KD/+
Fk9eqVKlgwcPUkK0Ao0aNGiQUew45+nTp0dGRgpGx41nz54tU6YMscPhhEqX
ILDCXVFLOUIvderU6ABMQKvtEmhp/fr1k2sgZZLZLBBsgf/r1KnTrl07aSYm
NoulDxgwwLzVBTZYr149qJoHn48+fP3118R9fAjP6dOnT4cOHZ49e+bBoxIc
UUqMokGDBk2bNhWVy+uwfW8akeBd2bNn37t3r/gp5FOqVClRZocd39B78lCY
m2dvdAlUCPNcv369Z7efOnWqZs2aU6dOxe4WLlxYrVq106dP21tCCVQOFZ0x
Y4Zb7pdKJDNFmZEk2ouGoOra5neJZHcmVpr0FRTeLVy8eJEYlCVLFocdeUuX
Lv3ggw/I8hyupkJOjXvp0qWLtsHhwoULH3/88cqVK43XL1u2jFNXr14VP3Gw
PXr0gEhg78QsuJZ2wL/LgZTEFByaN723RkqJp+Wlcg4pf+TOnXvjxo2ePf/V
q1c1atTAp8nGonXr1uFDRLxwRikpT3h4eHR0tC9aEb0Xmkt4UP74+Ph8+fLN
mjVL5PKInVpwGPWostGjR+voHIlAUFDQtGnTvGnboVKyZcuGLZi3sGEIsCkv
3+UlktJm4X6BgYFz584VP81tlmdWrVqVC5y1urx8+ZJYv2rVKnc+9/+AtFTO
ByFBgwAMHTrUs0YeI6WEhBQoUGDy5MmicpHV559/3rlzZ89Wi+IhU6ZMQVtk
Rdy7d496mThxoni+s7GUOByY7YsXLzx4qcsiobrdunXzOKOEDMvtABD7wIED
ody+W1wX0UHSrLNWCjZ//nzyJjE6kZ/kIDgHhwMpk92ZWGnSV1BIFuCrPfOr
d+/eheRkzZrVodnu2bMnY8aMRYsW1W0EIPDgwYP+/ftrWwnElMwiRYpgwseO
HZPsMSHR//Tq1atKlSoylok2wIiICO6C5BDUFi9ejK/bvHnz77//Pm/evLx5
8+LwDx48ePPmTd2rySLxxjhnb3iXjlLyKDzkZ599RqwRR0jDEQ5OxrPn37p1
i0/AxYmfT548qVixIq8QEcpkeg7ZbtmyZWUvpF2wRWhW4Fb5UYy+ffsiZzly
krQ9ICDAOJBStBCmT59e25MontCvX7/g4GBCtsdlRtPgsSih+VjQvXv3cpkt
AylTvs0mJHZS871y+KK5zXIvR+Li4iihcagkP9H20NBQuzbDEmNjIIGezbww
UkocAh/73XffiZ+4HfTQ45Vj4SrNmjVDY0VbLqWNjIwsV66crBdnlBIqC6WE
xtuetlBBGKaN7Ypr165F2Txu83QJwYERo8nwJy2QbfHixWV7O1XQvHnzRo0a
GSl0sjsTK036CgrJAsytadOmni2S8PDhw4IFC2bKlAl3ajy7bt26dOnSBQYG
Gls8xLimo0ePag++fv0aLw11fP78OQmgNqiJgZRYq3YgJTkaTikh0deRWhK/
ODhr1izc79ChQ+GfRMCxY8caV6kl9hE0PSZ7AjpKSYivVq1a165dBeXjf/7m
iMdLI27duhXHItokoXMdO3bE18nGBxNKiQOkYNp5TLbAFqFZgVvlF9M9vvji
CxEFuKVnz54OxY6eEyCKFStm7EVatmwZimql+YsgtWPHDoIU3F7bWuswCqD2
XEatLV++XOwDPmHChMKFC2M1Ll9kjnfCZrl+xIgRJUqUkAZoYrNcDBmDg508
eZLqOHTokO7tPD8kJOSbb77x4JMFzp0716FDB5mqiCbTjz76yGGvokvoKCWV
S7aFYPE54simTZtQibNnz3pWWqoJVUFh/jcRqBDWp32ayYxvaDm5rb2rc1NB
o0aNQvM9nvOC7yL7o3Il18XFwcpiYmLsK6YeVBD5zu7du61cfPjw4Q8//FA2
qj969Ih7o6OjjeQ82Z2JyyZ9BYXkAlyIhGvPnj0e3ItfLVOmDBZk7N4l1kMM
OJUzZ05jk9GVK1cwVV2vAdYBA8RqoqKisG7tqUuXLhGMtAMpN2zYQDIoWiCJ
a2GJGDRokJjcQbStVKkSxJJbdA4BskcEpGxejmfTUUq4lp+fn3RHfD5ePSIi
gj8oqruGLwZiiXkNuK+vvvqKd2ljhPkiQitWrMDd2bjmm11Cswjr5cftE2rF
+NKERLGTeuB7+YOYblHsIrRFRkZaaYDlmfPnz0exK1euLMd8GqMAnLZOnTqp
U6cmEAuhEYu//PJLIhHhYP369d7MTXgnbNY4kNLcZqGjyAc1GzdunLFZCfJZ
qFAhb6aexcbGZs+efd++feInpeJjPWb4OkopBlLK1AZFQp2wXz5qy5YtHvTt
Ikw0au/evTwKbalYsSI5nfYCE0p5584dvsveRbSQEp/jzcg9NAoPOWTIEGmV
sK+MGTPqGvrsBeratm1bmembY/v27Tly5JCp1pEjRygwciYNsd42mzTOxLxJ
X0EhGeFNeELVq1Wrhqqj29rjaDjuAmOBB+LGz507pz2LUZDRO2scIJk1djQs
XbrU399f261GRKDk8if2i9PTjmzkLQ4HFInejTlz5lj+SsfQUUrcPp5h4cKF
ojA8H8dCsfFL/O+uyRNSa9asSTjmdtLY6dOn62RiTinht3nz5tUycC9hl9As
wnr537x507RpU9GkiUyQP0EK3SP+Ll682ETsWlVZs2ZN2rRpu3TpYpGCihak
LFmyHD9+XBwxRgF0FWLGV8i5JJCQcuXKwZeIUFSoN80L74TN3r59OzAwcN68
efKIS5sV+98ZYzGyCg8Ph3B6NvFBID4+fsKECbKcVBkcderUqZ4N5NBRSjGQ
slGjRiLinz9/nm9v0aLFgwcPHDJkc8iBlDAZ0iUYkTG9MqGU0NqGDRu2b9/e
xiXOduzYwRd51qIrgBBgRNJAqAj8W926de0ayeAMpBJUjcOxwTpgswULFhRm
hZm0bt06ICCALGb27NnmQxaT3pmYN+krKCQjvAlPuAX8fKpUqWbMmKEN39jC
+PHjb968GRQUlDlzZjm+SIAEnMjl0pPjgkiKr127hods3rx548aNvQkoErhi
ck9dyi9BqTDtiIiIHj16wBJ1PpmflEeUXEspxUBKOGTp0qWjo6OjoqKIpLh0
fP6wYcN0g7Vev369fPnybt26wQmN+8ERqggfOED8DGTym2++cdiBZU4pCfGV
KlWyse/bXGgJif0yUI5OnToRo41tMjhJtxrl3Cr/hQsXQkNDYQvUGnrVoUMH
6gWxG6Ow2Ia7TZs2BFwoSq9evRAv2jVt2jR0mJ8WxUW4qV69urahzxgF0Hk0
Hw4pBzv99ddfY8aMwdaGDBniTWhOSME2KxZg2blzp6D3XpIQiWfPnpUpU2bE
iBHOCmBF/fhY6gs7RW6rVq2qUaMG1WF0KVbMM8FAKfnqTJky8b0DBgzAA8Cd
yBoqVKiAHuoGGFjxMP/zP/8TFhZWtmxZtPrSpUsOMyMTSikGuGoXi/ASPHDQ
oEF8jrOlGCwKjU/r27fvypUr9+7dC+nCpRsn71v3wBZx4sQJfJcVY+GxeFSc
w+TJkyknSiI2o8dSjL0zyetMzJv0FRSSEd6EJ6IkNoUF4UKlmWNKM2fOPHfu
HIGgZMmSEC3tzGteR2iwsi4fbidHjhyrV68mTODNdCP/PcasWbNI9xwOn8Y2
cQ6pU6eWyzjgJLVjh/B1su1LSylFy0/37t35Aycp4hQCwfB1LhF/SKSQzycM
kdXKkCGaN+FILr/CnFJSL+3atbNxk2sToVF46ih79uzyo4oWLaqdtkBAwe+5
VRJ3y8/1kArBWoXYjSGAaNixY8fPPvtMDkij5Nu2baNCOU6xicIWQxWs7Isv
vkBP5IJRxiiwa9euDBkyhISEaNvlEhL13/sVmFOszYp1rrCagwcPlipVCpph
S5fclStXEO+KFSuMp9xVPz4Qxrtjxw6Hn2PdPLWUkgugkeSAPydCTtAjM9LV
vlsexhzmu+dQ7I8++kjX1OwxcGh16tThdQ6bPd3yadgOHA+uSK5hJF02ykcC
z5AvXz7rm3RTBm4RZaO0OBPjjSnBmThr0ldQSF54E56wu969e2NBffr0kf7h
/PnzhCd+/vvf/65SpUqaNGlkLMAK1q1bZ3FdHTwJ+WxkZOTChQvt6hwRBS5d
urRxPToxqadAgQIUnk84deoUnA1OKyckUp7x48fLtFpLKa9fvx4QEOByoBHe
qWLFijVr1tywYQNRktBWr1497YItOJMJEyZYGa9oTinFUMxChQp5PxMkwVRo
YN++fXw7Fxw+fPjy5cuk6kFBQV26dNEOCdi8ebNbb7S3/AmJowRDQ0OLFCmi
W5uaWMmLKHC6dOnQTItPQ1WoetRejgQwRgExEALL8sUaninWZrmYoE88FUud
e1A8h8BSsESHywPaqH5umaeWUlLFDRs2bN68ubnluuthzGFOKZEGT7ZrmCKS
KVasmMO1Xm30afbKR0LM4CPft6vL5j1zJgoK9sKb8CQmdWIO7du3F+OfMSsc
iLB6PEDdunU5KyetPHjwYNSoUXY1nXkAAk2TJk0+//xzYxmOHTsmxj7JI6IB
hE8TaTIuDl8nnaqWUuJO/fz8zMfbcOPEiROJtlrvypNFj4m4ICYmRo6oMYfL
Pb4pas6cOa1P0KYkeDCCgtH5mwhNTOiQUx4EcIl16tQRSw6SzkdFRcl2G+tw
t/wmoPx9+/ZNnz69kRchRoqHin700Ufx8fEWHyhmv3IXEVDogy4KiNVLuEDO
G7IX/yibTUicwgy1MPao2qh+7pqnllLev38/ODjY5b7t7noYc5hTSpQZickl
yFwCugU55C6Hi9KgG/g3ueSmhL0+zV75SIgmVoiuLXzs/XMmCgoeA+N6+vTp
k/+LW7du1a5de82aNU8MePHihbmTlNpOgBNeBfcul4mQ+ZdYCkP0gJiMx0sC
iIgJdJ2POAos2rjiB5dFRERcvXqVC0iQtZ3vUMqiRYuOHTsWR7d9+3ZSePPh
gvfu3QsPDzc2t8KaBgwYQNWQ148cOdLKeNEbN25MmjSpYsWKJmuqcCp79uzG
KOwQ1N2MGTPy589PZNS6dAFnQktI5NKzZ882KsnSpUuhAaIzaMWKFR70frpV
fnOgclmzZi1TpoyRWojmUFTUfO9OI8TYOXmXLgogT4KjrvvYMyibBZTB4Wo/
Nqqfu+aJLn322Wf9+vVbtWoVtd+5c2fzkTkeeBhnQOUWLFgQFhbWqFEjZ9cI
hTSSQGc4dOgQOaPDdQAAkkf+xtl5Nvo0G+WjA0qOqjvMiD3AO+1MFBRsBLHm
iy++QHUz/l9kyJBB7L+W0QAro5oXLVqUOnVqYbBibTqZ54pFAnm46DEhcfv6
669tnIToAcRM6i+//FKXsWK2Fy5ccLjQxNq1a7FlnCT+WXvB/fv3p06dSuSV
KzmbA2JgXHRdvJos9eeffyYft9juBKVEktHR0VeuXHF2DSE1W7Zs1rdmQyBE
qMaNGxtzeWdCS0iciuhwxP7t27fHjRv38uVL/ves89rd8juD7OfVLmoqgfCb
Nm3KWarSLd6LtmNNBJcTJ04kGKIAusTPKlWqeLkzprLZhEQOTO04XNfIRvVz
1zyxBXg4JAdKaUU+HngYZxCUEs9j0q8t2hVFXuDygQIkcQEBAQ6FQMlz5MjB
S3XHbfRpNspHB2oHt1a1alXduFYP8E47EwWFpIE3nWgJiQ0F5LblypV79uzZ
ihUr5I60Cf9dnA0T69q16+vXrydOnKjdf00C67t48SIEiXy2f//+u3fv9mwL
MysQDW516tSxPnn83Llzc+fOxd9a7L5xF3w+Dz9w4MCYMWM86CB2htjYWKKA
2FnMCh48eFCwYEH4g9EZeiA0lGrs2LHffffd7NmzPeuscbf8zoBIy5Yt66z5
hagXHBycL18+DxY8vHz5clBQUPXq1Z88eaKNAnh+DMrf3//kyZMuHwI94NXc
7paUkt1mtRDbInu27rpFzJkzB2UwSaB08F79JHxknlr4wsPA9CDhukn9JsDl
dunSxVlTnmilRJgW326v0LyUj2ilrF27tjcrwQqkZGciZuuQZNm7xL2Cgrvw
Mjzt27cvU6ZMRYoUOX36NEmxlnWIPVIJT82aNeMySIJD904GGhUVJdr8oRCY
5ODBg320pDYZK4WpVq2a9YwV//DVV1+NGDHCd8PJyOV5/sKFC+1asZbnTJ8+
Hb+kG0BugkOHDuXOndshMfBAaFTf8OHDqVYrs9eN8KD8zvDTTz8FBgY62yRl
1apVBAj0zbOh+zdu3GjcuHGFChWgXmJb3piYmIoVKxK/rJBh5ImIELu7c/OT
3Wa11y9fvpynWZ+P4AGWLl2KbK3vROOl+ulgu3nq4AsPg/ohMZOx1joIsjRk
yBCH1X3nzh1Yjdxe3ApsFJqX8hEbPDVo0MD7mJKSnUl8fHyLFi3Spk1rfW67
goIv4GV4IiplzZqVlMrhimSkloQn7GLQoEEOdw0WUz+4XfRq8bNRo0YBAQHu
TuuzCBxmRESEdpM4lyD3rFKlyqJFi3xnp2J3DFtW8BPgM4kOxYoV08kc3g5J
CA8PJ+ASoCGQokGYT5s8eTJkfs6cOdTUgAEDzp8/r32au0ITu+106tRJtgyc
OHGiTZs2+HZtbx1ukMuMj3VWfg9A9eXPn79gwYLGDlA0v0aNGsWLF9euYEnU
6Nevn1Q/6BZVbz55mXCM84dWZc6cGTFeu3bNuqqIba+xnaRspfTSZrW4fv16
u3bteJpPKSXklghrcVu9BEfq5w1sN08dfOFhyBBhPjt37tQdh56NGjWqd+/e
8+bNO3nypNyeEjUggxszZgzMrW/fvhBCbVeRWFrKYW+vM9goNJ18KAOFb9iw
IZFCzisXqQ3WZyyhYMt8svczvt11JmgsIpXjhfAqGJe5TnrjTA4fPuzn5+fT
/gIFBZfwMjyJPhFi0LBhw4w2u3btWvImDMTZTijYy/79+2fPni1aKfkfw3SL
vbiLuXPnEkytN3/du3cP3+iy+88brFixomXLlt4vVygBM2/VqpWuqxr3S0WT
AvOiq1evFilS5LPPPhOD6HB6JMikxkuXLqUScUplypTRishdoRGP2rdvr5s9
tGnTpuzZs8tuVl4Edy1VqpRxbSKH5fcMPIGvDgwM1C2qieLBn/lk3YA0KHee
PHnkl+Kl+XDdVoNGONyW1wouXbrEXe7unZe8NiuBtY4bN27Hjh0EMp9SStQ1
d+7cYmsqK3Cofh7DdvPUwRcehjKjkNp5xyg8DKdSpUpYN/nLkiVLIC1y30Bk
myZNmu7du7948eLp06chISHaVUD59nr16uEirDf02Sg0o3woBkXVruUuFkR1
OCea2/PmzTtr1izvS+KWMxF7dDZt2lQITUzeIX90OKdeC8+ciejZCQ4O1u2s
oaCQxPAyPGFchGA0WbvxvQROLGPGjLgjizPgjh07ljNnTgiM75oExWYK2vFj
5iD+9uzZ03cBJSGRxlgPl1bw/PnzChUqaPeZRf5NmjSRFfHbb799/vnnHTt2
FG0RDx48oAajoqLE9VQlDk0bkd0VGr63R48e2igg95iTDQtoTuHChR32phnL
7w3gPFmzZtW2AvEHLC4gIEC3VybSQCZyRJnoBXY4C16HkydP8goPpqhTAMzH
3SUcU4LNinahbdu2YSC+ppRiN6WIiAiLDU1G9fMGtpunDrZ7GKxm+PDh2s1W
EhJ7BPLlywezEgovmiXFko+ofefOnSXbET1HDRs2lM1rYjseOJv17XhsFJpR
PqLloUOHDrIpFfXz9/d3OJvv6NGjeDPdblAew7ozEXt0ykn3wuUiZ5czBTxz
JhBXOLzD+ZUKCkkJL8PTo0ePihcv7nApj4TEzQ7I6Y4cOWL+EMwBn9CvXz+8
FnHKrjVpHeLJkyekt9YHnGzevNnlinPeAA8zZMgQ76c2a0H4QOy7du2SR/g7
c+bMcmzVrVu3uECSxoMHDxJf5FLS1FqWLFm0a4a4KzTcKTFdu7oIVdysWTM0
TYQGvhrGSNRz2LVqLL8AisFBbiRiTps2zWK3OHctWLAgb968cGa+kQpt3759
lSpVDh06pPucZ8+elSpVSi4Qh3PWxVYdzp07V7lyZZIgudlH6tSpc+fOHRIS
YrIwnex8jImJgcF6sMlRSrDZixcvEi6p1qtXr/qaUlKDOAfr68AY1c9j+MI8
dbDdw7x+/bpu3brapez5o2/fvpAumbwsWbIEFiR+iq5huZK5SOh0i4aRaHC9
xe147BWaUT5YEOYsV93EO1WsWHHgwIFGtsZdsGh8l9FXkKfgFvjq0aNHW5y2
n+COM9m/fz9OVVLZmzdvIkCYtrMne+BMxP6n/fv3xzpWr15Nhq4GUiokO7wM
T7gdzMrZxA2y2u3bt7vMy7CChw8fEqSwbpwbhfGdXWCGcIYvvvjCyjgrHAi+
cc2aNT4qTEKiP4S3yLY7WwB1RIxy8ICYxouzkkObtm3bhrMS8x0Q9cyZM0mo
5SggfDX8U7s3sVtCA9Rgr169tPVO/eLxxKomooGraNGiziZc6MovAN8jx8eB
EwGhFh06dHA2m8Ah+Lq5c+cOHjyYj4U1OezCozxEgU2bNomfYhZ8dHS0jdOm
tJ2PcXFxmTJlcrgpiTmS3WZha5iq6GJLAkqZkDg48JNPPpFj/8xhVD+P4Qvz
1MIXHub69evorVY9xA4y2K9giWKpKDnhDqlqa1AMM9B1ImN05cuXl42c5rBR
aA7ls3XrVuxUUNY3b96Ql/E6KKLxdr63adOmAwYM0DVTcG/VqlXJmlESPp9P
023Fbg6XzgQpTZw4kVqQHRx4FcpsfYqZS4iVFvhwzBC3jD/EmTjcYUpBISmB
SXbt2lWsiJXsIFXs3r075OfMmTO+ewsPL1SokJWMW6zhYNdWuQ5x9OhRnJ6N
kz1xLw0aNNAuSYc7JcLKUYuiX0xk7nBL/h87dqxsAhLjhQg3OhdtXWg8H74x
ZcoUbfQ5fPgwHnXv3r2cFUP3nS2gbSx/QmJogExSKrE4271792rUqKHdStgW
xMbGUkjZYfrdd9/xc9++fSQ7VlYEcgmTzke3kLw2Sw3C+eUsgKShlJCfWrVq
OVzkylg8o/p5DNvNUwfbPQxfHRMTU7NmTW0j7aNHj8jgJEsUk8L69+/PH1Ad
LBG1lAkmZClHjhy65XbFPuZ16tSxIgobhWaUjxiUKHrhX716xUe1bNnS2dh7
LI4PP336tPbgzZs3cWXjxo0T0ti4cSPi8n5xCS3EQErJ4UVST5lxtlu2bLE+
fsAZqA4S/zx58ojJ4GKITlBQkBpIqfAPB/kd6aF2fvfixYtTp05t1zg6h4C4
9unTZ9CgQS572An6eFGHe1vbAjHCUPa02gLIW7ly5XRro0GWZLsfbhbnQ3pL
Bj1mzBg8/4YNG2BrxBfKs2zZsuDgYOP67daFxgMbN26szfrlQEp8OyEAOqSd
F2ml/PC6LFmyoBsWheABxEBK2JEILnAYvkJM1YEEWt9hzRnMOx/fISAKjCIq
KmpUIshWMmTI0KxZM4KaTyPa1q1bQ0JCXE7cM6qfx/CFeepgu4f55ZdfSA9X
rVqlPUgOAseDQ6KEfMvChQupskWLFsH9sCkSNCxOzEFDG4sVK+Zw6jSVW7ly
Zd32l0bYKzSjfMTOC+3atTty5AhaN336dGfjUsTeo507d9ZewHfhgrBrh4u0
2wUxkLJRo0aiAfP8+fOBgYFiu0morFt76zgE1LR48eL4cEFZeUvz5s15nRpI
qfAPx8GDBzNnzoxpyKEsUJo0adKQh/p0P1N4AiTK5bJ1+Ntu3br5bul1PAC+
ce3atXY98PXr161bt/722291TTQQJIhc7969R48ePXz48JkzZ5YvXx4hiwDB
XQMGDIiIiBg7diy3O1v6w6LQuKx69erabi8EGBYWBqedMGECabVJ85HD8qMJ
I0eOdLYcnF0QAymzZcuGZyZOQZ5XrFiBlPgDcXm/g4yzzsfk3T7bAxC/yAju
/RerV6/+8MMP586dSxj16T47yK1Lly4u+16N6ucxbDdPI+z1MEhmwYIFbdu2
NQ5QwWxDQ0MxQMx8/vz5HTp0aNmyJR6AquQuKCg/Z8yYwf9r1qxx5nuXL18O
dTHXWHuFZpQPNVu4cGHI5DfffGOeX1y5coUcROc05EhR71eTMIHYYxEaiV+N
jo4m88Kl8F4EbkuyA/8XRid+Pnr0qEiRIjYO0VFQeEdx/fr1qlWryjHMRCuY
jxwn41Ns2rQJv2riHgn6gwcPXrJkie/KgEts0KCBXX0u+JOFCxeGh4c785a8
Tva5vHjxQjd/gVMOxyNp4VJoCYkj+Qn9HuTLzspPgBs4cCBxBM+pPW7vNK6z
Z8/mzp178+bNcD/Clpyhg9BscdTGzkdCDN8lOh99OiXNpzhw4EDWrFl9yrsk
7t69C+E3T2o8Vj8j7DVPI2z3MJAoCuys/Q1ihmILtokSPn78WDsIkOOoqLmq
I1UU2HxFDhuF5o18+BzUAKrscApejx49tBYntrP3triap8Hu8Fc/J0LuH4R3
9X5TSIHt27fnyJFDstMjR474+flhiZcvX9b18iso/KOA9e3btw8WsWjRIuwi
KiqKsEtYT4JsC5eCbxw9erSzxdZwMlu3bvV+tW0TkDJv2LDBrradQ4cOde/e
3Xfd9AkWhJaQ2B7i2chDk/LjQoOCgkhAxE+qhmBB4m8jE4uNjQ0MDPRgMzWL
MHY+ZsyYcdmyZceOHVu8ePG72LxArOzbt2+JEiVSpUpFACVMm4xnsAtnzpxp
3769yYs8Vj8j7DVPI+z1MDync+fOvh5hi0wwUuNqDNoL7BKax/KBPEPqZs6c
aWz+5UifPn1kl3FCYg/OiBEjXK49ax0Q74YNGzZv3txHe8AlJA5gljOwSPBb
t24dEBCA75o9e/bFixd99FIFhXcFWDeBFZLA/7ZseGERYhEG303nTErgvrZt
2+aymdF7+Eho5uXn7LRp0/DSCxYsmDRp0oABA6yv+2EFBJpOnTrZshGwCUw6
H3330vcP165dO378+LtIwn0KiLT1bdC9ARwMU/XpUr1e4sGDB3v37nWWbz58
+DAsLAwfQhY5cuTIQYMG2TgROyFxIGVwcLBPl54TU+QgrpMnTyatwxmWK1du
4MCBM2bM8B2PVVBQUHifgLe8c+eOLwYf8mSCy8qVK31NVMw7HxUUFJIGZK/3
7t3zxTh5DLxz585Xr161/ck6vHr1incJ5vz27VucicqzFBQUFBQUFBQUFBQU
FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQU
FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBRSGv7++2+1gLCCgoL38MXK
6goKCnbh1atXt27dun79unHvLZjAo0eP4uPj//3vfydL2RTeafz5558rV66s
XLlyunTpMmTI0KRJk7Nnz2q55fPnz4cOHbpo0SJFOLUwMcmExC1Lrl69qjag
VPhH4dmzZ1FRUUFBQalSpfLz84uMjNRtXH7p0qWwsDD+T64SKii8ryBA79y5
c/r06cY9ZO/cuTN69Ojbt2+Lny9fvhw+fHiuXLmqV69u3KTvwIEDHE+fPv22
bduSotwK7xHu37/fsmXLTp06oUXXrl1bvXo1upQmTZoGDRosWbJk3759kyZN
CgkJiYuLc7aP8HsGWOLIkSMxQN3xN2/ezJo1a9euXYJXm5skTLJr164ZM2bs
2bPnP0Ru7wfu3bt35MiREydOkC8k8at//fXX48ePHzt27OnTp0n8aluAXeBD
qlWrNn78+PPnz3///fdTpkwJDAzMli1b//79t2zZQngKDw8PDQ29cOFCchdW
QeE9xJ9//knEadeundF9bdy4sWzZstpUDodTrly5gQMH/v3338ZHLViwAOOV
FFTh/YBoB/vxxx8dVrr3gBcNHjyYQKBtfuRdHKlXr17OnDlLlCjBBT/99JPx
3rdv36JvV69efc96uDZs2IDpxcfH647DEitUqBAbGytlZW6S8HN/f/+lS5f6
vMQKNoF6hPwEBQWRZGF0Sfz2U6dONWrUCJ1Bx3zxfF87k4sXLyI9na/gpTEx
MWXKlMmRI0eNGjX4NFIz472qSV9BIYlBZpc7d+5169YZTxHTw8LCateu/fr1
a9vfSwDdunXruHHj9u7dS+K5a9eusWPH8oftL3qH8Pvvv3/99dfz588/fvz4
mTNnVq5cOWHCBLyivW+B70VFRVHpDtvBkhd//PHHtGnT8ufPX6RIkUePHiV3
cZIHJiYJ1q5d6+fn54sOPmWSWkCTIiMj169ff/bs2aNHj86aNWvZsmWesSbu
IkH45ptvbC+k9QKQwX377be2PzklOxPVpK+gkPSIi4sjgb127Zrx1NOnT0uW
LDl8+HBfpJ88c8yYMan+i8yZM0+cOPHt27e2v+gdAuyxUqVKUiYFCxbcv3+/
L8YZ/vrrr+XLlyfK+KhhwRvAqxs0aNCiRQvoZXKXJXlgYpJExoiICOqOGrT9
vcoktTh58mTWrFmFKFKnTt24cWOPG7veY0qZkLKdiWrSV1DwBhj19u3bBwwY
MGfOHG1HAMf37NlD0t2vXz9tDwIRqnv37lWrViXZJIJjer169ZoxY4YYhPmv
f/0rV65cW7du9VFRZ8+evXjx4o0bN0KcfBEi3zlAKb/66qsdO3asW7fuzJkz
vuNUly5d+vjjjzds2OCj53sDAneBAgWmT5/+3szZuX79elQi7t69qz1+48aN
CRMmdOvWTZs4mJskBznlo1YXZZJa4P1GjBiBMW7ZsuXWrVveaOP7TSlTsjPx
XZO+gsI/Ad99993cuXMvX76cP3/+AwcOiIM4wzVr1hApXr9+3ahRo/79+8t4
JEZtQUGfP38+ZcoU4siYMWPwD2LAz/z58wMDA3GnJm98+/ZtXFycB4Mt8XIU
9dSpU+5/pYeASy9atMg4ZckXL1q4cKEHL4JSEsWc9XQjaipRR0s8A0QlT548
UBrvH2U79u7dmzt37iNHjiR3QezB48ePR44cee/evS+//HLQoEGyJefq1asc
/+WXX2AapUqVklMnzE1StLosWbLE5I3Y+6FDh0gh3WVBSWmSBw8e9FELvA4e
GyOUksTclpa3FEgpbXSGKdaZ+LRJX0EhBULnr/766y/ddAb5N8eNsxUkM+Qs
F+Mfxo0bd//+/dWrVwcEBEAsxVlICFGJswSpChUqYGXyxosXL+bKlWvmzJnR
0dFEK56zb9++FStW/Pnnn7yuffv2tWrVMpmiCMmJioqKjY31wPGK+HXs2LFz
586tW7cuPj7ey4YXCsNXbNmyRfzkW4hZO3fulCLlDygZrtWnrBLy0KZNm/Pn
z3twr6CUPIFa2Lp168OHD3UXUKetW7c2J/nOwF2jRo3q3bt3TExMx44dnY19
QkrQOaq+bt26n3/+ebNmzXbv3u1N1aBIOvUQyuzwmZyaMGFCMg6k/N9EyJ+U
XFtO3YdwSkeKtEfEjWvXrt21axc2GBwcPHv2bHH2jz/+4DOJwjwQYlmyZElJ
KU1MkrPkhvBtrjH5hG3btvXs2dODhb9sN0kToHvh4eEbN270Kav0xhihlFgK
yfKmTZsOHz7szXhyHaWkrsnr69SpExkZKXsiEAiuiVzAs1eYez8jpfTSGSaL
MxF+Q6cwfJrxoIBPm/QVFFIa8PlhYWEfffSRGK6TLl26Tz/9dPv27eLszZs3
Q0NDc+TIIc6mTZu2SpUqP/zwg7x9z5495IbibKZMmXAOBJ03iWjcuHGTJk2k
r8CgxN8QEj8/PwinfEhcXFyaNGk++eQTAp/Ot+D3KA+M0RldFN1kffv29Wy0
Fbd//fXXOBnKQwjr06dPhw4dnj175sGjBK5fv+7v74+fFD/FCJ9hw4Zpy4+I
ENSMGTN8NOyHOiWErV+/3rPboZQtWrQg3Bw8eJDgQtCZM2eOLpVAQ3gF2YH1
x+Jv8eSVKlXisXw4lY7CaFvMJHjX9OnTiXSC0XHj2bNny5Qp069fP4cTKl0C
gXTt2rVAgQIosByklyVLllKlSi1dutQYCFDC+vXrJ9dASgQyb948SotRiKIG
BgaiQoLOIYEBAwZgLPJD8uXLt2zZMvkVCI24mTp1ak7xBOLszz//jHUgVegE
j0JF5bsEReF/arldu3biFQmmJokhUwDzVhdMqV69esaliix+vr0maQ6S34YN
G8LcfPR8L43x1KlTNWvWnDp1KiawcOHCatWqnT592rNHGVspf/rpJ/ImalOy
nb179xIL4IGevcLc+zns+PbMGSajMyE1wKYIYdIAsTW+ulatWtrIKGGlSV9B
4T3DxYsX4Y0EWYc9fYTdDz74oHDhwg6XWyExxOl16dJF2yJx4cKFjz/+eOXK
lcbrCX+cunr1qviJN+vRowfO4cCBAwS1kiVLamcEuBxISdDBzXqzvhAUV454
h8HibYYOHepxRknsoMBygip/5M6de+PGjbrLkCR+yePoYAJ85rRp07p16+bx
jAac/PHjx6W/Jb5QX3IAg7wmPDw8OjraeiCIj4+H/MyaNUuQHySDoByGWt44
evRoHZ0jWgUFBfFp3jQovXz5MiQkhChAjDZ5DrUDm/LyXV4CmodZUVSHE9Ng
a6Ry6dOndzh4jGLDysjFZB9BQuKCJ4I3GnkyT4Nqzp07V/w0N0nMvGrVqlzg
zEYQMrnkqlWr3P/o/x/2mqRLYJ4NGjSwfU2DBDuMES4tV+ZHAnBCSJpnSzsa
KSXsCBskaxA/UYzOnTuTj3i8qYS593M2ltIDZ5gSnAmxKVu2bMRN8+Z6K036
CgopEzhzzxzv3bt3yaSyZs3q0K737NmTMWPGokWL6nYKEHjw4EH//v21zQhi
zib57/37948dOybZY0KiV+zVq1eVKlWk1xKZbEREBHfBDGEvJLl44M2bN//+
++/z5s3Lmzfvjz/+SDZ68+ZN3auhPa1atZo4caJdzX2in71AgQKU3IPbhdP+
7LPPfvnlF3Fk4cKFCFbbLiQgYk2zZs1sX3MYaZctW9ZGskpwz58/f8eOHXUN
lcQjXqQlLSag3vv27Yso5GAn0vaAgADj2CfRQghZkt1n8gn9+vULDg6+d++e
x99CZIE8pE6d2nz25d69e4lQtgykRJM9awyBtKMeUMrx48cbA9+TJ09KlCiR
IUOGHTt2OLx33LhxR48e1R48ceIEH4VUMVi5pLnAtm3bOCWHL5qbJArGkbi4
OJyGcagkP+EMoaGhdu115aVJWgFJMVoBo7Y9g7DdGKF/uGLP2jyNlFI3qZ8M
AmdLnXpWNpfezxmldNcZphBnQlTCarAFk4HlVpr0FRRSJrDHpk2bQr08uPfh
w4cFCxbMlCmTwy6PdevWpUuXLjAw0NhKKQY+6YLX69eva9WqBXV8/vw5GaKW
iIqBlJizdiAlSZzIlPHAefLkIcBxkAyUaDJ06FD4J0Fw7NixhFHd2+GrEF0j
YbOOc+fOdejQQfIi0T7z0UcfOezCcAkofbVq1bp27SrYF//zN0ccjvDBI8G6
d+/e7XHhjaA6Ro0ahXP2eKAmTyDoEBpkmR89elS4cGFIgo4awTFatmypnWZl
AjHd44svvhAF45aePXs6lAxq3Lx582LFihmrYNmyZeihxeavO3fudO7cOSws
DH4oqYJDSkmR0GFeSryjBsVASj7ZOIjUXYhYqRv2YBGIqFu3blDKr776yng7
oRCD/eCDD7QDSCTgMDNnztTWiygJxoIpQSS0XoKHjxgxAoIq7cvEJLn4u+++
I3yfPHmS6jAOusPAQ0JCvJkDYq9JWgQygQsZPYw38N4YX7x4AXfSjmrYunUr
BCkmJsaz8mgppRCsmNSfkNhwV7JkSVHFnpXWpfczmfHtljNMYmeC8EncqEek
p+0Oc0gpCZFc1qRJk+XLl/O9Lpv0FRRSLLBoMjLPckzyyjJlymBixi5a7Bfm
wKmcOXMa08ArV65ER0fruhUwHxggZhUVFXX48GHtqUuXLhGttHFww4YNZIui
BRIuGpaIQYMGidkfxL5KlSpBLLlF14aAy4K1UjZvBrzFxsZmz55937594uef
f/7JAz2mE7hlPz8/2YGI6IhTERER/MFn6rwKxW7btq30wLaAYhMXvBm3A1GE
dOGxZXjFYUIqunfvbvSKK1aswF1bWSgPXgqfkewIgZBZ4Hv5Y9OmTRb9rYin
kZGRFqPehQsX8uXLly1btuPHj4sjRkqJUk2fPp0jECFR6cSpL7/8kkhEOFi/
fr03EyJ4+KRJk/hqDwKKiL9QSoixTkM4NXXqVOyRswsWLNDdSBgljzNmf1BB
sjNOoZ9akzEOpDQ3STJE5IPpjRs3ztisBPksVKiQZ1O3BOw1SYsgAeEV9i5B
470x4m/xJ0OGDJH6AxHKmDGjrs3NInSUUhAzMU0Sx1W7dm2Uyhtf5NL7mVBK
t5xh0jsTnjl//nyCYOXKleUAciOlhNNiSjgTUglhYuZN+goKKRneUEpsgSwP
W0D5tccxAZwY1gQPxM+fO3dOexarmThxorPWA1Js4wgiQrm/v7+2K5yQIdJk
AQwcVyyjm3iLw2FOhLbixYvPmTPH8lc6QHx8/IQJE2Q58RIERFyrZ6k6DAS3
s3DhwoTED6FseC0++ciRIw6ngRA9CxQo4HCEqmcgmw4MDPSmPUfUuHbwKuk2
zzx79qzxYoJI3rx5HTaU6fDmzZumTZuKJk0kg4iIjLzo2LFjixcvNvG0Wk1Y
s2ZN2rRpu3TpYjFqiHYYeNfIkSNFhRopJQTyiy+++OCDDyiMOEJ6RaiFL12+
fBm26U3zgjeUkntJ1ig8qZlWCAn/Vdp69epxlmt00oPUQfUdihQ9N/ZH3759
m/qdN2+ePOLSJHk4UjLaCJ8ZHh4O4fSsr1/7dXaZpEWgBg0bNmzfvr1O1N7A
e2OEsUNOJGNBJjD/unXrejaoQEcpxe5IMN5FixZhFCTvXhIel97PfF1K684w
WZwJJkDSkSVLFpmfGiklcY1ED5coJ6aZN+krKKRkeEMpcVYEAiLUjBkztCaJ
sYwfP/7mzZtBQUGZM2fGQLR3HT58GLbp0tXjGHFc165dw283b968cePG3kQc
iQMHDpAU40YcnqVU2D45MqQCX6eLFPykPFzDx27cuBFPi9xWrVpVo0aNMWPG
GIuHo4M8d+rUidBmHBuPb3n9+rXw2HjR0qVLE+ijoqII0wSpVq1aDRs2zOFI
sBMnTvAJHg9eMn7yoEGDSNidTcSmkPDDbt264diNO9xBEkR7I/VFpU+ePJnq
hhFVrFhRuwiSFmKfHYt934Sw0NBQ2AKVgtp06NChZcuWSMbYyCm24W7Tpg1R
HorSq1cv4iDKM23aNFSUnxajgGB02oY+I6UUbSkffvihbE7nSnQAUxoyZIiX
na3eUMqExK3tKbxuK1KxTsuVK1fQRs4OHTpUa4Aop8maohLcIlZ3ERHZS+Yj
8ezZszJlylAAZz7h/7V35tE5Xfv//5lKipiSGkLNQ0mrxpSSmr/U1GjNMdQU
5EsMiZipOTGngtQYc0UoMS01X1zKoqGKdU21UCzU0nbVXd97V36vlb3uXuee
c54nJ885TxD7/UdWnjPus/dneH/28NlW9MiiSloUZosQ07+rV6/u2coX0wc6
ooyYqbCwsNWrV+/atQv+g/E0rqO3aOt0lBJOVbJkSZQX6ut+oMcp6+eeUmbK
GGa9Mfntt98+/vhj7UCekVJiMPGSBKRy5qT7Ln0FhVcZdiglbhSlQ8UIiqU7
QNdiYmJOnTqFp6hRowbmQtt5xevwHVYS92EMCxcuvHbtWiwSNlbbRWkHsbGx
xIOm86tRXqyHyKMigOnWzmjCAmvjWT4Q94ppNX4O11DyQoUKyUdVqVJFJHwW
wPhjLn5LR8OGDfv27cs/mH3hBKlMrIqrrg9sdenSpWEdjgyI8MamTZtiw01f
h1upWbOm/AofHx98inyv6FXAUMuvvnTpEu6JinIz8ovYdOnSxfq+ulzPJ4sH
ipox+jJccI8ePaB5sl+UwiQlJdFeHKfkuH7rHVb4NW7BEYs6MVLKe/fuVatW
zdfX98SJE9obEW/7iUNtUkoEL1euXKiMliJCfXHK1CTOlE/TTtMSS2N0a/NN
ITY5RSn27t0bGBgIt3FEAiG6ONlVq1YZT1nXI/HTjUqmZVKYLYInFClSRDcQ
4zEcVEaCCOgWygjtNwqSdVvnQapzZ62fe0qZWWOYxcaEVmjRogX1LFMkGSnl
jh078ubN26BBA20nv6sufQWFVxx2KCWWauDAgajYoEGDpNU6ffq0mOT/5MmT
oKCgnDlzSmeBmqxfv9448dIU2Dei7FGjRsXHxzu1DlQUmIjYmLBOLOopW7Ys
hecTjh07hh2D08plkpRn0qRJFpPmpaSklChRgnfhys+dO4dBLleuXK9evaSd
5LFbtmxJSx8F5spMTZ0S05lMpyl6AIxq1apVTZOzcapu3brBwcEbN27E7+Os
W7Zsqc0KhXkk5M/srFReNHr06IoVKzo1z40KadasWeXKlbVuKy3dQfMiaj5P
njwInvUHIrGwsubNmwsna6SUt27devfdd3EN3th3wyalpJnwUDBeOa8VHccJ
8pMnI8MobEhIiJx+xidw0AoT5naYBo8Sqc49KJurAqNoppzWuh5lCC8JMwWj
8J5NUzQtZBYoY6ZsnQeU0lnr555SOmsM05w2JlQ1uobGyalWRkophv7xwm/s
lvQK2Ql2KKVY9Ym+dO3aVXgo9A6zJmwRdgmnzFk59fr27dtjx4612DflDWDT
2rVr16hRI2MZDh069Nlnn1FCeUTE2nya8LYYXiywlbBRLE2SKwUEsCRNmzYV
mTeIgiMjI0XSDByEv79/pvKPia4MHIp1E/T48WOs99WrV42xPI1FAaZPn27c
2WHKlCnwB62ToirEGJC4YN68eXKOUKZATRYtWtTOonsJ2jQsLOytt94yhiqU
kHpGAosUKXL+/Hnrz+SjChQoIBObGCmlyMgaGBjojWTaNiklkkzhy5QpI4bz
RBwnRwpwbVSIXPdK7dH0Lzf93fLly6lM4zBupvTIPbwnzMgVhV+0aJHF62lT
yCF3meaHyRplzJStyyyldNz6uaeUHhhDN3DcmIj1+9qpJjpKKZIquErRoKDw
KgPtu3///r3/xpUrV5o0aZKYmHjPAHiI+9EEqQ6QUmHrsCQyeYUM0CCZYgAF
d+ZqEmPWQLBc2fskgSVB5Y1rSbgsPDw8NTWVCwjbLQ6+Yyfl7nVaQEjwnmIM
RS6F2LZt2/DhwzO1QJiqpsJNibEp8B19+vTx8fHp1auXcWnkjz/+iJE0rle6
fv36gAEDjP3D8MChQ4ciSzdu3IiOjvZsgiseqlChQkYW4QGQqIIFC37wwQdG
aiG6Q5FA91tzGoGavP/++zIdsZFSJiQk5MqVq1+/fjbX3XM7xdbpHZQjKioK
tvDLL7/oTsFgM3yjoLu4LdHNQutrZ2QheDlz5pRJYI4ePYqsvtxcJcieabaf
TOmRe3hPmAVDMJJAV9i3bx+aa5olIy1LlDGztg4l4hXEILNnzzbNMKyDs9bv
p59+EhOzXXHazBpD9/CGMdm9eze2V96lo5SUH3qvmx6moPDqA36IWUC28/03
8ubNK/ZMzGeAlWnPS5cuxdUKjRb5JGX0LRJ/8XAxjkNkN23aNAeXRnoAlDo4
OLhVq1a6kBa9PnPmjKmzXrduHcqO6cZrWOQPWGPT2fVXr17FuePK+WtnzJc6
bNu2rWQFVoBlLl68uFhWqQMfDgMxZpWBVhmzxKel1xVx982bN9euXevxEiGc
i6+vr/397OTUC23OUm1R27dvn+GuN0ZwcUxMDNRLTJrSUUqkqFmzZlDiDDuF
uJKQDSdi2v8g9hDEhRlVL2c6jMfz58+PNrlngIgZmisYO69YtGgRvFGeFVlQ
xNwPiscHZmpBiuOgqkVqI+NIuoN65D1hFv2KImq2eAvsqESJEqblyQJl9MDW
HTx4kA+0SCmdtX5IBToiVpaZXuCBMXQFLxkTPCOeFzU/cuRImoFS0hb8DAoK
cr9NrZhaSd06mwRVQcFx2Bn4TkuPSYm4a9WqhYci9ty1a5c8hTsbNWoUOti7
d2/i0ClTpmg3aJPA53LZhg0bCJyxXbGxsStWrPDSEIDopWzatKn17ohTp04t
WLAAL+DZCK8WVPWECRP2799PFG/nA0VgrlvS6x6bN2/28/Mz7RUUHSMUyeKj
MG7Uxp49e2AjVsYcTREXF4frPHv2rGe3S1CAmjVruurzwdWWL1++dOnSHiQ8
xBF06tSJmjlw4ICWUtJwc+bMgZXh6dxTO5o7MjKSare+EEnA5sD37du3y5Ur
J1aj44jxgNo4TiwvrVChApfBH4yJWyVQFrSbz0RokR8H86DqMH/+fITBFWcw
wik9SnNCmGF68GFdygs3oBp79erlqlftpSijhIO2zggHW00LD4yhK3jPmJw7
dw6VxA5ACLWUEhpJ4Qn2tUGfKc6fP//ZZ5/lzp3bqVWZCgpegk1KmZKS4uPj
U7ly5ePHjxPJaqma2DIYStmhQwcug0WYWhK0iQhOLAzEaxNyeq/bRGxX17Bh
Q+shLQYE5z5mzBj7AytYv6ioKGhGZleV6iC2GYLkWFxKQLWPGDECa2nqdK5d
u4ZNg/Bbt1TwECokPj7eM+Mm8oTLkVk7uHHjRkBAgKtNUtasWYODiIiI8Iyb
iezfFStWpMnq1KmDfPKoHj16cIToyeLuP7Vr1+auTPlQm5RSrMuG9BKmoYC6
3j/CikKFCtHiJ06ciI6OdpU4iIoNCQlZvHgxFAjyibzt2LHDg8JYAUQdSmma
wtQUTumRgE1hJiyi8K5m+hkheAv6aCoSWa+MWjho64xwttUkMmsM3cCrxgQ1
xLVhRmhcscf3vHnz6tatCxm2GFkTIfr7+3u2z52CQpbBJqWESUIIiblM86QR
8OKIUZzhw4e7GjT529/+hhFLTk7+9ttvsWleDcEw4+Hh4dpd5DIE/DYoKGjp
0qX2CyY27unZs6fNgFp4pYEDB+qMG7U3duxYji9cuBCiLjenw0E0atQIgzZ9
+nQ+f9KkSdqlASLXk+lYjyvAVWhTj3MSCopbtWpVK+No7iF2Eq9QoYJxKA3B
bty4cbVq1bQRCl6DL5XL9omAaFn3i5dxVbt376a0SHKXLl0OHjxofSEAzgLV
yOzuKjYppcy0gLDBNHTURXSSwCqRBFdZlHlC8+bN8f6iAIcOHSpatOjKlSs9
KIwVEG/iYa3vMeqUHgnohBlCPmTIkKZNm44aNUqyFDQI+2ZaXRyEhGzfvl13
3JUyYiSp//Hjx2P0wsLCIITa7t+sV0YtHLR1RjjbahKujKEHyAJjQmlhkj4+
Pm+//TbW+OLFixarWoTh5cuX996e9QoKjsAmpRQjNXjb0aNHG5V63bp1uXPn
RoPcbJUCpZw/f36WLXZbsGABXt56/9j169ex2KZD9pkFRrVr1652NjKWRSpV
qlRsbKw8gsHBI9erV48YlppMSEjAZMldwy5fvswnBwYGwnBoI453795d8qI/
/vijZcuWEE7rYf6qVatCQkI8TsD44sWLTp06ZWr6gSvwBKQ3ICBAl2iUCkGo
fH19ddld4uLiSpYsKVufwJ+a0e3+aYQYXNPt8W0FXM/rMptvxyallJkW6tSp
YwydhN/kbK9evVxx49WrV1Mt2s4Tr67fSU1N9fPzM53oawqn9EjAKMxQhcqV
Kw8dOlR+9a5du7ByRBamt0MRtUuA3Ssjnwnb79u37+PHj6GvDRo00CbkzHpl
1MJBW2eEs60mYTSGHiNrjInpHt8ZAnmglREMlWhI4RWHTUqJ9qFWRE9Xr141
nsW05suXDyPpZokclJLAjds3b96MPjobwxohdlvQzvl0Dzhzv379HLHYmKwv
v/zSvsU+ePAgFkm7JxEerXTp0thVEfOKnhCZZW7Tpk2FCxf+/vvvxc9ly5Zx
u5ztL3YAqVGjhvUdQLCl1gmAEY8ePYLtGPfJxYPv2LGD41FRUbNmzbLYh5mc
nFywYEFt1wr/bNy4sUSJErrtLHFqPXr0kNPYxMQMRFebTcUUeP+goCBomJWF
vbJ7CqnmdZmdSJlmm1KKTAt58uQxjeNEknY3mVsg/F988QXygO+DDs2ePRsN
9WrEJ3ZTEttGW7neKT0SMArz6dOnUR/CYfETbx4aGorYGBdcUy3IqnbfkzS3
ykjT8KjatWuL60VOszZt2kiekPXKqIWDts4IZ1tNwmgMBV5ZYyImelnJdyE2
qxoyZMjgwYPR5UqVKqmJlAqvPmxSyjt37uChTLNGpKXn9yPok2TGFMeOHQsO
Dp45c+bJkyexjQ0bNjx+/LhnhbECXGr16tWt6+aWLVvwqo4o8q1btzCqNtO2
UxK8FZ8gjSTGMywsrHjx4rI3DCaADRQ/xSizzO7Oz+joaN18IZg/11vcAQRb
ygPtLNbG5yIVurl5FA9v27Vr1wcPHmClu3Xr5mq+mQ58/uLFi0uVKhUZGbln
zx7ai4fAAPft26drNV4RGBgoE8Thx3UOXQdaimJAD3LlyiX3AcmfP3/VqlVN
Bwd13VPLly/38fExTVvtHjYppci0gFKbxnHwt/r167vZ/VAQ/ipVquDL0EQ4
AAwThuy9jeEoME7Teh4YR/RIwFSYaTi0SZIfhArpMrWQxL/NmzfXbvTgXhnF
KK0UCVHVupxmWayMWjho64xwsNUkjMZQ4BU0JjQoele0aFFpSXLkyOHn59eg
QQPTLJc8h8iUZ1JviBmfgDGxssWVgsLLhU1KiTFE71ytdiHW3rZtm/u1ougm
ZFIoLBo9bNgwonin9sw1AguAHWjRooWV7lDKgy1KTEx05NVUcv/+/W2unKXC
27dvrx2VE/tHyOTVglHIJUh8ZtOmTbt37y7eyzU0ty5HN4aXOpf9Ku4BJ8fQ
yT07PMCSJUtwrNoxWUqF6abMIpPG9evXGzdurN1sLkPcvHlzwYIFERERMTEx
BDKm44aIWbFixTZv3ix+3r59u0KFClOnTnXKh7rvK7YOm5SS2wniXOVQRQyS
kpLcZGinXd57770CBQrIIbwrV66ULVt2/vz53ushwWW/++67csKheziiRwJG
YabOYT4yKc2lS5dq1KhBm5oSEs4iQlrj6V4Z+UB/f3+594oY8dfluM5iZZRw
1tYZ4WCrSRiNYVq2MCY8ZNGiRSVLlhSTT0QXaLly5dRESoVXH7///nvv3r1F
yqxXAevWrcuXL58Hjtg6Tpw4UbFiRSv9ACLJgyMb+OI1xo0bN2PGDJs2B95S
pUoVbUfunTt3OCIdk1hlPGTIEP7B4vEX/yht3YULF955553JkydrvRinuADm
aaWb6ODBg5hxj9eEQnFbt26ty+OXkpICh5Hb4HoJcXFxeAHZ+7R//35+8uof
fvghwyQeGcJ991SmIDLD0CIvZTcNQYqQKLlN9uPHj+vWravbg9hZ8ORPPvkE
v5mhdjilRwJGYRafL0bhYYxNmjSZOXOmKRGiAPPmzQsODtb2vLlXxkOHDhF0
iLXt3A5vKVy48LFjx3SPzTJl1MJBW2eEs60mYTSGadnCmNy9e7datWoEC3JD
2I4dO3766adqIqWCgnvgrXDEcsOdtP+kYsZWe++lL168GDRoUIYpo9PSO5qw
7Y5suofZb9u2rekMf+sQO2CGhoZqbQtBAW4Ft8XncEF8fHzevHmXLl2Ku8Gu
Yo769OkTFRXFKa7s1q1by5YtjZvBEf/Wr19ft42aETQTfkEO93iAAwcO4LK1
ud1Mx+Idh5j75O/vL6bTw2FoDjG7PjY2NlPbNZrCVffUS9x+1DOIFSJypkRa
el3BJzOVJ8EDoPi8JcNXOKJHAqbCfObMGT8/P8IBNIjYZ+/eva5Y0IMHDxo1
arRmzRrtQffKeP36dYREdP8Sa1StWnX69OlGK5RlyqiFg7bOCAdbTcLUGGYP
Y4KE5M+fX25kTJxSuXJlB8dTFBSyK7CrKOaIESOkXYVe5suXT7e2znGg+7j7
DDOk4QXgY44M1vDGjz/+2OYQ1YULF3C7RmvJhzRr1mzy5Mnh4eGLFi2CN4aE
hIwePVqkvCCUxs1NmzZtwIABOCBXfU0rV64kFnZPgbDeXbp0kSsXMovnz59/
/vnnS5Ys0dpGsYlwpUqVZLeYgLOrjMXcJ19fX4L92bNnE1CsWrWqdu3a/BMT
E2N/Uydj91SdOnX4LtE99XJ3PMwUaJoJEyaUK1dOLjQQU/6Cg4O9N50yLZ3K
9urVK8MBX0f0SMBUmBMTE+EGcMLk5GQ3y64p5OLFizt37mycP+NGGbkLCsrP
OXPm8Jd3uWKDWaCMOjho64xwsNUkTI1h9jAm27ZtK1y4sGTg33//PV5yz549
586d8+pCAwWF1x04qbFjx8p0CsJINm/e3NlZ3KbA0WPt3RhtrFBERERCQoIj
r/vuu+/cpG2xApwXT8AlmfpcfAEWWzg47Ordu3e1DpFvuXXrlvvMJJQNRkRo
7Man37t3r3Xr1p6lKOex8fHx0Fpj7iBMKBzm0qVL4ifl5zOx1Q46gpMnT/r5
+W3ZsgWOR0XJSfV8kSOxv7F7isiI+OjQoUM469erewFnjVOW66fgSAEBAatX
r/b2V2AH8NHuAz37eiRhR5ipIu413SQxLSNl5DiEx31lelsZdXDW1hnhYKsJ
uDGG2cCYpKamyjm6eCjC8BIlSly5cmXu3LmuEjUoKCgIXLx4MSwsDIe1a9cu
rETbtm1l8livAguDxR43bpwrooWh2Lp1q/103AI4SjtzbHBSU6dOJQT23r54
aen9UX379nWzTwoXbNy40bMwfN++fTzcdGSNJpg1a1bHjh0XL1781VdfDR06
FC/g7HbwcXFx8CIPNlOzDvd9xa8RcIvJycmffPLJkiVLNmzYwD/eFjyJEydO
dO3a1U2N2dQjLTwWZmxCaGiot+efe1UZdXDW1hnhYKulZWQMs4ExoTlQvTZt
2kyfPh3nSPlr1ao1bNiwOXPm2N8kSEEh24P4DvuM8/rxxx+zcohQJP5ydjjG
S7h9+zaUOwsq5+nTp0lJSY7npsMS8lhX2//Ja4gmvDH5ENfTs2dPRzYCzvBF
brqnXi88fPgQPrNly5YMU+05C2LMw4cPv8r9urAj6zuS24GXlPF1hxVjmA2M
ybNnzzAm4jNxkRiTV1kpFBQUFN4Q4F+io6OzYOhWQUEhe0MZEwUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBev417/+pXIaK7xp
UGKvoKDwpuHZs2dXrly5dOmScXMuTOKdO3fOnz//5MmTl1I2hdcaL168WL16
df369fPkyZM3b9527dqdPHlS62QfPXo0cuTIpUuXKs+rhRuVBI8fP05NTX3t
Nj1/c6DEXkFBITsBS7V9+/bZs2cbd7a9du3auHHjrl69Kn4+ffo0KiqqWLFi
H3/8sXEv1z179nD8rbfeSkpKyopyK2Qj3Lp1KyQkpGfPnkjRxYsX165diyzl
zJmzdevWCQkJKSkpX331VYMGDZYvX56VW9K/RMASo6OjUUDd8d9//z02NnbH
jh2CYLhXSZhk79698+XL169fvzek3l4vKLFXUFDIZiBMxuN06dLl2bNnulOb
Nm2qWbPm2bNn5ZGHDx/WqlVr2LBh//rXv4yPWrx4cUBAgKSgCtkDoh/s559/
Nm10+4AXRURE4FW1/TC8iyMtW7YsWrToe++9xwU3btww3vvnn38ib6mpqf/8
5z+9UbaXhY0bN6J658+f1x2HJdapUycuLk7WlXuVhKgUL178m2++8XqJsx2U
2CsoKCh4FWfOnPHz81u/fr3xFMate/fuTZo0ef78uePvxepu3bp14sSJu3bt
+vvf/75jx44JEybwj+Mv8h5wT6NGjdqwYcPJkycPHjwYGxu7YsUKL3krB4Hj
i4yMpNFN+8FeLv76669Zs2aVKVOmcuXKd+7cednFeTlwo5Jg3bp1/v7+2qhQ
wQqU2CsoKCh4G8uXLy9evPjFixeNp+7fv1+jRo2oqChv0CSeOX78+P/3H7z9
9ttTpkwhVHf8Rd7D0aNHCxYsKMqfI0eOtm3bvi4z3B4+fFi7du2IiIhXkAD/
8ccfrVu3/uyzz/CzL7ssLwduVPL//u//wsPDaTtaMOsL9rpDib2CgoKCdWAq
t23bNnTo0Pnz5//+++/a4zt37hw1atTgwYO1wy54qL59+3700UeE8Jiyb775
pn///nPmzBGTMP/2t78VK1Zs69atXirq3Llzly1btmnTpt27d7+OLpL6GTNm
THJy8rfffnvlypXXaLL92bNn33nnnY0bN77sgpgAWl62bNnZs2e/RvXpHpcu
XYpMxz/+8Q/t8Z9++mny5Ml9+vRB/uXHuldJDnJKTaT0DErsFRQUFKxj//79
CxYsOHfuXJkyZfbs2SMOYqMSExMhb8+fP//000+HDBki/ZGYtQUFffTo0YwZ
M3Bt48ePx+r+/PPPnF20aFFAQABkyc0b//zzz+XLl3sw2RJKSVGPHTvm6oK9
e/dqXa33AMeOj483LmXKEFBKqHuW9XhQ1TSijpZ4BohKyZIloTT2H+U4du3a
5efn9/3337/sgjiDu3fvRkdHX79+vVWrVsOHD5fSkpqayvEHDx58/fXXgYGB
9+/fF8fdq6SYSJmQkPDSvscMHmuQFSixV1BQULACHRv55z//qZvXLf/nuHHa
tmSGnOViTPrEiRNv3bq1du3aEiVKQCzFWawxXomzOKk6deqEh4fLG3/44Ydi
xYrFxMRMnToVb8VzUlJSVq1a9eLFC17XtWvXTz75xLjGRwJrHxkZGRcX5wGt
EpTy0KFDp06dWr9+/fnz53UdL7/99tuAAQM2bdrkVVaJr//iiy9Onz7twb1Q
ynnz5kGnN2/efODAAfszTr/77jtaSo7+X7t2Db6hfSxt+vnnn7sn+a7AXWPH
jh04cCBl7tGjh6sZZdQ2fo2mb968eaNGjTp06ECp7PSJIUg68RDCbPpMTk2e
PPklzij7dzrkT0quLafuQzilE07tEXHjunXrduzYgQ6WL19+7ty54uxff/3F
Z8JteCDEskaNGpJSulFJzhIbQjy4xsq3UMmHDx+ePXt2WFgYHHX16tVPnz4V
p548ebJz505HujrtaJBA9hN7IeE62aCtjQfl9S9X7BUUFF53YNW7d+9epEgR
MRkvT5481atX37Ztmzh7+fLlZs2aFS5cWJzNnTt3UFDQjz/+KG/HIxBxi7M+
Pj4RERE4nd/T0bZt23bt2slOAwyj+B/L7O/vD+GUD1m+fHnOnDnfffddHJ+u
kwEfR3lgjK7oohi5xlt5NgGS26dNm4bppjywykGDBnXr1u3XX3/VXgM9btOm
DczNg+dbAU2AN9ywYYNntx87diw4OHjmzJknT56Mj49v2LDh8ePHPS4M1di6
dev27duLyVTUz+jRo42z5pAQykx0YP3JOCz8Y7169fbu3ctjaXQERttjJoHL
g4GMGjVKuDZu5NM++OCDwYMHa+dRWAc13Lt377JlyyLAct5sgQIFAgMDv/nm
G6N7RQj/53/+52XNKKNCFi5cSGlRClHUgIAAWkHQOWoAYoayyA8pXbr0ihUr
5FdQabCRHDlycIonwF5u3rxJs1KrcCQedenSJfkuQZn427Rp0y5duohXpLlV
SRSZAliZSAl1hKLwxg8//BBqiswkJydHRUVhUoh9KBLqhgDYp5Q2NSgtm4o9
BJvWx9hKUUEqihcvToSuteESL1fsFRQUsg1++OEHeCNO1nTIA7ebK1euSpUq
meadINyG0vTq1UubivzMmTPvvPPO6tWrjdfj/jiVmpoqfuJQvvzyS0zunj17
cGo1atTQrgjIcCIlPBASZSe/EBRXrmeBwWLDR44cqXNzmzZtwuM8fvzY47e4
Ao5j1qxZffr08XhNEARYJjGm2MOGDcMVyu6mzAL+DJmZPn26eCCNCz8JDQ3V
9U7DPQYMGABPsN4zfP78echPbGysePLf//53WtaUBuzevXvcuHE6vwYRKleu
HHVlp7sYktOgQQN8KwzczXOQc9iUzXfZBDQPtaKopgvTrl27Rij31ltvmU7J
o9gESsRicowgLT13jeCNRsLA0yB+CxYsED/dqyRq/tFHH3GBGyooeBTtRRkw
KbpqpHo7d+7ME/LmzZuYmGitPlzCvgalZXexx4r6+vpi4d13LL8KYq+goPDq
AI/pWcj/j3/8g+i1YMGCph1cO3fuzJcvX5UqVe7evWs8e/v27SFDhmh79sQy
6sqVK2OoDx06JNljWrq36t+/f1BQkOSfYv1jeHg4d8EMYZvLli3DO2zZsoWo
eeHChaVKlfr555+J8S9fvqx7NcF7p06dpkyZ4tRMQjHOjnOh5NrjuBgoJT7X
cWNL5dSsWdNOv6IO69ato7E87rHBr+Hy9u/fL35S5yVKlIiLizNeefr0aUqu
JS1uQLuHhYUhY3IKWUJCAk82zigTXSWQpW+//Vb3hMGDB5cvX/769euZ/qr/
AH9NO+bIkcN9QsVdu3ZRCY7MKEOSPetigr106NABSjlp0iSj1N27d++9996D
kiUnJ5veO3HixIMHD2oPHjlyhI+iVlFYmdJcICkpiVNyRrF7lURiObJ8+XKM
BpbBWDaUCE1BCLt16ybHuHXYvn07F/BSrXHwDI5oUPYWe+wnX0eruZ8L6qDY
KygovO549uxZ+/btoV4e3PvLL79UqFDBx8cH02o8u379+jx58gQEBBh7KcVc
RJ3zev78+SeffAJ1fPToEXG3loiKiZQYSe1ESj8/P4hQWrp3KFmyJA6Og8T1
+KaRI0fCP3GCEyZMwI3q3g5fhehqB/Iyi1OnTuH4pIMQ/TNFihQxDgzhQz/8
8ENjGeyA2hs7dizMweM1BY8fP8Znacc9t27dimOaN2+eB0/jIfBzJIEKF0c2
b96Mlzl58qTxYjhGSEiIdpmVG4jlHi1atBBfyi39+vVr2LChcUYZYtyxY8eq
Vasam4DPRA7XrFlj5VuuXbsWGhravXt3HKWsHFNKSZGQYV4aEREBBRIzyipV
qoRSWHmRG4gOtNGjR3sQ8lBFffr0gVL+7//+r/F2CAbNlCtXLu0EEgn4VUxM
jLZdRElQFloWSdZaCR4+ZswYCKqUbTcqycXwLkjR0aNHaY59+/bpXs0FyF7u
3Lm/+OILN/OfRWYwbWjpGexrUFo2Ens+hBCD2hg2bJh24MaUUmLMuaxdu3Yr
V64U+4A7JfYKCgrZAHhD4tydO3d6cO+DBw8++OADDNemTZt0p7CKmFBOFS1a
1BhcX7hwYerUqbrBGiwnDBBjFRkZeeDAAe2ps2fP4q20fnDjxo3E4KIHEi7a
PR3Dhw8X0+DxffXq1YNYcouuPwTCCWulbHZm/sTFxRUqVCglJUX8fPHiBQ80
tatQFI47m/qDt+BY7aycpUX8/f1HjBghHRwOKF++fLq+DosQM8qkB8TRjBo1
ihISFPBA42D6qlWrcIJW0mDeuXMHPiPZEUJFZIFH4x/ct8WudcGWKZJFhnbm
zJnSpUv7+voePnxYHDFSSoRq9uzZHGnQoIFodL69VatW+HfYzoYNG+wsd+Lh
X331FV/twdgB3wjFhVIah185NXPmTPSRs4sXL9bdCDkhjjNGf1BBKByn4M9a
lTFOpHSvkggD9YPqTZw40Ugat2/fXqBAAQiq6SQZCQqgS/vgGexrUFr2Enue
uWjRIsx1/fr15ZxPI6WE09LoiD2EXAiDg2KvoKCQDWCHUmJhiJ2xMMuXL9ce
xydCUbBR8ECo16lTp7RnsUVE96YzvdPSO9CMs5tw5cWLF9eOduHItKNjmE3c
hPRu4i2mkxgx+NWqVZs/f77lrzTB+fPnic1lObG9FStWxF8brTcmt02bNl27
dtWWzSaSk5MDAgJcVaAV4NNxCtJT8CFwg+bNm3vW+SNmlOHrhZc5ffo0xfvs
s89u375tyh8uXbpUqlQp044yHX7//ff27dsLCkHdxsfHw3sRrUOHDi1btszN
dAJtbScmJubOnbtXr14WfbHoc4Z3RUdHiwY1UkqaFS6RK1cuCiOOEF7VqlWL
7z137hxs0w7nsUMpuZdgjcITmulETghty5YtOcs1utpLSkqC85hWKeJhFIyr
V6/SygsXLpRHMlRJHk4tGXUElQwMDITPUAD3XwdJ7tatmxXJcQ/7GpSW7cSe
xiL4hdjLSMpIKbHAhCR8hdzt3UGxV1BQyAawQynxNYSoeKg5c+ZoDR0maNKk
SZcvXy5Xrtzbb78t5xoJHDhwALaZYeyMTU5ISLh48SLumyi4bdu2ns0u02HP
nj3+/v4YZ9OzlAqLGh4eDqkg6NY5ZX5SHjHcs2nTpmHDhlFva9asady48fjx
402LJyaIVq9e3eOVL8YHDh8+vE6dOq4WkD5//nzlypV9+vSJiIgw7hGJCxD9
JHxIWFjY6tWrd+3ahd+heqWb0L7LSm3s3r3bx8cHfzp06FC4CmQV50IJR48e
bTojAqpfr149i31NZ86cadasGVyIYiA2MIqQkBCebOztEfsRf/HFF3D4AQMG
9O/f/+uvv0Z4Zs2ahYjy06K/E4xO29FnpJQPHz788MMP8+fPL7vTuZKGRpVG
jBhhk6vYoZRp6VvbU3jdVqSoKk1z4cKFnj17cnbkyJFaBUQ4x4wZk+E6MtHW
27dvFzzHPisTzyTApEiIRIYFQOTGjRtnnB2d2Te616A3U+x/++23jz/+WDvk
ZKSUWHLsORxSLml3UOwVFBSyAexQSuwJpgzDhTmVHgoLFhMTc+rUqV9//bVG
jRpvvfWWduU1r8N5WclgBtUpXLgwQf3MmTMx1PYn5AvExsYSZZvOWofEYpNF
HhUBiJl2thWORttLwAfiXpOTk91/TmJiYpEiRXRdtR4D4tq0adNOnTqZdnvi
7GrWrCnLj8vj7bLAtNH8+fPxVuInNOPIkSM4TXyB0e9YrA1uxJ9WqlTpZjqg
rOIsDtTVIgvEpkuXLtZ3K+b6GzduCILEJ9y9e9c4aQF60KNHD2ienMnGVycl
JVFCjlN4HJ/1qYkLFy7kFmi2qGQjpbx37161atV8fX1PnDihvZFPtp802yal
RGVy5cqFymgZGtR3yZIl1CQUhU/TrrzmdZySmwu4gZjKiBjs3bs3MDCQyMX+
urNffvmlSpUqFCnL9l5xr0FvrNhjDVq0aMGHc684YqSUO3bsyJs3b4MGDXTf
6IjYKygoZAPYoZTY1YEDB2K4Bg0aJD3U6dOnxST/J0+eBAUF5cyZU45nYe7W
r19vnHhpCmzU6tWrR40aFR8fb3M2vq7A77//vi6HZFq6AR85cmTZsmUpPJ9w
7NixiIgIOK1cBE15Jk2aZOzKyxB4c57j2TRFI/AsVatWNc1Qx6m6desGBwdv
3LjxwoUL0N2WLVtqkzjhIyZPnmxlEqn12sATtWnTpmPHjtbnpor0fRUrVnRq
Sv/Dhw+bNWtWuXJlsUuLBOSBF5UrVy5PnjwInvUHIrGwsubNmwtHaaSUt27d
evfdd3G43tjNxCalpN3x+zBeuXAGHYda8JMn02oobEhIiJxpySdw0Aol4HYI
FY8Sqc49KJsRYsofomUn33im4EaD3mSx59uRCmRDTgoyUkrqgWfiL+xkXlJQ
UMjGsEMpxapPrFDXrl2Fh8Ka4W4E78L84pQ5KzPX3b59e+zYsRaDdG/gxYsX
7dq1a9SokbEMhw4dEvOg5BEc6Nq1a/k04W3xLzgaDxbhnj9/Hq+0aNEii9dD
JPB63GWaFJq69ff3l6nwJMQAIu5e6+MouRgIS/vPolo5Uco9rNcG5Kp8+fKZ
7WLi3qJFi9pZdC9Bm4aFhUFLjKEKxYuMjEQCixQpQn1afya1VKBAgQ8//FD0
PhkppcjIGhgYaIxN7MMmpaTtKHyZMmXEIKmI4+RIAYSBCpGLSqg9ZMnijjaO
QxqQGjVqOFuTjx8/RrquXr1qFEtXGpT2Zou9WAWvnRSho5Ri+b+rZAIKCgpv
GuB79+/fv/ffuHLlSpMmTRITE+8ZgFl2bzClkYGUCiaTkpIiU9PIsBeSKXZd
xJ25msSYNRAsV/Y+SWCfMaTG7B9cFh4enpqaygWTJk3ybPBdWGZTF2aKffv2
QXpN19GDH3/8EU9hXF50/fr1AQMGGLtz8V9Dhw6l6W/cuBEdHW1lPmqmaoPH
hoaGZrZmYLmFChUyTvX0AEhUwYIFP/jgAzn4KCH6hZBA91tzGoGavP/++zLJ
s5FSJiQk5MqVq1+/fsadRjMFbqfYOr0joIiKiiIW+OWXX3Sn4F0ZvlHQXURO
dF7pVousWrUqZ86cH330kRi7PHr06Ny5c1/Wqgq+pXPnzmKOgYN7r/DJffr0
8fHx6dWrl7G6XGmQEnsxO1TepaOUNBB8WzeRSUFB4c0E/LBFixZYjHz/jbx5
84o9E/MZQCyfYe/l0qVLcbWi30/kk5R9ayKdGg8XY0zEy9OmTXNw4bMHwFQG
Bwe3atVKN3CDtTxz5oyps163bh0mFGIGJ/SMP4heEcGrLd6C6ylRooTpMgTK
CWEwJoGBBZlez6eNHTv25s2ba9eutdgX7dXaEFi+fLmvr6/93Srl1AttzlIJ
PqR9+/YZ7npjBBfHxMRAvcRUNB2lRIqaNWsGN8iwy5crCdlwzaa9OmJbT4iB
UfVypsN4PH/+/BnuRXj16lXkTVAXXrFo0SJ4ozwrBprF3A+KxwdaSWvjJWAN
RAOZNp8OlHbXrl0Wpe6nn34qXrx4fHy88ZQrDVJijw3HRyCQR44cSTNQSiqH
n0FBQRnuLOle7BUUFLIx7Ax8p6Uno8uTJ0+tWrXwUKtWrcLmy1MiURuWrXfv
3s+fP58yZYp2gzYBLN6CBQs6d+7M3xUrVqz6DzZv3uxqlrsdiF7Kpk2bWl88
furUKcoGx7M4ZGwETK9o0aK6RfFugM/q1auX6eh82n/6WObOnWvx7byUwu/Z
swfyYOzQyCzs14ZAXFwcbv3s2bM2y8MX1axZ01WPLmSpfPnypUuXFqkRMwUq
v1OnTlT1gQMHtJQSqaYpYWWwQfcsCAGOjIz08/OzviJDwObA9+3bt8uVKydW
o1+4cAFeoY3jxKJdkaAbmmRM3CpAzLV+/Xp0Njo6GmLmDWVM0yRmN53ZqAMl
nzFjhkWWggGh5k37AzOrQWlvktifO3cO4UFi7927p6WU0EjcBCxdG56YwmOx
V1BQyAawSSlTUlJ8fHwqV658/PjxyZMna6ma2DIYf9GhQwcuw5yazoeHPv0/
A2B9Ti3J0UJsV9ewYUPrLhKzjHMfM2aMx+YRD4IfWbJkicXrhb8YMWKEqfe8
du0ahh1fb73/AdpA+SEG9lfU2q+NtP/kCZcjs3Zw48aNgIAA032LwJo1a3C7
ERERnnEzkf27YsWKuMg6deogljyqR48eHCHqsbgNSu3atbkrU901NimlWJcN
6d2wYQMKqFtHA8sqVKgQInTixAnoomneHgJAPhz6JOarwC1DQkKcyoKlBc+P
jY3VTsZ2BYLBqKgoizMDKTPqgxKZxlAeaNAbJfYITNu2bRF4qkjs8T1v3ry6
des2adLEIhn2TOwVFBSyAWxSSphkwYIFiWRNsyAS1+MvMEfDhw833ekbrx0W
FrZ79+7Lly9fTwdWKzQ01EspzjBx4eHh2l3kMgQhf1BQ0NKlSz3mY/v27cP4
b9++XVcSvnrIkCGDBw+m8nft2iXdH9WI3xk/fjwujMqBEGq9rUjNZGWgUAJq
QRM4UqX2ayPtPx6/atWqpiKR2fKUKVOmQoUKxlW0CHbjxo2rVaumHdjFF1N1
ctk+ERDf4n7x8l9//UVLUVokuUuXLgcPHrS+3BVhRjUyu3eSTUopMy3079+f
OELn1kXXE6wSRTBujCiQlJSkHV5H/L788kuLO1pmFmfOnClatGj16tXdqCQV
ggwbk9nC9MaOHTtw4MCFCxcePXpUbpAK8WvUqBG8aPr06XzmpEmTtCvdPNCg
N1DsMUcwSR8fn7fffptqvHjxovVv90zsFRQUsgFsUkoxioS3HT16tNFEr1u3
Lnfu3NglV3tGYLiWLFkiB+ZwXrNmzUpOTvasMFawYMECzJ31jgJYLnzMOGRv
HatWrcKJaztY4CS4wnbt2t26dUtsXZc/f36ZEB4aAB/o27fv48eP79+/36BB
A+2uIn/88UfLli0ztZyB20NCQhxJHGe/NtLS+4o7deqUqekHrsATkN6AgABd
olHc3/z58319fXW5m+Li4kqWLClb/8CBAwiDbvdPI6hq3qLb49sKuJ7XZTbf
jk1KKTMt1KlTx8jTBBvhbK9evVxxY4oNJ5FrT7isa9euFnN/ZRaoPIEVVmLx
4sWmpIWDKSkp0ELdCMh3331Xr169vXv3QtUSEhJgPnLzQeJTmjUwMBBuQx1y
HBWTH+uBBr2ZYm+6x7cVeCb2CgoK2QA2KSU2DetRvnz5q1evGs9i9vPly4cB
t7jwkOtnz55tcxWtexw5csTf318759M94Mz9+vXzmI/h46KiorT7TWD2Fy1a
RKWJUSQxPaBs2bLQy7R0DxsaGlq7dm1xvch61KZNG+kQxXY8NWrUsD4QiUMx
XafgAWzWhsCjR49gO8bdh/H+O3bs4Dg1RmRhsTOHAKRgwYLaHiT+2bhxY4kS
JXBtWpZC3fbo0UNOUhU1j+hqk8aYAm4fFBQEDbOybF92nc2bN4/XeTCjzCal
FJkW8uTJYxrHiSTtqICbxEGQSTGuunDhQjT366+/7t27t5emU6alx5Vw4EKF
Cq1cuVKn+5yCTFKfOgNCgFa6dOnY2FjRHKJjX2aPhP0WLlz4+++/Fz+XLVsG
L5KL1zzQoDdT7I8ePcorLC5Rty/2CgoK2QA2KeWdO3fwUHPnzjV1tYcPH8Y3
SdvuHji7AQMGWNlYxw54S/Xq1XHZFsdxtmzZYmdfj+fPn+MutangxSbjEEWZ
Rrtjx46ffvqpII1iIqVcrSDckC7rEcQbx2FxOx4cyogRI+wvMhWwWRsC8AGk
AjeqPfjrr7/Cpbt27UoN4Iy6devmajapDlTs4sWLS5UqFRkZuWfPHkrIQ2CA
+/bt05WTVwQGBsq0e1S4jq7r8OTJE4oBdcmVK5ec5Zs/f/6qVauajoHqus6W
L1/u4+NjZeGJ8Tl2KKXItIBSm8Zx0OP69euPGTPGfakOHjxYoUIFvhduNnjw
YG/vjYIVglMRfjZo0GDGjBnffvstNYw1aNWqVVJSkpGDhYWFFS9eXPaDJSQk
oBHipxhfltsZ8DM6Olo37TBTGpT2hok91YKEFC1aVMp8jhw5/Pz8aBrTuaxO
ib2CgkI2gE1Kia/Bmrnqwbh///62bdus9DqK2HncuHHeNkQ8H+vaokUL7Q7I
roDdxsInJiZ6/LpLly7hmrXVe+DAAWiJTP8Oha5cubJcLHDu3Dl/f3+550Vq
airGXJdbGO9Tu3Zt2UXjHlBoPIjcQMcO7NeGwJIlS6DN2jFZpAiH2LBhQ5Gf
5Pr1640bN9ZuJZkhbt68SZVGRETExMQQyJiOaZ48ebJYsWKbN28WP2/fvk3T
TJ061al9AN13nVmHTUrJ7QRxrlImooyQtAzzih89erRnz54dOnTIkydP3rx5
J06caH+4NkNQKho9Kipq2LBhULjTp0+bWoOHDx/WqlVLZmsXFFquuUOvmzZt
2r17d2F2uAb7pktKnykNUmLvHk6JvYKCQjYAnqJ3794iEdlLBAafOFfaPa/i
xIkTFStWtNJHIVJneLw9NzZ23rx5wcHB2tXrcOzChQvv3r1b/MT7Y4HhnJDJ
48ePHzt2DPss8i2LDEtczEHdY/EI+E0rQ0sHDx5s3769I4NQNmtDAI/funVr
XZbOlJSUAgUKyM2FvYS4uDiqWs6I279/Pz959Q8//JBhapQM4b7rLFMQeZ9o
4pfVz4M0NmvWTKzmQBSDgoJy5MjxEsujA1FYlSpVZJwl1hcPGTKEfzAg/P3o
o48kZbpw4cI777yDvGkLnykNUmLvBg6KvYKCgoJT+O6777D8xq0rvIEXL14M
GjQow5TRaekRN37H463iHjx40KhRI91S2dTUVNlviUf7/PPP+XAs8Ny5czHy
N2/erFWrlpg5z8GqVatOnz7dWM5bt27Vr18fv+C+APivGTNmyDEvm7BZGwJ8
Gh+ozZhnOjTpOMSMMn9/f7FI4enTp23bthVrFmJjYzO1XaMpXHWdvXYzyp49
e/bpp5+uXLlSHoEOhYaG1qlTx3SH0KwHUTBREhySSkZ44uPj8+bNu3TpUqIn
6Nlff/3Vp0+fqKgoTnFlt27dWrZsaSy5RQ1KU2LvFtlG7BUUFLINYD7E707t
fmsFWFTs3pkzZ9xfhofCPXm2XIiPWrx4cefOnXUj7LiSJUuWtGnTBq5IgA/h
xCYPGzZszpw5eEPu4khISAg/+ZuYmOiKDeL0O3bs6N50//nnn126dFm3bp0H
5TfCTm0IUBVQaD5f21fDB/L5lSpV0k2jdXaXQDGjzNfXF740e/ZsAopVq1bV
rl2bf2JiYuxv6mTsOoOD8V2i6+xl7XjoAago4iDd/Oe9e/cGBwfbT5XvFNDc
Zs2aYTTCw8MXLVoEb0RZRo8eLTLnXLx4Ec45bdq0AQMGEE+5mpZjRYPSlNi7
RbYRewUFhWwDzDVOgVBaZk7LAmDxeKkbh4I9jIiISEhI8Oz5Fy5caN26tekm
iWnpfUE3btwQJhfid/fuXa27wQdhq91PduIuLPmCBQvcXHbv3j3KYD+1cprt
2khL59jx8fF4eeOsvG3btpUrV04GFLgneDUe0EGXdPLkST8/vy1btuDsqHm5
VIEqcmRSmbHrLF++fCtWrDh06BCcxKl5a1kAaAZtNGrUKEmi+Jz58+d/9dVX
r8jAtwDFox1FvEbB0CDtTEJa4datW+7TBFnRICX27pFtxF5BQSHbQKQ9KV26
dFZuN4wNxJuMGzfOld/BQm7dutWzvMTcFRoa6u0Zqo8ePerbt69uDanugo0b
Nzqyr7qd2hDYt28fpTUdQKQJZs2a1bFjx8WLF0Ndhg4dim91djv4uLi4gIAA
D7aosw73XWevER48eNC7d28aa+fOnXv37o2MjJwwYYLFPGCvFzLUICX2GSLb
iL2CgkK2weXLlw8fPpzF3SBiCxtHVkPrcPTo0QsXLjj+WCOePn2alJTk7Rwv
9oH3pJym2/9pr7l27Zo3ZmERs/Ts2bNJkyZWlvnbfJGbrrPXCP/+979//vln
4hEIVfbmBl7VICX2CgoKCgoK2Qk4uOjo6NWrV6uROIU3B0rsFRQUFBQUFBQU
FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQU
FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQU
FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBTs4P8DXKLTSw==

     "], {{0, 181.}, {881., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{645.7999999999976, Automatic},
   ImageSizeRaw->{881., 181.},
   PlotRange->{{0, 881.}, {0, 181.}}]], "Input",ExpressionUUID->
  "1d5d1e1a-e19c-4961-9127-0b383ec48225"],
 ", FieldNumber = 7"
}], "Subsubsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
   3.831837565561267*^9, 3.831837565717546*^9}, 3.8318376089841914`*^9, {
   3.8329479164930973`*^9, 3.832947916789883*^9}, {3.8329608807532234`*^9, 
   3.832960881077914*^9}},ExpressionUUID->"7b18a60e-6143-48c8-9d73-\
34112aa60e61"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", "0", ",", 
     RowBox[{"1", "/", "4"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", "1", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      RowBox[{"I", "/", "2"}]}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "4"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "2"}], ",", "0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3", " ", 
      RowBox[{"I", "/", "2"}]}], ",", "0", ",", 
     RowBox[{"I", "/", "4"}], ",", "0", ",", 
     RowBox[{"I", "/", "2"}], ",", "0", ",", "0", ",", 
     RowBox[{"I", "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", "0", ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.831831302775831*^9, 
  3.8318313425712132`*^9}, {3.831831417571769*^9, 3.8318314249331074`*^9}, {
  3.8318360089626865`*^9, 3.8318360258726*^9}, {3.83183697293332*^9, 
  3.831836980278759*^9}, {3.8318373329155426`*^9, 3.8318373882613344`*^9}, {
  3.832947939008093*^9, 3.832947950335035*^9}, {3.832948656116955*^9, 
  3.8329487410535097`*^9}, {3.832948894769576*^9, 3.8329489277416515`*^9}, {
  3.832960987426204*^9, 3.832961104505628*^9}},
 CellLabel->
  "In[463]:=",ExpressionUUID->"efa6297b-6c93-4311-a7e5-d5f65dec3264"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318348118468747`*^9, 3.831834815644092*^9}},
 CellLabel->
  "In[467]:=",ExpressionUUID->"de6ce26c-a48c-492b-8e14-c3d289b48fa6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, {3.8318348123779774`*^9, 3.8318348160189466`*^9}, 
   3.8318354324495916`*^9, 3.8318355280734353`*^9, 3.831836057734417*^9, 
   3.831836224616662*^9, 3.8318369940172477`*^9, {3.83183739467624*^9, 
   3.8318374223770795`*^9}, 3.8318397993831377`*^9, 3.8329475119105663`*^9, 
   3.832948941291499*^9, 3.832958613181907*^9, 3.8329611481354084`*^9, 
   3.832961383717307*^9, 3.832961854684369*^9, 3.845826955165579*^9, 
   3.8458525448868523`*^9, 3.8458571529282703`*^9, 3.8459197054373655`*^9, 
   3.846006656044608*^9, 3.846099979641604*^9, 3.8474705426358*^9, 
   3.851700730520319*^9, 3.853975540752227*^9, 3.8549775111917243`*^9, 
   3.854989351519189*^9, 3.85499999078283*^9, 3.8551653501403203`*^9, 
   3.8551824106179657`*^9, 3.85518595215597*^9, 3.8553307360578604`*^9, 
   3.8553399363457255`*^9, 3.855343276596696*^9, 3.8553441122101803`*^9, 
   3.8553528422663183`*^9, 3.855449696316423*^9, 3.8555076949053926`*^9, 
   3.855508497160286*^9, 3.8555129921416273`*^9, 3.855533413862685*^9, 
   3.855579013154605*^9, 3.8555933831629915`*^9, 3.855750694984742*^9},
 CellLabel->
  "Out[468]=",ExpressionUUID->"d9614908-9da7-442c-8ebd-9bd312fedcb6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDRHSW", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "1", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "cc", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "2", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGamma", "[", 
           RowBox[{"nu", ",", "mu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "3", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "4", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGammadown", "[", 
             RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "5", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"\[Gamma]5", "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "6", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGamma", "[", 
             RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "7", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"\[Gamma]5down", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "8", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"Cmetric", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], 
            "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}, 3.832948966605893*^9, {3.8329490066212797`*^9, 
   3.832949165343768*^9}, {3.8329492191094065`*^9, 3.832949345931453*^9}, {
   3.8329493910452533`*^9, 3.83294939649691*^9}, {3.8329494596448545`*^9, 
   3.8329495059992666`*^9}, {3.832949539592924*^9, 3.832949618672328*^9}, {
   3.832949652028014*^9, 3.8329497369508505`*^9}, {3.832949808347021*^9, 
   3.832949837440094*^9}, {3.832961235539524*^9, 3.832961244699793*^9}},
 CellLabel->
  "In[469]:=",ExpressionUUID->"3a9e67a9-b52d-4a3c-a3df-17b2cc3a9234"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AlgebraDDResultW", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"AlgebraDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"AlgebraDDRHSW", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}, 3.8329497831714077`*^9, 3.8329586005652723`*^9, {
   3.8329612499850945`*^9, 3.832961258616969*^9}, {3.8329613628178654`*^9, 
   3.832961367488902*^9}},
 CellLabel->
  "In[470]:=",ExpressionUUID->"bcded549-8f9c-48ea-8ccf-69449631c959"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, 
   3.831835435398642*^9, 3.8318355330585437`*^9, 3.831835717106969*^9, 
   3.8318357717602043`*^9, 3.83183606388894*^9, 3.831837000246211*^9, {
   3.8318374034065166`*^9, 3.831837427619596*^9}, 3.8318398044711704`*^9, 
   3.8329475172572937`*^9, 3.832949798211484*^9, 3.832949843855173*^9, 
   3.8329586178151646`*^9, {3.832961377745216*^9, 3.8329613883020906`*^9}, 
   3.8329618594346876`*^9, 3.845826960930478*^9, 3.845852550431394*^9, 
   3.845857158349978*^9, 3.8459197110609856`*^9, 3.846006660734395*^9, 
   3.8460999856611485`*^9, 3.847470548119612*^9, 3.8517007362939587`*^9, 
   3.853975546033856*^9, 3.854977518830505*^9, 3.8549893567294407`*^9, 
   3.8549999962838*^9, 3.855165356027715*^9, 3.8551824167908163`*^9, 
   3.855185957342188*^9, 3.855330741588637*^9, 3.8553399417574296`*^9, 
   3.855343282079874*^9, 3.8553441182111263`*^9, 3.855352848667873*^9, 
   3.855449701727293*^9, 3.855507700080537*^9, 3.855508502577277*^9, 
   3.855512997624572*^9, 3.855533419382699*^9, 3.8555790185135465`*^9, 
   3.8555933888982115`*^9, 3.8557507005846252`*^9},
 CellLabel->
  "Out[470]=",ExpressionUUID->"4030b419-e657-4bec-ace3-5dc0ab9c2bc6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", 
   "\[Kappa]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}, {
   3.8329497659203863`*^9, 3.8329497726326275`*^9}},
 CellLabel->
  "In[471]:=",ExpressionUUID->"492f3873-7bb5-41ac-ae07-0d5b0359ae8a"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzs/Ql0Tff+/4+jhlBTDRUiJWalZiLGxjzHTNQQBBFTS4wJocYQQ6Ixj0HM
87gQ00VNiyqKRWtYSmupWrTfq6v3rvwf/7zX3b/92fucffY5Z58k9P1ci5Wz
x/d+vV/D8/Ue/QaM6jw4S6ZMmcZ48V/n/uMDR4/uP7FLfn50Gzlm6JCRg0Jb
j4wYNGTQ6LoDPuBgMv/G88f//+8UCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCYkMib/++iu9i/D/4T//+c9///vf9C6F6/jzzz+PHDky
evTotm3b1qhRo169en369ImPj//5558d3vvDDz9MnDjxX//6VxqUU+J9xbNn
z9auXTtgwIDAwMCqVas2b948PDx8165daKbxjX///ffBgwcnTJjw66+/pk1R
JSQkJCTeVxCMIiIiSpYsmSlTpsKFC8OLnjx5or7g8uXLwcHB/J8GhXn79u2a
NWvq1KmTLVu2HDlytGvX7ty5c2q2+fz586+++mrJkiUZloLevHlz6NCh1apV
++KLL2bNmrV58+bdu3cvXLhw0KBBxYoVy5o1a4sWLbZt26aP9XxaYmJir169
uP3atWvpUniJdx1QxP3797dp08bf33/48OFxcXGoH0o4ffr0oKAgLy+v/Pnz
Dx48+NKlSxoL4ifZDRrbqVOnOXPmSIYpISEhIeEOCCsHDx6sV6/e5MmTL1y4
8O23386YMcPHxydv3rzwnK1bt27fvj00NLRJkyYXL15Mg/I8ePCAAAc3o1Tf
f//9unXr6tevnyVLllatWi1fvpzQOW3atICAgGXLlhFJ06A8ToEiHTlypE+f
PkR2Ivh//vMf/TV//fXXgQMH+Eb4M0LmW/hYIn7btm2rVKlSo0YNPvDp06fu
FIM6/eWXX65fv/7w4UP9WZjtnTt3OJuhWq0lLMHvv/+ekJDQuXPnmJiYx48f
27yGRGbx4sU1a9Yko/T19W3evPnAgQNDQkICAwMrVKjQrFmzpKSkf//73+4U
gzwRQ7569eqrV6/0Z1+8eIH6/fTTT+684n0FPgTXcfToUTL6NHZx1Brp/LFj
x3C8afleCQmJ9xg4NMjkjz/+qD5IaIiNjYXz5M+fv2HDhvHx8W/evDF4yN27
dydOnAh1cbMwL1++HDVqFPRS3cACVeMIobBAgQIVK1bkAk1pBYyZVdrg9evX
27Zte/bsmZmLf/vtNzjzvHnzRo8ePX369I0bNxKXDa6nCmbPnr17925969Pe
vXs59ccff4gjBPeOHTtmzZp16tSpmoshD7NmzYJalC1b1h4JkbAE6UKlbt++
jVKZpIiYLVoXHR0dERExf/58ch+bnFD98PHjx3OX5jiaOXfuXEUzMdj169fj
PfLly3f+/HnNxQikb9++Xl5eAwYMyIB5YroDJwbVr1279pgxYxSLThv8+uuv
/fv3r1y5Ms7WE88Xqce1a9fS+LvMQKbeEv8E2GMRGR9JSUlVq1ZNm850ezBg
Vu8HoNY1atT45ptvNF+H6x44cGC3bt1+//135eDRo0cLFiwIbdA/Bw/fqlUr
ZOVma5WEAd5LKrVp0ybMHEPTHOdja9asSSqqaCY8k9QJumIz4fr++++LFCmy
YsUKj5f4HQQks3Hjxj/88EN6FYCMvnPnzpY/FpVYt24d+mMz9UhfyNRb4h8C
eyxCwiQMmNU/CujPzJkzS5QoYbMZjYOcIp2RauZR/JOp1KtXr2BKwcHBNtuF
EhMTCxcunL45aYbF+0oyU1J55pgxY6pUqWKyryctIVNvCQkJYxgzq38U8JMd
OnTAZ9rsltq3b1+hQoWOHTuW9gX7R+GfTKVu375drFixuLg4/am///572LBh
ZNNyVpFNvMck8/Xr14GBgb17986AXdIy9ZZIdzx//nzhwoVkOl26dJHjogXI
TPfu3Tt69OiwsDCb4yQFyFuHDh0aFBQ0YcIEz4nOmFm90/j9999jYmKQ4YED
B9Q+kOPx8fGDBw+eM2eOeqL6o0ePypQpM2XKFC5+8uTJpEmTBg4cCLf8byo4
7rBXiNpMSEjwkCQp6tKlS+/du+eJh2cQvGdU6saNGxGp0NTazZs3Uad+/fpp
NHPr1q0FCxYUC3CdOXMG/zBixAhx78uXL+vWrWs8ioBHHT58GN9iecQ/dOiQ
pqiegDvlz4Ak0yqh3blzx8fH55tvvnHzOZ6ATL0l0hEY1549e9BAsrDLly/b
nDKckjpr+A87cNgCb49FeBoUzF6ZHSablHP9+vWwBfLTNm3aUHjjsWewGiJL
jhw5vv76azMP5xqNKJC8/qACA2Zl/C7LodYQ8SHqn5o5TRqh/ScVyt/idnQj
OTl5wYIFVatWVXqaXr16FRkZee7cuVu3bvn6+hLRlIeIYQMcuX79elRU1IUL
F+rVq0cdiepu2bKlca/Q/fv3u3btyl0uSwB7Qf4K77179+7ixYvRE+WCK1eu
kKzdvn3b5Vc4xJs3bwhnJB1NmzYNCAgYMmQIjMjlp/2dCv1Be5pshkp5CMY6
pnFfnNIYiPqIuBFrGj9+PFrRokWLkSNHKk9AuzgOKaJyK1eurCyJIHpFP/30
U0x+8+bNixYt2r9/f4ECBQS7EKMIli9fbvAJ27dvR3S//faby0KwBzxtaGho
UlKSR92CO+VXk0zkv3DhwtatW2O8ShZPyVetWjV9+nSXVcvYPPUk0x2h4aZI
hLl97NixfEvhwoXtDcjkA0ePHt2kSRPibKNGjXB6GJGzr1OAYWpUXfhSm0Iz
mXpLSHgI165d8/b2rlatmsHCMujz7NmzS5QokSVLlkypyJcvH7fUTAXkB45a
o0aN2NhYveHYYxGexvPnz3EmOP9M/0Px4sVFgSk5f3/88cft2rWDq9g0zHv3
7uGpIC08h1uGDRvm0OlxcVBQUM6cOQk6xlfCcOrXr49HUsqWOXNmYhPu97vv
vrN5iwGzMikQS4ALrVWrFlxaFDtv3rzNmjUTPfiCln/22WfZsmUTZ3Pnzg0T
Vqb0ogkRERHKvcWKFduxYwccctq0aYSAnj178iglFmzZsoWn8Qeag3ZBp8Vx
3jJr1iyqj7Nz5swhQCB2/PyZM2dSUj35J598wgX24gWREYa5ceNGlyVA8ILa
tW/fXkheUA59mx6fxotQHpdfZAB4Uf/+/VeuXCkaY9++fUsY5cM3bdrkQqDk
E+Li4mBNH374oaKQVKKfnx/R0+aMbDNUyhOgqIRytSPy8fFB/kggJZV4h4eH
Iwe1ySMlRSYE2QYNGmBrnOIJ2CCqm5iYuHv3buyd7503b564mMolLsPbeSNU
s1KlSop7FAMyO3XqhNZt3bqVC6AxuDix9C5qibpeunTJ3idgQc2bN9fPYbcK
Dx48gLZ5bpsDN8uvaclEziEhIeieIl7+QNrDhw+319xhDIfmabO73DWh4W1I
aaOjozFD3DJxEO9nM8AdO3asV69ePF98FN/4xRdf4Ehda9HFifXt2xcryJo1
q6LqOFtSoRUrVug9gJnUW0LCc8DHoqsjRowwY9SE8jx58uTPn18zFgs1Xrdu
HWpfunRpWIH6lD0WkTbA4iZPnowN4tk0r3706BHpp5eXF/FCv0kNlFJE8CtX
rsAG+Tozr1u2bBkhDLdjMtbjduBpyNMgKqU4YlZpDFEYRAr3JmRozhLu8Wac
xQ2K0K/Bt99+CzHAGQrSzv/EBUgLB2FKymV8oGh0Inz7+vrev39fHBfDBtDY
zz//XL9WJ1wUKm6vV0iUvF+/fg53hDEA8Qg9nz59uqhi6gLeoh+IxbfD0KZO
neparDQAL4L/7Nq1S32QwqB7yNCdma2ixYO6a9SokfFqPw6plEeBIVNCyon9
6sUL/ylatGj27Nmh3Pp7+cavv/4aVoNdiyMoAyJF95DejRs31G9J+d9Au+7d
uyvKfPv2bbJyYvqXX36p8RtoLCzXYBQBOTiJ7dq1a138cnNISkqCaL148cLy
J7tffg3JRM0aNmxIaFDMZ8OGDeQvLpNkh+Zpb0yms0Kj5IgCvi0sRbwI6qhv
/Ce1IdfWjKUnIaIYTZs2dac9k3sDAgIwhJkzZxpEHIept4SER7FmzZoPPvhg
woQJZqIh+dpHqbA5+BA7ql27doECBTBk5aA9FpFmmD9/PmYIv7VJLfbs2QPH
q1evnr2uhJUrV3788cd8uJl3OSXMlNTdFSFFPN94CJ8xs0p7QBGzZMni7++v
7zKjusPCwhA4ftVm2+/u3btxiepTgvsRGvTNI0R2UgA8uTJ+UgwbGD16NBTi
s88+69Onj5I7CI7EWa6xWWwqsWrVqm4y8wMHDlBlR44cET/JoaAcEH79lRcu
XOB1CpmxCnwFBE//mRCeihUrEuZscnuT+Oabb6g7lM3gIQ6plElgj8br09oD
ZaOElJP8UR83hRxy5Mixc+dOm/dGRUUdP35cfRCeIJikvqkHncRxLViwQDmy
bds2FAD1g6xyatWqVUoZMIe6dev279/fXq8l4m3SpIknOsrVgPDAlyiztaTC
kvJrSKaYQrVo0SLxk7qrVavWiBEjXJ4749A87ZFMZ4WGH8uVK5cyApMPsRfg
+LrMmTPrtYLQkzdvXki1yU/TA3WlzDzceJEH49RbQsLTsJBkpqTuz4hRlytX
Ts2aDFhEGsCYZFI2LkACISEh+gtwC5Alm2zKJuwJk7cQ8oiM+E/1ou42SSaJ
J5eRJhO/xHMMmFW6YMuWLdmyZbO5TiBBHJ6DwLt27aqPFM+fPx87dqzmrhcv
XpCb4IT5qKSkJPV6mDB/dAlWoHh+XCUSEwMSli5diuiQ5/379w8dOsTtLVq0
CAoKorI2btyoERGSpF6oAnfm+1CM6OjoUqVKKUvib968mfKcO3dOfzHqBEN2
OJrXWWBiJUuWDA4O1nygaEMuXry40uprAIQAIUdW8+bNUz9HTzLFLA9eR4WK
/gtjKmUSwieMGTPGhYyJ9/br149y2uxU5fOpIMzQZu8DKUZMTIym5CdPnqQS
t27dSrVqFvLdvn07p06fPi1+8rqIiIhKlSqhw4iobSqI9bAanBvuEYVctmwZ
5qyfF4PyBwQEpE2iTRmqVaum76BxB5aUX0MyBWMX7ZZkHL169cLvudwGa8Y8
DWaXmxeaWCi1QIECyugm9ITUT+8HKBIkkzLwcI0+oCRFixbt1q2bmawQ7erd
uzdmqB6Hb5NkYtpQZUx71KhRL1++dJh6S0h4GtaSTDHtFP8/cuRIxZMbsIg0
gDHJTElNn+FLpKX6JSjFgMywsDCT8dRAmDwBbwM3q1OnjjJUT08yEU5gYCB+
g4co7SoGzCpdekB4L+KC6ui3Hzp16lTFihUROHxPI3AxpF/fvnTp0qUiRYrs
2LEDDgPxUIs6OTlZjERVnsAFn3zyiZgmgC+FguI8kcnx48eJX9WrV4eRXrly
Zfbs2Zoq4zK4gZvDCMWIL3RJMFURa3jskydPoCj6Uc2rV68uX7582qw6xfdi
YtSL0oxjDLiiaA+cNGmSoq56knnhwgWCaf78+al0ccSYSpkEd02bNg2W6AJT
pbQEUMqpH6XAqZkzZ4qR2Polhl69ejVx4kTNShFCqVAklJmPUj5TPG3cuHHo
s0I8xIBM0b2LDjRv3nzAgAGYMzJE/ZA8KTYmsHLlSpi55u3wkNKlS3t0OpgC
OAm8wuaAAZdhSfnVJFMMmBTjXREsymBz5JJ5mDFPA5JpXmii8UHJsnkRuTPp
P4VHSia3zRVNB9Bakz0CFy9eJIXMmzfviRMnxBE9yUSZcX0cIR0QrBJRGKTe
EhJpAGtJZsr/GAjmoDTZGbCINIBDksmHf/nll1zTpUsXTX8ZBSY/NTkgM8WR
MIVXyZ07t+Il9CQTCRMiixUrprT6GjMrkwWzFiTs+LrChQtrmqaJFETbyZMn
4+Xq16+vySZgxZzVezkcNW4wPDycgK5Ot/nwOXPm+Pr6KqyAyP7FF18QiURV
fvfddyQv1N3UqVPFigE8v2XLlhzRz5+C3Pr4+NibV2USYsSXMt8KAsYzO3bs
CD+B3OrHMd64cYOqNK8/zkKsSCD+5o/u3buTxWzevNnk7du2bcuePTtplJL1
6Ekm+sYRZK4cMaZSJuEOyeReapxStWvXTtMKdPXq1SlTpsD9OKvfGwsCAO3X
s2K+yN/fH/7Jx6o9gH5AJgpQtmxZuKgoxpIlS9Dzr776CkmKZR/QZOiHXhn4
zNDQUM66NkLAWWAOrVu37tGjhztjJ9SwqvxqkomIGjVqhHhJolE52JE7g6VT
zJmnAcl0Smjx8fFVq1YVlBitI+PmRY8fP8YFGbSiqNcPIfckSvr5+ZlsYxRZ
JIo9fvx4EV/0JJNPINIRg7BNccQ49ZaQSANYTjKhBNgOwU4ZbWKPRaQNHJJM
AA3ImjWrfqlzjBd6bHJAZoojYeJ8CElIJikpSRzRk0ziHRQdt6Ckt8bMymTB
rMXNmzdF65Zm/hehNjExkXyZbyRDV08LwrnBGO2N50dcXKzfiBy/jeaoP5NI
oaYBhDwiu/rGly9f6sXC80eOHKlmUxpAJ1atWtWvX79Ro0Z9++23mrOUTSjG
gQMHcubMSeRCmZE/FY3f5rFjxoyxuROTaMO3vMec0kKHoNNoRVhY2ODBgwnT
opEN0kg2Z/I558+fz5cvn7pFWkMyRVsQR9T92gZUyjzcIZkgLi6OUn3++efq
nAUDoVKuXbsmBmzA/dRm+PTpU/yPva5Y7tUPiRErHy5cuFBdbJ6g1jd0Q30j
pziiN398YJUqVSiAPTeL24yOjqbkM2fO1DeF4SicaoPiLbAd9axtN2FV+dUk
k1tIulG2xYsXGzdg8lIS82HDhsGycC8aEshP4hHXmDFPA5LplNDwM3379h00
aBC5ydixY2NiYmrUqMGLbC4tgiKh6sSgPn36YK1cDx++dOkSLrRcuXJiXQKH
ECajbsDXk0yiBo73ww8/PHr0qDhinHpLSKQBSO2zZMliIcnEjZDiYQuEJ/Wi
iHoWkTYwQzIPHz4MtcM24XjEzeXLl/OBYkmitm3bmk/eBclUMk0NKADFwCcs
XbpUHNGTzN27d+fIkSMgIEA969Ahs0pjEB3w5Oom2ZTUUQf4WwIubhZXT/hQ
z6WCuRF9zIznv3379pIlSyDkN27c8PX1hU64/6VILDAwkOBis42CuhYaK0Dh
169fr96oGhW6ePGiaEDju35KhUKhYR32poiK1kV9o647QJKEe6K5UgC+juiz
d+9ePz+/PHnynDp1yuSj+HBsuVChQkqng4ZkwgCJiRwRC7QqN9qjUubhJskk
K8TQ4A9q0khgpfzIXIzYUY8aFZNW1BMS7UFwlV27dvFHQkKC+63fAlBfLB1n
qz9F2fgc2L6igRAP9eI2iBo+76wKocNUrlX7aFtVfhcWY8f7hYaGioWnBEgG
1YkkXgiPSl2bMU/jHX+cFRpOT2GkvMjmREixvFh8fLzi/XBxkZGRRBmScZJQ
82NQyXf4fEKSME89yaQ8FSpUyJs379mzZ9U32ky9JSTSBosWLUJvlTUfjGGG
ZCrrKmSQDbbMkEyxlJBoY9y3bx8JJm4TUkQUM9+MmfK/GTH2FtVEGp06daIw
FEkc0ZNM0QxI4ulmz1FKqvPHs+FzyphG+fLlzSyDDMXlSsgwlFh5FxFZpM9i
nauiRYsqM1BgQUQZM6O5xJheghROEqoTEhLicluZvsDqpbbVp2rVqtWoUaNN
mzYRSWEXzZs3RxRKHz11BMXCn1MjrVu3Ju8wv9ycGHVWunRpqxrwIZBFihTB
sjQhA3vs1q2bl5cX4cz8EFAqqFixYpizwqM0JBONDQ4O5ojN6fPuwE2SSTWh
fui20gKG25k0aRI/lVXLsDXF/9y8eZODZuKsWKcRGnPo0KHKlSurJ4+7AwqM
V7HJcknKvL29Bw0ahPlcuXIFTlKyZMk+ffooCRE+Acfi7Bt5Gm/cunWru0VP
hVXld5ZkUoNfffVViRIlYmJiLly4cPr06VGjRlESZalb6pSavXv3rknzNCaZ
1goN3cadfvjhh2vXrtXkaBxp2LAhWop9mY+SkHxyq6ZNmwpN1pPMBw8e4AGI
Ke5szSAhYSHwzE2aNClQoIDJ3M0pktm9e/d3hWRCaSCZWbNmJZPFftesWTN6
9GhYk7OLdRDfK1asCEeyOcNXTHBWd+RpSKayBKXLaxGrwdMgTlCmQNNASny1
w1eL+VCIKzExURzBp02dOlXp0NcoCbx96dKlJoM17G727Nmih8uqXmZiUOHC
hfWZFF8aHR0NOVEHJhRg4MCBYhYtF8TGxooGWxy4n5+fs/v/EhyxL/UCjMbg
7SgDdFcfKykA/Kds2bL6TU5//fXXGjVqoDmYs/l+1RcvXlCP6rlCGpLJo6AE
OXPmtDkYwB24STKTk5Nz587t6+urbASwYcOGbdu2ibOKySuL1VP1Jlf15FFU
NyohFmN3oWw2sWzZMtiLfiQGFQcZ1vSx4hYwRmE+2FpERIR+QVqHuHr1Km9U
VgdyCCqChIu7bM5Dsar8zpJMKloMqlSOiIbTHj16iMqFdmJi2KlJ8zQmmc4K
zRjbt2/HuEhY9B0osFmx94Gy/r8ZoJmovTISSU8yRRe8zXU/JCTSGCj2uXPn
yIkIvuY3CjFDMgUDwXzM7JKTBjBDMkXMIpgqO8u4jDNnzpQpU6Z69eqHDx/W
c2wxagg3KxroNCRTjELMnj27Ei4zJgT3QKqCieFC4cb4Z3EWgl20aFFIuxiB
SRgaO3asC1HSQgjeqzQgK6CooaGh+lQCThgeHv7mzRvo3Pjx48V4Cf7u3bu3
Uy3bABHly5dPH51tAgUQc50Il5qZ+0qGMmrUKH0WgJBROYfLMmuAeY4YMYK7
lIWaNSRTLGMIrXWnJRYroPZ//r+Az6AVkHmerDlFfHSYnIpgiu0IuqKZeCWG
ANWtW1f0k546dYpQnr6+CN1TtxgrwPfapBnQBrHojb3JSg4hfIvJLqqU1CFD
DRo0UI8Y90T50QQ4UlhY2Nq1ax3Or+EC8nH9ukDQS4ILlsgFkydPFibp0DxR
j7i4uODg4DZt2ti7xlmhGQCTrF27NiRTvV6BAkEy0eGLFy+af+bTp08/++wz
ZfMOPclcvnz5Bx98MGDAgIzQvCPxTwa62rVrV9hOqVKl0HbzBmWGZOLwS5Ys
iZNfsmSJReV1C2ZIJn4V7+rt7e3aPl8aIJyAgAAeqKTzCn7//XdKkidPnpMn
T6boSCYOh5/+/v4e2o7QKogVApHq119/jfLAqxcuXKgwn8ePH0NL0K6DBw9y
duXKlUqvenoBweKZ9WvaYAi3bt3SX4/3htH99NNP69atU2+b7gIItQrfNgO0
lCCIeDXqKnr8vby89uzZo78LNlikSBG+0dk92ZEMaWadOnXEwDA1yRSz+wlh
kZGRLrercyNKgsJ76ZAlFfrjBF/1Amg2cefOHYot2DuvWLRokXokqpg1L/b4
EysepM0qUvaAJMXCSvqmUTyqTWPnA6HNkGT+d43hi9Z7zWBaY5AQ4QP1FmFh
+dFqHALM0AzJxAzRT5t8KTExkVomGYQQmiRUgmQiEIPecBeEZg9iRId6/Ss1
cAsof6NGjZwaait2QONGseyYhmTygU2aNMEo1EPlJSTSEXiAMWPG4NWnTp1q
0k7NkEzRKlioUCGlaSt9YWYJo/Hjx3NN8+bNla5G484je8AJrFmzBlLRqVMn
e5v4XLlyBRJev359nI+aZOKrW7ZsCVUwP3EjvSAmvIu5XSKOqJvdxAxHOPaW
LVv4LihK2izbYgDRkjlv3jyT11OPBFxIslj/0J1Xx8fH66fhGwBJkvoJ9q4+
Luam+fn5PXjwQH/Xpk2bEHiXLl2cHcorvpRoSDVRrWqSefbs2aJFixK23NzZ
x9573ekuF5msmEV77do1KJCasYglGsSi3FARMoV031APL4QaUFST12NW1Agf
gtK6xvDhitBC0gST307t9+nTp0GDBjZpT9qX3xjnz59fsGABqmstoXJWaPag
LItnc2ICRzieNWtWZaEh86B2OnfujDdD89UkkzdSbHIrXIdDm4KOkpYSfdJ9
8ziJ9x5oabdu3XDIJruJHZJMlHbixIkYl3rgd/rCIckU68xoNjs27jyyB8RS
rFixunXrGjdF3rx5s23btjVr1oyOjhZ7l8fGxtaqVevzzz83z0YcQgw45Lsy
mQZ+z8wgB2XJ/QEDBmzdunXDhg1qnyy28RVN2fg9m7vhKHj06NGECRM8nY/c
vXsX9m5+T/mU1PnL48aNS0hIcCfciLWRlV5dM0DxSND0XWxiPrUy5l8NrLhH
jx4wLjOzp/VAT2BilStXJngNHDiQaiUDQlYlSpSglj2xBXaK2yRTTM9Btzdu
3EhU1bSwffvtt/ny5aPG4cnkj/Y+ASNFP3ungtzQ/al2BoAGYObGtqAGdTp2
7NiIiAinulPVwJPwRmXfQ4cQq4JAjWwSj7QvvzHgSCgPFmrt1h7OCs0eoJFd
u3ZVz/FUA3eEcSFt1xaYEnsKlC5dGvGKkWmjRo3q1asXR1avXu3QoOD/3IiT
sXbVCwkJe1i2bBmpkMkOAockU+xRDjJIM2aKiW0lIRKQqw4dOmgmMtvrPDJA
YmIij7I5i1kPvDrcMmfOnJD86dOnIzrL21uOHTsWHh4+yDTCwsJ27drlsBjK
BN5GjRrh5zVjGokvLVu25OwXX3wxa9Ysm43kyGfBggUdO3YMDAxEAm52STvE
s2fP4CTmd25KSZ0SC+13c/ka0aBRvnx5zVJ4aFp8fHxoaCiBmMANpRRSQrBo
QvHixVFatIi6U7q/hWr169dP/wk8gcgIP1SndXv27Jk0aZKi88Q19NlgThCv
RgMhq1RchQoV+Hyrlli09zp3SCYq5+/vTyLDV+unqokOAngmJNnecvH3798f
OnToqVOnkDzUokqVKqR4npsusX//furI5lAHm6BUfBoWpFTZyZMn4S2NGzdW
9/biZrnMZocsH46jxpzVB8UCTXw4toDR7du3T2moh5kjNHQGix4yZAhJjdpy
3S+/tfjpp59QANJYa32mTaG5AD6/Z8+eojdHc4oCkxZ5eXmp61Es8aoc4Rqx
jpbB1+FmuQbfIubYHj9+3HyWJOYJ2hzdLSFhOSxcjJ2oBGfIkyePCwtuGL80
MjLS5NQJPYxJZnJycpEiRQgxmt5t484jezBeJ1MPm3uXvxMQUs2bN6++9QzR
Ca5Srlw59UbtNiEWjPI0yRQ7AIptpk3esnr16k6dOrm5uBysr3PnzhiFesDA
jz/+CAmPjo7m4eh22bJlla3lUFEKiVRXrFgB+4J8opmiFZQrCxcurF/qE/1s
3bo1FFq9oIHYX699+/bie8VKSoQVhx3fENFM/3fHHw/BTZKJ6Jo2bUpRa9as
qadYMBBfX1/Rn2LT6nlpRERETEyM8pm7d+8m7pt0gy6A6itUqBB82OT1wog0
G4Vv3rwZ5qz0OvEVpCH2phKjwPgWdbKPKPjAdu3aPXjwAO4XHBwsVgYWZykb
pD0kJOTFixd48oCAAPWqmJaU30Kg7eSABqO2XINeaC5j0aJFZIX6lUUvXbpU
tGjRwYMHq33RjRs3CEPK+smCBKp3QLAJkc5r9i43A7Iqgo61u45KSNiDUyST
xB8OqcxuU0AMJfMtVarUJ598QnplYXZJFBBrS3766acubGvLR0FQub1x48aa
nPrhw4ewwVy5chGO9fMCjDuP7MEpYab8T57mZx9nHIgJvMQpfRAn9g0ZMoSz
c+fOdagJaUMyxV4eYpdkk7fEx8ebD6n2IFZaUO9K8OrVK6I8jFc0m4uhBb16
9RKtRuikn58f/EdcD0UnFihT+MPCwnx8fNSBFbsjWlWoUEHT4ir211MmyYq3
OFy3VjGWhg0berofzU2SKZaczZYtm80tO8WS1HBye8sWobQtWrRA8RQ6cffu
XW9vb5ujESyBGJNjfsENarZ///7qukZiM2bMULaXTUklWmXKlLE5CETspq3e
OIxroD3QGzEgR7SnoSRiiK8YJaikISgbWkryoli3++W3Fij8gAEDrK0svdDc
AbaMwwkKClInmLdv3yajxN41vWYbN26E3CpRgD+g9A5HalEp/v7+5pe5VgAp
RRPkWpoSaQMzvIhTqDFqqQzeg5uVL1++UirwVPhzgimkwmAEF/bFWwYNGrRw
4ULI1ZUrV8wUD9uZN28eTAyS6dTuFTiK9u3b586dWykzhRQFJgAVK1aMmIIj
3b17t023adx5ZA8mSSYfUqdOnQIFCihlIxvFqwQEBBgk0cg2Li5u5MiREydO
NDM306PYtm0b8c7mCFIxLpeQZGbKTNqQzJTU7mNq3KQKUdfkF+anhNsDtQkt
VE+u529sRxn0hVFwgdLgc+jQIbROaRwWy+Ipw7qgrN27d69YsSIE+NixYzyE
EEPA0i/KSqLHc5RGqlu3bvHt9hZUF0MXypUrlzNnTvXoXF9f3379+hkshn/9
+vXJkycjqKioKGdl5SbJ5C44RsuWLW0WD0vBvgz2QExJbVDavn270prEt2CP
9vaEch8UmBzBfM8I3A+Sph6IQlE7dOjAJwtmhYqSvMCIbG5KSEINYSYBUcTL
Zfg9PJ6yjjf8p02bNoJGipxaGecjkiM15Xa//NZiy5Ytzq5Y6xB6oSlwTdXx
NlgrYWjz5s0YNV6RKDZnzhzNREhkPmLECPU+vKS3RYoUsbe4LlLt2bNn8eLF
iTWKwX744YdEZIPxA0r8jY2NxWnIAZkSaQZnG99cAGpPiId1EEN5y/Lly4mz
6uYdM09YvXq1+WHn7sO488gePCdMPFvdunXhGwQX+HmNGjUsXx/bKUBs4If2
PhPvarJtNs1IJg4coZlpXE1JbQojHOvXPHcW8EBit9ICL7YCh8woDY/wHJIL
odhifRJSNqVdfdGiRViKuqJ5ApowZcoUnoMd3bx5U/85HImOjhZzq8URYhyc
00LzQQkpG0SOwlAkQlu9evWcGtDoJsnkdmi2vUURKR6CNV8e0ayHqN0fjGeA
w4cPk5eZTK6xiIEDB6oT20ePHpUpU0YMngerVq0iL7BXp/ATFEBtVmJhRrIJ
8VOsM6a0glIqcvANGzaIs6JzXLMlhJvltxDoDHxv/fr11j5WL7QUt1Ud4pqU
lDRmzJjIyEgSc5t598uXL3lm3759hbj4n785YhUJ1MTfZcuWkU6anDggIeE+
0oBkXr16lbRLie+ikVDZF8wM8CrkrQ4H+FkFh51H9uAhYd66dat06dIk0eKx
eK1GjRpZsqRnuiPNSKbYeTwwMNCM6z5+/Hj79u3ddPLEl1atWqmn1KHGRF5l
EJ3onvv000+fPHkCKeJ/IpHSWPTmzZuWLVsSa5yd3y0GZCr73QhmW6lSJZ6/
detW96fzCIbz8ccfi7Ve//3vfw8ZMmTw4MFO9V2KpZOokYwQ6c6ePQu3nzNn
jkcXbIdLNG7cWL84lR6iL2DGjBnqK2GJuE2R2YlZacnJyTZv567Y2FhchLoh
cceOHRiakrBA0XkadgdpPHPmzOnTp3HRSrIDF+ViDlpYfgshVnuzalt2AZtC
s0TVHQJyC8NX+L9YAm7YsGH8sWnTJvd10v34KyHhDpydq+IsxAi9IkWKKCNA
li9f7u3t7dSAEPJuku40W27RYeeRPXiCZCLA4cOHFy1a1Kl57u8K0oxkpqR2
4dWpU0ezBZ4eYvCbsvWny4AVVK9eXbNje3x8vNK2ifMvWbIk+cvDhw8nTZoE
tySmwCoJLmIRez8/P02gNwMxILNNmzaiL/jChQs+Pj5ibz71tjguA5oKT+7Q
oYNH1/xJM2BWWDcMMw02Sdm2bVtAQIDDseVoQtu2bdUt2MqATAgh3qBv374G
y8vjvkhV1q5dqz54/fp1pZmO53fp0gXuhBOeN2/epUuXeBq6isampC6wVr58
+enTp+vpjcvltxbQJLJFa5cCsCm0tFF1+F62bNnECHB8zvz587Nnz75ixQoS
Af53k6hbEn8lJNzB1q1b0fChQ4d6KIsXG94p7SpiMBWRVOz4ZgbYHaHZtTUA
XYOZziObIBvNlCnT1KlTLUzhFYqb7kuaewJpSTLBqlWrgoKCjJsoCSjdu3dX
tmV3Da9fvyaOf/PNNxpNQO1hCIMGDZo4ceLYsWNjYmLENFJBfbkrPDx82LBh
kZGR3O7aAkpi61KIJY9CFUl5Zs+ejQqJ7eDd+SgBsdtCbGys+49Kdzx69AgK
IfbVxbphGh5dth0f2KdPH4djNn744Yf69eurR2tAgIODg0lPpkyZcvnyZYPb
ORUXF9etWzfNPEe+Dm1s3bo17BHWAZvCLY8YMQJ2TTLCXRzp1KkTP/l//fr1
Nn2dy+W3FkuXLu3Xr5+FSYE9oaWBqosBmWKDKqw1IiJi4cKFPXr06Ny5MwZr
c+cFp2Av/soBmRJpBlxB2bJl/fz8PNRQ9vjx43LlyikMTSzOAKflj82bN5th
tufOnSNKpuU8FzOdR3rwRXXr1i1QoID7E0bUIGEnm+7fv79aViImWviW9EIa
k0wIJKpIhRpEyZ9//rlVq1bujEYQi6+Ghobaywt4hdJt/eLFC838CE65vAS6
GBVQpkyZn1KhjAHjgebTOmPAVPPly7dt2zb1QbQx3XfVcRbIGbavTI9CXFFR
UZ72M/fu3WvTpo3xEuV79uyxt/iSQ1y7dg3ttefMX716hcMXnoTnP3nyRF1r
UCzctXE9err8DkHhR40atXz5cgufaU9oaaDqkD0oX0hICH/cvXtXeAxeQdVY
oor6+Eu+Ca01H38lJNwHbKpWrVrly5dPTEy0fNdsrKZ9+/aipRQ9J/jmyJFj
yZIlx48fJyE1Y61pH7xMdh4pgDNs2rQJ8lyiRAn9Xi1ugoR98ODByrTQlNTW
sHHjxonivesgHkEy03JzczQcl27wRi6gNt3x8IcPH+YVnlvZ2wBE9tatWwcF
BZlfEdRZPHr06LPPPlMvgXj16tXw8HAXVhhLR0C/kVKPHj2iU4FBdejQgT/S
IHc7e/Ys7zXo74bCuba3LMykd+/eYgCh5+C58puB2KDK5px612AgtDRQ9Rs3
bnh7e1vLmdXQx18vL6+VK1cmJyebjL8SEpZAzFqdNm3ayJEjLV/cDJ/TpEmT
KVOmDBs2bNGiRT179uzUqdOYMWMM3FT6wmTnkQDRKiIiYtKkSfAlD0V2fF1w
cDDOLT4+fvz48dRRWk609wSQ8IYNG5Bt2bJlM2XKxP/87WYPtXnA0rdv3+6h
FRHRAR7uod0YHeLBgwd+fn6Wr+6iAQlO8+bNybzmzZuHNsLN3i2GSQbRr18/
zZ6qH3zwgQt7SbsGfOyJEycsryOonfntxd2Bh8qfLjAWmqdVnXzWYEFXS/DO
xV8JCRfw119//fjjj2LEi+gL8FxLi1Uw03mUloC33L9/Pw2mJ0i8u8DKevfu
bW9tHwuBFT98+JCAm3EMRELCE/Coqu/YsQPu6qHNNxW8i/FXQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCwiH+
+9//Xr9+fdasWd26dQsICKhRo0anTp2ioqIuX77scK+Nly9fxsfHJyQkpMHe
0xISEgqePXu2du3aAQMGBAYGVq1atXnz5uHh4bt27frzzz+Nb/z7778PHjw4
YcKEX3/9NW2KKiEhISHxD8Rvv/02f/78OnXqtGzZMjIyctWqVfv371+5cuW4
ceNq1aqVKVOm8uXLz5kzR79r8Nu3b0+cODFixIju3bvv2LGDn64V4NWrV7dv
375x4waBT3MK1vr48eOrV69SSNceLiHx/gFLwUjbtGnj7+8/fPjwuLi43bt3
b968efr06UFBQV5eXvnz5x88ePClS5c0GSI/f/jhB3JJUkiM2mWGaWCzKamb
8JKxyu25JSQkJP7JuHPnTkRERM+ePbdv3/7mzRub1xBHRo8e7e3tnTVr1sqV
KxObwsLCunXrRnSrUKFCSEjIxYsX9U2dHNm1a9fs2bP/+OMPzam7d+9OnDiR
V4ufL1++HDt2bMGCBevXr//7779rLj548CDHs2fPTgmt+GItePvJkyePHTuW
9gGR+A5FT05Ofvr0aRq/WuLdBTaSkJDQuXPnmJgY8i+b1zx//nzx4sU1a9Yk
Q/T19W3evPnAgQMx1cDAQGy2WbNmSUlJ+u2zDWwW5zB37lx4rLB0Y5vFlPr2
7QvRHTBggE0KmnFA8eDhR48evXz5choXlZT83LlzeJ7vv/8+Ld8rISEhkTYg
XuBdr1y54rA3HPz111+4xKVLl44bNy4yMnLZsmVwSwO3jAslxHTv3v3Vq1ea
UwS4qlWr4tWVI9Ct6tWrjxgxwmZve1xcnI+Pj0JKrcWBAwc++uijJk2abNq0
yRPPN8Dp06fbtGlTpEiR+Pj4NH71OwHRVvbDDz9kwDEYf/75Jwp5/fp17CKN
X41M9u/fr6eINkFCt3HjxujoaHLJ+fPno+16e1RgYLPwRigriqr4CmObhTih
2CtWrDD9WemDX375BdZdu3btMWPG6Km1R4EA+/fvT9pOCpCW7/0HAqWlorFW
fWdcRoBs9peQ8DTgq4UKFdqwYYP+FEE8ODj4888/f/36tSdeTdjt1KmTyx39
boIAPWrUqG+++SZd3p6R8fLlS3gRWmGzrSx9AcGbNWuWr69v2bJl7bUlvvcw
sFmQmJhYuHBhdSJpFSAM27Zti4qK2rdv37fffrt7925yXv5w7Wlwj8aNG5PI
WFtI8zh48GDnzp3T6+2ugTRn9OjRJC/nzp07fvz43LlzV65cmQEzQQVXr17t
2LFj1qxZp02bZqZFJS3xDjX7S0i8u1i2bFmRIkVsdhs9ffq0UqVKY8eO9ZAT
kyQzw+LXX3+tUaMG8smA8euPP/5o1aoVkctki+L7BwObJVYOGzaMuvPElCKU
YdKkSZn+h1y5ckVHRzuc5WQPkmS6gFOnTuXJk0fIP3PmzG3bts34rXBHjx4l
6zl06FB6F8QG3pVmfwmJDAKiwI4dO8LDw+fPn68e58nxvXv3kgKHhYX9+OOP
ynFCUkhISN26dV++fEnIxtYGDhw4Z84c0Xv1r3/9q2DBgtu2bfNQaSXJzLC4
fPnyxx9/nPbDGMyAqFqiRInZs2dntIYR12DPZsHNmzenTJnSr18/LEX5WGOb
5SCnPNQyQ1HnzZu3dOnSpKQkiuQmj5Uk0wXgk8eNG7dz586tW7fevn0745sA
JcRU/fz8Hjx4kN5lsQHPNftLSLyXOHLkyIIFC65cueLr64sLFQcx8/Xr1xMa
Xr9+3aZNm6FDhyoBSAzuIsA9f/58xowZBI5JkybBLoTnX7RokY+PD67M4I1/
/vnnsmXLXBu0mdFIJt+ClO7du+fpV7sjNOPHWlV+qEvRokUhOe4/ynLs27ev
UKFCx44dS++CWAObNguuX78+fvx4mNjixYsrV66szFAztlnRMrN8+XKDN+IQ
Dh8+TNbpLEXBZCjq6dOnnf9KG8iAJPPQoUNqPu85kOknJCS4MBIVkkkykgb9
C5RwyZIl7o+VJQ/Cybdt29blFm/PwaPN/hISGQEaX/HXX3+p/Zv6LMf10xwU
rshZLsYhREVFkTCuW7fO29ubsCXOwjoIQ5wlKtWsWROzUm68dOlSwYIFY2Ji
pk6dSnjiOfv371+9ejXEj9f16NGDKGAwWwG/ERERER8f75rT05NMHkhJSNKV
7+KaXbt2ueD2+caFCxe2bt0aXq003vKcVatWTZ8+nbM2WzIRWpcuXYx5tZtw
U2jGcKf83DVhwoRBgwbFxsb26tXL3oBMZAjBQzeaNm3aoEGDDh067Nmzx+V2
M6HYmvpFMvqDyvVTpkxJxwGZaWOzhGY+E5LPNVDNSpUqKSTTwGY5SzoJA+ca
g0/Yvn37gAEDXFiXTJDM5OTk8+fPb9iw4erVq+60l9okmegSzkohJHfv3oVj
uzYm/OTJk127duUVij9JSR0iOHDgQDEJRU8yUfjQ0NCkpCSP8sz79+9TsAsX
LrhwLyQT8yQ/3bx589GjRz00Wj4lVT/JWPGQLvBM9AS/PXTo0LCwMBS7TJky
9gZkpq8z8Wizv4REugMnHxwc/NFHH4kBNtmyZfv000937Nghzt66datJkyb5
8+cXZ7Nmzerv7//dd98pt+/du7do0aLibM6cOfEGRJk3qSBtbNeuneIcsCDx
NyGscOHCWL3ykGXLlmXJkuWTTz5JTEzUOBOCGuWBDtnjQqLvbMiQIS6nqHqS
eePGjSJFiuDcxE8xMnDMmDGu8TEidUhICF+hBGgxynT48OH/SYXN7nKqgBAA
IXfpmxzAfaE5hAvlxwPj22vXrn3o0CFKiFagUSNHjtSLHXc9e/bs0aNHC47H
jefOnatSpQrRxN4yXMYg1MJmUUtlpF/mzJnRAbiBWtsVoKUtW7ZMrwGZaWaz
QPAH/g8MDOzevbtiJgY2i6WHh4cbt8zAD5s3bw55c+Hz0Yevv/4aJoAP4TmD
Bw/u2bPns2fPXHhUii2SiVG0atWqffv2onJ5HbbvTkMTTCxfvnz79u0TP4V8
KleuLMpss7scwk9mCpdz7Y0OgQphnhs3bnTt9tOnTzdq1GjmzJnYXUJCQr16
9c6cOWNtCRWgcqjonDlznHK/VCK5KsqMJNFeNARVVzfRK0h3Z2Km2V9C4l3H
pUuXiEq5c+e22f23YsWKDz74gExQPZBSAXk3DqdPnz7qRomLFy9+/PHHa9as
0V+/cuVKTl2/fl38xOX2798faoEHIIrBvtRTCRwOyCTK4OLc6fPVk0x8Ly9V
5qvyR6FChZKSklx7/qtXrxo2bIiXUxqUNmzYgFcREcQeyaQ8oaGhU6dO9URL
o/tCcwgXyn/16tXixYvPnTtX5PuInVqwGQepsokTJ2oIHqlByZIlZ82a5U77
D5WSN29ebMG4FQ5DgF+5+S43kZY2Cxv08fFZsGCB+Glsszyzbt26XGCvZebl
y5dE/7Vr1zrzuf8HJKrKTBNSNijBV1995VpDkJ5kQktKlCgxffp0UbnIqkGD
Br1793ZtrSoeMmPGDLRFqYj79+9TL9HR0eL59sZk4nDgui9evHDhpQ6LhOr2
69fP5RwTegwTE+VH7CNGjICEe26xX0QHbTPPYynYokWLyKTEKEd+kpXgHGwO
yEx3Z2Km2V9CIoMA7+2ap7137x60J0+ePDYNee/evV5eXuXKlXvy5In+7MOH
D4cOHapuSRDTP8uWLYtRJycnK3wyJdUjDRw40N/fX4luop1w2LBh3AXtIcwt
XboU77dly5Y//vhj4cKFxYoVIwQcOnTo1q1bmleTaeKfcdfuMDENyeRR+Mxq
1aoRfcQRUnWEg9tx7fm3b9/mE3B64ufPP/9cq1YtXiFilsHEHzLiqlWrKn2X
VsESoZmBU+VHMYYMGYKclRGYpPbe3t76AZmiFTF79uzq/kfxhLCwMD8/P4K4
y2VG02C2KKHxmNJ9+/ZxmSUDMjO+zaakdm3zvcowSGOb5V6OLFu2jBLqh1zy
E21v0qSJVRt4iRE10ELX5nToSSYOgY89cuSI+InbQQ9dXskW9tKhQwc0VrT3
UtrRo0dXr15dqRd7JBNyC8mE2FueyFBBGKaFbY+JiYkom8vtog4hWDFiNBg0
pQayrVChgtImTxUEBQW1adNGT6rT3ZmYafaXkMggwADbt2/v2hINjx49KlWq
VM6cOXGw+rMbNmzIli2bj4+PvlVEjI86fvy4+uDr16/x25DJ58+fkySqw5wY
kIn9qgdkksfhplJSvR/pJxGNg3PnzsUhf/XVVzBSYmJkZKR+HV2iIWHUZfon
oCGZBP169er17dtXkED+52+OuLxU47Zt23A1ot0SgterVy+8n9JAYUAycYkU
TD1DyhJYIjQzcKr8YiJJs2bNRFzglgEDBtgUO3pOyChfvry+72nlypUoqpkm
MsLWzp07CVuwfXWLrs24gNpzGbW2atUq6ksMyCxTpgxW4/BFxngnbJbrx40b
V7FiRcUADWyWi6FnsLJTp05RHYcPH9a8necHBAQsXrzYhU8WOH/+fM+ePZXk
RTSrfvTRRzb7Ih1CQzKpXPIvBIvPEUc2b96MSpw7d8610lJNqAoK899UoEJY
n/ppBrPLIepku9auH04FTZgwAc13eTYNvot8kMpV2C8uDp4WGxtrXTG1oILI
gPbs2WPm4qNHj3744YdKw/vjx4+5d+rUqXq6nu7OxGGzv4RExgHsiKRs7969
LtyLp61SpQo2pe8UJvpDFThVoEABfbPStWvXMF5NXwP2AifEjiIiIrB39anL
ly8TntQDMjdt2kTCKFopiXTBqRg5cqSYNkL8rV27NlSTWzQuAvpHTKRsbo6L
05BM2FfhwoUVB8Xn4+eHDRvGHxTVWVcgBnSJGRM4tOHDh/MuddQwXsJo9erV
OEAL16CzSmgmYb78BAKCrxinmpIqdpIRvDF/EOVNil0Eu9GjR5tppOWZixYt
QrHr1KmjjB3VxwVYbmBgYObMmQnNQmhE5xYtWhCbCBAbN250Z9bDO2Gz+gGZ
xjYLQUU+qFlUVJS+6Qk6Wrp0aXcmtcXHx+fLl2///v3iJ6XiY13m/BqSKQZk
KskOioQ6Yb981NatW13oEUaYaNS+fft4FNpSq1Ytsjz1BQYk8+7du3yXtUt4
ISU+x50RgGgUHvLLL79UrBI+5uXlpWkMtBaoa7du3ZTc3xg7duzInz+/knwd
O3aMAiNnEhPz7bdp40yMm/0lJDIU3AlYKH+9evVQfrRdfRydx4FgPjBDHPv5
8+fVZzETsn57DQgkvPruiRUrVhQpUkTdGUeMoOTKTywaN6geIclbbA5MEn0i
8+fPN/2VtqEhmQQCfEVCQoIoDM/H1VBsPBX/O+sECLKNGjUiQHM7qe7s2bM1
MjEmmTDeYsWKqTm5m7BKaCZhvvxv3rxp3769aPZEJsifsIXuEZGXLl1qIHa1
qqxfvz5r1qx9+vQxSUpFK1Pu3LlPnDghjujjAroKVeMrlFkq0JLq1avDoIhZ
VKg7TRDvhM3euXPHx8dn4cKFyhGHNit28dNHZ2QVGhoKBXVtSoXA1atXp0yZ
opSTKoO1zpw507XhHxqSKQZktmnTRnCACxcu8O0dO3Z8+PChTc5sDGVAJtyG
BAqOpE+4DEgmRLd169Y9evSwcIG1nTt38kWutfoKIAQ4kmIgVAT+rWnTplaN
f7AHkguqxuYYYw2w2VKlSgmzwky6dOni7e1NXjNv3jzjoY9p70yMm/0lJDIU
3AlYOAo8f6ZMmebMmaMO6FjH5MmTb926VbJkyVy5cinjlARI0ollDn07TonE
+fvvv8dnBgUFtW3b1p0QowDnTH6qaRZQQKkw9mHDhvXv3x/eqPHS/KQ8ouRq
kikGZMIqP/vss6lTp0ZERBBbcfJEgTFjxmgGfb1+/XrVqlX9+vWDJep3tSN4
EVBwiXge6OXixYttdnsZk0yCfu3atS3sMTcWWkpqbw4k5IsvviBq69ttcJtO
Ndw5Vf6LFy82adIE/kCtoVc9e/akXhC7Pi4jND6ka9euhGBIy8CBAxEv2jVr
1ix0mJ8mxUUAql+/vroxUB8X0Hk0H1apDJr666+/Jk2ahK19+eWX7gTrlAxs
s2L5l127dgnC7yYtUfDs2bMqVaqMGzfOXgHMqB8fS31hp8ht7dq1DRs2pDr0
LsWMeaboSCZfnTNnTr43PDwcDwCbIo+oWbMmeqgZlmDGw/y///f/goODq1at
ilZfvnzZZq5kQDLFQFn1whRuggeOHDmSz7G37INJofFpQ4YMWbNmzb59+6Bh
uHT9QgHmPbBJnDx5Et9lxlh4LB4V5zB9+nTKiZJgvygMlqLvwUlfZ2Lc7C8h
kaHgTsAibmJl2BROVTF8jCsmJub8+fOEhkqVKkG91LO8eR3Bwsw6gTii/Pnz
r1u3jsCBf9PMKXAZc+fOJSW0OTAba8VdZM6cWVlEArepHoOE91Pax9QkU7QO
hYSE8AduU0QuBIIr0DhJPCSxQ3k+gYnMVwkiogkU1uTwK4xJJvXSvXt3Czfv
NhAahaeO8uXLp3xUuXLl1BMiCDF4QqdK4mz5uR6aIXisELs+KBAfe/XqVa1a
NWVgGyXfvn07Fcpxik1cNhm84GnNmjVDT5TlqvRxYffu3Tly5AgICFC33aWk
6r/7a0RnWJsVq2xhNYcOHapcuTLEw5KOvGvXriHe1atX6085q358IBx4586d
Nj/HvHmqSSYXQCzJCn9KhTL1j1xJU/tOeRhjGO/4Q7E/+ugjTXO0y8ChBQYG
8jqbTaNO+TRsB9YHeyT70NMwC+WjAM9QvHhx85uPUwZuEWWjtDgT/Y0ZwZnY
a/aXkMhocCdgYYmDBg3CpgYPHqx4jAsXLhCw+Pnbb7/5+/tnyZJFiQ7YxYYN
G0yu6oNvIecdPXp0QkKCVV0qosCfffaZfn08MV2oRIkSFJ5POH36NCwOlqtM
fqQ8kydPVlJvNcm8ceOGt7e3wwFL+KtatWo1atRo06ZNxE2CXfPmzdXLxeBe
pkyZYmbcozHJFEM6S5cu7f4ckxRDoYH9+/fz7Vxw9OjRK1eukM6XLFmyT58+
6oEEW7ZsceqN1pY/JXW0YZMmTcqWLatZPZvoyYsocLZs2dBMk09DVah61F4Z
P6CPC2L4BJbliTVFM6zNcjE0gAgrFmN3oXg2gaVgiTaXK7RQ/ZwyTzXJpIpb
t24dFBRkbLnOehhjGJNMpMGTrRruiGTKly9vc+1ZC32atfJRIOYGhoSEWNWt
8545EwkJT8OdgCUmkGIgPXr0ECOrMTRcivAD+ISmTZtyVpkO8/DhwwkTJljV
vOYCCD3t2rVr0KCBvgzJycliDJVyRDSS8Gkilcbp4f0UN6smmTjYwoULG4/b
4cbo6Gjir9rf8mTRzyIuiI2NVUbmGMPh3uUUtUCBAuYng1MSfBphQh8ODIQm
poookykEcJKBgYFiCURS/oiICKVtxzycLb8BKP+QIUOyZ8+uZ0qIkeKhoh99
9NHVq1dNPlDMtOUuYqLQB01cEGuncIEyI8la/KNsNiV1ujRkQ98Pa6H6OWue
apL54MEDPz8/h/vRO+thjGFMMlFmJKYsgOYQEDDoInfZXBIH3cC/KUuAKrDW
p1krHwWiGRbqawlDe/+ciYSEhcDcnj59+vP/xe3btz///PP169f/rMOLFy+M
3aai/4Q84Wdw+MoiFUqOJhbiEP0mBuP60gAihgJNlyWuAxvXrzfCZcOGDbt+
/ToXkESru+whmeXKlYuMjMT17dixgzTfeNjh/fv3Q0ND9U2y8Kjw8HCqhtx/
/PjxZsad3rx5c9q0abVq1TJY0YVT+fLl08dlm6Du5syZ4+vrS6xUO3kBe0JL
SWXX8+bN0yvJihUrIAaiC2n16tUu9Jk6VX5joHJ58uSpUqWKnmyIJlNU1HgH
Uj3EGDzlLk1cQJ6ES02ns2uQNgsog821hixUP2fNE12qVq1aWFjY2rVrqf3e
vXsbj+dxwcPYAyoXFxcXHBzcpk0be9cIhdTTQns4fPgwWaTNNQcAkkf++nl/
Fvo0C+WjAUqOqtvMkV3AO+1MJCQ8CqJPs2bNUGav/4scOXKIXeS8dDAzXnrJ
kiWZM2cWJizWylNyYbFoIQ8X/Swkd19//bWFEx5dgJi13aJFC01WiyFfvHjR
5jIXiYmJWDduE4+tvuDBgwczZ84kFitrTRsDqqBfFl68mkz2p59+Imc32TYF
yUSSU6dOvXbtmr1rCLJ58+Y1v8EcAiFmtW3bVp/v2xNaSuq0R5tzAe7cuRMV
FfXy5Uv+d63L29ny24PSO6xeZFUBwm/fvj1nqUqnmDDajjURbk6ePJmiiwvo
Ej/9/f0d7o+JbGGM3G6zjULabEoqK6Z2bK6qZKH6OWue2ALMHNoDyTQjHxc8
jD0IkonnMegNF22PIlNw+EAB0jpvb2+bQqDk+fPn56Wa4xb6NAvlowG1g1ur
W7euZnysC8jIzkQM0cQirF0fVULCfbjT9ZaS2phA/lu9evVnz56tXr1a2Wk3
5X+LxWF0ffv2ff36dXR0tHoXOQVYx6VLl6BM5LxDhw7ds2ePaxuxmYFolAsM
DDQ/Uf38+fMLFizAA5vs9HEWfD4PP3jw4KRJk1zoVraH+Ph44oLYH80MHj58
WKpUKRiF3j26IDSUKjIy8siRI/PmzXOti8fZ8tsDIq1ataq9JhrioJ+fX/Hi
xV1YgPHKlSslS5asX78+Xl0dF4gFGFSRIkVOnTpl/ASkFBERUahQIWenaKW7
zaohtnt2bWV4k5g/fz7KYJBSaeC++inwkHmq4QkPA/eDlmsWEDAALrdPnz72
mvtESybCNPl2a4XmpnxES+bnn3/uzsq0AhnZmZAPduzYkcTT/BQnCYm0gZsB
a//+/Tlz5ixbtuyZM2dInNU8ROz9SsDq0KEDl0EbbDp8slRCregpgFRgpKNG
jfLQot9ktRSmXr165rNaPMbw4cPHjRvnuWFp5Ps8PyEhwSrnwHNmz56Np9IM
TTfA4cOHYTs2qYILQqP6xo4dS7WamSmvhwvlt4cff/zRx8fH3sYua9euJWSg
b65NCrh582bbtm1r1qwJGRPbDcfGxtaqVYuIZpIei50WKYBTXCjdbVZ9/apV
q3ia+ZkOLmDFihXI1vzuOW6qnwaWm6cGnvAwqB8SMxizrYGgT19++aXN6r57
9y48R9k23QwsFJqb8hGbUrVq1cr9mJLBncnRo0cLFy7s0XRPQsIFuBmwiFN5
8uQh7bK5QhrpJwELSxk5cqTN3ZDFpBJuF31h/GzTpo23t7ezUwhNAhc6bNgw
9VZ3DkF+6u/vv2TJEs+lh2JHD0tWFBTgM4kX5cuX18gcJg9tCA0NJQQTsnFH
otGYT5s+fTr0fv78+dRUeHj4hQsX1E9zVmhih6AvvvhCaT04efJk165d8fbq
Pj6yby7TP9Ze+V0A1efr61uqVCl9tyma37BhwwoVKqhX1CSOhIWFKeoHAaPq
jSdKE6AJBxCtXLlyIcbvv//evKoQPlB+ZzdnSV+bVePGjRvdu3fnaR4lmdBd
Yq7JzQFTbKmfO7DcPDXwhIchZ4QL7dq1S3McwjZhwoRBgwYtXLjw1KlTyiab
qAE53aRJk+ByQ4YMgSKqu5PEwlY2+4jtwUKhaeRDGSh869atiRTKHHaR7GB9
+hIK/swnuz+73FlngsYiUmWUEV4F4zLWSZediUjM/fz8NMsyS0ikO9wMWKIn
hag0ZswYvRUnJiZmzZoVk7G3ewumceDAgXnz5omWTP7HVJ3iM85iwYIFhFfz
TWT379/HWzrsNHQHq1ev7tSpk/vLJyqAq3fu3FnTwY1DpqJJk3nR9evXy5Yt
W61aNTEYDzdIEk36vGLFCioR8lmlShW1iJwVGhGqR48emnlJmzdvzpcvn9I5
y4tgs5UrV9avjGSz/K6BJ/DVPj4+mkU+UTwYNZ+sGdgGCS9atKjypUePHuXD
NRsm6mFzu2EzQOC8ztnVftLXZhVgrVFRUTt37ixcuLBHSSbqWqhQIbGdlhnY
VD+XYbl5auAJD0OZUUj1HGcUHs5Tu3ZtrJskbvny5dAYZfdDZJslS5aQkJAX
L148ffo0ICBAvSop3968eXNchPnGQAuFppcPxaCo6tXmxQKtNudfc3uxYsXm
zp3rfkmcciZip9H27dsLoYlpQTVq1LA5f18N15wJb0HgNgfVS0ikL9wMWJgb
UZIE6s6dO/qzuDUvLy8clMnZdsnJyQUKFIDSeK7ZUGwAoR6HZgwi8oABAzwX
YlJSiY35AGoGz58/r1mzpnr/XOTfrl07pSJ+//33Bg0a9OrVS7RXPHz4kBqM
iIgQ11OVuDh1jHZWaHjj/v37q+OCslOe0viA5pQpU8ZmH5y+/AIwot27d3N8
7Nixs2bNMtnOCQvKkyePuqWIPzZt2uTt7a3Z8RNpIBNlZJroO7Y5416DU6dO
8QqT0+GV1qTY2Fhe58Ka+RnBZkXb0fbt2zEQT5NMsQPUsGHDTDZG6dXPHVhu
nhpY7mGwGgxEvUFMSmqvQfHixeFaQuFF06VYghK17927t8J/RO9S69atFboi
thCCxZnfQshCoenlI9oievbsqTS3on5FihSxOU/w+PHjeDPNDlYpqUoVFxc3
cuTIiRMnmpy9leKMMxE7jSoT/IXLRc4OZxyYdyZig62hQ4eGhYWREuJO5YBM
iQwINwPW48ePK1SoYHMhkZTUDRrI+44dO2b8ELIwvASWgh8jclm1aq5N/Pzz
z6TA5o1xy5YtDlfAcwf4nC+//NL9adRqEFAQO3xMOcLfuXLlUsZowXO4QKGR
hw4dIuIoi11Ta7lz51avWOKs0HCwRHn12iZUcYcOHdA0ESz4argicdAmUdSX
PyW1zw4X3aNHj19++QWPTYixN4RMA9SJaFKsWDFYNN9IhfIQf3//w4cPaz6H
V1SuXFlZsI4gq4m2Gpw/f75OnTqkRcoGJZkzZy5UqFBAQIDNhfI0rUnLli3L
mTOnzTWujZERbPbSpUsEUKr1+vXrniaZ1CDOwfwqNHr1cxmeME8NLPcwr1+/
btq0qXqxff4YMmQINExpM1++fDm8SPwUHcqKHooUT7NkGXrL9Sa3ELJWaHr5
4L4wZ2UVULxTrVq1RowYoedv3AWvxndp/Axlq1u3Li6OW65cuQLB1uz+aQ/m
nQkPxKkq5PbWrVsIEO5t78nOOhMx4Q4HhbZT4/hDnInNDQskJNIXbgYsHBGG
Zm9KCJnvjh07HOZumOejR48IWySVuDsK4zlShyOFRTRr1szMeC1cCt5y/fr1
HipMSqqHxFEo7XuWADKJGJUhB2LKMO5LGSK1fft23JeYSYGoY2JiSLqV0UR4
bxip2us6JTRADQ4cOFBd79QvibZYU0U0gpUrV87eVA5N+VNS1QxnXq9ePbGO
x/379xs2bKjevc4h+LoFCxaMGjWKj4VH2ez4ozzEhc2bN4ufYsb91KlTrdJG
g9Ykp5DuNgt/w1TF6K80IJkpqYMMP/nkE2UMoTH06ucyPGGeanjCw9y4cQO9
VauH2PUG+xW8USxUpUzlQ6rqGhSDEzRdzxBRmJiiusawUGg25bNt2zYMR5DY
N2/e9OrVi9e9ePFCfzvf2759+/DwcHXDBXyvdOnSUVFR4gOTkpIaNWrk1BxD
h84EKUVHR1MLSicIXoUym5+8Zgyej5cuWrSomBMk+lxKliwpB2RKZEBgpH37
9hUrdKU73r59GxISAh06e/as597Cw3EyZrJysYKEVVsA28Tx48dxgxZOLIUH
tmrVSr1EHg6WmKuMfhS9aSK7h23yf2RkpNJMJMYdEYA0Ttu80Hg+DGTGjBnq
eHT06FF87L59+zgrJgXYW+JbX/6U1KkfuXPnVrb39RDi4+MppNLNeuTIEX7y
atIfh0uIOIRxa5JTSF+bpQbJApRJrGlDMqFDjRs3trnElr54evVzGZabpwaW
exi+OjY2Ftakbsh9/PgxOZ3CG8WaBkOHDuUPyA+WSO6jpJzQp/z582uW/xX7
swcGBpoRhYVC08tHDG4UffevXr3iozp16mRvDD9pHR9+5swZ5QhmyC3QM5sr
fFoFMSBTYfUizafMONutW7eaH3VgDzynQoUKUGvxfFhuUFBQmzZt5IBMCQkN
sI4DBw6o55JDJDJnzqwfj2choLKDBw8eOXKkw375b7/9Fr9qc89uSyBGKir9
s5YAOle9enXNWm3QJ6VtEMdLzouDIsueNGkSsWDTpk2wSiIO5Vm5cqWfn59+
hXnzQuOBbdu2VTeEKgMy8fZ4eAiSeg6mw/IjnPHjx9tbOcQqiAGZ8CXRpgGr
4SvEJKC5c+ea3yfOHuy1JqXvjo0uAFFgFBERERNSQf6SI0eODh06wAA92pCy
bdu2gIAAh1MC9ernMjxhnhpY7mF++eUXEsa1a9eqD5KVwPpglWgd35KQkECV
LVmyBDaIv71//z6aKWa3kfKUL1/e5jRtKrdOnTqaTTz1sFZoevmIvSG6d+9+
7NgxtG727Nn2mJXYQbV3797qC5TBAO5PKjSAGJAJ6xONnBcuXPDx8RGbZkZF
RTm1H5BNUFkffvihsvcrSUTZsmUt7HORkHhvcOjQoVy5ckF4lHHXkJwsWbKQ
q3p0n1aYA/Hd4TJ6eOB+/fp5bnF4vB/eMjEx0aoHvn79ukuXLt98843G20CZ
oHaDBg2aOHHi2LFjY2JiatSogZBFyOCu8PDwYcOGRUZGcrs9LmdSaFxWv359
dWcZAgwODoblTpky5fLlywae0Gb50YQRI0aUKVMGX6q+2Nqxu2JAZt68eQkN
RC7o9OrVq5ESfyAu93e90bcmEez4LtGa5NFxyNaCuEmOcP9/WLdunYh3BFaP
7g0EOe/Tp4/DHlu9+rkMy81TD2s9DJKJi4vr1q2bflgLZtukSRMMEDNftGhR
z549O3XqhAegKrkLUsrPOXPm8P/69evt+d5Vq1YFBQUZp0XWCk0vH2oWVwC9
XLx4sXHGce3aNbISjTcTZt6/f3+1xYkdVC0psIDYKRJiiV+F+5GL4VKwdwRu
SfqzY8eO/PnzK4+Cb5MdHzx48MqVK+pmWwkJiRs3btStW1cZHU38ggsp4208
CiI7ntbAYeKFRo0atXz5cs+VASfZqlUr95ccF8BVJiQkhIaG2kvSeZ3SU/Pi
xQvNzAhO2RzXpIZDoaWkzhGADLjQcWNQfpxqyZIl0Rbxk4hAWMRvW8jNzp07
V6hQoS1btsD6CGTK3B+EZkn7gL41ycvLi5QqOTmZSPruNkEQ2vLkyeNRJqbg
3r17pADGaY7L6qeHteaph+UeBlpFge11BEPVUGzBP9HAJ0+eqAcTcpw8yFgP
kSpZkvHqHxYKzR358DmoAV5CU1SEMHjwYKWjOSU1AR83bpzDZcrMQwwtgAn/
lAplzyO8q/tbWwpcv35dGXaLNyYx9/b2vn379rx58y5dumTJKyQk3g9gj/v3
74dXLFmyhHQsIiKiXLlyBPo0iLl4MLzlxIkT7S3+hh/etm2b++uBG+D58+eb
Nm2yqv3n8OHDISEhnuvcTzEhtJTUNhPXRjAalJ/XzZo1KygoKC4ubtq0aeHh
4eZXHTGJ+Ph4Hx8fF7aEMw+D1iTPvdRzIHoOGTKkYsWKmTJlIqT2798/DT7k
7NmzPXr0MHiRy+qnh7XmqYe1Hobn9O7d29MjdZEJRqpZ+UFzgVVCc1k+MElo
XkxMjM0m4kePHgUHB+NDMPnx48ePHDnSqvk4AlDx1q1b46w8tG9dyv/GRfOW
6dOnY4M4w+rVq48YMWLOnDmee6mExLsLksrk5GQshf8t2aTDJMQ6Y56bOpqW
wLds377dYVOk+/CQ0MyUn2vu3r3riUGMBKMvvvjCkg2OHb7IoDVJwgy+//77
EydOvLttvx4C1Nr89u7u4OXLl5iqR5cOdhMPHz7ct2+fcTcHrub+/fueGAr1
4MEDPz8/jy58J/Dq1SucifhMmC3ORBqFhISERAYETG/8+PFr1qyRXlpCQsId
QPx69+59/fr19C6IhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISE
hISEhISEhISEhISEhISEhETGxX//+9/r16/PmjWrW7duAQEBNWrU6NSpU1RU
1OXLlx3un/Ly5cv4+PiEhIT//Oc/aVNaCYl/Ap49e7Z27doBAwYEBgZWrVq1
efPm4eHhu3bt+vPPP41v/Pvvvw8ePDhhwoRff/01bYoqIfEPgSd2sZSQeI/x
22+/zZ8/v06dOi1btoyMjFy1atX+/ftXrlw5bty4WrVqZcqUqXz58nPmzPn5
5581N759+/bEiRMjRozo3r37jh07+OlaAV69enX79u0bN27ot6mFtT5+/Pjq
1asU0rWHS0i8c8AQsME2bdr4+/sPHz48Li5u9+7dmzdvnj59elBQkJeXV/78
+QcPHnzp0iVNAsjPH374gVSRDBGbdZlhGphkSuqG0SSkP/30k2sPl0gX3L9/
/9ixYydPnqRy0/jV6CGRIjk5+enTp2n8agtBxhcREVGyZEliYuHChUePHv3k
yRP1BZcvXw4ODub/9CqhhERGw507d7Canj17bt++/c2bNzavIdBgTd7e3lmz
Zq1cuTLBKywsrFu3boS/ChUqhISEXLx4Ud/UyZFdu3bNnj37jz/+0Jy6e/fu
xIkTebX4+fLly7FjxxYsWLB+/fq///675uKDBw9yPHv27JTQii+WyCgQNAZG
lAFbv//880/0Ex6V9k0WmEBCQkLnzp1jYmJIr2xe8/z588WLF9esWZNg5+vr
27x584EDB2KJgYGBmGSzZs2SkpL+/e9/629E4OPHj8cANcex/blz58JjhSEb
myTcsm/fvhDdAQMG2KSgEhkQWNnQoUMhSDhwjC6N33769GkypiJFisTHx3vi
+Z52JtgFkahevXqTJ0++cOHCt99+O2PGDB8fn7x58yLVrVu3Ep5CQ0ObNGlC
NNTcKzMyiX8sMJyjR49euXLFYW94SmoHwblz55YuXTpu3LjIyMhly5ZhTQYh
5u3bt8Sg7t2767NmImDVqlXV6R55bvXq1UeMGGHTRcTFxWHOCim1EHz4tm3b
oqKi9u3bh98gyPJp/GH5i94hkBR8/fXXixYtOnHixNmzZ9esWTNlyhT8pLVv
gcaQ3RQqVMgmjUlfQM9mzZoFeStbtqw9muc5ECv3799vkyLqAV3cuHFjdHQ0
wpw/f/6BAweMG6k2bdqE6V29elVznAgIZYUAKK7A2CS///57CMOKFSvMfZMT
kCapBspAgk8V43uPHz9OIrBy5UrXeBR3UZvkJpYX0nwBRo0a9c0331j+5DRw
JpcuXYJM/vjjj+qD2FpsbGyVKlXy58/fsGFDzEffUCMzMgmJjAD4Ki5iw4YN
+lOQ2+Dg4M8///z169eWvxe/N2nSpEz/Q65cuYjXDke7vd+AT9auXVuRSalS
paAuZtIQZwGNqVGjBnEnA7ZkwrRbtWrVsWNHk2Tv/YOBSYLExMTChQt7oltQ
mqQap06dypMnjxBF5syZ27Zt63KD2HtMMlMytjPxXEYmISFhEsuWLcMMMUb9
qadPn1aqVGns2LGe8B48c968eUuXLk1KSoJKySkSKakkc/jw4Tt37oRgnD17
1nMsC4ry8ccfb9q0yUPPdweE8hIlSsyePdsT7PqdgIFJ/v3338OGDSOme8Je
pEmq8a9//WvcuHEY49atW2/fvu2ONr7fJDMjOxPPZWQSEv9M4Ex27NgRHh4+
f/58dfcBx/fu3Tt69OiwsDB1vwMxKyQkpG7dui9fvoTSkPENHDhwzpw5YjAn
brZgwYLbtm0zeOOff/5JTHShP50iLViw4PTp087e6DL48CVLlujHqXriRQkJ
CS68CJJJXLPXP46oIQD37t1zu4ApVHTRokVv3rzp/qMsx759+woVKnTs2LH0
LohluHHjRkQqNHWH/KdMmdKvXz91e7WxSXKQU8bdfzzq8OHD2LuzvCgtTfLQ
oUMeaqXXwGVjxPvhRS3JrzMgybTQGWZYZ+LRjExC4p2AxoP99ddfaq+rPstx
/TwIJdBwVlx85MgRwsSVK1d8fX0PHjyonF2/fj385PXr123atBk6dKhyoxj9
BSl9/vz5jBkzcPuTJk0iLRWj0xctWuTj40MWb6/80B5CZ3x8vAuuWES05OTk
8+fPb9iw4erVq24Om6EwU6dO3bp1q/jJV/M5u3btUkTKHwgBZ+tRnnn//v2u
XbteuHDBhXsFyeQJ+/fvh9s/evRIcwE126VLF4MaMQB3TZgwYdCgQbGxsb16
9bI3hgopQfB69OjRtGnTBg0adOjQYc+ePe5UDXqrUQ+hzDafySl4V7oMyFQK
oLFBdTk1H8IpDU1SHxE3PnnyZPz48dRpixYtRo4cqTzh+vXrHP/ll1/gHpUr
V1Zm/hqbpOj+W758ucEnbN++HRbqwooQlpukAdC90NDQpKQkj/JMd4wRkoml
kD5v3rz56NGj7gwZ0pBM6honHBgYSNav9FYgEFwT2YFrrzD2fnqS6aYzTBdn
IvyGRmH4NP1BATMZmYTEewyiQHBw8EcffSSG/WTLlu3TTz/dsWOHOHvr1q0m
TZrkz59fnM2aNau/v/93332n3L53717yR3E2Z86cuAseGBUV9eDBg3Xr1nl7
e0NIxJX37t0jTuFMCFs1a9YkuVOM7tKlSwULFoyJicFBEb8wVejN6tWr3759
i+XiHBo3bmxvOoPoXBsyZIhro7a4/euvv8btUFqC2uDBg3v27Pns2TMXHiVw
48YN4i+eU/wUI4XGjBmjJgZ8F4KaM2eOh4YPUQUEtY0bN7p2OySzY8eOBKBD
hw4RbghD8+fP1yQXaAivoCrNP5ZqxbfXrl2bx/Lhy5YtQ2HUhEcB75o9ezax
T3A8bjx37lyVKlXCwsLsLYBgDATSt2/fEiVKoMDKYL/cuXNDq1asWKEPDWhp
y5Yt02tAJgJZuHAhpc2SJYsoKkkWKiTWB0MCcL9PPvlE+ZDixYuvXLlS+QqE
RiTNnDkzp3gCkfenn35KTEzcvXs3Nujn54e9iIv5Orj0zZs3eSNUs1KlSgrJ
NDBJzpItFipUiGvsfQKm1Lx5c/0cdpOfb61JGgNP1bp1a7ich57vpjGePn26
UaNGM2fOxAQSEhLq1at35swZ1x6lb8n88ccfyaRQJ8UV79u3j1gAM3TtFcbe
z2Z3uWvOMB2dCckCNlW4cGHFALE1vpogpY6MCsxkZBIS7z2IFzBJwq7N/kEC
8QcffFCmTBnN3DoBkkfcYJ8+fZRWizepaNu2bbt27ZQUFT8m/oZ2YqFEEOUJ
uAiiIXGTUKhJaYl6kN6IiAh7LogwhON1Z+I55VHG0vM6/M9XX33lctZJNCE6
K5Nh+YNwnJSUpLkMSeKpXI4XBsCLzpo1q1+/fi7PlRBrnyoemIjz8ccfKy3S
yjWhoaEwEPOh4erVq9ChuXPnCoaDZBCUzeDLGydOnKgheMSvkiVL8mnuNDq9
fPkyICCAuEDUNngOtYM2uvkuN/H69WvMiqLaHI0MfyO5y549u81BaBQbnobh
KCkeykC0hWDAV5Gk+i3if1KJ7t27K+vcGpgkpgEtMej+Q8gY/tq1a138cqtN
0iEwz1atWlm+fkKKFcYIu4YUCT1EArBEJO/aUpN6kglfwgapYvETi+vduzcZ
issrEht7P3tjMl1whhnBmZCY5M2bl7hpkG2lmMjIJCTeIeDeXXPF9+7dI9vK
kyePTUvfu3evl5dXuXLlNAvPCjx8+HDo0KGapoaLFy/CTNasWaO/fuXKlZy6
fv26+EmB+/fvT04KjSHMVapUST3XwHhAJkSoc+fO0dHRVjUJiobTEiVKPHjw
wIXbhRuvVq3aL7/8Io4kJCQgWHVYFxDRp0OHDpavioxgq1ataiF9Jdz7+vr2
6tVL05hJhOJFCo0xBrU8ZMgQRKEMmiK19/b21o+hEq2I0Cel0015QlhYmJ+f
3/37913+FmINdCJz5szGMz337duH1lkyIBN24VqDCXwP9YBkTp48WR8Kf/75
54oVK+bIkWPnzp02742Kijp+/Lj6IJommKS+eRbKCvlcsGCB+GlskjCQunXr
coG9kQawiCZNmli1dYKbJmkGpMloBZ9veU5huTFCCHHFrrWL6kmmZm4X1V2s
WDG8vWtlc+j97JFMZ51hBnEmP/zwA16CWGYwQN1hRiYh8Q4BC23fvv2hQ4dc
uPfRo0elSpXKmTOnzY6SDRs2ZMuWjTCkb8kUA6g04UwsQlK2bFniQnJyssIn
U1KNbuDAgf7+/koMEl0qw4YN4647d+5gs0uXLiU0b9myBRexcOFC/B7mzHfd
unVL83YeDvXVUzjzOH/+fM+ePRWmJMLrRx99ZLPjwyEg+fXq1evbt6/gY/zP
3xyxOVKIj0JEe/bscbnweiDDCRMm4K5dHvDJEwhDBAulzI8fPy5Tpgy0QUOW
qKNOnTqpx9YaQIzxa9asmSgYtwwYMMCmZFDjoKCg8uXL66uA9AQ9NNlEBnHq
3bt3cHAwjFEhDzZJJkVCh3kpEZAaFAMy+WT9YFRnIaKnZrCESSCifv36QTKH
Dx+uv53giMF+8MEH6h4BBbCamJgYTb2cPHmSmEi0JStUFl0X2L59O6eUuTbG
Jok5cwR+QmzVz+t5/vx5QECAO7NLrDVJk+BzYEf6Hc3cgfvG+OLFC9iUeiwE
6TaUKTY21rXyqEmmEKyY25WS2rhHNjF37lyXE3aH3s9gdrlTzjCNnQnCJ5Wj
HpGeusvMJskkRHJZu3btVq1axfcaZ2QSEu8WsHGyNtfyUHLPKlWqYHT6jl0s
Gi7BqQIFCuhTxWvXrk2dOlXTNvL69evGjRtDJok4EydOVLd/igGZZJHqAZmF
ChUSXTbEr6JFixLyOIi7w0199dVXMFLCYmRkpCYEcJZXUDZ3Bs7Fx8fny5dv
//794ufbt295oMsEA0dduHBhpUUI0RG5CNb8sWnTJo2fodjdunVTfLIloNhE
CnfG/8AloGH4cEXauFAqJSQkRO8nV69ejQM3s3AfTJV0QOFLCAQ1wBvzx+bN
m016YBFhR48ebTIOXrx4sXjx4nnz5j1x4oQ4oieZRJDZs2dzBGokKp3I1aJF
C2ITAWLjxo3uTLXg4dOmTeOrXQgxIiJDMqHKGg3h1MyZM7FHzsbFxWluJLBi
dJp8UNBdqgBTglCpU1GeNm7cuIoVKyo1bmCSXHzkyBFvb+9Tp04RpvUzRLiy
dOnSrk0KE7DWJE2ClIRXWLsAjvvGiL/Fn3z55ZeK/iBzLy8vTbucSWhIpqBq
/7/2zjw6p2v//9dUYh6SGkLNQ0mpMY2pEsM1a9RMUFMMJYZEzFoUQZBUkJpn
NdYQLDMX17QormnVVMu8UEtr1V33e1d+r5W9un/nnnOek5PnPAliv//IynPG
ffb+DO/PHj5bzI3HcDVo0AChcmKLkrV+FiQzRcYw7Y0Jz5w7dy5OsFatWnIi
upFkwnIDAwMxJgQXwitZR2QKCu8WnJBMtINIEO1AHbTHUQrMGvqF08Hynzhx
QnsWPZo4caIxSEQl4YREc+Hh4Xv37tWeOnPmDI/Sdr9gf0qWLCl6KXHonZMw
ZMgQ4afwhjVr1oRqcotOQ+GuFSpUiI6OduN7Jc6dOzdhwgQ5Ywq7gYvE2LoX
zsNJMERxcXGJSSadsmHH4DP79u0zXWCCPy1evLjpTFf3QMTt6+vrpM9HtLh2
fgIhOc88fvy48WLcSpEiRUw703T4/fffW7VqJbo9qRmqCF/Jiw4cOLBgwQIL
2ytnCSYmzW7KnDlzSEiITT8i+mpgYpGRkaJBjSQTStmoUaNMmTJRGHGEgAvn
O27cuLNnz8I/nXRBOCGZ3Ev4RuHRI20lJP4ltI0bN+Ys1+hqD5oH+TdWKeSQ
eA3+CQ3QxmXGCZnWKoneQcKJ76gi3fgmn9mnTx/OujdDQPt1nlJJm0AMmjVr
1rFjR11VO4FzZaR6oSuSw1AnNFPDhg3dm4qgI5ki2T4ceP78+SgFltYhBUrW
+lnnybRvDN+IMSFkIAzJmTOnjFiNJBNKSeiHSZRL3qwjMgWFdwtOSCbmC9eA
z5o+fbpWSVGf8ePH425KlCiRPXt2VEZ7FwQS/unK+D99+tQ43R1rU7BgQe0A
OoovxmsEeBrqrLUGOETTOfkJCQkEzhgW07fzHKwBcTQ0A+un8x38vHjxItfw
sWvXrsX2Um/Lli2rV6/emDFjjC4S0wed7tq1K87OOOsea4MvFjYcu/rJJ5/g
+iHYc+bMwW21bdt2xIgRpjPKDh06xCe4PQnK+MkwAYJ6V4u+KSSMsUePHph6
4z59kCvRJ4lro9EnT55Mc8ORatSooU3BpIXYG8jmiDlOLSgoCP5AoyA2nTp1
Cg4OpmaMHaF8CI3brl07/D6kBT6DZ4QGTJ06FRHlp02/IDietjPQSDJFf0uO
HDlkNMSVyACqNHToUIdDtE5IZmLSbqoUXrfXlcgSc/78eaSRs8RfWgVEOK1z
nBr5ybVr1+BCyKo8kqxK8l1Ii1HxHz58WLlyZQrgyibY0SObKmlTmG1CzPCp
WLGie2tqTB/oEWXETIWGhi5dunT79u0wohYtWhjX7Nu0dTqSCcsqXLgwygsZ
th4M8pT1syaZKTKGaW9Mfvvttzp16mgH+4wkE4OJlyRElTMwLSIyBYV3Dk5I
Jo4VNUTpCJylg0D7oqKiTpw4ge+oVKkSBkTbwcXr8CZ2EgmiXMTLGDpUu02b
NthJJx0dEjNmzCBmNJ25zRuxJyKLiwDGXDszCpusjXn5QHgUxtb4OVyzfPny
PHnyyEeVK1dOZAsUwB1gQH5LQu3atXv27Mk/OALxjVQmdsZV9wjWu2jRovAQ
jwyj8MbAwECsuunrqP8qVarIr/Dy8sLLyPeKngdMt/zqS5cu4bCoKIvxYsSm
Q4cO9vcL5no+WTxQ1IzRu+GUu3TpAvGTfacUZuPGjbQXxyk5ZMB+pxaejlsQ
OVEnRpJ5//79ChUq5M6d+9ixY9obEW/niUwdkkwEL1OmTBAVLWmEDOOmqUnc
K5+mne4lFt3o8gCYggoUCQxFR5DDDjcJqC9ud8mSJcZT9vVI/LRQycQUCrNN
8IR8+fLpBmvchgeVkdAAAoYy0kZGQbJv69xIxu5Z62dNMlNqDNPYmNAKjRo1
op5lgiYjydy6dWvWrFkDAgK0MZqriExB4Z2DE5KJ7erbty9K169fP2nHTp48
KZYPPHv2zN/fP2PGjNJ9oDirVq0yTuA0BTF43rx5MVYEwnhMbTem2xAFJmo2
JtATMzmLFy9O4fmEI0eOYNkogFySiQUeP368zSR+O3bsKFSoEO/CuZ89exYT
XaJEiZCQEGk5eez69esTk8aOuTJFU7DEtCjT6Y5uADNbvnx502RxnKpRo0b9
+vXXrFkDE8B9N27cWJuTCoM5YcKElM5u5UUjRowoXbq0p+bLUSFBQUFly5bV
OrLEJJfNi6j5LFmyuNpN2xRILDytYcOGwu0aSebt27c/+ugjnEVq7BXikGTS
TPgsOLCcLYmO4xb5yZORYRQ2ODhYTmPjEzhohxuLrVphI7t27fLz81u8eLFH
whwKjKKZslz7epQsUkmYKRiFd2+6o2kh00AZU2Tr3CCZnrV+1iTTs8Yw0dPG
hKpG19A4OUHLSDLFhAG8sNsZqxQU3mY4IZli8j8a1LFjR+Gz0EQMnbBOWCrc
NGflpO47d+6MGjXKZv8Vty9dunT48OFxcXGeSmyClWvZsmXdunWNZThw4MAX
X3xBCeUREY/zacL/YoqxyXZCS7HoSa5BEMC2BAYGirwfRMrh4eEiZQcuw8fH
J0X50ER3By7GvlF6+vQp9vzatWtGVkBjUYDJkycbd6OYOHEi5ETrtqgKMXIk
Lpg1a5aca5QiUJP58+d3ssBfgjYNDQ394IMPjMELJaSekcB8+fKdO3fO/jP5
qJw5c8q0KkaSKTLEQrRSI923Q5KJJFP4YsWKiUFAEdnJ0QScHRUi19hSezS9
TfHjUdQMIiGSsbtRNlMsXLiQyjQO/qZIj6yResKMXFH4uXPn2ryeNoUucpdp
dpq0UcYU2bqUkkyPWz9rkumGMbSAx42JyBWgnaCiI5libZ2rdBAKCu8W0McH
Dx7c/19cvXq1QYMGK1asuG8AzMS6p0IqCDRVWD9si0ydIYM4XJIYdsHBuZoM
mTYQvFf2UElgWzACxlUqXDZo0KALFy5wAaG9zd5ULKfcHkULKAr+VIy8yEUW
mzZtGjJkSIoWI1PVVLgpVTYF3qRHjx5eXl4hISHGZZg///wzZtO4EurGjRt9
+vQx0nuY4cCBA5GlmzdvRkZGujeHAZ+VJ08eI69wA0hUrly5KleubCQbossU
CbTY+8kUqMknn3wiEyYbSWZ8fHymTJl69erlcI0/t1Nsnd5BQiIiIuAPv/76
q+4UnDbZNwoCjCMTXTG0vnZmF4KXMWNGmYLm8OHDyOqbzZSC7JnmGkqRHlkj
9YRZcAYjLXSF3bt3o7mmGTkS00QZU2rrUCJeQVQybdo004zHOnjW+hHLiAne
rlhuSo2hNVLDmOzcuRPbK+/SkUzKD+HXTSpTUHgXAWPEUCDt2f4XWbNmFTs/
ZjPAzoTq+fPn43yFjovUQzJCF4nIeLgY/SH6mzRpkgeXYboB1Lx+/fpNmjTR
hb1o+qlTp0zd98qVK1F/jDl+xCajwD6bztu/du0a7h7nzl8nI8XUYYsWLSRP
sANsdcGCBcUSTh34cDiJMacNRMuYYjQxqa6IzW/durV8+XK3Fx/hbnLnzu18
Vz45YUOb3kpb1FatWiW7U48RXBwVFQUZE5OvdCQTKQoKCoIku9eLKyF2QsSp
GVUvYxKMx3PkyIE2WXNCxAzNFRyeV8ydOxcmKc+KHCxixggfwgemaKmLx0FV
i8RKxq5RD+pR6gmz6HsUcbTNW+BLhQoVMi1PGiijG7Zu//79fKBNkulZ64dU
oCNizZrpBW4YQ1dIJWOCZ8TzouaHDh1KNJBM2oKf/v7+KdpsV0HhHYKT4fLE
pLiVqLxq1ar4LOLT7du3y1M4uOHDh6OV3bt3J1adOHGidgeQNwLRkxkYGGi/
y+LEiROzZ8/GLzhkFIlJVT127Ng9e/YQ6TsZGRHBu275sDXWrVvn7e1t2nMo
Ok8oks1HYWCpjYSEBPiJnZFKU8TGxuJMz5w5497tEhSgSpUqrvqFcL4lS5Ys
WrSoGwkYcQ1t27alZvbu3aslmTTc9OnT4Wn4vmQ7AGFxvBq3ktIdlp0Ml9+5
c6dEiRJi5TuuGZ+ojezEUtZSpUpxGYzCmOMr7REdHY0wuGIRRnhKjxI9Icxw
PxiyLr2GBSBvISEhrnre3ogySnjQ1hnhwVbTwg1j6AqpZ0zOnj2LStapU+f+
/ftakgmxpPCE/9ow0BRiHRAE3rOZ/xUU0gAOSeaOHTu8vLzKli179OhRol0t
eRNbIUMyW7duzWXwClPbgs7CRVevXn38+HFC5hkzZixatCiVZqeITfdq165t
P+yleLj7kSNHOh+OwR5GRESEh4endAWrDiJrPbTH5iIFKnPo0KHYT1M3dP36
dawcIYB9sgEzoULi4uLc4ycik7kcz3WCmzdv+vr6utrYZdmyZbiMsLAw99ia
yE9eunRpmqx69epIMo/q0qULR4inkn0mMsaNcHv76+gFHJJMsTwHGoxOoYC6
HkICjTx58tDix44di4yMtNh6m4iMEJInwA0IUjyY/F8HqDsk0zSlqik8pUcC
DoWZQInCu5oxaIRgMuijqYlLe2XUwoO2zgjPtppESo2hBVLVmKCGLVq0wIzQ
uGLv8lmzZtWoUQN6bCfWPnfu3BdffJE5c2ZPJRVRUEgzOCSZcMtcuXIRl5nm
bSMoxjWjSkOGDHE11EIQxxNEposMGTKgiak3fodhHzRokHabkmRBYfz9/efP
n+9ctcVmQ127dnUYdAs/1bdvX525w0eMGjWK43PmzKFW5RZ7uIy6detSsZMn
T+bzx48fr110IDJNmY4QuQLshTZ1O32NIL3ly5e3M/pmDbFDeqlSpYwDcAh2
vXr1KlSooBUn/AhfKlMEEBPRstZrWHBeO3fupLTIZ4cOHYiD7C8xEDstohpp
2ZMpszogbHAP3atFRwo8E0mwyPNMRQUHB8fExCC0d+7cwY9v3brVjcLYAREo
Ptf+Tqme0iMBnTBD0QcMGBAYGEjkK3kLGkQjmlYXB6ElW7Zs0R13pYwYSep/
zJgxcLnQ0FAoopa9p70yauFBW2eEZ1tNwpUxdANpYEwoLdzSy8sre/bsWOOL
Fy/ar+q9e/f6+Pi4twG0gsIbhEOSKcZ38L8jRowwqvnKlSsJvtApi+1d/vGP
f2BvN2/e/OOPP2KZUztMmz17NpTYfh/ajRs3sOEeGejHzHbs2NHJBs2ySEWK
FJkxY4Y8QqXho2vWrIkJglTEx8djxOTeZ5cvX+aT/fz8CJlpI4537txZMqU/
/vijcePGUFD7XQFLliyBgbidEPL169dt27ZN0aQFV+AJSK+vr68u8SkVEh0d
nTt3bl1umdjY2MKFC8vWx25TM7rtpYwQQ3K6vcvtgArn+SnddtAhyZRZHapX
r24MpoQn5WxISIgrtgxN5Qnh4eGiAAcOHMifP//ixYvdKIwdXLhwwdvb23TC
sCk8pUcCRmGGPJQtW3bgwIGy/rdv346VI9YwvR3SqF1ubK2MfCb8v2fPnk+f
PoXQBgQEaBOEpr0yauFBW2eEZ1tNwmgM3UbaGBPTvcuThRj9KVmypOn2HAoK
bzMckkz0EUVD+K9du2Y8i7HNli0bZtNiOR4kExVOs+wNYocI7dxRa8Cie/Xq
5REbjhH76quvnNvw/fv3Y6O0+yjh44oWLYqlFRRd9JbIrHdr167Nmzfvvn37
xM8FCxZwu1xHIHYtqVSpkv1dS7Cu9imBEWInevubiVuD8CRXrlza7hf+gdcV
KlRItyknbq5Lly5yOpyYzoHoanO5mAI+4O/vDzGzv4hYgAKgHSnN9uOQZIqs
DlmyZDGN7EQaeeu8MUuXLkVCtKN4qbr8XOwAJbbDtnO9p/RIwCjMJ0+eRH3E
JuyJSSFGt27dEBvj4m4EOCIiQrtXS6KlMtI0PKpatWriepFRrVmzZpLtp70y
auFBW2eEZ1tNwmgMnSANjIkYuUtpbg2EEKUm+lC5NBXeOTgkmXfv3sVnmeas
SEzKN0hgKOmNKSCZs2bNgqOuW7eOMNCzgylG4GQrVqxof2bL+vXrCSE90r9K
EIqZdZjzk5Lgv/gEOdaMaw4NDS1YsKAkM/Hx8VhF8VOMTcv88/yMjIzUzTsi
FuB6m7uWYF15oJOF4XhhpMI4/MqHcBDyieOeOnWqzcF07oqJiSlSpEh4eHhC
QgLt1bFjRzjh7t27da1GDfj5+cmEdZhrnYvXgZbq1KkThCFTpkxy75IcOXKU
L1/eYkhRjpMi1bihlE7ITHRMMkVWB5TaNLKD0dWqVctiD0eYT7t27eA5V65c
QZAQfto6VWNACty/f3/7WWg8okcCpsK8cOFCtEnSIYQK6TK1kBirhg0barei
sFZGMbYrc62LaEuXUS2NlVELD9o6IzzYahJGYyjxthkTGhS9y58/v7QkGTJk
8Pb2DggIcJV1U2ywNWDAALSDgLFMmTJqQqbCuwiHJBPziCa6WkdDPL5p0ybr
JQNHjhypX7/+d999d/z4cULy2rVrHz161L3C2AGai2Vo1KiRHTaLzcGGr1ix
wiOvppJ79+7tcAEFFd6qVSvtWJ7Y80Km1xYcQy5u4jMDAwM7d+4s3ss1NLcu
izi+r1q1arLvxRqwdMyp3GfEDcybNw9XqxvJpTzdunXDpFMYyAbsztXiCFPc
unVr9uzZYWFhUVFRhDamo40IWIECBYhlxM87d+6UKlXqm2++8ZTd1o2TwlW8
vLxMd29J9jlOSCa3E9a5yumKGGzcuNEih7xgPuXKlcO7oYlwLTgnnDlV91DG
iX/00Udy4qI1PKJHAkZhps7hQjIlzqVLl+DbqIZpI3IWEdIaT2tl5AN9fHzk
fjFinoAuC3caK6OEZ22dER5sNQmjMRRIB8YEskqsSuNCzrHhfALGxM7erwoK
bxt+//337t27ixRebwQYBBRW6Ca2YvDgwdhY+6NFbuDYsWOlS5e201cgUkx4
ZGNiTNzo0aOnTJni0AoR9kIAtDz87t27HJGuSiw2gSHwDzaQv3hMaf3Onz//
4YcfTpgwQWtyOcUFcFE7XUn79+/HsLu9/hSD2bRpU11eQZwFHgFfLJLF3bhx
o169etp9mT2C2NhY/ILsodqzZw8/d+zYcfr06WRTiNiB9aQF+xB5aWiRN7ID
CLzl448/zpkzp5xddvXq1eLFi0dHR6deLwoc7PPPP580aVKyr/CUHgkYhVmw
RDF2D4ds0KAB8a8pNaIAs2bNIkDW9s5ZK+OBAweQELGOntthMnnz5iXK1j02
zZRRCw/aOiM822oSRmOYmC6MCUWdO3du4cKFxZQVMRZfokQJNSFTQcE5Vq5c
mS1bNjdcs328fv26X79+ySa1TkziCVh7j2wdiCNo0aKF6doB+xD7eBKkawdl
CBNwNDgyPocL4uLismbNOn/+fBzQggULCMN79OgRERHBKa4kIm7cuLFxSzvM
V61atXSbwRmBucNTyEEiNwB1wYnrcs3xXlgNpXXvmXYg5lD5+PiIifqwGppD
zNuHFqZo00lTWI+TvkMQLAvfDV8SR54+fVqjRo2AgADn+a4tsGHDBl6RbNoH
j+iRgKkwnzp1ytvbm7ZDg4iGdu3a5YqcPHr0qG7dusuWLdMetFZGCA91K9g7
glG+fPnJkycbrVCaKaMWHrR1Rniw1SRMjWFiujAm9+7dq1ChQsuWLUV/ODa8
TZs2zZs3VxMyFRRSCvwXrlnuRJn4144ks2bNStX3Yg0IdZPN2IalgqF5ZIiH
N9apU8fhwNb58+dxxMZ0JXxIUFDQhAkTBg0aRAgMkwwODh4xYoRIuEG4jeMj
Fu7Tpw8uyRVVWLx4MabMulcEK9ehQwe5JiKlePny5Zdffjlv3jyt4zadJupx
iDlUuXPnxlZPmzaNEGPJkiXVqlXjn6ioKOcbUbkaJ02NlIOpCrHAWU7iTUzy
oUhdihJ/uffekJCQZIeJPaJHAqbCvGLFCtgCLHHz5s0WS7wpZExMTPv27Y2z
biyUkbsgpfycPn06f3mXK36YBsqogwdtnREebDUJU2OYPowJYUiOHDlmz54t
fhLulS1b1oNj8QoK7w8I54kHhw4dKsN5CGe2bNl0ySJSA+vWrcP+W5hxihQW
FhYfH++R1/30008WSWPsAHfGE3BSpqYG74ANFy4PS0ssrHWRfMvt27et86JQ
tq+//hrLZmHKoBlNmzZ1L4k6j42Li4Po6jIXUdrBgweXKVNGdp3JMrvxFlc4
fvy4t7f3+vXrYYNUlJyuzxd5xHQbx0mrV6/Od4lx0je7OXiKQG2MHTu2RIkS
cp2smKVZv379VJ2WCX755Re8tnXo51yPJJwIMwyHe023ekxMThk5jrRYS11q
K6MOnrV1Rniw1QRcGcP0YUw2bdqUN29e2fG7b98+vGRCQsLZs2dTdcGCgkL6
A25r1KhRMmOYiM0bNmzo2UWIpsDsYMNHjx7tinphOjZs2OA8YbgArtPJXB3c
FpEsYXLqbbySmEQnevbsaZF2mwvWrFnjXqi+e/duHm46HodRhdVcunRJ/KTm
cR/Tpk3zoGuIjY319fV1Y0s4mzCOkxIrETEdOHBgwYIF71YXBAwKNy3FANGl
6pYuXZoGX3Hs2LGOHTtabMfgUI+0cFuYsQndunVL7XnsqaqMOnjW1hnhwVZL
TM4YpgNjcuHCBbmg7Lfffvvyyy8LFSrE62bOnGmReUxBQcEUFy9eDA0NxYVt
376d4LRFixZyD4XUhsgR4dlBnFTCnTt3qJ806BB7/vz5xo0bPZ4rDybPY11t
YsjZqVOntmnTJiYm5ttvvx04cCB+wSPeUwBn1LVrV49scGwB60kL7xAgk5s3
b/7888/nzZu3evVq/knt6EYLDMLBgwffZloOX7K/07oTpJIyvuuwNobpwJjg
mFC9Zs2aTZ48GedI+atWrTp48ODp06c73z1TQeE9xKtXrw4dOoQ7+/nnn9+h
gUUFzwL7SXyRSvsmR0ZGpkFfnPU46buFx48fb926df369cnml1ZQeNuQDozJ
ixcvMCbCIeIiMSZvc+SloKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoJAi/Pe//71w4cLUqVPbt28fEBBQrVq14ODg
cePGnTlzJtkdCp4/fx4bGxsXF/d///d/aVNaBYUUAcl8FzfaePjw4bJly3r1
6hUYGFilSpXGjRsPHDhwy5Ytr169sr7xP//5T0JCwqhRox4/fpw2RVVQUFBQ
UDDi2bNn0dHRtWrV+vvf/z527NjFixfv2LFj0aJFI0eOrFGjxt/+9rfy5ctP
nz79/v37uhtfv3598ODBwYMHd+jQYdOmTW5vLPvixYurV69eunTJuBkl3ODu
3bvnzp2jkO49XOF9BjK5dOlSZDtLlixZs2Zt2bLl8ePHtWzzyZMnw4YNmz9/
/ltFQVEEdLB58+b+/v5ff/11TEzM1q1b161bN3ny5DZt2mTLli1v3rz9+vU7
ffq0rtj8vHLlCqEiESI66zbDtFBJ8PTpUwLSd24zdwUFBQWFtMS1a9fCw8M7
deq0cePG33//3fQaHM3w4cMLFSqUOXNmPz8/nFf//v3bt2+P+6tQoULPnj1P
nTpldNAc2bJly7Rp0/744w/dqevXr48ePZpXi5/Pnz+PiIgoUKBAnTp1jHvU
JiQkcPyDDz6ghJ74YoX3CLdv30Zcu3btihRdvHhx+fLlyFLGjBmbNm0aHx8P
i/v2228DAgIWLlxoSqXeCFCBuLi4tm3bRkVFEV6ZXgMx/v7776tXr04AWKxY
scaNG/fu3RtNDAwMRCUbNWq0du1a083W4Y2RkZEooO44uj9jxgx4rFBka5WE
W3bv3h2i26tXr7en3hQUFBQU3irgUPbu3Xv27Fk7fTj//ve/jx8/vmDBgpEj
R44dOxa/DLe0cDGvX7/GB3Xo0OHFixe6U3jAKlWqnDlzRh55/Phx1apVBw8e
bDraHhMT4+vrK0mpQvqA6Cu7cuVKKk2xgCmFhYVBL7Xizbs4AivLnz//xx9/
zAU3b9403vvq1Svk7cKFC4h9apTNAtQJ7NeUIhoBXVy9evXEiRMJFaOjo3fu
3GlUNy3WrFmD6p07d053HN4IZY2NjZV1Za2SMPaCBQv+8MMP9r5J4f8jtcXe
Cd6g2CsoKCikHuCr3t7eq1atMp7C3HXu3LlBgwYvX770+HtxqRs2bBg3btz2
7dv/+c9/bt26Ff7MPx5/UeoBhzV8+HCYBiHA/v37Z8yYsWjRorfQf+kAA4QX
0eimfWVvFhC8qVOnFitWrGzZsq76EtM9LFQSrFy50sfHRxsnKtiBEnsFBQWF
tMfChQsLFix48eJF46kHDx5UqlQpIiIiNYgTzxwzZszf/kL27NknTpyY7JKK
twqHDx/OlSuXKH+GDBlatGjxrsyUe/z4cbVq1cLCwt5CSvzHH380bdr0iy++
sNmjmP5goZL/+c9/Bg0aRNupJUVuQIm9goKCghNgPDdt2jRw4MDo6GjtPE+O
b9u2bfjw4f3799eOUeKzevbs+dlnnxHmY9x++OGH3r17T58+XUzm/Mc//lGg
QIENGzakUlFnzpy5YMGCtWvX7ty58110mtTPyJEjN2/e/OOPP169evWtWr1i
jTNnznz44Ydr1qx50wUxAUS9ePHi06ZNe4fq0xqXLl0KT8Ivv/yiPf6vf/1r
woQJPXr0QP7lx1qrJAc5pSZkugcl9goKCgpOsGfPntmzZ589e7ZYsWIJCQni
IFZrxYoV0LmXL182b958wIAB0kOJ2V+Q0idPnkyZMgVnN2bMGOzwlStXODt3
7lxfX1/ok8UbX716tXDhQjcmbUIyKeqRI0dcXbBr1y6t8009wLrj4uKMi6SS
BSQTMp9mvSJUNY2oIyruAepSuHBhSI7zR3kc27dv9/b23rdv35suiGdw7969
yMjIGzduNGnSZMiQIVJaLly4wPFHjx59//33fn5+Dx48EMetVVJMyIyPj39j
32MGtzXIDpTYKygoKLgHHT/597//rVsoIf/nuHFCuOSKnOVijPy4ceNu3769
fPnyQoUKQTXFWewzfoqzuK3q1asPGjRI3nj69OkCBQpERUV98803+C+es2PH
jiVLlrx+/ZrXdezY8fPPP7dYzoD9Dw8Pj42NdYNoCZJ54MCBEydOrFq16ty5
c7rOmd9++61Pnz5r165NVZ6J92/Xrt3JkyfduBeSOWvWLAj2unXr9u7d63zm
6k8//URLyTkD169fh4FoH0ubfvnll9a03xW4a9SoUX379qXMXbp0cTUzjdrG
09H0DRs2rFu3buvWrSmVk34zBEknHkKYTZ/JqQkTJrzBmWn/TYL8Scm15dR9
CKd0wqk9Im5cuXLl1q1b0cGSJUvOnDlTnP3zzz/5TNgOD4RqVqpUSZJMC5Xk
LNEiVIRr7HwLlXzw4MFp06aFhobCWpcuXfr8+XNx6tmzZ9u2bfNId6gTDRJI
f2IvJFwnG7S18aC8/s2KvYKCQvoDdr5z58758uUTk/qyZMlSsWLFTZs2ibOX
L18OCgrKmzevOJs5c2Z/f/+ff/5Z3o6PICoXZ728vMLCwnBDvyehRYsWLVu2
lB0LmErxP7bax8cHCiofsnDhwowZM3700Ue4Ql1HBF6P8sAhXRFIMd6N/3Jv
IiW3T5o0CWNOeeCZ/fr169Sp08OHD7XXQJibNWsGl3Pj+XZAE+AfV69e7d7t
R44cqV+//nfffXf8+PG4uLjatWsfPXrU7cJQjU2bNm3VqpWYlEX9jBgxwjj7
DgmhzMQL9p+MC8Nj1qxZc9euXTyWRkdgtL1qEjhBOMnw4cOFs+NGPq1y5cr9
+/d3lWXLGtRw9+7dixcvjgDL+bc5c+b08/P74YcfjA4XIfz73//+pmamUSFz
5syhtCiFKKqvry+tIAgeNQBVQ1nkhxQtWnTRokXyK6g0+EmGDBk4xRPgM7du
3aJZqVVYE4+6dOmSfJcgUfwNDAzs0KGDzHNroZIoMgWwMyETMglp4Y2ffvop
ZBWZ2bx5c0REBCaFaIgioW4IgHOS6VCDEtOp2EO5aX2MrRQVpKJgwYLE7Fob
LvFmxV5BQSEd4/Tp0zBJ3K7pQAmOOFOmTGXKlDFN9kJIDskJCQnRJks/derU
hx9+uHTpUuP1OEROXbhwQfzExXz11VcY4YSEBNxcpUqVtGsNkp2QCTOEVjnJ
bgTplStl4LRY9WHDhukc39q1a/FBT58+dfstroArmTp1ao8ePdxebQQlltnF
KfbgwYNxjrJLKqWAUUNvJk+eLB5I48JYunXrpuvBho306dMH5mC/9/jcuXPQ
oRkzZogn//Of/6RlTYnBzp07R48erfN0UKMSJUpQV066lKE9AQEBeFs4ucVz
kHP4lcN3OQTED7WiqKZL3q5fv05w98EHH5hO7aPYhE5EZ3IcITEpc45gkkYK
wdOggrNnzxY/rVUSNf/ss8+4wIIcCmZFe1EGTIquGqne9u3b84SsWbOuWLHC
Xn24hHMNSkzvYo8VzZ07NxbeuvP5bRB7BQWFtxn4UPe6BX755Rci3Fy5cpl2
gm3bti1btmzlypW7d++e8eydO3cGDBig7f0TS7bLli2L6T5w4IDkk4lJ/qt3
797+/v6SkYq1loMGDeIuuCL8c8GCBfiL9evXE1nPmTOnSJEiV65c2bVr1+XL
l3WvJsBv27btxIkTPTUjUYzO424oufY4TgeSiRf2uPmlcqpUqeKk71GHlStX
0lhu9+rg6XCCe/bsET+p80KFCsXGxhqvPHnyJCXX0hgL0O6hoaHImJyKFh8f
z5ONM9NEdwr06ccff9Q9oX///iVLlrxx40aKv+ov4MFpxwwZMlgneNy+fTuV
4JGZaUiye91Q8JnWrVtDMsePH2+Uuvv373/88ceQtM2bN5veO27cuP3792sP
Hjp0iI+iVlFYmXRdYOPGjZySM5OtVRKJ5cjChQsxGlgGY9lQIjQFIezUqZMc
Gddhy5YtXMBLtcbBPXhEg9K32GM/+TpazXpOqQfFXkFBIf3hxYsXrVq1goy5
ce+vv/5aqlQpLy8vjK3x7KpVq7JkyeLr62vsyRRzGnXu7OXLl59//jlk8smT
J8TmWmoqJmRiNrUTMr29vaFGiUn+onDhwrg8DhL7462GDRsGI8Utjh071rip
JQwW6qsd/kspTpw4gSuULkP04eTLl884nIRX/fTTT41lcAJqb9SoUXAJt1cr
PH36FC+mHS3dsGEDrmrWrFluPI2HwNiRBCpcHFm3bh1+5/jx48aLYR3BwcHa
BVwWEAtJGjVqJL6UW3r16lW7dm3jzDTEuE2bNuXLlzc2AZ+JHC5btszOt1y/
fr1bt26dO3fGdcrKMSWZFAkZ5qVhYWGQIjEzrUyZMiiFnRdZQHSyjRgxwo0g
iCrq0aMHJPPrr7823g7loJkyZcqknXYiAeOKiorStosoCcpCyyLJWivBw0eO
HAlllbJtoZJcDBODJh0+fJjm2L17t+7VXIDsZc6cuV27dhbzqEVeMm2w6R6c
a1BiOhJ7PoSgg9oYPHiwdnDHlGRizLmsZcuWixcvpho9KPYKCgrpEvhHYuFt
27a5ce+jR48qV66MKVu7dq3uFHYSo8qp/PnzGwPw8+fPf/PNN7ohHmwpnBDz
FR4evnfvXu2pM2fO4L+0nnHNmjXE6aKXEnbaOQlDhgwRE+zxhjVr1oRqcouu
zwQKCo+lbE5mEMXGxubJk2fHjh3i5+vXr3mgqaWFtHDcs4lHeAuu1skqXVrE
x8dn6NCh0uXhkrJly6brD7EJMTNN+kRcz/DhwykhYQIPNA7BL1myBLdoJy3n
3bt3YTiSLyFUxBr4OP7Bodvsfhf8mSLZ5GynTp0qWrRo7ty5Dx48KI4YSSZC
NW3aNI4EBASIRufbmzRpgseH/6xevdrJQioe/u233/LVbowv8I2QXkimcdCW
U9999x36yNmYmBjdjdAVIjtjPAg5hNRxCkatVRnjhExrlUQYqB9Ub9y4cUYa
uWXLlpw5c0JZTafWSFAAXYoJ9+BcgxLTl9jzzLlz52Kua9WqJeeOGkkmLJdG
R+yh6EIYPCj2CgoK6RJOSCY2h/gam7Nw4ULtcbwkpAWrBTOEjJ04cUJ7Fus0
ceJE0znkiUmdbMZZUjj3ggULasfIcG3aMTUMKY5D+jvxFtPJkLiAChUqREdH
2/5KE5w7d474XZYTa1y6dGk8uNGeY4SbNWvWsWNHbdkcYvPmzb6+vq4q0A7w
8rgJ6Tv4ENhCw4YN3esgEjPT8P7C75w8eZLiffHFF3fu3DFlFJcuXSpSpIhp
Z5oOv//+e6tWrQSpoG7j4uJgwojWgQMHFixYYDEJQVvbK1asyJw5c0hIiE3v
LPqlYWKRkZGiQY0kk2aFXWTKlInCiCMEXFWrVuV7z549C/90woKckEzuJXyj
8ARrOpETQtu4cWPOco2u9jZu3AgLMq1SxMMoGNeuXaOV58yZI48kq5I8nFoy
6ggq6efnB8OhANZfB23u1KmTHcmxhnMNSkx3Yk9jEQ5D9WVsZSSZWGCCFL5C
7mLvQbFXUFBIl3BCMvE+hLH4rOnTp2tNH0Zp/Pjxly9fLlGiRPbs2eWcJYG9
e/fCP5ONr7HS8fHxFy9exKETKbdo0cK9WWo6JCQk+Pj4YK5Nz1IqbOygQYOg
GQTmOjfNT8ojBonWrl07ePBg6m3ZsmX16tUbM2aMafHERNOKFSu6vabG+MAh
Q4ZUr17d1WLVly9fLl68uEePHmFhYcadLnEKoi+FDwkNDV26dOn27dvxRFSv
dBzad9mpjZ07d3p5eeFhBw4cCHuBvuJuKOGIESNM51FA/mvWrGmzP+rUqVNB
QUGwI4qB2MAxgoODebKxR0hsL96uXTtYfZ8+fXr37v39998jPFOnTkVE+WnT
AwqOp+0MNJLMx48ff/rppzly5JBd7lxJQ6NKQ4cOdchenJBMEBMTQ+F1G6qi
qjTN+fPnu3btytlhw4ZpFRDhHDlyZLIr1ERbb9myRTAf5zxNPJOQkyIhEskW
AJEbPXq0cZZ1St9orUHvp9j/9ttvderU0Q5LGUkmlhx7DquUy+c9KPYKCgrp
Ek5IJhYG44Ypw8BKn4VNi4qKOnHixMOHDytVqvTBBx9oV3nzOtyZnYxqkJ+8
efMS+H/33XeYbudT/QVmzJhBJG46Hx5ai5UWWVwEoGraWVu4Hm1PAh+Iw928
ebP156xYsSJfvny67ly3AZUNDAxs27atadco7q9KlSqy/DhB3i4LTBtFR0fj
v8RPiMehQ4dwo3gHoyeyWRvciIctU6bMrSRAYsVZXKqr5RuITYcOHezvwsz1
N2/eFJSJT7h3755xqgOEoUuXLhA/OSOOr964cSMl5DiFxxXan+I4Z84cboF4
i0o2ksz79+9XqFAhd+7cx44d097IJztP6+2QZKIymTJlQmW0nA0yPG/ePGoS
0sKnaVd58zpOye0PLCCmRCIGu3bt8vPzI5ZxvqLt119/LVeuHEVKs/1irDXo
vRV7rEGjRo34cO4VR4wkc+vWrVmzZg0ICNB9o0fEXkFBIV3CCcnE0vbt2xdT
1q9fP+mzTp48KZYPPHv2zN/fP2PGjHIUDAO4atUq4wROU2C1li5dOnz48Li4
OIfz/HUF/uSTT3Q5LROTTPqwYcOKFy9O4fmEI0eOhIWFwXLlgmvKM378eGN3
X7LAv/Mc96Y7GoGvKV++vGnGPE7VqFGjfv36a9asOX/+PAS4cePG2hRSeI0J
EybYmYxqvzbwTc2aNWvTpo39Oa4inWDp0qU9tVjg8ePHQUFBZcuWFTvLSEAn
eFGJEiWyZMmC4Nl/IBILT2vYsKFwnUaSefv27Y8++ggXnBo7sDgkmbQ7TAAO
LJfkoOOQDX7yZFoNhQ0ODpYzNvkEDtohCdwOxeJRIhm7G2UzQkwdRLScZERP
ESw06H0We74dqUA25FQiI8mkHngm/sJJ3icFBYX3Ck5Iplhhil3q2LGj8FnY
NxyQYGIYZNw0Z2UmvTt37owaNcpmIJ8aeP36dcuWLevWrWssw4EDB8R8KnkE
l7p8+XI+TfhfPA6ux40Fv+fOncNPzZ071+b1UAv8IHeZpq2mbn18fGRqPgkx
7AgB0Ho9Si6GzxL/WsArJ1xZw35tQLdKliyZ0m4o7s2fP7+TBf4StGloaChE
xRi8ULzw8HAkMF++fNSn/WdSSzlz5vz0009FD5WRZIoMsX5+fsZoxTkckkza
jsIXK1ZMDK2KyE6OJkAhqBC5XIXaQ5Zs7sLjcUgDUqlSJc/W5NOnT5Gua9eu
GcXSlQYlvt9iL1bca6dS6EimSDXgKnGBgoKCAgzwwYMH9/8XV69ebdCgwYoV
K+4bgKG2NqHS7EBTBbfZsWOHTIwjQ2Nop9g7EgfnajJk2kDwXtlDJYHFxrQa
c49w2aBBgy5cuMAF48ePd2/IXthqU6dmit27d0ODTdfsg59//hnfYVy4dOPG
jT59+hi7fPFoAwcOpOlv3rwZGRlpZ15rimqDx3br1i2lNQPvzZMnj3HKqBtA
onLlylW5cmU5ZCkh+o6QQOsNRo1ATT755BOZhtpIMuPj4zNlytSrVy/jfqkp
ArdTbJ3eEWJEREQQHfz666+6UzCxZN8oCDAiJzq4dOtQlixZkjFjxs8++0yM
eB4+fHjmzJlvar0G39K+fXsxM8GD+8XwyT169PDy8goJCTFWlysNUmIvZpnK
u3QkkwaCgeumPykoKCgIwBgbNWqEDcn2v8iaNavY+TGbAcT7yfZwzp8/H+cr
+gZFfkvZ/ybSu/FwMTJFTD1p0iQPLrJ2AxjP+vXrN2nSRDfcg/08deqUqfte
uXIlRhWqBkt0j1GInhPBtG3egjMqVKiQ6QIHygmFMKaggReZXs+njRo16tat
W8uXL7fZX52qtSGwcOHC3LlzO99zU07Y0OZQleBDWrVqlexOPUZwcVRUFGRM
TGnTkUykKCgoCLaQbLcwVxLE4axNe37E5qRQBaPqZUyC8XiOHDmS3VHx2rVr
yJsgM7xi7ty5MEl5VgxPixkjFI8PtJNUJ5WANRANZNp8OlDa7du325S6f/3r
XwULFoyLizOecqVBSuyx4fgIBPLQoUOJBpJJ5fDT398/2f0xrcVeQUHhvYKT
4fLEpOR4WbJkqVq1Kj5ryZIleAF5SiSOw9Z179795cuXEydO1G4zJ4ANnD17
dvv27fm7aNGiJX9h3bp1rubPO4HoyQwMDLS/UP3EiROUDdZnc6DZCLhf/vz5
dQvwLYAXCwkJMR3TT/yrH2bmzJk2385LKXxCQgJ0wtjpkVI4rw2B2NhYHP2Z
M2cclocvqlKliqteX+hTyZIlixYtKlI1pghUftu2banqvXv3akkmUk1TwtPg
h9a8CAEODw/39va2v9ZDwOFw+Z07d0qUKCFWvp8/fx6moY3sxAJhkUIc4mRM
JCtAFLZq1Sp0NjIyEqqWGsqYqEkdbzpDUgdKPmXKFJu8BQNCzZv2GaZUgxLf
J7E/e/YswoPE3r9/X0syIZa4CXi7NmAxhdtir6CgkC7hkGTu2LHDy8urbNmy
R48enTBhgpa8ia2Q8SCtW7fmMgys6Ux7CNXfDIAHemqxjxZi073atWvbd5oY
atz9yJEj3TaY+BQ8y7x582xeLzzI0KFDTf3p9evXMfV4f/t9FBAJyg9VcL56
13ltJP6VyVyO5zrBzZs3fX19TfdaAsuWLcMRh4WFucfWRH7y0qVL4zSrV6+O
WPKoLl26cIQ4yObWLdWqVeOuFHXpOCSZYg04NHj16tUooG6FDrwrT548iNCx
Y8cgkKZZgwgJ+XAIlZjlAtsMDg72VA4uLXj+jBkztJO6XYHwMCIiwuYMQ8qM
+qBEplGVGxr0Xok9AtOiRQsEnioSe5fPmjWrRo0aDRo0sEmP3RN7BQWFdAmH
JBNumStXLqJd06yMxP54EAzUkCFDTHcwx4+Hhobu3Lnz8uXLN5KAHevWrVsq
pVzD6A0aNEi7F16yuHXrlr+///z5891maLt378YdbNmyRVcSvnrAgAH9+/en
8rdv3y4dItWIJxozZgxOjcqBImr9r0gMZWd4UQKyQRN4pEqd10biXxygfPny
piKR0vIUK1asVKlSxhW7CHa9evUqVKigHQ7GO1N1MkUAMRHfYr1Q+s8//6Sl
KC2S3KFDh/3799tfWoswoxop3e/JIcmUWR169+5NZKFz9KJ7Cp6JIhi3dxTY
uHGjdlAe8fvqq69s7suZUpw6dSp//vwVK1a0UEkqBBk2JteF+40aNapv375z
5sw5fPiw3OYVKli3bl2Y0uTJk/nM8ePHa9fQuaFB76HYY47gll5eXtmzZ6ca
L168aP/b3RN7BQWFdAmHJFOMPeF/R4wYYTTaK1euzJw5M5bK1T4XmLJ58+bJ
4Tzc2dSpUzdv3uxeYexg9uzZGED7nQnwXhiacaDfPpYsWYJb13bCwFJwji1b
trx9+7bYgC9HjhwyZT3EAIbQs2fPp0+fPnjwICAgQLsTyh9//NG4ceMULZTg
9uDgYI8ksnNeG4lJ/clt27ZN0aQFV+AJSK+vr68u8SkOMTo6Onfu3LrMUbGx
sYULF5atv3fvXoRBt4epEVQ1b9HtXW4HXM/rUprtxyHJlFkdqlevbmRugp9w
NiQkxBVbptiwFLmqhcs6duxoM/NYSoHKE2phJWJiYkxpDAd37NgBUdSNkvz0
0081a9bctWsX5C0+Ph4uJLdQJGKlWf38/GA71CHHUTH5sW5o0Psp9qZ7l9uB
e2KvoKCQLuGQZGLlsCclS5a8du2a8SyOIFu2bJh0m4scuX7atGkOV+xa49Ch
Qz4+Ptq5o9aARffq1ctthobXi4iI0O6RgSOYO3culSbGnsSkguLFi0M4E5N8
brdu3apVqyauFzmXmjVrJl2k2EKoUqVK9ocvcTGmKyDcgMPaEHjy5An8x7ir
Mnxg69atHKfGiDVsdvgQkuTKlUvby8Q/a9asKVSoEM5Oy1uo2y5dusjJrqLm
EV1tyhpTwPb9/f0hZnZSBMjutVmzZvE6N2amOSSZIqtDlixZTCM7kUYeFbBI
WwS9FKOxc+bMQXO///777t27p9K0zMSkSBNWnCdPnsWLF+t0n1PQS+pTZ0AI
2YoWLTpjxgzRHKLzX2azhA/nzZt337594ueCBQtgSnJZnBsa9H6K/eHDh3mF
zeXwzsVeQUEhXcIhybx79y4+a+bMmabO9+DBg3grae2tgfvr06ePnc2AnIC3
VKxYESduc/Rn/fr1TvYiefnyJQ5Um6xebJ4OdZSJvtu0adO8eXNBI8WETLkO
QjgmXc4lqDiuxOYWQriYoUOHOl/QKuCwNgRgCEgFjlV78OHDh7Drjh07UgO4
p06dOrmalaoDFRsTE1OkSJHw8PCEhARKyEPghLt379aVk1f4+fnJNIBUuI7A
6/Ds2TOKAZnJlCmTnC2cI0eO8uXLm46c6rrXFi5c6OXlZWdJi/E5TkimyOqA
UptGdhDmWrVqjRw50rpU+/fvL1WqFN8LW+vfv39q7+eCFYJlEZAGBARMmTLl
xx9/pIaxBk2aNNm4caORlYWGhhYsWFD2lcXHx6MR4qcYlZYbLvAzMjJSN30x
RRqU+J6JPdWChOTPn1/KfIYMGby9vWka0zmxnhJ7BQWFdAmHJBPvg31z1cvx
4MGDTZs22emZFPH16NGjU9s08XzsbaNGjbQ7O7sClhybv2LFCrdfd+nSJZy1
tnr37t0LUZEJ6iHVZcuWlcsQzp496+PjI/fpuHDhAuZdl/0Yf1StWjXZjWMN
SDU+RW764wTOa0Ng3rx5EGntSC5ShIusXbu2yI5y48aNevXqaTfETBa3bt2i
SsPCwqKioghtTEdCjx8/XqBAgXXr1omfd+7coWm++eYbT+1maN29Zh8OSSa3
E9a5SuGIMkLbks18fvjw4a5du7Zu3TpLlixZs2YdN26c80HeZEGpaPSIiIjB
gwdD6k6ePGlqDR4/fly1alWZT16QarmaD70ODAzs3LmzMDtcg33Tpc1PkQYp
sbeGp8ReQUEhXQLf0b17d5EY7Q0CF0AsLC1hquLYsWOlS5e2048hEne4ve04
VnfWrFn169fXrpSHdefNm3fnzp3iJ3wAmwwLhV4ePXr0yJEjWGyREVrkd+Ji
Duoei4/Ak9oZkNq/f3+rVq08MnTlsDYE4ABNmzbVZQ3dsWNHzpw55abJqYTY
2FiqWs6s27NnDz959enTp5NNzJIsrLvXUgSRdYomflN9QUhjUFCQWCeCKPr7
+2fIkOENlkcH4rJy5crJyEusZR4wYAD/YED4+9lnn0kSdf78+Q8//BB50xY+
RRqkxN4CHhR7BQUFhdTDTz/9hC8wbreRGnj9+nW/fv2STWqdmBSV44nc3vDu
0aNHdevW1S3LvXDhguzbxMd9+eWXfDg2eebMmZj9W7duVa1aVczJ52D58uUn
T55sLOft27dr1aqFp7AuAB5typQpcqTMIRzWhgCfxgdqM/iZDmh6HGJmmo+P
j1j+8Pz58xYtWojVEDNmzEjRppOmcNW99s7NTHvx4kXz5s0XL14sj0CQunXr
Vr16ddN9TtMexMXETbBKKhnhiYuLy5o16/z584mnIGx//vlnjx49IiIiOMWV
nTp1aty4sbHkNjUoUYm9JdKN2CsoKKRjwIWI8T21q68dYGOxhKdOnbK+DJ+F
w3JvIRIfFRMT0759e924PM5l3rx5zZo1gz2GhoZCQbHSgwcPnj59Ov6RuzgS
HBzMT/6uWLHCFT+EBrRp08bamL969apDhw4rV650o/xGOKkNAaoCUs3na/tz
+EA+v0yZMrrpuJ7d61DMTMudOzcMatq0aYQYS5YsqVatGv9ERUU534jK2L0G
K+O7RPfam9q30Q1QUURGunnUu3btql+/vvNk/p4CmhsUFITRGDRo0Ny5c2GS
KMuIESNE3p6LFy/CQidNmtSnTx8iLFeTeexoUKISe0ukG7FXUFBIx8CA4yYI
t2UmtzQANpCXWrgYLGRYWFh8fLx7zz9//nzTpk1Nt3pMTOovunnzpjDCUMF7
9+5pHRBeCettPWmKu7Dts2fPtrjs/v37lMF58udEx7WRmMS64+Li8PvG2X2b
Nm0qUaKEDDFwWDBtfKIHndTx48e9vb3Xr1+P+6Pm5SIIqsgjk9OM3WvZsmVb
tGjRgQMHYCmemv+WBoB40EbDhw+XtIrPiY6O/vbbb9+S4XIBikc7igiOgqFB
2hmJtMLt27etkxTZ0SAl9tZIN2KvoKCQjiGSrhQtWjQtt1HGKuJfRo8e7coT
YTM3bNjgXuZk7urWrVtqz3R98uRJz549detVdResWbPGI/vFO6kNgd27d1Na
02FHmmDq1Klt2rSJiYmBzAwcOBBv69lt7mNjY319fd3YaM8+rLvX3iE8evSo
e/fuNNa2bdt27doVHh4+duxYm1nI3i0kq0FK7JNFuhF7BQWFdIzLly8fPHgw
jbtKxLY7Hll5rcPhw4fPnz/v8cca8fz5840bN6Z2hhnnwJ9STtNNDLXXXL9+
PTVmcxHFdO3atUGDBnZSCjh8kUX32juE//73v1euXCFCgWKlb7aQqhqkxF5B
QUFBQSF9A5cXGRm5dOlSNX6n8P5Aib2CgoKCgoKCgoKCgoKCgoKCgoKCgoKC
goKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKC
goKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKC
goKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCQnrC
/wOrnNHw
     "], {{0, 189.}, {887., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{675.7999999999985, Automatic},
   ImageSizeRaw->{887., 189.},
   PlotRange->{{0, 887.}, {0, 189.}}]], "Input",ExpressionUUID->
  "9c102d0a-57e9-4330-a27a-696984d4060d"],
 ", FieldNumber = 14"
}], "Subsubsection",
 CellChangeTimes->{{3.831829248452721*^9, 3.8318292796029115`*^9}, {
   3.831837565561267*^9, 3.831837565717546*^9}, 3.8318376089841914`*^9, {
   3.8329479164930973`*^9, 3.832947916789883*^9}, {3.8329608807532234`*^9, 
   3.832960881077914*^9}, {3.8329613994087734`*^9, 
   3.832961413867854*^9}},ExpressionUUID->"b81544d3-708a-463e-b8b1-\
31c672d44814"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "2"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", "1", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      RowBox[{"I", "/", "2"}]}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "4"}], ",", "0", ",", 
     RowBox[{"I", "/", "2"}], ",", "0", ",", "0", ",", 
     RowBox[{"I", "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3", " ", 
      RowBox[{"I", "/", "2"}]}], ",", "0", ",", 
     RowBox[{"I", "/", "4"}], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "2"}], ",", "0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "I"}], "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "4"}], ",", "0", ",", 
     RowBox[{"1", "/", "4"}], ",", "1", ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"1", "/", "2"}], ",", "1"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831224186752345*^9, 3.83122421388133*^9}, {
  3.8318236553982487`*^9, 3.8318236773981123`*^9}, {3.831831302775831*^9, 
  3.8318313425712132`*^9}, {3.831831417571769*^9, 3.8318314249331074`*^9}, {
  3.8318360089626865`*^9, 3.8318360258726*^9}, {3.83183697293332*^9, 
  3.831836980278759*^9}, {3.8318373329155426`*^9, 3.8318373882613344`*^9}, {
  3.832947939008093*^9, 3.832947950335035*^9}, {3.832948656116955*^9, 
  3.8329487410535097`*^9}, {3.832948894769576*^9, 3.8329489277416515`*^9}, {
  3.832960987426204*^9, 3.832961104505628*^9}, {3.832961459764524*^9, 
  3.832961501641776*^9}},
 CellLabel->
  "In[472]:=",ExpressionUUID->"42d1b68f-eccf-48a6-be80-d2aeaf8044d2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FieldNameList", "[", 
  RowBox[{"[", "LocalFieldNumber", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.767629320332469*^9, 3.7676293277928*^9}, {
   3.767629818188229*^9, 3.767629829047048*^9}, {3.76762994428327*^9, 
   3.767629946570438*^9}, {3.76763075512328*^9, 3.767630771719515*^9}, 
   3.767631992458599*^9, {3.7676332172653637`*^9, 3.767633217419197*^9}, {
   3.7680694708992443`*^9, 3.7680694719522953`*^9}, {3.8312236443632913`*^9, 
   3.8312236448348584`*^9}, {3.8318348118468747`*^9, 3.831834815644092*^9}, {
   3.8329614274407635`*^9, 3.8329614275208015`*^9}},
 CellLabel->
  "In[476]:=",ExpressionUUID->"a6c73ab8-a9e6-4347-916b-0bab87e6e8d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{{3.767630772392721*^9, 3.767630801820879*^9}, 
   3.767631993467433*^9, 3.7676324789673567`*^9, 3.76763265959324*^9, 
   3.767633219812674*^9, 3.7676334218086643`*^9, 3.7676334990149593`*^9, 
   3.7680690316214848`*^9, 3.768069474778201*^9, {3.76806995443233*^9, 
   3.768069970760583*^9}, 3.8312236465557623`*^9, 3.831223730345043*^9, 
   3.8312242527583585`*^9, 3.831224355590008*^9, 3.8312253418822174`*^9, 
   3.831226120688345*^9, 3.831805885388933*^9, 3.8318236910642433`*^9, 
   3.831824230789474*^9, 3.831824444556819*^9, 3.831824572364683*^9, 
   3.8318246134044886`*^9, 3.831824657701971*^9, 3.8318248323410234`*^9, 
   3.8318281573033304`*^9, {3.8318348123779774`*^9, 3.8318348160189466`*^9}, 
   3.8318354324495916`*^9, 3.8318355280734353`*^9, 3.831836057734417*^9, 
   3.831836224616662*^9, 3.8318369940172477`*^9, {3.83183739467624*^9, 
   3.8318374223770795`*^9}, 3.8318397993831377`*^9, 3.8329475119105663`*^9, 
   3.832948941291499*^9, 3.832958613181907*^9, 3.8329611481354084`*^9, 
   3.832961383717307*^9, {3.832961548374379*^9, 3.832961574809806*^9}, 
   3.8329618594815083`*^9, 3.845826961024243*^9, 3.845852550471136*^9, 
   3.845857158393421*^9, 3.845919711217174*^9, 3.8460066608001156`*^9, 
   3.8460999857236605`*^9, 3.8474705481821237`*^9, 3.851700736356475*^9, 
   3.853975546075795*^9, 3.854977518908663*^9, 3.854989356784289*^9, 
   3.8549999963306246`*^9, 3.8551653560928297`*^9, 3.855182416837648*^9, 
   3.855185957387435*^9, 3.855330741682365*^9, 3.8553399418278537`*^9, 
   3.8553432821735964`*^9, 3.8553441182579913`*^9, 3.855352848966898*^9, 
   3.855449701788808*^9, 3.8555077001224327`*^9, 3.8555085026082077`*^9, 
   3.8555129976762133`*^9, 3.85553341946488*^9, 3.8555790185760655`*^9, 
   3.855593388930097*^9, 3.8557507006470747`*^9},
 CellLabel->
  "Out[477]=",ExpressionUUID->"f0675b16-03a8-4192-8473-e38c1891d2fa"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDRHSW", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "1", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "cc", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "2", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGamma", "[", 
           RowBox[{"nu", ",", "mu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "3", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "4", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGammadown", "[", 
             RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "5", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{"\[Gamma]5", "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "6", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]5", ".", 
            RowBox[{"CommuteGamma", "[", 
             RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "7", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"\[Gamma]5down", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"X", "[", "8", "]"}], "[", 
          RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
         RowBox[{"Cmetric", "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.767629304035293*^9, 3.767629347414007*^9}, {
   3.767629404452773*^9, 3.767629571274057*^9}, {3.7676297543001633`*^9, 
   3.767629793961886*^9}, {3.7676298736024027`*^9, 3.767629886529111*^9}, {
   3.767629985657309*^9, 3.767630057796877*^9}, 3.767630121791747*^9, {
   3.767632000856798*^9, 3.7676320599201717`*^9}, {3.767632108541815*^9, 
   3.767632153615054*^9}, {3.767632185905408*^9, 3.7676322187161703`*^9}, {
   3.7676322490607643`*^9, 3.767632289710149*^9}, {3.76763232123499*^9, 
   3.76763232530338*^9}, {3.767632432348456*^9, 3.767632469860708*^9}, {
   3.767633230174479*^9, 3.767633289807064*^9}, {3.767633323929153*^9, 
   3.7676333430230494`*^9}, {3.76763339515467*^9, 3.767633418699889*^9}, {
   3.768069480798283*^9, 3.768069541437359*^9}, {3.768069658692225*^9, 
   3.768069660268262*^9}, {3.7680697943332787`*^9, 3.768069858216072*^9}, {
   3.768069964476863*^9, 3.7680699668947353`*^9}, {3.831224279001512*^9, 
   3.831224291634013*^9}, {3.8312243355858617`*^9, 3.8312245147054834`*^9}, 
   3.8312245555452833`*^9, {3.8312246176102233`*^9, 3.8312248854396353`*^9}, {
   3.831224919092368*^9, 3.8312249828511515`*^9}, {3.8312251008515453`*^9, 
   3.8312251071628194`*^9}, {3.831225140354734*^9, 3.8312252694894886`*^9}, {
   3.831225901051757*^9, 3.8312259055528245`*^9}, {3.831225940288636*^9, 
   3.83122594066458*^9}, {3.831225991491963*^9, 3.831225995823492*^9}, {
   3.831226067883353*^9, 3.8312260989452696`*^9}, 3.8318237165445256`*^9, 
   3.8318238085159006`*^9, {3.8318239194139647`*^9, 3.831824033825908*^9}, {
   3.831824086612759*^9, 3.8318241030023108`*^9}, {3.831824419726282*^9, 
   3.831824429802785*^9}, {3.8318245476511354`*^9, 3.831824553356256*^9}, {
   3.8318245914455853`*^9, 3.8318245937920647`*^9}, {3.8318246371044264`*^9, 
   3.831824646011059*^9}, {3.8318248214785433`*^9, 3.831824827683873*^9}, {
   3.8318293498163595`*^9, 3.83182935296608*^9}, 3.831830479341877*^9, {
   3.8318347385426064`*^9, 3.831835175716469*^9}, {3.8318352169295797`*^9, 
   3.831835408242089*^9}, {3.8318354867316303`*^9, 3.831835521184596*^9}, {
   3.831835706979562*^9, 3.8318357601541862`*^9}, {3.831836002402542*^9, 
   3.831836054181121*^9}, 3.832948966605893*^9, {3.8329490066212797`*^9, 
   3.832949165343768*^9}, {3.8329492191094065`*^9, 3.832949345931453*^9}, {
   3.8329493910452533`*^9, 3.83294939649691*^9}, {3.8329494596448545`*^9, 
   3.8329495059992666`*^9}, {3.832949539592924*^9, 3.832949618672328*^9}, {
   3.832949652028014*^9, 3.8329497369508505`*^9}, {3.832949808347021*^9, 
   3.832949837440094*^9}, {3.832961235539524*^9, 3.832961244699793*^9}, {
   3.8329615539814215`*^9, 3.8329615616362047`*^9}},
 CellLabel->
  "In[478]:=",ExpressionUUID->"501ae048-e286-4fc0-952a-38b79b33c8b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AlgebraDDResultW", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"AlgebraDD", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
       RowBox[{"FieldNameList", "[", 
        RowBox[{"[", "LocalFieldNumber", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", 
    RowBox[{
     RowBox[{"AlgebraDDRHSW", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.767629799199746*^9, 3.767629857128501*^9}, {
   3.767629906999454*^9, 3.767629916246167*^9}, {3.7676307129266768`*^9, 
   3.7676307247800837`*^9}, {3.831224317193177*^9, 3.831224331744952*^9}, 
   3.8318244349776287`*^9, {3.8318245596818433`*^9, 3.831824559853651*^9}, {
   3.83182460360363*^9, 3.831824604484027*^9}, {3.831824650753095*^9, 
   3.8318246664313297`*^9}, 3.831835427314929*^9, {3.831837406395708*^9, 
   3.8318374068642874`*^9}, 3.8329497831714077`*^9, 3.8329586005652723`*^9, {
   3.8329612499850945`*^9, 3.832961258616969*^9}, {3.8329613628178654`*^9, 
   3.832961367488902*^9}},
 CellLabel->
  "In[479]:=",ExpressionUUID->"4ffe753b-0b49-47de-aac0-827cdd3bd968"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7675399571961737`*^9, {3.7676298442906637`*^9, 3.767629858059655*^9}, {
   3.767629898443534*^9, 3.767629917191698*^9}, 3.7676307368327837`*^9, 
   3.767630802020914*^9, 3.767632479345251*^9, 3.767632660074161*^9, 
   3.767633380629176*^9, 3.76763342239727*^9, 3.7676334995611773`*^9, 
   3.768069032018731*^9, {3.768069954990291*^9, 3.768069971357256*^9}, 
   3.8312253642477713`*^9, {3.8312261096917224`*^9, 3.8312261239871817`*^9}, 
   3.8318058890839567`*^9, 3.8318242373055687`*^9, 3.8318244506539884`*^9, 
   3.831824578869924*^9, 3.8318246194933825`*^9, {3.8318246627230697`*^9, 
   3.831824667746291*^9}, 3.831824835767314*^9, 3.831828160777035*^9, 
   3.831835435398642*^9, 3.8318355330585437`*^9, 3.831835717106969*^9, 
   3.8318357717602043`*^9, 3.83183606388894*^9, 3.831837000246211*^9, {
   3.8318374034065166`*^9, 3.831837427619596*^9}, 3.8318398044711704`*^9, 
   3.8329475172572937`*^9, 3.832949798211484*^9, 3.832949843855173*^9, 
   3.8329586178151646`*^9, {3.832961377745216*^9, 3.8329613883020906`*^9}, {
   3.832961568801465*^9, 3.8329615795032845`*^9}, 3.8329618642677917`*^9, 
   3.845826966814398*^9, 3.845852556230975*^9, 3.84585716369372*^9, 
   3.845919717137402*^9, 3.846006665539996*^9, 3.8460999915523214`*^9, 
   3.8474705537699704`*^9, 3.8517007423566895`*^9, 3.853975551501021*^9, 
   3.854977526777426*^9, 3.854989362266774*^9, 3.8550000020436172`*^9, 
   3.855165361859939*^9, 3.8551824227599325`*^9, 3.855185962611622*^9, 
   3.855330747378421*^9, 3.855339947315914*^9, 3.855343287857938*^9, 
   3.8553441244164257`*^9, 3.855352855507852*^9, 3.855449707552637*^9, 
   3.855507705380991*^9, 3.855508508255973*^9, 3.8555130031628428`*^9, 
   3.85553342497257*^9, 3.8555790240934343`*^9, 3.8555933951653767`*^9, 
   3.8557507062605963`*^9},
 CellLabel->
  "Out[479]=",ExpressionUUID->"9edfc510-470e-4369-af20-50829ff77926"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalFieldNumber", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", 
   "\[Kappa]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7676299221914597`*^9, 3.767629931944808*^9}, 
   3.767630732569968*^9, {3.83122423268213*^9, 3.831224238765335*^9}, {
   3.8329497659203863`*^9, 3.8329497726326275`*^9}},
 CellLabel->
  "In[480]:=",ExpressionUUID->"bf4cf493-2d20-445b-974d-843814b7e4ed"]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Holoraumy Final Check, true if all Holoraumy are correct", "Chapter",
 CellChangeTimes->{{3.831828204496888*^9, 3.8318282148796787`*^9}, {
  3.831839692909479*^9, 3.8318397079084573`*^9}, {3.8329616791740875`*^9, 
  3.832961679533437*^9}},ExpressionUUID->"beaf4f40-fa55-4769-a334-\
77574a3977a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResult", "[", 
      RowBox[{"1", ",", "1"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "==", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResult", "[", 
      RowBox[{"2", ",", "2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "==", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResult", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "==", 
  RowBox[{"Table", "[", 
   RowBox[{"True", ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.746844857362361*^9, 3.7468448795383835`*^9}, 
   3.7474860644092245`*^9, 3.7493830656655216`*^9, {3.7493833451039195`*^9, 
   3.7493833528869457`*^9}, {3.751407437687273*^9, 3.751407439737672*^9}, 
   3.767539374926538*^9, {3.831820950415612*^9, 3.8318209529669285`*^9}, {
   3.831828227744467*^9, 3.831828251556419*^9}, {3.8329615884534874`*^9, 
   3.832961660130664*^9}},
 CellLabel->
  "In[481]:=",ExpressionUUID->"7beb6595-7502-4f8a-a5f6-90bf442d3d3c"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.831839467197452*^9, 3.8318398196750517`*^9, 
  3.8329475330488176`*^9, 3.832961864283409*^9, 3.8458269668768497`*^9, 
  3.8458525562589903`*^9, 3.8458571637329617`*^9, 3.8459197172311363`*^9, 
  3.8459247712971654`*^9, 3.846006665583879*^9, 3.8460999916148334`*^9, 
  3.847470553816829*^9, 3.851700742403587*^9, 3.853975551588756*^9, 
  3.85497752683991*^9, 3.85498936230229*^9, 3.8550000020905*^9, 
  3.8551653619068036`*^9, 3.8551824228068285`*^9, 3.855185962647934*^9, 
  3.8553307474409437`*^9, 3.85533994736275*^9, 3.8553432880141525`*^9, 
  3.8553441244789314`*^9, 3.8553528558625*^9, 3.85544970760373*^9, 
  3.8555077054127197`*^9, 3.85550850828299*^9, 3.855513003245934*^9, 
  3.855533425062317*^9, 3.855579024124685*^9, 3.8555933951823397`*^9, 
  3.8557507062940245`*^9},
 CellLabel->
  "Out[481]=",ExpressionUUID->"0e19c9b0-0f59-41d3-8f16-170eaeb74a08"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Appendix F final Check. True if correct", "Chapter",
 CellChangeTimes->{{3.832961668150817*^9, 
  3.8329616765215693`*^9}},ExpressionUUID->"c751c6fa-e18a-48fb-bc7f-\
a72242cc200d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResultX", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "14"}], "}"}]}], "}"}]}], "]"}], "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDDResultY", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "14"}], "}"}]}], "}"}]}], "]"}], "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"AlgebraDDResultW", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "14"}], "}"}]}], "}"}]}], "]"}], "==", 
  RowBox[{"{", 
   RowBox[{"True", ",", "True"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8329616848779764`*^9, 3.832961707050956*^9}},
 CellLabel->
  "In[482]:=",ExpressionUUID->"1bd7402a-ad03-4cdb-a7a7-6211cd7c10bf"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8329617156943617`*^9, 3.8329618643146577`*^9, 
  3.8458269669393606`*^9, 3.845852556267947*^9, 3.8458571637424173`*^9, 
  3.8459197172936153`*^9, 3.8459247714221325`*^9, 3.846006665621825*^9, 
  3.8460999916687117`*^9, 3.8474705538636675`*^9, 3.851700742450444*^9, 
  3.853975551598723*^9, 3.8549775269023676`*^9, 3.8549893623106318`*^9, 
  3.85500000212175*^9, 3.855165361953704*^9, 3.85518242285366*^9, 
  3.855185962656088*^9, 3.8553307474878163`*^9, 3.8553399474096107`*^9, 
  3.8553432880922527`*^9, 3.855344124532585*^9, 3.855352855917968*^9, 
  3.855449707613865*^9, 3.855507705422415*^9, 3.855508508294104*^9, 
  3.855513003325543*^9, 3.855533425074759*^9, 3.8555790241559305`*^9, 
  3.8555933952094755`*^9, 3.8557507063408885`*^9},
 CellLabel->
  "Out[482]=",ExpressionUUID->"9c671026-9cf1-46fb-b722-f5cdb068ed96"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Adinkra reduction to 1D and gadget comparison with the VC multiplet in \
1402.5765\
\>", "Chapter",
 CellChangeTimes->{{3.845825268647996*^9, 3.84582527816628*^9}, {
   3.845826734721369*^9, 3.845826781525989*^9}, {3.845827300156087*^9, 
   3.8458273058730874`*^9}, {3.8553578595913982`*^9, 3.855357876353544*^9}, 
   3.85535794585135*^9},ExpressionUUID->"a9d74e96-986c-455a-a8c0-\
0bde13f3fc9c"],

Cell[CellGroupData[{

Cell["Adinkra Reduction and Psi replacement commands", "Section",
 CellChangeTimes->{{3.845852762479789*^9, 
  3.845852779826949*^9}},ExpressionUUID->"ab97a835-aa36-4803-8e4b-\
376ec65f1209"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReduceJustFermions", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "->", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii0", "]"}], "[", "aa0", "]"}], "[", 
      "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}],
      "->", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii0", "]"}], "[", "aa0", "]"}], "[", 
        "t", "]"}], ",", "t"}], "]"}]}], " ", ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}],
      "->", "0"}], " ", ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], "]"}],
      "->", "0"}], ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}],
      "->", "0"}], "  ", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
      
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "->", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii0", "]"}], "[", "aa0", "]"}], "[", 
      "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
        "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}],
      "->", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii0", "]"}], "[", "aa0", "]"}], "[", 
        "t", "]"}], ",", "t"}], "]"}]}], " ", ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
        "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}],
      "->", "0"}], " ", ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
        "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], "]"}],
      "->", "0"}], ",", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
        "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}],
      "->", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8458253464680243`*^9, 3.845825405476157*^9}, {
  3.8458255152451553`*^9, 3.8458255171348066`*^9}, {3.8458256280738688`*^9, 
  3.8458256318563757`*^9}, {3.8458259510508223`*^9, 3.8458260451148725`*^9}, {
  3.84582706197348*^9, 3.8458270671952257`*^9}, {3.84582713587912*^9, 
  3.845827175441698*^9}, {3.845858078796183*^9, 3.8458581305769253`*^9}, {
  3.845858250331334*^9, 3.845858303281723*^9}, {3.8458583377249107`*^9, 
  3.845858339565881*^9}, {3.8551835830458765`*^9, 3.8551835849053726`*^9}},
 CellLabel->
  "In[483]:=",ExpressionUUID->"2fea7540-2a96-42a3-bb4d-6d7506456c6b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "ii0", "]"}], "[", "aa0", "]"}], "[", "t",
      "]"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii0", "]"}], "[", "aa0", "]"}], 
      "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "ii0", "]"}], "[", "aa0", "]"}], "[", 
     "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii0", "]"}], "[", "aa0", "]"}], 
      "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[CapitalPsi]t", "[", "ii0_", "]"}], "[", "aa0_", "]"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBeJXfw/khyx/45h650ItiI6JDu4D0ZuOLJ8Joo8fXL4H
RNes3X8ARLcUSViEAuklTAq+IHpGaefGRCDNJlT5MRmkf8Os7BQgXcXbXgSi
3+kxN4DoNXrbO0F0OfO2fhBdN+FMUxWQFphy7hKIvmVwybgJSC9WyGwA0SLr
zL+3AOlfqaYf1wBp+7TvTbeAtN9i293lq4DimRccOjcB7Xn/9f/9bW8cGUsm
OJzc8cbRrPw+23kgzfPU1eIKkBZ55vBNZecbR6mLd7x0gXSN78q7INokLYxV
H0h/ki7cXgqkF0vnm1YB6UXFrNergbSV5WT7GiB95QtbcwOQXuZYenY9kJ53
WU/+DJDeUNLVDKL7g3O2ngPSb5pV190A0g61bJ/eAWm2U+nfvgLpigyfY067
3jgCAImKxts=
  "],
 CellLabel->
  "Out[483]=",ExpressionUUID->"f79e1683-943d-4300-a23c-fef9593cfba3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PsiTo16", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "aa0_", "]"}], "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{"I", " ", 
        RowBox[{
         RowBox[{"\[CapitalPsi]16", "[", 
          RowBox[{"8", "+", "aa0"}], "]"}], "[", "t", "]"}]}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "aa0_", "]"}], "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{"I", " ", 
        RowBox[{
         RowBox[{"\[CapitalPsi]16", "[", 
          RowBox[{"12", "+", "aa0"}], "]"}], "[", "t", "]"}]}]}], "]"}]}], 
    ",", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "aa0_", "]"}], "->", 
     " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{"I", " ", 
        RowBox[{
         RowBox[{"\[CapitalPsi]16", "[", "aa0", "]"}], "[", "t", "]"}]}]}], 
      "]"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "aa0_", "]"}], "->", 
     " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{"I", " ", 
        RowBox[{
         RowBox[{"\[CapitalPsi]16", "[", 
          RowBox[{"4", "+", "aa0"}], "]"}], "[", "t", "]"}]}]}], "]"}]}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.8458264498292637`*^9, 3.845826594550092*^9}, {
  3.845827183731083*^9, 3.845827199877449*^9}, {3.845858150316331*^9, 
  3.845858176206521*^9}, {3.8549892774583273`*^9, 3.854989300960842*^9}, {
  3.854989421976832*^9, 3.8549894336498528`*^9}, {3.8549894977389393`*^9, 
  3.854989513719215*^9}, {3.8551823355211687`*^9, 3.855182338900635*^9}, {
  3.855593001585699*^9, 3.855593009330295*^9}},
 CellLabel->
  "In[484]:=",ExpressionUUID->"c57529d5-3504-4ceb-9623-9c6f474a2d17"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "aa0_", "]"}], "\[Rule]", 
    
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "t", "}"}], ",", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{
        RowBox[{"\[CapitalPsi]16", "[", 
         RowBox[{"8", "+", "aa0"}], "]"}], "[", "t", "]"}]}]}], "]"}]}], ",", 
   
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "aa0_", "]"}], "\[Rule]", 
    
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "t", "}"}], ",", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{
        RowBox[{"\[CapitalPsi]16", "[", 
         RowBox[{"12", "+", "aa0"}], "]"}], "[", "t", "]"}]}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "aa0_", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "t", "}"}], ",", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{
        RowBox[{"\[CapitalPsi]16", "[", "aa0", "]"}], "[", "t", "]"}]}]}], 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "aa0_", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "t", "}"}], ",", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{
        RowBox[{"\[CapitalPsi]16", "[", 
         RowBox[{"4", "+", "aa0"}], "]"}], "[", "t", "]"}]}]}], "]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.845826509718667*^9, 3.845826552436998*^9, 3.8458265951524935`*^9, 
   3.8458270111026983`*^9, 3.845827201176648*^9, 3.845852556305292*^9, 
   3.845857163794108*^9, {3.8458581774403753`*^9, 3.845858196293275*^9}, 
   3.845858306529752*^9, 3.845858384758953*^9, 3.845858429766259*^9, 
   3.8459033824017773`*^9, 3.845904022465126*^9, 3.845919134630948*^9, 
   3.84591974745949*^9, 3.8459247938649387`*^9, 3.846006665709598*^9, 
   3.846099991778129*^9, 3.8474705539886613`*^9, 3.851700742575429*^9, 
   3.85397555169575*^9, 3.854989554379043*^9, 3.8550000022310734`*^9, 
   3.8551653620665617`*^9, 3.8551836021605153`*^9, 3.855185962709571*^9, 
   3.8553307476032333`*^9, 3.8553399475345817`*^9, 3.8553432882484665`*^9, 
   3.8553441246558037`*^9, 3.8553528565146103`*^9, 3.855449707674789*^9, 
   3.855507705474609*^9, 3.855508508336277*^9, 3.855513003425146*^9, 
   3.855533425181178*^9, 3.855579024234001*^9, 3.8555930134172497`*^9, 
   3.8555933952623343`*^9, 3.855750706418995*^9},
 CellLabel->
  "Out[484]=",ExpressionUUID->"072346af-3025-4d57-b40b-e46a41fa5627"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReduce", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"At", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"At", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"Bt", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"Bt", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"Ft", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"IntFt", "'"}], "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"Gt", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"IntGt", "'"}], "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"\[CurlyPhi]", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"\[CurlyPhi]", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"Bmn", "[", 
      RowBox[{"mu_", ",", "nu_"}], "]"}], "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"1", "/", "2"}], 
        RowBox[{
         RowBox[{"TwoBmn", "[", 
          RowBox[{"mu", ",", "nu"}], "]"}], "[", "t", "]"}]}]}], "]"}]}], ",", 
    RowBox[{"A", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"A", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"B", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"B", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"F", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"IntF", "'"}], "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"G", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"IntG", "'"}], "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"Am", "[", "nu_", "]"}], "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"Am", "[", "nu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"d", "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"Intd", "'"}], "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "aa_", "]"}], "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
        "t", "]"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "aa_", "]"}], "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
        "t", "]"}]}], "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.855183607239676*^9, 3.8551838853197856`*^9}, {
  3.8551839307317157`*^9, 3.8551839362164936`*^9}, {3.855186185898035*^9, 
  3.8551862417980013`*^9}, {3.855186278029387*^9, 3.855186309375291*^9}, {
  3.855186348233781*^9, 3.855186397424502*^9}, {3.855187179600987*^9, 
  3.855187210802636*^9}, {3.855187723953828*^9, 3.8551877287725353`*^9}},
 CellLabel->
  "In[485]:=",ExpressionUUID->"29285b02-ed10-4b6b-b14f-d99098ba632b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"At", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"At", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"Bt", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"Bt", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"Ft", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       SuperscriptBox["IntFt", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"Gt", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       SuperscriptBox["IntGt", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"\[CurlyPhi]", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"\[CurlyPhi]", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Bmn", "[", 
     RowBox[{"mu_", ",", "nu_"}], "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"TwoBmn", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", "t", "]"}]}]}], "]"}]}], ",", 
   
   RowBox[{"A", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"A", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"B", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"B", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"F", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       SuperscriptBox["IntF", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"G", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       SuperscriptBox["IntG", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "nu_", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       RowBox[{"Am", "[", "nu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"d", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       SuperscriptBox["Intd", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "aa_", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", "t",
        "]"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "aa_", "]"}], 
    "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "aa", "]"}], "[", 
       "t", "]"}]}], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.855183940298415*^9, 3.855185962751919*^9, 3.8551862426075487`*^9, {
   3.855186412195095*^9, 3.855186436247387*^9}, 3.855187213799088*^9, 
   3.855187736291503*^9, 3.855330747650129*^9, 3.855339947597067*^9, 
   3.8553432883421946`*^9, 3.855344124720496*^9, 3.8553528566161337`*^9, 
   3.8554497077251368`*^9, 3.8555077055118427`*^9, 3.855508508370759*^9, 
   3.85551300347091*^9, 3.855533425282941*^9, 3.855579024280896*^9, 
   3.8555933952922583`*^9, 3.8557507064658585`*^9},
 CellLabel->
  "Out[485]=",ExpressionUUID->"1c90578a-bc0a-4f7f-9d6d-3aa29aa3f3e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TemporalGauge", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"TwoBmn", "[", 
      RowBox[{"0", ",", "nu_"}], "]"}], "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"TwoBmn", "[", 
      RowBox[{"mu_", ",", "0"}], "]"}], "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"Am", "[", "0", "]"}], "->", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.855183999774865*^9, 3.8551840800863523`*^9}, {
  3.85518774820961*^9, 3.855187754689638*^9}},
 CellLabel->
  "In[486]:=",ExpressionUUID->"70549970-a045-4fbb-ac51-864231dff7cd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"TwoBmn", "[", 
     RowBox[{"0", ",", "nu_"}], "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"TwoBmn", "[", 
     RowBox[{"mu_", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Am", "[", "0", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.85518408313136*^9, 3.8551859627605352`*^9, 
  3.855187758196459*^9, 3.855330747712615*^9, 3.8553399476439366`*^9, 
  3.8553432884046535`*^9, 3.8553441247676044`*^9, 3.855352856860311*^9, 
  3.855449707733819*^9, 3.8555077055205193`*^9, 3.855508508379911*^9, 
  3.855513003480649*^9, 3.855533425294148*^9, 3.8555790243121333`*^9, 
  3.855593395308218*^9, 3.855750706512723*^9},
 CellLabel->
  "Out[486]=",ExpressionUUID->"0c3c28de-56cb-4b44-a2d6-ecbef3f4267a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Dimensionally reduced transformation laws to create L and R matrices, then \
generate holoraumy\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnT9o48q+x8V7zStfqdaQ4ga22HQ2nCaCLWI4xfoRHseQwlc37xLE3sde
v+WxmG2C2SKILYI5RTApDtjFgrdYUIoFuTmgFAtKseAtAnKxhXmkUOFCRYp9
mj+KJVuyxrZGGie/D3svZ7NJPBrN/OY7v/n9flP663/X/utfJElq/pv/f7XG
/+7/85+Nt//x7/5fDv/RPPn7P47/dvCP/zn++/E/y3/9V/+L/+n/7//870f/
/RMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADYcjzX
db2iGwEAIfwx6d0X3QgASAKMJhDFgwGRL05fLUmV9lfodUAcPOu0IpVb5l3R
DQGARcY9dUeqvLfBaAIBTu9Ilo+6o2nRDXkaOP267OuWP92iGwIAcyBTAOoF
EI5xDxnNUwuMJhBharXLEqiXHPCu2xVJqv3hFN0QAIgDmwKp3LbAFACCQMbk
YQ+MJhADlrXyEQwPnkAnA+JDR+lgUnRDAIB6AuV6b1x0QwBRIQ4BOEzkhq37
ewdZM8AbD4jN5CMSL/U+SOxc8caW/YP/x9yNzG9bc/Bif6ggo/l5axoMFIFn
v0fipX0N4iV7yBysf4S9bBHcT6y+rh0qu88qyqGmfxrFmMLpqHtU7d7m37iV
mVz39JOa8my38qKmnQ3iHsYbXdSrF2trD6d3KMFWN0/8naPy4I+9R7k0IeYN
cvifV08Kc823ynbo0hsdGc00B6B7a3TfqEp5d3dfUd90zbjvdr+0qm/MHBY2
oRrzhJharedw0s2Bca8mSdJBdxvsxWPD/dZVd0rVk85gaJpXPf1Ykf13sVPT
hxNqPe7d0ZVee1bVvwq/uXNH3UapdKB1Ppnm0OidqfhhSrUzM3iYn+53Qz/c
rX6wN3qYG33PXzVODOF75FEw7tX3Z1bX+2Gbn9pV9GalyquuMZwTp+7I/1c8
hpuXgxH24rqfVDQOymrzTNfRH62Kf1p9R/7a0g5K/t9rfbKU2npZ/C0q1s/S
0t3E/cR4p5Se1dt9wxyag8tmbcf/EVl53bMD57b3w+q+VpRXA4d34r9QjXl6
kClQ+WAX3ZDHhGe+8c2Q3PwiuK14hDh9tXKoz+99Jqb+2y5eGUqVff8/kHmJ
810IxrinlpHiinzxfmKe1enDlBX0MPvNXgYnAu6g4f/KPeEXuEeALyQWjcNk
cITeafs67iemZrPcMmcv2X9Zcj0c/H/bVfwffhkOq3N6L6XWn8HffGkqN02B
t6jelyYymku8E67VPqg2+wu6rt+sIs0gyc+Uyg7dpHBvrlCNeaLY+nMkz3s5
nLo+EW67aAdU1rnLwTur01A6X3l/TAqTYbd5UlcbteqhpvetSaH7C/fWSVrF
vbuRNTTN61FqVSPvdtA8bBqFm5w7J/lh3NG1aQ6t0d2Sh/F367rWUNWjmtJo
dq8SfxkFO16kw17hz/24QbvF5zHGwX6P9GjcEbNnndYikvJuoEY9uu5nDenO
yA7UlzdKyIOBpKnAW1Sne4D20PpN8rdMnVHS0Lz3nBt/Opj2OF14ZzO7N26M
UGbzpyBGzx0NzjS1odZfotM34zbFYhHHy96pBdutLPDMt3LIVcsB1+qetbSj
Wn1/L3GblhOe9b6qXgRbj4nRQpm2W1sn5NbQz5rqy3q1/AjEvDNoVFtXdBC6
37o4jajrLJvkTvcFsgTLlg9gU9AarcRFJU0+1tFu/f28uvCu29V3EeM86dfU
T2Gr7plv0E5/5mPBH9R72Qy7MJC8kdvWxg/AA2/YknnLZoFmt0hmU5xuGfuC
vBVoJ3d0gXMHLpdaLM9sooGvDrZ0xREKf0OUV2f6Fqxg6XLbrf6ih1PUvCu0
+5PfbndMmnVa9CzeGLQWnAzc0FZu9Ds6UqheLgu/ci6rj+D1CQ2KgpPbsZ7S
6zayHHNBqlOr/WtrLhbRG9tO5CvEc67NBSpNvkfNPvnoInc6SZDDSimqx3hR
/OwW0mwW3S1oy699DA+AUedFWuxT4ChYbtYAFogLS8ol3LFw6UIaEDG2P3B8
siTo5o6RomdxBuBHiG7hycq4fGNLzjqlJmgXTuCTnXmNQSFzR26H3plnnVZb
f6a9jJhAl1gsfwTEOnwKhm73Erolawqf3WKazaK7xcLmKaLqiRFbfn5B/XUv
ICNmQyY4SF7Kpy5B4dLl5w9TP9HaX0KjZrxofrePomdxBng3veaJ1r0JrXp/
tmI29fOQMyMJIsw54VwoySsUsd71hzfkfZ0/KoqFnDTtpcexYOt0Ktyugi7l
eWW3FT+7hTSbRXeLZ/eb2knXDrkTrXdSQvRX+OfImZGSX5mLrx3lhbL0T017
1x3cTLbJhlLxvHQAZPfgG0sXu5PSEqV20up+stnfAXE6FeL5nHxupnWs2jzv
md/TDWTRs5jL7LDP9lg8q/YH9G0SlKFIZdk70q2EqEs8tJKkC9n4BLFGnr14
VBQHCXRhOQnCv1+4MGy63VshOHBiNJPneGptooxn92aNIWRkNifG60SLoaYV
9sm2W+zzZNt1xiieyTFoaukt1zjB2iVfd6LnOoMTnOcpqb0fofd277mTkdlv
o0z5naq+JXcXkjj/2PSBOTJ58Gy8Ln5TPmq0Kf3IUoiaMuy1D0uSVKqeMVyF
5hvboi/E8SaWfoAfxl8+wuFGnuuO7cE5qosiP0sxKcVLF0yWs+PHgPVOCuKc
ETWeM0+cj2opdUn138XYaD7HfXbUtScpJePQ0Eq2D8RDjn22nv2e4agIYbdl
xtMWIaWLa2CjuUZwuD8L7A6WPVK5ZYwXK/nFw2d2r9kY/KMZm03UlN/xHlqq
tK4cxqZw6Zap63xu4r2QXL9Ak4P9R9lLfDt/1NKPwjlAvYVJx+v3zuAVqrBY
uxjl2651sE7xQvOOyepv/uCZHRhRZ1HiMYHzSUNNedkdLTPLnnVakcqaMd64
PZtB7H/i6adr67/6r6nU+pJo6wWRLj8zmx34svhfdZvFNk4G9ZwdsIIy6pSx
yU03ntRvwLLvwxnQibKQvO69DzbjURGCBLow2W3cTtH8addYeUmt9aQyneyr
PBS/2b1GY3iZTRLYtkrQGq9uoYvLivYEXawmVz+w3VL0lQyhvCP0UowzAl/I
tQVRxDROgPGe6M0fPDfpgprSr6OmJNYH9qz3SslfHAVwj6VIl5/B1bSS3BrG
P+/WSBdE6uxwBo1SZYV6nmQXn3bE/BS4G9kMx4srSRccl5L8NonL61DT9lnL
xzEHuvwkHni278wPHPzDEmMcz5ZLF25mc6uly3ig7lS0T8wjgu62EhL3uMFg
nB8eX+wbZ2i8EKuW2PzB85QuD/Y5bolEF+gor4zgHzznushStenSBdfK2MPi
Jbbzt0q6LB8k6P6a0ObFHX1NDY+hZV0XC4w8eSbmmVpBXaNEaw7HSxfno4qK
HsvV5uXs1gZc9y/ZjJNwzRUKccdWdEkAH80IFoBN258WPIxiOPFFCSX1Y6ST
Y9WCd63jkrYV9WxWkz/6I5vM7qwak4HZRNH4v+KmNAaRpsRKl6ml4+shKg29
dzP/UZt2yw9Tb+DJsR89+YqXLs7gGE+OX5vdL1GLdGe29qv6Q36Bv334kTpi
i9ltMRnnhxEumrczDPHc+m9/zPTtmz94vtIFVeqObbDzh1p9H4qE8SVcoalq
LNLlwUUWu1PeMumSOEhc67QaCc/zhyjDDKIdKFpQhBgEbyR86BMnXTwTJ23K
2nytEss3s8kZiFZreTH8gNFHdFdRs1Ep4daUDrTWma7/sdTBjo5mRCvetYKn
mm43ohMzTi2QwrxS0nFDJrN788ZkZjY9q41DrSJBWXHShVRtkg7iD46z6BY6
ESJCNE660IxmWZsfjeh6hUggonOhMIjtuM/lD5txDiJgN+zbu5E5NNf5c720
ph+BOHuZqxNs/uDkN2SwjWKTLkFAXWSOoIOkv9SCO+Dwn5NqsQqTTboEqTRx
gQf4NwgR7LHBIMFn6PtqO/RqWkd7TIca5EO3PMOdF9QxUul8f/hSnHSh5++a
sbBMoFSvxiDBSPhbb8vhEuWOinfJr5gTkLmayhkWNZpM1SSCb76afUKMWgiC
tUIvKPpbspndGzUmW7NJkoilV8bsx2OkC/WmKr/Hx8Vl0i00YvaXzuwz4qQL
ufMi0uCf9BxfOW7P+uSsVX/O1CTa82l3jmcLo3EOfBobVVx0r3U1LR04IUd4
kB6rF7MdY/n+NR7cMfzX+k4j93xJO1UNXRdrrO/oYJQuwRZJOqaG172iqUlz
FFv2ilG6BE6k3VlqA7phQdff0MsN5Wd1ZFsuGVKruLH2IBmdV+LeDJPQDXom
pxJhouGNjc4brX6kdWJTtwIBH+rJGOlCxWTsieSdocm5n32jsm9LbwiKwtVU
zggsD5vrmGTLRvo5Ri2Qq7gWz08znt3rNyZzs0l3YWGLFyNdaIPnT/wz7ZZg
DxX63BjpQtOZo8ngJCo+xmKx6DkaMcWQ25shrMY5GOQCllQi0PHDHG8m0IOz
SpfALyd2sVxG6RLMbp63TW1MMYOE9owQR2Y549101HcGugsPOVH3Ot8Wv8Vq
M0gX+uISBqG/6S7lukP0rHd7lfds+Rp5Qld2xkP2mH6OUQurR6iuhUCNiRls
MZ+7OG45sPi5MdJlhbB2Rlb1G2T6oWkvNwiCFTbcZdUIAYEenFW6BDEVYheK
Z5UugadCxNLoAcUMEnrY8QTvYbT1QxpkSFxPcWMjA+mCj/MUlpoVmeBdtxWW
kj75s5pIFkgtCNUYkC4kzy5nRzGrcQ56/slJlxwenFW6BM/4OKRL8NSPQbpk
O0hWc+M/Hrxhq07jRcm1bnvRTCLCouGNMcXkNH9pfVTXPtfaTEXnNuO2p73Z
4DSZKyv692jhrNAgX1QLdBVLLOOQGQI15nqhsMmihKBRN5xPKheFSox0IQlB
ibUp1qEIRzGrcaY9/zAwPHeeYlfT4DAlc+ky/+AcYD4wIoFej0S6UN/Co5Au
2Q6Spypd7A9BdgPxYj2Pr8NPj4aPH0JtF6WL03uJvpLPVcjbSzC8WVccGkrx
l1lIw6JaIDGrCmM1sw0QqDE0/ioUtrcoXUgWyQudc1NoRM1s5C9KFxronmmy
m8jSJTCnNMrIm9hDo/cWp9dL1WbfMIfpSfHuVWuNwDP057CbVsw3kC7Ml4it
+eA8WDXWhc8mwj6vrf5qmsaCUlwx1iVT8R/AcKFSzLVEnYWSSsUMkqcqXR4g
d8pUz0fxvU7758E7vSBdyAXcsmaIlYm8AjxN5YxgeDP7+Wki8CwGaV4t0Jz0
aucb/82VQI3xrFMkp/fOg76fly7Ei5g8pLNj/jLNBelCcrTlbG/bFFm60NRj
RQ9fhku6hb0So+tY62X83aS6UoJlnTn6bqMHzxZW6ULzAXltIib2GpmYi+Of
UbrQPD5OlS7WGWn2ZKHgbTGD5KlLF3fQSFlxnMuaPMsznZMunvlGZrtBQGA4
msoZwfCus4cse8MWKmUT5NXOqQXnAi2LlVO2OxQ2RqDGTM3WjjRLxp+TLkRL
53S7nNN9Kc/yweeky9Rs4snBWP2MFYGlC3XSHnQiqpF0ixC1s4IQ1qwPjOIf
PFsYpUuQ6Bcx6VPXnYx8K2eNRTlDYpMuQYJetuI/azIdJOiM1bkx0/2TT1y6
EDt/uHxD5NkfqrIka6iAZ1i6uPjrJfUyrZOnzkgAs1UsQRr+aiuO8xldqVb9
gMrnh9UCvmpNVkiCWF6s2RgeZnNsaGVccc6NSpfxwP+6vN9adFDzYorviZM1
pEjD0oXcH7ejdr+xGV1ssWxfD6d+v7DShbrmFkpTCiRd+ITpJj14tjBJF+qT
lE/C1bS8yVdz8A5l6rAVlcoDJukSFM/n6MvKgiwHyd3IvOqof2GoNfe0pQup
ERGkzHvOt8SrE9xbo3NS3X1WVfD5vnRQq5cr1ZOOcZs2F1yrvY/uxe1+F3r4
cWftFWdi9U7rfs9XSTGQ59X6QaXSaPeui1gKVm4MN7N5P7H67fqz3eoBKeu0
V/2tWimr7b6Vp5zDuM5VRzvY3T1QSOnP6mG9Uq5q50aMozzpV3w3jd/VXZZL
SUSVLtTz9tacf+jHLl0SHzxbWKQLdTm2zIXjFWzqhag9S2CQLoFL/4L7ye+G
ZDxISPRpaigvDWAW6J3mCIkzDI4R7wZaul+OBuUq52xRHuiWFqX1xfX87fC+
6OKZLxuvOA+FZEXYOK3UGL5mc8XS7hyhQblKXImkdIhfLjX1NUiOzjV/JNU4
Y8+bJB91R4vndKtKl/vFvCRG0nuEFvRjLp++0YMz4dnnqvKipsckeEZJlS7Y
5ZiwScTe8uVPPbU7DUU51HM5aU2VLsSlv7YgZO7VLMh4kGBNkn5JmQAl6ZzP
zdoLRfuYe7gIORUNsoecy3orPX95tToVzpeuMQ7+Mh0NLk0Rdl7z8DSVM2ht
pfXv/F3j5ugUxkbzUFFWqgm8TmM4m82M68lsYPTWuDk6BC4ykB4KVUhJOnSj
R0Ine2Ozc6zIUql2ZsTf67GidJl8UmMrMKezk15heNXe2+jBWXhImE1tEg1i
iZMuU8f0B63flEPdiD2WZdjIB5I4n0rIJMYyVrp47s2gfViSZKV5ue498+y9
mgXZDhLGjV5QzbtVXM1kehVsAfIJL6ZUhEzNVoMhBeB+1CEXZLw1uTcvL7ia
yhmbHk26xiv88y8zy3mk1+usU2R7lcZwNpsPl5p1x6v+aGxTNjB63zqk8mdr
uMYH46tnGG6lXLWU/UZ87aBMumeh+bFTCSXZVfwFZne/pp31zCUHxyIdGLHu
VTN5cIz73TL63d4VykzxYjY7k0GjJEml0k5SGSK743/i/m6oKaVKKM+xsiPJ
z5Taid4bJp9P4mpI9f7IuTZ6/UF8fsGPgbrjP2apxLM0E8lHruzMHsZv/Kxj
0WP6T6c2Lwd22nDx7kbWVa/bN/zHWejW1F7NguwGyc/gWeyJg8ryMHgFqQjP
90KQKJ595qsyubQjr2XxNsE131Sk44551W3+FnM8OoO8oxf07uboDNKtvEML
thRaSnE1nTAxmngi7EbUlT8j/C+qaakr3uTGHFx2Bzg5cdFsel91NPJ2SjKj
EF2vMVzM5sR4rczbjcAMqmn5btkaPfsct6QcnRzEiJ2lyJ/ZujZGkik90OXB
3yV2zkUEoaQLPdTLpXz6dNRtlCqveiP3p/tVr/kTLXnnYp1yXGTJMZm83+zd
uJ5rtcuycpaUOm21+Ze43JTpqPda2T3UzR8eOVpKuvmFa69mhDe6VEtlrffN
RbH9L2U5baNHKOQa1lgm/TqPqjupkMMSj4/88H/55LtlDs3R1lZ9yQ4aJrT3
IReZjKKMStX3pr/Xm3zUdndKiTvNH736skrImyKW2RTH6M2ta9hiMdxcQE9s
WUSOKAglXYKyJ3wviUA4vSNZKj9sij3sqEw6EPTMt3HX12YDObGdJenjYikJ
1sAzWzytQQZMUd6H/HDbCzlHi1/BufZqNjj9uhy6LNi7Qj7k9ECXoGZyTqvJ
UpwLTXh9uCruaGjoyNI+zSjoeWhoaw7Xu/izuxwuhjDq/JLshLztavxKgApl
NgUyeiuta2Ho+bI4Wa7piCVdctpBEH9+SCAtPRD0R34knTlTFk5syW4i1v/j
DVt8U7w3xbPfV6JOM3+VseKPyrj2aiaQqTH/aliWS3HsgNM94V23vBAYQjSf
DLQyJPfTSVLbITT+l0abOJcax8wvgcymQEZvtXUt8pMkFGerrosl9pnl6XKB
BgvxPXHDLzSc9TZZdiA46WvNL9yacz2XsULqvMWuj5PeSXNZ5EDhkHtA2Ewo
317NAmIMQ/Jjwhjo8pDMWLhPwLtuaxfOI1QujCnqTwSaI8A5jZdeShWa3Uuy
7TyrfdLlOPLEMZsCGb3V1rUINBNc6Jv1ZrhW96ylHZAooFL1pKWfCXA7KulD
mWfuCVGYoVDqZZnv4576irdOXtjIxE0Ep6+K7XIJipm8Y3h1nHs1C8ihT20W
Jci8XNICp0XG6GKmVruh27lk0+fN/Mr1xLGo0eRa/3Bhdic7IT3rVOVabEcg
symO0VtpXYtCy5JsUYyugJBByHXHSl5xKF0OZ/Ohc1Jv2KpFz2dHV4P0Oyk3
aUs/ckTrDzZUIXTRJt+PjE9cG5IFePe3u3DY597Ob79492oWEOkSktAPe0zP
bC1N3rRO8YX0eaSxL2MyHAhZ7iQDooum61wPugxZb48XeoUK3wvc8fgP5TFR
J6SFbwOMZLFNzMGQ78sQyGyKY/Ti1zUU6LK4rs39JInRXT2ZHQhDb8bheMvz
T6d7MNs+e9+7dZksUp75ds2KheuDRv7DvVooCq7yKr+LMrIGd2xwkxrGG13U
lbyucssWfD1r4EGdjrpHMjlM9+3A0qKvpJYsl9u0AQwNdEE2+s5qHzd7X+3B
a4XTbexbAS1CwrUH8CXOD+rI/dKq0CBJp/sy95KzAplNcYzeuusaOfOSxM/3
FB3qb+caOTweqDuVVt8cnGvqm4E9bFekmn7ZqhUw3jz7vLZ71DGuus2DSvqV
c4JzZ7YPdqvvB+bQHFw21d+0Duf9F0+cQaNUedszP3W0RnNwY/oWsvah2zpc
enssCTzgeuL5xHk4uRsbzWN8Iob3myUxStkXA3VW8y0/6F23lZ1658ronarq
uWX/UZefN7vnamrBEx5tEchsimP01lrXqO4VJVVnm8HyPgcRiEpPTMN/KW6b
7K1a/ltovNXLmYvLNPwkXmqtElK8d+8Mcl+4gQNdKg1NPVn7go/Hh7+zljk7
q+kHRab2FMwmRRyjt+K6Rmunq4IHUm4J1P4LUBYDAFaBnBaB65UjONCFllpt
Xpq53+crKsTdV3hwOLBd3A1UfL69HblF4kP683l7K4MkgKeK+1lD12kLXjZw
uwlVdHHN1nNJFqBksRiQ7fNeO5dbTYHHgf2hkouz7glBuhRinoHtAYfJgcuF
K5EU9ZCMudErW1TDnBN+J0DQAsDO1GzK4HLJGtKr4HgBtgTickm6uwTIhutw
ii6WLnilts+q21QIlBee+UYGxwvACPYPxCWVA5tB1wKIeAHEZ2q1nvtKu7Us
+QjYGFzQY+bXmnxSS8+bvX4huYFCcmcgo1mGiBcgjTG9AwjOijgwGaBiGuCB
BwTHs079/UsFdrvcuffmMyaKzQ0Uj8lHVM+jyrU8HbD14IsaQ/dXAhmDyw3B
JgIQGe+6jYQLbPwBIaBCGk7QgCScfh0JlwIK8jwlxj2/l2FdAAQFj8/ZlfcA
UDx4T11eWjsReKrAVis3vBu9Ksv1ixF0NSAW2CuIdAtUFwGEYmrrv8ryEVTt
A6IErgCoQJcP+EYGuXkF4gUQB9c4lksN0C2AkOCLt+TXBhhNgHJv6/uy8h50
CwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ALAm/w/yUyd7
     "], {{0, 87.}, {745., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{745., 87.},
   PlotRange->{{0, 745.}, {0, 87.}}]], "Input",ExpressionUUID->
  "99977380-5efc-44b0-91bf-05f05f42d703"],
 "\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnT1oG13b58XuFltuOa3AxWNIEcMWFjyNB1JYkCJaXNwCs+idzb4YkWfJ
O2sWM6QxQwojUhhxF2ZwEZCLgFwE5CIwbgLjwjAuAkoRGBcpVLiYwsUULrLz
cUZf86GZOWdmZOn/w8/DfftOpKNL51xzfZ/qv/2fxv/+T5VKRfyv9v81Wv9v
5z/+o3X0P/6b/S97/xIP/v1fb//X7r/+79t/f/sf2//2n+1f/k/7fzv/pVJx
/vkPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
5I9lmtZT2YsAAAAAAABg5XAs7bLXsHJY2kee45q9+7IXAgAAAAAAwIphGco+
x73u6I9lr2R1IP6L8hOuIQAAAAAAADnwqMk7HLcja/BiGGBpx7VKpSbfwH+J
xPgq1l/wzVaDb8mD+7JX80yw7rrNF5uNlsDvtZVbs+zlAABWhUe9+9fm5p4g
vGq0z3Uol0RAaGCFeN4Ghu3FbFfgxdBjXDS5Cte8MMpeyPJifm3bIhK/WfYj
oPe+scm1Bw9lr2n5uevYjnH9zN5Xhnoi1Cq1zl3ZSwIArAJ6Z7tS2VUc5fKt
I2xXap/0spe0/EBoYIVYAQPjvucY3/s9GN+ZsW5kextwhyoSMJE8qiJXqbzs
2Ope/2j/k0Pzy6jsZS05hrJry0noP/wZfWl6QuM+4okJAKDFOKs7yuXS/DPq
+8pFhnKJB0IDK8SKGBhuBqFS+6jDAs+Cm8mqvJSQyYrBOHc0P+84+3/Mq3bV
OSoN5VfZy1purGvJcfY81/iuyzv/UpWucUwBAHRYqqtcRFe56N0dV7kcIQoX
C4QGVogVMjDMwQGHPo5MWOqhLbot6TtEF4PeeWmfjq1JjtLC3OmFmP2WExVp
f/XLU58szBAEANBjXgqOcjkYjGvfoVwWAqGBFWK1DIyHQZtDKiE11jenPIqb
0mkghBuZcxPuWtkLeU787jUcBdPo/S57JQCAlWLU23OVywVKeZMDoYEVYuUM
jNGF84FQTpYCS3dKyCp1FETFox27zS/oFUqDdx4rrxQ0qQEAWEKsFx5PrhRA
aGCFWEUDwx218RwnEpSE19nHoRR2AZqbg0HzfipIxO859tYBAJYZYr2gDz0N
EBpYIVbTwHDH3lYqez3YmovxRmwhBbOQu85WZbYRBizEHLQrs3WqAADAAHNw
UJnr6QCLgNDACrGyBoaXiNlCX/9CvBFblVZ/xXYAc4wz3j0rEhphkmN9Eyte
nep92UsBAKwSlkqUy+cVKiHJGwgNrBArbGCQmRtIxMRjabIzYot7ngPoioTk
Kyv7feyo5JDuIRQtAADY4g1XsZXLbdkreUZAaGCFWGUDg0w+R9lPHMTRcy9q
zPT3jcG5KLyqbb7g+ZaoXIdZ9w+qtCuqmQfEPY20i057j998UeP32p3LYUi2
6HGo7OdcCOcHr2hLLpfk4xSEobxi4/eNbnqdgwb/YrP2qtE+6YdJzRqeNd3L
ecEf89dAORT47c3NHV44VNQw6ZvfpHrZgymeyzqx/ZYQPy3eRFApORAaWCGY
GRhLiaUecehSj4XM0976lMUsH11J/MZm87g3uFbVS0Xcc6953BF7d/4D3hpp
5yK/0+7fZ13fD0XYqNYPun37La56nbfunUUbjc71iHynT+bwqtN4Ue/c5lwH
R4JXVCWXS/RxioGMvsm4wQjmUGlVq7vt7qWqXg96J4J3cVXjRPWl9sf8Oejs
bdY/6SshNTqeRoMPfPVFU74YqNdq/1xsbDjnkn/f0x/IH7F+a8p7nn/XN0q8
0ui5rBPbb0nx0+KZ42/rCIQGVggmBsYyQ/qv2+hbC4dsgAyJKlP7WK+/781F
I80fPXG36uYqNvntKnnQZzU/jAuhtteZD8yO1M5fm643Ua3t2P/g2DxhQVHG
+MGr7IMol+rjFINfp1oRv2WNItz3hG3HxZv55dNIPWkSqW3zjtRsx/nHqkiN
BlOTd+vixfy5HF6I9Q33XL7gaxvEay5pid6Knsk6sf2WFj8tjhH3KYDQwArB
wMBYdry71CvCJZ4vIZDhilkCMpbxM9K0sO519VpV7wzKa+vNX0bU12Y9DDX7
LW6GRd3BOurvVyh7+Zfp4xSE/pGjbbV7MKKlZg5vVPVaGz6sltRoeDSGUefy
yTLubHGp+v0SiOu5rBPbb2m5JWlxtKWnAEIDKwQDA2PpIc0+mB8Ygj9P+xgT
thYxDl696UH1J8avU8UMNwAAU/y0eEX6XvZSng8QGlgh1sLA8DNNqCUL4M/T
Xt0cHDtIRWKlAncvOf4Gw1RAAABT/MtNKo3e77LX8myA0MAKsSYGBgz1CCbz
tKHNFmF89prGKs0vq3xWGPNd8oS2YtfmAgDKRvOVyyoOU80LCA2sEOtiYJBk
E8ql5tA/bWVthInDuut1vg6ZvmTpjINXmKWfArLBmPt9T5Y5cluHrrXhaC4u
YRrL0EARz3pN1QZlc692z7RVq0EYp8VXc5hqPuQmNMs0vf419c6Ya+e07iOb
yZ4DhnqqaA+L/1zOWPrnzuBn2av4s1zKJC8DY/kgLT+vFNouhtsu/4oP/3n7
7FokjN4b9+tnO5nkUZNeshC1gzk4ipD2+Kcldi+0eTOWPRrpgaSbpW/ddYX4
jzP9s6dQ+YE/lIb9Ii/8ZrcSEm3+9E52fp9515dbtSq3WT+QOqe9wVWveyjU
tgWFDIOytONa44JGm3lbrubO1KtsHWvMd1buU7W97z3up9H+oAx+lv0UwjoL
wnCPochGyy+NNMggGtoA7Ghw2EiqkF/x0hXN58pdtyyEkdCmsEbqabv+gqtu
C+JJR7lU++dS+3Wt/mFAxpDe95rbMs1HHZ45X5A3/a/4eiGv+qL0Ah7ru2Qb
63z5d04xVSa0sDcwGB5Stvt29KXJsh3GMkd3XTKM+rA/HD3PIVJ+fzrbc6F/
qrmvKjPLeD1Zoy9uJeBLcTC3DyzTuO64d0lUae5qWcwvhWeTf7dMm1Hfq2zc
+qCOzAD3ev+k4d6vI9ErCuvKzbTuMvEo0763PwCByR1qI7WzV61wvHge8Fid
hEVV/GYaF02uwnfpQ1XWUHG8e475k6uwqdqWqXX+6fquf8+/kjXSe+8dv4l7
09Uz3zbLCKwzb8yvbY51EGMJpGGph75yoQzAPjpKVz/1FHxD+RnUyKPhtSLu
OFKsn1Pr0dx0S5L3ZiY0B2f+uf1NV/c6QY/V/CbV7IeOqcnblcq7Ae1HfbIG
R86yi7439mFADg9VWIwevbPtfm1l1xHloUyyw9bAmHllRoeU4b4l+VOGzpom
52D/F4pvlrPUpb+UOtlULP10MkQlShOSL3er+4PZO85hn1zysZjMtRv1XY96
S76JlJF+ssUkk+WtPBhMsJ16WxdJ19RvEMO4aIG6UtH46jwruddy6NXtDl7u
z3kvqoifjzeJPaCof/cdqR2pmV+3uKnaRL1HOXTkQtvy5zRinbnyqIokfZz9
NqsQypcGuSsh041mYS/n1WnEBEsf+gKbZ2WEbrF0x9rPN9bETmiPete5xrrW
nr/XacK4e5SF/e8VcgefmJb+sWZbiPkU3Noen394SjXzjDPfqir3Kp+clElm
2BkYASIOaWoi9m2Gw06MRobe9LN3YfxefjaPAJdRf7/Z/duz9hlqFZIujP7u
fM2cW4xC+0BUCJMbYCcj8mKilDcyg+AVmSgeDCZ4d9zwnbscNeL4EUZnyVjD
M8dvqLaUYWxQ1zh39fzbPgOrybvvNaBhvGQu/0l/BlnXG7fyMdqh873ysuNp
WGeO2AZeXfy7451DlvGK0qVx3/OVC5PKCtIty/8dU7prP4ZYZHgjdAu5roWJ
+oqCldAeVMk2wDhe+hb7KpYqcayeMm4hNyeq848A3ZWa0M+hV8W6leuH3Y5X
bE8RtqLld7+53+2+c5dRSjUFITdlkhVGBkYYUYc0NRH7Nsth10kvA62Va43u
+sqh0Nivb7qvx72oN/aa7dO+/vsZ2DXT+BuA2VPGtswbtnVHXOMaA21PXjc+
4vcnr6aeqdf3Z49XmJSrLY74/XGMBBbF0lERP1ekbBIWUUyKFmj8Prc2rFLZ
ltSFDyl34zGJUUSkrrxPFJc7Wx4WJC7/jGe5lBxPwzpz5JfSOOibD2QgZ/uK
2b4tXRrjK7nZBGATpMVdF4bBszIqLe6JNNeCJTZCe3Rrwypc89xYtJ/cEDST
p4xnVASfmF4lSS4NMobypt1/8Mf4sAgnZsJ+6DRsH5D0rf+zW9qYpNyUSVbY
GBihRB3S1ETs20yH3W/8odjtxpXc2ODqHwdDx5qaycKYdz1xh+N2pPlmjSVG
O/a+f0ZNK5Ymv3btzN8k1MOsPm1RxM9L8eeo/8ezx9k8kZNE/JxPzSDBd19e
xG9StECxE+46bmNVPVEcz9l4bPJKbtItmLrKMeLHmoWJS7dSMXc3diFYZ36M
evtN5ZeVQ8FA+dIYTyJiErZKlBZ3PjWD6ugI3VJEWpyF0GyT3lGC3EGiZ4dj
Y7B4ynjh1mBDQX5p8dFF0/PRiJnEZjxRaqwbuX6kmpM5DGX10eenTDLDwsCI
IOKQpiZi32Y87KQWKGM7tqke1ZzIw9nQf9fAV/k07O7av6hK18vyDIvFEyOz
MkL9E9++9HQVmTwvXLIxkBdG/MgAgW1Zy6l79NafRsZEgURF/H6rvZuJxMwr
uXNL+2YlRvzGpZsUfp+h7LqSOlQT7STbhcm1ESbHiB9rFiYuSZsq17wo9UmE
deaGffYbxLQjSepNVrHK8qXhP7wYmVIRaXFLvxhMvfpQOaRvGi4xLc5AaLav
53Vzu9bsYmz7P9dGmLzS4vYGftPxhlGQYpV/MO+2SILe2WmTiBlJa5YTQMtR
mWSGgYERRd6NMBkPu590kDIkHYiRvNsdTt40zBslNVTP4jYHBmmpCfe95v54
pjSp2WPkpy+I+JnfZee72Zb6ud0GMim5ZBGKiYr4GedNelU8uul1j9pCS2if
OpPbZ4IJD0NnaL/zM+g4It1sn3v/quZSA+nfOZXZ7/OHn9S7P5L9/dFAPMxU
E2sag3NJPBCaB3L/pzWbujKHRGjq4JPz680DhYjxNsskb/OHHv7XzGH/VHQG
brfk/g9q3z8+cflk9PadCt3mqV5y7znWmROPmvR6HNLxbVdWdbblS0ObKBcG
AdiItLilSvvUD8c43WKNboluUT+LjuXwWh4QbUM5jzAUeqGRuVhc4tYD/VRQ
EmrvaZxrs7rSO0FotbvfTbJyv6HA+q37D7Ke6JiadfkrEeOQjXlvaR/q42ex
P8y2hPSH8bk5CQKQOGoZdaq5KpPMUBsYE+IOaRri9i2Dw+5n4tL7Vn6d0my+
MjSh5ue2lm0uTQhk/SyuuLKdzWb351g2vnPEpAMuJuL3NFKd4cPVxskgz6uz
JiWXTI5teMTPGahFF2BxR8TU3pFhvNbPbvNQdod0+S/7aGjekblyO/Jeij3f
ONdy8P5I7iy730dSMLagco1rO7PONurytfdtmIPDpnwsTB12y7iZ9vu2xM++
IrpZWAoe4JciHIVklKwb2Z1Cu+mPkecoM7kxiUvzh1fyKio35WeTsM6c0D/V
xakbTEj4jlEvcPnSGI+4Z2LRRaTFjc8NygqlRbrFFhdRJsp7p7O28Wmg5ufC
UAvNuna78ytb0vc8Wyjvuo2N8aAza/h3Uzx2rkSZFKSNY3HnoiO1vY5vCjJy
Ye469elQ2I1nKBUel34YtPe7kwk2fn1+8X30uSqTzFAbGP7rLDqkCVm4b+kP
u+/CpD+/vrs3WxkV6sKMr9qR1KeU7zJmEi1P95Py/PouDPUUL+ubyM+UKvkd
cEz8dC/iV9lqHnU6J5MfsVWr/qMunbMKvMQwKblsfKY/tSTiVzvRyJUDPzX1
yr10gCYd5rZYcvszM7tIOXpQ1dwU0Ajj7wGbD5k2mP/AzfUiAHdWQG1mrg6J
VwTrYDXqRhizf9AO+ev3veYGL17oJtEYbs0qlVr2tdBue/rIdD44N9DV3nb6
mfJHOYB15sMvpbE/4/iTJgg29fzlS2My4j5TTcUcflpc6N17KtnQr1X3Zi6q
CqU0usUTab6NMNRC80N5IWPBmGHdyLWZcv0/4+dvSCOMa9GxboQxlDfN3v3U
L0hpTcHpD1va/Mz28xtyi75OKF9lkhlqA8MlzSGNI82+zX7Yx+M45JuMf3F2
CEO8C5M9t2Xd9WYeDUl/uv2fqd7STytTujCWJu+Kc9OiGHbAeb42F+YNWfeq
/JrjXoxvZs+HScllRfrO6tVmPDLRvdaQQhV7LZbzPe9RGr6IRpjxAMCsfp+f
vs/zse7OCgj0pXrnOuCq0DfC3HWap8PAh7E1Rm1+NqmTeaRIjpPEZVjY0DL1
i3atUq0f+3dnlwjWmQvO4Ky5VgWWvcBLIA2SyLZ5wyBFS15t2iOz3bENunhF
Kt1SRCMMvdB8lZ5f7MtrodrtzN6IGmXy5dIIY5+Uxtlsep35eKIEOF388x2g
pfTR56xMskNrYDikOqQxpNq3NIedJARTuzDj6xprM7WyoTvKn76bc/ULA/yD
SenCTHXxT2DXAbdo9A250DDPm44nJZcMboCNaISxP2Z2VUxaLANPlqjRNwVE
/KYuIMh4maz/wI2fEUSDV6gWkENEHSx9xE8/aQatPutaav4d6tdQPCAWTfAj
x7PsSgCsMw+mGm+nYNgLXL40/BH6tnL5SN9THNEIY3/M7PGKdLqlkLQ4tdD8
UN6CQZrZIfdIBqYAzTTCTP+e/XzIqS7++QWwG0+UgKku/gkl9NHnrkwyQ21g
pD6kkaTctzSHPbMLM76kdSZ8EebCEGenJl0HFng/EPcacvD3ZcHEhXG+bl44
nk8JSftbbPz0mIifj3t1Y6Xy3/Oalz4puWQxui1i9I1tsmZWCKRnJHCCvDxm
ORG/yQUEWe9Q8xN5nSifwbyS+Fd88EdK5sySuu7A63vlFgFXhT7ip3f2gp/F
7B+GjtEzeq3sX1BM4pLgn/2QS46eTO1U4E9DdvroWhEPmkKrUd9rdy40+jB7
xnWaw/6JM7Ci+YYXDpXBr7mPYA4vO+KBKH+Umvulr1Nsv5flo2bzoNML7Q2J
lnZGnJDOZuMwkKM/8IJwDIphqHYXE8hDgdFbRM2HvJEzxytS6pZC0uL0QvO/
1mhLfqjshShk/i8l0aOZ2E6BB5ZXxxU0+djPh7S0D1ube2KgvqVdD1p60zxo
3RbfzWhIh+AEAXYEeX4ZUtMraA85eo7Sa7cEYb/Bt0TlilFncAZlMlKVo7Zw
JMvvGmHKmRn0BkbaQxpJyn1LddizuzBur8HO3C3nQRfG83TCJ7GYV22uUpOp
x+Qyg4EL43bx343MIFeen049lW7hjTCTtCaTO5qDTJVcMhjREHUjjN5pZVXF
5HsMiLrMiN/UBQRZ/b7ktYjWN2+zbS24Knr+9R0xBMdNR6SuqCN+9tcUfPT8
UqTQJPhDv529j2zxnR1j3bV1Ot6HpnbekQ6ajb/4rRCdYGkf68KZ33U4Gjh3
cye5bJT5Ou/7wu747i1zeNbkZq7YG/X3tyadp16Kdlumq5XPtM7f/eZLceDL
x/ru9HXWPo4XEi/t7DiNt1+NEIX8Q2lkfvbNkG13MYX0Jjjv0LmjfbGo+ZDm
pZg5XpFStxSSFqcXWvJ6qidD8TI+e0ryiSfkOR68BDDqRhjmjTBuF3/Y4RmS
jzN3Tk1NOZHa+43mzhaLk+XjdvHrYVbV4KgSJiKj36pLV75O/KE4OnE/heSj
SKtMrFu59ro79ENG7hfHNb/k4pizMDBSHdJIUu5busPuuzAZPaAno/+e5yrV
9qX312ddmKfR4KhW2Wh0WLnAeUPtwgS6+Kdg1AG3OOI3zmtwUj6VmZNefgY1
qInugE4HeQQvVcRv2u/LaoqT5FeCWkTSpppuAxBfMmnqij7iF+bC6J9CSsvc
39ezz/xJkLgc14TUzwNb2lMLczrhl1L/58wGs64cmXNHFGcuyzot9Yhrf5n+
yobdV1Mv4i1+6uYv7y4wqlh9Jnl6z7Wpih2vFiUQZgmVdmYCjbcTWPUCU+4u
Fky1pTOoxo9Ii9OQUrcUkhZnIDQ/j5OgnspvZE6xAcisgMADy3uUFNAIE+ji
n19D5LPMO+yMXJhAF/8UoX30TjbhoG9O5ZqHf/MMTl96ZeJFHSc+ixdEZXTt
4PwKaA2MlIc0kpT7lvKw+y4MVVP2SOudtOs79fYHkl7c3BOlgwbvFVewOE/G
eb2SBU64TKOGKV0YS5dfz3fxB1+c7omZJOJHtGXySfUpl8Cylz/ZHdDpIEGA
wIDTmWCCNRqSm19CggDmL/qAzRxsWu1cfb1YmZBKwnR5JS/+EJjUPZu6Mn+S
vENIxO/BMFJ9ifZGms8oGcrbkDI5Z8By1LMjCQkSl+alNyQ+7MKdMKOa7LHp
6evkgMvZje8s6/S+tZniZ++5SVSEpXdbfON43AZLnnRUWiiTPK27rvBqqmyY
PPQD1iNLF2bUJ9dnh8KoF5hyd7GAaS9/VFqchnS6JSQt/mgYrLsMWAjN7Lec
F1jci0GUQ6pQM3nWz05M+hO4EWbom1jBtLhlUJQtjb40m2eRz8H4kgCGLox1
G+zin3+jOTXirW2mv8kzdKm88izKZHQlNl4Jynjbe0/wXAaX0RsYKQ9pJCn3
LeVhpykkC4E0efGni1KZ1ki/VJRLfWlG1riMi2MzPUCNs0awi38KsskD32wa
yHM/+g7ocesoF3Pc6PD3DIurWvOI+JHJXSGVaVPBBNt1ItGGYBDgod9m7v2N
vWOqs0Z6fBaF0DNE/P74OjBQPTKTuhq7GMGInzMeeZDOzHA+zsxx+KXwgQiS
UwawERUMTASJ1IXd2UEgEzAqtbAbasKN6t9q56Atf5uS8P18vqOQdVr6hdg+
UKb7bb08S3i5wqPqzLmgKySjlae3bnfgxlQhmQ87F8Z+i5DG2wnkUVujs9WZ
SIOO8cxPFnLLIS2eUreEpMX1kyZr74+N0MjcmEVtp8SHTZcW9y5MDDzrZxoK
bD3s+yzBtHj4vMdk2IoipIt/anGe7/DP8A/OzoUxlDdhU/fHEGtkZmtZdz3x
oK1Me4teuz3FfX9MlIlxVs+rkIyBgZHukEaTbt/SHnbWLkyiuNajJu9Jg5Ez
TYKq7oI9FPfC2AbMgjJX4iYHhWN8tV11vv0lgcG5KOJnfpNqjqrkw5sgHp2Q
LL/XCWuXTgpxkSpM8qF5RPzIYZmLjJFnzStP5VrqUZP4Xz+6tcp0EMDSPwqz
sTJLPxX4V40OzTN9MsONqkHJnbXu2MkxG5R80tTFpV58fi7F4ztNnqPxS2mS
Oslhd3vmD1u3sjCr4ZPsaqdU2B0d74nEOK/PuF3ePa22Mx6cEJ5iJy+c4DdU
nJvTK9XWzBVCE5IZ1Z6VMq/QnIklPH/QT3C2qddJ8BzYkLom60HvvatxO2EN
O4Wu0zLveu1tjv+Q2GHMsE7bcQhMtp8l+k7tAqWRQvlHMrlinr6XP4+0eErd
Yg3ezaqv333h3WxCOcUXFAUroRk99/uNrYvwryRO2W7pesebs306ZIwSeWJa
qrRPfBavkHUqLT7qt2aN/xQ609I+1MXYPkp/wn94DV68C5N8z9vGxvw85zlu
iVUVX5/v3Qc3H9MrRpl4PFnGtVznqsJ50KlcEgMj1SGNI82+TXDY4xftl4Oy
cWEeSUHg5kmcbat/4t2Ltt28Z07FThnxXZiUxYTmnSJsVCqtWMn7sbjArUPj
DODipIb+MTLiZ91rynv3PvMdsRdxKYyvdqjiTl6MN4OUQvBHc1NlpkKw9Qk3
XR5g3naED5IzqNzL4T4M2i3/v3qJLf+zmN9l8WxWyUwK57LXCE38PuoksvFF
qFbciethX/LoSqq3ZHkvSyeU61BMFQc6nW6idOR8RV7dkf6p4cdmPXXnP79M
TX4/Z6El3dXG17brlG3WD0RhuyJ8NpyLTa/7ymFzk7M3s9S/D/kYKXbyyLuW
KyxxaZnDq07Due2i2jhRIzPCSVwYS5eddv75WWrjYpXFnVb06/Re5ovbzn8x
u8ucNttO50RsvuCF00GwNbGwdZo3ijPAx/5yd4RuaI9krLQTrtP6PZB2uEVd
YwaJwwfqiAr81lIo/0gmw1Tpp6v5g0YjouvZXzeFbvFMIP+zPBm99/NOd4ov
KAqGQvPnGrVDo+vmUGnVpY/iVoZejN99+zBP1QWZ+idB+uA8x7xAqG2/CeOT
7gbuxgFS47M4F8ZMqjOt0eCDbUhsdmLniflPtEZofjzWhUm2559M/dx50glf
4qwqbypIJb6m3RUjFyhFLkaZOP/tqzuT9qC++VoKGcO4NAZGqkMaR5p9u/Cw
x+NXEtKd4tuuMydwZ9OvxXPhNp1fvg1+oSP178HQH+BW4FzxJPiD4hPXNQ3P
6jMfe6OuBJ5l1jdpTjjci+mxipZ+YmsMrrrBSdcRy7qwnXS+tjF+gWptdkij
Y+y94BsHnd517OQE28O1X2SjWs1+Q4F/yw9NT4c5kAIbprqdYvzvYh717l61
ftxXrwe947Z07tj7oyvbWq7Ll4NuS1Cm7jx1nAKurTjXTwvtkNF5o37LVqXV
6kZsx24c/iXOFaprc8eYP3qi89Cs1g+Vwc1wZJq22T+46LT3GuK5OzL3vtec
v50qEcZXkd9wRKFedtvvOgPbfbD07muOO1DUC6kxXQlzb+8lrn1m/8mOcNDV
59XO4l09YaT1jpuz6qNS3W13YwpNF+7kJ60zu8ecQzd9arar7jkSxPO+Hn/a
F7swlnZcq2y3B/eB/3DbcaSwUeWO1PC/ynCdf9zvnePqcQUP7qN2Q+jPLrXo
df4hNmS1FQiBxkp74TrNK2lKTzqPoRCV8lNpvqpVp3fbRo1/JY1vKyhQGmmO
SdRLTIapZrti3mF41ph9xPhP8ITjfxOQQre4ToGjva8UsSUHgxiLv6BFMBHa
BC9f7GyDZudS1e9N0zR0Jw4j8K2OO0fXVhHNLJeP33UbG/YzS1WvevI7Sbl1
nmODd7XKrty/6gozqT1L+8hz9u+vB/b7ypeB5MVCnWk/l7erMzsgpEhmqPw1
u09ca2TulMW6MAv3/FB5PWsbvA5uQkv9wPMvZqyqzR2+eR7crU6ajHsdUhRX
jDKZeUfH4eL4j3OJjCUyMFIc0vgFJd+3iw57PL4Lw6CpISWuzPMamZWZUYwr
nft7XzTd5FQBaHJmF2YySz/z9UnFYXkDD63Ar4JifnR/H5th144za5iJ38ew
Dta619VLxZtL370YqHeGxaSz7ClERlao1ML+5BzJd7Wji15K6ij4ncVAsZOT
s8CFcSyH6uvwpNj4FZoFVMw6TmWtfblAHiTzHpoyLmad/kK8wQLzUawkOa9i
1lmgNGiU/+SWLopS/4JIrlvClPc8FF9QLkKzzOHNoHfq3RWi9K+14QOT7ZPi
OZZAakXozCS9MIUYPIbtHdTe9Y2YJ2OhSs+r8g0f4r0sBkaKQxpP8n2bYNtG
QMZKsJjEmI4HJ/++ZI0wDr5AKMYKZcU4a9NfspYIS5UyS97rGXTI6dKZpcVS
j7J63BO/j8GtDc+LxLvane2T9moemp2cnDij2hqeNfl3A98ksIybsIEtv5R2
PtN0Jzyo0k59EuZ9GOruwL3RtSy05MH0ZA/S/xim4nJc50g9FoTjwXRomCjb
+TkJCVyYAuRZ2Lu4UCj/SQB2q8A7ypeC7F/QGgutEJ2ZxIXJ3+Ax1SN+KiVt
Dm/D5uPmd8wtXTkQ2qfa1BMhpnUOBkYG/INMMUUnG+6QZFfa9oF6k38cNTF+
cKZ4+9xQDhaOemCDdS3FTk6L/bvj/HsugwGXGHujZirNcpj4fYXHCkom8a52
O5LSXspGs5NTEG1UG5+F+sepJ5T9KAk7F8Z5O99L+kxN3hWmi9JtPeZWL5Mm
0xk7zWv8DJvFkeM6/TlX009Yr6tu3oZM4MLkLs8C38V7KwrlPwnA0l5w89yg
+ILWV2jF6MwELkzeBo+pHdeF6ZbAsHGXf3I95mTUwLQxSVoVQiZIwMDIgl83
xXSkbZL3dR6s7jPUmTiR75WC6fBNdPq+yJTveyO34ydvMGPUO4ifrRHHOP/O
sbs++1kwumjHT2iJYeL3FX3QSib5rvaqm1JOdaDaySnwjOrA48+4aHL/aIgn
Xt2I+3NQD5lxYWnyAYOLoSN51OTtCv9WnizjRGq+JBrMtiU2D/pTLUWWdrwV
Ptgz33Xaz5rN9vQtXfbbvXQW0p+rYY6QdlHrLPZdvLeiUf6TAGzx1eClQvMF
ra3QitKZngsT4x7mbPC4zYk7gjylnKX9rZBJubkec0fF1Tu3U2aDp9zCZtrD
wMiEPxqCRYtxKkaXQvWlqJyLzfeD5Qrmk9sDGVzamALbCGnFzWBniHEhUARh
JjfA0k/vfE7c91IN+puD3ByxbkULKXa1lw5OFzeg28nJ3sKZJCO1d71mzWr9
QLIfhQN3keZVe3b8ACHwlLQfpkKewXxvunWQcTjO1E+b9ffK4M4wTUM7Farc
Zuhgz5zX6Syk+1ddPB84zc73WrdV5V7MTtWIlnah6yzuXVwolb//wMrnyu+l
he4LWlOhFaAzjYHtL3xo170u+I16+4N9qAM2Xs4Gz/C0Fq4T512q/I/5fV98
3excasOROfrZl3a46q4cNtMeBkYmyD2JFKOlaHjM1r6TM358pkiZjK77ajHO
89NwcLnwctUYyJ2JUaMUV5XhVZ9CahO/r1C/uGzS7Go3lpLqvkXanVwUI7V/
vQSBMcs07lT1WlVtRyZUyEWt03ImNTkrsR2ZLNq/mHUW+K1RKv/xtQjFxyHL
hO4LWlOhLY3OLM7giacwpTcaao7S04ZhvTh/YGBkppSMw7LjV8mulXJLiO/z
Ft889ZwZ+33NpR8YVB6PC8bBAQCCjAOwuVz5vaJAaGCFWF8Dw49FrN0Hj4dc
eLRu7epJGOff6S+1XB/Gfh92FACAJeMAbNHNm88ZCA2sEGtsYBBbfc3KQRfi
90at29DgxYyv912qCQzLDhlLsnYDEAAAOeN3s3Il3ALwbIHQwAqxvgaGfxM9
Kqbm8KZGrN+4xYUQn3ftZo9TMfb71msAAgAgb8io6krlAPG2xEBoYIVYXwPD
Tz+t3QdfjKHsupb6uo13WAC5Y6JSkeD0Jsf3+9ZrAAIAIHf8AGw5A3meKRAa
WCHW18C48Q6y0C/gYoXnBrn9ZP1qC2PRJASvUuPnOlGuCQBgivG5gbR4WiA0
sEKsr4Ghn7id2Wt3FU4yfil1tPvNcU/q6xC8SoPv96FcEwDAFO0D0uKpgdDA
CrG2BgaZw4a+7AhILVn9HOY6wZ9ygOBVGn4pPMo1AQDs8ef/Iy2eAggNrBBr
a2CQ6bioIovEvBQcCe2iloxAZuljiksa/Lnljd7vspcCAFglxjdTIw6ZHAgN
rBBra2CQKrJWf808tzRYqsQh6TDG7+XHjTBpwB1DAIBcIG3pqHZOA4QGVog1
NTCIcc5J17BG4/AcPe4IRruzZ7wyMuESXm9ySNHC1sm6ddoBAPKFzJxZvzZe
GiA0sEKsqYGBEqmkPPQFlNt5kMrDtctXUkGKFjj5puyVAABWCnLF/PrdZ0cD
hAZWiDU1MLxGdQ73NiZB/1RbQyc3CAleYX5dGsgABHQPAQDYQtLi62a90AGh
gRViPQ0M60beQgomOY+qyCH7MOrtoQUyNdoxh4gfAIA93rVua2a90AKhgRVi
LQ0MLwWzJd8gBZOU0ZemvVG4dW5jR0FdFry55RgHAQBgjNenifKAVEBoYIVY
RwPD+uakFDhMRE+H0du3xVaTb9fDiXnUuy2eb3U032ExzuvQ/IswBocNfk/s
/yKbxLp2Z2Zg6B8AgA7jq9h41RC/GL5y8QbyIKYUB4QGVggYGLZpqkm218a1
BzjCabnvOZmY7bUYYzK6aHjXvZJrPS1NxrZZyI3sCc0fOu2V3tXWKkICAMgB
zVcuIlEuroqufVqHx1FmIDSwQsDAsC3R45pjia7bJZ6MML+2nUzMsbbymRji
3W80lJ/Ovxpndftzi9fYNrH8UpxMFcdLrqDcdCdXPx+WvSwAwHOHTODhj1RH
ubjtmdxrBcolFggNrBBrb2BYN3JtPSzw3PB8wC3p+8qL0NJPG/VWt3+t9j/W
OfvUfIP/shjjq1jfk3pX6uC8XatUhfPhym8UAEAR3A/E3YZ0MVCvlPZ2pdpS
ho9lL2n5gdDACrHWBoZbB8Xt9zCFjA63KYZr9u7LXkgBPJrGnarfm9ZT2St5
Rljm6Kem/RyZa6RcAAAFYCuXoXYzhHJJA4QGVoj1NDAeNXm7UtmWNYQgGOB6
MRtC/77shQAAAAAAALCauCb3tqSiF5sZRr9VhUgBAAAAAADIARjbOWGZNmuV
ywMAAAAAAKAIYGkDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWnP8PuZa9WQ==
     
     "], {{0, 95.}, {1089., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{72., 72.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{1089., 95.},
   PlotRange->{{0, 1089.}, {0, 95.}}]], "Input",ExpressionUUID->
  "6d68e680-2879-442b-ae0a-18e056b5be4f"],
 "\nDimensional reduction utilizing Adinkra.m package, requires defining \
DColor and Phi and Psi as above"
}], "Section",
 CellChangeTimes->{{3.845852788927101*^9, 3.84585284983389*^9}, {
   3.845925594824545*^9, 3.8459256156107626`*^9}, {3.8551652346663647`*^9, 
   3.8551652999079514`*^9}, {3.855170494252225*^9, 3.855170505140836*^9}, 
   3.85517059852728*^9, {3.8551706352132454`*^9, 3.8551706593109655`*^9}, {
   3.855533450837229*^9, 
   3.855533465084353*^9}},ExpressionUUID->"43a11b60-0146-4917-935d-\
8ea003433cfa"],

Cell[CellGroupData[{

Cell["Phi, Psi", "Subsection",
 CellChangeTimes->{{3.8551826583260307`*^9, 
  3.8551826621062307`*^9}},ExpressionUUID->"5108dada-be51-4327-a9a9-\
d9d9e0ce1455"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Phi", "[", "t", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"At", "[", "t", "]"}], ",", 
     RowBox[{"Bt", "[", "t", "]"}], ",", 
     RowBox[{"IntFt", "[", "t", "]"}], ",", 
     RowBox[{"IntGt", "[", "t", "]"}], ",", 
     RowBox[{"\[CurlyPhi]", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"TwoBmn", "[", 
       RowBox[{"1", ",", "2"}], "]"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"TwoBmn", "[", 
       RowBox[{"2", ",", "3"}], "]"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"TwoBmn", "[", 
       RowBox[{"3", ",", "1"}], "]"}], "[", "t", "]"}], ",", 
     RowBox[{"A", "[", "t", "]"}], ",", 
     RowBox[{"B", "[", "t", "]"}], ",", 
     RowBox[{"IntF", "[", "t", "]"}], ",", 
     RowBox[{"IntG", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"Am", "[", "1", "]"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"Am", "[", "2", "]"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"Am", "[", "3", "]"}], "[", "t", "]"}], ",", 
     RowBox[{"Intd", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Psi", "[", "t", "]"}], "=", 
   RowBox[{
    RowBox[{"-", "I"}], " ", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "aa", "]"}], "[", 
         "t", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "aa", "]"}], "[", 
         "t", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "aa", "]"}], "[", 
         "t", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "aa", "]"}], "[", 
         "t", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8551826684060154`*^9, 3.8551827125538354`*^9}, {
  3.8551828596485157`*^9, 3.855183000298464*^9}, {3.85518303230702*^9, 
  3.8551830530782127`*^9}, {3.855183394340741*^9, 3.855183515918536*^9}, {
  3.855187765134528*^9, 3.855187776569232*^9}},
 CellLabel->
  "In[487]:=",ExpressionUUID->"15226cf5-89b1-4166-9e34-fe3e8f485c72"]
}, Closed]],

Cell[CellGroupData[{

Cell["DColor", "Subsection",
 CellChangeTimes->{{3.855183994821597*^9, 
  3.8551839955249257`*^9}},ExpressionUUID->"51b5c6d9-e1d8-4784-ba99-\
12526a6c33a0"],

Cell[CellGroupData[{

Cell["At", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 
  3.855184478181778*^9}},ExpressionUUID->"27f371bb-790f-4096-a5f2-\
9259dbe0db5a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "At"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"LocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
     "AdinkraReduce"}], "//.", "TemporalGauge"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.8551845907638836`*^9}, 
   3.855187226192778*^9},
 CellLabel->
  "In[489]:=",ExpressionUUID->"e085a754-6db3-45a3-818b-fe44e1ab1b46"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.85518441261217*^9, 3.8551844677844267`*^9, 
  3.855184593731713*^9, 3.8551859628542967`*^9, 3.855186254052237*^9, 
  3.855186458514213*^9, 3.855187229446241*^9, 3.855187787722561*^9, 
  3.8553307477751045`*^9, 3.855339947706417*^9, 3.8553432885847883`*^9, 
  3.8553441248367367`*^9, 3.855352857204464*^9, 3.855449707784213*^9, 
  3.8555077055626497`*^9, 3.855508508413121*^9, 3.8555130035473146`*^9, 
  3.8555334787560472`*^9, 3.8555790243746233`*^9, 3.855593395341161*^9, 
  3.8557507065595865`*^9},
 CellLabel->
  "Out[490]=",ExpressionUUID->"8ef89a56-229f-4b66-b742-65fa17e85c5f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Bt", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.8551846027766676`*^9},ExpressionUUID->"77639e6d-3b32-40a8-ad43-\
f1b9ce7e5217"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "Bt"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"LocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
     "AdinkraReduce"}], "//.", "TemporalGauge"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.855184605872932*^9}, 
   3.855187261242382*^9},
 CellLabel->
  "In[492]:=",ExpressionUUID->"9b8a07c0-0bce-46fe-ab17-57f3e9ef6685"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.85518441261217*^9, 3.8551844677844267`*^9, {3.855184593731713*^9, 
   3.8551846093882985`*^9}, 3.855185962864871*^9, 3.8551872634685373`*^9, 
   3.8551877877726994`*^9, 3.8553307478219643`*^9, 3.8553399477532806`*^9, 
   3.8553432886629224`*^9, 3.8553441248854785`*^9, 3.8553528575065813`*^9, 
   3.85544970782303*^9, 3.85550770560246*^9, 3.855508508423677*^9, 
   3.855513003588303*^9, 3.855533478854579*^9, 3.8555790244058475`*^9, 
   3.855593395360094*^9, 3.85575070659085*^9},
 CellLabel->
  "Out[493]=",ExpressionUUID->"a08ebcbc-0fdf-494f-9dc3-bc2aebdf301f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Ft", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.8551846027766676`*^9, {3.855185869008298*^9, 
   3.8551858699958887`*^9}},ExpressionUUID->"bc0580c5-f28e-4fce-882b-\
974b63d68ba6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "Ft"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IntLocalField", " ", "=", " ", "IntFt"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"IntLocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
        "AdinkraReduce"}], "//.", "TemporalGauge"}], ",", "t"}], "]"}], "//", 
   "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "IntLocalField"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.855184605872932*^9}, {
   3.855185877589871*^9, 3.855185937891199*^9}, {3.855186029835805*^9, 
   3.855186065492062*^9}, 3.855187281005513*^9},
 CellLabel->
  "In[495]:=",ExpressionUUID->"44c540c0-929f-47b6-9d4c-5e12e53e73c1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.85518441261217*^9, 3.8551844677844267`*^9, {3.855184593731713*^9, 
   3.8551846093882985`*^9}, {3.855186033565518*^9, 3.855186070493218*^9}, 
   3.8551872905351686`*^9, 3.855187787825871*^9, 3.855330747978153*^9, 
   3.8553399478626304`*^9, 3.8553432887722464`*^9, 3.855344125014786*^9, 
   3.855352857913176*^9, 3.855449707964798*^9, 3.855507705732448*^9, 
   3.855508508540265*^9, 3.855513003734824*^9, 3.855533478968329*^9, 
   3.8555790245583224`*^9, 3.8555933955156612`*^9, 3.855750706731244*^9},
 CellLabel->
  "Out[497]=",ExpressionUUID->"0bd76997-99fa-4458-815f-8fe80c654444"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Gt", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.8551846027766676`*^9, {3.855185869008298*^9, 3.8551858699958887`*^9}, {
   3.8551873198939047`*^9, 
   3.85518732066008*^9}},ExpressionUUID->"f37399b6-7724-49be-9b5a-\
52536e59c1aa"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "Gt"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IntLocalField", " ", "=", " ", "IntGt"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"IntLocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
        "AdinkraReduce"}], "//.", "TemporalGauge"}], ",", "t"}], "]"}], "//", 
   "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "IntLocalField"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.855184605872932*^9}, {
   3.855185877589871*^9, 3.855185937891199*^9}, {3.855186029835805*^9, 
   3.855186065492062*^9}, 3.855187281005513*^9, {3.855187322525694*^9, 
   3.85518732559505*^9}},
 CellLabel->
  "In[499]:=",ExpressionUUID->"0751b7aa-966e-46ea-a003-5013521421f8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.85518441261217*^9, 3.8551844677844267`*^9, {3.855184593731713*^9, 
   3.8551846093882985`*^9}, {3.855186033565518*^9, 3.855186070493218*^9}, 
   3.8551872905351686`*^9, 3.855187333688809*^9, 3.8551877878756323`*^9, 
   3.8553307481031218`*^9, 3.8553399479251156`*^9, 3.855343288850354*^9, 
   3.855344125127858*^9, 3.8553528582077303`*^9, 3.855449708019661*^9, 
   3.855507705780686*^9, 3.8555085085933027`*^9, 3.855513003793048*^9, 
   3.8555334790532703`*^9, 3.855579024622858*^9, 3.8555933955684967`*^9, 
   3.855750706793754*^9},
 CellLabel->
  "Out[501]=",ExpressionUUID->"dad075e0-aca6-492d-abfd-80e0fa05ce72"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[CurlyPhi]", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, {
  3.855187432174094*^9, 
  3.8551874354327097`*^9}},ExpressionUUID->"f975db2a-e761-4fcd-8bf9-\
536dc5c6400b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "\[CurlyPhi]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"LocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
     "AdinkraReduce"}], "//.", "TemporalGauge"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.8551845907638836`*^9}, 
   3.855187226192778*^9, {3.855187421244042*^9, 3.855187422473819*^9}},
 CellLabel->
  "In[503]:=",ExpressionUUID->"17ffa33c-ca01-4498-8796-c0517186ab8f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.85518441261217*^9, 3.8551844677844267`*^9, 
  3.855184593731713*^9, 3.8551859628542967`*^9, 3.855186254052237*^9, 
  3.855186458514213*^9, 3.855187229446241*^9, 3.8551874438482637`*^9, 
  3.855187787915495*^9, 3.8553307481656404`*^9, 3.8553399480348487`*^9, 
  3.8553432889284873`*^9, 3.8553441251811113`*^9, 3.8553528582652693`*^9, 
  3.855449708031435*^9, 3.855507705792206*^9, 3.855508508604334*^9, 
  3.855513003837648*^9, 3.855533479067277*^9, 3.8555790246455235`*^9, 
  3.8555933955875936`*^9, 3.855750706840596*^9},
 CellLabel->
  "Out[504]=",ExpressionUUID->"ab7486fa-8261-4abc-87f7-c2b242454b32"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["B", "\[Mu]\[Nu]"], TraditionalForm]],
 FormatType->
  TraditionalForm,ExpressionUUID->"89fb158f-bd00-4ccd-b5c1-e5ce99742772"]], \
"Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, {
  3.8551875032359962`*^9, 
  3.855187509164589*^9}},ExpressionUUID->"61578f23-c14f-4446-a505-\
09f2dd1ecdcc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", 
   RowBox[{"Bmn", "[", 
    RowBox[{"mu", ",", "nu"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldPhi", "=", 
   RowBox[{"TwoBmn", "[", 
    RowBox[{"mu", ",", "nu"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DColor", "[", 
     RowBox[{"LocalFieldPhi", "[", "t", "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "*", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}]}], 
      "/.", "AdinkraReduce"}], "//.", "TemporalGauge"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldPhi"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.8551845907638836`*^9}, 
   3.855187226192778*^9, {3.855187512192215*^9, 3.8551875471328382`*^9}, {
   3.855187802275779*^9, 3.855187901332412*^9}},
 CellLabel->
  "In[506]:=",ExpressionUUID->"24fff617-af3e-4a28-b09c-df5b4c386327"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DColor", "[", 
  RowBox[{
   RowBox[{"TwoBmn", "[", 
    RowBox[{"1", ",", "2"}], "]"}], "[", "t", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8551875582737293`*^9, 3.855187571084394*^9}, {
  3.855187634856573*^9, 3.855187634919538*^9}, {3.8551879167703114`*^9, 
  3.855187942555519*^9}},
 CellLabel->
  "In[510]:=",ExpressionUUID->"0f0a77f4-9ec8-44dd-a283-5b30809398c9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.855187574128392*^9, 3.855187635282526*^9, {3.8551879104825172`*^9, 
   3.855187942832135*^9}, 3.855330748228125*^9, 3.855339948097334*^9, 
   3.855343289022214*^9, 3.855344125234389*^9, 3.855352858668324*^9, 
   3.85544970813931*^9, 3.855507705832532*^9, 3.855508508638966*^9, 
   3.8555130038880444`*^9, 3.8555334791584997`*^9, 3.855579024723634*^9, 
   3.855593395617606*^9, 3.8557507069186983`*^9},
 CellLabel->
  "Out[510]=",ExpressionUUID->"1cafd128-909d-4756-a31a-b6c2362f2dcf"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[CapitalPsi]t", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, {
  3.8551879809063168`*^9, 
  3.855187984256394*^9}},ExpressionUUID->"f25dc653-2c15-4bad-8044-\
2dee015a7a07"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", 
   RowBox[{
    RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "bb", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DColor", "[", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"LocalField", "[", "t", "]"}]}], "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}]}], 
      "/.", "AdinkraReduce"}], "//.", "TemporalGauge"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.8551845907638836`*^9}, 
   3.855187226192778*^9, {3.8551880142954693`*^9, 3.855188044320595*^9}, {
   3.855188128146277*^9, 3.8551881329389973`*^9}, {3.855189117711817*^9, 
   3.855189150566237*^9}},
 CellLabel->
  "In[511]:=",ExpressionUUID->"703dd545-1581-4101-8293-afe1dbdd1d80"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DColor", "[", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8551880722648907`*^9, 3.8551881157778797`*^9}, {
  3.8551881461485233`*^9, 3.8551881555884047`*^9}, {3.855189156829052*^9, 
  3.855189157495782*^9}},
 CellLabel->
  "In[514]:=",ExpressionUUID->"376c1045-33ec-4303-b194-68564fd56134"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["IntGt", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    SuperscriptBox["Bt", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["At", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["IntFt", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"TwoBmn", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"TwoBmn", "[", 
      RowBox[{"2", ",", "3"}], "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["\[CurlyPhi]", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"TwoBmn", "[", 
       RowBox[{"3", ",", "1"}], "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["Intd", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Am", "[", "2", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Am", "[", "3", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Am", "[", "1", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    SuperscriptBox["IntG", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["IntF", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8551881161656847`*^9, 3.855188155952445*^9}, 
   3.8551891583432426`*^9, 3.855330748306226*^9, 3.855339948159822*^9, 
   3.855343289115943*^9, 3.8553441252993736`*^9, 3.855352859011757*^9, 
   3.8554497081869993`*^9, 3.855507705876772*^9, 3.855508508675264*^9, 
   3.855513003952147*^9, 3.8555334792464123`*^9, 3.8555790247741537`*^9, 
   3.8555933956717477`*^9, 3.855750706965563*^9},
 CellLabel->
  "Out[514]=",ExpressionUUID->"16bba4f3-291e-42bd-8818-d8dd8ffd457f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["A", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.855188338378813*^9},ExpressionUUID->"7d2fac94-f919-46ea-a381-\
e245cae67245"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "A"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"LocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
     "AdinkraReduce"}], "//.", "TemporalGauge"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.8551845907638836`*^9}, 
   3.855187226192778*^9, 3.855188340499606*^9},
 CellLabel->
  "In[515]:=",ExpressionUUID->"8842da0b-175c-42a7-afa1-168a52119b63"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.85518441261217*^9, 3.8551844677844267`*^9, 
  3.855184593731713*^9, 3.8551859628542967`*^9, 3.855186254052237*^9, 
  3.855186458514213*^9, 3.855187229446241*^9, 3.855187787722561*^9, 
  3.855188342782016*^9, 3.85533074835309*^9, 3.855339948206684*^9, 
  3.855343289178401*^9, 3.8553441253473134`*^9, 3.85535285910572*^9, 
  3.8554497082307177`*^9, 3.8555077059174967`*^9, 3.8555085087063723`*^9, 
  3.8555130039674177`*^9, 3.855533479331952*^9, 3.8555790248053966`*^9, 
  3.8555933956906986`*^9, 3.8557507070124254`*^9},
 CellLabel->
  "Out[516]=",ExpressionUUID->"1b039c15-75eb-4890-81c7-c1f34fc1d0f9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["B", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.8551846027766676`*^9, 
   3.855188353750558*^9},ExpressionUUID->"64dce798-c8f0-485c-bd22-\
d9baf218aaf9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "B"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"LocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", "]"}], 
         "[", 
         RowBox[{"LocalField", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", "]"}],
           "[", 
          RowBox[{"LocalField", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
     "AdinkraReduce"}], "//.", "TemporalGauge"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.855184605872932*^9}, 
   3.855187261242382*^9, {3.8551883551679983`*^9, 3.855188356188353*^9}},
 CellLabel->
  "In[518]:=",ExpressionUUID->"0320348e-f38a-49b8-92fa-c6a99c7ed820"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.85518441261217*^9, 3.8551844677844267`*^9, {3.855184593731713*^9, 
   3.8551846093882985`*^9}, 3.855185962864871*^9, 3.8551872634685373`*^9, 
   3.8551877877726994`*^9, 3.855188356806559*^9, 3.855330748399962*^9, 
   3.855339948269169*^9, 3.8553432892565346`*^9, 3.8553441253942966`*^9, 
   3.8553528594108963`*^9, 3.855449708241293*^9, 3.8555077059284897`*^9, 
   3.855508508716345*^9, 3.855513004003183*^9, 3.855533479347398*^9, 
   3.8555790248522635`*^9, 3.855593395708649*^9, 3.8557507070602837`*^9},
 CellLabel->
  "Out[519]=",ExpressionUUID->"eee4711f-655f-4f9c-b598-11134862acc1"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["F", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.8551846027766676`*^9, {3.855185869008298*^9, 3.8551858699958887`*^9}, 
   3.8551883766879387`*^9},ExpressionUUID->"d58cabb1-a3f7-47ee-917f-\
904d8f5947bf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "F"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IntLocalField", " ", "=", " ", "IntF"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"IntLocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
        "AdinkraReduce"}], "//.", "TemporalGauge"}], ",", "t"}], "]"}], "//", 
   "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "IntLocalField"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.855184605872932*^9}, {
   3.855185877589871*^9, 3.855185937891199*^9}, {3.855186029835805*^9, 
   3.855186065492062*^9}, 3.855187281005513*^9, {3.855188365589011*^9, 
   3.85518836793742*^9}},
 CellLabel->
  "In[521]:=",ExpressionUUID->"3af5f767-8180-416c-a16f-ab660a122f3c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.85518441261217*^9, 3.8551844677844267`*^9, {3.855184593731713*^9, 
   3.8551846093882985`*^9}, {3.855186033565518*^9, 3.855186070493218*^9}, 
   3.8551872905351686`*^9, 3.855187787825871*^9, {3.8551883693778963`*^9, 
   3.8551883813121147`*^9}, 3.8553307484780684`*^9, 3.8553399483316545`*^9, 
   3.855343289350263*^9, 3.8553441254522505`*^9, 3.855352859655992*^9, 
   3.8554497082950897`*^9, 3.855507705982183*^9, 3.855508508773266*^9, 
   3.8555130040683203`*^9, 3.855533479429112*^9, 3.8555790249032474`*^9, 
   3.8555933957520313`*^9, 3.855750707120239*^9},
 CellLabel->
  "Out[523]=",ExpressionUUID->"0fb10b3d-3f2e-46ec-bed0-0d667f1f3c96"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["G", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.8551846027766676`*^9, {3.855185869008298*^9, 3.8551858699958887`*^9}, {
   3.8551873198939047`*^9, 3.85518732066008*^9}, 
   3.855188386711657*^9},ExpressionUUID->"0a47a643-855f-4498-a4ee-\
043c83c8cb9b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "G"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IntLocalField", " ", "=", " ", "IntG"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"IntLocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
        "AdinkraReduce"}], "//.", "TemporalGauge"}], ",", "t"}], "]"}], "//", 
   "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "IntLocalField"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.855184605872932*^9}, {
   3.855185877589871*^9, 3.855185937891199*^9}, {3.855186029835805*^9, 
   3.855186065492062*^9}, 3.855187281005513*^9, {3.855187322525694*^9, 
   3.85518732559505*^9}, {3.855188388338282*^9, 3.855188389785866*^9}},
 CellLabel->
  "In[525]:=",ExpressionUUID->"b4ae92f1-3028-443a-8fe0-3b0cf51a7706"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.85518441261217*^9, 3.8551844677844267`*^9, {3.855184593731713*^9, 
   3.8551846093882985`*^9}, {3.855186033565518*^9, 3.855186070493218*^9}, 
   3.8551872905351686`*^9, 3.855187333688809*^9, 3.8551877878756323`*^9, 
   3.85518839113341*^9, 3.8553307485430126`*^9, 3.8553399483941402`*^9, 
   3.8553432894283724`*^9, 3.855344125518485*^9, 3.855352860008882*^9, 
   3.855449708346592*^9, 3.855507706073387*^9, 3.855508508824545*^9, 
   3.855513004156947*^9, 3.855533479518499*^9, 3.8555790249813805`*^9, 
   3.8555933958145165`*^9, 3.855750707167081*^9},
 CellLabel->
  "Out[527]=",ExpressionUUID->"9219408d-d917-4824-837c-8720ffc2d875"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["A", "\[Mu]"], TraditionalForm]],
 FormatType->
  TraditionalForm,ExpressionUUID->"499ae52f-0275-4eee-b34c-a99213b0978c"]], \
"Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, {
  3.8551875032359962`*^9, 3.855187509164589*^9}, {3.855188472441723*^9, 
  3.855188474312819*^9}},ExpressionUUID->"e5356929-6fa0-49bf-87db-\
f4d175c011dc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", 
   RowBox[{"Am", "[", "mu", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DColor", "[", 
     RowBox[{"LocalField", "[", "t", "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
            "]"}], "[", 
           RowBox[{"LocalField", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
            "]"}], "[", 
           RowBox[{"LocalField", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
       "AdinkraReduce"}], "//.", "TemporalGauge"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.8551845907638836`*^9}, 
   3.855187226192778*^9, {3.855187512192215*^9, 3.8551875471328382`*^9}, {
   3.855187802275779*^9, 3.855187901332412*^9}, {3.855188476442685*^9, 
   3.855188508738885*^9}},
 CellLabel->
  "In[529]:=",ExpressionUUID->"3c6d64c4-cf28-4001-8775-7734e1f0f67e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DColor", "[", 
  RowBox[{
   RowBox[{"Am", "[", "2", "]"}], "[", "t", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8551875582737293`*^9, 3.855187571084394*^9}, {
  3.855187634856573*^9, 3.855187634919538*^9}, {3.8551879167703114`*^9, 
  3.855187942555519*^9}, {3.855188522442602*^9, 3.855188526266069*^9}},
 CellLabel->
  "In[532]:=",ExpressionUUID->"f41b55ae-1f08-4dc4-a7b2-3436d7100973"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.855187574128392*^9, 3.855187635282526*^9, {3.8551879104825172`*^9, 
   3.855187942832135*^9}, {3.8551885286567497`*^9, 3.855188553075327*^9}, 
   3.8553307486079116`*^9, 3.855339948441016*^9, 3.855343289631717*^9, 
   3.8553441255830183`*^9, 3.85535286026766*^9, 3.8554497083903637`*^9, 
   3.855507706111638*^9, 3.855508508884138*^9, 3.855513004209738*^9, 
   3.8555334796050034`*^9, 3.855579025043853*^9, 3.8555933958301373`*^9, 
   3.8557507072139263`*^9},
 CellLabel->
  "Out[532]=",ExpressionUUID->"ec9d3203-8280-4ba2-944f-73bb097dd736"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["d", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, 
   3.8551846027766676`*^9, {3.855185869008298*^9, 3.8551858699958887`*^9}, {
   3.8551873198939047`*^9, 3.85518732066008*^9}, 3.855188386711657*^9, {
   3.855188563349845*^9, 
   3.855188563483295*^9}},ExpressionUUID->"aa179d9d-2138-478c-a5e4-\
aa53e59b82f6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", "d"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IntLocalField", " ", "=", " ", "Intd"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{"IntLocalField", "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], "/.",
        "AdinkraReduce"}], "//.", "TemporalGauge"}], ",", "t"}], "]"}], "//", 
   "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "IntLocalField"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.855184605872932*^9}, {
   3.855185877589871*^9, 3.855185937891199*^9}, {3.855186029835805*^9, 
   3.855186065492062*^9}, 3.855187281005513*^9, {3.855187322525694*^9, 
   3.85518732559505*^9}, {3.855188388338282*^9, 3.855188389785866*^9}, {
   3.855188565188714*^9, 3.855188567854426*^9}},
 CellLabel->
  "In[533]:=",ExpressionUUID->"291628d1-2be2-4e65-a310-0af555b82410"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", "t", 
    "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", "t", 
     "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", "t", 
     "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.85518441261217*^9, 3.8551844677844267`*^9, {3.855184593731713*^9, 
   3.8551846093882985`*^9}, {3.855186033565518*^9, 3.855186070493218*^9}, 
   3.8551872905351686`*^9, 3.855187333688809*^9, 3.8551877878756323`*^9, 
   3.85518839113341*^9, 3.8551885714097843`*^9, 3.855330748654805*^9, 
   3.85533994850349*^9, 3.8553432897098618`*^9, 3.8553441256364403`*^9, 
   3.855352860560979*^9, 3.855449708442305*^9, 3.855507706165387*^9, 
   3.855508508934155*^9, 3.855513004292221*^9, 3.8555334796914883`*^9, 
   3.8555790251063266`*^9, 3.8555933958770013`*^9, 3.8557507072764435`*^9},
 CellLabel->
  "Out[535]=",ExpressionUUID->"f8e8ec8b-2d58-4b69-ba7b-f8563a417d02"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[CapitalPsi]", "Subsubsection",
 CellChangeTimes->{{3.8551844780254145`*^9, 3.855184478181778*^9}, {
   3.8551879809063168`*^9, 3.855187984256394*^9}, 
   3.855188584914287*^9},ExpressionUUID->"d4aee5c9-12b4-4d08-8e10-\
2a1e837862b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", "=", 
   RowBox[{
    RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "bb", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DColor", "[", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"LocalField", "[", "t", "]"}]}], "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "aa", 
             "]"}], "[", 
            RowBox[{"LocalField", "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "aa", 
              "]"}], "[", 
             RowBox[{"LocalField", "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}]}], 
      "/.", "AdinkraReduce"}], "//.", "TemporalGauge"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalField", "]"}]}], "Input",
 CellChangeTimes->{{3.8551840937626786`*^9, 3.8551842430089455`*^9}, {
   3.855184325771493*^9, 3.85518438825854*^9}, {3.8551844430916653`*^9, 
   3.8551844629276648`*^9}, {3.8551845318931665`*^9, 3.8551845907638836`*^9}, 
   3.855187226192778*^9, {3.8551880142954693`*^9, 3.855188044320595*^9}, {
   3.855188128146277*^9, 3.8551881329389973`*^9}, 3.855188586886957*^9, {
   3.8551891937813797`*^9, 3.8551891965569773`*^9}},
 CellLabel->
  "In[537]:=",ExpressionUUID->"180e38e6-8a15-4979-b462-0447f2a752b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DColor", "[", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", "t", 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8551880722648907`*^9, 3.8551881157778797`*^9}, {
  3.8551881461485233`*^9, 3.8551881555884047`*^9}, {3.855188591647058*^9, 
  3.855188654282488*^9}, {3.8551892262044773`*^9, 3.855189226585593*^9}},
 CellLabel->
  "In[540]:=",ExpressionUUID->"58fec4c6-a1c0-4150-9d9f-80eb99c2846f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["IntG", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["IntF", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["Intd", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Am", "[", "2", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Am", "[", "3", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Am", "[", "1", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"TwoBmn", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"TwoBmn", "[", 
      RowBox[{"2", ",", "3"}], "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["\[CurlyPhi]", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"TwoBmn", "[", 
       RowBox[{"3", ",", "1"}], "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["IntGt", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    SuperscriptBox["Bt", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["At", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["IntFt", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8551881161656847`*^9, 3.855188155952445*^9}, {
   3.855188592389255*^9, 3.855188656905959*^9}, 3.8551892274574833`*^9, 
   3.855330748732885*^9, 3.8553399485659747`*^9, 3.8553432898035793`*^9, 
   3.8553441256989274`*^9, 3.8553528609193573`*^9, 3.855449708488933*^9, 
   3.85550770620961*^9, 3.8555085089665194`*^9, 3.8555130043392*^9, 
   3.855533479838838*^9, 3.8555790251688385`*^9, 3.855593395908245*^9, 
   3.8557507073232746`*^9},
 CellLabel->
  "Out[540]=",ExpressionUUID->"8ba7ce61-58cd-4836-8337-551fe56316b9"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Generate Adinkra Data, neither Vtilde nor V satisy so16 algebra, neither \
Vtilde nor V are linearly independent\
\>", "Subsection",
 CellChangeTimes->{{3.855188733886129*^9, 3.855188738913618*^9}, {
  3.85519119587801*^9, 3.85519120653293*^9}, {3.8551912515952168`*^9, 
  3.8551912581280117`*^9}},ExpressionUUID->"2730a406-c23f-47f0-919f-\
8844ccf6dd7a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateLandR", "[", 
  RowBox[{"DColor", ",", 
   RowBox[{"Phi", "[", "t", "]"}], ",", 
   RowBox[{"Psi", "[", "t", "]"}], ",", "N4VT"}], "]"}]], "Input",
 CellChangeTimes->{{3.7371684513702135`*^9, 3.7371684558078585`*^9}, {
  3.7371686153713226`*^9, 3.7371686215749187`*^9}, {3.7379770764326396`*^9, 
  3.7379770781577387`*^9}, {3.855188820840563*^9, 3.8551888234843597`*^9}},
 CellLabel->
  "In[541]:=",ExpressionUUID->"b9a765a8-53ca-4a24-9e3e-8243d7f2e719"],

Cell[BoxData[
 RowBox[{"{", "\<\"L and R are loaded for Rep = N4VT\"\>", "}"}]], "Output",
 CellChangeTimes->{3.7371686234656706`*^9, 3.737208714088056*^9, 
  3.73797706507899*^9, 3.7379781273807507`*^9, 3.7464545839249144`*^9, 
  3.7501013412349496`*^9, 3.7501018895459633`*^9, 3.75391944052978*^9, 
  3.753922258302796*^9, 3.855188842877777*^9, 3.8551892450444202`*^9, 
  3.8553307487797747`*^9, 3.85533994862846*^9, 3.855343289873714*^9, 
  3.855344125745818*^9, 3.855352861103903*^9, 3.855449708530571*^9, 
  3.855507706251185*^9, 3.855508509009245*^9, 3.855513004380856*^9, 
  3.855533485455364*^9, 3.8555790252156773`*^9, 3.8555933959551067`*^9, 
  3.8557507073701477`*^9},
 CellLabel->
  "Out[541]=",ExpressionUUID->"59f46679-0ee4-4ba9-9b57-0abd37ebe283"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "N4VT", "]"}]], "Input",
 CellChangeTimes->{{3.855189249226427*^9, 3.855189274377287*^9}, {
  3.8551912807242203`*^9, 3.855191282847776*^9}},
 CellLabel->
  "In[542]:=",ExpressionUUID->"c43904b4-0fb9-4499-a73a-33a8115bc053"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.8551892555510197`*^9, 3.8551892750638933`*^9}, 
   3.8551912857644253`*^9, 3.855330748951607*^9, 3.8553399487534304`*^9, 
   3.8553432900143323`*^9, 3.855344125855146*^9, 3.855352861264344*^9, 
   3.855449708599057*^9, 3.855507706308182*^9, 3.85550850904914*^9, 
   3.855513019545402*^9, 3.8555334889363527`*^9, 3.8555790253250246`*^9, 
   3.8555933960601664`*^9, 3.8557507074794874`*^9},
 CellLabel->
  "Out[542]=",ExpressionUUID->"d734a8af-0101-4f62-afaf-055282fab247"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "N4VT", "]"}]], "Input",
 CellChangeTimes->{{3.855189283345127*^9, 3.8551893176081038`*^9}},
 CellLabel->
  "In[543]:=",ExpressionUUID->"cfb00aa5-3433-4e3e-84c2-f5038eebe57d"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = N4VT\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 16\"\>"},
        {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
        {"\<\"GATest = False\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.855189323594267*^9, 3.8553307490880823`*^9, 
  3.855339948815917*^9, 3.8553432901080666`*^9, 3.855344125902005*^9, 
  3.855352861356059*^9, 3.855449708640088*^9, 3.855507706355982*^9, 
  3.8555085090925426`*^9, 3.8555130299124727`*^9, 3.8555334958283663`*^9, 
  3.8555790253781457`*^9, 3.855593396106636*^9, 3.855750707526352*^9},
 CellLabel->
  "Out[543]=",ExpressionUUID->"bf539108-c65b-4863-b0b4-f103c8328cc6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", "N4VT", "]"}]], "Input",
 CellChangeTimes->{{3.855189501776252*^9, 3.855189503522293*^9}},
 CellLabel->
  "In[544]:=",ExpressionUUID->"257fbede-c1b2-4ce2-ae1c-fdb146fe4527"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    544, 1, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8555335017702847`*^9, 3.8555790255968738`*^9, 
  3.8555933963454094`*^9, 3.855750707767006*^9},
 CellLabel->
  "During evaluation of \
In[544]:=",ExpressionUUID->"d7e78b3f-bc48-4519-ae84-c6ed81640ef9"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    544, 2, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8555335017702847`*^9, 3.8555790255968738`*^9, 
  3.8555933963454094`*^9, 3.855750707829523*^9},
 CellLabel->
  "During evaluation of \
In[544]:=",ExpressionUUID->"d1056585-3b08-4bed-8ee4-fc0cbae55622"],

Cell[BoxData["\<\"L, R, GALR, GARL, V, Vtilde, cSoln[V[Rep]], \
cSoln[Vtilde[Rep]] are loaded for Rep = N4VT\"\>"], "Print",
 CellChangeTimes->{3.855189710000345*^9, 3.8553309558846416`*^9, 
  3.8553401588655505`*^9, 3.8553434936134057`*^9, 3.855344334737917*^9, 
  3.855353071262431*^9, 3.85550790649216*^9, 3.855508711409753*^9, 
  3.855513047145501*^9, 3.85553350187925*^9, 3.8555790256905966`*^9, 
  3.8555933964631276`*^9, 3.8557507078607492`*^9},
 CellLabel->
  "During evaluation of \
In[544]:=",ExpressionUUID->"1cf5d21a-caae-47ca-94a1-1e5507f0a401"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"N4VT", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.855189283345127*^9, 3.8551893176081038`*^9}, {
  3.8551897764749403`*^9, 3.855189785963108*^9}, {3.855189819306387*^9, 
  3.8551898195762243`*^9}, {3.855190292696702*^9, 3.8551902956346292`*^9}, {
  3.855190775357429*^9, 3.855190775469821*^9}},
 CellLabel->
  "In[545]:=",ExpressionUUID->"4a61aada-5a53-4328-99c7-fa6cef10f1e2"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    545, 3, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533506428856*^9, 3.855579025831196*^9, 
  3.8555933965851536`*^9, 3.8557507080482216`*^9},
 CellLabel->
  "During evaluation of \
In[545]:=",ExpressionUUID->"90f70eb7-ab71-481a-8645-9887e9ecf572"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    545, 4, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533506428856*^9, 3.855579025831196*^9, 
  3.8555933965851536`*^9, 3.8557507081362543`*^9},
 CellLabel->
  "During evaluation of \
In[545]:=",ExpressionUUID->"98cdb020-ac67-40af-a679-f5e5c47addcc"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 16\"\>"},
            {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
            {"\<\"GATest = False\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] =                                        \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                               c[1, 5]   c[2, 6]   c[3, 7]   c[4, 8]          \
                                                    1            c[2, 6]   \
c[3, 7]   c[4, 8]                                                    1        \
    c[2, 6]   c[3, 7]   c[4, 8]                                          1    \
        c[2, 6]   c[3, 7]   c[4, 8]\\n{{c[1, 2], c[1, 3], c[1, 4], c[1, 5], \
c[1, 6], c[1, 7], c[1, 8], c[1, 9], c[1, 10], c[1, 11], c[1, 12], c[1, 13], \
c[1, 14], c[1, 15], c[1, 16]}, {c[2, 3], c[2, 4], c[1, 6], c[2, 6], c[2, 7], \
c[2, 8], c[2, 9], c[2, 10], c[2, 11], c[2, 12], c[2, 13], c[2, 14], c[2, 15], \
c[2, 16]}, {c[3, 4], c[1, 7], c[2, 7], c[3, 7], c[3, 8], c[3, 9], c[3, 10], \
c[3, 11], c[3, 12], c[3, 13], c[3, 14], c[3, 15], c[3, 16]}, {c[1, 8], c[2, \
8], c[3, 8], c[4, 8], c[4, 9], c[4, 10], c[4, 11], c[4, 12], c[1, 16] - c[2, \
15] + c[3, 14], c[4, 14], -c[1, 14] + c[2, 13] + c[3, 16], c[4, 16]}, {c[1, \
2], c[1, 3], c[1, 4], c[5, 9], c[5, 10], c[5, 11], c[5, 12], c[5, 13], c[5, \
14], c[5, 15], c[5, 16]}, {c[2, 3], c[2, 4], c[6, 9], c[6, 10], c[1, 16] - \
c[2, 15] + c[5, 12], c[6, 12], c[3, 12] - c[4, 11] + c[5, 14], c[6, 14], \
-c[1, 12] + c[2, 11] + c[5, 16], c[6, 16]}, {c[3, 4], c[7, 9], c[7, 10], \
-c[1, 13] - c[3, 15] - c[5, 9], -c[2, 13] - c[3, 16] - c[6, 9], c[1, 11] - \
c[3, 9] + c[5, 15], c[2, 11] - c[4, 9] + c[5, 16], c[1, 9] + c[3, 11] - c[5, \
13], c[2, 9] + c[4, 11] - c[5, 14]}, {-c[1, 16] + c[2, 15] + c[7, 10], -c[1, \
15] - c[2, 16] + c[3, 13] + c[4, 14] + c[5, 11] + c[6, 12] - c[7, 9], -c[2, \
13] - c[3, 16] - c[5, 10], -c[2, 14] - c[4, 16] - c[6, 10], c[2, 11] - c[3, \
10] + c[5, 16], c[2, 12] - c[4, 10] + c[6, 16], c[1, 10] + c[4, 11] - c[5, \
14], c[2, 10] + c[4, 12] - c[6, 14]}, {-c[1, 2], -c[1, 3], -c[1, 4], ------- \
- ------- - ------- - -------, c[1, 6], c[1, 7], c[1, 8]}, {-c[2, 3], -c[2, \
4], c[1, 6], -(-) c[1, 5] + ------- - ------- - -------, c[2, 7], c[2, 8]}, \
{-c[3, 4], c[1, 7], c[2, 7], -(-) c[1, 5] - ------- + ------- - -------, c[3, \
8]}, {c[1, 8], c[2, 8], c[3, 8], -(-) c[1, 5] - ------- - ------- + -------}, \
{-c[1, 2], -c[1, 3], -c[1, 4]}, {-c[2, 3], -c[2, 4]}, {-c[3, 4]}} == {{0, 0, \
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \
0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, \
0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, \
{0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0}, \
{0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0}, {0, 0}, {0}}\\n \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                              \
                                                                        2     \
    2         2         2                                                     \
            2               2         2         2                             \
                          2               2         2         2               \
                              2               2         2         2\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4], c[1, \
5], c[1, 6], c[1, 7], c[1, 8], c[1, 9], c[1, 10], 0, c[1, 12], c[1, 13], \
-c[3, 16] + c[5, 10] + c[7, 12], c[1, 15], c[1, 16]}, {c[2, 3], c[2, 4], c[2, \
5], c[2, 6], c[2, 7], c[2, 8], c[3, 12], c[2, 10], -c[1, 12], 0, c[7, 12], \
c[2, 14], -c[5, 12], c[4, 14]}, {c[3, 4], c[3, 5], c[3, 6], c[3, 7], c[3, 8], \
0, c[3, 10], c[1, 9], c[3, 12], c[1, 15], c[1, 16] - c[5, 12] + c[7, 10], \
c[3, 15], c[3, 16]}, {c[4, 5], c[4, 6], c[4, 7], c[4, 8], -c[3, 10], 0, c[1, \
10], c[2, 10], -c[7, 10], c[4, 14], c[5, 10], c[4, 16]}, {c[5, 6], c[5, 7], \
c[5, 8], c[3, 15], c[5, 10], -c[1, 15], c[5, 12], c[5, 13], -c[1, 10] + c[3, \
12] + c[7, 16], 0, c[5, 16]}, {c[6, 7], c[6, 8], c[3, 16], c[4, 16], -c[1, \
16], -c[4, 14], c[7, 16], c[6, 14], -c[5, 16], 0}, {c[7, 8], -c[1, 15], c[7, \
10], c[1, 13], c[7, 12], 0, -c[1, 12] - c[3, 10] - c[5, 16], c[5, 13], c[7, \
16]}, {-c[1, 16] + c[5, 12] - c[7, 10], -c[4, 14], -c[3, 16] + c[5, 10] + \
c[7, 12], c[2, 14], c[1, 12] + c[3, 10] + c[5, 16], 0, -c[1, 10] + c[3, 12] + \
c[7, 16], c[6, 14]}, {-c[7, 8], -c[5, 7], -c[6, 7], -c[3, 7], -c[4, 7], c[1, \
7], c[2, 7]}, {-c[5, 8], -c[6, 8], -c[3, 8], -c[4, 8], c[1, 8], c[2, 8]}, \
{-c[5, 6], c[3, 5], c[4, 5], -c[1, 5], -c[2, 5]}, {c[3, 6], c[4, 6], -c[1, \
6], -c[2, 6]}, {-c[3, 4], -c[1, 3], -c[2, 3]}, {-c[1, 4], -c[2, 4]}, {-c[1, \
2]}} == {{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, \
0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, \
0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, \
0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, \
0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0}, \
{0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"AllsoNTest = False\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.855189323594267*^9, 3.855189796548195*^9, {3.855190289658647*^9, 
   3.85519029905656*^9}, 3.855190767163292*^9, 3.855190813488729*^9, 
   3.855330991362263*^9, 3.8553401950244493`*^9, 3.855343529182604*^9, 
   3.8553443720464344`*^9, 3.855353111906048*^9, 3.855507945023589*^9, 
   3.855508749448186*^9, 3.8555130897195463`*^9, 3.855533541767788*^9, 
   3.8555790602753086`*^9, 3.8555934330758715`*^9, 3.8557507434804363`*^9},
 CellLabel->
  "Out[545]=",ExpressionUUID->"3b403681-5217-4150-bbc5-98630815388c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"soNTest", "[", 
   RowBox[{"VtildesoN", "[", "N4VT", "]"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.8551910745558167`*^9, 3.855191080170794*^9}},
 CellLabel->
  "In[546]:=",ExpressionUUID->"a056cbc4-b480-4218-866e-cb66d6c60bd3"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.8551911242430763`*^9, 3.855331027501713*^9, 
  3.8553402315338345`*^9, 3.8553435648638954`*^9, 3.855344410557564*^9, 
  3.855353150438302*^9, 3.8555079839011993`*^9, 3.8555087860616007`*^9, 
  3.855513126789617*^9, 3.855533577693931*^9, 3.85557909755639*^9, 
  3.8555934684951625`*^9, 3.8557507788158426`*^9},
 CellLabel->
  "Out[546]=",ExpressionUUID->"0054d46d-a400-4aac-8069-bf9e13300d13"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"soNTest", "[", 
   RowBox[{"VsoN", "[", "N4VT", "]"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.8551910745558167`*^9, 3.855191080170794*^9}, {
  3.855191137237935*^9, 3.855191138017581*^9}},
 CellLabel->
  "In[547]:=",ExpressionUUID->"4ecef661-8f1e-46ab-9ee9-806511c3661f"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.8551911242430763`*^9, 3.8551911748137913`*^9, 
  3.855331063942273*^9, 3.855340267656141*^9, 3.855343603251317*^9, 
  3.8553444487024817`*^9, 3.8553531885911207`*^9, 3.855508021511215*^9, 
  3.855508822018689*^9, 3.855513164023757*^9, 3.855533613026067*^9, 
  3.8555791323824835`*^9, 3.85559350374129*^9, 3.8557508140865583`*^9},
 CellLabel->
  "Out[547]=",ExpressionUUID->"1171791b-7c43-4e35-bf42-ff3fe3b16053"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Importing SM-I, II, III, IV data", "Subsection",
 CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, {
   3.711019615465376*^9, 3.7110196192245913`*^9}, 3.7508646537269845`*^9, {
   3.84590353680224*^9, 
   3.845903547885751*^9}},ExpressionUUID->"502a4644-2ed7-42e7-bd5f-\
ab3a9dc8d088"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845904047283079*^9, 3.845904049374271*^9}, {
  3.8459255461831903`*^9, 3.8459255567409515`*^9}},
 CellLabel->
  "In[548]:=",ExpressionUUID->"3d54e663-7e0d-4193-8c74-416b92768a59"],

Cell[BoxData["\<\"C:\\\\Users\\\\kstiffle\\\\Dropbox\\\\Shared\\\\Brown\\\\\
Gabe\\\\adnk4DN4Holo\\\\OnGitHub\"\>"], "Output",
 CellChangeTimes->{
  3.845904050077847*^9, 3.8459191425751305`*^9, {3.845925543628937*^9, 
   3.8459255579284115`*^9}, 3.846006703560227*^9, 3.8461000329208255`*^9, 
   3.8474705951263275`*^9, 3.85170078494687*^9, 3.853975595713791*^9, 
   3.854990842737844*^9, 3.8550000441685686`*^9, 3.8551914991402082`*^9, 
   3.8553310640412188`*^9, 3.8553402677342744`*^9, 3.855343603329423*^9, 
   3.855344448811823*^9, 3.8553531886424913`*^9, 3.855508021618791*^9, 
   3.8555088220862722`*^9, 3.85551316857458*^9, 3.855533627306695*^9, 
   3.855579132435307*^9, 3.8555935037725363`*^9, 3.855750814133391*^9},
 CellLabel->
  "Out[548]=",ExpressionUUID->"d10e04b2-6e38-4f9b-a9fe-b50cce8f64af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<SMI.m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.711015329985261*^9, 3.7110153299942613`*^9}, {
   3.7110153816732173`*^9, 3.711015388684618*^9}, {3.711015433021154*^9, 
   3.7110154367103653`*^9}, {3.7110162679929113`*^9, 
   3.7110162751733227`*^9}, {3.7110192934459577`*^9, 3.7110192974371862`*^9}, 
   3.7118614493492174`*^9, {3.7121050682053976`*^9, 3.712105068294402*^9}, {
   3.7316158693672943`*^9, 3.73161587003924*^9}},
 CellLabel->
  "In[549]:=",ExpressionUUID->"444ad732-b7b9-4982-98fb-e241946fb719"],

Cell[BoxData["\<\"L, R, V, Vtilde, VPM, VtildePM, ncis, ntrans, chi0, and \
PrintIell) for Rep = SMI are loaded\"\>"], "Output",
 CellChangeTimes->{
  3.7110153900966988`*^9, {3.7110154338262*^9, 3.7110154376514187`*^9}, 
   3.7110158800827246`*^9, 3.711015930796625*^9, 3.7110160473822937`*^9, 
   3.711016344507288*^9, 3.711017118572562*^9, 3.7110181253481464`*^9, 
   3.711018360343587*^9, 3.711019301845438*^9, 3.7110199865806026`*^9, 
   3.7110512010190873`*^9, 3.7110535935069304`*^9, 3.711151616665992*^9, 
   3.711154655920827*^9, {3.7111572126520643`*^9, 3.7111572423137608`*^9}, 
   3.711157294038719*^9, 3.711170481165311*^9, 3.7112001748106327`*^9, 
   3.711399039868501*^9, 3.711433391828596*^9, 3.7114977165869536`*^9, 
   3.7115006472565784`*^9, 3.7115842086235924`*^9, 3.7116568034374123`*^9, 
   3.7116573372929473`*^9, 3.7117195278789387`*^9, 3.7118220163565083`*^9, 
   3.711861470825446*^9, 3.7119048107022963`*^9, 3.712008614632575*^9, 
   3.712022739786949*^9, 3.712105077270916*^9, 3.712357101747857*^9, 
   3.7123593084240713`*^9, 3.714589224182583*^9, 3.731615889684713*^9, {
   3.7316345603864827`*^9, 3.7316345720971045`*^9}, 3.7508646672111845`*^9, 
   3.8036654587487307`*^9, 3.803668329826899*^9, 3.8036684546927657`*^9, 
   3.8037348697145987`*^9, 3.845903658596712*^9, 3.845903726054986*^9, 
   3.84590405731083*^9, 3.8459191426474504`*^9, 3.845925560554137*^9, 
   3.8460067036052647`*^9, 3.8461000329770947`*^9, 3.847470595179125*^9, 
   3.851700784984666*^9, 3.8539755957454576`*^9, 3.854990842812398*^9, 
   3.855000044207713*^9, 3.855191499228344*^9, 3.8553310640880823`*^9, 
   3.855340267781138*^9, 3.855343603391902*^9, 3.855344448889903*^9, 
   3.855353188655085*^9, 3.8555080216916027`*^9, 3.855508822146419*^9, 
   3.855513168638082*^9, 3.8555336273619423`*^9, 3.8555791324526253`*^9, 
   3.855593503788122*^9, 3.855750814162162*^9},
 CellLabel->
  "Out[549]=",ExpressionUUID->"a12c4d7a-cf6c-4d18-9463-799dbbc22e95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<SMII.m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.71150063575192*^9, 3.7115006395731387`*^9}, {
  3.711657367639683*^9, 3.711657367720688*^9}, {3.71186146547114*^9, 
  3.7118614655411434`*^9}, {3.7121050707415423`*^9, 3.712105070813546*^9}, {
  3.7123570951014767`*^9, 3.712357095895522*^9}, {3.731615873650962*^9, 
  3.731615874782487*^9}},
 CellLabel->
  "In[550]:=",ExpressionUUID->"7d9dd3cb-f2b7-4fe8-9c7f-7656c1e136c9"],

Cell[BoxData["\<\"L, R, V, Vtilde, VPM, VtildePM, ncis, ntrans, chi0, and \
PrintIell) for Rep = SMII are loaded\"\>"], "Output",
 CellChangeTimes->{
  3.7115006475955973`*^9, 3.7115842091396217`*^9, 3.711656804000445*^9, 
   3.7116573377669744`*^9, 3.7116573683057213`*^9, 3.7117195336172667`*^9, 
   3.7118220174065685`*^9, 3.7118614710234575`*^9, 3.7119048108623056`*^9, 
   3.712008614786584*^9, 3.7120227401909723`*^9, 3.7121050774379253`*^9, 
   3.7123571018858647`*^9, 3.7123593085600796`*^9, 3.714589224258484*^9, 
   3.731615889700363*^9, {3.7316345604020786`*^9, 3.7316345721127625`*^9}, 
   3.750864667304943*^9, 3.8036654589726973`*^9, 3.8036683299518695`*^9, 
   3.803668454827224*^9, 3.803734869837302*^9, 3.845904060182055*^9, 
   3.8459191427255816`*^9, 3.8459255626745143`*^9, 3.846006703646658*^9, 
   3.8461000330239334`*^9, 3.847470595226004*^9, 3.8517007850315237`*^9, 
   3.853975595752778*^9, 3.854990842823761*^9, 3.855000044254571*^9, 
   3.8551914992398357`*^9, 3.8553310641424685`*^9, 3.8553402678303294`*^9, 
   3.8553436034543886`*^9, 3.85534444896801*^9, 3.8553531886941757`*^9, 
   3.8555080217408543`*^9, 3.8555088222037697`*^9, 3.855513168732033*^9, 
   3.855533627375235*^9, 3.8555791324838705`*^9, 3.855593503788122*^9, 
   3.8557508141934066`*^9},
 CellLabel->
  "Out[550]=",ExpressionUUID->"84687811-ec31-4160-b691-09c1eee3c222"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<SMIII.m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.71150063575192*^9, 3.7115006395731387`*^9}, {
   3.711657367639683*^9, 3.711657367720688*^9}, {3.71186146547114*^9, 
   3.7118614655411434`*^9}, {3.7121050707415423`*^9, 3.712105070813546*^9}, {
   3.7123570951014767`*^9, 3.712357095895522*^9}, {3.731615873650962*^9, 
   3.731615874782487*^9}, 3.73163455029001*^9},
 CellLabel->
  "In[551]:=",ExpressionUUID->"3dc64afe-ad91-4737-a2ae-c3e03cfb7e8b"],

Cell[BoxData["\<\"L, R, V, Vtilde, VPM, VtildePM, ncis, ntrans, chi0, and \
PrintIell) for Rep = SMIII are loaded\"\>"], "Output",
 CellChangeTimes->{
  3.7115006475955973`*^9, 3.7115842091396217`*^9, 3.711656804000445*^9, 
   3.7116573377669744`*^9, 3.7116573683057213`*^9, 3.7117195336172667`*^9, 
   3.7118220174065685`*^9, 3.7118614710234575`*^9, 3.7119048108623056`*^9, 
   3.712008614786584*^9, 3.7120227401909723`*^9, 3.7121050774379253`*^9, 
   3.7123571018858647`*^9, 3.7123593085600796`*^9, 3.714589224258484*^9, 
   3.731615889700363*^9, {3.7316345604177356`*^9, 3.7316345721127625`*^9}, 
   3.7508646673205338`*^9, 3.8036654590846987`*^9, 3.8036683300724487`*^9, 
   3.803668454952193*^9, 3.8037348699649286`*^9, 3.845904061856393*^9, 
   3.845919142803689*^9, 3.8459255645480165`*^9, 3.846006703686697*^9, 
   3.846100033086444*^9, 3.8474705952821236`*^9, 3.851700785078388*^9, 
   3.853975595784004*^9, 3.8549908428346443`*^9, 3.8550000443014355`*^9, 
   3.855191499286331*^9, 3.855331064175235*^9, 3.855340267892788*^9, 
   3.8553436035168924`*^9, 3.855344449046116*^9, 3.85535318870402*^9, 
   3.85550802178612*^9, 3.855508822213561*^9, 3.855513168786381*^9, 
   3.855533627408578*^9, 3.8555791325206847`*^9, 3.8555935038037443`*^9, 
   3.8557508142327886`*^9},
 CellLabel->
  "Out[551]=",ExpressionUUID->"cf4148d6-1750-4d91-9a07-1796dcbb0ed8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<SMIV.m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.71150063575192*^9, 3.7115006395731387`*^9}, {
   3.711657367639683*^9, 3.711657367720688*^9}, {3.71186146547114*^9, 
   3.7118614655411434`*^9}, {3.7121050707415423`*^9, 3.712105070813546*^9}, {
   3.7123570951014767`*^9, 3.712357095895522*^9}, {3.731615873650962*^9, 
   3.731615874782487*^9}, 3.73163455029001*^9, 3.750864589601704*^9},
 CellLabel->
  "In[552]:=",ExpressionUUID->"267024b7-a15d-4d98-9a5e-061f101692c4"],

Cell[BoxData["\<\"L, R, V, Vtilde, VPM, VtildePM, ZetaGen, ZetatildeGen, \
Holoraumy, Monodromy, ncis, ntrans, chi0, and PrintIell) for Rep = SMIV are \
loaded\"\>"], "Output",
 CellChangeTimes->{
  3.7115006475955973`*^9, 3.7115842091396217`*^9, 3.711656804000445*^9, 
   3.7116573377669744`*^9, 3.7116573683057213`*^9, 3.7117195336172667`*^9, 
   3.7118220174065685`*^9, 3.7118614710234575`*^9, 3.7119048108623056`*^9, 
   3.712008614786584*^9, 3.7120227401909723`*^9, 3.7121050774379253`*^9, 
   3.7123571018858647`*^9, 3.7123593085600796`*^9, 3.714589224258484*^9, 
   3.731615889700363*^9, {3.7316345604177356`*^9, 3.7316345721127625`*^9}, 
   3.750864667351782*^9, 3.803665459204693*^9, 3.803668330198498*^9, 
   3.803668455092786*^9, 3.8037348700895963`*^9, 3.845904063590777*^9, 
   3.8459191428661623`*^9, 3.8459255671242037`*^9, 3.846006703729656*^9, 
   3.846100033133309*^9, 3.847470595332489*^9, 3.851700785125252*^9, 
   3.853975595795796*^9, 3.8549908428832283`*^9, 3.8550000443483257`*^9, 
   3.855191499343699*^9, 3.8553310642255716`*^9, 3.8553402679396524`*^9, 
   3.855343603563737*^9, 3.855344449139845*^9, 3.855353188739174*^9, 
   3.85550802183075*^9, 3.855508822271349*^9, 3.8555131688432693`*^9, 
   3.8555336274486837`*^9, 3.8555791325528436`*^9, 3.855593503819401*^9, 
   3.8557508142660584`*^9},
 CellLabel->
  "Out[552]=",ExpressionUUID->"6cdc5105-99d3-4cb2-953b-b065bfffa107"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"SMI", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.8459036049204206`*^9, 3.8459036085804653`*^9}, {
  3.845904216756735*^9, 3.84590421724284*^9}},
 CellLabel->
  "In[553]:=",ExpressionUUID->"b38e3799-f92f-40d9-8fd8-7cce398a2458"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    553, 5, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627496544*^9, 3.855579132585202*^9, 
  3.8555935038350143`*^9, 3.855750814297304*^9},
 CellLabel->
  "During evaluation of \
In[553]:=",ExpressionUUID->"9bb9fa5e-1203-4c7e-aad9-5e3213d6d683"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    553, 6, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627496544*^9, 3.855579132585202*^9, 
  3.8555935038350143`*^9, 3.855750814297304*^9},
 CellLabel->
  "During evaluation of \
In[553]:=",ExpressionUUID->"31309816-bf48-45c7-83af-927faca8e8ed"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 4\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"},
            {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\))\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, {c[1, \
4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{-c[1, 4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"AllsoNTest = True\"\>"},
    {"\<\"Allsu2MutuallyCommute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.8459255695923767`*^9, 3.8460067038703175`*^9, 
  3.846100033289522*^9, 3.8474705954887266`*^9, 3.851700785281464*^9, 
  3.8539755959308043`*^9, 3.854990843027154*^9, 3.8550000444888906`*^9, 
  3.8551914994907627`*^9, 3.8553310643817744`*^9, 3.855340268111519*^9, 
  3.855340753492568*^9, 3.855343603741066*^9, 3.8553437537269287`*^9, 
  3.855344449311679*^9, 3.855353188894409*^9, 3.855508021979516*^9, 
  3.855508822411237*^9, 3.855513168977604*^9, 3.85553362759613*^9, 
  3.8555791326945963`*^9, 3.8555935039769077`*^9, 3.855750814406678*^9},
 CellLabel->
  "Out[553]=",ExpressionUUID->"e3d4eefe-8b47-4858-8999-36bfbe1459d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"SMII", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{3.84590424107075*^9},
 CellLabel->
  "In[554]:=",ExpressionUUID->"c5fd77a0-3cc4-43b0-8721-979c426818e4"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    554, 7, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627630019*^9, 3.8555791327348347`*^9, 
  3.855593503994828*^9, 3.855750814437929*^9},
 CellLabel->
  "During evaluation of \
In[554]:=",ExpressionUUID->"22c95024-5129-4cf5-9cf9-57e0d3510fca"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    554, 8, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627630019*^9, 3.8555791327348347`*^9, 
  3.855593503994828*^9, 3.855750814453517*^9},
 CellLabel->
  "During evaluation of \
In[554]:=",ExpressionUUID->"479548b4-36cd-4651-ba2f-41327f8bb786"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 4\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"},
            {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, {-c[1, \
4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{c[1, 4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"AllsoNTest = True\"\>"},
    {"\<\"Allsu2MutuallyCommute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.845904241926162*^9, 3.845925573167369*^9, 
  3.8460067040166564`*^9, 3.846100033445736*^9, 3.8474705956449137`*^9, 
  3.8517007854220605`*^9, 3.853975596070217*^9, 3.854990843162157*^9, 
  3.8550000446294823`*^9, 3.855191499634869*^9, 3.8553310645379715`*^9, 
  3.8553402682677326`*^9, 3.855343603904949*^9, 3.8553444494835143`*^9, 
  3.855353189033641*^9, 3.855508022117363*^9, 3.855508822556487*^9, 
  3.85551316910892*^9, 3.855533627736817*^9, 3.8555791328305845`*^9, 
  3.855593504112645*^9, 3.855750814547274*^9},
 CellLabel->
  "Out[554]=",ExpressionUUID->"4ffe2030-ba82-42a7-b46d-ffd721be1638"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"SMIII", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.8459042580811663`*^9, 3.8459042581970053`*^9}},
 CellLabel->
  "In[555]:=",ExpressionUUID->"23d338b9-be72-4b75-8f94-c55f9c8300d3"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    555, 9, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627769431*^9, 3.8555791328618264`*^9, 
  3.855593504128259*^9, 3.8557508145941086`*^9},
 CellLabel->
  "During evaluation of \
In[555]:=",ExpressionUUID->"825e416d-d09e-4403-9fcd-534261bf7d35"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    555, 10, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627769431*^9, 3.8555791328618264`*^9, 
  3.855593504128259*^9, 3.8557508145941086`*^9},
 CellLabel->
  "During evaluation of \
In[555]:=",ExpressionUUID->"7412b8c9-a68d-473d-b895-67f5ed90b003"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 4\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"},
            {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, {-c[1, \
4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{c[1, 4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"AllsoNTest = True\"\>"},
    {"\<\"Allsu2MutuallyCommute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.845904259143066*^9, 3.845925575492669*^9, 
  3.846006704156165*^9, 3.8461000336019506`*^9, 3.847470595787421*^9, 
  3.8517007855626483`*^9, 3.8539755962117243`*^9, 3.854990843301268*^9, 
  3.8550000447857027`*^9, 3.8551914998032093`*^9, 3.855331064678579*^9, 
  3.8553402684193068`*^9, 3.8553436040714717`*^9, 3.8553444496553493`*^9, 
  3.855353189170147*^9, 3.85550802225524*^9, 3.855508822700818*^9, 
  3.8555131692405157`*^9, 3.85553362787635*^9, 3.8555791329835215`*^9, 
  3.8555935042532363`*^9, 3.855750814703458*^9},
 CellLabel->
  "Out[555]=",ExpressionUUID->"14bf068a-dc43-4f61-b375-afb77a307e24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"SMIV", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{3.8459042634518633`*^9},
 CellLabel->
  "In[556]:=",ExpressionUUID->"9bfca413-fca2-4c78-b2b6-f19f3cb3021c"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    556, 11, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627908493*^9, 3.8555791330147758`*^9, 
  3.855593504268832*^9, 3.8557508147347035`*^9},
 CellLabel->
  "During evaluation of \
In[556]:=",ExpressionUUID->"3858bbb3-85a5-4e37-962d-da74540b82d1"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    556, 12, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533627908493*^9, 3.8555791330147758`*^9, 
  3.855593504268832*^9, 3.8557508147347035`*^9},
 CellLabel->
  "During evaluation of \
In[556]:=",ExpressionUUID->"1e4d43de-80c6-4c93-af22-776ffcc1083a"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 4\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"},
            {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\))\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, {c[1, \
4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{-c[1, 4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"AllsoNTest = True\"\>"},
    {"\<\"Allsu2MutuallyCommute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.845904265269663*^9, 3.8459255778456163`*^9, 
  3.8460067042996626`*^9, 3.8461000337425423`*^9, 3.8474705959277*^9, 
  3.8517007857188616`*^9, 3.8539755963523273`*^9, 3.8549908434451017`*^9, 
  3.85500004494191*^9, 3.8551914999604597`*^9, 3.855331064853612*^9, 
  3.855340268577547*^9, 3.85534360428226*^9, 3.8553444498432217`*^9, 
  3.855353189314229*^9, 3.855508022391768*^9, 3.855508822845625*^9, 
  3.8555131693708467`*^9, 3.855533628014957*^9, 3.8555791331241083`*^9, 
  3.855593504378208*^9, 3.855750814844075*^9},
 CellLabel->
  "Out[556]=",ExpressionUUID->"151b5174-7437-472d-9506-8348fdf92542"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Comparing N4VT with SMi, TM
Looks like top to bottom, the L\[CloseCurlyQuote]s are (up to signs) SMI, TM, \
SMI, SMII
Also, R = L^T = L^-1, so just need to determine the 16 L\[CloseCurlyQuote]s \
and we\[CloseCurlyQuote]re good
Define Sign Matrix using Isaac\[CloseCurlyQuote]s BooleanFactors
VierZ[ii][jj]:= Vierrergruppe element[i] with the all rows zeroed except the \
jjth row\
\>", "Subsection",
 CellChangeTimes->{{3.855191555347822*^9, 3.855191561251338*^9}, {
  3.85519181420928*^9, 3.855191814954734*^9}, {3.855191925051064*^9, 
  3.8551919481835833`*^9}, {3.855192004146702*^9, 3.855192036533902*^9}, {
  3.8553311752926073`*^9, 3.8553312296218967`*^9}, {3.8553419976091933`*^9, 
  3.8553420044459205`*^9}, {3.8553420975138607`*^9, 3.8553421276361403`*^9}, {
  3.855342920623633*^9, 
  3.8553429485850987`*^9}},ExpressionUUID->"e941f10b-e118-4fa7-92cc-\
21f7f5f6ce9a"],

Cell[CellGroupData[{

Cell["Preliminaries and Load L[TM]", "Subsubsection",
 CellChangeTimes->{{3.8553420186003647`*^9, 3.855342052633946*^9}, 
   3.855345412005659*^9},ExpressionUUID->"d77d29bd-3c04-4289-8681-\
0301ab57ce5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WordToBoolean", "[", 
   RowBox[{"{", 
    RowBox[{"p1_", ",", "p2_", ",", "p3_", ",", "p4_"}], "}"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"p1", "*", 
    SuperscriptBox["2", "0"]}], "+", 
   RowBox[{"p2", "*", 
    SuperscriptBox["2", "1"]}], "+", 
   RowBox[{"p3", "*", 
    SuperscriptBox["2", "2"]}], "+", 
   RowBox[{"p4", "*", 
    SuperscriptBox["2", "3"]}]}]}]], "Input",
 CellChangeTimes->{{3.8553312502573433`*^9, 3.85533133863725*^9}, {
  3.8553314020490456`*^9, 3.85533141404463*^9}, {3.855331687484609*^9, 
  3.8553317051267543`*^9}},
 CellLabel->
  "In[557]:=",ExpressionUUID->"617ff6f1-3d7c-4db5-8f1d-7792a43d2ba4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"BooleanToWord", "[", 
      RowBox[{"WordToBoolean", "[", 
       RowBox[{"{", 
        RowBox[{"p1", ",", "p2", ",", "p3", ",", "p4"}], "}"}], "]"}], "]"}], 
     "=", 
     RowBox[{"{", 
      RowBox[{"p1", ",", "p2", ",", "p3", ",", "p4"}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"p1", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"p2", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"p3", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"p4", ",", "0", ",", "1"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8553401586312103`*^9, 3.8553401624682264`*^9}, {
  3.855340319566986*^9, 3.855340334197463*^9}, {3.8553405799757876`*^9, 
  3.8553406679084263`*^9}},
 CellLabel->
  "In[558]:=",ExpressionUUID->"cd8ad6de-1c06-4f7d-ac70-7073ff17ce74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BooleanToWord", "[", "15", "]"}]], "Input",
 CellChangeTimes->{{3.855340672229804*^9, 3.855340691680993*^9}},
 CellLabel->
  "In[559]:=",ExpressionUUID->"96cafc8e-5f40-4e13-9f3a-01ad3d4a20d5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.8553406764732704`*^9, 3.8553406921266212`*^9}, 
   3.855343604422888*^9, 3.8553444500150566`*^9, 3.855353189352192*^9, 
   3.855508022444468*^9, 3.8555088229027853`*^9, 3.85551318853706*^9, 
   3.8555336280597963`*^9, 3.855579133171006*^9, 3.85559350440946*^9, 
   3.8557508148909135`*^9},
 CellLabel->
  "Out[559]=",ExpressionUUID->"47053c41-03e6-4c31-ad13-c36fd2e585be"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SignMatrix4", "[", "BooleanFactor_", "]"}], " ", ":=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        RowBox[{"BooleanToWord", "[", "BooleanFactor", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]], ",", "0", ",", "0", ",", "0"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        RowBox[{"BooleanToWord", "[", "BooleanFactor", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]], ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        RowBox[{"BooleanToWord", "[", "BooleanFactor", "]"}], "[", 
        RowBox[{"[", "3", "]"}], "]"}]], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        RowBox[{"BooleanToWord", "[", "BooleanFactor", "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}]]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8553310758226085`*^9, 3.8553310790104895`*^9}, {
  3.8553312187315245`*^9, 3.8553312411578608`*^9}, {3.8553313688484097`*^9, 
  3.8553314948663416`*^9}, {3.8553316621713147`*^9, 3.8553316795916066`*^9}, {
  3.8553317132669272`*^9, 3.8553317157933383`*^9}, {3.855340255146411*^9, 
  3.855340291868252*^9}},
 CellLabel->
  "In[560]:=",ExpressionUUID->"fe06db47-f564-477c-9d5b-4f04fdc8091b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vier", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.855342688179122*^9, 3.855342692172509*^9}, {
  3.855342751272184*^9, 3.8553427513189325`*^9}},
 CellLabel->
  "In[561]:=",ExpressionUUID->"109558cf-e4f0-45c0-a780-a3fba6cb0f90"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8553426863887906`*^9, 3.855342692422317*^9}, 
   3.855342751975032*^9, 3.855343604485795*^9, 3.8553444501244125`*^9, 
   3.855353189386187*^9, 3.855508022499765*^9, 3.8555088229611807`*^9, 
   3.8555131885852003`*^9, 3.855533628106545*^9, 3.8555791332334576`*^9, 
   3.8555935044250727`*^9, 3.8557508149533987`*^9},
 CellLabel->
  "Out[561]=",ExpressionUUID->"a33ec451-368e-428e-b280-0f6cf0aaa2d6"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SelectRow", "[", "1", "]"}], " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SelectRow", "[", "2", "]"}], " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SelectRow", "[", "3", "]"}], " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SelectRow", "[", "4", "]"}], " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.85534272199377*^9, 3.8553428016554337`*^9}, {
  3.855342870218537*^9, 3.8553428793372755`*^9}},
 CellLabel->
  "In[562]:=",ExpressionUUID->"08cdf0e0-f956-46bd-a917-a9ad396ab143"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"VierZ", "[", "ii", "]"}], "[", "jj", "]"}], "=", 
    RowBox[{
     RowBox[{"SelectRow", "[", "jj", "]"}], ".", 
     RowBox[{"Vier", "[", 
      RowBox[{"[", "ii", "]"}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"jj", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8553413779522066`*^9, 3.8553414175095406`*^9}, {
   3.8553414810185657`*^9, 3.8553414833721128`*^9}, {3.8553415456288257`*^9, 
   3.8553415896478343`*^9}, {3.8553416206979847`*^9, 3.855341666610546*^9}, {
   3.8553417283335466`*^9, 3.8553417572581697`*^9}, {3.85534251204733*^9, 
   3.8553425152685833`*^9}, 3.855342550131394*^9, {3.855342654010993*^9, 
   3.8553426972964773`*^9}, {3.855342805071258*^9, 3.855342809366322*^9}, 
   3.8553428442406316`*^9},
 CellLabel->
  "In[566]:=",ExpressionUUID->"d57baf87-1e0a-4adf-b6db-f61a3ebf732e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"VierZ", "[", "4", "]"}], "[", "4", "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8553428205776463`*^9, 3.8553428554609003`*^9}, {
  3.8553428865937586`*^9, 3.855342902157829*^9}},
 CellLabel->
  "In[567]:=",ExpressionUUID->"35ca86ac-ca4a-41cd-b070-3c021313d97c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", "0", "0", "0"},
     {"0", "0", "0", "0"},
     {"1", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553428312911673`*^9, 3.855342902423421*^9}, 
   3.8553436045815506`*^9, 3.855344450218134*^9, 3.85535318942393*^9, 
   3.85550802260384*^9, 3.8555088230269413`*^9, 3.855513188638145*^9, 
   3.8555336281602907`*^9, 3.8555791332803545`*^9, 3.855593504440667*^9, 
   3.8557508150002623`*^9},
 CellLabel->
  "Out[567]//MatrixForm=",ExpressionUUID->"51468aa0-c4a4-4876-a5e9-\
b7a1b8a830dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SignMatrix4", "[", "13", "]"}]], "Input",
 CellChangeTimes->{{3.855340718541568*^9, 3.855340736376798*^9}},
 CellLabel->
  "In[568]:=",ExpressionUUID->"3625ce18-4c4c-4652-93a0-8508a0efebdb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8553407215644717`*^9, 3.855340736673603*^9}, 
   3.8553417889413137`*^9, 3.855343604628445*^9, 3.855344450296241*^9, 
   3.8553531894497223`*^9, 3.855508022613633*^9, 3.855508823086905*^9, 
   3.8555131886758833`*^9, 3.8555336281732683`*^9, 3.8555791333115635`*^9, 
   3.8555935044563217`*^9, 3.8557508150315084`*^9},
 CellLabel->
  "Out[568]=",ExpressionUUID->"b4523eca-eda0-441a-9fb2-191c012c2387"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "TM", "]"}], "=", 
   RowBox[{"L", "[", "553212", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.855191748000538*^9, 3.855191764263989*^9}},
 CellLabel->
  "In[569]:=",ExpressionUUID->"9c2a0e5f-6f6e-43de-b348-76df3f1fadbe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintAllL", "[", "TM", "]"}], "//", "TeXForm"}]], "Input",
 CellChangeTimes->{{3.855371423693122*^9, 3.855371445869062*^9}},
 CellLabel->
  "In[570]:=",ExpressionUUID->"8929c3dd-7986-4cdc-9574-40233090e4bc"],

Cell["\<\
\\left\\{\\left(
\\begin{array}{cccc}
 1 & 0 & 0 & 0 \\\\
 0 & 0 & -1 & 0 \\\\
 0 & 0 & 0 & -1 \\\\
 0 & -1 & 0 & 0 \\\\
\\end{array}
\\right),\\left(
\\begin{array}{cccc}
 0 & 1 & 0 & 0 \\\\
 0 & 0 & 0 & 1 \\\\
 0 & 0 & -1 & 0 \\\\
 1 & 0 & 0 & 0 \\\\
\\end{array}
\\right),\\left(
\\begin{array}{cccc}
 0 & 0 & 1 & 0 \\\\
 1 & 0 & 0 & 0 \\\\
 0 & 1 & 0 & 0 \\\\
 0 & 0 & 0 & -1 \\\\
\\end{array}
\\right),\\left(
\\begin{array}{cccc}
 0 & 0 & 0 & 1 \\\\
 0 & -1 & 0 & 0 \\\\
 1 & 0 & 0 & 0 \\\\
 0 & 0 & 1 & 0 \\\\
\\end{array}
\\right)\\right\\}\
\>", "Output",
 CellChangeTimes->{{3.8553714391253138`*^9, 3.855371446566029*^9}, 
   3.855508022694975*^9, 3.855508823236507*^9, 3.8555131887252417`*^9, 
   3.855533628247422*^9, 3.8555791333922887`*^9, 3.8555935045031557`*^9, 
   3.8557508151197243`*^9},
 CellLabel->
  "Out[570]//TeXForm=",ExpressionUUID->"8f65851b-2189-4d2a-853d-b12f8cf831a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "TM", "]"}]], "Input",
 CellChangeTimes->{{3.8553716447899513`*^9, 3.855371650038382*^9}},
 CellLabel->
  "In[571]:=",ExpressionUUID->"9f5430bf-4b83-4a82-9b1a-ce43f1676416"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.85537165079421*^9, 3.855508022702508*^9, 
  3.8555088232432947`*^9, 3.855513188734795*^9, 3.855533628256673*^9, 
  3.855579133439121*^9, 3.8555935045031557`*^9, 3.855750815182185*^9},
 CellLabel->
  "Out[571]=",ExpressionUUID->"4434778e-d31e-4966-9950-b1af3f024081"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I=1, same Vierergruppe and SignMatrix structure as 2,3,4", \
"Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.8553464238882694`*^9, 
  3.8553464492726955`*^9}},ExpressionUUID->"ccc934fc-f81d-4cdc-bb91-\
c7b3e71de309"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}},
 CellLabel->
  "In[572]:=",ExpressionUUID->"6b26fe6d-b3da-456f-91f9-466ee9e5470c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.8553419324400125`*^9, 3.8553419637466784`*^9, 
  3.8553420837839203`*^9, 3.8553429820766068`*^9, 3.8553436048158693`*^9, 
  3.855343746470586*^9, 3.855345372702591*^9, 3.855353189486889*^9, 
  3.855508022749111*^9, 3.855508823253377*^9, 3.855513188774476*^9, 
  3.8555336282985487`*^9, 3.8555791334703627`*^9, 3.8555935045188065`*^9, 
  3.855750815229047*^9},
 CellLabel->
  "Out[573]=",ExpressionUUID->"ad30c83e-e3d6-4ffa-9e64-a1f614289808"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[574]:=",ExpressionUUID->"9e67b225-5aee-4a37-a044-c43af4b6b6ea"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, 
   3.855353189501976*^9, 3.855508022761551*^9, 3.855508823343409*^9, 
   3.8555131887849617`*^9, 3.855533628311562*^9, 3.8555791335016065`*^9, 
   3.855593504534421*^9, 3.855750815260301*^9},
 CellLabel->
  "Out[574]//MatrixForm=",ExpressionUUID->"ce5ecafa-ffea-462c-8a24-\
41ee53448ac5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "TM", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMII", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}},
 CellLabel->
  "In[575]:=",ExpressionUUID->"0b5567ee-317b-4623-9dea-2733b094a601"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, 3.855353189537198*^9, 
   3.855508022814497*^9, 3.855508823354623*^9, 3.85551318882647*^9, 
   3.8555336284008007`*^9, 3.8555791335328484`*^9, 3.8555935045557294`*^9, 
   3.855750815291531*^9},
 CellLabel->
  "Out[576]=",ExpressionUUID->"23b0bb28-cbae-4dce-9eed-bd74b5ec8419"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}},
 CellLabel->
  "In[577]:=",ExpressionUUID->"d1136ca8-20cb-4dfc-a49b-473caf8dadcb"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=2", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 
  3.85534567406693*^9}},ExpressionUUID->"3cb73045-957d-476d-bf86-\
c5d7ce3ebf0d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.8553456786776886`*^9}},
 CellLabel->
  "In[578]:=",ExpressionUUID->"b5fb7b37-5db5-4761-a883-cf11078e2706"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.8553419324400125`*^9, 3.8553419637466784`*^9, 
  3.8553420837839203`*^9, 3.8553429820766068`*^9, 3.8553436048158693`*^9, 
  3.855343746470586*^9, 3.855345372702591*^9, 3.855345686894044*^9, 
  3.855353189581243*^9, 3.8555080228281918`*^9, 3.8555088234123497`*^9, 
  3.855513188874707*^9, 3.855533628446286*^9, 3.855579133579713*^9, 
  3.855593504573466*^9, 3.8557508153383994`*^9},
 CellLabel->
  "Out[579]=",ExpressionUUID->"aff0982b-f58b-4aa8-a949-fd7066932514"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[580]:=",ExpressionUUID->"eda52d6d-23c5-4861-833d-49b10ed3a125"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, 
   3.855345687003393*^9, 3.855353189595155*^9, 3.8555080228710546`*^9, 
   3.855508823470976*^9, 3.855513188885894*^9, 3.855533628458824*^9, 
   3.855579133610974*^9, 3.8555935045890894`*^9, 3.8557508153696375`*^9},
 CellLabel->
  "Out[580]//MatrixForm=",ExpressionUUID->"054c9c58-e465-487a-a0d9-\
a23864d11d82"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "TM", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMII", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}},
 CellLabel->
  "In[581]:=",ExpressionUUID->"258befde-4149-45c1-9920-14ffa51217f5"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, 3.85534568703463*^9, 
   3.855353189633319*^9, 3.855508022880508*^9, 3.855508823480041*^9, 
   3.855513188921179*^9, 3.8555336284947557`*^9, 3.855579133642198*^9, 
   3.8555935045890894`*^9, 3.855750815416502*^9},
 CellLabel->
  "Out[582]=",ExpressionUUID->"ae43dc84-6259-4bfa-9fb5-c0e0bac9caaf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}},
 CellLabel->
  "In[583]:=",ExpressionUUID->"8230deb4-c837-4484-bec6-a16d87d2a0cc"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=3", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 
  3.855345700120443*^9}},ExpressionUUID->"d37d1841-5c45-493c-87f3-\
261337cdf69a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.8553457043438406`*^9}},
 CellLabel->
  "In[584]:=",ExpressionUUID->"c7a04718-6531-45ab-b4d8-68e9e49f6c1d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.855345710589468*^9}, 
   3.855353189719036*^9, 3.855508022924768*^9, 3.855508823543214*^9, 
   3.855513188963986*^9, 3.8555336285414877`*^9, 3.855579133673441*^9, 
   3.855593504620323*^9, 3.8557508154477453`*^9},
 CellLabel->
  "Out[585]=",ExpressionUUID->"4b94fc5c-1cec-4426-b8cb-a7dddd6d9cad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[586]:=",ExpressionUUID->"ab0a7262-0f1d-44c6-9db7-16ecad4c30af"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.855345710683195*^9}, 3.855353189755624*^9, 
   3.85550802296526*^9, 3.855508823602272*^9, 3.85551318897537*^9, 
   3.8555336285543547`*^9, 3.855579133721941*^9, 3.8555935046359434`*^9, 
   3.855750815494609*^9},
 CellLabel->
  "Out[586]//MatrixForm=",ExpressionUUID->"2aaf656b-9e7f-4fa0-bba4-\
d225fb52caa7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "TM", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMII", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}},
 CellLabel->
  "In[587]:=",ExpressionUUID->"3f15e48c-2dfe-45c5-9e6e-5ac7a49a85f7"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.855345710735528*^9}, 3.855353189768887*^9, 3.8555080229744577`*^9, 
   3.855508823611513*^9, 3.8555131890149727`*^9, 3.855533628592621*^9, 
   3.8555791337515574`*^9, 3.855593504651539*^9, 3.855750815525851*^9},
 CellLabel->
  "Out[588]=",ExpressionUUID->"ec4227ad-a846-4b4b-83d1-07508b55f762"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}},
 CellLabel->
  "In[589]:=",ExpressionUUID->"f6bd9330-a4e9-4b5b-bf97-58c37f47329e"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=4", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 
  3.8553457215158567`*^9}},ExpressionUUID->"fa3ca21a-30a3-44f2-b0b5-\
6e02d967ac92"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.8553457258167315`*^9}},
 CellLabel->
  "In[590]:=",ExpressionUUID->"2da16bb3-8fa1-4b8b-b2d0-9ea10adc01b7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.855345728865563*^9}, 
   3.855353189809965*^9, 3.855508023019084*^9, 3.8555088236750813`*^9, 
   3.855513189069241*^9, 3.855533628639525*^9, 3.8555791337859907`*^9, 
   3.8555935046671605`*^9, 3.8557508155727143`*^9},
 CellLabel->
  "Out[591]=",ExpressionUUID->"89632495-d379-453e-a0db-fcbcc218efc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[592]:=",ExpressionUUID->"f780a876-2d74-4269-bb85-36724785ec16"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.8553457289597964`*^9}, 3.855353189844554*^9, 
   3.8555080230294313`*^9, 3.855508823737113*^9, 3.855513189082725*^9, 
   3.855533628652925*^9, 3.855579133832855*^9, 3.855593504682782*^9, 
   3.855750815603957*^9},
 CellLabel->
  "Out[592]//MatrixForm=",ExpressionUUID->"f99fe748-1ef0-43c2-9dfd-\
628d2187784d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "TM", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMI", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"L", "[", "SMII", "]"}], "[", 
        RowBox[{"[", "LocalColor", "]"}], "]"}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}},
 CellLabel->
  "In[593]:=",ExpressionUUID->"10372cb8-dbe4-4f6a-9877-4be5cd62c34b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.855353189858089*^9, 3.8555080230390472`*^9, 
   3.855508823746118*^9, 3.855513189120399*^9, 3.855533628691568*^9, 
   3.8555791338484783`*^9, 3.855593504698403*^9, 3.8557508156351995`*^9},
 CellLabel->
  "Out[594]=",ExpressionUUID->"b70bb4d9-51dc-4416-836f-0dfa6e47efdc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}},
 CellLabel->
  "In[595]:=",ExpressionUUID->"867b6484-3a7b-4898-a61e-1a67d5b344eb"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=5, same Vierergruppe and SignMatrix structure as 6,7,8", \
"Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 3.855345740246008*^9}, {3.855346456954157*^9, 
  3.8553464727052755`*^9}},ExpressionUUID->"385b1112-7565-419a-a8c1-\
4253e5e67645"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalSMColor", " ", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "2"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", 
   RowBox[{"LocalSMColor", " ", "+", " ", 
    RowBox[{"4", "*", 
     RowBox[{"(", 
      RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalSMColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.855345815200879*^9}, {3.8553458671267076`*^9, 
  3.855345870534034*^9}, {3.8553460651738515`*^9, 3.85534617490268*^9}},
 CellLabel->
  "In[596]:=",ExpressionUUID->"d69face5-357d-4784-9781-d502eb84cc1f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855353189898796*^9, 3.855508023084437*^9, 3.855508823808772*^9, 
   3.85551318916709*^9, 3.855533628739071*^9, 3.855579133897928*^9, 
   3.8555935047296457`*^9, 3.855750815682068*^9},
 CellLabel->
  "Out[600]=",ExpressionUUID->"27c33622-5080-4793-804a-d5138c7c5261"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[601]:=",ExpressionUUID->"21c0e4ae-b031-4999-81c1-06c1154074cd"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.8553457289597964`*^9}, 3.8553457716906595`*^9, 
   3.855345827469302*^9, 3.8553461815872855`*^9, 3.855353189937492*^9, 
   3.8555080231254377`*^9, 3.855508823867992*^9, 3.85551318917997*^9, 
   3.855533628751483*^9, 3.8555791339291706`*^9, 3.855593504745267*^9, 
   3.8557508157289276`*^9},
 CellLabel->
  "Out[601]//MatrixForm=",ExpressionUUID->"ad9302b8-31da-49e1-8724-\
19871db2a5f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "1", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "TM", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "8", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "7", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMII", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}},
 CellLabel->
  "In[602]:=",ExpressionUUID->"e351441d-4a27-4ee9-934d-edea419ca30a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, 
   3.85535318995105*^9, 3.855508023166893*^9, 3.855508823877162*^9, 
   3.855513189218018*^9, 3.855533628791258*^9, 3.855579133971122*^9, 
   3.855593504745267*^9, 3.8557508157601705`*^9},
 CellLabel->
  "Out[603]=",ExpressionUUID->"0f611dd1-8422-4a27-bda8-ebad33c9cf1f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalSMColor", ",", "LocalVierNum", ",", "SetNo"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}, {
  3.855346244052048*^9, 3.855346266162693*^9}},
 CellLabel->
  "In[604]:=",ExpressionUUID->"0687581b-5b50-4709-a8f5-75b946f74b5b"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=6", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 3.855345740246008*^9}, {3.8553462775479712`*^9, 
  3.855346277672793*^9}},ExpressionUUID->"e1d75e7d-24fc-4c51-a14e-\
21477cedd4c7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalSMColor", " ", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "2"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", 
   RowBox[{"LocalSMColor", " ", "+", " ", 
    RowBox[{"4", "*", 
     RowBox[{"(", 
      RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalSMColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.855345815200879*^9}, {3.8553458671267076`*^9, 
  3.855345870534034*^9}, {3.8553460651738515`*^9, 3.85534617490268*^9}, {
  3.855346284284175*^9, 3.855346284471629*^9}},
 CellLabel->
  "In[605]:=",ExpressionUUID->"f597f316-91b5-4945-be2a-3a4ce45abe62"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855346296650095*^9, 3.855353189994622*^9, 3.855508023211831*^9, 
   3.855508823941896*^9, 3.8555131892649727`*^9, 3.855533628839057*^9, 
   3.8555791340057116`*^9, 3.8555935047765102`*^9, 3.8557508158070345`*^9},
 CellLabel->
  "Out[609]=",ExpressionUUID->"967765a7-bfa9-4a67-b6e2-7cb8fa37796e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[610]:=",ExpressionUUID->"84ab9a93-b846-4105-8732-e87bd99cd2b4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.8553457289597964`*^9}, 3.8553457716906595`*^9, 
   3.855345827469302*^9, 3.8553461815872855`*^9, 3.8553462991665373`*^9, 
   3.8553531900338583`*^9, 3.855508023222425*^9, 3.855508824001732*^9, 
   3.855513189277235*^9, 3.855533628851296*^9, 3.855579134052578*^9, 
   3.855593504807784*^9, 3.855750815838277*^9},
 CellLabel->
  "Out[610]//MatrixForm=",ExpressionUUID->"04625aed-ec7b-442d-a45d-\
b45380552ab9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "1", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "TM", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "8", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "7", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMII", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], 
   "]"}]}], "\[IndentingNewLine]", "LocalColor"}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}},
 CellLabel->
  "In[611]:=",ExpressionUUID->"a8649590-2bef-4a20-9db3-a9b9f247df71"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.855346360547741*^9}, 3.855353190049087*^9, 
   3.8555080232634153`*^9, 3.855508824011702*^9, 3.855513189318166*^9, 
   3.855533628892191*^9, 3.8555791340681987`*^9, 3.855593504823374*^9, 
   3.8557508158695197`*^9},
 CellLabel->
  "Out[612]=",ExpressionUUID->"cbde2f05-74d8-4d57-a3e3-07bbe9e7f35a"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.855346360547741*^9}, 3.855353190049087*^9, 
   3.8555080232634153`*^9, 3.855508824011702*^9, 3.855513189318166*^9, 
   3.855533628892191*^9, 3.8555791340681987`*^9, 3.855593504823374*^9, 
   3.855750815885141*^9},
 CellLabel->
  "Out[613]=",ExpressionUUID->"3b7b6596-7f3b-430f-afd6-60b2d8dfe3c3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalSMColor", ",", "LocalVierNum", ",", "SetNo"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}, {
  3.855346244052048*^9, 3.855346266162693*^9}},
 CellLabel->
  "In[614]:=",ExpressionUUID->"efc6550d-ec95-4283-894a-943b56cb625d"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=7", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 3.855345740246008*^9}, {3.8553462775479712`*^9, 
  3.855346277672793*^9}, {3.85534637386511*^9, 
  3.8553463739432077`*^9}},ExpressionUUID->"91bf27cd-2c4c-453d-9512-\
3419bf1ee18a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalSMColor", " ", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "2"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", 
   RowBox[{"LocalSMColor", " ", "+", " ", 
    RowBox[{"4", "*", 
     RowBox[{"(", 
      RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalSMColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.855345815200879*^9}, {3.8553458671267076`*^9, 
  3.855345870534034*^9}, {3.8553460651738515`*^9, 3.85534617490268*^9}, {
  3.855346284284175*^9, 3.855346284471629*^9}, {3.855346376661485*^9, 
  3.8553463767239513`*^9}},
 CellLabel->
  "In[615]:=",ExpressionUUID->"c4b58d46-1eee-435e-8c81-bedf7848bb53"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855346296650095*^9, 3.8553463817649536`*^9, 3.855353190097289*^9, 
   3.855508023312009*^9, 3.855508824076871*^9, 3.855513189371045*^9, 
   3.855533628942007*^9, 3.8555791341150637`*^9, 3.8555935048389955`*^9, 
   3.8557508159277935`*^9},
 CellLabel->
  "Out[619]=",ExpressionUUID->"fb4c8f02-e43d-4ba8-b353-a923e0d2f8e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[620]:=",ExpressionUUID->"e8d12b8b-e713-493d-bb51-b57fc24f5f47"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.8553457289597964`*^9}, 3.8553457716906595`*^9, 
   3.855345827469302*^9, 3.8553461815872855`*^9, 3.8553462991665373`*^9, 
   3.855346381874297*^9, 3.855353190136175*^9, 3.8555080233225927`*^9, 
   3.855508824135315*^9, 3.855513189383327*^9, 3.855533628954493*^9, 
   3.8555791341535234`*^9, 3.855593504854644*^9, 3.855750815977488*^9},
 CellLabel->
  "Out[620]//MatrixForm=",ExpressionUUID->"b1e42b5c-fe3d-4b16-8e28-\
40587f2ac1bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "1", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "TM", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "8", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "7", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMII", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], 
   "]"}]}], "\[IndentingNewLine]", "LocalColor"}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}},
 CellLabel->
  "In[621]:=",ExpressionUUID->"51dd26b5-f3ac-41c7-8f4a-a11fbcd23652"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.8553463819211645`*^9}, 3.855353190150468*^9, 
   3.85550802336343*^9, 3.855508824215987*^9, 3.8555131894259043`*^9, 
   3.855533628993351*^9, 3.8555791341847663`*^9, 3.8555935048725996`*^9, 
   3.8557508160007544`*^9},
 CellLabel->
  "Out[622]=",ExpressionUUID->"18666362-dcb7-4fed-9b51-bf200c9d8f17"],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.8553463819211645`*^9}, 3.855353190150468*^9, 
   3.85550802336343*^9, 3.855508824215987*^9, 3.8555131894259043`*^9, 
   3.855533628993351*^9, 3.8555791341847663`*^9, 3.8555935048725996`*^9, 
   3.855750816016376*^9},
 CellLabel->
  "Out[623]=",ExpressionUUID->"03d24308-f890-4ec9-a2d2-f1e27dbcb63e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalSMColor", ",", "LocalVierNum", ",", "SetNo"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}, {
  3.855346244052048*^9, 3.855346266162693*^9}},
 CellLabel->
  "In[624]:=",ExpressionUUID->"9ac4c58a-ec3c-40a1-acad-1917870d2682"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=8", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 3.855345740246008*^9}, {3.8553462775479712`*^9, 
  3.855346277672793*^9}, {3.85534637386511*^9, 
  3.855346391511611*^9}},ExpressionUUID->"8952005e-c149-4a19-8c5e-\
fd9c29f81dc3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalSMColor", " ", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "2"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", 
   RowBox[{"LocalSMColor", " ", "+", " ", 
    RowBox[{"4", "*", 
     RowBox[{"(", 
      RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalSMColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.855345815200879*^9}, {3.8553458671267076`*^9, 
  3.855345870534034*^9}, {3.8553460651738515`*^9, 3.85534617490268*^9}, {
  3.855346284284175*^9, 3.855346284471629*^9}, {3.855346376661485*^9, 
  3.8553463967742405`*^9}},
 CellLabel->
  "In[625]:=",ExpressionUUID->"704d0488-9c91-40c0-aa64-67abbefd12e9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855346296650095*^9, {3.8553463817649536`*^9, 3.855346400362047*^9}, 
   3.8553531901974363`*^9, 3.855508023422846*^9, 3.855508824278143*^9, 
   3.8555131894780817`*^9, 3.855533629042918*^9, 3.8555791342328553`*^9, 
   3.8555935049038424`*^9, 3.855750816063244*^9},
 CellLabel->
  "Out[629]=",ExpressionUUID->"63486a02-6c8b-4177-8da7-ae57c31f1c36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[630]:=",ExpressionUUID->"020745d1-63f6-45b7-8e1e-c549c4ff42de"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.8553457289597964`*^9}, 3.8553457716906595`*^9, 
   3.855345827469302*^9, 3.8553461815872855`*^9, 3.8553462991665373`*^9, {
   3.855346381874297*^9, 3.8553464004557753`*^9}, 3.855353190235285*^9, 
   3.85550802346815*^9, 3.855508824337866*^9, 3.855513189490109*^9, 
   3.8555336290560226`*^9, 3.855579134264098*^9, 3.8555935049194975`*^9, 
   3.855750816110103*^9},
 CellLabel->
  "Out[630]//MatrixForm=",ExpressionUUID->"5db891f5-0eac-4077-9b37-\
fa1c3d8a8f56"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "1", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "TM", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "8", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "7", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMII", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], 
   "]"}]}], "\[IndentingNewLine]", "LocalColor"}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}},
 CellLabel->
  "In[631]:=",ExpressionUUID->"6a71d041-99fa-4b36-ab38-ab242d1327f7"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.85534640050264*^9}, 3.855353190248293*^9, 
   3.8555080234786997`*^9, 3.855508824347868*^9, 3.855513189531022*^9, 
   3.855533629093872*^9, 3.8555791343045483`*^9, 3.85559350493512*^9, 
   3.8557508161413484`*^9},
 CellLabel->
  "Out[632]=",ExpressionUUID->"8c32457d-eb2b-44d8-a652-e776d67f4a2b"],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.85534640050264*^9}, 3.855353190248293*^9, 
   3.8555080234786997`*^9, 3.855508824347868*^9, 3.855513189531022*^9, 
   3.855533629093872*^9, 3.8555791343045483`*^9, 3.85559350493512*^9, 
   3.8557508161569676`*^9},
 CellLabel->
  "Out[633]=",ExpressionUUID->"7caf2ba7-841a-4377-9e84-21688a826152"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalSMColor", ",", "LocalVierNum", ",", "SetNo"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}, {
  3.855346244052048*^9, 3.855346266162693*^9}},
 CellLabel->
  "In[634]:=",ExpressionUUID->"fd4d0a84-5996-44b5-bd38-f1cdf7a5ce36"]
}, Closed]],

Cell[CellGroupData[{

Cell["I=9", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 3.855345740246008*^9}, {3.8553462775479712`*^9, 
  3.855346277672793*^9}, {3.85534637386511*^9, 3.855346391511611*^9}, {
  3.85534747019184*^9, 
  3.855347470644823*^9}},ExpressionUUID->"4b020abe-f70a-43b6-ab9a-\
759b2b827972"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalSMColor", " ", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "3"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"LocalColor", " ", "=", " ", 
  RowBox[{"LocalSMColor", " ", "+", " ", 
   RowBox[{"4", "*", 
    RowBox[{"(", 
     RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalSMColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.855345815200879*^9}, {3.8553458671267076`*^9, 
  3.855345870534034*^9}, {3.8553460651738515`*^9, 3.85534617490268*^9}, {
  3.855346284284175*^9, 3.855346284471629*^9}, {3.855346376661485*^9, 
  3.8553463967742405`*^9}, {3.855347475998728*^9, 3.8553475286306353`*^9}},
 CellLabel->
  "In[635]:=",ExpressionUUID->"cb82d84e-a3b4-4ecb-8fe3-2a565e9856e8"],

Cell[BoxData["9"], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855346296650095*^9, {3.8553463817649536`*^9, 3.855346400362047*^9}, {
   3.8553474867965574`*^9, 3.855347529849637*^9}, 3.855353190287969*^9, 
   3.855508023527842*^9, 3.8555088244115057`*^9, 3.855513189643601*^9, 
   3.855533629143762*^9, 3.8555791343514166`*^9, 3.8555935049507337`*^9, 
   3.855750816219452*^9},
 CellLabel->
  "Out[637]=",ExpressionUUID->"27822b26-4392-4b36-a365-4a75693e3343"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855346296650095*^9, {3.8553463817649536`*^9, 3.855346400362047*^9}, {
   3.8553474867965574`*^9, 3.855347529849637*^9}, 3.855353190287969*^9, 
   3.855508023527842*^9, 3.8555088244115057`*^9, 3.855513189643601*^9, 
   3.855533629143762*^9, 3.8555791343514166`*^9, 3.8555935049507337`*^9, 
   3.855750816219452*^9},
 CellLabel->
  "Out[639]=",ExpressionUUID->"897bab09-150f-4eca-84fe-ed2edc631a70"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[640]:=",ExpressionUUID->"f20b2067-2cd3-434b-b57c-6882c7b2b5e4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.8553457289597964`*^9}, 3.8553457716906595`*^9, 
   3.855345827469302*^9, 3.8553461815872855`*^9, 3.8553462991665373`*^9, {
   3.855346381874297*^9, 3.8553464004557753`*^9}, {3.8553475107212753`*^9, 
   3.8553475321935863`*^9}, 3.855353190323421*^9, 3.8555080235733967`*^9, 
   3.855508824473894*^9, 3.8555131896947327`*^9, 3.855533629162467*^9, 
   3.8555791343826656`*^9, 3.8555935049819756`*^9, 3.855750816266317*^9},
 CellLabel->
  "Out[640]//MatrixForm=",ExpressionUUID->"ee632300-dfea-431d-9096-\
32df77890995"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "15", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "TM", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "15", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "7", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMII", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], 
   "]"}]}], "\[IndentingNewLine]", "LocalColor"}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}},
 CellLabel->
  "In[641]:=",ExpressionUUID->"eae7c806-5249-4356-899c-7301630dedba"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.85534640050264*^9}, 3.855347604176818*^9, 
   3.855347652929284*^9, 3.855353190335474*^9, 3.855508023624865*^9, 
   3.855508824484695*^9, 3.85551318970645*^9, 3.8555336291993303`*^9, 
   3.8555791344139023`*^9, 3.8555935049819756`*^9, 3.85575081629756*^9},
 CellLabel->
  "Out[642]=",ExpressionUUID->"1543872c-09f8-407e-a7a2-fc8f4fc224d9"],

Cell[BoxData["9"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.85534640050264*^9}, 3.855347604176818*^9, 
   3.855347652929284*^9, 3.855353190335474*^9, 3.855508023624865*^9, 
   3.855508824484695*^9, 3.85551318970645*^9, 3.8555336291993303`*^9, 
   3.8555791344139023`*^9, 3.8555935049819756`*^9, 3.85575081629756*^9},
 CellLabel->
  "Out[643]=",ExpressionUUID->"6efd782e-6df4-450a-a5ea-6f0c4df7bf73"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalSMColor", ",", "LocalVierNum", ",", "SetNo"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}, {
  3.855346244052048*^9, 3.855346266162693*^9}},
 CellLabel->
  "In[644]:=",ExpressionUUID->"3f80419a-4db4-4fab-8292-36a5aa1203fe"]
}, Closed]],

Cell[CellGroupData[{

Cell["Find same Vierergruppe and SignMatrix form for I=9,10,11,12", \
"Subsubsection",
 CellChangeTimes->{{3.855347867767399*^9, 3.8553478696267796`*^9}, {
  3.855348097855099*^9, 
  3.8553481286587305`*^9}},ExpressionUUID->"17a0e779-34dc-4d97-bd1c-\
0645b24f1425"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "3"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalColor", "[", "LocalSMColor_", "]"}], ":=", " ", 
  RowBox[{"LocalSMColor", " ", "+", " ", 
   RowBox[{"4", "*", 
    RowBox[{"(", 
     RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "4"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8553477540487995`*^9, 3.8553477675041275`*^9}},
 CellLabel->
  "In[645]:=",ExpressionUUID->"edcc85f4-0ee5-4daa-8e0c-bff963ec6614"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"LTest", "[", "N4VT", "]"}], "[", 
       RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "15", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "TM", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "15", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "7", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMII", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
       "ArrayFlatten"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"LTest", "[", "N4VT", "]"}], "[", 
          RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "==", 
         RowBox[{
          RowBox[{"L", "[", "N4VT", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "]"}]}], 
        ",", 
        RowBox[{"LocalColor", "[", "LocalSMColor", "]"}]}], "}"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"LocalSMColor", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}, {3.8553477861998158`*^9, 
  3.8553478381275663`*^9}, {3.8553478913427043`*^9, 3.8553480356008224`*^9}},
 CellLabel->
  "In[648]:=",ExpressionUUID->"da58e155-820a-4d0b-9305-b083feda4fab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "9"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855508023680485*^9, 
   3.855508824553398*^9, 3.855513189797501*^9, {3.8555336292540827`*^9, 
   3.855533658059268*^9}, 3.855579134492009*^9, 3.855593505013218*^9, 
   3.855750816360044*^9},
 CellLabel->
  "During evaluation of \
In[648]:=",ExpressionUUID->"d448c1ff-7ea2-4c09-9299-1e5382e85f5c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "10"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855508023680485*^9, 
   3.855508824553398*^9, 3.855513189797501*^9, {3.8555336292540827`*^9, 
   3.855533658059268*^9}, 3.855579134492009*^9, 3.855593505013218*^9, 
   3.855750816360044*^9},
 CellLabel->
  "During evaluation of \
In[648]:=",ExpressionUUID->"084cab2b-b95d-4f15-b0fb-fe2834197076"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "11"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855508023680485*^9, 
   3.855508824553398*^9, 3.855513189797501*^9, {3.8555336292540827`*^9, 
   3.855533658059268*^9}, 3.855579134492009*^9, 3.855593505013218*^9, 
   3.8557508163756657`*^9},
 CellLabel->
  "During evaluation of \
In[648]:=",ExpressionUUID->"43a336db-bf52-422f-aed4-8d732f39f933"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "12"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855508023680485*^9, 
   3.855508824553398*^9, 3.855513189797501*^9, {3.8555336292540827`*^9, 
   3.855533658059268*^9}, 3.855579134492009*^9, 3.855593505013218*^9, 
   3.8557508163756657`*^9},
 CellLabel->
  "During evaluation of \
In[648]:=",ExpressionUUID->"fc053734-a4aa-45fb-86b1-cdff96c6f09d"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"SetNo", ",", "LocalVierNum", ",", "LocalColor"}], "]"}]], "Input",
 CellChangeTimes->{{3.8553612498558493`*^9, 3.855361265020803*^9}},
 CellLabel->
  "In[649]:=",ExpressionUUID->"1781abc9-fae7-44d7-be5d-13a2596a378c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["I=13", "Subsubsection",
 CellChangeTimes->{{3.8553420722192745`*^9, 3.8553420725629396`*^9}, {
  3.855345674004444*^9, 3.855345740246008*^9}, {3.8553462775479712`*^9, 
  3.855346277672793*^9}, {3.85534637386511*^9, 3.855346391511611*^9}, {
  3.85534747019184*^9, 3.855347470644823*^9}, {3.8553535077851152`*^9, 
  3.855353509395701*^9}},ExpressionUUID->"ecf61749-1e26-4086-bc76-\
7d40ed49375c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalSMColor", " ", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "4"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"LocalColor", " ", "=", " ", 
  RowBox[{"LocalSMColor", " ", "+", " ", 
   RowBox[{"4", "*", 
    RowBox[{"(", 
     RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "LocalSMColor", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "TM", "]"}], "[", "LocalSMColor", "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.855341911313651*^9, 3.8553419608244195`*^9}, {
  3.855345678615209*^9, 3.855345815200879*^9}, {3.8553458671267076`*^9, 
  3.855345870534034*^9}, {3.8553460651738515`*^9, 3.85534617490268*^9}, {
  3.855346284284175*^9, 3.855346284471629*^9}, {3.855346376661485*^9, 
  3.8553463967742405`*^9}, {3.855347475998728*^9, 3.8553475286306353`*^9}, {
  3.85535351632108*^9, 3.855353519992832*^9}},
 CellLabel->
  "In[650]:=",ExpressionUUID->"e2f333ca-26ce-441b-8ec9-20e186cb1ecf"],

Cell[BoxData["13"], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855346296650095*^9, {3.8553463817649536`*^9, 3.855346400362047*^9}, {
   3.8553474867965574`*^9, 3.855347529849637*^9}, 3.855353190287969*^9, 
   3.855353524082189*^9, 3.85550802374536*^9, 3.855508824619363*^9, 
   3.8555131898754673`*^9, 3.855533629386114*^9, 3.8555791345544944`*^9, 
   3.855593505060082*^9, 3.8557508164381514`*^9},
 CellLabel->
  "Out[652]=",ExpressionUUID->"ea7e7149-896b-4a7e-af23-15419b9bc41d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8553419324400125`*^9, 3.8553419637466784`*^9, 3.8553420837839203`*^9, 
   3.8553429820766068`*^9, 3.8553436048158693`*^9, 3.855343746470586*^9, 
   3.855345372702591*^9, {3.855345686894044*^9, 3.8553457687574425`*^9}, 
   3.855345821616067*^9, 3.855345871643529*^9, 3.855346177528963*^9, 
   3.855346296650095*^9, {3.8553463817649536`*^9, 3.855346400362047*^9}, {
   3.8553474867965574`*^9, 3.855347529849637*^9}, 3.855353190287969*^9, 
   3.855353524082189*^9, 3.85550802374536*^9, 3.855508824619363*^9, 
   3.8555131898754673`*^9, 3.855533629386114*^9, 3.8555791345544944`*^9, 
   3.855593505060082*^9, 3.8557508164381514`*^9},
 CellLabel->
  "Out[654]=",ExpressionUUID->"f2621c68-b784-4adc-995f-df65287a0ef9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VT", "]"}], "[", "LocalColor", "]"}]], "Input",
 CellChangeTimes->{{3.8551915654554863`*^9, 3.855191584362257*^9}, {
   3.855191845083342*^9, 3.8551918539898033`*^9}, {3.855191961944359*^9, 
   3.855191962754231*^9}, 3.855341867673306*^9, {3.8553419663566914`*^9, 
   3.855341968254983*^9}},
 CellLabel->
  "In[655]:=",ExpressionUUID->"6bd3385c-50f9-481c-9df5-87f77d5692d1"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855191578196288*^9, 3.855191584782832*^9}, {
   3.855191845536528*^9, 3.855191855678629*^9}, 3.855191963610095*^9, 
   3.855341868048105*^9, 3.855341968809252*^9, 3.8553420867234945`*^9, 
   3.8553436049564877`*^9, 3.855343760096307*^9, 3.8553453749077425`*^9, {
   3.855345687003393*^9, 3.8553457289597964`*^9}, 3.8553457716906595`*^9, 
   3.855345827469302*^9, 3.8553461815872855`*^9, 3.8553462991665373`*^9, {
   3.855346381874297*^9, 3.8553464004557753`*^9}, {3.8553475107212753`*^9, 
   3.8553475321935863`*^9}, 3.855353190323421*^9, 3.855353528680492*^9, 
   3.85550802376058*^9, 3.8555088246357803`*^9, 3.85551318989637*^9, 
   3.855533629433179*^9, 3.8555791346053667`*^9, 3.8555935050913258`*^9, 
   3.8557508164693933`*^9},
 CellLabel->
  "Out[655]//MatrixForm=",ExpressionUUID->"57239c11-507a-43b1-b23d-\
31c9e1b5d3a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "0", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "TM", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "8", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMI", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "15", "]"}], ".", 
        RowBox[{
         RowBox[{"L", "[", "SMII", "]"}], "[", 
         RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VT", "]"}], "[", "LocalColor", "]"}], "==", 
  RowBox[{
   RowBox[{"L", "[", "N4VT", "]"}], "[", 
   RowBox[{"[", "LocalColor", "]"}], 
   "]"}]}], "\[IndentingNewLine]", "LocalColor"}], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}, {3.8553535584222507`*^9, 
  3.8553535789384937`*^9}, {3.8553536206397343`*^9, 3.855353638435669*^9}},
 CellLabel->
  "In[656]:=",ExpressionUUID->"94ee965d-65b6-4782-94ec-f0b82fc90b2e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.85534640050264*^9}, 3.855347604176818*^9, 
   3.855347652929284*^9, 3.855353190335474*^9, 3.855353644095998*^9, 
   3.855508023802302*^9, 3.8555088246900883`*^9, 3.855513189941471*^9, 
   3.8555336294462023`*^9, 3.8555791346366124`*^9, 3.855593505106947*^9, 
   3.85575081651626*^9},
 CellLabel->
  "Out[657]=",ExpressionUUID->"605d04bc-c64b-4841-80a5-24443acc781f"],

Cell[BoxData["13"], "Output",
 CellChangeTimes->{{3.855343097449588*^9, 3.85534310134019*^9}, {
   3.8553454653030415`*^9, 3.855345490438122*^9}, {3.85534568703463*^9, 
   3.8553457290066633`*^9}, 3.8553460294107027`*^9, 3.8553462408298984`*^9, {
   3.855346349842205*^9, 3.85534640050264*^9}, 3.855347604176818*^9, 
   3.855347652929284*^9, 3.855353190335474*^9, 3.855353644095998*^9, 
   3.855508023802302*^9, 3.8555088246900883`*^9, 3.855513189941471*^9, 
   3.8555336294462023`*^9, 3.8555791346366124`*^9, 3.855593505106947*^9, 
   3.8557508165318813`*^9},
 CellLabel->
  "Out[658]=",ExpressionUUID->"93fba6e7-b838-49ff-8c7a-9984bdb84abe"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalSMColor", ",", "LocalVierNum", ",", "SetNo"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.855345662707737*^9, 3.8553456656774015`*^9}, {
  3.855346244052048*^9, 3.855346266162693*^9}},
 CellLabel->
  "In[659]:=",ExpressionUUID->"b763cb9e-3d5b-4cae-a366-1fd4a7fd78c0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Find same Vierergruppe and SignMatrix form for I=13,14,15,16", \
"Subsubsection",
 CellChangeTimes->{{3.855347867767399*^9, 3.8553478696267796`*^9}, {
  3.855348097855099*^9, 3.8553481286587305`*^9}, {3.85535372471146*^9, 
  3.855353730582301*^9}},ExpressionUUID->"d99cce9c-61af-494d-9d8e-\
6ffc386f7479"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "4"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalColor", "[", "LocalSMColor_", "]"}], ":=", " ", 
  RowBox[{"LocalSMColor", " ", "+", " ", 
   RowBox[{"4", "*", 
    RowBox[{"(", 
     RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "3"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8553477540487995`*^9, 3.8553477675041275`*^9}, {
  3.85535374118112*^9, 3.855353746550172*^9}},
 CellLabel->
  "In[660]:=",ExpressionUUID->"6dad70a7-0449-4011-9207-5f56386f1203"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"LTest", "[", "N4VT", "]"}], "[", 
       RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "0", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "14", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "TM", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "8", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", "15", "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMII", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
       "ArrayFlatten"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"LTest", "[", "N4VT", "]"}], "[", 
          RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "==", 
         RowBox[{
          RowBox[{"L", "[", "N4VT", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "]"}]}], 
        ",", 
        RowBox[{"LocalColor", "[", "LocalSMColor", "]"}]}], "}"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"LocalSMColor", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}, {3.8553477861998158`*^9, 
  3.8553478381275663`*^9}, {3.8553478913427043`*^9, 3.8553480356008224`*^9}, {
  3.855353676030279*^9, 3.855353694448722*^9}},
 CellLabel->
  "In[663]:=",ExpressionUUID->"e8bb8861-c90c-4e13-bd80-9ffb529b7411"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "13"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855353800654027*^9, 
   3.855508023857093*^9, 3.855508824764101*^9, 3.855513190003721*^9, {
   3.855533629505131*^9, 3.8555336502227907`*^9}, 3.8555791346834793`*^9, 
   3.8555935051381626`*^9, 3.8557508165943737`*^9},
 CellLabel->
  "During evaluation of \
In[663]:=",ExpressionUUID->"65943de4-e163-40e5-a468-340195488464"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "14"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855353800654027*^9, 
   3.855508023857093*^9, 3.855508824764101*^9, 3.855513190003721*^9, {
   3.855533629505131*^9, 3.8555336502227907`*^9}, 3.8555791346834793`*^9, 
   3.8555935051381626`*^9, 3.8557508165943737`*^9},
 CellLabel->
  "During evaluation of \
In[663]:=",ExpressionUUID->"0929352d-360e-451d-9f3a-3f7c1c6d9707"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "15"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855353800654027*^9, 
   3.855508023857093*^9, 3.855508824764101*^9, 3.855513190003721*^9, {
   3.855533629505131*^9, 3.8555336502227907`*^9}, 3.8555791346834793`*^9, 
   3.8555935051381626`*^9, 3.855750816609994*^9},
 CellLabel->
  "During evaluation of \
In[663]:=",ExpressionUUID->"bb4bbc06-9590-4404-8ce7-6cae0877f4e0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "16"}], "}"}]], "Print",
 CellChangeTimes->{
  3.855348048451091*^9, 3.855353190376556*^9, 3.855353800654027*^9, 
   3.855508023857093*^9, 3.855508824764101*^9, 3.855513190003721*^9, {
   3.855533629505131*^9, 3.8555336502227907`*^9}, 3.8555791346834793`*^9, 
   3.8555935051381626`*^9, 3.855750816609994*^9},
 CellLabel->
  "During evaluation of \
In[663]:=",ExpressionUUID->"ca72fb3e-0d9e-43e8-8972-645fece60006"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"SetNo", ",", "LocalVierNum", ",", "LocalColor"}], "]"}]], "Input",
 CellChangeTimes->{{3.8553612498558493`*^9, 3.855361265020803*^9}},
 CellLabel->
  "In[664]:=",ExpressionUUID->"92547fc2-e988-4172-ad4e-3fa805d3539d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Dimensionally reducing 4D holoraumy to 1D holoraumy V-tilde, show that this \
is identical to first dimensionally reducing the transformation laws and then \
generating 1D holoraumy V-tilde as above\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQv8VWO6x01mxl2GyFEYRYUSlVuiMCmR3DW5jEkSSYRSuZRrMUy5nIhc
ItdKCFHKJUpKpYuMOBqVSzkzZjBznDNnnfm+83n3WXvt29prr9v+79/3M2tQ
e6+19t5rPet9f+/z/J49eg88uW+9TTbZ5PLN//l/J/92yJGDBv126Cnb/fM/
Trvk8gsvuOT8PsdecsX5F5w/6JDem/7zDx/+53bUTzfZ5J//28QRQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEECJhNm7c6Jx88smBtmnTpiV9+qLGOeOMMwJd
u/fcc0/Spy6EEEIIIYQQIgHWrPmjs8kmmwTaRo8enfTpixrnZz/7WaBr97e/
/W3Spy6EEEIIIYQQIgH++EfpIKJ6kQ4ihBBCCCGEEKIc3DpI/fr1nUmTJvne
VqxYmfTpixrnySefzFyPjz32WNHrFe1DOogQQgghhBBC1DZuHWSXXXZJ+nSE
iIx///d/lw4ihBBCCCGEEDWOWwf5t3/7t6RPR4jIkA4ihBBCCCGEEEI6iKgV
pIMIIYQQQgghhHD3i5EOIuoy9MqVDiKEEEIIIaLku+++S/oUqob//u//dv7+
978nfRqiBlE+SOX87W9/M/ew8Mf333+fyHGVDyLE/6O4VR58X//zP/+T9GkI
IYRIMX/605+cfv36ObvvvruzfPmKpE+nKhg/fryz2267mZ4G//jHP5I+HVFD
SAcJDmPiRx55xNl5552dcePGJX06VcGqVaucpk2bOgMHDnT+/Oc/x3ps6SBC
KG4FAQ3klFNOcQ4//PB/jmuXJ306QgghUshXX33lHH/88c7WW2/tPPXUU5rT
++Qvf/mLc+aZZzqbbbaZ87vf/U5rNCI2pIMEg3v01ltvdX72s585F154YWI5
DtUGz4QHHnjA2XzzzZ0ePXqYZ0ZcSAcRtY7iVnA++OADZ6+99nJ++ctfOnPn
zk36dIQQQqSIb775xjnuuOPM+Pb+++8vqIH8x3/8h/Piiy86M2fOdN58803n
vffec5YtW+asXLnSbGjt8+bNM3//2WeflXUOGzdudGbMmOG8+uqr5jn1/vvv
//PZtcxZsGCBM2fOHPPnX3/9dRgfN3Q4927dujk//elPjRai/EsRB9JByod7
k3uUe7VXr15Gx8wHfz5r1izn5Zdfdl5//XVn/vz5ztKlS50VK/4V6/jnwoUL
ndmzZ5t/lnPP/9d//ZeJcS+99JLZNzGOOLp48WLnrbfeMnGQY6QRPudtt91m
vj9iHs+OOJAOImqZIHGLcZONW3aMFlbcYt/VFLfgnXfecRo1amQ2/l0IIYRg
TeH88893Nt10U+emm24q+FzEA6N79+6ZsWip7aSTTvLtm4Hucu2115bcJ+fn
hTWSK6+80uRj+D23SraddtrJee2113LOgzlp27ZtnS233NJ5/PHHy/sRhAiA
dJDyefLJJ03O29FHH230y0Lce++9Tr169XzFBL77jz/+2Pc5MJfYdttti+6z
Y8eOObUnxLrBgwcbvTrJWMd8aNCgQeY1ffr0iWVdWjqIqGWIW1tttVWocWuX
XXaJJW4B2knDhg1jiVvky1x99dV5P8MLL7zgbLPNNs4+++zjfPTRR74/uxBC
iLoHmsfo0aPNGgM1MaVqvvEPQfvnWcJaoPvZg47COsXkyZNNnkih9YpCMJZm
DePEE0/M2i/awu233+68/fbbeXWVTz/91Nljjz2y3tOsWTOj2VCvcsEFFzhX
XHGFeS4OHz7cOe+884xW4X49YwvmF7zGbpdddpnz61//2mnfvr35fuxrmUOx
FpIP1mHq169v5g+crxBRIh2kPFgDpK6e8T9rocVgrv/hhx+ae5244dUeDjjg
AOMNRF7cunXryjoPdF/WaIcNG2bmNnafzBMuv/xyZ/r06XlrTvzEOt4fR6z7
8ssvnYMPPtjE/ZtvvjnyHDjpIKJWYSyR9rjFGKtQ3OKciE/u89hhhx1MLDrj
jDNMnLr00kvNfolHaKx77rln1uutL5E7bg0ZMsTEgi5dupj9uV8/dOjQvJ8B
LZm/s7Ewrnw2IYQQ6QN9f/vttzfzdrSLcmCdkHGyfe7svffezvr16ys+J57z
aAk///nPnREjRhiPq2I8/PDDRv/nHE499VQzBigGtTbuZybrAqXGA6yZdO7c
OfPML7SOwFzA5rUceeSResaKSHHrIIyRRWG4F1mr/MlPfmLyy8vxP6IeDz3W
ftfMLZ577rmKzwmtuFOnTmafjOVL1RIS66xO4SfWkbPujXVr14YT64C51nbb
bec0aNAgct1XOoioRepC3Fq9erXxkuf1zZs3N+toxXRT1sSOOeaYss6bc2Ls
xViQ7+q+++4r+Fq+FzRf8maK5UALIYSou5Db8atf/co8Z1hDLNffk/Eya9BB
cyzzwTP+nnvuMc8yNJBS52R9wDl+//79feVnP/HEExndhO2ss84y6xWlYJyP
PrPffvuZtdBCMDdFE+IZS66N/GZFVKxZk658kDfeeMPp27evuSdZq/PrEcQ9
cscdd0TWf5r9cy9yT7Zp08b54osvyno/50Wdnzv3Db/QSlm69AMTN5nnlPIc
DRrr3PkdQWLdF18UjnXsixwU9s2zhGdKVEgHEbUGcWvUqFFmXh80brnza8OK
W3iO+o1bwDGJQ61bt3Y++eSTkq/nudGkSZPMeZMDhzddKYg/6BvkwFGHU4yp
U6cafWXHHXc0HipCCCFqC3Ij0QN23XXXkuuK+fCuNRTLofYLa4/kQ55++um+
6mrw5OJ5zHmsX196jIDuT/6lPWfmRXfffbevc+PZTD9h1kqLzUHsnI5948el
Pm0iKtJSF8N8+De/+U1OnTZjX/682PidsTo504xJqbmLAuJE48aNzfngA10u
xA08iLx515WsIxJDzj77bDPGZ15RCj4DvzGxzs98KF+su+uuu3ydG7GOvgql
Yh3gZ00+Id9tlH08pYOIWsPGLcZp1Rq3eD1aDJ4c1D37gde56/nw8Pej+9r6
G3KcyYUrBuNLclnYP+f33Xff+To3IYQQ1Q8aRrt27cwzAI/UIL1emb+ccMIJ
WWsNDz30UOBz4jnHnIneZn79q9Aw8EclX9wPrBd06NAhc86sefr1DWc9gtxO
P98X6/Tkf3IMavGVdymiIA35IP/5n/+ZyZEutFE7QZ6yNxdh+fIVJueAOXQY
+dr54N676qqrzHm0aNHCaEdB4Pzd/oPkZvjJrSjEY489ZjwHH330UV+vJ08O
rShtsY7vAK9U6+UUVS9d6SCilggzbpFPklTcYh0IbxP8h0rVOAPrSNdff33W
82PkyJG+8mr5XD179jSeSWvXri35erzsGD+yhoe3mxBCiNrAemoQ//P1A/AD
z2nbM8Bu+HIFrQOZNGmSmS9NnDjR1+vR77t27WryRf2OvVesWJHlWV6qxsXN
ypUfmjr4W265peRn5LvB04tjkN+Jv6EQYZN0Pshf//rXjJ56zjnnmD6KzJs3
bNhg5u3Uh7njA+t0zGHx5TzqqKOMdooGUol+Wgpq9cht4PjU6gTVJOnb7fYG
POiggwL7/3BOjNVZV/Wzzhl3rCM/kFiH/6mfeE4OOuu3PFOYJ0UB15N0EFEr
1IW4BWPHjjXjzJkzZ/p6PfvFs9+er58aFws6y7HHHmvqdfzkE5NXR1y0NYNR
1WUKIYRID4yp7XOmkmcisEbnXms47bTTAq014KNFHgjPIr/P10WLFhkPQNYO
/Gov9LMN4g0C+Kv/4he/8N0Td/bs2eb5z1wvynxxUbskqYP8+OOPJq+YPAPW
1fLBvcVaXqE+r7z3lVdeifQ8mT+jtZCXjX9JUNAGqP+w506+up9ady+M1ZnH
0/9g1apVvt5D7UmaYx19PK0e1qNHj0j66CofRNQSxC3GDmHHLeqg44pbaBH4
BpGX5tc7iJo8d08sv94gwFiWHlZ+Y50754bnJ9qxEEKIus3ixUvMWh+xn5yF
Smo20Om32GKLzDPrkEMOKVtX4fnau3fvsp6v1veQ5zt6iB/cORps6Dd+vUHg
ySefNHORt956y9frWbfdf//9zbFYo1D9qQibJPvFUH9N7cTChaXvP8axl1xy
SWZdkvoS7omovXPIV7F9B8rJh8gH77Vrh2zkhvuNBW7wLuW9futbrFcifn7o
IX4IK9bRT8zv8WxuIDHZj29AuUgHEbWCN24V8youRdhxq5zcPXoQEkfK6XNj
c8vs+Xbr1s23rrpmzRqTf0vfGL/HmzFjhjkez6Q777zT13uEEEJUL2PGjDHj
YuoiC63j+gX93Goqdq2h3BoQxtzlPl95xvF6esr4zWVkPeKwww4LVC8PrMlc
fPHFvnUe6gMYr3Ms6mO11iDCJum6mHJzv3744QcTH8gfiAPm4zY+nXfeeYF8
kCyMxdFu3B6wfmv4LKzD4htErbzfsX01xDp4+umnTa9zni1oFmEjHUTUCnUh
bsHSpUuNd1A5fcOIc0G8QQDfu379+jnz5s3zfY5oJ3jzc6zu3btHkssmhBAi
HTCOpheLXT+utM8t9ZUtW7bMWmug56JfmBPhAYa3VdT5Eqw9e+vly+1DVy7W
W5H89HLHHkKUImkdJO2Qc8G4P4x+keQ8DBgwIGuMft111/keoxN7mdOQ500f
iCgh1rlz4eOIdeTyofdyPOJ5JV6M+ZAOImqFWo1baBDkf7i9QV588cVIj0k+
MrV8HI/8Rnm5CSFE3WXdunUZ78JDDz3U9HqoBJ5btvcYWzk+eTxfWSuI4/kK
nJe7Xp7+amGP1b1YjxCOx1hEfWNEmKShX0xaYQ2VtUGrz+J5USl4/rn9kHr1
6uU7hpAvQV7GhAkTKj6PUuA5HXesc/dRRxsPW3eRT6qoBbxxK0gNixfillsH
SWvcon7SesOy8e9+vUGCwpgMH1qOR4339OnTIz2eEEKI5KC+nJ4sxPwzzjij
4rExz+wLL7wwUB7jM888Y56vrHcE7THjF551+BMErZcPCvk25N1wTPpjUPcr
RFgoH6Qw3GtHHnlk4Hq9fNDb1+35Su2JH/8/xvL77LOPiblR5715Yx35aHHE
OnTtk046yRwTj9XFixeHun/lg4haII641b59+9TFLSD3w+03V443SCUwBiX/
hmPiZSKEEKJugvZADTfxvpJebG7uuOOOLB3Ej1e3fb7SXyaO5yvPfJ79Qevl
g+L2SqW+1k9PeyH8Ih2kMOTK0IOK74Y8BfIVKoV6d3r/utcrS9W+ow9ccMEF
5rVR+8JCvlhXTq1iUHiW0A+ZY+I9NXXq1FD3Lx1E1ALE9LDj1pIllcWtZcui
j1v5vEH476jXyMB6pXLM888/vyI/lqhhfM0Ynnw//mk3+99o0EIIAcQ1d3zw
/pOajFrj97//feYZw7+HwbPPPpu11nD44Yc7f/7znwu+nucreZ+77757LPMC
oLcF/RbsObZq1Sryenmgbxy97Dkmvmdx1P+I2kE6SGG45+3Yn96NYawrUleI
n5FbYyjlyTdlyhSTgzd+/PhYxvRJxTo+2y233BJZvp10EFELxBG3iEfz588v
+h7iFvEtrrjl9XMlLyRqbxALfW1snjTngGdIWiE3x60VeTe+NyGEAJvnVmj7
zW9+k/QpxgrrdcOGDTOfHf+tcvqzFIP8ZzRo+73StwwP7kKwTsjzFQ/ROJ6v
kIQ3CKD5WA8uan399qEUwg/SQQozZ86cjDfPqaeeGsr97s5Zt35I9LsqxGef
rTFeGaecckpsNXFJxTq4//77TR0Oxy2nd6UfpIOIWsAdt4gbYcUt6nL9xi3G
b8Stk08+Oba4RY4wa2NxeoNYqF+2Hs9h+OZFidVB0LWIie4NDyVisBBCwL33
3psTJ9hsj6xa00HI9SPPkc9OPgz+V2FArYfN47RrDQsWLMj7Wp6vrE/GOS9A
/6EHpNsb5K677orl2Ixh8CTjuFtttZUzc+bMWI4ragPpIIWZNm1aJk+NeXMY
uc7sg94Jbj395ptvzjvf597v37+/6UHAGm8cJBnrwK3BXHHFFaH6QksHiZcf
f/zR5Azgl0C/VLwaunbtampZb7rpJuf11183fbBFuNRi3AL8Sd3eIORlxNXD
1q3BtGnTxtQzpxWrg5ArJIQQQaBuo1Z1kHPPPTdTv009SxigZ3Tq1ClrrSGf
xsLzlTE63l8ffPBBKMf2A9o+Gn/c9fLg/s4Z2+BXJkRYSAcpzFNPPZWZk/ft
2ze0mu9Ro0ZlzScKzVWYz6AJjxs3Lra8tyRjHbi/c/yzw6yzlw4SD/h1Ud+0
ww47ZL5v8j3x88Ljyj1X5fqmB6sfz03hj1qMWxyH/LEkvEGA9Tm7Psp1vn79
+liOG4Rq1kGYAzD2f/nll403LT0VuMZZFyX3qNBGPifaHJos9VqLFi1Kdc6O
qBy8FVhPJx6R50QtA3P2YtcJG/fH5ZdfbupyqavDi0B6fS5R6yD4hpKL3Lt3
b+eiiy4y3nF4kvrdLr30UjOG5DnFOkyx/MVyIAbhsRT2nJxnKZ/V/QxjHOV9
hnE8nq9c03E934C4izeHPbcoejoWwr0Ow9hm8uTJsRxX1AZuHYS+RJVCrOE5
glccMQjdcuDAgc6gQYOcK6+8MidW0Qua67tnz57mNZWCdx+xk3M455xzzHkw
/rHHpw8KOW1oixyTuFNonvD4449HMidH47Ve02xowPgAucGjtXXr1qZ/Spw9
oryxLi5vEAvxzX43XBfSQaqL1157zdlpp53Md3z00UebObl3bZzfdOHChWZs
Y/MW0NvC9sWNEu4J4gdjQOZhxJV88a3QxmuJfbyXOEW8In8mDIhbtqY77rjF
8ySJuIX21qVLl8y5cV3F5Q0C5DQ3a9bMHJt/Er/TSrXpIKtWrTJzIn5ft4Ya
xkbcYT5HzuOGDRuS/qiiAv73f//X+AZcc801zsEHH2y8G8K8Vho2bOiceOKJ
Jg6m2f8nLqLWQcgbDfP347oIA7deQT5IWHNyNA1yLN3n7B0D85zh+cp1GHfv
2EceeSSrXp46lbjq5fkOzj77bOWDVAHk8C9ZssT41rBOwTrnrbfeavTo1atX
mzidNhivhZkPcuCBBwaOU9RzVwqefOWOgwo903je2fs+zDk5axTWU8+Om919
oIgtzKsaN25s+svEycSJExOLdYCOpnyQ6oS4x/yb/mbMXfxAPYHth0YNFnGz
GsAPIswxGltYY2u3XhF13Pr883TELXoDU4fjfpbE5Q0C5IPga8exlQ9SOVyz
1Ei6cxOj3njuULvH/ZPGsZrID3kf5Ko1bdo0tmsFr0bGEKU87usyUesgxO/3
33/fbDx7Zs2aZcb3rK26x6je8fxVV13lPPzww84bb7xh/KvtPsJaz3PXjnMe
rDuEBeNfty8tXoJW7+D5yppyo0aNnMWLl4R2TD8Qj1lPdn/XcdbL89lPP/10
c1z5g6QT5rDkG3APFoudjA9ZC/zwww+TPuUMYdfF8EyycYse28W86Tt06OCM
Hj3axCve411bDAKaKrGPnEbq5/Id167/cNxiPSXd9eZokWHpAe4xMxtzCz6/
5YUXXjB/xmeIM+/NG+vi9gYBNGf7HJA/SPVAnjrXC3nF5faxx8OB9Tv72xAT
0g6xwI6vyG1hPMy6ELp3MS2YcQ1r22jjeKfwXrufsOZetRa34Pnnn8/qORin
Nwigw/B859jyBwkOz6AJEyYUnNMy7yDfjFjj/Tv+HP2LeQLrtJXMc4lH3Jsi
vVDXxBp/oXE3MdDd9869oZlyrZDjUWneCPnH69alV/eMiiT9QXjW5Pst4phb
8WxjjduOkVn/CQvGEe7r2b1GynOd5+udd94Z+/OVe+2QQw7J0gHjrJdnjcjm
e3rHHSJ5br/99ow2iY6AHsJ9wXyOvtLUpbnrDNjoh8FadxrqU8POB8mHe+xs
N8bnUa+5sCbpPiZezGgkfuE+537nvd27dze9m8IALwQ0IHtejNlsTQD9KQ84
4ADnhBNOCEUXKoekYx2gu0Q1H5YOEg3UouEFQq1Z0HuaZ70dszIurWa9H+2u
ffv2OTEPD4M4qLW4lbQ3CKxYsSLjh+New0sjadVBmMOQS2N/Q75Prl/W+t98
803n22+/Na/jd83Xy5P1YjesyXz00UfOW2+95Tz44INOv379jEZVqg+o3YhD
eErEPecQpbEeCfa3QtNAj+AZT22vza1jrcv7uzJ3ddcg8vuyHrZ8+XJT1zl2
7FiTB2v9fvxsnAs1oLVEkjoIfi3e3yBOf0O0Wquf3XjjjaHFCMZSXMv2M+Gr
Ro3B2rXrTOwiHhLX4mbJkqVZfm9x18szN7FjKnTuTz75JLZji8IQR239Gn4x
rIcWWrtmfRR/Lvd6FRt99pLWteLwScWjzBuz0DSjhu/dHi/I2JRaJr4T3k/M
Dyv+sD7LM9v9fXB98OfoaNznSVwX6EZeb5D16+OLdW6dnbFqWH3ZLfhKSQcJ
n2OOOcZcs3aeEhR0Y3dsjHM9P2yGDx+eE/Piyq0ibuH1VCtxizjPNWjPiXVg
1s7ixK09hdVjPSrSqIPQc2GbbbYx58V6KLGgUD0Xc9Z8c9E//OEPvo7FOIB5
jFvTK7ZVou+KcGGMQA6IzQdCqyjmA0SNk/f3LMcH7/PPPze9zdz9TAttnBPe
vbVCkjoI14H3+w+jrt4vs2fPzvSmJ4c6rLxl1hrctYDMGckzxbc3qecruPO0
2eKul2eeav232rVr52zcuDG2Y4vC4G1n19v8rn9xDTO+d9+7PPvpH5kUcegg
eAJ6Y1YYnqil4PnIsVq0aBGoHwXjrbZt22a0rrD0T2I465Xu7wPvVptXznpE
EmtQ1FQmGevcntA8Y+bMmRPq/pUPEj7MPRj/saGh4X0adEzAGp5bh6uG+phC
XH/99Tkx7/7774/l2EnFrTFjxiQSt1gbctdA0r82Tm8QYKxq80KHDh0aaj1f
2KRJB+F6IefCzmtZ8/zyyy+LvodezPnmoUH8dYhf5OyWmuP26dMn6EcUIcEY
jno3+5vgVVkq182dX2o3cl6DQG6JjavFtBDGUbVALesg+IPZNdIwazAZb3vj
EZ7jPF/RhpN4vjIup37BfY3HsY7thhyv7bff3hyfvNqwclxFcKjv5vdgbazc
65JY6q1HZOyflK9a2P1i8uGef7rv7aihXwVrg37Xibxwr3Ge9jci9zksHn30
0SyvJ8Z/zFmOO+64RPLe8sU69Jg4YV2XsTnHR/tmXTtMpIOEDx4u3nubazso
aG92Pzz30lxfUIwkdZCo45ZbK2VekGTcAnLk3bmWXbt2jT2XyI4JeLZTg5Fm
0qSD2B4Adk2I+UUpqH/x3lt4s1QC+SjeNSrvht+ZSAaeA3vvvXfmt8Bb289c
6Oqrr875Hel5GhTGSeSHuPtmeTfGnHgp1XVqWQehTsPmbYS91uCt8WTDvzmp
5+s333zjHHTQQZlzSaJenvpb6/lETx3VKiYLegXPa56ZQXIMgHoy73XeuXPn
kM/UH3Hkg8yYMSPn8/IcixJqKjgO/i1BcddphJ1rTc2yzaN2f/9JebOlIdbh
EdG8eXNz/I4dO4Ye96WDhI+7ltVuldQzMYd07+uJJ54I72RjJEkdpJbiFp/V
W4PEZ4/bX5r+7Bybdbt33303tmMHIS06CDUE7t/Nb6+oSZMm5dxbrHlUCs/A
I444ouD8llinfqnJgHbh/i1YT/SDvS/d2w033FDx+ZCThMdqoWuF3hZ1nSA6
CHMmer6Q28BGvg6+KuXeV2HpIORfkM/IedhzItehlB5Lvh+1KhwXD48wn3/e
GhSus3J8DcOG74ceLfZ8GKO7+1tGDb81zwaOzXl4faBE/AwYMMD8HvQ3Cgoe
P9bP370xxoybOHQQvMq8n5WxdFRs2LDBePqQY1FpfvKrr76aqQMkTz+s8bW7
vwAb64hoNknpnMQ6+zltrHP3xIyDd955J+OVTS1V2Lnl0kHCx+aGuscilfiE
UI/t3l/Pnj1DPNvSEIOp77BjIsZs+JSVS1g6CPUdnIP7nOjTV8qvgLhlxy51
OW4xHsOf1Z6P27s1LhjbH3bYYeb45McU60GWBtKgg5CjtOWWW2bdH5988qmv
99oxsXsjlzEMGDtQV1VoflvNtXrVil3Tshu9Xvxy1FFH5fyGeIaEwdy5c4vm
hdT1nrpBdJDFixdnPT/cc49y/LPC0EHQG9zen3Yjh5K/KwXPGfIQeQaG2TMG
nwTrlcS+8eCK4/nKPI2xBvlOePBceumlZn3e62vJOfHb0zuYfCteT4843h8F
5ILZPHE8DvCMFclBHh652uTnVYrNW3Zv9JyMmzj6xfC95etzx/pLFLB2wL0a
hkbrzlHo0aNHaOtB3vwLekIFzS8qBxvryC1LU6wD4j3XCedCnnLYyCc1fCZO
nJi5dnhG0S+7Utz1YuilhfwSo4D5VL6em9R9lFNfV6kOQo0Ya9zefXB/EDfQ
0osRV9zCnzSOuEVuGGsPt912m8n3GDx4sNHI8q3J4p3I/X3VVVeZ34GaFfpA
ROXZgU5mx9P4pcR5vQYhDToI95P7N+M55Bd+d+9vHmYNJ3M1r0ZjN659ER+M
Hb1z1XLGBvlqnfCDDwvmv4V0ENZy6jKV1MWw3pDvt6GfvB8q1UGYG3if82ha
PGP8eiJT+2T9c/GLDMtLD78r6sLjnBfwbCRPyj1PYxxGHGRtkjxHu6HRMObz
vhYdKwq9hj5idr2N+Ujan691HXrC8Fswb8QLqZI5IXqj9z7mvnT384qDOPJB
wN7X7i2KXGr6bZY7rioGsc16dzZt2tT0tQprv/j9sF/G8nHkUpcb67ge44p1
zNOYr3Ec6i2j8MtRPkg0UCvLszuseaa7HyJbUH+foHAt0mPTG69at27tOz5X
qoPk826kvwXr1X6oS3ELWHt1e+ii0zIWQydzxy02ci29vVHp5xuV1wxzIc6H
45JXl3aS1kHI+bIeaXxn5eYrcR967w3GZmGC5p9vbst5V9oXS/iHukj73TOG
LKfGj/ljvt+wlIZcLrZvpHcjN6wuU6k/CLmO7jUPNr9+A5XqIG6vGbuVm0fo
ro3hGRuWNzfPKcanPO/xB611yAfjOiG/lTxXkSysiXvvHdbKg1AoRi9cuCjk
sy5OXDpIvh51YfuO8XwjHtE7IMwxr80x514kJz0MiOPUR++zzz7mPq913x88
Ucl35bqgl1AUa7fSQaoD7zpR3D1QLW7fYLuhb/ihEh2ENTHve+kVV673p63p
I27hqRAGilvZsF5tdQXqc7766qukT6kkSesg5M8wHqBPTLnfF9ebN3eRjXqt
MKEHYKGckOeffz7UY4nC4BdFbcu4cePK7hGBv5n3tyunpsYv5Jrlu07q1atn
1gjqKmH4pNJj3Pu9PfbYYyXfV4kOQq6k97377bdfoPOnlhvtnWds2v2xqxHy
Yo8//njzGxEHkvKKFf+P29vcvQXNC8n3nI37XopLB7F9ht1b2LW25EFHMU5B
s7IxH+1fXmnhw/oba23kwEa1xiwdpDrw+nDiiZEE+XyN/I6jK9FB+vfvn/Pe
IH6xilvRY/0SyZsbNWpUVehCSesglYBe7r030EWi+N693px2C8NnU0SP14eX
LYp+BNRR2DUc7/bmm2+Gfry0YNc2K9FByJ/zfmd4MJaiEh0Efxjve4OOMVib
sLmb9M+t1v52aQWPHXQmctPx0xXJk68ulS1ojkC+2ua4+zLHpYPY/gXujdzz
sCB/jFxocrajgDooNF9+s8WLy/dNFIVhvmZ9+nv37h1Zb3DpINWBt68468ZJ
ccghh+TErfXrS/fIq0QHoZeW+32MA4LeEzanlLgVxO9VFIaxuO391qxZs9Dy
oqOmmnUQ1ji89xW5UlFAP+Z84z3WW0T6Ia/U+9vR5z0KLrvssrzXStj1Wmki
jHwQal6935kfD55KdJCBAweGqlfNnz/f1GxS46dcsfDAB+Siiy4yvw9eaXH4
pIjSMB7PF+vIjQoCnqvefZXjmRwGcekg6Ajez4oHUBgQE5mvsI68bl00XsLc
g0ceeaQ5b9Zr5dUTHow3WdPjWcIzJSqkg8QPa2VffvmlyVvHo6LUfcP6ijdO
JOk3xxjPez5+vNyC6iDk43t1INbdgqK4FR3kV++7774m//2WW26pilwQqGYd
hJwb7311ySWXRHIsPI/yjfeYX4v0w/q897eLqpfUhAkT8l4rdXleHIYOkq+H
AnpCKSrRQex5u7dK5g08U/EjZD/4hqt2Ixyoa2OOTF9iv32yRfRs3Lgxy6uN
rZIeL16PILawenr5JS4dhF5Q3s/KGloYWE8z+oFECT4F+ITsuOOOkXi81iLU
z3bq1Mk8C8kZiqqnA0gHiYeVKz80fT26d+9unmHeMQ7jEOJcPl927itvnEgy
HyRfHpufvPigOgg++t73VTLOBBu3dtppJ8WtkHDngqBTMTaoFqpZB8mnS9Lj
IQr4jfP1jlI+SHWQr/8xmnwU4OOcTweZMWNGJMdLA2HoIJCvb0wpTbkSHcSb
b8lW6foAOgp5aczpGGdWiyaeVqgvYm7NbzN8+PBI5wWifJi3Mf7B7wLvJr89
lrysWLEib9xcvnx5yGdcHLcOsssuu0R2HDzivZ+VMUal8YL4Qx4I+SBRxx56
JbA2zbnT91i1gJXB73XvvfeaZwe/X9Qeg9JBouW9995zTjzxxMz6zqGHHmr0
gNmzZ5veZ2zMyclNRh+hL5C3lgCtwBsn6PGcFPg1ec9nyJAhJd83cuTIQDrI
Sy+9lPM+esRWguJW+OALgicANUv4JFYT1ayDuHs2240xTFR4e7ayxV27LMoH
f0VvnkGTJk0iO97SpR/kHc/X5X4fYekg9Dbwfm/8fsWoRAex/eTtxnUSBtTW
EC/oa/T++++Hss9ahN+WNW3mBfR5Uz1M3eWOO+7IuY/RRePOW16zJp58EK5t
+nPnjmE+r2i/aIb4gsT1vGHdr2PHjuaYjIek+wZn6dKlTuPGjc3GHDpqpINE
A2ts5H7Y75a+Ga+88krR96An4xVP/zq3p76tB41jvdcPeHN5z8dPHn7QfJAp
U6bkvC9oTzI3xC3yrhS3KofaJfQkxmn461Xbd1mtOgjfM/3c3fcGz44oyVe7
XCq2ieRZsGBBzu+G721UMP70Ho96ubrsTR2WDkLvMe93R4wtRiU6iDdPiJrs
MOCcHnnkEZPzyhxh/fr1oey31pg1a5apu2jTpo2ppRZ1l65du+bcx0OHDo39
POKqi4G99tor5zNX4k9k+0vGnadKLk+LFi1MfQz3rCgfnhE8KxjX+vFbCAPp
IOHDnMDt9/y73/3Od44cuY70RGN+biGHxBsjFi2Kt5e4m3w9bC+++OKS7wuq
g9Az0Pu+sPpT2LjFGENxKxjk1lx77bXGwwW/vag8naOkWnUQ1li99wafJUry
1cVobJ5+8q0zkr8dFXgEBp2XVyth6SCsm3i/uw0bNhR9TyU6CPWh7vfVr1+/
ovP3nhfjTOIGuQzffPNNaPuuBegPQz4NOTusk4q6C16AaIbe3Cy8BOMmrnwQ
wEPIG7vwTw0CejFrQeQ6/vDDDyGfaWkYk3FsziFKb8+6CM8G5r/0jaa3XVzr
qdJBwsVb+zF27Niy9/HZZ2tMLJwzZ465DvCxKHdtKErw+/eeT9++fUu+L2hd
TL66oFtvvTWMj2IgbpGHvOuuuypulQm6HTofeSBnn3121frhVasOQu6N994I
EnP8Qv2Y93jUDgethRbx0aNHj5zfLsp5Vb7+r/RTrcuEpYPk8y0t5Q9QiQ5C
Hb37fXhdhwnPCfJCqJlknMl8T5SGnCrWylu1ahW7P4SIn3ye537G1lEQZz7I
BRdckPO58SEMArnpvP/VV18N9yTLgPsWLRvtctWqVYmdRzXBnLZXr14mD2Ti
xImx5pRTcygdJBy8+Q5jxowJvC96Dp555pnGP8QbH8g1SRLy1bznxDpPKYLm
g9AvzPu+oH3ZC6G4VT7EKX4/NLs+ffokqs1VSrXqIHgPee+NKOspZ86cmXM8
xjAi3aBTeeuZmPtGOdbAy9F7rTzxxBORHS8NhKWD5PM+LjWuD6qDoG16fWNO
OeWUis6/EOQIMa+rln7qScOaE7n969d/kfSp5PDjjz+adXxqqKgtLmdj3aTc
9wR5P3Oqa665JumvyhesIXm9t6iDSiq/Nk4dZPTo0TmxC7/ZcqH2k9pL5tNJ
gzcC87i63B8tTLje0LDoiRU3ygcJB9bEw9RwWUvj+YKW4o0PzH2SBB9m7zkd
eOCBJd8XVAfJ15t98eLFYXyULIhb9PpT3PIH9TCsX/Ab8u/VTDXqIMxtveMm
NKko/dRGjBiRcy+++OKLkR1PhAN5H97frXPnzpEek9pO9/GYu1RrvphfwtJB
bN8t90Y+RTGC6iCMO73vq5a5o0gOvFrz1UimbaOuvBrgnnOfN30TkqiHscTV
Lwbolen93Yil5cC4Z7/99jPfW9T9RUTdQjpI5TBvdt+/xIxKx3t4eLKvfH5p
Uea9+8Vbq+PHmzGoDnLcccdlvYe1qyTq/kTdpRp1EPrzeO+nY489NtJjeut4
qSVjXVCkm3w5dazBRQVjUm+de9S+NWkgLB1k8uTJOb8XmnMxguog9Cf0vi/s
fEtRN6FWZ/z48eYa8rPhR+T3tWG8n/z6qPqCh8knn3zibL311lljXNZCkyTO
fBByWL0xCE+ccrA5JfhKCFEO0kEqA18Xelq571/GMGGAtpBP32b+kzTk67nP
iRzEUh4BQXUQ5lrlju2EKIdq1EHuvvvunPuJMWlUUOPv9RHAe9PCPIzxDH2u
6ZtM/Rx+O+Ru4UdM3Fq4cKHx/cP7iBobckmUIx899CHzXit/+MMfIjtevt40
fvumfvTRR+a64Pp4/fXXTb4C1xW1i1xHS5YsMdcV1xevoXYgLX1IwtJB6BfH
M7UcHSmoDnLhhRfmvI95mRAielhHOOigg8rSPOMgTh3Ervt61zv91gSRN4O3
5hFHHCGvMlE20kEqo2fPnln3bpj+Ys2aNcuJDfRjSsN9Ts2q99xKee4F0UEY
D3rfUwvriiJeqlEHOe2003LGDVHmgz766KNZx8NvAm8BC2MWvL7zabfFNnpW
i2jx9gMJ2wfTy3nnnZd1PL81OMzlvfnhpTbqbejlngbC0kHgyCOPzPqcaJDF
6g+D6iCHHXZY1nv233//is9dCOGPK6+8Muv+u+2225I+JUOc/WLAu8bChibu
hy5dupjnAH6KQpSLfFKDM3v27Jz7Fp+QsCAvzLv/008/veh7vv76a2fKlCmm
nwq9TFkzxpssbM+AfD0R0TmKEUQHYd3Y+55nnnkmzI8iRFXqIO7e3GwdOnSI
7Fhor8yd3cfLl3/Kusy7775rYuOECROctm3b5mg1aMfkzL3xxhsmP4S1IBEd
K1euzImhV199dWTH++MfP3d+/vOfZ+kU5HH4BU9Icoh4xuANynVGvZfXy5Pr
iFwQckXwKkgDYeog1AB4f7dXXnml4OuD6CBffPFF1m/FhjeJECJ6yJ10xzX6
v6WFOPNBoHXr1jnxa8aMGSXfN2nSJPPaoP1lhFA+SHC8a5/EszDzc/P1y506
dWre11Knicc7Y05eh4bCvMVqrPz3TTfdlLV+WwmMuXbbbbesc2POU4wgOsgV
V1yR9Xpy39RzT4RNtekgK1fm9pFy16iEDXHHfSy/39P06dOzfCLIcVu7dm1k
5ylyyTefXrRoUWTHs30L7XbDDTdUvM/PPvvMadKkSWaf9evXj8Qru1LC1EHI
r/LWxlLDUoggOsjQoUOzXs+YA21ECBEt1PfRz8bOHfBwShNx6yD5et8xPy0G
+eLkOtLnMam+OqL6kQ4SDGqrvfdsKR2gHOjd6t1/gwYNcjwJGfvQi3C77bYz
sZQ6cOqwbT9E8mjJD2nZsmVmzbictbli3HfffTnnSOwsRLk6yLfffpuTKzdg
wIBQzl0IN9Wmg+TrMxelz0a7du0yx8HPze+x8HewYz02cu7l5R4v3bp1K2tu
XAn8tm7di987jFxE5uatWrXK7Jf6UL8503ESpg4CXg2Le6+QTlGuDvLdd9+Z
3gru12tNVYjoYZxs870Zt+Ppmjbi1kHoMeuNX9QMFYP6S74/xhlCBEU6SDAG
DhyYc88OGjQotP3nW8Njnc0LecOMZYgFgwcPLlg/TJ6KHaPtvffeRmepFDSZ
PfbYw7dOUa4O4u1FzBrghg0bKj5vIbxUmw7i9VWLsqbfq7lQS+kXvCzdOsgB
BxwgHSRG6FvmrXugN3gUUDvl1lzITQwr74SeD/REdOsgH3/8cSj7DhPWGcLU
QdCQOnbsmPX79enTJ+9ry9VBvM9j5mVoI0KI6CCHwfaB3HTTTZ0HH3ww6VPK
S9w6CD5h3vjFum4hqJln3tO7d+/Iz03UbaSDBCNfP1v654aFnZe5N6/fPp7u
5IPxd8yL8AYpxty5c03eCK9n/2HUl9AXglhuzxGP+0LrdOXoIDwr6D/sfm2U
fR5FbVNNOoh7fGK3kSNHRnIsfD7c9zf+yOWADuLuBygdJF683rZs+LJEgTu+
o4GE+TysFh0k7HwQ4H5xe4XVq1fP+KJ4KUcHYSzg7keDVpnGOiMh6hJ/+9vf
MlrpZptt5jz77LNJn1JB4tZB6BPsjV+FcuypgWHuQ00MPTuFqATpIOXDGpvX
s42xSZhebd5evHgIuaGHpdtnesyYMSX3ie5xwgknmNfjs0FvwjDwrhcT54n3
XsrRQXr06JH1Ojzx0tAnR9RNqkkHwUvNex/RUzRs1q1bl9VnBK+eclE+SLJ4
4yi/p62ZDBP8O3kGWi087PF9LesggJeAe12A2qO33nor6zV+dRD0DuY17rUL
+g8LIaKD+/Pkk0829xz13uQzpJm4dRDq9b3xi1z3fFC/x98/9thjkZ+XqPtI
Bykfxnze+5XxfVjQQ8G7fzyR3axevTpTk0KOx4IFC3zt211r0qtXr9C8hci1
dp8vHrLeunA/OgjPCu++6B9YrF+gEJVSTTqIXU+y25577hn6MdB6DznkkMwx
gtZSKB8kOfDE3nzzzbOulUI1FZWAR/cOO+yQmVNH0c8rvw6yOvTjVEpUOgjg
L9ymTZvMd8Bzf/z48Rldy48OQp8mt/9606ZNI8sPcsMch36gxBVRt6A+mnFk
GjfWC9NC//79zT1HrGSMn3bcOggabNSwTuuNX2zemIFHPLWefnuxe6H2b9as
WaYXDfmu5MYxf1q6dOk/49RK80/+++233zZaFa9DJ/bTY4LcFLwK3Pumfx46
NjGQ9Sq7b3LpyevjeCJZpIOUD89z770aZs01nvDufVP7782FoCelzWtlHkSv
bz/Q98GOjdF4w+y3jaeJO9f2mGOOyRqrkrtfTAchn8a7fsl3EVfN8l/+8hej
Ey1btiyW44n0UC06CB6Jdt3dbqW8xMoFD1R33d/FF18ceF/SQZLjqaeeyom3
YeUAWhjz4dvEvqmfevLJJ0Pdv6XW80Es5FmSf2nrW9nIHed3YK0gnw7C2IFx
/GGHHZb5c/JZ8fKKo/cafY0Zo3Bc6v2Vx1434Ho79NBD885d07JRnxckjzFs
br75ZnM+9Dood96Lvok3IH3E44Q5hf0e48gHgYYNG+b8hu56PWIZMZZ8ONaC
g0DdPs+Pcq6j7bff3ld/Ce94x8927rnnBvocIjykg5TPtddem3Mth5UH/MMP
P2TGlXajx7gb8iz4rezft2/f3ndNDtqkHUPxjHj88cdDOW8Luif6hz03NBd6
87GWVSgfhHER36n7czN+Qy+NC/xI7FyYNTK/+TWiblAtOog7XtstzLWl+fPn
Z2ph0FuuueaaivanupjkOP3007OuE9Yhw8yrIxfB6t48Uwr1dA+DL76QDuKG
5xXrCu4eOt5xg33+umvb0DdvvPFG59NPP430/CzU7uy2225Z50SuKLqWqG5Y
p3f3hkrrRv5kkjzyyCOZmBWkfpX5Pu8nDz1O4q6LAXcOqt3czxXmC/wZulJQ
eAay1omuRD4G8xKbz2g3nmfMSZh7kbuxdOkHvnLnWbO1OR/kgzz99NMmD8ir
jRCHyfGfN2+e6QkvkkU6SPkMHz48514Nqz7/gQceyNovXvFe0DzcufHoDn7X
dcj/QJO27yWPJYrcQTQM5pbu+z/fOA3/N+vDyDP1tNNOM5pSnHUwzMu6d++e
dV677rprTv21qLtUiw5y9NFHZ12nYdXjsc6Cb70d16JDomFUinSQZCBvwDv2
oi9hGPCscdcuUrdYrF96GKgupjDMk+6++26nX79+Oc9XamDI+6DHE2sUcUIO
Cj5naGWXX365GSMdccQR5ryOOuooszYiqhu8+pnP4cfs3SZOnFjWn0fx/ilT
phjNMCmoj+D6R4ukfjAI06dPN/dM3PPlJPJBfv3rX+fEMHK0gWcAfiH77ruv
qcUKC+Y/xEj3MenHG0a/d2Auc/bZZ2ft/9Zbbw1l3yIcpIOUz6hRo3Lu1TDW
Nxi7Mv927zdfLhxrOe7XnXLKKb51A+97qUMJyyMkH+ybXGy0Vep7vN8buSwj
RowwNeXUpcQNYzHGZJwLecPkLA4ZMsQ8uxjDyT+uNqgGHYR+UO66M7ZyetgW
ghjj7sPLM/vbb78N4YxVF5MUrKF5Y62fvN5ioJUxt7C9S8gnZDwXhe+qF9XF
lKbcvrlR8txzz5lccjRQ1nDtWgtrOHjUUJdDTQU1eELURcjT5NmHt8bKlSsD
74d8BfoaxN0nIIl8kHxrzORTAL0SiBth1wcRN6+++uqsYw4aNCi09WH2Q12T
3Tef4b777gtl3yIcGEdLBykPvHO892oY+QtefaVQ3T/1tu76YOZwfo+PpszY
yK1DxKWXl9MvJg7QhBiLEZeo0bN1y8Sthx56yOSvMJZjTCfqNtWgg9x+++1Z
9w5jo0p8BxnnuNdfiClh+zsoHyQZvPltxLlKYOx58MEHZ/a399575/RxjxJv
XQzrq9JBskmDDsI5PPHEE6YfBsfO1xODscodd9xhcs+IB6tWrYr1HIWIGvJk
8LrYfffdA/tYWLhHiH1xk4QO4s2HZ+vWrZupT+Hf8QsMG2IW9b9R6iADBw6U
DpJilA9SPlzX7toSto0bN1a0T9a73NoG9TCF7kO8jt2e72eeeaZvHWTNmjVO
kyZNMu+lTm39+vUVnbtf0qSDUB9Efgo93NGf8n1/1MXgFYIewvwwjnVPkQzV
oIO4vUvZzjnnnLL3QU0D8xRq9FnPZz94CJAXGkUcoBdF2nUQPFGoS6Y+j7lb
teue9Du2tYZ2o+apXHgm0aPZnSvE2B49Ll9f9ChRPkhp0qKDsLZ27LHHFp3/
8Try/dHn6KkgRF2BvE18gZs1a+a7f0EhWKvjPsbrKW7i7hcD1NN7Yxh9MYlj
aDFR9JvKp4NQxycdpHaQDhIMt08pm9fLtByoQ7N1szbmsP5VCHKemb+750N+
a9mIy3vttVfmvfx71LXdljTpIKxl4rGCF0kxfYO8XeaM5H+nqQebCJe06yCs
x3vvHT/+NeTSkgM2bdo0o5e6a1TQP3g+R6mDpj0fhDErOV/e75b+G9WK7U1g
N9bm/fhH8QyhdgbNhPvAraVQI4gmgo93EkgHKU0adBAhahl8MtGNGZ+PGTPG
rDmUsz322GPG6+emm25yBg8enFn7oK48bpLIB7G6T74tin7sIB1ESAcJBr4R
7vtm2LBhgfeFf53dD/X/pfwJ8SC2a7n2d/Org+CH0bx588x7yduLy38pTTqI
EG7SrIOgZZx11llZ9w1+YWgbdkMbZRz18MMPG18xYgLjsXw93MhHx+eSHrxR
4/UHadOmTap0EMYj+cZc5IpVI+gUtkep3Zibu6+VyZMnm/E2tX/0HGGtEe85
9zPFrcmPHTs29vwPL9JBSuOet9iNvNGw/P6EEIXhPqOGo9A8vpINL9q4SUIH
QTPweqCxsRYZFdJBhHSQ4DDWcY/LWFssF8aYdh9oyH7iHTUa7jEr3hZ+xzqf
f77W5OvZ9zZu3Di2HnoXXHBBTnxjHC5E0qRVB6HnnndeG2RjbNG1a1dTf2t9
cOIg7fkg7vjr3f74x8+TPj3fUNeHFo8+Vum1Qn0mXrnUB0XpoV0O6ptbHDzG
vVqp3ehbH2Z/BSFELr17945EA2FbuHBR7J8niX4xQB2MV8v97LM1kR1POoiQ
T2pwGHu4PUfp+eoXxpfu2hrGdX7rZFnP+/nPf555L2NWv/4gaLzueRX5IHF4
ttNLm8/oje98f4sWxR/jhXCTNh2EeUvfvn0rGjsRI4477jiz7p9U78C094v5
5JNP8+ZBsJE7UQ2Q14PfdSXXCvoJejqeDXH2LPeL8kH+xZ133un06tXL+BuT
x4MPB+sa7jrZfBueyi1btjT+ucQ69sHGWEIIURmjR4+OTANh++tf/xr7Z0oi
HwTow+7+7HgqR4l0EKF8kMpYsmSJiRH2O8TPuNh6K/ccteft2rXLvKdVq1Zl
5WQwPqe2376fMVE5PqluvRVNJCx/ENbs7PiKHlennnqq8R/E279YjCcukH+N
XwdaEu+1+4l7HQsfJnwG5YlaW6RNB7niiivKGifhcYG3Mj3mxo0bZ7xDkuhD
7SXt+SBAL1ibR1GvXj2jB5AnF/X4KyzczxI/22677Wbyt6k/57O///7i1OcL
5NdBKuvDEAVR6yA8H8OcXzH+DxPqp/Bxv+uuu5zrrrvOxCPOmd70+CXIY0vU
RU455ZTINBD6lCdBUjrIeeedlzkudbRRxwzpIEI6SOUQL9xjUcbU3EfU7OPH
SU4bPsj0qGZ8bV+Hfx3e++WOQb09GFgX8quDkPtBDkgU8xLW58J+BsRVl85v
yFzY1ibiobJgwYJYji2SJ206yIYNG5x58+Y5b7/9tvFI9W70OFm8eLHpe8Qc
Ma1UQ78YYL1t4cKFRgMF5tz0kaoG6NHItZLvOuH6effdd52lS5c6H330USR+
+3GgfJB/gfbDmAI/W/qx8NzC57jQtm5d9n+zDsL3tnz5cpOHiV9YmHjXaNwb
Pamkg4i6CLG1UPzN9+d+N97/wQcfJPKZktJBrM83Y/E46oGkgwjpIOGAlyH+
pa1bty45tyf/g7XGoL12GcO4exz06NHDdx03Y2b0Zfte1pDDWjfmHN577z0T
t1etWmU0F+YVxcZp7o0xGXkxvHfJkqVGh+B7jRpyevAJZL5GTwTmDfTz43vF
/1vUfdKmg9QVqiEfJB8tWrQwsUCkg2rRQchpjFIHSTuM+ZkT4iM/fPjwTM0Z
/8SbVwhRHSSlgzBnwMedWvo4kA4ipIOED/XaU6ZMMffWoEGDzHbjjTc6zz//
vFmPqRQ8g5o2bZr53Y4++mjf83WvhkLtSRrrweOCMRv11WjP5O3aehjyeps0
aRJbLx2RLNJBoiHt/iD5QHtt0KCBvBNiAH9vdHPicLFaxGrRQZLsF5M26F9l
dRDup2XLliV9SkIInySlg8SNdBAhHaT6IIfb7SV08MEH++4BQZ5d/fr1M+8l
97tWvTDIgznppJPM93DyySdneVHRp6Nhw4YmN0XUfaSDREM15oNQQ8K5rly5
MulTqdNwHXTp0iUzNqQuvJCez9oCeZT2OsJzSjpIemHsz/qP/b3Ir0zKq1kI
UT7SQaSD1ApJ6CDUtt52222x1CrHeay44L4aMmRI5ncjN8RvnskzzzyT6TVD
He+LL74Y8dmmE2IfGhB5IOhCzNfc4Nuy6667xtZTWCSLdJBoqMZ8EJ4XxAS/
vchFMPDzxZfWXhv0NHnppZfyvpbnmzsHkj5jaczVkw7yLxhvHXHEEZnfC79U
3U9CVA9uHYQ+BnWVuHUQNukg6SJuHQT/CNu3lX4ifvMY0n6suHn55ZfNuJHP
tt122/n29Lz11lszvzc18NYXsNYgz8P2PKY/jduPlfEaveDLybMR1Y10kGio
Rh3kmGOOqfl5bBx4e03S+5V60nzgYctzzl0LmoZ+SF6kg/wLcqnIp7TeIPQl
EkJUD2vWKB8kDJQPkn7i1EHo5UjPPvf1dvzxx0fS7yDOYyUBHqv0pOVzbbrp
ps69995b8j3M9W0dCNtVV11Vk/7t6Bw2ZxctyZsTw3d74IEHag2rhpAOEg2v
v/56Vl3M/vvvn+oYjEZDnhw6s4gW/FesfwQbzzPqX7wwTsVX3OaO8Ly7++67
Ezjj0kgH+RdPPfVU5rfdYYcdnKVLk+l5IYQIhupipIPUCnHpIPiH77zzzqYO
gWsMbzSbN4nXRZj924odiz72YfeKS4qHHnooM9agzrrU+hjfA/GM1++xxx41
631Bv1G7VnXQQQfl5Hwwd2Pshs+bqA2kg0TD448/nqnDY6PWDE/MtNKvXz8T
I6V/Rg96WNu2bZ0tttjCuf766wvm3vG8dvdhQ2sI2mstaqSD/Gvcz7griH+Z
ECIdKB9EdTG1Qhw6yHPPPWd6lJAfff/992eurz/96U9Onz59jD7Wvn1702c1
ymPhw8ax8OwK41hJg+6Bv6f1+iiWe0ouCJ+f1zIv4T6sRX9UroehQ4dmrvlr
r70263vg7y+55BKnefPmRg8XtYF0kMrh3pk2bZpz0003mZ6ZZ511lvOLX/wi
6/nPRn+miy66yNx71EbQtzoNkMuPdq7+nvHx6quvGs2Z/DvqWL0Qg4899tjM
tYNXKp5faUU6SK43yIUXXihdUYgqQ/kgygepFe65557IdBCuL9bUt912W+PF
MGfOnJzX0LOVnFfWhKgdD5qjUM6x0AwqOVaaQLPt2LFjJv/06aefzrl/8eBn
XsIYn435R632ysUPZZ999jHfF16I1E+5YS7EmnWt1gzVKtJBKufvf/+7qT10
P+/JVyO2E5fRpom91DW4X0OP6qThXsdzgk3ECz3MOnToYJ5N5IaSG8K4hLrE
Ro0ameuEvzv33HNT72clHcRxPvzww0y+Jb/bww8/nPQpCSHKpJZ1EOrmpYPU
DlHmg3B9UcfLes7q1auLvm769OkmT2Pu3LmBj8XYqZxjMf6qC7D+wn3MfMPW
erAmO378eOfKK690GjdubP6cWiHGJLU8v6cfrq0lIgfJ3cuP74Xvi++J2hlR
O0gHqW1Y/0GjqQvaeDVCvsDzzz9vxiDUUTCPJicPP6sRI0aYuXU1IB0k2xuE
3NxC+V7ks6KBUqvM2gP+MNT6KndEiORRv5jS8yT6mC1atMj5/vvvC75GOkj6
SaJvroiGTz75xLnllltMTiraB/769BpkLEmuN7VBtQy1QSeeeGLBWDdv3jyn
QYMGygWpQaSD1C5WG63VHuIiPGpdB/F6g1Dv5PUGYd6B5rX77rubNQfqZtBD
zjzzTFOzi+d7LdbsCpEmajkfpJQOglbLWrPVe/fdd1+TS54P9jNgwIAsHYQ1
apEepIOIWoE8IdadrJ/Ks88+m/k7cmrI6ce74NNPP03wLEUSSAepXcgPfOGF
F5I+DVEHqHUdhOeordNl69u3b1Z+B7VzN9xwg6mTY72BfExqdPEJsn2R+Q7Z
jxAiOaSDFNZBVqxYaTRc93vI+cj3HuIfNZ32dWgnkyZNivIjiTKRDiJqBWIP
9cpc63jIWK9cYhd5NFtttZXiU41idRByqdavX2+2devWZ/79iy/S2+tVCBEv
9Pe1scEdK6jpqWUdhPolOz/gWfvggw9m/o7ccTzI+fspU6Zkcj7efPNNo4uo
v4wQ6UH9YgrrIO+//35Gt7UbPT/y1fRR/4fvlX0dPo68X6SHKH1ShUgLxCfb
L4etW7dumZq+1157zcQ09Nxa9Y+tdawOUmjbcsstkz5FIURKcHv95ttqVQfB
p93mitMryvpsUZPL+JJamDfeeCPrPVOnTnU222yzzHd39dVXqy5ViISppXyQ
YcOGZcXvyy67rGgM4rshd9y+nvkDvc/ygT/STjvtlHkteef0rhDpoa7ng3CN
s3bj9sMUtQfrS/jH2msd7z2ujY8++sj0j6FfwVdffZX0aYqEkA4ihPCLdJBc
mDdcccUVme+gXbt2zsaNG521a9c6Xbp0MV5lCxYsyHkfNTC8Dy8RnsuqiREi
eWpFB2Ht85xzzsmK36eddprxEyyEO9bhv7hs2bKC+3Z7g+AbTf6bSBdR6iBc
R7NmzXLuvPNO57rrrjN98Li+8AcfO3Zs5Jo/x27ZsmXGm6ZXr17Kt6xR3L38
6KuDTxu6B9finnvu6XzwwQdJn6JIEDT7l156qeBWSOsXQtQeM2bMKBovavF5
Qv632xuE/Mv33nvPad26tRmHFeobI4RIH3VVByE3jToI+rPTH7Jz586Zenm7
oXNTy4LWMXLkSNP31Dt3pA6S9VO0DfpceXPJmf9yDLyf2efWW2/tPProo/KA
TiFR6iDTpk0zfpT51kvQyKLSQdjvhAkTzHWHjy9jFnq57bjjjubzitoD3cP2
FW7UqJHJ10UXQxuRPiuEEEIEh7UG5kt2jNeqVSszBjvrrLOUaylElVFXdRBy
wJkL2s9Wr149U8uHP2D9+vXNP/lv1s7dnh4rVqzI2Re1Bv369TNaB3Uy1NMw
x2Td351/3qZNG80zUkyUOgh6BNfczJkzneHDh2fqRtHe6OMaFewb/YX57sKF
C82f4QWBJwS92eQBUXvccccdmeu8bdu2Ts+ePU1N33PPPZf0qQkhhBBVDd4g
du3T3RuBNdNLL73UmT17tsZeQlQJdVUHiQI0EnJH6De42267OY0bNza55qz3
sw6fzz9VpIe4/EGeeOKJjA7SoEGDgvVUlULuJb1ROda4ceMyOUg8f08//XTn
uOOOM73bRO2AHof/s73O0XnJDcHLXjlqQgghRHC83iB4gQwdOtQ54YQTTE6I
ez7FmFNjMCHSjXQQUSvEoYPwjCRfyB7n0EMPjcS3lH1S62WP4a7nwp8XrQ4/
RK1J1BZosVzb9vpjzWrMmDHypBdCCCEqJJ83iF0DpR6fPHGbK8I6xJAhQzQO
EyLFuHWQXXbZJenTESIy4tBB8P8+4ogjMsfBLzWKPCG8asgDYXv44Yez/o57
eq+99jI92ZQDUFsw3qIeyo7B8C6SBiKEEEJUjtsbBI/BBx54IOvvGXOx9mD9
COmpO2/evITOVghRijVrlA8iaoM4dJCVK1c6O++8c6ZedOLEiaEfA78avGg4
xn777Wf+282cOXNMD2f8MkVtgQ5H3z6uDXxjdA0IIYQQ4YA3iK17xnfL+rK5
WbVqlRmDWa0EL3s35I3gIyd9RIjkUV2MqBXi0EHo1WKfkfjuht1Tzq418Gzl
GDxL3Tkf/Dt/1qRJE+ezzz4L9dgi3VAbhS+MvcbxglYPVCGEEKJyyK2k/6Tb
h/zrr7/OeR05I7ZPA+PByZMnZ/09fvqsl7322mtxnboQogDKBxG1QtQ6iNej
8uCDD87pw1wpGzduzPQo2nbbbXP6E5EbQo5Inz595NtbQ9Dfu2vXrsanzeaD
4I+qfBAhhBCicvAG6dSpU2aM17t377zjrFmzZpl1CFsXs2TJ0szfMU4cPHiw
07Jly5xcXiFE/CgfRNQK99xzT6Q6iNcb5MILLwxdi5g2bZqpd2D/7du3z/Fg
vf/++02uJn3bRG2ANoZnLnm406dPN9rYNttsY9ahnnzyyaLvxVOXfkbyEBFC
CCEKQ72L9QbB/+O+++7L+zrWH+w4Da825lmWNWvWOM2bNzc9Z/TcFSJ5pIOI
WiHqfJCVKz/MeIPwjPT6l1YK/dd69uyZ+Qz4krtrYr766iuTp9mtWzezbiFq
g/nz5zsnn3yy8+6775r/Zo2pVatW5hoZPXp0Qa/cZcuWm9wirUsJIYQQxXnm
mWcyvWDq16/vLFiwIO/r3D5xzZo1c9auXWv+HN1j5MiRTqNGjZzFi5fEeepC
iAKoX4yoFaLWQfAGsc/I7bffvuBzDo3irrvuco4++mhn1113dQ455BCjmZTK
HaHmlHuU/VP/QI2phbnuLbfcYp7N5GSK2oWx1rXXXmuuEzQxcj7ccK08++yz
Zpy2++67O2+88UZCZyqEEEKkH56b9OAr5Q0C9G0bMGCAeR25mYzJeC7T54+x
24gRI5QLIkRKUD6IqBWi1EG83iAHHnhgjjcIz1HyJZl7MgelbgY9hD6n6Cf3
3ntv0T63PENtL7YWLVo469aty/zd+++/bzQSPhd5I6K2wSOXnBA8QuhZZK+r
Tz/91LngggtMzcyRRx7prF69OuEzFUIIIdINz9Brrrkmk+87atSoouM1esIM
HDjQvJbnbYMGDcw/8Qb5/vvvYzxzIUQxpIOIWiFKHQRvkI4dO2b237dv36z8
DrSJG264wXibXnXVVcbXgzUD6hbI4eA9hx9+uNlPPnjtWWedldk/2gl/Bugt
v/rVr0zN6ccffxzq5xLVC3UyXBM/+clPjG5GD6F69eo5v/zlL50HH3xQepkQ
QgjhE/QLPNpefvnlzPirFKw1TJo0yRk/fryplxFCpAv1ixG1QpQ+qdSsNGzY
MLNWwDzTwrPzkksuMX8/ZcqUzBoCfpboIn76y1Bfit8Wr2Mue/fdd5s/R2sh
V5PcS/UGEV6oiaFea9iwYSYXlz660j+EEEIIIUSto3wQUStEmQ/y9NNPZ7xB
6JO2ePFi8+fkRnKsfD4MU6dOdTbbbLPMOaFnFKoZ5b1oHbZf7ty5c82fP/74
46beFD8I9ckVQgghhBBCiNJIBxG1QlQ6CNoFPdDsvtu1a2d6mX7++VqnS5cu
TtOmTTO9PNxQA8P78BJhrb5QTQyMGzfO5IGw/3333ddZv3690UbolUoPGfWH
EUIIIYQQQgh/SAcRtUJUOggaRKdOnTL7Pu+885yFCxc6rVu3Nj1JlyyprD8a
eR79+/fP7J8eqfRro06mc+fOBT3LhRBCCCGEEELkIh1E1ApR6SB4g3Dv2H3T
p2OrrbYyvqZfffVVxfvH44Eeu+5z32effUzeCX1BhBBCCCGEEEL4RzqIqBWi
0kHwBqEfmt03G//doUMH59JLL3Vmz57t21s8H2gpBxxwQGbf9P9o1qyZs3z5
8tA+gxBCCCGEEELUCtJBRK0QhQ7i9QbBC4S+uCeccILxL3XfWxw/SK8O7lHb
K4YNz9X58+eHcv5CCCGEEEIIUWu4dZBddtkl6dMRIjKi0EHwBunYsWOWN4jt
20KvmOuuuy7TR4Y8jiFDhpSdG0LtC9oH+9h+++1z+s4IIYQQQgghhPDPmjXK
BxG1QRQ6yMqV/+8N8tOf/tR54IEHsv7+H//4h/P73//e/J3tqTtv3ryyjoEn
asOGDc378QWhV4wQQgghhBBCiGC480GYazHHKratW/f//45/oxBJ8sUXX+S9
NvNto0aNCl0HwRvE5nvUr1/f9InxsmrVKtPfltdsuummzoQJE7L+nryR4cOH
O++8807Oe9FA9txzz8x54xMShveqEEIIIYQQQtQq7nyQcrfRo0cnffqixvH6
k/rdwtBB8Aa58sorM/ts27Zt3h629JPZcccdzWvQTCZPnpz19zNnznR23nln
57XXXsv68zlz5jiNGjVyWrRo4ey7777m/fxT+SBCCCGEEEIIERx3Poh0EFFt
JKmD4A3SqVOnzD579+6d8QZxM2vWLNNH19bFLF26NPN3aCmDBw92WrZsaXJb
LHPnzjXaCN4jn376qXPNNdeY9zdp0sRZs2ZN0fNau3at+ukKIYQQQgghRAHW
rVtn5mZBtrFjxyZ9+qLGQSsIcu0OGDCg4mNT72K9Qah3ue+++/K+7vnnn3c2
33xz8zr6vqA9WtA0mjdvbnrOoIkAniLcW/3798/kl7z44ovOFlts4Wy33XZ5
a2+A90+aNMl4qV588cWZ/QkhhBBCCCGEEEJUyjPPPJPxBkGfwMsjHytXrsz4
nDZr1sz5/PO15s/RKUaOHGlqX5YsWVL0WN98841z6KGHOvXq1curP+LVQy8a
8mO6d+/ufPnll5V/QCGEEEIIIYQQQgjnXzkbV199dUlvEKBPLvknvG6bbbYx
dTJoIA899JCz9dZbOyNGjPCVuzF16lRTX0P+CNqKPQ98RTp06GA0kGHDhsm/
WAghhBBCCCGEEKGC/mA9O6iJoRcNf1YIesIMHDjQaBVsO+ywg/kn3iDff/+9
r2OildD7Fy2EOpv999/f7Idz6Ny5c9n9eIUQQgghhBBCCCH8gn4xbdo05+WX
XzY5H35YvXq18fAYP358JqejXPBAveuuu4yGcvvttzvLli0rqsEIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEGng/wD3WT3f

     "], {{0, 80.}, {545., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{144., 144.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{545., 80.},
   PlotRange->{{0, 545.}, {0, 80.}}]], "Input",ExpressionUUID->
  "91946aef-f13d-4dba-89ec-9f4f5458a238"]
}], "Subsection",
 CellChangeTimes->{{3.845852788927101*^9, 3.84585284983389*^9}, {
  3.845925594824545*^9, 3.8459256156107626`*^9}, {3.8551652346663647`*^9, 
  3.8551652616859393`*^9}, {3.8551823497316427`*^9, 3.855182365209648*^9}, {
  3.855357689556183*^9, 3.8553577434998693`*^9}, {3.85558885828386*^9, 
  3.855588927978254*^9}, {3.855591955451442*^9, 3.855591956873375*^9}, {
  3.855593200655068*^9, 
  3.8555932151336756`*^9}},ExpressionUUID->"a0fc93a2-cc76-42d9-8ad8-\
51aee46e5cd7"],

Cell[CellGroupData[{

Cell[TextData[{
 "Initiate the 16 x 16 x 16 table:\nHoloraumyDD16[I_,J_,khat_]:= ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQv8VWO6x01mxl2GyFEYRYUSlVuiMCmR3DW5jEkSSYRSuZRrMUy5nIhc
ItdKCFHKJUpKpYuMOBqVSzkzZjBznDNnnfm+83n3WXvt29prr9v+79/3M2tQ
e6+19t5rPet9f+/z/J49eg88uW+9TTbZ5PLN//l/J/92yJGDBv126Cnb/fM/
Trvk8gsvuOT8PsdecsX5F5w/6JDem/7zDx/+53bUTzfZ5J//28QRQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEECJhNm7c6Jx88smBtmnTpiV9+qLGOeOMMwJd
u/fcc0/Spy6EEEIIIYQQIgHWrPmjs8kmmwTaRo8enfTpixrnZz/7WaBr97e/
/W3Spy6EEEIIIYQQIgH++EfpIKJ6kQ4ihBBCCCGEEKIc3DpI/fr1nUmTJvne
VqxYmfTpixrnySefzFyPjz32WNHrFe1DOogQQgghhBBC1DZuHWSXXXZJ+nSE
iIx///d/lw4ihBBCCCGEEDWOWwf5t3/7t6RPR4jIkA4ihBBCCCGEEEI6iKgV
pIMIIYQQQgghhHD3i5EOIuoy9MqVDiKEEEIIIaLku+++S/oUqob//u//dv7+
978nfRqiBlE+SOX87W9/M/ew8Mf333+fyHGVDyLE/6O4VR58X//zP/+T9GkI
IYRIMX/605+cfv36ObvvvruzfPmKpE+nKhg/fryz2267mZ4G//jHP5I+HVFD
SAcJDmPiRx55xNl5552dcePGJX06VcGqVaucpk2bOgMHDnT+/Oc/x3ps6SBC
KG4FAQ3klFNOcQ4//PB/jmuXJ306QgghUshXX33lHH/88c7WW2/tPPXUU5rT
++Qvf/mLc+aZZzqbbbaZ87vf/U5rNCI2pIMEg3v01ltvdX72s585F154YWI5
DtUGz4QHHnjA2XzzzZ0ePXqYZ0ZcSAcRtY7iVnA++OADZ6+99nJ++ctfOnPn
zk36dIQQQqSIb775xjnuuOPM+Pb+++8vqIH8x3/8h/Piiy86M2fOdN58803n
vffec5YtW+asXLnSbGjt8+bNM3//2WeflXUOGzdudGbMmOG8+uqr5jn1/vvv
//PZtcxZsGCBM2fOHPPnX3/9dRgfN3Q4927dujk//elPjRai/EsRB9JByod7
k3uUe7VXr15Gx8wHfz5r1izn5Zdfdl5//XVn/vz5ztKlS50VK/4V6/jnwoUL
ndmzZ5t/lnPP/9d//ZeJcS+99JLZNzGOOLp48WLnrbfeMnGQY6QRPudtt91m
vj9iHs+OOJAOImqZIHGLcZONW3aMFlbcYt/VFLfgnXfecRo1amQ2/l0IIYRg
TeH88893Nt10U+emm24q+FzEA6N79+6ZsWip7aSTTvLtm4Hucu2115bcJ+fn
hTWSK6+80uRj+D23SraddtrJee2113LOgzlp27ZtnS233NJ5/PHHy/sRhAiA
dJDyefLJJ03O29FHH230y0Lce++9Tr169XzFBL77jz/+2Pc5MJfYdttti+6z
Y8eOObUnxLrBgwcbvTrJWMd8aNCgQeY1ffr0iWVdWjqIqGWIW1tttVWocWuX
XXaJJW4B2knDhg1jiVvky1x99dV5P8MLL7zgbLPNNs4+++zjfPTRR74/uxBC
iLoHmsfo0aPNGgM1MaVqvvEPQfvnWcJaoPvZg47COsXkyZNNnkih9YpCMJZm
DePEE0/M2i/awu233+68/fbbeXWVTz/91Nljjz2y3tOsWTOj2VCvcsEFFzhX
XHGFeS4OHz7cOe+884xW4X49YwvmF7zGbpdddpnz61//2mnfvr35fuxrmUOx
FpIP1mHq169v5g+crxBRIh2kPFgDpK6e8T9rocVgrv/hhx+ae5244dUeDjjg
AOMNRF7cunXryjoPdF/WaIcNG2bmNnafzBMuv/xyZ/r06XlrTvzEOt4fR6z7
8ssvnYMPPtjE/ZtvvjnyHDjpIKJWYSyR9rjFGKtQ3OKciE/u89hhhx1MLDrj
jDNMnLr00kvNfolHaKx77rln1uutL5E7bg0ZMsTEgi5dupj9uV8/dOjQvJ8B
LZm/s7Ewrnw2IYQQ6QN9f/vttzfzdrSLcmCdkHGyfe7svffezvr16ys+J57z
aAk///nPnREjRhiPq2I8/PDDRv/nHE499VQzBigGtTbuZybrAqXGA6yZdO7c
OfPML7SOwFzA5rUceeSResaKSHHrIIyRRWG4F1mr/MlPfmLyy8vxP6IeDz3W
ftfMLZ577rmKzwmtuFOnTmafjOVL1RIS66xO4SfWkbPujXVr14YT64C51nbb
bec0aNAgct1XOoioRepC3Fq9erXxkuf1zZs3N+toxXRT1sSOOeaYss6bc2Ls
xViQ7+q+++4r+Fq+FzRf8maK5UALIYSou5Db8atf/co8Z1hDLNffk/Eya9BB
cyzzwTP+nnvuMc8yNJBS52R9wDl+//79feVnP/HEExndhO2ss84y6xWlYJyP
PrPffvuZtdBCMDdFE+IZS66N/GZFVKxZk658kDfeeMPp27evuSdZq/PrEcQ9
cscdd0TWf5r9cy9yT7Zp08b54osvyno/50Wdnzv3Db/QSlm69AMTN5nnlPIc
DRrr3PkdQWLdF18UjnXsixwU9s2zhGdKVEgHEbUGcWvUqFFmXh80brnza8OK
W3iO+o1bwDGJQ61bt3Y++eSTkq/nudGkSZPMeZMDhzddKYg/6BvkwFGHU4yp
U6cafWXHHXc0HipCCCFqC3Ij0QN23XXXkuuK+fCuNRTLofYLa4/kQ55++um+
6mrw5OJ5zHmsX196jIDuT/6lPWfmRXfffbevc+PZTD9h1kqLzUHsnI5948el
Pm0iKtJSF8N8+De/+U1OnTZjX/682PidsTo504xJqbmLAuJE48aNzfngA10u
xA08iLx515WsIxJDzj77bDPGZ15RCj4DvzGxzs98KF+su+uuu3ydG7GOvgql
Yh3gZ00+Id9tlH08pYOIWsPGLcZp1Rq3eD1aDJ4c1D37gde56/nw8Pej+9r6
G3KcyYUrBuNLclnYP+f33Xff+To3IYQQ1Q8aRrt27cwzAI/UIL1emb+ccMIJ
WWsNDz30UOBz4jnHnIneZn79q9Aw8EclX9wPrBd06NAhc86sefr1DWc9gtxO
P98X6/Tkf3IMavGVdymiIA35IP/5n/+ZyZEutFE7QZ6yNxdh+fIVJueAOXQY
+dr54N676qqrzHm0aNHCaEdB4Pzd/oPkZvjJrSjEY489ZjwHH330UV+vJ08O
rShtsY7vAK9U6+UUVS9d6SCilggzbpFPklTcYh0IbxP8h0rVOAPrSNdff33W
82PkyJG+8mr5XD179jSeSWvXri35erzsGD+yhoe3mxBCiNrAemoQ//P1A/AD
z2nbM8Bu+HIFrQOZNGmSmS9NnDjR1+vR77t27WryRf2OvVesWJHlWV6qxsXN
ypUfmjr4W265peRn5LvB04tjkN+Jv6EQYZN0Pshf//rXjJ56zjnnmD6KzJs3
bNhg5u3Uh7njA+t0zGHx5TzqqKOMdooGUol+Wgpq9cht4PjU6gTVJOnb7fYG
POiggwL7/3BOjNVZV/Wzzhl3rCM/kFiH/6mfeE4OOuu3PFOYJ0UB15N0EFEr
1IW4BWPHjjXjzJkzZ/p6PfvFs9+er58aFws6y7HHHmvqdfzkE5NXR1y0NYNR
1WUKIYRID4yp7XOmkmcisEbnXms47bTTAq014KNFHgjPIr/P10WLFhkPQNYO
/Gov9LMN4g0C+Kv/4he/8N0Td/bs2eb5z1wvynxxUbskqYP8+OOPJq+YPAPW
1fLBvcVaXqE+r7z3lVdeifQ8mT+jtZCXjX9JUNAGqP+w506+up9ady+M1ZnH
0/9g1apVvt5D7UmaYx19PK0e1qNHj0j66CofRNQSxC3GDmHHLeqg44pbaBH4
BpGX5tc7iJo8d08sv94gwFiWHlZ+Y50754bnJ9qxEEKIus3ixUvMWh+xn5yF
Smo20Om32GKLzDPrkEMOKVtX4fnau3fvsp6v1veQ5zt6iB/cORps6Dd+vUHg
ySefNHORt956y9frWbfdf//9zbFYo1D9qQibJPvFUH9N7cTChaXvP8axl1xy
SWZdkvoS7omovXPIV7F9B8rJh8gH77Vrh2zkhvuNBW7wLuW9futbrFcifn7o
IX4IK9bRT8zv8WxuIDHZj29AuUgHEbWCN24V8youRdhxq5zcPXoQEkfK6XNj
c8vs+Xbr1s23rrpmzRqTf0vfGL/HmzFjhjkez6Q777zT13uEEEJUL2PGjDHj
YuoiC63j+gX93Goqdq2h3BoQxtzlPl95xvF6esr4zWVkPeKwww4LVC8PrMlc
fPHFvnUe6gMYr3Ms6mO11iDCJum6mHJzv3744QcTH8gfiAPm4zY+nXfeeYF8
kCyMxdFu3B6wfmv4LKzD4htErbzfsX01xDp4+umnTa9zni1oFmEjHUTUCnUh
bsHSpUuNd1A5fcOIc0G8QQDfu379+jnz5s3zfY5oJ3jzc6zu3btHkssmhBAi
HTCOpheLXT+utM8t9ZUtW7bMWmug56JfmBPhAYa3VdT5Eqw9e+vly+1DVy7W
W5H89HLHHkKUImkdJO2Qc8G4P4x+keQ8DBgwIGuMft111/keoxN7mdOQ500f
iCgh1rlz4eOIdeTyofdyPOJ5JV6M+ZAOImqFWo1baBDkf7i9QV588cVIj0k+
MrV8HI/8Rnm5CSFE3WXdunUZ78JDDz3U9HqoBJ5btvcYWzk+eTxfWSuI4/kK
nJe7Xp7+amGP1b1YjxCOx1hEfWNEmKShX0xaYQ2VtUGrz+J5USl4/rn9kHr1
6uU7hpAvQV7GhAkTKj6PUuA5HXesc/dRRxsPW3eRT6qoBbxxK0gNixfillsH
SWvcon7SesOy8e9+vUGCwpgMH1qOR4339OnTIz2eEEKI5KC+nJ4sxPwzzjij
4rExz+wLL7wwUB7jM888Y56vrHcE7THjF551+BMErZcPCvk25N1wTPpjUPcr
RFgoH6Qw3GtHHnlk4Hq9fNDb1+35Su2JH/8/xvL77LOPiblR5715Yx35aHHE
OnTtk046yRwTj9XFixeHun/lg4haII641b59+9TFLSD3w+03V443SCUwBiX/
hmPiZSKEEKJugvZADTfxvpJebG7uuOOOLB3Ej1e3fb7SXyaO5yvPfJ79Qevl
g+L2SqW+1k9PeyH8Ih2kMOTK0IOK74Y8BfIVKoV6d3r/utcrS9W+ow9ccMEF
5rVR+8JCvlhXTq1iUHiW0A+ZY+I9NXXq1FD3Lx1E1ALE9LDj1pIllcWtZcui
j1v5vEH476jXyMB6pXLM888/vyI/lqhhfM0Ynnw//mk3+99o0EIIAcQ1d3zw
/pOajFrj97//feYZw7+HwbPPPpu11nD44Yc7f/7znwu+nucreZ+77757LPMC
oLcF/RbsObZq1Sryenmgbxy97Dkmvmdx1P+I2kE6SGG45+3Yn96NYawrUleI
n5FbYyjlyTdlyhSTgzd+/PhYxvRJxTo+2y233BJZvp10EFELxBG3iEfz588v
+h7iFvEtrrjl9XMlLyRqbxALfW1snjTngGdIWiE3x60VeTe+NyGEAJvnVmj7
zW9+k/QpxgrrdcOGDTOfHf+tcvqzFIP8ZzRo+73StwwP7kKwTsjzFQ/ROJ6v
kIQ3CKD5WA8uan399qEUwg/SQQozZ86cjDfPqaeeGsr97s5Zt35I9LsqxGef
rTFeGaecckpsNXFJxTq4//77TR0Oxy2nd6UfpIOIWsAdt4gbYcUt6nL9xi3G
b8Stk08+Oba4RY4wa2NxeoNYqF+2Hs9h+OZFidVB0LWIie4NDyVisBBCwL33
3psTJ9hsj6xa00HI9SPPkc9OPgz+V2FArYfN47RrDQsWLMj7Wp6vrE/GOS9A
/6EHpNsb5K677orl2Ixh8CTjuFtttZUzc+bMWI4ragPpIIWZNm1aJk+NeXMY
uc7sg94Jbj395ptvzjvf597v37+/6UHAGm8cJBnrwK3BXHHFFaH6QksHiZcf
f/zR5Azgl0C/VLwaunbtampZb7rpJuf11183fbBFuNRi3AL8Sd3eIORlxNXD
1q3BtGnTxtQzpxWrg5ArJIQQQaBuo1Z1kHPPPTdTv009SxigZ3Tq1ClrrSGf
xsLzlTE63l8ffPBBKMf2A9o+Gn/c9fLg/s4Z2+BXJkRYSAcpzFNPPZWZk/ft
2ze0mu9Ro0ZlzScKzVWYz6AJjxs3Lra8tyRjHbi/c/yzw6yzlw4SD/h1Ud+0
ww47ZL5v8j3x88Ljyj1X5fqmB6sfz03hj1qMWxyH/LEkvEGA9Tm7Psp1vn79
+liOG4Rq1kGYAzD2f/nll403LT0VuMZZFyX3qNBGPifaHJos9VqLFi1Kdc6O
qBy8FVhPJx6R50QtA3P2YtcJG/fH5ZdfbupyqavDi0B6fS5R6yD4hpKL3Lt3
b+eiiy4y3nF4kvrdLr30UjOG5DnFOkyx/MVyIAbhsRT2nJxnKZ/V/QxjHOV9
hnE8nq9c03E934C4izeHPbcoejoWwr0Ow9hm8uTJsRxX1AZuHYS+RJVCrOE5
glccMQjdcuDAgc6gQYOcK6+8MidW0Qua67tnz57mNZWCdx+xk3M455xzzHkw
/rHHpw8KOW1oixyTuFNonvD4449HMidH47Ve02xowPgAucGjtXXr1qZ/Spw9
oryxLi5vEAvxzX43XBfSQaqL1157zdlpp53Md3z00UebObl3bZzfdOHChWZs
Y/MW0NvC9sWNEu4J4gdjQOZhxJV88a3QxmuJfbyXOEW8In8mDIhbtqY77rjF
8ySJuIX21qVLl8y5cV3F5Q0C5DQ3a9bMHJt/Er/TSrXpIKtWrTJzIn5ft4Ya
xkbcYT5HzuOGDRuS/qiiAv73f//X+AZcc801zsEHH2y8G8K8Vho2bOiceOKJ
Jg6m2f8nLqLWQcgbDfP347oIA7deQT5IWHNyNA1yLN3n7B0D85zh+cp1GHfv
2EceeSSrXp46lbjq5fkOzj77bOWDVAHk8C9ZssT41rBOwTrnrbfeavTo1atX
mzidNhivhZkPcuCBBwaOU9RzVwqefOWOgwo903je2fs+zDk5axTWU8+Om919
oIgtzKsaN25s+svEycSJExOLdYCOpnyQ6oS4x/yb/mbMXfxAPYHth0YNFnGz
GsAPIswxGltYY2u3XhF13Pr883TELXoDU4fjfpbE5Q0C5IPga8exlQ9SOVyz
1Ei6cxOj3njuULvH/ZPGsZrID3kf5Ko1bdo0tmsFr0bGEKU87usyUesgxO/3
33/fbDx7Zs2aZcb3rK26x6je8fxVV13lPPzww84bb7xh/KvtPsJaz3PXjnMe
rDuEBeNfty8tXoJW7+D5yppyo0aNnMWLl4R2TD8Qj1lPdn/XcdbL89lPP/10
c1z5g6QT5rDkG3APFoudjA9ZC/zwww+TPuUMYdfF8EyycYse28W86Tt06OCM
Hj3axCve411bDAKaKrGPnEbq5/Id167/cNxiPSXd9eZokWHpAe4xMxtzCz6/
5YUXXjB/xmeIM+/NG+vi9gYBNGf7HJA/SPVAnjrXC3nF5faxx8OB9Tv72xAT
0g6xwI6vyG1hPMy6ELp3MS2YcQ1r22jjeKfwXrufsOZetRa34Pnnn8/qORin
Nwigw/B859jyBwkOz6AJEyYUnNMy7yDfjFjj/Tv+HP2LeQLrtJXMc4lH3Jsi
vVDXxBp/oXE3MdDd9869oZlyrZDjUWneCPnH69alV/eMiiT9QXjW5Pst4phb
8WxjjduOkVn/CQvGEe7r2b1GynOd5+udd94Z+/OVe+2QQw7J0gHjrJdnjcjm
e3rHHSJ5br/99ow2iY6AHsJ9wXyOvtLUpbnrDNjoh8FadxrqU8POB8mHe+xs
N8bnUa+5sCbpPiZezGgkfuE+537nvd27dze9m8IALwQ0IHtejNlsTQD9KQ84
4ADnhBNOCEUXKoekYx2gu0Q1H5YOEg3UouEFQq1Z0HuaZ70dszIurWa9H+2u
ffv2OTEPD4M4qLW4lbQ3CKxYsSLjh+New0sjadVBmMOQS2N/Q75Prl/W+t98
803n22+/Na/jd83Xy5P1YjesyXz00UfOW2+95Tz44INOv379jEZVqg+o3YhD
eErEPecQpbEeCfa3QtNAj+AZT22vza1jrcv7uzJ3ddcg8vuyHrZ8+XJT1zl2
7FiTB2v9fvxsnAs1oLVEkjoIfi3e3yBOf0O0Wquf3XjjjaHFCMZSXMv2M+Gr
Ro3B2rXrTOwiHhLX4mbJkqVZfm9x18szN7FjKnTuTz75JLZji8IQR239Gn4x
rIcWWrtmfRR/Lvd6FRt99pLWteLwScWjzBuz0DSjhu/dHi/I2JRaJr4T3k/M
Dyv+sD7LM9v9fXB98OfoaNznSVwX6EZeb5D16+OLdW6dnbFqWH3ZLfhKSQcJ
n2OOOcZcs3aeEhR0Y3dsjHM9P2yGDx+eE/Piyq0ibuH1VCtxizjPNWjPiXVg
1s7ixK09hdVjPSrSqIPQc2GbbbYx58V6KLGgUD0Xc9Z8c9E//OEPvo7FOIB5
jFvTK7ZVou+KcGGMQA6IzQdCqyjmA0SNk/f3LMcH7/PPPze9zdz9TAttnBPe
vbVCkjoI14H3+w+jrt4vs2fPzvSmJ4c6rLxl1hrctYDMGckzxbc3qecruPO0
2eKul2eeav232rVr52zcuDG2Y4vC4G1n19v8rn9xDTO+d9+7PPvpH5kUcegg
eAJ6Y1YYnqil4PnIsVq0aBGoHwXjrbZt22a0rrD0T2I465Xu7wPvVptXznpE
EmtQ1FQmGevcntA8Y+bMmRPq/pUPEj7MPRj/saGh4X0adEzAGp5bh6uG+phC
XH/99Tkx7/7774/l2EnFrTFjxiQSt1gbctdA0r82Tm8QYKxq80KHDh0aaj1f
2KRJB+F6IefCzmtZ8/zyyy+LvodezPnmoUH8dYhf5OyWmuP26dMn6EcUIcEY
jno3+5vgVVkq182dX2o3cl6DQG6JjavFtBDGUbVALesg+IPZNdIwazAZb3vj
EZ7jPF/RhpN4vjIup37BfY3HsY7thhyv7bff3hyfvNqwclxFcKjv5vdgbazc
65JY6q1HZOyflK9a2P1i8uGef7rv7aihXwVrg37Xibxwr3Ge9jci9zksHn30
0SyvJ8Z/zFmOO+64RPLe8sU69Jg4YV2XsTnHR/tmXTtMpIOEDx4u3nubazso
aG92Pzz30lxfUIwkdZCo45ZbK2VekGTcAnLk3bmWXbt2jT2XyI4JeLZTg5Fm
0qSD2B4Adk2I+UUpqH/x3lt4s1QC+SjeNSrvht+ZSAaeA3vvvXfmt8Bb289c
6Oqrr875Hel5GhTGSeSHuPtmeTfGnHgp1XVqWQehTsPmbYS91uCt8WTDvzmp
5+s333zjHHTQQZlzSaJenvpb6/lETx3VKiYLegXPa56ZQXIMgHoy73XeuXPn
kM/UH3Hkg8yYMSPn8/IcixJqKjgO/i1BcddphJ1rTc2yzaN2f/9JebOlIdbh
EdG8eXNz/I4dO4Ye96WDhI+7ltVuldQzMYd07+uJJ54I72RjJEkdpJbiFp/V
W4PEZ4/bX5r+7Bybdbt33303tmMHIS06CDUE7t/Nb6+oSZMm5dxbrHlUCs/A
I444ouD8llinfqnJgHbh/i1YT/SDvS/d2w033FDx+ZCThMdqoWuF3hZ1nSA6
CHMmer6Q28BGvg6+KuXeV2HpIORfkM/IedhzItehlB5Lvh+1KhwXD48wn3/e
GhSus3J8DcOG74ceLfZ8GKO7+1tGDb81zwaOzXl4faBE/AwYMMD8HvQ3Cgoe
P9bP370xxoybOHQQvMq8n5WxdFRs2LDBePqQY1FpfvKrr76aqQMkTz+s8bW7
vwAb64hoNknpnMQ6+zltrHP3xIyDd955J+OVTS1V2Lnl0kHCx+aGuscilfiE
UI/t3l/Pnj1DPNvSEIOp77BjIsZs+JSVS1g6CPUdnIP7nOjTV8qvgLhlxy51
OW4xHsOf1Z6P27s1LhjbH3bYYeb45McU60GWBtKgg5CjtOWWW2bdH5988qmv
99oxsXsjlzEMGDtQV1VoflvNtXrVil3Tshu9Xvxy1FFH5fyGeIaEwdy5c4vm
hdT1nrpBdJDFixdnPT/cc49y/LPC0EHQG9zen3Yjh5K/KwXPGfIQeQaG2TMG
nwTrlcS+8eCK4/nKPI2xBvlOePBceumlZn3e62vJOfHb0zuYfCteT4843h8F
5ILZPHE8DvCMFclBHh652uTnVYrNW3Zv9JyMmzj6xfC95etzx/pLFLB2wL0a
hkbrzlHo0aNHaOtB3vwLekIFzS8qBxvryC1LU6wD4j3XCedCnnLYyCc1fCZO
nJi5dnhG0S+7Utz1YuilhfwSo4D5VL6em9R9lFNfV6kOQo0Ya9zefXB/EDfQ
0osRV9zCnzSOuEVuGGsPt912m8n3GDx4sNHI8q3J4p3I/X3VVVeZ34GaFfpA
ROXZgU5mx9P4pcR5vQYhDToI95P7N+M55Bd+d+9vHmYNJ3M1r0ZjN659ER+M
Hb1z1XLGBvlqnfCDDwvmv4V0ENZy6jKV1MWw3pDvt6GfvB8q1UGYG3if82ha
PGP8eiJT+2T9c/GLDMtLD78r6sLjnBfwbCRPyj1PYxxGHGRtkjxHu6HRMObz
vhYdKwq9hj5idr2N+Ujan691HXrC8Fswb8QLqZI5IXqj9z7mvnT384qDOPJB
wN7X7i2KXGr6bZY7rioGsc16dzZt2tT0tQprv/j9sF/G8nHkUpcb67ge44p1
zNOYr3Ec6i2j8MtRPkg0UCvLszuseaa7HyJbUH+foHAt0mPTG69at27tOz5X
qoPk826kvwXr1X6oS3ELWHt1e+ii0zIWQydzxy02ci29vVHp5xuV1wxzIc6H
45JXl3aS1kHI+bIeaXxn5eYrcR967w3GZmGC5p9vbst5V9oXS/iHukj73TOG
LKfGj/ljvt+wlIZcLrZvpHcjN6wuU6k/CLmO7jUPNr9+A5XqIG6vGbuVm0fo
ro3hGRuWNzfPKcanPO/xB611yAfjOiG/lTxXkSysiXvvHdbKg1AoRi9cuCjk
sy5OXDpIvh51YfuO8XwjHtE7IMwxr80x514kJz0MiOPUR++zzz7mPq913x88
Ucl35bqgl1AUa7fSQaoD7zpR3D1QLW7fYLuhb/ihEh2ENTHve+kVV673p63p
I27hqRAGilvZsF5tdQXqc7766qukT6kkSesg5M8wHqBPTLnfF9ebN3eRjXqt
MKEHYKGckOeffz7UY4nC4BdFbcu4cePK7hGBv5n3tyunpsYv5Jrlu07q1atn
1gjqKmH4pNJj3Pu9PfbYYyXfV4kOQq6k97377bdfoPOnlhvtnWds2v2xqxHy
Yo8//njzGxEHkvKKFf+P29vcvQXNC8n3nI37XopLB7F9ht1b2LW25EFHMU5B
s7IxH+1fXmnhw/oba23kwEa1xiwdpDrw+nDiiZEE+XyN/I6jK9FB+vfvn/Pe
IH6xilvRY/0SyZsbNWpUVehCSesglYBe7r030EWi+N693px2C8NnU0SP14eX
LYp+BNRR2DUc7/bmm2+Gfry0YNc2K9FByJ/zfmd4MJaiEh0Efxjve4OOMVib
sLmb9M+t1v52aQWPHXQmctPx0xXJk68ulS1ojkC+2ua4+zLHpYPY/gXujdzz
sCB/jFxocrajgDooNF9+s8WLy/dNFIVhvmZ9+nv37h1Zb3DpINWBt68468ZJ
ccghh+TErfXrS/fIq0QHoZeW+32MA4LeEzanlLgVxO9VFIaxuO391qxZs9Dy
oqOmmnUQ1ji89xW5UlFAP+Z84z3WW0T6Ia/U+9vR5z0KLrvssrzXStj1Wmki
jHwQal6935kfD55KdJCBAweGqlfNnz/f1GxS46dcsfDAB+Siiy4yvw9eaXH4
pIjSMB7PF+vIjQoCnqvefZXjmRwGcekg6Ajez4oHUBgQE5mvsI68bl00XsLc
g0ceeaQ5b9Zr5dUTHow3WdPjWcIzJSqkg8QPa2VffvmlyVvHo6LUfcP6ijdO
JOk3xxjPez5+vNyC6iDk43t1INbdgqK4FR3kV++7774m//2WW26pilwQqGYd
hJwb7311ySWXRHIsPI/yjfeYX4v0w/q897eLqpfUhAkT8l4rdXleHIYOkq+H
AnpCKSrRQex5u7dK5g08U/EjZD/4hqt2Ixyoa2OOTF9iv32yRfRs3Lgxy6uN
rZIeL16PILawenr5JS4dhF5Q3s/KGloYWE8z+oFECT4F+ITsuOOOkXi81iLU
z3bq1Mk8C8kZiqqnA0gHiYeVKz80fT26d+9unmHeMQ7jEOJcPl927itvnEgy
HyRfHpufvPigOgg++t73VTLOBBu3dtppJ8WtkHDngqBTMTaoFqpZB8mnS9Lj
IQr4jfP1jlI+SHWQr/8xmnwU4OOcTweZMWNGJMdLA2HoIJCvb0wpTbkSHcSb
b8lW6foAOgp5aczpGGdWiyaeVqgvYm7NbzN8+PBI5wWifJi3Mf7B7wLvJr89
lrysWLEib9xcvnx5yGdcHLcOsssuu0R2HDzivZ+VMUal8YL4Qx4I+SBRxx56
JbA2zbnT91i1gJXB73XvvfeaZwe/X9Qeg9JBouW9995zTjzxxMz6zqGHHmr0
gNmzZ5veZ2zMyclNRh+hL5C3lgCtwBsn6PGcFPg1ec9nyJAhJd83cuTIQDrI
Sy+9lPM+esRWguJW+OALgicANUv4JFYT1ayDuHs2240xTFR4e7ayxV27LMoH
f0VvnkGTJk0iO97SpR/kHc/X5X4fYekg9Dbwfm/8fsWoRAex/eTtxnUSBtTW
EC/oa/T++++Hss9ahN+WNW3mBfR5Uz1M3eWOO+7IuY/RRePOW16zJp58EK5t
+nPnjmE+r2i/aIb4gsT1vGHdr2PHjuaYjIek+wZn6dKlTuPGjc3GHDpqpINE
A2ts5H7Y75a+Ga+88krR96An4xVP/zq3p76tB41jvdcPeHN5z8dPHn7QfJAp
U6bkvC9oTzI3xC3yrhS3KofaJfQkxmn461Xbd1mtOgjfM/3c3fcGz44oyVe7
XCq2ieRZsGBBzu+G721UMP70Ho96ubrsTR2WDkLvMe93R4wtRiU6iDdPiJrs
MOCcHnnkEZPzyhxh/fr1oey31pg1a5apu2jTpo2ppRZ1l65du+bcx0OHDo39
POKqi4G99tor5zNX4k9k+0vGnadKLk+LFi1MfQz3rCgfnhE8KxjX+vFbCAPp
IOHDnMDt9/y73/3Od44cuY70RGN+biGHxBsjFi2Kt5e4m3w9bC+++OKS7wuq
g9Az0Pu+sPpT2LjFGENxKxjk1lx77bXGwwW/vag8naOkWnUQ1li99wafJUry
1cVobJ5+8q0zkr8dFXgEBp2XVyth6SCsm3i/uw0bNhR9TyU6CPWh7vfVr1+/
ovP3nhfjTOIGuQzffPNNaPuuBegPQz4NOTusk4q6C16AaIbe3Cy8BOMmrnwQ
wEPIG7vwTw0CejFrQeQ6/vDDDyGfaWkYk3FsziFKb8+6CM8G5r/0jaa3XVzr
qdJBwsVb+zF27Niy9/HZZ2tMLJwzZ465DvCxKHdtKErw+/eeT9++fUu+L2hd
TL66oFtvvTWMj2IgbpGHvOuuuypulQm6HTofeSBnn3121frhVasOQu6N994I
EnP8Qv2Y93jUDgethRbx0aNHj5zfLsp5Vb7+r/RTrcuEpYPk8y0t5Q9QiQ5C
Hb37fXhdhwnPCfJCqJlknMl8T5SGnCrWylu1ahW7P4SIn3ye537G1lEQZz7I
BRdckPO58SEMArnpvP/VV18N9yTLgPsWLRvtctWqVYmdRzXBnLZXr14mD2Ti
xImx5pRTcygdJBy8+Q5jxowJvC96Dp555pnGP8QbH8g1SRLy1bznxDpPKYLm
g9AvzPu+oH3ZC6G4VT7EKX4/NLs+ffokqs1VSrXqIHgPee+NKOspZ86cmXM8
xjAi3aBTeeuZmPtGOdbAy9F7rTzxxBORHS8NhKWD5PM+LjWuD6qDoG16fWNO
OeWUis6/EOQIMa+rln7qScOaE7n969d/kfSp5PDjjz+adXxqqKgtLmdj3aTc
9wR5P3Oqa665JumvyhesIXm9t6iDSiq/Nk4dZPTo0TmxC7/ZcqH2k9pL5tNJ
gzcC87i63B8tTLje0LDoiRU3ygcJB9bEw9RwWUvj+YKW4o0PzH2SBB9m7zkd
eOCBJd8XVAfJ15t98eLFYXyULIhb9PpT3PIH9TCsX/Ab8u/VTDXqIMxtveMm
NKko/dRGjBiRcy+++OKLkR1PhAN5H97frXPnzpEek9pO9/GYu1RrvphfwtJB
bN8t90Y+RTGC6iCMO73vq5a5o0gOvFrz1UimbaOuvBrgnnOfN30TkqiHscTV
Lwbolen93Yil5cC4Z7/99jPfW9T9RUTdQjpI5TBvdt+/xIxKx3t4eLKvfH5p
Uea9+8Vbq+PHmzGoDnLcccdlvYe1qyTq/kTdpRp1EPrzeO+nY489NtJjeut4
qSVjXVCkm3w5dazBRQVjUm+de9S+NWkgLB1k8uTJOb8XmnMxguog9Cf0vi/s
fEtRN6FWZ/z48eYa8rPhR+T3tWG8n/z6qPqCh8knn3zibL311lljXNZCkyTO
fBByWL0xCE+ccrA5JfhKCFEO0kEqA18Xelq571/GMGGAtpBP32b+kzTk67nP
iRzEUh4BQXUQ5lrlju2EKIdq1EHuvvvunPuJMWlUUOPv9RHAe9PCPIzxDH2u
6ZtM/Rx+O+Ru4UdM3Fq4cKHx/cP7iBobckmUIx899CHzXit/+MMfIjtevt40
fvumfvTRR+a64Pp4/fXXTb4C1xW1i1xHS5YsMdcV1xevoXYgLX1IwtJB6BfH
M7UcHSmoDnLhhRfmvI95mRAielhHOOigg8rSPOMgTh3Ervt61zv91gSRN4O3
5hFHHCGvMlE20kEqo2fPnln3bpj+Ys2aNcuJDfRjSsN9Ts2q99xKee4F0UEY
D3rfUwvriiJeqlEHOe2003LGDVHmgz766KNZx8NvAm8BC2MWvL7zabfFNnpW
i2jx9gMJ2wfTy3nnnZd1PL81OMzlvfnhpTbqbejlngbC0kHgyCOPzPqcaJDF
6g+D6iCHHXZY1nv233//is9dCOGPK6+8Muv+u+2225I+JUOc/WLAu8bChibu
hy5dupjnAH6KQpSLfFKDM3v27Jz7Fp+QsCAvzLv/008/veh7vv76a2fKlCmm
nwq9TFkzxpssbM+AfD0R0TmKEUQHYd3Y+55nnnkmzI8iRFXqIO7e3GwdOnSI
7Fhor8yd3cfLl3/Kusy7775rYuOECROctm3b5mg1aMfkzL3xxhsmP4S1IBEd
K1euzImhV199dWTH++MfP3d+/vOfZ+kU5HH4BU9Icoh4xuANynVGvZfXy5Pr
iFwQckXwKkgDYeog1AB4f7dXXnml4OuD6CBffPFF1m/FhjeJECJ6yJ10xzX6
v6WFOPNBoHXr1jnxa8aMGSXfN2nSJPPaoP1lhFA+SHC8a5/EszDzc/P1y506
dWre11Knicc7Y05eh4bCvMVqrPz3TTfdlLV+WwmMuXbbbbesc2POU4wgOsgV
V1yR9Xpy39RzT4RNtekgK1fm9pFy16iEDXHHfSy/39P06dOzfCLIcVu7dm1k
5ylyyTefXrRoUWTHs30L7XbDDTdUvM/PPvvMadKkSWaf9evXj8Qru1LC1EHI
r/LWxlLDUoggOsjQoUOzXs+YA21ECBEt1PfRz8bOHfBwShNx6yD5et8xPy0G
+eLkOtLnMam+OqL6kQ4SDGqrvfdsKR2gHOjd6t1/gwYNcjwJGfvQi3C77bYz
sZQ6cOqwbT9E8mjJD2nZsmVmzbictbli3HfffTnnSOwsRLk6yLfffpuTKzdg
wIBQzl0IN9Wmg+TrMxelz0a7du0yx8HPze+x8HewYz02cu7l5R4v3bp1K2tu
XAn8tm7di987jFxE5uatWrXK7Jf6UL8503ESpg4CXg2Le6+QTlGuDvLdd9+Z
3gru12tNVYjoYZxs870Zt+Ppmjbi1kHoMeuNX9QMFYP6S74/xhlCBEU6SDAG
DhyYc88OGjQotP3nW8Njnc0LecOMZYgFgwcPLlg/TJ6KHaPtvffeRmepFDSZ
PfbYw7dOUa4O4u1FzBrghg0bKj5vIbxUmw7i9VWLsqbfq7lQS+kXvCzdOsgB
BxwgHSRG6FvmrXugN3gUUDvl1lzITQwr74SeD/REdOsgH3/8cSj7DhPWGcLU
QdCQOnbsmPX79enTJ+9ry9VBvM9j5mVoI0KI6CCHwfaB3HTTTZ0HH3ww6VPK
S9w6CD5h3vjFum4hqJln3tO7d+/Iz03UbaSDBCNfP1v654aFnZe5N6/fPp7u
5IPxd8yL8AYpxty5c03eCK9n/2HUl9AXglhuzxGP+0LrdOXoIDwr6D/sfm2U
fR5FbVNNOoh7fGK3kSNHRnIsfD7c9zf+yOWADuLuBygdJF683rZs+LJEgTu+
o4GE+TysFh0k7HwQ4H5xe4XVq1fP+KJ4KUcHYSzg7keDVpnGOiMh6hJ/+9vf
MlrpZptt5jz77LNJn1JB4tZB6BPsjV+FcuypgWHuQ00MPTuFqATpIOXDGpvX
s42xSZhebd5evHgIuaGHpdtnesyYMSX3ie5xwgknmNfjs0FvwjDwrhcT54n3
XsrRQXr06JH1Ojzx0tAnR9RNqkkHwUvNex/RUzRs1q1bl9VnBK+eclE+SLJ4
4yi/p62ZDBP8O3kGWi087PF9LesggJeAe12A2qO33nor6zV+dRD0DuY17rUL
+g8LIaKD+/Pkk0829xz13uQzpJm4dRDq9b3xi1z3fFC/x98/9thjkZ+XqPtI
Bykfxnze+5XxfVjQQ8G7fzyR3axevTpTk0KOx4IFC3zt211r0qtXr9C8hci1
dp8vHrLeunA/OgjPCu++6B9YrF+gEJVSTTqIXU+y25577hn6MdB6DznkkMwx
gtZSKB8kOfDE3nzzzbOulUI1FZWAR/cOO+yQmVNH0c8rvw6yOvTjVEpUOgjg
L9ymTZvMd8Bzf/z48Rldy48OQp8mt/9606ZNI8sPcsMch36gxBVRt6A+mnFk
GjfWC9NC//79zT1HrGSMn3bcOggabNSwTuuNX2zemIFHPLWefnuxe6H2b9as
WaYXDfmu5MYxf1q6dOk/49RK80/+++233zZaFa9DJ/bTY4LcFLwK3Pumfx46
NjGQ9Sq7b3LpyevjeCJZpIOUD89z770aZs01nvDufVP7782FoCelzWtlHkSv
bz/Q98GOjdF4w+y3jaeJO9f2mGOOyRqrkrtfTAchn8a7fsl3EVfN8l/+8hej
Ey1btiyW44n0UC06CB6Jdt3dbqW8xMoFD1R33d/FF18ceF/SQZLjqaeeyom3
YeUAWhjz4dvEvqmfevLJJ0Pdv6XW80Es5FmSf2nrW9nIHed3YK0gnw7C2IFx
/GGHHZb5c/JZ8fKKo/cafY0Zo3Bc6v2Vx1434Ho79NBD885d07JRnxckjzFs
br75ZnM+9Dood96Lvok3IH3E44Q5hf0e48gHgYYNG+b8hu56PWIZMZZ8ONaC
g0DdPs+Pcq6j7bff3ld/Ce94x8927rnnBvocIjykg5TPtddem3Mth5UH/MMP
P2TGlXajx7gb8iz4rezft2/f3ndNDtqkHUPxjHj88cdDOW8Luif6hz03NBd6
87GWVSgfhHER36n7czN+Qy+NC/xI7FyYNTK/+TWiblAtOog7XtstzLWl+fPn
Z2ph0FuuueaaivanupjkOP3007OuE9Yhw8yrIxfB6t48Uwr1dA+DL76QDuKG
5xXrCu4eOt5xg33+umvb0DdvvPFG59NPP430/CzU7uy2225Z50SuKLqWqG5Y
p3f3hkrrRv5kkjzyyCOZmBWkfpX5Pu8nDz1O4q6LAXcOqt3czxXmC/wZulJQ
eAay1omuRD4G8xKbz2g3nmfMSZh7kbuxdOkHvnLnWbO1OR/kgzz99NMmD8ir
jRCHyfGfN2+e6QkvkkU6SPkMHz48514Nqz7/gQceyNovXvFe0DzcufHoDn7X
dcj/QJO27yWPJYrcQTQM5pbu+z/fOA3/N+vDyDP1tNNOM5pSnHUwzMu6d++e
dV677rprTv21qLtUiw5y9NFHZ12nYdXjsc6Cb70d16JDomFUinSQZCBvwDv2
oi9hGPCscdcuUrdYrF96GKgupjDMk+6++26nX79+Oc9XamDI+6DHE2sUcUIO
Cj5naGWXX365GSMdccQR5ryOOuooszYiqhu8+pnP4cfs3SZOnFjWn0fx/ilT
phjNMCmoj+D6R4ukfjAI06dPN/dM3PPlJPJBfv3rX+fEMHK0gWcAfiH77ruv
qcUKC+Y/xEj3MenHG0a/d2Auc/bZZ2ft/9Zbbw1l3yIcpIOUz6hRo3Lu1TDW
Nxi7Mv927zdfLhxrOe7XnXLKKb51A+97qUMJyyMkH+ybXGy0Vep7vN8buSwj
RowwNeXUpcQNYzHGZJwLecPkLA4ZMsQ8uxjDyT+uNqgGHYR+UO66M7ZyetgW
ghjj7sPLM/vbb78N4YxVF5MUrKF5Y62fvN5ioJUxt7C9S8gnZDwXhe+qF9XF
lKbcvrlR8txzz5lccjRQ1nDtWgtrOHjUUJdDTQU1eELURcjT5NmHt8bKlSsD
74d8BfoaxN0nIIl8kHxrzORTAL0SiBth1wcRN6+++uqsYw4aNCi09WH2Q12T
3Tef4b777gtl3yIcGEdLBykPvHO892oY+QtefaVQ3T/1tu76YOZwfo+PpszY
yK1DxKWXl9MvJg7QhBiLEZeo0bN1y8Sthx56yOSvMJZjTCfqNtWgg9x+++1Z
9w5jo0p8BxnnuNdfiClh+zsoHyQZvPltxLlKYOx58MEHZ/a399575/RxjxJv
XQzrq9JBskmDDsI5PPHEE6YfBsfO1xODscodd9xhcs+IB6tWrYr1HIWIGvJk
8LrYfffdA/tYWLhHiH1xk4QO4s2HZ+vWrZupT+Hf8QsMG2IW9b9R6iADBw6U
DpJilA9SPlzX7toSto0bN1a0T9a73NoG9TCF7kO8jt2e72eeeaZvHWTNmjVO
kyZNMu+lTm39+vUVnbtf0qSDUB9Efgo93NGf8n1/1MXgFYIewvwwjnVPkQzV
oIO4vUvZzjnnnLL3QU0D8xRq9FnPZz94CJAXGkUcoBdF2nUQPFGoS6Y+j7lb
teue9Du2tYZ2o+apXHgm0aPZnSvE2B49Ll9f9ChRPkhp0qKDsLZ27LHHFp3/
8Try/dHn6KkgRF2BvE18gZs1a+a7f0EhWKvjPsbrKW7i7hcD1NN7Yxh9MYlj
aDFR9JvKp4NQxycdpHaQDhIMt08pm9fLtByoQ7N1szbmsP5VCHKemb+750N+
a9mIy3vttVfmvfx71LXdljTpIKxl4rGCF0kxfYO8XeaM5H+nqQebCJe06yCs
x3vvHT/+NeTSkgM2bdo0o5e6a1TQP3g+R6mDpj0fhDErOV/e75b+G9WK7U1g
N9bm/fhH8QyhdgbNhPvAraVQI4gmgo93EkgHKU0adBAhahl8MtGNGZ+PGTPG
rDmUsz322GPG6+emm25yBg8enFn7oK48bpLIB7G6T74tin7sIB1ESAcJBr4R
7vtm2LBhgfeFf53dD/X/pfwJ8SC2a7n2d/Org+CH0bx588x7yduLy38pTTqI
EG7SrIOgZZx11llZ9w1+YWgbdkMbZRz18MMPG18xYgLjsXw93MhHx+eSHrxR
4/UHadOmTap0EMYj+cZc5IpVI+gUtkep3Zibu6+VyZMnm/E2tX/0HGGtEe85
9zPFrcmPHTs29vwPL9JBSuOet9iNvNGw/P6EEIXhPqOGo9A8vpINL9q4SUIH
QTPweqCxsRYZFdJBhHSQ4DDWcY/LWFssF8aYdh9oyH7iHTUa7jEr3hZ+xzqf
f77W5OvZ9zZu3Di2HnoXXHBBTnxjHC5E0qRVB6HnnndeG2RjbNG1a1dTf2t9
cOIg7fkg7vjr3f74x8+TPj3fUNeHFo8+Vum1Qn0mXrnUB0XpoV0O6ptbHDzG
vVqp3ehbH2Z/BSFELr17945EA2FbuHBR7J8niX4xQB2MV8v97LM1kR1POoiQ
T2pwGHu4PUfp+eoXxpfu2hrGdX7rZFnP+/nPf555L2NWv/4gaLzueRX5IHF4
ttNLm8/oje98f4sWxR/jhXCTNh2EeUvfvn0rGjsRI4477jiz7p9U78C094v5
5JNP8+ZBsJE7UQ2Q14PfdSXXCvoJejqeDXH2LPeL8kH+xZ133un06tXL+BuT
x4MPB+sa7jrZfBueyi1btjT+ucQ69sHGWEIIURmjR4+OTANh++tf/xr7Z0oi
HwTow+7+7HgqR4l0EKF8kMpYsmSJiRH2O8TPuNh6K/ccteft2rXLvKdVq1Zl
5WQwPqe2376fMVE5PqluvRVNJCx/ENbs7PiKHlennnqq8R/E279YjCcukH+N
XwdaEu+1+4l7HQsfJnwG5YlaW6RNB7niiivKGifhcYG3Mj3mxo0bZ7xDkuhD
7SXt+SBAL1ibR1GvXj2jB5AnF/X4KyzczxI/22677Wbyt6k/57O///7i1OcL
5NdBKuvDEAVR6yA8H8OcXzH+DxPqp/Bxv+uuu5zrrrvOxCPOmd70+CXIY0vU
RU455ZTINBD6lCdBUjrIeeedlzkudbRRxwzpIEI6SOUQL9xjUcbU3EfU7OPH
SU4bPsj0qGZ8bV+Hfx3e++WOQb09GFgX8quDkPtBDkgU8xLW58J+BsRVl85v
yFzY1ibiobJgwYJYji2SJ206yIYNG5x58+Y5b7/9tvFI9W70OFm8eLHpe8Qc
Ma1UQ78YYL1t4cKFRgMF5tz0kaoG6NHItZLvOuH6effdd52lS5c6H330USR+
+3GgfJB/gfbDmAI/W/qx8NzC57jQtm5d9n+zDsL3tnz5cpOHiV9YmHjXaNwb
Pamkg4i6CLG1UPzN9+d+N97/wQcfJPKZktJBrM83Y/E46oGkgwjpIOGAlyH+
pa1bty45tyf/g7XGoL12GcO4exz06NHDdx03Y2b0Zfte1pDDWjfmHN577z0T
t1etWmU0F+YVxcZp7o0xGXkxvHfJkqVGh+B7jRpyevAJZL5GTwTmDfTz43vF
/1vUfdKmg9QVqiEfJB8tWrQwsUCkg2rRQchpjFIHSTuM+ZkT4iM/fPjwTM0Z
/8SbVwhRHSSlgzBnwMedWvo4kA4ipIOED/XaU6ZMMffWoEGDzHbjjTc6zz//
vFmPqRQ8g5o2bZr53Y4++mjf83WvhkLtSRrrweOCMRv11WjP5O3aehjyeps0
aRJbLx2RLNJBoiHt/iD5QHtt0KCBvBNiAH9vdHPicLFaxGrRQZLsF5M26F9l
dRDup2XLliV9SkIInySlg8SNdBAhHaT6IIfb7SV08MEH++4BQZ5d/fr1M+8l
97tWvTDIgznppJPM93DyySdneVHRp6Nhw4YmN0XUfaSDREM15oNQQ8K5rly5
MulTqdNwHXTp0iUzNqQuvJCez9oCeZT2OsJzSjpIemHsz/qP/b3Ir0zKq1kI
UT7SQaSD1ApJ6CDUtt52222x1CrHeay44L4aMmRI5ncjN8RvnskzzzyT6TVD
He+LL74Y8dmmE2IfGhB5IOhCzNfc4Nuy6667xtZTWCSLdJBoqMZ8EJ4XxAS/
vchFMPDzxZfWXhv0NHnppZfyvpbnmzsHkj5jaczVkw7yLxhvHXHEEZnfC79U
3U9CVA9uHYQ+BnWVuHUQNukg6SJuHQT/CNu3lX4ifvMY0n6suHn55ZfNuJHP
tt122/n29Lz11lszvzc18NYXsNYgz8P2PKY/jduPlfEaveDLybMR1Y10kGio
Rh3kmGOOqfl5bBx4e03S+5V60nzgYctzzl0LmoZ+SF6kg/wLcqnIp7TeIPQl
EkJUD2vWKB8kDJQPkn7i1EHo5UjPPvf1dvzxx0fS7yDOYyUBHqv0pOVzbbrp
ps69995b8j3M9W0dCNtVV11Vk/7t6Bw2ZxctyZsTw3d74IEHag2rhpAOEg2v
v/56Vl3M/vvvn+oYjEZDnhw6s4gW/FesfwQbzzPqX7wwTsVX3OaO8Ly7++67
Ezjj0kgH+RdPPfVU5rfdYYcdnKVLk+l5IYQIhupipIPUCnHpIPiH77zzzqYO
gWsMbzSbN4nXRZj924odiz72YfeKS4qHHnooM9agzrrU+hjfA/GM1++xxx41
631Bv1G7VnXQQQfl5Hwwd2Pshs+bqA2kg0TD448/nqnDY6PWDE/MtNKvXz8T
I6V/Rg96WNu2bZ0tttjCuf766wvm3vG8dvdhQ2sI2mstaqSD/Gvcz7griH+Z
ECIdKB9EdTG1Qhw6yHPPPWd6lJAfff/992eurz/96U9Onz59jD7Wvn1702c1
ymPhw8ax8OwK41hJg+6Bv6f1+iiWe0ouCJ+f1zIv4T6sRX9UroehQ4dmrvlr
r70263vg7y+55BKnefPmRg8XtYF0kMrh3pk2bZpz0003mZ6ZZ511lvOLX/wi
6/nPRn+miy66yNx71EbQtzoNkMuPdq7+nvHx6quvGs2Z/DvqWL0Qg4899tjM
tYNXKp5faUU6SK43yIUXXihdUYgqQ/kgygepFe65557IdBCuL9bUt912W+PF
MGfOnJzX0LOVnFfWhKgdD5qjUM6x0AwqOVaaQLPt2LFjJv/06aefzrl/8eBn
XsIYn435R632ysUPZZ999jHfF16I1E+5YS7EmnWt1gzVKtJBKufvf/+7qT10
P+/JVyO2E5fRpom91DW4X0OP6qThXsdzgk3ECz3MOnToYJ5N5IaSG8K4hLrE
Ro0ameuEvzv33HNT72clHcRxPvzww0y+Jb/bww8/nPQpCSHKpJZ1EOrmpYPU
DlHmg3B9UcfLes7q1auLvm769OkmT2Pu3LmBj8XYqZxjMf6qC7D+wn3MfMPW
erAmO378eOfKK690GjdubP6cWiHGJLU8v6cfrq0lIgfJ3cuP74Xvi++J2hlR
O0gHqW1Y/0GjqQvaeDVCvsDzzz9vxiDUUTCPJicPP6sRI0aYuXU1IB0k2xuE
3NxC+V7ks6KBUqvM2gP+MNT6KndEiORRv5jS8yT6mC1atMj5/vvvC75GOkj6
SaJvroiGTz75xLnllltMTiraB/769BpkLEmuN7VBtQy1QSeeeGLBWDdv3jyn
QYMGygWpQaSD1C5WG63VHuIiPGpdB/F6g1Dv5PUGYd6B5rX77rubNQfqZtBD
zjzzTFOzi+d7LdbsCpEmajkfpJQOglbLWrPVe/fdd1+TS54P9jNgwIAsHYQ1
apEepIOIWoE8IdadrJ/Ks88+m/k7cmrI6ce74NNPP03wLEUSSAepXcgPfOGF
F5I+DVEHqHUdhOeordNl69u3b1Z+B7VzN9xwg6mTY72BfExqdPEJsn2R+Q7Z
jxAiOaSDFNZBVqxYaTRc93vI+cj3HuIfNZ32dWgnkyZNivIjiTKRDiJqBWIP
9cpc63jIWK9cYhd5NFtttZXiU41idRByqdavX2+2devWZ/79iy/S2+tVCBEv
9Pe1scEdK6jpqWUdhPolOz/gWfvggw9m/o7ccTzI+fspU6Zkcj7efPNNo4uo
v4wQ6UH9YgrrIO+//35Gt7UbPT/y1fRR/4fvlX0dPo68X6SHKH1ShUgLxCfb
L4etW7dumZq+1157zcQ09Nxa9Y+tdawOUmjbcsstkz5FIURKcHv95ttqVQfB
p93mitMryvpsUZPL+JJamDfeeCPrPVOnTnU222yzzHd39dVXqy5ViISppXyQ
YcOGZcXvyy67rGgM4rshd9y+nvkDvc/ygT/STjvtlHkteef0rhDpoa7ng3CN
s3bj9sMUtQfrS/jH2msd7z2ujY8++sj0j6FfwVdffZX0aYqEkA4ihPCLdJBc
mDdcccUVme+gXbt2zsaNG521a9c6Xbp0MV5lCxYsyHkfNTC8Dy8RnsuqiREi
eWpFB2Ht85xzzsmK36eddprxEyyEO9bhv7hs2bKC+3Z7g+AbTf6bSBdR6iBc
R7NmzXLuvPNO57rrrjN98Li+8AcfO3Zs5Jo/x27ZsmXGm6ZXr17Kt6xR3L38
6KuDTxu6B9finnvu6XzwwQdJn6JIEDT7l156qeBWSOsXQtQeM2bMKBovavF5
Qv632xuE/Mv33nvPad26tRmHFeobI4RIH3VVByE3jToI+rPTH7Jz586Zenm7
oXNTy4LWMXLkSNP31Dt3pA6S9VO0DfpceXPJmf9yDLyf2efWW2/tPProo/KA
TiFR6iDTpk0zfpT51kvQyKLSQdjvhAkTzHWHjy9jFnq57bjjjubzitoD3cP2
FW7UqJHJ10UXQxuRPiuEEEIEh7UG5kt2jNeqVSszBjvrrLOUaylElVFXdRBy
wJkL2s9Wr149U8uHP2D9+vXNP/lv1s7dnh4rVqzI2Re1Bv369TNaB3Uy1NMw
x2Td351/3qZNG80zUkyUOgh6BNfczJkzneHDh2fqRtHe6OMaFewb/YX57sKF
C82f4QWBJwS92eQBUXvccccdmeu8bdu2Ts+ePU1N33PPPZf0qQkhhBBVDd4g
du3T3RuBNdNLL73UmT17tsZeQlQJdVUHiQI0EnJH6De42267OY0bNza55qz3
sw6fzz9VpIe4/EGeeOKJjA7SoEGDgvVUlULuJb1ROda4ceMyOUg8f08//XTn
uOOOM73bRO2AHof/s73O0XnJDcHLXjlqQgghRHC83iB4gQwdOtQ54YQTTE6I
ez7FmFNjMCHSjXQQUSvEoYPwjCRfyB7n0EMPjcS3lH1S62WP4a7nwp8XrQ4/
RK1J1BZosVzb9vpjzWrMmDHypBdCCCEqJJ83iF0DpR6fPHGbK8I6xJAhQzQO
EyLFuHWQXXbZJenTESIy4tBB8P8+4ogjMsfBLzWKPCG8asgDYXv44Yez/o57
eq+99jI92ZQDUFsw3qIeyo7B8C6SBiKEEEJUjtsbBI/BBx54IOvvGXOx9mD9
COmpO2/evITOVghRijVrlA8iaoM4dJCVK1c6O++8c6ZedOLEiaEfA78avGg4
xn777Wf+282cOXNMD2f8MkVtgQ5H3z6uDXxjdA0IIYQQ4YA3iK17xnfL+rK5
WbVqlRmDWa0EL3s35I3gIyd9RIjkUV2MqBXi0EHo1WKfkfjuht1Tzq418Gzl
GDxL3Tkf/Dt/1qRJE+ezzz4L9dgi3VAbhS+MvcbxglYPVCGEEKJyyK2k/6Tb
h/zrr7/OeR05I7ZPA+PByZMnZ/09fvqsl7322mtxnboQogDKBxG1QtQ6iNej
8uCDD87pw1wpGzduzPQo2nbbbXP6E5EbQo5Inz595NtbQ9Dfu2vXrsanzeaD
4I+qfBAhhBCicvAG6dSpU2aM17t377zjrFmzZpl1CFsXs2TJ0szfMU4cPHiw
07Jly5xcXiFE/CgfRNQK99xzT6Q6iNcb5MILLwxdi5g2bZqpd2D/7du3z/Fg
vf/++02uJn3bRG2ANoZnLnm406dPN9rYNttsY9ahnnzyyaLvxVOXfkbyEBFC
CCEKQ72L9QbB/+O+++7L+zrWH+w4Da825lmWNWvWOM2bNzc9Z/TcFSJ5pIOI
WiHqfJCVKz/MeIPwjPT6l1YK/dd69uyZ+Qz4krtrYr766iuTp9mtWzezbiFq
g/nz5zsnn3yy8+6775r/Zo2pVatW5hoZPXp0Qa/cZcuWm9wirUsJIYQQxXnm
mWcyvWDq16/vLFiwIO/r3D5xzZo1c9auXWv+HN1j5MiRTqNGjZzFi5fEeepC
iAKoX4yoFaLWQfAGsc/I7bffvuBzDo3irrvuco4++mhn1113dQ455BCjmZTK
HaHmlHuU/VP/QI2phbnuLbfcYp7N5GSK2oWx1rXXXmuuEzQxcj7ccK08++yz
Zpy2++67O2+88UZCZyqEEEKkH56b9OAr5Q0C9G0bMGCAeR25mYzJeC7T54+x
24gRI5QLIkRKUD6IqBWi1EG83iAHHnhgjjcIz1HyJZl7MgelbgY9hD6n6Cf3
3ntv0T63PENtL7YWLVo469aty/zd+++/bzQSPhd5I6K2wSOXnBA8QuhZZK+r
Tz/91LngggtMzcyRRx7prF69OuEzFUIIIdINz9Brrrkmk+87atSoouM1esIM
HDjQvJbnbYMGDcw/8Qb5/vvvYzxzIUQxpIOIWiFKHQRvkI4dO2b237dv36z8
DrSJG264wXibXnXVVcbXgzUD6hbI4eA9hx9+uNlPPnjtWWedldk/2gl/Bugt
v/rVr0zN6ccffxzq5xLVC3UyXBM/+clPjG5GD6F69eo5v/zlL50HH3xQepkQ
QgjhE/QLPNpefvnlzPirFKw1TJo0yRk/fryplxFCpAv1ixG1QpQ+qdSsNGzY
MLNWwDzTwrPzkksuMX8/ZcqUzBoCfpboIn76y1Bfit8Wr2Mue/fdd5s/R2sh
V5PcS/UGEV6oiaFea9iwYSYXlz660j+EEEIIIUSto3wQUStEmQ/y9NNPZ7xB
6JO2ePFi8+fkRnKsfD4MU6dOdTbbbLPMOaFnFKoZ5b1oHbZf7ty5c82fP/74
46beFD8I9ckVQgghhBBCiNJIBxG1QlQ6CNoFPdDsvtu1a2d6mX7++VqnS5cu
TtOmTTO9PNxQA8P78BJhrb5QTQyMGzfO5IGw/3333ddZv3690UbolUoPGfWH
EUIIIYQQQgh/SAcRtUJUOggaRKdOnTL7Pu+885yFCxc6rVu3Nj1JlyyprD8a
eR79+/fP7J8eqfRro06mc+fOBT3LhRBCCCGEEELkIh1E1ApR6SB4g3Dv2H3T
p2OrrbYyvqZfffVVxfvH44Eeu+5z32effUzeCX1BhBBCCCGEEEL4RzqIqBWi
0kHwBqEfmt03G//doUMH59JLL3Vmz57t21s8H2gpBxxwQGbf9P9o1qyZs3z5
8tA+gxBCCCGEEELUCtJBRK0QhQ7i9QbBC4S+uCeccILxL3XfWxw/SK8O7lHb
K4YNz9X58+eHcv5CCCGEEEIIUWu4dZBddtkl6dMRIjKi0EHwBunYsWOWN4jt
20KvmOuuuy7TR4Y8jiFDhpSdG0LtC9oH+9h+++1z+s4IIYQQQgghhPDPmjXK
BxG1QRQ6yMqV/+8N8tOf/tR54IEHsv7+H//4h/P73//e/J3tqTtv3ryyjoEn
asOGDc378QWhV4wQQgghhBBCiGC480GYazHHKratW/f//45/oxBJ8sUXX+S9
NvNto0aNCl0HwRvE5nvUr1/f9InxsmrVKtPfltdsuummzoQJE7L+nryR4cOH
O++8807Oe9FA9txzz8x54xMShveqEEIIIYQQQtQq7nyQcrfRo0cnffqixvH6
k/rdwtBB8Aa58sorM/ts27Zt3h629JPZcccdzWvQTCZPnpz19zNnznR23nln
57XXXsv68zlz5jiNGjVyWrRo4ey7777m/fxT+SBCCCGEEEIIERx3Poh0EFFt
JKmD4A3SqVOnzD579+6d8QZxM2vWLNNH19bFLF26NPN3aCmDBw92WrZsaXJb
LHPnzjXaCN4jn376qXPNNdeY9zdp0sRZs2ZN0fNau3at+ukKIYQQQgghRAHW
rVtn5mZBtrFjxyZ9+qLGQSsIcu0OGDCg4mNT72K9Qah3ue+++/K+7vnnn3c2
33xz8zr6vqA9WtA0mjdvbnrOoIkAniLcW/3798/kl7z44ovOFlts4Wy33XZ5
a2+A90+aNMl4qV588cWZ/QkhhBBCCCGEEEJUyjPPPJPxBkGfwMsjHytXrsz4
nDZr1sz5/PO15s/RKUaOHGlqX5YsWVL0WN98841z6KGHOvXq1curP+LVQy8a
8mO6d+/ufPnll5V/QCGEEEIIIYQQQgjnXzkbV199dUlvEKBPLvknvG6bbbYx
dTJoIA899JCz9dZbOyNGjPCVuzF16lRTX0P+CNqKPQ98RTp06GA0kGHDhsm/
WAghhBBCCCGEEKGC/mA9O6iJoRcNf1YIesIMHDjQaBVsO+ywg/kn3iDff/+9
r2OildD7Fy2EOpv999/f7Idz6Ny5c9n9eIUQQgghhBBCCCH8gn4xbdo05+WX
XzY5H35YvXq18fAYP358JqejXPBAveuuu4yGcvvttzvLli0rqsEIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEGng/wD3WT3f

     "], {{0, 80.}, {545., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{144., 144.}],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{344.84062500000005`, Automatic},
   ImageSizeRaw->{545., 80.},
   PlotRange->{{0, 545.}, {0, 80.}}]],ExpressionUUID->
  "aaf80089-ad6a-4667-b76c-f98dcd83b10a"]
}], "Subsubsection",
 CellChangeTimes->{{3.845853027356513*^9, 3.84585303449113*^9}, {
  3.845856079850596*^9, 
  3.845856114375103*^9}},ExpressionUUID->"512de7a0-3e94-4aae-a02b-\
ffef7d80a389"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HoloraumyDD16", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.845852640871814*^9, 3.845852683030064*^9}, {
  3.8458527166374617`*^9, 3.8458527352988243`*^9}},
 CellLabel->
  "In[665]:=",ExpressionUUID->"de4ef629-4c63-4880-9463-e7d8916c16b2"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "HoloraumyDD16[I,J,khat] defined off of\n\
HoloraumyDDRHS[tileft,tiright][FieldNumber][[k,c,i,a,j,b]]\nti = 1 no tilde, \
ti =2 tilde\nField number = 7 no tilded fermion\nField numbrer = 14 tilded \
fermion\nIndices identifications:\nI= 8(tileft - 1)+ 4(ii-1) + aa\nJ = 8 \
(tiright -1)+4 (jj-1) + bb\nkhat = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     FractionBox["8", "7"], 
     RowBox[{"(", 
      RowBox[{"14", " ", "-", " ", "FieldNumber"}], ")"}]}], " ", "+", " ", 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{"kk", "-", "1"}], ")"}]}], " ", "+", " ", "cc"}], 
   TraditionalForm]],ExpressionUUID->"64675049-bcc7-4c95-9ffb-c9c2573478c8"],
 "\n-i and SignDti factor below is because HoloraumyDD16:= \
[D,D]\[CapitalPsi]16 = [D,D](-i) SignDti[tiLeftD]SignDti[tiRightD] \
\[CapitalPsi]4D = -i \
SignDti[tiLeftD]SignDti[tiRightD]TableHoloraumyDD[tiLeftD,tiRightD]"
}], "Subsubsection",
 CellChangeTimes->{{3.845853479127408*^9, 3.845853584461985*^9}, {
  3.8458553505530367`*^9, 3.8458553665468397`*^9}, {3.845856054781887*^9, 
  3.845856075631085*^9}, {3.845856123363097*^9, 3.845856158856213*^9}, {
  3.8549896701057568`*^9, 3.854989680264194*^9}, {3.855589619605191*^9, 
  3.8555896198648357`*^9}},ExpressionUUID->"d385fe0e-e518-4ce4-b96d-\
ff7d8d42ae24"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"IorJindex", "[", 
   RowBox[{"ti_", ",", "ii_", ",", "aa_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"8", 
    RowBox[{"(", 
     RowBox[{"ti", "-", "1"}], ")"}]}], "+", 
   RowBox[{"4", 
    RowBox[{"(", 
     RowBox[{"ii", "-", "1"}], ")"}]}], "+", 
   "aa"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"khatindex", "[", 
   RowBox[{"FieldNumber_", ",", "kk_", ",", "cc_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    FractionBox["8", "7"], 
    RowBox[{"(", 
     RowBox[{"14", "-", "FieldNumber"}], ")"}]}], "+", 
   RowBox[{"4", 
    RowBox[{"(", 
     RowBox[{"kk", "-", "1"}], ")"}]}], "+", "cc"}]}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SignDti", "[", "1", "]"}], "=", "1"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SignDti", "[", "2", "]"}], "=", 
    RowBox[{"-", "1"}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "tilded", " ", "D", " ", "have", " ", "minus", " ", "sign", " ", "in", 
     " ", "their", " ", "16", " ", "color", " ", "embedding"}], ",", " ", 
    RowBox[{"see", " ", 
     RowBox[{"Eq", ".", " ", 
      RowBox[{"(", "6.6", ")"}]}], " ", "in", " ", "the", " ", 
     RowBox[{"manuscript", "."}]}]}], " ", "*)"}], "  "}]}], "Input",
 CellChangeTimes->{{3.8549896969618053`*^9, 3.854989703607424*^9}, {
  3.854990084498856*^9, 3.854990226327773*^9}, {3.854990696827221*^9, 
  3.854990716399563*^9}, {3.855589086554247*^9, 3.8555891470764685`*^9}, {
  3.8555892611450777`*^9, 3.8555892698477345`*^9}},
 CellLabel->
  "In[666]:=",ExpressionUUID->"af9ce9a1-a49f-4135-aef3-af235baa0d69"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"IorJindex", "[", 
  RowBox[{"1", ",", "2", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"SignDti", "[", "2", "]"}]}], "Input",
 CellChangeTimes->{{3.8549897965190897`*^9, 3.854989827904861*^9}, {
  3.854990231393734*^9, 3.854990240911458*^9}, {3.855589241523673*^9, 
  3.8555892587400894`*^9}, {3.8555892899997787`*^9, 3.855589293719494*^9}},
 CellLabel->
  "In[670]:=",ExpressionUUID->"6e23b01f-5c1d-490b-8790-95a631a7c8a6"],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{{3.85498980181409*^9, 3.854989828179949*^9}, {
   3.8549902381995687`*^9, 3.854990241432673*^9}, 3.855000002277938*^9, {
   3.855589280192603*^9, 3.8555892967984424`*^9}, 3.8555935052081394`*^9, 
   3.8557508167037153`*^9},
 CellLabel->
  "Out[670]=",ExpressionUUID->"f3056c87-fe04-436a-88fb-97719d802e09"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{{3.85498980181409*^9, 3.854989828179949*^9}, {
   3.8549902381995687`*^9, 3.854990241432673*^9}, 3.855000002277938*^9, {
   3.855589280192603*^9, 3.8555892967984424`*^9}, 3.8555935052081394`*^9, 
   3.8557508167037153`*^9},
 CellLabel->
  "Out[671]=",ExpressionUUID->"85b4cb94-eb47-4a39-8e1c-8cf2ceaf4239"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"HoloraumyDD16", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"IorJindex", "[", 
        RowBox[{"tileft", ",", "ii", ",", "aa"}], "]"}], ",", 
       RowBox[{"IorJindex", "[", 
        RowBox[{"tiright", ",", "jj", ",", "bb"}], "]"}], ",", 
       RowBox[{"khatindex", "[", 
        RowBox[{"FieldNumber", ",", "kk", ",", "cc"}], "]"}]}], "]"}], "]"}], 
    " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "I"}], ")"}], 
       RowBox[{"SignDti", "[", "tileft", "]"}], 
       RowBox[{"SignDti", "[", "tiright", "]"}], 
       RowBox[{
        RowBox[{
         RowBox[{"TableHoloraumyDD", "[", 
          RowBox[{"tileft", ",", "tiright"}], "]"}], "[", "FieldNumber", 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{
         "kk", ",", "cc", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}],
         "]"}]}], "/.", "AdinkraReduce"}], "/.", "PsiTo16"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"tileft", " ", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"tiright", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"FieldNumber", ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "14"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845853655938637*^9, 3.845853703869776*^9}, {
  3.8458537379988537`*^9, 3.845853769017293*^9}, {3.84585388273172*^9, 
  3.845853895371516*^9}, {3.845854260172575*^9, 3.845854260445903*^9}, {
  3.845854390714929*^9, 3.8458544074819813`*^9}, {3.8458545033379793`*^9, 
  3.845854528073378*^9}, {3.845855379155361*^9, 3.8458554557241297`*^9}, {
  3.845855547334764*^9, 3.8458556786167707`*^9}, {3.845855721330974*^9, 
  3.845855770239398*^9}, {3.8459248120629635`*^9, 3.8459248158778768`*^9}, {
  3.854990205676084*^9, 3.854990246021009*^9}, {3.854990357860421*^9, 
  3.854990380477716*^9}, {3.85558938501357*^9, 3.8555894037270794`*^9}, {
  3.8555918769247894`*^9, 3.8555918791797476`*^9}},
 CellLabel->
  "In[672]:=",ExpressionUUID->"120fd17a-2bc3-447d-9ddf-aab082487c42"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HoloraumyDD16", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845857793595499*^9, 3.845857826327938*^9}, {
  3.8458578639673862`*^9, 3.845857875353323*^9}, {3.8458579218331223`*^9, 
  3.845857923911298*^9}, {3.845924827223028*^9, 3.845924831140889*^9}, {
  3.8549902819607162`*^9, 3.854990295718981*^9}, {3.8549907291004057`*^9, 
  3.854990729202857*^9}},
 CellLabel->
  "In[673]:=",ExpressionUUID->"90a45826-e8e6-4df3-858e-23137fbb7ef3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.845857826789693*^9, {3.8458578668678093`*^9, 3.845857875956868*^9}, 
   3.845857925046586*^9, 3.8458581840952797`*^9, 3.845858397539236*^9, 
   3.845858431191515*^9, 3.845903383676098*^9, 3.8459040237620287`*^9, 
   3.845919136046028*^9, {3.8459197384204855`*^9, 3.84591975143311*^9}, {
   3.845924833688249*^9, 3.8459248379021463`*^9}, 3.84600666595452*^9, 
   3.8460999920436797`*^9, 3.847470554258033*^9, 3.851700742841259*^9, 
   3.8539755520697803`*^9, 3.854989901035133*^9, {3.854990286538068*^9, 
   3.854990296365677*^9}, 3.854990364493475*^9, {3.854990724853994*^9, 
   3.854990729649435*^9}, 3.855000002512285*^9, 3.8555918879361596`*^9, 
   3.855593151699773*^9, 3.8555935056886425`*^9, 3.855750817166128*^9},
 CellLabel->
  "Out[673]=",ExpressionUUID->"daedcea1-57d9-4bf8-bb94-c8074c219afc"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Make the Vtilde[N4VTFrom4DHoloRed] (modified from LTable function in \
Adinkra.m) and compare wtih Vtilde[N4VT]. These are identical\
\>", "Subsubsection",
 CellChangeTimes->{{3.8458564152618523`*^9, 3.845856435776944*^9}, {
  3.8555896522090483`*^9, 3.8555896717431974`*^9}, {3.855592195942488*^9, 
  3.8555922023261137`*^9}, {3.8555931826707916`*^9, 
  3.8555931845791497`*^9}},ExpressionUUID->"a777886e-b30b-40a2-b904-\
7e03e3a9055f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"VtildeTerms", "[", "N4VTFrom4DHoloRed", "]"}], "[", 
    RowBox[{"II_", ",", "JJ_"}], "]"}], "[", 
   RowBox[{"khat_", ",", "lhat_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"HoloraumyDD16", "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat"}], "]"}], "]"}], ",", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[CapitalPsi]16", "[", "lhat", "]"}], "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], "]"}], "/", 
   "2"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VTFrom4DHoloRed", "]"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"VtildeTerms", "[", "N4VTFrom4DHoloRed", "]"}], "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], "[", 
      RowBox[{"khat", ",", "lhat"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.845856846378667*^9, 3.84585702175143*^9}, {
  3.8458570941211576`*^9, 3.845857098005519*^9}, {3.845857151892456*^9, 
  3.845857183081258*^9}, {3.8458572266554623`*^9, 3.84585722726136*^9}, {
  3.845857267007598*^9, 3.845857267461185*^9}, {3.855589488249695*^9, 
  3.855589529834756*^9}},
 CellLabel->
  "In[674]:=",ExpressionUUID->"c04b04c0-34fe-4e8c-8aa1-45cee9c5cdcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VTFrom4DHoloRed", "]"}], "==", 
   RowBox[{"Vtilde", "[", "N4VT", "]"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8555921330790434`*^9, 3.8555921811289997`*^9}},
 CellLabel->
  "In[676]:=",ExpressionUUID->"e69755a1-40b9-4f58-b974-fe27291564d1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.855592152763572*^9, 3.8555921887373724`*^9}, {
   3.8555931681423855`*^9, 3.8555931887825637`*^9}, 3.855593506068056*^9, 
   3.8557508175410385`*^9},
 CellLabel->
  "Out[676]=",ExpressionUUID->"916a54b2-ee5b-418b-a018-9ba4194f2089"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["VT Summary", "Section",
 CellChangeTimes->{{3.8555786105616*^9, 
  3.8555786147890778`*^9}},ExpressionUUID->"79cbd707-d6c2-47a6-a863-\
a85e84265a6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "N4VT", "]"}]], "Input",
 CellChangeTimes->{{3.8555787117511168`*^9, 3.855578721248975*^9}, 
   3.855578751795943*^9},
 CellLabel->
  "In[677]:=",ExpressionUUID->"28f31733-94c5-4eb3-869b-7dc98443bb0e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = N4VT\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 16\"\>"},
        {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
        {"\<\"GATest = False\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.8555791347928247`*^9, 3.855593506099287*^9, 
  3.855750817587904*^9},
 CellLabel->
  "Out[677]=",ExpressionUUID->"d0d0e672-1bdb-4951-b3cd-2bcaad493730"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"LTest", "[", "N4VT", "]"}], "[", "ColorIndex", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ColorIndex", ",", "1", ",", "16"}], "}"}]}], "]"}], "==", 
  RowBox[{"L", "[", "N4VT", "]"}]}]], "Input",
 CellChangeTimes->{{3.855578617249914*^9, 3.8555786649545155`*^9}},
 CellLabel->
  "In[678]:=",ExpressionUUID->"951ce54c-a55d-4660-99cd-241761203155"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.855579134824072*^9, 3.8555935061149282`*^9, 
  3.8557508176191854`*^9},
 CellLabel->
  "Out[678]=",ExpressionUUID->"b33648ec-ccf7-42a6-8ffb-e48b3a65f37c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Encoding the VC L and R matrices as in 1402.5765", "Section",
 CellChangeTimes->{{3.8553578500269003`*^9, 3.8553578506918087`*^9}, {
  3.855357949967572*^9, 3.8553579635501127`*^9}, {3.8553678510381937`*^9, 
  3.855367869586111*^9}},ExpressionUUID->"1af63652-033c-420d-9917-\
e115a470e3cb"],

Cell[CellGroupData[{

Cell["\<\
S4Perm[PermCode]:= e.g. S4Perm[12,34] = (12)(34) = permutations of the rows
S4PermJim[PermCode]:=Inverse[S4Perm] (Jim\[CloseCurlyQuote]s convention is to \
permute the columns, not the rows)\
\>", "Subsection",
 CellChangeTimes->{{3.855359979311009*^9, 
  3.855360050119133*^9}},ExpressionUUID->"a55edc83-567f-4da0-9f7c-\
8eb9be2448ed"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "0", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", 
    RowBox[{"12", ",", "34"}], "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1234"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", 
    RowBox[{"13", ",", "24"}], "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1324"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", 
    RowBox[{"14", ",", "23"}], "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1423"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "12", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "12", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "34", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "12", ",", "1234"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "1324", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "12", ",", "1324"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "1423", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "12", ",", "1423"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "13", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "13", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "1234", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "13", ",", "1234"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "24", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "13", ",", "1324"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "1432", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "13", ",", "1423"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "23", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "23", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "1342", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "23", ",", "1234"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "1243", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "23", ",", "1324"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "14", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "23", ",", "1423"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "123", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "123", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "134", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "123", ",", "1234"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "243", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "123", ",", "1324"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "142", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "123", ",", "1423"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "132", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "132", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "234", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "132", ",", "1234"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "124", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "132", ",", "1324"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S4Perm", "[", "143", "]"}], "=", 
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "0", ",", "132", ",", "1423"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S4PermMatrixForm", "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"S4Perm", "[", 
    RowBox[{"aa", ",", "bb"}], "]"}], "//", 
   "MatrixForm"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S4PermMatrixForm", "[", "aa_", "]"}], ":=", 
  RowBox[{
   RowBox[{"S4Perm", "[", "aa", "]"}], "//", 
   "MatrixForm"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S4PermJim", "[", "PermCode_", "]"}], ":=", 
  RowBox[{"Inverse", "[", 
   RowBox[{"S4Perm", "[", "PermCode", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S4PermJim", "[", 
   RowBox[{"PermCode1_", ",", "PermCode2_"}], "]"}], ":=", 
  RowBox[{"Inverse", "[", 
   RowBox[{"S4Perm", "[", 
    RowBox[{"PermCode1", ",", "PermCode2"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S4PermJimMatrixForm", "[", "PermCode_", "]"}], ":=", 
  RowBox[{
   RowBox[{"S4PermJim", "[", "PermCode", "]"}], "//", 
   "MatrixForm"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S4PermJimMatrixForm", "[", 
   RowBox[{"PermCode1_", ",", "PermCode2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"S4PermJim", "[", 
    RowBox[{"PermCode1", ",", "PermCode2"}], "]"}], "//", 
   "MatrixForm"}]}]}], "Input",
 CellChangeTimes->{{3.855358442661874*^9, 3.855358509514494*^9}, {
  3.855358600213455*^9, 3.85535883589629*^9}, {3.85535899838848*^9, 
  3.855359023216015*^9}, {3.855359136035749*^9, 3.855359182338284*^9}, {
  3.855359233224629*^9, 3.855359311016202*^9}, {3.855359416782263*^9, 
  3.855359668605262*^9}, {3.8553600597183857`*^9, 3.855360148634782*^9}},
 CellLabel->
  "In[679]:=",ExpressionUUID->"c6229b30-95dd-4edf-820c-6ed1d28cafc2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S4PermMatrixForm", "[", "143", "]"}]], "Input",
 CellChangeTimes->{{3.855358894787822*^9, 3.855358910952959*^9}, {
  3.8553590122255898`*^9, 3.855359014036669*^9}, {3.8553591173676443`*^9, 
  3.8553591220025663`*^9}, {3.855359359398612*^9, 3.855359360984858*^9}, {
  3.85535943571999*^9, 3.8553594367037888`*^9}, {3.8553596780817547`*^9, 
  3.855359949301166*^9}},
 CellLabel->
  "In[709]:=",ExpressionUUID->"07e9a58b-07b1-43e6-b2b4-d10320e0c5ee"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "1", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "0", "1"},
     {"1", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553588991009283`*^9, 3.855358912491547*^9}, {
   3.855359014876842*^9, 3.8553590273162518`*^9}, {3.855359101381575*^9, 
   3.8553591224080544`*^9}, {3.8553593157165747`*^9, 3.855359362508438*^9}, {
   3.855359434348461*^9, 3.8553594370732594`*^9}, {3.85535968030473*^9, 
   3.8553599505704603`*^9}, 3.855508023923225*^9, 3.855508824842682*^9, 
   3.855513256497212*^9, 3.8555337099932117`*^9, 3.855579134870932*^9, 
   3.855593506161792*^9, 3.855750817681631*^9},
 CellLabel->
  "Out[709]//MatrixForm=",ExpressionUUID->"c09e2499-132d-4d9b-a8f7-\
4ba59efc78c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S4PermJimMatrixForm", "[", "143", "]"}]], "Input",
 CellChangeTimes->{{3.8553601606373787`*^9, 3.855360385162108*^9}},
 CellLabel->
  "In[710]:=",ExpressionUUID->"e8c6594f-9cc3-4dd9-9e91-69ee9eb64695"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "1"},
     {"0", "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "1", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855360168455459*^9, 3.85536038564338*^9}, 
   3.855508023963565*^9, 3.855508824852179*^9, 3.855513256509426*^9, 
   3.8555337100055*^9, 3.8555791349010663`*^9, 3.855593506161792*^9, 
   3.8557508177128735`*^9},
 CellLabel->
  "Out[710]//MatrixForm=",ExpressionUUID->"def99389-6206-4e48-a444-\
c34d54c921e9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Encoding in the permutation notation of 1402.5765", "Subsection",
 CellChangeTimes->{{3.855367956762104*^9, 
  3.855367973263091*^9}},ExpressionUUID->"9cf6640a-2eb9-4cee-b81d-\
840ef43537f7"],

Cell[CellGroupData[{

Cell["\<\
L,R matrices for N=4 VC multiplet,
I=1\
\>", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.855361967670244*^9, 
  3.855361967996879*^9}},ExpressionUUID->"e85e193c-034b-48d8-81dc-\
9d965df6affb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"LTermsMatrixForm", "[", "Rep_", "]"}], "[", "Color_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "Rep", "]"}], "[", "Color", "]"}], "//", 
   "MatrixForm"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RTermsMatrixForm", "[", "Rep_", "]"}], "[", "Color_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "Rep", "]"}], "[", "Color", "]"}], "//", 
   "MatrixForm"}]}]}], "Input",
 CellChangeTimes->{{3.855360726033346*^9, 3.855360761922605*^9}, {
  3.855360824212823*^9, 3.855360835280945*^9}, {3.8553608909087048`*^9, 
  3.855360896243087*^9}, {3.85536349708095*^9, 3.855363510473242*^9}},
 CellLabel->
  "In[711]:=",ExpressionUUID->"d2f70f2f-7a15-4a32-8ddf-c35f9cf6aa4f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "243", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "243", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "243", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "1243", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "234", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "234", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "234", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "1342", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalColor", "]"}]}], "Input",
 CellChangeTimes->{{3.855360538466905*^9, 3.855360565268075*^9}, {
  3.855360595820994*^9, 3.855360617055896*^9}, {3.855360647756874*^9, 
  3.8553607178177423`*^9}, {3.855360797001555*^9, 3.855360804675509*^9}, {
  3.8553608705833282`*^9, 3.855360888841735*^9}, {3.8553619733965473`*^9, 
  3.855362089291788*^9}},
 CellLabel->
  "In[713]:=",ExpressionUUID->"e51ed3c7-2e50-4a65-8757-3aeed33d80cb"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.855362101461011*^9, 3.855508024015307*^9, 
  3.8555088249133387`*^9, 3.85551326585853*^9, 3.8555337100538073`*^9, 
  3.8555791349635663`*^9, 3.8555935061930113`*^9, 3.8557508177597375`*^9},
 CellLabel->
  "Out[716]=",ExpressionUUID->"767a35b8-62eb-4734-b442-ab8edf06ccbe"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.855362101461011*^9, 3.855508024015307*^9, 
  3.8555088249133387`*^9, 3.85551326585853*^9, 3.8555337100538073`*^9, 
  3.8555791349635663`*^9, 3.8555935061930113`*^9, 3.855750817775359*^9},
 CellLabel->
  "Out[717]//MatrixForm=",ExpressionUUID->"ddc48721-0c88-4f51-bca3-\
219fb706a02d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
I=2, the Vierz[1][4] term is corrected here from a typo in 1402.5765 \
\>", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.855362433784493*^9, 3.855362513797576*^9}, {
  3.855362551743864*^9, 3.8553625549488697`*^9}, {3.855362594690309*^9, 
  3.85536259675382*^9}, {3.855364649260145*^9, 3.855364685972247*^9}, {
  3.855365864082161*^9, 3.8553658677545977`*^9}, {3.855449678906356*^9, 
  3.8554496884688797`*^9}, {3.855580644226692*^9, 3.8555806489693365`*^9}, {
  3.855580764625435*^9, 3.8555807681732163`*^9}, {3.8555808339065475`*^9, 
  3.8555808608905*^9}},ExpressionUUID->"73c6d4d3-d030-4a3b-8428-b1cfa96af102"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "123", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "123", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "123", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "12", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "23", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "9", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "132", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "9", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "132", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "9", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "132", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "23", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalColor", "]"}]}], "Input",
 CellChangeTimes->{{3.855360538466905*^9, 3.855360565268075*^9}, {
  3.855360595820994*^9, 3.855360617055896*^9}, {3.855360647756874*^9, 
  3.8553607178177423`*^9}, {3.855360797001555*^9, 3.855360804675509*^9}, {
  3.8553608705833282`*^9, 3.855360888841735*^9}, {3.855360958613276*^9, 
  3.855360993351449*^9}, {3.8553621259941893`*^9, 3.855362165206232*^9}, {
  3.855362423917411*^9, 3.855362428773673*^9}, {3.855364576665496*^9, 
  3.855364613203021*^9}, {3.8553647995353327`*^9, 3.855364799733016*^9}, {
  3.855365874471015*^9, 3.855365874738989*^9}},
 CellLabel->
  "In[719]:=",ExpressionUUID->"9c211e62-0c4e-448c-9827-33a6f7748f36"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855362179465514*^9, {3.855362425291044*^9, 
   3.855362430397931*^9}, 3.855364579521858*^9, 3.8553646287818193`*^9, 
   3.855364800443178*^9, 3.855365875653327*^9, 3.8555080240351562`*^9, 
   3.855508824980226*^9, 3.855513265916108*^9, 3.8555337100795803`*^9, 
   3.8555791350104184`*^9, 3.855593506224244*^9, 3.855750817822223*^9},
 CellLabel->
  "Out[722]=",ExpressionUUID->"652ae2b0-00fa-4bd6-850e-404fc95d5805"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855362179465514*^9, {3.855362425291044*^9, 
   3.855362430397931*^9}, 3.855364579521858*^9, 3.8553646287818193`*^9, 
   3.855364800443178*^9, 3.855365875653327*^9, 3.8555080240351562`*^9, 
   3.855508824980226*^9, 3.855513265916108*^9, 3.8555337100795803`*^9, 
   3.8555791350104184`*^9, 3.855593506224244*^9, 3.855750817822223*^9},
 CellLabel->
  "Out[723]//MatrixForm=",ExpressionUUID->"4c64b73b-e9ac-4f4e-8c29-\
67e0849e5584"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Vierz[1][4] term for I=2 in question directly from the transformation laws \
Eq. (4.2) in 1402.5765: it is indeed ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", "12", ")"}], "b"], 
    RowBox[{"(", "23", ")"}]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "c93eca17-7496-4381-95a3-b62054f1e49d"],
 " as corrected above instead of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"(", "4", ")"}], "b"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "ed02b951-d0ef-461d-b86e-a3970f9e2744"],
 "(23) that was apparently a typo in 1402.5765"
}], "Subsubsection",
 CellChangeTimes->{{3.8555802232499948`*^9, 3.855580231509692*^9}, {
  3.855580346875326*^9, 3.8555804171845617`*^9}, {3.8555805949304576`*^9, 
  3.8555806262149935`*^9}, {3.8555807825608983`*^9, 
  3.855580823562593*^9}},ExpressionUUID->"93b7f4e2-9381-4b24-90a1-\
214948d7764d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Gamma]stdown", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"\[Lambda]", "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8555802342734404`*^9, 3.8555802888121233`*^9}, {
  3.8555803983587284`*^9, 3.8555803993800664`*^9}},
 CellLabel->
  "In[725]:=",ExpressionUUID->"81935744-c967-4890-82b3-46d296a01b43"],

Cell[BoxData[
 RowBox[{"\[Lambda]", "[", "1", "]"}]], "Output",
 CellChangeTimes->{{3.855580274947513*^9, 3.8555802898503733`*^9}, 
   3.8555935062398996`*^9, 3.855750817853465*^9},
 CellLabel->
  "Out[725]=",ExpressionUUID->"e8f04c2c-ccca-4838-8881-7e63568309d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Gamma]stdown", "[", "2", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"\[Lambda]", "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8555803016866293`*^9, 3.855580301764577*^9}},
 CellLabel->
  "In[726]:=",ExpressionUUID->"b537aaaa-eda3-4fa7-837e-143674f748af"],

Cell[BoxData[
 RowBox[{"\[Lambda]", "[", "3", "]"}]], "Output",
 CellChangeTimes->{3.8555803022644873`*^9, 3.8555935062555175`*^9, 
  3.8557508179003344`*^9},
 CellLabel->
  "Out[726]=",ExpressionUUID->"c4ce5698-d6ed-4211-b078-2420c4a01523"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Gamma]stdown", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"\[Lambda]", "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.855580315686673*^9, 3.8555803157335076`*^9}},
 CellLabel->
  "In[727]:=",ExpressionUUID->"8266aecf-e29b-464f-9bb0-54a3c36e8a51"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"\[Lambda]", "[", "2", "]"}]}]], "Output",
 CellChangeTimes->{3.8555803160621023`*^9, 3.855593506271134*^9, 
  3.855750817931572*^9},
 CellLabel->
  "Out[727]=",ExpressionUUID->"e19c1f95-bb92-45c2-947e-f84fc3429578"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"\[Gamma]5\[Gamma]", "[", "0", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"\[Lambda]", "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.855580467871499*^9, 3.8555804828380976`*^9}, {
  3.8555805242745657`*^9, 3.8555805402939997`*^9}},
 CellLabel->
  "In[728]:=",ExpressionUUID->"293d9f57-5b90-4267-863d-9a2d52056123"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"\[Lambda]", "[", "4", "]"}]}]], "Output",
 CellChangeTimes->{3.8555805860021877`*^9, 3.855593506271134*^9, 
  3.855750817962817*^9},
 CellLabel->
  "Out[728]=",ExpressionUUID->"1a5b6c64-05f8-4d10-adf2-31d50178fb1a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I=3", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 
  3.855361031226781*^9}},ExpressionUUID->"b13901b3-7011-48df-a266-\
d2389cd9f6e0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "6", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "134", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "6", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "134", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "6", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "134", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "0", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "14", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "143", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "143", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "10", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "143", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", "0", "]"}], ".", 
        RowBox[{"S4PermJim", "[", "14", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "LocalColor", "]"}]}], "Input",
 CellChangeTimes->{{3.855360538466905*^9, 3.855360565268075*^9}, {
  3.855360595820994*^9, 3.855360617055896*^9}, {3.855360647756874*^9, 
  3.8553607178177423`*^9}, {3.855360797001555*^9, 3.855360804675509*^9}, {
  3.8553608705833282`*^9, 3.855360888841735*^9}, {3.855360958613276*^9, 
  3.855360993351449*^9}, {3.855361037516982*^9, 3.855361069569673*^9}, {
  3.855362663701398*^9, 3.855362663987864*^9}, {3.855362697569056*^9, 
  3.8553627250075912`*^9}},
 CellLabel->
  "In[729]:=",ExpressionUUID->"f057ca6e-9b91-40dc-90a7-d7fbea7e3814"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.8553610055693903`*^9, 3.855361077543804*^9, 
  3.855362732441481*^9, 3.8555080240860043`*^9, 3.855508825047991*^9, 
  3.855513265936935*^9, 3.855533710125251*^9, 3.8555791350572834`*^9, 
  3.855593506302369*^9, 3.8557508179940567`*^9},
 CellLabel->
  "Out[732]=",ExpressionUUID->"71a4ba02-7a4c-4c83-8cac-4b25cee1951d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.8553610055693903`*^9, 3.855361077543804*^9, 
  3.855362732441481*^9, 3.8555080240860043`*^9, 3.855508825047991*^9, 
  3.855513265936935*^9, 3.855533710125251*^9, 3.8555791350572834`*^9, 
  3.855593506302369*^9, 3.8557508180096784`*^9},
 CellLabel->
  "Out[733]//MatrixForm=",ExpressionUUID->"d8c9468d-b123-4e36-85fa-\
068ddd101b65"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I=4", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 
  3.855361117257695*^9}},ExpressionUUID->"2b868dd7-54a5-4c1f-9694-\
5f321c720f19"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "142"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "1342"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "6"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "124"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "1243"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "9"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.855360538466905*^9, 3.855360565268075*^9}, {
  3.855360595820994*^9, 3.855360617055896*^9}, {3.855360647756874*^9, 
  3.8553607178177423`*^9}, {3.855360797001555*^9, 3.855360804675509*^9}, {
  3.8553608705833282`*^9, 3.855360888841735*^9}, {3.855360958613276*^9, 
  3.855360993351449*^9}, {3.855361037516982*^9, 3.855361069569673*^9}, {
  3.8553611209921427`*^9, 3.855361210010199*^9}, {3.855361297371192*^9, 
  3.855361379489006*^9}, {3.855361444480255*^9, 3.855361449940892*^9}, {
  3.8553627495143433`*^9, 3.8553628545731287`*^9}, {3.855362904021387*^9, 
  3.855363017289719*^9}},
 CellLabel->
  "In[735]:=",ExpressionUUID->"a5815d0d-853c-4e3e-b570-78925bd7f2e2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.8553610055693903`*^9, 3.855361077543804*^9, 
  3.855361401015854*^9, 3.855361450792157*^9, 3.8553630519012547`*^9, 
  3.855508024139717*^9, 3.85550882511543*^9, 3.85551326599561*^9, 
  3.855533710174369*^9, 3.855579135099058*^9, 3.855593506333595*^9, 
  3.8557508180565434`*^9},
 CellLabel->
  "Out[745]=",ExpressionUUID->"2a7cbe8a-4a94-46cb-8104-eef6d97963c9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.8553610055693903`*^9, 3.855361077543804*^9, 
  3.855361401015854*^9, 3.855361450792157*^9, 3.8553630519012547`*^9, 
  3.855508024139717*^9, 3.85550882511543*^9, 3.85551326599561*^9, 
  3.855533710174369*^9, 3.855579135099058*^9, 3.855593506333595*^9, 
  3.8557508180565434`*^9},
 CellLabel->
  "Out[746]//MatrixForm=",ExpressionUUID->"8d37cdec-c3f2-4c26-8795-\
b889d9cf9e56"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
GA satisfied for IJ = 1,2,3,4 subset after including correction to I=2 as \
above\
\>", "Subsubsection",
 CellChangeTimes->{{3.855364391508668*^9, 3.855364411762356*^9}, {
  3.8553647374212313`*^9, 3.855364779840105*^9}, {3.8555811386075935`*^9, 
  3.8555811513471766`*^9}},ExpressionUUID->"9987bbbf-97e0-4613-ba5c-\
106e1f309d8f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.855364414264979*^9, 3.85536450380355*^9}, {
  3.855364714293351*^9, 3.85536472708385*^9}},
 CellLabel->
  "In[748]:=",ExpressionUUID->"5ce3d1ac-0d9e-4ec2-a3cc-43f27cacbdda"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855508024157372*^9, 
   3.8555088251323423`*^9, 3.8555132660466747`*^9, 3.855533710198245*^9, 
   3.8555791351490836`*^9, 3.8555935063492465`*^9, 3.8557508180877843`*^9},
 CellLabel->
  "Out[748]//MatrixForm=",ExpressionUUID->"15e042a7-fa1f-4cbb-ac4b-\
1862e4599306"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855508024157372*^9, 
   3.8555088251323423`*^9, 3.8555132660466747`*^9, 3.855533710198245*^9, 
   3.8555791351490836`*^9, 3.8555935063492465`*^9, 3.855750818103408*^9},
 CellLabel->
  "Out[749]//MatrixForm=",ExpressionUUID->"ad1acf38-5c15-47b7-9020-\
dd4d4bdd83b5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "I=5,6,7,8: ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["L", "I", 
    RowBox[{"[", "3", "]"}]], TraditionalForm]],ExpressionUUID->
  "2cb0e4be-7b71-427b-8c60-2c46fce7cc08"],
 "\nFirst I = 5"
}], "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.8553642293079042`*^9, 
  3.85536423310355*^9}},ExpressionUUID->"b66dea0b-c7bf-4fe0-a2a0-\
01bf6ef35f2a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "243"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "1243"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"15", ",", "0", ",", "2", ",", "13"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "234"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "1342"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"15", ",", "0", ",", "8", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.855360538466905*^9, 3.855360565268075*^9}, {
  3.855360595820994*^9, 3.855360617055896*^9}, {3.855360647756874*^9, 
  3.8553607178177423`*^9}, {3.855360797001555*^9, 3.855360804675509*^9}, {
  3.8553608705833282`*^9, 3.855360888841735*^9}, {3.855360958613276*^9, 
  3.855360993351449*^9}, {3.855361037516982*^9, 3.855361069569673*^9}, {
  3.8553611209921427`*^9, 3.855361210010199*^9}, {3.855361297371192*^9, 
  3.855361379489006*^9}, {3.855361444480255*^9, 3.855361449940892*^9}, {
  3.8553627495143433`*^9, 3.8553628545731287`*^9}, {3.855362904021387*^9, 
  3.855363017289719*^9}, {3.855363101453904*^9, 3.855363101628343*^9}, {
  3.85536314391908*^9, 3.855363187144991*^9}, {3.855363249408866*^9, 
  3.855363342271399*^9}, {3.8553633810302362`*^9, 3.855363382199299*^9}, {
  3.855363634146195*^9, 3.855363643696082*^9}},
 CellLabel->
  "In[750]:=",ExpressionUUID->"78b43137-ac3d-445e-b8c6-fda4278af879"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.8553610055693903`*^9, 3.855361077543804*^9, 
  3.855361401015854*^9, 3.855361450792157*^9, 3.8553630519012547`*^9, 
  3.855363403072322*^9, 3.8553636462421503`*^9, 3.85550802420675*^9, 
  3.85550882519413*^9, 3.855513266104649*^9, 3.855533710245113*^9, 
  3.8555791352026434`*^9, 3.8555935063804564`*^9, 3.855750818134651*^9},
 CellLabel->
  "Out[760]=",ExpressionUUID->"c69a29d7-9c82-4f49-8443-1ae1029bb08d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8553608062779093`*^9, 3.8553608501493177`*^9, 
  3.855360899562546*^9, 3.8553610055693903`*^9, 3.855361077543804*^9, 
  3.855361401015854*^9, 3.855361450792157*^9, 3.8553630519012547`*^9, 
  3.855363403072322*^9, 3.8553636462421503`*^9, 3.85550802420675*^9, 
  3.85550882519413*^9, 3.855513266104649*^9, 3.855533710245113*^9, 
  3.8555791352026434`*^9, 3.8555935063804564`*^9, 3.8557508181502705`*^9},
 CellLabel->
  "Out[761]//MatrixForm=",ExpressionUUID->"000a68f7-e67f-4c6f-8a59-\
4fee6415c431"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 6", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 
  3.855363722436949*^9}},ExpressionUUID->"fceb810d-54b2-4f95-a86a-\
54a6a004ea8f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "123"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "23"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"9", ",", "6", ",", "4", ",", "11"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "132"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "23"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"10", ",", "5", ",", "1", ",", "13"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.855360538466905*^9, 3.855360565268075*^9}, {
  3.855360595820994*^9, 3.855360617055896*^9}, {3.855360647756874*^9, 
  3.8553607178177423`*^9}, {3.855360797001555*^9, 3.855360804675509*^9}, {
  3.8553608705833282`*^9, 3.855360888841735*^9}, {3.855360958613276*^9, 
  3.855360993351449*^9}, {3.855361037516982*^9, 3.855361069569673*^9}, {
  3.8553611209921427`*^9, 3.855361210010199*^9}, {3.855361297371192*^9, 
  3.855361379489006*^9}, {3.855361444480255*^9, 3.855361449940892*^9}, {
  3.8553627495143433`*^9, 3.8553628545731287`*^9}, {3.855362904021387*^9, 
  3.855363017289719*^9}, {3.855363101453904*^9, 3.855363101628343*^9}, {
  3.85536314391908*^9, 3.855363187144991*^9}, {3.855363249408866*^9, 
  3.855363342271399*^9}, {3.8553633810302362`*^9, 3.855363382199299*^9}, {
  3.855363634146195*^9, 3.855363643696082*^9}, {3.855363730186832*^9, 
  3.8553638422183123`*^9}},
 CellLabel->
  "In[763]:=",ExpressionUUID->"e3887ab5-f90e-4d0f-bc42-ce5097396a4b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8555080242575703`*^9, 3.8555088252784557`*^9, 3.855513266161503*^9, 
   3.855533710294992*^9, 3.855579135251522*^9, 3.855593506411727*^9, 
   3.8557508181971345`*^9},
 CellLabel->
  "Out[773]=",ExpressionUUID->"6c3530d0-022d-4445-9082-75c4dcfe3d08"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8555080242575703`*^9, 3.8555088252784557`*^9, 3.855513266161503*^9, 
   3.855533710294992*^9, 3.855579135251522*^9, 3.855593506411727*^9, 
   3.8557508181971345`*^9},
 CellLabel->
  "Out[774]=",ExpressionUUID->"400b3836-8f80-49d5-b919-a3c05dbb00d4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8555080242575703`*^9, 3.8555088252784557`*^9, 3.855513266161503*^9, 
   3.855533710294992*^9, 3.855579135251522*^9, 3.855593506411727*^9, 
   3.855750818212788*^9},
 CellLabel->
  "Out[775]//MatrixForm=",ExpressionUUID->"87d50209-43b9-4e57-baf3-\
5b65245026e6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 7", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 
  3.855363911213312*^9}},ExpressionUUID->"6d26ce5d-58d0-4f2b-b08c-\
21040211c9ba"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "134"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"3", ",", "12", ",", "14", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "143"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"6", ",", "9", ",", "11", ",", "14"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQ/fiDn3PLzjeOQlNWuIHoqa5VXiD62UlFXxAdYPEj
AER/0toVCaL38ixIBtFH505NAdELVl3KAdF176XyQfTX+ZfLwebZa9eAaLnu
DY0g+rDVplYQvWi/fA+I7g12mA6izz3QXgSiPyzNXwOiHeL6t4DoU9J2W0F0
Q+mG8FaQeeGXUkC0yXqGbBCd6KpZCaKT2tY1g+hk6S1gWirzbweIPrI4pQ9E
54nqTgPRvutPLATRm74vWAaiVyQcA9ML17ocA9F+bmXHQXT7L9dLIDrrj9sD
EO21KPEliD4wX/kDiAYAP9Or1A==
  "],
 CellLabel->
  "In[777]:=",ExpressionUUID->"274c7b8c-3a64-4c63-8c8d-df7a0f4e020e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.85550802431186*^9, 3.855508825349538*^9, 
   3.85551326622018*^9, 3.855533710350655*^9, 3.8555791352983856`*^9, 
   3.855593506458563*^9, 3.855750818275667*^9},
 CellLabel->
  "Out[787]=",ExpressionUUID->"0066deda-d32e-4dde-8ea1-34cc9e89f450"],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.85550802431186*^9, 3.855508825349538*^9, 
   3.85551326622018*^9, 3.855533710350655*^9, 3.8555791352983856`*^9, 
   3.855593506458563*^9, 3.855750818275667*^9},
 CellLabel->
  "Out[788]=",ExpressionUUID->"8fc74578-ebf8-4cff-9d89-a3822209e965"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.85550802431186*^9, 3.855508825349538*^9, 
   3.85551326622018*^9, 3.855533710350655*^9, 3.8555791352983856`*^9, 
   3.855593506458563*^9, 3.8557508182912884`*^9},
 CellLabel->
  "Out[789]//MatrixForm=",ExpressionUUID->"80623c60-9737-459a-9389-\
f37f97e90027"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 8", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364011877069*^9, 
  3.855364012438814*^9}},ExpressionUUID->"f0b57429-9bf5-4cc4-a2e3-\
8202b7e2b8bf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "142"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "1342"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10", ",", "8", ",", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "124"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "1243"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"12", ",", "3", ",", "2", ",", "4"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQ/fiDn3PLzjeOQlNWuIHoqa5VXiD62UlFXxAdYPEj
AER/0toVCaL38ixIBtFH505NAdELVl3KAdF176XyQfTX+ZfLwebZa9eAaLnu
DY0g+rDVplYQvWi/fA+I7g12mA6izz3QXgSiPyzNXwOiHeL6t4DoU9J2W0F0
Q+mG8FaQeeGXUkC0yXqGbBCd6KpZCaKT2tY1g+hk6S1gWirzbweIPrI4pQ9E
54nqTgPRvutPLATRm74vWAaiVyQcA9ML17ocA9F+bmXHQXT7L9dLIDrrj9sD
EO21KPEliD4wX/kDiOa5E/cNRP9aHf4XRAMAUca14A==
  "],
 CellLabel->
  "In[791]:=",ExpressionUUID->"91fb4a72-a069-4891-ad3e-23c33d68e68c"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.8553640775078363`*^9, 3.855508024366495*^9, 
   3.855508825418558*^9, 3.855513266278965*^9, 3.8555337104058228`*^9, 
   3.8555791353452597`*^9, 3.8555935064898434`*^9, 3.8557508183225307`*^9},
 CellLabel->
  "Out[801]=",ExpressionUUID->"f9238f42-64c9-44e5-96bb-c10f397b5237"],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.8553640775078363`*^9, 3.855508024366495*^9, 
   3.855508825418558*^9, 3.855513266278965*^9, 3.8555337104058228`*^9, 
   3.8555791353452597`*^9, 3.8555935064898434`*^9, 3.8557508183225307`*^9},
 CellLabel->
  "Out[802]=",ExpressionUUID->"c869563f-3e9a-4159-8fe5-d213e7241d9e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.8553640775078363`*^9, 3.855508024366495*^9, 
   3.855508825418558*^9, 3.855513266278965*^9, 3.8555337104058228`*^9, 
   3.8555791353452597`*^9, 3.8555935064898434`*^9, 3.8557508183381524`*^9},
 CellLabel->
  "Out[803]//MatrixForm=",ExpressionUUID->"ec6d4658-ad9c-4d46-b88f-\
98d62a99a6b5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["GA satisfied for IJ = 5,6,7,8 subset", "Subsubsection",
 CellChangeTimes->{{3.855364391508668*^9, 3.855364411762356*^9}, {
  3.8553647374212313`*^9, 3.855364779840105*^9}, {3.855365934192286*^9, 
  3.8553659426835203`*^9}},ExpressionUUID->"520fe576-624e-40d2-83f5-\
14acf3b081f0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "5", ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "5", ",", "8"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "5", ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "5", ",", "8"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.855364414264979*^9, 3.85536450380355*^9}, {
  3.855364714293351*^9, 3.85536472708385*^9}, {3.855365914327512*^9, 
  3.8553659282061377`*^9}},
 CellLabel->
  "In[805]:=",ExpressionUUID->"87d50b51-339a-4633-9676-bc802dcb92af"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855365929216588*^9, 
   3.855508024387249*^9, 3.855508825441925*^9, 3.8555132663114*^9, 
   3.8555337104339857`*^9, 3.8555791353921146`*^9, 3.855593506521082*^9, 
   3.8557508183850217`*^9},
 CellLabel->
  "Out[805]//MatrixForm=",ExpressionUUID->"e04e29f0-c87a-40f5-9748-\
9ecb838a84f4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855365929216588*^9, 
   3.855508024387249*^9, 3.855508825441925*^9, 3.8555132663114*^9, 
   3.8555337104339857`*^9, 3.8555791353921146`*^9, 3.855593506521082*^9, 
   3.8557508183850217`*^9},
 CellLabel->
  "Out[806]//MatrixForm=",ExpressionUUID->"388a11f7-f483-4f10-a8fa-\
bd9bc4b6f184"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "I=9,10,11,12: ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["L", "I", 
    RowBox[{"[", "1", "]"}]], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "3101cfc9-e81b-4c74-a392-7d79dede40a7"],
 "\nFirst I = 9"
}], "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364128327853*^9, 
  3.855364151921987*^9}, {3.855364236549078*^9, 
  3.85536423777802*^9}},ExpressionUUID->"a8fcacbe-5722-4fea-9b2d-\
46951024b729"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "243"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "1243"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", "15", ",", "0", ",", "13"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "234"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "1342"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"8", ",", "15", ",", "0", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQ/fiDn3PLzjeOQlNWuIHoqa5VXiD62UlFXxAdYPEj
AER/0toVCaL38ixIBtFH505NAdELVl3KAdF176XyQfTX+ZfLwebZa9eAaLnu
DY0g+rDVplYQvWi/fA+I7g12mA6izz3QXgSiPyzNXwOiHeL6t4DoU9J2W0F0
Q+mG8FaQeeGXUkC0yXqGbBCd6KpZCaKT2tY1g+hk6S1gWirzbweIPrI4pQ9E
54nqTgPRvutPLATRm74vWAaiVyQcA9ML17ocA9F+bmXHQXT7L9dLIDrrj9sD
EO21KPEliD4wX/kDiJ6WmyzXBnJvbiGY/tIWGgOi3z+5kQyiAdyGvi8=
  "],
 CellLabel->
  "In[807]:=",ExpressionUUID->"1615ba03-7727-4e67-bcec-fbb795e88b1f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855508024438567*^9, 
   3.8555088255033903`*^9, 3.855513266365707*^9, 3.85553371048081*^9, 
   3.8555791354389772`*^9, 3.855593506552309*^9, 3.855750818416259*^9},
 CellLabel->
  "Out[817]=",ExpressionUUID->"4cde2594-1892-4e12-a386-1ac98c023a0a"],

Cell[BoxData["9"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855508024438567*^9, 
   3.8555088255033903`*^9, 3.855513266365707*^9, 3.85553371048081*^9, 
   3.8555791354389772`*^9, 3.855593506552309*^9, 3.85575081843188*^9},
 CellLabel->
  "Out[818]=",ExpressionUUID->"a2d0c271-73cf-49dd-81f3-ebbf06c88876"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855508024438567*^9, 
   3.8555088255033903`*^9, 3.855513266365707*^9, 3.85553371048081*^9, 
   3.8555791354389772`*^9, 3.855593506552309*^9, 3.8557508184475107`*^9},
 CellLabel->
  "Out[819]//MatrixForm=",ExpressionUUID->"16be9bfa-df74-4b70-87f8-\
97594f1b27eb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 10", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364128327853*^9, 
  3.855364151921987*^9}, {3.855364236549078*^9, 3.85536423777802*^9}, {
  3.855364939116296*^9, 
  3.855364941060154*^9}},ExpressionUUID->"20c5dc11-ddce-4c6e-9fd1-\
b6c3504c2120"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "123"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "23"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9", ",", "6", ",", "11"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "132"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "23"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10", ",", "5", ",", "13"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQB2IQ/fiDn3PLzjeOQlNWuIHoqa5VXiD62UlFXxAdYPEj
AER/0toVCaL38ixIBtFH505NAdELVl3KAdF176XyQfTX+ZfLwebZa9eAaLnu
DY0g+rDVplYQvWi/fA+I7g12mA6izz3QXgSiPyzNXwOiHeL6t4DoU9J2W0F0
Q+mG8FaQeeGXUkC0yXqGbBCd6KpZCaKT2tY1g+hk6S1gWirzbweIPrI4pQ9E
54nqTgPRvutPLATRm74vWAaiVyQcA9ML17ocA9F+bmXHQXT7L9dLIDrrj9sD
EO21KPEliD4wX/kDiJ6WmyzXBnJvbiGY/tIWGgOi3z+5kQyi9RYezwLRJ867
FIDoc/HypSD6v+L+MhANAM8s0EI=
  "],
 CellLabel->
  "In[821]:=",ExpressionUUID->"b666abd4-d690-47bd-b368-6fa7610993a6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.8555080245107307`*^9, 3.855508825570334*^9, 3.855513266430621*^9, 
   3.855533710538211*^9, 3.8555791355170865`*^9, 3.855593506583561*^9, 
   3.8557508184787483`*^9},
 CellLabel->
  "Out[831]=",ExpressionUUID->"da3cc6bd-218a-4e14-bb81-01b6e855144b"],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.8555080245107307`*^9, 3.855508825570334*^9, 3.855513266430621*^9, 
   3.855533710538211*^9, 3.8555791355170865`*^9, 3.855593506583561*^9, 
   3.8557508184787483`*^9},
 CellLabel->
  "Out[832]=",ExpressionUUID->"36538fc1-a1f4-4166-afb5-29e92f5458b6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.8555080245107307`*^9, 3.855508825570334*^9, 3.855513266430621*^9, 
   3.855533710538211*^9, 3.8555791355170865`*^9, 3.855593506583561*^9, 
   3.8557508184943657`*^9},
 CellLabel->
  "Out[833]//MatrixForm=",ExpressionUUID->"a09b6ac0-9f2d-4662-a884-\
b81b865bb592"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 11", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364128327853*^9, 
  3.855364151921987*^9}, {3.855364236549078*^9, 3.85536423777802*^9}, {
  3.855364939116296*^9, 3.855364941060154*^9}, {3.85536508841031*^9, 
  3.855365088484358*^9}},ExpressionUUID->"f4a3a9ca-4e96-47db-8995-\
ad6e9fb5312c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "11"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "134"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"14", ",", "3", ",", "12", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "143"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"11", ",", "6", ",", "9", ",", "14"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQ/fiDn3PLzjeOQlNWuIHoqa5VXiD62UlFXxAdYPEj
AER/0toVCaL38ixIBtFH505NAdELVl3KAdF176XyQfTX+ZfLwebZa9eAaLnu
DY0g+rDVplYQvWi/fA+I7g12mA6izz3QXgSiPyzNXwOiHeL6t4DoU9J2W0F0
Q+mG8FaQeeGXUkC0yXqGbBCd6KpZCaKT2tY1g+hk6S1gWirzbweIPrI4pQ9E
54nqTgPRvutPLATRm74vWAaiVyQcA9ML17ocA9F+bmXHQXT7L9dLIDrrj9sD
EO21KPEliD4wX/kDiJ6WmyzXBnJvbiGY/tIWGgOi3z+5kQyi9RYezwLRJ867
FIDoc/HypSD6v+L+MhC94FVIDYi+YtrdDKIBJjzZjA==
  "],
 CellLabel->
  "In[835]:=",ExpressionUUID->"26405998-86b8-4f29-b966-161b40b44b6f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855508024571005*^9, 3.85550882563554*^9, 
   3.855513266493142*^9, 3.855533710593401*^9, 3.8555791355795693`*^9, 
   3.855593506630397*^9, 3.8557508185412292`*^9},
 CellLabel->
  "Out[845]=",ExpressionUUID->"587533e6-44dd-4cb3-8adc-23d95c748e3e"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855508024571005*^9, 3.85550882563554*^9, 
   3.855513266493142*^9, 3.855533710593401*^9, 3.8555791355795693`*^9, 
   3.855593506630397*^9, 3.8557508185412292`*^9},
 CellLabel->
  "Out[846]=",ExpressionUUID->"f2a8e9ec-9cf7-48a6-b82c-7dddc43a92c6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855508024571005*^9, 3.85550882563554*^9, 
   3.855513266493142*^9, 3.855533710593401*^9, 3.8555791355795693`*^9, 
   3.855593506630397*^9, 3.85575081855685*^9},
 CellLabel->
  "Out[847]//MatrixForm=",ExpressionUUID->"fd1322a0-f6ce-4647-9d93-\
e54535783467"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 12", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364128327853*^9, 
  3.855364151921987*^9}, {3.855364236549078*^9, 3.85536423777802*^9}, {
  3.855364939116296*^9, 3.855364941060154*^9}, {3.85536508841031*^9, 
  3.855365088484358*^9}, {3.855365987955954*^9, 
  3.855365988056282*^9}},ExpressionUUID->"969c327b-43a9-4bff-9d0f-\
5ee33a7a0df5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "142"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "1342"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"8", ",", "5", ",", "10", ",", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "124"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "1243"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", "12", ",", "3", ",", "4"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzjtIAgEAxvGj2SloSEE5mkpqKoiGMtIbBEV6SRCV3jVk2dWgUUgY5hXY
Y0mDQLy7KCQyRWwoCINKrcHgamgUiqAoPHpQRFF9N3z8tj8f6WQ7hysIgqj+
H7yVrR3zB0/tlWtxCoZNM2Z4f05aoK350wZf6g774JGKp+FZNMxAfkcag7Nl
NQvfY1dTSq9N74PaUGoOnrSkg1DM6pbgcpdhHRZLehHKW+wuNAysZuCFpnUf
+j0pexA9u8TAxiQxCh2m2mno5PYCkNZkFNUjP4vwdJNZgeNV9RFoSRYEmP7g
t2F8KKcoJIw5aKW8ebjwZZKg65sqQbPoeIDHsRoZRty0lsNf96TiG9fTD8t3
NzRsEPIuWLg0TsDioM4Df8msF/KP3T543RQKQFUi+gz9vRuv8A8PteML
  "],
 CellLabel->
  "In[849]:=",ExpressionUUID->"93b83a53-a56f-416c-9554-300914ef32af"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855366045709461*^9, 3.855508024627487*^9, 
   3.8555088257029953`*^9, 3.855513266558569*^9, 3.855533710648344*^9, 
   3.8555791356202593`*^9, 3.85559350666164*^9, 3.8557508185880938`*^9},
 CellLabel->
  "Out[859]=",ExpressionUUID->"b66fba08-076a-483b-b933-0a6f39b03462"],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855366045709461*^9, 3.855508024627487*^9, 
   3.8555088257029953`*^9, 3.855513266558569*^9, 3.855533710648344*^9, 
   3.8555791356202593`*^9, 3.85559350666164*^9, 3.8557508186037145`*^9},
 CellLabel->
  "Out[860]=",ExpressionUUID->"b6172acd-147b-42f3-bb72-0bec99d00543"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855366045709461*^9, 3.855508024627487*^9, 
   3.8555088257029953`*^9, 3.855513266558569*^9, 3.855533710648344*^9, 
   3.8555791356202593`*^9, 3.85559350666164*^9, 3.855750818619335*^9},
 CellLabel->
  "Out[861]//MatrixForm=",ExpressionUUID->"f637a1aa-2e1d-4c1a-9d75-\
3199e9f7e4aa"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["GA satisfied for IJ = 9,10,11,12 subset", "Subsubsection",
 CellChangeTimes->{{3.855364391508668*^9, 3.855364411762356*^9}, {
  3.8553647374212313`*^9, 3.855364779840105*^9}, {3.855365934192286*^9, 
  3.8553659426835203`*^9}, {3.855366096331122*^9, 
  3.855366099500985*^9}},ExpressionUUID->"1a0da0a4-e021-46a1-b328-\
ff64822f614e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "9", ",", "12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "9", ",", "12"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "9", ",", "12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "9", ",", "12"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.855364414264979*^9, 3.85536450380355*^9}, {
  3.855364714293351*^9, 3.85536472708385*^9}, {3.855365914327512*^9, 
  3.8553659282061377`*^9}, {3.855366071755807*^9, 3.8553660911187077`*^9}},
 CellLabel->
  "In[863]:=",ExpressionUUID->"97b6a386-5074-44de-973b-c4d6f82988de"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855365929216588*^9, 
   3.8553660924436417`*^9, 3.855508024689793*^9, 3.855508825726178*^9, 
   3.855513266591427*^9, 3.855533710677898*^9, 3.855579135682751*^9, 
   3.85559350669291*^9, 3.855750818650578*^9},
 CellLabel->
  "Out[863]//MatrixForm=",ExpressionUUID->"1d65c77e-3512-4c56-aa3b-\
5c1aaf79b333"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855365929216588*^9, 
   3.8553660924436417`*^9, 3.855508024689793*^9, 3.855508825726178*^9, 
   3.855513266591427*^9, 3.855533710677898*^9, 3.855579135682751*^9, 
   3.85559350669291*^9, 3.8557508186661997`*^9},
 CellLabel->
  "Out[864]//MatrixForm=",ExpressionUUID->"0762e881-b40c-42a3-9679-\
65d6879f57e8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "I=13,14,15,16: ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["L", "I", 
    RowBox[{"[", "2", "]"}]], TraditionalForm]],ExpressionUUID->
  "3ba7d56d-dc18-456e-b812-c34389d38b70"],
 "\nFirst I = 13, correcting a typo here from 1402.5765: should be (1243) \
instead of (1234) for the VierZ[3][4] term"
}], "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364128327853*^9, 
  3.855364151921987*^9}, {3.855364236549078*^9, 3.85536423777802*^9}, {
  3.855364939116296*^9, 3.855364941060154*^9}, {3.85536508841031*^9, 
  3.855365088484358*^9}, {3.855365164256248*^9, 3.855365164336183*^9}, {
  3.855365396673954*^9, 3.855365426755439*^9}, {3.855365757857752*^9, 
  3.855365779855459*^9}, {3.8553661118235893`*^9, 3.855366116241623*^9}, {
  3.8555814301806903`*^9, 
  3.855581465743913*^9}},ExpressionUUID->"87ab5503-6f00-4200-b36f-\
575675ddbf70"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "13"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "243"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "1243"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "15", ",", "13"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "234"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "1342"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "15", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzjtIAgEAxvGjLWgSatBQJAhSaioQizJSB0GRHkgQlZ4RaWYNGoVIYVpg
GkRaS3heDyQqRWwoCIPyUcMF1tAkRhEUgRK9iKL6bvj4bX8+ocHaOVRGEET1
/+BdSdMxd/jczlmJKGFAMa2CD+dCNdRKPrXwRXTUC48rKBKm1gNGSO3kRqGz
yLXCt9DVJNtrEzsg3xubhafSuBvSScEi9HXJViFTENOwtGXdhbL+pQS84LUe
wBlbTOdGT5czwsYoYYZ6Rd0UNHj2XZDkJVi5Iz8L8GzD6IdjlfVBqI5mwzD+
QW3DyGCaNbwnT0ON0p6B81+KHDR9KwtQResf4UmopgSDFpLvwV/LBOurp6cP
Fu9vSNgQzphg9lI+DpkBgQ3+CpN2SD11O+B1k9cFOVVSH8w3t7AWzP5lqE3X
rsH3zTwNRcOSKHSmGIa1/Jb1D/LW/ac=
  "],
 CellLabel->
  "In[865]:=",ExpressionUUID->"deea9742-5ea9-4c32-b17c-c744e316b303"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8555080247412987`*^9, 
   3.855508825785057*^9, 3.8555132666488333`*^9, 3.8555337107287817`*^9, 
   3.855579135713987*^9, 3.855593506724125*^9, 3.8557508187130637`*^9},
 CellLabel->
  "Out[875]=",ExpressionUUID->"b0f70248-7e54-4e1b-91ed-4e97ef58b104"],

Cell[BoxData["13"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8555080247412987`*^9, 
   3.855508825785057*^9, 3.8555132666488333`*^9, 3.8555337107287817`*^9, 
   3.855579135713987*^9, 3.855593506724125*^9, 3.8557508187130637`*^9},
 CellLabel->
  "Out[876]=",ExpressionUUID->"a7d33bd8-ecbc-4610-a905-c01a827822ed"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8555080247412987`*^9, 
   3.855508825785057*^9, 3.8555132666488333`*^9, 3.8555337107287817`*^9, 
   3.855579135713987*^9, 3.855593506724125*^9, 3.855750818728685*^9},
 CellLabel->
  "Out[877]//MatrixForm=",ExpressionUUID->"bace4bdb-563e-4b43-81a3-\
462c2e5b5508"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Vierz[3][4] term for I=13 in question directly from the transformation laws \
Eq. (4.2) in 1402.5765: it is indeed ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", "13", ")"}], "b"], 
    RowBox[{"(", "1243", ")"}]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "054a9710-1786-4957-bf06-6a10ea7fb017"],
 " as corrected above instead of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"(", "13", ")"}], "b"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "6b40b700-a281-4832-b887-db9aa1ec2d11"],
 "(1234) that was apparently a typo in 1402.5765"
}], "Subsubsection",
 CellChangeTimes->{{3.8555802232499948`*^9, 3.855580231509692*^9}, {
  3.855580346875326*^9, 3.8555804171845617`*^9}, {3.8555805949304576`*^9, 
  3.8555806262149935`*^9}, {3.8555807825608983`*^9, 3.855580823562593*^9}, {
  3.85558106270321*^9, 3.855581066101116*^9}, {3.855581480279333*^9, 
  3.8555814849841566`*^9}, {3.855581533745524*^9, 
  3.855581537933652*^9}},ExpressionUUID->"07f54f4b-c584-4c0f-9014-\
e49966de5c1e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{"\[Gamma]stdown", "[", "1", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "bb"}], "]"}], "]"}]}], 
    RowBox[{
     RowBox[{"\[Psi]", "[", "2", "]"}], "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8555802342734404`*^9, 3.8555802888121233`*^9}, {
  3.8555803983587284`*^9, 3.8555803993800664`*^9}, {3.8555810777363777`*^9, 
  3.8555810892491302`*^9}},
 CellLabel->
  "In[879]:=",ExpressionUUID->"541227cf-65ea-41dd-9b7e-6025eb2772b4"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}]}]], "Output",
 CellChangeTimes->{{3.855580274947513*^9, 3.8555802898503733`*^9}, 
   3.8555810975547953`*^9, 3.855593506755395*^9, 3.8557508187599277`*^9},
 CellLabel->
  "Out[879]=",ExpressionUUID->"b4a5a793-3e73-4210-b7d2-9f1e3b59b5d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{"\[Gamma]stdown", "[", "2", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "bb"}], "]"}], "]"}]}], 
    RowBox[{
     RowBox[{"\[Psi]", "[", "2", "]"}], "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8555802342734404`*^9, 3.8555802888121233`*^9}, {
  3.8555803983587284`*^9, 3.8555803993800664`*^9}, {3.8555810777363777`*^9, 
  3.8555810892491302`*^9}, {3.8555812705558395`*^9, 3.8555812706184406`*^9}},
 CellLabel->
  "In[880]:=",ExpressionUUID->"fd7704a7-b75d-48d1-ada0-6a669b11ac34"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}]], "Output",
 CellChangeTimes->{{3.855580274947513*^9, 3.8555802898503733`*^9}, 
   3.8555810975547953`*^9, 3.8555812720471373`*^9, 3.855593506771016*^9, 
   3.85575081879117*^9},
 CellLabel->
  "Out[880]=",ExpressionUUID->"9396d10c-d2df-4d4c-97a8-9e8291b41b60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{"\[Gamma]stdown", "[", "3", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "bb"}], "]"}], "]"}]}], 
    RowBox[{
     RowBox[{"\[Psi]", "[", "2", "]"}], "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8555802342734404`*^9, 3.8555802888121233`*^9}, {
  3.8555803983587284`*^9, 3.8555803993800664`*^9}, {3.8555810777363777`*^9, 
  3.8555810892491302`*^9}, {3.8555812705558395`*^9, 3.8555812851077967`*^9}},
 CellLabel->
  "In[881]:=",ExpressionUUID->"ae5128fb-bb18-4e00-a105-9c995496979f"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}]}]], "Output",
 CellChangeTimes->{{3.855580274947513*^9, 3.8555802898503733`*^9}, 
   3.8555810975547953`*^9, {3.8555812720471373`*^9, 3.8555812854825926`*^9}, 
   3.855593506771016*^9, 3.8557508188224125`*^9},
 CellLabel->
  "Out[881]=",ExpressionUUID->"d3ca9547-69fd-4e71-838d-a2081469f3eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"\[Gamma]5\[Gamma]", "[", "0", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "bb"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"\[Psi]", "[", "2", "]"}], "[", "bb", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8555802342734404`*^9, 3.8555802888121233`*^9}, {
  3.8555803983587284`*^9, 3.8555803993800664`*^9}, {3.8555810777363777`*^9, 
  3.8555810892491302`*^9}, {3.8555812705558395`*^9, 3.8555813104988146`*^9}},
 CellLabel->
  "In[882]:=",ExpressionUUID->"3ad8a4ef-4dc6-4a27-bf9b-0a6f9d73ca6a"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}]}]], "Output",
 CellChangeTimes->{{3.855580274947513*^9, 3.8555802898503733`*^9}, 
   3.8555810975547953`*^9, 3.8555812720471373`*^9, 3.8555813145878687`*^9, 
   3.855593506786638*^9, 3.855750818853655*^9},
 CellLabel->
  "Out[882]=",ExpressionUUID->"ed67693e-04ab-46fc-b64a-9328a3b4f23b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 14", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364128327853*^9, 
  3.855364151921987*^9}, {3.855364236549078*^9, 3.85536423777802*^9}, {
  3.855364939116296*^9, 3.855364941060154*^9}, {3.85536508841031*^9, 
  3.855365088484358*^9}, {3.855365164256248*^9, 3.855365164336183*^9}, {
  3.855365396673954*^9, 3.855365426755439*^9}, {3.855365757857752*^9, 
  3.855365779855459*^9}, {3.8553661118235893`*^9, 3.855366116241623*^9}, {
  3.855366186869882*^9, 
  3.855366194135768*^9}},ExpressionUUID->"e73c9957-1cbc-458e-b1ea-\
0b5385cbed5f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "14"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "123"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "23"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"6", ",", "4", ",", "9", ",", "11"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "132"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "23"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", "10", ",", "13"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzjlIggEAxXFpKqhFqEFJkSBIqalANMpIHQRFOpAgyisizaxBO5DITA1M
g0hrCfXrQKJSxIaCMCiPGgysoUmMIigCJbqIonzf8Phtfx5LbewaKqNQKLWl
wfuirHPh6KWDuhoSQ69oRgIfL1hSKOd+yeEr+7gPnlQGNDCx4dXCwG52FM4W
aEb47r+eJHvtHAtkuCJWeMaL2iERZy5Bd7dgDWbyHAIWt417UDCwHIOX9LZD
OGeKKOzoKbJa2Bym6KFK1DAN1Y4DG9TQY6S0kd9FeL6p9cCx6kYflIbTQRj9
DOzAkDJJGtwXJqFMbE5B57coC3U/4jyUEKoneOqvK0KfQcNw4K9hgvTN0dsP
Cw+3GtgUTOlg+ko4DjODTBP8Y8XNMPDcY4E3LS4bpNbw3DDHbyXN6z0rUJ6s
X4cfWzkCsoe5YTibyGRIK+5IlVPWcmfJeQ6/Cv4DC6ME5w==
  "],
 CellLabel->
  "In[883]:=",ExpressionUUID->"f2931095-b3cb-4905-bef4-b6c22db14e2f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855508024797509*^9, 3.855508825852726*^9, 3.85551326671747*^9, 
   3.855533710787161*^9, 3.855579135776473*^9, 3.855593506802251*^9, 
   3.8557508189005194`*^9},
 CellLabel->
  "Out[893]=",ExpressionUUID->"7d4b5a63-6610-4353-9377-68167a11ee15"],

Cell[BoxData["14"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855508024797509*^9, 3.855508825852726*^9, 3.85551326671747*^9, 
   3.855533710787161*^9, 3.855579135776473*^9, 3.855593506802251*^9, 
   3.8557508189005194`*^9},
 CellLabel->
  "Out[894]=",ExpressionUUID->"96dea9a8-294c-4991-95c0-d29aaf8fdf8d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855508024797509*^9, 3.855508825852726*^9, 3.85551326671747*^9, 
   3.855533710787161*^9, 3.855579135776473*^9, 3.855593506802251*^9, 
   3.8557508189161453`*^9},
 CellLabel->
  "Out[895]//MatrixForm=",ExpressionUUID->"9aa54a4c-e01d-4053-a6ae-\
8bd9aa5ee097"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 15", "Subsubsection",
 CellChangeTimes->{{3.855360533233301*^9, 3.8553605338301363`*^9}, {
  3.8553607707030067`*^9, 3.8553607818858*^9}, {3.8553609517276497`*^9, 
  3.855360953261779*^9}, {3.8553610311295433`*^9, 3.855361031226781*^9}, {
  3.855361117113068*^9, 3.855361117257695*^9}, {3.855361497982205*^9, 
  3.8553616201149178`*^9}, {3.855363720221484*^9, 3.855363722436949*^9}, {
  3.855363910986223*^9, 3.855363911213312*^9}, {3.855364128327853*^9, 
  3.855364151921987*^9}, {3.855364236549078*^9, 3.85536423777802*^9}, {
  3.855364939116296*^9, 3.855364941060154*^9}, {3.85536508841031*^9, 
  3.855365088484358*^9}, {3.855365164256248*^9, 3.855365164336183*^9}, {
  3.855365396673954*^9, 3.855365426755439*^9}, {3.855365757857752*^9, 
  3.855365779855459*^9}, {3.8553661118235893`*^9, 3.855366116241623*^9}, {
  3.855366186869882*^9, 3.855366194135768*^9}, {3.8553663104265413`*^9, 
  3.855366310550919*^9}},ExpressionUUID->"46ed0b0a-9ec0-4c84-97f9-\
8819d4c32cc4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "15"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "134"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"12", ",", "14", ",", "3", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "143"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"9", ",", "11", ",", "6", ",", "14"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzjlIggEAxfGPpoJaghwUFAmClIKgQDQ6SB0ERTqQIMorIq2sQTsQyUwN
TKNIaxGPDkQqRWwoCIPSrMHAGprEKIIiUKKLKKr3DY/f9ucxlbrOwRKCIOj/
g3dFScf8wXN75WpICN2CGRF8OGeKoZTzKYUvrMNeeFTuV8Gk162G/nB2BJoK
VB18811Nkr1WthHSHVEzPOHGrDCYYCxCZ1fbGszk2UFY3NLtwLb+pTi8oLXs
w1l9VGZFT5ZVw8YIoYUKQe00VNr2LFBFi5NSh38W4OmG2gXHquo8UBxJB2Ds
w78NQ/IUaWCXn4ISoeEM2r8EWaj5FuahKKh4hMe+6iL0jKroNvwdnSB9tfX0
wcL9jQrWB840MH3JH4eZAYYe/jITBuh/6jbC6yaHBVZSuE6Y4zWT5rWuFShN
1azD981cELKGOBFoSmYypGW3pPIpc6n93zk2rwJKw14KtDQsM+Afnj0M0w==

  "],
 CellLabel->
  "In[897]:=",ExpressionUUID->"1a1ee0c6-001b-40d5-8fa3-382bb28095e1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855366400049861*^9, 3.8555080248544483`*^9, 3.855508825918014*^9, 
   3.855513266784369*^9, 3.8555337108208714`*^9, 3.855579135831065*^9, 
   3.8555935068560123`*^9, 3.855750818947383*^9},
 CellLabel->
  "Out[907]=",ExpressionUUID->"73091254-cfd9-4056-9b2c-a271eeb2b8f9"],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855366400049861*^9, 3.8555080248544483`*^9, 3.855508825918014*^9, 
   3.855513266784369*^9, 3.8555337108208714`*^9, 3.855579135831065*^9, 
   3.8555935068560123`*^9, 3.855750818963004*^9},
 CellLabel->
  "Out[908]=",ExpressionUUID->"acd6c8e7-d065-4e24-9278-11534983d222"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855366400049861*^9, 3.8555080248544483`*^9, 3.855508825918014*^9, 
   3.855513266784369*^9, 3.8555337108208714`*^9, 3.855579135831065*^9, 
   3.8555935068560123`*^9, 3.855750818963004*^9},
 CellLabel->
  "Out[909]//MatrixForm=",ExpressionUUID->"af0dccc4-37d7-40c6-997b-\
ea30a13c0f28"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["I = 16", "Subsubsection",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQbVK+3Kll5xvHqgm7wDRHfVgCiK6M2JMIol94fC8D
0XUJGuUg2kL1SQOIPuX4HEw7zlvcDaK57FeAacs8+90gOmNt8ykQnSbGfrEV
SNf89gXTKv33X4DoksvPwPSxWi6WNiD9uuEvG4jmmTRREER3Pd0BpjftSM4E
0SfeLATTToq8NSD6Tj0/mNY37mgF0cyHusA0x8Spi0B0n07EMhC9pWj3eRD9
Jr76Eoi+EfXrN4hO2N3+B0QLX4tmbQfSZhEubCDaatlZERCtuPAimObxqFAF
0WoFVWAaAOUcpk0=
  "],ExpressionUUID->"9a58f790-4e93-4cab-a7d8-7f6b4c949c97"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalColor", " ", "=", " ", "16"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LChiralPerm", " ", "=", " ", "142"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LVectorPerm", " ", "=", " ", "1342"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"10", ",", "8", ",", "5", ",", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RChiralPerm", " ", "=", " ", "124"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RVectorPerm", " ", "=", " ", "1243"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "12", ",", "4"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{
        RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"LBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "LVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RChiralPerm", "]"}]}]}], "]"}], "+", 
     RowBox[{"Outer", "[", 
      RowBox[{"Times", ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"SignMatrix4", "[", 
         RowBox[{"RBoolean", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
        RowBox[{"S4PermJim", "[", "RVectorPerm", "]"}]}]}], "]"}]}], "//", 
    "ArrayFlatten"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "==", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}], 
   " ", "==", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "LocalColor", "]"}], "]"}]}], 
  " "}], "\[IndentingNewLine]", "LocalColor", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RTermsMatrixForm", "[", "N4VC", "]"}], "[", "LocalColor", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "LocalColor", ",", "LocalVierNum", ",", "LChiralPerm", ",", "LVectorPerm", 
   ",", "LBoolean", ",", "RChiralPerm", ",", "RVectorPerm", ",", "RBoolean"}],
   "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzjlIggEAxfGPpoJahBwKFIkCFYOgQDTKKB0ERTqIIMrUiDyyBu1AJDMt
KI3uFvHoIKRSxIaCMCiPGgysoSmMIigCJbopyvcNj9/25zEU+ubePIIg6LnB
u6y0cfLguYGytC2Cy8IxMXw4Y0igjPspgy+sww54VOhRwqhrWQU9/pQWmjMl
evjmvhwme/VsE6TNBC3whBeyQV+EPgsdLYJVmEyzfTC7qd+Bgq65MDwvrduH
44Zguw299pQKVgcIDewRMkehwr5nhcrSMGlJ/+80PF1XOeFAMWcFSgIJLwx9
eLbgtjxG6t1tikGpyBiHU9/CFFT/iNJQ7Ot5hMfusixc0SlpdvzVDZG+2ts6
Yeb+WgkrvXE1TFw0DcJkN90A/xgRI/Q8tZrgVc2MFVKoPAe84deSpjXOBSiL
VazB940bH2T1cQPQHE0mSQtuSeUjlvypnBNsfhGU+V1UaK2ap8NF5lc5VCxp
OfAfszcVFw==
  "],
 CellLabel->
  "In[911]:=",ExpressionUUID->"ca6f25cc-338c-4721-8fe7-459c29cb35c6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855366400049861*^9, 3.855366510129404*^9, 3.855508024913884*^9, 
   3.855508825984309*^9, 3.855513266850874*^9, 3.8555337108740883`*^9, 
   3.855579135877923*^9, 3.8555935068872538`*^9, 3.855750819009868*^9},
 CellLabel->
  "Out[921]=",ExpressionUUID->"dec43ccc-1fd0-4cfc-a72e-79c47245b725"],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855366400049861*^9, 3.855366510129404*^9, 3.855508024913884*^9, 
   3.855508825984309*^9, 3.855513266850874*^9, 3.8555337108740883`*^9, 
   3.855579135877923*^9, 3.8555935068872538`*^9, 3.855750819009868*^9},
 CellLabel->
  "Out[922]=",ExpressionUUID->"10e5ac64-082b-4425-81ed-ee4387558db7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8553608062779093`*^9, 3.8553608501493177`*^9, 3.855360899562546*^9, 
   3.8553610055693903`*^9, 3.855361077543804*^9, 3.855361401015854*^9, 
   3.855361450792157*^9, 3.8553630519012547`*^9, 3.855363403072322*^9, 
   3.8553636462421503`*^9, {3.855363806831794*^9, 3.855363844980647*^9}, 
   3.8553639704548607`*^9, 3.855364898799355*^9, 3.855365047144006*^9, 
   3.855365151919067*^9, 3.855365319206918*^9, {3.8553654793777018`*^9, 
   3.855365502199716*^9}, 3.855365754003964*^9, 3.8553662509126987`*^9, 
   3.855366400049861*^9, 3.855366510129404*^9, 3.855508024913884*^9, 
   3.855508825984309*^9, 3.855513266850874*^9, 3.8555337108740883`*^9, 
   3.855579135877923*^9, 3.8555935068872538`*^9, 3.8557508190254893`*^9},
 CellLabel->
  "Out[923]//MatrixForm=",ExpressionUUID->"e4f0de1e-e3b6-402e-b9ee-\
33c68d7d63a4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "GA satisfied for IJ = 13,14,15,16 subset with above change for ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "13"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "cb89a96a-3969-4b52-a8cb-972c8de79224"],
 " implemented"
}], "Subsubsection",
 CellChangeTimes->{{3.855364391508668*^9, 3.855364411762356*^9}, {
  3.8553647374212313`*^9, 3.855364779840105*^9}, {3.855365934192286*^9, 
  3.8553659426835203`*^9}, {3.855366096331122*^9, 3.855366099500985*^9}, {
  3.8553665885855207`*^9, 
  3.855366613397456*^9}},ExpressionUUID->"6e6c5a53-4eb9-4726-829b-\
f52216cf5f17"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "13", ",", "16"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "13", ",", "16"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ".", 
       RowBox[{
        RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}]}]}], "==", 
     RowBox[{"2", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"II", ",", "JJ"}], "]"}], 
      RowBox[{"IdentityMatrix", "[", "16", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"II", ",", "13", ",", "16"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"JJ", ",", "13", ",", "16"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.855364414264979*^9, 3.85536450380355*^9}, {
  3.855364714293351*^9, 3.85536472708385*^9}, {3.855365914327512*^9, 
  3.8553659282061377`*^9}, {3.855366071755807*^9, 3.8553660911187077`*^9}, {
  3.855366570184843*^9, 3.855366582034829*^9}},
 CellLabel->
  "In[925]:=",ExpressionUUID->"f2a33c5b-629c-4536-850c-4c05b20fabe5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855365929216588*^9, 
   3.8553660924436417`*^9, 3.855366584020211*^9, 3.855366626469626*^9, 
   3.85550802493684*^9, 3.855508826051989*^9, 3.855513266958869*^9, 
   3.855533710903227*^9, 3.8555791359247875`*^9, 3.855593506918524*^9, 
   3.8557508190567317`*^9},
 CellLabel->
  "Out[925]//MatrixForm=",ExpressionUUID->"4e3d66ae-dfc5-47b1-9742-\
e4f30e578692"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"},
     {"True", "True", "True", "True"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8553644890166197`*^9, 3.8553645055384817`*^9}, 
   3.855364585213395*^9, 3.855364640105282*^9, 3.855364728040864*^9, 
   3.855364809106275*^9, 3.855365886240138*^9, 3.855365929216588*^9, 
   3.8553660924436417`*^9, 3.855366584020211*^9, 3.855366626469626*^9, 
   3.85550802493684*^9, 3.855508826051989*^9, 3.855513266958869*^9, 
   3.855533710903227*^9, 3.8555791359247875`*^9, 3.855593506918524*^9, 
   3.8557508190723534`*^9},
 CellLabel->
  "Out[926]//MatrixForm=",ExpressionUUID->"7fbf0e41-493d-4656-9ffb-\
9c38eac52b0c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Save into L[N4VC] and generate Adinkra Data
In summary: orthogonal-trace condition satisfied for L and R. The V and \
Vtilde are NOT all linearly independent, and do not satisfy so(16)\
\>", "Subsubsection",
 CellChangeTimes->{{3.8553681770937757`*^9, 3.855368192555746*^9}, {
  3.85536839337772*^9, 3.8553684006510983`*^9}, {3.8553691123836718`*^9, 
  3.855369162472844*^9}},ExpressionUUID->"f0f04389-d8e6-4e67-9406-\
55e2ca6da098"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "N4VC", "]"}], "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "II", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", "N4VC", "]"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"RTerms", "[", "N4VC", "]"}], "[", "JJ", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.855368402792899*^9, 3.855368439735426*^9}},
 CellLabel->
  "In[927]:=",ExpressionUUID->"6bdb2bbc-ad4e-4174-9934-dbf079a112a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "N4VC", "]"}], "[", 
   RowBox[{"[", "16", "]"}], "]"}], "==", 
  RowBox[{
   RowBox[{"LTerms", "[", "N4VC", "]"}], "[", "16", "]"}]}]], "Input",
 CellChangeTimes->{{3.855368466049885*^9, 3.855368486789081*^9}},
 CellLabel->
  "In[929]:=",ExpressionUUID->"7c8fdf78-4181-40cf-9909-92564daf2e09"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.8553684753737583`*^9, 3.855368487175737*^9}, 
   3.855508024993318*^9, 3.8555088261247473`*^9, 3.855513267041595*^9, 
   3.855533710950424*^9, 3.8555791359734077`*^9, 3.8555935069497643`*^9, 
   3.8557508191036*^9},
 CellLabel->
  "Out[929]=",ExpressionUUID->"87ae11c7-5231-4e89-b749-c67648c98b0b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "N4VC", "]"}]], "Input",
 CellChangeTimes->{{3.855368517559822*^9, 3.8553685231180162`*^9}},
 CellLabel->
  "In[930]:=",ExpressionUUID->"f3fee293-6a17-4f2e-97e3-d14e5b5da4a4"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = N4VC\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 16\"\>"},
        {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
        {"\<\"GATest = False\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.855368529294388*^9, 3.855508025034786*^9, 
  3.855508826181405*^9, 3.855513267095619*^9, 3.855533710996809*^9, 
  3.855579136004653*^9, 3.855593506980981*^9, 3.8557508191504602`*^9},
 CellLabel->
  "Out[930]=",ExpressionUUID->"9176a4a9-1f7b-4fd5-b71e-af5943a7e485"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", "N4VC", "]"}]], "Input",
 CellChangeTimes->{{3.85536850694963*^9, 3.8553685112914543`*^9}},
 CellLabel->
  "In[931]:=",ExpressionUUID->"dd10ef47-6d21-47c6-9b05-370b4601a4db"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    931, 13, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533711204021*^9, 3.8555791361608973`*^9, 
  3.855593507121605*^9, 3.855750819306984*^9},
 CellLabel->
  "During evaluation of \
In[931]:=",ExpressionUUID->"613c4b47-3cef-4b0f-84b7-05464beb5b49"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    931, 14, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533711204021*^9, 3.8555791361608973`*^9, 
  3.855593507121605*^9, 3.855750819400711*^9},
 CellLabel->
  "During evaluation of \
In[931]:=",ExpressionUUID->"78ab4893-bf14-4389-8242-a31eecb4f6e3"],

Cell[BoxData["\<\"L, R, GALR, GARL, V, Vtilde, cSoln[V[Rep]], \
cSoln[Vtilde[Rep]] are loaded for Rep = N4VC\"\>"], "Print",
 CellChangeTimes->{3.855509030112976*^9, 3.855513267367577*^9, 
  3.8555337113098803`*^9, 3.855579136270216*^9, 3.8555935072309494`*^9, 
  3.855750819400711*^9},
 CellLabel->
  "During evaluation of \
In[931]:=",ExpressionUUID->"819a284b-0c14-4040-8fb4-9ddd9866cfa3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"N4VC", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.8553688240309668`*^9, 3.8553688250299*^9}},
 CellLabel->
  "In[932]:=",ExpressionUUID->"f7f5046e-5013-4cc4-9cc3-aa287ffd4c30"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    932, 15, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533711435422*^9, 3.8555791363846474`*^9, 
  3.8555935073559237`*^9, 3.85575081955334*^9},
 CellLabel->
  "During evaluation of \
In[932]:=",ExpressionUUID->"cc7e9119-92ae-4c4c-8dbc-58c3446d7605"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    932, 16, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855533711435422*^9, 3.8555791363846474`*^9, 
  3.8555935073559237`*^9, 3.855750819647068*^9},
 CellLabel->
  "During evaluation of \
In[932]:=",ExpressionUUID->"bdca4bf9-9fe0-4751-afde-ab24ec5dfe82"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 16\"\>"},
            {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
            {"\<\"GATest = False\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] = {{0, 0, 0, c[1, 5], c[1, 6], c[1, 7], \
c[1, 8], c[1, 9], c[1, 10], c[1, 11], c[1, 12], c[1, 13], c[1, 14], c[1, 15], \
c[1, 16]}, {0, 0, c[1, 6], c[2, 6], c[2, 7], c[2, 8], c[1, 10], c[2, 10], \
c[2, 11], c[2, 12], c[1, 14], c[2, 14], c[2, 15], c[2, 16]}, {0, c[1, 7], \
c[2, 7], c[3, 7], c[3, 8], c[1, 11], c[2, 11], c[3, 11], c[3, 12], c[1, 15], \
c[2, 15], c[3, 15], c[3, 16]}, {c[1, 8], c[2, 8], c[3, 8], -c[1, 5] - c[2, 6] \
- c[3, 7], c[1, 12], c[2, 12], c[3, 12], -c[1, 9] - c[2, 10] - c[3, 11], c[1, \
16], c[2, 16], c[3, 16], -c[1, 13] - c[2, 14] - c[3, 15]}, {c[5, 6], c[5, 7], \
c[5, 8], c[2, 14], c[5, 10], c[5, 11], c[5, 12], -c[2, 10], c[5, 14], c[5, \
15], c[5, 16]}, {c[5, 8], -c[5, 7], -2 c[1, 14] - c[5, 10], c[1, 13], c[1, \
16] - c[2, 15] + c[5, 12], -c[1, 15] - c[2, 16] - c[5, 11], 2 c[1, 10] - c[5, \
14], -c[1, 9], -c[1, 12] + c[2, 11] + c[5, 16], c[1, 11] + c[2, 12] - c[5, \
15]}, {c[5, 6], -2 c[2, 16] - c[5, 11], c[1, 16] + c[2, 15] - c[5, 12], -c[1, \
13] - c[2, 14] - c[3, 15], c[1, 14] - c[3, 16] + c[5, 10], 2 c[2, 12] - c[5, \
15], -c[1, 12] - c[2, 11] - c[5, 16], c[1, 9] + c[2, 10] + c[3, 11], -c[1, \
10] + c[3, 12] + c[5, 14]}, {2 c[2, 15] - c[5, 12], -c[1, 15] + c[2, 16] + \
c[5, 11], -c[1, 14] - c[3, 16] - c[5, 10], c[3, 15], -2 c[2, 11] - c[5, 16], \
c[1, 11] - c[2, 12] + c[5, 15], c[1, 10] + c[3, 12] - c[5, 14], -c[3, 11]}, \
{c[9, 10], c[9, 11], c[9, 12], c[2, 6], c[9, 14], c[9, 15], c[9, 16]}, {c[9, \
12], -c[9, 11], -2 c[1, 6] - c[9, 14], c[1, 5], c[1, 8] - c[2, 7] + c[9, 16], \
-c[1, 7] - c[2, 8] - c[9, 15]}, {c[9, 10], -2 c[2, 8] - c[9, 15], c[1, 8] + \
c[2, 7] - c[9, 16], -c[1, 5] - c[2, 6] - c[3, 7], c[1, 6] - c[3, 8] + c[9, \
14]}, {2 c[2, 7] - c[9, 16], -c[1, 7] + c[2, 8] + c[9, 15], -c[1, 6] - c[3, \
8] - c[9, 14], c[3, 7]}, {-c[5, 6] - c[9, 10], -c[5, 7] - c[9, 11], -c[5, 8] \
- c[9, 12]}, {-c[5, 8] - c[9, 12], c[5, 7] + c[9, 11]}, {-c[5, 6] - c[9, \
10]}} == {{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, \
0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, \
0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, \
0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, \
0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, \
0}, {0, 0}, {0}}\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{0, 0, 0, c[1, 5], c[1, 6], c[1, \
7], c[1, 8], c[1, 9], c[1, 10], c[1, 11], c[1, 12], c[1, 13], c[1, 14], c[1, \
15], c[1, 16]}, {0, 0, c[1, 6], -c[1, 5], -c[1, 8], c[1, 7], c[1, 10], -c[1, \
9], -c[1, 12], c[1, 11], c[1, 14], -c[1, 13], -c[1, 16], c[1, 15]}, {0, c[1, \
7], -c[1, 8], c[3, 7], c[3, 8], c[1, 11], -c[1, 12], c[3, 11], c[3, 12], c[1, \
15], -c[1, 16], c[3, 15], c[3, 16]}, {c[1, 8], c[1, 7], c[3, 8], -c[3, 7], \
c[1, 12], c[1, 11], c[3, 12], -c[3, 11], c[1, 16], c[1, 15], c[3, 16], -c[3, \
15]}, {0, 0, 0, -c[1, 13], -c[1, 14], -c[1, 15], -c[1, 16], c[1, 9], c[1, \
10], c[1, 11], c[1, 12]}, {0, 0, -c[1, 14], c[1, 13], c[1, 16], -c[1, 15], \
c[1, 10], -c[1, 9], -c[1, 12], c[1, 11]}, {0, -c[1, 15], c[1, 16], -c[3, 15], \
-c[3, 16], c[1, 11], -c[1, 12], c[3, 11], c[3, 12]}, {-c[1, 16], -c[1, 15], \
-c[3, 16], c[3, 15], c[1, 12], c[1, 11], c[3, 12], -c[3, 11]}, {0, 0, 0, \
-c[1, 5], -c[1, 6], -c[1, 7], -c[1, 8]}, {0, 0, -c[1, 6], c[1, 5], c[1, 8], \
-c[1, 7]}, {0, -c[1, 7], c[1, 8], -c[3, 7], -c[3, 8]}, {-c[1, 8], -c[1, 7], \
-c[3, 8], c[3, 7]}, {0, 0, 0}, {0, 0}, {0}} == {{0, 0, 0, 0, 0, 0, 0, 0, 0, \
0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, \
0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, \
0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, \
0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, \
0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0}, {0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"AllsoNTest = False\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.855368868795088*^9, 3.855509068435288*^9, 
  3.855513304836473*^9, 3.85553374780175*^9, 3.8555791725297484`*^9, 
  3.8555935439391365`*^9, 3.8557508645558543`*^9},
 CellLabel->
  "Out[932]=",ExpressionUUID->"4445b8cc-b7ef-4308-b768-7132049ccf74"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"soNTest", "[", 
   RowBox[{"VtildesoN", "[", "N4VC", "]"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.8551910745558167`*^9, 3.855191080170794*^9}, {
  3.855369094343553*^9, 3.85536909500564*^9}},
 CellLabel->
  "In[933]:=",ExpressionUUID->"25a6d76a-65e9-45ca-a83b-973f4b69a140"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.8551911242430763`*^9, 3.855331027501713*^9, 
  3.8553402315338345`*^9, 3.8553435648638954`*^9, 3.855344410557564*^9, 
  3.855353150438302*^9, 3.855369134491081*^9, 3.855509105982564*^9, 
  3.855513342324904*^9, 3.8555337838360453`*^9, 3.8555792093329515`*^9, 
  3.8555935819360805`*^9, 3.8557509043145723`*^9},
 CellLabel->
  "Out[933]=",ExpressionUUID->"5fa3c957-6e74-439e-8910-9a33191ef607"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"soNTest", "[", 
   RowBox[{"VsoN", "[", "N4VC", "]"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.8551910745558167`*^9, 3.855191080170794*^9}, {
  3.855191137237935*^9, 3.855191138017581*^9}, {3.855369098616991*^9, 
  3.855369099324655*^9}},
 CellLabel->
  "In[934]:=",ExpressionUUID->"7e3dd175-bb97-49dc-9faa-0bc9fa6532c8"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.8551911242430763`*^9, 3.8551911748137913`*^9, 
  3.855331063942273*^9, 3.855340267656141*^9, 3.855343603251317*^9, 
  3.8553444487024817`*^9, 3.8553531885911207`*^9, 3.855369171913624*^9, 
  3.855509142849389*^9, 3.855513379642552*^9, 3.8555338191890593`*^9, 
  3.8555792463689923`*^9, 3.855593620253248*^9, 3.8557509405751753`*^9},
 CellLabel->
  "Out[934]=",ExpressionUUID->"fbc9c15a-b4df-403e-b797-c4731a5ece46"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Encoding the VC L and R matrices from 1402.5765 in terms of SM-i\
\>", "Subsection",
 CellChangeTimes->{{3.8553578500269003`*^9, 3.8553578506918087`*^9}, {
  3.855357949967572*^9, 3.8553579635501127`*^9}, {3.8553678510381937`*^9, 
  3.855367887427842*^9}},ExpressionUUID->"6276051d-3d85-4817-91e4-\
a08061711516"],

Cell[CellGroupData[{

Cell["I = 1,2,3,4", "Subsubsection",
 CellChangeTimes->{{3.855508510780941*^9, 3.855508511326792*^9}, {
  3.855514058710753*^9, 
  3.85551405947834*^9}},ExpressionUUID->"5a0a4c47-ee19-4133-a835-\
10ecf4649a93"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "1", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.855508550252228*^9, 3.855508575129877*^9}, {
  3.855533858550325*^9, 3.855533861067955*^9}},
 CellLabel->
  "In[935]:=",ExpressionUUID->"14eccf8c-029b-4437-b090-87efeddef6bf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.855513534416711*^9, 3.855533819257457*^9, {3.855533865601926*^9, 
   3.855533879614665*^9}, 3.8555792464158235`*^9, 3.8555936202881837`*^9, 
   3.855750940622013*^9},
 CellLabel->
  "Out[935]=",ExpressionUUID->"d20b4d66-07a5-4e77-8915-d95749b0a072"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.855508514252801*^9, 3.855508525786888*^9}, 
   3.855533863965377*^9},
 CellLabel->
  "In[936]:=",ExpressionUUID->"c1520d5b-62a3-43cf-af89-b7292a93a9eb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.85551353773512*^9, 3.855533819322771*^9, {3.855533867444887*^9, 
   3.855533879707947*^9}, 3.855579246450279*^9, 3.855593620310096*^9, 
   3.8557509406532555`*^9},
 CellLabel->
  "Out[936]//MatrixForm=",ExpressionUUID->"8226eece-6ed3-4f23-809a-\
8ca517492159"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "1"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalColor", "[", "LocalSMColor_", "]"}], ":=", " ", 
  RowBox[{"LocalSMColor", " ", "+", " ", 
   RowBox[{"4", "*", 
    RowBox[{"(", 
     RowBox[{"SetNo", "-", "1"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SignBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8553477540487995`*^9, 3.8553477675041275`*^9}, {
   3.85535374118112*^9, 3.855353746550172*^9}, {3.855513852852812*^9, 
   3.855513854667745*^9}, {3.8555139052211742`*^9, 3.855513924725144*^9}, 
   3.855514004621559*^9},
 CellLabel->
  "In[937]:=",ExpressionUUID->"f1dc25e0-78b2-42dd-9546-bcc176bb2e1b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
       RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMII", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
       "ArrayFlatten"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
          RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "==", 
         RowBox[{
          RowBox[{"L", "[", "N4VC", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "]"}]}], 
        ",", 
        RowBox[{"LocalColor", "[", "LocalSMColor", "]"}]}], "}"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"LocalSMColor", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}, {3.8553477861998158`*^9, 
  3.8553478381275663`*^9}, {3.8553478913427043`*^9, 3.8553480356008224`*^9}, {
  3.855513714175859*^9, 3.8555137303652763`*^9}, {3.855513772938023*^9, 
  3.8555138011728897`*^9}, {3.85551384749854*^9, 3.855513848039246*^9}, {
  3.85551392691582*^9, 3.8555139633788033`*^9}},
 CellLabel->
  "In[941]:=",ExpressionUUID->"0bdd8d0d-50ea-4e63-87e6-3f1ff542fc63"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "1"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855533819378284*^9, 3.855533879760385*^9, 
  3.8555792464865475`*^9, 3.8555936203370247`*^9, 3.8557509407001195`*^9},
 CellLabel->
  "During evaluation of \
In[941]:=",ExpressionUUID->"259ba183-8701-4284-a7bd-2f04429f473e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "2"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855533819378284*^9, 3.855533879760385*^9, 
  3.8555792464865475`*^9, 3.8555936203370247`*^9, 3.8557509407001195`*^9},
 CellLabel->
  "During evaluation of \
In[941]:=",ExpressionUUID->"0901bd57-bae8-4944-8496-1eda3bf05601"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "3"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855533819378284*^9, 3.855533879760385*^9, 
  3.8555792464865475`*^9, 3.8555936203370247`*^9, 3.85575094071574*^9},
 CellLabel->
  "During evaluation of \
In[941]:=",ExpressionUUID->"e2ac4881-7a0f-4de3-801a-f840fa5adbc3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "4"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855533819378284*^9, 3.855533879760385*^9, 
  3.8555792464865475`*^9, 3.8555936203370247`*^9, 3.85575094071574*^9},
 CellLabel->
  "During evaluation of \
In[941]:=",ExpressionUUID->"b26c3797-df69-4825-9b79-386032a9f0f0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VC", "]"}], "[", "2", "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.855514029680434*^9, 3.8555140368455133`*^9}, {
  3.855514111262226*^9, 3.8555141113449*^9}},
 CellLabel->
  "In[942]:=",ExpressionUUID->"cf6078e5-6531-4c32-bb90-c0e36fe1a98c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514031935828*^9, 3.855514037756295*^9}, 
   3.8555141168193607`*^9, 3.855533819413537*^9, 3.8555338797811203`*^9, 
   3.855579246549077*^9, 3.855593620396865*^9, 3.8557509407626066`*^9},
 CellLabel->
  "Out[942]//MatrixForm=",ExpressionUUID->"41ac2ead-9dfe-43db-b6ac-\
d6e9fa58636b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.855514090419438*^9, 3.855514113094274*^9}},
 CellLabel->
  "In[943]:=",ExpressionUUID->"4ae050ca-0ed0-422d-ab82-018b326ab99c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514087013156*^9, 3.8555141139488*^9}, 
   3.855533819463566*^9, 3.855533879821642*^9, 3.855579246583669*^9, 
   3.855593620423792*^9, 3.8557509408094683`*^9},
 CellLabel->
  "Out[943]//MatrixForm=",ExpressionUUID->"8961406a-07ac-4419-a4ee-\
deb4d968dccf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"SetNo", ",", "LocalVierNum", ",", "SignBoolean"}], "]"}]], "Input",\

 CellChangeTimes->{{3.855514423975197*^9, 3.8555144513057327`*^9}},
 CellLabel->
  "In[944]:=",ExpressionUUID->"35f2f9bc-294e-45b9-a43a-0d5e1464c734"]
}, Open  ]],

Cell[CellGroupData[{

Cell["I = 5,6,7,8", "Subsubsection",
 CellChangeTimes->{{3.855508510780941*^9, 3.855508511326792*^9}, {
  3.855514058710753*^9, 3.85551405947834*^9}, {3.855514296207942*^9, 
  3.855514298885296*^9}},ExpressionUUID->"fcfd267c-f7e3-4325-a131-\
831acce874ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "1", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.855508550252228*^9, 3.855508575129877*^9}, {
  3.855514309201604*^9, 3.8555143122314577`*^9}},
 CellLabel->
  "In[945]:=",ExpressionUUID->"f74c0272-f0ff-4306-b947-300538cfb436"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.855513534416711*^9, 3.855514313591571*^9, 
  3.855533819524363*^9, 3.855533888112776*^9, 3.8555792466326494`*^9, 
  3.8555936204534817`*^9, 3.855750940856344*^9},
 CellLabel->
  "Out[945]=",ExpressionUUID->"c21c1ae6-5e24-40b4-a564-11ebad470e9e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "5", "]"}]], "Input",
 CellChangeTimes->{{3.855508514252801*^9, 3.855508525786888*^9}, {
  3.855514315676705*^9, 3.8555143174833117`*^9}},
 CellLabel->
  "In[946]:=",ExpressionUUID->"3ae1bb85-de0f-4a1e-bc79-6e2030fbb89f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.85551353773512*^9, 3.855514318600357*^9, 
  3.855533819538239*^9, 3.855533888168988*^9, 3.8555792466666217`*^9, 
  3.855593620475418*^9, 3.855750940887575*^9},
 CellLabel->
  "Out[946]//MatrixForm=",ExpressionUUID->"8902c0e5-bd76-4349-9f5e-\
afc32173ffbc"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "2"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SignBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10", ",", "8", ",", "7"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8553477540487995`*^9, 3.8553477675041275`*^9}, {
   3.85535374118112*^9, 3.855353746550172*^9}, {3.855513852852812*^9, 
   3.855513854667745*^9}, {3.8555139052211742`*^9, 3.855513924725144*^9}, 
   3.855514004621559*^9, {3.855514342901729*^9, 3.855514411158174*^9}, {
   3.855514474705863*^9, 3.85551447502669*^9}},
 CellLabel->
  "In[947]:=",ExpressionUUID->"24d0a776-ec7d-41bf-8a54-2c422c9d8848"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
       RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMII", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
       "ArrayFlatten"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
          RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "==", 
         RowBox[{
          RowBox[{"L", "[", "N4VC", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "]"}]}], 
        ",", 
        RowBox[{"LocalColor", "[", "LocalSMColor", "]"}]}], "}"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"LocalSMColor", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}, {3.8553477861998158`*^9, 
  3.8553478381275663`*^9}, {3.8553478913427043`*^9, 3.8553480356008224`*^9}, {
  3.855513714175859*^9, 3.8555137303652763`*^9}, {3.855513772938023*^9, 
  3.8555138011728897`*^9}, {3.85551384749854*^9, 3.855513848039246*^9}, {
  3.85551392691582*^9, 3.8555139633788033`*^9}},
 CellLabel->
  "In[950]:=",ExpressionUUID->"134bf2eb-0472-4a5d-aa16-bda4acf2ec11"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "5"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.855533819599979*^9, 
  3.8555338882355843`*^9, 3.8555792467005987`*^9, 3.855593620511323*^9, 
  3.8557509409344387`*^9},
 CellLabel->
  "During evaluation of \
In[950]:=",ExpressionUUID->"fb955570-4615-43c2-8607-5f3407bac787"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "6"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.855533819599979*^9, 
  3.8555338882355843`*^9, 3.8555792467005987`*^9, 3.855593620511323*^9, 
  3.8557509409344387`*^9},
 CellLabel->
  "During evaluation of \
In[950]:=",ExpressionUUID->"135859f1-0837-47b2-9582-770aeee6e9cf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "7"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.855533819599979*^9, 
  3.8555338882355843`*^9, 3.8555792467005987`*^9, 3.855593620511323*^9, 
  3.8557509409500604`*^9},
 CellLabel->
  "During evaluation of \
In[950]:=",ExpressionUUID->"21559fd5-ed07-4a19-b037-23a089e96333"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "8"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.855533819599979*^9, 
  3.8555338882355843`*^9, 3.8555792467005987`*^9, 3.855593620511323*^9, 
  3.8557509409500604`*^9},
 CellLabel->
  "During evaluation of \
In[950]:=",ExpressionUUID->"11667878-fa97-44d0-9a01-c8f5a63999d2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VC", "]"}], "[", "8", "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.855514029680434*^9, 3.8555140368455133`*^9}, {
  3.855514111262226*^9, 3.8555141113449*^9}, {3.855514492622685*^9, 
  3.855514509691066*^9}},
 CellLabel->
  "In[951]:=",ExpressionUUID->"adaa76d7-49e4-4cf1-b010-ba9a773dc697"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514031935828*^9, 3.855514037756295*^9}, 
   3.8555141168193607`*^9, {3.855514496249384*^9, 3.855514510458263*^9}, 
   3.855533819662684*^9, 3.855533888260697*^9, 3.855579246751091*^9, 
   3.855593620542547*^9, 3.855750940996924*^9},
 CellLabel->
  "Out[951]//MatrixForm=",ExpressionUUID->"f6791cb4-21ea-4d53-afda-\
39988cdecddd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "8", "]"}]], "Input",
 CellChangeTimes->{{3.855514090419438*^9, 3.855514113094274*^9}, {
  3.855514500741658*^9, 3.8555145145471478`*^9}},
 CellLabel->
  "In[952]:=",ExpressionUUID->"b4a26cc1-a2c0-4a48-a624-2d3a7251822a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514087013156*^9, 3.8555141139488*^9}, {
   3.855514501833145*^9, 3.8555145153793077`*^9}, 3.855533819678632*^9, 
   3.855533888301291*^9, 3.855579246784447*^9, 3.8555936205581694`*^9, 
   3.8557509410281672`*^9},
 CellLabel->
  "Out[952]//MatrixForm=",ExpressionUUID->"a85bc527-c0a1-4c00-bd7c-\
f14f87a94065"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"SetNo", ",", "LocalVierNum", ",", "SignBoolean"}], "]"}]], "Input",\

 CellChangeTimes->{{3.855514423975197*^9, 3.8555144513057327`*^9}},
 CellLabel->
  "In[953]:=",ExpressionUUID->"5d564a9c-f1ea-4f87-9122-c5d3e37e7090"]
}, Open  ]],

Cell[CellGroupData[{

Cell["I = 9,10,11,12", "Subsubsection",
 CellChangeTimes->{{3.855508510780941*^9, 3.855508511326792*^9}, {
  3.855514058710753*^9, 3.85551405947834*^9}, {3.855514296207942*^9, 
  3.855514298885296*^9}, {3.855514717051136*^9, 
  3.8555147198828497`*^9}},ExpressionUUID->"9b8da84b-6699-4d6d-b176-\
9d682f47efce"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "1", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.855508550252228*^9, 3.855508575129877*^9}, {
  3.855514309201604*^9, 3.8555143122314577`*^9}},
 CellLabel->
  "In[954]:=",ExpressionUUID->"cb733b08-d0ce-431b-9beb-eb0cfac0d38c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.855513534416711*^9, 3.855514313591571*^9, 
  3.855514733681925*^9, 3.8555338197391357`*^9, 3.855533894525242*^9, 
  3.8555792468294773`*^9, 3.8555936205894117`*^9, 3.855750941075031*^9},
 CellLabel->
  "Out[954]=",ExpressionUUID->"4854b627-2720-4f98-a655-23666862c1c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "9", "]"}]], "Input",
 CellChangeTimes->{{3.855508514252801*^9, 3.855508525786888*^9}, {
  3.855514315676705*^9, 3.8555143174833117`*^9}, {3.855514735886841*^9, 
  3.8555147364162617`*^9}},
 CellLabel->
  "In[955]:=",ExpressionUUID->"9f2d38ec-ee29-49f2-8779-1647f8b91fa7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.85551353773512*^9, 3.855514318600357*^9, 
  3.855514737780739*^9, 3.855533819791766*^9, 3.855533894584939*^9, 
  3.8555792468667345`*^9, 3.8555936206050596`*^9, 3.855750941121895*^9},
 CellLabel->
  "Out[955]//MatrixForm=",ExpressionUUID->"cb18430c-ad22-40f6-9154-\
ccd336635fd1"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "3"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SignBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"8", ",", "5", ",", "10", ",", "7"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8553477540487995`*^9, 3.8553477675041275`*^9}, {
   3.85535374118112*^9, 3.855353746550172*^9}, {3.855513852852812*^9, 
   3.855513854667745*^9}, {3.8555139052211742`*^9, 3.855513924725144*^9}, 
   3.855514004621559*^9, {3.855514342901729*^9, 3.855514411158174*^9}, {
   3.855514474705863*^9, 3.85551447502669*^9}, {3.85551474261007*^9, 
   3.855514815982608*^9}},
 CellLabel->
  "In[956]:=",ExpressionUUID->"f95b5f34-34fb-4969-8d15-5e74a9b58909"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
       RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMII", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
       "ArrayFlatten"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
          RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "==", 
         RowBox[{
          RowBox[{"L", "[", "N4VC", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "]"}]}], 
        ",", 
        RowBox[{"LocalColor", "[", "LocalSMColor", "]"}]}], "}"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"LocalSMColor", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}, {3.8553477861998158`*^9, 
  3.8553478381275663`*^9}, {3.8553478913427043`*^9, 3.8553480356008224`*^9}, {
  3.855513714175859*^9, 3.8555137303652763`*^9}, {3.855513772938023*^9, 
  3.8555138011728897`*^9}, {3.85551384749854*^9, 3.855513848039246*^9}, {
  3.85551392691582*^9, 3.8555139633788033`*^9}},
 CellLabel->
  "In[959]:=",ExpressionUUID->"80c8e95e-5e55-47e9-b8c9-b6d142d074bf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "9"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855533819855996*^9, 3.855533894633849*^9, 
  3.8555792469126325`*^9, 3.855593620636302*^9, 3.8557509411687593`*^9},
 CellLabel->
  "During evaluation of \
In[959]:=",ExpressionUUID->"612bcb3b-c220-4a55-ab9e-9cdc098cc256"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "10"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855533819855996*^9, 3.855533894633849*^9, 
  3.8555792469126325`*^9, 3.855593620636302*^9, 3.8557509411843905`*^9},
 CellLabel->
  "During evaluation of \
In[959]:=",ExpressionUUID->"da86df03-2436-4e58-8f1d-77fe488b1c0d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "11"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855533819855996*^9, 3.855533894633849*^9, 
  3.8555792469126325`*^9, 3.855593620636302*^9, 3.8557509412000017`*^9},
 CellLabel->
  "During evaluation of \
In[959]:=",ExpressionUUID->"000881af-3089-4bdf-9b86-208b91e1e712"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "12"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855533819855996*^9, 3.855533894633849*^9, 
  3.8555792469126325`*^9, 3.855593620636302*^9, 3.8557509412000017`*^9},
 CellLabel->
  "During evaluation of \
In[959]:=",ExpressionUUID->"a3cc1fdd-f91d-4f72-b332-106df22897f0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VC", "]"}], "[", "11", "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.855514029680434*^9, 3.8555140368455133`*^9}, {
  3.855514111262226*^9, 3.8555141113449*^9}, {3.855514492622685*^9, 
  3.855514509691066*^9}, {3.855514938942625*^9, 3.855514955988282*^9}},
 CellLabel->
  "In[960]:=",ExpressionUUID->"368de127-fb9c-46bd-8190-77fc6edd2927"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514031935828*^9, 3.855514037756295*^9}, 
   3.8555141168193607`*^9, {3.855514496249384*^9, 3.855514510458263*^9}, {
   3.855514940156981*^9, 3.855514956314851*^9}, 3.8555338198786592`*^9, 
   3.855533894681758*^9, 3.855579246962289*^9, 3.855593620667518*^9, 
   3.8557509412312436`*^9},
 CellLabel->
  "Out[960]//MatrixForm=",ExpressionUUID->"23bd1be1-f912-4286-83f0-\
b4e01a853ea6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "11", "]"}]], "Input",
 CellChangeTimes->{{3.855514090419438*^9, 3.855514113094274*^9}, {
  3.855514500741658*^9, 3.8555145145471478`*^9}, {3.8555149435479307`*^9, 
  3.85551495862915*^9}},
 CellLabel->
  "In[961]:=",ExpressionUUID->"239b5003-2be9-4765-984b-8a88dadb827a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514087013156*^9, 3.8555141139488*^9}, {
   3.855514501833145*^9, 3.8555145153793077`*^9}, {3.855514944434224*^9, 
   3.855514958887807*^9}, 3.8555338199334307`*^9, 3.85553389469488*^9, 
   3.8555792470003867`*^9, 3.8555936206987867`*^9, 3.8557509412781076`*^9},
 CellLabel->
  "Out[961]//MatrixForm=",ExpressionUUID->"64ec3e1e-2834-4775-b175-\
7d92523108e5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"SetNo", ",", "LocalVierNum", ",", "SignBoolean"}], "]"}]], "Input",\

 CellChangeTimes->{{3.855514423975197*^9, 3.8555144513057327`*^9}},
 CellLabel->
  "In[962]:=",ExpressionUUID->"dadf7d9b-bdbd-430d-9510-4efb8174a453"]
}, Open  ]],

Cell[CellGroupData[{

Cell["I = 13,14,15,16", "Subsubsection",
 CellChangeTimes->{{3.855508510780941*^9, 3.855508511326792*^9}, {
  3.855514058710753*^9, 3.85551405947834*^9}, {3.855514296207942*^9, 
  3.855514298885296*^9}, {3.855514717051136*^9, 3.8555147198828497`*^9}, {
  3.855515096231009*^9, 
  3.855515098811109*^9}},ExpressionUUID->"a95cf19f-2952-4191-9a2d-\
d032400c5f0d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"PrintL", "[", "SMI", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"PrintL", "[", "SMII", "]"}], "[", "1", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.855508550252228*^9, 3.855508575129877*^9}, {
  3.855514309201604*^9, 3.8555143122314577`*^9}},
 CellLabel->
  "In[963]:=",ExpressionUUID->"2fd86863-a259-4967-9340-b01aa13f7501"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.855513534416711*^9, 3.855514313591571*^9, 
  3.855514733681925*^9, 3.855515101353808*^9, 3.8555338199936523`*^9, 
  3.855533901751154*^9, 3.8555792470463095`*^9, 3.85559362071441*^9, 
  3.855750941324973*^9},
 CellLabel->
  "Out[963]=",ExpressionUUID->"cb82eb95-555c-4aab-ad83-22cee4129f04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "13", "]"}]], "Input",
 CellChangeTimes->{{3.855508514252801*^9, 3.855508525786888*^9}, {
  3.855514315676705*^9, 3.8555143174833117`*^9}, {3.855514735886841*^9, 
  3.8555147364162617`*^9}, {3.855515104705757*^9, 3.855515104945661*^9}},
 CellLabel->
  "In[964]:=",ExpressionUUID->"840863bb-ac6a-4c11-959b-7a484e0e84ea"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.85551353773512*^9, 3.855514318600357*^9, 
  3.855514737780739*^9, 3.855515105338358*^9, 3.8555338200078793`*^9, 
  3.8555339018433647`*^9, 3.855579247068296*^9, 3.85559362073003*^9, 
  3.8557509413718357`*^9},
 CellLabel->
  "Out[964]//MatrixForm=",ExpressionUUID->"cb67559a-cea8-413e-9633-\
b8307648b042"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetNo", " ", "=", " ", "4"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "which", " ", "group", " ", "of", " ", "4", " ", "colors", " ", "out", 
      " ", "of", " ", "16"}], ":", " ", 
     RowBox[{
      RowBox[{"set", " ", "1", " ", "is", " ", "1"}], "-", "4"}]}], ",", " ", 
    
    RowBox[{
     RowBox[{"set", " ", "2", " ", "is", " ", "5"}], "-", "8"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "3", " ", "is", " ", "9"}], "-", "12"}], ",", " ", 
    RowBox[{
     RowBox[{"set", " ", "4", " ", "is", " ", "13"}], "-", "16"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalVierNum", " ", "=", " ", "3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SignBoolean", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"10", ",", "8", ",", "5", ",", "7"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8553477540487995`*^9, 3.8553477675041275`*^9}, {
   3.85535374118112*^9, 3.855353746550172*^9}, {3.855513852852812*^9, 
   3.855513854667745*^9}, {3.8555139052211742`*^9, 3.855513924725144*^9}, 
   3.855514004621559*^9, {3.855514342901729*^9, 3.855514411158174*^9}, {
   3.855514474705863*^9, 3.85551447502669*^9}, {3.85551474261007*^9, 
   3.855514815982608*^9}, {3.855515108486937*^9, 3.8555151418357897`*^9}},
 CellLabel->
  "In[965]:=",ExpressionUUID->"a375001b-abb1-45e1-8c72-5ba2a5cab680"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
       RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "1", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "2", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "3", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMI", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}], "+", 
        RowBox[{"Outer", "[", 
         RowBox[{"Times", ",", 
          RowBox[{
           RowBox[{"VierZ", "[", "LocalVierNum", "]"}], "[", "4", "]"}], ",", 
          
          RowBox[{
           RowBox[{"SignMatrix4", "[", 
            RowBox[{"SignBoolean", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "]"}], ".", 
           RowBox[{
            RowBox[{"L", "[", "SMII", "]"}], "[", 
            RowBox[{"[", "LocalSMColor", "]"}], "]"}]}]}], "]"}]}], "//", 
       "ArrayFlatten"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"LTest", "[", "N4VC", "]"}], "[", 
          RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "==", 
         RowBox[{
          RowBox[{"L", "[", "N4VC", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"LocalColor", "[", "LocalSMColor", "]"}], "]"}], "]"}]}], 
        ",", 
        RowBox[{"LocalColor", "[", "LocalSMColor", "]"}]}], "}"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"LocalSMColor", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8553418544538717`*^9, 3.85534186050224*^9}, {
  3.8553429853843355`*^9, 3.8553431230454903`*^9}, {3.8553431963307605`*^9, 
  3.855343200799798*^9}, {3.8553432325096254`*^9, 3.855343265135213*^9}, {
  3.8553454384989557`*^9, 3.855345488366599*^9}, {3.8553458753058047`*^9, 
  3.855345930287608*^9}, {3.855345970275344*^9, 3.8553460253561482`*^9}, {
  3.8553462211958466`*^9, 3.8553462316586113`*^9}, {3.855346357664989*^9, 
  3.855346359625718*^9}, {3.855347551743329*^9, 3.855347584233176*^9}, {
  3.8553476518478193`*^9, 3.855347652073393*^9}, {3.8553477861998158`*^9, 
  3.8553478381275663`*^9}, {3.8553478913427043`*^9, 3.8553480356008224`*^9}, {
  3.855513714175859*^9, 3.8555137303652763`*^9}, {3.855513772938023*^9, 
  3.8555138011728897`*^9}, {3.85551384749854*^9, 3.855513848039246*^9}, {
  3.85551392691582*^9, 3.8555139633788033`*^9}},
 CellLabel->
  "In[968]:=",ExpressionUUID->"bb8e03d0-1909-407b-b28a-ecb2d1544843"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "13"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855515155966029*^9, 3.8555338200689793`*^9, 
  3.8555339018955812`*^9, 3.85557924711755*^9, 3.8555936207612467`*^9, 
  3.855750941426947*^9},
 CellLabel->
  "During evaluation of \
In[968]:=",ExpressionUUID->"5105214a-e0dc-480a-879a-a458146122d5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "14"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855515155966029*^9, 3.8555338200689793`*^9, 
  3.8555339018955812`*^9, 3.85557924711755*^9, 3.8555936207612467`*^9, 
  3.855750941426947*^9},
 CellLabel->
  "During evaluation of \
In[968]:=",ExpressionUUID->"abd248f7-0eb0-4ed9-b686-d72af12e6df8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "15"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855515155966029*^9, 3.8555338200689793`*^9, 
  3.8555339018955812`*^9, 3.85557924711755*^9, 3.8555936207612467`*^9, 
  3.8557509414425344`*^9},
 CellLabel->
  "During evaluation of \
In[968]:=",ExpressionUUID->"4d71285f-8361-484a-b8f3-e0fad9e5f94b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "16"}], "}"}]], "Print",
 CellChangeTimes->{3.855348048451091*^9, 3.855353190376556*^9, 
  3.855508023680485*^9, 3.855508824553398*^9, 3.855513189797501*^9, 
  3.855514017493618*^9, 3.855514488017913*^9, 3.8555148892922707`*^9, 
  3.855514933817285*^9, 3.855515155966029*^9, 3.8555338200689793`*^9, 
  3.8555339018955812`*^9, 3.85557924711755*^9, 3.8555936207612467`*^9, 
  3.8557509414425344`*^9},
 CellLabel->
  "During evaluation of \
In[968]:=",ExpressionUUID->"9969e7c6-4e90-430c-a585-da32fa56f685"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LTest", "[", "N4VC", "]"}], "[", "14", "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.855514029680434*^9, 3.8555140368455133`*^9}, {
  3.855514111262226*^9, 3.8555141113449*^9}, {3.855514492622685*^9, 
  3.855514509691066*^9}, {3.855514938942625*^9, 3.855514955988282*^9}, {
  3.8555151601416473`*^9, 3.855515175297687*^9}},
 CellLabel->
  "In[969]:=",ExpressionUUID->"2f839ef7-980e-46ec-861b-853d6dcb6ce6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514031935828*^9, 3.855514037756295*^9}, 
   3.8555141168193607`*^9, {3.855514496249384*^9, 3.855514510458263*^9}, {
   3.855514940156981*^9, 3.855514956314851*^9}, {3.855515160998651*^9, 
   3.855515175614739*^9}, 3.855533820130835*^9, 3.855533901915053*^9, 
   3.8555792471795197`*^9, 3.855593620808136*^9, 3.8557509414737787`*^9},
 CellLabel->
  "Out[969]//MatrixForm=",ExpressionUUID->"18d86971-7765-46f2-a480-\
df36450fb6ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "N4VC", "]"}], "[", "14", "]"}]], "Input",
 CellChangeTimes->{{3.855514090419438*^9, 3.855514113094274*^9}, {
  3.855514500741658*^9, 3.8555145145471478`*^9}, {3.8555149435479307`*^9, 
  3.85551495862915*^9}, {3.855515163751741*^9, 3.8555151722636003`*^9}},
 CellLabel->
  "In[970]:=",ExpressionUUID->"894d45be-1202-42d8-acfd-40cfec7c4f98"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.855514087013156*^9, 3.8555141139488*^9}, {
   3.855514501833145*^9, 3.8555145153793077`*^9}, {3.855514944434224*^9, 
   3.855514958887807*^9}, {3.8555151644200172`*^9, 3.855515172891732*^9}, 
   3.855533820147395*^9, 3.855533901956421*^9, 3.855579247201615*^9, 
   3.855593620823757*^9, 3.8557509415206685`*^9},
 CellLabel->
  "Out[970]//MatrixForm=",ExpressionUUID->"b021e37f-a994-4dbb-bc4d-\
6e8aa9b9b812"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"SetNo", ",", "LocalVierNum", ",", "SignBoolean"}], "]"}]], "Input",\

 CellChangeTimes->{{3.855514423975197*^9, 3.8555144513057327`*^9}},
 CellLabel->
  "In[971]:=",ExpressionUUID->"7938d37d-12d9-400d-8ec1-0a4661502501"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["VC Summary", "Section",
 CellChangeTimes->{{3.8555787073436356`*^9, 3.855578709031245*^9}, 
   3.855579281400854*^9},ExpressionUUID->"9ce5b4b6-b6f9-4288-8f76-\
e148bd2c5c7f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "N4VC", "]"}]], "Input",
 CellChangeTimes->{{3.8555787117511168`*^9, 3.855578721248975*^9}, {
  3.855578751795943*^9, 3.8555787676408772`*^9}},
 CellLabel->
  "In[972]:=",ExpressionUUID->"500aa9b9-66e1-4559-b7a6-30c9224f969e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = N4VC\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 16\"\>"},
        {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
        {"\<\"GATest = False\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.855579247314973*^9, 3.855593620871929*^9, 
  3.855750941583127*^9},
 CellLabel->
  "Out[972]=",ExpressionUUID->"ca01a9ad-5168-450e-919e-09bae50bc154"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"LTest", "[", "N4VC", "]"}], "[", "ColorIndex", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ColorIndex", ",", "1", ",", "16"}], "}"}]}], "]"}], "==", 
  RowBox[{"L", "[", "N4VC", "]"}]}]], "Input",
 CellChangeTimes->{{3.855578617249914*^9, 3.8555786649545155`*^9}, {
  3.855578769888933*^9, 3.855578773655036*^9}},
 CellLabel->
  "In[973]:=",ExpressionUUID->"fe1738ae-5dfe-4b29-ac0b-efe83aa13ded"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.855579247346216*^9, 3.855593620887556*^9, 
  3.855750941630022*^9},
 CellLabel->
  "Out[973]=",ExpressionUUID->"4bc870c7-177b-4a5b-9b4c-ba9d2ffe64b9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Gadget between N4VT and N4VC", "Section",
 CellChangeTimes->{{3.8553691799460087`*^9, 
  3.855369194882835*^9}},ExpressionUUID->"f0eb7253-584d-4471-bda3-\
361e722a2137"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dmin", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.855369197412537*^9, 3.855369202657053*^9}, {
  3.855369262315802*^9, 3.8553692634645033`*^9}},
 CellLabel->
  "In[974]:=",ExpressionUUID->"0a9263ca-1c65-4b89-af3c-087a9c7cb4a5"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.8553692030926723`*^9, 3.8553692640903263`*^9, 
  3.8555091428987427`*^9, 3.855513430892951*^9, 3.8555158803685417`*^9, 
  3.855533909225317*^9, 3.8555792473774586`*^9, 3.8555936209031997`*^9, 
  3.8557509416612635`*^9},
 CellLabel->
  "Out[974]=",ExpressionUUID->"e4520d8d-5f18-4fd6-ab7f-1a7679eb490f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dmin", "[", "16", "]"}]], "Input",
 CellChangeTimes->{{3.855369270225011*^9, 3.855369271595579*^9}},
 CellLabel->
  "In[975]:=",ExpressionUUID->"a142cff1-df43-4e99-975e-3e926108572e"],

Cell[BoxData["128"], "Output",
 CellChangeTimes->{3.855369272239258*^9, 3.855509142911724*^9, 
  3.855513430951906*^9, 3.855515880469948*^9, 3.855533909309945*^9, 
  3.855579247442045*^9, 3.855593620918825*^9, 3.8557509416924753`*^9},
 CellLabel->
  "Out[975]=",ExpressionUUID->"4fcdf488-cf2e-4f91-9464-8500e10884be"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"N4VT", ",", "N4VC"}], "]"}]], "Input",
 CellChangeTimes->{{3.855369388606948*^9, 3.85536939390058*^9}},
 CellLabel->
  "In[976]:=",ExpressionUUID->"9e4a9c12-c737-46a7-a7b7-03488565cd35"],

Cell[BoxData[
 FractionBox["11", "240"]], "Output",
 CellChangeTimes->{3.855369414547443*^9, 3.855509142950946*^9, 
  3.855513431003227*^9, 3.8555158805189867`*^9, 3.855533909364332*^9, 
  3.8555792474894133`*^9, 3.8555936209656944`*^9, 3.855750941739339*^9},
 CellLabel->
  "Out[976]=",ExpressionUUID->"ef767e07-dad3-4c28-9e3a-e2eca3128b8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"N4VT", ",", "N4VT"}], "]"}]], "Input",
 CellChangeTimes->{{3.855369423888534*^9, 3.8553694280136547`*^9}},
 CellLabel->
  "In[977]:=",ExpressionUUID->"ffebdbc7-6ed8-4442-91bd-a1d96bdf4d04"],

Cell[BoxData[
 FractionBox["43", "480"]], "Output",
 CellChangeTimes->{3.855369428860374*^9, 3.855509142992041*^9, 
  3.8555134310524483`*^9, 3.855515880568787*^9, 3.855533909415358*^9, 
  3.8555792475342226`*^9, 3.8555936210125484`*^9, 3.8557509417862034`*^9},
 CellLabel->
  "Out[977]=",ExpressionUUID->"6783789b-d10e-4ea5-ac7e-6904f7fde35d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"N4VC", ",", "N4VC"}], "]"}]], "Input",
 CellChangeTimes->{{3.855369445108261*^9, 3.855369447497967*^9}},
 CellLabel->
  "In[978]:=",ExpressionUUID->"87dedd78-8308-4b4b-9a88-fc4504c5bf35"],

Cell[BoxData[
 FractionBox["1", "10"]], "Output",
 CellChangeTimes->{3.8553694482509193`*^9, 3.855509143039756*^9, 
  3.855513431101161*^9, 3.8555158806181173`*^9, 3.855533909462335*^9, 
  3.855579247577098*^9, 3.8555936210497785`*^9, 3.85575094183307*^9},
 CellLabel->
  "Out[978]=",ExpressionUUID->"10fcaa18-af5d-4cc5-99c1-f6df1b23a369"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"thetaRadians", " ", "=", " ", 
  RowBox[{"ArcCos", "[", 
   RowBox[{
    RowBox[{"Gadget", "[", 
     RowBox[{"N4VT", ",", "N4VC"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"Gadget", "[", 
        RowBox[{"N4VC", ",", "N4VC"}], "]"}], "]"}], "*", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"Gadget", "[", 
        RowBox[{"N4VT", ",", "N4VT"}], "]"}], "]"}]}], ")"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.855370029199988*^9, 3.855370137290945*^9}, {
  3.855370188614707*^9, 3.855370225505371*^9}},
 CellLabel->
  "In[979]:=",ExpressionUUID->"d8bca3cd-0e9a-48b1-865e-b824a8c7f5f2"],

Cell[BoxData[
 RowBox[{"ArcCos", "[", 
  FractionBox["11", 
   RowBox[{"2", " ", 
    SqrtBox["129"]}]], "]"}]], "Output",
 CellChangeTimes->{{3.85537011790408*^9, 3.855370138092704*^9}, {
   3.855370212752982*^9, 3.855370226172164*^9}, 3.855509143127501*^9, 
   3.855513431187579*^9, 3.855515880709196*^9, 3.85553390954757*^9, 
   3.8555792476815014`*^9, 3.8555936211238823`*^9, 3.855750941926797*^9},
 CellLabel->
  "Out[979]=",ExpressionUUID->"7f5db0d9-5189-40a5-9271-1a24a8c97401"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ThetaDegrees", " ", "=", " ", 
  RowBox[{
   RowBox[{"thetaRadians", "*", 
    FractionBox["180", "\[Pi]"]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.855370234966531*^9, 3.855370259288794*^9}},
 CellLabel->
  "In[980]:=",ExpressionUUID->"89f3e213-9ec6-4216-9215-f975e2511f5e"],

Cell[BoxData["61.03678494106008`"], "Output",
 CellChangeTimes->{{3.8553702476105757`*^9, 3.855370260288183*^9}, 
   3.855509143137677*^9, 3.855513431197157*^9, 3.8555158807210207`*^9, 
   3.8555339095578623`*^9, 3.855579247715414*^9, 3.8555936211395044`*^9, 
   3.855750941958082*^9},
 CellLabel->
  "Out[980]=",ExpressionUUID->"d667e528-63b8-4039-ab9c-6c5515f05796"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["so(8) subalgebras for VT and VC", "Section",
 CellChangeTimes->{{3.855588517763444*^9, 
  3.8555885278092823`*^9}},ExpressionUUID->"431713e9-0d6e-4209-b0cb-\
4aa6ce13497d"],

Cell[CellGroupData[{

Cell["\<\
Singular for V-tilde corresponding to the D,D-tilde cross terms (I = 1,8 with \
J = 9,16 and antisymmetric in IJ of course)\
\>", "Subsection",
 CellChangeTimes->{
  3.845919933697973*^9, {3.845925440551242*^9, 3.845925455109646*^9}, {
   3.8555886261755524`*^9, 
   3.855588630811305*^9}},ExpressionUUID->"9104f70b-3654-4c01-bac2-\
c341c53b62fc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SingularList", "[", "N4VT", "]"}], " ", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SingularList", "[", "N4VC", "]"}], "=", 
   RowBox[{"{", "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.845924999817732*^9, 3.84592500400531*^9}, {
  3.845925049955147*^9, 3.8459251682890415`*^9}, {3.845925208687416*^9, 
  3.8459252122813797`*^9}, {3.8555897319266734`*^9, 3.8555897375202293`*^9}, {
  3.8555897756794405`*^9, 3.8555898271156073`*^9}},
 CellLabel->
  "In[981]:=",ExpressionUUID->"32b30590-59ae-4728-a97e-b18c800721c0"],

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Det", "[", 
       RowBox[{
        RowBox[{"Vtilde", "[", "N4VT", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"II", ",", "JJ"}], "]"}], "]"}], "]"}], "==", "0"}], ",", 
     " ", 
     RowBox[{
      RowBox[{"SingularList", "[", "N4VT", "]"}], " ", "=", " ", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"SingularList", "[", "N4VT", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"II", ",", "JJ"}], "}"}], "}"}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"II", ",", "1", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"JJ", ",", 
     RowBox[{"II", "+", "1"}], ",", "16"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Det", "[", 
       RowBox[{
        RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"II", ",", "JJ"}], "]"}], "]"}], "]"}], "==", "0"}], ",", 
     " ", 
     RowBox[{
      RowBox[{"SingularList", "[", "N4VC", "]"}], " ", "=", " ", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"SingularList", "[", "N4VC", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"II", ",", "JJ"}], "}"}], "}"}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"II", ",", "1", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"JJ", ",", 
     RowBox[{"II", "+", "1"}], ",", "16"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8459250202253513`*^9, 3.845925044970185*^9}, {
  3.8459252458753667`*^9, 3.8459252482798257`*^9}, {3.8555885541436615`*^9, 
  3.855588557676035*^9}, {3.855589808623003*^9, 3.8555898425491886`*^9}},
 CellLabel->
  "In[983]:=",ExpressionUUID->"4d93e409-b8af-41bb-8bf8-45c333c2c356"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SingularList", "[", "N4VT", "]"}]], "Input",
 CellLabel->
  "In[985]:=",ExpressionUUID->"d2d258d6-a8d0-4fc2-b98f-f0551a7480e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8555899390885735`*^9, 3.8555936212019897`*^9, 
  3.8557509420660906`*^9},
 CellLabel->
  "Out[985]=",ExpressionUUID->"96ec14a1-915d-46c8-ba40-0a61a7dc09b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SingularList", "[", "N4VC", "]"}]], "Input",
 CellLabel->
  "In[986]:=",ExpressionUUID->"774cca68-3852-4b1a-b443-8c4974d995b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "15"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.855589953980053*^9, 3.8555936212176104`*^9, 
  3.855750942112981*^9},
 CellLabel->
  "Out[986]=",ExpressionUUID->"f92a3357-a15a-4a72-bb35-8bea633a8b22"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Find algebra for non-singular, 8 color sub-holoraumy:\nVtilde[N4VTN8a] := \
16 x 16 matrices for the first 8 colors (I,J = 1,8)\nVtilde[N4VTN8b] := 16 x \
16 matrices for the second 8 colors (I,J = 9,16)\nEach satisfy so(8): ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox["M", "IJ"], ",", 
      SubscriptBox["M", "KL"]}], "]"}], " ", "=", " ", 
    RowBox[{"i", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"I", "[", "L"}]], 
        SubscriptBox["M", 
         RowBox[{
          RowBox[{"K", "]"}], "J"}]]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"J", "[", "L"}]], 
        SubscriptBox["M", 
         RowBox[{
          RowBox[{"K", "]"}], "I"}]]}]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"5e851f29-7c9e-49c8-a536-467bd1381a5c"],
 "  \nwith M = 1/2 Vtilde\nso ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox[
       OverscriptBox["V", "~"], "IJ"], ",", 
      SubscriptBox[
       OverscriptBox["V", "~"], "KL"]}], "]"}], " ", "=", 
    RowBox[{"2", " ", "i", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"I", "[", "L"}]], 
        SubscriptBox[
         OverscriptBox["V", "~"], 
         RowBox[{
          RowBox[{"K", "]"}], "J"}]]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"J", "[", "L"}]], 
        SubscriptBox[
         OverscriptBox["V", "~"], 
         RowBox[{
          RowBox[{"K", "]"}], "I"}]]}]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"bae80882-92f3-4ecb-9f01-67772858582f"],
 "  "
}], "Subsection",
 CellChangeTimes->{{3.845859466758349*^9, 3.8458594764100533`*^9}, {
  3.84586015330908*^9, 3.8458601962128887`*^9}, {3.845860953905871*^9, 
  3.845860974424992*^9}, {3.845861011174539*^9, 3.845861012770398*^9}, {
  3.8458617233295813`*^9, 3.845861776879348*^9}, {3.8459253902013073`*^9, 
  3.84592541107865*^9}, {3.845925483389327*^9, 3.8459255018701887`*^9}, {
  3.8555886950918045`*^9, 
  3.8555887075233154`*^9}},ExpressionUUID->"06f93735-4446-48ee-adfc-\
417d139ca9e6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VTN8a", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VT", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "1", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "1", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VTN8b", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VT", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "9", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "9", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.845859935680614*^9, 3.845859960835868*^9}, {
  3.8458600210249853`*^9, 3.8458601158809137`*^9}, {3.845860211801947*^9, 
  3.845860224917638*^9}, {3.855588687051448*^9, 3.8555887184851933`*^9}},
 CellLabel->
  "In[987]:=",ExpressionUUID->"d6d1d588-022c-4675-bbe3-cd94ded74a29"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VTN8a", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860324450726*^9, 3.8458603321514807`*^9}, {
  3.855588739231258*^9, 3.855588740819662*^9}},
 CellLabel->
  "In[989]:=",ExpressionUUID->"dccfe57f-bf93-4f88-b35b-3f2880502eb2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.845860358351345*^9, 3.8459033845481586`*^9, 3.8459040244481583`*^9, 
   3.8459191375652094`*^9, {3.8459197402100997`*^9, 3.8459197531308384`*^9}, 
   3.8459252936779103`*^9, 3.8459255106886168`*^9, 3.8460066995275264`*^9, 
   3.8461000283378057`*^9, 3.8474705904795456`*^9, 3.8517007802431345`*^9, 
   3.853975590794084*^9, 3.8549908282391987`*^9, 3.855000039350497*^9, 
   3.8555887428729095`*^9, 3.855593621264448*^9, 3.855750942175441*^9},
 CellLabel->
  "Out[989]=",ExpressionUUID->"71f753fb-5d44-458b-8bf5-6cc9ace75c29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VTN8b", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860366706079*^9, 3.845860366917389*^9}, {
  3.855588747848388*^9, 3.855588749492341*^9}},
 CellLabel->
  "In[990]:=",ExpressionUUID->"db04cbb9-5364-4d5e-82c0-7918a4fc56ea"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.84586036793445*^9, 3.845903384597906*^9, 3.845904024492345*^9, 
   3.845919137612107*^9, {3.84591974030383*^9, 3.845919753227068*^9}, 
   3.845925293756023*^9, 3.8459255107823486`*^9, 3.8460066995699244`*^9, 
   3.8461000284003305`*^9, 3.847470590542036*^9, 3.851700780305621*^9, 
   3.8539755908308353`*^9, 3.854990830067071*^9, 3.8550000393973284`*^9, 
   3.855588752602594*^9, 3.8555936212957225`*^9, 3.855750942206713*^9},
 CellLabel->
  "Out[990]=",ExpressionUUID->"e78da291-419c-49f1-871d-d9d872abd95b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VTN8a", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860537280756*^9, 3.845860548786725*^9}, {
  3.8458608960108337`*^9, 3.845860898570567*^9}, {3.8555887587778187`*^9, 
  3.8555887602486925`*^9}},
 CellLabel->
  "In[991]:=",ExpressionUUID->"bab488de-6195-4391-b04f-dd7f7f2a769f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.845860564349985*^9, 3.845860903734024*^9, 3.84590338694079*^9, 
   3.8459040268713493`*^9, 3.8459191399503803`*^9, {3.8459197415457926`*^9, 
   3.845919755484135*^9}, 3.8459252960837784`*^9, 3.8459255130858364`*^9, 
   3.846006701511377*^9, 3.846100030625263*^9, 3.847470592764282*^9, 
   3.851700782556419*^9, 3.853975593219262*^9, 3.8549908340657597`*^9, 
   3.855000041785279*^9, 3.8555887661870995`*^9, 3.8555936234792414`*^9, 
   3.8557509444848776`*^9},
 CellLabel->
  "Out[991]=",ExpressionUUID->"5316aa95-3bab-4b31-baf1-8f9a4166c2ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VTN8b", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860574431657*^9, 3.845860575039948*^9}, {
  3.8458609071332073`*^9, 3.845860907508608*^9}, {3.8555887675325336`*^9, 
  3.855588769189313*^9}},
 CellLabel->
  "In[992]:=",ExpressionUUID->"3419cb1f-5dcd-45f2-bf00-f8d5a5ba07c1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8458605787628317`*^9, 3.845860911439046*^9, 3.845903389414948*^9, 
   3.845904029335718*^9, 3.8459191422158604`*^9, {3.845919742762141*^9, 
   3.845919757809945*^9}, 3.8459252984919777`*^9, 3.8459255153989935`*^9, 
   3.8460067035073338`*^9, 3.846100032858345*^9, 3.847470595063835*^9, 
   3.851700784884385*^9, 3.853975595664672*^9, 3.854990836380715*^9, 
   3.8550000441216984`*^9, 3.855588773577583*^9, 3.8555936258592863`*^9, 
   3.8557509467922845`*^9},
 CellLabel->
  "Out[992]=",ExpressionUUID->"8de2a024-c795-459e-933b-e5fc88a7ec6a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Check algebra 8 color subsets of N4VC with 16 x 16 matrices\n\
Vtilde[N4VCN8a] := 16 x 16 matrices for the first 8 colors (I,J = 1,8)\n\
Vtilde[N4VCN8b] := 16 x 16 matrices for the second 8 colors (I,J = 9,16)\n\
Vtilde[N4VCN8c] := 16 x 16 matrices for  (I,J = 5,6,7,8,13,14,15,16)\n\
Vtilde[N4VCN8c] := 16 x 16 matrices for  (I,J = 1,2,3,4,13,14,15,16)\nNone \
satisfy so(8): ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox["M", "IJ"], ",", 
      SubscriptBox["M", "KL"]}], "]"}], " ", "=", " ", 
    RowBox[{"i", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"I", "[", "L"}]], 
        SubscriptBox["M", 
         RowBox[{
          RowBox[{"K", "]"}], "J"}]]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"J", "[", "L"}]], 
        SubscriptBox["M", 
         RowBox[{
          RowBox[{"K", "]"}], "I"}]]}]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"6cc0f833-c753-4147-980d-7914ec7dbfa3"],
 "  \nwith M = 1/2 Vtilde\nso ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox[
       OverscriptBox["V", "~"], "IJ"], ",", 
      SubscriptBox[
       OverscriptBox["V", "~"], "KL"]}], "]"}], " ", "=", 
    RowBox[{"2", " ", "i", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"I", "[", "L"}]], 
        SubscriptBox[
         OverscriptBox["V", "~"], 
         RowBox[{
          RowBox[{"K", "]"}], "J"}]]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"J", "[", "L"}]], 
        SubscriptBox[
         OverscriptBox["V", "~"], 
         RowBox[{
          RowBox[{"K", "]"}], "I"}]]}]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"ad2e6d16-7113-4ca2-b1ca-26468eadbaff"],
 "  "
}], "Subsection",
 CellChangeTimes->{{3.845859466758349*^9, 3.8458594764100533`*^9}, {
  3.84586015330908*^9, 3.8458601962128887`*^9}, {3.845860953905871*^9, 
  3.845860974424992*^9}, {3.845861011174539*^9, 3.845861012770398*^9}, {
  3.8458617233295813`*^9, 3.845861776879348*^9}, {3.8459253902013073`*^9, 
  3.84592541107865*^9}, {3.845925483389327*^9, 3.8459255018701887`*^9}, {
  3.8555886950918045`*^9, 3.8555887075233154`*^9}, {3.8555901087399936`*^9, 
  3.855590111733494*^9}, {3.8555905822790403`*^9, 3.8555906172686105`*^9}, {
  3.8555911347050714`*^9, 
  3.855591169543624*^9}},ExpressionUUID->"8bbafb62-a4b1-4e50-9f52-\
36621e107bf5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VCN8a", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "1", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "1", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VCN8b", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "9", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "9", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VCN8c", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", 
       RowBox[{"{", 
        RowBox[{
        "5", ",", "6", ",", "7", ",", "8", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", 
       RowBox[{"{", 
        RowBox[{
        "5", ",", "6", ",", "7", ",", "8", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VCN8d", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "1", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.845859935680614*^9, 3.845859960835868*^9}, {
  3.8458600210249853`*^9, 3.8458601158809137`*^9}, {3.845860211801947*^9, 
  3.845860224917638*^9}, {3.855588687051448*^9, 3.8555887184851933`*^9}, {
  3.855590115810831*^9, 3.8555901296120343`*^9}, {3.855590189492093*^9, 
  3.8555902543791976`*^9}},
 CellLabel->
  "In[993]:=",ExpressionUUID->"9dfbe6e6-4747-4e7e-a91c-c4f36c737a62"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VCN8a", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860324450726*^9, 3.8458603321514807`*^9}, {
  3.855588739231258*^9, 3.855588740819662*^9}, {3.8555901391060677`*^9, 
  3.855590139825178*^9}},
 CellLabel->
  "In[997]:=",ExpressionUUID->"ca570fca-a417-4be0-9512-202d59f15908"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.845860358351345*^9, 3.8459033845481586`*^9, 3.8459040244481583`*^9, 
   3.8459191375652094`*^9, {3.8459197402100997`*^9, 3.8459197531308384`*^9}, 
   3.8459252936779103`*^9, 3.8459255106886168`*^9, 3.8460066995275264`*^9, 
   3.8461000283378057`*^9, 3.8474705904795456`*^9, 3.8517007802431345`*^9, 
   3.853975590794084*^9, 3.8549908282391987`*^9, 3.855000039350497*^9, 
   3.8555887428729095`*^9, 3.8555901422632947`*^9, 3.855593626007593*^9, 
   3.855750946948496*^9},
 CellLabel->
  "Out[997]=",ExpressionUUID->"6fccb17e-87f3-4037-b124-660c8bd68f78"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VCN8b", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860366706079*^9, 3.845860366917389*^9}, {
  3.855588747848388*^9, 3.855588749492341*^9}, {3.8555901454878674`*^9, 
  3.8555901462065*^9}},
 CellLabel->
  "In[998]:=",ExpressionUUID->"d1c6102d-9408-40e7-a5cb-bfcd35ab20be"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.84586036793445*^9, 3.845903384597906*^9, 3.845904024492345*^9, 
   3.845919137612107*^9, {3.84591974030383*^9, 3.845919753227068*^9}, 
   3.845925293756023*^9, 3.8459255107823486`*^9, 3.8460066995699244`*^9, 
   3.8461000284003305`*^9, 3.847470590542036*^9, 3.851700780305621*^9, 
   3.8539755908308353`*^9, 3.854990830067071*^9, 3.8550000393973284`*^9, 
   3.855588752602594*^9, 3.8555901496456413`*^9, 3.8555936260494547`*^9, 
   3.8557509469797416`*^9},
 CellLabel->
  "Out[998]=",ExpressionUUID->"c7d85409-a597-436e-99d8-dfd7c4f181f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VCN8c", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860366706079*^9, 3.845860366917389*^9}, {
  3.855588747848388*^9, 3.855588749492341*^9}, {3.8555901454878674`*^9, 
  3.8555901462065*^9}, {3.8555904024290333`*^9, 3.8555904025540023`*^9}},
 CellLabel->
  "In[999]:=",ExpressionUUID->"e8e27a78-c770-4d82-97fd-4381b47d46d1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.84586036793445*^9, 3.845903384597906*^9, 3.845904024492345*^9, 
   3.845919137612107*^9, {3.84591974030383*^9, 3.845919753227068*^9}, 
   3.845925293756023*^9, 3.8459255107823486`*^9, 3.8460066995699244`*^9, 
   3.8461000284003305`*^9, 3.847470590542036*^9, 3.851700780305621*^9, 
   3.8539755908308353`*^9, 3.854990830067071*^9, 3.8550000393973284`*^9, 
   3.855588752602594*^9, 3.8555901496456413`*^9, 3.8555904033398066`*^9, 
   3.855593626067432*^9, 3.855750947011013*^9},
 CellLabel->
  "Out[999]=",ExpressionUUID->"ae451785-3426-43db-a950-1d5d798de244"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VCN8d", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860366706079*^9, 3.845860366917389*^9}, {
  3.855588747848388*^9, 3.855588749492341*^9}, {3.8555901454878674`*^9, 
  3.8555901462065*^9}, {3.8555904067046933`*^9, 3.8555904068452854`*^9}},
 CellLabel->
  "In[1000]:=",ExpressionUUID->"717dcb10-606f-4141-b0f9-a28eb6152470"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.84586036793445*^9, 3.845903384597906*^9, 3.845904024492345*^9, 
   3.845919137612107*^9, {3.84591974030383*^9, 3.845919753227068*^9}, 
   3.845925293756023*^9, 3.8459255107823486`*^9, 3.8460066995699244`*^9, 
   3.8461000284003305`*^9, 3.847470590542036*^9, 3.851700780305621*^9, 
   3.8539755908308353`*^9, 3.854990830067071*^9, 3.8550000393973284`*^9, 
   3.855588752602594*^9, 3.8555901496456413`*^9, 3.855590407188842*^9, 
   3.855593626089695*^9, 3.855750947042223*^9},
 CellLabel->
  "Out[1000]=",ExpressionUUID->"7bea11e5-87f1-47ff-8108-5d8a2e22a996"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VCN8a", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860537280756*^9, 3.845860548786725*^9}, {
  3.8458608960108337`*^9, 3.845860898570567*^9}, {3.8555887587778187`*^9, 
  3.8555887602486925`*^9}, {3.8555901528106456`*^9, 3.855590153781578*^9}},
 CellLabel->
  "In[1001]:=",ExpressionUUID->"ef3aabb2-19eb-4e05-9cc0-f8d720f88bce"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.845860564349985*^9, 3.845860903734024*^9, 3.84590338694079*^9, 
   3.8459040268713493`*^9, 3.8459191399503803`*^9, {3.8459197415457926`*^9, 
   3.845919755484135*^9}, 3.8459252960837784`*^9, 3.8459255130858364`*^9, 
   3.846006701511377*^9, 3.846100030625263*^9, 3.847470592764282*^9, 
   3.851700782556419*^9, 3.853975593219262*^9, 3.8549908340657597`*^9, 
   3.855000041785279*^9, 3.8555887661870995`*^9, 3.855590161738455*^9, 
   3.8555936285422215`*^9, 3.855750949317954*^9},
 CellLabel->
  "Out[1001]=",ExpressionUUID->"dccb2419-1783-4d9e-82d7-79869decfb44"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VCN8b", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860574431657*^9, 3.845860575039948*^9}, {
  3.8458609071332073`*^9, 3.845860907508608*^9}, {3.8555887675325336`*^9, 
  3.855588769189313*^9}, {3.855590163007498*^9, 3.855590163843738*^9}},
 CellLabel->
  "In[1002]:=",ExpressionUUID->"a54c551a-e1b9-4693-aa30-5d21c18d1f08"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.8458605787628317`*^9, 3.845860911439046*^9, 3.845903389414948*^9, 
   3.845904029335718*^9, 3.8459191422158604`*^9, {3.845919742762141*^9, 
   3.845919757809945*^9}, 3.8459252984919777`*^9, 3.8459255153989935`*^9, 
   3.8460067035073338`*^9, 3.846100032858345*^9, 3.847470595063835*^9, 
   3.851700784884385*^9, 3.853975595664672*^9, 3.854990836380715*^9, 
   3.8550000441216984`*^9, 3.855588773577583*^9, 3.8555901688834944`*^9, 
   3.85559363107847*^9, 3.8557509515632915`*^9},
 CellLabel->
  "Out[1002]=",ExpressionUUID->"c7806a67-3b22-43a8-9081-7789feeeecb9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VCN8c", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860537280756*^9, 3.845860548786725*^9}, {
  3.8458608960108337`*^9, 3.845860898570567*^9}, {3.8555887587778187`*^9, 
  3.8555887602486925`*^9}, {3.8555901528106456`*^9, 3.855590153781578*^9}, {
  3.8555904153172936`*^9, 3.8555904154423747`*^9}},
 CellLabel->
  "In[1003]:=",ExpressionUUID->"8cf8183c-8d2d-4d25-9b32-18fd966a1d88"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.845860564349985*^9, 3.845860903734024*^9, 3.84590338694079*^9, 
   3.8459040268713493`*^9, 3.8459191399503803`*^9, {3.8459197415457926`*^9, 
   3.845919755484135*^9}, 3.8459252960837784`*^9, 3.8459255130858364`*^9, 
   3.846006701511377*^9, 3.846100030625263*^9, 3.847470592764282*^9, 
   3.851700782556419*^9, 3.853975593219262*^9, 3.8549908340657597`*^9, 
   3.855000041785279*^9, 3.8555887661870995`*^9, 3.855590161738455*^9, 
   3.855590418185567*^9, 3.8555936333226595`*^9, 3.8557509538302917`*^9},
 CellLabel->
  "Out[1003]=",ExpressionUUID->"ea5256ed-dd2a-4e82-9006-40df7eb29714"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VCN8d", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860574431657*^9, 3.845860575039948*^9}, {
  3.8458609071332073`*^9, 3.845860907508608*^9}, {3.8555887675325336`*^9, 
  3.855588769189313*^9}, {3.855590163007498*^9, 3.855590163843738*^9}, {
  3.855590419420519*^9, 3.8555904194517937`*^9}},
 CellLabel->
  "In[1004]:=",ExpressionUUID->"df7c9ddb-2a31-457f-ad6a-a09ae9f79163"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.8458605787628317`*^9, 3.845860911439046*^9, 3.845903389414948*^9, 
   3.845904029335718*^9, 3.8459191422158604`*^9, {3.845919742762141*^9, 
   3.845919757809945*^9}, 3.8459252984919777`*^9, 3.8459255153989935`*^9, 
   3.8460067035073338`*^9, 3.846100032858345*^9, 3.847470595063835*^9, 
   3.851700784884385*^9, 3.853975595664672*^9, 3.854990836380715*^9, 
   3.8550000441216984`*^9, 3.855588773577583*^9, 3.8555901688834944`*^9, 
   3.855590423795436*^9, 3.8555936355118723`*^9, 3.855750956331287*^9},
 CellLabel->
  "Out[1004]=",ExpressionUUID->"cfb60c43-a576-4ec3-8328-ddf9d85919f0"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Check algebra 8 color subsets of N4VC with 8 x 8 matrices\n\
Vtilde[N4VCN8d8a] := 8 x 8 matrices for the set of colors I,J= \
1,2,3,4,5,6,7,8, and fields  khat, lhat = 9,10,11,12,13,14,15,16\n\
Vtilde[N4VCN8d8b] := 8 x 8 matrices for the set of colors I,J= \
1,2,3,4,9,10,11,12, and fields  khat, lhat = 1,2,3,4,13,14,15,16\n\
Vtilde[N4VCN8d8c] := 8 x 8 matrices for the set of colors I,J= \
1,2,3,4,13,14,15,16, and fields  khat, lhat = 5,6,7,8,13,14,15,16\nAll \
satisfy so(8): ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox["M", "IJ"], ",", 
      SubscriptBox["M", "KL"]}], "]"}], " ", "=", " ", 
    RowBox[{"i", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"I", "[", "L"}]], 
        SubscriptBox["M", 
         RowBox[{
          RowBox[{"K", "]"}], "J"}]]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"J", "[", "L"}]], 
        SubscriptBox["M", 
         RowBox[{
          RowBox[{"K", "]"}], "I"}]]}]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"9f381eb5-1fac-4699-8fc3-e3b83c8fb251"],
 "  \nwith M = 1/2 Vtilde\nso ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox[
       OverscriptBox["V", "~"], "IJ"], ",", 
      SubscriptBox[
       OverscriptBox["V", "~"], "KL"]}], "]"}], " ", "=", 
    RowBox[{"2", " ", "i", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"I", "[", "L"}]], 
        SubscriptBox[
         OverscriptBox["V", "~"], 
         RowBox[{
          RowBox[{"K", "]"}], "J"}]]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", 
         RowBox[{"J", "[", "L"}]], 
        SubscriptBox[
         OverscriptBox["V", "~"], 
         RowBox[{
          RowBox[{"K", "]"}], "I"}]]}]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"7d45af35-6b13-47cb-8150-797d0d6c7b24"],
 "  \nNot surprising as these all are images of 4D, N=2 8x8 vector-chiral \
systems"
}], "Subsection",
 CellChangeTimes->{{3.845859466758349*^9, 3.8458594764100533`*^9}, {
  3.84586015330908*^9, 3.8458601962128887`*^9}, {3.845860953905871*^9, 
  3.845860974424992*^9}, {3.845861011174539*^9, 3.845861012770398*^9}, {
  3.8458617233295813`*^9, 3.845861776879348*^9}, {3.8459253902013073`*^9, 
  3.84592541107865*^9}, {3.845925483389327*^9, 3.8459255018701887`*^9}, {
  3.8555886950918045`*^9, 3.8555887075233154`*^9}, {3.8555901087399936`*^9, 
  3.855590111733494*^9}, {3.8555905822790403`*^9, 3.8555906172686105`*^9}, {
  3.85559066973127*^9, 3.8555906965606203`*^9}, {3.855590777654381*^9, 
  3.855590848129858*^9}, {3.8555908965167413`*^9, 3.8555909081435337`*^9}, {
  3.8555909516096935`*^9, 3.8555911181935663`*^9}, {3.8555911772788153`*^9, 
  3.8555911842926383`*^9}, {3.855591349301117*^9, 3.8555913560550165`*^9}, {
  3.855591485480723*^9, 
  3.855591536288121*^9}},ExpressionUUID->"e624d4b0-c986-48d7-9b21-\
1e0f53042b9e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VCN8d8a", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", "1", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", "1", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", "9", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", "9", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VCN8d8b", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "9", ",", "10", ",", "11", 
         ",", "12"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "9", ",", "10", ",", "11", 
         ",", "12"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "N4VCN8d8c", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Vtilde", "[", "N4VC", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"II", ",", "JJ", ",", "khat", ",", "lhat"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"II", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"JJ", ",", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "3", ",", "4", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"khat", ",", 
       RowBox[{"{", 
        RowBox[{
        "5", ",", "6", ",", "7", ",", "8", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lhat", ",", 
       RowBox[{"{", 
        RowBox[{
        "5", ",", "6", ",", "7", ",", "8", ",", "13", ",", "14", ",", "15", 
         ",", "16"}], "}"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.845859935680614*^9, 3.845859960835868*^9}, {
   3.8458600210249853`*^9, 3.8458601158809137`*^9}, {3.845860211801947*^9, 
   3.845860224917638*^9}, {3.855588687051448*^9, 3.8555887184851933`*^9}, {
   3.855590115810831*^9, 3.8555901296120343`*^9}, {3.855590189492093*^9, 
   3.8555902543791976`*^9}, {3.8555912723873672`*^9, 3.85559133365944*^9}, 
   3.855591366938484*^9, {3.8555914013731575`*^9, 3.8555914319697495`*^9}},
 CellLabel->
  "In[1005]:=",ExpressionUUID->"f3f25f27-3df4-4833-bdde-4c495b162baa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VCN8d8a", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860324450726*^9, 3.8458603321514807`*^9}, {
  3.855588739231258*^9, 3.855588740819662*^9}, {3.8555901391060677`*^9, 
  3.855590139825178*^9}, {3.8555914522064753`*^9, 3.855591452550025*^9}},
 CellLabel->
  "In[1008]:=",ExpressionUUID->"bbff0705-915c-41be-a4a8-06a48e9d85a6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.845860358351345*^9, 3.8459033845481586`*^9, 3.8459040244481583`*^9, 
   3.8459191375652094`*^9, {3.8459197402100997`*^9, 3.8459197531308384`*^9}, 
   3.8459252936779103`*^9, 3.8459255106886168`*^9, 3.8460066995275264`*^9, 
   3.8461000283378057`*^9, 3.8474705904795456`*^9, 3.8517007802431345`*^9, 
   3.853975590794084*^9, 3.8549908282391987`*^9, 3.855000039350497*^9, 
   3.8555887428729095`*^9, 3.8555901422632947`*^9, 3.8555914547333975`*^9, 
   3.855593635574358*^9, 3.8557509564250183`*^9},
 CellLabel->
  "Out[1008]=",ExpressionUUID->"46269df3-603c-4c16-96c5-5736152efade"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VCN8d8b", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860366706079*^9, 3.845860366917389*^9}, {
  3.855588747848388*^9, 3.855588749492341*^9}, {3.8555901454878674`*^9, 
  3.8555901462065*^9}, {3.855591457898297*^9, 3.8555914580390153`*^9}},
 CellLabel->
  "In[1009]:=",ExpressionUUID->"2488ae81-59e2-4c2d-a634-810a7242e953"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.84586036793445*^9, 3.845903384597906*^9, 3.845904024492345*^9, 
   3.845919137612107*^9, {3.84591974030383*^9, 3.845919753227068*^9}, 
   3.845925293756023*^9, 3.8459255107823486`*^9, 3.8460066995699244`*^9, 
   3.8461000284003305`*^9, 3.847470590542036*^9, 3.851700780305621*^9, 
   3.8539755908308353`*^9, 3.854990830067071*^9, 3.8550000393973284`*^9, 
   3.855588752602594*^9, 3.8555901496456413`*^9, 3.855591458952405*^9, 
   3.8555936355899796`*^9, 3.855750956451762*^9},
 CellLabel->
  "Out[1009]=",ExpressionUUID->"a72367da-0b9d-4f03-974e-514898efedf4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{"Vtilde", "[", "N4VCN8d8c", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.845860366706079*^9, 3.845860366917389*^9}, {
  3.855588747848388*^9, 3.855588749492341*^9}, {3.8555901454878674`*^9, 
  3.8555901462065*^9}, {3.8555904024290333`*^9, 3.8555904025540023`*^9}, {
  3.8555914614372587`*^9, 3.8555914615776873`*^9}},
 CellLabel->
  "In[1010]:=",ExpressionUUID->"6b734706-b2ea-4c58-ac86-519b753242ce"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.84586036793445*^9, 3.845903384597906*^9, 3.845904024492345*^9, 
   3.845919137612107*^9, {3.84591974030383*^9, 3.845919753227068*^9}, 
   3.845925293756023*^9, 3.8459255107823486`*^9, 3.8460066995699244`*^9, 
   3.8461000284003305`*^9, 3.847470590542036*^9, 3.851700780305621*^9, 
   3.8539755908308353`*^9, 3.854990830067071*^9, 3.8550000393973284`*^9, 
   3.855588752602594*^9, 3.8555901496456413`*^9, 3.8555904033398066`*^9, 
   3.855591462548122*^9, 3.855593635605628*^9, 3.8557509564830093`*^9},
 CellLabel->
  "Out[1010]=",ExpressionUUID->"7b9de287-29c3-4db6-94e7-0edbb0cc075f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VCN8d8a", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860537280756*^9, 3.845860548786725*^9}, {
  3.8458608960108337`*^9, 3.845860898570567*^9}, {3.8555887587778187`*^9, 
  3.8555887602486925`*^9}, {3.8555901528106456`*^9, 3.855590153781578*^9}, {
  3.8555914678747787`*^9, 3.8555914679841228`*^9}},
 CellLabel->
  "In[1011]:=",ExpressionUUID->"382bff51-c8c3-48ae-aaaa-54c9d0da77ac"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.845860564349985*^9, 3.845860903734024*^9, 3.84590338694079*^9, 
   3.8459040268713493`*^9, 3.8459191399503803`*^9, {3.8459197415457926`*^9, 
   3.845919755484135*^9}, 3.8459252960837784`*^9, 3.8459255130858364`*^9, 
   3.846006701511377*^9, 3.846100030625263*^9, 3.847470592764282*^9, 
   3.851700782556419*^9, 3.853975593219262*^9, 3.8549908340657597`*^9, 
   3.855000041785279*^9, 3.8555887661870995`*^9, 3.855590161738455*^9, 
   3.8555914699188056`*^9, 3.8555936361995883`*^9, 3.855750957194639*^9},
 CellLabel->
  "Out[1011]=",ExpressionUUID->"12beff79-318e-4a67-bff9-06ff4b8532de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VCN8d8b", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860574431657*^9, 3.845860575039948*^9}, {
  3.8458609071332073`*^9, 3.845860907508608*^9}, {3.8555887675325336`*^9, 
  3.855588769189313*^9}, {3.855590163007498*^9, 3.855590163843738*^9}, {
  3.8555914729221487`*^9, 3.855591473046959*^9}},
 CellLabel->
  "In[1012]:=",ExpressionUUID->"4a8c0094-b199-4064-9ee8-52c3c9ee7529"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8458605787628317`*^9, 3.845860911439046*^9, 3.845903389414948*^9, 
   3.845904029335718*^9, 3.8459191422158604`*^9, {3.845919742762141*^9, 
   3.845919757809945*^9}, 3.8459252984919777`*^9, 3.8459255153989935`*^9, 
   3.8460067035073338`*^9, 3.846100032858345*^9, 3.847470595063835*^9, 
   3.851700784884385*^9, 3.853975595664672*^9, 3.854990836380715*^9, 
   3.8550000441216984`*^9, 3.855588773577583*^9, 3.8555901688834944`*^9, 
   3.8555914745552244`*^9, 3.8555936367935677`*^9, 3.8557509578476324`*^9},
 CellLabel->
  "Out[1012]=",ExpressionUUID->"746b1dac-dd63-461e-b232-bf12723d9386"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soNTest", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"Vtilde", "[", "N4VCN8d8c", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845860537280756*^9, 3.845860548786725*^9}, {
  3.8458608960108337`*^9, 3.845860898570567*^9}, {3.8555887587778187`*^9, 
  3.8555887602486925`*^9}, {3.8555901528106456`*^9, 3.855590153781578*^9}, {
  3.8555904153172936`*^9, 3.8555904154423747`*^9}, {3.8555914770222483`*^9, 
  3.8555914771316037`*^9}},
 CellLabel->
  "In[1013]:=",ExpressionUUID->"16c7f399-bf76-401a-9872-52a2560dba7e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.845860564349985*^9, 3.845860903734024*^9, 3.84590338694079*^9, 
   3.8459040268713493`*^9, 3.8459191399503803`*^9, {3.8459197415457926`*^9, 
   3.845919755484135*^9}, 3.8459252960837784`*^9, 3.8459255130858364`*^9, 
   3.846006701511377*^9, 3.846100030625263*^9, 3.847470592764282*^9, 
   3.851700782556419*^9, 3.853975593219262*^9, 3.8549908340657597`*^9, 
   3.855000041785279*^9, 3.8555887661870995`*^9, 3.855590161738455*^9, 
   3.855590418185567*^9, 3.855591478591329*^9, 3.8555936373785763`*^9, 
   3.855750958475314*^9},
 CellLabel->
  "Out[1013]=",ExpressionUUID->"ee243607-6e95-4c7a-8527-cbe3a4371bd9"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Save L, R, Vtilde, etc. Ran once and saved, so commented out here.\
\>", "Section",
 CellChangeTimes->{{3.8555090924783707`*^9, 3.8555091177490883`*^9}, {
  3.855578502537602*^9, 
  3.8555785213719797`*^9}},ExpressionUUID->"8c44a9b9-b055-464c-b461-\
dd638d61bc28"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"DeleteFile", "[", "\"\<N44DOffShellAdinkraData.m\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
   "LoadString", " ", "=", " ", 
    "\"\<L, R, GALR, GARL, V, Vtilde, VPM, VtildePM, ncis, ntrans, chi0 for \
Reps N4VT, N4VC, SMI, SMII, SMIII, and SMIV are loaded\>\""}], 
   "\[IndentingNewLine]", 
   RowBox[{"Save", "[", 
    RowBox[{"\"\<N44DOffShellAdinkraData.m\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
      "L", ",", " ", "R", ",", " ", "GALR", ",", " ", "GARL", ",", " ", "V", 
       ",", " ", "Vtilde", ",", " ", "VPM", ",", "VtildePM", ",", " ", "ncis",
        ",", " ", "ntrans", ",", " ", "chi0", ",", "  ", "LoadString"}], 
      "}"}]}], "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.85550897213017*^9, 3.855509011080408*^9}, {
   3.8555091280609007`*^9, 3.855509204340044*^9}, {3.8555092541845207`*^9, 
   3.8555092546765823`*^9}, {3.85550928709474*^9, 3.855509287859006*^9}, {
   3.8555100606807203`*^9, 3.855510076461939*^9}, {3.855510162215625*^9, 
   3.855510164534479*^9}, {3.855513438925551*^9, 3.855513441456122*^9}, {
   3.855515934634712*^9, 3.8555159456608353`*^9}, {3.855578488586977*^9, 
   3.855578492077283*^9}, 3.8557505225525856`*^9},
 CellLabel->
  "In[1014]:=",ExpressionUUID->"1db7e3cb-5a67-4bb5-bfee-af329fdebdd4"],

Cell[BoxData["\<\"C:\\\\Users\\\\kstiffle\\\\Dropbox\\\\Shared\\\\Brown\\\\\
Gabe\\\\adnk4DN4Holo\\\\OnGitHub\"\>"], "Output",
 CellChangeTimes->{3.855750958506527*^9},
 CellLabel->
  "Out[1014]=",ExpressionUUID->"4e837d9c-5d0e-4369-88de-6df1e054ac79"],

Cell[BoxData[
 TemplateBox[{
  "DeleteFile", "fdnfnd", 
   "\"Directory or file \
\\!\\(\\*RowBox[{\\\"\\\\\\\"N44DOffShellAdinkraData.m\\\\\\\"\\\"}]\\) not \
found.\"", 2, 1015, 17, 21725588725017038256, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855750958564907*^9},
 CellLabel->
  "During evaluation of \
In[1014]:=",ExpressionUUID->"4d74ae8c-70bc-417b-8418-c04da69d9bf2"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.8557509585961533`*^9},
 CellLabel->
  "Out[1015]=",ExpressionUUID->"42d967df-bee0-417f-af50-6f4fd85736ee"],

Cell[BoxData["\<\"L, R, GALR, GARL, V, Vtilde, VPM, VtildePM, ncis, ntrans, \
chi0 for Reps N4VT, N4VC, SMI, SMII, SMIII, and SMIV are loaded\"\>"], \
"Output",
 CellChangeTimes->{3.8557509585961533`*^9},
 CellLabel->
  "Out[1016]=",ExpressionUUID->"983bb628-010e-434e-8735-dc9008816fad"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1904, 989},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
CellContext->Notebook,
Magnification:>1.5 Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"35e1f010-7a1e-49ea-9911-063303770296"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 11155, 163, 1665, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"],
Cell[CellGroupData[{
Cell[11759, 189, 158, 3, 103, "Chapter",ExpressionUUID->"4c561efb-c217-4f68-a73a-f7dd1cfec01b"],
Cell[CellGroupData[{
Cell[11942, 196, 290, 5, 101, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"],
Cell[CellGroupData[{
Cell[12257, 205, 148, 2, 43, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"],
Cell[12408, 209, 1018, 18, 70, "Output",ExpressionUUID->"7db8a3bd-d53f-446b-8525-1ceb7bd15173"]
}, Open  ]],
Cell[13441, 230, 245, 4, 46, "Input",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"],
Cell[CellGroupData[{
Cell[13711, 238, 212, 3, 46, "Input",ExpressionUUID->"c17f1cbd-b2cc-47d8-bb22-2dea690d5840"],
Cell[13926, 243, 992, 17, 70, "Output",ExpressionUUID->"15be8d40-2c5a-449f-8c50-53dde510071f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[14967, 266, 1549, 22, 78, "Section",ExpressionUUID->"146d1a2f-83d1-445b-8d6a-794175dd6981"],
Cell[CellGroupData[{
Cell[16541, 292, 238, 4, 67, "Subsubsection",ExpressionUUID->"38404d85-6a74-4447-aa3b-b53b5dce3a6b"],
Cell[16782, 298, 2849, 65, 140, "Input",ExpressionUUID->"8bdc923d-4011-4aa6-a9a8-0b2793ccab42"],
Cell[CellGroupData[{
Cell[19656, 367, 3006, 67, 140, "Input",ExpressionUUID->"9099ef07-609b-4251-9dee-91b068d2226b"],
Cell[22665, 436, 3793, 80, 70, "Output",ExpressionUUID->"1defb68d-6d6e-4d01-b783-fa7fca4823a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26495, 521, 1411, 32, 78, "Input",ExpressionUUID->"8066522e-c829-472d-be77-e6e61bd97324"],
Cell[27909, 555, 2410, 43, 70, "Output",ExpressionUUID->"12e08175-b90e-4b2c-82a5-b78d12156c99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30356, 603, 1729, 46, 109, "Input",ExpressionUUID->"d6cf5ead-d887-482f-96d5-830a92aa83e0"],
Cell[32088, 651, 5433, 121, 70, "Output",ExpressionUUID->"2f8edaf8-a3ae-4116-b875-4da56beb9cdb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37558, 777, 449, 9, 46, "Input",ExpressionUUID->"198fb917-2abb-4596-bf71-170ffacf4abd"],
Cell[38010, 788, 8242, 193, 70, "Output",ExpressionUUID->"e1e20fba-23fd-4ea7-b5ad-390bb8b6563a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[46301, 987, 255, 6, 53, "Subsubsection",ExpressionUUID->"3dcdbc13-3f52-49ae-8f7a-2ba58f9e9eb7"],
Cell[46559, 995, 1112, 28, 78, "Input",ExpressionUUID->"1b56d7da-6bae-45fa-9eaa-9ce085f24d82"]
}, Closed]],
Cell[CellGroupData[{
Cell[47708, 1028, 254, 6, 53, "Subsubsection",ExpressionUUID->"5f079067-ab5b-4732-b778-bf9d364d51f5"],
Cell[47965, 1036, 1286, 30, 108, "Input",ExpressionUUID->"a258e7af-c0e2-4fb2-9b20-42c32a245bdf"],
Cell[49254, 1068, 1001, 25, 108, "Input",ExpressionUUID->"eadedea2-d0ca-405a-acfd-2008d4caa418"],
Cell[50258, 1095, 370, 8, 43, "Input",ExpressionUUID->"20f10eb1-7c84-44ad-88f6-aa8e3d68c644"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[50677, 1109, 1030, 16, 101, "Section",ExpressionUUID->"c50236d8-bfd6-4c67-bc1c-bc4c6ff2c66c"],
Cell[CellGroupData[{
Cell[51732, 1129, 435, 10, 81, "Subsection",ExpressionUUID->"c9f8c06e-cccd-4878-9cf6-57c38c92fecd"],
Cell[52170, 1141, 1096, 23, 43, "Input",ExpressionUUID->"25922e74-2331-4af3-affc-1cf53f19daf7"],
Cell[CellGroupData[{
Cell[53291, 1168, 217, 3, 43, "Input",ExpressionUUID->"1deeca4a-a357-43a6-ab57-86bda9bbcedb"],
Cell[53511, 1173, 1333, 34, 70, "Output",ExpressionUUID->"1bd9a352-e1ed-496d-ad50-d3b8ceb244e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54881, 1212, 692, 15, 43, "Input",ExpressionUUID->"ba5a332b-93ce-4e6f-8955-3f84c915f02f"],
Cell[55576, 1229, 2270, 56, 70, "Output",ExpressionUUID->"683edba1-926b-4df0-afc1-f447fa866658"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[57895, 1291, 512, 12, 59, "Subsection",ExpressionUUID->"f48df841-9404-4cf5-83d6-eea3d3cd97a7"],
Cell[58410, 1305, 1147, 24, 43, "Input",ExpressionUUID->"398d0012-15b9-46cb-a62c-a89832b100a0"],
Cell[CellGroupData[{
Cell[59582, 1333, 217, 3, 43, "Input",ExpressionUUID->"180036cb-cdfc-4b91-a64f-dd6f2b8cbd3b"],
Cell[59802, 1338, 1175, 32, 70, "Output",ExpressionUUID->"c86dee1d-c9e7-490f-bb84-a5d1e9614bba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61014, 1375, 713, 15, 43, "Input",ExpressionUUID->"d9fbbd1a-8998-4914-9653-c319089f744a"],
Cell[61730, 1392, 2124, 54, 70, "Output",ExpressionUUID->"9e388621-7d92-482a-b9bb-63c69e688cde"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[63903, 1452, 606, 13, 62, "Subsection",ExpressionUUID->"05fd81b8-c980-4f98-b396-d779a42a978c"],
Cell[64512, 1467, 1193, 24, 43, "Input",ExpressionUUID->"86313cce-3736-408a-97c3-dcafebc2821a"],
Cell[CellGroupData[{
Cell[65730, 1495, 217, 3, 43, "Input",ExpressionUUID->"a54d5106-5a0d-4fed-8627-385765bcbd82"],
Cell[65950, 1500, 1329, 34, 70, "Output",ExpressionUUID->"4e787f58-f0ac-4aa4-b0ba-d82b4cd6238b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67316, 1539, 734, 15, 43, "Input",ExpressionUUID->"38eafbe9-cbc5-4800-928b-47635a85c495"],
Cell[68053, 1556, 2278, 56, 70, "Output",ExpressionUUID->"ce35651f-5027-481c-9129-7de48caf4191"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[70380, 1618, 1219, 32, 58, "Subsection",ExpressionUUID->"6044be20-c5be-443e-a695-41d6db5e4ca0"],
Cell[71602, 1652, 1352, 33, 43, "Input",ExpressionUUID->"7a3a156c-a91c-452a-9cad-35dbb7a0b895"],
Cell[72957, 1687, 1308, 28, 43, "Input",ExpressionUUID->"5fbdfbe1-c567-4dc5-91cf-ab612175844c"],
Cell[CellGroupData[{
Cell[74290, 1719, 599, 15, 43, "Input",ExpressionUUID->"42a7688c-56f0-4c57-b339-cb9446a84602"],
Cell[74892, 1736, 9125, 266, 70, "Output",ExpressionUUID->"4acb5096-b9f4-4c38-a74c-871b6bfdc20f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84054, 2007, 651, 16, 43, "Input",ExpressionUUID->"a45cd7bf-e473-4c27-995b-f58e166cf9e4"],
Cell[84708, 2025, 9125, 266, 70, "Output",ExpressionUUID->"48047971-8cc0-459e-af58-cd4d7cc578f7"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[93882, 2297, 885, 22, 58, "Subsection",ExpressionUUID->"d2401969-ef87-4fee-94aa-7b7fbe051ef7"],
Cell[94770, 2321, 3045, 91, 231, "Input",ExpressionUUID->"aa69d12c-7633-4335-8c98-95f3ebd3071b"],
Cell[CellGroupData[{
Cell[97840, 2416, 285, 6, 43, "Input",ExpressionUUID->"c668e0e1-7742-4595-9758-9369ae3cbee7"],
Cell[98128, 2424, 671, 14, 70, "Output",ExpressionUUID->"3cca11de-2a8b-4d63-9417-f3ae61054c36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98836, 2443, 368, 7, 43, "Input",ExpressionUUID->"bada0ece-857f-4882-b02c-b67c7e395909"],
Cell[99207, 2452, 590, 11, 70, "Output",ExpressionUUID->"6dc7d8d2-b04b-48ab-8a87-3c02a8aa8f10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99834, 2468, 433, 10, 43, "Input",ExpressionUUID->"58c27cb0-ac87-4463-9ed6-be35908513b0"],
Cell[100270, 2480, 590, 11, 70, "Output",ExpressionUUID->"b8a7be6d-6fca-42e8-b912-c2b5ab6de31b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100897, 2496, 326, 7, 43, "Input",ExpressionUUID->"89e2113b-073e-4431-8f49-934eb67fa2f7"],
Cell[101226, 2505, 731, 16, 70, "Output",ExpressionUUID->"496771e6-6341-4ea6-b7a2-9a18403063e6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[102006, 2527, 729, 16, 54, "Subsection",ExpressionUUID->"85c737f0-5f0e-4eb9-9db4-06c56723af04"],
Cell[102738, 2545, 1295, 28, 43, "Input",ExpressionUUID->"5f7bfa1e-6b2f-4bba-8fa2-3401d1846a88"],
Cell[CellGroupData[{
Cell[104058, 2577, 448, 8, 43, "Input",ExpressionUUID->"a7dcd25d-2558-4472-b830-baf510b9fcf0"],
Cell[104509, 2587, 731, 16, 70, "Output",ExpressionUUID->"67c6fbf9-e257-4456-8d58-1bd8304ec86e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105277, 2608, 423, 9, 43, "Input",ExpressionUUID->"7a1952d2-53db-4d02-ac22-44de19342370"],
Cell[105703, 2619, 735, 16, 70, "Output",ExpressionUUID->"adf29483-9f09-4de4-97f2-30cb28f150fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106475, 2640, 404, 8, 43, "Input",ExpressionUUID->"49ff588e-352e-4612-a507-467efc39b930"],
Cell[106882, 2650, 710, 15, 70, "Output",ExpressionUUID->"3f0d1819-6d0f-4ea3-a1a0-1ec1c8d14e62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107629, 2670, 402, 8, 43, "Input",ExpressionUUID->"7b346bd8-521c-40cc-be19-7d667555535f"],
Cell[108034, 2680, 710, 15, 70, "Output",ExpressionUUID->"ad9865c4-0878-4d00-b5ef-01d9089ac03f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108781, 2700, 401, 8, 43, "Input",ExpressionUUID->"564d83af-d107-48fd-8a56-4b5010483e24"],
Cell[109185, 2710, 735, 16, 70, "Output",ExpressionUUID->"da76cb66-71ef-4802-bbc8-07934e84f90c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109957, 2731, 514, 11, 43, "Input",ExpressionUUID->"e417543e-1175-4e19-979a-4ba681d41661"],
Cell[110474, 2744, 894, 22, 70, "Output",ExpressionUUID->"b4e5d15d-6955-410e-89c4-d497a02ee81b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111405, 2771, 753, 17, 43, "Input",ExpressionUUID->"fb684aa5-0a44-4179-8487-b6322ba5b7e8"],
Cell[112161, 2790, 3019, 84, 70, "Output",ExpressionUUID->"1804ac90-8a00-4e8f-b9b3-12fa7464225f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[115229, 2880, 1055, 32, 61, "Subsection",ExpressionUUID->"7325738e-c08f-44a5-952a-dbfc829a3037"],
Cell[116287, 2914, 1773, 44, 72, "Input",ExpressionUUID->"f6ae09ce-daf6-40b6-b5bf-f4f20ccb79ec"],
Cell[CellGroupData[{
Cell[118085, 2962, 362, 7, 42, "Input",ExpressionUUID->"b59e29df-e259-4559-9fc8-305db75661d3"],
Cell[118450, 2971, 1483, 42, 70, "Output",ExpressionUUID->"dd6953eb-78fd-4348-a8ec-d69e8b265c03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119970, 3018, 359, 7, 42, "Input",ExpressionUUID->"053d4251-30ad-4fd6-ac88-f6a97bfc4e3f"],
Cell[120332, 3027, 1483, 42, 70, "Output",ExpressionUUID->"6dfec90c-ce66-46a4-a59b-bd7218a6985f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121852, 3074, 415, 8, 42, "Input",ExpressionUUID->"3c94b764-1fc6-4a76-b789-ad9168d8e5fd"],
Cell[122270, 3084, 1479, 42, 70, "Output",ExpressionUUID->"b0139b62-d686-44f3-aa9e-8576b63aafeb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[123798, 3132, 855, 18, 54, "Subsection",ExpressionUUID->"65850737-f21f-4aca-b28a-60c807456cd6"],
Cell[124656, 3152, 1546, 32, 43, "Input",ExpressionUUID->"72752acd-bf43-49f2-9f39-974f7c38fbdb"],
Cell[CellGroupData[{
Cell[126227, 3188, 533, 9, 43, "Input",ExpressionUUID->"928f03b3-98d8-4b0a-b9cd-2fba3aeb717b"],
Cell[126763, 3199, 1507, 43, 70, "Output",ExpressionUUID->"1d2807a5-ce27-4fcf-9102-4ca93ee9eb66"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128307, 3247, 510, 10, 43, "Input",ExpressionUUID->"e6ff90b9-c864-436f-bf03-d5b47133a2a2"],
Cell[128820, 3259, 1483, 42, 70, "Output",ExpressionUUID->"f525751e-77d5-4786-8045-0a6c60813d57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130340, 3306, 688, 15, 43, "Input",ExpressionUUID->"2a78b93c-639f-41c7-ac75-7cfdf30c5efd"],
Cell[131031, 3323, 593, 11, 70, "Output",ExpressionUUID->"8930d3a6-025a-4dbe-949d-3811f87ad0c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131661, 3339, 491, 9, 43, "Input",ExpressionUUID->"501f5960-0620-4343-8bde-95313fbca489"],
Cell[132155, 3350, 1507, 43, 70, "Output",ExpressionUUID->"b561de9a-1448-4835-a705-9a9b8cac57ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133699, 3398, 505, 12, 43, "Input",ExpressionUUID->"117ae52b-058f-472e-9453-ca7c7b343dff"],
Cell[134207, 3412, 593, 11, 70, "Output",ExpressionUUID->"a851a461-9523-4433-970a-5595bbacdbf9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134837, 3428, 507, 12, 43, "Input",ExpressionUUID->"6b584160-d819-42c3-8960-5efff7d806da"],
Cell[135347, 3442, 589, 11, 70, "Output",ExpressionUUID->"0f4e0b87-0dc0-4cbf-98b4-0bb08afe3523"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135973, 3458, 482, 11, 43, "Input",ExpressionUUID->"85df3ca9-2a70-49f6-a5c0-2d11a352396a"],
Cell[136458, 3471, 589, 11, 70, "Output",ExpressionUUID->"d0eb4c98-98ea-4768-b1e0-064048b28008"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137084, 3487, 838, 18, 43, "Input",ExpressionUUID->"b8ec9898-3a03-4f4d-801e-1fb1fa0fd926"],
Cell[137925, 3507, 7522, 219, 70, "Output",ExpressionUUID->"a49f6fdd-af62-4ffc-8726-ad184e79e4d5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[145496, 3732, 983, 24, 99, "Subsection",ExpressionUUID->"98e87774-272f-42ac-b4fa-5d65db3bb1ba"],
Cell[CellGroupData[{
Cell[146504, 3760, 582, 13, 43, "Input",ExpressionUUID->"ffdd2876-f36c-440f-b110-9897c02218bf"],
Cell[147089, 3775, 1029, 23, 70, "Output",ExpressionUUID->"b1f9ad1d-7864-4750-9502-3226516210a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148155, 3803, 510, 11, 43, "Input",ExpressionUUID->"6d9b3fa3-8a68-4114-9b64-974c14f9bdec"],
Cell[148668, 3816, 1830, 50, 70, "Output",ExpressionUUID->"be6febd9-8e3a-4fe4-8149-19b0812f904b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150535, 3871, 622, 14, 43, "Input",ExpressionUUID->"ac87510e-9e32-4f96-8bce-d323bcd068c4"],
Cell[151160, 3887, 1861, 51, 70, "Output",ExpressionUUID->"229c37e9-7f5a-4f9d-8faf-ddacbd361855"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153058, 3943, 637, 12, 43, "Input",ExpressionUUID->"43b758c6-bc68-4721-ad5e-962d85ac7d6c"],
Cell[153698, 3957, 4149, 109, 70, "Output",ExpressionUUID->"fb03e635-e760-499a-bb98-d7189bcaec06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157884, 4071, 644, 11, 43, "Input",ExpressionUUID->"8da9bcb5-4f5c-4ed0-be3b-60bc976562b7"],
Cell[158531, 4084, 1998, 54, 70, "Output",ExpressionUUID->"11afb4b5-629f-4663-882b-cfd73bbe9f86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160566, 4143, 675, 12, 43, "Input",ExpressionUUID->"417fb4b9-da6b-40f3-ac1d-c5cd311fd1dd"],
Cell[161244, 4157, 2826, 63, 70, "Output",ExpressionUUID->"08922bcb-309d-44f4-8b52-69956c024853"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164107, 4225, 695, 12, 43, "Input",ExpressionUUID->"7b711a68-2e1a-4a6f-a290-56ae7e78b4e2"],
Cell[164805, 4239, 2849, 64, 70, "Output",ExpressionUUID->"0063cbf6-30be-485a-9d01-bdc2b808c4b2"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[167727, 4311, 164, 3, 103, "Chapter",ExpressionUUID->"79f74560-629f-4e38-96c3-715671f854fe"],
Cell[CellGroupData[{
Cell[167916, 4318, 1175, 19, 158, "Section",ExpressionUUID->"5a37422c-9958-4134-8fc9-4e234f8c2e51"],
Cell[CellGroupData[{
Cell[169116, 4341, 7852, 132, 124, "Subsection",ExpressionUUID->"fc00eaf6-70c4-4c04-8d33-aa6df0600733"],
Cell[176971, 4475, 3452, 58, 46, "Input",ExpressionUUID->"898da542-502e-45f3-9fc3-ae94defeddd0"],
Cell[CellGroupData[{
Cell[180448, 4537, 460, 10, 46, "Input",ExpressionUUID->"784324e1-d57e-4de8-8e9b-dad0c7f272d2"],
Cell[180911, 4549, 883, 17, 70, "Output",ExpressionUUID->"8d04110b-1159-49c2-92c9-662de9603c25"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181831, 4571, 510, 10, 46, "Input",ExpressionUUID->"e69ca3ae-2fdf-4f60-87b4-f429c799abc4"],
Cell[182344, 4583, 883, 17, 70, "Output",ExpressionUUID->"a71bbaae-1f36-40d1-b8fc-4f7689f30808"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[183276, 4606, 13510, 225, 113, "Subsection",ExpressionUUID->"f9560984-e0cf-4af4-afec-0d033821ebc5"],
Cell[196789, 4833, 3256, 59, 43, "Input",ExpressionUUID->"ba21e04b-e0f2-4bdd-8bf3-5e928cb1713e"],
Cell[CellGroupData[{
Cell[200070, 4896, 436, 9, 43, "Input",ExpressionUUID->"cef848df-50ab-4b75-aecc-f720dca868b6"],
Cell[200509, 4907, 900, 18, 70, "Output",ExpressionUUID->"8243197e-82cd-4e5d-b85a-ba86e28388c7"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[201458, 4931, 13398, 226, 87, "Subsection",ExpressionUUID->"b5a3c00d-e1be-4ad4-9a12-654b0d6734d3"],
Cell[214859, 5159, 3502, 65, 43, "Input",ExpressionUUID->"27123cbb-771f-4854-81f6-bade6618ce56"],
Cell[CellGroupData[{
Cell[218386, 5228, 387, 9, 43, "Input",ExpressionUUID->"d7f53fba-d399-4a9d-bfb5-4dea8dba5d4d"],
Cell[218776, 5239, 2018, 55, 70, "Output",ExpressionUUID->"0f9cd021-fae2-46ec-866a-2bafb9f24c53"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[220843, 5300, 19189, 321, 91, "Subsection",ExpressionUUID->"2bb1e4eb-51b8-4951-b32f-2c268171ecfc"],
Cell[240035, 5623, 3891, 75, 75, "Input",ExpressionUUID->"98254835-0aee-4877-97ca-f3aac4f1a0f5"],
Cell[CellGroupData[{
Cell[243951, 5702, 483, 10, 43, "Input",ExpressionUUID->"3dd8b134-77de-430c-8b15-fa245e43cb8b"],
Cell[244437, 5714, 1990, 54, 70, "Output",ExpressionUUID->"e70041d4-a528-4d3f-a000-64c4872d2236"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[246476, 5774, 15633, 263, 97, "Subsection",ExpressionUUID->"0eadac48-eb1e-4e53-aa9e-6cda374698ee"],
Cell[262112, 6039, 1498, 41, 78, "Input",ExpressionUUID->"6a500431-cdd7-4b4a-a476-2718f7dceadf"],
Cell[CellGroupData[{
Cell[263635, 6084, 468, 10, 46, "Input",ExpressionUUID->"d121cbc2-8073-4a04-a218-81e41b9c33a2"],
Cell[264106, 6096, 904, 18, 70, "Output",ExpressionUUID->"8f3fb6f1-bbeb-4770-88b4-851b8c40bce8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[265059, 6120, 18294, 306, 134, "Subsection",ExpressionUUID->"ea2711c5-30cf-466c-8aab-356b111bcc2b"],
Cell[283356, 6428, 3947, 76, 109, "Input",ExpressionUUID->"5842c48d-29ee-4c2a-9a88-3fce86ee144e"],
Cell[CellGroupData[{
Cell[287328, 6508, 535, 11, 46, "Input",ExpressionUUID->"6cb6082a-9711-496b-87c2-14e417c68807"],
Cell[287866, 6521, 1990, 54, 70, "Output",ExpressionUUID->"7c7985ae-ede9-491e-8e69-81db7496392d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[289905, 6581, 48485, 798, 214, "Subsection",ExpressionUUID->"8859e49f-1d1e-40da-82bc-713f2ec7a8fc"],
Cell[338393, 7381, 5300, 123, 278, "Input",ExpressionUUID->"74bc0418-8f18-4513-9ba3-7fa733dcf2da"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[343742, 7510, 1119, 18, 158, "Section",ExpressionUUID->"4ae5c37d-cd8a-4b6c-9e21-b0fb82d5d1fa"],
Cell[CellGroupData[{
Cell[344886, 7532, 12625, 209, 144, "Subsection",ExpressionUUID->"b189c279-40c4-4bdc-b114-3dd1d67bdc70"],
Cell[357514, 7743, 3798, 68, 46, "Input",ExpressionUUID->"ad6d16b7-6335-4925-b131-bcd52b26f4c2"],
Cell[CellGroupData[{
Cell[361337, 7815, 485, 10, 46, "Input",ExpressionUUID->"feb363cd-3113-4543-9375-765647c3a58c"],
Cell[361825, 7827, 726, 15, 70, "Output",ExpressionUUID->"cd1dc150-f621-439f-865a-c65938425043"]
}, Open  ]],
Cell[CellGroupData[{
Cell[362588, 7847, 562, 11, 46, "Input",ExpressionUUID->"480dbe51-d86c-4273-886f-2e03503a9a8f"],
Cell[363153, 7860, 726, 15, 70, "Output",ExpressionUUID->"bae793d6-5282-46e3-89c4-2e01428125da"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[363928, 7881, 14072, 233, 149, "Subsection",ExpressionUUID->"36ac72df-79fb-48a0-af59-d6105d86b83b"],
Cell[378003, 8116, 3256, 59, 43, "Input",ExpressionUUID->"d19bb0b7-a12a-4ab1-9110-64e1208e819b"],
Cell[CellGroupData[{
Cell[381284, 8179, 513, 10, 43, "Input",ExpressionUUID->"9c98c005-c954-47b3-b285-4731c7078f81"],
Cell[381800, 8191, 747, 16, 70, "Output",ExpressionUUID->"26ce6a78-079e-4435-8aee-3b2723a1a05b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[382596, 8213, 14097, 238, 128, "Subsection",ExpressionUUID->"abd291d4-99eb-4248-93ed-4faee60fdbc6"],
Cell[396696, 8453, 3510, 66, 43, "Input",ExpressionUUID->"b9147098-791b-432e-b4a1-cda48be6e93c"],
Cell[CellGroupData[{
Cell[400231, 8523, 412, 9, 43, "Input",ExpressionUUID->"5e7c56d7-23cf-4ace-9120-2b77a207e41f"],
Cell[400646, 8534, 1868, 53, 70, "Output",ExpressionUUID->"2c6c1a89-6740-4428-bc9c-d132d35c2551"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[402563, 8593, 16384, 275, 123, "Subsection",ExpressionUUID->"96c6544a-2e17-410b-9870-eaf41f5a1b6b"],
Cell[418950, 8870, 3729, 70, 75, "Input",ExpressionUUID->"1a686329-6bb0-48c4-ba20-87b30f7c4463"],
Cell[CellGroupData[{
Cell[422704, 8944, 483, 10, 43, "Input",ExpressionUUID->"feaaa5b1-f499-46a6-ac4c-6783af405ff4"],
Cell[423190, 8956, 1836, 52, 70, "Output",ExpressionUUID->"df88aa6d-b34b-4af2-82b5-65e3060bba80"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[425075, 9014, 11139, 189, 129, "Subsection",ExpressionUUID->"6c76be59-4fb8-4dae-bd77-585f1e343675"],
Cell[436217, 9205, 3573, 65, 78, "Input",ExpressionUUID->"9a116054-b4bd-4cfc-910a-991aa7e6a172"],
Cell[CellGroupData[{
Cell[439815, 9274, 591, 11, 46, "Input",ExpressionUUID->"b3fefb38-da91-44fb-a713-efd5682625db"],
Cell[440409, 9287, 730, 15, 70, "Output",ExpressionUUID->"9140a016-5112-47d1-b611-5b0f2989e1fa"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[441188, 9308, 19891, 333, 154, "Subsection",ExpressionUUID->"676e5f01-d882-40a2-a99c-c9950d6b6ddc"],
Cell[461082, 9643, 1910, 50, 153, "Input",ExpressionUUID->"a4c391db-5da8-4e93-b009-fb079e207f94"],
Cell[CellGroupData[{
Cell[463017, 9697, 545, 12, 46, "Input",ExpressionUUID->"37985126-0b8d-4780-86a7-9e2e19beb434"],
Cell[463565, 9711, 792, 18, 70, "Output",ExpressionUUID->"dda585da-be03-409b-9645-d7ddd94c832f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[464406, 9735, 43558, 718, 221, "Subsection",ExpressionUUID->"99680c11-5fa4-423c-a055-9eaa6b3ccde2"],
Cell[507967, 10455, 6378, 148, 202, "Input",ExpressionUUID->"7df00ac7-903d-4712-8893-a3f82de8f111"],
Cell[CellGroupData[{
Cell[514370, 10607, 534, 12, 46, "Input",ExpressionUUID->"3ad8f908-7121-4b83-9216-7db74d1823ff"],
Cell[514907, 10621, 1274, 33, 70, "Output",ExpressionUUID->"958b0f81-6080-4ea3-93c4-bc3d74cbd602"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[516242, 10661, 277, 5, 101, "Section",ExpressionUUID->"a520df6d-83e9-40b5-9919-1340109a0dd2"],
Cell[CellGroupData[{
Cell[516544, 10670, 9973, 168, 135, "Subsubsection",ExpressionUUID->"8b83c48e-1d53-4f42-a5a6-09f8a684d0d3"],
Cell[526520, 10840, 3959, 70, 46, "Input",ExpressionUUID->"583ceaf0-426e-46b0-b0f0-72896b78a85d"],
Cell[CellGroupData[{
Cell[530504, 10914, 508, 10, 46, "Input",ExpressionUUID->"25bada80-2b79-4353-8599-bf8fd0b03b40"],
Cell[531015, 10926, 730, 15, 70, "Output",ExpressionUUID->"2d88c12c-b7ab-45d9-9255-b084c3a7e244"]
}, Open  ]],
Cell[CellGroupData[{
Cell[531782, 10946, 561, 11, 46, "Input",ExpressionUUID->"0bf1836a-767a-4d83-892f-54ee28770165"],
Cell[532346, 10959, 751, 16, 70, "Output",ExpressionUUID->"3519f588-3066-4835-a7b6-79bdba7c6e5d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[533146, 10981, 12098, 203, 129, "Subsubsection",ExpressionUUID->"2e553bae-c5be-4be7-87d6-a893b1a80a2c"],
Cell[545247, 11186, 3612, 68, 42, "Input",ExpressionUUID->"ff84b9d9-a57b-4fc5-987f-4acaef6d4715"],
Cell[CellGroupData[{
Cell[548884, 11258, 462, 10, 42, "Input",ExpressionUUID->"1cdea0c1-cd40-4107-b66d-6c8d6d76b314"],
Cell[549349, 11270, 734, 15, 70, "Output",ExpressionUUID->"e6988c61-b4c1-462b-b92b-253853dc79c4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[550132, 11291, 12291, 209, 118, "Subsubsection",ExpressionUUID->"3aa048e3-a1cc-4be2-9b2c-89d2b4a0024e"],
Cell[562426, 11502, 3907, 74, 72, "Input",ExpressionUUID->"469350b2-0816-4fa4-ab49-5a5bf6071aaf"],
Cell[CellGroupData[{
Cell[566358, 11580, 413, 10, 42, "Input",ExpressionUUID->"74efc919-b89b-4424-a25a-5f1aa0552175"],
Cell[566774, 11592, 1880, 54, 70, "Output",ExpressionUUID->"8e1857a2-7ee5-4354-a704-caed002aba02"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[568703, 11652, 13393, 228, 111, "Subsubsection",ExpressionUUID->"5dd21fb5-35fb-44fc-85f6-859cc5aa770f"],
Cell[582099, 11882, 4111, 79, 72, "Input",ExpressionUUID->"7fc8a546-f49e-43ce-a7b1-72a5e5ba6762"],
Cell[CellGroupData[{
Cell[586235, 11965, 511, 11, 42, "Input",ExpressionUUID->"e6360267-0fc4-4df6-aa27-9a0ce2460318"],
Cell[586749, 11978, 1852, 53, 70, "Output",ExpressionUUID->"89993e55-7fbf-40b0-93db-643bc34a7fb7"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[588650, 12037, 10390, 179, 124, "Subsubsection",ExpressionUUID->"d6b3799a-6805-40dd-8019-1fc239ccd92b"],
Cell[599043, 12218, 1604, 42, 42, "Input",ExpressionUUID->"7b9f4f7b-e045-4cd8-aaf2-9bed779bfe38"],
Cell[CellGroupData[{
Cell[600672, 12264, 500, 12, 42, "Input",ExpressionUUID->"85f0e4c7-787f-4490-aa70-41d5819ff31a"],
Cell[601175, 12278, 738, 16, 70, "Output",ExpressionUUID->"be84d071-9792-462b-9364-a5ab752e1f39"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[601962, 12300, 14011, 238, 115, "Subsubsection",ExpressionUUID->"c2908975-aa00-4d23-b8fb-05ec4ff6a537"],
Cell[615976, 12540, 4185, 81, 72, "Input",ExpressionUUID->"344c485d-9d07-42ab-92c8-b3d5e9867f54"],
Cell[CellGroupData[{
Cell[620186, 12625, 563, 12, 42, "Input",ExpressionUUID->"5773b2b4-d14e-4bb0-b828-8eab6cb945a9"],
Cell[620752, 12639, 1852, 53, 70, "Output",ExpressionUUID->"7ebfe530-fd2b-4cf2-bc84-0c5e385e9a12"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[622653, 12698, 46432, 767, 196, "Subsubsection",ExpressionUUID->"716837dd-0bab-48b5-ba75-697237480480"],
Cell[669088, 13467, 6235, 143, 129, "Input",ExpressionUUID->"6d6fa75f-3fe6-4acf-a5c5-7db562817198"],
Cell[CellGroupData[{
Cell[675348, 13614, 585, 13, 42, "Input",ExpressionUUID->"1b3fa4a4-ab23-4b52-8a43-09fed9a85aab"],
Cell[675936, 13629, 1948, 55, 70, "Output",ExpressionUUID->"eedcba5e-9d61-4981-bda5-2de05f119a28"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[677933, 13690, 8923, 151, 123, "Subsection",ExpressionUUID->"92db7332-c5ca-4129-9771-e1ad4f459d98"],
Cell[686859, 13843, 4031, 73, 42, "Input",ExpressionUUID->"638721b4-6fbd-492c-8dd0-76cb9c30574d"],
Cell[CellGroupData[{
Cell[690915, 13920, 511, 11, 42, "Input",ExpressionUUID->"1b383dc5-302b-4a04-a227-602e0eb79eb6"],
Cell[691429, 13933, 758, 17, 70, "Output",ExpressionUUID->"548a59dc-cf72-4741-901a-c581dad3ae83"]
}, Open  ]],
Cell[CellGroupData[{
Cell[692224, 13955, 593, 12, 42, "Input",ExpressionUUID->"04ec7bc6-ffe8-4bad-9949-787854e3b8ad"],
Cell[692820, 13969, 758, 17, 70, "Output",ExpressionUUID->"0b2189f1-d12e-47c2-a61b-0f6395e67f47"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[693627, 13992, 12879, 216, 135, "Subsection",ExpressionUUID->"22fafbf4-3eb5-45de-a286-99165bf416f5"],
Cell[706509, 14210, 3661, 69, 42, "Input",ExpressionUUID->"3b04f085-8106-468e-8b03-0448800eaf6f"],
Cell[CellGroupData[{
Cell[710195, 14283, 543, 12, 42, "Input",ExpressionUUID->"c65ed340-93ca-46f6-bd91-80377fbad9dc"],
Cell[710741, 14297, 737, 16, 70, "Output",ExpressionUUID->"0c5dccf1-1fb8-49ab-bc40-b3e9ccc8c2a4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[711527, 14319, 12403, 211, 112, "Subsection",ExpressionUUID->"9b99fab0-5ae9-4672-b448-c6b5ad875f22"],
Cell[723933, 14532, 3923, 75, 42, "Input",ExpressionUUID->"27e07b8a-3282-4565-aed5-3f93df9b7a35"],
Cell[CellGroupData[{
Cell[727881, 14611, 440, 10, 42, "Input",ExpressionUUID->"2d23e4a8-d763-42f2-89e9-62c6df6a7616"],
Cell[728324, 14623, 1872, 54, 70, "Output",ExpressionUUID->"56f0e496-991b-420c-af55-9f0a18cf4992"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[730245, 14683, 13460, 228, 135, "Subsection",ExpressionUUID->"fb68f174-0761-480d-8286-b2d051c00e53"],
Cell[743708, 14913, 4132, 80, 72, "Input",ExpressionUUID->"64e92d58-7ddf-4c0d-a66c-e40958ed84e9"],
Cell[CellGroupData[{
Cell[747865, 14997, 536, 12, 42, "Input",ExpressionUUID->"301f7b72-b79b-40c3-b9b9-a83453c38565"],
Cell[748404, 15011, 1848, 53, 70, "Output",ExpressionUUID->"37384117-fd98-4999-9363-2b42b8208e50"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[750301, 15070, 8519, 147, 118, "Subsection",ExpressionUUID->"55b511a5-a1aa-4913-aca9-4f98c2c59af2"],
Cell[758823, 15219, 3780, 69, 42, "Input",ExpressionUUID->"d15c1112-ccbb-4114-b23e-39e8a5e42b27"],
Cell[CellGroupData[{
Cell[762628, 15292, 623, 13, 42, "Input",ExpressionUUID->"8be4f7fd-52bd-4ba0-a4b6-18a5133ea689"],
Cell[763254, 15307, 737, 16, 70, "Output",ExpressionUUID->"0d4804b3-b95e-4757-abfd-3e91d34bfdfa"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[764040, 15329, 13189, 224, 138, "Subsection",ExpressionUUID->"d1e755a6-1c25-4e33-ba1e-8d808c7ee8a6"],
Cell[777232, 15555, 2080, 52, 109, "Input",ExpressionUUID->"056d6c4d-9025-4e85-b5d1-e80b8acb7742"],
Cell[CellGroupData[{
Cell[779337, 15611, 571, 13, 42, "Input",ExpressionUUID->"cb3bf314-a739-487e-9b9c-976bc8d07fca"],
Cell[779911, 15626, 792, 18, 70, "Output",ExpressionUUID->"156e9e52-a76c-4dbe-b792-f93b06235f1b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[780752, 15650, 39716, 663, 256, "Subsection",ExpressionUUID->"485ea87a-2f0e-415f-9da9-89037b5256f2"],
Cell[820471, 16315, 5564, 128, 216, "Input",ExpressionUUID->"c63a3181-994f-421b-bb96-4b14a4f55079"],
Cell[CellGroupData[{
Cell[826060, 16447, 562, 13, 46, "Input",ExpressionUUID->"ec805ef4-3c50-43bd-928a-b008510789cf"],
Cell[826625, 16462, 2173, 63, 70, "Output",ExpressionUUID->"55e5581f-1854-44bd-bc06-5f33caab4b08"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[828871, 16533, 214, 4, 84, "Chapter",ExpressionUUID->"ee195b16-ff59-4438-8d93-f2cddd4e9abc"],
Cell[CellGroupData[{
Cell[829110, 16541, 503, 9, 99, "Section",ExpressionUUID->"1e14e21a-6a0f-4276-975a-dcd3d5284a08"],
Cell[CellGroupData[{
Cell[829638, 16554, 11371, 314, 396, "Input",ExpressionUUID->"bfcb6971-bcfa-4483-9362-e1298b646994"],
Cell[841012, 16870, 12130, 351, 70, "Output",ExpressionUUID->"c207996e-cecc-47e3-b875-2e83fcb1c5c1"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[853191, 17227, 41926, 707, 321, "Section",ExpressionUUID->"98d92130-7706-4419-9a39-74f29eb7781c"],
Cell[CellGroupData[{
Cell[895142, 17938, 13848, 400, 290, "Subsection",ExpressionUUID->"14da1a61-af7f-4474-aff8-dff4de42d66a"],
Cell[CellGroupData[{
Cell[909015, 18342, 906, 24, 79, "Subsubsection",ExpressionUUID->"af5e7e1f-100c-4f05-a4bd-a2b31ef029f2"],
Cell[909924, 18368, 1285, 31, 43, "Input",ExpressionUUID->"92a9a3ee-a180-437f-b3cc-5ac2a32f3f08"]
}, Closed]],
Cell[CellGroupData[{
Cell[911246, 18404, 803, 22, 67, "Subsubsection",ExpressionUUID->"e06706ba-25ad-4e42-9695-0e63916143a0"],
Cell[912052, 18428, 1336, 32, 43, "Input",ExpressionUUID->"be17646a-acc5-43c5-9241-c8215a3e7576"]
}, Closed]],
Cell[CellGroupData[{
Cell[913425, 18465, 851, 23, 66, "Subsubsection",ExpressionUUID->"7f448219-2bf6-471a-91fb-4d7de36be31a"],
Cell[914279, 18490, 1501, 35, 43, "Input",ExpressionUUID->"9ccb3a38-e988-4c06-830f-e5210bf5cd95"]
}, Closed]],
Cell[CellGroupData[{
Cell[915817, 18530, 898, 23, 66, "Subsubsection",ExpressionUUID->"86074d7f-3ace-448d-852b-d8a3d9906795"],
Cell[916718, 18555, 1493, 35, 43, "Input",ExpressionUUID->"09542eaf-0988-42e5-b2c8-b61efc5b89a0"]
}, Closed]],
Cell[CellGroupData[{
Cell[918248, 18595, 951, 24, 66, "Subsubsection",ExpressionUUID->"fb6ca20e-cfae-4834-aa4b-7ef77feede5f"],
Cell[919202, 18621, 1503, 35, 43, "Input",ExpressionUUID->"1fac774d-e858-4cc2-8537-bc210212bbbd"]
}, Closed]],
Cell[CellGroupData[{
Cell[920742, 18661, 1103, 30, 66, "Subsubsection",ExpressionUUID->"61e4253b-02a0-44b6-bc68-f6758f30d0b3"],
Cell[921848, 18693, 1823, 43, 75, "Input",ExpressionUUID->"b6d4506d-4362-4d2f-9d89-569c5ced452d"]
}, Closed]],
Cell[CellGroupData[{
Cell[923708, 18741, 1283, 41, 67, "Subsubsection",ExpressionUUID->"26178bfe-7806-4f31-ae90-0d5b4d5d1206"],
Cell[924994, 18784, 2187, 55, 138, "Input",ExpressionUUID->"710f73c4-2d91-4e20-b63a-c015845db9ff"],
Cell[CellGroupData[{
Cell[927206, 18843, 337, 8, 43, "Input",ExpressionUUID->"c62d9f3c-3434-4f50-8f06-93884cc615c4"],
Cell[927546, 18853, 63197, 1760, 70, "Output",ExpressionUUID->"0037ac6c-a1f4-4595-b9fe-7a6e43c228e4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[990792, 20619, 959, 24, 66, "Subsubsection",ExpressionUUID->"d64b4b59-6908-44fd-996b-c23a7a28af20"],
Cell[991754, 20645, 1286, 31, 43, "Input",ExpressionUUID->"dc1d1e0d-1796-415f-8f95-ff3f06ff3194"]
}, Closed]],
Cell[CellGroupData[{
Cell[993077, 20681, 861, 23, 67, "Subsubsection",ExpressionUUID->"78b0b9f3-b025-4837-aade-5ec96bfc6c23"],
Cell[993941, 20706, 1341, 32, 43, "Input",ExpressionUUID->"e649c604-a14d-4f80-8aed-9db225afcb94"]
}, Closed]],
Cell[CellGroupData[{
Cell[995319, 20743, 959, 24, 66, "Subsubsection",ExpressionUUID->"578ad2d3-cc6a-45d6-9245-81ae256a8c36"],
Cell[996281, 20769, 1508, 35, 43, "Input",ExpressionUUID->"90f93274-a484-4dfd-9e22-4189fb5845d5"]
}, Closed]],
Cell[CellGroupData[{
Cell[997826, 20809, 956, 24, 66, "Subsubsection",ExpressionUUID->"0175b4fc-2f1a-4e13-a8f4-d5d494fa55a1"],
Cell[998785, 20835, 1452, 35, 43, "Input",ExpressionUUID->"e324a847-003b-4ff7-bb6f-8bc7d95d25db"]
}, Closed]],
Cell[CellGroupData[{
Cell[1000274, 20875, 1055, 25, 66, "Subsubsection",ExpressionUUID->"c3c7452b-f506-4ac6-a9b0-6dbb1d7f009b"],
Cell[1001332, 20902, 1364, 32, 43, "Input",ExpressionUUID->"07f429e0-e822-406d-a5e2-61f1b36cf0e2"]
}, Closed]],
Cell[CellGroupData[{
Cell[1002733, 20939, 922, 30, 66, "Subsubsection",ExpressionUUID->"0bb4c753-46bf-4e6c-84e3-9a82ada031eb"],
Cell[1003658, 20971, 1584, 41, 75, "Input",ExpressionUUID->"c3ee5ccf-e09c-4d5c-acf1-147c8335c787"]
}, Closed]],
Cell[CellGroupData[{
Cell[1005279, 21017, 1310, 41, 67, "Subsubsection",ExpressionUUID->"d32ba746-16e9-4fb6-8d61-2c082162c91a"],
Cell[1006592, 21060, 2201, 56, 138, "Input",ExpressionUUID->"907fefc8-6f57-461b-b31e-b690bbf12ec3"],
Cell[CellGroupData[{
Cell[1008818, 21120, 210, 4, 43, "Input",ExpressionUUID->"407160f4-bc57-45e8-a486-ec130db0424a"],
Cell[1009031, 21126, 14785, 366, 70, "Output",ExpressionUUID->"405100d1-6914-4747-80dc-6b8d91083a33"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1023865, 21498, 559, 8, 54, "Subsubsection",ExpressionUUID->"71ed5a0f-71ef-42b3-ae06-87847e578cf3"],
Cell[1024427, 21508, 2465, 44, 108, "Input",ExpressionUUID->"e84cde01-0689-451e-8f34-5b185d186f37"],
Cell[CellGroupData[{
Cell[1026917, 21556, 211, 4, 43, "Input",ExpressionUUID->"d6d2cf16-1c70-4106-ab80-c00086d5bba3"],
Cell[1027131, 21562, 14745, 371, 70, "Output",ExpressionUUID->"9a1a90dc-e49f-41a4-a34b-60bd97f7eb20"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1041913, 21938, 286, 5, 43, "Input",ExpressionUUID->"d88dbb22-38ed-435b-856d-b1d648343dd3"],
Cell[1042202, 21945, 625, 12, 70, "Output",ExpressionUUID->"bcd5d44e-b134-446f-aba1-25d6466f5222"]
}, Open  ]],
Cell[1042842, 21960, 7276, 170, 213, "Input",ExpressionUUID->"7b9bee9a-8bf9-4f9d-8b73-6e1e5788b6fb"]
}, Closed]],
Cell[CellGroupData[{
Cell[1050155, 22135, 606, 8, 54, "Subsubsection",ExpressionUUID->"33425071-1811-4634-93fd-12913cab1c61"],
Cell[CellGroupData[{
Cell[1050786, 22147, 337, 6, 42, "Input",ExpressionUUID->"d0694aa5-7071-4aea-8f42-5b30b95a2724"],
Cell[1051126, 22155, 1439, 24, 70, "Output",ExpressionUUID->"712c1619-7d73-46a6-8346-f83d2b8f924d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1052614, 22185, 587, 8, 66, "Subsubsection",ExpressionUUID->"b2eb0a4e-fff2-4300-a916-2875407ee3ce"],
Cell[CellGroupData[{
Cell[1053226, 22197, 237, 5, 42, "Input",ExpressionUUID->"b3367e58-d93c-48b5-8bf5-528187d3f38e"],
Cell[1053466, 22204, 1430, 25, 70, "Output",ExpressionUUID->"1d64d101-68eb-44bc-ae8e-a2b816c17899"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1054981, 22238, 190, 3, 84, "Chapter",ExpressionUUID->"84b247f4-ee56-4274-bd15-8ccd45286fee"],
Cell[CellGroupData[{
Cell[1055196, 22245, 875, 18, 43, "Input",ExpressionUUID->"4a157cc0-e04f-4db8-a2af-ba7f381ab312"],
Cell[1056074, 22265, 1492, 21, 49, "Output",ExpressionUUID->"707b2c47-856b-4ece-a475-bc956a7d1088"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1057615, 22292, 156, 3, 103, "Chapter",ExpressionUUID->"1d8ef46d-9108-4988-893f-124c9eb91e3b"],
Cell[CellGroupData[{
Cell[1057796, 22299, 622, 16, 117, "Section",ExpressionUUID->"49f4e60a-1458-4862-b69c-34bd19ad322f"],
Cell[CellGroupData[{
Cell[1058443, 22319, 177, 3, 81, "Subsection",ExpressionUUID->"c1c4e56f-5b25-441f-9fd8-7ab145d549b4"],
Cell[1058623, 22324, 1007, 22, 43, "Input",ExpressionUUID->"8048423e-0fc4-4825-b264-416e5853107b"],
Cell[1059633, 22348, 757, 17, 43, "Input",ExpressionUUID->"19122f13-022f-484f-a248-be42552a0e3e"],
Cell[1060393, 22367, 2663, 65, 75, "Input",ExpressionUUID->"c464cb75-4b9a-4d89-96c6-3c4757ad5d3f"],
Cell[1063059, 22434, 583, 13, 43, "Input",ExpressionUUID->"e6081ac7-3e76-4efa-b374-ee56b50dcba9"],
Cell[1063645, 22449, 849, 21, 43, "Input",ExpressionUUID->"27aac183-4346-482c-a49b-fdc459fa6a84"],
Cell[1064497, 22472, 1841, 45, 75, "Input",ExpressionUUID->"5c2e8330-954c-4247-a4dc-a0f40f6f428d"],
Cell[1066341, 22519, 725, 19, 43, "Input",ExpressionUUID->"e9a83383-e918-43c8-a674-a28bd1d8ab56"],
Cell[1067069, 22540, 1281, 32, 43, "Input",ExpressionUUID->"ba2c998e-7cf3-45e7-9287-9ab1079b8d90"],
Cell[1068353, 22574, 1606, 33, 43, "Input",ExpressionUUID->"22907a85-64fe-448f-9d0d-ee4dba7c67d6"],
Cell[1069962, 22609, 1092, 25, 43, "Input",ExpressionUUID->"a8e95eaf-95a1-4b39-a902-712a12f84b45"],
Cell[1071057, 22636, 576, 15, 43, "Input",ExpressionUUID->"6ef83dbe-e3cf-4a0e-9314-ab418cad60d8"],
Cell[CellGroupData[{
Cell[1071658, 22655, 166, 3, 67, "Subsubsection",ExpressionUUID->"db4d44bb-da08-4e1f-8db1-a7ec7eb3fa45"],
Cell[CellGroupData[{
Cell[1071849, 22662, 559, 12, 43, "Input",ExpressionUUID->"cb6915d4-bf38-4387-b1be-127342e0e774"],
Cell[1072411, 22676, 66020, 1869, 70, "Output",ExpressionUUID->"b8fb705e-9cc7-4fe4-9a94-11ca7a826cc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1138468, 24550, 309, 7, 43, "Input",ExpressionUUID->"089e572a-bbe0-4650-bf15-f55235566e99"],
Cell[1138780, 24559, 14306, 383, 70, "Output",ExpressionUUID->"0b0e5382-e310-46e1-9078-f3f35f3089d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1153123, 24947, 516, 11, 43, "Input",ExpressionUUID->"88a79505-8a21-411d-8df5-09aef013d43b"],
Cell[1153642, 24960, 102448, 2684, 70, "Output",ExpressionUUID->"ba1a1a68-b9be-42ab-bd8f-11e35d77b0ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1256127, 27649, 1696, 36, 43, "Input",ExpressionUUID->"b64e1c4b-51b1-43d2-bd90-6b7011575516"],
Cell[1257826, 27687, 146265, 3484, 70, "Output",ExpressionUUID->"6898c260-9b63-4390-8809-b1ff23aeb281"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1404152, 31178, 51642, 877, 421, "Subsection",ExpressionUUID->"f1fdd8c4-52ba-4273-b4e1-bfd7dc79b624"],
Cell[1455797, 32057, 1731, 51, 109, "Input",ExpressionUUID->"45ae1d24-874b-446d-8ab9-d202a202d7a7"],
Cell[1457531, 32110, 777, 21, 46, "Input",ExpressionUUID->"9e27690a-1a05-4f70-8320-c71f614e6037"],
Cell[1458311, 32133, 3197, 98, 140, "Input",ExpressionUUID->"98abda81-27ab-4804-91bc-d42c98aa6ac0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1461545, 32236, 603, 8, 81, "Subsection",ExpressionUUID->"8a0bf033-a4e4-4871-b7e6-05ad6c104523"],
Cell[1462151, 32246, 361, 8, 78, "Input",ExpressionUUID->"4683d8fe-e6ce-4de5-8a7c-5f2ea6a37bfc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1462549, 32259, 1155, 22, 92, "Subsection",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"],
Cell[CellGroupData[{
Cell[1463729, 32285, 90809, 1495, 140, "Subsubsection",ExpressionUUID->"1d0519df-4c37-4fa6-88cf-82f165397828"],
Cell[CellGroupData[{
Cell[1554563, 33784, 451, 10, 72, "Input",ExpressionUUID->"ca4ff77f-fd0b-4b25-ab0a-8c0d41d2c0a4"],
Cell[1555017, 33796, 1160, 18, 70, "Output",ExpressionUUID->"8dd50338-59cd-4e3d-a100-3122a1ec1597"]
}, Open  ]],
Cell[1556192, 33817, 3432, 92, 183, "Input",ExpressionUUID->"3032b166-477c-486a-a524-c0c3b4d18c7d"],
Cell[CellGroupData[{
Cell[1559649, 33913, 790, 20, 42, "Input",ExpressionUUID->"9993d10e-f0ba-4788-a9d5-a37ea31eb7d2"],
Cell[1560442, 33935, 1178, 18, 70, "Output",ExpressionUUID->"b9293641-3e94-4786-9ba8-0ad4e79e536f"]
}, Open  ]],
Cell[1561635, 33956, 250, 5, 42, "Input",ExpressionUUID->"b3ef7075-3cac-4964-81dc-37c75229db4c"]
}, Closed]],
Cell[CellGroupData[{
Cell[1561922, 33966, 89770, 1478, 120, "Subsubsection",ExpressionUUID->"a23a8e07-8825-4394-a44d-e2d261dac7cf"],
Cell[CellGroupData[{
Cell[1651717, 35448, 491, 10, 72, "Input",ExpressionUUID->"160a7ad7-072c-480c-b2a8-76e1e8c278d2"],
Cell[1652211, 35460, 1141, 18, 70, "Output",ExpressionUUID->"25db1fb2-6788-402a-97d6-133d99945003"]
}, Open  ]],
Cell[1653367, 35481, 3543, 93, 183, "Input",ExpressionUUID->"9ecf4d40-cd72-4f65-a41e-c7a3a21ec77c"],
Cell[CellGroupData[{
Cell[1656935, 35578, 790, 20, 42, "Input",ExpressionUUID->"811124f6-3f92-42cf-ba56-aada2c26b7fe"],
Cell[1657728, 35600, 1215, 18, 70, "Output",ExpressionUUID->"d1292082-785b-4213-a7fb-9ecf5e9e0793"]
}, Open  ]],
Cell[1658958, 35621, 250, 5, 42, "Input",ExpressionUUID->"0252ecce-de99-4618-9ae7-9080423bfe51"]
}, Closed]],
Cell[CellGroupData[{
Cell[1659245, 35631, 95725, 1574, 113, "Subsubsection",ExpressionUUID->"7977f7ab-7eff-42f4-8821-0c5ced46ea89"],
Cell[CellGroupData[{
Cell[1754995, 37209, 519, 11, 72, "Input",ExpressionUUID->"0a9103de-8854-40d9-990a-6dff7efebc0c"],
Cell[1755517, 37222, 1217, 19, 70, "Output",ExpressionUUID->"7f9d6299-3f7a-41b6-ab91-06b0e66e54d5"]
}, Open  ]],
Cell[1756749, 37244, 4278, 110, 129, "Input",ExpressionUUID->"b392d5e4-3661-495f-92dc-6a9df73f32e9"],
Cell[CellGroupData[{
Cell[1761052, 37358, 790, 20, 42, "Input",ExpressionUUID->"ebd230c9-b163-463a-92ca-4629b178b52d"],
Cell[1761845, 37380, 1240, 19, 70, "Output",ExpressionUUID->"a4b18664-d299-40fc-b5f2-40855c8f3440"]
}, Open  ]],
Cell[1763100, 37402, 250, 5, 42, "Input",ExpressionUUID->"44b4a858-4d51-4a71-aa2a-b482cd34e0ef"]
}, Closed]],
Cell[CellGroupData[{
Cell[1763387, 37412, 89581, 1474, 130, "Subsubsection",ExpressionUUID->"1555d8fb-2a93-458b-a491-307771530922"],
Cell[CellGroupData[{
Cell[1852993, 38890, 567, 11, 72, "Input",ExpressionUUID->"c9610116-8d3b-43fb-b3f1-1320c0999cb2"],
Cell[1853563, 38903, 1294, 20, 70, "Output",ExpressionUUID->"542a5188-c797-44d9-8ac2-668742476465"]
}, Open  ]],
Cell[1854872, 38926, 4332, 109, 129, "Input",ExpressionUUID->"9e4d9ed9-1b56-4558-9000-ec8de551961d"],
Cell[CellGroupData[{
Cell[1859229, 39039, 790, 20, 42, "Input",ExpressionUUID->"7c9e199e-1930-453a-8759-b1d2cb7b69b0"],
Cell[1860022, 39061, 1311, 20, 70, "Output",ExpressionUUID->"a2472abe-7721-464e-b9a2-60dcd3d49760"]
}, Open  ]],
Cell[1861348, 39084, 250, 5, 42, "Input",ExpressionUUID->"d834031a-44c2-46dc-9807-37024ebc37b3"]
}, Closed]],
Cell[CellGroupData[{
Cell[1861635, 39094, 89307, 1469, 134, "Subsubsection",ExpressionUUID->"898b3dbe-11e0-46c0-bae6-43cb7b3573f6"],
Cell[CellGroupData[{
Cell[1950967, 40567, 613, 11, 72, "Input",ExpressionUUID->"927584c9-ba66-4add-bf42-ae54ee654d80"],
Cell[1951583, 40580, 1367, 21, 70, "Output",ExpressionUUID->"5c265e9f-1ab1-4209-a481-a6d54bff2ca8"]
}, Open  ]],
Cell[1952965, 40604, 4521, 112, 129, "Input",ExpressionUUID->"5a4fe47c-8044-47c6-b02e-a616f830544b"],
Cell[CellGroupData[{
Cell[1957511, 40720, 790, 20, 42, "Input",ExpressionUUID->"68d0ccdd-90ee-4606-9bde-f7f57cadd0e6"],
Cell[1958304, 40742, 1368, 20, 70, "Output",ExpressionUUID->"e2bad30c-3801-415a-9c53-5bba317e4e89"]
}, Open  ]],
Cell[1959687, 40765, 250, 5, 42, "Input",ExpressionUUID->"37160722-dac0-4d59-96d0-e0a68d6d1346"]
}, Closed]],
Cell[CellGroupData[{
Cell[1959974, 40775, 43209, 713, 145, "Subsubsection",ExpressionUUID->"89b7b384-8055-477e-b7ea-4cc3979f5551"],
Cell[CellGroupData[{
Cell[2003208, 41492, 715, 12, 78, "Input",ExpressionUUID->"1abed86a-754b-451a-955a-1ad1995486eb"],
Cell[2003926, 41506, 1519, 23, 70, "Output",ExpressionUUID->"5f115c59-675d-4e96-ba35-bef636486742"]
}, Open  ]],
Cell[2005460, 41532, 5442, 129, 295, "Input",ExpressionUUID->"29c29f14-1b7c-4989-93b4-9eea91a3bfb5"],
Cell[CellGroupData[{
Cell[2010927, 41665, 2108, 39, 109, "Input",ExpressionUUID->"580aefe5-938f-4dac-ac93-2a536799a5ae"],
Cell[2013038, 41706, 686, 13, 70, "Output",ExpressionUUID->"00645514-d0d2-40f2-88cd-76f927872b51"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2013773, 41725, 55581, 917, 253, "Subsubsection",ExpressionUUID->"3c792501-93d9-4464-b13c-455b322a6582"],
Cell[2069357, 42644, 694, 18, 109, "Input",ExpressionUUID->"77655209-9aed-4f04-b552-e510dd25d6be"],
Cell[CellGroupData[{
Cell[2070076, 42666, 667, 12, 78, "Input",ExpressionUUID->"38f0b181-d882-4801-b04c-2abd08471ecc"],
Cell[2070746, 42680, 1498, 24, 70, "Output",ExpressionUUID->"4fba257a-bd80-46ed-aade-b41b2d8f54c2"]
}, Open  ]],
Cell[2072259, 42707, 10608, 250, 623, "Input",ExpressionUUID->"cb121cdc-69aa-4b10-bf35-0e1823c3c209"],
Cell[CellGroupData[{
Cell[2082892, 42961, 1048, 26, 51, "Input",ExpressionUUID->"aeb8b756-c487-4371-918d-818b46416bee"],
Cell[2083943, 42989, 1370, 20, 70, "Output",ExpressionUUID->"b509f033-eb70-4ebd-b654-3a2b9b295331"]
}, Open  ]],
Cell[2085328, 43012, 374, 8, 51, "Input",ExpressionUUID->"b1a633bd-9a84-44aa-8771-2db663c66f1b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2085751, 43026, 1207, 23, 93, "Subsection",ExpressionUUID->"9ceccc63-37d3-425f-81f8-413cd3129ebf"],
Cell[CellGroupData[{
Cell[2086983, 43053, 26383, 439, 147, "Subsubsection",ExpressionUUID->"cf97da72-8d45-4b29-b490-e94b044c5b9f"],
Cell[CellGroupData[{
Cell[2113391, 43496, 501, 10, 72, "Input",ExpressionUUID->"9c00e2c0-f892-429f-a77c-90df07fc3dfb"],
Cell[2113895, 43508, 1184, 18, 70, "Output",ExpressionUUID->"42dce4ce-fcdf-43b9-b29f-a1adaaf916fe"]
}, Open  ]],
Cell[2115094, 43529, 4124, 107, 213, "Input",ExpressionUUID->"74c21e31-26a8-4022-beea-8da3fa977501"],
Cell[CellGroupData[{
Cell[2119243, 43640, 790, 20, 42, "Input",ExpressionUUID->"0fac74e7-0c21-4e9c-89e2-df35c204d1f1"],
Cell[2120036, 43662, 1210, 18, 70, "Output",ExpressionUUID->"d653e6df-aa8a-41ac-b448-32bca01d9375"]
}, Open  ]],
Cell[2121261, 43683, 250, 5, 42, "Input",ExpressionUUID->"97569a51-ef04-4e99-b30a-eefea681030f"]
}, Closed]],
Cell[CellGroupData[{
Cell[2121548, 43693, 25325, 421, 130, "Subsubsection",ExpressionUUID->"d30a7d63-b34b-430c-8a71-ba9fd86888fa"],
Cell[CellGroupData[{
Cell[2146898, 44118, 554, 11, 72, "Input",ExpressionUUID->"b9498d3c-bf64-4b99-bb2b-fe3a4c879f47"],
Cell[2147455, 44131, 1234, 19, 70, "Output",ExpressionUUID->"f41c7968-6972-4cf8-8bc9-e1b7dd7b4964"]
}, Open  ]],
Cell[2148704, 44153, 3940, 101, 213, "Input",ExpressionUUID->"f077acb9-c66d-4819-9cf8-36506102c0c6"],
Cell[CellGroupData[{
Cell[2152669, 44258, 790, 20, 42, "Input",ExpressionUUID->"fda659de-80fa-454b-b3df-5891ff40bc5e"],
Cell[2153462, 44280, 1249, 19, 70, "Output",ExpressionUUID->"1ea113aa-5956-47f7-a634-850d8c4eab2b"]
}, Open  ]],
Cell[2154726, 44302, 250, 5, 42, "Input",ExpressionUUID->"93449918-b3b3-4f9c-886d-f9a60bb389c2"]
}, Closed]],
Cell[CellGroupData[{
Cell[2155013, 44312, 27598, 458, 132, "Subsubsection",ExpressionUUID->"fa6d7384-282a-4e99-ae2e-36dc58a078bc"],
Cell[CellGroupData[{
Cell[2182636, 44774, 601, 12, 72, "Input",ExpressionUUID->"bf43df20-741d-4688-a025-51b8d75e5a9b"],
Cell[2183240, 44788, 1292, 20, 70, "Output",ExpressionUUID->"69e5cd93-1f6a-4245-931e-1269f655ac5f"]
}, Open  ]],
Cell[2184547, 44811, 4508, 113, 213, "Input",ExpressionUUID->"96fde46a-982a-4c37-876a-04541fea99b1"],
Cell[CellGroupData[{
Cell[2189080, 44928, 858, 21, 42, "Input",ExpressionUUID->"d3cb4e1f-ce20-4568-8e5b-46c686909d7b"],
Cell[2189941, 44951, 1327, 20, 70, "Output",ExpressionUUID->"876f321a-c929-4c1d-ab32-adb7ccd1e408"]
}, Open  ]],
Cell[2191283, 44974, 250, 5, 42, "Input",ExpressionUUID->"2fae47c4-86c2-41da-baf6-8d2c79097cca"]
}, Closed]],
Cell[CellGroupData[{
Cell[2191570, 44984, 26912, 446, 126, "Subsubsection",ExpressionUUID->"974e8025-d4ee-46ea-b390-1a67079baf77"],
Cell[CellGroupData[{
Cell[2218507, 45434, 649, 12, 72, "Input",ExpressionUUID->"ff501a9e-1066-400f-a486-abb4f4837a81"],
Cell[2219159, 45448, 1332, 20, 70, "Output",ExpressionUUID->"9c52315f-2d0e-4a4b-a064-7d99fe638410"]
}, Open  ]],
Cell[2220506, 45471, 4498, 113, 213, "Input",ExpressionUUID->"b0b40d51-ea19-4ec3-8074-546e0a99c93b"],
Cell[CellGroupData[{
Cell[2225029, 45588, 858, 21, 42, "Input",ExpressionUUID->"a20740b4-efee-465f-bb7f-c21af95614df"],
Cell[2225890, 45611, 1391, 20, 70, "Output",ExpressionUUID->"9a062841-a321-4388-8ba2-4fa4743e15f2"]
}, Open  ]],
Cell[2227296, 45634, 250, 5, 42, "Input",ExpressionUUID->"9ed4aceb-5cdf-454b-a045-babfed12c4dc"]
}, Closed]],
Cell[CellGroupData[{
Cell[2227583, 45644, 27413, 455, 129, "Subsubsection",ExpressionUUID->"2474d928-92ae-45d4-a3b8-1cb0e46ac77c"],
Cell[CellGroupData[{
Cell[2255021, 46103, 555, 11, 72, "Input",ExpressionUUID->"581d401f-db7d-4c87-b27c-c18cf2c4afac"],
Cell[2255579, 46116, 1256, 19, 70, "Output",ExpressionUUID->"23f4d49a-4b43-4f55-bb3b-4e219f3874ca"]
}, Open  ]],
Cell[2256850, 46138, 4267, 109, 213, "Input",ExpressionUUID->"6e875641-194b-4918-b27a-cf786cc316f3"],
Cell[CellGroupData[{
Cell[2261142, 46251, 887, 21, 42, "Input",ExpressionUUID->"b21cea8e-301d-4ecd-8b4b-c790c99e8208"],
Cell[2262032, 46274, 1337, 20, 70, "Output",ExpressionUUID->"328b3800-9296-4fd9-be90-efaffc98a187"]
}, Open  ]],
Cell[2263384, 46297, 250, 5, 69, "Input",ExpressionUUID->"a8e946b7-3510-453c-a670-332c65dd7fda"]
}, Closed]],
Cell[CellGroupData[{
Cell[2263671, 46307, 33099, 546, 129, "Subsubsection",ExpressionUUID->"ef171ea6-84aa-4dfb-ba01-5679b7bbcb27"],
Cell[CellGroupData[{
Cell[2296795, 46857, 773, 14, 72, "Input",ExpressionUUID->"7bbc625d-dcf0-4757-85b2-11c8c528f9e9"],
Cell[2297571, 46873, 1595, 25, 70, "Output",ExpressionUUID->"fdd7a660-b039-41ca-a1f6-f066d5e10acb"]
}, Open  ]],
Cell[2299181, 46901, 6852, 158, 324, "Input",ExpressionUUID->"8183111f-821d-40bd-9c1f-64c8d0ef6172"],
Cell[CellGroupData[{
Cell[2306058, 47063, 2280, 43, 72, "Input",ExpressionUUID->"dc92d93f-e2fb-48e5-99de-3f10952f3408"],
Cell[2308341, 47108, 1599, 23, 70, "Output",ExpressionUUID->"3a7699fd-fff7-4296-8d63-4ce6577d19a0"]
}, Open  ]],
Cell[2309955, 47134, 226, 4, 42, "Input",ExpressionUUID->"4a641855-97c1-470e-a83d-57c5de07be78"]
}, Closed]],
Cell[CellGroupData[{
Cell[2310218, 47143, 60087, 990, 244, "Subsubsection",ExpressionUUID->"91d6d7a0-8ba0-4b61-a1af-da743468caef"],
Cell[2370308, 48135, 745, 19, 105, "Input",ExpressionUUID->"a9040b30-cb65-4719-91a0-56cfc50c1e68"],
Cell[CellGroupData[{
Cell[2371078, 48158, 719, 13, 75, "Input",ExpressionUUID->"84779a7f-eb4a-498c-821d-a0731ea54f15"],
Cell[2371800, 48173, 1578, 25, 70, "Output",ExpressionUUID->"ab04ffed-8d79-45ae-93b2-d822f4c170dc"]
}, Open  ]],
Cell[2373393, 48201, 11866, 279, 285, "Input",ExpressionUUID->"54953f39-d50b-45de-8dc7-696d0405b3a7"],
Cell[CellGroupData[{
Cell[2385284, 48484, 1048, 26, 43, "Input",ExpressionUUID->"12b89c85-88cd-4f63-b25f-12c4930ec506"],
Cell[2386335, 48512, 1422, 21, 70, "Output",ExpressionUUID->"497026fa-35a4-4990-8000-f0e46e4b47d0"]
}, Open  ]],
Cell[2387772, 48536, 374, 8, 43, "Input",ExpressionUUID->"ccaf1bab-e825-4954-9e19-f23dab886f8c"]
}, Closed]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2388207, 48551, 466, 9, 135, "Section",ExpressionUUID->"2bf50357-56b5-4a46-b6f3-0a9c8c2e92b9"],
Cell[CellGroupData[{
Cell[2388698, 48564, 860, 20, 105, "Input",ExpressionUUID->"60a4c4ed-61d9-4acb-8473-5067281d64ca"],
Cell[2389561, 48586, 1351, 20, 70, "Output",ExpressionUUID->"8d1f1564-6c0b-4c70-aa70-7e92cabfee91"],
Cell[2390915, 48608, 1348, 20, 70, "Output",ExpressionUUID->"fd5c3eeb-00ae-40b8-92f8-25ee71ec48ad"],
Cell[2392266, 48630, 1348, 20, 70, "Output",ExpressionUUID->"a12700da-56e7-4597-ba6b-736e4faf9cfc"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2393663, 48656, 730, 19, 94, "Section",ExpressionUUID->"0c784d38-3c42-4953-baa1-16996110b7c1"],
Cell[CellGroupData[{
Cell[2394418, 48679, 641, 9, 81, "Subsection",ExpressionUUID->"0debaf7f-8c26-4a23-8ee5-7bcaf52a1b74"],
Cell[2395062, 48690, 411, 9, 75, "Input",ExpressionUUID->"92a13c16-10de-4f05-b1ca-799e7ff534d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2395510, 48704, 1259, 25, 94, "Subsection",ExpressionUUID->"818c17af-9e12-49fc-af55-eb7c54ee0804"],
Cell[CellGroupData[{
Cell[2396794, 48733, 23007, 383, 150, "Subsubsection",ExpressionUUID->"570b6be1-482d-457c-a792-e7628d362719"],
Cell[CellGroupData[{
Cell[2419826, 49120, 451, 10, 72, "Input",ExpressionUUID->"e82d4350-8219-4382-a48f-d33d0d568e74"],
Cell[2420280, 49132, 1326, 20, 70, "Output",ExpressionUUID->"a4f653e8-699c-4475-b2c3-129afd2611dd"]
}, Open  ]],
Cell[2421621, 49155, 3551, 95, 168, "Input",ExpressionUUID->"25d9e5ad-851a-451a-907e-b5215f8b8ad2"],
Cell[CellGroupData[{
Cell[2425197, 49254, 834, 20, 42, "Input",ExpressionUUID->"de608e23-9759-4f3c-9415-ef5641281517"],
Cell[2426034, 49276, 1328, 20, 70, "Output",ExpressionUUID->"fb48d7ce-e2b2-4f15-9913-0c5d6d6ad736"]
}, Open  ]],
Cell[2427377, 49299, 250, 5, 69, "Input",ExpressionUUID->"6d62d27b-b0bf-4350-b1a3-9b3dbe286317"]
}, Closed]],
Cell[CellGroupData[{
Cell[2427664, 49309, 24071, 400, 139, "Subsubsection",ExpressionUUID->"a253f32e-933e-4dfb-8cb2-ce0730ce9beb"],
Cell[CellGroupData[{
Cell[2451760, 49713, 491, 10, 72, "Input",ExpressionUUID->"9e0a1e93-958b-4976-a72b-7dff01f16dc4"],
Cell[2452254, 49725, 1188, 18, 70, "Output",ExpressionUUID->"e6614ea0-9147-4625-958d-4adb8d51ff4f"]
}, Open  ]],
Cell[2453457, 49746, 3595, 96, 168, "Input",ExpressionUUID->"1fd42138-7a35-4c47-980c-669e5a203f28"],
Cell[CellGroupData[{
Cell[2457077, 49846, 790, 20, 42, "Input",ExpressionUUID->"8fa5e0f2-e850-48cb-8f78-2fbb96dd873d"],
Cell[2457870, 49868, 1226, 18, 70, "Output",ExpressionUUID->"f7b97bbd-455e-464e-aae5-d0abcbc90ab3"]
}, Open  ]],
Cell[2459111, 49889, 250, 5, 69, "Input",ExpressionUUID->"e12809b3-eac5-4d2d-b5ee-2733b21fb292"]
}, Closed]],
Cell[CellGroupData[{
Cell[2459398, 49899, 24011, 398, 132, "Subsubsection",ExpressionUUID->"b1418008-4bfa-4238-9bee-233159dcd7a7"],
Cell[CellGroupData[{
Cell[2483434, 50301, 519, 11, 72, "Input",ExpressionUUID->"f3c5043d-d0e8-449d-98ad-c2abbc4c0836"],
Cell[2483956, 50314, 1296, 20, 70, "Output",ExpressionUUID->"6112ea05-69f2-43b0-82de-8fd6fd4e9ddb"]
}, Open  ]],
Cell[2485267, 50337, 4118, 103, 130, "Input",ExpressionUUID->"e37e861f-bad7-4ad7-84e5-44b9a088830b"],
Cell[CellGroupData[{
Cell[2489410, 50444, 862, 21, 42, "Input",ExpressionUUID->"a229da9f-dd42-49fd-8369-2ca988bb05f0"],
Cell[2490275, 50467, 1288, 19, 70, "Output",ExpressionUUID->"f2951e95-3aa8-4958-827c-694de5826309"]
}, Open  ]],
Cell[2491578, 50489, 250, 5, 69, "Input",ExpressionUUID->"37216610-d345-40c1-a2d1-29fe9c90f673"]
}, Closed]],
Cell[CellGroupData[{
Cell[2491865, 50499, 25600, 425, 138, "Subsubsection",ExpressionUUID->"31cf2f63-404f-448a-a7bf-08bca8b9d704"],
Cell[CellGroupData[{
Cell[2517490, 50928, 567, 11, 72, "Input",ExpressionUUID->"1b707d05-2b78-4624-ad38-d66301ab47f3"],
Cell[2518060, 50941, 1321, 20, 70, "Output",ExpressionUUID->"b4194b49-8003-4f6e-acb3-9ed60ef985b5"]
}, Open  ]],
Cell[2519396, 50964, 4382, 110, 159, "Input",ExpressionUUID->"90a00ff4-1c12-405a-a853-92e7164ddbf3"],
Cell[CellGroupData[{
Cell[2523803, 51078, 790, 20, 42, "Input",ExpressionUUID->"c4787b47-98b0-410b-8a52-0384d98f11e3"],
Cell[2524596, 51100, 1351, 20, 70, "Output",ExpressionUUID->"03956261-5cfc-4efd-b345-811337a171e0"]
}, Open  ]],
Cell[2525962, 51123, 250, 5, 69, "Input",ExpressionUUID->"9ae419c5-ee22-418b-8767-34e2e15b2f17"]
}, Closed]],
Cell[CellGroupData[{
Cell[2526249, 51133, 23120, 384, 154, "Subsubsection",ExpressionUUID->"c009505a-3461-4976-9a9b-517653f44de4"],
Cell[CellGroupData[{
Cell[2549394, 51521, 613, 11, 72, "Input",ExpressionUUID->"73bd0ee5-0ec4-41f9-ae8e-47952abb7fee"],
Cell[2550010, 51534, 1457, 22, 70, "Output",ExpressionUUID->"a5293170-1167-4aa2-94e3-ee4a55f5696f"]
}, Open  ]],
Cell[2551482, 51559, 4573, 113, 159, "Input",ExpressionUUID->"f88dad10-498f-44d2-92dd-65b45f1fcb5c"],
Cell[CellGroupData[{
Cell[2556080, 51676, 790, 20, 42, "Input",ExpressionUUID->"4a2f4706-e15e-4313-8d49-8224568f9038"],
Cell[2556873, 51698, 1442, 21, 70, "Output",ExpressionUUID->"e2bb3409-45ff-4f22-bda0-61f58fd61902"]
}, Open  ]],
Cell[2558330, 51722, 250, 5, 69, "Input",ExpressionUUID->"3984b89c-7289-49cd-91e2-a3ba9e851399"]
}, Closed]],
Cell[CellGroupData[{
Cell[2558617, 51732, 29321, 484, 147, "Subsubsection",ExpressionUUID->"a447912a-1d13-41ae-b455-78071e7bf5cf"],
Cell[CellGroupData[{
Cell[2587963, 52220, 715, 12, 72, "Input",ExpressionUUID->"04e69f79-4f0a-4b02-981d-70f23aa20b99"],
Cell[2588681, 52234, 1581, 24, 70, "Output",ExpressionUUID->"dd6c229e-572e-475f-b6b6-412b4b2b6418"]
}, Open  ]],
Cell[2590277, 52261, 5573, 132, 217, "Input",ExpressionUUID->"46249d89-320e-4ce8-9d81-e5d68432bab1"],
Cell[CellGroupData[{
Cell[2595875, 52397, 2108, 39, 72, "Input",ExpressionUUID->"e74a8908-1113-4935-bf9b-5b556ee28bc9"],
Cell[2597986, 52438, 1472, 22, 70, "Output",ExpressionUUID->"04002f26-42b5-4689-80fa-ce3b42827a7f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2599507, 52466, 58277, 961, 278, "Subsubsection",ExpressionUUID->"185687ce-56ff-402e-a157-e55a983bc37c"],
Cell[2657787, 53429, 729, 19, 108, "Input",ExpressionUUID->"9ab20625-2605-4698-bbad-0d9eb7db4ba5"],
Cell[CellGroupData[{
Cell[2658541, 53452, 667, 12, 76, "Input",ExpressionUUID->"fa367f4e-5b8f-45cd-8ef4-a41fa279abcc"],
Cell[2659211, 53466, 1679, 26, 70, "Output",ExpressionUUID->"7e563361-bd6f-46e7-8c40-668d99dffce9"]
}, Open  ]],
Cell[2660905, 53495, 11365, 265, 657, "Input",ExpressionUUID->"a96dc2a0-6a68-4d2d-80c1-749e5a33ce0e"],
Cell[CellGroupData[{
Cell[2672295, 53764, 1221, 29, 76, "Input",ExpressionUUID->"e8f50692-b4f4-4857-8dd3-af808e7d18cf"],
Cell[2673519, 53795, 1541, 23, 70, "Output",ExpressionUUID->"d33feb4a-5d97-4555-8eb5-9286e5acc40f"]
}, Open  ]],
Cell[2675075, 53821, 374, 8, 44, "Input",ExpressionUUID->"4f85f125-214b-4434-bb75-3e53ca687de5"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2675498, 53835, 1283, 25, 70, "Subsection",ExpressionUUID->"ec0b653a-b0cb-408f-ae95-5b5e66778716"],
Cell[CellGroupData[{
Cell[2676806, 53864, 27052, 449, 154, "Subsubsection",ExpressionUUID->"71b27233-de5c-41c9-882a-917bab0641a6"],
Cell[CellGroupData[{
Cell[2703883, 54317, 501, 10, 72, "Input",ExpressionUUID->"56dc098d-8899-41c6-b61b-88b3e40c5701"],
Cell[2704387, 54329, 1242, 19, 70, "Output",ExpressionUUID->"c07c5265-1bb6-4180-8413-bb11e864425d"]
}, Open  ]],
Cell[2705644, 54351, 4128, 106, 213, "Input",ExpressionUUID->"2e8ce957-20b2-4541-993d-16bb4b68b8f9"],
Cell[CellGroupData[{
Cell[2709797, 54461, 790, 20, 42, "Input",ExpressionUUID->"853e2754-d513-49b2-ba5d-1a5777e6bf00"],
Cell[2710590, 54483, 1259, 19, 70, "Output",ExpressionUUID->"6b3f1adb-bd8a-42fb-9958-2aad74e5eec4"]
}, Open  ]],
Cell[2711864, 54505, 250, 5, 69, "Input",ExpressionUUID->"742737c3-2963-46fb-80a4-c2afeef4ddb6"]
}, Closed]],
Cell[CellGroupData[{
Cell[2712151, 54515, 25722, 427, 145, "Subsubsection",ExpressionUUID->"422062e4-9209-4f13-8a06-2da6223acaca"],
Cell[CellGroupData[{
Cell[2737898, 54946, 554, 11, 72, "Input",ExpressionUUID->"e4dbf513-2cc3-4853-bdd3-0fd312bb745a"],
Cell[2738455, 54959, 1293, 20, 70, "Output",ExpressionUUID->"a78578c1-248b-4e6f-8452-3318df12590f"]
}, Open  ]],
Cell[2739763, 54982, 3985, 101, 213, "Input",ExpressionUUID->"9a75a946-2ab5-4334-9c08-27fcf64a77d9"],
Cell[CellGroupData[{
Cell[2743773, 55087, 790, 20, 42, "Input",ExpressionUUID->"0d42ed06-bda8-4c98-917c-5e3809ecaaea"],
Cell[2744566, 55109, 1307, 19, 70, "Output",ExpressionUUID->"8f836bbe-1e34-441f-8e49-87355bd52290"]
}, Open  ]],
Cell[2745888, 55131, 250, 5, 69, "Input",ExpressionUUID->"35af6183-dbb7-4d34-a5f2-c0b1363cd94b"]
}, Closed]],
Cell[CellGroupData[{
Cell[2746175, 55141, 28926, 479, 141, "Subsubsection",ExpressionUUID->"999a432a-5089-45ab-a503-8b49792b68b4"],
Cell[CellGroupData[{
Cell[2775126, 55624, 601, 12, 72, "Input",ExpressionUUID->"dc238272-4bc1-49b5-bdad-c4ce0951c1dc"],
Cell[2775730, 55638, 1427, 22, 70, "Output",ExpressionUUID->"2129879e-ec71-4867-b16e-0fb41aebdde5"]
}, Open  ]],
Cell[2777172, 55663, 4659, 115, 213, "Input",ExpressionUUID->"52735757-04fc-4b8f-8014-4914b22c6d1a"],
Cell[CellGroupData[{
Cell[2781856, 55782, 858, 21, 42, "Input",ExpressionUUID->"3b28b47e-cf27-479a-b77f-b2dc18d46676"],
Cell[2782717, 55805, 1482, 22, 70, "Output",ExpressionUUID->"b754d37d-9c7b-45d7-85ed-39ae2a983374"]
}, Open  ]],
Cell[2784214, 55830, 250, 5, 42, "Input",ExpressionUUID->"e6d275cf-6a48-4a4b-a225-1e57a934e792"]
}, Closed]],
Cell[CellGroupData[{
Cell[2784501, 55840, 27858, 462, 142, "Subsubsection",ExpressionUUID->"53aff6bf-6845-4760-b424-e96b590956f3"],
Cell[CellGroupData[{
Cell[2812384, 56306, 649, 12, 72, "Input",ExpressionUUID->"f99ba893-6bf3-421a-a38b-c0aa99439aaf"],
Cell[2813036, 56320, 1451, 22, 70, "Output",ExpressionUUID->"7a60d5b6-efc8-4ace-928e-9c38ea2d5210"]
}, Open  ]],
Cell[2814502, 56345, 4541, 114, 213, "Input",ExpressionUUID->"17562af1-8007-4bf9-b8ac-6a50b6f2e8fe"],
Cell[CellGroupData[{
Cell[2819068, 56463, 858, 21, 42, "Input",ExpressionUUID->"0df541fa-fae9-4b9e-aa4e-5431545ebcbd"],
Cell[2819929, 56486, 1472, 22, 70, "Output",ExpressionUUID->"2d4c5876-bd74-4d30-8a63-6ca462eddc74"]
}, Open  ]],
Cell[2821416, 56511, 250, 5, 69, "Input",ExpressionUUID->"626a2266-ff86-488a-ade6-2e579d283812"]
}, Closed]],
Cell[CellGroupData[{
Cell[2821703, 56521, 26372, 438, 146, "Subsubsection",ExpressionUUID->"9e76dc3c-22f2-4deb-86a9-3fc87d9d873e"],
Cell[CellGroupData[{
Cell[2848100, 56963, 555, 11, 72, "Input",ExpressionUUID->"844533d8-6a12-4e47-86f8-3bfb5c02e91a"],
Cell[2848658, 56976, 1290, 20, 70, "Output",ExpressionUUID->"c3f3546d-67db-4c6b-bd25-da620e001d61"]
}, Open  ]],
Cell[2849963, 56999, 4267, 108, 213, "Input",ExpressionUUID->"621c579b-f4c6-4e2f-b394-b14c56b9ff12"],
Cell[CellGroupData[{
Cell[2854255, 57111, 887, 21, 42, "Input",ExpressionUUID->"b80d2c33-e487-4df5-969c-ccf14ed697f4"],
Cell[2855145, 57134, 1375, 20, 70, "Output",ExpressionUUID->"f312ed8b-881d-4143-8c64-657933f3e41e"]
}, Open  ]],
Cell[2856535, 57157, 250, 5, 69, "Input",ExpressionUUID->"8019479e-3ca1-4d08-a3cd-3c2edd746625"]
}, Closed]],
Cell[CellGroupData[{
Cell[2856822, 57167, 33426, 551, 145, "Subsubsection",ExpressionUUID->"9a5f3f3d-529d-455e-aae3-f7d16d301e9b"],
Cell[CellGroupData[{
Cell[2890273, 57722, 773, 14, 72, "Input",ExpressionUUID->"515696e7-b296-4236-9f46-1b571f46dbfb"],
Cell[2891049, 57738, 1752, 27, 70, "Output",ExpressionUUID->"88bd690a-8f6a-42f7-a264-70b9fb5a745c"]
}, Open  ]],
Cell[2892816, 57768, 7023, 160, 352, "Input",ExpressionUUID->"c21b1069-f5b7-488f-9acf-1e122e0cf4ae"],
Cell[CellGroupData[{
Cell[2899864, 57932, 2356, 44, 72, "Input",ExpressionUUID->"40094c7c-997b-446d-b143-894309c4bbc2"],
Cell[2902223, 57978, 1804, 26, 70, "Output",ExpressionUUID->"61361ff2-dca4-4a18-b09e-1f534b1bbd18"]
}, Open  ]],
Cell[2904042, 58007, 226, 4, 69, "Input",ExpressionUUID->"2cc2ace9-6c3b-4140-b731-258af33ce3fb"]
}, Closed]],
Cell[CellGroupData[{
Cell[2904305, 58016, 58309, 961, 277, "Subsubsection",ExpressionUUID->"aa42c791-4870-4fd8-b411-2891bb0592c5"],
Cell[2962617, 58979, 868, 22, 108, "Input",ExpressionUUID->"7f570c54-452b-47bc-8772-88e870933681"],
Cell[CellGroupData[{
Cell[2963510, 59005, 719, 13, 76, "Input",ExpressionUUID->"b37b68f4-ac59-4b4e-9b62-7d1a05d3a7f3"],
Cell[2964232, 59020, 1739, 27, 70, "Output",ExpressionUUID->"819704a3-4a79-4da3-ac7d-251f4ed92c00"]
}, Open  ]],
Cell[2965986, 59050, 11477, 262, 564, "Input",ExpressionUUID->"ea1c2fd5-6d92-4bca-a26c-f261d5d2e112"],
Cell[CellGroupData[{
Cell[2977488, 59316, 1048, 26, 76, "Input",ExpressionUUID->"6af6d17c-cd4e-4cac-abc0-9fb6aa711449"],
Cell[2978539, 59344, 1559, 23, 70, "Output",ExpressionUUID->"8d7da55a-0aba-42f6-b173-bcf3bbd46746"]
}, Open  ]],
Cell[2980113, 59370, 374, 8, 44, "Input",ExpressionUUID->"881be4b0-61fb-41e7-9c1d-608480d41c2d"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2980548, 59385, 513, 10, 135, "Section",ExpressionUUID->"9b4cd258-bb57-4366-b5c3-19dd043d3e20"],
Cell[CellGroupData[{
Cell[2981086, 59399, 860, 20, 109, "Input",ExpressionUUID->"c0002082-2868-482e-98cd-15f72b9a20a5"],
Cell[2981949, 59421, 917, 14, 70, "Output",ExpressionUUID->"578df8a1-55f8-4a81-8d68-3b4ff94092b8"],
Cell[2982869, 59437, 914, 14, 70, "Output",ExpressionUUID->"c347687e-527f-485c-857d-ffbb9fae6dc2"],
Cell[2983786, 59453, 914, 14, 70, "Output",ExpressionUUID->"c2209ea9-eb4a-4bee-a097-cf5c96944ecd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2984749, 59473, 751, 18, 117, "Section",ExpressionUUID->"207c6e73-a978-4fe9-b8be-d6c143d9fcd9"],
Cell[CellGroupData[{
Cell[2985525, 59495, 641, 9, 81, "Subsection",ExpressionUUID->"bb3dd1a9-d55e-43dd-a76f-61bdc1838322"],
Cell[2986169, 59506, 459, 9, 90, "Input",ExpressionUUID->"377b3ecc-c91f-4ff0-95a8-f0ee993db604"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2986665, 59520, 1242, 24, 94, "Subsection",ExpressionUUID->"f8844fd6-a00b-412f-9b37-8db05aa2476c"],
Cell[CellGroupData[{
Cell[2987932, 59548, 19434, 324, 79, "Subsubsection",ExpressionUUID->"18c282bb-bf1b-4f64-9898-5204139cd0e0"],
Cell[CellGroupData[{
Cell[3007391, 59876, 529, 11, 75, "Input",ExpressionUUID->"80cbc7f4-3569-45a4-8499-66c7784aee7f"],
Cell[3007923, 59889, 1218, 19, 70, "Output",ExpressionUUID->"b5f7dec0-cff2-49be-8823-f09ec0bedbd0"]
}, Open  ]],
Cell[3009156, 59911, 3395, 86, 141, "Input",ExpressionUUID->"33c2c62e-6be3-4666-b33d-c44c9988c8b1"],
Cell[CellGroupData[{
Cell[3012576, 60001, 790, 20, 43, "Input",ExpressionUUID->"df9ae35c-5d9f-457a-a43d-efc97aa0a6f6"],
Cell[3013369, 60023, 1224, 18, 70, "Output",ExpressionUUID->"37da6306-32a3-4abe-b5fc-dae62687fdf4"]
}, Open  ]],
Cell[3014608, 60044, 250, 5, 43, "Input",ExpressionUUID->"8806ecb7-07be-4a8c-9e16-bd477fdf525f"]
}, Closed]],
Cell[CellGroupData[{
Cell[3014895, 60054, 16598, 278, 72, "Subsubsection",ExpressionUUID->"4dec8107-e9b9-49a4-9f13-eb9a3896762e"],
Cell[CellGroupData[{
Cell[3031518, 60336, 585, 12, 72, "Input",ExpressionUUID->"268bff17-0113-4831-a32c-5b7f270059ef"],
Cell[3032106, 60350, 1361, 21, 70, "Output",ExpressionUUID->"81da5548-5639-4bd3-a228-5382f85ca987"]
}, Open  ]],
Cell[3033482, 60374, 3160, 80, 130, "Input",ExpressionUUID->"bfee47f2-d516-4e2f-8d7a-b2146a33c6ed"],
Cell[CellGroupData[{
Cell[3036667, 60458, 790, 20, 42, "Input",ExpressionUUID->"574d615e-cb84-458b-b6cc-5c07c765b665"],
Cell[3037460, 60480, 1371, 20, 70, "Output",ExpressionUUID->"9e09d7de-9e93-49e1-9e44-2866c34918fb"]
}, Open  ]],
Cell[3038846, 60503, 250, 5, 42, "Input",ExpressionUUID->"e68f8de7-a5d5-4faa-8935-39fe91065e24"]
}, Closed]],
Cell[CellGroupData[{
Cell[3039133, 60513, 18203, 304, 75, "Subsubsection",ExpressionUUID->"cd28ff75-95e5-4354-89bf-cd4569882567"],
Cell[CellGroupData[{
Cell[3057361, 60821, 627, 12, 72, "Input",ExpressionUUID->"ca27befb-4c77-4aea-8668-c1b3a6520560"],
Cell[3057991, 60835, 1509, 23, 70, "Output",ExpressionUUID->"cb436141-a93f-451a-9b29-f195c429ae2c"]
}, Open  ]],
Cell[3059515, 60861, 3414, 84, 102, "Input",ExpressionUUID->"5c765328-6a66-4c97-aacd-95feaefe5fe5"],
Cell[CellGroupData[{
Cell[3062954, 60949, 858, 21, 42, "Input",ExpressionUUID->"66cf1379-7809-49da-9411-4c0517153620"],
Cell[3063815, 60972, 1525, 22, 70, "Output",ExpressionUUID->"29ee6bc1-e719-4fc9-bf06-cfc297cdaace"]
}, Open  ]],
Cell[3065355, 60997, 250, 5, 69, "Input",ExpressionUUID->"3b92fd91-7939-4a4f-b5db-7483ea921893"]
}, Closed]],
Cell[CellGroupData[{
Cell[3065642, 61007, 13596, 227, 78, "Subsubsection",ExpressionUUID->"53aed0f2-4096-40a6-8120-8957dba1b693"],
Cell[CellGroupData[{
Cell[3079263, 61238, 675, 12, 72, "Input",ExpressionUUID->"c51e84ea-110c-4eb9-affe-63b5100fd553"],
Cell[3079941, 61252, 1526, 23, 70, "Output",ExpressionUUID->"394d8226-dec6-4a6f-9741-29d8f5106695"]
}, Open  ]],
Cell[3081482, 61278, 2586, 59, 102, "Input",ExpressionUUID->"82688c43-8705-4332-8b67-3308cba6b081"],
Cell[CellGroupData[{
Cell[3084093, 61341, 858, 21, 42, "Input",ExpressionUUID->"d1bcf5eb-8025-4e07-9aa7-7b0a1ee60517"],
Cell[3084954, 61364, 1516, 22, 70, "Output",ExpressionUUID->"09b9d6e7-66d2-4353-90f4-0a535ccd25cf"]
}, Open  ]],
Cell[3086485, 61389, 250, 5, 69, "Input",ExpressionUUID->"53708261-c1d7-445b-ac0a-bcdf9c898ca4"]
}, Closed]],
Cell[CellGroupData[{
Cell[3086772, 61399, 13255, 222, 73, "Subsubsection",ExpressionUUID->"add65f6f-5482-49e1-b40c-71c8c0ad5350"],
Cell[CellGroupData[{
Cell[3100052, 61625, 703, 13, 72, "Input",ExpressionUUID->"ce88ad36-411e-4ae1-95f3-1eba42ea4dda"],
Cell[3100758, 61640, 1555, 23, 70, "Output",ExpressionUUID->"13195f2e-231f-4dee-a752-e1482df4e342"]
}, Open  ]],
Cell[3102328, 61666, 2651, 61, 102, "Input",ExpressionUUID->"18b1a953-be44-4d5d-bc1e-042bf89087d2"],
Cell[CellGroupData[{
Cell[3105004, 61731, 858, 21, 42, "Input",ExpressionUUID->"7f9f0b3d-a214-46a2-8ae4-8e50834aa519"],
Cell[3105865, 61754, 1553, 23, 70, "Output",ExpressionUUID->"14c8665c-b5db-4ab3-8281-6a62afb7b6d9"]
}, Open  ]],
Cell[3107433, 61780, 250, 5, 69, "Input",ExpressionUUID->"e2fc8916-92e3-46eb-89a4-629ee0ff4077"]
}, Closed]],
Cell[CellGroupData[{
Cell[3107720, 61790, 28006, 463, 129, "Subsubsection",ExpressionUUID->"4e690dc7-12d4-4c4b-aa30-f06db8ec72ae"],
Cell[CellGroupData[{
Cell[3135751, 62257, 715, 12, 90, "Input",ExpressionUUID->"04277b0a-8e0e-4c44-ae95-6ae08f4c1b5a"],
Cell[3136469, 62271, 1652, 25, 70, "Output",ExpressionUUID->"93f5a966-3141-445c-ace3-955331787ef4"]
}, Open  ]],
Cell[3138136, 62299, 5158, 118, 162, "Input",ExpressionUUID->"3a1fcb48-4ca7-4dcc-bda0-7f3a93661da1"],
Cell[CellGroupData[{
Cell[3143319, 62421, 2108, 39, 51, "Input",ExpressionUUID->"e24fc3e3-0de6-4926-90a8-a095f479039b"],
Cell[3145430, 62462, 1521, 22, 70, "Output",ExpressionUUID->"84b46beb-956a-4330-98b5-06ecb74ccaa9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[3147000, 62490, 38655, 641, 214, "Subsubsection",ExpressionUUID->"6d3abbfa-6d64-43ea-be98-6b005cf19455"],
Cell[3185658, 63133, 1865, 54, 184, "Input",ExpressionUUID->"77563f17-3066-4334-8def-ad3e752aa24f"],
Cell[CellGroupData[{
Cell[3187548, 63191, 715, 12, 76, "Input",ExpressionUUID->"1dc43ffe-5dd0-4f9e-b5db-bbe6ff02fda0"],
Cell[3188266, 63205, 1895, 29, 70, "Output",ExpressionUUID->"c0875058-f151-4947-a0e0-8dde6750f986"]
}, Open  ]],
Cell[3190176, 63237, 11571, 267, 420, "Input",ExpressionUUID->"0afc20e2-b0f3-4e43-99dc-5e85f9a37428"],
Cell[CellGroupData[{
Cell[3201772, 63508, 1295, 30, 76, "Input",ExpressionUUID->"7a881ed9-122b-4573-8e65-340f9bf44d07"],
Cell[3203070, 63540, 1741, 25, 70, "Output",ExpressionUUID->"25ee95e2-4ab4-4cc4-8495-063577924f81"]
}, Open  ]],
Cell[3204826, 63568, 374, 8, 44, "Input",ExpressionUUID->"1fa93b17-1f8b-45c2-88fe-a94248831a91"]
}, Closed]],
Cell[CellGroupData[{
Cell[3205237, 63581, 18104, 303, 85, "Subsubsection",ExpressionUUID->"44b90fa9-641f-4f15-8cbb-666a36b80c93"],
Cell[CellGroupData[{
Cell[3223366, 63888, 475, 10, 72, "Input",ExpressionUUID->"733528d6-0221-4385-bf25-1ecaf235c63a"],
Cell[3223844, 63900, 1370, 21, 70, "Output",ExpressionUUID->"d1de06f0-c51d-4ef4-ad0d-4737ad4d8c38"]
}, Open  ]],
Cell[3225229, 63924, 3205, 83, 168, "Input",ExpressionUUID->"e1447aed-c72e-44b1-8844-790e4ffeb508"],
Cell[CellGroupData[{
Cell[3228459, 64011, 834, 20, 42, "Input",ExpressionUUID->"0eb7af85-2405-4d88-b8ab-ac04df7bcc37"],
Cell[3229296, 64033, 1356, 20, 70, "Output",ExpressionUUID->"477978f5-6e7a-4593-b6e1-562ae6cb983b"]
}, Open  ]],
Cell[3230667, 64056, 250, 5, 69, "Input",ExpressionUUID->"28260de8-a442-4868-9d08-de72a4ec9423"]
}, Closed]],
Cell[CellGroupData[{
Cell[3230954, 64066, 11878, 200, 76, "Subsubsection",ExpressionUUID->"5477656e-fc53-401b-9266-c5dc371a2630"],
Cell[CellGroupData[{
Cell[3242857, 64270, 521, 11, 72, "Input",ExpressionUUID->"bceb44a6-b8f4-40e5-96ac-5d2939806024"],
Cell[3243381, 64283, 1242, 19, 70, "Output",ExpressionUUID->"37340005-a4f6-4989-83fe-482f1344a0ff"]
}, Open  ]],
Cell[3244638, 64305, 2051, 53, 102, "Input",ExpressionUUID->"1bd15189-6d9e-4467-a64e-74a0938856a2"],
Cell[CellGroupData[{
Cell[3246714, 64362, 790, 20, 42, "Input",ExpressionUUID->"cc3e4894-0b82-474b-b5ed-03d0f94692ae"],
Cell[3247507, 64384, 1245, 19, 70, "Output",ExpressionUUID->"94bfb80c-3270-4809-affd-8bf83ae2cd43"]
}, Open  ]],
Cell[3248767, 64406, 250, 5, 69, "Input",ExpressionUUID->"15b859de-eab0-45dd-9e01-08d32d49f64c"]
}, Closed]],
Cell[CellGroupData[{
Cell[3249054, 64416, 11696, 196, 81, "Subsubsection",ExpressionUUID->"7db37e87-4608-4214-8545-560b6d813a8c"],
Cell[CellGroupData[{
Cell[3260775, 64616, 570, 11, 72, "Input",ExpressionUUID->"a09ace34-507c-44a8-997b-a6f55c5e9e8d"],
Cell[3261348, 64629, 1318, 20, 70, "Output",ExpressionUUID->"e0c24668-212c-4970-9144-815dfdf9bf91"]
}, Open  ]],
Cell[3262681, 64652, 2197, 53, 72, "Input",ExpressionUUID->"81443141-03b6-4788-a372-24b3e191d633"],
Cell[CellGroupData[{
Cell[3264903, 64709, 862, 21, 42, "Input",ExpressionUUID->"a5dccd62-31d5-4a4c-a418-1e9a40a70dfb"],
Cell[3265768, 64732, 1335, 20, 70, "Output",ExpressionUUID->"a3e3b110-6a49-4e41-b172-0ec0ec8fd5a7"]
}, Open  ]],
Cell[3267118, 64755, 250, 5, 69, "Input",ExpressionUUID->"6d9d658f-8cf9-4d6d-8206-3580251216cc"]
}, Closed]],
Cell[CellGroupData[{
Cell[3267405, 64765, 27863, 463, 144, "Subsubsection",ExpressionUUID->"489dd30c-702c-4269-8f2c-6a9bbaab615b"],
Cell[CellGroupData[{
Cell[3295293, 65232, 617, 12, 72, "Input",ExpressionUUID->"87f1ae72-dff2-4019-8a79-5d556ed4e211"],
Cell[3295913, 65246, 1391, 21, 70, "Output",ExpressionUUID->"44d5d0fd-3edd-4a62-b5f3-8fbaacdca6ff"]
}, Open  ]],
Cell[3297319, 65270, 5178, 130, 241, "Input",ExpressionUUID->"d97eff12-76dc-4bac-8159-b51b1dbfd2fd"],
Cell[CellGroupData[{
Cell[3302522, 65404, 790, 20, 42, "Input",ExpressionUUID->"932d0f29-4d77-488b-b53d-10b20f742ad9"],
Cell[3303315, 65426, 1394, 21, 70, "Output",ExpressionUUID->"fd5a8217-21be-4147-a68e-fa4581a7f03f"]
}, Open  ]],
Cell[3304724, 65450, 250, 5, 42, "Input",ExpressionUUID->"3d53bf77-2b01-4b25-ab08-99704a740eeb"]
}, Closed]],
Cell[CellGroupData[{
Cell[3305011, 65460, 19371, 323, 91, "Subsubsection",ExpressionUUID->"38a58f7a-116c-405d-b2c5-803a8e7ed327"],
Cell[CellGroupData[{
Cell[3324407, 65787, 528, 11, 72, "Input",ExpressionUUID->"c3072e66-29e3-400d-8e5a-9f0eda46b59a"],
Cell[3324938, 65800, 1509, 23, 70, "Output",ExpressionUUID->"7376ef40-144f-4864-87a8-326d1c6a1e1d"]
}, Open  ]],
Cell[3326462, 65826, 3363, 86, 168, "Input",ExpressionUUID->"bd7c3e54-78f5-4d8a-832b-b34ab7e075b7"],
Cell[CellGroupData[{
Cell[3329850, 65916, 910, 21, 42, "Input",ExpressionUUID->"0d024189-be16-47df-9eab-5abe4ef3569b"],
Cell[3330763, 65939, 1446, 21, 70, "Output",ExpressionUUID->"28c29f4c-bad3-49bf-a2d6-f6185b0bb1e2"]
}, Open  ]],
Cell[3332224, 65963, 250, 5, 69, "Input",ExpressionUUID->"322dc9d8-eaa9-47a1-9d34-027d25dbf752"]
}, Closed]],
Cell[CellGroupData[{
Cell[3332511, 65973, 21128, 349, 72, "Subsubsection",ExpressionUUID->"88f6a2d6-dbb9-400d-ae16-88734c45d289"],
Cell[CellGroupData[{
Cell[3353664, 66326, 773, 14, 90, "Input",ExpressionUUID->"2819096a-b3e4-46d8-a765-8cd0c783bbd6"],
Cell[3354440, 66342, 1811, 28, 70, "Output",ExpressionUUID->"e9952580-c357-4134-b057-f0636dc239dd"]
}, Open  ]],
Cell[3356266, 66373, 5865, 131, 160, "Input",ExpressionUUID->"06d4d0ba-485e-44cc-9dc7-c86f5366d2ea"],
Cell[CellGroupData[{
Cell[3362156, 66508, 2356, 44, 51, "Input",ExpressionUUID->"7d0f5adb-3be4-4e04-a416-06cdcbdf8cb3"],
Cell[3364515, 66554, 1842, 27, 70, "Output",ExpressionUUID->"117844b2-2862-4b5b-8fbb-150ffef17623"]
}, Open  ]],
Cell[3366372, 66584, 226, 4, 51, "Input",ExpressionUUID->"6896d314-dfcb-45dc-96ae-dd3c7ddb8a9b"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3366647, 66594, 62729, 1041, 252, "Subsection",ExpressionUUID->"49c47d10-8efc-44ac-84c6-e8a28c3f8f5e"],
Cell[3429379, 67637, 1681, 50, 108, "Input",ExpressionUUID->"056fffce-b929-4b4d-9fda-3d2060772f5a"],
Cell[CellGroupData[{
Cell[3431085, 67691, 718, 13, 76, "Input",ExpressionUUID->"4e8af0f3-0672-4597-8f49-ec7e7964acf2"],
Cell[3431806, 67706, 1771, 27, 70, "Output",ExpressionUUID->"b1dc87a6-13c6-4686-8964-013b995fa929"]
}, Open  ]],
Cell[3433592, 67736, 12879, 301, 388, "Input",ExpressionUUID->"8355d629-f6a8-446e-b24a-ff01dab0932e"],
Cell[CellGroupData[{
Cell[3446496, 68041, 1269, 29, 76, "Input",ExpressionUUID->"314fedc4-9a12-449d-82a2-48902d1efc10"],
Cell[3447768, 68072, 1624, 24, 70, "Output",ExpressionUUID->"bfa5129c-945d-47e8-a4d2-ddd4c02718de"]
}, Open  ]],
Cell[3449407, 68099, 374, 8, 44, "Input",ExpressionUUID->"c46de6e5-ec0b-43c5-9a36-e8910ce86588"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[3449830, 68113, 586, 11, 135, "Section",ExpressionUUID->"b61984e8-3611-4344-a7f0-9353258e16c2"],
Cell[CellGroupData[{
Cell[3450441, 68128, 860, 20, 109, "Input",ExpressionUUID->"a793d423-9bf3-49c5-8ca1-3d67e2ec099a"],
Cell[3451304, 68150, 871, 13, 70, "Output",ExpressionUUID->"1353ff48-7377-49f1-bad9-be8c39042828"],
Cell[3452178, 68165, 868, 13, 70, "Output",ExpressionUUID->"5b306415-05d3-4168-867e-f9c99aab2bf6"],
Cell[3453049, 68180, 866, 13, 70, "Output",ExpressionUUID->"85f1eeaa-0c77-4ce2-bbdd-245670e2397b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[3453976, 68200, 142, 3, 84, "Chapter",ExpressionUUID->"c7606bd4-feb0-4325-985c-21824dfe797a"],
Cell[CellGroupData[{
Cell[3454143, 68207, 150, 2, 101, "Section",ExpressionUUID->"b9cb720c-ab44-4a2d-ac10-391566818636"],
Cell[CellGroupData[{
Cell[3454318, 68213, 1475, 38, 109, "Input",ExpressionUUID->"1498c433-2923-4e9a-9bc8-590699dc75d9"],
Cell[3455796, 68253, 1135, 22, 70, "Output",ExpressionUUID->"acb20523-cc79-4952-b139-321ae448848c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3456968, 68280, 423, 10, 46, "Input",ExpressionUUID->"01f183f8-4afe-49b4-9d72-e9a88e9caf77"],
Cell[3457394, 68292, 811, 13, 70, "Output",ExpressionUUID->"d70bc57a-d427-446b-af14-7dd07caa8667"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[3458254, 68311, 272, 4, 78, "Section",ExpressionUUID->"c2e8cdf6-ff47-4a5d-9498-6c9e3f6a5686"],
Cell[CellGroupData[{
Cell[3458551, 68319, 871, 22, 135, "Subsection",ExpressionUUID->"26be3b92-47b1-41c4-854b-0af24e3bc189"],
Cell[3459425, 68343, 1195, 31, 109, "Input",ExpressionUUID->"cce1cd57-11ed-42cc-8afe-2e47225d1c59"],
Cell[CellGroupData[{
Cell[3460645, 68378, 435, 12, 46, "Input",ExpressionUUID->"d8c3eaeb-d7ad-4430-a919-bb8ed5c20397"],
Cell[3461083, 68392, 760, 11, 70, "Output",ExpressionUUID->"b76b1cd3-3df4-4241-9601-4641aa42e69a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3461880, 68408, 1059, 29, 78, "Input",ExpressionUUID->"0690d944-8735-4258-a63b-5c87da6808b5"],
Cell[3462942, 68439, 733, 11, 70, "Output",ExpressionUUID->"c3d82795-abaf-4b38-94ad-8f5209453d65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3463712, 68455, 1502, 42, 140, "Input",ExpressionUUID->"a39bd7da-7ce7-43d9-bc1b-be0b06b33ecb"],
Cell[3465217, 68499, 880, 17, 70, "Output",ExpressionUUID->"13b69e48-d717-4375-bdcb-0c1c8e772020"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3466146, 68522, 754, 20, 134, "Subsection",ExpressionUUID->"675d70f3-62b3-4437-957f-94e75a1c54c8"],
Cell[3466903, 68544, 1003, 25, 46, "Input",ExpressionUUID->"1799e3a7-a4fa-4725-a89a-f5405cf2c06d"],
Cell[CellGroupData[{
Cell[3467931, 68573, 1218, 33, 140, "Input",ExpressionUUID->"5c495d51-a386-4e26-80fe-8fdf2234d3da"],
Cell[3469152, 68608, 779, 13, 70, "Output",ExpressionUUID->"d89c5317-f08a-4136-8bed-0d23e6c40033"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3469980, 68627, 766, 20, 134, "Subsection",ExpressionUUID->"53c49537-4786-4948-9b4a-66e0b0ef4111"],
Cell[3470749, 68649, 1132, 28, 78, "Input",ExpressionUUID->"a0d99f91-f728-4e1f-b34d-41d56963817c"],
Cell[CellGroupData[{
Cell[3471906, 68681, 1372, 37, 140, "Input",ExpressionUUID->"6ab7d8b5-074c-4b1f-811c-add55dfd7c81"],
Cell[3473281, 68720, 806, 13, 70, "Output",ExpressionUUID->"343d71f6-23f1-46f5-8ca4-e9f6cce7c3e7"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[3474160, 68741, 859, 26, 191, "Chapter",ExpressionUUID->"572e727c-46ce-4675-9157-b9aa50136e84"],
Cell[CellGroupData[{
Cell[3475044, 68771, 641, 9, 81, "Subsection",ExpressionUUID->"2d93ac5b-b820-45aa-abb6-24ba3912d99d"],
Cell[3475688, 68782, 459, 9, 78, "Input",ExpressionUUID->"3b097268-0a0d-4ce6-9286-f950a7aadeec"],
Cell[CellGroupData[{
Cell[3476172, 68795, 56458, 933, 217, "Subsubsection",ExpressionUUID->"42876889-aec6-4f23-b2b1-dd9be25972d3"],
Cell[3532633, 69730, 2111, 57, 157, "Input",ExpressionUUID->"92ab5ba1-03a1-4588-b918-d2cf780e8157"],
Cell[CellGroupData[{
Cell[3534769, 69791, 715, 12, 73, "Input",ExpressionUUID->"38e7d083-8422-46a9-b221-f2dc3425ae9c"],
Cell[3535487, 69805, 1949, 30, 70, "Output",ExpressionUUID->"0f1e42c4-8499-4d5e-8939-9d4d3d47720e"]
}, Open  ]],
Cell[3537451, 69838, 12272, 289, 274, "Input",ExpressionUUID->"d913ab41-1189-4cd4-8bb3-3755803efa87"],
Cell[CellGroupData[{
Cell[3549748, 70131, 1345, 30, 43, "Input",ExpressionUUID->"fc85d647-b608-46ce-ada4-44dca3d81a18"],
Cell[3551096, 70163, 1813, 26, 70, "Output",ExpressionUUID->"e73976da-9251-40b7-84be-10f49fc374fc"]
}, Open  ]],
Cell[3552924, 70192, 436, 9, 43, "Input",ExpressionUUID->"87e8f704-a2f5-402f-bf10-b711f1336713"]
}, Closed]],
Cell[CellGroupData[{
Cell[3553397, 70206, 57222, 946, 219, "Subsubsection",ExpressionUUID->"6f841ac1-2e42-4b22-bce4-92366037bd58"],
Cell[3610622, 71154, 2138, 50, 130, "Input",ExpressionUUID->"e724b434-1224-44de-b3ad-10488f9131c4"],
Cell[CellGroupData[{
Cell[3612785, 71208, 771, 14, 73, "Input",ExpressionUUID->"7176d465-010f-475e-b870-c89b78000105"],
Cell[3613559, 71224, 2150, 32, 70, "Output",ExpressionUUID->"71c1842e-8858-4d22-bc2b-664fb928d152"]
}, Open  ]],
Cell[3615724, 71259, 12425, 284, 274, "Input",ExpressionUUID->"c34c8ba7-4e85-4f7a-97e0-a7f31aebf6c8"],
Cell[3628152, 71545, 1500, 34, 43, "Input",ExpressionUUID->"009b27b4-6c3c-4f8f-bad4-133fce3f998b"],
Cell[CellGroupData[{
Cell[3629677, 71583, 3389, 80, 178, "Input",ExpressionUUID->"2a2fbe44-283e-40ae-a19c-7412bb00be9e"],
Cell[3633069, 71665, 40020, 1168, 70, "Output",ExpressionUUID->"c907c474-6004-4cdb-bca2-6a993d30c08a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3673126, 72838, 1075, 24, 73, "Input",ExpressionUUID->"507407c8-73d0-4cce-9838-9a92de6c5bef"],
Cell[3674204, 72864, 2876, 75, 70, "Output",ExpressionUUID->"74366973-b42d-4cf8-816f-521da6b51480"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3677117, 72944, 524, 11, 43, "Input",ExpressionUUID->"5331421b-0ef8-4f67-9fbe-42821ce3a529"],
Cell[3677644, 72957, 1168, 23, 70, "Output",ExpressionUUID->"d4c96a21-c3c9-49dc-9413-b16e92132368"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3678849, 72985, 515, 11, 43, "Input",ExpressionUUID->"13870cd3-3542-4134-a038-261c9ec7f56b"],
Cell[3679367, 72998, 1214, 21, 70, "Output",ExpressionUUID->"41b25d82-5669-4349-8da7-a980967f4b94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3680618, 73024, 521, 11, 43, "Input",ExpressionUUID->"f9fe9c05-163d-4393-9335-601681f6a34d"],
Cell[3681142, 73037, 1256, 23, 70, "Output",ExpressionUUID->"b5373978-22a7-49a6-91e2-b73beef4e0de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3682435, 73065, 519, 11, 43, "Input",ExpressionUUID->"27d3b312-04ca-434f-a87d-82b8f8a2eced"],
Cell[3682957, 73078, 1215, 23, 70, "Output",ExpressionUUID->"20de2c95-bdf8-441c-b2f9-37b1be38293e"]
}, Open  ]],
Cell[3684187, 73104, 12482, 285, 274, "Input",ExpressionUUID->"821cd6b0-edd9-4c0d-aca7-6a29fe136f6b"],
Cell[CellGroupData[{
Cell[3696694, 73393, 1506, 32, 43, "Input",ExpressionUUID->"17c1e474-909c-44ea-9bb5-2623ac19d9ad"],
Cell[3698203, 73427, 889, 13, 70, "Output",ExpressionUUID->"e6e6bc2b-cd0b-4a2f-9c01-a5cce5387313"]
}, Open  ]],
Cell[3699107, 73443, 436, 9, 43, "Input",ExpressionUUID->"3d2d5538-d72d-4d55-9c59-e7c857d96f94"]
}, Closed]],
Cell[3699558, 73455, 153, 3, 53, "Subsubsection",ExpressionUUID->"20c087db-4bb0-4cad-8b20-7306f4ca4c2d"],
Cell[CellGroupData[{
Cell[3699736, 73462, 57279, 946, 212, "Subsubsection",ExpressionUUID->"ef7b086f-3d21-419c-90ff-70992d123193"],
Cell[3757018, 74410, 2330, 64, 164, "Input",ExpressionUUID->"0fd1a7a0-9fc7-4db2-90d4-2681e604b85c"],
Cell[CellGroupData[{
Cell[3759373, 74478, 715, 12, 78, "Input",ExpressionUUID->"de081412-0dc8-424a-b83f-291c5174e9a1"],
Cell[3760091, 74492, 1993, 30, 70, "Output",ExpressionUUID->"3fe45951-7608-4f69-885f-26bbdd9125fd"]
}, Open  ]],
Cell[3762099, 74525, 12851, 298, 512, "Input",ExpressionUUID->"e1d25b3f-ae54-4eca-ac92-61b42f3c8c26"],
Cell[CellGroupData[{
Cell[3774975, 74827, 1399, 31, 109, "Input",ExpressionUUID->"bf17f9b8-7d41-4bd8-94af-caa116fabebb"],
Cell[3776377, 74860, 1862, 27, 70, "Output",ExpressionUUID->"c90fe636-4714-4b7d-9ba7-e8dd92c984d6"]
}, Open  ]],
Cell[3778254, 74890, 436, 9, 46, "Input",ExpressionUUID->"02eeaffc-b903-4089-909a-d8b45495751e"]
}, Closed]],
Cell[CellGroupData[{
Cell[3778727, 74904, 58055, 959, 211, "Subsubsection",ExpressionUUID->"e1034276-ffae-4f7b-89e4-b80c2645e528"],
Cell[3836785, 75865, 2388, 64, 157, "Input",ExpressionUUID->"075cd1ba-1816-4b6a-b215-8329afd815cf"],
Cell[CellGroupData[{
Cell[3839198, 75933, 769, 14, 73, "Input",ExpressionUUID->"2a84e1de-5823-45cf-90c2-63f7c644f6eb"],
Cell[3839970, 75949, 2054, 31, 70, "Output",ExpressionUUID->"2d6ff930-4e57-49f7-b78a-0b10c46d8065"]
}, Open  ]],
Cell[3842039, 75983, 12895, 299, 274, "Input",ExpressionUUID->"f69c30bc-8b5c-46fb-8ce0-ecbda48faa22"],
Cell[CellGroupData[{
Cell[3854959, 76286, 1399, 31, 43, "Input",ExpressionUUID->"987089b7-531b-4cf3-84a1-1f514a4c8813"],
Cell[3856361, 76319, 1919, 28, 70, "Output",ExpressionUUID->"8fbf0609-055a-4295-8e46-f608b6264ac7"]
}, Open  ]],
Cell[3858295, 76350, 436, 9, 43, "Input",ExpressionUUID->"5254ecbc-057a-4e43-af40-38c9115f9b02"]
}, Closed]],
Cell[3858746, 76362, 340, 8, 53, "Subsubsection",ExpressionUUID->"6b867420-4f62-489a-83aa-ed0a3ee8d24e"],
Cell[CellGroupData[{
Cell[3859111, 76374, 56917, 940, 215, "Subsubsection",ExpressionUUID->"7b18a60e-6143-48c8-9d73-34112aa60e61"],
Cell[3916031, 77316, 2190, 58, 130, "Input",ExpressionUUID->"efa6297b-6c93-4311-a7e5-d5f65dec3264"],
Cell[CellGroupData[{
Cell[3918246, 77378, 715, 12, 73, "Input",ExpressionUUID->"de6ce26c-a48c-492b-8e14-c3d289b48fa6"],
Cell[3918964, 77392, 1993, 30, 70, "Output",ExpressionUUID->"d9614908-9da7-442c-8ebd-9bd312fedcb6"]
}, Open  ]],
Cell[3920972, 77425, 12316, 289, 274, "Input",ExpressionUUID->"3a9e67a9-b52d-4a3c-a3df-17b2cc3a9234"],
Cell[CellGroupData[{
Cell[3933313, 77718, 1443, 32, 43, "Input",ExpressionUUID->"bcded549-8f9c-48ea-8ccf-69449631c959"],
Cell[3934759, 77752, 1861, 27, 70, "Output",ExpressionUUID->"4030b419-e657-4bec-ace3-5dc0ab9c2bc6"]
}, Open  ]],
Cell[3936635, 77782, 436, 9, 43, "Input",ExpressionUUID->"492f3873-7bb5-41ac-ae07-0d5b0359ae8a"]
}, Closed]],
Cell[CellGroupData[{
Cell[3937108, 77796, 58442, 965, 232, "Subsubsection",ExpressionUUID->"b81544d3-708a-463e-b8b1-31c672d44814"],
Cell[3995553, 78763, 2153, 55, 140, "Input",ExpressionUUID->"42d1b68f-eccf-48a6-be80-d2aeaf8044d2"],
Cell[CellGroupData[{
Cell[3997731, 78822, 773, 14, 78, "Input",ExpressionUUID->"a6c73ab8-a9e6-4347-916b-0bab87e6e8d2"],
Cell[3998507, 78838, 2049, 31, 70, "Output",ExpressionUUID->"f0675b16-03a8-4192-8473-e38c1891d2fa"]
}, Open  ]],
Cell[4000571, 78872, 12258, 282, 450, "Input",ExpressionUUID->"501ae048-e286-4fc0-952a-38b79b33c8b2"],
Cell[CellGroupData[{
Cell[4012854, 79158, 1443, 32, 109, "Input",ExpressionUUID->"4ffe753b-0b49-47de-aac0-827cdd3bd968"],
Cell[4014300, 79192, 1913, 28, 70, "Output",ExpressionUUID->"9edfc510-470e-4369-af20-50829ff77926"]
}, Open  ]],
Cell[4016228, 79223, 436, 9, 46, "Input",ExpressionUUID->"bf4cf493-2d20-445b-974d-843814b7e4ed"]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4016725, 79239, 302, 4, 103, "Chapter",ExpressionUUID->"beaf4f40-fa55-4769-a334-77574a3977a1"],
Cell[CellGroupData[{
Cell[4017052, 79247, 1366, 34, 73, "Input",ExpressionUUID->"7beb6595-7502-4f8a-a5f6-90bf442d3d3c"],
Cell[4018421, 79283, 916, 14, 49, "Output",ExpressionUUID->"0e19c9b0-0f59-41d3-8f16-170eaeb74a08"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4019386, 79303, 186, 3, 103, "Chapter",ExpressionUUID->"c751c6fa-e18a-48fb-bc7f-a72242cc200d"],
Cell[CellGroupData[{
Cell[4019597, 79310, 1114, 33, 73, "Input",ExpressionUUID->"1bd7402a-ad03-4cdb-a7a7-6211cd7c10bf"],
Cell[4020714, 79345, 876, 13, 49, "Output",ExpressionUUID->"9c671026-9cf1-46fb-b722-f5cdb068ed96"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4021639, 79364, 406, 8, 103, "Chapter",ExpressionUUID->"a9d74e96-986c-455a-a8c0-0bde13f3fc9c"],
Cell[CellGroupData[{
Cell[4022070, 79376, 191, 3, 101, "Section",ExpressionUUID->"ab97a835-aa36-4803-8e4b-376ec65f1209"],
Cell[CellGroupData[{
Cell[4022286, 79383, 3953, 111, 132, "Input",ExpressionUUID->"2fea7540-2a96-42a3-bb4d-6d7506456c6b"],
Cell[4026242, 79496, 4583, 138, 70, "Output",ExpressionUUID->"f79e1683-943d-4300-a23c-fef9593cfba3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4030862, 79639, 2012, 55, 74, "Input",ExpressionUUID->"c57529d5-3504-4ceb-9623-9c6f474a2d17"],
Cell[4032877, 79696, 2573, 63, 70, "Output",ExpressionUUID->"072346af-3025-4d57-b40b-e46a41fa5627"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4035487, 79764, 4271, 117, 161, "Input",ExpressionUUID->"29285b02-ed10-4b6b-b14f-d99098ba632b"],
Cell[4039761, 79883, 4564, 126, 70, "Output",ExpressionUUID->"1c90578a-bc0a-4f7f-9d6d-3aa29aa3f3e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4044362, 80014, 846, 24, 45, "Input",ExpressionUUID->"70549970-a045-4fbb-ac51-864231dff7cd"],
Cell[4045211, 80040, 1081, 27, 70, "Output",ExpressionUUID->"0c3c28de-56cb-4b44-a2d6-ecbef3f4267a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4046341, 80073, 26185, 444, 466, "Section",ExpressionUUID->"43a11b60-0146-4917-935d-8ea003433cfa"],
Cell[CellGroupData[{
Cell[4072551, 80521, 160, 3, 81, "Subsection",ExpressionUUID->"5108dada-be51-4327-a9a9-d9d9e0ce1455"],
Cell[4072714, 80526, 2742, 76, 102, "Input",ExpressionUUID->"15226cf5-89b1-4166-9e34-fe3e8f485c72"]
}, Closed]],
Cell[CellGroupData[{
Cell[4075493, 80607, 156, 3, 55, "Subsection",ExpressionUUID->"51b5c6d9-e1d8-4784-ba99-12526a6c33a0"],
Cell[CellGroupData[{
Cell[4075674, 80614, 155, 3, 67, "Subsubsection",ExpressionUUID->"27f371bb-790f-4096-a5f2-9259dbe0db5a"],
Cell[CellGroupData[{
Cell[4075854, 80621, 2360, 63, 160, "Input",ExpressionUUID->"e085a754-6db3-45a3-818b-fe44e1ab1b46"],
Cell[4078217, 80686, 2630, 80, 70, "Output",ExpressionUUID->"8ef89a56-229f-4b66-b742-65fa17e85c5f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4080896, 80772, 180, 3, 53, "Subsubsection",ExpressionUUID->"77639e6d-3b32-40a8-ad43-f1b9ce7e5217"],
Cell[CellGroupData[{
Cell[4081101, 80779, 2358, 63, 202, "Input",ExpressionUUID->"9b8a07c0-0bce-46fe-ab17-57f3e9ef6685"],
Cell[4083462, 80844, 2705, 84, 70, "Output",ExpressionUUID->"a08ebcbc-0fdf-494f-9dc3-bc2aebdf301f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4086216, 80934, 232, 4, 53, "Subsubsection",ExpressionUUID->"bc0580c5-f28e-4fce-882b-974b63d68ba6"],
Cell[CellGroupData[{
Cell[4086473, 80942, 2869, 74, 264, "Input",ExpressionUUID->"44c540c0-929f-47b6-9d4c-5e12e53e73c1"],
Cell[4089345, 81018, 2726, 84, 70, "Output",ExpressionUUID->"0bd76997-99fa-4458-815f-8fe80c654444"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4092120, 81108, 283, 5, 53, "Subsubsection",ExpressionUUID->"f37399b6-7724-49be-9b5a-52536e59c1aa"],
Cell[CellGroupData[{
Cell[4092428, 81117, 2918, 75, 264, "Input",ExpressionUUID->"0751b7aa-966e-46ea-a003-5013521421f8"],
Cell[4095349, 81194, 2758, 85, 70, "Output",ExpressionUUID->"dad075e0-aca6-492d-abfd-80e0fa05ce72"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4098156, 81285, 215, 4, 53, "Subsubsection",ExpressionUUID->"f975db2a-e761-4fcd-8bf9-536dc5c6400b"],
Cell[CellGroupData[{
Cell[4098396, 81293, 2415, 63, 202, "Input",ExpressionUUID->"17ffa33c-ca01-4498-8796-c0517186ab8f"],
Cell[4100814, 81358, 2652, 80, 70, "Output",ExpressionUUID->"ab7486fa-8261-4abc-87f7-c2b242454b32"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4103515, 81444, 379, 9, 55, "Subsubsection",ExpressionUUID->"61578f23-c14f-4446-a505-09f2dd1ecdcc"],
Cell[4103897, 81455, 3088, 80, 264, "Input",ExpressionUUID->"24fff617-af3e-4a28-b09c-df5b4c386327"],
Cell[CellGroupData[{
Cell[4107010, 81539, 397, 9, 46, "Input",ExpressionUUID->"0f0a77f4-9ec8-44dd-a283-5b30809398c9"],
Cell[4107410, 81550, 2626, 83, 70, "Output",ExpressionUUID->"1cafd128-909d-4756-a31a-b6c2362f2dcf"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4110085, 81639, 218, 4, 53, "Subsubsection",ExpressionUUID->"f25dc653-2c15-4bad-8044-2dee015a7a07"],
Cell[4110306, 81645, 3052, 80, 218, "Input",ExpressionUUID->"703dd545-1581-4101-8293-afe1dbdd1d80"],
Cell[CellGroupData[{
Cell[4113383, 81729, 464, 12, 43, "Input",ExpressionUUID->"376c1045-33ec-4303-b194-68564fd56134"],
Cell[4113850, 81743, 2627, 73, 70, "Output",ExpressionUUID->"16bba4f3-291e-42bd-8818-d8dd8ffd457f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4116526, 81822, 177, 3, 53, "Subsubsection",ExpressionUUID->"7d2fac94-f919-46ea-a381-e245cae67245"],
Cell[CellGroupData[{
Cell[4116728, 81829, 2381, 63, 202, "Input",ExpressionUUID->"8842da0b-175c-42a7-afa1-168a52119b63"],
Cell[4119112, 81894, 2650, 80, 70, "Output",ExpressionUUID->"1b039c15-75eb-4890-81c7-c1f34fc1d0f9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4121811, 81980, 205, 4, 53, "Subsubsection",ExpressionUUID->"64dce798-c8f0-485c-bd22-d9baf218aaf9"],
Cell[CellGroupData[{
Cell[4122041, 81988, 2405, 63, 202, "Input",ExpressionUUID->"0320348e-f38a-49b8-92fa-c6a99c7ed820"],
Cell[4124449, 82053, 2730, 84, 70, "Output",ExpressionUUID->"eee4711f-655f-4f9c-b598-11134862acc1"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4127228, 82143, 255, 4, 53, "Subsubsection",ExpressionUUID->"d58cabb1-a3f7-47ee-917f-904d8f5947bf"],
Cell[CellGroupData[{
Cell[4127508, 82151, 2916, 75, 264, "Input",ExpressionUUID->"3af5f767-8180-416c-a16f-ab660a122f3c"],
Cell[4130427, 82228, 2786, 85, 70, "Output",ExpressionUUID->"0fb10b3d-3f2e-46ec-bed0-0d667f1f3c96"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4133262, 82319, 304, 5, 53, "Subsubsection",ExpressionUUID->"0a47a643-855f-4498-a4ee-043c83c8cb9b"],
Cell[CellGroupData[{
Cell[4133591, 82328, 2962, 75, 264, "Input",ExpressionUUID->"b4ae92f1-3028-443a-8fe0-3b0cf51a7706"],
Cell[4136556, 82405, 2777, 85, 70, "Output",ExpressionUUID->"9219408d-d917-4824-837c-8720ffc2d875"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4139382, 82496, 420, 9, 55, "Subsubsection",ExpressionUUID->"e5356929-6fa0-49bf-87db-f4d175c011dc"],
Cell[4139805, 82507, 2761, 70, 233, "Input",ExpressionUUID->"3c6d64c4-cf28-4001-8775-7734e1f0f67e"],
Cell[CellGroupData[{
Cell[4142591, 82581, 414, 8, 46, "Input",ExpressionUUID->"f41b55ae-1f08-4dc4-a7b2-3436d7100973"],
Cell[4143008, 82591, 2684, 84, 70, "Output",ExpressionUUID->"ec9d3203-8280-4ba2-944f-73bb097dd736"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4145741, 82681, 354, 6, 53, "Subsubsection",ExpressionUUID->"aa179d9d-2138-478c-a5e4-aa53e59b82f6"],
Cell[CellGroupData[{
Cell[4146120, 82691, 3012, 76, 264, "Input",ExpressionUUID->"291628d1-2be2-4e65-a310-0af555b82410"],
Cell[4149135, 82769, 2802, 85, 70, "Output",ExpressionUUID->"f8e8ec8b-2d58-4b69-ba7b-f8563a417d02"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4151986, 82860, 241, 4, 53, "Subsubsection",ExpressionUUID->"d4aee5c9-12b4-4d08-8e10-2a1e837862b7"],
Cell[4152230, 82866, 3077, 80, 218, "Input",ExpressionUUID->"180e38e6-8a15-4979-b462-0447f2a752b4"],
Cell[CellGroupData[{
Cell[4155332, 82950, 511, 12, 43, "Input",ExpressionUUID->"58fec4c6-a1c0-4150-9d9f-80eb99c2846f"],
Cell[4155846, 82964, 2722, 76, 70, "Output",ExpressionUUID->"8ba7ce61-58cd-4836-8337-551fe56316b9"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[4158629, 83047, 365, 7, 55, "Subsection",ExpressionUUID->"2730a406-c23f-47f0-919f-8844ccf6dd7a"],
Cell[CellGroupData[{
Cell[4159019, 83058, 486, 9, 51, "Input",ExpressionUUID->"b9a765a8-53ca-4a24-9e3e-8243d7f2e719"],
Cell[4159508, 83069, 762, 12, 70, "Output",ExpressionUUID->"59f46679-0ee4-4ba9-9b57-0abd37ebe283"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4160307, 83086, 265, 5, 51, "Input",ExpressionUUID->"c43904b4-0fb9-4499-a73a-33a8115bc053"],
Cell[4160575, 83093, 35226, 785, 70, "Output",ExpressionUUID->"d734a8af-0101-4f62-afaf-055282fab247"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4195838, 83883, 231, 4, 51, "Input",ExpressionUUID->"cfb00aa5-3433-4e3e-84c2-f5038eebe57d"],
Cell[4196072, 83889, 1250, 29, 70, "Output",ExpressionUUID->"bf539108-c65b-4863-b0b4-f103c8328cc6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4197359, 83923, 224, 4, 51, "Input",ExpressionUUID->"257fbede-c1b2-4ce2-ae1c-fdb146fe4527"],
Cell[4197586, 83929, 436, 10, 70, "Message",ExpressionUUID->"d7e78b3f-bc48-4519-ae84-c6ed81640ef9"],
Cell[4198025, 83941, 436, 10, 70, "Message",ExpressionUUID->"d1056585-3b08-4bed-8ee4-fc0cbae55622"],
Cell[4198464, 83953, 558, 9, 70, "Print",ExpressionUUID->"1cf5d21a-caae-47ca-94a1-1e5507f0a401"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4199059, 83967, 442, 8, 51, "Input",ExpressionUUID->"4a61aada-5a53-4328-99c7-fa6cef10f1e2"],
Cell[4199504, 83977, 434, 10, 70, "Message",ExpressionUUID->"90f70eb7-ab71-481a-8645-9887e9ecf572"],
Cell[4199941, 83989, 434, 10, 70, "Message",ExpressionUUID->"98cdb020-ac67-40af-a679-f5e5c47addcc"],
Cell[4200378, 84001, 9331, 138, 70, "Output",ExpressionUUID->"3b403681-5217-4150-bbc5-98630815388c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4209746, 84144, 269, 6, 51, "Input",ExpressionUUID->"a056cbc4-b480-4218-866e-cb66d6c60bd3"],
Cell[4210018, 84152, 446, 7, 70, "Output",ExpressionUUID->"0054d46d-a400-4aac-8069-bf9e13300d13"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4210501, 84164, 313, 7, 51, "Input",ExpressionUUID->"4ecef661-8f1e-46ab-9ee9-806511c3661f"],
Cell[4210817, 84173, 466, 7, 70, "Output",ExpressionUUID->"1171791b-7c43-4e35-bf42-ff3fe3b16053"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4211332, 84186, 310, 5, 81, "Subsection",ExpressionUUID->"502a4644-2ed7-42e7-bd5f-ab3a9dc8d088"],
Cell[CellGroupData[{
Cell[4211667, 84195, 306, 6, 46, "Input",ExpressionUUID->"3d54e663-7e0d-4193-8c74-416b92768a59"],
Cell[4211976, 84203, 810, 12, 70, "Output",ExpressionUUID->"d10e04b2-6e38-4f9b-a9fe-b50cce8f64af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4212823, 84220, 554, 9, 46, "Input",ExpressionUUID->"444ad732-b7b9-4982-98fb-e241946fb719"],
Cell[4213380, 84231, 1959, 28, 70, "Output",ExpressionUUID->"a12c4d7a-cf6c-4d18-9463-799dbbc22e95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4215376, 84264, 466, 8, 46, "Input",ExpressionUUID->"7d9dd3cb-f2b7-4fe8-9c7f-7656c1e136c9"],
Cell[4215845, 84274, 1366, 20, 70, "Output",ExpressionUUID->"84687811-ec31-4160-b691-09c1eee3c222"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4217248, 84299, 492, 8, 46, "Input",ExpressionUUID->"3dc64afe-ad91-4737-a2ae-c3e03cfb7e8b"],
Cell[4217743, 84309, 1360, 20, 70, "Output",ExpressionUUID->"cf4148d6-1750-4d91-9a07-1796dcbb0ed8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4219140, 84334, 513, 8, 46, "Input",ExpressionUUID->"267024b7-a15d-4d98-9a5e-061f101692c4"],
Cell[4219656, 84344, 1405, 21, 70, "Output",ExpressionUUID->"6cdc5105-99d3-4cb2-953b-b065bfffa107"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4221098, 84370, 292, 6, 46, "Input",ExpressionUUID->"b38e3799-f92f-40d9-8fd8-7cce398a2458"],
Cell[4221393, 84378, 432, 10, 70, "Message",ExpressionUUID->"9bb9fa5e-1203-4c7e-aad9-5e3213d6d683"],
Cell[4221828, 84390, 432, 10, 70, "Message",ExpressionUUID->"31309816-bf48-45c7-83af-927faca8e8ed"],
Cell[4222263, 84402, 2317, 50, 70, "Output",ExpressionUUID->"e3d4eefe-8b47-4858-8999-36bfbe1459d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4224617, 84457, 216, 5, 46, "Input",ExpressionUUID->"c5fd77a0-3cc4-43b0-8721-979c426818e4"],
Cell[4224836, 84464, 432, 10, 70, "Message",ExpressionUUID->"22c95024-5129-4cf5-9cf9-57e0d3510fca"],
Cell[4225271, 84476, 432, 10, 70, "Message",ExpressionUUID->"479548b4-36cd-4651-ba2f-41327f8bb786"],
Cell[4225706, 84488, 2302, 50, 70, "Output",ExpressionUUID->"4ffe2030-ba82-42a7-b46d-ffd721be1638"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4228045, 84543, 246, 5, 46, "Input",ExpressionUUID->"23d338b9-be72-4b75-8f94-c55f9c8300d3"],
Cell[4228294, 84550, 434, 10, 70, "Message",ExpressionUUID->"825e416d-d09e-4403-9fcd-534261bf7d35"],
Cell[4228731, 84562, 435, 10, 70, "Message",ExpressionUUID->"7412b8c9-a68d-473d-b895-67f5ed90b003"],
Cell[4229169, 84574, 2307, 50, 70, "Output",ExpressionUUID->"14bf068a-dc43-4f61-b375-afb77a307e24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4231513, 84629, 219, 5, 46, "Input",ExpressionUUID->"9bfca413-fca2-4c78-b2b6-f19f3cb3021c"],
Cell[4231735, 84636, 435, 10, 70, "Message",ExpressionUUID->"3858bbb3-85a5-4e37-962d-da74540b82d1"],
Cell[4232173, 84648, 435, 10, 70, "Message",ExpressionUUID->"1e4d43de-80c6-4c93-af22-776ffcc1083a"],
Cell[4232611, 84660, 2292, 50, 70, "Output",ExpressionUUID->"151b5174-7437-472d-9506-8348fdf92542"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4234952, 84716, 888, 17, 217, "Subsection",ExpressionUUID->"e941f10b-e118-4fa7-92cc-21f7f5f6ce9a"],
Cell[CellGroupData[{
Cell[4235865, 84737, 204, 3, 67, "Subsubsection",ExpressionUUID->"d77d29bd-3c04-4289-8681-0301ab57ce5c"],
Cell[4236072, 84742, 665, 18, 46, "Input",ExpressionUUID->"617ff6f1-3d7c-4db5-8f1d-7792a43d2ba4"],
Cell[4236740, 84762, 906, 24, 46, "Input",ExpressionUUID->"cd8ad6de-1c06-4f7d-ac70-7073ff17ce74"],
Cell[CellGroupData[{
Cell[4237671, 84790, 216, 4, 46, "Input",ExpressionUUID->"96cafc8e-5f40-4e13-9f3a-01ad3d4a20d5"],
Cell[4237890, 84796, 488, 9, 70, "Output",ExpressionUUID->"47053c41-03e6-4c31-ad13-c36fd2e585be"]
}, Open  ]],
Cell[4238393, 84808, 1679, 44, 84, "Input",ExpressionUUID->"fe06db47-f564-477c-9d5b-4f04fdc8091b"],
Cell[CellGroupData[{
Cell[4240097, 84856, 280, 6, 46, "Input",ExpressionUUID->"109558cf-e4f0-45c0-a780-a3fba6cb0f90"],
Cell[4240380, 84864, 790, 17, 70, "Output",ExpressionUUID->"a33ec451-368e-428e-b280-0f6cf0aaa2d6"]
}, Open  ]],
Cell[4241185, 84884, 2098, 60, 140, "Input",ExpressionUUID->"08cdf0e0-f956-46bd-a917-a9ad396ab143"],
Cell[4243286, 84946, 988, 22, 46, "Input",ExpressionUUID->"d57baf87-1e0a-4adf-b6db-f61a3ebf732e"],
Cell[CellGroupData[{
Cell[4244299, 84972, 327, 8, 46, "Input",ExpressionUUID->"35ca86ac-ca4a-41cd-b070-3c021313d97c"],
Cell[4244629, 84982, 965, 25, 70, "Output",ExpressionUUID->"51468aa0-c4a4-4876-a5e9-b7a1b8a830dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4245631, 85012, 214, 4, 46, "Input",ExpressionUUID->"3625ce18-4c4c-4652-93a0-8508a0efebdb"],
Cell[4245848, 85018, 855, 20, 70, "Output",ExpressionUUID->"b4523eca-eda0-441a-9fb2-191c012c2387"]
}, Open  ]],
Cell[4246718, 85041, 280, 7, 46, "Input",ExpressionUUID->"9c2a0e5f-6f6e-43de-b348-76df3f1fadbe"],
Cell[CellGroupData[{
Cell[4247023, 85052, 242, 5, 46, "Input",ExpressionUUID->"8929c3dd-7986-4cdc-9574-40233090e4bc"],
Cell[4247268, 85059, 908, 36, 70, "Output",ExpressionUUID->"8f65851b-2189-4d2a-853d-b12f8cf831a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4248213, 85100, 214, 4, 46, "Input",ExpressionUUID->"9f5430bf-4b83-4a82-9b1a-ce43f1676416"],
Cell[4248430, 85106, 2773, 81, 70, "Output",ExpressionUUID->"4434778e-d31e-4966-9950-b1af3f024081"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4251252, 85193, 266, 5, 53, "Subsubsection",ExpressionUUID->"ccc934fc-f81d-4cdc-bb91-c7b3e71de309"],
Cell[CellGroupData[{
Cell[4251543, 85202, 545, 14, 78, "Input",ExpressionUUID->"6b26fe6d-b3da-456f-91f9-466ee9e5470c"],
Cell[4252091, 85218, 2401, 68, 70, "Output",ExpressionUUID->"ad30c83e-e3d6-4ffa-9e64-a1f614289808"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4254529, 85291, 426, 8, 46, "Input",ExpressionUUID->"9e67b225-5aee-4a37-a044-c43af4b6b6ea"],
Cell[4254958, 85301, 2681, 58, 70, "Output",ExpressionUUID->"ce5ecafa-ffea-462c-8a24-41ee53448ac5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4257676, 85364, 1821, 47, 140, "Input",ExpressionUUID->"0b5567ee-317b-4623-9dea-2733b094a601"],
Cell[4259500, 85413, 424, 7, 70, "Output",ExpressionUUID->"23b0bb28-cbae-4dce-9eed-bd74b5ec8419"]
}, Open  ]],
Cell[4259939, 85423, 218, 4, 46, "Input",ExpressionUUID->"d1136ca8-20cb-4dfc-a49b-473caf8dadcb"]
}, Closed]],
Cell[CellGroupData[{
Cell[4260194, 85432, 206, 4, 53, "Subsubsection",ExpressionUUID->"3cb73045-957d-476d-bf86-c5d7ce3ebf0d"],
Cell[CellGroupData[{
Cell[4260425, 85440, 596, 15, 78, "Input",ExpressionUUID->"b5fb7b37-5db5-4761-a883-cf11078e2706"],
Cell[4261024, 85457, 2375, 66, 70, "Output",ExpressionUUID->"aff0982b-f58b-4aa8-a949-fd7066932514"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4263436, 85528, 426, 8, 46, "Input",ExpressionUUID->"eda52d6d-23c5-4861-833d-49b10ed3a125"],
Cell[4263865, 85538, 2675, 58, 70, "Output",ExpressionUUID->"054c9c58-e465-487a-a0d9-a23864d11d82"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4266577, 85601, 1821, 47, 140, "Input",ExpressionUUID->"258befde-4149-45c1-9920-14ffa51217f5"],
Cell[4268401, 85650, 444, 7, 70, "Output",ExpressionUUID->"ae43dc84-6259-4bfa-9fb5-c0e0bac9caaf"]
}, Open  ]],
Cell[4268860, 85660, 218, 4, 46, "Input",ExpressionUUID->"8230deb4-c837-4484-bec6-a16d87d2a0cc"]
}, Closed]],
Cell[CellGroupData[{
Cell[4269115, 85669, 207, 4, 53, "Subsubsection",ExpressionUUID->"d37d1841-5c45-493c-87f3-261337cdf69a"],
Cell[CellGroupData[{
Cell[4269347, 85677, 596, 15, 78, "Input",ExpressionUUID->"c7a04718-6531-45ab-b4d8-68e9e49f6c1d"],
Cell[4269946, 85694, 2357, 65, 70, "Output",ExpressionUUID->"4b94fc5c-1cec-4426-b8cb-a7dddd6d9cad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4272340, 85764, 426, 8, 46, "Input",ExpressionUUID->"ab0a7262-0f1d-44c6-9db7-16ecad4c30af"],
Cell[4272769, 85774, 2662, 58, 70, "Output",ExpressionUUID->"2aaf656b-9e7f-4fa0-bba4-d225fb52caa7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4275468, 85837, 1821, 47, 140, "Input",ExpressionUUID->"3f15e48c-2dfe-45c5-9e6e-5ac7a49a85f7"],
Cell[4277292, 85886, 470, 7, 70, "Output",ExpressionUUID->"ec4227ad-a846-4b4b-83d1-07508b55f762"]
}, Open  ]],
Cell[4277777, 85896, 218, 4, 46, "Input",ExpressionUUID->"f6bd9330-a4e9-4b5b-bf97-58c37f47329e"]
}, Closed]],
Cell[CellGroupData[{
Cell[4278032, 85905, 209, 4, 53, "Subsubsection",ExpressionUUID->"fa3ca21a-30a3-44f2-b0b5-6e02d967ac92"],
Cell[CellGroupData[{
Cell[4278266, 85913, 596, 15, 78, "Input",ExpressionUUID->"2da16bb3-8fa1-4b8b-b2d0-9ea10adc01b7"],
Cell[4278865, 85930, 2361, 65, 70, "Output",ExpressionUUID->"89632495-d379-453e-a0db-fcbcc218efc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4281263, 86000, 426, 8, 46, "Input",ExpressionUUID->"f780a876-2d74-4269-bb85-36724785ec16"],
Cell[4281692, 86010, 2627, 57, 70, "Output",ExpressionUUID->"f99fe748-1ef0-43c2-9dfd-628d2187784d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4284356, 86072, 1821, 47, 140, "Input",ExpressionUUID->"10372cb8-dbe4-4f6a-9877-4be5cd62c34b"],
Cell[4286180, 86121, 472, 7, 70, "Output",ExpressionUUID->"b70bb4d9-51dc-4416-836f-0dfa6e47efdc"]
}, Open  ]],
Cell[4286667, 86131, 218, 4, 46, "Input",ExpressionUUID->"867b6484-3a7b-4898-a61e-1a67d5b344eb"]
}, Closed]],
Cell[CellGroupData[{
Cell[4286922, 86140, 310, 5, 53, "Subsubsection",ExpressionUUID->"385b1112-7565-419a-a8c1-4253e5e67645"],
Cell[CellGroupData[{
Cell[4287257, 86149, 1667, 45, 171, "Input",ExpressionUUID->"d69face5-357d-4784-9781-d502eb84cc1f"],
Cell[4288927, 86196, 2522, 70, 70, "Output",ExpressionUUID->"27c33622-5080-4793-804a-d5138c7c5261"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4291486, 86271, 426, 8, 46, "Input",ExpressionUUID->"21c0e4ae-b031-4999-81c1-06c1154074cd"],
Cell[4291915, 86281, 2771, 59, 70, "Output",ExpressionUUID->"ad9302b8-31da-49e1-8724-19871db2a5f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4294723, 86345, 2326, 57, 202, "Input",ExpressionUUID->"e351441d-4a27-4ee9-934d-edea419ca30a"],
Cell[4297052, 86404, 519, 8, 70, "Output",ExpressionUUID->"0f611dd1-8422-4a27-bda8-ebad33c9cf1f"]
}, Open  ]],
Cell[4297586, 86415, 342, 8, 46, "Input",ExpressionUUID->"0687581b-5b50-4709-a8f5-75b946f74b5b"]
}, Closed]],
Cell[CellGroupData[{
Cell[4297965, 86428, 255, 4, 53, "Subsubsection",ExpressionUUID->"e1d75e7d-24fc-4c51-a14e-21477cedd4c7"],
Cell[CellGroupData[{
Cell[4298245, 86436, 1716, 46, 171, "Input",ExpressionUUID->"f597f316-91b5-4945-be2a-3a4ce45abe62"],
Cell[4299964, 86484, 2503, 68, 70, "Output",ExpressionUUID->"967765a7-bfa9-4a67-b6e2-7cb8fa37796e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4302504, 86557, 426, 8, 46, "Input",ExpressionUUID->"84ab9a93-b846-4105-8732-e87bd99cd2b4"],
Cell[4302933, 86567, 2829, 60, 70, "Output",ExpressionUUID->"04625aed-ec7b-442d-a45d-b45380552ab9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4305799, 86632, 2416, 59, 233, "Input",ExpressionUUID->"a8649590-2bef-4a20-9db3-a9b9f247df71"],
Cell[4308218, 86693, 574, 9, 70, "Output",ExpressionUUID->"cbde2f05-74d8-4d57-a3e3-07bbe9e7f35a"],
Cell[4308795, 86704, 569, 9, 70, "Output",ExpressionUUID->"3b7b6596-7f3b-430f-afd6-60b2d8dfe3c3"]
}, Open  ]],
Cell[4309379, 86716, 342, 8, 46, "Input",ExpressionUUID->"efc6550d-ec95-4283-894a-943b56cb625d"]
}, Closed]],
Cell[CellGroupData[{
Cell[4309758, 86729, 305, 5, 53, "Subsubsection",ExpressionUUID->"91bf27cd-2c4c-453d-9512-3419bf1ee18a"],
Cell[CellGroupData[{
Cell[4310088, 86738, 1767, 47, 171, "Input",ExpressionUUID->"c4b58d46-1eee-435e-8c81-bedf7848bb53"],
Cell[4311858, 86787, 2481, 67, 70, "Output",ExpressionUUID->"fb4c8f02-e43d-4ba8-b353-a923e0d2f8e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4314376, 86859, 426, 8, 46, "Input",ExpressionUUID->"e8d12b8b-e713-493d-bb51-b57fc24f5f47"],
Cell[4314805, 86869, 2883, 60, 70, "Output",ExpressionUUID->"b1e42b5c-fe3d-4b16-8e28-40587f2ac1bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4317725, 86934, 2416, 59, 233, "Input",ExpressionUUID->"51dd26b5-f3ac-41c7-8f4a-a11fbcd23652"],
Cell[4320144, 86995, 577, 9, 70, "Output",ExpressionUUID->"18666362-dcb7-4fed-9b51-bf200c9d8f17"],
Cell[4320724, 87006, 572, 9, 70, "Output",ExpressionUUID->"03d24308-f890-4ec9-a2d2-f1e27dbcb63e"]
}, Open  ]],
Cell[4321311, 87018, 342, 8, 46, "Input",ExpressionUUID->"9ac4c58a-ec3c-40a1-acad-1917870d2682"]
}, Closed]],
Cell[CellGroupData[{
Cell[4321690, 87031, 303, 5, 53, "Subsubsection",ExpressionUUID->"8952005e-c149-4a19-8c5e-fd9c29f81dc3"],
Cell[CellGroupData[{
Cell[4322018, 87040, 1767, 47, 171, "Input",ExpressionUUID->"704d0488-9c91-40c0-aa64-67abbefd12e9"],
Cell[4323788, 87089, 2507, 67, 70, "Output",ExpressionUUID->"63486a02-6c8b-4177-8da7-ae57c31f1c36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4326332, 87161, 426, 8, 46, "Input",ExpressionUUID->"020745d1-63f6-45b7-8e1e-c549c4ff42de"],
Cell[4326761, 87171, 2815, 60, 70, "Output",ExpressionUUID->"5db891f5-0eac-4077-9b37-fa1c3d8a8f56"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4329613, 87236, 2416, 59, 233, "Input",ExpressionUUID->"6a71d041-99fa-4b36-ab38-ab242d1327f7"],
Cell[4332032, 87297, 572, 9, 70, "Output",ExpressionUUID->"8c32457d-eb2b-44d8-a652-e776d67f4a2b"],
Cell[4332607, 87308, 569, 9, 70, "Output",ExpressionUUID->"7caf2ba7-841a-4377-9e84-21688a826152"]
}, Open  ]],
Cell[4333191, 87320, 342, 8, 46, "Input",ExpressionUUID->"fd4d0a84-5996-44b5-bd38-f1cdf7a5ce36"]
}, Closed]],
Cell[CellGroupData[{
Cell[4333570, 87333, 351, 6, 53, "Subsubsection",ExpressionUUID->"4b020abe-f70a-43b6-ab9a-759b2b827972"],
Cell[CellGroupData[{
Cell[4333946, 87343, 1790, 45, 171, "Input",ExpressionUUID->"cb82d84e-a3b4-4ecb-8fe3-2a565e9856e8"],
Cell[4335739, 87390, 744, 12, 70, "Output",ExpressionUUID->"27822b26-4392-4b36-a365-4a75693e3343"],
Cell[4336486, 87404, 2653, 72, 70, "Output",ExpressionUUID->"897bab09-150f-4eca-84fe-ed2edc631a70"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4339176, 87481, 426, 8, 46, "Input",ExpressionUUID->"f20b2067-2cd3-434b-b57c-6882c7b2b5e4"],
Cell[4339605, 87491, 2914, 62, 70, "Output",ExpressionUUID->"ee632300-dfea-431d-9096-32df77890995"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4342556, 87558, 2515, 60, 233, "Input",ExpressionUUID->"eae7c806-5249-4356-899c-7301630dedba"],
Cell[4345074, 87620, 615, 9, 70, "Output",ExpressionUUID->"1543872c-09f8-407e-a7a2-fc8f4fc224d9"],
Cell[4345692, 87631, 612, 9, 70, "Output",ExpressionUUID->"6efd782e-6df4-450a-a5ea-6f0c4df7bf73"]
}, Open  ]],
Cell[4346319, 87643, 342, 8, 46, "Input",ExpressionUUID->"3f80419a-4db4-4fab-8292-36a5aa1203fe"]
}, Closed]],
Cell[CellGroupData[{
Cell[4346698, 87656, 265, 5, 53, "Subsubsection",ExpressionUUID->"17a0e779-34dc-4d97-bd1c-0645b24f1425"],
Cell[4346966, 87663, 1129, 30, 128, "Input",ExpressionUUID->"edcc85f4-0ee5-4daa-8e0c-bff963ec6614"],
Cell[CellGroupData[{
Cell[4348120, 87697, 3232, 78, 189, "Input",ExpressionUUID->"da58e155-820a-4d0b-9305-b083feda4fab"],
Cell[CellGroupData[{
Cell[4351377, 87779, 440, 10, 34, "Print",ExpressionUUID->"d448c1ff-7ea2-4c09-9299-1e5382e85f5c"],
Cell[4351820, 87791, 441, 10, 34, "Print",ExpressionUUID->"084cab2b-b95d-4f15-b0fb-fe2834197076"],
Cell[4352264, 87803, 443, 10, 34, "Print",ExpressionUUID->"43a336db-bf52-422f-aed4-8d732f39f933"],
Cell[4352710, 87815, 443, 10, 34, "Print",ExpressionUUID->"fc053734-a4aa-45fb-86b1-cdff96c6f09d"]
}, Open  ]]
}, Open  ]],
Cell[4353180, 87829, 266, 5, 43, "Input",ExpressionUUID->"1781abc9-fae7-44d7-be5d-13a2596a378c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4353483, 87839, 400, 6, 53, "Subsubsection",ExpressionUUID->"ecf61749-1e26-4086-bc76-7d40ed49375c"],
Cell[CellGroupData[{
Cell[4353908, 87849, 1838, 46, 171, "Input",ExpressionUUID->"e2f333ca-26ce-441b-8ec9-20e186cb1ecf"],
Cell[4355749, 87897, 766, 12, 70, "Output",ExpressionUUID->"ea7e7149-896b-4a7e-af23-15419b9bc41d"],
Cell[4356518, 87911, 2674, 72, 70, "Output",ExpressionUUID->"f2621c68-b784-4adc-995f-df65287a0ef9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4359229, 87988, 426, 8, 46, "Input",ExpressionUUID->"6bd3385c-50f9-481c-9df5-87f77d5692d1"],
Cell[4359658, 87998, 2894, 61, 70, "Output",ExpressionUUID->"57239c11-507a-43b1-b23d-31c9e1b5d3a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4362589, 88064, 2615, 61, 233, "Input",ExpressionUUID->"94ee965d-65b6-4782-94ec-f0b82fc90b2e"],
Cell[4365207, 88127, 642, 10, 70, "Output",ExpressionUUID->"605d04bc-c64b-4841-80a5-24443acc781f"],
Cell[4365852, 88139, 643, 10, 70, "Output",ExpressionUUID->"93fba6e7-b838-49ff-8c7a-9984bdb84abe"]
}, Open  ]],
Cell[4366510, 88152, 342, 8, 46, "Input",ExpressionUUID->"b763cb9e-3d5b-4cae-a366-1fd4a7fd78c0"]
}, Closed]],
Cell[CellGroupData[{
Cell[4366889, 88165, 311, 5, 53, "Subsubsection",ExpressionUUID->"d99cce9c-61af-494d-9d8e-6ffc386f7479"],
Cell[4367203, 88172, 1177, 31, 128, "Input",ExpressionUUID->"6dad70a7-0449-4011-9207-5f56386f1203"],
Cell[CellGroupData[{
Cell[4368405, 88207, 3280, 79, 189, "Input",ExpressionUUID->"e8bb8861-c90c-4e13-bd80-9ffb529b7411"],
Cell[CellGroupData[{
Cell[4371710, 88290, 469, 10, 34, "Print",ExpressionUUID->"65943de4-e163-40e5-a468-340195488464"],
Cell[4372182, 88302, 469, 10, 34, "Print",ExpressionUUID->"0929352d-360e-451d-9f3a-3f7c1c6d9707"],
Cell[4372654, 88314, 467, 10, 34, "Print",ExpressionUUID->"bb4bbc06-9590-4404-8ce7-6cae0877f4e0"],
Cell[4373124, 88326, 467, 10, 34, "Print",ExpressionUUID->"ca72fb3e-0d9e-43e8-8972-645fece60006"]
}, Open  ]]
}, Open  ]],
Cell[4373618, 88340, 266, 5, 43, "Input",ExpressionUUID->"92547fc2-e988-4172-ad4e-3fa805d3539d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4373933, 88351, 30222, 502, 242, "Subsection",ExpressionUUID->"a0fc93a2-cc76-42d9-8ad8-51aee46e5cd7"],
Cell[CellGroupData[{
Cell[4404180, 88857, 29803, 496, 145, "Subsubsection",ExpressionUUID->"512de7a0-3e94-4aae-a02b-ffef7d80a389"],
Cell[4433986, 89355, 568, 15, 43, "Input",ExpressionUUID->"de4ef629-4c63-4880-9463-e7d8916c16b2"]
}, Closed]],
Cell[CellGroupData[{
Cell[4434591, 89375, 1305, 27, 445, "Subsubsection",ExpressionUUID->"d385fe0e-e518-4ce4-b96d-ff7d8d42ae24"],
Cell[4435899, 89404, 1649, 48, 188, "Input",ExpressionUUID->"af9ce9a1-a49f-4135-aef3-af235baa0d69"],
Cell[CellGroupData[{
Cell[4437573, 89456, 457, 8, 73, "Input",ExpressionUUID->"6e23b01f-5c1d-490b-8790-95a631a7c8a6"],
Cell[4438033, 89466, 354, 6, 70, "Output",ExpressionUUID->"f3056c87-fe04-436a-88fb-97719d802e09"],
Cell[4438390, 89474, 371, 7, 70, "Output",ExpressionUUID->"85b4cb94-eb47-4a39-8e1c-8cf2ceaf4239"]
}, Open  ]],
Cell[4438776, 89484, 2515, 61, 102, "Input",ExpressionUUID->"120fd17a-2bc3-447d-9ddf-aab082487c42"],
Cell[CellGroupData[{
Cell[4441316, 89549, 512, 10, 43, "Input",ExpressionUUID->"90a45826-e8e6-4df3-858e-23137fbb7ef3"],
Cell[4441831, 89561, 4200, 103, 70, "Output",ExpressionUUID->"daedcea1-57d9-4bf8-bb94-c8074c219afc"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4446080, 89670, 447, 8, 53, "Subsubsection",ExpressionUUID->"a777886e-b30b-40a2-b904-7e03e3a9055f"],
Cell[4446530, 89680, 1639, 43, 73, "Input",ExpressionUUID->"c04b04c0-34fe-4e8c-8aa1-45cee9c5cdcc"],
Cell[CellGroupData[{
Cell[4448194, 89727, 321, 7, 43, "Input",ExpressionUUID->"e69755a1-40b9-4f58-b974-fe27291564d1"],
Cell[4448518, 89736, 286, 5, 49, "Output",ExpressionUUID->"916a54b2-ee5b-418b-a018-9ba4194f2089"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4448877, 89749, 155, 3, 78, "Section",ExpressionUUID->"79cbd707-d6c2-47a6-a863-a85e84265a6b"],
Cell[CellGroupData[{
Cell[4449057, 89756, 257, 5, 43, "Input",ExpressionUUID->"28f31733-94c5-4eb3-869b-7dc98443bb0e"],
Cell[4449317, 89763, 989, 26, 283, "Output",ExpressionUUID->"d0d0e672-1bdb-4951-b3cd-2bcaad493730"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4450343, 89794, 436, 11, 43, "Input",ExpressionUUID->"951ce54c-a55d-4660-99cd-241761203155"],
Cell[4450782, 89807, 207, 4, 49, "Output",ExpressionUUID->"b33648ec-ccf7-42a6-8ffb-e48b3a65f37c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4451038, 89817, 296, 4, 101, "Section",ExpressionUUID->"1af63652-033c-420d-9917-e115a470e3cb"],
Cell[CellGroupData[{
Cell[4451359, 89825, 346, 7, 122, "Subsection",ExpressionUUID->"a55edc83-567f-4da0-9f7c-8eb9be2448ed"],
Cell[4451708, 89834, 6321, 189, 946, "Input",ExpressionUUID->"c6229b30-95dd-4edf-820c-6ed1d28cafc2"],
Cell[CellGroupData[{
Cell[4458054, 90027, 471, 8, 46, "Input",ExpressionUUID->"07e9a58b-07b1-43e6-b2b4-d10320e0c5ee"],
Cell[4458528, 90037, 1140, 27, 70, "Output",ExpressionUUID->"c09e2499-132d-4d9b-a8f7-4ba59efc78c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4459705, 90069, 225, 4, 46, "Input",ExpressionUUID->"e8c6594f-9cc3-4dd9-9e91-69ee9eb64695"],
Cell[4459933, 90075, 886, 24, 70, "Output",ExpressionUUID->"def99389-6206-4e48-a444-c34d54c921e9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4460868, 90105, 197, 3, 55, "Subsection",ExpressionUUID->"9cf6640a-2eb9-4cee-b81d-840ef43537f7"],
Cell[CellGroupData[{
Cell[4461090, 90112, 294, 7, 106, "Subsubsection",ExpressionUUID->"e85e193c-034b-48d8-81dc-9d965df6affb"],
Cell[4461387, 90121, 771, 19, 74, "Input",ExpressionUUID->"d2f70f2f-7a15-4a32-8ddf-c35f9cf6aa4f"],
Cell[CellGroupData[{
Cell[4462183, 90144, 3636, 95, 305, "Input",ExpressionUUID->"e51ed3c7-2e50-4a65-8757-3aeed33d80cb"],
Cell[4465822, 90241, 398, 6, 70, "Output",ExpressionUUID->"767a35b8-62eb-4734-b442-ab8edf06ccbe"],
Cell[4466223, 90249, 2472, 55, 70, "Output",ExpressionUUID->"ddc48721-0c88-4f51-bca3-219fb706a02d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4468744, 90310, 766, 11, 53, "Subsubsection",ExpressionUUID->"73c6d4d3-d030-4a3b-8428-b1cfa96af102"],
Cell[CellGroupData[{
Cell[4469535, 90325, 3870, 98, 305, "Input",ExpressionUUID->"9c211e62-0c4e-448c-9827-33a6f7748f36"],
Cell[4473408, 90425, 569, 9, 70, "Output",ExpressionUUID->"652ae2b0-00fa-4bd6-850e-404fc95d5805"],
Cell[4473980, 90436, 2652, 59, 70, "Output",ExpressionUUID->"4c64b73b-e9ac-4f4e-8c29-67e0849e5584"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4476681, 90501, 941, 24, 96, "Subsubsection",ExpressionUUID->"93b7f4e2-9381-4b24-90a1-214948d7764d"],
Cell[CellGroupData[{
Cell[4477647, 90529, 531, 14, 43, "Input",ExpressionUUID->"81935744-c967-4890-82b3-46d296a01b43"],
Cell[4478181, 90545, 264, 5, 70, "Output",ExpressionUUID->"e8f04c2c-ccca-4838-8881-7e63568309d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4478482, 90555, 476, 13, 43, "Input",ExpressionUUID->"b537aaaa-eda3-4fa7-837e-143674f748af"],
Cell[4478961, 90570, 241, 5, 70, "Output",ExpressionUUID->"c4ce5698-d6ed-4211-b078-2420c4a01523"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4479239, 90580, 476, 13, 43, "Input",ExpressionUUID->"8266aecf-e29b-464f-9bb0-54a3c36e8a51"],
Cell[4479718, 90595, 255, 6, 70, "Output",ExpressionUUID->"e19c1f95-bb92-45c2-947e-f84fc3429578"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4480010, 90606, 542, 14, 43, "Input",ExpressionUUID->"293d9f57-5b90-4267-863d-9a2d52056123"],
Cell[4480555, 90622, 255, 6, 70, "Output",ExpressionUUID->"1a5b6c64-05f8-4d10-adf2-31d50178fb1a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4480859, 90634, 304, 5, 53, "Subsubsection",ExpressionUUID->"b13901b3-7011-48df-a266-d2389cd9f6e0"],
Cell[CellGroupData[{
Cell[4481188, 90643, 3771, 97, 388, "Input",ExpressionUUID->"f057ca6e-9b91-40dc-90a7-d7fbea7e3814"],
Cell[4484962, 90742, 444, 7, 70, "Output",ExpressionUUID->"71a4ba02-7a4c-4c83-8cac-4b25cee1951d"],
Cell[4485409, 90751, 2483, 55, 70, "Output",ExpressionUUID->"d8c9468d-b123-4e36-85fa-068ddd101b65"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4487941, 90812, 353, 6, 53, "Subsubsection",ExpressionUUID->"2b868dd7-54a5-4c1f-9694-5f321c720f19"],
Cell[CellGroupData[{
Cell[4488319, 90822, 5542, 142, 667, "Input",ExpressionUUID->"a5815d0d-853c-4e3e-b570-78925bd7f2e2"],
Cell[4493864, 90966, 487, 8, 70, "Output",ExpressionUUID->"2a7cbe8a-4a94-46cb-8104-eef6d97963c9"],
Cell[4494354, 90976, 2459, 55, 70, "Output",ExpressionUUID->"8d37cdec-c3f2-4c26-8795-b889d9cf9e56"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4496862, 91037, 341, 7, 53, "Subsubsection",ExpressionUUID->"9987bbbf-97e0-4613-ba5c-106e1f309d8f"],
Cell[CellGroupData[{
Cell[4497228, 91048, 1817, 52, 102, "Input",ExpressionUUID->"5ce3d1ac-0d9e-4ec2-a3cc-43f27cacbdda"],
Cell[4499048, 91102, 1061, 25, 70, "Output",ExpressionUUID->"15e042a7-fa1f-4cbb-ac4b-1862e4599306"],
Cell[4500112, 91129, 1059, 25, 70, "Output",ExpressionUUID->"ad1acf38-5c15-47b7-9020-dd4d4bdd83b5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4501220, 91160, 658, 15, 93, "Subsubsection",ExpressionUUID->"b66dea0b-c7bf-4fe0-a2a0-01bf6ef35f2a"],
Cell[CellGroupData[{
Cell[4501903, 91179, 6033, 153, 667, "Input",ExpressionUUID->"78b43137-ac3d-445e-b8c6-fda4278af879"],
Cell[4507939, 91334, 535, 8, 70, "Output",ExpressionUUID->"c69a29d7-9c82-4f49-8443-1ae1029bb08d"],
Cell[4508477, 91344, 2606, 56, 70, "Output",ExpressionUUID->"000a68f7-e67f-4c6f-8a59-4fee6415c431"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4511132, 91406, 452, 7, 53, "Subsubsection",ExpressionUUID->"fceb810d-54b2-4f95-a86a-54a6a004ea8f"],
Cell[CellGroupData[{
Cell[4511609, 91417, 6117, 154, 698, "Input",ExpressionUUID->"e3887ab5-f90e-4d0f-bc42-ce5097396a4b"],
Cell[4517729, 91573, 597, 10, 70, "Output",ExpressionUUID->"6c3530d0-022d-4445-9082-75c4dcfe3d08"],
Cell[4518329, 91585, 594, 10, 70, "Output",ExpressionUUID->"400b3836-8f80-49d5-b919-a3c05dbb00d4"],
Cell[4518926, 91597, 2671, 59, 70, "Output",ExpressionUUID->"87d50209-43b9-4e57-baf3-5b65245026e6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4521646, 91662, 501, 8, 53, "Subsubsection",ExpressionUUID->"6d26ce5d-58d0-4f2b-b08c-21040211c9ba"],
Cell[CellGroupData[{
Cell[4522172, 91674, 5598, 149, 698, "Input",ExpressionUUID->"274c7b8c-3a64-4c63-8c8d-df7a0f4e020e"],
Cell[4527773, 91825, 615, 10, 70, "Output",ExpressionUUID->"0066deda-d32e-4dde-8ea1-34cc9e89f450"],
Cell[4528391, 91837, 612, 10, 70, "Output",ExpressionUUID->"8fc74578-ebf8-4cff-9d89-a3822209e965"],
Cell[4529006, 91849, 2716, 58, 70, "Output",ExpressionUUID->"80623c60-9737-459a-9389-f37f97e90027"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4531771, 91913, 547, 8, 53, "Subsubsection",ExpressionUUID->"f0b57429-9bf5-4cc4-a2e3-8202b7e2b8bf"],
Cell[CellGroupData[{
Cell[4532343, 91925, 5616, 149, 698, "Input",ExpressionUUID->"91fb4a72-a069-4891-ad3e-23c33d68e68c"],
Cell[4537962, 92076, 647, 10, 70, "Output",ExpressionUUID->"f9238f42-64c9-44e5-96bb-c10f397b5237"],
Cell[4538612, 92088, 644, 10, 70, "Output",ExpressionUUID->"c869563f-3e9a-4159-8fe5-d213e7241d9e"],
Cell[4539259, 92100, 2686, 58, 70, "Output",ExpressionUUID->"ec6d4658-ad9c-4d46-b88f-98d62a99a6b5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4541994, 92164, 286, 4, 53, "Subsubsection",ExpressionUUID->"520fe576-624e-40d2-83f5-14acf3b081f0"],
Cell[CellGroupData[{
Cell[4542305, 92172, 1868, 53, 140, "Input",ExpressionUUID->"87d50b51-339a-4633-9676-bc802dcb92af"],
Cell[4544176, 92227, 1081, 26, 70, "Output",ExpressionUUID->"e04e29f0-c87a-40f5-9748-9ecb838a84f4"],
Cell[4545260, 92255, 1081, 26, 70, "Output",ExpressionUUID->"388a11f7-f483-4f10-a8fa-bd9bc4b6f184"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4546390, 92287, 834, 18, 93, "Subsubsection",ExpressionUUID->"a8fcacbe-5722-4fea-9b2d-46951024b729"],
Cell[CellGroupData[{
Cell[4547249, 92309, 5629, 149, 698, "Input",ExpressionUUID->"1615ba03-7727-4e67-bcec-fbb795e88b1f"],
Cell[4552881, 92460, 640, 10, 70, "Output",ExpressionUUID->"4cde2594-1892-4e12-a386-1ac98c023a0a"],
Cell[4553524, 92472, 636, 10, 70, "Output",ExpressionUUID->"a2d0c271-73cf-49dd-81f3-ebbf06c88876"],
Cell[4554163, 92484, 2718, 59, 70, "Output",ExpressionUUID->"16be9bfa-df74-4b70-87f8-97594f1b27eb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4556930, 92549, 645, 10, 53, "Subsubsection",ExpressionUUID->"20c5dc11-ddce-4c6e-9fd1-b6c3504c2120"],
Cell[CellGroupData[{
Cell[4557600, 92563, 5659, 150, 698, "Input",ExpressionUUID->"b666abd4-d690-47bd-b368-6fa7610993a6"],
Cell[4563262, 92715, 669, 11, 70, "Output",ExpressionUUID->"da3cc6bd-218a-4e14-bb81-01b6e855144b"],
Cell[4563934, 92728, 667, 11, 70, "Output",ExpressionUUID->"36538fc1-a1f4-4166-afb5-29e92f5458b6"],
Cell[4564604, 92741, 2745, 60, 70, "Output",ExpressionUUID->"a09b6ac0-9f2d-4662-a884-b81b865bb592"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4567398, 92807, 690, 10, 53, "Subsubsection",ExpressionUUID->"f4a3a9ca-4e96-47db-8995-ad6e9fb5312c"],
Cell[CellGroupData[{
Cell[4568113, 92821, 5676, 150, 698, "Input",ExpressionUUID->"26405998-86b8-4f29-b966-161b40b44b6f"],
Cell[4573792, 92973, 688, 11, 70, "Output",ExpressionUUID->"587533e6-44dd-4cb3-8adc-23d95c748e3e"],
Cell[4574483, 92986, 686, 11, 70, "Output",ExpressionUUID->"f2a8e9ec-9cf7-48a6-b82c-7dddc43a92c6"],
Cell[4575172, 92999, 2798, 61, 70, "Output",ExpressionUUID->"fd1322a0-f6ce-4647-9d93-e54535783467"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4578019, 93066, 739, 11, 53, "Subsubsection",ExpressionUUID->"969c327b-43a9-4bff-9d0f-5ee33a7a0df5"],
Cell[CellGroupData[{
Cell[4578783, 93081, 5690, 150, 698, "Input",ExpressionUUID->"93b83a53-a56f-416c-9554-300914ef32af"],
Cell[4584476, 93233, 712, 11, 70, "Output",ExpressionUUID->"b66fba08-076a-483b-b933-0a6f39b03462"],
Cell[4585191, 93246, 710, 11, 70, "Output",ExpressionUUID->"b6172acd-147b-42f3-bb72-0bec99d00543"],
Cell[4585904, 93259, 2749, 59, 70, "Output",ExpressionUUID->"f637a1aa-2e1d-4c1a-9d75-3199e9f7e4aa"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4588702, 93324, 338, 5, 53, "Subsubsection",ExpressionUUID->"1a0da0a4-e021-46a1-b328-ff64822f614e"],
Cell[CellGroupData[{
Cell[4589065, 93333, 1920, 53, 140, "Input",ExpressionUUID->"97b6a386-5074-44de-973b-c4d6f82988de"],
Cell[4590988, 93388, 1100, 26, 70, "Output",ExpressionUUID->"1d65c77e-3512-4c56-aa3b-5c1aaf79b333"],
Cell[4592091, 93416, 1102, 26, 70, "Output",ExpressionUUID->"0762e881-b40c-42a3-9679-65d6879f57e8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4593242, 93448, 1247, 23, 93, "Subsubsection",ExpressionUUID->"87ab5503-6f00-4200-b36f-575675ddbf70"],
Cell[CellGroupData[{
Cell[4594514, 93475, 5728, 151, 653, "Input",ExpressionUUID->"deea9742-5ea9-4c32-b17c-c744e316b303"],
Cell[4600245, 93628, 789, 12, 70, "Output",ExpressionUUID->"b0f70248-7e54-4e1b-91ed-4e97ef58b104"],
Cell[4601037, 93642, 787, 12, 70, "Output",ExpressionUUID->"a7d33bd8-ecbc-4610-a905-c01a827822ed"],
Cell[4601827, 93656, 2849, 59, 70, "Output",ExpressionUUID->"bace4bdb-563e-4b43-81a3-462c2e5b5508"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4604725, 93721, 1092, 26, 96, "Subsubsection",ExpressionUUID->"07f54f4b-c584-4c0f-9014-e49966de5c1e"],
Cell[CellGroupData[{
Cell[4605842, 93751, 636, 17, 43, "Input",ExpressionUUID->"541227cf-65ea-41dd-9b7e-6025eb2772b4"],
Cell[4606481, 93770, 332, 7, 70, "Output",ExpressionUUID->"b4a5a793-3e73-4210-b7d2-9f1e3b59b5d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4606850, 93782, 686, 17, 43, "Input",ExpressionUUID->"fd7704a7-b75d-48d1-ada0-6a669b11ac34"],
Cell[4607539, 93801, 338, 7, 70, "Output",ExpressionUUID->"9396d10c-d2df-4d4c-97a8-9e8291b41b60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4607914, 93813, 686, 17, 43, "Input",ExpressionUUID->"ae5128fb-bb18-4e00-a105-9c995496979f"],
Cell[4608603, 93832, 386, 8, 70, "Output",ExpressionUUID->"d3ca9547-69fd-4e71-838d-a2081469f3eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4609026, 93845, 675, 16, 43, "Input",ExpressionUUID->"3ad8a4ef-4dc6-4a27-bf9b-0a6f9d73ca6a"],
Cell[4609704, 93863, 382, 8, 70, "Output",ExpressionUUID->"ed67693e-04ab-46fc-b64a-9328a3b4f23b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4610135, 93877, 934, 14, 53, "Subsubsection",ExpressionUUID->"e73c9957-1cbc-458e-b1ea-0b5385cbed5f"],
Cell[CellGroupData[{
Cell[4611094, 93895, 5740, 151, 698, "Input",ExpressionUUID->"f2931095-b3cb-4905-bef4-b6c22db14e2f"],
Cell[4616837, 94048, 810, 13, 70, "Output",ExpressionUUID->"7d4b5a63-6610-4353-9377-68167a11ee15"],
Cell[4617650, 94063, 808, 13, 70, "Output",ExpressionUUID->"96dea9a8-294c-4991-95c0-d29aaf8fdf8d"],
Cell[4618461, 94078, 2886, 62, 70, "Output",ExpressionUUID->"9aa54a4c-e01d-4053-a6ae-8bd9aa5ee097"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4621396, 94146, 982, 14, 53, "Subsubsection",ExpressionUUID->"46ed0b0a-9ec0-4c84-97f9-8819d4c32cc4"],
Cell[CellGroupData[{
Cell[4622403, 94164, 5754, 152, 698, "Input",ExpressionUUID->"1a1ee0c6-001b-40d5-8fa3-382bb28095e1"],
Cell[4628160, 94318, 837, 13, 70, "Output",ExpressionUUID->"73091254-cfd9-4056-9b2c-a271eeb2b8f9"],
Cell[4629000, 94333, 835, 13, 70, "Output",ExpressionUUID->"acd6c8e7-d065-4e24-9278-11534983d222"],
Cell[4629838, 94348, 2936, 61, 70, "Output",ExpressionUUID->"af0dccc4-37d7-40c6-997b-ea30a13c0f28"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4632823, 94415, 451, 8, 53, "Subsubsection",ExpressionUUID->"9a58f790-4e93-4cab-a7d8-7f6b4c949c97"],
Cell[CellGroupData[{
Cell[4633299, 94427, 5768, 152, 698, "Input",ExpressionUUID->"ca6f25cc-338c-4721-8fe7-459c29cb35c6"],
Cell[4639070, 94581, 857, 13, 70, "Output",ExpressionUUID->"dec43ccc-1fd0-4cfc-a72e-79c47245b725"],
Cell[4639930, 94596, 855, 13, 70, "Output",ExpressionUUID->"10e5ac64-082b-4425-81ed-ee4387558db7"],
Cell[4640788, 94611, 2898, 61, 70, "Output",ExpressionUUID->"e4f0de1e-e3b6-402e-b9ee-33c68d7d63a4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4643735, 94678, 608, 14, 54, "Subsubsection",ExpressionUUID->"6e6c5a53-4eb9-4726-829b-f52216cf5f17"],
Cell[CellGroupData[{
Cell[4644368, 94696, 1973, 54, 140, "Input",ExpressionUUID->"f2a33c5b-629c-4536-850c-4c05b20fabe5"],
Cell[4646344, 94752, 1152, 27, 70, "Output",ExpressionUUID->"4e3d66ae-dfc5-47b1-9742-e4f30e578692"],
Cell[4647499, 94781, 1152, 27, 70, "Output",ExpressionUUID->"7fbf0e41-493d-4656-9ffb-9c38eac52b0c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4648700, 94814, 443, 8, 92, "Subsubsection",ExpressionUUID->"f0f04389-d8e6-4e67-9406-55e2ca6da098"],
Cell[4649146, 94824, 750, 23, 73, "Input",ExpressionUUID->"6bdb2bbc-ad4e-4174-9934-dbf079a112a2"],
Cell[CellGroupData[{
Cell[4649921, 94851, 350, 9, 43, "Input",ExpressionUUID->"7c8fdf78-4181-40cf-9909-92564daf2e09"],
Cell[4650274, 94862, 352, 6, 70, "Output",ExpressionUUID->"87ae11c7-5231-4e89-b749-c67648c98b0b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4650663, 94873, 231, 4, 43, "Input",ExpressionUUID->"f3fee293-6a17-4f2e-97e3-d14e5b5da4a4"],
Cell[4650897, 94879, 1102, 27, 70, "Output",ExpressionUUID->"9176a4a9-1f7b-4fd5-b71e-af5943a7e485"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4652036, 94911, 225, 4, 43, "Input",ExpressionUUID->"dd10ef47-6d21-47c6-9b05-370b4601a4db"],
Cell[4652264, 94917, 433, 10, 70, "Message",ExpressionUUID->"613c4b47-3cef-4b0f-84b7-05464beb5b49"],
Cell[4652700, 94929, 433, 10, 70, "Message",ExpressionUUID->"78ab4893-bf14-4389-8242-a31eecb4f6e3"],
Cell[4653136, 94941, 392, 7, 70, "Print",ExpressionUUID->"819a284b-0c14-4040-8fb4-9ddd9866cfa3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4653565, 94953, 241, 5, 43, "Input",ExpressionUUID->"f7f5046e-5013-4cc4-9cc3-aa287ffd4c30"],
Cell[4653809, 94960, 434, 10, 70, "Message",ExpressionUUID->"cc7e9119-92ae-4c4c-8dbc-58c3446d7605"],
Cell[4654246, 94972, 435, 10, 70, "Message",ExpressionUUID->"bdca4bf9-9fe0-4751-afde-ab24ec5dfe82"],
Cell[4654684, 94984, 5385, 88, 70, "Output",ExpressionUUID->"4445b8cc-b7ef-4308-b768-7132049ccf74"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4660106, 95077, 317, 7, 43, "Input",ExpressionUUID->"25a6d76a-65e9-45ca-a83b-973f4b69a140"],
Cell[4660426, 95086, 447, 7, 70, "Output",ExpressionUUID->"5fa3c957-6e74-439e-8910-9a33191ef607"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4660910, 95098, 362, 8, 43, "Input",ExpressionUUID->"7e3dd175-bb97-49dc-9faa-0bc9fa6532c8"],
Cell[4661275, 95108, 469, 7, 70, "Output",ExpressionUUID->"fbc9c15a-b4df-403e-b797-c4731a5ece46"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4661805, 95122, 323, 6, 81, "Subsection",ExpressionUUID->"6276051d-3d85-4817-91e4-a08061711516"],
Cell[CellGroupData[{
Cell[4662153, 95132, 210, 4, 67, "Subsubsection",ExpressionUUID->"5a0a4c47-ee19-4133-a835-10ecf4649a93"],
Cell[CellGroupData[{
Cell[4662388, 95140, 403, 10, 43, "Input",ExpressionUUID->"14eccf8c-029b-4437-b090-87efeddef6bf"],
Cell[4662794, 95152, 1567, 46, 70, "Output",ExpressionUUID->"d20b4d66-07a5-4e77-8915-d95749b0a072"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4664398, 95203, 265, 6, 43, "Input",ExpressionUUID->"c1520d5b-62a3-43cf-af89-b7292a93a9eb"],
Cell[4664666, 95211, 2378, 55, 70, "Output",ExpressionUUID->"8226eece-6ed3-4f23-809a-8ca517492159"]
}, Open  ]],
Cell[4667059, 95269, 1462, 38, 131, "Input",ExpressionUUID->"f1dc25e0-78b2-42dd-9546-bcc176bb2e1b"],
Cell[CellGroupData[{
Cell[4668546, 95311, 3755, 89, 218, "Input",ExpressionUUID->"0bdd8d0d-50ea-4e63-87e6-3f1ff542fc63"],
Cell[CellGroupData[{
Cell[4672326, 95404, 458, 9, 34, "Print",ExpressionUUID->"259ba183-8701-4284-a7bd-2f04429f473e"],
Cell[4672787, 95415, 458, 9, 34, "Print",ExpressionUUID->"0901bd57-bae8-4944-8496-1eda3bf05601"],
Cell[4673248, 95426, 455, 9, 34, "Print",ExpressionUUID->"e2ac4881-7a0f-4de3-801a-f840fa5adbc3"],
Cell[4673706, 95437, 455, 9, 34, "Print",ExpressionUUID->"b26c3797-df69-4825-9b79-386032a9f0f0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4674210, 95452, 324, 8, 43, "Input",ExpressionUUID->"cf6078e5-6531-4c32-bb90-c0e36fe1a98c"],
Cell[4674537, 95462, 2409, 55, 456, "Output",ExpressionUUID->"41ac2ead-9dfe-43db-b6ac-d6e9fa58636b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4676983, 95522, 239, 5, 43, "Input",ExpressionUUID->"4ae050ca-0ed0-422d-ab82-018b326ab99c"],
Cell[4677225, 95529, 2381, 55, 456, "Output",ExpressionUUID->"8961406a-07ac-4419-a4ee-deb4d968dccf"]
}, Open  ]],
Cell[4679621, 95587, 269, 6, 43, "Input",ExpressionUUID->"35f2f9bc-294e-45b9-a43a-0d5e1464c734"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4679927, 95598, 256, 4, 67, "Subsubsection",ExpressionUUID->"fcfd267c-f7e3-4325-a131-831acce874ad"],
Cell[CellGroupData[{
Cell[4680208, 95606, 405, 10, 43, "Input",ExpressionUUID->"f74c0272-f0ff-4306-b947-300538cfb436"],
Cell[4680616, 95618, 1560, 45, 70, "Output",ExpressionUUID->"c21c1ae6-5e24-40b4-a564-11ebad470e9e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4682213, 95668, 290, 6, 43, "Input",ExpressionUUID->"3ae1bb85-de0f-4a1e-bc79-6e2030fbb89f"],
Cell[4682506, 95676, 2364, 53, 70, "Output",ExpressionUUID->"8902c0e5-bd76-4349-9f5e-afc32173ffbc"]
}, Open  ]],
Cell[4684885, 95732, 1330, 33, 102, "Input",ExpressionUUID->"24d0a776-ec7d-41bf-8a54-2c422c9d8848"],
Cell[CellGroupData[{
Cell[4686240, 95769, 3755, 89, 218, "Input",ExpressionUUID->"134bf2eb-0472-4a5d-aa16-bda4acf2ec11"],
Cell[CellGroupData[{
Cell[4690020, 95862, 483, 10, 34, "Print",ExpressionUUID->"fb955570-4615-43c2-8607-5f3407bac787"],
Cell[4690506, 95874, 483, 10, 34, "Print",ExpressionUUID->"135859f1-0837-47b2-9582-770aeee6e9cf"],
Cell[4690992, 95886, 483, 10, 34, "Print",ExpressionUUID->"21559fd5-ed07-4a19-b037-23a089e96333"],
Cell[4691478, 95898, 483, 10, 34, "Print",ExpressionUUID->"11667878-fa97-44d0-9a01-c8f5a63999d2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4692010, 95914, 373, 9, 43, "Input",ExpressionUUID->"adaa76d7-49e4-4cf1-b010-ba9a773dc697"],
Cell[4692386, 95925, 2411, 54, 456, "Output",ExpressionUUID->"f6791cb4-21ea-4d53-afda-39988cdecddd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4694834, 95984, 290, 6, 43, "Input",ExpressionUUID->"b4a26cc1-a2c0-4a48-a624-2d3a7251822a"],
Cell[4695127, 95992, 2391, 54, 456, "Output",ExpressionUUID->"a85bc527-c0a1-4c00-bd7c-f14f87a94065"]
}, Open  ]],
Cell[4697533, 96049, 269, 6, 43, "Input",ExpressionUUID->"5d564a9c-f1ea-4f87-9122-c5d3e37e7090"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4697839, 96060, 310, 5, 53, "Subsubsection",ExpressionUUID->"9b8da84b-6699-4d6d-b176-9d682f47efce"],
Cell[CellGroupData[{
Cell[4698174, 96069, 405, 10, 43, "Input",ExpressionUUID->"cb733b08-d0ce-431b-9beb-eb0cfac0d38c"],
Cell[4698582, 96081, 1584, 45, 125, "Output",ExpressionUUID->"4854b627-2720-4f98-a655-23666862c1c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4700203, 96131, 341, 7, 43, "Input",ExpressionUUID->"9f2d38ec-ee29-49f2-8779-1647f8b91fa7"],
Cell[4700547, 96140, 2402, 55, 456, "Output",ExpressionUUID->"cb18430c-ad22-40f6-9154-ccd336635fd1"]
}, Open  ]],
Cell[4702964, 96198, 1379, 34, 102, "Input",ExpressionUUID->"f95b5f34-34fb-4969-8d15-5e74a9b58909"],
Cell[CellGroupData[{
Cell[4704368, 96236, 3755, 89, 218, "Input",ExpressionUUID->"80c8e95e-5e55-47e9-b8c9-b6d142d074bf"],
Cell[CellGroupData[{
Cell[4708148, 96329, 527, 10, 34, "Print",ExpressionUUID->"612bcb3b-c220-4a55-ab9e-9cdc098cc256"],
Cell[4708678, 96341, 528, 10, 34, "Print",ExpressionUUID->"da86df03-2436-4e58-8f1d-77fe488b1c0d"],
Cell[4709209, 96353, 528, 10, 34, "Print",ExpressionUUID->"000881af-3089-4bdf-9b86-208b91e1e712"],
Cell[4709740, 96365, 528, 10, 34, "Print",ExpressionUUID->"a3cc1fdd-f91d-4f72-b332-106df22897f0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4710317, 96381, 420, 9, 43, "Input",ExpressionUUID->"368de127-fb9c-46bd-8190-77fc6edd2927"],
Cell[4710740, 96392, 2546, 58, 456, "Output",ExpressionUUID->"23bd1be1-f912-4286-83f0-b4e01a853ea6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4713323, 96455, 341, 7, 43, "Input",ExpressionUUID->"239b5003-2be9-4765-984b-8a88dadb827a"],
Cell[4713667, 96464, 2521, 57, 456, "Output",ExpressionUUID->"64ec3e1e-2834-4775-b175-7d92523108e5"]
}, Open  ]],
Cell[4716203, 96524, 269, 6, 43, "Input",ExpressionUUID->"dadf7d9b-bdbd-430d-9510-4efb8174a453"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4716509, 96535, 360, 6, 67, "Subsubsection",ExpressionUUID->"a95cf19f-2952-4191-9a2d-d032400c5f0d"],
Cell[CellGroupData[{
Cell[4716894, 96545, 405, 10, 43, "Input",ExpressionUUID->"2fd86863-a259-4967-9340-b01aa13f7501"],
Cell[4717302, 96557, 1606, 46, 125, "Output",ExpressionUUID->"cb82eb95-555c-4aab-ad83-22cee4129f04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4718945, 96608, 388, 7, 43, "Input",ExpressionUUID->"840863bb-ac6a-4c11-959b-7a484e0e84ea"],
Cell[4719336, 96617, 2442, 58, 456, "Output",ExpressionUUID->"cb67559a-cea8-413e-9633-b8307648b042"]
}, Open  ]],
Cell[4721793, 96678, 1427, 34, 102, "Input",ExpressionUUID->"a375001b-abb1-45e1-8c72-5ba2a5cab680"],
Cell[CellGroupData[{
Cell[4723245, 96716, 3755, 89, 218, "Input",ExpressionUUID->"bb8e03d0-1909-407b-b28a-ecb2d1544843"],
Cell[CellGroupData[{
Cell[4727025, 96809, 554, 11, 34, "Print",ExpressionUUID->"5105214a-e0dc-480a-879a-a458146122d5"],
Cell[4727582, 96822, 554, 11, 34, "Print",ExpressionUUID->"abd248f7-0eb0-4ed9-b686-d72af12e6df8"],
Cell[4728139, 96835, 556, 11, 34, "Print",ExpressionUUID->"4d71285f-8361-484a-b8f3-e0fad9e5f94b"],
Cell[4728698, 96848, 556, 11, 34, "Print",ExpressionUUID->"9969e7c6-4e90-430c-a585-da32fa56f685"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4729303, 96865, 471, 10, 43, "Input",ExpressionUUID->"2f839ef7-980e-46ec-861b-853d6dcb6ce6"],
Cell[4729777, 96877, 2548, 56, 456, "Output",ExpressionUUID->"18d86971-7765-46f2-a480-df36450fb6ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4732362, 96938, 389, 7, 43, "Input",ExpressionUUID->"894d45be-1202-42d8-acfd-40cfec7c4f98"],
Cell[4732754, 96947, 2524, 56, 456, "Output",ExpressionUUID->"b021e37f-a994-4dbb-bc4d-6e8aa9b9b812"]
}, Open  ]],
Cell[4735293, 97006, 269, 6, 43, "Input",ExpressionUUID->"7938d37d-12d9-400d-8ec1-0a4661502501"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4735623, 97019, 180, 3, 78, "Section",ExpressionUUID->"9ce5b4b6-b6f9-4288-8f76-e148bd2c5c7f"],
Cell[CellGroupData[{
Cell[4735828, 97026, 282, 5, 43, "Input",ExpressionUUID->"500aa9b9-66e1-4559-b7a6-30c9224f969e"],
Cell[4736113, 97033, 987, 26, 283, "Output",ExpressionUUID->"ca01a9ad-5168-450e-919e-09bae50bc154"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4737137, 97064, 485, 12, 43, "Input",ExpressionUUID->"fe1738ae-5dfe-4b29-ac0b-efe83aa13ded"],
Cell[4737625, 97078, 203, 4, 49, "Output",ExpressionUUID->"4bc870c7-177b-4a5b-9b4c-ba9d2ffe64b9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4737877, 97088, 175, 3, 101, "Section",ExpressionUUID->"f0eb7253-584d-4471-bda3-361e722a2137"],
Cell[CellGroupData[{
Cell[4738077, 97095, 257, 5, 43, "Input",ExpressionUUID->"0a9263ca-1c65-4b89-af3c-087a9c7cb4a5"],
Cell[4738337, 97102, 352, 6, 49, "Output",ExpressionUUID->"e4520d8d-5f18-4fd6-ab7f-1a7679eb490f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4738726, 97113, 207, 4, 43, "Input",ExpressionUUID->"a142cff1-df43-4e99-975e-3e926108572e"],
Cell[4738936, 97119, 317, 5, 49, "Output",ExpressionUUID->"4fcdf488-cf2e-4f91-9464-8500e10884be"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4739290, 97129, 236, 5, 43, "Input",ExpressionUUID->"9e4a9c12-c737-46a7-a7b7-03488565cd35"],
Cell[4739529, 97136, 342, 6, 69, "Output",ExpressionUUID->"ef767e07-dad3-4c28-9e3a-e2eca3128b8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4739908, 97147, 239, 5, 43, "Input",ExpressionUUID->"ffebdbc7-6ed8-4442-91bd-a1d96bdf4d04"],
Cell[4740150, 97154, 344, 6, 69, "Output",ExpressionUUID->"6783789b-d10e-4ea5-ac7e-6904f7fde35d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4740531, 97165, 237, 5, 43, "Input",ExpressionUUID->"87dedd78-8308-4b4b-9a88-fc4504c5bf35"],
Cell[4740771, 97172, 339, 6, 69, "Output",ExpressionUUID->"10fcaa18-af5d-4cc5-99c1-f6df1b23a369"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4741147, 97183, 663, 18, 43, "Input",ExpressionUUID->"d8bca3cd-0e9a-48b1-865e-b824a8c7f5f2"],
Cell[4741813, 97203, 485, 10, 74, "Output",ExpressionUUID->"7f5db0d9-5189-40a5-9271-1a24a8c97401"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4742335, 97218, 307, 7, 69, "Input",ExpressionUUID->"89f3e213-9ec6-4216-9215-f975e2511f5e"],
Cell[4742645, 97227, 368, 6, 49, "Output",ExpressionUUID->"d667e528-63b8-4039-ab9c-6c5515f05796"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4743062, 97239, 178, 3, 101, "Section",ExpressionUUID->"431713e9-0d6e-4209-b0cb-4aa6ce13497d"],
Cell[CellGroupData[{
Cell[4743265, 97246, 357, 8, 81, "Subsection",ExpressionUUID->"9104f70b-3654-4c01-bac2-c341c53b62fc"],
Cell[4743625, 97256, 619, 14, 73, "Input",ExpressionUUID->"32b30590-59ae-4728-a97e-b18c800721c0"],
Cell[4744247, 97272, 1879, 54, 73, "Input",ExpressionUUID->"4d93e409-b8af-41bb-8bf8-45c333c2c356"],
Cell[CellGroupData[{
Cell[4746151, 97330, 151, 3, 43, "Input",ExpressionUUID->"d2d258d6-a8d0-4fc2-b98f-f0551a7480e8"],
Cell[4746305, 97335, 4063, 134, 70, "Output",ExpressionUUID->"96ec14a1-915d-46c8-ba40-0a61a7dc09b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4750405, 97474, 151, 3, 43, "Input",ExpressionUUID->"774cca68-3852-4b1a-b443-8c4974d995b4"],
Cell[4750559, 97479, 3108, 102, 70, "Output",ExpressionUUID->"f92a3357-a15a-4a72-bb35-8bea633a8b22"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4753716, 97587, 2216, 64, 263, "Subsection",ExpressionUUID->"06f93735-4446-48ee-adfc-417d139ca9e6"],
Cell[4755935, 97653, 1552, 41, 73, "Input",ExpressionUUID->"d6d1d588-022c-4675-bbe3-cd94ded74a29"],
Cell[CellGroupData[{
Cell[4757512, 97698, 311, 6, 43, "Input",ExpressionUUID->"dccfe57f-bf93-4f88-b35b-3f2880502eb2"],
Cell[4757826, 97706, 581, 9, 70, "Output",ExpressionUUID->"71f753fb-5d44-458b-8bf5-6cc9ace75c29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4758444, 97720, 309, 6, 43, "Input",ExpressionUUID->"db04cbb9-5364-4d5e-82c0-7918a4fc56ea"],
Cell[4758756, 97728, 565, 9, 70, "Output",ExpressionUUID->"e78da291-419c-49f1-871d-d9d872abd95b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4759358, 97742, 395, 9, 43, "Input",ExpressionUUID->"bab488de-6195-4391-b04f-dd7f7f2a769f"],
Cell[4759756, 97753, 598, 10, 70, "Output",ExpressionUUID->"5316aa95-3bab-4b31-baf1-8f9a4166c2ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4760391, 97768, 393, 9, 43, "Input",ExpressionUUID->"3419cb1f-5dcd-45f2-bf00-f8d5a5ba07c1"],
Cell[4760787, 97779, 597, 10, 70, "Output",ExpressionUUID->"8de2a024-c795-459e-933b-e5fc88a7ec6a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4761433, 97795, 2520, 69, 344, "Subsection",ExpressionUUID->"8bbafb62-a4b1-4e50-9f52-36621e107bf5"],
Cell[4763956, 97866, 3424, 95, 131, "Input",ExpressionUUID->"9dfbe6e6-4747-4e7e-a91c-c4f36c737a62"],
Cell[CellGroupData[{
Cell[4767405, 97965, 362, 7, 43, "Input",ExpressionUUID->"ca570fca-a417-4be0-9512-202d59f15908"],
Cell[4767770, 97974, 609, 10, 70, "Output",ExpressionUUID->"6fccb17e-87f3-4037-b124-660c8bd68f78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4768416, 97989, 358, 7, 43, "Input",ExpressionUUID->"d1c6102d-9408-40e7-a5cb-bfcd35ab20be"],
Cell[4768777, 97998, 595, 10, 70, "Output",ExpressionUUID->"c7d85409-a597-436e-99d8-dfd7c4f181f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4769409, 98013, 408, 7, 43, "Input",ExpressionUUID->"e8e27a78-c770-4d82-97fd-4381b47d46d1"],
Cell[4769820, 98022, 615, 10, 70, "Output",ExpressionUUID->"ae451785-3426-43db-a950-1d5d798de244"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4770472, 98037, 409, 7, 43, "Input",ExpressionUUID->"717dcb10-606f-4141-b0f9-a28eb6152470"],
Cell[4770884, 98046, 614, 10, 70, "Output",ExpressionUUID->"7bea11e5-87f1-47ff-8108-5d8a2e22a996"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4771535, 98061, 444, 9, 43, "Input",ExpressionUUID->"ef3aabb2-19eb-4e05-9cc0-f8d720f88bce"],
Cell[4771982, 98072, 620, 10, 70, "Output",ExpressionUUID->"dccb2419-1783-4d9e-82d7-79869decfb44"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4772639, 98087, 440, 9, 43, "Input",ExpressionUUID->"a54c551a-e1b9-4693-aa30-5d21c18d1f08"],
Cell[4773082, 98098, 620, 10, 70, "Output",ExpressionUUID->"c7806a67-3b22-43a8-9081-7789feeeecb9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4773739, 98113, 497, 10, 43, "Input",ExpressionUUID->"8cf8183c-8d2d-4d25-9b32-18fd966a1d88"],
Cell[4774239, 98125, 644, 10, 70, "Output",ExpressionUUID->"ea5256ed-dd2a-4e82-9006-40df7eb29714"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4774920, 98140, 491, 10, 43, "Input",ExpressionUUID->"df7c9ddb-2a31-457f-ad6a-a09ae9f79163"],
Cell[4775414, 98152, 643, 10, 70, "Output",ExpressionUUID->"cfb60c43-a576-4ec3-8328-ddf9d85919f0"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4776106, 98168, 3003, 76, 344, "Subsection",ExpressionUUID->"e624d4b0-c986-48d7-9b21-1e0f53042b9e"],
Cell[4779112, 98246, 3439, 92, 160, "Input",ExpressionUUID->"f3f25f27-3df4-4833-bdde-4c495b162baa"],
Cell[CellGroupData[{
Cell[4782576, 98342, 413, 7, 43, "Input",ExpressionUUID->"bbff0705-915c-41be-a4a8-06a48e9d85a6"],
Cell[4782992, 98351, 636, 10, 70, "Output",ExpressionUUID->"46269df3-603c-4c16-96c5-5736152efade"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4783665, 98366, 409, 7, 43, "Input",ExpressionUUID->"2488ae81-59e2-4c2d-a634-810a7242e953"],
Cell[4784077, 98375, 616, 10, 70, "Output",ExpressionUUID->"a72367da-0b9d-4f03-974e-514898efedf4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4784730, 98390, 464, 8, 43, "Input",ExpressionUUID->"6b734706-b2ea-4c58-ac86-519b753242ce"],
Cell[4785197, 98400, 640, 10, 70, "Output",ExpressionUUID->"7b9de287-29c3-4db6-94e7-0edbb0cc075f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4785874, 98415, 499, 10, 43, "Input",ExpressionUUID->"382bff51-c8c3-48ae-aaaa-54c9d0da77ac"],
Cell[4786376, 98427, 643, 10, 70, "Output",ExpressionUUID->"12beff79-318e-4a67-bff9-06ff4b8532de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4787056, 98442, 493, 10, 43, "Input",ExpressionUUID->"4a8c0094-b199-4064-9ee8-52c3c9ee7529"],
Cell[4787552, 98454, 646, 10, 70, "Output",ExpressionUUID->"746b1dac-dd63-461e-b232-bf12723d9386"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4788235, 98469, 552, 11, 43, "Input",ExpressionUUID->"16c7f399-bf76-401a-9872-52a2560dba7e"],
Cell[4788790, 98482, 667, 11, 70, "Output",ExpressionUUID->"ee243607-6e95-4c7a-8527-cbe3a4371bd9"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4789518, 98500, 274, 6, 101, "Section",ExpressionUUID->"8c44a9b9-b055-464c-b461-dd638d61bc28"],
Cell[CellGroupData[{
Cell[4789817, 98510, 1424, 28, 131, "Input",ExpressionUUID->"1db7e3cb-5a67-4bb5-bfee-af329fdebdd4"],
Cell[4791244, 98540, 252, 4, 68, "Output",ExpressionUUID->"4e837d9c-5d0e-4369-88de-6df1e054ac79"],
Cell[4791499, 98546, 405, 10, 41, "Message",ExpressionUUID->"4d74ae8c-70bc-417b-8418-c04da69d9bf2"],
Cell[4791907, 98558, 162, 3, 68, "Output",ExpressionUUID->"42d967df-bee0-417f-af50-6f4fd85736ee"],
Cell[4792072, 98563, 288, 5, 85, "Output",ExpressionUUID->"983bb628-010e-434e-8735-dc9008816fad"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)