(* 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[ 813871, 17386] NotebookOptionsPosition[ 789654, 16970] NotebookOutlinePosition[ 790211, 16991] CellTagsIndexPosition[ 790168, 16988] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["4D N = 1 MGM On Shell 4DCalcs.nb", "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.7608112578164744`*^9, 3.760811258084696*^9}, {3.760988703245017*^9, 3.760988706933181*^9}, { 3.7614146784895678`*^9, 3.7614146791297045`*^9}, {3.7632947323122077`*^9, 3.763294793464371*^9}, {3.7633195642488112`*^9, 3.763319584088785*^9}, 3.7634064812125816`*^9, {3.763417126620819*^9, 3.7634171281798353`*^9}, { 3.7661636696722207`*^9, 3.7661636711355424`*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\ 6353bcfa0aa5"], Cell[CellGroupData[{ Cell["Setting Rep and Importing Adinkra package", "Section", CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, { 3.742447721149543*^9, 3.7424477566373158`*^9}, {3.7607231858846717`*^9, 3.760723188894571*^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->{3.7614150768524*^9, 3.761501541481084*^9, 3.7619984282788854`*^9, 3.7619988900347996`*^9, 3.7620206178321247`*^9, 3.762950249202039*^9, 3.762950360279117*^9, 3.762950443037956*^9, 3.7629505893543577`*^9, 3.7632946686490335`*^9, 3.7633163892160378`*^9, 3.7633170601280994`*^9, 3.763320372863473*^9, 3.7633996495930886`*^9, 3.763406491282528*^9, 3.7644563170636187`*^9, 3.764456648505783*^9, 3.764456862529071*^9, 3.764950855099265*^9, 3.765635202802949*^9, 3.7657391648915343`*^9, 3.7689308336867423`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"71586f77-8156-4dbd-9c96-e40763c5e820"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Rep", " ", "=", " ", "MGMOnShell"}], ";"}]], "Input", CellChangeTimes->{{3.6749934458329735`*^9, 3.6749934552906713`*^9}, { 3.6749935512237806`*^9, 3.6749935589505424`*^9}, {3.6749938285658455`*^9, 3.674993829104095*^9}, {3.674994097653822*^9, 3.674994100542435*^9}, 3.7108087172403755`*^9, {3.7108087539744763`*^9, 3.710808771379472*^9}, { 3.7108100382219315`*^9, 3.710810046522406*^9}, {3.710872292511095*^9, 3.710872295614272*^9}, {3.710872341570901*^9, 3.7108723499323792`*^9}, { 3.7113851081406517`*^9, 3.711385116342121*^9}, 3.7117170155335445`*^9, { 3.7118439658332176`*^9, 3.7118439659442244`*^9}, 3.7120954248874836`*^9, { 3.737153700401895*^9, 3.737153701464458*^9}, {3.737979211685769*^9, 3.737979212556819*^9}, {3.7379793011768875`*^9, 3.7379793023309536`*^9}, { 3.7385801983905125`*^9, 3.7385802005056334`*^9}, {3.742218797918304*^9, 3.7422187989953537`*^9}, {3.76081126125266*^9, 3.760811261972982*^9}, { 3.7608113426210012`*^9, 3.7608113538356404`*^9}, {3.7614146970898876`*^9, 3.7614146987602863`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"], Cell[BoxData[ RowBox[{"<<", "Adinkra`"}]], "Input", CellChangeTimes->{{3.742447734672681*^9, 3.742447736272915*^9}, { 3.760723191514927*^9, 3.7607231919216137`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BuildDate", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.7607232186956367`*^9, 3.760723223385909*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"ee9a22d7-408f-43e3-b2dc-2ed014de5ea4"], Cell[BoxData["190403"], "Output", CellChangeTimes->{3.761415076952444*^9, 3.761501541684161*^9, 3.761998428447917*^9, 3.7619988901447415`*^9, 3.7620206180450535`*^9, 3.762950249493726*^9, 3.762950360444063*^9, 3.7629504432779703`*^9, 3.762950589528215*^9, 3.763294668834374*^9, 3.7633163894295154`*^9, 3.763317060324619*^9, 3.7633203730894084`*^9, 3.763399649697855*^9, 3.7634064914661093`*^9, 3.76445631731356*^9, 3.7644566486932397`*^9, 3.7644568626696653`*^9, 3.764950855308745*^9, 3.7656352029375906`*^9, 3.765739165092027*^9, 3.768930833843608*^9}, CellLabel->"Out[4]=",ExpressionUUID->"1e3a2353-fb90-4a91-9dc6-1576e355c227"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "fields: Bfield[mu],dfield, \[Psi][\[Mu]][a], all free indices covariant\n\ AdinkraReduce\n", Cell[BoxData[ FormBox[ SubscriptBox["\[CapitalPhi]", "i"], TraditionalForm]],ExpressionUUID-> "5512a3b1-9c30-41d0-b432-2a4b35df7d4d"], " = ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ OverscriptBox[ SubscriptBox["B", "1"], "."], ",", OverscriptBox[ SubscriptBox["B", "2"], "."], ",", OverscriptBox[ SubscriptBox["B", "3"], "."]}], "}"}], TraditionalForm]],ExpressionUUID-> "10d08833-b580-41c2-b23f-a9049ee3fdf6"], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CapitalPsi]", OverscriptBox["i", "^"]], "=", " ", RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Psi]", "."], RowBox[{"1", "a"}]], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], RowBox[{"2", "a"}]], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], RowBox[{"3", "a"}]]}], "}"}]}], TraditionalForm]],ExpressionUUID-> "d2e128ad-f240-4b4f-9c6f-fef159719ff0"], " " }], "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.739014781635538*^9, 3.739014825339038*^9}, { 3.7390148588989573`*^9, 3.7390149402156086`*^9}, {3.7390150015351157`*^9, 3.739015006557403*^9}, {3.7392033440592923`*^9, 3.739203344281305*^9}, { 3.7614147770432158`*^9, 3.761414856474897*^9}, 3.7614149994299154`*^9},ExpressionUUID->"4c5b5cfe-adb3-4e93-a92e-\ 56fcdf2f0a10"], Cell[CellGroupData[{ Cell["\<\ AdinkraReduce Encodes reducing the dependence on the fields from 4D \ space-time to only time\ \>", "Subsection", CellChangeTimes->{{3.711387756373122*^9, 3.71138778325966*^9}},ExpressionUUID->"35c45c57-b4de-4657-80c8-\ 61a394edd298"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AdinkraReduce", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "mu_", "]"}], "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu_", "]"}], "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4398532235625*^9, 3.43985327665625*^9}, { 3.4398533495625*^9, 3.439853466234375*^9}, {3.439853579328125*^9, 3.439853621875*^9}, {3.439865630453125*^9, 3.43986573459375*^9}, { 3.439865787203125*^9, 3.43986585509375*^9}, {3.439870393140625*^9, 3.439870424015625*^9}, {3.439870466796875*^9, 3.439870474859375*^9}, 3.439870511125*^9, 3.439870584375*^9, {3.4398709615*^9, 3.439870990625*^9}, {3.439871465328125*^9, 3.439871476109375*^9}, { 3.4409042785625*^9, 3.4409045300625*^9}, {3.44234987671875*^9, 3.44234997096875*^9}, {3.536715111601348*^9, 3.536715188302735*^9}, { 3.545146062705727*^9, 3.545146168500778*^9}, {3.545146250286456*^9, 3.5451462562327967`*^9}, {3.5594349084683237`*^9, 3.5594349817895174`*^9}, {3.7385804356330814`*^9, 3.7385804982376623`*^9}, 3.738583906002576*^9, {3.7390150508859386`*^9, 3.739015058103351*^9}, { 3.7390151768311424`*^9, 3.7390151904359207`*^9}, {3.7390152227927713`*^9, 3.739015271980584*^9}, {3.761414868245333*^9, 3.7614148686956863`*^9}, { 3.761415029720929*^9, 3.7614150927128696`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "mu_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu_", "]"}], "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.7614150947863846`*^9, 3.761501541738194*^9, 3.7619984284870234`*^9, 3.7619988901647215`*^9, 3.762020618062324*^9, 3.7632946688656206`*^9, 3.7633163971889887`*^9, 3.7633173732361574`*^9, 3.7633203731026106`*^9, 3.763399649730377*^9, 3.7634064914970365`*^9, 3.7644563173448095`*^9, 3.7644568796571555`*^9, 3.7649508553596535`*^9, 3.7656352029804764`*^9, 3.7657391651935277`*^9, 3.7689308339060535`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"e164538d-ea5d-4d54-8706-d5542b79d5ad"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ fields := prints out the adinkra reduced fields in subscript form\ \>", "Subsection", CellChangeTimes->{{3.439865886734375*^9, 3.439865888515625*^9}, { 3.7113878343185806`*^9, 3.7113878437131176`*^9}, {3.7113952255063324`*^9, 3.711395235018876*^9}, {3.737164677735704*^9, 3.737164690268036*^9}, 3.7371647213652935`*^9, {3.73901531264291*^9, 3.7390153268057203`*^9}, { 3.7390267501716614`*^9, 3.739026750933705*^9}},ExpressionUUID->"8dc47d1e-d238-43ad-b614-\ 8fd7a1d31b4b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fields", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "m_", "]"}], "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["\[Psi]", RowBox[{ RowBox[{"10", "*", "m"}], "+", "a"}]]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "m_", "]"}], "[", "a_", "]"}], "'"}], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["\[Psi]", "."], RowBox[{ RowBox[{"10", "*", "m"}], "+", "a"}]]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["B", "a"]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "a_", "]"}], "'"}], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["B", "."], "a"]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "a_", "]"}], "''"}], "[", "t", "]"}], "\[Rule]", RowBox[{ SubscriptBox["B", "a"], "''"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.443408286984375*^9, 3.4434083745*^9}, { 3.443408447578125*^9, 3.44340860446875*^9}, {3.4434086879375*^9, 3.443408866*^9}, {3.44340890678125*^9, 3.44340891928125*^9}, 3.443409331578125*^9, {3.523151289911106*^9, 3.523151308059144*^9}, { 3.536715830767482*^9, 3.536716107452307*^9}, {3.536716168917823*^9, 3.536716173377078*^9}, {3.5451462370186973`*^9, 3.545146240713909*^9}, { 3.5451462822892866`*^9, 3.545146448707805*^9}, {3.5451479347128*^9, 3.5451479509117265`*^9}, {3.559435385727621*^9, 3.559435528317777*^9}, { 3.559439909936391*^9, 3.5594399223501015`*^9}, {3.7614151414945197`*^9, 3.7614151423945656`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"6a93b507-95b3-4cbe-bc70-fd85313c4c2a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "m_", "]"}], "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["\[Psi]", RowBox[{"a", "+", RowBox[{"10", " ", "m"}]}]]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "m_", "]"}], "[", "a_", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["\[Psi]", "."], RowBox[{"a", "+", RowBox[{"10", " ", "m"}]}]]}], ",", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["B", "a"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "a_", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["B", "."], "a"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "a_", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SuperscriptBox[ SubscriptBox["B", "a"], "\[Prime]\[Prime]", MultilineFunction->None]}]}], "}"}]], "Output", CellChangeTimes->{3.712096153578162*^9, 3.7371537686286445`*^9, 3.737153965712062*^9, 3.737159452629966*^9, 3.737162768098554*^9, 3.737168389413375*^9, 3.737208317748387*^9, 3.761415145444376*^9, 3.7615015417889376`*^9, 3.7619984285412493`*^9, 3.7619988901847715`*^9, 3.7620206180922284`*^9, 3.763294668950468*^9, 3.763316397313616*^9, 3.763317373333894*^9, 3.7633203731339006`*^9, 3.7633996497951803`*^9, 3.7634064915160007`*^9, 3.7644563174170585`*^9, 3.76445687981592*^9, 3.764950855421481*^9, 3.765635203060263*^9, 3.7657391652104826`*^9, 3.7689308339685383`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"d92a7e04-01d9-4682-9f1e-2c0250b2d30b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "'"}], "[", "t", "]"}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.5367161113775315`*^9, 3.5367161153677597`*^9}, { 3.5367161521498632`*^9, 3.536716163468511*^9}, {3.545147867954982*^9, 3.5451479269313545`*^9}, {3.5451479604802732`*^9, 3.545147961095309*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"82da1ea3-b570-49a6-b2ed-338f70546068"], Cell[BoxData[ SubscriptBox[ OverscriptBox["\[Psi]", "."], "12"]], "Output", CellChangeTimes->{3.712096153589163*^9, 3.7371537686754913`*^9, 3.737153965712062*^9, 3.737159452645621*^9, 3.7371627681141987`*^9, 3.7371683894446187`*^9, 3.737208317765388*^9, 3.761415148424361*^9, 3.7615015417889376`*^9, 3.761998428550226*^9, 3.761998890194549*^9, 3.7620206181028137`*^9, 3.7632946689604063`*^9, 3.7633163973315697`*^9, 3.763317373356835*^9, 3.7633203731700897`*^9, 3.76339964981114*^9, 3.7634064915289097`*^9, 3.7644563174326763`*^9, 3.764456879831542*^9, 3.764950855441456*^9, 3.7656352030722294`*^9, 3.765739165223448*^9, 3.768930834040167*^9}, CellLabel->"Out[7]=",ExpressionUUID->"07e04574-c641-40f5-843f-743a1389e9ab"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Phi", "[", "t", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", SubscriptBox["\[CapitalPhi]", "i"]}], TraditionalForm]],ExpressionUUID-> "ae24a706-c9b5-49b7-b525-724b4f04c622"], " = ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["B", "."], "1"], ",", OverscriptBox[ SubscriptBox["B", "2"], "."], ",", OverscriptBox[ SubscriptBox["B", "3"], "."]}], "}"}], TraditionalForm]],ExpressionUUID-> "d75324ad-3f13-4047-9861-125ea39545a3"], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Psi", "[", "t", "]"}], "[", RowBox[{"[", "ihat", "]"}], "]"}], " ", "=", " ", RowBox[{ SubscriptBox["\[CapitalPsi]", OverscriptBox["i", "^"]], "=", " ", RowBox[{"{", SubscriptBox[ OverscriptBox["\[Psi]", "."], "a"], "}"}], " "}]}], TraditionalForm]], ExpressionUUID->"45b52577-aa07-4487-8f2b-dd143d1dd293"], " " }], "Subsection", CellChangeTimes->{{3.7113950998691463`*^9, 3.7113951338350887`*^9}, { 3.7114193111012335`*^9, 3.7114193116452646`*^9}, {3.738580760953689*^9, 3.7385807864541473`*^9}, {3.738580832602787*^9, 3.7385808326037874`*^9}, { 3.7390155287712717`*^9, 3.739015542283045*^9}, {3.7609853049075375`*^9, 3.7609853049075375`*^9}, {3.7614149407383356`*^9, 3.7614149414180813`*^9}, { 3.761415038161147*^9, 3.761415038161147*^9}},ExpressionUUID->"f7223d3e-780f-46b6-aa53-\ f17da6eef8b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Phi", "[", "t", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "3", "]"}], "'"}], "[", "t", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.6745776682748632`*^9, 3.6745779133984795`*^9}, { 3.674734596205909*^9, 3.674734728366371*^9}, {3.674785522776581*^9, 3.674785523431017*^9}, {3.6747858856838675`*^9, 3.6747858862742834`*^9}, { 3.6748160483899126`*^9, 3.674816145774766*^9}, {3.7107764696574073`*^9, 3.7107764702524414`*^9}, {3.7385808805555296`*^9, 3.7385808957704*^9}, { 3.739015556696869*^9, 3.739015599385311*^9}, 3.76098534273036*^9, { 3.761414893835623*^9, 3.761414894666587*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.761415182555614*^9, 3.761501541820213*^9, 3.761998428574165*^9, 3.7619988902048235`*^9, 3.7620206181319733`*^9, 3.763294668966831*^9, 3.763316397348524*^9, 3.7633173733767815`*^9, 3.7633203731856575`*^9, 3.7633996498300886`*^9, 3.7634064915449023`*^9, 3.76445631746392*^9, 3.764456879831542*^9, 3.7649508554593415`*^9, 3.7656352030841975`*^9, 3.765739165238408*^9, 3.7689308341039963`*^9}, CellLabel->"Out[8]=",ExpressionUUID->"825421b2-bb3d-4aab-858c-9e21583780c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Psi", "[", "t", "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "'"}], "[", "t", "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.6748161614942904`*^9, 3.674816192282522*^9}, { 3.6748162285602317`*^9, 3.67481634210023*^9}, {3.6748165467092514`*^9, 3.674816556356063*^9}, {3.674860464676492*^9, 3.674860465434026*^9}, { 3.710776478221897*^9, 3.7107764786759233`*^9}, {3.711391757277961*^9, 3.7113917605891504`*^9}, {3.738580902970812*^9, 3.738580916636594*^9}, { 3.739015631268134*^9, 3.739015635088353*^9}, {3.7390162289783216`*^9, 3.7390162324555206`*^9}, {3.761415039321232*^9, 3.761415040207842*^9}, { 3.76141517407549*^9, 3.761415178605624*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.761415185685561*^9, 3.7615015418358407`*^9, 3.7619984285921164`*^9, 3.7619988902377896`*^9, 3.7620206181522317`*^9, 3.7632946689824905`*^9, 3.763316397364479*^9, 3.763317373404767*^9, 3.763320373216941*^9, 3.7633996498460503`*^9, 3.7634064915628195`*^9, 3.7644563174795437`*^9, 3.764456879847161*^9, 3.764950855474304*^9, 3.7656352030991592`*^9, 3.7657391652545457`*^9, 3.76893083416982*^9}, CellLabel->"Out[9]=",ExpressionUUID->"35e7da20-dfc8-4628-9f06-a1bc81442ab0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Phi", "[", "t", "]"}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.711395275486191*^9, 3.7113952811105127`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"79460b94-9729-4f3e-8728-f207ac43d16f"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["B", "."], "1"], ",", SubscriptBox[ OverscriptBox["B", "."], "2"], ",", SubscriptBox[ OverscriptBox["B", "."], "3"]}], "}"}]], "Output", CellChangeTimes->{3.7614151898041983`*^9, 3.7615015418514557`*^9, 3.7619984286050816`*^9, 3.7619988902527137`*^9, 3.76202061818375*^9, 3.763294669004071*^9, 3.763316397381434*^9, 3.763317373420662*^9, 3.763320373232562*^9, 3.763399649862002*^9, 3.7634064915803347`*^9, 3.764456317495166*^9, 3.7644568798628097`*^9, 3.7649508554902596`*^9, 3.76563520311312*^9, 3.7657391652695427`*^9, 3.768930834231655*^9}, CellLabel->"Out[10]=",ExpressionUUID->"85a0e1ff-18f1-41ce-baf2-8d9f0c87bb50"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"I", " ", RowBox[{"Psi", "[", "t", "]"}]}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.711395298633515*^9, 3.711395308561083*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"0d5cbf46-6c7e-4ca6-9313-90549d0dfd86"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Psi]", "."], "11"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "12"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "13"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "14"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "21"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "22"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "23"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "24"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "31"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "32"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "33"], ",", SubscriptBox[ OverscriptBox["\[Psi]", "."], "34"]}], "}"}]], "Output", CellChangeTimes->{3.7614151898806696`*^9, 3.7615015418670826`*^9, 3.7619984286188145`*^9, 3.761998890272663*^9, 3.762020618192263*^9, 3.763294669004071*^9, 3.7633163973983912`*^9, 3.7633173734376183`*^9, 3.7633203732481437`*^9, 3.763399649880952*^9, 3.763406491594291*^9, 3.7644563175107837`*^9, 3.7644568798784046`*^9, 3.7649508555092106`*^9, 3.765635203129079*^9, 3.7657391652814956`*^9, 3.7689308342934895`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"48015991-3039-4702-a5bc-ed6175d28eea"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FieldList:= list of the names of the fields", "Subsection", CellChangeTimes->{{3.7371647409610195`*^9, 3.7371647437738266`*^9}}, FontSlant->"Italic",ExpressionUUID->"934f9f0b-9b24-401e-9416-77c2303ebc8b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldList", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]}]], "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.7614152069965577`*^9, 3.761415214586452*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"4780b206-2c28-446f-845b-d27afd791d82"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.737164888759252*^9, 3.7371657201612124`*^9, 3.7371664595037923`*^9, 3.7371683896331053`*^9, 3.7372083179793997`*^9, 3.7614152152686415`*^9, 3.761501541882706*^9, 3.7619984286390305`*^9, 3.7619988902844*^9, 3.762020618224355*^9, 3.763294669039683*^9, 3.7633163974153795`*^9, 3.763317373458624*^9, 3.7633203732891026`*^9, 3.7633996498989406`*^9, 3.763406491613286*^9, 3.7644563175264063`*^9, 3.7644568798940277`*^9, 3.7649508555261984`*^9, 3.7656352031460342`*^9, 3.7657391653054323`*^9, 3.7689308343603106`*^9}, CellLabel->"Out[12]=",ExpressionUUID->"569cf7d7-1efd-4891-910e-d8890f0ab4a9"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Symmetries, Constraints, and raised indices such as Bfieldup, 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.739016391461615*^9, 3.7390163922926626`*^9}, 3.7614148990320883`*^9},ExpressionUUID->"65102be5-a054-4c68-82da-\ 5d568c24d914"], Cell[CellGroupData[{ Cell["Bfieldup", "Subsection", CellChangeTimes->{{3.5451465790572605`*^9, 3.545146585929654*^9}, { 3.5451543054161835`*^9, 3.545154311792548*^9}, 3.5594356703308997`*^9, { 3.709571995263357*^9, 3.709571995932396*^9}, {3.739016500869873*^9, 3.7390165034870224`*^9}, 3.761414899688879*^9},ExpressionUUID->"778edc5b-aa18-4a83-ac0d-\ 00833534239a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bfieldup", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5451465875187445`*^9, 3.5451466239788303`*^9}, { 3.5451543212970915`*^9, 3.5451543250963087`*^9}, {3.559435673901104*^9, 3.5594356777893267`*^9}, {3.711387230056019*^9, 3.711387257754603*^9}, { 3.7371538092270117`*^9, 3.7371538229783764`*^9}, {3.7371540001526613`*^9, 3.737154000480689*^9}, {3.737158811015826*^9, 3.7371588326117053`*^9}, { 3.7390165117844973`*^9, 3.7390165291404896`*^9}, {3.7614149006467495`*^9, 3.7614149011066437`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Bfieldup", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5451466516414127`*^9, 3.545146659427858*^9}, 3.5451543356479125`*^9, 3.559435682412591*^9, {3.7390165506337194`*^9, 3.739016551840788*^9}, 3.761414901370023*^9}, CellLabel->"In[14]:=",ExpressionUUID->"43687642-1c54-4669-84c2-e03dde360657"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"Bfield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bfield", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.761415272855319*^9, 3.761501541898321*^9, 3.761998428658439*^9, 3.761998890324747*^9, 3.7620206182563524`*^9, 3.763294669056215*^9, 3.7633163974383383`*^9, 3.7633173833182106`*^9, 3.763320373312129*^9, 3.7633996499288235`*^9, 3.7634064916341844`*^9, 3.7644563175732684`*^9, 3.764456879909649*^9, 3.764950855556085*^9, 3.765635203178651*^9, 3.7657391653258085`*^9, 3.768930836960781*^9}, CellLabel->"Out[14]=",ExpressionUUID->"d8170103-916e-4c9c-b4e6-b26e577c6c16"] }, 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["B", "\[Nu]"]}], " ", "-", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["B", "\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"eb8aebdc-4464-4c08-99c1-c0ea702eb5e6"], " , Fmnup[\[Mu],\[Nu]][t,x,y,z] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["B", "\[Nu]"]}], "-", RowBox[{ SuperscriptBox["\[PartialD]", "\[Nu]"], SuperscriptBox["B", "\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"1ddd53b2-23fa-44c1-8e0c-8e2d9c9b82a8"] }], "Subsection", CellChangeTimes->{{3.559435749243413*^9, 3.5594358115719786`*^9}, { 3.7095723534978476`*^9, 3.709572367764663*^9}, {3.7391018360546093`*^9, 3.7391018449561186`*^9}, {3.7391026849641643`*^9, 3.7391026854611926`*^9}, { 3.739102724383419*^9, 3.7391027822997313`*^9}, {3.7614149424680843`*^9, 3.761414944188199*^9}},ExpressionUUID->"3f1ea2b0-6032-4fee-802d-\ 0bd9d2cf462b"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fmn", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "\[Nu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Mu]", "]"}]}], "]"}], " ", "-", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "\[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.7391018117262177`*^9, 3.7391018161954737`*^9}, {3.7614149020437384`*^9, 3.7614149026441755`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"], 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.7391028089342546`*^9, 3.739102810474343*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"], 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[17]:=",ExpressionUUID->"f0d625ec-df6a-4218-9b75-c64339bbfd2f"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "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->{3.761415272928452*^9, 3.7615015419774036`*^9, 3.7619984287304087`*^9, 3.7619988903548317`*^9, 3.7620206183021464`*^9, 3.763294669151074*^9, 3.763316397483206*^9, 3.763317383375099*^9, 3.763320373382929*^9, 3.763399650008689*^9, 3.76340649168211*^9, 3.7644563176982403`*^9, 3.764456879956511*^9, 3.7649508556428947`*^9, 3.7656352032195415`*^9, 3.765739165370265*^9, 3.76893083707752*^9}, CellLabel-> "Out[17]//MatrixForm=",ExpressionUUID->"d1067f2b-22f4-4298-8036-\ 48552df8913a"] }, 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.5594359455036387`*^9, 3.55943595864439*^9}, { 3.5594391511239896`*^9, 3.559439152285056*^9}, {3.739103091441413*^9, 3.739103095356637*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"f4d145fd-2861-4bcf-9e11-4e68e93cc926"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "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->{3.7614152729582605`*^9, 3.7615015420086527`*^9, 3.7619984287493935`*^9, 3.76199889038488*^9, 3.762020618335816*^9, 3.76329466916669*^9, 3.763316397504159*^9, 3.763317383408969*^9, 3.7633203734142413`*^9, 3.7633996500295925`*^9, 3.7634064917126565`*^9, 3.7644563177138615`*^9, 3.7644568799721317`*^9, 3.764950855662885*^9, 3.7656352032464724`*^9, 3.7657391654031763`*^9, 3.7689308371642876`*^9}, CellLabel-> "Out[18]//MatrixForm=",ExpressionUUID->"ea6ea10e-7b50-4914-8ab7-\ fbcf5e56c35e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "\[Psi]stup[\[Mu]][a] := ", Cell[BoxData[ FormBox[ SubscriptBox[ SuperscriptBox["\[Psi]", "\[Mu]"], "a"], TraditionalForm]],ExpressionUUID-> "5ffb3a81-dfd4-4760-b56a-1946ac1f3799"], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Psi]stupup", "[", "\[Mu]", "]"}], "[", "a", "]"}], ":=", SuperscriptBox["\[Psi]", "\[Mu]a"]}], TraditionalForm]],ExpressionUUID-> "e6b86725-c49a-4c01-8dff-f9a1a0efb1aa"], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Psi]stdownup", "[", "\[Mu]", "]"}], "[", "a", "]"}], ":=", SuperscriptBox[ SubscriptBox["\[Psi]", "\[Mu]"], "a"]}], TraditionalForm]], ExpressionUUID->"5779f69d-2fa6-4ddc-9c10-068680c0a919"] }], "Subsection", CellChangeTimes->{{3.7113885157185545`*^9, 3.7113885534627132`*^9}, { 3.7113889545276527`*^9, 3.711388969111487*^9}, {3.71139033864882*^9, 3.7113903511965375`*^9}},ExpressionUUID->"2140af75-467c-41e8-aa83-\ 39e810822266"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]stup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113885588580217`*^9, 3.7113886129791174`*^9}, { 3.737159706297971*^9, 3.7371597127674866`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"73e729d4-5c04-4f71-aae0-79c9fb3c6d6a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]stup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.7113886043156214`*^9, 3.7113886085988665`*^9}, { 3.711388904264778*^9, 3.7113889382287207`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"601236f2-cd5b-4ddb-a025-4bf91753bf5e"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}, { RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}, { RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]} }, 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.712096154131194*^9, 3.7371597208931*^9, 3.7371627688720427`*^9, 3.7371683904141726`*^9, 3.7372084302608223`*^9, 3.761415294979383*^9, 3.7615015420319815`*^9, 3.761998428770002*^9, 3.7619988904101286`*^9, 3.762020618370221*^9, 3.7632946692039375`*^9, 3.763316397530079*^9, 3.7633173834478993`*^9, 3.7633203734610806`*^9, 3.7633996500525904`*^9, 3.7634064917355795`*^9, 3.7644563177451096`*^9, 3.764456879987754*^9, 3.7649508556878147`*^9, 3.7656352032793865`*^9, 3.7657391654271126`*^9, 3.7689308372510557`*^9}, CellLabel-> "Out[20]//MatrixForm=",ExpressionUUID->"76070787-c474-4212-ab66-\ d5ededaaebe7"] }, Open ]], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]stupup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", " ", RowBox[{ RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]stupHolder", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", RowBox[{"\[Psi]stupHolder", "\[Rule]", "\[Psi]stup"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113900941898375`*^9, 3.711390151475114*^9}, { 3.7371597436143637`*^9, 3.7371597764932556`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"ca6b9f79-9281-40c3-819f-f881a5d1bdf1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]stupup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.7113886043156214`*^9, 3.7113886085988665`*^9}, { 3.711388904264778*^9, 3.7113889382287207`*^9}, {3.711390185960087*^9, 3.711390186093094*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"a9582bf7-331f-40d6-9aec-3f50ffd3db02"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}, { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]} }, 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.7120961541591954`*^9, 3.737159785635027*^9, 3.737162768903286*^9, 3.7371683904454145`*^9, 3.7372084303798294`*^9, 3.7614152950126743`*^9, 3.7615015420476437`*^9, 3.761998428792882*^9, 3.7619988904373107`*^9, 3.7620206184021263`*^9, 3.7632946692400393`*^9, 3.7633163975560064`*^9, 3.7633173834897537`*^9, 3.7633203734923377`*^9, 3.7633996500754704`*^9, 3.763406491758525*^9, 3.7644563177763453`*^9, 3.764456880018998*^9, 3.7649508557117677`*^9, 3.765635203315816*^9, 3.7657391654550548`*^9, 3.7689308373338346`*^9}, CellLabel-> "Out[22]//MatrixForm=",ExpressionUUID->"6ec6c7a9-3523-49ab-a2da-\ c6d04579578b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.711390208186358*^9, 3.7113902171668715`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"4c152558-0185-4a2d-a3a5-a9e50619b39e"], 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->{3.712096154170196*^9, 3.7371627689189076`*^9, 3.737168390461037*^9, 3.7372084304398327`*^9, 3.7614152950292535`*^9, 3.761501542063225*^9, 3.7619984288028903`*^9, 3.7619988904443393`*^9, 3.762020618416374*^9, 3.763294669256756*^9, 3.763316397570963*^9, 3.7633173835106983`*^9, 3.7633203735235806`*^9, 3.7633996500854807`*^9, 3.7634064917684917`*^9, 3.7644563177919674`*^9, 3.764456880018998*^9, 3.7649508557217245`*^9, 3.7656352033327646`*^9, 3.765739165466012*^9, 3.7689308374056425`*^9}, CellLabel-> "Out[23]//MatrixForm=",ExpressionUUID->"d23d8e3e-c59f-4ecb-9be2-\ b46d4876a63e"] }, Open ]], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]stdownup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", " ", RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113900941898375`*^9, 3.711390151475114*^9}, { 3.7113902999156046`*^9, 3.7113903122923126`*^9}, {3.737159830451649*^9, 3.7371598338584566`*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"07497807-6f72-4db7-9661-6daa685a3f21"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]stdownup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.7113886043156214`*^9, 3.7113886085988665`*^9}, { 3.711388904264778*^9, 3.7113889382287207`*^9}, {3.711390185960087*^9, 3.711390186093094*^9}, {3.711390324363003*^9, 3.711390325325058*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"2e337941-dfa7-4824-b7db-fd5f2df44f60"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]} }, 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.7120961541931973`*^9, 3.737159839233631*^9, 3.7371627689501514`*^9, 3.737168390492279*^9, 3.7372084305648394`*^9, 3.7614152950654173`*^9, 3.761501542078889*^9, 3.761998428824834*^9, 3.761998890484871*^9, 3.7620206184418125`*^9, 3.7632946692895966`*^9, 3.7633163975998945`*^9, 3.763317383556576*^9, 3.7633203735547686`*^9, 3.763399650108382*^9, 3.7634064917934494`*^9, 3.7644563178232107`*^9, 3.764456880050257*^9, 3.7649508557442484`*^9, 3.7656352033626847`*^9, 3.765739165503888*^9, 3.768930837490416*^9}, CellLabel-> "Out[25]//MatrixForm=",ExpressionUUID->"2787d668-8783-41e1-846b-\ 363133ff778e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Rfield", "[", "a", "]"}], " ", ":=", " ", RowBox[{ SubscriptBox["R", "a"], " ", "=", " "}]}], TraditionalForm]], ExpressionUUID->"73526b12-1e94-430e-ad66-8771c0bc1b58"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{"(", RowBox[{"[", RowBox[{ SuperscriptBox["\[Gamma]", "\[Mu]"], ",", SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}]}], TraditionalForm]], ExpressionUUID->"1299a949-0344-4618-ad78-23627d7fb9fa"], Cell[BoxData[ FormBox[ SuperscriptBox[ SubscriptBox[")", "a"], "b"], TraditionalForm]],ExpressionUUID-> "46cba7ef-3b39-4cd8-af98-7f0b5e174b6b"], Cell[BoxData[ FormBox[ SubscriptBox["\[PartialD]", "\[Mu]"], TraditionalForm]], "None", ExpressionUUID->"06787a24-1075-4320-8f68-eb88ffc9a392"], Cell[BoxData[ FormBox[ SubscriptBox["\[Psi]", RowBox[{"\[Nu]", " ", "b"}]], TraditionalForm]],ExpressionUUID-> "37b613ab-2b48-4323-b1e3-24f0ec96e62a"] }], "Subsection", CellChangeTimes->{{3.709571685911663*^9, 3.7095717270220146`*^9}, { 3.710786334732687*^9, 3.7107863351117086`*^9}},ExpressionUUID->"728b2278-841c-4fbe-b5bc-\ de3b842f80e4"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Rfield", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGamma", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"ai", ",", "bi"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "nu", "]"}], "[", "bi", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7095717331863675`*^9, 3.7095718259986763`*^9}, 3.710786351197629*^9}, CellLabel->"In[26]:=",ExpressionUUID->"f37bf8ac-ba18-45ba-9196-661163625945"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Rfield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{ 3.70957179914814*^9, {3.709571841945588*^9, 3.7095718523621836`*^9}, 3.710786351935671*^9}, CellLabel->"In[27]:=",ExpressionUUID->"c2a32635-f7e4-43ba-828e-749137ebcc1c"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7120961542341995`*^9, 3.7371598626734686`*^9, 3.737162768981394*^9, 3.737168390523532*^9, 3.7372084518730583`*^9, 3.761415314329781*^9, 3.7615015421101255`*^9, 3.761998428848771*^9, 3.761998890515236*^9, 3.762020618472356*^9, 3.7632946693231783`*^9, 3.7633163976278195`*^9, 3.7633173835995007`*^9, 3.763320373601679*^9, 3.763399650133315*^9, 3.763406491816945*^9, 3.764456317854452*^9, 3.764456880081482*^9, 3.764950855770192*^9, 3.7656352033995867`*^9, 3.7657391655387945`*^9, 3.768930837567211*^9}, CellLabel->"Out[27]=",ExpressionUUID->"9500a167-3b22-4f21-92b0-4459f7af4d92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", "AdinkraReduce"}]], "Input", CellChangeTimes->{{3.7095718589025583`*^9, 3.709571863934846*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"6eb743c0-b9c8-42cf-b89c-7773e6f12607"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7120961542452*^9, 3.7371598626891212`*^9, 3.7371627689970145`*^9, 3.7371683905547876`*^9, 3.7372084518960595`*^9, 3.7614153143499904`*^9, 3.76150154212571*^9, 3.76199842885872*^9, 3.761998890534399*^9, 3.762020618481577*^9, 3.7632946693399105`*^9, 3.763316397642799*^9, 3.763317383617448*^9, 3.763320373635728*^9, 3.7633996501432896`*^9, 3.7634064918269367`*^9, 3.7644563178700743`*^9, 3.764456880081482*^9, 3.764950855780151*^9, 3.7656352034165387`*^9, 3.7657391655547523`*^9, 3.768930837632037*^9}, CellLabel->"Out[28]=",ExpressionUUID->"623ff680-a21b-48c3-8d2d-c0771bce0a1a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Rfield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{ 3.70957179914814*^9, {3.709571841945588*^9, 3.7095718814748487`*^9}, 3.710786357079965*^9}, CellLabel->"In[29]:=",ExpressionUUID->"242b65ef-5ab0-47ec-8031-df0d8cc3d126"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7120961542602015`*^9, 3.737159862704712*^9, 3.7371627690126376`*^9, 3.7371683905704184`*^9, 3.7372084519310617`*^9, 3.7614153143640137`*^9, 3.761501542141384*^9, 3.761998428873704*^9, 3.761998890559181*^9, 3.762020618507554*^9, 3.763294669356615*^9, 3.7633163976647205`*^9, 3.7633173836414003`*^9, 3.7633203736529226`*^9, 3.7633996501592464`*^9, 3.7634064918429065`*^9, 3.7644563178856945`*^9, 3.764456880097128*^9, 3.764950855796071*^9, 3.7656352034334955`*^9, 3.7657391655712166`*^9, 3.768930837706837*^9}, CellLabel->"Out[29]=",ExpressionUUID->"ea1f4bf3-8ed2-43ab-9391-185e6a7fc31c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", "AdinkraReduce"}]], "Input", CellChangeTimes->{{3.7095718589025583`*^9, 3.709571863934846*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"b7248c81-f161-42d6-9e0d-25d5a35cfcf1"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.712096154272202*^9, 3.737159862720346*^9, 3.7371627690282583`*^9, 3.7371683905860276`*^9, 3.7372084519520626`*^9, 3.7614153143899865`*^9, 3.7615015421569867`*^9, 3.7619984288799095`*^9, 3.7619988905701885`*^9, 3.762020618516612*^9, 3.763294669373321*^9, 3.763316397681678*^9, 3.7633173836583033`*^9, 3.7633203736685843`*^9, 3.763399650170283*^9, 3.763406491854872*^9, 3.7644563179013157`*^9, 3.7644568801127243`*^9, 3.76495085580608*^9, 3.765635203446459*^9, 3.7657391655881724`*^9, 3.7689308377756534`*^9}, CellLabel->"Out[30]=",ExpressionUUID->"60fb9431-85d4-4a4d-a738-07c52502d85d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Rfieldup[a] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["C", "ab"], SubscriptBox["R", "b"]}], TraditionalForm]],ExpressionUUID-> "83e7c0ee-97ea-4749-b36d-985a4807c507"] }], "Subsection", CellChangeTimes->{{3.7095724108191257`*^9, 3.7095724188985877`*^9}, { 3.7107863367678037`*^9, 3.710786337208829*^9}},ExpressionUUID->"b12cb6ce-01ba-4cbb-8b7f-\ d7b47a261701"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Rfieldup", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{"RfieldHolder", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", RowBox[{"RfieldHolder", "\[Rule]", "Rfield"}]}]}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.709572420892702*^9, 3.709572489071602*^9}, { 3.710786365343438*^9, 3.710786366705516*^9}, {3.7113893711554823`*^9, 3.71138940258228*^9}, {3.737159871111721*^9, 3.7371598948638387`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"e965e95c-d8d9-433c-91c9-797199e0af0a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Rfieldup", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7095732760606146`*^9, 3.709573280965895*^9}, 3.7107863679595876`*^9}, CellLabel->"In[32]:=",ExpressionUUID->"d9253398-a297-4ddd-b2dd-88497388dea1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.7120961543242044`*^9, {3.737159887409794*^9, 3.7371598983171144`*^9}, 3.7371627690595007`*^9, 3.737168390617273*^9, 3.7372084579044037`*^9, 3.7614153344168987`*^9, 3.7615015421882315`*^9, 3.7619984288988233`*^9, 3.7619988906068807`*^9, 3.762020618542205*^9, 3.7632946694067965`*^9, 3.7633163977105985`*^9, 3.763317383692259*^9, 3.763320373715411*^9, 3.7633996501951504`*^9, 3.763406491879794*^9, 3.764456317916937*^9, 3.7644568801439667`*^9, 3.7649508558310223`*^9, 3.7656352034728975`*^9, 3.7657391656195483`*^9, 3.7689308378843637`*^9}, CellLabel->"Out[32]=",ExpressionUUID->"92c76dc7-0067-4a9d-8cd4-19b27c2f3391"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Rfield", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.70957328226797*^9, 3.709573285860175*^9}, 3.7107863690306487`*^9, {3.7371600088761597`*^9, 3.737160009001132*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"a8cbc335-d270-43c3-ba1c-d403148cf8d4"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7120961543392057`*^9, 3.737159901395477*^9, 3.7371600109387*^9, 3.737162769075121*^9, 3.7371683906485214`*^9, 3.737208457966407*^9, 3.7614153344406047`*^9, 3.7615015422038507`*^9, 3.761998428918561*^9, 3.7619988906246953`*^9, 3.7620206185621843`*^9, 3.7632946694235067`*^9, 3.7633163977315793`*^9, 3.7633173837131567`*^9, 3.763320373746704*^9, 3.7633996502101526`*^9, 3.763406491895745*^9, 3.764456317932558*^9, 3.764456880159587*^9, 3.764950855845972*^9, 3.7656352034978294`*^9, 3.7657391656386156`*^9, 3.768930837953179*^9}, CellLabel->"Out[33]=",ExpressionUUID->"0a9f6e46-05f7-4c4e-9f0c-e28e46427523"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Rfield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Rfieldup", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Input", CellChangeTimes->{{3.737160069679016*^9, 3.737160084743952*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"5425c2ce-b2eb-45b4-bc27-d0b8b55dea6b"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7371600784150343`*^9, 3.737160085024999*^9}, 3.737162769090749*^9, 3.7371683906641436`*^9, 3.737208458006409*^9, 3.761415334462155*^9, 3.7615015422038507`*^9, 3.76199842892894*^9, 3.761998890634445*^9, 3.7620206185815153`*^9, 3.763294669439701*^9, 3.763316397748499*^9, 3.763317383730109*^9, 3.763320373762274*^9, 3.763399650223077*^9, 3.76340649190571*^9, 3.7644563179481792`*^9, 3.764456880175209*^9, 3.76495085585495*^9, 3.765635204070176*^9, 3.765739165655658*^9, 3.7689308380200815`*^9}, CellLabel->"Out[34]=",ExpressionUUID->"ce885c04-dd3f-4dd3-9591-738ba885545c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Gravitino Equation of motion:E\[Psi][\[Kappa]][c]:= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["E", "\[Kappa]c"], "=", " ", SuperscriptBox[ SubscriptBox["\[Epsilon]", "\[Kappa]"], "\[Nu]\[Alpha]\[Beta]"]}], TraditionalForm]],ExpressionUUID->"d7724fe5-dd64-472c-811b-678005a92254"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ SubscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "c"], "d"], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["\[Psi]", RowBox[{"\[Beta]", " ", "d"}]]}]}], TraditionalForm]],ExpressionUUID-> "70e0a667-5b56-4411-8a28-6cc3d433d49b"] }], "Subsection", CellChangeTimes->{{3.7619984446107626`*^9, 3.761998618171568*^9}, { 3.7619987133088536`*^9, 3.7619987155988703`*^9}, {3.7633165120614758`*^9, 3.7633165124294863`*^9}, {3.7689308554192753`*^9, 3.7689308554192753`*^9}},ExpressionUUID->"9cf9afc6-3e66-484e-9f56-\ 95ed7dabeab8"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "kp", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"kp", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "bt", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7619985802341485`*^9, 3.7619987325594473`*^9}, { 3.761998778921033*^9, 3.7619987800602336`*^9}, {3.762000221120683*^9, 3.7620002215307317`*^9}, {3.7689308618338356`*^9, 3.7689308619583187`*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"d1ba5d47-0b3b-46a7-9335-fdec6b6c6023"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"E\[Psi]stup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"E\[Psi]Holder", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", RowBox[{"E\[Psi]Holder", "\[Rule]", " ", "E\[Psi]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113885588580217`*^9, 3.7113886129791174`*^9}, { 3.737159706297971*^9, 3.7371597127674866`*^9}, {3.761998820245697*^9, 3.7619988231425657`*^9}, {3.7620001785992255`*^9, 3.7620001971697044`*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"01420001-2916-4056-9860-438eee6a15df"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"E\[Psi]stup", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7620002014698877`*^9, 3.7620002094302845`*^9}}, CellLabel->"In[78]:=",ExpressionUUID->"34d14ce7-d7b4-40bd-9b5f-892a161f11b6"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7620002097698665`*^9, 3.762000248773962*^9, 3.7620206186354017`*^9, 3.763294669515007*^9, 3.7633163978333063`*^9, 3.763317383808934*^9, 3.7633203738403807`*^9, 3.7633996503048964`*^9, 3.7634064919850893`*^9, 3.764456318026292*^9, 3.764456880237712*^9, 3.7649508559217787`*^9, 3.7656352042487035`*^9, 3.765739165752406*^9, 3.768930838110838*^9, 3.7689308730984125`*^9}, CellLabel->"Out[78]=",ExpressionUUID->"2925535a-8534-466f-befd-bcd807d997a7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"E\[Psi]stup", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.762000251496269*^9, 3.7620002623321323`*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"5557f5fb-12a1-4274-845f-b2ccfdd6f62d"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7620002552550445`*^9, 3.7620002628518567`*^9}, 3.7620206186448293`*^9, 3.7632946695307574`*^9, 3.763316397847234*^9, 3.7633173838248587`*^9, 3.763320373871623*^9, 3.7633996508451653`*^9, 3.763406491994062*^9, 3.764456318041935*^9, 3.7644568802533174`*^9, 3.7649508559297504`*^9, 3.7656352042626657`*^9, 3.76573916577236*^9, 3.768930838186636*^9, 3.768930873193159*^9}, CellLabel->"Out[79]=",ExpressionUUID->"64811983-a74a-4d4f-84ad-25fc11002754"] }, Open ]], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"E\[Psi]stupup", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", " ", RowBox[{ RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{ RowBox[{"E\[Psi]stupHolder", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", RowBox[{"E\[Psi]stupHolder", "\[Rule]", "E\[Psi]stup"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113900941898375`*^9, 3.711390151475114*^9}, { 3.7371597436143637`*^9, 3.7371597764932556`*^9}, {3.761998828972556*^9, 3.7619988381928596`*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"d5a1dc25-20d4-43c1-b67b-fed6a5d73e98"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellLabel->"In[81]:=",ExpressionUUID->"f1c7d215-f8c9-4061-8588-52d5e63686e2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7620002836825633`*^9, 3.762020618675846*^9, 3.763294669537919*^9, 3.7633163978712273`*^9, 3.7633173838547783`*^9, 3.76332037394978*^9, 3.7633996509947276`*^9, 3.763406492013588*^9, 3.76445631805756*^9, 3.7644568802689366`*^9, 3.764950855946705*^9, 3.7656352042960815`*^9, 3.765739165796302*^9, 3.7689308382684183`*^9, 3.768930873300871*^9}, CellLabel->"Out[81]=",ExpressionUUID->"08591a64-777a-4922-a2cb-a7c8fb821a10"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"E\[Psi]stupup", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.762000270162223*^9, 3.762000275029333*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"3352f593-681b-4047-93c9-a09be7355cc7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7620002753425636`*^9, 3.762020618692317*^9, 3.763294669553537*^9, 3.7633163978861704`*^9, 3.7633173838727317`*^9, 3.7633203739653893`*^9, 3.76339965101068*^9, 3.763406492025565*^9, 3.76445631807315*^9, 3.7644568802845573`*^9, 3.764950855957675*^9, 3.7656352043120403`*^9, 3.765739165821769*^9, 3.7689308383352385`*^9, 3.7689308733956184`*^9}, CellLabel->"Out[82]=",ExpressionUUID->"b1c0742a-d0be-4682-8629-0278b742ff28"] }, Open ]], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"E\[Psi]up", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", " ", RowBox[{ RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{ RowBox[{"E\[Psi]Holder", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", RowBox[{"E\[Psi]Holder", "\[Rule]", "E\[Psi]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113900941898375`*^9, 3.711390151475114*^9}, { 3.7113902999156046`*^9, 3.7113903122923126`*^9}, {3.737159830451649*^9, 3.7371598338584566`*^9}, {3.7619988445257664`*^9, 3.7619988474149475`*^9}, { 3.7620003045934696`*^9, 3.7620003312825594`*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"a3fa57e1-5586-48c7-b274-dca4acda8c6f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellLabel->"In[84]:=",ExpressionUUID->"f002fc7d-091c-426c-8d46-7e3023f6a363"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7620002836825633`*^9, 3.7620206187160664`*^9, 3.7632946695821524`*^9, 3.7633163979130573`*^9, 3.7633173839056883`*^9, 3.7633203740122924`*^9, 3.76339965104758*^9, 3.763406492044509*^9, 3.7644563181356363`*^9, 3.7644568803158*^9, 3.764950855974629*^9, 3.7656352043339815`*^9, 3.7657391658456984`*^9, 3.7689308384160223`*^9, 3.76893087349934*^9}, CellLabel->"Out[84]=",ExpressionUUID->"f369541b-786a-468e-865e-ed4aaba2265f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"E\[Psi]up", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.762000270162223*^9, 3.762000275029333*^9}, 3.7620003506781764`*^9}, CellLabel->"In[85]:=",ExpressionUUID->"6b2efdf9-3f39-4b32-9d61-f25edf6740f3"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7620002753425636`*^9, 3.762000351110572*^9, 3.7620206187322593`*^9, 3.7632946695821524`*^9, 3.763316397931555*^9, 3.7633173839245896`*^9, 3.7633203740435033`*^9, 3.763399651064927*^9, 3.7634064920564823`*^9, 3.7644563181356363`*^9, 3.76445688033145*^9, 3.764950855985606*^9, 3.7656352043499393`*^9, 3.7657391658696833`*^9, 3.768930838485836*^9, 3.768930873595085*^9}, CellLabel->"Out[85]=",ExpressionUUID->"92e46bd9-3f5a-4253-847b-b4ba475babbf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"\[Gamma]", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "kp", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Rfield", "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.768930879362439*^9, 3.76893094982699*^9}, { 3.7689309863779297`*^9, 3.768930990345152*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"7857e5fb-4628-4548-962a-4e7fc781cc24"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7689309507518716`*^9, 3.768930993222632*^9}, CellLabel->"Out[87]=",ExpressionUUID->"8a42905f-c8e5-4e81-be9c-b6b62bdea349"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Check UD[Field_,\[CapitalStigma][\[Mu]]] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], "Field"}], TraditionalForm]], "None",ExpressionUUID->"dded15f5-02e9-4923-845d-b2d8fe3d1a53"], " , Lap[Field_] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Field", " "}]}], TraditionalForm]], "None",ExpressionUUID-> "82b2721e-292a-4fee-bc4f-88f2a151a14f"], "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->"651fed8e-fc92-4a22-b81e-\ d86626caf48f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.761415373596699*^9, 3.7614153826943583`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"95b5656f-b81f-44a0-84d1-4ae604fe9c04"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{{3.761415383162217*^9, 3.7614153866920447`*^9}, 3.761501542219438*^9, 3.761998428938632*^9, 3.7619988912888584`*^9, 3.7620206187522326`*^9, 3.7632946695977345`*^9, 3.763316397948481*^9, 3.763317383942585*^9, 3.7633203740591183`*^9, 3.763399651078887*^9, 3.763406492068406*^9, 3.7644563181512566`*^9, 3.764456880347043*^9, 3.7649508559975796`*^9, 3.765635204363902*^9, 3.765739165888938*^9, 3.768930838557644*^9}, CellLabel->"Out[45]=",ExpressionUUID->"2cc3b0c5-88eb-4ec4-b648-4cdc81d89e4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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}}, CellLabel->"In[46]:=",ExpressionUUID->"ae51515d-73ed-4bab-af52-94ecd85d9d8c"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7120961545172157`*^9, 3.7371603092209682`*^9, 3.737162769231335*^9, 3.7371683908203983`*^9, 3.7372084764774656`*^9, 3.7614153867620993`*^9, 3.761501542235096*^9, 3.761998428947711*^9, 3.7619988913049107`*^9, 3.762020618766276*^9, 3.7632946696133547`*^9, 3.763316397965439*^9, 3.7633173839604936`*^9, 3.763320374074702*^9, 3.763399651094847*^9, 3.763406492080444*^9, 3.7644563181668787`*^9, 3.764456880347043*^9, 3.7649508560105762`*^9, 3.7656352043808546`*^9, 3.765739165905892*^9, 3.7689308386194353`*^9}, CellLabel->"Out[46]=",ExpressionUUID->"44efa4b3-16c2-4827-a8ac-bbe8276cd7b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "1", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.703611227692412*^9, 3.7036112418242207`*^9}, { 3.7371603121589317`*^9, 3.7371603311293654`*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"bbc76b08-a3f9-4723-b43c-41b0dfea4b71"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{ 3.7120961545282164`*^9, {3.7371603217692337`*^9, 3.7371603314261427`*^9}, 3.7371627692469807`*^9, 3.7371683908363676`*^9, 3.737208476541469*^9, 3.761415386782015*^9, 3.7615015422580338`*^9, 3.761998428959015*^9, 3.761998891317282*^9, 3.762020618781581*^9, 3.763294669632023*^9, 3.7633163979818487`*^9, 3.763317383976453*^9, 3.763320374105984*^9, 3.7633996511147957`*^9, 3.763406492091344*^9, 3.7644563181825*^9, 3.7644568803626647`*^9, 3.7649508560215197`*^9, 3.765635204399804*^9, 3.765739165919855*^9, 3.7689308386819196`*^9}, CellLabel->"Out[47]=",ExpressionUUID->"8469632f-cc97-4c58-8afa-ceb5664fd5e7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.703611227692412*^9, 3.7036112418242207`*^9}, { 3.7371603121589317`*^9, 3.7371603390680017`*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"421b2c51-dd1b-4c9c-a401-ef186cdf031a"], Cell[BoxData[ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.7120961545282164`*^9, {3.7371603217692337`*^9, 3.737160340286665*^9}, 3.7371627692626076`*^9, 3.7371683908519897`*^9, 3.737208476606473*^9, 3.7614153867919493`*^9, 3.7615015422704115`*^9, 3.761998428968914*^9, 3.761998891334857*^9, 3.762020618792281*^9, 3.763294669633089*^9, 3.7633163979987764`*^9, 3.7633173839934177`*^9, 3.763320374121602*^9, 3.763399651130381*^9, 3.7634064921013527`*^9, 3.7644563181825*^9, 3.7644568803782873`*^9, 3.764950856033495*^9, 3.7656352044157634`*^9, 3.7657391660031404`*^9, 3.76893083876003*^9}, CellLabel->"Out[48]=",ExpressionUUID->"af9f0ac9-7b44-4227-a7d4-49a486d7d9cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{"Rfieldup", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.703611227692412*^9, 3.7036112853307085`*^9}, { 3.7095751183109856`*^9, 3.7095751274765096`*^9}, 3.7107863718748116`*^9, { 3.7371603466787796`*^9, 3.7371603542730474`*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"902e40b0-2a25-41e2-9959-9df291621979"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7120961545552177`*^9, 3.737160355179263*^9, 3.737162769278224*^9, 3.737168390867613*^9, 3.737208476693478*^9, 3.7614153868274913`*^9, 3.7615015422874193`*^9, 3.761998428978858*^9, 3.7619988913488197`*^9, 3.76202061882119*^9, 3.7632946696487565`*^9, 3.7633163980167265`*^9, 3.7633173840133915`*^9, 3.7633203741502934`*^9, 3.763399651148309*^9, 3.763406492117925*^9, 3.764456318198121*^9, 3.7644568803939075`*^9, 3.764950856049431*^9, 3.765635204431719*^9, 3.765739166021093*^9, 3.7689308388381357`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"8cdd89f4-9add-4a90-9707-d6266cf1e181"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "The temporal gauge, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "0"], "=", " ", RowBox[{ SubscriptBox["\[Psi]", RowBox[{"0", "a"}]], " ", "=", " ", "0"}]}], TraditionalForm]], "None", ExpressionUUID->"91349a97-492f-4a26-bb52-4356e5e0885b"], " is the gauge we will use for the Adinkras" }], "Subsection", CellChangeTimes->{{3.5367157692779646`*^9, 3.5367157935183516`*^9}, { 3.559435164778984*^9, 3.5594351667110944`*^9}},ExpressionUUID->"22deca30-a333-4a5c-b180-\ 3f835bf0123f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TemporalGauge", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5367152184004564`*^9, 3.5367152266039257`*^9}, { 3.536715373649336*^9, 3.536715384124935*^9}, {3.5367154403561516`*^9, 3.5367155308733287`*^9}, {3.5367155793831034`*^9, 3.5367156233776197`*^9}, { 3.5594351736204896`*^9, 3.559435176708666*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"60529545-4509-47d7-8b5d-9f6af0daab0e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.7120961534011517`*^9, {3.7371537523288355`*^9, 3.737153761517105*^9}, 3.7371539655555415`*^9, 3.73715945247375*^9, 3.737162767879512*^9, 3.737168389110056*^9, 3.737208317441369*^9, 3.7614154972687798`*^9, 3.761501542289605*^9, 3.7619984289889016`*^9, 3.761998891364911*^9, 3.762020618834406*^9, 3.763294669664336*^9, 3.763316398031686*^9, 3.7633173840303097`*^9, 3.763320374171999*^9, 3.763399651161275*^9, 3.763406492129856*^9, 3.7644563182137423`*^9, 3.7644568804095287`*^9, 3.764950856062359*^9, 3.7656352044486732`*^9, 3.765739166035056*^9, 3.768930838938268*^9}, CellLabel->"Out[50]=",ExpressionUUID->"0f91e97e-0be0-45fe-9890-190304296088"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "AdinkraReduce"}]], "Input", CellChangeTimes->{{3.5594352682118998`*^9, 3.5594352786624975`*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"4fbd283a-c545-4d1f-8fde-839497484fd6"], Cell[BoxData[ RowBox[{ RowBox[{"Bfield", "[", "0", "]"}], "[", "t", "]"}]], "Output", CellChangeTimes->{ 3.712096153457155*^9, {3.737153752500671*^9, 3.7371537616111517`*^9}, 3.7371539656023912`*^9, 3.7371594525206165`*^9, 3.7371627679423385`*^9, 3.737168389203785*^9, 3.7372083175533752`*^9, 3.7614154973658123`*^9, 3.761501542305265*^9, 3.761998428998577*^9, 3.76199889138471*^9, 3.762020618852285*^9, 3.7632946697268615`*^9, 3.763316398048643*^9, 3.76331738404733*^9, 3.763320374186181*^9, 3.763399651174238*^9, 3.7634064921388907`*^9, 3.7644563182293634`*^9, 3.7644568804251504`*^9, 3.76495085607333*^9, 3.765635204459644*^9, 3.765739166047024*^9, 3.768930838938268*^9}, CellLabel->"Out[51]=",ExpressionUUID->"49c76373-7b68-49bc-9b6c-5adc64912e1d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}], "/.", "AdinkraReduce"}]], "Input", CellChangeTimes->{{3.5594353209199142`*^9, 3.5594353362647924`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"570c7210-f396-4080-968b-64da95694b1e"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7120961535121584`*^9, {3.737153752641549*^9, 3.7371537616736393`*^9}, 3.73715396564958*^9, 3.73715945256748*^9, 3.7371627680048494`*^9, 3.7371683892975335`*^9, 3.7372083176353807`*^9, 3.7614154973857317`*^9, 3.761501542315533*^9, 3.7619984290090075`*^9, 3.7619988914046345`*^9, 3.7620206188662863`*^9, 3.7632946697424994`*^9, 3.7633163980646005`*^9, 3.763317384063219*^9, 3.763320374201843*^9, 3.763399651186209*^9, 3.763406492148847*^9, 3.7644563182293634`*^9, 3.7644568804251504`*^9, 3.764950856084343*^9, 3.765635204470615*^9, 3.765739166057994*^9, 3.7689308390007563`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"cc009e51-8e54-4264-b9f5-e7f7138d0dcf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}], "/.", "AdinkraReduce"}]], "Input", CellChangeTimes->{{3.559435344865284*^9, 3.559435344953289*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"c599b74e-9280-4292-b4c3-c3c4134033bb"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]], "Output", CellChangeTimes->{ 3.7120961535241594`*^9, {3.737153752657201*^9, 3.7371537616892605`*^9}, 3.737153965665222*^9, 3.7371594525831194`*^9, 3.737162768020445*^9, 3.7371683893131337`*^9, 3.7372083176543818`*^9, 3.761415497404909*^9, 3.7615015423311586`*^9, 3.7619984290187645`*^9, 3.761998891417469*^9, 3.76202061889225*^9, 3.7632946697581053`*^9, 3.763316398081555*^9, 3.7633173840801735`*^9, 3.7633203742174664`*^9, 3.763399651199171*^9, 3.763406492159775*^9, 3.7644563182449846`*^9, 3.764456880440771*^9, 3.76495085609533*^9, 3.765635204483582*^9, 3.7657391660699615`*^9, 3.768930839078863*^9}, CellLabel->"Out[53]=",ExpressionUUID->"2d59036e-9c3d-4a61-b35b-dbc802ba2491"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", "TemporalGauge"}]], "Input", CellChangeTimes->{{3.5594353464413743`*^9, 3.559435351728677*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"d6114e54-06f1-462c-a13d-c4b4ef8f8c86"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7120961535341597`*^9, {3.7371537526884475`*^9, 3.7371537616892605`*^9}, 3.737153965665222*^9, 3.7371594525987234`*^9, 3.737162768036067*^9, 3.7371683893443785`*^9, 3.7372083176703825`*^9, 3.7614154974191875`*^9, 3.761501542346779*^9, 3.7619984290289717`*^9, 3.761998891434743*^9, 3.7620206189121776`*^9, 3.7632946697581053`*^9, 3.763316398098507*^9, 3.763317384097184*^9, 3.7633203742330465`*^9, 3.763399651214133*^9, 3.763406492169757*^9, 3.764456318260632*^9, 3.764456880456395*^9, 3.7649508561052847`*^9, 3.765635204496553*^9, 3.765739166082122*^9, 3.7689308391444693`*^9}, CellLabel->"Out[54]=",ExpressionUUID->"51925703-3c37-473e-8843-885f8de7e623"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}], "/.", "AdinkraReduce"}]], "Input", CellChangeTimes->{3.5594353579460325`*^9}, CellLabel->"In[55]:=",ExpressionUUID->"9452267e-8a1c-4e16-a032-fec0eab78727"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]], "Output", CellChangeTimes->{ 3.7120961535451603`*^9, {3.73715375271968*^9, 3.737153761704948*^9}, 3.7371539656808205`*^9, 3.7371594525987234`*^9, 3.737162768051688*^9, 3.7371683893600016`*^9, 3.7372083176883836`*^9, 3.7614154974354105`*^9, 3.761501542346779*^9, 3.7619984290387974`*^9, 3.761998891456143*^9, 3.762020618922149*^9, 3.763294669773724*^9, 3.763316398115522*^9, 3.7633173841141453`*^9, 3.7633203742487087`*^9, 3.763399651228143*^9, 3.7634064921807194`*^9, 3.764456318260632*^9, 3.764456880456395*^9, 3.764950856116251*^9, 3.7656352045134997`*^9, 3.7657391660940633`*^9, 3.7689308392226233`*^9}, CellLabel->"Out[55]=",ExpressionUUID->"d58eb594-a62f-4b6b-ae3d-7653bf3e63e9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", "TemporalGauge"}]], "Input", CellChangeTimes->{{3.5594353597121334`*^9, 3.559435362136272*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"821386a9-023e-4422-8692-b7314cd4c445"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]], "Output", CellChangeTimes->{ 3.7120961535551605`*^9, {3.73715375271968*^9, 3.737153761720527*^9}, 3.737153965696482*^9, 3.7371594526143456`*^9, 3.7371627680673094`*^9, 3.737168389382127*^9, 3.7372083177033844`*^9, 3.761415497449499*^9, 3.7615015423624015`*^9, 3.761998429047986*^9, 3.7619988914721036`*^9, 3.7620206189419384`*^9, 3.763294669773724*^9, 3.7633163981314216`*^9, 3.76331738413004*^9, 3.7633203742719183`*^9, 3.7633996512391095`*^9, 3.7634064921897383`*^9, 3.764456318276227*^9, 3.7644568804720135`*^9, 3.764950856155188*^9, 3.7656352078456616`*^9, 3.7657391661050367`*^9, 3.768930839285101*^9}, CellLabel->"Out[56]=",ExpressionUUID->"d93d9635-31fd-448b-9e9b-228d726913ea"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Transformation Rules", "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},ExpressionUUID->"06494e91-661e-4ca6-95eb-\ 5ee8e28bd4bf"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV1MVccWx8+99+W+mNzwYNKnk/vQENOYhhiiqSEpkZTeQFR6S4oxxULk mttaSYstKDHYGi1i7QOH9MPwALUNBguxlmBaoccSYoMtwQJBoxVssHy02NrS Kqbiuf97Jk6ms/fZe8/es8/n+iU19nAY53PNWmvWrPlnZfVT//lrIBCo+Tv+ eKqiNv/llyv2/Psf+J/SXTX/3bGravu/du2u2lH18rrKv+HDrfhv518Cgf// PUIQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQf2Zw cDAUCi0sLCS6Ignm9ddfD+gjGAwWFBQ8//zzra2t169fX15eTnT7NDA8PLx2 7Vq9XVRWVtbc3Pz111/fvXs30e0j3HDnzh3M8zVr1ly9ejXRdUkwemWIRHZ2 9tGjR+fn5xPdSk988MEH/nURRAqG4Lvvvkt0Kwk1vv/++8cff/zpp5++detW ouuSYCYmJsIP6O7urq+vX716tXGqZ2Vlvfbaa319feHYQPd45ZVXcnJypN9d sWJFbW3tDz/8kOi2uuS3336D1sq76ODBg4WFhcb+2bt372effWbRPwAdCPVj 8+bN6BPp11taWpaWlhLdVsIp0CEfeuihAwcO3L9/P9F1STpmZ2eLioqkNQJ1 wnlfQfGAnSjJIugkJ0+eTA/r5tKlS1LrlPoHTE1NlZeXS51cXV0NeeVftQmN vPvuuxgy7BqJrkiSYjRwoM+rFoLl8M4772CHFcvBZp0Gy+SLL74QG4X9CLuS aiHQOg4dOiT1c2Nj4x9//OFHnQmNMGfIo48+evny5UTXJUnRIkMY2LKfeOIJ sahnn302de0axltvvSW2CHYxrGMX5aAfSkpKJHHU39+vvcKEXpgzBDP5119/ TXRdkhSNMgTMzc2VlpamjRj5/ffft2/fLjbnpZdecn28YnTYPvfcc2mgqqU3 X3755YoVK8gZYoFeGRKJipFNmzaJBUIVTNGVcv369ccee0xsC0xj16UZXSuk ISc/5AyxRbsMiUQPgLA6xDKbmpru3bunpcLxRIszhAN9rKCgQOrtwcFBjRUm 9ELOECf4IUOg9R0/flwsMxgMpuJi0eUMYSwsLBhPint6ejRWmNALOUOc4IcM AT/99JPkQiwtLcWH3kuOG3qdIZEHE5L0kBSCnCFO8EmGRMxciLpKjg96nSHg m2++efjhh8UC8b/4UFeFCe2QM8QJ/skQ4xosKCiYmZnRUngc0OsMiTyYkCJQ 1VJLN8soyBniEP9kCNR+KP9S4V1dXVoKjwN6nSFG4w4cO3aMlOSkhZwhDvFP hoATJ05IhadKRIR2Z8ipU6ekizP5+fk3btzQWGdCL+QMcYivMsToAVi1atX4 +Liu8v1DrzPEeC8Jk/PTTz/VWGFCO+QMcYivMsQ0IqK1tVVX+f6h0RkCvQtm tSRAmpqa6LJMfFheXsaOEA6HBwYGIMwdKhVOnCEoGT9FsRmem8hXGWK0CLwb BfFBlzPEeNsOAiQUCpEAiQNY46dPn87NzRX7v6Sk5NKlS7a/a+sMuXnzJt8a srOzsenorn7K4KsMMXWrQjNJ8hs0upwhmH51dXViOcFgsLOzMz2yIiQ5t2/f 3r9/P/ocMqStrQ16CGwT9D9b8rZa5eDgIKQ95L/pT7EF7N27VxJNGXvE5qsM MS1/9erVTjaCBOLdGQKFeXh4WLrFXF5ePjU15U+ViT+BNd7Y2Ig+b2ho4D58 SJUdO3awsbCNeLR2hhhniPej/9TFbxnS3t4eMJDkwZlenCGYvaOjoxUVFeIp TGFh4eeff07qR9zo6OhA/xsve/LZjp9aTEImbSwSqBplCPj44481NyNF8FuG mGYoTfKAVckZgtkyPj6+YMnExERPT8+ePXugJ/NfzMrKqq6uHhsbSzPpATmJ Tdy6Q/wGFYjVq1D21q9fbzw6F/UQ60lo6wyBnvnhhx9Kh/VJPqv9g2SIhKkf WBXMwNbW1iR3+7jj7t27r776qsf+0cK+ffuMl8Gxuo8ePRowm2PSKaHFJLR2 hjC4ucQhPcRJ37og5WSIUU2FYdLomG3btjHHHaO4uLirqws7YKKbpQ1pN08g MFXu3LkjVY8pIRs3bjQ+McAkA//1EydOxGqjw8gQGEpVVVW8wCS30P2DZIiE 98gQrLLjx4+LRk1ubu7Zs2fTxqIZHR09cuSIc7nqB6gAqmGsG5tvsEalz6Gf HDhwgI+IxW1HW2eIyNDQEGZIILPTSZEMkZCcIU8++eSPP/7oopwrV66I5zIs ajqdFJIkhC1/U/kwMzMjGjIWj8UoXZPh16AKCwsXMjXSLCEyxEKNTCx6r8lg Jq9atUosrZFyufsJs0NN5UNfX59oyFgESztxhnDu3bu3Z8+eQAzDKkPwW4YY L7wHkthyNDpDvPQGJpgxSJWuyfjH+Pg4hHYoFJI+X1pa2rVrFx8Fa7tD9ZoM W0FG6ylziH+MWTJbjtpzhnB7mZNy+dzSgMnJSfEZZciTWO8MKjlDIlE3S0ND g5LMST/iH+teVFSUtItIcoZ4D8s33jq0jm4i/EAyqC0OYVVzhjDjN8Of8/ZV hmAgMBxS+bAfkzPHu/acIaZlBjznVCSUkA6jra9PKjlDIg+M3wzPU+SrDEmt kGBjbdvb2z2WaRpNgT7XUmHCCcxJ4nALU3WG4JuBzHaGRHyWISwTlFg4FimW qq7y9aLdGRKJoYeQDIknkiFjIR+YwHc+RZmrNpNv2zF8lSHGQxnT+OQkQbsz JBIjC5NzVZnwiJIho2qYsLP7VEnv6R/+yRCjMwQSe2hoSEvh2vHDGQKwQ0nn MoEktubSD+lNH+sxZc4Qh4YJSyGC7/f19emrb0rinwwxHmtiR/ASqInRX1hY 8CnUU/trMgxJtwFr166dnJx0XsLtKN5roov79+93dnaKkfwJIScnB9WwTWwo WdPWDi42WA6dIV999VUwGCwvL//ll1+c997i4mLckvihc27dumVxwVkXPskQ Y6IndDi63UVRMzMzb775pni+v2HDBn79BH+il7yvMj+cIfPz8xs3bpS6F93i MFQVc6CjoyMryunTp22/fPHixSNHjuCbvobCJs+dOydbkugMgTCBSLFul0Nn COQGpIfSC7AYlKamJtTBSRY1zOpz5841NjYODAyoZpXHPxQOh2ECYNqwhqOe 9fX13DBHS/UKFp9kCJPSYrEunu2GNfTGG2+gK9DzO3fuhGIDPeTq1av79u1b uXIlCvz555+rq6sD0c39ypUrXiqs9zWZiNmjwwFFQSpe8bB1w46MjLAO99vF h3a1tbUlXA9BBZzoIaIMsQ5udO4MwT967NixgOLNBfF4yHaJ9fT0MPVJ6QwC FYOQZG865+bmvv/++9PT0xAdvb29mM/r169H87FXsrFzsR5j4YcMgZQrLS0V yywpKVH1T6LP0Wo29JD24mzB37u7uyFGtm3bxjVVL2apcW/17gyZmJgQdSeG 0sCJd9VtXSjcfZ3MYcDxx7kMce4MgYYAcb1p06a5uTkXNbEV8vwOTkDlyufS 0tLhw4fZhKmrq5MkIVZfWVkZJAm/B6rRFaxdhhhzs2ApYUEpFXL+/HmMOPtd 0w6XbCWPC0e7M8T4HkQgmk9VyXbmqpFtBlpRBlrcSM1AxFfSrCeJQ2cI2xpU p7QYsG173gehAdGhtJdhvvHlsH//flMTT7oBqvHtLb0yBEs7FAqJXiwXafP5 Do5yOjo6Yn1N9Nl6XDhSdhqP5oCpACkqKlIKjFESC6IMbGhooHfZONK5WKyp 6NAZwvI5QAmBKqJUDSWxINbZSZSjuGtbKPzSxUONh4MaZQjWDrt/5EWAQD+E lsh+vaamJtbdKIA9hekq3heORmcIRlDMbcXAxFN114hiwfZ2gJLVk1FA9kIC 84GIFZ7kxBnCjGsIkN7eXtXJJooFWxXXudUT+XNmV1tvG1/set9W0CJD2FMI xcXF0sJRrSfGt6mpiXegdTCJroVjjGNxlwtieXn57Nmz0otIAIXPzs6qlqbU OudWTwYivnSMTcfUBrF2hmB6nzlzBhuiOwESURELSlZPJKoacbebxX3kiG8G Lzuikua8kisAehT6BIWItgD+Xltb6yLIU/Rd2/p8+MLx6Azp7++X4lhUnSGs E7Zs2SL1ZFZWVktLi8WwWsBbZ5G1jyFGx5EzxIhkWpr6Qi2cIfh17LOY0phm 58+fd1EBUSzYqrhiYLOt1YM9F5oVX3TWxwqiZuvaGbK4uMhT64+MjHR3d0un J3xJdnZ2Tk9Px0rLj2ZeuHABGhSGxnjG5/otFbFDAnbP8opC1XlwsvioARoY DodhSBqbAMtocnLS9nkC0/cg+IBWVFS4fpHKtTOEHqk3BdPjxRdf5KMDDRlq M++oWM4QCH+ML1MsKysrXSiTDNfOEFuLQNxzIXlmZmYsvixqtq6znRjNFr3A loEkdB3gJIZD2G6+7hZOKBTytQcCUZsU/Qzp4WUtK/lIxei4TM6EYw0EAnY9 UdpjuuITbCXffvut6AzBGh8bGzt8+DAMw0A00OKjjz5yp0wylHyk/E032yUA sM/y5tg6zbTo7dplCMRaXl4etBGIa+9phUQ5abv5uls4UmZCXeTk5JSVlTU3 N2N30xIj6s4ZQpEhtsB4h9zYsGGDcRAhXvLz83lsJ8DchkLuPQTanTPENjJE CmqynieiwZvG2U7EVzXjI1STFufOEIoMcQc6CvY49vGDBw+yS3nr1q2DjVNU VFRfX4/1CMtFi1Wo5AxRsnpEz4lPenvKIapJ1ipfensRRbFgmzeSIkM8wuaS fzuRKBZsz/uUrB4xtsH2BEfU29P49F+UIdZXmSyE6sTExLVr1/yvrI9oiQxh R0VKwdiZiWoCVVW0RIZgWxkaGpL2SlGG2F4/jKW3o9XQx5LqYrgXnAfAxBKq LKAo1TP8iGLBdjOKFRnCJlga7zi6YMkB/Jsz4oUd63hLi8gQTIlgMCj5UpzH WFro7Zgh6ZRQmvtDrBVL/iizceHAJIRhmOpnE2LQrPXpHibD1q1bY82NtPQU aUc1gaoS0rsG1tr19PR0Xl4e+6bkDMGUMLpYRX+I9bVu8WkMUdqwy33p5GLl Wp+1HiJeHZLcBVhxyZyv1QmSs91Chki5BcRZx+YG5eizRTWBqiqiM8RahsD2 FJ8DFiNmWRy1MUpfFFAWeoh0O1V8YpJVL50SSovLJ9a+IF2oF81ArBesmmTO 1+oE6QYxNC7TuYEP+/v7xQwt4k7E9p2urq44VjwliaczBMQakeXlZWwHYqS3 uHcMDQ1lZ2eb3vuAccTKj9UE4yV6UY719fVhvx4fH/fc0CSCZy6qqqqS9lCs GjQf+jl+xMM8YOXB1mNfwJp65JFH3KVKSx6kG8T5+fk3btyQvoMp19nZCasN /VBbWyvJEJYhxzZqkYgoJlB1gZRS3jT5w9LSUnNzM0TBe++9xy+ecBnCtIhY KiV+t6amJhD1wWL+Sz+FVKmrq8OCQsmYSKxk7pNBgVhK1tdaUxHM/97eXrQa I4tFwfoNH05NTe3evXvlypXQ96B4wBJkj63DqGHH4uxOZRq8iG3Mv7ply5Zr 164xbQTSY2xsDDMtKyurra0NjeWKGcy62dlZdu8P4uXUqVOJbkoKwHpb9Wq5 Q0wfecQ05rIdwzcwMFBcXAw148yZMxhilt2I76H4Qnt7O0bTYme8efMmuyeO +Y+vsXmCNcKi9PHh8PAwPuno6GB7E0vFyRIWrVu3TjWxT6owOjrK76+tWbOG hQ7ik4sXL3LFHuulsrIyEI2VxXfwJzon1c1/0ZrbvHkzDDomKgPRKMq8vLwV UXbu3CnexBkZGWE3pjH9oJpy8ZK4dqQG8XSGvPDCC5988gl3mebk5GD9BqK3 MrEt8iMYZqKyGzrZD2Dixbohb7/9NgvjZ3OA/XpLSwtfEdhcTp48yb7DinV9 hTBVQKdBSkBKh8NhKJymcVbidy5fvux38uo4YBowtri4CCkRjnLhwgVTOYm2 owfwBfTG/Px83CuekjBniGgO68UYMIYBxUzGILLRxLCaRqJC/mO7ZDPfeeI7 FMXnCSaD6SbCv6NUMpFCUCqheMIiQ+LgDKGH8Ii44fyaDOGduEWGeH8jgCCc QLfn4syhQ4f8O71ykVeZIDyidE2G8A7W9eLiok+FK12TIQgtkDMknSBnCBF/ yBmSNpAzhIg/6Z0RJdNQyqtMEFqYm5vj0chpnGYqQ1B6WpcgtMAuL7CI5bRJ 5pCxYEdghzLPPPOMixdSCMId7N0K0nvTA4wjRpNuHBAEQRAEQRAEQRAEQRAE QRAEQRAEQRAEQRAEQRAEQRCEKf8D3CgsXQ== "], {{0, 91}, {364, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{257.9999999999998, Automatic}, ImageSizeRaw->{364, 91}, PlotRange->{{0, 364}, {0, 91}}]], "Input",ExpressionUUID->"78a93fad-63e5-4629-8d83-543939f1ad0a"]], \ "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.7390216220854435`*^9, 3.7390216234545217`*^9}, {3.761415568107483*^9, 3.7614155684235644`*^9}},ExpressionUUID->"19234059-780f-48ff-9a61-\ e83dce3908cf"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "a", "]"}], "[", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "a", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "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}}, CellLabel->"In[57]:=",ExpressionUUID->"d0cc842c-b2a9-499e-ac69-f6dd51e7c72b"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "'"}], "[", "t", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "Color", "]"}], "[", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "AdinkraReduce"}], "/.", "TemporalGauge"}], ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7111642994797387`*^9, 3.7111643860246887`*^9}, { 3.71116538155863*^9, 3.7111653936173196`*^9}, {3.7111655855452976`*^9, 3.71116558768242*^9}, {3.7371605140705004`*^9, 3.7371605490270386`*^9}, { 3.7371658349857893`*^9, 3.737165835407566*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"fd93dbe1-254a-4bd7-9306-2f0edee698e9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"Bfield", "'"}], "[", "t", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "ap", "]"}], "'"}], "[", "t", "]"}], "]"}], "[", RowBox[{"[", "Color", "]"}], "]"}], ",", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu_", "]"}], "[", "c_", "]"}], "[", "t", "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu_", "]"}], "[", "c_", "]"}], "'"}], "[", "t", "]"}]}], "}"}], ",", "Simplify"}], "]"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", "fields"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.7111645574354925`*^9, 3.7111645699712095`*^9}, { 3.7111646601143656`*^9, 3.7111646956723995`*^9}, {3.711165016059725*^9, 3.71116508975994*^9}, {3.7111651864034677`*^9, 3.7111652049845304`*^9}, { 3.7111652473169518`*^9, 3.711165256065452*^9}, {3.7113907769458895`*^9, 3.7113907848403406`*^9}, {3.7113908785507*^9, 3.711390886163136*^9}, 3.711390944771488*^9}, CellLabel->"In[59]:=",ExpressionUUID->"2482da70-f2d2-42fb-a80f-89266cc7d55b"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, { SubscriptBox[ OverscriptBox["\[Psi]", "."], "11"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "12"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "13"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "14"]}, { SubscriptBox[ OverscriptBox["\[Psi]", "."], "21"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "22"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "23"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "24"]}, { SubscriptBox[ OverscriptBox["\[Psi]", "."], "31"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "32"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "33"], SubscriptBox[ OverscriptBox["\[Psi]", "."], "34"]} }, 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.7120961613266053`*^9, 3.7371605695764637`*^9, 3.737162792619666*^9, 3.7371658403610363`*^9, 3.737168390914463*^9, {3.737208521087017*^9, 3.7372085263493185`*^9}, 3.761415589588787*^9, 3.7615015423936434`*^9, 3.761998891504518*^9, 3.7620206189760857`*^9, 3.763294669820588*^9, 3.7633163981663647`*^9, 3.763317386328166*^9, 3.7633203743294597`*^9, 3.763399651271023*^9, 3.763406492220685*^9, 3.7644563183230915`*^9, 3.764456880503257*^9, 3.7649508562260084`*^9, 3.7656352078985243`*^9, 3.7657391661444197`*^9, 3.768930839378791*^9}, CellLabel-> "Out[59]//MatrixForm=",ExpressionUUID->"16024062-6209-498d-8b4a-\ 2c3346e265bc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnWtsVde177fu/XK/IF35g6/yobJOJYSQThRZyAIFWQkKopzi8jgXJ6AI GlDdCHDCSQgBnEQhuIAhpbEw5EFdBLiOCcTUpBaIYDChBAqJaxIiUkHB4RHM I3Yh0CSImH3+x0NMDdbae+255nrvPX5SkGPvvdZcc83Hf4455hj/Nnv+f/76 f6VSqQX/B//856xFY55/ftaS//9/8T+Vzy6Y8/SzVb/6j2dfqHq66vlRs/83 fvlf+O8Sfvifn9OCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC IAiCIAiCIAiCIAiCIAiCYMTAwMDJkyffeOONyZMnjxs3bsKECcuWLTt27Nid O3eiLpogCIIgCIIgFDR3797t6uqqqKgYMmQI5Pry5cvr6uog1x977LFUKlVW VrZ3717o+aiLKQiCIAiCIAiFyHfffVdbW1tcXLxo0aJLly7xP0Glf/jhhw89 9BCU/OrVq8XYLgiCIAiCIAghc+vWrfnz50OTHzp06O7duxk/09bWNmQQ/BBy 8QRBEARBiIqBgYHW1tbJkyd/9tlnUZdFEAoXyPW5c+eOHDnyxIkTDh+7du3a +PHjU6nUlClT+vv7QyueIAiCIAhRcfXq1UWLFg0ZMgQC4NChQ1EXRxAKlDt3 7tTV1ZWUlBw4cMD5k999993TTz+NDjt06FBZZQuCIAhCHnP9+vXOzs558+YV FRWl7iGKXRCiAkIdCry5uTmbM4xCKXbps4IgCIKQf7S1tY0bN668vJws6qCk pOTRRx8VxS4I0XL16tUpU6ZUVVXdunUr54ex3J46dar0WUEQBEHIS/74xz9C oo8dO3batGlr16799NNPb9++jV+KYheEaGlsbBw+fLimi8vf//73hx56CB0W /+LnoMsmCIIgCELkiGIXhGi5dOkS1tE1NTWa0RpbW1upwz711FM6NnlBEARB EJKOKHZBiBYo8AceeODo0aM6H75x48bMmTPRW4cMGdLR0RF02QRBEARBiANx UOx37tzZv3//yZMnI7l7HOjt7X3jjTfqsnDq1KmoCygEBR0jnTFjxrfffpvz w3fv3m1ubqZzKM42+SNHjmRrTm+99dbNmzdzlmrnzp1Xr151/TyCIAiCIARA 5Iq9r69v7ty5uHtDQ0P4d48JyjM5I0nZ+xgYGOjv7//mm29u374ddVkSw1df ffXwww+//fbbOh/++OOPhw8fjiYxZ84cZ4XP+7WFn/3sZ3hHzjc6d+7cI488 4pzISRAEQRCE0IhWsV+8eLGyshK3Xrp06XfffRfy3eNDchU75FxPT8+qVasg 8HiZR44c+dvf/vbSpUtRFzDufPTRR0OGDFGvGPWJxrB+/XpuFd+5c+fXX3/d 3t4+bNgw1O0zzzyT0yDvUbFTwXC7oqKilpYWEe05QRVdv379m0Hwg9SYIAiC 4C8RKnbI9UmTJuG+c+fOLfADdEqxT548ec+ePZ33c+3atagLmBkUm3yqoevm zZuHkl++fPnq1aso8/Tp0+n3Gzdu/OGHH6IuaXz53e9+9+ijj0KQ0/9ClkPA jxo1Cp0CWn3hwoU8HKt+fX711VeWVvTBBx9gGaWv2NODIeJLSkpwd50o8YXJ lStXUDmVlZU8sQW9KfwSf8IHoi6jIMQR6I2GhgbNsUgQhHR0ih3SjuQ6/sXP od03nijF/vTTTydirwGFhNQklQJx3tPTY/kAVOWKFSuoXdXU1NhXZLdv3162 bBlG7B9//DGkQsePf/3rX7/61a/4S6f+WFpaOm6QMWPGUCX/5Cc/wQ8Qz6gx zZAyFjAzQqu7UuzKbR66vbW1VUQ7BytTNGwl1ClwLr01LLi4dMfH5ERAcsEw lW27ygBqJ1iPNzY2Ylk9MDAQ9fNFw/fff49KGDFixOnTp6MuiyAkhkgUO/Qb +a6PHDmykA+cKpKl2Pv6+qqqqqjNOLgzqagmYPXq1RZlTv7bkP2hFDmm2J3Y MYOjMXR0dKxfv/71119vb29Hr4TeQ+3t27cP0z0qs66uzkC0Gyj29OCpcNyO lMaBAwfc3jQvwcoFL4U6bFlZ2ZYtW3p7ey3LGQxxeHfl5eXU/ocNG7Z79+6k LHm6urpoO8ZHjcqTgET9fO7wV7FbQMNYs2ZNAW7EfP31148++ujUqVOvX78e dVkEwX9oKu/s7Dx//ryPI3/4il1pgCFDhuzZsyeEO8afBCl2qMcZM2ZQg8np zrRr1y76pD090Icffqgf0jBfsTixO4OOU1NTg8pEveGLbu9lptjTg+KTFmhQ cRK2CGNva2srVKiOhxKqDssucmrysj8SMg6HILyDqoMGPnfuXNRPqcvJkyeV a9mOHTteeumlBx980P5caA+vvfYa1tqd2WlsbFy4cGFpaanlu2gbixYtKqiN GKzdMI7V1tYmZRkrCPqgL8+ePVv1bh/dSsNX7FDpNIWhtyZi/gqBpCh2tTkC xowZc/HiRefPkyGFPv/KK68oMzt0zrPPPjtlypT+/v7gSx1fLE7sOcECB9Nc yih3krFiTw+KFmqfcuSEfPtRG4cPH9b5/MDAQFNTkxLtiTgRgFeMuUBp1OXL l1PLsQhUrB+x7nYQqAAKdu3atZMnT1ZnMdTX161bl9ATLr29vRMmTLBUyJo1 a/Tf7JUrV7B8syj/YcOGbd++vUD8ZN5++208MtpP1AURBJ+BhKuuruZdG8OF X1InZMXe09MzevRoTb1XOCRCsWM+gvZQraW1tTXnV8hZkT4/fvx4dYT2iy++ GD58eGNjY8BFjjV2J/acYOU+duxYVObQoUMtexY58aLY8eo3bNhA7xFtIP6a MyBo+HLrIKQ2R1KJdS768ssvLfLSlUBND1ad8pFTzJ8/P6ELQLurDGZStxfB s7/11luWM8sZT/3kGTQvYMrDxBd1WQTBZ2j/iHdqgzk3G2Eq9h9++GHBggWp QVtTW1tboPdKFolQ7GfPnlXerfrmcXX+VIlMTPSY7qF87OdVCwpXkdiJ69ev T506lepz69atrm7nRbGnB62CEydOxNfRUAvz7IkS3gZrFmWpIHtLb29vQIUM iI8++ohPQJiPMCu5vQg/ja4wO5QROb4odgKroXHjxvFLzZgxI789ZGjvVTNt nCAkCwhpy+AA3evXfmKYil35w1RWVha4O4SF+Ct2ktmqqeifGLU3MHrY+vr6 gjXVEq6c2Amu2CF+XN3Oo2IHWGVT/41tKw0UrDcpfVVq0KX/T3/6k34DtnSf xDV+9Hc+Ably5eJAiGKxbxH/+/bt873AQeOjYk8PRk6jvCQFItqPHDmCkUSc 2IW8hPIPqr48evRoH/eSQlPskOg0KMmBUzvxV+yXLl0if4yUS5cMSwOjfRbx iUoPqqCHH374q6++0v+KUt0AmsHV7bwr9kLuwpAWEBhcU7l9d+gy6DhqDE/Q BhO5b/Fnf+6554xDvtiPtRocyogcfxV7moU7VuTxmRFxYhfym88//xxj5rhx 41auXOnv0js0xd7a2kp3kfOGduKv2NE21NkxVyG5+A7Rzp0729raiouLW1pa Ai1t/DFwYgenT58eMWIEVaYrd5q0H4o9zXpxoW2T4WHthw2N90e8C7wwIfct /uBu2x7H7hKfRH9m3xV7mp3vVtiD4uYB4sQuCMaEo9gx36nNUJ0Ti4VG/BX7 5s2bVTtZsmSJ/jzCFfvzzz8/cuTI6urqeD5jmJiFo+fuxG4tVL4odrXVUmhH UVQPVbi1saPLoOOor8e2p9vxxYldoU5PG6994kAQit1ytD81eE45cTWTE3Fi FwRjwlHsyjTndporEOKv2PkMBfWu/0XLKQzxhyFIBbkKq859oQ36kS+KnZch ic4MxtjtzAb2T3IGIBJkY/TLiZ3gnl2K9vZ2HwscAkEo9vT9pi0i/zazxIld EIwJQbFjWsfkTrfgQbkFRbIUuyudyRW7fhTrvAcqyK1m40cJDPqRL4o9zUJX FVQCLKiLlpYWCsQHvfHyyy8brFYsLtwGabDCx18n9vT9ORqCnnqCIyDFns7k 558gByodxIldEIwJQbGrKR4zXUdHRxC3SDrxV+zcPOiqnfDYpG4PS+YrpILc KvbGxka18DGIr+iXYv/2229V0ttCW4Cjb6LqjHuoRYx58QYPDX+d2NP3n8Al DJILRE5wit1e4VinY7Xuy8UjR5zYBcELQSt2vo3ucTs1j4m/YucnT121E+4A LIqdoEkZ9XnkyBHNr0CiUzB847yZfin2NHOTECc3V2zdupUrsUR0B3+d2NP3 r/2JJMYiCE6x3759+7nnnrNcPG8Of4kTuyB4IWjFzh3zPG6n5jHxV+zcJUN/ burt7VX22JTLI6t5jFJBmokjMbvNmTNHyTyzXAw+Kna+fNu5c6eXSxUUFht7 bDs7x18ndrufNtiwYUPiXJqDU+xp28oulUdnRsSJXRC8ELRi504RbrM0Fg7x V+ygpaWFdJrO9AFV2dzcPGzYsIqKChVnmD8dpHt3d/eZM2eCL3jsgAoaOXLk 7Nmz8W9O/5a+vr6qqqrUoHUdM51x8/BRsXNXZFmG65M4xe67E7tKwqVI6FH0 QBW73XFo+PDhX3zxhV/XjxBxYhcELwSt2JWJJonOiqGRCMUOlT537txULseM O3fuHDx4EEK9qKho3bp1kO4dHR00TY8dO1ZlE6Dgw27DG+YBeL94y6jJnp6e SYNkUyyo4a6uLspgjrXP9u3bBwYGjO/ro2InZ1Tq1wXu6oZ3dP36dTTmzntg HZqtC1tkXpw7O+GvE3tvb68lpn1yU3EFqtgzBsBsbGz06/rewUCEtoHWjqEe r1XTYK7jxI4r46+4rMcxShDC5Pbt2xj50SOOHTsW6HYYV+y+28C5iWb8+PHX rl3z8eKoIjVR4oeYz33O+KLYMdZBO2Gso2bT39/v+84jmmJNTQ3KCTUOsc29 T/E6Tpw4sWrVqgcffBB/xceUOMcTVVdX8wn6zJkzU6ZMgRaNodgLuhpJBZHy OXXqFCoBanzjxo2YodSNIAJx95kzZ6LGLJVpjI+KPc28kV154+cNaCRo7S+/ /DLeXcoG6gTv7vjx47zl2P2T46/YfXRiV+t9XkurV6/GAt/fModDoIrdvrWR is1mFlr+Bx98UFZWxsuGwfzLL7/M+d2cTux9fX2qkaBnJSKYklDgoDGvXLmS wogR+PmVV14J4qQG94+lMcHf1QE30aAnYont/ZoYMQ4fPkxixjL+z5o1C9Ld lb7CfPHee+99+OGH0brVeVTs586dwwxSUlJiGeTLy8vb29vduj1jUm5sbMzW ElD/+/fvr6iooFvgpo899hjdGq8A67Lm5uYbN25YvoWWBtlJ+pOydmKQj9uh xXCq8dChQ8XFxUrl4gP19fUZhR8qdsuWLVeuXPHl6fxV7FzLJSLmiV9Q++cR xdEX1q5d29HRgcGnu7sbTWXevHlo52jtDQ0NSpFacp4ad/Yw8cuJHX1nxYoV luGaV07iCFSxZzx8yjcoowLNdenSpSgMFPumTZs6OzvR92nAxAiWczVH51/Q EjL+FY2BzEGKJB5JFgoKaBjaN5w+fTpGfswCquc++eSTHlvvmTNnHn/88XH3 gA6xiF4aSPF79Rms9L3clI6Z0JV98X+gR7BrGwUmSowk+hMBhMcDDzwQeZA6 Y8UOvfeb3/yGr+/sYK3U19eneUHow4kTJ+rEE4MCOXbsmHIGOHv2rHPJsSbq 7e0l2zXauRcHD98JsxrREezKBy32woULVDn4Fz/7bk/zV7HzXPMxsf6FABrw 7Nmz1VBZXV2NESnjYh/i6oUXXsBn3nzzTRpb7B4mMT+I7ZcTO1brixcv5teB xtu2bVusRgC3BKrYM14f3U3Hjh0cGKPq6upQkldffVUZIsjHj0qYM9mTsxO7 vYN4D0wkCMFx+fLlSZMmWUYzHhyvvr7eiylYXcoiy+2UlpbSHT1O7jy1vUeX Gzz47t27M5oiLeDpGhsbdUT7jRs3Zs6ciQr/5JNPvJTNO2aKHUOcPfBCRqqq qnTUJip5w4YN3ltasgizGpUTuy/7Ta7wV7FzV9sJEybkvSkM77Gjo0MNxfgB /+vcR8iwrBLNc/MFkc3YGBO8O7HzgxgKDLk9PT3BFDk8glbsfOpURJtniiIP YOyy7BuqqsBfHUpIQ9+IESNOnz6d8QP29paSUFRCXMHwvmDBAvuZPp7T2XdX 8EDBU2AxrvqyF2dXnnBQB6zN9+3bl/Oye/bsQcFqamoi35w1UOz4yujRozUr BNTW1uZ8zIsXL44ZJInRG8wIuRq5E3vI+KvYuQHWYRbOD/DGGxsbld6GBD11 6pTOF+msJcVWsmuwmMfO8uLEjhr7/PPPZ82axRcpaHj79+9PtGldEbRit2c+ 9f0WrsAiC+OkfUzjNnbnEuZ0YscsD/FjWdXmWb5Xt6Af9ff3fxMpKEB+9Fl/ yaYeuY09WZnCeF/2WPIDBw7YvYtLS0tpR2Ds2LH2v+b06yADe0yiZrlV7LQd Y3lkVAKe2rJLosiZcFZZhmMVlCBQwq9GixN7mPir2H/88cclS5aoOsnjw6cY kFevXq2EhE5ATk5rayu07l//+ldVXUmpNIsTO1aaGCqdJ3fUTHt7O56Ub4YW FRXNnz//xIkT+TTvF5RiV2kQ7QWwhLVxKKGzEzuhHG8UhWxjv3379osvvmhv BuETudtw3MAqprKyMqOs5YaOZCn2b9jugJcQcCrbIzF9+vTOzk7LxhzmgjNn zrz22mvcDu+cmIOWSDFpiq4UuyXqQllZ2ZYtW+whttCompub+aF+rFDsZ0IV ZBnOp4zYzkRSjRmd2MPBX8Wevl+05OvEapEQWM0dOHDA1RVoV2Xx4sWWwIYx TxebMVyJW9DUsW6N/LxkEBSUYicD+8SJE+2n4HkytZTjtpFmJHYMy5R+gojW ESjNrNynT592GPaDwLJ/ESGRuHHGGQpYbVePEA+1tbWq3pK1+4yiUlSQlAeR QJZwukhFRUVXV5ez7yiFDaTPO4hPDAtPPfVUTAzsaTeKXZlwU4PH8yEmnWOY 4EkxudCg6mwfxtyaKhgDeyTVGKETezoAxc5FxebNm71f0BdQyXg6qMRTp055 9Hazb9MbZOck6VtcXGzZ7o95ona7U/GsWbPqtPnlL3/J9z0xdLe2tgYRGAcT RHt7O/oUbYphVG9pafErvJIDBaXYqTD22BEWfeKQciWnEzvn6NGjlHUxKhMl BpBnnnlm1KhRlvoP/+DJ559//vrrr+v3uyBAAVCMkB88zkAqPPvss2iiaKiW P127dm38+PFJGeQt8GgSZnHMMCA0NTXRFRYvXqz57CpHJMA0kfEzFCImDh7s hL5ip8RDqUFnWs3QAdwLFy0tozSl2CaF48EeSTVG6MSeDkCx81zqEDDeL2jM J598MnnyZMuxdO9uJxZnPONYc3Z1F8ns7wrvkdgxjmH05i+lrKxs7969fvnG YBENDVlUVIRbLFy4kNTFnDlz8Mrw6hctWhSobb9wFDuJ7Yxq/NKlS9wlZurU qdevX894kZxO7Bz0MjK7+TVSuQWzgyXgPCGpWoX0PbWWsTGrZJFEsuyfhw4d UiU3U+zkYJAa3JRxFShe+SdnvK/DEikqNBW7iljr1plWbe5ns1pgaYO/rlmz phBCxERVjRE6sacDUOy8g0cbqHDz5s32Y+kevY/sZxyyLf9zYnEIT8Tsbymz cdADyhGmroPprLa21ruxvaura/To0ZBVqEaL1YXiauJe+EBwFtpIFHskR5XJ zpBRjevrEx0ndoU6IxO5MwakArUlhzFfKDR27tyZyrTlhHb7yiuvqO4QHxcO TfiEbtb1yMEA8yZmT7ffJTf1jL3ss88+Q2VSAAe3lw0ITcWOBoCSGzjTptny xz6zxOoQbghEVY0ROrGnA1bsMUkGBHVRXl7uvUhYcNXX13Ox5OV8h12xJ86J 3UvIfRpv+dWw7PWyufnRRx8NGzbMYdeVzoWlNCKEGxO0Ylc5hTmROHXTaNnQ 0GD5PRm+VNmcBa2mE7uCqteXHC5e4B0hWR4OQnBAl0I8dHd3W35v8SSMyZyo D61ECINNc9oaU3nt3UKe6vaBlNZBOSN+hIyOYlcH9o2deWgFZL9FtmMUeUmE 1Yg2Cakc1S5GISh27onnxfuIR+giamtrjV+cXd3FpLqyYXdi9yJH0R3sCU/N RvX0PVclXND54ImyURvvjDgTfgaluNl4z549yyNCZHMUTLt0Yk+zuNCR70Px juBlBBAUmAS3bdsWiUP+9u3bAx11aYddYTDyYFX4/3ylurpa/+58X89AsX/6 6acPPPCAF0s4+nvKZh2icSZu6Y91FDtlOfdiCSdnQot9L4Y+QoFSsNVYCIpd WQmck7k4o9Z0XGEaX+3777/nIYkClZF+4d2J3YI6S6gws35T3DAdJ0nVOAPy 1wpUsWPCUrnOFXHLU2bx23GIFuXKiT19z7IdhzgbvCPkaziskOGnn8InOL8y ZSImzPZkf/GLX/j7vDNnztS/u0fFToN8W1ub2y8q6FwM4EeQ4hkRRUexY7ie NGnSggULnI1LDig/KwxE6pe06RkrH6FAKdhq9F2xf/bZZ0OHDqUOHgfFzlO2 eXE7sZynS3lLXYf2ZonrCM159uxZs6uFg8WNxzKEGmCJ2p0yWgRROFZNJ0ml 2ANqmYEqdihb6FvL9aM9KmLBEnjQ2dnPlRN7+p5lOw5eKKojxG2DI7m0t7db omaFRqCeFSQA1L3MdmSqq6v/3VcwaOjf3aNi9w4dYOEGIvK0ieGMaZDz1Aza d1D+gcqcGHOjX9xIYjX6rthpF4w6eBwUO+2eeC8PvVyOF7HE1zWEF5/wEPDX iT3bNVPu3ZZaWlpKSkp0klmn2W5LEhW73SspFTMbr0WfOHcQt07sltE1Knij dQiDI7gCcyVmHyziOsMFdwzOJdWyLRvnrXYHIlfsqgxqK4Q8jWMYESU0xU43 UgeByZwYNx+h+JPEasx7rxjuxG483XNDvS9iiR/nSQVs5/EFu1z0Hmw/Yy4Y V5MCdTHNsyc8TnhA7seBKvYjR45Y7JBxO6pscYlxUOP06vXLr9wLPTpieUec 2AVNVDzSRK/vuA8YJsFIGjwNfbQfF5+hwE5oip326JVLJJ2ViNyakTiSWI15 r9h9cWLnhnoCqwDNiP12VJw6RcyXdekAnNjTWWzsrhR7Y2Pj8OHDsyXosaAm 0ODWR4EqdnugmFiFBXDlEuPWxSU+kdzEiV3QJNFh2BVxmNAp7yrZQuPsaRya YqdzcHSoJ26JXxNEEqsxvxW7X07sPFMz4eXEH52541eLs98U4bsTezqTH3vK TQ4pUuAO0UgsUGhf3CK40T44xW53Yo/bJrulVTs7TZETu6Y1gzJlxGQfSpzY BR0sZpn4K4Fs8K29qCZ0UikYAG/cuBFnT+PQFHt6cK6hBHZ0tld/HhQ4iatG 3xU7t0FFm/M07Z8Tu79u5xaXmPgb2INwYk/ff+RBoW+3JNWn6QitUl/p2+QN CE6x2+PqeJwUIIPR6m7evOlL8dI2px1npynSvZrv7pNPPikpKZk5cybma/3y 4NF8Pxji4MSO26E+/Urd68Ddu3e3bdtmSeUcPqWlpSiGOAVlQz/MaczhMY2j OvdN9gpIlFOnTmG6NAi5g46J3hp09wxTsdOWKyZBLGFiYs1IIomrRt8VO/dl 1beXZgTTAXqZl3kwmxM7LuhKrvCNA8I4rrvdedvMXECVg1cWgtHD7sTuJay9 wp5DytXxf/3UY7du3Vq4cCGuT2dUg5MZASl2lY5ZgQeBjjW4FERvY2PjY489 xuv83XffJTlBjcpMxvOOj6HPIYmzKyd2ykCH59V3aUN1rV69GmWArM3pu4Wh 4MCBA3V1dQcPHszZMOxO7FevXl25cqXSz7hpZWXlX/7yl+C0QcbTH5EQ+RZq nLGc6bAP8qi6P/zhDzF0xrbA9878EgluoTaPu7e0tBicOb18+TLlznvyySdz GscwWWzevBmTy/nz592WM0zFTg3svffei/9hyTiTuGr0XbGjtathykyuYMLt 7OzEmrqoqIiug/n6pZdeUm4Y6AuaMt7ixI5ufvz48VmzZvErL1my5Ny5c87X sSt24zQuFmOpW8vhlStX3nnnnfHjx3N7JgTDyy+/fObMmYC0aBBO7HiQiRMn WmpVP38ZWTv5wIiRtr29nedGWb9+Pcp54cIFCn2PWkK7CtQqGJBiJyMzvywU qVsPdmhyaHXSltOnT0dVoEOhcurr63Hx+fPn//Of/ySh60oeK7hEcfYY0Xdi x8vasGFDymU+XB6yJmf9q7iCOisIHjAKg3xTUxPqCiMnxpnLg2zcuJFqGC05 IM8r1MmmTZsit7GjAGJjz4YlDHtGwwJNBB6NWiHAAxFHlQ2BFDuqC62OfBhc fZ2Ct6c0PNlu37794osv0ocN9pHDV+ylpaUpnwxohUniqtF3xc5Fi1tZi/H/ yJEjVJ6ysrItW7ZAUUBX7Nq1C4Pe6NGj0SMoGX1KQ7RwT0JMx8eOHXvhhRcw O1dXV2O0xMNi8KHfYNptbW11mH0s/hsGgwYB1bRgwQJ1HVfSCGM+lRZAcUEk oHLwFHgWPBH9HpUfhE6wGMM1LdsOoKqhdiwawJXdmFSf6mJY9TzxxBO4AlYB qITly5dPmzaNqxosn7Gi8VJmHYJQ7JgxyUDEn8XtIYKLFy/SRVBFEFqW1e7h w4chcVGBSuganJLTV+z6TuyUylYz2L69JDmXlnyI0EmvoDpCcXExBig0sO3b t1sqk8qMz6BXigm6MLF4UWY8Ie7KMSwjGEXPnz+ProrVwbh74Gf8BsOjX7s8 PNmf8cTnEb6v5PYUEv9uznA9fEPBIBJU+Io9leQjEnEgcdXor2LnaRnd9m6o 2VWrVpG9a/HixRb7GyQKNBh6EwYlzZ7LndjxOjC9VlRUWAK83Llzp66uLjVo hG9pacl2KYtbiPGhM4uxVNNyiM+8++67pD/x+F1dXZaRBIMzBDBV3YwZMzLK ud///vc1NTUGw4h9F967EztlKbWIW1d2YyzcePAfaC0orqKiojFjxtDMRatm fOanP/0p1dupU6e8lFkH3xW7ap8K1Btqz9VF8ODUa9D2sPi1T0PKlE2YRVXi aSudO4imVqFG4vZ5+RCU83w0NRvNVm05/IuCZVwOUPQ5qkYvqR6F5MJNHBlP iNOpeWPTB20WT58+nW6Bfo2mTiOeory8/P333/fFeX7FihXqsjxBZGjwOcjt iMrn7pzRKcmYQB82iAQViWJPnHMaGj/qubu7Ow4JaBJXjf4qdj6puYrNAu2t PHWXLl2aseoowpsaOnIugS2Gjqqqqr6+PvvH1BGh0aNH9/T05HyunIIkG+SR qy6iaTlEVaBCnB8hfb+rs924R4sXM6XtuxM7ZSlN3Y9b7yC7Ezu+jnFgx44d kLiNjY2dnZ1QeqgHvLs5c+akjLSuW/xV7HinDQ0NFvcntzOmOnKbclwT8YNy ZlGVLPtQ2cqp6cROqwxIkQMHDrgqhisRzsucM78A7wgYiD7++ONsn1SegfGM QScEimWyyOgcS4EfzaKzYljYtGlTUVFRWVlZc3MzvzhaO/pdRUUFv7v3lA08 VIL3NBwGKMVukOfUlQhXSy2z6M2RKPZ4hs3JCJrum2++qXySobi6urqiLVLi qtFfxc43lfTPlXNDosOOvzJeafY+Ps5MmzYt22V5/AcHZwAeDdvAkdviB6Lp AcIXMjkV/t/+9jdaoWCA2rNnD/8TLV7M2iQf8cyenZNRrk+YMMHVtGJ3YndG rfWCHkh9VOyoKEvSLgO5zmu7srLS4ViNGgcA6hY17LbAlpwF2dSIjhP7F198 gcE8246AM1yE51xa6vvPpO93Yt+wYYNDwdTIIxEgCxBL0Fq79xdNZGaHx9Uq 3r4Nza+vdqtTflgqeJ+KJImSUuwGIXeUCM+56e/KfyYj4St2gyVMhKgAywoH M2k4JK4a/VXs3Kyt2bXxmebmZnqPOQcxpYhyLoG5h6pzQD++je7Q0XiQKwMl prxbU4OKGo+cs3L4QkYnJiG37XDjHiXLNm6TPjqxYy6rqqpK3Y+Bv4rFiT0n 3FEh0PBNvih2vK+uri5uKKNaMrD5UGgFuoLzeo03b+Okb21tbep2uFpGneDs xI5n3717N9YmZnI97UaEu/KfSbuJxM4dhIyztgkJxbIpaV9l79u3D41zwYIF Bi4rNI9gGe68d4O5Q+V3Tmnv52bDzBDnI8qq5tZTxZUId+U/k5EwFTtt5PkS Zjkc+HjLcRv5x18SV43+KnZu1sa0pfMVqDW1He+8gnbV+/QjsfOTNQ6VgCUA d+dztd/N3bYhV5qamnSOBdHA7qpVqxJyUXHp0iUIErMdWHviHko85/Y6eN69 e/eWlZVZeisu3tvb6/ZqFid2HZSjAtZxAeUJtXg9Ea48iDDPQmTiItwQgZ8X LVpkkK+K3jtdJGcEY19SA1s2UDLqBAcndnwdSx4UAK338OHDBgXgk0LOpSW3 hbpyYs8pWni8LMmLWmjw4Cr2xR15qWVbzzpDIWjGjBlz8eLFnB/GZ/BJ1Q7r 6+uNdRHvVl4SERpDXdUgUg0X4TlHfu/pjENT7Co1pKbKigPZwtKabWf4QhKr 0V/FrhSj5rFT9CAoSSUVnO2f9mDIDh/m1n5n1cS9YpyHI2hLNRTbPU+yQVv8 6luNjY06p03paBJ9S988zo17ShS1trYah+/mqwadyrRDKlQdklIUFRWtW7fO 7GCUfiR2hVKkXpLVcm7evPnNPbq7u3fs2GGJ6KKm7G3btlFUn4xgMjp27Fhz czO0rj1kH3rl/v37zcI+qJhmqew+KgS6krLIeQwEBCn7zDPPqPtaDkpnc2JH M2hvb6cF3ezZsw0WcYSxE3vOrRD9wceS7DKSk3pChNCeJr19y14wnanR3GO1 Qy325z//+fr163NGJObFSGms2Z1RW1deVvTG0GxuYN43c2I3dmYLTbGTASGq 0D1m8FmGE1XI0HQyq9FHxe6QEDAbPHJyziGF976cgSb0bYZ8yy/n5jh3bskW LEIBoQUdomRYzhiSHHxSNWn9LRseN55ECIU919mBpSSYJCOhMDs7O+vq6uwa EmtSLB+y6U/FyZMn8eyQLvYr4I3MmjXL2HvNrRM7odqDX+OD3QHGXyoqKrCA 1Q9CbsESEdq5v/iVGphAS4Mg4e8dz4LfoFH94x//4E7saNUnTpxYtWoVpTmD YvcY3cLVSVJlCdcZsfXtb7wynTNJCfkK3zhuamrCmI+5AG1sypQpaBKrV682 69d870bHAZjPmB6VNreAGXvNGUPGBwNPFf2TpFy9GHv+hKbYSTjp+PLFCkvw kMgHySRWo4+KnZuhNL04uBkw56aV/hJYbXakNHbx+Cyf0wCLK0PKchGOAdne N+2GZXtgSQdcyS2ORbGjtPX19To+8KChoSEVMKguCF1MNF781qiZuZ01lI3I r8OAvit2DFzl5eVz587FSsf7LgD3S8/ZBXhqYL+ySNy4cQMqnSdXVaD7jBkz RkUMSA1Gotu2bZv3Oc7Mid1VJPac7YfXfITmIyFaurq61NbqqFGjaMrAAIhO YbwMt4w5OY3GHs9ecbhXWMhx8JQ3hduhydiJ3SASOxGaYqeBLpIzBR45duwY HdHCfFdVVYVhPxXdYZ8kVqOPil3FUtBczlv8mpzHH1dLYFc2Q575RdNJGwqH HwzEOPz4448vX76cUm1a3BughVQWeE1cya1sX4TGoPDvmnHOuZe+j5SWlk6b Nm3t2rWYwoynKo6BEzt/Ou/pnxIBtwnn7C++OLFnA50RozTW5uggtJkFATNu 3Disjl966SXcure315eTR66c2F35z/CjLjmnfh5SJllzgeAvt27damlpweiH 1j558uR33nnH4wzLbew6XdVHxZ52kznUX5SWdpttypUTu8dI7EQ4il0NdMGd yQoNsjFGotgTWo1+KXbukZ4xAq0dfvIr58a0qyXw6dOnR4wYQR92NsZanE71 V/EQnx0dHZaAHhx0f4zSu3btMui5ruQWhw/RTz311KRJkwzyY8YcvFC3p598 2fFMFnwd6ryb7GpDygv0FoKb7rkIz7n0duU/w88SOg/vlvHEIHWsIGSD51bI GS4m7bdi5y6s3lM560NLYANnYy7Ccx4t9BiJnQhHsSs/Xr/2QyMEi6OovGIS Wo1+KXYemELTY4GPJzldiVyd40YD0PR4507sZmlqMWzSycG6e+zYsaO7u9tL h9WXWxYsQ7SmP0yCINXnNmA4Tw8UvhNmJPAm5Dy9OmxIQb2fOHHCr9Bb1NeC WzH5Eokdj3/06FGLFZ0Hq3e+Mh8GIw81LOQfaJ+Ybo4fP66zX8nnQe/bZzwf SmipwdRxRYO9UV8isWOVhPFBc3c4HMWuViJuNx1iCN5RVEkrElqNfil2SuLm SvdyeZmzhWfzI8XsjxHM8l3lzp2zq6piA7MAuUHA5ZarHHO8Sl0ddE0KtNWy bNkyV99S+7lmi7IkwpuQc7gS7sTOlzO0aWgWzDMjpB9WrFjhy9Xs6D+yQyR2 DB3oOBYfeG5jd17+8APjzlmWBCFQ/I0VQ6Bb0aI4tIFU2RPcWmm4CM9pD8wW iZ3WC/rhB8NR7KSFvOwFxAQah/2K3uaWhFajL4qdr75ramrcLkhTuSzJDlFo du7caT/epWwLzss3XuxYmaO5K6yr/Uc+8oR8PigcaKvFlWLnZk8Mv7740scf viflbFvjIpMLXTKJ+7hjSFmDAzJoWNJzOD/yhQsXysvL6ZMWJ3YM4/aDqNyP 3SERFQ/In3/eaEKy4PGBU97isSt4SIRwEt+oGDVuV/p8KsypbXbt2qUqiu/g 03pB/yBqCIpdHQGOSuj6CE0xkWQvSm41+qLYlYebq7jf3I/dWYNxrwau7clr 1L7PrvzYnSOZ81hDmsczw4GvZVwpdr59n5eKndbF+oZfnjfWY+K/ZMEnLAeD M0+zYln5ZrQ2G5MtErtfcCd2Z8VuSQfJtxVoGM8Yu56WG6nse148d7P3vPCC 4BG+5QRZYpzjwIIys2smcvKIegq3p0G5E7uztuFpViw+cqQQ9NNkh6DY1S0S lKYzG+ThEEmOueRWo3fFznffXDmWcLOYg40dM2xNTY0afPgREpqm7Z7JagHl sOXB8zPqnOIJE27K0F/g46kXL16sKir/jliqrRbNlFKot3379lH8fHylu7s7 hELGBJ6iN5udnB9ks4wAdJDcR2/VMJ3YU9kt4QMDA01NTTylLF8RHz16dNiw YfjX/kVllMg2wqu8xmhvBw4c8Ou5BMEAvhL3t0FifscsT1cO2u9LneM2cF1Q brTO8wXltFKf5JvyJGw0w2gQISh2tf/uyl02hpCHQyQpdNNJrkbvir2np4cC zxo4lqgFe7apnNtICW49wxoNfTmjQ51yXc64guMGsXiaXsnCmdLzP4QO2bt3 b1lZGV6EippreaFQFD6eIowEshv/+te/xqiIVuHs34In3bVrF9UhqqWrqyu0 csYE1TEzWtgwA1KIReh56gjc2xOtZcSIEW1tbX4VhkxewR375RZFMHPmzBs3 blg+gzli7dq1GHDeeecd5b6iFDtZBrItUii1QbZRDusFkutomYcPHw7iAQVB E2jF6upqat5FRUUtLS3+DvtqbzpoM7vaOHObyN4SODrb4gKjIqZLDJLvvfce PRFX7LTqcRXuKWjFrs7h5sw3EX8o9LRzMu6ASHQ1elTs3MBu4FiiFuyoun37 9ln+SkZjvFbMsMpioLb4MbFWVVVls+pjXUxZ4+1zN6ZmdENSKeiw8XQ35UsV B3UKrQ4djmfE40BvoMaUMZDbJWjjL3EbQBag+oqLi6GIsNrCD01NTXj8jJ9E 23j99dfpFXvJep90lJKcO3euaudXrlxBV8VUjl/29fWp+R3VtWfPnvTgVIW+ 4+/GE5m8nA+EGmNxYideeOEFtdRF9zl48GBFRcWwYcN2796NUUslL8YYgsfE BzZv3jx06FAHpz58bP78+fgKVjpYAJIAwNiCR6NsUIXc0oSYwI1RQcj1NFu9 mk36+igndrfZTrlPIGHJdYhuu3HjRowGU6ZMwYf5bEs5aqEf5syZg2HQlZNz 0IpdOQ8kK02nHRJvUUWJSXQ1elTsJ0+epCZq7CkHzYB3R4ZQTJfUMdHa29vb yWhM1lGMPDQK0clWqPRVq1aNGjXKwV8UjYFsjJi76b3g4mfOnCHzGkazdevW xSQ4TEbwmA0NDUMGWbRoEXSUGrXwp56enjfffLO8vBx/nTVrloojh/EToyg3 LODZob7wmuJztNYMSCOK8aVqBq8SD6WWIVQtmE0o+AkqZ+/evdlUfYFw/vx5 CHLqO6gWkqno7Pv371c1gxEM3Yo+M2LECHQNf1eyYTqxz5s3789//rM6WFpa WopRgvp7bW2teijymMIIkxrMwUqQmHe4EYYLyCGVv5KaGbVDLCQLvKUJkcM3 FtFKOzs7A9pUVYesA43YsHXrVurFXpzYN23ahImD6oTySlP/Rd9///33lQDA GKWW3jQGkph3dd+gFbs6oJdo45taVPpyGtqARFejF8WurHMePeVwHYhPyzyI /4WiVlY+zIbbt2+nz9D0qrMBjQkaWtciV/DvsmXLzp07Z1zg0EB7Pn78OJnQ SXWMGTNGJVR95JFHIFyvXLli+RZGIVQdPoxvoWXi3zxwCyHVp86combwRJWV ldwnWZlT0BOPHTtWIGFhdOjv78cshhn84MGD2XKMqs9oRnvWh5zY3cZn08ee DomsZGgDnYN0d3dnHJnxmHhYfAAPbveiyQYudfLkSXXl/DvfLSQRLtfHjRsX dMw6dXAjowead1RmNwNLrD0dEnr6hQsXMPpRt4UUz7i+xoN4GQODVuwqAliY Gax8h/Y3I4ymlehq9KLYld07p1OxDpgHMf1Rh0LLz3hB9RlXMyzlSacr9/T0 JFHIofurygEYLW/evOn8FSXAslVmsqCNTvshStSDqhn8gHedaF/9vISirYbg xJ5Ev0RB8A6X6+TtFsIdlftNEMZS5brg9ri6QzqkoAlasVPEKoP0r/GBFnrR RtNKdDUaK3a1xI5boBUhLyEn9kjSGQseCS0Su0FiREFIOlDLra2tkOvQz2vX rg3N1VO5fwcRH0mlI3d19jN9vxP7kiVLwjzYGKhiV5FzQks46zt4hJqammiP 5ye9Gs0U+9WrVyk7QzwDrQj5h3Jij7oggmtWrFjhS8rFjHAn9iT6JQqCF5Rc 1zmI4TtYHVAUWd+tpqR+DZKrcif2kGN9B6rY1d6B2yVMrIB0NM774wtJr0YD xR5cJxWEjFic2IVkARWd04nLGO7E7mOGVkGIP0quO59UOn/+/JNPPuljsFbO rVu3KGGKv3oAl128ePG2bdvcrkGUE3v4bg9KseN11NbW1t3PqVOnvFwc9YDa QJ0k0TIcH5JVjUeOHLG0oldffZWCAWoqdrURhu554sSJEMosCNmc2AVBnNiF wgTao6WlRSeqCa1qA4qtmh60qCxdujQ1GDIukoQ4vCRRObGn709WbschEbMg ZMSSZ4Sjo9hVVD0sId3uVQmCMeLELmREnNiFwkTJdZ1zplu3bjVIG+oKaIPm 5uaSkpJVq1YFd5ecROjEnhbFLviNR8VODVIShQghI07sQkauXr06duxYGsHE iV0oEFSclqVLl+b0l6ajduEki7l582a0fVAF7kuF7sSeHly29Pf3f5MFGZ0E t6B3Z2tOaGk5M4DgA9evX5dEIUKYiBO7kA2V4TeVzOC6guAWkuvFxcUNDQ0O YXuVejx06NBDDz0UXDaEWNHY2EijQVT5NAVBEAoZcWIXsnH58mUKFPPEE08k Lt+0ILhlYGCgqanJnjYuJ6+++mohJKrYv38/pQ5cs2ZNyC4xgiAIAiap3t5e 2VIUMoKG0d/fnwc5wgTBGWO5nrqXC7gQuHnzpuTREwRBEARBECKhra3NTK6D 4ALFCIIgCIIgCIJALFu2zEyuBx0oRhAEwXe6u6MugSAIgiAIgiAIWejsTKdS 6ZUroy6HIAiCIAiCIAiZ+P77/5HrPT1Rl0MQBEEQBEEQBEEQBEEQBEEQBEEQ BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ BEEQBEEQBEEQBEEQ3PDfkZ+RMg== "], {{0, 112}, {998, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{998, 112}, PlotRange->{{0, 998}, {0, 112}}]], "Input",ExpressionUUID->"fc77e7e3-f1f9-46bd-8acf-91a4c2a2472e"]], \ "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.739023297598277*^9, 3.739023297598277*^9}, {3.7608116744480047`*^9, 3.7608116766202297`*^9}, {3.761415611389517*^9, 3.7614156118136663`*^9}},ExpressionUUID->"6ed7cae2-1661-4972-824b-\ 166c0ca545e2"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "a", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "b", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "I"}], " ", FractionBox["1", "2"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"CommuteGammadown", "[", RowBox[{"ap", ",", "bt"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"a", ",", "b"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "bt", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.44089626328125*^9, 3.44089637846875*^9}, { 3.44089642415625*^9, 3.440896495890625*^9}, {3.44089657190625*^9, 3.440896662046875*^9}, {3.4408967804375*^9, 3.440896870796875*^9}, { 3.440897205890625*^9, 3.440897242203125*^9}, {3.440897309890625*^9, 3.44089731115625*^9}, {3.440908108171875*^9, 3.440908109046875*^9}, { 3.44091498821875*^9, 3.4409149941875*^9}, {3.440918974453125*^9, 3.4409189904375*^9}, {3.44244558234375*^9, 3.44244573665625*^9}, { 3.4426716670625*^9, 3.442671710828125*^9}, {3.442710621890625*^9, 3.442710690765625*^9}, {3.4427114799375*^9, 3.44271148175*^9}, 3.4429637571875*^9, {3.442968274875*^9, 3.44296830234375*^9}, { 3.4433745575625*^9, 3.443374558359375*^9}, 3.443397886515625*^9, { 3.443708388078125*^9, 3.443708411328125*^9}, 3.44370851709375*^9, { 3.443708548734375*^9, 3.443708553453125*^9}, {3.455046150046875*^9, 3.455046233453125*^9}, 3.455384991875*^9, {3.506778333651889*^9, 3.506778334296926*^9}, 3.506779194679137*^9, 3.520647426065205*^9, { 3.520647558388774*^9, 3.5206475930507565`*^9}, {3.520647626489669*^9, 3.5206476282817717`*^9}, {3.536930486296934*^9, 3.536930491023205*^9}, { 3.536930535285736*^9, 3.5369307318879814`*^9}, {3.536930778157628*^9, 3.5369308566581182`*^9}, {3.5369309230769167`*^9, 3.5369309999173117`*^9}, {3.53693103451029*^9, 3.5369310433197947`*^9}, { 3.5369316121663303`*^9, 3.5369316209108305`*^9}, {3.5369316913818617`*^9, 3.5369317715824485`*^9}, {3.5369401425560164`*^9, 3.536940147587304*^9}, { 3.545150039100164*^9, 3.5451500409652705`*^9}, {3.5451500789954457`*^9, 3.5451501188347244`*^9}, {3.545150386932059*^9, 3.5451503976686726`*^9}, { 3.5451504792953415`*^9, 3.545150565795289*^9}, {3.5486497044453716`*^9, 3.5486497048823967`*^9}, {3.5486498550369844`*^9, 3.548649897540416*^9}, { 3.548649939848836*^9, 3.548650005988619*^9}, {3.550786780608042*^9, 3.5507867972639947`*^9}, {3.5507869371899977`*^9, 3.550786949571706*^9}, { 3.550787006870983*^9, 3.5507870339005294`*^9}, {3.5508444250440493`*^9, 3.550844431156764*^9}, 3.551719224204878*^9, {3.5517254094302473`*^9, 3.5517254109363337`*^9}, {3.55231620515283*^9, 3.5523162071649446`*^9}, { 3.5594382867005477`*^9, 3.5594385291334143`*^9}, {3.5594894820301027`*^9, 3.5594894916916547`*^9}, {3.559499177807669*^9, 3.5594992196280613`*^9}, { 3.709575446786773*^9, 3.709575456294317*^9}, {3.7117177264632072`*^9, 3.7117177390879292`*^9}, 3.7118551397043266`*^9, {3.711855374620763*^9, 3.711855550612829*^9}, {3.711855598565572*^9, 3.711855619145749*^9}, { 3.71185650697853*^9, 3.711856509649683*^9}, {3.7118600546374445`*^9, 3.7118600575296097`*^9}, {3.7119035982589483`*^9, 3.7119036207192335`*^9}, {3.71209565035738*^9, 3.7120956600549345`*^9}, { 3.737163665127725*^9, 3.73716367494114*^9}, {3.7614156464999423`*^9, 3.7614156822315683`*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"8c77b68a-fba8-414e-bd5f-63431c2b37ec"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{"Da", "[", "Color", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "bi", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "/.", "AdinkraReduce"}], "/.", "TemporalGauge"}], ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7111642994797387`*^9, 3.7111643860246887`*^9}, { 3.71116538155863*^9, 3.7111653936173196`*^9}, {3.7111655855452976`*^9, 3.71116558768242*^9}, {3.711165720831035*^9, 3.7111657746961164`*^9}, { 3.7111658519165325`*^9, 3.711165855041712*^9}, {3.711167498395706*^9, 3.711167510553402*^9}, {3.7111675536138644`*^9, 3.711167601211587*^9}, { 3.711167647155215*^9, 3.7111676491123266`*^9}, {3.711168046768071*^9, 3.711168058862763*^9}, {3.7113744420398703`*^9, 3.711374449652305*^9}, { 3.737163698115884*^9, 3.7371637080697913`*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"3bb4a6b1-bd18-41fb-8759-35eb1166381f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{"\[Psi]", "'"}], "[", "t", "]"}]}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "ai", "]"}], "'"}], "[", "t", "]"}]}], "]"}], "[", RowBox[{"[", "Color", "]"}], "]"}], ",", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "ap_", "]"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Bfield", "[", "ap_", "]"}], "'"}], "[", "t", "]"}]}], "}"}], ",", "Simplify"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", "fields"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.7111645574354925`*^9, 3.7111645699712095`*^9}, { 3.7111646601143656`*^9, 3.7111646956723995`*^9}, {3.711165016059725*^9, 3.71116508975994*^9}, {3.7111651864034677`*^9, 3.7111652049845304`*^9}, { 3.7111652473169518`*^9, 3.711165256065452*^9}, {3.7111657311796274`*^9, 3.7111657569270997`*^9}, {3.711165857127831*^9, 3.7111658599129906`*^9}, { 3.7111676552636786`*^9, 3.7111676649382315`*^9}, {3.7111678861268835`*^9, 3.7111679136514573`*^9}, {3.711167949206491*^9, 3.7111679707537236`*^9}, { 3.711168109839679*^9, 3.7111681108197346`*^9}, {3.7113744574197493`*^9, 3.711374488532529*^9}, {3.7614156933821363`*^9, 3.7614157049939666`*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"b13788d9-69cf-4335-88df-45db70fade3a"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, {"0"}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, {"0"}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, {"0"}, { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}, {"0"}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}, {"0"}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, {"0"}, { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, {"0"}, { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]}, { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", SuperscriptBox[ SubscriptBox["B", "2"], "\[Prime]\[Prime]", MultilineFunction->None]}]}, {"0"}, { SuperscriptBox[ SubscriptBox["B", "1"], "\[Prime]\[Prime]", MultilineFunction->None]}, { SuperscriptBox[ SubscriptBox["B", "3"], "\[Prime]\[Prime]", MultilineFunction->None]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, 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.712096162212656*^9, 3.7371637137577205`*^9, 3.737168391492465*^9, 3.7372085280824175`*^9, 3.761415709785512*^9, 3.7615015424874153`*^9, 3.7619988916047316`*^9, 3.7620206190222344`*^9, 3.763294669914302*^9, 3.763316398215066*^9, 3.7633173863919973`*^9, 3.763320374391981*^9, 3.763399651359786*^9, 3.763406492306424*^9, 3.7644563184168205`*^9, 3.764456880628228*^9, 3.764950856343407*^9, 3.765635207988283*^9, 3.765739166243157*^9, 3.768930839472519*^9}, CellLabel-> "Out[62]//MatrixForm=",ExpressionUUID->"2daf5bb0-a9ae-40bd-a356-\ 25833c99b867"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DD", "Subsection", CellChangeTimes->{{3.7308122301647825`*^9, 3.7308122628657265`*^9}, 3.731162255630625*^9},ExpressionUUID->"3a6745eb-727d-4c98-abc6-\ 7a66a9408a1e"], 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}}, CellLabel->"In[63]:=",ExpressionUUID->"388e6d2d-8e02-437a-bb0b-6d47906c1924"], 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}}, CellLabel->"In[64]:=",ExpressionUUID->"7b9f680f-c308-4d9e-a626-7914b46d1755"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"SUSYTransform", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "t"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "z", ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y", ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y", ",", "z"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ai", ",", "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}}, CellLabel->"In[65]:=",ExpressionUUID->"4e84670a-dbfb-480b-a537-9348d6e913f5"], 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}}, CellLabel->"In[66]:=",ExpressionUUID->"b529f91b-f8bc-4c3f-b914-a17756fa16c8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", 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}}, CellLabel->"In[67]:=",ExpressionUUID->"11c95ead-7071-4314-8f58-bb351bc32b52"], Cell[BoxData[ RowBox[{ RowBox[{"AlgebraDDTable", "[", "Field_", "]"}], " ", ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "ai", "]"}], ",", RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7371651794635396`*^9, 3.7371652120755053`*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"3143ffef-6c23-4c86-a440-c6fa01697e43"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", 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}}, CellLabel->"In[69]:=",ExpressionUUID->"702c3f9b-b9e1-45e1-992f-c5a8d032e022"], Cell[BoxData[ RowBox[{ RowBox[{"HoloraumyDDTable", "[", "Field_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", RowBox[{ RowBox[{"Da", "[", "ai", "]"}], ",", RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.742225289456066*^9, 3.74222531191052*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"63e720ea-e678-4804-ad18-044861245642"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ai_", ",", "bi_"}], "]"}], "[", "Field_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "m", "]"}], "[", RowBox[{"[", RowBox[{"ai", ",", "bi"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{"Field", ",", RowBox[{"\[CapitalStigma]", "[", "m", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "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}}, CellLabel->"In[71]:=",ExpressionUUID->"80896f16-b70b-4a73-8b94-784829b0fea0"], Cell[BoxData[ RowBox[{ RowBox[{"ClosureTable", "[", "Field_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ai", ",", "bi"}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737914721265608*^9, 3.7379147450069656`*^9}, { 3.737915477761877*^9, 3.7379154839432306`*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ii", ",", "ji"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "ki", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ji", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ki", ",", "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.760811758328529*^9, 3.760811758518526*^9}, {3.7614157235028224`*^9, 3.7614157320935097`*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], 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[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], 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[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], 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[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "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[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7614157171970234`*^9, 3.7614157328187714`*^9}, 3.76150154269049*^9, 3.7619988917921286`*^9, 3.762020619207008*^9, 3.7632946700809917`*^9, 3.763316398432212*^9, 3.763317386604428*^9, 3.7633203745985403`*^9, 3.7633996548728333`*^9, 3.763406492539802*^9, 3.764456318596839*^9, 3.764456880846925*^9, 3.764950856509961*^9, 3.7656352081373916`*^9, 3.765739166436778*^9, 3.7689308396618805`*^9}, CellLabel->"Out[73]=",ExpressionUUID->"8d86c2db-6354-4d27-81ca-7fa46650d4be"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Algebra", "Section", 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}},ExpressionUUID->"231a1b16-656b-454b-bdf7-\ 3325c412556f"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["D", "a"], ",", SubscriptBox["D", "b"]}], "}"}], SubscriptBox["B", "\[Nu]"]}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["B", "\[Nu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"d7d48bd5-9a76-48cd-8b8c-563a42b15178"], " ", Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubsuperscriptBox["\[CapitalLambda]", "ab", RowBox[{"(", "VM", ")"}]]}]}], TraditionalForm]],ExpressionUUID-> "deb5fa10-36c2-410c-97ac-4c8d530cb879"], " where ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CapitalLambda]", "ab", RowBox[{"(", "VM", ")"}]], "=", " ", RowBox[{"2", "i", " "}]}], TraditionalForm]],ExpressionUUID-> "b19e17dc-bedb-40d2-ac1f-d759827491cb"], Cell[BoxData[ RowBox[{ SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], SubscriptBox["B", "\[Mu]"]}]],ExpressionUUID-> "c091acdd-91e2-4f83-b35a-fee904c66014"] }], "Subsection", 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.7390249239312983`*^9, 3.739024930571678*^9}, {3.739025009481191*^9, 3.7390250516626043`*^9}, {3.739025189521489*^9, 3.7390251933597083`*^9}, { 3.76097929777229*^9, 3.760979321068851*^9}, {3.7614149608148565`*^9, 3.761414962178694*^9}},ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-\ 80eab8b74b10"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Gauge", "[", "Rep", "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", "I", " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7390250591630325`*^9, 3.739025103290557*^9}, { 3.7609793259626436`*^9, 3.7609793656247187`*^9}, {3.760980562904402*^9, 3.760980563351207*^9}, {3.760980693560899*^9, 3.760980695486284*^9}, { 3.7609809580049586`*^9, 3.760980985247055*^9}, 3.761414913028609*^9}, CellLabel->"In[74]:=",ExpressionUUID->"276a4bf5-23a0-462c-a40c-58e7dcde8183"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Gauge", "[", "Rep", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}], "//", "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.7385839572995095`*^9}, {3.739024789074585*^9, 3.739024794366887*^9}, {3.739024835423236*^9, 3.739024916494873*^9}, { 3.739024947055621*^9, 3.7390249480106754`*^9}, {3.7390251318271894`*^9, 3.739025168820305*^9}, {3.739025319560927*^9, 3.739025342134218*^9}, { 3.760979380065931*^9, 3.7609793856052933`*^9}, {3.760980567592511*^9, 3.760980568094617*^9}, {3.760980699686663*^9, 3.760980700836876*^9}, { 3.7609809929561615`*^9, 3.7609810566381187`*^9}, {3.7614149136171236`*^9, 3.761414914787157*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7614157845949297`*^9, 3.7615015427373505`*^9, 3.7619988955646467`*^9, 3.762020619259164*^9, 3.7632946701434717`*^9, 3.763316398501605*^9, 3.7633173894977384`*^9, 3.7633203746297703`*^9, 3.763399654935662*^9, 3.7634064925976057`*^9, 3.764456318659311*^9, 3.76445688090941*^9, 3.7649508565627823`*^9, 3.765635208189254*^9, 3.765739166514083*^9, 3.7689308397400246`*^9}, CellLabel->"Out[75]=",ExpressionUUID->"7af98dfe-c450-46e0-8304-4257c9546ca6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvX1sVNfV7z+6V1e6/0S64o9I+Su6lZBlRSiyEAIFIWoZ2dyCCL4Xp0EJ Dpjwa01IeMqbEwNqMA+I91AIpOFxEwohpoCpXVlQB1MTSiBgHIdADDKPeQvF vMsuNCEl9Py+j5dY2jlnzp593mbOjNdHakTHc/bsObP3Omvt9fa/K2b/3//v vyUSibn/E//5v9OqCufMmfbW//tf+D9lb8yt/MUbM179P2/Mm/GLGXNGVPx3 vDgD/3vufyQS//VvSxAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRBymp6enilTpuzZsyfTExGSs3r16pqa mvv372d6IoIRZ8+e/dnPfnb8+PFMT0RIjmwoQRAEQRAEISs4c+bMqFGjVq1a 9fDhw0zPJRIePXr097///V//+pfmPd9//33a5uMDzL+ysnLKlCk3b97M9FwE HVhmra2tQ4YMqaur0y+57AWb5dtvv9W8ATsu5sJENpQgCIIgCIIQf06ePDl8 +PAVK1YYatfQw8+dO9fq4MqVK75tE4x56dKlEMe8f/8+Ln/rrbdGjRr1xBNP JB5TUFCwaNGizs5O27CHDh16/vnnb9++rR+2r6/vyJEjtkmeOHFCb7mknCpG MBmT7AvM8/r1674/TogUrKt9+/YNHjx4x44dhksXP7RzAWCZYbH5ngas6Y6O jrDGxBfp6empq6ubOnUqdhDvJuyssWPHvv/++7aNA0kCeVJTU5NyWGxw566H eIFA8DFPnurhw4dNxpQNJQiCIAiCIMQZ2K0w1WfOnGkeEXr69On8/PyEg+ee ew4Wt79pNDQ0qDY1M336dE+hqtDV8Y1mz549aNAgXI7/Tpkypba2lpV22FCT J09+8sknq6qq7ty5Q1cdPXr02Wef/dWvfqV3r//www/V1dXOSYJ169b5++J3 794tKytzDoi7gdk63w+z4vl+xL6IJ4cOHXr66afNz74A1mfSRZVyQbrx4MGD uXPnJh1z69atXofav3//+PHj6fK8vLz58+fv3buXdlNLS8s777wzatQovP7x xx/TV8Z/N27ciAXc2NioHxxmdWFhoXOSTz311MmTJ318cdDW1ob77xyzuLg4 6ZaRDSUIgiAIgiDEE9JUoTBfvXrV04Xffvvt7du3b968uXr1aqjlMH7JwDx2 7JiPaXR1dcFiZb29oqLi/PnzGB+WrKdg2osXL5aXl9MgJSUl+/btc3N5d3d3 l5aWjhs37tKlS6dPnx4+fDgu+e1vf5vyIx49eoRZYW6nTp3CVTAr6ONmzpz5 3XffmU+VgPm/Zs2al19+mQaBlbF7927cVYx/7949t6uOHDmCd86aNSuIQ1+I Ajr7wiL05ML+17/+1dvbix8dyxIbAbuJTq6wPrHYfEyjrq4O4wwePJh25bvv voudjvHxKeaRKljqBw4cGDZsGA2C9YadktTljRebmppgsL/99tv379/fvn07 3o9Pxx5J+Snff//97X4wZ5YkYOfOnd6+cz/YO6+++urYsWNpENzAjo4OGl9z 7iEbShAEQRAEQYgbMISXLl0KDbm5udn3IMuXL58yZcq//du/+daxoSHPmTMH Gv5Pf/pT3261Bw8ewCQhfzrsC1gZKSNpKQi2oKAAVoaPzz1//vzQoUPXrl37 7LPP+jasYCb86le/WrVqlSdfKmx8XIIfzjzWWkgDMFRnzJiRn59vYqUmBUsI C2nJkiUlJSVYD1hgWGZeB+nq6po+ffqHH35Ii2rSpEkw0r0O0tPTU1FRQSOU l5dfvHgx5SV06oVdTEcNXj8XogPXLlu2jD4UgsXrnOnsa9OmTS+99BINktK5 zxfKhhIEQRAEQRBixaeffgoT9Re/+IVvjxIMXpjqMPlha5N6nDJT1UldXd3K lSsPHz5MSv6YMWO8Fn3C+zEN9nGbXw4bZOTIkXQhLIW//e1v5h/6ySefwE6H uU2GFf597tw5r9N+9dVXv/jiC8yZ5vD73//e8NqrV68WFhbCOIJp5ulDhej4 6KOPyMyE9edvBJj5MPaxtLAraUlggXkagc6+Dh06hGnQCL/+9a+9WqCUGJLo TyT54IMPHjx4YHihms/y1ltvmd8HvBPvx7fGd6fLfcglOvvq6OgYOnQoRhgy ZMjZs2cNr5UNJQiCIAiCIMSHvr6+8vJyWOtBOkxdunTpueeeg4J97Ngx0tK9 6tidnZ3Tp0+/fv36b3/7W0/+ZXUO48aNo2vffvttT58OK2bz5s3+PnfdunVU TZptbU+G1cOHD1euXLljxw6YCf6CCijZubq6OuaVtwcIbO5duHDB9yCNjY10 asS29kcffWR+OdYzVhTW1d27d/n8ytC/zCPs27eP8r7xX/zbk6Xf29vr1a/N F06aNAlCgEJWKJMlZclHFcgQSBLIE7b3vTr3ZUMJgiAIgiAIMYG8YFOnTg3S bpj8y+fOnfOnY+OjYSMfOnTou+++8+FftvqDfouLi+lCT3W9mFOnTlF6r0nS OsNBBbBl/BlW+Nb47rgDfNDhNagAViFsw/z8/DNnzphfJUQBlsH69evxIy5e vNi3Y539y99+++3OnTt9BKvw2RfvR0/+ZXyL+vp6NtWxRH18Czp2M0xaZyio 4MiRI5QL4DVYhc++1P3oNahANpQgCIIgCIIQB2Akwk6HQgvlPMg4lLQO05V1 bHPrgPyAa9asgZHyt7/9zYd/mUrkcWqtv9ZUt2/fLikp8Vofj6yhTz75xOrP t/VqHZAfkGJufQcV4L7BNsSFa9eulWTbzHLt2rUxY8YEjFShTUSnRnyG8+qr r/7jH/8wuZzOvijAw59/marZ04Vbtmzxt6gwgYT3Mg6UtA45oB7cffrpp+Yz nzNnzrfffkvHaD6c+5ZsKEEQBEEQBCEewCKGZeEj1VpF9S/70LE7OzthiZA3 2Yd/mUrk0ScGqesFUwjT8Je0TnfPq2FFfsC6ujr823dQAQHLCB+NmwZr0eu1 QojAMMQvOHbs2Fu3bvkehP3L1uPjIPMdoZ59Wf3HaF5PkHp6ejijxPfZFzh7 9uyQIUP8Ja1TGgtP3nBHqGdf/oIKGNlQgiAIgiAIQsZZt26dJ7ddUlT/Mo9p qGPfv39/1qxZnOjtw7/c3NzM9ayC1PWCgQAzwWv/NQ4qsB4n75sbVgcPHsTX JMPEX1ABw5fzryCkH6xY/KA+Qq9tsH/ZepzHbW51dnZ2Tps2jZafD//yw4cP q6ur6RIsRXOntpNz5849++yznnpDqEEF1uOjD8P7iZkvW7aMzr4sv0EFjGwo QRAEQRAEIbOwMg/7Osg4qn/Z8qJj46/bt29ftWoVmdg+/MuwSkpLS+mSgHW9 bJaCCWpQgeXRsOrp6XnllVe47rTvpHWCb12QdGkhIGzieQ29VrH5l/kEwCRY xXb25cO/TA3H6ePeeOMN8yLwTrCkvca6qEEF1uPIH8PjRPXsy/IVVKAiG0oQ BEEQBEHILKzMB/Qfqf5lS9Gx1ReTQjHwnNbqw79cX1+feExAvRoq/aVLlzyV 2rMFFaiGlf6Wkh+woaGBX/GdtM5QSIM/T6IQCnTk4rWumg3nqREHq+iPkujs a/369WycevUvwzaHhU6X4Iu0tLT4/hY0Wnd396NHj8wvUYMKLCVYJWV+Sk9P z/Tp07kXfJCkdUY2lCAIgiAIgpBBPv3004T3os02bP5ly1jH7uvrmzFjRltb G7/i1b/MJfLIuPDakDo4tqACy9iwam5unjdvHjsuAyatExTSELAEgRAE/HYm pqUem3/ZUoJV9DnguHDatGlqSTev/uUzZ87go+mSgKn3PrAFFVhKsIpeRj18 +HDhwoXq2VfApHVCNpQgCIIgCIKQQci4gGUN+9r3IDb/sqU4tjQ6NmyHLVu2 qH5Ay7t/mXuuZcS4sBxBBZbizdQYVlevXn355ZfZD2gFTlon+Kwj/acWgtW/ pGEUB/fG2vzLlrLONcEqzrMvH/5l3oBAPX9LD86gArLfUwar2M6+rMBJ60Ta NtTDhw/b29s3bdo0derU4n7+4z/+I9JPFLIUiALsEayQF198cc2aNa2trZ4a LghCTMDD5eDBg4sWLQrSODhWQHNbvHjxnTt3Mj0RQRByjZqamoTHxuhOnP5l Ex3b6Qf04V+m0wYTt2MUOIMKLAPDyukHtAInrRNU1Cvhsdu7EBZUpRD3X/UO e8XpX7aUwxw3r33Ssy+v/mXqicAbKv3V1ZxBBZZygOAWrOI8+7ICJ60TadhQ 2OzLli3jQgFFRUX4v01NTfjtpHOc4ASmDTbIjh07KisredmUlpb+9a9/9ZRy IggZBFrQxo0boSkdOnQo03MJDexNaLDFxcVcjEgQBCE4bFykzC7X4/QvW4qO nbR+HYx0mOo2t7tX/zK7MgMGkPvGGVRgKd/CLWIBdjqsdTyt1BeDJ61binUW sGag4I/bt2+XlJQEPDhKWuqQveRuW6OtrW3GjBm2Vmte/cuwHMeMGUOXBAkg 940zqMBSvkXSrfHgwYN58+Y1NzerL4aStG5FvKEgAWBzkcH1xBNPVFVVXb16 VSx0wRw8wbdv356Xl0dLHWu+p6cn05MShBRA9K1YsQKir76+PlMSD3PAo7aj o6O1tbWpqWn16tW1tbV6Lz9tN6A5iieDffjw4Z2dnRHMOo48evQIX/add96Z OHFiYWEhxBG0iKlTp9bV1d24cSPTsxMGEDm8FENxBSb1L1uPM+KT6th45/r1 67ds2WK7hGvTGfqXef5EHJLWLcVBmdSwunjx4ssvvwy1XH1RrU0X5MyBrcWa mhrfgwi+CeX+J/UvqwdTTvMz6dmXpZRQMPQvsys5eLyND5IGFViPm7a7nTkk PfviuhkBzxyi21Ckr9KthtYKdVEco4I/sNrHjRtHawn/yJTB3tJPRj5ayCJI 9D3xxBM7duzI4OHknj17Ej8mpdr50Ucf0Tv1PUmvX7/+/PPPDwSDHc+sAwcO jBo1Cvdk9OjReBCv6AePy6KiIjqFhmZiC3uLPyLKso5cXYpMKNZ6Uv+ypdWx k/oBLe/+ZdVaN1fLoRhzc3b8A78vJYriH/y6Ycv1pEEFGsMqqR/QCilp3RJr PdOEcv+T+pctJenD5ud1O/vy4V9WrXWTjmlW/0HTggULWOGB4QmdhzZUQUEB v27Sct2tfyJ7/J3BKknPvqyQktatKDdUQ0MDS5utW7cGN9VVseabESNGQPRh KKdwziXw7X7+858HvFdY6hMmTHjnnXegk2f8pAVz4J0b5GnuG3oWS0yXoAcP KRjpkFTV1dW2I9Y0Q771b7755s0336SNo1c7U4a3qWA/wlqHzQ7LPeyJxwVs +aVLl+Ju4L9Jo8IuX75MTiiIyl27dmVcSBoioizryNWlqBKKtZ7Uv2y569h4 vby83OkH9OFfVq1187rN0MAPHz7c2g8eHBMnTmQFDFbS7t278Xp3d3fKcdyC Cix3w6qurs7pB7S8BxVovppY626o9lEoLF++3PYRwe+/m3/Zcg9WOXLkSNKz Lx/+ZdVaN5QJWPznz5+n3dTS0oIFzyOAyspKyAdsNxOTOWlQgeUerILpvf76 686zL8t7UIEbEW0oaImlpaU0Q8ifUGIY2traMJTz4JEpKCgodgd2uvpmXD5v 3rwgfQ3iDD3c+btzJDkzaNCgwsJCt3sFKc0J48SwYcP27duXQesDi3zt2rU0 mSeffPLEiRNpngAdOKe/0oWgAaviyy+/hPCcM2fOlStXTC65cePG+++/P378 eGwB3guQgStXrgzlVApiCnsngxEgTrjCib6JD3dLgehOWdeRDyVmzZqV/qOz NHD//v3Zs2cPHz4cokbzhIVIrK2tfaKfjRs3ZvZ8xhARZdlFDi9FlVCs9aT+ ZUvRsXFzjh07Ri/CGFm1atX27dudd9Wff5mq5CUCdFni6CavDeDcggosxbBS ffRdXV2vvPJK0odUKEnrlljr7qhnQU70hkxScwYqh3O1BL//bv5lSwlWwRtY W7h58+a0adOSRtz58C/z/H3LBPUAzWuPBregAjVYRfXR19XVLVu2zCl1w0pa tyLbUHw6B5YsWRLFSe8XX3zBzTKAiScLe+Svf/1reXk5W/owY3fv3p2NB9Ge wJ1R40Ogk6fsZ4o1CUmOhz5tSaKioiKDNsjx48d5Uf3ud79L86dDGI4cOTJI ZxkhdCAheS///Oc/1wfMQGwuXryYjHR+INrO/fB/Dxw44FsgUIg4Bkx6xJoR DD3m6mkYdH6TkSmBPeMB/1FAarxhqD/nfGXLrRBRlkXk9lJU4RrshlGvTjT+ ZUsxpVnHxkaYNWtW0lIe/vzLGJkfJT7y1tXa9V57ZLsFFViKj5INK1gxsBYP HjzofHNYSevq5+pPiQcg7GhWFY/NmzdfuHDB5HiEnrx8rdtmJ1s7EcCl6+Zf thTLcejQoefPn7e0Z1+WL/+y2pTBX946n7klPJba0wQVWMqRGsczaM6+wkpa tyLbUPh9eS1FVBsTH6Gq2eaeAiyV9vZ2KOq81LHGsu4g2hO2+ieeaq5CMqxe vZpvNdQ8f4fGwVEDYwKGlPgAGyRgrVohXG7dujV27Fhe1Xp5DnGKLQ9THbrc tWvX1D/Bxv/ggw/U+BM8I3w0KaOnFS6fO3eu2mozs/Cu0at/V69eLSwspA1u nvpKT/PcS2Bva2t75plnkmqzSblx48aECRMS/T61+N8KEWVZRG4vRRsBO7hp /MuWQ8e+fv06FGy3W+TPvwxrC8KQLvShUff29k6aNImfQSa56oxbUIHlMKwo LCqpH9AKL2ndkg5u7rCjOdEftor/a26AQCGvrq5OaapbYQSruPmX1cE5WOXQ oUNuZ1++/cv19fV01eDBg1N6GJ2oXmOTXHVGE1RgKeYtbVKKfXIT0WElrVuR bag0WOssThPuzSk0QFaXlZWlXPC5gXrElPBe/x93pq6ujiOHM5WsmkFrXTI9 Ywj3syAWLFjgplZRkjXs0Pb2drfR1EqG/hY5xcCbBK6kE33DEYK6o9LbnPVh NPzwww+LFy+O2wFFQPBF3njjjUR/5NVrr71m6Fmrra2lGxjzWyGiLIvI7aXo hDKsfahzhMa/bClKKdZ/X1/fihUr3PyAvv3LLA/B1KlT9Q04nHBv9IRHY18f VKA6a3AT8DR08wNa4SWtW8oNT395/DijLpIZM2Z4uslq7W4C/9fN0ueYbX92 ot6/bCnBKjAe9Wdfvv3L165d4yZuhiF/KmwkejX2NUEFlmKJlJSU3Lp1S3P2 ZYWXtG5FtqGittaDOIuZrq4uPgiFmg1lO/R5xgTfcQgM+w0zqAZk0FonaSOZ nrFCfXJVVFS4PfXu3r1bVlZm4v8lo54X+cyZM83VLZZIGS8uZ8MkaZ1LOJaW lnrV0CjbHQrep59+GniysYDz9wlDw5alU8wfJSLKsojcXopOKMPanx8N+gDM VY0qyKe70LF37drl5ge0gvmXWav0kQ+lJq1zcr0J9ItrNjU/Bd577z2NH9AK L2kdNDY2JpRIaYHgmMDKykpPZgvXimGBAGVDr6LQ8ZfXrAp1nhq1gfM+Fi1a pDn7soL5lznbsbCw0FluXYNqJKrJ9SZgJ2puGqcYYNPt3btXc/YVYtK6FdmG itpaD+gsZlg8gvLy8lwtFB8wDoHgEDt/T6LgZNBal0zPePLo0aPbt2/DwHTL NCevMZZrQ0NDytFUFzNh7mhuaWnBp0C7O378uLfvECUmSet43M+YMSNhVs7C Cbv/ckZ+qsmniWS1dpOiRrGuXbs2tpFaIsqyiNxeik7YoPZxmkSVjTWKAevY ENTYAprD2yD+ZdWk8pQiRDVP6Ffzal7V19frvZa8kJ588smVK1e6nSeHmLRu PT4iCB4AnGOQ7wxro6ury/wqW4BrwsybcOzYMXyWv+MvqhOlOYSnwWlRvfba a5rJBPEvq0n6nhwohw4d4lrZnpLWSaXRVM9QE+qfeeYZfJDbUCEmrVuRbaio rfXgzmJCDbTAgDnZgjaUOASCQ+wSvgK9ApJBax3SRjI9sxHa4OZrVRUIpK3Z ktyTgsHxERnZFHpY+3VT/0IpS0UnFTkjP9UjXHPvpKroxllBFVGWReT2UnTC p4uG5xIMFGxSZRcsWOBmirKOnVLWsXfDa/I4oRpWI0eOxK+WUq52d3eXlpbm 5+fTVZ4+9/Tp0zD9YJF98cUXbu9hw0qf4cVeMK/OfSesdrrF5w9YIIFxe7FC PF2l2p4pf0eGf1BPWdtWfx0bOjvat2+f23tYu9CfSqn+Za/TICgxnLdkygO0 R48eNTU1wY7mEtnmn4trt2/fjh/opZde0khODlbRZCJYSlCBV+e+k+g2VNTW eijOYutx9BQP9cYbb2RXnpcJYcUhWD+2l9PvRsyUtS6ZntkLScvp06fv3bv3 ypUrKdeMWpWXMIlf4m4FcSuno09aZzcQwBPKdyV87teZG/KTS5oMGzbs4MGD 5nKG8/j8+TLSgIiy7CKHl6Ib5IYzPFCC4ge1fNmyZaNGjaLvC1E2efJkiLWT J086tWjSsZ0eOrwT729tbcVosPfZgwnFacOGDS0tLYY9mhn8Up999hl+NZrS rFmzvvrqK+d8IHJhpy9ZsgSfOG/ePJghlG+YMmkdYhbWdG1tLbYzzxa2CX53 yHynHUeGFcw9px8Qb6b+1PhQbpiFOcM+wkMTr58+fdqHrkVqZ84c4YYFxb1g U3uy3Ww5ejD9DE0ePrgzcS7jDR0dHdg7WIp8MoB/vPnmm9gXWKi291OwStKz L3xNbBksHvyJ64OBadOm4RW8nnR7asCCf/fdd2mp5+XlYVf29PQ4lyW1/YIE wLTxQViE0ExMZOCtW7ewcdasWTN+/HieLf6NTXH06FFn5j4FqzjPTDAl7Bd8 QYyGfc21i2G5wK7Hi/iTv6pf0W2oSK31EJ3F1uNcgOCGf2wJKw7B+nGIXUDD 3weZstYl0zN74SPQRH9f9bq6upTLxhZ9mvIxx0VjfPfYjQ5N0jo7gACea0G6 WHL3t/z8/DNnzgSbclwwD5xj2EQKKGajQ0RZNpKTS9ENqrRmKEtJvkGCFRYW UkfOMWPGkKEBTdtZWB6KLux658jffPMNeTSgXatdrQsKCth69aEk379/f/Pm zezgw8QwvZkzZ0Jvnz9/PuaMmWPk8vLy9vZ2ksC4ZMGCBSmDKNitqfbmph7c Sf22GLaioiJp86P33nuPrsKd4aFobjRtfwFjdFBsGJw2cKDlXV9fb36JzVT3 2oGFfgiTbuOcKqLuAm5xi0Vr051I85k9e7Zzeezfv5+uwprkoXhv+l4YFy9e xMfxysTix4QXLlyIuWGV0vrHRyxbtowHx2Z/7bXXUp6NkNZn2wVkayfNWYCe M3LkSGeaAEzRl156iTe7bW8SPsrlWVFuqEit9RCdxZYSI0TkTK0kJqw4BOvH +RqJAH1R/ZEpa10yPbMU23I1lHWq7EoYHAZy8LzvPikRoUlah862ceNGyD08 j1pbW4NvJT4SHMitdVUTKaJOKAERUTZAiP9SdIOzivzptDEEZjhUlx07dsCs gHFB2jus9U2bNkH5zKI8BXP4BDu7yiakAaxqTwaXWs2AbEBNlnRSSD/JpSAH aFnYONg+0O5oN02cOBESD1uss7MzYGnEeBLphorUWg/RWWz92AbMPW0z3DgE 68dqgL9Sk77JlLUumZ5Zim3xJ8zc3zaBkLL5L2Vtx1B0uCWt37x5kw4xJk+e bN5aXQ+foA7knaLKRvw709NJgoiyAUL8l6KG5uZmSNS41QARzKG+8zEMNsss pJDA7DKMlrlz5w4VgGVT3VM6DMG1c80/V4gbkW6oSK31EJ3FlkM5z7pHm55w 4xCsH6sBaZbGGbHWJdMzq+FipITJsbYna50LXwQvyxM6zqT1R48eHThwYNiw YXl5eTt27Agxx5zz40KpfRpbHj58CFM3ZY/meD5HRJTlElm9FPX09fWVl5fn kjdwoEHliJcvXy7moQok8KJFi44ePWryZrUWeiJYGdirV68WFhbmUp7aQCPS DRWdtR66sxi6JScWJcLoMhkrwo1DgKyAmcyj+ehGGoSwrHXYLHfv3oUJZhK3 TJmebvkRNFSs4p9zHqip9POZ7FM1kOzpp5/+4x//mPIST5HwXMkhlDgTXpn4 b5BEckJNWodhvn///pKSEtyENWvW6KMF/MGHqMH7isYH/AqdnZ0rV64cPXq0 uiqKior27NmjHnf84x//ePXVV9NsIokoGzjEfCmGC1YptIucaQo5oCDbcOTI kWEFbg1AuFcLm+pJaw6YQ90lqqurgwwiZISoN1R01nrozmKbch635NOAhBuH 4Awtxt0La6opCW6tQ1LV1dXx4QxkYFVV1Z07dzSXaDI9uWBvXl5e7pU7iCFY fps3b+Yym4MGDcL2T7lb8YYTJ04cPnz4xo0bJp/iqcocn/UFqeGAlQw9XC2f Qotq/fr1hrGg+I5bt25VV6naNmXSpEkw0keNGrVjx47otF9sAZM7li3AOPrL X/5CRZLxWyxduvTYsWM3b96EaYyN39jYOH78eLU2L/6k9v7z2oLKKyLKBg4x X4p6INwwT4jfTZs2rVDAK5onOFkrWNUNDQ3pnK0QEEh+2JU+OpQJDFeV4S2s bxNmAnnqzbtACjEhDRsqOms9XGex5VDOc8m3HnocAheNJLLLtw55VV1dPWzY MKwZCiMkB4T+AB/2YFJD7MGDB3PnzuVbkV1tbbMRyuGCXorHDdTXb775hpZi uMfFzg5u+vKtHG3uO9gD3wt2lirTVGBemSSbNDc3P/fccxcuXOBXaKvi6fzC Cy9s27bNpHtdQPjgIgf2Am4XxEKi/0TovffeS3pmglVXW1tbWlpKDVmo2C// cJH28hNRNnCI+VLUACMdRodazlplwYIFekWLwqKSFmQWYgu1BRcfrm+4rSrv FGfDQX9QbXlIiZT9yoX4kIYNFZ21Hq6z2HJktmZj2JgbocchUCwlD5hFeet0 Vm9rj4iVqddnNJmeUEW4OWn6b8VAAz/ErFmzKisr+biJkzKeeuqpEL2BXOCd SJnnztLDn5TDhlKPv5KSsmMLDPOysrL169dntvoue/SGDh16/vz5DM4kCLiH eHiRnMGd159GklShJymf2xDReahFlA0Q4r8U3YBxgZVGkULUAH3v3r0XLly4 /Zje3l4TYUX2RVjWihA1dMDibEItmEPWGW/eKVOmhGhc0+DBPfVCekjPhorI Wg/dWWyrxxLubDNO6HEIUBhgHKm2TDqP6YJY69BYYEScOnVKfZFPfqAPfPfd d86rNJmetsSiRHqTAgYadXV1WGxXr17lV9SdG2KoZ319vfqbbtmyRbPM1Dn4 2Fy25iyJxz06OdSfmTVrlibgv6GhYfTo0RlPEuTY+xgW3DMEvzUWAClLhm1t sSYnTpx45swZrhKQiLjUnoiygUBWLMWktLe3jxw5kj69tLT09OnTQU4RyWDH NwqxJKYQBRT8JqZ6ECCf1ad/FDcTBvvgwYO3b98evDCOEClp21CNjY285PSh pJ4I3VlsC+32p3XHltDjEGxZA2luBqT++gsWLDA/HqQas7ZOhaqp5VasQN+e WC3ameakgLTx1VdfjRo1KpEuoJg5K6aSv9vmNOTybonw4mHISc2Twb/xiub9 PAcf9qm6eEpKSiAw1c/C2v7P//zPqqoq9k81Nzdr5pxxx7r14+722VhoDjew rq6Obrh5W1tqhArZwlUCElEeY4ooGwhkxVJ0gmnv27ePPYPV1dWh+MS7urqK i4vFYI8z0AMrKyvxJFJP1AVP0MGUqguZnNH5ACpWQUGBGOxxJm0bCkIbjwxa cvn5+TYvQBBCdxbbCsLnUhBg6HEItoLwYOnSpem0EdTCWZ6UkJaWFltWr/Vj 29+tWIFbpidD1RpzbOWoNDU1uaVUR8TOnTttc6itrXVGpKu5mWE1pWpoaOAv a/Ks5Nhvr78+dg3s60R/zSjcYc1Dkx1Vbt2Hk67tTMHtHbMxQkkNQfR0+tHY 2IjfCE86XsNuDu7giCgbCGTFUnSiTjvc8HVI2tdee82ko4eQEX7zm9/8+7// uyQs+AbiVw20S5n5EpDu7u4XXnhBTmVjS9o21MWLFzkUSh/D6ZXQncVqDEAi twrshB6HoHozCacH7cGDB21tbVApqQAsHtkVFRXBO1sxqj1lGLNBjqc33njD djKvJvclTfakPjgp7xtlLuu7cmcvMCTxvU6cONEaPUeOHIFWZjNdadXZnImW IgqwHkIJ3GVrJWHsz+LUDK8GzqlTp6BRGx6e05H7U089dfz4cdufIMxhxTtv TqZgaz1t1T9wB/DrYy9jG0Lg4G7MmTPn3r17XsdR/RpYBp4OtG1dRRL9LfO8 TsAEEWUDgaxYik7UaUv3LkEwx5YTZx5OIwhBUGPqIL1Pnz4d1sihO4ud9Z/D ctLFgdDjEGyVZpOelsBOt2kLofShZtTVBRPJxNihhE3bwYIaO4pVmtQ1qW9P zBw7dgz3OZ0ujAHFyZMn8/LybIfA6sFRaWmpPl7dhIcPH1ZXV9OAgwYNqqur M7F/OTLHk4FDn+Up6OjgwYOw1p1WOez3oUOHnjlzxnCcqKGmrokAFfK9Ultb axM4Pp4LVMOQR/B6+qHW00hEGUkuoiznyZalaIMSNPhzM1WFXhCyDlWnTfR7 H3bs2BGT43chh+np6eFY5ZEjR7a1tYW46kJ3FtvqP+dYvl7ocQg2xThpyCV+ blhSsFx+85vfaN4WBAi32bNns8H++eef69cYVFBn7Cj+LzsCnL4qAsqtyX0j BSmXznlixc6dO532OKxUrnYY/M6rPVPMTXVL8WR5stZhXMNU19evs4H1iVU6 duzYW7duqS/O7Sc+6ZxsrbtlT4fOo0ePsDZu3rzJPch8rIfm5mY+2MRP4/X0 w+bQtP1MISKiLOfJlqVoQ415S9lHQxAEAk/Jt99+W0x1IW1QTaSamhrKWoLG u3Tp0tAldujO4paWFnVAt8zQbCT0OASKuVWlCu6e5v3c2SqKSDxopB9//DEX HJg8eXJra6vbbwfR989//tP2onry4LaQUmZ6EqTi5lJxwlgBc8xWTpCKKflW aJ1wDCfEV319vfmz0p+1DpPWa4Cr1S+sMD31OBFffOjQoc7w+AySfmudCFKc 3ybZfDwFbA2zoqvmIaLMH5Ah+GppSOQJqD9k0VJUuXv3bmlpaZo/VBiYZMte NsHZjMOwtxrekzOmipA2bEWoCgoKtm7dGjwwNSnhOotVnT+hrbqcjYQeh0AO QR6wvLy8r6/P7c18VhBpLyeIrMOHD9tS6efNm5cyjFNVitwcAYaZntbjhkrZ 22A661BDYtycieZwdZe8vDw8pj3pmf6s9T179kCUeVVob926NXbsWD77okqe cTtgzJS1Tjcn4avVuxqnkfB1uqg+mJKWF4gOEWUm2B5e0RGwXEOWLkVbX1fs /RXubNiwIZ1dX4UcI1v2ckrUiD5i9uzZhk/z+vr6cePGRWRnCbkKTDaorHv3 7q2srCTHOpbfrFmzOjs7wz1fDd1ZrAYQJlKZn1lHuHEIapH/hMHJBqVJJsJO WleBWNu6dSu51zGfiRMnQlGBtXXu3LmUbSnUBPzFixf/8MMPbl8hZaan1e+3 SnMnuwGO2hI9YHdIru7y7LPPOjvHpcSfte4PKrLBeSV0ZBFic8xQyJS1zvaC 150IybZ06VJeTj6SodS+dYmQqiiYI6LMBOzN119/vThi8Az67LPPfKs92bsU 1SOClEDSfv3112mYlZCTZMVeTglGxrObGygkvPRQIFNIIliEIGAVbd++nVfg 22+/HaLCFq6z2GZ+Ys6hlJWOD+HGIdhONlLW+eezgigKFuG3O3jw4LBhw2gy 5eXl3d3dngSXSTlxw0xPCgJMW91dgTK46ecLeBbE1V1GjhzpL5w+nda61Z/C zyfqeNbHMD80U9Y6f+7y5cs9XWjrc+GjObXtwVRbW+vp8oCIKMsZsnQpqkko wCThQhAGOGqvQ/D8889fv37d8Npz584NHTpUn4gqCCacPHmSLbv58+eHFagZ rrNY7TEHqqurTbJFsoVw4xC4NzRhUss6uqR1TKaurm7QoEGkoG7YsMFrILRJ 7KjV/xVMLA6KHY1PUe6cRw2Ec3MmmoBlQEXgy8rKvKaQM+zSTY+1DhlIgcpx a9zGsNUcem1JDUGS1nEzcUtZuPmYtlr8xEc5giCIKMslsnQpQrXgwsIJ78dl gjDQUHsdgnHjxnnyptXW1sbwoF7IUqjfEC3FzZs3h6JShugshoaPZ4q/c62s INw4BLUpjEnJykiT1iHoeDI1NTU+cpbVr/PWW28lNfcMMz3Jz5tjRz0xJ5Q2 61zdZcaMGXfu3PE9GV5LofRcMPm4ESNGnDx5Mm6N2xj+ddLWb90KlrROPctY VHo9XbT1APVU5z84IspyiSxdirdv3y4pKeHPjUnvtvv37+Pp8Mknn2DlQ9RP nTp1zpw59+7dy/S8hIGOzVTHv03aEDMUAeUm7WMOJBIe0K2trTAisCsXLlw4 ceJEWIuZnteARo1WdesA64lwncUQ4xyFgn8cOnQo4PTiRohxCLb2rybJNdEl rauFAbGuurq6fAyiVs3duXNn0vfgK4wcOTKlMdjc3DxkyBDzrtnZCG4ytlvU aWJqvthXX33lNhm1+LDvrEyu7lJZWZlSjED5nDRpUm9vb9K/8lKH0QTTycdk PEGncJ9++il2QfDyelEAIz2UE0JP+E5atxwdr0ySu1XUFKE0O9YtEWW5RZYu RZu17nXaEWHrNhtcaRSE4HCdHN/WB8XPZGnbjp6eHogm28bM0u+SS3BIJPjL X/4ScLQQncXqfvHX3JBaSNDp0KZNmzo7O1OWNUszYcUh2KpWGgYh4HlN76ek 9YcPH7a3t+NG4XZhtCtXrvg+84d1Nm7cOBq8oqLC38P397//PY2gKeNjkul5 8+ZNGIzr1683+Tr379/H5/7hD3/Qu66+/fZbGIae7g8G5NUIoKWY1Nkzp7Gx MZFe3OwO68fHUDYh8MMPP2CNpTyn5SVtUn8Vb/71r3+tCUllTdVHSSgf0Md9 /PHHY8aMwe8S9cd5RfXueXWx9fX1tba2kiOsqanJU8FP3tEUhYtNhHVCQ+Eu 3bhxQ3OtaiLBXD179qz552J5bNmyhS9P+pWxciAoTpw4gW+3d+9eTCmlELhz 5w4E+J/+9KeUbm4RZblE1EtR5cGDB9gauMN6GYjVi2eu/ieweVJiUv8Hc8bM sbDnzp2b9HkhCGkG+mplZSXvFJjqUFc8SUjaa9GVbk4D+ApQYyAlqDhqeoIS BT3qowcP9+CjheIs5rpSiX5THU8rT4F/eAQcOHBg1KhRgwYNwq758MMPa2pq 8GCtrq7GyMeOHaPK5JkNJgwxDkEthWGeXKMmrcNOHz9+fFFR0cqVK3G7ysrK cNtxu/xNSY38XLRokT9Fjqen8YemzPSkUGqouCaFgDgkQJ8agEWel5cHxdvQ PQGLBvN8uh88BWCrbtu2bf78+RgE99xf4IETfNMvv/wy6vamDD7Lbfvo26xT jfSUNiwtadqwKb97yihida+lQU0la72goCCeaWv+7gZ2EH4OSFTIVZISkydP xnc8evQofiMIWEgwzWJWk9b3798P+Tx8+HDI4Q0bNmBH4HZh5HfffdctDkFt PuVVC7p69Sp7CtxaiuAbJX6MvgwXZ2mZpBGJKMslol6KKux61hyNnj9/nmr7 6G1/OtKMm7VOBKloIQghopoeCb+OwoaGBlyYzpowEREkHE4InXCt9VCcxVxX yp+pjkX15ptv4tri4mL13PvOnTszZsz45S9/CW0zka56UxrCikOAtsymsbmp TgYOXTVhwgRoztCf2azmfGHzdhUqqrUODcGfj56jPtxU3JQ2GvlnR4wYYZhw ZJJXq/olU+oVuJ9NTU1QZbGMV69ebdPNcGOrqqoM1e8sQl3YTgOkpaUFkkGf dEMFMA1NdetxoLvmBEDVVNOQsMmu/Hh2b+HQF0PPIL4CHhPYhrZykXh93759 +K05B0dzb7HIx4wZk+j3L2OXwbhrb2/nm8M6EsROUmmvLipPolutvanJPYRa hTGx67kSl14g83xMHnMiynKJqJciY1hYhpWulBn0avxVrIziIBUtBCEsWO9l 3J5HGjjhPYZhdV7x3cNFiIIQrfVQnMU9PT2sLz399NO7du3y5JmFtkCXJ40G V61I89ZFV65cmTZtGp6YUG7r6+vDCvkLHoeAmeD+sFcdXxx3z/BazuRNuNj4 nF7no79MKNa6en+Sun70mZ7UPw7TME84MjlIZEsnZQY0hPzGjRvxFfADYdnY bgIWZ1lZWUpNLBtRfzhbn3Fy+elTuelh56mtJPZOyhB3Wxh2pJC1jikdP348 6s/yARe1Nmk+xQ1nk3oZ1EKg+nKCqkcyac1A3Cu8AYMkbXmjmpaeVPq2tjaS kCZeErURtl4gc1lvk7oEIspyifQsRcussAyvWJNinhTXRDOPVcC5uPCEjMNS Loipzgm8ORA6LhEvcSNEaz2gs5jC17k9N7SX9vZ2TyOwgwbPRDwZnW9Ql5/h 9NTmO/RMbGho8DQrNwLGIUDNrqqqItmC/y5dutRT32ROWnc75OeGL5riXW6E Yq2rlcqS9sCCAHG7b2RiYA5O3VKDyUHiqVOnKJFHf1v4kNZNMdu5cyd9Vnoy qdMJ28VOK+DMmTPQbzU2LD3soPz/+c9/NgnIx72tqamB0EipNnMlZ6rSENq3 TQZZ677L60WNp1vBWTZz585Napaypq0XYrwq3Kpq8OPDLYAQIos+yM2id6IW PzFRvQw95lyd1XAmIspyjDQsRUs55NHsU08xHqpzP1Z2sbjwhMxiK/2U8BVW evbs2eLiYro8ntVlPSERL3EjRGtd7SKa8HIaAzv99OnT5eXlbBH7yJhW67e4 NThWrXXDTD1swCFDhiQUYLwH701vOwTw9Ojs6+v74IMP8vLy6FqYKp999plX izhlp3WOlPBaSMcKyVoHdXV1tKIwmvNIwS3TE0Jyw4YNzzzzzP79+80/2vAg kVVTfZAzJS4l+t2ISVcLb5ZZs2Z5OmaJP6x62VY1FFTsazejz1KcdD4YN26c 3jRmtdbEoRwQcorFynulwms4Zegsp9lqOoawta5J9DbZXJw+4PYDYdlwKSqT FmZqsSDDUA22j/QCGXZufn4+3oblanggI6Isl0jDUrQMntGWcvJmGCtIhQoT /VpWc3OzyTSiRlx4QsZRSz+R/PekJFBBj0GDBvEItqjCbEQiXuJGWNb6N998 8+KLL/JQJp2S8Iy7ePHi1q1bi4qK+ELY7N3d3T7sO7YQnYWtGE8H0bZhPX01 PfjiUN44LjRh1vW4t7cXPxaeayxVYLBv377dh4LESesab4ha191rRZqwrHU1 jcgWrk+uf5tBhA/6+uuvx48fX1xc3NHR4emzvGZ6apKSsKqp7I+mfBM1LNDU aste2ORRFciUibe26i5eSekmZp1w8ODBUTfAImsuVnWcGE7hT+kJVaPcFy9e 7NY3lmOENKcTnLSuEbwcn68RsF1dXZSek7KlDmdUYSmuXLnS0M1h8l3o0Cnh 0d4RUZZjRL0UvSatm58N4sei31SfO4+fHsrY/Pnz//nPfxqO7A9x4QmZBZKN nV8J455K9+7du3DhArQa7G7VTtc/wrIIiXiJG/6sdTzrYWVD66DmywUFBU79 GS9q+jVDb1ffjEcelAc8IPxZdrhq7dq1NJTG982HReZJ67Y+5oRXPRy6Gaxj +uKFhYW2rQ3wCl53u1dQdNVzP1BUVNTU1OTbkWGSEKcmtmfKWrf6tdyPP/6Y ZCn+u2HDBig/GNCW6Ym3ffXVV/il8PtCb/ER/BBWpqe6FAfmmWRfXx/FyXAo OBVY0CTeqiGa/jB5oJgUWA4FPOZiq3n29vZOmjQJNwEaMvRkzTu5coUm3JfP QAyT1jU7gt+jV3WoAiFJA8hAZxURWEN4neQP3rN7927DSiOGSesHDx6keXp1 JYsoyzGiW4pWBEnrtsHJw465Yamrs8KPDjVsyZIl0EnwnjTk3ooLT8ggly9f Hj16dBDdw4m5fRFbJOIlhviz1vGYmD17dsAlDXP+xRdfhNICcR2w0wEfzya0 YWPm1VNVqBkoHl54NG/btg12t9fVe/z4caeF7gky5+fPn9/Y2Eg6nqcJ2LB1 Wk/6Hg6x8+GLDNFaJ2AA7tixg2MwoPmMGDECj/gFCxYsXLjwZz/7GTUVWrZs me+GWZ4yPTV6heFSzG1YGywrK8MPhI2jz9ewFaj0gYkBfubMGQpgfuutt9w8 xcGh75LxlhNu8BpOWa+ed4TGXuBoJX0rK5MSfxyYnbIr1pUrVzhtCjJh8+bN VMQAYpk6dSb67ZeqqipP0YwmkVeQvWTkQhpfvXrVfHBGRFkuEdFStDwmrfvo 7PzgwYM9e/ZQmSAswqlTp65YsQKfRZ4XSO/Dhw+bB0tgVeNbr1u3DoM0NTWl 7EynYhMOkJ/47jQUtJ0bN26YDwWBhh26f//+1atX43IMgqGy3W4SIiW4cm4D o/3pT3/yNIf79+9jF/zhD3/Q7zis5N7eXnN1mqKe8LjBXti0aVNnZ6f5aSGH w5HfAR8KWcdDtbe3e4qkgn3X0dFRW1u7oh+Mg9Fi2C4n5oTbwS1T8PGsJrzT 0A2kh1TxbD9rMkmI45MNH3m+oVvrDO4/ZE5LSwuUzJEjR8LiwHMZ6sHFixeD xGGGmOnJS3GAVEh2Az/HiRMnsNLwA0GRi4PKxMUifCi35pBTLLan62TKpZSB 6o7Q9I01iVYy2VxqYLa+0TkBrQMKw+uvv24LOsL3goH5/vvve1LyCT6fdDNg 1Sqm5uXZ3RBRlhtEsRStaJLWk04e8mrv3r2kRUMPx5ieispCN6iuroaFMmrU qJUrV3744YeTJ0+GyX/06FHsl5qaGizvrq4ut8vV5Qor+8CBA8OHD584ceKG DRswmZKSEoz87rvvpkwfwJbBascccENwOWZSV1e3bNmyoqKivLw8fEExDYR4 Qo1yUopZPK+xkjUZSSpUshvbAdsHwgG7kg4PqSsuPgV7BIJF86BRI166u7ur qqry8/Pnz5+/bdu2BQsWYNjx48eb1LO6du0ayQdMHpfX9lNZWQlpWVFRMRA6 foZIbljrJn4ZH0nrTijHMJ4ZqYaYlNpTfZ0+HJHRWetEyvbEXmEvkiYu1DDT 09xFKKSf+vr6hJdKzj6A0piIa6oX7+uU9erVshUmZ3qazcix95p6lb7duJAt GP92P5hzEDtX/1048RxqxsGDB8OSaSLKcoYQl6KatK5RNnwkrYcIvi/mhmWG ScK4ZoMar+/btw9rhlMIP/roI7dB2IUH0wDrFiZAe3s7by4+H9NX0Yc1QaFc kydPtlU9gtnS0NAQ2yoiguC1zEhKXyGMlDfffBPvLC4uVh+4d+7cmTFjxi9/ +UtY8firPvyPI17w5mHDhtlysqgon77wBQTCBx98ADsd73TW18K3xm4dOIVJ QyE3rHWO/dP4ZZIeRMN0vXfvnvkHwcyHEuu1RnqsYE1AIxw4ZdXwKM9G1NY6 uS99TMwN35meUAagoanxRW4V0YU4wB2HNWXTgoClvnTp0kT0qfH+4FyA2tpa /Tu5QrvmTC9p2izuAJa9qlrzUJq6/dRsXW9jRoo+aR1fZ9WqVfiaeXl5ra2t IQo0EWWCE99J687dFxHUWBB6eNK+fmqBSsOKFon+pgMwKGxvIMmgOV89evQo KRvkN1T/xNs2tsenghBWmRHi5s2bVNMyaa08VTM3DIfDHt+3b59tg3MPU7cq YXiRarHi47BDndOgQpexLe8TT3LMWtc4gpMeRENr9dR/GbdrwoQJ8WyjbAhb 65qzNa7H5S/ELmprHb8CNnuIBXB4/Whmm7Q9McwfWH+qwGlsbAxy64RI4XJ2 mpZkQSA/cjwbT3PRMJOcazaxNWUrkkYrXbt2rbi4WI3o46HcdgSHApJSHV1J AQ2ayCtWPCBz3LqN+EZEmeCEk9Y13gfD3RcR3PHKrSMn2yD6UEZ24bkV4uav mTQfh6eRtDs2t5lIZCj8QBBS4qnMiCqxnai5Wm1tbc43qGa4SQ+XpGdxBNlT SVWdlCljfJQXJM55AJIb1jqXTXNrhab2N2dHBtmt5oGXpO5G5JVLG9zCyc1a v3HjxoQJExKpOrxoiNpad2tP7A9VgrmtH3yFLVu2OL8RJK3tRJTlqskMMc4f //jH7du3S1Zd2uAe4in9yz6gXz8NLd19wHEFWMkp1xs3edQc5nOjbdWmwAMF t1d1CPJQbjuCxYVh65wocEta5yDbefPmRfGbiigTnHDSuubONzc3m+y+KGAR qjnzZGtdc+BgUmOBz/qcQpXbC0J6JFVUWOJhnprceUHIFCGWGVEFO+yUpG8z SYO1zNz9fMhgMxvV/j6YbdI4H/YGrlq1KquNqTSTG9Y6i+WkB7DU65kebary iQcNHgTm7hI6uI4u4zVtNDU14W4kPdfivaY5VUtJpNY6nbGEeFTOB4kaFZfP 8BNKFh6FA9mMPg5dSJnsSfl90Ifr6urC+i5CSnDbYVOQ+ue77LYb5I70FK6T Nujxav6t6ZHqFicAsxrGtW3XuJ1nbty4MeHiF8Ammjt3ruYcPj04I68wMQjA vLy8YcOGHThwwLyarjkiygQnfLqlsdZhnFKqmsnuCxc1yl3zWSY59bxcNS42 9o/bjg1ZbiS0ATk3btw4duyYpxr1gpA2vCata8qMsNadn5/vZtQYFu/iiBfN 5mUhYHvQtLW10fNFc84PE/7LL7/EX6N4quYwuWGts43p1EWxHqB0DRkyhFqT qKfBUE6goqQsN8rg/Zpm7lnE3bt3y8rKcDfq6+vV10npwl4bNGgQ9C7fVnak 1rqtPXFw1NS5pNW3Tp8+PWLECJJy6k2DSCwpKXE6F1heaarrYBWtXr0an4vF KSIrzfD6N/Eym8NP1Ri2uyJ32BNPPNHQ0GB4CbuunEEIGA03EDuCjkCxkul1 yN5x48YdP3486VBY7bY/4amNwSkfPMTcba/YktaxN7ErYaTjqbF169boBL6I MsEJJ60nXJzX2H3PP/+8+e4LF65po8klN+y/Y+LC4/fYlH+udOGjw6wgxISw ktY5zS3hnktuhdfDxS2Ii/PZExH3yR2YcLQb+N3vfpfp6fiHcyWWL1/OBvjl y5exqKg0ItRUPDtYY+zs7MTzzlxTgsJZVFR08ODBqL5AesHvjr2Pxy70N3oF N3DdunWw0/WtsQ0H50UVurUOrT7cGsV8kEjaBcwHXj/kX8MN2bVrV3d3Nxkv FGVE6y1pJA8fesAGaWpqUjVY6piD+4w/QZ3u6OgI61sInsDGxw+EHxT7Oqwx Y5u0jiWKhYql67UEK5d+ZSmBHYElXVBQsGHDhuvXr9OhB515UtV0t4/Yv38/ hoKVwSnzN2/erKqqwo4z7AUTHexxwG+HXUntabCFo07WFlEmOOG0Pn6Asu5N jZmwH73uvhDhCFiT/jv65W3rtJ6UpI0JuJin3swRhJjjKWlds9QNm6pwxIvm PbZO60nf49YyRvXTZXuf6xjCcjVh1ug2zuA5RfYm9AdY6KNGjfrJT37CrQfw pNu9e3deP1iNQ4YMqa+vNzQkSZ+prq5OQ7XVtAE7pby8HEodbhRuCFQy3JPN mzcH9yVRnyyb+yYsosv0fOedd6ZNm0aePqwf3BOsH7zCBl17e3tRUREWWGFh IQwWZxFaFVyljgZwFfWzwCfC/BE/VAbhJC+3Kkk+gMmJHRTDdld43Ofn5/s7 moAVBtOVpATWMJlm3GWpp6enoqKC/jpixAioE27J3Xg/rsJQtH1oL+CqPXv2 hHX/fUPRtvhqU6dObWxs9Ncg2wciygQnnLS+cOHCqqoqus/4BZ2779KlSy+8 8ILJ7gsLdY0lzTokwnLhqTHAqnbKTSH1Zo4gxJkQk9Z5x2mcBSFGvKj+ODUo jguTSrH3KFDr8TojFbMRrElomK2trZ2dnc6nCf0Va9W8rjuUSTwRMlgBKTqw 92/fvo27cfjwYZgYoShdfX195eXltKKg1F2+fDn4mAzl9IUYaew8SLx37x5W DtbPiRMnnGm2Dx8+hO6Kv0JTMrld0FVoNICFh1Unmm1MoCM4PLnCSralTutx CwDDCoeGHyQrHFICVjlEBAQFxIVNYeC/njt3LuVhJhY/5IzbUAMKEWWCE05a h1yi0u647RcuXMA9T7pleEOZ7L7guPnUbJgkrbPFPWTIELfQGjePoVrsXVx4 QpbCy1sT4m6YtJ40BMWGYdI6W9yasFi3ABtOZpeIl4hQ6wVBFEP1yvSM4sXx 48dffPHFlD2PBKtfA1yxYgWtpUGDBv35z3/OlqR1ES8DEBJ9vnsf2CAdVfNI TT+0H4NUjBQiQkSZ4MSk03oG4QrtCfea0oaN4Hko6JxurhNOTreZMxxwK0nr QvbiO2n90aNHvb296mEpm8+aAGnue6JGvHz//ff37t1T38ZD7dy5M+k4anK6 rcBjTU0NvR43n0Uu0dXVVVxczP5QrCJR7QSvcCJqor/C865du0J3vvT09KxZ sybEEq8mqXNCDkOiT82n9s26detKS0vj07uNemE8+eSTGzduzKUUntxARJng hJPW49lXgk1sjZls2Aieh3KLllfDPm1GAZ9paJySghBz2C7WeLGTdlo/c+bM mDFj1FBzHkpjJieNeKmtrbWJGh7K7SQZn56fn59093EWj1tHEiEUuMgY3e3J kye3trY6w+cEwca9e/dOnjyJ7UnVg2GtT5s2rbu7O/4HPoZ5Q0JuA91v3Lhx wVNdsJyiLvFkDnZfXV3dU089Jab6QEBEWW7A6m4M+0pYSqC+xkxuaWkxaQTP Q7lZ6+xAd0rmv//971OmTDG31ru6upYsWSJ93IT44FZWXUVtoa5a9DCobe54 PuVzGwr23dSpU21RMdSj0yZqeKik1jo3cEwasEfJgIbWOnWEkaeVbyDQmpqa XnnlFW7JKmf1ghvHjx/n4x1QVFS0efNmwyzIOMCZnnJEP8DBSqioqJg9e3YM /Vn+6OjoGDZs2O7du7NlMwpBEFGWA6hJ6yGmSIQLFOyEezErNa0yZSP4jRs3 2pyGDLdTdyu4wR7AlNo+HcamoVq+IJjDEltj21JPFnoP99CkQHRbW9Vr167R aElrP1KUHZ2hqQ+ICxculJSU2JqzX758efTo0QmXnD7u6Tlz5kxnYdIbN25M mDAhYZCNRab64MGDYyvosot79+7d7seW1yAIBHbc3bt3aZG4lYeNM5LpKTBY zFgD8Q8IMcSZjybkMCLKcoCYJ60TFy9epPZ/NnvB6m8EX1ZWZt4InoZyFjcm TZ56ELhlx0PxoAZ2mrLzjx49gi0P8+T111+XTSHECpbYoLS01Fm64fTp0yNG jOCOXdxcCcY1TGwY2uqbobesX78eb4PNju2m/gm7AKb6kCFDCgoK8Ibhw4fz tdhl1P8x6VDOP9HBF/40e/Zstx4i3Cnbbeda/ScV8+bNw+5ubW3NGY1LEITo 4ExPTelaQRCEmCOiLAfgGFRNc7Q4QC4/qP0wKOgVaPVNTU0wB7w2gt+/fz+G UsuGcPWb8ePHu9WKJ8h2wDtrampstgNsn8bGRhg1MFLq6uokFUiIGyyxKZYG hjObxvgH7Othw4bt2rWru7ubDsfWrl0Lw5Ya2axatcqZnE5/olhoHury5csQ JsXFxdhKbEfT4VhnZ+dPf/rTpK7tvr4+asy6fft2is3Dfw8cOIApDRo06N13 39U0XeWjNky7ra1NNcbxp6+//nrJkiWYw7Rp065cuRLsFgqCMFCgBBxoC5Aq mZ6LIAiCT0SU5QDUhgmKLvTqTM8lBR0dHbCmqdW7sxF8T08PafspG8Hj/bgK Q8EKKOwH/8BVe/bs0VgEDFVbwrKny4v7wWTw0RMnTty3b59EvwsxRE1af+ed d2C6UiQJVu+YMWN+8pOf4JWLFy/Sm7FBioqKaIUXFBRUV1e7+bWx2qn4GA2F fYSh8Aq9Hxb37t278/rBpwwZMqS+vt7Ntc11zPCJGAr/xb9nz57Ns9JAmxoC Ad+OLqfJ0HdcunQpBhGXuiAI5vT29m7btu3zzz8X0SEIQvYioiwHgLINdfrA gQNZ4QvGSoNVfvjw4aSN4PmvJo3guWt80qFSgvG/+eYbXE5d6a9fvx7nyARB 4KT1oUOHUmn3e/fudXZ2YgGfOHHCWcYBKxwWLv5qUhUKi7+jowNvxoDOjUB/ xTZxa5uoAomkGSol+FJ0OY2A7yWPJ0EQBEEQBEEQBCG2SJkRQRAEQRAEQRAE QYgbnLQu/bYEQRAEQRAEQRAEIQ6oSevSbVwQBEEQBEEQBEEQ4gAnrautzwVB EARBEARBEARByCCStC4IgiAIgiAIgiAIcYOT1tetW5fpuQiCIAiCIAiCIAiC 8F8sX74cpvrTTz/d1taW6bkIgiAIgiAIgiAIgvBf9Pb2btu27fPPP5fm44Ig CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg CEIG+f8BLvYLTg== "], {{0, 101}, {1338, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{462.3333333333273, Automatic}, ImageSizeRaw->{1338, 101}, PlotRange->{{0, 1338}, {0, 101}}]], "Input",ExpressionUUID-> "68612ce4-7d31-4820-aaef-c83a58068a13"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW1sFOe1x5d7v9wvia5AQkqlilwk5KLKoi6x7IDc4L5Ab6BgchNRVGqw wZeSOnYKBifQqLERFINBCApEEaIBkxiF4hIpEEHtOpAA4i1AISZyahsMxHYC NI4TQgCz9399xNGTmZ1nn5nZl9n1+UlYiz0zOzs7c85z3v+ruPyp//23UCi0 6D/w46miyvyFC4te/J//xH+eKVu0YH5Zybz/LqsomV+yMLf43/HLZ/HvMWz/ /6/DgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIQjK4ffv2hg0b ysvL8SLZ5yJEoK2t7amnnjp58uT9+/eTfS6CIAiJ4IsvvnjuueeeeeaZ7u7u ZJ9LXIA8x2fs7+/XbHPnzp0gi32cW1NT05gxY/bs2RPk8xQEQYgJN27cKCkp mTZtmrli6u3tff/995u/zYkTJ27duuX5NL788kscIVbH/Oabb44fP15dXT1p 0qShQ4eGHpCRkVFWVnb06FGLnmppaZk8efJHH32kPyz2wjbNNjo7Oz3rCxzz 0qVLJsck9TRq1KjXX39d1JMgCGkMNMKzzz6bk5MD4Wy4y71795YuXRqKxLp1 67ydxs2bN2G12Q/40EMPQUq7OtTly5ehkkaMGEG7FxQUbNiwobGxkQR+Q0PD /Pnzoa0KCwsh/GmX1tbWiRMnPv30059//rn+4OfPnx89erT9PMeNGwf94u2z 7927F+dpP+bcuXPx7Vg2hkqCYho+fLioJ0EQ0pW7d++uWrUKgvHAgQOudsRS H9rk+vXr586dg1575JFHSJxCzX399dduTwPKrra2dtasWXQQqJXdu3d/+umn OH5fX5/5cbBLZWUlyfns7GxIb9h3TluSRj516tTVq1dhM2KXF198EWcS9V1g x+HEcIQ1a9bgvaAmSAkeO3bM/FQZqEUo5fz8fPrsxcXFH3/8MY6Py4tvx+kE SktLcZVgunp4R0EQhIDT1NQEtQIjyEkMRgWCdOzYsWvXrh0zZgxE6+TJkyFU 3R4EMvZ3v/vd6tWrST7j9TfffOPqCNCVUGcZGRnktYNWiprRgQ1WrlyJjbOy suh933rrLVdvit1//etfP//887T7rl27XO0eHtAyCxcurKurmzBhAo6A7wK6 0mRHaDQoVlduWEEQhJSgp6dn6tSp0ClRgywaDh48iCNAuUyaNAnS1cPRYIDM mzfvgw8+gCFDQn779u2ujvDll1+yj3H69OltbW2GO6qOxFGjRsEGNH/TL774 Aopp+fLl0Cx0hOrqalenDerr62tqag4fPky23k9/+lNcDZMd79+//+qrr2IX KHQTW08QBCElYOEGk8dP2GLdunUQ0eQiIxHtytEEew3CGWbO1atX3doOBCVy 0FvjBf7r6vz3799P+5oEm1QuXbo0btw4qOZjx46RZpk/f76rtI2Wlpa5c+fC 8HnllVc8GIyffPIJdNno0aNdqVRBEIQg09HRMX78eEi2CxcueD4I2w7QbitX riQBu3PnTvMjvPvuuxDIMHxYwpvbDuEBmwsnwKEue+ZAVK5du0Y60TDYxJDB CCORvJo4AizH69evG+6OU8UHx8f/+uuvvRmMuOZYV2Cvl156SUwnQRDSg61b t0KslZWV+am0JbEMKY3Xu3btIgH7hz/8wdAQg8kAw6G1tRWvPdgOlGFIe+Xn 58Py8vARYOnA3vEQLaJgE7TzzZs3J0+ejCNkZmZevHjRZF/KtautrYVOYeXo 1mAEWFdgdZGTk9Pe3u5qR0EQhADy+eefP/30025tHDtsO+A1Gz7z5s376quv ou5L3rz6+nq89mA7QLxzoMdDnqF6HChTz8Em7K6e/KFDh0x2b2lpwVUi89Cb wUiwYsVKw9WOgiAIAQTrc6zSzdf5TrDtEH4QfzGXsU1NTTCRKEDjwXaAKuE6 I7eBHgvV1dVu0wtVgzE8EHQzV6ww90pLSzkq5y3YxNDu/C0IgiCkLiTQ3Eb/ Lai2Q1ixxUxUXldX1+zZs8mbF3ZvO1CBD4l0qLPjx497/hRk9XgONtF/33rr LUN/Jpl7nFznOdjE0KXzGTcUBEFIOiwP3QpkCxbbAWt+rPxJzPIvI3L37t0V K1bs3buXf+PWdoAy4mrfOXPmeEiBUIGiNM9hIFSDMfzADjWxX8ibxzaan2AT weaq2+IsQRCEQAHDBOYJpBk0gp/jWGyHsOLa0h/5wIEDFRUVnIPh1naAPn3p pZdCD/AZMvOAxWAMKwoCigbqxmnH3t7ekpKSkydP8m/8BJsINlc9VFcJgiAE h4sXL2ZmZvpfaVtsh/CAtiJ9obHIrl69OmvWrI6ODv6NW9uBtw95KvX1j8Vg DD/QViFtAS8VlK1fv151+vkMNoUVze4z6CYIgpBc3n//fZKHfrqx2W2H8EB+ AoSzxrV19+7dZcuWqd68sHvb4dChQ2w0JSUHwG4wQhFDHev9mbg4RUVFasaF /2ATAYsp5LK6SkgAnZ2dWHIkfu2UGDZt2lRfX++515kg2Nm5c6d+hW+C3XYI KxaNU1NuaCXoJsv97NZ2gBhn3WReSxVD7AZjWPkUETuxQyVBMVkuuP9gE5+P 5poLSeHo0aNYwKxatSpdpXdLS0tOTs7SpUt9RnsFgSHdFJM2epYjfPXVV/Pm zXMSth0dHbNmzbJUyKoZFIa2A5kJwQk2EWzN2TUstly/fv2rr75q2YUzKDwH m4iYfKFCDHn33XdHjBgRNLmN26+rq+udd95Zs2YNlCYMH9yB3jzJBKknb/1Y BMFOTERZRNuB6lhJRFuCWbdv366oqLBXyHqwHVTdZFjreubMGRrnROTm5k4c ID8/n8cOGpY4RTQYw0oUz56Zf/LkyZKSEvu0Dv/BJkJ0U6AgxRQoiQ3bDXds Xl4ejTOrra3dtWsXTTHDTevHNRfAD5tE7t27t3v37rNnzyb7RFIV/6LMyXYI Kw43i2sL97/dmxf2ZDuouskwZIYHh6f0NjQ0FBUV8RFwHbZt24bfnz9/3sQ9 GNFgDCvZjxbfGn5fWFhod596MBidEN0UHMiU8NxBKx50dnbOnDkTdwh+qjlI 4YEFFVZo+JPdxLt161ZNTU3UeaPUfQsqL429l+Z89tlnP//5z6WawzP+RZmT 7RBWXFvqkMHW1tbZs2d3dXXZt/dgO9D5u9JNFjgbxINXMKLBGFb8meqQQayj Vq9eXVdXZ9d6sQo2hQeZbsIl/cc//vH73/8exi9/iRkZGb/85S9xHbq7u33G H7E7rGx8lQsXLrx8+bKrfWnkCr7QpqYmP+cQQ44cOUKD1V5++eWIaZw0wQ0b WDJIaWaoSUia2lritqf+Y4MZ84smRISasvppWORkOwD80jJkEE8E9E7Ep9Wb 7cB5fZ7jTawQ/bTRs/+VDTpuGwslWFpaGtHdEatgE7+vvrQqPcAdO336dFoA 5OXlkWOWR0PS72EUW6wDV0DA8t01Y8YMp7nJdmiENNkgAbEgsFCkaZsanxt+ P2fOHGxjaS2ydetW8yRYshZBVDsrvYE48tlsZ5DjP4fcyXYA169fpyGDMKxg XpHJv2LFiohPqzfbASqPBFTIU2sLVSH6bKNngQ06XJ/wQJd1WItOT2usgk3h wZFDjhtpz549I0aMyM7OfvPNN1UTAH+CMqqoqGCdMnTo0Ndee82DgiCfDGs6 V5cUTxNOb/z48X40YwyhIThkUOtVhj3FlB4x8wbCPAxuMAeeqJDEZ7OdQY7P 2lu97cCdsUn34aFw8uaFfdgONOCDdvzkk09cnb9auuuzjZ4FVvq4AlhvYxUd 0ZsXjmmwiS94GtfeclADos9pdiS22b9/v5rx4iECwqO4iCVLlhguG3iAsj0b Myncvn170aJFvFLS3+Tsh+cJAo2NjU888YQrJUuTLvEdWaoXBw8SbPKPz55F 5LXTdMzjIYNbtmwpLy/X+N492w74CGw6uZUG0CC8wHY1swnvAo2scXSoQwax tnfy5oVjGmzinkVkrKUlJ0+eNEkGYxXG/j3819W9wX45UFxcbL5eIpM5OCkQ dMVCZl5rXqySnYhlVWFhoSX8ZAKtGKdOndrT0+Pj3FMVPMgQjBJs8oPPXq97 9uzRx6p4yODw4cNramqc1q4+bQdKXsW++InXhnup4wjdBpvI0aGp9uUhg5CK 48eP1zhSYhhsYoWYrgs2EpWGvjLamA0fDwPr+/v7IZ/xpeCF4S5kMuDt1q5d GwSjiRZRdAVMYkYcIybdVF9fj4/jQcm2t7fn5OQEx3hMMBJsiglksLiNtoDz 58/j9oNU/+CDD5y24VyFadOmdXd3O23GtoOa2OYKDvXi59tvvx1VmEDgQDGN HDmSlJqrj3/79m2yB5csWeKkbVnpR12xs8GoZjN6g8zANE7Sa2xsxAc0j33Q 9qyeEjCwnuyF4IwpYVPa0Jpm3TRu3Lh9+/bl5uZ6y7jjJswePO2pDq20Jdjk H1q3GxoOEMvQHXgAqViP7nmYTtXV1QcPHrRrH1rJRzRnsDEVGUE4U8oESfLy 8vKGhgbzIiMG5tuUKVPoODNnznzvvffsvkEqh9+wYQNUGLbp7OykXCyTG+nS pUvQeitWrMjLy+OzxUGgenAN7UqK9Jfd+4QtsT0+II4G7caXEdoZJwZxevjw YW8rLlJz/geFBBOKL2M5gZsNV88ka06NJ4bi38qJM3OCE+9To2b6aTUE5y9B JmRlZS1atIhnBLiFh9fs2bPH2xFSFAk2xQrum22Sg41b/bHHHhsyZMgPf/jD SQ94/PHH8ZuHH37YvsSCkJw7d+7q1avtonvLli20149+9CM+1I9//ONhw4YN GaCoqMitjMVz9Je//AUHpCNA7Ofn50NWr1q1atmyZU8++eSjjz6K3//iF7+A CqBTws/a2lqTGwm6Bvvi9HCSdLY/+9nP+ID2JC68Bc7EbsJcuXIFZ4W9vve9 701SwCWl08Y1wb6uPnhY+R7TdSY7u0mJ8ePHRzUP1Q665vLZM2ymJb59lhNs BxkuPlk3RfV1RIU1dboulpyQYFMMIUdE2txCMI5gEMH4wgK7oKCAKl8go9at W4f1Np6+tHSAX7hwYfTo0Tk5Oe3t7ck+l7hgSZwz9NGpnUNCvueUaWAvVqB8 qjxNzPCsWDfpffUmcKjLZyvplEOCTTHk6tWrWMkHx0kuuAVyYO3atSGDJOHU hU0AxsR1pnYOCcVz6iJnQSRlVosTbE2b66apU6eGfER+VXiIW/yWBEFDgk2x hcvlEhAsFuIBCcZArdhjjhrWN7ebEqabuB4haAn8XAAY1Z/Z1dVVXFzM18rP TDeCrTaulkp7JNgUc3p6erBe8pBnKyQdXlp4qENJLbhYAEycOLGtrS3qLm59 enfv3r158ybMB7cNOtatWxerkBa+RChinAPOxH/LI64F1piZ+H1dXV1mZiY+ BV7QB+GoWXd3N5TL+fPn3b41W20pPVDM1S1x6tSpnJwcp7IaOpTP3i8pDT57 S0tLQ0PDKgU8lU519AQ9+H4yc4Sk0Nraisdh+vTpPsujUgIsog4fPnzixAmT RDhXuRA44ObNm6kSITTQ7AiC2jDdjrv7+mlNCS5fvgxlqna0wOtly5YZfrNO cxmgFyZPngyzDgdXY8r9/f3Xrl3buHEjTruwsBBCA2qRdRmVSFDFBH7jtsYk /O1BOXHNQokT+Pax3uOvw+SW0ASbPvroI+ocZZLGk2bgTjt69GhRURGnJavg Cp85c0azOxXCSw/h1IIqiMXgjYglh1yTKIJlW0lJyZQpU06ePInn6MqVK5QT aNisld/IcwE1JB7kXsQnNzRQtWcyngz3wNixY48fP27/E+4THB9CgJJXYXXi VPFfHHn58uUdHR2qxQ1dhqUONdHNysrCa89Wj9OgnOCD7xFGn6tbgoJNEUvy WeMT/jtnpgq4FKdPn+bqHqyCampqjh07hst7/QEml4IEnfQQThWoM8/w4cPd NuQZJBjW3kIvlJaWLliwgHMYeMH/yCOPmCgFbu7hLbBCmjGiVlLXlvqeJ9Q3 T+/3gFCFjIXh2dzcjJUqlvdOtw2kMfQRNsNP87YYdiIOygk+JAnV4kSTW0IT bLJk8qR3N2YGzwJMdXoGhw0btmXLFj+p4Nj3t7/97bRp03APx/AkhZiDh2Xf vn2jRo1KmGK6n1h8ni1EdFlZGUsDjWlp78yjNtEyyW2AOKKNPSRoqb2zqMCN aui43o0/gt5ti+U9pB9+unr3eINrjls05KnzTBLZuXOnpSMilX7rbwlNsEn9 lkMBKzSIE+qKC5/36NGj/o+Jywi7FeopIM0qBTsQ3U1NTRkZGVBMfpa1hkDO //GPf3TyOMUcvFFlZaXP1grc45RwShShFEdLtayaE2iS2seJEG6T9NSOstnZ 2Tt27Ojq6uLzpHhQbW0tfxCn9nQmRlNS4Kq0FEqHoJoaSzsLk1tCX9nU3d0N oUpHSKGr4Q1VF7tqcxoV3OHbtm1bvHhx0G51gejo6Jg1axbEb2Ispt7e3hkz ZsRXIX0bn8tsdTBESDtLaOvWrfaeb7zaDxkEStSIv9uOEHv37n3ooYegi/G4 aZ41CgCFnNvTXbhwwSnSlFy4mNdnlkgiwS2Bq225/aLeEppgk3oQ2O+hdPfp qSuu0CDIHxaSC6yY9vb25oTQ0tLi02g6cOAAR5o0vXdoMWzvGc4NeHGQqGU+ 6pwyV7qJ1ueGq0peddvb01FLirKysgCuJNUmSP4Lpgy5cuXK3//+d1woGPtV VVUFBQV1dXWG+3q+JWjekL6yiX3Fwem4GA/Up2/QzkkRBDsk8+nR0Ofrnjp1 KiMjwzI2S/Xe2NfPdjiB3JX4vT9QlYZHGA+y4S5Q2WPGjLHrIKwZxo0b56EH YwJQFbdJVol/+vr6Zs+ebTHDzRtTeL4l9JVNDI0NClqBdgyxZCSma3tPQXCL 6uiOWkgCQWEXNdxA28ShF/ZqGlCcyzBHnbg/0JnKEkbHL9evX++t/igBeDYq /QDzBF8KVDmNDHA1tTPqLeE0mWv79u0mbfRoInYaN46AucqKaTCkfAiCCfeV cbcTJ05sbW3Vb9/f329RDdyyNWQ8hsmbbsKWmZmZbqvSqKOvKtlIxwV2DkVS dBPBHZMmTJhw7do1w730t4RT31qTYBOB7z2Nm9+qCa6hgYrC6urqVc4cPHhQ QlFC2kO5i5TSBjvCW5Ypt2wFhhEcb7rp6NGjy5cvdxshIlGvZqpDKwV5fl8S dRN3OPRZWqXeEk7DGkyCTQTMq9RKp3eFpdp9SDSqqqqkg6uQ9jQ3N5NiKiws 9Ny+SfVIGBojCQ73v/LKK+w7gpyEtAzI/PeIJFE3cWK/zy7o3E1dEz0xDDal fZdyLkInEhNhFIQg09LSAuGAx+G5557zPKJCLdc1dwQlWDcdO3YMn/Tjjz8O D8RBxo4dG+TRNsnSTfy+Pod9qCW3muiJYbCpvb0d310qthY0RNXjuDPpLhWE QUtra+vEiRMhhWpqavzkUVM0h54s83kxahJXAnQTxCOeesjbIKeOM6puSmQC gLdgkx0Thx5ZQ8uXL49qvUI7B9kB6x91JE1AarjwpUBFNjc3v/766zQAvaCg oKmpKdnnJaQ/VPgDxbR161afEyVclTUxCRa/ZKbhjYKcOs7wmIzEKG4mVsEm Po7GN2gYbKIh9U6dPdIDVTcFZGhXV1cXV5QwaWy6DjYg8/FgTkwghhYQZYxD etTV1el7N5EG0eSEk+igW9ekrIlRc5MS4LYiaY83iti+IGiww9NVIrd/YhVs UpcrTr5BfK7c3Fx9sjSVs1l69KUflCFPBKe+GKeB+5AyJEODoGHUoMI+czbe mOQykWIaOnRofX191LVo1MWtukK2qLB79+5t2rRJ4wfgCYYJmARBSnbjxo1z 5swJ/uAJTtxyW+qClQa2Jz8MLn5LS4t530iuhmaF0tPTg68eh8IVwxdtKDPV blQagWYSbGptbYX+2rt3r+FHCA8sCPkKALzw2ROewWrqzJkzWNvwkTs7O2Ni zV28eDEzMzNouongPA0s7TyHpIUAQkP9EtOzCG8Utc8J9ewaMWLEnj17TB4r PDU5OTlOS3d9WRMFHTR6jV0Z8Zv5zpBuysjICHgWBMGzIcyjDxC/f/vb3/Ly 8rDqwCf985//jKsKibd06VKsRqBrCgoKYM5o/LdqsAlKAfoIl2vBggU4VFVV FV5nZ2cfOXIk6m2jWsRO528SbKJFVGlpqaGs7u3tpWFbAKcNJYLPSyOQYCnr x/DpwZ2My4gLi4uwePHirQPgLfBGxcXF/oeTqovYoKkAfkjTuCmHkHQgl/BM wUI3VEzhgTEWmqWvWpdhX+81NjZiX6e5hGFlSlEC1ooc3graujQiUCVkjRpG HyDNXnjhhdBA6bSakk0DF37zm99Qqwe9puOvAzoIX1xlZaUqdSml07CNIVvE Tu8Y1R6nRZSmqaMKbmbcbNDmuGhr1qyxDCl+8803SWHZb/u2tjacal9fn9OR qX03tBJ2r6urs9w5n3322cyZM821pwY8mFEtzcSjLjMk2CTECWr+AMW0f/9+ Q8VEmcAax4vq0LOUNZmkw7ErIwFllaybAtsLQoXaxwGTngkwlilxIqIkV8fz 6fUyB5siZshQ66eQc1N3FV5sO/VR1weboFCgCB5//HGTaa04zw0bNuCcH330 0Yj3NjaAgRYamDphGdQFw0pjp0BnwVzCjj/4wQ/sc5R4WHxMsr47OjroaIHS AjT2MVafURAiguUunk2sEk3cg1iFbtq0aeHChVgxalK2eHS4PSxiMn4C+ogG difgzifdpJkvHyhWrlxJFxZKSr8lN0K0C15CXfpqAm1q610YLBFdf1yGEzW5 jiqSIi5aCLUU2gLeeuPGjVlZWSZj9bDx6tWrHxpAMy2UyxzUhHYqwXbK+lAv bERTkb+jWFk69fX1tNIrLCzs7e31f0D/SLBJiDeHDh3KyMgIeULjZ+blseXW hcTAgjPqzD61QjPetfDk0oeUhqyO6xv5BysBkopRO8hRGhtdQKc2F6pu0lxk k8omTieLas3hm4XKoI2x/Ojq6rKfUsRgEzknYUGcPn1ac3yGJnnhXUpKSjSD yzknX8171JRgUytgOn+cZ0RNzV44fNKYNKxgPatZHoQH3IzQwtnZ2X4iaIZI sEmIK9z8wRuapTv79FRnETkPc3NzTRwyPJbdZ9JyVCg0luD+P96gWAyuSdQ0 NvbXafrrckxQv7znYJNGfbOn0SRmp3a2h+K4ceOG5ZQsxld/f//hw4chcmfO nNnZ2ak/OMF+MGgc/dpGTR2EsR9+4HN2Wj7x9GdNniR0x9mzZ/HXGE7QxjFf e+01mpRdUVFhybLANd+/f/+kSZOwATbzWZYYFQk2CXHFMhfGLfreNb29vYWF hSGlsolCz3iiDcdJs7PFZ7FnVKBGhw8f7qcPT8JgR4o+jY0DQCHn3gvq0QyD TZpFAm9jmE+CbbALSVooHaxY6CaxBJsgA9977z2oJJj22MawX4dq2ph4nNj/ TEmhMEixYIvoBVV7cCWliR90bmlpKTkqf/KTnyxbtgznPGXKFErJqK2tNR87 SAqU8t7x01XSO6+RyOWOHbE7lyfAsHWlHOOXgS+kKGoo3ANRI0E89xwaEA8R nnfDTGOCfP4h301y9OBkIOdTZSwOFa5GbbLBcWq9QuEyWM029somO+xpdCux IUg3btzIlnvWAFiQwJBZvHhxfn4+RG5mZubmzZtdBVkMPz6jFixAaUL4O00B Ux+ZJNoLlPkPLUDCvKGhATrLXB1Aw77xxhu4sFBnMMF27NjxwgsvjBw5Et/F nTt3/vrXvxYUFOCn5jlVg01tbW2VlZX41vCV4VBLlizBtwZ1GbVPbzj+GfiC 4ASelxMnTmCFvGbNmubmZrf5tOy3j58coGBTQDqV6eF8QgheiF/Nliw6NL0j 2C2j13QmwSa1XoDcYm7p6+vDypm8Uk8++SSV9DY2NuLIHtxi/PEN29Kybnr+ +ee3bdsGw81pThn7mVM3Oa2rq4via/ipBvvwRUOh4JYgZ4Xe/mVLMy8vDwtO fFmqbU65VVhyaFz3CcvAF4R4wDld5n1i3XLu3LlRo0bF220YE3jRHnWEB0d/ TBSKPtjEcl5TTsWxRZ8z/sxnNukx+fgqnMjx/e9/Hwt4Ta8JTsBL0eQ06uEc GvCT2z29hw4d4nkcGqexGmyCZrEn57Pn08mfjF9SBj7u53hn4AtCPODmEvHr NU1r5pTINSIr0mR2MBsCGoXCNbzqChlixyJyWW47XSI1tuWzeNlwZlNUnHJE nVB71mmy4MJK4XAqToyiHs44eUj+jo4O+wZqDwrNCoGDTZrkfHIXRzTbE5+B LwjxgNOi4lEYyyvARA6b8AY3znUKhaiwcNaIUA42qZVNUH8WE5LltlMeI8+8 iJoRFxW8hcnMpqiw581QV/Jn/NWvfqV/d075SEArrdhCtRt08k6PEusmp7Jo wqSyie9Ai483KRn4ghAP+JnS5Jt5hvxa+icxIDQ2NmKZCqPJxGnGWd9OIpTz TEJKZRPFsyzJA9ygw0k3sRTSWxxRMZ/ZFBXy05rrJpiQw4cPDxk0IeESYxPd RH3AApJizf46jQuCr5t+hcDBJk29Nts+lguVrAx8QYgHLS0t1A8t5pOVaAWY gLZIPuEsCMO4G9syESuSqMqMHHqqiGhvb580aZLFYdjb2ztjxgwnQcRlRIbd 7TRQcl1MDFjzDE9ciiNHjmRnZ5MgjZoS09PTM3XqVBNvITeoTOSMLSfU1HfN LcT2pmGwyUntqtuouinpGfiCEFvYDxDzhi3k1wr+Y3LgwAGoEqcwgR2+YvZF MtaiUEwwhbKysrCB2qkJsjRik0NqsGCfbEXdYkMDNQI+FVPYbGaTObw+15RU 48pUVlbiCuzbt6+0tNSiqWFo4GrYFRBdDb0D89NPP62oqMjIyGhubg5CnY5J 6rvaiUVj61kqmyJuww3HQt/O4Q9IBr4gxBA8EZCNkAmu5vXoSZVgE3/2+vp6 87044rxy5UpWN5cvX8ZHpobkLGOpsSGMU1gZERf52L2qqko9FOTt6dOnp0yZ giMsXbo0Jhlr27dvj2HyG85w//79UE9QEG+//bbqHcL3fu7cufLy8u9+97ur V68mQ4l1GfbCf69evQpLEPo9YntYKHFaKmAvdQP86cMPP8S1wlUtKioybGGR ANgg0mQXcLBJX+tnEmxi32Do272w0iADXxDs4IYfPXq0ue0QFVoB+kx7jjfc Fi9qB0I73HsB8hn6KC8vb+TIkVyKAnG9e/fujAFwHWBJacajUKM22hiHgoED 4Qwz9uzZszGxC2IYbFLBrQIdgVOl06aLQB0V8HFUGxzv+84772AzaCj8FRcK J+MUqyLVTKkpMD/VI+MI2BHvGwRziTFJfTcMNrF+0TRO5BCkxaea6hn4ghAR jpLEqiKPHsaAPyYwZCAt/URzqCFMc3MzLCN77In+incxibhhYxwEh8IusS2K pHVCnPw8OFU6bdDe3q45c1dXI/ygZJiOjLeASA+USmI49V2jULgoTF0h3BpA 3Yz1jlMvTTWoBGWkestTOgNfEDTQUDn9yANzKOcqyEPYqSBFX1+fHsQ22CRY YKXg1MFJDTaxi5uqCy11baybnHI8uA2m3TeYuhn4ghAVqiiHKdHU1ORTPeEZ hNh36k6TdChgFLFwPv2AENu0aZNbp6VgCGd9Ry1SU+spKHPSYsxyeUJE3QR1 Ro67iAvI1M3AFwQTbt269fLLLxtOANeAmz/mBVOxAidWXl4+SBSTEG/Ylono JSB3BGkNNYv++PHjkydPtuR5Xr58+YknnnDKIOKUkog9kVI0A18QzMGtu3nz 5ry8vH/+85/JPpe4sHHjRsNOzoIQFRikixYtCkUqYMefampqsrOzacBoQUHB v/71r/ADh569cyOXJ9jLDS5dukSp41hWOa36UjEDXxBcgZsWS694z1BLFn19 fcEfwiukEN3d3dA70As7duyA3sHj09/f/+GHH86cObOwsBDGETTOkCFDcnJy 2tra8FfohQkTJkT0ePf29s6dO1c9FH4ePHgQCm7YsGF/+tOfNL5ZMogefvjh 8ePHnzhxAudw/wF37tyBfVdVVfWd73ynuLg4OBn4giAIQvy4ceNGZWUldArl vefm5mZmZr7xxhukSvATamXo0KH4a35+PhSNxp8Ms4jKE+hQ+InXMJdM6jtS LgNfEARBiDdQKzBYYBZFHEdIfwUmodhbt25pyhOikioZ+IIgCIIgCIIgCIIg CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg CIIgCIIgCIIgCILgiv8D6s8YZg== "], {{0, 106}, {564, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{189.13333333333156`, Automatic}, ImageSizeRaw->{564, 106}, PlotRange->{{0, 564}, {0, 106}}]], "Input",ExpressionUUID-> "aba818a6-e8ac-4d27-aa73-90f37a2f12db"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnXtMVVf698nv/ef9x+SNf5D0j8b8TAwhhkyIIRqIsaQE/CkZkXewGhWh glXBG3LxiorFES/Ueh9KvdQq1guj1qnF4mgdxQG06nhrMIxaEXW8tNY6jtb2 vN+XJ67Zsy9rr33O3psDPJ+kjcA+56yz91rP+j5rPc+z/vvdGemT/isiImL2 /8b/0rNLEgsKsuf+3/+DHzKmz57y3vTcnP+ZXpj7Xm7BoHf/F345Dv/NxT/+ /78DDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMw DMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMw DMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMMw btPa2lpeXv706dPObkiY8sMPPyxevLitra2zG8IwDMMwDNPFaGhoGDt2LNRm Zzfk3/z6668PHz48derU4cOHt27din88fvxYe8GdO3e+++47P5t06dKlESNG XL161c8PZRiGYRiG6dJAO0FBnT17VnLNpk2bIjQMGDDg+vXrKm9+8eLF3/zm N9rX7t69W/6SJ0+eVFdXDx48uE+fPhMmTNiwYcPBgwcrKirS0tKysrJIXra0 tKSmpjY2Nvrc2hMnTrz11lusNhmGYRiGYVS4d+/eyJEja2trf/31V9uLb9++ DYE3cOBAaLA///nPttc/fvy4uLgYohHXf/zxxy9evJBf/69//Wvnzp1RUVFx cXGHDx/+6aeftH9FC5uamoYPH15XVwdtnJKScv/+fZ9bizZUVVWlp6frllgZ hmEYhmEYHT///PO8efOmTp2qE3VWXLx4cfr06QUFBSTG5BdDlW3ZsmXPnj2/ 6eDbb7+VX3/z5k2I3l69eq1cufLJkydWl504caJPnz5oAFoCaep/ayEyMzIy li5dqiLOGYZhGIZheiyNjY39+/eHeFO8/tNPP924cWNNTQ3E24IFC3755RfJ xWfPnsWVtbW1uHjs2LE//PCD5GJIu4SEhN69e+/YsQMCWHIl5CUEJN4TV8rF nnetrauri46OhpSVXMMwboF+3tzcvG7dupcvX3Z2W7o5f/jDH44fP85eJMPY grn4k08+UdkxZEKhq6ckk2bLzMyULCFqefXq1bx586BLz5w506tXr+zsbMla 6D/+8Y8VK1bgFi1duhTiTb4GePXqVdrm3rZtm1wQEgcPHnzjjTesAjW9bm2g Y2Fz5MiRixYt4imJ8Rr0sf379+fn56OXdnZb/g3G6Z07d06ePAnvbOfOnU1N Tbrx1dLS8ujRo85qXtD8+OOPU6dOxTfioc0wEjDeMcNWV1fL9xZ95sWLF5AT 8Ba3bt16+PDhb7/9VrtyhX9fuHBBvpYVnnTplOTLly9HR0dXVVUpGtUHDx68 ++67t2/fvn79+oABAwYPHox/m14Jmbd582bcHIi33/3udxBvX3zxhdXbQuhC 7uKanJwc2HmVlpw6dertt9++d++e/60lcMdWr14dHx9/69YtlQYzTNDAXUpP T79586bVBRg1Y8eO1eayQSw9f/7c9p3RjTFTwBFzlEDX3t6+atWqmJiYqKgo fBDeAWqzrKwsOTm5pKSE5GVDQ8OwYcP+/ve/d3prjTx8+BAWW2L0KHyd1SbD WAG1tnz58sWLF//zn/+0ugYT7ltvvaUd6cuWLVN889LSUu0Lhw8fLk+OgOd7 7ty5vLy83r17DxkyZP78+TBKMBdFRUWYpnft2vVzB+vWrZs5c6apNvaztbqX Qw8f7wAGU5LP0nVTkj/99NN+/fqdOXNG8XoKfYQvg9uIm9m3b9/z58+bXgkp WFNTg6ePeygPfaQsGzydN9544/Tp04otwfsrBmq621otX3/9NZqN/qzYZoYJ AhgWSDgoN9srMZS+/PLLgQMHYlDbOmJEc3Pze++9FxkZiT7/zTff2G4oYDRV VlbCmKempqL/66wiXn748GE4a3V1dWhGbm6uZB/Bh9YawbSIFsbFxY0fP17u 1cJ64LKmpianH8Ew3R4MXjhicBhV9lkwTjdv3pyUlITpUr63KMAgzcrKIs0G 9WXr8d24cSMzMxNOaGFhYWtrq84y4BMXLVq0ZMmSjz/+GNfI4+58aK0AIhMa GEoYehi6fcqUKX369IF1ff/9900/t4umJGOamDVrFkTynTt3FF9CoY/4vvRa q9U/zBoVFRVkyQ8ePCgPfWxvb6fHKp+YdDx48OD69esqgZrutlYLLZbCewpi ymMYFWjBH1ZIcccHRnLlypUYUNHR0ZcvX5ZfDHsF3bh+/Xr0eUg4yeoEce7c uYSEBBhD2Gqri2kOooXH1atXy0eop63VAm8axjwxMREDFtMB3sFWaqLla9as GTp0KEyN+gcxTE8AjhicRMUUD4pkw8iFh6jiVEI3btq0CS9RiWSDYdy2bRvk GfxxuKJWczGkxdSpU2lFSyXuzqPW6loO4VFaWvrw4UPxS0h3CCG81YgRI0w/ uiumJNNan63JFYjQR/oRZh83BE9EdxluIAQerfHibtiGPu7fv5/WnPfs2ePi 3fOotVqc3kCGcQpGB0y64o4J1NfMmTNPnz5NRlUeq0/1FqAeyQsjp0xy/ddf fx3VQX19vdy3ojBmqE35TORpa3XcvHnz/PnzaBhaDg9URWqCtrY2qFPoYfUP YphuD6V4qFetoUg2qFNMl7ZOJd587dq1uEYlkg3T94oVK2BqoL5sI9mgMKEz bQsketdaHXV1dbNnzza6zHfv3iV3eMaMGab7tl0uJZkW5YqLixUXTEToI/1I C4DGXWxMSUI02oY+ivVGeBDuRiB40Vod6CTvvfeeo2VhhlGHNBs8JsURin6I Pg9DumzZsgi76l4UNIKLhw4dCluNHyUXU3kxGOqvvvpKRePBs4NCNg3U9KG1 ctSlJsVjJyUlhVU2FsN0LtBssAYQPIrXUyQbZmQVp3Lfvn3Hjx9XiWSjYFHa trbKwtBC87ti3J3rrdVByic2Nra6uvrVq1e6v8K9xUdbCd0ul5J87dq1mJiY uXPnGr+pKWfPntU6MvgRU09aWtr3338vrrl37x68DHGN7SOghUHcVdc3qrxo rY7nz5/jIxx1sK4F5uIPPvggTAosYGx+9NFHPp9D2rnU19dHRkaqm3QIsDlz 5sAC7969G2NK4kVSvQU8XxoXkoy5wOvFPbxhWVmZYqop5BxkpFzLedRalbYp Ss3A65UQOKpBf1yYc+DAgWQNOTk5XSsMLHxA59TeyVGjRoXVKc9uAbWwcOFC GAT1eUFEspFTadxbFLS0tGzYsAFGRiWSDYYRXqe6/0tLQ1u3blWMu3O3taaN watMl6pgG2mr9+jRo8bXdrmUZPo66lJTPAL6EfcHd0m7dkHpXdrFSdtH8PDh w5SUlIiO3PNnz56ZXoOH8vHHHy83Aw6Fn601gsm3X79+XWgpWx3o8NGjR9fU 1PjmOj19+hT9Af+3uuDSpUvp6em2QX3dAwrnsF0b1AJfmCLeqboXHp9pETNR byHwWndJQh/piAdcg5bAtCq2BG+rEqjpemsV26YuNaFyk5KSrHayugG4G7j5 UO9+Sk10qscddMWaM1ZopWZsbGx3XYJ48ODB0KFD1UeENpJN7lRiUK9atQoK ViWSTfi/+fn5itYAl+FixQKJ7rbW9INgISMjI/EqY/sp49hKagZ8TEnGN4Ic eugQ3STuSGq+ePFi9uzZ2uArGGqYa7yD2MyC8INaE3db5RGoSM1ffvkFWo5K ARQWFuJi2MbKysqTJ09aBV141FoduGzRokXdUmpCZ77zzjv+FHvB8/3LX/4y atQoSAi4DxkZGWPGjLFavewS1R7wjTCNOh2eOoND2z3qkcAU+vjNN98EOkIT 4fNarf7BTFG9BRG+Igl9pHpoNC7UhQEaIF/08Ki1KjiSmrRzgUlNJUG+K4K7 4acoQj/HBA0xBicdc3pcXByMTHgKzp9++gltS01N7d27d4QZQ4YMsVpW8vmu KoIR5NQoGd0B2llQD2DWRrLRa02dSozoPXv20NEJKpFs1dXVlONz7NgxxZZA 58BjlceXetRap9AGuqQL+ZOSTCvYpp1fjq4GHQQSZJKi1NSFPlIz8Fq8LYZV oCOWFfJPO12qPALIS4hMudTUQtk9ipG9rrdWB62BqyTPhgloML6m7TRNyXrQ 6j6s5OCzFixYADf5ypUr1DD8Jjc3d/jw4XhGxuspwXnkyJFhO/Wj/VT4wim6 UmxkTNQ3HUToY+B1Zzat7qUNGqEFCknoI+3URDgsRNZZrVXEkdQEy5Yt6+ru pGTg+ymKzpw5M3DgwDVr1gjDC52ArmV76JvPoDH19fW4LZLRin6YmZlpZYXC UGoKn9EputqStNZntdpmRJQcDEidyqtXr8KFJFmrEneHKQDNSEtLe6hJ3w4d L1rrFPHtIPOspmB/UpJFdSAAhysvL+/IkSO4G6ZeCcwydTAMDd0iFd0ixbQg XegjsX379oiOCC68A6YkXS1lxUdA7olK7L0Ib7CN7PWutcb2dJW0IMrsQDeA FZVcRloODvuNGze8bhLFdWP2oe1RAewYnpSV4+ynEg4CrUnHDYfjCecXU5Lp 8KytrY2MjKQrdfnatK2svoInQh8Dmmy7/fv3a6/R1lsIvHbbJaGPwv+yde6c 4kVrFXEqNel69bk13JAPfN9EEZ0HB92iHba02RRWJlRU60pNTW1sbKTKsTD1 VVVV+KVitwlDqUnzLIFBhJEFz87UKMFYlZSU0JXGkjvkedF+hAraSDayJ7B4 unK1MOnwKMUH2UaykSnANUuWLHF3Wc+L1joCHw3Pi1YeJGd2+KM9YKV7dYD+ IJdnLS0tycnJpDNxc3SS8mHH5rX62DHOehQwgK/8xz/+EZOm7q8kGGwfASRN QkJChMJyInkZuFI9stf11mqhG+hWH/MUoRkkEo7AjAAjSWu/XnPgwAH0TLRH Zy4otEMSktfc3Axzh5f70EinkDKBD1hZWSnfrGloaKCVE1xsjIml7qq+UYWP 064O0fr/ypUrde+pLSlmG/pIK6vya4LDi9Yq4lRq0jKOPyPCdWwHvj+iiIoB JiYm6nacxepBiCvVLkLKHBJLFwFCqlhyDoiWcJOa4j7HxcV99dVXEnlGKQxU Fxfzsu4rOI0Z00WymTqVtBmNwS5+tI1koyHp+qj0qLWOoO4H2SbvZj6kJNOW FlW8l+t5qG6MF3oipiWg1Uu4Ux0tY9Y/5bBHdAR86paYHD0CkhzykgVC7duW YPW6tQKaiBcuXKi4xdmJUES0qZeqhW7dyJEjfUgNuH///m9/+1vTtBeyJOPG jbMSA5Sr4igL0h/oBsJWHDt2TN6RaJHHdLuBIEWkKDW1oY8EuU7a9f+7d+/C Dgj1qxL6SEv9uEZSWAMOF+Ym06w93WK1161VxKnUJMfHo+qaL1++9DRS0Xbg +yOK6J4bM8VEBZIvv/zS0wYoQpI4Ojr63Llzxr+WlZWhqUJmSAg3qQkbC2tj 1M86tOcvmJbzJcmqLjWNkWwUhah1KvEpMCBiFKhEslF3kj+LCxcumBql9evX W81uHrVWHZoUxowZo7Kl6HVKMn0121J7ojZ+RMf5wlarK9XV1cb1YR14Lng6 6H5VVVW6c+goPdPoqwY6ViDJhsjL5RHo4XAcMEHDjTItEE3H4WF2SEtLkxfw 96G1gq51MCXFhEvOVw10fCMoeX8WcIzqQkBVJuThu1SFBk85rKK8aOHdtlW2 bmDAodTE52ZmZmr3uCkSOyUlhWKZ8BEbNmzQBo2ohD6qSE08vubm5uPHj2Pk UuYdBvK2bdvwtqYZ5d61VhGnUtPp8rI6tDSheM5y0MgHvg+iiNYDTZcIxLK5 in7zATJKpknN9LC6qNQ8ePCgStFvWlIzjechnEpNYyQb3WGxN4E/VVRUPHr0 SFygEsmmIjXR50+ePAm7tG/fPjJimOKPHDkCCWqlnTxqrSJ4h8GDB5eWlqps kvqQkox3hl6S1z/BDZkxYwY9i9zcXO2d0UFxZVZWlE6fj4qKogIOgwYNivjP IGGMvlmzZmkXcKD0aA6lAhqxsbHUDJXT56Hks7Oz8cKYmJj58+dDwmHywowD MwV9uGfPHjxuyH48C9MgPZ9bS8vLeJUPMY3+QCtyjqrrBI1YRjbGQohaAfJq OZR9g7HQ3t7udWvVgWmyXROGzszIyKCetnjxYqvtYHnAqg5t6CNB1b2EDdTV WwiohT6SdyaXmgKx8Gh7wqxHrVUkuFhNeOUhfq4RmrjLyspcf2d1fBBFNB2b LhFQJ/fH5tiiSx3VQc6O4lEjYSU16XvZFh+j48BIZ37xxRemF9NbqSscYySb 1qnE73fv3v3Xv/5V+xKV0EdRC0hF9ou4O9vsM49aqwI6FQwgWqiYgOBDSjKm HnmfESX0bXdLA6/VhWL2tz9gkmpqatq5cye+Bcw7HBNMLmFYDcPpSS7hD/kd UAvylU9XoMV504UOGt0qPjhpAF0uSSdCdljeHsXthsDrfVtJAWEtutDHgKa2 A96nra0No0mnaVVCH0WxCxUTQXOxrY/gXWsVCZ+0oB4iNa1OahPSLkysKD0O qwAt2kbJzMy0WqvXElZSE37cqFGj5GLeNp5HgO6qGLBqLDkYeO290s2Bhd+0 aZN2E1Mxkk1kRm/fvt22GZTbYht3511rbbl06dKwYcNgYXT7ucuWLbPS0l6n BWFimjJlimQKto21MILvAi8mfKKyuwr19fUxMTHy2IOuBcWl+HMwCi10GBep RHUdq21lLSRKbcsR+AYMYFZWlmTsO3ID6RapFDsyhj4GXu+w4IO2bdtmrLcg Znnb0Mfm5mbYB5WcU5EWKj/KzbvW4k9Qj7bdxqnUpJgo9ZRbdXqC1BTTsfHZ UQCh4jzlA7RFDqt+7do13Z9gYaBDrLaVjYSV1MRUBTEvMSMq8TwCdc/LGPoY 0DiVf/rTn9AxdFuuYktLHvqIjrRmzRrF5URKOZTH3XnaWghINNIqswY6E9/i 3Llzxt29vLw8qy7kdUry48ePP/jgAyu/XqczrWLyddAgcj3DtHsDxxburYoc 6irQqDE1s15ACx3GCleU/46WqJw6TUuj8fHxkqIQftLa2mp6oC2h05m2CU3q JdwxZY8ePdpoSKm6FwyCcTtMPfRRWHWYXElL8O1IUdhuhnrUWryEMmetKrIK gijh7lGcRk+QmiJvQrcARR0G4m3//v3hE25NyQtnzpzR/f7YsWNo6tq1a9UP Zg0fqfn55583NDRY/VWrM3WlqExRL+He2NiI7q0bZcKpNM29Ug99pAQuck4l +dEwBZSFYbsi4VFr8aFz5syxCiuCSIMG/uijj44bwPfCF7QqMde5Kcm2Mb1W ULkhF2vdd3tqampSU1NDDxvzGoxBjIKtW7fW1dXJw+do1GBSUPeSXrx4cf78 eRjn2tpavFxeD0E7IsRCx6BBg7QbqVC5ycnJGJIqOjOgWewK/5qHQWw30Oa1 XLnhnkPfwhmHj4ApQPcIKKLJWG8Bl6E/YL5QDPUR9U8wJV24cMEoDPC8SkpK IMkGDx4sOfrc09aKci7ymAqMgpUrV0Z0lBZsaWmxFTmeHkzpndRUH/gqogh3 CVP2kSNHIDBOnjwp30HGxdonS4YFU9LYsWOFC4CbCdnWr1+/w4cPe3HcCd4T 7ifsEqxTU1OTfBUFF4tugMc9cuRIrSrAX9HIqKioLVu2qPeBsJKaEtTjeQS0 eS0fEbAYmBqg8VJSUjDkdaOMnEpjjTu8Cj1WZQWSwMOiRcXS0lLjlIEPhTjE jFZUVATbJSmQ6GlrH74+D9GYfw0bSEELVkgWADsxJVk027RGny2QpomJieEQ mx3+QCdgzsUN7+yG2EAH8SxZsgRKDPO7sUiaForPVwzUxChDH6PKUQJ8hNVq UltbG5xKIWJFoOapU6c2btyYk5OzfPnygoKC+Ph4Sv5S/4606V9ZWan+Ev/B YIQfR24g5iz1ZNv6+noYSSshjakff4Vcpzw4vDN+1C7IwPPNzs7WLp/Cc6dT 9tAYWEhqUoThQBDTrwC7TWdYQKSVl5dj/kXDVq1alZaWhuGApqJXwIxAQpga Hx9ae/Dgwf79+w8ZMsQYOkWBr3gHzJLJGigTUBKlgDbgVR5FlXgkNR0NfFtR 9N1331G2phjpeHZ79+41lYi47VVVVdrbJQI1L126NG7cOLQKnWfo0KH5+fnG ad0VIBuoowri4uJOnz5t+lnotIsWLdIa80ePHsFvQn8r7wBvBVnltKldQmqi +y1evJhuUUZGhuL5a+QCS6IEN23aRGm2GF8Ybhg+umMKMeoha7UO6b59+0TX gg4RJ4Hu3r1b3hjI3V27dmEmwieOGTNmw4YNMEQQYPPnz0e3pwf38uVLmCmr QE2vW4vbhUnqzTffxJtrF/a1rrEVMHSmdqkTU5LVY3qtwEuOHz+usq/Xw2lp aYF7Dtc+fDZ9TIEJraioEJXqIXXQPYqLi62UJAW0qGg2rYHSAbNs6l1WV1dr y63rAjXxhqaH7apAzh1MwfPnz52+1jeC3m6g1DOV7G/fQJMg2/BA4R3A1ODf eOKensPrFPQu2HZX7hiZdO/Kt3ohNZ0OfLkoslp4wUQDZ9N4PW4U5ndRgUEX qIl+gj9hsD99+tSlr/sfaH06HVb5CBcvXjQ9/o+MEgguriz8paajuHEdlCEV JvWpAq8XseFYYf5auXIlvGC4Gx71saBB93Mrg7WzUpIdxfTKOXfu3Jw5c8Lt GYUPcG0wL1y5csWVd4MR27Fjh2mZ2SA4dOiQ9tHDDkCiiN/QLoCoW6hDXuVD izBQcOgWLFiA0Q0PBf9Htyfnbs2aNbpZHp7X5MmTtfV/rDJSg4ACh1SKU3UW IbqB4T9nhRvojW7FAtFe4fr16z0KiPJCajoa+AFpB6Oui36blpb2ySefUAgZ /kEbggkJCbpFFQrr1c6nkkITXkA+HQzR+PHjIbapwVC5cXFxtHCnsxIUR+dF 28J82AYRz6OF+i3ndzhi27ZtbqUWdkpKsghXiOgoGaESa8GECZCsVFrWFYYO HSo8U3SDvLw8EdhGJa0irFMhxGK+raNaV1cXGRkJz9HY0+BXwtXSTUC0oaY7 2MuqomYQ0AKpu5lBLq69aE+G1Z4xoQ5Fv7t16lm3B3d4xYoVuO2hvxV1XacL Po5wXWo6HfgBa1FEmY/ovcbcWNxkzJtQdDq/sq2tLT8/XyvnJBU1XQefnpiY aHrSCu4zRhAMl+4o24sXLxpjg13BC6lJpfhtj+GwRRyYgo6BRkoyhiTQ0cBc uEYRjKYlS5ZYuXtO38r/lOQgYnqZngDmmlmzZgmXk4qKRFjXAxehy3LTcf/+ fcy8kqU5SvfTCsv29nb0TG0anbsLHbrS3yGCSWfatGlCvcM4hLI17NZ2A6z6 gAEDvCi20/04ceIEJL0rG/rQq+hanh6Y6LrUdDrwA9aiCL+XyGw6Jlh3WkF1 dbVuW8TF/Qs5r169WrZsmWQSpIR3bUvwEtx5j3aB3ZWara2tIowBTqujIBwj QcfzaKEVbO+K7XQncK927dolYlpCxP+U5FBiLZjuzb59+7Q2n6q7SBJ4FaUm NOTs2bPls0ZdXd3kyZPFZIeX6I5ZoYUOfJxVGQdHUMshXF3M0vrxxx/ffffd iNCKw7voBtJul3H7j9Fx9erVefPmKVbLlEPLg+i6Xh9Q7q7UdDrwAxaiCD1t zJgx8HEkn/XkyZOsrCxhMfASCDltSSixf2F7SkvoQFTDgZVnSbS1teEa8U3x koKCAo/WZ7xY1bx06VJMTEyIJyuFntYhIBNXWVnJGy5yoOdXrVrlirflf0oy 7RNRrMXw4cOtdg/RB06ePKlYOobpltABjhHSygkk2OTHjb18+RLzuO1S5IMH D/Bx1CEx++Tm5uoMI/6UlJTk1tKTokh2BFVxhFVXrExrRPFkWIzi+vp6lckO 9wrzQnZ2tspJJT0WdAZX7g+eCLr6xo0bQwlFg9UtLi5OlkIZr+IsXQmmISu2 38J24AcsRNH58+eLiopsJ0e8ViQSwi/TnRJFlU4xlFpbWx21PAgOHz5se0YV SV/KjqeEL+8OGvNCatKpN5JiYragPQkJCaQzJW4Uuq5i3itaMm3atKqqKlab Eu7evetKUKv/KcnqMb2Y62FnwqTANdMp0JE68jU6Emy29dthmmz1Idlz2paC jiotLfW0xqwXUpPumO1R5laobzdAhE+aNElxBwo39siRIxUVFdD8QbSKUWf7 9u0QJCGuZ8Lqjh492i2piX7idMVAZeAHLEQROptKN8OrCgoKnj17posR9R/Y JZXnBSuxZMkSfLv29vaJEyd6UZaf8EJqUmE3W0VthXo8DzqMevk4iKjf//73 MPVBNIlRx92UZBXQzejkApVYi8bGRkmZC6bbI855lB+W6q5gwzSNyZpOofI6 85RarqvQGCK07bhgwYIg1l3xkh07diimdjoy6Uz3w7sS7ooDPxCaKIKXNGPG DGhgDHPb0JpwAPq/pKQE2ti4BusurktNkbkpP/XVCgiVKVOmqMTzkN0O/6rR jNeox/RSqVV/jrSW41bqHOMUqtaC3iI/wcpdqYk3wex5+fLlvLw8r1PV6DAX F626qPsUxOaaoxIiuDO5ubls0nsy3klNxYEfCE0Uof1FRUVXrlwpLS3tEuta MHS0zef1GqzrUpPyH4ML1HQUN47bMmHCBE726eE4iulFn0xLS+vcA4DcTZ3r ZqhssaljusVGx83YHnUNNz8nJ0el2JEKMLCYgD788EPvQqG0nwWTrjvfwRTy d2BC5aNGG6iJK3G9uovkKLWzsbHxnXfe4Uyfnox3UlNx4AdCFkVo/GeffTZ9 +vQu0ZNJG+/Zs8ejGkcC9btKteJt66ppAzV//vnnxx2obLs4Sh+mxXBP13uZ 8AfKhA6OR5dbsWKFPDQFniyu8aHKhAqupM51P1QSB9QxJg5AIM2aNSui4xAf MRG0t7cXFBTosifElbYl3FWAgR07duy4cePkO3euQAFpkgrVgY77PG/evMTE REyLhYWFeXl5sLfbt2/fsWOHccGHasLDRzt69GhWVtb8+fPxqvj4+PXr18uH kqOTYTG/5Ofns0nv4XgkNdUHfsANqTlx4kRJMaWwAjd89uzZo0aNsjrs1S1U 7uqNGzeys7Mh/8rLy9ENli5dCj8XHvqRI0eMF9Npbu+///7OnTthWvESOsnX 6sBNAiKhurqa9lnk55MSLS0tQ4YM8afePhOeOK3RRwssPiwrqRB66hwTBPBN YIt0VfVgY00VzrJlyyJcOkycVhptd+5cgc62luTYNjQ0oDGLFi0SOhxDIy4u DnrStCgcBWqCOXPmiGkagjY6OlqiDB1tN9A+O4Ynm/QejkdS09HAD11qyosp hQIt37lYb4pueFJSkncJQYT8rlIRdfjI0IHkwJJNoFONiouLdV9ZBGrCaHz2 2Wf0VzpiQFKg2OmRQLTPHnQ6JNMNcFqjjxZYwudgrBBT55jgwOSC264tYQSz VlRUZFouj4otz5o1K/R4WvS6AQMG+HOQBClD6GTTv5LDNWXKFK2PI9Z8jEfw iD/pDt6iAAOrZXlHbqA4pnno0KEPHjxw9m2Z7oVHUtPRwA9danp0QKEYVi5W jaYb7sPZW5K7KhQgrJZ2o4TOtjDdWiLfAaoSVlq7aX7t2rWYmBirvUtH8Ty4 M4sXLza1ikwPgYq80UQ2fvx4ecmLJ0+eVFZW0mnUYXJEaYipc0zQkAzTng8O +Ye+ZGqXaCcati70gHAYwNGjR/ugo2ASFy1ahO9omvtGRxdFR0efO3dO+3uh J40nZVOgJuYI3QqA5OBORyfDtre3l5SU0DqDrUn/ZweSC1SgSDDbCFXi6dOn uNjddSRGgkdS09HAD0Vq0gB0JerGCJ3eTri1TAGfcdKkST54wfKT5fGnxMTE W7duaX9PUhNG2HguGG0L5ubm6swL7R8lJSUZVQHt5pDO3L9/v+TuQbvCB0lN TaVNGfnNwftQsKjkGhUc2aWgEfnI4SCEwhxtTG///v1379593Iz6+vq1a9dm ZGSQyCQ8sgBOCSV1jgmFy5cvQ2iJ44/b2tpgZq0O1CBD58pK+NGjR+fOnevD 7jm+F76dVZurq6upgrrOPkvOsqRATeMWklhw0IV4abcbMHd8/vnnpsMTr6qo qICIJZGpYtLxmBISEtLS0r7//nvdn/bu3RsTEyM/yQUGHDPaxIkTx44dCwOS k5ODTz9//rzpxVAg+/btQ/txM3ExlE9ycvLOnTtZcHqNR1LT0cAPRWri/fHO knMfQgGTnZjLXHGBAx1jH7fFhxhyq7tKZWEizA69JWffdLODAjWNepvslbGe lYjnAdOmTTM1SqC2traoqCg2NlbcZ9utlgMHDsB2rVy5Uvd79OTCwkLbPEdH dokuLigo0LZQx7p160xfeOHChczMTNgxDC580JgxY4qLi62O0mAC/5nB7Qj0 c9tqn9D8tolv8perOCZBp87xGkuI4LlAbsF8bd68ec2aNaNGjWppaZFcTIX4 QgyYpxLu/qQJkFNvunovxKHxUDyyz5JATWNFzevXrw8YMCDCsKrZ2Niode7U gYGV7wnSHqhxa4zUtVypYrxs3LgxLi7u5MmT9EXoAGjjam2gY28O0nr48OHo G3Sj8H+4rvHx8U1NTZIWMqHjkdR0NPBDkZp4VXp6ukfKDX4cRmJkZGRWVlZe Xp4k708djBooEB9SBqzuKm2FmxZjoRAmSaCmcVuQ1LhxVROObRBGKaJDAEuW CCSF4CQ6WeDILkEWQrvKWxsVFbVnzx6decftwnuiMYcOHRJ38tatWzCbRoXM +AAkXEZGhuliY0NDA/wI+C9Wr3WU0us0dY7XWNzl/v37GNrw8mxvIIQTNFiI C5Kk8bxO8CRg8SIsVu8pisk0Zp4ih4371xJDSsLPt5V5cXj01q1bdY2kqWrw 4MG3b9+2ei0GCyztsWPHtK+luUD3cGn1Y8SIEW1tbeKXQldzxIvXeFfsKKA8 8EORmlBHYu3UO3CXcItckZqYjPzZcLG6q/BVTS2JMD5Ga2a1LShe4ludGcmJ vVY6WeDILlGYLrx4PC889187gLtEFXgkkwttM/Xp00f7Kc+fP6e9p+BO5WBC xOr0PUmfJxyl9DpNneM1lk6EDk0OMT0T/QpW0aM9NS2wrrCxVvKPMtONkkwX qIkOeePGDepp1FeNsVJizwvulT/+Dsl10wFColcSht3c3IyxZiwbSCvA2qpQ cBgx1vApMMvaK/F7DOSZM2fyfpPXeCo1FQlaatJM4YNywwxVWFgY+gY67Qj4 s+FidVdp38Q4UeoCNdExhOGikWt8CVXp79WrV11dnZdf5d9YxRfZaoaAE7tE chHfa8eOHTplSNbPStBSgUdaRtBegN+vXr0aokIXtM/4g9VeoSQ4OeA8pddR 6hyvsXQ6FIoTSo0s9CvTMHXXoYA0q3wB8qSMLdEFauL/8+fPp05Izq/xIHhI 2YEdGH15jyDz+/bbbxs32akm1caNG02/NUkXU4165swZPNkhQ4aI7U6KZc3M zDTWWmT8gbpcF5WatMa1fft2L1qlBW0rLy8PXdDSsHLllApbrO4qiaWcnJxn z55pf6/bgIanXFlZSWOcZkDjS2hPRzcXe4qVZoDyhJCz0gwBh3aJ5iDTGvv0 BI23gqAZAfiw0MEoIsSho6CLIFJ61VPneI0lHIDqyOwgOPlBPcGViklyMO9A dCUkJFglO8D6oTvppCYsJO2eC8cc/V8b7QP11bdvX22YOuXlqVTLdBHajbIK 1JRU0rPaqggYwrpELKuVamX84enTp52bHhu01Dx79mxUVJQPJ6tu2bLFlVMv Mazi4+Nv3rwZ+lvZYnVXyW/ViSUMc+1WOMbjhx9+ePr0aforbTaNHj1aa5Np i1mlWqZb2GoGSUFOdbskTJz4+lpIl1pJTQrVMw3CZzoLSdAFPXrTNeogUnrV U+d4jSVMgHcAsxDcpgydSO7DFhW5KsaUHy01NTVvvvnm8ePH6UfY8HXr1sGY 44XZ2dnow+hpJSUl2iV0cqaE+qKzNnA3IEd9C/IRgZpGEUjrG5JATatlB2NY F91AiWpleghBS83t27cbc59d5/79+0VFRaEXFae6TD5ElhKSDPQVK1Zot07Q ntLSUqg4DEYaubBIsEvaefDYsWN4N7Fm+OjRI8zCycnJuv0XTyHNYLp0KdEM hLpdkqcX0fsYk/cDmlA9Lt8dVtgGXRg9lyBSetVT53iNJXygdTz0jSA2wf1Z 6IBRmj17ttHl0QFztHfv3ri4OHTpsrKy9PT0o0ePvnz5sra2NjY2FoYxKysL QlTX32C9U1NT8/Pzy8vLR4wYAVHa2trqZ59UD9TE4NUuiEmWHcgZ1IZ10foA lyBjgpOa/uxfYD5atWqVJEFVHRpWrpyGpoLkrsJ8rV+/HnYJkmn+/PmYN5ub m3EbMffhJfjNhAkTdKcvkSlLSEiAWsYF8fHx+CI+r8koBmrCVMJh1xpMR3aJ YuxNE50oON8qNpU28U0/helEyDswuiGSoIsgUnrVU+d4jSWsoG10lfNPdcCD 8OEQHEw9gwYNUtw5opJcupJZ9EurSl/oxpiYJBd4Co0FY8iobrUTX6G0tFR7 EyTLDhTWpT1ojBZIJVG1GJjGkp5M9yM4qUkzhaelm9HJa2pqVqxY4UouHjo8 ZiJ/jjALKNxVqmGuq/tHv7QKqKBSgbjA6/AkU0gzGDevdWbn5s2bmNy1iwCO 7BK5wFDURu+eEousTksUaeZWsbh4Q9w6zkD3E/VAzR87oD8FkdKrnjrHayzh BixGamqq0wDFsrIyr48+h7iC/2J7zlrXhQI1jVJTlGWmPQL4cXAVtSsbtOxg fCFFBSQnJ2uLK9KOg/Fi8Vc8SmMGKNP9CE5q4vrExESPjj4n0Akxp7gVyIr5 y4ejzwUhHvcZbohZXic1xSGbIofx6NGjVVVV2lnDkV0ibZCXlwfpqL0Y8tI2 ZoDEsGmeGh0HPGPGDN9SqJjAay/DVP/rVjvXrFkj5vQgUnrVU+d4jSUMwaPE E3Ek6v72t795GrsFAZyenq6rzNadEEuXuiQ7zOmTJk2CqRTDdteuXbrz5mjw YiRWVFSIhSDY8/Hjx8Okt7a26j6LtKuuMAidUpeWlrZlyxZ/ivUxnQu6DZQA bP7yDjZt2qSymI+p/8yZMz4UqHQLzCxe17qBZFr+mnHjxnUnqSk0g3atCbYC OhM9B+aF5m74BZj9MZtrX+vULtXU1FBhTPEbvDN05siRI40Xa6EqSXhPvLn2 93QcMOSrD3VRGC3kZRilJiW1icLR0IHoRSJpIoiUXvXUOV5jCU8wZhcsWKBN nOlEoHzKy8u7d200Eag5YcKEvn37Qlti2oL9XLhwIcYdxk5GRsawYcPmzp1b WlpqWnBs3759tbW1mOnwwnnz5sXHx69fv94qrOvGjRuZmZkpKSm4sbi+qKgI biPEp9iYYLo9pAQE2gqHjCNo40/QnaQmaYaEhAR4+rGxsUuWLIHFgJGBwwuz DCERFRWVn58/efJkXQZlEHYJlgc6EwqBrF9hYWFycjLeVmV9G5KjsrISQgIf Qee/pKamTpw4EY+Gj4DxH2FbtDk4kBPoJ4sXLxZL0Og/a9eu1XabIFJ61VPn eI2FYbQVNSmgVBcyihFBR7vqLKcuIEq8ViWsi06ANUaOMQzDBP4zhVyYC61t sTqlOmi7RIYuOKMkPqWz4lqZgMbLyMzMhPiHRKTVDOjMGzduQC7ClYDzgk41 depU3UJ0ECm9jlLneI2F6eFYVdS0xSo/lGEYJhQkyR22sF3qsWgraoqMNq0z ItJvrdyBIFJ6HaXO8RoL0zORHH1ui1XlOoZhmFCQVOG2he1Sj4W9DIYJTyQV NeWEsuzAMAwjIWjNwHapJ8NeBsOEJxSomZKScv/+fUcvpGUHvNa3U+oYhukh SM7okcN2qcfCXgbDhC03b95MSkqqrq52atIfP348fvz4uXPndu5p2gzDdD8O HToUHx9//vx5py9ku9RjYS+DYRiGYRiG8QjyMsrKytjLYBiGYRiGYRiGYRiG YRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiG YRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiG YRiGYRiGYRiGYRiGYRiGYRiGYRim5/D/AAMW8nA= "], {{0, 92}, {889, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{420.99999999999864`, Automatic}, ImageSizeRaw->{889, 92}, PlotRange->{{0, 889}, {0, 92}}]], "Input",ExpressionUUID-> "78c7a072-8e30-401c-8167-9ee64fc1e947"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnQdQVVfX9xFIHiuKFcQGIoqKYKNYUFBsWLCAXTFqLLF3VLBhwYoSbIix o4mxaxh7iQXNqLHip7FNLGRsr+Ko8+QZvv/L+nK+89xy7rn3nFuA9ZtJRq/n nrPvLmut/z57r+3+zdhu39rb2dlNLIz/dRs0NWTChEEx3UvhL5FjJo4YNmbo kPZjJg0dNnRC4DcO+HAV/vvW0c7uf/+cwzAMwzAMwzAMwzAMwzAMwzAMwzAM wzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAM wzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAM wzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAM wzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAM wzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzD5iGfPnmVkZPzn P/+xdkHyNpmZmdevX7d2KRiGYRiGYRiGUZMzZ84EBASkp6dbuyD/y7///e/H jx/fvXv3/fv34s+h5t6+fWutUskExQ4MDFy/fv3ff/9t7bIwDMMwDMMwDKMC GRkZPj4+aWlpOl8wvXz5cvz48T3/YfDgwbje4D0/ffqUlJTUp08f+hb+sG3b NokXWPin3377beLEidWrV3d0dKxSpYq3t7eLi0uLFi1OnDiBf4UASUhIiIiI yM7OFn8R8mr16tW9e/cWHpSamipHreC2gwYNom/16tVr5syZ8uUY7q9RDDEX LlyoWbPmDz/8wC/sTGb37t2dO3cO/2/wyU8//aT85llZWQsXLrxz547yWzGW 5/Xr1x8/frR2KWwFGKIVK1ZcuXLF2gX5/1y+fLl79+7+/v4eHh516tTJzMy0 dolsDniQlJSUsLAwPz8/Nze3gQMHwmNau1CMUvJxsyKY2bVrl06nDGdt7dIx jIV49OhRo0aN4uLi9KkMDPkjR45AldSuXdsul5iYGIOSZMuWLc7Ozri4bNmy EFxQMbdv39Z38c2bN7t27Wpvbw8nC+EmKBeoocOHDzds2DAxMXHNmjWFCxee Nm2axqNJakGeQPhQ8fBzXr16JV28u3fv1q9fHxdDnUVFReH+J0+e/PLli/S3 iPv370O41a1b9/nz5/quQXlgMHFPOTdkNECbzps3z04Xc+bMUahD0eGbNm2K /vbu3Tu1CsyYG4x6WCE46KCgoLZt28ImVKpUadSoUQ8ePLB20awMamb58uUV K1Y8cOCAtcvy/8jKytqxYwdEEwasj4/PixcvrF0iW+TGjRvJycleXl6oJbhI XpOQP8ivzQq3iyhRp1OGs7Z26RjGEnz+/HnYsGENGjQw6NTevHkTFhYWEhKC ARIZGSktLjIzM/v16+fr64uLp0yZImE0oIkghYoXL16mTJnt27fjr9rX3Llz p1atWrjVv/71r59//lnnfTCcZ8+e3bJlyxIlSkCq/PHHHxLF+/jx48SJExEz 454Ivf766y+Jiwlcs3LlShjAFi1aODk54Ys1a9b8888/JR4BIdakSRMEDwZv zmhAignNvXfvXnXv/OzZs+DgYIhl6CZ178yYDxiQpUuXtm/f/ubNm/QJesjm zZuLFCmCwX727FnrFs/qfPr0aezYseXKlTt+/Li1y/L/QJNNmjQJdrJv374y Z6IKIPAOfn5+X331VVpamrXLwqhGwWnW3bt3f/3116yYmALCsWPHSpUqtW7d OoNXIlbx9/dPSEiAHQgMDHz9+rW+KyEWJk+enJKS4urqKqFx6Eo4ent7e09P z4sXL0o8PSkpycHBAdHR/fv3dV6QnZ0NBbRgwQJ3d3coGukgCnYM8qpjx45w 6EOGDNEp0zSAOIqLi1u0aNGVK1e2bNmCSpBWTDm5W8NQt4sXL+a1ecZiJsX0 9u1bNHr58uUvXLig4m0Zc3P+/HkMpfDw8Hv37gkfwnp06NABQ7hBgwY8LwGD 3LJlyypVqtjI8rwPHz6EhIQUKlQIptvaZbFd0Fjo2LBIEgswmDxHwWlWVkxM wQEhR2RkpJeX15MnTwxevHXr1i5dupw4caJkyZLwyxJT9Dt37oyPj4cqwVCS 0DhfvnyZOXMm5JKLi4vBjVGwPLA/cMFwxDovePjwYUBAwLlz55o2bQo5g9Lq uxXKA5X022+/1ahRAypsw4YN0o/WZvv27XIUE0QcIjo/P7+XL18a+4gCjjkU E3Tx9OnT0eKQ1axh8xabN292dHSEOJo/f77QdmjQ4cOH40MEJ1evXrVuCW0B 6MqyZcsGBQXZgn6EmYXxh7OQPzsBn7Jq1Sobye3z7NmzlStXyll+oISUlBRY pGbNmtnIr1YLhBZwrNeuXbN2QfRy8uRJBCpyJktNIL82qzasmJiCAwwaPOy3 335r0G78/fffY8eOjYuL++OPPyCXJPwg6RFIicmTJyOYgcbRyHcnkJqairEG 6ZGUlGQwgn3x4kW9evUk9k8dOnQoLCwM2qR3794Su11gyadMmXLs2LHjx48X K1bM2dnZhFhLpmIC69atK1y4MK439hEFHHMopv3796PFg4ODJV6PMrbJnTt3 AgICvL29xe+Ov3z50rdvXwx2V1dX8bunAgtGTXx8fKFChaZNm2amUFA+e/bs wfiF0Za5ien69esNGzaEL7CRfR+fP3+eNGlSaGjo48ePzfQItNHgwYPRgeFb beRXqwJkwsCBA3v06GHLeuHJkyfwBYgoVM/MkF+bVSesmJiCw9KlSxH5b9u2 zeCVb968adu27b59+/CHoKAgfGvHjh3al8H4QI+kp6dDJbVs2RJGQztRA/Hg wQPaGgmXJGcDPqQQniuxiQkSadSoUQiiaHNi//79dS6e//HHH3El/mnRokW0 iclgjght5CsmhAGlS5eOjo7mlfxGobpiQv9p1KgR1CsCOVVuyFidrKysBg0a YBT37NmTU+cRz549g0hxcnI6evSoFYsBm49YVP4mplu3btWuXRtfsSk7CS/W p0+fpk2bGrTzpvHXX3/BAcGV5KcptQ8fPvTr16958+ZmqjQVuXnzJpz41KlT 1e11CpsVpiw5Odnf39/R0dHe3t7V1RWRDyTYTz/9JJGe11qwYmJsn+PHj1er Vq1IkSKFjaFo0aJDhgwRjAPUTdeuXRHP//777wafCNsSEBAAmYOvR0ZGaiyP EcCghmDBNZmZmRUrVtS3iQn+dPz48bgJrMqmTZvk/OS3b98uW7ZM33QljAx+ C92KFvAEBwdrC7E//vgDlgeWnH47CoC/mjAZK18xQY7BeCIYkMiqx2ijrmIS 5t7DwsL0vfFk8hZo0/Xr12MYVq5cmZfkiVm1apWDg0O7du0s2dXRBBBHNWrU 8PLyCgkJOX36NP6PeO/77783+N2XL1+2aNEiIiLCrAXetWtX+fLlly5dKnZb MOBz584NDw+PjY3V+XR4nMDAwN69e+tbDa4E2u1Srly5H3/8EV7V19cXtYd6 gH5U/VmWAc4UAUDVqlVteT2emKNHj7q4uGzYsEHFddpKmhWaaOjQoZ06ddq4 ceOaNWswphC5CSnpFi1apPp6ctPGhYC5FRMiSVgSd3f3qiaBOBm2hfOpFmSE d74EnCNi8hEjRkBQpKamov//KAJ/FXJuYxT/8ssvwn3gC+rWrVurVq1nz54Z fOi2bdvoICQMq+nTp+NugwYN0tAaDx8+JD2SkyudMI4gmnSulnn06JGHhwdu Aikh5+kGwQ3h10j6wVmXKFHC09Pz6dOn4mugkqZNm3bo0CH8Gf8EI4aqS0lJ MeFx8hXT58+fu3Xrhpq/fPmyCQ/K06Cr7Nu3r2nTpugqxr7IU1cxoWcilsPd MCKU342xOq9fv4a5w7CqU6eOnLPhChRPnjyBcbNYb4cXWLFiRdGiRTHMaf/U /v370S5FihSRs4kJZhleo1KlSnIm7kzm48ePlOcHkSF98uXLF0SkzZo18/Pz w+fQ3bASOr97/PhxZ2fn2bNnq77Cina7wFF6e3sfPHgQRu/Nmzft27eH37x0 6ZK6z7IMO3fudHJyWr16dV7ZKIreGxMTA3WDsEGteyppVig4yCVcL3xCYRXu VqZMGdUPK1EyLghzKyZUxdatW+Pj44cNGwZlR6EsDMuECRNWrVqV/N/AECE6 RXVBZMEA0sWurq76ttIzBYHnz5/TuUgI2ocPHy6dRnvPnj2QD7gY/mvTpk1i O3b79u2yZctK5FIQgKcYN25cXFwcfR26DAZB44uQBtAjsA90/dSpUyU2MZGe wgX9+vVT5YU4dFCbNm1of8qDBw9gmrQ3g//888+xsbH0uBMnThQvXhzX/Pbb byY8Tr5iov1f+LEF8Ii3u3fvurm5Ud8joSofFRUTbrVw4cJChQr5+Pjwm748 DWUUd3d3x+ijg35+/fXXvBKbWQzYHIQTqJ+WLVuaeyMJnrVkyRI0R1RUlOAO EIUivEEB6tWrZzDpDTxUsWLFoH/N2o6PHz/28PCAzYflz8mdMevfv//48ePh MtLT0yMiInbs2KFPEOHnwIbDWagYVOeIZj49PT3FboicS58+feBSVXycBYBU h1Ju27Zt3nqPD6fg6+vbpEkTVbJ8KGlWDIEFCxb06tVLOyjC4DJHrSoZF4TF VuVlZ2eHhYWRCBo5cqTBpUH4ae3atcPF6JPs9wsyR44cKVq0qLOz8759+6S9 zNmzZ11cXOiQ1sWLF2v0fPyrk5NTeHi4QcsMt4u+t3//fvoryQ0NvYDIdsaM GXQrDG06tgm6SXu4Ceeg2dvbJycny//h+sAN586dO2rUKBpEtIoYwbZ4x8qj R48GDRpEKQFxPWpD/klM2shXTMJJrHJWp+Qzrly5QkcY+/n5abzvM4iKiikr K4uOKtbZG5m8CLpHZmZm3759IYS7du2qynvq/AS9Z4eVNvfxTLh/yZIl4WXE q7CEGTODE2LQUzDCUL7mbkGEf3CalBX2l19+ad26NbyDfI1269YtNze3Vq1a qahAyU/BNaempoo/J/+Ootr+PiAxcL6TJ09GyWnWNG+xZs0aOPSEhATlsl1J s1Ik4+3tbbGmVzguciyomBDCubu705sCmadc3b59G8O2RYsWeUvCMypCzkhO +rWbN296enqigyGomDhxorYsoiEcFRVl8C0P/EVgYKDwMuvevXtwkQiGr1+/ Tp9AzkOPCPnGcQE6KsbRTz/9pH03ISewxKsH3GrmzJlTpkyJjY2NyyUmJmbC hAlJSUnaW7zxSbdu3TZv3kx/xS/t0qUL7r9s2TLhE3xdiL3xVyWbmHKMUUw5 uek18CxoNBMelKdBX4W4hjMyYYZHRcW0b98+jBdhGo0xE5cuXUKQoHriKQkw 8Pv06YPBBevECfzFvHr1qlGjRqgZOXlQTQZxCJ2HBWUk9i90EpPBTUwY40uW LEFsmZiYaNYXTLj5/PnzUc66devC8sNZSC/M0EZYKiBxaIWxCLtdhEOZCdqH a/AQdlvjt99+K1u2bLt27cyx4cvcvHjxwtfXt3r16sqXbylsVphQhBYrV660 wKtz5eMix4KKieJVlLZChQoyT7mi11JyQlwmv/L69euAgIDo6GjpyOTJkycN GzakN5hwZzqNGPVAOevihE1M9FeatEcUSm+d4CunT58uzvCAPyPWrVixYmZm pvbd4H1Gjx5Ni1H1rXJHjL127VrInMjISAgrXAwTNGnSJAxP7dJCXgUFBQnL 4HF/KER8ZcSIERQtIGaGzBR8OmSOkk1MOUYqJgg3fYkyGH2opZjQWzBYUP/e 3t78JsJ80DRIpUqVpBe9q87BgwdhHwoVKhQXF8cvEAUowqelQXLO2jONixcv IjiEJRRmq4gHDx7QSUzSh5LDj8BJVa5c2dyZ4eErO3fujNooVqxYiRIlENjD dMOzwK/JX/lGSzKCg4PVes20fv16+KAmTZqIbyi8npO5v9hGQLEnT56MnrBx 40Zrl8UU4G5iY2NR7fHx8QrdtMJmhfB0dnZG/5Q471ItVBkXllFMlAyZAtrm zZvLHIPw/n369EE0yK6hwAKJgWhfev/gq1ev2rZtS72rTZs2+haenTlzBsME A0RaMVFeu1mzZgmWBAMtPDwcUcrKlSvx1wMHDkyZMkVQcLh+2rRptIpe58tQ WqyLC/B0gyvD6eBaXCxxEtPhw4eFTUzE6tWrUTxUwsePHxEwIGYWT56cPHmS NjFduXJF+un6MGpV3uzZs1H+5cuXm/asgolaignuCU4K9Q/LyRNN5gOKaciQ IRUrVjTTxPi7d+8uX76snVwXwXaFChXQvv7+/nzMlpidO3fCRhUuXFjFE800 SEpKgplFoKWRBIze6vr6+kq/+KMjzgcOHGjugQkXAOWIsPDYsWM5ueum8GgU D92mU6dOMpPSoAeGhIQULVr0yJEjyouE8TJy5EjtHRnCgvaIiAhLvq5VCMJ7 z1zMd3aVuYF5gVQx2GmlUd6s6GZ0LMugQYPMfWKCKuPCMooJVYGYk2LaCRMm yFRAdGAfh14FFoSRCQkJvXr1khh0Hz58GDBgAHWthg0bSsxUXLt2DaoBWkN6 YELOt2/fXtjElCOawBw9ejTuD5cnTt5ISzLwr5MnT9bXsUmzwKEbXOSAIYzL NDYliaHQGiURGyh6febj4wObMGPGjF27dom/onATU46RmR9QD46OjjKTqDOE WooJvgAeAc29YsUKtcrGaGNWxYRRTLIXpk/DWD18+LBSpUr8DlGb33//vXTp 0nZmO0YT96SkqRqGFCN35syZdv+ciIeOgTbSLgDasUuXLjJPA1QIGQGN120o FT5BsCdkFES0L+EKhVnu4cOHK1/oiJpB8Gxvb79u3Trx59evX4cCRbVs2LBB 4SMsyZo1axwcHGSevWWbIM5p2rSpsHLGNFRpVqpMXIybmHVdiirjwjKKSbyJ aefOnTK/hTi5e/fuOk8OZQoC6ACIGSQ6AB1TXqhQIVqPcePGDYm7PX36FNc0 btxYejLh1q1bQUFBGoEQzS6GhYVNmTJFYxfe/fv3JTYxEbBOpKog7iTe/8Ix fffdd7gMN9S3cgNjGYNCY1kIpQEEK1eunDBhgni8U7pv3PObb74x2fHJV0z0 Xpg30RiLKopJSLthQrI+xijMqpguXrxYsmRJtCOMlcaLJJg4yi6iLy1ngSUr K4vyAzdr1swcGfOEBD7t27cXz+DR3gEhq8+5c+e6du2qfTTenTt3XF1dXVxc 8AfVy6ZRzoULF9K0ubictLZciAwh+lBOjb0nGlDKI1W0OfwCXLnGTKCwICEw MFCVvG2WAe61c+fOaHGE+tYui+lA1COYUaiIVWlWBGboY5QW23xHJ6g1Liyj mIRNTPosBsqJ5tPYMf3mzZsuXbrABJm1bIwtgy6hT2JgyC9dupTy7laoUOHs 2bPSt0KA0bJly0qVKkkHOevXr+/QoYPGTijaPgDLMHToUI35B9gKfI7BrnMT k8CxY8dKlSpVokSJw4cP67vm999/r1q1Kn5OaGiovv2kd+/exQDXOC8PtVSn Th1ouoYNG2pILWgcKB0HBwf8Lp03hMVo06YNGQF9lnPbtm2oZznpjGjmCoqP z1AzClUUE/xXVFQUbYIzd2BWwDGrYkIIgTGLEU2Hm4j/KTU11TGXPHQEjGWA m0AsRNNNZjI+CJYwQqGPxC4gLS0NsQ0MOxwQLYqYO3eudtP88MMPaDULpLFC NBgREaG9ReXx48fVqlWDD6Kg9OjRo4h1pQuDflijRg1Vpr/oTG04EfH85+3b t+HvypYte+bMGYX3tyToXYgilKxytxHo0BMli09UaVYaNTTv3bx5czNpZ7XG hQUUk3gTU3BwsPb0S46urRk5uSEx/H6ey9LPWAB0qi1btlCSBHgrfWvYxKA7 xcTECKtYdV6Qnp7u7u5et25dDflz48aN0qVLe3h4QLCIP3/16tXAgQNRhoCA AOlXVyjw1q1bnZycEM1qp9jCvx4/frxx48ZBQUH29vbTp0/XubAEtrpLly5w 0Dt37hRfAA8OP46BDL8svh5jZ9OmTYULF0YV6TNflJiXIg2NX0cFgxwbP348 LnB2dj5w4IB0aiCUsHLlyq1atcqLGYRMIDs7e9GiRdCSaNYGDRocOnTItDhW FcVEiV7pXJgXL16YfB9VgDEfOnRouVx69OghHlC3bt0aPHgwRhkCDzhWdHtI cvOlODMHZlVM6AwQRGhKjRlXOHfKG9+zZ0+DgTc6QFxcHHomAnWYHQxJGDd9 nRPdGEZJlfx71nou7CG9oId5FB9criKw8IjoXF1dKesOnrh582b0Xoqf0Vgw lZ07d9Y4Fy9HdGCT/FR+JlcjHVauXQlv3rxB4enYvrdv3/bu3dvggb+4bevW rVFsVdJQI5CuUqVKnz59SG8+evSoadOmZcqUgU9ReGcLQ9vWZOZByrHeiDAI LWQ1+ZRGQmGz4vdCbaFOSDGBGTNmmGNVrVrjwgKKSbyJadKkSdq1QQeGyjmk iWGII0eO0OoUBJlr166Vac/pXSd6u8b1+OuqVavo0GQIFuqrLVu2FEQQLFho aCg0mvAVmDWYha9yoa/gDzVq1NB4+6PB5cuX4YNgHHDl8OHDly5dunz58tGj R/v5+fn7+8PIIOgdMGCA9mZb3BZ2iXKnk21BICqIIEpNgyhUmPyEHUNESsWD oabfBbOQlJSk8dvxxI4dO+IyhH/i00zg/SHf6BUefV2wacWLF9eXqoumYRcu XFgQJsChClHn/fv3h09ED0EjokvoS4cojSqKSUgLYPUTGSDVYc9RM9BNp06d QpyA+B8BxqdPn2JjY2vVqoUxS5oO3Qwji04EyEObAsyd+QGDC4EENDhiiWnT pm3atAndgyLzJUuWaGeE0ABRAR2mLIZOYNE5bBEEdu/eXedkplFY67kEaoYs lb736cp58OBB+/bt3d3dBw0aFBwc3KtXr4cPHx48eBDjDo3VrFkzlEH7l+IH IiqTv7tQSTUi8INnRGG0o+7Tp09Xq1YNxgHlnDlzpsG5aCHLq1ppZGAK6tSp ExISgnrDD4yIiJCZNtl2oLcqqBP4cYPDMMfaI0IaWGAfHx8UxuDRLdKY1qz4 +fixEJ6enp4IS2DfKI5ycXHRnnNQjlrjwgKKSdjEJN5dJQZhJKLBPJqnkbE8 GRkZtP3ZwcFhzpw58oU2FFBAQID8bI1m4v79+6tXrx47dizibQSK33///d27 d60rMeAQEQEqXH2BhhgxYkT58uWFg6vyMWivxMTEyMhI0iZQT5Tzx7SN56oo pl9//RXaBGXo2rWrddXH+fPn4X0oDcuTJ0+qV68OTQQdPWrUqB49emhsi6Dk /KVLl4YjsE5xjcfciolAIx49ehT1BvkZFxcHZy1n8hlxCHUDCj/q169ftmxZ +muJEiW0N7ghPEOHURg1WfG5AnQEDE1Tm9WcokufOXNG3I0x/C9evJiZmanz uRgIVatWRScXn0mhD4XVCONz48YNfUfCwVhhbCKglVk/dFSEilvDMHBu3ryJ GDWPHihGG3VRJxj+BgMPq48IaaD4WrVqhcLoXEdqFMY268ePHzFIIdaioqKy srJyct8BUbobMG7cONVfM6k1LiygmMQnMSGUys4FFubx48coJDQdehHUn/Tk PMMQ8Eq1a9emkYVAwqiUpPQuqVSpUidPnjRfCfMisFrdunXTXpVnFIge3d3d 4UoskD63Z8+eDRo08FWMn58fFLTBBSra4McGBwcLee8pc6mdqRk2VFFMtKXO TqX0ViZD+fYBeT0MWEqYDyMfERGhnRM7IyMDQ9Le3t7k88Isj2UUkwnAjbq5 uRUvXnzKlCnilZmIZ7p37w7d2rp1a40Z7IMHD4aFhSncPmCt54qh5VLoadHR 0Ta1XoVO+ZRYGi1gC9Uohnawyl+Blu+h3dDoYwhcpaNrW2tKbQT1Z9Zzn7VB zDZq1Ci73NXFwup9IbOKXe6qcpsV1OZWTOJNTBI0atRIZjp0piDz7NmzZs2a UZ8x7eU1pAE6W1RUlLmT/+ctfvnlF0SASuqEDtSGjzDHK3UNIE/Q+j4+PnUU U7du3YCAAI38hwbBj12xYgXcjSDYSa3ADy5ZssSE+TpVFNP69etp5aSgVqwC LHmbNm2EFZ74AyU8r1atmsZBNgQdlGaXpzKi26ZiQvgBTYp61plyCn118uTJ COGOHj0qfJidnd2rVy+FWb+s9VwNTp06haegI3Xp0sWmtj8fPny4SJEiZcqU kV6tZCPVKAbPwuAtV66cwsm0fAOtZEMfW7VqlcRlqjQlrOWiRYvic9m1a5fq ogY+YuLEifgt4eHhFjsMCw/Fj3J0dEQ1apxmhciB3sGZkFUDlYMqorrC/XU6 GlUwt2ISb2IaPHjw9evXb+SCP5w+fXrjxo1Nmzalf7KpSSHGBnn79m3Xrl2p L7Vo0cLkve2HDh1CqCNngUQB4a+//oIASU9PV3IT2ChPT89ly5YVhB1M8G7i 5RNfvnz55ptv0C1h8E0TjKoopsTERBodcXFxVmwF1EBoaKiw/gGlgo6zt7df vHixzlLt2LHjq6++cnBwyEMLs21TMe3bt69GjRoXL17Ud8GbN2/QNOPHjxcE 9cmTJ2FLFaaPttZzNRCysoeEhNhU5hnq4W5ubtK9xUaqUcz58+ednJxQq6Zt z8x/UGo1GCuNJEsaqNKUeAQe5OLigp4THR2t+hwvrPGsWbMwXhCEW2yfAnoU bQDXtvYoA82Hm3BKFCoHVYSKQnUZbB0lmFsxGTyJCeqpXLly5tuqyeQPMCK+ /fZbCgh9fHyU5I+FjYqPj69Xr56+M48KFJ8/fx43bhxibCVL6WDrunXrJk49 kb95//792rVraQF2Tu4KPbhR9MzOnTubVgPKFZNw3gRYsGCBTMWEsZCtDPxe jWfduXMnLS2NIgF0qn79+qFIEBc6h5swz4nALA8dJGGDiunTp0+9e/eeP3++ dNPv2bMnKCiIppsw9vEr9ClZG3+uNpDqpUqVUnffjSqkpqba29vDRGhMqoux nWoUQ+sJixcvfurUKZlfuXz5cvfu3f39/T08POrUqSN96IbJmMNwyQGBh6ur q3S2BLWaEmF/lSpVzGdhBJdhsSVeqPYuXbrY6cktTEaVxMKuXbtMewSqC5WW dxWTeBOTziNC7t+/jwBY9cz2r1+/RhzYvHlzb29vCE+NEz+ZvAXiLoT0Dg4O 6EhVq1aVSIZ59uzZpKQkg0uSYNOmTJkSGhrKy7NhNuHHlbzhhRkcNmxYjx49 tLeoFBDWrVtHp5abbKhVUUzCOvBly5YZvJ52Gwn5D5UAC6+v2MIiFn0nrr57 9y44OBgXqHJQpirATwl7kFWpnOXLl8t/OkZib9mIk2qSyzM4lfT8+fMWLVr8 +uuv+PP169fxZ4WnF1nrudoIx/sGBgbalC1au3Yt5Ud9+vSpvmtspxrF0LEa 6MPa6Vv1kZWVtWPHDogmu9y5TdWPObCM4dLHvXv3ypUrpy+JGaFWU5pbMYEV K1agHnx9fS2zb+j06dOUCkNnNl1K+WuXewK7xLGV0uRpxSTexATxonPXCULc 1q1bC7O1AnCvqDSTV1dCs6enp8fGxqLyMS4UrjhirAidToJeil5UpkwZfacp 5fyTq23RokVy5o6gwpKTkxHrFoRVZGblzJkzCxYssExCVBvkw4cPbdu2Ref0 9PSUmEOWRhXFREsswNKlS+V85ejRowMHDuyuDCjlUaNG6ZtJFtL3wRXqnMeA PHFxccEFkZGRNrL3BAEP2mLQoEED9TNgwIDq1aujvVADEpdFR0d/9913FBTJ BHbJQTaJiYnG/jrKipmSkoLmgMRGaGeZ9fAWeC7CTlJMTZo0sal3TBs2bLC3 t0eHefLkicJbWbj5qEqNPeIKZZs0aRIaom/fvubIAmQBw6UPiBrYKyUvQQQM NqUFFBPlQrSMYhJ6BXqUzklvXDB9+nRcoGQVaJ5WTOJNTOIVm2L27NmD3qI9 6rds2dK5c2eFp4pAKBUrVszDw8PkSIaxOj/99BPt50VT7tixQ0LgwB8FBQVJ LB5mGNW5dOkSrQWCWjc5elFFMc2fP5+MrfxVeeZmxYoVhQoVgovBKNZ5wc6d OxF+4BqjXsRYHRtclScfhElTpkz5888/Q0JCzp49m2+eS0vI7GxvHxNlnKtc ufLDhw+V382SzUd5LOF/jTp4ApWPsmFQJyUlma9sVoESxTs6OooPZzQZ6aa0 wKo8chkNGza0QIK+t2/fUtaCxo0b61wEKBz07OnpafLcQp5WTOJNTEZlo3r3 7h2k1rp165Q8Hf1h0aJFdrmZQArI9or8x+nTpyk1MbpQYmKi9HI7DJPQ0NA3 b95YrHiMtXjx4sX169evqsG9e/dMngiFkZk5cybJeXHiIxPuozzzAy2xALNn z7YFxfT58+fIyEi73E1MOudyMZwnTJhgl3s6iSVDd+XkacW0ffv2wYMHI4zv 1q2bJU86NvdzL1y4QJkf2rRpY1Men04cc3FxuX//vvK7WbL5MCqdnJwgmow6 Kw0/083NLV/mi4C68fLyUusoBOmmtIBiio2NtbPUieePHz8mOdC/f3+dDhdj FiMXF7Rt2zZbxunAOsnTikm8icmow53xxUaNGil8hQ1/TanVlJ/PxVgFhMQe Hh52uce4x8TESIe1UNlhYWHmPruQsQWuXbtWunRp5evYBaZPn25aSbKysurX r2/331snPnz4oL3MWBpVFBPlVkJhJk6caMXs4gLPnj2jDUEtW7bUt4mpefPm uKB27dr6zha0TfK0YoJ77dKlC8Ss+eIKqzxXyGOP+NO6JzhrAN1RokQJ6A5V Tl6wZPPt37+/cOHCiN+MypJERy3Uq1dP9U1MVgdGPiAgAH1s8eLFyu8m3ZTm Vky0i8EuN2GRBVZEZ2ZmUvJwfRN6dKZhoUKFlGTczbuKSbyJyajcNYg30IsQ ISt0+k+fPvXy8jJq0yJjOzx8+JBiUbvcU0ENzjls3brV2dnZqMUDTB7l06dP hw4dWr16dbIabNq0yeRVu8KhmcJCOPwff46NjTXKfKmimPBdOsHWtFN0VUc4 aEliExOCMbvcowxtKsQ1SJ5WTCdPnvT29m7YsOGjR4/y03MpmEF3GjVqlC3M GAhAbri4uBi7G0gflmy+jRs3Ojg4GDWhgZpH8GZntk1M1gXKgrK9jRs3Tnkf k25KcysmtA4l6Bg5cqQF/AV+iJubm53+o6zo2DJ4hBs3bih5Sh5VTOJNTEb1 rp07d+InS+RDkwmC5+LFi1erVs3CfoFRTlZWVuvWranzdOzY0WDiI4ReUMdQ WMbO7TOMyQjHMJUuXVqwV2/fvoXdg6Az6laqKCbadIDyRERE2EIWBWETE7yM zgvS0tJoE5PODAYILxFnxsXFafgOVHWPHj2kD+y4evVqnz59GjVqhGCvcePG 8CnqhgRWUUyoh9OnTyvfC4M4DZ5R4gxEhMdNmzZt0aKFxu6GN2/ejB49etas WaZlZDL4XAHTmo+SeNvZ0j4+gjJGOjo6qpKzV341KoQmf1CfoaGhEvvC0FgQ RzVq1IALDgkJQRfF/9EQ33//vVmLZxUwBjEEUCdRUVHK9aB0U0ooJlw/bdo0 V1dX3EGjeCkpKWgOOVbi/fv3GON2hjIF3b59e9SoUZ6entWrV69Xr16bNm3k p5oXA2MCbajv9Rx+0fDhw/Gv+L90xUobh7yrmEzbxHT//n2Mu549e2rbZEiw ESNGoDbES2oxqC9cuIDPEaX8+OOPgp0UNjGhfTdt2hQcHAyTBTmPblZgk3rl FTCQMSJILgUGBhpMAJ6ZmYmBg4vHjBljU1OLTP4G8rxBgwYUUQirztLT09u1 a2fs8RaqKCZ4ycqVK9tZ9kRCfcDr9erVy07yJKZx48bZ6TmJSTjIafr06eJB jc+jo6Pt9J/Sm52dPWPGjHLlysXHxyPMw3eXLVsGHzd79mwVjYNVFNPhw4dL lCiRkJCg8D6QotD4EpJz+/bt8NraG7R37dqFmgwKCjJtr6jB5+YoaD5hG7ta u/JVBKFLhw4dJDqtUcipRlVAJx84cKDEOztcsGLFiqJFiw4aNIjmKlGqOnXq FClSJF9uYiKgBAsVKoTIRPmOaemmlFBMFF3DGkCfij+nhW2wqHLyc+JiiCA0 lr75PQTh8ErFihVDPEYbUdENEhMT8ehr164Z/nn/DXrLd999h+40bNgwbYUI XVapUiU3N7fr16/ru4Mc45B3FZMJm5jQgvD1aEGdXQg3wa2cnZ2Fxnr58uW3 337bunVr1CEeBActiFO0NW1iQufp1KkTJbrPyMiAj2vfvr25kwOgPyxfvtzV 1RVCOL/aDTPx+fPn8ePH02kLNWvW1HmGlwDE76pVq2hhT+HChQ8cOGCxcjLM s2fPvL290fcmT55MFvv169ddunTZtGmTsbdSRTHh6fDjKI/0yS+WAcbZ19fX Tv9JTMIJ7wixtNf80LS89rkn+LxevXqoqJ9//ln7njD7o0ePRrS/Zs0aITSl ZnJxcVGy2EMDyysmNCjVp86jTIwCggi30jcTJcyia6ztxOdjx47F5/jhpr3d kH5ujrLmQ5EGDx5sl5ua2NbSpeK3INKjDVbKX/4arEa1oBEKBaoz/kR/WLJk CRorKipKeAMlpDvDILXMET+WhxYbI7ZXfhKWdFNKKCZoHMTJ2naeom4vLy85 3QPDBIMFOkXnD4HMR3SNSGzChAnC+4v09PTixYvrM78GuXz5MmL1WrVqaRQb gwLdBn1J4rQXmcYhjyomIbO6nbzDETDQUJJq1arh+qCgIJ2rsGgJh5AI8cSJ E2FhYVu2bIHwXLBgQd++fcXiFC2C7kQr5AV9RPOWuIm556Bu3bpFGd6Av7+/ Zc5Tzgeg2yxevBgmmhTQrFmz9mgBI5OcnIzehdanXRIE5JWElVCyzgRfgb9D t4Rxw/CMiYnRqbjxIWRy48aNYYIQ7EEsr1y50hYWRzFmAo07YMAAYSsrutDU qVOjo6NNyGysimKCFR00aBCtElRRHZgGnCMtEdSXjOX27dtkJMUzXQLnz593 cnJydXXVSLInfH737l3te27evBnurHPnzuJtj5RfwsHBYePGjWr8sv/FwooJ PW3UqFFkGBUqJsruKLHHBM4aLhvVtX79ep2fm5bD1uBzc5Q1H75CC7llhosW 5sCBAwhxlR98I6ca1eLevXvQBWXLlv3999+1//X48eOItxGsil83CIeQItDK f5uYCMQSderUUb5B3mBT6lNM+CI8Dq2+FsctwuddunSRs252w4YNGFZt2rTR 3iROa7Twr4i3xT0WSq1YsWIIckxLy4bbInjDGP/mm2+EtV6wpcuWLcPoiI2N lYiXZBqHvKWYULfwaKjVuLg4cpcAoeMvv/zyqxaQPAiAk5KSUHsIMuli/Had +8KEPLSDBw9+//79/Pnzu3btKnH6GKXNwW3FC0LEs2Sq/F59IFyh1152uYlz z5w5Y9bH5RvonbKd8djb20+ZMkVi5tO0dSYY4Pv27XN3d0dno8Swly5dghOB 8tLYMJWeno7L6tati65OBjAjIwO/JTEx0aZW1DPqAhPUoEEDmOgxY8bAdENA mXawhSqKCUCkS28dshiUEwPqBqZY5wU7duygTUwos/a/wgvgn7ST7NEPxADU XlwN74O2wEPxaI3P69WrByuxZMkSZb/p/2NhxQQzhVAhJCREuWKiA5fj4+P1 3eTmzZtwXnDfV65c0fgcwbOxiablP1dh80El1axZE5e1b9/eplKLE5SHSucC VKMwWI0qQs5R5ztifELrDKGMxFEuncSUXzcxEcLbTIVrLA02pT7FhO6NTo4C QNSIvwspQWepy9nHJyxvTkhI0L4Ygx1xjqOjo8a0CT1dyfJmPAv9Cr8L0VFM TAyKig5TtWrV1NRUifhNvnHIQ4oJg0jYrW8y9evX17meBP4xODjYLldWN2vW bM6cORJWEY0Ct4KL27VrJ74MnSQqKgqfd+/eXfnvlQAPQk+AVnJ1dcUv0lhY wlgYk9eZQNGjEcVnJdD+ROh68dl8aWlpxYsXhxwTUq7RAJe4M5NvgOM7fPhw SkrK1atXTXagaikm4Ugaqx/J9OnTpwMHDly8eFFnMYShp3PJPewn7WTUSLKH z3v37o3PJ02apO21Kaexdl6vGzdulClTBmMWTlmlH2dRxXT//v2wsDDUEiXp UqiY7t69i4hi+/bt+i6g41a1D7XcunUrPodZMy27jsHnKmw+evkoM1y0POgw Q4cO1RegysdgNaoFxteoUaOgfZYvX65dYIxraGf0B41cFg8ePKCTmGxtYaS6 0AFb+tYby8RgU+pTTHSKrvaxwg8fPsTnxYoVO3bsmMGnv3jxom7duuXKldPe kSRsCdR446AiUNlXrlxZs2YNrBnchMFqlG8c8pBiMivoXS4uLmhEjFNSIjDp I0eO1Dkw4awhrLTDBiFZx7BhwyxTbNjJCRMmWMC+MRKYts4kMzOzevXqCIrE C5zQneLj4+1ER36gB1aoUAF9UmymMK59fX3RV3lrFSMHtRTT69ev/f397bQW bNgawvnv8Nrah7aQN9deLU+fa29uyskN8GhbcXR0tMYcBYI6hHaI4hBUq1V+ iymmjx8/4kGJiYloTVUUEwRR6dKl9VWFMLmkkb9L36STis9V2HyIvhDe2/KK jvT0dESzCLOV5J6SrkYVoR0i1apV07nJJSkpqVChQmXLlr1165b4c3qzrHzx oY2DX1e/fn1nZ2fT3rcSBptSn2KiTUzaq0/1bW7SCbVUnz59tBfCwdTQC8Sw sDCTT5JVEaOMAysmAi4S5aQJLvgLKN+5c+eix8KrLlmyRGO+EfEq1Kh2KgCo WgSxJq/ENgEE1fB3Bw8etMzjGJ2YsM4EPWrixIkYpCNGjND5WooSrgLS5l27 dtUIUNH0vImJkYlaign9c9KkSeiQ7u7utnyqAgItWrfcu3dvEzYx0ecIGITJ yTdv3gQFBSFmXrt2rfgruDnl+woODlYxfyDqecqUKdJ7J5WDXpGamtq3b1/8 TOEgGCWKiTbmIxJGPKzzAlSjnMklxPz67mDyc5U0Hy6jHYXar8ZsB1qEgw58 9uxZ0+5gsBpVZMeOHYi4IJO1BbKwS12jtmljDj7v378/WgRffPjwYb7MXotf irAT3TU2Nta0wSinKXUqJjxu1qxZdlpHSGhsbpKufBov+rLk0WC0s5nkw0YZ B1ZMOaIwQENjpqWlofCenp6kqVGB6CToOQ8ePHDJRcPh0vkglStX1rlr2BxA 33Xu3FljHoaxMCasM6FV8RDdGmkbs7Ozw8LCSCKhv126dAmCy9HRUcVN5UwB RC3FBM6dO1eyZEncyupbmSSgIQlrrHPXKm1i0h6wNLMN/4iIHfFnVFSUsCvk xo0bNPuRkZEh/gpMvZubGwbyTz/9pO5PQLhi7pyr+FGtWrWid9yqKCbKhy+R sY0ml7QX/JDCperF05cuXTp37lz5xTD4XIXNB3Pt5eVlC4tRpdm3bx/C1O++ +86093QGq1EtPnz4EB4ejhbXaA4CNRwXF0dbxsTzhOQcEdkmJyfn5BoieMn8 epgLulzdXExTr3KaUqdi+vjxY7t27bRXLAubm+bPn48GunLlCipf30GW169f R3gM/a5zFkIIcubMmaNzNKFNtRcGmA+jjAMrppzcyZmWLVtiJK5Zs0b8+dGj R4sVKwbFRIk7Tp482a9fPzQ3nUuiMQEI70brQGbOnGkx4Xz8+PF8bDTyBKat Mzl48CBcm9C1BGg84luzZs2ixC8I4cqUKaMzmxDDyERFxQRr2aZNG+rwtpmu Shh6Tk5O2otShE1MAQEBYo//+PFjPz8/u9wjDjFgMeIiIiIESUWzHxonWSAa +fbbb/GVsWPH5rkXvmjHvn37bty4kYIWVRQTnXEscQdSshpr2/Boai+aEkc4 jQbSkFQKn6uw+WibA+yw/IPvrZLaFMFJjx49ypcvL7+cYgxWo1rs378f7k8i UkLciApHXC3eJ56Wlla0aFF0nrNnz6KECQkJRsnqPMf69esRPC9btsyE3yin KXUqJtrERHGs+LsQ48WLFxdyI6xatSo2NlbfKVrQ7CVLltR3EK2wj2nkyJHa odHNmzebNGmC326xljXKOLBiysndUeLq6ooOdunSJfHnlG2JphzRN2JiYig1 GYQzPqxWrZqwEz8nt3vjYigvi721h+sfNmyYOEUAY3lMWGcizKF17txZY60d vdZEV7xw4YJwWb169Sw55cLkP1RUTGDLli2wdTCAljxfVT40JDFwEKnq28SE f0UALGxTRZyAwUiKacaMGTCtGHqLFy8mr0271PFPCNjGjx9PYxb/R8yAehgx YoQJ+d6tC34XfNnQoUOFiFQVxQQbiIA2PT1d578KSrZQoUJC/gQUAFUNZYEQ 2t/fHxoWWikqKsqoJY4Gn6uk+YTDjgcMGCBT8lgxten169fd3Ny++eYbE9SZ dDWqBYZnSEhI/fr1tU9JE3j16lXz5s0RldFUIVpw8+bNJD/pXQC+iwF79epV sxbVurx//x5D0svL6+HDh8Z+V05T6lRMtFnJLvecO3rHjR57+PBhjM3KlSvT XEdWVlbXrl01omUBhC4wrePGjZN40fn06dMGDRqgo4pbEMNw7dq1GDXJyckW y2dlrHFgxQR++uknFFJ7OyGaHsMTPQeVduXKlXbt2gldFx0SNUxHSaJHHTx4 EJ0EbtqSa/sR/KBsEmaHsQAmrDMRsnTSC27hKwgeunXrRhnwyN/ROs+mTZvq jB9gVdDfbGElMGPjqKuY4EkRz9jb29tmcnsakhhHOs8ioc1KsN6IYMuXL9+/ f3+EXgEBAWlpaU+ePKHzytu3bx8RESEspqWF7g4ODsuWLRs8eDD+jOC5du3a cO67du3Ki8kqEe3gl9KJBoRyxUR5Pg1uYoJBq1WrVrFixcLDw6FEGjZsOHXq VFT1rFmz0Cht2rQJDAw8ffq0us9V0nzXrl1DPylZsqTM/UHWTW2KtkNY4uzs bGwGXYPVqAqUZxjBErSk9JUPHjzAMITwHDRoUHBwcK9evRB9IdCqUKECKrNZ s2baG8zzH3fu3IFiGjp0qFH6V2ZTaismYRMTtAzayM/PD+MFlQ/LcOPGjaNH j+JzxMkw/ghddPZkjLVWrVphCBvsRbgAwxCt2bNnTzQxQtl69eqNGTPGBHmo BGONAysmsHjxYp0ZZVFd6BilS5eGoG7UqJH4QDF0YAxY9B80d1hYmKurKzSp JVfHwZ6g30L7W+yJjE5MWGdCWTqF9dgCGCxFihSBOxCW6lGSVe2klzm5L62G DRuG2+a5+W3G8qirmHJyZ5lwN4S7puWCNis0A+bo6JiSkqL9r7SJKTQ09P37 90+fPkVwjrBEsPz4A/6KcSd++SukcLly5QpqEkLj+PHj9+7ds0G1KIfXr1/D o2lE1MoV08ePH9u2bSshCkjJIpiHBnn79i1UG+pZbL5evHgBVWJsGjQ5zzW5 +XBPmoKW+dbGFlKbfvnyZfr06XA96Mnyv2WwGlUBww1R05o1a2T2MbhCOFZx +I0Og0rOzMzMo6PPWEinQAXL/70ym1JbMQmbmJYuXYrefvv27VOnToljj+zs bAxb9CudhcHjZs+e7enpef36dZlFxQ0zMjIuXLhg7j2b+jDWOLBiyskdg6gu fQcwkVfVacYRtZ4/f/7y5csWPtIOrbl27VrEA/l+jsXGMW2dCb34hs4SXkri i9DjNHsmThsC3zd+/HjEfitXrhSGMB4KO9aqVat+/frZbOImxqZQXTHBZkZG RqJnJiUl2VroAn+HsmHgaHthYRMTQkr5xpMWuttynjT5oLEWL16M35KYmJgs AkKSzmqMiIjAX9etWyd+AyUHaMyEhASJHTQ0uaR9zLdCDD5XSfPRHvZq1arJ UR+2k9r0/fv30dHRLVq0kP/CyGA1KufWrVt169aFc7TN/Y+2CQYs4nN3d3dI J5lfkdmU2oqJNjFB7+vbgiRdzo0bN3p4eMgvpy1grHFgxcQwJmPCOhPxJiZE Jn5+fgjhQkNDXV1dEcVpx3jws5BL+FdcM3To0I4dO0JV4f9QYbYWqTI2i+qK KSd3xQj8eI0aNcx0CqE5EE5i2rNnj8yvCAvdNVK75FHQE+CUR4wYMey/QYDt 7OyMn+nv74+/4idrnJWgEGFyCUbMktWopPkQeaJaEFCtXr1ajrG1qdSm2dnZ Y8aMgXNRcgqqimDotW3bFpE8yyVjQd/buXNnQECA/Hc3ctBWTDSXa9qhBhBK KKHNnlamExOMAysmhjEZE9aZCJuYFi1aBEv46tUriCmJV5wEhnZmZuapU6ee PHnCQokxFnMoppzcFBC4Z9++fS38kt1kaBOTm5ub/BcoQmqXDRs2mLVs1gU2 ytfXV/kJtvoQqjE1NVX1m8t5rgnNt337dnTvb775Rmb3trXUpmhH+AsbkfmQ n3JOPmX0gRGq4olvOVqKSdjEZFp6+b/++staK+tMxgTjwIqJYUzGhHUmtIlJ O1MEw5gPMykmWrheuHBhSyaDVcL3339Pm5jk7/67ffs2zYrk78RcgmISVher i1CN165dU/3mcp5rbPPduXPH09OzRYsWMnMrcWpTJm+hoZg+fvzYoUMHdOAl S5ZYt2AWwwTjwIqJYUzDtHUm9OLby8vLhBffDGMapJgcHR0nTZq0Q0RaWpr4 EAoT+PTpE0ZB2bJlxVvdbZY9e/Y0btyYjhSRyaNHj1q3bh0TE6OxMyU/AfN1 9uzZihUrwpr179/f2NwLcrBWNZr23KysrJCQkEaNGhmV/JZTmzJ5CIT9JUuW HD9+/KxZs+ALsrOzJ06c2L59ewtnq7Mi8o0DBi+qCBWF6kKlqaWYbt26BRcs 9sgTJkyAm2bFxOQ/TFhnovDFN8OYBikmO13oO3hdPh8/fhw7dqyXl5dRubkY W+DLly/R0dEwYpS+xt7ennpFuXLlzH0uj82C8GnIkCEQPg8ePDDqi5zalMlD 7N27F0a7ai6DBw/OxzNCykHloIqorlBpqizVEN5Ka8OKicl/mLDORHjxvXjx YrOWjWE0+P3331NSUtb9N/hEld3Ef//995UrV2ww0zjDGMu///3vjIwMExIm cGpThmHkg9BRp1O2kY2QDKMiJqz3+Pz5c0F78c0wDFNA4NSmDMMwDMMwDMMw 0nBqU4ZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZh GIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZh GIZhGIZhGIZhGIZhGIZhGEYfz549y8jI+M9//mPtguRtMjMzr1+/bu1SMAzD MAzDMAyjJmfOnAkICEhPT7d2Qf6Xf//7348fP7579+779+/Fn0PNvX371lql kgmKHRgYuH79+r///tvaZWEYhmEYhmEYRgUyMjJ8fHzS0tJ0vmB6+fLl+PHj e/7D4MGDcb3Be3769CkpKalPnz70Lfxh27ZtEi+w8E+//fbbxIkTq1ev7ujo WKVKFW9vbxcXlxYtWpw4cQL/CgGSkJAQERGRnZ0t/iLk1erVq3v37i08KDU1 VY5awW0HDRpE3+rVq9fMmTNlyrHPnz9LX3nhwoWaNWv+8MMP/MKOYRjGNGA/ YWx1/hP8i4ULYyzwQSkpKWFhYX5+fm5ubv369bP9Mktw+fLl7t27+/v7e3h4 IFq4f/++tUvEMDbN69evx40b17x5c4SysACbN2+2dokYFXj06FGjRo3i4uL0 qQzY+SNHjkCV1K5d2y6XmJgYg5Jky5Ytzs7OuLhs2bIQXFAxt2/f1nfxzZs3 u3btam9vD4MM4SboEaihw4cPN2zYMDExcc2aNYULF542bZrGo0lqQZ5A+FDx 8HNevXolXby7d+/Wr18fF0OdRUVF4f4nT5788uWLxFdQDytXrmzQoAFcRpEi RYoVKwY1d/DgQZ1VgfJgjOCe0sVgNPjw4YO5ZSb0/pIlS/Agsz6FyWdYoGcy GiBKL1++fLNmzWbMmAH18fPPP69du3bChAmI2Dt16qSxAiE7O3vFihVXrlyx Vmm1uXHjBvxmzZo14WjGjBmjyqqDrKyshQsX3rlzR/mtjH3ujh07unXrht8C Dfjy5UsLF4DJyQ1CpKMUxnb4/Plzenp6bGwswsWiRYvqW8EFt7J3797t27dz y9o+aNNhw4ZBBbx48UL6yjdv3oSFhYWEhMBgRkZGSjduZmZmv379fH19cfGU KVMkPAU0EaRQ8eLFy5Qpgz6Dv2pfA+9Qq1Yt3Opf//oXnKbO+6DXzZ49u2XL liVKlIBU+eOPPySK9/Hjx4kTJ0Kj4Z6QY3/99ZfExcSzZ886duwYHR1Nd8Yv +uWXX6pVq4Y7QHBpCzQ8Ap83adIEjsbgzRmA+Gf+/PnoBgcOHDDfU/bv31+x YsWkpCSOfhmZWKZnMtpcuHChZMmSdloEBwdrW3jY5OXLl2N021Qzwf7DvX71 1Vfbtm1TfrdHjx41bdoUnuvdu3fK72YsqGHIVdR///79ObqzMKj8I0eOeHp6 jhw5UmeYxNgmEErFihXz8PB4/PixvmsyMjKqVq2KUDlPv4YuCBw7dqxUqVLr 1q0zeOXNmzf9/f0TEhJg/AMDA1+/fq3vSoiFyZMnp6SkuLq6SmgcunLs2LH2 9vawAxcvXpR4OkJcBwcHSCF9iwGys7PhRxYsWODu7u7k5HT27FmJu6WlpUFe QQHB+A8ZMsSg/YGuHD58OCyVxhKRK1euuLi40Pyhtgc5c+YM6nbx4sUcnOsD Nb979+4ZM2Z069atUqVKJIr37NljpscdPXq0bNmyo0eP1rfUh2EIC/dMRidQ THAilStXdnR0RBMUL168WbNmkB4SS/XgUMqVK3f8+HELF1UfV69edXZ2RpFu 3bql8FbPnj2DVKxfvz50kxpFM5r379+3bNkS/jo5OdkqBSiAoP/Mmzdv8ODB Pj4+CL0wCoYOHcqKKa+A2G/RokVotfDwcIS7Elfu3bsX4WJcXBzPRdgsaMHI yEgvL68nT54YvHjr1q1dunQ5ceJEyZIlq1SpImG0d+7cGR8fD1Xy9ddfS2gc dIyZM2fC/EJ0GNwYdfv27fLly4eEhOhbTPXw4cOAgIBz5841bdoUhgWl1Xcr lAcq6bfffqtRowZU2IYNG6QfDeDsqlatOn78ePgs8ecwXLgVhgN+grZDhIjr 0KEDL2CQAJHPmjVrYmNjDxw4gCZGJZsvLr18+TJ6Y6tWrSTEPsMQluyZjD6g mNq2bfvXX38h8NDYvqoPjG5E9fBQNrI8LzU1FV4GXklhziJ8vWPHjnCCqBO1 ymYs9+7dq1ixIgIA6elNRkVOnTo1derUlJSUP/74o0+fPqyY8hbwI7SWae7c udIz53///TekMbzMqlWrOGmYbXLt2rWyZct+++23BgcgWnDs2LHQvxi2cEaw mfrsNumRP//8c/Lkyegn0Dgaq80F4EogqaBu5CyRevHiRb169ST2Tx06dCgs LAzapHfv3njunDlzdN4TInHKlCnHjh07fvx4sWLFnJ2dr169Kv1ogKipcOHC Ol9IIawqVKgQfsWuXbu0v7hu3Tp8cfv27QYfwTx+/Nh8cSn6T1BQEHq7FeMN Jo9i1p7JSCAoJqO+df78eYx0jHerr4iGs0B8q3wTE+4zffp0KK8FCxZYccXC 7t274bLhiHkO0PJ8+fKlb9++yhUT+s+JEyd27tzJS19OnjyJejCr/Hz69KmX l1fRokWPHDli8OLXr18jYC5VqhTvf7dNli5dKnN99Zs3b+C59u3bhz/AE+Fb O3bs0L7s06dP0CPp6en0+h6jWztRA/HgwQN0JFwQGhoqZ0k2TDSeK7GJCRJp 1KhRsCqQdRILrX/88UdciX+iV6UNGzY0mCMiJ/f1RLly5XC9dn6MTZs2OeTy ww8/aH/x+vXrpUuXjo6O5jetBjFfXIrKHz16NITt3LlzefaGMRZWTNbCNMUE dxAfH4/xDu9j3dl4OJdGjRrBXSqcNNu/f3+xYsWCg4Ot+H4clhPOHU4QcTu7 M8ujimKi/I3QvDbyBta6PHnyBGMqJibGfLuHIE6LFy9erVo1mStpz58/j4jR 39+fJyVsDXSSrl27onV+//13gxffvHkzICAAMgfDNjIyEsN2/vz52nMUP/30 E63DzMzMrFixor5NTBi248ePx03gSqA45JT27du3y5Yt05ee4uPHj/gtdKvN mzc7OjpiIGgLsT/++GPw4MF//vkn/XYUAH+VaXzw2y9duqRxMSk13AfuTOfK eXhMiLLatWs/f/5czlMKMuaLS48ePVqiRAlvb++nT5+qe2crgr538uRJdGMn Jyf0wJIlS/r6+nbr1i0xMVHOIls5YNAtX74cA987l/r16ycnJ0svxs6XsGK6 c+fOqFGjYMfq1q3r5eUFFXPq1CkLzFELiikrK+uXX35ZvXo1muDNmzcGv/js 2TOEhRgaGPvmLqQAvENaWlqLFi1q1KiBWho+fDhGqLOzc/ny5ZVsYkLsBNlV uHBho7ofOu3YsWMpN9HXX3/t6ekZFhYGCQkvZlrD0SwodChc/4wZM+DXYBMa N268c+dOOdNQFrBX9+/fR6nCw8PFCyBhr7Zu3RoVFdWnTx/LJxhUEeWKCU2Q mppauXJlDCXVi2d10NAjRoyoUqXK5cuXhQ/xk2FD8Dl6xY8//qjd8xHZ1qxZ c+rUqeaYBBA2MbVp0wbRKYJSHx8fjBoMQ32vCdCyo0ePpoRpvPZSLRCcwxIW KVKksDEULVp0yJAhQseA+oD7q1WrlsbeHJ1s27aNDkJCH5g+fToadNCgQRoN +vDhQ9IjObnSCVYaounevXvad4Pc9vDwwE3gguU83SC4YWBgIEm/06dPIzyG g9AIj6GS0FEPHTqU88+rUgcHh5SUFCXPhWVu3rw5fgi8pE4//vnzZziFUqVK iUcxoxMzxaVoF9qtvHTp0nyzDgE/BGEAwgP8qC1btkyaNImyExD4vfqWwson PT3d3d0dIxTW5j+5YFAjzhHP+V+9erUgnNRckBUTzOa8efPgO3r37g0Ln5O7 PXPMmDFfffXVwoULyQWgb6ATnjt3TvWnI9pp2rQpxBr+P27cODyxQ4cOMKcI 2g1OC69atQoWvl27dsrHghyg6Xr06AHXs27dOjhZWm4BNweJoWQTk/C+DHpH /g+5e/dukyZNoJi2b9++YMGCZs2aCcYBtWfa+wWaBcUdXF1dZ82a9eHDBwx8 2B+MiyVLlkibVgvYK5CcnAw7HxoaKmx2Rv9pnYtjLni08qdYC+WK6cSJE2i7 /Jon9vbt2xUqVHB2dr527Rp98vLly2+//RatTwuEevXqpVMWHT161MXFZcOG DapXizAz7+Tk1KlTpwcPHuTkpsXDOGrfvr2+mR/EsSgPfoucDSNK2LFjR506 dSAlqpoEjBsss+0n98NggTARrA2cAgwRRPSyZctSU1N37dr1owj8VTilCKZS PLeADla2bFmJXAoCMIzwVnFxcdSjaCurxhchDaBHDh48SNdDs0tsYiI9hQv6 9eunirSHDoKKpxUL6JbokPixGv3t559/jo2NpcfRq1Jc89tvvyl5LoQk/AWG w+HDh3VeQPu/8GN3796t5EF5EfSWffv2IVqAuJaz9NFMcSllIIFAlsjtmedA eAblcv78eeETDMbExEQ4RMQMEmeryQSVhgFSv359CpIJWB50ZgRvtEkQj4iJ ibHuxgrTsJGeaft8/PgRIQcM9ejRo8WekXaVwn7++uuvObm9EcLEHNkAcE88 Bd5EeDoM+MSJE9EJ4ZKkM14+efIEox6tBj+oesE0gOtBCAQVuX79emE4/Pnn n97e3qg9jBqTxyMGYI0aNYz6FeR/obOEkuAPx48fDwoKQmGaN29u2vYu8tqF Cxdes2aN8HMePXrk7u6OoIuiQX2Y217l5HaMAQMG4Afit+Nu6DDQcQhTr1+/ jp4wcODA6dOny3k7abMoVEx//PFHrVq1EMDn14MI4bMwAIXDYhDjhYWFQSNn Z2fDSaHq0BN0fhGVCUcGVXX69Gl1i/T06VMMXjQZgnCh76EdEfeiqPr0Oy6g CB//N2tS3zt37iQnJyMq7tatG6VhBNBQ8+fP//7775NF4K8JCQkTJkxANdat W1dQHxEREbafdvj58+d0kix+4/Dhw6UPHoKLL1GiBC4uUqTIpk2bxLHN2bNn EeqHh4cb/Mlv376FQ9y/fz/9leRGzZo16XUSsXfv3hkzZtCtoJLo2CayXRp3 Qxloq5FaSUpxw7lz50LtkhnBeMGo0QhvYNgRHdHbf1y/ePFi+Scx6ePWrVue np540OrVq/UFjfh83rx5eBa6nMkPyqPcvXvXzc2N+h692pPGHHEpui51RYR8 +ekdd0ZGhq+vr/bYx2+EBFAoYRCmVqhQAWNce/HGwYMH0ZoNGjRACISwGVFQ XlwPbws90/ahJSUODg4QzhrLoWHVv/vuO1Tg5MmT6ZgY+FxzvMqBEjl69KjG rBqaA3FI0aJFBZekE+HwoJYtWyrMUycNHkTrLjp06CCuBPJE+vb8ygFNsHDh QshDHx8f+eu63717h1hR575aGAfTpijxGymVU48ePcTa+eXLl9DO0meI5JjZ XhGwSH5+ftB0UHZw97169Zo5c2Z+UgdKFBO+O2LEiPLlyyucIrZZhMEOlUHH 50EbZmZmyvw6Bhf6Z5MmTZQEhNpQerFKlSqJl1rRLDqlEdP3RTrCydnZ+dKl SyqWRx83btwoXbo0ilS4cGGDh9lhtMImkwOFF7D9sAruCc4Clblv3z5pUwNN RKcFOTo6QiNoiBe6T1RUlEETCmkQGBgomDu0Pm6LAgiaHS4MekTY2oYLUJ9k u7TvhhqG0JMOV3ArmLspU6ZA/8blEhMTgxGRlJSkvY0Cn8Bfb968mf4K1dal Sxfcf9myZcIn+Do0nfBXYzcxaQNPERwcjJ+wdu1a6fmxpUuX4lmof9MelHdB LI1OYpd7QLycDUTmiEsxtGF5EPxD5qt1T1uARI3QpVUEMUZERARNH2mPtZs3 b8K00tjfuHEjRpDtv5TXxhZ6pu2DtoYZh++AidP+15UrV6ICW7VqhYgXxt+S 650EC4/oXXq6j1ZoY/ib9Xima9euwSFq51Cik5gQpt6+fdu0O0MFQK7qm3vU B+Rhs2bNhg0bpmIwI2xiWrVqlfhzRAUICCGrYQ0kvm4+eyUAUVaqVCk098CB A4OCghBa5Ll339IoUUy0k1eYVc5/vHv3DvEYuS10/jlz5hi733bNmjUYwgkJ CWp1G5ruQJHatWsnLgzaEVE3Pu/evbu+78Ko+vv7024mCyx637FjB71jkj5m V8y6devgGvADbXyU0Qt3OQmr4e88PT1RCbByEydO1PYspJjkrIsTNjHRX8mM oww0xYc7T58+XTzFhD8juqhYsaJOjY+fQFvbJFKUQ/LDTUPmREZGQpXg4nLl yk2aNGn37t3apYW8goUU8lfg/vi9+MqIESPIPkBaotKEGvjzzz8VbmLC8OzZ sydcIWrAYIeBcNOXKCN/g4aAToEhkjk7qnpcKmhzhS8TbRBaehoeHq76xP6l S5cQeMAY6jyn7OHDh5UrV0YImpaW1rZtW+lzok0uQGpqqlmFmNV7pu0DYwWT hbED0aTTjEMioZNgZME7dO7c2ZI53DCuv/nmG5TN4CZcSlWHK+WcoGEawiqC KlWqaLxD+eGHH1BFiN9MfsMFzwU/a+yED00JQsTpW4ZkAugDrq6ucNnilXU5 /yw4QSFRVImvm89eCSBgsLe3R+BXKhcM2NDQ0Pj4+HyTc8lkxYQ6b926NcIV FfuDrXH37l16O0CqGX0VpmnkyJHylwq/ePHC19e3evXq+s4PNRa4MJp7nD17 tjj2o1fP+HzYsGH6vgsPNW3aNDJx4qVc5kB45wU6duwoU2neuHEDPUp4T2Gz wDEFBARER0dLRxRPnjyhRqG9QjrfTZ85cwZdC5JEWjFRXrtZs2YJjY5Hw/RB iK1cuTIn96wiCGGhPEJb69vOifssWLAAF+DpBheO0sG1uFjiJKbDhw8Lm5iI 1atXo3iI6ND6qApUl9iXnTx5kjYxmbagCJWJG9auXVvOC278WIwXlH/58uUm PKtAoXpcihvSpIG60622AC18RaCi+h6N5ORkjJ0yZcrAJGr/69OnT1GltFwc Q1L1/EIkcitVqiTeP2V1CqBigj3v0KEDxk5YWJjOo2PR8b7++usKFSqgJ5gp 9VZGRgY8OJyLhh9BJ0EsRGpOelG6EAyg06qVkE0DuJh27dppzyQL0zXjxo0z bZYYgwuOBnfw9vY2Kj+SsOxcxX0QdCKhRtJXIRUY1BBCVomvm89eEajtQYMG CctE0XvPnTvXq1cvBwcHKFkNlZdHMVkxHTt2DAEPIr28uB5AJmSOaLk4uuW9 e/fmzp3r7OxMaUlk5nKMjY1F9Yo3ACqBts9or3ND2IngEz1z3bp1El+nNxr4 UToP+lSRt2/fNm3alMTCvHnzZP52OOg6deqkp6ebtWzKuXDhgpeXl/Tixlev XkEsUA1ASuibXb927RoaDhdIi0rUZ/v27cUrxgU3NHr06EePHg0cOFC86xOC gnaOkO3SeU/SLIi7tm7dKvVr/9nNJxGr0BSfxi4V6mw+Pj7wkjNmzNDocko2 MSF4gB9EBxNPRODR+LE613/S8m9HR0eZSdQLMqrHpXv37oW9ktPN8hzCG39Y A7XmxHJEewzr1aunM5M/IjfazI4xLidngrFgKA0ZMgQBmHQkbGEKoGKic/fs 9B+9Sq8/7O3tEWCYY92IeCmCxkSx8I5JYy+tTnbu3AkLgKKaaUkYRkHjxo21 F87R3CYeDReWk+tGjX3ZgbFWq1Yt3LlPnz7GTk1AbCJcVPHw9A0bNqCtO3fu LJZg8PWIH2h5pHQUYSZ7JYA4GdGyRniJoiI4sRPl9UWj6DugxPYxTTGR7kbN YCCYtXhWBONu0qRJqBn8UnHNUNInIW0yqgJxvoQiuHz5MkaNr6+vKmchISp2 yUXjHf2KFSsKFSpUuXJl6UkGxK7Vq1e3wHyv8FYCMbN8BYSaRAgt52QiK4K2 TkhI6NWrl8RcAYwYZYwhUSBxbBZNF8PaS0c+t27dguvUCGCSkpIo3+mUKVPI IwjAHkpsYiKE/fgoqsQkGPoJ7S/GDXVmKc/JneLr3r27xstBSgMIVq5cOWHC BLExp3TfuCd8rrH9ENU+bty4jh07asz4oQI7dOigcyILgxT+Lv/tozEH6sal ghUtXbq0ztcleR0MTEr2i3BFxQ3OsOe4p758yJQkTfmJnPpgxWQjZGdnw7yj J1BeRO0LDh8+DA+LapF5MqOx4KEzZ85EnSPo1fBQ6O2tWrVC2eRMm8On06Zm JQnrJCBpCW+okdsHzy1TpkyFChXgjOjYPmPX/B87dqxYsWIoOYaksaVC89FW LzTQzZs3jf26NrQIUyNW//XXX0vmcurUKYN3MJO9ImjeHtGp+MQlYX0+KSb8 NTY2VpVkU1bBNMWE7ufq6ir/BNW8CG2yg6Jfs2aN+HPaxSy8Xz558mS/fv10 vjEn6G2LsN9EIbSCXWNWB+aCXujAuEmbI5SzdevWErOXaiFsYoJAk/8iHgOt SZMmNp5/GN4Bckki8Q7kAKJEWG9ahyAdKFI3q1SpknRwsn79esgBDRNHKbPg zjB4NSaXEFTgcwxS6UQlcAe04lRfXu6cXKcDg4/fIj5hQQPo9Pr16wsZ+Inn z5/XqVMH9QDNqCG10HvRhx0cHPC7dN4wKyurTZs2UHzz5s0T2yU6XwM33Llz 5y//gMLv3r172rRp3t7eOtcR0RiE4pNOvsrkqB2XCkdl1a1bN+/OK0oAB0qZ nxHJqHjU1IULFzAwdZ65jCEQHx9Pbxb0DR+FsGKyEYTtOSNHjtQOz+BYO3Xq hH+FIjDHKwPixIkTISEh2gvSrl69Wq5cOZ25HLWhFGooqpL9RBIIh30kJiYK H8Inohvjw4CAgNevX7979w4ywahNf0L9y0znqA36KoYqLRdU/sNpe6N41zMi OvwomIK5c+fKkaJmslcEzBF8Ogy++GBQSuMsbCJGT0CnNfcZN+bDNMUEEYGa 6dy5cz5ekkeb7NA/NRZfkRYIDg5Gr6CzMDBIJToerkGMhxoePny48tc6GHR4 NLSqWFago6JICLwNLnASsv9pv2RXEfEmJn2d5Ny5c4sWLdKokPPnz+N620/X jzBG30sZOk6O1CIcmUH7TF0IGhziRd8FdIolYk4N+UPZCD08PDReLL569Yre g8NTSL+6oiPtnJyc4Pu0N3rT+RGNGzcOCgqCTZ4+fbpOmwwZ0qVLl6JFi2oc Ow6HFRYWBtWjkWEVVbdp0yb4ESi1M2fO6CwYpVeiF1vCr8MXZ8yYActjp4fA wECde59RwsqVK7dq1So/pTk1E48ePaK4VDpRrUwoiZNdbsrf/OosLl++XKZM GXqPptZZEujqMKGIasQHHWJwITpt3bo14kB67Ttz5kx48FmzZuEyVZ5L2KZi Urdn5hUgi+rXrw8zKJ6PQuyxYsUKWOaEhIRGjRrBVMLRIBaNjIxUfV85hi06 G4JesV/Gn7t27QpTPHv2bDlRDfoziTvzTVuhBpydnTt27EhGHpESig2PAEdD 0dqRI0d69+5tVNIDIaEW/KP4vYl88NzQ0FC73NRPGKcK36+RPkIwQDOQ8LBT p05FsDF58mT51tUc9ipHJFo1towJqpMSBa9cuRLtYvvHx+iD1qvY5WallhnP 48diYOIrtp/TTAl0Upj2ajqa/aOTQ69cudKuXTuD22PpVmqlioI+QnRKOzJQ /wcPHkT/b9Kkicz3fZTMxGAiSiWINzHpzE5Gwk04jFUAVapv3VeegE5dp7Ry 8GIy50Jpv4/2bi/8ddWqVYgQ7HJPTaL6hC4WRBB6JqyxOKMsVA86w1e50Ffw hxo1ami8/dEAJhRhGEw6roSuh+Jbvnz56NGj/fz8/P39Dxw4gH47YMAAlFPj i7htlSpVyB3QOzV4FkEEUUZBWFHh/dft27eh+6h4iAbpd2E0aZ9/jSfC9+Ey hG1CTlpKj69PLtH6EJ1LzXfv3o1qzN/2Sgwc66JFi7y8vNAcDRo0kJ/iFeEE 6goKGq0Jcap8ITElcZK5GgcXwLghKkYfhrUUp0BEhLZgwQIod/wrfhQ6KrqW ObbwGAWKB3cwdOhQoVsiQlMrHyD8bGJioouLC5Q+RiUCVIydnj17Xrx4Ec99 /vx5mzZtoEYRiIaHh8vJzi0f8ykm6/ZMdJi0tLSYmJjo6OhevXqh4aQNo43w 559/QrBUqFCByoz+UK9ePVQCvffBEIMMQQDQrFmz2NhYfbEojDz0Am6CXopu A7MsEbfcv39/27ZtQkAIvwxnjVgICh2fQ6bVrl0bLYjRKjNoFI6OgqczU4YK dCS4qurVq6Me4K1gQBB7wG6gufHQtm3bYmwam3xASKhl2pocqF1YLQ8PDzIO JUuWPHnypLE30QCdAW4OIwh92MfHBzYB40KmEDOrvaKt07D2R48e1fgnjNYO HTqgHmCs8Ad1jZUlQXRx48YNSvyIbgYRLaf/01Y4o16OKxmtCjH50bQzfdKk SRq9Ef+KkQh5DheGqtMOI7WhRbyIDFU5uAomccmSJTCS8J5hYWGurq6wk+LX oNLQUi7tqQAVETYx6Xt1AuMDCy+dCTMvgs5AJ4xgdECZygwG4McDAgKaN29u 1gP+DILOv3r1akS2GCMTJ078/vvv7969a12JAQOFyE3h5iMMWDo2Lh9n9RQD z4UW7N+/P0YZXBVkLwSIvgTyBKoIhk5wowhKBYUO0Qo/aLJXXbduHd1KjlyF 60d8cvXq1aysLIyIEiVKUEQNk+Xt7T1mzJhbt27BZKFXzJkzx8HBARdb0fli dMAFIAoaPXr0zz//TBYPpVqxYoWKowa/F34ZQQh6r0YwjKegDIj5zZErzxyK yYo9E2EAGsvR0RENhKAaYRs0CHqU9LZfmwK1d+nSJRhD7X3Tnz59ysjI0Ddl in+dNWvW119/rTG/hBDi119/1b4e3QleQHvJVmZmJoYzKm3evHlQPfJDDgJB C02RmWkpKYHCI9y6ePGi+F0SQtazZ8+aYMTu3btHoWOLFi2MejmFi2fPnk05 nfbu3Uub0UD79u1VyewNuwfxhRaRb2osYK9QKphonXfDQIbWwGDPoysNDh8+ 7OLiQsYHVgj1RlPE+ATjSFoI0xlVkAByduirNVpNQOGj6RWSvtwj6BunT5+W OdMFB+Hj46PuRl3Yq/Pnz8MRGHtEFCVnQz106dLFTO9GhU1MOrOJonqXL1/u 7u5uvqXXVgHjghYgYTQhopMv+eldEhpF+QRUPgORc7du3RRGNYj60NkQAaoe WNog6EuJiYmRkZHkl2HEWrZsKfMVjzkKQznfMCJSU1OlL37z5g3CCUqyhLFD y0oRaWzatKlx48Yaq0dgfr28vOCzFi1aZHlRjydCyrm6uqIMFPCjaw0dOpT8 i1pJfqyIORSTtXomHjRt2jT4oyJFikyePNnq7yUtDOXJoZ4JwVijRo06derQ lClo0KCB9gYlhD3BwcGqv17cvHkzrSuYMWNGXnnXj0DRyckJZYbWkO8+IF2h 5YsWLQq3TmEAFArtZjLfKzYJ8r29snEQ9sP+oPINppS04mi1HUORk7sUgbLK zJ071+q24uHDhxTY+/v7m+PAO/EmpvDwcDwiOxdERJmZmRi5UVFR6D8SaQTy IvhptWvXpl89cuRIYydSIA0aNWqEmjFW/+Zv4FwQuSmpEzoC0s3NzQJbTZ88 edKzZ0/YFl/F+Pn5NW/e3IRTM2C+YMSErZcoEp2FZEJOQuXgieSX5eS9OXbs GGwCBkKOaNcDHT6i/Rri3bt3lFAiIiLC8kviEf+UKFHCw8Pj1q1bwofnzp0r WbIkBUVyFh7YMuZQTFbpmfA+QrIy8+3btVlg/ZKSkuBtUdVbtmwRRgoqHH3Y 29vb3t5+8eLF4pgE/zR+/HiDKaRMgBKh22klH7ZlKIGSnTGb0BFfwXp//fXX KSkpQsWiH1KWeKtMXuV7e2XLCKdlUfoR6SutNVptylDkiDaLme/Ma/kI5wuY 6Tg58SYmCaZNm2b5SW8zgSpt1qwZ/a7u3bsbu1yBgJZEiFKgNjVL89dff6Ey FR7OBR+Bfr5s2TILzFRgNKHAPj4+dRRTt25dGFiNjPEGwW9csWIFTI0g2Mnj FypUaMmSJZafq4Hh7dy5MwZF8eLFpd+fwhTA9grnIwvbB2DDxYGHAB2zggta t25t4UkGyDcXFxeEGRpD9f3798Lam7y+Y051xWSVnpmdnU1vKtH9Dh48aI5H 2Di///67m5tb165ddYZqjx8/DgwMrF+/Pk1TEDCYcN/i0FotTp06RVsazbe4 RXXWr19Pi69khiuoZzoaacSIEeLfiB4OH0S3MnaBn0IKgr2yZYQTzdq2bSvt qqw4Wm3KUOSIMtKHh4dbfRnnq1evaOeamVKSCpuYihQpkpqaeuMfrly5guh3 /vz5rq6u8JW7d+9W/dFWAQoRPY0sD4yhySmU0Uni4+Pr1auXp3NfqAXczbhx 4+Li4pQspUPTdOvWTZx6In+DEBFdUVj6i6qjIybLli1rlWyulCwRBXByctK5 EFrgw4cPKLlw+jDMBWVzgiDSOf8AG+7u7o4L0L6WXGwJh0JHmPXs2VOjUwkp oYyakbZNVFdMVumZW7ZsoTX5eFZeCdFVBI04cuRIWuah7xqE01WrVhXWidHE xZgxY8zRey9evEgvNShrlur3NweJiYk0orWzVGlDHtze3h5Vqr2SXPj53t7e 2guctG+VkpIC4+nn54dQtl+/fqbFjQXEXtkyQnL17t27S7gqK45WWzMUObmd c9asWXb6TyTURq0how0KQC9ESpUqZY5MQeKTmHSerLRixQr4Yulzgkzg8uXL 6JP+/v4eHh4+Pj6W2SQFK0SnGwA8VGHeVDpsKDQ01OB613wPhgw6j5LxiCBt 2LBhPXr0MMfSU9vk/fv3a9euFSaCEO5Wq1bNLjfDvz7NiHr+P7L5n//5H2PL 06JFCzI1GJ7SV8LcCXtMaOG3g4MDPtR5PR2KJzOSUZHVq1c7OjpCAOrMiv/z zz/TGp48tO5IJ6orJhN6Jsogv2dqR+DPnz+vV6+eXW7OUjkne+Y/4GEbNmxo MLHGiBEjhHViDx8+bN68ufRQNRlIY9pAbaYjmVQHhmXhwoXk3BcsWGDQzty8 eZMOh9W5VAk+3cvLy072CZU3btyAtalZsya+gtDUtAU5+cZe4ednKwN2xjRP AWMl0wrp3CMJlUQz6n379pVQTFYcrbZmKHJEQ69Ro0byd56qMmS0oSSQduY5 kkm8ialTp046Vd6GDRvatGmj+otpuGOItW7duuHRkJkW2MyI/o+AjY4HggCX SIR49uzZpKQkmQfMJScnr1u3jt+SKwQ+Am7OtBWS+QP0InROSA+N87DEQE4a XEArYGySqzdv3tDqfWdnZ/mJCjFMYO5IZ+kcU7Q3zS53l5Ml823CdPv7+9vl ZvjX2a+EVOqjR4+22SXHd+7coVXZqlC0aNHly5cbWwY5PROBivxiUMIQMWlp aTRxV7p0aTTHtP9m1qxZGscs5j8QAiF0NzjRevDgwbZt22KoUgKiwYMHm+l9 HOIZSiSr79Q8W0NIXAOWLVsmfTHG+4wZM8jW6YwkhZXGPj4+MheiIKRp0KAB uvG2bdtMKH/+sFcoGAYsLWhUbqz27t1rbAFgQGTef/Lkydpfx2jq2LGjnaEN m1YcrbZmKIgVK1bYGZ+WROGQ0Qm0duvWre1yl8qcO3dOrdsS4k1M8fHx2mE/ vW6bOnWq9giF1JXWuQYRzuft37+/udfq4IdAz9KqjzJlyug7fzbnH3lulaRe TIHlw4cPsG92udsVdb7qJWAn58rG2AVUsK5NmjSxM1IxCTpL3wF2KDNtj6pU qZKZTsPUCcY4vdhKSEjQOZZPnTpFxy7PmTPHZgc7gtV58+YNGjRooH4GDBhQ vXr1f/3rX927d5e4LDo6+rvvvpNeb6mNzJ4JVyK/Z2qcLkrrTMgNVaxYMUCL 0NDQ3bt322wbWRI0QUhIyL179xBgt2nT5tChQ2Z6ECwAKSbYhLzyjomWBoGl S5dKX0yhml3umkOds8Go3saNG9sZs9AI9hY1Vq5cOdN2i+QPe5WTu6IA1qa7 Mnr06DFq1CgTljah6WVaIeHgSDHCOyb8BOUv8iw2Wq3+6GXLlpmgmBQOGZ0I iftKlixp7IFu/7e9Mw+uqrz7+A1YbAHxBSMkZUuQJaYYFmWTZUykbJFCwhJK 2BRBikpYZEmIgAqjTcXKJouCAYTggFjZp4BEYyMxHbEsBSaIhRmJdFrLNDrw zzt5P+/9Dc8cz7n35tx7z11Cnu8fDt7cs9xzftv3eX5LjVBFTNB5jzX7yAx0 ydpgkygIiQqyqzyW6rHHHqtXr966desCPolN7N69W9ZnMEo7d+70cdtXrlwh AqyDnZo0IoiTJ09KDgxsPVIZFzdu3BgwYIDLRlaeEX/729+kiGnq1Kke7xyF Ip53uXuPY80cvWWvQMGJK1w+s7ykG1iDBg2sWx61C6GbYFsdFslEKmRVsH79 +u+8804oLnHHAAKbmZmJs96/f/+QIUNCt/tTXl4u77221DGpvWyXjay80tJS KVPKy8vzuF+jOm7ZT4HbvHkzAmyfYZluvu7Yq2iGavuWlZUV/DJ+2LQ1spdW qudt1dQbglEZbzAWFzhedauKmNq1a+dj/dAKAioeDoQrmKvDf/Hyocg2NKG4 uFiIIT/2zTff9L2j/e6776alpX3//fchvSWNaEBlZeVXX331pRNAmAM2sBic /Px8ofPWCexhg+r84NfiDPoik0a9FTFhtBs2bOhy1wuEbWmUdzFx4kQumpiY 6M2ySZ14bGzs6dOnw3NXIULoGFN4JFNtUzZu3LhuFjHZB4I9derUwsLCadOm OTt82QTFKQYNGlRbWvFIahBYtmyZ7ycjWaDAW4PTM2fONGvWLCYmZtWqVXYu rUYzBFaRUafsVTSD94h+uRwahBE2bY3spTn5iy++6PKzsWSQKuMNKnEO/XW2 N6CxiOmJJ56wbxWltfv06dOD5OB79uxp0KBBSkpKSIuYCInhgy73uOfc3Fzf 93zjxg2Cxlo0s08jYJw6dcp+zrMd5OXlBXYn169f79atm+unJQNVVVXG7qBh AKoxatQov8JjTMEzzzwj6znl5eXWL6BHy5cvd9mb8eQgcHbDhg1zec8p4s6n TJkiO1+1YgndB0LHmMIjmWpVEH0kUnXwzHcepJHv3LlzH3vssZC2aT127Jgk iYW5v2UwePfdd6VOmUfkOwZ76623YENNmjTxtjT0/vvvE5zcd999NtttSU9j KJjqMOkX6pS9imao4N+RrdWwaWtkLy2VLC53ayD7NDNIlfEGVYGIQ3S2CsBY xPTKK6/Y5whwkKSkJN8TW2oEL3TBggWumnqSBInLly+Lx3e5S/lqTAravn17 06ZNjx8/HqL70Yge3Lx588CBA7jOdU6gsLDQr11aI9SwSJVMwn/5N6Y7nBW+ 2D3pJEmoYHMarxq05G07/scff5RC2tatW1vj+cOHD8fFxS1ZssT0M//617+O Hj3aN8P68ssvx48fj8lNTk7u0aPHrl27jMkziv15WyGvrKx86KGH6tWrt3r1 ao/n5wxHjhzhgeBxuMrDP0WfPn1WrVoVJfXXoWNM4ZFMHvWYMWNc7gpTU4mT b/DDFy1aFB8fb3JG0roWz4L993Hse++9N3DgwO7du3fq1CkjI8Pb0j23xO8l oEXMTGKAYEydOtV+e6jgwU/Ly8vr2LEj1w0pkZH1TF7Kc889FyVyXiM+/PBD 6SZX45xl4VbeVqHVUB5euseYgZMXFRVB8zt06MC7mDFjBhJI5NC8efPAlrWD t1eEc2+88QbW+EE3CHvwSrVlczCqsGnTJp6zvyU5HmFHW5Gl/fv3jxgxgq91 7tyZ/86cOTPgWMKvSzsFJb3cuTe9c1xlvEF1ueRhBjw8yCOMRUzWSiVvIM7k FXjsnldRUYETSU9PNy6SoLPQkLFjxxLeGL2hFDHFxMSsWLFi8eLFHIiaS+Tj lH2+fv26pMfLJlqNmZzcHo/aNPlLQyOkUMNucN+q1xwahB7ZqdYkgv3+++8d URm1H4S/8JZiZ0KNRUxYftnhxWKYYg81+cJUSsDnsprqrRU558Fi3H///dxt VVUVx65cuZLobtmyZeo8/GP+/Pk+lgqFC8C2rl69av0rdEyaYHgDj4jzR0mP 3xAxpnBKJsGe7zV/j/jmm28SExPvueee4uJi4+dXrlxp3769j7Fily5dGjx4 MNb+4MGD3CeuAQcRGxtrOg9UCL4gievegM9y1i/7hvQigxfs3r07pBfavHkz Qu6y16k7SlBWVia1VzWmVMkOmreJLd9++y3RCPbBY682woPRo0cjdRs3bkRH ZMgIVg4BDrgiI0h7deTIERSBv/K7/tcNxOPee+9FyNVCFjYNLlBbyG8ocOHC BQxCjcKMTfjFL37RqlUrH+stNlGjtmKpsDxYKlyYvPeLFy8SDGPMVZ83JKqg oMDfoDRshqLakCTgreNKKFTGG7Dt8fHxrhDMng6siGnHjh38cI9tZtetW4eN TUtLUypfWlo60I273Ni2bZv6MtIr0xD4dUuXLpXIhwfOK3ZkrDzPSir4JKWk xpFJ3I/0xnE2qVJDwzdU1yYURyk4HnDIkCE+1q5RkBMnTqBZHTp0gLOgXJ06 dXrttdeCNBFoKKdy2W7HxPd9T2I6fPiwFDFZ6Y+smlr3s/g8JSUFO2Caei/A 2D7//PNcdP369eqEEuHExcUZtwn279+P40tKSrIOoIRzZWZm8kvXrFlj/ZnH jx/HKHFj8IWjR4+ePXu2sLCQCJxfkZOTw+0RhETV4m2IGFM4JfP8+fNt2rTx twsQxI1XzIVMYeShQ4eQOgiRR7MPz+rWrRuXg++rDz/66CMiUsig4vXXrl2T Bbc+ffrg9RADfvuIESP4hMPxFzyf8DeRwzfNnj2b2LjGsarBQJVym7x2lIMQ t3Xr1i4bDe54ub/61a+8cSLiOizMb37zG6vQQq6HDh3KX2EfynQgZtgfsQ8B Bw8B26uioqLGjRsjk8YIH5vAzRCRiiXnrnJzc2sR+XUcPFWsmZ1cu3Pnzt1/ //2O9Kb2ra2QIzwg4fTevXuNn0PZMF/9+vWTRX58EGbHX1MTHkMhkOZOSK/H lbTQqYxHqGUTR3p3KARWxMSrxAliaqxvgXubNGkSZ5NW5AQ2EJ/hw4d/9dVX PM/Jkyfn5eUZ2ynAfIlJMFlEPuqJyZphQkJCkPmHt27dmjNnjgwFwF/7zvS4 cePG6tWrW7Ro4XJXW+zbty+YS2to+AWJ9l3u8RCiCFgYLCRRurdD0LWXX375 0UcfPXbsmByCvqBrnIToMZjJNfgIPIWdtJbq2zbZ5e5G7rEpDeaR++QL2FKr Wv3lL3/hWnATUwtZ9TlRtPWcW7duxW4QzBh3rFDh/v37Q9y2bNli/JCIF422 Mq89e/ZwS6NHj7Z6T2wF5KhRo0bbt283RhfS+9fxjX5HECLGFE7J5Mu///3v eYMc65GO8QXTrgFvZ9myZbKhYJxOoj7nVq1TS/B02dnZBJ8maiZ+tmXLluJ6 kC6+JpunRkkTFuktNggDpEXA9OnTQ7q/qerfw9CXyUEgn7179xZh87gXo4CQ FBQUwNCnTZtmCqsIQohw2rZtay2pk0wnydYzkikpnSAm3LlzZ8A3H5i94u0Q usCYrGlCQsEQV4QWqzV48GCPpaZ1AbxiGRpoZ98BKerZsye2aPPmzcFf15u2 EgxLn6W5c+ea/srLQgJxNzgdRO6FF14IYBMhPIZCgBBiKDxODwmpyngEyiKp uX6VGtUINW7AZaOxTLVbivLz8yWn3WO2DFrZtWtXghmoEDZn3LhxfN8bnVd7 0BgBo1P77rvvfCwv2wQnxxjKUjk3vHTp0r0W7NixA4/Jq0RoZcaBAHrlYzfq 2rVrffv2RelMJRsI//PPP8+FfIwV45DFixf36dOnS5cuxCG5ubke2/EFUD0h ebDEkLh7zswD5PAa99Q0ogTEgbLUIGqICC1cuHDKlCk+lsJQMSQBLTN++J// /Gfo0KEu90yEgN++pDNxEnx3jUV/ai8e/+Ix5ZXoND09nS+0adPGmuGwevXq mJgY5NzkwpBwPufM1jGO2AcCAOskXLEbXAjPYvz81KlTCQkJycnJxr0nGFnr 1q1TU1OtMRXvQhICc3JyTI6G+0e//C20CQ9CxJjCLJnIG1aUIBaqYqSl3Ma2 bduwfqbG40iXnNY0O4/zyAApjyvqWFfCS+vSq2xLwf0lTauoqAg3hEczfU2V XK1Zs8bbDwkpUDRUI9T7Pqrfu7d9uugEivDkk09KHmmNDeUwL6NGjSIuLSws VC6VMAZPCgfxWKeAbMTFxVkHbspYmebNmwfZPdhfe4Umjhw5UhYNrIve0u5P hutt2bIFClzj2NM7FYR8su9ghzEhRc8++yxfnj17dpDbH960VcaDEqPiU6wy w6scNGiQyz2IGXfDvwNo3RAeQyHAMkMwrYn31aFXGSukYSZMBOoU5Kl4+xUV FcXFxfi13/72t5Kl7HKPkP7kk08++ylKSkpwLrt27YKpYUMktQaYUl8UZI0O 9jF58mSc5oEDB3ywMFXEZCpjxONDVE1rxf5CRX3+ggeyYMECH5QcnsWrh2ma VkGlrw6/2iMJ4jkQ4CUmJmZkZPD8q90jTtAU5NmUmxpA9YTkwULwX3/9dbk6 msKF+NDZHE6N0OHChQsQAWjFrFmz+vfvT5jqY6gBRgl9TEtLs1Z8yOpKMAPO sNUSbdqJlNTIEui/R88iW8Z8gXNai5gkadY0HZvPMU18/sILL1jPiePjBxJR XLt2zfg5Fgku43FVEIP8+OOPY5cIGOBTBPxYaRyix42M8vJyYgy+YB3gi+eK jY0llApzyyM7CF3nhzBLJm9/69atyAzPecKECYsWLRo7dmynTp3wxR9//LHJ oSBdbdu2hf6YGvXAbflcVmhN51f9bK2zpfCz+CNpr4TlJEDlbt98803TGYg5 oWn8aePGjT5+SOhABBLkPrIdoPs8dh4UPzaqElBrhKy32IyXeNH4U2KbX//6 1/BrbBHPdsCAAd7afhILyfqPSdFkwkK/fv2Cz9L0y17JrDQu7XGKmeQooiDQ fyzwp59+GuS91VLwsni/qDxqa7O2RTKgevfuHeSUGW/aipzI6MPMzEwrjcUM jhs3TpzgvHnzXn755QCIW3gMRbWh7tg6eTk8KmOE6l7lyFRcAnKcfgBUQgFb hOv0mBy4YcMGBBJC8T9u4LNwncuXLzfFNgIccXx8vHXsC74PBbeuIUcDVP8c U8KSym8kaPHItgjzMICohlJVvjZjxgwCPONCZQDVE5IHy9NWXcWkpaTNiFcj elBVVXXw4MG3334bJfW94YtCQRk8vmLUSnq5YMECuw2VR2enBp8vE1p8+OGH 3mIqWbd3eSli6ty5s3U3WT732KwP2ZalP+tMScJsLI+3MVJcGnNN2IA5QqdM OyBGSP8Bj5N2pc7FkQZKjiOkE2zDL5m8aK4F+YVeHThwwKMHqb5dxGS9lrfi purb6S7WGaC3bt3KyspyuXs7EyPBl+9zw1joZPyNfvVKchb42QceeMCHDDsC yYx11aq2DwI1RspO5ozg3//+95EjRwoKCmBbRJjeolOs3JAhQzgz/zVaPPHm Lie2JAT27RUKgr1CUD0uYiP/xA8YxocffrjGuSp3KnhTvJ2VK1du3LjRPmOS FYOmTZuqjjeBwZu2nj9/npCed/fHP/7RepTaKsVY4YwCK0QKj6Govu2y+TnW JiphUxkFrLdsOnjMUYkeqFcsGe+w5pKSEmgypAB2aQ1j9u3bJ41fjN4QQ/Ha a6+53H3UPZYwRBZwYd4Fv2jTpk0eP/e46kiogNzyi4w2TTUlU6MuAqieUHmw CxYsUFIn9Z5YBnhT8PPXNKIQku7uchekmxYe8bMtW7bkT6NGjQr4/J988gkE 35s824cqJ/FY9FFjEZN8judSDk7mnCLb+ALjIWjQ5MmTudCAAQOCWbBSSyJz 5swxmXH1J8fLVB1BSBmTfYRaMo1AupYuXeqydEUzFTfxZC5fvqxe2WeffYZ0 xcXFmfzLP/7xD6w0AYykvgvn6tq1q5UdSx+tlJSUiJSzIerZ2dneRvY4iPXr 16No2AGsQUgv5DikCMVlqW4LHqqQwbQtLhMW1DBcXo03ju8sENQlS5ZwP96k UdUhpqamhrMBflRh69atWVlZmKa3337bPmOSlWcMginj1y/40FYxRA0bNsSe WA9UhCI2Njaw7hNhMxTVt7s4jh8/3hpwhl9lCKSlI0F+fn40L/VIPaxp7Y4H KJEMZErWhHlQotrvvPMO0msad1VVVSXZm6NHj47CTIAzZ87Ao62TOvkcwebz L774wnSI2vExJYGobSnpKxhA9YQxD9bk/flTjRUoGrUacAciGWvCgFpfnT9/ fsAnVx3SghyUpspM2rZt662IyTrFac2aNXwO98HH4drGjh2rXMbp06dF0crK yoyHIP9oAUY7yDaqaCVcSbILTH9C+9q0acNVrJsO0QCZbee7BjM8CKlkGqFW L02+WEndihUrZA80IyNDFdlJypZIl/FsmzZtwpYmJSVJz9gjR44QzFjbanHy MWPG8M21a9dGxB1LHizRVEiruVUTJ29D1qIZUinPzScmJjq7wC4rNsgPb9/4 uUxYIE47d+4cUvHSSy+9+uqr4REPKdnw1hhQmo46PiG0FkFSHGXvwy/GVO3O 0MbdGCd3+wsf2oova9asGSYRw2g9EBmWPhXQkMBccHgMRfVtW+GtE074VQYK hsBbU7WjDUgXkUxcXJwxsFd8QRgT//viiy9KHrs0MZ42bZrxhcK773XjxIkT 4f8JNeK9996TDW6TE9m+fTufS0ca0yGyt0ssZ5rFCaOR7SG8OSIXQPWEyoM1 tc7QqLNQOcNNmzb1aIftn0dW7zt27Oi735RvEK4kJCS4PJVCqCKmXr16Gf0R 8WrXrl35XEw9dnXkyJFK3UTRxMyqQ27duiV5yzk5OcFvqoqOm4JwtBWncPfd d+Nzo3bZit8eZMp96OCUZBohRUzWtcQ//elPxrxuiLkatqtK5NLT040CyamS k5PvueceZaUh+MTbJlPPVXBbnHncuHGRKhE9evRokyZNgm/h5RtqBKT9xLao QklJCVEECht86bcRqn+gsboNQXr66aeVKYOJ45HDVjGENhF3Wes6q90Fd8uX L0dcoQmmrJg6gqqqqokTJ27cuFFk2F/GxOueOXOmxy6vNuFDW4nf+vfv760z MweK6zTtKThyaWdByErYP3DgQI+cPcwqI7kWsoYQtd5QgErWr18fGTCu3akJ lbLcB6EYPny4dCGWikX+qhg0YQnPDZEOrMwt1FBpOaZJnd6KmwTS3rN9+/ZX rlwxfv7111+3adOGowhNeTIBVE/4zoPVqIOoqKjo0KEDQjVv3rwgU9ZPnTqF dAU5/E5SmzzGXZL5zJ/uu+8+1buYwBUHIYxp8eLF/IQlS5YUFBTIsSjac889 53KP254zZ46sEvBf4mE4zu9+97sap2zYAQY8NTW1Xbt2ipRh0Dg53uett96K QrtUK+CgZCoo6eJ9iXNETg4ePNizZ8/WrVtLOhkeJyMjQ9U+K6mLj49XU3gg 6ZyBAHvnzp1KSnnREm0Scijxg03D+LKzswNecw4SksttTXJwHNJfBd20X8SB vqCeeLoHHnggJSVl0KBBEVz2JCSWZBWctbPFO8R1yMATTzwh1oYo8dlnn+3d uzeiIhuXhw4dgpWHjVATTufk5JjmNCGrhw8fJoglepTCz/z8fJ4DwUakGjyG HzyNdevWEZWpmMpfxlTtlmritMGDBwfwQmvUVkI7zBQuzxgzX7x4cdq0aVgk KAZORzjF8ePHJ02aZN/Bhc1QSFNB33sc4VQZ2aEgKnZkomvooIikqYxLLS0S 9vD5qlWreFZCmYUfJSYmytYJrHPhwoVEPvPnz4/OHRMpKKuxiAkBUGV6Ks0Y pTD9qKKiogYNGiDSpaWlgVVP+M6D1ahrwBzJrs2YMWOCL3hEXGUYjcfkZDtQ G1WEtVYRlWIlpJcQq3nz5hMnTkRH8A7oxZUrV/D18LWhQ4eOHDlS7dvK/j6K tnLlSqwN/8aJJCcnEwO///77DuYeoL/42VatWk2YMAFLTgTIvQVZ/1uX4axk CpR0ScYyLBuRwP+OGDHi9OnTf/7zn/m8S5cu/fv3X7FihZINsZnQpQ8++KBf v344cW6J/5WjTJdA7NeuXYsYIIec/JFHHuGEkKYIls9zS2gEP9aazOAg1Don +mVH97EVePlGjRrxlqX2EFdFvIdzt1aChw0yWTshIcHZyj4Eb9++fdgE5Ifn 8/DDDyNgmKbc3FysGaE1oWCNDXOcBe+Ipx0XF/f444/PmDEjIyMDk5iVlfX5 559zt9euXYM8IsbDhw9PT08PJmegdgGygB8xFskGwJh4gBgBZHvXrl3+3oAd bS0uLu7WrRteDG6LOPXo0QOTheiiUzLYrnHjxlgnPvcrzAuPoah2b3Fifgn7 ffjfcKqM9LImqIhsPW+NwCdCinm5uCrTn7777rthw4a1a9cOheUfRoWFD+Kw OnbsOGXKlIceegg137NnT9Su4koRkzU98uzZs1LcVFZWhmy8/vrryLnQWzUW RLbY1CHQw8zMTOmth2wHVj0h7ZS95cFWux+vrmaqI8Bewc1xBwQtTlV6El4i 1S1atLBmitqBKjMhaLFWE0gRU1paGs4Lm4DjQNSV7vMP/hePb1xnUNWCuEK0 qaKi4tixYxcvXgzRUhKxPWa8pKQkUhsKdwZCIZnVBunC3mJCz507d+LECWNi Eqbv5MmTSJFRPKSISeZ/cRSChOD5DiqIWxA8bP7ly5cjvmgphfzPPPNMSGsT oDnNmzfHs9jJk+FFTJ8+nac6d+5cpa0y8SrIoYpBgpCM4FP6wzv+4pAKPDIG yhh783Z4YpEq+xKbSQCGubYOej5//jyvte70yuPtjxo1yjQaNQDGVO22JBMn ToTUWEtxfcO+tmK4Pv74Yxyu1dcQPxPg+Ws5w2MoeMiQdPiOnVZ+YVAZzixO AY8TtTxCgbAH7uDRNPHWCO957x43jzgQablw4ULE/ZFvSIGDqXcQpkn2gJBP 3r6spipKJWNBrCNIZH539+7dVapeANUTKBG67zEPVvLt4fLWkeUadx543Rs2 bGjUqBHy42C/FEycbBxL90t/D0evJRHLOm9CFTHl5eXZP7MUMdXGUvQ6ixBJ ZvXtIiassf3UL1XEZDKztQjY85YtWzpbm2MCzlpyX5966qkaN5ikt239+vXR SmPS+IEDB3jpPXr0MOWihxm7d+/Ge3JvoV5p14gqoN2vvvoqYmwS4MAYU7Wb 0fTt25dgzK8l6DBoawQvjaFYtmxZ+/btA1tQDQWIhGXYhL/cVsNxqOy4mJgY NZ+CGAAyi1/gNfXs2VPSTceOHasWBCTTnjDv0UcflWV2Djx06FCLFi2gS8YG d4FVTyAhxAzDhw835rogLdwqbiIMk8s0Ig4kqrCwMC4ujtDU8Tjw7NmzxKW/ /OUvA2gQh3PJz88fOXKk1C0aoSYx7d271+bZVBGTqYpQI2oRUskU0+pXb0Al dRGJYRwBtp0oJaTtgqWOOyEhwdSa1SMkMLvrrrusjQVwjhGnpVVVVdLY0Fjj o3HH44svvsAyEJut+ykk17RDhw5vvPEGYRXRmn2pQNS7dOki1bU2DwmDtkbq 0jy3LVu2EK9ak8oiBZQ9PT2dYNvjKGeNMEOKmKBLSUlJjRo14tWgfbCShQsX Xr9+fenSpQ0bNhw0aFDv3r2Li4vlEGMRE9ratWvX8ePHp6WlxcfH5+XlWft4 BFY98emnn0K+HnzwQSLJrKysPn36wOCwBo5UwWtEOZCxoqIiRIUg0Gj8YSK5 ubmOXGLz5s0NGjSYNGmSg3sEUsRErFVRUWHzEFVFqO1hrUBIJVMVMWVmZtov slNSZ2o6qqFw8+bNKVOmEHXgQWoMJvnCihUreAv4rKh9pPC+xMREguSovUMN x3Hu3LnZs2c/81NMnz5dur7ExcURLM2YMWPr1q1+kfoLFy6kpqauX79es2+I Uq9evaJqUtuOHTvuvvvujIyMSHUx1TBCipiaNm166tQpmPvJkyc///xzIyup rKyEvBgzE1QRk0xA+9e//gWZKi8v9x15BlY9wXU5OTepR9bWKXzwwQcwcVNh HV4Aqv7KK684cgnEFboEaSosLHTkhGDt2rVSxGSf1+MERQGtO1YaUYiQSiYy OWzYMEzrH/7wB/tHidRZRyxpKEjU8dRTT9lZHoFeyVvw2OI1erBt2zZ+VHZ2 dhROeNQIGzA+0CjENYCsPAVEKOID76IB//znP6Oqd/elS5c6duyYlJRkfw1W I6SQOqMePXrYH5wtRUzRP0hLo5Zi37597du3J2g8fBuHDh366KOP1qxZk5yc vH37dqcuVFlZSZyZkJDgVFnc3r17USUZl2MT33zzzcCBA3Nzc6OzkaaGEaGW zFu3bs2bN2/o0KF+5asHIHV1Cn//+995a8ST1sk+HiG9KwlBZ82aFfEEPB+Q gouf//znmzZt0rsDdRaOMCaNKMQPP/wwYcKE2NjYY8eORfpeNP4fqojJNG/X NyTTHuarFyU0HAdRKCbC5QVNmjQpKSlx8HJff/119+7d+/XrZzOa0qizCLNk ajiC69evp6amPvLII9a2lt6ghrC/9NJLHpnIjRs3KisrnbzLQHHz5k08OGJ5 9OjRSN+LRmRw9epV2RIlJPvyyy+jmeNr2IeshzRr1kzN19OIOFQNhf0ByoFl 2mto2AHhjYx59YZWrVo5Po/g0qVLvXr1ys7OjuYMHI3IIiKSqREkIBRPP/10 37590XH7R6k6ppkzZ1oXEs+cOYPTjJ5tnR9//DEnJ4do2U5HC407CTt27Gjc uLHYn3r16sXExPCPn/3sZ4sWLdK8qbZj165dbdu23bt3b5TYGY1qQw2F/Xl8 KtO+oKAgpPemoRE2/Pe//y0tLdUrABoadxLgO2VlZQGkKl29erV79+4tW7Y0 VhdWVVVt2LChc+fO69ati6q2loTH5eXlutO4hsYdg/Pnz9vfFtcIDwKooQgs 015DQ0NDQ6O24Ntvv500aVKLFi2ysrKefPLJ1NTUlJSUWbNmacenoaGhoaGh oaGhoaEh+OGHH8rKykpLS6Oqg5aGhoaGhoaGhoaGhoaGhoaGhoaGhoaGhoaG hoaGhoaGhoaGhoaGhoaGhoaGhlP4P1HsMTI= "], {{0, 146}, {1126, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{567.6, Automatic}, ImageSizeRaw->{1126, 146}, PlotRange->{{0, 1126}, {0, 146}}]], "Input",ExpressionUUID-> "c354d66a-5f43-405f-9505-00a429a1cf5f"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl0TVf7xkN8gqCGEkMoMYZSxBCp1BSJhCAkSLWVGFpDm4oaa57qI2Ko UmMrpAQtqaGsFpUaSljmEgutdCnShXapb2lX+y3/35f971mn55w735ubG/tZ i5XcnHvOPnt43ud997v3rjvk7b6vF/fy8nqnFP/1TZzYeezYxMn9KvBLXNI7 I99IGj4sMmnc8DeGjw0e4s2Hvfl3s5iX1/9+fiIhISEhISEhISEhISEhISEh ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh ISEhISEhIWE7Hj58eOHChdzc3P/+97/uLouEhISExP9w9erV+Pj4oKCgmJiY tm3b1qlT54MPPvj999/dXa7/wVQx+Pyvv/4q4MIUBty/f3/MmDGhoaGBgYE1 atT46KOP3F0iCQkJV+HQoUPBwcEZGRl//vknvyKeN23aVK5cuSVLlrhdSCPp O3fuXL9+/ZEjRy5btmz79u1paWmzZs3q1q1bvXr1Tp8+7d7iuQUYpv3790+f Pr1MmTKlS5feu3evu0skISHhEpw5c6ZDhw7ffPON+sMHDx60b9++adOmt2/f dlfBBH755ZcXX3zRSwc/P7/MzEy3mw834quvvvL19cXT+eGHH9xdFgkJCecD 9uvdu/fKlSs1RMfnISEhcOC1a9fcVTalJB07dqxZsyZcBC2XKFGiUaNGU6dO vXv3rnsL5nYsXLiQComMjPzPf/7j7rJISEg4H2lpaX379v311181n0PL/v7+ TZo0KQz6OTo6+sCBA/wMET2dAWc9fv/9dxoOfp45c+bT7ERISBRVQMuI5507 d2o+Z7wvX77c29s7KSlJRKStAeS5bt26s2fPOreQan4unPjjjz/Wrl175syZ gnzorVu38CPKlCkjg88SEkUSJ0+eDA8P1wcKLl68GBAQ8Pzzz9+4ccPKW8Gi gwcPjo2N5QfnFrLw8zPYtWsXvsaePXsK7Ilff/112bJlbQ0+Y0po09OnT+MW SdUtIWE9fvrpp5iYmHr16pUvX75kyZJbt27VXPDgwYNevXq1aNHixx9/1Pzp 8uXLb775JhQBqTZs2DAiIoLxa3EArly5cuzYsShkiIVHh4aG4jKjmRn1ISEh V65csbLkv/322yuvvMLXEXVWfsV6KPyMPv/222+R6Bs2bLh69arTH+QIqGok dM2aNb/44gtX3P/nn3+eMWMGjYtmbtas2erVq//97397eXlFRUVZE3z+66+/ Pv/887CwsH/9619Vq1b19/fnh4oVK77++us5OTmuKLA1oOOdOnXq0aNH7iqA i7B58+amTZsyiJ6zC0gjxvLjx4/d/R4S/wDd9dy5c6mpqaVKlXrmmWfgIs0F MDa8HRgYCJMrH9KOc+bMwc+Nj4///vvv+YQOD8cyAOfPn6/ky23cuPHIkSPq uyGlhg8fnp6ezg/0B+5QrVo1JBkGgp9XrVplZaSXR0yfPp1+5fTIhgD8DAuN GTOmQ4cOr7322nvvvTdixIgKFSpgUG7evOmKJ9oH6mHixIkYx0uXLjn3zseO Hatfvz60jL/Drwjmrl27+vn5wc+zZs2yaIUx6wkJCTTrihUrFF+JbrNt2zZK S0+zvq2dC0RFly5dcnNzC/7RLgXvRVVPmzYNtcMwFOlGMPa8efM++OCDFSrw 64IFC9BIgwYNwvgquUl9+vQpJEsPJDSASGnTF154QRN2oL1efvll2u6tt95S YsJoJySQ+FBtcO/cudO8eXNI7OjRo/yal5fXvXt3DeFzTWRk5IULF5RPIOon +Twzbtw4NPyXX35pTYEzMjK4WJ8B4izAzzDziy++qGZjZGq5cuWCgoIK1eim yYKDgzt16oTcddY9abUaNWogxi5evKh8uGPHDow4ZtSiXH/48OEr+TAsEv4O Xo+Pjw9EUfAUvWXLFkRFERaKDK5KlSoxPGmsXbt2mb+Y4cOIwwXj+tGjR1s/ 7yNRYGCMwLQ0EANKsKUC1CmSieY+fvy4+IQGxcn19vZu2bIlZKu5D03MfcaP H8/PjGJMOUNVfQ336dWrF+JKXww4AVnFVyyOHegRYRAREaG5uRNB+Q8cOKCx VlROYmJiIezJe/bs8fX1xaFwCt1hWNu1a0cTL126VG3+Dh48iKdTt25d88Fn vgLx9ujR4/79+6auyc7Orlq16rPPPqv0q4IB9UPnxMUrwmHwzZs3C/0cEBBg pa+3evXqEiVKFO1q8VyItRjFixdnWKk/RzwPGzaMhk5OTlboCEGFtaU18U/1 t1q2bBnX4wjfu3cPKkOWay7AvVLfTY1r165hCxo3bqwOpOjBdxliqLjdu3fb 9p7OwJo1a6gof39/t2doq/Ho0SOcU+hOxCIcASMUWoac4WERuVIgMp8hXvPB 59u3b+M100BxcXFQveE1WLqhQ4dyt969exdkKJiujjyw0kfzRGCA3n77bRGv 6Nmzp5U56khuzGVaWpqriydhB7777jtaRx98xjlCLzVp0kQZpwzeefPm0fRQ tOEUD4QMdQcFBaWnpzMQNAqKUQnh60lb4Pz58xUrVnzuuefMy7PTp09DRN27 d//tt99sek2nYPv27SVLlsQ31+cHuhd4K1AiHpCDnjsMFhoaShMPGDBAHY3k 59jYWD6fPXu2eZWFmC9dujRXVqhQwYy92LZtGzXJNfopD9fh8uXLnTp1KlQz CM6Fet3rnDlzrNTDDHAc0v3797u6eBJ2YMuWLfrgM/TbsGFDmPDrr79WPmTs R0VF0fTdunUzlD1i0CGDoeh9+/Zp/nrnzh14FR42LIagvlatWpkSXU/+9k8p rUs350H8jx49OiYmRj/phs0qVaoU8rKw7Q6EKQwODnac7jDWNHqxYsXef/99 9ec4NYGBgdYEn2l3segSbaxfgqRAmGObaMRxZGRkDBw4sAgHn4XWolZpKev5 Fn5mwJoamBJuBIw3ZswYTfAZBdumTZvKlStrcmvF/hhcnJSUZBjqzMzMhL6K Fy8+d+5c/QXHjh0LCwszpN8///xz5MiR3JnCmAmiUrD6+XCpBFIUoF4rKvp5 x44driuAHRDzAhYr0CIwx+XKlcNvOnjwoPrzb775hs+VkOaPP/5oyn/h6diI L7/80nzgAk7w9/enwNjBgkkbEMb9vffeK8JRViX4XK9ePetnsXErQkJCirBb 4bkQiQrq4PPhw4dRzk2aNNErMUYcytlMhtXevXsx3KZiFMuXL8d3Npw2unDh Qs2aNatVq2Z+a7gPP/wQ7Tpo0CDNPKZzkZWVVb58eSyUvgYWLVrE69eqVatQ xZ8Fjh8//swzz2gyIW3F0aNHeXckNGNW/fnixYsR1SKkiZlGG584ccKR0sIG derUoTJRbk7MPDEDxHyvXr2KsBevDj7zpoZuwpEjR7DjmgkghJOpWXsJ9wKH yM/PTwSfGXroXobnkCFDDDcCgpPxRmn9UaNG6ef4sNfR0dFikzc9fcGoSHSc Lz0D37t3LyIiAuG9atUqM9qG4tGLMCWwtF3vai2gC3S+fv7x4cOH4eHhvKBY X+PSMtgBig3XUY2ff/653TdBGGOdK1WqpM6sozWbNm3Ki0+bNo0GOnnyJKLX THqGNRDTwdzT4oyws/BUBZ/nzZunH0oQOF13+vTpmj/hChW2tVcSAiL4XLt2 7eTkZHwi5DHG1Mz1kHDLli3RuuqFISiTJUuWIDgXLFjQunVrHGHc4by8vLi4 uHPnzolr7ty5AwkPHz4c6aXe/gi6xreqXLlyWlqaecf8+vXreMQVKlQ4deqU Yy9tGdu3b2/btq36QZTt/fffp646d+5cOHexw2RgWBmbEydOtDvEwRdnzpxZ okQJnB0xis+fP9+1a9dWrVqJUY+dnTRpkib1zhRycnJSUlKGDh2KYU1ISKCJ lahIdnY2Tck969evr1+a6gpkZGQMGDCgCG+7pwSffX19v/rqK/0FjEHGWmZm ZsGX7SkBUhNGnTx5Mr194MCB0J0jC+hEPgaDEcplUGtcWlO4desWShjxIwrA 4G3evPmUKVOECjp48CDsTTfo0KEDcksJLUL7MDM9BImOD44Ai4+Ph8wxCpgG TSqXIURwu1GjRlYu6OZZSAXUIC+IU0A58W1NscqjR4/Wr1+vEC+XoUIhpcTE RD5fu3YtDOPj48P7mnfGed9PPvmEd2eMQObNmjWDoExFYnnKF198Yd4g2oTF ixczPLEgjmSGU1rqrUqVKrGxsX369KEp9+3b98MPP3Ts2JFGj4yM7NevH/3Q zB3Eqofg4GAs9aBBgzZu3JiVlbVjx45hw4ZRM8KBEpF8SkvfMzMjbCVu3LjB g2rVqkWx+/fvr+9O2J0JEyZoVCVaukuXLmXKlFm9enURCEorwWdMnj74zAvS PerWrVsIQ3NFAOgNOA2q8fb2htOioqIgyaSkJOs3rHAuEEInTpyAjRkLmr79 +PFjXGBNCHrFihXvvPOO0HXobS7gjazPkeMREDt9LywszJqMWShFrIpSg96L wjc1swntaPINcOE//fRTrOH48eNhXYubAjHeRQBEAzjNkNDQjTgsTnQH9u7d W7p0aYs5itYAZ/no0aOXLl1SIjnUGwqNRjc/nQfZDh48mF7Kq+mTMCkhtQF7 iERNAO07uM6IQuLXi5PRMMFYRmyxJpoqgs/q5BN61IwZM0QZEBiaxVYeB3Xw WSwOepQP6oFW2LNnD2aL/o89cktiahEG9YlHSd0y9CAK89KlcEJsuwHFOXIH sdIcDWYx9gvZIphFX61WrRoK7dlnnxW/ouj0G74xeLF9jhTvSX5uSVBQkHhK 2bJlGfJoFWhKfKJflQM/pKam4vs7MXtBJK0Z7qNSMLh+/Tp6m/fFtzJMroNG Zs2aNX/+fJS5qJkhQ4Y4EsznKRhWrL8QCYjzChUqIIk16Z34hhgCjdnatm2b SNShk1Byu8tQGGDqxB8NYBJP38yc8TJ79uw2bdq0aNHiBYeBC0+d2L1ICjvY u3dvKhZR5K5B5zgQJwh+R/bwQWJ16tSJepg6dap5V/Ts2bMoZxgSf1Ytii5e vMhALlasGApcQx27d+9G7DmSRUDxaCZuzmviGiglpPmgI5ERodHJt2/f5o0O HTpk90P1gH/oJ+5K//vpp58YNbRR27ZtzUz54TdFRERQTq6kxpYsWeLIQ3Hq 1Wc9iAx8wA/qyzIyMhCQmuAzRh+fjmLUqVPH0+cNleAzFmf9+vUX/ga9Dp8C b6V69ep0DPxBd5fUUcDPOD6IrqbOACRPH7CPn/kWrqLQY25ZzuwsHDt2DL3k yC7NMG2zZs2oCs26CQ3wNXgQw81w5drjx49xQKhM9QpfKhmx50hOCGyMfsOt XrZsmaE4oe2QtUp4R4An8lznrm7Oy8uj30J6K1eudOJtrQE1Hx8f75W/bFBz rKQGGCZ0i5BzVJojq615KOS8ZcsW8Ss6/I033uC21LY6TUgEn+fOnau37Neu Xatdu7Y1MXBMMHSXm5tbOCPV6sxnQ1uDHaxRo4bTd3bF2iJ7sMgBAQGM0Kcq uL1x40Yxh4IP6NFb/0FfDBBHHCuRLuvt7f3xxx+buSwzM7NBgwZmHI0HDx50 6dIlOTlZKQwKFs/XkRSvW7dutWrVKiUlxdQLinnYoKAgZf5RpPBZ3F7MVvB2 IrygT1BHyY8ZMyY0NDQwMBD/wumbLWzYsEHwQ0JCgvm+eu/ePSGzgYNnmZ0/ f543UuhIJAdyW5pYHdNGXUdHRxue+YKijoyMNL+15tWrVzE9NF9MTAxERD8U sW6LxVNzF1LNdbteq4PPvKlh5vO6devCw8OdvqUYdk24MDwaLVo4U5tcAfpt 8+bNRchUvcjaE8EIcrDhrl+/joMGA5iJEtMtGUeGmZ9q4Pu3b99ehD7EHlAL Fy50RBThTnbv3t18ej8czjhVKIIubX75s31g9GFr6DOTJ0/WGAsxdzZt2jT8 X5sW/1oDKhMJ6pW/p6XFnUno2NCyIJPhw4c7EnzGqd+0aZNyB/oGPaR48eKa mMnly5dfeuklwznTP/74Iy4uTp8SrADzHRwcnJGRoexqzhMZkjzCYp8R3AVF 86ZoS9dNQaqDz4ZugpgMNUy8xGo4uIugSKvm0a+++qpLF44VKojMZN66UqVK b7311qR/gtp2cAGXZwENU6VKFX1cUQ0hES1O9MAPkJjYpPrcuXP87MjckMiL NlMqAUY3CkfIWrxyOCE9Pd3uh5oCahBZ7mV6lbdIb7B+50kr8dFHH4m+iny1 mMx88eJFMV1rvjVtBdaZWhWTfZqZjq1bt/Inw8xnmK1nz56mNhU5c+ZMhw4d NOEascsBetga5U8rjBs3jlK5dNGrxW03xDkO+i1xqLTBgwcvWrTIEX0i5oYw i7jJdt/Es0B9jho1ShjEGjVqtNMBD+7TTz8tnKEwVwAKZdxBAvoTuGyF2EZv 7dq1jB2EE1RWMIsBMbgMUnRsVlYW/dkVZ5Q/evSoa9eupvhZ2aPD4h6hNoE3 EhIR9O/f36LjL07kcXpW25UrVxgpXvkbeqgdfBF8NrUL0/nz5zt37mxoU6Bu fBz9GRB8HhISYrhIVg9sMfcvVqzY8uXLbX8na2HHns8C2dnZQUFB0LsjT0c7 UfNuzBoqeDDQhBDy9vZet26du4vjfojMhBIlSpjantQmpKamMmZv3brF2DE/ meVEIMYiIiKgZcgT98cVtvXXX3/FkfcysYQQ5oS7vKzYI9QmiEO9rUzGwBSO GDFCXIyxcGIx1q9fXyIfmvEiMp8Ng888nQJjrA2VbVpamjozRAG07O/vb2Xk nItr1qwJd7nuJAL79nx+kt8WycnJr7/+uoPCHqGIwcXaFljwGcWOi3TGGcCb syNvQdkprmzZsp4efHYKIAF8Z3wodK/jd/vkk0+GDh2anp6uP+HFdcDEYHMx B4hnFx2bKHYZpdsY7tImps+s2SPUJtDDxYFKvr6+Fk88F/uUipQ2J871K+nx uPma4IaZ4DOF4U+GCSTQMuJZH0unVlHCqKakpCRr3K4dO3b4+Pi4dP2LfXs+ P8kP7jVu3NjBDE/hnrg6gKMGLolwEp2FNm3a2LqoRJno0exU89QC5mnXrh0V snDhQsfvBkEx+uLi4sxngzgXjNDw8PBJkyYNHjzYRVsQi6k3rNjq1av1fxUH VEGMjq8uVEMcTOaVf2rDjRs3zF+MysUTRzzPnDnTiQsl8vLyxA4hMJVGDm3d ujU2NlavKuEx+lJiYqKh4Dx58iSNpReEDMaAgIDnn3/e4ps+yeeuyZMnF2Tw WR9hNgV6IBLFMKMDuxkUFNSjRw91TVJLmzZt6t+/P3ZQvRGECD7ToPPmzZsy ZQpfxP7CeBkZGS5aCEPDnT59es2aNSucAUYKHdhWP05MK1PnlStXtnJbDAGb 6taDgG8u1uk4uL+xAJqBXkRFOZepzOPnn3/u3LkzClbJ1xVAhs2YMQNerVKl CsIsISFBI8x430WLFjEGLa46gTQgScODQZXgM0Nyw4YN6MZmzZpRCdgLB9NI lANJLaYo4BUKpYepNcw3ptMuXryYvwbmo2XLlowgaxz23NxcaJM79+vXT82E VN3EiRMN4zn0AVxUU+Jn5cqVYpfCPXv2xMTEhIaG4mqhmbFuISEhpjZVwF+G ihs0aEAr09aHDx/mf/3Jcc6FfcFnXMhy5coZ6hPqnDKrV4IfP348LB8igqSO Mebk5Iiwf/Xq1enGfEV0V7yGlJSUIjxBJnbcLV++vE3759hUtx4E5RBbrIzj UoSxiZJEPxTkNqH4UK1btzbMcGBYZWZmitxdPZlAPgx5azYOFZvCVaxYUdk2 UAF6SQSf6VHR0dEiZQWVyOCKjIx0ZO9fRKZYb2L+7BtxsiE9EFowlHn79++v W7cudurAgQP/zcf27dtR5hEREcrSTggQ4aQ30EoZMOLqCUoRfNav6Mcuw5yf ffaZYVHFdgTp6en88Oabb6JLq1WrRoepV68eP69atUpfADrSkiVL+CuCXFQC jdW0adPSpUsXwuDz3r17EX4UT5/2zyu/9tpryhQG3QaapcPQo+iHuH7vvvuu ureIfa7onB9++KFSLVQvTYkt8/RV82aAja5du7ZNWSu21q1nARGCwQoODnb8 FeAHJJ8j+yTbAcEhI0eONDQK33//Pc1tGBzGpIqt8CxOSOFUciXet17HYhQg ea/8gwWVChSbcvMVR6w2PS05OVnEN8xsI3zq1ClsAf0ZlaWvAXwKCBDBrN56 TiQl0ugiL1GECwxD63CyWL2oifQyiJC+mu3sxLZUhkf8CHAHbBZ+gfKJkASU Z9y4cRg4Tcia+zDQqEbEg6KLlMWMLp04Uy/2mTlzpkW9ev/+/alTp0KnXG+Y 9Y1xadGiBZQL8UKzAwcO5HozZ+WMHz+eW8XGxqpDdrwvb42ENmUBiwB49wUL FuDw4k8Zhq+5QJPLZFPdehyysrKQXpCA40YZ5w6qtHKfUmcBkYw4NBWjEIdq oTo0IZeHDx/CFXCU4boDNfgr2pvBEhcXp09yQ5T6+vr6+/urKVRRX8OGDbPz rfJx/vx5caq7qXXlly5dCgwM5C1GjRql13jffvutn58f/KzX1bt376ZahDIX W4ib2u6PF0SpQpLqUx62bt3ar18/9SJ6sd/4/PnzzXhhyF1T54mIYHvfvn3V dCQejcZWT/uK0IrXP0+Ocwq487Vr1w4fPswwxyph8gQ/42AyRo7+E0eOHMEx wXDPmTOHl0IAiIsprdoAKcClwgVjoCHn2rdvT7c00+uU4LNm14UbN27Q0wrh MZ3OBf2KOqf+Bw0apFYFjD4ET1BQkCaVyKa69TigHvHIHE8/oE4wWwU23ayA sYNRMNzpmiIhEb2MMpMZg6gdhKVF8UyvgDcMk9y4P4zE/bt3766+PzWA5BNh W3tf6//vT1eknLVq1dIkwUImmCTsDsw5ZcoU/cSo2DKFMvC/nrpFcoiI2DDY hw4dampqlQdRBkgePkdJMnYEQyqqEsOH84IbsnPnTvPjAo9Vv9+ggDj2RX3m CxwlDk2Gh9VmUWQ+uyL4fObMGWU/RvtAJ0lKSjLs/1g3ykxjVcjHc88916VL F7SBYffLycmpXr06tkkTgxUz0fSHIn8WAHWYlpZG96ZX0AEmTZrEgGrUqFF4 ePihQ4c03cymuvU4MF4Ynqb8MuvBwEGGWZSjTseiRYsYsIaTcfASzKwPPuOJ 4xBhkqxZZ5ebm1u/fn3N1kACcJrgQI0LLI7E4nM8cXtf6/8BGaIZqlSpQmmR B1Alv9JdRdYNrIg2NqzwEydO0Ff1ecsCmDM4n8G+ZcsWWs1isjokPGbMGBgD ZwFpV6dOnQEDBiBy0MyUYenSpRYnQ8XyJVMBH7GDq3qHbewR5WfQabY0wcsT mc8etGqDIZaYmEh7jR8/XgRIkd+44Sjh2rVr6yfCxHH2mlRwZSa6Ro0a7tqd voBBXWE0169fj2VHFRvyra1164n47LPPfHx8HDwfRAT2Hdzt2VYIhjQl2m/e vBkQEKBxDcTuhTQfpGrNPKaIkEBi+soReXf6vI5Tp07BLTzCMB/PDvCg1NTU sLCwhg0bwquQP8wPM5spP10aOVe5cmVDdxsLhdGB/bjV5MmTrXR56P/QI2zc oEED/HraGt1rpTnGUcXLgIcN/yqmw9QzocuXL6f8CFpN3rU47gePyYO2DBJp irygepUuToHYRRN6Ee14//594c5jUhGEvXr10jgO4pQKw7TGpxa21q0ngq6O p4+Ayc7Otvsm6enpuMwFbLCQW2g5UzM4MBjkrA4+w+djx46FOfHQrdkqTazL MzXTJ1bHA80WakuWLIFbIFJ36RxqA29IP6+nQFnPglG2dRHB5s2bX375ZVtT zekY2BfDRBQqeeTIkeokT/5/9913vXSnkIsYmtffWwbxRRyBwr8xvrDX9BN1 Fi7FFrtkCw7h12nTpomkBTobjo9mk6ujR48+kw+5sE4NW+vWE0G3T0lJwWSL g6TtuIOYVWfIF8yZ0Qp27txJ6xiG45RT0ZXgM2WLi4srX748LWVlBiDEXq9e PVM5HiJKoDm6UclGhkncSB3YCMN1JQKQNtRtft9CQ4iNiexYQo4eDg0NNTyd HIVfs2ZNhpgSQVLsS2RkpNoQ4Pt069ZNSb7Ck42JiXH6doVOx5o1a5AEvL66 qCLJx+vvM8GxXNHR0bjzT/6OTaknQHlxZDMvPnv27MJvjwoSttathwKGeT4f 9hGs8DL69u1bkPtpizQkhrbhimY4uWfPniL4zJX79++HadFj1ifN0rLLli2D xExtlAr1vfTSS5pTQugwfKVTp06OHBzjOHhNxrjhdhYw3ty5c0uVKsV4p7Q2 3ZZXpqvbuo2qGC9Vq1bVx/BR7xERERRGnR/yJH/3CR8fH9hY7ctv2bIFh0gc ZM/FCxYscO6eJ66AMr+jWQKm6Ad6F5/T00aPHi2Gj2Bj/D6RFEQN4O7Rqejt Lloh66Gwo249FwzVkiVLpqam2tHhRYrL/PnzC3KwYDGxmzChYdhcBJ95I5qm Q4cODRs2XLt2rU1thKnCYAUHB5thWioNxtiwYcOT/F6xe/fuypUrh4SEFOQK SkPwpm+//TZuMsJVaRT66r59+8LCwoYNG0a1CJEPec6YMcPKjeC+++67jh07 2rqNqkjhw2Hv3bu32l6IrDxqLC0tTSML4W0at3r16iJkzV+5pk2bNv7+/vQ0 +hv36dWrV+EXRSLhRHO6kMDdu3ejoqLopZg8flAvsEIv4evRaRMSEnDf6IcY LKmcNbCvbj0U4rA/uoRhrpp5QFOoGufuTm8RqAvG79ixYw37rTAZtWrVQrmZ n0ozhDichZcy3KJNATSYkpKChh8wYABij/JMmzatkHjclG3p0qXVqlXr2rXr iBEjYmJiGOaUU2yMAL+Fh4dDd3TgHj16WNmBxW6udgSf6VqwNLo9MDCQksTH x7du3RqPJjk52VR/u379emRkJDIyMTERP2XgwIFciQX08/PDWcPmmjlbp1CB ur106ZKhdKFbXrhwAWfHsEr54qFDh3Jycgq5j+BG2F23nojLly/Dz+gcm3Sm mEQr+OBzZmamqeCz4xCLO/ArrcltgJChoOzs7EI4sQ6D0awIjHPnzmmalV59 5cqVs2fPWp+/MWHCBDtOnl2xYoVyTCR1hemkrqxc4ZWbm5uVlaXuWnyR1pGs JfEUgoGMGsRht77zQ0p4r7jMBbntBkAcNm7c2BWeS15eHn5TbGxsge2S6hH4 5ZdfkL7iiBzrIbbdKODESwmJIglo+eOPP8aptP4AaNyHBQsW6Kd+XI1du3ZR VKeLKOTZq6++2qVLlwJ2Bwo/sL+0sq3e4p07d6KiojRpzBISEvYBxsvIyGjX rp1+u7YiDyho6tSpffv29dxs9sKGY8eO9enTx47TNCQkJEzh7t27T+GYwjbl 5uY+PcclFwBWrFgxYcIEj5jIk5CQkHiqcPPmTQ9aiy0hISEhISEhISEhISEh ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISHhEfg/ g8IHfA== "], {{0, 79}, {480, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{263.1999999999998, Automatic}, ImageSizeRaw->{480, 79}, PlotRange->{{0, 480}, {0, 79}}]], "Input",ExpressionUUID-> "b09018e6-658f-4626-a8d4-10f8a6278fe5"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlQ1eX+/1EwS0LcSBElFa+GLO6JBLiEIiKhmBt2wwUkb2lupam4W5kL liLXJfeFbLG8Zo5bmys2qJRKo3bDMVMntDGdvFN3+L3+5/n3ne8953u+fA9n BZ/XTI0ez/J8n+Xz/nye5fM0H/Vy6pjqXl5ekx/mf6kjp/aYNGnkawPr8JdB 4yePzRqfmZE4fkpmVuakqFHevDiA//J4///7c5lEIpFIJBKJRCKRSCQSiUQi kUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgk EolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolE IpFIJBKJRCKRSCQSiUQikUgkEolEIpFInMmdO3eKiopKSkr++9//urssEolE IpFIDPH9998PGzasY8eOAwYMePLJJ5s1a7Zy5cr79++7u1zmlJaWTpgwITY2 NjQ0NCgoaNOmTe4ukUTiifz5559r167t1atXu3btGCnp6em///67uwslkUic wuHDh6OiovLz8//44w/+Shi+ZcsWPz+/nJwcTwvJ8Sv27duXnZ39yCOP1KpV iz+7u0QSiYdSVFSUm5vbqlUrLy+viRMnIuvuLpFEInE8hYWFMTExX331lfrF W7dude3aNSws7Nq1a+4qmA5ot6+vb4sWLX788Ud3l0Ui8Vxu3LhBJF6jRo0d O3a4uywSicTx3L59OyUlZdWqVWYRN69HR0c3bNjw4sWL7iqbNSjqm2++SXCR lJR07949dxdHIvFcTp06VadOnccee+zcuXPuLotEInE8mzZtSk1N/fXXX81e R7ubNGnSpk0bD4zE79+/P2DAAER83rx5njbbL5F4FGvXrvX29o6JicEtd3dZ JBKr/Pvf/37nnXcse+mNGzfGjBmT9BfJycl5eXlyYUgB7SYM37Vrl9nrKOOK FSsY++PHjxer5PDtt98OHTpUqUw+eODAAbMP/uc//8FoFBYWOrXYV65cadWq Va1atfbu3evUH5JUJejVhw4dys/P9xDH7/Dhw8ouFCfBl48ePRp39+WXX5Z2 T+KxnDlzpmPHjoiOZS9F3B9//HEfH586JurWrfvqq686ddRULk6ePNm7d+/r 16+bvY5et2jRIjw8/PLly8qLR44cad68uajJhx9+uFq1av/85z8tv3P37t3E 73v27HFesTHFjz76aLNmzWjfCn8JlpwH/+abby5evOiBm/AljkVs1Y6MjDx1 6pS7y/L/KSkpiYuLe+2115y3afzmzZvYxho1amzbts1JPyGR2Ml3332HZDAQ iAEt/1WI+N///nfNf3Ugt2/fXrZsWZcuXUJNtG/fPjc31/OXa1etWjVp0iS8 GjR3wIABsbGxqampRN/oY3R09IULF6x98F//+tcjjzyiKeKII9YyKCjISWGy siCO+7Fx40bMYEREBHU+bdo0y0UBTc6fP5+RkYFHV7t27eDgYPwBrBzfRiW4 MVopLS3FHfWQILGKQa2+++67TZs2/eyzz5z0Ewz2sWPH0p0KCgrUv3vs2DFe T0pK2rlzp2Xj4i23bt166tSpTjJQYkE8ICCAXx80aFDbtm1btWrVv39/zKYz fq5KgpOPPcfcPawL9YzZ7NatG3EijS4HskGIpKg0+uSdO3c03+AaEd+3bx8h Kr7EwYMH/2vi/fff9/f3T0hIwBMW7yksLFyzZo1HzWhRJ5mZmVu3buUPL730 Uq1atRo1aoSihYSE8GcEWqe0OiJeZprEwy5hLpxhKwhbxII4EpycnHzp0qUy 05RC48aNExMTb926pfNZnohWwMHgeSmbGGj8n3ic76xevXp6ejpi6vAyG2H1 6tVZWVlymsgZHDp0KDAwcMWKFc4zrefOnWvYsCGe4enTp8UrWKcxY8bEx8ej oXTXoUOHalqh/fv3M+7WrVvnjLKJBfGHHnoIL5cxy08wQBgmDJYTJ07of3b7 9u1hYWEI0+MVokWLFoyyKnAy/e7du1h47MbMmTOpDS8TtPVbb72Vn5+/08S2 bdtycnJeeeWVjh07ijfwB3qdlHJ96B6jR49u0qTJ2bNnrb3HBSK+Y8cOhA9X 7YcfflBexBS//PLL1apVmzt3Lu2Idrz22muvv/66R7Xpzz//zHAuKipSXhG1 ROGnTJmCRGJerH1WX8TLTBYsKiqqe/fuihvjKK5cufK3v/2NYTJkyBBFsin5 c889R0C9efNmax8UUwQMLhTf8l/v378/Y8YMdHzgwIGu3wJE+TMyMtBxF/9u 5QXTOnv2bFpz5cqV+r7x5cuXn3jiCZy03377zXnlwQ7Q/SiP6PAY8F69etEb KScDf/jw4WfOnNH8IMMN44DQf/HFF44tkrIg3rJlS9xU5XUUh6KmpaXpryKd P38+Nzc3Ozs7NTWV9wttQtYXLlxIneeq4K+LFi2aNGkSjxkeHu71F4RXVWmh imd55plnxKMRblvrdTR0ly5deA/hueYir0Tho48+8vX1Xbp0qY4yOlvEjx8/ jkuGiFtO0wmZ69Chw40bN5BLonLPWYwTHDt2jD6pGbryXP7+/gxea450uSIO e/bsoYFmzZrl2G588OBBvhbn7fvvv1de5Cfwmhg4SKG1DzK4OnfufPToUWtv QLt79+6Njrve3cLnweZrehcSTfDHfHx8aPGIiAjGl7W3MfDHjh372GOPqVXM 4dD9kDAKg2jeuXMHmcNnKC4uNvjxa9eutW3bNjo62rEer1gQp5beffdd9et7 9+6tVatWq1atrl69auR78PPr1asnVGn37t36b2bg4PwHBQXx/hdffLEqzSz9 9NNPeIM8V82aNS03A6vB/0F3eCfSgKl0WQkrFxg9+ifjl4rVeZtTRRzHHldT OJyWy9/ffvstPb9u3bpox/r16xndnjazhAs9ceJEzVF28eJFnBN6rLXqNSLi xCDUTIMGDRyoTZiIN954gzrv06ePus5p38GDB/M6cbTmB3nMl156ydvbG2tp ltZGzfvvv88IxQS5eNHwxIkT+A/4e6780coL3YDQT8RE48eP1xndCIqfnx9N 71Q1+fXXX+Pi4oQpiImJmTt3rq37YfLy8oh2eSgHeo/Kgji2SP36pk2bUHY6 uXrbqg7bt28Xkbjx3EqrV6/mJxiqHjX3aCdffvklfYl6IIIQq3jWoEOOGDFC 9E/GtVOngCopdIzFixfTSZYvX67fSZwq4hhexgjFWLduneW//vDDD02bNsUT 27FjB2G4jnC4BTF/a23y+ezZs7gfVJ217d9GRLzsL5//ueeec5QDw/cIx2nO nDnqphdBB69nZWVpfpBgTZnoW7BggbVuU1JS0rJlS/33OANseGZmprO3X1Yl CHgRI5wunQlb3hMfH08Ybm0q21FcuHChUaNGdBsMAnY+MDCQ3viPf/zj+PHj Br+B/ol7GRIS4sDcSmvWrMFrJcBXLw/9+eefU6dOpag6LroaZY4L+vXrZ9A5 IXin2qvYvQZLly4V9fD000/r6zKmY/r06eLNdAYPzJfldghYGCNIpHpCVROn ijiRbLVq1erXr69eVla4cuUKciCWyaxtnncjGA2CWWvbCbCNDz30kFgL0HyD QREvLS2NiorCshm3Zvpcu3atTZs2ltN6IujAZFlbVr5+/Xq7du2EF61zjP3u 3buMUN4WGxvrspVx4VCVW5kSWzlw4ABe9KBBg5w9CbZz505lvGDAsUvz5s3D Da5ZsybhhpHlJD6VnZ3tQO/xjz/+wIvgC/m/ehYCx6ZHjx5i0sBItTAKnnrq KaFH8+fPN1g2QpiwsLCqdK8BvuKzzz4r6mHmzJn69UCLjxs3Try5Xr16ZjMh kjLTHhKGTHp6ernK6DwRpxFnzZpFG0VGRmouyeHlhoaG8gaGzC+//OLYX7ef o0ePEqRoajRDfuzYsZR8woQJ1uyPQRFXjoPpfJVNXLp0qZEJswXHnJwcHCr8 Op1jcXSGXbt26a8DKtPyjRs3LtdFdBRiQbzc3cISmxBTmhiK/Px8p/4QHXvK lCn0GX5OLZfCTOHJ48+L8iBtOsa/oKAA3Scet8zbUAH4OWS6evXqZm7tmTNn GjRoQHChOX9oyblz54ipeTqbLhviSQledLYcVzqUBXEiiI8//lj/zcTpIhYA z0x66V7u3buXkpJCJ9y6dWu5b3ZqJI5w0Ea4qZohG8qOvntsmoUVK1YQbGoe pyoqKgoKCkIodfYCGRTxMtP2OX9/f/wZI3N35SIWKVq3bq3W4lu3bolgAQ/Z TldB7HIXO1IOHz5sd3kNgXwj4g4x3RIF1CcwMNDOjEBGILbt3r07cpmXl6d+ ff/+/b6+voh4SUlJmSk/G13r7t271r5HxLxoxCeffGJ/qejJQ4cOrVmz5kcf faS8iAsxZ84cundUVJTBTXTKgnhISIh4ECOcP38+Ojq6Kl1O9PnnnxtcEC/7 y1MSIj558mS5Qd0MugdjE4nhD+W+2akijjzVqVNH09H6/fffFyxYwHhkaK9Z s8bhP20nQqo0t+z+8ssvCQkJlByB1okajIu4WK12lGnC0MXFxWGZ1faBGsbO OOQ4m3KKpNwNqA6EaszIyPC0BZfKDpLq7e1Nazp7Lr24uBiLhCkwm0sR8kd3 /fXXX8UhU/09PLzn1Vdfpe+98MIL9m/D44cwQRSAYigv4thgD9GXL7/80siX qBfErdXk119//eabb5oV+OjRo9ZOvlRSlixZIuoBf1vHEyszzWROnDhRCcPV R48lgg0bNvj4+HTr1s1aghc1ThVxDD49nMKok0jQ7T/77LP4+HjM8osvvijC Q3599uzZvM3hZagY4shbZmZmSkqK2gNB0/Gf69evv2nTJn3v0biI06VHjRpF PUydOtUhHimSXatWrY0bN5aZLBUlocAU23jAVVpaygPSdgMGDBg0aNDChQuV gaZsM37ooYd27txpf2nLRaTcMQviJHbC2KRlaUcXbJAWG0gsp8GFk9+jR4/f fvvt1KlTffr0Kdeei69SDpvbCZIdHByclpYmdqMxQIj0GSzlHhNTUC+IM0ws a1KcrZs1a5bZP/HILluNcgF0p4EDB4p6yM7O1u9RWKTatWvzzqCgoCNHjris kJUFFCErK4v6GTNmjBFn1YiI00Dbtm2LiYnx9fXFcY2IiFi8eLE1X4vm27t3 r3LWmM/iXTdq1Ojpp5/Gf0YUwsPDhwwZcvz4cd6JPvbu3btJkybJyclJSUli acxR2FNs/oB8I+X46qGhoRR72LBhnTp1CgkJwYc04joaF3FYtmyZ2BtgxO8q Fx6cJ2WAUM94xQRBDCuDCVd5tBEjRlBj1BsNd+DAgf3798+fPx+zKfLpKZlk eI9OrhuDiGrv2rUrhcScYgYtN/feuHGDpzDb+Ef18oCtWrWqSquK9nP58uXh w4c3bdo0ICAAjdY5ISVWMM0mk/UpKChgFDRs2FBMmY4ePVpnIFy8eHHr1q3C BL311lt8ZMqUKWY+Kv9Ki9erV4/xxeAykoWY5ub9SL+jTrV//vnnYWFhDL2h Q4fSo/r372/ThaTKgjjDwfK2ozJTOID/XO4acWXn6tWrrVu3FgviOjOKjPdP P/1UdKEOHTooufskarDVsbGxVFFOTo6R95cr4j/++CM662VBYmKi5m40jDwm 1yxtC4P3/Pnz2PwzZ86YHXihWS9cuEBrOnYqwM5i5+bmKis1VOnJkyexYDYd ZrRJxOnYvFnnwFoFoNi4IhTb4JkXLCpPjXnElO3atcvMly4pKcHRYnhSFbxH nBVSJ8GuAPzExo0bMXFEZPw6AUv16tXffPNNs5/mF+Pj49VB3K1bt9B90aDy 8imF7777jspcsWIFQ2zfvn3ICtpkbcJWtCOCaMQL+v3332fPnk0IbDaarEVS jGXaZcmSJaIpRaBtrR8y9L744guDGx7QRLxxx26koe99++23xsugRlkQV1b2 1fD4+OfNmzev8keo8IUeffRR6gEHUtN1pCronzh+Pj4+9DqcN4NhxQOIEGUc 7A8//ND4+62JOP+qpLqljSIjI+mQ3t7e4hXLRCi01NKlS2kp9+YStLPYYv7W Tithk4iLU+f+/v6OOmhmKxhYAiWqKCQkxJpVx8oRreAcipokHrdz5oRg6qmn nlJOKItd+paTrtQhTaPunzRTRkaGaE2COLlWXmby2QYOHKisW1G3aLTOXbQi s6iRpGQo+IQJE0RtY4Fpd0JX+rZ4hXjKckMmkh0XF2cwU4pNKCcc582b5/Y0 KeoF8aSkpNLS0rsmcJyKi4v37NkzePBgKrlnz55VPpnJ4sWLRT1gQN56663l f7Fo0SKioWHDhtHT6DOM1vfee88za4OR0r1793bt2rW1m/bt29uUkNAMcRzY z8/P4MYMHRG/c+dOSkpKtWrV+vbti9+uDBn66ty5c2vXrt2gQQOziPvatWvU g8s2LWtif7Hx9vmsnRnJbBJxxfUyPrfpQGj6V199lRqj5+hcYoVMYJS6detm cPuKPggxnhJximgg3KqRI0eKiEbtGwiHatWqVWYfR3qEnzZ8+HAPEXH3GgFE mW6vHAMR57Kt7VtQDjZ26dJF/zob3oljgBLRLps3b1acc9qLMCE0NLR69eoY bbWeim1L9p+D0IS2TktLM75c6FTUC+I6TJs2rWpPFtErUlNTxcPiYs1WQWiQ nJzcpEkTL9OGfxwbt7te1qBstGZ4eHiY3URERPTr10/nMK8+YmK2fv36Bld2 rIk4VZ2bm+vr6/v2229r9kBEiuDR7HRAXl4ewZo9tt1OHFLso0eP9u/f385M JjaJ+I0bN7DbyKilWjkbcQcl/gOjTD+LOzZz3LhxGG0xWu08GHL69Gn8AWX5 QDlkarYxgJqJj48/duyY5Tds2LABcTFSDJw04n1n7wR2oxEQ+Y2VBOC0FJ6P lymNhmbeHiXVRkJCgv5qy9mzZ4OCgvAoNLX+xx9/xDLTddXpFPB+qQcnZeWl 5LS4iHzdnqVZWRBnpFP5RX9BjLBv376FCxcGBgYysj744AP3ltPZ4FETaHtZ P7FCh1y9ejVm2cfHBwfPjQJRKRBrNMaz/loTcdqlQ4cOOsmUMP70UqIhZfLz 5s2b2FvjGzudgUOKjRugcwWPQWwScfQlOjqaUSDudLPnd23l+++/b968uZge 19+wR4UomRLtPxC3fPlydRpVkZIdN8YsrDt58iS+vWayIHG1pc75RL6HZo2N jY2Li0PjQkJCYmJi1Nl9EaYJEybwBiJKhkzlzYGJ1KKbSvOVlJQIo9qrVy/N rZLKYf+BAwfqzGOInGZiotjae/CvMCDKBA6dhBh8/PjxTgqTaVPiOy/r2Sdc ifqEuOaJ75ycnMaNG1d4WtUaBQUFNNyTTz7ZokUL/D23L7gfPnxYLIgziKwV Rhwh5D3e3t5Ui8fG454ADiGxktkxYR2siTjf06dPH/3gBcWkIxH7i7/SpVNS Uty7XcEhxabq7M8rYpOIY2nFNDX93JUzb2I7mdDlcq/qVtJUglkyGVthCOOx KxsAFE0JCAgwS+JtuSCucOnSJYLWr7/+WvMn+MiCBQuINJWMjvj/I0eOxM4o iyliA1h2djYtZVO6LU8Df2bLli1K823evBlxwVpaO5dH5Ygb5/UXI1Af3F3N aRAFkb1Q2V6II4FTZOeORx2U+306derk3jSP6gXx5ORkzWmBdevW9e7d2yFH TtTcuHEDqyVmsNu1a+feJEi0iDh9APqr/0eOHBEnyzp37uyBKTo9B4we4Yzx TUeaIk7/fOedd8o9BSzuBBfBI203aNAgIzninIdHFdsmEb937158fLyX45Kv GoQwvGnTpl6mQ9/EwvpvppBoohitqKEDQy2lGBhD9VSbWBDPzc3V/BQ+AEG6 pgWjZVeuXEn0bZY1F8XHjJjd/yg2chu/f8rDoZmEQAcHB1sLi/Be+vXrx3tG jRql047IN2F1ubPWdHU6Bp4z1c4AdPa+VpEHsq2Dkq9WGPWCuGY6dzFpoJn8 Ae9I3zUqF+VqV+fdIm0Q9YL49OnTdUJssdnSy3TjSbkp3R5k8P2IxI0nALQz 2cuOHTtw5mnHL7/8snv37pUlBa4Lim2TiCt7bl0s4u+++664choNLXdYKfeX EbQq8xgOYfXq1YSNlGTt2rXq18WCuLX7zdELs6srFE6ePBkVFWW5zZ6vQsRT UlIUlVG2eCUlJdl6OaZncubMmYCAAC9TonJrg1qJxNPT0+13xnB+evTogSdG eEXguWfPHju/UB9xVZbbRbzclOlULApuuVMUp4hqV87fVQwlk601F9dlKAvi 5aZMF4l6hHvp7Ey/lRqCyho1amCTDeays1PECwsLccIRQdQHt7OyrHS4oNg2 ibiSBs1RSduMgJEZM2aM8a3mjFDGqdh75sBFE2yauPwoKCjILIeVzoI4RgwZ whnT/MKRI0di6i2bdf369bgKaulHzYWcecKRJfsRWz7K3bSg7PEeMmSI/XHc b7/9RiyGkNHn+/Tpo7/d3U6UB3RU0rYKU4E7xAUFBQUU3qaUMpYwUho3buzG Q6kKRhbEy/53R01kZKQH3oOATSCQOX36dKHd8CU//fRThe3Jhx9+WLNmzUaN Ghnc7WCniPNxYqWvvvoKt7ASpd9xQbFtEnFxISnd+/XXX3eZlBB4ot1iWL3y yiv6zgM9/IUXXuCdGC7HbgDD26QH8s19+/Y1i4WpvVGjRmn2zN27d+NLaN4x h/TzT5ZL9mhNcnIycZM6VLxy5QpxhM55auN4ghGgI3Xp0oXKNNsxblnU0aNH e5lu27R/6psG4ts2btyYmZnp7D1LyoWkBtNKO4mK3SFe9tf5O5xnO32nDz74 gKjW7WqoXhDXv0NcfW2ZSLTrynIaYcmSJdWqVfNyEH5+fp9//nnFSoIw8fE6 deoUWr8SWo2dIk6U1Lt372nTpqWnp7v9xIdxXFBsm0RcXAJueSuiU7l9+3ZM TIyXab/ohg0b9N9cXFwcHBzMm/mIYzelHDhwwNfX18tiZ744J6WZTp+Soz6a voSYHrc8XMDra9euxe5lZWWpW/zQoUPEEQ65ycsTjIC4F8zrf/NX09vNplkU KXSIORXHviZNmoRL7Ox84MotwM8884wbM0pV7A7xMtNixxNPPGFnJg3lIhi3 J0lQJrJgxowZOvVw+fJlse/Fy8A6/s2bN2fPnh0eHt66deuIiIg1a9bw8ZUr Vzp1JR0jvGXLllxHsGrVql27dlX4JB2DiDCcyEIna4caO0Wc2sYOEMtoTmx6 LC4otk0iThcNCgp6+OGHdQ7oObxjK7vpKKf+GrdyP6O/vz+qp/me8+fPv/TS S7gilJCKTUhIQIOMGLf8/HyxldrMkRAp0y0XxDHj1MNzzz2nqT481LBhw4i1 GUGLFi3iG1CWESNGjBw5ElmcMGGC+lPKgjgeHYFkXFwcFRsaGop3V4H1Arcb AWW2BB/+5MmT4kXh8Fj6A/QfnEaHrCyLmVIa3do5AgfC94uLNqxthyhziQSo F8QNWtoy00IPVaS5X/3ixYsdO3ZMSkpSn5ujM9OjBg8enJaWpr6SUiyI4zEu XLgQ6eSDdNrOnTszlFycVcb4grjiXnpZLBpSLeqnZsi3bNmShhN9WMyaCgdg 6dKlznsWz0HkFvbx8TE452mniBOUderUiXZ07N0lzsYFxbZJxAsKCjC8devW NTtgpeCMjs04Euk0rd3doFBYWNi4cWMv0x0WlpaTMUgwgjVDPcVODNRn/Pjx SPMbb7wh3o9cbt68WfM42N69e/ksgmK2q40n7dmzp+WC+EcffYQDZi1w5nWM JMWgZTt06IDXERAQQMXiI4WEhJgtnVByEUfUrl07OTlZGHl+l4dNTEysdNdE lpSUiLtpqDdFJo4dO0Z1WVajyArVpEkT+y+CpCPh9tSsWbPcAw72oxzGXLJk ieYbXCMBFVsQ37ZtG56k5qwXnhtDQH1Ei4aLN+FjguGjvLm4uFiMx8DAQNwV PkITUCE0weLFi125tUNMZHkZuENcqTGgkMrrlHbu3LlKmqnjx4/zaM2aNVNO hpaZhjxOgkPWvCoFOG99+/b1MmXfMtKadoo4bjzO/NixY52XAhHL365dOzrJ O++846hfcUGxbRJxEY0SO2hu4nJexyaI4BuIgs0EVA1OMgGCl2kV0jJqo7+J 3XHjxo1TT1PzIJGRkXgm4oIMwuo+ffpobsIhSuLRvCyuMlm9erXl/moetn37 9jophXmDOvnenyZEeQhYiFbUNazcyDZkyBBFssWhdZpDbTYrBcrChGLJeXai Hs1EfMSSuDd4L9YO2htHeINt2rSxTKLucHBUcMYYWZp74F0jARVbEMdrql+/ flhYmGUt0eWef/55JURlHNGCeJW49Dxvenr69OnT1S6l2ObNQ+Xl5SktiyVv 3rw5z+6y01v0sXnz5ol66N69u/66jPDVvUyLd0pqwTLT0Ybo6GgxU4SV6NKl C28wu1ZeuArBwcEPyM3jPPuMGTOoq9TUVCNrRnaKOE3A4HVexm/FJxHhUoW3 Cpjh7GKX2SLiylgYNGiQZZM5tWMz7lJSUvhp/q85ecsbUFIvU04Jy62SYjqa siGsZu4HtkVcFi+2zDGE6ZCaO5Hwo0QqJ55Fsb1iQRy3Tf02PA2C6y+++MLa 41CeBQsWaGa945X58+ebnWI7ePAgqod/qF7JVUx0RkaGtR/yTD755BMMO0/E c4lXiOZiY2M1M4aVlpY++eSTZha1YmA6MCCuSWaOTPv7+2vGfS6TgF9++QVv UBilOXPmlBsrUdUzZ84UJzs0YytKzvgSuRowyHihvN+aJtI/GVN81bPPPqt2 m3GwcZuNX31VYSgtrcCIZqzhloh6wLNasWIFRu/s2bOaUoJ9IG4Sb1bGNeZu 8uTJWVlZ/IFqoeFoPlwRs5YSe+eIAqrGIVAj7N69G/kwuNplp4gTE/FDznOQ UBbaTtntQ992yNc6u9hltoi4yJZQrVo1y9tjXdCx0U2iUQLPZcuWmRlhgjUR g1ubvuazQUFBKKPmY7799ttepj2rGL2RI0fqBLYE+8JV4DGpN55anBAXQSJ/ PXz4MN+DO6e/b0osiFvbVyBWgZXEdEruL7M6ZCAMHjzYy5SSVOe3PJDLly9j S/F1xUYCsbKARmuqDJUgvCz7UxMgUt26dXPNxMW6desYDjyX5VY9p44Uqggn FgcSnaWPKTcIjBs3DmNy5H+h3+7bty8/Px+/8ZlnnhERKDRq1KioqMjyy8W1 sH5+fgTdXbt21b8lRFkQV7u4ZabWx7ehBtavX1/hxywX6lDYBC/TlXY1VIhd ndaescy0LB4YGMh74uLirl69WlJSMnbs2F69eok1TYyAuER7yJAh6liGP4sj qEb8pSqDODVjcKLMThFfsmSJY08NW0L0jcrgx+L9YoEd8p0uKLZxERdJVOrW rfvNN9+Y/ZNrOjbOszjghilGynfs2IG6DRgwgDqnVPxZ0/opJ3bRcc1YD6vO MO/YsePWrVsxZeXeloWFTExMxAo1btyYoc3/J06c+Pzzz4eFhfFXrGK5WiMW QK3dGiCShKSlpYmuThTTv39/yzq8efOmuB/NUZ3NZfAU27dvRw7o2y+88AJu KsGRTnQsZmVpejtX/0+fPs0IPXHihD1fYgQaTjh7ixYtMuv2zh4phYWFDRo0 8LIDNG78+PGaZhYrgVeADtYxgUHu2bMnca5mEirGGlLo7+9vtudTTDiUu8HM veCcYzRwQrB4HTp0mDdvntL3CBmoYUvn5KeffgoNDbW2gFJVUe4wsuzqltgj 4sIMuuyYwyeffOIQu+qaYhsXcTon70xISLCcbXZZx6ZOPvzwQwxgZGQk/nyb Nm0QcUJXHeXlI2Klw1qiGHEbZsOGDdFE4zt4cRgKCgrQbtx1Ynke0HhOj08/ /ZQgWrMwyslo5US8ONZneSJAXOaLL+HK434OBJ9wm4lyk9vzhtatW2t6jzZB Jw8JCXFBDq6ff/45PDw8ICDAMrdD5ZUA5RJe0TMZVgRfQ4cOpQcGBwdbns6g u9Jp6bpqiVfOWeD6VvgGTPdCsObn54cfYnb+RRyaVlZDCFE98Iy5MxDpoI0E m/aIOJ9t1qyZy2Y5Nm3aNGXKFPu/xzXFNiji4liQtW1UntyxcaG7du2K3SC+ 0IyRRYY3QgxiCpsmbEXyEJ3ryTQRq97Wrp/DmGP31AeCLl261MiE2TRCTk4O WtC0adNKagyNI85387DY/wqPBRoLfzg6OtoFd4qJHpWWlma5dcSTR4o+BKfE pLi77733nvIiD5ienu6luqQAd1psOxGJtc2OyfNQvXv3FgvllXThWFyPgiem PkwHy5Yto4uKSAGbk5KS4oI5H0+AmC4+Pp46UV+8qIk9Ir5r1y5iFtfM3oib 7Bxy3bZrim1QxKl/opiIiAjNqTNP7tj8tEj4Zu36VOJiRJPeZWuMdv36dXqv ctLZINiu5ORkzY1D4pZ5Hx+fxMRExa3FqqPUZtexUZkiicfMmTNdfOTWLZw6 dYreFRUVVeFcqeIieBxRZ+9qE1u4rcXUnjxS9BEzPziT6pIr16YLEeev2dnZ uaY06WKVKjMzU13hPL6/CUdt/XU9YhW4Xr166pMFFy9eDAsL8zIdbqUSsAnW rravkiBSdHizC5ssqbCIi02S+vlyHQj+alJSkq2G3RKXFduIiCMub7/9NmG4 2SXaCp7csUXk62Ul7UZJSQmSyr82bNjQ1qo+fvw4Vlcna6gm4oiNZiYNTFxg YCDOkvoYPpFjXFyc2aW9hP80R/fu3d2bl9tliOtl6ag6WYb0OXDgAOpp/xb3 cqHtUDq8O82Q35NHij50OW9v79jYWPWsqXI578KFC8U+T0aTSMKJE4Lo86+K xcY/IQAnPJ83b17l9Twp+Zw5c/BPVqxYIYzh2bNnn3766Q4dOoh64HmnTZtm dvSgaiNa9rHHHtNf8KqwiNPl6HiYO9dkMM7Pzx88eLD9U2EuK7YRESeKCQ8P Jw6yJhke3rFR6vbt2+MRqdcoqeGcnJzOnTsvWrSoU6dOfn5+X331FVZo0KBB 1lLZmLFq1aqMjAxbOySBf79+/RISEl5//XVlppEv2bRpE6OA8lheaob9rFWr 1saNG8tMPglNVr9+/ejo6AfqiqVz584FBwdrbskoF3GmD01Rrmh3EmIvvU6k 6eEjxRrKVg2zMwKKh4x7z+u4+jy+6NXCsOOvipMa9+7dmzp1Kp4nsUklSnyt CY82a9asgIAAHrB///6MxM8++4zB2K1bN2KBxMTEgQMHPmgXkWMzMbCjRo3S OTBeYRGnCxHdTJo0yQW+H2KB7Dpka4rLil2uiIvd3WicfspTD+/YV69eJSig JEOHDs3MzMRsRkZGzpgxQ2S0OHToED2QMsfExGRnZxtJXCDuENdJPqOJUBMi EWqGCsF0Dx8+nOoiOuvYsWNeXp7mbjfKs3jxYko4ZMgQYn86BoV06pkFD0Tc ve7r64ufbOtnqUAquV27drZOm9jKsWPH8K9QOp15RQ8fKZoQlfTo0ePRRx/d v3+/2T9dv369b9++LVq0IAbnD+rckgw6XGL69ogRIyIiIggEPvjgg8obg5tx +/btI0eOfPfdd0pb82i4midOnHBjtnx3wfAkyqhbt+7OnTutvafCIv7xxx+7 ZkEc9zIrKwtv0yGbyV1W7HJF/Pjx49gWg8/l4R0bW0RJkOwffvjBLNKh+U6e PGk8tsV2YW9tvVpOnBBX3CGsHOH/hQsXjFg2VPvo0aMFBQWVdEeQ/SB/WIA2 bdrYmjlB7P1Wjt47iVu3buEcRkVFGckI5+EjxRLUmdJaO8tfVFSEA6MZYvPB w4cPFxcXe9TcgsThIBDTp09noJnt91CosIgvX778iSeecEHK9G+++Wby5MmO SmTtsmLriziRCx44IYMbr1P0TDC2hFG2NjfdOCEh4YGaBncs165de+qpp55/ /nmbbl0R2X4IA51XMIRszpw5LVu2NLgWI5FUPZCJESNGdOvWTdOPFSIeGxu7 ZcuW7du379ixA9E04trt3r17w4YNlc4JdGqxkWYM2nYTYqFKU8SJW/Gaevbs 6YJc05WO0tJSog9bG4gYPC0t7YENpR0City2bdsZM2YY9+eJ3FFY5x0uoxus X7++RYsWlrPNEskDhbhVCitnGfcJEVdnFsrIyHBBDuQqiXKnj5KjyVLEqduZ M2empqZq3nUiqQBiQRwqnUvpaRQXF/fo0SMvL89DahLt7tKli859NxLJgwOj sqSkxFKd79+/f+zYsYN/gQxpptCUGIGQBIOjrkzL09+iIVyT4+4BgQAcB9V4 UjiJDlRmuaneXMbNmzcr3YWwEolEIrEJXNNz585V9vM1EolEIpFIJBKJRCKR SCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQS iUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFUXv4P/d3UZw== "], {{0, 81}, { 663, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{384.59999999999957`, Automatic}, ImageSizeRaw->{663, 81}, PlotRange->{{0, 663}, {0, 81}}]], "Input",ExpressionUUID-> "f0799ab9-63a1-4113-9a9b-637454208f30"] }], "Subsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.551726509418762*^9, 3.55172651497108*^9}, {3.55172724701795*^9, 3.551727256939518*^9}, {3.551740442654239*^9, 3.551740446534461*^9}, { 3.5517456641776905`*^9, 3.5517456679599066`*^9}, {3.5517550060720167`*^9, 3.5517550152525415`*^9}, {3.738588447836997*^9, 3.73858845417936*^9}, { 3.739026580352948*^9, 3.7390265955748186`*^9}, {3.7608161947106695`*^9, 3.760816198633339*^9}, 3.760964245330805*^9, {3.7609642833925004`*^9, 3.760964375100518*^9}, {3.7609808204315023`*^9, 3.7609808628119802`*^9}, { 3.761502082492137*^9, 3.761502110896494*^9}, {3.761505223544675*^9, 3.761505223827094*^9}, {3.7615058114199753`*^9, 3.761505840757821*^9}, { 3.761998962117303*^9, 3.7619989743177247`*^9}, {3.7619990105887375`*^9, 3.761999010829199*^9}, {3.762000827155554*^9, 3.7620008275956545`*^9}, { 3.762020621667922*^9, 3.7620206845788765`*^9}, {3.7620237724640646`*^9, 3.7620238211065326`*^9}, {3.762023853931389*^9, 3.762023871825574*^9}, { 3.762025282941674*^9, 3.762025283425213*^9}, {3.7620263761903257`*^9, 3.762026388189472*^9}, {3.762026422455056*^9, 3.762026448160829*^9}, { 3.76330639149854*^9, 3.763306451593544*^9}, {3.763321508044778*^9, 3.7633215100675983`*^9}, {3.768931019257122*^9, 3.76893105949534*^9}},ExpressionUUID->"f8fc6527-d844-4faa-aa47-\ 5379d276b51b"], Cell[BoxData[ RowBox[{ RowBox[{"\[Epsilon]GaugeTerms", "[", RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", RowBox[{"2", " ", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "ap", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ap", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.5528426313960185`*^9, 3.5528428641463313`*^9}, { 3.55284292218165*^9, 3.5528429562605996`*^9}, {3.5528431499186764`*^9, 3.552843154111916*^9}, {3.552843201527628*^9, 3.552843272601693*^9}, { 3.552843590460874*^9, 3.552843598577338*^9}, {3.5528436607508945`*^9, 3.552843666417218*^9}, {3.552844193457363*^9, 3.5528442541348343`*^9}, { 3.552876682972236*^9, 3.5528766844053183`*^9}, 3.552876717180193*^9, { 3.552876840979274*^9, 3.5528768425093613`*^9}, {3.5528768891430283`*^9, 3.552876889323039*^9}, 3.552876970800699*^9, {3.5529249839848747`*^9, 3.5529249845799084`*^9}, {3.5529250878968177`*^9, 3.5529251165304556`*^9}, 3.5529257065772047`*^9, {3.5594919383985987`*^9, 3.5594919566766443`*^9}, { 3.55950226366817*^9, 3.5595022774439583`*^9}, {3.656862370308152*^9, 3.6568623709712076`*^9}, {3.6568627167881002`*^9, 3.6568627180712175`*^9}, {3.6568627509751573`*^9, 3.656862752770314*^9}, { 3.7111631721852612`*^9, 3.71116318405694*^9}, 3.711163224463251*^9, { 3.711858944792965*^9, 3.711858958055724*^9}, {3.7118590751134195`*^9, 3.711859087933152*^9}, {3.7118593129800243`*^9, 3.711859458101325*^9}, { 3.711859609895007*^9, 3.7118596111300774`*^9}, {3.7118596627810316`*^9, 3.7118596674662995`*^9}, {3.711903835159498*^9, 3.7119038564037137`*^9}, { 3.7120957371373434`*^9, 3.7120957398184967`*^9}, {3.737167142749919*^9, 3.737167147016117*^9}, {3.7615023880680027`*^9, 3.7615024484920993`*^9}, { 3.7615024965193877`*^9, 3.7615025013630657`*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"0eb2a91e-d390-4ca3-9d6d-e5f43f0f516b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Epsilon]Gauge", "[", "Rep", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Epsilon]GaugeTerms", "[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.761502451497777*^9, 3.7615024724456797`*^9}, { 3.76150251277414*^9, 3.7615025360292892`*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"f053bcb8-3de3-4f70-8d9b-eb18b4c5e875"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Z11Terms", "[", RowBox[{"mu_", ",", "ro_"}], "]"}], "[", "cc_", "]"}], ":=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", " ", RowBox[{"\[Eta]", "[", RowBox[{"mu", ",", "ro"}], "]"}]}], RowBox[{"IdentityMatrix", "[", "4", "]"}]}], "+", " ", RowBox[{ FractionBox["3", "4"], RowBox[{"\[Gamma]\[Gamma]stdownstdown", "[", RowBox[{"mu", ",", "ro"}], "]"}]}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"dd", ",", "bb"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"ro", ",", "kp"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Gamma]stdown", "[", "ro", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"mu", ",", "kp"}], "]"}]}]}], ")"}]}], ")"}], RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "kp", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7633155539062448`*^9, 3.763315598509003*^9}, { 3.7633164038699293`*^9, 3.7633165673742695`*^9}, {3.763318368299883*^9, 3.763318376880912*^9}, {3.763318685682413*^9, 3.763318688705301*^9}, { 3.763321284632147*^9, 3.763321298459592*^9}, {3.768931192433444*^9, 3.7689312464141045`*^9}, {3.7689313361095605`*^9, 3.7689313518134165`*^9}, { 3.768931403254789*^9, 3.768931498078722*^9}, {3.768931919249487*^9, 3.7689319269979615`*^9}}, CellLabel-> "In[105]:=",ExpressionUUID->"39236194-cfeb-4850-b50e-c1b41cb5d7a2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Z12Terms", "[", RowBox[{"mu_", ",", "ro_", ",", "sg_"}], "]"}], "[", "cc_", "]"}], ":=", RowBox[{"I", " ", FractionBox["1", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"mu", ",", "ro"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"sg", ",", "ap"}], "]"}], RowBox[{"IdentityMatrix", "[", "4", "]"}]}], "+", " ", RowBox[{"I", FractionBox["1", "2"], RowBox[{"\[Epsilon]downdowndownup", "[", RowBox[{"mu", ",", "ro", ",", "sg", ",", "ap"}], "]"}], "\[Gamma]5"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"dd", ",", "bb"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"ap", ",", "kp"}], "]"}]}], "-", RowBox[{ FractionBox["1", "4"], RowBox[{ RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", RowBox[{"ap", ",", "kp"}], "]"}], "[", RowBox[{"[", RowBox[{"dd", ",", "bb"}], "]"}], "]"}]}]}], ")"}], RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "kp", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.763316620598942*^9, 3.7633168221517887`*^9}, { 3.763317396866003*^9, 3.763317416295575*^9}, {3.7633183798510094`*^9, 3.763318412737122*^9}, {3.763321302765909*^9, 3.7633213128768673`*^9}, 3.7689313635830154`*^9, {3.768931578246339*^9, 3.768931702696143*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"88d80328-a658-4b74-8d6f-2e58ff9b6b9b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Z1Terms", "[", "mu_", "]"}], "[", RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "ro", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Z11Terms", "[", RowBox[{"mu", ",", "ro"}], "]"}], "[", "cc", "]"}]}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"ro", ",", "sg"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Z12Terms", "[", RowBox[{"mu", ",", "ro", ",", "sg"}], "]"}], "[", "cc", "]"}]}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"sg", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.763306564357188*^9, 3.763306609672901*^9}, { 3.763315488516348*^9, 3.763315549404998*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"ce117ec6-fb95-42ed-935a-5c7abef49a6c"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Z1", "[", "Rep", "]"}], "[", "mu", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Z1Terms", "[", "mu", "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.7633064687159224`*^9, {3.763306515160906*^9, 3.7633065615446014`*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"a574800f-6268-417e-82f7-b8ca0c74e050"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "==", RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[Epsilon]Gauge", "[", "Rep", "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Z1", "[", "Rep", "]"}], "[", "mu", "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}]], "Input", CellChangeTimes->{{3.7633213297567873`*^9, 3.763321329888321*^9}, { 3.7633213858087177`*^9, 3.7633213870035195`*^9}, {3.7644563965300093`*^9, 3.7644563977048473`*^9}, {3.7644564301975236`*^9, 3.764456448554699*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"9db0d954-7cee-4863-be93-da5810aedca5"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.763321364112877*^9, 3.7633213885275173`*^9}, 3.7633996575836353`*^9, 3.763406495038675*^9, 3.7644563915707684`*^9, 3.7644564566251464`*^9, 3.7644568843125515`*^9, 3.7649508587507687`*^9, 3.765635210510727*^9, 3.7657391687424235`*^9, 3.768931732664296*^9, 3.768931960057293*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"82d44925-adf1-40c5-91d1-e3c44e9c9110"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Check of SSTPRS results: All terms check out with my results except I have \ the additional following term which they do not: \n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"+", "i"}], FractionBox["1", "4"], SubscriptBox[ RowBox[{"(", RowBox[{"[", RowBox[{ SuperscriptBox["\[Gamma]", "\[Kappa]"], ",", SuperscriptBox["\[Gamma]", "\[Lambda]"]}], "]"}], ")"}], "ab"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["\[Gamma]", "\[Kappa]"], ")"}], "c"], "d"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"[", "\[Lambda]"}]], SubscriptBox["\[Psi]", RowBox[{ RowBox[{"\[Mu]", "]"}], "d"}]]}]}], TraditionalForm]],ExpressionUUID-> "9aba9258-1ded-4efc-9719-63d995e504b5"], " \n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs3V9MW2e+N3qfc6RzzsW6OFxygcQRssRFpChCSAeEInNBlAjJoEQI0VTI VM2BqJNtMn0D062YVLsmo8bVtEandaZTa1orM3FnauWduH3jduNpQ0Y4u7gT I7AybgN5TRM3QIAgg0wwLB+vZS/bwLK9/i/bfD8XW3saMOufn9/ze9bz/J7/ +zXj6f/3f9VoNG/+n8n/c7pvuPXXv+5768z/lfwfXf/25vn+fzv3+ql/+2/n +s/9+v957X9L/seX/4tG87//HxoN9f8nAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAoHyRmxH/rbHh19sbqjUaok7XYzR/5g2txNU+LoCSEJvz2scs lmvmoYHe3le7dEeP22Z21D4oAAAAAAAAAAAQhIwvTTkGT+uH7N5gJBonE4l4 NDI7bu3TEi0DjukoqfYBQtnZeWh/9dw7n/09tLZ94N92Y9Tg+8WOoa9XVDgy oaKzLqvFYrnSr6vRUI4aPc/UPiYAAAAAAFAfGQ1c7z4x5F1U+0AAoHKgYZEf GY98M9LWOeJ5HNs38kkuTYy0ajQnLf4X6hwalK+431JHDxzW6QetznF/aCGS ND9772/XL/c0EMl/aLroeVqGY+1b846z9ImddcxvqX0wAAAAAACgru21kNus r09mPr2uBbUPBgAqAxoWJZBR/1jH6ZHxn9lWx5NbvtFajabK6CmnuXxQCjIj ouyOGexlOvd42TvUQJ1Biy2INfMAAAAAAIdUPLr0ePbebfs7hkYileNg4AIA RELDoiByeXL0TIdtOpbn39PDWsesAQz+AC/5R0SJxtc/8PxUnsOhicTOjK2l KnkWNaaJDbWPBQAAAAAAlMfkOkSdrnfY6vzafqEGAxcAIA4aFmXtrPvebdb/ fnb/avkMcmPiSg2mw4EA1Jf5xCWrdcTY16XT0l/qrv4hi/3LHyKxXbUPTjhy 3tFBNUpagytcpmO6AAAAAAAgBhlb+yWyuMbkNcw4BgYuAEA4NCyK2v3R0dk+ MrGUf2AnGrC2J29A9ZB3XcHjgkpAfXv7XRG2YgxlbGfF8yY1Q1TTZQ/lm1gN AAAAAACHCAYuAEByaFjkRG7632vusIe28w+Ibn5vaarSaFpME88VPDCoCJU5 Irrut7TR+8xb/FuYIgoAAAAAABi4AADpoWGR05rP3DngflJgPPSRo69Ko6nq ufGowKgpAKuKHBHdfWg/UY1Z0wAAAMCGjK/N+8c/t40O9b/a3kBtiKAz+9bU PioAkJ2sAxdk9OGtkb4hzzPJP7mgeHTh4fT8qsB0bmfm+plf2SafVlY2CKAo jIjK6OUDa8s5Z/hlnn/eXp0a0xMaovWd8ciW4D9Slq13ojIbcKXvhZgR0ZK9 /kvufgJFRAEAAGAfMr728M4Hr9PbwlY3dP27zTV+Pzgf+WUtb7V+KDPk5tR7 zcn7SzS0vzowNPrRjTv/CEY2cXshRbaBCzIe+dbS3dQ68k0kruTjRm4Gxtqo B36AJaEjNyP+r+xmY7dOSzT0Wn3LbEe2E5391FB/YtA5U6476gKoDSOiLJLt z7TXaX2rv0tHXZw6XbfxbZvrfjjKb+uj3ZD9xAl7iK7YSkZnPh85195QzWx/ M2q99isdQWgNH08tCR4OLd/WO1FxDbga90LUHFHVr/9uLPLDl/bR5INSl8xr 9EaL68FSfDe90RiKiAIAAEDWTjToHNTRfQTtWYvnp4roPQKbeHR5IeQfd1oH 9XSWWt8+ZP/7/DpuOMg0cEEufXultbZ+0P1U0YQ6ka0VVvWmZyV3nCGZJd13 DJ7WD/3W1KXV0JtiH7MG8oxE7ERn/tBddcxgny7/VpGMrz3yuf9oGRqgVwAQ dbozBuPbHzm/Cy7jxRfIBSOie22vzt62GJoJos34ydeBxyvJ7x4ZWwyOj/Vq CUJ3yRl8sffLuL32+H8uszee1AYxdaaJDer/3wzaOog2s3tmPrIQHLf2ppo2 jfaiO7It+FjLvPVOVFIDrs69SI+IvoxFpr/+7Kqxl147RjS0n3vL6rwbWiv6 aKl2/clYeMJ2vpGo0Q1+OhFaipG7seWZ26bOtpFbdz7QiygiijAKAABQech4 2DWgJeiuZfvoZL637VBhtpam7AON1fR9PzUy/rNCK5teTttO/tq9xG8mDChA joELMjptNxwj2t6fWlf8jjO1wjQdjvlMo0ZuhL2/69FfcvifxRMbs7Yz9OK5 fkcomv+Dtp66L9Ur+R2RQ/yZ/8Zb7XU1DV1D1htfTUz5k6Ymvrphvdhel8zq Wvo/8s7znJ9WKtCklDaMiGaRL4LOSzpqGfsV99y+F5E70cCH+mR7pDW6wjlT 16h18W/kmaS3MmFqN6YXUO+sBf5soqacUh+h6+ozjox9cs2g1RDaPuecoAqi FdF6JyqjAVftXlDfXv1l6793tL5u+WIyFIlS1zC+HvZ9Rk2i0PaNFV8Ur8L1 T10ujebASGz8kdNQn3pXIKSIaAWEUYRLAACAg8iIZ7Ax9aq9fnh8Rfh46Krf 2l2nEYB6x9rbPzRq+9Md36M1paciSKjsrgCTglGH0GGZEnHzOaNW+WF/z5Ik /cAF+cvdK6cIots2WzhjlQUZcRnoGiAn7A93U/8l9thr6esYdoUyOUt8dT4w /WPRqR3k0sRIK4fUu0Ql00PHwHGt/srn/icHTpWMr858MXySmuuif9crotig WtCklDiMiKaRL2bt56h5jY2XPaxfNPKJe+DI3p4Y+TIw1tLjZC93uDNja+l1 zOf/zpJrgbEuQlPbYQ/ynidaMa13ouwbcDXvBfXtJbQGe2B13xPETKUgTl25 +0tpBdBY0EENhxJs82l3171v0UPtvIuIVkYYRbgEAAA4iFx0D1SlxuVaTBPP RXzSVsR/x0X5q8NmudzbTGRH/Kobe//jE+cXLhY37VbzUG9rZiCRaHzNcntm tSzHRcvxCrzwW06m/26+tEtK8YhroAb7e8qCjEe+Gxs4UVd3cvCGkBVqUg9c 0DNDNLV627QatboyiU+bxb9ODf7PeSw9PcOuh8LW7pGr3400VhH6DwMlPgPk oHjYPdisNXw6W+DI4z+Pj5yiVkO2jt5dKq+JVGhSSh1GRGnxJe8I/e65dWRi KU8jRD3MVLehyuheTH0N13zmjr48QzfkvKOjxRYs2CCRYWdP8hOrL+1de15U RbXeibJuwNW9F7thzzWHn31i6kbQdpq6S/XDnsUiUUPB678esHbSX6J+Z/jg Bcs8Wh224CaPT62QMIpwCQAAwIJ6Y5geipO0zHjE1ZsdDizaG6cq80x+cbU7 tXhfU904cKNQx6MslMcVoKagNKcOMpuFyWfZO9TS4fipHMe7S93mD9a2GmZU /YKAVVHSDlyQkdvnkw9z03t+dTbvYsrQVQ+5H814P/l1e8fbt0IvRBzKdsR9 UaupabP+wCePUl0s7DLWt16bXC32PMSmbfra5KOjHXCFy+mFFJqUUocR0SRy ZXy4nij65pG5Vk2miRXqt566+o5e9rJ3HnKLiOaX/sSGIe8yj6OttNY7UbYN uOr3opCdoK2F7js2Wx+8LPKzylx/cjtk76A70dWDHrZVT8yjVXNlYoP79ayY MIpwCQAAwEKeEVFyy285ygwHVhk9K9x+Kx65N9Z7LDWmU+RtbKkrmysg15A4 q60py9FOfq/mgZudgPVYdgT+Le/6Lt9PkHLgglz0DjdrNPX5ZjfJLlOGLkX7 ivmzv7pcX3p9gXQlNAG2g/aOWg3xij1UNg8wPQ5Tp7f8j9mF9WJnvbPiuURf sobz7oWyyZjQpJQ8jIgmEpsh+yv0OM2RAfeTQl+u9IvU1LV64bd05l/wnltE NL/01edz8Suy9U6UZQOu/r0obMVjTC0xax4LvCx2gEpc/+cTJnqMlnmnsB/z aHHuk1MqJ4wiXAIAALCRZ0AsFrJ3ZbqzvMr1kOv3LempbqxVgMpF2VwBJUdE qb/F79U8cEUu3RlM74/Wcv6LnwTsLizdwAW5GRhrSx6LetNaMmXoWk2f3na5 XF84bBbTBX1DavJIQ7f584CA+dDxRTeV/1X1uZ6WxyP8Mux8LV27g9BbplaL /PjGhCnV8JTkfCRWaFJKH0ZE6YKfVamXo0UWYqRHRKn6mVshe0fzu758O+kU LSKakv5S13Y7H3P7klRq650owwZc/XtRBPPd1mj6nAtFOx3yX/9171B1oZfC zKNVw2eeZOWEUYRLAAAAVrIMiJFhl0GrEfixO+u+d5vSv9t00VMmXdd9yucK KDgiSq3yq+Hzah742I1F/vn1ra99c6vCZtFINnCRfPj76pOf0+OcV+nLu68M XUY8Gp50DLYRgr9Zm5PmI8nfPmnxv5DwcOWypxUijlkDxWacP/MYUxPbdWbf miKHKBKalDKAEVFywdmd+hbm7pzOiim2U3vJYuk4Mzq5nO/HqSKiHL7STHzn vGq+glvvRBk24GreCzK+FPjS/uH1Ww+W8r2Xz46I6ix+DrsmyXz9MytlCIMr wnLIgoqIVk4YRbgEAABgJ8uAWOZFbZKAbQ3JeWcPs9EQl8U4Jah8roCCI6Ir EyYdShiVLKkGLnbnHNTGBkqUpc0nU4aObaJI7J/WVvrLecIe4l1aIBqwtu/d DLqEZWamUZlcpzVQdDuFjYA1tc8accQ8WQ4r69CklAGMiGbGjeos/iJtYrb8 eE2b5f563iebGtyoLb5Dytac41W6eumAK8KpNa7o1jtRXg24yveCfOIeOJLq wuYtzpAdET1pDRSpaEuT9frHI65++mCqWmwzbOOWaz6zjv5u8ZknWTlhFOES AACAnQwDYntKaFYL2dZwa95xlvmAUnvNykU5XQHlRkSpjuVplDAqWRINXKRS Hk3VgHtRrZ43Uyssz0SRBVdv3f7hid0fHWfe4rAdM7MTWdV511MBlQkUthXx vtfdUFPX+obV8xOHbZozGaVGU2wP65KAJqUcYESUmbrG4Qps+cy1dLdh4NaT QgVzViZMTcXHVze/tzRV8RmAquzWO1FWDbja94J6alOLxfOXXCi2Sv0AWa9/ Jn7lGcJlxjZzioiu+m1XnUX6vZUSRhEuAQAA8pBhQEx4Cc2MnG1iiKOWqWKl skpNOV0BxUZEqVV+KGFUwqQZuHj5wNpcVXwDETkxtcLyTBRh0iKi373E/Dfq W8Bx0lH6BFVcVSqfnFSOuOBeKp1cjh2alLKAEVFmAxoOVyBzsQqPdtKNWK3Z V7BjsPnI0Uf9We1Fd4Tb6FPFt96J8mnA1b8XqdXf1Y2GDyeX2B9GpvfIZ86n jNef3PKN0u8T2JfwM8UrcoqIbk6ajw1KPQW3RMMowiUAAEA+0g+IiSqhyciu HRO8PEo9ZXUFlBoRpVb5VedkMVBqpBi4YGaAEK85wy+lPDgeMrXC8uw2yzLm sBG0neWcoFGzs6hT7HGW5O6/YuSkcvLvsyYampTygBFRZgFy4ZebZHx15ovh k6lpeYX3wqYGN2rr6poLbN2yFRl/pzX5Wdpz9tkXHPdUOgStd6JMGvBSuBc7 K15TS6HNPZNX/jT92v+8c477zEM5r3/61QPbwxOfdw000N+tFrMvVcWU3PRd PSb9FNzSDKMIlwAAAHlJPyAmsoRmSu54YNm91iyrK6DUiGiyG3z8hP1heY1t HypSDFxsBm0ddM6h4mIxpgxd1Zvs6yiZFxaZnJpcvHOxxeTltOgykcosqgp8 fhnLndzObacMNaFJKQ8YEU22Mdtzzj4toakf9rBNSCNjzwK3LYbW7hHX99/b z1KDosweTOTKhGXAsbc5TTZBlxqu/e2bkVNtln+sHBywij+f/eLfWwkNobvk DHIcDk0cjtY7USYNeCnci+TF/eXulc62kTvh2MFWdmtp8n198kklTo2M/8xn kqWs1389YO0kNFVNlu9zh2jJ6EPXcEdbb8/x3NBGLnqHu4a9ktckKM0winAJ AACQl9QDYuJLaNJyxwM1/Rw3BSgNZXYFRDwAZHzpgcti1DdUa4jGrqHrX88V 2AhixtZycu/WsfRHRB/eMp9tqGoZcExzKNAEuZLX3+8c7W+tI6jrf9n+9/n8 158DCQYuyJ8cHTXUEL5pgssuC3t/dzPi/8puNnbrqISXaOi8YP7MG1op/tzH I/5vprNbMmfK0OWdgrKzPvV+W/KadXw8uxmPRSavG/S8di5mvjJ5ZjGVpuTl nfY6bVeH+rt0dfQ0tDpdt/Fq8hKvZUdUXvjMLaqmcmhSKhBGRGlbS1MfG7RV 2u6rrqn5VWqIKR5dXgj5va5P/qO3SWew3AosURNIydV7o601mqp+Z3gztvTA OXja4AjuDcwrE6aOIe8yGZ1xDra3Gj/2+EMLkaQn88H7484PBtvriYaey/Z7 CywDWfkdjtY7URYNeCnci/R/fDo51lff+Nq1m//pD4WppywSDvn/86b5Fa2G qNO/fSvEfcg9Td7rH3t4c6CFIE6Zbj9MhrZ4NBL0/sHY2j54M7C6/cRzsUmj qTfc+FeMXJ+79VZbn3Num8/hl1YYRbgEAACQhtQjohKU0ExkC/6U44homV0B oQ/ATnT2xkCTfvjmP6hk7KFzIJnHaPsdIfbuH7XKj6X2/orP3MacY7s1UCIv 08tC8vp/amg8M+JMXv+nCw/svVWFrj+7ZEYeSUlm0l9ae9OVa4nWt27efZDK sSORxTXuaXV6zVr+jRjYJTv2/2VPZjGaA4iiHfWdFe/lIx32UCavIX+ZuHpG 2zhgD6zm/72tpcAti7Gzgahu6Bq+PvGE37drY8JEZav5NrQtMeTGwr0/DrXX 0xXh3r05fj84/yR102fv/c1mbG8ddAaj9HmQj53dtcylP+uYV7h+M5qUSiF5 w7L/89cXAt+67O+bjK+92t7AtBvaVvPdVUnPQ2pkfC3kdViGzunpg9bquvqH Rm1Ob2AhGt/zY5FJu8mgq6tp0Bst7of7G8CdGdvxN9JdgvhK6O5fbKND/b0U g9Fksf3pji+0LODaHpLWO1EODXgp3Ius7bW5SdfYW9QoIPVZ1Q3trw9Z/uj2 PVortPlXfnJf//jzWff1kQv0E9L++vDYLX8kXV2CjIXvOa5eSH7/iMYu01/T gY+LkgujCJcAAACSkXhEVJISmtlZJbKPB0qv3K6AsAeAXPr2SluXZSpTTT+9 A2yefVGp4mA1B7eO3XOSOeXuoQgy/tQ9eLT3+swLbtc/j4irl2hof7U3vzO6 ulbukxyY7cAydbo4/RLVsW+s1uR1rM/5Y959QbaD9o42GRa+FcSkPESpV+Ui 46uBm4Nt1NJG3ZuO+09iBy8T+WLWPtD2m/9cIjOJaiqDVnpLCDQplUPqhiUr vhLy2AapcQlq9pv+wsgH9puutP/+TZDr7i5ljRrckKG0+GFpvRNl0IBX+L0o +eu/VymGUYRLAAAACUk8IipJCc3EzpL7QvY1d0mXezqg3K6AkAeAXJoYadfb prM/nXktzvIaOkEXBzvFVsIoOmvrzpxmkd11IYN86rl4oscRymY3Ra6/MjIb CnCfF0HGw64BLfMI1LX2Dr1jofzWRE3wyDz/fY5HrBs3FJjWIqv03hCl/cju REOu4VZ6Lo7+2neRAju6JB+ns2bfSk5TkMyerQElG100KVDETnTOY+mmC9IQ bcZPvKE1bvunVxq6iGihHZqEOTytd6LkG/CKvxclfv1zlWQYRbgEAACQlKQj ohKV0ExsBKwnNXJ3KmRRfleA/wNAbofsHUcu79nLIPtanG06K1Uc7NTBEkaU eNg9SPeNNUQ53Wc1kZv+95qa9u4yXPj6K4R5aLkP4MembfpkN56o019xTu5f gkfGnvg/v6KnqnUR9cPjLNO/dn90dKoxxShzpopPpOSMLqpAJ8hE6zvjBfI4 CrWvsW7om8epDS9S30ZFZ++gSYHCtiJ33+9ODfjw2Dy9IqWLiEr9sYen9U6U fANe8feixK9/RmmGUYRLAAAAaVGLKdJTGo9c9W2K7BBJU0IzU1U+pcroKdXy 9wcpcAW2Ir6bVovFcs1kNPT2dum0x22zIvox5KJ7IN2B05l9axx+Y81nbmu2 PniZ8xnJrmBz6jPYpsWSEZehJu/cRfKpq486gPLcd2Mz8ElPI0vZLslUN/R8 EtjzxXw+YWrd+7qf3PRdPZL/+itl2TvUQB0D16kGqfkJR7st30byliNjUpKq 866n+6aE0SPDzWOBl8qfr4A5PHyJ+ZqTsdCNVB6nIbrGAmvFL9CWz3yk13i+ IfPU5TxgO2v+P1tyOfxcmgk+yqFJWfM79lyFP/vXkD4qI750d7Q11chWvZpT KuRQyi0iKqXD03on5G/ARXbSKv5eKBBAxZM2jEpI7XBJbd11a2z49faGamoQ Xtdj5Lh110GxOa99LPk9MQ8N9Pa+2qU7erxkS/sCAEAFIxe9w6lAmufdMb9P k6aE5p6F5+VV3EaJKxANuW1UF8KoT1UAIg5WB+J3zBHPYGMq22wanSy+W/nm pPmIfm8N9mjA2p7uArJMi6VH3budC3k/OdX/51Uyq2QoPyJK7bmw79FK9pB1 +a+/YtKVrDhOaab74TWto/cKbKFB21mdvNZK1PU45/dOfPnFM3h8/39USCah k28nWeFfc3L9vqWtJv2NtnzPukjyAObepeXuApw5WUavKyLsnPIpiyYl4urd cxXKqrp1GSO355x96eXAtXsWih5KMhURPUytd0L+BlxkJ63i74UCAVQsqcOo dNQMl2R8acoxeFo/ZPcGI1Fq+D0ejcyOW5MttKDd6qOzLurNwZV+XepSHzV6 nvH8CAAAAJF21qfeb0ulGlqjK1wiRUTJjYkr2fmRklQ3VYySVyCdoYt/DZ2T chZ/FU6XBdh3ai8fWJtT00wb2FbzrfstJwtuKrq94OzDCAM3dOd2X0ZM9ZBT X2OOs3zlkZnYzGnEjOrDE/rfz7LsUnDwk+kXN3vPenfO0VlzSa0Kw8yOBPKk PLn4fs2pCmOt6ZaDeM0Zfln8Vyh7U7k9tchS2at8X8+ya1LkviCQI/7IaahP P5YSLGMpdzsrnjfrTBMbkn/wYWq9E4o14MI6aYfgXigXQIWRPoxKdmTqhUsy HvlmpK1zxPN4/7OWvlwnLX5hryC35h1n6eMv5TnDAABQkbYikx/2pirkNF5w SFCYS6oSmtkJb9SxdTrm1NoohjclrwC55RutlaxLmS2XpNG+ft3Htpkm83dj oa9+784dos1ZsMPaA6RKGB0veJD0CANqGHGyGw188aE3zL5kXt0Rg8y+pVzy uK0py9GGQc8vHKc9bgevt+1JTF74Le2cZ25IjzlXuUs98P2a0xXGmCnLebad ZbUnldv7i7KPiJZbk4IRUcVQG74w46HVbbaZw7mXUo6NgLV3yLso/QcfptY7 oVADLrSTdgjuhVIBVBg5wqhkx6ZWuCSj/rGO0yPjP7OFvfSjLrTEGVMmosUW RBYAAABKiEeXF0K+29eHOqjITTQbLLcCS5K8lZOohGZ2wltSfZ/gz1GBkleA +VuSbUNPxpf++bn5LL0taX374AfOcX9oYTmatyxVRnbBTg3b3BWqhFF14YOk 3lCXVbXYksJ0JjXEEfNk0bxGI06hj+aVx61OWN74Y4D7+C3Vq2/Mrqhav2s6 ctYeUi2lViqh4/k1z1ZBSToy4H7C9fpSl7c6zy8qPwBY4k2KeiOi5LLP2tsg R5GOupMXXT+JGW8U+ffznG/Y1ccMiJbXapGyc5ha74RCDbjQTtohuBclPSIq SxiVjyLhklyeHD3Tkb9oSfqGCnsLuTNja6nKd/wAAACSyplLRiHqWgd/PyXd O0xpSmjurk+8nUmBymyVnJJXIPO3JC4pFl+eshtbM2ehKb4Qu8iCHboCQIej YI2qZe9QSzlViy0p2UIN7XtLS7HjPkbBqtBH88rjeNsM2jpqzT765U180W2s 6XM9VX8+rMwJHc+vec4uadR0Dfci5yE7qjhtvl9UfACw1JsUjIiyEPn32U83 93kupP6041+YWyTKYWq9E8o04II7aYfgXpTyiKg8YVQ2SoTLnXXfu82FKjMw lb4ETfKkaiNTxy9iGgkAAAAfZGztl4WQf/zPloETEs8RlaSE5p45IdoeR6ic VskpeQXSf4s4apmSqOwOGV964LK81piaIzp03e17SE0RLfZbRRbsUN3v0wVL GKXmxHZj/o8gVEaT7oOrtm9v5lhkzeNydgcg5509xzmvE5SFQgkdv685VWMw k5ARPU7O2UVuuY+DM40VHgAs/SYFq+aVsaeednWv5a+uPG79p0TrXA6xw9R6 J5RpwAV30g7BvSjhEVGZwqhMFAmXuz86OttHJpbyX4n0PFVBtcIyFxyrAAAA QHHkZsT3e4NkdUQlKaG5p3oP11rxpULRK7ATsB6jB14l2plxbx3RqWecU/1s oQD2RTfUHgG6giWM6KnLbdeD22V0r0sG+cQ9kJr3XdVsfcCx+r9sB8NrPwje dkP2E3UWf5yuhKb27HEmoWOdlSEZnl/zlQlTU6YF4rOXR3bZHdtMY4UHAEu/ ScGIqDIyG1JTL+n63U/VPp6Kdpha74QiDbjwTtohuBfKBFBBZAqjMlEgXJKb /veaO+yhAvF083tLU5VG02KaeM7v8Cnrfksb/UURvBctAACAGDvRwId6afaa l6KEZu70yOKbnpcaJa+AtDsz8tprft+vMl33fKe84jHWFCxhRJ1yS1lViy0h 5FNXX3o2Qym8Xme2FZBpRxtq395+V2QtYO1Qe/g3M6tBZ/HLl/jw/JqTj53d tUwTxGcvj+yyO00VywpKZQcAy6BJwYioMqJ+i455nmX9onERjy48nJ5frdxb fnha74QiDbiYTlrF3wtlAqggcoVReSgRLtd85s6CNVE3HzmofmhVz41HAt5C MsVXRexFCwAAIE62hDihHbxTYFFEsc8RX0Izd1dZbbd9lsNH7MYiP3xpHzV2 6+o01Q16o8X1YClOJsjY8o8zwYiyb74VvQLPPMajknWYyYhnsDHVj+O95Wi2 bhLrKdPLHgsV0aLePjfVX/YW3HeAXP+n/Xy7rvv9iSXWfJSMR77/3PbRDd/T IukquRmZ9jqtb/V36ah8o07XbXzbdssfiYmoxLoZ+KSnUY7Cfozqhp5P8uyb 8DLsfC39pyUuJysMs8cTNf9Eho+nppX0OR9+az5yxhZUtwB/ZvaarAPRPL/m mbWWScQF9xLHpoH+DqZ/q9MaOJiUKDsAqEiTIg5GRJWROyLa51wQXkFHdAQh NwNjbcmmlhhguenJsOL/ym5OdkO0REOv1bdcnm/3Dk/rnVCkARfTSav4e8H/ +svReWM/NJnC6J6fZTkX1/1wlH/MUiBcvnxgbTnnDOcbON9enRrTExqi9Z3x iKDpGUvufqoXiyKiAACgopztltir0HAjuoQmuXjnYn1qdKemdeSbSLEtzslY eMJ2vpGo0Q1+OhFaipG7seWZ26bOtpHbkzffoIYmBZX4Fk7JK7AxYaJfC1Mv VeMrIe9n5gudDQRRp+sxmm/cW9jg97ezR15sE6UDdoK2lkIPz2bQ1lmoiNZ2 yNHTXGw2V2bcL1/n+fmEqaXYqOD26uxti6GZqOsYsn8deLxCVSMgY6uPH3is rzUZboQE12dQcUSUKgKW6rvvW9u1Gw188aE3zPHLTMae+L/8o2Xo9faGaurP tfcaRz503n24zDvX2AhYT1KHwyOP4INKVZp/PfRaTadjTuXhX2pzCj5nKujd Dd+veW4qxz2VJn/xDNKLOzVVjSPfrbIciqIDgIo0KSJhRJQT0Q0LtQMy80CL udriIwizrnP/puHJ7/V9x+Bp/dBvTV2p96GETNP65Hd4Wu8EzwZckdZ77y9X +r3gdf1l67yxkiuMpjDnQrQZP0mfCxlbDI6P9WoJQnfJGdxXvmx77fH/XM6f CygQLqkaC0zDSEZnPh85R7fnySe5q39o1HrtVzqC0Bo+nipeyZn1e7TLFIsu hVVOAABweFHxLh3+BYcksSU0yei03ZDqTiRja/EeDvPzxwz26Wjuz8YfOQ3M LMsiuytKS9ErwPSCatrNH1t7T3SPfjE1v0KNCUcmryc/RPvq2NRz7qcu5gHI dh5Zu47Uip6W/HWiYmGX8UjxhTbMXIt848xM6lFjmmCf7kC+mHVcaEx227rf v7vnLfZONPiX4fb6kixmVdzunKMzNRRLvLb3Df6yd0jX4+Ty+O9EQ7dG9C3U Rlr3ZuYjkcj8zD33R0YddUEJ3ZsOP/eKsomciR+SFHM4+PGpp62O26nJiik1 xiFjEvzuhvfXPHe5H9cCdDmFi+uHPex743IcAJRmWbEiTYpIGBEtSpKGJXdn JTFXW3QEYdZ17ulUkBth7+969Jfoc9mYtZ2hJzr1O0IltgqYq8PTeie4N+DK td57VPy94BxAle+8yRVGqXMJOi/pqOmUV9xz63uvPFPBbF/5Mmp+5hsFmj75 wyVV36Au3TBS49hEm9mdbNEXguPW3vSiOO1Fd6TIBP7836Nbdz7QF2qcAQAA FCHFiKioEpo5g4HJcOkMFl05Egs6qJ8n6gfdT/e/PKW30aQ+qqrI7oop8fWF YCCYeuksipJXIFOfKnkNTo2M/5zbD0oXluTQRckQ8wBkf5e1P7biMVazLTOk jzT2rz92HznvnCu2TD93rgXbvzOpR579C5I9avu5ZM+NaB29u2/JZCbPlWyD KiVll8zv3w6VmvTL5VbS22nVt+97hBK5D+SBB6zIJ6b3kmgx+15w/iXOUr3/ /cO/amCSJqLfvVT4B4W/uxHwNWcm3nBP5bKHofuNN5Kn1eIyACjZsmIlmhSx y6j5jIgqttizhEjWsJCL7oH0mlARQ0MiIwhVV8ZloJra7FR8MvbYa+nrGHaF MsE6vjofmP5xuZw2g9znsLTeCa4NuLKt9x4Vfi84BlB1Om/yhFHmXDSNlz2s q8vTu2QS9cPjK+mPoPaRbym42b384XJlwtTOXOGdtcCfTVQko4ZudV19xpGx T64ZtBpC2+ecyz+syuV7hCKiAACgLglGRIWX0NyJzn1l1qdi4rHesXtFF8sn EusBKz0zrqrfybIVVGZEtPiLY3L9h+s9qXmdnNbpF/wsJa8AM+OFNalMF1qv 7XT8yDHlFvUAMMkm20gIPW+WfR0iGY98M9LWeeXuL0XPlklX840zF96/IL7o GaYv7olR38r+X9+dc75C3TWi9drkatmtdHzq7k89NvtmeuyseC7VFOxFp23+ YG3TDbrD7N3lTA0HXnuupata1XQ4fpJ+ZIDO4/YP/6piy2em8rlir11EvbsR 8DWnEqhUVWhuMy6oKSJ0s1WrH/NH8/44lwFA6ZYVy9+kiF5GzXFEVNnFnqVD woYluxZV+EwwcREkkfNVbbP41+mQ7bH09Ay7Hub/ypSnQ9J6J7g14Eq33ntV 9r3gFEDV6rzJEUbjS94Rulh/68hEvu0akmFlgE5tjO70LNM1n7mjSAUYucPl zoytpbfQ2yhyLTDWRWhqO+xB9vF9Tt8jFBEFAACVSTAiKqiEJhkL37Nf1KV2 OG88b5sIc0gQs4tTqgc9BzpJifyJ+UFbc45Xc8o/1osqPafcFch2gaoG3Iss P8/sUtrtXOB2PuIegGSfTZfnAsZC9m62Eka7sfCdZGeM2+TDYulqZiyabfEa uTI+TGff+bb+JGOR4PQj/gUzS0B2udTeK0PtHHpq2Mv2aOyx/dR1vrpQTrQR tJ1OdbXrTXe5vr6XddtQ6skviUWX5Lyjo/gojbh3N8K+5uSC+zy9JYem3Roo vHqXWaZX/H0QhwFAKZcVy92kJEQvo+ZwQSq0UgcH0jYszNzjvBG/KFERhMZ0 KqqH3I9mvJ/8ur3j7VuhF6q3QtI7HK13glMDrkbrvecvVPK94BJA1ey8SR1G M+dSeBSa6dOlN7in5hIfLbpFoLzhkrpTxXZkIMPOnuTJVV9iy7k4fo86bEF+ e7oCAABIS/SIaCzs7K9ihgM59N/i0YXA15+909tIR0Ki2fDBndAaxyXezNQd ps+wH9ON5PD6O3cfW/pADK58q0aLUfIKZGa85OnQUq906WPhXBNe5ANARm6f 19KdvX0v66lMs/VAj3crMvlhL9uCyjyYsYt8vTJmLJpt7GIzZH+FTqaPDXq4 zBwrK5kxqD03emfFe/lIhz1UvI4idWGJhs4L5j/58uwQmn0waq5McN2tKxqw thccXhCOXHB2l0T5faqyFvUdK/TaRey7G6FfczIedg1Q30dCO+AK5x3n3F4N 2A3Uj3GZHl98AFDaZcUyNynil1EXuyAVW6mDC6kbFnJlykJ/k4hX7KH8WXN8 +ccfl9nuh5gIkjrczC2jaV8xf/ZXl+tLry8QikQrq5LsYWi9ExwacLVa71wV fC+4BFB1O2/ShtHMuRwZcD8pdC4RVy/9WPS6FhKJF35LZ96Jl7nHKmO4zC0i ml96JPfg+Dbn7xGPHiYAAIAs+A+IbS74vnJRvnDarWajPrMxIxWUdYMfOb9w sUj+8Ng104VuHbO6vE4/OHbLn2+nTlaZqZjs+yqyJOb5xZc8Q9qcI9fUjvq4 VvZW7wpkVtbku1npxVbJjiTXLW9FD4nTVeNSvcfu33nDTM+Gull9zoVMh46M r87cHn2lXnfpZuA537GLPOlqZkMrtuGFTN6R52kpc0zGlM2qyPhT9+CRHtss h609slNM88/UyizI4vFgkJu+q0eoX5F8Swh6OgGPL6l80rMyCr52EfnuRszX PPN9TKZpd8IHptCQsSc++68aqe9r2+DNwGrxMh1FR0QlX1YsZ5MiwTLqwhek git1cCBHwxL/eXzkFPU0tL4zzjLKur06+7fR7mPa87dZ3mmKiSCpn2A6Fa2m T29TYdxhs5gu6BtSiX5Dt/nzQL6dVMrOYWi9ExwacBVb74wKvhccAqj6nTfp wmjmXLLL4fNIj4hS+ctWyN7R/K5vnUuMkC9c5hYRzY/ZqIseyM3F9XtUZfSw /TMAAIByeA+I7fzLcZqpKs+PVtfV2z9kttpdfw88XuW/2oWpNp9vPue+xLyY +FOf/XJXQ01d63mL6+NLtZx3s1XvCtDbiNPLedjXe2a3vC+650uGFFtr7cYW 7tmHOqhuEdHYddnm8t6fdr999KjZ+yQSWQgFJm7b3zE0ajuG7N/OF905K0ex yVrMhlZsewTQEyFonAsIlBdy6dsrrclsv33UG4pEwsHxj/qbOrjOlMv00gt0 R7ODGzqLn/MGypuT5iNE8ekQvNFPfincypcPrM1VRTbqFfvuRuTXfDcW9loN zVSO1Gh45xOn2zvp9//XhOcvdsubXQ3JI6tvH7L/fX6d27UsOiIqx7JiuZoU KZZRF7oglVypgwuZGpb4M7/jTarCjPYV801vYD75EFCPgX/8z9fSlVrvLbBd UjERhJavUxGPhicdg6kF/U0XPay3ugxVfOud4NCAq9x6Myr1XnAIoKXReZMm jGbPhX0TrhzpEVFN7SWLpePM6GShLQj3H6oc4bJoEdGU9Fun2m7n4z0HzPV7 JE+xXAAAAD6kGBBTRioP1eSvx85U1BHwWpnK0TiPiKqIGhSm++Ls6z0zW95z mSWbJt0DsJvM9e/d+ZPNYjIaXmlvSHWGiDpdj9H0vt19f45zZQAG57ELturx mbSbc/2AskPGlx64LOdb6wi6G8x9jCtBzZGe/NDQWFPXftmVr66jkDmiiczX ME8JNaG2pixHibwrW5XDbLtQdd71tOhOwULf3UjyNad2Of/WZbcM9fd2UfPS U69jLHbXt9O856UXHBGVcVmx5E1KQoJl1IUuSEVX6uBEvoYl+TBMe50fjhh7 6M2ONUSD/lzyeS70GIiKILTMaD9bpyL2T2trdcFfLzuV3XonuDTgJdF6Uyry XnAKoCXUeRMdRnmcCzMimgw+bZb73DtzDInDJVVElMNaMyaD2L9qnvP3CEVE AQBAfWU4IppnvgczOyUn/q76bVedXE4qmQXXl8iSroLSXaYDb2NTMkMTxKuO Oa4rreR5AJ66+3WiC+UxYxf5emXpsQsiWz1+95HrTesEvRyV6Y8dXMsDnAiq I5qgikcFr1ODCEXXiPFBz/UqhbkE6WIFBfd5Ef3uRoavuQhFRkSVWlYsSZMi wTLqQhdE/cWeZUBowyKAqAhC/09mfTR7Us9skZM72LH7o+PMW8U2dixZld16 Jzg04KXTelfkveASQCuq88bjXLZ85lr6yRq49aR4NZvCxIdLqohobfFtEZg9 avdvds/5e4QiogAAUALKZ0SU3PKN0v0F9qV2zOKUnDfvm5PmY4NcOpPURSi6 pKUUpDvbLWbfiwP/xvSfNUT98Dj3bXlleQCoYQfRn5aZStTrirD8c6bQVvbd NLXrZctY4CV98ulqXUU7omQ8cv8vnpJ+9NXAdHQ1xBHzJL9X+NR+9/VF1pXz PBh6rhfrY6+s9ErGkxZ/gSMR/e5Ghq+5CIVHRJVaVixJkyLBMupEgQtSGos9 S5yIhoUvkREkO9qfJ6nPfJFzlj9T8bSsp4xWcOud4NKAl1LrXXn3glMArazO G9dzyU4nlWBmrAThcmXC1FT8SDa/tzRVsT3PXL9HOcVVOM9gAQAAkFr5jIhm uhZsZbrj864BunZT9l+pfOcYpwVHydh9/lhmlkgpS6d4bGPC5IpvlL6T2ovu CI/VMXI8ANRnshfR4oEZu2DPZ8n1+5a2VLqbWRH5Muw812J9kB7IIJ+4B47s mf/DItmj/tbSfaLP+aOA9beVLN3RTXZY+51hvk8Fuel/ryn5u83ZsQVx6Lle xAX3krozr+KLbqoFylcikiH63Y0MX3MRCo+IKrSsWJImRYpl1IkCF6SEFnuW LFENCz9iI0h2tD/PziAsIxgbQdtZ6cavVFGprXeCWwNeUq13hd0LjgG0sjpv HM9ldeaL4ZP0qyIJdhqSIFzSI5a1Zl/BtGjzkaOviv155vg9ypmuzHkGCwAA gOTKaUQ0sR6wdhKaqibL97lzS8joQ9dwR1tvz/Hc+Esueoe7hr0cBkSpF/Ed Zt+aXEctpdQywP0Ve6j9OmZ/r6dKwJ+6cpdf/ToZHgBqr9Wa4sttCsuU20om H5f2LUIko9N2w8lXevV0usoMTWwH7Z199lDm0SC355x9WkJTP+xh7WXFV0LU bkR6EZtiV6rorK2b7pw3DLjmhfRQyaeei8lMrpnTF7CoVI6p+syr5APWUash um2zxbaDEfvuRvqvuQgFR0QVWlYsSZOSkGAZdfpg2C9IJS32lIfohoUH8RGE Ge2vepP9cWXGzzNPN7l452KLyVuuS+YZFdl6Jzg34CXVelfSveAeQCuq81bk XMjYs8Bti6G1e8T1/ff2s1TzyCxYI1cmLAOOPBv8FSBBuKSKiNbW1TW/589b LXUrMv5OK7Xb3Tn7LNtGipy+R5npytxnsAAAAEivrEZEk1nOw5sDLQRxynT7 4VqcjEcjQe8fjK3tgzcDq9tP6K5jveHGv2Lk+tytt9r6nHPbxRcmbYfsHS1S vYKXW2rOwL4lKmQ88s1Ia02yp811q/EcMjwAy96hVoMrLOqCZiZr0Rlpw4Dd F16PJ880uhD4+mNje8/IrYfRzWmbvlajOW7y/hKPP/t+rO/E6L3VPX91a2nq Y4O2qk5/5fOpcJQqzZT8hMX54P1x5weD7S18dtw+PHaigQ+pxE1zzGCfFppu kPHw54YqDdE2FuC1jQ/rAdFzvdTemGM74r6o1VQ1jU5yeGJEvruR/msuQsGt 1RVaVixFk5KQYBk1Lf8FqaTFntKTpGHhTHwEyYz29zjzPHk761PvtxEaouPj 2c14LDJ53aCviH3nK6/1TvBpwEuq9a6Ye8ErgCYqq/OWPhdt91XX1PxqbJeq KrO8EPJ7XZ/8R2+TzmC5FViiXsGRq/dGkw8JNX9+M7b0wDl42uAI8g8T4sPl zornUsO1v30zcqrN8o+Vg0VN489nv/j31mTTp7vkDLINh1LkmcECAAAgA3LR PVCVyhrarYGir25LQDIWu6+PXOhsIKob2l8fHrvlZ/Z8JGPhe46r1KYeRGOX 6a/BKId3q9Qr+JN94nNtxZAvZu3ntMTJ4S8CS7FdMrYYHP+on9rb99+dgef8 x0kygwCFS+fxQW1m2i12cDU9Wauq5aN7P018bh3upzf6rG7QvzFi++/MHaeW GrnHftOb/Ke6EwNj30VYytGT8bWQ12EZOpfa6yX5zJxNbRUaWFjH+pwDmMRN glGLzTnnea1G2+MIiVvUtr3g7Cu4040SyNXvRhqriNZrk6vcZmyIfHcj8ddc jAIjokotK5akSZFgGXVK/gtSSYs9JSZhw8KN+AhC/jJx9Yy2ccAeWM1/vFtL gVsWI90b6Rq+PvGkUmJKRbXeCb4NeGm13pVwL3gHUPqXKqjztu9ctLqu/qFR m9MbWIjG9/xYZNJuMujqahr0Rotb0AxYCcLlyoSpY8i7TEZnnIPtrcaPPf7Q QiTpCTMiXU809Fy231uIFXy1Kf0MFgAAAHmQ886eVPGz/e/yDoH4knekuefG o/IKxORmxH9rbPj19oZqTZ2u23j1s6+nI4V7Jnm98FtOpgdEO+whKa6DFBX/ Mjs+H1x6BjKiF5Meo0ctflgVu9tp8usVdg82aar6HI/EtCvL3qGGvIUflUEu TYy0aoiuscAaj4si8t2NlF9zMQqMiCq0rFiiIqLil1GnFLgglbTYU0oSNywc /iAiiFgV03onBDXgJdV6l/u9EBZAQRBpiogefyMd4JIx6+5fbKND/b0Ug9Fk sf3pji+0zPFhlnYGCwAAgFzSK7/oQbFD1WPZic5+amh6wzl3yIaBs8hY6IZB S0h66yUtIkoM5NnPBWSQKu4k6aLs1Lw7Qv9hQHB3N7XyWs0ydFsRz+VGJSof lqb8A4AKLSuWqIioNIU4EsW2mqqkxZ4SkaFhKQYRRAIV0XonKqMBL+d7UQnX v3xIVES0FAr/AgAAKIopkZ1MIBp/ZZ96dij6LWT41sUhB2tJ8EMhmbnbBxrp KVHas5a7Ui33W5kw6bLbRwrDacdnkFT85/GRU0S+IvnCpVbL1reOfMNW04AD qjZjzsa+StuJzvyhu0qppb6lqMAicWWWFUvRpCQkLMRReEQ0UVmLPUWTq2Ep CBFEGuXeeicqqAEv03tRMde/XIgPl3QR0UKFXwAAACrVTnT+W/tQB71+vr59 8APnuD+0sBxVYoEbKIaMR59H5mfvjzutg/o6egS8y/Sn+xHRJfuzf2He+co5 x5y4ztTBHZ9BVoVGLZ77HX/0Loi5D+JSudXx4ba37kRUqblIxsOuAW3D4c7m ig4AykySJkXKZdRqX5AyIm/Dkh8iiGTKt/VOVFwDXnb3osKufzmQIFymi4hK dkgAAABlZjcWCd678yeqaMyr7fT8Fp3Zt6b2UYEkyM2p95qT95RoaH/1NePI /3fjzv3Qcqz0OqqZsQv1t2M4FMgXM9dfrW59ZzzC1oumltqdFz34k0zl7o31 6oe8i+I+R1k7D+2nOg5byccDKmMAUMJl1JVxQeSnRMPC/ocRQSRVnq13oiIb 8LK6FxV4/Q+B3CKiAAAAAKCCzAYoam/HcBjQu+LW5xu1SP57xGXQZncKFyW+ GVVhYyAx4htRsdv5lL+KGACUchl1RVwQuSnZsOyHCCKD8mu9ExXbgJfNvajQ 61/RUEQUAAAAQG1P3f31VDrbYgti80lZUaMW/U0Ge2CVfSUdGXs+6zhX1euK KHxgUEIqYgBQymXUFXFBZKVyw4IIAgAgwM6K580608SG2scBAAAAcIjFlyav Xxy85goe2k2vlBELu4yZvbcLqDX7MNHqEKuAAUBpl1FXwAWRleoNCyIIAIAA GwFrb3nUZAAAAAAAEG4rMv5OK8Fh2EJT2+18jIGFQ6wCBgClXUZdARdEPmhY AAAAAAAAAKBUxf2WOi6jFklNpokVtQ8XVFQBA4DSLqOugAsiGzQsAAAAAAAA AABQ9lIDgE29pnctKQ7/mtrHxJMUy6jX/I70+b9r6m3CiCgAAAAAAAAAAECF So2I5jicO21FXL17rgJGRAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAEAO2xH3Ra1Gq+vqM5rtnuDzuNoHpLTYnNc+ZrFcMw8N 9Pa+2qU7etw2s6P2QQEAQNlCYEVgBQAAAACA0rcbW/rebjimSSJOjYz/fLhy t+isy2qxWK7062qoK6A5avQ8U/uYAACgrCGwIrACAAAASICMBq53nxjyLqp9 IACVioyHPzdU0YlL03v+TVLt41He1rzjLH3+Zx3zW2ofDIC8EFUB5IfAisAK AAAAIMb2Wsht1tdrNHW9rgW1DwagcpG/eAbp2SyaFtPEc7WPRnnL3qEG+uxt QSztg0qGqAqgFARWBFYAAAAA3uLRpcez927b3zE0EnRfErkbgLzITd/VI/SX rWrAvXjYJrPszNhaqKk8NaaJDbWPBUAGiKoAykNgRWAFAAAA4CHut9TRdZfq dL3DVufX9gs1yN0AFPDygbWZXuBHvOYMv1T7aBRFzjs6qDPXGlzhw5azQsVD VAVQDQIrAisAAAAAZ2Rs7ZfI4lpsN/U/mVQOuRuA3LbmHK/S08dqOx0/7qp9 NAraWfG8SaesXfZQTO2DAZAYoiqAehBYEVgBAAAABELuBqAY8qmrL7UNRPNY 4OXhmdOx7re00dvhWvxbh+es4ZBCVAVQEgIrAisAAACAMMjdAJST3QZCZ/at qX00Stl9aD9RnTzn6iHvutrHAiA3RFUARSGwqn0sAAAAAGVK1tyNjD68NdI3 5Hkm+ScXFI8uPJyeX40L/oCdmetnfmWbfCr8E0pPkXsRcfVq9quz+CvpCpSG zDYQRL3pbrEsZsHVW8fjrpTsc7vk7idQ6wwOC0RVFiXbOglV/EYgqioHgRUA AAAAhJAtdyPjkW8t3U2tI99E4kp21sjNwFhbspdIDLgiBzqw5GbE/5XdbOzW aYmGXqtvOc+R7URnPzXUnxh0zkQroaPJ4V4gd1PM5veWJnqBX5XRvVj4AvNM 3NR/bndjkR++tI8mv2B1muoGvdHierAU392YuEJvNINaZ3AoIKqyUb11khC3 G4GoqiQEVgAAAADgT6bcjVz69kprbf2g+6miiVsiW1ip6k3Pyk7Of092Ke87 Bk/rh35r6tLSPWDimDWwk/dzdqIzf+iuOmawT5d7+sbpXqRyt15XRMEDO6w2 grbTqRysxznP4+FKfVeLZNSqPbdkLDxhO99I1OgGP50ILcXI3djyzG1TZ9vI rTsf6KnTFVjrjIyvPfK5/2gZGni1vYGgtvM+YzC+/ZHzu+ByrMy/mlCZEFXz qJCoyvVGIKoqCoGV3wcjsAIAAAAk5MndyOi03XCMaHt/aj1/biQTprCSpsOR 7ROTG2Hv73r0lxz+Z/HExqztDL3SqN8Rihb8rK2n7kv1xKmR8Z/Ld1IH13uB 3E1Bu3OOTnpnXM0Je4j7zricEreEKs9t6jHTaA4kjPFHTkN9ag6OkFpn8Wf+ G2+119U0dA1Zb3w1MeVPmpr46ob1YntdModr6f/IOx9VvJGRxMtp28lfu5fK 8+ChIETV/Mo+qvK4EYiqykJg5QqBFQAAAIAhfe5G/nL3yimC6LbNFs6MZEFG XAaqS1x9wv4w1SMmY4+9lr6OYVco08GLr84Hpn/k8h6cXJoYaeWQ5ZUq7vcC uZuSMiMMmnZrgPOjxTVxU/y5jQUdVNZGsE2a2l33vkWfKu9aZ8lk0DFwXKu/ 8rn/yYHvKhlfnfli+CQ1s0X/rjeyJfIMlLcbsp/ABsEVClG14MeVc1TldSMQ VRWGwMoBAisAAABUFjIe+W5s4ERd3cnBG0KW80idu9Gv0TW1etu0GoWNMr3E Not/nVroNOex9PQMux4KXuhErn430lhF6D8MlN8bcz73ArmbYuLPpq6/rk0X LyOOmCc3uf4i58RN0ed2PWClJ+ZU9TvDBx+0zFeywxbkeqKUeNg92Kw1fDpb 4PjjP4+PnKKqG7aO3l0qrxln8YhroAYbBJcoRNVciKoZPG8EoqqSEFi5QGAF AACACrP5g7WthukDXhCwVETa3I2M3D6vJTRN7/k3VXlFy5Q7qx5yP5rxfvLr 9o63b4VeiDuU7Yj7olZT02b9gU+/U3387gVyN2Wkcg3tOfs/XJfr6QV+1W95 17kt8OOTuCn13JLbIXtH6jwGPSssDxrzlay5MrHB/YsYC7uM9a3XJleLNWix aZu+Ntn2aQdcYaWLK4qx7B1q6XD8VEZHfIggqu6BqJrG+0YgqioGgZUTBFYA AACoNDsB6zENg3sPMIeUuRu56B1u1mjq+3iu4pFMds0UTfuK+bO/ulxfen2B UCQq/FX3dtDeUashXrGHyid743svkLspIJW1Eaeu3P2FTLzwW07Sj+mRAfcT TveIX+KmzHP7fMLUQp9Fk2liheXfma9kldHD9s/syJXx4fo6veV/zC6sFzvX nRXPJfo733DevVA2edDWlOVoJ7+5PaAURNU9EFVTBNwIRFVlILByg8AKAAAA lYdcujOopV8kEy3nv/hpm/8nSJe7kZuBsbbksag2lSVb7qzV9Oltl8v1hcNm MV3QN6TetDd0mz8PLArK4OKLbmNVsvPZ53paHl1D/vcCuZvM6OJdLYSmadAd ph9Ccjt4vS01Da3HySnH5pu4KfDcrnuHqgsNHDFfyRo+0zZehp2vEekZenrL 1GqRH9+YMKUm9KnX8vBF1TrjN7cHlIOouucIEFUpgm4Eoqr8EFgRWDMQWAEA AA6l3Vjkn1/f+to3typstoZkuRsZdvXVJz+nxzmvUndkX7mzjHg0POkYbKO7 gk0XPYL6sJuT5iPJDzhp8b+Q6nBlJOBeIHeTE/uOseS8s4f+8mm67CEOdel4 J26yP7eZ2XSEwRVhedQE1TpLPr0GphqchjhmDRRb4PfMYzxK/7DO7FvjeQaq 2FnxvFnDZ24PKAtRNQNRlSbsRiCqygyBFYE1BwIrAAAACCFV7rY756CqwFcZ 3cImjEggU+6M7a167J/WVroLecIe4r0IMikasLZTm34Oj7PVdCotQu4Fcje5 kPHIvbHeZH5T03rl26U9D8/2U9f5KuqhrGq2PnhZ9JMEJG7yPrfxiKufzpiq WmwzbOnVms+so/6d17SNnRlbSxWTt3VaA0U3SdgIWFPLJPnspqGmlQmTDrXO KhiiKjdlE1UF3ghEVRkhsCKw7oPACgAAAEJIlLul+oeaqgH3olrdEaawUp63 6guu3tSJ5vR7d390nHnLs8Jl4wzyZWCsmTrD866nApZRKknQvUDuJotk1vbN SGsNlToNup8e2KGAXPEMphbHHbnqK7owTUjiJutzm0ncjho9z1j+nUnBcmqd rfptV51F5u1sRbzvdTfU1LW+YfX8xGE/68xhaDQttmDpb15NXZbTqHVWwRBV KyuqCr0RiKpyQWBFYD0AgRUAAAAEkSZ3e/nA2lzFo5S9DJjCSnneqjN9SKLf vcT8N6roEPfJLelzVHEBIzfC7gVyN+llszat4dPZKGtGkdlA4dig55ci90tI 4ibrc0tu+UZr6VV1Fn+U5Z8XnN30RJbstI3NSfOxQaknvOUkboJ2BlcYOe/o QK2zioaoWlFRVfCNQFSVBQIrAisLBFYAAAAQRorcjXldTrzmDBdfoiSPTGGl PFtzZs4z2+3dCNrO8unNrkyYmjTcy/WrQ+i9QO4msZ3o7KcGen8WonX07lK+ VIXc9L/XlFogV3QCkrDETdbndsVD7TDB+qWLz7sGGlLzS8y+VLE1ctN39Zj0 E95yEjeOhePURNU6q84ZQYLKg6haQVFVxI1AVJUeAisCKysEVgAAABBIitxt M2jrUHtlDVPurOpN9vV6TFX5TLeXXLxzscXk5bS4L4XqcVUV+BMlQei9QO4m pWzWpmm87IlsFfrZ7RlbGz3qUDTjFpi4yfrcrgesnYSmqsnyfe5aNTL60DXc 0dbbczx3ogu56B3uGvZKvgI4FrJ3MYkb+6SaUpLMo4+fsD8UUnYRygSiKuc/ UfpRVcSNQFSVGAIrAms+CKwAAACHBxlf8jtH+1vrCA3R2HXZ/vf5dTEdIQly N/InR0cNtYbHNLHB+3c3I/6v7GZjt45KrIiGzgvmz7yhleI903jE/830cubM M+XO8r6v31mfer8tec06Pp7djMcik9cNer475FLrAQtMmCkFgu8Fr9xNqrtW giQ5tcwWBtpz9tkXxU43uw1E0+hkoS+zwMRN5uc29vDmQAtBnDLdfrgWJ+PR SND7B2Nr++DNwOr2E8/FJo2m3nDjXzFyfe7WW219zrltPrc/eTumvU7b1aH+ Ll0dnQjX6bqNV5O3ZC1bO+6Fz9yiauKWbJMfuCxGfUM11SYPXf96Lv9tpJ6N k3u37aY/IvrwlvlsQ1XLgGOaQ4U3kBaiKg1R9SAxNwJRNQOBlS8EVgRWAAAA YEG/Im88M+L8R2jh6cIDe2+yw6ftd4T49FXi0eVIynzw/pdWarNO+kV661s3 7z4ILaT+aXEtxvlda3qBT2238zGvPll86b/syS6f5gCiaO9lZ8V7+UiHPZTp BJK/TFw9o20csAdW8//e1lLglsXY2UBUN3QNX594wrvo0saEicqN8m0AWgIE 3gvuuZukd620SHdq5LLP0qVtvOAonrXRYj+5RwfaG6qJxt/cieTfpkFo4ib7 cxt/Puu+PnKB/ma1vz48dssfSe9mQcbC9xxXL+gbiGRGY/prkL3mGxtyY+He H4fa6zWa6kbDuzfH7wfnn6Rardl7f7MZ21sHnelPIx87u2uZW3XWMV9w4pD0 km3yjYEm/fDNf1CN50PnQHWhNpmqdcaybfeKz9zGnEK7NVDis3EqDKJqCqIq G8EhNYGomoLAKhQCKwIrAAAA7EHGn7oHj/Zen8n0BtM7vfLeVZxoaH+1N78z urpW7m+EdwJWOv3LFDXi9EtUb6ex+mAfmXGsz/lj3i7sdtDe0SbDKqFimC4i UarVigTdCxqn3K087xon5XBqghO3kn9u9yLjq4Gbg23JDJrQvem4/yR28LKS L2btA22/+c8lMpOWplJspTeAIJe+vdLWZZla4dYmU4UZaw5u283MKaTl7JcB skNUZSCqshEeUhOIqonyODsE1uyPILACAABACSOfei6e6HGEsr3HzDtclnej islUX+f+EpmMh10DWmbKQF1r79A7FspvTdTbcKb/UtXneLTJ9usqTopI19IX 0nlWgoB7wSieu5XvXSuqTE5NcOJW6s9trp1oyDXcSs+80V/7rkClOKo9PGv2 rTBLF1PptTWgZN5GLk2MtOtt09k9J4q0yet+yym2WmfRWVt35kErg7tUMRBV 0xBVWYkIqYlDHlUTZXN2CKy5EFgBAACgRNFbZza959/M6Rxm3+H2uyJqhfqN gPUk3a3lXF4+Nm3TJ/s2RJ3+inPyUU7ZIgoZe+L//IqeKm1E1A+PrxzsC+/+ 6OhUa1IEc7KKvzHnhv+9yCiau5XxXSumXE5NeOJW4s9tRu4+wu+MF944g94D Wjf0zePU9hY0ZefqkNshe8eRy3v2kSncJlOFGU8drHVGiYfdg6m9kQmFs89D DFGVgajKTkRITRzuqJoon7NDYN0DgRUAAABK0/MJU+ved6Dkpu/qkVQf4ajF v6VWp3jZO9TA5/1r6qXt0W7Lt5F4vmNm+m9V511P9y2oonPY5rHAS1XOV9yM keK2Ir6bVovFcs1kNPT2dum0x22zPPpwfO9FjiK5W1nftcLK59SEJ25yP7eS IGOhG+l9hImuscBa8Qu65TMf6TWeb2DytmqmhdxZ8//ZksvhX5P+gNd85rZm 64OcbYypXLI5f5tMRlyGmrwzD8mnrj4qBRWzQfnBY/Q79lyIP/vXkBRmIKqm IKrmIyKkJg5zVE2U09khsO6DwFrkABFVAQAA1ECV9++yh2I5/ynZbdCl+ytD XraXo8pIl/fhuKyG7pzUtI7eK7BVA21ndfJaK1HX45zfO7HgF8/g8f3/UTmZ DrBMO29GQ25bMnMzG/Wp6kfEwcpIhfC7F3sUzN3K/K4VUk6nJkHipsqOsZyQ 6/ctbalZIFVNlu9ZV1EewDzwaZk9fzPny+C43TMvm5PmI/q9mzVEA9b2/G0y Veusutu5kPdZSQ2/CKpYmE/qe52l4rzH0oOomv59RNV8RITUxOGNqonyOjsE 1v0QWAtCVAUAAFABHfFP2EO5r0CpbkOqQI7O7JPhPS1H5E+OjhrOXSOqY0Po fz/LUtL94CcveoebNXvPenfO0VlzScj6NYkwldozXUR5pHtc1WyVkfLjdy/Y /iL7L5b9XcuvrE5NeOKm1HMrGFU3rDWdXhCvOcMvi/8KZW/ilq0wlkrciuYp 2xH3Ra1Gq+vqM5rtnuBzPteV3PJbju6br/LygbU5tdCwYci7fOBX1v2WkwV3 Jd5ecPbJll5xvCZ5xOa89jFqWGlooLf31S7d0eOluTM4D4iqaaq3z6UbVcWE 1MShjaqJMjs7BNb9RAZWUUesbGAV0wdIIKoCAAAoaDca+OJDb5h9cd+Rq75N 9aYJZDZz5JIybE1ZjjYMen7hdrjkdvB6255e3Au/pZ3za25ZMKcr6crW/cgt 32itgG42r3uxT4HcrfzvWl7ldWoSJG6yPreC0XXDmP0P+OzxvSdxy/lF7nnK bmzpe7uB3k2aODUy/jPnS0vGQl/93p07vzBnZR/r7g9UrbPjBb/R9GHLVexM XO4WnXVRC4+v9OtS042OGj3PpD5ChSGqpqjfPpduVBUTUhOHNaomyu3sEFj3 Ex9YhR+z4oFVcB8ggagKAAAVjlz2WXuzu2FKqO7kRddP28WPoDCmvJWGOGKe LNpvFHnIhT6aV8qwOmF5448B7pkm1dVpzHYS1u+ajpy1h9RMAhTpAMdC9i7q j/DdzUGmEdHyv2t5ldepVWrilpojlHZkwP2E6/2gbkc12y/yylPIePhzQ2oG yr5NdvjJruyrMU1sHPwzEZehuvA3mprKUmX0yDPZSJJkdmvecZY+RUF18xBV cxT6aERV6QmKqvKNiJb/XSukvM4OgXUfaQKrVBQIrIL7ACUQVQEAAORT4rnb unco3WFp31tvh53IQy700SJThiI2g7aOWrOP7iXEF93Gmj7XU1XLZinRASbD LoOW+iP7VnRyPjipV83zVXJ3TTqqnlqFJm7konsgs6ltldG9yPn0qDqQrL/I M0+hatbRU0Q0LaaJ5wJOgVJkZR+5MXGlpsNRsC7esneopcPxkzwPlCS5GzNm 2GILCpjIiqiao9BHI6pKTlhUlW9ElLeSu2uSQmCVnvqBVRLKBFaBfYASiKoA AACHFNVjTHdYVN9pVN7cLadkOjnv7DnOeR2WXJToAKcTc+KoZYrfC+NSGREt ubsmHVVPrTITt50Vz5uZ9IvocYa5XlC64Bjze3sn9fHNU7LLpfksLdzzCUVW 9lEp/+mCtc5SRSy79270IyEpcredGVsLda9Y5+qUOURV1ZRuVC2hEdGSu2uS QmCVXCkEVvEUC6zC+gCIqgAAACohn7gH0qG72fqAY6l02Q5G3NYDxeyG7Ceo nipdaUrd2m40pgPM+rZaGjsBK/2umn9NIbl2VuKt1O6ahNQ8NQkSNxmfW6FW JkxNTN7Gayux7GK6A5P6+OcpmYkoPLafyMWsyaXm1LCtzqO+m7qCtc7ojKzt enBbpidKgtyNnHd0UKeoNbg4p9flAlFVPaUbVWXcWYm3Urtr0kJglVppBFax FAysQvoAiKoAAADqIJ+6+tKvfrtkm1DEHVODXaYNQaicItnfWAtYO9RPVLOv 3XUWf/FllYKIqSkk4l5ImrvxuWvx6MLD6flVJetSiaLiAyk8cVPguRWKfOzs rmXyLz6bnmQX02mq9i+xFJCnbM05XqXXc9d2On7kVayCkhk5yZfXrHiMNQVr nZFhV19Ln4w5kfjcLfMUlULckRiiqnpKOaqKuxGqRdUyhMAqrVIJrOIoGlgF 9AEQVQEAAFTxMux8LV2JjW+dSVkwNXAEvWEvjuqs9jkffms+csYWVH1NSar/ I2vv5ZnHeFRoCibiXkibu3G9a+RmYKwt+TQTAyxdSnIz4v/KbjZ267REQ6/V t1wSL9BVfCCFJ278n9vkxZ/2Oq1v9XfpqBGBOl238W3bLX8kJnWLk1mXSs3N uOBe4vjQk5v+99IzYIhOa2B934cKyFOyY2ICFk1nC6+xXmG61lmh5po+nfrL Xl47qfEjPndb91vaqFM8avFvlcR3UTqIqioq5agq7kaoE1Up5Po/7efbdd3v TyyxHjcZj3z/ue2jG76npfIu8jAEVsWiaqKEAqsoygZW/n0ARFUAAAA1UEWW Uh2dfQthdqOBLz70hkV0rch4+G+DjceHvIt8fmsjYD3Js9PFB9Wva/710Gs1 nY459RNVqv4/55PdjUV++NI+auxO9n6rG/RGi+vBUpxMkLHlH2eCkTyrwjYm TPQr8eoh73p8JeT9zHyhs4Eg6nQ9RvONewsbBftMIu6F9Lkbl7vG9Ab37/+b vHT3HYOn9UO/NXVpU71zmWZL8abiAyk8ceP13G6vzt62GJqJuo4h+9eBxysx qrZbbPXxA4/1tSbDjVBM0n57buLG/dSy+yBUNY58t7r/iATlKdnP1Jl9azx+ MZHYCdpaUqeQt9ZZZ6EChtshR0+znBNEExLkbswGxFTTJOmRqQ9RVU2lHFXF 3Qh1omoiZ4Q/30jd8wlTS8mM/9MqPLAqG1UTpRRYRVA6sPLuAyCqAgAAqGB3 ztGZmsuyv9bNsndI1+MsuONiYfF510AD/xLxmbfkAlZ5c/n4VL+uTtSpSYYp zVSsh0nGwhO2841EjW7w04nQUozcjS3P3DZ1to3cnrz5BjXGl2dbSaYHWNNu /tjae6J79Iup+RXq1yOT1w3HNNpXx6ae578OIu6F9Lkbh7vG9AY1uVuFkhth 7+969Jcc/mfxxMas7Qz1vGv7HaHSWJWm4gMpPHHj+twmyBezjguNBKHtfv9u JPcR2okG/zLcXi99wbTcxX1cHz9yO2TvSDWD9cMeli10heUpmb0ViHrTXV7p STb7ZL3C1NK/lvzXLRZ2GY/03HgkVwXR9DGKzd2W3P30V7Hyyp0hqqqqlKOq uBuhSlSlMHNi8008Y4aIS2gzlwoOrMpH1YS6gVWyUkiKB1a+fQBEVQAAAOVl F/ft3zuS2kpVzKIzqvNAz8bjvWkms2dBi9n3Quhfzy/VJRK43YnUmE4m0e9e KvBT0Wl7Ms/SHDPYp6O59yj+yGmoT/dRc8cAszLlzpJ/49TI+M+53az0ih7t RXdkO9+fFn4v5Mjdit01MuIyUE9zdl4WGXvstfR1DLtCUSazja/OB6Z/XC42 hSK+vhAMBFNTL2Sl4gMpOHHj9txSiZv9XLIRIFpH7+5ba5kZuxaw4VcRzDQb 7o9f9nuk+403wnbDheYpm99bmuhVc1VGN0s+mBe1LUiBxG3FY6xmqwtBIWP/ +mP3kfPOuU22f937o6JWwnK/JqzT8Hap9YnUGVZeuTNEVVWVdlQVdSPUiKqU 3DmxbP/ODBFzaMwRWAvg8uiqE1UT6gVWKUshKRNY9+DXB0BUBQAAUN5Td3+q x7LvTfrOiudSzb5sjgdy+9GNnnS5Ht65G1Pqp6bD8ZP0vWa6s7o/UVXLls9M 9X+rWmwzeZdIxYIOKnEj6gfdT+P7Dnp33fsW3QPO9wnM1I4DiRslXWS+YNV3 wfdChtyt2F3LXI02i3+dmi8x57H09Ay7HkZ53mty/YfrPfR109S0jnwT2X/Z JaXiAyk4cePy3Cbii55hunE5Mepb2X9yu3POV6ihHaL12uSqtMt4yZeBseZU 28OplFZmlKlWP+bP86gInrmxEbSdZmtgi/5eegiCLQ0kt/yWo+yrU8l45JuR ts4rd3/h8LdEroTldE3yT8O7decDPed7VF4QVVVV4lFVzI1QIapSmAHPfBPP uO4zhcBaRPFHV62omlAvsEpaCkmJwLr/T/LpAyCqAgAAKC67hmRvV5baTvHU sHdRYEyliu10DJvO1QrL3WSthEP1iEpkcV+CnHfQL90LLHFaD1jp9ZdV/c7w wVGLTO6W5xOY7l/VgJvtXjL73nY7F/JdDsH3QtrcjdNdY3rO1UPuRzPeT37d 3vH2rdAL/jc6s0NoSr289RhVfCCFJm4cntsEuTI+XE8/ufu3l2V+IBYJTj9a lmMPCHLBfZ7evkTTbg0Uro2wEw18qCeKZujC17JlF1Dzq7C35jPr8jx+sZC9 m63W2W4sfCeZtbGM0rATuRK2+DXhMg2vAsudIaqqqtSjqpgboUJUTRQf8Ew+ 2AZ6SCpPkYHM5yCwFlb00VUzqiZUCqwSl0JSILAe+H0efQBEVQAAAMVlOht7 Om87K97LRzrsIYFl6DYfOV5vHvluaSqVF/LP3RLRgLWdQwdbCHLB2V0qK0p2 VjxvVrG8+87IVmGqHvQcmBCQyP/2nPkD6akdefKCnRlbS9WBu7+P0Hshae7G 6a5ll4zRtK+YP/ury/Wl1xcIRaJ8urJRv0WnyUEYXKwrviSh5gMpMHEr+twm bYbsr9BP7rFBj4BpFSKR8bBrQEsttNMOuMJ507Ht1YDdQP1Y0QlLIqp7ZR/L olnkHmTk9nnq2A5M+KHGH1oPpMxbkckPe+vbeWRtYlfCFrsmnKbhVWK5M0RV NZV+VBVxI5SPqhTm1Um+A6ZqQVD/XqyIKAJrYUUfXXWjakKVwCplKaT0B8oc WA/i0QdAVAUAAFAe0znPdt7I+FP34JEe26ywfWeolX2vnKB6GsxMGQG5W6Ya ueTbQNB9htpRX0msKEm/rc6/sItZtappMk2ssPw709HK8wnJztVAoVWx6eV7 yf51gbVGQu+FlLkbp7uW6Tm3mj697XK5vnDYLKYL+oZU7tvQbf48wLGSY3zJ M6TNzdxkfGBUfSAFJm5Fn9ucYQH2HV0VsBOd/ZRJyu6ED8yZIWNPfPZfNVK5 XdvgzcBqkfWbQkdE48+mrr/OPEvEEfMknxpkmVMgtN2/84aZDayp8Yc+50Km SiEZX525PfpKve7SzcBz7scneiVs4WvCcRpehy3IsyxbGUBUVVHpR1URN0Lx qEopMlecXmtc6NVJBgJrYcUeXfWjakLxwCpZKSS2U5AlsO7Hrw+AqAoAAKAC cunbK63J/m77qDcUiYSD4x/1N3UIfx+6HXK88oplipp5ISJ3SyQ2J81HkpH/ yID7iaQ92mXvUEOhReJKevnA2lxVqLgQM/UiXwf44NvzveiT1eRbFZtJZIrt jyPsXkiZu3G5a/t6zhnxaHjSMdhG57D/P3v399PGlfcP3H/A3PiSCyQkZIkL pAhZXIBQZC6IEiEBaoQQTYRM1QqifSKTjQqbR4GsVMhq62q7Rmqd7a61WSvf jbtbK98nbp+6/cZPGrLCeRrvxgisrNtAZRqcAAGCDDLBMP56xh7bwNjzw/PD Y96vuzbYnplzPJ85H5/zOU2XvKxLzY5ILPkdV7uN1bWtF6zuz96vKWHrTw6q dkhxAzfOfpuZn0NT87u2H4/4bOZmauTTaP7gTy6PbzoQ+N8p798c1svdxlRn qWsfdvzPwiaPAxSVEU38fG/sDGF4z/EP99U6QtRIdj+++NAx3EndSInG7qt2 t+/RjOfXJ06M+55Ho4vh4NRdxwfmRkPnsOP+QkzQhLPSV8IWuSa8p+FVX5va Kod7scQQVVWjiagquiGUjqoUrrni8bCjmz5hHnsYIbAWwdV1yyOqJpUNrFKV QjpyCnIF1oMEPwMgqgIAAKiCTKw8cVsvtNYS9LMBzycZVtvPnAOnrY/Sry9p 7Mb8XF6gVJdYO4+tJwiutV3KYMrU6y+4l4pvSltocVmhHGD+6+mhHfuqWGYg U3DolyWqLSQcu/FqteyTM9sDZ/xftlb6Ugmr5Uij+rFsAzd1O6SYgRt3v03m vvtiNpeQGLkdnbnvdliHB/q6TQadzmDq7hsYtjrc92ei27y7s/CMaHooRJyh 92J4HbCepq+HuGTUfjwaevj1/7FbRy3mt9uN6YQOUWvqtYx+7PA8mt8o2BCF lb4Stsg14TsNT2/xsv1zBUBUVYVWoqrYhlA6qiYF/HQiNLYisB7A3XXLKKom lQqskpVCYn93GQJrHjHPAIiqAAAAmkav7Dv98ePNzAC7tLEbuRu60UZHdw/P tc480LMd5NlsV7DMysoCv/YmmUcjXeGNR5kS8YV+dE6PnnQ1Pa6f2EZ+zKMm cd45X3ztnqi2kG7sxqvVsksd2ce5zG4X+WOJ/R+cZ68UroTJ2PQN18m1+E7l Dilm4MbZbylM2kHcd78MCcuIkrEZ52ALoWsa8kToFzDfoOKlBnhZ8gyYuFan 8iDBStjC14TvNLwyuRWXM0RVQbQSVcU2hMJRlcL8dFKoCEDmy07ktqTZf+a+ bJvi3OscgfUA7sBacVE1yRlYpSuFxEmiwMoQ+wyAqAoAAKBl8TlHb2ZlX1pp Y7f0zrx1xRfnCpSe7dAy7n8tzfuVIrNu7rQ1UOhgsmO3AkkJpqhUXg5wPWC/ 7soWN8uM3VjPN/t4RtSN3CuS2mL+XHhbSDZ249VqzNNggXFu9lrlrWTcDztO 8ZjWQv1Z/ianUlK7Q4oYuHH3W1qmmB7nd59MRB/9zVsWO7IUJSAjyr4VLLng 6k1P8Cltsw8qkynBdiFSrIQteE14T8NDuTMuiKqCaCiqimsIZaMqhfnppMCH Zmui5rZHJyOu3pbJ4BuO00JgPYBPYK20qJrkCqySlkIqTqLAmlbCMwCiKgAA gHbF5uznTzEr+9JKHbulHrYDHzWl3qCZ++maH3q2A3HRsyL1VruCJZY91LOt vt9d+GGO3PFP1FAX0GQNsOzHwRSVyludl3qobhjKzTnJjGXYXk6u+SdOUa82 XPJE+awMEt4Wko3d+LRa9mmwwHqibF/MjVG2QvZzPEajqQfUCw3Z2S8SU7tD Ch648em3NPK5Z7D+wMQhtj9KRO9be071u34obXGaAnhmRFNn9HCyr4HadeLa /ZUDl2h3yX2B3hVD32x7wlVuryAqjcBewFAQSVbCFromvKfhodwZB0RVQbQV VUU1hKJRlcL8dML+oeTmI2tb9cE7yZuI670W7lscAuuBF/AKrJUWVZOcGwnJ VQrpCIkCa7LkZwBEVQAAAI0i43N/6DyVW9mXVvLYLfXGS95LqUFD84hPirJn 6bGMFI9PpdoNOTprdEQPx9bDmSkBbFm+xIJ7kN7fIfev1GyNhgN1ydLr3XKT NxhUe3VQZfHTBY74EdoWUo3deLUa8+Ssv8y+Cp7J8GTHKOTy15daRn2cS+ap mTyd4/4NsUdflOodUujAjWe/pZC7865+A6GrG/GyLmtLrIWp7WY6Sts0VjF8 MqKpodC3Y9R+OkTdkGfpyB675Jp3KL3qrf66n3+htcOHMVjNXsBQEElWwnKO 3Tim4eWVOzs4DQ8oiKoCaS6qimgIRaNqMq8sqk5X9f6h2EpPhDv9dl8HfVdj 7gOpVujqd4S5ZqkhsObjG1grLKomOQKrfKWQWA5DksBa+jMAoioAAIA2xWfs nT35K/vSJBi7pR4wIp+b9TqibTIoMoeQk57tUAYbQOxGPZcMOn3TxDTXZhub QVsXkfpL6/f5Awwy9tQ90tnW13syf64Luewb6T44tkrPQjm0go95ZiPOCNz7 WGBbSDR249Vq2SfnggWa9jYff9xG6IjOz+a2E/Ho9A1zB4/FVvTmnjwWAIqj focUNnDj32/TdlYef2Y26Gs7rn3+OBKjRgdkIra8EHp0z/X7ofYW3tvRlgPO jGhuKGQw35xj3502uzNCw5CX9y8RB6z6hlvN7tIKkSalWglb6JrwnIaXV+7s 0DQ8SCKqCqXFqCq8IZSMqsm8ueL0z43GQYc/spmgbuOLwW8+s7T3jt15Gtue sXekvu4nR30vEomX30/2n5p4uM5xNgis+QQF1kqKqsnigVW+UkhHSBJYJXkG QFQFAADQIpaVfWlSjN1StuddFww6Q68zXNoioN1FV3/RjUIUQq5/N9aoJ1o/ nObceiAl/vT2YAtBnBm9+3QjkXr0jYZ8f7S0tg/dDq7vPqdnmNSZb/07Tm7O 37nS1u+a3z3YDOTrOcd7BuL0yBfBlfg+GV8O3ft0oLG6tv0/XcFXwh+VhLSF NGM3fq1Gvpi6ftbQOOgIFhmK7awE71gtXUaiytg9cmPqOY+KkEveS6f7S09A sSuDDilk4Cas3zIvSmyEfU7r8HvpvRCqjO3n0tvRBhc3NfWkXjwjuhebu2k2 UGdItE48WCmYNc2skxW92Te1gXKPdEVES1wJW/ia8JqGl63yd3QaHiCqCqPZ qCqwIZSMqsnsXHF9y6cPf5z63DYyQO8qXmXs+MWY/f8GMluKk4n1Wc/kr/pS /1R7anDyu+iRqXGHIbDmER5YKyaqJosGVvlKIR0hQWCV6hkAURUAAEBz2Ff2 pUk0dku9UcQz1KTT9zuflVIwfNU3bCxYN08x5MrUWKuO6J4MbvB9VEm8mvPc GLtIp/La3x2ZvMOMRFJXP/LQeZ3aeZNo7B79e4j1V2lyOxq4MznybruxSldr 6rFc/8s3M9G42OVk/NtCmrGbiq2WWPGNNffeerYr0zNlGXRI/gM3Ef22ohQZ uOWGQrrGq95o0dbcnbW3pbeiLrJjUUES1TqTaiVskWtS4jS8Yw5RVSBNR1VB DaFoVCV3AtYTB+eKSwGBNQ8Ca+EgIlcppCNKDqwSPgMgqgIAAGhNgZV9aZKN 3ZhpS0THJ0H2pSg8pJfYqFzubCfqvdqoMw66F7T2U34O37aQZOymWqvRj7hN v3DNy7ZrZzl0SL4Dt0rot6UpPE5h1u7pDO855l5zDUByeyvwLj6QfwxS1DqT bCVs0XmzJU7DO84QVYXR/N1JQEMoGlWZn06IQa4d5QR8NgJrHs133ZIVDiJy lUJiPYbSAquUzwCIqgAAANoSm7P31g998e8ou5+9o3Tdm5puR4D5f8sbImcn pkv01LWOfcu9JosVteQkbwNZFezFZv/Yo28wO2Y0UvS+EH5tIcnYTa1WIyN3 Lg07uR9uS6B+h+Q5cKuYfluKwuMUctVv7TY0XuTbW+I/eiYG241VROOvvube kDrf2tSoKVclTDTJVsJy1VYtcRreMYWoKkhl3J14N4SSUTX704mE2UUE1pzK 6LolKhJY5SmFxKLkwCrlMwCiKgAAgLYwWz0KwF4VnJ/Shm/r90barghMQUiI TETcgwZjpTz98mgLScZuKreanMrh1LgHbhXWb0Xjs9e8zMgF19vvOedLXAoq 4UrYMrgmFQhRlb9Kujsp+Dsjz1bL/HRCnLA+VrUmgkAIrFpSBkFEmsAqlTK4 IAAAACCZdGSXZn0fIzVqeDjZ1zHsW5boDZWy99RxpnPE/bSCnn652iI9djuI 7+arIBe2fEuRVqnAfitOxYxTJFwJWzHXREMQVfNU2t2JR0MoF1WzP52ov22W FiCwioMgcgguCAAAQCWRY+yWfuPtmOiNgVST2IqVuiFKOSrSFsiIliOBA7dK 7beCVco4RcqVsJVyTbQEUTVfJd6dijeEclE1u/+a2ttmaQMCqzgIIofgggAA AFQS2cZuAACKqpRxipQrYSvlmmgJoiooY8kzUEd1tBZ7CPUIQS4IIofgggAA AFSSnQXnOYzdAED7KmOcIu1K2Mq4JtqCqArKSKxM37g09KE7JOcuSHDcIYgc ggsCAACgeWR84wW1++1CyP+30dbq9OIhfbf1vwPhRer/v4qJ29MWAEA1lTFO kXYlbGVcEw1AVAWASoQgcgguCAAAgObRe2xWGdvf7jvsfLfJgEAPABpUGeMU aVfCVsY10QBEVQCoRAgih+CCAAAAAABAuUmPU5r6Rn9rTXMGNtQ+JuGkWAm7 EXBmLsFvR/uaMHYDAABRKiOwlgxRFQAAAAAAyld2RxtGnzuq9jGp4/Bu1xi7 AQCACAisNERVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AI3ZjXouGXQGU3e/ZdzhDb1KqH1ASovP+xyTVuuH48ODfX3nu00nTtpn99Q+ KAAAAAAAAAAAAJDNfnzle4e5QZdCnBm79/PxSorG5tw2q9V6bcBUTV0B3QmL 96XaxwQAAAAAAAAAxxoZC97oOTXsW1b7QAAqGJmIfG7W0xnBpo8C26Tax6O8 nQXnOfr8zzkXdtQ+GAAAAAAAAAA4tnY3wp7xjjqdrrbPvaj2wQBUNPKFd4ie JqprGZ16pfbRKG/VN2ykz94ewpp5AAAAAAAAAFBaIrby09zDu44PzI0EnaFB RhRAduS2/3o9/X3TD3qWj9ss0b1Zews1R7Z6dGpL7WMBAAAAAAAAgGMlEbDW 0tUMa019IzbXN46L1ciIAijjzRNbM71ynnjHFXmj9tEoilxwdlJnbjC7I8ct GQwAAAAAAAAA6iLjGy+iyxvx/fR/MglSZEQBFLAz7zxPz8uu6XL+sK/20Sho b817mc4FdzvCcbUPBgAAAAAAAACONWREAZRELrn70/srNU8G3xyfyZKbAWsb vc+8NbBzfM4aAAAAAAAAAMoRMqIAisrtr2Qa92+ofTRK2X/qOFWVOueqYd+m 2scCAAAAAAAAAMecrBlRMvb0zlj/sPel5O8sl73ZG2f/wz69lFD7QCTE0QpR d5/usFprQMErkIgtPp1ZWK+ka15Udn8lom70AVd6cNHdVyugecq2A694BggU EQUAAAAAAACAsiBbRpRMRO9be5pax76NJjSUAtmLzd00150acs3GNHTUBfFo BZUzouR2cLKN0OmIQXf0yGeS29HAV45xS4/JQBj7bP7VSmiTlO3vrU30ynm9 xbNc/EoLzIiq34H349F/fumYSLVZra7K2GGxup+sJPa3pq5Vo4goAAAAAAAA AJQHmTKi5Mr9a601dUOeJS2lQ9P2YrN/7NE3mB0zWk+K8mqFdEa0zx1V8MDy MOUl9Ze9a3t5/38/Hn3kHHqrY/g3o90GOg9INNiCewXfR1u2Qva30snNXteC gF6W/rpyJKxV68BkPDJlv9BIVJuGbk6FV+Lkfnx19u5oV9vYna9/31FCEVEy sfHM7/mzdXjwfLuR0BG1prNmy68/dX0XWo1r/DsKAAAAAAAAACqQIyNKxmYc 5gai7ePHmxrNYO0sed6vI86M3fu57FYf88a3FdTNiDLlJXWdzlxmkNyK+H7X 2/G+M/Aykdyas5+l11sPOMMxVY5RDvvzzi56y3ndKUeY/5bzvDKiSVU6cLq/ 6XRHMrGJZy5zXXpyq5gioomXgVtX2murjd3DtltfTT0OpDye+uqW7VJ7LaEj WgY+9S3EtHmfeTNjP/1Lz4o2Dx4AAAAAAABAy6TPiJIvHlw7QxA99jkt56/I lamxVg1n4fi3gqoZUTLqNlOJwapTjqfpvCAZ/8ln7e8ccYezaa7E+kJw5ocK mw2YTQXr2m1B3n2Mb0ZU8Q4cDzmpdCjBNiF5f9N3hT5VwUVEydiMc/CkoePa 54HnR5qfTKzPfjFympoy2vFbX3SnxDNQ3n7YcUrkpFkAAAAAAACAY45MRL+b HDxVW3t66JaYRbJSZ0TpyWm6mg77jNbLBZLr34016omOT4Lam4EmpBXUzIhm c2Vt1sAmtdx73mvt7R1xP9V6vQIOiZePb7xryFQFJerHp7f5vpB3RlTRDrwZ tNEzXvUDrsjRHpdt5U57iO+JUhIRz1CzwXxzrsjxJ36+N3aGKkPbOvFgRVsT uhNR92C1iEmzAAAAAAAAALD9T1tbNZNZuShiAaa0GVEyeveCgdA1fRTYroCU 1m7Uc8mgq26z/VNIHkd9wlpBzYwoU0S0atjzbNb3p1+2d/76Tvh1BXSdYtJJ PMN7jn+4r9bRK+errvg2+a2cF5IRVaoDk7thR2f6PIa8ayyNx7Ry9bWpLf5t G4+4LXWtH06vc93T4jP2jprU7c8w6I5oqWrxqm+4pdP5o4aOGAAAAAAAAKBM 7AVtDdkdqPnnVfJImREll30jzTpdXb/AtbHlazfk6KzREW87wtrJiQptBRUz ormV4zTD2+N/+bvb/aXPHwxHY9qa8MdXOh1KnLn24AWZfB2wnqbPvH7Q85xX YwnLiCrTgV9NjbbQZ9E0OrXG8u9MK+stXrZ/Zkeu3Rupq+2w/vfc4ibXue6t ed+nu5HxgmdRM3eencfWE13CJs0CAAAAAAAAAI1c+XrIQE/PIloufPHjrvB3 kC4jSm4HJ9tSx1IhE0TTEssei16n0/e7l7RxTsJbQb2MaLaIaOvozbtut/sL p906erHDmJ5vaOwZ/zy4XEl5UboqZguhaxryROjzIndDN9rS87t7Xbzy10Iz ogp04E3fcFWxX2SYVq4WMh/yTcT1DpGZ+t5hfbzO8edbU6PpmfLauflQRUSF TZoFAAAAAAAAKCvkm5Cjy9jnCG2p8en78ei/vrnzjX9+XVzuSLKMKBlx99el 3qfXtVBRg/zt6fF6Qqc7bQ28VvtQeBDRCqplRA8VEc1KxCLTzqE2OiHWdMmr kVQ0F/at2MkFVy/9/dN1O8I8Ku8KzojK3oGz09QJszvK0lSiioimurGZKbOq IxpsQa6V8y+9lhP0H5vG/RsCz0AVe2vey9VCJs0CAAAAAAAAlJlE1D0g5V7t ypIqI7o/76T2VtFbPBU1rS8lFrS1U5toj9xjq5FYXsS0gmoZ0WwRUba5hfF/ 2VrpRNopR1hwKYhyQyaiDyf7GnS66tZr91cO9KLdJfcFPXWe+mbbkzec7yQi IypvB07f/ajjb7HPsuUtN/zjJsFFRPdm7S16JiHaZQty7j60FbSdFrxNlZrW pkZNKCIKAAAAAAAAWoaMaJLJuuj0g57lShvkk2+Ck83UuV1wL4koS6AkUa2g VkaUKS9ZYG7horsv3THzsn/7PzjPXvGuyb1zurTIRPTbsdZqKic55Fk6svUP ueYdSq86r7/u51zxLSYjKmsHzmZET1i8L1n+nclt5hURXQ/Yr7s4JsTuRH0f 9Rira1t/YfP+GOPuzNnD0Ola7KHy7yDUZXkLRUQBAAAAAABAy5ARTSbfPLE1 6wVsEKMtmbMr+4IA4lpBpYwoU16ywNxCJpNGDHhWmP9HlV7U2JTRXDrUYL45 F2NN1WV3JmoY8r7gaDgxGVFZOzC545+ooZerWwMxln9edPXoDhYR3Z4ebxiS eiZ5XkaUuOhZKfeUKLng7EQRUQAAAAAAANA2ZESZSWjEO64I98JfDVqbGm0S sP2NOsS2gjoZ0Wx5yQIblGf7ZS75txWynyv3pPQBe7G5m2Z64zOideLBSqEc ILkd+KgpvfKcc3KvuIyorB14zUtt3cTajokF96AxPXFz3J+uYkpu+683SD+T PC8jyrMiq5qoIqJVeal+AAAAAAAAAA1CRnQ7ZO/UzHpVMagMBr3093IZL9kW 2wrqZESZIqKFLimzt042+Ucuf32pZdRXvtf/kFw6VNd41RvdKfa3u7P2Njo9 zJnNFpkRlbUDbwZtXYRO32T9Pn8ROBl76h7pbOvrPZk/g5Rc9o10j/gkL60R Dzu6mYwo+2zVcrI2NXrylOOpliY7AwAAAAAAABymcEaUTKwEXBMDrbWEjmjs vur4n4XNUtILEmREyR+dndXUytjRqS3Br92OBr5yjFt6TFT6izB2XRz/iy+8 xp3vSUQD386sKjVfkFqvXWRCYzkQ3QqCMqJStVe2iGjBWYt7m48/bkv18c7P 5rYT8ej0DXOHQvvOS3KO2b2BDO855l5zHXZuf6Wmieli32eRGVGZO3D86e3B FoI4M3r36UaCTMSiId8fLa3tQ7eD67vPvZeadLo6861/x8nN+TtX2vpd87tC mjHVHDM+l/368EC3qZbOMNeaeizXU02ykSvK+to/3qJqRjR1W37itlo6jFXU bXn4xjfzhZuR6hunrYHD20WRsad3xs8Z9S2DzhkepVMBAAAAAAAA1KVkRpSe eNZ4dsz1j/Di0uITR59epzMMOMNCMgCJ2Go0bSH06EsbtQU2PT2t9crtB0/C i+l/Wt6I857BlFk2W9Pj+klQpiOx8r+OwRZCdwTBmRPYW/Ndre90hAWlVkqx NTVaXbjoZTkQ2Qr8M6KSthf5Yur6WUPjoCO4Xvh1OyvBO1ZLl5GoMnaP3Jh6 Lm3pSTbSnSO56rd2GxovOrnTobT4j56JwXZjFdH4q6+jhfc/EpsRlb0DJ17N eW6MXaQbq/3dkck7gWhmmygyHnnovH6xw0gQjd2jfw+xF1NlQ24tPvzzcHud TlfVaP7t7XuPQgvP0zeuuYf/Zbe0tw65Mu9G/uTqqWGa6pxzoeiMXOmlbsu3 Bps6Rm7/g7p/PnUNVhW7LVNFRKuu+DYP3WDX/ONtzCm024JlPs0VAAAAAAAA QLGMKJlY8gyd6Lsxm82xZPbjFry3OGFsP99X2FlTbSv/eVZ7QVvDgVKBvF5E 5RAaq45mnhgN/a4fCiaGdkOOzjYZ1t4WxqRciHKt/ieqFWi8MqJaay8xtHCO ojOiZd+BDyIT68HbQ21E6oBNl52PnsePXlby9ZxjsO1X/2+FzOZ707lrpXdW IlfuX2vrtj5e43dbpiroVpvd0UP/xEzWp+VtRAUAAAAAAABQppTKiJJL3kun ep3hXE4mOzOKZcaRYrJ7mvCfmkUmIu5BAzMRr7a1b/gDK+U3o9QcMyYroO93 Pttme7niE0Qpmb1pxCSjlCCiFRjcGVEttpdQGjlH0RnRcu/A+fZiYfdIKz2l tePD74qUYKVuiefG/WtMTYB03toWVDIhSq5MjbV32Gdymzlx3JY3A9YzbEVE Y3P2nmxH00ArAQAAAAAAwHGnTEaU3pC66aPAdl7KJTczasAdVWsAvRW0naaT Rbw3bYnP2DtqdDqituOaa/pZXjFAChl/Hvj8WgdVMJCoG7m3djTDtP+Ds0v5 CYfMaSo+A40f4a2QxZkR1WR7CaSVcxSfES3zDpyV25GKaP3gXvEdqZLkm+Ck afjbn9L7RqWniCo6CZbcDTs6668e2PCr+G2ZqqB75mgRUUoi4hlqSp+Ewmld AAAAAAAAAOGUyYi+mhptPTiziNz2X69Pj7xPWAM7aiWcVn3DRiGzmtJToU70 WO9HE4WOmcmK6C+4lw4tU6Yzw82TwTcKn28JkzB52Yn6b9usVuuHoxZzX1+3 yXDSPicgJyK0FfJwZEQ12l6CaOccxWdE5e7AkiDj4VvpdKiO6J4MbnBf0B3/ eH2f5YKRSYhWMTfJvY3AX635nIEN6Q94wz/e1mx78ibvFN4EJ5sL35bJqNtc XXBKP7nk7qdyu9JFk42A88BV+GtgA6lWAAAAAAAAkIQiGVFq35xuRzie979S g3FTJgsw7GObcqSMTNE8notV6SF/devEwyIb6tD21qc/bCVqe10LB6frvfAO nTz8P5WQTSjJtJN1LOyxW60fjls60tUEiaOVBosR1goHFM2Iara9BNDSOUqQ EVVlK3ZeyM1H1rb09Ep9k/V71vIERzA9P6NpdGqN/v/Z82Vw7x0m3Pb0eH3H wV2QYkFbe+HbMlVEtKrHtViwr6R/2hBeDbiQ9Lc7R8XVBAAAAAAAAFBhFMiI 0uPoU45w/sQiajCeLjtnGvfLMPuJJ/JHZ2c174QDlS4gOv4wx7JRytF3XvaN NOsOnvX+vLOr+n3BC8OlwOx8kk25yCOTwahiqzRYmLBWYPtE9hdquL1409Q5 is+IKtWBRaMKcrYyS9/fcUXecL+EcjAjmivdmb4ty5oAJHcC1hOHJoK+eWJr Tq/gNw77Vo+8ZDNgPd1iny3cV3YXXf0FDns36rlk0BlM3f2WcYc39ErgiUl9 QeLzPsck9SPO8GBf3/lu04mTxc4LAAAAAAAAKo8SGdFY8ItPfBH2JfP11/3b 6k3By26RzCcXt/PYesI45H3B73DJ3dCNtgO5kdcBazvvyWMSY05U1oYmd/wT NSLSVoJa4ZAiGVEttxdf2jpHCTKi8u8BJwZdkJPZWKjALu2sDmRE816oREY0 Hv7qD578ift5S+ZZt1WiioieLPrVpg+74Ezv/fjK9w5zA500PjN272ch5yb1 BYnNuakyH9cGTOlpvScs3pfSvDMAAAAAAACoZTv4p97G7La/MqhqfPfv8yXN p2HqRuqI+vFpzmxMiYdb7K0F5eLWp6y/+HOQf/6WSiA05gbamw9G6885wuok 2BRJKMXDjm7qQ4RukCRTRlTL7cWXts6xUjOi6cm3GfWDnud824Nqjiq2FyqQ ET0qt2S+enRq68g/U0VEq4p/tak5onqLt3DOlExEPjenZ6Ee2miPg0wXZGfB eY4+mnKuTwsAAAAAAAD8KJARfeev4VL2Ydn0DWfSAO0Hq9ixK/Fwi711Kbk4 btshe2fNuJ8eaSeWPZbqfveSSvNhlUgokRG32UB9yKEKCbwPTupV80KVUXvJ RtVzrNCMKLnsGczuFq+3eJZ5nx5VYJn1hWpkRDmWzJNbU9eqO51FC86u+oZb Op0/FvsTqm4tPU1U1zI69Yr3wcl0QZjf5lrsIayZBwAAAAAAOF6U2Wv+wCcu e5g0gOq7eMubEc3biIRccPWe5L26WXpKJJQyiW7ihPWxsOlW5ZIRLaP2ko2q 51iZGdG9Ne/lbF6T6HVF+F5QupIn87qDs+WVz4hyLZmnculvFS0imq4O3XNw Bz2WD8qWTBFSXkCeC7I3a2+hmo51TiwAAAAAAABUNMUzouRzz2BmQNxse8Jz AxLZDqaEPX142A87TlH5H7p+o6oVU5mEEuvsL2nsBW303C/hFfnk2llJsPJp L/moeY4SZERl7MBirU2NNjEJUUF7iuVWqR+ZLa98RpQpeUFNVmVb9k59SU1F i4jSqc62G6Fdrh6VnYwqYAsqWS4IueDspI7DYHbzTmMDAAAAAABAhVA6I0ou ufszE6q6uWYTKYDZ2aTgbiClofJ1qVH8RtDWqWr6NzuNzWQNcJcpEKWUinwl tIKkGdGyaS85qXiO4jOiCnRgscifXD01TGJTyJ5iuVXqOv3h2gWKZ0Szv0oU Sg+ueS3VRYuIkhF3f0s/r9TizrzzPF3XpabL+QO/BLIcFyTbqcohEgEAAAAA AIDCFM6Ivom43snUOBVabVIWTB05UfPWuFEpoH7X0/vj9WftIY51meTmvxwX 2k09H0+tsB4KmYh+/7n901v+JREz7OhWlnXs/9JrOSE2t1xCK0ibERXSXlql 4jmKz4gK78DkdnTG57JdGeg2Udn2WlOP5df2O4FoXOqbTrbmAzXp8aJnhWfv J7cDH2WmlhJdtuDmoTdVOiOaq2jKeoXpIqLF7tj06dRd9fHbUi33uxjfwily XJDNgLWNntVuDexgiigAAAAAAMBxo2xGlCpdWMu2vHQ/FvziE1+Eb7aC3I4G vnKMD/W1Gwkm3fGpyzcTFboGeCtoOy0wlSEElS1p/uXwO9VdznmOc8vmigvl fF5NjbaIzSRT++nwPs39ePSfXzomLD2mWl2VscNidT9ZSZBJMr76w2yo0BXe mhqlp5hVDfs2E2th31/GL3YZCaLW1GsZv/Vwcatou5TQCtJnRHm2l2apeI7i M6KCOvDu+txdq7mZqO0cdnwT/GktThVNja//9MRre6fJfCsclzT9lZ8R5X9q uQ2G9I1j360fPiKlM6J7IXtLZt1/oSKiXcXqA++Gnb3N/CaI0nKnbxr3b/B4 gQwXZP+p41RV5pYl2ZsCAAAAAACAViiaEd2fd3alZ4geriC36hs29bqK7mPM IGOzrqG3Oob/9E3wp/X0jK9ELBqe/mLibUNt58jnszEBCY/s3DMRa735vH06 W1LL49SYOZaFJiwxKUdRm4AwpQ65MjZkPDJlv9BIVJuGbk6FV+Lkfnx19u5o V9vY3enbv6A2ki+wKTOTUaluH//M1neqZ+KLxwtr1Muj0zfMDTrD+cnHrwpf gRJaQfqMKM/20iwVz1F8RpRvB06Sr+ecFxsJwtDz8YNofl/ai4X+NtJeJ30l 0vxV83z7IbkbdnSm74R1I16Wvel5JgATscWnMwvrpWcJc2ld1itMralvKXzd 4hG3pb731jPOCqJ578jsr0TUjT7gkZCUISO64hkgClcJAAAAAAAAgAqnZEY0 t2T+8I7M1DblvNbDkrHgjZ6OkS8X2OZ57UTvfdBKNJidIf4rw5n9gFrG/a95 v4i3dKKBzwYi+XMsWY8zk3IUvm9RMpe0IQY8K0X+KjbjMKcuRoPZMXMgq5x4 5jLXZXI+nU62PFq2iGjqM86M3fs5P22RWSFruOSJ7hb6aPGtIEdGVMCGL9JJ bC6GgqH0hEZ5P0jFcxSbEeXXgal0qOM9Q+rPWiceHCo9wUwIFPkNKoaZv8q/ H+a+UKZf+aJsDc4nAUhuByfbUvdTYpDlzzKz6C09JgNh7LP5V4t3K2q/rSIZ 0TWvpYrtU+hPiv/7zz31F1zz20U/4Yjt761N9Mp5vcXDkhM+pJSMKOuk932q DkCxOfkAAAAAAABQ2ZTMiC55BtJ5gEPz0/bWvO9XH8qRstsM2rqqh7xrhf6S XPNPnNIR553zvKcaZgroVXc6f5Q+F0WngA6nf9kwCc9CE5ZK2bco9Wr/OJVP 0rfYZwsuOY6HnFQ6lKgb8iwlDh3C/qbvCp1OKvQOzATXI+lQSmbTlqK7qIhu BRkyonzaS1rk5j9v9NIXUFfdOvZt9PD1l5RK55j9aDEZUT4dOJlY9o7Q95dT E/4jd4j9edfb1BxnovXD6XVp62OQb4KTzel0Iq+KlNSMSupQdDUdk4ECE9r5 JACZMpj6Qxse7cejj5zULPrfjHYb0r9ScBf3ZX6RYcuvkjsB6wn2Yh1kIvrt WFvXtQcvhPemrZD9LbZwwEpkRrTwpPc7X/++g3eTAQAAAAAAQOVRMCOaW5l5 MK1HbVJ8ZsS3zD0u3Z4erzcUP1Q6tSgksSZrNTkqz8BnvM+V8ExdIjOd3Ciw aL04csFJT2Irsl6YSjVT03f1A67I0RlT2YxogXdg0in6QQ9bKzJbyfe4Fgtd CNGtIG1GlG97SSu79XZanYB6jCKoc440sRlRHh04Sa7dG6mju/DhfduZP4hH QzPPViXfWYl660XPBXprMF27LRgr+qd7seAnHQRn6ptHAjA76zV/2ja5FfH9 rrfjfWfgZSK5NWc/S68LH3CGix9VyoZ/3FSg+8XDjh62IqL78cjXY21dLD+C 8JMrosJdG1lMRpTPpHcUEQUAAAAAADiuFMyIZofwB1Iie2u+q/WdjjCPGnT0 0k59s+1JseW+dIpMSNIlFrS1i042Fkcuunp4rcpk5lgWOgaqqgA9g1BMEdG9 Ne9lPctcstxhZqsaVrHPvy00G435gMwE1wJ5tr1Ze4u+4ILcDLGtIGlGlHd7 SSsWsJp0eQizm3UptSRUOkeayIwoZwdO2Q473qa7cMOQV8R8xRKRiYh70ECt YDcMuiMF85y760GHmfozzpnA3AlAMuo2Uyec26KOjP/ks/Z3jrjDMeYqJdYX gjM/rPKqxEBG716gju3INFrq55jWI7nonej0J3117aLToZRcKQPOTLLwjCiv Se8oIgoAAAAAAHBsKblqnsl65VIiZGLJM1Tfa5/jnMJEyRS7q3vfs1Ro5Xh6 BaugcW52jw/JN1eix901E37OVZkcuybRq1bpFZ6iSiBmZn8VXijN7GKvaxqd WmP5dyZxUeAdUl1okE5GFcizZVbE63TF1u6KbQUpM6K820tiiRXvsCE/JSrj Mah1jjSRGVHODpyXdWffKl0Be7G5m0y28+vIkZmoZPy53/EfjVTStG3odnCd ozACZwIwm9NrswY2qU+f91p7e0fcT4XsK1foFAhDz+98ka3MO1E/x/S7FrNF gMnE+uzdibfrTO/fDr4Snw5NvHx8412m2xP149NF65AKzYjynPTeaQ8JLH8K AAAAAAAAFULRvebJlfvXWqt1uvYJXzgajYTufTrQ1ClglhEzVZIwXaaXhR79 gGXfSLNOf8G9VHATHxbUYvzU6Ll+0PNc0jzRqm/YWGypOINr16R42NFNn7ao 3XDePLE164sV62OuaqFs0tHZaAfRp6krVJEvm87l2hZHXCtImRHl217SSyz5 HVe7jdW1rRes7s/er5F0T+0D1DvHpNiMKGcHzkx8pal1apT9eMRnMzdTKcVG 8wd/cnl804HA/055/+awXu42pr5jde3Djv9Z2ORxgJwJQGbadtWw59ms70+/ bO/89Z3w65JPfT+++NAx3EkVuSAau6/a3b5HM55fnzgx7nsejS6Gg1N3HR+Y Gw2dw477C7ESptQnfr43doYwvOf4h/tqHcEjlS0oI8p70nv1taktTBEFAAAA AAA4nhTNiFLzi1aeuK0XWmsJesTNMz+QlZ3NSE0V7Rj7W3Alfz7hTtR7tVHX 0O/6QUg+NJmdhFagDKZYO4+tJwge69x5FxHlrrbH8uLMti+Fs8TMPu+FFmsf mo3G+no6YcpekY9J5xZMqGaJagUJM6J820tmVNpQtoyouucoJiPK3YGTeSWK RezaJDFyOzpz3+2wDg/0dZtSX1uDqbtvYNjqcN+fiW7z7tdcCcDcenOa4e3x v/zd7f7S5w+Go7GSr8B+PBp6+PX/sVtHLea3243pDyJqTb2W0Y8dnkfzGwLv r4ek06HEGXo/ptcB62n6/Yv/FCIoI8p30rve4mX7ZwAAAAAAADgOFM6Ilopc /vpSXd4uNLVvjX3+r5UEmUy8mvviP1v1LYPOGeHrRsnd0I02eoTsWZYsocJ7 jyemiGihReWZOZxEbnOT/Wfuy7YpXltmZyoVFJgrlWQ6gK7wRt7MliuFJnGl c5K6mh7XT2z5VCZ1Q5x3zhdfDi+qFaTLiArek0smqeauk2tVu8rnKCYjytmB KUxWXzP3MS4cCcDstO3W0Zt33W73F067dfRihzE9L9LYM/55UKob2ZJnwCSq WAc7MjbjHGwhdE1Dngh9hMy3vnhVBEEZUb6T3svgyw4AAAAAAACq0VhGlCp2 F3aPtFbnkqI6orZ90NLdUNtxTXwegNrvvq74ylyB0jM/W8b9rzn+kCkiWiCt ly2wmdtom4y4elsmg294HGlmKfppa6DQYWQzogXW7DMVGvNmkK4H7Ndd2ZKh mYwo65lm0x1E3ci9Ihkt5s+Ft4JkGVHe7SUzqlhu/u7hUlL7HEVkRLk7MC1T q5bzPkYmoo/+5lVlWylBiicAC03bTsQi086hNjov2nTJuyRBJ6LuTpLtw8W+ +Tu54OpNz/At8kECMqK8J72jiCgAAAAAAMBxlk64mcb9G2ofiQBkPDJlv9CY N1dUpzvRM/Ffc+uil3OS24GPmlJv08wv08iNnvlJXPSscMzkZIqIsqf1yM1H 1rZ0wjS7pv5NxPVei+0Jj4qiiWUPlSjS97sLJ0fIHf9EDfX+JmuAZX8rpkJj 3pr37enxhqHcNM5MRpft5eSaf+IUvar3kifKp2mEt4JkGVG+7SWzRNR9oSE7 GVhiap+j4Iwonw5MI597BusPzKNm+6NE9L6155TwqhrKK54AzBYRZZsDGf+X rZVO+IkpsnEYlZ9nrw8sVOriP5zsa6B2nrp2f+XA++0uuS/Q22Lpmwve1vhn RHlPekcRUQAAAAAAgOMuEdvYUrn4njCZ7T8Mjecvv9eanxYlGt/9vfdHkbst k0veS006XfOIT4piouk8IXdSIltmU6eret+7dmAET0+pOv12Xwed4GCyAbsh R1e/I8xjdlPqLztrdESPfY4l1ZmTmV/HVnMvseAepHdNyv0rlUJvOFDqM73q PzeFNXv48bk/dFDbzKQLBvIjtBWkyojybS+ZUbNkO+X6eUL1cxSaEeXZgSnk 7ryr30Do6ka8rPPEE2thah+3jtJ2Y1dM0QQgU4miwBzIRXcfPeUy/zrv/+A8 e+XQ7YXfYQxWs9cHFoRMRL8doyb2E3VDnqXE4YMm17xD6XXu9df97MVWRWRE OSa95xURPTjpHQAAAAAAAKAMka/D7v9sJU70WL3zsb0kubU4dWOgMW+TEV11 69i30SODbj5vnYh8btbriLbJIP8tUApIz/zk3sImu2sSPanJOOjwRzYTqSOJ LQa/+czS3jt252lse8beUaPTnRz1vUgkXn4/2X9q4uE69wHuRj2XDDp908Q0 1+ZVm0FbF5H6S+v3+WlWMvbUPdLZ1td7Mn8GKbnsG+k+mK5MT+w8tC6eyYEQ Z8bu/Swk3y6wFSTKiPJtL3nRe2TzrIcgnPrnKCwjyr8Dp+2sPP7MbNBT1TMe R2LUHSD1PVpeCD265/r9UHsL733ey0GxBCBTBrPAHMhsmYsBzwrz/6ipnmIy 4au+4Vazu3B1T15y6VCD+eYc+w712b2QGoa8rL+e8M+I8pz0nldE9NCkdwAA AAAAAIByQ76ec7xnOFSGjsrdPfN9mr+IvqbDPiNqxs/2vOuCQWfodYZLW1e7 u+jqLzhJKV9mExB9y6cPf5z63DYyQO9PXWXs+MWY/f8GMptTk4n1Wc/kr/pS /1R7anDyOz75XnL9u7FGPdH64TSfDZjiT28PthDEmdG7TzcSZCIWDfn+aGlt H7odXN99Tk/arDPf+nec3Jy/c6Wt3zW/e/AA0u1CnB75IrgS3yfjy6F7nw40 Vte2/6cr+Ep4okFIK0iTEeXdXrKi5see7i81AVVIGZyjkIyosA7MvCixEfY5 rcPvpTcZqjK2n0vv8x5c3NRUwqtIAjBbBrPARurpi3zgMm+F7OfEVEjeeWw9 0VNaEdG92NxNs4FqDKJ14sFKoUZgymWkboUH5p9nCdlZidek92w13aOT3gEA AAAAAADKyt761AeNOn3j2HdsMyT3YvPf/N7cnEmL6i+4l0QlNRMRz1CTTt/v fFbKphurvmFjXuXPQsidgJXeZv7okvPSkCtTY606onsyuMF3oJ94Nee5MXax y0hUGdvfHZm8w+RjqaqtD53XqZ2sicbu0b+HWGd5kdvRwJ3JkXfbjVW6WlOP 5fpfvpmJxsUuz+bfCtJkRHm2l6wSK76x5t5bz3ZlSs2UwTnyz4iK6MAVpUgC kCkiqr/MvgqemXaevczk8teXWkZ9gpfMl15ENJcO1TVe9UaLdrzdWXsbnegl 3nFFjhYTFZIRLXXSOwAAAAAAAEA52f/B2VXDkeqkFpWfozfpEL9rfHozI6Lj kyD7Ak8e0gtX+RcRJQb5jfR52ol6rzbqjIPuBU3NizuAbytIkhHl217yoXNH Tb9wzcu2+bX658g/I1oJHbg0hROA2SKiva4Ck4n3Nh9/3EboiM7P5rYT8ej0 DXOHqH3nSy4iyqzf1xnec8y95jqA3P5KbHUSBGVES570DgAAAAAAAFA20vXf CqypzJN45jLX6QTtaH3ko+jCd3Vi65Gml23mbc5e8HOYIqJS5qn2YrN/7NEf LiygQfxaQZKMKM/2kg8ZuXNp2MmdNSqB6ueY5JkRrZgOXIrCCUDyxdT1s4bG QUewSC3hnZXgHauFnu/dPXJj6rmoO+Ha1KgpV2xTBHLVb+02NF7k27HjP3om BtuNVUTjr76OHvrZS2BGNFnypHcAAAAAAACA8sB7xW2mzl7NuL+E5cGlJUXX 7420XTkyqD8iU0SUOGF9LNFKZjIRcQ8ajJWSTeLRCpJkRHm2l6aVwzlyf4cr rAOLJjwBKDlywfX2e855FetI5CuDCwIAAAAAAACgBqqoHb+dsum8S+nT4chE 9OFkX8ewb7mktyn8/kwRUek2u9l76jjTOeJ+WkHZJK5WSGdEDyphejBIa9Hd VyugeSqwA4uDBOAhuCAAAAAAAABwXG1Pj9cTuvrr/u3i6ZI3Edc7BHFemtlN ie2Y6O2BODBFRKXc7CaxFRO/D0r5KtIKyIiWNYEZ0UrtwIIhAXgILggAAAAA AAAcW9vPnP16XU3HZKDIFDJyc3qiqbrAfvRlZckzQNU71bXYQ6hjBwA5SAAe ggsCAAAAAAAAx1ji53tjZwhdg/nGoxWWwpL79MbKRoP55pwGNstIrEzfuDT0 oTsk5346AKA9SAAeggsCAAAAAAAAx1viZeDWlfZafW378A3Pw7mF51FKJBz4 fy7bpXZDi9nmi8i1zh0AQAFIAB6CCwIAAAAAAACwH199+sD1yZilr91Ibdau I4zt741YHV8Fohw1RgEAyh4SgIfgggAAAAAAAAAAAFSwdAKwqW/0t9Y0Z2BD 7WNSwUbAmTn/3472NSEjCgAAAAAAAAAAUKHSGdE8fe6o2sekgqi778BVQEYU AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAG7Uc8l g85g6u63jDu8oVcJtQ8IjqP4vM8xabV+OD482Nd3vtt04qR9dk/tgwIAgGOp Eh+NEGcBAAAAAA7bj6987zA36FKIM2P3fq6EJ3/Qltic22a1Wq8NmKqpfqg7 YfG+VPuYAADg2Kq4RyPEWQAAAABRyFjwRs+pYd+y2gcCMiETkc/NevoZuemj wDap9vHA8bSz4DxH98JzzoUdtQ8GQFGIswBlpiIfjRBnAQAAAPjb3Qh7xjvq dLraPvei2gcDsiFfeIfouRC6ltGpV2ofDRxPq75hI90H7SGs5YNjBHEWoCxV 4KMR4iwAAAAAp0Rs5ae5h3cdH5gbCfphECO1Ckdu+6/X0y2tH/QsV8ZUCNCW vVl7CzUdp3p0akvtYwGQH+IsQJmruEcjxFkAAACAohIBay1dOKnW1Ddic33j uFiNkdpx8OaJrZleHka844q8Ufto4NghF5ydVP8zmN2RChh3AhSBOAugDZX1 aIQ4CwAAAFAcGd94EV3eiO+n/5MZuGGkVvF25p3n6ZlKNV3OH/bVPho4ZvbW vJfpYWe3IxxX+2AA5IU4C6ARlfRohDgLAAAAIAxGascHueTuT28i0DwZfIPp A6CkzYC1jd7/1hrYQd+D4wVxFqBsVdCjEeIsAAAAgDAYqR0juU0ETOP+DbWP Bo6T/aeOU1Wpnlc17NtU+1gAFIY4C1C+KubRCHEWAAAAQCBZR2pk7Omdsf5h 70v2f466+3SH1VoDCcmPo6BEbPHpzMK6gp+oruwmAkTd6AOuB+ZFd1+tgObZ m71x9j/s00uVdDE5OnAZKttWWPEMEChuBseUmnE2WQ6htoKV8hRx3INs2URY QY9GtPJsC8RZAAAAAIFkG6mRieh9a09T69i30USBRzOVh2nkdnCyLfX0SAy6 o0c+k9yOBr5yjFt6TAbC2Gfzr1bI4+X299YmenmY3uJZLn6lBQ7WknuxuZvm ulNDrtlYJVwsHh24HKneCvvx6D+/dEykvjm1uipjh8XqfrKS2N+aukbvLIPi ZnAcqRlnk6qH2gpW4lPEcQ6yZRZhBTwapanbFoizAAAAANKQaaRGrty/1lpT N+RZ4hym9bmjEn6wAEzBJf1l79pe3v9PPWo+cg691TH8m9FuAz1EIRpswb2C 76MtWyH7W+lxV69rQcCDfLqjcIyi92Kzf+zRN5gdM1ofr/HqwGVKtVYg45Ep +4VGoto0dHMqvBIn9+Ors3dHu9rG7nz9+w6q04ksbkYmNp75PX+2Dg+ebzcS 1P7dZ82WX3/q+i60Gtdc88AxpGacTaoeaiuYpE8RxynIll+EFfFopE5bIM4C AAAASEiOkRoZm3GYG4i2jx9vFh0BqDtMYwou6Tqducdfcivi+11vx/vOwMtE cmvOfpZegTTgDMdUOUY57M87u+h9VXWnHGH++6ryGqyl7Cx53q8jzozd+1m7 E5D4duDypUIrpC+aTndkeJh45jLXpWc/iSlulngZuHWlvbba2D1su/XV1ONA yuOpr27ZLrXXpgZtLQOf+hZi2mymNzP207/0rGjz4EEINeNsUu1QW8GkfYo4 NkG2PCOsqEcjpdsCcVYwxFkAAAAoSvqRGvniwbUzBNFjn+N6/ld1mEZG3Wbq 6bfqlONp+uGXjP/ks/Z3jrjD2Qe/xPpCcOaHCvt9PDuI07XbgrwzvXwHa9Tk j6mxVg2nkfl34HKmcCvEQ05qmEawzfnZ3/RdoTuc4OJmqdGfc/CkoePa54Hn R76EZGJ99ouR09RUlo7f+qI7JZ6B8vbDjlPYEfh4UDPOJpERlYvETxHHJMiW bYQV92ikZFsgzgqHOAsAAFDpyET0u8nBU7W1p4duiVm5I/VIjf7FXFfTYZ/h LmOk5jAt+/TYZg1sUquf5r3W3t4R91NNr0Tjlnj5+Ma7hkzBMqJ+fHqb7wt5 D9ZSnXL9u7FGPdHxSVB7kwqEdODypmArbAZt9OQa/YArcvSyZb9rnfYQ3+5G SUQ8Q80G8825Isef+Pne2BmqjF/rxIMVbU2YSkTdg9XYEVgzSgq1asbZJDKi MpH6KeJYBNlyjbCiH42UawvEWREQZwEAACrd9j9tbdXMQ9xFEQtDpB2pkdG7 FwyErumjwDaPIYGawzSm/FfVsOfZrO9Pv2zv/PWd8OvKzoZmHmsN7zn+4b5a Ry8Pq7ri2+S3PEzIYC2Z3I16Lhl01W22fwp5NFefsA5c7pRpBXI37OhM96Yh 7xrLZWO+a9XXprb4X9V4xG2pa/1wep3rnhafsXfUpG5/hkF3pFxK0vGx6htu 6XT+qKEjPtZKC7VqxtkkMqIykfop4hgE2TKNsKU8GlEUaAvEWXEQZwEAACrc XtDWoGMIe4TLkHKkRi77Rpp1urp+nmt2VBym5ZZH0Qxvj//l7273lz5/MByN aesncL7Sz/zEmWsPXpDJ1wHrafrM6wc9z3k1lrDBWmqIEHJ01uiItx1h7QzX hHbg8qdEK7yaGm2h+1LT6NQay78z3zW9xcv2z+zItXsjdbUd1v+eW9zk6nF7 a9736S+z8YJnUTMNt/PYeqJL2GQeUE+JoVbNOJtERlQekj9FVHyQLc8IW+Kj UZrsbYE4KwriLAAAQKUjV74eMtA/GxMtF774cVf4O0g3UiO3g5NtqWPRwsSV bPmv1tGbd91u9xdOu3X0Yocx/Qu8sWf88+ByJeVF6TpRLYSuacgToc+L3A3d aEtPd+p18RqcCB2sJRPLHos+9Xze717SxtOz8A6sAfK3wqZvuKpYmoj5rlUL mafxJuJ6h8jMx+uwPl7n+POtqdH09D3ttB1V3EzYZB5QU4mhVs04m0RGVBbS P0VUeJAtxwgrwaNRhsxtgTgrCuIsAACAIsg3IUeXsc8R2lLj0/fj0X99c+cb //y6uAyeZCM1MuLur0u9T69roewnrhwq/5WViEWmnUNt9CNi0yWvFgYZPLBv TkouuHrpltd1O8I8CnoJHqwlk9vT4/Wpa3naGngt6sCVJaIDa4LMrZCdO0eY 3VGWCyequFmqLcxMRTcd0WALcq3oe+m1nKD/2DTu3xB4BqrYW/NerhYymQc0 HWrVjLNJZETlIMNTRGUH2fKLsNI8GmXJ2RaIs6IgzgIAACgjEXUPSLmHrLKk Gqntzzupmu96i4f/tAjVhmnZ8l9sv7bH/2VrpR8tTznCgosQlBsyEX042Zd6 lK5uvXZ/5cCD9O6S+4KeOk99s+3JG853EjFYS8aCtnZqX9SRe2xlr8qLmA6s DbK2QvruR/WiFvss23hqwz9uov5d0DyNvVl7i54ZqHXZgpy7ImwFbemljsJ2 xFDP2tSoCcXNBNJwqFUzziaREZWDDE8RFR1kyyzCSvdolCNfWyDOioM4CwAA oAwND9OSko3U0o+COv2gZ5n/w4dawzSm4FKBX9sX3X3pS5I3MNn/wXn2indN W5u6pp75vx1rraYe0Yc8S0eK4ZNr3qH0Oqz6637ONVBiBmvkm+BkM9UtLriX RFR0UJKoDqwNsrZCdqR2wuJ9yfLvzJgrr7jZesB+3cUx92Yn6vuox1hd2/oL m/dHHhs3Zw9Dp2uxh8r/a0pdlrdQ3EwgDYdaNeNsEhlRGcjxFFHJQbasIqyk j0Z5r5OtLRBnRUGcBQAAUIiGh2lJqUZqb57YmvWCa9GrNExjCi4V+LWdebYk BjwrzP+jihFpbMpo7pnfYL45F2N9eM3W6m8Y8r7gaDgxg7VsxyijhXLsxHVg rZCxFcgd/0QNvYzOGoix/POiq4eeuZKbp7E9Pd4wJPU0obyRmvB9wJVHLjg7 UdxMMA2HWjXjbBIZUenJ8hRRwUG2jCKs1I9G+eRqC8RZMRBnAQAAlKLhYVpS mpEa88s48Y4rImSNkTrDtGzBpQJbdmavSG5cshWynyvr4cZhe7G5m2Z6HxCi deLBSqGnYnI78FFTei0W58wNcYM1atUS9QkCNylQmNgOrBlytsKal9pPgvXb lFhwDxrTE0rG/enSauS2/3qD9NOE8kZqQou/qYAqblaVlyoBfjQcatWMs0lk RCUnz1NExQbZ8omwMjwaHSBbWyDOCoY4CwAAoBgND9OS0ozUtkP2TjHraNQZ pjHlv/SX2devMdXms+MScvnrSy2jPs0smc898+sar3qjO8X+dnfW3kYP7DiH KiIHa9RDqb7I1S4LYjuwZsjaCptBWxeh0zdZv89fnEbGnrpHOtv6ek/mz2wh l30j3SM+yddNxsOObmakxj6LppykRs0nTzmeamnKeVnQcKhVM84mkRGVnDxP ERUbZMskwsrzaHTwI2RrC8RZoRBnAQAAFKPwMI1MrARcEwOttYSOaOy+6vif hc1SHnskGKmRPzo7q6kVO6NTwvYAFjRMI7ejga8c45YeEzXQIIxdF8f/4guv cQ8dEtHAtzOr2WuULf9V8Ef8vc3HH7elrm7nZ3PbiXh0+oa5Q6F95yU5x2y1 fMN7jrnXXIed20SgaWK6WE8SOVijlwoWmUtTDkR34MzLJeqZcpK3FeJPbw+2 EMSZ0btPNxJkIhYN+f5oaW0fuh1c333uvdSk09WZb/07Tm7O37nS1u+a3xVy zqnLO+Nz2a8PD3SbaunBbK2px3I9dYk3cvXfXvvHW1QdqaVuy0/cVkuHsYq6 LQ/f+Ga+8JeJ+oaePrg/Nf0Wsad3xs8Z9S2DzhkeJd2OIQ2HWjXjbFKlUFuG yvwpolKDbJlEWJkejQ6SsS0QZxFnAQAAypSSwzT6N+7Gs2Ouf4QXlxafOPpS T2yGAWdYyJNJIrYaTVsIPfrSRu22Sf8S3nrl9oMn4cX0Py1vxHn/sppZzlPT 4/pJnuJmqaeg/3WkHgV1RxCcTzV7a76r9Z2OcPbhkHwxdf2soXHQEVwv/Lqd leAdq6XLSFQZu0duTD2Xf29U6c6RXPVbuw2NF53cz/y0+I+eicF2YxXR+Kuv o4W3AxA7WEtuTY1Sg6FCe6SWAdEdWNqeKSu5WyHxas5zY+wi/ZVpf3dk8k4g mtmRgoxHHjqvX+wwEqkhzOjfQ+x129iQW4sP/zzcXqfTVTWaf3v73qPQwvP0 jWvu4X/ZLe2tQ67Mu5E/uXpqmEt/zrlQdPKP9FK35VuDTR0jt/9B3T+fugar it2WqeJmLPtTr/nH25hTaLcFy3z6jSo0FWrLJ84mVQq15UULTxGVGmTLJMLK 9Gh0iKxtgTiLOAsAAFCOFBumkYklz9CJvhuz2ce5zH6mgnd4J4zt5/sKO2uq beX/++9e0EYP9rIljIQcCfcwjX4Kaqw6+kTMaOh3/VDwaXU35Ohsk2H1kLS0 cI6iB2vMUzRRrgWdxHZgLbRaVtm3wkFkYj14e6gtNRAmTJedj57Hj14m8vWc Y7DtV/9vhcwOQtMjZaV3fCBX7l9r67Y+XuN3W6YqEFYf3Z+amURIy9sgA3I0 FWrLJ84mEWo1cmoVGmSPRYTNKu+2OAhxFnEWAABAEkoN08gl76VTvc5w7gkw +4styy+hisnWWhf+kzH3MI1MRNyDBmaCQG1r3/AHVspvRqlfyZnnGn2/89k2 28vLfNZKmkbOUfRgjdlrQNRrFSCuA2uk1XLKvBXy7cXC7pFWep5Nx4ffFan2 Rt0Sz43715iFiulRsi2o5ECNXJkaa++wz+Q2meC4LW8GrGfYipvF5uw92Y6j gVZSwXEOtSXE2eQxD7XaObXKDLLHJMJmlXNb5EOcLfsmAgAA0Axlhmn03pdN HwW28x7wcr/YDrijagX2raDtNP1oKrySPOcwLT5j70g98xC1Hddc08/yyhlR yPjzwOfXOqiSR0TdyL21o0+++z84u8p21gpDK+cofrDG9BDFJxXwI6oDa6XV csq8FbLy9wL+4F7xzS/oLYxNw9/+lN7MgqbszBxyN+zorL96YMOU4rdlqgLh maPFzSiJiGcovb8xofBwUyOOc6gtIc4mj3eo1dCpVWaQPSYRNquc2yILcRZx FgAAQELKDNNeTY22HvzFk9z2X69PPxGcsAZ21BqLrPqGjSJ/beUYpqV/zD3R Y70fTRQ6O+a5Tn/BvXRo+RQ9sG2eDL4px1EaQzvnKH6wVtrsJm47Uf9tm9Vq /XDUYu7r6zYZTtrnBDzmiujA2mm1HLlbQRJkPHwrsxcw0T0Z3OC+QDv+8fo+ ywUjM1CrYm6SexuBv1rzOQMb0h/whn+8rdn2JG8rYmrw2Fz4tkxG3ebqgvMM ySV3PzXmlC6abAScB67CXwMb2h0CHudQW0KcTR7nUKupU6vMIHtMImxW+Yda CeNsUpFQizgLAABQ5hQZplGl6bsd4Xje/0o9JJgyTyfDPrafQpWRKeYjZhFN 0WEa/dBS3TrxsMjWBbS99ekPW4naXtfCwWkEL7xDJw//zzKjpXOUYLAm0+ak sbDHnhqqjVs60gWiiKPFo4oR3IG11Go5creCBMjNR9a29LQPfZP1e9bFkEcw zZeR3eE3e74MnhttC7I9PV7fcXB3hljQ1l74tkwVN6vqcS0WbPt09kBUrUhW 6XtsjoqrCUp3nENtCXE2eXxDrcZOrTKD7DGJsFnlHmoljbNJJUIt4iwAAEC5 U2CYRsf3U45w/g+e1ENCuhyOadwvw+wnnsgfnZ3VIp+Cig3TqAceouMPcyyl 3o8ew7JvpFl38Prszzu7qt8Xs8BQOZo6R/GDtWwx+/ynaBlkHkqr2IpHFSa4 A2uq1fIo1AqiUYXCWjPjCeIdV+QN90soB0dquZJi6duyrAMTcidgPXFogsqb J7bm9MpC47Bv9chLNgPW00X3IN5ddPUXOOzdqOeSQWcwdfdbxh3e0CuBJyb1 BYnP+xyTVJJkeLCv73y36cRJ2fe5PsahtpQ4mzy2oVZrp1aRQfbYRNissg61 EsfZpPyhVuE4mywt1JZ2NVSIqgAAAJJQYpgWC37xiS/Cvo6v/rp/W73ZGdmt G6XNiO48tp4wDnlf8Dsxcjd0o+3A093rgLWd98/fKtHWOUowWJP1O0Lu+Cdq RAxDhHZgbbVaHkVaQTS6UBiz4YGAHb0PjtTyXqhERjQe/uoPnvzZhHlL+Vi3 e6CKm50s2j/pwy44mWo/vvK9w0zv20ycGbv3s3IjtaNic25qGe21AVN6utEJ i/elNO9c0DEOtaXE2eRxDbWaO7WKDLLHJsJmlXGolTzOJhXIiCoeZ5MlhNrS roYKURUAAKCA7eCfehuz2xHKoKrx3b/Pl/TLH1OaSUfUj09zPvuVeLjF3lqm jOj6lPUXfw7yH35Sj0CNuYeHzQej9ecc4XIcpeVo6xzLfbAWDzu6qQ8RuvOI 0A6srVbLU8bDNGaqT0b9oOc53+tLXd4qthcqkBE9KreUr3p0auvIP1PFzaqK 909q7ore4i08liMTkc/N6dkxh3b/4SDTBdlZcJ6jj0ZU0TyE2jzF3le+jKhm b2jcNHdqFRlkj02EzSrfUCt9nE2qEWoViLNJsaFWkqtRWlQFAACQhALDtHf+ Gi6l6vumbzjzeNJ+sLoOuxIPt9hby5QRFWw7ZO+sGffTTw+JZY+lut+9VIZ1 zUqi6jmW+WCNjLjNBupDDq145X1wstSZpJRLzyzfYRo1UPMMZnex1Vs8y7w7 GVX1kfWFamREOZbykVtT16o7nUXL2636hls6nT8W+xOqSh49d0XXMjr1ivfB yXRBmIRhiz0kIvGIUJun2PvKlxEVrFxuaDJQ+9QqMsgemwibVbahVoY4m1Qh 1CoTZ5PiQq0kV6O0qAoAAKACZTbAPfCJqae+zOOJ6hu8lktGNK+UOrng6j3J e9WVhqh6jmU+WMskLogT1sfCflOXfbxWLj2zbIdpyeTemvdydrxF9LoifC8Q XWGMed3BKXzKZ0S5lvJRI/e3ihY3S5es7Dm4rQ/LB2XXcQtZ9ijPBdmbtbdQ Tcc6V0dqxzjUllFGtFxuaDJQ+9QqMsgemwibVa6hVo44m1Q81CoWZ5OiQq0U V0PRqAoAACAJxYdp5HPPYCZKN9ue8CyMLtvByLSzkmD7YccpaihB15VSt7aq bNQ8RwkGa6w/6EtjL2ijf8sXXnapxC1LeCiTnqlAK4i1NjXaxAzUBG2MlVs9 d2QKn/IZUWZJKTWJhm05HtXTTEWLm9Hjr7YboV2uHpKdJCNgawxZLgi54Oyk jsNgdvMeXot3jEOtjDsrCVYmNzQ5qHxqFRlkj02EzSrXUCtHnE0qHmoVjLNJ EaFWgquhbFQFAACQhNLDNHLJ3Z/5obebx6+ccmMqrherUl6ApMM0+t1SzyEb QVun+olimah4juIHa9mZCSZrgHvZqSillF0qoQPzVBY9U4FWEIv8ydVTwwy4 hOzZkVs9p9MfXimpeEY0O/AvNJBZ81qqixY3IyPu/pZ+XoOgnXnneXqxeU2X 8wd+A1s5Lki2UykTiY5zqC3tNoVQy5O6p1aZQfaYRNiscg21ssTZpNKhVtE4 mxQeaku/GgpHVQAAAEkoPEx7E3G9kym8JrRkoiyYijciHuOlHaZRo4l+19P7 4/Vn7aEKXWui4jmKH6ylvyCyPuC99FpOiB1zldCBeeLdauTmvxwX2k09H0+t sB4KmYh+/7n901v+JRFziAS3ArkdnfG5bFcGuk3UgLbW1GP5tf1OIBqX+qaT XVZJzcS46Fnh2YTkduCjzJQXossW3Dz0pkpnRHOV1livMF3crNgdmz6duqs+ fluW5JJ1fFdzy3FBNgPWNuoYTlgDOwpMZjnOoba025RKoVbOG5o81H2KqMwg W0YRVhEC20LbcTapdKhVNs4mBYfa0q+GwlEVAABAEsoO06hCSenHmkPLXvZj wS8+8UX4PkWlHsMCXznGh/rajQTzGPapyzcTFbriaCtoOy3wEYsh/TCt+ZfD 71R3OefVTxTLQ8VzFD9YozY+ENJD9uPRf37pmLD0pAYIVcYOi9X9ZCVBJsn4 6g+zIdb+uTU1Ss8aqBr2bSbWwr6/jF/sMhJEranXMn7r4eJW0S5dQgfmiW+r ZTMwhUZSr6ZGW8TmZwS1wu763F2ruZmo7Rx2fBP8aS1OlWiLr//0xGt7p8l8 KxyX9EE9f6TGv4Pldj3QN459t67uxJVkci9kb0mfQsHiZl3F6u/thp29zbwn ruSfvmncv8HjBTJcEGYDYup7J9mbFqHNUHvkfROR/xpqPDnsWxbyqtJuU+qE WllvaPJQ9ylCoSArPMImSwmy5RNhlcG/LSogziYVDrVKx9mk0FBb8tVQOqoC AABIQtFh2v68sys9beVwWZtV37Cp11V0f0UGGZt1Db3VMfyn1EPYevqX6EQs Gp7+YuJtQ23nyOezMQGPC9kfxIUvWJZ+mEY96vG8CJqk4jmKH6wx1at4vJaM R6bsFxqJatPQzanwSpzcj6/O3h3tahu7O337F9Q2t2ybbzIPydXt45/Z+k71 THzxeGGNem10+oa5QWc4P/n4VeHLVUIH5olvqzGTcArNDWDGpKLq7fNuBfL1 nPNiI0EYej5+EM2/IHux0N9G2uukL4+Wv5qP792A3A07OtN3wroRL8ueuTwH JonY4tOZhfXSx3K54SbrFabW+rUUvm7xiNtS33vrGZ/KZsw7Mps+EHWjD3gM nWQYt654BqgmUKzcmfZCLYvEgnvQKPwsSrtNqRNqZb2hyUPdpwj5g6y4CJss KciWT4RVBr+2qJA4m1Q41CoeZ5MCQ23JcVbpqAoAACAJJYdpuXV8h3eKpLYB 5bVIh4wFb/R0jHy5wPb780703getRIPZGeK/8oqpt98y7n/N+0U0OYZpArYa kU5iczEUDKV/4pf3g1Q8R7GDNeY5nBjwrBT/w9iMIzW20jWYHTMHcvKJZy5z XeZJvtN5ZMyTrW+W+owzY/d+zj/AzIonwyVPdLfQ54rvwDzxbLX8STisx5kZ kwrfPSrJuxVSwzTHe6lxMdE68eDQQldm6oLIAyiGmVTD/26Q6xKmX/mibF87 PgMTcjs42Za6nxKDLH+WmUVv6TEZCGOfzb9a/MtN7e5RZKS25rVUsX0K/Unx f/+5p/6Ca36b7V8L2/7e2kQv59NbPOxj1XyljNRYJ5XtU+sTqY9XrNyZxkIt G2pIbqB7idCzKOk2pUqolfaGpkyQVTHCJmUPsmIjbLLEIFsuEVYZfNqicuJs UuFQq0KcTQoKtfzjbJlEVQAAAEkoOUxb8gykn08O/Rq+t+Z9v/rQwI3dZtDW VT3kXSv0l+Saf+KUjjjvnOf9a36msE91p/NHYYMVGYZph0ev8iM3/3mjl54J o6tuHfs2mpDz41U6x+xHixms7fjHqfGBvsU+W2wJWTzkpAZrRN2QZ+nwNdzf 9F2hBwmsb8LMRDoyUqNk6vAXrYovugPzxK/VmPxAobkBpewexbMVEsveEfr+ cmrCf+QOsT/vepvK5RCtH06vS7v4kXwTnGxOD3N41c7KppVqOiYDBSa08xmY MAW79Ic2YkgNVR45qVn0vxntNqSzANzF85j8D9ugj9wJWE+wLw0mE9Fvx9q6 rj14IbzvbYXsb7GFA1YiM6KFJ5Xd+fr3HbybTBLaCrVHkbvPbvVmiuAJP4tS blNqhFoJb2jKBVkVI2xS5iArPsImSw2y5RFhFcLdFpUUZ5NKh1oV4mxSSKjl FWfLKaoCAABIQsFhWm7FyMFBBLV54pkR3zJ3BN2eHq83FD9UeiAj5NlVdN0b aYdp1JOS8sumsjtRptUJq1AklDrnSBM7WCMXnPS8hOJLwKhEPXUZ9QOuyNFf xrPjNbY3YZ6Q9YMeti8As9Ftj2ux0FWTu3ATr1bjyg+kvuNmeshQYFVjcXxa gVy7N1JHNwLLfrL0H8SjoZlnq5Lv+EC99aLnAr37hq7dFiy+P+9eLPhJB8GZ G+ExMMnOxsmfFkVuRXy/6+143xl4mUhuzdnP0ivYBpxhzl2DN/zjpgI3gXjY 0cNW3Gw/Hvk6NUxjSTLwk1vZzV2JUUxGlM+kMgXLnWkq1B5FlbDrHBl9r0Zc RrSU25QKoVbCG5qCQVbFCJuUNciWEGGTJQfZsoiwCuFsi8qKs0nFQ60KcTYp INRyX40yi6oAAACSUHCYln2uOPDMvLfmu1rf6QjzqI1DLznRN9ueFFtcRI+e hDyVx4K2djG5GkmHaeSiq0eFlSaxgNWky0OY3YUWF5VOpXOkiRys7a15L1PT Qw7PDciXq1VVxT57udAEA/oDMjORCgyI9mbtLfojX5lDxHZgfvi1GjMJp9Ax UGt1qX8XVXOPTytshx1v043QMOQVN4+iFGQi4h40UMvqDIPuSMHx1+560GGm /kyCYRoZdZupE87tm0PGf/JZ+ztH3OEYc5US6wvBmR9WeS3VJaN3L1DHdmR6 D5X8aT0yQN6JTn/SV9deyjAtb4kl5whXeEaU16QyJcudaSnUHrH9zPlu89h3 K4/TqVYRZ1HCbUqFUCvhDU25IKtmhE3KF2RLirBJCYJsOURYZXC2RYXF2aTy oVaFOJvkH2q5rkbZRVUAAABJKLmUj3mwzD15koklz1B9r32OcwoTJVOEp+59 z1KhdWrplTWCInK28LjA9bxSDtPoZ4maCb/SK00SK95hQ/5oTcZjUOscaSIH a5kf9IuuaGN2HNY1jU6tsfw78yzK9iapb99gse2MM+v1UuOPImuxxHZgXvi1 GscmI/RyMOrfxdUW49EK2VEt+xauCtiLzd1kRmFfR47MkCHjz/2O/2ikBnNt Q7eD66UO07KjjzZrYJP69Hmvtbd3xP1UyL5yhU6BMPT8zhdh9l+mkj/9rsVs kT0ysT57d+LtOtP7t4OvxA/TEi8f33iXufkQ9ePTReujCc2I8pxU1mkPCS/L JpKWQu1B1Hr5t09R43dm8qmIsyjhNqV8qJXyhqZYkFU1wiblC7KlRNikFEG2 DCKsQrjaotLibFKNUKtsnE0KCrXFr0YZRlUAAABJKLoBLrly/1praqTRPuEL R6OR0L1PB5o6Bfz6yUzMIEyX6bUqRz9g2TfSrNNfcC8V3ImGBbUYPxXn6wc9 zwU840g5TFv9/+zd708bV74/cP8B84SHPECKhCzxACmKLB6AUGQeECVCgqgV QiQRMlUjiPZGkK0Km1UglUpytXV1u0Zqne2utamVe+Puxsp34/bW7cabhqwg t3E3RgFl3QQq0+AEEiDIIBMMM1/PjMc2MGPPjOeXh/frYRLImZlz5nzOmXM+ JzRgK7QzWj2p+QnPhXZbVXXTGaf/8/cPKHqa8w76XSMld7D25qGroaJI8iWu TgqNEfYuMMjD3BOLUNql7Li72IlC8iqwKKKeWrFDRpJRTztzGbIOjxDxFJhl Ngy9KhhtOxkLuRwN9FCnzvHhn3yB0Hg4/H9jwb94nO+129K1pKZlwPOP2VUR BSw6TOOWRVUOBJ4+Cv3p1y1tH9yMvi750reTc/c8A230rBdR137B7Q/dnwx8 cPDgSOhZPD4XjYzd8nzoqLO2DXjuzCZKWC+V+uX28DHCetrzT/+FGkLEEFvS jKjoRWVVF8fWNKsuZdXV5tuMek+ccD6gb2QJM6IlvKY072oVfqFp1Mnq2sNS qnWyJfWwlDKdrN49rEaKPQvT9bOUTl2tVv0sJbWrLXA3jNmrAgAAKELTYRr9 3XPxod95pqmaYCIB8XELK7taIK2mdfgvkcX8T/Yb8eCFOsuhbt9PUuZDqeyX cYE0UwIUHKZtPHAeJGRtKFYUPaJRbUZU32uUM1jjMvkXnGDnDqIV2gu5a4HB 3h9mxnL8aZe4cbfgWC9LVgUWQ9RTE51zr3i6SJ4fFvMUsnkTZRzroTByPT55 x+9xDvR0tdvTV221t3f1DDg9/juT8XXRD6fYMC23CY5hPTHyxV/9/q9CE5Fo PFHyHdhOxqfvffPfbudQn+NEi439j4hqe2ff0CeewP2ZFYnv113YMRpxjDkn 4nXYeZT5/YVnGyTNiIpdVFbRF+T7a5WUV1ebtf7U23PUeZ/94ZJmRGW/prTu atV8oanXyeoeRajTyZbUw1JKdbL69rDaKP4sTNfPUrp2tSr3s5SMrrbA3TBm rwoAAKAIjYdppSIXvjlXk3dMQfVbw1/+azFFUqlXUzd+21TR2OudlL6Zhdyc vtLM9OWBBdExjnLDNMmnQalkNTRQo9buLZ2vUc5gLbPzVOCDeOb3Ms3HInw2 K5dIn/e7PFuFLAc6fD/zDfW4UJw45Z0pvFlPVgUWQdxT43LuCe06zCzyIXKn Bmw/9b/nGhN1Fq2Yp5AdNZfNe6yYIsO07LKopqGrt/x+/w1velR1ttXGruCw dYx8GVGqHswHeuyych3wIxOT3t5GwlLfH4gxJeSqbpHcFFJmRMUuKtP4dVRm XS2D2S9/9JMHq5mmWtqMqNzXlNZdrZovNNU6Wf2jCFU62dJ6WEqpTlbfHlYb xbta0/WzlGG6WoX7WUpmVyt8NwzaqwIAACii7IZpW4mof7CpKjcpaiGqW3r7 2g9Vt16UH5zQh/DWFNkfvYtiwzR2RUrjyMTrUn9Taeg0rfmHaSpJ72uUMVjL bJQ76gwXKHN2vCawv5LLu5W3vmU57L7sYxOaZQZrvLclG74SNYO3C0wGcv9c egUuTtxT43LuCbSFbBK23PG1ZMzX2TgaeSOipKKeQjYXXNH3GJmK3/9L0BCH WBRUeJgmtCwqlYiNe/ubmcFa/bkg71HAEtEPV7FTP/iPqSVnfZ3syqMC/5GE GVHRi8o0TndWdl0tRSWnPJ2Z/fKs0mZE5b6mNO5q1XyhqdbJ6t3DUip1sqX1 sJRynayOPaw2xHS1ZutnKaN0tYr2s5T8rlbwbhi1VwUAAFAEG97bRyZW9C6J BGQyNuY+U5e3VjQdMHdc+tvUsuxtJuR6+OP69K9pEDdRQyk4TGNWpBBnA4sq nGMqQToWOnMou+hFYXpfo+TBWmohQMf+Fd3+gsEuuTFx6QBd/ezOMM+RJVze rbwdeelxx6H+zDqTzNCb72fJpYlL9DFiFuu5QFxMrZZegYsT9dS4nHv8bYFc ve9sZucXsltQ38R8pxtdD8Uk4BP3FNL/zbNAb+2OVVt8/ygVv+PsOCI9q4b2 ihxwwGU241utkfyXq4kZmsjJUbAbPYHDn39PqvTNvzfadYg+EePincUdv29z 3n+GOa6jokGwVoifERW9qEzrdGdl19UmptynjnD75VmlzojKe01p29Wq+kJT rZPVu4elVOpkS+thKQU7Wd16WE2I62rN1s9SBulqletnqdK6WqG7YdheFQAA QCmpxMqazkmBpMmkJbfWnXrvdFP+tChR9+7vg09kHgFJzgfPpQPehsGQuExR Sg3T2IhdiemLktBLINrUGq3rfo1SB2ub0562Axaio/jRzJlVE3y5lVKz/l7m TIfc39KzIodyucjY7Zm5tUYcMjn1h1b65AA2AZQ4UitwUaKeWjYPW3rU8H5w aUewzCxUOHqiq5UZNnBhdvreHu/2REUsJBD/FChyc8bXbSUsNYNB3nXiqaUo fbhMa2mnsWum4DAte7Yy/2qNOX8XO2uVV9u3f/K+fX7X0xFXjN4q/vx7kqTH aN8N0wv7iZr+wPye83/JpWA/uyOv9vIEfxI4GTOiRRaV5aU727moTEVl1NXS r6C2I7n98qySZ0RlvaY07WrVfKGp18nq3sNSqnWyJfWwlJKdrD49rCbEdrUm 62cpY3S1SvWzVMldbdEZUQP2qgAAAPsP+Trq/20TcbDDGZxJbFHk2tzYlZ66 vMznlqqm4e/ieyIBMb86FfvSUWEhmkcjYlKzKzRMY1ek6J1anzlHUuRGZun0 v0Zpg7XNeOCc1VJRf2lcxGEkqxHXcSL9j50/5A+JycRj/2Bbc1fn4fz1LeRC aLA9bzzFLjvZtWWPi2mJYxLPhpZYgYsR9dSyh4ww6wdsvZ6J2GoqXZLEXOTb z/taOodvPk6sT7pbD1gsh4dCz1OpFz+Mdh+5dG+5eAElPYW0jcUHnzusFXT2 jAexBP0GSBdjYXb6/m3f7/tbGqWcP6u7QsM0LmGXwGqN7DbSvKOT6SUocsbd L0MDTQ6/cHZPUXJjNKvj6hT/ybnZUxsO9Qd5ZyfEz4iKXFSWl+5s16IySEtO uts68vfLsxSYEZXxmtKyq1XxhaZiJ6t/D0up18mW0sNSinayevSwWpDU1Zqp n6WM0dUq0s9SSnS1QncDvSoAAIBhkK+nPKetu3Lj0LHx09Bn+ZvoD7S6J2V9 m1yf8Z2xWqyd3mjx/T7KDNM253zdgh9eNUMvfjjarUBIxssA1yhlsEYufz9c V0E0fTQu6ugfiko+vt7bSBDHhm49XkmlRwfx6dAf+5pa+q9HljefMatKahzX /p0kV2dunm/u9s1s5tddpkoTRwdvRBaT22RyYfr2Zz11VdUtv/VFXkmPJqVU 4CLEPbVMvv2Kxs/uPRn70jXYwxz8Wmlr/dWw+/+FM6e+kqnlR4HR33Sl/6r6 SO/o92I+WEh+Cux/tBINeZ0Dp9mTDyptLSfZ82cjc6tlFZoXGKZlE3YJHPma nbTKVfa1afdJOenv6HOQO0pLbraVmLrqsNIPg2i6dHdR6CFwO1IFT3OWcrKS qEVl2dx9exeVAc9+eZYSM6KU5NeUll2tai80NTtZA/SwlJqdbCk9LKVsJ6t5 D6s+6V2tafpZyhBdrQL9LKVQVyt8N9CrAgAAGMLW8tiHdZaKuuHv+dZjbCVm vv29oyEzLVpxxj8vK2JNxQL99ZaKbu/TYpvglBmmvQwN2PIykukitRgabui8 9nRTpfDFANcofrBGLo4NN1mI9tHIioTbkXo1FbgyfPa4jUiPDt4dHL3JjZ3p nLf3vJfpw0mJuvahv07v/XBPrsfDN0cH322xVVqq7R19l7/4djKelLuPTnwF LkLMUyM3wk7mVOa9exJLI+8pmEeBYRqX2aziPf6tedwit2xlJxe+Odc4FJK8 Zb705Ga5MZql7kIwXrD5bz5yN7OHPr/ji+3NcCZlRrTURWX7HP9+eZZCM6IS X1PadbWqvdDU7WQN0MNSKneypfSwlKKdrKY9rPrQ1erd1SqRRFSprrbQ3UCv CgAAoL/tn7zHDxSZ6qS3sJ1kMofLPxKUPTqBaP00wr/rhKPIMI3dd6NnIikm lKr/lW9GtQMi9b9G8YO1jXjwQp3F1uufLbelDjliK3Bhop4al3OP6BU3VSWS GZ5CaYQHJtnMZp0+gdVmW6sPPmkmLETb51PrqWR8/IqjVdZhuCUnN+M2FVqs pz1Tr4sVIHfoA9/mTUkzoiUvKtvPBPbLsxSbEZX0mtKuq1XphaZyJ2uEHpba R52shj2s2sr+WZRM965WiSSiinW1BftZ9KoAAAB6YzPVCOypzJN66nPUWCQd ebrnv2Ky8dQUyUeqyDCN3oqSd0yq9sjYzXMD3uJBVAl0v0ZK5GBtK/Hojx0V u3MylCFxFbgwMU8tm3NPyWGdaZ5CKYQHJuTzsctvW+t6PZECmQs3FiM3nX3M eqr2wStjz2S9CZfGhuy5tGAykC8nnO3WurNiXy/JJ4FLvS22SqLuN9/sPvpZ 4owoVfKisn0qMeXurO2/8e84v1+CQ0w2uQPtnjD3ZwsrMhe0i35NadbVqvJC U7+TNUIPS+2rTlarHlZd5ngWJdK9qy25n6UU7GqL9bPoVQEAAHQlektWJvnP gZGJEjYjiYh4FRmmLd8ebD6/Z/hvLka4xuK1h0zF/L1Wm1lGByUP2cQ8tUzO PeKg84FCG/9M9hRkkz4BqDhy1nfitHdG1x2dOQa4IfsCd3qyBPxnbYij4cdH fV5omjBCD0vtt05Wkx5WRWZ6FqXQu2dBPwsAAACi0cl2xJ3LyQTmpX98T0e8 90a7WgdCC/x/zw7TdiphYSooi29oX+DxbD32HGsb9D820eigWAUu+fdzOfeU OxvChE9BHgxMdsENMQL2KSiza54j4jWlUVerwgvN5PZ5J6t2D6smsz0L2dCz 5MPdAAAAMLb18ZFawlJ7eWK9cAz3JuZ7hyBOKfPVNbWeENoSiBlRQ5M4WKNS a4mSUtsbVIEKXCou556SZ0OY9ClIhoHJLrghRqDGjCj7iwu+pjTqatV4oZkb OllVe1hVmfFZyIGeJR/uBgAAgMGtP/V2V1gOtI6GC3zXJlfHL9VXCZxHDwBK mQ/00Al7LY3uaaSMUhgGJrvghhiBajOihoAXGsB+g54lH+4GAACA4aV+uT18 jLAccly5v8iTu2mbOe3RZnVcnUJabwB1pRbHr5zr/8g/reaxXPsUBia74IYY wcas96R5Z0TxQgPYb9Cz5MPdAAAAKAepF+Fr51uqK6pbBq4E7k3NPmOOu41F w3/3uc61WBsdrlCsLDcxAQCwMDDZBTdEN2Ry5Tndyc5OT/xlqKmK3Rtd0e78 33B0jv7zVwnZx20DAOgJPUs+3A0AAIBysZ18+fiu79Phvq4WG300rIWwtZwe dHq+DseL5BgFADA8DEx2wQ3RDXtSoa3lRNdup9rtVjwUAChb6Fny4W4AAAAA AIDu2IFJfdfQ75wsb3hF7zLpYCXszVz/74a66jFSAwAA5aCrRT8LAAAAAACG kj3ChtPlj+tdJh3sPmQcIzUAAFAKulr0swAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAFCONuOBc1aL1d7e3TfiCU6/SuldIAD9JWdCnlGn 86ORgd6urlPt9oOH3Y+29C4UAAAA7GHGUBZxCAAAQPnaeuw5dfrDL/4RXdnc 83fbyXj45ui5toFvl3QoGey1nVz8weM4ZEkjjg3f/sUMkaRZoWVpIzHldzmd zos99iq6XVgO9gVf6F0mABANr0oABZVBgzJdKIs4BAAA9h8yEbnScWQgtKB3 QUqWCjurmQ68urXf5bsdjs7F02an7v3tyoVOG5H+i/pzwXlS72ICh0zFvnRU MI+s/uPwOp6MUaFlaWpj1nuSud0nvbMbehcGQHUIQgCAR3k0KFOGsohDAABg n9hciQZGWmvS0UaXf07vwpQsGzvxO+TwTCbMEaqYBvk82M98W7c0Do290rs0 IAAtS1MvQwM2pk24p7FXDUwOQQgACCiXBmXCUBZxCAAAmFsqsfjz1L1bng8d dQQbV5h8MELUvfv74BNDBE6wA7k+cbmWeUYVvYEFPCBjQsvS0tYjdyO93KRq aGxN77IAqANBCAAUUzYNynShLOIQAAAwLy6+IKrtXYMu37ees1WmGowced/l Gu7rbrdbmWts7xlwer76MZ7c1rtwIODNQ1cDs92IeMcXe6N3aYAPWpaGyFlv G90erA5/zATjKoBdEIQAgChl1KDMFcoiDgEAABMjkyvP4wsrXCzBjU1MMxjp 8cfLPq/5PrMx4z3FrBI6cNz7k8FiXGCgZWlnayn4HjOsavdEk3oXBkB5CEIA QJRyalBmCmURhwAAwD6CwQjojpz3d7NJ6RtGI2/wOdp40LK0sxp2NtNt4aAz vIG2AOaHIAQA+JVVgzJRKIs4BAAA9hEMRkB/uaT09pGJFb1LA3ugZWlm+7Hn SGW6JVQOhFb1LguABhCEAAC/8mpQpgllEYcAAMB+oupghEw8vjncPRB8ofhv 5qdU7BT3d+3J4l7tDGsVk6USc48nZ5fLJARURDYpPVEzdLdYADbn79qTar/A 49l6dOXt/3CPz5vmfmrdrKhyG5WIZMyKsRjoIZC8C/YR9YKQcn1V6hyBmJ7s EGu/xx5U+Ub1GpEUyhq4hiAOAQCA/US1wQiZit9xdtQ3DX8XT2nVo5phRpRc j4w2p0MRopfnQsj1ePhrz0hfh91K2LpcEy/NE6us/+CsZ7YbVfQFFgrfaYmj EmorMXXVUXOk3/fIMMeSyqZHs6LKblQikr4VYzsZ//Erz6V0Y662VNpa+5z+ h4up7bWxi8wpM0jeBfuFOkFIOb8qMSOqolJCrP0ce1DlHdVrRkIoSxmghiAO AQAAUGtGlFy8c7HpQE1/YF6HwcibZHzy2y8u93W12Oi419Zy+rzLdze6sin2 97DjkS5/XM3CCuCy91S8F1zayvvzdNxy39v/VuvAfw61W5lAnDjkimwJ/p6y szbtfosdYHT6ZiVUGrYGFxkubiUe/bGj4pDDM1nWAxN9mhWlXMsyHH0qBpmM jbnP1BFV9v6rY9HFJLmdfPno1tDx5uGb3/y+lW4E8pN3kamVpxOBPzsHek/R T4motr/t6PvgM9/30y+T5Vz3wbTUCELK+1WpZwRiesqFWPsp9qDKParXjtRQ VrcaolocgiAEAADKjCqDkcSkx3GIaP7kwaq2M3b0xbRecP22reld543xaDxB B6qp1djEF/32Kou1e1Tk5hQdxyNc9h5LmzcXS5FrsdB/dba+7w2/SFFrU+63 me0sPd5oQvsCqmd7xnucOafTcsQTFX9Op6hRSdrGfOD9GuLY8O1fyme1wQ66 NStKuZZlRFpXDPY5Wix7RkCppz5HDbvsSGbyrtSL8LXzLdVVtvYB17Wvxx6E 0x6MfX3Nda6lOj0uaez5LDSbKM+vKG8m3Ud/HVgsz8JDQYoHIWX/qsSMqHoU DLH2TexBmSCq15D0UFaHGqJWHIIgBAAAypDyM6Lk87sXjxFEh3tK8/k6+mII q8MTWd714ZhMxfy91nR3fOzi3efFv1HqNx4h434HHUpVHvE8ZiMpMvlzyNnd NuiPZqOI1PJsZPIn831szQ5VLC2uiOjKI3ZUQi9xGBtuKteZZB2bFaVcyzIm LStGctpLD0MIvpU226uh80wDkJO8Kz3A8fYetrZe/DL8bM+rgUwtP7oxeJRe rdH6u1B8o5Qr0MV21HMEh96alMJBiAlelZgRVY2SIdY+iT0oU0T1WpIRympc Q9SJQxCEAACATshU/PvR3iPV1Uf7r8nZc6H0jCjzrdNyoNU9qUP2me1Y8CNv mP8TNreTpWYwWDS3j27jkWwo0uwMr9K7aWaCzs7OQf/jct9vVVzqxYMr71oz mbmI2pHxdbE/KHpUkm4ty98P11UQrZ9Gyuwjta7NilKuZRmVVhVjNeJiFo9U 9Phie59ktvm3uafFVv+MVCzQ32B1XJ0qUP7UL7eHj9E7Dpsu3V0sryeVivt7 q3DorUEZKggxxasSM6JqUTTE2hexB2WSqF4zckNZDWuIOnEIghAAANDL+o+u 5iqu7z0rYz2/sjOiZPzWGSthqf84vG64KbytaXcjkz2qwfXwTeF/qtt4hMtw VTkQePoo9Kdft7R9cDP62nC3UnFsmGQ97fmn/0INs92o8nxoVdzOeSmjEora jAfOWS1Vza4fJU456cnIzYqS1LKMS4OKQW5GPW1s7e4PLvE8Sa75V10cW5P0 oJMxf19N00fjy8Xe/8lJd+uBdFdh7fXHNM6vWJKXoYHGNu+TMirxPmKkIMQk r0rMiKpF0RBrH8QelLHblOFij1JCWY1qiEpxCIIQAADQzVbEdcjCkdDz5ig5 I0ouhAYbLJaabulbPrWwFOxjToC0NIxG3hQsoF7jkdxeG4b1xMgXf/X7vwpN RDLZk0yJjSEzW59eh51HmYuv7Q08E1WLpI1K0lHntKftgIU44YmWybjE4M2K ktKyjEz1ivFqbIgZvVnqh8aWeP6ea/4VfUG+vxZELt0erKludf7v1NxqsUaw tRR8n3nF2M4E5srmUW08cB48LnndLGjCQEGIaV6VmBFVibIhluljD8rwbcpQ sUeJoSylTQ1RJQ5BEAIAADoiF7/ptzJf+4jGMzeeyDh2UbkZUXI9MtqcLosh PyXTuEu1WLp9cwVvlU7jkWyGq6ahq7f8fv8Nr9s5dLbVxn7OtXWMfBkxztYg ZTB5hxoJS31/IMZcGrk5faWZXW3U6RMVgksdlVCphQAdRFd0++cNWU93Mnyz oqS0LENTuWKshgYqC80acc2/SuI6hDcx3ztEZoVeq/PBcpF/vjY2xC7oM3KN 2onO3yV53SxoxDBBiIlelZgRVYfCIZbJYw+qDNqUYWIPBUJZmvo1RJU4BEEI AADoazsZ/9e3N7+dmFmWN1em3PKMmL+7Jv17On2zevQZZGox8pXn0ys3Hy4K bcTIxU52Z7hg9nJ9xiO7MlxlpRKxcW9/MxNv1J8LlkkoLQL/YZfkrK+TfU7t nqiItFWSRyUUtT4+Upu+nUed4deyCq4hnZsVpXDLMjg1K0Z2KR3h8Md5bqTc 5F3pGuLgkpZZiEOuSLFNay+CfQfZhzUysSLlCvSytRR8r0riulnQkDGCEDO9 KjEjqgqlQyxzxx6U7m2qbGIPZUJZlso1RJU4BEEIAACUOaVmRLdnvHSq7oq+ gC7LGMlngd5apoc92Bd8wf9vcrHTUVdkrdBv02c8ks1wxffpNvkvVxMTpxzx RCXvSjQgMhW/N9qVDs2qmi7eWdwRmG3O+88wG6HE5YaSMSqhEhFXC33O5uBt vjRKBqJzs6KUbllGp17FSMX9Pcwtqmh0P+IbL6xMjNjpv5e6DmHrkbuxghuL HHdFiib+X4u42N18Us4v09PS2JAd+btMTJEgxFSvSsyIqkLpEMvUsQele5sq j9hDuVA2Q9Uaok4cgiAEAADKnEIzomwnbqnoDSzo0mfQHz7ZTRsHOnw/8xeh 2G6RHF3GI1z2HoFPt3P+LvZB5YXf2z953z4fXCq7o0vTMeR3w01VdNTXH5jf 8/WfXAr2s0+q9vJE0T01ckYl5JvIaANdX8/45428y1vvZkUp3bKMTr2KkR2J CAzuuDFFXvKu5bD7sq/42pKNeOjjDltVddOvXMEnIk5MzpbEYml0Txv/5UHf mbeQv8vElAhCzPWqxIyoGhQPscwce1D6t6kyiD0UDWW5H1KzhqgUhyAIAQCA 8qbMjOibh66GCmkpxBXG7sKorHN8Or7IH57SeWCYj5LFv73qMR7hsvcIfLrl AhWiJ7DI/Rl9ReW3ZDQXQ1odV6cSvMFQNvf7of7g8yI1Ss6oJFtjddxiKYL+ zYpSuGUZn1oVg9yYuHSAvkv8m/vIOV8HszIjtw5hfXzkUL8Ki3PyBiOyTgbX GDnrbUP+LlNTIAgx2asSM6IqUD7EMnHsQRmhTRk89lA6lM1SsYYYJA5BEAIA AMaixIwo902TeMcXE701RGFbS6GhRr6vtJy1afdb9IVaz/hmin3p02E8ks3e I3D+Y/Y55aLv9BWdNHpQvdtWYuqqgzmGg2i6dFcgyqXz+Yc/rmfCpeLrE+SN SuhdMPT/ICXpvcaM0KwohVtWGVCtYmROxeVr4KlZf6+NXTAxMsFmDyPXJy4f UmVxTt5gRFJ+M33Q+bsq8+YowHxKDkJM96rEjKjyVAixTBt7UMZoU0aOPVQI ZXPUrCGGiEMQhAAAgLEoMSO6Pu1u03/7A/n87sXjzcPfxJJ7v+hvLI5/0poO Xohjw7d/KR696jAe4TJcVbzHv0WLS12ejb7JhW/ONQ6FymnLfC6GtNRdCMY3 Cv3bzUfuZmb4UjQglzkqoYOcigI3XH/GaFaUoi2rDKhXMVYjruOEpaLe+UP+ 4I1MPPYPtjV3dR7OX7lBLoQG2wdDauxWTEY97dxgxPgnYaXHhoePeB6X2UJ4 kKLkIMR0r0rMiCpPhRDLtLEHZZQ2ZdDYQ51QNu/3q1lDjBCHIAgBAIASkanF sO9ST1M1YSHq2i94/jG7WkpvpcCMKPnE21ZFb7QYGpOc2Zxcj4e/9oz0ddjp WJSwHT878kUoulQ8vEnFw99Nvtx15an58dHumrp3Prr+93A0FqfFouG/Xx85 YbUQ1a0f3Iy+FnWvJI1HFLmEbIYrwY/CW6sPPmlOP/O2z6fWU8n4+BVHq0bn ziv1jLLZ162nPVNFH0QuKX39pfFCVVzmqCS730pgxYjuSmlWlFFblrKlUoeK FSP5+HpvI0EcG7r1eCVFphLx6dAf+5pa+q9HljefBc/VWyw1jmv/TpKrMzfP N3f7ZjYlXnD69k6GfO7LAz3t9mpmvFZt7+i7nL7FK7llNq8nRhp1HYyku7CH fmdfq62S7sIGrnw7I9y+6ZfG0Z0HQzO/IvH45shJW0Vjr3dSRNYyUJbBghDz vSq1j0AMS6mrUyPEMmvsQRmpTSkVeyhYKpVC2Tzq1hBV4xAEIQAAoDrm02Td 28O+f0bn5uceerrSHa21xxuV0qGkEi/jrNnp+1+56EMSmQ+YTeev330YnWP/ amGF55usgMwuDOHk5/zSXdL/edL9smUPomgXs7UUulDb5ony9NSbKzPj/tHz dG9M/65KW8u7A84/ByaerghuvdlD7HhEuUsgn49dftta1+uJLAv/0MZi5Kaz 77iNqLS1D14Ze6b+Z3FFnxH5csLZbq076y0eQzKSTwKXeltslUTdb76JC2eY lzsqodbGhuiQX+jMTb3JbFaUUVuWSqVSgaoVI/VqKnBl+CzTilveHRy9GY5n Tlwgk7F73stnW21EOkQf+us0f14yAeTa3L0/D7TUMFnXfnf99v3p2WfsS37q 3t/cfS1N/b7MLyR/9nUc4G79Se9swfUtykt3Ydd661sHr/+T7mse+3orC3Vh dP4uniMzliZGmrlLaHFFDL7CxGSMF4SY7VWpRwRiRMqGHyqEWGaNPSijtanS o/pyCGXzqV1D1IhDEIQAAIAWyNR8oP9g15VH2V44czimtLMg08E2YWs51SXs bXt1k/jPdvSBkHSnkM08I+qH6C6prnJveMI51O37STB02Jz2tDWrs6WUIWo8 YuxLUECZXKDsUQkXlRGGTBAkq1lRRn1qxiyVAGNXjD3I1HLken8zvX3Q/p73 /rPk3ttEvp7y9Db/5u+LZHaoxdD8UANy8c7F5nbngyVxXRid+q9q78HQ3JpC Rt4ZEKA6IwYh5npVMhCBlMXVmTT2oMzWpoxZqoIMX0N2QhCCIAQAQCvkfPDc kU5vNNdxZz+08XzA0kw2Rbb4L31kKubvtXJfa6ubugY+dNL+c4j+ZMl1MhXd 3qe8ydLVX9tQfDxi+EsoVflcoOxRCZe+XtbPqk1Gs6KM+tSMWaoCjFwxdtlK RP2DTcxqktaPvi+Q0IzuPk6OTCxx2/HYgaArouVYhFwcG25pdU/mzlEo0oWt hp3H+PJ3JabcHdmKUwZPyTSMGISY6VXJ2e8RSJlcnTljD8pcbcqYpSrK4DUk H4KQcnhKAAAmwRxZWP9xeD2vX859aOvxx/V6H69FXEeZiEJ0DvDkpLs13QER 1a0XfeO7t72QyWfhLy+20vlniJrB20t7w5Dtn7zHVf5iW3Q8YvxLKFEZXaD8 UQlXdTX/SC2C9GZFGfWpGbNUhRi5YuTLP+72w9uFz3dgzg62D3z3M3tkA0Pb 9SfkZtTTVnthx0klhbswOvXfsb35u2ipWKCfPcKX0HhEtY8ZMwgx0asya59H IOVydeaMPShTtSljlqo4g9eQLAQhCEIAALT0amyoaeeHKnJ94nIt+yI/6Axv 6BXbvgwN2KR8JGO/rB3scN6JC6YA4jrZijP++V17WZhBWcNo5I2a11tkPFIO l1CSsrpA+aMSeQshxNuIT1x3OZ3Oj4b6HF1d7XbrYfeU2LBJarOijPrUjFmq wtSuGIogk9FrmeNuifbRyErxG7QxMVLb1XfGxo1FKrkOZWsl/D/OfN7wivIF XpkYaW5wPcw7bZceHzUId2Fk3O+oElx5SM77u+lhVQlnAvKUMezdcSP+J7yC gU6WMYMQ07wq8+zrCKR8rs6csQdlojZlzFKJsd+CEEqTOMTwQQgiEACAwug8 5+2eaDLvj9LvdnumUxkI8X3B0kYmB4vIvQ9MD1LVdOlegez2jK3l8Y+aiOpO 3+zOb7rPg/2Hd/+h4gqOR8rjEkpQZheowKhEpcMuE9GAOz0mGelrZRMOEXuT EQmS1qwooz41Y5aqGLUrhgLI1fvOZnZlQ0W98wfe/X57cJUqI3uObfZ6OSIP uZZkfXyktnXnAQSJiKtFuAuj83dVdvjmBJ89O2yXmumuIPbNn6Pj5gvjMWgQ YpJX5Q77OAIpp6szZ+xBmaZNGbNU4uy3IITSIg4xfhCCCAQAoBDmtXzEE83/ TkW/29ksJvaRCRVW9IhEPvG2VYnuvOjeh2j9wxRP3u29v3khNNhg2XnV2zPe 41XvS9jII0+h8UiZXIJ85XaB8kcl2eTo+VGZCjJBTiVfMiIB0poVZdSnZsxS FadRxZCNzoXVlAmZiXd8sTfFf4S2czCSy5rFjkSKxt6b8cA5q8Vqb+/uG/EE p19JaXDkRth5cNcajDcPXQ3s5jnbQOjlnh9ZDTuPFjxpd3PO163akEHkPRGQ nAl5RukZiYHerq5T7faDhw17qLRYRg1CTPKq3Gn/RiBldXWmjD0o07QpY5ZK rH0WhFCl9rkiSqx5EFJKyIQIBABgr+1E5ManoRj/brXayxPr+n3tz564JyZ2 2njgPGjrDz4XV1xyc/pK846u9nXY2SL6W2QJCoxHyuUSZCu7C1RgVKLoxtvd yI2JSwekRraSmhVl1KdmzFKJoEnFkI3JhcXl9JdyxveOwUjeD4qPvbeTiz94 HMwpxMSx4du/iG5zZDL69R8C+esL83ar8Z5oQOfvOlywyTDFViuBV2njkcSU n96zerHHzi6hOdgXfKF0CTVm1CDEHK/KXfZtBFJeV2fK2IMyS5syZqlE22dB CKXBjKgeQYjskAkRCAAYA/lywtWVO4hQQdVHz/mfbBYvQWFcnh8LUTsyXrTL LrHIhX61pNhpecz5qz9HxA+d6P6oLvcmX707VHvSE1U/QikwHimXS5Ct7C7Q 6KOSZNTTTv8nkg4pkDokMeZTM2apRDD0YIRdzZJR2xt4Jvb+0re3ku8HJcXe ZCr2pYNdVbHrkB1pcrvVqobG1vb+N3G/o7Jwk6GXZ1T0BdVZQKPI6Gxj1nuS uURZueAQhOQR/L3meFXusm8jkPK6OlPGHpRZ2pQxSyXaPgtCKPVnRPfSJgiR FzIZIAIBAKAMPxhZDQ1kepWWnUlR+JVY5EK/WmrsJM36tLvtwMgE8ypPLQT6 qrr98xosRSl60qsEOl2CdvS+QIOPSsiY32Gl/5NdG07FlUydZkXp/9T4GaVU Rh6MkAuB3uxBrRV9gQXR9Z7OA8n7gxJjbzq7GrPmwdI4NPZKxiXQiuxWI9fG Lla1eQtmcHsZGmhs8z5Rp4IoMh7h5gwb3dMyFrIiCMkj+HtN+apEBCKWrldn ytiDMmmbKs5YpdpnQQilw4yoZkGInJDJABEIAIDR0Z11plfR/cBQdWOnvLzW 5Kyv87DoLTClUXI8otMlaEfvCzT4qCQzb0AcdD6Q8I1W9SGJ3k/N2KUy8GBk ayn4XnZIQXT6YmJvEJNEi/u5nYv6pMbeue3SUrbL7fgNRXar0YPTtwrm72KT WHbsPOhHQUqMR7YeuRvpZ8W7/qTMGSYIMeWrEhGIWLpenSljD8qkbarcSrXP ghBK8xlRLYMQGSETIhAAgGLIZ4HezMu1wfVQZD5r1QojNQe7NNtRzxE64GSS /GiWrEzJ8YhOl6AhnS9QgVEJ7wdiZWxFXMy3YYlpfFRuVpTuT02AQUqlQcWQ a2lsqJ4bi0g6LyO3QWzPoj7psXd2cYWEIxXycds56XUifDvO6PpvL5i/ixli NF+Z3lSphigwHiFnvW30JVodftFDxnJhnCDElK9KRCCi6Xl1pow9KJO2KREM Vap9FoRQms+IahuESA6ZEIEAABRBzvu7M9/n2lVbISMelyhbpRMu6KFBulNY ibjatBt5KToe0ecStKTvBcoflWS/dNud4eK7PmWRncZH5WZF6f3UhEgoVSox 93hydlmF6FmDiiEX+bOv4wA3ppByXkZug5ilYvdmQBmx98aM9xSzn/vAce9P knZk0rIjbqFYfSnYV1UwfxcZ83c3dqsY55c+HsnWIiN00wozUhBixlclIhDx dLw6c8YelDnblBgGKtV+C0IorWdEtQ5CpIZMiEAAAAp7E/O9k0ktJjU7kCq4 RCWyPpQXR8ec3b7Hd0Zq33ZPa7XwX9nxiC6XoCV9L1D+qIQNOVQNGF4E+w7K Glmo3KwovZ+aELGlItcjo83p9yDRyxMxkuvx8Neekb4Ou5WwdbkmXkqcN5NY MdL/3WTI5zrf026nh5HV9o6+D9w3w/GkCm/n7H5GerHB2cCiyFpFroc/zqzq II67Iqu7fqmM2Ds3JyZj03QumRjvHWbydxXq3ZjLqbkQknRciDSlj0dWw85m +hIPOsMbJlugYaggxIyvSv0iEHL1X54zLfaOT8YWee8mmYr/8KX7s2sT85od f1KEjh2ZOWMPypxtSgwDlUp6DdEsDlElCKG0nhHVPAiRGDIhAgEAKIjOb8P2 Rrt2K2wnIjc+DcVK6PzIVOxv/XWHB0ILUn5qLeI6KrFnlILufBt+PfBO1XHv jGYjL+XHI5pfgpb0vUD5oxI6kb7oqrudjP/4ledSX0c62qy0tfY5/Q8XUyRF Jl/+9Gg6LrC9am1siPkKXTkQWk0tRUNfjJw9biOIantn38i1e3NrwmGKys2K 0vupCRFbKi7Y232Kbvox3ff2v9U68J9D7VY2+JY+IhRfMTaXp245HQ1EdduA 59vIz0tJOgVZcvnnh0HXO/WOa9Gk0oFo/mBEfJ3PJfavqBv+flmRtRm532kf mViR8IMUtTXtbmQvQTB/1/FCue82o97OBjUXiFIKjEe4Q3Xptq9oyfRnrCDE jK9K3SKQ7Fy30DzMq7GhRmPMhHN07Mg0ij0oOeGH/NiDMmebEsNApZJUQ7SN Q1QJQiiNZ0R1CEKkhUyIQAAACtme8R5nF2fszkbyMjRg7/QVPBavsNSsv9cm PY939lOmjL05Yn492/lWl3RpUik/HtH8ErSk7wXKH5Vw2ZCK/SyZjI25z9QR Vfb+q2PRxSS5nXz56NbQ8ebhW+PXf0XPuwmc5MgFXVUtI5+7uo50XLrxYHaJ /vH4+BXHIYv11OiDVwJ3TOVmRen91ISILBUX7FnyTwIl12Kh/+psfd8bfpGi 1qbcb9NvSmuPNyp105m4ikG+nvKerSMIa8cnd+P5z2grMf2XwZYaVTKA5W9Y E/uCIjejnja216gZDPIcCysv9s4eFkDUDN2VFHLnRlS8d5jeztYofOuSMX9f bee1p2plEM2UsdTxyGKgh6l/5kvhZbAgxIyvSt0iEG5hodCyIm6ezUBHdejY kakfe1Byw48SYg/KnG1KDAOVSnQN0T4OUSUIoUT3ucqkS9IjCJEUMiECAQAo ILdbbfcBf/SxkqVswKHf8MyaKsknG3L52xtHJl7L/d+Fsf2WzPM75FJjPKLx JWT+69W56cg0+8lYxf9FvwukShiVcHEd0RNYLPCvEpOe9AjCcsjhmUzk38bU U5+jJhMW5s/L5WQTeaX/j2PDt3/JL2BmB431XCC+yfv/qtusKL2fmhBxpSLj fgf9HswtUSOTP4ec3W2D/miCGxymlmcjkz+9lF73xVSM9DDEczr9wiSaLt3d tb00O1sr40iL4rilI+JfULmKav9NKM53N+TG3us/OOuZbWAVfQH+MQ4/+gCL AoORpWBfJV8yBBqZ/PefO2rP+GbW+f4279+VuvlX/D3hXb61Te+5o6/QfCm8 DBeEmPBVqVcEkr+wkO/vuXk2cW8204cfKscelPzwo6TYgzJlmxLDOKUSWUP0 iUPUCEIocX2uYumSNAhCeEgImRCBAAAUMB/oYbuVXR8xt5aC71ftGp5IQG4+ vdaZyakieUaUy8dS1eZ9onzky4Qou0dealNhPKL1JdBzAj9e6WTWe1iqmoa/ i6fUO4REnwvM/9/ljEo2JkbokLOi0f1IcFdSctpLj0eImv7A/O4buL0aOs9E nEK/gVtvs2dIQsvkdRfOsq5qs6L0fmpCRJUqe+ebneFVei3ETNDZ2Tnof5xQ 5FqKV4zUQnCQeREfuTSxtPv/3J7xnaDndYimj8aXFd9ySL6JjDawr2pR6aGy s0wHWkfDAvdH9mqEtWn3W3z9UdGfy0y88I1ryI2w8yD/nlwyFf9uuPn4xbvP i/1fpW/+FXVPhJdv3fzm962in1F5MV4QYr5XpU4RCDfhKbSsSMJhPfsi/FA1 9qBKCT9Kiz0oM7YpMYxTKlE1RK84RI0ghBLX5yqXLkn1IIT/fxUdMiECAQAQ llvovzMipc+8OzYYWpD54qMzorQNDp0+IG9GVNV0JXS3pfkeFmXHI7pcQu5k Q1aNimn39LlAjtxRCTnrZb5zF9hStBpxMdtDK3p8sb3zKtkhicBv4CKuit4A X8vkjnPt8M3x3ji1swDp+9SEiCoVFxVXDgSePgr96dctbR/cjL5W6kKKVgxy 6fZgDVMveM5LZf5BMj49+fSlGicr0b99LnCGOfbC0uKKFE4IsJWIfNpKFJ2U kL8/K7eBWlpewZWJEbvAeykZ9XTw5e/aTsa+SY9EeAb4PErf/Fv8nohZvmXC FF4GDELM96rUJwIpNuGZfsQOZrZBIEtM/q/aF+GHirEHVVL4UWLsQZmxTYlh mFKJqSF6xiHKByGUqDhEyXRJagchAlcgNmRCBAIAICzbHeyIwbaWQhdq2zxR mXnV1p96320Y/n7xATvQkT4jSiUirhZxcbJk5JyvQ/tl/4qOR/S5BCoRdtot eQiHX2izSol0ukCOzFHJ1lLwPXoRxO5vzVm5xEeV/cE9H+Ap4a/V3H+QWW8j EGBvPXI3Vuxpy/lUbFaU7k9NgKhS5baDMawnRr74q9//VWgiEo0nSk7KX7Ri rEc9J5h6cag/KG+dQInIVMzfa6V3jll7/THBIcbmcsTjoP+ZEiMRIblnUXRk tAMZv3WGLtueFSz0rEvTnmHgRnz8066aFrEjEQU2/xa7J6KWb5kxhZcRgxDT vSr1iUC47whCt5HOilD4O0LW/gg/1Io9qBLDj5JjD8qEbUoEw5RKTA3RNw5R PAihRM0BKpouSd0gRIjYkAkRCABAAVyUkotkyNR8oL+20z0l9fSQzI9vPr12 4gjdHXBLP2TMiGbzRSuehp15sR+4NKHxsn8lxyM6XQKVWgwOWPPHJGqVQa8L 5MgclWQ+EAvvkOL21Vrqh8aWeP6eC2wEfkM6nukttG83systHc8K7e1Rr1lR +j81fqJKlY2Km4au3vL7/Te8bufQ2VYbO3y0dYx8GZGS1HK3YhUjO5zkP6JU G1uJqavcQOOb2J5FIGTy2YTnP+ro8Upz//XIcskjEYGfe/HgyrvcS4aoHRmX klcrewmEteO/QjHu7GN61qXbN5dNcEemlh/dunSixv7+9cgrkeVTYvNv4Xsi cvlWm3taeqoxozNgEGK6V6UuEUiRhdPMTtIi3xGy9kf4oVbsQZUWfpQee1Am bFPFGadUImqI/nGIskEIJSIOUTxdkopBCD8JIRMiEACAQsjFOxeb0mFry6VQ NB6PTd/+rKe+Tf5Hq82o98QJ5wP6E3QJM6IUtT4+Upt+Pdf2Bp4pGky8DA3Y Cm3tUYmS4xGdLiEtNT/hudBuq6puOuP0f/7+gRJOLSxEvwtkyRuVvHnoaqgo lMyHWw8jFHDu/Vq9E3NbLEL7drOjy4KZ89VqVpT+T42fmFLtioqzUonYuLe/ mRkJ1p8L8m4jE6FYxWCWkTB0vnvbyVjI5Wigo/k6x4d/8gVC4+Hw/40F/+Jx vtduS9+hmpYBzz9mV0WUUdaMaOqX28PHCOtpzz/9F2oIWUOz7eTcPc9AG93v EHXtF9z+0P3JwAcHD46EnsXjc9HI2C3Ph446a9uA585sQvxCJUU2/xa4J6KX b1VdHFszVgNThBGDEJO9KvWIQIotnE5GPe1MjyXu3Jn9EH6oFHtQJYYfSsQe lOnaVHGGKZWIGmKMOETBIIQSEYeokS5JpSCEj7SQCREIAEBhZGrxod95pqma YF7g4rubvdafenuOOu+zP1/SjCj3TVMgbZFcGw+cBwkRW7SUpuB4RK9L2IV+ uuoMSXS/QDmjEi4zfMUZ/3zho96FtvsJzcvl/zwzYuHft8uNLgUnVFnqNCvK AE+Nl6hSZaNivmAy+S9XE/NYpKW1zCpeMbJpFGWcp6E8cj0+ecfvcQ70dLXb rRaL1d7e1TPg9PjvTMbXRVcZ6TOibGxPHGPOF3gddh5lbom8sfN2Mj5975v/ djuH+hwnWmzsRABRbe/sG/rEE7g/syJ4ILIARTb/FrgnYpdvVfQF+f7aBAwY hJjrValDBCL6O4KMV6tZww91Yg+qxPBDmdiDMlubKsoopRJVQwwUhygThFDF 4xAV0yUpHoTsITlkQgQCAKANZqva0U8erGYGjaXNiJKb01eamVdwoJQdqzsx ixZUO+yyAOXGI7pdwi6roYEaVXYD6X+BckYlmY2fAh9YKS4asQif9cllZRf6 yMtWIcuBDt/PfAMaLrQjTnlnCmxJU6VZUUZ4anxElSq7W5B/qMidGZFfH7Z/ 8r59XjgfV76iFSM7VpX3njQmaTOiZGLS29tIWOr7AzHmB7haWmQfqBjzgR67 iD25BSmz+Vf4nohdvmW49mU8CgYh5npV6hCBcN8RhHZSZ6o9kTtwZPup/z3X mJhjrM0afqgSe1Clhh/KxB6U2dpUMYYplZgash/jEJXTJWUpEYTsJCtkQgQC AKCJ5JSnM7NVjVXajCh71GxNka1A0rCLFhpHJl4r8/vEU2w8ot8l7LQd9RzJ P5xRMQa4QBmjksx2sKPOsFCxs0MSgWkTLolT3rzccth92ZdN25UZlfDemWw4 RNQM3i4Q9DL/VvFmRRniqfEQVSou2BMYKmafS95+QLryi1zXVLxiZJOwFX1P kqn4/b8E9T+kQQQJM6L8x5uSs75OdsVKacdS0JOZpR5sodDmX8F7Inr5FlJ4 FaNsEGKmV6X2EQj3HUHgP81mlcwdfk3GfJ2No5E3xW+2acMPVWIPqtTwQ6nY gzJXmyrCMKUSVUP2YRyicrqkLCWCkHxyQyZEIAAAGkhMuU8d4baqsUqdEU3H zOGP69O/oEFUkCwCs2iBOBtYVOGoy8IUG4/odwk7pPvWM4eySzuUZIALlDwq SS0E6FiyotsvHDyRGxOXDtDNwe4M8xwXwiVxytt3lo5jD/XnllJkBph8P04u TVw6Qv+09VwgXnQzjuLNijLEU+MhplTZYE9gu1D2LZarDmvT7pPiBnRiKkb6 gTwL9NbuWCvF949S8TvOjiPdvp9K3m2lAZEzoumLujfadYg+SeHincUdt2hz 3n+GOeahosH1UESSQX70zAl/7jvxlNr8K3RPRC/fQgqvIhQPQkz0qtQ8AuG+ I/D/p+TqfWdz1c5m9SbmO90oqrGbN/xQJfagSg0/FIs9KFO1qSIMUiqRNWQf xiGqpkvKUSIIySolZEIEAgCgNjI59Ye2I7mtaqySZ0TTv3g+eC4dPTUMhpRI O8TGdSV3cHIoNR7R8RLy0R/620YmVpT/zUa4QKmjks1pT9sBC9FR5GTkzCd4 vpm31Ky/lzm5IPe39BKaQzvSbbGbEHMrajh062ulM9GzCYVEULZZUcZ4anuJ KhUXFVe8x78LnpvvylYHcuGbc41DITFb5kVWDIrcnPF1WwlLzWCQd5NWailK nzXTWsIRqBoTMyOaju2/G6bP0yFq+gPze86NJZeC/exOrtrLE5KSh+0oRm8V f+478ZTa/Ft0PFJk+VZeCq+dq8eBpk4QYppXpdYRSDa3pMVS+f6uVyuzxuno ia5Wpn1zLSL9tjze7YmKWINk4vBDpdiDKjH8UC72oEzUpgozSKnE15D9Foeo my4pvwylByGsEkMmRCAAACpLTrrbOvK3qrEUmBFNdwGxLx0VFqJ5NCJzUJzD LlrQJ8+5QuMRPS8hhzmXUNzuNqkMcYHSRiWb8cA5q6Wi/tJ4sbNAViOu40T6 Xzp/yB/1kYnH/sG25q7Ow/lLOMiF0GD7ziEDu7hi1940LkYijkk5mlnJZkUZ 5KntIapU2ahYMPnS1uqDT5oJC9H2+dR6Khkfv+JoFbeRSnzFSNtYfPC5w1pR 3XrxywexBB3rkqnEwuz0/du+3/e3NEo5X9UIis6I5mJ7q+PqFP+Jq9ls/4f6 g6KH2zu8DA00OfylJSJVbPOv0D0RuXwrL4XXrtXjQKkXhJjlValxBJJdOM18 bbL1eiZiqyn6nTYX+fbzvpbO4ZuPE+uT7tZ0xT88FHqeSr34YbT7yKV7y8Xv sanDD7ViD6q08EPB2IMyT5sqyBilklRDqH0Vh6ibLilHiSCEKW/JIRMiEAAA VfFsVWMpMSOatj7jO2O1WDu90dK2aWzO+bqLHX6hGmXGI7peQhb9if9otwJd /F7GuEApoxJy+fvhugqi6aNxMedBJB9f720kiGNDtx6vpNKhZnw69Me+ppb+ 65HlzWfMwokax7V/J8nVmZvnm7t9M5s77zH5espz2kocHbwRWUxuk8mF6duf 9dRVVbf81hd5JTE6UapZUUZ5aruJKxX5fOzy29a6Xk+kwFh8YzFy09l33EZU 2toHr4w9E3OrpVUM5idSK9GQ1zlwms3sX2lrOcmerxqZWy230LPwjOhWYuqq w0pfJNF06e6i4KxpZn+l7LOJ6aN+OxRKIlr65l/heyJq+VY2H93e1eOgahBi ilelxhFIZuF0ReNn956Mfeka7GHOjK60tf5q2P3/wpkDo8nU8qPA6G+60n9V faR39Pv4nlVPPMwdfqgXe1ClhR9Kxh6USdpUIYYolfQghNo3cYiq6ZLyKBGE KBQyIQIBAFAP/1Y1lkIzoulfFAv011squr1PS8nq/DI0YBPMBac2ZcYjul5C RmoxNNzQee3pphrdoREuUMqohFwcG26yEO2jkRWxtyP1aipwZfgsM73W8u7g 6E1ueJhuS7F73sv0SZdEXfvQX6d5vwKT6/HwzdHBd1tslZZqe0ff5S++nYwn Ze3LUqZZUUZ5arvpWioZFcNUCoxEcrG9pe5CMF7w6Ww+cjezpxgXPrSInxL5 uxTc/FvgnpS4enyfUz8IMcGrUtMIhNwIOw/uXDitELOHH6rGHlRp4YeCsQdl ijZViAFKtd+DEKpwn6tiuqQ8SgQhSoVMiEAAAFQjsFWNpdiMKLcUh2j9NMK/ WUAEdhOEXll9FBmP6HsJTAnorrn+V74ZdQ4c1P8CGWJHJRvx4IU6i63XP1tu n84zFGhWlGGe2i56lqrsK0bJhGNvbjOaxXraM/W6WFCdOyxA9L6//DKUnL9L yc2/BdfNlrh6fD/TJAgp+1elphEI9x2B6C12tpq0/9784ce+iT0oE7SpAvQv lRlqSMmE+1wV0yXtKkDJQYhiIRMiEAAAlSSm3J21/Tf+Hef3S3CISU5yoN0T 5v5sYUXmN2U2iUpN0/B3orZW7UXvC8g7SVNjioxH9L0Eip4fuHluwFu8U5ZL 9wtkiRqVbCUe/bGj4pDDM1kmSeZ5ldysKMM8tV10K5U5KkaJhGNv8uWEs91a d1bsayT5JHCpt8VWSdT95htRZxlnLY0N2XOZr+RRcvNvsdyqJa4e36c0C0LK /FWpZQSS/Y6g7IzQfgg/9lHsQZV9mypA51KZpoaUqEAcola6pJ2UCEIUC5kQ gQAAqIQ7jE8C/tTN4pQWPi3fHmw+L3FMrRxFxiP6XoIGDHKBxUclZCrm77Xa TBFwljwqMchT20WfUpmpYpRCzFnzKiNnfSdOe2dK2bSo7OZfA9wTE9IyCCnn V6WWEUjmOwJx0PnAUDuZizBCR7a/Yg+qvNtUAXqWymQ1pBR697kKBCEK0vtu AADsU+zrV4ENa3nS4dO90a7WgdCCQr9QK+x4ZCexB4qC6viG1QUez9Zjz7G2 Qf9jswScZdusjMZsFUM2c8Teym7+Ncc9KS+KByFl+6rULgLJfkcw2mE3xrTP Yw+qjNuUMZmwhsiGPjcf7gYAgC7UmBFlf/F6QnY6d71gRtTQJI5KqNRaoqRU 6UZUjs3KcMxYMeQwReyt8OZfU9yTMqNOEFKOr0rtIpDsYWRGO+zGmBB7MMqx TRmUSWuIHOhz8+FuAADoQrUZUQAAMC5TxN4Kb/41xT0pMwhCtDcf6Kmhb3mj exrZ5gBAN+hz8+FuAADoYmPWexKDEQCAfcYEsbfim39NcE/KDoIQ7aUWx6+c 6//IP63aEUgAAMWhz82HuwEAoB0yufKcPs51dnriL0NNVeweoIp25/+Go3P0 n79KyD5TEgAAyoAJYm/FN/+a4J6UBwQhAAD7HvrcfLgbAADaYY7KrLS1nOja 7VS73Yq3MQCA2Zkg9lZ8868J7kl5QBACALDvoc/Nh7sBAAAAAKANNvau7xr6 nZPlDa/oXSaJFNr8uxL2Zm7B74a66jEeAQAAUJ8J4pCSIQIBAAAAANBa9kQb Tpc/rneZ9LH7jG+MRwAAANSGOAQRCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAaGwzHjhntVjt7d19I57g9KuU3gUCMITkTMgz6nR+NDLQ 29V1qt1+8LD70ZbehQIAAAAAAAAA49p67Dl1+sMv/hFd2dzzd9vJePjm6Lm2 gW+XdCgZ7LWdXPzB4zhkSSOODd/+BZOixoWWpZnElN/ldDov9tir6KZhOdgX fKF3mQAAAAAAAABMiExErnQcGQgt6F2QkqXCzmpmFqG6td/lux2OzsXTZqfu /e3KhU4bkf6L+nPBeVLvYgKHTMW+dFQwj6z+4/A6noxRoWVpbWPWe5K54ye9 sxt6FwYAAAAAAADAZDZXooGR1hqLpbrLP6d3YUqWnbfhd8jhmUxg1sZQyOfB fmaZqKVxaOyV3qUBAWhZWnsZGrAxzcI9jT3zAAAAAAAAAMpIJRZ/nrp3y/Oh o45g5zRMPiNK1L37++ATTNoYD7k+cbmWeUYVvYEFPCBjQsvS2NYjdyO9eLpq aGxN77IAAAAAAAAAmAA3t0FU27sGXb5vPWerTDUjeuR9l2u4r7vdbmWusb1n wOn56sd4clvvwoGANw9dDczOeeIdX+yN3qUBPmhZ2iJnvW10k7A6/DFMNgMA AAAAAACUjkyuPI8vrHDzGNwEqWlmRHv8cRzRU142ZrynmKXKB457f8L8mhGh ZWlqayn4HvORoN0TTepdGAAAAAAAAAATwowo6I6c93ez5ys1jEbeYE2c8aBl aWo17Gymm8NBZ3gDzQEAAAAAAABAeZgRBf3lzleyj0ys6F0a2AMtS0vbjz1H KtONoXIgtKp3WQAAAAAAAABMSdUZUTLx+OZw90DwheK/mZ9S8zZxf9eeE2Sq nWGt5oNSibnHk7PL+2n6KXu+ElEzdLfYLNCcv2vPMT8FHs/Woytv/4d7fN40 91PrZkWZd0bUmHVjMdBDIIkoAAAAAAAAgIpUmxElU/E7zo76puHv4imthvVm mBEl1yOjzYTFQvTyXAi5Hg9/7Rnp67BbCVuXa+KleSZM1n9w1jM75yv6AguF 77TEGVFqKzF11VFzpN/3qPyPRNejWVHmnRHVuW5sJ+M/fuW5lG7P1ZZKW2uf 0/9wMbW9NnaxCklEAQAAAAAAANSk0owouXjnYtOBmv7AvA7zNm+S8clvv7jc 19Vio6cWbS2nz7t8d6Mrm2J/Dzsj2uWPq1lYAVwKwYr3gktbeX++nYzf9/a/ 1Trwn0PtVmYSkDjkimwJ/p6yszbtfoud3Oz0zUqoNGwNLjJhvZV49MeOikMO z2RZT4rq06wo5VqWEelTN8hkbMx9po6osvdfHYsuJsnt5MtHt4aONw/f/Ob3 raUlESVTK08nAn92DvSeoh8UUW1/29H3wWe+76dfJsu5+gMAAAAAAAAoRo0Z UTIx6XEcIpo/ebCq7YwdfTGtF1y/bWt613ljPBpP0JNkqdXYxBf99iqLtXtU 5PZYHWdEuRSCljZvblqQXIuF/quz9X1v+EWKWptyv83sqe3xRhPaF1A92zPe 48yR85Yjnqj4I+dFzYimbcwH3q8hjg3f/qVMVzrq1qwo5VqWQWldN9hHabHs mYZNPfU5athVzzKTiKZehK+db6musrUPuK59PfYgnPZg7OtrrnMt1YSFaOz5 LDSbKM8PKW8m3Ud/HVgsz8IDAAAAAACAwSg/I0o+v3vxGEF0uKc0n6+jL4aw OjyR5V2L1shUzN9rJSzEsYt3nxdfJaXfjCgZ9zvoWcHKI57H7KQgmfw55Oxu G/RHs/MYqeXZyORP5lvulZ0NtrS4IqIrj9gZUXqF5dhwU7nOJOvYrCjlWpZh aVk3ktNeejqU4Fvru70aOs+0ATlJRMnEpLf3sLX14pfhZ3veDmRq+dGNwaP0 ktHW34XiG6VcgS62o54j8tfNAgAAAAAAgMmQqfj3o71HqquP9l+Ts+tT6RlR ZrWV5UCre1KHFHjbseBH3jD/CjpuU3bNYLBImkodZ0Sz8yHNzvAqvZ93Jujs 7Bz0Py7rvd6ipF48uPKuNZMVlKgdGV8X+4OiZ0TTrWX5++G6CqL100iZLZPT tVlRyrUsA9OqbqxGXMxS6IoeX2zvw8y+Adrc02JbQEYqFuhvsDquThUof+qX 28PH6IQHTZfuLpbXw0rF/b1V8tbNAgAAAAAAgPms/+hqruKmkc7K2FGo7Iwo Gb91xkpY6j8OrxtuCm9r2t3IJOhscD18U/if6jYjyiURrRwIPH0U+tOvW9o+ uBl9bbhbqTh2osZ62vNP/4UaZud85fnQqrid81JmRClqMx44Z7VUNbt+lDjf pCcjNytKUssyNA3qBrkZ9bSxFbw/uMTzMLk3QNXFsTVJzzoZ8/fVNH00vlys C0hOulsPpHsLa68/pnE22pK8DA00tnmflFGJAQAAAAAAQD1bEdeh7HHb4ieR 8ig5I0ouhAYbLJaabun7PbWwFOxjDjO3NIxG3hQsoF4zorlt4wzriZEv/ur3 fxWaiGQyN5oSOx2a2Xb9Ouw8ylx8bW/gmahaJG1GlKI2pz1tByzECU+0TOZE Dd6sKCkty+BUrxuvxoaYyWNL/dDYEs/fc2+Air4g318LIpduD9ZUtzr/d2pu tVg72FoKvs+8ZWxnAnNl87Q2HjgPHpe8bhYAAAAAAABMilz8pt/KLDkiGs/c eCLjyGflZkTJ9choc7osRl3Jlr1Ui6XbN1fwVuk0I5pNIto0dPWW3++/4XU7 h8622tg1ZbaOkS8j5bwtmQ+T+bCRsNT3B2LMpZGb01ea2SXPnT5RM4BSZ0Sp 1EKAnsCr6PbPG7Ke7mT4ZkVJaVlGp3LdWA0NVBb6esW9AaokLoZ8E/O9Q2R2 CrQ6HywX+edrY0PsxgIjV6qd6CSiktfNAgAAAAAAgIltJ+P/+vbmtxMzy/Lm yhSbESVj/u6a9O/p9M3qMWolU4uRrzyfXrn5cFFoK2hu3sbuDBc8P0WfGdFd SUSzUonYuLe/mZnxqD8XLIdpPHH4T9wmZ32d7HNq90RFZM2UPCNKUevjI7Xp 23nUGX4tq+Aa0rlZUQq3LONTs25kl/QTDn+c517KTSKariQOLgWvhTjkihTb Of8i2HeQfV4jEytSrkAvW0vB96okrpsFAAAAAAAAKECpGdHtGS99XkhFX0CX ZYzks0BvLTPGP9gXfMH/b3LzNkddkbVCv02fGdFsElG+9WPJf7mamMmSI56o 5NQIBkSm4vdGuw5ZLFVNF+8s7pgd2pz3n6kQn5dSxowolYi4WujDvgdv8+Vy NBCdmxWldMsqA+rVjVTc38PcpYpG9yO+ScuViRG7nCSiW4/cjRXchOhxV6To 6UNrERebm0LKEWZ6WhobsiOJKAAAAAAAAChIoRlRdhrBUtEbWNBl1EqvvmK3 jR7o8P3MX4RiW1ZzdJkR5VIICqwfm/N3sQ8qb+pv+yfv2+eDS+V1bDrFTId+ N9xURc879Qfm96w8JJeC/eyTqr08UXRXr5wZUfJNZLSBrq9n/PNG3uWtd7Oi lG5ZZUC9upGdERWYW+YmNvOSiC6H3Zd9xVdKb8RDH3fYqqqbfuUKPkkUryrZ klgsje5p478/6DvzFpKIAgAAAAAAgIKUmRF989DVUCHhNBzlsftAK+scn44v 8k+N0ZnomGVRxVd/6TEjyqUQFFg/xs2WED2BRe7P6CsqvyWjuelQq+PqVIJ3 OiZ7AM2h/uDzIjVKzoxotsbquBtdBP2bFaVwyyoLatUNcmPi0gHh3ALknK/D sjOJ6Pr4yKF+FZYH582IEmcDi0afEiVnvW1IIgoAAAAAAACKUmJGlFtVRbzj ixXf5ayOraXQUCPfgkPO2rT7LfpCrWd8M8XWGukwI5pNIShwCHX2OeVm/tJX dNLQE3o8thJTVx3MWWBE06W7AjNs9HFC4Y/r2Q3GRZdHypsRpffh0v+D2POb dGCEZkUp3LLKg2p1YylIn9vE28ZTs/5eG7tqc2SCTWFKrk9cPqTK8uC8GVGR 2Xr1RCcRrcz7EgQAAAAAAABQOiVmRNen3W36b8Akn9+9eLx5+JtYcu+iyY3F 8U9aCYuFODZ8+5fiM2c6zIhySUQr3uPfBc8dnpKd+SMXvjnXOBQqpy3zuelQ S92FYHyj0L/dfORuZmaIi84HypwRpadZKgrccP0Zo1lRiras8qBe3ViNuI4T lop65w/5c8dk4rF/sK25q/Nw/gpSciE02D4YUiNfQjLqaedmRI1/GNbS2NDh I57HZbYWHgAAAAAAABRGphbDvks9TdWEhahrv+D5x+xqKUNmBWZEySfetip6 t+fQmORTVcj1ePhrz0hfh52e7iNsx8+OfBGKLhWfWknFw99Nvtx15an58dHu mrp3Prr+93A0FqfFouG/Xx85YbUQ1a0f3Iy+FnWvJM2IKnIJ2SSigsvStlYf fNKcfuZtn0+tp5Lx8SuOVo3OnVfqGWXPf7Ge9kwVfRC585XqL40XquIyZ0Sz e70FFuXqrpRmRRm1ZSlbKtWoWDeSj6/3NhLEsaFbj1dSZCoRnw79sa+ppf96 ZHnzWfBcvcVS47j27yS5OnPzfHO3b2ZT4jWn7/BkyOe+PNDTbq9mvj5U2zv6 Lqfv8kpule/riZFGXWdE073YQ7+zr9VWSfdiA1e+nRFu4vR746gzvPu4KDLx +ObISVtFY693UkTqVAAAAAAAAChrzCq7ureHff+Mzs3PPfR0VVgs1h5vVMqQ NpV4GWfNTt//ykWf982sxWs6f/3uw+gc+1cLKzzrwQRktoIKH7zCLz0o/j9P byNh2YMoOsjdWgpdqG3zRHmmCzZXZsb9o+fp+QD6d1XaWt4dcP45MPF0RXDb 7x5iZ0SVuwTy+djlt611vZ7IsvAPbSxGbjr7jtuISlv74JWxZ+ovyVP0GZEv J5zt1rqz3uLToYzkk8Cl3hZbJVH3m2/iwmfcyJ0RpdbGhugZR6GDv/Ums1lR Rm1ZKpVKHarWjdSrqcCV4bNMQ255d3D0ZjieOT+MTMbueS+fbbURRF370F+n +bPsCiDX5u79eaClhkn6+rvrt+9Pzz5j3/NT9/7m7mtp6vdlfiH5s6/jAHf3 T3pnC67WVl66F7vWW986eP2fdHfz2NdbWagXo5OI8pzYtTQx0sxdQosrYvBl rgAAAAAAAFAKMjUf6D/YdeVRdkIpc/64tKOo4/4uwtZyqkvY2/bqJvELh+jD qOlhaTb9nagfogfFdZV7Z0c4h7p9PwnOgm1Oe9qa1dlPyhA1I2rsS1BAmVyg 7BlRbl6IMGSKQlnNijLqUzNmqYQZu27sQaaWI9f7m+nsBfb3vPefJffeKfL1 lKe3+Td/XySz870MzU9WIhfvXGxudz5YEteL0QmWqxz++O5Fy5m9DYy8s6gA AAAAAADAfMj54Lkjnd5obt4gu9SHZwmNZrKHdIhfa0SmYv5eK7dYrLqpa+BD J+0/h+h1U9wwt6Lb+5T3oBb1F4wVnxE1/CWUqnwuUPaMKHeAjqyfVZuMZkUZ 9akZs1SFGblu7LKViPoHm5glra0ffV8gPS/dg5wcmVjicgKwU9GuiJYTouTi 2HBLq3syd5hTkV5sNew8xpdENDHl7sjWnTJ4SgAAAAAAACATc/p2/cfh9bxp gdxSnx5/XK8R4VrEdZSZ0BB9Ckly0t2aHgIT1a0XfeO7t9ySyWfhLy+20hnw iJrB20t7Z0G2f/IeV3nBWNEZUeNfQonK6ALlz4hyVVfzZXIiSG9WlFGfmjFL VYSR60a+3GllRNOHtwufVkaRbyKj9oHvfmbPjWKXiGq6CJbcjHraai/sOA+u cC9GJ1g+tjeJKC0VC/TXsxeh8bQuAAAAAAAAaOjV2FDTzqUy5PrE5Vp2KHnQ Gd7Qa3btZWjAJmWZDru252CH805cMP0gN8yvOOOf37WVlpkZbhiNvFHzeovM iJbDJZSkrC5Q/oyovHWY4m3EJ667nE7nR0N9jq6udrv1sHtK7MSN1GZFGfWp GbNURaldNxRBJqPX2OlQC9E+Glkpfo82JkZqu/rO2LgJ0UquT9laCf+PM583 vKJ8gVcmRpobXA/f5F3Cm8hog3AvRsb9jirBHRDkvL+bntst4VjA3QUMe3fc hf8Jr2CqFQAAAAAAQFf0MSvtnmgy74/So0t7Zlg7EOJbQ6ONTBY4kbsvmTFs VdOlewUOEGJsLY9/1ERUd/pmdy4pex7sP7z7DxVXcEa0PC6hBGV2gQrMiKp0 3HYiGnA7nR+N9LWyKQ+JvekQBUlrVpRRn5oxSyWC2nVDAeTqfWczu7yyot75 A2/GgT24epVRPzS2xPx59no5xc+Vk259fKS2decpSImIq0W4F6OTiFZ2+OYE Hz/74UBqrl1h7Js/R8fNFwAAAAAAAEBlBoZHPNH8lTL06JLNo2YfmVBhOY9I 5BNvW5XoETQ9/iVa/zDFc/LH3t+8EBpssOy86u0Z7/Gq9yXsI5an0IxomVyC fOV2gfJnRLPHs2TnhdSRmWap5EuHKEBas6KM+tSMWSpRNKobstEJOZu4re/v +GJviv8IbeeMaC51JzsjquoEILkRdh7ctRD0zUNXA7uD3zYQernnR1bDzqON 7kfCj39zztctUOzNeOCc1WK1t3f3jXiC068kXpjSNyQ5E/KM0t9HBnq7uk61 2w8eLnRdAAAAAAAAwNpORG58Gorxb5mvvTyxrt96w+yZv2KmbjYeOA/a+oPP xRWX3Jy+0rxjsP867GwRvRqqBAVmRMvlEmQruwtUYEZUuV23PMiNiUsHpM6t SWpWlFGfmjFLJY4mdUM2JiEnd7CQwCntvHbMiOb9oBYzosno138I5O9zyNsy z3usEp1E9HDBVsMUW3Ad9XZy8QeP4xAzaXxs+PYvUq5N6RuSmPLTGTQu9tjZ Zb0H+4IvlPnNAAAAAAAAyiJfTri6cucgK6j66Dn/k83iJSiMSzNoIWpHxovO GJRY5EK/WtLUzfKY81d/joifv6VHxHW5kePq3aHak56o+hMkBWZEy+USZCu7 CzT6jGgy6mmn/xNJZyRJnRE15lMzZqnEMfSMKLueNqO2N/BM7C2m73Al3w9q MCO6V27LfNXQ2Nqev6aTiFYWbjX0GtGKvqDwnCmZin3pYFeh7jqXsAiVbsjG rPckUxoj56cFAAAAAID9zeAzoquhgcy4tmVnWjZ+JRa50K+WOnUjzfq0u+3A yAQzdEwtBPqquv3zGqyHLXrWvAQ6XYJ29L5Ag8+IkjG/w0r/J7uyXogrmTrN itL/qfEzUKmMPCNKLgR6s6fFV/QFFkRXfTofNe8P6jEjWmTLPLk2drGqzVsw h+zL0EBjm/dJoX9Cp6JllolaGofGXokunEo3hPuU2eiexp55AAAAAAAAyei5 gsy4Vvcjy9Wdusk7WYOc9XUeFr0DtzRKzojqdAna0fsCDT4jmvl4QRx0PpCw Jkz1GVG9n5rhS2XgGdGtpeB72XlNotMXE3uPmEye3M/t3Fyg/YxosS3z9PT4 WwWTiLLJtDt2HjjI8x9lM8xISS+gzg3ZeuRupB8d75pYAAAAAAAAKIJ8FujN jPAaXA9FnqihWmGkHgEjzXbUc4Se7GJyDGqWMVXJGVGdLkFDOl+gAjOivEvU lLEVcTEL1CSmDVS5WVG6PzUBximVBnVDrqWxoXpuQlTKcV15u9T3bC7QfkaU yyZBL1bl2/ZONwF7wSSizFRn85XpzWKVJLsYVcIRVKrcEHLW20aXw+rwi57G BgAAAAAAAA457+/OrBBqL7Y8RgPcUR2Cx1uUhp6cTA9LVyKuNu2mfxWdEdXn ErSk7wXKnxHNrrWzO8PFU0/IIjttoMrNitL7qQkxSqk0qBtykT/7Og5wE5tS juvK7VK3VOxOR6D5jGh2zl9oenAp2FdVMIkoGfN3N3aLmlrcmPGeYlLgHDju /UncBLIaNyRbqYzQcQMAAAAAAJSdNzHfO5n8ppIyE6qFS4wma5FecfR8V7fv 8Z2R2rfd01ptNFR2RlSXS9CSvhcof0aUnfRQdYLiRbDvoKyJTZWbFaX3UxMi pVTk6r88Z1rsHZ+MLfLeIzIV/+FL92fXJuZlLB+WVjfI9fhkyOc639Nupyey q+0dfR+4b4bjSRVe0NmMCvSix7OBRZEVi1wPf5xZWkocd0VWd/1SrWdEcxlN ee8wk0S0UAfHXE7NhZC408pynxHF5plR44ashp3NzIJxZ3gDS0QBAAAAAAAk otPrVfPtl9xORG58GoqJHYGnh/Dhrz0j/V0tzPlRzBD+M19oMi51n+paxHVU 4thcCnr43/DrgXeqjntnNJv+VX5GVPNL0JK+Fyh/RpQ+x0d01d1Oxn/8ynOp r8Nebam0tfY5/Q8XUyRFJl/+9GhaqNWsjQ0x6+AqB0KrqaVo6IuRs8dtBFFt 7+wbuXZvbk24rancrCi9n5oQCaXKfhsSmrR8NTbUKPfLkfi6sbk8dcvpaCCq 2wY830Z+XkrSSVCTyz8/DLreqXdciyaVnvvKnxEVX+1zBwxV1A1/v7y7UFrP iG5Nuxsz+/6FkogeL5R6dzPq7WwQt0CUkbt8+8jEiogfUOGGbD/2HKnMvA0U +6UAAAAAAAD7xfaM9zi7QnR3SrSXoQF7p6/gwbwcMvHI1/9W68Cf0gP4ZXYV UyoRj47fuHTCWt02+OWjhIRBfHYxldR9wSJ/PTv8rxZ5acpQfkZU80vQkr4X KH9GlMvHWOxnyWRszH2mjqiy918diy4mye3ky0e3ho43D98av/4r+iB5gZOj uWmfqpaRz11dRzou3Xjw/9u735827jwP4PMHzBM/5AESErLkB0gRsvwAhFb4 AVEiSxBthRBphMyqEUZ7EXBRcFMFZ6VCTluftgWpheuutVmrp7rdWrmL9xS3 hy8NOeFc49saBZSlBVamYVpIIEEOMmFgvJ6xxzZmxv7OeMw49P16mBh7fhrN m8/381nZ5H+cmZ2yN1LGCxMPn8kcsQrfVkm9z5ocBVsl1t/KVdyJcbSqKTZk 1wb3Yt57yULTxq737zH5p2k/vvC502aqSBvS/FXzpN9R3N6ipyP9i8PkDErM picMANn46uO5la3yU8JcrCt5hPk19S3yhy4R8w80dH+yVLKDaN47ivOVaNPI PYJAsgKJ6Eagj5bvEgAAAAAAAADF5JbMF44Y5kdaEy3w5OLRqa52519WpGqX dpnpd610o927QL6KWJwd0zIafkH8Q8TST84KJmJooRKJ6DHvQuajt1cXogvp urUKfop+O5gsIxEVkyW6L7BR5FXxOY89dYE32j1zh/5SwC757KZMMNXhlcrv sk1EU59x1jX9Q/4GZpbxGocCzJ7k51b2tkrqfdbkkG9Vfv2t1P+LcbTCmVZp JNcG92Lec9GYeo117F7Bsn2xGlDlp5cg1q+Sf0flrtXWt0OM1JcBSQDI7UQn 2lK/fmiHxMsyiw4GulqNtLlnPPy0+FcOP0KrSCK6GRyokfoU4ZMSf/tjV0O/ b3mn6CccsfONu0lYOW8YCEhkwgXKSUQl68kP+D4AxUqaAQAAAAAAoIi1QF/6 wbaghmp/M3iltiAjlbYdHT9XOxjclHsltxkeO03RF7zLxJVpmY5wtR3e77UP 3oSEpDD+rbQKJKLHvQt8l8X/n+oWiuioWqvrK4at2MfrtIP5n64mEd0Nj/Kh l6Fl8pHsuujEgpePQ2nTYGCt8AAebIeuCrGX3DuIRYxH4lBeZrKM/KiXit5W Sb3PmhzirRIDT7mKO9UzrdI/XfLaYNeDTuG7+PRY+Mi36cGy7zxfO0xb35vd 0rzpAfcqOtGcjhOJOlLyFZX81lB17RMRmfp/kgBQbINpKBh4dJBgHnj5RQf/ MtJpTP8BoHTfXDHQlspXud2I+5R0rwOOZb5ytZ27fu9H5Zfty4XJX0r99pSk MhGVrye/deeDduJTBgAAAAAAAIfllhoefsznp+6edYbWSz9o7cyONhh7/KtF XiJEDUpymIq2R+MfnI99Ya+2iaguu5Abr5xmUtBzTyl9dlCkNhHlVrxCpV2R dc38nw/4Y2jo88WOlnVlE1GZdxAzH4MjIHVnitPku3yrkgeu0l0H9T1rcki3 qlTgmfpKtAvpnExDg+JKXhvc5rTTJFwahUPbxRckmIW5paeVmKzEv/tqoF8Y vEXZxqPxoi/dj0c/bKdL/lmEIADMFr7mV0RzL2Oh33W3X/FGfmKTL+cn3xDW hfd5F4tvVcrz8GirzFdTYtHTJdVE9CARu+NqOyfx9wUyuZ4zpVvLqklESerJ 0UQUAAAAAABAjewz6aH8Z38zdK2hw7NI0FRNWKtoaB7/ttiSVCEPVJIwxaPj NtXhQ3Hcqq/r+JcZapqI6rMLyXjE3Urloe1+yeWy5dNpB0UqE9H9zeBlg0TB W1au9WKNdE21XMmc+AGZIkaZfG//0WSLQXbVMK+Ct1VS97Mmg3irxPpbuYPD dxERyqPVNBEteW3sLHrOC5dG42BQRbFi+Tg25ncY+RXsRoc/Jptz7m1FPXb+ ZSWrxEsHgBzjt/P7nJvoxyX+HnL3djj9i3HxKLFbK9G5754SdengmNv9/LYd qaTl02zrkSx6l5n9sMdkUx2H8nLdDEomycoTUaJ6cjQRBQAAAAAAUEcMSXIp CseuBQYbuifnS9bk8DLd20xXAmtyK0nTSzIVPbhlh1ZoPgVGeJCsGwsf8zJD LRNRnXYhyW4Eh435kWiltkGvHRSpTEQzJWryC7TFSeVU08jMpsT/i+mKzDuw jN9RbBJ6ZlE8RckuMK7cbZXU/6xJI96qElOThGXXwhJlVW08S10b2TRbek76 8diPz98U0847sSPFqFziSdjzTxY+NG0b/DS6VaJpRskAMJvptbkj2/ynLwfd 3d1O/2MlY/jkdoE2dv0uFHuZeSc+ze71rWb763Ls1qPbY+dNrVc+jT5TH4ey Pz2cekv8SqQbRmeL9iFVmogS1pN3TC4obH8KAAAAAAAAAm7j7nVrLUXZxkKL DBNbmP6or6lDQdmMWDpFt14W1jke/YD1kLOZMvT716QHvkjjF+OnHgcbHIEn miYsT0PDZtllxZWjZSKq0y6ksGthz7VOc229td/t//hKnaZzk3P028E0dYno q2/Hmw3FOgqKd4pc6nW0ZO4w4bBQcm0Ds5Fd0dk9lbqtkvqfNWmkW1VqalJi 0dMpHFxVc6NKXRtCIatA5wN4kIiFxu3NfKRosb/7B18gNBuJ/N9M8HOP+3Kn OXX5mmzDnv9Z2SbYxpIBoFgRXTMcWHoU+sM/2zp+c2vxRdl7f5BYve8Z7uD7 R9CWzmuT/tCDucBvTp0aDT1hmNXF6Mxtz7t2i7Fj2HN3JV5GqTT7w7TrLG28 6Plf/zUTTZBmK0pEievJa6/PvKyuWw4AAAAAAOD1wbEb3/rd/dZ6WniEJHzg zcpWvvGlou2uz6Mb+eVnu0zwmoVq7PV9pyQPTWarqmRaJqq1+9B9ila17rU8 Giaieu1CAT42rEwiqvsOqklExdk08sm/OOpdrttAQcmc5M8Lgal020AxspMN VNMqc1slq+CsSSLdKuImoqXbRUr8cMlrI9vOWcU4L+1xO8zcXb/HPdzX09ma 2mtja2dP37Db4787x+wQXzWlAsDcenOB8fzon/7s9/8lFI4uMvGyD8JBglm4 f+ffJ90jA/bzNnP6g+j61u6Bkfc9gQfLzxX+OiqQjkPps8I8phcR9xnh/Yv/ oUFRIkpaT24YCEr9NwAAAAAAABwHbv3OkClv5E79L12f/XWD5ZLss/kv3rEa WhzeOeULIbm9hak24ZEvsK5ZSKB4xpNWtEtEdduFAtuhYVNFlkjrv4NqEtFM 9wmZgq6kmIdQ8tPGxbkwcpVm6UuIquvy/V0qTxXzJfqCd7nIiviK3FbJajhr Uoi3SmwiKtdwIFPfS+em8xws+S+PzxCNfS95bWTT8vriI+peKyUCwGxFtHXk 5m2/3/+Fd9I9cqndnK6LNHeNfhbV6gJdC/S1qup1II2Lz3kdLTTVNBiICVso 3lPFOmYklSWipPXkVXfHAQAAAAAA/Mzsxxf9TmttLhSl6HqbY6Czsb79uvoH W37evanYMmTF0pVgLaPhF9q8HznNElH9duEwvn9s/oRozVTBDqpIRDOr0c+4 I3KbnU1EZdZli50k8ypItyKTN3zZlqGZRFTyyGQzGdrknJaL3cTXan5bJavi rEkg3iqxiajMHZrtv5qbFM/FfN0tE9FXBIew9LWR7QFbMhHlWObB58EqG14l rXgAKFcRzcZjs97BNiEXbRoKrmlwifInV7OBX9LD37kVX3e6yLfIBylIRInr ydFEFAAAAAAAQH9cIjYz2W/JqxWlqFNdY/85v6V6fSK3E/nXptTbNJMlD6UJ lWD0pcBGBSZtF6dZIqrfLhySerrvb8zWy2mpCnZQcSLKrgf4QMvQ65dPcLjd 8Fgdf1O0uiMSM8vETpJ5a953ZkcbB3OVnJnUTurHuc3w2Glh6fFQgCl5u2l+ WyWr4qxJIN0qsYmo9B3KbT9wt9UeXlP/Kua72DL+LUFHUZJrI/UZTwKOhkM1 qFIvYpm77q7TyjuQ6KJ4AJhtIipVA5n467i1Rm2PgkL8326kW+8qlTr+9yd6 GvnJU9fvbhx6v701f78wGcvQLHtVkCeixPXkaCIKAAAAAACgv8w8C6PlwuWL 1vxYlLa89UHwe5Xjg7m14FATRTU7Q1p0PUxnSlo8ZSumVSKq4y7k4+sMO0bD z7V/52rYQaWJ6N6Cp6OOorsm5yWizpxMHaBUY0B2xe8Qpibl/pevS2w81O0z vbI7V6Yo4hLz/9bOz8JJdzUkoO1tlayOs3YU6VZlW7BSVM2V4OahCEqoCTxz vqddSOjEOCt1xs/1ehYJyvMIr40kt7fs6zXSlMkZlKypZzcX+Zl37eWNYj9O RQNAscmDTA3kqr9HKLnMvwcPvvO+cbXg7JBthqNWuvWuIhzLfOXi10HQpsHA Glu40dxmcDC9zr3hRli62aqKRLREPXleE9HD9eQAAAAAAABwPLgXi/53rPSp LndwOb6f5F6uzkz1WfKmZlC1VtdXzJGnSJK3ZmOf2Q0U3TYRJZ/pISNdCabP 8BeNElE9dyFHmINMuGRYoarYQWWJ6B4TGDJShqax2VIDybaj4+fo1Cvd3+RH aVz8sd/Z0dbT/Yv8ClJuPeTsPJxYpms7C9bFi0ENfdY1/QPxKn8tb6tklZy1 I0i3Kjs1SajKMzs84dg2mzpE8dXolx8P2Lpdtx7Hd+Ym2+so6hcjoR9Z9qdv JnpPj93fKn3kyK+NlN2Nhx/bjQa+08jDWJz/tkxtw/rKwoNp3weDthbiIe9V olgAKLbBlKmBzHaQ6AtsiP/Gl3qqidyfhoatdr98d08iuTjUaL85Lz2hPjsL qXEwKPmHCfJElLCePK+JaEE9OQAAAAAAABwD7sW856KxoK8an/MshT7KX0Rf 1z45p6qEZWfZ12+kjN3exfLWiu6t+nplq24qTZtEVNddyOIrDM/0lhsySKqO HVSSiHJbX7ssBtr63izJkJ3E408dLTR9duT24+csx8aZhdDvB6y2wU+jW3tP hLpNk/2TvyW47eVbV9t6fct7h49x+l6jzzi/iG4kDrjE+sL0R32W2nrbO77o M4VpiFa3VbJazloh4q3KTLExtHx0//uZz8adfcKA9Rpz+69dk/8RyUxX59it R4GJt3tS/1V/2jHxNcnfd5RdG+lPeb4Y8rqHL6YnDNWYbW+mh7xHV7dft7Sr SACYbYMpM0g9fQMeugVfLky+qabz7e5D96mu8pqI7sfnb9qN/PmgrWP3NuTO g9iMInUlHSrtzlIyWYmonjzbIPdoPTkAAAAAAABU2v7WzLsWymBxfS1VMbUf X/7yA3tzJhY19PvXVKUvbCww2EQZer1L5UyReBoaNud1Ajxe2iSiuu5CBrsR cjV3f7K0V4nH72rYQSWJKLcx47JSdOdE9Dnp4WCfzQemXJfOmekas+0t58Qt MXPjO/He997gx23Tls6RPy9IlqJxO0zk1oTzLZu5hqpv7Rq48acv55iEqsXq 2txWyWo5a4UIt4rbjbiFMfNH2xGUR8W1caIUCQDFJqKGy9Kr4MWq3ewtyK3f GWoZCSleMl9+E9FcHEpZrgWZotfS3qPJNiHopX/lix1tJqokES23nhwAAAAA AAAq7OA777m6ElEnv8j0TWHqhPrx1unhJnT7h1HpFYsE0isx9Wp1qEkiqu8u CFvA5wNNv/YtV2bAsf47KCBNRHeZ4DULZXb4V163+r0MDW6rZNWctQKkWyU2 EaUdZFEVodf+2iibfACYbSLa7ZMpNN/ffvh+G03RHR/P77AJZnbK3q5q7nzZ TUTF9fuU8aJn/kWpDcjNV5Lqk6AoES27nhwAAAAAAAAqKd3QTGaRYB52yWc3 UYrGdx/5KKGTm0ltP9L0OsS8Qd7HTJNEVN9dSPK1W7eGhr2lkwG1dN/BNKJE dD/+6PddhsJmEa+bsm+rZNWctQKEW5VtIqplonsyro0yyQeA3I8zN94wWhye aJFWrLsb0VvuAaGUutM5NfNE1S+OzZmR1lyzTRW4p2F3p9FyifRLL/F9YMxh M9fQlrfvMAV/JVSYiCbLricHAAAAAACAiiFeXpxpHFc3Gi5jYW156c3WtLPt 6pGn1OOiSSKq7y4cgyrZwdKXNcfG/A6j+UREXmWHolVy1goQblWmiSh9yv1Q ozX/J+naKIfyAFBz3Irv/EXvcpU0c6iCAwIAAAAAAAAa4bu0kc2YFkKm8gvJ OJa5P9HTPhxaL+ttjl86ET2sjIpZ0Naqv6dewenZf+w52+H0Pz4pkddre1uV K9tEVLuxUCft2lANAWABHBAAAAAAAIATZGd2tIGmGm6Ed4o//7+K+X5F0xe0 Kddhd+LqRsnoCIloVVOYiCbZl3H1w1qq1Ot4W5VLbCKq5Viok3htqIEAsAAO CAAAAAAAwEmys+TtNVB17RORIjVR3PbsWFOtzDx6AABdrAX6+P7GVMvkAhox agwBYAEcEAAAAAAAgJOF/WHadZamGu1TDzYk+hAeCJOCzUb7zXlMfwCAKsJu zE4NDb7nX6jYsLCfLwSABXBAAAAAAAAAThz2p8gnV231hnrb8FTg/vzKE4YX W4z8t298yGZssY+HYj+7BbkAAD9bCAAL4IAAAAAAAACcSAeJp4/v+T50DfTY zPzwZoo22y463Z7/ijAleowCAMDJggCwAA4IAAAAAAAAAADACZYOAJt6Rn7r TvNGnuu9TTp4HvFm9v+3Iz1NSEQBAAAAAAAAAABOqHQimqfHz+i9TTpg/D2H jgISUQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAHfwDJ5OSmg== "], {{0, 505}, {1798, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{686.933333333331, Automatic}, ImageSizeRaw->{1798, 505}, PlotRange->{{0, 1798}, {0, 505}}]], "Input",ExpressionUUID-> "e1f6fcdb-eaa6-49cc-9213-2964670aa55d"] }], "Subsubsection", CellChangeTimes->{{3.7644571108099184`*^9, 3.7644571153449674`*^9}, { 3.7644571490334663`*^9, 3.764457161923139*^9}, {3.764461457837784*^9, 3.7644614762484636`*^9}, {3.764950266741502*^9, 3.7649505344284024`*^9}},ExpressionUUID->"23c39da5-24f7-43ed-a398-\ 758ac34ac317"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraSSTPRSTerms", "[", "mu_", "]"}], "[", RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", RowBox[{ RowBox[{"I", " ", FractionBox["1", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s1", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], "-", RowBox[{"s2", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], "s3", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "kp", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "bt", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "-", RowBox[{"I", " ", FractionBox["1", "4"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammastdownstup", "[", RowBox[{"kp", ",", "ld"}], "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s4", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], "-", RowBox[{"s5", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", FractionBox["1", "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammastdownstup", "[", RowBox[{"mu", ",", "ld"}], "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s6", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], "-", RowBox[{"s7", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", FractionBox["1", "8"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGamma", "[", RowBox[{"kp", ",", "ld"}], "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s8", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], "-", RowBox[{"s9", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{"I", " ", FractionBox["1", "8"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"kp", ",", "ld"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s10", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], "-", RowBox[{"s11", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", FractionBox["1", "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "kp"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "ld", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s12", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], "-", RowBox[{"s13", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", RowBox[{"I", " ", FractionBox["1", "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammadown", "[", RowBox[{"kp", ",", "ld"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s14", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], "-", RowBox[{"s15", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", RowBox[{"I", " ", FractionBox["1", "4"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "kp"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "ld", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s16", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], "-", RowBox[{"s17", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", RowBox[{"I", " ", FractionBox["1", "8"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammadown", "[", RowBox[{"kp", ",", "ld"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s18", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], "-", RowBox[{"s19", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", RowBox[{"I", " ", FractionBox["1", "2"], "s20", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "kp", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "kp", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", FractionBox["1", "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"kp", ",", "ld"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"s21", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ld", "]"}]}], "]"}]}], "-", RowBox[{"s22", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "ld", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]}]}]], "Input",\ CellChangeTimes->{{3.7644571634818616`*^9, 3.7644575720723877`*^9}, { 3.7644576051251917`*^9, 3.7644580415955324`*^9}, {3.764458479007454*^9, 3.7644585171967487`*^9}, {3.7644590486163073`*^9, 3.764459130922405*^9}, { 3.764459865538782*^9, 3.7644598796326866`*^9}, {3.7644599102408895`*^9, 3.7644600430331297`*^9}}, CellLabel-> "In[110]:=",ExpressionUUID->"ed714a50-9cf6-47b2-8bb3-5f4112ebd46f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Equations", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", RowBox[{"(", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraSSTPRSTerms", "[", "mu", "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], ")"}]}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}]}]], "Input", CellChangeTimes->{{3.7644584193310843`*^9, 3.7644584422402973`*^9}, { 3.764458523155589*^9, 3.764458535702627*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"2a18190d-f527-46e7-b68a-ff27dc6ce402"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", 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->{82., {3., 11.}}], 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->{67., {1., 11.}}], 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, 111, 33921530894133594686, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], 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], ImageSizeCache->{78., {1., 11.}}], 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, 111, 33921530894133594686, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{57., {1., 11.}}], 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], ImageSizeCache->{57., {1., 11.}}], 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, 111, 33921530894133594686, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], 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], ImageSizeCache->{99., {1., 11.}}], 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[33921530894133594686 === $SessionID, Out[111], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.764458449269264*^9, 3.7644584864190965`*^9, {3.7644585268151693`*^9, 3.7644585388641477`*^9}, 3.7644591487652903`*^9, 3.7644600896056395`*^9, 3.7649508614945235`*^9, 3.7656352134172187`*^9, 3.7657391715892525`*^9, 3.7689319844366417`*^9}, CellLabel-> "Out[111]=",ExpressionUUID->"53d8786e-8088-43c7-b051-9fc018b38690"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solutions1", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "s16"}], "-", "s18", "-", "s19"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s13", "+", "s16"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{"s16", "-", "s17"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{"s10", "+", "s11", "-", RowBox[{"2", " ", "s12"}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "s17"}], "-", "s18", "-", "s19"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s14", "+", "s21"}], ")"}], " ", "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"s10", "+", "s11", "-", RowBox[{"2", " ", "s13"}]}], ")"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s11", ",", "s12", ",", "s13", ",", "s14", ",", "s15", ",", "s16", ",", "s17", ",", "s18", ",", "s19", ",", "s20", ",", "s21", ",", "s22"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7644585450047255`*^9, 3.7644586673285856`*^9}, { 3.7644591575770273`*^9, 3.764459239247652*^9}, {3.7644600948948317`*^9, 3.7644601790029535`*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"0d38e25b-9324-4b4d-bda7-5f162de132ce"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 112,9,33921530894133594686,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.7644586358884306`*^9, 3.764458667734604*^9}, 3.7644592415137224`*^9, 3.7644601811435738`*^9, 3.764950861562498*^9, 3.765635213533452*^9, 3.7657391717204103`*^9, 3.7689319845443544`*^9}, CellLabel-> "During evaluation of \ In[112]:=",ExpressionUUID->"18bae4d6-a9f7-4955-9cd0-00bda1e3f796"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 112,10,33921530894133594686,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.7644586358884306`*^9, 3.764458667734604*^9}, 3.7644592415137224`*^9, 3.7644601811435738`*^9, 3.764950861562498*^9, 3.765635213533452*^9, 3.7657391717204103`*^9, 3.7689319845583167`*^9}, CellLabel-> "During evaluation of \ In[112]:=",ExpressionUUID->"12e72f4e-0fbf-4255-9a56-52804283f3c5"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s12", "\[Rule]", RowBox[{ FractionBox["s10", "2"], "+", FractionBox["s11", "2"]}]}], ",", RowBox[{"s13", "\[Rule]", RowBox[{ FractionBox["s10", "2"], "+", FractionBox["s11", "2"]}]}], ",", RowBox[{"s16", "\[Rule]", RowBox[{"2", "-", FractionBox["s10", "2"], "-", FractionBox["s11", "2"]}]}], ",", RowBox[{"s17", "\[Rule]", RowBox[{"2", "-", FractionBox["s10", "2"], "-", FractionBox["s11", "2"]}]}], ",", RowBox[{"s19", "\[Rule]", RowBox[{"4", "-", "s10", "-", "s11", "-", "s18"}]}], ",", RowBox[{"s21", "\[Rule]", RowBox[{"2", "-", "s14"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.7644586358884306`*^9, 3.7644586677502255`*^9}, 3.7644592415449286`*^9, 3.7644601811747913`*^9, 3.764950861566486*^9, 3.765635213536444*^9, 3.765739171740877*^9, 3.768931984566295*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"3811c991-0418-43e0-8a45-1ffbff2853b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Equations2", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Equations", "/.", "Solutions1"}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}]}]], "Input", CellChangeTimes->{{3.764458674373417*^9, 3.7644587044838266`*^9}, { 3.764458747503226*^9, 3.7644587661618786`*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"1fa53a42-260d-4474-a60b-a816667dd6ca"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ 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->{82., {3., 11.}}], 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->{67., {1., 11.}}], 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], ImageSizeCache->{67., {1., 11.}}], 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, 113, 33921530894133594686, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], 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, 113, 33921530894133594686, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{57., {1., 11.}}], 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], ImageSizeCache->{57., {1., 11.}}], 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, 113, 33921530894133594686, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], 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], ImageSizeCache->{99., {1., 11.}}], 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[33921530894133594686 === $SessionID, Out[113], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{{3.7644587008466797`*^9, 3.764458705187195*^9}, { 3.7644587525394464`*^9, 3.764458766864689*^9}, 3.7644592474836473`*^9, 3.7644601851913853`*^9, 3.7649508621215467`*^9, 3.7656352141153555`*^9, 3.7657391723214674`*^9, 3.7689319851257114`*^9}, CellLabel-> "Out[113]=",ExpressionUUID->"8a9f62f1-3b8f-4dc3-a0cf-8e439d5e0b57"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solutions2", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s14"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s15", "+", "s22"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s10", "+", "s11"}], ")"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s11", ",", "s14", ",", "s15", ",", "s18", ",", "s20", ",", "s22"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7644587098153276`*^9, 3.7644587388758593`*^9}, { 3.76445886826017*^9, 3.7644588752378836`*^9}, {3.7644592573872933`*^9, 3.764459311221069*^9}, {3.764460201362011*^9, 3.7644602578740892`*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"0eca594c-afde-4f99-86bf-78ea4feb9c5f"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 114,11,33921530894133594686,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7644593180693583`*^9, 3.7644602731605835`*^9, 3.7644604962778063`*^9, 3.764950862135471*^9, 3.765635214128322*^9, 3.765739172331669*^9, 3.7689319851925325`*^9}, CellLabel-> "During evaluation of \ In[114]:=",ExpressionUUID->"72c7d46e-980e-4d4a-aef6-e65457b154d8"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 114,12,33921530894133594686,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7644593180693583`*^9, 3.7644602731605835`*^9, 3.7644604962778063`*^9, 3.764950862135471*^9, 3.765635214128322*^9, 3.765739172331669*^9, 3.768931985204501*^9}, CellLabel-> "During evaluation of \ In[114]:=",ExpressionUUID->"ea8a9cc0-91b1-40b2-aa81-af09e037fb53"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s11", "\[Rule]", RowBox[{"2", "-", "s10"}]}], ",", RowBox[{"s14", "\[Rule]", "1"}], ",", RowBox[{"s22", "\[Rule]", RowBox[{"2", "-", "s15"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.7644588755814342`*^9, 3.7644593180693583`*^9, 3.7644602731762257`*^9, 3.7644604962934227`*^9, 3.7649508621385326`*^9, 3.765635214130315*^9, 3.765739172331669*^9, 3.7689319852104845`*^9}, CellLabel-> "Out[114]=",ExpressionUUID->"d0b86855-f907-4dc6-858f-23165eab9cce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Equations3", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"Equations2", "/.", "Solutions2"}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}]}]], "Input", CellChangeTimes->{{3.764458674373417*^9, 3.7644587044838266`*^9}, { 3.764458747503226*^9, 3.7644587661618786`*^9}, {3.7644593259967327`*^9, 3.7644593362552257`*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"873f96ba-1970-4349-a9f6-fa275bee7fff"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0"}], "}"}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s2", "+", "s5"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", TemplateBox[{"15"}, "OutputSizeLimit`Skeleton"]}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s2", "+", "s5"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", TemplateBox[{"11"}, "OutputSizeLimit`Skeleton"], "+", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "+", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s1", "+", "s4"}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], "}"}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{82., {3., 11.}}], 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->{67., {1., 11.}}], 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, 115, 33921530894133594686, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], 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], ImageSizeCache->{78., {1., 11.}}], 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, 115, 33921530894133594686, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{57., {1., 11.}}], 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], ImageSizeCache->{57., {1., 11.}}], 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, 115, 33921530894133594686, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], 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], ImageSizeCache->{99., {1., 11.}}], 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[33921530894133594686 === $SessionID, Out[115], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{{3.7644587008466797`*^9, 3.764458705187195*^9}, { 3.7644587525394464`*^9, 3.764458766864689*^9}, 3.7644592474836473`*^9, 3.764459338826841*^9, 3.7644602865487385`*^9, 3.764950862805542*^9, 3.7656352145192986`*^9, 3.765739172723417*^9, 3.7689319856303625`*^9}, CellLabel-> "Out[115]=",ExpressionUUID->"09ac60ee-1c32-4ecf-bd44-466deb047827"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solutions3", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "s6"}], "+", "s7"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s2", "+", "s5"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s15", "+", "s4", "-", "s5"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "s15"}], "+", "s2", "-", "s5"}], ")"}], " ", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s3", "+", "s7"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "s3"}], "+", "s6"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{"s3", "-", "s7"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s8", "+", "s9"}], ")"}], "\[Equal]", "0"}], ",", " ", RowBox[{"s20", " ", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "s4"}], "-", RowBox[{"2", " ", "s7"}], "+", "s8", "+", "s9"}], ")"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s15", ",", "s18", ",", "s20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7644587098153276`*^9, 3.7644587388758593`*^9}, { 3.76445886826017*^9, 3.7644588752378836`*^9}, {3.7644592573872933`*^9, 3.764459311221069*^9}, {3.764459371391546*^9, 3.7644594680944586`*^9}, { 3.7644603244940515`*^9, 3.7644604907165146`*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"a0f98227-aa81-4194-92a5-0dfe212d7ea6"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 116,13,33921530894133594686,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7644593180693583`*^9, 3.7644594748637843`*^9, {3.764460483278*^9, 3.764460491470795*^9}, 3.764950862880336*^9, 3.765635214590111*^9, 3.7657391728091874`*^9, 3.7689319857630105`*^9}, CellLabel-> "During evaluation of \ In[116]:=",ExpressionUUID->"06f512ad-91d8-4e7c-b51f-63f8181766af"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s2", "\[Rule]", RowBox[{"2", "-", "s5"}]}], ",", RowBox[{"s3", "\[Rule]", "1"}], ",", RowBox[{"s4", "\[Rule]", "1"}], ",", RowBox[{"s6", "\[Rule]", "1"}], ",", RowBox[{"s7", "\[Rule]", "1"}], ",", RowBox[{"s9", "\[Rule]", RowBox[{"2", "-", "s8"}]}], ",", RowBox[{"s15", "\[Rule]", "s5"}], ",", RowBox[{"s20", "\[Rule]", "0"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.7644588755814342`*^9, 3.7644593180693583`*^9, 3.764459474879408*^9, { 3.7644604832936153`*^9, 3.764460491486441*^9}, 3.764950862911253*^9, 3.7656352145970907`*^9, 3.7657391728121796`*^9, 3.768931985771984*^9}, CellLabel-> "Out[116]=",ExpressionUUID->"699d51ca-9591-4a63-a5b6-19bba4311f93"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Equations4", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Equations3", "/.", "Solutions3"}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}], "/.", RowBox[{"s1", "\[Rule]", " ", "1"}]}], "/.", RowBox[{"s5", "\[Rule]", "1"}]}]}]], "Input", CellChangeTimes->{{3.764458674373417*^9, 3.7644587044838266`*^9}, { 3.764458747503226*^9, 3.7644587661618786`*^9}, {3.7644593259967327`*^9, 3.7644593362552257`*^9}, {3.7644605368432355`*^9, 3.7644605691350718`*^9}, { 3.7689326488352413`*^9, 3.768932654997641*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"071faac2-a5b9-4f45-96e3-10aa962168a5"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}], ",", 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", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], "}"}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.7644587008466797`*^9, 3.764458705187195*^9}, { 3.7644587525394464`*^9, 3.764458766864689*^9}, 3.7644592474836473`*^9, 3.764459338826841*^9, 3.7644602865487385`*^9, {3.7644605440589256`*^9, 3.7644605700762844`*^9}, 3.764950862977625*^9, 3.765635214667901*^9, 3.7657391728900785`*^9, 3.7689319859165974`*^9, 3.768932656415254*^9}, CellLabel-> "Out[134]=",ExpressionUUID->"f31e7a89-eb18-4efd-bc1e-8ce0a9ff8b14"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FinalSolutions", "=", " ", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Solutions1", "/.", "Solutions2"}], "/.", "Solutions3"}], "/.", RowBox[{"s1", "\[Rule]", "1"}]}], "/.", RowBox[{"s5", "\[Rule]", "1"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Solutions2", "/.", "Solutions3"}], "/.", RowBox[{"s1", "\[Rule]", "1"}]}], "/.", RowBox[{"s5", "\[Rule]", "1"}]}], ",", RowBox[{ RowBox[{"Solutions3", "/.", RowBox[{"s1", "\[Rule]", "1"}]}], "/.", RowBox[{"s5", "\[Rule]", "1"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"s1", "\[Rule]", "1"}], ",", RowBox[{"s5", "\[Rule]", "1"}]}], "}"}]}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.7644587098153276`*^9, 3.7644587388758593`*^9}, { 3.76445886826017*^9, 3.7644588752378836`*^9}, {3.7644592573872933`*^9, 3.764459311221069*^9}, {3.764459371391546*^9, 3.7644594680944586`*^9}, { 3.7644603244940515`*^9, 3.7644605114218993`*^9}, {3.764460577023054*^9, 3.764460633967909*^9}, {3.768932641139102*^9, 3.7689326743505325`*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"83405575-9a92-4e48-9e37-9e4e809136ac"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"s12", "\[Rule]", RowBox[{ FractionBox[ RowBox[{"2", "-", "s10"}], "2"], "+", FractionBox["s10", "2"]}]}], ",", RowBox[{"s13", "\[Rule]", RowBox[{ FractionBox[ RowBox[{"2", "-", "s10"}], "2"], "+", FractionBox["s10", "2"]}]}], ",", RowBox[{"s16", "\[Rule]", RowBox[{"2", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s10"}], ")"}]}], "-", FractionBox["s10", "2"]}]}], ",", RowBox[{"s17", "\[Rule]", RowBox[{"2", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "s10"}], ")"}]}], "-", FractionBox["s10", "2"]}]}], ",", RowBox[{"s19", "\[Rule]", RowBox[{"2", "-", "s18"}]}], ",", RowBox[{"s21", "\[Rule]", "1"}], ",", RowBox[{"s11", "\[Rule]", RowBox[{"2", "-", "s10"}]}], ",", RowBox[{"s14", "\[Rule]", "1"}], ",", RowBox[{"s22", "\[Rule]", "1"}], ",", RowBox[{"s2", "\[Rule]", "1"}], ",", RowBox[{"s3", "\[Rule]", "1"}], ",", RowBox[{"s4", "\[Rule]", "1"}], ",", RowBox[{"s6", "\[Rule]", "1"}], ",", RowBox[{"s7", "\[Rule]", "1"}], ",", RowBox[{"s9", "\[Rule]", RowBox[{"2", "-", "s8"}]}], ",", RowBox[{"s15", "\[Rule]", "1"}], ",", RowBox[{"s20", "\[Rule]", "0"}], ",", RowBox[{"s1", "\[Rule]", "1"}], ",", RowBox[{"s5", "\[Rule]", "1"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7644588755814342`*^9, 3.7644593180693583`*^9, 3.764459474879408*^9, { 3.7644604832936153`*^9, 3.764460491486441*^9}, {3.7644606289979115`*^9, 3.7644606343114862`*^9}, 3.7649508629915915`*^9, 3.765635214682863*^9, 3.7657391729080305`*^9, 3.768931985997916*^9, 3.768932675461404*^9}, CellLabel-> "Out[135]=",ExpressionUUID->"75d7f571-845f-4fe9-84d8-1dfc70ac8462"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FinalSolutionsSSTPRSCorrected", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FinalSolutions", "/.", RowBox[{"s10", "\[Rule]", "1"}]}], "/.", RowBox[{"s18", "\[Rule]", "1"}]}], "/.", RowBox[{"s8", "\[Rule]", "1"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"s10", "\[Rule]", "1"}], ",", RowBox[{"s18", "\[Rule]", "1"}], ",", RowBox[{"s8", "\[Rule]", "1"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7644606615380173`*^9, 3.7644606938263597`*^9}, { 3.7644608473412313`*^9, 3.764460876041751*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"e40c32f2-26c4-40bc-8876-d48fce23f6ee"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"s12", "\[Rule]", "1"}], ",", RowBox[{"s13", "\[Rule]", "1"}], ",", RowBox[{"s16", "\[Rule]", "1"}], ",", RowBox[{"s17", "\[Rule]", "1"}], ",", RowBox[{"s19", "\[Rule]", "1"}], ",", RowBox[{"s21", "\[Rule]", "1"}], ",", RowBox[{"s11", "\[Rule]", "1"}], ",", RowBox[{"s14", "\[Rule]", "1"}], ",", RowBox[{"s22", "\[Rule]", "1"}], ",", RowBox[{"s2", "\[Rule]", "1"}], ",", RowBox[{"s3", "\[Rule]", "1"}], ",", RowBox[{"s4", "\[Rule]", "1"}], ",", RowBox[{"s6", "\[Rule]", "1"}], ",", RowBox[{"s7", "\[Rule]", "1"}], ",", RowBox[{"s9", "\[Rule]", "1"}], ",", RowBox[{"s15", "\[Rule]", "1"}], ",", RowBox[{"s20", "\[Rule]", "0"}], ",", RowBox[{"s1", "\[Rule]", "1"}], ",", RowBox[{"s5", "\[Rule]", "1"}], ",", RowBox[{"s10", "\[Rule]", "1"}], ",", RowBox[{"s18", "\[Rule]", "1"}], ",", RowBox[{"s8", "\[Rule]", "1"}]}], "}"}]], "Output", CellChangeTimes->{{3.764460668462213*^9, 3.764460694341835*^9}, 3.764460876902336*^9, 3.7649508630055523`*^9, 3.765635214696826*^9, 3.7657391729229894`*^9, 3.768931986079898*^9, 3.7689326974452887`*^9}, CellLabel-> "Out[136]=",ExpressionUUID->"98486df5-e704-497b-b53e-fafce15aea52"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s11", ",", "s12", ",", "s13", ",", "s14", ",", "s15", ",", "s16", ",", "s17", ",", "s18", ",", "s19", ",", "s20", ",", "s21", ",", "s22"}], "}"}], "/.", "FinalSolutions"}], "/.", RowBox[{"s10", "\[Rule]", "1"}]}], "/.", RowBox[{"s18", "\[Rule]", "1"}]}], "/.", RowBox[{"s8", "\[Rule]", "1"}]}]], "Input", CellChangeTimes->{{3.7644606986710205`*^9, 3.764460734793095*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"a7a66904-c837-4f23-bf85-e279a7b3bba3"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{{3.7644607298923635`*^9, 3.764460735121394*^9}, 3.764950863023466*^9, 3.7656352147137785`*^9, 3.7657391729369535`*^9, 3.7689319861580105`*^9, 3.7689327010788307`*^9}, CellLabel-> "Out[137]=",ExpressionUUID->"965548ea-1010-4422-9b93-8a84e6d5a8c1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SSTPRSCorrectedAlgebra", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "==", RowBox[{"(", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraSSTPRSTerms", "[", "mu", "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], ")"}]}], "/.", "FinalSolutionsSSTPRSCorrected"}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}]}]], "Input", CellChangeTimes->{{3.7644584193310843`*^9, 3.7644584422402973`*^9}, { 3.764458523155589*^9, 3.764458535702627*^9}, {3.7644608977013497`*^9, 3.764460921457076*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"5cb63fa0-d2d3-4a8d-9091-aa87d86220c9"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.764458449269264*^9, 3.7644584864190965`*^9, {3.7644585268151693`*^9, 3.7644585388641477`*^9}, 3.7644591487652903`*^9, 3.7644600896056395`*^9, 3.76446092525185*^9, 3.7649508650745573`*^9, 3.765635216863821*^9, 3.765739175023848*^9, 3.7689319884612083`*^9, 3.7689327109654922`*^9}, CellLabel-> "Out[138]=",ExpressionUUID->"a36b272a-3d86-4659-8e7e-a893b0d5b328"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MineEqualsSSTPRSCorrectedAlgeba", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraSSTPRSTerms", "[", "mu", "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", "FinalSolutionsSSTPRSCorrected"}], ")"}], " ", "==", RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[Epsilon]Gauge", "[", "Rep", "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Z1", "[", "Rep", "]"}], "[", "mu", "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}]}]], "Input", CellChangeTimes->{{3.7633213297567873`*^9, 3.763321329888321*^9}, { 3.7633213858087177`*^9, 3.7633213870035195`*^9}, {3.7644563965300093`*^9, 3.7644563977048473`*^9}, {3.7644564301975236`*^9, 3.764456448554699*^9}, { 3.764460947232639*^9, 3.764460995731656*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"9d6be1b3-bc94-44e9-a330-47a74119b902"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.763321364112877*^9, 3.7633213885275173`*^9}, 3.7633996575836353`*^9, 3.763406495038675*^9, 3.7644563915707684`*^9, 3.7644564566251464`*^9, 3.7644568843125515`*^9, 3.7644610032103944`*^9, 3.764950867197661*^9, 3.7656352190933485`*^9, 3.765739177204811*^9, 3.7689319908657513`*^9, 3.7689327172539372`*^9}, CellLabel-> "Out[139]=",ExpressionUUID->"023a10ff-1e9e-4a7a-b6c8-c19d9d048758"] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox[" ", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], "Holoraumy" }], "Section", CellChangeTimes->{{3.742225197042542*^9, 3.74222519916434*^9}, { 3.7633215800471992`*^9, 3.7633215815838985`*^9}, {3.7633997471890945`*^9, 3.763399750251582*^9}, 3.7634001408695555`*^9},ExpressionUUID->"506208ec-72d0-4aa8-9d9f-\ 54191bcc9604"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvV9MG3e+92/9nufidzEXjy+5QOKRZYmLSChCln6gaGUuiBIhQZQKWbSR ZaLmAbS/HOD0F9isglNtIKvE1dMYbWN6NqNtrOyJsyejdOv04M3BaSErnC1u 6yhYWaeBPqbBbSBALAfZwTD5ecZ/5jsz/jNjz5ix/XlJ5+icxsyMv575zuf9 +fs/Tw4e/1//l0ql+uD/Tvyv472jbf/6r71n3/kfif+n+18+GOj7l1PvH/2X /+9U36l//X9O/rfEf/wo8T9//O8qFfV/vwUAAAAAoEhioZkLbZiKpqFz0hsh 9/uKAEDZkGtfnW+rpx8ZTGv6bDGyu99XBAAAAAAAANQk5KtF+2ldSs3Vt5nv heIg5wCgIGQ8dM8Mmg4AAAAAAADYRxJqDj+lVYGaA4AiIONBol+LgaYDAAAA AAAA9oNYyHVOl1JzCXP0RiAKag4ARLEbWfzMBJoOAAAAAAAAKDdo3ZwKa7s8 vwmGKAAUQXxtdiL9KKl1o9MQ5gYAAAAAAABkBg0rqFTaQSIY3e9LAoDKJRKw 92VSl9stD8Mg6QAAAAAAAAC5IOOh6VGdOh2cO3p+9mcwPwGgJOIrrlF96plS Hex1PN3Z7ysCAAAAAAAAqpOo3246mLY8YUgBAEgDGX5oaa9P+0m6LAsb8GAB AAAAAAAAEkNuLFi60qmWKnXPjWc7YHVmgwwv3Z3obPndXHhvvy8FkJTw7FjL O+Y7T2TwY5DRxU87M0+Xzuxei0t+DgAAAAAAAKCG2d2cu5Buawmlc7mJr85P 9mqxo+aZn8AirzqS9W5NBstXMnQvifwTN2aymbX9RBAapAAAAAAAAAASQb6Y Hm7MxA+a+4llUCtZiP80Yz6KgZqrYlLjF+UZvLgTsPdoM06THnsAiukAAAAA AAAACSBXXcMtKogd5Cdl6h804Y9qqbSQjEdCAe/9L+w2y9igyfiOXpMQ/nXN He+aBs1X8Dtz/hfZRhTGQu5LXcfxQCXOu0jlHsvRkZKdeKnutT/blvYEAAAA AAAAQO0Rf+EabVSBkZmf2KrzTKMKaxxyropUu7uBP7/XXKfKBqb74ItgrORr iwQcZ9o0WLYz1DW/9+ciVVV8c8nzxdS5nubUgTGNvmdw7JIVv0kkcODW8TNG vTZxCp3J8sXiSyRkubs5f7kNU2EmIiRgqZS4PjtPHb0H5QlVRxZtBqhUBQAA AAAAAKSC3PzanJlToGrotD2C2jkeZPSffzIkFqlx1PVCtIFPbvrv3SGSIujK SLeWJSiaBl2/lHpti592aTUNiEjRGc9abPbb1CnvOD3iiyHjGwE3PtLRmJI8 3b+dcnoCoUiWb05G1/33rvYdwrD2IcdjOnCZmWNYdxh/IqRrjCLXh4wHif7E t8C6J31b0iouMjw/0ZJ54iDxEgAAAAAAACgBcsMzcZgxdVsuecKVmCQnM9FH ts6EIGgecK6UatvHPOMNqrr+wV+nBIb6kO1xSSueuLYuw++v/rY1HdRqHJ0p oSd+bM33F3NnYyok13n+lvd5toxKNvGXPjoZtdfxZIOZSt9l84sP9SpofaJB R19Cd2HtHy9I/FCwY+LaYWcIJB0AAAAAAABQBOROAGcGFahahl2rkP7FYzuA v4tR08PwQMnZceSyvUulNd123zSkFcuga6P440UWbScOW77+/vp7mR9xbK7I 45HR4NxkbypAhrUP2RfWhCeXJuvOsAZNQ/p+qj8/91r0cilrfVJCXoaw9Y4f 78rEDEvU4AAAAAAAAECtQgaJXiZQIIlgqT7IVaKXyo9rHXW/KHl1djdcH6hV 3XhgdW4s3YXmMB4ocpwdnUx4+OOF8KprsCl1NPUHro0iwklkPPRg0piaKY/p Tl/3vRSdWrr9rTUzO7tIIaa09dndcJ+jnhDpC0vJbe9HmT5EKuyY1ReW9PgA AAAAAABA1cMePCeNYKk+XnktR+jlmfS9KX15Niid0mTxxmLL9nTMqO6su7gB 5XQyoWVhg3w9N5YRUl32ZdGXuRvxO4b0qUNgbRdmQsX1IdlZJQbStWH1XfYf xK+X8tZn57GtvY4Koo3NSqy42O4UdS8B0XEAAAAAAABABKykLwjPZScdntP0 OMTrJD67j22H1HUj7vDbhMg4nxYZ3XigiIS+ZDIh1Vd/1287lJYF4ivOMj1M aHTnXEWqOQryhbM/peiKKqBT4vq8CTpOUqujHiBWpa10YwfpwKMCAAAAAAAA iCCdSwbGZD5iS/YTlDGPnXQE35R+uFSBGBFMLPVeAE83oymi6o0qfjx2ONms AwlmiT4UGQ9Nj2Z6nJbe0ZH80ZGsfSulgE5B60MfKyXqG47ZnxaZ+5nz0Oyc 5x5HEB5CoIogo8+9d/9kGXm/IzmXBGvuMA6N407P0qbU00AAAAAAoPZgh+dU 7VN+CM/xefO9tVUtnaWdKRCj401h90hdsdmJOwF7z/EJT7KRxi9FF9CREd+U ITMlQJL++RGvRa8qtYBOKeuTgnzu7D9Auz0kSbtF2QvPfYj4VY5YvK8kPT4A 7BNkeMl1xaSr17T1jV8j3J4Fr9e7MPflDetwBzURsslg+SokcqAnAAAAAAAI 5Lbn4gHGjGzsJSAywId845tsLU5QZCdTIEYfbO8JfjitWMbmXos4zvYz+/ut 5q83k9dUdIFYsi9lJjwkTc5tUtClomwiUdj6MGRifB1WX6SIv89H2mmQUpxQ SQdUPmT0R5f5KKY5br71Ha9T7l40OG1uSzyTat3oNGg6AAAAACgSdqKXqvHD ueKaTlQ5235bV1IGFFMOxocpEEuy7h5pTv0EBofg+XbkzrMbPa0X5jZTkaZi C8R2wwsftzMTK6SKDSUFXVFVb8paH/alpQ4idFS6GNI1eilk0IwAUEbIyCPc dBBrO+9cCud4ajPVo5DqDwAAAADFQe74p9oZA1LdYvlG2obsVQL5g72LDu0U VQ7Ghy4KQ0NXGcGoUjVMeGLCTkElE3aZ59bSny62QIydcytdYIhWYZkomxiU tT4cMmG+ImN8+UA6yahkaacJAGUjvuIa1RfulBtbsDTR1clQNwoAAAAAxbDl Gdczek513OYXk85WO2y4BtUS2vDxENGPsUJXyZKxJL2OFSHla+xkQoriCsQ4 LXEOjc29FPt9chAJOKcmnUXE5xS1PjwyzV5KOUhOkFikSo52mgBQHhIPYK9a fWLq8atCW+YKYdRI6C4DAAAAgJqC3HAN1THGIzhIc7HrsybHbDeMe4rv48+Q JXSFZAPqLd6CiXbcZEKK4grE9p7ajzHhORl6fRSBktYnC6lmL8KuRCycmlYZ 2mkCgOzQD6C6uZ9YLtzBkqmQ7SNC0PASAAAAAESBjn5WSTZerQqJh4g+eokk 6ohCpxghBWI0a86+VPWUxkisFDgCN5mQoqgCsUyzl9Qftlq/l2AkQ4koaH2y H33F0Sv0Sopge378AFJIpwiJDQBioEuz1T03ngnprZTpYauxeEHPAQAAAIAo yGVHjwaJz0kzXq0ayURkmkfc66UfjlcgRkNFAdOKpYBdw08mfFtsgRhSm0ah iC4cSlqf7BcYdp+V0wLlJEIr4kcBAMHQfU6wY1afkAJQJiSNmYhQmVwXu1ve f7fkxOZaFp8nDgDFAzckAADFgwxrpl+mkG+Zk0ztlSQpdvwCsSSrzr50KZuR COX8czqXqemcm1u9VVSBWKbZSxJF1LAoaX1yXaLXknSFFDViryCcrEvswPg8 tCoCKoZkeE5gbyXyhXs0mSNQzok5maSLrMiRSg0AeYAbEgCAookG8G5kx4B8 yzyka/almVmQq/fja5/1SOrXOGj15RIcVDLh4WEXz1YqrkCMGdhNK4fyecjz oKT1yQHjDMknLUuAk3V54KJne/9/GAAQwt6S/RimH/dsCfhsstSOvslbPvKW 7yYH+xlQFHBDAgBQLDuPbe2IKa96z74sRbePqoRJ9pOiZj9rgRgFsqVjp51r WRXL9jP7yabhaf64puIKxMgVhwHRc3l0UvlQ0vrkJEQYkwc7ZPPLsmT0XHXk hS7MPAaAfYd2FQpUZztPHb10uymsY2J+vYw+i8xmAm1YAOWSTgUBQQcAQE44 +Zaqw3igIlvp7UZWHnvcd2/bbRbLhZE+k5GDaXDsssVis9++45rzPl2P5zMZ yMhPT1YiWT6RSbCT4u2fvUCMcx7VEauPPz8imUw46nrBv4YiC8SQM6pEt/gg w8sPviSSJJZ3wZuNf8y5PifufB2ICJU9ilqfnGQEnVxtHJgyvaSChaxLkZDx rWXvzC3bxEhftx65ybX67t5B8x9uTD9c2ip9HkTqLFfNg6bkWTT67r5RC/6l NxiuUZ1ABgmTtn5srvD8m/hPM+aj9Py5o+aZn8q7XDIJur3o1otQ6fy8FYWA fGGqf7XlEXRkPPJSgnULvYzkNagAACgLnHxLZfQ2FAoZX/ffJ/44Ptij1yBp acLAmo+dHsedD/7JEndkeMl1xaSrU9WddYd5ylZKQZerQIwmIxNUjX3OVe6/ 5kompCiyQIwt6ES+NXaf4EfqVULQmOxCh9Epa31yIruge0uGCBN6d0PWpVD2 oqGHjnGTDl09rLnjxLsdzWhOQuI/tposhDdU3LImpFxgxjbURm1B2ra+8WvE jMe74HET18YMWuroTQaLa0mwH6MoFGmYUVncTYOuX9LXGF6+f3180Jha/MQP YRwcu4I7iBsWIx2b074/tfBL2cWv5IJuJ+Qc1graDYVT19zxXt/IRduN//QE 1hQrOvaDWlltqQXdXnj+9y2ijaYCUJtr38iE7daM94f1aEUGBoCagNyN7yrj wZYWTn9LSWIWskPpOLfDOtKNWmqYRt8zOEaF4JzueTokRIfh4uuBZIDI43YS /2G3WcYyFkUGTefQ5Oe+tVg89Hdb36HkMbG2/70QkVXQ0QViuRrRMyfipwXm TCakKLZALDNfj6aEtwYZ3fo5GHBNtDFHU+tGbvvXxb4YlbU+OZFf0HH71UhT v1ntxF/6bp7R01EfTUJl4V88WFwOoQ74eGRt2ed2XBnqSDfYwY6M3n68KU7R xELzn/bp6qizdJ6/5eOEhGOhry93UnVhmNb02WIWTUdGA19O3fJtFX8fKtYw I1/Pna9HEvjpVGdM2332mnOWCtbfvDLYxljiWPul2Rf7kuovuaBDKnxloa65 +xzuDmxBTISiVlZbakG3u+Y8LfW2wQJr7qEXrvTkBwAoGXI79Ogr4toEZf4z 9z1G5dEozHVTCuQLZz8yf06amIWMxNZ8X06NdGmYTcNwxvInbpStMKnQ3gVj K/LbNmgakv9fY+f4l9k96hLW0NEFYrnzkTLdVzjtE/MkE9IXWHSBGBPzUpX+ 1mBX5BVVlam09clFZt1kLDvkTJSoO4w/Ae9nPtIpfJh++FpBYyz+i9f+gT61 EdS3me+FBG4m5KtF/BStSXLptbe0e6GX3mKxxixOBrpAsiTHgmINM/qmRQpL 94Kf/1pXxzv4sdNnTtKLf9CEP8qW5i430qdcUj6tVMRz2e/9x9z0tZE2bgID dWe6HvqXn+cNmNJ/7voLbhkx6jlhKEzT+SGx+LJGs3kRamS1pU+5jEfWmS++ 4Jn587ihibtubWdvzn4fWCkU2F8J+Lzz7i/s1hFDM3szwnQDtvlVuEuB/SOh Gu5YTK2F3pJ1OuOF6xK7bmIhz/VzVOAJ03ScIwJyV79yynMkilnIARlenrt5 OfOjaA73W/7d7V8reaPYjSzft/Uh87RVDZ2T3tx2RUZH5EgFFAxdIIbkI3F5 5RlPKw+020a+ZMK3JRWIIcPdSp6yx76viuoWorj1yXedNDJ1uaRIBjuQt6Qi epAqlZSaq28bcwpOdNzZ9OEmbfL+F6bpyA3vZCq5QW344+M8J2L6lB6xeF+x /onyWtSXKs+VaZjRYWWuQ4a61MRFJviOsq7XI/QBYyHXOR39SA45g5Wfcpnn FBkODrl+FvcEUx7mv+GIM5P+VdqHHI/3QwUrmepc7TI0RWGXXWTbrwqzF12Z zaQ5ZdZ/n3w1QM0Tfz5reS/pncGaDSPWP0/PealXT+JNtzA3feMPY0aO0KvT mSbdQUlGdu1uzl9uQ5MIj9mX5HXEh72WduS7SBSzkBiWvsZ0Jy3E92uSiejY 2gLez/Eba0/hi69ynCAzAa3EfTVZIJYndLWz4uhN32KZar5o0NF/YOCL3MZ8 KQVidIpjivou+w8lLDErDUZQVwQuClyfHBcq7xy6FNwyOqVH0veRZERMTKAt RXzNbdaltwADvpjXX7O95BhIOfHVfY5gft8O06dU3e9EgnTkG99kqwzD4hVh mG24BtXZ6luzQv7sGkqW0Q07Q2XO0SqDoONE2FXZC7SFkBAaHs4LC6xlDtW5 2vILOl6sv+hZtJkeRwz637jBBwmUFTLyCDfRrxXNcfOthVDW2oHEM+69OcqJ 6Wvfs8w+L7np4VP7sQbWYeWrykmd8Ql+GN2sSozLSA4ZX/vulvk4vY9hmo5R /P4zKfdS8tWi/TRThqc52JzprNJ4xrmaVUpEvBa9FGtFq6d8oSsy5plI3w3J aCAZDxL9LUNEHuuxpAKxvfDch+lqIo7lKRJWzZdgo46FAtcnK0wsUt6Hdfex 7RCaG31o3CPWRK8FUrPM1D03nu2I/3XJtTlzuvQTM9gWcxlOZHTx087UVtHQ hfsLKZDdDdcHqR9PPehkkoG3PON6VfuUv4hLzXs6BRhmyZiy8DSGTAy6/F25 5Bd03BrYEiPsZDx0z8yyQA72Op5CqVKKKl1t+QUdZz5OSS5KMvzQ0s42khvP ucEJCZSN+DLRT0UosLbzzqVw/g2AkX7MrlFyv2WeXxXrcWTp2C4ha84+1tu6 17GimNcC1W3SYkgmQWnfnZAyKkcfPvKEGD3CfHsqKrcR9lxK72iYNnugJ/P2 bzA4fiz+ggoUiNFXuGxP+xlp8Ujdnx39xHKee6zUArE331tb06qBZXmKgx1O Kio3VZnrk+1C0zmcIgc9iIbztoUyumyQL9yjrXSl8zvGvrOTd5+I9f+Qq0Rv 5gkw3Qpm3XN2/HhXQ/p3OCMkVIrceEyiL7kxM9qo7XFInuSuBMOMjpI0Wbwx oV+OqbqVa55jLuQXdFSwEl3B0h9eMr7qHGpEs3m6LAsbEAGhqNLVll3QcX2G JWbp7G64zrAzn+rabY8VY18C1U1k0WagiujbLsyEBDVwyKLp1CemHudK1RMA J0In+6aBxjho5A4ICoaMPHYMtdMbaGOn+Y7wyWUCDx8PPZg0Hsyy1ORzZ/+B 9H/NPsE5I7tLWa1CBWI0TDgpsbU++j/EUEs/kd3CTFF6gdjuhvtcOkgnJPSQ FXYBnRijjjmEQteHT6aUT+55r0iKafKe7XOuyXm+SoQMOnpYHqpDY3MvRR4D TTzOmqmIPiOCZwIyHYcyZtLOKjGgFqYHxaEEw4yOktSNuMPCz8MsUZkHfMst 6LgFsCpVu8UrYmFygN6H9L3Y+eliFbRpK5WqXW25BR3iIE1Sci9lamoJ64hl 99UAtUk6hQbrnhTRQJpO8dKyDAisfdJX/Iio3Yj/L6NUD+265m7zDa/cE3lQ +5a+eEWYiIlFcAzp6S1Z2zspfX+k3ciScwzNoGCFVpHkqMTPkNUgyTgADY6V In/qN0HHybwFYjRI6kj9iVO9+ZMJKaQoECND7t/o0wfptT8Tv6Wj8Ytca1gA Ba8P9xp+dBgapDxg7jNx3S9F59FVLdwNraiwKcsdkSXxmDXnJbvPJwtIrm/K EbT9jaWlvsXyjeTzJxRhmFGbpNZEiEkwYQRdqf2mRCK3oJOupIsDGSR6UZHR 2CtqwauTql1tmQUdy/KR5v3Cy31VVg4YUK2kHtX6duu3It982wH8XXaJQdFx jfKD+qITYDK2XRdKLDRzgW4Lg2mNn8wLCJWSa3+fHDAN3XwizALYjSx+ZmJp 8IMmux/9W1bea1a7JbNNFb3jRR/ZOhsE2A9o6lRz/mRCCokKxNDQs/CAdQpu 0U1R0QFlr0/2Yx7GA3JnQLLmSqiKHAZRzWTqWzMIFlwIrIkbvMRjllwSvgMg 2wot6OjOLbI0AFGCYSa2gI7+G2bZyzxmUWZBJ3FJF+vQ256LB9BDt3zkLd6f XBVU72rLLOikzNNOg3hQ0xuyzHksAEDu+KeoVo9FZb+QG64hjvfywEVPRWyq 3MycQhlucsMMdRLeoS6dXyGoYzxfzdW3TTzYZJ+H6UKvypVVmfEBFuFJJuOb j2+navfaxtz5DYhoAO9OvpS0BZIJ33JyQkpMnmVrut/eFjR/Zy8aemgfasew o+Z7szdTzkyxtlllrA9z0FRtVFnaw3JrbJXWwmjfydwPqTtX2+tYKqLfCGud Obsiq9+ICJuHJegWolRqh0Ye158SDDO6eXLDhEdErjUagK6ulEvpS7oQmIkY SYrIMa4uqne15RV0EudpJ2FmxQrbNwCgdCI+a4eIaggudKcyFhViaHE7ohyx +sR3l5cKRs2JagucfhcXFnR8NZdVBbAT27Lb/clm49Q/C21oEF2eu3PbgVvH z7CnO2G67jPjVvwmcdebTcCms7+0g9mSCcnoykMnQXHbbrOcM+rQom2d8dzl SdxxO/Gvd+75N4vYmuOr87aB9DGbuseuu/0vshcNxMMrPvfNyyd1GKbpOEun Cu+GFz6maiAFRgcqcX0oMjl+0neezwbn/ajMISP7CRl5dGPoCLVGWKvJcrfY 2lvWOrM786BBQDG2IiLo6k5b/62/Wa4aHCUYZnTzZJFCEhHj4pRg6cgq6GQq 6crASbMpLsW9aqjm1ZZV0Emfp/2W30RdVfZsaqD2SL0Bi0nOoeHN5i5y8Fa5 oeZIoxeNnXau7ZN5WKSae8tssAUEHV/NqbD2jxfC/O/LdvLnyqNLd4MU2Nt/ N3D9uAbDmjtOGHmc6GhO6KD2jzzZ8vzJ0Be/bjNa3Fm7p8aWHac0qrrmjnf5 R03zjl6j1hy/Hijyh92LhryEZaAtPc0Baz52euwSpbAobuLWS2ODPXrqX+ua u387dfdbZtIHNRJi8LB5Vsj7rlLXJ1NO1Trpe1MGE5SbUijr5Lsahq1fWJtA ZgylSlxfHU50Nd9MhJJQgmFGN7kVKSSRysSy39WyCjrZSrpScHslVUyCkCxU 82rLKehkyNN+y4+WQt03ID+sQJW2rf9/OwPiOlXy3qEV0cyH9wjvW4vL+Nrs BF0319A56RXVZpzJd80n6LKouRwxncSG/djWnjFd8gRtY0v2E5iqpN7+lQMZ j4QCnv+8YbOMDZ40duvpCAitvvpGxi22G9N/X1wJV/0q8Em3uC9bN2aeOVEB +0wlwvbDs9rdoFpPjLeZJejkm2OlBMMs6eEUZ3Yi7UkPDrl+Lq/NJ6egk7Gk K3UCXkyqhoMgVb3acgo6bp62FOvG745b4+FjoBxwA1Uq8QMQY57xBvYRZG95 Vzo8X1bxPRtLgdxZcvRSagtrHHKuips0Fw06+pKGRm4xmk3NYR0T8+vZzkRu ez9C9rV8Qdu0MQ+NxWqWZCvOxMM+QKyWpw0Sz5yQ2P8MJOFkGKINQFDLR4z9 jwa5pGrIkwUlGGZ0AZ04s/O133Y8deh9aOshp6CTtaSLhje9dr9r4feRql5t GQUdN09binXjNgUtYFABgCTwnlDxD2mWQ5S5rLsIuNng+5MmuhOw99C5lroL c5viJDA9lhfL+3uR8dA9cxunPxu3rWWWi6HBuvBAvo4Kr7yWIwI+BlQpqWCu Wo7O87lA5lMnqWFvvIxwBB1qQaGTEURt8sgxBXVwKgolGGYp6Xpo3MMf4Zfj DKEvBlI+t9ZRt5AcdmmRT9DJXdJFn4ObINRgcPxYky+kKl9t+QQd70uVvm67 Yc8llmsp8aY03SrUuAwASiWboBM5vYj7GpXj1SA1mflZKfZlZgHdu1tV3Aj1 sM96LF3ZddIRfMP/BLn5YIKr5tS60ekc/TOjQWKQkXMCTIt0kK7mG4vVIume meULz9FwJxdINR4dQODujSwLCumCK1xNx9YW/o3JE5AtUVYJhhldQKcSoSXj y0R/0rWYpedwWZBP0Mld0kXBmrJBs2/FE/tMla+2bIKOl6dd+rqlBg+hu0ZR M20BQCSsNvUpRLaprMQIHfeai5jAWyrki+lhKsSm1pm/FvkeJ3cCeFfaPsJ6 HFmyHneeOnq5ubQ5GqG8RTI/Ux9sHJ4W4CmOLNoMGATpapDU8PSyD53kZnfv w2Nb4ZC78d0Czyp3b2RbUEzE6kC/83nhxz7+cvH2b9swtUbDmSyePl709Wtp HNdKMMySBXTNHR3NgpInmbGVwkfVSI5sgk72ki4KvvVRo4Ku2ldbNkEndZ42 uT4/0cGuctGPulZq8Z4Eyg+56hpmD+4x/OmfohpK82voxL0ayHi87MEx7syC 8rv6UymLqsZRl9i+IqzcyGxmFfnz7PmjGOc30Q44lnKYItFF3IBE53Rm95qg SyLDDy3tiZdIy7BrFRRdzRB/4RpN2PRydZ7PAzcZYF8C6xUFNVPjKwK3jPR1 6zXMlkD1azV/4pgNbPFFBLcSh2NBkdHFTzvpIxXy5OxsBf7rat8hDGsfuul7 GbieSilA+wnvPbUf00j0IyrBMKML6A5cnP/h8wFtQ96IGxnf9N0caqeP32Sw fLVPau6tjIJO/pIu7pwdmhoVdNW+2nIJOmnztJmO5RnEti4HgJIgI8/uX784 aDIajf2jk3cXN8U53flReJWQN3R8I+C+Pt53OOXw0bQZx3B3YKM8mwMvOafc Ax/TDSqLiHFE/okbmQ0oix94e8kxwN5SqM8NOYPZ15bxEtNoT+GLwtuc7kZ8 n1DWndhGOkDFQm5+bdap5es8nxfuRLCKmJCyH5DxrcT+esGoS/fzwJo7To2M W6jhgw588vLYrzubE/+UmZzIwMvZ4O+NsdDMBboxb464EqUi/4aPdGlUdbq+ q+7lMPUJcsU5kMwtzNSgxVadZxpVRyxeoeVm+VCCYUYX0NEtU5K9i+vbxv4a 2OJs8GQ8ElwgLCb6p8H0w/iDYJn9ImxkEnTlKOlCLp6hJgVd9a+2TIJOyjzt +EsfZ9PAjppdP+7r0w0Aosgyh67gJB0y8thBOScxTdsp89XrN6/9LmV4JO7/ maxDtSSGlznwnn05Jv9pM+ysEgN0x/czItuBMu5xmuYBJ6c3Z3qkNYvc1Rkc u6WY9U/qxyK6dAIVCBly/0afuPH6ieX9sJq4vYxk7LBRsVAOOny0IxWPq9OZ Lt2cfbIe5YkbcjvkvWXubGQ/9fz9PGutXCzkwQf19bQkHLY67nm8Xu/CnOvO TdwyYtQndpTGjqHJO97niDGT6dGEaU1XZ76ZddqG9Jhk7mslGGb0NWRSJmJr C3h/4r2mOdxn/oP9NkEQCSn98djpY810kR13cuW+IZOg45V0ydL7+rXPeoTz tqtJQVf9qy2PoOPlaRe5bmjAPbVlaDon7i6FwSQCKootz7ie/YgXqK0gI49w 00EVdmT09uPNlARAGuaXw/PPN1rKW/RHBgkTZS+InUuSTnFM7z09N56xUp7I +KpzqJEr53Lm0JLhwI1fl6bmksdJ5iZBakHVkxTvogcmSgd3tjh77DUQW/Pa h/TpLUL7nsX1Q/5fiow8dY4dxZhdl2cZohmSnL+Nhh65b101Dxo7aI1CDWfs H5m4emP6YWA9+45DxQ3x86cSn8eaO09fcjx8LpH7WgmGWfIaWL5BaonuE/gV M50AYzQNjl224rdcippcKY+g45V0yTOu4hfXYBP7dVeTXS5rYLXlEXTcPO0i 1o2MPvcSFw3ocCjNcfOt79bAvw1UHNvz4wfYCqLxw7k8pejJkj2+dgi7R9IS S93vlLl3My9zoMwDrVJfVmTzGU5NB688n4z4pgy8XMtcM8Q5sTlxmZY8knmb 5QqwAvtBMtFuH7s3vM0iN2rSHZ+d+Evf9dO6dOtbrfGT+ZCgrAMy4p3sbEgX xK06+xorcIWVYJjR11B5HgZ5BB23pEt9yPZY+qT8LB22Rb5Vq4MaWG1ZBB33 G4lZt3gkFPA48d8xae2JbVd38vLNWV6WNQBUBOnu5Qz5i8J2Qs5hrUprwBe5 GgPtUiK7vIoG8O59NFrSVSqi8jyT9SbMRsrNectSwp/8avpuYwZT38gFi+3P 03OzX1jey6g5rO28s/TcgPjq/GSvFjRddZJUc/vbveFtFldM/fm51+AI5VTC YlrTZ4sR4QZdMkGCnj/yem6MM+qkIpJalWCYUddQ12RZKGfuvhTIIej4JV3y tB3jNjdT1eRsyppYbTkEHX+sXscYTuTjJm61WCwX2D2mMI3eOGp1uH0rkWqL yr1ecl2zKIVrriWomJcT3tBVrH3Sl7tXc3IWdtbmeOxKfLkTIHmJW+UVdKmt SURS0O7m/OU2Zi/lJzdy5J5w6ttGiYAI2y8vZHjp7kRny+/yhWiBSiQ8O9by jvnOk/1OqeVX5St+QkoZYPc1wjo/8Yl9osllR49GPeha545ur4w+okowzOhr qMTwkByCrjwlXVmaLpY72UYR1MRqyyDoeHnaRUFlmveNWnDifvUJumxjqveR ysgWqVR2N+cu6NDlLjAgO7ZkP4Fln1ideKf0I76fsgu68ubJ7KasJoFfMxZy X+pkrA6+muNMkWOh7vzw9uyjlcirlUfeBfcf+5s5G1hj5/iXS1IJOgCQF/4r uOYFHbdLbY4U6wLElu3vqeo/sE32sPeHilAoSjDM6GuQxZCWGxkEXZlKuniZ NvIMX1M6tbHaMgg6bp52wW5+6OVE1kMrge/nnPgFYyvjEtKdtBBeBXQ6kgjy p+nhX2W3LMsP9qvh6Z9q7eEuH9vfWtvRbeSgye7PZ0lsf2NpUavap/z80UXk c2f/AeZIDROemKy/G6/gosxpRcJr6OK/LOD/ry7zRGmO86MkyRKY7I9A0roj Iyve/7p5+SRzHKzV+MFJfabcRlyCFgDsGzyXYQ1mWKFwZpQUPxGSXtjG5mZO wmWvY0X59SBKMMyoa8B6HMHKMzhkEHTlKemiw8rs21WO4WuKpzZWW3pBx83T ru+y/1DM40tuhzx0P9vM7qH/wM6eBQMAyoY9DS3XQCKGvfDch40qTY8ji+uI fOHsR44ltvejeLjTrMot6NICVm26Fcy5aLuRgHPCkGkqhWkNFhe/0o3cWLB0 5XKhYM1H39Gz26RoukamvvStxZgRcvTP1255CA12AeXDE3TlniCpJNBHmLbk eoki5VyCEGHk7yAV0eJDCYYZdQ0NlakmJBd0ZSrp4pgNNDXo3lHaau9Ggt+4 7hCEg05qprKaTUZjT/fJ6/43JVkYkgs6Xp52l82/XfjPchwsHpoe1SELhB0d m/6x1u5FoDLhTEPDtL2OJX7cjQU9QAo76Qi+4f1T/IUT9TDRtfnyst+CLmE6 +Cbp1tgNHRP8LhNkfO27W+bjmUuk3MXOrOVLvKxX+uOa5oMazn/RG0csf3I+ /D/sg7zyWtJjZbAT9qVKq+YHag8QdAzRRzZWaL60Cd1ZBJ261fo9f79WGkow zOhr6LD6KvFWlFzQlaeki2M20FSE/0FilLbavDa5Ev00Ugs6Xp52qf21dsOe S6xEAezo+dmfwU0OKBz2NDRhCXuxBUsTlv2h5oTyD1z05G6rIhH7LujQqQGY pmPERsx4vE+Wlx55ZhzWoU7k4ho7zXdyNS0hX0wP86bOqbTDzpDQLCmkF032 4CkAKAoQdGm2A/i76MOPHbMvlWIyZRF0+nHPlmTXKxdKMMyo/JMDrR8tyP7m kgOpBV15Sro4ZRoUDcfsT2tOzylutcl45GWIYsl3azTtbZYgC1RqQVdKnnYO eE0CVY2jrheQegkomHjQOZR5EASXX0W+sXZ1/PqLH/k7wN6S/RgyXK0sPmEF CLq3lKbzO87oc6ZL6rrP4feXcydCxpeJ/mbenzWaHM9E7CBIl3L5M10BoFRA 0CVJdgxG1qFUhwwvzlUe31rpgGFWIlILurKUdGXJAFQPEKvKr/eUGuWuNtoV U4IsUIkFnVR52iz2wu6zdexlqogkhxqF/Hnu4jv73MVT887Fuf0L47KmUUvS TOO133Yc+XrHbf4yTJrgCjoJbIAiIePrfrfjE/PgyfSkuMGxKzjh/m6lwMJG g8Qgb4i4St1z41mB3Fc2qH18yOaHziiAstn1WQ+ybvnaFHRvgo6TbFdQidVD /Eoc7MD4fNGZi+UDDLNSkVbQlaeki3//q1ss31TA7SoxSl5tpCumFFmg0go6 SfO0Efij+posXnlb/AHFooyhDPs3iwEddiZRa8Q331tbmddxqVlDQuEKukob b0HuPLvRw+/Tre61PxO5KaG3dKWtAlCLcDMDa1LQ7Ty2tbMFR6klKvye5BWR bwmGWelIK+jKUtLFv/9rMzyn5NVGS2mkyAKVVNBJnqfNvUqEGmzUUyHUdIQO nW1d32aeDkowa4Pc9lxEMrPLVsbFFXT1Y3OVNIF+J2Dv4UfntD32gNhXGssc qogRwkBtQ644DKzbvgYFHfnGN9nKWoSS40dkkDCxt5TWSV9pXenKAhhmpSOp oCtHSdfuhvscOyO2NsNzyl5tJhdUmixQSQWdDHnaSfae4IfZ4rcW31CAwtmN LH5mSo2uLjihQDgv58YOoQ+Vs0x1CsqooSsSzsCIJJi2n8g9ASEXrNZVWJ9z TZYLBgDJgBq6bNG0kvOsUpMxM1RKfwkwzEpHUkFXhpKuHT/e1cD6ZRrPuStv nrsUKHe10VxQaWL9Ugo6WfK0abI4gqp13wAqFDK+6hxKFeAfNE09XJNGzb0l N1xDyDuzbsi1USaXcOUKOu7kqfQee8a5yh46EF/z3ydwy2hftz75VbOks7Jq /2tyJCtQaYCgy9IYvNQ8K14lTvl8a6UBhpkESCjoylDSxQ8YNQ84V5QfS5YB Ja824nSqO+sOS2BZSCjo5MrTfsuX2FW8bwCVCBkP3TO3JbeNgyb8UbZpaMXB mWxSzpKNShV07IERzNL9xh1K/yy7keWvrl8w6biir75t4sEm67cjd/xT7cwH KnSIElBbgKDLojVKzbNiZ0pUTgIbGGZSIKGgk72kiwzPT7SgPwzWOORclcjD XGkoeLWRFG7MRISkTIIu/TGULU87SzJ84vufdq7VZPgYUB5k5BFuorvKYUfH nE+lU3O88XMtH3nL1yK7MgUda2AEsxm1Wx4mZxuQkSd3MuPINYf7zH+4Mf3A t5LjRyNXXcPM0crVjkbpkNHn3rt/soy839FMB4+x5g7j0Dju9CxtVkLEovoB QccfGNcw7okV/rOccDIlKqe/BBhmkiCdoJO7pIvc8k12s1yVOrN7rVY3ZiWv NpPCLVnmj3SCTrY8bW7Pdnrb6HEEK9jf8HrJdc2iFK65liqp14Xi2Hnq6E2p OfPMT8KeZDIaeuL1PglFC9zE+zF+LkMFCjrWwAhmt0iXzsVC858Y6SJHTHfS QnxfKC2WMzy3ddT9ooJ3HUkgw0uuKyZdvaatb/wa4fYseL3ehbkvb1iHOzSJ hW0yWL6SqHQUKB6eoDti9dXYJs8VdI19ztUSDrezSgwgsqhiwnNgmEmEdIJO 3pKu3fDCx+2owFCfmHr8qjp/EyEod7XJmNfSlPqzdotXmvG2kgk6+fK0t7+x tHDi+mVr9CcPymjsnwEasRdP/KcZ81FaIQhXcwle+6xHBDgzOW/MMjcQW3eP sEdyl0HQxdcD3z5dL1IRxEIzF9q4WZSZyRHpf8UO9dn+LkR0cFI3sS48IGp6 XdVBRn90Je52zXHzre94WngvGpyms47VutFp0HT7C+8NI9E05AqCK+hKk7Sc nuQV1F8CDDNpkErQyVrSRcZD06M69EfRj7pWir1cMr71zOP8k2Wkr1uvVWn0 hsEJ/K4P2fl340rf55W82rwCOnI79Oie3TJ6qqMZU9U1d7w/ar01G9gQ9fNJ Jehky9PmeMaK2E6jQdd4p6ZeZ/p0YbPAX1GpRH/7/M7fHknV0SLHaX6aHv4V v2fD/oD9anj6J4U/lgqFfPV46gR1c4pTc29TBfsFhTRn/FxW5+fes9snj7xj /6cM5kXEa9GzbhUZlX8s5PlspCMzvu/o+VmxUyd2I4//aOD3tWybmKXyH9Ke NOG/FLmxYOliHlKsy7JQrm40iiSZV4y1nXcuhXOsA7nt/YgOBkAoc3/ZXXOe Zr9fQNCVsgLxF65RpOlBcz+xXCmrqWDDrLKQStDJWNLFlH6kKKGcP/6L98ZZ OumisWPoimNm3rsw65wa6UgY0v03FiM7Ef9fRhPv62Le1OVEwavNKqC7HXyx YB9qxzBd9zkb4aZX2zakp/3P/fg/hOsRiQSdXHna5ObXZh1n22g0OZ4Jf6LI F87+1AEOjXte5f3shmc82f+gxPQMoBaIBOx91AMpWs2ln7oCAS/O+LnGXiKb ngvgh+Vow0tRLkGXNU/ykM0v4iuR8SDRr+X4SDBN5yV3iK6b2f7WSsXahFti 6HR4FVqCV6PEV1yjeqztwkwobx1SbMHSRMerqzbzqiLIGJ8Zak/QvZ4bQ13z pRhyrFAUpu11LFVMpF65hlmlIZGgk62kSzo1R8ZDDyaN9KG0vZPzq8i33Y08 +4/BxjrduU+uGFIpAIqeTqvk1WYK6NS6U0OndPVag8XFcpa+WZv9PZ1xpDVM +QQeXCJBJ0+eNhly/0bP3jTEbqfohlYoY41Z4QaD48dK2bKB/SCTvydezaW9 poXkkZDxc8movUytF3dWHL2sh08WQcfLQhd9LrTFKLJRpDItE2wH8HcxEUPo 0HmC9Nob/vg4Uq2eZyFsP7P3qgVVB6TrLiVrvAAUAU/Q1WBWPXcIeNF2eGTR ZmD2Au0gEaygwdmKNcwqDokEnSwlXWR881uWvsAO9duLVnPpl6n2FL7I3/A5 LfqLyuAlo1s/h0LrEdn3JOWuNlpARy1j25hziW9jZEYmYcesPkFFdtIIOjny tLP57Qu7iLkgG1rDhCeW56LQbNvaKyEHRJDWIFz/ldA/p50MhZwG7CG26n5n liS25FzX1knfGznepGXx8/Mncib3N+74gFxkVXP1baNEILM9bs+PH0jouXfx gJBcI+4Bxe85VQa58+xGj1pYcJMZNFx7ISEFwYutH7T6as4h8SboOIk4it6z LxfxFJPRxU+RiZbo6JNKQLmGWcUhiaCTo6RrZ3Px9ij6BtS+Z5l9Xtwlkmtf nU8dqmXYtZr9VmFVgojt5rGbytWkqNOZrrhyJvCXjpJXGymgy+cMYZzqAgcQ SyLopM/TJl8FiN9y+xtk9xjkBdnQCvmmkGxbiWb8AdVIOnxTxN2YhPzZNXSw UAIwZy860O98zjtXsmt0XbvtsTzts8mYZ6KB9QRKbqUn00ox7dGjTE2p4KYl /FBa8s/ZOed7YffZulyKmH9BEe9kJ/KlK8whLwO0k1Ddc+OZEPd7xgtRgyEh BcETdMrvTysD5CrRy6iZ5hH3uugjsNoiiUh8UgjKNcwqD0kEncQlXWQ0+AAf 1iOV3prOibtFS6RMv24V1jg8nft1+cozfqi46ydDXwxw3te6C3OFWlsUi4JX G80fyLsCTHsrYRcvhaDjzD4uOd8mvjo/2ct1AenPOPyiNw1kQyvkm0JX2OAQ MuUdqD3SfY2wo+Zpf6gwwYDPizDvdt62X/k1vSfk9xizo2NZ8y3JF+7RVlnH Ick/zYru9knZWmvxdf99519dc49WhCY3xkKzHxvYbwdMN2DjxkyTb5+mQdcv hQ6Y+HFnJjqZdJIacDsXhO5zIjTfg6n6lGpMKlAUv7gGm1jPRZ9zbb+vaT/I FMVTCHRxZ2CXydS3me9VWu9W5RpmFYgUgo5JYEhTdElXfCPg/uOgHnH6Uo7Q 2ZVo0ZEIOq8+dai82SyoqSzu+mPL9vdUXBq6cL8sFoySVxspoMs/iwqxwQRZ X1IIOm578xLytHc2F/86YWC9jKiIpPGT+WIsK7SArpBvCllheVpMABUPuflg gpvdVywF3q1sQXcYD3B3jmQukLzjkMgVh4F10QXbCoklGUoQv/lkMS3q9UN2 7xp/l0hWdRVMot6N+B1DzI6NNFSpZZLhuV4iR/IN58O0h4EiewMfoFxwJ0jW bLyUfDE93Jj2+QhNuqb/MPLI3n8o/ZeVqObeKtgwq0RKF3ScqabFPZjxyIrv b9cvGHWoVKFyF6dF9rfnQG7MjKaflAIbPtNuSKypzMscyGnelI6iV3vXZ027 ivJngabyi5JvVSGtGksWdGQ8eMvEcgMVNfQ8Hk6sHD7SxZ3PhrUP2ReKHSKA FNAVyKJESxQlHFQBVA+8vkalUWATQx/kbC/i6CNbZ4PsbaLZdXyJHdFIrEh6 gmRSRF2b9TvBeY27kSWXhW1aYLqBq+5nObKhksZt3v2NDC85zyN5ROwSvBqG nmuvH/dsCfhsstQuuYN+5N2uOOu3iqDMBTRyLd3oscojvjY7kXm0hXU32osG Z5Ad5qBx8kEFqjklG2aViEhBl+z7QfF82f+d1zND2EboKQAs6vrwef9y/iyf lcAjOrfHgVtGjHpOgDQhLiyE93m01N8h2TcsSdb6DoZdvy2dcCnWVE6sYX+2 cV0ll3JU2GojkcoCiZRoTFOQ9SVS0MUj6z8zX3xhbtr+e5OOHdZUqXUj/+4p tG4Uy/700n3Q3cw5SILGTvMtb6gEywApoCuUAoSUKBYe9wzUHvGgc6iFd4sW T92IO38SGzJug/fh1DRz+Sv0uTmXRZkE+SB3Ajg17A07Mko8KVifQkZ+cF15 X4fu05quEfyr5XxGWtJNnUszkvG1726ZjzPfUvvuhLPwldQG9K4oUJ1l6i+w jon5dVi//YTTsV9QvnH1wmrigWmNf5hbyZkbQUafP0yN30ruBu9Z3D+WbL+V gYoyzCoSUYIutmQ/IeugYazZMGK9Net/Ic3Nmewbljr0SUcwTw6gcDGShWzT LlQlNyGstNVGU+ILZIGiQXZB27gYQbcXnvuwMesXlnj1es5N3S19x0AK6Aoa osgKyxL/BSobXjVZiQjJVUDaZTN9LMn4pu/mUDtWysxQEXBztxrGPVJn2Gwv 3R6mNRqm6Ri23vjyQWCd976Mrfvv37x8ki3lOocmP/dlybHksBfx/F5HHb59 8Boq/XYjwX/Qk1IzB00YKn8RcECBRIOu8U5Nvc706UKhou+EGen92+d3/vZI pMebjG8te2duXTUPmrr11O+k0Xf3jVrwL73BsAQpdnSthKAxQykPQ5FTPACJ 4c7Ulrz0tdIgw0t3JzozTzrWarpsn37weDn083pkJx55mdAwiw++vGEdRneD jtE/Z0vhViAVZphVJqIEXTSAG6SWGFp9d+/g2Mf4LZcnEIpIGRtlT7wtYAAj EqMYU3k3Erhr6T9MWxXatv5PvpqZPFzqBlVZqy0mZ5XVpVaQ7BUj6HbXXWck NWt5q0fMPPT/JNHqoQV0hWp/mBXGmiwLFbGJA+VEakEnzGeesZNVdTrj767d vH7VfKotYXJg7UOOx2WJIiH9rJLI0i4vFvJ8NtLBMUnqmjveNRpPdHPTHijd N0k8DApPiWS76DX6d4zGd/RoPgbWarxw/f6ylP2TkQBrwcLDTOsGQUnyycPH twIztiHqZki8FvvGrxEzHu+Cx01cGzPQ37SJGlJaYtYolXCL3KhkePn+9fFB Y0fSaY81dxgHx67gDuKGJTWF9v2phV9Aze07SIFGEhgh8ZZKpAw9vDHKSx3k g+m6z+Hu0mpkyktlGWYVikRz6JQI2g2ykAEcW7A0pV6dJXl349uRZEcRyvtU Wx4nJGe1QOtdMkSYMnaKsN77Eg0WVyBIAV2h0DCywrWdnQIoDaq9Ej5mbEu9 rzWH+8avl9HY4LWlkm+gFRkJPvzPG1c/PN3ZnMXbpmkzjly0Oe7714t7hyQ0 4/Vz3awQn0qjNwxO4M5/iNCGQkG9Sd14IG+BIFOoWGg0YYpYaP7TPiqfCtN0 nr/l4/Q/jYW+vtxJnRsdrY5CRgNfTt3ybRU4U3JwBtOLld4kMW332WvO2TnX 58TNK4NtjNbG2i/NvgBPmBJgld/St1X+Aaw1RULWPbpP4JaRPranKKFc+kYs OOH2Pl2vhBRLoNxUsaBbdfZlvKkFJMZeAD8sqalMC5DqUx952F1znk7ZIVh/ 3nuJtZMLbBxdtYIODVYWyFNFSzWLGz8KAFUJbzRnWUc0xl6GZJCu8Y3QS7mf ccSbVMCcRldYQE4FE23MpdfeIg2os44Toq+tcANn2m17yOZPn2Ev+PmvuVU5 Kqz52OkzJ+kxHOXJAQYKwnPCwBQeACiV6hV0rLy+gtOUpDWVk6+/kscjVhLJ UU00BdzjiBWh0vQ4BI1cqFZBhxTQYYWiCkhWMGLAAADAG01bKN4EvGW9Igu1 CkfSXQqKZXLDO9mTjNUW6NfHFLkfsXjZCZ9Uzkx94eY25A/2rnpuAV08sk53 TPB6v/MvPw+tR2jLJhZynaOqFFUtQ85gddk6lQg3TVqGulcAqDWqV9Ch9SQF pikhpjLLqibja08e+tfErwvtfSpt3nelgcxuyF/AgnaqEdzPvEoFHZryVCCI jDZ5ZhswsXX/t/7KKIsGAHngdsyDoR6FQVRwoY7x6JDWApGU7SXHQOqj6j5H ML+sZpx76n4nEqQj3/gmW1UdVl+h3X7DNagWXNNH/uwaSpbRDTtDco25BwRB /ugwNCAPbC3PLAAAqaheQYdOOcnf5wRxVLI7b1OvG6zPuSb63HQ3wtrqQ8gI urxz8dBORyJmr1epoEODlQVCw4j1xTZgqLu3Qeo+7QBQUYB9KBrUm1QomYQp oMvf8Co5R1749o5cg3rQyZTZbXnG9ar2Kf9O/t8wmQkjPBqbSRxVt1q/z9Pz GpCdmGccfV4L9+QBAKAg1Svo0F7WeWNG5IrDkJYYrHLvok1l6vVXa30IMzdS XkFHBonelJ7D2j9eCAuNYFanoEOzggvMlcvZvoAWeu0Wb/5xYQBQ3XAzuApO 0Kt5EG9SgSxKMua1pMel5A197vjxrrSZXndGSIJK1vGv5MbMaKNWQDY+nQja ZPEKbqbBvOsha31fQYwuIa8/AACEUMWCDkn7zyPoyC3fZHc6kscq96Y7pQjI +uCSsL3P1Kn0456tYq+8EmFe+rmT4clt70cpGwLrsixsCHehV6WgYxX+5Lep oo9snWlLiZU/TJd/Hrjoqc2hKwCQAvV40NRWgoR4EG9Soc5U9OTuwob37ob7 XDr7AjswPi+ogJwZRpYJqu6sEgNqIXqQLqATp9yZ01WfwVNB8LoYgb4GAAmo YkGXzMOnyenEi4VmLrRlmkSz3lZvgo6TGDMqV/hp6SBUEX9Y6WSK43K0JiMj 3smUKjlosvtF9SyoRkHHMUF7HSs5EpTIjQVLF9PJHK1hIZ87+5uE2k4AUL0g nYppaquEWTSIN6muUBYKXUFQUCaTy46eTNW6YH8mUvyYSu3Y/sbSUt9i+abw nkYV0GlNRFDEi5YRdNA2Zx9BXATJWxDi6QAgAVUs6Ki4vnMg2e0ka6AtqeYa jhoNupSPEIl97Dy2tTcKL/JKsxv2XGpRNfaKestUCdsB/F1Kd2AnHUFegUJ8 xTWqT6k58Y2jq1HQoQV01LIMuX7OsirJBuBYm/HEr1IfRMLNe0v2YxivQRwA 1CDcqhwB3fVrF9SbVKh8idFc+eoIWPkGBbqQISC9y2hBR88yENS0RGwBHf03 TKZfTfWgVhqIi4BC4GRDAADyU9WC7i0ZX3UONWLUNJxexxJSYU1Gg3O2AR12 0DT1cG07k/mfaUwRDRKDWsE9GBmSqXEtH3lrMwUuuogbtNRcoSHnapwJI8U3 fTeH2mmtd2SUeFLEGKAqFHSssRq0tdR2YSbEMpfIyDO3tVeLHTXP/PRmlUgO bWKCv/Ggc6hF3Uus1uS9BgBsOFYi9EXJA+JNKhTKRMrc8gxpReaQFh6CgMAS dAuJ926/ViPMjxr2WtpFTqMmY56JtOivSoOnQqBmUjApJyCuAUAiqlvQJdiN BIjRtnpK0xnGb87Mez0zxLXfGXV1mG7ANheMUm8DMhq4YdLSus9onfb83XVt WK+mrGhxK5JKjWszz63VqiFBxtceTpkOqlR1OtMlarUXZp34WDe1tnW6vqvu 5XBxK1N9gg51aKv1R49oaL2rO3nZ/uXcgjd9l9ZrOj8kFl+m5iil0oMPGq13 PZ5710eOYNoBxxK8CgHgLXucKAXkceUE9SYVGN4tcEgrMramcA4nenhG0NWd tv5bfzPW+eliVMBbYu8JfrhOhHKkQDL9xClBQEq4UyOFx3MBAMhH1Qs6CjL6 3HsXHx/s0SfMZo3eMDiB3/02FEXfOWR80++aMp/qaMaw5s7TF+2eVZHLkZxb qtaZv96s8c0pvhFw37CMvN/RXKfCmjuMg+art9yPQkLe0jkPWW2CDk15ahp0 /RzfeuZx/sky0tetp0KcGn1336jVMRvYiqOrtrMVuH99fNCQ+IymzTj22YMV eBECQApuGZ2Y/oc1BWJRY6zJq1lAhrTm61yx6uxLN0QRNQQQHRdLXY7Btiho hydDhAkTGYRFqvxEKkFAQrj9i+C3AACJqAlBJz+7Ed8nnRimNX22GIFKfOmp OkGHdFnH+uHRAwAJePO9tRU1FaHxRVZQi7p5xL2e97PMONf6sTmkKDG27v/W v5YJ2CFDgkQtO0vQHex1PBVWtL4Xdp+tE/k6IIOOntRXyVGwDJQDTvG4yLY2 AADkBASdJEQDeE8jqDnZqDZBR+cLpV5o0F8dAKSBHkgNtmIBUIs6TxYlBRLL a+xzrjL/wB3Sih5TjC2B7oQFkj9R6AI6ca+D137b8XQIsVaL3JUA1+tS4A4E AEAwIOiACqDKBB2dL5TKN2m1fs9rCQoAQBFw51tBGV0W0AK6AgOd0VgeK+5G C712izezurFl+3vFCDo0tJdnXCyHlAws1J8TgQx9MaBN7rmto+4XIOf2C25e NPgzAUAyMoKuxTh2ycLF5lqGlBWgnOxuef+ddx9aLg12qKtH0CXzhZLU2gB6 AJCTsHukDjEX6866w2AvsmC1pMi/PsmmzUlYnSvoTikHLnqQOBdiqAtPuYyt LfybSZvuuSJ4unTaISa4+0p8mehPVgLWt008qPUi9/0EFf7gzwQAackIuqxU h/0MVBC1cEMm84XA4AQAyUGaeIDDJAuclhS9jpUcVWupps1pDI4VZhDNc2d/ 04HxeVaDXTJI9Cb7ohzodz4vrJniLxdv/7YNU2s0nMni6eNFX7+OZz1M0iHW 3NHRLCh5Mv7TjPkollRz5nuh7McEykLiJjFpkccz64DgfWc3EvzGdYcgHLiV cidfGOkzGY093Sev+9/AzQMomVqwn4EKogZuSKRsRN3vhOwfAJAONPytghAA D05LihztQchXi/gpLdZmPPGr1AeRfMi9Jfsx7IjFy0l3JKOLn3bSwgnrwgM7 efa1na3Af13tO4Rh7UM3fS8D148ldSOa/7n31H5Mk6MDJ+0QO3Bx/ofPB7QN eSNuyAhUVZPB8hWouf2FfOHsR+vn2qf8+e6T/QJt2YoA2aEAAAAAAlJAp+lx CG4DAACAELbnxw8g8+haJ33gV8+AFtAlVVTbhZkQqysFGXnmtvZqMWoS65tV olfNXsZ40DnUou4lVrMsamZWZo5YWDy84vsbPtKlQceSkivOgWRQNRNOja06 zzSq+JqRhnaI0dWR8bXZiTasvm3sr4EtTpyRjEeCC4TFpKPEPaYfxh8ES5mb A0hB/IVzELn5xMwrLCuJm+dliGLJd2tUl3YNHbI9hp53AAAAQAamUTd2wr4E Db4AQFo4vS6Vmda1P6AFdGr90SMaSn1hupOX7V/OLXi9nhni2u+MunpN54fE 4ks6/zGj0Q4arXc9nnvXR45g2gHH0naOM8RCHnxQX08N0+wYtjruebxe78Kc 685N3DJipIZsNnYMTd7xPkfkFRkP3TO3UX+iNV2d+WbWaRvSYwdN+KNINglG f4VMVmdsbQHvT6g2zeE+8x/stwmCuO3APx47fayZLrJr7v7tFHfmLLBPUJm6 BxBXwklHUOHBczLmmWhIXa6Y6YoAAABADUBu/sNmalU394zdepzVYgEAoATI N77JVsZwVLdYvsklP2oMtICuadD1c3zrmcf5J8tIXzcltTCNvrtv1OqYDWyx gms7W4H718cHDYnPaNqMY589WHmdf98io6FH7ltXzYPGDlpXYc0dJ/pHJq7e mH4YWM8aKCPjWwE3fv5U4vNYc+fpS46Hz3ME1JJfgdXrnjrdfQK/Yh40GROY BscuW/Fbrr8vroShc7dyIDPR3uRjmT3IqyiiAbw7fbkfuDYgQAcAAAAAAFAu qAqsBsZ2ZPdjrGFeecYPpeMj/ZU5qIiuAYRqpsrjTdBxEsmEroTZ7uSyoyc9 U0PEkEQAAAAAAACgdHZWiQEkGnBobO7lfl+SAkCneFeoJqJqAOuaLAuQql5h 7Dy2tSPNiipitvuGK13yBwV0AAAAAAAAZSc8O9bIBASgnexbVjumSm3+SRfQ NY+41/f7QgBRkNvej5Dmqg1duD/HtAzlQL6eO5+eqAHTTwAAAAAAAMrPdgB/ l1F00ICINdChQg1UuoAOqpkqDvKFexStah10vlB+ui9SQAfjYgEAAAAAAPYD dhOGSo1JSQc9vq2yDVSqgA7rcQRrPthaWXCexMpoUoTMQMdMRAhuOQAAAAAA gH3glddyhIkLNJ5z13JkBymgq9QEVKqArkGpw8uAXER81g4kPDdArCo+3TJB 2D2SelwUOy8PAAAAAACg+mGHBiqickcukAI6TY+jIjv20QV0MFWwwiA3ZkaZ atYKCc+9JWNeS1Pqmtst3vB+Xw8AAAAAAEDNwg7S1fD8grjXoqnscsK98NyH B1o/WqjVX7AyYZeyliM8R7KmK2r0hsEJ/K5vjRmtuBuPF7yFeAV05Hbo0T27 ZZQalaiqa+54f9R6azawofxSQAAAAAAAgEqHfDE9zAQIajdIR27+w2ZqVTf3 jN16HAFJBJQFdniuvt36rbzhufgv3htnOzSJMzZ2DF1xzMx7F2adUyMdmnpd /43FyE7E/5fRjkYVdvT8bN4peKwCutvBFwv2oXYM03WfsxFu+pi2IX3iJNih fvwfa4XlIQAAAAAAAFAK28/sSN5ljVfSAUD5KGcRKxkPPZg0HqROpO2dnF9F Yme7kWf/MdhYpzv3yRVDKkxdPzb3Os/BmAI6te7U0CldvdZgcS2FEeX2Zm32 922UVNUapnzgIQEAAAAAAJCX7W8sLRlJ19BpexTd7ysCgKqHXcHa2EvI1500 oebumdvoqXHaU/jiK96Jdjfc5xoZbVnfZf8h98WgBXTUh9vGnEsRnhQlg0Qv fUjsmNUHRXYAAAAAAACywjbn1H2OIEg6AJAT9uw5rAsP7Mil58i1r84n1Zyq Zdi1mv00b763tmbkZf4+J0gBnQrT9jqWsl/5zoqjN1VmN+TagCAdAAAAAACA rJCrruGWjJHWODxdkX37AaAy2A17LrUwcs5gW5StN+nOU0fvQQHP9SvP+KG0 SyfvbHqkgE6luzC3mfOTTKMhGHYPAAAAAAAgP2ToiwFtpj9Dm3luDSQdAMhC 9JGtsyGTsihnLxSkQhZ7Fw/kPg8q07rs+eZ2IAV0rdbv3+T+ICPoVHqLF6Zp AAAAAAAAyE00SAymTboCvncAAIolsmgzZFwnWPvHC2G5HjS0i6a6l8iRbUnz em6sPvXBQ7bHeS5o12c9mLr2lrG5jdwf3Au7z6aUn6qxz7la/NcAAAAAAAAA BBIPOocyiWBqnfnrTYjSAYCUkNHFTzsZOSdnsiVryN2BfufzPE/zrt92SJBM iy3b3xOUmYl+UqUxEivFfw8AAAAAAABAMOTmg4lU/wRIvAQAqWElW2p77AEZ xz5uz48fSOs57KQjmCc7UrhM+8U1mO5wmT8z8+26e6Q5/U2bBl2/FP09AAAA AAAAADHsRh7/0ZBpd6czu9fihf8IAICCkBsLlq6MxNL2E0EZh26T256LBzIZ 1IfxwF6eDyPiK/8nBWdmvt19bDuU2UeOWH355toBAAAAAAAAkhJbdZ5pLJPZ CQA1QnzNbdZlci3bLs/LW6O67bd1Zc7WZFmI5flsbMHSlBKaDeOePJ9EMjOb R9zreQ5JhghTJrO07qw7nE9PAgAAAAAAABJDbvkmu9PmWEPnpDcCkg4Aiofc WXL0ZrrIavvsAbm7Pq46+zKzJQuIr70AflhQbuTumvN06jtg/UQoT+we7Yii wkxECDYQAAAAAACAMsNqkKIfda1A5iUAFAcZfmhpT5emYh0T8+uy6xtWxuN7 9uU8Ybd4iOjHBH3ytc96JPXBg1ZfvgDjxtxYZvfQ9DjyFtsBAAAAAAAA8kBG fFOG9BwD9Ympx6/AKgMA0TCjvcvoG0GGwKnqz8+9zvPsIgV0LJlGxteePPSj NbQRr0Wf+qSRCOU5O9qPpfGcG6aKAwAAAAAA7A9kPHTPnGl6qR1wLMk2ABkA qhLy59nzR9Pa5qAJf1Sm7GVqXFz6tPn7nCCxvLoRd5j5ByrKhvU515j/wgg6 jcWbW5buhec+TKd7NnThfhk7eQIAAAAAAAAFSGi6ryyGVKNyrO3CTChfcwUA ABjIV4v4KW351RzFCmFMh+jyRtPIFYchLb4Mjh+ZC6SEXsNh/AmiBeMhoq+w oCODRG9Kz8k6Nh0AAAAAAAAQCBl5hJsOgqYDABHsp5p7y+pymUfQsdofsYYL 0J1SOqw+tHkLGfNaks6d3M0wyW3vR6nyOazLsrABedoAAAAAAABKgIw8IUaP JA0/7Jh9CXqQA0A+UF1z1DzzU9l7CpFvfJOtyQtosnhjWXVVLDRzoS0zXAA7 7VzLRNPeBB0nsdZJ3xv2H2aK43JMFScj3snU5PSDJrs/Ku13AgAAAAAAAEoh HvLevUMQxJ37AZhiAAB5IanHJfG0EH91+1/uT4dYcsU5kOx2wgm0JUmquYaj RoOO3ztl57GtvTFb+dt2AH+XUnTYSUfwDfcf4yuuUf0+RSQBAAAAAAAAAACq CTK+6hxqTMgvTNvrWNph9BUZDc7ZBnTYQdPUw7VtP96VjKllZhZEg8SgNld3 yugiTjW/xRqHnKvxzDHJ+Kbv5lA7rfWOjBJPQM0BAAAAAAAAAACUxm4kQIxS jWoxrWH85sy81zNDXPudUVeH6QZsc8EoJbvIaOCGSUvrPqN12vN317VhvTpP migZX3s4RRXV1ulMl6hjLsw68bFu6gh1ur6r7uUwiDkAAAAAAAAAAABJIKPP vXfx8cEevQZTafSGwQn87rehKFoHS8Y3/a4p86mOZgxr7jx90e5ZLZAmGt8I uG9YRt7vaK5TYc0dxkHz1VvuR6EoaDkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJTN/w+u aS+Q "], {{0, 140}, {1179, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{323.79999999999814`, Automatic}, ImageSizeRaw->{1179, 140}, PlotRange->{{0, 1179}, {0, 140}}]], "Input",ExpressionUUID-> "42e885f9-b346-4aad-8d81-a10f863d573b"], " with ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvW9MG2e+9209z5v7xbx4/JIXSDyyLPEiUhQhS09QtIIXRImQIGqFUNoI mai5Ae2TAzl9Am0VSLWBrlKvTgs6jem9tbaxcu44e2JlT93e8WZxW8gKZ4vb OgpW6m6gNzS4DQQS5CAIJpPHM+OZucYee2b8dwa+H+kc7W7MeGY8c12/63d9 f9/f/32y95X//n+YTKY3/1vy/73SOdD4r//a+far/1fyv7T9y5s9Xf9y6o2j //L/neo69a//z8n/M/k/Xkv+35+T/4H5zy8BAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAga3Y9MddtiqTyUQdcUV3Kn06AOiX F+tT79YmXxVTdUOfJxLH2wIAAAAYjq3YxIVGysRS0zIWitOVPiMAdAy9/NX5 xmr2faGs9k9nEQADAAAABoJ+Ous+bUuFvtWNQ7diCcS+AOSGTsRuDSEABgAA AAxHMvR1nbKaEPoCoBU6seDttlIIgAEAAADjsBXzn7OlQt/k9H0luonQFwD1 7MRnP7UjAAYAAACMAan1NVGN70+vYeIGQCuJ5ckR/j0y2wZuYvcEAAAA0CVk zspksvZ6FzYrfUoAGJR41N0lyIeaHHfWEf8CAAAA+oJOxG4O2Mx82vfo+clf MF0DkD+JRf9AQ+qFMh3o9Py4XekzAgAAAIDIZsRtP8DP1PA3A6AI0Ot3HE3V /Iqy1TGzircKAAAA0AX06oyjlVc8mMzHrzzYxiwNQOHQm7Mftwivlm0osJyo 9CkBAAAAYGdt6gJv8gC5b07o9bnPR1oO/m5q/UWlTwUUlfXJwYOvDt24X4It j/gPrg5BUWTt9i6gAg4AAACoKPSjm2dqheRUXbd3HskpeRJL02OdVuro0MTP uEW7Dq5IbX+746vi+zNsR93HrcLy8rg7CgEwAAAAUDHoJf+ZgyYkphRJ/Dwx dJRC6LuLSTV5KUV7F6n+wdzpfrBR1OMDAAAAQCWJR/6BWhMmZSVScdEBu+vu XioGpBPxWDT05Wdup2Ow197xaoMlGcBV1TW/Zu8d+tB1YyrySK4RylYscLH1 FVfUiEbRKQF8KQzK4rPOdkjrAQAAgMpCr309JFicmWpanHeh95Vja8l3ttZE 1fb5ljSmBHei//F6XZVJDsr25mcLWwWfWzzqOdtooeS+oaru9f/IMwRNrM0F Pxs/d7wudWDK0nC8d/DiqOuqN4nHNTp8tqPBmvwKm93x2exjIhm+szb9fiNl ouzemNKt0unN2f7R03mgFBIgen165KDwukH/AAAAAJQdejU4clgMBw5eDK4b MVtXaujNH/7UnoxZagf8jzRHQ/Ra5NYNLxcxftjfZpUEYPt7/b8Wem6zH7da LTVEUGfreNvhdF9nvvKGL6i9fDGxGg24+ptrUyFi2zvjvmA0Fpe5cnpzJXLr Utchimrq89xjU+JCt5Sqw677imWBer05dGLB2528CqptLPykqPlZ6VaL9Ywv hvgXAAAAKBv0dtQlepyZDp7xL2EjVobNu86WZABV1+NbLPT+bAWHa0xV3b2/ TQVk5kPOewWtN5Ln1tr++0vv1PMZ09qBiQL8ZLeWw38eaqlNJXtbzl8LPZQT NkhJPA6zmpBOz/1VsVFgqzOiUUKjr5uzueDpSq54qKYPZoq7JNyOuFqFeLzA 3wsAAAAAWqAXvJ1iFopqdUWhQpRhI+p6jSrS/aHn3a0mq/164Go7H+H1+lfz P1581nnisOPr7y+/LixhBqfyPB69uTA11pnKvlJNfe6ZZfUaD04rS9VYavjV VPX5qWfabpfubk5q1VN0ORC9EfqDUGVqoo6NhteLeXgAAAAAyCM1+DXVDwQe IfbNhF7ydpqLdX92Vv1vmk1trujS1CAf/hx2RfO0DWa39Q9/MLO+5O/dnzqa +U3/ah6JSjoRuz3WkWrzR9lOXw4/1qzw2Ph2VOholk/gqsObs7MaOMesD4te CipdeJo7vdh0AQAAAEqOZPsVid9sPA05jrCLg7Hw88LvzyoT1+13hLa25t18 QrLq7UB+XTPYbX2mbe6zqUEh6mx1z2s+zZ14xNPXkDoE1XhhIpZfrdn2kreH L+iqbnX/U+OJ6PLmbN9zNlUx+oTByaLmZ6XpX6w9AQAAgJLDJ7Uw+eaET/xa jnu0B5WZ7NxzHjJX9QfWXyaDsvN8UNbmiuaxr85t6zOWXDsR5yE+iahdKCsU qbHYzvnzDH0Z6Ee+7lT4q130q8ebk+T5guckc3fMPd6lopanpemOjnsW8AYC AAAApUOa+DU1jUeQ+JVha859gol8qJOeheeFHy6la/UyYc6LqIv32shDqcuU Kx47zFVjEZlSzYeiE7GbA4LfXeH+BvRPHk6ym7foV0c3hz9cagVUc8z9Y1E7 W79Yn3qXWIEecYSeFvPwAAAAABChN4Lv7ROn3dpOL9JOcjz/frTeXLy8nKBr ZZOZ64H+qnxFAkzP3FdGgpxVwK9561rpeHi8vbi9d+MhR4OpINGvXm6OCP3Q 182+LsVRvxDwD1jqBKH+BQAYlcdTg83NfR9cuXk7HF2IxR7H04um6UT8cWwx Gg5OeD/5Xcfh4an8VG0A5I10y9VU+y4eQjno5+Gx+vwCMHkEXSt7sBf3XYf5 CG9w6pmG42w8cL9RP/T1GndOeetaUx3N+LxvcYTfXPSbSuFqQWc3R4KQQG4e DcfzO0QWeFlFiqIfHwAAysOit8NiUgl15K2bP8HoHJQXejsy3iQ+heaDjm/Q 2FiOjYizlQubNEtYZRF1rRwrgf661I/Q7lHtI0xvP7hyvP7C1FoqjZmvrnVn feaDJjHwKta2Oxf9ahfr6uvmZJxd6jiq+ndoglBKm0pQWwcAAOVBbfRL2Xqc 00vF7aEJgAqeBIcbiCfxFWdES2pt70D/093K5g21S1hlYbWsZFJUiK5NppqR 4Ja6r2C29VuHppb5T+era5UKv4u3585GrUIKVzX6ujmZCDnk/BPI2SDifFMJ ausAAKAcqIh+qXq747PZNQxxoALQq/6+KuJhRKV5Nlb9veYiBjyJmLebkiRF OaUrR6dnUc2AIN3WZ8hP15rm+HFocOqx1uvJQjzqGx/zac386urmyCFU8xV4 HLlDS0X4Ra+tAwCAMsBGvw2nHY6BrrYGSRxsaWjvHXH57sw9QdwLKgXpyGoq mpHXbmQnPMr1fqgZDuZvASYikxQl9uUbHCFFwWf6tj5DfrrWFz+6j9WIT0HR i7k0o6ebI0+qmk/dyWhkY3p4H6WnnwMAALTCRr8d3ljqvybiK7/EYrFfnmxi OAOVh573HCfWZEUy8tqNJGLeLvYeFankbWvGsZ8idK0sy76uVNRj6fAuKhwh fVufIS9dq1DNl/rD+tHvK/wQ6OjmZP2CRU+n2pPRTJoYCbVvAADDkRb9AqAj CBtVNviF7CErQq6vrj+wUvjhMnStLEx+mY/wHKGcVQCZ2/ov89W1EpJafcRa ero5Wc9xPfB2laqTyYM08QO1b3gahagAACl0IvZ3Z9chc5dvudKnIgeiXy0w E9y+lqEb0XhxpXRAls2oq40IeyB7yIEgGS3KTnemrpVjydfFy29zDRrstv7+ c4F0xWleulahmo+jSDV9BaCnm5PjLEMObtdEu5WxCtLED/veC27g1QQACPBN Oamj5yd/0eXogOhXE/Gou8tqoiwtFwMF9FcFqti+52wiCt5Mr7vncc+zIZSv FsXuLJsTwrPw6JHUr3FgNJwtQGO29Q+f8We4MuSnaxUbSbB5Rrs3VuGRVE83 JzvivklJhnfW7likYTj4pPhfAgAwJGLoOzTxs169whD9aoR+Ous6ZU3Owo0X JhAAl5I02YPpsCtqyNrynfjivWDg8+tup8Nxob/L3pGGvXfwfYfD6b5+wz8V +nElvd2MBDr+8/3FuMwnxG33Lm+s4MFGVtfKIKiLky/Aad+ybIS38cB9cv+Z m48yzjI/XSu96Gkngt8ccWWZ0NPNyUXM28Ed75AzUvxbJioruAuG+AEAwMKH vqa6bu+8XkPfl7ss+qXXIrdu/Kfb+W98mPFqgyW5+jjhnlMMU+lE7OtRez1l aX3L90DB5IJemR5pphAAl5Y02YMOap00QCdWIl96/zjce5x5AjVC1R07Pezy 3f5BEgnT63P+D+22KlPV24HMVnfCPncxol95XWva95iOjIYzjZe5bf0B/6PM c8hT10p8o0lzDRe9Pn/7Cy9HcnExE5LjH1P+v3hvfK1SzqSrm5MLIfotgfA3 CR3z2slHG+IHAEBy7lvy9dUmh4bqxpHba7oeEjKj30R8ZTEaZmaFcHRxJa7j yD2dnWXfaZlQg+pWEQ88nhrkUy9q1gKJeW83Y/lONX0wsw4NcAlIc3soVkhQ WpigN+AZ7W+zEc8hZWk43jvIJHd9gWk23GITvImVKBd8BQM+b3LJ5hjs7Wiu I5UeybilpW/sL+HlLa52gDsm1fhvM/GSRr/ZdK0sQkxlqu3yLaX/a7ZtfYY8 da3S6FejqnnnvusIoRnOgcXuVmX6q6+bk4sSR7/peuxidRgEABgWev2Oo4kZ Fsztf/pB785hQvRLJ55EA66hjgarZFKgbG39YzdCD/V+HRz05hPGsO3h/Hef dglxhJqNP1FbSO13zKjJ59JrXw/ZzMnPW7u9Czl3q0EeSBuqlsK0v7hsLYe/ GO9vFeI0qq79rONP6flbZVJJ4wsd9WL8TNVYarj/Vtsy/MWcbIqymNEvq2vN ZuIqflHmBn3WbX2GfHWtgo9xPtEvCTM4LET9I43EU2Xrvx5Z0TS26evm5KLU 0W+6F0fxuyoDAIwEveQ/w5YDWHs8c/pfC7PR74k/Tvod7Vazpbl/3BeM/rzG zgeJ+GLYf6mHTWPVGszogJhNqgenlDrj0s+mzvMfV1++sbM+80ETc3Os7a5Z jb2iQG7SVIWlaNhaJOj1+amr79v5YNVyuNvxPwOR5YLDjZ34/JfOLsLm1lTT MhaSk/xyHy+e7pfVtWZ/a8TukFIzgRzb+uwJ5q1rFROqhUW/3FlKVMTa6yj1 dnNyINy3UkmlyWGTQQcFiaDUbMWCl88xe1uUpfmcNwqfZyCwueDtZZOn1uPu qBF6pPHDNdXUdzW8JpOn2opNXGhk5lXKav901iABMDGb7O/1/6rwafoXfx+f XtKkXqNXgyNsYRbV6phZxcBfPNZDjiZiXi1eSFBMtpbDNxx83EvZTjq83y8X bRdga3nG1W2TCiGsp1yzT7N8gRB3ZdmUVw2ra83x1jwNDvPvFrmrkmtb/2VB ulbCR7dgN2Ppqkp7OZjubo7CqbKUrKwjXfqr9w0aUCA7a9PvN5KirmPuOaT7 AQO9PefptLKRYqsrum2IaIibNBsG/ItZE0ZCjGeiavt8SwbY5ee0eRzK6R1i k11zaRWvf4AAuKi8uO86TAZ+xengUDzoxPJ314Ze4daNluYB15cPsmZl8zn8 01n3aVE6bDlQJ5TO1Z71Lck+z4LZbIHZUe7dyfHWCE3ETET93eaCp3tfz2fZ U3+F6FpZsUGKAjvZEaZkqnaF0tDhzcl+riX1++XYuec8ROqTDg0Hn5boq0Dl SWs4biqdqAYYDb4SymQ64ggZZRBYD4+eODb2zXrOGYVe8namBrm6Ht+i7sNf YjZRTu9sRF2vpWILc493SWvCfnvJ28Pem+qm0W/1r3QxBmLTWI5Oz6JuNlIY 7wVHO7vINVlfGylmvpc9fPy+d+CIePVMvnd1PXiRN1elrPJxVLF6vbGhZq63 ht4KjvBTIJdnphML3u6Dfd6F7DnngnStL9an3uXbSJjM3T556awaJIVacoVp Cujw5mSjpL3eBNJcfyH93dVIC1BNaL4JUiQe+Qdqc01PRoZe8Nr5ariDfwjp 3NmG1eZxJ6uY3qFXJwZquQ+bDzq+ySd83bzrbGFnPOo1VxTxb+GQIUTJ529N 0PF7nj5W610SJTydiN0e6yBqvARFDf3Q1y20lpWVpgtmszXtnp/yfz8VdK3s Wc67+WInNtJmVv3NuX0dC9W1Pv9+tJ7PMZp7fVnUs4pId+q1S0T0eXOynCuv ptDoEacNItfNPbA6bWkKikFa7hd6P8Cx8Y3jIDc+Gyjxqx6yvFdv29DpEF0S FNM76+HRY6n5sDaz96hKhPSvydzpzabtA6ohZZD6mVJ34hFPXwObpLN2jk0v FTse34nP+QYbiSoiSZecnVX/m8Ies1yrBTExU8haQUnXyiLmKqtb3Xf/t7fv oILtSeG61p3VwDk+/VvT6orktRMgFf3KNGtT+nud3hxZBAVyUTpfZyNjoVr5 PtSgdCTHwD8PNCdfxKq6tqEroV/1kZMAlWXXxz9EG6Msk69uIOOE3OkdthA7 9dGD2WtSVCCufQ6PBLEcLhBS52nSRXsvsvaz46NpFS1O6OW/j/XY+67eV5de FJrjCBywuyPk30p2HWU331f9vdwz2O7JV5z0fMFzMqeulYXQD1SfONWZe1uf oRi6VjoWeKuBP0in+4H2TZbtiKtVjNS0D2I6vjkyp/GTp72myMeUReLIYUI7 cgD2FmLwc2hw6nGlz6YkKE++eoGQouVO7zCF2Jycw2x762/LBcWsW3PuE6na f5TBFkh6KY0K146Swve2ZprXDN2KqVL58mZQqsrtM0NfmS45kr7PsuldIe7K O/+W0vAoeqaRak8VvSyLpGul43dd9pQsRHObxcTPE0NHiVusvXpO3zcn62FL 3R88XQuq951BAEDx2Fn1n01tqOlfE5svkkFOz842ROyUK71DPwmPtaXi1ZaP wgULOInCwF0pfSkj6SVvsk1jy4UY+h6wu+6qNnbg90qUo9/M0Fe2f4p0i1le 3CDIk/IwPaMTa/eup6rtGgcDuSM8oQm1mlYvpGihUAW3NAB+5/rsYxVHe7EZ u+Pua6Koo0O3Jq92cueiqTGZMW6O5LgpLXEZrAJFi2NTmb4RAKAPRCm4oSpe 6afRG7+3N9RaGnscNx8oTpbSJX7h/aRKBVF1YrV7sxWkChvZJpPtnF9TEinr F4t1SVV9fqgf8kba2ysZRJz2LVdoOs0z9H0pijcUot/M0DebdZ4QU7HIJ/To 5+Extj2G5bhHXRJxc37qxnWPa3T4bHudJAC3tZ0dHnVd9X4ekst18wJaa6/c tj69uXjH52W47nY6znVIuj7bOs69P+byXE/+641bkXy6wCeWpp09/DH3tw1e DkQeyXdrS6wvhgNX3z9poyhL89usTJHvUKMmPW7Em5NC0BI3j4ZL3Y9AMBvh w9/SGawBAHSEMOOYCveZLycv5tzHhIGXOulZULC5lUS/FQxIFFAj+iVCjlzt A7RC1NSouJ8gC5LyLjaUq5ThQ2J5coRdIuVssiYHverv4x6FXNGvTOibJWR6 +XL7nrNJKNii9g1PyycueW8ElbZgO9HLr1goqq75REcGJ5rrkkFj0x+C63Jx duyz3zZ2OAI/y/0yW/OeUxZTVV3za5lH5Xm1wWK2vHI5muco8mIzFvI6ehp5 G2Sq7tjpwYtMRMpw1TV6cbD3eAPzr1V1be+Mf/5tbJO/CsZLuffw0KSi6New N4dJAXiOs6N1to7MxSTd9kHfujgAQLF4GnLw9umlVlgVk7QYQ7EuWNrUUgdl SFkgRHc1I0EZ0a8YclCN73ijxQp9uS/ny45MNcfcPxrmWdAXpLsIS/41XIUg dK7Jo8PL5oKny6wQucuFvlTzyPSK3DfRG6E/ELaqOZpx8/rzAmzBjAOdiMei wf91xekY7D3Z0dZgYeNgJlrt6h92OK/c/Pvs4vquvwuZ8CqsqibnvdLbZKf3 OybafAAAdi8b08P7Um6xxtI7SXW8il0eJAt87T2SygUh+pXbgNuKBS62MBkh tZX72iBNWY20FNIVaYYPFXrYhIpI24WpNW2vNeEgna1ej07Ebg01SkKGTJMH mZPhYuScfST5yKe2M6vsB+xuOG+K/Hr35APhV8xhpD1QAEBe0BvB9/hwp8kR 0rENWAas8TtlaWjrGhi7EVbME5GFzDlSTxWGEP1m1HQnfp0Zf4ONIfa3OyYW NksRm5LWnZgC8kJwauJjvUrsM2w8cLMhZD527oSDdBYBDL12eyQ99DXbBm5m cZPYXPD2irGvqX4gkFvUkNqNMk6zdVBUUiKZfHv35EG66VkRXYsBAPrkSXC4 IfXGG267h17wdtaqdScWU9wms/2aUiFzpSDd7Mma7p34/MQo20KLsvU4pxbk a2SKcgaiLZXqyiNAkm6gVNJOVfLQj26eYZK3ZtvQ1xorj+jtqKuVlzPItwHd /tHTKanqM2WtdHtJCDBSH6w9c1NR0Munf3et+yLIDm8iUa7EL8NWcJhcsFbi nQUAlBVin52ye43W3ZjeCI81UQf7fAtKiV9Rx2iy9njmdNvMdz3kaEoNwKma bjrxJDpxia0Qp+rtH/51rsitaTMgJgKVlUdAQrrdWfnzSLySv3bAr1U6K5Eo 7Ov2PUz//elfJs8flYp9c75Tm7OudiLvaxsKLKs5pfiss51C+ncPkurokXc7 vLxIN+jWQ3saUEToRAK/J5BA7LMbTPSbgvO8Nb8+9k2OloVEeQ519PzkL/qd TV/cdx1OpX7Np6//EJ32jp1ptlBM3OvwhmLlMWJe8nXx/p2G2w7QAcQ7xVHS Pq1yJ5Cya8gjfoj/4OoQgwAZ6++NOU+P1ZRG9uVnWoMGLf4k9PodR1N1oR0M gcFIPPIP1DIG5h/Plm5/S4Y0y18dF4YA9SRWo4HLw12HUz+tpbFj0BWIrpay jDQRX/kllmQlvgeLVQ0FaZtQ5AY39OajyOSfLw39tqVOsDmyNnS8NeqZjD7J a01P7yR25MbDxMNJx+tW6lDXpb/JHDn5/N90tHMOCbbTl8NqvOWzfH8Zrig9 bUhZGruGLwciK+WcCUhfVk2O+oAhXfhQ7sapfMvyqrMa+7nQm7Mft4iPX12P L82pgnealSDT040/nmA1zD3LR4cmZB20srETD3/EnE/tuYBuG9OAokKvfT1k M5uodudsWReMmZWq6locAv1Cx+95+pLDVXIOPTV06fLVT37XYavKayDKQSK+ GP7S6/pwsNfOGbZIoKz9E2vF+SJQdJ4Gh4VS1+LN0fT6fOBSl60q/VkQsLw6 /PmPmtxHX9KLvp66rNoM4Rsth7uG/t39WSAYCoWCgc/cH/Q1s2lMy5Fep1xs rLMr4v05W071v+f0/C3043JZ8x8pSO1xTbvnJ2TetEDePY7y9lWhF7x2JuTM 1SVQ9u9SudYU5uNXHkgkB3RiyddXmx77mtv/9IPsM0qvR6/8toDQl4NLNefh 2AYMCB0LvNWgqrdy8UlveAHHG0OT6qhIHRm4fm8tNXQQposFL6/ozYehzz8+ 12ZLHxAlIPrVMfQ/3a38fKemc5CaQ8bve1P9NHOjqfMU99wq7ORyuVnnSH9X ahVmbWjr7B36yBMILxawC1HBK6oUROEbdgC1wjcIFiizemQ90M8E3xq3cuiV 6ZFm8SE3d7ofSHL+dDw83p4hecjW2CIt61tIQ5bUiWltVAcMB7fS0dyWpVjf nu7RXbEONaBg6CX/mYMyK+7U2MiOcHmXtCQehb0OO5kKszR2DHzI5tzuRhdj Ir88qUTyCqjj2dSgkOwpwlKXTsS+crTvV44TU6he47PeDpXYAN19V6QOseeF ydTqhu+DFqT9fMs+jfIrF01bOVtLvrO1OR7jtNhYvLSGNrG9l72r/4LD+R83 pyY/c7wuhL5U43nf3HpBTxAnHi7mfiXQG1zf9urGoVtZTPNKTcaitUjpIFB2 tmO+M1aTtd01m74yJ4WF+SQlduJzfjIeoGwnHd5vFqDwNSBkeQ7V5Vsu8Ggy FqAc1obm32RIYrh/yZI7kh6YTZOWp+mP9It33RWphZSuyvebA9nI2EItb/Sb +unMb6oW/e6sTb/fKIa2mVnWtNhYPdWNA95oUSxKEkvTY51WBMC7Ey703d/u +KpCoe9Lmei3zIIlA/Bszv+JQy984p+T35PkOvXIVk2Se5raf1+hz5QwuF2f XdPpBA4UIWOcQqfoNAtQS0vfqCcQnl8Wl0UvNp88jIb8ly/YCa0MVTswoeDF z6VJy+n9yLH7rkgDZAU0ZgFNVFhAyHetUvmrpQ3pmaFvmluvBHPLu9cn7y7G ny7eDc0E/thdZ5b+e23L8BdFM+ij1+c+H2k5+LspmJDsMtYnBw++OnTjfkWV LWQBOMY9OTKqeStLloiF65Mu208nucDpJgYyLb8v/TTiOduQK0UAjAW52s1o K6aNlDknA9XU+0kgZ32Z2LiB/fwJ91yOLVouTVrGpj8pdt8VaYKsgC63YZfB IVsKspS5eFy97jfx64zr/xUXbpZXMiMQOh4aa6mRn364bQ46vhj629X3T4rH oeo73jzJzxSU1f7pbKkdqgEomIzgDp0updA/3zzzGxX1L2WB+s2Zmz/LRCwb 3zgOmk1N45FMk3D6oa97n3gEDXuaWzH/OZv4l9VNjjuFablAxSF1/oW0thGN kqjGd7xRdeUtohFozjiwMmnS3XdFWiETmEW2wtvtpBuHljv65Qf5nA0Nd+JR 34goYKOs7Q5/pjqXXp1xtGab76i6o682SOvgLK3941+El7dEszJMFsAgZES/ WPUbjhfrU+/WZmlRSj/ydRPJfdWWOGk+kOV3ogalgIxwCmhHxTeHohovTMS0 eKYl5r3dbIKx9t0su5kVSpPuvivSzNa8+/VirIz2IJWOflMNEJNfXNM8kimk pBPL310bekU4RaZwwye76byzNnXBZkqDstQdsKT9Lw0d/Y4/+e78b+lB+H5z JsXdEAAqD6Jf48NuWVInPQvPM/4p8cjXSwS/aluop/lAmqhjo2FNRpJ7F9YU 7k+O/jeauf4IVF1zR9+wyxecW9OBoqgou9t8T/bas74lzRMc/ejmGcZBNEt2 kX4UGKgve5p0911RHpCqmKrDrvtll1ruxBe+8d/wej2uUabG4UJ/l72j43jb ycuR5zpfd1c8+iUNxyhLc7/TOxEM3Z+fuxuc8Iz2tRAnV9sydCNbVRr/JEux nvHF1D66RI2JfDYGAP2A6NfwbM049lPydRb0vOc48fPuey+oqm/qRtT1GjkI VvX5FYp6wEu2RsP/od1WzfTq+sQbCM6EQqGZqS+ujLKNa02VrW/lIKfpfN/0 Fz+6j9WY5EXmakj1pZLdhngx5z5GUbWDk2Vda+2+K8oHSQV0JZwviW7LJAaw oNdB9Psys0xDCmVrO+f6cj67HkHYxZBQa/c80PAkEIaKWltvAFBmEP0anvg3 o63Nv/3sp8wpgp15hV/WXD/6fWZ2OBPOPoJ8JIaDT4p/2rsLevMn/9BRyvLK 0LXvltND3BebCzeHGB8ts23gZkUD4MKjX/p5eKyescb3LuV9HRvTw/soOfM9 dueUes0VLadGYPddUX5UPPqlE/HHrGP4XPjaAL//bj7kvKf7Aqr06Nfc689X VFQgdGIlEvB8NNR7knfk7R380OUNfLeoUIa2ueDtzehskdn9TQkynjjkjOj+ lwN7mZ3w6AHJ847od9fwLOJ8hfhlX3FG1HRw4lvGC9SPhfW+81hhuBZ7OT3e hY57eScYiwI5TXd6FvPYi+eM/QtcEHH6wCZHSJIcope8nebCotB82H1XlB/0 s6nzgtqpol2P6K3gSE3qRApQp5eP9OjXaD2j6O0HV46nWZeZZLq/KVNMR0UA SkzM24Hod1fy/PvRenFEo46559RsIL647zosbVmvln2veR7ofYuyFCQW/QMN ytVSnEAl+UMc9yxULBYq3NP1WXj0CNU0FlYlockGl25NE5dyi7XybzTsvivK E91ELkTrNA0dHCpIevRrsFbRfMmnFOtxd1Tr8phspmM6MBrW/08H9jD0oqcd 0e8uhN4Ivkc4namtQaBjXnue/m57M/rdeODuNJtPjN9T9Mjip8hKtlPUTUcD Vh8o2SBenxyspahWV1TTTqt+MP4V6SX6JasVjNFzWR+63zyJ/+DqyMj7UtZu b3bztGxIiqwLbyUJQEmB7neX8nhq8JD4q5p7fY/UzGYv1gNvSzK/1Bvu2Ycx Nazswc7H3I5hXbd3XvnaxaR6BcNOcppudUYqKEZlS5zE7BCnt6nt9FYuL14o Rr8iSeejSka/q34+hDKE6PelkaNf0qSXINP8JLEc+dLrcgx0tTVwlyqzmcj5 WqeoiG0IABpA9LsroVf9fUQUq9q0gfT8ZEHlQg7Y0V5tYUiqH1NlA4tieD4U B7bvBnXat8w+XpzrQlbLXENg9CuqeNUbByk/NopoxKjRb7qzJX/b3wrE+BFt Jz7/lbSvN0d148jttbT+yJHxJvEDzaNhBBJA1yD63Y2k2fyqn0TSG9ZXrnhZ /7CFbGqdkEUhCmX3xiqWDSRNpSr7pu8s+05TqfyzUfpB5MboV6ST6JcQ/cp4 aOgTY0a/iQVfn7RBMxvWCm3a6Pj9G0KPDMvhrqF/v3LzdngxS697esl/Rjya 2jKTXY2+vd8Bot/dSJrN78E/hNRW9KRFvxQKF7LCJX5VlvNzLQ8YKrsVTv6+ FX7T2ZHn0HDwaUqlY/zmUAa/IjL6rVyvt+RrZU9VYFV0nagJA0a/YncMEkHu uxWb/qjDylbp2k46vN9nuDimsbMevEhE0pV1ttEBBvB+B5nR75HRsJHKVUvP szn/Jw698Il/TvnXyc/mlyUt+kXD06ywN1llUp0wFNKwEikF5O+7v9f/a+XO hCsPZx4wrhm3QWzBcmHwK2KVGxV/8QWBkJGEo2QLxXJFv4mV6Lc/ruQZQW3F Ji40posZKKv901nGFpj/V+pQl/PvaoK0NAWFgSo9S4FBvN9BZvRb0UpwHZJx gyqLih3JNJvfNld0U/XVpkW/tV2+pcJu326F3Z9VGcpu/+jpZE21qeaR6ZWK jnf6yO9xMF6LyXN4wFaHHejz/2L4mcDYV0S++1wGu/zQWyHH/tQ5pJsn65h0 wVgphSNbseCn/c28fok6en5S62O2E7/3x/ZMl4fGkcnlBJPFnfmgiQl9jw5N /KzqIujVGUerGEpTrY6Zvdsa1Dje74DTqpEg+pVC/3zzzG/y9AArOtRvztz8 WeF9SbP5lXWXffHg+skjr7p/yFA1pFW9lW5zfHPBP9xiqbbZP55ZU9BWMOqp v/7lxl/vKu2+pf9d4sl8aOLapaFeO1enbGlo6xpwuL4ILawX+oiz+7OqXD0T P08MHWV3EHPNJvRa5NaN/3Q7/83huNDfZe/oeLXBQqnbOqcTsa9H7fWUpfUt 3wMlf07S06PSshYmVqQO/JvbZbDqsOwY+4p+9ffygae2JbNA8o17EPT9ydHf 1dZgTb5u7b0jrs/DxGu7k1B4hTNEv/RG7O4tt2PgVHMdZaqqa35jYPTaZHRV Z1NUuaJfWbmCtsJkOrHg7bamTWiUpeVigLMr3/h2lMniqvOxYdha8p0lGlSL suG9iJG834Gk0oEF0a+hSbP5lVeZvoi6Dsu7CUn6PZUuPchtDXNjt1KWaTU4 zFUSq09EJ2fh6ISzr5FRWFlZ4dVEMDQTDHg/GWxn54797Q7/nELrz5ww+7OE coBen//y8nBvB1HdwDQY9XivODrYrK/1jfGZX7O/V5mLUG5S6lbxMhLWdir2 W8nejhX25GeNraoaGuoNVh2WHUNfEf1Pdyv/6gvOFepJ/Bq68jaraaxt7vvQ MzEdmpn0jfc3J1e43Vdm49vxyJ8HmmsVcpUS0e/1hUcz7r4mirK1nXN6A+wB nX0N7I58t+sfGtfCJWV70dNZ+uiXz8qmoeG7kivlW+y2u2SU4QUPSTairtco DWa/O/HZT+1ELG1u/+O9QsZVY2Ms73eQEf2iO6GxUWPzyyVY5B1ppN0uShT9 ks6iSlkmUQdY0+75ScVIsRWb/rjLVsUmNM5fC6dd/1bs6/dbzGljPgm9Gf1i /Fr4Sa5v4tYIr7vnUwv8nYjzUPKAbW9/4puc8v/Fe/XD3kYxQ0M1XZx8pJTC pTef/BKLxR7Of/dpl2BVpyarI94far9jRrnIatnXJfy+la3NETVFu8UcydBX REq8tO0KJGOq22OpVV7n2PQS8cbtxB/8Z29tle3cRx+2p46ea80lPsxm26m+ U7ZqK7NMJVOJz5cnf88KVq3t4+Es7gPlpyxJpO2Iq7XGlE6m81g2ZEPf6sYB b1QYBjemh/clg9/XXFE1S7f0AyrnPHczhvN+BxlbNijyNzTi9MFOId0+GV0R 9+rVj4Wfyw2aUr+ImuFgCYaz1alBvj64ZiS4lWPsJnPRKuoxxZ3BbMHty9QK nf1M7ZmbGfeHPTeFDlNsfRARmr5Y+Mtvbentoam6Y6fPnmRSVaYDdtddtTM1 2zJMOU7gL1izOSqT/OXD38oudYU4/LAraiyNQDYMfUXEskhLly4iBLKecs1m Zr12VgPnyJ3xVvc/s+khCdEvG5gN+mQ2aISWCmrNBssAvRUcqZG8/UWParhN Pcp69Kiow1NdlZaZpOX+XJpCT8mi5GeNzBOKh8ZaiIu29noX8lDL7BaM5/0O MqJf/Vu1gKyk6Rb2dfseZryK9PPwWL2pqsl5L4tGVOoVXIp5fOee8xDfzEnB T5ioQ1c0/6RXQ2OpwF1hA45LcTAccYSkugtGkVWtUGzO7hGnh6aJ+EpsPhJK 8l1k/iHf+W4r5j9nY77oYJ9vQc04x6aROVR4MtC/+Pt4IcO+94Kq3CRIeWdF Mw+MStZkqNJ+JYx8RYQkRkOHNXr5q/Op7N/BM/4sFheSSoQctWyE6DcZ5nV6 5uQDCVFmoLqJT8kpvXHos/DoEZOprj+wnFiJfOn7L//U3UW1GoOt2OQH7dLQ l7L1OCVZ+iRPg8OH1FnBJJc8EyMt4ppmb2d9XxrT+x2QUyH7c6A3t4GRbsDJ yh4441lzj3cpe4HUxjeOg8JslV/9Sy5YYyiOHIkg7qOiDtDU7lnMmY+d8/Sk Pmru8ihkIcTkszTRwS0NlLatGXmnahGyEKBaz/hiSkVpzC/Yzc9SorIi67FF +bR6Xzsyxqio5W8qViz+A1YxDHxFpPI8GWKtqPojwcxEfhtFgAuruOf0Tf9q lpiNfNltF6ayF8OKoWaOo5UXetHTLol+i26aweWptL+wiaXpsU5poVx1Q587 tJw5tnBiVMUttp14xNPXIGRZiIq5PYshvd9Buk03MvFGRhr9yqRt6c3Zj1so xZKcnbWpCzZ+urINfa1OV6YSUvTLNcbKDqEDzJmP4q6L+2RNqyuiFGUS5yBZ IzwJDjeYmsYjuXavuAS7+ghHSMirCVCJ1aiy6JcrUeGuIudyRv58TKql1CUh FcMYUSSQBSNfERGgqqq1fEkoiEwKSlEyrM2hKSJe9txvCpFo1U1vJqnkrAQV E9wuWFXj6HeqV1Y78Tm/o12a3bL1XAo8yKLC4oKBnLeUXp/znSeMgqWy4b2K Mb3f9zykCJB9mBVycUDXkH5WcqKCzbvOlhpT7bmAYsKEXpkeaU49GWr9G+nE cuja2CeBxdx5AEL0qyBmIHWABwenskskyHqQqrNq0kGEwEA8Mr06MVBrPe7J qfnlpqH9jlAuubL0MoS8kGJAyzvhmFSIftmz5T6s0WGAtSZI3a3+QIWkk9wC xJAigSwY+YpIwwd10Tvx+Cn19RCl7LnWsIT0IufLLhnldGNIni59KPpjQG9H XYypLnVkwHtfsYiAjv/T/+EbNnJut7T2u76azxWpcj07sgXYyeH9u2tC4+Mk 1tdGfMpnsgcwqPf7nocosWGpcPsnUCDEVnhGYJMynm14K6BOaiQY1Zqy1bOQ H34U9r7HSMuoV52zOaM2QvSrpHoi9uhzWTCRZTXUvuFpVXFgapPaRKz4tpkm BYrBMxsnaAsaxe9S0NmyTnQqp/X18Cjf0E/NcoaEDHW0mYUWkfWQo2l3dZY0 8hVpdQ4h9x3k6wtEZFeaGRBO4wp6BtKTvNIdW0TSd1FLUC+8MXf9DBvQUpbm M6NXvrgdXckYTbZWIl9eff+kNO5t6Rv7S1hG6pDGi3jw98yWH9XU+wkZJ+/E F/7BmtcJB61tGfqzigOqBN7voBKI8zKHbjaSQJ7EZ53tqUFKdHWgE2vhq31N lCbzgZdSzRjV1Hd5au5J2vb6i82V6PR1h511PKAa3nSHcrjasqciin4V0yOE DCBHPkpiUqFy+0my7kupfRi1c7VyEpVJnFrtmvRa4luWWy+h3giO2D7LUW2U FVL6q6wuLgmpSqhdZPhj4CsiN1nUvUFi3WjytT/pWcihU1AZ1hIvu4LjCtlW WD/pGkI6wlGS+nFpozd+IK1rfq2j4wTTYUQCEySPee8sqFcmSLppUJaGV1Nt d8RD1ndcuPzlfDHbWcD7HVQE0vqexYhDN5Ai5myrbB2/++Tq5UtDp5h3Pxm+ eu5p36jaWg7fcNjreRWEre3sBYfTff262+kY7G1vsKT+55MObyi2qbjXRwZ4 SmOdGKDmykcR4bQW83Bip5KNflkRo3JhmlbRL/s3YkVMbp0zoQnJrazYjrqP c3OU2fbW35a1T0VEklkhcVciUiewi8oMjHxFhLOKKucQaUsdBaUEEazm+KQ6 dQQDsXmkp0x7WpfMUnqH0vGFO//ryqV3T7fUybTIsTR29L/n9HwZWclvVZsM sC+fa5Mkj1Nt+3z/0BBIqwXe76AiSGSi7DOV23wVGITEajTgGuxoTMV3lsNd w5cDhbQHpTdXIl97Lr3LrGjFYdHa0H566NK1QHgxrnYfigjwlOq11Xl/Sbqk KfmnEUii35lNpvunRUW5HLu7re01Ib1Ac64uiWk9l7KCfhIea+MumWr5KJzf fCTarVdE+ssnnxWyfAbCyFckPgwqhUNEtKyolCCk7DnEAMTLruA4IWnHo+iC WD7S3CbLfG5bj2Ml6P6cWI09LnWoBu93UBEylqsKplIAFAaZt1EYVVR6f5GG 1VoqTYjot+r06P/orqNaPp7dVHr62ThBQ4zNQMgMcg7vRBI7h7JiKzZxIVVz bTvnz99oiDir8ocQvFilwq2Wi4iRr4h48DLsr+VZ8nUJm+8KwSqxy6BuDavg OCHJ2OjKLlWyCcVgROO7sgPvd1AZ0qVKpWnsBUAKYoKglDYGiQ3TXJVZ5ESc u1RcSlqNNtXunFVWvLN5J42+KIQsOefwrmYHkGjYpFiHqHheC57jlKoApujw Sr/d4zBj5Csi1kEKXn88Eu1Bbt24yjUs18qBRWFcIFKFJouSPUt5SS8h1zIc 7VXg/Q4qA/2Tp72GeFuNOHQDA0EGeEoRF+HFJ11Zb61Evo2I5cZkqbWWZIsk +j3Q6flRxWDE5Z20VYYSQeaBPv8v2d8vxR1AMfSlGt/xRgsKfdkzE/vElbdn lpC+K3pHgEph5CvavudsqtIWTJLvjoLSnljDSsJaOrF8/05kmc+AETs4uYvF yGo7rVYnpQbzqWbg/Q4qxFZwmHxZjTh0AyNB5m0UrAaInIB0Zc3knWqI3Sjy mFpqNgnhq2qtJmdppSn6fRZxvpL6ltyGkAo7gFuxwMUWpmyZsnZ8NF2czkps d87UV6pvllE47LRiyu1iZyyMe0XEM6A+mCRd4nOXvGWVsjOvLdFXVIx+c1YN vlifepff6VET2JSZ9L3UyplpGwV4v4PKkN6c0XhDNzAU5IapwsOWVQbARsVN jpAwq5DadU2OJUTSWKU3USpg1rBIpGOf9XBCBVP9QCB7J9jcO4CJX2fG3+DN eSYWlI01VMM26Cx3LCE8BobsiSaHca9IbLpa1eS8p/oBUPvuEFOMtEg/fQ0r NqnMFf2Kj6uJavpgZl1vsxU5aqlYGgB4v4PKkFGjisUIKCWSqpDcK32uJ11q QCK3VlkZodSUiSirUb8DtbU88z9SAlrVTz5fbK66ti4x7+3mtn2rG0du5+wW TdbykDuAO/H5iVHWJZKy9TinFhTL8jRCpP7K1XZTeAx2TZWBca+IXvKmehVr EyIS9Uc5ol/CnCStSJ99Z0lFpZjZy34PiWdVbffJckOMRSxKtjZ7HHi/q/87 UFRIx3v2+cM2DSghaYmRTs9iltmWXp1xtIq2amSBA/3Q170/fUUvZoTUWdcm Hs9ef6eRMlssaUMef7zNZ89kDNy4ALWuublOVaAoui5XNw7diik4wnGaCjLa Z03aL/UwtptUvf3Dvxbkx54DMftX26lpGM8T4THQT5+CAjHuFT0NObhaM62Z f64giCXrti9hTmJKy9c9X/CcpMRePCyCoDeLDImOh8ZSK+IDdndEp3FDuphQ P3bEOgTe7xq604OiQiym2AFQnX00APlBCnRNWUvAOJNGqrHjxG9SHySSSy/m 3MeoTFMmscyBanVFcxUpbD+J/u1S1yGKauq7Gn4cvZxqFUxOzS9+dB+zyNWd swHqvvem//mXHmtNzlyu0FnPxGoVvlIKfSUiZPPp6z9Ep71jZ5i+osm4l2ki UtKcLJ1YuGbnJqFypH/5x0ChQZiBMOgVkb/7xaBWFQG96Ovh9jVki+K50Lfm aEe7LTMUYersajPibb51suxtTCz6BxpSoa+u7VLTZlUUvuUA3u9QPlQIwoQc KxFQciQuSWyw0HhhQlq9RccfBEY7rWwP9OfCnqyQI0os+PoOmju9cm19hURT lkRrYn0x/FdXf6vFVGXruhTgOnWKM7iwR7a15DtbK+t6ygao7P5IYnlypJGq bhz8r2h632c6EV+Y8Qp9n8+4bqvTKiz7uiStlShLI9OfJLJSbKWDPILle+nV v8aVyGbDoFck5vwbh6by6BZIJ5Z8fbVsGWanZ45YctKbC1POHht1wD5+Z3lD KEESqlyTwUWvVbbCbnPWxfSepWr7fEviK0ysJakjA977Og59X0od3hiwo5oV eL+js1iFSLfmVr9NAIB2yOfN3HD0CNs7nrKdfN/9xdRMKBSc8H7yuw5btaXl Xe/s45Q3eCqgPdAx+nkweOty/xHK2uOZy7ZG24oFXb0N1Vx3+1HPrWAoFJqZ 8t+46nL0dzQkZ9Xa5r6xG6GHxKhGJ2K3hhqr2WZAlya+mfQ5+xoo+eQSe/6C smJrecbVnQxxLYe7hv7dfd3r9V73uD4YPH2MbYRXVdf2zvjn36ro+5xiJ3r5 FQtF1bWcYlqU/i3043J5ol4RoXWytderYI9ZEPxjoNQgzDgY84p21oMX2byb 2Tb0dU5Feq6DxKPeAe71aR++OjHNv8VVhEad3oxeYQX2lLVj9Gbw7/5PzjSY meWtXNqLTizfGbcfYFq02y8yB5yZ9LkG25g/Jxat+iZd+qvFEGBPAe93mEFX iPTqVPwWoJSQz9v+Xv8viScPgr4/Ofq72pi4lLI0tHUNjHomo08kadvtJ9Ev Lw/3tic/Y2nsGPz09qLCCo3ejN0NXLs0xDdkpuqaT3T3j1y6cvNOVD6Pyshr A67zp5KfT0afpy967jyU+xx3/pK0A/NdX3pdHw712juS2HsH3x91XfP/fXZx 3YAbWnSC2e+jsnT8LBZCcZ/qghS9Y8grotfvOJoYGWXhzgn05sPQ567h3uMN yfWspaG9d8SVvu6jE2sR//gQ/4q95w4u5XpBmC7tVxz9bzTXVTHvb0cv00v9 bqzc68G8ef79aD05taK4SRZ4v+fwfgclJU2EqbFuEQBtEE6YCp1M9Qn7vhhr a1szieXAEKvSrOv2zpfmF+K9AsrfW7lUGPCKhKpSc4frBw1zN1AHb/6MuTUX 8H7HQ1Eh0tenCo8fAAVBDi9GjCGZYbbKUFvbeUE/vTd+ghkXrF3uaCniIq4m iKodnNwtYkjDXZGwxmkY8C8abhVqBNKtRCH9lQHe76pPDhSXdG2SEQMSYBx4 p1yTQTs8ssOs0vbc7oA3aqMa359eK7rHGivMo46NhndNOGCsK6K35zydzBSs c+cEgyP25DUZbF+gXMD7HVQIcolk1IAEGAeylYOR5JE8bPJh7xjXp9ylKKv9 09kimwwnVsJ/vfFldBfFXQa6IqHGE6FvqSGqtIw66JUUeL+DCpF8QuxW4t2U NWysODvxhW/8N7xej2vUkeRCf5e9o+N428nLked4eIwF0crBkGkQRk5GHffs IfVearguRQAMKgMdD48zfmIIfcsAud5HfikTeL+DykA/8nWTmt+m8Uiuh6RS kO4lBBBpGA6ylUO3z3iCp/Tair1BYml6rNNqqm503NHh2hho48VP3pMHjOCX u1sQWtdxpDW22+PA+x1UhsQjXy/x5GkxhS4ryYfncYxhLnxtwMYvog857yEV ZSwI0a/luEddQa2eYCVq+twfKTVby+G/3Ziah2GT4aGXw198cdsIfrm7hTTn h705gMgD73dQGRi1zD5i0aX/7pxkc0AtFtZAH4hmitQJ95zhXBNerE+9u6/+ DzMwqAEAqIV+Hh6rFyda80HHN+ilygLvd1AZaGETgXsn5fcOdAXRHHDvVB7t Iui1fzjt9ea644PX7mHXFQCwJ2BUozXiXCt1J9jDwPsdVITnC56ThBrJCA1H iOaAqp2oAQAAgAqyveTtIVJNhwanHlf6lHQAvN9BRdi+52wiSlEN0XBk1c/L lCH6BQAAYBDWJwdrxWyTIWt+iw2830EloDdCfyB8RmpaXREV/awrC9k3B66J AAAAjMJG1PWaGP4asvChuMD7HVQC+lFggJTh9/oe6V9yQ4h+DWkVCwAAYI8i LbQxZLazqMD7HVSAtNfQGCWoRGMOyu6N4ZEDAABgGJ6GHEfEpFPtucBeThvC +x1UgHh4tJlI/PZ4l3SvenhJNkzXrS8xAAAAII8072QIwWGpgPc7KD/06sSA KL83SOL3Jb0VcuxPnXOTI7Re6fMBAAAANCFN/+5h6zN4v4OyI9XelynxS0tc rC0N7b0jrs/Dy6KF9U5Coed1huiX3ojdveV2DDB+1KaquuY3BkavTUZX9S9f BgAAsDehH908I2af9m76F97voMxIE7/VTaPfljzxm/g1dOXtZqaDYW1z34ee ienQzKRvvL/ZUm3rvjIb345H/jzQXGuijp6fzG44LBH9Xl94NOPua6IoW9s5 pzfAHpDpRZj8t0Pdrn8sKwTSAAAAQEXYeOAm5A97XP0LQJkos+qeTsRuj3Uc YL7L2jk2vUQkZnfiD/6zt7bKdu6jD9tTGyDVg1PPsh1JFP2abaf6Ttmqre0O /xzZqv758uTv2fbf1vbxMNaSAAAA9MjGN46DQvxb0+K8u1npMwJgdyOV3Nd2 ekvq1ZEMfW8NNbIGvdZTrtmnGd+1sxo4VyvG4tWt7n9mOR9S9Mt8snHQNxfP iNvpBW8nezzq2GgYwmAAAAA6RDr3mbs8C4h/ASgZUo9fqtUV3S5h8Esvf3We C31NB8/4l+S/6fn3o/VCOJ6jlo0Q/Zooa6dnTv7Mtxc9nSlpcJ9/FelfAAAA OoRe8p8R+k1RtWduGs/yCwBjsLMevCg2d6PanbOldOrY/tHTeUDFe/00OHyI X/9m75lCiH5NtgtTa1nVGmIZKTqwAAAA0Ct07LMeq1CD0zg0tYz4F4Dis3nX 2VIjKAdKXOxGqPqp11zR7F9FhrWt7qyWf4ToN3d/HDH6NTU4QjDiAwAAoE82 F7y9/PynkNgBAORFfNbZLiwyqaYPZtZL+JaRthLmTm8W0QPLs6nB6tQHDznv ZTunnfDogdS5HxycWs1+OLJveG2Xb6mgywAAAABKR2LB1ydsyZptQ1+vIf8L QNGgN2c/bhFj3xJrHiR+wvu6fQ9zvM07Eech5bB2a979urI6Iu2TJkuHd7Gg 6wAAAABKCb12eyRVIAP9AwBFRaJ5sB53R0vrrb0xPbyPD36pk56FHDoFlWHt r/5e3u8hhzqCYSXQX8df6f5e/6+FXAcAAABQYnbi9/7YLhR/24YCy2jZBEDB 0KszjlYhGLV2exdK2wmC3gi+t08QMh12RV/k+DARrOb4pDp1BMPOPechYRA5 MhrOah4MAAAA6IOtJd/Z2vJN0wDsehLLgSGbIHlofH+65KL6jYizVfjC/Y6Z XN27t2Yc+1OBec1wMNsnCXVEXX9gJcfx6JjXLgg8uG7IAAAAgM6hn4TH2vjp q6ZlLISGTQDkC7095+kUDFWsXe5oGTwQlnxdgoe3QrD6Iuo6rKxS2Fn2nU5d A9XtjeXYEiJL3kyU3RvD6AEAAMAQSCrgGgb8ixBAAJAH9PodRxOvpaeaR6ZX yhEMSrQHr7vnc6R+EzFvN6X8yWfhUb4184HRcK7U9erUoDB0WI57cgqEAQAA AD1Bx8Pj7bwFmvnE+L3MBqkAgJyIzSbKu4ok/HZN1eennuV4dwnRrySspRPL 9+9EBN1/PORoSH2swxvL8dVktV3tuQBaXQAAADASdCJ2a0iwgLD2eOZKacwP wC6D/mXy/FE+EDxgd90tn4KIceblvzl3yRuRJa7qDxAdjpkULtXlW079VzH6 tThC2WP4F+tT7/KSi5pWV6S0vhYAAABA8UkGwF852lM2R1TjhYlYruoZAEAK +ums65S1IqEvw6K3g0/+5kzV0ouedj5Ybff8JJ4jExXXHHbd5wPnRMzbpRz9 0gvezlTwW+peHgAAAEDpoON3XfYDCIABUEuFQ9+XEs+HHNGvpL5VYk3GlsI1 j4aFAj16K+TglsHZfSHojdAfUpJfqtUxswqtFAAAAONCx+97B45wsyR1zD0H ByMAskIGgUeHJn6uRMUo/Tw8Vs+dw35HaEs2Dt2KTVxoFHvPnfYtC6na5wue k1T9WPg58YeCoDdLqws6HhpLtfM4YHdHNot+TQAAAECZScRCn9/wer03vozC AA2A7NDMu5J8Vbz/FYg8rphZCr3o6+HK2cgUrgAX+tYc7Wi3ZRbHbd9zNtVm qHb51smyneMSi/6BhsrlugEAAAAAwB6HTiz5+moppmdNp2duW4xH6c2FKWeP jTpgH7+zvBFxtXIJW8HubHPB22uVtWvYnHUxPjBUbZ9vSWyCQyfWwlf7mtjA +MiA9z5CXwAAAAAAUAl24lHvAGPbQlnbh69OTIeCE95Pftdhq6JsPc6phU0m TKU3o1fsVjZI7hi9Gfy7/5MzDeZsgg06sXxnnKkCqLLZLzIHnJn0uQbbmD+v snVdCsyvI/IFAAAAAAAVhN58GPrcNdx7vMFCmSwN7b0jrs+/jW2S2n06sRbx jw+daq6jqLqW0++5g0u5BBuJ1WjgiqP/jea6KhNV19zRO3TpWuBubBOBLwAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAOiA/x8m77fJ "], {{0, 169}, {938, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{390.79999999999905`, Automatic}, ImageSizeRaw->{938, 169}, PlotRange->{{0, 938}, {0, 169}}]], "Input",ExpressionUUID-> "ac3d38df-c5a1-47f2-9d38-87ea9224b069"] }], "Subsection", CellChangeTimes->{{3.742225210268482*^9, 3.7422252341165237`*^9}, { 3.742225399065777*^9, 3.742225438530488*^9}, {3.742225588522272*^9, 3.7422256174212418`*^9}, 3.760965450136301*^9, {3.7609659085405912`*^9, 3.7609659145205517`*^9}, 3.760966061616918*^9, {3.7609662283060203`*^9, 3.7609662325881534`*^9}, {3.7609881631948357`*^9, 3.7609881934150953`*^9}, {3.763399711721055*^9, 3.763399735639789*^9}, { 3.764950823751464*^9, 3.76495083872443*^9}},ExpressionUUID->"d43faaaf-0673-4970-8df8-\ 4e4a3824b78a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BHoloTerms", "[", RowBox[{"mu_", ",", "ap_", ",", "bt_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]", "[", RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7609882902016387`*^9, 3.7609883336856995`*^9}, 3.7633997569171224`*^9, {3.764950899564101*^9, 3.764950911875778*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BHolo", "[", "Rep", "]"}], "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BHoloTerms", "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7609882185298967`*^9, 3.7609882858452797`*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"77406683-38ba-46e4-aa8c-df27a8e3453d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"HoloraumyDDTable", "[", RowBox[{ RowBox[{"Bfield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "==", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BHolo", "[", "Rep", "]"}], "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{"Bfieldup", "[", "bt", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7422254484916067`*^9, 3.742225580731021*^9}, { 3.742225627520856*^9, 3.742225629935794*^9}, {3.7609655308202496`*^9, 3.76096569509562*^9}, {3.7609657842346163`*^9, 3.760965796045738*^9}, { 3.7609662028059177`*^9, 3.7609662040706134`*^9}, {3.760966236712922*^9, 3.7609662463084173`*^9}, {3.760988398152261*^9, 3.7609885123568473`*^9}, { 3.7614149156270847`*^9, 3.7614149161472077`*^9}, {3.7649509297007685`*^9, 3.764950940851637*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7633997895317855`*^9, 3.7634064951224575`*^9, 3.764950958379133*^9, 3.7656352192180147`*^9, 3.765739177320112*^9, 3.7689322707892113`*^9, 3.7689327335313296`*^9}, CellLabel-> "Out[142]=",ExpressionUUID->"2b4580e0-e651-4aa7-8a0e-2f6b6c568aac"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvQlwTOn3/5+EhI8lllgSwQgSJHZCiIQQIiILsUQYkSG2scfY953Y1699 MPZlMLYSRGyxFbGGIkaUvZhRQaHGVP7vX5+ap+7/9na7053uJOdVNVO02/c+ fe/znPM+zz3Pedx+Gt65v52NjU18Yfyvc+zYgFGjYsdHlsRfug6LHzRgWFy/ 4GGj4wbEjfL5qQA+jMF/q/GH//fnLIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZh GIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIbJr3z//n3Lli19 +vS5e/eupdvCmIB///13z549MTExV69etXRbGIZhGIZhTM8///yTkJBgb2/f pk2bN2/eWLo5jGm4du1aJRWXLl2ydFsYhmEYhmFMCeTrggULIF8bNmz45MkT SzeHMSWJiYlOTk6VK1dOSUmxdFsYhmEYhmFMw/fv3xcuXAj5Wr169Tt37li6 OYzp2bVrV7FixX744QdOJ2AYhmEYJm+we/fuokWLOjo6Hj9+3NJtYcwCgpQF CxYUKFCgUaNGz58/t3RzGIZhGIZhssXVq1ddXV3t7OxmzJgBnWPp5ujnxYsX V65c+ffffy3dEAvz4MGD1NRU5cdnZmZGRkba2Nj8+OOPnz59Ml/DGIYBX758 SU5O5rH24cOHpKSkr1+/WrohDMPkKd69e9eyZUuomg4dOvz999+Wbo5+4BGa Nm164sQJSzfk//HPP/88ffo0LS0N4lD6OdR1DtxMXNfHx2fdunXK446HDx+6 u7sXLFhw4cKFuSJaYZhcyuvXrzt37jx58uRv375Zui0WtlTQ8H379u3Tp89f f/1l7msxDJNPgIaZOHGira1thQoVDJrNsxRXrlypU6fOzp07NU7AwkqvXr26 R48e3VVER0dv3LhRiU47ffp0bGwsfSsqKmrSpEk6rDouff369fj4+GrVqkEK Vq5cuVatWs7OzggEcB78K644f/78iIgI2dyLOZp36dKlGjVqbN68WfmMNBSv vb19qVKlEAso/ArDMAYBqdapU6cBAwZonIC1cksFzp8/HxMTIy40bty4d+/e 6W1eRkbGqFGjcDx9EapVuBV8PTQ0FOf8+PGj3vMwDMPo5cKFC6VLl7axsZky ZYr1z8j9+eefjRs31tFUstiQczCeNipwvF7Dm5aW1qBBAxwMI9+tW7elS5ee OXNG27TJnTt34Jjs7OyaNGkCIS3cB1zS0aNHGzVqhK+vWbOmcOHCsPmydpqp eTihq6srPtR9HkFmZmZISAhOGBQU9OHDB4XfYhhGIV+/fh0yZAiEoraahFZu qbJUmVq7du2aOnVq0aJFccVixYolJSXpbt7nz58hWREd43icf8aMGXv37n37 9q20/R4eHjDgaIPuUzEMw+gG6iU4OBjWpnbt2s+ePbN0c/QApzBgwICGDRu+ evVK95HwDtOmTWvVqlXx4sUh7dLT03UcDKsbHx8PU09WV2pvZcDqwuDDkjs5 OW3fvl2jEb5//37NmjVxqkKFCu3fvz9nmodj4M6aN2+uvIQvIpeSJUvC16xb t07hVxiGUci+ffvKlSund1WslVuqLJWhgMmtVasWNPOvv/6q++fs2LGjV69e jo6OuPTp06c1HrNhwwbcGeXhNsMwjEZgcBwcHCBjNm7caOm26CcxMRGia+3a tXqP/PTpE+z8nDlz3NzcYE7PnTun4+CdO3fCiXTs2BHGvF+/ftomB+A+hg8f bmdnV716dd0lVVesWFGgQAH4o0ePHuVY85KTk3FzFixYoDCXAOFATEwMzunh 4cG1f/M26DMPHz6EYuF1NDkDAkkoTIxxGA3dR1q5pQLLly+nLAJcdPLkyTrM C/pYXFwcfgvOCauirdrJu3fvfHx8AgMD+e0PwzBGA0vSrFkzenulI5y3EmCW u3btCsOYkZGh92BIsqZNm54/f97X1xf6fNu2bdqOhOmGL7h+/bq7uzsM74YN GzQe9u3bt0mTJsEpODs7X7lyRffV7927V65cuYCAAG3pXiZvXpbKFXbo0KF+ /fqvX7/W3TzBxYsXIXrRASZOnGj9CSRGcPXq1cjIyCZNmlStWtXLy+vBgweW blFOgx44c+bMBg0aBAcHBwUFofeiO7148cLS7crjYJwWLVp07969eo+0ckuF syHOXbRo0fTp02EoevTooS1jAfb5l19+OX78eGxsLI7s3LmzjnAJyrl48eJW shSXYZjcyObNm2EzYetgoKy/LNXNmzfLlCnTv39/JQlUR44cadu2LbQcTC7M Kcyvxh8IqztmzJjExMRTp07B45QqVerGjRsaT7hx40aarIbt1XuvXr16Vbdu 3fHjx2uThSZvHrF27drChQtv375dd/MEcDHR0dFoQPXq1fPkNOybN2927NhB 1cPq1KmjN/kkj/Hy5cuIiIjRo0eL1d/Q8DVq1AgNDc0VJUdyKVCD7dq1w31W UnLZyi0VDmjZsmVycjKkNc4Jma2t5+zevRuxErpco0aN8EN0vwxKS0urUKHC jz/+aA0lGhiGyXXAELVq1Qqmxs3N7fHjx5Zujn5ov7DffvtN75GwnHAEQ4YM gXmcMmUK1T7VaCr37NmDI/FP8+bNo9QyjSspcH88PDxwQOvWrZW8+YI/atas mY4kWNM2T5Camlq6dOk+ffoo9wuHDh2C6EUUg9tr/VGMEcA1Q8Lh7vXs2TNf uUt01KioqLlz50ojPjxidLn//e9/hw8ftmDb8jaItTEMlfQ3K7dUWarXNH5+ fi9evDh//ryjoyOcxdOnTzVet2/fvpCv165dK1myZLFixXSnuULkBwYGInBW 8kKNYRhGxtGjR4sUKQJbN3LkSOt/g/zly5dOnTrBL9y6dUvvwZ8/f8bBtOhg y5YtBQsW9Pf3V7fn6enpsLrPnz+nk+NW4K/qE7y4ObhF+FfoZ70LGQhEB4sW LdI242fa5kmBU4Nr8/T0hCtR0k7w9u3bxo0b4+T16tVTnn6Qi4CvDAgIsLW1 XbFihaXbknNAGiUkJHTv3l32dpjWDSFgWb9+vaXalufBvS1QoMDixYv1Hmnl lipL9bq/V69eX79+ffLkScWKFaFO1TMT0KqxY8fCoYjfriMJVjR13LhxiJ05 kmIYxlAQy8MuwdYhrEZwbenm6Ac2tnbt2jVr1lSSwvfnn3/6+PiQ1j179mzx 4sUR7MsqLcDqwoQeOXIEf8Y/weTC8Gp06zhb1apVca+gDE2SQGja5kmBo+nc uTO8zNWrVxU2BpJm1qxZ5PWUpx/kIh49euTq6lqiRIlLly5Zui05x8OHD6GF 1LsBekiXLl1YOZgPaLMhQ4bgDh88eFDvwVZuqeAm+vTps2TJEvz5/fv33t7e Dg4Oe/bskR22b9++KVOm4GCIakhrNAAyW++awY0bN+KHzJkzx4Svft68edO/ f/+Q/wgNDV2zZo31z8/kXu7cuRMVFSVueHh4eGJioqUbxeR94OAqVaoEU+Pr 65srdki5d+9emTJldKw4kAJr365dO5jcLNXrrQoVKkDUydLG9u/fLzbKOX36 dLFixXDM9evX1c+2d+9e2G3cK2h+k7yGNm3zpMBWDx8+HK2FT1HenpSUFFrP 1aNHj7y3Vv3AgQOFChWqW7du/kmChSSYP3/+0KFD1afpIJZcXFzyYUpwjgHB 2b59e/URrRErt1SUBEvlESg6xsnRtaTHPHny5KeffiLV/fbtW0qCxTF6demx Y8eKFCmi972SQUDD//DDDwULFiypolSpUmPGjOHCs+bjwoULbm5udLcRtdna 2v7f//2fpRvF5H0QmSL+hamZOnVqDmQ/Pn36dNOmTYiOYdubN28eFBQEw4U2 6CjhIgNW1NHREVGeXomFnzNjxowhQ4aQ4SKjCg0DJSOOgaGLjY2lFCwcv2DB Am31FSlvEP9qZ2e3atUqA35zjjRP/eQzZ87EwStXrlTeJIQwVJKicuXKyp9I rgCSfvz48UYkwWZmZt65c+f27du5seAP2hwREaFeiRTRX/fu3SEb1KfRmHfv 3l26dAmyCsFyduQf5KiPjw/Cbb2FL6zcUmX9lwRLKUkYSmPHjsX54+LihCaE Ncb4OnToEP0VuhqiUUclWCkInEuUKAGPAM1vktZm/adgeYGYRfjjjz/+97// mUTBYuxYf3V6xlJ8/vw5NDSU9lhRYmqM5tOnTxs3boQ9R2hmowVY44ULF+rt rhSwd+vWTa9pwq/r3Lnzli1b6K+wseHh4bjQokWLxCewur///rv4q47UMnwy cOBA/CvGJr3IUwdmc9KkSQj2J0+ePEUFzj9q1KgVK1aoV4M0bfPUwc2khcB6 jxQImVewYEEd1bpyBTdu3IBYdXd39/DwCAgIOHv2LP4Pn65Q0kP7zZ8/v0aN Gvb29hUrVixbtiy6bs2aNRMSEmRbycv4+++/Fy9e3LRp01oqGjRoABWhtxao QUAapaamKok37969C2Hw6tWrx48fI2xs2bIlYsbBgwe3bt26XLlyu3fvzpNL 9ozj9evXs2fPxhNH569atSrMEeyMg4MDRj1NjaqDz5cvX96qVStnZ+dKlSr1 6tUrLS1NesJ69eqh8+gt7mHllgpg1EANikmDdevWYSi1adNG7D+LtuEM4gBY D0qCVSI/0JkhdxW+VlOIQQoWB+Nx43YVVgCaCjuA+79582YrfGuJ3zto0KDi xYsr+S3w+1WqVEEHnjlzpgkLDJpKwSKiiY6O5ijbykEQDUeDkZ7z7zjS09Mr V64MW+fl5aV8yY9BoBOiJ9NVAPxmw4YNO3bsCHUREhKC68JfSHUs/ooBBQOo ba09KVglb8dgl5o1ayYWfEGexcfH4xIY4HSrDx48OHbsWGF1nz9/riO1DF8f OnQovq4jkRL3ED8Wlrxr164YwjgYymf06NH79u1Tb61pm6cO3B/OBqdskEo5 fPgwtTwyMjKXJhLg7i1ZsgSdJDY2ljYmO3ToEHoafpfCJNjr169DeULmHT9+ XMwL4eFOnToVNr9OnTrXrl3T+MUTJ064ubl5enqeOnXqXxV79+7FRaEbxVwZ pDUEQHZS8tauXTtgwAAl5mLHjh0QOeh7Bw4cKF26NHojGgNNhf93796d62gR kJ2QfJCgEPl4smKoJiYm0iaqw4YNk91t/HXTpk0QulFRUXjWkLIQABgyYWFh QtRBwdatWxcKQeOafSlWbqkoCXbp0qXik5MnT+LOIEAjr4EfiAOEUJcmwSqZ ViUFq3HlmtEYpGDRSDxrjMqJEyfieZEnKl++PML/Xbt27fkPRHxQ+EOGDIGH oiQNFxcXPAKrmuaFzcH93LZt29y5cxFiCK+KHv7bb7/tkYAOPGHCBDwjPHoc g1+E/maSNbymUrDoV7jV0qiQsR4yMjJgGKnzEIUKFUIcunPnToXKAX0Vls3X 1xeeWu8m2hrZv38/LopLw52ZYximpKQ0bdoU52/SpAn6s8Y1BTD4MJvh4eHU EoGtrS2MCW5IXFyc9IvJyckIMGF49Tb46NGjIrWMWL16NU4LOfH582fcf1hd 6daNZ86codQyjfoEd3vOnDloGK5+9uxZ3Zem8uA4WEd9RdM2T72106ZNQwOU rIOW8vjxYygcG9X+XEqKWFobuNsJCQn29vbdunUTUzpwqZB8+FFQFHpN9O3b txs1aoRnoVEiQqM6OTlBpqrnH2Lk4gFB+krn3HCS4cOH47FSeU+a5c7OohV0 +379+inZjY6qh0kLL6AxdF0oc3RjiKJ8nhkIS7tw4UI8zSlTpsjygXGjli1b RhlWkJfS2TYILSg0qBeEe9LnCHOKniOMFYY27J6SOVgrt1S4MxAS0j3CICrw LQyEu3fvokNC+Em3bIAzoqom8+bNU9LPIbMhtgMDA4X4zz7GZRGgPyAGIQc0 ZswYHWEmnil8EKVqjBgxwrQvWUwFfC6apzfxDLcdWp2CNfTY7OePmUrBwthC GOTG9K28DQb177//jhCvZcuW27dvR4eBVDhw4EDbtm1p7MBg3rlzR+95YEZc XV11vy3SgYj0Acy4UT9FK7AbsP8YFPXr14cVVWLHYMA3bNgAySqblZVKkSxV iUWYbhh83UaDEkFla1ho/rZOnTpwCrC6iKmlX9GbZUqOQ/d2OQTEDA6TZbKZ u3lS8HB/+eUXJduXy6CSU5RYkhv3Kz916hS8obOzM/qJ+FBk7umdus/MzOzS pQsEgDbnRcWpIGxwl6SqBsEaRjRumnrSKdnzhg0bvnnzBmIAskRJDKINKHAY Cr1bLGWp8hkiIiI0FhjBP7Vo0QLWIx/uTSZ4+vQp/KOvry9iFvV/ffjwYfXq 1ckESecSceuioqLQxzBapcfTiGvfvr1IMqGhVLp0acg8Hc2wckuVpVKY/v7+ 0pd0NL1MfgcyHoGSdK71xo0bpUqVgvHHYNR9dYLmupVMSijHOAWL6KNmzZo0 myRyNrSBnwztSiIW8am1FToQYTtQsvvPwYMHHR0dcTBkiXETYgKTKFgKxHTH EYxFwPOFh4XAU38zhaAV9sRGtbmA1AVrBH4QhgIHQyUake0MUwzrja/Depw8 edLQr+sApnvgwIE47bRp06TiE11xzZo1U6ZMUc93wj8hip8wYQJ0KczI1q1b f/75Z/jf6Oho2QwGfik8i7e3t+5RhvNERkaK1DKC6hgA3PxRo0ZJNbBYYPvT Tz9pG+y4Y6TuevfurWOeHF9H43EYFAL8YI41TwrsNm6dEenN0rhG92Y6VgjE Q4cOHUipSh8QaQklSbBkezE8IVO13WeICg8PD0QH6Mzi/OiruC7+rx5YIRqF jMFQTU1N3bRpU9++fbOzYuXy5csI3yg7QjcQTlDLGrODKNNSYaGnPElycjIe 4rBhw8QMDzoPHhC5SwwfOH0aBbBjQqwiZkGAg0ePoSFzrDghJJN0RwD0n9jY 2OLFiyclJeloiZVbqqz/kmClUhDtgVa3tbWFMY+JiZHN2lF1LHd3d4Veafv2 7fB6ptUqxilYesFHN0TJVKTYjb1kyZL4bjbaa3roFQClEMDs6D0eN58WANJj zc6zMImCRR9DqLhr167snIQxOXB/EJzoIRqND6wNZRABPz8/bSsICPQx6BO4 UeNSWNPT02kKt0KFCiZceA5HAJsG75CSkiL7J8ih2bNnY4DIkjNhB2CN4U9h rvUOHJy/VatWFStWlL5WUyctLa1BgwayKAA3ysvLCw1o1KiRzGI/f/68Ro0a MLzr1q3TcdrExEQYK1g5qtqtkVu3bsF42qh2w9G2NsFMzRNQeILna8Qma1SK 3EbfhuZWCFUDgzeU6QHcBKoEq94npVABTzH6tL29ImWCY/z9/SmVFKoS19W2 /A0hWKVKlRBN7Ny5E5JS+jbWCDDe4+LilPhlCAMMK41Hfvr0qU2bNnm18K9e zpw5U7Vq1aVLl0qtzZEjRzCuEbnANMEewipST0BUQm+34VJFeqd0XFM2F044 depU6d3G5/PmzdP7HsTKLRWira5du8pe0gnpC40t2xsR/4T+SfdNSaRGm5Ep VFnKMU7B0toB3TdEBh4uTTr16dPHqqwlbcuIhiF21jsbRqDbU3+oXr06bqDR lzaJgqUk2Pv372fnJIxpwWiFKUDUpmMK5fr1605OTjaqwvIIZs3XGKooSKkv uqWycmAuEEp7enpqy4Kg/K7AwEAxq/DgwQMfHx/82MWLFyuJ+yiTsGjRojoK JkOxhIeHFylSBBGc9Jy4aNu2bR0cHDZv3iw9HpYHhggSGgZfdyiNJ7ht2zZH R8eyZcvi6chMNP711KlT3t7eeMR2dnYTJkzQ+IvM1zzpJaCaoFKMWN5LryDR MeBYlcz1WQ8rVqxA74JXlb23hcDA3dO715h0J6Ply5frmH9GX7VRrZSBdsVf V61aheti2Gp8H01vDXBOqBF03ey8KqUkWCWugZJgERJq/Feqh697EOVV0Ddq 1ao1f/582dikbEwMXhjDFy9ewIiRmJkxYwYlMOMrEFrQAxcvXqSvYMDCGjRv 3hyScs+ePeqDPSkpCUMJD0KbZbNyS5WZmTlnzpxChQr1799fVoJjyZIluDnR 0dHS+WGcFqqYdrOdNGmSEnuOX9StWzdoLYUqSyFGKFja44MeurYbog4CEBcX F5oIsqqcHEQElI+n932lAJ2EimAoXy+sEZMo2BMnToSFhXESrFUBIwDx1qFD h5MnT2qL1yA5EACq51+ZnDVr1lCad+fOnU2VgAQ7DLuhbfkAbMKwYcNwxY4d O9LvgsengkU6XtqqQ0liM2fOVNcYMINU98BWhY1qja0w9ZQP2bdvX2F17927 V7t2bXsVNN5xT0qWLAktpEPAXL16Fc8R53d3dx84cCCiEkiaoUOH1q9fH+HA 4cOH375927t3b1mmXI41L0u1OQ78zty5c41IA6AZSxvValyrssm6wd2D31HP D8QdgDO1+W+jeXSzJ0+eaHNPGH1Hjhy5ceOG7vtG+36SnRflN7XtlQA5BMmE AwICArKZYEZJsCSbdfP333+HhIRoyw46dOiQEkmf9/jrr7/atWuHKEA92QN6 D6NMRG3nz5+vVq2ajWpJI27j7t27KayD3Nq6dSsGO0Y6Bi+MOca7NvtJ+aJ+ fn7qZR+s3FLBVcH7UNvITeCi06ZNEwMHAsPX11fYh0+fPuE80C3UQvpF6GOR kZG6q89RMNWqVSvTahUjFKxBSbACjGhIRBvVWn7pcjbLAisn0mCUJMESwoTa KK7ZqJHsK1hKgv3ll184CdaqyMjIcHNzox4yYsQIjT1E+ioTJstMO+YIMQni 4+NN0k9gDGHTJk+erO1sz58/9/T0hHGjNar3798nz45bYdD7FxiNpk2bavQL OcmjR49Wr149fPhwDHbcw5UrVyIet4bEUfSrQYMGlStXLjU11Yivi/10TJ4g bVaEkgwODpbGffCtUH2iujuUCVxzNt3ljh076NUhZAZ6O81HofNr7JAYwpAx JnllD+2K36JEdt69exfCQGPGAlR6eHg45DfEjDV01xwDPxZ6DyGzetIU7glV xu7Ro4fQPOgkkHzNmzdHvEymEjcNshYdbMyYMRgaetfOo28geoLO1J2+Ym6s 1lJlqYIp3N6lS5eatj1GKNikpCSDkmAJSsiRTtcb22RTInS1oekZIo+iRYsW RrvX7CtYGPCoqKidO3cafQbGHDx+/NjZ2Zl6iLaVpMIRg0qVKumtxGIc6CEh ISF0leXLl5vknOvXr0doT7vGqENJsBAS8CAwL/jttNYgKCjI0BwGnApthl/I jYvlc4D09HQESv369TNuap3eYNIkT+7aGZBmntF46QwbzCBcJHwT5Bztspp9 R0MV3cX8xqVLl9AbEZ2pZ6RjoM2aNatw4cI4XmEOsw7wOBQ+VqhlXBQCTPZL oakoObN79+66J8fyHm/evEHkq3F94v79++nVvHpaBcQtbR8AjFjhgijSxcVl 3LhxPJukztevX3v27AmPoM1rGI0RCpa2gDEoCTbr/69gR4wYYSVP+ebNm7TK W3kSLCEUbHZe0GRfwVIS7L1794w+A2MOENQEBgaKWXqNE49UlYWOQbxv8qFN iP1D7e3tTbLcj9KZdBQVPHHiROnSpXG5VatWwapQwqGHh4dx76nhjBo3bowr WmchPgtCkYKrq6uS3dg1AkkWExNDPZDmGE3bQvPx7t07Pz8/CAYqDo+Wb9my xdvbu2LFilCYV65cgcIMCwtTcmfQRU+fPj1x4sTo6Ojw8HD4puTkZLoVdIfp /sTGxuJ2ofMPHz4cslD6ShcHHz9+HOMdmpOWvUyaNAmnnTp1qrRGq3Lw3bi4 OFEAQQeUBIuD8dulC+ExaoYOHQqRP3DgwHy4nQECXkQZ6gbn2bNnDRs2tFGt 7lfPF126dCm9ta9evbru1aMaoXwAqCkuzK4O1aBbtmyZyacuDVWwGMKRkZEi CVZ5e8SSf4CRbiUFlqVJsMoniPCrYfHot2SnHrhuBQvNjyAa5y9btmyjRo2O HTumfrehFkJDQ6U2CgMTzwW2q0ePHvkt9LYqENfAB6GDaXsK0nxy9feS0qcP q3vkyBHjxj4taKU3xSZZzUH1W2TrDgTwHdBUBQoUgDFHVzx58mTx4sWhZrUd rwT89goVKkjL1zBZqtfHcLUIpY12CmJvWaHQTNtCs/L48ePg4GA3Nze03N/f Pyoq6smTJ7CocJQYLy1atEhISNCtyTHEFi5ciO4KDzhu3LiDBw+ePXt2w4YN bdu2RdSJ0A83BFJHloGDYQup4+zs3KZNG+jDTp061a5du3v37vDReBBQzu3a tYOQhlkOCQlRrzKEY2DJEVRCfleuXBkKWT00g/5EG2Tvo/HT0FQYBLGjU5ak EiwcAXwEBmbv3r3RMPwiqHEMRit515nDbN26FQGOLBUZ94rsrXTfNAGiHvQc ylY1dHs7AYwtwu1BgwZZ1Vp1i4OB1rVr1w4dOpgjmDJUwQqHaGiJOdofjawB wlhriPdFOQigcPM+8UWIcPqiks1ftKFDwX78+BFWNCYm5tWrVzh//fr1oWRk Ng2jbO7cubL1jxcuXKBytUWKFFFP22asB4wIyicHsndP9PQxKsXTd3JyUrJL pjoPHz4ky1yyZEmjJ+ukQJd27txZfQkn/AU+hFmoUqXKjh078K9wxDT9GxgY KE1HhPaAj5g/f77CzaZxqlmzZmGg6ahkmN+AL8BTkC4AMQ7IPOqBHTt2zI1u NyMjIzk5WbqVG8YO7OSDBw90ixAcU69ePQcHh4kTJ8piTNwHfAi7ii4NbUz3 R7a7Fvrk/fv3EaClpqbK7hsOS0tLu3nzprpLxT/9+uuvzZs3x1iGExk1apSd nZ36fkZQUxgyUrci3qTIvCeiGMh4SqHHCe/du3fu3DkzZdTnIuD4YC6kKY4w tlBQUKc9evRQ99fv37+nTCcbVc3t7Oy7jftfrVo1WeGp/AxlgqnXCjMVhipY qhphaBJsluR9vbo1sBRiTzRDk2Clq8hbtmxp9FSnNgVLbzRE/hIu16pVK/Xs C0qChVqQfhcPlHQRbKPGooWMlbBnzx7aX9XZ2Vm6EoeePoJW2dM3Lu6j0jH4 erly5UxlQ44fP16xYsXBgwf//vvv+/fvX7hwYVhYGHpy7dq10XJqNpo6ffp0 uAyIBNFF8SEGGmKx0NBQmB3l20ihq48ZMwaDLjfuf2pyPn36hIi7S5cu2a+N JvI8s5PPn7ugnfLKlCmD0Yefr9ETwTVERkbu3r2bioWaavXx9evXfX19xWCH dtWYhwaPgNhE6pEhksWcSadOncQ/bd++XWHN2HwF4mWMDqimtWvX4lmPGzcO j7tq1aowOOrzVFTgndbUo0vI/KkRHD582NPTU33LtnwIBhfuZ4MGDZRU1TAO QxWsiNkNrUC4a9cuWtSJ/8u2TrMUQlSXLl3aoMW8T58+pfobNqrytiavRZCe no6QUOxImJGRQdveyd70oRnQz+pJsEePHnV0dLSeKtYwvzNmzPD29kZ4Wy/b IOiARTLhxsoWATZWLKKRlULC0/f39xdDXjx9hZs0yaCCVPh65cqVs1O7WAbG CxR1UFBQeHj4oEGDEGXLMsdu3bpF3l84aDQe1qNw4cLoDFu3bnV3d1ffcV4H MFCrVq2CS7KG4NeyJCcnz5kzxyRFacRa+zp16uSTuTuMCMR0UCxjx47V5vVo S9mQkBCKMbUVgDUImEGoTVEWQGyXgNEtTTagJNjVq1fLvo7YjQpH9OzZk5pN SbBUeIGRAXGC8ARhSIcOHYYNG6ZeCCspKalr164wX+3atYNRIm9etGjR9u3b h6uIiIhAiGFcdHDhwoX4+Ph8EhLq4M2bN+PHjzdrsXqDFKzY5szQJFiMtTFj xtAXy5cvbyUrj2hPNEOTYLMkJeJF5Rbj0KhgaQpOGlkjiqQhJltceeLEiY4d O6oPky9fvnTv3t16KuSg20ydOhWBmJcpgAyGccjVChYPEUqMlAOGnmzblyVL lkRHR4uFBgcOHIAbhcOlTWQMvda+ffscHBxwoRo1auTYBCaeOCI7YSho6hhi CVq6RYsWAwYMcHFxQXjFWtTiwLOTbclOPn8u4u7duzT50Lx5c90lW3FnqOSO jYl2fLh582bLli1FFCmKUgYEBEjf4uFCgYGBGlOGNm/eDKMhMnIpCda45CIG 9x+mFaF3mTJl6ClDCK1fv37Pf+zdu5f3CbJ+DFKwIpfV0CRYsTO7jaqCgTWs MJLmshqUBEubo9EXS5cuLeaRoIFHjBjh5+dXq1YtV1dX2XaHGtGoYKHNOnXq JKap0TDa4U56raz/kmBHjRql8c3yihUrKlSowHmD1klaWlrVqlXxTMPCwmSh Ez19MXmOUUlrSWBmjcti3bp1K61VNF/JWXUQW1GIV7JkycTERLQczlfsbDts 2DATbm7LZIfjx4/TFH2VKlWePn1q6eaYl8+fPyM2pKwAvRUIRdFIMGjQoOwv c5PNS0AgUWQqm5e4cuVKmzZtNA7Ve/fulS9fXpTqghoPCQkx+VYFV69ejYyM bNKkCWyUl5dXLtrqwlA+fvwYFRVFj9jR0RHu2NItYgzGIAUrdiE0NAkWoxK+ jCYtte1/l8MYnQT74cMHhNLU7YODg8Vk4NevX+G4J0+eDFEKp4A/6z2VRgUL eY9PRMj/5MkTqo0fFBQknayjJFhteQL4RWikwpUyeR6I/E/ZA77PVBOGkKzt 27enDGr1JQOyp5+eng5pQVrXuDU76An0oqF+/frm25cH1uPSpUszZszo1q0b fJ9w/XDQZcuWrVu3LtmNMWPGcM6eVXHq1KmiRYuSSTdTRWLrAXKd+mHNmjX1 TjiL2WnozAMHDmTz0pR8K5biYhT06tXLRrU9kyyBTT0JVvD48WNIyvPnz9Nf 4Yn0LlgzAhifHTt2UMUhQ3NLrMrS6m3qnDlzyDZCA+itXMFYJ8oVLPoVokUj kmDFZn82qrqXRlRaMwc3btwwLgk2OTmZFvsjkFcXkBCu8AiIXpVMaCipB0v1 vjDQZOkKGRkZkECybcEJKmNoqg2YcjW4A+PGjaMs/WyCqET5DnTaQNxBFSMV Lkpau3YtHn12qlGJpTraNlbIDjAaR48e7dy5M2R2YGDglClTdu/ePXDgQLEs gl4lIPKFprWetBZGcPbsWQo3ypcvn7cnxjH0unbtSmNZyUaKy5Yto27s7u5u 8lrNDx8+rFSpEk4eGhoqTYiiJFhtmWkQwPC8ObA/LGXY2khybpV8xaosrV6k WSL9+/fnctO5FOUKVpoEO3HiROWB0osXLxA50heN2OrCTGzYsIHiryZNmihP goXdGzx4MP0W9Uwq3BNaXhoSEqJkROhVsLC6tEuIq6urrE4yxACuojFX/JOq /BrXzyRwo2JiYiKzR5cuXYYMGZLNF2roPIgsEI+EhYUpSatDkBgUFGSjWuth 9BteMylYjGJ4GU9Pz4CAAMhU0dsRGNICLtCuXbsPHz7AsEAwYKzBWef599S5 DsTj5MfLli2bt5OOoM8pjwUDUG8RDAxVkcg9fPhwk1fKpcgULVm/fr30c0qC vXjxosZvLV++HN4nB8r2wvJgXEOOGrQjg/VYWr3cv3+flseCbt26mWRRJGMR lCtY45JgaWUKacU6depYyWIBkVxqY2ASLBw0VddEnHjo0CHZv0Lkk+BUuJuh XgULn1KxYkWcELGDdA8RksrakmDRSH9/fxMuPGeyDx4ZxCTtNKEwu+Py5cuU e5OdNLzNmzebPIsAvwWdFnZj37590n6O30UJEjaqxF1yxDAsx44dyy3zey9f vkxNTc0/6TciMczZ2fnx48eWbo4ZoRWRNsoKC7x48aJWrVo2qjd0V65cMW1L YMmptD4UtSxq0JEEm5mZCeeSMxuIk9ovUaJEnlwm9v79ewTXZKZgr0z+ZorJ SZQrWGHroKmU27r09HR3d3cbVab0kSNHst1e04BOS5VJEAUrfz8rXWEdHx+v fseePXsGka98KwG9Cva3336zt7e3s7OTxcKUBKuxbDKkzvDhw61tj0iY37t3 794wBXfu3MmNVUr279+PIRAXF6cw/Ubk3mTz5Tt1IRuTruRC21JSUmQyAKNj xIgRNDpwRfTqXFRqAE09fPiwn58fQr+IiIhq1aq1aNHi3Llzlm6X2UHXEnmw VpLfZSaWLl1KnVPJy4iDBw9SEiziTdn2o9nnyZMn8Lk4eYcOHWSv6jBqfvrp J42+GP0zICAg+yURlEBqv27dunmvwNqnT5/EPmvQsdnZvMCEwFmvX7++bdu2 9evXx0iMiYkxea/LqyhUsMYlwWJ49u7dm4Qivm49mur69etGJMFu3bqVovig oCCNszRUZatKlSoK5z91K1iRjKQeC1MSLLSc+rcuX74MR2xVC0jRW9BnlOVA KcLb21t3JRxr4+zZsy4uLkOGDPmkqQgY4kHEIzJbClfVoEED/FgfHx+R5YI7 aagL2717NynYmjVrSrcuUgh06a1bt/Sm2VB9MCrbZWtrO2rUqFy0wRNM36xZ szCoxYDCY4qNjYUrETWZ8ypHjhyBCbJRrVAweban9YD+OWPGDLIeXbp00e3s RMYsfIQ5opjExESKGqZPny6N8miPSI0v7qlwlpL6NtlH7DWsPAk2twCjBJdK ybqRkZFW5URu3769atUqes09cuRI6xFLVo5CBSvej9soToLFI1i0aBFV8unb t69G3y1AUDx16tTatWvXqFGjTp0669atS09PX7lypZlebCHeMTQJFsqQ0qg8 PT016kORBIvI7tdff/X398cPqVWr1rhx47Sl2ehWsDBopP/Vp0coCVZdRUPe tG/fHr9O4wOCRvL19YX0lU1B4DxDhw7F/dcY9+FfFy9eDNFYsWJF/KLGjRsv W7bMIH2CxiBkwDNdZQqglGgLcuUNsCwIkWCXIOq0pUYfP35cva6vmAUSG9jh //jz5MmTDTJuQqIYUS4J3YySWPQm4h47dkzsuDdo0KBctCwCdxV2BvJAFhqc P3/e0dHx559/zoG0QwuyZ88eiju8vLysZD7KTCxZsoT657Bhw3SPoAsXLlD2 DjydOYQEbe4DByR7/Yce2LZtW/UkWPRAGOdevXoZtIWQcm7cuAGx6u7uDjMV EBCAcBv/t7Ozw7gwx+UsBXzWpEmTyO9DkGgr6QknOHv2bDianNeQ6AD169dH 38iZXJG8gUIFa2gSLJ7+6tWrcTAGAtSRbvmKMQsXCXVEGUdoUmBgIC3VhAY2 9BfpxYgkWAgwqoOtY3tfseoKji80NJS0N35RhQoVgoODNc7Z6p2Dpdeyzs7O 0jRCksqyHWapAcNVaJOX27dvx+hQn8DcvXs3vFizZs3UG3nixAk3NzdEFlBZ 1EPwi/Cwli5dmos0pAVB6IEoafz48TreCqGTywagKAMrLQIMiYuwxdBUHLhj Kp1h6FIddGCx2AF/0PFaAU1ycnLCYfAOEOq6B7u1gf7s4+Nz69Yt2ecwSrhv 4eHhuWgy2QgQa5NPl07150lE5dtffvlFhzj58OEDRhmZejO9Q6dt8uAZZcu4 0BVbt26tftEDBw5AUppjXQN8H4Q9GhMbG0sR3KFDhxDLwCvlxiRYDFXI77lz 5w4ePBgufsKECWvWrLl8+TJ+JowSdIitrS1+LOytNrWDMyBsqVWrVva3YDOC a9euIXQqV66clWz5lCtQqGDFLlRKkmAhkKAMqQrQ9OnTdbuAlJQUaLwqVapI 34ljzEL96kgoPX/+PKIVNGb58uWGTpIYlASLk2/atAlCgiZXdaxEe/bsGWX8 du/eXUhBqvuH+7B161b1r+jNg8W38F3ZfaAk2G3btkmPpKEH26stxQtGG0PY Rm1zUnwO0YvP+/XrJ7uTiATx0KF4xfzb69evGzZsqPFgRh04IwQvU6dO1Ta4 cPPR7Vu2bDl58mRpRABvQvdZuv0Hoon27dsb+uYL56feC9uofE8ENGbmzJno ZhERETExMTq+iHiWZl/RS1esWJG7egWGEnw3PJp6OEZV7HJm6bcFwSOjIAUd NW+n3sF2wWXgl3bq1EmbS6J1x3juZcqUOXPmjJlaIoo8w/BKtfTatWv79Okj sxWw/A0aNEhOTjZ5M3DphIQE+Jdu3bqJ2V30dvhutK1u3bo5ULbLVODBwVvV qFGjcePG8E1z5syBMIiPj4fyx9OEgaLtz6pWrarjsUILdenSBWrEUgnw9Gq4 RYsWuXGhh6VQomClSUToEjreZUC5wSRSBX6Yi6SkJN0zdfDUTZs2xVOTzemR YK5cubLGItufP3/u0KEDtcfR0RFXUfRT/wOhJQJMSnO6efOmtsMwlhG2t23b FoEbjoRl023hqTY4RLV0pkuqD9W/olfBwobg/lDSjrjtGRkZ/v7+0iDx/fv3 CDkhNnRMGmBQNG/eHLdabOki+xz2U/o5Iovy5csXL148MTFRfPjy5ct69epB Cx0+fFjrjWBUfPjwgaqCOzg4FFajUKFClGBDU5eyPTXEUmgxX4RHHB4errcK kDoYQZQJgAGlfKTAGvTs2VP35SADli1bRrWY4O9y3YxNlmrWCwZNPSzFWAsN DYUmt57Fp+YAJnfKlCnUCaHk87ZWx49dtWoVBp2rq6vGFQQ4AB0eDx0+Zffu 3eZ7x4T7TImmcHCiJZQEC90lPQySBpHs2bNnzdEMOCz4QWdnZ6kThLUZO3Ys 2tarV6/ckgRLSfiQrydPnpQ9NfycNWvWUBoVqFSp0pgxY1JTU2WHPXr0aNy4 cYj0PTw8xIYROYx4NSyLaxjd6FCwkJfwSkePHp05cya9JQQIEE6cOHFBAsbX 1q1bJ02a1LlzZ1KGCDAXL16s92UiehGEK9w3FK9MqdKqsfbt22tMqMOZRdEe gEvr/Zk4D/otxNjGjRtpApZe0aLl6LHit+DPBw4cmDdv3k8//USvUOH30a/0 7lZDe7yqtxl3FREuSVD1bynZ0QDN9vT0xBk6duxIs98YpxDwNM2LW7Fy5Uov L6+JEyfqzpKCqSxbtizEp2xxCj4vU6YMPr969ar4EKeCHqb5Cpluxy/K2+9V TQL6wMCBA22UgT6GkE36ddxhSoGeNm0auhYeAdxKnz59jEiEE9O59vb2Yqti veCiuDS6nLaYKC0tDcEdhZDTp0/PjQUVKRsHHk3mL/A5lAPijgEDBuTtaUk4 TdFLoanyvN/MzMykXWXDwsJk76oQyEPMwxq7uLjkwO6iuByVtYHvw+XQ5agS LMkn/PXMmTNt2rSBnTdTkV7cCpoFglKV2nOqBJu7kmCpBBC0hPRD3MPLly8H BQXB7sGLIXipU6eOMLmFCxfGVwJV4BHQ2i4IGCPWupoKejWM1mrbZ5PRiDYF CxccGhqq0AWjA5QvX75Jkyaw+efOnVNoCTGK/fz8bFSv3aWDCH+mcnnkvjV+ Nykpyd3dHf3Q29sbF9V7rdWrV1O6lxKKFy9eu3ZtdHvoW2353jLg6Ujyydos MhY0NlKJgs1SyVQcgxGHn1C3bl3cZ5wTnhcCAzcBPkiJlaOqSuqVZLZt24bP IXKkK1moEqmh++0yAjwRxAUK+5uzs7P6E3zw4AEeSuXKlYcNG4ZhAkFrXN1C DGQR7hm0oTNCJFy6WrVqo0ePRhiL6OlvFRjgP//8M4RrqVKlRo0aZdpNCqCp xo0bBxUhe9lH1WZ69uypMZbEtzCUwsPDMUYwcvH/wYMH620Y7kyPHj2OHDmC 8TV//nwI8latWkFXxMbGwgKMGDHCTAtnrAfp+lwr2ezb3KADo/fCssHrTZgw AVYRrqF///6urq74sFu3bjm2tS7cxNmzZ4ODg2HVK1SogO6H/48cORIj3cvL C389ceKE+WKKlJQUWHhYfll9AwxzqgQrNsC1ft69ewelip/TunVr9GcEKRDn sJzQJEOHDhWmFcN5zpw5NMkmw9fXFyZO7902zjopXKVOSbBly5bds2dP165d 69WrBzsGUaFx283sL6/OMyivB2ty7t27By8P9St9dZL13ytUSDslr/AOHTqk RMGam5cvX3p6ekJRy16vU7dUf0dPKFSwAowFfAXCJi4uDgMBRkbhHJFIgpVt p6gtORYRK56Lk5OT+goXJseAyYVdhW28ceOG0e806e0kGWpDqwTjordv3541 axb8KYYklDacQv369dFb9u3bpzC4MwiYIzc3NwhI2ZvTjIyM6tWrQzZfuHBB 9hX8E0I5/NOiRYtIc8JnIVKDHhAvBKFbFixYIKs2gGu1a9cOTufZs2cYU3Bt cB+Q5fDg0O068ovyDPCDzZo1szFwk5rcDpVGQYTStGlT+D48a0Qu0BiWWj6D SOrq1asQrv7+/tAh8Ho5UGN/xYoVsPDwvzKBRCVQIJ9yURJsluqZPnr06PTp 05B/W7duhZeEEdBoM9HnN2/e3K9fP6jcqKioefPmXb58WaF1NcI6KV+lTkmw Dg4OsLQ0LY+mIsCBHUMLpUfy8mopFlSwSUlJ6Azqr1DPnTuHz0USLPyLjskQ hJCjR482e1v1gXjKWYWs0NaSJUtgKNBjZXvCEoYq2CzV84K91Xg2HWAsKEmC /fDhA8IHkR2XJyta5zdEkTd62WHluW1U+8vd3R2jXvo5Ld/28PCQ5azCT8E7 wFwcOHBA+jmUP45v0aIFra9PTEwMDw+XrY/AOeHCRLLTdxVZqvV3EMDe3t55 vvPD81KJFcSqGlNDmZyBdl6WGWfzgX4+YcIEG7XNHcQuKqQHEPzCBef53BLl GGqdlK9SF0mwEKKi+EzWf+WDoqOjxfwqL6+WYUEFS3V+EAbev39f+vnixYuh +tq2bQvnAukF1yOLQQRUe3n16tU50l5dYKRDptaoUUPah9F4X19fG1WmrkY7 YISCRbcPCwszNO2QkmDVgwUE4JQciyAO5mvhwoW0Hy4JbzRe46JIDBN0G7Zs uYVDhw5RadmmTZtac8UkSr5FOyMiImR7KNPnMAXSzzG+KBd31KhRMtMN8enl 5VW0aFFoV9oZJCEhQTpBgT/PmjVLVlJe/NPMmTPV96zPe8BXUuFTjlUtC0RI YGCgybev1YaYo5AVoIDDxYCys7NbtWpVlqrgT6dOnXJjirs5MNQ6GbRKnbIN YXM2btwovahMG/PyanUsqGApAbt06dLSCOXRo0dwPegPcDpwPRjUGETa3C46 SUhISI4NfB1A6fn7+8uKxiOmRgDVqlUrbW+FDFWwGAizZ89WX3uiF0qCRc+X VmVBWEcpBLVq1Xrx4sXHjx8R65HEpSwpT09P9SLnMGgDBgzAkXk+SzDPkJaW BrtnY/U7h37+/BkuFe2cN2+e1ObDsQYFBdlINnfIUo0FhK60tFz9/S9ORVuf L1q0CAEy/izLNKYkWG02HyMXflxhsejci9ivLTQ0NG+vWbNyYG8hHXNmx1hi 3759hQoVwkWl64537twJvQQ3ce7cOYyv+fPn04RGjrXKmjHUOhm0Sl0kwcpe hWzZsoVMHOw2L6/WiAUVLGQYghc8oBUrVtCjv3XrVps2bWhKHFINTRo3bpyO 7I5du3ZJa9lZFng9DH8qQIQGQ506OTk1b95cRyVqQxUs+jx+L361QQ0Tya62 trZilOFUCMO9vb3RANqYDNoVJ6dJV9z5kSNH4tEsW7ZM3HycJykpCQ+oV69e OZCpxZgKPFw8YhsDC2rlPGSL1N8U0D7yNKEqPqSY0Ua1glhdfaEDR0VFUSAc Hx8PRywL+ighTZueh+7FdxGmWXnSRXaQ1kg0NEGaMS2Ixfr165eTne3du3d+ fn4uLi600gFPH2KJVgbRK7mXL1+GhYUpryCd5zHUOhm0Sh3iAXIXakH60lNU NqMNwXl5tUYsqGCzVPELdBRCDzxWxBd4gsePH0eTWrZsWb58eYQ8OjYvzsjI aNWqlfUUbETnTEhIQLiETovYFsZh8uTJul/BGKpgnz59GhAQoHFPWx1QEizk KwYCBlpISAgkaKNGjTA6EPVPnToVwrtdu3Y+Pj7SBHWq9olf0bp167i4uI4d OyKywP8xfjkqz12IJCv0AY27rlsJlGamnk6mMf0sLS0NdgO/aMmSJeqnwk+O jY21UW2WisGoXiTn6NGjiNc0VvwTt0v35k25HVGIwMHBYc+ePZZuTv4FnhcG NudTVh4/fgwP6+bmhpGCYBARH8QYXBI8L0x9ixYt4M7ycP83FIOsk0Gr1GFw Bg8ejJEo2z8lMzMT7l7kLfDyao1YVsESiDsuXLhw9+5d8fgwcNAHEHRomxvH Ax0wYAA0mLVNkkCyXrx48erVq0q2hjdUwULed+3a1dA5Z0qCpe0bcKtxV1NS UqQnefXq1blz5zQuPsWDgGBOSkpCvMDCNfeyZcsWel/cu3dvaxsyBHoXgiky 19JRL0s/E6tLKIsewRe0qPrZRKVT+BH1EuWU6aotGwdextPTE2fGcDPtb7Qq xK4ZiFINXRnKmBAYXihJS9W+gGFPTk6WhnhwDXAQMPts8AWGWieDVqnDIOPr dnZ2soJFqampMF+w2xs2bODl1dqwBgVrBNevX4+Pjxebt+ZSDFKwtGkCPK+h hoWSYL29vQ3dkJTJM9y/f9/Z2RkGUFb413oQdWtlb7RF+tns2bPR869du0aJ 8bdv3y5durS23dtxhmHDhmnLBKBi1/AIGpdx0c5NuGjeXsMCYY8QALcoMDDQ ShKx8ieXL1+GgMntvixvY6h1MmiVOqU8FSpUSFpQRWhjHx8fytnj5dUaIQXr 5+e3bdu2HTt27Ny5E+KQgy/zAf2wb9++HSowHKAtlc/BIi42dNMQkQQbFxeX t5elMDrIzMxs3bo1ugEluVm6ORogQ0SFO6T25+DBg8WKFRMFS5cvXz558mT0 aso0U6/ATCQmJtLW82FhYervcaiuY7t27dRL2sL1uLi4VKtWLTU11dQ/0Yqg dTqUBEvO19Ityr9QOMaPwJox1DoZtEqd6qJACUASiIPv3buHK0IDi8XXvLxa I+LRCPJnVbEcg4ppiLuNqMqgalqGIirBysp0MPkKqgprq0JWV8pKoHQyjIiA gACaj0Ijjx492qRJk0qVKlEZDUR/sPmitt6hQ4fwuay43MOHDxGs4SRLly51 dHSkAmIYdL179xbmHaft2LFjUFDQnDlzhL799u3bli1bypUr5+3tneczzT5/ /hwSEkIRjbZahUZDWxS1bdu2fv36rq6uMTExXOiAydUYap0MXaUOvVq5cmVI UEo+hCrz9fV1cnKShue8vFojMOCXLl069R8w9YYuFGIM4u+//0Zvl95w9ZDK hGBoiCRY812FsX5u374NeQb7CeWmcQWTBRFpZhA8sNtQPn379vX39w8PD0ez T548ic/r1avn5+cH4y+Nr8+ePdugQQNPT0/E3dCoEJ84ZuvWrZBMMPgzZsxA tIiT4HORLkszHvgnuInIyEj4lJ49e0ZERHh4eDRq1GjNmjXWdnPMAcwCZZXA 95ljbzU8tVWrVuGW4hJwu/nw5SaTZzDOOhm6Sh1C1MvLCwo5KioKJ8RX1IsE 8vJqJr9BVYPGjx/P0yD5HHQAWnsO+2ltGzCJNLOFCxfCSsN0w55LIzu4g8uX L9+/f1+jocaRZ86cuXDhgnrh6NevXyNCl2aOUSVYIWifP39+7ty5tLS0fKWy IC/tVMjWSpuQN2/ewNfb29vv3LnTTJdgmBwgO9bJoFXqOAaWGVG57i19eXk1 wzD5kG3btkFR2NrayopyWxzKZSpevHgOlKvFtYKCgnRUac7zfPjwgZKiq1Sp 8ujRIzNdhYq0lytXTn0qiWFyETlpnRiGYRiNILRv0KABpEuTJk2sqjAFpZnJ NmU2E0ePHhX5ZvmTxMRESsUfPny4+Wae169fX6BAgRYtWmhcOs0wuYWctE4M wzCMRv7999/ly5dDV8hKalsWkWbWuXNnc++NSEmwwKqmoHOSb9++0V4PpUuX Nl9VCrErhFlFMsOYm5y0TgzDMIwOnj9/ThVdOnXqZCVLlj5//tyhQwc0KSEh IQeuFR0dnbe3KtDNnTt3XFxccLehMM3nkd++fduoUSN7e/vt27eb6RIMkwPk pHViGIZhdPDvv/8uXLjQzs6uWLFiJ06csHRz/h/QUfHx8cHBwbRPjVn5559/ 7t27l29XNX7//n306NFwx2XLlr127ZoRZ7hx40bPnj3d3d09PDwCAgKuXLmS nJy8adMmWTRESbC4yp49e7p27VqvXj0cHxERcffuXfVz/vXXX4sXL/b29q5Y sWKdOnUaN268bNkynu9irIGctE4MwzCMbt68edO0aVPaCdFKpmGZnOHq1atQ lVThytCi3zh+yZIlRYoUiY2NpW3dDh06BMHp6OhYqlQpWQVdSoJ1cHCoVavW H3/8gbgJMhUyoEKFCrLyswij3Nzcateuffz4cdo9Daq4evXqolQmwzAMwzAM cfjw4aJFixYuXHj37t2WbguTQ3z58qVnz56QrzVr1jS0FMP3798TEhLs7e27 desmNoaAph0wYADt1S6t/yOSYCFEr1+/Lj7fvn07zhAdHS3mV3fu3FmsWDFv b++nT5/SJzgPVX3njXUYhmEYhpEBCUHLeerVq2foPsVMLuXo0aMIWxwcHH79 9VdDv3vq1KkSJUo4OztLN0aBrB07dix6UVRUFE2fEpQEW7BgQdk+gMeOHStS pIiHhwet6U5JSSlfvnzx4sUTExPFMS9fvkSfLFmypMbNghmGYRiGyec8fPiw Ro0akB/jx4/n1eJ5HohGmtvs06ePoZXEMjMzaTFLr169pOmpHz9+DAgIsLW1 lW2LIJJgZRtnbNmyBbLW1dU1PT0d342IiKAVhbK0ZIhhToJlGIZhGEYbx44d K1GihKOjo9igismTQBD2798fcrFOnTrifb1yUlJSoEjt7e0hQaWfP378GHIU /efixYvSz9etW1egQIHmzZtLK8GKCduaNWu+ePHi8uXLOCcE7aZNm4z+XQzD MAzD5EMgKhYtWgQV4enpmZ6ebunmMOYCyrNQoUJly5ZNTk424usrVqywtbUt U6aMrJLAwYMHCxcuXLt27VevXokP//nnn8GDB0Op4v/SRNbMzMyAgABaP/jl y5dVq1bhnE5OTrIlYAzDMAzDMHqBlhgyZAh0RUhIyPv37y3dHMb0XLx4sUKF CkWKFNm2bZsRq/sR5kyYMAE9pFGjRm/fvhWf41STJk0SSbAQq0+ePMHB+DM0 qp2d3dq1a6XnSU1NhQa2t7ffsGEDvjtlyhRaAiZVvwzDMAzDMArJzMykJeq9 evXCny3dHMaU3Lt3z8PDA/J148aNxhWnEmozODhYmrD66dOntm3b2traLlmy BH89f/58p06dPnz4AAULTVuoUKEDBw5ITzJt2jScxMfHh2QwvoXv+vr6atxz Fnr4zz//5PRshmEYhmF0ABXx448/QmAMGzYs31b7z3tkZGR4e3tDvm7atCk7 tVX37dsHRQq9Kl0CtnPnTpy5aNGiiYmJOPn8+fNnzJjxr4pZs2bZ29vv2LFD HAwh/cMPP5QpU0akMVBuraen58uXL2WXgwweMGBAdHS0KNvFMAzDMAyjEaiF UaNG1atX78aNG5ZuC2MCoCRXrlxZu3bt7du3Z3NrgHfv3vn5+bm4uFDO6vfv 37ds2UJbaEGFXrlyBSo0LCxM9Bzo1cqVK0OCkuL9888/fX19nZycpAWyvn37 NnLkyIIFCy5btkw0D2dOSkpq06ZNr169pBkLDMMwDMMwDGMojx8/Dg4OdnNz i42N9ff3j4qKevLkyR9//FG+fPmGDRu2aNEiISFB+tIfQtTLyysgIABHurq6 RkREQNbKzvn161fIVwjj1q1bx8XFdezYEafC/0+fPs27cTEMwzAMwzAmISMj Izk5WboFxsePH1NSUh48eKCuOf/55587d+6cPXtWul2XOtC9+DoUL07OwpVh GIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZh GIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZh GIZhGIZhGOL/A9ZgOAI= "], {{0, 95}, {918, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{507.60000000000025`, Automatic}, ImageSizeRaw->{918, 95}, PlotRange->{{0, 918}, {0, 95}}]], "Input",ExpressionUUID-> "a8ca04fd-6362-4414-9d9f-a91dd9be4aa7"], " with\n ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvQdQVkfU/48VFEFAVIrGBiiIBSsqUlREVJqKBYkNFVtQsRewaxQLdsUS K1iwooYJxhoLmDFKsbxBLGNsY9RBHJOJGf7fl/PP/d333vs8POU+BdzPjA48 3Ofevbtnz56zu+dso1GT+42taGJiMs0M//UbOcsvNnbknP5W+CU8Ztr46Jgx owNjpo+JHhPrOaoSPhyMf20rm5j878/FDAaDwWAwGAwGg8FgMBgMBoPBYDAY DAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAZD Pr58+bJ3794RI0bk5uYauiwMGfj48WNcXNzMmTPfvn1r6LIwGAwGg8FgMBgq 8c8//yQkJFSpUqV79+6vX782dHEYMvDvv/+uX78ebRoUFMR8EwaDwWAwGAyG 8QOvZNWqVbBg27RpU1BQYOjiMGTj77//jouLq1ixYnBwMPNNGAwGg8FgMBjG zJcvX1avXg2vxMnJKScnx9DFYcjMp0+foqOjTUxMwsLC3r17Z+jiMBgMBoPB YDAY0hw+fNjc3NzS0vLHH380dFkYOgH+SM+ePeGbTJs27e+//zZ0cRgMBoPB YDAYDCFZWVmOjo4VK1ZcvHjxly9fDF0chq7Izs5u0KCBmZnZ3r17//33X0MX h8FgMBgMBoPB+H+8ffvWx8fHxMSkd+/e79+/N3RxSgcW9e3bt588eWLoghie Bw8e3LlzR62v7N+/39TU1MHBITMzU0elYjAYDAaDwWAw1OXLly/z5s2rUKEC LFV1TVyD8Pfff69cubJXr15//PGHocvyvxQVFd2/f//x48eCzVH49ePHj7p+ Oh7t6emZlJSk+joXCjxgwAD4oV5eXiwQnsFgMBgMBoNhJPzyyy82NjYwU+Pj 441/ExdKuG7dug4dOjx8+FDyglevXk2dOnXQf0RFRamyLvD58+eNGzdGRETQ t/DDgQMHlOx0wvXHjx/HlVZWVtWrV3dxcXF2doZnh8fROs6bN2+Cg4MTExMF X/znn3+2bNkyZMgQ7kG7du1Spdp//vnnkSNH0rcGDx48f/58bm3r+vXrTZs2 /eGHH1TfmnX79m17e/tKlSqtXr2abehiMBgMBoPBYBicDx8+BAYGwitxd3d/ 9uyZoYtTOnAHGjVqdPHiRUUXwGU4d+4cjH83NzeTEubMmVOq5b9v3z5ra2tc bGtrC78GzkJeXp7klfAsUlNTmzVrVqVKlWHDhl27dg2f0J/gKSxfvrxNmzYo HnyHGjVqXLhwQfB1eAG//vornAj4F1S8du3albpscf/+fQ8PD1xcuXLlgQMH wt/BnfkLNLiho6Oj+HGKQDEWLlyIG37zzTeK3pTBYDAYDAaDwdAbycnJVatW hY0NU9zQZSmdx48fN2/ePDY2lvMFFPHu3Tt/f38/Pz/Y3uHh4cozUD148CAy MrJVq1a4eObMmUq8GHgQ3377LS7z9PTMzs4WXwCDf8+ePebm5rjGxcXl+fPn kvchv8DX19fCwgIOxaNHj5QU79OnT9OmTQsLC8M927Zt++bNG8lr4LB07txZ 9TMxCwoKnJ2dcc+oqKi//vpLxW8xGAwGg8FgMBiyAzO7U6dONGkvae4aFfAX 4DXAjL93716pF+fk5HTo0GHlypXwueBE/Pnnn4quhEk/Y8aMHTt22Nvbm5qa Hjt2TNGVv//+e/v27cnTUVJdRUVFffr0wWX9+vVTZPDjGjgay5cvb9SokaWl 5ZUrV5S8S0pKCryYvn374p6jR49W5JRdvnzZyspq1apVKm7NwmWLFy/GPVGA S5cuqfIVBoPBYDAYDAZDF/zwww+w2ytWrLhmzRrjDzS4f//+N998ExUVpcoB HPv37w8JCfn5559r1qyJbz1+/FjRlYcOHVq6dCmM/6pVq8Lrgfchedkff/zh 5eUFMz4gIKDUxGWbN29GrcJHUHRBQUFBx44dr1692qVLFzQBSqvoSpQHzsiv v/7q7OxcqVKlnTt3KroSzk7v3r1bt2796tUr5cXjyM/Ph2eElxo+fHj5WzSB Jwt/09/fH3WClo2MjPz8+bOhC1U6KCQ7YoahiH/++UdySRcflr8uXEbBYKqo LYxBBZVRxagleGsMkYYuBUMZRt5xGMSff/45ZcqUrl27urq6Ojg47N69W8ab w7r29fWFUQrTFAaqjHfWBZDYtWvXmpmZHT9+vNSLoYImT54cHx//6NEjeCXw Ta5fvy55JZn9z58/nzFjBqrCz8+vsLBQfBkU2uDBg3EB1Phvv/1WagHOnj1b p04dJYEwZ86cwbgAD2LIkCG47aJFiyQdw0+fPs2cOTMjI+P8+fPm5ubW1ta3 b99W8tzt27ejig4ePFhqCQkYOePHj6fIGvg+Kn6rDJGdnb1ly5amTZviHWNi Yow8twOKd+7cOScnpwkTJpS6WZHxFQItsWLFChsbmwEDBuAH9PTDhw9DMX77 7bf16tXDD8Y/v/Q1kJWVBf3v5eU1b948uADHjh3btm1bbGxsixYtgoKCJIcY PVO2FKP2YKAPDQ11d3d/8eKFocvCUIjxdxwGgPOYnp4OA7t69erVqlWDuSvj zXE33BZ6aerUqcavlz5+/Ni9e/eGDRsqWfvgePfuXUBAwMmTJ/FDp06dqlSp kpycLL4MPjjMftQwBJ58tNmzZ0tWBb5uampaoUKFlStXqjL0w7xs166dkgAT eCKTJk36+++/0bh4LuwKyUnyI0eO4Er86fvvv6cAE+Vh8nfu3IHRMmLECNWn 3C9cuFCjRg3cHC6w8YuBBrx+/bpNmzaQgQMHDhi6LNLA2VyyZElUVBTUL8qJ thgzZgxzTBhiSHWYiIDYzJo169OnT4YuION/uX79es2aNcXN5O3trTycUJ8Y v2LUkjdv3qxfvx7mjY+Pj6WlJeofjpiiQZlhDJSJjsMgMjIyzM3NVbTJVQSG a2RkJMUXXL16Va7b6o6HDx86ODj06NFDldXYnJycjh075ufn4zXDw8PxmsuW LRM7FEePHoVfgGsePHiAmysKMHn16lXr1q1xkwYNGija6CUADkJSUpIi2xL2 Q1hY2J49e/Dz3r17K1eujH734cMHwWXoiTBWoUjhQFHkO35Vbq/CbYHz4ubm pvq80Pv37/F03Lxx48YFBQUqfqsMAbPf2tq6du3aubm5hi6LNBcvXoRVuWPH DrR4REQEc0wYiqC4MFtbW8gzDdn29vaDBg3KysoydNEY/w/YV2iX+vXrQ7ej jWrUqOHl5QX736j22hm/YtQSDJ0Y37///vtbt27t27cPLhhzTIycMtFxGMSq VavQRoGBgTJOiMHOR+vjtl26dHn37p1ct9UdZ86cqVatWnR0tCoGGyQ5NDQU LgzG8blz5+I1R44cKfgijHAy+4tLPJSqVavCN5E8GyU5OZnmscePHy+LuQgH 09PT8+7du/j50qVLFhYWTk5OglzNcEZmz56Nt8bP+JOLi0ulSpVguyq/M/pv v379rKysVDdUUEVLliyhSVdob41eyKjZtWsXqg5yXmpkkMGBjzx06FDmmDAU gd66dOlSyn8OaWHjtXEC+yogIODNmzdoL6ONayhDilF7Dh48yBwT46dMdBxG 8X+mJmyVhQsXyrh/eOvWrVBKuO2CBQvKxLbkTZs20U6qUq/EkD1lypT4+Hh6 L1K/fn5+/EPYUasw+9PS0uj6WbNmKQowgX04atQostsl94NpANyNnj17UqKw /Px8OERwJQTBI8eOHYuLi6MdWT///HONGjVwTalhIBRcAycrNTVV9fJcvXqV VroHDhxYzkwdNB+M/LKyj5o5JuUGKB9020OHDsmrXfmOiYy31QV//PHH+vXr jTzZ4+PHjzds2CC7Zc7ZVypef+HCBYiKPrt82VKM2sMcExnRkXIrVr/jGIoy odx0CvoRelP16tVlDDD59OlTUFAQrZRBwOS6rRKePHmye/fusWPH9urVq3Pn zpC9qKgoOEcq7oyC/MNKh2OCr5R6MUYZPOXUqVP0K1n1Ao104sSJefPmkREO Z4SOO4F7IlbRFKWCv9apU0eWgwhpM8akSZNoGIJst23b1tTUlB/Uj+Fy5MiR T58+petpyUzRCSaCm9PyB/w41Yv09u3bdu3a4Vv16tV78OCBRq9lpNCrYUhS PSGAAWGOSfmAsh61bNny1q1b8t65DDkm0K7Tp0/v1q0blL+hyyLNnTt3oFQ3 btwoe2Wqa19B1Xt7e6NZ9ZZ6qGwpRu1hjolc6E65FZcdx8T4lZuuuXjxIuxq eQNMKFcV7J/mzZvrNElFUVHRrl27PD094VOIA5oIDA2rV69Wfug8LYJUrlx5 7969pT40NzcXT+RCpR4+fGhnZ2dtbY1hiD6BLMHs5+oTFzg6OlatWvXo0aPi u8E1dnV1RTnd3d1fvnwp+cSMjIxp06ZhWImPj1+wYAF8KPg4sbGx6enp4ovh Ffbr1497EUh4SEgI7r9mzRruE9wKrhP3q4oBJgQqExcryVQsBredOHGiScmx 8mXinE1F4EVSUlJ8fHycnZ1dXFzGjRt34cIFND2cyjKxj5o5JuUA+A7oRPXr 1//xxx91cXNyTCgy7tChQ1u3br169apO80tDB0IFNWnSxNLSEnry8OHDggve vXsXHBzcunVrgRovLCyMiIjo0qWLEVqDUAhubm5Uk7LfnLOvXr9+DTHYsmXL 8ePHlW+ZzsnJgdmMgUMX5SnrilF7mGMiCzpVbsUadRwtKX/KDW2E3o2Xom0w NWvWbNWqFWzOxMREmuvWALQILFvYwOhBLVq02L59O6Vj6t27t4wBJseOHTM1 NcVtBw0apKMR7fPnz9u2bSP3h5Yb2rRp07dvX9hdffr0gUNEwU0c+NXX13fn zp2SWadoh5KKm6m4ABP6FRLu4eFhZmZGayiw8+fOncsPcqfacHBwkFwsgDOC hqBgHEUr/llZWQkJCXCd6KATk5IDK2E/SE4pwCHq1KkTBZjQq8Gp4QewnDx5 EsMTt6UKYq9igAkBB0dRsL8SfvjhB2oRFd0fIwQNPWDAAAsLC/QaSDWlXGvc uDGc4rKyj5o5JuWAn3/+2d7efuPGjbrYIktLouHh4Rh3MCjEl9C0BMlpEFmA KN65cweKBVoUw9yNGzcEF2A0x5ju6uqKUV7wJ+hPT0/PIUOG8HfSGpxXr17B SscwoaMEpLCvoHMmTZqE/zEurFixAo1lZWUFtaxkTeSnn36ys7PDICiv5JQD xag9zDGRBZ0qt2JNO442lDPlhnbZv38/zfbv27dv+vTp9erV48xs2NgaaLxr 1645OTnBDM7MzCwusWC7d+9et25dE8XnXGgAZwkDFF6WewpA43bs2BH379Ch A9wTcYMWlyympKamhoSEkIvEAW3ZsGFDPz8/2GbcF/Hu8+fPV2XFBG83depU fuAM5BmuEG67fv16/Hr69GmoZU7Icf3s2bOVNBk+xBCGC9q3b688VW/xf+cq 1qhRQ8kJJmfPnuUCTIgtW7ageAEBAfA94dKOGDGCnxmP0vmib6qycoq3Xrhw IUq7du3aUi/mQxlaVNwwZoSgPgMDAzH0JCUlcU2PMYhWu+DVGv/Wl2LmmJR9 0HObNWsGr0FHQxVtBK1VqxbFxxHQk+i2lpaW3P5VXUB5jVq1aiU4v/Wvv/6i VHLfffedpNCeP38eugV6yUj6IJR/VFQUxmtudkh2MAJCY8+aNYsbaNC1MexC z8PcUhTHh9qbM2dO7dq1L126JFdJyodiFAP7AaM8xH7Tpk2qvAJzTLRH18qt WNOOoz3lRrm9fv0aliRcCe4TNFZiYiLcSZim8fHx6pYTLeLg4ACbPCcnh/vw +PHj8OOqV69+7tw5uUr+/v17eKOoanNz859++kmu2xKQItj/uHPr1q2hXVVx pqA5d+7cCU9EsIYycOBAvvwnJCTgww0bNii/G94Oepg/QNNqC4kWfL3hw4fz T5PEIyjAZMaMGYrOUybPBU2jPJsu3n3YsGEmSpOl04SnQMjRuGhiOKTwSubN mydYTFQ9wIRKixdBTVIuYtWhdSU8qNQzHI0QvDXlXuvduzffu6T4HRmzFuga 5piUadB848ePr1Onjk7PKsUAIe6hNK3n7u4uOQukPehi0FqQzMjISMEi+2+/ /Va3bl0bGxtFh9hCkqGBYW/IaG9rA0ZVjFBr1qzRXdYXDGoYWwUV9eTJE2dn Z6h6Jf7jixcvYB117txZltmhcqMYxezYsYMMBoybirZY82GOiZboR7lp3HG0 oTwpt8zMTCgQ8ZkvKOfbt2/V1XgwCzt27FipUiW4NvzvUuB2o0aN5A0wcXR0 RCvAD1Ix9lxFYOSPGzcOOh/+I9+nQLtv3boVzprY0cafjh49CuX56dMnDKnw WydOnBgaGgovVeAFHDlyBCMvrlTu8eXm5nbq1EnQLhs3boTH7e/vP3PmzJSU FP6fUANKAkyImzdv1qpVC9coV+MYU5o3b46K7devnyLXHq/Zv39/wbpPXl6e bQnw6WJjY/l79ricbKNGjVLFUkW3QtVpkNOAi2SBEJa5MBNoDzs7O/FJYbQM JFfWAj3AHJMyDYZUCwsLLq+FPqFIOphqu3fv1sX9aTqrYsWKgqwa0BujR482 KTmlV8lbQy1DzXbv3t3gG4devXoFmxzWrI48OCVw4YQDBgxQMveLsRKqTMWT fJVTbhSjANQM6ocmMGNiYlTZjs4cEy0xoHJTseNoTLlRbsUlCxzwpLgIZW1A L4M/AoMQDojAGqfZ8j59+sgYYELODu2z4m8o0pLCwsLhw4e7uLiIN+nhBZct WwbXQBD4AA8O9raZmRkM8lIXmG7dugW3NDw8XLkWSkpK6t27t8ADSktLq1at mqmpKew9QU0eP34cn9vb2yvJRgWZhEOE8mNEU7IUQgMKKjYhIUHRre7fv+/h 4YHxgv8heTR0f8FBKpSTDbKB91Ly1hzUxdBN+KtCqsAtDAE4R0ayLqkKXCKy b775RuCQUuCMl5eXMWgMVWCOSdkFCrBHjx4w9rgkG/rk2bNnzs7OkJyxY8fq 4v6wYPFq4j3Yp0+fxmji5uamfDWZS2O+f/9+XRRPRaAroJyhEwQTgPqByzzf rFkzJW7Ry5cvW7Vq1aRJEy2nDcuTYhSD7rZ3796jR4+qaKkyx0QbDKvcVOw4 GlM+lBtBx0/AZdA+eg7KoWvXrhSKzu9l+BkeIj5fvHixvCeYwDekiX25It9x n5kzZ6IF+fvQ+FAYBWSb8wvgCHh6ekJXrF27VhUzmNIbtmnT5vXr15IX4Cbp 6elw7tzd3QVeRnZ2to2NTePGjeEXCO4JZwpV0bFjR+XxI/B0YCviFTp16gTp FTRHUVHRmjVr8ProOBYWFooW9SAzcPyrV69+6NAh/iujTvz9/SHYGC/410MA 9uzZA8cN97x8+bKS4vEfUb9+fTjvGuwCpQNfUBtBQUF6y1qpPai9Xr16odj4 n+91QpuNGzcOn0+ZMqWs+FnMMSm7ZGRkYBQLDw/XXd+BGCclJaF3JycnC1TQ ixcvoH8gOf3799fFo1NSUsR7sKFmXVxcbG1tlYTUcVy5csXS0tLb29uAxjDG jrZt20JDSh6kKxeZmZl9+/bFgCiwDdCjJ0yYgDZydHQU77XgoNz4uGzp0qXa jPvlSTFqD3NMtEEPyq1Y646jMeVDuRF0+AWMxiNHjmh5K9rJA6NXEEBBiWrl DTCBIoqJiaGJ8WnTpsmll2BpN2jQQJFBzj0UUkeCDU8BKgLCkJCQoKIBRm6p lZWV5IoMqo6C6MnnomB2zteAvHXr1o1/rDmM8Fq1alUpgb6CH5ydnQVrGXxg NMJxgONDxzWi++ChK1asiIiIgMuD/yHJKBt8SXEGZtyWEpRVKAE/1K5dm/M1 6ITHqKgobviASMC9ouLRTloUEu9eajaM1NRU1ANKpcGIdv78eXNzczzLw8ND kfdnhKCV27dvbyI6hubPP/+Ev4kKpM170Bg6zYwtC8wxKaOg4UaMGFG1alVo Qt095eXLl1ALEA/xXDe3YgLJkf25lK1dsAf78ePH6HfQomfOnFHlJh8+fIDa lHc4UxeoArTR8OHDdZddmduvLp6A5SZ+SzWPs7KyrK2txaG4alGeFKP2MMdE Y/Sj3GTpOJo9t3woNwKGH8w/vA68Ki2XXOGRWVhYiOMC4IXhcxi9dIYLhh7t kyFQiioy3UsNJFeRN2/edOnSJS4uTpGbA1lyc3ODQf7999+j3u7du0cpQdRN swDHB27pkiVLDHhUPUT36tWrS5cuHTduHGyA+fPnQ70bSRor9F8KT9NsvTUn J8fGxgbtUrdu3TJ0zCKdgAnpEmwQvXv3LhQL3gVeHgRm0aJFmvlr+oQ5JmUU yJi9vb28p02JIZPSzs5OnIkIXR6mrI5iTGC7whXi78GGKsbAB60uniZSBPVB yDY0p0Fk+9OnTyEhIeKAC3mhBJKmpqZwfwSr8Bi+u3fvjhoodeaZduRyKe41 ozwpRu1hjonG6Ee5ydJxNKB8KDc+ubm5Dg4OFJKjjcvwyy+/wN62tbWFxc7/ fO3atdAqffv2hUaFkoFSvXnzppZl5s4xRyeVy//dsWNH69atFR3dQgEmaHfo BAg2bHjKghUQEKBuhAsqGbXRrl07I3EEjI1Hjx41atRo9OjRms0HogXhBaNp 4CNfuHBB9uLpCOiBqKgoFDsxMZH7EF2GwtZgyEHMPnz4gE4KT9+A5VQFyl2A YqPwBtdvDNXZunVrpUqVgoODdbrVgZIsiSMxoWPXrFkDHevh4aFKhiJ1gWUC O5ZmMtGzli5digFr1KhR6s7nU3ij5IkAegDDK+wruHWCcVZ28JoY48TvePv2 7dq1a6MGSj2cDg09c+ZMLe2c8qQYtQfeKGweGJzMMVEX/Si3Yjk6jgaUD+XG B1bE2LFjTUoOB1y9erXGcw7Pnj1Df7GxseEHaPz++++U4ikuLg53zszMDAsL 0z5WnYKpKVdwRkaGlncrLomDGDhw4Jw5cxQtl6Snp+PVoBM2b96MGsOoSstM ms3Jnz9/Hncrc2mj9AA5gI6Ojhon+6UoHrRO1apVtd+gqE8wsFpbW8NppfmB 9+/fT5w40dPT08zMzNvbG4PvuXPnhgwZoqPD1OQCvSM7O5uawMvLC+YT803K BNCB4eHhaDU9zDwXFBRANrZs2cLXt7du3frmm28wdquyHVoDaA82HgHt3aRJ E39/f36efNWh/WYa5AyUBYr49vHx0bUegP0G/RMZGck/sRo/YwSHgbdw4UJV +vXRo0ehh7U8Vap8KEYtQZd88eIFGR6ojdOnTxvPcXjGjz6VmywdR13Kh3IT kJWVVatWLbQarGWN8xhjiEGdQ2dyEQR3797t3r17mzZtTEqO8IbFMnv2bFkS iTx8+JBObLSyspLluAroOji5gqhtjgsXLsBUhlDRiTmUcQ5ioOj6UkFVxMbG tmzZkra3MThyc3OdnJy0Sc7PHelSoUKFrVu3yls8nYJXxnADrQKbbdiwYRjN 0Wug0OAvV69ePSAgAGOxZtpGP5w9e9bOzo5inVD56C8UiIRP0H2UrF79+eef Y8aMqV3CgAED+M4+5CEqKsrd3b1evXq2trbt27c/cOCAEXo6FNDdoEEDKFI0 3KlTpzgBRgsuX768U6dO+CteEGofaqTUQ071zx9//NGsWTNTU9Pjx4+rcj3G +oMHD0JWzc3NoQxbtGiRkJBQVFQkeTFqA9YjX3qhw0NCQjBArFu3Dm1KkXcd OnSgY3mVgNEKVijpf0gFxENJtpnff/+dBIZmPDA8eXh4oP61WW7AO/bo0QNP lyUXrlrgRaKjoylrmYq94OXLl/Hx8S4uLnh3S0tLVHh6erqiYuPVdu3axc2y Qpfiu61atZo/fz6qEe/r5uYGGYaoq/h02AAwKtCy2hwbUdYVo4BHjx4NHTq0 fv36qElYy6XGQcMfgfagVJmkTkmv0q4AtQ6bQ03ev39/w4YN6G4oA/pRXFyc wSOd9YC6yq1YUz1Dv2rccb5m5cYHj75+/TqsAooXBujjGk9u4KXQHGRdhIaG du7c+ccff3z8+LGPjw+qOjAwsH///rKMyChzzZo1Udo6derIkpkE7ka/fv3E x4ugtPjQzMysYcOGycnJ+Ovr169pFxma78OHD9yV+fn5kA20Jt9NVgIqGV7t qFGjZEyhXNaBhkQr8MPnNQD2UnBwMAnz4sWLZSyefoDTitH8xo0b/AlA6NUr V66Uy71/aK8JEyZ8++23cE8uXrwI24nSWaNLYtDEaLJt2zba2IMBulu3bhiU p02bpruwX81ITU1FsW/fvk1nOVlYWJw5cwbaNS0tzdXVNSYmBh4WtAeKvWjR IrhsuPjZs2eGLvX/AR4BDEiYkaqcJP7kyZOePXuaiICSl9TweFmou1u3bvE/ RG1Aqr///vvvvvtu06ZN+KvyURsisWDBgqpVqwoeCrf3l19+EV+P+8MA02Yb gCRcfGtERISe5RAjDqW+hDenyvUYf+m0Lz50vIikNXvy5EmM0fxxrbgksc/2 7dshw0uWLMENBX9VDnouPFY8ET6s6t+SpHwoRugB2EUbN26E3oOHCLvLz89P RZtBG/A4GLGUdALeHCxYNDS8PPS+r2HlRS3lJpeeUavjMOXGAd85LCwMFj5K cuzYMRj5JiUn00HpafOyMC9Rk+iA3CiDl83Ly7t586Zcx8rQIeMmJbnN5Qpl guTARYWNdOLECdQGWhz2bbVq1dCXExMTSRniRWBXwDTiH1OID3fv3g13LCgo qEGDBqofVo7B3dfXd968ecZmZRkEeLXR0dFwabXc6YfKhJVLnRqCLVfxGDri 2rVrXl5e1IufPn3apEkT9K8VK1ZMmjQJwiDY6YqOaWpqivElKyvLMMWVAnYF DPLDhw8Xl8xpU+5u2OFQBe3btxesQdOWVy6HhoGKLAHF1aqyfR2NBceKm7Nt 2bIlZfmjTxQFj0RFRWmj/zFwU9oZk5Jdx87Ozs2bN4d+pk/atGkj3hQNT8fb 21sXmTnxOiZSWcV0DWoeQwy6ADpCqRfDy4CbT/VjZ2cHW9TW1pZ+JcdZcD0M J9gD2nsQfKDVKeBX3sMCyiioYbgD3JaSX3/9FdayHpIgPXz4kHYRQHjQvka4 4qxrVFduBtEzTLkR6BfQS/b29mgpOqQe5tyYMWOoHrTM76cHUlNTybWUNz3F nTt34IQGBASEhISMHz9+w4YNgnaHu02JArgqQh9PSEgwMzOD4t23bx8kSq01 a9wE47hgIvHr5PLly8uXL1drOk4SLls4gC0kS9nKLjAFIZkwj1u3bt1Ka9q1 azd79mxF23U0gA7EBDR/++DBA5oesba2Dg0NFbuoNPFVsWLFHTt2aPxQyNjm zZuXlpCYmKj9dGtGRka3bt0oNzUqPCgoCK8AneDm5kbaVfB0mvTGC2pgqEO8 4QFR4eHa5Obmall4AiMC7mbyXzSxkisLCwuhHuFY9e7dG83BWZv41qJFiyj/ iUChvXjxwtfXV5tMFHgKzDmYFk5OTlCzXL2hNmCiu7q6QiRWrVrFN33xJ6jW +fPn6+KQC4pB1n9yJDqfV5UDoX777TdHR0e4jTNnzuRnEsjJyYFtTKdxCZRt WloavGl5Vx+4PBiq7z0rx8A8Rt/h7L0jR45ULUGnsZDopJTkHwqnDC0tyYjq ys0geoYpNw68L6Xw5Y9rV69epf1RxpDHWDloPjoXw93dXRf5WySBwIwYMYIs Xm7TV3JyMqoL3mV0dDQcPWgeNi9kWLiE3iYlOb0NXRwDA6FdsGCBh4dHczmA dzNt2jQZHZO3b9/27Nnz/Pnz9Ct3Bk3Dhg0lTW7YY1Bcqm9lkeTRo0ew2aDr 8H+bNm0Ex5WqC+QNAwSXNwNDP60mQLfDexJrA0qWa1KyF1T5lkWMPg8fPrx3 7x7ff8FXoIVQcjs7u0qVKmkc5iZ+C1rBDwgIUFIqvA58OrTR+vXrJcdEGLdw KgVnS23dunXw4MHaiM3du3fxyooSpzx58sTT01NwbhHkp0uXLnI5bgJ++ukn VELt2rW1FB51OXv2bLVq1WrVqpWXl6fkso8fP8IKRSeSDNj5/PnzjBkz4LPg LbgP0TpoI9mD8iAGEAbIVZ8+fcrQcbe6gBqFy3iD3k1TwTY2NrLEyUoC+aQ0 QegdZSKRl6TS0xIVlVuxgfQMU27E9evXMajBnBYsBxcWFvr7+5NFZ+QpwXfv 3k07B2Ap6W1xJz09HcrcpCTiPiMjA8oEVgHt4HVwcIiJidHyIBiGLEALYdgl MQ4PDzd0cRjKQCfq1q0bdzJaYmJihQoVxBNEHMnJyTD40fe1OecCjsk333wj l0kPewNjyunTp+nX7OxsSiQinpEmMNA0atQIF/Tr10/RHk7cc8mSJRiMAgMD MZhCXY8ePVqwmi/vW6Ak8OJNSo5cV7KzFLYNXLmEhARFM3UUhgnXjFPL8NRQ FVz9aACtgcKyVTLbiUGtQYMGXB5O8hahk3U0S3/t2jVLS0v4tuIVMbXAG02Z MqVr166urq4YSvbu3av8epL/Uk+OPnnypLOzs5LzC969e4d+N3XqVK4dL1y4 4OPjI3uOUMjDggULIFewo76GIGslwP5EJXCxzE+fPnVxcaE9nzrKJwYjnDq1 qakpbTQ1ZlRRepqhonIziJ5hyo27mHYbDho0SOA8QodAMMiiM4YDVpSQlJRE yX+0zEOoHMgwmmbx4sUDBw7s0KEDTdWalGQcgjvZsmVL8lNmzpzJgkSMB4jx 3LlzqaVCQkIMXZyvgiNHjixRDUEE1r1791JSUsg64oYPuPmSGS242VeozatX r2pcWnlNehgVO3bs4CK+aTMzXCdFm81oPgpvER8fL+l8wU0LDQ2dPn06FxL7 4MGDpk2bBgUF8U072R0TuFco1dChQ5Vos127dvXq1Ut5rC6cF2jLs2fP0q+w pdENtdmiideHnlc+StKprJMnTyZZgvmHAVF3gUi0pQr6X8vMxhQBHRcXV61a terVq+Nn5dej/jHwNWzYUEk6x8+fPw8ZMgTuofKpxePHj3fq1In2G6AYMAIV zQZoA3eCc7t27YwtEx3eukg71JrVz8vL279/P2dW7du3jxSFklUqaDkV9ery 5cvFXz9z5gyF4rZv397YKl+AikpPM1RUbgbRM0y5EVu2bKG0gZKbVCm2FC04 YsSIr9YxgehiVO3Xrx/0f48ePWA/HD58GJ4a5ejjJh8uXLgAVwU2Bn9BnGFw 6OhVckz69u1r6OJ8FXBp0EoFtpCim1ACH1zj5+cnOYUI49bb2xsXaHn8k7wm PR8MHDExMbSoKhlrRgsKFIFy8uRJ8QV4x8GDB8OW46tffAtaCOqdv+4g71tg EEFnQcFGjRqlSPPj7TZs2FDqfnh8HWPookWLUOyPHz+Gh4dreUY5Rm306FI3 AqWlpQUEBMCwwXNRTi1j7ZWTnZ1tY2Mj155nys7UuHHjUrPHb9u2DcOQs7Oz kpRuNFGZn5+v/FYwBX18fCjhz507d/BzqV/RjHXr1hlb4Orr16/hO6uospTT vHlzDbZIffr0iUxldGElGy0WL16sYjHg4wi+CzNm2LBh9FfKIjubx5w5c1av Xq23bfDKUV3paYYqyq3YQHqGKbfikh3d1B99fX0lp7Do2EeTknRGugirkQsM x7rYyoVXPnHihJubG0wjeB/citLt27cp5h307NkTVYdeD9lAGeDRs7NIjAqK p6bGCg0NNXRxvgrgJjxUDSUGFWwkSiKEMVRS+dy7d8/Ozs6kZIeeNmpZd44J Bg7KJa5owgQDEDlx9erVE9uBGHQSEhIGDRokSOCJzxcuXCgI+dfRisnw4cO1 n5JKSUkZOnQo2ujy5csYa7itejoFehh6GzJGgUvirFMyAkve2toaY7f2hzhz kbl9+vQpNU36zp07IQZNmjR5+vSpls9Fi48ePRoShb4GCxC+jI6mIinJj1E5 JuiGiYmJ6Gj9tQN30CzdLuSndu3aJiUzwErm8OFjqqhX/+d//kfwXXQ6WDIm JRs84D11/L94enpCi8py1IKWqKX0NENe5aZPPWOQh+pfuWVkZNAuAkWHp1y8 eJE2LNF8l5al0h2UN8BE1uB3vO+2bdsaNGiQmprKf3cYG7169SJD19bWlg5y gqjDnSwTQSW6iCYzZrgNP2DAgAGGLg5DVdatW0eJuI8ePSp5waFDh9Drcc3a tWu1eZDuHJO7d+9SgElUVJTkCEj5kE1KNpaLg8HRT729vcVr9Oi5kGQzMzPd rZhw2ZNgIWi/MfX27dsBAQEwjWDuLliwQD9DCQybfv36paenp6WlQWNrmXVc OZQdTpbzkdG4ZDWpklCXBr769esrOXZNdeAyzJw58/nz57B5rly5ov0NxXBL hDrddF224C+bnjp1SkdPoXlvk5KdscZsqKil9DRDXuWmTz1jkIfqWbnhc7gb JiU5zBVtHjt58iQkAbaBkYdKoXjkmDRr1kyueD3Uz40bN9Cd+R+iYrkUT3gi PBdj9tcE6C6azJjhUnDQDImhi2N4CgsLc3Nzb8tBTk6OjiJY0dHCw8NpGOWf /M6BZo2NjSX1paURpTvHBPesXLmykgATjCy063v+/PkCTYJfV65cCdEVezTw d+zt7Vu0aMGfhJH3LfBQOFMmmiYxFvD48eMePXqgmXx9fX/77TdZSlgqtIq9 Z8+eMWPGaHkUV6ng1SwtLTF8a7/Tm861UXHjBO21hiaXxdQ8ePAgagzODmwe HcVfoxXi4uIgVz4+Pjp6RJmDy8snSLUkL1evXqUFaCOM7uFQV+lphrzKTZ96 xiAP1bNy4w6ea9SokaLdR4mJibQuILDPjY0zZ87Q6TPKwwAVAeGE2JfqdaL1 t2/fTgemVKhQAXZRGVp00Gk0mTEDLTRy5EhyTCZOnGjo4hgYOKd0wJlc6CiO Ev5ys2bNTEp2mSoKMKHjP9zc3LTcGqQjxwSCFx0dbVISYCJ5MhH0ydKlSxXN lOIF0WHFq+dowUGDBkG3C4I75H0LzoD08/PT/iRo2BI9e/acPXv28OHD9ZYk lpZKoaUhQrreo4LmQyPWrVtX+wfR9mkMZKqcFAybAY45BEyWBLOwFkJCQsLD w3XhpBMUtwu5Cg4OLkOjp07h0l+gx3EWJrqMjGnYi/8LYabF2VK3CBoKdZWe Zsir3PSpZwzyUD0rN6iF3r17o3U6d+4saZpCh9A5HZBk7ZtPp3Db0WvXrq1u 7UEt1KtXD991cnJS7tRAb1tbW5M9Bu1qtL1bjK6jyYwZOOA0906a39DFMTBo 9F9//TUpKWmzHMBPv3Hjhi6ma7gDSpQEmEBVSi7HQ8hhA9vb2wuO8MN9duzY MXToUMG+l1JNejxr0qRJ8IDc3d1dXFwCAgIuXrxY6ltzE6GKdq1AgVAMZv36 9cXpXnNzc3v16gX7JD8/f+zYsT4+PnjuhAkTunXrVqdOncOHDwsKIPkWGOI7 dOgA/WZqagr9Jo5EuHnzZqNGjXBb8RQlZRSRJRYArw8bAFWXkpKi5a1UB809 d+5cPDQqKkrXaRIpX71yHxm+A2TP2dkZRUJtZGZmQsjxRb79ye3Bhh+3Z88e b2/vFi1auLq6Qp4lg0Ax2FGqf+23fxeX5G/BsyCuqvhEmoGG6N+/P15QUuQ4 8vLy0OMgsU2aNGnZsiVqQ8uMQEYLKmHcuHE0fcGdMgN7DPa5vK9MpzWZlBze odbkAES6S5cu0D8CJfbu3bvvvvtuwYIFknfDK6xduxYK0LUEDw8PjBelmkxq KT0jUW761DMGeaielRunInCZpMBQVhw034YNGyQLA8mE7LVv3x6ygSvbtWu3 fv16g0yD5OTk0P5JdeeOIP8QabJa8YMShXzmzBnaLo42gqMq72yGTtFDNJkx A7UJ5UaLXNCNhi7OV0phYaFaoyEXYJKamip5AUxcCjBJTEwU/Am9GOMR/JpL ly7xP8fIhT5uaWlJqYc4lDgmKPOSJUtg+A0ZMoTcGXT8mJgYPJpz89GP9u3b J85XXGqAyZMnTxo3bkwaWKxPkpOTadA5fvw4lFvt2rVr1qwJTYv/0ZfFU0mS bwGFf+XKlcGDB+MpXl5egm/h5rSYKJkNng7vwxO1j194+/YtRgeMWUpyHcgO Zb2A0aIoRkkuIADLly9HNcJ8kpzBQ91CniFFqG3aq3Pq1CmMmBBFa2tryAl3 JeSN9mDjT0FBQZQPAaO8g4NDYGCgOC0zjdGVK1cu9cQTVYBjUqNGDUXiKgvQ A7A28YKrV6+WvIB6nLm5eUREBO3hRDuij6NH620ToD6BUoI5R8LDLQ1fv34d 1p0qe5Zgbqm44QGSScfSde7cWXl+bwGU8Fy8Mg43Afq5U6dO4rulp6ejvWDK nj9//t8S0AehuDAQc94N7DR4B4JJJ7WUnpEoN73pGYM8VP/KjTt4TtF6FgWY QLokRxOSPXd3d/it5LLhERj3oUP0H3YB6aJVD7WSLdNBLRDs0NDQ4cOHK/Fo UBW0VoL637hxozFnThajh2gyY4bLjAQtKstCMEN1oDrGjBnj6uqK7gmP3s7O Dh1NMmaED/QJDTdKTjChUC/JE0xoY6c4h+q5c+fQf2EeC/J5KnJMPn36NHbs WJOSnIR8rwoGQ8uWLa2srMjBgTbu1auX+PQ67mACRY4/NCcFmIhPMMELTp8+ HaqG+wQ6h67Bt+BzzZo1S6CFFL0FV5moMYEZgK80bNgQdSWZ1CUvLw+GgZZn xBCvXr1q1arV+PHj9ak5SUgwfuk6jA4vBalGDU+aNEm8uodPEhISIAkDBw7k xllumx8EiT9nC4klMxVmGDdS04E+uAMkSnBziChte1B0CI5aQLRgDeou/rr4 v2wPikSOehxtk+Z6HB1kDBtMcAB0+YBLQAQhoRaEwKB3o0GV5EFF5axfv75N mzaNGzdGZeIOcPfS0tKUp07duXMnpKhu3bro2ioWj4vQFGTWxeeTJ0/G56NH jxZ06pSUFLSXh4cH3+annOFoWUqjhK/PmTMHFi9faDVQesag3PSmZwzyUIMo N0gyGk4yYLyoqKhfv36VK1eGnIg1HskenGhu7xMKgG4iKah6ALYBPR0vqHqc Pupk6NChgiPeBMB6hwagXSWoZy3PvtQ/+okmM2Yg2zCM1XVaGdpz/vx5DE+J iYk0E4j/ly1bBgMD1viGDRuUjKFkx5ooPsHk/fv3Xl5eJiWnBgjWl2kd0KQk sJHvTXCfh4SECNZuJE16WneGW4FXEHQQlHzixIm41YwZM/Az/B1xsDDnOllb W0vOeOD+dCqB5F5K2sshOWjSuzs6Ogr8O0WOCQrv7u4OxZicnCwoAJoGL+jr 6ys5g/rnn3926NABF+zatUv8V7XAMIEx9Pjx41reRy0oiBKGrq7HI2oRjJWS i27oBTVr1oRLzp/wJ+MTrQ+zir8TAxfDyIQXz/fH+Uag4OZoxHnz5uFPkEDt 9yocPHgQ/U6DYzhUB/47zYFLJsemHte2bVu+PQPDEnUCY0P7lMhGCG3gxwui 6ekT2Bhdu3ZVMnuDEa1v374jRoyg/Z8QD9jtMMIhBrAPlUT8oZvTookirwci JPgcst25c2c0SlJSkuTn27dv53+O9oXjg6FWvLeQrE3YabDWoJQCAgIEkXca KD1jUG560zMGeahBlNuHDx969OiBfiGei0hNTYUUDRgwQLyYQrIHWx3OPvch zAPoNCsrK4NMv3/69IlL4Qs/QsVvka2CPq7IMr9//z51ZHjW8PS1Oa3YUOgn msyY+f333+F/oRFtbGxyc3MNXZyvBdiiHTt2FGzEQo9bu3YthgMoKCWKIisr i+I0YXRJzgPn5eXVqVNHrPqKS1RBYGAg/gQjh//doqIi2tEnmKYrVmDS5+Tk YByEQt62bZu4AFAyuFX37t1hBowcOVI8lc1tWcHwJ5lVA+Xs06ePScmRauLt BBBUyq8r/iKMB/hW4gMZFTkmsHMwdqC6BNOkaKCmTZvChFCUIAVDHvlf4tlI dbl8+TJGB1lS2qoOqh1NIG4a2cE4C1GxtbXl71sgIAa0ohEZGcl3HKB+4XRX qFCBv02aOxUdYxl/czUkHAYnPu/fv7/46ehHGKm13y1PB9EqPwtbe3bu3Inu L7l3ketxAhu4uKSzGPMxatqAbtukSRMYGHTuwOPHj1E5sJYVrX9BisaNGzdh wgSBHwojnw51iomJUdKCkFX4fVC/mzZt4t8BJhCMSXh/Ai2BRqldu7Y4fQc+ h8ALMjVBqmFs0KSQODqA9ttbW1vfuXNn9+7dUVFRggkiDZSeMSg3vekZgzzU UMoNng58bTc3N37eLfSR+vXr4+biTVyc7IWFhQnkCo8wVJ4NiNmYMWPIMVEU LSsJvGl0ZGiG6dOnnz17Nj8//30JV65cgdzSNrnY2Fh5z0zULJoM75iWlobu 6eLiQkG40E6lFkzdENryB5cYQcvzwRlqgYEPigUjrEAnUMJANEffvn0VxULS JlK0GjeLKCA5OZkCTMSzEBjZGzRoIE66DqsYn2NE5k+nEGKTnjtZQDxHR2BE gAWFIf7AgQPBwcFi14PLKjZnzhxJdUSBMBSLKjbSDh48OGrUKEkDAxfDIcLr 4xrlb0Fs3ry5YsWKgj3YuDPNU0EnKFHaR48erVq1qqenp1qb0sWsXr0ao4me J3YwtDk7O9+8eVPXD6LN9pKrezdu3IDxhsYSxIBAG0O0OHOUgNqnsXXhwoV8 tYxhApKGz6Ojo8VPpw6l/aYUjOwQxaVLl+puRIDUUTod8blpXI8TTKiWe/Di 0GYQEsgPPA44mMr3imNAhx6bOnWqYCzDV0aPHo0KhHuifP7t9evXMGmgCVu3 bg0jBz/DFYIJNH78eLE5QQfliNN37N+/H5/T8gf3IfoaXgSKEe6n+LnQwLAq oZlTUlIgaeIc7xooPWNQbnrTMwZ5qAGVG5xNNLqFhQV82ISEBKgOmKyQWMk1 QU724PNq+87ywcX7S2bpKfW7cMqgkP39/WG7ol/XrVsXfRZ9JDU1VRe51jWI Jnv69CkMObT1mjVraA2Lpj4cHBy48Qh9c9WqVYJE6OqG0JY/uDNuFCV5YMgO Rkk4v6hz8c5wjBSUikrJcdVQYqdPn1aU74tb/BWHsRf/F2AiDiRRFHhSLGXS owA0FyR57iE4cuQIuioUBfqgZEIklPzWrVsnTpxQJHIU8KIkwETRyi8ZomIP S9IxQccfNmyYYGIQj4NdAdfP19dX+bkJqMOmTZtaW1v/+uuvSi5TDg1Jup6K F7Nt2zbImO4STBGo1UmTJsE6Wrt2rVhcYWTCfba1tRXYiuR6C44DprO5xUF/ lOhVvG2G4CblFJ2SrCL379+H/AgMP3mhjTcYg8Rh7KX2uPINNOHBEkrdRwfZ gIRI7pnfunUrhE3F3eywItLT07ds2QInAiaEpJriAkwE+RAUBZ7ATUABatWq JXm6BBSXk5MTuTlz5swRaAMNlJ4xKLdifekZgzzU4MoND8W4Bk8W9vmePXuU vC8ne+KVHcNCezUhpR07dtTP4ZuaoUE0GXyQFi1awHMUbNI+e/YsbBsvLy96 X/TZkJAQvq+hQTRZ+YPzWGNiYsrrfgBjAzIGHxkKDf7v5cuX+X/CaDJgwABa jBDnyFUFSHiXLl1wB4Hqo+cuWLDARHRyliDwBDJfUFDACYPYpOcSJiiSGdK9 eEEoTA2EiiuPZGwmXrBPnz4//fST5HdJ0Ym37kg6JhStI9iDjcJjLOjcuXOp m/YpWz4UvmBfnFpgNGnYsKFgokzXUPygokz4MkIhbHhBcdAEpfQ0EeWLpk1T 3EZEThpxB7sSBIt0lKGufv368B0kywALEzablmtSBw4csLGx4U9yyg71moiI CPE8dqk9jkFkZWXBs5OME4HlVqkEuY6hQaOoEmACqUMvoNMHKBRXcm88F+wJ QRVPemug9IxBuelNzxjkocag3FShVNkzIHgvOtdAY4NHP6gbTcYFrMXGxgqc CDRB8+bNaRqBfBAuswd3T3WjycoZ3Fk8sCG3bt1q6OJ8RaDmMzMzxQqNcysU ne5RKrm5uTQ0DxkyRBxgQrFmgv2cXODJsmXLaC0jLCyMm74Qm/RFRUXU6SiH jLgMNCfQoEEDzeasuPLgDpIBJi4uLpLH2X/8+DEkJARaQjyFJemYUKwxtwcb BuHq1atr1KgRGRmp4hnTqCtbW1tPT0+NZ3tOnDgBU0GwOVzX0FY6yUyh8gKj qGrVqpLZRbjhEm3N351L0oXhGINyccmR3JBGWHe016Vp06b8aXPof+ovGO4V WeyFhYU9evSwtLSUlBlVoEQ6Ot3sSvPbirIkldrjUD/GZnIYCijVmzdvCuQN lYaqQwXy4+i1hAJMxNtiSQPTwSt4LlTK4sWL8QPkGQWAuEoazJTMULwdi7un ukrPGJSb3vSMQR5qDMpNRcjBUSR7KD9GaoPMeFCaBeNPvqRWNBlaf8uWLZUr V4YHIU7xB/OmZ8+eeOU1a9bcu3cPPwt252oQTVbO4NI3QSoEx+0xDML169ch 5NAhGu9mp23Pgtg6ggJMSNHxbw4hhwBw0o4vxsXFKVkxoUTiJgqOgXv69GlQ UBD+Wrdu3d9//12DV6BFBNLq4k0UGLhRVAyy4i1e33//PbTBoEGDxFtMJR0T /h5sPDQ4OBhKBipF9V1VtCtP42NYKSk91JdmFaUxGRkZMNS1T7mjHJhMffr0 gT7njsYTkJqaampqKjhrOyUlBV4tTShR1kSy69BG3t7eEAz+Vv+kpCRIu6+v r3IvHoKNNpo4caJmtgqltZQltZci7ty5Y2dnBwdK0nLgYkwkexwGx86dO6Mq yn1EpMagVrt27YoK9PHx0TJogoM0rYWFBX/VGxJCWz7IjUUXiIiIIM+FdLvk SXywXaHwaZVZnNygWCOlZ3DlVqwvPWOQhxqPclMFCniRlD24RdHR0ZBSgxwT DxmLiooyKTlHj795ydhQK5qMWpOyQYoj4rkk3tOnT582bRoEQOASahBNVs6A OeTg4IAqkgwuYOgZyDAlRYf8a5aVlNsJKYitIyiQhHYL0OgMlXj27NkOHTrU r1+fRlj0r7CwMH7YoKRJD+/Dw8MDFjV/PzxU3Lp169q3bw99265dO9zwypUr uGF4eDjsLtXfgiuneIMTLX2OGTMGT+FPsOApeHEMBOPGjZM07cRvwe3BDggI GDp0KN4lJiZGyem9isjLy8OdcRMNAu5QY7CXMPToIlhPEahSWEHiyR/ZOXXq FNpRyXTf27dv8fr29va08xmX7d27l44kpglnNAcMKi6hNEZqDOuUwR5vkZaW VqtWLdjkpS7MQZ8PGDCgTp06mm2YR0lQnhUrVujI8qckSDVr1lQyZwj9jOEP UspPrw1bYtu2be7u7rBCy/2uY22AXQHlAK0IdSfLDTlNC4OKy2QIEzQ+Ph4C DLGnfINwSQYOHEgaCT7L5MmTBWdMUDZjOKSjR4+mRFjoL1BNCxYs4Ow0DZSe MSg3vekZgzzUeJSbKkAepk6dCtlbv349X/YgTjB0IyMjtfd9NAbVQmHOkFg9 B1qqiLrRZPfv34fHyq2LCcCVdLZp8+bN4bcKVuE1C6EtZ9CuZhOp0ysYegbq YteuXRhlGjdurPEhzrTtGQ0qPn+HCzDBIAWN17p1a/Qy+PVo+uzs7J9++gmf t2rVCrp02bJl/F6mKJ8VXCcotLp168L9x6AJ/dayZct58+ZRR8OIjBuiMF5e XnFxcapPNXPlhNoXWxHc9sv09HS4b/CwoM3w6AYNGuBFLly4oMh0FL8FnAIf Hx94T1AOW7Zs0Xi7Ap64adMm6IpDhw6p+92HDx9i5IqNjdXnMjraAnUIAVBx R4dmQBTROvBelZtD+fn5gYGBjRo1gq6GNEKWCgoKMChDrmCHQ3gSEhK4ykHJ 8SvkatCgQWg1VB1ES8XIEbjG+CJGEA1WPWAzQE4gcup+UUWuX7+OLjllyhTl zgV6FqQdNYPXR3WhetHjYHDqOdF0mSM3N9fJyQmqFd1cLteSNC1sj2bNmqHv 9+nTB8oQGmnWrFnoVtBgMDJ79uzp6el56dIl7luQvcTERDs7O6gseBNhYWFw KtGalMkEPQVfgeEaFBSEG3JThRooPWNQbvrRMwZ5qLEpN1WgMwdx227dumG8 7tu3L8qA/zFSG3al9d69e5TKW7DuYDyoFU1W/F+qW2gAyWkQKHn0fbyvra2t OJBEsxDa8gS3DRLadc2aNYYuztcOxhcYJ3CHJQ8cVBHaCYk2FWd54gJMVq9e DR2Vl5d38eJFvl4tKiq6efMmtIQq0RkcHz9+xLeg3KByBV+Eq5uZmanuhA9X zoYNG4q/CxsDqp58LnRwvMWVK1dU2V2v/C20BFX37bffurm5qWsiUiyq/gNM XF1do6OjdTfHTmn5Ic+SOdnEPH369PLly/y5I8gVrLUHDx5IGl3Xrl3LyspS K4sg7rNnzx5ra2t1j6aicUR3ASYY9WBkwoJV8f4QNnQr+DJybUkq32AEh01Y rVq1bdu2yej+k6aFOP3222+wJaADIa78zTBQSlBNkvYDigE1C9sDzrLATYaU 3r9/H/fka2+NlZ4saKzc9KBnDPJQI1RuqgPZw3Mx9KNURrLzs7CwEL4SRnxa SDJ0cSRQN5osOzvbxsamZs2akifOowliYmLwvhEREeIVIs1CaMsTkAd4/SQP ek4zzhCAkahJkyYYQLVMTEHJ5ytXrrxjxw7BnyjAxMLCQt0QM52a9GKePXvm 7OysaH/mwYMHx4wZo8GCr67fgk5fGjZsmFrZXBMTE5s1a6bnXZR0VJ/gcE95 uXTpEh6xdetWo9KfEJu5c+fCboFZqPq3YCEEBASIs0HKAu65cOFCJycntfY6 MlQEZt6gQYPq1Klz6tQpeUWR9pyLDzXQBRorPbnQTLnpQc8Y5KHGqdzKLnSa SYUSBPmpjAR1o8kook2c/JnIyMigENrg4GDx8r1mIbTlCbhmlKgN9vDXcGKL 0YKGcHd3j4yM1D6P98OHD8PDw6dOnSqeTaXADUHeD1XQs2OCsW/+/PmhoaHi lSPafrl582YNbquHt8CY2KpVq3nz5qluQkBxoUh6VsUFBQUwhnXX5Ume4+Pj jXDDMFT6iBEjfHx8VF/+gHe8cuVKLU9zkATtvnv37saNGytauGdoA0wFtLWb m5vsbcftLYe/oOvlAG2UnoxooNx0rWcM8lBjVm5ll+zs7Dp16ig6T9mwaBBN Vlyy5wqODFwP/mY8mGfQGH5+fomJiZaWlnR0C74Il58WWzUOoS1PbNmypVKl SjryUlHhU6ZMgdsId9LR0VFw+CmDA7Larl071BW/Pz579mzo0KEybh3hAjc0 yCykZ8dECbTXWnJ5tFT08xYPHjyA2vmaJ9NevnyJwQWWvNEO3OhoMTExERER Bp93gj+CsUlwkhFDFtDKGMS7dOnCz3cHJ2LGjBka55ji4Pac6yHflDZKT16Y cjN+5VZG+fz5c1hYGGXyhAts6OL8HzSLJisuWVnz8PBwc3MbPXo0XA/4GrCH 9+3bh5eF/CxevLhGjRohISH4nAtF0TiEttwAj49OGIejKnkQrZbA+kXdxsXF waNEw+kubrRMA2vZ29t7yZIlAkUHkQ4KCpLRNUZz08nRcEI1KKSROCa5ublQ C5qFfentLVDVmmVUKx9A6xp/fj+o96dPnxo8jdWbN29YnIgugBBOmTIFA5xg buft27dQg9qfkpmXl8cFmGh5q1LRRunJDlNuxq/cyiiUd1fLAz11gTbRZMUl 2yDhUPzyyy/i/TD4yvXr1/lmnmGjyYyBW7du2djY0DF8usvHRWcuN27cmJ+d m0GgTuCVwCM+c+bMj/+Bn9FDg4ODxdHr2gA/cdq0aZB5DRL4wKR3dHQMCwtb sGDB6tWrDZg348OHD5IBg0pA705OTkbJp06dWrNmTWNwrxgMhu7AcDZz5sy2 bdseOnSI06tnz55NTU2dPXu2q6ur9knMHj9+3KNHjzlz5ughlaUGSo/BKHPA Svfw8IBF2qFDBz3EbanOVxVNZljoWDfIQPXq1c+dO6ejp1BME57Sp08fHaWY KLs8f/6cDvxSRHx8vJEMRs+ePYMD1aAEdE+MkoYukRrAcoiKiqLCu7i4nDhx wtAlYjAYuuKvv/6aN29epUqVFOlVbc4xZzAYOgLWzoYNG9Bzq1WrdubMGUMX 5//nK4wmMyBPnjyhxEd+fn4yJsoWgDGC9g1SCjUdPaUsAgmMjY1V4pVUrlyZ DlpiMBgMhorQGr0S1RoeHv7VTkgyGMbM8+fPmzdvjk4Ku9FIQuC/zmgyQ7Fp 0yZUtampqbop/dWCDqnU6aIMg8FgMBgMBqNMQ0eBVKxYsUaNGkYSlfzVRpPp H7x427Zt4Zb6+/vrbrmkuOTsbwiY5DF5DAaDwWAwGAwG8fr1644dO8I6DQ0N NYZFExZNph/w1qtWrSKfVOOFjNu3bw8dOtTZ2dnFxcXPzy8zM/Py5cu7d+/m CxIXYNKzZ889e/Z4e3u3aNHC1dV19uzZkt4QPNNJkyY5OTk1adKkZcuW+Ja6 5wAyGAwGg8FgMMoop0+fNjc3NzMzO3z4sKHLwtATDx8+bNy4MfyF0aNHq3ue RXFJjqN169ZVr1595MiRlJ3p1KlT8DgsLS2tra3v3r3LXcklpsafgoKC8vPz 8SFcGAcHh8DAQH6STFy5ZMkSiGJERAQFVn/58iUxMbFRo0Z6WD5jMBgMBoPB YBgc2KUwL2E6tmrVSsaj3BhGC9yKKVOmoMWbNGmiQW4l+AsJCQlVqlQZOHAg l8YZ94yOjsY9W7Zsyd8d9+zZM4qvHzRoEOeG/P3335GRkbjDvn376JNPnz6N HTu2QoUKsbGx3GJZenp6jRo1TE1Njx07ptULMxgMBoPBYDDKCA8fPmzatCms xzlz5sDsNHRxGLolLS3NwsLCzMzswIEDGnz9/PnzNWvWtLOz4y9kQGxmzZoF ERo8eDA/2wkuNjc3r1evHmSMf/HkyZNpvab4v+1elSpVatu2Ld+pOXPmDL7b vn37p0+favKeDAaDwWAwGIwyyLlz52BtWlpacqeiM8olBQUFlIpt/PjxGmzi KiwspKPDIyMj+V//+PGjn59fhQoVNmzYwH0Ij2PFihW4uFevXvwTTOC5DBw4 EJ/379+/uORITUdHx8qVKyclJQkeh28xT5nBYDAYDAbjqwLm35o1a2Acurm5 PXr0yNDFYegE2PnffvstHVzy5s0bDe5w48YNKyurKlWq7N27l/95fn4+nAs4 tteuXeM+/Pz5c2hoKB63cOFCfpIBPJoSgkVHR+PzZcuW4WfBqgqDwWAwGAwG 46sFZuSkSZPohG52KGr5A77nypUr4Xu6urrev39fs5ts3LixQoUKtra2ubm5 /M9PnjxpZmbm7u7+8uVL7sMXL17Az8Xnp0+f5l9869YteDeVKlXavn07pI6W YPz9/Y0hLxyDwWAwGAwGwxgoLCwcOnQobdTBz4YuDkM2/v333x9++AE+QtOm TbOzszW7CVybuXPnQjzatm3LX3DBzefPn88FmPzzzz8FBQW4OD8/364EQYj9 unXr4N3Ur18f/tG7d+86deqE78bExLBdWwwGg8FgMBgMjvfv39NuHxiKejhM hKEfTp8+bWVl1axZM429kuISByQ+Ph6yERgYyJeNoqIif39/+BrwOPDr1atX w8LCPnz4APcE3gdcoefPn3MXwxPp0qULbgJfBp4IfRe/Llq0SPJMGdyHvwrD YDAYDAaDwfh6+PjxY2xsbKtWrW7fvm3osjBkALb9kCFDunXrlpeXp+WtUlNT TU1N4Urwg9lTUlKqV69ubm6ekZEB52LlypWLFy/GD3Byvb29GzZs+OTJE+7i pKSkKlWq+Pr60poLF2MyYcKEf/75R/C4nJyczp074ytf5zmYDAaDwWAwGAwG Q5K3b9927drV3t6eTlH88uXL3r1727dvX69ePSsrq8zMzBcvXgQHB3MuLXwK +Cx79uwpLvFB0tLSatWqBV/j8ePH3D2fPXvWpk0bR0dHviMM73jbtm3u7u6b N28WOywMBoPBYDAYDAbjKyc/Pz8wMLBRo0YjR4709vYePHhwQUEBPI66devC v/Dy8kpISOCiRf766y/8Cqdj0KBB/v7+8Gji4uI+fPgguOcff/wxbNgw3AGX 4bZ+fn4tW7aMiYnBnfX+fgwGg8FgMBgMBqPM8PTp08uXL8Oh4D75+PHjjRs3 Hjx4IN52BU/k2rVrWVlZ/A1gYoqKijIzM69fv86dEc9gMBgMBoPBYDAYDAaD wWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAw GAwGg6Eu/x/OODME "], {{0, 88}, {1075, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{597.3999999999972, Automatic}, ImageSizeRaw->{1075, 88}, PlotRange->{{0, 1075}, {0, 88}}]], "Input",ExpressionUUID-> "3a1f5657-49d3-42d2-b1ff-0de2d5f7b36b"], " and\n ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQdQFMnb/wUxIQqCKIpnAjFgQBAzKiZUBMwCBlAQSaKIAQWzmMAIqIcZ PRMGzJaeesepnGIZAbX4iaEUlddUhlLLu+L/fen/b2rfnd1ldnZ2F+T5VN2V 7M729HQ/3c/36enQZOLUYUGGFSpUiKqK/w2bMNt1+vQJc4ab4Y+REVEhkyMm BQ6MmDFp8qTpnSdWxIcz8J8l/vG//y4iCIIgCIIgCIIgCIIgCIIgCIIgCIIg ShP//vvv58+f9Z0LgiAIohwBv/PPP//oOxcEIYa3b98uWrTIxsamXbt2r169 0nd2CIIgiHLBp0+fXF1dzc3Nw8LC8vPz9Z0dghAKNP/BgwcbNWpkZGTk4+Nz //59feeIIAiCKEdANUE7ValSxczMLDEx8du3b/rOEUGUALTTunXrKleuXKdO nfT09H///VffOSIIgiDKI5mZmc2aNTM0NIyMjPz69au+s1PaefLkybFjx8rQ S89Hjx798ccfP43MOHfuXM2aNU1NTc+fP6/vvBAEQRDlmps3bzZu3LhSpUqb N2/+afysNsjPz/f19UVxyX6Yk5OTkJCwYsWKxMTEZ8+eKfzhixcvkpKScE18 fPzdu3cVXrB+/fqhQ4e6u7uPHz8+OTn548ePBQUF69atwz/YNdBsJ0+eXFnM 3r17lWld6GHcBffatGnTu3fvcFl0dDTyVoYknzI+f/7s6elZoUKFadOm/fjx Q9/ZIQiCIMo1kExw04aGhh07dnz79q2+s1NK+fTpU0BAwL59++Q+LywsPHr0 aJs2bQwMDCB7+D+E04+IiDAyMvLw8Dhx4gSul/32w4cPMTExzZs3X7p06aNH j1AX375927Vrl4+Pj6ur65gxY75//85d/ODBA0gjMzMzS0vL3Nxc/r1wQefO natUqTJv3rzLly+zF7Jv3rzx8vI6duyYBKWgV548eQKdX61aNchIfeeFIAiC IIpu3boFp2xhYZGdna3vvJRGoGqSkpK8vb0VLpN/+PChr69v06ZNIyMj+YM8 0C2TJ082MTGBdpL7Kj8/v2fPns7OznJaCLdbs2ZNxYoVN2zYIPeT1NTU0aNH 16pV6+zZs3JfffnyBb+C6LK3ty8oKJD9CnqjR48eZX2F2n/+85969erVrFnz r7/+0ndeCIIgCOJ/BYClpSUc05UrV/Sdl9IIhEfnzp2PHDmi8Nv09PS4uDjo Fk9PT7kZ+Hl5eYmJiZMmTWrYsKHcCkcoHEgaOzs7XMNPEzUCFSRXHT9+/IiJ idm2bRuE7q+//ir3E+i03377rVWrVpB5smNWRcVjXP369cMPhT9yKYTkk7TA nNLS0mbNmjV16lTYm76zIxJ+wFJGX+zKPUhZeYqf0ooQwP4Esx00p4zapIS8 efNmzZo1sO3ly5cr22OQHJNqIJBat2799OlT/lcwsBUrVpw6dQoaycnJSfbd 3JcvXzZs2HDnzh1ILzc3N9nChx1GRkZWqVJl7969Cu/47NmzsWPHvnz5UvZD JB4eHn7r1q3mzZvPnDlT1rZRg8nJyRcuXEAlrl+/Xi419AaLFy8ePHgwsiTi 8bWHWus9yUqlBVZx9+7dESNGWFtbK9TwZYKEhATkf+jQoSEhIT4+Pg4ODhs3 bixzczjRqBFhIQQLDAwMCAjo3r07mj+iHn3nq2R+Aiv69OkT+uc2bdqgzIOD g9FPduzYETWi73zpmbJrkxLy9etXOHcbGxtYuDJvRY5JBegf5s2bN2jQIIWz tT9+/DhlypT8/PxVq1bVr19ftgM5fvz46dOnIZ9q1649f/582S79xo0bFhYW nTp1grhVeFO06CtXrsiJf9jz7Nmz3759C5OGv+Bqk+m0x48fr1u3ztTU9PLl y/wEkRlbW9tSsscX1OP9+/djYmKaNGki/H0xWankwKQ9PDz69OkDe9N3XsSA NhUfH1+jRg0DAwMjIyNnZ+fDhw+XxXEDdAiQH3iEChUqNGjQYOHChe/fv9d3 poRS1q0IfTjkU9Wq/3t6vYmJyejRo2kSS1EZt0kJyc3NtbKyQpim7AJyTCqA SvHy8goLC1PYLUMvTZ06FQImLS3N3Nz80qVL7HMUaWJiIjqW1NRUdO+yE5/Q 5y9duhQ2CYNUK0zevXv31q1bv3//PnHiRHgKTnpBGkEhI5/e3t729vZyY1YM qDiouz/++EP47bREYWFhSEgIynPUqFG1atVSuBRRIWXISlEFCuf2aw5qPysr S6o9Rp4+fQpRPXfuXP1KDpguHkrujbMQ0Hw2bdoE+0f+FTYltJF79+5JkUdB 4F5ya0MEgshowYIFKAHdvB+RtlhKiRWJbnSQT1FRUc+fPy+LhV8iZcUmJUTa Ej5w4AA8uwrXWYYck4Z8+PDh3Llzq1atmjNnDtSIQjn99u3bjIyMJ0+esD/R uFxcXObNm6ewfz527NjatWvx1fXr1y0sLHbu3FlUHI6tX7/+0aNHMDzoBLmJ TzDIoUOHIthBty8850gKecjMzMS9li1bhnAA6RcV7+yEe+GOBQUF0E78iU8M yDzIp/379wu/o1bBUyxfvlzH8gk3ffXqFfpYbjsIBkpMwrPzELr6+PgIfy61 wCPAbqHYJRlFP3/+PHqGo0ePap6UaFAX06ZN2759u4g3bpx8UnbBp0+fkDha pbZf57F6CQ8PlzMtgTBXpTM/JW2xlAYr0qTRcfJJ8lwphGxS20hYwogIZsyY 0aJFixcvXii7pjzIp8ePHyM+Gj169Jo1ay5dupSenm5lZdW9e3dZZQ4JNG7c uMmTJ8fHx0PhsCEjqKkOHTrExcXx00TZQolBjxUVh2BNmzadP38+PsQP2UYB 796969Kli9zEJ0idgQMHmpmZ4XayqSGFSZMm9ezZs0qVKtWrVx8xYoSshIai joiIYCNLUEGQaqgsptNQffgQf5qamvInPnGP36hRo9TUVA2KUEp0KZ/Qmnbt 2tW3b1908mgIKGEbG5vevXuzt5z4FsV+6NAhtZ9BEc+ePfPw8GAmoSXQoS1Z smTWrFniTgqA8fv5+UHV46kDAgKgw/U4ZQWPEB0djVYjYuip6L/yac+ePcnJ yegwV6xYwdqCLBDMw4cP1/bGHWjyXl5ecitehQNXFRsbi05p5syZiOwuXryo 7ZEcDYulVFmRho2OyacLFy4sXLgwMjISblec3pADPTbqFIXj7++P/8vuCkg2 qW00KWF0Shs2bJgwYUJwcDAMw9nZWcXEpyL1HdP79+9RsN7e3qP/L/gEdgKl gWyXnvfgcDeIbUeNGpWRkcHJUfzbrBg2RRDXQHhA1XDDv9Dt6I1xPcL8bt26 QXrxpSyeEZIGyqSouEwgxhABPXjwYO3atWySNrQBf+IT7oU+B1Ln6tWr/Nwi PxAVqHq5+rp9+zYcDfMymZmZkE/I4cmTJ2He7AIVE5+KikefrK2tDx8+rG7p iQblNmXKlH79+rFRMjl0I5/YsiCIJVtbW3hYqFnuqzt37nh6eqL0UDv169eX 5F0bKh2NjklozVNTASS9u7s7rFqtX6HMU1JS2rRpw3Q7Sh7lqd8pK5C1/fv3 f/36tegUVq9ejfDk2rVrqOujR4/a29ufOnVK7hoYDJqwll6nFhXvt4YoCf5F dAo3b95EL43SgAnBzqHw0eFo+yAtccVS2qxI80aHnA8ZMgSOEkoDcS7+gcdR tgeyQJ4/f96rV6+lS5fCLBHkwv/CM8pWKNmkthFXwnBb48aNGzZsGHMWSUlJ FStWRCej4ifqOiaYBLzPwYMH27dvX6FChR49ehw/fhyOG5oEPRhC41atWsEl QZDovbShaqBw0LjQRtC+0FGj+ePDvn37IucoXngiPM7KlSvRIXBFXVhYCDXI bA+PwNb18Jsnyg0xL1NKEDa+vr6wNzQZbgEvf+ITAzLG2Nh448aN/Axv3brV yMiIP4iEEJvbeYANJUEbJyQkcHdXMfGpqFiVoUZ0ObrIdGDDhg0VGrAO5BMa AmRqpUqVUEeywokDGWvXrh1ah4uLiyTvwtAiYAAadrwCQYTSoUMHtdYCXLly BWKeBQVFxduQNm3aNCYmRl/r1GDGeARl+4EIBC6Pq1y0AnR9Dg4OchE3GjiU PIxBG90R0gwKCkL/IG4AjQGvLbuwd+/evYjs+DpQWsQVS2mzIs0bHXLOJlqw P2GWeCJNjjZAnzx27FgE42wUC+mEhoba2dnJvh8km9Q2IkqYTUuGeXMvhvbt 22dubv7nn3+q+JW41yIQIZAf8PU7duyQ++rNmzcDBgwwNDSEbtHjy1MYwNSp Uzdt2sSUz4sXLyDIIfDQA+Bh4VghrVFiW7ZsMTU1PXDgAPvVjRs3PD09uYNO cAFUt8KVd3jwBQsWcJfh39WqVeNeubJWw9/xiWVs/PjxLVu2vH//vuznyCGK FHmTG0RCe4RYunDhAvsT/qJr165oj5wygb9QuOMTBwQbbqcbz87A46Mklck5 bcsn6GR3d/fKlStDYSqzQFTczJkzoaIV7neqLtDhiCPwULrxI+iZ+/fvL7d/ hQpQCIGBgRYWFtypQ2fPnkXPwI1e6hiUEjoHRDHSLoVetWpVlSpV+JIsKyvL xsZGGy9VETPa2tpeu3ZNwjRRR3BV8IDa7jzVLZbSZkXaaHQItF1dXZs3by56 NtTVq1dRRFy0C8eBvkhOPhWRTWofdUsY/hHVhE6J6V50rdOnT1c98alIrHzK zs6uU6cO2s7t27f530KsQp9YW1s/ePBAeJoSglqGkoyLi+MUBWRMo0aN5s2b B/nh6+sLdYd/nzx5Eqbeq1ev/fv3QyZBgURFReXk5MgmBcndpk0bWSkOy2ST lPBbSFw2BR0CLCAggA1zQVlBccHeatSo4eXlxa9BKChEcKgshDm49fbt26H0 oKkgd/39/bkdwpHUxo0bcZmBgQH0D5thiycKCwtD88S/8SzwoZ07d4aORdAE 8+ZrJFyG8BDZKD37PmlVPqFsx40bB12EqlQdf0FVooL4Z/GIALIc5a/LNTUw DGhmhduR8SksLHRycurevTuzVW4BAn+ykG6AK2nbti2CFE0S+eOPP/BEsof4 rF27tmLFivzXmjAJ2D+apybxOB90MohrPDw8NFl6AKk/bNgwtFAub2gU6Ffx obS55aNusZQ2K9K80aGDxSNA3nDaBp0kHGj9+vUVzjooEZTJypUr4Rm53Q/Q ITdr1mzgwIFyRkI2qW3ULeELFy6YmJgsXryYqXFEdvDyI0eOVD1+JU4+/fbb bxBInTp1UnhS3qFDhxD7wzdxa/l1zPXr18eMGcPlDQWSnJxcvXp1Nv8HNnbm zBkfHx+oDqigiRMnpqamslPn+Em9efMGMc7BgwclzyRULkIV9PZQm9CZWhq4 gMSCPmSrAksJIuRTXl5e3bp1S7RSljJ8qLOzc4mTai5fvowwU04ti4C9uuX3 kFoFRYfwRGC1svFJqErWkyAi9vT0hJuAH9yyZYvo+aWi2b17NzKv4frElJSU 2rVrcw2TbdGGDlBhn7N+/fomTZpIO8MZERnct7L1GgJ5+PAhFEhoaCjXS2dk ZKDnnDNnjg4m66pVLKXKiiRpdGxuhqOjI/eOAC4DTq1Dhw7KNuUTkiCnMIuK RxJQmwp3SCab1DZqlfDx48fhX7iaun//PnTR6tWrX7x4AfNWNuwG2YCuTC35 hDKMiIhAgA+hy08W/diSJUvwrb5Gn5C9+fPnQ+Bxn0Ai2tnZDRgwgHtZgLYP 1YRMjh07tsSNdJCUt7d36ZkPrxZQjG5ubuJ6Ay0hQj4hxkT4Y2pq+vfff6u4 jIkKFTu6y4I+YciQIZpvB8dGfWHzupwBwlYrwHqFxFawcLa+g/WHiG7Q3sPC wtAuEGPqUvUVFQcvCAldXFw0LPnc3NxZs2ZxLbqwsLBr165w7gpHWTMzM6G1 hFiFcNLS0urUqYOUNUkEhT937lxum2v0XbGxsTAn3fScahVLqbIiqRod+nY4 Ry4RaG8rK6tdu3ZpkquePXsys4QOadOmDXylQhdDNqlt1CphVJatrS0LSNGH hIeHV6tW7cSJE0eOHFFhD2wqsrKoTSHcxCeFwe+rV6+cnJz0OPcJDgXKmVva hvwgSHFwcJA9lSk1NRVOFh5Z4Qo4OVCYgYGBe/bs0VaOtQaeHdGQhq1JOFCY y5Yt8/f379WrF0pYWc/GJulBPil886uQY8eOVa1aFU1YxQwu1PukSZMgiQUG j4jUzpw5o7nmOXv2LJ5F2cJGNAEUBZumDmkH3Sjn31EI/DOgS4RNRGnfvr3A lWsQlr179545cyb8XVxcHAJJRNlTpkz5/fff1b21hsAm0RiReWWdQ1ZWlqen p7GxMTolHx8ftriVA50PyhNliIqDVQQFBcGP79u3D8GRn5+fsul2z58/h/FE RUVJFT4jncjISP6cFg7IOag7BLDoJ2GQcpaGfyPb7A0R5Afi0OTk5NOnT6PT RtfKj2SFp6YW6hZL6bEiqRodpAIeBGoBRbpmzRp4rg0bNsiFJMJTu3DhgpmZ GTv/BV3c4MGDN27cqCzAIZvURlKyqFXCuMv27dtdXV0XLFiA+I5td+Pt7Y0i VTH9iWkhGAb/IFplZGdnW1paWlhY3LlzR+4rBCbIrYGBAXyovoZr2IRwxKGo BZh9586dJ06cKNuvIm5t2rQp/OyMGTMECjwUYEhIiBCtVXpAzzB9+nQdbNHG QEmuWrUKjgz/mDZtWpMmTeQcX1GxvoKo7tevH4ICNqEL6g7yXnUO0VmNGTMG 9YXHUdEQEBw1aNAAl3Hvr3UDOhn05ArPyULUidaHUKJy5croHNDKWFjBPQXa C1qrcBkpS3x8PPS/8BE81EteXh4nLGHSejmIAa0PvQdMReG3R48ehQOCbdSt WxcKCrXp4uIiKxFhLVu3buXqF4+DCHH//v14NBWVzqYEw/CkGiRBzQ4aNAhp KuzloMydnZ2ReVNTU/ST+IfsqQTsgujoaG6LIZjBlStX0Fkh0uHPtVA3NeGI KJZSYkUSNjqYDSLrvXv3njp1ih92CU+NTXyC3ebk5EAPoFJUe22yScmTkkNE CeMu9+/fZ6OF0L1wYaqH91HpCQkJMAnIDIGvePbs2aNw4tO9e/eGDRsGfQ4V p985ZrDbmzdvrlu3DjqKc+Jsf6chQ4YwJ1utWrX+/fsPHz7c19cXdlJimnjY c+fOlaGXv0+ePLl8+bJwIcHmgqKXqKAOcIVskwfUPoz8SzHu7u5oCJKcHoVc wV0iVwgMVS8eREuHWao1jqo5bIEGLIq/xBI537x5M8If9MysOcCEZs+eDWHJ zXe9du2a6H0j8bw1a9bU6i6d2gBxOrKtcDwcxQJFjSJi+9miwR48eLBRo0bw lewCeGqUtsAJ87KghEePHi18sK5EkI6Dg8OoUaP4dYdOe+TIkW5ubtwKNTxX 79690fOwbhyGkZSUJHDBmrSpySF5segGnTU6tVJjE5969OghcD0p2aTkGZND N+YN1dS3b18oqLlz55ZoVDDdKVOmwG82bdp04sSJAQEB48ePx89tbGy6d+9+ 4MCB0jxHCJmPi4tDBIEIV8Qbk5+ed+/eIdb4Sx1g9tDqMHJIUzaWjuALYZrm k1uKiiMgaGBjY2NHR0fVS2zYBvswy8aNG3Nn7kgCWsfq1asjIiJWrFjBj2Lg 4v38/Fq1asWfOvvo0SN0p3IjtGhf6H6RIFtEOW/ePCHSXSHHjx+vUaNGmXun vH//fsgn/p7AqGsUsuxEFMapU6fgEVjsiV50zZo1IoYW2UYiUGL8EVFlwLBR O/gVssq/IztoICQkhD98jT4wMDBQzoc+f/588ODBN27cYL9FF6pw0Q0faVOT Q0SxlAZ01ujUSo1NfEIvJHw7EbLJn8O8kWFXV1cjI6Po6GjV+gc+sWvXrriS WyDMdh5bsGABesXg4OAStTdsAHIdz6X7k5JgdfA4lSpVgq/X11ZvPyUozLt3 78LH4R9wcJDi8fHxGpbw1atXu3TpUrVqVTSfEg++RD/m4+MD+dSzZ09Jjl3g gDg8efIk+iWFi1hx3+HDhyPo47ab4Ni2bVtKSgq/EO7fvz958mRkEoJw1qxZ ojeUOHfunImJCfSGuJ8LAZlE9B0bGxsjjIULF6qe2w/Qb6AN8oMXqG5UNL/z Qfnjc3QabFNoud3SBAKPht/WrVtX+Cr7ly9frly5EtJd4QxPtuKGv2kY226O P6uhqHinuMTERNgDDGP37t1C8iBtanxEFIsIHj58iKBVoAkBKBNlc9gYOmt0 aqWWl5fXq1cv4UPfZJM/h3kz2LyU6tWrt27d+vTp08okNJv4xH/vzMJ/AwOD EldDwAbgW2ED6h48oSHon21sbODZETvofUf0nxWoawgYKysr/pu7PXv2VFHO +fPnZS9Gy+rfvz+004YNG4TMT2PjtJBPiBZLHEGFfR4+fFj4jHpYDtqgwt37 YUheXl6Ojo788WF8onDFDT5ES0GLxqOhoQnMAx+2UYnwKYsiYEtW0agFvslF YAIFpTpN+CNkW666i4prXNnkATiLffv2QZihbxG3GgW9E9wcOi7Z9SMlkpyc XLt2bYUz09hOGvyhBvxZUFCgsAOEz0VwCqtAl656Lz4tpaYwfRHFoi6pqalw K8LnA6D3UHHGfZEOG51WmzDZ5M9h3hxsiruZmVm7du34wp7BJj45Ozvz+zqo RCMjIyEvfzdt2gQbUDjxT0sUFhays1oQNeh4jW254s8//6xZs+aIESP43Q6K /Yly+NfDAkNCQmBs0GMlTpCGVw0LC0P9CtnbDRoPKQs/9ETF7v1MtiHiUB0v y4JGnZCQkJ6ejo5Okw0l0G+jqEvPSdACYYcZyW53WSIoeZTY8uXLRR88hDJH nPvLL78Ir3R2CkzHjh0VvjhAOkgtPDxc+GRItrwIun3NmjWaT6GUJDURxVIa 0GOjkzA1skltJ6VL83769Onw4cMNDQ0h7JXt8MBNfOLv385Wo+MrZTP/OfBD f39/hQJMS3z8+JHtNB4REaE97cRmus6cORNVpscjyEWDGly7di1Cv1rqYGdn l5GRwVJgUzoheNhWGygQzUf5IBLqFFPi4uitW7dWrFhRiHpPS0tbtWqVwFaJ y6ZNm6Zs9348IwS5jY2NWvOZt23bBrH366+/avJ+E8YG+aTLk6AlAU4H2eaO SRJCTk4OChlxqOjXsqimiRMnqljTzQfqHVGksoMqYAwwCT8/P+GjYV++fEHr CA0NlSRslCQ1EcVSGtBjo5MwNbJJbSelM/O+fv067oJubefOnSrcCn/iEwfb hBbyCXGB6vD/9evXjo6OWj1ABylzVo0uF2UIn75gwQI5b56dnQ2Jq/BIWRHg jnfu3Bk2bJgeDzLQkGfPnh05cuSAYODBIW84p4b226pVKzRhZq4wEkmcO9sP FqWquik9fPiwUaNGlpaWCl+my14WHBwsF7fCMDZs2DBhwgR8FR0djUCA206B bVDZoUMHaG80ZwQXsvM28Y+4uDgLCwu1di+H0mvbtq3cT9BjwFAjIyO5dnHi xAl8omza5KZNm8zMzOQOt0J+8Ct0oQhzoOQXL14s7UwwzUFXg2yrdWILghF7 e3tNZnmhft3d3fnSGoaKYAeVHhAQgNhh9uzZ3Dh/ZmYm8omwC14S344ZM0a2 USMdpDZgwIASN92VzQP6RqQjSQSnLDVEvh07duROKsdl8+fPVxbCKysWxL8r V65Ec4ALg9mjmZeqmaISNjrRaJ5a+bHJomKPvGfPnrFjx4aEhAwZMoQ7wlXd pFJTU11cXLglA9DPKA1lGwrpxryRh/bt21epUoV//q8c9+7dUzjxqei/W1RB Pik8yVTWJGJiYszNzbUx8eny5ctwHChPFDvcXKdOnUaMGMGm4hw6dEhuJ66L Fy/269dP2kXubM1+3759S/PyQ+1x6tQpY2Njthc9LHbGjBmqw0NcI+SsB6hx BJswrfHjx6sYzoLVLVmyxNDQUPa4ATny8/PxrZy+QjbGjRsH3cuEdFJSUsWK FRMSEti3bOITXBLrqWBIcsc979u3D30afzKPCtavXz9q1Ci5Xg4iwdraGsqN GSoeYeTIkcoG0/CwkHlNmjSRXWYI84uKioLZ3717F4kgFGrYsKHqE8N1DzKM bAtfoFRU3O04OTmJmzTOePPmDVLgDhxhoBNDHIe6QE7QS3t4eMj2bMnJyTAD qFmUKux50qRJ3t7e3JRj9hpF4fQbZeC36JSkmuqvLLVt27ahd+VENYwWcQfE hrITqfjFwqZA43lheOjH0GN369ZN3NIn7SFVoxON5qmVH5tkaxUHDhzIMoYL 2rRpo/qFmsKk0CUOHz5ctkuEYoGKVnY+sg7Mm51+ziaNlLgeQcXEp9u3b6Oi kQ7nd27evMlCeL5JKDtrWBPgJnx8fDhvwuQuxJ6RkREamr+//969e5ElRGdp aWkQwA4ODpJ7Fty9adOm0IelKljTGcePH4d82rx5c1HxilRW48ou/vjxI0xO odjmg5qqUaNGiUtQkSYaC0wU0kJOdaDpoa3BQrgNRhjspXPt2rWvX7/OPkHP DEvm4iPWUZ85c4b9yTYWll0Mkp2dDX0F0VXiU3B3XLZsGXcmOwcaC+7LLUlj 8QiCDmXjBuheZM/8QrKrV69GCiwiwJ+I1BCllrhoUcegk0G2Bw0aJHzJIcIi dHeauCq0+vr162/YsIH7BFLZtRhmJ8z1oLNlxcX+5NZ2sTmo0KKy5peYmMj2 SBSYB9wRYZ0mIrDE1JhLlV2SdvjwYZirsunN/GJBaaB2OnfuzMoBDQqCHF67 tO13J1WjE4ckqZUTmwS7du1CPrmOF24CNqn6xYTCpNAlNm/enFtayI5/atu2 rbJ52jowb3aONjRGiUNP6O7Gjh1boficOP7rORbmIPZnihHdO1RERkaGQpNQ NvlNE+C1oUsXLly4cuXKkJCQAQMGBAUFIQx/+vSpn58fHpBb2QEXHxERoY0z LuFk4b90vyFDKQGiGsbp6+u7aNGiOXPmqJiDhP4HVg2dI3BHfbaohP+uig+s dMWKFbjSxsYG3QskBBrv9OnTEXHExsbyrY7t1tK3b1/2kotN3+Jel7OJT7Jv z9FnVqlSRfZExffv37u4uMDGBO5+CRkAy+TUGgM3Qokhz5z+v3jxIp5C9kb8 bC9fvpwT6qxvcXNzK+Ujn8jw4sWLZZ+0RLZu3cq22RF9U0RMVlZWsmWO3rtq 1aqI9ViybMtB7igZNskEnTP7E70ZpD7Uu2yer169iuhs//79AvMAX4AgTuCe iuJSQwPs0KEDZ4owKkT9jRs3VhZ08IsFGr5atWrr1q2TJJPaQ5JGJxpJUisn NskmPwwfPpwLfzZu3Igu9NChQ+omhcAQ7pV7OiZdoLKU2YAOzJttFlG9enUV A6Hp6ektWrRAzXLLk+vVq4enk51WgaYKt4WvUN1QJrCBtWvX4rkUmsTkyZO1 MfEJBnbjxg3Eqgq3U0tJSYmLi0ORKhOrRcJmDqAS0WwR1yPQg3BFGMLtj7pk yRLUL7QZvh01ahS0HDc4UMqnE0gFSgwKB7Gh6qfLysqCxG3SpIlA+QRxDpOr WbOmwP3uINoPHDgwY8YM9DYQUfi3si6CLf/nznnBZT179kS/xF7/odZ69+7t 5eXF2j6MNjg42NzcXHYICz9ctWpV69atBS6whS+DyJQTD+xGHh4e7EYsTRWB 5MmTJ3/55RdZMckeBMK19NsVah+ZF7iTMPoQuCrhHoEPW/DSp08fzgaYrjA1 NeU2r0Afi2qFTmN/3r5928LCgtsUAjXbsmVLpCDb4+HfUN0Kj01XyN69e9Hv SXUcg8LUYJbINtwTl0PEre7u7goH+lQUS+k/nUqSRicazVMrPzYJj4yn4MYJ 2XRuaDzVi6kVJoUahxzKzc1lfzJrVzYCqRvzZo6pRo0amr/Jgkn//fffc+fO hdv6/fffUVAKTQKPXOJIl75QPXMA/4cGa9OmDRO0MAAUHbwei/fRRw0ePJgd ZIkrnz171rZtWzbAWyamE+gMPDgkDVQumr+68kn00nVlsHnp3KnciHrQQpcv X47eacuWLf/zP//To0cP7qw91Gnz5s19fX3lXiShRdva2kISC7kjZIOnp6fc jO6HDx8iiomNjeUmPkHCdenSBREWTEhu5QhaFhTFiBEjZN3iuXPn0IrlphSi /5FqsoeEINt4OrQCIf02KgJtB4pL9O1YS5SdR8G2I5adObZ582a0XNzlYjHo r1Ad3ItURMooW/5BM/Bl9vb2QtZ/4Y7h4eHo/yURt8pSg6s1MzPjenI2mw4B IMJJdFxypc0vFrbNIH4idzwruqzS9vKuSIpGJxrNUys/NolnxFNwAgDKE7Xm 7++vYharwqRYlyh7VBw6Rlg7/AgMnj/4oxvz1p5jKlJiElCeENLMJCS/oyaU OHPgypUrtWvXXrFiBatWNtMJ+pAVPvuTezPLhha9vb3LynQC3YCnTkxMPHbs GIue9C6foFvQnNkuvnDraLZVqlQ5Ugy6JmbAbMAc7XfatGkwD/4mbHiEmJiY 4cOHl7iAhQUUUI9yTw1Lw33h6Zhp4U/0jehk0NsgHpF7H5ednY0ekpuOxXj5 8qWjo6Ps6FN+fj5yXjpHEi5cuIDOTfVBPAx0jK6urpqcWrVp0yYIUbm1ltCZ NjY2bDkAutP27dtDGKO0Fy5ciOKFcaLxMtcMT+Ts7IyegT+Gg1z17NmTG+1R Aa7EU0h1QKHC1NhUEK6NQDbDmCtVqnTgwIETJ07A18j5NYXFgr4O/oWzGfzk 5MmTwcHBOttkRjiaNzrR99U8tXJlk9ykC+QWfyLnqueNK0yKzQWFG2ULfJAC umIUF/6xZMkS/mpr3Zi3VuVTkSKTYNqYmYQ27iga1TMHYAmBgYEWFhbcixsE Amysif0JdwY74V7p4pFRU2PGjCkr0wl0Q0ZGxrJlyyBFSol8QguCiaK1Lliw AE0bkqlv374QvZDB7L0AxJKHhwc0zOTJk8ePH6/s2GJ83q1bt+PHj6u+HcSz u7s7N9jFYJYGT8fmawFkJjY2Fv3MlClT5GQS7BB5CwkJ4YdvKJw+ffpER0ev XLkSqi8iIkKIPtELaGJ4tKlTp6p+y8BOsZ8wYYLo9wuoRBcXF/5EC1REUFAQ KnrOnDkoK+jnVq1aIUurV6/GvXBf+KkBAwYsXbp06NChyIOyQbz09PTu3buX uLFMVlYWAmepXh4pTI3FayYmJrBDOBQ8VEpKCh5h5MiRKGc5u1VWLHh29FRo Anhk1iLwD6m2dpEcTRqdaDRPrbzZJB524sSJcXFx6D+hVVRMnlGR1MWLF2Hb lpaWcKkIEsPCwtBvo3zYOJVcZ6gz89a2fFJtEtq4o2hUzxxglgCzZCfhssUX EEjcDpkJCQlWVlbcYoFjx45VrVoVNVtWphPoADQcaAPWrkuJfGKgrlFxrDuC WUIwyxonXDyUf4kTLBHjDxw4UPWSBMRKiA3ltqVllgaR9vbt29zcXC4UQlL8 po0Aqn///so6PZglvkJutbepmlTA96G4VJ95gVrw9/cXvcQJhQAxCRtT9qYA Roi65qa9yXmcT58+wfBUlyRShkmjc1N9WWpq6tixY6V6kaowNTbJBN0XgndY ETdbD/Yg9/glFgs+R3Mo0c2VBkQ3OtFomFr5tEn4UMShAhfb8pNiYRQ7Cwzl j/JhXgM9J8pHblhVl+atbcfEUG0SpQTVMwfQC0H4cZtIsG1C0Y7g8rZs2YIn QsTH7bmBawIDA5s0aYJWVoamE2gVWHV8fDy3IUCpkk+SgAdBR4HwSsXaNzwI CkGuXaNjqV+/vrLNeWTJyckZMmSIJhOBShV4EC8vLxWj0GhlK1asEHdgOtu6 AWGvtgdPEE/hLggMVVQfAmFuQYrmKEwNvZDsvE1l6KxYdIPoRicaTVIjmxSX FEp76NChQk6U0LF5lwnHpANKnDkA5Ty6GNZwUMW4OCgoCAUYExPz+fPn9PT0 9u3bszl7x44da9CgAVt1XoamE2iV69evOzk5+fj4jClm2LBhJiYmdnZ2UKQl noBWVqwUnfn+/fvlXreVCGypVq1aJe4BCMNLSkrS5UmROuD27dt4KG0c4Y2W CDenm14Ud0lISJDqPYgIWPclZMtEXRaLbhDX6PQC2aQ42D4tQvba1bF5lxXH pG2EzBy4e/du7969Z86cGRYWFhcXN2fOnE6dOk2ZMoUdxwYFhfr18/ObN2+e u7s75w3L1nQCrYIG9f2/3Lt3z8LCYtq0aVCqJY66/NxWinDJw8OjtO1vSZQh 0IjQsSxevLi8jWkTpRYJbZItXZf2iBBJ+Lkdk3AEzhzAJ6hKbuDoxYsXbCoU R0FBgcJXk2VoOoFuyMnJQYFDPv00L+8IgiCI8gM5Joa4t7SECCA4Z8yY4eDg YGhoiDJ3d3fnNjNRBlkpQRAEUaogx1Qk6VtaQhtwm7tmZGToOy8EQRAEQfLp f6GZA6Wc/Px8a2trExOT0rbVKkEQBFE+ycvLs7KyKufyiSjlvHz5snXr1pUr V1Z90CRBEARB6Ia///7b1NTU3Nycv+05QZQSvn//7ufnV6FChQkTJmhjkTtB EARBCIedFgGvJHswMUGUQqDzraysqlatmpKSIskZlwRBEAQhjlOnTpmamtas WVP10QkEoXcgmdLS0szMzIyNjVWc90QQBEEQ2uPHjx87duyAdkI4v2nTJgrn iTLBjRs3evToUaFCBScnp6NHj5b+k90IgiCInwMopYyMDBcXF/ig9u3bX7x4 kbQTUYb4/v17Wlqam5tbv379aKMJgiAIQjd8/vzZx8end+/eO3fuFHgCMkEQ BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBFFG+fLl Cx39TPys/Pvvv58/f9Z3LgiCIIifhB8/fhw8eLBHjx60iz7xE3Pz5s1atWq1 bNkyKSmJdBRBEAShCTk5OW5ubhUqVHBwcDhx4gSNPhE/K//++++lS5d69eoF a2/Xrt1ff/2l7xwRBEEQZZJr1641bNjQyMho9uzZtBMsUR74/v17YmJitWrV zMzMjhw5ou/sEARBEGWMV69eOTs7IxKfM2cOHYFHlB/++eef5OTkypUrI3a4 d++evrNDEARBlCXgQSpWrOjg4FBQUKDvvBCETvn06dOAAQMQO8TExNDRpQRB EIRAvn//PmbMGLiP8PBwmu9ElEPi4+Nh/25ubvTamiAIghAI5NPQoUPhPubP n0/RN1EO+fXXXw0MDLp27fr+/Xt954UgCIIoG5Qf+XTz5k08Y2ho6NGjR/Wd F5HwhwfL6Fw1uQfR3lMIqfStW7caGhp27tz53bt3WsoGQRAE8ZNRfuTTy5cv 4+PjjY2Nt2/fru+8iCQhIcHa2hr1FRIS4uPj4+DgsHHjxjJXa7du3WrYsKGr q2tgYGBAQED37t3Hjh374cMHbdxLSKVv27aN5BNBEAShFuVHPoFNmzbVrl0b 7lvfGREDagdKoEaNGgYGBkZGRs7OzocPHy6L09Vu3LgBEYhHgNU1aNBg4cKF Wn1rVmKlk3wiCIIg1KX8yKcfP374+/tDdbx580aP2fj27VtWVhaKXd0fonag BI4fPw7JpLCm8Fy6XH2PexUWFor4IZTMggULUALK3tndv39fqkWgQiqd5BNB EAShLpLIJzip/Pz8R48eyamCT58+STit5enTp4cOHYJ+yMnJESE/Xr9+7ejo GBQUpMf5Qh8/fpw2bdr27dtFFDUnn5RdgNJG4jt37tS2DEb6u3fvDg8Px+OI +DmTTypqAfXr6+t7584dDfL4/xFS6SSfCIIgCHXRRD5BMi1atKhVq1Z16tRx cnLq0qVL48aNJ0+e/PLlS3ybnZ09ZMgQaB5JMgnlMHbsWG9v77p16yK3NWvW 3Lt3b4k/fP78+dSpU4ODgwMCAmJiYszNzfU48enbt2/R0dEoZxHar+i/8mnP nj3JycmQSStWrPjPf/4jd82rV6+GDx9+7NgxKfKrlBMnTnh5eYkeIIJ8io2N TU9Pnzlz5pw5cy5evMh/BXnp0iVPT09xxqNupasrn27fvj1lypQAAUC20dmR BEEQPyXi5BMcDTygiYnJgAEDzp49y4X2+Af8OxK8efNmjx494AG/fv2qeSbv 3LnDqY4PHz4kJSWNGjXqxo0bqn8FN+3o6Lh+/Xp458+fP3t4eMCTwvdpnh9x 7Nq1q3///q9fvxadwurVq93c3K5du4ZyPnr0qL29/alTp+Su+euvv7p165ab m6tZZpXy4MED6GRoHtEpwDacnZ1RGl++fIEC7Nmz59y5c6EtZa9BlS1dutTP z0/dI31FVLq68qmwsBACFYGDsbExfjhx4sS0tLTj/+XQoUNQuWFhYbVr10az iouL+7nfiRMEQZRPRMine/futWvXrk6dOnv37lU4dRnBvqWlJdKEB5TEd5w5 cwaxvFpKDK7QtRi2pAuPOW7cuI4dO759+1bz/Ijg8ePHHTp00PBstYKCAs7F syfi7xUPZTVlypRJkybJCRJJQJpBQUEhISHiBtAYUDWyw0qwIjMzM74OfPHi BSTNgQMHhKcsrtLFvbyDgET4YGVlpUypopk0bdp0x44dwtMkCIIgtM3Zs2cR AmsuTtSVTxkZGQ0aNGjYsOGVK1eUXcMmnCA2RyY1zB7jxo0bzZo1w62F/+Tw 4cNVq1ZNSEhgD4UsQWlMnjxZLxOfkAcUb9++faVdnr9q1aoqVarwJVlWVpaN jc25c+ckvBcDVWBra3vt2jUJ07x58ybkE396EgoND9ipU6dXr14JTEpcpYuT T8gbWk2PHj2U1SnU/tixY6H8hadJEARBaJV//vlnzpw5U6ZM0VwMqCWfEGjb 2dnVqFGDP1YgC3IVGBiI0PvJkycaZo8Bv9a1a9f+/fsLdHAon9mzZ5uammZm ZrJPrl+/bmFhoa+hgOfPn7dt2zYxMVGTRP7444/u3bufPHmS+2Tt2rUVK1bk T+z5/Pmzl5dXQECAJmNEfFCtwcHBHh4e6r5QkwWSZtiwYTExMVze7t69a25u jg/5uc3OzoYVHTx4UEjKoitdhHz69u0bMoxWExUVpWzvCDxOeHi4Hl8WEwRB EHJIKJ/gCOBqhcgnOJc+ffrgyujoaNXbDSGdBQsWIFkJDxFLSkoyMjJCJoU8 Mq4JDQ1t0qQJp982b95saWkJX3axGKlyJZDdu3dbW1tDJ2iSSEpKSu3atTkt gUKeN2+eiYnJpUuX+BevX78ej5+Xl6fJHeXIz8+HmEHKmiTy8OHDBg0aoHa4 d4sZGRkQ5LBnvlFBpw0cOHD06NFC3tuKrnToK6hQteQT9DDiiMqVK8u9W/zw 4QMnAmH806ZNe/z4scA0CYIgCG0joXxCJ9+vXz+IoiVLlqiQT/gqOTkZAqZZ s2aPHj1SnSYuXrhw4bJlyyScNPvs2bOWLVvCz544cULI9du3b7exsWFr05Dh 9u3b29vbP336FBnLzs6WKldCQB0FBAS4uLhouDlkbm7urFmzuFdFhYWFXbt2 HTdunEKNmpmZCa0lZHGicNLS0urUqcON7YgDimju3LncJpaw5NjYWEiRBw8e 8C+G/cAsZRWRasRV+p49eypVqtShQwfhG4KxiU/16tW7f/8+9yFbWclNhcKf Fy5coGOICYIgSg8SyqcXL160atUKcTSco4rLoF5atGgBlaVwlEAOeL1Lly5J uPgLSYWGhrZu3RoZaNeuHfJc4k8+fvwYFBTk7e2NDOO3O3fuxGOixFavXi3t K60SefXqlYODQ2BgoLLKysrK8vT0NDY2hkf28fGRG6+A6EpNTYUXRqkeO3YM D3Xo0KF9+/YNGDDAz8+P7RHBhw2PqHi1pC5IJzIyEmkiZYUXQM5B3UFRQGND ipw5c0ZWPOPfyDYT3pA3wcHBUOOnT58ODw/v1q3bX3/9pey+hw8frlWrlsB5 XOIq/erVq6ampvXr15fVQqphE5969uwpu/NVTk7OhAkT6NxhgiCIUouE8mnX rl3QTojTVU/Q3bp1K9wivAx8jYZ3VAs84IYNG9q0aXPixAm4XVtbW0NDw3Xr 1gn8OYQW1Ajz4x8+fFDm+rUKtJ+lpSUcrsJvjx49amZmZmBgULduXSgoOGUX FxfZzQ2OHDmCwuekyJs3b1AU+/fvz8vLUzG49+nTJ1dX1379+mkyT0mWr1+/ Dho0CGkiZf63+fn5zs7OyDwsxMLCAv8wNzeXfauIC6Kjozmx8e3btytXrkAW ZmZmql4heOvWLZTP2rVrhWdV3UrHNWwANjY2Voja5CY+TZ8+HcUCYQbpeOHC BaipiIiIsniMDkEQRDlBKvnE1laX+EYMDgIRPfyFWi84NAePuXz5cmtrazY6 weYGIxv9+/dX6MRLJ2fPnq1ZsyZkKv8rlH/Lli3xUOz0E9TmwYMHGzVqlJyc zC54//49fLSI3SNRZaNHj4Yq1mSbKVnYKrZRo0bxh3FQFyNHjnRzc7t58yb7 BM/Vu3fvIUOGMPEGJZOUlJSeni7ivtBdv/zyi4TDaAq5fPmylZUVJJ+QhXJs ZA92iJqyL6Zhw4YILipVqrR7927tZZIgCILQEEnkU0ZGBrwAQnv0+aonKbGN COAvxowZI+2bLzjcefPmhYaGKtyE4dSpU5B2UFDcV+w9i4pXSKWQ/fv3Qz7x dwL/9u1bRETEli1b5B4cTw2VwgZqIDnWrFkjYgoZm0cN/y586rLquoCEg9IO CQnhm9yBAwcCAwPl1u+jggYPHsy2NsVvYavidtwqKCho1aqVr6+vtl+5QuXW rVu3Tp06R48eVV3gly5dYjs+yb7su3v3rpOTk4arAxgo4bS0tFmzZk2dOvXh w4eaJ0gQBFHegEyCYNi3b9/e/8tvv/2G0B7x/p49e+S+wsUIpVXLqpcvXwYH ByNY7tWr1/Xr10vMBlww4mvIJ2lng7OcrFy50tjYeOfOnXJfvX//vkePHs2a NZOdNgxHbGtr27hxY6m2RJADomXz5s2xsbExwli4cOHff/+tOs3t27dDBPK3 wMrJyYGo4A+jff36FZ9DzHz+/DkqKkr4hBxZYDn4LfQA/2AXZaioi6LimdjW 1taRkZFyo0DIJLy8wvPpduzYkZiYCIPZtm2b6GEZSPf27dt7eXnpYMYatIqH h0fFihW9vb1VLFqMj4/n7/gEuYg2JcmmrCgxyLARI0agwKVdO0kQBFFOgDeH w+revXs3HvXq1UOk3LVrV7nPcXFoaKjq+atr1641MDAYOXIke2dUIuwFiqGh IfxgiRdDDyQlJQl/x5ecnFy7dm3+9jjnzp2rXr263J6HBQUF9vb2rVu3VjZl WkMgNuzs7FA4FYQBCQoFpTrNlJQUExOT8+fPy30O4aGslCBgIIMhzJYsWSJu gBEiZ9asWZaWlmoNXyirCwA/DjE2Y8YMOfmEP1EpCkU1hF90dDT0D4SckNn+ CoGJOjk5DR48WBubqPNBpUybNg2mjv8rvEDZjk+5ubloVtwnSGfRokXPnj0T lw1IaAi5Pn36lKGX1ARBEKUfDV/eIZDfunUrvCE0mLKDV2RhokXhDo18MjMz 4bgFOjtlx2rAHcP7GBkZyU0ZYuNggwYNKkPrwVNTU2vUqCG73WWJ/PnnnwkJ CcuXL1exJE01qNOpU6dC9EL6CvyJ6iNOmIQODw8XPgeJrcU7fPjwmjVrRM9c gk5u27att7e3DkafoNhbtGgB0Q5JLLukTpbnz583b94csln1aTIXL16E1BSd ZzbKOnfuXJqIThAEISGSzH1CF92rVy+IogULFqju5xELs53JSzz/FFciY/D+ AvPw6tWrdu3a8Q/swJ/40NTUVO5oGKQMKSLVUXq6IT09vWbNmmqd3ZaTkzN5 8uSoqChlTrxEUIATJ05Ua5KYsrpgvHjxAtLCz89PuMlB4k6fPj00NJTb5UkE z549a9asmYptHyQBDSo5OdnY2BgloPBFJAc38UnFvhxoBXhqTQ7NOX/+vLm5 +dGjR0WnQBAEQfCRauUdFJSTkxNC6aSkJNWCZMeOHbjMzc1N9dsEiARILLlc wYNPnTo1ODg4ICBg7dq1s2fP5t4oZWZmmpmZ+fr6hoWF4dsxY8awuTp4wIiI CHgQ2d0OkcPly5dbWlqyCcnchydOnIBbR2nMnDlz8eLFoiWHlrh+/TqeUa0T W/Ly8uzt7bds2SL6pt++fXN3d+efyCaiLhhIB6kNGDBA+MHNyMPo0aORjiab Jzx48AA1ztftyDYkCkTmrFmzYCoQnKJvAY4dOwZRZGtrW+JMM4UTn+Q4ffr0 iBEjZF+g4yk6duzIrW9FycyfP19uUA7CDGaMwp80aRLKv0GDBjTxiSAIQlok 3PfpyJEjVatWtbGxUf2W5+3btz179kR4riwihnc7efKk7LbYjFu3bjk6Oq5f vx55hhv18PCoVasWNxyBkL9ixYqRkZFfvnzBs8BxeHt7sxdz27dvx5Wyb68K Cwvhg0JCQmTPxYiKiurUqdPdu3eRgZ07dzZs2FD42JduePLkSZMmTfizhlRw 7949yFpxk8YZb968QQrjxo2THVcUXRdF/321h58L3wkBv/Xy8tJEBBYVvwWD qNu3bx/3CSr68OHDLVq0QHXjQSCwHRwcYmNjRQ9IwrY7d+5sZGSUkpKi+krZ HZ+U1Sbqrl27dr/++qvsh9u2bUMswB21DF0KdcRpQvwft27Tpg1bxwFjrlev Hk18IgiCkBwJ5RN8BzRJpUqV9uzZo/pK+IXmzZvXr1//0KFDcr6joKAgOjoa PkXu1DD86VoM01TMBcOtsynr7E/4PrZjJ5vtDP3D1tq/fPkSGZs2bRp7Rny7 atUquDluEyQ4ndWrV0MAsO0Z8WdqaiqCd4Hz4XUGVMTAgQPVmq91+fJlqBfh 4zx8Hjx4gJrasGED94kmdcFITEysW7eu8HEe3HHMmDGaiEAAHWJlZSW7IUBW VhbUBbfFJcwSOddkN9cLFy6YmJhAz5S4SjE3N7dRo0YKGwvMD5YJE61Tp46d nZ3sVl1Mi3JlW1S8lTo04enTp9mfV65cqV279ooVK5iagt5u2rRpTExMGXpD TRAEUSbQxpHBQiYUwZmOGjUKcTpC42XLlh08eBAu1d/fH055//79/MzATVSt WjUhIYGlzLZe5OaxsMk2AQEB7E8W2sM9cZsSwFshb0FBQUgcOmro0KGyrzPY JN4S3yfqHTz74sWLbWxshG+2sHXrVihDTbxnWloaVIfsrhQa1kVR8aZblpaW qAuBeYBwgm2oeMlVIuy4QE7yFf1XiiAbqmcoqQU7MljFwBpKIzIyku2mzjA3 N7eVAarS0NCQfWVgYDB//nzZ+OLNmzcdOnTw8/NjI4Fs99fGjRszaYonQi0g cW7T0bNnzyJ9cbuMEgRBECqQUD6hS2fTwhcsWCDQX0PDbNiwISwsDMIGwkDZ NlPMTZiamnKHzMKbwy9AG7A/b9++Da/BveZ48eJFy5YtIcxkJy8hEYioI0eO 3Lp1S27Iiw0aLFq0qPQH6VlZWb/88otAh4gaYYpR9O1QULANlCSnOiSpC/y7 b9++wcHBAq1u7969kydP1mTF3MuXL6HxZPdNZfsYdOvWTcKj5bZt2wbx06lT J0l2beIDXYSy3bhxI/sTxQhB6O7uzkYj2RN1796dPRGeFIGJkKEwgiAIQl3Q x8bFxcXExGi+rpmTTwiZpdUhbOPrJk2acCMYmzdvrlWrFrTExWLgyq2trbn9 JA8dOlSjRg2Fh5so5Ny5c7hebi8FPI4m77y0BBzlsGHDAgIChGgJSJdevXqh lETf7tmzZ23btpWddCRVXUBf2dvbCzlEBncMDw9ftWqVJkZ1+PBhOzs72dd/ bBfN4cOHy5YkbqHJCCSTT507d9aSfIJGNTMz46bkIfpAUaO5FRQUpKSkoEZa tWrFzVKD9Xp6ekKmQk2hBnGNNrJEEARRboHLkGRPGO3Jp6Li6d82NjYsjn70 6BEcX/PmzR8/frxw4cLs7GzoBMTdBw8eLCpeA+js7Dxp0iThE4Revnzp6Ogo O/qUn58PiaLjQ40FcuHCBUiae/fulXjl+fPnXV1dNTmrbtOmTV26dJHbWVSS ukCuevbsyQ2kqABX4ik0Wbz/+fNnyKSoqCjZwS78OzIy0sXFhRt9QiaXLFnC 5sOLuxEnn+Rm7kkCe/9Ys2ZNtggC6giqkm0bdeLECdwa+R9dDNsqDcIVF4eF haGmEB9JdeIzQRAEIS1alU8fP34MCgry9vaeM2dOaGjozp07EWhPmTJl9erV uC9uB389YMCApUuXIg8rV65Ud+AILqlPnz7R0dH4LdKPiIgQok/0Ap4XDz51 6lTVb75QJniWCRMmiH7nBSEEdQEvLPe5VHWRnp7evXv3EreTysrK6tSpkyZn 60BdQATyU3j16pWfn9/YsWPXrFkzc+ZMiJMjR45oEkpoVT6xd3MmJibdunWD zEPJp6SkoJxHjhwJY2Dbkt+9e7d37954FqimuLg4VBCKDlXz+++/S54fgiAI QhK0Kp8YcOiPHz9miX/48EHO83769AmBtuhJXEgWHvbRo0da3VZREuArBw4c yK23Ugiqw9/fX8jhOApBIUBMRkVFKdv1XfO6QMqzZs2Ci1d9WWpqKhSO6Bep BQUF0BgqZou9ffs2JydHksEZrcqnGzdumJubb9y48fXr17m5uaxAUHQwWtk6 wid5eXncIT6oJgkndxEEQRCSowP5RHBkZWV5eXnJ7gUqB9zrihUrZLcLEA7b umHixInakAGywLPjLjt37lRhMIcOHeJ2iVQXqLiwsLDk5GTdHFmiVfm0ZcsW 2R2fCIIgiJ8Dkk865vbt20lJSdo4APfp06fx8fHa1k4M3CUhIUGTd3MqOHv2 rJCjGKVCe/KJTXxSa69RgiAIokxA8oko52hPPn39+hXyafHixXTyL0EQxE8G ySeinKPVl3cEQRDETwnJJ6KcQ/KJIAiCUBdOPs2bN4/kE1EOIflEEARBqAvk 08iRIyGfoqOjaYYGUQ7ZsmULySeCIAhCLSCZwsPDIZ+442IJovzw77//Llmy BPbft29f2uKbIAiCEM6+ffsqV65sZ2eXn5+v77wQhE559eqVs7OzoaHhypUr 6eU1QRAEIZx37971798fAbiPj8/Hjx/1nR2C0BFsB3UDAwMnJyc6nJcgCIJQ l7y8vA4dOkBBDRs27OnTp/rODkFonbdv3wYGBkI72dra3rx5U9/ZIQiCIMok hYWFERERlStXtrS0jIuLo2m0xM/K169fN27caG1tbWRkNH78eIoXCIIgCA25 fft2QEBA69at6bR34mclOzvb0dHRz8/v8uXLNN+JIAiCIAiCIAiCIAiCIAiC IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAht8/8AnO3SXQ== "], {{0, 116}, {789, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{567.3999999999995, Automatic}, ImageSizeRaw->{789, 116}, PlotRange->{{0, 789}, {0, 116}}]], "Input",ExpressionUUID-> "e773654d-926e-430a-9809-080bd0fc3da6"] }], "Subsection", CellChangeTimes->{{3.742225210268482*^9, 3.7422252341165237`*^9}, { 3.742225399065777*^9, 3.742225438530488*^9}, {3.742225588522272*^9, 3.7422256174212418`*^9}, {3.7422257454653788`*^9, 3.742225760869822*^9}, { 3.742225802957129*^9, 3.742225810430195*^9}, {3.7422259174491367`*^9, 3.7422260616027184`*^9}, {3.742226120209066*^9, 3.742226127806513*^9}, { 3.742236515916774*^9, 3.742236703121776*^9}, {3.742236755083893*^9, 3.742236801878098*^9}, {3.742317019305887*^9, 3.742317046559519*^9}, { 3.760966254219942*^9, 3.7609662558084636`*^9}, 3.7609785052617064`*^9, { 3.7609805881485434`*^9, 3.7609805881485434`*^9}, {3.7609806209044647`*^9, 3.7609806501137524`*^9}, {3.760981328856741*^9, 3.760981328856741*^9}, { 3.7609882016701207`*^9, 3.7609882053971753`*^9}, {3.7633998193523707`*^9, 3.7633998197303605`*^9}, {3.76339985014673*^9, 3.7633998584608784`*^9}, { 3.7634001344182434`*^9, 3.7634001443087516`*^9}, 3.763407035581808*^9, { 3.764950979112522*^9, 3.764950997418736*^9}, {3.7656352592381573`*^9, 3.7656352602179117`*^9}, {3.7656353044256325`*^9, 3.765635304804017*^9}, { 3.765741038669923*^9, 3.7657410891371975`*^9}, {3.7689327634717236`*^9, 3.768932764335264*^9}},ExpressionUUID->"68c7e39c-fd44-4942-9218-\ 54c779e0448b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FHoloTerms", "[", RowBox[{"mu_", ",", "ap_", ",", "bt_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "]"}], ":=", RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"mu", ",", "ap"}], "]"}], RowBox[{"\[Eta]", "[", RowBox[{"bt", ",", "nu"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"mu", ",", "bt"}], "]"}], RowBox[{"\[Eta]", "[", RowBox[{"ap", ",", "nu"}], "]"}]}]}], ")"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "-", RowBox[{"I", " ", FractionBox["1", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]", "[", RowBox[{"mu", ",", "ap", ",", "bt", ",", "nu"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"cc", ",", "dd"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7609811744259396`*^9, 3.760981232403672*^9}, { 3.760984738157158*^9, 3.7609848090140343`*^9}, {3.763406498133624*^9, 3.7634065134283943`*^9}, {3.763406605420743*^9, 3.763406607884963*^9}, { 3.763406690366448*^9, 3.7634068350076895`*^9}, {3.7634068831975107`*^9, 3.7634069780146513`*^9}, {3.7634070116321535`*^9, 3.7634070168629827`*^9}, { 3.764951033834652*^9, 3.7649510941323404`*^9}, {3.7656353151631346`*^9, 3.7656353169196386`*^9}, {3.7656353546495667`*^9, 3.765635448408165*^9}, { 3.7656354794337606`*^9, 3.7656355828083425`*^9}, {3.765635777274357*^9, 3.765635778992534*^9}, {3.765741113162855*^9, 3.7657411859691677`*^9}, { 3.765741830547134*^9, 3.765741832821953*^9}, {3.765742189834293*^9, 3.7657421921543493`*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"a0c1de7d-ed47-46b7-ad23-295e10996f60"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FHolo", "[", "Rep", "]"}], "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"FHoloTerms", "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.7609787928407516`*^9, 3.7609788131937017`*^9}, { 3.760978899617264*^9, 3.760978907521762*^9}, {3.760980658745535*^9, 3.7609806685576324`*^9}, {3.7609809130063624`*^9, 3.7609809156836233`*^9}, {3.760981076518693*^9, 3.7609811639602423`*^9}, { 3.76098122328341*^9, 3.760981244613959*^9}, {3.760981280015232*^9, 3.7609812830250235`*^9}, 3.7609848401986504`*^9, {3.763406518885396*^9, 3.7634065352451077`*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ZHoloTerms", "[", "mu_", "]"}], "[", RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"I", " ", FractionBox["1", "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "-", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "ro", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]\[Gamma]stdownstdown", "[", RowBox[{"ro", ",", "mu"}], "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"Rfield", "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"cc", ",", "dd"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], RowBox[{ RowBox[{ RowBox[{"E\[Psi]", "[", "mu", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7657412004109936`*^9, 3.7657412914896297`*^9}, { 3.7657413225607777`*^9, 3.765741364233557*^9}, {3.765741464843565*^9, 3.765741465346979*^9}, 3.7657417615867023`*^9, {3.765741844714795*^9, 3.765741860698003*^9}, {3.7657421958135424`*^9, 3.7657422031057816`*^9}, 3.7689327833710194`*^9}, CellLabel-> "In[145]:=",ExpressionUUID->"04b0b0d6-24e5-41ac-bb0a-bab4d443db2a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ZHolo", "[", "Rep", "]"}], "[", "mu", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"ZHoloTerms", "[", "mu", "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7657413846755085`*^9, 3.7657414174003067`*^9}, 3.765741780483382*^9, 3.7657429335561075`*^9}, CellLabel-> "In[146]:=",ExpressionUUID->"c785166c-5852-4664-ba87-405c8b5a28a7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FHolo", "[", "Rep", "]"}], "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]stup", "[", "bt", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "-", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ZHolo", "[", "Rep", "]"}], "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ")"}]}], ")"}], "//", "Simplify"}], ")"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ3aC/MGvXw9eOClk6eSA691N7KYg2KThWAaLFmteu AtHx4ofANNva3ZtA9L6847tAdFHmjB37gfSHycZnQHQfc80NEM1268AdEG3x Zp7pASC9x/aoBYiedLjI5TmQdvD/7gGiN/TtTGtifeP4YF5/BYiWXMJ+S4Hr jWPRph/3QbTUM1EhYd43jrI1zWB6ycco6al8bxzfbZKWB9EVM0TVQPS6j3c0 QfSUg6z6IDrqAYs5iE7YvssNRKfVVnuBaNl9T8NBtDXf6igQzTqbIQFEv9AR ANPTeqOzQPSCyIpKEN3i/7keRBfLXO0A0Xrhk/tBdMDHnWB6q5fNVBCtzxkH pq2ebt0IomcZ7wLTAC06tAA= "], CellLabel-> "In[147]:=",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.763407026786592*^9, 3.7649512006866236`*^9, 3.7656356361088514`*^9, 3.7656358277855434`*^9, 3.765741821499036*^9, 3.7657419067016935`*^9, 3.765741948926866*^9, {3.7657419988539267`*^9, 3.7657420094357386`*^9}, { 3.765742136540782*^9, 3.76574216817651*^9}, 3.7657422075479403`*^9, { 3.765742273060145*^9, 3.7657422955923357`*^9}, 3.7657423497128005`*^9, 3.765742428586543*^9, {3.7657424922440696`*^9, 3.76574250528484*^9}, { 3.7657425379459133`*^9, 3.7657425459036703`*^9}, {3.7657425923492084`*^9, 3.765742604399541*^9}, {3.7657426438502803`*^9, 3.765742664317857*^9}, 3.7657429931796865`*^9, 3.768932789643274*^9}, CellLabel-> "Out[147]=",ExpressionUUID->"8b653725-1675-43a5-840d-55535380b973"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Diagonal Lagrangian\n\[ScriptCapitalL] = ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SubscriptBox["F", "\[Mu]\[Nu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}], "-", " ", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["\[Psi]", "\[Mu]a"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]\[Nu]\[Alpha]\[Beta]", " "}]], "(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["\[Psi]", "\[Beta]b"], " "}]}]}], TraditionalForm]], "None",ExpressionUUID->"736b0c3f-43ab-499f-8186-83d37a142143"], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["D", "c"], "\[ScriptCapitalL]"}], " ", "=", " ", RowBox[{"0", " ", "=", " ", RowBox[{ RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}], SubscriptBox["D", "c"], SubscriptBox["B", "\[Nu]"]}], "+", " ", RowBox[{ SubscriptBox["\[Psi]", "\[Mu]a"], SuperscriptBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]\[Nu]\[Alpha]\[Beta]", " "}]], "(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["D", "c"]}], SubscriptBox["\[Psi]", "\[Beta]b"], " "}]}]}]}], TraditionalForm]], "None",ExpressionUUID->"fd715fe4-5f5e-4851-b995-8e79382720f6"] }], "Section", 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.763407207007079*^9, 3.7634072276071334`*^9}},ExpressionUUID->"ec6cf0f3-1fee-4a7f-890b-\ 64696b3e60c1"], Cell[CellGroupData[{ Cell[TextData[{ "LF = ", Cell[BoxData[ RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}], SubscriptBox["D", "c"], SubscriptBox["B", "\[Nu]"]}]],ExpressionUUID-> "0effc9f6-19ba-46de-9415-1fa9f14b9071"] }], "Subsection", CellChangeTimes->{{3.5595055954277363`*^9, 3.5595056098865633`*^9}, { 3.559505677483429*^9, 3.5595056780444613`*^9}, {3.709576864329852*^9, 3.709576866123955*^9}, {3.711718147189271*^9, 3.7117181502204447`*^9}, { 3.7119040180289583`*^9, 3.711904018029958*^9}, {3.7120955314095764`*^9, 3.712095531410576*^9}},ExpressionUUID->"2f406a91-f67f-4dc0-8ff4-\ 41e22f89932e"], Cell[BoxData[ RowBox[{ RowBox[{"LF", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"2", RowBox[{"Expand", "[", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Fmnup", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Mu]", "]"}]}], "]"}], RowBox[{ RowBox[{"Da", "[", "ci", "]"}], "[", RowBox[{ RowBox[{"Bfield", "[", "\[Nu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", "Simplify"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5595056132177534`*^9, 3.559505673419197*^9}, { 3.559505704665984*^9, 3.55950573432168*^9}, {3.5595057783281975`*^9, 3.5595057785112076`*^9}, {3.6745682436022835`*^9, 3.6745682500627127`*^9}, {3.6745724487190304`*^9, 3.674572460343405*^9}, { 3.674572498718886*^9, 3.6745725208216143`*^9}, {3.674572586354157*^9, 3.67457259893069*^9}, 3.67457267503066*^9, {3.7095768779066286`*^9, 3.7095768792007027`*^9}, 3.711718145960201*^9, {3.7119040188060026`*^9, 3.7119040340218725`*^9}, 3.7120955322566247`*^9, {3.737167524898289*^9, 3.737167546415816*^9}, {3.763407276544433*^9, 3.7634072822462626`*^9}}, CellLabel-> "In[148]:=",ExpressionUUID->"d45b0857-b858-4dd5-9c3a-160116a39fdd"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"LPsi", "=", SubscriptBox["D", "c"]}], TraditionalForm]], "None",ExpressionUUID-> "3641336b-dee7-4862-b9d7-c0ac5e0a0ea9"], "( ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SubscriptBox["\[Psi]", "\[Mu]a"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]\[Nu]\[Alpha]\[Beta]", " "}]], "(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["\[Psi]", "\[Beta]b"]}]}], TraditionalForm]], "None", ExpressionUUID->"d8bce01f-2397-4e5d-a752-ac24f4b0522f"], ")= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Psi]", "\[Mu]a"], SuperscriptBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{"\[Mu]\[Nu]\[Alpha]\[Beta]", " "}]], "(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["D", "c"]}], SubscriptBox["\[Psi]", "\[Beta]b"]}], TraditionalForm]], "None", ExpressionUUID->"3bc33651-053e-4433-b9a1-561cbd8cb1a8"] }], "Subsection", CellChangeTimes->{{3.454263570578125*^9, 3.45426360634375*^9}, { 3.5369380026306195`*^9, 3.536938009748027*^9}, {3.536938059518873*^9, 3.5369380865124173`*^9}, {3.536938565136793*^9, 3.536938569085019*^9}, { 3.536938821762471*^9, 3.536938827260786*^9}, {3.538947583176823*^9, 3.538947587472069*^9}, {3.5390847379416666`*^9, 3.539084746349148*^9}, { 3.550845228538665*^9, 3.5508452503322887`*^9}},ExpressionUUID->"3181dfac-c3b6-4f5c-83ec-\ 3bfbcc39f8d8"], Cell[BoxData[ RowBox[{ RowBox[{"LPsi", " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "mu", "]"}], "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"\[Epsilon]up", "[", RowBox[{"mu", ",", "nu", ",", "alpha", ",", "beta"}], "]"}], " ", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdownup", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"ai", ",", "bi"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Da", "[", "ci", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "beta", "]"}], "[", "bi", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "alpha", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"alpha", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"beta", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.454254295546875*^9, 3.454254298609375*^9}, { 3.454254500203125*^9, 3.454254644109375*^9}, {3.4542548304375*^9, 3.45425483171875*^9}, 3.454286339109375*^9, {3.45429449125*^9, 3.454294491828125*^9}, 3.454294806671875*^9, {3.5369380990451345`*^9, 3.5369381415915675`*^9}, {3.536938207158318*^9, 3.5369383053899364`*^9}, { 3.536938574457326*^9, 3.536938595134509*^9}, {3.536938830401965*^9, 3.536938851898195*^9}, 3.536939025336115*^9, 3.538947591582304*^9, 3.538947913685727*^9, {3.539084751157423*^9, 3.5390847521494794`*^9}, { 3.550846084369994*^9, 3.550846084489064*^9}, {3.7371675751374593`*^9, 3.7371675944688473`*^9}}, CellLabel-> "In[149]:=",ExpressionUUID->"5283adc7-5279-49e8-878b-3e8e0ee8653b"] }, Closed]], Cell[CellGroupData[{ Cell["Lagrangian invariance:", "Subsection", 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}},ExpressionUUID->"4956037d-ec7b-4c43-b794-\ fb8bbba15f88"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLTotal", "=", RowBox[{"(", " ", RowBox[{"LF", " ", "+", " ", "LPsi"}], " ", ")"}]}]], "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.763407242525858*^9, 3.7634072538376317`*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"e64d5f49-b4fc-489c-97c8-f2c1112c4c04"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "0", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", TemplateBox[{"109"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "-", RowBox[{"2", " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "3", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", 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->{82., {3., 11.}}], 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->{67., {1., 11.}}], 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, 150, 33921530894133594686, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], 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, 150, 33921530894133594686, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{57., {1., 11.}}], 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, 150, 33921530894133594686, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], 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[33921530894133594686 === $SessionID, Out[150], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{3.737978111440839*^9, 3.746454583553463*^9, 3.7501008796282997`*^9, 3.750101884899475*^9, 3.753919433169079*^9, 3.753922257869646*^9, 3.763407254608573*^9, 3.7634073095884867`*^9, 3.7649512086753683`*^9, 3.765635836198202*^9, 3.7657430028063498`*^9, 3.7689327955401287`*^9}, CellLabel-> "Out[150]=",ExpressionUUID->"c40c3aca-c19f-491e-849a-850531e799e8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLFinal", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{"DLTotal", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "_", "]"}], "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Bfield", "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", "Simplify"}], "]"}]}]], "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.7634072984405003`*^9, 3.7634073047183847`*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"cec20b66-d416-487d-99c7-3f06f383ff5b"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.712096217580823*^9, 3.7120962839686203`*^9, 3.737167647928669*^9, 3.7371683335659924`*^9, 3.7371684169581985`*^9, 3.737208698850185*^9, { 3.7379770048705463`*^9, 3.737977024615676*^9}, {3.7379780702464824`*^9, 3.7379781127279124`*^9}, 3.746454583878028*^9, 3.7501008800188246`*^9, 3.750101885296579*^9, 3.753919433564335*^9, 3.753922258239952*^9, 3.763407260338603*^9, {3.763407306265465*^9, 3.7634073117870717`*^9}, 3.764951208750127*^9, 3.765635836261036*^9, 3.7657430028704376`*^9, 3.768932795609942*^9}, CellLabel-> "Out[151]=",ExpressionUUID->"67e2d9f0-9b3d-49ab-93dc-890fa3938f62"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1904, 997}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, ShowSelection->True, CellContext->Notebook, Magnification:>1.25 Inherited, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 9023, 122, 121, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"], Cell[CellGroupData[{ Cell[9627, 148, 289, 4, 83, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"], Cell[CellGroupData[{ Cell[9941, 156, 148, 2, 35, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"], Cell[10092, 160, 661, 9, 40, "Output",ExpressionUUID->"71586f77-8156-4dbd-9c96-e40763c5e820"] }, Open ]], Cell[10768, 172, 1177, 17, 35, "Input",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"], Cell[11948, 191, 247, 4, 35, "Input",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"], Cell[CellGroupData[{ Cell[12220, 199, 214, 3, 35, "Input",ExpressionUUID->"ee9a22d7-408f-43e3-b2dc-2ed014de5ea4"], Cell[12437, 204, 653, 9, 40, "Output",ExpressionUUID->"1e3a2353-fb90-4a91-9dc6-1576e355c227"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13139, 219, 2420, 57, 232, "Section",ExpressionUUID->"4c5b5cfe-adb3-4e93-a92e-56fcdf2f0a10"], Cell[CellGroupData[{ Cell[15584, 280, 248, 6, 10175, "Subsection",ExpressionUUID->"35c45c57-b4de-4657-80c8-61a394edd298"], Cell[CellGroupData[{ Cell[15857, 290, 1935, 39, 534640, "Input",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"], Cell[17795, 331, 1214, 28, 70, "Output",ExpressionUUID->"e164538d-ea5d-4d54-8706-d5542b79d5ad"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[19058, 365, 501, 9, 6835, "Subsection",ExpressionUUID->"8dc47d1e-d238-43ad-b614-8fd7a1d31b4b"], Cell[CellGroupData[{ Cell[19584, 378, 1906, 50, 738942, "Input",ExpressionUUID->"6a93b507-95b3-4cbe-bc70-fd85313c4c2a"], Cell[21493, 430, 1899, 49, 70, "Output",ExpressionUUID->"d92a7e04-01d9-4682-9f1e-2c0250b2d30b"] }, Open ]], Cell[CellGroupData[{ Cell[23429, 484, 470, 10, 312975, "Input",ExpressionUUID->"82da1ea3-b570-49a6-b2ed-338f70546068"], Cell[23902, 496, 749, 12, 70, "Output",ExpressionUUID->"07e04574-c641-40f5-843f-743a1389e9ab"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[24700, 514, 1546, 44, 13035, "Subsection",ExpressionUUID->"f7223d3e-780f-46b6-aa53-f17da6eef8b4"], Cell[CellGroupData[{ Cell[26271, 562, 985, 22, 312975, "Input",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"], Cell[27259, 586, 971, 21, 70, "Output",ExpressionUUID->"825421b2-bb3d-4aab-858c-9e21583780c4"] }, Open ]], Cell[CellGroupData[{ Cell[28267, 612, 2501, 75, 958009, "Input",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"], Cell[30771, 689, 3331, 93, 70, "Output",ExpressionUUID->"35e7da20-dfc8-4628-9f06-a1bc81442ab0"] }, Open ]], Cell[CellGroupData[{ Cell[34139, 787, 232, 4, 312975, "Input",ExpressionUUID->"79460b94-9729-4f3e-8728-f207ac43d16f"], Cell[34374, 793, 729, 15, 70, "Output",ExpressionUUID->"85a0e1ff-18f1-41ce-baf2-8d9f0c87bb50"] }, Open ]], Cell[CellGroupData[{ Cell[35140, 813, 254, 5, 312975, "Input",ExpressionUUID->"0d5cbf46-6c7e-4ca6-9313-90549d0dfd86"], Cell[35397, 820, 1331, 33, 70, "Output",ExpressionUUID->"48015991-3039-4702-a5bc-ed6175d28eea"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[36777, 859, 212, 2, 6835, "Subsection",ExpressionUUID->"934f9f0b-9b24-401e-9416-77c2303ebc8b"], Cell[CellGroupData[{ Cell[37014, 865, 3394, 84, 1597345, "Input",ExpressionUUID->"4780b206-2c28-446f-845b-d27afd791d82"], Cell[40411, 951, 3561, 87, 70, "Output",ExpressionUUID->"569cf7d7-1efd-4891-910e-d8890f0ab4a9"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[44033, 1045, 990, 16, 64, "Section",ExpressionUUID->"65102be5-a054-4c68-82da-5d568c24d914"], Cell[CellGroupData[{ Cell[45048, 1065, 359, 6, 67, "Subsection",ExpressionUUID->"778edc5b-aa18-4a83-ac0d-00833534239a"], Cell[45410, 1073, 1001, 20, 105604, "Input",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"], Cell[CellGroupData[{ Cell[46436, 1097, 524, 11, 61818, "Input",ExpressionUUID->"43687642-1c54-4669-84c2-e03dde360657"], Cell[46963, 1110, 1053, 22, 70, "Output",ExpressionUUID->"d8170103-916e-4c9c-b4e6-b26e577c6c16"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[48065, 1138, 1327, 33, 48, "Subsection",ExpressionUUID->"3f1ea2b0-6032-4fee-802d-0bd9d2cf462b"], Cell[49395, 1173, 1258, 31, 746060, "Input",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"], Cell[50656, 1206, 1310, 28, 746060, "Input",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"], Cell[CellGroupData[{ Cell[51991, 1238, 599, 15, 312975, "Input",ExpressionUUID->"f0d625ec-df6a-4218-9b75-c64339bbfd2f"], Cell[52593, 1255, 9005, 260, 70, "Output",ExpressionUUID->"d1067f2b-22f4-4298-8036-48552df8913a"] }, Open ]], Cell[CellGroupData[{ Cell[61635, 1520, 650, 16, 312975, "Input",ExpressionUUID->"f4d145fd-2861-4bcf-9e11-4e68e93cc926"], Cell[62288, 1538, 9013, 260, 70, "Output",ExpressionUUID->"ea6ea10e-7b50-4914-8ab7-fbcf5e56c35e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[71350, 1804, 989, 28, 48, "Subsection",ExpressionUUID->"2140af75-467c-41e8-aa83-39e810822266"], Cell[72342, 1834, 783, 19, 105604, "Input",ExpressionUUID->"73e729d4-5c04-4f71-aae0-79c9fb3c6d6a"], Cell[CellGroupData[{ Cell[73150, 1857, 602, 15, 105604, "Input",ExpressionUUID->"601236f2-cd5b-4ddb-a025-4bf91753bf5e"], Cell[73755, 1874, 3741, 96, 70, "Output",ExpressionUUID->"76070787-c474-4212-ab66-d5ededaaebe7"] }, Open ]], Cell[77511, 1973, 882, 21, 147367, "Input",ExpressionUUID->"ca6b9f79-9281-40c3-819f-f881a5d1bdf1"], Cell[CellGroupData[{ Cell[78418, 1998, 653, 16, 105604, "Input",ExpressionUUID->"a9582bf7-331f-40d6-9aec-3f50ffd3db02"], Cell[79074, 2016, 3849, 100, 70, "Output",ExpressionUUID->"6ec6c7a9-3523-49ab-a2da-c6d04579578b"] }, Open ]], Cell[CellGroupData[{ Cell[82960, 2121, 219, 3, 61818, "Input",ExpressionUUID->"4c152558-0185-4a2d-a3a5-a9e50619b39e"], Cell[83182, 2126, 1225, 30, 70, "Output",ExpressionUUID->"d23d8e3e-c59f-4ecb-9be2-b46d4876a63e"] }, Open ]], Cell[84422, 2159, 838, 20, 105604, "Input",ExpressionUUID->"07497807-6f72-4db7-9661-6daa685a3f21"], Cell[CellGroupData[{ Cell[85285, 2183, 701, 16, 105604, "Input",ExpressionUUID->"2e337941-dfa7-4824-b7db-fd5f2df44f60"], Cell[85989, 2201, 3841, 100, 70, "Output",ExpressionUUID->"2787d668-8783-41e1-846b-363133ff778e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[89879, 2307, 1200, 35, 48, "Subsection",ExpressionUUID->"728b2278-841c-4fbe-b5bc-de3b842f80e4"], Cell[91082, 2344, 1208, 32, 35, "Input",ExpressionUUID->"f37bf8ac-ba18-45ba-9196-661163625945"], Cell[CellGroupData[{ Cell[92315, 2380, 386, 10, 35, "Input",ExpressionUUID->"c2a32635-f7e4-43ba-828e-749137ebcc1c"], Cell[92704, 2392, 4708, 142, 68, "Output",ExpressionUUID->"9500a167-3b22-4f21-92b0-4459f7af4d92"] }, Open ]], Cell[CellGroupData[{ Cell[97449, 2539, 209, 3, 35, "Input",ExpressionUUID->"6eb743c0-b9c8-42cf-b89c-7773e6f12607"], Cell[97661, 2544, 650, 9, 40, "Output",ExpressionUUID->"623ff680-a21b-48c3-8d2d-c0771bce0a1a"] }, Open ]], Cell[CellGroupData[{ Cell[98348, 2558, 386, 10, 35, "Input",ExpressionUUID->"242b65ef-5ab0-47ec-8031-df0d8cc3d126"], Cell[98737, 2570, 4716, 142, 68, "Output",ExpressionUUID->"ea1f4bf3-8ed2-43ab-9391-185e6a7fc31c"] }, Open ]], Cell[CellGroupData[{ Cell[103490, 2717, 209, 3, 35, "Input",ExpressionUUID->"b7248c81-f161-42d6-9e0d-25d5a35cfcf1"], Cell[103702, 2722, 1262, 28, 40, "Output",ExpressionUUID->"60fb9431-85d4-4a4d-a738-07c52502d85d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[105013, 2756, 411, 12, 46, "Subsection",ExpressionUUID->"b12cb6ce-01ba-4cbb-8b7f-d7b47a261701"], Cell[105427, 2770, 825, 18, 61818, "Input",ExpressionUUID->"e965e95c-d8d9-433c-91c9-797199e0af0a"], Cell[CellGroupData[{ Cell[106277, 2792, 307, 6, 61818, "Input",ExpressionUUID->"d9253398-a297-4ddd-b2dd-88497388dea1"], Cell[106587, 2800, 4775, 144, 70, "Output",ExpressionUUID->"92c76dc7-0067-4a9d-8cd4-19b27c2f3391"] }, Open ]], Cell[CellGroupData[{ Cell[111399, 2949, 350, 6, 61818, "Input",ExpressionUUID->"a8cbc335-d270-43c3-ba1c-d403148cf8d4"], Cell[111752, 2957, 4734, 142, 70, "Output",ExpressionUUID->"0a9f6e46-05f7-4c4e-9f0c-e28e46427523"] }, Open ]], Cell[CellGroupData[{ Cell[116523, 3104, 415, 9, 61818, "Input",ExpressionUUID->"5425c2ce-b2eb-45b4-bc27-d0b8b55dea6b"], Cell[116941, 3115, 653, 9, 70, "Output",ExpressionUUID->"ce885c04-dd3f-4dd3-9591-738ba885545c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[117643, 3130, 1058, 28, 51, "Subsection",ExpressionUUID->"9cf9afc6-3e66-484e-9f56-95ed7dabeab8"], Cell[118704, 3160, 1604, 39, 60, "Input",ExpressionUUID->"d1ba5d47-0b3b-46a7-9335-fdec6b6c6023"], Cell[120311, 3201, 978, 22, 35, "Input",ExpressionUUID->"01420001-2916-4056-9860-438eee6a15df"], Cell[CellGroupData[{ Cell[121314, 3227, 313, 6, 35, "Input",ExpressionUUID->"34d14ce7-d7b4-40bd-9b5f-892a161f11b6"], Cell[121630, 3235, 2614, 74, 42, "Output",ExpressionUUID->"2925535a-8534-466f-befd-bcd807d997a7"] }, Open ]], Cell[CellGroupData[{ Cell[124281, 3314, 503, 12, 35, "Input",ExpressionUUID->"5557f5fb-12a1-4274-845f-b2ccfdd6f62d"], Cell[124787, 3328, 521, 7, 40, "Output",ExpressionUUID->"64811983-a74a-4d4f-84ad-25fc11002754"] }, Open ]], Cell[125323, 3338, 945, 23, 35, "Input",ExpressionUUID->"d5a1dc25-20d4-43c1-b67b-fed6a5d73e98"], Cell[CellGroupData[{ Cell[126293, 3365, 239, 5, 35, "Input",ExpressionUUID->"f1c7d215-f8c9-4061-8588-52d5e63686e2"], Cell[126535, 3372, 2605, 75, 42, "Output",ExpressionUUID->"08591a64-777a-4922-a2cb-a7c8fb821a10"] }, Open ]], Cell[CellGroupData[{ Cell[129177, 3452, 311, 6, 35, "Input",ExpressionUUID->"3352f593-681b-4047-93c9-a09be7355cc7"], Cell[129491, 3460, 2607, 75, 42, "Output",ExpressionUUID->"b1c0742a-d0be-4682-8629-0278b742ff28"] }, Open ]], Cell[132113, 3538, 1024, 23, 35, "Input",ExpressionUUID->"a3fa57e1-5586-48c7-b274-dca4acda8c6f"], Cell[CellGroupData[{ Cell[133162, 3565, 239, 5, 35, "Input",ExpressionUUID->"f002fc7d-091c-426c-8d46-7e3023f6a363"], Cell[133404, 3572, 2609, 75, 42, "Output",ExpressionUUID->"f369541b-786a-468e-865e-ed4aaba2265f"] }, Open ]], Cell[CellGroupData[{ Cell[136050, 3652, 335, 7, 35, "Input",ExpressionUUID->"6b2efdf9-3f39-4b32-9d61-f25edf6740f3"], Cell[136388, 3661, 2613, 74, 42, "Output",ExpressionUUID->"92e46bd9-3f5a-4253-847b-b4ba475babbf"] }, Open ]], Cell[CellGroupData[{ Cell[139038, 3740, 1187, 32, 35, "Input",ExpressionUUID->"7857e5fb-4628-4548-962a-4e7fc781cc24"], Cell[140228, 3774, 176, 2, 73, "Output",ExpressionUUID->"8a42905f-c8e5-4e81-be9c-b6b62bdea349"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[140453, 3782, 983, 24, 69, "Subsection",ExpressionUUID->"651fed8e-fc92-4a22-b81e-d86626caf48f"], Cell[CellGroupData[{ Cell[141461, 3810, 309, 6, 61818, "Input",ExpressionUUID->"95b5656f-b81f-44a0-84d1-4ae604fe9c04"], Cell[141773, 3818, 1661, 45, 70, "Output",ExpressionUUID->"2cc3b0c5-88eb-4ec4-b648-4cdc81d89e4e"] }, Open ]], Cell[CellGroupData[{ Cell[143471, 3868, 540, 10, 61818, "Input",ExpressionUUID->"ae51515d-73ed-4bab-af52-94ecd85d9d8c"], Cell[144014, 3880, 1878, 50, 70, "Output",ExpressionUUID->"44efa4b3-16c2-4827-a8ac-bbe8276cd7b2"] }, Open ]], Cell[CellGroupData[{ Cell[145929, 3935, 462, 10, 61818, "Input",ExpressionUUID->"bbc76b08-a3f9-4723-b43c-41b0dfea4b71"], Cell[146394, 3947, 971, 20, 70, "Output",ExpressionUUID->"8469632f-cc97-4c58-8afa-ceb5664fd5e7"] }, Open ]], Cell[CellGroupData[{ Cell[147402, 3972, 462, 10, 61818, "Input",ExpressionUUID->"421b2c51-dd1b-4c9c-a401-ef186cdf031a"], Cell[147867, 3984, 999, 21, 70, "Output",ExpressionUUID->"af9f0ac9-7b44-4227-a7d4-49a486d7d9cc"] }, Open ]], Cell[CellGroupData[{ Cell[148903, 4010, 512, 10, 61818, "Input",ExpressionUUID->"902e40b0-2a25-41e2-9959-9df291621979"], Cell[149418, 4022, 4709, 142, 70, "Output",ExpressionUUID->"8cdd89f4-9add-4a90-9707-d6266cf1e181"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[154176, 4170, 541, 15, 46, "Subsection",ExpressionUUID->"22deca30-a333-4a5c-b180-3f835bf0123f"], Cell[CellGroupData[{ Cell[154742, 4189, 823, 19, 534640, "Input",ExpressionUUID->"60529545-4509-47d7-8b5d-9f6af0daab0e"], Cell[155568, 4210, 1118, 24, 70, "Output",ExpressionUUID->"0f91e97e-0be0-45fe-9890-190304296088"] }, Open ]], Cell[CellGroupData[{ Cell[156723, 4239, 320, 7, 312975, "Input",ExpressionUUID->"4fbd283a-c545-4d1f-8fde-839497484fd6"], Cell[157046, 4248, 791, 13, 70, "Output",ExpressionUUID->"49c76373-7b68-49bc-9b6c-5adc64912e1d"] }, Open ]], Cell[CellGroupData[{ Cell[157874, 4266, 410, 10, 312975, "Input",ExpressionUUID->"570c7210-f396-4080-968b-64da95694b1e"], Cell[158287, 4278, 740, 11, 70, "Output",ExpressionUUID->"cc009e51-8e54-4264-b9f5-e7f7138d0dcf"] }, Open ]], Cell[CellGroupData[{ Cell[159064, 4294, 406, 10, 312975, "Input",ExpressionUUID->"c599b74e-9280-4292-b4c3-c3c4134033bb"], Cell[159473, 4306, 886, 16, 70, "Output",ExpressionUUID->"2d59036e-9c3d-4a61-b35b-dbc802ba2491"] }, Open ]], Cell[CellGroupData[{ Cell[160396, 4327, 209, 3, 312975, "Input",ExpressionUUID->"d6114e54-06f1-462c-a13d-c4b4ef8f8c86"], Cell[160608, 4332, 740, 11, 70, "Output",ExpressionUUID->"51925703-3c37-473e-8843-885f8de7e623"] }, Open ]], Cell[CellGroupData[{ Cell[161385, 4348, 384, 10, 312975, "Input",ExpressionUUID->"9452267e-8a1c-4e16-a032-fec0eab78727"], Cell[161772, 4360, 889, 16, 70, "Output",ExpressionUUID->"d58eb594-a62f-4b6b-ae3d-7653bf3e63e9"] }, Open ]], Cell[CellGroupData[{ Cell[162698, 4381, 209, 3, 312975, "Input",ExpressionUUID->"821386a9-023e-4422-8692-b7314cd4c445"], Cell[162910, 4386, 890, 16, 70, "Output",ExpressionUUID->"d93d9635-31fd-448b-9e9b-228d726913ea"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[163861, 4409, 699, 10, 64, "Section",ExpressionUUID->"06494e91-661e-4ca6-95eb-5ee8e28bd4bf"], Cell[CellGroupData[{ Cell[164585, 4423, 8300, 138, 106, "Subsubsection",ExpressionUUID->"19234059-780f-48ff-9a61-e83dce3908cf"], Cell[172888, 4563, 2951, 50, 534640, "Input",ExpressionUUID->"d0cc842c-b2a9-499e-ac69-f6dd51e7c72b"], Cell[175842, 4615, 1158, 30, 746060, "Input",ExpressionUUID->"fd93dbe1-254a-4bd7-9306-2f0edee698e9"], Cell[CellGroupData[{ Cell[177025, 4649, 1560, 40, 958009, "Input",ExpressionUUID->"2482da70-f2d2-42fb-a80f-89266cc7d55b"], Cell[178588, 4691, 1955, 53, 70, "Output",ExpressionUUID->"16024062-6209-498d-8b4a-2c3346e265bc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[180592, 4750, 19901, 330, 154, "Subsubsection",ExpressionUUID->"6ed7cae2-1661-4972-824b-166c0ca545e2"], Cell[200496, 5082, 4457, 84, 1467218, "Input",ExpressionUUID->"8c77b68a-fba8-414e-bd5f-63431c2b37ec"], Cell[204956, 5168, 1709, 41, 746060, "Input",ExpressionUUID->"3bb4a6b1-bd18-41fb-8759-35eb1166381f"], Cell[CellGroupData[{ Cell[206690, 5213, 1969, 47, 958009, "Input",ExpressionUUID->"b13788d9-69cf-4335-88df-45db70fade3a"], Cell[208662, 5262, 15712, 447, 70, "Output",ExpressionUUID->"2daf5bb0-a9ae-40bd-a356-25833c99b867"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[224423, 5715, 177, 3, 46, "Subsection",ExpressionUUID->"3a6745eb-727d-4c98-abc6-7a66a9408a1e"], Cell[224603, 5720, 902, 20, 5426, "Input",ExpressionUUID->"388e6d2d-8e02-437a-bb0b-6d47906c1924"], Cell[225508, 5742, 650, 15, 5426, "Input",ExpressionUUID->"7b9f680f-c308-4d9e-a626-7914b46d1755"], Cell[226161, 5759, 3320, 85, 20357, "Input",ExpressionUUID->"4e84670a-dbfb-480b-a537-9348d6e913f5"], Cell[229484, 5846, 484, 11, 5426, "Input",ExpressionUUID->"b529f91b-f8bc-4c3f-b914-a17756fa16c8"], Cell[229971, 5859, 641, 17, 5426, "Input",ExpressionUUID->"11c95ead-7071-4314-8f58-bb351bc32b52"], Cell[230615, 5878, 615, 15, 5426, "Input",ExpressionUUID->"3143ffef-6c23-4c86-a440-c6fa01697e43"], Cell[231233, 5895, 594, 16, 5426, "Input",ExpressionUUID->"702c3f9b-b9e1-45e1-992f-c5a8d032e022"], Cell[231830, 5913, 604, 15, 5426, "Input",ExpressionUUID->"63e720ea-e678-4804-ad18-044861245642"], Cell[232437, 5930, 1252, 26, 5426, "Input",ExpressionUUID->"80896f16-b70b-4a73-8b94-784829b0fea0"], Cell[233692, 5958, 582, 14, 5426, "Input",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"], Cell[CellGroupData[{ Cell[234299, 5976, 1264, 25, 5426, "Input",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"], Cell[235566, 6003, 29192, 791, 70, "Output",ExpressionUUID->"8d86c2db-6354-4d27-81ca-7fa46650d4be"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[264819, 6801, 429, 7, 83, "Section",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"], Cell[CellGroupData[{ Cell[265273, 6812, 1899, 51, 72, "Subsection",ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-80eab8b74b10"], Cell[267175, 6865, 1120, 26, 35, "Input",ExpressionUUID->"276a4bf5-23a0-462c-a40c-58e7dcde8183"], Cell[CellGroupData[{ Cell[268320, 6895, 2636, 58, 60, "Input",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"], Cell[270959, 6955, 514, 7, 40, "Output",ExpressionUUID->"7af98dfe-c450-46e0-8304-4257c9546ca6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[271522, 6968, 132081, 2200, 382, "Subsection",ExpressionUUID->"f8fc6527-d844-4faa-aa47-5379d276b51b"], Cell[403606, 9170, 2230, 40, 35, "Input",ExpressionUUID->"0eb2a91e-d390-4ca3-9d6d-e5f43f0f516b"], Cell[405839, 9212, 683, 17, 35, "Input",ExpressionUUID->"f053bcb8-3de3-4f70-8d9b-eb18b4c5e875"], Cell[406525, 9231, 2618, 66, 176, "Input",ExpressionUUID->"39236194-cfeb-4850-b50e-c1b41cb5d7a2"], Cell[409146, 9299, 2191, 57, 111, "Input",ExpressionUUID->"88d80328-a658-4b74-8d6f-2e58ff9b6b9b"], Cell[411340, 9358, 1298, 37, 35, "Input",ExpressionUUID->"ce117ec6-fb95-42ed-935a-5c7abef49a6c"], Cell[412641, 9397, 806, 22, 35, "Input",ExpressionUUID->"a574800f-6268-417e-82f7-b8ca0c74e050"], Cell[CellGroupData[{ Cell[413472, 9423, 2664, 71, 93, "Input",ExpressionUUID->"9db0d954-7cee-4863-be93-da5810aedca5"], Cell[416139, 9496, 430, 7, 40, "Output",ExpressionUUID->"82d44925-adf1-40c5-91d1-e3c44e9c9110"] }, Open ]], Cell[CellGroupData[{ Cell[416606, 9508, 105311, 1744, 335, "Subsubsection",ExpressionUUID->"23c39da5-24f7-43ed-a398-758ac34ac317"], Cell[521920, 11254, 16415, 447, 514, "Input",ExpressionUUID->"ed714a50-9cf6-47b2-8bb3-5f4112ebd46f"], Cell[CellGroupData[{ Cell[538360, 11705, 1930, 52, 93, "Input",ExpressionUUID->"2a18190d-f527-46e7-b68a-ff27dc6ce402"], Cell[540293, 11759, 9500, 246, 111, "Output",ExpressionUUID->"53d8786e-8088-43c7-b051-9fc018b38690"] }, Open ]], Cell[CellGroupData[{ Cell[549830, 12010, 1750, 48, 60, "Input",ExpressionUUID->"0d38e25b-9324-4b4d-bda7-5f162de132ce"], Cell[551583, 12060, 528, 11, 29, "Message",ExpressionUUID->"18bae4d6-a9f7-4955-9cd0-00bda1e3f796"], Cell[552114, 12073, 529, 11, 29, "Message",ExpressionUUID->"12e72f4e-0fbf-4255-9a56-52804283f3c5"], Cell[552646, 12086, 1052, 28, 57, "Output",ExpressionUUID->"3811c991-0418-43e0-8a45-1ffbff2853b0"] }, Open ]], Cell[CellGroupData[{ Cell[553735, 12119, 707, 19, 41, "Input",ExpressionUUID->"1fa53a42-260d-4474-a60b-a816667dd6ca"], Cell[554445, 12140, 9107, 234, 111, "Output",ExpressionUUID->"8a9f62f1-3b8f-4dc3-a0cf-8e439d5e0b57"] }, Open ]], Cell[CellGroupData[{ Cell[563589, 12379, 1115, 29, 35, "Input",ExpressionUUID->"0eca594c-afde-4f99-86bf-78ea4feb9c5f"], Cell[564707, 12410, 501, 11, 29, "Message",ExpressionUUID->"72c7d46e-980e-4d4a-aef6-e65457b154d8"], Cell[565211, 12423, 499, 11, 29, "Message",ExpressionUUID->"ea8a9cc0-91b1-40b2-aa81-af09e037fb53"], Cell[565713, 12436, 559, 13, 40, "Output",ExpressionUUID->"d0b86855-f907-4dc6-858f-23165eab9cce"] }, Open ]], Cell[CellGroupData[{ Cell[566309, 12454, 761, 20, 41, "Input",ExpressionUUID->"873f96ba-1970-4349-a9f6-fa275bee7fff"], Cell[567073, 12476, 17944, 431, 229, "Output",ExpressionUUID->"09ac60ee-1c32-4ecf-bd44-466deb047827"] }, Open ]], Cell[CellGroupData[{ Cell[585054, 12912, 2136, 61, 60, "Input",ExpressionUUID->"a0f98227-aa81-4194-92a5-0dfe212d7ea6"], Cell[587193, 12975, 527, 12, 29, "Message",ExpressionUUID->"06f512ad-91d8-4e7c-b51f-63f8181766af"], Cell[587723, 12989, 794, 19, 40, "Output",ExpressionUUID->"699d51ca-9591-4a63-a5b6-19bba4311f93"] }, Open ]], Cell[CellGroupData[{ Cell[588554, 13013, 1007, 25, 41, "Input",ExpressionUUID->"071faac2-a5b9-4f45-96e3-10aa962168a5"], Cell[589564, 13040, 7525, 184, 161, "Output",ExpressionUUID->"f31e7a89-eb18-4efd-bc1e-8ce0a9ff8b14"] }, Open ]], Cell[CellGroupData[{ Cell[597126, 13229, 1267, 31, 35, "Input",ExpressionUUID->"83405575-9a92-4e48-9e37-9e4e809136ac"], Cell[598396, 13262, 1917, 53, 93, "Output",ExpressionUUID->"75d7f571-845f-4fe9-84d8-1dfc70ac8462"] }, Open ]], Cell[CellGroupData[{ Cell[600350, 13320, 709, 18, 35, "Input",ExpressionUUID->"e40c32f2-26c4-40bc-8876-d48fce23f6ee"], Cell[601062, 13340, 1263, 29, 40, "Output",ExpressionUUID->"98486df5-e704-497b-b53e-fafce15aea52"] }, Open ]], Cell[CellGroupData[{ Cell[602362, 13374, 708, 17, 35, "Input",ExpressionUUID->"a7a66904-c837-4f23-bf85-e279a7b3bba3"], Cell[603073, 13393, 564, 11, 40, "Output",ExpressionUUID->"965548ea-1010-4422-9b93-8a84e6d5a8c1"] }, Open ]], Cell[CellGroupData[{ Cell[603674, 13409, 2089, 55, 93, "Input",ExpressionUUID->"5cb63fa0-d2d3-4a8d-9091-aa87d86220c9"], Cell[605766, 13466, 430, 7, 40, "Output",ExpressionUUID->"a36b272a-3d86-4659-8e7e-a893b0d5b328"] }, Open ]], Cell[CellGroupData[{ Cell[606233, 13478, 2746, 71, 118, "Input",ExpressionUUID->"9d6be1b3-bc94-44e9-a330-47a74119b902"], Cell[608982, 13551, 456, 7, 40, "Output",ExpressionUUID->"023a10ff-1e9e-4a7a-b6c8-c19d9d048758"] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[609511, 13566, 369, 10, 83, "Section",ExpressionUUID->"506208ec-72d0-4aa8-9d9f-54191bcc9604"], Cell[CellGroupData[{ Cell[609905, 13580, 53194, 884, 123, "Subsection",ExpressionUUID->"d43faaaf-0673-4970-8df8-4e4a3824b78a"], Cell[663102, 14466, 819, 21, 35, "Input",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"], Cell[663924, 14489, 914, 25, 35, "Input",ExpressionUUID->"77406683-38ba-46e4-aa8c-df27a8e3453d"], Cell[CellGroupData[{ Cell[664863, 14518, 1729, 42, 60, "Input",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"], Cell[666595, 14562, 304, 5, 40, "Output",ExpressionUUID->"2b4580e0-e651-4aa7-8a0e-2f6b6c568aac"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[666948, 14573, 77541, 1286, 269, "Subsection",ExpressionUUID->"68c7e39c-fd44-4942-9218-54c779e0448b"], Cell[744492, 15861, 2467, 60, 94, "Input",ExpressionUUID->"a0c1de7d-ed47-46b7-ad23-295e10996f60"], Cell[746962, 15923, 1522, 36, 35, "Input",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"], Cell[748487, 15961, 2964, 78, 102, "Input",ExpressionUUID->"04b0b0d6-24e5-41ac-bb0a-bab4d443db2a"], Cell[751454, 16041, 837, 22, 35, "Input",ExpressionUUID->"c785166c-5852-4664-ba87-405c8b5a28a7"], Cell[CellGroupData[{ Cell[752316, 16067, 3419, 88, 84, "Input",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"], Cell[755738, 16157, 783, 12, 40, "Output",ExpressionUUID->"8b653725-1675-43a5-840d-55535380b973"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[756582, 16176, 4670, 92, 187, "Section",ExpressionUUID->"ec6cf0f3-1fee-4a7f-890b-64696b3e60c1"], Cell[CellGroupData[{ Cell[761277, 16272, 674, 16, 69, "Subsection",ExpressionUUID->"2f406a91-f67f-4dc0-8ff4-41e22f89932e"], Cell[761954, 16290, 2244, 51, 3256, "Input",ExpressionUUID->"d45b0857-b858-4dd5-9c3a-160116a39fdd"] }, Closed]], Cell[CellGroupData[{ Cell[764235, 16346, 1794, 49, 53, "Subsection",ExpressionUUID->"3181dfac-c3b6-4f5c-83ec-3bfbcc39f8d8"], Cell[766032, 16397, 2321, 52, 767382, "Input",ExpressionUUID->"5283adc7-5279-49e8-878b-3e8e0ee8653b"] }, Closed]], Cell[CellGroupData[{ Cell[768390, 16454, 481, 7, 46, "Subsection",ExpressionUUID->"4956037d-ec7b-4c43-b794-fb8bbba15f88"], Cell[CellGroupData[{ Cell[768896, 16465, 1156, 19, 35, "Input",ExpressionUUID->"e64d5f49-b4fc-489c-97c8-f2c1112c4c04"], Cell[770055, 16486, 16877, 421, 215, "Output",ExpressionUUID->"c40c3aca-c19f-491e-849a-850531e799e8"] }, Open ]], Cell[CellGroupData[{ Cell[786969, 16912, 1895, 37, 41, "Input",ExpressionUUID->"cec20b66-d416-487d-99c7-3f06f383ff5b"], Cell[788867, 16951, 735, 13, 73, "Output",ExpressionUUID->"67e2d9f0-9b3d-49ab-93dc-890fa3938f62"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)