(* 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[    487131,      10578]
NotebookOptionsPosition[    469880,      10265]
NotebookOutlinePosition[    470437,      10286]
CellTagsIndexPosition[    470394,      10283]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["4D N = 1 CS 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.760988826141102*^9, 
   3.760988830244147*^9}, {3.766163626840166*^9, 3.7661636283921003`*^9}, 
   3.768934394401211*^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.742448172904296*^9, 3.7607231979548664`*^9, 3.760728398749564*^9, 
   3.760730112138156*^9, 3.7607304086435833`*^9, 3.7607310801710587`*^9, 
   3.760731225277771*^9, 3.7607312700160017`*^9, 3.760988858313431*^9, {
   3.7609902941200914`*^9, 3.760990323391698*^9}, 3.7656319912367105`*^9, 
   3.765736128554034*^9, 3.7657380314630203`*^9, 3.7661624332288923`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"dc259157-6cbc-4755-ab04-bdeccfde73d5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "CSOnShell"}], ";"}]], "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.7609888329179707`*^9, 
   3.7609888354521575`*^9}, {3.766162419032378*^9, 3.7661624197424994`*^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.7607312377790804`*^9, 3.7607312701410074`*^9, 3.760988858414159*^9, {
   3.760990294328968*^9, 3.760990323585333*^9}, 3.7656319914264936`*^9, 
   3.765736128748024*^9, 3.7657380315677176`*^9, 3.7661624334144287`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"87611f7d-0771-48a0-a71b-045a1f5e51d7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "fields: Afield, Bfield,Ffield, Gfield, \[Psi][a], all free indices \
covariant\nAdinkraReduce\n",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalPhi]", "i"], TraditionalForm]],ExpressionUUID->
  "bf0fd566-4420-444f-b658-784d9e35b9b4"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["A", "."], ",", 
     OverscriptBox["B", "."]}], "}"}], TraditionalForm]],ExpressionUUID->
  "bc33da55-e071-4c1e-a692-ca8eec16a419"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalPsi]", 
     OverscriptBox["i", "^"]], "=", " ", 
    RowBox[{"{", 
     SubscriptBox[
      OverscriptBox["\[Psi]", "."], "a"], "}"}]}], TraditionalForm]],
  ExpressionUUID->"99b7c196-9bd6-4926-9940-052793f4d499"],
 " "
}], "Section",
 CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, {
   3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 
   3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, {
   3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 
   3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, {
   3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 
   3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 
   3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, {
   3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 
   3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, {
   3.7113948776934385`*^9, 3.7113949804623165`*^9}, {3.7113952539569597`*^9, 
   3.711395261886413*^9}, {3.7114193010506587`*^9, 3.7114193015116854`*^9}, {
   3.73858035657756*^9, 3.7385804281216516`*^9}, {3.738580808452406*^9, 
   3.7385808207731104`*^9}, {3.742218923572253*^9, 3.742218931301695*^9}, {
   3.7422207869805517`*^9, 
   3.742220813310706*^9}},ExpressionUUID->"146d1a2f-83d1-445b-8d6a-\
794175dd6981"],

Cell[CellGroupData[{

Cell["\<\
AdinkraReduce Encodes reducing the dependence on the fields from 4D \
space-time to only time, doesn\[CloseCurlyQuote]t matter if this stays off \
shell\
\>", "Subsection",
 CellChangeTimes->{{3.711387756373122*^9, 3.71138778325966*^9}, {
  3.742218940241708*^9, 
  3.7422189482464542`*^9}},ExpressionUUID->"e22547c8-db0f-4d90-a835-\
61cfb31f02ee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReduce", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Afield", "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"Afield", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"Bfield", "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"Bfield", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"Ffield", "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"Ffield", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"Gfield", "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"Gfield", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "a_", "]"}], "\[Rule]", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "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},
 CellLabel->"In[5]:=",ExpressionUUID->"a2acd604-e595-4672-95ca-8e1098186e62"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Afield", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"Afield", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"Bfield", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"Bfield", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"Ffield", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"Ffield", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"Gfield", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"Gfield", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "a_", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.742448035002144*^9, 3.760723235236801*^9, 3.7607283989538403`*^9, 
   3.7607301122730603`*^9, 3.7607304088872285`*^9, 3.760988863390486*^9, {
   3.760990294360239*^9, 3.760990323600995*^9}, 3.7656319914386797`*^9, 
   3.765736128771962*^9, 3.7657380315876637`*^9, 3.7661624334323797`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"51b8f239-bedb-45f9-be9c-b22ff34f638c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
fields := prints out the adinkra reduced fields in subscript form, doesn\
\[CloseCurlyQuote]t matter if this stays off shell\
\>", "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.742218964026531*^9, 
   3.742218968400359*^9}},ExpressionUUID->"3038ffb8-51e4-4dcc-9722-\
49731a118162"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fields", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Psi]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", 
     SubscriptBox["\[Psi]", "a"]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "a_", "]"}], "'"}], "[", "t", "]"}], "\[Rule]", 
     
     SubscriptBox[
      OverscriptBox["\[Psi]", "."], "a"]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "a_", "]"}], "''"}], "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      SubscriptBox["\[Psi]", "a"], "''"}]}], ",", "\[IndentingNewLine]", " ", 
    
    RowBox[{
     RowBox[{"Afield", "[", "t", "]"}], "\[Rule]", "A"}], ",", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"Afield", "'"}], "[", "t", "]"}], "\[Rule]", 
     OverscriptBox["A", "."]}], ",", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"Afield", "''"}], "[", "t", "]"}], "\[Rule]", 
     RowBox[{"A", "''"}]}], ",", 
    RowBox[{
     RowBox[{"Bfield", "[", "t", "]"}], "\[Rule]", "B"}], ",", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"Bfield", "'"}], "[", "t", "]"}], "\[Rule]", 
     OverscriptBox["B", "."]}], ",", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"Bfield", "''"}], "[", "t", "]"}], "\[Rule]", 
     RowBox[{"B", "''"}]}], ",", " ", 
    RowBox[{
     RowBox[{"Ffield", "[", "t", "]"}], "\[Rule]", "F"}], ",", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"Ffield", "'"}], "[", "t", "]"}], "\[Rule]", 
     OverscriptBox["F", "."]}], ",", " ", 
    RowBox[{
     RowBox[{"Gfield", "[", "t", "]"}], "\[Rule]", "G"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Gfield", "'"}], "[", "t", "]"}], "\[Rule]", 
     OverscriptBox["G", "."]}]}], "}"}]}]], "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.7385805119264455`*^9, 
   3.7385807147540464`*^9}, {3.738580851828887*^9, 3.7385808592523117`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"01f62e55-f78e-4093-a3ec-721bea77b88c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", 
    SubscriptBox["\[Psi]", "a"]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "a_", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SubscriptBox[
     OverscriptBox["\[Psi]", "."], "a"]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "a_", "]"}], "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SuperscriptBox[
     SubscriptBox["\[Psi]", "a"], "\[Prime]\[Prime]",
     MultilineFunction->None]}], ",", 
   RowBox[{
    RowBox[{"Afield", "[", "t", "]"}], "\[Rule]", "A"}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Afield", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    OverscriptBox["A", "."]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Afield", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SuperscriptBox["A", "\[Prime]\[Prime]",
     MultilineFunction->None]}], ",", 
   RowBox[{
    RowBox[{"Bfield", "[", "t", "]"}], "\[Rule]", "B"}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Bfield", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    OverscriptBox["B", "."]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Bfield", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SuperscriptBox["B", "\[Prime]\[Prime]",
     MultilineFunction->None]}], ",", 
   RowBox[{
    RowBox[{"Ffield", "[", "t", "]"}], "\[Rule]", "F"}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Ffield", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    OverscriptBox["F", "."]}], ",", 
   RowBox[{
    RowBox[{"Gfield", "[", "t", "]"}], "\[Rule]", "G"}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gfield", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    OverscriptBox["G", "."]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7424480351034727`*^9, 3.760723235326459*^9, 3.7607283989898067`*^9, 
   3.7607301122938204`*^9, 3.7607304089128284`*^9, 3.7609888635550737`*^9, {
   3.760990294375866*^9, 3.76099032361658*^9}, 3.7656319915076127`*^9, 
   3.7657361287978935`*^9, 3.765738031615589*^9, 3.766162433498204*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"2807e90c-235d-4387-81e3-1fa65d830d0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Psi]", "[", "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}, {
  3.7385807336881294`*^9, 3.7385807339801464`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"e16fdaff-2670-4030-a67c-2ef21706de6c"],

Cell[BoxData[
 SubscriptBox[
  OverscriptBox["\[Psi]", "."], "2"]], "Output",
 CellChangeTimes->{
  3.742448035174911*^9, 3.7607232353360777`*^9, 3.760728399019678*^9, 
   3.760730112320282*^9, 3.7607304089336042`*^9, 3.7609888635670376`*^9, {
   3.760990294391487*^9, 3.7609903236322007`*^9}, 3.765631991508815*^9, 
   3.7657361288198347`*^9, 3.7657380316345367`*^9, 3.766162433515158*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"469d4e13-1900-4e95-9602-875564d2bdd5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", 
   "AdinkraReduce"}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.559435536027218*^9, 3.559435556132368*^9}, {
  3.738580736996319*^9, 3.738580738560408*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"b897c6ac-70ed-4913-a3ab-54362841bfe9"],

Cell[BoxData[
 SubscriptBox["\[Psi]", "1"]], "Output",
 CellChangeTimes->{
  3.7424480352424726`*^9, 3.7607232353562536`*^9, 3.7607283990399075`*^9, 
   3.7607301123340034`*^9, 3.7607304089739256`*^9, 3.7609888635829697`*^9, {
   3.7609902944071198`*^9, 3.760990323661197*^9}, 3.765631991524439*^9, 
   3.765736128834792*^9, 3.7657380316465197`*^9, 3.766162433534108*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"edaa88cf-8b91-46b3-a81b-f79214f6967e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}], "/.",
    "AdinkraReduce"}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.5594355628717537`*^9, 3.559435569432129*^9}, {
  3.7385807424756317`*^9, 3.7385807432156744`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"696ee592-634b-4e76-b69f-687ce2981c89"],

Cell[BoxData[
 SubscriptBox[
  OverscriptBox["\[Psi]", "."], "1"]], "Output",
 CellChangeTimes->{
  3.742448035308879*^9, 3.760723235373046*^9, 3.760728399059932*^9, 
   3.7607301123483067`*^9, 3.760730408990674*^9, 3.760988863598935*^9, {
   3.7609902944227285`*^9, 3.760990323677349*^9}, 3.7656319915567245`*^9, 
   3.765736128849262*^9, 3.7657380316598864`*^9, 3.7661624335510626`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"be1fa3df-2d50-4a21-8adb-c61c70e10220"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Phi", "[", "t", "]"}], "[", 
     RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
    SubscriptBox["\[CapitalPhi]", "i"]}], TraditionalForm]],ExpressionUUID->
  "a468b1c3-0b95-4891-8739-7004a89ec083"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["A", "."], ",", 
     OverscriptBox["B", "."]}], "}"}], TraditionalForm]],ExpressionUUID->
  "00522a64-39c7-443a-bbdd-c1271c9d5fc1"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Psi", "[", "t", "]"}], "[", 
     RowBox[{"[", "ihat", "]"}], "]"}], " ", "=", " ", 
    RowBox[{
     SubscriptBox["\[CapitalPsi]", 
      OverscriptBox["i", "^"]], "=", " ", 
     RowBox[{"{", 
      SubscriptBox[
       OverscriptBox["\[Psi]", "."], "a"], "}"}]}]}], TraditionalForm]],
  ExpressionUUID->"0c4297d7-e487-4d8d-8d39-0c504af5f313"],
 " "
}], "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.74221887695995*^9, 3.742218891380192*^9}, {3.742220739687801*^9, 
  3.742220751091765*^9}},ExpressionUUID->"af709982-3f1d-4135-b5b3-\
4b91d83f3b07"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Phi", "[", "t", "]"}], " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Afield", "'"}], "[", "t", "]"}], ",", 
    RowBox[{
     RowBox[{"Bfield", "'"}], "[", "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.7422188968996067`*^9, 3.742218904870962*^9}, {3.7422207552605867`*^9, 
  3.742220758418613*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"3588206d-f428-4851-8eea-c2abf6aa20fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["Afield", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["Bfield", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.742448035383399*^9, 3.7607232353862877`*^9, 3.760728399090028*^9, 
   3.7607301123675575`*^9, 3.76073040901578*^9, 3.7609888636158915`*^9, {
   3.760990294438345*^9, 3.7609903236970615`*^9}, 3.765631991573393*^9, 
   3.7657361288662167`*^9, 3.7657380316728497`*^9, 3.766162433568017*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"808f7e92-c9cb-4251-b316-f5a37af933ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Psi", "[", "t", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "3", "]"}], "'"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "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.742218907457172*^9, 3.742218914479376*^9}, {3.742220762109262*^9, 
  3.7422207699358187`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"d6cdac5e-540a-478c-9259-fa3dc1bcfb55"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "1", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "2", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "3", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "4", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.742448035450637*^9, 3.7607232354062643`*^9, 3.7607283991189966`*^9, 
   3.7607301123873434`*^9, 3.760730409033388*^9, 3.7609888636328754`*^9, {
   3.760990294453931*^9, 3.7609903236970615`*^9}, 3.765631991587243*^9, 
   3.765736128885166*^9, 3.7657380316977835`*^9, 3.7661624335829773`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"403397b5-073b-4fa5-8ef3-a03c44427bc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Phi", "[", "t", "]"}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.711395275486191*^9, 3.7113952811105127`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"713c6d6d-9c40-465e-9339-7780d1a941c1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   OverscriptBox["A", "."], ",", 
   OverscriptBox["B", "."]}], "}"}]], "Output",
 CellChangeTimes->{
  3.742448035514915*^9, 3.76072323542375*^9, 3.7607283991359377`*^9, 
   3.7607301124040365`*^9, 3.7607304090636873`*^9, 3.760988863649764*^9, {
   3.760990294469592*^9, 3.7609903237283506`*^9}, 3.7656319916064796`*^9, 
   3.7657361289021225`*^9, 3.765738031716732*^9, 3.7661624335989428`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"3ff0512e-799d-45b2-be32-da596a5a077c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"I", " ", 
   RowBox[{"Psi", "[", "t", "]"}]}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.711395298633515*^9, 3.711395308561083*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"9c0a8b1d-ed62-4a0c-9216-81da85589bad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox[
    OverscriptBox["\[Psi]", "."], "1"], ",", 
   SubscriptBox[
    OverscriptBox["\[Psi]", "."], "2"], ",", 
   SubscriptBox[
    OverscriptBox["\[Psi]", "."], "3"], ",", 
   SubscriptBox[
    OverscriptBox["\[Psi]", "."], "4"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.742448035583084*^9, 3.760723235435892*^9, 3.7607283991498785`*^9, 
   3.7607301124179697`*^9, 3.7607304090937204`*^9, 3.760988863665762*^9, {
   3.76099029449601*^9, 3.76099032374397*^9}, 3.765631991623148*^9, 
   3.765736128916084*^9, 3.7657380317336874`*^9, 3.7661624336178846`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"2ea9f398-60f5-4265-b2c7-a0bd4d0543f9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FieldList", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Afield", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"Bfield", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "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.7385809380228167`*^9, 3.7385809723387794`*^9}, {3.74221898187416*^9, 
  3.74221898516984*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"0aff9f8a-5ed9-4492-8bfb-588f2bbb08c6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Afield", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"Bfield", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.742448035650441*^9, 3.7607232354562607`*^9, 3.760728399169873*^9, 
   3.760730112437751*^9, 3.760730409123726*^9, 3.760988863685737*^9, {
   3.760990294513054*^9, 3.7609903237596045`*^9}, 3.765631991623148*^9, 
   3.7657361289310455`*^9, 3.765738031745655*^9, 3.7661624336298523`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"508576bd-0e5b-41d5-b07c-4b88df64e004"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Symmetries, Constraints, and raised indices such as Vfieldup, 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}},ExpressionUUID->"c50236d8-bfd6-4c67-bc1c-\
bc4c6ff2c66c"],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]up", "[", "ai", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{"RaiseFermionIndex", "[", 
     RowBox[{
      RowBox[{"\[Psi]", "[", "ai", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711389960589196*^9, 3.7113899896898603`*^9}, {
  3.7115833052759237`*^9, 3.711583306822012*^9}, {3.737159669684965*^9, 
  3.7371596726853886`*^9}, {3.7385811371562066`*^9, 3.738581145368676*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"9c34f06b-45d1-4f34-b305-1c0216116b1d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"f22ebbe4-4c6d-4f87-9bf7-c5195f92fbd2"],

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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.742448040518968*^9, 3.760723250866362*^9, 3.7607283992055383`*^9, 
   3.7607301124735813`*^9, 3.760730409155876*^9, {3.7609902945439787`*^9, 
   3.760990323775176*^9}, 3.7656319916978846`*^9, 3.765736128951992*^9, 
   3.765738031771579*^9, 3.7661624336567802`*^9},
 CellLabel->
  "Out[16]//MatrixForm=",ExpressionUUID->"e9f3dcdd-51d8-462b-8464-\
d612977ebd09"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Psi]up", "[", "ai", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7113900099700203`*^9, 3.711390019309555*^9}, 
   3.711583315863529*^9, {3.738581159733498*^9, 3.7385811605575447`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"3d7fbdc2-a508-449b-8e58-f443121e4a5c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]], "Output",\

 CellChangeTimes->{
  3.742448040586276*^9, 3.7607232508866377`*^9, 3.7607283992197533`*^9, 
   3.760730112498086*^9, 3.760730409177817*^9, {3.7609902945632997`*^9, 
   3.7609903237907925`*^9}, 3.7656319917135444`*^9, 3.765736128967945*^9, 
   3.7657380318005676`*^9, 3.7661624336717405`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"d33290c4-d7c3-4eab-9fd8-2e9f5e951c36"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"UD", "[", 
    RowBox[{
     RowBox[{"Afield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", 
   RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.737160138359976*^9, 3.7371601545178967`*^9}, {
  3.738581109224609*^9, 3.7385811123787894`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"de55789e-dfab-41dc-8216-d41c25d20936"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.742448040652663*^9, 3.7607232509065666`*^9, 3.760728399239721*^9, 
   3.760730112518426*^9, 3.760730409196807*^9, {3.7609902945802565`*^9, 
   3.760990323806449*^9}, 3.7656319917291727`*^9, 3.7657361289799128`*^9, 
   3.765738031816525*^9, 3.7661624336966734`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"3737b64d-09dd-4267-9893-a77c3b269620"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"Afield", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.737160176567008*^9, 3.737160189584123*^9}, {
  3.7385811204712524`*^9, 3.738581123297414*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"09da4b4e-39ad-4cea-a2f2-24b02951a8e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"3", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.742448040729692*^9, 3.7607232509235573`*^9, 3.760728399263816*^9, 
   3.7607301131609726`*^9, 3.7607304092157526`*^9, {3.7609902945873656`*^9, 
   3.760990323822075*^9}, 3.765631991756525*^9, 3.7657361289923677`*^9, 
   3.7657380318314853`*^9, 3.766162433713629*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"396f97a4-565a-46a9-8bf6-9b5ee0d99d37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UD", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Lap", "[", 
      RowBox[{"Afield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
     RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", 
   RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7371601998043656`*^9, 3.7371602524808755`*^9}, {
  3.738581193616436*^9, 3.7385811970866346`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"c6c537c2-3c72-4632-93f5-44023bd6cf0b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox["Afield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["Afield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.742448040801074*^9, 3.760723250941378*^9, 3.760728399279052*^9, 
   3.76073011325821*^9, 3.760730409234707*^9, {3.7609902946030493`*^9, 
   3.760990323822075*^9}, 3.7656319917731915`*^9, 3.765736129003849*^9, 
   3.7657380318484373`*^9, 3.7661624337315807`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"2050c022-1117-4fd9-8f63-bd89b0a47014"]
}, Open  ]],

Cell[CellGroupData[{

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

 CellChangeTimes->{{3.557187324200806*^9, 3.557187338928649*^9}, {
   3.5571873944078217`*^9, 3.557187453704213*^9}, 3.5571875139576597`*^9, {
   3.709575091516453*^9, 3.7095750917194643`*^9}, {3.7371602900941324`*^9, 
   3.737160292891345*^9}, {3.7385812011868687`*^9, 3.738581204834078*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"859e702d-e814-42b7-970f-25f2b2808fd7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Bfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "4"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["Bfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "2", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["Bfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "4", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["Bfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["Bfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2", ",", "2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["Bfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "4", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["Bfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["Bfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["Bfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["Bfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.74244804086862*^9, 3.7607232509565663`*^9, 3.760728399299556*^9, 
   3.7607301132854185`*^9, 3.760730409253471*^9, {3.7609902946186485`*^9, 
   3.760990323837716*^9}, 3.765631991788854*^9, 3.7657361290168147`*^9, 
   3.7657380318663936`*^9, 3.7661624337515264`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"e4cadd42-6916-4217-9db8-a2a1073c896b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{
   RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5571886193348837`*^9, 3.5571886544198904`*^9}, {
  3.7036111242894974`*^9, 3.703611128972766*^9}, {3.7036111919493675`*^9, 
  3.703611211587491*^9}, {3.709575109461479*^9, 3.709575110109516*^9}, {
  3.7371603078616962`*^9, 3.737160308893036*^9}, {3.7385812731839867`*^9, 
  3.738581273517006*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"6ee37e30-91c8-44b0-ad0c-e3ced6529e06"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.742448040935194*^9, 3.7607232509727945`*^9, 3.76072839931962*^9, 
   3.7607301133140736`*^9, 3.7607304092733583`*^9, {3.760990294634266*^9, 
   3.7609903238533525`*^9}, 3.7656319918029366`*^9, 3.7657361290277853`*^9, 
   3.7657380318773646`*^9, 3.766162433762498*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"b733bc29-ede5-4007-894b-bb2e67f32951"]
}, Open  ]]
}, Closed]]
}, Open  ]],

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->"5a37422c-9958-4134-8fc9-\
4e234f8c2e51"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MG+cdx2/bm724F+MlL5CYLEu8QEIIWRooquAFUSIkiFohlKRCJkoG
vGidtCteqkCmBDJtrpSA1Jl1sbZZkeJ1sarUneK2eBt0wpFwW09gRW4JFU5w
EhgQ5CAIds6z7wy+87+7M3e27+77kRq1DZzvHt/zfZ7n+/x+v+fnZ0yv//LH
BEG8+9PEH6/3mdveeafv4hs/S/xH99vvDva/fe7s8bd/da7/3Du/OPOTxP88
m/hn9EcEkfz3OAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgGREgrdNBpIgj04uvKTKfTNAkVDR
aKzc9yAj1M7mk7BkrEWi5X6gioTaW7x1soqg6XeG0UhAPNtfj7fXNo77VStH
UZ9FR0iNvrW7zzR83eb8lz+0hY4Xp0Kuwab9xmm1+CLlviGgPGIB6xFCb3Qu
q3ZWLYsWsalu6n5/8rOvwzuvyv2o5SK27rlUl26QI6Pe5+W+JaA4dpfspwmi
2xbcKfedyEZ6jfZ4KfCNzzvlvDncrSezJEXXOeKY9gdDhVZoSwHfnNdz1269
9l63IeMSpOHsjXsPNqOqFfV8UFuzY81V7JbsdYbKfVNAcTx1mxqIBotvV1M9
KLY1c6U+Q4pqx7ziGiEaCfk/t5k7dGxNqjb0T86EXmipNSML1h6uLFcftT3Q
7BwRFMmLmeEaosrkXi/3jZSadbepiqtFPY5QMQpCRTcf3LOc1rMvpe+bmF3R
honEtqxZEyOLTxuPDySDNotquuzfa2kcp8k2kXqd4eIvtxue/bCXve4jjw+7
vouovlk5ljXr6ftdq+W+NaAoGLOoyxrYLvedlByJtShBLBJ0mttq2HI0MvVI
1dODlGVN6nS1GWJU5CQTaBbaLKq5PKMpe4NBei2KJ+Vo4S9G7uzo8vQTtTZu
yrImT4x7/zGaIUZYpAFRaNYsisukRQliGzNXDezL6gcdD1U57WQsa7LOPLUe
m7ce4XpG1Rc9W3CvgVC0axbF5dOixHRhfc7Sxd5XIjv/uLCjsjbet6z1F1zh
vXg85OzNaE2EXgPhaNgsisupRYmOuvHvEQN7nqA/aQ/uSXTxiiBlWR881/rM
cDO3NbX6XoFi0LBZFJdXi+LxvRXnIGfRUjXoXFGNGu1b1un5XsRnaeW2JtJA
gGC0bBbF5daieHxreriOvVCrah6b3VKF6u9HWR8d867vP1A07OzntiZCr4FQ
NG0WxeXXovimd5Q7VSDPOJZfSvkJ5YFlWadfndi6+12uea3hVwuIIzGQDZBa
XtTLrkXUtvcaN82kut06r/B1WoZlnSa7ObGrD4Sx5hlq0vTGq+xalFimeYaq
uR9Rf827reTJQqZlzfqbJXsX91m1u/wHotidszSQpNEZVnLPOBQl0CLqB0dP
LfczWke9m9J+SAnJtqxZhJ29hMztCdTIq6DtqMaTqUugRfHn3tEjGZOFlvFv
FeoZ5bKsWWCRBoopEMuYRe0W35YMF1cIpdCi7N2lRFe2BRU5AOS0rFlkh15r
NlxEa1DbYZ/TYjrRxOwbk4buSzZPcF3YQCTALKK2HrpvGA3VyYI8A7cWIqpT
pFJoEbXrHctYpBHkW65VxTVmXsuaBUKvtQgVefDJyOu6pAL1Xrphu23/YKCV
Tg8XmBjObxZFn7nNrJKh+UdD5VIKLWICJzJQYBBgfsuaRXbotaqLhYIEOwG7
sZEg28/b51ZT5UypvcBke0o2eqwLPK86v1mUPd+uete9rrjRvCAl0aIcjq7y
ggALWtZpEHqtMai12bEOkmg1u0Oc+Q9r+7j6vLvgHEaAWZSjWP2xcf8LqR6i
IiibFlUdsc4rSNZ5LOs02eZYXb9rpVS3CUoMU4+ipt1yPzObgF0xlSdqSEhk
0ZZ//AS3grHqxriyaZGy9pf2LesL957xLNJfbXkucsOpanscPyhqZf/iofum
pVK46X5YwaN/8iCzGqL5d96tzHGVXnYdUNAzFBhZFA25za3QIuk/RUlatG9Z
V/U7lvmdH8Xv6st+dpU4Krj1mNTvur4cB5llZAMV0iLhkUXcg2agRRJ9SkW/
Y1xSlnVtly0gJHWFCjl6uE9aPeThjRqpIKhH9y68ln1UVXkgX7tw71GFzir3
ArauWqL5A1+OJAJ62XVAobiO2KrrLZJoHp4REp7PLnyhuv3Z0mjRrjez+Kpi
tChVoJJsn/ALzFtZdfWT8jcpKDPUS/9ES76o3e3Z0fr0S1BwMKI3XoVvih1Y
4uqLW4NfVBjGECDaRmZWhX7x2U2q5pPRNUvEP96RJ2AjwzNsGvKs5b0Ms1nf
ZV8S+nqtuPrpOCMRv6IQyqZFiki92Q7aTgmzrFm8emA7ynWvlSG7QAzMt9wy
4X+Z9WZQj10DrNIUBTPB6WRqUXvKqaCR2lHvbrH3XqGUTYsaTO6nkn+OpFDR
5b8ZBVvWLBB6rQFiwdtvdp266c8uNkQ9cw2kbWuyfnQ2f0EixuIWaBYxMFqk
xkCRkmhRLuu64mtGUSvuC83JQpSjXy6HRRF0DRm4D3vavqS2QQzk4eWy4wzL
L+wY9xfY7RJpFh38iiqD+UuhRdkhN5V/WE/WmUqHQnXbryAf1JLjJKtH5VzE
HSDaLEpc/3t7Vw3RYPHtqswtKo0WMSetcKj0mlEpy1oqKn9BCqSBG+LIUxtH
vFmUCudWWJSIQEqhRdnporqTjkreBEhZ1vrBT4sSzOx5oOKS70Bx7ARt3azv
vfACrQiziHm1VDq0lUCLslOMK7r8ftGWdRrFh16D4sjYQi28QCvCLKKeuM83
ElUm1zM1vk3ya1GOEtB9zpWKnRWlLGuhUdY54U7Uk9QMz1RwVhWQBu6rzle8
VLxZRK04+6rUWLmIQXYtythWSI4WZo+IaJ3SIj7KOicIvdYiTOmPA3gKxtLC
RTZY5gTvsD73WY4RxDGL77kEN1uByK1Fe/PWdo53wlf/p6ykLGvewiB8ZLeq
kmrqIk+/OLg5aDw7xYxZVDAkmws9KarsNcUhkVeLqG3fB1zbupInRftR1oef
AzMbr2wUZBghT784Yv7xRta0qMcRKvQW0WYROSA0CJZ65jG3EOQpW7Cyo/IO
g6xaFF10GFk1eglSP+BcjhbRz6no5qLX9WfLUH93q57QtfaYxmyf+VfTl4pF
i7ks9yMYy7rO7JbAGNxPGko/unLqeyNPvzjYxdN4JZRxuYXOlvNXbCtECXqN
pMioRRnVwglCb3IWsTMVfeq7dbFDl+gcdR3nbzimZn1z067JoQ5dDX0awl4k
8LG5o44gj1+eflJ8y6Ys6zqjY1GKUTi70myfI6Tww3JBYTiJTjxnl1Nhp5EU
ahZRq1/+2lBFtl+fy6rYlpfS9BppkUuLEtMM54CePbo2n3cti+zmVDT81URv
I61jfROzK6xfj0UW/26qqzZc+vBGT+oBDrFXtW9Zd9mCe5J8M9nhnQi9Vjuc
DYvCxTyZMCFhZtHed46+xsSraZkT6ByUrNdIjTxaRG3dt3Dilms7J3wRcb08
0aRfjLTRF9Gfsy08z1E6jy6GL3Ak4r9b8sS4X6po1uyq1yJcSqBIuF2p4Bpt
y2dpF2QWRR9NjRwniUajPSBsRVG6XiM90msRFV29P2lsZF2xpm3ki7DIlSm1
+q/LTJMSzRfcebYOXn473nKwRBdy5mbOT1qfs3RJY1mzyGpXhF6rnqduU8PB
910oy0mgWUQ9X7Cd04vpPqXrNXIgsRbFIkGnuY09I6rrHJsSK0SpeSn9lRas
HcQ6HbvI46J2V1zv0cNE4XB90SQ3VTjNSqKgmtqJPnOx3Ov80dGCzKLo42nL
aVFCVMJeIw9c8z8Jz15kXqjIoucPgwa2RUS2n3fMi1yaJdhetPelbqrwJia1
7DTqU59VRJk76sWy+0pb6oYlLjGUXfVahcWvQAaclOraTut/cy2s+M0iKvLA
aT5GiltQlKrXyEVsa+ZKPZHRZ8a84soRRCMh/+c2M23ap2VI1/kb58L/iuje
1PqUuS51KZ7Irhczw6lvXuxpa1R0Y/7TsVP69A3nn9MWAfV8fvLNDI0n2icD
0hjjoGKJbc1dbz/oB2SXZTZ7bkSbRXn3Vfc2Fu7QK4vG3omvhC8oStJrpIPa
2XzCFPt6vBT4xuedclqHuALCoOsccUz7AkuFyoUtBXxzXs9du/Xae92GzEvo
usy37od3ioszZgIOGeoHXI8LNCrraGwhyc7RyNpK4r5n3B/fvGrMuunkLM5k
vTvjD4bWIqIlNHHtVLPMepx/utrbkis+p6bV9JHb6/MHmdpszzaLbCJQyeyG
p662peXomPnO/AZbUhiz6Ig1kHWi2k7Y57ScSbyZpGHQytn/4kW+XiMPssfT
krq2Qcud2YebhwikYR+gwJPOz9o359+SiG143tfnu/HM5xAbl7gTtPWIDw6E
g6RWYpHgJyOdB7tVpK5jaNLlDa4lc59os4izk07trP/g/+KvqfGxoWfs7sKG
yB4kV6+RDVm0qLqpo9c0fN3m9Pi+Wz10nhm17b2WXjPybDSw0n/441dFaBHZ
/NtZcTUnX/jHj4lvuvpTjkVMjFRLdD3osV3irBpIXWv32e7Xqojq1qGP7tit
FsvVoXOdTcxPkC3G39+eDq6LVwf5eo2W2Q5YD4ou8G000Cf/Mj8KWxhUKtFI
aP4r98e2GyMm4xutGZYISY/kN2zOf/pD4o2BfdBr5ICdxsUTHMiqEaTSMndA
fTA1izqtvg0Ja1Wg18gApwJk4bMz2LVicMoGUAbFFLjmBb1GDtiOFs8Rvaxl
L8cCpqKrD+4HVpVRZQJoiyIKXAsAvUYO2BVgChtrrLGAeyZCsiwM2e9alf9m
ARCJyJpFAkGvkQXWiasFU1FYUc3chOhka9cq4XRsoD0YKZB+9wq9Rg5YOwIF
WpXa9E90748Ex8b96ZoHtDUncWYZAJLAmEU8BfmLAb1GDqiX/omWlM2f72TM
jLhWdlwiXeef5yAYAMqCPGZREvQaeaBCrkHGXssp1EyT1h7v7TFkm3XJOv91
hzlLCADZEH8amnDQa2SBiq64ziez/Eh9n+MhK5mU2lmesQ4ayEbj5P3V7YCt
q5a7Nbmz7DTp6y55KqcGAgAHMFWD5MqLR6+RiYMiSKS+Z/T21GwyjffmlV5D
dTJncGaZjhKjdoK3jHq68XvH73n/4755obXq+MjUI+xLggqE9mRkzYtHr5EL
auex7zPbqOlkMmw+dYTB19zcfyq6EXBPjpzraCLJps63rtm9olKbASgZTJBh
66h3U9aPQa8BABSEDjLkOb0RAABkZtc7WktUDbgq9phSAIAmWLtn0tX3OZch
RQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADD/wG6ux5N
    "], {{0, 100}, {
    388, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{290.3999999999992, Automatic},
  ImageSizeRaw->{388, 100},
  PlotRange->{{0, 388}, {0, 
   100}}]], "Input",ExpressionUUID->"3f07afb7-8739-46e1-b40c-b773f5fb36d7"]], \
"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}},ExpressionUUID->"fc00eaf6-70c4-4c04-8d33-\
aa6df0600733"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Da", "[", "a", "]"}], "[", 
     RowBox[{"Afield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", "  ", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "a", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4409029566875*^9, 3.4409030128125*^9}, {
   3.440903077125*^9, 3.440903094765625*^9}, {3.440903156609375*^9, 
   3.4409031876875*^9}, {3.4409974896316195`*^9, 3.4409974934284945`*^9}, {
   3.4410603871875*^9, 3.441060394875*^9}, {3.441060997*^9, 
   3.441061003453125*^9}, {3.442440106640625*^9, 3.442440142109375*^9}, {
   3.442456105734375*^9, 3.442456108171875*^9}, {3.44245843034375*^9, 
   3.4424584311875*^9}, {3.4425045583125*^9, 3.442504558453125*^9}, {
   3.44250978125*^9, 3.442509781921875*^9}, {3.442511222109375*^9, 
   3.4425112223125*^9}, {3.442671207703125*^9, 3.442671226921875*^9}, {
   3.442716458734375*^9, 3.442716501453125*^9}, {3.4427167659375*^9, 
   3.4427167681875*^9}, {3.4427168285*^9, 3.442716831703125*^9}, 
   3.442963727140625*^9, {3.44296778709375*^9, 3.442967801515625*^9}, 
   3.44296786928125*^9, 3.44296791190625*^9, {3.44337453471875*^9, 
   3.443374535359375*^9}, 3.443397844734375*^9, {3.443708071921875*^9, 
   3.44370808871875*^9}, {3.506778268335153*^9, 3.5067782693842134`*^9}, {
   3.5067791460963583`*^9, 3.506779148675506*^9}, {3.5206470793953767`*^9, 
   3.520647081443494*^9}, {3.5367550519530015`*^9, 3.536755388956277*^9}, {
   3.5367556803421416`*^9, 3.536755681403202*^9}, {3.5367561000631485`*^9, 
   3.5367561435796375`*^9}, {3.5367565949394536`*^9, 
   3.5367565968755646`*^9}, {3.5451486580581727`*^9, 3.545148738990802*^9}, {
   3.5451488141070986`*^9, 3.545148888144333*^9}, {3.5486889386755133`*^9, 
   3.5486889809849334`*^9}, {3.5507951332147837`*^9, 
   3.5507951401591806`*^9}, {3.5517190796328115`*^9, 
   3.5517190822599616`*^9}, {3.5517253676208563`*^9, 
   3.5517253699409885`*^9}, {3.552315908057837*^9, 3.5523159098339386`*^9}, {
   3.5594367136555743`*^9, 3.5594368087460136`*^9}, {3.5594988442295895`*^9, 
   3.559498845916686*^9}, {3.656720957837866*^9, 3.6567209581638837`*^9}, {
   3.675003233844677*^9, 3.6750032345775423`*^9}, {3.7117171399576607`*^9, 
   3.71171716127888*^9}, {3.7117174931208606`*^9, 3.7117174939219065`*^9}, {
   3.711854517913762*^9, 3.7118545309225063`*^9}, {3.711903330225618*^9, 
   3.711903330575638*^9}, 3.7120956100350733`*^9, {3.73716040537171*^9, 
   3.7371604164821353`*^9}, {3.7371604653306093`*^9, 
   3.7371604863951163`*^9}, {3.7371658278287888`*^9, 3.737165828234808*^9}, {
   3.7372898882003536`*^9, 3.7372899191761255`*^9}, {3.737807817687275*^9, 
   3.737807911420636*^9}, 3.7379793842276382`*^9, {3.738581430790002*^9, 
   3.738581448455012*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"3ae8c848-3ef6-4bf8-917a-de6ce9ad77df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{
    RowBox[{"Afield", "'"}], "[", "t", "]"}], "]"}], " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Da", "[", "Color", "]"}], "[", 
        RowBox[{"Afield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", 
       "AdinkraReduce"}], ",", "t"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "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}, {3.7385814564004664`*^9, 
   3.7385815082584324`*^9}, 3.742220702642619*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"69da8689-8948-45fe-8961-734234a3c8d2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", "1", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", "2", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", "3", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", "4", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.742448049341522*^9, 3.7607232597769623`*^9, 3.7607283993500385`*^9, 
   3.7607301133445964`*^9, 3.760730409306975*^9, 3.7609888769671335`*^9, {
   3.760990294649893*^9, 3.7609903238845572`*^9}, 3.765631991819601*^9, 
   3.765736129048729*^9, 3.765738031905292*^9, 3.766162433789426*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"314d6cf4-3daa-425c-bce5-934123719252"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintDColor", "[", 
   RowBox[{
    RowBox[{"Afield", "'"}], "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"DColor", "[", 
        RowBox[{
         RowBox[{"Afield", "'"}], "[", "t", "]"}], "]"}], "[", 
       RowBox[{"[", "Color", "]"}], "]"}], ",", 
      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, {3.7385815260034475`*^9, 3.738581556662201*^9}, 
   3.742220705295763*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"89abcb8f-2156-416a-9682-cfcfe24fda66"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       SubscriptBox[
        OverscriptBox["\[Psi]", "."], "1"]},
      {
       SubscriptBox[
        OverscriptBox["\[Psi]", "."], "2"]},
      {
       SubscriptBox[
        OverscriptBox["\[Psi]", "."], "3"]},
      {
       SubscriptBox[
        OverscriptBox["\[Psi]", "."], "4"]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.742448049422751*^9, 3.7607232597934885`*^9, 3.7607283993643126`*^9, 
   3.7607301133739862`*^9, 3.760730409323547*^9, 3.7609888769831295`*^9, {
   3.760990294665512*^9, 3.7609903238845572`*^9}, 3.765631991819601*^9, 
   3.7657361290587025`*^9, 3.7657380319182568`*^9, 3.7661624338014264`*^9},
 CellLabel->
  "Out[25]//MatrixForm=",ExpressionUUID->"a0b36630-2a30-43e6-b475-\
654f5f56e0c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Da", "[", "1", "]"}], "[", 
  RowBox[{"Afield", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"1e25c248-1959-4498-bdca-2c99ca288a18"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{
  3.742448049504986*^9, 3.76072325980745*^9, 3.7607283993841286`*^9, 
   3.760730113407921*^9, 3.7607304093449917`*^9, 3.76098887700309*^9, {
   3.760990294681096*^9, 3.760990323900179*^9}, 3.765631991835189*^9, 
   3.7657361290696735`*^9, 3.7657380319312205`*^9, 3.7661624338153725`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"d159d7ad-1d03-4270-8acf-617a653e06f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Da", "[", "2", "]"}], "[", 
  RowBox[{"Afield", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7385997862719154`*^9, 3.7385997915622177`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"d1caf179-e09f-4873-8576-6a36d42c62e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
  RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output",
 CellChangeTimes->{
  3.742448049588685*^9, 3.7607232598234086`*^9, 3.7607283993998594`*^9, 
   3.76073011342877*^9, 3.7607304093616457`*^9, 3.7609888770189943`*^9, {
   3.7609902946967535`*^9, 3.7609903239158044`*^9}, 3.7656319918508444`*^9, 
   3.7657361290826387`*^9, 3.765738031947178*^9, 3.766162433833325*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"64e167a3-d0e4-43fb-97f8-5e4cf0eaacea"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MG3eax627N/diXhwveRGJk2WJF5EihCwdEarMCyIiSxC1QlbaCJmo
nEGrLmR7xe0quKsGUrVTKTW6xuxdrN1YuYvTzSjauiu8Xby7uCucLe7WUbCy
7gYinOA2ECDIQRAGhmP+2P6NbcZje8b+DX4+0q7aXWOPf555nt/v+fN9/u38
4Kv/8U86ne7tfzn4r1d77W0/+1nve6/968G/dP/07QHbT/vePP3T/+yz9f3s
38//88H/+M7BfwYOXs/+8z4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAACm7CYXv/HfoSiv20kecGnYZu3pOdt9/nr0JVPt
awMAAAAADFny2Rp1uZxyx/aqfWkAAAAAjjwLjpjNQ1duTH4diS0mEs+SdNZR
i6GTzxLxWCQ0RV37oOfUaHDjiHkU7guyzEdu2Y2C46xrdd3frfaVAQAAAFgS
p3r0ec5ceSE63p18tFPtK1YNZjs01iB81ZaR4Gq1rwcAAADAE7mukzAOuGaW
6GpfrppsxdzdqUPn2/5VOHQCAAAAeZHhOomTVvKLubWje9zkYRa8Z1NL0eVZ
gBIhAAAAID+c6zS9RZJ2W7dJ5ET1JsvgmNt3d379qDtNnlX/YJ1w5oREJwAA
AHA4nOvsoRLCv9LJlR8SicQP61s1dupiXgTfPyZsGkyjofVqXw8AAACALVmu
s2ZBEp317wWOWhUxAACAtmDoxF9cttY6m2+52peSD6Vd527E2XS803EnltRU
yJNZpKwGIbVrpRI1duQGAADAid3k3K+tBkJHnH5/+gcs7bHip85kzGMz6Ah9
50eBxLZi76o2G4HheuHMecr9AM6cAAAAVSLjNx1Tj3Ft61AhYMs8n3P3HRzh
iLZLU9rwnsx2mDwhhGvbyfBGta8HAACgNkn5TV1zP7WAq9/cVyvXyazMjJkJ
zXjPnEQns5m495WHtPeZmwldfbP5Tbvz1nRsFePfcZ+haU2FyAvBbK3/kFCM
lSTOv115pOWwyiRXSQwAKgxDL/mGGg9cx7G2sa/XsL4fc10nnVyJxyLhAyKx
eOkmh16g+pvZ1GH7ldkNvI26KNF5e/HprGeonSCM3RddVGAmPDvtcw2Z2H1A
a7/7r8t4mpfNb53tDU3OCN4LXQx0mJQtcyUbg6m7d3Dkipv6UyS+oX1nurcx
82ELofAaEc3mc7bhMdetqfA/VrYgdwFUDmbjLtnONjrUWX71d9ybPNKuk6HX
YwG3o8dkED9Ixu7h8TvhJyV8D2btzw5j3cFbGPqpRTw9Dk8m0Vln7BvqMx4z
WEj//AZyxS+Xpz9sY22UwTIRSeL3VXajrladwUot4ndppaKK60Spb+7++cSX
3yY07B12l31vKe05RRDNZy+6A7Ea6ewGqguz5L/Qwt52hgHv/Ga1r6YgnOs8
9z/TftJiqNObhyd8odjjNc5R0sl4xH91wMg+nI0lFc3ubsxeaec9jntuS43L
VwA00aljAwUjvvncb3pwMu3lBqwQZ5wR3JKh2wueN3S6bncM1zUugUzA9slC
9G9hdvrASLch11HoOx3e6UgsLhWKXIiGZ0OB33pcl9/pNma9BWF889PJB+s4
b+0koJMr6Hec+t9Ry4msBSLa3rs5/Z30ArGwoaaZwBce57ClmchaoiMvwgnk
sp0IXb/IPi+E3nyRiiVV/ritRWqQO7YZznpiWtirpYT4iPahm5G1PAZkOzF1
iTtwEQbrr+eK9Z7MamjsFPf+XeTsKpbmCUl0HnzHXu/8Tt7L3Il7e/kX1Q/5
MfsmP/oHT+hOkOFtvC5LaXY3gh8cz3IMDWOh4r41uyH8vdtu1qPuod5omwjG
XxyB5cs5rHeQ4edFvsfeVnzaZWsV+88mq/sehvEWQB1212Y+bkPuAOKMZ17F
8AyzM+/t5TbGRJc7lt8C4wbvOk12f/zQXWXa/emIxiHfUpH781TYFtekJ5Lo
1BkvBdcOvcKMUcJNHP5FcOSYrm7Qf/RnvWTEElNYvPFSnjOGXn8wSb4hSk4Y
esc1f7bKCeEeez9Y2o6AfjzlOC32nqZ3A9DxXBvsfe850yD68fVkWL1nI1UY
U9JOr1psRJznzox/syH5SDBLVK9gspoHfMXaqp0laoD762Ptzm+xC2Ejic6T
zu9eHv5CZD9vIsNqhy+KgEt0Huvy/OPom7XcBGhZxeHbiZnPetAgMHF6xPe9
ls9Wq8GRFnR5ytlQpWs2MjReDGC1aQRUIudBI856VSukoJ/67XwyzDDwxVHb
nKFHs5ZPwptFfr2te65Obg9DvO6O4eU8WfWj1BeTnNG5txF4rz5lQWy+pcpd
YgH4RGeXK4rXwqqCwq5zn20ii1H2NsRBYN2FXYjd+65W9Fhe5oZqd9X/Tr1o
uevbXfe1kIcCyiPr1Klqum3zG7KFv2k1dOSUz2bU1ZVax+bhwEqRf54+eOrq
eqkljPYVvN/hr0w6DIu8UqfvoeKVu8YCcInOkuNy2kJ517mPtGBnvCeu2l8F
YBY8XaLVKXtDlYnJpGh1ReHcefTZTUY/t5sbuUJ0x43wj6ptJrF1DUpBJyhb
Zus5HCi6xjSztTg1FsKnyobzO4KZkZ7RuRIYbk4twIlB/48Vu8QC1E6ic18l
17nPFkUELxnRt9VGeXwWB4fEt0Wp4PI3VMw/PF3imK2u1xuHcyegEBm/0DoS
fFbtq1EFkdEqZee5Pe85x+/sVS7WKgbO7/BbngIzOkWhsA5n5EXFrlGaGkp0
7qvnOtlauFmyC62KITp/OYd7U3YWSiY6UyB7SwG8Ev2AlkEyAiXkATWCyGiV
VGKK1BrhEtPm/A5PgSg0k6CsacOK0VSyWkp07qvpOpFS8BRa6S9LoXCikyfV
vAauE1CcTEZVU0M3mOexOx9aTY36tgFy8mHBXnqx0bJRieKD38wTX7/QlodH
ayRSyU/0S34jtEYIq6lktZTo3FfXdaJpl9QWcYBa0ozzVD7RecDeA/eprGTn
0VLeAKoG8zIyflKDN9XevOdM+hhFnPcuSrRlsIiMFvGWb7mEWgHEAcn4RPV5
EXF2CN+ogPwrGgrTn/VKJkUrSU0lOvfVdp37+xvTI41o1LauZWxGum8LG1RI
dO7na6StnX0aoC7Pw2TK/J5yxzRz5sx60AoGYZgXwfcz5QIl64xnnsSGM57v
q71ayTBpkmWBN2dGj6csKk6tbbWV6NxX33Xur4dGTaL3x2KPJ4fsRKcSsZHc
5pSSSgQBIJeMUS1UZ4IZ4txlwcBURoaO3XiOBEuskkFithjsNDKuU1IqY28j
+ItG4aIbutxRbEJ4dILqJ2on0blfAdfJbIYui7X+NNLJmJ3oVCJ5lNZtzmAa
Da0rcr1AbYM+aBobkczVvRB6U7fNPn4n8rRQ5hLd05bz+KDdkVWPb2c6bqRc
J2JAMNMS5PplMKpZUh/VXWe+Tsbjl0PY1/7lJDrLN0e7G6GPWsQrUWe9hfUI
JEAzIOEdzVkwziPI7UJFIpZlPj57MfcpYcmqnjTMzExpGA0dMpCb2Qx/IhgQ
3BTst2fJEwRONUvqUwHXyTzyWhq0dtTKSXSWb47SCmAZx9nreVgz8Q1AVZAg
iQYtGLMZGW8nWoZ8i4WOnFuLXpvwPctvFd8OjaaeyLp+39PqLlp6S3CIHgKT
DI8LBqTJ6oliVQTGbUI0VdRdPhVwnfvPQ6Ot4s8oIG6MAUonOpmVmTFzlva7
1IQI4IjA0HQlompIkERjiU4BZj0y3k3UvTH+jYTOEiJTpoxA2ZLPlkqgVP+o
vhlzv86NuslXDULH/XaT4DfVnbhUwh3LJzrlxOUq9DhUgkq4TpFwlkD18/KS
KJvoZJ7PufvEA+9h4tiRhl6NBa6P2k4Jz5a+rWfEHYitqrZTQoMkJci6SsFs
PY1Of37V8ZPO5nTexWDqedfpnS5xYjuzS+/mu/XpJ9PkGwai1Xb1D3ne+WBJ
J0kLP0bN+Nb1yDMlFhOdj4lBicvWnNtiyJmnxtBrkZtD3JhuosNOPVDFbjCb
iTBFDp4RJgsTxu6L8u9YGYlOZmPe/6nVWM/Oo+y/UfSsVQyphOtktkNjDVmu
s8RurAqhZKKTfhbJ8pvEaYf/kcZ0lQDZMMn7XtbQEfq2PsfV6zevfdBjrBd+
d7XmIKCBnTc8C4fkyoqF2VgIXLUZsyoVEPSvjX5Z5FwkJu4baD40hpP+RP0p
m+O/PF8EQuFwOBT4wnNlyMwdD/Udg658jrVEUHmBBov3UbUfSoZevjthbWL9
i/Wjm1Mz4dlpn3ukm90w1BttVwMLqjT2MckHdxyv6lmH2XPxU/dNzyf9pmNF
3LGFE53pUT6CBWy0T+GUqS2JSrhOVGMqDc4SOjmJzhLnySLbxdQ9o+8c+3Je
I42tQPEwyXvuA9N3cDq4fX9NODig1R0W15wKtz0qjKxQm/CBOaXsHeIUQ16K
ip/wS1Ggq4I/57rGhm3dJs44GUzdvYOOz7yBSDyp8NYDqRQqo89FWdiQxQ1y
+E3zwTGfaDb3DDqu3grcS6i12d6Ketg7tn3IM7ucumN3ohPtsu/YwonO7CAe
fhO6S6AirnM/QfVkP3FYzcrJIjvRWWiQQR6YrSdh6rIFHR+jf9Vx62/LUE97
hGGW/Bda8uzVkSJzVcpRMsrhiqRCGDrxJ9KSpbQsQXM/tSDLpfG9FTg18osk
Sop/zDWPUIORU3eB3LGFhAplJDpzvQxOqvUlUjXXiXExQ/YeqZhLpZOJWMjn
TsXoOAjj+Y9vlpoYAjTDTsJ3waAzWNxz2dWPyz6bmnrdaH6BsPmWy3y3ta/H
2rKG+/AYTOZXsk2g8P8MUosFSz75Iydmbd2oAWwYC23XlO/k51sdayfvZgfC
0B1FgTtWTkfnRsR5JqtIEuOoozyq5jqlRTOqSU6is8E84qakuOl2kiR5iQsw
ZbQ49aYeu5MPMmn3eXwx779G4sI1/zy+O1VmdcreSOQdD4RGBUuUK5cEfYjL
fax2vvf2NiFPaecQew8vLGcipXtb609iYf/1S1ZjxhrKyF7xR07sVKzRcQzK
/zRYs/mts/2YruWjUI60QhF3rMyOzkyFMLjO8j4FX9eZk+gsCaLZfM5mJ93U
HzXtOvP9cFUE13tmPzUC8qQ9kBuO5SNaaRS3z2gFe5kiosk5lyU1v6N98FpA
MlSym1yYcvak/CxxzjMvUZ7EHznrWshvql3GmgU6Nlr79rwI+Nkcjb3UYs4N
k2UDpe5Y+R2dzMbMWEvd0VlqcJ3ZlDOjk06uJOKx74I+96Wek5nzp/E8SYUT
Wzh34xwC83jywisyakUqAvHKhcnHmO5C+AHT7RPRnZwLRLVSdWpEBTejrnSY
pJwSAmZr7pedfNNk28+p2HNZV0k/nnKc5v5I0i1ieuTcF+muK93XgzU7UXdX
wyFDXdHthHThGT8rrWUkKMdGooO0tH/Ar4zrRFQ70mDqOpWa0clsJkLufjTj
aXrbE5Zo9wa0Cy/KnV/MjXnq60duKBXU/lHjL9OI5WMn5jlr4PzmpalEMe0t
9ALVz1naxl8E8ye8sD1y7ouVbHGuXVQWfj7dIdI06HCWAncsd9CQXy6brj46
AuOiINcpRtEZnQydmLSjw76J0yOTj7BS0AKUgNul5x8JRD/1oVPmWkeCz1T5
dIGS42C7q4GLbOdd4zu+paLbQpmnkxfY2YKHnNqYpwH7SSyPnPvicHftSMkl
I07zIaL3olHaBU7i/EGjiMrklHxT9p/sJhe/8d+hKC9XNsLWjVh7es52n78e
fYmrh62a68TzLlV8RmeO5LsyAmIATnCVEvm7QpgF71nkAVNl8AFa6FKq69z7
3nOmQZc/VysHIRaX94TCTbImGkemsZzmItI6w3M/rzx7D9yn6nUnxyO5jikr
vyB5x3IHjaJ6JYQISY7EPaKIiIKz6FzVXOeJQf+Pin9O2ZST6DyE3EFjjXZ/
wcFKgIZIfuPsMv/ki0e5T7m4UlEl6ebyXScfvtPJnV2SFz7Kl6dJgRvATbzu
juEXrGWpSde5G7t5ruv1a5Hcn0ScXyCOj84c/rPxB42icgS862y0+ZayPpZO
PkuwzEdu2Y2p5wXfBsb9CrnOfFVCGChG5qJUolNEVgBEPRMK4AYfFkvzqiuq
RnMN6jp7vfESgqK8lGuZ84w4F5nTGs+b4rKcsrowL4Lvp7tYa8V1HsrLRe95
pCzQ7IxI7MSKTHSm/0RqOiqq2lpG4r4CVMJ15voOHOYU5EHRRCcC2hHPc4IM
11bzdU0iLrcgznjmVbnly+9MfBFxdhDt45Gygsn80TUrEcP37GA9ZFDJrlit
k5VfyBvRTVN0ojOlGCll/RBBfszF+irhOtEatpQZwXGkoOKJzhR5Tt1Vn0oP
qA1fdptGvWHK2DT1c3qAohwH17NDdLljuT072ACuM01R+YXiE52CSJFUyS7q
uzHXRayE68yRhK3+TPa8qJDo5OGT8iK03xEMSMP84B9qQm8mn1oJbtR1VjcP
whV7NDkjgjHlq3bzNt3jg2jDXNuuEx3BpisUrS0h0cmHHyWrXDICgHgnOvcr
4jpzZfPzl/FXG1USnRx5Tp3gOo842e2cBTS0y0GJCltl4MQZ0vMEBbH3w5o9
MaEmy4TykrXDl47WlpDo5DeTUntINO+MdZCfRX3XmZNAxLRmQK1E575YSxkL
EweoDSqcorYdQAv7q3tf8doy/IPDD67CUwYBBVyngNgAFiplLD7RySxRvXXS
WsfIsRfLYhgRqrvOrJItXRm9Y6qiWqIzVfkvAu9J30C5ZJVb5Jc7UwpUTajK
WzLOnLSOhp6nelKkhW1xAHWdtaMmlEuW0rLkEDHBzxInyFnZvy5fgN1Bhp8f
/qaLlNUgGEgci2HEqO06d+672kVpvryjJTBAtUTn/ouo69Vsz3nWi3P6BwEm
p5RCRdo506Cus8rt0pxF5RzQxvRII4FnfEmMUgrAWkesW1vg0McfNIqQ/OWO
nIXijZkhoXgK5ohR13Xy2pUoeB451Ux08sLgIvCsksoHTE4phax2TrWrqXE6
N7HiJwfXsMDJDzYN+fEXzkI3Hvx5uSbZjTibkEOnxRuX+uW4gwbRL7ecm1di
LCCLwWyHydR49QJnXixQ1XXSD71WVEiHMPRTi6VM4GLo9Ych369IdiKmQac3
WQbH3F9GljNvtUuXN9hLtURnVs6Lo/FiAOd+JRSYnFIC4s1S/gjD3sPb5zte
8/xdifsA7ZsmMvWtVYF1nUTTld/c0kCBEM+P/sGUwS5xk6O6daoE4nqMAntU
vqBIrkre4QO1ReQkOpnNxL2vPKS9z9xM6OqbzW/anbemY6u4bJ5VdJ30U79d
pEAna5R87tv8GL7xnpkdId1oHvrUOzUTnp32TQyb9ceM/TfmkjvJ6Od2c2N5
2rBqJTqZtT87jFmes9HqfYjLrw8oD7MZuoxogOZvzeAiuoqV37MnhvSdOxKs
ZlCbb9w7bT5F4F8gxME36Qv7juIrECphnSqCSCu1QMyNSVBWQm6ik1n+w7vG
OqL9ymzOQG3x69BE5+3Fp7OeoXaCMHZfdFEBblVdQ6aDZSZa+91/XcZhK6KW
62ToRarfgJ5XWoZ8i0W6DIZOfD3Oz9I19I7PLCF/vpt8+JvBxnrjxc8+tejL
NhrqJDqZROBdk3hxCUOvdx7j9nCgbJ4FR1rROylfKT6/wZbumysGVK5KDQ1q
+WTsiXLfTlVQA1jcib1i1qkiiBTPGizeR4cbKT7KIS/RufO9t7dJR3SRs4V6
szKJzjpj31Cf8ZjBQvrn0XPqy+XpD9vYizRYJiLJqhtRdVwns3GXbD+GvGlD
53i4yC97cGd+5Wjj3sTQ557LHbybGpMkb6ckhRqJTub5nLvPkOU4i52ECGiO
jAXgrEC/L09qX2JuRWmgiarq5oPTFhjnmRcoiMsgbL5luX9WQetUGcSOQPIm
2giT7bISncIY9CarJ1oo2ogmOtnlahvxzSdz9jHpURrEGWek2slQ5V0nQy/f
nbAiOioH6+D4KlHkEZtZ/tP7/J2pa7ngP6Qs6+V3zpNpl1d6Zln5RCfzPEb9
vC0rR5j/EQOOEiItcZ3ueL/vSe5UJ17rtd11X7nplWjCrqpafELcTwsVkhxI
rLuI+HklrVOlQG8hyd4QmYlO4ewg0/ijQkYSobmduLeXf5GaGiPyUNh17iZj
lL0NPW82do5NFes3hWM+t4yNFyYPL8l9HhpNBcdK1wrOGkZcdqKTXpoZ780+
b5re8UbBbx55RP31+aO1qsx9Ri1PVVs7BdepFYlmXsOBR3arRUWtU8UQm8HD
NX9kJTrpJ9PkG7L9pijRqTNeCq4dulYZf1X1Jc0VuilQlnwoTPJh4OqAET1q
Ee1D3vvFB6U3H3p6hYuSrmdGF7x0rWBxQ1NZic6dtbnfjllO6EQQhp7PZiBO
WxOIXWeenTmzNffLTuVLaNDTrnSiSl0Ey6aVaC3q3eS2WlTYOlWQzW+dmSxb
Q6frXr7dT+FEJ5N8QNk7iKKCjUiiU7oJGjnqVVk4ayP4AVINyK/ZWKi4eVh0
Mh75vdvOlZll/IW+8xfU3LMSIkfM6pS9UXirAi203KQG/oWlFisy9OItq2jz
UFKsid5g12C4K7sJ8mDz4JnFoh4MqASi+Xp59mBb91ydDap0JyF7YKnJFOrC
V6prJlorKq+V5+4ra50qzO7G7JX2tBUnusiZ3JMnl+g8dCzswdnhNhd1bOoZ
/1p+sBEJm0vryaPPV+68bNVgttZ/4AZxJ54sRP8WDk1RrmGxv+PRdzq80+Ho
QkKChWh4NhT4rcd1+Z1uY/Zb6LvsN+4mtkp7ejZj7tdTb5g3VZRhN+pKbRll
CvjTyRVhCeKxe+HZ4KTnQ6sxa6ZJnXH4/0LS3z69BuGZgM/rJt/ubs6eR8pG
qh23wgkV9dcADEFV37NdmFA1YXo3oILGGOoFWl3R6lhq3q52OCNYF5NmyBx2
ZLZaqGqdcGA7MXUpU6RBdNhv319DPSCf6Mxzg+1tJcIUef7AGRDGAZeo3rjw
h2amUhYIw6LzKyuo/qG6Mgyhbxsgb8/Mr5eRxEGnAxcYsIIso6xgS9b8RNVW
ofnsxYkvwWnWKsk5l0W4gzM1tAy9Frk51M5WG7rvqVNXj6Y73/AsVCNBIBTG
VLVOqQjQqk55+vwqWid82E3G7jg605aS0JuHJ3yh2Aorn8olOkWNNszW6qPI
V9cvWbkT1AnL2G/n1oq1/0iFUoHINppcq6DmpCqus77Z3DM4csVNBcLfL5et
TStuJy8QQkGWUVawZXfF/446eweDqbuXW4Spu9HHSQjP1jjC6ZJ9Oow9H1y7
ef2qo69NT5Sa+pcLIpxb4ECk7gVoRC1RpF57/HKo8FZXVeuEGfRqLOC+KIoo
EnpT95vdr9Tp6k3D/33b4yLJS8N9nc38K4iT1o9vlij1Iz+yLeoi1E5woxKg
UsyFQijbs+QJ4YdtGA1BFQ6AEZzlGelpE7Zq+lO20esBtTXEkHmL1Uh3po69
miiJ2UeXizg+OiOjaqsGrROdjN//2v+5+1PHoPU1U1Z2j+COTZ+6qT9G4snS
b20ksl2gyJk/8wrgP5WsoqCTBwssI7LHrvK0CADAg6qOO0zNWcNdNicF0s0t
OQkrQ81bJ/7Q1+kKryk4+wrpDyoQ2RbV4GlgKlklEZ3HpfM16HS5KmV2AAAz
mEXvWUKWbVf+o4X6KOxlcwSQbUb7RFSONmbNWydus6F4tfCLiLNDWKoCQoio
XKp2hk9VBjQbW0CXAEkliBacoZcf3I0uayPZAgDKwvzgHxLK/Csrt5I+EWhk
bldmjrBsI1zr1onvPFK8WhgZ+iatxoPWaGlo+FRlQKU4pXPryA5QnNZhdybF
aFECwFECmZCrsGCRNOuhUc4AljB8pAogqyTfCNe6dSpyRqdcMq5Tsr4M7Y9o
6HJHK3Zna4Q41ZPa2EnuQJi415JaRpF2CnvTNmimIxsAFCctkV1JC5N2Fpqo
JuW1EDnPVoyScG1bJ/4nVv73zQhwSbnOzF2tKzy/rBZBatgkbk5mPTLendr/
iUqUuey8RqYdAYAqIEeqlk/CFWkvTpfcaKKalFmiBCk9wwVfQv7moqatE5/o
lFbJK+2N0921h988yC0tZ35ZLcIPleA4QYbz6wFm6V2gAaKXi97zhIKznABA
i2ROVfkHbStNelK8JqpJn4fJjpJO5bVsnVRKdHKkk5iHtDUxyfB4ZwO3oHLm
l9UqTNw3wGfY827P+Duz4XSPxcjfnGi+nk39N0IYHKh5EGXmShw8U6WPBQR2
cABdmY9Cxcb9atc6cT+xWsNKUvKGee8fOu63mwS/qZYS19GAoZd8Q6zAcvbU
NmZrMegaMBJN1om7y5tRdxe/D0nXfm8tUoMGqLwCAJb0gA/1M54aSnRmzuNt
juBy8Wa4Vq0TL7GontjF1pzbYmCHuA35ljJqbGn5Sk5Nl3oAfrMQ6aGfhMEy
enNqhlWqv/ZBj7GeFRYOLnLtuMxW7IbVwN3DPc7J0F/81y6Y6k47ph5rs/Ab
AJRmJ+Y5yw29MgxSiypGuVKJTpkK6lVkdyP0EXc8rjM6/rxWoh2uRevEZWlV
nf/C0Mt3J6xNrHal9SN2VWenfe6RbnYN6422q4GFDXCbMmG2noS/dI8OnmXV
n/Qmy+CY+8tvxdNYDvYkUf+Eo8/cTBDNnW9d9oSKkusHgKMNQy9S/ZwBl5zI
XCbpjk55CurVg9m4S3LzKMsv0awx68QrPKj/+7LylTfI4TfNzfW8yp/j6q3A
vYSC0kUAAAAyoJcDDi7v1txPLahjulN1p5hrijKrs2QXG/qr63H/XZM1rtWD
U3jA/PcFAABQEOb5/YlzbCbSYPPE1HAZ/MQoonFkukrzteWQ3kKY7P64Zk9/
VWI7NNqgq+v3qRa4AAAAwI/UEDSi7eOZNcWzVZwoOnHGGcHWczI7895eNnAN
JZolsTI5qD9ekS4nAAAAnBAq/AmD9ddzSWW9J70S+f2dP8ZwdUkMnfjKwVb1
gN8EAAAAikQ4e6rhPfGFSUYm2K4H8JsAAABASdBLM+O9Bt2xNvJuTRTK7D2i
zjdBSyAAAABQHtvLkT/cCS7UhJoZsxz53e++hpZAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACiS/wfC5dNh

    "], {{0, 117}, {617, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{424.1999999999994, Automatic},
  ImageSizeRaw->{617, 117},
  PlotRange->{{0, 617}, {0, 
   117}}]], "Input",ExpressionUUID->"12731b0e-9f22-4f64-a145-b2ab8b97e66b"]], \
"Subsubsection",
 CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 
   3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, {
   3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 
   3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, {
   3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 
   3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 
   3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, {
   3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 
   3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, {
   3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 
   3.7117171831101294`*^9}, {3.7117175469379387`*^9, 
   3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, {
   3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 
   3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, {
   3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 
   3.7378076101044016`*^9}, {3.7385815846478014`*^9, 
   3.73858158549585*^9}},ExpressionUUID->"f9560984-e0cf-4af4-afec-\
0d033821ebc5"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Da", "[", "a", "]"}], "[", 
     RowBox[{"Bfield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", 
    RowBox[{"I", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5", "[", 
         RowBox[{"[", 
          RowBox[{"a", ",", "d"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"\[Psi]", "[", "d", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"d", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, {
   3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 
   3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 
   3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, {
   3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, {
   3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, {
   3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 
   3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, {
   3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 
   3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, {
   3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 
   3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 
   3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, {
   3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 
   3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, {
   3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 
   3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, {
   3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 
   3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 
   3.7095734562269197`*^9}, {3.7095736865240917`*^9, 
   3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, {
   3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 
   3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, {
   3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 
   3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, {
   3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 
   3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 
   3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"bc55c4d1-d1bd-4245-9a6c-9daeca1013b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DColor", "[", 
   RowBox[{
    RowBox[{"Bfield", "'"}], "[", "t", "]"}], "]"}], " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Da", "[", "Color", "]"}], "[", 
        RowBox[{"Bfield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", 
       "AdinkraReduce"}], ",", "t"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "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}, {3.7385814564004664`*^9, 
  3.7385815082584324`*^9}, {3.7385817972959642`*^9, 3.7385818063694835`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"4c7df59f-2fab-4cef-a427-168843b05a26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "4", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", "3", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "2", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", "1", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7424480496847277`*^9, 3.760723259859252*^9, 3.7607283994331493`*^9, 
   3.7607301134737935`*^9, 3.7607304093877945`*^9, 3.7609888770419316`*^9, {
   3.760990294712338*^9, 3.7609903239314384`*^9}, 3.765631991866468*^9, 
   3.765736129103582*^9, 3.7657380319681225`*^9, 3.766162433868232*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"7f7105d0-eee1-47ce-a7b5-ad6c7d0c4b63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintDColor", "[", 
   RowBox[{
    RowBox[{"Bfield", "'"}], "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"DColor", "[", 
        RowBox[{
         RowBox[{"Bfield", "'"}], "[", "t", "]"}], "]"}], "[", 
       RowBox[{"[", "Color", "]"}], "]"}], ",", 
      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, {3.7385815260034475`*^9, 3.738581556662201*^9}, {
   3.7385818338020525`*^9, 3.7385818374862633`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"e9c2733e-38a9-433b-bbaa-f4a10337a22d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"-", 
        SubscriptBox[
         OverscriptBox["\[Psi]", "."], "4"]}]},
      {
       SubscriptBox[
        OverscriptBox["\[Psi]", "."], "3"]},
      {
       RowBox[{"-", 
        SubscriptBox[
         OverscriptBox["\[Psi]", "."], "2"]}]},
      {
       SubscriptBox[
        OverscriptBox["\[Psi]", "."], "1"]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7424480497700577`*^9, 3.760723259866846*^9, 3.76072839944975*^9, 
   3.7607301134939566`*^9, 3.760730409407194*^9, 3.7609888770548983`*^9, {
   3.7609902947280183`*^9, 3.7609903239470406`*^9}, 3.765631991866468*^9, 
   3.7657361291145535`*^9, 3.7657380319790926`*^9, 3.766162433883192*^9},
 CellLabel->
  "Out[30]//MatrixForm=",ExpressionUUID->"cea4ef1f-1c43-4fa4-83ed-\
c7a9ca3af467"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Da", "[", "1", "]"}], "[", 
  RowBox[{"Bfield", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"8feabe6e-f362-4b52-b0c1-78182f8f0583"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.742448049855242*^9, 3.760723259892758*^9, 3.760728399463937*^9, 
   3.7607301135241847`*^9, 3.7607304094288864`*^9, 3.760988877068906*^9, {
   3.7609902947280183`*^9, 3.760990323978294*^9}, 3.765631991882089*^9, 
   3.765736129131508*^9, 3.76573803199505*^9, 3.766162433897271*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"9340a8a5-d0cc-4144-9867-12de203cc7d3"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3X+Q3PWd3/kW9h93YVSF9JdVuyTkBDEu60JslquD2Am4AuUNe8jZLYUS
cCxQy0rK2ithDslyWYLYEj57KNtSYouUM+u1lsRDzmMnjFNWdpm1kXOarWW8
jAM6LGyNLdlokVghZEmW0Ixa11o8X77vHk1P9/Sv77e/j0fqeam7AzSaac30
5/N9qfz371v7279/SalUevB/qvw/fvveDTd99KP3bvydyyr/Lyv+8ME1q/7w
/t/7zT/8v+5fdf9H//f73lb5//hCpQ/+z6XS2yv/93kAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAovHLo
1OjnQnds+E+hvSemQg2ZfDm0Z8dHQncOvBg6V/lX0gEAAAAAAAAAADTGPgoA
AAAAAAAAAOhV9lEAAAAAAAAAAECvso8CAAAAAAAAAAB6VVwh/WJkY2hJqRTq
u2lj6MlnX046XZ4MnZj4TmjHqveF+q5cExrcfyoEAAAAAAAAAADQHPsoAAAA
AAAAAACgV9lHAQAAAAAAAAAAvco+CgAAAAAAAAAA6FWN7aNKTbSg7zdDDz/9
s9Bk5SNIBwAAAAAAAAAA0Bz7KAAAAAAAAAAAoFfZRwEAAAAAAAAAAL2qeh/1
8dA1t94Vun/FjaGlpVLSwms/FPrIlj8O/fnE8VC58iumAwAAAAAAAAAAaC37
KAAAAAAAAAAAoFfZRwEAAAAAAAAAAL3KPgoAAAAAoD3iLejka8+HvvWn/1/o
VOWfSgftdyg0+p9HQwd/eS4EAADUy3kwW6r3UZtCvzXwYuhc1b8Bvc3dAAAA
AADNcB9O1rkDBQCA9nAezBb7KJiduwEAAAAAmuE+nKxzBwoAAO3hPJgt9lEw
O3cDAAAAADTDfThZ5w4UAADaw3kwW+yjYHbuBgAAAABoRNX996E/DT1876dD
Tx86E4LOmwqdeOGrodVrYntPTIUAAIBpzoPZZh8Fs3M3AAAAAEAj3IeTN+5A
AQCgNZwHs80+CmbnbgAAAACARrgPJ2/cgQIAQGs4D2abfRTMzt0AAAAAAI1w
H07euAMFAIDWcB7MNvsomJ27AQDIl8nQoaFVoVKplMsWXHpt6Na7VofW9w+E
hnbvCx2rfDrSQWucCe3f+emkP5k4EwKAIikf+U7o4eVrQ4P7T4XImnimOPLd
raGbrn4gafjQ2VDj4rOT0/u+FXps61eSRo9Mhtor3okef/YLoQ/d+0Toh6fL
IaCG8qnQobH/nLRj8wOh1at+L3T33XeGVqy4K7R2y0DoW2M/T7rwRzMdzFd5
8qWkwXv/aeh3v3EgFH/KARSD82DW2UcxX/XdEzR/V1D/PUH77wrmfzcANKDG
PUGzdwW17gncFeTAq98OrV26MNTtDUv99YWW3rgitHp9f9LAt74fOnT6XIhq
9lH2UXSOfRQAXIz78Lyzj7KPgjayjyLn7KMAanMezDr7KObLPso+CtrEPorZ
2EfZR83JPso+is6xjwKAi3Efnnf2UfZR0Eb2UeScfRRAbc6DWWcfxXzZR9lH
QZvYRzEb+yj7qDnZR9lH0Tn2UQBwMe7D884+yj4K2sg+ipyzjwKozXkw6+yj
mC/7KPsoaBP7KGZjH2Uf1WLl00dDE898LnTbwlIofB1veiw0+trZUHPiu+7T
xw6FJsZHQl/77H2h6yofa7qF//SB0MD3DiT5vse8lQ+Ehj6yPWnsTDkEAL0u
Piu8LfTArpdDnhVmXHkiNLhyaWjBorVJTx2eDDXutdDolptCl5RuTdo2fiLU
WSdCL+y4M3Tz1u+F4u8Kiu3ciedDgxvWhh4e3JO0/9jZ0Jxm3KF+PbT19uuT
PrBhKPTSiakQzO506MDgqqTFpVLoyv6xUFwcA/Qu58E8qb2PunXHM6H/8dS/
DW1Y97GkLf2fDm1a9+HYwHdCE5X3XOnImTrvCZq/K6j/nqDzdwX13w24F4DZ
NXJP0OxdQa17AncFPaB8Oum1sR2h2ypn9HTVG6V3rftm6MDpc6GWmjwROrTv
v4cGN/+LpKWVjzVd340Phb629/WQ99aNsY+yj6IJ9lEAkHAf3kPsoy7CPgrm
yz6K/LOPApiL82Ce2EcxT/ZR5+2joDXso2gZ+yjvrRtkH2UfRRPsowAg4T68
h9hHXYR9FMyXfRT5Zx8FMBfnwTyxj2Ke7KPO20dBa9hH0TL2Ud5bN8g+yj6K
JthHAUDCfXgPsY+6CPsomC/7KPLPPgpgLs6DeWIfxTzZR523j4LWsI+iZeyj
vLdu1uRYqH9pKZTeRy24eyj015V/PV1nVe2pDn43tP3u94QWlK5OWr716dCh
yXIIZnV8JLRx41u9Xvn/nQ6APItPto7s+WLonuveG7qtf0+od+9Dqu6EHl+Z
dPWap0KHKm+p0pFt5cPDoTWLSqG+lU8mHah8PdM17I3nQttuuCy0YNmjSaOn
yqGuOv2D0I7bPhCq9QwIel36+ejfPiP9gwdDAy+8Hmrnn49zJ8aTHr/9XaGr
7nki9MPT5RBMKx/+duiBdy5MCn+PsNKvrR8JuRsAepfzYH5V76M+Hrr6ug+H
Bsb/JlRz91s+Fnpu+4rQops+FXr60JkQ2VbvPUHTdwUN3BN0/a6gxt2AbShE
870naPWfl/Q9gbuC3lKe+GpoeeWMnu6S0rWh9SOvhrr7wR9NGt16S6j63qF0
1ZrQ4P5TIRpkH2UfRf3sowAKwj7q4tyH9yr7qDrYR8Gs7KPoNfZRABfjPJhf
9lHMj33URdhHQd3so2g3+yj7qHmxj7KPon72UQAFYR91ce7De5V9VB3so2BW
9lH0GvsogItxHswv+yjmxz7qIuyjoG72UbSbfZR91LzYR9lHUT/7KICCsI+6
OPfhvco+qg72UTAr+yh6jX0UwMU4D+aXfRTzYx91EfZRUDf7KNrNPso+al5y
u4+q7dyJvaEnVl2bVCpdHvrA5j8N2UvxlvgT+czY9tCHhw4kea8L0EOmng/t
eN+i0Iz3p+/fEdo7dT6UX/Gn29l9A6Hll92RNLDvVIisi1/bU6OPht5dWhS6
YdtzSW9U/o10Df/KBwZDd1xaCi1ePZx0uPLhpeuuqdDRkU+E3nl1bOToVBL0
nvid4OWhh0P/eveRUGfPSm/9SqdfeDx0W9/loZu3fT904adXOgqkfCS0e/NN
oRnv/XJ6VwbQGOfB3hG/lpOHxkPf2/d6qKn3bkf/LLTh6kWhq9Y8FbKly5rZ
7wpq3RM0e1fQyD1B9+8KZr8bqHUv4G6AYpj9riAr9wTN3hWQBanvwbseDC2u
nNHTva10Z2jnxJlQVpRfHgrde1kpVCr1ha7e9EzI39NqkH2UfRQ12EcBFJJ9
1K+4D+9d9lGNs4+Ct9hH0WPsowAuwnmwd9hHUS/7qLnZR8Hs7KPoBPso+6gm
2UfZR1GDfRRAIdlH/Yr78N5lH9U4+yh4i30UPcY+CuAinAd7h30U9bKPmpt9
FMzOPopOsI+yj2pSj+6jqpVf+27S5usuCy0oXRX6lwMvhH5Z+ffTUSSnQz8c
2BQa2Hc6CYAeUn41NNq/InTldfeHdjz7N6Ge2cyWD4dGNrwv9K4NTycdrfzj
6ci6E6HxbbeGLindGNoyeiypcZOhw8NrQ4tLS0Mrn5xIyvSfpbPPh3bcfGXI
5oKedvLZ0GevvyzU9967Qv27/zrUsT/X5QOhoXvfFSotXhMaenkyRC+LP2F+
Of6l0F2PfDq08ZpLk2ZspN67LfTc1PkQQG45DzIf5YnQ4MqloQV9d4Rs67Jm
9ruCWvcEzd4VNHJPkLm7gjrvBdwNUAg17goauSfI8l0BWXA8aaz/n4VmnNev
6Q+NnSmHMqP849DO5ZeHZvy+rtga2lP5vaRjDvZR9lHUYB8FUEj2UW9yH97D
7KOaZh9FkdlHkXv2UQBzch5kPuyjcs4+qmH2UfAW+yg6wj7KPqpJ9lH2UdRg
HwVQSPZRb3If3sPso5pmH0WR2UeRe/ZRAHNyHmQ+7KNyzj6qYfZR8Bb7KDrC
Pso+qkn2UfZR1GAfBVBI9lFvch/ew+yjmmYfRZHZR5F79lEAc3IeZD7so3LO
Pqph9lHwFvsoOsI+yj6qSQXZR50/P5V0dOQToasrv7d03qOTqP4Z+ZHtoUx+
DwWAeYsn0bP7BkLLF34w1D/2ehI5M9ed9aK1oacOTyY17rXQ6JabQpeUbg1t
Gz+RlG1vhA4M3hfqW/JQ0q6jUyHIu6m9O0L/uHKOTlcqLQq9f8fzoXOV/8Z0
7XUm9JOdd4ZKpXeEbh54MZT+ONv/sdJRZ/eGBu78ZGjk6E9DQ3cvTXIvCfQu
50Fa4dXQyPr3hhaUloVWD/8slJnNS1HVuCuodU/Q7F1BI/cE2bsrqO9ewN0A
RVDrrqCRe4Is3xW4J8iAcy8mDdy8JFR9Xl+07tuh7G76D4bSdxAXu4d4e2lV
aOjQ2RBzsI+yj2J29lEAFIr78MKwj2oB+yiKyz6K3LOPArgI50FawT4q1+yj
5sE+CqbZR9ER9lH2Uc2yj7KPYnb2UQAUivvwwrCPagH7KIrLPorcs48CuAjn
QVrBPirX7KPmwT4KptlH0RH2UfZRzbKPso9idvZRABSK+/DCsI9qAfsoiss+
ityzjwK4COdBWsE+Ktfso+bBPgqm2UfREfZR9lHNKsw+KuWN50LbbrgsVCr1
hd614elQdv/s0HLHR0IbN8YunP6nA4D8OxYa6/9gqHTD9tD4G+Uk8qV8eDi0
ZlEp1LfyydCBypd4uobN8d57wbJHQ6Onykl5Un55KHTv4qVJK5+cCMUnT5A/
5df2hPpve0/ounu+GBo9Mhnq4EcaOjO6NXRFqRQqLf+T0ETlX0tHnp0OHRj8
WOiju14Olc+/Gko/13UvCfQu58HeMRk68r3+0G1X/ZPQmqEfhS789ErXmNr7
qEb26XRerbuCWvcEzd4VNHJPkOW7glr3Au4GKIJadwXZuSf424/0/HzvCtwT
dN+5Q0NJ9ywshUqly0PLd/4olNnvu1PPh3a8b1HI39NqMfso+yhmZx8FQKG4
Dy8K+6jWs4+iSOyjyB/7KIC5OQ/2Dvso5sc+qjn2URSdfRSdYB9lH9U0+yj7
KGZnHwVAobgPLwr7qNazj6JI7KPIH/sogLk5D/YO+yjmxz6qOfZRFJ19FJ1g
H2Uf1TT7KPsoZmcfBUChuA8vCvuo1rOPokjso8gf+yiAuTkP9g77KObHPqo5
9lEUnX0UnWAfZR/VtCLuo86fCI1vuzVU/Rpb0HdXaOf+MyF619TegdBDQz8N
ZfJ7KADM18k9oS3/66LQsi17Qqcq/8p0ZF08/Z0afTT07lJfqJVf6/KBwdAd
l5ZCi1cPhw5XPsTpzh9/JvTwR4dD6X/2cLffkJV/HNq5/PKkSz+0M7T/3PkQ
0BmTY/2hpZXzfjr3S72rfPjboQf/4D+FDkyWQ9X3RmP9NyZV3xm9rXRnaOfE
mRBAbjgP9pDXQqNbbgq19++H/zw0vHpZ6JLSjaEto8dCdFr9dwW1vgc0e1fQ
yD1Bpu8KatwLuBuA7GrkrsA9QTecC/1iZGPSksrXJ90lpZtD/WPHQ1k11/15
9T3EnD8nqc0+yj6KWdlHAVAo7sN7mH1U29lHQebZRxWXfRRAHZwHe4h9FPWy
j2op+yjIJfuorLOPso9qMfso+yhmZR8FQKG4D+9h9lFtZx8FmWcfVVz2UQB1
cB7sIfZR1Ms+qqXsoyCX7KOyzj7KPqrF7KPso5iVfRQAheI+vIfZR7WdfRRk
nn1UcdlHAdTBebCH2EdRL/uolrKPglyyj8o6+yj7qBYr5D4qvuc7uXtz6Ncr
v9d0pdI7QjcPvBhK/6kk786E9u/8ZGhg3+kQAORb7XuwZaVrQ+tHXg2RJ3P9
/YAWvt8tHws9t31FqK+0JDTz1yonnRp9LHT/4EQovoK77XTopYEVSZ6dQ7fE
7xJnRreGrqic99O9vbQqNHTobIgcKR8J7X74wdDAvlOhmd4IHRy8N6n6XrL6
OW//2IkQQHY5D/auqdDRkYdDH9r87dCB0+dCTTn6Z6ENV/eFFi4fCO07Ww7R
afXfFdS6J2j2rqCRe4Js3xXMfi/gbgCyZP53Be4JuiEucvfuWJ4043x+2YOh
XUenQtny1u/ppYE7Qn2V30u6S0ofDPWPvR6iQfZR9lGk2EcBUCTuw4vDPqr9
7KMge+yjCss+CqAOzoO9yz6KetlHtZZ9FOSDfVS+2EfZR7WYfZR9FCn2UQAU
ifvw4rCPaj/7KMge+6jCso8CqIPzYO+yj6Je9lGtZR8F+WAflS/2UfZRLWYf
ZR9Fin0UAEXiPrw47KPazz4Kssc+qrDsowDq4DzYu+yjqJd9VGvZR0E+2Efl
i32UfVSLFXIfFZUnvhpaXvm9pqv+s1Va/iehicq3z+nIu1dCuz7+pdDYmXII
APJt9rPFhd5eujf0tYNnQ+RIeSI0uHJpqPr9bq0765n/7eOh/d/aFtr8yQdC
v9W3NLTyyYlQ+fzPk3ZtfDT0345MhrJl9ruVK0rLQquHfxbK1s4LWqB8KnTo
ByOhwS99NmnL1lh/f3/oC9v+bWj7jv8Y+vOJ46H4Z2n2jcvFdi72UXmX+ntw
44+H/tXjPwj9svJPpZup6rnyrgeTFldeK+kWlK4Jrdt1OASQXc6DhVF+PfTC
f9ge+nff3R/6xWQ5VPM/fXoitGvzPw+98/bPh545dCZElzVwV9Dwtq2Bu4JG
7gmyfVcw1+bC3QAF1sA9QbN3BbXuCZq9K3BP0AXlH4d2Lr88acY+6paB0L5z
50Nd/o2EJg8MJa26qi9UKi0K/W8b/iz0auU/kY4G2UfZR5FiHwVAkbgPLwz7
qA6wj4KEfRRdYR8F0BjnwcKwj2I29lEtZh8Fs7KPYr7so+yjWs0+yj6KFPso
AIrEfXhh2Ed1gH0UJOyj6Ar7KIDGOA8Whn0Us7GPajH7KJiVfRTzZR9lH9Vq
9lHny0d3hdZeVgrN2Ect2RgaOX4uidlU/Zk/tCfpK5WfY+m+8PnNoXWrPxl6
4tlXQhfe7aZrysndoUc+PhK68L/gma4R5048H3pyw4dCv3Fbf+iZyvv46QCY
j/iz5+yRsdDg9i+Etn3h4aSO/uzpphpni789XyztD41VfrPp8qJ8+ueh739j
e+hjq1Yk3XjVdaF/fve60Javfic0cWIq1F7x7P7Xw9tDT+w7nTTjc3B4OLRm
USm08NaNoS9u+1ho1ar1SVv6PxXasOHzoa+PvxKaLB8PTezaHlp9z9rQJzY8
kvT4npdDefqzVz44mHR75QyR7vJNu0MnK/98Osi++P3otReeCvXf85uh2zY8
EfqLQ6eSGn0GUP09ffQrXwh9Zfy1pPL5Y6HRLe8PzTjrX7E1tOdMOUTGnd2b
NPB7nwuNHp8KNWpyrD9paeW1km5BaWno7m8cDAFkVo+eBxs5/1WfAfN6/rvY
GbCm6mfUY98Mbd/wQOihLZ9N+uymtaF7124NDXxrPHSk8mlKlxXNvE4afa20
V3Ovk0buCmrdEzR7V9DIPUGe7grS9wLuBiiG2e8KGrknaPauoNY9QbN3Be4J
Oq/WjqP6a/X3toyGLiyx03XTuRPjocdv/wdJpdI7QteteSK0t/J+Ih1Nso+y
j+oI+yj7KIBOs4+aU4/eh1ezj7KP6gZ3oPQ2+ygyyD4KoDE9eh60j6qDfZR9
1PTnwT6qreyjKB77KFrPPso+quXso+yjOsI+yj4KoNPso+bUo/fh1eyj7KO6
wR0ovc0+igyyjwJoTI+eB+2j6mAfZR81/Xmwj2or+yiKxz6K1rOPso9qOfso
+6iOsI+yjwLoNPuoOfXofXg1+yj7qG5wB0pvs48ig+yjABrTo+dB+6g62EfZ
R01/Huyj2so+iuKxj6L17KPso1rOPqqhz8GF3l66N/S1g2eTmFa9h3o69Fj/
cNL+X0yFqn9+Hhy8N1S66oHQ8KGzoWZM7R0IPTT001BjP4+nQkd3PRhaXHkt
pav+3nfzwItJF5Z36QCYW/nId0Kf/tgToZnvKbvzs6erjo+E1i8phfLz3q/2
+46tt70zNOOM21B9oSvv+eNQW88qJ58NPfbgN0OHKr/96ao/J6dGHw29u7Qo
dMO250Lx3RjzUut8sfxPQhOVL1M6yJzy66EXBh8K/dOF7wndM/A/Qicqr+t0
rf3YDodGPv3vk8ZO7g0N3LwkVP09/pJbBkL7KoevdGTN6dCBwY1JG0cOhxq9
W69Wnvhq0vLKayVd9evoyv6xUFaf1wHk9zzo/Fd9/jvkDDGL2V8rrX2d1H6t
ZOt1Mv+7AvcE8zDXs0d3A+RdA3cFWbknaPauwD1BJ8SfVSd3bw79euVrMt2C
0jWhdbsOhzor7gJO7N8V6r/9mlCp731Jv7/jv4cOTZZDtJh9lH1UW9hH2UcB
dJd9VB1yex9ezf24fVQGuQOll9hHuffMJPsogKbk9jzo/GcfVS/7KPuoLrOP
otfZR9EW9lH2UW1mH2Uf1Rb2UfZRAN1lH1WH3N6HV3M/bh+VQe5A6SX2Ue49
M8k+CqApuT0POv/ZR9XLPso+qsvso+h19lG0hX2UfVSb2UfZR7WFfZR9FEB3
2UfVIbf34dXcj9tHZZA7UHqJfZR7z0yyjwJoSm7Pg85/9lH1so+yj+oy+yh6
nX0UbWEfZR/VZvZRDe+jLindGOofO5HEtIOh4Y9/MTR6fCpppjOhn+y8M7Sg
dHVo9fDLocbEX2v/zk+GBvadDjXj3Inx0OO3/4NQrTtV96nUL55Uj038IDQ2
Nqam+qvQ3kMnQ80+d6FZPw/t+nh/aOToVGimTv3syY7ywcHQ7ZWfP+n+3pbR
UPyp2dWP/Hy84/zT0OYPXB4qLb0ttO4LO0NPjexJGnt2d2jXk18KbVpxXahv
weWhm7d9P3Sq8hFO17j4Pf3loU2hh3f/TSg6ERrfdmuo+v3sltFjIVqg/OOk
ncsvD5Wu2Brac6Ycgq6rvuMc+L3QVZXvd+lu7v+L0PHKyzhdmz/Y0Bvjf5T0
6L/fFrpnYSlUfQa7fNPu0MnKfzEd2VI+vCu08cHhpJY/Mz40lHR35bWSzusI
yKv8nAfbd/6rPgO28vzX+BmwmfMfb6r/tdLM66TR10prXycXNPM6mf9dAfOQ
uhdwN0BPaOKuICv3BM3eFTjfdUL8u1AvDawIpb82byutCLXyuf6bUu8rThwO
/eSF3aGvP3Zv6Lqrbgmt2vLV0Mi+o0l2AB1mH2Uf1Rb2UdXso+gM+yj7qCKz
j2pUfu7DZ3zk59t1P24f5d6zZdyBkmf2Ue49c8A+CqA5+TkP2kfZR9XLPso+
KmPso+g19lHOdx1hH0Wb2UfZR7WFfVQ1+yg6wz7KPqrI7KMalZ/78Bkf+fl2
3Y/bR7n3bBl3oOSZfZR7zxywjwJoTn7Og/ZR9lH1so+yj8oY+yh6jX2U811H
2EfRZvZR9lFtYR9VzT6KzrCPso8qMvuoRuXnPnzGR36+Xffj9lHuPVvGHSh5
Zh/l3jMH7KMAmpOf86B9lH1Uveyj7KMyxj6KXmMf5XzXEfZRtJl9lH1US8Sf
Nae+/8XQg0M/DdXeD8Tn28Orl4UuKV0bWj/yaqgxr4R2PfSFUGvfj8bP0dl9
A6HlCy+P7fxRks0FdZv6YWjnb18dqv5+pkZ7R+g3Nn0n9FrlS5COdqs65zy3
I7Rq50uhc5V/Kt1MnfrZkx2TY/2hpaW+0D/aNh6a+3PYGeXJfaGdK98T+sCm
/xLad+xsqLlf+2jouZ0fDl172ZrQ0MuTSQ1747nQ9t//49C+s+VQ/EAnQoMr
l4YWLFobeurwZIhWSH1PWXV16O2lVaGhQ2dD0B1vPfE8tOsToesq74PSLbx5
e2j8VDnUVce/k/TJG64JLa587OkWlK4Jrdt1OETGlI+Edj+yOTR44HRSyzVw
Z9Szd2dAz8nLeTCv57+Gz4DNnP/4W428Vlr5Onnz1579tdLS18kFzbxOmrgr
YD6qnnW5GyB34jq6mbuCrkrdEzR7V0AHlA+Ehu65MhTO4ItvDa39TH+ov7+N
bXkodM+/vDO0tv8/hJ4emwgdq/xonY4Os4+yj2oJ+6i52UfRAfZR9lGFYh/V
rLzch1fL6/14w+yjcs4dKHljH2UflXH2UQAtlZfzYF7Pf/ZRnWcfZR+VPfZR
5J19lH1UF9hH0W72UfZRLWEfNTf7KDrAPso+qlDso5qVl/vwanm9H2+YfVTO
uQMlb+yj7KMyzj4KoKXych7M6/nPPqrz7KPso7LHPoq8s4+yj+oC+yjazT7K
Pqol7KPmZh9FB9hH2UcVin1Us/JyH14tr/fjDbOPyjl3oOSNfZR9VMbZRwG0
VF7Og3k9/9lHdZ59lH1U9thHkXf2UfZRXWAfRbvZR81jH7U89KW9p5KK629C
ux/+ZKiRZ27lA4OhOy4thVr6PO/k7tDDD+4KHa38I+laqvzj0M7lN4Y27T6a
BMDFxEXa6NaNocEDb4TmUj48nLRmUSlUWvJQaNfRqVB+xBvtX4xsDC0pXRm6
+xsHQ93zRujlobWhW7Z+L9TRrWL5WOi57XeEPjjwYtLczxOmQkdHPhPauOuv
Q7X20+nX88Ve030rnwwdqPwH0tEKJ5LG+m8Mva10Z2jnxJkQdEP58LeTHnjn
wtCC0rLQ6uGfhTL19zka2bH03Rdq9L0D7RZfWSfHHw/9wcDe0IUnSNO13NTz
STvetyg0487oloHQvsoP/XQA3ZOn82D+z3/VZ8CZWnf+K6753xW03TxfJ42+
Vhp9nTRzV8B8nDjvboA8S98TNHtX0FUN7gBq3RXQAcdHQuuXlELpr9Widd8O
tfW5/lzKJ0MHd//b0N1XLQ4tXf5I0jf3HQ9539dm9lH2US1hH9Uw+yiAJtlH
NS5P9+Fp9lH2UXnkDpR8sY+yj8oe+yiA1srTeTD/5z/7qE6wj7KPyjr7KPLN
Pso+qivso7zvazf7KPuolrCPaph9FECT7KMal6f78DT7KPuoPHIHSr7YR9lH
ZY99FEBr5ek8mP/zn31UJ9hH2UdlnX0U+WYfZR/VFfZR3ve1m32UfVRL2Ec1
zD4KoEn2UY3L0314mn2UfVQeuQMlX+yj7KOyxz4KoLXydB7M//nPPqoT7KPs
o7LOPop8s4+yj+oK+yjv+9rNPur8+TOjoS1XlEIz7rr6PhIaPjKVVFjlA6E/
//pYqPY59Uxo/867Qn2Vz3m6X1s/Enq98m+la8TU3i+HVu38Uai9338Ohobu
XhP62sGzSTNVnf2+uz207p7/M3T33b8TunHpTaEto8eSAHKjfDi05+v/PXSo
8o073Uzxe+mBwfuS+kp9oas3PRNq5mdPd02GDg2tCi0oLQ1lZh918tlQ/x1f
DI2fLoe66uifhTb8zh8lzfl8tDwRGvzw9tDYqXKolnOHngqteec/iQ39KJR+
ptyW58qFNPsd6CWlWP/YiRCtVz70naTH1t4Xuvvuu0IrbnxXaNmWPaELfysm
XX4dC431fzBpxt1gK/+OSrsdGU5avbAUqv592Ypm3Nm9oYEPPx4ar/wsTNde
6bP70lD166q0tD80Vvkjkg6ge3J0HuyB81/1GXCGFp7/CisvdwUNvE4afa00
+jpp5q6A+ai9j3I30Gmeq81t9nuCXN8VpO4Jmr0roP2mxr8Qek/la5KuVLo8
afnOH4WytSuK770PD68LLan8XqYrXbUmNLj/VIgWs4+yj2oF+6h5sI8CaIp9
1Dzk6D48LS93nhfYR5FwB5ol9lEXYx9lH5Vx9lEALZaj82APnP/sozogL3cF
9lEFZh+VLZ6rzc0+yj6q++yj7KPazj7KPqoV7KPmwT4KoCn2UfOQo/vwtLzc
eV5gH0XCHWiW2EddjH2UfVTG2UcBtFiOzoM9cP6zj+qAvNwV2EcVmH1Utniu
Njf7KPuo7rOPso9qO/so+6hWsI+aB/sogKbYR81Dju7D0/Jy53mBfRQJd6BZ
Yh91MfZR9lEZZx8F0GI5Og/2wPnPPqoD8nJXYB9VYPZR2eK52tzso+yjus8+
yj6q7eyjzlcOgKG7K7/XdDPuut6/I7R36nwS83DuxdDAzUtC1e8R0+85Gn/f
Ub3F2hz60t5TobYq/zi0c9WXQw29riZPhF59+Xuhbf/sHaFa71kACqPGz5/W
/uzJkhzdh6dMvfCV0Pqhn4ayde6Jq/DRLR9LSm+f39w/x4/8jed2hFbtfCl0
4Zo0HVnnDjRb3vred+LVA6HRbf8itKC0LLR6+GehbH3PacLxZ0Kb3rUwqfoM
/Hfu+UZo7g1yJ8WvyJnv9yf9w8rHnm5B6erQvd84EOqZr21unQ4dGFwVWlz5
GqabcVeTkWr9nbpC/726rDr349DgHctC3X495a6l94e+NnEmRLfl5zzYC+e/
6jOg81/r5eeuoP7XSaOvFa+TrLOPyjTP1WaqcU+Qr7uC2e8Jmr0roB3is/uf
7LwzNOPMXVqe1NHn+s06uTu06e+Wkqp/j4tXD4cOV1586WiSfZR9VLfZR9lH
AXSDfVSm78PT8nPneYF9FNPcgWaLfdQM9lH2UZljH0UX2Ee1NvuojMvPebAX
zn/2Ue2Xn7sC+6jiso/KNM/VZrKPso/qCvuo6t+jfVSb2UfZR3WbfZR9FEA3
2Edl+j48LT93nhfYRzHNHWi22EfNYB9lH5U59lF0gX1Ua7OPyrj8nAd74fxn
H9V++bkrsI8qLvuoTPNcbSb7KPuorrCPqv492ke1WSH3UY19XyyV+kLLtuwJ
XfjTNh2NO7fvj0K3VD7n6RYsezQ0eqocaswroV0P9od2nyyH2ql84MnQ7/c/
G0r/NGj4v314OLRmUSl06Yd2hvZXDk/TAfSuqvul8e2h6xeUkko3bA+Nv1EO
5Vd+7sPzK95Ovj7y2aR/vftoaMYd6aNbQul7lp66aykMd6DZ9fPQ8OploQV9
d4V27j8Tyq/4c/Dk7s2hX6+cvaYrlS4PLd/5o1B2njVdEDc1Lw2sSJrx3H7J
Q6FdR6dCdFf58K7Qxx/+89CFn5zpOmv27+nVr7O3l+4NzXzmSbacCh0c/a+h
oaEhNdLwX4QO/rIcotucB1tv9vNf9RnQ+a/I6n+dNPpaIevso/KkuM/V6rsn
yNddwez3BO4Ksqjq2f3aa0Izvl6XP5zUyef6zTsYGrp7adLM1+TG0MjxcyGa
ZB9lH9Vl9lH2UQCdYR/lPrwT7KOY5g40u+yj7KPceWaRfRTdYR9lH1UkzoOt
Zx9FPeyjiss+Kk+K+1zNPspdQbfZR9lHdZh9lH1Ul9lH2UcBdIZ9lPvwTrCP
Ypo70Oyyj7KPcueZRfZRdId9lH1UkTgPtp59FPWwjyou+6g8Ke5zNfsodwXd
Zh9lH9Vh9lH2UV1mH2UfBdAZ9lHuwzvBPopp7kCzyz7KPsqdZxbZR9Ed9lH2
UUXiPNh69lHUwz6quOyj8qS4z9Xso9wVdJt9lH1UhxVyH9XY98VLSh8M9Y+9
HmI+an3+69+jNbxJO7k79PCDu0LtvW+NH/kPBz4e2jZ+ItSY+K7j1OijoXeX
FoVu2PZc6I3KvzUdQO86Fhrr/2CoVHpH0s07ng9deJKVLr+mQkd3PRhaXFoa
ch/evPLEf0x6cOePQueO/rfQxx55JnThXWY68qbWHejy0Jf2ngrRZif3hLYs
6wv17kb2TOgnO+8MxTPwzaH+seOhTDn3Ymjg5iVJC0pXhJYP7A31zs/3nCof
Ce1+ZHNo8MDpUHfNvieYeYfkOReQVc6D7ZY+/1WfAZ3/mFbrddLoa4Wsm2sf
5W6guzxXe1N99wS5uiuocU/griCDqp7db/q7pVD163DRum8ndffvUTWo/JPQ
4O1/L2nm37taFRo6dDZEk+yj7KO6wj7KPgqg0+yj3Id3nn1UkbkDzSz7qPP2
Ue48M8E+CqDDnAfbzT6KethHFYl9VLZ5rvYm+yh3BV1mH2Uf1Wn2UfZRXWEf
ZR8F0Gn2Ue7DO88+qsjcgWaWfdR5+yh3nplgHwXQYc6D7WYfRT3so4rEPirb
PFd7k32Uu4Ius4+yj+o0+yj7qK6wj7KPAug0+yj34Z1nH1Vk7kAzyz7qvH2U
O89MsI8C6DDnwXazj6Ie9lFFYh+VbZ6rvck+yl1Bl9lH2Ud1WhH3UeWJ0ODK
paHq1+DC5QOhfWfLIeahfCBp6J4rQwsWXB/atPtoqBlTe78cWlU5b6SL74Za
7OhI6OEHh0OHKr9gusbE99nj224NVd/Pbhk9FqKXvBE6NvGD0NjYmJrqr0J7
D50MtfV7CM2b43n4gr67knbuPxPqVZNj/aGlpctC79/xfOhc5d9Jx9zKR3cl
PfTY/xv66dCW0GNjr4fIu1eSdq29JuSM2w1v/YR+Y3x76PrSpaGW/v2MTKl9
Nx/uPPs+Eho+MhXqrqo77LHHQtdXPv7pSld/IjRydCpEp8Wv3cnxx0P/6vEf
hH5Z+afSdVetPUEpdEnp2tD6kVdDAFnhPNh66fNf9RnQ+Y9ptV4nXiu95pXz
7gayzHO1N9V3T5Cnu4Ja9wTuCrJnau+O0D+ufI3SLSgtDa18ciIpV8/kauzA
qv+sld67LfRc5WWZjibZR9lHdYN9lH0UbWIfZR/FrOyjZnAf3n7uPIvMHWi2
2EfZR7nz7D77KPsoIEucB1vPPop62EcViX1Utnmu9ib7KHcF3WUfZR/VcfZR
9lHdYB9lH0Wb2EfZRzEr+6gZ3Ie3nzvPInMHmi32UfZR7jy7zz7KPgrIEufB
1rOPoh72UUViH5Vtnqu9yT7KXUF32UfZR3WcfZR9VDfYR9lH0Sb2UfZRzMo+
agb34e3nzrPI3IFmi32UfZQ7z+6zj7KPArLEebD17KOoh31UkdhHZZvnam+y
j3JX0F32UfZRHVeYfVT93xcvKd0U2rz7SChXf9ayqsZr7u2le0NfO3g21Jgz
of07N4e+tPdUqKXKR0Lfe/SR0OD+U6Hmfq3am78Fi9aGnjo8GaKHTP0wtPO3
rw7N+BmrBntH6Dc2fSf0WuVLkI5ui7e3vxjZGFpS+Zqm61v5ZNKByg/4dDPF
LeLLu3eFxo5NhbLq3L4/Ct1S+Tyku7J/LHThJ0Y66pB6z/O5R7aH/s2qHaHx
N8oh8u5g0tDdS0OlJRtDI8fPhWiHt75nHxi8L7SwtCy0evhnod45/8Wz0U92
3hkK73mW9ofGKt/003VV6u/a/O3ft7n3XaH0LmX1NyZCfo512dm9oYH7PhPa
/dpUKKtm7glKoeq727u/cTAEkBXOg21Q9azF+Y+LqvE68VrpNQfPuxvIMM/V
fqXOe4Ic3RXUuidwV5AF8TN+aGhNqO/Cs5pUbyutCA3sO52UbVPn49+1eiiU
fjZVKi0K3bDtuVB8GkXT7KPso7rBPso+ivawj7KPIsU+ai7uwzvAnWeBuQPN
Fvso+yh3nl1nH2UfBWSK82Ab2EdRD/uoArGPyjTP1X7FPsp7nE6zj7KP6jL7
KPuobrCPso+iPeyj7KNIsY+ai/vwDnDnWWDuQLPFPso+yp1n19lH2UcBmeI8
2Ab2UdTDPqpA7KMyzXO1X7GP8h6n0+yj7KO6zD7KPqob7KPso2gP+yj7KFLs
o+biPrwD3HkWmDvQbLGPso9y59l19lH2UUCmOA+2gX0U9bCPKhD7qEzzXO1X
7KO8x+k0+yj7qC4ryj7q9A+Sdtx2RahUujz0ga3fC3X2eXd8lnv64O7Qzi0P
JK1a/6nQZzd9LPTwk8+Hjv9iX2jkm98NvXRiKqntau6jVoWGDp0NNeaV0K4H
+0O7T5ZDzYnPG14e/lToo0MToVb+vC0fHg6tWVQK/Z2VXwn95V99M9S/YWPS
ls9uCq1b/cnQE8++EvK+Aciun4eGVy8LLSjFGnoWXn1+/sjjobzcXZWP7gqt
vawUyvV7v6wI73mWhG4eeDEU3wWSe7XOWO/fEdpbefudrq3KJ0MHdz8R2rL2
w6GHtjyatGl97Mm9R0PH93039M0/3xc6Ufl2mK6zavw86Ls39NW//IvQUP/H
Qxsqn4t0m9Z9OGnzE38ZOlL5eqbrrvjT7cz3+0P/sHLmny5bd57xxHF414bQ
1aW+0DvXDSe9PFkOtfNjO/LdraGbrn4gNFw5y6ZrTPzand73rdBjW78SGj0y
Gequ00kHBteHPjx8MJSXLWL54GDo9sqfmXTV95rv3/F8yM97ICucB9tgxrMW
5z8uosbrxGulx8z1/LWbdwM1nkWmn0Pm/llkDZ6rTavvniBPdwW17glaf1cQ
Pw53A/V4NTSy/r2hGbu8a/pDY2fKSVlWPj4a6r/510Ph93j1J0IjR6dCtJh9
lH2UfZR9VM+8jwNIs4+ai/vwDnDnWVxZvQO1j7KPso9qy8fmDnQ29lH2UUBW
OQ+2gX0U9bCPKg77qO4/i6zBc7Vp9lGt/DjcDdTDPso+qsvso+yj7KPso3rm
fRxAmn3UXNyHd4A7z+LK6h2ofZR9lH1UWz42d6CzsY+yjwKyynmwDeyjqId9
VHHYR3X/WWQNnqtNs49q5cfhbqAe9lH2UV1mH2UfZR9lH9Uz7+MA0uyj5uI+
vAPceRZXVu9A7aPso+yj2vKxuQOdjX2UfRSQVc6DbWAfRT3so4rDPqr7zyJr
8Fxtmn1UKz8OdwP1sI+yj+qyXt1HTR4MPb35N5P6Kt8L0115zx+H9lZ+Jqdr
r7ipOTTymdBt160KDYz/TdLMn5+nQweHPha67cZrQpeUbg1tGz+R1H6pzdLa
a0KXlG4O9Y8dDzXk5O7Qww/uCh2t/CPpGpf62j39+dDHvvKDUGufB8WfgadG
Hw29u/LnNV3fVb8d2jT0Yih+XPG/fXbfQGj54uWh/mdfC+XlThsogOMjofVL
SqEFi9aGnjo8mTRT9ffGnaEHB/aGLpxs0mXWuRdDAzcvCZXeuy30XOVtUTrq
EN5nrwgN7DsdorfUetb0a+tHQq9X/vl0LVV1Lhp5dEXounsGQuOvTYbif2si
NPTAb4dufM/iUOmG7aGubkdP7knasqwvVOpbFvo/Nn0zlL67vej97dm9SQPL
l4Vu7v+L0PHKbztdV73xg9COW3496W2lO0M7J86E2qvqZ+7+wdC9Vy0MLb79
y6HnK1+j6douvZVeuTRU633Gxd9r1BL/1tbolptCtc72nTnfz658+NtJH73z
K6F9Z8uh3Dg0FLq7cuZOV32Xe2X/WChbz0KAQnMebL0Zz1qc/7iIGq8Tr5Xe
MtcOtaN3Aw08i0w/h8z/s8g0z9XmVOOeIE93BbXuCVp+V1D996jdDcztzLOh
/mv6QtVn6lrfKzOlxjblzX1KKVS6dEXSvxk/FsrM94ReZR9lH2UfZR/Vi+/j
AOyj5uY+vP3ceRZWZu5A7aPeZB81k31UCz5Ud6BzsY+yjwIyzHmw9eyjqId9
VGHYR2XhWWSa52pzso+ax4dlH9Uw+yj7qG6zj7KPso+yj+rF93EA9lFzcx/e
fu48Cyszd6D2UW+yj5rJPqoFH6o70LnYR9lHARnmPNh69lHUwz6qMOyjsvAs
Ms1ztTnZR83jw7KPaph9lH1Ut+V2H1X1ffDIs6Gd624O9S24POkDG4ZCc953
t9RU6LU9nw3d1Hd96IFdL4ca+rMwx3Ph0rseCe0+fi6p/d76nfxyfHvo5r+z
MNTM/y7s1N4vh1bt/FGo4e8vk6+Enh14OOljT/wg1No9VLUTofFtt4YuKV0b
Wv2NiVBD97Fz3JUsXj0cOlz5vaYD6Jojw6HVC0uh0vI/CU1UvmdNN0P5cGjk
kcdiuf3fg45L4d2brg9d0veR0PCRqRB1SO20N902ENpXecuVjt4yNf6FpPcs
WBpa+eREqKVn3vKroT1bbw1devWG0K7Dk6HazoV+MbIxtKTUF7p60zOh9t71
Vouf1Tcq54zpri9dGrpq9VDoQOWMkW5ub90LvzSwItTae7BWm/1seuOli0M3
bN0Tau3OK34cJ/YNhTbcdEXoynsHQjU3fW1WPjyctGZRKdS38snQgcrnKV1D
3ngutO2Gy0ILlj0aGj1VDnXSuRM/CA3c856kntkJNXCPlr27NIA058GWq/q7
us5/XFSN14nXSm9J3wt0/G6giWeRDX8cmX4Wmea52txqv27yclfQyXuC9L2A
u4H6lCe+GlpeOTenW1C6KvS73zgQ6t5uqMFtSvUe6qr7Q7V3qLSVfZR9lH2U
fVQtuX0fBxSefVQd3Ie3nTvPwrKPso+yj5rfx2EfdRE5ugO1j7KPAvLEebDl
7KOoh31UYdhHZeFZZJrnanOzj2qUfVTj7KPso7rOPso+yj7KPqqW3L6PAwrP
PqoO7sPbzp1nYdlH2UfZR83v47CPuogc3YHaR9lHAXniPNhy9lHUwz6qMOyj
svAsMs1ztbnZRzXKPqpx9lH2UV1nH2UfZR9lH1VLbt/HAYVnH1UH9+Ft586z
sOyj7KPso+b3cdhHXUSO7kDto+yjgDxxHmw5+yjqYR9VGPZRWXgWmea52tzs
oxplH9U4+yj7qE4rnz4amnjmc6HbFpZC4V7npsdCo6+dDTUn3rWfPnYoNDE+
Enpy2wOhW5cuDPVdd1+o/6nnky58K0zXUUf/LLTh6r7QwuUDoX1ny6FGzPU9
udbP3846E3r5u9tD91x3VejGtV8Ojew9HDpdPp20f+fm0Jf2ngrN+JydfiW0
95knQlvWfSr0xLOvJHX0e1d5IjS4cmmopc9h5ngfl5eft0ARHQw9tebaUOn2
wdDByres6c6XXw89/8efDP3fz/x1qLX3F50Uz5lHdz0YWlS6PrRp99EQcytP
PJH0u/3PhuI7IPIvvhs8NLQmaWFpRWhg3+lQc6r+HI98InR16YrQ8oG9oQun
uHSN/B4PD68NLSotC60e/lmos98r3wgdGLwvaWHlY0vX/Mc5+z7qktKNoS2j
x0LZ8tZ3pENPfyp048JrQrf3/5fQ+MHXQzPORpWzWbpjE88mfWvHutCNi98X
+v0dz4QO/vJcqLPiq+PU6KNJ7y4tCt2w7blQfEU2+KseGAzdcWkp1N679fh7
njxxOLT/2f8ntPX2a0LpO6XF//LfhPYcOB7K1n1g1R3Vaz9JGn9yQ+i6yu8t
XfU+qvSuB0NDP349lK3fN1AszoOtlj7/VZ8Bnf+YVut14rWSd7PfC7T/bqBK
E88iG5WbZ5Geq81D/I7UzF1BI/cEzd4VtNfs9wK9fTfQqPR5+seh7/b/Tqh6
R3RJ6X2hLaOvh1qr9p3HT174XtLw4+tD1duUUt/1od/t/2Zo/NXTITrHPso+
KnPvSeyjGud9HEAd7KPm5j683dx5Fol9lH2UfZR9VC/egdpH2UcBvct5sNXs
o6iHfVQvs4/K9LNIz9XmwT5qJvuo+thH2Udlh32UfVTm3pPYRzXO+ziAOthH
zc19eLu58ywS+yj7KPso+6hevAO1j7KPAnqX82Cr2UdRD/uoXmYflelnkZ6r
zYN91Ez2UfWxj7KPyg77KPuozL0nsY9qnPdxAHWwj5qb+/B2c+dZJPZR9lH2
UfZRvXgHah9lHwX0LufBVrOPoh72Ub3MPirTzyI9V5sH+6iZ7KPqYx9lH9VO
1T9vV4Vm3MvkpAWXXhu69a77Qn+4+YuhwZEfhA6dPhfqnlOhlwbuCPWVrgg1
97wi3t8d3/1IaMazkZ0vhdL/dndVfy86EBob/uPQFzatDd1z9x1Jv3Xt+0O/
u/5jofWf2BTatHlH6Ot7fhw6Vvljlq5rn6E53m/2rXwydKDyqUzXkOMjofVL
SqH8vI8Diif+PDl75NnQn2z+w9DazY8lbfvCF0ODY6+EevU51oyfL5ctDtU6
zzGt+r35uqR7vnEwRK95NTSy/r1JpffvCO2dOh9qytm9oYHlfz+0oO+O0MC+
U6HG/E1o96b3hRb03RXauf9MqLN+HhpevSxpQd99ocEDb4Qad/Gv+4XytY9K
q9qGHBoLfXP7xtD9v3VtqPpua8b5/v4NSf0D/zU0duhUKFsb5BOh8W23JrX+
az37FnFxaWlo5ZMToeY+Z6fPx83f7aHqr+3Ca28N3XX33aG7V9yYtLTyz6db
ULoiVOuOou033C8Phe69bGHof7nxd5LuvvD7aqi7QituvCpUKvWFrt70TNKF
m990AO3kPDgfs5//qs+AFFn9rxOvlbyb/V6g7XcDLXwWObd8Pov0XK0V5n9X
0Mg9QbbvCma/F2j93UDtv6fY3ruBOZzYE9py3aJQt3cm8+8doWtvvStp9fr+
0MDQd0I/OHQylK37rF5jH2UfNS2f70lmso+a8zPkfRxAHeyjGuU+vBXso4rL
Pso+yj7KPso+yj7KPgrIL+fB+bCPoh72UcVhH5XlZ5Geq7WCfZR91K/YR9lH
dZV9lH3UtHy+J5nJPmrOz5D3cQB1sI9qlPvwVrCPKi77KPso+yj7KPso+yj7
KCC/nAfnwz6KethHFYd9VJafRXqu1gr2UfZRv2IfZR/VVfZR9lHT8vmeZCb7
qDk/Q97HAdTBPqpR7sNbwT6quOyj7KPso+yj7KPso+yjgPxyHpwP+yjqYR9V
HPZRWX4W6blaK9hH2Uf9in2UfRTMpjwRGly5NHRJ6dbQtvETocbM9T25lb9W
hp3cnfTIx0dC+b1bjN9FT40+Gnp3aVGo1n3F3HcW8dd6Y3x76PoFpVBL3zMC
0GWz7wkudMktA6F9laPwdEyr/hx+KKl/7ESIHjPj7mtJ0s0DL4Za+cy/fGAw
dMelpVDphu2h8TfKoYa88Vxo2w2XhVr6azXr5J7QlmV9SS3/OGt8Tlq/xaKr
apzvFyxaG3rq8GSoca8ljW65KVSYsz0AHeY82LjZz3/VZ0CKrP7XiddKztW4
F2j33YBnkRfjuRptMMeftdbeDbx23t0AkDvek3SefZT3cQDMk/vw5tlHFZZ9
lH2UfVTvs48CoKc5DzbOPop62EcVhn1Uxp5Feq5GG9hHAdTmPUnn2Ud5HwfA
PLkPb559VGHZR9lH2Uf1PvsoAHqa82Dj7KOoh31UYdhHZexZpOdqtIF9FEBt
3pN0nn2U93EAzJP78ObZRxWWfZR9lH1U77OPAqCnOQ82zj6KethHFYZ9VMae
RXquRhvYRwHUVuNe/m/v5pdsDI0cPxdqyLkfhXZ+6IpQ6V2PhHZX/vvp8qv6
fce/S3pw6KehctU/nR+nQy8NrAhdUroxtGX0WKgxtd/bLihdEVo+sDd0tvJv
pQMgT2rfGyyrnLPSOW9dxIy7sHuTvnbwbIi8mwod3fVQaMmiNUlDL0+Gmlfr
fq8U+rX1I6Fm/r7Auf07Qx/q6wtdvemZUDf/bsK5fX8UuqXUl7Rsy57Qqco/
n25us997Vt95Llw+ENp3thwiX8qHh0NrFpWSWn6/XWt3t+zR0OipcggA5sd5
sGE1zn/VZ0AKrIHXiddKHtV3L9Ceu4EUzyIvwnM1Wq/WvUDL7wbm+HuK7gaA
TPKepAPso7yPA6A13Ic3zT6qQOyj7KPso4rGPgqA3uY82DD7KOphH9Xj7KOy
+yzSczVazz4KYA7ek3SAfZT3cQC0hvvwptlHFYh9lH2UfVTR2EcB0NucBxtm
H0U97KN6nH1Udp9Feq5G69lHAczBe5IOsI/yPg6A1nAf3jT7qAKxj7KPso8q
GvsoAHqb82DD7KOoh31Uj7OPyu6zSM/VaD37KIA5zHjvWwpdcstAaF/lrUG6
RjT9PTn13mnr/U+Gmr7bbav4HueHA5uSBvadDuVX7fdxbyvFmvp9n/p+aNst
l4dKV38iNHJ0KgRADzm7NzSw/KrQDf1/mdT4vqBXxGcIZ77fH/pH79uRtLfy
YzIdOVc+EBq6992h9u6EziX9YmRjaElpSejmgRdD58K/XY/JpMPDa0OLS0tD
K5+cCJWr/s+p0cdC9w9OJLX67zHM3EctSWr+c3I8NL7tQ0l9pRtCG0YOh/L7
9zWKqvZz4neX+pKa391V/coHBpPuuLQUWrx6OHS48uGlO3/8mdDDHx0Ozfjn
AeBinAcvov7zX/UZkKKZ3+vEayWH6rwXaPvfIfIs8iI8V6NV6rsXaPXdQPpe
oNV3A+4FgLbxnqQD7KO8jwOgLdyH18E+qrDso+yj7KMKwD4KgAJzHrwI+yjq
ZR9VGPZRGX4W6bkarWIfBVA370k6wD7K+zgA2sJ9eB3sowrLPso+yj6qAOyj
ACgw58GLsI+iXvZRhWEfleFnkZ6r0Sr2UQB1856kA+yjvI8DoC3ch9fBPqqw
7KPso+yjCsA+CoACcx68CPso6mUfVRj2URl+Fum5Gq1iHwVQv5+HhlcvCzX3
nuREaN/OVaGrSpeFbtj2XOiNyvfx0HM7ku4f2Bs6W/kV0mVK9bOpj2xPGjtT
DuVX7Xv5ZaVbQ9vGT4Tm9tZ7xANDa0NX9t0a2rrn1ZBnPAC9bCp0fM9nQtcv
XpM09PJkqDjiKXfvjuWhX1s/ktTWezA6oOr92NhjoesXrwoNHjid1NaPqvpe
8rIloaa3QKf3Ju285z2hSyrvO9PNfA8aG9++MTSw71RSy6XuWy+0ZdmSpJnn
ovOhmeLXfvLAUGj1VVckfWDr90KvVf6NdORN1Wt4262hUukdSU3/WSsfCz23
fUVSX2lJaOavVQ7V2iK2Y48IQK9yHpyp/vNf9RmQopnf68RrJQ9mvxuodS/Q
7rsBzyIvxnM1WqW+e4FW3w2k7wVafTfgNQi0j/ckbWcf5X0cAG3iPnxu9lHF
YR9lH2UfVTz2UQAUmfPgTPZR1Ms+qnfZR+XnWaTnarSKfRRA/bwnaTv7KO/j
AGgT9+Fzs48qDvso+yj7qOKxjwKgyJwHZ7KPol72Ub3LPio/zyI9V6NV7KMA
6hfPka/t+WzopsvuCKWfEVzsOUF58mjSC0OPhTZ/8oHQrQuXhKq/T06dPxwa
efhTScOHzoYyrep/V3njxrfq1bNFefKl0OC97wstr7yPTDfzPWV8CnRsfCDp
nutWhLaO/Cx04YYjHQAFUj4S2r35lqQb+v8y1Mz/tnqulH8c2rn8N0Krh3+W
5NyZc1M/Dg3ec12o1vuvtiq/Gtqz9dbQ4uUDoX1ny6EZ25/Xng8NPfpI0qce
ui20sLQiNLDvdOj80ZHQww8Ohw5VfsnpWi9+F9o/uCbpnZXPQ7q5Pyd/FRq4
56bQ8q1PJx2aLIfIufJEaHDl0lCpVEpaWHktpZv5uqr+bx8P7f/WtlD6bP9b
fUtDK5+cCJXP/zy0a+Ojof92ZDIEAPPiPNjQ+a/6DEjBzPN14rWSAzXuBuZ+
LtPWD+x8q55Fpp9D9tKzSM/VmLc67wVafTdQ/WetlXcDAO1jH9V29lHexwHQ
Ge7DZ7KPKg77KPso+6jisY8CgLc4D9pHUT/7qN5lH5XbZ5GeqzFv9lEADbCP
ajv7KO/jAOgM9+Ez2UcVh32UfZR9VPHYRwHAW5wH7aOon31U77KPyu2zSM/V
mDf7KIAG2Ee1nX2U93EAdIb78Jnso4rDPso+yj6qeOyjAOAtzoP2UdTPPqp3
2Ufl9lmk52rMm30UQBPOhA6NfjW0afW62Gc2hdY98Lmkr4+/Epqs/PfSvfzM
F0Nr7lkX+uTmT4a2f/fnSdn+WR1PDKdGPxf68NCBpKKcLconXgwN9z8YWrX+
k6Et6z8cWtf/ZNLowZOhonwOAWhc+bXvJj18/R2hHS+cCPWsqp32Q0vuDO2c
OJNE3sT37S8Prw/dcO9gaP/ZcqhrJl8OjQ48HFq9dlPoM5s+Gvpo/zdD46+e
Tjo/+fPQM9vXhe6p/PfSbd7870LPHDoT6qjy60n7hj8fWrd6fWjLltjqdf2h
wdGfhk5XvtzT0VvKh4dDaxaVQgtv3Zj0xW0fC61atT60pf9ToQ0bPh+acb4v
H0+a2LU9tPqetaFPbHgk9Piel0PZPt8DkFeFPA82cP5zBiw4r5MeUv/dQGbu
BS7ycTfyLDL9HLKXn0V6rka96r0XaPXdQPpeoNV3AwCdYx/VPPuoat7HAdAN
hbwPr2Yf1cPso+yj7KOKzj4KAGZXyPOgfRT18jrpIfZRvfos0nM16mUfBdAM
+6jm2UdV8z4OgG4o5H14NfuoHmYfZR9lH1V09lEAMLtCngfto6iX10kPsY/q
1WeRnqtRL/sogGbYRzXPPqqa93EAdEMh78Or2Uf1MPso+yj7qKKzjwKA2RXy
PGgfRb28TnqIfVSvPov0XI162UcB0F3xfd3EE/2hwQNvJAEA7TSVdOL5L4dW
fvDzoWePnwv1iqnxL4T+0S0DoX2V3+p0ZF28vZo8MBRac9uW0NOHzoSAXlD9
d3EeDb27tCh0w7bnki6cPtMBQO8r3nmwkfOfM2CxeZ3k2fzvBoBeMfvdQK17
AXcDALSHfRQAZEPx7sOr2Uf1EvsowD4KAOpXvPOgfRT18jrJM/sowD4KgCyx
jwKAbCjefXg1+6heYh8F2EcBQP2Kdx60j6JeXid5Zh8F2EcBkCX2UQCQDcW7
D69mH9VL7KMA+ygAqF/xzoP2UdTL6yTP7KMA+ygAAABqifvlQ09/KrT8vsHQ
/rPlUF5N/fA/h7aN/DyUPk2TbeXjo6H+5X8QGnjh9VC8KQF6w4nQ+LZbQ5eU
bgxtGT2WBADFVozzYCPnv/z8rmgHr5P8auZuAOgVs98N1LoXcDcAAABQFMW4
D69mH9U77KMA+ygAmK9inAfto6iX10l+2UcB9lEAAADUVoz78Gr2Ub3DPgqw
jwKA+SrGedA+inp5neSXfRRgHwUAAEBtxbgPr2Yf1TvsowD7KACYr2KcB+2j
qJfXSX7ZRwH2UQAAADQm3o8fefaroUcGxkOnKv9UOmi/n4V2fXp76L/uPx5y
hw0FUJ4IDa5cGlqwaG3oqcOTSQBAmvMgkBfuBoAqNe4Gat0LuBsAAAAoKvfh
ZJ07UKCKfRQAtIjzIJAX7gaAKvZRAAAANMR9OFnnDhSoYh8FAC3iPAjkhbsB
oIp9FAAAAA1xH07WuQMFqthHAUCLOA8CeeFuAKhiHwUAAAAA9LDy4eHQmkWl
UN/KJ0MHyueTAAAAgPyrdTdQ617A3QAAAAAAkAf2UQAAAFBs9lEAAAAAQC+z
jwIAAIBis48CAAAAAHrZuUNPhda885/Ehn4UOlv5d6YDAAAA8q/m3UCNewF3
AwAAAABAHthHAQAAQLHZRwEAAAAAvcw+CgAAAIrNPgoAAAAA6GX2UQAAAFBs
9lEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATPv/AWUGb3E=
    "], {{0, 212}, {2376, 
    0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{2376, 212},
  PlotRange->{{0, 2376}, {0, 
   212}}]], "Input",ExpressionUUID->"f8b258a6-ee24-4d7d-8ae1-a56131a66af9"]], \
"Subsubsection",
 CellChangeTimes->{{3.545153640670162*^9, 3.5451536529068623`*^9}, {
   3.5486895262641215`*^9, 3.548689579787183*^9}, {3.550787285060895*^9, 
   3.5507873176877613`*^9}, {3.5507873622593107`*^9, 
   3.5507874498733215`*^9}, {3.5507931273800564`*^9, 3.550793293902581*^9}, {
   3.550795942883094*^9, 3.5507959452142277`*^9}, 3.5594362885952625`*^9, {
   3.5594895181381674`*^9, 3.5594895246605406`*^9}, 3.5594992621854954`*^9, {
   3.709575503291005*^9, 3.7095755131905713`*^9}, {3.7117177558758893`*^9, 
   3.711717777030099*^9}, {3.711855630387392*^9, 3.7118556482494135`*^9}, 
   3.7378073736118755`*^9, {3.738582763085204*^9, 3.7385827644852843`*^9}, {
   3.7422199554720297`*^9, 
   3.7422199575880423`*^9}},ExpressionUUID->"8859e49f-1d1e-40da-82bc-\
713f2ec7a8fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Da", "[", "a", "]"}], "[", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "b", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
     " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"I", " ", 
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "b"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Afield", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], " ", "-", 
        
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "b"}], "]"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Bfield", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "  ", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"b", ",", "1", ",", "4"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.5451536546269608`*^9, 3.5451537497243996`*^9}, {
   3.5451538022984066`*^9, 3.545153820336438*^9}, {3.548689591473851*^9, 
   3.548689610138919*^9}, {3.5507933017860317`*^9, 3.5507934241220293`*^9}, {
   3.5507934811092887`*^9, 3.550793483604431*^9}, {3.550795897754513*^9, 
   3.550795909852205*^9}, 3.5507959494314685`*^9, {3.5517192411368465`*^9, 
   3.551719243512982*^9}, {3.551725419411818*^9, 3.5517254247731247`*^9}, {
   3.55231622648205*^9, 3.552316228213149*^9}, {3.5594393588258696`*^9, 
   3.559439512198642*^9}, {3.5594895272826905`*^9, 3.5594895375052752`*^9}, {
   3.5594992681308355`*^9, 3.55949931174533*^9}, {3.7117177795272417`*^9, 
   3.7117178027735715`*^9}, {3.711855674636923*^9, 3.7118556941570396`*^9}, {
   3.7119036518000107`*^9, 3.7119036813607016`*^9}, {3.712095469670045*^9, 
   3.7120954747613363`*^9}, {3.7120956766308823`*^9, 
   3.7120956945709085`*^9}, {3.737163741776143*^9, 3.7371637607465363`*^9}, {
   3.737977329658123*^9, 3.737977335915481*^9}, 3.7379793918230724`*^9, {
   3.7385828352513323`*^9, 3.7385828674911757`*^9}, {3.7385834468523135`*^9, 
   3.738583447825369*^9}, {3.7385835220386143`*^9, 3.738583524872776*^9}, {
   3.738583585130223*^9, 3.7385836468607535`*^9}, {3.7385836972116337`*^9, 
   3.7385837036590023`*^9}, 3.74222001333444*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"4406a35c-429f-4c5f-be36-3e5f0d90fb8a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Da", "[", "3", "]"}], "[", 
  RowBox[{
   RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"760176c4-139c-415a-9b52-0875484717cd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox["Bfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SuperscriptBox["Afield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.742448049941431*^9, 3.7607232599068184`*^9, 3.760728399499918*^9, 
   3.760730113577434*^9, 3.7607304094615736`*^9, 3.760988877091799*^9, {
   3.760990294743615*^9, 3.760990323993908*^9}, 3.7656319918976755`*^9, 
   3.7657361291524515`*^9, 3.765738032015994*^9, 3.7661624339162884`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"a48e8af3-3aa0-4423-aef4-67d334b89aef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DColor", "[", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], "]"}], 
    " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "I"}], " ", 
          RowBox[{
           RowBox[{"Da", "[", "Color", "]"}], "[", 
           RowBox[{
            RowBox[{"\[Psi]", "[", "bi", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "/.",
          "AdinkraReduce"}], ",", "t"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   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.71116816982611*^9, 
  3.7111681917053614`*^9}, {3.711168240500152*^9, 3.711168252487838*^9}, {
  3.7113745175461884`*^9, 3.711374523241514*^9}, {3.7371637857333407`*^9, 
  3.7371637941872597`*^9}, {3.738583715823698*^9, 3.7385837336477175`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"62a0cfdd-afd4-40c3-a427-1efe1cb608da"],

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[{"\[Psi]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], 
          "]"}], "[", 
         RowBox[{"[", "Color", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Afield", "'"}], "[", "t", "]"}], ",", 
          RowBox[{
           RowBox[{"Bfield", "'"}], "[", "t", "]"}], ",", 
          RowBox[{"Ffield", "[", "t", "]"}], ",", 
          RowBox[{"Gfield", "[", "t", "]"}]}], "}"}], " ", ",", "Simplify"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"bi", ",", "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.7111682590422125`*^9, 3.7111682884798965`*^9}, {3.71137452701073*^9, 
  3.711374531364979*^9}, {3.738583747946535*^9, 3.7385838075889463`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"204d29c1-cdbc-49e8-b9f0-d8e64fb0cc12"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox["A", "\[Prime]\[Prime]",
       MultilineFunction->None], "0", "0", 
      SuperscriptBox["B", "\[Prime]\[Prime]",
       MultilineFunction->None]},
     {"0", 
      SuperscriptBox["A", "\[Prime]\[Prime]",
       MultilineFunction->None], 
      RowBox[{"-", 
       SuperscriptBox["B", "\[Prime]\[Prime]",
        MultilineFunction->None]}], "0"},
     {"0", 
      SuperscriptBox["B", "\[Prime]\[Prime]",
       MultilineFunction->None], 
      SuperscriptBox["A", "\[Prime]\[Prime]",
       MultilineFunction->None], "0"},
     {
      RowBox[{"-", 
       SuperscriptBox["B", "\[Prime]\[Prime]",
        MultilineFunction->None]}], "0", "0", 
      SuperscriptBox["A", "\[Prime]\[Prime]",
       MultilineFunction->None]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7424480500338793`*^9, 3.760723259939426*^9, 3.760728399529689*^9, 
   3.7607301136182175`*^9, 3.760730409493451*^9, 3.7609888771187716`*^9, {
   3.760990294774822*^9, 3.760990324025154*^9}, 3.765631991969514*^9, 
   3.7657361291773853`*^9, 3.765738032040927*^9, 3.7661624339429026`*^9},
 CellLabel->
  "Out[35]//MatrixForm=",ExpressionUUID->"4636f518-4ae8-40b2-9d0a-\
0115a700fe0e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

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

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

 CellChangeTimes->{{3.73163077582885*^9, 3.7316307863152466`*^9}, {
  3.7316310047349997`*^9, 3.731631006157134*^9}, {3.7316310576169453`*^9, 
  3.7316310811664886`*^9}, {3.731631162459132*^9, 3.7316311655688095`*^9}, {
  3.7316312115596952`*^9, 3.7316312122785935`*^9}, {3.7316312737246857`*^9, 
  3.7316312835694857`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"60ef5838-f565-4050-8bf1-a6567682a247"],

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[37]:=",ExpressionUUID->"4fe106bd-bdab-4e72-a408-02dc39919a4b"],

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[38]:=",ExpressionUUID->"2fb28a59-0531-4321-9e1a-7857fd2ea043"],

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[39]:=",ExpressionUUID->"4687acaa-d72f-4b66-aa34-3a08a6e5c3f0"],

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[40]:=",ExpressionUUID->"0cfd8546-fa14-4f58-98e2-b4c9a595c3e8"],

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[41]:=",ExpressionUUID->"068992b2-e100-49d6-97ac-4ee310291a7a"],

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[42]:=",ExpressionUUID->"724dbc65-fed2-4f05-a1d3-2cbb2f3a6bdb"],

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[43]:=",ExpressionUUID->"f544c5d2-d050-4577-a044-819ee85c5327"],

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[44]:=",ExpressionUUID->"218e2522-30a2-4ce9-b4f9-5cd8fb0935ca"],

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[45]:=",ExpressionUUID->"d27b4d38-e675-40bb-af16-a4d221c5be43"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Closure", "[", 
     RowBox[{"ii", ",", "ji"}], "]"}], "[", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "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}},
 CellLabel->"In[46]:=",ExpressionUUID->"56aaa196-abca-4f88-8b17-626ece7d3855"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "4", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "4", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", "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[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7424480502317266`*^9, 3.760723260066676*^9, 3.760728399723971*^9, 
   3.7607301168742146`*^9, 3.760730409673277*^9, 3.760988877298248*^9, {
   3.7609902948842106`*^9, 3.760990324140741*^9}, 3.7656319921270924`*^9, 
   3.765736129309033*^9, 3.7657380328458734`*^9, 3.766162434105057*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"dbac0187-63c1-461e-bb15-ad82fa67dc15"]
}, Open  ]]
}, Closed]]
}, Closed]],

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"]}], "}"}], "A"}], "=", " ", 
    RowBox[{"2", " ", "i", " ", 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"f71e3502-4279-4aed-b97d-0f78ed66d7e6"],
 " "
}], "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}},ExpressionUUID->"1d0519df-4c37-4fa6-88cf-\
82f165397828"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"AlgebraDDTable", "[", 
     RowBox[{"Afield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", 
    RowBox[{"ClosureTable", "[", 
     RowBox[{"Afield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//",
   "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}},
 CellLabel->"In[47]:=",ExpressionUUID->"d5036f9e-acfd-4f34-895e-790c1e93c3a1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.742448057235383*^9, 3.7607232695271997`*^9, 3.760724437963172*^9, 
   3.7607283997397194`*^9, 3.760730116888406*^9, 3.7607304097075815`*^9, 
   3.7609891186073246`*^9, {3.7609902948998337`*^9, 3.7609903241563673`*^9}, 
   3.7656319921420517`*^9, 3.765736129325988*^9, 3.765738032859621*^9, 
   3.7661624341210146`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"fd4c6c8c-5495-4518-9427-da404ab103ef"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["D", "a"], ",", 
       SubscriptBox["D", "b"]}], "}"}], "B"}], "=", " ", 
    RowBox[{"2", " ", "i", " ", 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"a3507ed6-8df7-4bbf-a5d8-2ebfd777a15e"],
 " "
}], "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.73858397898875*^9, 
   3.7385839832839956`*^9}},ExpressionUUID->"d28db7e3-fc37-42f6-a66a-\
a652c436e586"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"AlgebraDDTable", "[", 
     RowBox[{"Bfield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", 
    RowBox[{"ClosureTable", "[", 
     RowBox[{"Bfield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.738583987798254*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"1734f579-9211-4522-8b7c-ce8fa4e3e6d5"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7424480573571873`*^9, 3.7607232696075115`*^9, 3.7607244380087185`*^9, 
   3.760728399758156*^9, 3.760730116908202*^9, 3.760730409723706*^9, 
   3.760989122122918*^9, {3.7609902948998337`*^9, 3.7609903241563673`*^9}, 
   3.765631992155018*^9, 3.7657361293399506`*^9, 3.7657380328745813`*^9, 
   3.76616243413398*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"6f3430a7-e9cc-4e3c-abfa-81811560aa8d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztXV1sVNUWHu99uS8mN/PmU70mpCGkMQ1pbDSNNDX1N1i9kEsfrLShFyHY
RqlCUYPUtCk/NaiUGBxjVcYhNm1K0qhoKwpqQwAbRcW0YtVWoKVUsCjFAnO/
2x1XNmfmnNlzZp05M+P6Ehoo5+yzzzrr79s/a/+rpv7B//4tEAis/Qd+PFi9
rvTxx6sb//1P/GNp3dpVK+tqV9xd11C7svbx4pq/45f/wZ8F1wUC//97VCAQ
CAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAg+Ktidnb26NGj7e3ty5cvL5/D
K6+84nenBJmI9957T2kIVAUKMzAwcOHCBb87lcWYmJhobm7Oy8sLzKGsrAz/
7O3tHR4evnr1qt+9E2QcJicnDxw4EAqFHnrooWAwCJ25/vrrq6urv/nmG1GY
pICoFw6HlelBhuvWrRsbGxMZCsxx/vz5559/XpkhsH79+l9//dXvTmUHYH2t
ra1KbrBBhLwrV6743SlBVuLIkSO33HKL0qXa2lq/MtK+OfjyaBfo6elB1FNC
6+joSN36YMLUoGsUFxevXr0aTcG1srxmZmJwcJByftcoLCwEC4tEIuPj436/
ULS/v/+GG25QHWtpabl8+XKaO/D777+vXLkS4TjNz3WHqampBx54QImroqIC
WX3qbR4+fBhNKXpeUlISa4xQmHJ7wPT0i3F7Q0PDzz//nHrHMhAnTpwAgVIv
XlpaSikcIT8/30FWseKtqqr69ttvfXyjmZmZuro61RlEw++//z7NHYCqLFq0
6P3330/zc90BOQP5q02bNnmRfH7++efz5s0jDdmwYQOSXudbLl26dPDgQegS
aRf0sLOzM+dz49HRUdiUbk0JEwAI88svv6yvryfjxV927NgBQ0hPn2PR1dVF
r/Dhhx+m+emffPLJbbfd9sMPP6T5ue6A3pKsXn/9dY8eoXtpc9d09erVo0eP
ws9TKNyyZUtC481qIHjdfPPNJKuXX37Z/N6RkZHKykq6FybpFwVLg1I5AEJD
UpEtQ0BpkBUEQo+49dZbk3VNp0+fXrp0KdlgOBzO4eFZeCeSFTIT5CdJ3Q6L
g91RC62trb74Kx8NMLsIYNR7WSmB0CPcuaahoSEaW8vLywPHZO9nJgCO5bnn
niNZgci4YL4TExNE6uGvenp6vOiqM3w0QLh3OPlsIYBR72WlGDE9wrVr2r17
NzViwoyyEXBNcFD0mo899hi4sIt2Pv74Y+L1paWlY2Nj7F11ho8GmF0EMOq9
rFwTQAtOnjx5xx13kGPPolkec6RCAHUgEV2+fDm1EwqFePuZED4aIDx8FhHA
qPeySpEAEizpWV1dnY+jfB4hRQKoQ08YkJFOTU0x9jMh/DLArCOAUY9lxUIA
CXv37mWx5cwECwEk6LNLKdqyC/hlgFlHAKMey4qLACoMDAzo2SyYDlc/MwFc
BFBheHh44cKFfuWBfhlg1hHAqMey4iKAClwUKTPB+3aTk5N33nkntdbY2JjO
JWF+GWDWEcCox7LiIoAKFhVtamri6mcmgJEARmMMEEQAdICrqwnhiwFmIwGM
eikrXgIIHD9+vKCggCtJyyjwEsDo3GwgDRoDS5YsOXfuHFdvE4JLqRC1z549
e+bMmd9++y3h6gtFAO2IiWoK7bjujEfwzgB5CWD02q6m36t7Cl4CGI3JFhAN
WZbZGyJ1pZqdnY1EIuRv1R5VWJDzQ+0IIC2mys/Pz7ShA+8MkJcAAnv27NEN
MJciIDu9tQxYZVcEvHDhwoYNG4qKiqAzsER4pxUrVgQSLcCAh8dlsTFuZmZm
7dq1fokiIbwzQF4CGJ2TsG6AucQBeQlg9Nopm/RnC6koldoefv/99yNs0S/R
iGpt9+7dce9yIIAWOgxH5+92LQs8MkB2Aohgh5CnK1X6l9l7BHYCGI1xVhs3
bkznCvZUlAop4sKFC7/44gv9l+TMV69effHixdi7HAigXvBBAd1LqkueQneV
XV1dXM2yE8Cpqal7771XF2N2zbc6gJ0AQkWhqLqs0jxlA/OhHaA7duwwvxEZ
JvLMtrY23V3ovtculDvPACKnJYGkf1mCA/CaeFnVsfnz51vcTipgJ4CWIdBM
SyRSATsBtAyB4kOk2efr7jcuL7NDX18fApllE73emp13siOAhLGxsdLS0kzT
nJGREfgN9Wpr1qxhpAnsBNBCajKNSqcCdgKor0Ozk//MzMzhw4eh8O3t7cjQ
ECBqamq46n7AsW/fvp3e6NChQyZ3qUgXu8pXl09cDgi7g/UlzLJUWp7mAWEH
TE9PU1wuLi4+duwYV8vsBPDy5cuNjY26AWbdfKsdvCCAuvezixowvev+BOOj
CadPn66oqFAtgzucPHky4S2Kx8HT6r/U80+7CjPOM4AENTJsxyLTjFOnThHv
QBCEM2Qk6ewEUN+LxBUmMgTsBNCyFwmwqLQCPjdSCMSCF154gevRFuilDBB3
hoeHna+HgcTmn/gn7cW22wID0zPJslSq76/rnp2d/e6775qamlQpvGAwCPdr
4p2SAjsBhLvWG4SC5UwJdHYC+NVXX4HOU4NwXM7fl8ZLvRiowWdC+1TwGTQH
6aidmcMn/PHHH5ZfhkKhhIqUkAAqKFH7NXZnqdVZWFjY0dHh0TYxXgKI/POZ
Z56hBvEW+/bt4+qq72AngLrGArt27XLIbYgsQKoIQCk+2uEpUL/bb79d/4ht
bW0Jb9SjuZ0nMSSA0T8nOBIGYo9w/vx5BKbu7u5Vq1bpHom9jD87AdSTkEBu
1aNgJ4B6ldeAQT0KxZ5YHm0HZLnbtm2jjAv6EA6H9+/f/9NPPyVUPH06A044
7oYOQwIYzaS9ErCRN998kwoyP/vss4zjn7wEUJ8oCcxVZMqoWdQUwU4A9YKc
cLCRSMT5eiILXgxNgO+89dZb+fn5gT8XcyZLdiiVcphJMSSAyjVl1BY2vYz/
E088wcWqeAmgPlESMCvqm0XgJYDQMRr0MEwVvCOA+ExbtmxRmgC3+fbbbydb
VNkk/4zOvYLJQjuVf4IgJ9UHr6GX8d+5cydLLspIAJFytLS0UGuW9YE5AF4C
qNeBgWsFuXC+3lMCqKuWuwNHdO9kt6HYkACqavkZ6L3Zy/jzEsCDBw9Snnzj
jTd+9NFHKXYvo8BLAPXSqYbli70jgHrwcn3giO6d9uzZE/cavAISpISsZN++
fQUFBYwLvRihu83Uy/gzEkAEO4S8pDTKAnhdeFHc2Nra2t7ejoiQUUdLMBJA
fa1jwLggNrIydb0igHQyMm6H0EwGSeygV6R5+umn3YmddkA45AYmBFBVKt6+
fbv56+DKU6dOvfvuu1u3boU0oMawcY+2k/DuhuAigLpGocFQKJRU8oAv/sEH
H5SUlASDQUTk1157rampCT4QSQhaRroFt4xU2d+EhIsAWlb7mw+p6QQQpnff
ffeVlZVt3rwZ4gKXhNghLncJjK5UaM2dIVP3HFZvJiSASjgwQJihyUNxPZRW
nTkFJYE0IpFIc3MzJJOfn9/d3c2+qYTXAFkIoNqP6dr6oDPr16/HveXl5ceP
H6ffnz17tra29pFHHlHHD/m+JpCFAEIyL730Ejk9c+tT7EndtXjxYqSvcFkU
qsio4QZdjM6xKBXlZnYGmJAAwlgQyouLixPSYYUTJ06oSZzKykr8Xbc1SKan
p2f+/Pnsg/CMBshCAPU1ci5Gz+Do1O1xR2z0oGO+RxXJWHV1NZQcMbSrq4sl
j2UhgORqlKd68cUXzYsVEwEMzK3VjHWVNP3qorA2i1Lp2VTcaT5nAggJ9/f3
43MbDh189tlnSjdUmqT/lz6i29LS4uJdHMBogCkSQJU3FhUVqdshW+RFSbVA
iavdAS76yl7D7lmWVnIdd5IiAVQHtyFpVLcjOwJhSSo7IgJoN15KPXSx8YRF
qfRFBZYdggpIIeyyLFwMVwmDwk8TscBI1XBf3IivU1r2paSMBmhZsWlOAGF6
x44dq6qqIiV3wT4g5127djl8r+i1BmhYnMeyDzHAtBLVsmLTnADivUZGRhoa
GkjUNTU1SBuS7UDCGUDKZ/D6eiZvAi6lAv9SrwlTivUSdgQQaQCSgQULFhg6
JZprjvuUqLYXAM5qaGjI9evEBZesRkdHly1bRk2ZbHtEZMe7d3R0gOHSjTBD
S/ptCEovodh2860Uo835qWWoxPDVnAHfrpcJChgUSYCPQue7u7srKirI9BAB
EehdpMREAB24p16CIFniw6VU+viSJU9WAdoSj6A2X3/9NcQC+j84OGjyCL1k
k8OJ9uPj4wMDA16sgXQnK/QThgOZqJPKCwsLAzFI6iB4JACNjY2wR3ejTPqK
NYcIRTtVzQkgLluzZo3l1ZJVSLhiGE7cF1dI6iD4YDBYW1uLnME1GzWZAdRJ
ol8GGL12PRt+IrQh3ONzWwigOqcbXwrfF1ZpnqIcOnRIqcS8efN8mSh0J6uL
Fy/qJ7G6AywUQRMihV2kuAbyzJkzd911l2rWIZ2jQdqkxvwnJibgJKH2yEDe
eOMNxI5kp1c2b96coqyge2pUHN8r9QTYMgMY9xoqbOhCM9krfSH0hMNhypQg
DfgxGM6TTz751FNP3XPPPXlzaG5uTmq5qT4U5tc6bX+P8+YChTaHnIoIYCo1
UhQzyvZ6UCZLQMlZgf4YTqIRPC23DprW19cHe0EEhPls3bq1t7cXuZOLWd1z
584tWbJE9ZN9eNMQuWGAVLPXIadyQQBjoahHVu/IMBmJ0meUXBzs4rVSme8B
dIY+vOmXU80NA6RJW4ed0ZRT6QQQ2jg9PW3+IFgumG+yo4IZBTIuh92pNAmI
jMJFLXevlcp8D6AzaITNLwIYzTkDdHDXlFPpnjMUCiW1FQ7iWrx4cZoPnOUF
GaDDWiDaVu+upHYazj1nOQeQBpp8rFWYGwZIowp29er1+XTynEoVk5qDa2tr
s9uanS3AW2zcuNHBAMfHx+FkAmZ7muLCa6Uy3AOYELTYwNAAh4aGNm3axDsZ
kRsGSFOlcZeUqDWBNKVLokaiBSU036SJp5SXl/f19XF23Q+oAkFxuTCV9HS3
A0UhDeeec61IodwpIQdU7IO3fG40VwyQ1CZ26/SVK1egSAUFBWqyUt/2iETL
rtJdXOD63CjIRnvnLYcRQIzvvPNOXl5eMBiMRCKuV/57qlSGewANQaJwCKlQ
IZgnXPejjz7KPlWh17159dVXeRtPJ2ghaEtLC9nUjz/+iJiotkX09PTAq1Oh
ZiRXixYtMv+OIyMjZWVl/f39Xr1AeoHvDo2CO6KCzKqEIEyvqKjo008/TWXf
jb7Rg90AwSB4dxCr0AbdAH+xeFeY5969e5EmwYHDI3mxf811Gf8MBDyYUiG1
sKSkpOSmm26idRHwY52dnflzQKBUWxsM1UxZdwbWNEgFcClVVVVQPAgKAkHg
g0x27tyZYojXVyWZ16U3BxcB1EH1S6E8paWlagES9ETtCkRW4N3hbnrVTS/E
lX6AAw4ODu7fvx8xLpYPqv9F4DMfyUQ8RVTNvYo00TljmZychDQOHDgAV8yy
04qOQQnMLS/55ZdfUm+ToGYAPSpuBu86OjoKUUB5IBN87vScAKsXf0AsdrG0
PrcBp7Rs2TLnApsCBb2UAVJcwxXR5uAlgJmDoaEhxFwlN7ivI0eOpPM8R0Fu
QOW0ZH0wE3YtQnTYtm1bzlRm1kEcXAmwsrISgThnjgATeASYGJJ52Fp9fb1S
HvwEWWY/cOQvAviW3t7ehx9+mOoBBvxbpyrIcHR2dtI+KTVeEQ6H1XYhv7uW
C5ienp6cQ1KrJQV/HVy6dElpCIJgLo0PCwQCgUAgEAgEAoFAIBAIBAKBQCAQ
CAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBN7hf9gGv78=

     "], {{0, 87}, {299, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{123.66666666666669`, Automatic},
   ImageSizeRaw->{299, 87},
   PlotRange->{{0, 299}, {0, 87}}]], "Input",ExpressionUUID->
  "f0c8a300-5d65-4083-a240-7dd19b5c8358"],
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnV1MW2e6761zbs7FujhccoHEEbLERSSEkKUDiipzQZQICaJGCOVDloma
Y6KeDjA9xe0okKqBbrWudmvUxvTsWNNYmR1nTpayp043bjduCtnCaXE1jgBl
nAYik+AWKBDkIBMMi+P16Xf5a336Y9nPT5pRZ4q9lu211vu8z/N//s//ON/3
+v/6Lzqd7u3/lviv13usrX/8Y897p/574n90/eHti5Y/XHjjxB/+zwXLhT/+
z/P/NfF//iHxn+rEP5D/fAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAghDbi3dHO5o/mN4+KPapFJDtqaHmU8N3HkWJYp8JAAAA
AADaJb4yM9ajx04MTz6LF/tcCks05LLodQ3dtnuROIRTAAAAAABIJ/5scvgE
VolxFAXxYt55Qa+raR3+DqIpAAAAAACkwQQSjWbnQ5WKXEQ8+mz+/sQtp31k
sNd0rr0JI00tm9rPWgZtTvzew8hOhuMkTsPV12ad3JRxwPjmov/fbzg+HLSc
bW+qThwMa2o/Z7HanB7/4iYvOCR+nx0ztQxNbacefWPW1onpatpsD7YhmAIA
AAAAQCy7K5536nVYfb9nRXFChoitLkzdsvd31OloEuHTG4MjNrvzJo7jt10O
29CbHWSoU99u/UtgbRd56c6i+6JeV9Vi//sraUd8HsBtZkPiPfWtlstXXX/z
+WcDgcDstBd3fT5kaklER8Z+F3MsJmisPuZ8lEENtvfY3dOo0zX14kuVmJoD
AAAAAEAyROwff+6uSoQ2Vu+qovABCWmoCKrrT+Mef2g9liE4i28uTl+3ttfr
9D1jMyvUUXcjk1daycxV89D0huhj7kdDd4Y76hNn3zF8K5Ax03W4tzmPJ/4G
Mw5NLL9gj9JmC6QmpegPEQ/jvXpMh3WNBbcgNQUAAAAAgACxh46OWp2u6aJn
WX7kQOxEHtwgQyMqiDKYbXjgeaYQiv+i6GPP0AkMax+debbCRDg6XdXb3o19
cUdlo6+6U6PfPs19OCIaGOuoxY4aX6uiz/E9X9YWxVjYbUn8Fdb26ey2yDMB
AAAAAKAy2Qk5zySCEazTGdqTGUklIqK7I6eYcl7d68P43Kb4KiFdUKutq8OY
cqCu07Uk6tXxtanRVurUbbMbIl5B7IWcnexRqvq8uTJfTHhZ2+F4GBP5QQAA
AAAAqDyIFbyHzNK0WH2rsgKpg1h4Yri1ho5PsNbLnkWpem0iHr5lrmLjKF3V
UceciEwQsbfo7tEnAiP9aVdoT+yhnnt6j1BHqel0/ZLzPPc3fJfIFFtVj+vJ
jsi3BwAAAACgwngRsB0nI4uWseArGZHUfnT+K7OeTvRgetMXM5Fd4RflOA2d
aKEUEcZ7qGJi8yeBjPKozMQjeC91up2OBaEAaW/O0Vad+Fz16Y1+AAAAAAAA
yZRU3Wm3uJIaDzSO0mGtVyZlxlHkibwKjrXoxAuliJ3AJ82U4ClzF1524gEb
WYisuTz9UvATvwq7z5Mfr+oiviI27wUAAAAAQMWwu+g6R4YK2Hl3WJL3wCFS
X6PQX3QvKquCvZweqhEvlNqYHqIiKd3REf8LScehQykBoRQLG2rWnnQ9rqQh
OgAAAAAAiODV3+0tZKCAnXaHpcqbNu+PsvoodSyYiKfu7lqxQqn9oL2RjuKM
tkBU0nGoUEpQKMWdFautklkABQAAAACgXOFqaqLjiuRLI753jUmZuPlWWIUx
K8u4qU6sUGrNY2HyYUd6Pc8lHZsKpUQIpRh2l1xnqQO124PSYjYAAAAAAMqa
nQVHp06kAJtHfNVrrecCKeyMM6RKgxsVSol0lIrgJi6QO33jiQQPB2In+C89
Pc6gaKX6/oLjqCxRFgAAAAAA5Qzxi6uTqtCJEmAj7Pxka+acC7B666QYRydh
Dh45j1WLdZRitOM0jebxB2v5mz4sTcQFAAAAAEBlsOHtq5IRIeyG3W8kLaBU
LHsdPPW8d/E9z1NxmZ9132BT8ixIc/WPbk4tRKJ5GJrHiLgkebADAAAAAFDm
kMJtKgqpHfFLsDDgpaR02EnXYnGKXpwZQgp6o2nQ5sR9D+afbgpOrRFJNGAz
ypO4AwAAAABQpsQjuEUnWXN+sD39flIlJdONSiWI9ZnRdixDNJVMVTV1/O8R
p8cfWlMWVO0tu3voz2vCl9U6faACIOKR/3RYjlZZPGvFPpXiQG7YjnQM3wlF
IZ0LAED5wWVamgZ966Jfxbk50XQ5Q0UdTxd/5hs9VZceQ6XFVAbL+PSyJEEY
ysG2771qOpayBfJQQQTKEtbAFjtxeerXShXZRUMui16H1XV85JPv3wsAAFCa
/Obta5BctNqdtTUgeaCjjoWi7zWJl8v+W7beY8IBlf6Cc/6FvBWNE7mLNPYE
Kp5kHDU8+ayiw2/ixbzzgl7pNAQAAIAShDZx0klyQiCW3d1IbFIzNP0yr+co
gYPY+i8BH+60DZqM+mzBFNb68cymnODvIOQ8Rr+FCY+ofu5AucENVFLDurZA
xMLekY66GoP5y1mhe4SIPQ98+293vn0otm2WrcVDNJUGEd9aCkzecowOWrqM
yH5Qb+zq6Rv+/MbEg8Wtch5ZRcTjRd+OA4B8km7hFjwi9mHPcyDQ1Xa7n5Zk
2SIejYQCvr+5rl62tKaEVbWdzgU5DybOxqoUEnFASUPEVzz99Ymbq6Z19P5m
Sd4h6RCrnl6mm0RwEtOGf6SN+st6i2dF7AHiS3gv2XKLtX06uw230CG5+4s8
cI+YDajcE2tqP3emvamavwNsMdvwQETCyHbNsPOzva220R6ECwJQChHb+jWS
H1a3Ytmb65JRkfhQan/N8xZa3pM6/K4IxDdCk1ctBuTRJG/+CxdKgVhKixD7
8f0CLUTE9gNbG2lDVtX953+o1UKad/Y3vG+zfblCAsht32C1nM0UsfnDsCFx
EEzfi6sxHEHLxH8P3nzHSE0/rWu1jDi/vj+/FNlCLpd4dG0p6HN/1t/Odvlg
x6235zbL63uj3I/1Zlzq1DIAQNh77O5pzFKJUo9sS7+cUIpr+hP3yJVAPLr+
ezRfTwkiHsZ7ubHLuh73svS8FIRS2oLYiTy8h18b7TO1NyWjf6zO2GUZ/NBx
498VN3VmO+6Kd4Dqy1A+3bugIO0ktaP+3RxfDfFy+jI7evO4PSipwr+/Pftp
G/lz6Lud80XtVykq8WeTwyfIcqdx4JovtJX7uRf/LeB628hcwzWtw99Fyiea
omdyFbt3CdA47DiS/FLVg69kvPNUyEpJqAzmhgi7T2NSH8uS2Ak5z7BnLssb
CkKpQrMb8V+/1GXAEvFP+yU8JP4n210L3rGZW3K6ZOjIpk7TleuCC5k0YmG8
j6oo60+7QloSuOzPOY4ySSmhxgpu2lTiK3zPty3RVI7Y8I9SqkOs0zarzpAE
jcHEUTWtQ55FsQYRe5tBp5nZDJZTNEW1PjXYArlCdwDITSzk7Mr6mK9rNSX2
zq7bHt9MIBAIhsIiynnPQ54/GVLex3DJm03kqYJWSq1Q6lXYfR6rf39a+LEc
X/NaDWduLkk3BUUCV1kxGxdKQV2/EOxvznzcigRDYp1g48+nbGdpeRzW1D1o
/8vEdGBh6XlkORScnZ648fmQKSXEqjaYx3xh2S4ZKMTeoruHWu+wTmdIwlDI
4kMsudjwSMhljgjjZlZ/2O1elv4p2TJfZYqmdp64eqrkhEPxNd8w+3gvl5we
NZALeqIBRdDz5lLAWswf/6svuCy91EXEQjfMev4qIdD7z3XwSciv8jv4ZFXK
0nn1d3tLTbPtJxHlEGpYjLweOi4Wwt7yrEl+gEMHX0E5eOw6WcvfXAgnA4no
Q6eZqpjXvT58azaSUShI7EQCN62tNbw315+1TT1XuitgZdWJWN0WKHkNIQ9U
KCXUz5sUSlUddczJioT2VvCL1OFq2uw/a6gIqhhi78mN01VSx69zr16bHm5l
V4pux7zmxy5Q21tJBtEAkApV0kKf5g3do3+b35QXmRDxyHfDKasD1j46s57z
El3xWGhBo5SCFy8CVEV2vhfxDOixM86QiGcq5Wolr8KWDAKPOUPSk1rgK1VQ
+NlP8nI+7RZQpnINYq2XPYvbuf82GXQlD6DQ/Sm+6rVStxOmv/h1RGNrAyKU
EqjZEbsBWwPzp81D03JvhdhDRwcVKou88csDYtVnbaEEe6dMlvfG7j6KSrxO
iBW8hw15q8y3NC7dp4VSEqx4ACANqqSV3BT3jM2syH6ME9HgeHdKy39zvycs
9Iby3M5fLjheZ49Sfcz5SOH8PWJ1YqC+WlxKikkNyQqlOK1sdZtjTnrACm7n
hSUlKyWsq4nOO7ol2RZliKaqzo3PyXRwRQZTai4lxRNKYWY8ZxyIyBJkZXdZ
uMRUdjFn2ZG2fT46NP27xPdAZ7hr8ErjQQmlai5Pq1JdByoT4rmn9wgbR8m3
4CZJlhU4Gs3OhyL2O1w7nsSOZmRnpHSWMXXyom0zEyfci8kMZn6fHqKkUlUX
8RUZqT96A6WDGXyFYj+68Fcr2QZe3dQ1fCPwW85fnIjNf9lBBlJdY8Et0Vdy
Sl8ndT23jQXlmPdoOzBAhFKCmyNuRILM7G6SZPB5bNRfCfpz7hnCIeNhktzT
kRdbr2dVu18cCKUA5Wx4++iniLSHfxpsUy1CTevle2vi3pGrokgMTraD9pPs
QRXsjOiTlxBJsjuyTpfECcqJRfOWmfzCazscD2XJNV/4R2jRuqzuPyCvEGG8
p16W8Abt66SR5eCajApk5BmKDiqUEirZU8sf/eRqsM0qcy3fXXSdw1TZkWkD
rgrAYRzxb0l9F55atarPs6rVHDkIpQDFcDsLZY0Y7GQrdFctzfuOi+gkduJw
JoTkITu+CMqY+U7HUZIEKtz4P6n6CjZxJ98ykXjq7q6lnl1vezcqreeoxCH2
FsZJ6+3qd2T8NMSGtz+l+ePIh35pialEKPIO8x7NnwS050iNCKWELm+kDbah
z/ubwgMj+W2t16rEkNKyjel73IsyxOc8GaEKv0KRAKEUoBwmu4J1fDkv3yVw
d8XzTr1Ox7s3zV/NS4pqiF9cnVREJLlgnez7lu5zchBb/mHM1EhWNoO/i99T
JXvoJEWMnBuekuFf3GZcYVEDUJ9o0N6e+HmPjMzIeihv+UdScgWSpIOorEsF
6WARQIRSQvlepsJOcda1pHiUHqJzqO73ln2Rj4g+vNF/nIyDyEEwd0MydqAk
XOc19fAtoSmokgChFKCYnZmRI4kHUovVJ7vQHV+bGm3lVyZkhQqc254Mv9n9
aAhnm8prjP3/GhTRfkhOQb11mRyZavlyRtrZco9xrK6psU6cwR0RfYRbjysf
ospuxmV3fwN5g4kE5NRKKHjiE+nLE/EqONbCvE6Tps2IUAoTskxDNM/qTKJE
vnzsvDv8Svk7VgC8UEqrmzsQSgFKYbqJFZj4cUPnEWROqeAWgrrTbon6I+rl
8c05fPh15sau6xx0Ti6sZ0y0xaPLwW+vXzEZqjHDedvXMiZJ0Y9xKvO2vTHv
eot0wU68Ff5TOJohs0XEIg+9X1Cj98SGednh9KLt9iAIpUqMNY8FaYVt7f1n
T0haEwcSS7BIiBNeBGzHtbyooUIpoXRc0tQ3JdrcXV/4eWFN1laF0xjoak+6
Hmvv+ysCaBOfViUHIJQCFEPXI470ep7LU+3EIxNWQ5UORUkTN2mPSb6bgmaQ
vc35u2P9HexOqbqp482hj8ec7ts4ftvtHPt46K1uo57MJrUPjN3JHPkIQ+1i
kOTS3lZowt57jDqo3tj9FntE/Lbr6uigyViHUUbWNjzwXOmoNWLJfZo6jrw5
yEA+IZf3lECo/pJP0uKy6x+p5b+D+OWJyTDrNJuxRIRSQjU7JOast3hWkv+C
TAzWyixuor3MmoxFCw8/K6WWT3JBoUsMIJQCFEDXI0QNSckAsXl/NNWKU6G1
INtHo7QZ5CC2/kvAhzs/G+4zm87RI2TrjF2m831DnzpxX+Cxsumx6xP9rdav
wykFFDLZ9T3utI8MWkyn6PCpqf2Mue/9q+rNq2XFsfIMqYD8kublqZOsxc3w
FiInIhE7/g/ZOKDNFtiW+yGKByqUEvCJQvNXvFImFWLJ/vioRYAmK6QFJyWU
0mJPMZVYkzHAEQBYKO20TIlsBlNBXaPZtaDw6cOGCvU9uICfdEXCmqnKNKQC
8kumUEqiXQ8aTkgLpRDJujbXBV5xM/dH4PzJdSldKlSGQXLbYxKknUSezKDC
4LqJtRtKUb3YQmawAJCD/TXPW5g8iWwGC6najrGA1NEDmWD0HpqbwVoI9uYc
bdWJQEqkHztQYJCFmENiC57srJQEk/DSBE006XKVioiNWVtn8uGDeqeQFboG
ue2TFEiBVduekypA7Mf3Bb6A1MtVe6EUdc9qs90VKBmI6PLD4NMtqaLrlEcZ
tTOUPls8+9sziSktGgzmlf0N3yXScQJSUgWCiMclCo6IFe9AM3pjSHYPS9dK
iQulkJROGQilEjT2e3/N8MXR/nVYq+nca8wfIhO9DxZdJzGFrlDcMFCtJvfk
E99eDt7DnbZBSxelT2DAmk6+NfyFeyqUYaVICvVLIZSSfsMyQikxFWEZbw4A
OYiGXJZUK06pFlJCh2BGmEFiCmVvwdlZK9MBGxBPfCPkuz5iOca2graahpy+
0IZI6R4RffL99Q/7zCaTqdc6dlfqTHCefTQTUwiYAlBI6X2TCBFbXZj669Xh
NzuaOJ8GvdH0rp1cXGVdiRmzHWmVzXTPkMR367P36ClB5ivOUZPrv4iHPf3N
imfloN6VFSJFJuJbiUue7Gjmgqf2C4MjNrJ3hmrVoX96rK79vZSpSWlp2GKE
UsROJIDb+k42MW71hq5L4m9YEUIpYnvR+5mZ/HKqDb03VF3pgIplNzJ5JdVC
qu3T2W2Vry7WwLx5wKu5GWJ5Ir7qtdYrdVIFBCCic+7+NiyxarReGL56/ea1
D5j1RWk/hUgy+EqJs7vhZgnp1PGrpCG2l3xXLYaUM0KoOzVy97G0sj6x7LnY
lF6CRIVSVcYTx6msCGY4/7Hrm+nZQMA/iZO/RU1dx/v4PG2lyz2LGk32u37/
d9cHj2MybVhQ0J9A2jxQLUJG/k5rO5ODqjaYP7o59Wg9lhZXkOHKreGOev6N
kH65FlqrT0Qf3aEMcDCD6dJnzpuuT3qNNRJuWGGhFPPg5Za7eutk2du3Anlm
Pxr8ooMfR+kMl7wK3CaFjyW1l7xMITZ/GDZU6bBux7zGpAgagumkwI5bb3NW
Y8RO4BOm7FSILz/d7VycUQk3KUAnY1hAlrdkHWWFEDmvnHlX6vtMz6yiWbWG
Pu+v8a0nfs+fqVITZV1i7LJY7Wk1pr2t0PfXR/pIexMyefjV/WUVPjmaadGs
fbcYdtcCrn4je9noz9q8v+T+HYnoY8/QCSx5I3CmylygkbvvUm1iCy7yhm3r
d82usTcsM7lJ3A0rLJRKbwPRpncWUDKgw1lYJAz/lcHOovuiPrEL6PesqKTC
0ipExPduYoVt6sWXtDoutPShZU7pm9lt3yC78c67DjlpDMUi0qgkOdhXFUMk
Ih65Z+tuEA6jGERfmfSs5wz7IySrhvWK61jMG6j+R/Kwco0Q/z14nTQWpr9x
vekLkeMeiGhgrKOWlV4gujIaiaPoFUGsz4y2Yzqj1buc7YYVGgAkQiiVoQ3k
uD1YvvE1kF8Sj9bvhlMtpNpHZ9bz+5hhbhZJ297ygw4p1WqQBDKyF/EM6DNO
9EYNzPOrQ2bbCpKI1cWh1THM4llTdh4Z/OIY9Mb219LcHuh/04en2qxleGMq
JZXJEu3gkfMYu/4V3RsTXT1rR/27ZXfX8fqvpSpd6R+R6glCA3gapAUgz+xv
Tl8x6GrabA+2U34fNBIWuGHFOEptB+0n+dsb7XUpAiUCEQ2Od/OV5rrmfk+4
EPsP+q4vkFKlBKEFIWo2SIrj5aL3mq1UuOZdzO82kNiYtNZjGXVofGGtSIsn
eSdBZWwQsLaxoDh/JHTxV5oY2Hvs7kH84uo6+u1uX3BpLTkX4CC29TwU8F6/
YjYgbV7CGhL6A2bqPyUiuJl5q6oW+9+LPf0OtZ3M5y9eFPg+NljHF0GpOmpq
4EJVn3edGQaavAZEdUiows7P9rYaXfNH/jSZroQbVqSjVHzZazVCKAUoJb6E
9zbx7pgCp4niKzNjTNtOeT3UBKHjqIZu273CxlGZvSaLSJ7rBrTHfsaJ3tzc
apr8Laz0LhsB67TNitS3Jk7Swr5M4SgxpnmWOoG2vmu+nD16+9GlSbuJjbuw
c67FHEUiOpuR0RINVS/LngStIuhcufJaN1P8AEXlEtOhPOFr3naMnebfpiq3
jmZnbwW/WJXZxjnFnSzXDSveUYrYnhlt5t61vC4JoDBksOKsab18b63AOW9i
e/HuaEfzB/IG3GiV7amh5lPDdx4Voa5HPJsYeE2E5LggYK8NTDzL43ew85Mt
8ZxsG19Id95Ah7Lp8lnuoXfZSSQNDkDVvxLN1XkQsfkv6b4SrPVPuMhBzMlH
RE7n2OwpqcSFHrAxSuHSsHKKBmxG9vssWHhQAGipAIf8/mhqp1Xf1JRS3ivU
AD7aFqb5k0CGnC1/vHKuFgzaobp5aFpEgywTvNGUXaISyDe0Gx5/VdP34uEK
F4EDZcXB9vT79VmmhBCrnl5ki1s96MvPZLvoP5wm5DhS67no0i9yacjEXsh1
Wq/LZOgkAJe4ziqSz5GS4gmlSsNgHJ3EpyQ0LSlS+68VGXBFcJMujQKJ3IhX
wbGWbIVgfuNGzhuWsoQV347HqdlV6pAFKobdFc87fBGs6lacAFB0qG0sdt4d
Tn8wx1c9qJdznuz3k7kg5i7rcS9Kc6ZVpSDFit7r3/GsSLY3IVYnBuqxrDkc
YtVnbcnm0o8IpUpk7B1aMC3KSJH9aPgn7x0cdzvtpFbwyqDFbDKd7jp/feGV
3K8HnVpIoswTPkMoVTCRWzRob89iYJXic5Uzo0i7HEjo0GTbFcu1qRPIC/G1
qdFUK06pe1UAKH0o6WnmDTUlr03eAAqG5OaAdaNVsltBZdJyQ6mDx66TiaU2
o2BMDEwFJGMegJrngtUPTWVMESR1eQJqq4KBhlIF7e9nSTMZoJGf9tkJOc+g
j3PspGtRSYCYIZQqlMiNzmFyFvcoKeX4nDcs1fQqacQSk/utHfGXwjUKaIH9
6PxX5lQLKeU2wgBQekR/sne2v/n10/SFhQoA8rzppmadKIujDtUIpeiiibKi
D11bySB2ogaUY2ecocwPEGLzR4e5parp9NCtudKw+yh6KEXEo79HSBaDt6xs
M4L80Yp0gyryNFea/UPNN8TELWqyH7p5rvPMtWD6xcQvx2M5p1rT6nRJ1XA6
lKq3eFZknTdQaRDxyITVkOLvem58Ln9WnABQgrxccLyO3AOvOxbUNmTgaRGV
VM/RUEqe9JcePKcwsUCFTGmGh/R0csWj8QoJ8XL6MpcoLEYolTyTXf9oLXMi
slVwr8Lu8/yNscLxLrzvR0TcUhhSPma7PZhjTyFRKMW9pOCTcQoN8ev0h6eK
3L1dd+rD6UyjzDVFBnc+OS4Eu+uh4MPl0thiAoAMXv3d3oJscRUWRDKAahEV
qhCV+yC9DNqPi7exygKd2koRF9ERaSlYHEhATZ8uRSCzlWXPK9mbc7TxB+Up
1YejE59pSuD3TSnHZ6wAckgWSrGzmRpsgfKzbEUpDRucot50KsDMIOMhqSmb
ZXtqqB6DmjKgWYgd/4eI6kJ1OfT+5szHrBaxpnV4Ipw+QFYCJWMpSdlf8+Yv
U48Cds6IZiiVUAoND2SqnZnSLYLiUjURxs38xu7ccUtB4DtzCnxG6UIpxkQ9
bz28JQNkpZSTwUJK3rASuo2iRJpxAEAGv08PIUbOVX2eVRWXU1SLqIqPPRpK
dToWilhpofTSSc/rHFaKpQzP5rGYoVRyBopsoVR6BkmBXQYNMuSOXiZOuh4X
2wss5WPmru7JEErRi1pDn/c3FU4WKGOIjVlbZ6oVp8yHPN2afda1BEkpQJMQ
G95+ZLEQGooq7b3jK55+RgPcaB5/sKaCS5saHXzqQJmFYm951qhln+4KFDmR
uYQouuycBpUkya6gpTUDyi4UZjirfGw0ZIHOcNQJZsmkC6WIX739jSXxSYGS
JhpyWVKtOGWLN+g9S9FnkgKATFLspFTUgaBjwVWcvoQul8UNpWgHaTozltOW
s6QpkVAKybTINoFPl74otUXiJ2xL4/fldxQKVTClC6Wo1gkRUyaBioYe9MYP
pNo+nU0bEymO/Q3vO9XF8bUDADVI0a9mnk8h6405LSJ2YsjzWL2uDNTtvMgD
wqil++iI/wWz5paKVZQk0FCqeG7niCRJeORuNtIMoBRKWFMSttlsVwtLyqDM
1B7SFKi4C2uwzYr+HujWVGWmpkCZkzpNgMRwySvbipOZbl/uHaPlz8tF7zVb
qXDNu6i2EUF28mUntffY3cPEUaJbYolY5FEg8CgSy72OoqFUkeUc1DpFhh+0
yY+mPBA41JppqIykJEnBzjQ1lFJoi4SOotOVSEoqde6eQAaPFkpJGK2oQTcP
oMAQe4vunlQrzgvOedkWUsReyEkqrorQ0JGHUQuVTGm0xHIUsMiSYiel0qaA
6+mQZi1CehQkpUfZ370ksig05NqdOIcn1Jrb2O/VYicOGprSGbbCQ+wGbA3M
OQikWXKRGkodtwcV7EpSfBXqL/kUya5UYj9ob0RWsW73cq5rjhJKYb1iG13p
mUfZDWaBigeVbbBg7aMz6woefVv+EWMBhzGhqD5qobIhnk0MvIZl+EKLAfba
wMSzAq3IKXZSp90Zes8Ontw+f/yU6x9iVxHixdz4OfJNJVu0UVe1cByJjh7D
kv1zRYFcu7HGf3Y5NSk4p/nN28dGMTJjaSK+9cTv+bNt0NJl1OvqjN19o867
QaTFYD8u0G6QJpQidiIPv3PZrBfamzBddVP7G1b7ranQhsClkRpKKfHKiK96
rchDtqkXXxLxXrGwd6SjrsZg/nJ2U+DCJGLPA9/+251vH0rrxUj2OZII3C60
QF3surC/OX3FoKtpsz3Ylv4AImKRh75bjtFByznyN9NhTe2m/hHnN4FIYXzh
gUJARIPj3Xylua653xNWsPdnU1ICjah5QuVRC0BFkmInlbmLn3KwEX9psT0d
Mqxu6dygCY8I/SG5L2dPumZounDV0HRo+x2jsaVUqj/Soc0YmchUMCWYRvy3
wI332usSj8L69v7P3JMzgdkpz/hgeyKc6L0xH92LLvzV2l6fuB4uT2VP2fGE
UrfDq7Ou/jYMM3RdcuA+6g0d/UZydT7a6/wxV+BBOX0lUdK+t/OTrZkLWcQO
3UaGuQjm9zb8I230fSetCskLF2s6Xb/kOC1qdrZYoRSx9h/vGqpkKIeJWPi+
00pdA1hd60Wb65vp2UDAP4lf+8BkqNZhbf3uEpmRBCgjvoT3IsVlEsX9RMSK
d4CaJlawYUxZzkONUQtAZSLGTopOF4jcL7A9HXJGBjB9SaKKm2seC5dDFBF6
5ZFkabgoWyo1QKvb0nJ8RDxyf8xERbX6nrGZFeSH248++X999dWGS1981l0n
HPQmhVJVhgv9Fww1+m6bdxFNjbxam/onql1I3z0ezProTrXTlJ2Vis47upNp
an0fHhaTrEMduoTye8mPXNvtfiphCUEvfoHX0vlbcUIpWtyIddpmJfXt7W3O
37bS5R7suPX23CY/0CWiC7f6X9PpWoen1yCY0jbEr1OXT6RaSF2+p+x35aZg
FH0YkxqjFoDKhO89WNXrWc2Qk8o+mD6V/e3ZT9uw9FVVJPQyJG5ZQeUixR26
wK1r2q2tI0szZvGsiX0ZIpnIrDjd3/BdQgpkOfInqFCKej4PeRbTrWmYHh9y
rJE9mE1MlTKZTp7dHxGb/xLpTjK+6xPZUEjPraNjnFF/rpErqF2VREEXX9iZ
8/LfDtjaRAmlGHGj1GEfSDt8FtUxWcR0v5f4G95QAEBz8CaoMk8LfS8eVuQT
iLo3F3sYkwqjFoDKJMV78Eiv53na5cOMmWtzzAl1gLM3hew+DtoVUKzsGZX3
FHV2DFNt0bAdClItlaAQINbuXWakp80D3izNXjwlXg4xOerdnaOUtrfs7qH/
KIeLLN2AxiKhcy35DtsPbG3cnZEzCZYC7eBEf5UCkQPSNSnZRAu9+HMaR4gU
SjGrpFST6p3F2wMGehmsOjc+lymOQkfcan3OXEWDTlBl71NFc1QPySUj9BcL
1wYo20pOLVQYtQBUJjxjxszVPbqdR9hLh4hHJqyGKrKuN7EQESYcCgYQZnye
267P3iTFMGLTCOjiW1RrKSaU0q4dCu0yKjHw4JwudFj9wESGZCbDC/8IW0HO
kTNHq3KGK9PZ1drJfEyuDDynQRIIujKfC28wq7ToAnHOFJAw8T6yQAteOnxP
3eye5KKEUvHnU7az0uModKpmNkE+P0Oo3bRtpYP+1mwg1XplUraF1CG5j1+e
/tyE2CkUe9qjKqMWgMqEH0pleNDRZQ5hNTVv76mQmsvTL8U8z9ErX6LURFWY
xV3DywQS7Yhtmd954mITP7m75tGAIUfOHBFK5e6GRkpbueJnYnVioJ6rWUro
60/EUa7eo+wrJUcXiFBKaDQk8pHlbIF3frYn82a1HY6HmeJ4YaEUEX2EW49j
0oemId9wjioP6ldW2+lcKLq3KSAdtAbHor/oXpQtazqIRR7csHbyzYfkZI9V
RY1RC0CFgloKZKpHxB46OmoFvXT4u3jFiI9JkJbw4u1o6NVTw9U9XvueuC+f
2Ji0soGKgJFjsp8uV8CAVBhzN86gV2zurrf42tQot4+u6v6XOeFKxEEsPGnr
5gpnjaax+xJHsiJCKYGnMaoNk9crxOoSabBO20x6ZooSSul63MsZQxhOLi79
k3ItV7rckSoRj/ww1nusru5Y79gPioeYA4WHLTegZCnmCnEQ23wa9Lnt/R0Z
HByLLvNWZdQCUKkgjdtp0QgjQxUS3MbDnv7m9DtDNhKCIjQGOOpYKM6NSK9W
ynwgi0syPSKyZX4n5DzDruEZ9XVJ9hccbMIrR8Cwu+Q6K+6JivyloDUrTyWL
6U2fTy9nTXcSsecPGD8HCv1Zm++pgON+OohQSuhpjGyBZbhPMPAnoKV3z9FC
qQy3xkEsEsBt5w2YDjNcdEjuEKFnTbK/GJiily980SBNTevQX2cCopidJk3E
b7sctqE+E+U0lo3MHU+FRJVRC0DlgnR8J3v0iPhm8GZ/GybCMERtk3hJxQ5U
LiWvUUsxjKy6qLp3RaDpEXEKgZ2ZkSNc7ey8O5yjHCcyRkJE1AKNM+jAFBED
g4jtxbujHVyAhLWYP3ZN3J9bivy6Ht2jfPmW5u9/c8M+kAyidPXt1r8E1uRc
S4hQSvBpjHxkRaXh/WjoznAHJwfG6toHxz3+0DoZBlJCKZ4BBRHbeBr87voV
M6UVb+ge/dv8pvSaG9MeQqNRe39ADPQoxgIgsCPLPyqNWgAqGW7Ci67aYPrg
2s3rV4cvtCZWFnGuemqHUtIG6lHeocW8GZkT0HBrEqJmEeWPx/d0FQgDkMgn
x1+KKwKSIGkf0ZnAjMKMTJB2oE6foJt69pNDhFJCXajJjyxpynAW4hshn/NS
lwHZ9WN1xq43ul4jvWMH/y+ZFrBdGbzQweQFyJDyprBvfBbQVHYOxTugfbJM
VFEbrPnKlPzqnvI5C4eqjVpIOTMw/680qEfxkKmVWW7qjllGritYUwoIXcKg
74AiyKXYG1C7JiTJL1CkPx4qJBYKA3ZnbQ3M8l474s/2l0gRUEB6SqdZeE88
sSQCqoff407meZtEb+yyDNqcuC/weF1yQY8PIpQSEn4gH1nFYdzx6PLcfe9f
nZ8N95lPGetSGq4Sj/G+oc+c+PfB5aiSO5snsARVSZlDxLZ+FdGQrYR1BZej
KnMWDtUbtZD82sD8H9AWRW27YC3dijy5RgFITeq4LSDGzgvdqApEPkjOMEfA
gFgxCPQPlvYijmbMBELreATvZQOdvBWm6fPpcAQ2FYaIKVADx9mQEex3gCKh
3pyFQ/VGLZCA+T+gSYiw+zRrblPgdlq20iHkIFS6IIFo2/iCiAFz/BJb7jBA
ZMCALM0CM2uQtI+u7rS7tBKBSFAqOF8bqXvmrV2COp98hDqoO2jRG9iBykTF
OQuHqo5aAPN/QLMgIlipZozK4JIkIu3ZS4+9OUdbtbTIBNXGCTiAIQEDL7Yg
4muPHiyssbvIaMBmZP4s9yxFVO4uZNBRcFChlFCAgcw84m+Wd9cXfl6QpXjP
cj75GMm6jJu4K0DIOwsA8oCqcxYO1Ru1AOb/gKZBWrOFXdlVZMs/QsUA8pvZ
iwvyvYmPTNDRh7k150j+ii9jI5NLyKS/ZCiV89FysD39PrvNLEGzRzRjJlCz
Q/JXfGss8hurVakRmzofsYarkkCbKLXbuApoFnXnLByqNWoBzP8B7cOlXgu5
yHKhgkbvCHokEBXpiBiwyIEkJXImkYhldzcb+fC86FMDhqTlfq5QKvkT67C2
T2e3Syx2ReueAqE1mr/iDRuiQiyVGrHp88nLlYlu4SWFUruRwI8hRSPbAEDt
OQuH6oxaAPN/oCxAEizNnwQK0mnK5RZy9KaVMsmZv/oBT0T8PY08DXKEUsRW
cKyL3X/xXAsoLXq7Pcg9iJJChezfJPL7Yp222QJWccWBJJqE2h/oCQI0vAop
JS0T5Uch8nwE1gXZ703NN88QCuaE1pA0D/pW1T8joGJQfc7CoSqjFsD8Hygb
kjmW+h48nP9rlMstqNjMXkg48z2pmyNkJW2wBXYzftMpLtxoloZKcSfNYCk4
EVSWzSMRDYwx4Uej2bVQekOj0USTLvugFnIlmLV1JjP86BRj4rmnt0GcH4XI
88mHUIri4LHrJP1ziDNzI16GvR+0YpLH/AEAH9XnLByqMWoBzP+BcoKIh2+Z
6fWsEIkpVhsjYPddmqDf1Ud+qcUyYtlzkVbLoMklDjqOqj1h6jak515IoXt9
WvDGPiEzfpnxZa/VyMRRQt77RQIVSumyGoDTg2ywVtO515g/RNJ6B4uuk5hI
Pwpx55PHoWbETnCMHv+HdTpDuRo/ifjWownbWb2uodt2D+IoQBHqz1k4VGHU
Apj/A+UGV0bPfxla00KpZAZPnrcJEV/x9JNp9tRuFyIWnnZcNGCN5vEHazsL
zk46d8HJsGNhvE+fUeIem3d260kdab9nJbngcgOMKIcW/FFJxlEpBhHUY771
ymSEV6skok989h49dmJ48tkrrrTKZeeoQZaq7Wfp3qX82sbuLH39LmlaqMuW
azqIrT+auvmR2VBNjvmbDqtrbgVUHnmYs3CowqgFMP8HypC9kOs0JTXU9+Hh
PBaCWG2MGlM/Cs3+tv8jKodSZRj+YVPmArcfDeGUDR2m7x65OTnDGfki6yYR
C90w66mIy2Sf8P+n99qAsYqMJTI9a4j42oNxcyM5vcj80U3atdg51EW+vNpg
uepb2i7ZpRgVSlUZTxynbMYxw/mPeRbHNXUd7+Pzv1OfnSuANprsd/3+764P
Hsf0F92L6hgLUGq0Aphn7kZmvrQYqqnBfwN293d+coDtj9PeO26nbZAanUB+
CTfvL4HUHFAB9ecsHKowaqG0fYMBQCZEPIz3Ust3zj5ZhXC3j7j5v6UEN+pd
eR8c6TV31znSd5qcUcKMvvo5EkN3gER8c8E7PkzOscKaOt760OVfybVnIwcY
3bANvtHeVE0POhm+esv3MFLaCQ1UKNXQ5/2VNxGMmoVnsdrdU6EtXupmbyv0
/fWRvm5yaliraeir+8u5LLqkQDujFujKpKeMXR3uM7XT8/30xi6TZfBDx41v
7s8/i0JFD1AN1ecsHKoxagHM/4FyJb7mG6ZUOtnMPZTD7o8KP6pGIZzsucrk
/Ee6zAmQAWJfkxcfJ6lQpQ3NXZkAkBv15ywcqjFqAcz/gfKFeDE3fo686/QW
VygfAQN9+2D1Q1MFH6CsBC7INFq9y0Vf8ssEZKB2SQjndv0jtbqqXk/eUrIA
UAzUn7NwqMaoBTD/B8qa+LPJ4RNkna/145ns7rVyoVLNuSYxlSDE3qK7hyx9
lmwfnCZBFBR58nGSyPpEX92RgviBAEABUX/OwqEaoxbA/B8od5gmekxv/mpe
ZeFrfD347Z3vQ9oJSLjpnxBHqQuqoNCecA4AtIPqcxYO1Ri1AOb/QAXA5Kby
EU1pCSIaHCetBiCOUp3tgK2NeY6CPAkA8ojqcxYO1Ri1AOb/QGUQX5kZ69Hr
alptDypUZn3wFD/fWNK+TNoFEUqBPAkA8kke5iwcqjFqAcz/gUphdy34H3em
l0pv4EhBINaC33xzv4R9mbQLIpRCm3oAAMgD6s9ZOFRj1AKY/wMAAMgn2VSE
nXMtas2rFQA0Rh7mLByqMmoBzP8BAABkQmz+6DC3VDWdHro1B8VTAMg/qs9Z
OFRp1AKY/wMAAAAAoA3Un7NwqM6oBTD/BwAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIDy4P8D
FUqMaA==
     "], {{0, 110}, {793, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{260.33333333333235`, Automatic},
   ImageSizeRaw->{793, 110},
   PlotRange->{{0, 793}, {0, 110}}]], "Input",ExpressionUUID->
  "4fe6921b-6e82-443e-a9f7-3f5c42559d4d"],
 "where ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnV9MG3fa761zbs7FXBwuuUDiCFnyRaQIIUuHKKrMBVEiJIhaIZQ0skzU
HBPt6QJvT3G7CqTaQFetq9MabUN63lptLPaNs5tRduv0xe2L20JWOC3uu0YB
ZZ0GIpPgNlAgyEEmGCbHM2OPf+N/89/zh+cj7arbxfaM/czv9/yeP9/nf5zt
ffl//ReTyfTGf8v818vdrpZ/+Zfut1/575n/0fnbN847f3vutRO//T/nnOf+
5X+e/a+Zf9mX+c9A5h/If34BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaARi
a/HWSHvz76e39tW+lOqyNTXY/MrQzXtJQu0rAQAAAAAAMBLplZnRbjN2Ymjy
UVrta6k6yZjPaTYd7nJ/m0iDlwkAAAAAACAH6UeTQyewA+peUhBP573nzKa6
lqGvwckEAAAAAACQSta5anR452RKExPp5KP52xPXvZ7hgR77mbYmzGQy1Ta1
veoccHvxb+cS2yU+J3MZvt5W1+SGiA9MbyyG/3187N0B56ttTbWZD8Oa2s44
XW5vILy4wfKZiV9nR+1HBqe2SlzA+qy7AzPVtbrvbIGPCQAAAAAAIJ6dlcCb
FhNm6QusSI7dEaknC1PXPX3tDSaajFf52sCw2+O9huP4Dd+Ye/A37aQHaGlz
/SmyuoO8dHvRf95sqjni+cdzYZ/4OIK7HdbMe5pbnBcv+/4WCs9GIpHZ6SDu
++Og/UjGY7T1+bKflfWla49575WuNN297+9uNJmaevClAxrLBQAAAAAAkAqR
+udnXTUZj88VfCLJpUI8Pcqx7PzdlUA4tpYq4bOmNxanr7raLCZz9+jMCvWp
O4nJSy1knLN5cHqd92fuJWM3h9otmatvH7oeKRkXfbG7MY9n/gazDU4sP819
Sqs7UiKESd9HOo73mDET1jka3YRAJgAAAAAAgGBSc2Pt9SZT0/nAsnhvithO
3BknPUbKt7Q63HjkcSnPkv2i5P3A4AkMaxuZebSSdfxMppo3gut7/D4155Q2
vDLy1cPKH0ckI6Pt9dhR20s19DW+HarULJ+K+52ZP8RaP5zd4nkxAAAAAAAA
AM12zHs646NhHd7YrkgHM+Mo3hp+JZsTb3h5CL+7wT/VTqek6xsasGxO3dTh
W+L16vTq1EgLdenu2XUeryB2Y96O3KfU9AY54qRZx7u+fWwuxedyAAAAAAAA
AApiBe8mY3pHXKEnovzL/VR8YqiljnbbsJaLgUWh/TFEOn7dUZNzL001R8fu
8ggaEruL/m5zxl80n/LFdvl+1ONAzyHqU+o6fD9xXefeeugCGZOt6fY92Ob5
CQAAAAAAAAeepxH3cdLhOjIafS7CwdxLzn/uMNNhQcxs/3gmscP9ogqXYeJd
hEnE8W4qI9/8QaRk6WVp0gm8h7rcjrEFHk7j7t2x1trMrVlKdp0DAAAAAAAA
ReQCmA2n/Pzy0ixQ99KEtVyaFOlekhfyPDp6xMS/CJPYjnzQTBVTlu0HL0M6
4iaz+XUXp5/xuePncf9Z8g5rzuMrfAOlAAAAACANIr35IBz8K45f83rcbvcf
BnvP2u2n29tdX8RFb7UAUDV2Fn1nSPcJO+uPCxIHeoEkqSnM5/2L0vLIz6YH
6/gXYa5PD1IOpunocPipoM+hPUzuIswcOSe8/qTv/gEbogkAAACoxd5q4HWm
OyGPgE5YAFCP5//wHCGdJ+yUPy60dHLj9kiu9lIe3Ujiob+rnm8R5l7U00g/
eTZ3JCnocygPk08RJnNhudJNkYUEAAAAACCcdHItkSEe+97rrBXaCQsAKsIk
poW4W9mXJkJv2fInKsf1uAwDFpdxewPfIszVgDN7tDvUE3gs6LMpD5NfEWaW
nSXfq9RntXmiwrxZAAAAAJDKVmigVlAnLACoy/bCWIeJf89LnvSToMvC+JfY
aW9Mlj5rysPkGf9P4HbGvz01/kCAyBKxHf3X7m5vVEBz0Iu9hbGjomo+AQAA
AEAiuT2IdycsAKgL8ZOvg0pz8+15ybH9g7uZkRbCLK5JPkqU3Ozf8x6r5Rv/
z7br0DQ6rtxZlSGIWh5hNaIAAAAAIBdMHg2KMAGdsB7srRHhNe3E/a/lpStl
TBzvPwy8ff7twEN+QcK10EATUvpca3W8d21qIZFUZop4tkYUnm4AAACguuRl
nE2mY94YJNIAzUP2ylAGWz8cFiB8wApgmrCTvkV1rJ1RKyrAbLMPuL146M78
ww3OkZX8SUbcdN2p4MYiAAAAABBPvggTO+yeBaEiQPOkE7iTslhBbT77W9Pv
5CswRapoygSxNjPSVkLJAQlsNrX/72FvIBxblexr7i77u+lbtuPLslw+AAAA
AHBB7ETch7ObWtNAaE3t6wEATpignCCLZVQoaTq9MVXndacfhUZeaTBxUmt1
XpleFlRsWsD+Vuht+hDZ4I4ok4kHqgORTvx9zHm0xhlYVftSqgeZsTjUPnQz
loQaj3IcSMMwJEaz9lTM25nLGvbgCdh/AO3zS7D3sOC0786s+zASNTw6tqD6
E0w8Ww5fd/cc4/Yzzee8809FO5lMaxF/qXZAe+SmUGEnLk79fJB6tpIxn9Ns
whra3wuJH7xlYA6sYRgSY1k7Eccd5uwuBkWYgD6gxSdNgqSKiGV/F+Ky1Q1O
P1P0GgWwn1r7KRLCve4Bu81sKgPW8v7MhkifeD/mPUa/ix1PyHvtQJXIexFD
k48OXCCAeDrvPWeWOt3VkBxswzAkRrJ2KMIEdEd+Jo6Tf9SdJRFkqu/yP9Tk
YT+dTMQiob/5Ll90thR4m/Ud3gWRw8UZBU4tRG4BweS8CFnmT6kEkUrMhfwe
l7OTPEbVNrW9NuD+7FbkMd8y41zpshG2XdkwgmHollQ8ONzeUGd1fDLLdfYn
Uo8jX/315ldzfIXp9GTt1PzxwGfuAerRbrB19Y54b0WpO1WuCDPzoUuRyetj
I+SnIju72dbZ3Tv0x/GJO4ubIndLvUCk08bfzInU5s8JZXiymSoTUs87i/w9
zIIZqYIHgqtAej02edlprc1ftejJj4yHCYWY+oNIrwT6LBnjrWsZub2hyXMR
B+knUdztIC3Z0tb34fjE9OzsVMA72Em6RhYBJWfpJbyHlPnCWj+c3TL+4sqF
/g1DzxBPAj01PHeT9fBwK/WXFmdghe8H6MLa079Ext9ua8CoR/sj/+RMJPNo
XxloyzjePePzyWcKFGHupxJ3/MMOK9ooizW1nTnd1oTsleS/POJw45GEkPEk
OmL7R09rfaMnqlXLkMzufX93Y7mUrmyU9IjEeJhM+zmNjG0+6eTar0mlJNOJ
dBzvMTPPUrd/WdS5DDxM3UJs3XG3kor5NV2f/VNGCasqQaRXv/f2HKWiMb+7
Mf8rYn3727E/dZO2jZkd4zF+t0ZsfDdkrSFf0oPLMexVx+jcMPTO3nrwjRqe
u0k+Uywsd6ZtayfSidujdsoHMHePzqwgj/Ze8sFfei211gue99vrsl+SLEWY
6V+j1960kfsh1tDiHPZ+cXt+KbGJWH86uboUDfk/6mvLycZgx1037m5o7tuT
CjUmyezA40a7sRzIHCgFqenGV4q/QRlimALS65Uh4v5T2HFPVLmizu2Y93Tu
ysUKWoKHqVOIlWA/JYBgPu9flGW8aTXJ7EFfD7WQW0yZZB9j2/wrQPa2Zj9s
JV9j7vLOqyoGoSr6NgwDgCiT1I+Edyrs88Sz6Ys5N0voTqFZa88/2mW6UPfW
QxcQbUA5ijDTjyaHTpAnUlv/p6HYZmWnMf1LxPeGLbtx1rUMfZ0wlJNJj0lS
Ww9HQRAJgmIaWuwD7475bgRCM5FIJBqL88iJP44FfmcteB/rhWDJEhQZ6jDl
8jCfx/1nMcs701ucx7P0atBlPX1tSfg5DnHmxbqyjIdp5Ki6dthJhK9e6LRi
mYN22wU8JlrlPhXHe6liXPMpX0x3RUXE6rcXs3tQLx4vvRISS74O2jJ5PUT0
a9bDI1TjGtbhnpVn6Kve0LdhGIG9u2NHsyFMLoGO7YWxrI2bat8O8TRyBk1a
e/7RNjX3B0sEgUie/8NzhJlvcrg3+Iukj8y6l3Utg4FFvjpOuxtRryObATSY
k0nJ6Rx2RyodbfQMPYa7AOyI4/1/C0WXhaeMiVRs3GFmC5BX0udheskF+PDs
XnKx6eYCyIeortn9A48gAjUpUlwrN+MfYq8HVsU4iNBLXkX2Nmbeb0FsWezo
KGJ30U8lkTN7ize2q7eVJFdFxtGEshMerqe/JwGNALnsobZL1JRC54ZhCPIn
I86pH6hcT5d/WfjPpTlrzxfIYZb+iSdl7+hpeJjJc77qW5ISwtx+4OuuEeMl
pldDQ7nIldbiwBJ4Nj1YZ2TtQSo1jLqDh7tG/ja/Ic5nQ+Lt+V25bWRmrbwl
rQScdABeSNaY5RXL0umzmwj0m7HT3hgPB5NS4xSXo877xmJLWUAPs3rs3/ed
rGcZs7hfPe+hHXdHNN+VVgj1aNCPcmUvKJ9awITE13dX8PNUfKSu1fPjwUoS
69swjAFahMmlmJcvwqw5OnZXlIOoKWunnT36ka2496GutSQNE2L3wfipGlPN
qfEHIs5TxOr0UEvOr+gamzfC3GQqrSlooKG+oFLDzAZaWOUrDCIZvdJVIMvT
3BeIV3xDcTN9ni2MvZz7iNpj3nsS646JJxP9llp+AcxsFFGUr8GU8dS2jt0V
5cTDTJ8qwq7GIFe1U37h1djpJ0EXdYjCzOe/SOhtHSHWJ10WeoU41BN4XOny
qcN49osSNI8mNTfWXs+9zRkNfRuGUUCKMDkS36hcT/PgtNjzvWasHXm0y3RJ
MCCPtiT1aeJJyHWEbO2xvWJ3vj16615SoNkTK3jOJzbVOK5rr2dKKHQRpgAx
cJ1BPA70HMq5l5JmzSDncYZGh3eOy4SYxnCBrXmIpYnNXbKunLcKeuaCezCR
Dt6v04NUrqHmPL4iLkpMG6QJ5pJXg4IYprjqqe0f3M20peoxToWcQLkKz1i1
K8JKOJjADtdOZyT0bRhGASnCxBx4RT8fnZkossaJQiPWjradchwekfYBSUWY
RQnTo4PTvwp8D6pELYsBHhyqCLPu4rSUUdJaZj3YS9s61jka3ZTgXmZbwxDq
Wi5+u8rjHZlAkUCfbSvqOYlJtzT6ygV41zkL7/AtCfu+iHT8uoP8tuvbx+bE
1pAw9TBiW9EBAewlF/7sIrUyaps6h8Yjvwg/U2hkNxELUo5SOxDaqvSnxE54
hHHHBZdw5N2tYyNhrTRBKInODcMoIEWYnLkwZsCxZLkeLVj79szwodz+iZ31
x5+X/1MmrGGSVoSJvg+NiDhJPotHPjs9gfK1o3rA4EWYzI8lrW42NxgLQYjq
F+PlCqydZkTkyM9r/zjKtysNgXYvBc1oY0aiC81x5GK8kiTviIf+Lmobr3kj
uK6BQnGgMvmtRMRpXX3ybWXcRSys7UN4hH9n0XeG3vCkpiR0gc4NwyigRZhc
9fz5TLF0uR7VrZ3YDr97iHlcORxmJGwoqQiTqYhjsA2HNwVfOporqekNPNFx
sZjRizCzloO1fzIvXuZ3ZyXwpoVlNpjZ8fk8f3+P+MnXQT26gmPF+U5M4QoG
+6nl70iNWfM5b/RX/jaK7LlCvGhG/kvi4DBmlZNF8xZQlsz+9Wb2uN38QUR/
8ygQp5F7igcS4RGVSkPqXgyQ/KqM3g3DMCBFmFxndrkyxTRqWzsiu8TpMDNB
FYlFmIW6iJi5278oot+HVR4vw2+hHkYvwszGyY+4QqIjzenVqZEWdnZcuBPF
WLsI0dG9ZAx3ZbvX62x9/xbl0QVPDpa9fpGcQuv8ZEbYpWaLMMla5abGBn6K
XkTyHu46Lstc2twqJ7qTEagi+TJOGZrR1EBIWhDpBRCZSkNqwmv7gkbOlOve
MIwCUoTJVfXErPxizbsAla2dkXAxcaYnkKCKVHeOSM6N9x0n3UNyCuQtvhNm
C2EUDqU7vepi7CLMbGecBB22veT850XSlyLGUhDPo6NHyBc3nPILrG2kXp7e
uIsPvZy1uYaOAe/kwlrJmGw6uRz96uolu7UWs551fyFi/hQd9aWCtFvr877X
SSXuzFvhP8STJSI8RCoxF/yYGkfO1/utCBNTavNEoQhT4zBWLe7opAEEpAXR
mxXXcf+CVWHFURima/RvGEYBKcLk1NeSK1PMoKq1o641h8Mst2stAywPU8fp
PIMXYSajnjZuBZKyEOnEhMtaY0KpOXPlrqhu9NzIAAmFu7sb87dG+9pzllfb
1P6bwfdHvf4bOH7D7x19f/D1LpuZjD229Y/eLO0QckOZBBKK3N2MTXh6jlEf
arZ1vZ77RPyG7/LIgN3WkHk0a60ONx55LMO0YWLJf4r6qCOj0eeGPPUYiacR
93E9r4GoI8RZhEkvJjSilxSkJNtUf9J3X3/fGS/0bhiGAS3C5LLw/Oy5gqDZ
ztrCjwurovwuFa0dTTRzxNAQ15rlhRPp1Xt3FlbVKIJE28l13JJg8CJM+hTD
f74bG2Lj9kihsrqQfplCcpXPUgt391NrP0VCuPejoV6H/UxbE/meDbZO+9ne
wQ+9eChyf1WSp7c20dfi+qJwah4ZGv0G93qGB5z2V2ivsqnttKP3ncvj/x6O
SftEhFzpjmgtTaCK5Fs1dVrSgBZNccUu8n0rJqx1NCq6sBAVTzOq96V7wzAM
SBEml4Uj0U6LM7CS/z/IbbReZKmDitaOOMwcH41EO9lqEuS3J0z2VjbYMUy5
hvpVGzo4bNgiTKq4Ajs0PCPi9ojknNfRyHIvTY0O34KUfE/OfbJ046IybMYn
p0woXksTqBpoq2arO1JR5kebCJjisbceupAr6moZmuYjUVYOtCHdkBlk/RuG
YUAzxRz6lmi0k2WWlOcp+ndU0doRJ62idC3SuG12oFuzFNdaKgUepk6F+6hI
rIjp9vpgbzXwOiZKK6CU9GV9+2hEqDh/EdnkEcznLc3u3bHW2ox/yXPwEKAq
m+FhW/bh0Okakh+QxyUjxswoMdW1jNzekPbsIm0F4qqyNY7+DcMoIGFJrt8i
b+EFOWUqDHXo3bDYoL161o70klfwMInN6Ghnbq9n+cDUlavUDsBI9unaw6Q6
9LlE/nUMkVyeiz7cFNrqQqzPujsKldUFj7Av897ZMCYIxBWTCxNBAFMXCBgU
ok3QAXkVa1fyexBmdozHpFeE7ISHc7uH7uWUi9G9YRgGNCxpqpRpLdjy0NMW
meY+LC4PmEU1a0eqrA+7IzslP3gnMXkpLxTDKnekEmqKtAMQe+k9rjGABcN8
delhUi46SEkUkIz5nIXK6oKkL7nef36sC4MwZjG7C96OzEpU3+FdAP9SeYh0
WpJJI+ERndbaFSjX1bW672wVP5HE1oPr/RaZ1wFER8VwUT79G4ZhQIswMzT2
BX8useXQw0SwFvuZl7J/iET89hd9JzGJapbqWTuxHDhP98uUDEXS7mX9CXuX
NbsGIMFbMqFmkWczSm8tR7/Fve4BZyfVwpBzLJpOvj70sX8qViIIlu+Q0oiH
KWK/oIsw+dRXSN2M9AP7REObQeuHs1ty3n5uTE9zfxAGqTGknwRdFqnC+AAX
6fVY6Oqw81hO9qrFPugNxdaFN54J6VEVCJF6sjD158tDv2lvYnLYZpv9LQ+5
Fota70vGDNAizENDN/7ypgU7MRR8iFofkYpPj3ZTf2RpH/kqnpJrc0SdW4OV
wevfMJSnSjfCkuuh9rIisWIi+SDk6TZTHazPGYF0JnCXjgf6miVP/FTR2on0
SqDPghUrn5OP9th5K9bouHJndZsObpiQZqhUHO81Wy6EJHVwE+nNzHJLKgcy
PmXbuYFhNynGQmm/0AaANbS9XTCuFyktUNXDJLYTEdzde7IpO5zJ2nmB/37B
owiT2FoMfuQgv59aa8+4fHE8bbKXjH7cznYvTdYLQWn64ZU+SKoBGwdi47sh
a40J6xqb118uQC8Qybv+vlYss6C1nBu6fPXap7/PLn1iFBKY2fEmORXkiK2l
0GUnsyAX0/DK8K37wsqhqThGiXQtUoRJNpASTynpV0vbwGU8NBOZnZ4Y/6DH
Vpdd/+/IocSVB507XN/lf2igM5X+DUNRqngjaBFmje3EcSp6hlnPvu/7cno2
EglP4uQKUNfQ/g4+T098YwIsjXbPrXD466sDxzEx4s8FqGvtzLwSzNw1fG1y
JnfjtZj1/Nh0nHquiVRsnFK9xsx2z0T478FP+201UnRjSNf9G6+rLRuxrLU6
3rs2dW+t+IhKunDXh9ot7EWYNZecQoWWQCJ57yYlwY1Z7Rc+8l7z0esh7/2C
uwgzG1bKgVlck8YdQoEOZ8xhPuedFyV9yc32ov+8OfOV9gVW5Cjv1DdEIvSW
zWRq6sGXdDx+VdtktRGw464bjAg/sR35IJtFE+rbM1NQTSIGoZa7wuxYKC4a
Hd453lswfY/FpRdoESYjbrm7Gfvm6nCfnVQAM9s6nQPuzwLhB4ILuXmAxij0
PLCjCN0bhoJU90bQYPLh3uDP6c0H4cBnVKaW0kzO2LfLU5SipR+BXlJXmUxw
fH57WYafUHVrJyfc3fIO954ik9QNtq7eEe+tHxMsf49IbywErwydyzz7WFP7
6+/6wiuiZQlXI74+W+4pML/qDv5U+dckkvcDgyew/CKMzruk4NABUIDUgo/c
L1r7fLOruf1id+FKa/Z6uPcL7iLMohi7fmU/uSDSia+HCqUv20Zm1hR0/oi1
mZE2TNhiYkhoZ1uWVn2gDMRKsL+5xNkTieMJK8JH5yfKIHOXeQC/dXcdNvGF
92GEiOPdllLJAiFKmEqA1llxzPLTFbo3DIWo/o0gwWSsB0+oenY3qrUXk/41
epWcgkd/72b7xzxHNhPJyGh7fa47A513SdHgjlTzB8w6JzZXcLncfsE1BpRH
EWZhN1OG456ocU7bDEQyeqWL3dxjau4LxBX/SWlNJEkq7nqHzsvI1qoPlGI3
Eeg3m8xd3vnCRMtqwMmEVIQU4aMJOOmKxCVGG2Qx29peKlyEsv9PL144FKDE
G1PhnVLq/WioTRXZc3R1rR8Jl2501R+6NwxlUOFG9u95j+W8AdWF/Q1q7YWw
RA6FNgbSPyUlMoMe02gq6nnKzd7G9CVryc5H9KTAsV/wUcLcinpOskP6qjc0
KUB6Ce9pYv+cVYwrpldmRrOF1gfPyaTdy8Nd7m/Vcy+fLQY/dWuFT4OL8p/g
iPVJlwUr2ULFrid38g90oDuG1OP17n1/NzLaoKG9z+MPRZdW8zNP91Obj2OR
4NVLDivSiMldtEOHd0qKX+WXSs5x5AqBKioL+OY1ju4NQwnUuBEigTuyb1Vz
xPOP6k4EL8aY1s6CraGNtX8cFdq3Qk1MrukNrpGTFlE4B8rLyvaPntY6U/N7
4aIGZwH7BU8lzPRy0GVD7tRwHmYJZfW6lovfSpnYIRhia/HWSHvz78WNttQx
W1ODza8M3bynZnK8RKBeTRRIhtCzSo+4QsU5cDqRwcB/5c+80Jl7lcSZs1nx
LhKstffTUMVe2r3k0qTHntussTO+xQq+IR0TKKneTzybvpgLEsjc78wbdO6w
YdZVvRuGEqhyI2iriKiZIzJjSGtHKHAkeMWfi6HmH9W9MTZ6ir0tVHON2l3B
z9eUHjtYIK9aab/gr4RJbM2MNDPvaizboHXAWD8lZu7B45CuPTgQjyb6X+JR
e18VsJf6Jx7JbHz0NO3WKwvF4qvoyGCToOwVWojeYMeXxV4ckZr/hFZvwFp+
h8f4ddXlF/OKTkKlOBVy/arVlicjblvuO1TLy5UdvRuG7Kh1I1sRd7YnQxuC
q4a0dga6lYBBvA4hFfCwNDUV5MirOJScVqVu/iBSYoQTekyo3MdHj1NsHpxe
5/ORlE9LY6T49s5K4E12Na28yuoAoDr7W9PvWMoMayOeBHqQEymp2MP3bdH9
gucyUordmO+U2VRKpo8DprLF8k6ZyH/FOBVahKla3wE6r1mKM6YpdG4YsqPW
jSBFmNoYGmVIa6cpFDmUJB+awO2mIqpXRktPQSpTVrE9M3wof58V9wtK6p//
4Z1pIJJJfUIDpFenRgqV1YUuAgCgdahTJ3bWHy9eMNJPAujUCEFjTGXJeeWG
hFreDKwIfu6IJxP9pJBymXgI8STkOlI2TpUvwlRxohmaUFblMvaS8R+CN3Hc
7/WQNcCXBpwOu/1U59mrC+LH5OncMGRGtRtBijA1MvhedWtXDHSeO4m0+Ucl
PMxqltEmo562MtqbBRKdFQPRtAyRgMN7rnde0nmfIPW4gn/F8WvUivaHwd6z
dvvp9nbXF/Eq+3V7yfnPHYXSl9J1ZQFAY1Dl1qWPwFRVed7+D70bLpEWKQda
ty/Wkdi/7zuZWZlLFojyIZtbKXmUpkbdYZbBqZKnbKT2tuQsueqA7rnVFiOh
KFJEoZEUMNG3YciMFiyco5Kzaqhu7QqxHfOeRj0J7KRvUYr3XMLDrGIZLR36
LjmKvaCkquJ+QQlKCJoYm8191A+HJRgrnZovotp1UEQ6MeGyFuh8nrlyVyFl
dQBQj+QPno6233zxsHjNo3ao/AMg8Jgs3ZGg0zHSMkp01qZEmdnTiPu4CTvt
jZU+MxJb/+ntPlLTdGrw+l31usxU33OJdPLXBMli9LrLmrMEaZPE9W0YsqKq
hW98P+ZQ3cJRVLd2RaBlOhBPQmrEGBX74uPLycxe7NqZjtOfRoutil1ShR0a
nin/CNENQYKKZGgP0+IMrIi67hzp5Bq5oMVj33udTLy1unVQJXTJxCgF7azF
onPL2nh2AUAwzxbGXkaegZfHFgSpJKGOhLgqdFrwXOLxnNpni0R9CWq8suRh
ykqD9rOru+cSO+GR+uyFSCieJAHDYDDMjciCdqxdRp7H/WfZQTOJsx1Z3xIP
X65qFNxp5dSPwCJM5iUyTsbMK8NLPDILIzs4j0Wjw7cg+K62pgYtmLSILgCo
x/N/eI4gJ1LBmR3p6nbPop7jWOtoVNLxnA4TFZR10c6zFhRaOJBTOlISyHgj
qRklMIz8xxnlRuRBM9YuH7t3x1rZw8OltuSgg8ZotPErF5RUlUyjMwguwsy1
Xh52R2SS4t/LC4pKPDILoYT0pbhJhXTJq0YqqAFAKMR2+F2kpEaEJWtGP5ka
flHTG8wvItTpLzd8TdNoZc9Ftw+pGSUwDLkxyo1oxdplI1sFgSC5JYeI4w62
emJlX65asIXWOW5TeBFmtvVSiJhJZRDhgqoVYRLrs+6OQmV1kZMK6X5JNWYZ
A4AM/Do9iIyMqOkNPBG63qOORMfYgoppHKpdJT/xooJcsNZgyReruefmO+ul
Z5TAMGTHGDeiGWuXjeJ4o+RwGTL1m6L+pO++BpruC+60copcRBEmHbI73Bv8
RYaLfcFuSqqS0FMy5nMWKquLlr6kzUD1Sa8AIApiPdiHrGO1fUGOyXQlkKNl
WB4oiW/s9cAq9SzT3btlJQQ1hUZ6H9DSL+kpOTAM2THGjWjE2mWkSIpBaris
qAhTzNlfAdAB9ybOsKrwIkzi52Bfo5w3m3fUqzMRmB5+zfYvWz+cLZq5yY+M
i/5mrcEUvYADRIEMpjinAl1d1XUkaIUKOlxW5WmAEtHInosEKGQY/gKGITvG
uBGNWLt8FI8bllphwk4taeZXZre3c1UCCC/CpNrWMItrUnigo/T77UTch7NX
W4XpUYV6+yTWC0HRyur0oC4Zm54AoJoU1GyXng7GCTq6ReVJstRKf3Q4/DS7
RGtFAJATdM9Vb8oJUvqFOfCE1EUeDEN+DHEj2rB2GSkSrpTY+VuQWqrWUABO
Mj9cD+JAFcoaFEC5o4Iih7RagjSZehbIkRnrUbgUnNhd9HcXKquf886Llr4k
dmNespqz2vW3SkzfAGieLQY/dWuFT4OLglSDBCNNBpMBdSTkq58RBbWmkXsW
rdimHwkXuUZ4SyOfUZIlLwOGIT+GuBFtWLuMFHqYErUc0dncJu0EMAtnkXOk
OegiTAGRQ/l1t9BuKWVLGYl04uuhQunLtpGZNQm3shketlV3ihONEtM3AIri
ZIeqKJw/KpDBFB2K11JEglzqM9fwgFqiG/uCP+tk+0WdMTpCVX3QjBJHdIIf
YBgKYIQb0YK1y0qhh3ncE5UQHCgQPrJcCFV1DE159qKeRiRG1+VfrmR8VBEm
/8ghPflU3gkI1SrCJJLRK13s5h5Tc18gLmH7zgUwVZg0p8T0DYCCeDTR/1KJ
UVOqgL3UP/FIwe2jQAbzlL9EP+r+gxtnj7/i+2dF00Jn1GL5PldVIJd6rPH/
+rw664D4Jdibc+5EuvrUHN7AZ+4BZ6fNbGqwdfWOeG9FV/P6GHtpDq2MoiJM
Yjsx97XP7TrX1oSZapvaXnN5rk/F1nkvm4Y1DCKVmAv5PS7qq6a+mQH3Z7ci
j1NV8Pb0auEo0q2dhPoVro+NDDjPkAZqwpra7H3D3i8jiaqNvclR6GFK0eZK
Pwm6kBBSUw++xO+9UvHgcHtDndXxyewGx6NGpB5Hvvrrza/mVgXp5+SFJkg4
AiB0TxDfwNfexvQlq6mu1X1nS9iPV2Hdq1YRZnoJ72li/f6mRod3TtIMHmIl
2N9MvlM1pzgVXYR80zeAg0aBDGZpwRNK+oz78EIebXNvVDc4rWxqvzK0lprN
dkRDqSUe0CLDWV8s1ynMn/QvkfG32xoyu6ylre8j/+RMZHYqcGWgLbPd9IzP
J3eTC392tVlM2ImLU+VDXqwizBvxJ7O+vlYMs3ZeGMND1BuO9dnIffxoj/d7
nhuTAQ0j/SSKux3WWuqr/nB8Yno28814BzvJ+itL+9DNmDhNEv7o1MJRJFo7
6SDFb3tdlMFjDS3n3b4vp2cjkfAk/unv7ZmfBmvt81d3PialU5pHSiP59g/u
ZsaNw8zd/kV+SqfIJEfOsPB6eLiVXvaFZfNZjnRdh++nCldGJHAHxjdySKz+
x1vWGsE91xzr3rNqFGESP09dPFEofXnx21VJ5rezEniTOmWoO8VJxukbwEGD
jwwmbWA8ovSrASfzjNnxhDJXzIt8nUP1kwsSQMszhAX7iHTi9qid8uPM3aMz
K8ivuJd88JdeS631wscfdTVwu3nIbDXrub5z1jpzlzu4iEYUnq9O/YES4jB3
XYny2sENZRhEevV7b89R0q1p+d2N+V+Rr3p/O/YnqsgfMzvGY4qGMnVq4Sji
rT3D7sb8DRdd8IYdd924u8E+7BDJhet9L5lMLUPT0jZ5QRSqo4uOYSbnx7ry
7oq5F4/zDPCiEqNcYeH8k17f5X8o4FtCH2eO19L5C36Rw937/u5GE9bhnuXf
Qc5n3fO8357z+xWqISSeznvPFUpf9uBxMcrqDHvJ+c8d2Y4hVac4yTl9Azhg
sOV8a3oCT0pEMKk0B59GNrQ+R13xEWYN1FdZMrJ0Y87AKt+XIeXlpZsW99ZD
F5CMW4WwA5pRIv+yZTCwWByOy6pnkLNFPVEehZrGMYz8V421XJosIT+yHfOe
pj6hvsO7oGDfr04tHEWktb9giQ2W6dIl87/+tzN/w5p8pDgFo7rFTWAhUvOf
IFo3trdC/OUc6FnetOs3Eq40bxFV2hRYL8ruU6j4QG9F3K28IofZ6YqCBnYL
XfcUKsJkIo2IeylaWT3LXjL2JyfTkC6DZJwE5Jy+ARwoCuR8D/UEHhc9pNkh
yK1jd3lsl2hhlarzAbN5HJ1J1CLZZAHPMrH67cVs92Jzf7BM/yWr2rZC/w46
qqNCbm532d+dXfx4ifMbxDDyX3X5sFJeKlDR8kh9WjiKOGvP+PCLN/qt9N5b
c+bK3VLu5cbtEaaft7onGroPOoeYqj9i6467lVmVeacJaGjlSfq74XCtkUZ+
wQ4M+jhXFDTjWYSZjQEKm6gofN1TQshib2Pm/UJl9dJnT94Qz5an/2hH9I7k
G50p6mrknL4BHChYiselU+R0Zx9fHTbUP1FV+TC7/+pLopaW0Ra4N9GpJWph
s/RPlAhBZ3kaHs6VQ1SopUHTfNZL0+U7BfJhDF6VOYYwjHwlf8W2i53wcL14
B4MvurRwFFHWztrQy/0K7EBitWO8THEj5RsIHI5GJOe8jnzNstAZ1ogQOkd5
JOtJ52gGL4Y9oaP85B1eRZjpx1PuV4W6l2LWPfmHeqOJ7Bzm8/5F0SWT+6nE
nXFXB1vJpgoS8RWQd/oGcKBge5gllmI6X8O/lQA97wis7ZGVrP+jswQishjy
rUjffuDLhUwq63ugG0qFWhqkCLOy/BqSKOPjMRrAMHYTgX76G8Q6vLEKbRf5
r0bBxnl9WjiKCGvPnHcn+i30hl6hzg2V2VS4VoHjIrmeyoIXJud8VH2vOPeS
XYRJz3sqD/Kki0l9bv/oyQda69vH5kqdc7iLMInkPdx1HBN8s6LWvaNjC3I+
jUQ6MeGyIk31prJBdS72UxsPoyG/p6+9hEqius01Mk/fAA4UqIxMqaxKam6s
vV6YDhsiZKFebJ9eafWWQERba/l5DsT6pCu3l3EIFOe7XCttKEjisrIqBWo5
/BpRdW4YyFddspgEAWkoFlheyB99WjiKcGvPK7dw+BWZrf+70Z5jDQ3Heka/
E+ikyUJ6dWqEyZzWdP3rXe6SvP1UfNLdxaSeG+2jt4VfOVKEyRFuQsutxenP
7G3NftjKRO+wDvdMcRyTKsI0dfuXS/r4TK+W4JsVte7JrGLBLmbIfkLL4J9n
IryYnSan5dzwjbkHe+2UyFY5SjdHVA2Zp28ABwtE2qJo38+WXguqM2dvHDKf
GflDr2zS5I6rj2BZYKaphNvt2VsYywWMKmwoO0u+V3PrWuWDM/KXPEXU9W0Y
SOKVK1VELPu7mO1BqcZ5fVo4imBrp8ev58xT4zOMWM3FmNn+x+nlZ+Wul0g9
vpMV26Ewv+oOPRSjQ4AUYXKFm9ApimJ0oiiQfitTqY5+ugizxMO+n0pEcPdZ
K2bCrOfHWA3gfBC37slbhEnPtawCXOdZZZF9+gZw0EBkMfLd4kR6I3qtrxUT
IxiLVtzJXvfCj2x1t6odJYJBn2V+BdXbM8OHmGTcWX+8Qk6bp+uIFPBzqFKg
Y+N4Lt16Ngx6r6TgCsCi6sSKNTLr0sJRhFs78XOwjylQ1MMMI2Jr8dZIO+M3
Ykcc7/smbt9dSvy8ltylpqUszd/+ctzTn/ctTZY2158iqyIfDaQIkzPchDzp
kgot9pKxm0PtTCM11tA2cCUQjq2RDjJVhMmKHBKp9YfRr69eclCNWoe7Rv42
vyG8hEHcuifzmlNmoqLcYM2XpsSnyDU4fYO6LO2MSACqQDZWSdqQ1f77T69d
vTx0riWz6InVK6bk2WnUOX9lL0BdVRzBIMVjvMY3sKXyObYJxCGs8Jf8Mukk
SLSEfyRNv4aBXDln1T26qSllg/q0cBSh1s7KtlRoLdEYJRs3SnoS1s4L3pDA
nZoNWoTJpbWef9LlEPBJr8dC3gudViTVizXYOl/rfImcCTDw/8hcsPvSwLn2
bDKYdLavCXVLcohd92TPmxCpzZ8TyrKWFG8Pmpy+obkRCUB1oJaIQXtLdiVs
OOYcvip+uRMQ8FGC3LFLX9qw+S+N5/gGtJ2Ba5vYmXUfzi7/9cPhcn+JZJQ4
/Cg6OpGFf4OhXg0DcRq5e1JQIRcl1FFe6NXCUQRbO6tiXG8dBxk/c+4b3JsN
JeUx2zqdA24vHorcX5Ouzo8UYXL1hiiTO04nl+/eDv7Z+9FQr+MVWwO7tJCM
U/UOfuTFv4kuS/CbRK97Ko8SqyranL6hyREJgC5RVd8gN4BAX0sKkuE67o5U
nvVGg6ZpOBxCJARXYUNB1GM4/CjR271ODUNISpE1N1CZYgB9WjiKcGt/FvUw
ZW8g+1wKNK3AcfRIJ/AeTFETZa6nfSyyIe9oK9nXPYOhzekbmh2RAOgSIu4/
hfFaBOT/6Gw2jUsOTlsgrlfrlQU+A4hZeerK2wTPDQXZxDlEdpBoianhlF9A
IE2XhiEgpUiPJ8j53qf8cQVMUJ8WjiLc2lmRYXXlATUK4rRzamQpmTtmXY8C
ZwH51z1DocnpG5oekQDoEqQsX6jmsDSY8BpXJZKm2L071lorzGFDB7fVXZwu
26j6grWhsPYeIr16787Cau5pTkbctuyfVe6ARivtBSlZvdCjYaBOI6dvk4x6
2nK/ikK1pvq0cBQR1v5iGbcz5s6l9HgQQYswuawUGeHKDoPvrC38uCC2z6jU
9YjTQaqI/OuegdDi9A3tj0gA9AgiLcJ3HpAsbIaHKTdJvARH9UG+K/4OGzrp
u/IjiZz62dWPZCgSEWzMe5gVD5H7W9Pv5JIsIuSsdWcYQlrgt39wN+fkYlpH
o4p0RurRwlFEWTtLu0C/HfTKgaYVOKwUiXaylWzJhaJeJs1D6np4C+kLQP51
zzBocfqGLkYkALqEKc+ops0wq4qOzkH0XE5qIeQ3/J0GiepUDDki8ozsYTqF
G0p+wFMlDzP/s2acqA9nt4Q7OfoyDAEzQdACJ8Xq1fVo4SgirR318wV5mDuJ
yPcxbsFznYPmjjmOHmi0kzVylPI8ZdI8pK9HERMVse6ZHXi8/LpnELQ4fUM3
IxIAPYIEK5o/iFRF6Yo5nlfomNYaxAqePXma+wMJ/g4Xcu6rsNISm9HRztyZ
nyUrRJXBt3mizJEzX9dd/ttDflOswz0rLsutK8PIH+S5xjfTA7BI6lpGbm8o
c1t6tHAUsdaO1irwH8VO9xc0D4SeiLxcnYCEJbl66PJWWpBlpqoW+SlH8bse
jsCXWESseyyDKVr3jIEGp2/oakQCoEfy8QpLN65E00MBzPFcR52DzGwIoQE9
ZM897I7slPx2C4ZuoMENqvQlr7FPwRRYlkmdEMnIaHZ7anT4Fnhu86XeSC+G
we6mrCDDmN/RMLNjPCZv+2wePVo4imhrz3gG930n6/lsoFmIZ/Hg71swEdO9
dQcaljSVn9JIxrlm3R35gjf0xEQ8DvQc5qccxfN6FCjCJBG+7rEcpFLrngHQ
4PQN3Y1IAPQHkY5fd9BrXzWiVbliJI5HTDug3897YaEZZ2I5cJ5+tEseyell
tv6EvctKP+VoyILstrAU7fK5g3DJLzC9HHTZsu6l4ElPhZeuE8NAk7PkN9jq
vrNVfLHE1oPr/Zase/n5vII5Wd1ZOIo0a39BbEdH6UHYWIc3VqkDnUhv3ptw
v2o2He5yf2t09/IFuwiz/G5OD7LEWuxnXsr+IRID3F/0ncR4Kkfxux4uTU7x
yL/u6R0tTt/Q54gEQHcw5cfKF93prkQtH8oTV7ZHpFcCfWTtTaGUBJGKT4+d
t2KNjit3VrcXvB311KcwLQCpON5rLtlnkZr3dpnJVsS+wEp+a2amiFJiufg9
OcYu6MEw0CLMQ0M3/vKmBTsxFGTNjCa/6tFu6o8s7SNfxVNKWp7uLBxFqrVn
2F764i1yhoipXGRyP7V2b+raew5rLTnwejquVCxZU7C2eMoDb7k0mWDVUBDJ
ByFPtzljvZOPnjOFCkwoLx0P9DXLlsekxXAUHAegwLqnbzQ4fUPXIxIAXbEb
852idmBzLx4Xn1nlJFeMJMcctGqwtxV+jwo91FiHvhNbtreXjOHUoATM3DV8
bXKGmcCF7LBEKjbuMFMLst0zEf578NN+Ww2515Q6VRLp1TtXHI3kCFHHe9fo
WWPewU7y5bVW5+XQUokYnki0bxhIESbZjko8nfe9bsUsbQOXqaFp0xPjH/TY
6qhxzG+P33mstD+jNwtHkcXaX5ARqplPnNZa6jvv9/i/DkcyfD8dvOn3ugeo
qWSY9ez7124vGb67JwdahFljO3GcGqZDfgmskXx1De3v4PO/Uo88k0RutHtu
hcNfXx04jpnP+xfl0YCiCh2VVsWXfd3TNRqcvgEjEoCqQaTjeA/1pFcU6ZII
Y+q24fCmQp8hI8TWHXcrmYcQ2ZGNvlXqceSWd7j3FDmprcHW1TvivfVjghVM
I9IbC8ErQ+famjCsqf31d33hlUrLLDlFdNw98FpbUy097m3o8vXQXEJuD0rj
hoEWYTK1f7ubsW+uDvfZM99kdurfZ4Hwg81qpGJ1ZuEoMlo7+W6pxFzo+uWh
XupXMFHjF+3OgXfHxr+8Pf8oafy0OApahJnxGX5Obz4IBz7LTagk54M7XR7/
VIxtorQZ93Zl/qahxT74+e3lSsqSQqB1zqthovKvezpFi9M3YEQCUE3Sq6Eh
qiqmnOaqdHKZguqPIxQBU3JfY/f+02BdjYLQsmEIUcKsBrqycBSwdgVB1LOV
0J8UDFXmpzsT1TVanL4BIxKA6kI8vXvlDHnQMjt9MSV2GfrQhFkGp+QQdFMU
xq2yuYLLqm8JKqNZwyB+8nXkBplpou5RRxaOAtauJPv3vMdqNWSlO+HhelNN
T0CxlARQhBanb8CIBKDqpB9NDp0gc6It78+UH0ElFqoWBTvpiWp8+yV2F/3d
ZGpYeke2UdCmYawHe3MTMrRR96gXC0cBa1cWpM9CIf1JgaxN9DYcqooEGcCg
wekbMCIBUIOs4o0Soi7ptehXN7+JaXsXI9KJr4fIAnXYcNlozjCIZ9MXcxFM
jdQR6cLCUcDalQbts9BfdS4gExqcvgEjEgCVyAaslFYO1CJEMnqF1AKCDbcU
2jIMZNFWTtnP0IC1K89WxN2atVIofTy4aHL6BoxIANQivTJDSgjWtbjvHKC6
//2H+NlG+fQkjYh2DAMtwlRQ2c+4gLVXAaQIE0ofDzRanL4BIxIAFdlZjf7H
zeklBWUQtQaxGv3yy9sy6kkaE20YRr4IsxYpTwJ4A9auPEgRJioUAxxAtDl9
A0YkAAAAFILof5SMCQCA+uStFDvjW9RALxqgJtqcvgEjEgAAAFgQW//p7T5S
03Rq8PpdSPIC2oTY+H7MAVYK5NHm9A0YkQAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCC/w9x
RWP0
     "], {{0, 112}, {886, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{311.3333333333237, Automatic},
   ImageSizeRaw->{886, 112},
   PlotRange->{{0, 886}, {0, 112}}]], "Input",ExpressionUUID->
  "c2a254a0-a5a8-4f30-a157-a0edc33f02da"]
}], "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.742220181713524*^9, {3.7609889352029285`*^9, 3.760988964534498*^9}, {
   3.7661625221395206`*^9, 
   3.7661625494847937`*^9}},ExpressionUUID->"16100d1b-91a7-46c9-9618-\
7f272fc871d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Z0", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"I", " ", 
        RowBox[{
         RowBox[{"\[Gamma]down", "[", "ro", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", 
          RowBox[{"ro", ",", "mu"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Psi]", "[", "dd", "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
          RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"ro", ",", "0", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.742220195790475*^9, 3.742220224754011*^9}, {
   3.742220280896957*^9, 3.7422203971509867`*^9}, {3.742220432082415*^9, 
   3.742220452292685*^9}, {3.742220524071088*^9, 3.742220529564048*^9}, {
   3.7609889773581915`*^9, 3.7609890752930875`*^9}, 3.7609891647116337`*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"e62167c0-7e2d-4c1d-bfee-f9f778f6bc23"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"AlgebraDD", "[", 
        RowBox[{
         RowBox[{"Da", "[", "aa", "]"}], ",", 
         RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "cc", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Closure", "[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "[", 
        RowBox[{
         RowBox[{"\[Psi]", "[", "cc", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "-", 
       
       RowBox[{
        RowBox[{"Z0", "[", "Rep", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ")"}], "//", 
  "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.737166597004206*^9, 3.737166633087201*^9}, {3.737166738894637*^9, 
   3.737166787775541*^9}, {3.737166826249361*^9, 3.737166843063713*^9}, {
   3.737166945574005*^9, 3.737166965544831*^9}, {3.7378160718355637`*^9, 
   3.737816075715786*^9}, {3.737915386227641*^9, 3.737915453149469*^9}, {
   3.737915553583214*^9, 3.7379155748934326`*^9}, 3.737915634740855*^9, {
   3.737977969949746*^9, 3.737977971093811*^9}, 3.7379796545120974`*^9, {
   3.73858845803458*^9, 3.738588469810254*^9}, {3.742220463799335*^9, 
   3.742220498429264*^9}, {3.742220534068925*^9, 3.742220534371532*^9}, {
   3.760989090278001*^9, 3.7609891100620813`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"dc39187c-8c4c-4509-8319-011905a0c64f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.742448057548027*^9, 3.76072326968731*^9, 3.7607244380942745`*^9, 
   3.760728399863815*^9, 3.760730117010556*^9, 3.7607304097734814`*^9, 
   3.76098912709665*^9, 3.7609891682976046`*^9, {3.760990294950163*^9, 
   3.7609903241983137`*^9}, 3.765631992221839*^9, 3.76573612940777*^9, 
   3.7657380329384146`*^9, 3.76616243419083*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"4ec20055-e91d-4799-9d27-0086dfa85b8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Test that 2 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
    SuperscriptBox[
     SubscriptBox["\[Delta]", "c"], "d"]}], TraditionalForm]],ExpressionUUID->
  "c6c4f6fe-655a-46c8-8e4e-9c70dfae42d6"],
 " - ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Rho]"], ")"}], "ab"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["\[Gamma]", "\[Rho]"], 
        SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "c"], "d"]}], 
   TraditionalForm]],ExpressionUUID->"53db04d7-f766-49d1-aa73-038134a6b725"],
 "= ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
    SuperscriptBox[
     SubscriptBox["\[Delta]", "c"], "d"]}], TraditionalForm]],ExpressionUUID->
  "2271e21b-00f1-4f44-b869-435316027982"],
 "-",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "2"], TraditionalForm]],ExpressionUUID->
  "ce58388c-049f-4a2b-a8a2-e0bc4fbafd59"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Rho]"], ")"}], "ab"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"]}], 
   TraditionalForm]],ExpressionUUID->"9def40e4-334d-4f5c-adb4-0c4160ff6a3f"]
}], "Subsubsection",
 CellChangeTimes->{{3.760723899277438*^9, 3.760724065412136*^9}, {
  3.7607241421848288`*^9, 
  3.7607241433924475`*^9}},ExpressionUUID->"9070a104-85d0-4573-8126-\
1113a151bd92"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{
       RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"cc", ",", "dd"}], "]"}]}], "  ", "-", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Gamma]down", "[", "ro", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", 
          RowBox[{"ro", ",", "mu"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"ro", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{"cc", ",", "dd"}], "]"}]}], "  ", "-", 
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]down", "[", "ro", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"CommuteGammastdownstup", "[", 
           RowBox[{"ro", ",", "mu"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"ro", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7607240759070983`*^9, 3.7607241594848547`*^9}, {
  3.7607242011170115`*^9, 3.760724249298474*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"6204ecdf-e7ea-416c-8d18-d7b879cb1f6a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7607243015398874`*^9, 3.7607244381243544`*^9, 3.7607283999100456`*^9, 
   3.7607301170634365`*^9, 3.7607304098077536`*^9, 3.7609891271465197`*^9, 
   3.760989171566326*^9, {3.7609902949813967`*^9, 3.760990324260841*^9}, 
   3.765631992270708*^9, 3.765736129469555*^9, 3.765738032984292*^9, 
   3.7661624342337136`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"9d3e0b41-5644-4387-b442-e67e284f0a35"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Holoraumy", "Section",
 CellChangeTimes->{{3.742225197042542*^9, 
  3.74222519916434*^9}},ExpressionUUID->"506208ec-72d0-4aa8-9d9f-\
54191bcc9604"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox["D", "a"], ",", 
      SubscriptBox["D", "b"]}], "]"}], "A"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "2"}], 
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "5"], 
       SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}]}], 
  TraditionalForm]],ExpressionUUID->"cb316192-f9c8-4dbf-8fd6-54415e116431"]], \
"Subsection",
 CellChangeTimes->{{3.742225210268482*^9, 3.7422252341165237`*^9}, {
  3.742225399065777*^9, 3.742225438530488*^9}, {3.742225588522272*^9, 
  3.7422256174212418`*^9}},ExpressionUUID->"d43faaaf-0673-4970-8df8-\
4e4a3824b78a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HoloraumyDDTable", "[", 
   RowBox[{"Afield", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", 
  "  ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ai", ",", "bi"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Bfield", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7422254484916067`*^9, 3.742225580731021*^9}, {
  3.742225627520856*^9, 3.742225629935794*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.742448070220096*^9, 3.7607232915679345`*^9, {3.7607244349143114`*^9, 
   3.760724449960458*^9}, 3.7607283999297543`*^9, 3.7607301170864964`*^9, 
   3.7607304098289595`*^9, {3.7609902949970183`*^9, 3.7609903242764215`*^9}, 
   3.7656319923405223`*^9, 3.7657361294815226`*^9, 3.765738032997257*^9, 
   3.7661624342975426`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"02bbb073-fb37-4b6c-8acb-d2b07f79e8ed"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubscriptBox["D", "a"], ",", 
      SubscriptBox["D", "b"]}], "]"}], "B"}], "=", " ", 
   RowBox[{"2", 
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "5"], 
       SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}]}], 
  TraditionalForm]],ExpressionUUID->"ef6c41b8-afb3-4834-b9d8-18fb56b427c1"]], \
"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}},ExpressionUUID->"71a41a4b-c31a-4753-b78d-\
d39165c5f480"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HoloraumyDDTable", "[", " ", 
   RowBox[{"Bfield", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", 
  "  ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"ai", ",", "bi"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Afield", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7422254484916067`*^9, 3.742225580731021*^9}, {
  3.742225627520856*^9, 3.742225629935794*^9}, {3.742225765702507*^9, 
  3.742225771743372*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"70eb523b-75b0-4209-8cae-9341d0db15be"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.742448070398779*^9, 3.7607232916476116`*^9, {3.760724434966219*^9, 
   3.760724450009077*^9}, 3.7607283999500537`*^9, 3.760730117114212*^9, 
   3.760730409843463*^9, {3.760990295012644*^9, 3.7609903242920885`*^9}, 
   3.7656319923514924`*^9, 3.7657361294924936`*^9, 3.7657380330082273`*^9, 
   3.766162434308514*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"1eb27c94-d088-4211-b53d-a06ad6808326"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Bosonic Holoraumy in su(2) structure:\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzt3W9MW2e+J3Brd1/si/Ni/ZIXSKyQJV5EiiJkaUHRCF4QJUKCqhVCpBFr
oslCNNsLud3AdBRINYGMWlfbgiZ1uq01jZWZOHdrdaZOL24XtxPnCmeKOzUC
b8ZtoGsS3AYCCXIQBJuT9X8/5xxjn2Off/b5fqR7dedOYh+f2M/5Pc/ze36/
/3x68OX/9u90Ot3r/zH+v17uG2n953/ue+OV/xT/D13/9PrZ/n8688sT//Q/
zvSf+ef/cvrfx/+f/zf+P//1P+h0if/7BQAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQPWIRRavDxhrdHGG37g3Y0pf
T8lim+7fGBIfo8Y4cH0xUrkfBAAAQHEIDwBAg3bDt9/tNlCJMUNX2zr2ZThK
K31JpaPXvr7YWpv8LDqq9dJMeFfpKwIAAKhECA8AQIN2wzOXWlMjX+UPfUl0
NPzlGAZAAACA0iE8AAANIoc+ymD6uFo2muMD4PSIUZ8ZAC86l7YqfUwHAACQ
C8IDANCgah36UmKRxY9N6WQAnc54wYUFIgAAgOIQHgCABpFDn47quOKvqqEv
JRZZ+LBbn/mM2EAHAAAoAuEBAGgQY9lEfcNCJHhj0EjpqGNXF5+Xud3NHORV
90kBAADUA+EBAGgQvRO8nttQNpyxLj5VU8ItvXf/ek96PaffEY6W/YKRoK3f
kP60On33hwtVuAgGAABQJoQHCA8ANIhRqkVHnbh4+yc1DX3xC1xxnm3MjFUt
Zl9EjNf86fbFE9n1IcOAI1TxJXcAAABEhPAA4QGAFtGReavpSGZsMXRf9UfU
NQzENtwXGnRZR8e9T0V5XTriv9qdXR+qbTPfRXkaAACAFIQHCA8AtEj1KyT0
1uxEkz43+Onqex0rYr12NOQYyGYL6JqGnKHyt+QBAAAqHsIDhAcAWrS9ZD+b
XRzRGS95NtWWWxtZtHRTOlLNMeu9fdFeP7rmHjNmX9vQbwuKsSkPAABQwRAe
IDwA0KBYxH+lIzuyUJ3muQ11rQoxDloSa0Nmn5gLOPTGnLkzdxva3p3bUtsj
AAAAQDYID1JvgvAAQFvozTsT2VOWuroOy/yO0pfExjhomUP1O9fEfZ+Ib6qj
LvPyeuPYXzdV9hgAAACQB8KD3PsgPADQDjrs/nVLbjzp+GBxR20/+PRBS6q+
vo41/HXbV0S+WHpn8YPcKpmu6ZxrVW23AwAAQHIIDxgQHgBoRPSRayRX4IXq
tiyqLpM2fdCSemnS+/k4a/gTeeM8hZm9bBh0hFS3VAYAACAlhAdcCA8Aqh6r
Bosqd8zTYxHVMDKzEVuwHGUmFte84d4S78xlBr1119yWTSRQY2UeAAAAySA8
yA/hAUCVY2bqqvKAYeagpeGcM7z34sWKo7eeuTYkShdsrtim51KuNI2u8axT
7P15AAAAdUJ4cCCEBwBVjLljrmsd86yp7geeHp8NPbbgXuI/b3hGm5ijX6cl
sC3NW6+6zhHv1TDieoTOBgAAUPUQHhR+a4QHANWJ3pgZaciVpWw4N/1IdWNf
5qBl7hBoxGduYY5+LWafRFnQdDR005TbpU9u3KvuFgEAAIgJ4UExCA8AqhG9
4Z04lhtC9H22+9IssJQh0/D62IQ3O+pEw45+5ugnYhdsru2g9STRV468EgAA
gKqD8IAXhAcAVYZVjlLfZP5GdWMfedAyN+LENlyvM49c1nbafpBuRGIuoOmo
TmtwD+MfAABUJYQHfCE8AKgq0ft2E5FNnD7MqCqsg5Y5UZ+ZdeRSkmqdOXur
jrPEeNvQ5whh+AMAgCqE8EAAhAcAVSOdqZtR12kNqG3s4xy0JP6bZVsnc/TT
D7o2JL2Y7W/MTeT4d8G9obaiPQAAAGVCeCAQwgOA6rAzb+moU/dvmXvQkhB2
9DJHP12vIyzt9bBWh1T5vAAAACgHwgPBEB4AVIEK+CHnO2hJkH3jPIG1OqTG
TAMAAICSITwoCcIDgErH+hXrB52qK86f96AlgdsFu/ai55nUeb6sp4Y6z6gC
AACUBOFBiRAeAFQ09f+EDzxoSZCtCzYT+8Fx1rGK1SEAAKgCCA/KgPAAoHKx
fr/UKdvSrtLXxHTwQUsCtwt2lzW4I/3F7S7ZThFNDfTNk989l/5dAQAApIXw
oCwIDwAqVGzDdb6GGDJqhlwq61hW8KBljpxdsBnoR84BcsdejYdVAQAABEF4
UC6EBwAVaS9g7awjfrrHzb6nSl8TQ5GDljncLtgN/c5VWa7xiXecHHjrXrJ9
vy/LGwMAAEgC4YEIEB4AVBx62/cOY7O57WpAXa2cMwctz00/KnJd+1vuN2oY
o19dt/1HWT4MvRe42ka+c9M7vm1V3UYAAAD+EB6IAuEBQKWhHzoHDhE/2voe
+7KafrSZg5b6fnuoeHqwItU60+hlew/55keGXD+p6U4CQGWit5ZuTXQ0/daz
paX15q3bo02vjH16L4JhVCkID8SC8ACgotAhew9xVlB1JTrTBy35dlWgV+zd
zNGvZti9JflVprBK+uioHnsIwx8AlCO6OjvVZ6BOjM08UNPQLINI0NZv0B3u
Nn8djmIkVQDCA/EgPACoIM8ClpcZY4W6zlrGNj2XjPFhpG3Kz3MPes3ZTzGH
P8m7YOfQG64hxrb9y5bAM7neHACqTvTBzNgJSoszoyT66aL1jEFX2zr2JeZH
skN4ICaEBwAVg1WiU9c47F5X+poI299OttXqdK1jnjW+QzJ34/zIpF++wjCP
PaNHyYU29fWDAIAKkZ4aHDFZ50VKLaOjkQeLd6ZvWifHhwd6T7U3JmLFmsb2
V/uHzVbH1/PhfFFm/DJsg20jM5slvGF0c8n7r9ctl4f7X21vTISGVGP7qf4R
s9XpXdpkTPfox3NTvc2jt9kr+fTGnLmT0tW2me9uqSgy1wCEByJDeABQEfa3
PG82kAPFocteFR0S3A5aT/I7aEnYv2c9xjxzKV9W8YvE8VXv5UPqvaUAUCl2
V53nG+ID4JBztexNE3rnUeD2zcmhjkxsGJ8Q/XJ43DxpveFwOD6xWcyjv+pI
TF4a2kf+6Fsju9hsL9nPGoQ3Z6F3HvocZpMx/pqG1v6L79v+4vbO+Xy+OY/L
Yfv9aG9zfL7TMmRLv1d6GlhzzHovz6mqve/tfUfiwfmAY1mL22fKQHggOoQH
AJWA/sk1dIT4oVKHxmdVs45BR0M3TbwPWhIU6oKdtT07fojcuVfZahsAVAB6
5x9/6I4PgA0jrvJOeRCTlOScqOs3V53e4Hq+fjDRzSXPtZH2Bp2hb2p2Nfmu
u+GZS62J8axp1LPB+z1jkeCnYx3xyLqhY+ymL+9u1Iu9zUVH/M9QLaPTK08z
79Jm9uU9AhJ/HDgGDPFYuGvK/wTRpBwQHkgB4QGA6rEbk+laxr1PlL6oDHrV
da4pse88/n9CYUGCzmEjc/R71bYsZztvVkcDnX7AKWBpCwBgZ97SURePnc46
V0ofPOjt8N3riclOclpkNJkdvoeFmmSm/lLke+foCYpqn5h9sJqes8RHsddd
fNtWZuZT9a9MfPFj4bejI76pjjrqaMsvUk+imjfcB5bj2wnZ+/WJAybvzm2h
gabkEB5IA+EBgMpFHzkHGYOfinZ40wctRSJTF+wMzta52ir8AICqpVKGdFSn
NVhqT5n4HOfW+CvpVfL6l8ccC5v8c/NSaWx19fXZRe5OG78KztG12xOtyUs3
z/E5u0/vBa2dVHakdBXanUpPGOs6LPOCdgtAOIQHEkF4AKBu7P4Fcta0LCZ9
0FIshwddP8t7/ayt80MDzocqea4AgMrRq46+RGDaPOIubVF5fyc0PdaaHkKp
1ovOJaGVDDJpS5kA7qhlgcduDb23ZO8zxIc+Q48tyKe0cvIvZZ9EtZ22Hwpe
Z2zDfSGxDabvs91XTYZXVUJ4IOH1IzwAUC/Oprl6cl/TBy0NZz8LlzJkcLtg
1/c6VkS/yoLW3cON5BVg6xwA+HnqMx9PjBrNU/7nJYwascjixyZDKvqiDL1X
ZsOlZQ1lLiOB34EjOuToS6bwNb3jE7DLEA07BpKX22kJFJvy7C1Y2uKjO9XA
LWoH4kF4ICWEBwCqxdk0L5TsLaeSD1rmKNkFO40zAmPrHAB4yGwb1ffY+SWy
MZAzIx3VemmmxJlR4kKe+6ea08MXnwNH9LbvnabksyR/xbmDpUfs2oueZ0U/
8fOQ/XTi4+nPOlb57k2BQAgPJIXwAECtOJvmlMlR0jqM2NIHLfk2vM5rP2g9
xhz9akc9Mvda46y8yb53DwCVZ3fJdioR/FOn7SFBlbNfEFltSYaz9qXycs+e
eUZT6Uu8DhxteEaTcyPd0XHvU0Hvk4pXixw4yshMHutesn2vhni9CiE8kBjC
AwCV2nIPM1YuiiZ7y0N4w+u8FO2CnUYv23sYC1QqytkGAHV6/t1kcyJsonrs
IaHHhDbvTLRmz2KI0RKI/tHeXcf3wFHMP3kkNewKPuGenBzxfgZlQ/cS0w6h
GIQHUkN4AKBG9DPPReaBRh7J3jJIH7Q8NuHlU+boYNyN82PWoNyLjDtBaxdz
fYpP0ggAaFY2k014OEqH3b9uyQ42etPNUNl9YzNNYfgdOMrFnIIPmCcHbP7P
oN1l26vJN2qf9MtZZ0wjEB7IAOEBgApt+cxtjB/mYbNvV/EfZqbh9chMeWNf
fHT/wdbJHN1lzyqOX8Suz3yYcREH9TcEAIjbDlg6SwpHo49cIw3ZkYY6aQ2K
Es0mJ0c8OxyFHb3ZqVnP9fsCKpDT2/4P+/qs/LcDYgHL0cT7CD7cBDwgPJAB
wgMA9YktWI4yT1sqv6WbOWhZdjv4pFVnfwNj4KFec67J3jeQnZyARzlAddgJ
ucY76muNpg/mNosMLPTOQ98Xf/70i/m1ols52bBN6DLy9jfmpuyQLkYAmbJ/
z3qshm+HI8aC/BHT1bvFP2/JhB2GAiEQHsgD4QGAytDLtk7G0FDXbf9R4SdM
+qBlg8l+X4wlnIjP3ML4iLo++4rspY3okMNkYFwFHuUAlY84T120+MCGdzy1
Dt/Q71wt8robrnSNMGEDxW7I/ksinBUv2Wz/R+cbZ99w/sgvZmMVKK4xmt66
cTsQjkiwKJ8+DMWzjB4IgPBAJggPANQltuF6Xc/8TSqdUZw5aFlGO3imbFJ6
lsxdsFM4ecV4lANUPHII7bIGC5YUzq0PFw8yEyUNUn903CugADdj20hHvWRb
UmYBOlvKm8XQ0jtstjrcdxd/3NwRKfrLxreKDOxVDOGBbBAeAKhKtuBqhtIn
Aemtu+a22vhDfdIv1u59NOzoZ45+ivSw455s5Xe0GQDUixhC6ya8hY5jkCPA
8Ul/4YLB2VFLUDWG/S3Pm0SSUGndkURCr89OtLMqgTHVNHb893Gr0xtcK2+a
tLdi70t9Xtk7eFY3hAeyUUl4EHvi+5P5QBbXcon9pAAOpspvHSejmOp3rilw
HRn0xpy5U5yDlgROQRqFnqHsqqH8iuICgGoRQ2ix1jzZAgt82mhmd0MEhWqs
aLbYTpbUog/cE6+wioHlnSUZ+696VkoOu3NtNBU4TF/FEB7ISRXhAXeqSMLO
LEhBjd86esXezbgMZcP13VXn+eSyp8hFWbMJKtkx/sikX4GPmTrRTOq2ryCv
GKBiEYcyim3xkMcKiv/wf3YNHhb8aNidMx8mAqyjloDiiy/0sxXvTfPAseJT
JMMZ6+LT0obDbHzLs3Us8IHwQFaqCA/UGKZCtVPhty634JahyIZyEv0s5Ppt
a/rB3u8Ii7n+xxnkBabxi4aTpVB8ARkAVIs8lFHsOEbuwBGfIDPVVIjHyxJY
A13tqKdw6p6M9nfWf/C5HVbzcG8L8+A5gWp9e7ZYub/8rx60Hku9hPwdPKsW
wgOZqSE8yIapIt9kAKEyS16KTI6INI+0V23L8o8KdHRz4bOJk8Qjs+mca1W0
JRP66cLVU8xTpTpd29WAOMc5Bcnmxmcpfr4VoMrEIisLXvetT2wWs/nScL+p
l8U0OPq22WyxffKpy+P7fr1giWk68uDeSuTgP0HEM0UiGbKVCY/TBInlbEpo
lMJMEFJBYbH8opFw0Of+i+39i/2trIlSXac1UEqlsGxbJfE3y+jok2XfzE3L
xHB/Vwtxew0tXX2DY7+/Pn136Ynsxc3kgPBAZmoID4RMjuidJz+FRbMuRSHL
Sqb526vk5ChbATX3aCp8oFhE0cj66nLA53H9y0eXTEbuqV2qbdDyF48/uFLC
v2n8tRPfhvjLz7odH17qbc53KLi2ZfB/ubw+fzCU/Oo8erIjwxINveudYN5x
g8kRUmUAA1BB6Oh64CvHh+ODPS31BWsA5EM1vvTauNV55x+MiRK9teR6z2Ss
KTTrIQ5lUCZHuNAvmahGxaeRSm6ew39yFFtzvkYm1RWrK64C0Y3gzPv9RmKD
onnK/1z4iJidHIl56Gh/J3zXPs58PFGN7adOtjcyd1SoZpPZ4QvzbltbERAe
aDE8EDI54hzWEkNyzWH0Xavja//KVsXF82LS/O1VcnK06x2vY945mXJcY5vu
3xyYWsEiuCNbPAjpFhweyZZmTDSOT1FoBx+AHzoWjak26EvMidz2yeEuMoCi
6lt6BkcTW0NO96wvIbk9FF0PJv+Dz+t2Ov63zWIeHexlR7n1HUNTf/av7UbD
/2bpP5p6Tar1f85F8odGxIGjok0bs2eIdLpj1mDRUKuUyRErc1vEagzxgPJx
RKournQ05BgwZP8BS+oyI/rkKPrYf+N8C5X8OrX2j1s/u7O4HH5CFNWLRtaW
/W77e0PtmeqA1PGRTxY2pet1KzOEB8TbaCY8UHxyRKpp7PrN1VvfhuWYmaqP
5m+vgpMjTn832Ur9CBj9qKbfzQpLu33mnzwu/Hty6KT9vhxfkVy2TAZ6vYGq
0Nvh+a8dH00kpg65r2p8xtHVP3zZcv1fyy68LIrdNf/nV4c7s08PqrH7vPkP
7N2f4tJbTowFZKquvi71nxo6xj9fihwUFpEHjopt0zzzjKYL9VKHzXPFAx4R
do5EOzVAh+w9VNHa4+XYDlpPZq68pEehuJOj6IOZsRPx66Fazn3kDj4p/I2K
/uyzvd6Svvra1rEvw1UxP0J4QNBOeFBaWt3D5cDffd4Zx0ejXQbu1LO+Y8x+
2x9cKZT1tRzwzXndf7FZLp/vYm8VUsZfvjd9r8jPsPpo/vYqNzniHrdEkwgZ
rDr7Gxh3HTUZQGS7Ye+1C4kxkKpvv+AI8h9Y4jOOT82mvHkmjK+ssffStaJB
o0TorWXPjbezF1l/bMD8J3dgreywLRZZ/srS30x8zLqOKV+B40aMA0fFOjbG
Apaj6T96eND1M4/LKf/MkViTo+ch+2mq4U1P8WEquuYaMZ68sSx8PCPuT0mz
sOzkqPwl/vTMqLZ11HnwvJhlb9NvNaXjluqYHyE8UITi4UGZBRliW57fHmI9
LgRnY0YjK/4vrCPtjATpMqv9Vwdt3V7lJkecjsyo0yiHbPuSLKV7kUBViW3O
vt1KJpm9ZFvi83SNPrxtfjW1YEs1dg9P/nHa4wssPwyvBP1znunrvx9lJ+fX
GE1T7pCcwylj7kYZT5sd362JFoXurs1ZB4zMeLBwcWmyC0yRBd54yDGQuXs8
T7Vnq9UJGB+YdbdKyk/jev7dZHNtk/kbHifD193DjSXWi8vObgQnSiWIV61u
+76tT1/KBCe65h4zZr433dbFCh/TER4oQvHwoOxqdRuuQVZ5ixKzMenok3vT
mUdS5ofVNzW7qvKTMtLS0u1VbnKUfJAxoHijDFTSjxuq1P73tpfqGN8vHtkw
dGTeakr2+qh/eezmXP4kZHo77Lsx0srs4m541Xz7ofSjBh1d+/vNsZeTQyVV
3z5i/ep+wT0doS//dNH2Wi7boP5IY3ZVreG8czX/XIbIOyp6JIEYbPmWU8uu
IQt5NDBapYhSkGEv7DxnoE5agzzmRskuS6UlX+WmdXwOZHGI1OeI3rt/vUev
0/dcv19CsTJ6zTPWmvlGdFsWK3oqgfBAEYqHB2VPjrgnZcpar9gNz17pJXPJ
qBOjzu/FHPwri5Zur2KTI27HMflq0WgZtyJN0aPcALxxBk+qx16k4FF02TGQ
CISo1ovOpa3CfzY3jSKG07GZBxKGTYmqcebu1ABuODkh5m5R8uUj9xwjx3OP
h8Ru0caW961MwhxlOPtZvjJ05IGjYgEMcZSA2Xtodz3wbWAt7+Qru4YsKDp6
FrC8LOLAQj+aPtdQw2/bKL19U9LkiH7muZicdde0WRaEb3flcsDKOhdDP3KP
NCeP173S2//G1K17QoMEetXRl/lO6E03Q5WbXIfwQBmKhwdqmxy9SCQ8Bx2M
RTmpnzhqpqXbq9jkKNeRMAOVAWTBbTmnpl6NUOFYO0dUp3luo+DPOrJoSZRv
olovzYR5FUbKMz/Sn7q6cHD6WRnoyIJ9qC05r2joGPs0yPcMCN+Xj4bvTPUe
yXO76IfOgWxyd8u49wnn75IdG4tkyhF7TA39ztXcf5FIzKs7IPjJRinC2hWR
8TnfjMqDJGfNvBuzplMHS5qePPaMJo8c6c86VktIBdxdtr2a/MRlnYtJ1p0g
v9ZHRz2PBb4GueFy3OxTfSn1gyA8UIjS4YEKJ0cvEgH84scm5gbHxds/afH7
qKXbq9TkiFuLpmbYvSXnFWgW97kjU4lU0IJYJPAvI4nywjWNXWPXfT8XfMLR
O4sfdCSmRl1T/ie8v4Os2svJ0bRtyi9ym5f4B7EPtSRXtCTJhY5FlpyjB66Y
kRtD+cZG8sBRkWMy5EsxThAkB+E2sy//uJt9DAqcbmz5J1/K/NuUEZ+n6hIU
PnXFkJkXCI6i41+nm6bEDarrsMyXdL7iqXc8Vc6hnMdodoaVVcJUi1HHQD/g
fFSZAzvCA8UoHB6oc3L0InGW1nPJSL6s4ax9SeYOuSqgpdur0OSIu3srVyV/
4JbrlKtGKgADHXL0xadRtW2T3wocB8nayyl1ndaAGOf/U3bDM5eSZSUoQ++V
WR5bWvTav02dNQ3duMcvuuaslemOmGwB8u8ynkKcg0KM6LFwRamdeUtHZqyt
vejJVbBIbrUcuuw9aFKZPXsrMDqit+6a2zJ1wzuu+EvYbkvNjATlVyQPHCXf
kt8Bpdx7pbM69d1/+EdpNeKz7UqL1QwsiHsWPu+OYbFrIVf+9YPOR5U4siM8
UI7C4YFqJ0fxb+XGnLmT0ZC544NFFXSVkJWWbq9CkyPuuT8U6pRNtg5VFs66
gvzovcDVtvi3r+Z8CSElveEaYq1wFojzhb3000XrmWQVHf5FwzKHVng9Kbgz
o9rWiTubzPfJFUDLE58w9pUK1YVjPXHIaU4ic+/wofHZAycS9A+2zuQchzGl
4oPeW7L3lVhZen9n5a+JVEPDGav/Mf9RibhdlGHAwfe4TbajEO+szjyyPaRK
KuaQwarPRhn67EsllGVgRC/8yrarDsIDBSkbHqh4chQf1zb/OmYki7UZemxB
8VbkKoGWbq9CkyNuK7SmUU8ZZX5AgGwSSJakDRYB8or4J9vjQWCh+LyQJ97x
FubXWIzCSrmZ0RGTdZ73ifjMM734k4I7M8obzDMXz9mTI/LAUeJSh1z5MrRT
n4Vq7T31C+6DbH/J9hJVOO1tO2BJbU+VUM6XPGZb2zL0J/9m8accvfPQd/Ni
R32tsf8DPrt1hGytcqq+8Ug9vyZB2VIYZc2Mcj2S9EctC+XsbtCR+etDxxOP
Y6rZZL5V6gE3RnBbmedJER4oSNnwQNWToxcv9lYdZxmlrEs8pVixtHR7FZoc
cQt1Ij6XTTbmwaMHlJM+NVNK7lASt01k2aFgiTOjF7kBrciTgjsz0lFt785t
ccNg5j4Ca0uCPHCUehFOeE9H7rsn+wzJzLTn2SIJzVP+58lPFQ05h5r0fY7V
Qp+Rfu6fSnalre+xl3Aano5uLjjS9c/jr9E5bJ0JrOfNk0i2Bbx2qddYk+ge
9dnCpuAya6n7TxlMHy9ubaTqoicbUX0TiuQJseid8LzrSn+iqxTfidvBsmeF
2if9aqiezVz5L2szSykIDxSkbHig8snRixdbt0cbyAFc3zQxW6TEajXR0u1V
aHKEzC4FIWkBVGDN2U8UsG4d+J/OoLCKc9xT27yb+OQVXbs9kTxnVNcx5RNU
RTmX41foSZFnZqQzDDpC+TZl9hYsbdmZH3tzjfzg+pYTx5NNkeJzgbdtn3vm
fD7vjOOj3/Yaa+s73nQspjLTskeojvRO3vJ6v7w2fJzic+I10YA1Ma0q42j/
3ubiramhjsxwX9PY8avRt6es9k8cjk/s1qm3R1/rbjEku0edm/o0/1ymuGRi
GzFD3HsSnJ4cOJZ8U0NL92uZd3R8Ynt/Yri3JXHHaowms8P3sNysdnrZ3pN8
n+zEU2HMmUVZx6CUgvBAQcqGB6qfHHEzFqjT9tBzMd9BzbR0e5WZHHHvcOEz
xSAm7pI7jruC3BIHf5ljgK7hgltQILfrHa9jvkLpoWD2mAzVMORcFbZzsROy
96d2Zg4+u5xvZkS1T8yu53snetv3DpE2x9pcIw8cHR50/RR9ct/r/IN5uL8r
Ncto6eofmbTfDj5hfIr4fOGra+ODiZlIfWvv6Md3VvicI9pdsp1KXHS5R/v3
d9Z/8Lkd1vfGBk29p9obE68Zv9De04Oj71odbt/3a2VNUtanh1pHPmNPMxMb
Ul85rJPjw/29r6QmRI3tJ02Db75//V+9wfLeMSNTury0BklSYM0sDj6PploI
D5SkbHig/skRve29fIjxBur57UtPS7dXmckRt1wkCqbJiPsFr8zUdKhg3C+h
4PPjeV6i1EfqXtDWk8ynM17y8Oqqk0NvzIykMwEOun46Gv5yjKzancAuT5fn
YlKhSac1yDiYTxwKoAakXlHPBP8NfY4ivXw16XnIfjo5eVTP0QPW5Ej2Dobl
Q3igKEXDA/VPjvJ9P8WqBaR+Wrq9ykyOwo5e5qdHizc55clHEv0bDlBQvsmR
wPwNztGbUh+p2/dtyRlA8Za1XERbnwMSAOjNOxPsmZHeODJ9QA23nZBjMDc1
0jWPuJkZbfv3rMcyDw85TpQ89ZmP6/LM0SCb/ahvMn+jlpYn2briaRU4OUJ4
oChFw4NKmByxf2K6Mk7OVhot3V5FJkeZ8j6K/Pog39OnIs/tQgVjlKpOE1hu
TqSdI/rR9LnE1o/eOPbXTWExGL0XtGYrZVM99jybK3vf2/vY+YMHFGF4wSyC
nfiDDeemWYd96LDDlP7v9c2T38mQjZ3ZPDo66nks/btVkNiG+0KDTs5tIzoW
jRX5hrJ/FJU3OUJ4oDAlw4NKmBzlKegn01CsPC3dXkUmR3lyitH/Wk7ZxhxZ
yFuAstDRqMC0dHrVdY6sRy28Cyf3zFEpj9T0zoiuYcQl9FgNI//t0IDzIfvq
6Z9uXzxBsa6xQCWEnUVrN7FrZBxzr7EuiTwRINt6WmTR0k1h84hlL2DtrBO7
+zBTdGvF/7XDmjxPVp/7HlGNL702doVzrCwp27o38yWpuMkRwgOFKRkeVMTk
iFuzQjPLy1q6vUpMjvLU4EVsLqs8WcVC+zwCxL9IG0H3tfH+Y5lyza29o1Z3
cIPnb5mO3P/q2uVBU29v78DI1K1FgRWV6RV7N2sIFX5yOFNoroQQN/IPa28u
Dm16x8fOi95esp81sK5Q1zTkDOW/P5mGpGmGM9ZFbvm+LZ+5Lf0HZDylTm/d
NbfFA6amc66Cxb81JPrINdIgVRt3Ovok/sNK1DZP/1tTje1nhsfNiZp7yRJ/
v+porEmW+Hvjuu9n8uvE2ZCtuMkRwgOlKRkeVMTkiNmELv0Lfc25poGiVlq6
vUpMjvJMDDH6yUrEk+ygVXRkwT7URsUjtNYzY+9fu5EoH50MapK9daT/MuUJ
ovSDLoENOTJd52rOCyxzR+8sftCRm8k0nnWuMKOH2Nbcu23sTaPa1ok7+TP3
ci2WdIXuIXHgqIzy2iWIRfxXEp9XaEXBKpVu5k51WxZFfm4mVgysI+3pfaIa
o+mtG7fvre9wZsH0dth3c6yjgflV4f4oSmjgqyyEB0pTMjyoiMlRvszPyluF
KImWbq8Sk6O9FXsfa/BDnx15cRtJVGDFV1AOHZm3mo7oqOMjn2RbdhIFqCUI
Gjk4DRHyJrYVRoccpsSMRGjeTmYnJU3fc/0+I9+Mjq46hxrYU6MD8wbpreD1
XxWfGTEOHJXWmLUcqY2wEkqdVx067P51/LvXOOBYFjVk3F3z2YZaMt8rw6tm
1w+F+23Rke+doyeo3M+N08Gz8ha0ER4oTsHwoDImR3mOZWnkW6ql26vE5Cji
M7co/sG1jTv6aWPdA0SROi7EjeGJIpyS72tsz44fYs4+Gt70CE0zS1+wwEIQ
9PrsRHvuvfV9tvuMM0R0xH+1m5NPd1C/V9aeUf5surTco4k6ZVvaFXDNokh/
8CMm67ygJrnVJTVJFNwpuIjoY/+114yZuoeG3iuzYV7/vnTEN9VRlzkOturs
b2A+Witu0wXhgeIUDA8qd3KkP2pZqKxliFJo6fZicqRJmBxByfbCznMGnaHb
usiO9dec/dk5g7QnYjKFwnJKORefOaDxqm2Z/0Rjd9V5nnhrzvYBa+qUG+Ra
unqzTP3Dl8yWP057bn9mfjU7M6JaLzqXtgpE3PTm3yymZn1jz+jNBWWmJ6mD
UTJlTqrQbnjmUitV2zr25QGV2EvCOG5GGUwfL0b4BwKpHdtkLUHuUfrKq/OG
8EBxmBwVkyd6r8B1iBJo6faqY3LUNOoReFYAyrLuHm5UaPRjebbk+sisFh+5
ltALt4hUz9O859CZh8GlTFOnQ44+xtyIapvyC+8Tlx799K/zPnAU25x9uzU3
8+HuobCmTvzVto44ggJCYuVEV2en+gxanB+lZkaHu81fSzYz0lEdV/xCvwb0
sr2nXj/oWmfn6lPCK5QoDuGB4hQMDypkcpS3Sx8mR9K9i1YmR5ytf2xbyI37
ABKYWSSWfL8CBWlifCvL7pLtFMXtTJoQf64NEDsm0k2OYpueS0byn62U5q3J
F0oHkzwvdTfsfqsjV1GZOzNidSli0He8+cnt+ZXI05V535z7w4FGVvvaho7x
z5cqYnL0InFIaunWREfTbwXnMVa0rdujTa+MfXpP1Gw6VonCA3Ivi9hdtr2q
q33dMtXD/FIpNKqXBeGB4hQMDzA5Ujct3V4lJkfI6VKcalIX6AfT536RP5qU
H/WLc9MPtHuWgo/tb8xNel3b1QC33w390DlwKHcz6ya8u9Lcy+1vJ9vI5KEj
JlugxIJc/M8cRX+es/53Y/abWv8yN0hOnf7I/9VKBb10ZMX3f268fTr3OlRz
7+unW7InTYTlU0GlYxV7L71SevI53tDYyEqqq8QyOwgPFKdgeFAhk6M8LfYw
ORKPOm4vJkeapJrJEVSS/S3Pmw0H1EmjHzkHiM0Qyfo2MrsL6co7/ZGZ0OlN
N0MHvkgsEnROdB/OvCNl6Da7uCeD6I05c+dB03yq8cQrLcwSDfWdw1c/96/t
5qpkJz9Om/luoUNHUD3If/cEfZ+j9CZS+bL0K7MxJcIDxWFyVIw6DsUoQI23
NxYJfeP61OGwWycThyMuDfebent7uk5fCzwv61GKyZEmYXIEJUjmolOn7aHn
nP8q+sg5SMxZksfDxcfqLkQZ+uxL3D0sIS+47Z9KdiOqa5/gHiSho2t/vzn2
cna0ooynzc68WVWcTL/kH69vPFLP+v+09A6b/+C8+/+YL/LUZz6e+SNKlKED
+e3MWxj7jMfNvqelv1q++k7Nk99xf6iqh/BAcZgcFZPn51ZzzHqv8pYihFLj
7eUm4iaVvTSEyZEmYXIEwu3OmQ9T+cec5JHw3Lfp0GWv8PIIRTG7C4mUhJar
pE3Vtw9bHDNe373lpXnvjH1yqIP4SA0dY58eVDCBfjR9jtPVSGc45wzzTWoi
alnI38AI5LcdtJ4kvzHUS7alch7lecKJlnHvE9GuVz4IDxSHyVExeX5uhwdd
P4v+PqqjxttLRyOPwwlL/psjmSVKEUp/Y3KkSZgcgXCRbyY723/12Y/cIG5/
yfYS0fhHkiXraMg51JR5C1GP59BPA/bzLQemxBm7Lli/Wj442S267Bho5Py1
BpP9voCnO1GEWbKMRFCLVMlHcvgtc0ZML9s6WV9AaRYopIfwQHGYHAl+E52u
0xLYLv43K52qby+9652oS/95EUpcqmNypI3vlYpgciQL+ifP5VcUrsZX/8pl
z08SB0nPApaXibd82RIQuyI6o1OqFIUL6Oh6wG2/MjZ4OtOJaHD0PavD/feV
Im+0E3IMchq+6vQ91+8LyvcjnwdHLQFUZahmz0P208y5eJc1WGJNkST6meci
sxYDdWh8tjKfqQgPFIfJUWH7W+43aphvInFfP9VQ9e3dCVq7Mg9g/u05DqSO
yZGULVEgj+wQJP/opyXqKFQu+UHR599NNufOG5WbIJQH2TxIVSXd6L3713v0
nDuu77PdFxjOkV8VTZzs1bC9BUsb8+Ffbno8ERWkVWhO3QuEByqgYHhQEZOj
ZOV8JsrkCFfiPq1Qar69ZG5/p6383HR1TI4EdaiH8u2t2PsUGv20RBM7R/S2
9zJRwlv0IzNk39Xa1rHp0I5qFuj2grYe7q6RoccWFFpAmZEWVYGdO4E3+rl/
qpnxhSk7DZUOOUzM72HzlL+8Sk3KQXigOAXDg4qYHG14RptY90crB0XVfHs3
XJmaUCIcOHqhlskRkoplhrQ6EMtjz+hRItAbdD4ScZk3Fln82JRuq1pe1W7x
sYqKp1CGAcfBVcEPwqj1R/U71yS5YFAD7i5P2enx6XZdWXUv2b5XzQqCUAgP
FIe0uoJiC5ajzIE/fwXXaqTe20umFouzb47JkSZhcgTioDdcQ0RgVjPk2hBt
+kJHV51D6XPrR0xX766paGbEblKT1nDeucpc5Y6uBb5yWM0j/V0tqVEvT9oh
HXL0ZYuRaqMkrHZxCs+Wmx7POXAk8gKFzBAeKA6To0K4xU/K6lBWWdR7e4lF
J5HOf2FypEmYHIEoWO2NRDzpQEfDX461poK+IybrfL7uQophFhXPffxfu7OZ
0bHI8tfXLpmM7AlUbevEnU3GZ6H3Alfbcn+gfdKPwbB6caOLctPjmVu3On2T
+ZtKrl+A8EBxmBwVwK2m0jzifqSmp5OUVHt7idRisc5/YXKkSZgcgRhY7Y2a
3vGJVD2YjsxbTUeSI92JUef3qpoZMYuKZ9W2me+m6n3TkXufZlvH1h/rH/v9
9ek7/pUDPgS96jqXezUJylkUJlV7cciP08Kjbtxbzoka1tatTn/WsSr0xJuq
IDxQHCZHB+NUU6E6Pljc0cxQqdrbm0stFi31ApMjTVLP5OjZkusjs1p85FoS
uwZ1VZOqvdHe9/a+9MxobOYBv2ckvRO+5/PdC0v9nGIUFc8N4ZmjRrvh2Su9
yUNSlPG02fFdsVTA2Jb3LWKiJf8ipFTtxSE/9uSood+5WsbL7a06zhJbt5W+
bfQC4YEKYHJ0EHrb9w5zXUxL20YvVHt76V2f+XD6r7SZfeL0CcTkSJNUMzlS
R7HrLBRRFoLV3qjMXi0Z0QczYyeSswv+M6PExfgnj+uo15xrxY5vRNeD336/
XuLxpd3wzKVWdqZctrp45r+ljvZb/o1P7QhWeh7VaQ0K6o4kAqnai0N+7MnR
8Ul/GQsyrIXWhgvusrt7KA3hgeIwOTroxe/bTeRSUmnld14kRt0n973OP5iH
+7taDLr6lu7BCestP7GSFouq6IAtQaW3l3PgiN4Oz39pM4+caW+kdDWN7b8c
mbx5O7gh6CulxOSI+9PD6Ccz7j+BCA2FS0E/mD73C+65dmVQvzg3/UCVQ5Iq
sdob9dhD3Hu3f/+T08dfsf2Db8RGP124eirxosJmRi/SOyCFJre7Ye/Hw+3Z
dkknLt4WWuE8Fln4sJtbn6514vZaNLEHNPduGyXkyumNOXNn7stPdZrnxKtm
IZjI7cUhP/bkqJwmPtFHrhEimGgccCzze62dkGu8o77WaPpgbrPIT5Peeej7
4s+ffjEvVzkUhAeKUzA8UPPkiPVz0+kMg46Q8PXA6M++62+018cH/ob2offs
M7O+udvOq8Pt8d/jwPXFyF4k8C8j8edUKU8o6anz9jIOHH0SejRnG2qjKGPX
BYvDnby9lqGW5KLlgPVv/McxdUyOcOBFZtxcGjyAQBBWe6OGPke+uVHQekzA
NkQkaOtPjHGCZ0aZgeyggTpvLtxRS0DAKjsdDTkGDKx5PFXf8ZY7nDwysv3t
ZGIPiH+ASna21ZFHlhQicntxyO+ZZ5Ss5FHOrd7+xtyUKwBv6LMv8dt2pB85
B9J/7+i492nBP7vhHU8VCykz/Y8/hAeKUzA8UO3kiDv+Nw05QwIvkY6G70z1
JjPGDX1Ts6vEX49F7v/vwYYa44Ur73WnP0DtqEd1Wf7qvL25A0d645mhM8Za
Q7fZtUQ+Tp+v3f5dMuXD0H3Vz/MIMyZHmoTUBSgTn/ZGqXibZ/m1bE6a8JlR
pv7nARtHmT0dFgE5lGTpvKxsNl3cdtB6khKQBkD2b0rev+4PFyKKzkfEbi8O
+bEbtpa8cxRZtHTnvkACFrFjG67XM3OqYqmwuaijrtv+oyxfCoQHilMwPFDp
5IhTnrSuY8onsEwQ8RAxnLEuPuX87diG+wK5XNZp+0HgO+w8+SkcXo9IeDRA
jbeXPHCUuG+to84l7sM02y+DemnSz+tQkhKTo+2AhVXIHKOfzLijX6clUOEH
eUFOzL6T+gFnnmOT+/esx2p0zVP+4nXPMvMX9noaT6l474D4bS9g7azTsXFL
ah8k78yotnXEEcyOwNuz44fic6OT1iCfHxH7BanWSzPhciqWiUHs9uJwAFat
2ldtyyX809M7ix8QbbbIGvJFEQ3o6ya8uwX+HtlBqbyzUQIgPFCcguGBCidH
dHTt7tVU6dTs4C+8HTm99vXF9JjfdM51QN8eRqa6oMICsXQyXkKN0fQec99E
PGq8vWRb7QIb6Hsr9r7UH+LZjVGJyVH2+5+Fvofyon+wdbKCvXJS30FrWH0n
Dw04H3IGG/q5f6pZV9NmWShWWTizjZJ/PY3P5fzkGjpyQI5QKv2PMpw4kTvb
xrtgAneLJ/XXmanL+1vuN2oOmiFyLyjim+qoy71aaYnrIhO/vTgchF519OVO
rjUOu9cFvwJjoVVAokgC0YBeP+gqeJKEmKeI1FeRB4QHSlMyPFDb5CgWCTpG
GCtjDR0TM0JnRrn6qzqq4dz0wY+Jp97xTD6GkIRbOvzZWdZDynjJU+w4YSlU
eHvJvfiCnzp37fzurTomR6gSJq88NeIwOQL+mD/hvDl19CP3SDOPrit0NDw9
YtQnsummA+HiQkG/jzDrdn5ie+9XieOW+Rfhk1XsEiHoWnQ98JXzLy7P/Arf
BLbd8O13u5kPHcp41sLe20o90Q4Pun4u9oLxDzsz0ZFLnVDFnlGC+O3F4WDZ
gzzJ+81vGTMr1wIsQfAiNtGAvljeDhl1dNtXZMq0RHigNCXDg7InR7kd8IxS
v7p05L77/bOMLt5U25B9QXjTve37tsxySOHsAvIXJyC3eXfZ9qqOra7TGhC/
4ZkKby9x4KhwMxHie81rvqPE5CjPjw+jn6y4/wBF8isASMwAJk9PnFTaT/Gu
K/TmnQl2xlqpai96nnG/w6kjDMLHt+jq7FQfs4ZDbcuQzbfGncukslCK5h3F
IgH7UEv2wxLFHBQnQXtxKIB+NH2uIRMW8M3GTP7FyLxt4Gjmb5aQ3kMeOCqW
K0VEHXJmWiI8UJiS4UGZk6PYlue3h3RlXnw0suL/wjqSLCiXFR+u33QsPi7h
muiNmZHMj13f5zggoy4pV61F0C+Oe0wvSfxedWq8vTH/ZGapqHBNxXSCRxKv
8jIqmRxR/c412d4eOF3a8fgBIchxJl9yzs68paOuaNcV5hp42fI/C1KpQTWt
k3/nnbsWiyy5zN2HydemjGffd98/YFErNTkqOITSW0vOi0SDJOaRJcVJ0F4c
Coqu3Z7Ifh/4lePY3wnNEF/LI71TdwSn95AHjopsEZLHnGUt7Y7wQGFKhgdC
Jkep+gMJD5cDf/d5ZxyWYWbInb76jjH7bV9guVBCwnLAN+d1/8VmuXy+y8h+
ifrOket3wzuljYupWj0pefPPc2IBSyapTtAvLn7TBvL1Qylvv68ybi+xa1Yk
WY7cX+N1jFGRyRG9Yu9m3R8x2+xCMdzRT76sCagGRDVgXc2wm3FwNN3Ftdgh
8WjIOdSkEw/7MjJXuhe0JpoJUcdHHPeKbtnTkR9c7/2SMXzXdw5bv14uFLuu
u4cbD55/0dG1v98cezkX7xlOTjiLX4mMJGkvDkUwystTht7fe1bybHym/+zO
w7vp3iipr9CrZvePOyV8hYgDR8W2CIlMSz69lcWD8EBhSoYHQiZHkneQp+pb
z5o/mV16UkZ6WqpWT/r1TttDBdK++Mf5bPTmX8eMnA58ZRZRqYjb++Jn12Dm
2VUkETH1mE7hkwOvzOToxZqznzV7FNZzBMpCbERm4OkDwhCVhHP16Ojopv/G
UBulO2KyzheO/8UeegvkIWwvfXIuOd+h6tvPTV7//E5wnfPc3V0PfHXj7dPM
aVHH0NSf/Xny6Fj2I97fGRMv3zb4ETmNikVCf0t298u+aEPH2L/weEH+ROm0
Lkl7cSiO3lq6NdGR/XpQzaa3bdN3FpbDP61H9qKRx+Hw8uKdz69PniO/Qu0j
f8yX28nvDXMHjopuERJRh/j5OQUhPFCUouGB4pOj+HDXOzj6rtXh9n2/Vsr6
AwOzG2CR3xERvQv+xcUiwVvmgWPJ+2FoHbjy9czUsTKj+gq4vUISEYl1IZ7T
RmUmR5WRVUwnH0/lexyRqbc4X5Vx+0Hl0jtEiRHP2Pvbj25ce3/sTGs8iuN3
rFLsobfwWtBu2PvxcDurs2F8oD7Z23sqMa1gSMyhphx3Q/zT3pi7APUtr/T2
vtJCZiBQzb2Xrn21LGp5VbE6rUvTXhz42d8J370+0ln8t5D4F7G6y5qikgeO
irV/zUUd1GHznKxH4yrj+YTwQJI3L7cgg7qQdemL/Y5258yH04+MunFvib+4
6HYklZ+W2P6r/uaVRCJikbKfdNhhyj6Q+RUdUmZylGqAwhj5Zd24L2Z/a/Z3
TfmSOMtBNbaf6h+esNyc8f2wXmKCpShQKxVEEt0Iuq2jva3ph2n9sf7xa+XF
b1KiI6G7/3r9/Tdf62jM8+Oub+0dvmyxfxVYL+25FJ9/XbvASqhObeU4/yZg
nsXvk4jZaV2a9uIgRHyKNP+Vw5reAcwxtHT1D5uT66zr5a+zEgeOiuXtEFEH
rxQUMSE80G54UGWTo1Vnf3ZFrkj0vh+0HhPvF5cM7Kt+chRbc76W/iFSAwW/
MIxT0jyLDikzOcrTZUxVvwXinkuDauxJrAKWlWxZslwzrAx02QNt2n0clmAq
F90IP5ZurV3cTutStRcH1SETS4rk55NHvEtrU1sOhAeaDQ+qa3LESOUq/DsS
9xeX6lsnW+tepaT6dCQdmfQXWj4h1oV09T12XlXSFZoccWsPqmySG42sp3e9
k3U2Zv44zqxelRjBWt+4cfu74EqxbfOVoN836/7MNjnczVqwztczRQaqv/kA
cACxO61L1V4c1IY4cEQVCSXI4w8KnPdR/RMK4YFUqmtyRGYo5u80kUX84hg/
Tjq6du9uYE3gvUjWdhBY1aECEd/VwsfiyLIYxYroZik0OSKfyCmy790LxEnE
PW72FczZzmN/Z+W2pf8ocwgsfnRdbORWb4r8a4MAIJzondYlay8OKkMeOCqS
4ZM8k59+TDFzMnfXA98GxKwokhfCA82GB9U1OSJ+R0VqLBB7TMyyq4ktD+Gl
7JPVVGSuo6KA3OSo4LG4/S3Pm5nvtIDeuApNjsiBOj0GF+nWrTDOTnqRdYCD
5Y6xZxUreiwu+gdbJ7PtJqIdgAogQad1ydqLg8qQiSVFwl1ij4nZLTERwtVJ
fwIF4YFmw4PqmhyRCaIFtzaI8vV13fYfc//cpf3iEqO67HVUFJA7H1docpTN
CU8UlH13bovvl1mhyVGecpFqLEiTQz5ZkgMGt/Elb/TWXXMbc/zhvdMnAm4x
mmI5FgCgOCk6rUvXXhzUhTz+UKS+ATk36bIGc827kpMmOTphITzQanhQZZMj
olpdgckR/cQ/1ZWZETOqTCerNLRP+gUF5/Hf7/kaXcu490kZV14RcgdmD67v
R2/73kn/OKlO85yAlHClJkfcXgaq7oLNOFinK3shK/XtJdW0WRZkOn7JbfGG
JkcAaidFp3UJ24uDqhCbQcUq2e7MWzrqMg86cgckeWb80GXvtvT7GAgPNBoe
VNnkiH7un2pO3cbDZt9u3i/FbnjmUmv2285YuHgesp+mcm0Eeb5ncqNE6N+q
UNnDRAckSNAR31R6NDtisgXydWk/kGKTI+4ChYobvTGeLMl/iXLLgOSyWeT+
+JW2KAcAEnVal7C9OKgJK1Gtz75yQKxNb8yZO3Pzkm77SvZbQT90Dhw+ND4r
RwEshAcaDQ+qbHKUSJhznk2NnHk3gFIzo7oTvd3G1O0mlyP2FixtDfzPyCTF
trxvNeka+hwhDUyNXuTWDPM+E6MrrpGW5G0t5eyeYpMjbrlOfo2ZlMBJgS45
oziLm9lb4IElJm46NzPHFQBUR5pO61K2Fwc1YeV9HRly5esLnOplTLX2nvpF
+g8Suwb7S7aXqBLqDJQG4YE2w4Oqmxy9oKOrzqFEOjS7Fii9E/JYzhqpI6ar
d9e2A9bOuuQHz54H3Ak5Bg1CMypT275N7/hk2N5ViZ1Fa7chUaFoyLma66dM
Rzf9N4bakvOm4yOOeyVUNVFuckTUU0pTbc00MTOKM4g12zR5/gm4hYCKtUoH
AIVJ0mld0vbioCLsvC8d1XppJsz4atCR++7JPgN1YmzmwfNVR7rwRzY5Jxpy
DjUVOekmJoQH2gwPqm9y9CLRmDvoGEn0X6AM3eM3ZmZ93hnHR7/tNdYkqrV7
QsnuzvRO8LrJkJxD9U5Oe//N9dG5Fn3ixyjgLqS3fVvHPGuamRq9SFY7v3vV
dCT+ZDKa3krc3rnbTutoV+Jm1hj733cvb5V2N5SbHHF7jRVOj1eOyBnFKdw+
d/L8E5DpMbqqG4UAqpIUndalbS8O6kHmfelbThyvT66nGk+/bfvcM+fLhGq1
9R1vOhYfJ78H2XMQR3onb3m9X14bPk4ZztqXZOspifBAm+FBVU6OEuidh75b
1vHBnpb4r6++pXtwwnrr2/AOucpERzcDrqtjZ9obKaqx47XLNq+gLle7YdcF
o05vHPvrpgbH5+hG0H3dPPzL9sYaHdXY3js49v5N93x4p4xbodzkiJtWrNJy
neJnFMft37MeY2UVM+oCSYX7vjhxBKByknRal7a9OKgGmSsVny//FH1y3+v8
g3m4v6slkY5S39LVPzJpvx18EiX/YfeeBL+6Nj7YHf8z9a29ox/fWSkzV0wY
hAeaDA+qdnIksVjEf6WDogymjxcjaj2bV2kUnBxxK9Iw+82phAQZxXEbrkFm
aq84L1sU56SnqqsAAcALiTqtS9teHFSDSFErskWoJggPtBgeYHJUmp2gtacB
MyNRKTk54iRCq7KlLzujWIysEm6tTlZbZKkQKTcpxQ5iA4DiJOm0Lm17cVAL
cjtAjU/YAyA80GJ4gMkRqIWSkyNugqsKj/qyh+gaEfqDEx17M+Tp2MWtRVPk
/AIAqIAUndalbS8OKkEU09A3T35XoAS8yiA80GB4kB2UmnpH3zKzWVzL0ucW
gubEnvj+xPmymd8abNcrNjkiGwumiJGvKypORnH5/cFThegZ9KaboagM+dTE
KYM0eQqEAkA5pOi0Lm17cVAHspiGPDG2WBAeaDA8yK3Y5KNImApVT43fOk7H
MbW1F+SspZS/eEX2H0+PfX22+7KM+fSP9m7mWxc5iA0AaiBNp3Up24uDOmz5
zG2iPbzkhfBAe+GBGsNUqHaq/NZxDgAWbswhO7Eziun12Yl25jHTlhHXikzJ
tbmej5mxXJZMZgAolySd1iVsLw6qQBw40g84H1XWPyLCA4QHANrEXaxQ1aFL
cTOKU/3HGZ9W1qiDc9zSYHKEKutpCaBV0nRal6y9OKgBceCoAmuwIzxAeACg
UWTn9yT96y7VlIoVM6M4+tjPGvqoE2OuH8vpUSX0CogGKCmqS+EGgINJ0Wld
qvbioAa5GvDUKduSmnZdeEF4IOoVF7wChAcAapI7FJxxdNz7VOmrSuFkFJc4
MhPLsJmBr75j4taSzFEHOwdAd+iydxuBD0AlkaTTugTtxUEN6M2/WUzN+sae
0ZsLFbj9h/BANggPAFSGnVcsRjFMcXCGiwOOLReQiGQcl7sNxMhX//LYzb+v
yVF8honTNgIZxQAAoF4ID+SB8ABAbeiHzoFD5K+S6rGrItWVPVwIaYgWjYSD
Xqc1kfGS+1zG02/fuB18okzpbE4OADKKAQBAxRAeyALhAYD6cNoZqCOvmDNc
1LWPWh2F3LBOms3mS8P9XYmMl8yYV9/SOzJpd/tXIvIvB+Vw+7tlz2sDAACo
EMIDGSA8AFAjTpmUplHPhtIXxR0uSkE1tp/qHzFbHV8pPPpxuo2rquwPAAAA
B8ID6SE8AFAlzg518+R3nK4bMmNnFOsHXbxH5GhkPbwS/M7jtF7qbc4tEhlP
mx0+5tFpuezOmQ9TKrvDAAAABSE8kBrCAwCVivgn29W1cMEekGs7bT+UsrJD
b4e91gEytbjldZvvZ5naumXEApajjPubt48kAACAqiA8kBbCAwC1op/7p5oZ
P88ua3BHyQtiZxSXU/OfjoanR4zEWEqdGJ3+UcaPtxO0djE+zWGzbxenLQEA
QOUQHkgK4QGAim3Pjh8iN3aVbefNySiuveh5Vs7lxLa8bzG24akTF2//JNMH
pJftPfXkex8an0V3NwAAqAAID6SD8ABA1Z76zMfJ4UE/4Hyk2PBXTkbxAeiQ
o6+BsT7TMOJ6JMf+OR2y9zBaX7eMe5/I8L4AAABlQ3ggFYQHAOrG2TrXDzpl
GRzyECujmGF/y/0Go52dTMcen4fspxmDX/OU/zk2zQEAoCIgPJAIwgMA1Xv+
3WQzOeYotnUuakYxYc3ZzxiGZEnuZTfRQyEaAACoKAgPpIDwAKACsA8GKtQL
W/SM4oyoz0zm9iZIfrCUs2n+siXwTNJ3BAAAEBXCA/EhPACoCOyfKnXaHpJ/
GUOCjOKU/XvWY8ydc12L2SdpzUz2pjn1km0Jzd0AAKCiIDwQG8IDgArBPpZY
95Lte7l/rJJkFCflWRqSePRjj7cNfQ4lFtsAAADKgfBAXAgPACpGbMN9gVG0
pe1qYE/W36tUGcVxG65Bxn685KPfftB6jHy3mvOujZh0bwcAACANhAdiQngA
UEm2vzE3kWPEcbPvqYxvL1lGcZ5Odjod9ZpzTbrhiNVYHP0LAACgYiE8EA3C
A4DKsh20nqQU+81KllH84lnA8jJ78JP0SCmrcR510hrE4AcAABUK4YFIEB4A
VBr6kXNAzxiA5OtoIF1GMXvJSydxMdLYhus8mU+s73OsIp8YAAAqFsIDMSA8
AKhErHbY8p27lCyjeG/VcZadUNxwwS1dii+9bO8hj3ceHfU8luq9AAAA5IDw
oGwIDwAqEr0XtHaSJSab3vFty7CuIVVGMb351zEja/BrMNnvS7bgxU5gpjqt
QXkPrgIAAIgN4UG5b4jwAKBS0Y/cI+TPt3nE/Uj6X680GcV02P3rFubQRxn6
7EvSDUfK3D0AAACJITwo6x0RHgBULvbqkByLG1JkFNNPF61nDKyxr/XSTHhX
lEvO/56rjj69vLcOAABADggPynhPhAcAFY29viF5Wqz4GcX006DjN60U40V1
hjPWxadSDkaslGysCwEAQBVBeFAihAcAlY69OiRxQZXoI+egmBnF0dXZqT72
olDLeXtA0qEP60IAAFDdEB6UAuEBQDWgN7wTZA9nSTu+rbuHG8mRqoyM4r3N
xb9MdB9mjXyG3iuzUm6XJ7HWhVrHPGsY+wAAoKogPBAM4QFAlZBroYOOhm6a
GAtDNces9wQXCI1urfi/sA53klUyk9fdNmSbW4tKPg6xbheaFwAAQFVCeCAI
wgOAKsLqiC1Kimw0sv5TOGklOO+b80zbfmcy1jAHLL1x+E/ewHK4qOWAzzfr
dtqt5te7GlkvEtfQMXbTF5aj0ih7JQ09rwEAoGohPOAN4QFAdaG3ZieI5tFU
xweLO+WMJftbnjcbOIOU6KjGngtXb8k07iWwcrD1TROzW1gXAgCAKoXwgB+E
BwDVJ7bhvkCMV2X2R4utu86z97XFYWjp6hscfdfqmLkbeBCRfpecgV5xniWS
oiXtrw0AAKA8hAc8IDwAqErsn/aI65Fk7aMrUmzTc8mYu0FN51zIJgYAgGqH
8KAIhAcA1YqOhhwDhuyusN449tdN/Lyztr+dbKvN3BzKMOAIybwwBQAAoACE
BwUhPACoZjshez+RW9xtWYwofUkqEVm0dOeyiQ2DjtCO0pcEAAAgD4QHB0F4
AFDt9r639x3JjX/lHr2sDvTe/es9uadC44BjGSkFAACgIQgP8kB4AKAFrN1z
Q48tuKf0NSlsL2jryfbZxo45AABoEMIDDoQHAFqxu+o8nytNo++1/kPLu+fb
921EVzccRAUAAI1CeEBCeACgJXTY/esW7J7Hb8TO4gcd2XUyqn1idl2bNwIA
AADhQQbCAwDNobfumnPVV2rbzHc12M6MeRPqOqZ8Ee3dBAAAgCyEBy8QHgBo
FL0TvG7KZhdrcFWEXp+daM9+fuQSAwAAIDxAeACgYbth14VcXzNtFajcCTkG
c8csW9+e3US3awAAgBcIDxAeAGgX/cQ/1ZVr/Nb94UJEC4NALOK/ksslNpy1
L20rfUkAAACqgfAA4QGAZkVXXCPZ05d648h0uMq3j+loeHrEmKlAo8GEAQAA
gKIQHiA8ANAqOjJvNWVbvxm6r/qr+OAhHfFf7c5smFMnxmYeoDQnAAAAF8ID
ANAsOuKb6qjLDIBNQ85QdY4J0ZBzqCnzMY+YrPNVPM4DAACUCeEBAGgVHQ1/
OdZaW81rJtEHM2MnKAx9AAAAfCE8AADNYg6A+lNXF55Wz/BAP124ekqPoQ8A
AEAYhAcAoFnMAdBwxrpYFQMg/XTResaAoQ8AAKAUCA8AQLPo6Oa3uQOYVTAA
YugDAAAoF8IDANAuRoGahjc9W/tKX1HJ9rc8bzakM6WPDtgw9AEAAJQI4QEA
aFc07Lv1qSPulq+SWxvQic+R+Bh//sL/qNrOkAIAAMgM4QEAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAKjY/wdEkXQu
     "], {{0, 214}, {1119, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{291.4666666666656, Automatic},
   ImageSizeRaw->{1119, 214},
   PlotRange->{{0, 1119}, {0, 214}}]], "Input",ExpressionUUID->
  "aabdf3c8-20e2-438a-aebc-f4c45347d0f8"],
 "\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnW1MG3e+761739wX8+LykhdIXFmW/CJShJClGxStzAuiREgmaoQQTWSZ
qLkm2pM12b3B7ao41Qa6Sl1tC9rE6W2ttlbOidOTUXbrdPF2cVrICmeL2zoK
Vuo0kGNS3AYCBDkIgsnkeh79Hz/Ng2dsj/l9pHPUbv0wY2bm//3/Hr6//3Xc
8cr/+W86ne53/yPz/17pc7b/9rd9bxz5n5l/6f7N707af3PitUO/+b8n7Cd+
+7+P//fM//h65v+WM68n//klAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAACgCsT53Y8Sy7w9T6y+qfSgVZH1yaN8R1/V7KaLaRwIA
AAAAgFTSi9NjfQbskGviUbrax1JZUnGf3aDb2+P+KpkGEQMAAAAA2iH9aMJ1
CNuN6oWCeDrrPWHQNbW7vgQNAwAAAADagFm+W2zeOwqlUYh06tHsrfGr3tHh
wX7rsc5WTKfTNbZ2HrUPur34V3eSGwW+J3MYPkeHc2JVxhemV+fCf7vseXvQ
frSztTHzZVhr5zG70+0NhOdWeZKMeDIzZm0bmlzP/faVGXcXpmvqcN9eBwkD
AAAAALXO1mLgjFGHGQcCi2UHH4jNx7HJq6MDFr2OJiNaXhscdo96r+A4fs3n
cQ/92kIKDGOn898jS1vIWzfm/CcNuoa20e+fS/vGnyK422bKfKah3X72ou+v
ofBMJBKZmQrivj8PWdsymsQ84GO+i5FqjQe89wpU+Wzf9/e16HSt/fj8bgxD
AQAAAIBmIDZ/+LinISMonMHHZS3aiJCgdEv37y8FwvHlzQKSKL06N/Wps9Oo
M/SNTS9S37qVnDjXTkZp9g1NrYj+zp1U/LrLYswcvcV1NVIwqvNye3UWz7wG
Mw+NLzxlv6XDHckNwNAnkU7g/QZMh3WPRdcgDAMAAAAANcrmHY+lWadrPRlY
kL9eExvJ25dJQUJJF5PNjUd+KiRc+G9K3Q8MHcKwzpHpR4uMrtDpGn4XXNkR
962s5tEfGfn7w9JfR6QiY5ZmbL/5Vw30Mb4RKtpmtZnw2zOvwjrem1kXeSQA
AAAAAFSSjbj31YwEwLq88W2Z+iWjQ24MH2ESRvpXXPjdVfF5KDpl06zXY0zC
Sdflmxf17vTS5Eg7dejumRUR7yC2494u9lsaHMFSUR5G1DVbPHc2RZ4IAAAA
AACVgljE+8iIRJsz9FiWfHmxmRh3tTfRqgBrPxuYk1r9SqQTV20NrHrRNez3
3BUR9SC25/x9howcMfT64ttiv+qnQP8e6luaunw/ljzOnZXQm2Q4qaHP92BD
5McDAAAAAFARnkbcB8n1vG0s+lyGftlJzX5iM9BBDcxgvTCd3BJ+U4nD0Iku
gCESeB+Vrtr3bqRg2Uth0km8nzrcLk9MSJZs3/V0NGbOy5jfrAQAAAAAQPVg
wy/6Xr+4pA0PVL3osPZzEzLVC3kgz6NjbTrxBTDERuTdfVQhS+FOouKkI24y
1dV0duqZ4Bk/T/iPk6fXcBJfFBvjAQAAAABAZbbmfMfIBRo77k9I6lp+iWRw
KAwn/XPl5VmeTQ01iS+AWZkaovSLbv9w+Kmk76EFjEABDAsr8JoP++7vprEK
AAAAAFDDPP9+tI1cnrFef0Jq2crqrRG27kUZyxTiob+nWWwBzE50tIXWTmZ3
JCXpeygBI1gAwx0VWzMjM8UGaArSCDHgdTvt3Wa2It3cbXMMvf8JZQYAGhag
eTI11Nk58N7l8VvReCKZfJLK7Vkg0qknyYV4NDyBf/QH64Hh3TVXDgBUh8va
iF7Ns29Nhl43Z4tubVcTChjvL+BWvdgCmKWAnYn97OkP/CTpuykBI6IAhmFr
3neU+qLO0ag0pQRoCeLZwq2PB0kTAExv7nUM/dFNcm7Q2s6aMeqw1t6hy7eT
IGMA5mElDuzg6+MPIQMNAIqyEfN06USWs/JIPw46jdnb81VvXJEmHeqZINIB
JolbOfnUe/mBhO5vYiP6YV+fNyq67ncn5tkvq9gG0Az0AFNdk9nxYSj2mO8m
9GJzeXbcfdTAXu56y/mQ/FovoD4QK2Aw00kP49IJALuWzURw2KJvMtk+mFkV
WN9JL9y//+X63+8slY6KED/6uqgckKhyVoSNb9z7uJ5nzOicEOPAIsyLe94D
jWIdYJhKXJoW26XbAidbDtKKcwCtQTy9e+lYA3bQid8rPgKM84imMJ4JLIKG
2c2IEDBYm839+ewqhF6A3Q7xONDPSAbBmtWV8HAH/ZC1BxZLvjDoaJCxLm8l
/K9lLVsUTKy8eBh44+QbgYfiohzLocFW5GHRaLKdvzIZS6ZU2OswxTmS/IEB
rUBsRMc6sJY+/32BlYZYi451cxIGs3wwK2gzDdQtlIAxn3Kj5VI0enOPY8Qb
uD23BtIFAF6SjmrB37GaodsbL+kLux4apMcQ6Zp7/A9LPGHJMlj6dcNhCZtJ
XvhFhx32zVUnrcK1UedgMFvJQdeh27MPV5VaYFIRt5n6cMkFw0CtQ7kJifSg
JlYmnMZsFKYPl1r5DtQNlICx4knmX9Op5Z+TyeTPayBqASAHrmU4ozZGwlsl
bhHi2dRZtjXo4Gj0WfFXppO4nXqZpAreF+tTb2WrX2S6xygEsTw90onpStDY
avm3YW8gHF8q77GyveDvo8/Xii8odfhALUAk/L2Uj4C+3T7ijwglIpE7UVbv
HlAv5AgYAACKsHPXs58Jegi5l3B1uaUnFb5Eogqtg6Fl0YfCe4ALh4PUJv0o
NHJERC1do8l+aWpBUqEPyov10Bt0WEvvjkA9Xh2R/ctS7BsMPS75+p2lwKms
ZsZOBZYgpbg7AQEDAKIg5n2sKBGKlhAJ3MZ2S/T4Sw6W/iXo2Eu9TkpaZGvG
vReJeez3xKr+/CaeLYSvuvsPCMsYwwnv7FN5GoYrGRZpfwdoBC4OySAoUHnF
4wJBTqAciHTynx77/gZ7YKnah1IIEDCyIAsX9lhc1+Opqq8cQGVAC2CE+p2z
BTCCdnBcFb2EHmpiwd+DPO2bhqZq5vH9YnP5x0gI97oHrWaDrghY+zvTQj1c
hT897j1AfwQ8suoLtkeeRthTiC9goCZKJdgZJdihs5M/12SaDgSMPFJxn90A
XgS7CCRrI5AVIrYi7r3MS4Xs4LJOtnY8KTYrwn96CxQJV490KhmPhP7qu3jW
3p4jZpq7vDE5vQGc7UwtBJ0ABSGezvpOmchbwWgZmUgK1MDkpJz6/AvQaaI4
WfXimnhUqxnb+hYwKrh2ZN/wdNZ7wlDu7DxANjuphbvh0I1rPg9p1Gm3WXOw
OYbecbs9vmvXg1OR+8sl/6xE6tG9heLmEy95BTCYDU+Weulm3NvNxhqEsvNZ
LSJewPALAKQPIaoC6ZX4xEW7CVlz5E0E4AQMFMHUI8Tm2i+i+keQWyzDXnek
VEU9IANuPqwS00lUJF/ApFPLC/FoJEM0vrCshp9DpVDFtYP3BUz/BWiYSkGk
l2M38Q+HHb1mfcnGl0JgrYdPDXsDt37giRlifS74vi2ztpaMqyAFMIJOsFxZ
i053wBsv3d0sR8DkFAwoWMGbuffzh4koBZFO4P3c0El5u2YQMMBL8m7093Ix
yIZ97m8UcaAGWIj0YmCAbFRvah+5tVrT2pATMER6LR7yunIz15ipe3DseuQn
DbZVq+LakUt6Hu8njbywjvdm1iGorRKkbgn5Rwe7TYhqoUelkCGWQGiaFNx0
mCW9HKf+JRIOBfD/9HncQw5rZ2sj76rWWwbG/hJd2qLr0+jPxNr/NJMqpjbQ
a0lIDHOGsTpsr3tGQNcqEIGRkHsqDdXKqmo95Ebc+yp75LLqFkDAAC+J7dil
juxjQKkJGgADsX7b3UE+whp6Pv6h1hd+SsAc+3Ay6O4xNOg7By8FwvFHtPNU
OrUQDV48yeQltVewqoZrR6E3r37tMmUWN8zQjysxSg9A2VqKfnFpsAuZ49Zz
xv1xbhRFGCZ0c87ahnRfNuub6X8zWoa/mCt1eSPXkpANLFKOuNcR/EXguBSo
gVFKwDxP+I9jxrdETGtNLwWdplevzEu3zkN+HFlKiRMwLaNRbT2NAKUgHoec
bezF39Qx+i3IFyUhFoOnqWed4aR/rvZ/WrYJAusYuBJdLbAocLMnMIPtk1kN
aRhVXDsKf9P6zHsd5E9k6PHOVtWPo44g1uenrrxjY/WG/kC/+z9CsaWyl+qd
1PxNj517AJLq1jIWKVn+wruWhAz/00m8n9VIR33zgolFrgtJQiaI34WkUAXj
8+9H25rEReOp8QHyCuc4BSLLuwO6kHY9O6tT50zspa+FEIG22EzgDioHY+j1
xbVQGE0/P83O4ELRpYFYCY/Qjw3MOBBY1EiQQR3XjmKfwP5EWJd7RpmReruY
raXodTcrXTDTcTf+vXIjAreWZrz9Jn5GSciZBLmWMKGtPzIbSFSnzGLATlvq
Skmp0PMW2a9Rooh3Oxk4bRAZjadcaOTlcLLSS7A6qBDgA7PLYcPd1K0IlYcK
Q2zP+fuoKjWRMx1qgPXo6LHDY9+sl56Xu4j3MVdN68mAnBW+4qjk2lEU7s6C
YpgyINJL3111vULHBPWdTu/NBwKxEWkfz7Vq0lGdllauErjUWFv0WhLyy82m
hHLsWbaWY9/GlvK/Qp4T77OY5xX2NASLioUhHo+fNjaKLIakwyCyBAyXq23s
8NyVvr8DJ97dDVtwCOpFFbI/70F3pOYbGyWBxij2vRvZqH0Jo45rRym2F/GT
1DIHaVlZkN1A7h66S8Xw6oiSURfq41P3cOfBbAEMGXVZWQ+fZ68SzHDy8yLN
0ahvv0BWCInV8NvZyCRUcyGlwbUUSaseR/YUZU9ypB5cos3lmByZLAnxZGqI
KoFpOIkvyohPb837jtL6BWYh7TqIlRl3F0bfqj3vTYJ6UZj046DTKPAk1C5I
lYi0rWKVUMm1ozSbdzyWZupzoDBeGkTqrn+AKiNSpVycSCdvjVlbOPGSzfQR
PwX697D/q3k4vFbg3WgBjMAVUrTxjRI2He7Iev57uLSIREmwHh09zOqxMnZM
6UcTrkOYBHt/NkcmUAuUD5FOXLWRv06zxXNHVqnY0/AwXQIMzqu7DNZ0K7M9
NA/4YxoqxdQK2en2dRd+IeFZTzQOhgo8iGsJtVw7BOCCMLqGPnyx3kSsSuyk
Yv4BM5VYMPSNTS8qnRrYSc0FhtqbuKuXbyyJSo7CFzZyLQlF8zgFSz5oz05l
hxZSUYs9b4cLhi5Xgg76CCTWX3HdjuQ5WS5EZTzVafUiyWmTG8MkVaWzAWr5
hZfEQ38P9fMKNYIB9cXWYuAMFRxosY7dEjLprRLE5tojynfa86d3hhx8V83j
jqHzo97PglPfx5O1aaxW/ysXr3Oz1n28VXPtECSrYw+MhKGaVxCkx816YVpE
WJhY+ufYSdvAlXvitvCcnyRHi80XQ98rdGHzFE6plp9siDtPjZBxnr17hqcL
r/fEj76upjzNI4Zs0R1pOeX6Usqz/cXmwtdkVMpwwht9Iv6hmu0DkuQbQCul
MksXuFu13I0GoCHYR0RGZgcf1l7L0fba3O2AdzhvWEYxGlu7B0f9oTvJWqrD
yC5b+4emnlT7aFSB95yv9R2Qaq4dwmzN+Y4x7TNlVibUPUhYWPTiy1aBiuqi
zVcvBYwlkRW5YBYHLYAh9c9AsNBQM/pcsHbrsV8xL0SO8MWc7zBWIjDL5Wdl
eOrupOK4k4kvNZkH/iO6KlxbQk7NuHqWHLFh/0CMaETgmsQxfWuLPvN7DgVK
+udQX8dWH5VZeMneqvIr7QGtwaoXiTK7EhAbyQjONUuSd0T7iaH3vVeDUzPR
+EIyw5NUenPt58w/JOLRb6aCn/EnnBo7B72h+EoNnFRmj3aG6WLRRoErBfE0
fv2PNrNR337SPf5A8LmpjneWOqjo2iEMUl1Zl8lEhciqlxab947oViM2lSks
YPLVS8GIAbEVHmkuIWDQa4n+lLxVmEg9CI32GahEzHPur8/N+kknAgP7SgZm
iefRMcqYRt/rl1hXQr09vXoXZ1q3Mp/RNeidiC0X3KqS1pR///Sc1dRINqd/
freQ71Np6AIYyhJqfYVu6aL63L9JFAqNE5vJO8EL1AgkseKqOFwFb+doFApg
dgOMesHaf4/HixZoEcmpD9wfTyUr6VnyYnNhMuvgbbKd+/TL6MK6qBWR2FyO
hwOXBjv1rIWm67NogebECvLivu8w/QhUoJ+xYlC7Qu6hfNyfeF769TwBU2ax
q8qo6doh5uuzdaGNA0FIIxVApnp5mf17CQiYfPVSrL2dPxUuLzeBFsA0mA8d
pB47mSX7Hd8XUzORSHgC/+gPVlOT3vIWPkvvELmkWIt19EY4/OWngwcxQU9L
0kSO1D0N/YHHMi+Y7dXZG2MDFvYmbWy1/HronTGv/xqOX/N7x94ZOtVD7v4w
fefpseuF9YYwVBIHkXDba/Hx0f4D1JcazD2n2G/Er/kujmS2m+TP1WiyufHy
Z5Fw42/kTYEENAZ9H2F6y/lQqagdFZKtZEYg/SR65YyZegyQPg+h+Jqsmhwy
Coq7bbQhleGoO1St7Bi3e9IpOlVNbXIy+4JV/ajZfo37eKvq2iEGZNS7CGW4
+0gvTY5QS7wIC1w+xEpwgP5lSwmYAupFZ3DgiUL35vZdTwfnCIfllamg19Je
R/Dn9NqDcOBj96C9mxYD5m67c9Q/mfMQyyzrNz8ddpCCQd9uHfrk1oJgaQub
eWxwBB6XE9t8sbn8YySEe993OWzWY52t5GdmjpIsI3zPi4ci95fKek4ujw+0
Oz/P/SXJwM5N3Ds6PGi3HqFFS2vnqzbHWxcv/y0cL+8bWdjApjwDGUBbMOpF
hPc7tQGpVE1mtlkS6xjw3U5ulmu/lF67N+4+Sm3l9va4v6pGffLTiPtgse1b
LcOvaRG0Zdhe8PdxL+ev9bWGqq4dIg+B7SvRNR/23dfORVEBuLpTGa7Omwm/
nf5di3ccF1IvWOfI9HKhbyI2Iu8iBS75bdRc327mQ/pVTZuyC7SxD09AfCEP
ak6TqCcVoHXoySxN7a7xhKBCoArgMXtgSfWjItLJiRGLkdy2WEZuzJV2fpXE
VnL6gpV6JFZhWM/G9PAe+mmpsdIyIonbMHoLOXY9KrjrQ1VBEbuMGkFl1w5R
oO4impK1qrMd9/VSGw7TuSlRtmlZiJUJpxFjgyEFy60zD5kvXWjHNElu21GB
g6Evlnz3bNSxX/W/I7MV0o6JdwVhAmUNIr2CAc1Cb0BaRIQjXmyu/ZKYHrNg
gnUC5cM9WFTSGC82E+Nqfn4xiI3w2+xCVcZ6VxWIBN5nFNv0ndVpugbb1Vqe
uay6a4couILDXGm0u9l44KPCDHImRiG+bUUSc8TqrZFc9dJgco4XeRJyY8to
2pyh3PITSuQzn9M2+r3auUA2CFO3nYxy2VkJvWmE8Ev9Uyh8Kgw/eK4CRCoy
xqwUJZ4nZX0DsvOq5MDBtfCwWdRaWYsQG9GxDmzfQCAhFH7Jhu5rfsS2+q4d
4kCac+W1ltQh1MAdjHwIuL5elfaLENtxL/fXwnr9BbIs2/f9fYjXLv3KonOp
UAcV6qFxejyvehapZapQ1DE16+nBIAiTw3bM25VZPpq7vDGQL/WLPPWS4eBo
VM2KBqqLkHxqnRo6Q2oMqYZLgiDhnWMDp6iv6HDfVjBHVRQJfvU1CbEWHevG
Go6OffNLcQ2DXFfYobOThUwwaogKuHaIYys83Mx8dhmtJfUEWy1mdAal1qny
cj17+gM/5f6cxM+TZw/lPvtKiO3NWW8PEn0xuUJL+Ye0HnF3MC+o1PaENdfd
dzpYl3aYMmBGtGCWD2Zrz8UMUIicDYUU1G2J3ZjznzSwTtes0lBQw+Qmp9IJ
vD/zOxQt21MSJFuhsQKYLOmfJt1HDdh++8V/xNfy9jfplfg4M18PM536tNas
hPKphGuHSBYDdmOFl79ahm0gkrGPTv3gtWb/qAWslpiHDJ/ioUXWFZbVOUXG
ACEFMBWUoDup6AVL5uCMb4Zq2iuyQjBD3rEezyx4v9QgRDr1JCmJ5YIN/LxR
NdJQsQKG2H5wubeBtNf3PdhgzldRDcNuWNDSl/RSyGXSyakSlIiUdl2JEJuP
Y5OfXXT92tLK9XgazNbXqY5NWWFUYie9U+TXJtbnQxdJsyn9Abvrz77PQ+FI
JBIOfe57b6CTWoL1Bx2eQvKm9s6oQq4dokANRro8sVrOu1UAdtZG4xmJjg3E
5uwHlqzaaD0ZyJkXRPcs5DzUCjjusp/HWdBQFB8DhBTAVDgJSOuxSqbCaxUi
GXrdnPmj9+Pztb512i2QLfMh/wWXw9qZfZJLBdNb3FMFYp41BrEQONmaWad6
fXFkiVJMwxCpO15bS4HCXWJpytVOJpJGv1Vz2UBaLBUycSXh5EQx9EeGb9yX
5J5B/yFKJ7logeEZIR0uGFuq7j6H64I/FF0oc/xU5c6oYq4dYkArKJp7/A93
9VJEJHAbqRqkjgFF5xVmaOi9/IBXHEKkFwMDxlz5UnRcILEev/xrMerlJeoz
gB3zzVXWKpNYnh7pxCS7/NUZtJCTbBYEqEKuc36ZqF55WzaMxwLWMRbNDfkq
oGGKqhf6vyY/P2nA1K1a50aw6WRMYSvykezQECEkPdnoP0R1SuAqe0aVc+0Q
Azpkp7adc9RnPTRIijmJgUpmHWfJBnLZ/56KXurJyx0V86zLib0UyxxxL1/9
l8fW1tDaO3T1bhUWUBlzousKOjSqeMEkIAMivTTjG8gLc5ZFzc+DoLp0CzYn
0v+5HA1TWr1QbMS9r2Kq+gZkpxgr4hGR+UG+cvfsFX0BiA6r0n+IKqTUK35G
FXXtEEHWzk5wJFOdw2o5SYHKrcXAGWOJyyNH3nCQxrMcNvvgObfn38enJj9n
HC9JsPazASWtqNQhvTg9xhRr7TINQ6uXanmTAiiczZpSYHqzzVWVTYEEiO3Y
JbKCv9RwQ5kaRoR6oV5G12dKzrmLBS23KN8JsJCFBY3B3PkrfaH/UHSnyf9g
KlhRBf/typ9RhV07hEHNjptHwls1fceqCvNLSBhZsrM6/U579qmZH6DLkTfi
aWp34vEK213KhlifuzFi2feHqV1VBL4+ObTviOv6vWqvcc/mgh+5a4WPgnMV
D+IST+l5nQjGzoH3/RO3Y/PJNdImN51aXohH/nHlneP8l2m9jS4VHe0UUfwm
WcOIVC8UtElLoaZLJUBXp+LG5uLIsbDQWwZG/aHo/FK2+OTF5tpP8Ujw03M2
5DrBjM4JATswOlhReQOoKpxR5V07BFnArdw1Utvzu1VmJ+bZL+FH2EqGzlv0
3GWRr15KNV02WN66NnlnIfV04U5kJvRhf2sD/78bLcNfzGlFwABVhDdtpfqU
u8pIJSflqms02S9OxFeKHMP2atTLc3EpFbuoeehuVlGT7CRoGCnq5SVnk9vg
CK5IOnhRoG1fTV2+H8v4UzHuVSRYh+OjUMmunJ3U/MSoldUGAuWFdLCi8v7b
VTmjKrh2CIGMuhYel1nXiK+BSf8y4/23rKbVv5K/E0eMMfOgg3hEaiFnV4i1
WX933MxelFWYOQJoDuLR+OlfKVr4UQbYr06PP6qgIMiJcLZYx24JRRhy+gHV
Ch1UACblLTbvL0rDSFQvFHSZiirL2UbMw2WQ9FZ8Qe7nZLtEsfbf4/FSVYVZ
skYWJcVJdcIvVTqj6rh2lCYVcZvZi0ThRnuNwQ6HKjmHYicVD4xki6YwQ487
mF+pkmOhnPOYbz10xMwv69V3DV76IkoOFmctVkgq5XUJANoDvVN0EjosiJ+D
A9nAe808h6VCd7NK8nYT0DBy1AvJL0HHXnVcONC1ad/QlNwYD2sxmu+3JkB6
Hu+ndvfGt4rkx6sUfqnSGVXPtaME6ESkclRuHUDPrcj8Ds2dI/mVmUR66bur
rle4gD1mOu4OFCyB2FmdOmfKky361hZ9zv9itg66Pw7c/i/+hyCz4yvfHA0A
WoBfvihp+g/xbOpstvBRoebcivMsOnpQ+rJeVMPIVS8v2RVEjZZzRbID7JAy
45nAouRnKTtZpsjWnngccrZVPPxStTOqpmtHUdA8Y+MB772Kp7V2Uolvgtdx
3O8dJesAzw3abVZrb/fxT2PPK/5gyabUMX3noAefCEfuzc/dCU/4RwcsiPww
WlzXixXZslcIH8PpQFLsRQ4zqgCgFMRKeORA9uaS6AdLLPh7sm/W6Bxb2kRd
xsEX0DBlqJeXrCBUY9w2Wp8pV8C8uO873Fy801wQxt20oDkYNdAHMw5NVnRC
dvXOqMquHYXh+WNXugaPBBlngFKtHnPiacx/xlw0/WPqftN7c754YoeL0fEw
2vwPJPywiPuBVFc9AKh3uEgpjfQn+VLAnn27Ngv/iIf+nma5I5a40YGkhllc
iZahXqiPi45m3t88HFZ6T16+gCGeR8faSHeuMsbubEwP78EKFflQoXLsVW+8
kumj+jujMqm6gOEmlcxFrzrZzEt153YR6eUYZUV+nHVqcQy978VD3y0I3OCb
CdyRZ1qX780rBNpast8Tg0peAOBg3Nvk3lwv+eZXGhUw9CNC/vOa0zANej25
WcLaRyZlz01I4lYdb9awQqACps+/ICNNQ8/KKbPhl87pd7gjvK0k7YGjxERC
SdTfGZUJLyNcDQGTPZKt8EgzcyBllGxVDXaqWq58yfXmFUZJ+wMAqCeYHaj8
8MtLdsHd1QLmZbaUgpQv5W26KyFg5Fl8kJVCheYsSIK+5HLqK57FPK9Uwwul
/s6oXGpmtUQmS0pwk6sZ2MpwPjlD1kSB+k+qOccWADTHk6mh/dnbS5aRC53y
2N0ChquEYRRMWaYNtStgFILK6fO8btYnh4wY1uWNS43+1Qh1dEa1ImCIeX8v
eyDaG2qQ+sFrzYu+YIZ+vHhHdjHSjwPZCHf5BtoAUD8wZk3MPkeWmfnOUuAU
UuOm3IzjSkJPOZS50ePUS0a3fPz9D+PsP8utgaEsQFUYpYcKGDXatMVDFWpm
95J0HayxD09obJnKUjdnhE7HrqqAySamq1sAI4McSwqW/Da39FLsJu51O9lx
6jrssG8up5CKl+KvSl8YANQmqJO5Tu6wRWScrq52DEWlQi/ucipD2PGynGLJ
6hnjQGBR8oaLKUJQYe1QogtJGShLPa5kmu4DKmqlognq5oyqXsRLg5biaCwN
R6zfdnfkT9Qyvx5Kss+CndT8V/yBFDRN7SO3VnMGENAD2sp6RANAXbIyNbQv
e3PseTssoxIAHaebWbNteFJre04K2uRt/3D4qaS3FemYLmdu9faCv08dDzG0
QbW6AoaO2tFRoGrNDlCWujmjGhEwSAGMtvZE6URgAHmossqEM9ElUveuc/Z3
+gN2158vj9+KLhRpoycWg6ezn1YgPqMuteTJAwA58LWHvPk7RMLfm91HaDfC
SS9A0o6/pN+LbA1D280dHI0qPscTdeKtcqkSVWhBy0WqCquGnNxkUi9nhAqY
6jnxEgncZtDenih3lhxzBmzpy1Zy+oKVGh5H2vbi3y8JDmoJn0fEkGyrItnU
mCcPIMxumkbNK4CRN92PV2CmWRc7ErryRPwoBBFudbI0zNaMey+mTtsFKmD2
OoK/KP35EqAaK8j1kXgc6Nder3EB6uWMlBqYVR7ZR1Nl90Tp5fi395clp31p
tpIT59pzs0Lc84H9r9h+u+efoqbY81NR1SgIr0FPHqAku2oaNa/9WZbTAt9D
puIRTkWhlYO4eLVor12pGobpaldn11kbm2sa8trLHMMDqti1ZSD4syZXe5Q6
OSNU5UrOqCoEsRVxs/MRc9111GErGf5ksJN9lGGHzk5K/fPtpO5+2JPfd8T4
QbFDb7FDrolHoh7pOfMfsS73zEr1riite/LsGnbVNGqegJETPOHnjyof4VSW
tfCwWcxAbYmTAiRpmFR0tFO1iSdozbYaowqkQF57WMuffF6tFrvmUSdnRM8S
lf1MINJrD8KBj92D9m6zQac39zhGvDeiSK5kJy0s4/MKYIiN5J0vfW7nic7W
zB6jtfM15+jVyfiKMpu7gnkfaYa3RDqB9xty1g1MbzkfomeDbnw7SsZSWvvx
eXHHvLUYOIMkb6o+h1rjnjxAXcITMDKMQejVlr1dNWh5wYeuvRQI/suacyRW
wxArE04jpt40Q9SxR4U2bSlQTbKNZnObVotd86iPM6L9BJhbWuJkjfQvkctv
dOoz67ixc+B9/8R0ZGYycGmwU99k6r88m9pOxT5zdhqF4xu8AphricczvoEO
jJw65MFD1Gd6BsxULqbf+y+hMhJB2NhIDhJi3zkeUMyBI8+Hjbj3VUyCCQxn
681Khp4P78o2lVIEbXvyAHUKOsNI+hRpZrVlODASrmKEUyG2Y96uZp3uoDtS
OHJexpRGMRqGNg/BjM4JtX5K9C+uvFGeFLK52nrpDK2PM0Jz6BKCdJnL+9aY
lVLHhr6x6UVk8d9JPfhPh7HR9OaF93v0osRztgCmwXRi4ISpydDjDs6hEYjn
S5N/pKpNDD2XomXNwWRu+Rzy25mLUVC9NLU78exwanpUllh37twPxNrPTSSr
XQ2uYU8eoH7ZuevZz2VtpUZg6Pkv7HPG9bW4+73GYcYBFAzClDdj+qWghiFW
v3aZGtSd/UeGYFgFU92hKpyUqpuOhvo4I0TiijZ9RdZcwwnv7NO8WweZskGt
7yX7BdACGEoMDAXm8m83rvoOOzwalV0kQ2yE396TuaMPHcrWDYguss0PldBv
58eFmLytyO4AIhUZsyCCyuDAE1Vvi9CwJw9Q16A+MJIcdInN2Q84q0ms472Z
9XpR5cyOLLeep2z1wnxMcQ2TmvX0YKqGX0jQCoeqThNg0pfa7bvPoy7OCEky
it1rE0tfnWUiBvtOB4tkX59/P9rG7ZVK1+Ui5RaZ263PP1c4MU3bJVG/+EBQ
7i1DTsLS6VoHQ0vp5djNwF+DU3eEBkxzbCUn3+vhqxfMdNLDiz69ZH0+xTT9
ZR4OEyMWpCeiFmIvJJr15AHqHHoDQpO5i5fFvm311ggX5KyJPYKCEBvRMTIn
bjo3tco8ylj1oohUK6hhWEFoOB1IqlL9woKuDlW1gmGWew333edSD2eEjgUR
90DYvu/voyUPZjw9XjzIgPh1l64CRQpg0Hswn2yyS35ZKd1yJf1GSC9Oj/Xx
636bzAO+yFK+3qDtrwVtnXZSMf+AOTtMLVsAXHU06skD7AaQFLDIjQy3mlPq
pWDEWOMwDYzMIICselFsQ5SrYVjDB/FNCvK/GokGN/f4H1brb8esPprOtvCp
izNCZAbWLyJAt/HA18cEVkqnPlFZUroKFCmAKT2aDanWkS3FadObxvbR70SL
zp3UXNDdg+S4qMDLxdCDIqU4tIApeYTE+lzgLGIgwy+hqTrV8uQBAGF2VqfO
mcQ8gihQ9YKZTvnqT73QbN7xkJloQ8/7vosKqxcaRMMMeT9ykM1Pptf/sVSB
XzNbj6drHAxVwGKjEPTEwHp6HtbFGaEtSCKUGFrGL2DcR03rpl9YOjOF5LBK
+42gngBGe2BR4FiLnMF23EuarWAHnfg9wWJgIvVj8P3XeAOM9F2D3q/mS4kN
2li7mEYi0kvfXeUmC5BbwldHAsJHUkEq78kDAFIg1qJj3fRNiVkuRIvejNur
s9ecTOYIM/S8N1kjEU5VyAiMcaeJ3VyqkozmtRtUrlMSXaSkmV0oyHrE3aHO
uIRqURdnlN1rY3vdM0JXPN0dTCPgnkTbXIuQJVvzvqPMCwUSQ8gry3Jl3Ji7
dprSJJi+8/To5S9uxZfzAk9by7GbV945zpculoGxv0QL5IxyeJEK/5HcIWId
jo9QqbOTSvyL6jHnPtRocX0m4gMlUb4tT2U9eQBABumfJt1HqQgvpre8hc8+
4V+N6VTiG9zN3r/6LuflmbLtF2ofrsWgweQclziQURTsGOsKV+uhZTCSKreV
gynprGoVsbLUwxmhe20RzSZ0dzCjd477EyWyPeJlCVJkLuA3Qkc2aMqci8G3
4WVX69bOV63WY+S6z4PUOWP47YT47QbPKA/Tm49YrUfMekQMYW3Wc5/enFfa
qU4RW56KevIAgFyI9bng+zZTI3Pzdv92eNTrv+bzuIdOWVoxaZuOuoHTMJjB
9v9mlDzxF5uJCTqTXvlegxdx7wHm0SlsO6ziAVS3j1tR6uKMkClIwoPp0fp/
wXwTIjZKv1J0polvAaFE4ItIJW7/7fLFt7KPOxR9u3XwbY//ZmxZ3q2a0Uif
vtnNC+Ew8ZDAvyRoIbEoZ8tTSU8eACgPYjN5J+Qfdb7W2cpNecxsGXodrgv+
UHQhpeGns1yyvY1kj+RUYrP8OzT9ZBZ/y0LujBqprVDFszjIFPJqlMGwIaD6
sfSsizPKXhXYnuFpISsidOajUL6JnjJG0TwcLvFKJNMk0ANFJHEbpwbU6u3d
epJUITOSXkk+UXXDoqAtTyU9eQAAUAUidf/G8BFqu9Josl+ckJ3wJTaSkWsj
dAtDNYOuVTV2YG3JqzzLQEHq4oyoadpMQKOYEzXCYsDOrYECYgOJ+JXO9SBN
3AI9UGgFL/T28lDUlqeSnjwAAKgG8WzhltfBGDUY2vvfvTYdX94UufQT6VQi
cuMSm2fHDD3u8aqWvSFTOCX4/yjz1Y8D/Q2l930aoy7OCFmqOi7FBIea8TI4
pSup0km8HxP1StpWjkJgigHqwKnS5FNtoqwtT0U9eQAAUBdi86cI7mYrhTLP
zgN2158vj09FYvPJNX5yidhc+zkRj94av/xn16nDbFod03c6vaH4WtWr3Yif
gwMt1dg0cXvn/cNhwW2+JqiLM9q+6+lolKAH0JFJAmPUkAIYniwh0kv3bseW
EBlP28pRlB7UhdYPG98MwYrJoLQtT0U9eQAAqATE5uPY5NXRwZ4C1X5685HO
gkWAB+zD3huRRKrq0oWBGb1NPZzUGn5diLXwMLVISZ10XLvUwRkhF4NIPYAO
1Spdl4vEavgFV2QUhT9uKStgSlZDv1ifeotNXzV3eWMVu3ZrHMVteSrryQMA
QCUh0qlHs7fGr3rfG3IcP5arWwzm7j7HkNtz+Ytbs/+1KjbZVEG40rtKrgLc
cqZtx1qEOjgj4nHI2UZLjA7PXXFXAm0wS1EyWkIs+HtYscFzfiZ/t2a+7186
iduFBUz2uq2vKWzlorgtT+U9eQAAAESC7Lv3vRsRaJtV6CvZStHS3Sgaog7O
iFjEmcSDhFFcSBdSCQGDmGTmNDtTlb2do1E03ZDteSn+YyIXLdblnoGKURbl
bXmq4skDAAAgjuzW29iHJ9RfC2i//Xp6ytXBGT2NuA9KD8QRz6NjbcyS5Y5s
Fbx2tpIT57IjfngptucJ/3GsbSz6nP9GbhUusmISqcgYOeMjQ4vNF9Pu1Eyl
UcGWp4qePAAAAMIQ6cRVW0PFgjBs84jADlFDaP2M0AvgfFhSOoZYCJyk18Gc
QAoNrV6aD1l7mFFraK0vWTNsLKSX2DxIwd8zvRB0mhn14r0DnmkIytvy1Jgn
DwAAQD5c54L6lTB1UC6Sg9bPKBuCa3dNSR0lSqQXAwNGLN8hhNhMTHlOmrAW
26XbSxvcvHuuh3ozgTsMxaqFN2e95HwNZhZ89rtWo1cGOihtI2rw4i5DcVse
8OQBAEALbMd9vVRPpcGBJ1SMyrPlImIGBWoDjZ/Rznr4PBU/ajC5vl6Vs+7s
pOI4NeAVM/QMX5mYjoQn8I/+YDU1IrbVxGb8MjOPwzo6Hv5n8KPT5oZDrolH
RRZFIr10+xI5Ar7RZDt/hZ7g4x3qNmC0jWRI8ZlBdYDytjzgyQMAgCYg0gm8
n1piSppflQm3UxMxKFAbaPuMiPXb7g6yyqHMXh7SHOmGd9jRSw4oZOYdf5vk
td0R6dVY8JKLnF+MtVpOve0LLwq4OKZX4qHL7kFqpgnW2ml1uC5eDd1JKjDI
oy5R3pYHPHkAANAK6aWQi6pVaO3H59WxCGbT9PWTJdfyGRErM+4ucuFpsHp/
AOcxjaO8LQ948gAAoB2Ip3cvHSMfbQa7L67GikZ3ZWLGocl6mfem3TPi9KrZ
GVzYhSNa6w7FbXnAkwcAAE2RfjThOkRmktrfmS4+90QuVJ1hXc2r1egZEdtz
/j4yYwi9PHWD4rY84MkDAIDWYDpVMYPtk9mUshomvRz9+/Wb8TpaMbV4RkQ6
+aWLLLsF9VJPqGDLA548AABoDiYOo4aGAaoMkYpeIpuUQb3UHcrb8oAnDwAA
GiS9OD3WZ9A1tbtvQ31n/fDiIX68BXxU6hQVbHnAkwcAAE2ytRT9x/WpeYgM
1w/EUvSLL26Bj0rdorgtD3jyAAAAAABQCZS35QFPHgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAADI4/8DauFDdQ==
     "], {{0, 120}, {747, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{280.99999999999886`, Automatic},
   ImageSizeRaw->{747, 120},
   PlotRange->{{0, 747}, {0, 120}}]], "Input",ExpressionUUID->
  "f62ffc29-6487-42fb-a917-27dccb19e317"]
}], "Subsection",
 CellChangeTimes->{{3.7609892219299493`*^9, 3.7609892935080705`*^9}, {
  3.760990348307933*^9, 3.760990353044724*^9}, {3.7661625970184083`*^9, 
  3.7661626143153515`*^9}},ExpressionUUID->"82065192-36f2-48f1-95f7-\
d803faa1d009"],

Cell[BoxData[
 RowBox[{
  RowBox[{"BHoloTerms", "[", "mu_", "]"}], ":=", 
  RowBox[{"Outer", "[", 
   RowBox[{"Times", ",", 
    RowBox[{"sigma", "[", "2", "]"}], ",", 
    RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.760989303019032*^9, 3.7609893372980385`*^9}, {
  3.760989379205922*^9, 3.760989397727598*^9}, {3.760989484432564*^9, 
  3.760989492047041*^9}, {3.7609895444325275`*^9, 3.7609895542324457`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"0bb9ebe3-b777-4cd0-a410-a8d7bb2fa424"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", 
  RowBox[{"BHoloTerms", "[", "0", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7609894557749777`*^9, 3.7609894596633234`*^9}, {
  3.7609894989134483`*^9, 3.760989530023716*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"ab8ed047-a029-4d14-8a6b-dac15e377144"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "2", ",", "4", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{
  3.760989460260953*^9, {3.7609895024491043`*^9, 3.7609895493723755`*^9}, 
   3.760989581570015*^9, {3.7609902950306487`*^9, 3.760990324307664*^9}, 
   3.7656319923684473`*^9, 3.765736129509448*^9, 3.76573803302618*^9, 
   3.766162434327463*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"40d97ef1-0183-4ecc-9d6f-3ec0fe3f851a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BHoloTerms", "[", "0", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   RowBox[{"\[Gamma]5\[Gamma]down", "[", "0", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7609895870983615`*^9, 3.7609896376034575`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"98317498-cb1d-43b7-99c2-e4225af4d068"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.7609895925643344`*^9, 3.760989638476638*^9}, {
   3.7609902950426254`*^9, 3.760990324323333*^9}, 3.765631992379418*^9, 
   3.765736129519422*^9, 3.7657380330361533`*^9, 3.7661624343384333`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"c11b2d7c-4cd0-4002-809b-e17e7cf45f1d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"BHolo", "[", "Rep", "]"}], "[", "mu", "]"}], " ", "=", " ", 
     RowBox[{"BHoloTerms", "[", "mu", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7609894031573763`*^9, 3.760989425493103*^9}, {
  3.7609896513762455`*^9, 3.760989666391651*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"eb6f0383-976f-4ee0-bd39-9fec0753b368"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         RowBox[{
          RowBox[{"HoloraumyDDTable", "[", 
           RowBox[{"Afield", "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
          " "}]},
        {
         RowBox[{"HoloraumyDDTable", "[", 
          RowBox[{"Bfield", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", "2"}], "I", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"BHolo", "[", "Rep", "]"}], "[", "mu", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"su2a", ",", "su2b", ",", "aa", ",", "bb"}], "]"}], 
              "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"su2a", ",", "1", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"su2b", ",", "1", ",", "2"}], "}"}]}], "]"}], ".", 
           RowBox[{"(", "\[NoBreak]", 
            TagBox[GridBox[{
               {
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{"Afield", "[", 
                   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
                  RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]},
               {
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{"Bfield", "[", 
                   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
                  RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             Column], ")"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ")"}], "[", 
       RowBox[{"[", "su2c", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"su2c", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.7609892307433195`*^9, 3.760989241712374*^9}, {
  3.760989673919126*^9, 3.760989842446447*^9}, {3.7609900045074625`*^9, 
  3.7609900292523565`*^9}, {3.7609900887903247`*^9, 3.760990096411826*^9}, {
  3.7609901304761996`*^9, 3.760990186666007*^9}, {3.760990229649599*^9, 
  3.7609902311658225`*^9}, {3.76099026294878*^9, 3.7609902641787977`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"3846799f-2fd1-40ac-b0dd-c22ed66df588"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7609892475488944`*^9, 3.7609901913779607`*^9, 3.7609902320908937`*^9, 
   3.7609902646408415`*^9, {3.7609902953097253`*^9, 3.760990324364471*^9}, 
   3.7656319924412537`*^9, 3.76573612954635*^9, 3.7657380330941687`*^9, 
   3.7661624343942842`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"9e7f2b79-dcc4-4dbe-b87e-2950d5fb16e2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvW9MG3e+/2vdq590H8yDy0MeIHGFLPEgUhQhS5coquABUSIkiLZCKGlk
mai5Jjq/HODsLWyPAqkayKpxdVuj05j+NtY2Vs7GOSej7Nbpwc3BTUNWOC3u
xiigrNNA1zQ4xRQS5CATTIZrz/jPd/x3xp6xx/b7Je1qtzUz46+/8/18vp/v
5/P+/F+n+n7z//xvKpXqt/9H+L9+0zPU+i//0vP+2/9n+P90/fNvz+j/+fS7
R//5/z2tP/0v//ep/z38DyfC/zn1P1SqyP/eAwAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQDLbvpnP9Zpa
lUpFHTF7dkv9OAAI4s3m9AeN4Vmrqmvpty4EMHEBAAAAAAAAoHC2fVMXWikV
S33HuCvAlPqJABAG4797vrWOnbqUWvfFPAIFAAAAAAAAAFAIzMt5y1lNNERQ
1zpyxxdCjACUEUzId2cEgQIAAAAAAAAAKBzm5bz5tFqFEAEoa5iQl+5VUwgU
AAAAAAAAAEABbPvs5zTREEF4b3XNE0SIAJQpu4H5L3QIFAAAAAAAAABAnpBa
BCqq9dLMBnZVoKwJ+e+NxaZ0jWZoEokxAAAAAAAAACAM8uBVpVL30d5gqR8J
gMIJeCz6eAVNm+HBJuIEAAAAAAAAAJADJuSbHNLUxNIIjp6/9xx7KVAhhJbt
Qy3Rua060GN9slPqJwIAAAAAAAAARRNcsOgOxLZR6HsIKg1m84GhrS4WBOs0
zK5jggMAAAAAAABAepj1WUNnrNJAVXP82tMdbKFAhcEE5z/viM9yzYjDHyr1
IwEAAAAAAACAAtndmL4Qa2oAOQIlwWwu3h7raP5wevNNqR+liGzeG25+e+TW
YxmyWQJ/N2vjRTXqXtoLJUMAQBVSncZlT1b7AgAAAFQUzOrkQGP8hLWpl17C
CasiCK3MjPeoqaMjUz9X2S/CiQ3u7zbclb4fwY7Hclwdj4gdt3ggUAAAqC6q
17jsyWtfAAAAgIqBWbEPNKtwuqo0Qj9PjRylqtSLC0/Ll/Pm02pVXevIHakd
OX7dQU2P5emWpNcHAAAFU+XGZU9W+wIAAABUBqFV+1CjCjsmhRH1YQ7ozHMS
ZUUyocDP8/cnb5iNo4O92pPtTZFtcm1T+zv6QYOZvjvn20pzn/BjWPrahqY2
8rhhaGPR+V/XTBcH9e+0N9VGIlBN7Sf1Qwazzbm4wXNNmV9nx7UHh+9tJt+d
08qQo3FhYN7UDRUOAEDVIb1x2YN9AQAAACoMZuPbkXjrQ1V9h2kOegQKYHvF
9l6jimrst60UfMzBBFcX7t0w9nc0RH/lsOf27uCowWi+TtP0TYvJMPxPHREv
q7F96N9d/m3iT7cWrWfUqpqDxoevxd3xmYs26DTha6pb9ecvW/7icM66XK7Z
aTtt+bdh7cGwY9bSb4neK+qy1h42P05THLvzxNpzQI4qGGZzZqw5PvNRdwAA
qAakNC57sC8AAABARcKsO8cOx/MIVM0fOTd3S/1MgAn+/Y/d4f1r45B9tSDP
hfCmWOet618nbE7PWjCNaxjaWJy+OtTeqFL3jM+ssHfd9k1daI2cBzUPT68L
vuduwHNrpKMx/PQdIzdcac+P9nY25unwZ6iW4cnll7G7tBlcyUc93JcIeele
NaWiusbdLyQ98OFn0agHbD7ECQAAFYxkxmUP9gUAAACoWJgdjznR+1DVPGBf
gZUsPcE5U0e9StV0xrac/8/BbPkeXIt4Zaz/ptEZaNezdN4b/48CT2zDRymq
fWzm55Woc6VS1fzWvi4wdhRz/BreHvv6p+y3YwKu8Y566lDLW9x5fu37jow6
20GvVR/+FNX2yay0UaydBXNnfVyRo3Foah0vAACgUpHEuOzBvgAAAAAVDeOl
exJHqVSn2YPS7NKz5TGfoAr7OcLO2O3Rt6P5nw2/GaEfbQjPLOUyMOsbGuLh
o07LkqC/DvnvjbWyj26YFbLb5gWpavrs2c6Tos6t5BUxzJbr4+bEO3DM6E57
3gQAAOWOBMZlD/YFAAAAqHB2N6YvaBLFBgeHHKuIEZQcZoXuqSnk53gT9E6O
tNZFd72t522LYmWZmJD3hi5er6+qOWR6JOB8hdlZtPaoKXEF/swzW+8+9i51
nZYfsz7n7rrjXCSkJbm6Jj9WVtNDI58GAFB5FGxc9mBfAAAAgMqHl2uNRAKF
8NJlOMLGbMbdr/P4OXYD81/o1NzxCaXWfjbj2879R1keI4KwotH4Xrv5Y1fa
UtH0hHx0L/u4naaFXL7ZziNTW22kLiBVqrog+OkECJcBACqQAo3LHuwLAAAA
UAXEIufYGSmJ2FlPw3GrsBxMHqQLp6JaL0zl6cJFHuS1e/xg9KhHSNFofKOd
QUc6MyGXIZK5Wnd++lXOb/zaaz0V+Xo1Z+gVSWUGk0pvjlu9VfQyMKEXT532
P9P0dbPRYDD8frjvlFZ7oqNj6Etv3vMHAKAsCjMue7AvAAAAQFXATyRQtU0s
IJGg9GwvWk5GvBTqlNUrqjHUHpGQyaI+Y10sLG3y1fQwl1UqqGh0fXqYO40/
NOp8Keo+nBeXo2g0RszRrT9meSLKV8zFm83pD4ig2RGDS9y3KGd2/bazCQXT
OCIkxQAACqcQ47IH+wIAAABUB8yW8+K+xH6gsYeuprNTxfL6ofFgTX5n2czG
/bFYrag0rZ+Zn6zd9UKLRnfdxgOcA9licAVE3Yf14nIWjcafKlZnmn/SbAZi
gx/dIleVOkEosOYL4/V8Z9bXxoZAqKQYAEDxFGBc9mBfAAAAgCqBn1+tavxg
OmOHIFA04kmYgl2axJ/6HL9rSexwdTe8whWnM7JMaxuEFo36bfroKdO+Xtsz
UfdmvTgBRaNRtpcs77A3aje6xbmLuYilm0aR/PrlwKZjMBolECgpBgBQPgUY
lz3YFwAAAKBKYHYWJtqIxOJmw/eQ9FUAWwumTu4QV7BLwxFatQ8RRfUnzB5J
fk/WixOYdu6jtfH5dPzaUxHVK8yW+w89PWa3YEGq3QXToch9RBeo5n6UVVtv
IpugGjWsYmOrEuq9AwDKgLyNyx7sCwAAAFA1vHCOJs4FVKrfmBZelfqRyo6g
1z7a0VCn0X0+u5HDyWGCz1xf//nW13P+7OcvzI+WTjalU5DOEsHW94bm+OaW
ahyaEtJJOjdvHpsP1wpNO49KRHEc0E08yPFlC0FcQaso1hyDTUT8rNo0rOLn
aBAlAKCCyNu47MG+AAAAANUCs27vr03shKpMzl0aiEPnnGJK685RLnGjUW9b
yfpBe19NHs7Jttf6buIAXMI8yTc/2d4/877tJ2HnKfz9tapWo/vo+r0FX6DQ
6tU0RAta5djJJul1VJmGVaK3uEp12Oypom8OQEWTp3HZg32R/voAAACAQtlZ
oc8QRj/vpkjVzO66/bexMewye4LZPpso9K7vtv6UZagj+kzc50adIvpL8Q56
VNQxy2JpNnfxTlVJqFu0gwYz7Xgw/9NGUKKZFnAZWtiLi1ayys3WzOg+Qpyg
qjSsEnOV2m+YRRNEACqDPI3LHuwLpAkAAABUDcyS9XgidS/fpkhVTrwrU9jr
GnNuZ/FNmFfT52PC0EeM7iyVHSEfrWc/JkpdKql/X0ljPszazFh7moZ6CWqb
Ov7nqNnm9PgL8+d2lq093PfV0stSPX6MpHqc6tGwYrZdhv3Rb9006Fgr9fMA
ACQhP+OyB/sig33Jwu4L158MGTHZl7KeRwCQD5h1AIAEbzzmw4RZRblBPuw+
Mh2KHq/k6sIc14wKuzDvO7I1koifX4jaoBHxigi5EhvkJvSzY+xtIgiV0Z3T
6Ceml8XWx8Z5s+l4nzv0bjC4pE45TSo6oPaNzlSHtmfQY+6Kfele2idDKi8A
oATkZ1z2YF9ksC9ZiAdz0oLEBiAHmHUAgDjERoC1geVfbrAbWH7kIphbDsj9
jZglS2znn+tohvHSOnX0s93W5Wwf/cXet1/0srw9a9hPnK4cMi2UvIySebXs
vGHoPZzbl1OfNs+/zO/HimtZ5YrS5EVS0cG+i07B+thlDDlXIUoAQOWQl3HZ
g32Rx75kvi32a6DoYNYBAGLsPDK1EcKFqncsS+VXfMwE/vFg8t8vj5ztblFn
XNsaWrr7Rj41f3nfsyb1WQApSpCrq5SI7vNc82gB1yRglq3dxJeuG55WTLOK
N8G1H10O2mwY1Gb+majWSzO5OkSkv3o8JUZL+yR/9uQTtJZR5wvpb6I0IEoA
gLzsBp6vyh7FTkM+xmUP9kUu+5KJ+H5Nj1QuUFpigbISRwmYUKjkgUkAqoek
coMyOzEMrbpvf36uS5O1MjGdq9B0rM/wJ8eCXyK7S2whcxQRkIXeubrPR+Sl
KLEeAq89VC51xNIRCvg8LsdfLJfP61uTPLr6TvNCPr0G4+2zZTneSmSccjOo
UooOmNCLp07bHw2D+q6wax2JpI2Zb7vZnmIyiRKE77jkmrphGovckpir6pau
nr6Rf7s2+WDxRYX3moSfU63sBpb/NmUNz/1325vI4Dy3qGi6Bo3W6cW8ggZM
aG3hG9psHB3Uazl6h4w3ppc2018sL+OyB/sil33JhJgoARN88dwnGWty9Ioo
Z6p+eBURJdj6wdhWf8DohgEFoCgklRvUHDQ+LAfhQibkf0gbzrQ2iA0PpPhl
TcfPTXz5wFvYYQ4hSkDpaF+2a5GF3mdt/qxLXcIhE+7I7fptZ8l80Fw9GRVA
aN0zdVmvIXzm/JoIxL04eQpHGR+tI6dbBRQdhH5xXXu/PfISNbb3f2qdmnHN
3rNNDLY31Gl6r80HXkktSvAm6HtgHdXxgnpUU/vJE8k7JuqgzkC7fOU+vhmA
n1N9MIHF6euG3uQdq7ql66RW+3YLz5BRau1nMz7BmTtMwOu8adAdTG8LqUO9
lrk05i0f47IH+yKffcmAmCgBP4IjEWzwdvgTM33XvbxZdhtbKan64VVClGB3
wXRIpdbR0E4DFQqzG9pV0uxO6m6Q83S79HDxgVOiswdyQDW06kfzLUYgRAlq
D5sfZ83FiFeDCkjbyMeRSyook1BaKhRY+zUQkmn2MiEv3auO/6g91mXxpz1y
e3HMj5bOOmJsxWXqKgwm5Ls/rmU7oal7xmdWiAHbDTz9z77GWs0546WO2Pct
PMUo9Kv7+nstFPGuzS/5XhC646GAf8ntsH7a3x4TUKeODN18tCHXlCsZ8HOq
iWSDRTV1Dxr/ffL+39fIic1sLt76nYY0SJ1mz07OCbIbWPz601h8gL2y5UvH
TESIJ7Dsnv6Lqa+NfeGOGd2byX+aZ5QA9qXaogQktU1d/zpx+wdfsIzyTaWj
6odXAVGC7SXLO6VXTAVAQpgt39xd+spYn7a9KbGxpRpauvSDF03X/qvgBj2F
Pd2qrbeGWKVqfmtfV+wBV4b4ANXUfnpw1Gi20rcdztmYVmFMwNDpsFnNxtH3
shQqJhOVL7h+yz4duZzryVoO14UUJch1tvJqeji68RJQ6C1BLoFkxYyM13qc
yt63sUC2POYTsSfPywzJ7sURzSlYm54rIqRYmJDvzkgrOxHTy3ntrjvOEc3O
ChYlCP08NXI0/ONSLQNXHJ4X2V+o0C8uy29bolOhrnXkjq+iAgXwc6oFJvDY
FjdY1EHthatfZ6lxS2iARNfAHMonzMsF63vR10R9Yox+6E99TUIeS3fYhFBp
ElekySWAfZGb/CoOni0t/M3lnKKvDHepUw9UGjpGrPfcnuVsCfFLC65Zp+Mv
FtPF91IqOinNu59OPs6xjFceVT+8CogSsKds+w2ubK3GASgm2z7nVbbsnWpo
P0d7RL0a2373rYx5gAlqNWHvIafnLAtJpdYqVadFoe0NQqvuG+c7EmmZ+Rz9
MwGva8pqHOxuEp2H0DzoWM18YUKUIFeYhT1G5NjfZ/8lxxNLoEsglRf32ms9
RTV+MJ1NciF6f799SHPi+pL4/TMxOHm5i3EvTq5kbubV9HkymSBXdYlCYfx3
z3MhAlXzgH0l/Td4/dB4MB5AFDBXsxANEdS1DtsWAwJ/mJ0Nt1kXdcAqLFAA
P6cKYF56bL/v5iZwpHzmltufPcyW1GtVlb3knwk8sQ0f5a6u1v2v2YwXj7U7
TBXck0aXAPZFbgpUL9zdnP6QP6/CM2vMKW7xCQWW3V+bh9p5dTEFdpasDKpr
eEsfJWBP2YrbZASALOxuzFxqJV5c6phlUaBtCj27Z3iHO72OZhhOuxaWnvmW
Pe7Z6clr/zasTYoe1Gp04w5vkdeETZehjXiGnJL7JYEJ+e4aumNZ+qrG9sEr
2U5khBDyL3x9dVQvoHESh+bCdBZVZEKUIFeYJWzxe2O/u5BeEnEZahEnj3wN
6rxSK1OJ7Bnrmg3fC8iwX3MMNuWpAh13w3IqNqSjCBrUydIEis69ycDOE2vP
AW6UGwcmVzNO15fO0ZhPXVDfk62nlp6afHb6Ib9jJJaDre42z1fI0Tv8nAqH
CflnLf1sqr+qrqXvD99k0g8k2Vkwd9bzrU6Dll5Of4PAnFnHvcK5Xivmma03
sompH3WmvMD5GJc92Bc57Us6Cu5xsG7vI/NFVTn7L2eCCb14PBlza2MLc1K1
WvVRTcNb8igBG+jL1WocgKLx5onlGN9wC8s0Sxjxht+M3JhNX2TEbPlc14da
63jXV79juPeseGvCm8fmw2QqgYQy5lKx7bv3SfREJhJcvewQ4nEJhgn8w0mP
D2lbs4ULqE7D7HqWmxKiBOkSO3mwHg6HIJ3kFZuey/sWsyzzflZJ1KV2fLYB
NXXC7BHgxLHdtPNLyUz4n3lVwRejnzUZEZJseIsJt2fnZmvWH5Tx0rqYw5K/
pjez8/Ta8RpVzfFrT3MXWaf+tX96pDX2bnWb5iuhRzP8nIpm2z9r7uWE8sLW
3P6jMFXcoNeqT9pqqFRtBleKmEAkZj411sEZBUqt+2I+a3IOs0Kzb3taEYy8
jMse7EuRQ3wFRwlSq+kLinJs+2Y+05Jp9tTRYduTUrTyVAbVNLyljhJwxXpl
rQcFKouU1586bs0tOBVaonsjO0Gq9bxtMceWljgUSKwJI1M/FylQ4LfpeQkN
Ep0LSAXzct58OrpRaXh79HaWpXI34Ll1XvfuOfOM0PNK5qXn1gcdmrO0N3LG
whYj3DCNpcoX1HeMu7Iu0aQoQa4wSyLJM6nN9Pbawg8LabJGY/mi4gI4rxZM
v4k9vwS188zq5EBjrbCDnuiBS15eXDyfv7bN9Ej8REyUz8hZNkpUl0g0vMWE
WZ8aaozOwJoeOkOxAUtCQKOAlujMqmPoICvD8rZW//747cdivZ3YNod9YN0N
b9nXHcDPqVwSQgHZqwCS/4wvrBcjnQ4/E3CNd9RHP6AZcWRPqWPWnWPs6Xfj
OUealKf8jMse7EtRZQkUFyXYY90tmnfCVUyvVWlU0/CWOkrAFuvVnZ9WVh0G
qGKScglynSmzBOZN3RGRrtYLU8I6GaUJFNScnHiUqicmOcy2c6yevG9xjV8O
Qj87xt5mVyRK3f3JvRyDGZeVE5LYzIR8fzXpD1FZHKTQmsfFkVO6kNw25kjM
JrIOGvW2lcS/iJxQ16dzt+Iegri21OTeSkSZTFrYqBfVemkmS80F8WmupCKv
qfTr9DCb4l5zhl7JI1rF7b9UWTJ1pWBn2dpDvjSU3uaX7WZSQ+p37eu1Pcsy
o8QJaGSAVSQjR+vQ8PSvIq9BpN+ojhhc5ZW5kQr8nAolUWO4v9twN50NYkL+
R/cf/CM5UMYs2840qZI5OORILgbiuQq5vZGQ/94YWy+pPm7xpFtP8zQue7Av
MtqXVBQYJdiL7GTnv9Dxj7zP33tejYtaNQ1viaMEKNYDimM3sPAfQ5G2XLVN
XSPXXL/kVpid/7wjEiPoGne/EPxGpzlKoNrG3bK3Co9bPeXtd2KK6CqhimfM
a/f4wej3aDpjy1IWRiZ0SaGKRqag56h2JLMOeKWgbPQgbX5pwgSJ9Is23cZj
sSlVwN6K+yHSy+CnJbanEy2DGX4Lbugio1PfYZrLqwI9XkcvqwlLia2V0Y5v
a2Z0X7wf2ymr93Xmj5KLQ96iBMkrTF4ONk9htabXlllIoRyAn1ORxA0W1dZv
fZQ+YWbz3nAkjSfJ6JCWK2GK1We+TJZFDXlt/fFwdF2b4UHWPMVtn+MjVuyX
UvdYFzMU++RrXPZgX/K5QJ4oM0qwF5Htmr5A9u5Uqc9YF6svRaqahre0UQIU
64Gyh/HSPY0RC278QeTLTJ7xcdR3mhdkzv4nD+lUAmrqi0Wi0EDMLj4uTJRF
eT58ZcvZWNcZaYTTifQAlar2fUcWiebgnCmeLMrbWrLnI/suOtPGheLaOCIl
cZjNB4a2WM/Fjs/cQrXlCTgXTlS2G1s0yt5SWJFp4l7ROp2a7j/+Pb/OoMxP
1m52eOVWFCRmGkshyn7FhC+inqMyV6yARlriKc1xcjV3S/vcpFpaTZ9tVTkJ
T6KBn1OBMM/vnedCBFmXykQ5P3m4H/SYu1TJpOy7mfVZQ2fCQ8iqphtpvzh2
gjWguYQL8jUue7AvxUOxUYKUaRmZCZ/Pl7Cxd0mopuEtaZQAxXqg3GF2FiYi
DQNq38vDiDDr9v5a/lKTadsoFck6bIU1O5OMbZ/9HBtBFbmLJ/duaY9GEvkJ
4i+eETI9QJVN2CFpwSe9sogM9f59ozPp1z7mR0sn64yJPrNmdhatPXlmTbwJ
Ln87rj2gUp82u38V7pokVKDDDmovLbSKPPbTCK/TSUO8jj4vZSoRJHsFCtT8
TEu8Kify6+w3zGYb6Lg3XogoQfIOKNuxZjZ4A66QZSo/4OdUHImYdnO/zZt1
qYz3FCAjb8kVTOmW+qCX7iPkcjIlyzEh/8Nb4wOxfmqZCh/Iv8jbuOzBvhQL
BUcJwpNg49sRDelGZipvqVyqaXhLGiVAsR4odwJuY3vYEGXc7uXghXO0hb/W
yLz7SJYuzKuDsMTEiy9EbygI/yFdlIAXIsgtDS2YJC27A/32dLVjnCdJtWpP
vpVqR94sWo5RWZI245s7cf2qWEgZnLqW/j+5N3JbGCb4zHXjfEdDnUb/+Yw4
nyre55FqaDrQIKxahAk8poeOFOrCJeroi9DNk/D2i3RHSYhLmudeW4i3qaBd
OROYu9Z/JDJYkZbxtz15vnS8AS8galFy4OdUGPFeyeruCXcOZc74YXSExI6P
1e7jJxLyEmZ2A+7POsgC5U6zJ9kybvuc/34h0Vu5VqP71J5LOZmlEOOyB/tS
FBQdJdjb21mhz/Dac+Qp+1C2VNPwljJKgGI9UO5Ej+bzSall4ZXfFsEfjsjt
kzfLq4OwxISeWnXsRianenPKX8b8B5akaD8vRJBvemRakvMx0rgiTOCpw9ij
ZvMqX8dFn+L61Wy1aVa1+XjhasNxq8haTPbPQxuP6JHfRO1YQ+egeWphLW3W
Wiiw7P766gWtppbSnDJ8+WhDdK4Fl6bOBmE217nijsil6O+9gTS/JhP0zdk/
00e6hgn1MDMTL4FvN7rltl/JifTlYbl4czV7lQT5NimhnoIflin2WZ50wM+p
KJjQiq0/ssGnGvttKzlXS6JpCH/Hl6JURux/Gf/d87x2yYfHnJxo4faaZ8Z+
44rhve6m+J82HNaPXv1GRLPgAo3LHuyL/Cg8ShAX3EjYw+axGSn7VSucahre
EkYJUKwHyh7e0by6tff/s3nE9SngVbhz5F8RnJOkVHklNDgIrdqH2BhB68i0
X6Q0EacIwcFP5+CHCFSN79lWJNv1kD9ZTcvRI2yqZ9hvuWT5anrW5XJO0Vc+
1GrqGjo+oOe5vMpt39QF9uzpgNZ42+m8c3XwCJVTlOb1Q+PByG9VgHTbzsb8
7fH+jpg1q23q+KfhS+Nm602avmk1j18aPtsdaQFJNbQPjN9K73TlhnWDiTjJ
zgvPpLH3MHtTdUv32dgd6ZuWy2OD2pbIcNVqdAba9azQYjtmyXqcvU+69mFS
k5IkLON7Kh2kM5PjOJsQJeCJlTAh/+MHC+Lid1LAV1Apdl2wZMDPqSjivQmy
qgTEP81TBakfc26Ts4AJ+abGOhpVJA2t2sGRwa79vH9Yc1j7P3u6ktr1NhzW
j3xmdSzkaseTDgmMyx7si5woPkqQmgebQxq3sqim4S1dlIA7uUCxHihjko/m
VZmaFGdm2zlaz7+CjP4wWaTMIl6/SOon+t7QXJNe3jkHzI7HTNT8E+kczAv3
eFfi3wjqZSkcMtKyv8/+PPTiqdP2R8OgvovziFq69ENG6z3PC57zFvZtvrk6
2hfxmsJ+4PAX95dz5h9vL1pORr5FodJtb4JrP7octPnTkT6d9mQ7ewYVfkrt
qb7hT8y0w/XEX5A3tTbZ3zr0pTcpczVyhPQNbTaODuq1b3OeW1P7CV3fB5ev
/ZfTU9gdY8Q6c+XXCFv03WJ9t2NkV61UCJEVKvYqZD+OJ7IOagcdROONSH1N
KTqhJJV4ZFb/UDTwcyqJ3XXHORExbea5vT/hIPBfqxihVfet8f52fqwgPWHj
cjy6aC/nKHTIhVTGZQ/2RR6UHyXgR8BUpRqoElFNw1u6KAF7UlAWjhYAGUhd
KkSX9Ka5RL52ITdJDQ5KXu0b3nG/Fym4EKtdvBcx4faBhDgAUba5vWJ7j3C5
mnrpJUlHM94aKXzXXtl+qQgxL6Wxh/biIDKF117rKdbRLVLJXqxGNU5+Vb1F
hthrZ3VjiJ4Cah053yLRg/rD5sdFt9NJUYISNWsuFPg5FcTOgrmzPrLkZCsW
ixNrkRzl0PD0r9k+Hd73Tk9eH+3mJfupqMbeK9/OPvSsSVwBBOOSi2LbFz7K
jxLs7W06Bossvq0cqml4SxYlYOWUMzYvA6AcSBclENkcPKXIXcYoAU9JSVX6
NogRnf9IuFR83mNSV9nmATvntZEKzKyLNTApcaf1RGerItRKv3QZjqjSS1dV
PTuPTG21kXo9w/dFOqZNbobYPDyt/FpzIn0oixvDS7/hRT9YScPil+WmLlbl
GSWAn1M5MFuuj9nAdBbVWYK43g5nioSs4WTb3OifiY+fCwXGJSvFty88yiFK
kLxEqwpQ6Co3qml4SxUlYH2P2lKcUAAgGTyN/SgimxQUM5cg+V4iAxqSE23c
LLqtA7Nxf4wQd6o5fu0p5+cE583dieJNqvXSTO7SUXEwPloX3U3VHDQ+lLtO
LHbik+McqvqIpf4W86AnuTio1K+PIOJKZSrVfoNrO+12IK6bwc1rsuKJPVCT
viyX2Q3t5rhi8mJVllEC+DkVRLRSmDpmWcz9cyb1MRRQoZDSJ13uLSqMS2ZK
YV94lEOUgMyrjM3YIjhFiqCahleKKAETCol1xblivTaDK02dVsEXByAP8ppp
/Lz3yGvc/ce/iyqKS9UlkC9KkNwGscSHodHFR2zefmiJ7iXqJhIygIF5U7ds
cgQcZE+K4sR1o18KJz48oqm/9Z3mheL5cMlpP6VOxRFIXG8tfUoAFyKoP6rt
jibnkCKHkQO1RgkGObS57L5Lm1n1jgbiHW06dnbksxQRD5ZoCDFOyaME8HOq
m+jrLyTmsxt49AeicqCudez+Ro7FO95dkXQm5N6iwrhkoCT2hUdZRAniD0lQ
vs1oRFFNw5t/lIDZ8rloQ9+xaEMWStN1zuzwrAub0AKK9ZjNRfunukhDk1pN
7zWJGp0DwCe07nFcHdUfjvX0adUOC5/GEZjA02+uXuzTabXa3qHx2/MiO+8Q
5cAxZNt7pPRTKK3jHVsDRfVZSGpeQLWPzaxFaw2eXjuecMxqNCPf5nLM8mDT
ZWiL3qFYtcbM5gNDWx1RVQGifTGojs/nJZGpEkpSpXzJZT0Ekujdpu6xLhLb
ASbonTad0VAHdBMP/FvRmmuiDSJ7HipWjjXp1i/C62ukD1rshW1qPz04aojI
krMq6P/U0VTLqqC/f831C7kMpKRplWixgp8DOKI9DQ+NOnOUG/D7GLIt/HL9
rMzGtyOapMLDYuS6w7iko1T2hfcM5RAlYLadY/VJ7qsSmmsXgWoa3vyiBEzg
8S22WSql0Z771Hzd8nFvC7sqsv3Bc8/p3MV68f5o0aFpHJqS/FwQVDlM4JG1
v40K+6itp0cuX70eaWBXK2IaSwB5Nh1zDmTrrJ2ysJW2K7rYKAET8j+Y0BE9
JdTvTszGdhY7HstxIsFTPWDzyXAIQIgSFNZDShS7AfdnERWsgvZrlUPUo6a6
TfOlUNyV1zGQid2Ahx6K7Fwodffo9amZWL/OWkpzxjTtZX1hJui5xjZwp9Ra
46Tzr/YrAy01+a+EkfCpeag9mjlQq9F9dP3e47Vgyn45sg2/MdLRyF91UxfG
EmhFws8BCaLJLTlcZSYwZ04YKUEhgj3GPz3SmrQbkMuEJQPjkkzp7AtJWUQJ
UhV9c78gFUI1DW8+UYLggiW8DFJt/ZZZfzRRkNlZmIiesQl4uXIX66VKupVt
u2SgTKLWnDoydPPRRmwax+SJBE1jKUhpiqra12t7Jo+fmOp4y9dMQRDRPpJC
+sAym0uOy/r4iWRks/PJPV88xLHjsw0QMYIsiYK7gaX71ssf9Ol6Bw1/cvrE
BUkIUYKG49alIrrzW4vWM+rwJqLftpJHd+xKgvE5ftciQ+sKIQRcBv7bWlbZ
lUzwmeu2ebTveCTnv6Glu2/MfPsHH2/bzoQ2FuwTI6fbmyiqqePsRYtzJa9B
3va7LP0tseNU9TsG+4/ZO7cxgSe24aNUYtVN6dla/DMU+DmAJNpUNMvKz4R8
U2Md8ahPXUu/dSF3ckhSpCinCZMcGBeCUtoXkvKIEqQo+qrKRK6nYKppeEVH
CZi1mbF2StUyZF/mzV2ia0Ntvz1rPFxAsV4aSbcjRnc5ZHeCsoDTE0g9EiKm
cTEOi7dmRvfxaxEbP5iWK489pcqp5P25tr43NNeosvsnoVX37YlBsp20+sQY
/dBPfJ5ZnxpqJIYxUw/o0MpMJL868UGqbdwtprNMYlmiTloWi5uGEV14D+jM
cwW2yi5nOIe2vmPcVYpBSNm6iiqWqRJCv7qvno29ZZRa+9mMsFgcE3CNd9TH
SqRXbPrGUg41/ByQTLQpgEpzzp46pZmXnlsfdMQ1N6i2fusjIWsUszo50Jik
R6BSNX/k3CxisAjGJUpp7QtJ+UYJag6ZHlV+oLOahldklIBrQFbXZniwmfQS
kVpDOXYfQjoIb7qNx/hLZ3XksYBiwB09q7vN88k5rKS+n+yb6JiObgJZTxCC
HnMX726l3+OE/PfGWMkmqqF9wGi943Q9Wg68XJ5zzU7bacu/jcT1IjjPq+n4
OfPdpaTTGWbdOUZWMKcv5yQSQeta+j7/0jKoEW+CmY3vTLqDNU3Hh28I8gAl
htNkKF45jNLgdPbqWkfu+Epz5pUSZyOF/sBekmyIsHTrBFwqF6u4Hq0Bl9kH
ywj8HJCGhOBAQ0e/0TrldM15V7zu+5OWS72t8Vy2Wo3uU/ti8sTJcMVk9WOW
g0OOYlWzxal247KnAPtCUr5RAgX4lUWgmoZXXJRg6wdjW13aOCdfayjrxBbY
QTi0bB9qKQfr+WrRfsWgFK7YF3ESkQPu6DmtNI2IaSzBc3jpHl6QQOzRtkhS
8qUVsZpv+xwfdTSkHKbwnvOwftRse/CPdBtzZsdj5reP+o1pIekVYEK+OyNR
OSnOBwh6rfqIs1/ybAqxhFZmxnvU1ejLcS7c/m7D3dK5cKmawyWu2VEWfGVR
quMzt1gtPmbJeryhps++llyPWdx2EvBzQHp2A4tfjXak1AdEYcU3phcFB5CT
uiVGp7r6zJc55oxMVK9x2VOGfSEpkyhBmmwoZfiVclNNwysmSrCzQp+pUTX2
0N6Ut2h33f5bor4u28QW3kGY2ZwZa45fVanWM93vWEKq4g0tiO1Fy0kqfbie
yxGNI+sWgDuuIpClcx+JcquqmcDitNU0NtirjaHrG75kNFtt37iWs/pcoadW
HT/SctzKX55SQwS7gfkvWJW2ujbjD3KLSEsPs7l4e6yj+UPZKlMUyea94ea3
R249LmkiaJKZk3uJKCuSmo+o+2hvHmKD20uWd1R1vzWNH+ebtaZBx5r0z5we
+DkgK8zm0vR/hM2VPmqsTvUNf2Km7y6sZa+s2Zg1dGSNhudE/t671Wlc9hRi
X0gQJVA21TS8IqIEXAvR5o9daY47+eLP2fIwd/22s5TQRu2cvVYV9LLIDfPz
5MBbhS3+0kG9NTD5s1LWOWXC1cK3TSykNghmntl69yUGs37MuS3bWHLHVQkO
6CwLMkt4r08P85Mby0ahPROpuk/J2o/Mxv2xWFOqmu4/PPJ5HJc5aQJKrbvm
KVmfI1CWpBjtEgjvKxKunjdO/o3V2BFubGpKqjfosS4XS8sNfg6QhU23+V/i
YXBtV0u6wyV1S9dJbQZ0Q39Co8yqoUyiBNvO0frkSYwogWQoY3gFRwmY1+7x
g6qag8aHaeTI+SJstYOOzHo97FZFuJBvXCwIFaBAAt5sTn/QmEGmmFm19RIH
RVmncYEE/m7WErcqTilccrf3co8SpOkxnaT9uPPE2hNvSlXbdPRwrOn5Ib3p
r8pILATlRIprgJPfvUQztRg1PXT+zdfTVWIWMesJfg6QH+aFe7wr5WipRvO7
//bjxwcRyiRKoIzC+RKgxOHdDXi/t9+iaavZGCk/vzCo12m1x7tOXV14XdCy
IjhKEHAb2zMcnSR1WMuaHMi1/um0CO4iFtM6FvEnAGSCPQxK33ovtGrrI/ac
rIiWLDDB+c8Jp5pS91gXUxMbpKeyogTM+qyBL0hA6BYygeW52W9vjiR9QEU1
dQ+O/9ntL257AlApIEqQhuCcqaOeGJMjBtfL/K+WTtU5/Z5dFsraz2FCL546
7X+m6eusm/j74b5TWu2Jjo6hL71Y8ZTD7sbMpdaUGAHV9slsMfsaAEVTvlEC
QWVWZY8ShzelMRBHwTF2oVGCN4/Nh2tVB8fdqUGJpDztfRedmRXYmCVLp7hW
DtFi6vpRJ+wcKBRWUSr9W8MKZwmcxoXAbD4wJGoNxMqAF0L5Rwkim//vp8Nu
8E2LaVTfIrjOh2rpvWSmv1nwV36IG8gJogQpbHnMJ8gXkTpmWSzEJ0njF8lf
jh2nvP0crswhBeEpDUB+GP9//y4pBS6MWm/xVPlKAkjKN0qwv8/+i+T3URxK
HF4mFPjVF2HRfWMoJnomQedEoVGCXc/1k50nrrjTtBjj5WlT+0ZnMguCceI/
Aov1ODjr2ai3rQj+EwAyEPje2Nn+T1/+lOrGvlm0EC2pZDu9Cnlt/XFxgGKG
CPbKM0qwG1j+m4M2GwbfbW+qVQmEamp/m6z6LOxwE4AYiBIkwfWLIQYkfTGX
iAtG9td8ZAvYpqHc/ZxQYC3iJXo935n18fUSeZjKIbRE9zYlTXBVlbYVAFko
jyhBOnW9TtNC+WlCi0bRw8tsO8fqo58XZYayP0be3s5rr/UU4SW0G91ZriOy
WC/+JxCJKhXM8+mLb5e4h0PD2xenn8vs5rxaMP2GuGVqNz0pYF7Om0/HNL6K
HCLYS40S1PTZC10+5GJ7beEbq3Gwix8ZCO/+T+oHRw0f9rWnJlY191keLEfH
c8dnG0hoqRW1iRqoZHbdxgO8WVflUYIk668q2FIzr6bP84ULs+/Hi0a5+Tlx
oQMpzpJ4VItLIAPMy0cTJ1PTCLon3IqR1gcKoSyiBElFWCxl1106PxQ9vEGP
uSv6eSkSyQqNEiTlaadN1YsjulgvfP0fLZ11qv0Gl3xq8yALyujzKLscyuuH
xoPEQVGBSbPp2V6xvRfb3BY/RLCXGiVQoMgME3j6zdULWk18aVS3aAcNZtrh
8sb8KCbkpXvVyXm1VMfn8/GGBfxfU9VtXcbiASQhOQOwuqMEO49MbXwvptAS
SMK9iY1w8coNslBufs7ugulQ9FklOEviUSUugfSklSMojnAxKDvKIkrANq7l
Q+loXzVMZyUPL2mtpEgkKzBKwDYFjpMjT1t8sd7e3rq9r0ZWtXmQlao4OGC2
nBeJitNCk2bTQXoIYcdg0hssfrg1OUpQNzwtQ8JEvoR+cV17v72BG6NajfZD
s+07b2ogJW3GpurgkGM19pNxbSziUOozX1aF2QLywyxbu3kTr5qjBFw7AJKC
C7UYL61T8y6ZfT9eLMrNzyHcS8lFCarCJZCctMFtdOMFmSiLKEFKc21ZnGdF
ouThZa0JizSJZIVFCZIi/9nT8PIo1uMyLqpDDQOUjF+nhw8lZnFNn21V2mOK
3cD8F7qoh1DCswPF6hIwIf+DCR2Xyt3YPmj+ZmkzwwAFvXQffxcR8bUaByZX
E38Q62lOHdReuPo1FAuBdECXgCD13L/gY+tEnjxH/THLEwVkr5abn0MKLRav
iSTICBNwjfP6gLAGquMzd7HzCUG5UA5RAi5pijen07YPq0SUO7xk1Z40mXgF
RQk4QeA4OcL+4ov1mOf2/gMy7NoASMCs2/uJWVzbb1+XchPPhFZs/VGBrwO6
iQf+kqUXKjRKkPCg1D3jMyuZX3Um+Pc/dqdUdaoah+y89SG05rppph+kyUMA
oDAQJSBI6btU6LF1iiiBQkx/2fk5iWALtd8wi+ZQJSa0bB9qSbJaVOuFKR9+
GZCJMogSpCrN1vTQK1WRSaDk4SVi2hJpRBQSJeB/i1zZhuKL9ZgVuqeGahya
knTXBgBJaNXWR2w9pS2DZUK+OyOtnOd7QGeeK6lIkUKjBFFFOPVp8/zLLMPD
7yAZd7bax2bWsDyA4oAoQYJUN6nQEkh+TpeqptnwvQJ0C8vOz2G2XYb90adt
GnSsSXJRkCfpFAsRIgC5UH6UIFW6liz8rHQUO7xE1Z5UGhEFRAnC07iX+BZt
Ble2ojrW1IqKbL90GY6gixmQlyRZquaPXdJ13WICc2YukZ46Omx7UmodY4VG
CQTB6yAZp+SBF+HsBrzf22/RtNVsNIS5MKjXabXHu05dXVBA2TUQCKIECVJa
OdePOgvZ+STldKlqztArO5I9bf6UnZ9DnCVRvXluMYA0kJLFsd9EuSECGCnl
oPgoQYp0LU9BuuJR7PAmEslqD5sfS1JtVkCUIFb/G32i7LkNXLGeiMg2G2Av
iwyWV4v2KwalcMW+qCBFOuXzZtFyLOECFqy+RbLzxNoTDREI7obMBH2PXa7H
PlkW27KNEqRvIFVe6tAp6dkcqBouK1JcgyNGd7Wut8lRgka9baWAy+2s0GeI
d1wpiQTl5+eQCpBYXkpJmqYGCg4R7MFIKQmFRwmYLdfH/GObakok2FPs8JKJ
ZDkC2sLJP0oQSRQmVsAc7cbYYj3hkW1m1TF0UEWdMHuU4SlkQRmNgeKUYYeg
EvJqwfQbYvCka1cd+nlq5Gjk9RARIog8j9t4REWdtfnlqKnnu7sqWaMETMjv
vm02RA4j9O+P335cwIl/muOYiDp0j3Vxp4yMEhMK/OqLsOi+MaSJfgupW5kD
mUlZ7PN14SqA5ChBYQGTpKOTxnMOaZX586bs/ByIEigCUrI4+nM0dHzkUG6I
YA9GSkkoO0oQemrVkU4Zpe6lvfkc2TChF0+dtj+GPcWuFrWqoaW7b8x8202I
d+2GlHkSpNDhTRElYLZ8c3cshqHT7U2Uqrap/d0h4417nnVRUyr/KEGi20KE
HJtTTv9HaExyd2P6gkZV12Z4kEnrPBNM0DfnuGEaG9SfjAyKimpq1/aPmr9y
+aTLI0++5c+TA28ld8EtFdRbA5M/K/KlUiSvHxoPJiYxddzqTR27N09vnjry
tuXvIgxl/OxbXIhgLxrMlyvQE3AZWnizRa4bbfscH3U0kO9E3nHmtD2mKbXu
i/lyFSdktp1j9dEvInUrcyAvu37bWf5kRJRAkqEIrdqHCK+oqZdeEnatoNc+
2tFQp9F9PruRY0Fggs9cX//51tdz4vRjlejnZHGtIUqgBNKECMTbLCa09sTl
erJWgl0SjFTJUXKUIGm5VqnUfbRX/Plaovl1Y3v/p9apGdfsPdvEYHt4Pe+9
Nh/YCSz8x1B7Y9iLPn9PeW1PlTm8PFGCm97VWUt/G0Vpus6ZaAc7vKb+lsi+
+FCv+TvhdjD/KAHPSajrtPyYTXnMR+sooZFtxv/fv9PUUG2fzG6K2ZkFvffN
Q+yUoxpazxgsX03PulzOKfrKh1pNrYpq67c+KpMSZlAcmC3nxX2JOdzYQ6cL
EkQ6ZYsKpwc8Fn3kRRUdIoi9jXId8RcnSpB2X5/frVJ9rfzcLUVBBHslb2UO
5CXuucWp4ijBq+lhUky0kMm89b2huSbxggtOE2JWbb3Rvzs06sxe17/uHG3j
1nlxlREK83NyudavIEpQalLNVj7FcczG/bGI7rFkxcVigJEqOYqNEjAhL93L
m97N/TavyEdkQr7741q2IDe5s9Vu4Ol/9jXWas599ml39AvUDU8rrq5PmcOb
SCSr0ZzuP62pU3cb7ItkEPq1/97vWf9c3T3hFrgjzj9K4LfpE1+lvtv6U+Yb
cu2AhUW2uWpuqtMwK1zxd2dj/uYQpyRPHRm6+WiDvyAzgYUb/W+pVK0j037E
CUAMvqR2+kZUnLnM3iCbZNs3dSHyDuYRIoiJactWM7KzbO3hLWsy3InZ+HZE
k9qtMI++52lDBOWlRZAOUi2zUE14UGRSogTVXN9F1r9HyDtgEpg3dSfecxHH
UpwIAEeuYrGE+5TdV0lBQX6OENfaeKkjFrtBOXkJSDVb+UjsJnSPNefsxS9S
gJEqPQqNEqS0mqrvGHeJnN5E56/0na121x3niMP0HLHZdHcIvnju860FZDTO
ShxeMpEsMm6tw7bF1AO1sOHuYUeXOmZ0CxIuyD9KwB+lrO7SpsvQJiiyHa3m
PqCzLAjOX4ntyzJOOTbV0Pp++DM1fXbkToEoCb8xQk2vLU1OPJdBmqNBdpzd
zdlP2qhUF04gnNMr0okVQRFOQrc85hMpeQR1LQN/XhKnIZA2RHBAN/FAXLaw
AkkkMKPes+xIycY5YHRX70+Y1KrpHctSHtsZJjj/eUfiKi2/cwjv3cSKAESd
qTHndrZD/lfT52O+l0j9BKX4OWJda4gSFEzIv/ANfWW0X8tWr6YQKfIdNJhp
x9+Wo674tu/eJ92k2crHEwj/0HcN3fsz/9DyAyNVehQYJWBC/gcTXPAq5trl
kyTjv3s+2hy8ecCeQbSVVwssSoVvN1qnwL6hGt2n/JN06VDi8BIpQNlS8hLH
hbX9diFB6gJ6HPxi70vELbJ1ZhRYrMe8nDefVosbma3FmwMablWuOTnxKF2I
IJq4ldvGg2qC9BvD7Ou1PUuZPMxr9/hBVW2b6ZGAjlyxjW3elp15bu8/ICB1
Nm/IYkNVQQYoE1yv8JozV+/eMvSf0mp1+kGD5ZunIkPNRNwvTsPbYw7RuRnK
g5x1LaPOF6V+HiCKlChBuXQJkQdOnz9GPlXw/KMTETmQEbjVhjP+OeL/Wwum
zuhNcjQpSEUJfk4ervX+PvsvAi8OkkmUdZCoW7pOarta0olVq1v1o3+4/B5h
tii19rMZsWkAzOai3RCNM5QqRAAjpQiUFiXYDXjooVbymLuxY2xKdGJnvPOX
imocmMwsVvXSORpL9BVT88L4vjyTdLqkuTCdS7ImHxQ4vGR2X9ZvnXh2YWNb
QJQgtGojdH3SJ2yzzy6kWC/07J7hHZGmk6yAzqR3xD/vQA4eiMI/WE87ezkB
akFtu5mQb3JIUxMpNJhc8OXG63G7CGYctpuWT/8poiuS55GcIGTv9s7V8Bby
loVdaMtZDW+Zp1JKq8qXFAVaUE7wNoyRqam3+Uv9TCUlXuzPzmhhBxNxEmnV
EUQfS3H1Wdzf5khJJd2nHE0KUim5n5OXay2nHaloiLIOVW1T16DR+t+u5ZTY
FRNYdv231TjY1cTraR5D3T3uFJn2tu133zLoDkZNX8lCBHswUsqg4CgBX3Y1
r6UvChN46rh8hueV5anztvXUEosrZ2/sQq7YImpetpcs76S8jPWd5gUBx3wi
UeDwEqIE2Vu6ExsBQVuAAqIE4d/8B2PiIKC+wzSXLn0ud7EeE3hMDx2hxEbX
VycHGrmRzdIngjhEkGm2gLKEHyVIs7HlUmEFte3m5asUSN356VeyteNYtnbz
biZ13gIXJciR/Zv58QKPrP1t/AjBIb3pr+UtREDCU6DNfCgJFMoyreWF2ZCb
RljhXI5f0h8G5iy9h2J/mUfmKilK0GlayHpfwn3KJ4O6pH5Onq71IdMCMsXF
wwTcE93sGKp7jA4BWXChX74ffydViIfLLrhCO9JEGJKv4F/4+uoF7cH4W1Ti
hokwUoqgwCjB7ub0h/uSpqRoxywUWHZ/HdWET/hkDR0f0PO/5vFMzPrUUMxY
1PTQGTKiWBLSuOKUw5OT/TikPx1W4vBGevZGL5K9LwlnqjgEafkWFCWIF2JH
v1+nYSY1zs4W66l6rMtpN+hx4cED2vH7Ikwns2IfiNUkZjOdTMj37Xjv4YaG
w73j31bOdgMUCvmmpEtYDc6ZOuqFtO3mn4gVjKzpLnwphvAuR0svS3n9rZnR
fVRemrfbvpnP9Rry4eSsKSsVifEviXI1KIyIGeZJl4tWVapAQv57Y/FE65ru
PzzK3X/kTdA7Fa28jiDS9EchRAlynHiSmk75tXUrnZ+Tp2utSFXwMmDTbTzG
6n/rLR4B/nD6woQUIq0qhy8ZzVb6z/bp7xLZg6aLg9pWfnZfXUu/daG0HXxg
pBSBmCgBJ9YX4dnSwt8ind1Mg+mmZUPHiPWea2EpW5rr0oJr1un4S3hyvtel
Sb5EQ+fQtQe+YH6TghStSlvhm2B3wRRLihK1YocHrTfd21hYaW15DC+RR5Gj
joDMuBC0BSgsSrCXXESc2mKAK9ZLE9l+E/S5aMOp8EhRmjMmcRovzJbr45iL
kMt0ApAOoouWqnbQwZNHiapLCZDSCnlt/fGZKAHJTyItySUHkrsBQS/dx3aB
bOszzwhzhncDS3ev9PFSCMILwmUh5zhlBrlbESXIA5RBUu8/lH5zRAvto++u
Wvtv08sZ06GY4LMH5MZK/Y7B8VMwjzedECXIdeJJZFBTZ23+/LZgJfFz9vJ1
rTEz8yHmEghQImI2l74xD7bH1SKphvb3r355PVEykAfhd8H+Y6mtHoyUQhAT
JUitkZcYtrn8zZnFFwXkYkePkLjrnbJ6s2TEC9/wJpOhx5ZIxdokymJ4yXLI
HDUaa47BptitBVmKgqMEe6zwwq2RDnLBHJywOT1rEePPFuvxIttMcP0n952r
F3RsJGV/99hf5jdEDk5U543jQL/9eaXtJ0AxIDpwJboYMKEN9/VI3rugBkZS
rx9ySwonp0zXjzolTm0ktwwNh/Wjf6Ad33nW0tyECfzjwaTlEs+tCi8dA+O3
HiqykQETevHUafujYVDf1aJmj4fGzLfdxKPuhnI8dkq9J7Plm7tjMQydjmho
RxSzh4w37nnWqzyJXblwBTUJpJb1KF+YzcXbYx3xvT91UHfJMnn/0ZLv+Vpg
JxT41edbmr//1TXjAHEE09g+9O8uf57LDyFKkDPUSbhPBWVqFd3P2cvXtYYo
QV7ErHlty/DtpfQH+ttrnr/aJv6VkCMIT4Mhc0Khd9vn/IKIHggj/L4Ybrnz
fRcIFGqkmKBvznHDNDaoP8m2i6Ca2rX9o+avXL4tBVp6ZVDyKEH4t9b2DX9i
ph2uJ/58Ark8mC3nxUSKfo51mNjGil6xw6v0bUPvYXY81K29n92dGj9coKUu
g+EVU6NBBNgFxk+kiBJwF1r3OMzneEkUVENL17tdb9WEV93B/3XTYjIYLgye
7og2lYk4Etfzc4nJU+AsakIA5CCaMxB5ZzXaD69cv3p55HRr2I8VLB4i9foh
9xkQKW/FIotIO1+IibcgvK0NczK1s1Rje/847fxHqU9SMpDILA0/56fWqRnX
7D3bxGB7Q52m99p8YCfafIc6ev5e5oglr97zpnd11tLfRlGarnMm2sFe0NQf
ka+kDvWav1NknKTaIer+OCRvJFrWvAn6Hlwb6sy9HkbmvNlRUDSMFCXIJa6S
cJ+kaA5YRD8nf9caogT5EXhg4OkLxQxWhBPtyUKFmW1WcqZBlndBqviAQo0U
E/Tej1Zeswemlq+mZ12RnO0rH2o1tfmK4FUDBasXKgtSIC7XOrw9a9gfXV/z
P8YKbQW41P1IbL/y4/lEIlmOZkNcQDuKMHlSyaIEsesFlh/dt/+H+dORPt3b
LUm1GxQbPvnUTH/jXg7kPfN5FeXQVwEFwXp9w/HywMjx99XCPFglk6IBK2PD
dya0tvANbY6ea6TzkBpatJF+098srCl3U0xIXic3v94NPP3PvsZazbnPPu2O
Tp9s5cCEhJrmdP9pTV1K74bX/nu/Z7OaRbaEA8WAZ3dYDyZPlc6K5k3QN5fu
rVe3dOnZ5vKuJ2uFn5wQogS5UlLlycMvgp+zl7drDVGCfGFC/oe3TOf1rWkN
FmezjveNfGad+ttybvWA7bABtF7+4GxHSlC8oTVi+WzfeaWRIFCmkYprcaSr
0IkkEy7c6H9LpWodmfZjGU2hwqIEKzZ9PGiWYxv7xmM+LN2Kze5wKz5KsOu3
nY0uMlRv1gmTz/ZZ6igBHy63ocPk2pAgpSLGK7fxSOxbyp2hDUAlQbZCZil6
qyMmsPq8tOpMIgh7X3dGOD8nfWuq3XXHOeLEKIucHVnvGflk67BtMXUcGC/d
w16POmZ0oyZUUaRE2PLtfAQKhcyZzFGDSepZyZaHL4ufs1dC1xokCK15XA/T
Fs2JZDew/FiK6yShTCNF6Hhk6OrIBJ+5rO+HP5NGOxpUWJSAl+WefR2WdsXm
PN5cTXDKHmJTnOPgjwiwqxqOWwU1mZQ1SsAWD0q+kSebVucwnQAAEqKel6PL
7EnX1wuEx8p/93w0AbV5wJ5BIfX1Q+PBuPnLIvdE1HuqKHWPdXEn7fV2lq09
3IfEdp8HMpNcrSO9pgcQBrGIUbmSoYqRhy+Pn1NC1xqUDYo0UluLNweiNTk1
JycepQsRkM2j0VA2DZUVJSBLc3M0+yZWbN7izoT8jx8s+MU2z4rE9kVKIJYh
RAvI7EXEpNCNgA5uHHJGCbjiwfx6D2WBVGCr+BgRAJKSrNMu+etZKew8sfZw
ZehU48DkakazRmwesxgjspW55sL0RsbFOWFOK9+0lRXMT9bueuLFQRvEUkGK
EuQ6JiCaV/ITrbfXFn5YkKQeXC4/p4SuNSgTlGikdjdmLsW6gTT10kvp5t5r
r/VUogpD1u7P5UplRQnIJsLZf24iNMpv+BU5BKf0Nr+4G7NnypU/wRJRgqwh
tzeb0x/E0orqO80LAuV05YwSsLkNOaok8oDs41ARbxAARQObHUFsPbX0xBqt
nTB7MociSc8qS/IzUe950Pgwi1I5sTOo+GK6smLbOUq+NzlF84BckDmTOc7N
iayDRr1tJfEvIr5ovUR9YGXyc0roWoOyQIlGilmdHGiMCneqe2lvesUhUnBD
xG6lmqisKAF5tpv1sJtZtnbHJka39afE7MlvxY5MaSlEa5VOfLZkjRLEa4Ui
vco/md0UegglY5SAs1zSh3HItChRb9C2z/Wdp2xqogGQg+TEab5XCSIw61ND
UVdHVdNDZ8jjZBHWgIaQx89+5khqy/D3NaCkEN4LZ2XP2vwwJaWAzMPP8SuQ
WQe80io2eiBRO3i5/Jy9vFxrtY72Fupag3JAiUaKWbEPxCJ42QIXTMj37Xjv
4YaGw73j3/qUq11cQiosSkDEhbIsZcwL93hXLDDKa9LH6q60G92idqnh9f+9
WlXLqPNFAU9eFiQURTIXQjJbro+jLyfVaZgVUc8qX5SAK9bLHpPM78Kv3eMH
05n+rHBqKs2DjlWJHweAcoL0nFkqPx1LLFse84mYqdrXa3uWZTklFNSzeFaE
8F2OOgJSIq9BSy8X9D2AZKTIfqLZXIngKatkF18Nzpk66qOf5GXss1X8+y46
pejWLpufs5eXa83ziPJyrUFZoEAjRWxDcgYuQA4qLEpA7Nr2G1zpewMRipeq
pAgwW6JycNz9WsyU4o7Oxf5VmRIXHMiQLMQEXONRa3hAZ1kQJUYmW5RAtmK9
MG+eWI7VC1keozCvvPYPW6m61pE7iFuCKodQwxbiElQfpMALdcrqzeL+C/Ss
CMHVHJLsZDkVtMqVA5nAxm5PkYFTGpKCnD3W5QzZysz6rKEzUftMNqRgntl6
9+8bnZFC0khOPycP15q3CuXlWoOyQIFGinlu748lI6gO9NufY9oVQIVFCSIJ
T7Yz3LRJG7fk1rH6o9puDTeDyLjuziNTW6PIypTdTedHzarGHjK3qpKJhQ3T
rgahZftQSzREYJ4T22VbtigBW6wn1waE2XKPt7FrJNVp9qQXYo1+MvTi8aTh
HbVqf7fhLkIEAKRUWPMyu6oeZst5cV98bHIkWhD+UpZPCkv4jMBTNcfvohzI
xjqq5JJJUDxIUYLMmxHm5bz5tJpq1Z58K/pB4iz+zaLlGHXE4JJEVkJWP6f4
rjUoC5RopJhVW2/8H9f02VYrYm9bMiouShDei63Y+iM1MsntM5igd9p0RkMd
0E088G8tmDs59zSuORP00n1qwYL8UbhEsuaPXVIkjJUHwXlztzoiZNpvW0ls
dZnQhvt6P7tdpo4M0Y/Fhgj25IsScL1XcsQkC2Fr6cvftUS+eaYMgTfBtcf3
rn+k09RSmjOmaa+0nYwBKFuStjwQMCQhhZVy6d5szxr2Rw90svTFIxI+c0iy
Mz5aFz8WzJ5NDYoJ8UOzoLdOieDtUNhXtPXClI/35jGBpw5jj5o6OjL18+sV
OqrvFj9SD3lt/c2SpUPL7ucU17UG5YECjRQpVqCidLQPLkVBVF6UIMxuwEMP
RTpgUuru0etTMy7nFH3lQy1vj8YEPdd0anbF0xonnX+1XxloqYks5iJGIZpI
1joy7a+maciE/A8mdAfCr6VG91FkeGfv2czDXZHBrNXoLzuWNvMbDZmiBGxW
swwdhHls+2Y+12vCKxPV0D5gtN5xusJ8N22/ZTUbBrWt4e9FaU5dun5/CYqF
ACQgm2uzph7p0wlWbPpYr5hc/hJRu5GlOmDXbzsbHe0cQuhwtBQKrxZelbMt
HZAL8oeoaTl6pIE9IQlbectX07OumM9Z19DxAT3/K/umxRPyD2iNt53OO1cH
j1DqM9ZFaYI8RfFziuVag7JBgUbqldt4JP5qyvxGVAMVGSWIwASfuW6bR/uO
t4RX74aW7r4x8+0ffEHyQIQJbSzYJ0ZOtzdRVFPH2YsW54qYIdj22c9pVDWa
kW83qtBKh9Y9jmuGwXfbm2pVVFO7tm/k8g3HnK+QU3J5ogTcNqQY2pJM0Dfn
uHF5pE8bnlGRL6Ju6dLqBy+arn11f/7nAEoMAEghWZogY9Fr9cE7rMzeZ40M
tmT5JOE+8VqZp0JmUzcct8p2PgnEkSz4WdNnl6MKHeSC/CHCW57noRdPnbY/
Ggb1XS2RTMuGli79kNF6z/OCZ/d3Xni+uTra1x3+TEOrdviL+8tShXiK6efI
7VqD8kGJRopMUMwRuAACqNgogczsBtyfdVCUWvfFPE6HJUKeKAFbCYWMWQCU
CZcom0B4r5BKh2gFnevImKj35HlWTMj/+MGCP2baAy5DS/RjWduZ8QSpkCqs
IJJq4fnN5kDxILq45jjxLA7wc0ApUKKRIrp2oiBLAhAlyI+gx3y8ESECSZEl
SsDKo9X02lbhSwGgRF44R2NeATY+JJGm0TEvKLsqFHGgwy/ZiGwqKb3NH/2/
CQesweDKbO/fbE5/EMsirYfmmIJIDqllP7wDsvHmsflwraB3szjAzwElQYlG
imx8gI1t4SBKAJSCLFGCtcm+hn1V04ECgLIjuf87pAliEGciWU9VmGVrd8xf
4ineRxyz+sPmxzHfLW7uszpgXG9fFqrtk9lNRMKVQnJ5jhL2p1UJIZtWc9D4
MEvvtyIBPweUBgUaKbJXrKiN7bbP9Z0HJ7/JxH+RZu3wR4ZkTPYlJH8Cydl9
4fpTymQzfNTXXiN5lAAAoHA2HYNxESIVFPXjEPLRWRww5oV7vCt2nMNrWchu
Ksm2Zcy2y8BVbGaWmGa2XB9Hk9qpTsPsOvYdioHoNq6c/Wk1QsqmFUMKAACl
okAjxbx2jx+M3kt4ASMnLto86FgV9vnqIRG3SQf2a0AOMOsAAHHIFEE43nEI
byejqGNcOJ1zmc7a/PGjkNde6ykq3naNI17LmaFjGhNwjXfUs9c6oLMs4JBA
QTBeWqcmXpO0betBEdh0GdqiPwJCmqCqUaSRevPEcoz7wL5e27PcgW7mldf+
YSuVqZV5lYP9Gig+mHUAgDi8lkY4JE3ALNvONGXeEnLeV/1RbbeGGzlSP2rn
kamtMUVVYMtjPsH2bDtl9aaMcWjZPtQS9b7McwG4S0qCWbX1kpoEbRMLO/iF
SgEhSgApAFDtKNFIMVvu8TY20kB1mj3Z1kkm9OLxpOEdtWp/t+EuQgQAAACA
4iD1isMkHS5UL0xoxdbfyDYf77EuEt4OE/ROm85oqAO6iQf+rQVzJ3d0Epez
C3rpPnXa9gTBeXN3pFlbY79tJeEUMaEN9/V+1rGijgzRjxEiUBihVVsfESSo
JSp5QVEhRAnQJBQAZRqpraUvf9cS+WimDIE3wbXH965/pNPUUpozpmlvIW3c
AQAAACAbSZ0OkE0dZzfgoYda6yI+WPfo9akZl3OKvvKhlufbMEHPNZ2a9dO0
xknnX+1XBlpqjo5M/ZxOuYkJ+R9M6A6Ed5oa3UeRC87es5mHuyJ/XqvRX3Ys
bcJdUhzMM1vvvsT7kfaUDRSFRPM36qRlET0mAFCmkdr2zXyu19SG79jQPmC0
3nG6wnw3bb9lNRsGta3ht5jSnLp0/f4SFAsBAAAA5UIqDkUyeZsN36PPcRwm
+Mx12zzad7ylgVI1tHT3jZlv/+ALkofJTGhjwT4xcrq9iaKaOs5etDhXsok7
h9Y9jmuGwXfbm2pVVFO7tm/k8g3HnA/nKcqEWaF7iEyCmh56Bb9UiWA2vjPp
DtY0HR++8QgpNwBwKNNIMUHfnOPG5ZE+bfimkbVT3dKl1Q9eNF376v78zwGU
GAAAAADKJ6E4xLLvonMLFhyAvajGV+LdONBvf453AwAAAAAAAFDp7KzQZ4jz
0kPD07+W+pEAUAARjS9C3bP5YxcCaAAAAAAAAIBqYPPecGPiyBT64QDwmoNH
qE+RBAcAAAAAAACASiXWAgniYABwMKuOIVKxo8+2mq2WFwAAAAAAAAAqCb5K
W81B40MouYNqJumNgKonAAAAAAAAoMp46TIcSZycpm2mDEC1EHAb24lEgjP0
CqoNAAAAAAAAANUF//AUVdigemHWp4YSSh1IJAAAAAAAAABUJ/x0ArREBFUK
X6YDiQQAAAAAAACAaoVZnRxIHKEinQBUI/xEgro24w9FSyRggr45xw3T2KD+
ZHtT+BGopnZt/6j5K5cPATsAAAAAAABASdh6aiHKDqBOAKqO0gh0MEHvffNQ
e0MkNNDQesZg+Wp61uVyTtFXPtRqalVUW7/1UQCRAgAAAAAAAEDx2fre0ByP
E9R3mOaCpX4iAIoGX52jsYf2yr8139mYvznUWsc2IT0ydPPRRoh3TyawcKP/
LZWqdWTajzgBAAAAAAAAoOjsrjvONSaKsvVWL+IEoDpgVh1DB+Nzn+o0e3bk
3pdv+6YutHL1DerT5vmXqfdjgs9c1vfDn6nps6/L/DQAAAAAAAAAkAZmxT7Q
HN8qNQ5MruIIE1Q+u5vOj5oTMYJu03xA5jtuLd4c0HAhgpqTE4/ShQg27o9x
aQZhGgyukMxPBAAAAAAAAADpYHxfnlHHBdyQ6gyqgOCcqaO+iKKFuxszl6JZ
BKqmXnopXQDgtdd6KtFt4bDZ80beZwIAAAAAAACADAS9dJ86vj3RXJjegIwh
qGAC86bu+H6cavtkdlPeCU/0E6HUvbQ3lDYOt7Vg6kTPEQAAAAAAAIAiCHlt
/fH86xrNyLcbyCcAlQkTnP+8IxEjkL/WgCzqoU6YPZnSFpiQ79vx3sMNDYd7
x7/1pY8kAAAAAAAAAECR4NVEo+4AVCq8WgP1cYtH5iN7Zsv1cSIA10Ov4L0C
AAAAAAAAlAe7gUd/6I43htOMOPxQTwOVBbM+a+iM5RFkSf6X8I7P7f0HYi/V
gX77cwQJAAAAAAAAAOXD9ortvcZi7qEAKB4hv2NEEy81aL00I7/+BrNq641H
3mr6bKuIvAEAAAAAAADKCuaFe7wrdtha3zHuCiBOACoBZmfR2hPv5aHWWzxy
tz4M82bT8X5tPC6ho314mwAAAAAAAABlB0/JsGXIvozjT1DuMJsPDG0x2Q2q
fWxmrSj79Vdu45F4JsEh0yP0DgEAAAAAAACUI0zAPdEda41Yc3Li0UscgYIy
ZueJtedAKQJfv9j79sfu2zToWCvSbQEAAAAAAABAYpiQ785IvOWB+ox1MVP7
NgCUDfP83vmjsUqDAzrzXBGLaJZpbUMsStBpWsBLBAAAAAAAAChfmJDvrqF7
f0zq7cKUb7vUjwSASJiX8+bT6tKECMKsOQabYlECPe1D7Q4AAAAAAACgvGEC
c2bdAQQKQFlS4hBBmKDH3JVXlGDb5/rOE4CMAQAAAAAAAEBxMIHH9NARLmGb
OmZZfFPqBwJAEMyW6+OoCid1dGTq51Ic5DOv3eMHo1GCLrMnKOyvtn1TF1qp
5kHHqrxPBwAAAAAAAAD5EfK5bt+iafrWNx40RgRlAhOZtuFZS//FsfBryXL9
3zyxHKtnowT7em3Pcr89zCuv/cNWqq515I4vhJcNAAAAAAAAAACoJJgt93gb
m4tDdZo9O1k2/kzoxeNJwztq1f5uw12ECAAAAAAAAAAAgEpka+nL37VEAgWZ
MgTeBNce37v+kU5TS2nOmKa9QUQIAAAAAAAAAACAimXbN/O5XlOrUlEN7QNG
6x2nK8x30/ZbVrNhUNvaEP4XmlOXrt9fgmIhAAAAAAAAAABQBTBB35zjxuWR
Pm17E1uCoG7p0uoHL5qufXV//ucASgwAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
oCr5/wGA98CC
     "], {{0, 152}, {1378, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{376.80000000000257`, Automatic},
   ImageSizeRaw->{1378, 152},
   PlotRange->{{0, 1378}, {0, 152}}]], "Input",ExpressionUUID->
  "cc381800-a425-445d-983a-2a79d55fb584"],
 " with ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzt3W9MW/eaJ3Br982+OC+Wl7xAYoUs+UWkKEKWliiq4AVRIiSIWkUobWSZ
qFmDZjPA3C3cjoJTNdCrxtX2gqZxqlvrtlZm4sz0KHfqdHAzuC3kCqfFd+so
oFyngV6T4BYoJMhBEAyH9b9z/LMx9jn2+c/3I81qZkuwD358znN+5/k9z/84
1/3q//ovBoPhN/8t8f+82tHf9A//0PH2a/898X+c/vvfdNn+/vybJ//+/5y3
nf+H/3nuvyb+P28k/uevif8l+b/vAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAaM9mdPJjm7naYDBQJ1zhbaXfDgBfO2sT75gSgWuoaezxzMQQuwAA
AKAhm9Gxy02UIaW2dSQYY5R+RwC8MUvfXGqqSUUvZbR+Oo1UHAAAADSBeT7t
vmDOJOE1TfY70TiycNAWJh69Y0cqDgAAABqSSMJd540GJOGgdUw8QncaKaTi
AAAAoAWbUd9FcyYJT6Qu18MbSMJBu7Zj059akYoDAACA2pE14Qaq6crkKpIW
0Lr40vgQG9VV5v5RPN8BAAAAlSFXDg0GYzcd2VD6LQGIIhZ227hSq2bHvTVk
4gAAAKAWTDw62m+uYpfCT14a/xmpCuhHfN7X35gJb8ORDs+jLaXfEQAAAEDS
xozbeoTNUtClEHSIWbvnaK5h7zTbHFMriHEAAABQGLMy5Whj61EMVWeuP95C
hgL6w2xMf9zKBbrZ7l+KK/2WAAAA4CDbXp24zDZIQVm4mjBrs7eHWhvenVjb
UfqtyGttfKDhNfuthxI8lIn91WXhqq+MnXQEezYBAABAIcziaK+JWyKs76Tn
sESoCvGFyZEOI3XSPvbk4H0i6W2Vh9sd34jf22Qr7D5j5G47z7jDKBQHAAAA
BTALvt4GA5YH1Sb+ZMx+kjqgSXhKZpiUFGOkcqtTqjrcj9dF/f0AAAAAJcUX
ff0mAxISlcmkoEesrvsiFWYw8diT6bujN13Dg32dlrMt9ckstLq+5Q1bn8NF
f3M/ul7gdRJvw93d3D+2Wt5rxldnA/9x3flen+2Nlvrq5G1efctZW7/D5Q3M
rubcXDC/To1Yjg6Mr+W/gfS2BSnaDMamne3YEAEAAABKYVa/tXONCg21rc77
qAtXgc0F71smA2Xq8S5UvA7MbCzOjN8c7mmty3zKidz7zb5Bx7DrBk3Tn7ud
joG/a00myaaW/n8OLm0S/3R91tNlNFQdHf7hpeAXfRqkHVZz4tcam2yXrrr/
3R+YCgaDUxM+2v1PA5ajidS6scedebnMTUf1cdfDAkXwW488HUekKJdi1iaH
GrjgR3UKAAAAyIhZCQwd59bCDQ3vB9YwOlNxzMZf/9ieSA9N/b7FihJPIhlO
pd+n//GaNxBe3iiQ2cdXZyc+628xGYwdI5MLqVflxqo2DEysCHnZ7Vj4lr3V
lDiAVvvNYMFl9t2t1Wk68TNU48Do/HP2hZodwfzl8PRxxCN0p5EyUKdHQs9E
XbPOfRhk7PVGkYkDAACADJitsCvbqdDQ0OtbwIN55W3cd7bWGgz1Xd758j8O
Zj1673oyr05l4Gargw4+LZR/5/6j2CPvwEmKahmafLKQyY0Nhqrf+Fb4352x
2Xvda0Nf/VT8FZlYcKS1ljrW+Ep6Tbr6bf++PWE2Ih5b4qeo5g+nxL1V3Jpx
tdVymyNM/WPoJw4AAACSYyJ0R3YtkGpzhVEfq7z1sOt1qrKPI5FO3x58LVOF
UveqnX6wyr+4JV0EUltXx92gtbnn+P7r+NL4UBPFfz5Ozp1gVbev2LJ75vZE
9NIpZj34QUP2a3BqOFRwTR4AAABALLkNww1H+/2LyMIVxyzQHVWVfBw7G5FR
e1NmXiTVdMk7K3R3IxOP3LRyRdOGqmPOB/wWoJmtWU+HkRJWaM089XYeSr1Q
TZv7x6JvdXvFf9EkxVbi3BvSqg4aj4UAAABAQjmP47EYrhLPg44TqbuikdDL
Mj6O7dj0p1Zjen2ZMlo+moxulv5HRd6GQUhxOJfNNnwQLFgSXlg8Snem3nGb
c6ZUdr31wNlcnawe2dtWpSK5S+K4JwUAAAAJsUuLSDzUhF0Mrzvj4V0JkkUm
4Qaq6fJYmUl48o28DI0cNQgqDudS2X16nuwvHnQkS2hqLk28KHnQLyOec8kj
rOqiF0TdUJlXo3XGEzko3wcm/uxxwPcnmr7hGnY4HL8b6D5nsbze2tr/RaTs
+AEAAFADtV7jchfDDc3XZrAYrrzNWffZZJJJnfNEBLcJZGtCUoxdntnKKjde
TAzUCCoOX5kYSK8oHxsMPBf0Uuk8vERxOIu9Vak95X4kKNsvZWdt4h3izvSE
IyjsKDRre8l7IbtXO1udI2hzLgAAgAqp8xrHrAfeO5R9N6YO+sAs/qnZyx+G
j1aVtxjLrN4dYmvCxemzzfzkaa8VUBy+HRo+ko70RkcwJuilUnl4yeJw7o2x
9eRllu7sj/37Z76jB6dKPB5bjiZEwt+5bNXs8QvYnAugEr9ODLS09Hx4ffRu
KByJRn+N5e9PZ+KxX6Pz4VBgjP7kXcvxwYl9GzQBaAXCvhQVXuNyH8EbTO8c
uA9FjbhSEN4ZafafRv2/bcwmkNabERFGwM/TljoBxeFLXlvmhvNQp/epoJdP
5eE8isMzNufcb6ReqGU4JCzhL4UteskQ/fer3pq/L3OO4r85F0A90mctfqgT
vx39CdMCQPsQ9ryp5RrHbM1ca85+KlUNju8xxl4F1mecbembNN4ZaVruJBrq
dVdYlM8z9dXm/+AmSlu4kBI2IJ5ZD/2ho8MV4r21c3vGeSz5OoIL0Uu/lUVv
Z3ZFXPTdoGrH/mENwic3AagB34SEMnc5M9PKALQOYc+Xaq5xzwKDjcQn86pz
5oVyb0ajNiK+wda6GrP146nVEmlqcqLlV3+69dX9peJr1MyP7rZUYQmv7YqE
9e8d2cns4o2h2XnoOl4t4MFNZrNl2hHrtXsljrcSgmvX+Vv299Vnvxyi7wZV
Ne5Bg+KFcwDl4ZGQUEetji+mVw/O9xp0D2HPk1quccyKr6ea+HAOUF8I0RCr
piX3JK4EBtMPH0w270LRH/R1V5WRW25GPG9mV3BFLKXY+cn7dtfb3p94Lzjn
ZrDJCZ7v3xificYkuPnO1K5L8VXK2zoh+m5QFcs2cjcYjrvCB+WwQU9SCUnj
BYej33a6MSc1qWts7x5yee/NPjvgqQjoD8KeH7Vc47YW6C4ibSuvP94Bt73i
+w37NzztChcd7ZgtRqpt9/xU5E+d3OaY/rnBgIBOOjmL4QbqlHtWsdDKa8HN
MTZa+hwu2n9v+qfV4lPu+YsFHY2pXy54T2hp65ODh4gicdF3g6pWNlapw44p
tCwEDUolJBY6mvk/47Hln6PR6M/PxDrzAKgQwp4flVzjmDnPGeJuqZz+eMA1
6EskzUOBzSKRzryYuMQ2MTkxHCpS/xOP0rbUjwnapJnXak/puypmeXKopUB3
oKzq+tb/PejyBsJLlZ0gtuY9HelDttDzYr19Vl7h1gHZrclsBh2HM4dc3+df
Vvr9AJQhLyEBOAgQ9nyo5Rq3E3YdJzIMFKWUY/uB81hmCbpUy2tu62UiA33b
X6wpDbfAKyg8iDuCpFKL8zKIP/EPvcZjx0i12XZtYl5QHTxpZ83/dvq+ts4R
FLvwJa80hTo0OHkANjJvhF2n2SPupKMHeSsPFMHEo3922o5V2bxLSr+VQpCQ
CJd8Fnuo1X4rHMOWkCLUHPkShL0Oo0Il1zjibaRSGF0UpWzH5h8ECffnY5Ie
FDPnZnPrUmvXTIS2GjM/2+6ZL/ajv/i60zdqQgotNqcch4nl52POGTV8Y5gX
84Gbjs7jpbNx43nX9PPyPixuVyjP6T/C5JWmHHovwLuXi1aRsYricCiMndhL
nbw0/rMqvxLIw8sQC7ttRgNV1/q+v/wRzPqm8siXIux1FxUqucZtPXA2E1s0
DW+45zT552Vif7s3+s9X7RfaG42G/SS3J9h/7/ribnhZ1Nsesji8VINBAZ0q
uf3OApoWMvOeduKIawYm1NT4Zmdj+cegn3Y5+iz7f0xU05XJUg1nCv927smO
JNfcvAcNjYOBZ+K/iKqopHAO1CubitjHnqj1eQny8LIwz6dd543JE/LlMX0k
XWJSf+RLE/Y6iwp1XOPyilK0t+oVXwzd/vjiaXPRCuRCyV79qW7Hv/hnlsT4
BhEZWolSE7IYqVSnyuwwShv/xyU5nQJL7QNVVDwWDQf9/+6+esnWlJeT17a5
ZsrZyM21K5fkKUC27iUdQbooTWHizx4HvH909NlOJ+6M0vvob4dS7SXVUjgH
asWmIqLM6pWQvvNwCfrlZv9BZnePTpIu0Wgi8iULe41FhfqvcXlFKVVHh3/Q
yBZNJr70A+3oaqoTmoDvTcjPXLz2xb1IBYUrRHE4ZaWjxX4RWYx0wbtU9LSZ
Tan55+HbS94LZFVKqQ6K6hBfCY9dtZmJJLe8hiRcHi5BgfhuckIpbSXDTeul
KfFfgtffbkl+g0wtPb/3jE0Gp8a91/paEtf0zuvTsRfqKJwDdWLiC94eUyJ4
apqG7q6q+nuwNyGJx5bnw6FkyWIoPL8sRRtVuUjSL5cUn6M7k71nqeYPp9bU
UOOoOK1EvpRhr5Wo0MQ1Lq9Tijbm5aUz8HOCV8BLoOqabINllawQxeElhzly
Jd88Hj2Uk4dzLVbSRNykmfgK/xqTbgpP4mON0J1G7kPt8MwLXxGXOA/PjlXK
EDrkVD2YePTuiCXVFNPYMZIzTG079vjfuk3V5ovDV1rZg9XcYzKQGLN2z9Gc
DI+q9j/+Ve2N0LiEhIk/C/td9vyiOMp8um/kVvCp2o+jAEn65eZhVr+1mxMv
Qhk76YiElwBt0E7kSxv2qo8KzVzjcgd2q39e3j4ZOFXfcr5vcNjloW/7A1Ps
rkx2q2bA7/W4hgffKlKQnC9TRn7jlm8i+euCj5aLhRl5Jiy1IsHNfORTjCTC
eriAgpbimIjnDFW8y2Ll1sOu19k3X1YPcKnzcLLXTVLJ2y51Spyg7tibUoFY
eFfs9or/ItH6EsXhkItZ8PWmKvGMXZ5Z9d+KphKSs38Y9znajVV1LX3XvIHw
k/TcgnhsPuS72pW6ppg02AhCin65e22vTX3YnPwTGdtd00q331KUliJf6rBX
c1Ro6BqXV+8qxUBw8cQXQzcvtWarUMpZvmZikeCYZ7ivvV7wWnpDn39xn99K
nAlL3chszziPZX70cLfvlxJvV4T6cLHy8JcRzznK9M5EsdL37FtY8vWbX78x
JzxDJf4+ZeX8XB5+ZDgkyeWUvJalorBEGZIaMUvfXEqfoAwNvb6Fwm//5Q/D
R7lbdB6xCgfIRoTuTi1qGM+4w1oYyMdueKeae26EVgssqmxGxy43Jc+1lNH6
6bSGUnFJ+uUWwqwEhlI7yag2x9SK1s55YtFW5Esf9mqNCk1d49aCjmYipyjZ
vkMpiVubbxztbDmHwdTS98lXFe6vjC/NfPXZoI1HG7008+WJ/bbAEGfCUjcy
8Sjdyd4B8OlLw/VLEVBektsvpazqjr2SEVvT4Pie3/1/apZ9edtDuES6ZPF8
IRL3S0nKLxFX+yOkPbYeeTrSM1opU+/o4r7h+jwwyN4SabaHEkiA2Zr1dKTq
x6g2V3hLPdfeItIn0sZ+3/y+Vw0uo0h8L3q8C2p8zl6ANP1y9/kFmToE1ZcE
S0VzkS9H2KsxKrR1jdt56DpOLoersyXCZnT8w/ZM2XC12XbVP7cm4heAif0t
QI/0W5qKJeRF7/WIMyFVahU2laCm8WroseC1pZ+cCCnSyPlYRdmnuRX19hqp
111hfml4qoF5eYUh2ZuIsoq1pO0fnkbedon2F5bN+mN3B7ujuOgHSl61VdKC
HtSA3Z9lMJxwBLUS+Wuh4bOnRr4vfuVgFmj2u1Hf5S0jUZWfRP1y97O1QHel
Xq6mefgvKq/JEJ/2Il+esFdbVGjtGrfkteWUZ4i0dioitlNlUt1rg7cf7d/T
ZDsWvnXJ+uZF12SUb0em5+Fb77SaL9CR5H1QqmTlpnNobxl5betIsMjrEmfC
Ujcy2TqTvLbem8szf5lZ2ns7Vt48zRczzlfZNy9CATOzONprqua9GJ5ZlC4r
D+eqPqqbnQ+Ex6Kk8zQ5eV3EtVQizqyM9ZsyEVjVQe/zuC4lu5FBbS3oQUHx
RV9/ammAMnZ9obmKrBLI63LDB0ENtEKSpl9uERv3na21pTMcHdJv5Fce9mqK
Cq1d45jNwFAtmW9KmbuUIzsMnTK2fzheok0lV/xW02S/UyoVz8yipYqkuPHl
cGYUZ/FNmmRWVuLRBrFynts2KrnEWlsoneOanwjc3p69wzVQp9yzlaSJqUUA
IYN1MrU3ZUXTrxMDqedEVV30Qhm3hJtz7jfSoWyh54X/c5625j0d5PeGUuNE
44LIbbCHOr1Pi+09FrSRAQ6I9e8dDekzi1aWBAUhd2Gr8+lwLon65RbDLX6W
SnJ0Rs+RX3nYqycqNHeN45IWVaYT8Sdj9pNUOq8e8M6W3kHAvAyNHGVjqejj
lc3o5EeWTKELn6S9KLJKocT5bd8GU6n8vNkRXNv7b7hCC4Fp7Vpo+BQbjRWc
N9KfgrBB82ztjeA9v0w8ctOa/APVtjrvl7X5miv3KqvXCl97bmBrLk280MIF
aX1y8BAbFNQ5T6TIoADy5IDicEhTz9VWIjlNX6v7/AXOyGoiVb/c4rIZ6fGh
gIq25klJ35EvRtirJCq0d40japVTb1qqDhNlyJajCMmTuS1+RRYHEr/ZfYFt
e1hxEp5zJiz1ZJB7dpOfuaUWkPebCLPi605Ht8CdNVyP0+Rfo/WjUBlbodNJ
uNChvani8NSrCnxExVbfld+UlfnJ0576C0u9d5KINKW/xfwx64H3DnFvucS1
WOhGBjgAspfaYwMTvyr9biSR02xK7ZEvWb/cEjZn3WfTl9BKH7Zqhd4jX4yw
V0NUaPAal7/dTD1PnzejvovmMvJkMjsquHycXWMXJwnPPRMaihXYMytTjrZs
MT6ZVDNPvZ2H952Qzg2OEbzomt3cLfxgdzbmv002wDeed4V+FVReku1YIqi9
P/vRVDQnl7vWSN2QP7c1pDYeYec8fCx1LeZuplAcDhmJc91bmX1+2qidLkfO
N1vtrZAk65dbClH3qL8ijb30H/mihL0KokKD17j8TZpSj2jhiRuqSBk7PLNC
WgMRGWChPDwnCRerSWzelr0jPb6fC7zj9PI+1WQ5+0rmB4muejuz7lNUkbjl
QquMyZjbsTDdn+miWdPY8y+h1dJF18zG02CyT3uN2fbxpOCUmGvMSNXVH6nj
V1PExB7S/ScqTcKz1xoZ2m9y/SQzZy61Nvwkcb13St84EF8l9dyeg6J2HrlP
1aZCQksbk1Ob8X9nbTTVNXU5Rh+XPIFKM3xBGhL2yy0luXaUWXes7vHpvDZF
i5GvSNgrHxXau8YlW3eQaXhFezfEE3/ssab+kma7X1iDcPJUs2dFNCcJL7dO
Y6/8ZwoFMkkm9tg/3GFMVXe85G4Yj46EXqbCNB7x9jQULTnj6t7rznjKGLLE
xFcf0PZXM9+yurY+19jMcsGyj+SAra8+u2wxV1Pmc44vHhRq+19S+llP6jZn
bSVdApT8bfT3kViBT5PZiN73fWQzV/O/TdgfV+7VMhySrjg8jetjwybi0rVJ
FEtOrBa/Fot91QbNI3fflLEgoJjUKgd3di5eL5qUk5Co5Jq4Dyn75ZZETADk
8VfVMk1GvkJhr3RUaO8al1dQoZJmKVxroCb7xJLATX4RuoO7FaJyyjxyk3CD
6S3vgjh/drI4vKrx5InUrM9E2nnF/eXEVDAYGKM/eddirqlrfYeeTld3cOOr
jliGbwcCdz7rO0GVHI/LTn2q6vTu35G+uK3V6dsjPa3sd626vvXvBq6MuDyf
0/TnHtfIlYEL7clujVRdS+/IrcI5My+pyhDiZmTrWXh0uDM9LMnY2H6BfVH6
c/fVoT5LY/IvVm22Oujg0/JKwrOYOc+Z1Otw9zgSym+ZovpS0txTbYkaJ+Kq
nXOBZ+JLD+9VOD8LNOl50HEiExJSF32JKe8yV3L7du60XBXtmNpL0n65PHAb
lwy1p9yPNBMRgmkx8pULe2WjQnvXOLKQJqWsAVtiv6n0bogy+nMyW2EXUX7d
OBh4xv6XZ6GR09n/Iub0VTLaD3f7fo4/exzw/tHRZzudzmkbT9v6hz3j4Wc5
C8uJ1PTrzwa7k3lvXZNl4NO78yXLvtkdEFXd3sVKAmRnY/nHoJ92/d7ebbWc
balP/s7Eu7Sc6x740EX7g4+WKk2Gl0d7mvq/iOQtGiRX2r+mXcODfTbLa+nc
u77ldWv3O1ev/0cgXPGLprDFaeU1Hhf8annT7cuZEy0z4lpc4oJCrCrk7p1P
VmGpq6sSyCPbhUATJVhZuYWvJbuh5txfq3tnhKT9cnkgihC0k6AKp83IVyzs
lY0K7V3j8pqlqOGcw+6GKKMVPLPg683WaRMzZzcXvG+ZskdZ30nPiXenQwxF
pTolrSRkk0xTBx1R/G5JlV5GPOcoXucccRD7ntLU/8iSqGkntifslR1pajBa
yXir5KoNGkZ2ISjcXlW1mChtpdJLIiO3QiVXMcjklljMUSGJ++XyQLZ9U//Z
rzxajXzlwl7ZqNDaNY7r8MZ+k5V/BMfeSQmvvthenbhszh5LQ68vXW1NNgxJ
HqOpd7Tcuo5CyPHxkt/6ZZ6OEbcYQNh64GxOfBZV/Id+Viq/dWEFI+pkQjwC
K3KOynl+lHMiTW1skaH2HtTmWWCwMRMR6n/ukydVr8i35zPRfLjKepNvrycl
SN4vlwdip1t5e5fUT7ORr1zYKxoVWrvG5Tdek3T+ID+ZyiLBLeCY1btDTdka
gaoz1x+nM9WNaVd7dkK9kImQ/F43ecuZec2jwz9IvSeBXRLXZ//Symyv+C8m
n3rItRietBkYrFXZN6gEYsPRYUdws+AJktu/kI5rsoFV6omDHLX3oDIChjaq
ELMeGmmmGnq8kVKrghsRjy1znCX37ChM+n65fBDnwAr2LqmYhiNfubBXMiq0
do3Lb1qo/Gpe5s5AaIEHO/zFkB9IsWlnuzRl4WnE1mCZnmBmjghL4vm2Zlxt
iW9+bZtrRq4sfG+rHBU8USqJmfd2pb8sBW/50yeo2pOW9szTJXL1LPnEwSTr
XxjUgVh61VKJbFZ6+avqjZHvf9n/0rIdm/7Umn54Sp28NF6o/ayKyNAvlw+i
TZy2lov50XbkKxb2ikaFpq5xOU+1UpmklHPA+WAnqwpq25LXCIVqGZpczlSk
PL5+JpslVZnt366KfGJdCzqaZQ42dkQmV3gDu1yPHar142lRNnzylddCXA07
LEpi4gveHlOB5vzMRmTC2WWmjliv3VtaT9/XGIj9XxsRuttouuhX9VgTkIKQ
vhwCMRuLM+P/etX+d6317JKGwdho+W1qc3tZF0NmO75dsCfr03HHG0bqmO3q
fxb4zfGV8Kij3ZjudnXhM4GTy3JeX54jkqNfLh8bYddp9i20OWfU/AShDFJF
vv7CPpeyUaGla1x+WYryXYKF5uFMfOneNSvRAd345rUp9r5vK+w+YyT+U683
KvYtDlEcLuPDl+1Y6KPWRIghI2Ixq9/azVUGqt05LfONZP5O5+IbQ1SDG+1E
GdsHb4xNst01qylzl3MikrqVYTbC163pWVqW4dHAn32f9DZWJS/o6Fh48BC7
0UW8TDBrc/6rqcEB+6h7bfD2o5iwAcLJpbB96we4V6w7brP/k/sLfyAYDAb8
X7g/7GlJLd/Vneh2FkpX1HdEMvXLLY18KFzb7vlJX6tDEkS+/sK+AMWjQivX
OPIPlab84LDMXCE+7d/zgznx1/5wPLsasBX19hJZeJFyhe3Y3F3P1Xe6rZ19
jn8JCJnkSBSHy7wZYX3W02U0UKYe74KKtxHJhIn6f9sodhscnvJH+WioeVdy
ZOpt12D3mWQPybrG9u4h1+2/RDfId8/EV2d81+znW+opqr71wnvuwAKS8IOI
+dHdxu6+KdGSl/evZOfnlnLE6rrPOydh1oMfNJQqTksvRTqHkr1lM0MNTnd0
2z/y+EPzZQ9NkPuIZOuXWxo5w1oLDwSFEDvy9Rf2+1FDVGjhGscuPnPUUNzF
Ng8vlmHGF0O3r/W1EJ0Ija8P0T8sET/PrIz1m4hg36/ndnxhMvmQIvuDVPNI
iPfO8ewDBeqse1beRwnM8uRQCyXs26pL6VuS2taRoBJ/hz0d+FUxCQtAVKnJ
XBki3Gky8eg3jvbDpZORDN632Ok5bgo8KJT/iOTrl1tadm6LwdDm1lXPFDEj
X39hX5SOo0JMZAFPiipSiPjS+FDq2VlyquOw504g+GA+9nz+fnBqwke7/8lu
O07W0lD1Zy66vpnLG0/PrASGjhM/VbiRHRO778rUtNQ0dn/8hbsvVbQv4KEA
s/qd03q0qv7MwM0HCiSB6cJ46iCXCqSftNY02e9ElXkusOdmVqTVQgD1IEsg
Kh9vkdfbimBsbHmlrtB/MBi76fy5YAV+cWpVUJ4ZXrkvLP8RydovtxSywrV2
KFC4Q4UmiRj5+gv7EvQbFaLa80hdFXn4bjK58r/fWlf00U3dcdugy3vvb4Wy
37ypmgmvOmfynook7kzv2DNfinQWx/btUcNDAf7iC5MjmW04qvjoZJVOwg+3
O75RKAnfLZCHq6C4S7NezPo+cajFJ75ZXT1grwR5Ra30KrH1yNNB7Oipa+0Z
9vhDc0vZJ+M7G8+ehoO+zy5biSeVlKl/rESvq/SqoJxtS9OUOCKZ++WWQm5X
19UJULTI11/Yl6bbqBCVqktbmdjshMc51NdpYVm7B64Muzzer4PzRdee4489
VhN5WNQZT+74yb1JONe3p6Z5+C8a2+/NrM3eHmpteHdCQ7cPolgbH2h4zX7r
oaJlOXktfHHCqcCefePKUsuyhPLIm82aNvePFXzhiEayVHP3J/6iW8O2Y3Nj
wxY2eylR+5deFZRxhleGIkckf7/c4sjt6op3XRORWJGvv7DnQ69RIa687qNa
afVQXKZ/HeFQp/cp+fUhHw9Vtf/hQTTsv5ouEaeM1uthWbvegebtSR71OtxZ
esyT0d5XeOxgkgX1Su/oE5wLUshNEJVMqmI2pj9uTXcpbvpHOvyc158325a2
aLKhzKqgUkekQL/cosg1PZHbWipKlMjXX9jzpNeoEFd+62Md5OGZ/nUk0zs5
C8U5j4eq608er09f+KljNueflStvAK3ak4fjxh90hryeVjDrjW0ku7fNdQnc
mLa8k3mWQquCSh2RMv1yi9icc78hxp2a2ogR+foLe770GhXi0l0enje9N/de
konN35/69nN73g8YqPr2vpE/hZaUbZwOWoU8HPROlOfL2yv+i8knlaa3vAuC
T7bM4mhvsv/VPqtqzKK//6jsq4KKHZFy/XL3Q9ZvVB93PZR9gX47Fvned4um
Pa7h5OaOy302q8Vy5vS5z2Yqmk5eeeTrL+z5UzwqNEEXeXgyvf5+wvcn+nO3
c9DWyPupNtXYecVFfz2zhBJQqATycNA78kpRbnjvPHKfqjUYjvb7y1u+3Vqg
u6oSl/M+/9re350czk6ZBsb3/icJKXdESvbLLSxnu7oSGyuIKeqkSre8VRz5
+gt7ARSPCk3QaB6+HZv/f37a5eh7s6V+/4lU+Wl3fctrjcTRnnAEnyt9IKAH
yMNB7yrPw5mXoZGjBkNFI9TXJwcPUYXKoZ8HHScM1OuusJwP55U8IoX75Rag
eMbFxGO/RpNmQzf7zZk3UnXM+aCyhtoVRr7+wl4QxaNCE/Lz8KpuX7mVfzLY
XJ752jPcdzo3907k12dtfYOOd7tb9t4ON3S7781nWovnjtc8MhxSU8N70K7M
BFjk4cAf8/PEe68p3Bum7rX3Jn7mlx2QV4oOz3wZD8HTsyoq7OyRSjwMzY5g
zvofs0B3VFWW6pRDf0dUCebFxCWuNbaiGRezGRiqzbyRCvYyZFQY+Qc8SNQT
FWqWn4er8w/FxB5//dllS3Z+vbHR0udw0f5ghF0KYOIRutOYX5JCtX48zTU/
efnD8FFi/2a7Z1690QuaEqUtOXGHPBxKUUeHRt4n/Mr7AL8IDZ8QNKq4kPTq
Yl6h6YsZ56tK9O7T3xFVRMwO8xUhphNW/cZX6XzJCiP/oAeJaqJCzfLz8JqB
CXUNroj/Erz+dktmoE+12fKuy/tdJLbnm8VtK85BVmTtrE28QyyXU8auL6LI
w0EMzLynPSfwkIdDKRpeD1e0PX5qyHjOc9u18QETRbW5wlvaPKHr5YjUknEx
c54z7BsRYZa6OiJfs0GilqhQNTXXhzPxpXvXMkPnTS19rq/n1vYJuI0I3W00
5KFMvaPEvgh21zN11HL5s6+wNxPEg/pw0DvyStHmnFGwHjW1HS9bVZjexWbq
oCOqTkeK0ccR5YwzUzLjWvF1Z95H5cXhu6qJfI0GiWqiQtXUm4czseBIa23y
LRk7RiYX9v/4mI2//rE9t194KnPv9y2S/yi+HPzcRd8rsJYOUBnk4aB3YvRL
EUdqrgp1wbuUOpOnm1Hs211ZE/RxRCrZkUcWJItSs6GSyNdokKgkKlROvXl4
Zu+b8bxrutjwKWbtnqO5xpCHahmaXFb3fSLoB/Jw0DuyKZyy4b295L1AZVYm
VT7EhCd9HJFKMi6iOFycMaMqiXyNBolKokLl1JuH8xKPeHsa8pNwwxGr6746
WjnBgYA8HPSOnCqocHinvm7HBgPPd3d/nRg4ppoG2uXTxRGRGZdykxOZCG3N
1KhSVlqMLWBqiXxtBok6okLttJyHM88fXDu7pyClpsl+Rzuz6SUaAQay2pOH
nxgOqWu7s3a8mPV94lCLT3yz+BzTyGzkcLfvFwXfCjPnbktd05lFb6fa+7bx
oosjShVOKJ5xrfn7Mm3VxJreqJbI12aQqCMq1I6c2SpDHs7El0K3XY5ktml7
e+T2wwpWrTcXvG/taRdOGTs8s+rePpxLohFgIKs9ebiiDSU0TR3d/Dh4kMpS
07pWsk1o4j08Tm1VO9Lj49nyRcX0cERkvppetpUfsxl0HM68h/xu2+VSTeRr
MkjUEBXqR/6VpL7wbEb977fWkS2+y570ur06eaVpT7Nwo/XTaY1tw5RoBBjI
KV25R0IeXi7myWjvK/nfbKVQr/SOPtHCxU4GO2v+t9n5DZTCM9CSCQl15P+6
XdrYqsaDHo7oF183mwIbTrvCG8J/AxN/9jjg/aOjz3a60Wioa2zvHnLdDi1l
n25vx0s86d5THM6sR+/fcTv6z7fUU4bq+pY3+4dvjodXhJydVRP5mgySyqMi
idmI3vffdA712c4mP8jk7EZLz6Dry2C0orbsqiFbHl4wcy7v1bZj059a80f2
aDEJJ4k7AgzklLMVJQV5OOgNOTRW4TETqcZ01Y2NR7WxVY0HHRwR86O7jW2Y
wLX14C87KMTU0vN7z9hkcGrce62vpa7G3Hl9OrYVm/nX/haTgTp5aXz/deCc
4vDPI4tT7p5mijKfvuik/alf6OxpTGZxxzpd3y3xLl5VS+RrMUgqjIpkBh65
6+pPBQZV19TlcH85MRUMBsboT95NDnakmns8D7S/GXBr3tMhQx7OrH5rN+/t
LVh7yv1I4E1dwSRcWzXhBYk7AgzktCcPRzUD6M+S18add5XdRpQtXmoZDuli
Q7QOjoisKBO2aszEo3dHLKlUN79H8Xbs8b91m6rNFz/6fXtd6Uw4WxxeZT7f
c95cY2x3+GbJsSMvl8Z/l1oPNLZfC/HN31QS+VoMkvKjImFrdfrz/qZUGk+d
6P/8wWpujsfEZm72vGIwNNknljSd/Mm1lLcedr2+Zy28prH3T3PCarkLJuFH
rNfu8b+3VSmRR4CBnPY8VFL4sT2ABJLLguy5V9k7TS4v0s0+Gh0cEZGsUjbv
Et9/lkjC79jTuVbhHsXbK/6LxB6qmjb3j/tcHsni8ORPNg14Z/c+ImcidEfq
91GnhkP8CshVEvlaDJIyo2I3WcY8djlTQbFP82pm42nQ83biZ3LGjGoSWQ4h
WR6+/cB5rMpQ1fXZN7ccPecsFqutz+H++rHApwnE58Kpe23I/0QPS48ijwAD
Oe3JwzXUdAiAL7LUU9HKq2ShrEG8hhgqoP0jIoo3BFzCmKVvLqWTcENDr2+f
/h8vfxg+yj1ML7L7knimXKxjQ7YGoLrHt8IrCVFH5GswSMqLit3d9dnPe83p
ZK/q7LUHhZLw1btDTWzFi/YfQMvR+jgdP5XcxDHPp90XzDlJOLXnkZN2iT4C
DOREnqVToSnsxh9AE8g8R9EW4pmEpPxtX6qj+SMi96rX9/mXef2jrUeejnSa
Rpl6R/dv2fA8MHiMzeb2L9okisMN5ssTq/smfdmch28JqDoiX3tBUlZU5Owl
rO+k5wql2C8jnnPZfFBDDwj2wcx72nPycAl6y6Tjp3YosFlO1szEHnh6mnNz
8GM25581XhBOEn0EGMgpvwm/9u/OAfYilwtq2z0/KXX+zeRR2r/4crR/RESq
THXyWzFef+zuyCxzU6+7wvvvOyQT7CJFm0Rx+NHhH17u/8LE2iPPpFoVka/B
ICkjKnaZxdFeUzrdo4yddKRwmke2Ja9tc81sifvG5ZeN3kwSIX6HzPXJwUOJ
P2xDjzciMD/ZjE5+bDOT76/abP29XpbBWeKPAAMZkdWDSUUqGAG0LFs+Z6ju
84vSnVm47RXfb6o09XS+FO0fEdkWg1+iyKyM9WfSrVIjaV5MDGR+d7HaBqIE
onjDMbIPocnmXSj9XnfVEPkaDBLhUbHLLPh62Qnpxe7OmHj025HO43V1xztH
vtXDkmx+YYoUH/RGhO5OJppUc7drkt8fbTs2980n3TnL4JS566pfaFW5Fog/
AgxklL1MpCk8bRBAKuSF9ZhzRpl9LGtBR7O+RtZq/4iylzDqsGOKx7R1snXD
oU7v0yJX9e0ZJ7uoWiTB3pxzv5H5qRLVJsRP8l91VD7yNRgkgqOCWQ9+wGbh
WhkYKpb8p+q1gwEefzGBmOfTrvOZNd+647bBP9D+78LLBV6Hif3t3qj7ivUo
kYFTdS29I7d+0HxTlMKkGAEGMsqU7XEULZ0FkBBZKPuGe078C0VpmV17OmrR
r/kjIi9h/PY3ZR6Rpy/v5zyRIlUkPBNsYpNOiYZj5Axx/msmSke+9oJEeFQw
P/t6uE7tWhkYKhaihidNqm4Pm0uhW46cBJtNsxtfsySkJyXlMLX0jNCBv6l1
Dbzy+V+70owAA/mQUx5SNHSqBBBmJ+w6nonzEsuY0r4BHe3B0P4REcW6h94L
lJ5wyKwH3jvEnS9LVCwQaXORn+RXu5KU7t6WIWB5WdnI12CQCI2KXWbR28l9
MlXd3kXNHKoYyMc06RsRSbsfM/Hlma9pVyZ3LSCRllv6HC7665llNS+AizL/
a1eqEWAgF7LaMKXc/cgAGrDz0HWcraJToFCWXbXQz5AF7R9RNiSoQ4OTPOY8
kpvsSlUsbE45DmeW54o8qSdqV0r05WCitJVb7hPUFUHJyNdgkAiOipwr6cHb
KEfuBRYenGK9idjiz5qZSi/e/K9dyUaAgUz23Ma2e+bxGYFuKdrciZ13puR4
cXFp/4iYOTebVZ9wBPk0W1vw2rjJPCXSZmIVukgNCdEfr0RfjkqSPeUiX4NB
IjwqXoSGT7CfzEGcokL8xdI01KBSfiLO/9qVcAQYyCS/rEuS7RUAqsFEPGfY
7r68ewKL9NKZJ9f6aUmk/SMistPmazN8BmTnVIYUr7WOR+lOqvRPEilciaf5
KxMD3EbAujMeYavLSkW+BoNEeFTkjOGQ+8SiCvkNH4q3/TnQRJ3/tSvlCDCQ
BfOTp72W+O5o6FQJUBZiO5W8pyNuMVOCIRfK0P4RbT1wNlcLS2vJFm01lyZe
FPlHRHF4ToLNxJce3ptZYhe+iYnGxXe3kftDTRf9vIb4EJSJfA0GSRlRkdMw
pM05w6OSRWeQS/Ak7vyvXUlHgIEsNgOD5FdHQ6dKgDIR7cWquugF2WZoPAsM
ptIt6oJ3SR/nQK0fEREJ/NNacuBC8U2axMp5bkl2clmbGFuczcOLbmTcWZt4
h31UXd7wF0UiX3NBUlZU5PSxOZi9DvKfrSs3o0HNxJ7/tSvpCDCQQ/44Ws2c
KgEqwFXKyTnMjsvKtDRSsCitHxGz6O8/mk4Zmp0PeIcBsfJZdPmaOLvmTrFM
/t1qiVkb8ShtK52HZ4PWQDV/OLVW1ola/sjXXJCUGRVkbYCgPHwzGvwurJnd
hUWkRzURtPKJy0j0+V+7Uo8AA8nt2eOs2HATADkRS14NHwR5NCUT4SXZfUy6
2YKh9SNiFujMypSx1xvln5MS/VKK5OHMs9DIaXbdPKfBYGrzZstwiFuPym6z
2v8vSUQs1eaYKruoRO7I11yQlBsVzMvQyNHMx81/i+JmdOxyE9XQ518s8+2q
CbErOZ0/ovghj+jzv3YlHwEGkiNv4ZPwIAkOiuyql6mDjkifiHOLRbqZV6v1
I3oedKR3RwpdGSYyrsOOYOEur+n8ij2x5jxnfBnxnKOOjoReEv+QK/ze5wE0
EwuOtNamftcRq3umoj4Uska+5oKk7KhIpKGP3Kdq+aRYGcyLiO/dJqqmyX5H
D6Ptd/eWuWpqfKoMxJ//tSv9CDCQGrnF25D/8BRAz5h45KY1vfAlx8Ig2+mi
xOlXQzR9ROSn/35AaI0HM+/tSl/RyGVtTjoJrz1paTenz6zkds7kHkDTnhyP
XSgr+MeMz/v6GzNJuOt+xb1/5Yx8bQVJZVGxy6yHRppTeRbV5goX67LCxJ89
HHW8YTQcbnd8o5MkPCkvo8BWTZIE87925RgBBtIiZkyk76YO4i5vOLi4LTPS
18pqrkq2JE0fUXZNuMk+sSQ8VWDiC96eZJ1nfpcwZiMy4ewyU0es1+4trc+4
2tLrg1zTwo0I3W0suPtvY9rVbky2UOjxLmQTMya+GrrRk0ruqBP99EORBnDI
FfnaCpJKoyJhfe6L3yYHFxr2W+Xe2Vh+OH7jfau5mjJ3OSciG7rKU8lGnUl4
wk4Qf/7XrjwjwEBK+Y33S/TgAtCdrbD7TGpPurGbjkg4dYL9rpU6/WqHlo9o
ey3wfmqVtsps/3a1zHPedixM9yebAFPG9sEbY5PBwBj9ybuWnPyK2QhftxpT
6bpleDTwZ98nvY1VJ+1jTwrt4mPiS/euWY8krpFm6/s30hOuXQOnk/+82my7
6p9bE/PsLEvkaypIRImK3eTTkMmPbebq5Gj1lt5hz51AMOG7Cd8tj8vRZ2mq
S/wH87krN+7O6WFvZr78EvF9C7cOINHnf+3KNQIMpJO/u7mq24e2+3DAMPEI
3ZnKlIq2cq0Qdw5sHAw8k+g15KXhI2LW7jmak49yy+86wv2qjafB267B7jON
dZShrrG9e8h1+y/RDXKhiYmvzviu2c+31FNUfeuF99yBhWKtNOIrYf91R9+b
LfXVBqq+xdJtv3rTfz8qwaqpDJGvpSARMSqSv20jet9/86q925L43FN3O42n
Lba+95zXv7w7/SSmn0KUPXKmzxgwVTNL/Plfu7KNAAPJkJ9L8kRhlWO3GoDa
xJf89lQdb30nPSdN21/2iaR+ngZq9oiYlSlHW/IaV2Vx/fWAd9CVOvK1EySI
CtGw7eKRV+QRf/7XrnwjwEAi+fetxW+7APSLef7g2tnkl8Foc4eluAqnty9R
poFxvVRLavSIuMyzsd83fwBHreSTNvK1EiSIChHlN0NGiXiG+PO/dmUcAQaS
yK/j0sQ+GgCJxJ+M2U8mH9I3XZncfy5wuVKVgdSp4ZBurkhaPCJma9bTkazE
EKXriF5IGPmaCBJEhdiy4x0N2ngaIhPR53/tyjoCDMRHdnQ3lByHCqB/me5w
lNH66bTIW6jiy6Gvbn0d1tFVXnNHxMSjd+zJbZVIt/aQKvLVHySICimQfaoN
mtgdIAvR53/tyjsCDMSWuD+yGolvSsEuuAAHTGZtUIpUHJTExELXkl0BkW7t
40BGPqJCGjmtObDKx5Jg/teuvCPAQFTMoreTrA1vvjZTbOgAwIERX5gc6TAa
apoc93BrqhM7P9Hnjojaf1uPDlrkIyqkQ+4KTNibPR5M4s//2pV3BBiIKL7o
7SbS8OrciiOAA25zKfSftybmsHSgE8xS6Msv74rbf1ufDlLkIyoklNc1BQ/c
0ySY/7Ur8wgwEAnz1NuZHa+qkYnDAAAAoH5EDUaqNKXB8T1mdaeIPv9rV+4R
YCAGZoHuIFbDqzroBXxIAAAAIIqdR+5Ttdk849B7gXXkGRniz//alXMEGFQu
Ve2f/Xoc6fH9jA8KAAAARLK1QHcRC37HBiZ+VfotAahDstqf2Mrc8EEQd6kA
AAAgorXxAVN2za+q07uIXAOA7CSZhMlKAAAAIDq2lUdmJ9pZ9yxmdsOBxyz6
+8nNE93eRUzxBQAAAJHlbkZDI3GA/C8FtjADAACANJ4HHSeyS3/7dd4DOChi
oeEWYjG8i15ATQoAAABIInf1D6WwcKAxK2P92U0TWAwHAAAASeUuiaOBIRxc
uTsmsBgOAAAAEmMWR3uza4BYEocDKncxvKZ5+C+yLYYzG9H7/pvOoT7b2Zb6
5ISo+hZLz6Dry2AUd8UAAAD6tv7YTRSnoEocDiJl9kowG5G7rv6WumTyXdfU
5XB/OTEV5Ka4GqjmHs+DGHJxAAAAHVv/3tHAZeK1rc77G0q/IwA55W6UMHXQ
EemT363V6c/7m2pSXUNP9H/+YDWe85pMbOZmzysGQ5N9YgmZOAAAgH5tr/gv
mrKVsTZPBJk4HBi5PcOpNld4S+rMdzM6drkpXQVjPO+afr739ZiNp0HP24mf
qer2rUj8bgAAAEBJzIKvl5siSJl6RzFeEw6G7bXA+9kBmlS7czom8Suuz37e
a04n4VVnrz0olISv3h1KL5Un1DmCGCUEAACga0z0iy4jt08NT8PhYNi472yt
lXF75vbq5JXMSrihvpOeK5Riv4x4zmU7txx3hXekfU8AAACgtI0I3W3krv7m
yxOr2LAJ+habdrZzGS/V/OHUmrQxT7QnooyddCRe8GZ3fcbZhhZGAAAAB0s8
4u3hHtFXme3frmJNHHSL2Zj+uDWbhUtfkUJWf1Gvu8L7Lb0z8ei3I53H6+qO
d458Gy2cqwMAAIDe5BSmojoFdCynIsV4xh2WeNmZWQ9+kL3L7aAX8NUCAACA
HNuxB39o53q4me3+JWwSA91hVqYcbexaeJESERFf8WdfzxH2e3Wkx/cz0nAA
AADYY3PB+5ZJzhQFQFbxJb/dzBWkNF2ZlH4rBLPo7eRub6u6vYu4vQUAAIBC
mGehkdPsamFt60gQQ/1AL5itWU8H1xrIaHOHpW5UmLCz5n+7msv8rXQUXygA
AADYT86ezcZ+3zzW70AHmLV7jmZ2BwTVMjS5LEtG/CI0fIJbDT/mfIBWRAAA
AFAEEwtda2cbGe4zcARAS7YeeTqOKHF3+Yuv+zD7uvV9/mWZXhYAAAC0iolH
79i59inGLs+sxENOAKTD/Dx+6SRbj3LE6rovY7XVPG2pY/PwNucMvkcAAABQ
UiIV/8bRfpjd0XZ5LLqp9FsCEI55Pu06b1QmCU9Y9vfVs3m4jY6iyAsAAAB4
YWL3XdYjSMVBqxROwhM2wq7TZeXhm9Hgd+EYyskBAAAOLib2kO4/kRnIfco9
u6P0GwLgixigQ520jz1RYjGaeRkaOZrJw0+7whv8/tVmdOxyE9XQ51+U9t0B
AACAysWjwdu3aJq+9XUYbQxBO5hk5CYCl/53/8yvilWE7Dxyn6pN5eGHOr1P
S3+BmBcR37tNVE2T/Q5G2wMAAAAAlItZD400px4pUW2u8FaR1JqJP3s46njD
aDjc7vgGSTgAAAAAQGXW5774bWMyFd9vlXtnY/nh+I33reZqytzlnIhsIAcH
AAAAABDBZnTyY5u52mCg6lp6hz13AsGE7yZ8tzwuR5+lqS7xH8znrty4O4e9
mQAAAAAAomI2ovf9N6/auy0t9alCFWPjaYut7z3n9S/vTj+JoRAFAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAcv1/6a9egw==
     "], {{0, 167}, {984, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{339.99999999999613`, Automatic},
   ImageSizeRaw->{984, 167},
   PlotRange->{{0, 984}, {0, 167}}]], "Input",ExpressionUUID->
  "6d135297-898c-4e98-b15b-ceb25b23d952"],
 "and ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnW9MG2e+761735wX8+LykhdIXFmWeBEpipClmwhV5gVRIiSIWiGUP7JM
1FyD9mQh21toVoFUG+iqndVpjbYxezbWtlb2xDmno5yNswe3xW1xKpwW79Yo
WFmngRyT4AZTIMhBEEyG65nxjB//nxmPPX/8+0itmsb2zGP/5nm+z+/5/fnf
Z/tf/7//Q6fTvfVPyX+93jPU+qtf9Vx8438l/9D1y7f6rL889+bxX/6/c9Zz
v/o/Z/9n8n9eSf7zIPkf1H/vAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAKARyc+HOWMfh3/g2X8l9K1Vkc3r48Bsjtx7ESbnvBAAA
AAAABQICCagoieWZ8R4Ddnxk6klC7nupLvGw02rQHezGv44mwM4AAAAAAEAA
gQQCqaIknkyNHMdq0cBoyOfzjnMGXUPryBdgZgAAAAAApACBBAKpoqS+4UMW
x5xEJw5kIv5k/u7kTYdtdLDXfKa9GdPpdPXN7aetg7iD+HouupXnOsnbcPa3
DU2ti7hgYn3B/1/X7e8NWk+3N9cnL4Y1t5+xDuEOt39hPeOpIX+eHTcfGZ7e
zL762izeieka2vB7m2BlAAAAAACAQNoHgVRRdpbdbzfpsKYB93LZexxyeyU0
fdM20KHXMSTt6s3BUdzmuEEQxGdOOz78iw7KBprah/4ciO0gb91acPUZdHVH
bD+8FHbFpwECtxiTn2lotV6+6vyL1z8bCARmfR7C+fth85Gk2ZgGnKlrpZ6m
+qOOB3mCunYfunoO6XTNvcRiLe52AQAAAABIAwKJBQRSRSC3//Gn7rrkbz7k
WSnre0V+a9q0un494faHV7fzWG1yU+b7dKi9SWfoGZ9Zpq+6E5260kptBg8P
+9Z4X3MvHr410tGUvPuOkZuBvJvH/d31eSL5Gsw0PLn0nL1KGx7I3ucxg0hE
iF4DpsO6xoMbsNsDAAAAgFoFBFLGIEAgSc/2nL2jMbm16XMvif9Kya3oveuU
zdDWZbTgROBpPtvKfFP8oXv4OIa1j808WU799Dpd3VuetT1+V2XNUv/G2OeP
i1+OjAfGOxqxFtNrdcw9XvQWzG7ejrisyVdhbR/ObvK8EwAAAAAAtAUIpGxA
IEnLVthxKvkrYZ2O8K5IE0uayp3RN1JnK/rXR4j76/yPbJjTjUa9Hkudzeg6
nYu83p2ITY+10reOz67xeAe5G3Z0slep6/cU20ymnrvGDvvcNs+BAAAAAACg
HUAg5QMEknSQy0QPtfE5MuRdEWVhr7YjkyOtDcwPh7Vedi8IDdgnE5GbljrW
wHR1Lfb7PDZX5O6Cq8eQtBjDSWd4l++lnrp7D9BXaeh0/lj0PvfWvJeoXWtd
j/PRFs+PBwAAAABAG4BAKgAIJKl4HsCPUV/5kfHgSxEmthef/8RiYPZOmMH8
8Ux0p/SbityGjne8ExkheuiTncO/C+SNcspPIkr00rfbaQ+Vspzd+/a2+uS4
mnJzhAEAAAAA0DIgkAoDAkkK2F2e/qSL3/lGBqiBJbd4V6ZEGhh1Iy+D40d0
/OOdyK3A7w7TcUv5E3gLkwjg1KlQw2Xfi5IjfhlxnaWGV9dHLPPdSgIAAACA
diETG4/8nv8kiBsOG47jvx3uP2s2n+roGLodEa0BlAgIpKKAQCqfnQXnGeo7
xM66IoIK3uwjhx00hj7XQnlHEi98ww38453WfMO0ielaRv3PBV2HsbES8U4s
7DPYeML5sJY61AIAAABAXvZi7vNchHIaAQmDqgAEUglAIJXLyx9sR6hvEDvp
igiNUlq/O8aGOUlTMZJ87Opu5BvvtBe0HWLM24QH4oKuQ9tYyXgn7q7YECmR
p1FArfGzb7i9feDD65N3g+FINPpzPDsBh0zEf44uhYP+KeLab8xHR30FM9AB
QBWAzdceifhqNEkk/J3DWs8KAb4JgyoBBFLpuwKBVA7cAQfvLzz91qj3HVN6
+2u5GZGgh+kSYdbzjXeKua2pLeaBXvdTQdembYxHvFOKnUXnafpC7bagMGMG
ahLGjPmBHXtn8jEc4wEqB2y+htn0DqZEOM+EQbUAAokPIJDKYStk76S/Pf5f
OENixTPUlJ5UTznCkuTG0jbG8zwrSpg5Cz95/ZGAwkHkVvCPPT2OIO9Uhb2Q
vYW6juDYKqAm4StIMGOfPdWCAQBUDdh87cKujzqBHWSUDwgkXoBAEg/5o7OT
Pi7hFYGPsPU9fpgrl4M1DU3xKUBZmlcPHEfr+Z5npZIHGA5ZJu7FJNhpFkBY
LBZQ4/AQJNgRC357fh3cgYA2AJuvWThHqOYCwkEg8QQEkmjWPP11Ir66nYjr
zXTFSgnPIF49dl/su+h+zG8zteodbEam+Hqj5f0b06FovAJellQsluYmGaAi
0ILEdB7Hh6xdpgxpojd194853PcWNkCKAFoCbL5WSZeV1umOOsJa8oSCQOIJ
CCSxUJH79M/TOOoXUDcnY5enw044F+R57rgKPFkYTOZB3EF4780/Xi/ZEpYn
8QBuoj9ccI4DUHvQgsRMRFN/TMRXf4pGoz9tSGWNAKA0wOZrlXRAOHYQn9VS
dUIQSLwBgSSORJSw0t+boKSDV5u+d9PBTiKLZ0oEuToz1p6nShKy+2vu+OdR
h9sfjpVnbbtLrh5mvGZiSarbBzRKliABAM0DNl+bkDsB/GBqtW0e9K7KfT8S
AgKJPyCQxMFtXgQ9O1zxSYYuR3i7gvdYksQT79gbPDKC6o3WCd+SoLgulFeb
3ovMdl+PByCrSG7IRPRbu7WlzuqOyX0r+QBBIhDK5XSgY+RWOA5HmYUAm1c/
GrTz7bCjK7XGYr1EVEtrIwgk/oBAEsczTz+zhRVygrAzix9EtlYt9pDs0wn5
Ysl/E+89WtrSDOcc88/FmRmX5cCzgj1QMdgeZNjxy9M/KfKwGwSJUOJhp9Wg
w/Qd73vFd5TTMGDz2kBzdk5GCIshtbxqLCAcBJIQ1CyQ9uI/rcTlmVW5fHYB
5XfIJVc38qM1DPteVPQeBfBqe/XHgJdw4INmkyGPgdFgrR/MrIt5Kl6FHUeZ
j4CFRk7SamRk6olSd9wgSIRDPp93nDOU29lZk4DNawiN2bl2A8JBIAn7dNUI
pL340t+nXPaxwTfbm+tzxm/sGrS5fAuiNDmZWA19RThso4NWM0PvkO2mb3Gz
4IelGypZ+Z8iZZS90TV2ux4r0i2TiEfDAe9fnFcvW1uz7K2x0xESk6XPVd1U
wt62RmHViCTdxyqIhgXJq+3o3z+/9UUgyruGLH/YCEaN6BNpAJvXHCqzczKx
8cjv/hM+aO1Kijem1s2dIF3vTsMB4SCQBKJ4gUTGF3w38N7s8RpMXWfM5jdM
ejR2HjOYP57h/2yS8Yj/M9xyJH/4PdbS65zLr+rT5sLfxvZi7vPoWcuo/znf
+5SLxFp46qrViGx5xDVX5WwMYp7kgUwsuweaktbX0Dp2d12RUxtLriBJxFeX
wsFAkmB4abUSRaKqAbkdcnQzk1XRh4jcjs597sQZV4P+aO/Ed3x/r8Qi0UuV
1cLaPpzdVORUXlXA5jWKWuw88Sxw/WI79cg3tQ985JqaCcxOuycG2/UNxt7r
8/EX2g0IB4EkEOUKJDIR+4HAzxrZHwZr7h60/Xny7j9W0cLp5ObCrXeMqHbu
dIRLdzjaiy98/hErv+lPdt72zgTmluLxpaDvL/b+NuqvsBO24Gaed4uxMS5f
mEHCpIPkjP1zvFLF5MlEhOg1cA9Hj2tJ+FZPuTZWE5Cb9/A2qh9AXfef/qH0
smecICETG2GvYyT7+I868xq/FXiq9HFksxnA21JDaBzz7+S7++SUPvmRxViP
6fWN6fGed8f4Kg1y/ZsRYx3li+glpGj0rGLA5jWM4u2cTETvjpvpEn2GnvGM
Jqd78Uf/0d9Ub7xk+6CjIfX7ShMQTlIu2uBdD+G048P9FrM5q+Z8QRh/Zu/g
KG5zuNxefzAcLVdOgEAShCIFEhl/4ObkN3bEfOXTz0OxgneXjq1iMI36N4p+
+vOQ620T8+GGU2PED3naISXCzu6kGWGHbME8S6AEGz0BxzTFISOuk9gxW7By
8VNbYccp9s5FlbJUpI3VCuSy5wKdcm7ocy1I0v+3otCC5Mwfpz14t6FO3z44
4faHnzAlWRPJ/bHnah89LTSprE4C06+NJl/2DVu+w3gWJwJPZn/fws0T9Re9
m/xX6L3N2Q9p94Gh2zEva2UBWQGb1zhKtvPks/zFSCstsPMn6+2teS8hhfjK
DAinLMTrsg2ZW/lJbn7oW81DNpd3LrotansAAkkQShNI5POw+7fdzM6C6tV7
KxgrbqHklv+9AzqUYtFEZPyhe/g48+kGy7/OFvxwtsZO3lA9CUKepLKxlxHX
WazpXV/plToR8wwZT91YFP5U7YXsrCoQZcycjeXf0gCVYztC9NNuNcNJZ1gN
XffYjB6sbeBGcD2P+2InOnWlFWOe30/mVaJJyChhSU3TuYVzd6IzH5sNBzpG
iFRf8s3p4Sbm1YcszpAwjUGu+cfoLB+sE5+VpuGz2gCbrwGUaudk7OvLjALX
Hb7gWc5/Yy9/sB3hWtIc7Pc8E3OlxFp4+gavwh3loO8YGL8lOI0FBJIgFCSQ
yERs1jlAb3B1Dab+P35VJDWSYzfk6GzMsptCNc/J+JzDwvRxamgd+SJa5ISC
7SdboN8Tl/wr4NAkM/lX1LFFLtTj3HAY/56Hu4fuxCou/YczEiGH4xzqSf7V
GOTugquH3s/yi9FSAsyTZRryLBWcgrn1V4c1DbiXlXgenUW6Emz2jJF4Njvx
pgE7Pux+iKSfMCmcd76ai4qIQGAP6xUfNFsRwOZrBSXa+e5DV8+h1M90YXKl
4K/03D/KHXaddi4KdISTm4tfOQbbEW96pcFarFe9iwJ2fyCQBKAYgbQTm3X0
MiHuhtO450d+dU62Iy5rnS6LNjyQG8hNJqJTYx2M3Zb2J5DLRA/1uQYLEcl3
I8tuK/NRQk4fkCNpifIOdqPuCwbslCPMw8ToIpzijjvST4eo6DU1l8FUM2wG
U3J7jgcUn+SSYjNoO3Ni/Pvi22/28UzS3OdeUrwieRG0HUs99w2XfamuDmRi
PXhjoK3O9LYrJLLAbAF2l4k++utpaLP9TfnRGFICNl9DKM3Otx452Z+o+KKM
VggXVhAjI5eNxmAyvz1mdxIe32xgLrwUjUYDjq7GTEV0zBZ4thploVJ+Z/3e
O4SLqgh3rr25aF/INFjrrz+b/5mffgCBJABFCKR0kHbxEJHst2WGxLPkS1Al
44HxDtYyjSPewgHm9KtZt0PTJe9a3idEXEOoFyH76+xd1h91PCgzG4NcmbzQ
VM9vl5fabYmyMfKF7zJ9wFbfZr8vfHcKDaFkIbHiGaLnQczQdzuqsTUbXcUO
/y5QgZp/UkL+6OxMJWGx0+xOLOAcMBmMvZ8G1ysQMbE9Z2emO54LkEYAm68x
lGTn5NrUUCqKTFfXQxSIRKF54RtmkzIFVMNO/Dz/2a9bU1fAqNyBO4FIbuWc
zKgOmuKhHa+21/97/u5tB/5WV27x5yz41tsHgcQfBQikxNNp/DQ9uRzsxr/O
FyJCJmL3797772zfOLnk7mvOsZIjQ97sUyAkCoVPCFkiNj1Gm3qRkEIuk1dY
NUvEm6HDTjgXyjEy2ufDuz588oZ7MZG/8s++YfrsrK6PWBYhGHYWnacZEysU
JgRIz9b3+GHG1FTkEuTPVsjeyT7yiq+yu+bpTz31DZ3O8FY0QIydMmAtvY7v
8qSESwPnJCylB7QE2HzNoRw7R7PzDvS6nxa5FySEmG9AOJLLRucOOGcLTh07
/tHGTE1UqBxTLnSc+QeFijanrs5Hh4NA4o/cAinxZGqENq2kXbnu5w9BSaUp
ZUVxky+D40dy7COPAyQRcQ8cZl/Q0IbfK3rqtxP1vt9B1fbEDD2uhcIhhdx2
U+Cvthm0nWAtvIyVgvneBHRKpeOdknQ6F4XNVGQictNCPReNHfY5UXnoXPyb
qMRhQAzKWZsqREY9q/pBb75CogqB85NQD5HpjQ7q9NdwGp+cW4qubIgrPsCH
tCI9OuZXUOZaxQCbr0kUYudbM6MHuGLKZ12Rl4VfyokuHc+A8Awvou7wgDtS
THJw8ckcQmMkyK3ovetDRWLOeRQdAoHEG1kFEvnT9GVGgRfdW6UjhVDX9Ha6
1n2anF+NXJvFO9PbOuMVX+FtEVUXcewU7ZPnkYTOebe6XYLi87gCttRlOj4O
ikh1ZwxMUCNmOt6JvqTAYzs2xlJ8uV3ysau7kV4a3/Lkj+0BpCa9MLUM+36W
+24qQsahq1IbjdGgDsxcML3pZP/Ixy5vcEniniw7C84zqSKvZfqUVAHYfI2i
BDvPLNFWQvSyeo/nj5jhRcSahqaK7zQQNzv7Hqs7JnhESTn0oycVopCHupPX
HxXPegaBxBMZBRL5fN5xjv6JS+3s0pm2qNHuLrl6si0jnfTEwNWqYiiUz0J1
Bbo1fqE91XyzUFRM1pvYOM/si5YeOZe/X7pISzavtpe+oboAJLd4QZ4pEvTb
uPRbQQ0O2HOKsnoEc/Fv0rQkAEqyt+Z5OxXbp93Y0QxBouT9HRIQjpmd86nE
qO98HsJ59d3zHUhWlOHUmPsBv4R0fldOn+1qMjwDBWy+dlGAnaMb7VJ1vzm9
xysgPP4PhxkpPfG6PVT8HeSOf6wxUxaJjzROi7Rc8sT9Zr4XBBI/ZBNIe+sz
HzBx190TwRLrDrdToEinGNBR95mxS3X97hXui9+LBz/uQP4+X8Wqnaj/z1fM
XARUvdHykWeBR11ECu65E9HaaS8eJoZS1UQbTAP/xic5i9x+Grh5uUPfYLT+
YUbYL56Kd6Lcbs2H9EnDHnYvlNpgkvEHxNCxcg0svTGva7HfhzWjGrx66DzB
PC8S5LZUD/J5+NZvLaYmfWsfPvmo5BNVmaKyFSAdEJ7359jdCH951drCTkGH
elwPJUvUZOusUtce8Gg5JAVsvpaR3865YiC6kuH6iN4rGRBO7oYdnaiGKe3q
z+o7qSs30riwDi91MyCQeCGTQCITy+4BSj/zK3mKpBJnzjx78flPLBnVUdLf
HlIzn4ELGNtZDc94bl7D3+5OO6H0R62jn/IqS46Mgg1K1590CQwjYr6E9fvE
yOupSVXfOeiYCq3mPc+gWmJ9/ukVs7EeM57Fb9/P182hOMz5Fx1js7k27zxv
xHTURxHf58mtpow5Ouf52EqVi+Rr/4Xh4t/abUEICK8CaK6EhJ1/K86rBScX
C1gqqJIiQ5CIqs5aFVDHVN7SqTTpwnpCW2QWB6lPzuMrVS1g8zWO3Ha+d9/e
wrmri4d5c3qv5CszNhc0rSO+WEm1lK6GmqLsWn8Z8TAoxZ81EEh8kEkgcVVN
ikZoc6/OiLbKzvNFq3+z6FvNgyODXQcz/mfdUfM/93SZMrd0Se1NRWOGVsXV
KGD7XtX1uosezBRhd33+zvhABzu11jd3/GL4g3GH6zOC+MzlGP9g+Hw3dc+Y
vv3C+K38JlEaeheD7Nd2N8KTtlSnLYOp+zx7ReIz59WxQbOJCsupN1pwIvBU
XJRTGnLRdZK+Tr66kUAFeB7A2UlYTfE/e2uet5BT15IpKmi2oxIajRUCSV0p
Fj+ADidn7GR86cETkWEqaT984wnnQ9WYgzDA5mseee0c3R2ViL5AAsIzfkEy
EXtwL5RROpnut85+rOE0Pv2Ux/L/zNOfqXyk6HpDRm/35daCztP8NxMQSCWR
RyDtrXkv0aKZz7aOSt70DHB5wQVSwhMrwVvjA7waSNFpUMMfOghvYKn86Es2
JSQjDEYEr7ZXfwx4CcdHI/0W8xmmeL7e1GU+m7rVh7GyfuvVyYHWoduRrE0r
tX/8iqDK9VvNbzB21dx+ytL/7tXr/+UPl3dFFjZaT1z9TEA46SR9lcX/ZMa7
lqz1lJESIqDWbpVBazsXzbtHhp8txujzSrGxB6gzTU0CVQhg84C8dp7u0l7q
6ojPPFPMrPmGD2dmULJ7NP3RXvxWkGfzlIx+N4yhCA3JzgtawTtNqeYyIJBK
II9AYrvM86siRW7P/wGJ6y6R9k4mvzXf5I3R7swemlhT77VvZn8Ir4qP2yl4
xdR32NSTv7FmjfMy4jqL8VpfAElAj40KBz8oEjJKWLDkHrnLOjR+K1hyyqbW
LPYBN436N6pyj8LZ9A6mlsTi+hB1imZ5rmhfunhdgdZDU1OoBm/A5oF9ue0c
qR1RtPM40pk9sxk3Jc4bs9IZyO3og9DjmCDvbkbsLo3A4iQF7xx1y3OUmpdA
IBVFFoFEbgV+R88j/LKYE49clrR/O19mZQ5cC6302yraSyt1Esrr3mqN3fv2
tqQEqePZsgoomw3/qCll9lKGFlcFMkL0NPGt8IxU5a2z3OSbzF5tyJ0Azp4N
Hx72FXEaIVErWbUMKNeWvhw/CZIIJi44U+GAzQMUsto5Uh2liAgnN4LjXayS
zdgp0DcvQVQwuejMKofaOOqXxvmIVHlKU7rwCgikwsgjkFITJr96nlkFBnmE
r2RVBaenq0oPkN3rabY4rVjYuCNwg1cN5KwTsxBqa9tNbgXH27CSBUv3qZnB
ZU2Nk0fbCPlAvHNYb9F4EuSVGYs4uRuaaMPOOBfKWEiRDnplBGcqFbB5gEFO
O0dSgw/igfztKXeiU1daOXWSkSFCe0QliArOzBqgNbighpVFydfvgEf1QxBI
BZBJIKUmTD5VpPbi9/+IhJU0tI7dXS9hTFzZQ1SDV2GA8Xl7NwZ7vSxScUeN
nY4QSPDqgLhBVBYcm4LxFNWdHv/+WeGpHamJhB2/PP2Tgh85JEmqxLktsnqi
Ipxc8Q61lGzPUQqkfprqfMWlAJsHWGS1c67cRH6HNqPAG4+bu40pRYOEalMe
0SYpFsrcDobHbEGpUgey8oj5inAQSPmRSyClApZK18zJLDDIo39l8i3r34wY
s2ykSn5+tsfT4QseLXZLFkNixTPURHW8+sO8JAkMQGnQSbJErVqhkNsroel/
vzryi45mLuvHYDK/Y3NNhzdETSHkXmIvb7mpp9P4aQPWYr36ZZ5PTqyFJ/Fu
Wo1gxvOfCmnHkH39Kowo7Zor1b8jydbfbEyfuLQnbSfquWSs63E+KnMOQ5fm
TntIS05UsHkh16/aiORBXjtPF1429LgWELVJbkd89j4jdsgycS+2lcqJQ+oT
0if+TZe8ErReQkqvpBSQlB2dMsvU8xfhIJBykU8gpeoIlajFRMbnHBauIgov
BZ5U7b6R1iwD0RkuuKPV2WSwjYGkeZRUT2pDhHXb56E2eNV47h/l+hWXqkDL
H3Jz0XuVrolaAP0bo3ceCqs0RHuNCgYPcFekKoj+3nnb6w8EAn7vbeeHqQpI
+mP99nxyRWkjihLm1CfySaPjvJ36jhHX9PfTbvuAqe61gduPy+7IglRRlvJ4
WgmAzSt1RDIgu51zLWYwQ/fojamZgH+KuPYbun51n90XodUWuR2+Tj/mmMFs
m/R/67l2wVQnpMF6seuj5cppilZkEkoeEZ7uYF7izkAgocgpkFKVfIrkTWTV
/W4wDbhCJRU4u63IpMp+/q0FV5+BZ/shbUNGve+YdLrmXmIROrpVDzRxRpqy
VOmmYKU4ZHHM8V7BmezsEo8n47Wzjw1au0ypeq1dPf1UVf/gkrhisNUf0e4j
98jJZsPR3vFveRRj3adrBf9wa/ziufZmDGvu6P8XonTFDF4gOWvaKm0HNq/s
EVUZJdg51bfxjmO0/yRV1E5v6u4fc9z5W3Q7o+pJYj3kmRhJPebn33P6l6VZ
KGNua8bPzOMATghsb0eEoqVgMgGBxCKzQGK7KhgveXIbfVI9fN/t0LNmhLUN
uO7zmRPy9K9Pcvh9/2Z191zk6sxYOyZsKtMezLPW2DEeqOEvQQ7Q4lQSVMpN
boe/xrsPZj9WBeE9pdAVIeRwiWhvRLxJtzKR2DkmM2DzpS6suREVRat2zovc
rMyD/Z5nEl4gxxOOCWsYBQKJQn6BlA721ncM2FxT/sBcZDkSvDvp/KC3lSuF
Um+0fORZ4NdEnlz2XMjtqXpkyCtHGYDEk6mR4xgm0emS+mDSTxpaR76I1vhu
t+qgxakymz6I+rT1u2OtOQWpKAym9teyDyVTf9NPZPc7yPPBtANNhuZN2huR
ANDlM7vpsIoBmy9xYc2NqAQatXN+5GZlShegRUHu+McaMz5fuMgHgaQIgbQX
X/jraEeh7pZJ+f3+Dd8C7z1CVhlDBszQd1u2QLXE8sx4j6EWzYwxsIPd+Ney
GtiLBc81XClc8yxU6VAUXX/4pcsUZvehqyfdppbZL3uDi0jbiFfbG0/DAc+n
VyzG9BkUVrqOB+NAq37VSu2NSBhIMxHRzTeVB9h8MbQ3otJo0875gRSHYeAb
sM2TRJSwZgotUSIfBJLMAomF3Fz00cFvZgam/ejXoRJNLddn8Q4esW1FqEqj
MXJz4c5Yx+Hf+LRVDawEm9PDh98YufVA5pOmPNkjclKuNuA9bGSGbOh0/ljG
j5CqKEWBtfVf8xZNB9uLL07ZzOxaX6KiNeNAq37zJu2NSCho2YQSefHqAWy+
CNobER80aef8yOmVKXVUPJoETSM6AAwEkorZDDp+ZeZIZa9kYTB1nTEXwDL0
b6ULrQCqhnwyeeG18nZq0oG9dmHySVWeObSTgt5MLIn9HHJ7/g/MRhdr/TUR
fs7r5plDRupNRZdmeRxo2huRCOIB3MSah8Sl/OQDbL7gVTU3Ip5o0s55gSal
0kgcEJ7TMZNPtxdA02R0gOWoM77zJb9CBACgJdDVp3iH9KLshp0nDfTafWUq
N3W6CIlFopf2QTW9W8C/IZMDTXsjEgPSkbMsvaoowOYLoL0R8UWTds6HRJTo
zayMUrxFr2DIFXcvWv5QobswoGrka45JHbt9OFvliigAoAgkOYdlG+k2ve1e
FhzsxxYpKuCAopo/Hqn61K29EYkDjdyQxYW1F49877lFEC6HjcqVuDJotZjN
J7vOfhoS36obbD4v2hsRf2S3c7nIadMjcXGYxIq7H9HgPBIHAE1Dxr58J7s5
pk5nsDrDtRQDBgBp0IwksYLk1UPnicYyKgvtLhN9yceyftC7mfvZC84TGNY0
PJ37VxVEeyMSSUZSVbXyFFByssYYyqorCDafD+2NSACy27lMZAeE17XY70vp
jmRikNIa/JQjrMiTEKA6cEdmKLWYbAsAHOULEvJlcPxIcvruIcS3Ft6aGT2A
6eoverPPsukGAdWeurU3ItHILk7IRPznKMVC8OaQURqpADafi/ZGJAjZ7Vwe
ctrotNuCEjokyd2wo1NQ/RxAw5DP70+cyXWCd08EVZ5zCgDlgAqSHteSiMNi
psxsmeWDmG5cbXggw1VGLhM9deUJAzFob0SiyWjkIas4QasNlxHITQE2n4v2
RiQI5dh5NcmpEH7gPf+WdD8SGfONtCJq64I7qsxgJKAK5A0Fl73yOQDITvkF
cl8EbcewtvFgWbM344jLisZ8EbK/XqXqoBlob0TikbKkdlkggqHuLU9Z/RbB
5nPR3oiEoRg7ryLkouskWigOOzA6I91ZRZYbXK5m64ASIBMRoteQJcExg+V6
eBsUOFDjKKZLBR2dWNfvSbs4N6eHmzCs0xHeVedzqokRKUWcoIKh3NwxsPmK
odoRKcXOq0h23RJpazNmRP9iTQPuZXB41ipkPDDe0ZjlBMc6Pg5C3W8AyBAk
nfaQjEGbdAreIVsw9VwyeV5NPUREtXO3Bka0t+Z5i1uo5RQnax62yEL5uWNg
85VDpSNSjJ1Xj4whU+QJ5hdNRkdyrPWDmXWQW7VKYskzZMpW4EKLoAKAZpGi
UoQ00C1UsPPuGD1dM7UaCpYdVgUaGJFCEtbQkN3yAxvA5iuHSkekEDuvJtnF
CfOWtREFubvg6uFiD6D6XC2TLxkTFDgAIKAl4OQVJHsx93ks5ZlUeGsPnmhg
RAoRJ0hAuAT+OrD5yqHSESnEzqvIpnewHlVGksWikOt3x1rZHTPWic9CQZSa
ZWfZ/XZWhVlQ4ACQCdo9UF5BwoRltoz6n+/v/+wbbtFhZ5wL6n5a1T8iVJzI
10mQjBCW1OE2ZiGi5S7qYPMVRJ0jUoadVw9yy//eAVQbSXRaQcbnHJZDrN6C
+s+1TJ5yKIpX4JXoDQfw58WC5xquFK55Fl5UZdSoIDnY73lWlYvmh1x0dtIr
IJMxpOyaZrxQ/4jo6ALZxUnaaydJN0Ow+QqizhEpw86rx4Z/lHsEdFLVRclQ
4IbT+PTTCihwMrHxyO/5T4K4Qeuk3w73nzWbT3V0DN2OKFnd1Rp78flPLBnl
UDB9x/teRSvw/cr0hgN4g6bHK4BqHYkqyQUUJczUPTyik7kODXh+UsHqXRzV
jwjVq4x7s/qQOwH8YOoesmtQiwJsvpKockRKsPMqkh2LUn6eBZmIfo13px5T
zHjeOf+8Mr87E++UQ7llSwEJyaPADZZP5oXVQiETqw8DgYerVS2qU4necABv
yCeTF17L83TLAvbahcknVTG+V5vei+x8jKWrGsgCtXxjh/7F6VBHMhcPVD+i
Z55+Vv/quhzhbeGfQHuu3H/CB61dJoNOb+ruH3PcCcbSU+teosQ0mxMQTm5F
575w4kPn2psxXX1z+5tDtpvT4TXem1aw+UoifkSvtqN///zWF4GohA1jeFK+
nVOQ29E570372KD1DGWaOqy53Tww6virHCMqAmr/NEfGg2Wdtu/EZv+VFV2Y
wfzxTEUdnon4KiWTIuHvHFZuGOWWLQWkIleBi+nIw2YWSHL0KQIJe8MBQAn2
grZD3NMy7KtOEEx+6DJ09SbTEXUkc/FA7SMif3R2cjlWbMkL/iSeBa5fbNcn
J+Sm9oGPXFMzgdlp98Rgu77B2Ht9Pr4bD/37UHuTDjt+ebqwvzQjIPyzyMqs
c6ANw4xdl+yEl/5A+4CJEjwtvY7vYvymerD5CiJyROR2yNGtx0pqQkrofu7E
B99sb67X6Y/2Tny3Xr76KtPOqbuK3HUM0aaO6Vv7cOdffbOBgH+KuPYbs7Fe
h7UNuO4rpjd3Vl2U+jb7fdGdLMn4jx78NFuN8GA3PhXZrpZoSvvzwVepEHIV
+CGLY06o5afjmoyXPPJEsEjYGw4AShFzW7mHxkxEZbyTdERQuy2oiapWah8R
GqMlzGVMJqJ3x830RGroGZ9ZRtzUe/FH/9HfVG+89PFH3frSShhZao3nBs4Z
GwzduGdhE5nXX8amf0tnABm6J4K8Jnyw+cohckSbAbwt9Ys0jvl38v2KibXw
5EcWYz2m17NOKpGaufA9C7XzJLvr858NMfVAsGNDn91fz9wJkvHQzYHXdLrW
EV9MCTKcXPMMZPjBxXr+yc1F71WrMfVZmLHP7otUs//hXsjekhoC+CorQCIW
+oq4Njpgpk91cqCOIAdxB+H9+1IqzmQnOv1hN6rAs2d+PiBxTYZzjkoFNZW8
Cwl7wwFAKSi3IPvgyFuci5NGmsmDUPuIELGKWd0xvm9LTqRfjDCyJP9Eurfm
vYQkwDR0On8sMM+hAeHUK1uH3Qu5sYVkhOihPw87YQvyCBoHm68c4kb06oHj
KLvXQhtupkha1Ld2a0ud8SxOBJ7M/r6FswhJWsyItPN9SnhMXUmVgCigGcjt
pwHXxeRr8o2r+iRW3P1o3WbspEtwI6XEZmSWwC1H2O/sYPfYX+bXRXvTxbGz
6Dyduj74KqUlfYKJYjB1nTF3mfJlzhlaraN/vPo2UgtFVFQSubngwVMyXkYF
vi9tbzgAKAkaDylrF28qmlQnXxhYBVD5iJCwDQFzERn7+nKqUPDhC54CtTFe
/mA7wmmBIumWyLFgcmLvcS3k736+u+TqSYmyAQ+PwsRg8xVD1IjIKGFJreC5
O7Kd6MzHZsOBjhEipfQ2p4ebmFcfsjhDIgO4EcTZ+f7+1sJnF4zMjdSdmbif
T4GjRbOVUH8cdfFRHOh1P+UtdV5tr4ZniPGBdm4DXW+04Lfnf5ZhWORTdy9b
ZFEzG1j5QU4wdfXNXYM215eBpZzTRTK+FPjSZRvsas44U+E0efe4n2dkIMtO
LHgrva2TV4FL3BsOAEqC6hxZyyanlm/xiVGKQ90jQgsR8O7lsfvQ1cPM4VjT
hcmVgjPpc/8o684s4shCAsJ1xiu+ws2v0wEFvNxiYPMVQ8yI0FTBzDcmns1O
vGnAjg+7HyJSgEnhvPPVXFSK+AdRdp5RBrm5l1jMJ0RfRlxn095BBWjFV2HH
UVQu8cmcJbfXHwe/Iv44aj2KyHdM3z7k8IY3qlq8AiEdpYYdxGcVXvlOLZDx
4EQ3Pd8aemzeR6VD+xLPvh8/ndUQk5HRrdbRa4Q3j4DP/oRY6PNPr5i5UxUl
VDKUtjccAJQE3fc1drsey7UDTekoBSxVUqHyESE6Gevl5y7eeuTsSc3J2ClH
uHBaHqquiwTdIQHhR2w/vCx8YSSql4+oBpuvFKJG9CJoO5b6NRou+14wvwaZ
WA/eGGirM73tClXULSbCzvfJlckLTWw9kF4ikl+LouXHGzsdoSpHbOQQD9ra
EaWEZs6+2t5YiTIshYOB73yeWy7Hh8P9J03ZYQn1Rsv7N6blk98UaJSaZL0+
a57NoO0EnVtjdYZ5+CXyR63kQFXEGv7A5nAR/+nxfRegmPG6P3Pa3xs0t2YG
tzSYBlwhYZUMK4DEveEAgAfpCChd/aC3/ELMothb87xVp6VzebWPCC0ZwU9T
kWtTQyllUqpLywvfcOqziwUAIHECxXOvUFdqk9W9XPpeweYrgqgRIZbGBk7v
xALOAZPB2PtpsNLBxsLtfJ9c9lw4zOr2IptNMhH9Zrz3qF5/tHf8G6FV2iRl
L7549wbe11pSMhVTU0eto596QyvVzL4sAOKr5L1vAorDdNfiVS2H3Fz8yjGY
jkrC9O0XP719A0kTEI7hNO75UREVhCTuDQcAPECXoRZ7SJ6dKFMe4ZgtKGfF
OElR+YgEH/huhR2n2Em4RKwpv8oG/HOvkFfy7L8DNl8RRI0ovSFq6HSGt6IB
YuyUQUjNybIQbOfkVuB3rARXQ0vQxPKMvc8oWh5hRio02BtciitG66LnaBo6
RZIX9jCx3jR8ZzG/O3pnNfyte+LXSCg4HZX0FRe4shP1f4KIc54GdsSC3wrG
FBJSJHlvOADgAxoie9q5KMfjkMrUkzVLTlrUPSJ0LuKXnLI1M3qAi+w764oU
CR7hqa6R9MkSdaLQ0sc8O9GDzVcAMSPKCA0yvdFBFUQznMYn55aiKxsVLzot
3M7JnzwDXJl5xbcETTyZGjkuXIAzPbD+PHn3voK0NwcEhFeC+D2cSyKmv1u9
6Q1zilPt2TmYTe0D44T/v/P4rrP95IWRWH6X3xhuvwK94eg7U0cbL0BOkIQd
QfnyUt+AEgoISITKR4SEsx54z196qiC3/O8d4GbXEu4pRDMXeSW/kBWKvfv2
Fi49iK8bFmxeckSNCA2czrNO600n+0c+rpgnVqidc6f2jGH2u1cU/eMhR05F
SEqLU2br4ChudxIeXzD8ZEP2kJMiggoCwisEmYj9cMt+2dpqKGAn7MM4xdUG
L8LOaugr19V3z3fklBnXt5oHcYf7u4iE4d+SNIbbl743nKraeAGygtTplSNE
lt1+aqcwvspHlLYH7MDoDI++h6iUKuWe2pnFD6Ym5sZRf6FXIvqhxFKLFLgT
ks8ONi8xokaExAVhZud8OjGQcGat4IZTY+4HEi9Ygu08o+c75G1VhBKC6gUE
hFePxGo48EN4tXxn9V586YEUn5OLdI3h9qXtDaeyNl6A3MhaloetXitzD3EJ
UfmIyEUnK6mP4YHnPN6x7LZy548lNDPigi4SOoIUjiux1IrWRWDzkiJuROmA
8LxpULsb4S+vWltYKX6ox/VQwkRN4XaOFHKBRh7Sw0dQ2T7oEJhIC2gWCRvD
7UvaG051bbwA+SEjrpNs2dsqn/GxJ7zFHxA1ofIRIeq0bSKUvz9OJhkBIcVD
rBNRohcr/UpE7ZToJL7mG+by5PQnXUK8sGDz0iFqROSOf6yRNbWCaVCJRaKX
jV+Scrsk3M4z2jxBLIS0CBVUEBBe60jaGG5fut5wKmzjBSgBJOGIX9tBqeA8
mS2jfj7OKOWj8hHt3re31QvTtEidbqTUc16QgPAMdU0mYg/uhWLsbBQP4KbU
y8xEtMil0YTQpkteQQ2sweYlQ9yIkFWvWIpuRg+77DrwZHzpwRMxYSoi7Hx/
iTBzht5pD/EIYAH4IVxQ8UzBBjSKtI3h9qXqDafKNl6AMkBKb9X1EctV6yyx
4R+l5RZ23h3TxumuqkeEmAF/TUtV9MZ4TSmIzzwzEptyaGNWdyz1x7QIL+on
eLXpe5d1jonohwI2LxWiRsSzZ1PRZkx07oCICjOi7DyjDo+GytrIjghBJVdR
I0ARSN0Ybl+a3nDqbOMFKAYu2KmahsGpMs3sB1U9InLFO3SE0ciluzakQTyE
RR3X5JKrm518MlpVUl9aIxIVnIgS1tIiPG2xOqztw9lN4YIWbF4SxI0IWfWK
xlczPYAYelxL6K9E+9JFfI0i7Rw9sBYkwneige/CsncDVCiiBJVs5f0B+ZG8
Mdy+JL3h1NfGC1AaiHfo8O8CValhyeVGFSmUoS5UPSJymUgth4YL7ih/TYps
7YuIcHIjON7FeswzagnS2ZrttiDnVUjnyBT+GhFzxTrxWXHhJGDzEiBqRGga
VPFVD5G+WVsyqryJXoiKZq8t0s7Jl8HxI6lb6XKEt/m9i8nSOjzoXRF4mzWB
KEGloYxmQDCSN4bbl6I3nNraeAHKJO0gauohIpU3Is7HpZkAP1WP6HkAZ9Ih
hbqFEXFyEA/s5DUcJGFclxW3QMfIHRkPvkTeyAV7FzhDJOOB8Y5G+rMOWZwh
nnoo3weBzZeJuBEha1mJAjjIKzO2eORuaKINO+NcELqVEW3nSdn/0Hmikc/q
z97ji4jnN61YQ+vIF+Dyyoc4QaWZZwcQjvSN4fYl6A2nrjZegHIhE5GbFsZH
VA3HIFvaosSjpCLUOyL0p3/fLzS0g1xy9zFTE+rQ5mAUeONxc7eRmaXQ/E0q
Ra4pRw6xq3PebzKx5BkypRS4Y6688tFg82UibkTIqlcingRJzERFOLV7amka
mhJ4BFKene+TW8HxNloCYJ2OcLGaKmRi48EkftqgO9iNfw0KPD/iBBUEhNcu
FWgMty9Bbzh1tfEClA0XoVf5KFkIjlUOaYewuPYBZGLZPUAdK2cXdyK3Iz57
nxE7ZJm4F9sKOTobM5fR7QjRb8ibHLc97+g2ULlaA+7ltIYhE+vBGwO0DsKO
DRGSNHABmy8DcSPa8Y82prRX6VpzW3+ztdFrZPqcZSfquWSs63E+EliipFw7
p+5m8fY7VOM8XSH/9qvt1QfTN963GOsxY5/dF5G9A6VSESuoICC8dpG+Mdy+
BL3hoI0XICm7YedJOv/F0E9ExJ/zl4QNJdVOxVfVjmhv0/8+7c2sM458sy5y
AtmLhwm6Rxhm6B69MTXD9edFpAi5Hb5uMdBa3Wyb9H/ruXbBVHd8ZOpJPscB
mYjdm7AcSk52Rsv7N5jeeY7hLurt9UbrVe/ipmRTHdi8WESOKEqYU0uWadS/
UerVe/H5T2iz0XeMuKa/p/tH1702cPuxQH+TJHa+T20BZv5gNdZT3ajbL9hc
X/gDSb7zeW65HPiguVWf/Avj2Q9u3F2EZMxiiBRUEBBew0jeGG5fit5w0MYL
kBYyESF6aaVUtGBUmXD2zGcVVgVqHRG5eQ+nPY0ia4ygH7X9NHDHMdp/0qTH
dHpTd/+Y487fotuoh4tMrIc8EyPn2psxrLnj/HtO/3IxKZVYC3uv44NvtjfX
67DmdnP/yNWb3rmo1N5FsHlxiB3R7iP3yMlmw9He8W/5+aOTO7Ifbo1fTJlN
/78QQcEnvhLaOfVp29E5782rI/3m5C3R+zdTl9k6+J79+l/vzj+JQ/xJaSoh
qABNI31juH0pesNBGy9AchIx7wgdvluo4Hz5sG6Q6jcNrxTqHBG5Not3UpNV
ndnxj9xw7toBbF4E6hkR2LnSqIigAjSN9I3h9qXoDQdtvIAKQD6/P3GGmiIN
Vme4EmsWs3nEmoani7SSVRVqHBGnPE1DnqVaTyYBmxeMWkYEdq48KiKoAE0j
fWO4fSl6w0EbL6AyJJ5MjRynTuhbP5gp3MVVLPRZJHbCFlT26i0A1Y2I3F1w
9VAxGOXXGNEKYPPCUMWIwM4VSUUEFaBtJG8Mty9Fbzho4wVUjFQtOMxg+WRe
YlNJrAY/v/VVWENrorpGRCaiX4xQeZSgTDIBmxeA8kcEdq5YRAgqgwUt5p9H
UAHaRvLGcPtS9IaDNl5AJUn5BiuhSQDZIOPBCaoAICiTfIDNawWwcwUjQlBl
KJx8ggrQNhVoDLcvRW84aOMFVJTE8sx4j0HX0Irfg/lOC7x6TJw9JF2dbS0C
Nq8BwM4VjXBBldH3sICgArSN9I3h9qXoDQdtvIBKsxMLfnnLt1jBGspA1SBj
wb/+9a6Edba1Cdi8ygE7VzgVEVSAtqlAY7h9SXrDQRsvAAAAAADUQmUEFaBx
JG8Mty9Rbzho4wUAAAAAgFqohKACtI/0jeH2pekNB228AAAAAABQCxURVAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIA6+f+RAz7M
     "], {{0, 131}, {
     983, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{361., Automatic},
   ImageSizeRaw->{983, 131},
   PlotRange->{{0, 983}, {0, 131}}]], "Input",ExpressionUUID->
  "72a81092-781f-473c-8394-2495285a9fa5"],
 "with ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnV9MG2fe761zbt6LuThccoHEEbLERaQIIUsnKKrsC6pEliBqhFD+yDLR
5hi0JwvZnuK2J5BqC33VuDqp0TZO3621jZU9cfZklN043Th9cbrAK5xdXK2j
gLJOAzkmwW1IIEEOMsUwOZ4/Hj/jfzPPzNjjgd9H2lW3iz1j+5nn9/z+fX//
9UT/O//9PxkMhnf/JfNf7/Q4Lb/+dc8Hh/9L5n90/erdPsevTv7i4K/+50nH
yV//txP/OfMvz2b+878yf0//8xsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAABNoNbmb4527PvN5Nq21rdSRdYmhvYdHr7+IElpfScAAADAbiC9
ND3WYyQODo8/SWt9L9UlGfM5jIa93a7vEmkwugAAAEAlST8ZHz5I7EZry0C9
mvWeNBoaLMPfgs0FAAAAKgVnblrs3nsqhVWpdPLJ7NStq173yGCv7bi1lTAY
DPWt1mOOQZeX/O5eYr3IdTK34etvd46vyrhgenU+/JfLnk8GHcesrfWZixGt
1uMOp8sbCM+vCo4Q1IuZMVvb0MRa/tVXZlydhKGh3XV3DUwuAAAAoD4bS4H3
mg1E80BgSbFzR6WezU1cdQ90NBlYMkb2F4MjLrf3CkmS13we19AvO2iD2Gx1
/iGyvIG8dH3e32c01LW5//Ez3hWfRkiX3ZR5T6PFcfaC78+h8EwkEpmZDJK+
3w7Z2jI21Dzg467FHS3q3/Y+KJKl3nzo72kxGFp7yYXd6OYDAAAAFYRK/fP3
3XUZA+gMPlNkZBDDx9jZrg8vBsKx56kiJjzjjU5eclqbDcaesekl5qobifGP
LbQXvG9ockXyNbeSsevDHc2Zu+8Yvhop6jW/2VydJTN/Q5iHbi2+yl6l3RXJ
d3DZD5GOk71GwkB0jUVfgpsLAAAAqEbqnqejMePT9QUW5dsXaj1x9zJtQBlT
a7K7yMjTYoZW+KLkw8DQQYKwjk4/WeLsoMFQ925wZUvaVbM2uunw6O3H5S9H
JSNjHY3EfvNbdew9fhAqWYadivsdmb8i2s/PrEm8EwAAAAAoz3rMezRjsohO
b2xTpr3N2M2bI4e5AHLTO8Pk/VXpcWk2hNvY1ERwAWhDp29B0qvTyxOjFubW
XTMrEl5Bbca8ndmr1PUHy3nR3CGkscNzLyXxgwAAAABAaaglsof2+NqcoWey
zO12Kn5r2NLAWjHCcjYwj1ttRKXjV+11WWtrqNvvuS/Bq6Q25/09xoz5NB7x
xTalXuppoHcPc5WGTt8PZe9zayV0hnbX63p8j9Ylvj0AAAAAlOBVxHWAtj9t
Y9GfZdjbreTs13Yj6zQSRtsX04kN8ReVuQ2D5AQuFSd7mPD1vs8iRdO2xUkn
yF7mdjs9c2JmdPO+p70+87maC4uZAQAAAACHrHvbdMQvLYgrALW2Gd/243GZ
1pa+kZ+jY20G6Qlcaj3y2T4mEVu80rg06YiLDn03nJ18LfqJf477T9Afr66P
XJLqQwMAAABAARvzvuO0QSFO+ONYXThvkIgug7HPP68s7vp6cqhBegJ3ZXKI
sbeG/SPhV1jXYQ2uSAI3S/ZA0njI93A3yVwCAAAAqvLzP9xttDkhjvjjuGnX
1anRbN5WnZZV6rG/u1FqAncr6m5hbb3ZFUliXYcxuKIJXP6usjlfmSF3AAAA
AOCjuJKtT+6lidD75lyRk/1qXAUhxEXS1iQ1gbsccHC+9Z7ewFOsazMGV0IC
l2NjwXeMuZDVHcWz7AAAAADAsD7n6TRILB8SkH4WdDbz5pY46o2pUsTLGFyJ
HbgJ0sab+yOXH2F0M1Hr0d/19HijkuustuY8+2UliwEAAACAhvrB18nEhCWV
DyGs/921j+/hIZqd41I6YMXZfuB9u15qBy5X+cTSYr94d7lyswbwkssAAAAA
IGQl2F8nw45sxP2/yLXMqhho3X4c+KDvg8BjaV7k89Bga+4uaGGrT69MzCWS
FRA/5pLLWPpXAAAAAMBBlx0xtqpxJIzRzCNwbw3EId+8NmFWvi0oD6PZRg8i
Ct2dfbwqqispkWTEZZZXoAUAAADsetIJ0mHArpjaXpv8KJe9ldm9qxLU8+lR
K1HE5ubc3taO/zHiDYRjy8pM7+aiv4f9vDZyUa3bBwAAAHYHvNfWOhh6LvlV
fPcrS5c3pqnMcPpJaPRwU6GlLbC8JsfFyUWsRDXK9lroA3b6UZMrAgP7agAq
nfgPj2N/nSOwrPWtaAMdn9rTMXw9loQcBwDUPj8F+/dih0k3Zlx7EZ9yv2dO
88eder0YvurqfVvc7BpPemdfybO5fImWRLkMoJJk9c2Ig2cnftytVWzJmM9h
NBBNHZ+G5Mu7AQBQHdimVwNWTxC16O9GLFjD0OTrit4jBtup5z9EQqTXNWgz
G0uZXMJybnpVzhFhO+Z9m30LG5lQ/d4BDHLWdnj8ya6ONlCvZr0njUolVQEA
qDw5pSYHmZC6bwl6cQyN3f7HNelfpJOJWCT0Z9+Fsw5LnvFt7PTOydFE5tt+
a8Gp373w2t1qKJtViVQ8ONLR1GCyfzkjdtijUk8jt/90/fY9qT1u2TIGHdrc
dHIxeoc+IPcet7bSH6HVauv/yEPejasfJKfSLxci41c9o4OOLjOygxnNXT39
w7+9fOvu/MudrJROpdOwaWlMznZKN7hby4FTaEAZV8RYA9IrsfELDlN97q7l
KTTyBheSuJpBpZcCA82ZBdhgGZ1arcmjXiHUs0BvncTnZSU80s78ZbMjsCT1
AukFspfujyPaz8+s6WJb3XwZu+0Z6GC2n2brwHnfjVA4EpmZ/MZ37oSJMBCm
Uz65qZ8CtlOJu/4RuwmtrcyY9uNHra3InkD/yza7i4wkMKaO6Yb1793tjS3u
qC4Wh6pQtOsVnQqSPo9rqN9uswmOW2XInMSO22y9gyMut9cfCIWjsURSoc6D
HIPLFzazqFgxlU4+f6H0E5WESsfJXn7IgqHHv4h/mgWDqzXU2l1XO60/Utf9
+3+q1e9VcbZWgu/WSXxe1kKDnBHAix1Rq38dNtXRwzF7STUUVisIlXwQGD3K
RJ0azP3eqfw6Ri6CQbSPSReCK0n6RfTKe2ZmNEuTxTHivTE1u5B4iSyddHJ5
IRryfz5gzTZeEAec1+6v1vZ3iAsjlGe0k7hi+fqFDp6E/G6nzSLNvEqjyWJz
uv2he4mUrD5YFTxcjFh0eai4/whxwB2tXEJ4PeY9mr1zWb20YHC1hVoKnmbK
45UPpaoqSFV/42h4o8yeR72ePJudBYL7LGytzZxvp9e3sds7q2nbQBmodGJ8
tIM1bS127/cl7NrrOc87mK0TxUg/GR8+SEeqzae/CsVelreh6Z8ivnfN3AbR
YBn+NrFzbC4rBa91O0l1SK/EJq5IKqBVQlPHwNh17GCICjlctQwuM3O2+aPJ
NdGTQ3o56DQdvbKAf8TI6iHL2M0YeIO7K0MzctlIhC+d6aLDhE3WM2RMtmZI
Kk72M26R8Ygvpqdk29Z9z37OwRWrb+eFzQ2G+g9C4s+CEGolPMqU9RGdrhl1
lFZVJWNtvx3mhos1tLvurpW8RTaMpqzhnbO2DZahwLzUjPDmatSbHe29k2wu
042y1xUpd9jTP9Tawh3voBWRiKg0xH7HhdACRr0BX6WMcfgRVinLis0WQo8I
bNjn+rsEv4WRc5RXJ8xbTOJUYBnbZEKVMj5bq9PnLEhARK4oWW7sMtHpjWFM
qdAeasGXNaJi8jJUnLRnC/y6/Yv4nzIbWK7FZC6fDqBvr+PL2XIZAdYjU+Lh
rj/y9dTJMZrp5dCwifsNajlWgAOjA7+jmxm3kvO3P7e3ITuN0Wx7b9TjI4OT
M5F7scVEIhHxdjUK7eUBd+Sn54ksi7FoZCYcukn6ve6RwZNMFZ8kq2v58Nrs
C2lu51LAwZ4HcEKs7HwBDlWKpjYTgdNGifOGmC5geTHd3FHhbW8Mf9uHPlxs
th/6DgkXubxfLlsUlHlGXJGaL9ITgCZwxZrvcglcafOgi7C5RPYxl2tod39f
S2H3taj7UHYHE/sRU/c8HY2ZxyzwTF70jNp8dPlIHe4EMf7Vy5PDluxm2u2Z
1b2OKxPZw5++qhfSL2avfZg91RNN1sGLNyPxQjl9YWSWoXx4dju1+v9mp254
Xe925RXXFTG6EvsT5SlNsRkWFhXG1VHPbp1urpfm3nJupqxtm0+Q1bd77uO7
5aA0hU/BIieO+PHrNvhBkISx70ZCZ7sGksAViRJTGxHXXu5Ppc2DLgprrQwq
TsxUDrUZ83Zmza1IlIMLBTd2eO7J9C6pZyFnG733mg/bHB+M3XyQxFwz1BLZ
kz0kqTTmW0PYcAHu9FV9QCUfBoYOZo1t+4BvpmQz3UZ4pFFoJUUKKhCYvPA5
gQctz+byJceYJZHIglQ6uYBxXiSLUWRuuJeQafJeTA4xKdy6PnJJRhicn0EP
WsqSyfNw5eUWc5MydOfeChK4hJ0se1pIxbxd2S9KTsojC+/kGup6yKWasBWv
Iq4D2UVQUnqdSj2bm/AN0SVVivKnTPkluhXuH5p8gfke6BgyHa46AUwCF3f6
qh6gkve89pbsz7RvIBAvZxSQ4ekcuHFOaj1x97KzTI5YQjEn74JgmjCcAFG5
yzOnWQy5xeyDgD2UlkrHr9rpbUj2yflVeIQtuYJpQdLZSs79kVmi9a1dw5cj
P+Efk2rQfGCAJHBFY0G8zqrMlEeO3BHl7dFwDVRPrU+P7OFN4P5B/1SEZ2Yy
eP2a33t+6NShVrZ5x+r03nmE65Mi8AdjHhkn5Fw4i154vYFn2n+JctmpCdx0
PDDAS/qLD2RHKmazr5GlwU4lfwi6jpXSMRTPYvDzcDGLNIQlEF9EZSjDsNYW
S52Pl3HGDZdlk4Dy+zdhHq4m5GyHDD9Fc9AErli1A7Mxss/TXteMMsWojXnf
cdbCaTc6M0fhXofseq3W4zabY3DE5fHduBN5qHCk1xskTcZjHgm/xH0XQWmo
/Gyy9uzQBG7yn14bMpD9Hc9c+a4TaiM82ihcFvIzg1k91WK0OUNlT2fUD75O
5jnHjjnkCkfxQ0DbqcW/jtla6FECUYn1XczL+DphrAZ/vh1PifYdvx8q9D4A
DDIG6z3O0dj3WUR/CkBIAlfsnIZYpb39wZ8UXhhJ+mgeERV07uPN3ZYDEpln
N4oe/7yM0ilB+YEKv4hG7MgErqAkwCDpVJmn12RQmhksbXPFboZv/ZPRFr2V
jJHObGOdeeD/RFfFc6O0VOzVs7SurOPLaTzzxyVw6bhTa0uTtA47KvmAdB5Q
rjSb3Q9ll48C+ORSwCrU5mkAksAVS4LwazvDMd+CYqNEPQ307mHfrn4gqGlY
GbWA1ah/oJL3Lg8coK0lLdV4U+7sQr5lktndamhECxY7MYGLrG0Gy/DkstjH
ex11HzAIUNxfI4hpo5S3pNTP0bE25lmQNUeeSq/eJ4ff4ZZmU+egd3zuedGw
EK21dfvSxzZTPWE64bohQzyNTeASRvvXs2srs75TjObqCRf59yJF4LRlT9wL
fsFIKEs9DJSGTwxZ3VFI4FYHfmXKOw1qD5LAJcS0UpAqHXVGYyBZSOKEP/6z
8neUCxrj1VH9g8Dg6jWutRMTuIKiOOMx18RTCTFSpECCQwUFCSpxo89YWLks
FsCnRSfoc7iC2oDN1dmbY5wUuYGukOn45dC5Ma//Gkle83vHzg2d6qbn5RFN
1tNj14vbR3GYxYM4qpsvY7fcnISX0dx9KntF8prvwuigzdxE0EPnaTnyp0oT
Q9SC/whzHXlTDwA5IKWtutzu0ASuWNtdTvMtz5naeD73/dyyLIeXL88wNB7y
PdTu+0MNrko6OdUALVTWa+XGTkzgZh+rprd7XdejEh8NgXYE+5ip4vWjHbLI
YhE54WRLLJTWBmTH0X4+3G+3sfO2DE3mLtuJ/qHzXjKktCLi+a0Bi/NGPM/T
4SZ8uUcGHbbDrJFttR6193904fJfwjHlNRg02YyYvAZeQBa50ladhvGRBK5Y
lBjxhYVDguigdKPMcDoaedPyxIKmz1STXq88Qg9XT0cFHjZPscMSuHTo8sHc
42Usry1XkZhFlpJbkZvJ70GT9LhlDUpzzy4aJyEdRufZILuBF5ABtR7+JGst
2l2RNa3vBx80gSvSV1tynBBjiGV/fLRBRsuYPO2+yzC41KvYd1NyM7DKyTO4
OgqG8zBOugxR7h0HcqDlUK14j686RhEvgObCd7oTqq0Gm/c97fUZcytRCwtQ
g5fhETO3evW5Ywie8fIfgdeGMuRFuhgPZc8nYbnl2UhVv7wKDZXIBSukm62N
RPCMScNeML4NUL8Gl2miFJNb2Q2gQ7g4e4sl9FQWZOAIhsHlnVw9djtWlK2V
0JlmcG+rDIZAU22COq2GcgFJamXGhbQ4oJEuOia8d8/ItPxjHiJnp6l6Az8Z
U1q1eca3JT+0EA2Ws9+Jlp/KgtpKb4m8cb4qqf4MLnPc0md5v8rkdYoZZE6L
K07eky7V4L55k5z1dBPg5OaxOeftzOxZjZ3eOTC3kqHSaUWRQMQ93AEJ3Awt
A8EfizxUbDcfYbEdf4v7Q2QQ1fa87xChsIuWn06icaCAH2Nk2PdpuNwYI77r
ocU2NqXadLz02mL0O9LrGnR0MWUeHETroVPDX/gnio3KzZWc1YLBlfFAsQlc
KfkIpU9rzSOsfzOoXAJXZCqCNE2NrHjUvtNB3UnoVQhONl9smhjAkF6JhS6N
OLKjn5sstiFvKLaCXyWDU9+LCSPY+8cLw7/syE0AMZpt77vpbVfWkaqot4Qm
cNm9vaANnEo+Crl7jIzS2s+8TgVfBs90+SlWs0TP9toWz2wlZ79mRs3WmZw3
46lC07+dSty77XVamwjC1OeZjKvxwFHpl5klSbci8ibWenJwxEW3MzDdE+wy
IJqsH+TpjiLReO0MLrWeiJCu/kPcoDjC1HVG+gMlIYFLrc0HP7fTX069qffy
rGbp8gpT8DDiKwOXo4jBldrZt5WMftGR+XGbz4R0WAOvOtyxfEeM6Ko0VPK+
f6CdnjJvOTl84dKVr37D7XJY0p0cvGy1QR0VCO4W1xZCFxym0pO2mg6P3HyI
p+JLLQb6WguD3mgCt8588ADjVRGmE+d830zORCLhcZL+fhqaOj4iuUmaG4nx
j5kRYy02981w+NtLgwcICVroYqCawCrmreSxlYxdH6ZnE9Dtge7LzFcR+dtk
kPR5Pnmvy8Qsnj4XGUkUMcfYZM4zdxjzzXz2epP90ysTD54XvjNt1K7SdyVY
qAItZYZqV51RyQfXGX0DwmQ787n3iu+zXnMDxgMlnsDlh3BxZxFROWK9shxw
CAqJlUunCiiiXIoxMH193t9nzHz5A4ElfQ+lUgyVCL1vznhYveSCXjoZtIIb
20EccF7j9Uyo9chnXFAV98SCFv6pJJLDC46J0WL33pNsc9nPWJhuQD30vf3B
H9MvH4UDv2cCmkw3urnL4XQXRDI3X8buXBrppzvW6eDA11OLKnxy1FOrCbkk
etLZHy8M99u4Ad9Gc5fNMfiJR70mvoyxWY74BszZJWQ85gr+UP435aa85RZq
QSWMovlN+KTmfPQDhc6bozbnLrZLfqDEE7iFfp8+e43FKKyYUlmos3AGqZjK
Td4NPp8etRJ4O8/Ogz14NHaMRXbxlyANail4el+Rg3dunDpmxQ7aNKdCAymV
Tnzn6s7TmSmD5CMWFSd7mouFgxAPnejVuPMUzUWqGkmrUdIvopdoDTr22zfa
vpCoH0slI2MdjdkKFiT3zVLNGdjcDmx2BhdLPVBicp0SErhFIqEqlhLVDoUV
U+oFzWgKxyLgG3QZc3x2FGx8T9FQzl3DZiJw2mgwdntn8yNuaCQHp2IHjcfK
G6EleLfVqVFLQaMcjdFsfSt/y+H+n34yX1+lyBsz7m0xLRRU1kZzjSx0X5U+
cVunZMeUcNbW/jVOXpL9QZk2jUKdBIwgoUK2Vic/Nhka2l131/J+K/TsJPJA
SenARUessuivElsCBWcndaRTeQrHIsgy6Oml6TGuomOX2VzW2u7tdn2nqbV9
PR/8ylUrfBWcL370pVbGnc1E0aIyYdkJhuIBaiKUOhabD/09Lbm7aOoYcPtD
0QVEpmY79fJpLBK89LHdhJSviuezWPe2WLMYlSDt3FvVtbn/oaGKMQMq4KAj
oSd8BNZW1sxQRsG1rj/4PD8rhxkkVML69+72hqK13BgPlMQO3PRi0Gne4Qa3
4OykdmIFLThhkH3Gptbmb4527PvNpA5lB+SzNjG07/Dw9QcaR5KLBHy0pITh
Y0VBi46ARMffGHC2evTEqFAGlut0oyHa+78Kla1D3koujLttWetMHPfNlzmm
st5QUS0UtN5GziRWtUF7InbijsoitLbSYhSFMNpcDe96xo4Il7/KpfKl2Vwi
++qKK/7l9XuWe6Ckd+BSa9Oj+/h33YHLo6DaXO1Ji/lKU9D4rE+oJ7dOvyWh
yKcqEG+dvvWkiOFjp8O3X5wrbNzOG6GFEcxE61WUTHOjUrNfdrDTHC0fkrFX
ki6f27fLCouVdm8zJ7aIi6ttqQ2NLHR2QNUMR5VhKy545Dc2Mufc5tbWvIBy
tYSU2a7/4qOfhc2k5YoJ2QHE+4YmpcwIYk08y84LgOQd+9WvqaCeBXrR0jPQ
RwIqxfba5EfNJTQD89Zh/WBIshwwaiAkbhrF2Iz5jhgNMuYgpxfIXmZna/6o
RGynjHsrSOBqKu7EgyoqV2McbdXJNjPye56S5uUEaTMUUKVEPDuPskQaIieP
KfpAMaIr0kuO+VqsHTY2l6ZA8kLlusH0swCqj7JzW6sA7WEWc/FZq3nrEEsv
VJUQaFaQs/m9wBJ2AQP17NbpZqKkP0g9CznbSh1lkQSupvLFOdAQvbrxLopu
dwr+iSSveN0ul+tfh/pP2GxHOzqcN+IqVoGKgSpR0yjT5ipicKuWiE9G3dYS
Db95fcFlIxVsvw+GZcmWFe28Ivb8BK7asnVspCtnb496YyC3D1QGpjCj+OGf
Hx/Mgie/jxb5yDW42w99hzKbcNHkshS4OFtRP4JRXCSahyaKuhi53LtIFrhq
CKooVe1uYUOXBVS1nZNXac7ueYd880qOFEUMbrUS8WxspOjE7bwETdkHiiny
x7IsXExJtQE6NUOBJIXVHVUxSU1txrydWJWWACCb5N/dndZf3nhcRKSPNkmy
HQTlBpcNzSkLLbIRvCJJWGauVumjLLX6N4+9ra71yNDV+7XRwV05g0sPo36e
yBCP/c3r4B2wKjpKbJE8sqMqjSoUznHDPC4qYCt25Xjn0a+ihQtLmKAhys6z
YGursHIxrMEVDmLeCRR04Kr7U1LLk8OW3JsbTwcSkL0Fqs/rOc87yCp/xzOH
VYaPGlx5xSrsg6bQMWEHVuZLB7BDtRRLHFcTgdJOpfQbcpoM1Rw2kR1UnUOh
AGOhKlF561Yd8j5meTcNM4HLv0TTickVIS/OpvJPmefegiAhoBE//8PdhhzH
sUN8yvtGX0fdB4j2saii0yzrJuclPdmzRC00+2CgZl9zCZDYnYI6N1y4QdUI
SqubClWJauC3zjMcRWPOPNgJ3Gxjy15XZGeJouTXD6tbos+XVjKbHCghAxpB
rYc/QbJNMkJ8NSPUwFRc1PUHc/ZjbWKomdDd/MrKG1ykELp6CVwucYCguLqJ
ipN2o+Aty1u3qiDsJBX5jPgJXE7ACqePQBcUjKlVs0cvFSf7+YVCWM5Nr+48
DWpAF7yYHELqFOr6A89wN3jU4Go7UY6p3sxpDJURJahlBDtPRQwuWtJTPSnL
Qm9UsXONiBUzNB7yPdS6jzrvY5aPJ8tI4LL1z2rLQWhPfkOQeicKanPe32PM
RpONDl9sp6mFAHqBWgkOIFuWmMR6UdSoUlYHRoKDHxPDVj6XbM6tWSpZNMWS
s1MqDz4rS4FGrlLnuiCBK+e4qDaoLrdB1OPGT+BSPwYHWmrik6pL/tlJtXiy
QJud6HTNQGEyoBV57bfy8l/oRqqtwWXbXlgvu6zYRU1TaYNLbURce9Xe1sQp
1D5VWh0tDM7Uxm8trJoWi5njJ3CZIsCd18+Sl9gqI2KD+b7sHFLO2lZi0EBt
9LYDuiCvuqO4Qp0oqNKUxuKuzKa+fyT8ituNa6W1FgvU4FZCaQqJeVZzFmFB
w6zCNtK84ExtaPTlKROWHbfHWWesIANbiq9MKqQWeRkeMSO/pTr1yQJrazzm
mnhagbVeC73tuxN9TAtCUdZ+y4MaXI1TS8wORhsptuJRV91APGppU5cALTSq
5izCfIOrsI0UlRQ21Ih7m5+IFCn7YRO4GEEGHfa4SSM/nqy81FwwU5swnfLN
StNml4HWve27FH1MC0LJa7+V3dZXaY8MB3pXz9zDI2Y3bhkI/qjDVY8eYFhv
XVW0SeAWGlxlw9PzOoyaz4RqwaHYirpbEHen279Ybv0xCVzpQQZWoXQHqhHm
yWAqLzXfWJ75NztXJUUYbV9MY2mzy0ab3vbdii6mBaHktd8e8Rep5d1+dO3E
gcO+f5ZdPOjzUsU5pEWhd3Wi5X/7vLosl2L5KdifTbHKPAUxeaXA712Dji6z
0dBk7u4f9d6MLtONhxolcN8UGlwlHWTpZ0EnUoAlUcQgFQ+OdDQ1mOxfzoh1
hVCpp5Hbf7p++94yVrcmOnFe9NDLlldJDTKUHnMvTjq5GL1Del2DvcetrZk9
imi12vo/8pB347gDiCtCXn1yfbvnvuzcAJX8Ieg6lo3g7O12jcdTVdoEtOlt
B/RBXpVC8d4ZpqNQ/LRGn+uzb6T2tGhM2BZFs7mtVmKM+KDzOvmKa+mkf4pc
/sDalNlWm60Dn/vHpyMzE4GLg9aMoem9PJt8rU0C902BLr2SJBc7ZTL7MYw9
/nkJfdaIroJo3GAlPMJObMSMewsOFSKzoZmpGVKDDNTyv79vqiPaz88UjLkv
y+bL2G3PQAcTe8ush/O+G6FwJDIz+Y3v3AkTUeFYqzTyc/GyQ23U2kLogsOU
Dd+Y+jyT8VT1Ppsmve2AXpDSfstW10jQD18OOHjf3kYmKnPHksgF9tWVPa8i
aG4CL15ApRNTYzbm7GPsGZteQn7RreSj/9vfXG864z7XkTV71UzgvikUqZDt
4SZnPd34k+vR7maxLT0XG2zs9j/G2LPRB0HktWxcSFqQYfOhv6cFt6WFSj4I
jB5lvvEGc793ajFvkt9WcvZru5FQrPCmkLxGiRKhNpH3WIvPkC57W/a739s9
+ufZ1epW0GnT2w7oBGGVQvE5sGWGoeSBpq4qJf4rDX7H0++aRzZtwhFYlvqy
jLX9dpjtNzSe9BZxW7IDELPvXdUELk2ewvAx34KM61Op2S+RWbrm90MJadsz
qz/MWsLRcDlRRLS9FzPRLCzkKPsorEVc7ZKCDOkn48MHCUOL3Tcn2fHLLIbx
0Q72126xe79fLR4YZ6s4qptZyCNfP3lPb+CpZHu7nXoemybHBqz8uq432V03
Zl9osANpVRoB6IA8xYCii5yTJpaWT0HTjpqqO3IxPXXHyFYVJD6PUXpBLX93
luvu33c6WKKIVZC116CenC2yzSJnn6fW7rra+ZVr7L4YlTrgie14Zb9WVPyz
CEiVOLa6IPogGAg7WfI0IDGBS72a9Z40Ghosw98mpGaTkaOXSM6XLXfUstBR
KIMprf2WSq0+jt4hfzfieBsx1UST1ekNxV5qo5CsXWkEoAME0grF48llh7YX
gMrZadqKyxlc/Q5SQdv6JD+5bMiR2XaaT98qPVH4VXiEzyPIczAVwudGGWuG
KWsmaKvEs0GoHoVIalUQ+hYpMy5EGCAtrQclKYGbfjpB1/9gflLkTEJ0fDlb
LovJph01NBDJqNuKmFu07mI79fJZgmUxFo38bTJ43e89P9R/xNyUV5qa8Wo/
vTKhlall0ai3HdAHQoNb5JjNBu6k1x2hLjNm2ktVuJCefuPJqE2U+uSuP/Jl
HcfyPSOoKdnvmdOirIN6dus0Pw8Xp8MlY219vfuzr8SzQcIErpjct8LmjvXv
3TkfvLHDc6/YyU88gUslH5DOAwT2J12LuvneejF9jNQ9T0ejRiqRW8mFqSuu
Pku+9cSh6W3HyKXQ3LMqVkaVQKvedkAfCBrfikTY2CcRq7cRaYjQbo4Ju6/q
OJ4sKFGW9uSiI91FJBGQOmHtisnTyxOjluwuW9f9u/vinSnbqfg4L2JgMLTY
xqZwbNAbQQJXJEqMxgblNXdsrc2cb+fNCNHpmi60Z0wCt+Tw6M3V2WtOOiaM
+0kFI19F5mxyqeFSR4JKkl6a9vSZZFtawtQ16PaHoovJmnEkIYELlAUdPZlv
H7knUXo5CvuOiKXQyHvK7mPKFBW0BfvJXY95j2a3LpGCE6RPUFNBMC4vyX1M
o+23k/kFtMjfpp7e5bqcGIzHXKHH2B4NksAtl1elQWOD+D1ZHBuJ8Y8tOZt7
wHntvqBsiU3gFnlMtlOJCOliG3b6PII6cymwwo8sJedsUqlncxO+IbqkCtd9
VgNue8GlvtX6C6f7D7em7mtkZ2uytx3QDUhvRa4OmUqvRq8MtNMlkd57UstR
ONA0rib5Qb4oSNOqLUWgT640dbv16ZE9vEtzwh8vo82J9Alq9QPxUGvzN0c7
eDNKtNnP+TJ76ULix+fJzXTyRSKxMDv1zWX36ZypNTRbnX+ILMu5bSSBKxr9
QKqeFMUGt5Kx68MdfPUs0WQdvBgIx57ThwUmgSsIMlCplcfRby99bGf8Prld
LehiMOwf9E9FeGYmg9ev0TnQU4do5Qu2xOjOI8xnXAWQU19583rU5hgccXl8
ZHAyGnvyUtOwcc32tgM6InfUrDfZfvPVlUsXhk/SKRWifcB/X8aTiBQcYtX2
qwZ3A9r2JSkCqY/d80lYvDtSqF4iYiAQPR/NQhAoGW/u7mVnp7geKmHqOuMN
xVbk/qpoAldM8iIXdVcjNpheiYW8Z7rQ6CnRZO76RddbtDrL4L9d83lcro8H
T3a0cjKEmYPHlQm5n7ScLSNarcdtnAm7cSfycFn7vKc+qO3edkBfMBvCkM3C
bXpsEYLsnQ2ZBKpFGjfrYutXNjz3BUqcloKOORAzEBszrr3cxq+xGpiAjNm9
x6gOMpG6HEZzl2PQ5SVDkYfPFRoHJIErJgFUmah7Orl4fyr4R+/nw/32w/lF
tozM4tDnXvKOwqSkYGyNwklMAEPt97YDuxkkqozdwKiYbAd9LVkTPJDIp8T5
a+gkYpHkERJ/0HiiU7VBErhihzF0uF7Fou7s/XR4IqvqeploTkfrGSI7Al30
tgO7GSruP0JI2v/VvzRXBibWZVm7IBtm+8U5CeLAAlMiYiCqYkpqEuQYIzpZ
oxpRd+Z+KjFNpobGUu8EdNPbDuxiqB+DA5w0Aa6sgTL4RqcKzLOrDrl5cyXr
S/NBhQQbzk6WLPV9IzAlAqtDpZcf3J1b1mvSWxw0gSt2CEQUSoVxko3nc9/P
yarXKnE/lZgmgxrcUg1HgET01NsO7GKo9chnXMJMqkqVKrwMjzC7jfxWDm1B
vjfp7c+ohHX5ag3EFxam1+n8Jo5is+5AErhiDgjiCwuHBNHfXqNKzd2YM3Ax
QNVs9FuoXxPorbcd2MVkjnw9bGKxsdM7VyWLyxsUnVYJskKajD3EGQa6SNqy
Lm7ZIU3Uor+b+zujHZ3DqKYpqUnQqLvIYazkOCHGELe7ImqUAbL3U5lViqhw
4xhc6lXsu6lYTQzGrRF02NsO7F4QZ23fZ5GqTP7ifROdFmfmVP2NpwMJ6YcU
pEq5jMGlXkbHurIbiMCUMJVUup1jKAHEaRUr5GPV1ThfBY3PM+lvSV1aEu+n
rs39jzL90vLJ9eFKz+FuJIJnTIb9Q5MvKnFHukSnve3AriXnrxWfa682vG+i
00MmLxCEGxNgJzqx52tXpPjIOaHqkaAvhpmXJ2X8ol5BnVZDucwmtTLj6sy1
66AzC+g5p3uldWlJvJ9KJHBZeNdMmrppxrclP7QQDZaz3y3v1CWAja5724Hd
CZWOX7XXVc3JzebpRI6jtQn6XX0aXsN8aKnFQB/7yBd1VFlr23jQ1m0q9N3o
Mq3m6oX9NQBN4GZoGQj+WGQtslKThMV2/K3CcMH2vO8QIbFLS9r9iPUCK4Fa
/euwqU7CWqLSq/fJ4Xea5AhT72x2QG87sAvhy/wqn8nVdQI3Fw2wDE/K8DOo
9FJggC7wIIw9/nmkmYhKxSdpifgW+8W7y+tz3s5GYeArFSf7jVjzKXSHoG2K
2UAtH48nBDsolXwUcvcYiYPD409+5gP7vNefjgcG9omUzUiH7dmsrDDLVnL2
a7sxsx7qTM6b8VTh80Arjdz2Oq1NBC3XPBkHySkh0NsO6JPNmO8IUzBv7Cfj
FRxIks3T6VHmZWst/Cnjg9WZhv+6KnPr20rGSGa4DGHsHrkyPh0Jj5Nf/cZm
qkd2VCoVu8zsw4TR5r4V/o/gV6fNdbSV2cHFrGgCt8588AAj8USYTpzzfTM5
E8l+Sw1NHR+Rsy+Y74EPv7fY3DfD4W8vDR4gjH3+eTXCydz+XIkO3Dx4GWei
yXrafZn5sPQ8WdLn+eQ9WmeSaLL0uchIoog53vVAbzugV6h0nOxlNvmyneMK
4Ttwpan91xL8rHCi/fwMbjA5761STyM3vSPseG5ulMn3wh2VSq/OBS8On7S2
EkRrx6lPfGHcYTT6Ak3gZhyQHwXTXhhNY4fT7c8fXL75Mnbn0kh/Nz0RxmIb
+nqq9CQjTNj9uVqrNL0Sm/jjheF+m5XVaTaau2yOwU88l/8SjoGQcmmgtx3Q
Menl0DCTPWztJRcqswKzOZfqi0kqhC/UqbN5/7lj64S1A5EAqokZLsz+rLtV
utuA3nZA11Cv7l88Tq9Lo8MXq4RZYeepEc1DExpNvZcHfxQxO4OLmhuDHQgy
SqMmkvsb4ZFGQ11voGKhHkAVoLcd0DnZOYCE5dz0qur5K6bIgTjkjurI3lKb
8/4eOtguY+4wIAl25iybv61U3ysWz2/1N+2pSpccoATobQf0T3ox6DTTFTv2
r2dV1rRJP4/evn4nph+zxc/8AmtbOfjMvi6T+4B2QG87sCPg/NxK2Fw9QSWj
F7uNYG0rzFrE1c7th5A2BbCA3nZgZ5Bemh7rMRoaLK67uzTgsv2YPNFiIA44
yQdgbSsIksCFtCmACfS2AzuGjeXov1+fXKhgX24tQy1Hv/lmamENLEBFQRK4
kmcdAkAO6G0HAACQRK6ZkjjumwdFAkAO0NsOAAAgCrX6N4+9ra71yNDV+xC6
BwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAKTz/wF3yCIB
     "], {{0, 127}, {635, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{257.66666666666634`, Automatic},
   ImageSizeRaw->{635, 127},
   PlotRange->{{0, 635}, {0, 127}}]], "Input",ExpressionUUID->
  "89377e88-1592-49fc-9a42-6d767c2a5ec0"]
}], "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.7609903772241955`*^9, 3.760990393496606*^9}, {3.7656320115613203`*^9, 
  3.7656320120166874`*^9}, {3.7657361698462257`*^9, 3.7657362021463337`*^9}, {
  3.7657365530942993`*^9, 3.765736553362589*^9}, {3.765738217820125*^9, 
  3.765738235516548*^9}, {3.7661626452195053`*^9, 
  3.7661626909149375`*^9}},ExpressionUUID->"68c7e39c-fd44-4942-9218-\
54c779e0448b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FHoloTerms", "[", "mu_", "]"}], "[", 
   RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], 
   RowBox[{"\[Gamma]5", "[", 
    RowBox[{"[", 
     RowBox[{"cc", ",", "dd"}], "]"}], "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.7609811744259396`*^9, 3.760981232403672*^9}, {
   3.760984738157158*^9, 3.7609848090140343`*^9}, {3.760990451587783*^9, 
   3.7609905028508472`*^9}, {3.7656320266785326`*^9, 3.765632051049697*^9}, 
   3.7657362272935486`*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"4bf8114a-7b0e-4703-8042-63e5e45ab98e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"FHolo", "[", "Rep", "]"}], "[", "mu", "]"}], " ", "=", " ", 
     RowBox[{"Table", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"FHoloTerms", "[", "mu", "]"}], "[", 
        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"}], "}"}]}], "]"}], " "}]], "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},
 CellLabel->"In[60]:=",ExpressionUUID->"92795059-ea0b-4ddd-a196-424c876b2151"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DEqm", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"dd", ",", "ee"}], "]"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Psi]", "[", "ee", "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
          RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ee", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.765738253477495*^9, 3.7657383012382927`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"4d8b6cc3-fda8-42be-b754-b84729e6f026"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ZHoloTerms", "[", 
   RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", " ", 
  RowBox[{"I", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Gamma]5\[Gamma]down", "[", "kp", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "kp", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"DEqm", "[", "Rep", "]"}], "[", 
       RowBox[{"[", "dd", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"kp", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.765736214676093*^9, 3.765736255731166*^9}, 
   3.765736465179887*^9, {3.765738330549803*^9, 3.7657383564055166`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"645b7d6d-1fd9-4453-9bc8-b73fa0c6f105"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZHolo", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ZHoloTerms", "[", 
      RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7657363092279277`*^9, 3.7657363808048196`*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"c1395840-fd72-4400-bc0c-09289aa24feb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"HoloraumyDD", "[", 
       RowBox[{
        RowBox[{"Da", "[", "aa", "]"}], ",", 
        RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "cc", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "I", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"FHolo", "[", "Rep", "]"}], "[", "mu", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "]"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Psi]", "[", "dd", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
            RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "-", 
    RowBox[{"ZHolo", "[", "Rep", "]"}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.7422252370370483`*^9, 3.7422252653879547`*^9}, {
  3.742225324248343*^9, 3.7422253502011967`*^9}, {3.7422257494222517`*^9, 
  3.742225750065353*^9}, {3.742225813864871*^9, 3.7422258782322683`*^9}, {
  3.7422361007628717`*^9, 3.742236257611809*^9}, {3.742236355875434*^9, 
  3.742236390026614*^9}, {3.7422371009663353`*^9, 3.742237126163786*^9}, {
  3.7423170915863733`*^9, 3.742317127728424*^9}, {3.760984885798668*^9, 
  3.760985028488144*^9}, {3.7609905209452457`*^9, 3.760990526651795*^9}, {
  3.7657362855071793`*^9, 3.7657362999866896`*^9}, {3.7657363611306295`*^9, 
  3.7657363634021945`*^9}, {3.7657364420045357`*^9, 3.7657364707239027`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"2fdfbc40-c8c1-4069-8c63-2c4ca2ca4a22"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.742448070570057*^9, 3.760723291727981*^9, {3.7607244350283575`*^9, 
   3.7607244500644913`*^9}, 3.7607284000790915`*^9, 3.760730117210235*^9, 
   3.7607304099536147`*^9, {3.760985021396803*^9, 3.760985030282254*^9}, 
   3.760988612132032*^9, 3.7609905301018496`*^9, 3.7656320633182793`*^9, 
   3.765736372119767*^9, 3.7657364433392863`*^9, 3.765736480677077*^9, 
   3.7657365686862836`*^9, 3.7657383890038195`*^9, 3.7661624344801073`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"8b9e93bf-c7d7-436d-af1f-60b4f20c377c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Diagonal Lagrangian\n\[ScriptCapitalL] = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "A", 
     RowBox[{"\[Square]", "A"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "B", 
     RowBox[{"\[Square]", "B"}]}], "+", " ", 
    RowBox[{"i", " ", 
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{
       SubscriptBox["\[Psi]", "a"], "(", 
       SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubscriptBox["\[Psi]", "b"], "  "}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"4593fec2-ef33-4270-a295-628373bd9fa8"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["D", "c"], "\[ScriptCapitalL]"}], " ", "=", " ", "0", " "}],
    TraditionalForm]], "None",ExpressionUUID->
  "5ddf6b96-7672-4a15-ac9c-cd3e9c358db6"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "c"], "A"}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"1c0384bf-ca76-49e9-a88e-9084adced302"],
 "\[Square]A + ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "c"], "B"}], ")"}], " "}], TraditionalForm]],
  ExpressionUUID->"d93a0dd6-57c1-48b1-8649-fca65f136c29"],
 "\[Square]A  -",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{"i", " ", 
    SubscriptBox["\[Psi]", "a"], 
    SuperscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["D", "c"], 
       SubscriptBox["\[Psi]", "b"]}], ")"}], " "}]}]}]],ExpressionUUID->
  "b994d41b-a850-40d6-a2a6-5a8d45c54c73"]
}], "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.738588501002038*^9, 3.7385886307354584`*^9}, {
   3.73858898988*^9, 3.7385890011916475`*^9}, {3.7385967765757704`*^9, 
   3.7385968980507183`*^9}, {3.74222055188433*^9, 
   3.742220561271173*^9}},ExpressionUUID->"76404347-22ab-4147-9817-\
06d5a99ad810"],

Cell[CellGroupData[{

Cell["\<\
Integration by parts commands: Put all derivatives on the bosons\
\>", "Subsection",
 CellChangeTimes->{{3.4542523663125*^9, 3.45425237446875*^9}, {
  3.454253275984375*^9, 3.4542533091875*^9}, {3.45426311621875*^9, 
  3.454263147921875*^9}, {3.4542944529375*^9, 3.454294453453125*^9}, {
  3.5369355175494814`*^9, 3.536935520995678*^9}, {3.5369358486464186`*^9, 
  3.5369358507945414`*^9}, {3.536936978370035*^9, 
  3.536937000155281*^9}},ExpressionUUID->"b1479fb7-f5b5-4c98-ad67-\
03e3a28c2335"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByParts", "=", 
  RowBox[{"{", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
       "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "  ", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "   ", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", "xp__", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"efield__", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"-", "   ", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
       "]"}]}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4542861504375*^9, 3.454286169796875*^9}, {
   3.454458953640625*^9, 3.45445901278125*^9}, {3.455396920765625*^9, 
   3.4553971038125*^9}, {3.45539730815625*^9, 3.4553973101875*^9}, 
   3.455397564921875*^9, {3.5369355292501507`*^9, 3.536935630955968*^9}, {
   3.548502759932888*^9, 3.548502827575757*^9}, {3.559505239252364*^9, 
   3.559505278835628*^9}, {3.7385966269522123`*^9, 3.7385966729018407`*^9}, 
   3.7385971486350513`*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"0105f5eb-492b-44d1-87c9-c9fdc870974a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      SuperscriptBox["efield", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      SuperscriptBox["efield", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      SuperscriptBox["efield", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "xp", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{
      SuperscriptBox["efield", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7424480810918207`*^9, 3.760723301518382*^9, 
  3.760724479418044*^9, 3.760728400103815*^9, 3.7607301172441983`*^9, 
  3.7607304099775877`*^9, 3.7609905371184864`*^9, 3.765632067215746*^9, 
  3.7657365719148006`*^9, 3.765738392026636*^9, 3.766162434530972*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"f9852177-0d64-43b4-9546-2f4466d244fb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"DLA", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "c"], "A"}], ")"}], " ", 
    RowBox[{"\[Square]", "A"}]}]}], 
  TraditionalForm]],ExpressionUUID->"e645707f-e296-47dd-8061-9620120c3e87"]], \
"Subsection",
 CellChangeTimes->{{3.738596907992287*^9, 
  3.738596935982888*^9}},ExpressionUUID->"90ce956e-1ccd-442b-9482-\
aeff91a8524a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLA", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Da", "[", "ci", "]"}], "[", 
      RowBox[{"Afield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
     RowBox[{"Lap", "[", 
      RowBox[{"Afield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"e10dc636-fd29-4590-8d12-b2de1a9cd992"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7424480812272463`*^9, 3.7607233016262064`*^9, 
  3.7607244794755287`*^9, 3.7607284001321244`*^9, 3.7607301172685976`*^9, 
  3.760730409993632*^9, 3.760990537203298*^9, 3.765632067298525*^9, 
  3.7657365720065556`*^9, 3.7657383920940638`*^9, 3.766162434553752*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"25f6591f-b3ae-4aa4-aff5-8784a97bf650"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"DLB", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "c"], "B"}], ")"}], " ", 
    RowBox[{"\[Square]", "B"}]}]}], 
  TraditionalForm]],ExpressionUUID->"48704127-6901-4793-93fa-b524907f683a"]], \
"Subsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.7385970113191967`*^9, 
  3.738597016480492*^9}},ExpressionUUID->"250f50c8-15ee-4d27-8e7c-\
517b766cde08"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLB", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Da", "[", "ci", "]"}], "[", 
      RowBox[{"Bfield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
     RowBox[{"Lap", "[", 
      RowBox[{"Bfield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.7385970213967733`*^9}, {
  3.738597194784691*^9, 3.738597197322836*^9}, {3.738597254883128*^9, 
  3.7385972554631615`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"25c1070c-79be-4598-b14d-4a9fb46fac41"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.742448081314588*^9, 3.760723301638116*^9, 
  3.7607244794898357`*^9, 3.7607284001550636`*^9, 3.7607301172939663`*^9, 
  3.7607304100179167`*^9, 3.7609905372199807`*^9, 3.765632067316477*^9, 
  3.765736572030493*^9, 3.765738392114255*^9, 3.766162434575693*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"e23ccb2b-94ba-46f4-bbc0-0801bbf30c7c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "DLPsi =  - ",
 Cell[BoxData[
  RowBox[{"i", " ", 
   SubscriptBox["\[Psi]", "a"], 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "c"], 
      SubscriptBox["\[Psi]", "b"]}], ")"}]}]}]],ExpressionUUID->
  "3b54f03a-c40f-41da-8455-b848ef4f6681"]
}], "Subsection",
 CellChangeTimes->{{3.738597279555539*^9, 
  3.7385973231010303`*^9}},ExpressionUUID->"4161e2a7-8cba-441f-a343-\
c4099d5caeb4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLPsi", " ", "=", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", " ", "I"}], " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Psi]", "[", "ai", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
        RowBox[{
         RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ai", ",", "bi"}], "]"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Da", "[", "ci", "]"}], "[", 
           RowBox[{
            RowBox[{"\[Psi]", "[", "bi", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
          RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7385972962894964`*^9, 3.738597413817219*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"05935144-2166-43f0-8595-7458eb2257a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Afield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox["Bfield", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7424480813932343`*^9, 3.7607233017484417`*^9, 
  3.7607244795856*^9, 3.7607284002338514`*^9, 3.7607301173782597`*^9, 
  3.7607304101237173`*^9, 3.7609905373317676`*^9, 3.76563206743416*^9, 
  3.7657365721541595`*^9, 3.765738392232936*^9, 3.7661624346903863`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"eabf011c-5108-4d07-ac25-1b8252f7efbb"]
}, Open  ]]
}, 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->"fd115706-8cc5-4c9b-a712-\
d872a022226d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DLTotal", "=", 
   RowBox[{"(", 
    RowBox[{"DLA", " ", "+", "DLB", " ", "+", " ", "DLPsi"}], " ", ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45427044140625*^9, 3.454270558078125*^9}, 
   3.454270650578125*^9, {3.45428999815625*^9, 3.4542900703125*^9}, {
   3.454458830296875*^9, 3.45445884096875*^9}, 3.454940376296875*^9, {
   3.506785522192181*^9, 3.506785526790444*^9}, {3.5369392311728883`*^9, 
   3.5369392376112566`*^9}, {3.5485033703608027`*^9, 
   3.5485033962392826`*^9}, {3.5486477562959433`*^9, 
   3.5486477629383235`*^9}, {3.551712627583896*^9, 3.551712652427317*^9}, {
   3.5517255133411903`*^9, 3.5517255156213207`*^9}, {3.553366509378154*^9, 
   3.553366514439443*^9}, {3.5533953186563516`*^9, 3.5533953252407284`*^9}, {
   3.5595073425756674`*^9, 3.559507387126215*^9}, {3.559507436092016*^9, 
   3.559507445291542*^9}, {3.7095770876246233`*^9, 3.709577095554077*^9}, {
   3.737977011783942*^9, 3.7379770130830164`*^9}, {3.737978072883633*^9, 
   3.7379780740366993`*^9}, 3.7379781053644915`*^9, {3.7379797820413914`*^9, 
   3.7379797855155907`*^9}, {3.7385966828124075`*^9, 3.73859670156148*^9}, {
   3.73859728690296*^9, 3.7385972937383504`*^9}, {3.7385974545885506`*^9, 
   3.7385974555306044`*^9}, 3.7391007116602974`*^9, {3.7422205802424297`*^9, 
   3.742220581342843*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"7d4386d0-c5c1-4768-88db-d14d0d04d817"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLFinal", " ", "=", " ", 
  RowBox[{"Collect", "[", 
   RowBox[{"DLTotal", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "_", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{
       SuperscriptBox["Afield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Afield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{
       SuperscriptBox["Bfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Bfield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{
       SuperscriptBox["Ffield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Ffield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{
       SuperscriptBox["Gfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"Gfield", "[", 
       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.7385974742296743`*^9, 
   3.73859754742286*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"4c3c4953-c463-47b7-9276-44f4f3c7721d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.7424480815256968`*^9, 3.760723301778219*^9, 
  3.76072447959933*^9, 3.760728400264045*^9, 3.7607301174183474`*^9, 
  3.7607304101632805`*^9, 3.7609905373629713`*^9, 3.7656320674581003`*^9, 
  3.7657365721721125`*^9, 3.7657383922518854`*^9, 3.766162434732275*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"6a8f4cc6-0431-46b5-8741-10dda6343c99"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
CellContext->Notebook,
Magnification:>1.5 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, 8760, 118, 146, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"],
Cell[CellGroupData[{
Cell[9364, 144, 289, 4, 99, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"],
Cell[CellGroupData[{
Cell[9678, 152, 148, 2, 43, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"],
Cell[9829, 156, 503, 7, 49, "Output",ExpressionUUID->"dc259157-6cbc-4755-ab04-bdeccfde73d5"]
}, Open  ]],
Cell[10347, 166, 1125, 16, 43, "Input",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"],
Cell[11475, 184, 247, 4, 43, "Input",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"],
Cell[CellGroupData[{
Cell[11747, 192, 214, 3, 43, "Input",ExpressionUUID->"ee9a22d7-408f-43e3-b2dc-2ed014de5ea4"],
Cell[11964, 197, 352, 5, 49, "Output",ExpressionUUID->"87611f7d-0771-48a0-a71b-045a1f5e51d7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12365, 208, 1908, 43, 275, "Section",ExpressionUUID->"146d1a2f-83d1-445b-8d6a-794175dd6981"],
Cell[CellGroupData[{
Cell[14298, 255, 358, 8, 4610, "Subsection",ExpressionUUID->"e22547c8-db0f-4d90-a835-61cfb31f02ee"],
Cell[CellGroupData[{
Cell[14681, 267, 2216, 50, 4200, "Input",ExpressionUUID->"a2acd604-e595-4672-95ca-8e1098186e62"],
Cell[16900, 319, 1611, 41, 157, "Output",ExpressionUUID->"51b8f239-bedb-45f9-be9c-b22ff34f638c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18560, 366, 507, 9, 4610, "Subsection",ExpressionUUID->"3038ffb8-51e4-4dcc-9722-49731a118162"],
Cell[CellGroupData[{
Cell[19092, 379, 2530, 64, 39258, "Input",ExpressionUUID->"01f62e55-f78e-4093-a3ec-721bea77b88c"],
Cell[21625, 445, 2489, 67, 157, "Output",ExpressionUUID->"2807e90c-235d-4387-81e3-1fa65d830d0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24151, 517, 491, 10, 12447, "Input",ExpressionUUID->"e16fdaff-2670-4030-a67c-2ef21706de6c"],
Cell[24645, 529, 468, 8, 157, "Output",ExpressionUUID->"469d4e13-1900-4e95-9602-875564d2bdd5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25150, 542, 397, 9, 12447, "Input",ExpressionUUID->"b897c6ac-70ed-4913-a3ab-54362841bfe9"],
Cell[25550, 553, 449, 7, 157, "Output",ExpressionUUID->"edaa88cf-8b91-46b3-a81b-f79214f6967e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26036, 565, 463, 11, 12447, "Input",ExpressionUUID->"696ee592-634b-4e76-b69f-687ce2981c89"],
Cell[26502, 578, 466, 8, 157, "Output",ExpressionUUID->"be1fa3df-2d50-4a21-8adb-c61c70e10220"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27017, 592, 1318, 38, 5906, "Subsection",ExpressionUUID->"af709982-3f1d-4135-b5b3-4b91d83f3b07"],
Cell[CellGroupData[{
Cell[28360, 634, 797, 16, 12447, "Input",ExpressionUUID->"3588206d-f428-4851-8eea-c2abf6aa20fb"],
Cell[29160, 652, 658, 14, 157, "Output",ExpressionUUID->"808f7e92-c9cb-4251-b316-f5a37af933ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29855, 671, 1111, 27, 12447, "Input",ExpressionUUID->"d6cdac5e-540a-478c-9259-fa3dc1bcfb55"],
Cell[30969, 700, 1239, 32, 157, "Output",ExpressionUUID->"403397b5-073b-4fa5-8ef3-a03c44427bc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32245, 737, 232, 4, 12447, "Input",ExpressionUUID->"713c6d6d-9c40-465e-9339-7780d1a941c1"],
Cell[32480, 743, 514, 10, 157, "Output",ExpressionUUID->"3ff0512e-799d-45b2-be32-da596a5a077c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33031, 758, 254, 5, 12447, "Input",ExpressionUUID->"9c0a8b1d-ed62-4a0c-9216-81da85589bad"],
Cell[33288, 765, 693, 16, 157, "Output",ExpressionUUID->"2ea9f398-60f5-4265-b2c7-a0bd4d0543f9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[34030, 787, 195, 3, 3098, "Subsection",ExpressionUUID->"38404d85-6a74-4447-aa3b-b53b5dce3a6b"],
Cell[CellGroupData[{
Cell[34250, 794, 1161, 25, 12447, "Input",ExpressionUUID->"0aff9f8a-5ed9-4492-8bfb-588f2bbb08c6"],
Cell[35414, 821, 1095, 24, 157, "Output",ExpressionUUID->"508576bd-0e5b-41d5-b07c-4b88df64e004"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[36570, 852, 914, 15, 76, "Section",ExpressionUUID->"c50236d8-bfd6-4c67-bc1c-bc4c6ff2c66c"],
Cell[CellGroupData[{
Cell[37509, 871, 371, 10, 80, "Subsection",ExpressionUUID->"c9f8c06e-cccd-4878-9cf6-57c38c92fecd"],
Cell[37883, 883, 746, 16, 12447, "Input",ExpressionUUID->"9c34f06b-45d1-4f34-b305-1c0216116b1d"],
Cell[CellGroupData[{
Cell[38654, 903, 217, 3, 12447, "Input",ExpressionUUID->"f22ebbe4-4c6d-4f87-9bf7-c5195f92fbd2"],
Cell[38874, 908, 1088, 29, 157, "Output",ExpressionUUID->"e9f3dcdd-51d8-462b-8464-d612977ebd09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39999, 942, 479, 10, 12447, "Input",ExpressionUUID->"3d7fbdc2-a508-449b-8e58-f443121e4a5c"],
Cell[40481, 954, 947, 23, 157, "Output",ExpressionUUID->"d33290c4-d7c3-4eab-9fd8-2e9f5e951c36"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[41477, 983, 983, 24, 96, "Subsection",ExpressionUUID->"98e87774-272f-42ac-b4fa-5d65db3bb1ba"],
Cell[CellGroupData[{
Cell[42485, 1011, 503, 11, 12447, "Input",ExpressionUUID->"de55789e-dfab-41dc-8216-d41c25d20936"],
Cell[42991, 1024, 647, 15, 157, "Output",ExpressionUUID->"3737b64d-09dd-4267-9893-a77c3b269620"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43675, 1044, 430, 9, 12447, "Input",ExpressionUUID->"09da4b4e-39ad-4cea-a2f2-24b02951a8e5"],
Cell[44108, 1055, 1376, 39, 157, "Output",ExpressionUUID->"396f97a4-565a-46a9-8bf6-9b5ee0d99d37"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45521, 1099, 540, 12, 12447, "Input",ExpressionUUID->"c6c537c2-3c72-4632-93f5-44023bd6cf0b"],
Cell[46064, 1113, 1397, 40, 157, "Output",ExpressionUUID->"2050c022-1117-4fd9-8f63-bd89b0a47014"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47498, 1158, 540, 10, 12447, "Input",ExpressionUUID->"859e702d-e814-42b7-970f-25f2b2808fd7"],
Cell[48041, 1170, 3025, 93, 157, "Output",ExpressionUUID->"e4cadd42-6916-4217-9db8-a2a1073c896b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51103, 1268, 561, 10, 12447, "Input",ExpressionUUID->"6ee37e30-91c8-44b0-ad0c-e3ced6529e06"],
Cell[51667, 1280, 1497, 43, 157, "Output",ExpressionUUID->"b733bc29-ede5-4007-894b-bb2e67f32951"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[53225, 1330, 699, 10, 99, "Section",ExpressionUUID->"5a37422c-9958-4134-8fc9-4e234f8c2e51"],
Cell[CellGroupData[{
Cell[53949, 1344, 7250, 122, 142, "Subsubsection",ExpressionUUID->"fc00eaf6-70c4-4c04-8d33-aa6df0600733"],
Cell[61202, 1468, 2993, 49, 43, "Input",ExpressionUUID->"3ae8c848-3ef6-4bf8-917a-de6ce9ad77df"],
Cell[CellGroupData[{
Cell[64220, 1521, 961, 22, 43, "Input",ExpressionUUID->"69da8689-8948-45fe-8961-734234a3c8d2"],
Cell[65184, 1545, 995, 24, 49, "Output",ExpressionUUID->"314d6cf4-3daa-425c-bce5-934123719252"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66216, 1574, 1056, 24, 43, "Input",ExpressionUUID->"89abcb8f-2156-416a-9682-cfcfe24fda66"],
Cell[67275, 1600, 1310, 37, 163, "Output",ExpressionUUID->"a0b36630-2a30-43e6-b475-654f5f56e0c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68622, 1642, 305, 6, 43, "Input",ExpressionUUID->"1e25c248-1959-4498-bdca-2c99ca288a18"],
Cell[68930, 1650, 519, 9, 49, "Output",ExpressionUUID->"d159d7ad-1d03-4270-8acf-617a653e06f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69486, 1664, 309, 6, 43, "Input",ExpressionUUID->"d1caf179-e09f-4873-8576-6a36d42c62e7"],
Cell[69798, 1672, 526, 9, 49, "Output",ExpressionUUID->"64e167a3-d0e4-43fb-97f8-5e4cf0eaacea"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[70373, 1687, 13164, 219, 137, "Subsubsection",ExpressionUUID->"f9560984-e0cf-4af4-afec-0d033821ebc5"],
Cell[83540, 1908, 2844, 50, 67270, "Input",ExpressionUUID->"bc55c4d1-d1bd-4245-9a6c-9daeca1013b7"],
Cell[CellGroupData[{
Cell[86409, 1962, 985, 22, 67270, "Input",ExpressionUUID->"4c7df59f-2fab-4cef-a427-168843b05a26"],
Cell[87397, 1986, 1045, 26, 157, "Output",ExpressionUUID->"7f7105d0-eee1-47ce-a7b5-ad6c7d0c4b63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88479, 2017, 1084, 24, 67270, "Input",ExpressionUUID->"e9c2733e-38a9-433b-bbaa-f4a10337a22d"],
Cell[89566, 2043, 1357, 39, 157, "Output",ExpressionUUID->"cea4ef1f-1c43-4fa4-83ed-c7a9ca3af467"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90960, 2087, 307, 6, 67270, "Input",ExpressionUUID->"8feabe6e-f362-4b52-b0c1-78182f8f0583"],
Cell[91270, 2095, 536, 10, 157, "Output",ExpressionUUID->"9340a8a5-d0cc-4144-9867-12de203cc7d3"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[91855, 2111, 27273, 452, 156, "Subsubsection",ExpressionUUID->"8859e49f-1d1e-40da-82bc-713f2ec7a8fc"],
Cell[119131, 2565, 2809, 59, 114680, "Input",ExpressionUUID->"4406a35c-429f-4c5f-be36-3e5f0d90fb8a"],
Cell[CellGroupData[{
Cell[121965, 2628, 336, 7, 67270, "Input",ExpressionUUID->"760176c4-139c-415a-9b52-0875484717cd"],
Cell[122304, 2637, 994, 25, 157, "Output",ExpressionUUID->"a48e8af3-3aa0-4423-aef4-67d334b89aef"]
}, Open  ]],
Cell[123313, 2665, 1460, 35, 67270, "Input",ExpressionUUID->"62a0cfdd-afd4-40c3-a427-1efe1cb608da"],
Cell[CellGroupData[{
Cell[124798, 2704, 1741, 43, 160683, "Input",ExpressionUUID->"204d29c1-cdbc-49e8-b9f0-d8e64fb0cc12"],
Cell[126542, 2749, 1714, 45, 157, "Output",ExpressionUUID->"4636f518-4ae8-40b2-9d0a-0115a700fe0e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[128305, 2800, 177, 3, 54, "Subsection",ExpressionUUID->"c1c4e56f-5b25-441f-9fd8-7ab145d549b4"],
Cell[128485, 2805, 902, 20, 12447, "Input",ExpressionUUID->"60ef5838-f565-4050-8bf1-a6567682a247"],
Cell[129390, 2827, 650, 15, 12447, "Input",ExpressionUUID->"4fe106bd-bdab-4e72-a408-02dc39919a4b"],
Cell[130043, 2844, 3320, 85, 46685, "Input",ExpressionUUID->"2fb28a59-0531-4321-9e1a-7857fd2ea043"],
Cell[133366, 2931, 484, 11, 12447, "Input",ExpressionUUID->"4687acaa-d72f-4b66-aa34-3a08a6e5c3f0"],
Cell[133853, 2944, 641, 17, 12447, "Input",ExpressionUUID->"0cfd8546-fa14-4f58-98e2-b4c9a595c3e8"],
Cell[134497, 2963, 615, 15, 12447, "Input",ExpressionUUID->"068992b2-e100-49d6-97ac-4ee310291a7a"],
Cell[135115, 2980, 594, 16, 12447, "Input",ExpressionUUID->"724dbc65-fed2-4f05-a1d3-2cbb2f3a6bdb"],
Cell[135712, 2998, 604, 15, 12447, "Input",ExpressionUUID->"f544c5d2-d050-4577-a044-819ee85c5327"],
Cell[136319, 3015, 1252, 26, 12447, "Input",ExpressionUUID->"218e2522-30a2-4ce9-b4f9-5cd8fb0935ca"],
Cell[137574, 3043, 582, 14, 12447, "Input",ExpressionUUID->"d27b4d38-e675-40bb-af16-a4d221c5be43"],
Cell[CellGroupData[{
Cell[138181, 3061, 1133, 23, 12447, "Input",ExpressionUUID->"56aaa196-abca-4f88-8b17-626ece7d3855"],
Cell[139317, 3086, 26672, 726, 157, "Output",ExpressionUUID->"dbac0187-63c1-461e-bb15-ad82fa67dc15"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[166050, 3819, 429, 7, 76, "Section",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"],
Cell[CellGroupData[{
Cell[166504, 3830, 863, 23, 82, "Subsection",ExpressionUUID->"1d0519df-4c37-4fa6-88cf-82f165397828"],
Cell[CellGroupData[{
Cell[167392, 3857, 998, 19, 43, "Input",ExpressionUUID->"d5036f9e-acfd-4f34-895e-790c1e93c3a1"],
Cell[168393, 3878, 453, 7, 49, "Output",ExpressionUUID->"fd4c6c8c-5495-4518-9427-da404ab103ef"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[168895, 3891, 914, 24, 82, "Subsection",ExpressionUUID->"d28db7e3-fc37-42f6-a66a-a652c436e586"],
Cell[CellGroupData[{
Cell[169834, 3919, 996, 19, 43, "Input",ExpressionUUID->"1734f579-9211-4522-8b7c-ce8fa4e3e6d5"],
Cell[170833, 3940, 450, 7, 49, "Output",ExpressionUUID->"6f3430a7-e9cc-4e3c-abfa-81811560aa8d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[171332, 3953, 44074, 740, 101, "Subsection",ExpressionUUID->"16100d1b-91a7-46c9-9618-7f272fc871d7"],
Cell[215409, 4695, 1653, 40, 73, "Input",ExpressionUUID->"e62167c0-7e2d-4c1d-bfee-f9f778f6bc23"],
Cell[CellGroupData[{
Cell[217087, 4739, 2323, 53, 73, "Input",ExpressionUUID->"dc39187c-8c4c-4509-8319-011905a0c64f"],
Cell[219413, 4794, 465, 7, 49, "Output",ExpressionUUID->"4ec20055-e91d-4799-9d27-0086dfa85b8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219915, 4806, 1770, 58, 74, "Subsubsection",ExpressionUUID->"9070a104-85d0-4573-8126-1113a151bd92"],
Cell[CellGroupData[{
Cell[221710, 4868, 2640, 74, 184, "Input",ExpressionUUID->"6204ecdf-e7ea-416c-8d18-d7b879cb1f6a"],
Cell[224353, 4944, 453, 7, 49, "Output",ExpressionUUID->"9d3e0b41-5644-4387-b442-e67e284f0a35"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[224879, 4959, 153, 3, 99, "Section",ExpressionUUID->"506208ec-72d0-4aa8-9d9f-54191bcc9604"],
Cell[CellGroupData[{
Cell[225057, 4966, 768, 22, 84, "Subsection",ExpressionUUID->"d43faaaf-0673-4970-8df8-4e4a3824b78a"],
Cell[CellGroupData[{
Cell[225850, 4992, 1099, 29, 2459, "Input",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"],
Cell[226952, 5023, 459, 7, 157, "Output",ExpressionUUID->"02bbb073-fb37-4b6c-8acb-d2b07f79e8ed"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[227460, 5036, 794, 22, 58, "Subsection",ExpressionUUID->"71a41a4b-c31a-4753-b78d-d39165c5f480"],
Cell[CellGroupData[{
Cell[228279, 5062, 1130, 29, 2459, "Input",ExpressionUUID->"70eb523b-75b0-4209-8cae-9341d0db15be"],
Cell[229412, 5093, 451, 7, 157, "Output",ExpressionUUID->"1eb27c94-d088-4211-b53d-a06ad6808326"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[229912, 5106, 43993, 733, 206, "Subsection",ExpressionUUID->"82065192-36f2-48f1-95f7-d803faa1d009"],
Cell[273908, 5841, 539, 10, 43, "Input",ExpressionUUID->"0bb9ebe3-b777-4cd0-a410-a8d7bb2fa424"],
Cell[CellGroupData[{
Cell[274472, 5855, 300, 5, 43, "Input",ExpressionUUID->"ab8ed047-a029-4d14-8a6b-dac15e377144"],
Cell[274775, 5862, 438, 8, 49, "Output",ExpressionUUID->"40d97ef1-0183-4ecc-9d6f-3ec0fe3f851a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275250, 5875, 416, 10, 43, "Input",ExpressionUUID->"98317498-cb1d-43b7-99c2-e4225af4d068"],
Cell[275669, 5887, 326, 4, 49, "Output",ExpressionUUID->"c11b2d7c-4cd0-4002-809b-e17e7cf45f1d"]
}, Open  ]],
Cell[276010, 5894, 503, 12, 43, "Input",ExpressionUUID->"eb6f0383-976f-4ee0-bd39-9fec0753b368"],
Cell[CellGroupData[{
Cell[276538, 5910, 3775, 94, 167, "Input",ExpressionUUID->"3846799f-2fd1-40ac-b0dd-c22ed66df588"],
Cell[280316, 6006, 382, 6, 49, "Output",ExpressionUUID->"9e7f2b79-dcc4-4dbe-b87e-2950d5fb16e2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[280747, 6018, 87918, 1464, 208, "Subsection",ExpressionUUID->"68c7e39c-fd44-4942-9218-54c779e0448b"],
Cell[368668, 7484, 766, 18, 43, "Input",ExpressionUUID->"4bf8114a-7b0e-4703-8042-63e5e45ab98e"],
Cell[369437, 7504, 1241, 28, 43, "Input",ExpressionUUID->"92795059-ea0b-4ddd-a196-424c876b2151"],
Cell[370681, 7534, 996, 26, 43, "Input",ExpressionUUID->"4d8b6cc3-fda8-42be-b754-b84729e6f026"],
Cell[371680, 7562, 985, 25, 43, "Input",ExpressionUUID->"645b7d6d-1fd9-4453-9bc8-b73fa0c6f105"],
Cell[372668, 7589, 611, 15, 43, "Input",ExpressionUUID->"c1395840-fd72-4400-bc0c-09289aa24feb"],
Cell[CellGroupData[{
Cell[373304, 7608, 2506, 58, 102, "Input",ExpressionUUID->"2fdfbc40-c8c1-4069-8c63-2c4ca2ca4a22"],
Cell[375813, 7668, 573, 8, 49, "Output",ExpressionUUID->"8b9e93bf-c7d7-436d-af1f-60b4f20c377c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[376447, 7683, 4828, 102, 221, "Section",ExpressionUUID->"76404347-22ab-4147-9817-06d5a99ad810"],
Cell[CellGroupData[{
Cell[381300, 7789, 506, 9, 80, "Subsection",ExpressionUUID->"b1479fb7-f5b5-4c98-ad67-03e3a28c2335"],
Cell[CellGroupData[{
Cell[381831, 7802, 3803, 103, 481306, "Input",ExpressionUUID->"0105f5eb-492b-44d1-87c9-c9fdc870974a"],
Cell[385637, 7907, 3884, 112, 157, "Output",ExpressionUUID->"f9852177-0d64-43b4-9546-2f4466d244fb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[389570, 8025, 421, 12, 54, "Subsection",ExpressionUUID->"90ce956e-1ccd-442b-9482-aeff91a8524a"],
Cell[CellGroupData[{
Cell[390016, 8041, 611, 15, 521289, "Input",ExpressionUUID->"e10dc636-fd29-4590-8d12-b2de1a9cd992"],
Cell[390630, 8058, 5544, 160, 157, "Output",ExpressionUUID->"25f6591f-b3ae-4aa4-aff5-8784a97bf650"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[396223, 8224, 472, 13, 54, "Subsection",ExpressionUUID->"250f50c8-15ee-4d27-8e7c-517b766cde08"],
Cell[CellGroupData[{
Cell[396720, 8241, 713, 17, 1268898, "Input",ExpressionUUID->"25c1070c-79be-4598-b14d-4a9fb46fac41"],
Cell[397436, 8260, 5586, 162, 157, "Output",ExpressionUUID->"e23ccb2b-94ba-46f4-bbc0-0801bbf30c7c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[403071, 8428, 565, 18, 56, "Subsection",ExpressionUUID->"4161e2a7-8cba-441f-a343-c4099d5caeb4"],
Cell[CellGroupData[{
Cell[403661, 8450, 1288, 33, 2196951, "Input",ExpressionUUID->"05935144-2166-43f0-8595-7458eb2257a5"],
Cell[404952, 8485, 59412, 1657, 157, "Output",ExpressionUUID->"eabf011c-5108-4d07-ac25-1b8252f7efbb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[464413, 10148, 481, 7, 54, "Subsection",ExpressionUUID->"fd115706-8cc5-4c9b-a712-d872a022226d"],
Cell[464897, 10157, 1419, 23, 43, "Input",ExpressionUUID->"7d4386d0-c5c1-4768-88db-d14d0d04d817"],
Cell[CellGroupData[{
Cell[466341, 10184, 3028, 66, 85, "Input",ExpressionUUID->"4c3c4953-c463-47b7-9276-44f4f3c7721d"],
Cell[469372, 10252, 456, 7, 49, "Output",ExpressionUUID->"6a8f4cc6-0431-46b5-8741-10dda6343c99"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)