(* 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[    550262,      12403]
NotebookOptionsPosition[    534229,      12115]
NotebookOutlinePosition[    534786,      12136]
CellTagsIndexPosition[    534743,      12133]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["4D N = 1 AVS On Shell 4DCalcs.nb", "Title",
 CellChangeTimes->{{3.431643447359375*^9, 3.43164348528125*^9}, {
   3.4332803471875*^9, 3.4332803938125*^9}, {3.439841647921875*^9, 
   3.439841676265625*^9}, {3.4399946617855*^9, 3.43999466687925*^9}, {
   3.44088192175*^9, 3.440881923578125*^9}, {3.4423479416875*^9, 
   3.442347948953125*^9}, {3.442980454609375*^9, 3.442980483234375*^9}, {
   3.443704482140625*^9, 3.443704510671875*^9}, {3.443704683796875*^9, 
   3.443704691203125*^9}, {3.44372638084375*^9, 3.443726451640625*^9}, {
   3.45355300203125*^9, 3.453553002890625*^9}, {3.454246287921875*^9, 
   3.454246303546875*^9}, {3.454246379453125*^9, 3.4542464184375*^9}, {
   3.454246473484375*^9, 3.454246483109375*^9}, {3.4544147554375*^9, 
   3.454414815859375*^9}, {3.454852671*^9, 3.4548527046875*^9}, {
   3.454856728203125*^9, 3.45485673075*^9}, {3.454926202984375*^9, 
   3.454926295546875*^9}, {3.455015384*^9, 3.455015392609375*^9}, {
   3.455015444671875*^9, 3.455015446890625*^9}, {3.455015517421875*^9, 
   3.455015519890625*^9}, {3.4550155711875*^9, 3.455015606859375*^9}, {
   3.455016320453125*^9, 3.45501632865625*^9}, {3.455042848390625*^9, 
   3.455042857671875*^9}, {3.455043636234375*^9, 3.4550436771875*^9}, {
   3.511555277628312*^9, 3.5115553207117767`*^9}, {3.511625771375633*^9, 
   3.5116258752865763`*^9}, {3.5116411679872684`*^9, 3.511641221284317*^9}, {
   3.5199454008058896`*^9, 3.5199454666306543`*^9}, {3.5199455739987955`*^9, 
   3.519945622294558*^9}, {3.5206458956356697`*^9, 3.520645943704419*^9}, {
   3.523718893836775*^9, 3.523718923873493*^9}, {3.536715674278531*^9, 
   3.5367157073544226`*^9}, {3.53853389765368*^9, 3.538533899967812*^9}, {
   3.538942345864266*^9, 3.538942357964958*^9}, {3.5389474299050565`*^9, 
   3.538947485150216*^9}, {3.5390845827297893`*^9, 3.5390846106083837`*^9}, {
   3.53908510341057*^9, 3.5390851199535165`*^9}, {3.539086064745556*^9, 
   3.5390861577368746`*^9}, {3.5451459061807747`*^9, 3.545145907619857*^9}, {
   3.54514596135293*^9, 3.5451460262956448`*^9}, {3.548677365614721*^9, 
   3.548677420252846*^9}, {3.5486904482318554`*^9, 3.5486904831498528`*^9}, {
   3.5507964280028415`*^9, 3.550796434750227*^9}, {3.5516981864105062`*^9, 
   3.5516981873125577`*^9}, {3.5517063670611444`*^9, 3.551706375990655*^9}, {
   3.5517143798937216`*^9, 3.5517143832039113`*^9}, {3.5517286202182903`*^9, 
   3.5517286597495513`*^9}, {3.5517928905442033`*^9, 3.551792917464743*^9}, {
   3.5521354453831377`*^9, 3.5521354853424234`*^9}, {3.552135534200218*^9, 
   3.552135558024581*^9}, {3.5521356059203205`*^9, 3.552135681027616*^9}, {
   3.5521357231810274`*^9, 3.5521357548318377`*^9}, {3.55231422706569*^9, 
   3.5523142637937903`*^9}, {3.552314318528921*^9, 3.552314318928944*^9}, {
   3.552314384905718*^9, 3.552314430815344*^9}, {3.552314502398438*^9, 
   3.5523146413143835`*^9}, {3.552473196132519*^9, 3.5524732208799343`*^9}, 
   3.5528371122703466`*^9, 3.5528444571634464`*^9, {3.5528449407701073`*^9, 
   3.5528450003105125`*^9}, {3.552866910465884*^9, 3.5528670764143763`*^9}, {
   3.5528755049588575`*^9, 3.552875669883291*^9}, {3.5528757974815893`*^9, 
   3.5528759485802317`*^9}, {3.552876032727044*^9, 3.5528760646078677`*^9}, 
   3.5528770280839753`*^9, {3.552905728992181*^9, 3.5529057870398817`*^9}, {
   3.552924313800542*^9, 3.552924357451039*^9}, {3.5529244139042673`*^9, 
   3.5529245023153243`*^9}, {3.5529245516931486`*^9, 3.552924613397678*^9}, {
   3.552928164005761*^9, 3.552928186311037*^9}, {3.5529298153452125`*^9, 
   3.5529298409716783`*^9}, {3.5532932040039682`*^9, 
   3.5532932496185775`*^9}, {3.553293282659467*^9, 3.553293292302019*^9}, {
   3.553293383011207*^9, 3.553293411333827*^9}, {3.5532981370511494`*^9, 
   3.553298408108653*^9}, {3.553298441734576*^9, 3.5532987180763826`*^9}, {
   3.5532987757606816`*^9, 3.5532988306618223`*^9}, {3.5533029743948298`*^9, 
   3.5533030195604134`*^9}, {3.553306886924614*^9, 3.5533068932679768`*^9}, {
   3.553311679995762*^9, 3.553311730478649*^9}, {3.553311805864961*^9, 
   3.5533118710006866`*^9}, {3.5533120465167255`*^9, 3.553312046787741*^9}, {
   3.5533122428069525`*^9, 3.5533122428069525`*^9}, {3.553312319318329*^9, 
   3.553312332850103*^9}, {3.5533123656929817`*^9, 3.5533123938585925`*^9}, 
   3.5533125753399725`*^9, {3.5533162583976316`*^9, 3.5533162749975805`*^9}, 
   3.5533163117066803`*^9, {3.5533163518819785`*^9, 3.5533164029468994`*^9}, {
   3.553357870429034*^9, 3.55335793120451*^9}, {3.553360423158042*^9, 
   3.553360477275137*^9}, {3.5533605162343655`*^9, 3.553360605248457*^9}, {
   3.55336064149253*^9, 3.5533607117395477`*^9}, {3.553360769712864*^9, 
   3.553360790017025*^9}, {3.553360827712181*^9, 3.5533608685515165`*^9}, {
   3.5533609116069794`*^9, 3.553360984719161*^9}, {3.553361035631073*^9, 
   3.5533610708610888`*^9}, {3.5533611506446514`*^9, 3.553361152577762*^9}, {
   3.553361571282711*^9, 3.553361617443351*^9}, {3.553362021762477*^9, 
   3.5533621970635033`*^9}, {3.55336225609488*^9, 3.553362258462015*^9}, {
   3.553362402136233*^9, 3.5533624518330755`*^9}, {3.553362520950029*^9, 
   3.5533625853667135`*^9}, {3.5533635314808273`*^9, 
   3.5533635853299074`*^9}, {3.553363685328627*^9, 3.553363698002352*^9}, {
   3.553363909535451*^9, 3.5533639144157305`*^9}, 3.553364219200163*^9, 
   3.5533644938708735`*^9, {3.553364575184524*^9, 3.553364599654924*^9}, {
   3.55336466183048*^9, 3.5533646655966954`*^9}, {3.553365137488686*^9, 
   3.553365145141124*^9}, {3.5533656688530784`*^9, 3.5533657248882837`*^9}, 
   3.553366821643014*^9, {3.5533671012070045`*^9, 3.5533671132246914`*^9}, {
   3.553367256017859*^9, 3.5533672954111123`*^9}, {3.5533673936717324`*^9, 
   3.553367442797542*^9}, {3.553393155762641*^9, 3.5533933527619085`*^9}, {
   3.5533934025587573`*^9, 3.55339343250747*^9}, {3.553393466195397*^9, 
   3.5533934799451838`*^9}, {3.5533936057913814`*^9, 3.553393621924304*^9}, {
   3.5533936651637774`*^9, 3.553393696448567*^9}, {3.5533938357385335`*^9, 
   3.5533938415228643`*^9}, {3.55339396837212*^9, 3.553393970315231*^9}, {
   3.553394007223342*^9, 3.5533940655636787`*^9}, {3.5533948267242146`*^9, 
   3.553394871172757*^9}, 3.5533949827821407`*^9, {3.553395879210414*^9, 
   3.55339590415384*^9}, {3.5533960192464232`*^9, 3.553396052167306*^9}, {
   3.5534453110074387`*^9, 3.5534453210730143`*^9}, {3.5543978769816384`*^9, 
   3.5543979153068304`*^9}, {3.5543979522839456`*^9, 3.554398051165597*^9}, {
   3.559413579039064*^9, 3.559414031602949*^9}, {3.5594140643608227`*^9, 
   3.559414824354292*^9}, {3.5594148673047485`*^9, 3.5594148697598886`*^9}, 
   3.559434854871258*^9, {3.5594361459001007`*^9, 3.5594361488202677`*^9}, {
   3.5594362074236193`*^9, 3.5594362074236193`*^9}, {3.5594413332417994`*^9, 
   3.559441339224142*^9}, {3.5594800125024767`*^9, 3.5594800206869445`*^9}, 
   3.55949611087125*^9, {3.5594961446901846`*^9, 3.5594963728392344`*^9}, {
   3.5594967272045026`*^9, 3.559496732893828*^9}, {3.559496827283227*^9, 
   3.559496972989561*^9}, {3.559498343667959*^9, 3.5594984776456223`*^9}, {
   3.5594985619584446`*^9, 3.5594986885086827`*^9}, {3.559504207814369*^9, 
   3.5595043347686305`*^9}, {3.5610849081423254`*^9, 3.561084919991003*^9}, {
   3.674997609869558*^9, 3.6749976403446026`*^9}, {3.7095691177887754`*^9, 
   3.7095692232638083`*^9}, {3.709569416628868*^9, 3.709569447700645*^9}, {
   3.709570025775709*^9, 3.7095700822929416`*^9}, {3.7095701212661705`*^9, 
   3.7095701302756863`*^9}, {3.7095701635905914`*^9, 
   3.7095701953544083`*^9}, {3.709570238234861*^9, 3.7095703996370926`*^9}, {
   3.7095705169488025`*^9, 3.709570536260907*^9}, {3.709570570671875*^9, 
   3.7095707000022726`*^9}, {3.7095707414556437`*^9, 3.709570911927394*^9}, {
   3.7095709420471168`*^9, 3.7095709556628957`*^9}, {3.709571091599671*^9, 
   3.7095711396634197`*^9}, {3.7095711775595875`*^9, 3.709571198140764*^9}, {
   3.709573470067711*^9, 3.7095735804760265`*^9}, {3.70957367197526*^9, 
   3.709573673761362*^9}, {3.709575309022894*^9, 3.7095753967389107`*^9}, {
   3.7108085535310116`*^9, 3.710808698160284*^9}, {3.7117169877149534`*^9, 
   3.71171700584299*^9}, {3.711843921222666*^9, 3.711843950188323*^9}, {
   3.7120954091535835`*^9, 3.712095410524662*^9}, {3.737153557144597*^9, 
   3.7371535573632975`*^9}, {3.737153660538913*^9, 3.737153677384055*^9}, {
   3.737289276440363*^9, 3.7372892764413633`*^9}, {3.7379791370084977`*^9, 
   3.7379791561145906`*^9}, {3.7379792255395613`*^9, 3.737979267044935*^9}, {
   3.738580160531347*^9, 3.7385801752121863`*^9}, {3.7422187903728733`*^9, 
   3.742218794232212*^9}, 3.7424478775638*^9, {3.7608112578164744`*^9, 
   3.760811258084696*^9}, {3.760988703245017*^9, 3.760988706933181*^9}, {
   3.761319615167703*^9, 3.761319615630783*^9}, 3.766162995463231*^9, {
   3.7661635915678644`*^9, 
   3.7661635940639257`*^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.761320627286189*^9, 3.7656349866882153`*^9, 
  3.7657384837334733`*^9, 3.7661630007871256`*^9, 3.7689306743074846`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"9f1b42df-ffcd-4b2e-ad06-0838cc7aef6d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "AVSOnShell"}], ";"}]], "Input",
 CellChangeTimes->{{3.6749934458329735`*^9, 3.6749934552906713`*^9}, {
   3.6749935512237806`*^9, 3.6749935589505424`*^9}, {3.6749938285658455`*^9, 
   3.674993829104095*^9}, {3.674994097653822*^9, 3.674994100542435*^9}, 
   3.7108087172403755`*^9, {3.7108087539744763`*^9, 3.710808771379472*^9}, {
   3.7108100382219315`*^9, 3.710810046522406*^9}, {3.710872292511095*^9, 
   3.710872295614272*^9}, {3.710872341570901*^9, 3.7108723499323792`*^9}, {
   3.7113851081406517`*^9, 3.711385116342121*^9}, 3.7117170155335445`*^9, {
   3.7118439658332176`*^9, 3.7118439659442244`*^9}, 3.7120954248874836`*^9, {
   3.737153700401895*^9, 3.737153701464458*^9}, {3.737979211685769*^9, 
   3.737979212556819*^9}, {3.7379793011768875`*^9, 3.7379793023309536`*^9}, {
   3.7385801983905125`*^9, 3.7385802005056334`*^9}, {3.742218797918304*^9, 
   3.7422187989953537`*^9}, {3.76081126125266*^9, 3.760811261972982*^9}, {
   3.7608113426210012`*^9, 3.7608113538356404`*^9}, 3.761319619038954*^9, 
   3.76616299868654*^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.7613206273752437`*^9, 3.7656349867899914`*^9, 
  3.7657384838490148`*^9, 3.766163000960027*^9, 3.7689306745858183`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"17de4c8c-f345-4407-85f5-65bb95648647"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "fields: Ufield[mu],dfield, \[Lambda][a], all free indices covariant\n\
AdinkraReduce\n",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalPhi]", "i"], TraditionalForm]],ExpressionUUID->
  "5512a3b1-9c30-41d0-b432-2a4b35df7d4d"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     SubscriptBox[
      OverscriptBox["U", "."], "1"], ",", 
     OverscriptBox[
      SubscriptBox["U", "2"], "."], ",", 
     OverscriptBox[
      SubscriptBox["U", "3"], "."]}], "}"}], TraditionalForm]],ExpressionUUID->
  "10d08833-b580-41c2-b23f-a9049ee3fdf6"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalPsi]", 
     OverscriptBox["i", "^"]], "=", " ", 
    RowBox[{"{", 
     SubscriptBox[
      OverscriptBox["\[Lambda]", "."], "a"], "}"}]}], TraditionalForm]],
  ExpressionUUID->"d2e128ad-f240-4b4f-9c6f-fef159719ff0"],
 " "
}], "Section",
 CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, {
   3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 
   3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, {
   3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 
   3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, {
   3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 
   3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 
   3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, {
   3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 
   3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, {
   3.7113948776934385`*^9, 3.7113949804623165`*^9}, {3.7113952539569597`*^9, 
   3.711395261886413*^9}, {3.7114193010506587`*^9, 3.7114193015116854`*^9}, {
   3.73858035657756*^9, 3.7385804281216516`*^9}, {3.738580808452406*^9, 
   3.7385808207731104`*^9}, {3.739014781635538*^9, 3.739014825339038*^9}, {
   3.7390148588989573`*^9, 3.7390149402156086`*^9}, {3.7390150015351157`*^9, 
   3.739015006557403*^9}, {3.7392033440592923`*^9, 3.739203344281305*^9}, 
   3.761319691509345*^9, {3.7613197288563824`*^9, 
   3.7613197409305315`*^9}},ExpressionUUID->"4c5b5cfe-adb3-4e93-a92e-\
56fcdf2f0a10"],

Cell[CellGroupData[{

Cell["\<\
AdinkraReduce Encodes reducing the dependence on the fields from 4D \
space-time to only time\
\>", "Subsection",
 CellChangeTimes->{{3.711387756373122*^9, 
  3.71138778325966*^9}},ExpressionUUID->"35c45c57-b4de-4657-80c8-\
61a394edd298"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReduce", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Ufield", "[", "mu_", "]"}], "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"Ufield", "[", "mu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{"dfield", "->", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{"dfield", "[", "t", "]"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Rule]", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.4398532235625*^9, 3.43985327665625*^9}, {
   3.4398533495625*^9, 3.439853466234375*^9}, {3.439853579328125*^9, 
   3.439853621875*^9}, {3.439865630453125*^9, 3.43986573459375*^9}, {
   3.439865787203125*^9, 3.43986585509375*^9}, {3.439870393140625*^9, 
   3.439870424015625*^9}, {3.439870466796875*^9, 3.439870474859375*^9}, 
   3.439870511125*^9, 3.439870584375*^9, {3.4398709615*^9, 
   3.439870990625*^9}, {3.439871465328125*^9, 3.439871476109375*^9}, {
   3.4409042785625*^9, 3.4409045300625*^9}, {3.44234987671875*^9, 
   3.44234997096875*^9}, {3.536715111601348*^9, 3.536715188302735*^9}, {
   3.545146062705727*^9, 3.545146168500778*^9}, {3.545146250286456*^9, 
   3.5451462562327967`*^9}, {3.5594349084683237`*^9, 
   3.5594349817895174`*^9}, {3.7385804356330814`*^9, 3.7385804982376623`*^9}, 
   3.738583906002576*^9, {3.7390150508859386`*^9, 3.739015058103351*^9}, {
   3.7390151768311424`*^9, 3.7390151904359207`*^9}, {3.7390152227927713`*^9, 
   3.739015271980584*^9}, {3.761319692688261*^9, 3.761319693421671*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Ufield", "[", "mu_", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       RowBox[{"Ufield", "[", "mu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{"dfield", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"dfield", "[", "t", "]"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.761320679740694*^9, 3.765634986808591*^9, 
  3.7657384838679643`*^9, 3.7661630009849606`*^9, 3.768930674648304*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"cac248f3-8736-4968-bf65-3578f6acab41"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
fields := prints out the adinkra reduced fields in subscript form\
\>", "Subsection",
 CellChangeTimes->{{3.439865886734375*^9, 3.439865888515625*^9}, {
   3.7113878343185806`*^9, 3.7113878437131176`*^9}, {3.7113952255063324`*^9, 
   3.711395235018876*^9}, {3.737164677735704*^9, 3.737164690268036*^9}, 
   3.7371647213652935`*^9, {3.73901531264291*^9, 3.7390153268057203`*^9}, {
   3.7390267501716614`*^9, 
   3.739026750933705*^9}},ExpressionUUID->"8dc47d1e-d238-43ad-b614-\
8fd7a1d31b4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fields", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", 
     SubscriptBox["\[Lambda]", "a"]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]", "[", "a_", "]"}], "'"}], "[", "t", "]"}], 
     "\[Rule]", 
     SubscriptBox[
      OverscriptBox["\[Lambda]", "."], "a"]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]", "[", "a_", "]"}], "''"}], "[", "t", "]"}], 
     "\[Rule]", 
     RowBox[{
      SubscriptBox["\[Lambda]", "a"], "''"}]}], ",", "\[IndentingNewLine]", 
    " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Ufield", "[", "mu_", "]"}], "[", "t", "]"}], "\[Rule]", 
     SubscriptBox["U", "mu"]}], ",", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Ufield", "[", "mu_", "]"}], "'"}], "[", "t", "]"}], "\[Rule]", 
     SubscriptBox[
      OverscriptBox["U", "."], "mu"]}], ",", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Ufield", "[", "mu", "]"}], "''"}], "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      SubscriptBox["U", "mu"], "''"}]}], ",", 
    RowBox[{
     RowBox[{"dfield", "[", "t", "]"}], "\[Rule]", "d"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"dfield", "'"}], "[", "t", "]"}], "\[Rule]", 
     OverscriptBox["d", "."]}]}], "}"}]}]], "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}, {
   3.7390267537138643`*^9, 3.7390267585551405`*^9}, {3.7390269082497025`*^9, 
   3.739027007719392*^9}, {3.7613196946322155`*^9, 3.7613196961863174`*^9}, {
   3.7613197452718954`*^9, 3.7613197467533827`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"02d26f17-a193-49ca-87a1-899d6cf2c676"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Lambda]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", 
    SubscriptBox["\[Lambda]", "a"]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SubscriptBox[
     OverscriptBox["\[Lambda]", "."], "a"]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SuperscriptBox[
     SubscriptBox["\[Lambda]", "a"], "\[Prime]\[Prime]",
     MultilineFunction->None]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Ufield", "[", "mu_", "]"}], "[", "t", "]"}], "\[Rule]", 
    SubscriptBox["U", "mu"]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"Ufield", "[", "mu_", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SubscriptBox[
     OverscriptBox["U", "."], "mu"]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"Ufield", "[", "mu", "]"}], "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    SuperscriptBox[
     SubscriptBox["U", "mu"], "\[Prime]\[Prime]",
     MultilineFunction->None]}], ",", 
   RowBox[{
    RowBox[{"dfield", "[", "t", "]"}], "\[Rule]", "d"}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["dfield", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
    OverscriptBox["d", "."]}]}], "}"}]], "Output",
 CellChangeTimes->{3.761320679941184*^9, 3.7656349868255253`*^9, 
  3.765738483887909*^9, 3.766163001009892*^9, 3.7689306747185574`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"90f4f91b-4653-4dc2-ab8c-edcc71d714f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Lambda]", "[", "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}, {3.73902704159733*^9, 
  3.7390270426783915`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"4075e5c9-bb03-4ae5-827b-cc4bde7d319c"],

Cell[BoxData[
 SubscriptBox[
  OverscriptBox["\[Lambda]", "."], "2"]], "Output",
 CellChangeTimes->{3.761320679958104*^9, 3.7656349868434772`*^9, 
  3.7657384838998775`*^9, 3.7661630010208645`*^9, 3.7689306748011823`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"7c645d56-a288-460d-84b1-195ff5a9f24a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7391013406762753`*^9, 3.739101343886459*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"e586daf5-bcfa-438d-b2ca-0de12bfe9d9a"],

Cell["\\dot{\\lambda }_2", "Output",
 CellChangeTimes->{3.7613206800261087`*^9, 3.7656349868993297`*^9, 
  3.7657384839627094`*^9, 3.7661630010707293`*^9, 3.768930674865784*^9},
 CellLabel->
  "Out[8]//TeXForm=",ExpressionUUID->"817ec725-0975-412b-a9e7-2a6d0fdbe1a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", 
   "AdinkraReduce"}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.559435536027218*^9, 3.559435556132368*^9}, {
  3.738580736996319*^9, 3.738580738560408*^9}, {3.739027045675563*^9, 
  3.739027046183592*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"9c0049b0-1502-4645-a3f9-a81f9269af9a"],

Cell[BoxData[
 SubscriptBox["\[Lambda]", "1"]], "Output",
 CellChangeTimes->{3.761320680042061*^9, 3.765634986921268*^9, 
  3.765738483979664*^9, 3.7661630010856895`*^9, 3.768930674943929*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"a7419f62-1b3a-4841-8b52-9d4d7f2832ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}], "/.",
    "AdinkraReduce"}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.5594355628717537`*^9, 3.559435569432129*^9}, {
  3.7385807424756317`*^9, 3.7385807432156744`*^9}, {3.7390270491927643`*^9, 
  3.7390270504678373`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"9a166dd6-65d3-4354-9e54-3f6e295c74a5"],

Cell[BoxData[
 SubscriptBox[
  OverscriptBox["\[Lambda]", "."], "1"]], "Output",
 CellChangeTimes->{3.7613206800570235`*^9, 3.7656349869388714`*^9, 
  3.765738483998227*^9, 3.7661630011056366`*^9, 3.768930675006444*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"e6b94a07-6a32-483d-9e15-2f70ba26251c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Phi", "[", "t", "]"}], "[", 
     RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
    SubscriptBox["\[CapitalPhi]", "i"]}], TraditionalForm]],ExpressionUUID->
  "ae24a706-c9b5-49b7-b525-724b4f04c622"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     SubscriptBox[
      OverscriptBox["U", "."], "1"], ",", 
     OverscriptBox[
      SubscriptBox["U", "2"], "."], ",", 
     OverscriptBox[
      SubscriptBox["U", "3"], "."]}], "}"}], TraditionalForm]],ExpressionUUID->
  "d75324ad-3f13-4047-9861-125ea39545a3"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Psi", "[", "t", "]"}], "[", 
     RowBox[{"[", "ihat", "]"}], "]"}], " ", "=", " ", 
    RowBox[{
     SubscriptBox["\[CapitalPsi]", 
      OverscriptBox["i", "^"]], "=", " ", 
     RowBox[{"{", 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "a"], "}"}], " "}]}], 
   TraditionalForm]],ExpressionUUID->"45b52577-aa07-4487-8f2b-dd143d1dd293"],
 " "
}], "Subsection",
 CellChangeTimes->{{3.7113950998691463`*^9, 3.7113951338350887`*^9}, {
  3.7114193111012335`*^9, 3.7114193116452646`*^9}, {3.738580760953689*^9, 
  3.7385807864541473`*^9}, {3.738580832602787*^9, 3.7385808326037874`*^9}, {
  3.7390155287712717`*^9, 3.739015542283045*^9}, {3.7609853049075375`*^9, 
  3.7609853049075375`*^9}, {3.761319750288043*^9, 
  3.761319751065772*^9}},ExpressionUUID->"f7223d3e-780f-46b6-aa53-\
f17da6eef8b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Phi", "[", "t", "]"}], " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Ufield", "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Ufield", "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Ufield", "[", "3", "]"}], "'"}], "[", "t", "]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.6745776682748632`*^9, 3.6745779133984795`*^9}, {
   3.674734596205909*^9, 3.674734728366371*^9}, {3.674785522776581*^9, 
   3.674785523431017*^9}, {3.6747858856838675`*^9, 3.6747858862742834`*^9}, {
   3.6748160483899126`*^9, 3.674816145774766*^9}, {3.7107764696574073`*^9, 
   3.7107764702524414`*^9}, {3.7385808805555296`*^9, 3.7385808957704*^9}, {
   3.739015556696869*^9, 3.739015599385311*^9}, 3.76098534273036*^9, {
   3.761319696819661*^9, 3.7613196976376467`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Ufield", "[", "1", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Ufield", "[", "2", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Ufield", "[", "3", "]"}], "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7613206800719795`*^9, 3.7656349869558115`*^9, 
  3.7657384840151796`*^9, 3.7661630011215935`*^9, 3.7689306750838747`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"9d8fc868-4318-4450-b92f-66c9b82f4bdc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Psi", "[", "t", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]", "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]", "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]", "[", "3", "]"}], "'"}], "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]", "[", "4", "]"}], "'"}], "[", "t", "]"}]}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.6748161614942904`*^9, 3.674816192282522*^9}, {
  3.6748162285602317`*^9, 3.67481634210023*^9}, {3.6748165467092514`*^9, 
  3.674816556356063*^9}, {3.674860464676492*^9, 3.674860465434026*^9}, {
  3.710776478221897*^9, 3.7107764786759233`*^9}, {3.711391757277961*^9, 
  3.7113917605891504`*^9}, {3.738580902970812*^9, 3.738580916636594*^9}, {
  3.739015631268134*^9, 3.739015635088353*^9}, {3.7390162289783216`*^9, 
  3.7390162324555206`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Lambda]", "[", "1", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Lambda]", "[", "2", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Lambda]", "[", "3", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Lambda]", "[", "4", "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7613206800859423`*^9, 3.7656349869717665`*^9, 
  3.7657384840291405`*^9, 3.766163001135558*^9, 3.7689306751536894`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"5810f00b-47de-4c07-83a9-fd317c133f28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Phi", "[", "t", "]"}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.711395275486191*^9, 3.7113952811105127`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"79460b94-9729-4f3e-8728-f207ac43d16f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox[
    OverscriptBox["U", "."], "1"], ",", 
   SubscriptBox[
    OverscriptBox["U", "."], "2"], ",", 
   SubscriptBox[
    OverscriptBox["U", "."], "3"]}], "}"}]], "Output",
 CellChangeTimes->{3.7613206801009026`*^9, 3.7656349869887238`*^9, 
  3.7657384840471907`*^9, 3.766163001152831*^9, 3.7689306752225046`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"4a3e62a9-c934-4731-8272-910238101c64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"I", " ", 
   RowBox[{"Psi", "[", "t", "]"}]}], "/.", "fields"}]], "Input",
 CellChangeTimes->{{3.711395298633515*^9, 3.711395308561083*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"0d5cbf46-6c7e-4ca6-9313-90549d0dfd86"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox[
    OverscriptBox["\[Lambda]", "."], "1"], ",", 
   SubscriptBox[
    OverscriptBox["\[Lambda]", "."], "2"], ",", 
   SubscriptBox[
    OverscriptBox["\[Lambda]", "."], "3"], ",", 
   SubscriptBox[
    OverscriptBox["\[Lambda]", "."], "4"]}], "}"}]], "Output",
 CellChangeTimes->{3.7613206801238427`*^9, 3.7656349870056777`*^9, 
  3.765738484065792*^9, 3.7661630011723833`*^9, 3.768930675290324*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"71ac0478-523e-49ab-a7cb-4c605e9c19a0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["FieldList:= list of the names of the fields", "Subsection",
 CellChangeTimes->{{3.7371647409610195`*^9, 3.7371647437738266`*^9}},
 FontSlant->"Italic",ExpressionUUID->"934f9f0b-9b24-401e-9416-77c2303ebc8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FieldList", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Ufield", "[", "0", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"Ufield", "[", "1", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"Ufield", "[", "2", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"Ufield", "[", "3", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "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.7390162983542895`*^9, 
   3.739016335650423*^9}, {3.7390163659171543`*^9, 3.7390163762287436`*^9}, {
   3.7391978054309034`*^9, 3.7391978066249037`*^9}, 3.760985298459784*^9, {
   3.7613196982931275`*^9, 3.7613196992175083`*^9}},
 FontSlant->"Italic",
 CellLabel->"In[15]:=",ExpressionUUID->"f16a7014-9edd-4a83-8bb8-ca1541272574"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Ufield", "[", "0", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7613206801413646`*^9, 3.765634987019641*^9, 
  3.7657384840817485`*^9, 3.766163001190338*^9, 3.768930675381081*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"6c438043-7f4e-4334-bbb4-f4537d4536b4"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Symmetries, Constraints, and raised indices such as Ufieldup, etc. \
\>", "Section",
 CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, {
   3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 
   3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, {
   3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 
   3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, {
   3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 
   3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 
   3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, {
   3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 
   3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, {
   3.7113950004634604`*^9, 3.711395042032838*^9}, {3.739016391461615*^9, 
   3.7390163922926626`*^9}, 
   3.761319700142214*^9},ExpressionUUID->"65102be5-a054-4c68-82da-\
5d568c24d914"],

Cell[CellGroupData[{

Cell[TextData[{
 "\[Lambda]up[a] := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Lambda]", "a"], TraditionalForm]],ExpressionUUID->
  "b2a23503-d120-4acd-a423-bc998b961d96"]
}], "Subsection",
 CellChangeTimes->{{3.7113899424411583`*^9, 3.7113899579800467`*^9}, {
  3.738581167758957*^9, 3.7385811777485285`*^9}, {3.7390164552622643`*^9, 
  3.7390164590834827`*^9}},ExpressionUUID->"6c41c663-34cc-4984-9ec1-\
aa5934fb2ff1"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Lambda]up", "[", "ai", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{"RaiseFermionIndex", "[", 
     RowBox[{
      RowBox[{"\[Lambda]", "[", "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}, {
  3.739016404855381*^9, 3.7390164148099504`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"a91adb23-7dc4-40aa-afc4-5e6bb69aed24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"3f93f86f-eaee-4ffa-bb22-a47827eb1e6b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.761320694336066*^9, 3.76563498704613*^9, 
  3.765738484105686*^9, 3.766163001210284*^9, 3.768930675536665*^9},
 CellLabel->
  "Out[17]//MatrixForm=",ExpressionUUID->"985f1b3b-bc68-423a-91a0-\
89469c858d7d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Lambda]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}, {
   3.739016432295951*^9, 3.7390164330349927`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"a82c1de1-716c-43b3-8a86-ec5a486e94d1"],

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

 CellChangeTimes->{3.7613206943470445`*^9, 3.7656349870650787`*^9, 
  3.76573848413361*^9, 3.7661630012342205`*^9, 3.76893067560249*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"e49ce283-492e-4ea1-afbb-4dd99a5f970e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Ufieldup", "Subsection",
 CellChangeTimes->{{3.5451465790572605`*^9, 3.545146585929654*^9}, {
   3.5451543054161835`*^9, 3.545154311792548*^9}, 3.5594356703308997`*^9, {
   3.709571995263357*^9, 3.709571995932396*^9}, {3.739016500869873*^9, 
   3.7390165034870224`*^9}, 
   3.7613197008951116`*^9},ExpressionUUID->"778edc5b-aa18-4a83-ac0d-\
00833534239a"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Ufieldup", "[", "mu", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{"RaiseSTIndex", "[", 
     RowBox[{
      RowBox[{"Ufield", "[", "mu", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5451465875187445`*^9, 3.5451466239788303`*^9}, {
  3.5451543212970915`*^9, 3.5451543250963087`*^9}, {3.559435673901104*^9, 
  3.5594356777893267`*^9}, {3.711387230056019*^9, 3.711387257754603*^9}, {
  3.7371538092270117`*^9, 3.7371538229783764`*^9}, {3.7371540001526613`*^9, 
  3.737154000480689*^9}, {3.737158811015826*^9, 3.7371588326117053`*^9}, {
  3.7390165117844973`*^9, 3.7390165291404896`*^9}, {3.7613197016232824`*^9, 
  3.7613197019700947`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Ufieldup", "[", "mu", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5451466516414127`*^9, 3.545146659427858*^9}, 
   3.5451543356479125`*^9, 3.559435682412591*^9, {3.7390165506337194`*^9, 
   3.739016551840788*^9}, 3.7613197026006603`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"43687642-1c54-4669-84c2-e03dde360657"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"Ufield", "[", "0", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "2", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "3", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.76132069436598*^9, 3.76563498709101*^9, 
  3.765738484155553*^9, 3.7661630012717657`*^9, 3.768930675689258*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"0c0ed5c5-ae79-4735-9471-9bb042fc9d72"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "The Field strength, covariant and contravariant:  Fmn[\[Mu],\[Nu]]:=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubscriptBox["U", "\[Nu]"]}], " ", "-", " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Nu]"], 
      SubscriptBox["U", "\[Mu]"]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"eb8aebdc-4464-4c08-99c1-c0ea702eb5e6"],
 "  ,  Fmnup[\[Mu],\[Nu]][t,x,y,z] := ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Mu]"], 
      SuperscriptBox["U", "\[Nu]"]}], "-", 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Nu]"], 
      SuperscriptBox["U", "\[Mu]"]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"1ddd53b2-23fa-44c1-8e0c-8e2d9c9b82a8"]
}], "Subsection",
 CellChangeTimes->{{3.559435749243413*^9, 3.5594358115719786`*^9}, {
  3.7095723534978476`*^9, 3.709572367764663*^9}, {3.7391018360546093`*^9, 
  3.7391018449561186`*^9}, {3.7391026849641643`*^9, 3.7391026854611926`*^9}, {
  3.739102724383419*^9, 3.7391027822997313`*^9}, {3.761319752171261*^9, 
  3.7613197540894947`*^9}},ExpressionUUID->"3f1ea2b0-6032-4fee-802d-\
0bd9d2cf462b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Fmn", "[", 
       RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Ufield", "[", "\[Nu]", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "\[Mu]", "]"}]}], "]"}], " ", "-", 
      " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Ufield", "[", "\[Mu]", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "\[Nu]", "]"}]}], "]"}]}]}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.559435816934285*^9, 3.5594358798158817`*^9}, {
  3.5594391240094385`*^9, 3.5594391253525157`*^9}, {3.7391018117262177`*^9, 
  3.7391018161954737`*^9}, {3.7613197031850944`*^9, 3.7613197036464043`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Fmnup", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", "  ", 
    RowBox[{
     RowBox[{"RaiseSTIndex", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"FmnHolder", "[", 
         RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", 
       "UP"}], "]"}], "/.", 
     RowBox[{"FmnHolder", "\[Rule]", "Fmn"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.55943589149255*^9, 3.559435933415947*^9}, {
  3.559439144588616*^9, 3.5594391665908747`*^9}, {3.711387927585915*^9, 
  3.7113879458169575`*^9}, {3.7371540737848773`*^9, 3.7371540855203824`*^9}, {
  3.7371542090498376`*^9, 3.7371542704641705`*^9}, {3.7371590519180546`*^9, 
  3.7371590745762577`*^9}, {3.737159110454631*^9, 3.737159114437681*^9}, {
  3.73715917228938*^9, 3.73715919107272*^9}, {3.7371682860288363`*^9, 
  3.7371682882633696`*^9}, {3.7391028089342546`*^9, 3.739102810474343*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Fmn", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.5594359455036387`*^9, 3.55943595864439*^9}, {
  3.5594391511239896`*^9, 3.559439152285056*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"f0d625ec-df6a-4218-9b75-c64339bbfd2f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.761320694441778*^9, 3.7656349871279116`*^9, 
  3.765738484200962*^9, 3.7661630013106565`*^9, 3.7689306757859983`*^9},
 CellLabel->
  "Out[23]//MatrixForm=",ExpressionUUID->"725f00f5-b4a8-4c26-a571-\
a3c348887951"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Fmnup", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.5594359455036387`*^9, 3.55943595864439*^9}, {
  3.5594391511239896`*^9, 3.559439152285056*^9}, {3.739103091441413*^9, 
  3.739103095356637*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"f4d145fd-2861-4bcf-9e11-4e68e93cc926"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7613206944746947`*^9, 3.765634987148861*^9, 
  3.7657384842288895`*^9, 3.7661630013316*^9, 3.768930675853817*^9},
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"aad49ccc-94dc-41dc-a01e-\
255eb22f50e8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Check UD[Field_,\[CapitalStigma][\[Mu]]] := ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[PartialD]", "\[Mu]"], "Field"}], TraditionalForm]], 
  "None",ExpressionUUID->"4bffd42c-f016-4838-b5c5-e2de8b7040c1"],
 "   ,   Lap[Field_] := ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], "Field", " "}]}], 
   TraditionalForm]], "None",ExpressionUUID->
  "ff1bba7d-d59c-4755-bf0f-9f1b90a6e096"],
 "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->"ec403595-5c5e-4130-87e6-\
1d3065f65cb1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[CapitalStigma]", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.739016748488036*^9, 3.7390167730614414`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"65e8b7f3-0ca3-456b-bfd4-58abb0bc2ab8"],

Cell[BoxData["z"], "Output",
 CellChangeTimes->{3.761320694488656*^9, 3.7656349871717997`*^9, 
  3.7657384842468424`*^9, 3.7661630013435698`*^9, 3.7689306759246273`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"96ec4434-73c6-46dd-9998-609c23feeb72"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"UD", "[", 
    RowBox[{
     RowBox[{"dfield", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", 
   RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.737160138359976*^9, 3.7371601545178967`*^9}, {
  3.738581109224609*^9, 3.7385811123787894`*^9}, {3.739016882295689*^9, 
  3.7390168824236965`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"9dbeb415-c297-44bd-a09a-2df894cf21ab"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.7613206945006227`*^9, 3.7656349871917458`*^9, 
  3.765738484266024*^9, 3.7661630013565483`*^9, 3.7689306759822626`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"be93a82a-100c-42d0-8c1b-4ec18fb61053"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"dfield", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.737160176567008*^9, 3.737160189584123*^9}, {
  3.7385811204712524`*^9, 3.738581123297414*^9}, {3.739016880418582*^9, 
  3.7390168805545893`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"ee4c6f59-03e9-42d6-9a14-eff52b913ea1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"3", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.7613206945125875`*^9, 3.765634987208708*^9, 
  3.7657384842819815`*^9, 3.7661630013724937`*^9, 3.7689306760650578`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"d4dfd6eb-7008-4262-bb06-e02f4bb82b34"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UD", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Lap", "[", 
      RowBox[{"dfield", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
     RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", 
   RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7371601998043656`*^9, 3.7371602524808755`*^9}, {
  3.738581193616436*^9, 3.7385811970866346`*^9}, {3.739016878743486*^9, 
  3.739016878861493*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"cbbd8308-375a-4a2e-9ba8-f5aa44b2bf32"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox["dfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.7613206945255537`*^9, 3.765634987222665*^9, 
  3.7657384842969418`*^9, 3.766163001385455*^9, 3.7689306761348715`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"961dd7ca-b816-41e7-9d70-1627c05ac082"]
}, Open  ]],

Cell[CellGroupData[{

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

 CellChangeTimes->{{3.557187324200806*^9, 3.557187338928649*^9}, {
   3.5571873944078217`*^9, 3.557187453704213*^9}, 3.5571875139576597`*^9, {
   3.709575091516453*^9, 3.7095750917194643`*^9}, {3.7371602900941324`*^9, 
   3.737160292891345*^9}, {3.7385812011868687`*^9, 3.738581204834078*^9}, {
   3.7390168734681845`*^9, 3.7390168770133867`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"93182930-359a-4f6d-8c9f-c9c311d608a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "4"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["dfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "2", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "4", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["dfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["dfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2", ",", "2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "4", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["dfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["dfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["dfield", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["dfield", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.761320694540513*^9, 3.7656349872397842`*^9, 
  3.7657384843128977`*^9, 3.766163001401414*^9, 3.7689306762066793`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"11a92c49-7f1b-4a21-bbc9-1a333501381e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{
   RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5571886193348837`*^9, 3.5571886544198904`*^9}, {
  3.7036111242894974`*^9, 3.703611128972766*^9}, {3.7036111919493675`*^9, 
  3.703611211587491*^9}, {3.709575109461479*^9, 3.709575110109516*^9}, {
  3.7371603078616962`*^9, 3.737160308893036*^9}, {3.7385812731839867`*^9, 
  3.738581273517006*^9}, {3.739016885157853*^9, 3.739016887838006*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"eb43cfbc-955a-45ee-9174-7bb4f391055f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Lambda]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Lambda]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Lambda]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Lambda]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.7613206945544767`*^9, 3.7656349872577157`*^9, 
  3.765738484329852*^9, 3.7661630014133005`*^9, 3.768930676276243*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"b992be22-ea8b-4165-b4ef-34a12a0178c6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["TemporalGauge", "Subsection",
 CellChangeTimes->{{3.73901698896179*^9, 
  3.73901699281001*^9}},ExpressionUUID->"68893c73-8799-44ac-b397-\
ad8678b9c883"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TemporalGauge", " ", "=", " ", 
  RowBox[{
   RowBox[{"Ufield", "[", "0", "]"}], "\[Rule]", " ", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7390169950041356`*^9, 3.7390170345873995`*^9}, {
   3.7390173610700736`*^9, 3.739017362779171*^9}, {3.7390174362153716`*^9, 
   3.7390174400475907`*^9}, {3.739017471399384*^9, 3.739017480922929*^9}, 
   3.7613197047145896`*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"5ae39733-84b1-42ef-b5d8-d6e0ffff02fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ufield", "[", "0", "]"}], "\[Rule]", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]], "Output",
 CellChangeTimes->{3.761320694565447*^9, 3.765634987274673*^9, 
  3.7657384843468065`*^9, 3.766163001424271*^9, 3.7689306763295403`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"62d0e2ac-c11c-4b46-8579-2eb6d2df96c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Ufield", "[", "mu", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "/.", 
   "AdinkraReduce"}], "/.", "TemporalGauge"}]], "Input",
 CellChangeTimes->{{3.7390170400027094`*^9, 3.739017071101488*^9}, {
   3.739017564761724*^9, 3.73901759197028*^9}, 3.7613197052861147`*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"8a51f6e7-4290-41a7-8b37-30e4ca96554a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "1", "]"}], "[", "t", "]"}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "2", "]"}], "[", "t", "]"}], ",", 
   RowBox[{
    RowBox[{"Ufield", "[", "3", "]"}], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7613206945794115`*^9, 3.7656349872892165`*^9, 
  3.7657384843567805`*^9, 3.766163001434244*^9, 3.7689306764109545`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"8cd45578-757a-475e-a3c1-be583fcb12b8"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Transformation Rules", "Section",
 CellChangeTimes->{{3.4398675903125*^9, 3.439867599875*^9}, {
   3.440896666046875*^9, 3.44089674728125*^9}, {3.442439583875*^9, 
   3.44243963178125*^9}, {3.5367192257037*^9, 3.5367192280398335`*^9}, {
   3.536753484160329*^9, 3.536753546275882*^9}, {3.536757704238902*^9, 
   3.536757710183242*^9}, {3.5451474996309147`*^9, 3.5451475298776445`*^9}, {
   3.551718991736784*^9, 3.551719000776301*^9}, 3.551725337994161*^9, {
   3.5594360745480194`*^9, 3.5594361236078253`*^9}, {3.7113930771124516`*^9, 
   3.71139309981975*^9}, {3.711903460319059*^9, 3.711903497730199*^9}, 
   3.7371603760407314`*^9},ExpressionUUID->"06494e91-661e-4ca6-95eb-\
5ee8e28bd4bf"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnW9MVcebx+9v982+sdnwoklfNHSbGGqMbQwhNRLaEgi6gSj+Vtf6AlSi
S0sMpmqkIk0DJlaw/qn/WpuboqLFajSakCaiLdUoVqlFRdFgkBarqEUDomit
ePe7POmz03PvOXfOn3vOuffOJ6mxeDl35szMd5555pln/qNk8T//518CgcDS
f8Mf/5xfkb1kyfwV//Xv+J9Z5UvfLy1fuOA/y5ctLF24ZFLJv+KH/43/Hv4j
EPi/v4cUCoVCoVAoFAqFQqFQKBQKhUKhUCgUCoVCoVAoFAqFQqFQKBQKhUKR
TIyMjNy/f39oaCjqx54/f+5OkRQKhUJhGcj10aNHMzIyAqMUFBR8//33+GH4
J4eHh2tqaoLBYMR/VSgUCoVP+PPPPzdv3jxmzJjA35kzZ8758+dFE/3GjRsl
JSXTp0+/ffu2hwVWKBSKBOPJkydtbW3Hjh3bunXrmjVrysrKILY3b960/EAI
e11dHYQdtvquXbvw5Nra2gkTJrDC088PHjxYWlqakpKSl5fX1dXlYI0UCoXL
9Pf3NzU1DQ4OGnzmjz/+aG1t7enpcatQyQ60V2Ndv/POO5a1HTb5nj17xo8f
j4YWfSzDw8MNDQ1paWma71LCrlAkAFevXn3jjTdg0U2dOhW2XHNz89mzZ+/e
vdve3t7S0hIMBouKimDIjRs37sKFC14XNlmAGg8MDGDa/eyzz0hvP/jgA8yw
1p6GSWH+/Pk//fRTxH/FtL5t2zay4dHQlZWVaH0bZVcoFL6AtD1gCEy748eP
e13SZGT9+vXUBF988YWd5zx79izqZx49eqR2ThWKhCGqthcXF/f29npdzGRk
eHi4tLQUTYBV1enTp70ujkKhiCeg7ZMmTcrLy0tNTdXY6lVVVZ2dnSrI2St+
+eWXyZMn23S2KxSK5ATaDmHHn/j70NBQ/yiwGL0ulyJ08uRJClksKyt7/Pix
18VRKBTxhKjtCl/hlLNdoVAkIUrb/YlytisUcc3z58+/++67qqqqhw8felKA
ZNb2x48f19TU4P37cE9BOdsViviFjoGPHTv2hx9+8KoMyaztAG8e7x+tgLbw
uix/4/jx4+SQIWc7infu3Dk6prpnz57e3l4fzkcKhSI0KuwYp6mpqQcOHPBw
nIraPjg42NTUhFKVl5evXLkyGAzi5wkf8wx5Ryug1r6Sd9HZDlUvKCjIycmp
ra2tr6+fNWvWmDFjKisrHzx44HUxFQrF3yBhxwiFDeatAUbafurUKWjFyy+/
XFpaiiK1tLQcPHgQGgJtmTFjRnt7u4cljDV0JB9t4R95f/To0YIFC0jbp02b
9uabbx49epQnWeo8ZNKbcuV1d3evXbsWv+v/Wbu/v3/KlCnGR+qikpKSgjkR
E+LZs2d90rIEjKjZs2eL8cZ5YeTm5ophyXv37o34KPTejRs30mfQh7OysvQe
smLFiqdPn7pc02SDxQRy6nmXwxhPT09/6aWXKioqNIfNMfYbGhpQTs8XF7HG
P1Mtwc52kJ+fj//VfOD69esQfPwrVFr+sTdv3qypqeEUYdABf+41gPv372N2
i6hyDH6IfwpXRUKTJwe13rZtm3HeJNcYHh5etWqVfO3mzZt35cqViI9C8339
9dfoJGjN8CSfNMFlZ2fjA4cPH3a5mnEK7CV0lZkzZ0L0zOpzW1sbGg5vu6+v
L0bFk4e0Xc/hjB+iE1JP83BTwAVu3749ffp0VPPkyZNel+X/ne0Q8M7OzvAP
PHjwoKioCB9ADxwYGDD1cMzg7777Lg/8ffv2OVTqGIJ+WF9fL0qWzPDBIMUK
tLi4mEUPgg8l9Nyg0vDkyZPy8nKxdtu3b8cPzT4HMxfmbq4sKn7x4kW/Vdbn
YHTMmDGD10FNTU3yv0sagt86cuRI7EooD0wI4w5w6dKlcePGBUadA3fu3HGz
bC5Djnc/5C2PGtnOEZIwR/UsOgPOnDmDlRp9RWZmZlxk+NQkx0D1JU/YwbLt
6OjgARsY9WXdu3cv1gWWR3TBAZjrt27dsvYorHeopmb9dQpi9+7d4iSL/5X8
xWfPntXV1eFXli5damFe9gQ2EU3VNB7BBFdZWYlqeut455EO+dVL3oghDMOV
GsXCQkNjKGIqsV3qmGNZ2wlyg7BNG9HT5RWiCy5gL+cndR4s965fv+5sIZOE
1atXc0PA0pPfaiRvTHzly8V8tGLFCmsDKu6gRQraCC3lVRlkIttFNbDmRDpw
4AD3YVh6mCzslTrm2NT20OjcHQwGWd79sEAjOLmEfQsKHQbdxs7skOR0dnbS
TlZaWtrBgwcld6N4He2HLVRT1NTUUK9L+HM0mMg++ugjb2cxTWR7xM+cPn2a
1GDs2LHW7AQSAfoiLBDOnDljr9Qxx762h4QQI37DfnBcsAvOeLEmA34XT0js
9XWsQb/C6DDVu44dO4bx6J9xhCnp8uXLW7ZswZ/G0xNrOwZXwp9yIl+0hxsi
Mmlk8E/0mdzcXGtXafAsRqxatcqfATOMI9oe+vtmGairq5NJbh87NM72qVOn
/v7775afho5hebpXWAPmwbx589B2+NMPpkJI2CSN6oJIKm33tqWwlMaCmt62
3n0ovAAMjAYtW5YmMjZ4jrC8f+cOTmk7wKzNFfc8MspBZzt1Hpuzg8IsHJng
n+WSuCNsXCrWdstWYnxBvmhPVlis2+np6deuXYv4GQ5uRwnt3IcFBYAOUMtC
6yD1lh/lAg5qOweT2H+UfdgFJzMSjSE/m53pXmEWXv/6yu5tbm5m08XAbn/8
+HFZWZl9oyKOYPFEq7k8TFjbp0yZ0t/fH/EzwWDQEVF6/vz5unXrHLEYXcBB
bQ8JTi3P5zUHne20C+Mf6zEZwGoXFq/nFoIGGiybNm367bffDD7Gm27+N+2c
ggXW/b1j6O3HH39soO137tyZNm1aQP9YkynEQHefB845q+0XLlwYO3YsP628
vNyTmGTlbI932LHpq0sW0JmXLl26aNEi4zHCwXJRP5lIsF2H1Y3LX93U1ITe
Mnny5PAAbE4e4lR6hIGBgZkzZ7K2oK1tPjB2OKvtoj/KwwW1g852Wl8rZ7ub
YADSsX0fXrIAw2/SpEkGGW452tM/wcDuQLFkqDisaJcDSO7fv09Z2jRKi2J8
++23qampKSkpjY2NTpVK9E74al2pwVltFz2NhCeuDOVs9wl0nShMHVPDik0j
Rxb4mNbpSlMUxuajiNbWVgyZZcuWacIkUMe2trbMzMzA6NkWa4f48BBUH6WF
XsVXSD97oiwkbLEPltVoFMyqHR0d9JOHDx+uX78eqp6RkXHq1CkHpxsOlwL4
C/7XqSc7i7PaHvr7CUSbNrNllLPdczDW5syZ84+/KCgo+PnnnyV/98qVK5R5
b8GCBY8ePbJWAJgZsNnwvWJvzMnJaW5ulpymIc47duyIOBx6enrmzp37wgsv
FBYW1tbWwibEn/gu1PS1117T+62oX1ddXS0muMPfV65cKZmRBpXav3//+fPn
zX6vU7Aj1CsHJjfKW2+9lZub+8orr7z++uvbtm1zPCyTYz4JU4kl3cRxbddk
DsnPz3f5cK4YyxqwHYSmnO1moYVwWloaZtjBwcGRkRFoHVk4kq+Rw1Esr+7b
29s1qi6yePHiqOOdMqUYbBihYL29vRjXGOZ5eXkk8mfOnLFgyaDHkoUZsbR4
kzJhe3i36enpHh7y4j1N4FVyVJQBS56TJ0+eOHEC64jYpVsXVa6oqMifV344
ru1oVrFnuu9yV852b8HIQqOLaa7ZDpfsXbzs2rlzp9lvZxernrATUY9Ot7W1
oRYu5Ei5d+/ewoULjUsbNV0wbfJ6nk4N7UUFxuLdw2K4AMd8Bmx7BmKH49qO
oS12S/e3wzRpZCzoA6Oc7Wah48lffvmlaG/zLpvB6RJGPGZoIeKCss6KPXDi
xInZ2dkaqxg9pLGxUe8hrkkl5hfN/hTdC4Aya+Qdb9Vg+enaTGQML7gM8rok
Bpq0kOvWrfNh/oFYa3vAatY1yzjobKdpIi6c7ehsn3zyid663nHwRRUVFeFd
JRgMhict56WczCKON1ItWAUco4LfXbRokcZDgtIeP36cj9dBQvXC1N2RSjEL
U0ZGxq5du/r6+lgiRkZGYFp8+umnPFVpZkzGJ0Z7SMjH5cl2qsuIDgp/poVM
MG1PWme75j5BFwjfSaEDR5qtJTHhbcQIZA1oLzq1ZNabx4FwGGjd3d16H4Oi
7tixgybBiLtgdCTWhaMZhw4dghKiJF999ZXBd+GN0Xykl8Dk0qVL3nraGRaT
ZMi0IKaFRDvKqxwsCrpdFzN7TU1NYWFhQ0NDLEqYYNruoLOdpok4crajwNev
X29xBVjI4f0Elkz4ST1xCMj0Lu6QprQdBi3M2oBcDlK+fTWiueWOVGKAY+Eg
ee8e3TwViHRSxrWZSAZrbRenwEhYvnw5S41ksoWhoaG5c+dqFDJGB/QSTNuV
s90ryE8ePpmKS1eZQ3y88WqQHiQcksri4mLJq3vpVtPw3FaUMCTW+QxpJjKV
FBeTKcZpuIZjJoUx45PMBmgvtFrA6r11cQRfes59Wz4tJB24QINmZWUFYrkV
G2ttd7mVHXe2792718HiJTB0Z5lGvcUtJxmHTEjoP6a0PRgMmr2biUIdNFm4
e3p63n777UOHDsk/xwLkvDJ14QhNOhp7mA7Uz5o1yyfOXtZ2ly06l2Fhf++9
90ifCVNb/zJ3Rdkk1vHtbuYOSlpnu094+vSpZrNPPMEnuWi1oO3U7mbvZiJv
hmbXD3OEC/tiqCNsHrNdi16mGDpOc4R/Upokg7azsJeVlT148MByWkj2MMQu
pshxbReTLQTsHS00i+POdvcPXiUYnFtVPrO3NW2vqqo6d+6c2eLhu0Rrn5JU
u3DMsLW1FesFsx5y6pOikxCq7qsbIhJe21nYOVmQ5bSQMndF2cRZbRfPphFu
XgjuoLOdpgnlbLeDmM9f3hi25pOxBm2psCV87NgxNLqfs7ZCB3ihQSfffRVZ
ndjazhdDi7mCYboXFRWx5kiuodjDENPjP85qu6amLt/DIi4ZbDrbKcesV0en
EwPRpJE3TtzUdjp3TIcoaWvA/aslTAEdgLDQ+S+83vT0dF8lqkpgbWdhDw9t
4sVpQPpWQRec7SGntV08imvKWrOPGEdt86WRJzYZ4rhih3hxsKlceXyI1QVt
D41efkcOT/9EiRuADolCQuF9FfrIsLb79hi+NVjYIyaBt5AW0gVne8hpbdck
k3EzQ5pmI9WOn//GjRtZWVl+GzjxhdmwdoY7pGRcjU127949c+ZMWCAuhD7a
h8QTo8xXoY8MN3oi2UUs7KjXmjVrwvfrNcojs0R1wdkeclTbNTkWws+eGzM4
ONjS0oJa4wU2NTVJBiozmjds54IAakoLAwfKsHPnzm+++cY4YANFNZvSPCr4
RvSTPBepra01mPv47qGAybtpeLnqjj40NzdDLTs6OnwVcKIH+TwxH5mK5+np
6cGwMjakKW+8zTgKy/PyyMgIfhcmMcb+1q1bOzs7Y5fC0RSisBscixN7e9R8
C5wMmZ3t0EnM16g7mgkmvVOXfTio7aJ/FcWWDxK+e/duZWVlSkoKrGUoRn19
/Zw5cyZOnNja2oqXiVUz+nNXV5fxQzTXguC3rNUCAyEzM9OCCcdeCOP9EbRd
WlqazfvWw9Fc9eUCBkFE4jwbPsyvXbtWVVWld1OGy+t6NAdUHWqJRndhmWAT
erGbN29G/5SMUuCbZw3aC10Xyxb0W7P2mAa+UlPenwYNP3r0KAY+hj+qhrGP
kTthwgQIAgYgxlFhYSGMFk+uKcGX4lWTsBvfoqVJC2ns2ROd7ZA1tCME4f33
30fdq6ur8XenLhNxStvREGKqUsmbIlF+SgmLF7hp0ya2AylTK+qO59ADZRJ2
ideCWNN2Oq6YmppqYSeI7xM0yHYobgo4fq0kRuWJEyfcyTmALzIQAeOwdhhC
BraNOC+4sB+Hr8BgxIDy+S4qQS8HpZXfRZVx7bIvxebWHu+DS8oIliEffvgh
Po9loHjCkfIe88kgd3ZeNIjCHvUSbTF5aSBaWki+FQ4aDpGvqKgQj+FQvjvJ
ZBTGOKLtqEhDQwM/RPKmSPwW1jKoRcQdCgw01mrJVDycYhRYCF/kNCN1dXUW
hjlvAhrk6qfDm4HEckiGwwFL4Q0XNXJPDKN1IQMnyZGpXE8ewhOf/DiVce1y
/kab22179+6l75LxiELQKKYuolyIuuT+naSisEvKrLjVaJyEilsEz4edo1mS
0AHkgJkkBnrY13aWaHpC1DmO4VTbeulJWS0l3Xfi2SULl6FQeWSSTUWED+Qa
XEzAi9YEToIqGt7hPmGZcBQ3r3ggbfdnjtZw+N06G0fNc7HN0yhsjEU9WsKJ
6zHiIuZSFi1hN8/IhCwJeygsLaTebh072wM6O7MhwUa1GYNtU9vFjKkgMzNT
cqlIyZ0Choe5WNslg15EU99saD1dcGz5bnrJGyXYsNGkMUkkOElveDUlI/fY
jHThigfSdl+dADKAtFr+/KNMHDVvVNlcvIjPMT6Pw0k7Dd68OKCc3ZkyRhT2
iP4EPcSg34B+hg2ZFmHXlp2AkJANbceXdnd3FxcX8+/CVO7r65P5XVGEDfyc
FswJnjIC+ssBDSMjI/v27cMEnZ+fb3k3zayzPYFPRYkHWDTTHJYt0KWod16w
CeRCGnA0RBwFY9OOuXwyDVPOdptBp+xvjOq0Z80xiAZ3qlSmgLDX1dXx2XY9
u1oP8Vy83ktgZ7tBI7IFaDNqcfv27QEBg8toGHSwlpYWqDpXJC0tDROcfDQ4
bysbLF544jZrTrCrJ6I7S8OtW7fI2JCfmCKinO2M3mYoJSGXGS/c9C7kaoP9
EEcp+knx5Lch3HS2c3Jm46mH/ckBw1OcPKBcc7ZrhN2Cb1ZMshHQ8ZvJtAh/
xlTd8e0LFiyg+OTwSyQJCCPsJb2oZsi4+GG0JpYwZnex2TVtMMVb3rtH58HU
w+VctmxZ+JYEbHUsOqqrq1NG2bJli81jSqac7b69GN0pjhw5QmOEuzfmTdRa
frzwOe6Y5limaSiOLvfEXPniiy9KZiAx62y3eY6GNxONpx5e4Rp/o1OlkofS
jNCXWvbNGucfCI9sD0eM5TYVECKuly0D2SwsLNywYcPly5ctxJ2KnjSDKd7m
xN3T08P+IrxJdKeampo1o+DVkfLTrZr4pNmHG9QoyZ3tBO/C4D1XVlZC1dGU
+Iv8jMZRlDFN10bOActHIVwGfQY9R37R56aznf2NUYvH49rAFWZ5zW4H1nb5
aJBw+IasQCR3vUyLiHuydrIdegK7JiQnbsu75DDOOzo6qqqqNGsNkJOTs337
djvHNETYFDHo2EnibBfB621sbMRkCmOmt7fX1HRGoZLGo8A+ZGrGxV3nob+c
7fLB3uz+NbCOnHJr8xCIaomxhSOjb24621Hszz//fMmSJRcvXrTzHLROfX09
mZFNTU2iZSITHMKtFo+XR4hrB70d8IjmBMQBhp+1E2pDQ0P9o2BmcfyMm2Vn
O2YfDFifHK/2G3SO21ryBxloto1pklVnIZ+evAfJsrMdZrPeqWE9WJGiBmey
99JA35wqld/gABg9z624GeF+VL99WNsNJqaIE/etW7fy8vJ8OBK5uxrELEWM
bL906VJubq5eXE2Sw4flY3RilExNg7gmv0HdTDLmX9zRNoghjLg6xjrL1B4E
h//JHLfhwWLgbXOkVD6EtV1vqch93vGcJO7AGwoGHgz2fYmTO95Mdna2azf0
SSI62/U8t2JAr6j/aOKE31e1DF0GGjB5nY08tNqKl0Nk3M0kHXriOT49l/Xg
4CDvSbGS0KRgageTw97QyaN63jgIUG+wsDvOZql8CIcS6Wk7T3xmwy/9A+0m
622miPsR3AFoteLDpB/iUR297sphmWKzUtpMN9Mgxx18WiEWb4mMQ5vHQ1yD
VrLyN8uzhOppO6QDAkIfEK0sCDWW1aau/KDhLBM+HRJM04hxFJz3w36pfAgm
09mzZwd09hApS2HARpSOH+BahI9ZdI9Zs2ahG1P7rl27ln6OLpGfn+/DqxPY
2R7QObre0dExadIk3vtmhyQ6Krqrn29w8xzOU+T4raBsBsc0xtJBqJvJX+DL
zvZApLOfdO/n+PHjJ06cqFkZYUiaurngzp0706ZNk59/eTkW3qYoFYQd85f9
UvmWQ4cOQdnChYLSo6HWUL/4FXaCTFk0H6SPfoKGa2pqQrNu2rQJtUMdUVNq
ULIxJHNLugwnPwn8dVqKeyD+gr6akZGxb9++7u5ums5ooFE+DWtJyZIKDAHq
CTLrfXnIDI6jUARaZUhGhIpJS0gkz549y28PK82KioqpU6diCUBSwwk6Ojs7
8Vrkww7Z2Yg2kk/Iw8lkVq9ezYPl119/xWxLCSFtlsrPoL7V1dVi3fEOz507
V1BQgCqbihP2M+3t7VSjrKwsOhWF6QzVpE7Y19dXUlJC/wq7t6ioKNbHzy0g
Ots3bNgwf/58FBgVQXVglrz66qv4CcfPo2o5OTkpKSlYvWIKowzVnhY/PsCg
hhmAmdH+SQQmSZztUHVoL2XKxSBCt8Tf0S1h1VPfo5MIeL3otOixsJmxrpSf
Q7u6uighrVnhhZGGMtAJiPBSwYDfv39/2igWSuVzyOSj2qHuaBeIRnFx8fnz
5xOmjqHROQsafuLECfSN/v5+TdX4X69everPnQV2tnO4xdDQEMyMlpYWWErh
uoFaQKDwrxh9KvRREjYOJRMEyUCrrZgejHIQ6mbyqwx2tlNgCXoaBhc6JDoe
Ome4lxtKC0MLY9BUMkx0Ztgn+JaNGzdaEyWUBN+rVyr6V7OlihdQOxIK1NGH
7giFTGS7wj60iod509jYaP9pfI7M8etRYgQF0Mr3MXeu40RboEUs58RWKPyM
m5nGkxyKnrJzHpyhW0fdPPNoE0roLXlAWyZpiX3oeqC4juhQKPSQTCOjcIqu
rq68vDzoiUysnQF0eD+ONrIPHz4MIY16ZTAhk7TEJjTPoi0ki6RQxBfsbE/s
nL2+AsKVn59v31x8+PChP3dwIoKiyvs92Nkeo0PrFMOmhF2RwChnuydgSi0p
KVm8eHFcHz+PHTF1tmOtunz5crx/O5cdKBQ+h53tLt/nqIAdi8k0kQLGnIKd
7TG6TMpOvj6FIl6gawH1LvNVKNyH042aOkykUChEBgYGdu3a9eOPPyoDUuEf
rl69GgwG/ZZST6FQKBQKhUKhUCgUCoVCoVAoFAqFQqFQKBQKhUKhUCgUCoVC
oSD+FywRAAw=
    "], {{0, 86}, {500, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{313.3333333333327, Automatic},
  ImageSizeRaw->{500, 86},
  PlotRange->{{0, 500}, {0, 
   86}}]], "Input",ExpressionUUID->"78a93fad-63e5-4629-8d83-543939f1ad0a"]], \
"Subsubsection",
 CellChangeTimes->{{3.4409027728125*^9, 3.44090277759375*^9}, {
   3.440902810171875*^9, 3.440902916953125*^9}, {3.44244004875*^9, 
   3.44244009975*^9}, {3.4429691378125*^9, 3.442969168609375*^9}, {
   3.443708024953125*^9, 3.44370804159375*^9}, {3.536754825460047*^9, 
   3.5367550087245293`*^9}, {3.5451486439623666`*^9, 
   3.5451486519678245`*^9}, {3.548688769506838*^9, 3.5486888065069537`*^9}, {
   3.548688855820774*^9, 3.5486888860005007`*^9}, {3.5507857157431355`*^9, 
   3.55078577649561*^9}, {3.5507950978337603`*^9, 3.550795109476426*^9}, 
   3.559436218390247*^9, {3.5594988398383384`*^9, 3.5594988412624197`*^9}, {
   3.656720940415642*^9, 3.6567209412857*^9}, {3.6750032306542063`*^9, 
   3.675003231207218*^9}, {3.711717036931768*^9, 3.711717043384137*^9}, {
   3.7117170774990883`*^9, 3.7117170802582464`*^9}, {3.711717111392027*^9, 
   3.7117171461800165`*^9}, {3.7117174710806*^9, 3.711717471329614*^9}, {
   3.711854506059084*^9, 3.7118545120154247`*^9}, {3.711903325602353*^9, 
   3.711903326224389*^9}, {3.71209560910502*^9, 3.71209560910602*^9}, {
   3.737289925753502*^9, 3.73728992712158*^9}, {3.737807642399249*^9, 
   3.737807643374305*^9}, {3.7385814169802113`*^9, 3.738581418650307*^9}, {
   3.7390216220854435`*^9, 3.7390216234545217`*^9}, {3.761320754122795*^9, 
   3.7613207555455785`*^9}},ExpressionUUID->"19234059-780f-48ff-9a61-\
e83dce3908cf"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Da", "[", "a", "]"}], "[", 
     RowBox[{
      RowBox[{"Ufield", "[", "mu", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"a", ",", "b"}], "]"}], "]"}], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "b", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
   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}, {3.739021654340288*^9, 3.73902170263605*^9}, {
   3.7390218342255774`*^9, 3.7390218541807184`*^9}, 3.76131970611086*^9, {
   3.761321015351238*^9, 3.7613210213821793`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"93928d44-3a0d-434d-bd9e-2af8f6764f49"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DColor", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Ufield", "[", "mu", "]"}], "'"}], "[", "t", "]"}], "]"}], " ",
     "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Da", "[", "Color", "]"}], "[", 
          RowBox[{
           RowBox[{"Ufield", "[", "mu", "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", 
         "AdinkraReduce"}], ",", "t"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7111642994797387`*^9, 3.7111643860246887`*^9}, {
  3.71116538155863*^9, 3.7111653936173196`*^9}, {3.7111655855452976`*^9, 
  3.71116558768242*^9}, {3.7371605140705004`*^9, 3.7371605490270386`*^9}, {
  3.7371658349857893`*^9, 3.737165835407566*^9}, {3.7385814564004664`*^9, 
  3.7385815082584324`*^9}, {3.739021898283241*^9, 3.739021972361478*^9}, {
  3.739022298753146*^9, 3.739022300937271*^9}, {3.7613197065924673`*^9, 
  3.7613197070667405`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"18e5fb7a-bf0f-401a-af2b-1144ac67e982"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintDColor", "[", 
   RowBox[{
    RowBox[{"Ufield", "'"}], "[", "t", "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"DColor", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Ufield", "[", "mu", "]"}], "'"}], "[", "t", "]"}], "]"}], 
       "[", 
       RowBox[{"[", "Color", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", 
    "fields"}], "//", "MatrixForm"}]}]], "Input",
 CellChangeTimes->{{3.7111645574354925`*^9, 3.7111645699712095`*^9}, {
   3.7111646601143656`*^9, 3.7111646956723995`*^9}, {3.711165016059725*^9, 
   3.71116508975994*^9}, {3.7111651864034677`*^9, 3.7111652049845304`*^9}, {
   3.7111652473169518`*^9, 3.711165256065452*^9}, {3.7113907769458895`*^9, 
   3.7113907848403406`*^9}, {3.7113908785507*^9, 3.711390886163136*^9}, 
   3.711390944771488*^9, {3.7385815260034475`*^9, 3.738581556662201*^9}, {
   3.7390220087635603`*^9, 3.7390220181540976`*^9}, {3.761319707269197*^9, 
   3.7613197075285044`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"29fb3804-04f7-4ee4-b220-858a18c37c46"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "3"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "4"], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "1"]}], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "2"]}]},
     {
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "3"]}], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "4"], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "1"]}], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "2"]},
     {
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "1"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "2"], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "3"]}], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "4"]}]},
     {
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "4"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "3"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "2"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "1"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7613210252394047`*^9, 3.7656349873251047`*^9, 
  3.7657384843902245`*^9, 3.766163001463167*^9, 3.7689306764966683`*^9},
 CellLabel->
  "Out[35]//MatrixForm=",ExpressionUUID->"34aa6781-f971-460e-8fac-\
29d113e61ee3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintDColor", "[", 
  RowBox[{
   RowBox[{"Ufield", "'"}], "[", "t", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.739101561591911*^9, 3.739101565875156*^9}, 
   3.7613197079013286`*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"93db53f6-10cd-4db2-9f98-1417bc96e346"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "3"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "4"], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "1"]}], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "2"]}]},
     {
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "3"]}], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "4"], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "1"]}], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "2"]},
     {
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "1"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "2"], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "3"]}], 
      RowBox[{"-", 
       SubscriptBox[
        OverscriptBox["\[Lambda]", "."], "4"]}]},
     {
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "4"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "3"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "2"], 
      SubscriptBox[
       OverscriptBox["\[Lambda]", "."], "1"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7613210252553625`*^9, 3.7656349873416433`*^9, 
  3.7657384844011946`*^9, 3.7661630014741435`*^9, 3.7689306765626574`*^9},
 CellLabel->
  "Out[36]//MatrixForm=",ExpressionUUID->"af6ba180-af68-4842-861e-\
14d7f9a41afb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnX9MVVe2x2/e++f94+SF/+Yv8kwa0jbEkImpGUJaM4TxDUShb2zrH0MH
I89pn5G0dYYRp62loy04dhpsO8YwcYpDYWxrsCESFAZtZ5yWQrBjSwkdRFvr
z+ITbRmJyn3fx4oru+fec+4+v/e9rE9SQ+Hcc/c5+9d37b32Wv+xtu7B//6X
RCLx1L/hnwdr6pc/+WTN5v/6d/zP6o1PPbZ+Y+26/9y4qXZ97ZPL1v4rflmD
/w7i+v//OSkIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiDYcPv27StXrly/fj3jZXNzc9EUSRAE
QRCEKMEsf+TIkaVLlybmqaio+POf/4xfpl45MzPT2NjY2tqa9q+CIAiCIGQv
N2/e3LVr16JFixLfZs2aNSdOnFAXBL744ou1a9euWrXqwoULMRZYEARBEITA
gR5obm6GHqioqGhra+vr62tqaiosLGRhQL8/cODA+vXr8/LyysrKxsfH4y61
IAiCIAhBMjc3197efu+993Z3d6sbATMzM/v27SsoKLCsG4geELxx+vRpqE20
K4drvv7662PHjl26dCmyUgmCIAjMl19+WVNTMzQ0lPav09PTr732Gq0Y5OXl
NTQ0yHAdLFNTU3v37kUtxF2Q0PnLX/5CrWj16tUtLS2QByMjI2hOg4OD+Bm/
qaysXLRo0fLly8+ePRt3YQVBEBYot27dynjNN998I86EwTI3Nzc8PFxWVoaJ
EtNl3MUJHZIEzhQXF4+NjcVdUkEQBEGIgpmZmVOnTrW1tVVUVPBUKJJg0aJF
9fX1U1NTcRdTEARBEEKnsbGRZ8CCgoItW7awKlggkiA/P3/FihV5eXmqGLjv
vvuamprOnDkTdwEFQRAEISJGR0cHBgYGBwevXLkyNzc3MzOzfv36BSUJfvjD
H3711Vd49qtXr341z+zsbNzlEgRBEISYWbCSIO6CCIIgCIJZRCwJbt682dHR
8dvf/jYuN9HAJcGVK1fWrVtXlsKvfvWrf/7zn0F9ixAjQ0NDqfULurq6HD71
6quvoqmjwUdWTkEQBJ9EKQm+/vrrhoaG++67b3R0NNQvciBwSYBb4Yapnop4
q87RD4Rswc4l9Y9//KPDp9DI0dTR4NHsIyuqIAiCHyKTBBgYH3/88SVLlhw/
fjy8b8lIeJLgtddeG1AYGRnROVcbHpOTky+99JJdrA+CHCpyT7rMzs5SrAlU
xIEDB1588cU//elPzgb71NTU7t2733nnndTLLl++rNZsb29vZWVlRkmQvKMK
0OwXjipAW8Ir2rx5c1lZ2bJly4qKivAD/he/zL1mJkTAxMTEjh070IVbW1vH
xsYkCkHYRCMJSA/k5+cfPXo0pK/QRJUEFy9e7OjoQGPDG2hsbGxvb//888/d
5tZkSWCUJ8a5c+dKS0tRqvLy8itXrqS9Bopl586dixYtWrlyJV5FxCUMlaam
JotFv27dum+++cbueryK7du30ynUv/3tb8435y6TURIANHg0+4WgCvCAkKB4
WIoDtm3bthfn+fnPf07hZ/EnXJDz7yEC1FNjnoFgQ9V0d3dPT0/H/UBOfPnl
l3heTm1QUlLS398vGZDDIwJJALMLIwPuv2fPntirkiQBTPiamprFixdv2rQJ
ViRMmLa2NvweMwJ+D2Ggf0MzJQEKQ+nDMBnZuTSgrz3wwAO4Bv/mWODK2dlZ
1Mtnn332k5/8hNo2JiOH6/lVfP/73z99+rTzzV1JAgrVjrpAF8hhvwK8tKqq
qqVLl+7fvz910odl995771E8NPz76aefRlw89HcIEnU2TPUMwVzDGfe+973v
ofGkvRUENgQPXYZ7QninvQn+7enpCelxWlpa+BuLiopSp3t8O0qS1gGGVm/U
iyHh6urqYIzHPjg7cOnSpUceeYQLjGYWd4lylggkQVdXF5pobW2tCQYCzZVp
DZYbN26Qqehqd8NMSYCnozrdvXu33TUwh2n4ylW3B2ghKCJ6D4cPH3a4sq+v
j17Fxo0b0Qycb+tKEiTvLJHh/h0dHS5Knz2MjY0VFxejgzvHmZ+amsI1bvtX
IGC+gzhMnfpVaI+D+PWvf21nO+P3DQ0NdnNxYj7YC/6Kr8OXRvBomMdPnDiB
V8oF+O53vws72vlTUKeffPIJrG9WSuZHafvggw/waFRatLfJycm4S5SbhC0J
aDv17rvv/uijjwK/uQcoVNHbb7+dVhJj9KZRS98H0kBJwHXqvAwOtUD17mxB
Zy+atj80AJQAvS5og4y3dSsJknd6QbyOtSEBGVBVVaW5M3LhwoVVq1a56l9h
cOrUKRSA51DMp++//75bGxnXj4+P49nZdG1ubj5//nz0trY6htPj6Mdjx/D1
zDPPsEbCVDs8PBxqaT3D/TS3R63YCVUS4OYbNmzAnV9++WVDVqWuXr2Kscih
MGwwatrOBkoCTH+YBBOOOwJsQeNhzSl5sPDuCUy2a9eu2V0GsQrJistWr15t
53eh4kESoL3t2bMnMb+PY8JaWVDgudC1y8vLMRVqfuTYsWNk68W4bPjpp5/y
3jR4+umnPXsCk+mKZtbe3h7XEOdHEiTnK7Gnp4fTDcNiOnTokCHDtQWYcvyY
EGM6vVVwS6iSgLYMsiurIJuW6OkYvjJeb6AkcOVIoLN7nqXoLIPcvHmzoaGB
pFFvb6/ObT1IguQdh098i3M0g+yCze1ly5bhbes4S0AG/PSnP6UXHterOHjw
oLrUj//1fCtSFzr7TeHhUxIQQ0NDvHJigh94WnjUovEZeizuEuUg4UmCixcv
rly5MmGGV6E+MCfZJ+3555/PWHIDJYE4EiS1HQn6+/vJaN2wYYPme/AmCUBr
ays+lUvnO+iJeIh2PvHK4L3RRzSXZYIFPRr92ucEyqBp+RQV/glEEiTvnI6h
m5i5yXXr1q2nn36an1RnfBbcEp4koOECTQumRIC3DRv1hTgvOBOmSQK3jgQO
siGr0VkGOX/+fHl5Oa5xtZDlWRKwTZ1dItkOVXRlbG8qUA4kw2Ix9K5evfrj
H/+Yi42f8RvPd4P89ikq/BOUJMCE29zczPepqqpy9heNBd7YBaWlpefOnYu7
RLlGSJKAz8X72acLltu3bx8/fhwzoHO6Q/WF6AQ1Mk0SiCMBwcsgdrqODgIk
3C+TepYEbOPkxlBmmYn0TX5uook4nMQsjgR+LE1aUdQxHEIlKEkAIIwhj/lW
UAiGjN7M5cuXV6xYwSpUxx9YcEVIkoD8QIyacVheOh9gyXZJwI4EDjsC4kjA
sTKgB9xGPvEsCZLKQSp0ELefNZBjx46RW1p1dbV+NA81Bnj082mAjgSkbWJf
vg5QEuBBdu7cGcitQsJSwieeeELy2AZLGJKAPYgg5yDqArmnf9SQXw5Pqr4Q
55B3hGmSwLMjAXrW9evXoypmuDg7EkAPwPzBG8B0NjAw4HY89yMJYEfTsTV0
kNw4eoC35zbGrCoJIg6ThdI+++yzQU155EjgHPIiAgKUBMn5Azh33XUX382c
ZV5GDVCQdRvT5hOGJPj444/pVFfs+lmFzUbnVQIM2rS/bGdgWjBKEqi16XBc
Iq0F3dra6nBCIbtwWAah3FvUDNBQPdzcjyRg3zaMuoZE6ogeVRIUFhZGGcww
WEeC7du3m2BHBysJVP9qM+dcSyXmxoKbOYQhCdgPOXb9rIKnwzjc3t7uvBfA
IhmqRmfKMEoSqLu0duWZnp6urq62yAZqBjnjamjnSDAxMUFG+qZNmzy7TvmR
BMk7pqXzMk5uY0keGmXHyT1HgmTQksByIsNzOw8VNmoSuXtmKi4ClwR8Q4c4
4bFAwcmdHWbUjSpN1xqjJAGmeOeRlvfQLUMHDAE8hTer2UBSl0Fu3LgBNVhQ
ULB06dIjR474yafmUxKwbNPZlspeZuZJ+ydVuEbccQJ0JMDghiHOhIXQYCUB
6OzsVN+SgXMuL0Tr226CJoFLAu7vgehnyl8DAtnmPnr0KPqLXTTjpHIyVz/K
nB9JgIkJQgV3wL+BJP1kRwIAbWN5THzFvn377r33XgrPri4Jtra2xhtuJcCK
tjgSoB4hBqAEYB7+4Q9/8L+D71MS8MJsjvl2UlpktCKOg5eYD/NbU1Nz4sQJ
tSlaTPXIJEFOOhIkQ5AEvMhGGNhQ2V2NwPAVd4lyB3XnKJAFIjZU0fs862fM
TT09PRUVFapY/cEPfqBv36ENY/y3iFuUB3rgrrvu2rFjhyWtCW7b3d1Noxkm
FP30Hx4kAYoxOjpaV1eHAZOfDl/98ssva05YeC48naWfwuSE4ck3xIw/ODjI
VXDp0qX6+voVK1ZgQKaoknwqHIV54IEHYlnlCKOi1fiTVVVVeMm4/6FDh4Ky
dHxKAnViMmFC8Q8a7SuvvEJ9B3WH6kCLIoEHzYlWDQGwdetWfv/qWpZ+NAP/
5KQjQTIESYCPq3mUoqwjfTjgVSKOcyu5xOXLlwfmwXAEo5ITfSbmD2Rt2rQJ
JhVdgGbgwWzkNdvXX3/dWwlHRkYsc4QKZtKM8yZFqU1r9mJAHh4exv0xU6Ah
4Q10dnY2NjaWlJTg5rAlMXe4SmLrVhJAbGBqTpuLLTHv86bTnXt7eyHdLW4/
vD4DMbBnzx56IsoDi58XL17MyR/xgBi3Ud0YxktLSzFiO6ychEdIFU0rung0
2BEHDx4MPFSgT0kA0DXoGbM9dQvaTH9/P3oNNV3M9WmFHOVA5PTQ6kZwlLOq
ZabzY7OY40iQDEESWHZ2/DT18FBzV+lHzhRSwcxFr1FNBqqyfPlysl51TuVb
mJ2dfeKJJ+j+OgkCLKCHYkZWM5unJeOq/ocffoh+gX/tLsDABUOmpaXlkUce
wSPjX/z8ySefeMho70oSoK/xcQY7MoYSJaeI1ExSbHzRwQE8I8o2ODgIdYcb
pp7exUiCSRnFjiWobDQVHQb+JYGlpoItXmRAhqHXkLjFjO+8sHbhwoWqqipI
2Vu3bm3evJmrGIo0shB5OelIkAxBElj8P8H27duDKm1QWBIjpu6TCibAS3Pe
zlipQbYJ6BaWKIxz6nk0lafmiWZnXF8ScGZYBg+LIVHdeyWc4+13dXXdf//9
qecodSISGEI2VjTjXxLwqRbowyzN5sZnOXWUGwE9sHbt2jNnzqiqODIfS4sj
vc/Dj+Y4EiQjkQSNjY1BlTZAVI1ncmJEDFAvvPCCZXALD3xRfX29IR6hvOLk
4bgB5ZRPzE8EmBM/+OAD1bDFA8K24uzkDkHpI7YcNSUBh89NzC+/oDGrDfjm
zZv/+Mc/UI/UbByy8tktEbAjgZkbfypZWtFqCX1KArIxE0Y6bumAxlxXV0cV
BJULravzqXPnzqFa9+3bp0bC8bN674oAHQlIXRjiSJBcwJJATYxoVKRcC9PT
0w8//HAw870e5tga7EvsdtOBZrrEvNibmJiwu4w2wWneTOtlSmHko3Se15EE
lFY+Me9D2N3d7eA4Nzw8XFxcnLCPbtfX15fqRZDUS21gAtlb0Yx/ScBtJuJA
PYGgnmPNz8/Xl2S0q/ijH/1IHbs6OztDLS2Tq44EyQUsCdAUf/GLX3Ah9QMt
wsoYGBg4cOAAWjIerbKyEko11KKijjBoD0QCbC5DlgiSiqOCK0mAvrlnz56E
3gokLm5vb4cmTLtS9PHHH8P+ijK9mo4k+Oijj+6++27NfKNkRKdNEkdHb9Lu
mvH2tIGHiJmsrmgmQEng3GyCJZBhkCuFCt/Q0ODK/UYNKp6INoRjgI4EpC4M
cSRILlRJQEeqVT9tzWxi169ff/TRRxPfxvzN1izF28RE6beqq6stBwPtwCiE
/pg6aVKgoYijx2eUBOQVD0mgP/r19/fj6VKnfjwv5sG0cTmywpEgqyua8S8J
NONOB0hQw+D4+Ljq5u1WkqkHxxK+jwHqk8OOBMlIJIHn42MhwXrgZz/7GR2t
IjQrhaKgwPiiz8qBhfDgLu9KErS2trqaMZN3TqBYhPrk5OT999/f1dXlrtD+
yCgJKNAWrGN9m4KcaS1Joxy86diRwPC2ndUVzQQrCSI73uV/GCRxy8OvB0lm
WSWIzNAO3JHAqNCsYcclMEr/JBU98Pjjj1+7ds1zYsRs2WwNg+NBoPNFHiQB
tWe3K5C0lWzp2phxovc7zSgJ8E4cfOTs6Ovry8/PVwdth6VyTtWkn7M+erK9
opkslQSEn2FQjSKbcB8yznL8MEp/sBx2JEiGIAksyRCN8niBHmhra0Pjqays
JL9Wz4kROY98Vp8F9sZ3vvOdhD/uuecenS/yJgkw5g8PD7t9KFSoanJS2tno
I1tmlARvvfXW7t273Q5Bly9fXrFiBS/tZlwqxyCAZzdZ62Z7RTNZLQk8D4OW
PPUe3AAsKfaiFHWBOxIYdU4/cEmghpdMRLi/kxFYE+j4aMCqX5alXeknRsyK
zdaQMFkSeIZOoHDvtnPFD5uQ0h6RScXrYOfOnSstLV2YaUANqWgmqyWB52GQ
NKqfaYKPXhKRxZYJ1pGA1IVRC+mBSwI1vGSUNeUM64H8/PyjR4+qf+Lcuwnt
/Sx+aeaf2g6D/w0CnS+KUhJQdhuS67T5rn8IJUDCy4TY2dnJx0shBjT9aXMP
QyqayV5J4GcYHBoa4uXZhKe1d84KnYg2e53FivRj89I2lmnRJIKVBJaogB6c
SMOA9QBob2+3tD0PiREXsiNBlPACXTRH4RobG2n9M8YjaeFJAtyQvJgczh4u
EEyoaCZYSeBnEdstfoZBS8Jct8WmyZQ/7talxA9qQBuwefNmz3qSFutMO+cb
rCSwJDiI61yPCusBlIczZahY3oDOCthCdiSIEo5LEM32E8ZkfBHs6BiPpIUn
CdCvly1bBuvM4ezhAsGEimb8SwLVbo0y5JqfYXD79u085HpwJFDnZbenTnxi
8S30c57u0KFDCTe71dEQrCTA06lLBNEcknVA1QMO8UzUYuvMPlE6EuAR8C1p
MwqFRFNTU4yZ7lV4ddFDyiQPHD58GF908uTJGPfZw5MENIqiS8YVps8cTKho
JsBQRREfGvUzDKrnBz3kKlJH7CiXCJIpksDzHEeLdQbu3wUoCch3l2/lNoHI
7du38dXt7e2w5V999dXR0VHNFOd2oJ3s2rWL9IBz6GxLYkTnhcTU8O8XL148
ePAgio0+gpE82FUgyxnYCDAnoDH3vmi221B36KEYmYuLi+Pa3QtPEtCd33jj
DTxjlMvLBmJCRTP+JQGbzB5Gb4xdPT09O+YZGBjQH7t8DoOqJHCbq2h6erq6
upo+q/PImIZQMNiGzstBs7OzGPcyTjoWt0bP/bSrqwuvTvOoC+YylG1kZAR1
1N3djcrK+Dh4//vmcTsfBSUJ5ubm8O18H8yw4+Pjmp9FLRw5cqSkpCQvLw+F
2bt3LxpMYWEh5B+eGu2tsrISQtSVFFT1QMbQr2oS3kQml0h1Bw3PiPZfUFDw
2GOPodjPPfccfl66dOlf//rXADdq0dfefffdaAIa44sCzwjvGZ4fo8kJgt4N
QYgajNHfLGxJUFRUZKBhEjEmVDTjXxKwcna1mDY5OVlTU4MRsqKioqWlBVYY
figrK8OYBpv9f+ZxMN59DoO8wpBwvx3f29vLgWd1YnaxA7lDBgRM9JQNJGMt
cNQOP5Lg/PnzuAksaM3lkbfeestiuGVcWmHfbLd5H4KSBJhzeTkl1avfgWvX
rv3yl7/Ep9Aa1dMcU1NTtbW1HGDQVWtX9YBmYdSjppY4bxb4lCXaPDpFfX29
WjUUUt7VG8gN8M4xyJCCRX8/fPgw/tfngh5bImFMkamQ60K8ObDClgSJCIO8
GYsJFc34lwQwmmis0zS3YYLt378/fx78wHYxbbNCGLAN7vB+fA6D6nkBVxHv
OdFVQi+3heaxCD4ol3ETxBIiycP5QUpjipej3/xoleCLL76guTKRKbAeu5d4
2EsKRBJAJWJCpzuk9eq3A62ISp52YV/dtdF3y/SgB5IpiRH7+vrsrmR9S8s+
llmPQ3AsHFvsxo0bb7zxBqUszMvLU1fV8P63bdvmdqOQwct89tlnvWldD9BM
EW+m7LAlgSGHgJLzldvf30+CH+88yoBmJlQ0418SsPe+zlE+Hh7Tjo3qdOA8
F/gcBtXxVt87kXOAJjTWfgmdYxF0LlVfJar2o1s/Csr86GqWVGG3TOfv5WN0
Hhq5f0nACVhpRsCTavoAcM53u5yY6no+WqDOPVU94Oq1W0612K0oqnZr2vML
SUUAL4Qd27Nnz0K0w1LAq+a2hwZw8uRJtjUKCgp6enq8WaY83EUQ4ItminhP
54UtCQyZB5Mp8WwxhkxOTkbz1SZUNONfEvA0kVE2q5kHMbemfXye7xwcrf0P
gxhdudj61hM0DCaLhBtbT+dYBOsTTZ+lixcvrly5kgrvqkPx9GT30pzRtP3V
yJAewnL6kQTT09OYqSkLOX0W71+zl3FiU4e+qUoCHcdOvOTm5mbeZnL72rnx
OEhKHc3JR+f8xL7OCi5cuLBq1Sq00rTrAKo8QyPp6Ojw8DY4PrZbHyQPYOyK
PdFPeJKAmq6mtI6A119/PfFtIosqbEJFMz4lAVu4Okf5KK2280TGksBh+Apk
GIQCJFsSQ0Rvb69zyQGsDHIChx44dOiQ5mCicyyCd17016LZnwH/aibM4i3y
rVu3enNB52Vz50AQlCHUm8zGW33//ffVIxU6tYOZGrXT2NhIgo0+ZdlLygg/
nUN0IFfizaIHdLaZLFhOTKQ9ncQ7aA5bOWzYmhaDIlig8/HCy8vLz58/b3cN
pdvzoDYZPnARQVQoDBrObiQREJ4koOnAhN1zwpLZNsr+YkJFMz4lAUZdWNkJ
jdPTqvVnp77UjXKHRc6ghkGYCTonwjBPod3SfFFQUDAwMKCpB9w6EugLZlr/
p09BqDjLy9u3b2OexQSNYrS0tHg+/8sLLw6vXbW1NfOlokh8Ah2vN5ECil1S
UmJ3aH3ZsmXqxbD+6urqRkdHXRmA6sqGQ6gQPpauM1b09fWxHnBuYA5kDG6s
ozn5mtyWBGQpPPPMM5AEDrXPhknCfjvGAd7QCTt2NI0esceeCk8SYMYxKgfr
+Pg4n/wlook+YUhFMz4lAQ+SGb1GOcWbgxXGClzTkcDnMKjGjYE5NjExkXoN
mgRtvuOaiooKVz4nYTgSMJjZm5qa2Gkt7XE/TNzvvffemjVrEvN+mD5Pouk4
ErCfv/5xBkuOaQ9ABixfvhxiEmrNW+AvNeeFw9Ppe4EmFUmg6XaSFloJpy9N
dUVIPYqbCjewhL9Yl+bDlgLawzvvvGN3mRpazVvEA67ZUAND0bKVK+fnMAhJ
EtC8E82cq8/g4CAGeVTu6tWrDxw48OCDD0YQHtyQimZ8SgIaJDNOZ2qyHodU
vLxP53BNsMMgeZliuqSRBN+LlkAHovED3gxtTMN6xWjs1r525UjgYR2Sjs9T
4UkYPProoy/Os23bNrRqLvwrr7ziM0imjiMBvqK2tjYReURH/7CydXg6diTQ
FG/oWb/73e+efPLJv//9737KhjFz7969VK3d3d1qY9bRnKonrZ9Yl+ajLvxu
2bLFzqdUXYr0tndAkcCdhyn/0BZqxInkUglJElDTNXnZCg0jGklgSEUzfiQB
fzbjPoga8cxheZwdCRzWHMIYBvEgb7/9dmVlJa/0qpNsb2+vt3YbkiNBauFR
QoxO7FbHthJ+6bnwFjhEkt1r570Mz8cZYoS3mXQalTmJoljJOLi6sS71ELg7
u+B1SOdBJqksTHmTBLzNFF6+M9ItJuS1DEkS0C6kUWnZLaCzQBKEvYhhTkUz
fiQBe2RlPD2hxtyzO0qv6UgQ6jBIB/C/mgcyxs+8pjoSOPQmD44EdsAsCqrw
qTg7EvBZErBv3z6fgX+jhw1Mh0aVVrzhVVy/fj3Ckn4L9qG1G1pVHwmTLbJA
QOft6OgoLy9vampyMN7VJUTP6o4PrIXklE47WSZstYchCXjROILYDp7BHBTB
oRJzKprxIwnI90lHKrN4KCwstNuO57h8qnTH5ILZTZ1ismUY9OxIgPJjQIsy
b4IODo4EKDCG4rx59IMAGAVLAodtprTiDV0gRr8g7gt2nZeXuE1I+WQI6hKi
5/GBTy6EdKyeDJ9o8i06E4YkoEVjc47dpUKiJYJFDHMqmvEsCfiElE7eH53z
a+xIoL4fiA2MaaqCypZhkFcqHKRm2rVolL+srMycdaSkoyMBn/V2dRbDNNgz
zc7Jh7JE0TXcqKjvRJB80A6oa4rRZ9cXWOp4i0SRk7BzoP4B3rTQyQXnwJKe
If1pQhyJMCQBDfUe8s1FBmY3TENh1KwFcyqa8SwJqGdpOpLxWUUHF1M+b6W+
H5TK4sOTLcOgzpEHDi+gygZ0veXLl0fg1qKPnSMBqpVWOdasWRNZpK8wYBnp
vC1iWcI6deoU2nOMed6np6cffvhhu10njrzh+Qhk7qHmLKutrfXjc4uxhVa/
A09wz46sJqyrhyEJyGfMnGN3qWB2g10WdgBwoyqa8SYJ+FOaB3v5MK/d5h1l
JbCY/zdu3Ni4caNlty4rhkE1vqKdJFAfmY1T2vUwIR+WSqojAR928HYWwzQ4
VHVqKEs8KR4QKrSoqCgxf6IQSoD+hJYZe553ymiZunxNSZpQ4NWrV4seIFRp
5+dkKEOjjWasM31o8dAQd9DAJQH7jMW4vOYMLQlGELrQqIpmvEkCMm9dhaf7
8MMP8/Pz066zwc4qKSnhDT6O0obfozXyCMyYPwyyI4FlEmHOnj0L0YJHpgFq
x44d9HvMR+Xl5YbkAWFURwLMgD09PagX1OZvfvMbo44V+4ETHOBheZY/c+YM
VBClRKRWx1laMKGg+mKPvYaiPvfcc2qxMfENDw/T8eqGhobwTsllHRykCF3y
5MmTgdyTwp1hwAnQo8Co/eXAJYH5jgTo6StXrnSIgRkURlU040ESXLp0CdMx
OgK6g/4XsUTHVIgJkX6Jcfj3v//9kiVL9u/fPzExQQY+nV+gIbq5uTnVXjZ/
GOS9ad4K4aVFsq8xKLW0tEC3UF5FMjbpHN+GDRuM8gxXQ7ug9UIJQL+hKqen
p+MuWsDgtVOKhIKCAsgAPObixYvxG6o7VNybb75ZME9paWlhYSG0qwk7gGg5
qA4qGIVzRC+orq4+ceKECcUzBBLhiZSc1z5Bn8WAk7BP2uIBCrZvSFypwCUB
7fxGEA7aG5D66EHBLvvYYVRFM24lAUesfeqpp9wumXJcIAo3h3EVQ25NTQ0v
NaC1YFqnvxYVFaGv2W3SGT4MsiPBli1b6uvr8USYSfG8FLMXggoChsp5+vTp
hx56iGL24insMrbECJ0EQflRzra2ts8//9yENxwes7OzIyMjAwMDGBxS/Qro
rxgeDUnfxqBgKDCKjeIZJSlNgPUA+lfg1h9FmHSVbdwBXlf3kPc8DAKXBLQL
ado8SFA7icYJzbSKZtxKAjQMNH4/O/WwtjAPYuwaHBxMXTDhv+LfjMfZzBwG
U+MromynTp1COfH20MUsUyoeE4L53XffHRsbE7dwQQgWGufRGZ9//vmQRgny
CwrEf4kW5cwJhxW4JCAfezPzdO/YsaOpqSka7yDTKppxJQlIDwfimZPD6EQk
EAQhAtAZaY1r//79oUbMOH78+JIlSx577DGfu5a01Z52wzQWApcEL730kn4C
lBzGtIpm9CUBbe6j2aPxR1O2LIUdCUw+ZSMIOQ/pgeLi4uHh4dS/UqjSANfl
hoaGYC55yIJtAR83Z7WQJYEFz1GeZmdnzVnRjRdDKppD/VhwlgQofF1dnegB
HXRSGwiCECqkB2CQ2i3MYgbHZBfsOt74+HhFRcXOnTuzMYZnWgKXBIJpeJME
u3btcpsaeGGiOhLEfkJNEBYmmJrLyspgsE9NTdld09nZGUYqw3jTXgSOmjlF
JfAsKkJcoMWm1i9wlnxo5Kne10Iq4kggCPFCemDr1q0OYxoFjjPT710QhJyB
HQnShsYVBCFUSA889NBDR44cGbChr6/vhRdeyM/Pl609QRBCpbOzM+E7o4og
CB4YGxujcGeamHYkXBCEHGNmZubNN9+EhWKCK6kgLBw+++wzV3rAtNjygiAI
giAEAqdA1US8fQRBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
EARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARBEARB
ELKL/wMhmE1l
    "], {{0, 97}, {689, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{517.666666666664, Automatic},
  ImageSizeRaw->{689, 97},
  PlotRange->{{0, 689}, {0, 
   97}}]], "Input",ExpressionUUID->"fc77e7e3-f1f9-46bd-8acf-91a4c2a2472e"]], \
"Subsubsection",
 CellChangeTimes->{{3.545153640670162*^9, 3.5451536529068623`*^9}, {
   3.5486895262641215`*^9, 3.548689579787183*^9}, {3.550787285060895*^9, 
   3.5507873176877613`*^9}, {3.5507873622593107`*^9, 
   3.5507874498733215`*^9}, {3.5507931273800564`*^9, 3.550793293902581*^9}, {
   3.550795942883094*^9, 3.5507959452142277`*^9}, 3.5594362885952625`*^9, {
   3.5594895181381674`*^9, 3.5594895246605406`*^9}, 3.5594992621854954`*^9, {
   3.709575503291005*^9, 3.7095755131905713`*^9}, {3.7117177558758893`*^9, 
   3.711717777030099*^9}, {3.711855630387392*^9, 3.7118556482494135`*^9}, 
   3.7378073736118755`*^9, {3.738582763085204*^9, 3.7385827644852843`*^9}, {
   3.739023297598277*^9, 3.739023297598277*^9}, {3.7608116744480047`*^9, 
   3.7608116766202297`*^9}, {3.7613207771439667`*^9, 
   3.7613207775838532`*^9}},ExpressionUUID->"6ed7cae2-1661-4972-824b-\
166c0ca545e2"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Da", "[", "a", "]"}], "[", 
     RowBox[{
      RowBox[{"\[Lambda]", "[", "b", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", 
    "  ", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Gamma]5", ".", 
           RowBox[{"CommuteGammadown", "[", 
            RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"a", ",", "b"}], "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Ufield", "[", "nu", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ")"}]}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"nu", ",", "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.7390233187704883`*^9, 3.739023428704776*^9}, {
   3.7390234741083727`*^9, 3.739023521799101*^9}, {3.739023560145294*^9, 
   3.7390236367966785`*^9}, {3.7390236683204813`*^9, 
   3.7390236990832405`*^9}, {3.7390237447618537`*^9, 3.73902377546861*^9}, {
   3.7390240838772497`*^9, 3.7390240862173834`*^9}, {3.739203455143646*^9, 
   3.739203471002553*^9}, {3.739203532335061*^9, 3.739203547892951*^9}, 
   3.760964976455905*^9, {3.7613197085014935`*^9, 3.761319709792366*^9}, {
   3.761320824183134*^9, 3.7613208538216214`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"c24cc654-9c08-4540-8fec-0b3f663ce144"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"DColor", "[", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Lambda]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], 
     "]"}], " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{
            RowBox[{"Da", "[", "Color", "]"}], "[", 
            RowBox[{
             RowBox[{"\[Lambda]", "[", "bi", "]"}], "[", 
             RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "/.",
           "AdinkraReduce"}], "/.", "TemporalGauge"}], ",", "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}, {
  3.7390242788594017`*^9, 3.7390242866638484`*^9}, {3.739024481677003*^9, 
  3.739024485371214*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"a460f19b-bf8f-4e28-a426-4ad249e95bcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintDColor", "[", 
   RowBox[{
    RowBox[{"-", "I"}], " ", 
    RowBox[{
     RowBox[{"\[Lambda]", "'"}], "[", "t", "]"}]}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Collect", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"DColor", "[", 
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Lambda]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], 
          "]"}], "[", 
         RowBox[{"[", "Color", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Ufield", "[", "_", "]"}], "'"}], "[", "t", "]"}], ",", 
          RowBox[{"dfield", "[", "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}, {
   3.739024298869547*^9, 3.739024299135562*^9}, {3.739024454971475*^9, 
   3.7390244741035695`*^9}, 3.761319710355936*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"a4f911d4-1221-43d7-ac3c-5dcf1b948629"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "2", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "0", 
      RowBox[{"-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "3", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]},
     {"0", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "2", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "3", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "1", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]},
     {
      RowBox[{"-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "3", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], 
      RowBox[{"-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], "0"},
     {
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "3", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "1", "]"}], "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "0", 
      RowBox[{"-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.76132103438896*^9, 3.765634987378545*^9, 
  3.7657384844397726`*^9, 3.7661630015120397`*^9, 3.7689306766720085`*^9},
 CellLabel->
  "Out[39]//MatrixForm=",ExpressionUUID->"ccd0ff1d-3082-4e3c-a7c4-\
fd79b5da2080"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["DD", "Subsection",
 CellChangeTimes->{{3.7308122301647825`*^9, 3.7308122628657265`*^9}, 
   3.731162255630625*^9},ExpressionUUID->"3a6745eb-727d-4c98-abc6-\
7a66a9408a1e"],

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

 CellChangeTimes->{{3.73163077582885*^9, 3.7316307863152466`*^9}, {
  3.7316310047349997`*^9, 3.731631006157134*^9}, {3.7316310576169453`*^9, 
  3.7316310811664886`*^9}, {3.731631162459132*^9, 3.7316311655688095`*^9}, {
  3.7316312115596952`*^9, 3.7316312122785935`*^9}, {3.7316312737246857`*^9, 
  3.7316312835694857`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"388e6d2d-8e02-437a-bb0b-6d47906c1924"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SUSYTransformJustB", "[", "Operator_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FieldList", "[", 
      RowBox[{"[", "FieldIndex", "]"}], "]"}], "\[Rule]", 
     RowBox[{"Operator", "[", 
      RowBox[{"FieldList", "[", 
       RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"FieldIndex", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.737977589831004*^9, 3.7379776211947985`*^9}, {
  3.7379778794295683`*^9, 3.7379778794755707`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"7b9f680f-c308-4d9e-a626-7914b46d1755"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SUSYTransform", "[", 
     RowBox[{"Da", "[", "ai", "]"}], "]"}], " ", "=", " ", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"SUSYTransformFields", "[", 
       RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformFields", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "z"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "t"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "x"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "y"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "z"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "x"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "y"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "z"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "z", ",", "z"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y", ",", "y"}], "]"}], 
      ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"SUSYTransformJustB", "[", 
         RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y", ",", "z"}], "]"}]}],
      "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7316312511900773`*^9, 3.73163130008272*^9}, {
  3.731631344322698*^9, 3.7316313603565207`*^9}, {3.737164630292021*^9, 
  3.7371646368411665`*^9}, {3.7378177847175355`*^9, 3.7378178743956647`*^9}, {
  3.7378180399131317`*^9, 3.7378181686244936`*^9}, {3.7378183040052366`*^9, 
  3.7378183290146675`*^9}, {3.7379150778530035`*^9, 3.737915156950527*^9}, {
  3.7379775135876436`*^9, 3.737977516081786*^9}, {3.737977639111823*^9, 
  3.7379776821352835`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"4e84670a-dbfb-480b-a537-9348d6e913f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DD", "[", 
    RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", 
   "]"}], ":=", 
  RowBox[{
   RowBox[{"RightOperator", "[", "Field", "]"}], "/.", 
   RowBox[{"SUSYTransform", "[", "LeftOperator", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.73163149613336*^9, 3.73163156604972*^9}, {
  3.7316317148186707`*^9, 3.7316317149435616`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"b529f91b-f8bc-4c3f-b914-a17756fa16c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AlgebraDD", "[", 
    RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", 
   "]"}], ":=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"LeftOperator", ",", "RightOperator"}], "]"}], "[", "Field", 
    "]"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"RightOperator", ",", "LeftOperator"}], "]"}], "[", "Field", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.731631998334331*^9, 3.731632038105353*^9}, {
  3.73163219706538*^9, 3.731632198143784*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"11c95ead-7071-4314-8f58-bb351bc32b52"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AlgebraDDTable", "[", "Field_", "]"}], " ", ":=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"AlgebraDD", "[", 
      RowBox[{
       RowBox[{"Da", "[", "ai", "]"}], ",", 
       RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", "Field", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7371651794635396`*^9, 3.7371652120755053`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"3143ffef-6c23-4c86-a440-c6fa01697e43"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HoloraumyDD", "[", 
    RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", 
   "]"}], ":=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"LeftOperator", ",", "RightOperator"}], "]"}], "[", "Field", 
    "]"}], " ", "-", " ", 
   RowBox[{
    RowBox[{"DD", "[", 
     RowBox[{"RightOperator", ",", "LeftOperator"}], "]"}], "[", "Field", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.73163208190874*^9, 3.731632106083152*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"702c3f9b-b9e1-45e1-992f-c5a8d032e022"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HoloraumyDDTable", "[", "Field_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HoloraumyDD", "[", 
      RowBox[{
       RowBox[{"Da", "[", "ai", "]"}], ",", 
       RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", "Field", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.742225289456066*^9, 3.74222531191052*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"63e720ea-e678-4804-ad18-044861245642"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Closure", "[", 
    RowBox[{"ai_", ",", "bi_"}], "]"}], "[", "Field_", "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"2", " ", "I", " ", 
     RowBox[{
      RowBox[{"\[Gamma]down", "[", "m", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ai", ",", "bi"}], "]"}], "]"}], 
     RowBox[{"D", "[", 
      RowBox[{"Field", ",", 
       RowBox[{"\[CapitalStigma]", "[", "m", "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"m", ",", "0", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.730807214417533*^9, 3.730807331182398*^9}, {
  3.7308074030266314`*^9, 3.7308074197801876`*^9}, {3.7308075808302245`*^9, 
  3.7308076139482484`*^9}, {3.7311621764190855`*^9, 3.731162176850258*^9}, {
  3.731606137574524*^9, 3.7316061481783457`*^9}, {3.7371646510922794`*^9, 
  3.7371646525301905`*^9}, {3.7371649720973473`*^9, 3.7371649806451817`*^9}, {
  3.737165124894317*^9, 3.7371651456635303`*^9}, {3.7371652459852505`*^9, 
  3.737165258017502*^9}, {3.7371660194119587`*^9, 3.7371660208653927`*^9}, {
  3.7379145580492725`*^9, 3.737914585006814*^9}, {3.7379155040703816`*^9, 
  3.7379155065685244`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"80896f16-b70b-4a73-8b94-784829b0fea0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClosureTable", "[", "Field_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Closure", "[", 
      RowBox[{"ai", ",", "bi"}], "]"}], "[", "Field", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.737914721265608*^9, 3.7379147450069656`*^9}, {
  3.737915477761877*^9, 3.7379154839432306`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Closure", "[", 
     RowBox[{"ii", ",", "ji"}], "]"}], "[", 
    RowBox[{
     RowBox[{"\[Lambda]", "[", "ki", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ji", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ki", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.730807563261525*^9, 3.7308075648818583`*^9}, {
  3.731162203432887*^9, 3.7311622145514655`*^9}, {3.73116262807957*^9, 
  3.731162636318469*^9}, {3.7316057578588743`*^9, 3.7316057585991187`*^9}, {
  3.7316061552178035`*^9, 3.7316061686856403`*^9}, {3.737165004444684*^9, 
  3.737165007788499*^9}, {3.73716515302348*^9, 3.7371651582582507`*^9}, {
  3.737166026709774*^9, 3.737166027584793*^9}, {3.7379145974845276`*^9, 
  3.7379145994926424`*^9}, {3.7379155245055504`*^9, 3.7379155317829666`*^9}, {
  3.738583927126784*^9, 3.738583928061837*^9}, {3.760811758328529*^9, 
  3.760811758518526*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "4", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "4", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "3", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "1", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "2", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "3", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Lambda]", "[", "4", "]"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7613210404007807`*^9, 3.7656349881754465`*^9, 
  3.765738484574239*^9, 3.7661630016406994`*^9, 3.7689306768449154`*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"297156a5-6d8f-4866-8377-3bbc76ccca97"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Algebra", "Section",
 CellChangeTimes->{{3.550920278304533*^9, 3.550920282240758*^9}, {
   3.5509221619582715`*^9, 3.550922211396099*^9}, {3.551793495341796*^9, 
   3.551793495906828*^9}, {3.5594927244525585`*^9, 3.559492746318809*^9}, 
   3.559499496819916*^9, {3.7113930579483547`*^9, 3.7113930664148393`*^9}, {
   3.711393103948986*^9, 
   3.711393104741031*^9}},ExpressionUUID->"231a1b16-656b-454b-bdf7-\
3325c412556f"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["D", "a"], ",", 
       SubscriptBox["D", "b"]}], "}"}], 
     SubscriptBox["U", "\[Nu]"]}], "=", " ", 
    RowBox[{"2", " ", "i", " ", 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubscriptBox["U", "\[Nu]"]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"d7d48bd5-9a76-48cd-8b8c-563a42b15178"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Nu]"], 
     SubsuperscriptBox["\[CapitalLambda]", "ab", 
      RowBox[{"(", "AVS", ")"}]]}]}], TraditionalForm]],ExpressionUUID->
  "deb5fa10-36c2-410c-97ac-4c8d530cb879"],
 "  where ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[CapitalLambda]", "ab", 
     RowBox[{"(", "AVS", ")"}]], "=", " ", 
    RowBox[{"2", "i", " "}]}], TraditionalForm]],ExpressionUUID->
  "b19e17dc-bedb-40d2-ac1f-d759827491cb"],
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
   SubscriptBox["U", "\[Mu]"]}]],ExpressionUUID->
  "c091acdd-91e2-4f83-b35a-fee904c66014"]
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7390249239312983`*^9, 3.739024930571678*^9}, {3.739025009481191*^9, 
   3.7390250516626043`*^9}, {3.739025189521489*^9, 3.7390251933597083`*^9}, {
   3.76097929777229*^9, 3.760979321068851*^9}, {3.7613198237694573`*^9, 
   3.761319825333497*^9}, {3.76616301236868*^9, 
   3.766163017640933*^9}},ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-\
80eab8b74b10"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalLambda]Gauge", "[", "Rep", "]"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"2", "I", " ", 
        RowBox[{
         RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"Ufield", "[", "mu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7390250591630325`*^9, 3.739025103290557*^9}, {
   3.7609793259626436`*^9, 3.7609793656247187`*^9}, {3.760980562904402*^9, 
   3.760980563351207*^9}, {3.760980693560899*^9, 3.760980695486284*^9}, {
   3.7609809580049586`*^9, 3.760980985247055*^9}, 3.761319712169813*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"276a4bf5-23a0-462c-a40c-58e7dcde8183"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"AlgebraDD", "[", 
        RowBox[{
         RowBox[{"Da", "[", "aa", "]"}], ",", 
         RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", 
       RowBox[{
        RowBox[{"Ufield", "[", "mu", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[Equal]", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Closure", "[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "[", 
        RowBox[{
         RowBox[{"Ufield", "[", "mu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "-", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalLambda]Gauge", "[", "Rep", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"aa", ",", "bb"}], "]"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, {
   3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 
   3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, {
   3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 
   3.7379147590527687`*^9}, {3.7379148782155848`*^9, 
   3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, {
   3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, {
   3.7385839504811196`*^9, 3.7385839572995095`*^9}, {3.739024789074585*^9, 
   3.739024794366887*^9}, {3.739024835423236*^9, 3.739024916494873*^9}, {
   3.739024947055621*^9, 3.7390249480106754`*^9}, {3.7390251318271894`*^9, 
   3.739025168820305*^9}, {3.739025319560927*^9, 3.739025342134218*^9}, {
   3.760979380065931*^9, 3.7609793856052933`*^9}, {3.760980567592511*^9, 
   3.760980568094617*^9}, {3.760980699686663*^9, 3.760980700836876*^9}, {
   3.7609809929561615`*^9, 3.7609810566381187`*^9}, {3.7613197128644304`*^9, 
   3.7613197132189364`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.761321095602563*^9, 3.761330070297412*^9, 
  3.765634988236286*^9, 3.765738484652032*^9, 3.7661630016966677`*^9, 
  3.7689306769515867`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"371299b3-13ab-4c16-b186-b811b09cb429"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnW9MG2e+761774v7Yl5cv+QFEleWJb+IFCFk6YKiCl4QJUKCqBFCJJFl
os010d4eyPYGtqtAqgZy1Hi1LWgbp2drbWNlT5w9GeW0Thc3F7fFOcLZ4p41
ApQ6DUQmwWlIgSAHmWAzXM/YHj8zNvb89czYv4+0q90W2+PHM7/n+T3P7/f9
/s/TfW//7/+i0+ne/e+p/3q7Z7DlN7/pee/4/0j9n85/eves7Z/O/OroP/3f
M7Yzv/lfp/9r6h+eS/3ng/+m05H/ew8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AEAwxObi3dH2xg/8m7tKX0p1sDk11Hh8+M7DGKH0lQAAAAAAAAAAUH4SK9Pj
PUbs6PDk04TS11I1xMIum1F3sMv+bTQBmRgAAAAAAAAAVBOJp5PDRzGZUzBi
9bvL7QeMp29H4KiNhng17zxj1NW2DN+DRAwAAAAAAAAAqoVMIlBvdc7KWBpH
rPqHW3Qpat7zVUzFY2J9MfC3G47LA7aTbQ01qS+HNbSdsg3anZ7A4jojnyV+
mRm3NA1Nbea/CbE2Y+/AdLWt9gebkIcBAAAAAAAAQOWzveI5b9Jhpn7Pioxn
McnNwIeNujQ97uUdDq/40fW2iUxqLPtwqq0Bwwwnbi5xSum2I1++a079ffPx
Qu/TcNazzOvLE/FnQdxuNacyL2OL7eJV1xe+wEwwGJzxe3HXH4csTamsqrnf
FVzdpv46nefWHHY+LHyxO4/cPfU6XUMvvgTloAAAAAAAAABQ0RDxH//cpdfp
TIPeF3Iu/7d+GGutzSRhumZ7MMbh0tYW7v07jt92O/8w0HlQx6CmofM3ow7X
bfyOJxCJc7qCZCz8XTY/yoE1dJ0fGXO6/xaMbnP+Mqm3ujPcbkqNWvvwrWB0
q1D6trM+j6f+Bmsemlh+FZ281EJ+aqs9WOAoLP1tExG814jpsM7x0AYciAGA
qiBij79xXuikzrt1mLlzYPxO8Fm82INKJKL3hjt+7Zx/BY8zAACAVoBoD5SP
+KyjvU6n430SxJPYvKMLyX1MNs8Kr9cTa97+Gvrl+sbRaeGVeztzjtb0w9Xa
73oQjfOtjdzOpFSG46NfPyn6YKae5eB4ex12qPktvY5DKWY84rbpyev6aGYz
yfOqAACQiWQsjA+21OrY1Db3Oe8vvy4UA6hJOfUS7OjFqecwLwMAAGgBiPZA
OdkKO0+k8gmswxnekbEfbOfxjW49ej/rDznm+KUZxE+ujlrhL89/K4E6JInV
qdEWasjsM2schozYCTs7svmnvs+7VvzPM0lxXbtjltsBHwAAspKMzX9uNaLn
50wMHYM3mJs5xOaSb9xCvqR50LsMBcYAAABaAKI9UFaIFbyHTI6aBn0vZMzf
E4/dVpO++w9/+l1TblthyP+a37us+Yca6ZeXTmf2Jd2eJqz9ithZdPeQj5ux
2xXm0NiWftEzT++B9JfucP1UapyTa74LJvIb9rgeb/G+QAAApISelGvM1g9v
TgbDy9FodDHk+9cr1rzCZvtnbrJ8+kpfm4n6ZzKLHQEAAACSAdEeKDOvgvYj
5O3TNB56I9/dsxP1nDNiJ5zh9SXXydx9bMGj/N5nm/HyQ44FQYdhxOYDe2ud
6dyEkLSTiOA91BPX+PtgwVawwiSieC/1CHc4FjgkVpmCScxUUE0RAIAyQSSi
E4NmPVm6fDO0zlIuIl4v+6/ZzLk6aSYwKQMAAGgFiPZAuckehBm63UsyFiO+
mDhnMlD1dck177u5skSDPcjvLIp47b+YK9UVpnWfFoQXqENCbAV/T53G7a9z
uA+JoN1AHoVd9BesKWbzJuI+TWZt+rP4CtcDNwAAJGb3ketYXdHSZSKxEZ68
etbMKmAxnrRPPYPSFAAAAG0A0R4oN9uLrlPk3YSddkfeyPUhlEEYrTWRSUbS
6N/1rvHsDFtydeRu/U5nmG/jFBGf/7QdazznXRGUddIlkYdGAq94vTL9xblX
UWYT5LpjrkeVYqsGAJojGVv46i/+kjPsbjw663Nfs5OMO/H74Q3YPAEAANAQ
EO2B8vLmH2NN5EIf63ZH5DoJS3dgHR4NZFUsorgll0addC1xV4an2PQN5A6E
GwZ8L/m9nBS+MAisRUyRDI3VpzdBuMnsI1BZGJemsCx0K5m8xaIAAAAAAAAA
AJQN4k1onFLK4JMa8IU0CDOYh79bpz/gtX8oV1PIO5fZ233oPEynYXzLAimp
fDGeaKseW+Yk+kCv5xmvQaOyMG5NYRnoJri2sRDPUQIAAAAAAAAAQI1sLTjS
xX28UgNeFMp6knOOQ3RnmMGCL/N8z5e+gYZcZ9iAj7N4hchaRArkIE/ffeMx
D2F/Yiv0p54eZ4iHoMdecsFxSFAPGgAAAAAAAAAAaoT23uKqF8H7AyiDsHwn
6GXcQneGCfD8ioednbmSxsPOMMf8RGQtYhpGV1u99dqD1YSctYL0uWGHS0bx
FAAAAAAAAAAAysOat08v5wo/bRBmvRVh5ymxoL2ZzmT4W4btbvrey3WGcZVJ
FF2LmIFxEpdxlJhaiMbkUcchnri76qhslbeMCQAAAAAAAAAAaoPUmaASibqR
AE+BDC5QBmGFTYe3xVmG0XV6abjoe0hRi5h9q6xSPQtjs2XA7sR9D+afrMel
S2rpjJV/Ax0AAAAAAAAAAOoiEcVt6cMoOaQ5EIOwfJiHWbwtw5BTPJLGIX8p
6XdJahFpiJfTo20sswgmNQ3t/2fE6QmEV0XnYzvL7p70MPFvoAMAAAAAAAAA
QFXQhyz8xd5LkjEIG99PiYI+hiPB3vGs8qy1Y+h7lMwipapFREg89Y0eN+hK
UmO2XfMvi2m6y2WsArJViSASseXQN1+4HJcHbCfbGrIJtKwecwDA4NWM/Wh2
68PY3NnTN/SR89bE/fmnMVkbMwEAKACRiP6Hw3ZIb/OsKn0pykAuYg60D98J
x6BTAAAAAfzs7TsoT6lbnkFYPgzLMAHOy/TFU2lYsc4yCWsRWW/8ejlwy957
uHQuZjzjnH8l+NNpORDuds+SQWxFg3fGB7oaWCd/huZOS++A/c5CDIQbgfKQ
eBm8NWb/56E+S24fIL0Z0NA1MH4nGOWjPQoAgHCSsfnPrUZMhx29OPW8Wp+7
WNhlM+owQ/uHvqgMLR0AAFQ4tFCh1DL1ZPmfkWEQls92YKSOXkYdGgm84vkZ
tMZ++hvsry4ibS1iAXbjL38K+nCnfcDSbNwvD8NarkyvC9wx2w07D6ffhX8D
nQh248v3nX2tSPqFGdrOjeP++SdrEra9AQBviPj60sxd5wcWM5KOYU3Wj79e
hH1pAJCXXAo2PPlUofIMdUC8mneeMZLz+6VJSMQAAOAFeZ6eXmLb8KiEoXQr
7DxRuvyP4bwsoOMpueZ9N9cZtq/Svgy1iMVIxKLhoO8L19WLthZWRlbX4VzY
Efau9LnhIcdCmdaY29HpTyxGJAMz9oxNhjeg9AtQEURi4+GE/STypGHGro+m
5F4OJbbj8CAAVUo2BdM19OJLGknB4hHvSLuh1mz9dKbUXigRfxb8+t/vfD3L
1YAm2yQOiRiTVHBeCk7ecowO2DqbkXohqph8+I83Jh4sbghcEJUViPaAfOR8
ryTMwtIGYVzK/1Y8NhO9dqofC/FNLxidZboe93L+Ey1bLSIXEmvhyas2dK++
aTz0RtCF0FlYmRrDkuvTV1rQMzC+8wsR33gelYyXMnkAaBYYXpTsdjSNvutP
c7KdiCXDziNYdjnR1Ucq8Cyua3sAAYArRGLF029KPQC1LaP3i9W6qAnihac3
s2NbsupmLTDSSv2lyeZZ4foBiSW8lzSvwVo/mtmEs/jdePSBe8RqRrsYsIa2
UydYleRk9YIdV3MlOUT7KkLaZRWDFxvxfTp35MjCsuGILzUDvk2+n7XqseUe
80LRVfZaxJIQiQjemztRKpgqcqC8WRglbomegvXhEZ5dewxja6nICjLg34aW
N6s6EsLwsiDWZuwdyC1b2zr2g6Q11shHxcK+G1dH+9qRX8AEHfqAYhDJRLJM
Mxyx+cDeWqsjNzr+/KNmqtLRsplSHeibvoFMolDX5X7C/RsS698Nm/XkWXwv
nueOWk0kfgndPN9MxmLM0GIbcX55f34puoHcK4nY6lLI5/64vy27CY8dGbw9
t67KQYNoXxXsPHL3IEc6MlFw9S59FpZ44R00mWxjt3EO/Jtz4HDuCrvcy3yf
wlxFZcGYWeZaxP2g6jMzFylUBaWsWdiroP0IcusIKqSUJU1AqWno/N21uz9E
99thqGxgePMg1iYH0a0D/Vl8RdZyl+2o94I593mY0fr5PEzNQBkgtqKz3+Kf
jZIqNblbHjM0d9oGLjtu/E0Ke5SCn7viPUf5ZBrPuhdl2uSQgzX/UNbes240
sF1kaIjX/ou1mT89MhbaX/GrAMnNmY+oJmpjl3Oer9ZYhZB4OjlMythizec+
85XqX0j8HHS925y5gWtbhu9FVZmIUUC0r2SY7sNyoe/BC9TkSd0XRi2EDljd
j7m9l2jLMEZNI8t4WvJaxMSqd9B84uYS/2Up8hPzDexZ6CxMQOEmX7Zn7AfR
1WyfR0Aamzvbfba08J/BwCT+2VCnMd9gzdA+7J4KhZeLHeYuLQRnAj5SJP98
p5n1Fpj5Vx9PPKy6bjUY3gLEQmNtyLUf7PP+LO8HEmuB0cPoaCl67A5oiO1o
4PoF8nHDDG0X8DD3rbnt1dAdu7WpqFWljrRHsVy6XnIZzI94BO+j6n6N3a6w
Fvp5siCmNqVEhhHJr5r3fJs8J3s6IGAd9pn91aErlUwKVtsy5OEskbSzHnJa
MzOXuhMxiPYVSzzs7Nw3lBpaLAOXHa7bHt90MBgMhSMc6g+fhT2/M7Pex3zB
W7iph9ZIFCAUn0faIKzDGd7hemuKtQzbex0aQ05t0NM06WsRX/oGGgRKFNI5
lJDvSFJWjUSGg0BR8Ul+JDf9Hxxg3ZkldibzIV3LvnYOthnQZYh4R7YKAIaX
2A6M1iGzZBl2LIiIu5uxID5iD/LVegWqjbyu22OuRS7r/cSzqawQDWnNMPaX
CX9wYelZdDkcmvFP3PjjkIWVndWYreO+iCRPLrGz6O6hVsu8png1QCy5splV
KV9RIoJbsw2mAopzcnWJVdggtvXY1aMXkkklVn3D2SWrqo8RIdpXJgydQDoo
N1mv/KsvtMzfipSIh29YWVvixZyq6LMk8X5h1HG8/thYiE93l1jLsEQUtxVa
c8pQi0idEAmrBySW3V3pKzzsDAuq8CqrXxgzC5PyE9e8fXodA0EzXSFlPFLC
cXx6RWPdTNJS9cOb26ygKEf1LvHM04vmvtiBkWkNlWoBCrD7yHWsjvGccrhT
idis00rtWRreHr41U7hUmPR2vDnYUst4c+NJ+9QzsQ9Crt1bcytPtCmslCNP
rilMf8gxJyiJ2lnBz1IfJ2NrqvpIa7Lp9N03HgvI0KkN/GwE7XLMS+tdKx0Q
7SuRvOT6YNfoF/Prwk77iUT03jArAmNto9Mv938qYkF7M/V3DQO+l0K/BAUX
g7B8xFqGsfpj0nWVsugiphd4gtZ1dKl5TatjTtBPmyvdLMfCkpmFSfmJ+d1M
oo728rT0saNDnkcxLW3TSgoMr3y37r6k1njnGftopvf9fAuZgKoi7znFut2R
4o8VLcHXctGzuFn8b3P5GvLkinP1otq9qTcynv0yquYIUACkKaxEkSGxHbQf
zPxp45Bf6O4juRailjXYCWe4OhbpxAvfYBPVmXjcYntv/O5DvtMEsYL3ZFNl
vfWWWuVNINpXHm8i7tO5VY643WYiFrrWxTKoauz3RIq+IX2WxE8OKA9KgMJ4
zhPlmWQgBduCLMNY6y7qRE8WXcTUQPViAtd1v/iHqLYw4XIB20uuk8KHiC+a
ycL2SOeaMM7Y+61mF1EYXgWyMHT/PI3oHS2gsmGdhZXuIaJKO/jYhRRIxPSn
rs3tVxJTiq3v7Y3paVpzB2GMNQZmxYumkEh7iNDeAQr6OGyffvyKI+804dCQ
/xee70F1fGRQ8W0G0b7CQM83i9UNcqCAPny91TlbckeCXriJWLGkD6NNnEU5
UOjGNKHXwFh5ppKUeXl0EbMhgneTFJGI3LKSEbmu3TErtOD5VWAkLe8hvnCU
A1rKwvYQC1F6VXP04tTzKpj68oDhVSQLo7dZsggx3QCqiGRs4a+DpEx3TUPn
8I3gz0Xv0nRpR+q56xwPbXB+7lgOKdSD2zoeEuLLpO2cAmkKqznsfFj03OJn
b1/2KExo70CGXN56eDRQ8TId9C4xuhLju13M0GrT93rUKnwB0b6yoPs4+AXY
PLLqoAi1LRe/XeXyjvQ1CGwh2duLzzu7jEI7dumSSOrRE9KCxMjjao62HZbD
o5mWDeRbY5DNjkW5qxBP3F111AC9612Tv+FXY1nYHtnt7r/EUKTRmJCyRMDw
KpOFEVuBywxdFAHqagBQECKC95gENRmhDilpBHmO5BIKAQccioM2hZVqeXjt
H8oc+2MH7TOcDh33ZXvRdSo9+FylVzQMYxVH0TwS2OD7Lrn2eZ1QZeZyANG+
kqBzf3GyMMSreecZZiUiH99A4idXBxV6ai/6BWgpZbVJS0gP7QtzF0WIHB8r
AsgiH4p0/fMZW9o7g3MlSWHo2UHkBh1HtJeF5Zv26rD2T+c1YyoqETC8ymRh
qZXq9MgBdHigTAWQBGJn4VorudI7L2D/jVjz9rOkvw5cDvA7DkMaYRp/HxRy
lKYsSFNYqT1MxFBGApMLpNFJxfV10sAS+saMPe5FAXvyjPlLfp8RwUC0rxwy
RW7i1jPbK57zJp2O8Qjws5OjDTL4ShTuxpenHLZD1O2ob7R/L2RzPPHCP4Ko
mgnJBJkyibJ4NGeawsjm04Z6Azc7DCL2EB88IkEKlpsdBKs28USLWRgiEZxF
a6Y24oHhVSoL29sIjDSjA6/iihpAQ6Qt8ARLsbFvS94rxlwLW8lyPlWCNp6X
2OOlZ/kUJ11L4o7C9hj9JjX93squSiRiszf6j5CTD9Zktd8NC7QzZtQ11Q75
BVmrlgGI9pVCJqFuGvQJ/gETq1OjLcyaA/5rfuJNaLyJWrN0uzmcRBGbS/fv
up0fDdkOM1d8pra+K85bkwvrJSV3X4W/+QLH/62QS2yN2fK7j5038RSeB8uc
klPUJEiGWkSSdL5Mpbeba/Oud0ivTfNpO/59JFbgyxLx6Kz3E5u5JhVImvv/
NSRQ8ZKGPi5sGwuVRcFVm1kY2r+QDY6C5VC0CQyvYlkYHUXpwVFtRQ2gHTJJ
hJD6LgpGr00aPotb9K6WwlG07CBNYSXdAxF1iEOOBQm2O5HBx067I2/Ev2Ol
w8jCylT5IwSI9pVBRhNVhAFiXte8Tmi/xpt/jDWRyytOGX3yR9fbJqyh7ZSF
xfFmA6YznHIulIrx1DvoCr1FlhNtDbWGln/2r3MKhdlyYtmszKmCQCS93dkI
T4z1ppNQY3PXO0NXxp3u26nE8bbr6uiAhRwH0i7TjgefSVC0RSy5u6mPahoP
vSnLhotWs7C9vc2pIRP6ROgbR6dLyDpXEjC8imVhuSia5UCv55mqxgbQHqse
G6Kh3NL7B0+Yn4QXkoZk4ZFivAraj6h+SVwEtCms1CFgMjRWnxlrZqK6/XLh
h4VVQUdjOQPHumOuR9obv3KDyiSWqwteGBDtK4F0pYHg345IRCcGGQVCYqRo
s52kGs3o38w5j9U3dH3kX5Xn4l9O9LcMfhlh7QQmYsuhb3Dn2MiALZ2B6moa
2k5Y+96/euNvgfCqVE0z2fJywV5j/NFuFpZfgVNVm5AwvApmYZmQjsRjKFMB
xEFmBswHWme64OO1NGU4cvJc3Ob6X8pVDC8xSFNYqSJDJF012TwruX9BHkfW
CazGREWwNZnGlhnmWZiux72sslqLHBDttU+60kCo4xuxfn+U7c4syscnu9Q3
9eAl3COB8pJ1lCtn9ZeGs7A8/aJyZq+KA8OrZBYGZSqAxOQ/0LxVCwq8hQ2P
crkt0Ye91R7UoBo32hRWwv8LPTVj1F5S2Zngr4+Kj2mypLO8sLKwsvjyCASi
veahNPcEttwWMGTU1VtdC+Ke8EztgYgKSUAGduYcrTXCxU+EoeEsLN9UUYAs
mGaB4VUyC6Of1tznc+q0BYB9KJSF8XRiQjORDByzMOTgW5ta3IxqzOJfIT7r
aK/L/CVDIoyS7BAR4hB1ZYgGpaAdeTKoOQuDaK91kquedzBhLbcFrMHq2seD
Jd2ZS5I9DtOiJ0ilklzzXSAFMMssg6DpLIwdyXUietu1BgyvslkYW7FZh3W7
obYAEAyyhqfhKXIo+CwMSd8wKx7V3m2MHm/pipW3sWw4UONUsqTwoFCBSgqk
IrS6i9aIZCJZ4tuz71V1Z2EQ7TUOEVueDT3Z4Gg7lXsZ27WHdGcevhfl+z6F
ic07ujA4DlMPOwvOjjqBVpti0HQWtvcqMHKI+Rn6prF/qKl5STZgeBXOwvKW
zWrrmwOUhEgkeDZXESvec42Mh63rzz/yajnO7wvjloUhB0kV0BSWor7f+7zA
wKXtVrEWy6m38mPm7qLrGCbS7WvFY8taCWnzSFEgic3l0Le40z5g66S65rMR
seHYO8OfuKfCBVa/OTGTNCrPwiDaVyGxsMvGdmfmZw1WAmLzgb21Vja9d4AX
iRfeQZMi9rjazsKY/nFpqqQzGoZX6Sxsb/eh8zCUqQAIibWw7/oIbexiaLEM
OX3hNY53JhF7/M31y31Wi8XSOzh+d56n70lWQBihlGI7BR91QZ4Q8RcLU3+9
Ovzr9gb6STE2W347Ri7NBW03FjxmySvFzDfxSY2tb6zHSPXUv6FNlmkt4kTE
09+o78HFLYbQE5MOx0L5GgsUgkhspO73SxZz9sfFGtrODIzYSR1pt3P8ylD6
d8cMbe/dCP6MPgV5J79qz8Ig2lcZ29HJS2xrsNaPZjal3aNKxkKftGP8hZgA
qcmY5GJdjvmyByJtZ2Gofxz9qBRvza4UYHgVz8KgTAVAIGJz7v5WLLXmbDkz
fPX6zc8+yKxOxalpcaaAX5i+z7tW+oXokbcUFsZpiM0l31WbmXVF6BN7fOTu
I37tFcSy52xDfs0k2hSmbz56hDqOwcynr7i+8s8Eg4FJnPwtag3t7+Pzv1A/
BL3EqreM3Q0E7l0fOIIJs/5hgP4EdV3uJxUcDMgdA+dgW+bkq8Zs/fDm1MOX
8bwdOmIrGrw13G5iPgX596r69Uwg2lcP2eQIxXzBy8+dmSNbi+6zRh1m6ves
SFPoCPCHiPp+26zTNfTiSwrI7mg7C9tLLjhYNXMa2FWTBBhe5bOw/B1d9a8l
AFnI6GhhRwZvz61nJlNiK/j7TJ1cOXbY8qwlOJrjED+5OrIizAy1CuEQsYf4
4BHWKqYQ9VbnLOdELD2e+UX76FnewT7v88TG44Dnz1R5nJE8iGnutA2O5dXF
7WyEv7k+0teV+hvyyPLz+8sSfHM0IPCxzNYW26tBV39z9p4xnrR7fyr+IxKx
R56ho1juKdhacDCt7dSzubc/EO2rA2Jn0d3Ddmc+45wXZg3G5QNfTo+2YfyC
ISAh6URYGtEVAbCW2ZrLwlhL8fSX4CcsplFgeFWQhe3tPnIdq0Ouokag2RCg
adItXflnXojKqOxyDTnDrywczXFe+4doJxwJ6o2JRPRbe9dBdtjYF87bj0QE
7zEVKt1BzvKwXm6akLKBtjt1uCqwZC3xS+j6O+bMjYYZLZ9MczsgIGLB8fa6
rBAB0kCnZPjmCUT7yicVvu4Ns63B2kanX8r7KKeVGMtUNQGgpOsiJBRd4Q1r
LV8RWZhGG8x5AsPLvDaFdp6zHn806umbA8rETtRzzqgzdjnn2Tvjqx4bfXPI
K9eQldjNwVXoCS3nw2yeVXHXUcDeNIOxue2tPCn+9L/pwyMlzxTSB2GFLAvR
hh3Fnz40LNeNBrYrKw1jqHbzVSpI/4KULjea+Ms3eUkPRPsKh4iFrnUxBTl0
jf2eSDkyo8TK9HimcRUSsXKRTsEOdtm/VSoF26vMLEwb+2pigeFlXZtC8zgR
cXczJmYoU3m96P3MrhY+8y7Km50Ta5ODJqygsBKzhImjdZewi6DOiRCw1vEQ
N98rNJCIfbR3Hrl7EHtTQ3v/mNsXWlqN0e+6G994Fg56r1+ymhEtPdPg5Frx
i01/wUI2LkQUt2beSg0KrqgZsZy/ePlhGidh7Z+E+IrFEUvuboO+z/uSXeiO
cVKRUQEQ7SuZxBLe28Bc7JS3SpDYXLw72t74AacaBkA8m1NDjceH7zxUtBB0
Z9ndg9xytR2unyS7nPKkCQW9TlWSJsgKDC9rQ/WgPajIzjO1tECuo9B2fVVR
6J5REJlv1+1F1ylM1zToy683pFyAcxci35o8ue6/ZEa/M9ZhnymR1iAXSeug
ioz/Gfsb6gJa+z7zFVVBTMaWJscs2ZQNO+VaLFLYlj5G0Tfav8+Tz0B1HtTg
ZvjSN0Av5FTTQiselnctp+PLfLaXXCd1te86xruZz6jEypwyAtG+Uingzlzb
cvHb1co6zQZUB3sHVdKNHUgTZAWGl3RZPYBcl0ivH8HklanQ8tfVCfF04txb
HJQZygL21rmJpzL+GFvf2xv1utZrC/m2m6z7U776tK0fxlrR/Yh6q2uBcxxH
dRLEtHwS8flP06piWMvv8DC3TvbcyqdghkW/974HYXt7m0F7a+byVWHRFQva
m7PjqZ3kogTp7nUa4fZG1Hxiamhg1SPu77KtOiDaVyJpJ0HmzGHsxSMgWgjI
S3Iz8CFqdSnaLYVJedKEAkalqkkTZAWGd4/YCo23IjOi3npLibBJvAmNNzFG
qG0sVCl74EAxdjf975v2cQ4iXnh6EQ+rmgHfpizXEPvRaUE+h2+XMZo1NA75
OQjbF2Qn7OomVzH5Rl0loKuA9tUSKXIQxmgKk13/hBPUcU82UqpFyEgUbNVu
UeuEQiXumuqugmhfeWyveM4zm2oldmcGgELkScHoe1yPJXWZhMYlWVHj8CZj
ke+9d3Dc7RwjW3IuDdisFkt35+nrCzLtFhJrM/YOZIFg7LoWKm+JbyFJJVX0
pwBlgCo/w067I/m/duKFpw9JjihRAunJnUBlFg897sX8U7liSFJBl9UGMZ33
rPC21CFeTJwzYfueHBEvfINN+xyEoU1hKnHRRSs8FdHQkzoIx2cd7XVIcBNX
clBI7kk70RKifeWRWJ0aZbsz891KAgDe7MYjE4xgIocwi2JpQnXox6pxePP0
h9PIutXJLueut157sFqmEzF6UtYfbDioR78ylKlUA9sz9oNY4dub1T9y4HKA
m1YGL4jNB/ZcLaKw/VtUTUJoFpZR8C7YHMeFnRX8rH6f48LdRdcxDDMNTRU8
ScxFwRKdZWUDzcIU2Q+UNghvhZ0n0CUqdsy1KCaYF5hQ1NDNxwWI9pVHMjb/
uZVtDSbevR0AikHEnwXxy13IjYeZ/49z5mfpJwvF0oSDfd6fJf8c1aHG4SUS
sV+iJIuhW4NZuQD5le0TT32jx5HBwIxdl/HgszzJOmnJ7Yti7Z/84/GdXsbE
rFSTGlBGYt+PdbT9+ssn+ctSKnegbwZ5dssTEU9/Y+6eF1hCIz4Ly9RoiSpU
S5udFWjsehW0H9FhJ5zhwusiYv3vDmuTvqF76NacOgxPFc/CpAzCaf1PJKyJ
PXBEbREyyLNBITUQ7SuP1G86MWhm/JA6/alrc7K5MwPVy25840U0urTw4J77
6pDFXJO75bAm68cTRZWsRFCWNKGQekSHY6EKtjJUPbzEdmC0LvP3IppNuENs
RYO43dqErBgwQ1uf3Yn7HswvRaPPN6TNyZDSlHQVFlsqBDswMl0FdyFQkNcL
jreRm+Ftx4LUavmMdnIxXQxoFiZMJCEednaKPtGgsi1dqz3IOPIiVvAevdQN
y/JCvPZfpI8nFa2NFx+E85QoxOp3MQZHO3Gy4qI98dx/+bjCQraG45f9zxV8
rAs4GwopCdt+GQ7NLqtjBwhQKa9m7Efz9cqw5l+P4dOLMuVfacqRJqAyxVlU
oZQlP6oe3vTCjEL/rnetbF2uOxuL07dHT7BsF6k7vmDzjkBy3o5Y53hog4rA
rD4grezxAjLw5h9jTbl7QWwRVwHQdnKRjeTi/a1eh8aOcLcn24f0gRqr2jmd
zGqlYi2DlP5rohAdhHfmHK3M8C+2thy5pAwa+HErMNqrw0xEwaeDiM06rfXM
y+ElLZtlc2rIhNWNBNRQDA2ole1l37+MDPRaOpuZj52x2TJ07e4P0bhsCUs5
0gRUkCoDZsWj2gmHwlHz8KJNMR2uMvXMk8dhd8b729FRwRraLH1DV+x/cNyY
WpLoNAwJ4A29+BI9j7A08TSxwABkgNgKXEY2yiVXjUiuT1/JtpPXtgxPRETF
cNW4DFP2f/o+b+7MhlrhYB3OMD+9EYVRSxYmNgjniwGKLqwlIriVuUOm+o6q
yoz2VX4WVsAarK59PMj/QCu9Ta0SXSBAAxDxtSch380rp81o2Zb5tN0jj3N0
OdKENf9QI/MzquaJUPPwrnmzG4XyN4WRJGOLX3/MKEc0tQ04fQvRmNQyHcik
XNtqf7CJvr3Wy1QAafjFP3Qodxfo+zwvJFyJo+3kfEXpC4JmYcrWclOyEvVj
oUy8SEt2mHrwiKbieXLN+y69PFcyCxMbhPPPrUTXlm/6Bhhna3XHXI/UXLYC
0b4CYesqiwmkaYHZk64lOAoDeLEbjz5w9aM+S5LM5nmUIU1IzjkOMZsrJS08
UzXqHV60+L8MO4Tb0clLqNIs1nz+ZugXORY/yKRc0NJR42UqgBQQa95+ZKlZ
0+9dk+wWIBIrnv6MWoJUWqBSaCRKA+Ufjb3jWaUyhrTu4r4mYqpFcXWONOKD
cJ7Wotja8rymMIk3KCQGon0lEgu7bGx3ZsEV3eldBS253QFqgu0VXtty8dtV
aUOI/GlCvuCSpvq4xaHe4UU2UWXv0WObfei7Pvl+VZaNKbSSHGu5Mr1eIG7n
lansY4EEVCystZmEuxCoV1G91TkrUQEDuthWNgtLrnrewTLncUWdmlWNSrIw
0UE4f34RW1vOPCNW948L0b4SYW/Ykj9u60czm8L2FpJr3vM1VeKLBMgEseof
bkFjCFr2LAGypwn5Ck6CDWs0iGqHFyn+l7tHjy2kLMg0ltMHoc28xfxEUA9c
agVUyAIJqFhYNmGNvw9KtD2euwOxo0OeR9LVkMeC9ubs5SqbhaVD2qGRwKvM
il0tFmC8QLMwgwVfVuYqxAfhPI8SkRIErDPi/Wy41QBE+0okGQt90s4SqjNf
8Ap2Z049Yj0m0aqhfJHakx1QmrxF7AWfhHJ2cqcJeQpOWPun8zJ7RKkI1Q5v
rvhf7m0ilqOobC0kO4/cPdlJGTt6capIT3GeqmSVKHYyeL3o/cyuFj7zLkqt
Er8/ctmE0XcgDy1lIh59GAw+jJZ4ZtEsTGGnRerwncxc0qcM2ixsoOoqMyiX
hYkPwuwszGTzrIi4oIwxN/1oqPcgDKJ9BULsLLp72O7MZ5zzgq3BiJ2wk+wu
K7e8jLSe7IAaiIXG2pDfUtJZWN40IV2yglJNB2F7qh1eYjtoP5h5Cdv9R2JY
bWsydRkw9JQ4iNmyO9Crr0xFHTLINGWsCmPZhEm0TUrfgfzsbEgB+Vyb1f7v
roqzmzTkyj91DY+pFXt9v1dJOyGhoFlt+lyv/EgRhNlZ2JGxkIjdDNaenrT7
vRIC0b4CQWu5s2Bto9MvRYSXjcBIs5T7bFyR0pMdUAeshlksp1AlHlnThMRj
txXdEyjYP8sFIrHxOOD5s33A1tls1Bmau/pGnXdDSNt7MiG5bokkqHR48/oR
iK3o7D2XffBMWwOmq2lo+9Xg2K2p8JoEC+NVjw3d3JJDEp8xKXMUsckrUxGk
z0DEo7O+W47RAdspcuAozf3+EedXwajqO8CJpxPn3sr3KFQG7K1zE0/LNGIs
m7Bud4Gj2d3Ht08fOe76kWuYJV7NXTtFvilvR1Fq17R0Coru50sa/wVArvyx
+j+4nJrU5Ujzs7cvmwAJTMPFT0lSBGF2FibGxSDxwjuITCfcex/iEe9Iu6HW
bP10plBnFgoRfxb8+t/vfD0rXLJGuWi/p+mAr25ydm85Gvs9ERErkOxBmK5t
LKRUCbd4T3ZALSRDY6h3nZT7xjKmCayortMZ+/AI//ku8XPwxnttBowUNu//
2D05HZyZ8lwbaEuF/d4b87Gd2MJfB9tMpcoSFEKdw8voR7gdeTFDqnFi5s4L
DtxHDa+jv5mcYg71Ov8uVuGNtU6QXCKS6Sqi7/rTHCclJZZdFO9DOiIeue8c
pG5LzNBy1u76yj8TDAYm8c8+sJhrdFhrv3tOFmsJQBSs371wfexu2HmYx9Zl
VtGLdwqWjQ8cHgp0Cqgd8pevfDMfSly9prm5Sc0Va8UhfnJ1ZPc1Sx9E5iHJ
lCRJEKbs25AgJkIgcet7eyO9O4EZe9yL3AzgEPmLkqeKa4GR1vRzJ7ByUqFo
vwcBX1YSS3gvI02WQNqIWPGeowqFlFTFFO3JDqgH5lJWC1kYkYjgvYwSXwE7
G0Qien/cQq0+jD3j0yvIy5Oxx//WZ6oxX/jk4y6DKhYnBVHn8OYqNPTmM/1n
zLXGLrt3ETVaebM69c+UTpGx61pIVDCUNQtjGTvyauPdmh45gA7ggV7PM25f
dGd9/vZgunYCOzJ4e26duUYiYgu3+t/S6VqG/RILmgKi4WITlp46Oe6gZhW9
BKRgWYFTTvEcPVOW3nOQD7mYpuAmszjQsMzvZFG6KUmSIMx2WBZ8Fhabd3Tl
oiGP/VLUea3UqWLuK9d1uZ/wjo3KRPs9CPjyQjyfushyZxYvBr694jlP7VEr
6hAn1pMdUBNay8KIzQf2VnSTToDpOVInXLhDM7nmu4AcBtV2uH7i+QnxjefR
6MuYjA0pahxetB+BinhDnsX8HcWMuFAqjB0bC4loHJPx1mVOyljneGiDzw2Q
LhrPoe/1cOipQ3R092kcJqtu3O+l/kbf54USBHXB7BAp/IvvPnQeruHW0J3c
nPmI9HRkL8g5kl7BcluRkodh2ZtdSZthJB/UbrM5ktJiNs8q15dJOCVJFYRZ
GrnCrGmJ+PyniDBd82993PUa1/xD2dbkutHAdpHXoY0V/PvXlIn2exDw5YVt
xqQT0bdCk4zNf27N7FGXwQt1f8R6sgNqQktZGJFYfXDNilZQCvGbJla/vZhp
1Ww8591HhYvR4sGrwTmZKRohqTFbP2ZuQkqHGocXOSUvVnmys+zuSf+RKE9b
mW5d1qQs6KSVrW1Sukxla/H2OXP6U/Wnrs0VmpHX74/SLcbKrpYBNqwG24L7
4cSb0HiTrqbVMVdKoTs71wtW8SKee/vrOatDoK1MYtp/RJN5ojVswYOUd/JY
HUk6JUkWhIkVvCfX5ihEd4K5p8ez+AERXyqVgyC6lHxVCpWJ9nsQ8GWGPrGi
EeHOnCEZC//FRpcJKamHKd6THVATmsnCUo8APsgQujG1j07yTcEQHVrMdG5i
/z2rV4GRbH0Rn7JbIvrlWZYgqvmSv1RnsRBUOLxoEUvRb527djElzXLcusRG
aLwT+f0EnLRSMIUaSqnoJ9enr2TdJPdrXWduTWv3sKAyYXj1Fl6GES98g00c
bJKIRHRi0KwnCxEnFqKliYRDQYRpn+e26+Nfk40/XM8v0HW7opZhmSe6zBY8
EpI2ns48yFzTFmmnJCmDMN1sRcJ3x4zhusV/vzRdUpt+bYlaFPQrd7mXuX+I
MtF+DwK+zKDDmwFruTQp2Bpsj8x7lv1/tCBLO0W94UR7sgOqQr4sLHdmmoVX
hEQgYo99V8+a0cdKYMvq1mNXdnsPO+EM71/ViwZ2HmW320uukzo2dR3OBen9
KVU4vEg/QnEFVySDFLHqk/zWZdcwYKZ+z4rAAgaWB8Q+innpj30xcS5j21ek
ZAL1IZLnjgKEw8zCCiyZ0qVZpUUnGBvgIqm96H/N5e5Fd1YFtdVIRCYsaHjB
iSRKWC+3U0WppyRJgzASmkpdHuuFsVlX7yGeeoMoaFNYh2Oh6OciX5lHdZZC
0X4PAr68oEWDWYpZb5dkNx59cGOwg7nnraglgXhPdkBVyJWFJTf9HzC0g3Ql
q7vzScSWQ19n5INyEc7Q/j4+/4uA60RdqktYguYUoniV3aJmMQjSryvUOLxI
NU5x6VRUHFuEGai0t25eGTnW+tHMpvBDTEoND3270+5IoTURLbikK77OIRLR
78Z7DxsMh3vHv+N9BAzIC8O/tUABVXzW0V5X0iaJeXwgGu5hB9nSUW6PN73w
1nA5IkMgkdvgSz4lSR2EE6tTo/SxAjflwN14ZNLeRde41lvG7/OPV0hTWInd
frQPjrNkt1LRfg8CvqxkCwlQ9in4LMVufP1JyOce628v4H6prCyheE92QFVI
spRNi1GQPFta+E9SZNUxwFzbZ96+fdg9FVxYKlZgs7QQnAn4vnA5Lp/vNLPf
wtAxeONBNC7svtsKO09k37CEkFFywZHd0+TlxZCI4r2FnJLEdVtoY3iRc8AS
MQo9MRRhFCtlFra16D7L6OQV5n2AkpZiQC6w252/gc3oKSixDANUDKKqnZfI
ZHpPSkkTJCKefqZTujh45FNo+nDIsaDM+mIzaG8V6w6sLLnVEXbQPsOh/kny
KUmGIMxIWDCj5Y/+5X1PWIn4swcZpX0K40m770lcQExDmsJK7fYj1VlcrQGU
ivZ7EPBlJU9bTEep0/x1OsiJGb/3Do7fdjnsQ30WyrRtPzgLsMjyLSXwZAdU
hSRL2fweJYmhfDRuTy9uiDiWRxVli2xVkXCfy9gQ698Ns7ZiSMQtLTQxvGiP
f4kaTtTp8mCf92eBHyhhFsYq7+Qtk1WQnRX8LONWaPx9kGUvklFRSFPf71Wf
LR3AFUSRO6eCSCTWQzf7WzEOJjVSP+W8DvHR1jBhaniiyTTXKCoPIgp0dcSt
ZV76KUmeIExsLt4dbadzK6zJesU1cX9uKfr8ZWwnEfslGl2av//VjbFzyN6g
qW3wL8FVgTcS0hRWcrcf+cocD3+VivZ7EPBl5VXQfkRIpOQNLzMCFurwZM+/
LDANVxD1ZmGp28nSN/SRE/cFH60K2U9jwHRXLBGukRmKdzFhMha+a+89TI2H
saX3k28nxw+L7HnXwPDyqeFE9jlF5acSZmGMt2oe9C5LsxDc+mGMsTXHVglD
D1AE2H0C6iKnt1Zjtnzw2c3rV4fPtKTWpdy6LKV+yvntbyAlVWLWGMLJXICG
teCQRh5Odq4yTEkyBuGC3TGFIO2hnT6ei0DWxSFNYaV0PnNfmeP5o2LRfg8C
vryseGxMWUR5wBovTQkrR1SPJzv6fmAarjjyqXOoC7TXtVS43p6xH8zs6dWN
BARu5yW2YunSPnKEFVUeKwtIwUyJxlUiilvpHVMxCj8S3rrEc//l4+QCw9Ax
eEvCmEMkoj57F1L5yTByZTQTQZttJZBYC/ucQ5aWzGLVcNg2cl3cirRcICVV
SrSGZTd4tetAmhtAjnau0k9J8gfhVC42+w3uzOzk5zA2d9oG7NSW3kvxW3pI
U1ipWhTkK3PedlAm2u9BwJedXO+GbAg0gVWZJ3sGMA1XB9WShaH7JCVmKGRb
WES9XBZqi7viszBEormEOJh0M5HEt+5ufOPlhsCeOGG8Do3RFRTgvQgoi6Lq
x8SSu9tQYvmhbpAiuiP2IBebNsmnJCWCsByg53QlsnK0EZtXJW35o/0eBPxq
RYWe7HtgGq4iqiQLYxRgFA/XggN7QdIq0KW0djUPMr+wNwBZIPuc+7Ywc0Pz
ty7qlquo8i0AkFO3uxtT5m7MVmqVcoZSL0gO23ptobBRMhPppyQlgrAMIPks
VuJ7oIWaiqnKcAcCfjWiSk92MA1XE5pfynIDbbooYaODBHbGHEAkVh8+WFjl
OT5UV7WyuqblAJHoL24ejTaklxLuLoHmb91l3ELflBWfpwOqB5EO4GvRKw76
aKZUE5Bq2ZlztNbwS2qkn5KUCMLSgzaFlUpVSF3+zBdhnqJuv1z4YUGoNohs
QMCvPtToyQ6m4SpD80tZbiDhusQdhWxRMvsjyP1DzOZZ5ffB1PZX5d/DuQVA
0Vtod9P/fvbkXbQTpeZvXVSmTLvScEDFgMho68/iK2Xzid0IjFDRg6vSuNpA
xo17UiP9lKREEJYe9JyuRC0KcmrGtDwjR6xOfVZKEPCrDTV6soNpuOrQ/FKW
I8g2VNF9QmLZ3ZW997rcT3I3qLDATj41nLWbNEwiittK30J0ubJol0wSzd+6
aHUBr0l5Oxr8e7i0fSoA8CT3hJZx5qWzDI3uVhEvfINN6SSp1THHedAkn5KU
CMKSgxZqlsjK0VOzTmc4Z/hFZWcqtFKCgF9dqNGTHUzDVYjml7IcQVL7IlMe
sREa78xuUDL0e6n+6LaxEC+RjdQ0cb6Go3eMtsk1je4v4YXsGGMd9hnRFU+a
v3WJN6HxpkKriKKkm2obB3wv5L06oBpBHtKChkdyfGT2REO4IK2iECt4Zr/b
eM4T5Z65Sj4lKRGEpQY53iqlEhOfdbTXZf6SUdJJtdFxMgsoMxDwqwoVerKD
abgq0fxSliNIADxoD24XvPkQ0RgdayOOqpLNmbFy/Exq15HvqzQK3Wuwz3k6
EQuOZybNeqtrgeMMVIwKuHV3H7mO1XGJ0hmI1xHvBy1YbcvwPdieAmQhd7Jj
6sEj8t9k9ImGBIK0SkB7xfI9PZRhSip/EJYY9HgrRY97eZ8RJdZm7B25vpUu
9zL9fYlnnt6D3MwCyg4E/OpBhZ7sYBquTphLWe0KBZeGWPacTd+ZBY+00vNd
3VFLlzkzFsj2Gtl8beI5ySY3Ax82lmklowayOz8FA05i2TvYnJn9nbOSWLQg
6s2azcL2iK3QeCsVqrEOZ7iYtBqR2Hg4YT9p1B3ssn8LMzIgG0QicsuaXgqX
4zgs2wdUYqGiTtCx+jDAt7pP+imp3EFYatCmsP0XisSreecZI9ZiOfVW5g+R
w8TdRdcxjKNZQPmBgF8lqNGTHUzDVQozCyuhraRtiMSKp58s02UrfBLxiN9x
1ozVW689WN1acHbUUWNBtwbHI3ifka+WVLpeolxVPaogPu/sMpJaQP2eldys
QSTWQzf7qZkHOzKIP5Ro9ie2A6N1ms/CUmwtfflb0uxet9+G52785cOpmx9a
zTWY+azDHxHvigoARaGbyuXvDtN0U1ju3FCYsakMU1JZg7DUMFaPVKrScmky
yiiuJGKPfWM9Ruzo8OTTN3QtKH0mmIh4+hvVXWoFAb8aUKEnu7pdAqsZVKlJ
p4RfZ1lJxsI45RWOGbtGbk5OBwOT+GcfWBjhjoiHb1iN1MxoGZsI/If3s3PN
ejLm81jkZ+olqs1znEisPrhmrU/dRmbrh+Twzkx5nEOd5GDWmG1XfUub0o3G
6wXH28h0rV2noT1y03v6U5s5FSAxQ9u5Mfe9QDDF3/3eO26nfcDSYkj9C/Pp
KzfvL0GDNlAedsKubkqzy9iHR2SsXMv2AWlRwihd7UBuK5uHv1sXGH0kn5LK
GYQlBm0K0zcfPWKgssZU6HN95Z8JZkem1tD+Pj7/C/Xd6YrNesvY3UDg3vWB
I5jxrHtRjdWICBDwKx4VerKDabhqocva01R+BR1pCH7XOdLX3ZwK8obmrr5R
590fonE09yQS6wvea8Nn2howrKH9ncuuwAqfc5btqPeCWdTUrGUSa2HfDfvA
r9oaanRYQ5ulb/jqLd9sVOINva3v7Y3Irqkmy5kYEPHorO/W1eE+S+quo5a/
zZ0W28Blx42v7s8/jUFFClBWiEQE76VW/kVtbkRCLxi0J2FEbD6wt5IVQuKV
BqWfksoThCUGbQpLLUefJzYeBzx/tg/YOpvJ0z1Dc6dtcMw9Fd5gBMOdjfA3
10f6ulJ/Y2ixDH1+f7mY9Zp6gIBfyajRkx1Mw1ULsfP4RjdaBWA671nR2q6k
ikjGQp+0Y5jR+vk8bGTJBEM3jNzYaRydVu8OLwBoksSqb5jqSNrP2VM82bod
zdVg0OoQeovzR17CucB+IMa1JXb7AUDdqNGTHUzD1QxVZI6cKxitztA6uLQJ
Ix52dpsgBZOPjGwUervCaAOADBCv5q6dIrfojDZXWI5cI709i5mGptTm7VQU
Oj9tHvQuQ7YgDbsPnYezhVRabBIEABo1erKDabi6IV7Nu94xI6cLWMt77uAz
dRcwANUGLRuFpmD/MrMKR7cAIA+Jp5PDR8nCxJYr0+uS73VQ3RPYsbGQhpIw
YmfR3UPWaqpWaVCTIJIC+qaxf2i7vhyodlToyQ6m4epnezXo6m+uza1wdaa2
/nF8+sdoDLJmQFESsWg44Lk20GZAdgoMHYM3Zlahfh4AZCWjcC7HoXPiZejr
O9+EtZPLEInovWFSTANSMGlBJQW01yQIAExU6MkOpuEagezqvX7J0oQsdnVU
36htYOSK/dq9RTgeA8pEYjVww35liO5ezh2ANXRfcH49G60eDwAAUJTMiVi1
V/8SsdA1UgceUjDJ2QzaWzPxXXNNggDARpWe7GAariV24y9/Cvq+cDkuD9hO
kjpLmftE80p0gHZ4NWM/SnvPkwJZoB8FAEqRWJke7zHqalvsD6pUjWL3CX66
XtV+W9oFaQrT93pk0+QEgHKhRk92MA0HAAAAAI2yvRr6f3f8SzL6h6kZYjX0
1Vf3Vey3pV2QpjBUWxsAtIs6PdnBNBwAAAAAAADIkBP2xk65FkFtCagM1OnJ
DqbhAAAAAAAAAAmx/neHtUnf0D10aw6qPYFKQp2e7GAaDgAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAABAlfD/AV10b+g=
     "], {{0, 113}, {1154, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{509.46666666666465`, Automatic},
   ImageSizeRaw->{1154, 113},
   PlotRange->{{0, 1154}, {0, 113}}]], "Input",ExpressionUUID->
  "d298393b-0075-4347-8144-364d6c8a1097"],
 "\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnV1MW2f+5492tdJenIvlkgskVpYlLiJFEUJaEKrMBSgREqBWCJFEyFTN
QpTJQKYbaEbFqf6BjhpX/47RvyXTqTWtlZm6M7EyE3c2bv54piEjyAZ34gis
1G0gA03cAgGCHGSC4bA+rxjw8XnOm89zjn8faUYzwS/P4/N73r7P7+V/vt7z
6v/+LwRBvPnfM//1amd/3S9+0Xnhtf+R+T+tP3/zdNfPT71x7Of/51TXqV/8
r9f/a+Yff575z8x/Iwj6f+8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAFDsbCfjfw9IEo4njW4oAAAAAAAAAAAWZzsR+bPk4eSvkcRLoxsK
AACgFelEoIuQpCOQMLqhAAAAAAAAAABYnHTEbZM8nDjcEbg0BgDAMoAsAwAA
AAAAAAAAHoAsAwBA0cHLMjZ3JG10WwAAAAAAAAAAAMRIBDpAlgEAwGqALAMA
AAAAAAAAgBkAWQYAAAsCsgwAAAAAAAAAAGYAZBlABtup+Tu/DzwAW8liY/5v
fwxOP4OjP2aALAMAAAAAAAAAgBkAWQZAZXMl6nVWd3mnn1NGNwUnqHTilqu+
xTX6A5z+cQJkGQAAAAAAAAAAzADIMgASW2uTH9SXnrwypYUmk3r4efcrhwfH
1/O9aC3irieI0srG4x3ZtDpsBEG2+Ga2xd+6/Z2vpZysbDy5+7aTrY5DtSNT
WyjNo1JLsa/9H73T0+ZgsmVn2vBGn/tqOL7Mn+/XZ/w/O7b7adTmjL/TXtUd
mAUBABtAlgEAAAAAAAAAwAyALANIw8oONb3BOS0OuOtx73EyY3Rt/vl8Eg+V
Tj5LJBLz09f6qkrYgmFk3YXPx6ZmE4kfV1N51aHt1OqT+NfDbcz7SEfvSPDO
9GxiNZVHyuHfOH/H21NP2pr7rvyFfg/DfPz+7WtuZ1VVm/vviXR6ZfxyHVnZ
F17KeuMW/Y8lxy7e/hFcifAAZBkAAAAAAAAAAMwAyDKAFNTaXXd9ecW5mwsa
KA7U5qOr7azKgnpefj4xWEvIegf3Vd/7msvtTm90ZRPtDRuJ2x+02csdvX/I
+RYq+cDrrG0839dhJwmyO5DY2xZqedLdTNp7AnMp9DYCugGyDAAAAAAAAAAA
ZgBkGUCCtainhSw5HXiKKG7kJf3I76wgON+Xs8FFlKCizXl/J/eWjkAC9Zuo
1PRvmqpd4UXEMzkTpUWWVPXfTKRF5SdqebS/gvb0IRq88QOuN9Ta+FB1SUn7
1Ueb4DJjOCDLAAAAAAAAAABgBkCWAfJBbca9zWRJtfte3jwwiGwmgr+oOX32
jTJWZGn1xlEcS6iNiaFyue4yqQcjTY2usUVEfYTTW6rfm1jLrxSxGW/Iw+7J
jRx/3XwaOF1CVJ4O5g3PAgoByDIAAAAAAAAAAJiBopJl0gvRwPvddXaCrGrt
G74eeZIzQQmVfPC7tz4cX0HKDmtxqIVwfw1Bvu6fe6nFh908V/tW6McH3oZS
RmSpHhhbRnrjrK+Zc5fp2h86lJv1R743alxfr6CKI88j7qMEUdrgfSiVfWZr
OfRmSZ6Wr48PHiKJ+isxcJgxGJBlAAAAAAAAAAAwA0UjyzCJQY4Qeyhz9Hjv
zL/IOj9vp+a+GmqqahqOJOFUnfk5ZnwtJFHSHdQgqwyt8LQwtYqeBrvYOCZb
R2Ae6b0vxgY4B5ujnugLyW+i09fUXBpDF9ZYLQVtFKQjblvJm6FlsQ9PRj2N
BFE7MPYM9dsBXQBZBgCAwpKaCXuH3e7Lg33dTPm/w68glv8DAAAAAHSo9UTk
+nD/G42VpQRB2hztPYOfZVWMBQxF8WagOGQZVpMhq16//PmtiUhkcuyG95Kz
imQznNQ4L/9hdGIyMjEaGOlrtJXXuW7lyS5STLyIjbxKEIe6g09U/xxbK2OD
9d2BOfqHTUbcDnkxSXTyXlaXqegKPpV48Wbc196MHr6UYTvubaA/vHZw4rlk
U16MXSxr9s2Kp595GR2uITTSsgDlgCwDAEBhSU4HPG63+2KXg12wDveEfjK6
TQAAAICVoNKLk77eV5v6vOFYIkkfrNLJxPSop9NO1nb7HoBfgfEo3gwUgyyT
ng101zp6/bFktlK1uRr/v+62w3v9ZyqahkZBk+HYmhqpLclRckg+dC7c2tN+
rkQRf14miJKeEFIU085SuK+SFdGOeKJ59cb1R77XD8ssGkU7wDDNqR4aX5N4
49bKbfepq9/ma8PL+56aEiKfRw1QADCSZahk9EpbQ194weB2AABQCDZmfSeY
BeuEbzZXEjJABTCdAgBQxFDpxC1XfYsr9Hh/Ig5qccxVRxBH3RHJK2agMMjf
DFhflqE2Z65dePc/c4st6eV4+LPBrgYbYXd0uLx/ewQaowDnQ5Kr5JBM1qKe
E8d9cb6SE+Nwwuoy+dxOsknFva1c+aau4KLoy6j0XKC75q3QgrxzOJUIODnX
qWMDNx6uqtXlWBGpsi+8pO5zADVgIstsrsaDg00VMkL2AAAwN/w9Qu1IDLR5
LYHpFACAooZKRoabX3WN/pBrY8tVSEG+8gb0Rv5mwPqyDKCMzKm2mySIsoEx
yWQueaELVbcc31Mzeis2Uisviml7LXyBTROcz7Zpt6jmc6GnslUVai7QyZft
JkhbXdfgJ4FwJP7Das6c0JKwFb3FqjUBhcFYWSadXHw8fScrWBLOEQBQJLCO
phqsngALTKcAAACZ08rS+NBrzSMPxKrYcs7/UnEFQIFQsBkAWQbIzfOJwVqC
KG/zP1blO7IZ87Z0jEzvta7FYBe3uUKsrCSkfyHEg4NSc4HeGpnhSzxU6tvf
tZUQByitbDrj+uiLcHQ+KcOFhq/o3eaHOtnGYZgsw8fEkTZHR7/H/5X3bBmc
IwCgaOBLB9qdgTlYAVQC0ykAAADD1trEezVNv5kWvTHmgxHAURMPlGwGQJYB
ckI99reVo9ewFmH9ka+75aCuy++00CorMSyHejjZpHkktp6jvYkbp6t7A3Ni
ErIkW8mYv5dLzXQQ0t727+G5F4jDihuJ5UMTG7ArNwrDZBkqtfpjYmE1xcX+
8cau6zkinUoZnUBHIdsbqZfWHSTmfS6Yg7PZbC2H3mQWq1ZvXPF6BHAYMZ3m
AUZ0MYPztKMesG3s2f7O19KYt6AJWwqWKO0LrxWwXYaC86hUtBkAWQbICbf7
UWMYdKaX0y3/EV0/MGI4zYeQkYCF9wTLnc6aeho618xU31YFlVqMTwS97r4O
hz2HNlP1dighK2UTqi8QoAOY5JbR/RxBpR5/NXS82fNNDrESf6i5wOuN3Z/9
c8VyidbN/VwwB2uzWYu465mVyh0BWV5rDJRlEEb0bpXJbIxegoCczAc6bAef
VT67wnraUQXYthmg1iPv1zR745vi5rd+z12dOSjVDow92/sH+dZuFrAelYo2
AyDLADl5MTZAe450+uc3pV+cE2o+eKbTPbmcyxaFykroQVI/hXrYslmlDd6H
e5MQpxdCb9Vw1be1Ip1MxCPhv/g8fa2VpfwkRlb0j+bsz342JgZp2QnKcBhI
UcgyVPKB11lpd16NK0uDZDxMTYG6ijrXLSuVwDP/c8EcjM1m+6G3obTI7isL
h1GyDNqIhqOriVBwUMV42lEB2LZJWJ0YbOkOPskjyjzydZYQREn7nmSeDNaV
ZXAelco2A7rLMlQ6+SxB80xOdg7AaNT6e6QXQheOitabXo+NNMuc1V9EPUfZ
t+yzcGrh5rkaNeFLUqR/mrzyBuc9U3ohvIZQmEoDXyNAJdaXZZjd1BGy6cNo
0tRRxJlV9WZ/lQ3HVVURVnkumIOr2XCZ0yCxjC4YIssgj2j26ArrvhlhNwyS
doXrtKMUsG3T8PK+p/aUf+6lyJ83VyaHm0iCrLs0Ku3Vj2jtZgHXUalsM6CT
LEOtJx7c8u0PBrE7Ot7y+G/HV5U6YAAFQ50sQy2P9leQB6X1g+QteJ3N1mLw
LPeJ2TW7qYVw/9H23erb+kB/Sw3z3WjJcECWMR6ryzLpH0Zdx0h7j46CpDjU
4sTv3O7LAz3OjpOt9CRf3RdeEHttev6mq/FQ3su4rWT0wybyiNP7IInToqoE
Q5+LKaDW/uk93eho+2BsMefIzGyx7n0x8tHViadSA9dYs9lOJb750jvU0+aw
0cnhe9yB+4vpbS7jIiSW0QcDZBkZIxqOruYF/aBanKsVZrZNnzHDfs+FrlYH
PSHYHG0974wE7s5Z9yqErnvCn32o5NQXrlONtCc/aXO0dvUNeS7/zEGSdufH
k4soLvq4yDKwGciB9rLMdmr+9kjXK/a60+7P/zMSf8LlaksnF2fvf/WZq9VO
Erbm/quTiwUXtbZnfC0kN34/soI6tJ2c/Pc6JPEDgX2Ju9XIMtTimKtzIBRP
iPNDaKD8oMaSl62o5wj7lrKLY1zy3a2VsUs1ORz2ENuZCA/9KjgvJj7veSk/
vkCWMQvWlmWS33o7SgjHW+GEIRvD7cT4px63+/J5ej6nyZ2Im2F1YtBBv0TC
08zgHmmENXqhKy/n/K+T+fYqz8YGapGXBmN+cCo1NzZyuoosc/R+OhZfTFHb
qaWpGwMt9a7rN3/dRDceEsvoQ8FlGVkGhtnRFZCBrIOqNeZ5k9r25sr0Dbez
hiTrez75Kvp4OUVlJuSF2Ohwh50kHef9sed7u7O5+vhfS1g5USiBTh5r44os
0+EGZP1gcGo2MR8b9XRw3g/2c8EE4qkWE1kGNgO50FiW2UpOf+qsaOj1iaku
VHrln59115JEaVX31elCC5vp5OKjCd+bDsYOyKrTI+OSEhzOLI8NVOcQWMjK
xpPdfYOX3Xm53Nea5cl0pNP/3Z7xvBbuK1Umy2ytTf665cyN/AODrxomp1wR
Z6uEkLOFWvnaVfOG75HSnJqZPpaLldveD7cbFC3PnfPVcGFqIBrKMlvJ2J8G
WqtKqt4YHv9J7oSvwzkiM8Q+qCeRMx3pCJ/xaVcpPcD6+OAhesIt6Q5KFK/f
jPva7YSJ/UzweS44w9uM2F6FS2tGlHFbUCkKbjas239m0dx/MZd+5HdWsEtU
ESeWUTVbSlJYWUbuiMbn6ArIReZBtehWKzxsm3oe85930KE6F4Mz+3IksP4S
xP6HQsf+nDF/9Y3Mca+RL3eytRr9wwDtJ0T31tHa2eMa/uSy006Q9k7/DNIl
NSayDGwGcqGlLMNoModODt/7SWIAbH7n7zxCyDAhTaGWJ93NnI9JSafyQ73h
8OcdDltz35UbE/EESg4f3pY475O6oTsr+97E7X6QC1jvtuobT4PTG5f6VbmY
OznKz25ZbaZsN+2T06wifInaiLgPo57ZuTJnJZ2BpygGC5WYjEczWYauvW7n
B9o+pzKUdmh9jqDW7rrry+TcjOjGxqT7MCO59ISWc79ie23sHWZxOpQ3VR0L
lZr+TRNJ2jVO310gMHouOMNvtMT2KluxEeZ6LFfFvdwU1mxSMR+9dJIVvcGn
+79uey18gUkQX7yJZVTOlpIUUpaRP6LxOLoCSpB7UC221QoD26aeT3tP0bfJ
YkVRqSfB7kN7a3NQL6PDte1+00/HdC3ajnw1RKjV6HArSZQ3e2MITxQPWQY2
AznRTpZhhrmjNziHcgai07TSuUfKm4YjhQ8EoxaC3SXcxkH6DhdTqPWJdw9x
nTjc5v6/MmKy0vOhfseuJpMzSxL1va+5TL5hJKdHTjag1ITd1VjQv0LIJV7W
7Pv2+eQHDc2/mVZe6CQV97aipvClfgz1ZkZfTX8YyVioeX9bfhcCQHe0kmWy
khpl5l/567vW54i1qKcFefHVFzrYmRuP3+f+Vai5QCejylS/H1lH+OG4JE7V
50JI8idOYPRccIbfaIntVTZmfSeYoSanjF3hzIZ9ypl9Q5c/x32csBPLE9Nn
bdTOlpIUUJZRMKIxOLoCCpF/UC2u1cpw204vhl1V9Nivc40tivzgmYfYzV4U
BRfYbd/qxGBzp/lFcjq+QErlpub87ZnOl55HcOnHQpaBzUBuNJNl1uPe42T1
wPWpf62kUHKFMK+nV+7j0p4VmsOdstmtw+viqa1xJhn1NDLtP+Ya/UHGuZP6
8fbFY/zGibQ7PxUJJWMjpGQNW2rz0dX2mktjKwg3ZJzsI0sI3a3QV/7mu0MN
J0emVRht5sDotBNEoycq+SGsb6QMAZbbOjb7Zs2+GJgYrWQZ6uX0lQZ2wNhP
eaefy32k2p4jqKcBugJixdthtOA7PeG3QKLrDrUeeZ8Js6w8HZxH+92ozbiX
9mWsQptGsAGn54IzUhstblqW62hRGLPhvyWz8+0N5fL8X4u464miFuTVzpaS
FEyWUTSiDT+6AopRcFAtqtXKYNsWyojkF3v5+YHxqGd7etgCi3J2YhlxuM5X
9oWXpD4QB1kGNgMiaCXL7AbUkPbXr82hOCCwyp5op3RFELLo9b3db8LT88v7
nprMxFqN6J7EITgBso+q/oPJNTG7ZYcMecQTRbXs1LS3rQZZl+aDCvNcte+H
P2gzwkzTyANV0YNc8hxJsYVKJ2656srIuqHbuVOFH2Rz3t9JoIdDArqgYW6Z
zdWZu6Evv44tISv22e3Q8hzBJkArrR+ZwsAlYyncV5lv3dmMeZvL6csEWUm5
OT9kc7mdYPVccIaf9sU2Wty0LH/yLITZ8OkH+T3/frYfehtKiXwxfcWAqtlS
kkLJMspGNMgy5kXRQbWIVitjbZu/x5eMhuaOtOxzfB5xt5jq0YiRnVhGHG5y
RLFhHGQZ2AyIoI0sw6Tp4A/MBHk2uIhwlOebbYy/ytrtAb6Csx6utnrDhA+U
VLm+3p8TJh8bT4PnK4SnJFXdnnMwa/Mj3XOzhfZkZFPZdX1BPjdTGxND5Wzj
m9SEL+0IlZXIulNnXztS139teiXn8N1YnPR2V5XZmt4L5/2t9sI6GqF7AQF6
YMFKTNwlFyYOfhKJZdYf+ejGyk+/xodnVrwzhhJgiAF4PReckcjgJ2wkFEye
+psNv0sUC32lEgEnKeuiAZBNYWQZpSMaZBnzouygWjyrlaG2TWdWYRJP7EYn
icAdaUsbvA834t7mmvcmRK+ezYNkYhkWbnktb/M/llqAMJBlYDMghjayDJcQ
lT0x209LVOHheT4xWGucvwpfttUoXUgVTF4Uebkl04u3h3aradu7fHGpJ856
QOXPvpJOLiVmouHfD7axstwR55U7M4lVcclkO7W6kEjMTo/9vr+ujGtMVf8X
0ZlEIvFjnvcxcDlbyBZPVGWZC7rAHGE/7Z9Zp5IPr7tetdmaej2/vzkWic0+
oQt4z8cjo35Pb5ONrO36KDwrq2QYu4KYz6gshvVkGS5uEZN0WHkTy/A1Echj
F2//KLux6/fc1bSPtUlCwvF6LjgjlcGPWdcUr8g6m81W1MNGPpPOQK4dDiSW
KQQFkWUUj2iQZcyL0oNqsaxWRto2t/MnEDID8AVby8+73c2vDY0vmeGhSEAn
lkGIW+C3ZOYIYoLNgCgaBTFRyQdXe4/ayKrWgd9HFhH9CoTIMkOcfrNT5pa3
+L4zh9LNQidmsdV47iMbK1MkS6iPQLYOR1cRbJVVrkR8tJiPXQ69WVrZeLJj
l5ONlSR50jcjYgOc6J150/GOfe8iSFvPTYnZZOOfntojzcP31tSOtKfB3t6s
yHfa7zrodfd1nWisZAaTzdHW885H/vCDBEqi0j2wc6MZXbCsheVkGS5QFKWk
UQHIk1iG2pzxd2ZmG7lpr3bhto5ki28G/3kZr+eCM8ix5A3euJLnrqvZCCG0
JbUjU7k2yPxFT/EmlikEhZBllI9okGXMi+KDapGsVkbatlAhRHo3x8symYm4
3n1X9UkBB+hzVrl0keWNGd9JJvlON0LMguGyDGwGxNGyQLZcslKFlA9N5Kxa
rivZBaYVPnpjoNPylKBLiFR6LtC9q8mgn5Xo0nI1BHlocBwu/5Bh50Y4oxmO
xWQZvtI00ppbAPi44P3rzlYy5u91lBG214bCyjSZnSzNvNUbV5VBSn9wey44
w9uM2MUfn+/rsHuS26htPwq86UFO3Ker2QjbFZHbPd7NPuuOaSUy8q4fdwM2
GfrLMmpGNMgy5kXxQbVIVisjbZt3TkB4OhsTg+X0S0u7rz8xYeHyXNBZEaS3
sZx/SHZx8DwYLsvAZkAcTGQZGTlJNIQvZmSOGVWAvqcuRXVB5DLW8t080un/
TkYSJLa+LVLBNYBhc2qkvhS1HDCgIxaTZfj8upiU9+Ljgkv3XOJsJMY/7LCT
pOO8P6auCAu3KNMR4njr5Zg9F5zhbYboCCRy/FnYR+36YNMXELXD0ZfIv6yO
ZiNkNsu9WeLd7LNi+tbHB4/0SmRCAGSivyyjZkSDLGNeVBxUi2K1MtS2l0M9
JWijXpggDN73aQdzxi8fnMgbhSKk8kNMbWG0LAObgTzgIssYEo7NeoOw4D+j
CjyfGHytN4SUv4dKPvA6+VLghL3tSjQpbzZmS9yas1iVAWwth9+uME2UsbWx
lizDrWJiPpOFho8Ltjt5U6eS34fcJ+xERZPrelxWLqbc8JcpmMsdmD0XnOFt
JvdOjFq7665nN2qCV/PLOf+pWhmxujv6mg13NMgV1ZueDXQz5x2idnDiOfNP
9MbyCKQb0hrdZRlVIxpkGfOi5qBaDKuVobbN1dbJ8p3I9aL0ytS1/qNsYIBl
yuHRiWXKbbaaPFe9G4nRS3TiUPuprMwM+TFYloHNQD6MlGVeRD1HecXAoMHO
lZlmME8cE5VOI02qm9/5OwVNpqzOdSuhwKmPmg+eriQq3g6Dw4wkTEVg1VWi
AE1QIcukF6LXh/taq+h8R3VdQ/7IogpvWC3OEUJS+jyJniTbsRy//YWn/w0m
exJpc7T3DH4Wji8rkqyEuGDayZBKPYkE3M4qW5XTHYhq5RzAJ3yTrLxgJLg9
F63Rsm38A6XvQPa7XzLXB0ePdzQxib1419nMdNrS6Y3Luq/R1WzWop4Wkiip
dt/LbhOVfBjob67vaH8leydDLYT7W/vDRaDKaDpbSn+bvrKMyhEt/+iK8/DX
HKw7q+agWgyrlbG2zSesq+gP5fqFqdRP0RtuZ12bK3DvnvcEmXUYp5bH3N2+
3CWY9UBjI99aDp2vvPyXW65j9e5/LB+cWtPPpq/9si4z+cpzUZZv7bAZ2IOe
mwE9ZBkqtRSfCHo/GOhpd9gY5dLmaO264PHfjq9mu1fxDnUGyjJ74pgaPVEL
3XFwFatZSHunf2ZT2WaJTU1TXu/5BjLM5GUzETxnJ9tGpi1kRSZGoSyTWRR8
3Y3Nrs/H43OJxON7IydLiLK6i39fVHrU0OIcIaxinf55GTGIPJsrUX9/YwWR
gyPOK3elj1Hr33iOubIqsvHXECWv9r13vrXycF33+4HIE03FSK6EvSrFQ3dw
ey4aonXbhAx+jN1Udnsn5tbSmcUlOR/96uOexnbX9YfJ9QcjTeUE8cpA+Md0
+qd7w50NQ3dWZLp36ms2qYefd9eS5LGBGw9X05nGJ2Lh3/bUNfZ+Hl3ZfBI6
V00QFc6r36aotZnrF+qVr7mmQfPZUhKdZRmVI1rW0RXn4a85+HdWjSxTDKuV
4ba9sTj5sdNeYm97NzA5u5LaZgrBzscj4cAn/9ZR7XC6r0eZcjPUyp2hujKi
pMs/t55avO/vfdXpixUkRYUevV4eG2juCy9RySl/b2Ndz8ehSHyeLhb7ZDZ2
d9T/697GCrKy/W3vnfmUrKEhy9phM5AL/TYD2soy1Nrs37xv0/cm9rruy76b
/5hmyw1nTGh6LOA5U1d91ic4WdHlhIScJ8omCg1anBXHVCKnthHeUM+nrpzc
LVnu/HRaVVhBejHsqiKb3ZMIqaSKFFa8qpSXugfQEUWyDJUIv9WUHevHR4k6
BidWkb85uZRgyaycX3o6OI81su7C57fvs2tqIrGwKmMZ5WUQJQFZvIOrKJKx
jZtPA2cOZ+eR2/7O11JOVjad6nN7gxPxJV2cw/hfHuf4IMyei2bo0DYu0Luk
9qM734994envanXY6ZJ8TWdcI3+OcAXvaC/04PBbHZk/2Rq6h79W4N6pu9mk
n00Hr7jOtlSSpZWNb/QPX+cbv0Ol5u743j3bVEnSJSn/FNMglA9vNJktJdF+
Os2DmhG9I+foivPw1xxTdFZVWIfVV6sdPGybSq/Gwz5336nMJEt/jqO1q29o
xB+OzifTe16WGPcOOB22ssqmHnfwoczUDcrQp9dbUyOvnOE8Rmh/lT+ODPV1
MeVrnT0D7pHf36T3XwqmPnRrh82AODptBjSTZbZT87dHumppR9amdwLTz3KN
+63kTHCg+We+OPNd3KNhIM8GFw2azLLjmGrkJBTCl2Tc1yVokWTdpdEEYsly
cajn095T9qq3Q+o/yopQyeiVtiO63hICMlEgy6QXQv2HnV/MZc//fL3FsoGx
F4gfk3kLubds/H5ec9jqZEy5dB0CZl1s88/LM7A9SypZ2XJ24Fduml8N0EuJ
MEe0eKLi1RfX77lrTsp0H9UCvqQC2RVcLPR3o2HN56JH2wT/+d0MfnqBv9lY
BI1mS0k0n07zoHxEsyAeXXEe/ppjls6qy7aB/7QDtq0jevWaTiyjS3oNRGuH
zYARaCPLcAU46AQmA8GZfLrQVjL6YXOLN75J7eb8IcSLZBWCrDA3K8Qx7dU2
7T2BOY3c9xhlpkITkcdaMLGQNQpT9wB6IV+WybEsChnXxTLGF4TFYBep4LBD
pb79XRstOZdWdX0YepDY69RCpVcfjfsvNjFxpmSLbyb30r/5NHC6rDPwtPCm
vf3Q28AI97UjhQsMl4UFn4tObeMX2QKUEcffbKwBtrOlGhSOaAGUoyvOw19z
TNRZdbIM/tMO2LZe6NdrJrFMvizHikGxdtgMGIQGsoygA5RU9d+UPpnS2W+O
D04sJgLdu2KboVrWdtzbwDXE7HFMtOrVtKvJoOflRoNam/lyqKXvK2yjZ41g
PXalq9v7/3TNc6gQ6ofQW8dshP6QVe2fRDG725Ary6QXgj1l+5Ol72q2eytB
FxRewZbpiplignPJYwPB78RdTLeSMX+vo4wgjrojz3P8PXP4qm7M/SfdeRrs
YsKZS94MYZlv3ILPRae2CbHkhcirj7vZWAJ8Z0s1KBzRuyAcXXEe/ppjps6q
rE2D+7QDtq0XOvaaSyyjcYNpEKwdNgNGoVaW2fXNIJs+jCLFT22vhX9Z7bn5
1W6+X6OLUwuSWoZD706IliHDnK3k9KdOu+Bwduzi7R9N2hNAG0CWIZBlGWrW
3+7YvwLuzgy7laALjpC4TNaOcT3uPU6Sx1yjP0j1fis59du2EvLQ4PiBJ0gX
fD9s2L0Vuw8kjMs8lh/rPRfd2sYFLOcvb6oVmJuNJcB3tlSDshGdjeTRFefh
rznm6qxKWQbzaQdsWyf07HV2YhmNkbR22AwYhypZRvBxyvzGx2VEAma+tOG1
1kOCV4fh2cuz45g0zVZXOKh04parTkihXN0bnMO2UB8A6I88WYaa87eXXdib
Az8rHzj5un/OKDc6viNyNlTU8mh/xSGn/xHaJJCcHmkjSy/sr3NBp/ZtGBh7
JrPBWiEsqUbV6cuP1Z6Lbm0TYskP94R+0rDBYg3D22ysAMazpRqUjOi9SBxd
cR7+mmO2zmoly+A57YBt64KuvdYtscyOpLXDZsBIVMgy1Npddz2rA+wv3i0B
X+OQw3j/IsFU6C1FLtEPd7KeBUHXLPM+KEjucQDAFlmyzNZy6M0DPvnJqKeR
m6L2/6mQCBsq9FmajuctbaZTeCF+B7MK1+yVx6n1yPvV9VdihhX5VdBxWWwk
Jj73uN3uywM9zo6OVof9lZFpGQuRxZ6Lfm0Tbj1O+GYLkJdMb7MBcJ4t1aDe
cvIfXXEe/ppjUGep9UTk+nD/G42VpZnNvM3R3jP4WTi+jHC6VCnLWG+12gfY
9kF07TU9zdo0zJ2+h/zWDpsBQ1EuyzD6mLLLkb2yDOkMJAwdhUzK1iO7DVIf
x5SaCXuHMxPoYF93R8fJVsfhV/Ssmre3/WV1ssu7A4D1kOktk/zh4fxeLZOO
imV9AQ91B58YN6TkC/509K6jNyQrhnF1YrBuj1tp5kM6azuNDEZQf8GXn2Q8
OELP0j1NNiUrkbWei45t4+O7C5R2T2+zAXCeLdWg/mo179EV5+GvOQZ0lkov
Tvp6X23q84ZjiSSd6y+dTEyPejrtZG23T/KmUitZxiqrVe5PANvOQt9ev4h6
OvrCC1o09CB5rR02A8aiVJahngY6+bLSZLtf3kDKLo1N2Nr9swYOQ1bTIOuH
/vDhST6qSnUcU3I6QOvaF7scrAeLnv5a6R9GXcf4lqNlXc6sX0tzP8gqpA4A
JkNBgexsqPWJdw9xo6onuCD9EYQK8n6w/A3V9uMvL/un5WnLTOz5rscsE5JQ
8c7YmoFJvwq1pHKLoNwUZ9Z6Ljq2Lb04fuVc7+VATNP886KYcye2H2o96u10
2NXMKhKQVa1DoxrdiBV0tlRD3kbpfHTFefhrTqE7y0Tx17e4Qo9T+76TWhxz
1YmmJN0Fc1mGp2CrVe5PANvOwsS9zmvtsBkwFoWyzIvYyKv8QlfW7Pte3vOb
9TULy6ShYcicnwlTRZoOl+bVDY3qCGzM+k4wn6ebvxa1ND7UKCT5tTs/nUYS
W5bCffVdwae6NAkAsEClLLM6MeiQNRtgfFhAYznUU8bHk9L18l4xuixdYZZU
oaqv3BRnRftcssCxbebcie1ne23snQo1cwoC4lVN5VLQ2VINeRul89FVGTgO
Md1Q2lkqGRluflUkPSk3w5f0hPLO76aQZQxcrcC2NQKLXqu09lxg0a99mHMz
oEyWeXnfU8P7yhCt3nhKzldur4UvCM4yJcbl3OY0GbLZPblMN4EuLsDHVh1M
XqSEpTBbbUonfy3q+bT3lHCdRtZ/MLmG9jVr4b4ykyblAwBE1Mkya7cHKli9
sxKxQCHGhwU06EIqTZ4oHcpMO0OWnvTNFCD4Nw+FWVL5YGfZKc6K9rlkgWPb
zLkTywGVTj5L6MePq/v9ChRT2NlSDXkbheXRFcchphvKOkvfTr7WPPJA7BzC
ZU044onmm+BNIcsYuFqBbWsEFr3WQZbBol/7MOdmQJEssxUbqRXWucPuyIa8
EKaIu55/c01/2JjkcHw+liOd/u/4ulkv5/yv854nqLuLfGxNjdTS4lWZLlmb
NhKht6v435GsuzSaQBwCW8uh82Vy484AwGSokWWypGP1mabU8iLqOapuQ4XI
UrjvKBNuuTHjO1lqfN7OgiypdBg1o23LLnlQtM8lGwzbZs6dmInBarZUg/oR
rcPRFcchph8KOru1NvFeTdNvpkVFRr42tMT1qBlkGSNXK7BtrcCh1zrIMlj0
ax/m3AwokWU25/2dgiojO94n29Om+v2IEYs4r8nsz46rbRwTH6tld2qfwyq9
eHuoTigwbj/lnUaO1KOeBLur5MadAYDZUCHLUD+Getkc2jjUZRNWltrBifzR
8SrJ7Lsa6cWLnqKrNdCl1VKQLPpcojNyT7Y6JIr2uWSDYdvMWXzBvOA1W6pB
/YjW4+iK4RDTD/mdpYvwNrrGFsU3tFyNMKktPeaVmBiMXK3AtrUCh17rIcvg
0K99mHMzoESWEdzhMpS3+R/LOeAziYC491YYk3M7PRvormQysVyN7xPY98Qx
nVdXtpuubsbIT3KDvKQ/OTn9qdMuZJRpHY6uov+MjPSkeZN2VNfvA3SA+iH0
1rHsWvR6QVa1fxLFbEOuXJahFoLdnHKsOvu3BhRM8Kf1dpv73lrk/Wosbr0L
ESW0FfUwR0oFWdmL9rlkg2HbChVcBjBgNluqQf2I1uPoiuEQ0w+5naWL8Nbk
r+TL1QirHRh7lvejVB5ULb9agW1rBQ691kOWwaFf+zDnZkCJLMOXuKI5yoaS
IbObGs4YVxm+bhFZN3R78eBpLTuOSWWdRz5WS3aQV36o9NNgb4WgyRwTyXIm
xvOI+6h8B0gUVNbvA3QAZBlCgSyTXgj2cOeMmuHoy2wj3krOfz9f8BJmXGi8
7sd/+hezuUNjg/UY5GrbyVpSO/3zm9IvV4KqrOzF+lyywbBtBTAbQAC72VIN
qke0HkdXDIeYfsjtbOZA0ZJ3o77+yEfXjC1pv/ooj3TDf7UWsoxVVyuwba3A
odd6yDI49Gsf5twMKJFl5gMdwlGvK5CQcebJulipPhcqeK5foZa0eNRPduHv
EjXBcXT6I9rdUKOiTlzr6CKAdWX8j3/E6YvJ8Xqh0nNfOEvkVtaTicL6fQCg
LUplmV2XuZL9iwsdANhQeOdMIZeXwqJSqDCr6i/6ekpfHYnpkA1LNrz+r00C
9pz8FOo5zEyl+bNB5qZYn0s2GLatAGYD8OA3W6pB9YjW7eiK1xDTD5mdfXnf
U3tKvHrF5srkcBOJmHpR5UHV8qsV2LZW4NBr3WQZvJ6mOTcDSmQZvsCQ7BG+
HvceZ/08ELRrrRE0GcLRH5oXbTW9lzjE6zI9wQWl2+3FYBcjAGmYWIZPicNS
3jQcScr6aC56S48IJgHF9fsAQFsUyjJZCaYOLC50BUAVc4JiMt/LaMWaarwH
4X8xXbzp5MMr28iV7LZTiW++9A71tDlsRGllU487cH8xTe1QqaXvpmKJXK6Z
L8YGyvgfNr0cD382eLalkiRtjvaewat35l9IzK/YPBdqceJ3XPzoyVaHPTP9
9oUXRD6NSs/fdDUeyhHDq0/bCo1ss6EjIRIPwn7Pha5WBy0x2BxtPe+MXI8k
Uph0CV9wnC3VoHZE63V0lTfEctpz4O6cCTyX5HV2O+5t4F9JJae+cJ1qrMyM
/cwE3trVN+S5/DMHSdqdH08uoviWqDuoWn+1wsO2rQAOvdZLljG6X3sx6WZA
iSzD12iTd+RhXTWYd9lP+2fyRTxQa//0nm50tH0wliPOiPmoxL0vRj66OvEU
9ct3NRl725VoXjUjyykXKY4p5+y6zeV+11AD4UQVlrI6161EWlZSH76atk7V
ujkU1+8DAG1RJstkhTHuX1zoEmblyB50VOpJ5MvfufveYDaKpZWNHT2uD/23
Hy4pmN75mm5Es29WRzGbW6nb/Xp+CTobE4PlrDoeklR4qdTc2MjpKrLM0fvp
WHwxRW2nlqZuDLTUu26Mf35GbN7jLxDLGgc/9nQ0tA1dm5xdpt+bGL/iPELY
Tw5PPsv3U2DzXLYT45963O7L51u5nGPNIzGxFZaPI9bm/ggzm9mRZzb0ffr0
DbezhrQ193m/ij5eppUqKrXy+H7I83q1NsqVhdFsttwHlYxeaWsQlxZzsrk6
czfI7cQyJlnX0T98PfJE3gNUO6L1O7oiDjHensn6nk84e6ZSC7HR4Q47STrO
+2P7vMQ3Vx//aynfTjKdnI9Foo+ULFtKkNVZOn+jjatzuh4baSbrB4NTs4n5
2Kinw86apf1cMIEYvKDuoGr91cpw29YPnI1c3zboIMsY/jSzMOlmQIksk5W2
F31rl54L9lYz76nsDszmPScJa72YpvFsbKBWhii3q8mQFb3Bp1JqRlaklUQc
k/jsev3mr5vo92uVWGa3C3Qv7J3+GVm+RoImc9DTWFuU1+8DAG1RJssIroAH
ovAytt15rD+Mcs7YSsavu5pqG/uuBO9ktomJxOzUneBHPQ5aqSUdb/oiP8m8
QuZbVXZxTOpOTAVMiT3ydXGf8IJCzfvbcj6Ig6/k3AiPOL0P9kju6Ud+J58G
LcdeVAjVz5Gki4tmldjV4/ZceC/3PO1ZHx88REoubTq0rUCgmw29LPrOVpGk
ve2D23tiHLaSsT/2N2Ysp9JcMTgFR5PZch+bq/HgYFOFrCMDlfw+5D5hJyqa
XJ+P0zsxenO2FPuru61h/5wggcoRrVdaVKQhRj2P+c876Jidi8GZtb2t30pG
P2zKjHt7T2Aua1NNBwGdEU9EkIx/3lPF7jtllftUjqz5ZHlsoJFPfru1Gv3D
AH3DTXfS0drZ4xr+5HJmM4q+W1Z1UC2C1cpQ29YRzI1cJ/RK+Wt0v/Zg1s2A
Elkm8/PHvM2MCEU0eqIob0zGfV3McX1/Tepc8HtLMU2D9+Ur43TyvGQJGmTT
h1EkN86sKC1xG0OZXbVxbt8VVRhhpe23UzKcUbdTibu+3npe0kF8XkpRXr8P
ALRFmSwjJM7aV0eS2ox7WxqGo9JZyplCaRWNB3Nx7wYhys7UrSrXHzL0vots
9xtRHu8gFO9wKBUOmYr56F81p+S+vRa+wPiwltSOTB2YNPmFJufjoL73NWe+
v7zF9534go7Zc9mYdB9mJBfRu6HttbF3mMVJZUJ7+W0rEMhmw6+qOZL/C57P
SiqeFBXqZ0uBdHLx8fSdG95LTu6IhHpkoNKJ0aGmCoKs7/VP7VVgqPST691l
x71x9Gz0Kke0TkWEEYaYsEusejuUM48KF55PVvSPLnMfRV+w1op/cvYFJT1N
5i94pA1y5hPa/aMj32OiVqPDrSRR3uyNIXjMqDmoFsNqZZxt6wnuRq4XOhXI
Nrxf2Zh2M6BMltnZWg6/zezuSqrd96TWvI3E6KU6kkANvcmOoMz53ZwvH8Kv
lC1oVJwPPkWci4TpkRD1yEKaXTVJLLM+4z8taDJoucvoNqRW/jV95y9X3m6v
5BUZmv21EjRGRf0+ANAWZbLM8tgA69S3N5k5rbWiXf6uf+Opd/QG53KHXy7c
PMeWUdt3aymFjElPOU+DXUewydSNGA65FvW0MEpElz/H7ylMxbluOviFRsRv
hD9ytvnnxZ86Vs+FzrRAN6as2fd97ibTPgzMuq1ZGUSsbGYH2WzSC6F+5odo
GJpY3v9DbM/4j9uZ1fby+AqE4uZB9WzJvpyrEUPaHB39Hv9X3rNlyLIMtXJn
iC6CcDA4ndqcuXa6qlRu9QF1I1qPoyvKEEsvhl1VdLPrXGOLIj97ZkHsZkVb
PuHP6sRgc6f4HpXfzgnkCY3UChnzCTXra5YKyedyH5WeR4ipV3NQLYbVyijb
1hfMjVw39JBlcOhXNqbdDCiUZTLz3dL4UCMzw5y8MiXu95V+Nn3tl4wmU9E0
NIqSDoWfOsQ0DWTJN1uTIZvdkwd+8Dzwnt70W3Oof4izq/oBvrUyfrluV1cp
c3RddOdnsK+r4ziTzuIgejuxFObuGABQUCbLCO4EWQX1qOdTV15vuPh3sf1u
FptPA6dL890XvIiNvMoOxoqB2zJc6bgZSc8hTLu67bv1Ng4+HJJ0BhKiPyZ9
Kd/MTI+lvaFc8/taxF0vti7zC42I8C5E4ue3H4yeC3/sEl13qPXI+8wpuvJ0
MM/mXY+2FQoks9mhlkf7GXW0pDOQsx4klUrEHhQs1YB5UTlb8u9Irf6YWFjl
f20ZlXypp6Fz1XRYd3dgbv/e8kXUc5Td98gsTKFmROtwdEUYYoI957+q5n9Y
7u6Yjnw5/HY4z4Fl/Z67OsuTQONDXC5kzCfZiWXE4fqMEoCg4qBaFKuVMbat
O1gbuX7oIMtg0a8szLsZUCzLZEh9e42NjrF3Do/NHUiHs7ka/8+PumrpF9he
G/zyO7QIX6mjvZC9REInz3YykcxmcxA+LyL9UE/6ZrJbgjy7apBwYCHcV51L
YFGE7aRX37Jlqur3AYCmKC2QzYU92ttGxucSifn4P/yutrruq9NIkYP0ECAr
W84O/n5CxKuNd2mQOz/wkZV6ZW2i1ifePaRvmTY5cOGQ+dPH8UnGxJxUeQfU
XKcVQcQQ6TJft0JqNsPnuUilDuBDj7Urg4iZzewgmo1QEfJIb+hHXByuTYqq
2VLkI1FlGd5nm8wZpiRcackVIdWMaM2PrihDTLBnqchEbrfP/rDPI+4Wqeie
rWTsTwOtVSRZ1TpwNfjRCaW1lRGRNZ9kJ5YRhzMmlOOnioNqUaxWhth2AcDZ
yPVDc1kGk35lYd7NgBpZJkP6p8jVC410lq3SyqYzro981wIZ/uQbefd8KxMi
TNY43dejSPXpWPijvZjqwv3UUollaNc01stEfiFpml3thQ7UGhrPSqCGOrui
JX/GE/nF+3ZU1+/DoTAZYB2UyjI7zLTm/1VXnZ2e1lr7hq8zxo/0Ru5Ekc8Z
hh8mMsu0satevmxX6khGPY0aVedRD1pn+bVArNlUIuCk5/CcUQz8BjV3BjNq
I+I+zD7IruCi+qYqB/m5SCSWWX/ko7NCyo2e06ZtBQLtWQg3yxi13Mwoni3F
Pg9RlhFkRpFbTvpmcHYqOrsic/pXM6I1P7oiDDHBnkukypFzu316PtzI7G9r
3ptYQ1fP6PVU5xOrnPlEMrEMC7falrf5H0sZpeKDapGsVkbYdqHBzMh1RHNZ
BpN+CZh5M6BSlqGh0qvxsYDX3Zc5T7P+KWwi9P+4evPuzCpicToeiXS+wvwj
GR3JptdGjZzKxUYi/H4bFw2UdYBCnV3FA/zxRlnxvh1V9fuwKUwGWAcVsoxi
hEk+jyq7K93InHU5D2R96g+yYjIuBdQ4Z8X81YKEqHARJ1UhmLTeHTmgkPG6
vUgGMz4qGSUxBR7PJW9iGb4OC3ns4m3troTwspkdRLPhqzNI5GEAjAJNluF3
3XpstJSPaK2PrghDbNeeJQsfc7t9ovy829382tD4kpzeZdbTM/omjpAzn9CJ
ZRC8svlZUdcgpiJZrQyw7YKDl5HridayDC79EjDzZkADWUZLpHJS8fOPcUW4
kGfXAmSO0h6lxft2lNfvw6owGWAdjJBldtKL4x86q8psjW8H4iIzqkJvmR0h
L40eue7Z1IjaVI5TD7d1rB0Yeyb+Iv755q5bsbMbiJpTP+cWPpFbVCH9/v4I
1pzg8FzyJJahNmf8nXZSfv0vrdpWKJDMZlcWLejEACCDJssIYeZHPVHNQ7MV
j2iNj64oQ0yGPfOyDEGU1bvvrsnuWnNX8Kms98hCznxCJ5Ypl37lxozvJOO0
3y1eBFxA6UG1WFYrA2y74GBl5LqisSyDTb94TL0ZwEuWQU4sY5gohzy7apBY
puAoL963o7B+H26FyQDrYIgsI43S3DI0nLyZO5eCGuhdbgkuDn58yoj6K7F8
KVCEqVhkfuA9l7L085XIyLt+VgrjFr6cGeqozdgVJjtYdjHZfGDwXPjpd79R
bSVj/l5HGWF7bSispSaDmc3sIJuNcLGif2pHQBFIssyuXyJbBGpjMfrn4f4O
h40kyMrGjt5B718jYtHWCCgd0doeXZGGmAx73pgYLGeO/t3Xn8j1Iae3cK16
XjXKmk/oEmDSCzuXzRVxGld2UC2e1coA2y40eBm5rmgry+DTLxaTbwbwkmWk
csZyAURZicS3HwXe9IwVrool6uyaFcKQNbtijYrifTvK6vfhV5gMsA54yjL8
/R1BHhocl7/8P4+4j9LZrtz3NN06sIVu9bh3lg9XxLkiT+VW9nUbE0Pl4osX
756a5de9Pj54pJdLv8DNV7neSy1PDDHKWU7vvtwY/Vyy83rt/utGYvzDDjtJ
Os77Y+LVEvVuW2FANRshPabkToxKJ+7+MWSCldtiIMkyi8EuLvVfVyDxbNp7
pqnnt+FYIpmmdtLJROyWp+MIQdb3+qfk5xVkUTaitT26og0xVHvO+mXlL4nU
QrD7yLsTyoUuSeTMJ8w2u3xwIq9riJBNC3EaV3RQLaLVygjbLix4Gbm+aCvL
4NMvBrNvBrCSZQT3/o5AIsefhWjiXWWAdp2qHY6+LJhEhzi7ZsmG2bMrvqgq
3rejqH4fjoXJAOuApSwjVGPMLX5KQyVunLaTRMnpwFOZabvywA5PLJKecUWc
yabfTEtmlOKW1Fyp19OzgW4mR+LuX+nl48iuaMxeARwUmanU9G8UpGEx9rnw
06/dye9DqOT3IfcJO1HR5LoeV1EWR33bCoIcs6GeBLsPSVWJzWzD/u5ua+j0
f6fd4wSQQJFleIMniPKBa9d/2eK6tT+F4Gbc124niENtV/6pTJlRNKI1Pboi
DjFEe16ZutZ/lJWy5Fej2HwaOHNEyT0CMnLmEzqxTLnNVvN+RPQEvZEYvUTX
4bKf8k4jKtIKDqpFtVoZYdsFBS8j1xlNZRmM+rVjhc0ATrLM7lKbS5ah1u66
61nVRghxejnnP1XruV/QLDNIs6vgbbhvdsUWNcX7dhTV78OyMBlgHTCUZZLT
I22MzVd2B2aVNoq9BCyr93yj1f6B3uWKJssqLNw1R51rbBGhLayD3/5bPyr5
MNDfXN/R/kr20kYthPtb+8PCTMyu3fscvzPr7y1XXZmiNCwGPhch+JeefqnU
k0jA7ayyVTndgahe9wEY2cyOXLPhk+1U9Idy/jzp5fjoR13VTf2Bh0p9LQDl
oMgyu3nTSw5XHhvK5S8tBHcgWsVBFIxoLY+uyENMwp6p1E/RG25nXZsrcO+e
9wS9APHpAanlMXe3L3fN02w2Y96WTq0jNPc2UsZ8srUcOl95+S+3XMfq3f9Y
PhiNlX42fe2XdSQh00tQ/kG1uFYrQ2y7gOBl5HqjpSyDU78ssRnASJYR0okT
ROn5fS4ZTCrao8c7mko5t1XmB9R/HOVCzeyKK6qK9+0oqd+HZ2EywDrgJsvw
1XAO5tOWS+rBSFO5Yn+bgw1j4oIRijjoztbK2KUqoqTK9fUK4u+Tevh5dy1J
Hhu48XA1TdHhC+Hf9tQ19n4eXdl8EjpXTRAVzqvfpqi1mesX6jv9M9mBxmxi
K/Jo/7XoYmqbSi3EMusvna75l/7oMyUmY9hz4YN/S17te+98a+Xhuu73A5En
etavw8dmdpSYzc7G4uTHTnuJreniF5NzdORL5oyTXJiN3R31/7q3sbaxz/u3
WZkpUQGNkCfLEKX1I1O5LzGFu6RmbzxvhgFRZI9oDY+usoYYZ8/2tncDk7Mr
tINxOrk0H4+EA5/8W0e1w+m+Hl2krzKplTtDmYM83aP11OJ9f++rTl9Mqm+p
OX/3YbS8JUqR1dnlsYHmvvASlZzy9zbW9XwcisTnExme8OO3gqxsf9t7Z16e
o7Xcg2qxrVZG2XZhwM3I9UZDWQarflliM4CPLCOk82X2l5Xd3om5tTT9+8xH
v/q4p7Hddf1hcp2ZSYhXBsI/ptM/3RvubBi6g/zja4ea2RVLVBXv21FSvw/T
wmSAdcBKluEvttRrMsynbT662l5C2k/f0OJ64kXUc5QgGj1Rg5cAzh+y6pK8
XGHpZ9PBK66zLZVkaWXjG/3D14VUn1Rq7o7v3bNNlSRZ1Trwp9jBWB5qPRG5
Ptz/RmNlKWFztPW8+9lXDxLKoyYNei7b3/laysnKplN9bm9wIr6kpx4jt236
o9BsMkNyNR72uftOZeyDXpsqG090ZX7AwN+j82vGTxhFDFIQE79jEd2T0LAZ
DwgVZTHljmgNj65yh9g+e7Y7Wrv6hkb84eh8ck9VzHRi3DvgdNjKKpt63EHJ
K2AqPRforu4NaCM1iyGns1tTI6+c4W5m08vx238cGerr6qBx9gy4R35/k54C
Fczh8g6qxbdaGWjbeoOfkeuOhrIMRv2yyGYAH1mGc9goqf3ozvdjX3j6u1od
dvr3aTrjGvkzP3fREbLB4bc6Mn+yNXQPf70/oLhgqJldsUNd8b4dJfX7MC1M
BlgHjGSZrLrz36xoM2VtPA2er1AVDCU07rG/rZw4pGumO5RmLE+6m0mydTi6
amaZ1nLPJSf4tM0iZgPsgpTyd7fWc5d47WP2ICm+M0FC1ojW7uiKxxCjktEr
bQ29wTl9l1A5naUjJnSpxCrnoGqRaaeobVsAQyPXH+1kGXz6ZZFRiY8sI8S5
iBT6AXREXfG+HSX1+zAtTAZYB2xkGTbllJIA8Lywa5C9yxdXN3XTpyBlZaE0
JL0YdlUR1bpvjQqApZ6LCLi0zUJmA/AgyTJCeQgkWUbdIiBjRGt3dMViiKUT
wYFuDdw7Jb8HvbNMYpl8+TmVNwL5oGqhaad4bVsAQyMvANrJMrj0y0KjEhdZ
ho9zIbvFF1lAJ9QV79tRVL8Pz8JkgHXAQ5ZJ/zDqOkbKqAch+8NL6i6NJlTs
Urceel/r8c8YuKhuJac/ddortQjvwgOLPBdxsGib5cwGYECSZajvfc1lBZJl
dtBHtHZHVyyGWKGQ0VkusYwOjUA8qFpu2gHbLgx49Vo7WQaLfllrVGIiywiJ
ZXTxTgSkUFW8b0dJ/T48C5MB1gEDWSafJvMs4vtdeF71pR+7p2r6MGqCYMmc
sFl3aiyyngqY/rlgjkXNBkCUZXbWIm7GCZc46om+EHmNJkFMQrNQRvSuEJSN
4Q6b1iE7sYxa5gMdtoPPKq/VWXTaAdu2Pgqs3SxYblRiIstwiWXyH9IB/VBZ
XkpB/T4sC5MB1sFoWYZ6PnXlZKnYJRQdGHham+1l+lnUP9DpmcTkGkYe1Nz1
X/R4wo8LkKa20Jj6uWCOhc2m6EGTZdgtB5E37J0vEKlVOkrpEQ1HV33RNLGM
/IOqhacdsG2LY11ZxnqjEgtZRkgsI5LbBCgAKstLKanfh19hMsA6GCrLMMOh
QtwxmK44b4cNDQAAwB7QZJmdnc2Yt7mcIEpqPPdf5nyBkBNPcYFsAC/oUry2
gTEx7ygAAADTg4UsIxRQPuGbBWcZ41BZXkpJ/T7MCpMB1sE4WYbWZLqqnd7o
Su7YOyr1bNp3qqQjkChsuwAAADAHVZbZ2VoZu1SVeeGhfxtbO7gh2VqbeK+a
EWXck8sgyliCF1FPR194wehmAAAA6AYWsszTYFcF3YrakRgE4gMAoAFGyTKp
uUCP/aCz7wHKBydAgwYAAMgGWZbh68gQZXWuW4l0tvTCB1ATjv7QPNzvAAAA
AOYAC1kmvTh+5Vzv5UBMh2IlAAAUI4bIMhuJ0Ut1JIIoo0kWSgAAALOTTi4l
WGZjd7/0dBxhp0iy7sLnt+/H59k/Lazm9LxN/zTp/VkVWVrV9WEoOsO8cib6
1cc9jjLCfsJ9+wloMgAAAIBpwEKWAQAA0BYjZBn+oheBXFXPAAAAio3MLpSs
bDzZIc5rDlud+B51czV+2++5cKqRiYTOfNSpfrfvb/FVqN8IAAAAmAqQZQAA
sCBGV2ICAAAAAAAAAABAAWQZAAAsCMgyAAAAAAAAAACYAZBlAACwICDLAAAA
AAAAAABgBkCWAQDAgoAsAwAAAAAAAACAGQBZBgAACwKyDAAAAAAAAAAAZgBk
GQAALAjIMgAAAAAAAAAAmAGQZQAAsCAgywAAAAAAAAAAYAZAlgEAwIKALAMA
AAAAAAAAgBkAWQYAAAsCsgwAAAAAAAAAAGYAZBkAACwIyDIAAAAAAAAAAJgB
kGUAALAgIMsAAAAAAAAAAGAGQJYBAMCCgCwDAAAAAAAAAIAZAFkGAAALArIM
AAAAAAAAAABmAGQZAAAsCMgyAAAAAAAAAACYAZBlAACwICDLAAAAAAAAAABg
BkCWAQDAgvCyTH46AgmjGwoAAAAAAAAAgMVJR9w2ycMJyDIAAFgJkGUAAAAA
AAAAAMADkGUAACg6tpPxvwckCcdh4gMAAAAAAAAAQF+2E5E/Sx5O/hpJvDS6
oQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANrw/wGNudiM
     "], {{0, 110}, {1501, 0}}, {0, 
     255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{560.1333333333325, Automatic},
   ImageSizeRaw->{1501, 110},
   PlotRange->{{0, 1501}, {0, 110}}]], "Input",ExpressionUUID->
  "a7e4451a-a19c-44ba-b196-da8a0308e36a"]
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.551726509418762*^9, 3.55172651497108*^9}, {3.55172724701795*^9, 
   3.551727256939518*^9}, {3.551740442654239*^9, 3.551740446534461*^9}, {
   3.5517456641776905`*^9, 3.5517456679599066`*^9}, {3.5517550060720167`*^9, 
   3.5517550152525415`*^9}, {3.738588447836997*^9, 3.73858845417936*^9}, {
   3.739026580352948*^9, 3.7390265955748186`*^9}, {3.7608161947106695`*^9, 
   3.760816198633339*^9}, 3.760964245330805*^9, {3.7609642833925004`*^9, 
   3.760964375100518*^9}, {3.7609808204315023`*^9, 3.7609808628119802`*^9}, {
   3.761321707809667*^9, 3.7613217437286863`*^9}, {3.7661630556591167`*^9, 
   3.7661630763464766`*^9}},ExpressionUUID->"f8fc6527-d844-4faa-aa47-\
5379d276b51b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Z0", "[", "Rep", "]"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"I", " ", 
           FractionBox["1", "2"], 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"\[Gamma]down", "[", "nu", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
              RowBox[{
               RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", 
                RowBox[{"nu", ",", "mu"}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", 
          
          RowBox[{"I", " ", 
           FractionBox["1", "16"], 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"CommuteGammastdowndown", "[", 
                  RowBox[{"ap", ",", "bt"}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
                RowBox[{
                 RowBox[{"CommuteGamma", "[", 
                  RowBox[{"ap", ",", "bt"}], "]"}], ".", 
                 RowBox[{"\[Gamma]", "[", "mu", "]"}]}]}], ")"}], "[", 
              RowBox[{"[", 
               RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Lambda]", "[", "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"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7609643847744884`*^9, 3.7609647103138795`*^9}, {
   3.760964758346478*^9, 3.7609648326262712`*^9}, {3.76097892907094*^9, 
   3.7609789318506594`*^9}, {3.760979273412134*^9, 3.7609792737026324`*^9}, {
   3.760979428846602*^9, 3.7609794325460186`*^9}, {3.760980876912422*^9, 
   3.760980878432088*^9}, 3.7609809246638565`*^9, {3.7613217598632727`*^9, 
   3.7613217607680097`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"4274ee51-f776-44e8-a7c2-f96525d83525"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"AlgebraDD", "[", 
        RowBox[{
         RowBox[{"Da", "[", "ai", "]"}], ",", 
         RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "ci", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Closure", "[", 
         RowBox[{"ai", ",", "bi"}], "]"}], "[", 
        RowBox[{
         RowBox[{"\[Lambda]", "[", "ci", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ",", 
       
       RowBox[{"{", 
        RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", " ", 
     RowBox[{"Z0", "[", "Rep", "]"}]}]}], ")"}], "//", "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.7390265990390167`*^9, 
   3.7390266026382227`*^9}, {3.760964774900346*^9, 3.7609647842051296`*^9}, {
   3.760964936938793*^9, 3.760964937725939*^9}, {3.760978935721122*^9, 
   3.7609789390416646`*^9}, {3.7609792776018906`*^9, 
   3.7609792779206696`*^9}, {3.7609794431470985`*^9, 
   3.7609794451671524`*^9}, {3.760980885962554*^9, 3.7609808881028013`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"0c2d19a2-6b8b-4a03-842b-36835efdad3a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.761321766217181*^9, 3.7613300704311495`*^9, 
  3.765634988388878*^9, 3.7657384848370476`*^9, 3.7661630019025507`*^9, 
  3.7689306771628656`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"6d9c6236-4693-417a-ae22-a9bfd562b6db"]
}, 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[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvW9MG3e+/2vdex/cB/Pg+iEPkLiyLPEgUoQsSz9QtLIfECVCgqgVQqS5
lomaC2hPDnB6A7+uAqk2kKPG1WlA25juZrSNxTlxdjNKW6eLtwenhaxwtrit
o2ClTgP9mQa3gQBBDrKDYXI9M/bMd8b/ZuwZM7Y/L+kcbVtjj7+eP5/39/P5
vD//9+m+N/7f/02j0bzzfyb+3xtdQ+Z/+7eud9/8vxL/0P6v7/R2/+uZt4//
6/93pvvMv/2P0/974l9+lPi//+f/0Gio//0aAAAAAKqaWHj+425jTeKZiB3D
g3sHfTgAIJn97bn36hNnsKbW1O8MROAkBgAAAAAAACQRC89cNGMamrrWCV+E
POgjAgDpkGtfXTDX0qcxprd+sgjKCAAAAAAAABAJ+WLRcdaY1ES15pEvw3EQ
RUCZQsbDX46AMgIAAAAAAAAkkdBE+Bm9BjQRUDGQ8RDRo8dAGQEAAAAAAADi
iIXd541JTZQIIKeCUdBEQAWwF1n8xArKCAAAAAAAAMgP2k+kwcyX5zchdAQq
hvja7Fjq9NYah6YhDQoAAAAAAACkgW6nazT6PiIUPehDAgB5iQQd3WyBaLPt
/jYIIwAAAAAAAICDjIenh4zaVKLo+IXZXyBgBCqQ+Ip7yJQ8zzUNXc7Huwd9
RAAAAAAAAIBaiAYc1oZUrAh23EAlQ27ftzXXpnYA2mwLG3CyAwAAAAAAAK/J
jQVbW6p4TqPtnHqyC3EiUMGQ0cWPW9kz3jjiWYsf9CEBAAAAAAAAB8ve5tzF
lPUctBTlhNxeujPW2vj7ue39gz6U6mB7drjxzZHbjxTIXUZ+wC1szai+hwiB
/QIAAAAAAEAVQz6bHqhn980NPcQy7JtnJr46P9Glx46PzPwMS1QqGIeEwx22
r+R3jdsNOjr17HZApyMITUYAAAAAAABVCrnqHmjUwJ55XuI/z4wcx5TXROTa
15daD+lP3wpBPoohOVxYibHC/FI6bZfjyY6s7w8AAAAAAACUBfFn7qF6DYSF
+UhG5g1W/IGyThTk2tyImfotat71VEydXnxzyfu3Kfulwe63Wgw1lPw2tJzq
HrLhLu/SJk9jks8XJixNw7PbgndI9r4p4acdWbR3QFcdAAAAAABANUNufj3C
OnJr6lrtD6CnKBOxVde5eg1W3+9aVTaVtrftfT+VuutyruQr6dr7wfFGPSUx
LFk41WLAMN3JG8uiBFYs9Pk7xsTrTW9meh9Dr2tF6pcno099hM1qTEghvbn7
wlXHZx7vgs/nW5hzE44/DFuaEkrH1O/wrcXoVzPas+Yo/ijD8e4+dnY1KFHk
SW7PjzWyVwGU0gEAAAAAAFQZ5IZ37CibKdI0vu/d3jvoY1IhZPSHP3ckoub6
IfczhTuKdr4dZ12jNSabL5Lv0DYCX35KELec+H8Mth/W8KgxtP/bmN1xi7jt
8op00NiLBL9OqRUOzNBxbnQcd/7NF45J+TKJd7s90lqfWLjWkZu+8E4mSbW7
uUgkXoOZhqdXXoRnLpqpD262+YTJIubbxkNEjx7TYO0T/i1Z1Sk/Z6ofcIVB
GAEAAAAAAFQJ5G4Q5yy5NY0D7lUoHspA9IG9tU6jKSRXIhFeNVdCTXS7VsX/
Mbnh7q/hqiEbx+YLLzbbfWhvpt8La+533A9HC6jliyU1ju7Nsb//FM15JGTE
N9Fahx0x/YbJ2OSqHoyGnN1a6rg+XJBXwu8G8LY6VgjWD83AHCMAAAAAAICq
gAwRXdwGOdaGB6GlIgM7QfwkVor1IXefTHWylVy0tDlifygh9Cd/dLTVFvi3
Gd+qcHOJ+NrsmBkTPyaVp9C1fe6NHK9NqlTZCz7JHd8Hjdz1cGLcnzFjBQAA
AAAAAFQS/EFFmqYhzzMQRemQq0SXtiTrE3/itNZrO//jT79rYn+V2uG5lxLe
YmNumIvr84iLXDD9TQW38JC7S84uPSatSYd86uo5xHzpNsePOZd6b8NzntLz
stuD8DcKtF0EZE8BAAAAAAAqHF7JEKSKsvHCZztGq8YJ/ytF12c37BrQYyfx
4Oay4y1OrVqIsIQ3ifH+9og9UFC6iNy+b2uuqx+YLlAHsuKi8QNfxnaizMTD
RA+dL2qzB/KJnWSNH1afblhXFPyEEewVAAAAAAAAVDip/XYI/3KSShXpOp3L
ytbPUeN0dXRV2N6G+x2ukk5n80lI2JAv5y6wVXQF+nszPtiFm0uwyiKLm1x2
4j6bjkoWXZh7mXexX4WcpykNpe0lVmX1RhBUlnY6Q3BhAJUCZQt558+2wbcZ
k3zKJd/SP5pukg8AAAAA1QM/VaRpngxAqigDsSXHKSr2xk47Q68U/Bx6UBHr
IZBUB8lCrnfcG1K6i5Ydbdzv2o4HpTbfMLNNizHfYAv5jox6X0j6S+aLi6z9
SynWuhOOx7LOdtrfnnsP2TE4ZvNJ+xYAoEbI7SX3FauxVmfuHr1GpEzyv5ga
H2jRJW5yhztsX8k9KBkAAAAA1A+54710iAv86rsI2BHPxKvvx5u0yqcMmEae
o2PelDVBmLBwv85bjmUpntjbnkHOjM4w6FmXdiyUm4Gu8PK5BHv+8QbGOkGE
uzgfWhblbSxKwfYiyV7fmPrdk8IUOoyAMoeM/uQeOY7p3hi5+d2aUPvsR0PT
I+baxJluHJoGZQQAAABUF/wyIU39e3MFlFpVPuQr/wTtfSA6UC8MalCRzjjy
9Sb7GS/nhrlKOIniYv8RfpTVRVLL2Gh78CJnM625upOGcod6XE8lrRsti0Q0
FiVhG6laxv3S9Fc+UhV6SWR/fwAoHWTkAW5twMwXXEvZDPvZwleopgYAAACq
CnI3MNnMhXzaRts3spp5VQw7ATtTjyY+UC+ATEpk76H9CJut0FmIFSlvuO4Z
NLC/bs2gR7QjQfHlczRIqkvbOfVEQnEmueP/U1cX7hft0rAXsB8pRP2JOJRn
rh4uXyS7sQMAlIr4invIhJkvzuQexBxbsB3GlM+MAwAAAICq2PKOmjhVpHnD
HpDiAF09sDOARDkAFPgZ9KCi9CmxK4SF7S6SOn4oGsTbuZ/3KB4UKRiKL59j
4HVGNVgn76cV7cgHm1Zrc8jtiMFTl/IbOwBAKdh54ujSak9NPnyR7/pI3XMU
vN0BAAAAgLogN9z9XO8J7A1mZ8Pdp1Uo5E7BDCqy3gwJhUPEZ+Okq8TRRfvb
nne5X1isGZ0c5XNJ+IJCU2O0vn9jNhCOKOB0Rf7k7KijZYs0Ywoxb83vv5Pd
2AEAlCa56yJq+hhXfNtNhMGUDgAAAKgGdleJXq44SHnf6fKFcg5gAuJRrxTL
A/HQg4oyDySNFTG6iC0tYxDj2CBT+Vzq3fijf1j0JsugDSc89xd/2ozKdNax
+lGyvUN+duZHDyENRooPrgIAWaF7SMUWsrJWLdImAgAAAABA2UIuOzu5CifF
fafLmHiY6GZyNQr5LSCDitLhZ3ykBipsnouicXgun921XOVzLOT6/FgLoijS
qTG0/gs1LSW4VpxA2l1xdjFrJLEDSwyCclMwXgDKCHp3Ajsx7hfTFcflRjEr
EZbtfre35fsvW1bs7mWp4wMAIC9w1gEAIJb9IH4UifOggi47bBpCuse1GJKD
iiay2QuwuSr6dzrrWpNSIcZzbMgr62Qsn0OI/+wZexNR4Fn1kbF7cm6l4GYG
Tj8qsMktqKPDDo3OgzkJUB4wqSKR3vLkM88Qbbop87AGdnMpIwpkeAEAzjoA
AMTCb8aHCrpc/OruO6zYXTRtUFE6vNFFUqeysgdP66JcrUnyls8J3vvlivem
redofnGkP4Mv5m0Jzwxr8CByCKw0BHV0hy55RbvkAcABsr/kOIGZRr1bIl7L
tCDRZ3jjBz45z3AIUIHSA2cdAADi2H1ob0bcFqTOCa0uWC84Bdy5qaI1PW9Q
UTox72gd+0sdGfW+kPIBrLU48w2yW0bIXj6Xgf3o+o8+D4HbBi0mfbZnFWa+
PL9ZiGcClwCV2IEljo25YbRNSmScCQAHC70DJlLj7D52dtGpaaxlbH5d1jsB
G6CCjQNwwKQ20EAWAQCQRFBBJ8G6WV3sRVYeej13bjnsNtvFwW6rRYC1b/iy
zWZ33LrtnvM9Xs/pDk1Gfn60EsnwCqqIDVPmgb4TxE/mL1rjTWWV2jizt+F+
h+suyuq4q0z5XC7ikXDQ5/nMcfVCt1kgkera8EAhFthsWu2IPSCvFx0Fv8kL
6ugKgYxvLftmbtrHBrvbTUjqUG9q7+ob+cPU9P2lreLNz5OfcnWkz8p8is7U
3j1kw7/whbarLiInQ4RVL8rBMv7zzMhxel7R8ZGZn+VeKCmyiIxu/RKWjXUl
jC/Lmapf3sJlEbkX35O6W7AXFzuWgozHxT23CjkMAAByIKig0zaNf18+bgtk
fD1wl/jTaF+nSZezlT8TmOHE2VHcde8HnkQit5fcV6zGmswW1tzwHXllEVOv
IqZobdXVXc9+g4Zxv6SQn9eapOlyrqSHnUqWz4khvhGcudptRDRHYVZvrCxS
xkGLDBNW9IyDOjoJ7EfD952jViO6gJih5dTJFgOatk78yyarjfCFC1vZhCAK
ztj7zdSdQW/uHr1GzHh9C14PcW24g9behzts7qVI0Zq5jKIjylbucJ/719Sf
bC/fvT7aZ0kue+InsPQNX8GdxJTNQt8n9G9PLvyqwNUjRRbx5p3JBS29hz/E
ia/8K9WnjlGqfnkLk0V0MWphi3Ns3J9vW4JccfUa8r8Tt96/8xRUUwEAakFV
6l7gQSfGoOzgodSQxzk+2I4GVpjO1Nk3TKWDXJ55HwWdEoqvB+l/8Hk9LuKv
DrttmA0DWHSt/ROf+tdi8fA/7N1HmPfEzP+xECmVLIovEz1SboMpagY9Yvyk
ONZc3dySZarBK0X5XF7IeIjo0bMHmlG+5UNhWcRN9U2iQFFlRRJ/7r9xzkTn
IXQJrYJ/fm9xObyF+A7GI2vLfo/zSn9LSv5jx4ZuPdyUNvw3Fp7/mBbXmK71
wk2/IPEZC399uZXKm2J66yeLGZQRGQ1+MXnTv5XvM8sqOiJfzl2oRWqkacd+
TN/+7jXX7Jz7U+LGlT4kV4s1vz/7TKFq6gOXRSg1hvbfTd75NhwtyyKJYqn6
5S1IFvHrLiSBdeTvCOaKUsQBm3JA2UHuhB98RVwbo+Jx7mTHqGqOwUv2qb8V
bUdcxKE9c/Wgl7f84y/lJbbm/2JysI29kWOGjnO2PwszPvlJppkuWpqQH6RO
V8f8U33r6BeZt5EVkUXxZ+6h+vru8VuECP6KDyI1jx3OFUnfm3e/retw/sT/
69KXz2WDLilMHmdBVd9KyyJBo5am5ij+SKUPfvWQKs3CTAPXPMGt3Nds/Fef
4x1T8iSoNY98GRZ5jZMvFvEzdHyfTfUk2Hni6KLvfFimTQC6dyz/vObyio7o
MxapKd0PffpbY43gPagc+rnT9LI3WPEHmSqJi6ewIrqny4HvfN4Z4tpwuz59
WXStI85Zf3AlV43XcoBKF37msF86x9tSo7+48e0r04/ynJOVR9Uvb4FFdPx1
W5j7Ah88lr5qmOm3V6a+mFvw+YMh5tW/bImJ9fajW8/CK0H/wtz01IfcBhEH
nf6+Oc28s7j3BAAZiYW9189TlzmmazlPBCVFaIkw/rbN2pTv2VZjtFy8njdO
kB9Bi0TONvyDhdxenrtxmV1J3dEe2395AmtFB7x7keW79u4mZAnqWid8WYMB
BXqLyI2ZofpDVucTcW9X3OgiXg2eYCKtEuVz8TX3kPHkjWXpggEZPitiXz0d
VhZJLTQUC7P3jjwB5RzsUokkNVGtedglunRtd9OPW5NBmjhlRG74JpL5b23H
nx7m+CDOTvCYzcdPm8YWbIdrRencMoqO6PymsLEoHlmnotkE3wWWn6Z6Q2Jh
93kj9f6N/a7QARfRZWBve+73hwQrUTfmjUm6/OKRFf/f8aEWXvV1kXMBKoPq
Wl7ZLBd4JrE0xotzstS2xUOuftbhB9NbJjzL26paQ6DK2Nucv2xGS7VOOJZE
xnjxp7O2t5iiBMzQMTj+n9NzPurRk3zM/WHYIpBLNUbrhCdUypvGts/WjByA
9oj9ofpyRTxpiRlP24jv12TTj7G1BbxHsGWayxeadaKTao6dBWZQURseFDNx
nqao0UWvX/rHj3HfFE02KVI+t+4ZNBToBcc+ZSR/RwqFnegohO1Fas+0HixM
dkZK0idJfM0zYkxdmR34Ys6rbmfJ2ZusA9N2O0O5r1DOTlDb40JOe/KVf6Kp
4Cm9qo2OqGnO9d2uVVEvJn9x9zPtRQOucPHGFwKKdqLjTaZOu5VJgIxvPZpO
PaZTZ1nXxPzqgefLD5JqWl6ZZBEZ89kO85asptn+UKYrh4x5x+qYO1XurR4A
KAH7jx0n6ngnu7j9eTLyALfSjxXdGyM3FzIX1pI7Yd+NIXMt7/31b9lmn5bo
psGzNdMoNaK0cMj42nc3R96g71qYrmUIv/tEzqIO8sWi4yyX7Nc1GNitrfpz
rtWMdfVstkUWP8+97YUPm7UiJ86nKGp0EX92A7cHqEz5HLXrjhVWxUauODuY
gyzIGlHZuUUMvPG4Gul+6dVDcgKOtnPqiWj5j/w1tXWQXGOsw76Y7bpj0p3J
M1uEgSFSAqftc3Fn/pZ31KRpngwUcKjqjY6Y5Kb42wWbDFXChKdoWZTeEVPU
7kcsPP+RBa0cw44Pux4rU0BYDlTT8sokiwTWVQmabT5pjb85SO3ypeW1AaD0
pN0fsE5n/mnfqQ56zHzBtZRnQ48TUMhNQwFP1EzwGvA1Bfa2KwTlCGfrYO6l
+pNjcmaI6LePPCKGkHIXKkO0QU9TTf4G+t7PM9VERXw2E/0COSSkmEFF6RQ1
ukhwRjNhiVLuc8zNvCBZxEZlhUWVXKmhUq1FFILpRdBelAXymWeoie6mfNPS
/e7EnUdSIyJylehKCVCt9WYo461gN4C3pS6MmnNiMndIoSZnNUMXteoLHWmt
2uiIbiw6bPOJLoXi9iXkt7hXmyx6TVVTBwneFmXJnsIqpJqWVx5ZRFvf81Ys
o5Ntoe+efBqW6/AUoLIQZIuwNtvCRr7nCr3xTmmiizNhUU4+GZSR9tTkw2x1
XHLB7T0mUTKClAQZeejsb6Y1S33ryO2gzFljMh6+N2FpyPCzkk9dPWxVdcYZ
newDPd2vQCq0q0ABNSq8JIXU0UWCZBP9LFDKfS6xVj1YgafV87lhOmLV9hKr
BUj12LLjrQLXRwK7K84u9ALCul1rin1Y+UKGnJ287Zcjw3PPJb4HXY2ZJKMo
2NvwnGet68SOkeKuhdo2x4/06b+7SvRqxamqDKg2OqIbi6QZV3KLI/uMNhXK
otdU6L74iZWf1Lgw+4s6chqlpZqWVx5ZlFZ2KGurKdPsoM4eB6AK2YsE/jJE
9brWGNpHpnx5hzikCjmw9on89q7cX/EdienLqnnCr6zpIhs6qiqoSyy4s99E
byspUoS8F1lyDWfdtuJZS2WMItgnRnEikikrqhfttIDC9jcVdBi8R15CNSwq
5j6XCmUl+3gkLoebVupnqGu1Pyiog+uFd5TJAyg6uzxtYyHrhNxqRnifKUir
8pxG+K1ANLxBAxk3NDLxcm44dSdIXkc739gaaxtt3xRotq7a6Ig6ML2VyF/p
wMHJIpn6KDnUKYteU63EcxeN6Nvqe51L1We8X03LK4csEtrvyFw5kGx2kDPv
DAClgwwRXQkNVds8/q3Eqx11JGYQUx5fDOgGrKaA2aAKEAvPXKQNLjC95aN5
Ebk2cu0fE73W/huPxD220zasNA1WRwD9W94DIWP1CBv5FNiFShNdxDv0kpwW
ENhCPgrpvTM8VVVzvOWoQsNb6cYi+sw6iQelXA2pGlRtx59/KMx5lPzJ2VFH
r47CNgjC/npuKAyQgne60oiWLQhcTZdG0ApE/9dlB+eWLl6cIlc7LYtoX4jC
TQZUGx1JbSyi/4ZbcNlncqlWFlE1lAu2Nt6c4daPF6vN/7iallcOWSQY1qCR
V8IkvX3kzDsDQMkgdwOTlLNbQTUY5Ia7XzBEQtEpXcKGcWT6+YHATRsRb1eV
ikNE3bTTNVGteeyeoK+HczDTZMnEsHM8C04NpJyKU3U7UuFvv0vOxQjC1Ixz
W2QAWUlM30Nk7gdJhx1tI7oGNQNsFkDpYmxh/KA20xI1IGi3wfRdzqUCdgN4
Sy24We2tuc6yF7aEjQKeLFqIUil7XRGbUaqNjug0kzSPZTQTWiVFdEnIza9H
jOiTUd/pCKqm57YkVNPyyiCLhKO95ZUwyUQ5DIAAypOIf7xFQmW7ENoBiYeS
UZbQb6Gg6TBywWkiSTMEU4/X/DftdE2UMVbnl0VlLlBjg58Cakv2oyuz9u4j
9HFoC6zViT+bG0UmukpWZ3wzOqWGtyYbi6hGe0ODTty0GtYHoyhNxLXSl6AY
m5d6g/LvjJCRB1P9x6hlwpqstjuFtgrylpo/fwdV+lISNEj4V3N2/I89hqL2
rlUbHdFpJolpZUTMSp5ZkxdVy6Jkfxn65gV2OJYt1bS8MsiiUpTOgp8PUJ4k
8y+FlIjQpA1XFT795YQ3/kZT4HQYeShQE73m6gDz3LTTNZEGa/5wYTv9+/J3
tjPnGpixJgl0Yu2qyO3le3ec+IfD3Uf5T5v6lr7L+M2ZwGbelrUXwbufEcRf
Mw0QrzFafncFv0EkcN1fyR/UodJPmfI5CuanwfTWTxa3NxgjdHrm1DehSIYv
S0bDD9wfdVMDpGpN/f/l3yzmKclm0wodPSMBYYWYgn7g1Q5fgfKuTXRIMecp
lx9B+JfL/VsEao2O6DSTxNw00qulwCmtclmUWOzZ4XreTLLGsfkqmqBZTctb
tCxSbeksAKgAXv5Fb+75D1dQmpscr0KeQX5zVAaetwDFgdnQxddmx+h+orrW
CZ8k516u7DDXTTuDJtLo+4iMox53H9qbWWGaPev36vvxJmrxMrR+Zz6EHxxv
1GOGllMWAW+adJhGdwoP5NO+9DtoMr1FipMthlqd+d/FDI5MdQ0oVT5HQZex
IUmf3a3g9HgPowr1po6zw5cncOethJK75bg6Nmih1oEaZ2wjfE+LrTRnI7qm
Cf8rpZ+1QjM6xS5YgN8LyesaQxWTlBwuL/xr6HI+LkKNqzY6YnbbpEV9iHlg
Q79bdrsw1cui9MoN7LQzJPf4JtVSTctbtCxKL52VczsOGouAskaYf0lQf94j
qcmIN5Im/ekvI2nXcjEGAoVD7i45uyjNgtX3u1alTSaKhpzdjLLLLukyaSKs
ZWx+PdMnkTu+D5A5NDmyfrElxynqTdNav8uDVw/xEw2Gjg/n1hQ7+PXpfvPQ
50LtGY+s+O8S+PjoYDcjCTU1hpaT1r73rk79zRtck6X1NjXjRsYxmrk+TRgM
w/NLKQT1iuiQNXSAlJRIG51nLblHT4BqoyMmzSQp6nsZsL+R/BKNH/jk729V
vywid7yXDvE+oDT3E3VQTctbrCxKL52V048UGouA8ib9XiLZxyDDW8je7sog
sKFTsFovF7tBRyddPWe8KCbNgUJPXcRyLjIZD385YubfstKs5zIcDE1um7hU
7F3fJcnzFlCcVyHnaVqxlqheHRkJyiC7mzHAIJBFaBiDmpBIumEi71lk4Kfa
6Cgp/STMfSbDn/cmt5KahjxK5JPVL4sSatIzWEoHJFVRTctbrCxKK52VteiU
2dMo2J0JAA6YTLJI4oQOoTtcEQ+O3LAOxkkOxJ2btsPViBySK2DbP34imQTK
kn8nN++NCTWR1jg0ncXjLhoi+pBBjHnjgRc+2zFNPvUElJpkGWShdhYFIPTo
ltLbAohHeMvihTGI7aF4WRpbW/gjl0ousvpRrdFRMs0kvqIvZY+f0ahTJspB
FgnPN00RXcPlRjUtb3GyKL10VlYJk9zTkN0hHwBKBM/bOYlEK7mSZYuEH1TA
gMViIZ9ND1DpHq1x5GuJD19yN4izww+wTmeGhM3uY2eXsKQxi83Ca6SWL/lC
MU03qYTRkeG555KOHlCMvQ3Pear3vpTWRsLC1wO4lMofci++l+eCE96y+GFM
cmBcgkM9rqf5byfx54u3fmfGtDqdYJ5r6v2iL19KqOlVbXTEpJkMLS0GUeVw
KXt8KVMSCqAcZBE3EppF2zT+fVX0F1XT8hYni9JLZ+WUMMk9DZgSDqgCMh6X
vnVIrroHGnnXudR5lOm9RQrJIqE7d+m3uJPZlkIMonnVbpmiIPKX2QvHMcFC
5hioTQ9X5V5pHPGIarqJLNo7MEgYqYfdAN5Wp/wcZD7CDK8axiKrnvj2iv8r
ArcNdrfTLWaptTOcODvykXM2uJUekAvTMYIwhowuftzKOMLnuR53t4L/fbX7
CIY199/wPw9eT2adUSvO/ceOEzopv6NqoyM6zXTo0vyPn/bq63Jmf8j4pv9G
fzO9GIc7bF8ppolel4ks4g8yYFB6DppKqKblLUoWlaR0FtxNgYMkvhH0XB9l
XZR1Zssw7gluiL9xk5End69f6rNaLJaeoYk7ixJ9hnmT3BmUibHSLO+KGfFc
0AEkTeQKiGAjP+AWLj7KsAW6s+Ts1QuWUdPY7wpl/h25DVIa/Rl8Uax/ILl9
39Zcq6TNNSCe+DP3UP0BjE0X9LwcUJteeUDGtxK32IsWY6qvADO0nBkctVG2
hE584vLwb1sNVA+NruXdKd+v6AWblotPv2XFwjMXaU/LLJkOSov9HR9s02lq
jN1XPcu0JTC54uplasbYGp7YqutcveaYzSe2GUe90RGdZqoZ9GwnDT9rzcOf
BbcEd1wyHgktEDYr/aNgpgH8XkjhC6gsZBF/hl3ydD24MRalpJqWtyhZpGzp
LOMkA41FwIFBRh46qb0yTGc+M3L1+o1rv08+u7HjIzM/l8RuLMPcIoU2CtJu
e285lgufnimd1EC3mnMSffa4PWEaQ69L4J+3t73wYbMwUZS9SJ4bmaQp6Lfe
i/g/oo5HquUgIDfJ4elFjp4pBKF7iQIhRCVAbRnhQy3J3FCN0fr+jdlH69G0
3WFyJ+y7OdJaz78Y0++NGXuIYmEv3meqpYXVwLjzS6/P51uYc9++gdsGLSY9
NSmsf+I2zwSeNWbB9NarM9/Muuz9JkziADW1Rkf09hebT4+tLeA9iYea7mj3
yB8ctDs+NUzt7AkD3XxkaP/d5J1vw+m/iPyUhSxKd1PRlH7/8GCopuUtQhYp
XDqbrEOAxiLgYCAjD3BrgwY7NnTr4WZymxGxay5RrJVm5i+yTl4y6TGGQn53
WSBDhJXSIvQ2ppS/S2ZnUrFH59QTXrUMGV919dcLRVHWUkZyOzj12yI0EQOT
nCrAYByQDzLs+Z+Ja8fQQyyX3DBdONG1WiptJBBb8zn6TakrV/+Wzf1jbtFB
Rh67ho9j3I03rUot+8YyNRrYc/PqSJ+lhY73qWlfPYNjV6em7wfXM98IqBwW
fuFM4vWYofXs+877koZnqTY6YobT8ba8qMW5S+BXRuiSBou1b/jyOH7T/Y/F
le0SXjjlIYvS3FQ01dI5WE3LW4QsUrh0linpqR7/Q0BVMD1B6VEx4iEpdnBn
MezMjx7ih/T1780pMgMlray3xMNWkgsr0Y+CXJ8fa+EWSNvleMK7BZER/2RH
WvVctsmtgjyRlNq5LAcmcYcZkA1GmUoeByzXpwsfjgc2GVmVxJ/7r581plwj
9ZaP5sOiEtNkxDfRWpdqFFp1dderdZFVGx3RaSY1ivTylUXaI/aHlV8WUE3L
W7gsUrZ0ltnTkLx1DABysBt2Deg1+g58URg9o74EiguHlIkWh3Kd49Eg3n6A
MUaqTUBS5R5T8M+SlhcQiCbuq5naLSzW7sGLNvt/Ts/Nfm57i9VEmPmCa2m7
qNsZ06BUunpLgIXpKFHUOCs3aZsMYBzEwmvcw/TWTxYj4qMeJl9POz2+nBsW
eO2rp1JRtdERlWaqOWxbKGV5tDjKVxapSY4rRzUtb+GyqBSls3prJQxGfLnk
vmZTC9fcS9D7mwdmKmjGNm1+k6/CZWacwWwqhmie8CuVPE0r+yntzSh5I9K+
I7qxaG9z/rKZ0zzpeRmBaBJPrXmICEoI1XJ8q9X5iS49KKOSwmgipY2zcpNu
qVTaklTVwjczwVo/8ku90MhlZ6cuEWysC9sQ1GT3p9boiE4zSczIl4gykUUZ
JxGCLFLuU8pJFpWmdLYihoNn+qEPkKq4hIsituQ4hWWe3Zm4dfcg2QdFQ529
zbmLRvSXK2TCqXgOuBsi1WspckljYc/7rZyLb7omEkwd4qFtfe/W7IOVyIuV
B74Fz596DIJpufWto18sySKLqAPZXroz1tr4e2VKH4E0tmeHG98cuf3oQGsX
k/v5CCCL0g0es9Sy5iG27HhLU/uOfaKTf9mqJ9pXbXREn5YStp5KCcgidVNN
y1uoLCpJ6exhmy9W/ski8ufpgd9kjs9KD/abgemfy39NlWTnG1ujVtM8GUif
c0E+dfUc4hazbsyr3Pm58+14M/pobbA6AkruETA7kAglrkgR31sU/3UB/xcj
e0Xp3kiPgZkehMyXABOMkZEV33/fuHyaex+syfLOaRPb7yCttgcAeKQ93iti
i68oBCb5hTvY02tbbzAISui6nCulm0yVE9VGR9RNPvOo64OnTGRRhjGCIIvk
Qx3LW6AsUm3pLAAUxf723Hv1Gl2nczn9bCafuXqQLWAlz0/+IB5lx4szCCet
lFoWpSSn1nozlPWb7kWCrrGOw6lDxPQdNnd6BxC5sWBry7YRgRmOv2nimzDo
2gYnv/CvxThvbXrNm233i2suAqqXtCCiOlx8s4JeWRTaLqLwsV6ZGhBUZCOg
2uiISjPVHcUfqWSd+JSJLFJH88sBoMbl3YuEvnHfJggnPk51iFwc7LZaLJ3t
p68HXhXXFlyYLFJr6SwAFAc9cAQ77Qy9SvtP8Wcu9Kyn234VQTCIB9N3OZdy
jWiXhYOWRa/JHf8EPV2ormUsvSuEjK99d3PkDfYQMeNpmytjoVRa8SH9cp2h
QSf4NybLoO3Prvv/i/8mL3y2Y6mXnHIsqa81GSgHQBbxiD6w87K3UuaippPJ
rqpp/Pv0W/bBoNboiE4ztYz71Xkelq8sqlGr0pQVNS5vmhclQ9E7JAXJItWW
zgJAccQWbIexzJcV3erLnfKKWcfzB/GUrJrrwGUR6o+N6VoG7cSM1/doeemB
d8Y53t+KHFx968jtbJYI5LPpgbQpRRr9gCsstsAGcdXInDQEgLyALELYCeIn
0WsSO+FYKiZuyRA7mUa9W7Idb1GoNjqiCiEONX2woNKJJ+Uriw73uX+V/XNU
hxqXl4xHnocplvw3h1J7oTIYehcki1RbOgsAxRH5Zryt5bef/5T+0N5fcpxA
BuQotTkZD7n62R6fUna4qEAWvaaUUcB5zpS1AM7Yfh6/u5y9tC2+TPQY0v6s
3up8IuFBixj/Qh0vUBggi1gYY09kKYrdbUhGCCgqmm8I0VFhlIcsymQJIOfv
q15UvbxkzDtWl3x94/BcsbnZQmRRSUpna4fnwEi6DCB/mbv05gE77enevDT3
i8IPiZcB+xvIR75hDyhwevLGiZa4618oi2Qt/JAEGV8PeJwfjfSdTk0W6hu+
ghOe71byrEY0RPSljW7VaDunnkgqQURvzUfsAfBdAKSz5x9v4J2GVSuLXoWc
p/n7HEXWgaSnY7BDo/NqCUwhOiqQspBF+9ued2v4H1LquecHhaqXF5m6KIfR
YiGySK2ls8ABoA77ccV7Hl99P97EnfTFFoFkBp2zU3onNKEsKrc2UnL3yVSn
wGlbQ7V2O55IjJjQU7rcVgFQC8JqkGqVRbsP7c38SKfYyv+0wdMqqqCD6Khg
ykIW0ebwfDArEa64HyMDal5etMGhzVF84bt0WaRw6Wwy/oTGojKhKrJF5I73
EmLMrUTLCTqctNY8Mh2KlngDSiiLymxDcjfo6EzPFOk7HUGppr28Eh0VTYgE
yglyxdnBOxWrUxaRr/wTTbx1KLr8mAwRVv6V3jThL854Sj4gOiqYspBFaWMs
qqf/VM3Ly+1FyNBY9LoQWaRs6Wyy31lFNzoAeD43jAxU1/a5nsmbQtiLLH5i
Tc4eLYEXd0bU0VtUIAI/cwZM30Nk9/rOBs9vEOt2rSlywECFA71FNOmZnaIr
/5MDzljqTjgeq6aGCaKjgikHWZT0u0AfMhlNaysR9S4vuhchT+JYuixK88ST
s3SWuYuqqVQYqHrIDXc/8iCu6XdvyPlQIuOrrv5kS3KDdfL+2gFootflLIuE
I1GS1J9zrfLtteNrgbsEbhvqbjcxXzVDMSQZIrrY+1t1OK8CCgCyiCYtWii2
8j8tHSP/JlUxQHRUMGUgi9K9Pooav1VeqHd5kb0Xmfq8JMsiqpWUF4LIuaGa
rENWU6kwUO0IxhXJe3KS8fCXI2bmOd9gxR9kGsRTGspVFvH9zLmf6X962JLk
vcjyV9cvWo1C6VRrHru3yVtwcjcw2cy9QLUzPgC1A7KIIj2UKrbyn5+412gb
bd+oSCNAdFQ46pdF6eYhTUOeZ1WiitS7vEhVrVx9XpJlUdriyNeUTO74PqAq
CyszRwyUJ4JxRY0f+ORzgiUjD3ArbViFHR92PT44TfS6XGURz8+cpbbZdp9x
8SYjj26zQ2B1R7tH/jA1fc+/kmWlyVX3APduyhhrAFUByCKKtCkkdaPeYgYk
CxL3Gm0vsSq1d1BJIDoqHNXLojTzEKz148VoRf4WmVDt8nJVtbJVdxQti3QW
YkWOA2HLV+q7Ks1l5eWS+5pNLVxzL5VTJ/2Bo+C4ot3Hzq6kJhqZ+Vnck4CM
hh/5fI/C8t+Ny1AW8fzMubtpqqUoFp7/yEJ3bGHG0zbi+3zViXvb3vcRiVVN
O4E5IaNPfXf+bBt8u8VAP34wQ4ulfxR3eZc21VO9pDbSgohj4/7qu/EKZVF9
t2u1iLfbXSV6kcS9ylJFryE6KgaVy6KULK3aB4RKl5eM+WyHk3/SbPPJM2aw
aFkk14TfVEwi6268KlCHhTULWA5LQTCuSD4LoPjPMyPH6ZBdvCaijsc/fkyD
nXWtye6Ptu4Z5A9CLYEsiq8Hv328XmAvVSw8c9EsrItjjc1T/xU70m3/hxgL
C0ExHtaGByVNO6pIyO0l9xWrsVZn7h69Rni8Cz6fb2Hui6nxgRZdYnEPd9i+
Ogh7kDIg7a5faLBX1ghlUXHaULCfXH/eU/SAEpmB6Khw1C2L4k+cVrRrrDA/
n9dU2fzWE6/rz7bB7naTXqMzdfSN4Xf8yJbdXlydd1SVLm9aYxG5E37wpcM2
dKbFgGlqDC1vD43fnA1uSDqlJMsi4bQymWoDog/srXUajaHXtVLcORENuUdb
dbVG68cLm3numdQu6N8/vf33B8o2uZM/Tw/8Jr0j/GDAfjMw/bMqrzpVIhhX
1OnMsFW3/+TW6WNvOn6Q8IQmXzycPEW9rzRN9DrZ0quIso34bCbeqaKgfo6F
vZ8MtrAzmo5fmJXqr74XefinjnTvOfPY7FqciiIWPmzGpCwvubFga+MuUqzN
tiCrr0YZQkZ/cieUu+6NkZvfpd0h96OhabonTmscmgZllMbemuss/54PsqjI
RYg/cw8hkZOhh1hW3YKqPTpSM2qWRYJzT6PR9xEh6Ruk8V99U+/SG0r1Lf1X
nDPzvoVZ1+RgSyJe7ZlajOxGAn8ZSjwWC3kgKo86l5fXWHQr9GzB0d+MYcb2
83bCQy+vvd9E74724P8UH+dLd6IT7CrLkSYmt/wT7Ylj11pvFiTAkXd65upJ
BktHRr0vcr52wzvKdFcXmdkHKhXBuKLMBQy0aaokt/xI0NFNXcmSNVHqclUk
j1MqWZSx8u2IPSBFVcZDRI9esNOA6Vrf94TpxoWdb8epvI/4wAkdpKtBW5Oq
FqbrDTNfcC1lWwm27KHKiklEwcZ4LFUpi17ODaMqoRgbup1vbI2ccb6+y7mk
xmSuqqMjdaNaWZT+uGnsd4UkHiIZD9+bsNA18/quiflV5M/3Ik/+2ldfYzz/
0ZWO5BdQ49BAdS4v11ikNZ7pP2Os1XfY3Lxn1qu12X+nq0r0HZN+ke3b0mVR
4uztQb5D8dPK4muzY9RhFybAeextuN9J3Trz1Ttx61nX4fypgm83QKGIGVfE
5HDFW5axxV3SNVHKwVIZvbK74uzi3fQU+ZhUHkeAhM9CvftY2Nq5BDtB/CQm
IQuPDo2if+eOPz2MqKw4p8TEV9xDJsx8cSacsz8+tmA7TNeBZsyiVjVpsqg6
a5eFo1cL1oaRRXsHd4nKECoohJqjI5WjUlmU5nRa1zrhk2iOhDyz9GfwxRdp
f7234TmP7stJPm3I6NYv4fB6RMF7jBqXF20sotbNPOxaSn92s0M3sBPjflHN
R9JlEZqRoaOIPncR49nYmMQ05F4p+jdFhuTWjXljORYXHX9Qlc2wQF74cwO1
Pa4Me+L7j/CjNaLdgVKiQLhfJBJG9Suk4kuyv70bwNvqNELSjbKzkVET1ZqH
iCB7M9yZHz2UUEUn8aCYbmzhG+bXApXPzhNHl1Z7avJh+uNbQMqmQ87hLJVB
Wu61YdxfjVJbYLr7lmO5gIuLjC5+jAwmQ733VYeKoyOVo0JZRMbX7k8yVrHs
s0b6sHVy7asLyUdM44A7yxweXrm+JOuAvWTpHUWN0XrFnTW/XxxqXF50WnSO
DDK35Sty6GQBsihx5XuGmrivUnOu0Mw4e9XLNLEFGZKb73aETKOWaQIUUFkI
5gYe6nE9TTtDyVf+iSZNTbP9oQiX2NTZnnm/SMwR/eLubxBRHVoYZMw7Vse7
68kui5iiREx//DjXayfaEiE9rcP8Ob9meH/b825NNg2bfkAR30Qr8qUrf0s2
L+Tuk6lOrbj6Q2ZPQJFTpdxJk0Xq93VUBnKV6OJkgmHQsy75HXj7yRIqYQ4G
1UZHakdtsmgvEiSGeFtw9a1jM5L7KFm/WQ1WPzCd/an0wjuaKk2RUmtKhj/v
FTwTjRfn8rXVF4IKlxdNRuf81tyxi1vbQmRR8tHJfp26NjwgfXhAbG3hj/RV
X4gAz3xY3JDcfFlIdD07nBXcxwgUCj97krGCjnkCipqdQcbD00NGLVU7Nx0I
5ycU9PsQ5j2uW44rv6WaBwvccRXxhRWftELb6FGh0Vp8PXDX9Zl77sGK2HK1
WHj2ww7+/R8z9tqFSTfm4SLGACrxi8yMtXKVC5AnoqDrDbSdU0/ENG6w6dTq
rBDLxa/uvsO8c1XGsZ5lBtvDSyFyt5aFm+xGP9blChWURKXRkeopWhZtuPsE
JjyFhnZk5Innai9v/DfW3O98KF2c0pn35DvkLGBAI1IJI49jy463NEIKO+Xy
ocLlRRqLck9OQWIbUVFNQbIoQeQH3MItktRd1vivC/i/0Msio8Ur2ljUZg/k
LKFB1lNKszxQPfBl0VE8KMwoMqUdomZnkJv3xoSlX4WiWMESueLs4H2S7Gkp
ZgtdutqKr85PdPFdGmpN/Q7fWrqKYcq68pbF7kUCzn4T+4sgdg1VDe2iILYA
mzMkkWu2eAUhnAJWzcKRfDY9UJ+KgcRWt9J/GHng6DmS+ssyEggqjI7UT5Gy
aG977veHNHzydFJkOIbIiv/v+BBtFseSeDq8Ryw+L+CYyI2ZodSZr+0istTP
0XDmJNLsm4RZaYYM4UqRqHF59/zjqR2TxuG5HNVhyRoSGlEGa4XKIuF8edF7
rbE1PzHWQe+kFSjAs4E0FuWpi0MbtXKvJ1C1oJdSpppMxjRVxOwM/oZn0ch/
x0vB76WScxZhEqZytcY8/p3oKGEvsuS2dfA33o29Vz1Pstw3mHA0592M3F5y
XUAGHvFbk6oZJlWU+/HNvZgtFqrgEZOFQj2w0Ud/8a33ZU3KN4C5l4qyNNmP
hmaQC7/BMnGvnASC6qIj9SNFFjEOAxRPlwPf+bwzhH2QH2wnH2GtI85ZX2A5
V2HGcsC34PV85rBfOtduFL6Frm1o6n44WtgTlzH/YchYhM+xF7CnSugkRaQC
iw+W4qqay2N5kUxZntI4NKcmKqopXBZR8d5DZz9nK0WFKzPBrWz3rvh2aOH2
RH8rs4mGmc7d8BeiELOCNBbl271EGrUUmYwJVAJo82zNoIe3gZ4cxiqi+Zf/
fCwe4ZHIiLCKruYo/khWBUbuBnFqOBB2bIh4lPeJT0Z+dF95m3cn1bUN4l8t
54qpGIPcbMqLjK99d3PkDe5b6k+OufIfSZWwv+Q4gZlGvVsiXotUClXyiMlC
ERhTyzbWs2zh2fJjessf5lay5rzJ6NP7yfEuzEX6ls3zU7TcTjF1RUdlgBRZ
lN7nIjOYztxruzW/tFVEMRpj/pN8v9POUI4iL/ERvhBy8+sRY9oAvyJtxMpi
edFC5Txlh6htvqhbcTGyiP57NuGb+r4tA+OOzzxef3CFkYr/nHP/Bbe9025I
7URTsc29lQIVYlaQxqK84RyynsrtvQNlD+IKy3nNkfFN/w3qeSeqE1buG4yi
NZ/Cyp+6Ua/chWU7S7cG6NsFfaOY+uJecD3tERhbD9y9cfk0XxC19k986s9Q
NSdgP+L9dyP19s1911ABtRcJ/ZMenMe+aX3ryF9EvGH1QG8WidQ4bB8x1jI2
v15uEavyCMeYyt6mV4aQ20t3xlrZCxBrsl52TN97uBz+ZT2yG488T0QLi/e+
mBofQC/SlqH/zFQrWyaoJjoqBw5cFtUYWix9wx/ihMf3eK1oGc4fepgnzkTi
dskR6V4keMfWc5ReD72556OvZiaOFnnDKYPllVJ2iGRMRArGYmUR/amR5a/w
wba8C4kZOs9P3vGFldhbRBuL8vVEcOuJHbYtlO09F1CeZFaIuqiNlt9fu3H9
6sgZc+KpLbrCQe4bjKLbzogZDoMi9lmxsPeTwZZ6/vdK3DNPWiyn2k2CQa9U
IDFB3A+JL3Lj70vrTG9aLG+a0AIArMly8frdZXldTKMh92irrtZo/XghnwsQ
GX3q+/unt//+QPzQbfZP41vLvpmbV0f6rO0m6rzSmdq7h2z4F77QdrF7y3TP
r6gxguxFUdDsrWoAKXpnAKc+hv1o+P7UUP5QQUPNqcc9wY3yXzU1REdlQdGW
C+oC8TrOG2emBsBpitmKjO9EGDVN7clU/j4MUnaYx9+SDBNW9vkvzndaDlnE
kLjjPbhL4LbBbl5sg1EaceTqf057g+sK7oEgjUX5spDIelZ9bQOQl/hG0IMP
W8zJ55ruaPfo9Yp4XqeTZmuj3LAVMhK6/7epq++dbTVkKI3WmS2Dl+zOu4H1
wh4RCeV1/bygklln6ugbw13/lKCwRIPUW+b1qWCNuUT1frKfEN8Kztj7KUmu
0Zu7R68RM16qZpu4NtxB320PU8O9i/lqVGcZcj8kt5fvXh/ts7Qw+9j0bXz4
Cu4kpmzJWe1vTy78WolXQfHw2hLpWEdqb3JlkyVU0OgTIn/QRm8nr5dd0Vxu
DjY6KgsqTBaturrZrb88cft+ED8qX0RKh/QVL4v21lxnk893rCfnCcO7G4t0
B5JPFh0oaJosT50h2qSmlNcxAJQhglFNJR7pFXseVkBsxjfCz5W+xtFUdTse
zOknwflaiB/LGwvPf9xtrKFNey7c9Auc4mPhry+3Uh+P6a2fLGZQRmQ0+MXk
Tf9WzokF9E/P3Q/pvSNM3/7uNdfsnPtT4saVPjMXzmHN788+gztnNtK2F2AG
BADkobJkEa9wK3ecKW9EytzJ81kxlz3MsA+aPJu3SMZEo+t0ivI+rwxZhDQW
Yfl2uJEyziP2ANgtAEAK5DoSF+QDFMiNN09eABWe4rpiuZrAbKrnNTIdI+PE
QPrw8mwW0SUfyP1wP/Tpb428jAf17oYTZ8+dpodnVcmIycIQFqMq0KMHABVG
ZckitHo+z0wNJCLlBa9kfO3R/cCaxLWg92Qk+jaUIYgzee5Sf9T4QoRvMENF
yCJ0tzbfHG3EOpVfSB9bD3wbKN/uTgAoHqGDFtjXiwDZGMxg5M4DKTgXk4kj
N3wTnczTNY+tMXfzP2bz8av4qML12jwuNOSPjrZaYWNRPLJOdYUn+C6w/DS8
HqEf0LGw+7yRPjf6XaHyD18UgPzJ2VGHXERV7s4NAGKoLFmEWvTndlFAHh98
m1lqO0v6GGjaT6zyncQ4WZRzJNz+9tx7qVpGCVNuK0IWoWmyPFlIZD+cX9tP
nZx1cjsSA0BZARGddJBbSr7lQkeZ5y+s2lly9iZfre125pkIyd0DtT0uJGFE
vvJPNGlaxv05b+/UBHPRvU7kL+5+pr1owBWWf5p62RPzjqLXkPxjkQGg8qgs
WYTauuZMZyBT1Pll1YVFpFSRdjU4ibFnS05ZRE/iY16GNX+4sC02g1YJsggt
48wzhyhrFwAd2zTbfErNhAGAckBY/6PgmKQKAb2l5Kvo5hqL8hqtk9HFj1tT
7kQitrmQw9D2ubj2oy3vqEnTPBnYzVvaJ75gki0F1DaNf59jGkd1gsQ5Yh5J
AAC8rjhZhBQG5JBF5JZ/oj2VVeKVVdM+DPm2s4QkngLnajQiZ8+VNWTMZ2Om
7GQvUSZ3fB8k9wqxNtvChvgN3gqQRbyGiNylKdEH9tbURh6v4JPuejt0yVu1
7pgAQIEG+TSVn44vEiRVnacujruT569O3A3gbak7Vc05MYXiGeekkxszQ/X6
fH2m9BP8sM0n2i2Ni/yhPVNImm8JLBEA5KfCZBGTpqfJemuNhWcumrmJv+j+
yauQ8zTGTUsU+Zl0ckTqX5UpbN14lrZZMuKbSEb7DVZHQFKPdPnLIkEg1+Vc
ybKxSm4s2No4z160iIV86uo5fGh0vrLNOwAgL4hZKE3lN28WB5Kqzmf+Sc9L
zfAEzPCmG57zqYpoTOx9iRshytby7a4Svdq8qopuLJKWFuQ+qzJiGBlBfmVG
1EK+FQDyU2GyiNo8cvUyXgoZkz6MJqo7bukwJm/byEb97kN7c734XhiavW3v
+42a+i4iVAWiKMFOED9Jj8877Qyl1SzEV9xDpqQmku4OVP6yCG0sohah3/1L
hjVgDJ0ws+XUb5IvRDKb+0uOE1haqzIAVCHCzghxhmnVCpKqrslXB043wzLk
zsGRy85O1sZIdEUEYpeRLLfe+cbWWNto+yaPqqIai/RWSQ9TThaBV6EA5Fem
EG/DDgDVTMXJotdkfNXVX49RJqJdziWkjJmMhubsvUaswTp5f22HLQxg++Kj
IaJPL9o2LQlTCtX4ga96Sp6iizg1tQ+r73etcrPRyfim/0Z/M62Yjg0Rjwpw
TC17WcTzh6d3V80XZ8K8YkMy8sQz3qWnZ7K/WiUYK1su1RgPufobtV3EatWc
TQCQHUFcB64LOUBT1fk66znZkqclllcVnMfcFQGxhKVlEe3and8VQWpjEf03
XPtMxQ/IkAgysB7WBwBEU3myKMFeJEgMmWspZdQxemNm3uedIa793mKswYy9
9rkQPbSYjAanrHpaPVnGp73/cF8bMGmpYFXCKiRLocwjc2vV9LAm42v3J60N
Gk2N0fo+tbwLsy58uJ1azBpj91XP8nZhq1HusggNIbSm48d0tEY0nr7s+GJu
wZc6CWt1re8Ri8+TBrPJes4Gy/gdr/fL64PHMH2vcwkeXgDwmj9djs6CQBVQ
VpBUdb5qQ6T3J/coc2R+d37HbwSeLFqIhogevU5EGca2z9acb9ySADLmHatL
flQlxTAyIJz8JV7VAkBVU5GyiIKMPvXdwUf7Ok2J6FRn6ugbw+98G46i5QJk
fDPgnhw502LAMEPr2UsO76qUJWCGJmiNI19vVuHNJr4R9EzZBt9uMdRoMEOL
pW/k6k3Pg3C0iKUoc1mE7tYmgo1f4ltPvK4/2wa7201Uck1nau8eGnfOBrfi
6BrtbgXvXh/t60i8Rme2DH9ybwUeXQCQRNheJKUZv7pAU9V55qWKH2WODKrL
X5iHfgIni2rOjv+xx4C1fryY99mw/wg/WiNBfFEg7TPS9FTFI3QskbiwAFC1
VKwsUpi9iP+jVizHsG9AMmUuixA/YawHriYAkIFX3483ocEd9I9kBkkNYLz5
5BlARpnnsSZbdXWn7BYkjdNF56pTR9RhX8x/SyfDhBWTWCeJtD5B2M9H0Ogq
sWMLAKoXkEWFEQ3infWgiWSlvGURvdWZfASBkzAAyAM97AaiuzygqQHDoGc9
52u5oee1w3OIh0VsPfBtYA1NHiFzACUJUp4sauhyPhbhYrS/7Xm3RuLNnww5
O5NfJYu/TdUi3E/IM1scAIAUIIsAtVDWsoje6kxuW8JgQQCQCeHsFWgvygSa
GsgTACN5pfpu1yr3HzKMMkffVkqEgO4R5anoY6Ebi6Td/F8G7G+kclnV5Hok
AmH1KezUAYBYWFnUaBl+3ybE7l6GigVAdva2fP+VdrLZ3u9r0ZarLGK2Ohmq
YbAvAJSKbc9gDRLg5RlUWpWgjUV55xBxeSVeAoiWS802Hyo6Y8uOtwqRRWia
KcdcdZSkksrnoYdAhj/v1TNbUU1DnmcgihDQHw526gBAEqwsykg5BqiA+qm8
s47Z6oSwDQBkB+mFgW2HTPA8x3Lff5iJEgw8azLah+HQJS8/54IkHcQX0cXW
Fv5o1adMHfK0L6W+QjLbLtrYIb5M9DBnRa157F41uh7lgAwRVj1yyWSc4QgA
QEYqL0AF1E/FnXVI0Yi2xwUblwAgH2gqVgNb32kIPMe6nCtZWnmSEyVSdDhX
uLlzT109hw+NzgtnAyQC7C7GdeFQj+tp/htb/Pnird+ZMa1OJ5jnmnq/6MuX
8fS3YX5iQ0uLQVQ5XPznmZHjGKOJRr4MZ3jDqoZ85upB+4qaJwO7KlyivUjo
G/dtgnDi41S1yMXBbqvF0tl++nrglQqPFgAAABAL0lik63SKK6UHAEAkO/Oj
h5D5Rez4Y4BC4DmWxXyAfLGIn9FjZsup3yRfiJS37S85TmDHbL70AjYyuvhx
K732WBsezBVd724F//tq9xEMa+6/4X8evH6C+cXQor79x44TukxGeXS2/dCl
+R8/7dXX5cz+IHPDNYc7bF+BJkoj/szVh6giKc7qJQX1OUSANigAAIAyhzNe
wk45lsDwBwDkReBHB0VBCGhjEXMTMl+cCfPuQmTkiWe8S49R88pfrRJdWr66
jIdc/Y3aLmI1s8Jgp05nSc3Et1f8f8cH23ToOG9yxdXLFLmxRY+xVde5ek0m
8UVn22kzjfja7JgZqzUPfxbcEuS8yHgktEDYrEYqc4iZBvB7oWLG5FUsVOLv
EHI2nHaG1JlcTfygz8MUS/6bQ8bk4WqP2B+CvS8AAEBZQ27+025t0ho6h28+
jMCTGgBkhnzln2jiQj1to+0bYblXtYI2FmlNx4/pKAGDGU9fdnwxt+DzeWeI
a7+3GGt1re8Ri8/pcjZW5jRYxu94vV9eHzyG6XudSzlWNBb24n2mWmosdcvA
uPNLr8/nW5hz376B2wYt1Ljq+pb+idu+p4hOIePhL0fM1J/orVdnvpl12ftN
WIMVf5B+h6S/AlukF1tbwHsS2kd3tHvkD45bBEHccuIfDp89YaCbjwztv5sU
TmYHOEhW9jKnRFa1qx7ImHesLnm8UsZjAQAAAAAAVCFU/VUdF+2lmQNUK2hj
0eE+9y/xrSde159tg93tlFrBdKb27qFx52xwi5fl2d0K3r0+2teReI3ObBn+
5N7Ky7yrSUbDDzw3r470WVpogYIZWk71DI5dnZq+H1zPmLch41tBD37hTOL1
mKH17PvO+08zvY75Cjxfceqz7hL4lZE+qyWBtW/48jh+0/2PxZVtmCOSk1ch
52mk3rQsxjlFg3h7SsW9496AZBEAAAAAAEAOdleJXmQX/Mjw3PODPiQ18MI7
eiRVLtVTnsMH6d4o6CiRhd2H9mbEnqQsxjmRy87OlJ272ClXAAAAAAAAVcz2
7HA9txEOlo8U6ODUMlUWVG9UzWHbAvRkFg254/sAcd+oa8MDWUwJ1cSGO+UQ
AY1FAAAAAAAAYtgJ4ic5XQT2JjwPzHL1LacbiwyDnvWDPpDyh3zmGUI78Ppc
z9SfPSRfzl1ImbnDSDIAAAAAAABR8NvJy1UIyAc60alMQ0q6sQg6SuRAcHWU
iS0J0lgEk9ABAAAAAADE8sJnO8bth9ef91R1OE2P+ynvkJJqLMI6nSGohyyW
iH+8BUkV9RKrZVBAR80LtuqT6V8rEYbTAAAAAAAAQBz8LfEy6Z5QCKSxqFw7
rajGojq1zhstJ8iNmSGu865cUkUJZe8ZTJ7Cqh07CwAAAAAAoE74CaMqdupG
Got0nc6ydPCiG4tgOG/x8NvuyiVV9JqM+WyHkwfdbPNtH/TxAAAAAAAAlBPk
s+kBbmO8ehNGcZ9NV97uE/vbc+8davpgoVqFrVzwU0W1zePfliRVRPKGZOlM
HX1j+B3/Gjchay8ez/3LpjUWkTvhB186bEPUrCtNjaHl7aHxm7PBDfU7RwAA
AAAAABwEO08cSCVdtXYYkZv/tFubtIbO4ZsPIyAsqpeDaLiL/+qberdFl9Bi
9S39V5wz876FWdfkYIuu1tgztRjZjQT+MtRSr8GOX5jNPk+W11h0K/RswdHf
jGHG9vN2wkO/ob3flPgE7EgP/s+1PAoLAAAAAACgKtn5xtbICqO6VvuD6EEf
EQAcCPxuu/ouQmn7CjIevjdhaaA+Td81Mb+KpHL2Ik/+2ldfYzz/0ZWOZCaz
dnjuZbZ34hqLtMYz/WeMtfoOm3tpGzn+V2uz/26m8mD6jkk/aH8AAAAAAIA0
9jY85+u5ZopuZwiEEVB98GcVYW14cFdR8ZDQRF+OmOlBQ/oz+OKLtA/jX5ia
2jbHj1kOCG0sol5pHnYtRdLyXGSI6KLfDzsx7ofmIwAAAAAAgDTIVfdAIxsP
1g9Ml6UVGwAUzt629332GtBgHfZFZc0ryLWvLjCaSNM44F7NfMG9+n68iU1f
5TBSQBqLNJi+y7mUWdDtrji7ku1H/e4NuMYBAAAAAADSIMOf9+rZTnPzyNwa
BE1AFRF9YG+tK53Twu5jZ1eDiF2IF97RI6k0bvZBvUhjkcZ4cW4zaz8UZy0C
Y38BAAAAAAAyEw0RfanQKk9wBQCVRWTR3sFuCmDNHy5sK3ryIz4n2Ek8mF2B
oXqnzZHVOB5pLGoa//5V9g/mZJHGZPOBlzsAAAAAAEAm4iFXP1tGpDWOfL0J
GSOg8iGjix+3cqJI+fI5xANc20VkqZ+jeTk3XJt84RH7w2xSbc8/3pA8+sbh
uY3sb7e/7Xk3qZ809d2u1aK+BgAAAAAAQOVCbt4bS/Y7QCkdUB3wyuf0nY6g
wqO70HGxh3pcT3NcYnsB+5H8eie27Hgrf6Gd4JUanYVYKep7AAAAAAAAVDJ7
kYd/6mCbvI0jnjUY/whULuTGgq0tJVIwfQ8RUnqmz8786CH2A087QzlK3kTq
nV/dfSkXuhyFdhTrnkFD6to+3Of+tZjvAQAAAAAAUOnEVl3n6ksZKALAwRBf
84wY2eo58+V5xfvpyB3vpUOpT9QcxYP7OV6MqJgcrxRXaEex99B+hN3yODbu
zzoECQAAAAAAAKAgt/wT7akd7brWCR8MfwQqDnJ3ydnFui/qux3BElgQ7ATs
bawOO2xbiOV4bWzBdjh5eHWj3myvRArtDIOe9RzvR4YJK9tCVfOuZzuXJAMA
AAAAAAAoePYLpiH3CtTSAZUEuX3f1pxqo8NaxubXSyL9V13d7IDWPCpmP4gf
zV/wtrfmOpvUOlgPEc5xmaJ+CxrMSoRhrwMAAAAAAEAEZMQ/2ZEyB9aemnz4
AsIooELgxgaVVvXzytjeciznSBbFw0QPlv+VL/3jx5Kvahj35yqh25gbZjc6
dJ3OnE1IAAAAAAAAAAcZD385whrT6XudS8qOuASAUkD+MnvheEpxNFjxB6Wr
EUXmBmlqL8y9zPHBSGMRT++Q8bVH9wOsE0rEZzMlX2Yhwjk+GrV6qD/vgVmu
AAAAAAAAEkgoo69sHUmfK8x8cSacqxkCANQO+WIRP6M/EE30mpkwlNImuf0W
kLxSzaBnm/sPVNIH63atJf+Rk0U6my97zmt/e+69VPVeXRseUNiEHAAAAAAA
oAIhIw9wawMoI6DsOVhNRLFCWFLpopzJHXLF2ZFSMR3On7jDpORS3VH8UUpR
xcNEd35ZRIaIrqQqwpo/XNiGVBEAAAAAAEAhkJFHxNAxZpsbO+FYAgsroPwg
d3wfJLtrsOMjMz8fhIsI4kSXQxbxrCB5Ttq0D0PLuJ81zSNjPhuTzc3uVod+
8TbbwgZ0FQEAAAAAABROPOy7c5sgiNt3g+DXDZQhJHUKJ85g4jNP4PkBOSuS
r/wTTYxCOWzzxTJeSLHwzEUz66SNnXWtscmdVyHnaaxpwv8K+UO2aSjLLFcy
4ptorUsmyByBqOzfCQAAAAAAAAAAQBLkiquX8VJAkz4sjCaqO27pMKY7M+w+
tDfXp3UG7QTxk5Quwk47Q6+E7xdfcQ+ZDq5oEAAAAAAAAAAAIB0yvurqr0/o
GEzf5Vza5YQKGQ3N2XuNWIN18v7aTgBvY1I8rDt3NET06TOayEUXccpLH6vv
d63GSe6DNv03+ptpxXRsiHgEmggAAAAAAAAAANWwFwkSQ5T1PabvGL0xM+/z
zhDXfm8x1mDGXvtcKErpFzIanLLqafVkGZ/2/sN9bcCkzdYSRcbX7k9Svig1
Ruv71BsuzLrw4Xbqz2uM3Vc9y9sgiQAAAAAAAAAAUBtk9KnvDj7a12nSYRqd
qaNvDL/zbTiKupmQ8c2Ae3LkTIsBwwytZy85vKu5WqLiG0HPlG3w7RZDjQYz
tFj6Rq7e9DwIR0ERAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAIA4/n+iUvlY
     "], {{0, 149}, {1117, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{388.1333333333308, Automatic},
   ImageSizeRaw->{1117, 149},
   PlotRange->{{0, 1117}, {0, 149}}]], "Input",ExpressionUUID->
  "42e885f9-b346-4aad-8d81-a10f863d573b"],
 " with  ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnV9sGnfa79E5N+diLg6XvrDkI4TERaTIspBOrGiFLxwlsmRHjSzkNEI4
ag629uS1/fbEblexU23srFqqbbG2wX0b1AblvCG7GWW3tBs2NWntrEy2pi1R
jFLS2D24MWlw7MQilonB48PMwMxvhj8zgxlg4PlI76tti4EBZub7e37f5/v8
j5MDr/2v/6JSqd78b6n/91rvSNu//3vv28f+e+ofuv/tzX7Lv51648i//Z9T
llP//j9P/tfUv/w49X/zqf9B/u9dAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkEI/M
fWzRN6hUKuywI5Ss9NsBAMnsbMy+o0v9glWNhkFXMAY/YgAAAAAAKkg8Mn2+
DVNRNHVO+mNEpd8RAEiHiH59rq2R+hljWvNnC6CxAQAAAACoCMSLBedpfVpd
N7aN3YokQF4DCoVIRG6NgcYGAAAAAKCCpNS145RWBeoaqBmIRBjv02KgsQEA
AAAAqATxiOesPq2uU1LkSmgL1DVQAyRjC5+ZQWMDAAAAAFBuUN+1Cmt7b24d
RAhQMySiMxOZn7daP3ITtmYAAAAAAJAZtMSnUmkH8PBWpd8SAJSWWMhpYexP
7da7GyCxAQAAAACQCyIRuTmiV2eK10fOzTwB6QHUIIllz4gh/TtXNfe6Hm5X
+h0BAAAAAFCbbAWd5uaM6oBQPqCWITbuWtsbM2vJLuv8GvzYAQAAAAAoMcTa
vLUrYw1RqXuuPNoGxQHUMMTWwsedzC9eP+aNJir9lgAAAAAAqCWS67PnM7Eh
YL0uCLGx+MVE54Hfz27sVPqt1AcbM6MHjo3deCDDfkrsR4eJcURp+/AwNDwC
AAAAAFAiiKc3h3RMLa+lD1+CWl5uEitzk71a7MjY9C/wEZULuidxv9H6dekT
P7ZDzh4ts7DscYbAjA0AAAAAQAkgVjxDB1RQxxMk8cv02BFMZnVNRL+50LlP
e/J6GArkDOmxR3IMPOIaRdS9zkebJX1+AAAAAADqkMRTz4hOBQJDiLTGazY7
7snY+0lEZ8fayC+i4W1vLVlQEuuLvr9fsV8Ytrze0dJALuRaOk5YRqwOt29x
nbNaIZ7NT5paR2c2eM+Q7hGQI1UvtmA3QvcBAAAAAAClglj/ZozJ5VM1ddrv
gfc6F/EV9xmdCtMNuldkLO8nN3zvZvYSel3LItwKyR+dr+lIsWrKw4mOFgzT
HL+6JEqtx8Ofv6lPPd5wLNfztPS7l6UePLH12I9bzfqUqNa2Wc5ddP7N65v3
+/3zsx7c+adRU2tKMxsGnf5onHo0vYppOOR4kOP9bj909TbLYWEiNuYmDjBn
ARhFAAAAAADYA8Sab+IQU71WHXjXtwFDG7Mhtn781JjSX7oRz1M5ndeb39mY
4DiVweqPiXhra8Fbf8Xx6y7HH4e796s4NLR0//uE3Xkdv+H2iexZTcZC32R0
LwvWYjwzbnO4/u6PxKUcT+rZbox16lIfXOfYNX9kM5c4315fwFOPwQyjN5df
ZEaItlv9/AI2fbSJMN6nxVRY92TgeUnXOdx9HO2QOwISGwAAAACAIiC2Qw42
mE91YMizAlvjOdi6Z+9sUqmKqd9KgWNUSIlSi3tF0t8Ta57BBtbrc2Birngr
xfZ9ezv1XFj7oPNuZKsIs0o8rZY1xyb+8fNWwXdCxPyTnU3YQcNv6CpyIXvM
VthlUZPv64P50i4Gt4OOriZmSaEbmYZcbAAAAAAAJEOE8V62aId1OUJgPc3B
ZshxHJP98yG2H13pYUwKlEI+aL8vTUESPzm7Gov/8+ynKr6dMxGdmWjDxA9w
4az11AOetQKPTa93Sm5nIjb97x9gz4ejtkDOKjoAAAAAAEA+uMHXqtYR71OQ
19kQK3ivWv7PJ/HIZdape/74ye9ama+kcXT2pbRnWZsdZRWigEwtBG0FL9rq
TGwvunq1mDQzM/HY3bePPu4u508FP+rkmvcsuTIseUMud8mp7sVhRwcAAAAA
AAlwNsShfJ2PF37rYWr9MRl4Jd/nsx1xD2mx447Q+pLzdXbRY8Ij0p4nzvnz
g/ZgUSVsaoZ4k27oZpErCkamHnjfn9N2nZtEBO+jathd9qCQbE47WDBddtjI
nuAWsWHVCQAAAACABDI1QBASBcmUrzU9riUZ3SHklB8NZXhIrnneZH0iGqtf
WgWZeDl7jvGIFBn0R6fhFd/OyWjUPEkg+Un4rRqygH1u9qXgh/0q7DpJqnF1
P75S0m5Enm+qxxWGEwMAAAAAADFwy9eq9qkglK9zEF90niBVHHbSFX4l14tQ
wddMy15aZKY9Cm961iS6sJecXez32u0ISTUp01NX9tLuythUDo77Xkj6S/rY
RTpbMmufpqPOhyWNC9/ZmH0HWXsetvqlHQUAAAAAAHUJsem7sI+VELpeHKp0
uXj1g61VLXMZk3Y7H5rwZToBI7iJ/Wpedy5JisXb3d3wDrNBIi3D3lVpf072
D2qKN4ekSAZszXSzoriYQQRKYAsasDMwnu2Su3cy33t6lQNObAAAAMXzbHa0
o2Pwgys37wRC4UjkWYw/0oJIxJ5FlkMB3zR+6femQ+OztTTrDSgP3E1wle4d
+BXlgngVmKQaDkVLviIgg681+rFv1pkXeDk7ypo8JGvU3Z0HjkOMwpZq0qBy
AveY9R11W9JhIPv63I8lfW6UwBZhwE7DGM47bAGJn5IAGf9JmpI/PwAAAFBm
lnETuz8sAHb4rZs/wywEQCLEdnCqnf0ZqQ9Yv4XJ6LnYDNppt4V4ySeVXII2
ed9+kCmfakz4ssTnXPUOtzDfbsOwV3QP4N7NIRRIBV7izHFiM/BJb68jILov
Mhm0HyxmHSHirTx197E17JK3UgIAAABlRqzAxvT99rkVOUfKAbXKc9+4Afkp
vWYPSoyCqxOYTGlRPXfFvAAVfJ09vAa9CBSRZb0VcnSzX+8hR0ik9Ny7OYSG
YyJvNk/djco3WZ6p9nc5S92DylmnlL6VEgAAACgrIgQ21mq2fr6wDld7oBi4
w/4gJCE/a54BtUzijYIOvjZfC/P1Z8xvZVdA0qOwdza8b7PfsNggkVKYQ9Jw
pamqQW9+9+pMMBKToR5A/OwyNlECWHI3qOBTc/sUSt5KCQAAAJQTSmAbTlut
I5ZuA0dqawzGgQmH++7ic5DWQNFsr+D9yLRAedPnFA3Zq0dLq3GfxD5DMVDB
17nnpMT3FoXNGCdoxLRJlsgcknk2bpQ0g9ZgGrY6cO/dhZ/XCw9OFw+zGJFu
Vhdkc258H2LEljcIHQAAAJAVSmCzt9REbPVJJBJ58rxU9yOgviGWXD3Iuk3W
9Dllk4jgFrqELEeHIxJ8nQ23BC05ChupvZMcGJ0VCr0rlTmEgVidm+hAtGk2
DS2d/3vc4faFonu7tG0vu3rpj0m6WV0QnpkKWh0BAACUC09gA0Ap2Qk5DiGK
Afwh+WFKo9KT7gRJB19P5uvmY4rn1Jd02h2VaH7gtEkKLhBKaA5BSPzinTgm
op+kQW+Zml0u2uPOLkaKWIgIwXOJYPvG56AdGAAAQJmAwAbkg9v+Bv6QQvzq
GdhPfUol9x5kBV9nw4nCLmJYDPPmKYVdyMVdWnMI77lfLvuuWfsOCcts7SnH
wovi3gDTUilyPI00eC6RfRd8Eia/AwAA1BtEIvJPu+Wg2uKOVvqtZAECWwpk
pW9f59iNUKy0/U01yvZ9ezvS31jEEJM6gmk3LnVGH+nH0HKCr7OJ+8abmK9J
8jxEJGCQPoL8TZolN4fkYGdr9Se/F3dYh00GbT6JjbW9N7dezFnMbsrIctlk
plLSGMZ9z0v/IgAAALVAMrbwmVmLqbAj52aeVF8xAgS2JGIhp0WrwjSd73oj
oBUF4PlDJAS41SHsOEILHimh9WAz5Dgu7MfgDIspwl2cXPO8ybqw88YMymMO
KUQiFgn5vX9zXjxnaeOJ7aYuR7CY/m2m2n/QHiz9OpvrhweXCAAAQG5YdT02
/UtVhkjXlMAm1oO3bvzFaf+j1Xp+2GI2mY4ZNKkP/4RzUTjWIBH5xmZuxTRd
b7kfFbrtEi8WHKe0ZAXs/DRo7ELw/CHqVtsPyuxvTMaW7/u8X1x32jO/Ky7m
gdH3rFa78/oNz6z/4WrBEGYi9suD5ViOR7BhziUU2HTwtRg/xorbwozaxJpt
AanKkePiVvW6lrPPITnNIWJIrIWmL1r0iHotLqaDEdgymLBTEBHcjLZrgksE
AACAT0Zdq1r68KWqVNe7uQR2Ira6HAr4UwRCy6tyZMnKRTLqPp0jSQDrE6FY
ns2OZpLGBJcbmcgC0NiF4OWHiAmXqCKIxGrwNv7J+EAPuUaTCNZy9PS4w33n
R47YJjYWPR+aUwIvZ1K0HAI7sYT3tRR+qzmRMo0xAzuvXJXbZFIOc4ggRCKM
92mZN5pzISCEzAKbnTeURr6xngAAAEqESKy4B3WpK3lj28SdQu7HCsMIbCLx
POR1jPFdi5i+e3jyhv+xMmL7iK3nZMrg46XvP7MwlSoxO7kb3uH047H91nlh
0ZyRLlj7B/Mb4MfOAXf0sxyDOeSA1NVel224W4+oakxj6BkYJUvUbu8cufKk
y9SJ1RD1D36f143/xWm3jg6YOlpQz3lKg3UOTv41EI3TXRj0c2Jtf5yPlUFg
J556RnQ6i+06LoK/OIYRO4/RtSz1fGctLimajK6fuU9QfnNIPijPTPp9FtVP
KrfA5hnaZRjLDgAAoFyIjbvWdrIKoTZ++mNVa1NKYJ/4ZMZjNWrVmo7hKbcv
9As9lSERWw54LvZTUkOnsM4+ZqKxqMl0xMvZc5mHi+0qIta/GdOnFCSm7cOz
RuMBPCupbNMJS0Y8GvhyariLqbljLcYz1k/5VWhh0qXv86ZWVqJjTZom+p90
neNfLuY8j0rtwSbWpkd0+8yuR+Kea89R2ByTCW9WjhzmkETUM6I/fnVJuvRE
xuIctgUkTq3cRQR2EU4aUaCXI+rnY8YjVX3uAAAAlAtixTNEdYJr+12LVb67
l8kuwNoHrwbWc2iJeGT6fBt558e05s8WFKKxkXvo/gHPrwKPJp54BjMGUgmO
x+TG/Aft5CejNToWpOaa1Tobfms7ohHUB+33q/SnQ2wszV59z5zRw5pDfdb/
9Aaje9a4ydjSbbulFfkQmjon/bns1zRMikgRKXlZ0MHXXY7Qtlhlttco7N2X
Adth9ljRGrgs5hBqPHpxzSOMQi7mMOVOESHh27CVsfsDACUhHvFdPkvuIWKa
jrN4CGYtAShbYXyAslloe5yhqp8yTt/WDSOe5byKgljzTdC3FEw36F5RQLU2
EcH7Mjco4Wg4xMwgsRGP+WSwLut8/pDhOoSTSqGSZXhKCYhHAzesGWmN6U9a
8R+iJft5x6Pzjj491zFSKH6ZqQDvPQebWvqpj9oCUpzUe43CZiZR0ouJCV+c
PlB5zCHxeet+rDiPBrHsMtJvsqhYG3lzsGk4g3tURQUnAoASSa7PvdeG+vOO
OhfBIAWkIbYXXb1UE42k8lHl2AjYThyd/Haj4DslVvDe9PW+pd8t2Z5ZdpCx
F8IGbMSTqe7HV6QtiTJGETBjc+G0vKmK7CaTESIR/f7a2Gv05o2mY8Rx+1H+
2nIRT/9iwXmatXFrmluYTkndGfdKzhVf6SY5igm+zmavUdiIi5yENrrIlRxC
l5GLEtiMAaOh3X5f+o9S1kmODLw0bLBhA/XBzkPn0SYVipynGaAw2Lb9w1Z/
DdUciDBuzjQ/HnjfX+WxUVR1i36zggZsyqpKP1h9wPqtdEPP9greTy0+Gttt
31W5H6hcEHHfRFPVXiTJNA+rkY6S0B6fKGXVmnr62AN85DC7vCCr1mvULMV0
SUbb/3kuSy1TAc7uEJQEtWDUDrkjEsUjp2paRBQ2rwZO1eHlSg5Jb1EV9bPK
5AVJX01TxJecrxf/EYlle9nVi55AWDUOKQOAUsNdpZO//B5XuLrlBlAuqLb9
QvdQ5YI2tlfndj8LMt9EZ3GvFHzsRsB2NK2FdGe9xRkdSRVByUnsuCMEEnsX
ESFVJw+I2H3XIGWcl6Vvl0hE7kyakEBoxjtEPHb37WPEZ85GWubesoflCB18
rRPd24jCmMCLfQ+cm2NKfy7IlhxCGbBVRXTOEonwNTO5jGjqtN8ryun+wjd+
kF1ByEXWEjXv7B4AqCF4FWzwXgIMm99aD9AloNoqX5NwDJbFxOSWD3SoXGEr
Ka1G6EfuZRebKWKr1L14haZoVBUZ/ZO5SsoVtyCNZCzoGjRQ7gBt7+TcSqll
XzK26B5tQ+IfOOOlOLMOc59Ba54B+hFFpOTRbC04jNpizWmMR4X6JRdjMOZI
9IYjHYdkGivDbFFJXdJmdhiLD3cifnYZKQEgd+MhZztAJaaXBACUT+oq/eeR
Dl3q+tHSPXbF/2v17HwCFaXGVRanOiXLjOBSgdgX91v98fzfxHbI2UP7XtT6
t76K7uUrY9dWhyZ8db/i5rdoiQhykR0kDMf00ZyI8UBE9J+T/ebBqw/E1TmZ
qVIMzWZnEP1b4TOImTBSXLky8cv02BFM1djl/KmoXyB336GYWEWORCd7ouUZ
K4NsUUkJyUx/PnubD8XkfxbVICkB/l55te8bAgAAyAUrsQ6Ozj6r9LspPZzr
fTXHRiHqrlClnXgemOxOx0d0fhTYq1Ugvug8kX426HrmdzgWlTZcQjLT7cmp
T2O3IqL0WKYVTlQUW7a6zjFeCpGF+RwYjBFLaojHztbyTGaQTXGtBKTBbXYc
mTVTjMjnBonINVaGyQjCNC3NmtRHPerOHS2OwBjj9zh9NZP/WYbYSc52QFUH
XQIAAMhIcs1zJh3IVf09gDTEi9CNP5gNOk1bv/XmI8Hbea6IgGqEWHJmzOJa
M56vPYKpZ6pU+rOeUow7R4JWas8gJA1OorKqyLThksGq62az457oqJCMVhQW
2NnqOmdZleuqzS2wiVeBSSo4W9PjElE/JjaW7nzhcnwwajnEbQzSdQy857g2
HVwXOklTF4Hbf8PJMZQXznCGV6Zo0Jt+96HjKjnm0X13WZShAj1GecwhJLQB
iYrl31ij01qoiMVvw7Fcn+lW5J7nIwuZl9hoGPzPwPpe0myYIn+HLSB3PC9v
O0DOVEAAAICqhXXmKyZPaWfReZS5oWInXWGB+GeOwK6sZCqEGAM2oogK5RJL
BOliaxj01LFNhGM2zi8my0KR6nqXtZELCOxsdZ0vsHEr5OhmH5TPYPDqB1sr
+eGp+9zC5orkj87XdFhLxwkTj2MGDabSnHAEhTYOqGdQ5XqKDMc7Who1bX+Y
XRd1vmcipuUyh5BQJg2kEL39PHTT1kcvMbQG4+nR9yYdLnI8/HXnxYlhE/lR
pBYLZivuf7zXmbrEkquHep3WycAruc9wfpBIdRvzAAAA5ICpOxUQddUGTwUJ
dsRzp/dWR9NaLhADNjvqAoVVRFjb7/BQidQ1CTJsWsSCpXZBA2coim7Z2yuJ
6MwEtU9ReIRiDog1zyD9XRYS2DnUtUo7gIdzXQG279vbmaEz2L7xuTwujozX
SD3glsVfITOv7juONrcYP5jd+yTMfKzeHGwb+Zz/ISdiy4HbuMM2Pmyh1xeq
hpaO4+aBdy5e+bsvFN2rtKbI7FIVF6At+dV4A9NVDW97NxRRvAEAACgVL/zW
zIxguTtfSgfXUy0YCcsppwiGS1cMxICda0c1HvG+20nefMV2ukmDSYFQNR11
PlTID6Hk8CJEKvVrYUY+FTF+dCvsstDfZP7qey51jXVMzK3meiVi0/8+Mjgk
d0xf+qFpFafrzWtwAirCq7DrJCbqalkaMn5vBqVUbwAAAErE5tz4vvSkEgX1
oRAR3IxhGkO3ZWTyRkCwWIZOFiskDyoLYsDOylJI/Do/9QblFthvtE6Ht2TQ
v2jWsXKWWiWGyTHLiM7KbHcwETH68yLtDQzI7KF8+SdEInJrrI1TX8yODcnx
ZuhPRCBGL71gV8go2LohvQdRbA9pEfCT+g6MzoILGwCA+oHY9F3IiKp2q7+K
86F5EGG8Vyc2UZBdRKjU5mtic7HKDWLSUHXZg8xtMBlbmrZR4z8wfb99NlyS
/eJcoEFn9Vpu4seLyTrwLh+bj5xUGbiYOQXI7KE8Vh9i/c4EX12r9SM38+ST
bIXxAVZeq1pHvAL25EwRuzbziJRJcs17lhwiVq7yNQlneH2lTiUAAIBK8dw3
bkhf/xTmkSM2A5Pt2IFBd1iofM3umKu0/a7Fqh1WuOG3tqe/i3TIGJF4Hpq+
2E/mI2Ct5g//IRjntUeQKDZxQRC1Bz+jrwJlN+LpzSGyBK3Wj32zLu07ILZD
jq7M+889pXf7oauXk5KiytvYuIs4VdIPFNf9FyNnIEIRu3rYDjq6UmK3qcsR
LJe8zs6Tr5KBTQAAAGUBuQZiZlxh49HpLGj165PfFpiXhHhNsSPnZp5U7yHu
PHAcShew1aev/xiawyeHOjQYKa2tuD9SlvBEpOgkKgii5kBcOjSyTpTOSaYn
oogcZo6XY1+f+zH/CySezJw7wjVeF1x1UqMV2Ufqx7ziuv+IjbvW9kY5w+4A
8SSeekZ0ZGD+xwuy7X7lgheFXcXNLwCwJ4hEAtaOAB9ETijJgM2SeDxjfV2L
HbRc/Cr0PKs2k1gL3bQa6cwN/enLgWdVnWvAr51imjbL+GVvcLWcN8UVt0WX
fn2F7WiUBr5DpOwjnjMBIEUUG2M/OkxsxTBHoP3moqtfq+KRfw8oMzowo8Ml
ZUImY4GPOlN/rDvrrdqhTvUBsf7NmF6twoz2hTIvFfn9wuLGHgGAQkgJDO/l
cSbGX9NmGnV4Q2tyyoxEbPVJJMVqrtB8oLpAw+5KOcqW2HoanPnzxbHfdrYw
0V5ag+ktm2smhwwW9YzJRDLPvZ3YWPJeJAcxaA5Zxv7k/Nzr8/v9Pu/nzg8G
OyitqDk8YM8lv6vsiJKhy69pMKyl89TwBbvrK//D0mRzSQSNO0Z94HUCaoOn
KfNMou0VvJ+KUjsjcdgosbXwcSerhlv63bxwweTG/Aft/OJ1jomNmedjIrjp
1d6RselfJH4QtJ4vIgUFKB1ExPuWIfV76MOXyn5H5s+aqd/WaaDmIGL3XYOp
CyqmaTs1dvHy1Uu/N+kbir1U5iOd3vnh6IC528Ct/JCvpB2eXi/NCwFy8MI3
zgQplahSx8jdfGiOjX/xUFKo7y6x7O5vKexgoQWwfWLYkv4dag3dvQNjH7m8
geU9LvUqdEQVAlWYTUbXz1X3BuWFOyxbVfYyPhHGzaSqbRj2Suo3zlgy0qh7
rjzimJ+JxIp7UMeX12rjpz/mXMURG6Erv92buqafZ3VuogOTPCUHKBX0Gkdy
jnqpXp0fKV/BmU0AUDqI2D2HuVmFHR65fn89XT1Askz3vFtEbD32f/HxWf50
Wh4gsKsb4idnV+amnO6q29vzxR7gI4cL/iRoJN1w6d9tedtzmNeuuSMSBOlz
rEPPJHdeYfklwYZ3mFzeSNxOSuvYDOpe5yPO1gMRC0wZs7wh+WbK8GrXe5wW
SvtMSlnVAUQSj0yfb8Ma28Zu5cmHkZus5Wop7jIAUGGIFc/QgRxlh/TVm7oG
F93BlHgawK1mtKCnaTONfEhtzd8LLUdYnjyvxB43IBpqaG+avW7eEYnI11bj
fmEpmkb0liUVx1cJJ2ftHZE42HEzKlWXs86SRLI2tcsrsDOrG0nbSfEV9xld
gd8hT36zh2boZkeKmy3D5632/3tzduZz6+uMusbazrkXN/b6E0iszE32akFj
lxVaXe83Wr+ukLrezSGwy224AoCSsx1xD2lVWqNjgV+eQLuoitn6TMYWPajk
wPQnrfi3YXBbKxM0MAGzuKN7eaocybo0WkPHb7K8Q/R/yVNA4z4xVewtz2xf
7gvX3BGJBW3zyz2uvYapsGs0/dmr3xRtwE6uz73Xxqrn7J0UnvwWT2PbCB4q
VSwksbH4xUTngd/P1l/bbGXYmBk9cGzsxoOKOnPQHh8aENg8Xi56LlmrhUue
xTrbsZQOPcYrZyAPuvkr/afOjGlmLr/XF9arVCMAYkCV1J4KdbxkXU3noM3l
DSxF2ZXXztbzxyG/5/J5M2IqwnQj0wJTNOhibzmHI9DU3hFJAA3XqrcbIjrx
k6K8uQeZ6dIiP3beNTlbXfNSrDmoO9+5PnNvOfZi+Z5/3vtJXwtXCql0neNf
yp27DtQ2WZk89Tq+Kh9ZH1BlAY+8EPFF5wks97CtRATvQy61Um6dxIug64yh
UJ0EUBzo/l3WYG4JpIdKkGDtA5e8BVM12KGE1ONPOBcLbIXTxd4yzvZNU3tH
JAk0XKv8KdCVhZ/cW+5gMfEe7MSv847/zS7uNK9llyuJmH+ysyn3rZTebSFi
y/6vrr53kn0erNX05snMpR7Tmj9bAI0NFEuWfqy364kQxC83h34josenLGC/
Gbr5C8i6Qmx+az2gVrVPBbPnZxGP3X372A9TwuZvPOI5q2f/srHdenfPtjyg
4qAt3kUPsWXDwbC23+Ehcc1QbL5uQalZmWJv7R2RVFCbRCnDG5VApQV25iqt
Nl8L57XOJmMh9wRr1cO0Rqsn2ylNrM1bu/Ldu7GWI8cM3LZHTdfw1JeBaJyN
sIarPbA3QGADNcTOxuw7ujwzjomn7j5kD1B0DBQvXrX806CUChW08ql1+I0O
OjkZa+kwDY473L7F9erYhUF1VLHzoDOT47C289MRKSl/iSW8jyqT6t7JY8us
ULG39o5IMvEl5+t7XnnthWQs/K3nBo67HDbSGXh+2GI2mXq6T14OvpL7ylNp
gZ36kQQmqbTqpo6J7PY0IhH9/trYa8xbJLtg3Dl9tsn12fN6FQ9M09Ks4f0b
g2nY+qn77v/jPklmmqRKcFMGAPICAhuoIai9XeykK/wq6z8lnroHEH19cHT2
mZhn5MWrqrCjtoCkfNa6hNhY9Hxo1jeSk/gu4V7fvN/vn5/98oqNmnytqmxn
N8PenQDJNe9Zsn9Kd8a9IvkWTDy9OUQG8+apkRJPvSOtZS/21t4RFQHqHWo4
5HhQ9rY0ZJokSjn6DSsusNGUPEzTMWzHp33+B0uL93zTLttgJ/LmdJ1jN/I1
IWZ+ily0Q+6I2N8e0rCTu2IDAIKAwAZqh/i8dT+W+zZELLl6kF/6vgs+/hTd
nGyGHMfRy3TDoEegh6vuIbZ+9owdwTSvjV37PspX0Ttb4ZtjZDaFWj9ys9Ia
G9USRV33dh46jzapchv+xZAeWpdzM2Vn0XkUw3SjM2VdztXeERUDJ1yrEm0v
RCL2jAr6XAxcG8mUYdUH7ffldwPzBbZ6wFPU1s7e4Pe8cMH03Wcdt5fyGzeY
zRQOOrPrkYSvEsnwlDr1BgBokgFbM+dHCAIbUCyxb21dHb/9/OdsfU3d3Nmb
Rqvth+wadzZ0IAl6doz7npf+bdcQ9HyfguGxzLifolVcqdijwCZeBSZbyaEW
+ErRh7E5N74Py5UYSe1QY8cdoXKaKWrviIqj4gKbgYj7JprSb6RYF5M0+AK7
codPJFaDXtdHYwMnM0nVA6MfOnDv98sCXYdbYXwga6hM9mxHIdDi40F7EDod
gSKI4CYQ2HUL8WT2wrEKp6Rojl2YfSKz0HoZtL+GvORr9qCYtMN0OY6ldTIg
uwdSySSWPSMGYe8uvdGgUmE9rnAlP05US/S6lqX6FuiZd3tcc9FWz3arn1Mh
I1bwXvXehG4x1N4RFQfxcvYcYwurqMBG5ipKiIbeC3yBrbRZlsT2oys9vLw9
VY7ZjsKULMQTqF+IZZeR80MEgV1PVEcIoexXr1c/2FrZay521Lkoxsq488Bx
qKHA287PvuOuR/U3TmDzkbNXrT4xdV8wdyJzE6/w3Ng9xh2/DNgOY+2TAVFe
o3zQRWOe0ZdeD5Z/u6T2jqhIqkVboca2Ms2UrAIP9l7ItOhy0fY4Q1LXz+gU
KlWzLQAVbEA64MGua+qigk1s+i4g8XxiO1aICG4uMp+xDgU2XTgSNyybXblU
dopHdcwToayeHKfrxsyoDsO6HCFJO9rVg/KPqFoENju0vTwG7F2FC+zYjw5T
VvUa0/bh+RP/8sFpit/jmFegbgGBDdQ6z2ZHD7I/cPWA+6mYG+bOhvdtTv0a
e8O58DgihtX6G51O5RuLdTmmZ0lUfOMV1RJd9mClvMFUZARbIqONSbpevKL2
mT2h9CPiDDiuoAkZcaqUrfivXIGNhlcjZOfhJKLB27jDOmLpNtCHmmNPkw5s
T1ORJBmgFgCBDdQ2xJpnEBHKomNA0CxcCuhzyQvVtyg2wJDdUMDMeKRaPNgV
vO5R826w0+4o9fOiczzyRkkrAqUfUZU0OSIG7BxNozKhVIHNz1PNnNdveZlr
TDK29PXl82Y9X4Q3tk3cWecNWA9OtbMP6LAFQBQBxQACG6hpePHX4gtB6BQS
ksrEVSkCunwtsn+NDkMmqXhJE00bruB1Lxl1n8bSJXSljGIpjNKPqDoEduq0
MqftxGVciipTYCfC7sEDWeqaHcJIxB7cYMbTaA5Zxv505eadwHKuATXko1c8
Q+yzie3ZqXWqfnBYNZIlsA/bAopqGgaAAvDirw+87xfbwMUT2Bi0ueSDikAU
uXJBevwlfBcygX7FlSwsUBfhg+O+F2k7k/Inxyn8iFCBXZFJjhSMk6qsFgV0
+pJCBDY7mAaFsV7HI3MfmbRUbJH+pBX/ISucn0dyw/cuItYrniZaBShjcFg1
kiWwK9t2VIW8XPRcslYLlzyLsPyRQHHx1xQ8gV25+2y1Q21ki1TL2w9dvVTu
PtYxMbda6Ssy+hXvH/D8Wqn3QeUVkD8w4qm7TzFZdoVQ+BFRFpcKn/hE3G/d
n34P/MxDOeHv3JWjgp9YDX33cLVIhRaPTJ9v47s+MK35swUyLjvzX7GDFvs/
xYhAntVEQZ25MqGcwWFVCL2XBwI7P9URZMcAeZxS4MVfdztCW6L/lnej0Vnc
K/K8ya2wZ7xT06g3fzy/LlAjJzfp/vHXG/+4J1SE4f9d4vmSf/raxbEBM93X
ozF0W0asji/94Y29/pyojWxRYbmJX6ZTF+rUq2NHxqZ/yfe6xHrw1o2/OO1/
tFrPD1vMJtMxgwYTVwIlEpFvbOZWTNP1lvuRiFSu6ihU7tLDCFJv4BHVDNg8
6JE7Fl5+lH1E6LlP1+GlkjrjHvncn1qHLd0Gbep0Mw5MOL4IIKdtMiFwCmcZ
sInNyL1bTuvIqY4WTNXQ0vHGiO3aTGit1LeDcgrseMT32XBHxqaFHTk3I/V3
kozd/8SYnRvSNjETTZC16PkP2jGBCw4HYm3e2sUqIqzLOl/Xk3sVNTisCuGY
zShAYHMhfrk59Jsi09pKDvaboZu/wG9YLLz465xjTXYeXT95+Jjzxyxpy2ty
lMtCQJf4KARv5Wu+cbrzRrzaT93oQ9P2wTZyI09L7e9N+/zzPi9+adRIbaru
N1o9iwKT0QpCbmQj5V9iY+n25fEBE+LTI+evufArVhNVu9a+MTX/a/5LTPaS
n/7y+kRcl5C4GFH72mhQTEUtQKQcxZr/6HQorBkwP8o+ol89A5nisbRVOUXi
V/+Vt6mtc13H4Ieu6Tn//Ix7argjtYjuu7IQ244F/zySUpWF9STHgH09/HTe
OdiOkSPC7biXekL7oIEqzPY5/iVxuV2Y7WVXL+fUk0lg5/R1SGskJxJhvE/L
u1pgms53vfSgq83vbGQtWlx2KEl8xX1Gxz4Va+GuUxQ2OKwKyRLYUCEFagRe
/HXulrqdkONQ7oxZzjQ32SqcaCCY0K2c9WQ2GV0/i7iSxSNzH1v0DdRN59y1
AC+dMB755r1O8rWZ7VQexFboy6lrgeeFXon+lF53LqWvwMmg/WDqCbvfvuSe
mfX8Fb/64UAbexfF2t+deSpUiCa2nj+JRCKPl77/zMLEv4i587KfD7bfOi/G
8psM2JqZu2kFJ9ZRcccNBkOrwpoB86PoIyJ+cnZlTn0mC0XcXyYidybTC8ne
ybkV5IxLxh79ZUDXoD/70YdGjfBPjv0xq/WnBk/pG7XkShiVe6+iM3+grBFa
41QgT7deEZSn5papLfOQID9SH/UtypzAUdfIpWwz5DiOSQjBTsYWPjMjcl1t
/OT+XioPikdxg8OqkKz9IGjlAmoEMfHX9D5s7hQm7qAZmQT22uxopp+macIX
L3B1QgW/iE5ktkCUTz/vpi+h1GN0Qzeztveo9yYwP45yqyLqdyf819/q+eMv
sZajp8+cJAtuqmaz455YMUDNKxGtfosKDY66LcxXXMFmLtaHViuBYIo+ItQW
KOGGiEg+7SnHQrYsSa55z6IF0i7nT/m23REDNvnItlF3jm0mJqtZbEKmqKOI
+yaaOKevDAJ7O+jo4r4IfZj8uLy8bzKXum5sG8FDzKe0OTe+L6WvjztCYpZ3
/CcULtvWOEocHFaFZAns6m8ZBgAxsCUgEnWfO4c/jL4ytE4GXuW6rHMTSJrG
faW/4Cbv2w9mRrUJxAAijVeCobjEmn8y/dYF6jD0bYjksNXPNaiQG3+NAvEF
VK2Pr34TsdXIUtCf4vvg0uPM2J14xHNWT77QgUF3WMxVmCqG04joQCSeeAYz
1eh9F3wi80nIEnZGYVdw847R+YccIWWZKfKh6CNCll3iR/gR0a/PpRXagSFP
np5OjmmtQOsiYsBOLZB7XYu5++xYO4foeH9h5E/upfcWMe2RI6z5UnQTYnap
mf5zrlUm7f7KfdnPfkMx/2RnE/ts2gE8LNEXVGMocnBYFYKazaRdTwCgiuEZ
PPb1uR9nXSmIV4HJVlVDu/1+noY4boa2DFKBClugKVDOoh/KejJVRtdywary
oqs//VC1xSVwp2BL6NybEf3hCJUfSSeAaEM4o4G1Q+6IYA9iIoL3ZW6irAUl
73OzVnZJWTHoBbBy5RfSsayqqYFxSj4ixDgkekA5E4+TezOI4YVvPLNqVL/p
Wcvz3OjJrj8/m7/3mRXDBZ5NIsSyy8gRr8W1eRbgZcB2WKVqGfZGE6vB2+6/
eWbvLYs1Y8QjMx8Yueoa0/fbOW6c3cznLCYaiEhEpic62Y2Fuq9d7yp2cFgV
wk+VhyUIUBNwnYQ5/SH0xBN1P76SX+xtfms9wEhs6e1OAqAGbKFR3Ygns+BN
n9ha+DgzL7ipyxEUErLIe+B8Ss994wZV+1SwUAWDXsWI/1iYVY8YDYxIX2ED
Nu23pI+i4BfKBy0VVi4KOy1HS/4DqxwKPiK0zTYlAldF/AljtVIJeBJQ5VzA
fIWc7IXPFKTaXLpfL3fvTwZ3HL1vLv0NJ1bmJnu5fZGNhkGnP5qth2lhI2il
S8aCrkEDU4lBGiTrGaUODqs+0B1S6ucqUEYDAGXAFdg5is+0EBXswEquz57X
Z2S6fuwbcRZBkSAGbAHXB+rJPDA6m99LgpobG86IKWohTgz2mYm16RGdtsdV
0H9Nu1b2W/2FrOPcw2CKY4KaOdOZrhJhwKbeLf1gqS116E6HyNbR0pOWSUp0
U+RByUeEFJlFZdegPz+hxG+2raDQMhkpoRc82TkxOKXLEeV7REq+DUG73Rra
bN+LXn0lY4seq5G7267vv+h9lKehgxbYBTU8sbHoPocEaHMt3HWMYgeHVR9I
GxFFJactAEDpQG89uezNW/fsnU0q3VmvoAQlVucmOtKXYbGxqEQi6r82ecm7
XLAYghiwhTbXkEJroVgDtIsK2zc+J0pqpouNKmR9vU3GFwvqc8qA3TDsldBe
xb6WgB+DSncRqRw2ArbMNCExXygPKu8irSQkHUvJoDcRFOmmyIOSjwiNEBG1
QEB2T3Jb0VhyLmazQAJCBYwfaJRoCevM/H3tUrefENshBxk2jR0ewR8ItjwT
sZ88H76hRwuBmq5hx9dLhcQwPY8yn4ZPXZ+/v8ZMTk+hPT7hFn4n9YFyB4dV
H+z9jqaS84IBoIQgptws4ZSeeGJ4yyvOMsZMSFHlywdAH/w0gF8gXYLYMftC
ocorYsAWlCKIX6LATZ/TlSk6SQNZZacdYqQxplG4FExKU61Z0rYge8EpbB4Q
n16IlFAKNJcVABVU0mJ4S8WG39ouKhlGMSj5iKSGPbJtwqm/OOkKFzB0iFTO
yMkukOGDjjUvYXEMqeHTlD76YHPx+hClmTFNx5Dtypd3QqtZ6+34avD21fdO
cqV15+DkXwM5PCE8dmK+P5A7j1j7wCVUiidj4X9RmeTMk+o6x/4s4glFovCp
YbulHxxWz6AxsBSQsgLUDLEFuzF9GWVzQojEeuDqYDsmKS9ul2v/w9oHL88u
PucZfXe2VkNz161mKqQOM7zp9BcYp7LL1ZBCbUSsBi5000cUu5RIUmRHmBLY
lKFUuA9RqgGb+hu2f6qw5xwxzxS2oGyHnD3016LWv/VVtJgaCmrDFu6mLD3p
ZIkauvYq+IhQL5aYJSo3bF+g4o3o4QKPFGcjIUG2wEq6nOHN2JIpvJc7xjFN
Q0vHcZPpBDn+kgOpwyfxu2HxFg7OIBtMYziWngnLPmWr6fzl20ulnCSj+Klh
uyUfHFbPcLbRSQSSeAFAUbCV5wa96feXrl6+OHaKvDqlFLLrvvQNwXg0cMNq
bs3YRfTdZ85b7c7r15126+iA0aBJ/+uTVtwf2RLcWkY0pFACgLjAOs4MRKHQ
PwSOwJ7fIoejaUR0R1JVSmlXDDRit6D6QpRDIdsG8Tww2U0fMtb5UaDYOwti
RxHY4peD9KvXUHu5ko8ICcMUFfaIPF6w4o20FRQwXSAnu0CLJSeoXzC6UwK8
CKbSPjnvpWLhu3+/cvGd050tOea3atpMwxfsrtvB1eKWvSkNf/lsN6cEnh5b
7/6XBK0uFqVPDduVZXBY/ZK1UBWI/wIApZFYC3kdo6a2tITUHLKMX/aG1oq/
8xNbq8FvXBffIdf07IVbazCeHrt4zRtYjonc70OrTwIbwSID69BMeyn2V0Rg
N5y2/UdfC9b58cKW0FFQEeISZDwJUisuqMyRUnwBC0o8Mn0+3aOkP+vZS+8/
Oyih/DbszGci8BtQEEo+IvaXILKFYcVtYWqwAnoYWceJWyYLtFhy6mOlTUjj
7IWJkYulJP4ssofrcz4Sa5FncktBpU8N25V3cFjdwbdayTJKAwCALJBbGCa0
AYvsLBcyCaP3+sLhA1x4oQGY0b4g3IhBVc8khg4hFvGCylxMIQgZNiHoihcG
Uf7yFetykvlMKjmovbQo+YiQszJr7lJOOCaNwv4ikctkOiOaQuC6gMg5lUYo
8Eci/PQDKdeTukXpU8N25R0cVncQP7uMTchJBBl9AFAeUA0plLWLZGlyL33x
1eB3QbY9B+39l1Jx4gjs5l7XQxEp0nT1TFpPNBF29aSPo3nQ8yT/pUawEMSq
a6ztd3hoj+qa995ERh+Xhoxps3auvUo+ImSdJZAAnwE9dwS6HpBlMkc5E4no
g7vBaEaiIPtQhVsL0ebKIsJzCgPaQDqKnxq2K+vgsPoj7htHz6HSD2wCACAn
aPVJoLEOuW5zL31kwaQJKUqgzymlvwwxSIje1qdjIiQJ7JdB+2vpVymcASVQ
CIpHvO92km0+mNb00VyppkIgk9ZLOHVaCGaXv2auvUo+ou379vb0yGexBWF0
kEThDse8bQXkaYsMUGYFdkEP+87G7DuZ/Sox86Skwt/drlCCpYJQ+tSwXZkH
h9Ud/ImohfJ1AQAoHejOssB5l9cvQQnvdqufue+hLRWSAhyQ0rfIPK60Jpcg
oojI5/3pAcetI978o6QLF4ISv85PvZHpl58OC3eSioeaDpy+N0maBbkXqBtf
TV17lXtEyA9AQkFY7LmD3G25TW38ZTI7IauQwKZm7aWvH+0fzG/I2q8nYvkA
KH5q2K68g8PqjqxOYfiIAKAscHqICl+N6YE4ab2J7kFTlk5u0AHSRSW+ChGP
zv9H2sws+iKQiS8Q3UqZWML76P3xxraJOwWnYaKtW2ghKBlbmrZRwVCYvt8+
GxbswpQMK1rkKAnmglln1Yx6Ue4RsROfG9rt90V/+4iZtoDARuJueE1t1DmL
7t2z6it/SxSyFhA7+koyyMWEQijpqN5R+tSwXXkHh9UfaPordVmBPSAAKAe8
6lCvaznP/ZxYm7d2sVElqFuPeOzu28+/6rISUVzcXOLZwvXftWFqjYY3aSbz
fFsvX+YIRaE1cEtHR4uogV9sWGJj29itiEDKCm0+QRcUVPrrxX4ybAtrNX/4
j70GveYF0S1lGfvLrLNqprtcuUdErOB0BINEQyntbqXIW/pD4m74mupV2HUS
Y1P6KRhzdR6/FhHzT6YX3c1mZ1CudA++g1SZY4PKheKnhu3KOjisDkG+ZeqK
KC6MEQCAPYKapVV5O/7oaCaszXTiN+kHIiWynUXnUSw76ID17GFdjlAhx932
89BXFy0HMax98GrgWehyetY4evffeeg8qsmVZEBp4H0X5n76a7+2qWBFmhnr
o6JMHV8LqWuOIVx9+vqPoTl8cogcu5aS1mS8uMyqly1j6nol3WiKgVlnlXAG
X2VR7hG98Fvp7A7pmxfEsruf3p3J2URGq+umIyajnrNspCBd37qsV8zMXs85
FzKx7BkxpNW1vAlpPIUAfY4FUPrUsF2ZB4fVH0joPXw+AFA+ONFe1HW27fw0
t1mPiD3y2nq11AjaV0xtjal0JcLuwQPqXjzXXHCmXJanXJzYWA78wzHcpVE1
6C0XvfQgM1YkMKWS+Ir7jC5nWBmlgakNr0R0ZqINa2wb/VuIP9eSSMTC8zgz
13LIcUecqSPqtnDGQmCaNjK5PLhaektILohE+JqZ/rRlL2Jn1lkC87UVhEKP
CP3S3/VJ9jMTiRX3oI7quu11LSKrWmIrPGvv12PN5qm70U3GT8s0NW+F8QFt
Tr/31oKDHM2H6QbdK+wpjCxXscMj+AOZ84fRXEES2OPOj9Knhu3KOzis/uAn
yYtfIgEAsAfQU09tOHKYmt6L6U++5/xydt7v903jl35v0jdqOt/BF56lE0fT
mrnZZPvC57t1efgwpu13LeZbEccjPseAoZGeL2xz3fL5/f75Wc+Nqw7rsImc
QazrGJy84X+MaFYiEbk11tZIDTK4OP3tjNs+aMByl8io989YUOLReUdfSkVr
DlnG/uS8juP4dZfjg9HTR6kpPA0t3b+b+uI7EXMt0yRDl1/TYFhL5ylygttX
/ofR8ghrBGZeg8xObOXalfOh0CNity3axmajRf3ckrEQPkKfPsbxq9NzmbO4
AekXILZCV6hmB0xrst30/dNzacigJlfQuXQJkYjenTI3kyNoze+STzg/43aM
dpN/jqyLZYZvw5bS/lZfKH1q2K68g8PqD36PsMQPFgCA4kBPvf0DnieJ5498
7k+tw5ZuUvpiGkO3ZcTmmgk95xSft5+Hbl8eHzCmHqNpM41+dmdZYD1MbEXu
ea9dHMsMnMRaOk70DU9cvHLzbih3NZi0Onsd506lHp8SuKffdd19nOtx9Pvn
3BrI17qNOz4cGzCbUpgHRt+zOa55/rmwvKHIosZ2yNlDRZVoB3CB4Nniyayz
hOZrKwdlHlFyw/cuVXxU68e+Kdh+KwCx9dj/hWN8oMeQWjLT87j5S0sisR70
TI1lTrELTt9KoROEnEJ7xTr8RkdLA3n+mgbIWbH3IuVbcr76wdaKygTw2eZG
6VPDduUdHFaH8FygEp3tAAAUCRIwKzAKuTqhLh3KKlFKhkiQW6tYnqHDJYEJ
SxHdvlTtKPKIiI271nbSEStP2J3SyYQugk4ohNKnhu3KPDis/uCvTAVGXQAA
UBrQqS5KlKnkZmiDokqUxZGIeseorrSWPnxJhlVQJt6tzJPZZUSBR8Sk9KhN
jh8lSIu6gZ/lCzbsXCh9atiuvIPD6g++t0qJN3oAUCCZBGmVQqdfUTeIsg4T
rxjEi/tTJ8gyhNbiDJVcfdERDZhudKZWFIvijohZQxlGPMuK20kqE+zMQZXC
Vk9lQ+lTw3blHRxWf6DfnVJv9ACgQNApKkraSc9A3SDqZ+REJsEba3tvbr20
h0x5LLGjtoBC1KgwyjoiYnvR1UsqBLnD7pQO4hlW6lVLXpQ+NWxX3sFh9QcR
xs1a5JTJmd4JAEDJQaaoKLIWRG5cYj2uOjJipmOHMa35s4VSDrhJrAb+ceN2
qIaknYKOiMnMAXUtCFoTgHJcNkqfGrYr8+CwuoN46u5D/dftU8FCAykqRTIW
/tZzA8ddDps1xflhi9lk6uk+eTn4qgrfLQCIAJ2i0udW3r4a3yhYH6RvKCXX
2EBlIGKBKTJlGtS1OJjJkjS8uZP1jtKnhu3KOzis7kg8dQ8g+lpKxGJZQWNq
EMAuDigWxICt6XGJbkCpGqjN0Lrc8EqszE32alWNbda79XfwtcXOz/jJ5rIM
aqkZeFkidXkFyIfSp4btyjw4rN4gNyP2Ib+Gqh25lfpCn0VIFgPXRtJDZlXq
g/b7UEICFAoboYSdcC4qLodjZ2P2nX2t78/XacN4PBr46sbsEgQBKxsiGvjy
yztlGdRSKxCvApOtrGhQH7B+C1OfaZQ+NSxzCHINDqs3CGYBRf8kcq+bqgp0
HKeUxHUAqDKI9X/Zza3qlp7Ra/ehegYAgDIgDQZNrG7gtuPVMUqfGrZbF4PD
ysersOsk4qZSRDw4Mo6zfuILAAAAAKAq2F7B+5HK3MHR2WeVfkvVgNKnhu3W
x+CwcrF9396ONAQrIh4cGccpJTgdAAAAAIBSsDEzqmOLc4rs0S45Sp8atls/
g8PKALHpfx/pd23qcgTFjdGsKGueTE8mGLABAAAAoPxshhzHWYWtyC6SEqP0
qWG7dTU4TG6Ip94RtFNhwP20+nc00FGtEHEPAAAAABWA28ClVElZOpQ+NWy3
7gaHyQnv7FBIIzBiwFbkYA4AAAAAqAFe+K2H2Rqd7qy3roWZ0qeG7dbj4DC5
iAVsHUj5uh9fUYA9BB06iZnxCPwMAAAAAKAScMt0CnGZyoTSp4bt1uvgMBkg
1qZH2A4FpZSvU2tE73D6J1y1A3EAAAAAoB7gFrHrOK9P6VPDdut5cFiJ4bYn
KKV8vUvE/db96TfdbvVvVPr9AAAAAED9Qjy9OcQW6+q3iK3wqWG7dT84rGRw
y9eN7bbvylK+Jjih6xqDcWDC8UUgyiauJxMCg+yzDNjEZuTeLad1hIxPVzW0
dLwxYrs2E1qr/l5NAAAAAFA+m4+ciE+kXp3YMDUMoKhEY0LiV/+VtzvIsaG6
jsEPXdNz/vkZ99Rwh6ZR33dlIbYdC/55pEOnwo6cm8k/6YZjwL4efjrvHGzH
MH33WTvupZ6QHACa+m8H+xz/igpodQAAAAAA9szmt9YDjMRu6rTf26r0OwKA
isDtStD14nI3jBKJyJ1JUzP5atreybkVpLycjD36y4CuQX/2ow+N6d2VxtHZ
l/meiTVgq/WnBk/pG7VGq2dxA3n/r6Izf2gja/Na41QAVpEAAAAAIDPJNe9Z
HWs6tbjCILGB+oObfY11OULbssrQlLq+NdZGBVdrTzkWXmS9GPfEVDV2OX/K
84ZQAzb5yLZR92Isq/ZOhPFe6vmwo7YAmLQBAAAAQGaIFc8QM7YO0w3dVGSM
BgAUT3LD9y47uhEz2hfkbRclol+fo9W16sCQZyX3CffqB1srU1Iv0LqIGLBV
mLbXtZh7abC97OpN27QHPWtwjgMAAACAzBCRz/u1TG9X29hsFG6/QB2xdc/e
2VS+3sbth67eZhHr2Re+8YOZraX8I4QQA7ZKf352Pa9vnG3mhYFEAAAAAFAO
tsL4QOYmLXCbBoDaIrZgNzLLS6z9g/kNWX/8SGcxdtwRyq/lUeXc5cwbH4kY
sAuPZGUFtspg9UOiIwAAAADITyLsHmQ2ydX6sW/WoYoN1D7E1sLHnay8lt8c
giQBqnvxPO4Qipezo43pBx60388n+pMBW3P63R8YnV3L/3Q7G96300pcpbO4
V/Z0GAAAAAAAiINYvzOR9oWCUQSoDzjmEG2PMyRzFDw6yGZfn/txgVMsGbQf
FFbO8SXn68I2Et4jVRoTvryn4wAAAAAAQCzJ2P1PjExblX7MG4XBFEDtQqzN
W7sychfT9uFhuTOiN+fG9zEveNIVLmDoEKmcf/UMZBJECthISFa9wy2Zc3v/
gOfXvRwHAAAAAABSiK+4z+jKKTkAoDIkot4xPeMNaXtvTva+A2LTd2Ff5hVV
hxyhnQIPRvRwgUeKs5GQJO/bDzKL58O2QN5QbQAAAAAASg/xPDDZnamyNXVO
+mEsBVBzENuLrl4mOUdrcYbK0PS3GbR3MYp+v3U+XuCx8Xnr/vTbaxr35Xsk
YiNpGfauFng+IoKbGas5PU4dAAAAAIBywml4NIx4lsEpAtQSxMZda3um3QDr
mJhbLcsicsVtYUbHCOjhnZDjkLCdIxl1n06rZqwPjxQ4TdEORxVmxiOwagYA
AACAskPEAlPGTESY+sTU/exJcwCgTNgY6vKuHzkmjdedSwUK2IkI3ocJP/Jl
wHY4/ahmW6CQQWRtdpRZMmt6XAXN2gAAAAAAyAUyypncQ+93Lco7fAMAygHx
ZObckYx2bTY77pXPAYXkUKsaz82+LPDCiAGbo5yJRPTB3SDTexzzWw3ph5nw
SIGXRpsrdWe9MGUGAAAAACpGSmN/bTWmMwqwtvPTkUKmUQCodogXC45T2oqo
6106sTqjcgt3OCK17oZhLzIinSxEYxZ3NP2PrMDWWP356/A7G7PvZLwpTV2O
oMxRhAAAAAAACEDE7jnMzaCxAcVTWXVNsoybMiXsggVnYtllzOhho+tn9m2S
wrvpkONBRpsnIrhFWGATYbw3ra/ln1MJAAAAAIAoiNgDfOQwXXrDjjoXIX4A
UB7Epv/9tAsZOzI2/Usl+naRFJECApsT48PJ06M6HztsASbwhIj7rfQOU/6k
EfTAu6zza+C+BgAAAIBqIRHxf3EDx/Ebt0OQ2gcoEIL8Cad+wfjfvMFnFUrF
IV4FJltprbvf6o/nPJHikenzbezo9tPuKFNwfhV2ncRaJwOvkD9kzNV5pswQ
Mf9kelRls9kZ3Cr5MQEAAAAAAABABSGW3f109yJaiGag1XXTEZNRn90LuX3f
3q7LclBnZq/nnAuZWPaMGCpniQEAAAAAAAAAuSESK+5BHUaOSe11LW6zkpfY
Cs/a+/VYs3nqbnQz6Oiiy85MRt9WGB/Q5gwA2VpwkImamG7QvcLOXSUS64Gr
g+2U9j48gj8AdQ0AAAAAAADUKMlYCB8hAzAxrXH86vSc3zeNX/q9Sd+A6fvt
s+EtUgkTW6ErZi2lw022m75/ei4NGdT5rONEInp3iuxEbtCb3yWfcH7G7Rjt
Jv+8QW+56F3aAHENAAAAAAAA1DbE1mP/F47xgR6DBlNpDMaBCccX30W20P5h
IrEe9EyNnepowbCWztMXnL6VQtbxxFrIe8U6/EZHS4MKa+kwDYxdvOa9F9kC
bQ0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgJz8f6cp
UAI=
     "], {{0, 153}, {971, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{390.9999999999995, Automatic},
   ImageSizeRaw->{971, 153},
   PlotRange->{{0, 971}, {0, 153}}]], "Input",ExpressionUUID->
  "839bc079-a39c-4182-9e96-682ba0fdee64"]
}], "Subsection",
 CellChangeTimes->{{3.742225210268482*^9, 3.7422252341165237`*^9}, {
   3.742225399065777*^9, 3.742225438530488*^9}, {3.742225588522272*^9, 
   3.7422256174212418`*^9}, 3.760965450136301*^9, {3.7609659085405912`*^9, 
   3.7609659145205517`*^9}, 3.760966061616918*^9, {3.7609662283060203`*^9, 
   3.7609662325881534`*^9}, {3.7609881631948357`*^9, 
   3.7609881934150953`*^9}, {3.7613315173794146`*^9, 
   3.7613315442535524`*^9}, {3.766163113841677*^9, 
   3.7661631304545517`*^9}},ExpressionUUID->"d43faaaf-0673-4970-8df8-\
4e4a3824b78a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BHoloTerms", "[", 
    RowBox[{"mu_", ",", "ap_", ",", "bt_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Epsilon]downupupup", "[", 
       RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
      RowBox[{
       RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7609882902016387`*^9, 3.7609883336856995`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"BHolo", "[", "Rep", "]"}], "[", 
     RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"BHoloTerms", "[", 
        RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "[", 
       RowBox[{"aa", ",", "bb"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7609882185298967`*^9, 3.7609882858452797`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"77406683-38ba-46e4-aa8c-df27a8e3453d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"HoloraumyDDTable", "[", 
      RowBox[{
       RowBox[{"Ufield", "[", "mu", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "==", "  ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "I", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"BHolo", "[", "Rep", "]"}], "[", 
          RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Ufield", "[", "bt", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.7422254484916067`*^9, 3.742225580731021*^9}, {
  3.742225627520856*^9, 3.742225629935794*^9}, {3.7609655308202496`*^9, 
  3.76096569509562*^9}, {3.7609657842346163`*^9, 3.760965796045738*^9}, {
  3.7609662028059177`*^9, 3.7609662040706134`*^9}, {3.760966236712922*^9, 
  3.7609662463084173`*^9}, {3.760988398152261*^9, 3.7609885123568473`*^9}, {
  3.761319713834386*^9, 3.7613197143421335`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.761331736430607*^9, 3.7656349884606857`*^9, 
  3.7657384849128437`*^9, 3.7661630019803452`*^9, 3.7689306791447124`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"72d18927-b1d1-47c4-8441-3e97c182d805"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztvW1MW2e692udoyOdD+vD8Uc+IHGELPEhUhQhSwcUjeADUSIkiKZCKGlk
mWhyDNpPNrB7CtOtQKoGMmpc7dY805ieiTWNlZk4e2Jlpk533GzcFGeE0+JO
HAHKOBPomAanmAJBDjLBzsrj1+V7+X3Za9lr2f+ftLf2To29fHut+7ru6+V/
/d+nB3/5//5vMpnsnf8z/L9+2Tfa/m//1vfeW/9X+P/p+dd3BjT/euZXx/71
/zujOfNv/8/p/z38j8bw//zP/0Mmi/zfbwAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAuLHnnftMo6yTyWTUUYM7VOnLAUDsvN6xv98UfmBk
9W1DpiU/nhkAAAAAAAAAEI4978yFdkoWpaFryumnK31FAIge2nfvfHt99Kmh
FOrPFxG7AAAAAAAAAAAhoF8sGs8q41GL+vbxu94gwhYAFAId9N4dR+wCAAAA
AAAAAISDfrFoOKOQIWoBQHHQQY+5X0EhdgEAAAAAAAAAArDntZ5TxqMW4TPX
NXcAUQsAuBLyL36uRuwCAAAAAAAAAHiG1LWQUe2X5rZw2gKgOIK+2cnE0yRX
jt5B5RIAAAAAAAAAlAaZI5bJFINmT6DSlwSApPG7jRqm66pD+2AHoQsAAAAA
AAAAKBI66L0zqpQnii2OnZ99jjMWAKUSXLWOtsUfK9mhPtOT/UpfEQAAAAAA
AABIksCSUX0ocbzC8FMAeIPeeaDtqE+EBLu185t4tgAAAAAAAACAG/TmvLY7
0SIik5+49nQfRysA+IIOLH7WxTxgynGbL1jpSwIAAAAAAAAACRHasl9IjBGB
tIWYoHeWb092tXxg33ld6UupDXZmx1reGr/1WIByI//fDSqmEUvRb/ZAqBMA
UAvAkJUZAQ0ZAAAAUEno9TvDTUwyuLnfvIJksCgIrs1N9SmoY+MzP+IXKRcx
Lc2Dvdp7/E8A2XcbTyiY+OAJoxtiFwCAKgeGrAIIacgAAACASkGvWYdbZEgE
i43gjzPjxyjhnT3a983FrgOK0zc9SIXFoF8sGs4oZPXt43f5dvnYDSPyPuPT
XV7fHwAAxAQMWaUQ0JABAAAAFSG4bh1tkuEkJTLiLschteGRsKWetM8+3h75
6eves1VNEW9wa9nxX9f0F0c0b3c210Xicc2dpzSjWoPFsbzFcp7pn+enVK1j
szsp7xCXfBFieql/Ud8LMRkAQPUDQ1YKojZkAAAAQLmht74ZZ+afyhq69I+g
bSEC9tYs7zbJqKYhy5qwiZLQjuPDRLVNn2k1X+NC6O/GXzZFfCdVFk51NlNU
48nrKwV5jnueL95Rhl/f9lam92kesKxy/fJ04JnTrFUrwz6eol1z/rLxLzbH
vNPpnLdbzcbfjqlawy5c25DR6duLvjrmVNcdMTzOcL37T0x9h4TonKJ35iZb
mIcODSMAgKoEhqyaDRkAAABQVuhNx+QRptpC1vKhYydU6WsCdODvv+8Nn2ub
Rq3rAjsau9/rmBmdsjat05/v0jaX7v7ZbL5pMvzHSM9BGYu65p5/m9Qbb5pv
WRwFSruG/O5vEm5YEqq5990JncH0X07vHpcvE363W+NdTeGF6xq/4fTuZvIV
97cWzeHXUG1jd1ZfeGcutEc+uEPrTM1Txb5t0GPuV1AyqmfKtc2r280uc1IM
W7wIXQAAqgkYsqo3ZABIG9r/9GvDuZ5oOZOMUvaMTN1yPgvkekjooPfuePe/
GBZf4FECoOzQ+25DcgCqrGXYuoYnsfIEHum7GmSyYtI0HGH1LITdJI1lrfA/
pjetQ3XM38pbJueKr0TdX9B3xAxHx5DxgTdQRKHvXtx5a3xr8qsfctqdsKly
TnU1UIfbfhGreshVWhzwmDTyyHV9PM9vTG9/ydDdwHi4TaMzm3j2ABv4VEDC
wJDVgiEDQKqE/G7zaHu9LJX6tkHD/dWXmR6+qIUN/wl17PzscxhZAMoN7TH3
JbO+VLfBjV77yrPrNpykyvFz0PtPr52Qk9u1/LB+gYNPQ//D2F1f5N9mfKvi
1duCvtnJ9uiqaecLCQCwQnbyQetmjtfG3W/eu6joXedHLcnH77jOlTFZBmoT
+FRA0sCQFYEUDRkAUiTkX/xcrSArpNg0do9eY8ce6Z0V25Qq8idto9ZVdF0B
UHZCW/YLyuRT2jpqW4evW3HoNXOfvCw/R/CpSd0kP/Efv/v31uShaMz+ksNb
bNrHkifvPF5TLmLtyUV34NL7y6a+iDXhIhZBP7P0H4h96W7jP3IudWjTdi4S
4ONdt5YdOZT3mVHwBKLApwLSBoaMO5I1ZABIDMbC1inVH16fcbpXvV7vssv2
x0vqtG4v7RVTpKfs0mBnzFsTXmcYAJARVqU6yi1Ewgun9mg0jDTleiXoz7Hv
tQwrqJMG99aK8e3kNq0yezm8yR7rbw/rl4rKVNE7D7QdDU3Dd4p0cJnjf8tH
zozdwJkJes39UQvVrV/K58XFC4CppnTN9pJgF10geAgiwKcCUgeGrIi/l64h
A0BC0EHvnVGlPNLPdd21lSIaTL9ctU9rlMnmMTawsABUikTsHScmMZHIUjWe
MK0IW1y7fme4qTFaMhratL6TLLNt1Do55Irol/bzyVr24obQxYa1Fa/expz9
swiqZyfo1DaG/67+vD1j3T2LVx7T6YhzKB8wr/GqopnSrnXC5Kmh55AObj91
WP9sNl836LRa7W/GBk+rVCe7uka/8HDSsqsm4FMByQNDxh2JGzIApMLrJ8bj
DTn7ucKeiXvm8oAypeZR8bZ29hmqGQGoDOxyC1nH9BLKLSrP3rLxVGSnpE6b
PK8E/JzovHtGpCvu9sSQv2Pd5NIcvGLsTt5GPQY3195ZOrD4WRdViiosU+V7
eMLxgtNfxr54gYXBCVe84bjxSRGCa9l5vWN/nwghHtU6uX0LKRPyWc5maIfg
eBNWFfCpgOSBISsCqRsyAKRCyL/05R/sec3l64D3kc00rY0wZTDfd28j1gdA
paB3HRcPJM10U5+5ltK8ouXVQ11rxKUQOO0e68M9MulIaH95zarkzfC2cYVL
snvHNpJM/zaP2Da4XUtELqyx+NraMCGX7lDsCFfACDw2UX8vb19wAqaVmPfi
58TvHve4a0rpIujf8IbxuL81aJgbqdsobJpW1MCnAhIHhqwIqsCQAQAAAELA
rk6XNb1vL6IwEvAM/co1FRUXK9gDKY7IvPtG5fg3W8xnvLSPJctkOXpNrx8b
jjAOH9ca1+gMu+Jra6P4LJp46vlAv+UZp3WL+nsF9AXHYfqgO3Uubo5lPhLl
u3F4f38pkDw4lKbqDwCoJDBkRVENhgwAAADgHXp/abojeUqSt2i/g8C0CNhd
0seKVQv3QIogk4sVWtAfZjL+jSrzKpc33LCNNDM3U92IrWDJr9Jra6MQWTb5
iWtPOXQ80buu3/X1GVwFy6CFlvSHi3FrC7iUdUt/suaiFpXTEmsbpmXMXqyo
PwCgwsCQFUVVGDIAAACAb7YdE23JuIXsl/olLnPDQISAxzrR1VivVH82v5Un
OUwHnjm/+vOtrx75gjn9CmaUfEESW8URm3ffPGBZZX/AqlnFNAdzzXcH3Iae
5N10xOAu0BMqvbY2Bqux+ZB6+kGedS4FJqPHfy8Dy22uPeU0QtW/lgUuAJA6
MGTFUSWGDAAAAOATetM6RGjS19gUA34g8uN5dbQ2HROx8pYmjWUt5wutg3KB
fYnYvHv1DU+qR+R3apOxrPoxO5dI1usd23vJG6pQPXY+amvjsI/8sQmSs0te
vwA6hfQPpt4GYQ7XKbIzNaacxrRdczoyAADEBgxZkVSHIQMAAAB4ZH/NPJCs
SRd+Wlk1Qo5dyyc/nuzcb+g1/ZBjqSPSXLHXTTiEmQQZnXcv7zM+TS/fZU+x
V5m9XN6XKPKXFSaJxlNtbeLdElPkUlC0qUa0BrPtweIPWwGebnLGMeasn5af
3bmJA4TQRU0ppyUfE+qgdr5mJ6ECIHVgyIqlWgwZAAAAwBf0iulEsh5R8Gll
1QkztizsnE069nK4EuR0+KM6V478T9Br1kRfJpSgGTHvPh12sqlR6+SU5GFS
bBEKECjgq7aWgd6Ym+zMMFUzSV1z1/+YMFgcbl9pnt/+qqkvtkYcG6gLIaWH
q3aU0+g9p/Zg/Ftz1/MHAIgFGLISkIAhC207/6jNit66wnWMLAB5wV0HQO3y
2m04QlhB9IkUA6EAlm9yOiNTlrf0lMmACHNwi8+7n8qm38WkyaK3xVmLj0v5
KEsSLa+/ymNtLUHwR9vkW0RILqvjp9RM21eLbr1OOsZcneICSOkWoQ5MzNWG
ai7RXU71m70ClEYDAMoBDFlpiN2QMYGpjKB+AwgB7joAaha2/FSV9ImE/KsL
ToJHq35BvxS9YkwEI/L5NrTHrFbEX9trWs310p+sgwcF24TT5t2nQ0ia5+9/
SYW5+Oii5Oos5re2NuW9X646bmj7j+T3+hRnDIsvirsARkEtX8yqKFK6RQ5c
dBQsFC9hyMcEAhcASBgYspIRtSHDERKUH9x1ANQq+wv6DkKXs6AuTjFC+//5
4M4fLo+f7W1TZN3MGtt6B8c/MXxx373Ba0aEFLjIN+4t2bmfV+GckUMXYIRc
pKJVwZp3n86eY6KBWbu8iqMpEIUlspyabLzX1mbgdWDjH06b2aAdUWW/Paj2
S3P5xsFkfnemZoljA3VhEF1IUYs84djm/0PEBgQuAOCZkP/5urAR/MzAkPGF
OA0Zc4TUoDQOVJZE8K3kwEVwLyDcBB8AQAmk9IlIL7kZXHfd/uxcjzJnE2gm
4958fFD7R9uSjw9DSxwt83R/kJ37+RpmIxWulDD+wK7bcDJ/Revrx4YjTFCL
c98rEczJMQVPmNraXAT9XrfT9hfj5fOa9hTfr6HbsFTMwFEmo3dYv8S/HDu7
R7t6ukXo4PZTh+X32hFNT9gJjwQVJw23XdF5fwIJXIQ/ccU5c0M/GflIInep
aOvpGxz/7bU7D5a3pTBwFj4VyE/Iv/q3GVP4Zv9VZzOZm4jtIsqeEZ3JvlxU
HIMObix9bTboJkY0qhj9o7ob9pWd7K0aMGS8Ix5DxiVwQQe2n3t5Y0OI8SpS
puaXl5fARchtOEolfIPewYiAzPKW5JYCgColpU9E3qp7KBFdTjroe2jWDrQ3
co1YpHlwzSfOTX/xwFNCJopog6XUZm+uNyI79/M12yZnuPPr78Xm3RdS0bpm
0TQx63RI5+J0KGd1Fsv6TKvpnpSQtbWFENx0z1zWKAmvvrixHYy/J4DIRRja
a1aTt3kVdIsEf3Jee68z8vA2dQ59YpqZc87PWqZHOhvrlf3XFv0v+Ra4eB3w
PjBNqFnxTaq589TJ1DMd1arWmp1e8a4vfCqQG9q/bL+u7U89zCraek6pVG+1
sSwmpVB9OuctuKCJ9nscN7Xq1sxGlzrcb3yUwY7CkAlNhQ0Zl8BF8mbgkWjk
eexjg/mea3WnpjfDml9eXgIXtN9tu3Z5crCLWMumrvFbbj/GBIPagw4FQ2Ly
iFPmiRQiml15YiGL05xrLPJANbZrJorqIiEELuqOGB7nrFghGmbzFrcI5O8F
V8z9zZlWIA91I7YdTh/ks2iSv1GmAt1y1NbmhQ56zP0K5kIz+qX5EDhw8Yb+
h7G7nvgpBKi4Lh900Ht/ShU9Cij6pubWiAUL+Z/+abCpTnlOd6kr8X1LrwEL
/uy6/m4bRTzjiyvebUKAP+j3rbhspk+GOhOnG+ro6M2FLVFWNcCnAllItYxU
c++I7g937v99g7yT6Z3lW79Wkpav2+Dez3urh/zLX32SCFlE39n4hW0uoh7l
X3XZ/6If7Ig+Ycd1rjQrAUNWDipoyCoeuGD9vM09/z59+3tvQFqlwzxR88vL
W6tIhD2v9RyxVVIK9eeLsLOg6qF3vY/uma9MDqo6m5O2j2ps69GMXNRf+6+S
J1iVdnXrln45sSfJ37FuivmpzBKyoJo7z4xM6Awm822bYz4hxZnQ53TYLCaD
buLdHD2hqcSlMK7fstojb+d8spHrCEOWkubrn31pH4sfyAro3BfE3wuuW0eb
mjS6m+YC+JNhhGgkyiMlmkayQjhMQ6/pB/Zfl7+2NhvReuP4dRZl74QOXKT0
WeePj4kWOui9O94efQYyi8iFNm3nmpLftGSBi+CPM+PHwj8u1TZ8xebezh2L
CP7kNL7TFr8V6tvH73pFGbuIAp8KJKH9jy2MZaRaVReufpWjCzIpIBPf9PLI
5tAvlkzvxp8LxclJ80Nf+nMRdBt7GzPXM8CQlYlKGbLiWkWerSz9zemYMV8Z
61GkZ6Eau8ZNsy73aq5OhpUl57zD9hej/uK7ac3ClPJXn9x5nGfDrz5qfnl5
DVyE13PTMckauljp+CQAhbDndVyNSihQjZ3nzO7Cn4U9n+tW1qLKJHXKsJOR
16MWhJTe+ZzCUxUnuO66cb4rWeZaTIEE7fc4Z0y6kd5mztUaLSO29SzvSghc
5Iv8hJb0h+MvPTho/SnP5QrQGkxvzow2HVCbnhb2duw7hPOpnCzQlTVMOIgT
qBC1tUGfdVR58voK9yM98bsc1bmyy8Zng/H3uFYhFwr90n6eLLnI15EkUmjf
vfOxqIUs+0//6qGulQmnFvCY5CAetahvH7MsF3qo399yGdRxT0/csQv4VOBN
JKrgtvymN3bHRhqdbrl8uUN9KROWZZkO48Sr/U8sY8di765Q///zWd88MfM0
XdcRhowbkjNkJYpzhnbsH7BvyPAqTzr2OK1o0L/q+sow2snqhCpxPmx1UFvL
y3PgIjLfzHSCdV44qnVyUvcFoMyEtuYutRM3LXXcuFyINQk+m9W+HUvwx8s1
7c6llWfeVbdr3n7n2m/HVCkBjTqlesrmKfMOsOPUdhDXkHfIRaWgg9572l5m
JFlT58iVXOmkQgj6lr66OqEpYLhYDOUFezaZbnLOe57IT9i+9yd+90KmtzBi
7FwnuGUhNu++oMLgOKz23ryiHKm8dOmOJteQzHMJUlu7YRtpLnKuB+Owcf6O
EQSeKhIhVeZC7MVRmdh/YuqL3U25j9gvHBMJ77ukIUe7T4198mKCD0GfbTxR
zKDoNSzy8ewJAnyq2oYO+uaNQ9EeDVl92+Dvvs4mj0myv2TobmCbt6x6lbT/
kUEde2bzPUf0M0t/5HjEPtfHgCHjhOQMWclTRTatg2Tpr4x7VUwcOrj9+E7C
905s4SkNibVHLS0v74ELZmdjto9qUUcHVcrrJ8bjbBNfQKw+aesbfzl+Yz5z
Lxi963VeH22vZ7254m3t7LPy7QAsqW0Zr+r9PLLnnf04nk6KBHgv2wrxzQqG
9v/TYZ4aVbXnimBQ3dr5rDPiCYGLvKpfUYckRkGq3Uyih5dNOLQz/3GHPFMP
cg4YRygCV7eTPWg7GeQXprZ2b157kCquV4NeNfXGLrIoRQWmFFo+aBVKI4aM
j0VvII5D/SpOLIwQe1BOGtzZLT/tMasTnlHxU1piwn0y+YlrTws+3RB/HTkZ
JR7rXv2iWCfCw6eqXfZ884b+mB5j2HOw/qMwdemAx6RJOcTIZB1aZ7pRoIPe
mcmumAHK34hEr5mjj7dCbfakXQgMGRekZ8hKDlykKzOUlALY8859qiL7I6hj
Y5YnlRgELA5qaXn5D1xEmsHfZZWmN71vzzU6EICKkva8UydM6VaZ/SdxwSiq
/bxlOc8Rm0hnJHeA8ZkfyxS7YElOyYpUcxIU+sWi4Uz8DNP41sTtHHtjyO++
dV79q3OGuUKzq/QL9633u5RnzZ5IgijaRXJDP5kuhdHQNeXM8bmEwEW+yA/R
Kls/ZifqOPc2lr5fylCCmyi+5SWmVMi8+3T2HBMNzFJwPiyzH6CYVyOUAHss
W1SUv8c0YtR16Be4PwPJOmShJC4iEB1J0UuVlsxFtLQ7fvPL+8y5fvukDkzK
Y8Lp89Zto61RNaG3VJr3pm4/5upWJQ5i0QtW3/CItGEEPlVNkhSdyN2+kfpn
bP3GBJkmUNB+51RXYutXjttyVzgyXUtN52wZKsFgyDggQUMmtsDFm6hDaGZl
BsvpWouNWlpeAQIX6aJA4kzyAhAlpeIiZ+Y9SjQCH4laXJgpbMRYhtiF/NT0
QrpmHe/Qe47JBvJzhTx0FUPwR9vkW9EtiFL0fjybZz0Z9cJCKsPpoPeves1h
KscWFNxwO2PkVuYkj5N5ytqJ2owmjWUt+R8iyfSGTOdQxh/I1YNcGFHZLsWw
xcvRnWEl+rNWFGeFleeKmhKhBNjjbThF3cU/28eivQnyAfNaEbG7vRXj20Wu
Dwf2V0195PNKaSw+wT6Mb0jVuAP9lme5tG456cBkIa2H4vCY/WeO70HUR4m5
BQM+Va2RbEQ92Ku9l8nY0UHfwv0H/0wN1tGrloH0MRyto7bUzZjlluR3e4K+
2cloR63ihNGdaQOFISscKRoyEQYu3kQO14ufq9mFAednn4szAC0stbS8ggQu
mCcrAefJRACUj5B/6T9HIzPy6pp7xq85f8qddYhG4MPPb8+Ua7vg5zdDEoTq
mHLtCr0BMEYq8aGiOgclZgHIChXWo1+5ploTrvuAJUcDH1nnVrL4HukO5ekq
JWszWKWq0YBGxmLdpMEpLaoUK5tvKljKjIRpTy7qMlgWM+wOLQomwJ44ZnIW
mA0/gDfUkR+moUv/qKgGbEaTgV9bmUJapLH+vF1csljZ2Z2bOMDMaDxt8rzK
/lJyXypa4CJ1cysqpsQS9JP3W8SqewmfqpZgLCPVMWRayFxHtDM7FqluSrFu
pIlMmn3FwBepMr9Bj2WIicbXd2gf5Kwc3fPaPoyKZlOKPtNylrYsGLKCkaIh
E2fg4k1EpM5+gZz8K1MMmJZrr5eulpZXmMBFmqBx3Xs2VDaCKoD2mPuaIoZe
9z3HR5dMR8Zo6DYsCdy2QeYTZQXoM5SRZIcIl8ACkRPJOnMh/M7Gs4nBTjyM
DCCKKPJtZZEETUPCGSSPnNEMy4GLjoyhKkZVqUgxpdhHLxp6FZykzAiYKt8I
3DUcWO5i3bHOIwLU1kaI9gVHf/uc+gnpJHq75L2//3txk4npH0y90V9WaMFM
VtZPVppwZTlhG/08zddcdWAywrppo+Qb+JjxupmG8eitb6n8uMOMwKeqGejn
s+djUYuchdlJ9SqyBCLgNvTIUkkrJaI357XdSW8khyp1bAbr5Mmopc4nggFD
ViCSNGSiDVyk3c/hde36bLG49ZEutbS8wgQu2MmXCKhsBFUAvb80HRnRUfdu
EYcXetM6xCr3lcmynWT5IlXrr7Sxg3yy57Wei0ZxOQYWyGNdxoRKsoqD+5tn
hiyikOUSCUnZ3knnLSKvdzCrpB79D2N3tJGw6PR6YiJkt/EfRf09O3nNOQ2U
coQUamJjUg497EL3mwtVJEjcEoX3dmWA0WQoSg+NA6nuh1RMJ9PGFfl1Dmrn
cy0047eXInCRekbLlQvOBWvBxbNDpgGfqhZIxvNbhiyenOdD4pSdjP6l9ppl
MisBj3mQ0HjKVrtIB30Pb00NJ2YjZutYIf8ChqwgpGnIRBy4CN96W9+MK0lf
N1tDU/VSS8srVODizbZjgtwBxFyECUCB+F26zhJE3VMfCsGdz1RlzqKmfvMP
0zjD+axBWPxMgQtW1CK/RnphpOglHhqyZmrxizmcVLvq1C/SrcbrZeNxKkcH
PXPoK2KQ3OvA6mxCykPeov2umDszuG6fSK4rd7eTrccuSG3tG2LOLNXYfKix
sPYi2v/YPHq0VGcvqclQhmnCrKyfiOcXp8DMFMi/rRFPcUmBAtr/6NrQ0chi
Ua1q7W13kQ87a8FLCKQIDXyqqoeZzK7onXblUZplUucRkmdJev3OcBO7tJNV
RxTyuz7tInvWM9Q27Hkdf7iQHOZep1R/Ys0nQh4FhqzAT5GiIRN14OLNm/01
8wBrkk6RGiCSpZaWV7DARVqrnXiLMAEojHgBQzEFyVFY/dRx0yqkn8waay4r
cuo3/wSfmtTRM05eGfO0v0xY/CgpKQNW1EJGdX3q4iFqkV61ksFzoP1Pbbo+
RbSy9xUzp4BRcY92E+ccssDslo0nTIXliOidlfu3TYaPxzRH2MaqqXPwkuHG
zNJW3oG+L9xf/8Vs/pNRf/HdHiXb061Tqv79E8N1cxjLg9X8NYGkMoMwtbUR
Yv0F0XjUzmasG4hSntaav/P4M3xZOuB9ZP1UE5kkWN829EfXVilGlknkdepc
Qg/NTO2AEHD6Ko+wHpPc7S3kUyyGRhh2pEjoiprigU9V3dDBNctQJOZANQ1Z
1vJm4Ym5POyzZJqeHnE0pn33zrPmsx+ZdMQ0Ofc23HPWG1e07/Y2M3/aeEQz
cfVrDqPJYcgKQaKGTOSBC0b1Jbk/tkzOFX7vSp5aWl7BAhdv3rx6qGslHf48
MuMAiB1WAYOivf8/LG5uk0FYagkxim/xzktKj4NIRooE162j0bBF+7jdx1GY
KiYwEoNd98KOWsia3rWs8XMgIn8yeduxo9G62bCbccn4pX3e6XTMmK98oFLW
N3a9b178Obq6e96ZC9Gs2SGV7rbDcffqyFEqr5xRYrcsNIsa+rvxl01Uc+cp
VQpvtYWvsPGUYSlfPCz6DrJMb5HgZGdzfWP7b3K0PydXKS4UIFRtbYSoo05E
jfa33Xd0/TF3V9HWe3bs0pTBdDPsot40Xp4cUUXWIZIr1Jqdz0ptx6RXTCei
n5NppCDfpBV7C7hF8AfpNeVJdBICFyzNHTroe/xgiVsokw/YQkBCa5iUAnyq
KoaZBpJTcYJ5NUvzpGHSsUfeCHTQOzPZ1SQjaWxXjYyP9Bxk/aP8iOp/9PWk
DAdvPKIZ/9RkW8o5aSsLMGR5kaohE33gIr2kOY9GdHVRS8srYOAiXldP7JGo
bARSJrWAQZZtoHl2WHPGY0+FcH4y2XUepRTJLN4u6jttizyzznke6H23gZCQ
IOpe6G3XVE/yv+Sf7FY4ZPDn4KD1eXD7qcPye+2IJursUY1tPZpRnWnWvc3y
8cKuyNdXJwZ7w68Ju4tjn99fzVuxurdsPBX5ChLNor5aMBw/1Nz7sV24c+fG
naH20S88KRXIQf+q62uzQTcxoon5urK65s6T6sH3L1/7L4fbx4uCFB2voqnr
0C8IXxxJv7SfJ3Oi0pBhjGyOiUcwd9ECUZvBHo0R6cmqxNijlN6c7CI2lQc+
VbUS2rSd4xDPp59bh5LOSOYRM8F1162poU52+CIzYUN2YnDsY4PZ5lzN06GS
DxiyfEjVkIk/cJGmYFwmky0Oaml5hQxcoLIRVBXpGwPnHu0Mb1GsFchPykgR
MbRvhzat70aaZbiKab+JGF3rcFJrgujM3VuzvEs4Z8395hX+FpSZHRb+yH7B
fqkICaeiqc/swVlETLzymE5HXfEyNXUm2pAZimgYLz/E8T+nv0RM8VCoyVs9
EtBoOGJ4XPYYTUrgQtBxtyUCn6pK2V8ydDdEfs9cHYUMiZnscQ6P2X/O9erw
kdh+5/pEL6v8UkY19V/5Zv6he4PnXi0YMrFSoiETf+DizZsd20iZBfDFQy0t
r5CBi/BuvKDvIL9nwY1vAIiPTIGLRpV5lcNbpAkmCBi4YIl3yUQxCzUyXCMS
suWeKEyZJc30n9L7y6a+ZD8v3xWeyZFzZWh+f+HUHpVlVksDlSNuxYrViyuC
1ImoLWN28atcEPVdOfwlVnEUKyATVewsg4RI+iWl7JNiDlzAp6pK6F3nR9Gg
fA4BZwJGJCpm8wqxF+Sc7vifcc8dFAoMmSgp1ZBJIXCRupnLSpCkkxq1tLzC
Bi7ShkpTJ0wIwgKJwhppEYfjWJByVlykfhbHGIsQxOe8c56lQm/dnyQkxeQn
rj2NeUTRme/J7aX90lwBfawcPtdrVsdPWfJW3UOh2/kSuao8GTRQRhIl3OXU
0E5tKBPBk5sfohjgoNa5l9HMM/IvsUeK7JKLZgP5lxChQ8FQnndM3SfFHbiA
T1WFxJvHqePG5fyx8ZRhpgW0lqTM6Y4+e4KGYWHIxEfphkwKgQuyRDZxq5fB
cxMFtbS8Agcu0s56NSWWAkQNHQxyPOSyuxUiD23v7//OqfkwXeNCuMBF6izU
yudt47sN156L4Iq5n+h5SQpd+hf1vcJIW8Qgp8CUJ7Ac/0bIVYmFeAl3Q7dh
qXy9nKl1WSKolSoERl0wc+FELGrRcEzVGy+dIjU8I9nAJh4WObiz6rpnNkRF
aBqJvaH5+NnxT9O0aKLEo6kMIg9cwKeqOuLPe10BfVIh/8LviJaP+vbJ+1t5
DAUzYpV0XIQOw8KQiQweDJkkAhfsgbYxxDsoildqaXmFDlywaq0joLIRVJTg
ptt2dYKZvRXRTjTY3JsFbsS0/+nXVy8OqlUqVf/o1O1FjqOpiP7uBIKdSdIm
mFTcIU9sepyGm6SMC6E6J+c24k0iT6+dSLpwcuX4N/lcOK7sOLUd8bcvl0Ai
vfNA21Ev5Cw2UDjxCThU12eLvIijFUqK6oIY1GkKITnPUdFnWiYOLHTAY9cP
KKlD6ukHvt14Oz8xCzWaROYqdJzy0dvhff2CSplwNqjmzjMjE9qIPr/JMHVp
7F+6musiIoSd711z/kRuP2l1dBXfJ/MBn6rKiA82PTzhyNMnwh5mGp2nmW/k
N731zbgypTu1HF1vMGRighdDJonABTnQlnlQzlp8Egj8l0otLa/ggQtUNgLR
QPsXTEMdVNh9bT8zfvnq9cggy6gHSB0bn/lReI0zMoOf8CEGrQKVQaRtY8wx
oVJwDVzQQd+DaTUxyEXxq+n5xKFj3208QRTMKoYtXr5TSMQBoYzq/SG/69OI
8FpJ5zjAA3Gfn+rVL5b5JJsqqyuAByIQIb/bPBo5W1GK3onrM3OJecF1lHJA
b/dEvWY64L6mVkTjGyrdHcdfrVeG2+TF78CRYLJhtDNeX1GnVH94ffbxRiAt
zEjvep03xrua2Lt9+p4sfilU+FTVRbzmJ48TTvsfGZLWsKCoxRvaZx9vTzln
CGIrMwBDJhZ4MmSSCFykS1vnf7KqhFpaXuEDF+kZDfE7BqAKidt96ujozYWt
eMEwI4olK8vxJG0OsuxAv+WZMC5nukMu3PiSQonPky2ktpneWbFd1jD508g5
6ONZLxN42fdahomwRY4CyJB/5b7p8vuD6v4R7R8dXg6hG0Lgosw5zd1l04BC
RjUNWdbSK9tBeaC9tl+38T2kpkD8Ti17o5BUsSsdeOa8bZgYPBFp1mhs6x2c
NNz+3suKJNDBrSXr9PiZzmaKau46e9HoWCtqkfd8TuNQWyIHrXhba/1H7mmO
tP+JZewYldzt02ZGSyE9B5+qqoiPEs5hZeigd2ayixHkrG8bMi3ljVok8uxs
ytn1BkMmAngzZNIIXKRJW8skIhJVMrW0vGUIXLx5/cR4vIH4moW08gHAKzF5
ivTKCmK+j+BZ9d25iQPsXtOm9+1CNSCkNaOVq9khF7vfaVvkstyeTHDddXt6
hJw+rzg5aX7oI15Pb86MNhErmW0mYHBtLlKgnnwh1THlKnh4U9IOUKeMy+Ut
VqE35iY7KdkhteFR7oMYEIaYy93QNeWsxPqnnaY5dVfVCMGfXVfPJp5uSqH6
dK6wsCTtd051NSS679csmibpLTV8qqoiPoZDpjxnTb+H6RfuW+93MYItVMeQ
aaGQTYlevzPclKJtIZO1fOjYKWNcDoaswvBoyKQbuJAf1i+IPRhdOrW0vOUI
XDDjgxkklT8C0ieWoFf0GhZT81KkgqWwR/uEqnMSQXMfqeXE4nDIg77ZyahQ
GNXYOawz3XU4F1b9L1YfOeftVrPxt+OM9kjMR2s+cc5wbyUltURvOibJfGPm
jl2isLa+bfCzL4wjSo42l976Vq9ulTefGLtRkKPIMzFxjzI1MQGSmIxkffv4
XW9lEoVpUUdSxxK8SZG+KaxsPkms0C468iAuLyCws8c/8KmqiqR4RWPXkM40
43A+8qx5XPfvGC/1tzOlhXVK9SfW5Z2CNoI0IfEoraO2crU8MsCQVQx+DZl0
AxficH6FppaWtyyBize0x3SCZWUlXdn4ctl6RSsWrliXpSDbVlFiCfqMwkTs
mlshmyloj7mPFbfglP3nTlq1uVj27j2v7cOuxrRMEOtSj2gmDJYH/8wULqD3
3Qb2aLdf6pdSHgE66L07Hhcxi1ntgMekibQRi6HspHCCa3NTfQq4fGUl5uwd
7NXeq1DU4k0m7e7K93mJCLZgL9X1qYtD1CIKvWI60SgftG6kduxKZIBLtflU
IORf/nKiK62xI05UucW+XHD8PGVkavzeVgx84a1MIBaGrPzwbsgkErhI/xTx
OL+CUkvLW57ARcxPIPfhDv1C+abL8UumH66C1MQjWRJ7y8ZTVOZcQ3gr7ie8
P+FOB6Et+wUl+bPxP7szBVG3ydP+ZbtJPznSr0qgHhy7pDOYLF87V3N6Z8Gn
JjU7/pMqTJcetQj5Fz+PigHWd+i+F1pNnWfoneXbk10tHwjWUgTY7MyOtbw1
futxRQubQ5vWd9iTABC4SJAyZkgxaPYUcWDfWzG+Lat/Rz91gm1Om0dsG/xf
sxBUk08FYtA7K/b/DNtFTdwqnh4c+9hgvre0kbsHamte25UzE5AX4Yd9w5CV
Gf4NGQIX4qaWlrdMgYv0ysbWKdcrada+0j/eGf5FaWaCP6hfDN/5UZrrWC5i
ugod00vp88TpZ5b+A8nFbJh07Amzlrvf6zrIiuRDauOSwOmxTfsYu1JUGiXQ
uUlXG0tVN6W37k8mBsbJe3+34HXbLsdkLiiF+pq7rEMtASiSNO8A+fQYsZZt
huKHLUZXuKm5OaVRpM+0KpXTfxX5VKAkdlyGf2NSAKqetkyJNUVbzylVFtSj
f+TSaQVqE4kELvYcEw2pdz8CF7whjuUtV+CCfuWaamV9106dqwYm1IAK83rH
/n5TFr1uet3ST+Q160ZsO4Jcg//vBhXxOeXpnV81q9i7mPQDFxlG0qeom+4/
MfUxA+Pqmo8daY559tRhjf6vlav8B4AbaT5IbQx0y0NiwGICeZ+5yLDFm8y9
uqIqS8sHfCqQBr3tmupJS6vJlb/+bx+sHygJiQQuxCHCUAFEt7whv+c76y2z
2WTQRWQNLoxo1CrViZ7TV5dKDrCXJXBBFm8n99JW3cN8MxEBKJEN20hzlvmb
wXXLIHEMjmq18Q8dWPyMcLYpRZ9pOb32g3+qLnBBb85r2eIWhCwn7V99NP/N
zfGUF8io5t6RqT+7fOWdCQJAaSBwkYHAI31XA7EmR7XOF8W/WyZ1dOn4JGX2
qejg9lOH9c9m8/WoD/qbscHTKtXJrq7RLzzYWsVDaGvuUnta2ILq+Hi+nJNE
QHUi3cBFbQxdEt3ypk3sisFHdkD4wAVjYeUHmw+y0qWobARCszevPUhlflJS
eoQPXHQIIJVJ7zzQJptEuKrfl0JVBC4i8Yjv7GGH+aZRP6FpK7hBi2rrv2Qw
f73kq/4wO6hGELhIY9dtOEluANRx43Ip/k8GB0z4Tn9+KL9PFfJZzmbYfeXv
WDdxIhYLtO+/f51SkRhGoTG6a3zrALwg3cDFwUHrT7x/jugQ3fLSQf/P3gjL
rhujCYk/fmanChy4SOYFqK5PHz691c/aVkvLmACQF/93uu7Of/nih3QP9/Wy
8XjSFRMmVxX0WIYYoYlyRi3eSDZwEfKv/s1mNmhHftXZXJfuKWeGau58i2zs
xcYCpA0CFynEJkMRC5K5+4/DG64Yu1O2EWFi13xTIZ8q6N+IuKAe97cGDbMx
dxtL+g0AjwRXzP3NaZYRgzwAX0gjcJFJPLJbvyQxUfZiEO/y0nuOyYb4i1vG
7Jv8XYYQfhFRzdj0rmVtL1ULUUYdmJirgftJUtDP7RffqvDUlMa3LtqfC+wQ
vVzS/5L4yPSRmiVDv1g0nEnoyJU5avEmPXAhH7TysF8Ixd7G0tcm3UgPO1hB
NXee0oxMaD8Y7EwvOWsZND5YjS/pvtcynJTsk8pEQwCyEHLpDrHu9hoPXKQJ
UZaqVkq/tJ9nN1pIwhsRgU+1YxuJb9L85M6S1IrvIQD0i4XpU+nFFr3TropO
RwLVhCQCF693bO+lZrzq3rPVwiwb8S5vwG3oib+YpyI94QIXtN813Rs9TFA9
U67t6PaZoioglRxHLSGOYa+Ca+m8eqhrTd6JpVYdZ2BvzfJu4rBd/qjFm/TA
hTjliWj/06+vXlApmb1Q0aYa0RrMNqcn4XHRQY+5X5Fap0x1fbbIjAhh/5qy
XtMqNhUgaVILMms7cLG/oO9gu0ul9skSrlRihcXfJyIGnyq0pD8c/yR+cmdJ
asT34J+M0hbl0QAHtYMkAhfROddsKLXZWwvPgWiXl+zK56lIT6DABe1/ZFDH
UkbN/eYV5i5PmeMgCW+htqiJrAe967hIpKlKrTpOg3Qkwv7DHU+g/PHe1MBF
/Zid75qS0gj+5Lz2XmdjbJnqlKoPDJZvPenhnYwVsLLWUdt64ieLDY5hoBQD
X9SEnQLVC71q6mXd8LUcuEgfn1FyZx/tMasVrLcUveKWOHwqwnHlXeCiJnwP
3skY2Mfsb8A7kghcbNrHWtifwbt7L1ZEu7yb1kRsnbciPSECF4SFre/QPtgh
vxW6RUDl+dk+djh5D8oHLes85lhC/sXP1XFHooJZDzFrXNBB34Pp+BbR1Dli
+HplJ8saBTzmQfYBI7JpNA3fWU/+QXRwTOSfW1UXrn4FQU4gfaBxQZBeHVFy
rj/Z7xCj4bjxiZiLicXiU5GfJaXRsVUL7XdOsUbtRO+Ark9d5a7wBFWPFAIX
oQX9YXbLVOaRgtWISJeX7MrkLajOe+CCsLCUot/sST21oVsEVBh60zpEeK11
Q9ZN3m5AOrhmGYqLyB1STz/wVaxWU7yBi6SvpeibmlvLbgLpwN9/35vWuCtr
GrWyAk3BDedNg/lBhmoNAKQJAhcEaVPVSs31pwlc8By75hkR+VTJgA91UDuP
SagVJrhqHW1LMY9U+4UZL34ZwDsSCFykSy7L+8xrNXK+FOnyEnkH/sRG+A1c
EBY2vH9emtvK4F2kVTY2j9g2Sv9oAAojxc3jsbCWUE6THVIbHlVUF0u8gYu4
8KDijGHxRY4VYk+SZdyyzsm5jRoxRKBmQeAiSbo/VmqfLLviTiZv0X4n2rJP
MflU9J5TexBum0jIJMiJqAUQDPEHLtI1nMme4mpHnMtLdGXyKDbCY+CCtLAy
xYBpOZsvkCjtTlA3Ytsp8bMBKBBSKCZMy0dOnpJTyfufOjZmeVJpNW/xBi4K
gjVJlqHi4aDCCfk931lvmc0mg04b5sKIRq1Sneg5fXVJ3K30QAwgcJEkbXB8
w4SjlLNZSsWdTD5gXtvn7Wp5RWQ+FZE7o/qLPLwAfiDVvxO/iXijFrCGVYDo
AxdpGs4sCfeqR5zLmyzSqztieMxXcyFvgYv9J6a+hIWljp2fzSFwlDZRRWLT
al4uW69oxcIV67K4NBdFzutl4/Fk0LBkkTcG5v7nMDmdDngfO52PvYJsrVIO
XGQe7iYtmfS0+vYYaAwHBZDmgxzVuWp1n08NXDRpLGslvN3+mnmA2FtEXG4h
Np+KVDTFPlZJMowREXHU4g2sYVUg8sAFvev8iJ3rqqVyizfiXF6ySK9D6+Qt
ms5P4CL448z4scQ+ekhtXMozYT1VGktSZYfiGNrFIMHpXRXk5ZL+l8Ti9Rjc
eW7VgmDufw5Ri8jFuHRHZdRZi08IcYbUHJzAgQs66HPdNmgjmRTNe1O3H5dQ
F5EhlxRp7u4zLe9LyArRQf/P3gjLrhujyvi34E1UGVQ3aUamWF+xCkgNXJQW
w0lJGzWds/E7GoMvROhTQeBCFJDq3/Gfo7HrQ5t4oxZvYA2rAnEHLoJPTWrS
bcwoB5QXOrj91GH5fdiR7WlTyBrbegcnDbddhFRdKCja3JkYlzdN4ILe9T66
a9SOnulspmR1zZ2/GtXdmHVvcr2feAhcsCxsgVnRtMrGYgUS6YD3ke2GfnJE
cyqyEDKquVM1NGH40ukVTPGT/vHO8C9Sh2ZXCuoXw3d+FOuDJD5ePdS1JrNt
1AmTJ33tXj+9efroW8a/F2pSmfIAblGLN/E0hFCBJ79T28a6VQSMcO15bR92
NZLPRNGx7owj6SmF+vNFqWpv0nuOyYb4Fyl5GgKoCUI+y1n2Q4DABS9LEVy3
jhLuF2uuaE4CHutEV2O9Uv3ZfCaVCRI68Mz51Z9vffWoeGXmivlUOfx2CFyI
gQxRC+7GkQ5uPHE6n2xU4AgGayhdxBy4SNnYZTLFoNnDMSkZ/Ml57b3OiB/b
1Dn0iWlmzjk/a5ke6Qxv+/3XFv37/qX/HO1sylf8VjlEuLwsgYubnvV541AH
RSl7zunNtujy6ofaIsf2w/2GbzmZy1IDFywLK5P3/m6hoC2U3nVcJCd4FSHr
TQc89w2j0duMamwf0Bq/tM87nY4Z85UPVMo6GdUxZFqQSDs8KA8pd11TnzlT
3MJtOMIhF+B3GzWRJ5Nz1CLx7AlVCFG2wEXGUENxn5bulRXnmIkKIuZc6jQE
UCMwLiJDDQcuXtrHSI3eUh6i3e+0LfLkxlJwERehfnl4wvEi52s3HRMdMftS
ZEtLpXyqPH77SwhcVJp0+1hM+yS9dX8yIiHOZ8t5wcAaShfRBi7ooMfcz3ou
WoYsHi6XSAe996dU0b681FF3If/TPw021SnPffpJb/zq68fsYuzbFOHyJov0
5MozQ2eU9YperXWZnOb9yjf7m+jxQdE77Sr8wF5S4IJtYWXKc9bCy9V25yYO
kEtxoN/yrOCr3t9avDkaG99AHR29ubDF3rpp/9KNoV/IZO3jdh9CFyABW0w+
s18XM6ydOlchj8Oed+ZC5KErImqRGC0kWB3E/qqpj7WJCfNJ9NY348r0kaUN
x41PODpFGaMW0tK1yAQpBlvqNARQI6QFLmq5IZCUVohQdAzHv6jvTe4vHFJy
oU3rO4k9Ll93YdJVa+g1/cD5ca+MT1WI36671JWIH0GaoAKk28dipKqTcq+c
bi2+gDWUMCINXKSNn2vomnJyeS6IaYCZR92FNm3niHqD+m7jP7jXsgW2n3u9
G34Bzbjolpcs0ousW/uYZTk9CB+2733R1aWO61yFimAUH7hIsbBUz5Rrm8uv
ue2YaCPXWN5vKay4PHFazHqbRWs1Te+FXyMftKIWDcRhdwFnvt9ePzYcqZO1
Trnyi12HduY/7qDSPb0CiTnDRTm3BVGepO2u23Ayrdqivm34zyvc9CgyRi0O
qacfFF9uLRI2rYnhu2jpBQWSVi51SOeq3VsnZQrb28aVIg5cdGDxs67ku7T9
2lb4ZLZN+1hClqxh0rGXa4bzS/v5hJPHXYujMj4VV78dAhclE/QtfW2+MjGk
ivY3pxFp/R7RGsy2v63G/fw97+zHvaR9LMbrCP/Q97S9B7P/0MIDayhhRBi4
oIO+B9PM3KUInFNdtO/e+djuJ2sZtq5l/ktWjzlXkclQvMck+mgr1Z+wSw74
Q3TLS5RX5apvTOZYC29vLDJwkWJhOVfmvMkgUlpQZePu8s1hZeyD5aemFzJF
LeKFcFFqOVEFWJAupSxLNop+5ZpqldV16BfyjcdLHLSLdgDo59ahQwUUHhcN
2UwqK8nc5CC0oD8sl8kHrt67pR06rVKpNSNa49dPOaaBiFAkQ+NbkzbORSzi
g7zr2iYc25W+HiAJ0gIXEhoJJAD0mrkvWdVVjMACO23ErSo1vsvFnZTcqZDd
JX13/EO4zvWokE/F3W8/OGj9idt1AYZkPw6Joq3nlKqnLZPou6JdM/G7y+8S
9pFSqD6d41osQe8sW7Xx0EelohawhtJGbIGLkN9tHm0niwGauiZnuBXoJic3
UU3Dd7KHeV84JhLV2hxbnGjvFwMpKTnlBXs+oaRiENvykqWSOb9y8sILXtti
Ahf0tmuqh/gluFbmJGArJWbTHCAgu+mzyWqxszOoaQRx2BUIGT06et022ho+
hpvXcsct6KD3zqhSHukQubPkzY/H7XISzNksN42f/EtElKbI7GFhXzh1Gyt5
5HE6Md28Up4y+sWi8aySta9TaX1w0iVNVBmA/PxkHTzIeiQ0Fl+lr6miMMIR
0SeJo+xksjw+AveUXLSnL/a3eYqESVet17Ra+IdUyqcqwm8X0mZVNUQ/jqyu
uWdEZ/pv52raj0z7V53/bdKN9DSzhsQkUPROOThWIe75XLe06tb43VWxqMUb
WEOJU3LgIllvk4DTJklA+5/aLg+w/MZiVA13nxoTEXHqpMGdfSw2ubFza3Ha
WzG+nfYUN3QblvLlRrkjtuUlBC5adQ9fZX8hcVQp9JDCOXARPmgYzhAdp1TT
kGWtyHJuv0vXSS5z5ikPzCev3xluii1ljlEsRMpDoNsDSBJ24CLDWTtWSyxv
0X6Xff+Kvo4s6SmR+vP2l4JNv1k19bI+TIDqjljgIk/5dPYr9C+YhjrYQYvD
Gv1fpS1qQcISVTYXXpsOaptVs4oVdETlIGH98zmZKX/of2TsP8xxQgcJKXDR
rV/K+bmEq8ahEr5iPlVRfvth/RJK/LlD+13TvdE1VPTpbAUUJQZ/+m7q7XT1
qFgNxhWzLUPQI/UdfEtfXb2gamUemwpPTYU1lDYlBi5CO/YPDqTcy5xdx6B/
1fVVfChDcpNr7HrfvPgzZ5W5zZnRhE2R95mzVJtFSQpEc21xSiuejMF/Sl10
yxty6RLZgtzzg17v2N5LRGkLVbTmFrhItbAyquPj+Z3izVh0ggP5dqdNniyB
GXrNOpyogsxlZOmg95up/iONjUf6p76pnhMQKBXy6chU8Rt4pO9qkDWds+Us
VWIn70pG0IogtqZH+PSjMq/y/BFxObgiqpr3vHOfaZTk9QnZ/Vcpkj9BRSTc
gTSJmHzW7IBi1MCqjaBvdpIpmC9s1sbrgGcm3tQf4ZBq6j53l4AQuMiTJia1
yAoe9Vg5n6oov12sivpiZ8elOx7VztcY3QV42pk7StKIzKsdu6QzmMx/ttq/
TdZz6i+OqNrZ9Zb1bUOmpcoO54I1lDZcAhcxLcoIz1aW/haZ9qgfyXQ/N3aN
m2adSyu5KpZXlpzzDttfwnf1uz3K1Ldo7B699sAbKOJuIvXZ8ugYh5b0iYIz
rjN8w4vWn+kxLq1xWwLLS5Sa5GkAIYtSCj2kcAlc7C6bBkgLW8yo3BRiWojE
Mp0wZSzDYTVv5jGyAGSCGGknqxuxseR14v3F+RTbgh7LEKuHuERSL4NfUntF
hPAWAh7zYHQabMegYa6wQ0HIv3LvyiCr0IJSDlwuJAklMciDDFdBJ1DDpAwA
hapADNYZn1KofmtfzVqvRgeePSCPfoq3tbYfAkXsMITARb40MVEJT521+Ao5
JFbQpyrOb8etWAwJ36MA+Sx6Z+Vrw0gnI4ZKNXa+d/WL68lejyII3/zWf1Ta
vMIaSh0ugYt0vQWeoRrbB7Q355a3i62pJ2cw5ciYRyj8DJ6BLHP3uEs3k4h/
ecl21zzNNRu2kebE5xZqXzgELlI6aDhLXmdkf808wPpRWz5y7qaLJsaUDGMc
GrI+r7YjDigHxDi85NwQOrjluh5pWMg/XIzv3UJoYe3UgvOGCQf/daLkaaLx
iGbid2bbt+6NDJ9D+//54I7xEssBC3tlw1O3HopvdAgd3H7qsPxeO6LpaVNE
E1uThtsu4jpDwfzXnNbSS+96H901akfPRMTkI9Lxo7obs+7NGu8CAKnEOrCS
CKBOI1HoneXbk11MOIJqVV8y3rm/sOJ9vuHfD/p/9npXFu9/eU03TKSfmjpH
/+D0FbnzEQIXeQO/hKtWYCldBX2q4vx2CFwURcJzqGsbu72Suexhb8P9V8v0
vxPSFmHjOGpIKl3veR2fEwGNwgg/INpbrmJvfoLSDaIg1pAOeB/ZbugnRzSn
ogNaqOZO1dCE4UunN/2OByVS8cBF+CZRDY59bDDbnE98xUShk9C7jovJxoo8
2zVxsi6mRjrkd9/W9h+Jroeivf/TezNTR0q06WJfXi7NNURqoPB4DofABcub
ahu1rvLjb+9+r2NNic2g+E3mygsbPgJAJpLK7XVK1QdXrl+9PH6mPeziFqY8
w/duIXT2ilRUiyLUbAK2/FcSqrHtLVWYU+lT35o6h6bMjn9WOg2UiWSZbvgi
PzHNzDnnZy3TI52N9cr+a4v+/fhwK+rY+dmcEVRWS+9Nz/q8caiDopQ95/Rm
W/Q99UMRgVbqcL/hW/GFbkDFIJpDYwgxyFi6vA54H1wb7c6/FUeeNYOtpMAg
KXCRTyMo6aoVPDC0Yj5VsX47BC6Kw/9Ay9LFSljGCCc7U3U4sxvH1HqMHDc/
XyELngwi39aQDnjux5vxo9lh45f2eWekZv7KByplXVFSjSA3JYtzighSCzHf
dr03rz0Y919Lyv0Fd/2xnovItl/lyQiiSC/PFDDaa1Yzp4OCNXs5BC7o5/aL
b0Ve3Ng9eoPHPYEOem3aXqK5JnVmPUudAKo+oCSCm26bYYzpAI0UCVwtzbkV
LWmCxqlPFr/QwY2lr82GeFImky/V2KaKjKf/emlDpOd0Qvhd0Tc1t0bcFSH/
0z8NNtUpz336SW/83snT7k0o9SnPDJ1R1qdNS3nlm/1NtG2f43xGUM2w7F3U
WypS/LaqeR3wPsq02yjaejSRTcbmfLJRataIJXCRr0i4mH6KivlURfrtELgo
Fjroe3hLf17TntEyxozjicHxT00zf1vNr0SxF7a0psvvn+1KSwg0tkdMrOVb
Dz9yFvwZRD6t4f7W4s34oEbq6OjNhS22O0H7l24M/UImax+3+7Bv8kc1BS7W
LBom+pfnZE2oBvGTaoweuqs7cBHyWc7GtyaqP+fdUuTpnuNUkdeB7Y3tYpQ6
SuGlS3c08c2Erq4HoGogx6ZHqcQMMtq//ryymmCFEnbS7o7H3KHMM+NCm7Zz
RK4rt2Qi2dIbeXH7mGU5fR1oj7kv+pbUcZ0Lbb/gTYZ4Y7FDzUCpkFWseRp1
SRE2Tv0UFfGpKum3gzjBDbfzYca2So6E/KuP+XifFHg0iDxawz3vzIW4SG+W
0a504JnT9F74NRk02EHxVFHggtWekHu7Lnpjz0bMLc83oEraEGf2PNlSIjWQ
VY4pA5zHoVYAcqh9HiMLAGAgGrRj9BjcpSm/VS+07975eDVvy7A1i/rvq4e6
Vsbe5VYYI1p6ZZSiz7S8n/Et91dNfbEX1Q1ZN3E+BWkdXoJI04ACIPZPKl+1
mqT6KSrptwNpwKtB5Msa7i7fHI4XEslPTS9kilqQ0+oxRppPqihwQXZ915+3
Z9V4fsPa2Fk2gA76Hj9Y8nFfiGhigrvIp6QghsDm7k8npZbyjXQkkULggtQY
rO44FQC8kjqegOssp5ph/4mpL6YrQDUN31nPaseIQ2Vu00O09MqUF+xbWV+Z
NKFVbstAYdA/mHobiGcWs1ArBSlwkS9jQkywZRfM720sfb/Ei9QAj1TSbwdS
gF+DyI81DG3NXUoMRG7uN69kuvdeeUynk+0zgo6brzmqKHBBDhzPfZMQMV72
EMBIqQClsfg4f3Y0EV/ld2YycJEzdvh6x/5+omSroduwVPgIEykELshpKdJ/
ZAAoGzgEFcTuU2NfYuThSYM7e2iUdMByl44TLb2tuoc5JPuJM4SYN2FQLvYc
E+Qjm1cTEggFWcWap9iAqM1o0ljWkv8h4vc2CDCHujQq6bcD8cO3QeTDGtLr
d4abYjctpeg3ezLLZJHiLdyOQiAfVRS4ILPhOUsC6FVTb+J26jX9kLznit7Y
I89CwerNUoW5VXIGLpjWsPAj3fHx/A6HtJ0UAhdkmRmnR2bP6/zWLY3+egCE
ILXsnO18ggj05sxo3COSyfvMWYpioxQ844kYDJG7yoXUJmIfeUBNQnhKMYt+
1uKDCasEZD9Fnl+BrM1gteNFAxq5e8oqQhF+u0Jt9vDgtwPRw7tB5MEa0mvW
4UQUMVcshQ56v5nqP9LYeKR/6huvSDXAJUo1BS6IAFeODZDedk31JCK8rEmd
UeWfTp2L66k5bCnerZO1TTi2i71ySZDUtMne6ErvOj+KP9JUt3aeW5+0FAIX
9CvXVGsmryAnMQ2flhHburBXB4B4IT3qKFVeolYEu27DyYRtOtBveZZj/yQG
B+R2wAh9xTwNIKQSY6PKvFr89wDVQJqgrvgFE6oUlkBQblnjwCN9V0P8lazO
i6hAxIGLjl2xHaCK8NtZrlexfjsQP7wbxNKtIXHGyRtLAUJRTYEL4lB5UOvM
PLSLkIGVpcSuox1JrVOuVxxvxFiNQRF/KDkY8YoshVi03zkVN5qH1MYlrtJ7
UghchM3kE+PxhkI20jj0S4/1g3aqvn38LoKuoJYhNOEL8RxqD1IdiDpt8uSo
Yy3cASP0hPMMIyD74CDaD8jywuiJGSVSlSEl5NtnWs1SdU5vzmu7k2315AgY
+pml/+CBiTnxyXJx99tZO16xfjsQP/wbxJKtIf3cOpQo2ZAdGrI+x21XCaop
cBEpJrMMxG62jAHY2O7XcEzVq4zdd2REen9B39HEvREptOP4sEXW1EeWrlUt
ifhnxj0kuGodbYtHLQyPipgDLo3AxRt61zXVEd1NqW6DO7MicfyVwe3Hd7Rv
K2QHe7X3ELUAtU5qyzyr4K3moXcdFw8wa5OnHIVwq3K/suCOEra8P34aQI7Q
kqX21YLyQQpcZD8u0S8WDWcUVLvq1C/iLyQKGF4vG49TR7VOUUqUVMBvB+JH
AINYsjWk1y39zD/LBy3r0j81S5LqClyEj4prlqFIS1TqmBs64LHrB5TUIfX0
A9/ukqE75kAzMkcBj3lQwWUERpxYYV7LR07RFeAJQ2DR0KuIqPsOWdaSJ3E6
uOW6PhQ9zVNHR82Pi4havJFM4CLM7soXv26LfNtsdRSvAxuPZ69/qFbWUcoB
vd0TqI27A4CcpByFoM9JQmp55VNM2pvXHoynonJPqCQKaPMMI6C9ZjWT08xd
jg5qAeIei4IpWhWCdYaK7g7tF2a8rIee9j+16foU1LHxmR9frZnjaoZMHULQ
YxlqEXFZe9n9diAB+DeIJVtDUvhCRqnNXpE+UFVPlQUuwoT8bvNoZHgupeid
uD4z53TMmK98oGIdIemA+5paEd0nVbo7jr9arwy3ySN7PrcliBfmtY/bfTVz
/9JB34Np9aHww6xUfxhZ3vlZi2GsJ7KYdUrNZdvKTtFLIZ3AxZtIFmDuM40y
vIdRjZ3DOtNdhzPMt3brLZNBO6JqD38RSnn60vX7KxDkBCBOtM+a8MBRfE6w
ZtEkxjHlc6uIppvcPR0hn+VsfMGp/pwmHi4ZYMHSVZDlHVUJhIL8IeRtx442
RhNEYe/C+KV93pnwb+sbu943L/4cfcKZxopDKt1th+Pu1ZGjlGLAtCzmuFMZ
/XYgDXg3iKVbw5cu3VHmWcxTswEEpPoCFxHowDPnbcPE4Im28Cbf2NY7OGm4
/b03QKaQ6ODWknV6/ExnM0U1d529aHSscfz+e17rOaVMrhz/ZqvW7Hlw0227
ph35VWdznYxq7lQNjl++YXvkLbGuQFKBiwh0wPvIduPy+KAqfBdFrlzR1qPS
jFzUX/vy/uKPfvSGAMAmVeYia1Nz7cHKq+aeeEjGf3K/knC0Dulcudwsshy9
8YQpZ/svqH5SpXTlg9YcCrBAMMgfInwoex7cfuqw/F47oulpi9S+Nrb1aEZ1
pln3Nsvf2N92f311YrA3/JrGdtXY5/dXJRB1KovfDiQC/waxdGtIlozmiaUA
IanOwIXwhPyuT7soSqH+fBEpdZ6QXOACAMCNVw91reR5qPDRPNUOMTY+X3ab
6OdlOWB00Pf4wZKPMOR+p7Yt/sqcowZZMmgovQapugrsAZSgfBBTpPOkiQGo
Ivg3iKVbQ2J0L1rnKgkCF8URcBtONCFqwSsIXABQ7Ww7JhLOAw5EJJEB8wln
KbcQGZGKYvfaRA6blMbiS/5L0lVr1DqzG/jXO/b3E1W5DVC6A2kBxtwZTyAY
rx8bjtQVtC0AUE3wbxBLt4bkqBEcmSsIAhdALCBwAUC1Q7+0n68nTkSQuUhA
ZHNy5oPoVVNvwq1iDXqI+G8NRwyPCRePse85XbXYRO8oVMfH8zuIxtc6qS1d
ODJXCEIkUN6qe5hjHiQA1QXvBrF0a0hOiOZ0ZN7zOr91I83NG8xP2aIa+1Cb
it66gjpewDuhbecf02427YeDnXIELgCobnZsI4zulQwDLBgIEfUcfhq97Zrq
SSSiWENLo4fNlHmC9J5TG2vKza61Tu86P4p3BVDd2vlNFMDUPHsrxreJRxRH
5kpBigS2TTi2K309AJQN3g1i6daQfuWaao1/VuFdrjGx3JYR23phrwd5Scag
MoEjJBAC3HUA1CxkvSUccgbCKcqqWcrMC4h5VmctPiaJ88pjOk0xAxAZmHbd
bmNGwU3a75zqaoi+3SG1cQmJChDJOaoVxBOaEg0DZWPHqe2I/wgI8ILaQgCD
WLo1fP3EeDz2ggP9lmf5g/z0S4/1g3aqvn38rhdy/byBIyQoP7jrAKhZWLPG
kM9NQq9aBpqzHxVjTlrDMVWvMrZypGTZ/oK+oymTPMWu23AyOkDxtMmTtszB
VetoW9xPMzzyw7EC4dtw3dJP6lt0TC/t486oBITAhbzfso4fAdQU/BvE0q0h
veua6ogGP6hugzvXxkgHtx/f0b6tkB3s1d5D1AIAAACQKqRqd5j0OoEahQ6u
WYaawitDKfpMy4RTRAc8dv2Akjqknn7g210ydMeSPoxkYsBjHlRkmwYSWDT0
RiYnNg1Z1pLuEx3ccl0firpg1NFR82NELUCU4LplkIhb1LFVU0D5IAQuMKEY
1CACGEQerOHuyhe/bou8NFsdxevAxuPZ6x+qlXWUckBv9wTw6AIAAAASJmW2
CGrRGUJ+t3m0vT7iqvVOXJ+ZczpmzFc+ULFcIDrgvqZWRN05le6O46/WK8Nt
8mPjMz9mEQujg74H0+pD4UOoUv1h5D3nZy2GsZ7IO9QpNZdtKztwrEAc+pml
/0Dy0cyYmgRlITkQkjplXMZUF1CD8G4QebGGe965zzTKuvAnNnYO60x3Hc4w
39qtt0wG7YiqPfzYUsrTl67fX4EgJwAAACB5SJGrSB10i/Y7zERnoAPPnLcN
E4Mn2hopWWNb7+Ck4fb33gCZ96aDW0vW6fEznc0U1dx19qLRsZZH4jy46bZd
0478qrO5TkY1d6oGxy/fsD3yIhkESOg1cx9RbyHvM6/hDqkQ9Na3enWrvPnE
2I0FFESBmoV/g8iHNaQD3ke2G5fHB1XhD41sloq2HpVm5KL+2pf3F3/0ozcE
AAAAqBqSIldRDlx07MLQA1BZoop2ycfy0JD1OR5LAAAAAAAAQK2yv2YeIFK7
h8fsP1f6kgCobSKKdoRubstHToQTAQAAAAAAALXMzuxYUzK7C9l8ACoKvev8
qCUZtmjINKQGAAAAAAAAAGqKxGwyCNABUHHoddsoKTwzaFnPo5sCAAAAAAAA
AFUPWwlQ3qp7iAEGAFSElIcRerkAAAAAAAAAEOWFU3s0meTNOHgdACA4fpeu
kyi3GDCvoU0EAAAAAAAAACKw87xoqwegAtCbM6NJwRmUWwAAAAAAAAAACbvo
AnNRASg3bLUZlFsAAAAAAAAAABt6/c5wMtuLogsAygq73KK+Q/d92cot6ID3
ke2GfnJEc6qzOXwJVHOnamjC8KXTi/AlAAAAAAAAQFTsPjUS/SJQugCgfFRG
Z4YOeO4bRjsbI9GKxvYBrfFL+7zT6ZgxX/lApayTUR1DpgU/ghcAAAAAAAAA
8bD7nbaFCV00dOkfBSp9RQDUAmyRmaY+s0f4aMH+1uLN0fb66BDko6M3F7aC
rM+k/Us3hn4hk7WP230IXQAAAAAAAABEQ2jTdq4p2WWvMXkQugBAYOh122gr
89hR3Qb3vtChgj3vzIX2WGOK4oxh8UX659GBZ07Te+HXyAetmwJfDQAAAAAA
AABwgF6zDrcwR6im4TvryLYCICChHceHLcmwRa9+0S/wJ+4u3xxWxqIW8lPT
C5miFlv3J2PFGGEatc6gwFcEAAAAAAAAAFygvV8MKBiRQBSKAyAkgUf6roYy
anKGtuYuxWstZM395pVMMYlXHtPp5HyTIwb3a2GvCQAAAAAAAAA4EvCYBxXM
sUV5wb4FlU4AhMC/qO9lQgRUx8fzO8I+a8TwIErRb/YEM0Yld5f03RgwBAAA
AAAAABA1QY9liKlelyvHv9lC1QUAPEMHFj/rSoYthG8SIRvBqJMGd7biDjro
/Waq/0hj45H+qW+8mYMbAAAAAAAAAFBhWE3uaBgBgHdYTSKKE0a3wIUN9K7z
o2Q4ss+8hkcaAAAAAAAAIG1C/oXf9TIjGpXjNh8U+gDgCXpzXtudqLbI0bXB
4yc+tw4dSjzPh4aszxG3AAAAAAAAAEifvTXLu03lPFsBUBMEfbZxJdMj0n5p
TngZGXrd0s/EIeWDlnXEIQEAAAAAAABVAb3tmupJ5IUbuqacfoQuACgJen/Z
1McM7lFojG6h55+Geb1je6+OCZWozV48yAAAAAAAAICqgSXU2TZqXUWmFoCi
oXceaDsS6jFU5+TcRllCCC9duqNMvcVh/QIGBQEAAAAAAACqCdrvmu5NzEeV
n5peeIFsLQDFsP/E1HeoEmHAn6yDBxOf2zxi2yjTxwIAAAAAAABAmaCD3rvj
zJARxYBpOdsgRQBAFujns+ePJVpEDqkNj8rYeLVqVjUmAhfd+iU8vwAAAAAA
AIDqgw5672l7DybkBC/MePcqfUkASAf6xaLhjKIyUYswG7aR5kTgQmP2ot8L
AAAAAAAAUJ3Q/kcG9SHELgDgRoWjFmECbkNPUYGLPa/zW7cfkhgAAAAAAAAA
yUD7H5tHj8bK3anjxuXXlb4gAMQOvev8KK5vSx0bn/mxEuUO9CvXVGs8cNFj
cAcK+6s978yFdqplxLYu7NUBAAAAAAAAAL8Evc7bt8xm862v3ZiOCkA+6MgT
E35gzH+xLf1csSaN10+MxxuigYsD/ZZn+R9c+qXH+kE7Vd8+ftcbxHMOAAAA
AAAAAAAAQaF3XVMd0WIpqtvg3s8Ri6CD24/vaN9WyA72au8hagEAAAAAAAAA
AICysLvyxa/bIrGLbHUUrwMbj2evf6hW1lHKAb3dE0DQAgAAAAAAAAAAAOVj
zzv3mUZZJ5NRjZ3DOtNdhzPMt3brLZNBO6Jqbwz/B+XpS9fvr0CQEwAAAAAA
AAAAAJWADngf2W5cHh9UdTZHe0cUbT0qzchF/bUv7y/+6EdvCAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAA1zP8CW4nwXA==
     "], {{0, 162}, {1427, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{459.4666666666651, Automatic},
   ImageSizeRaw->{1427, 162},
   PlotRange->{{0, 1427}, {0, 162}}]], "Input",ExpressionUUID->
  "1cfe816d-0543-41a6-872d-4a2d682fc61b"],
 "  with ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnW9MW3e6563dN/vivFhe8iISK2TJLyJFEbK0RFEFL4gSIUHUKkJpI2Si
yRq0mwvMbGF6FUjVQEeNq9sB3YlTTa1preyNcydHmanTGzeL20BGOC3u1lFA
qTOBjklwCykkyEEQTE7WPraPf8fYPn98js859vcj7dXdW2L72M/5nef3/L7P
9/lvJ3tf/x//yWQy/ea/JP7H612Dzb/+ddc7b/zXxP/n2D/9psf+T6d+deSf
/vcp+6lf//eT/znxf/wk8f8uJ/6X5P/+CgAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFCd
rej0x3Zrrclkog67wjtafxwA9M7L9al3LYkbxrSnqc8zF8M9AwAAAOifrejE
uWbKxFLXNh6MMVp/IgB0D7Py9dnmPexdQ5ltn84i7wUAAAD0DPNs1n3ams54
9zQP34zGkfICIAYmHr05jLwXAAAA0D+JjNd1ymxCxguAPJh4hO42U8h7AQAA
AB2zFfWdsaYz3sTz+lJ4ExkvAFLZic1+akPeCwAAAOgUUsdroprPT6/hSQ2A
POIrk6OZu6nGOngDJyYAAACAPiBrUyaTuZeObGr9kQAwNLGw284phVocd9aR
9gIAAAAaw8SjNwatNZki75Gzkz/h+QxAqcQXfYNN6dvKtL/L82Bb608EAAAA
VDWbc27b/syjGQZlACgGs37H0bIns51sd8ys4t4CAAAAtIFZnXG0Z2QNpprj
lx5u47EMgFIwm7Mft3E3mHXYvxLX+iMBAAAAVcjO2tS5jF0DpLw6g1mfvz7a
1vje1PpLrT9KFbA+OdT4xvC1+yocc8R+cHVy4iFzNx1BUxsAAABQXpjlG/0W
rgjV0E0voAilF+JL0+NdZurI8MQj/ChlIdV3tq/D8bXyTgvbYfdxM7e3PO4O
Q9wLAAAAlA9mydffaEIBSofEH00MH6FUzniZlVvvt+01n7waQSE5RXoyixoz
Wfgih5ou98MNRV8fAAAAAIWIL/sGLSY8hfVHOvXab3PdVbGjkFmZGm5O/vS1
7/grRj4RX5sP/Mcl5/sD9rdaG2qTe7mG1hP2QYfLG5hf420fmF9mxjsPDE2u
57xCWuKuhsNYbNbZAfE8AAAAUGaYtVvDnEeZqa7NeRdaXn2wteR922KiLH3e
JRUL7zvrgQ8yVf4uz6LQYfvOD+7XLckEsrMAJ1obKKr+zcsLotLnrcjnv7Em
/r7pjXyv09DjXZR65czm4yDtsFkTia652X72gvuv/sBMMBicmfLR7n8d6jyQ
yGOb+tzBlS32r1PbitpDrvt5Pu/2A0/XfjXUPsz69Ggjd9NB5AAAAACoD7Ma
GD3EVXlNjR8E1jF8TQ8wmz/8qSORFlkGfctqKnk3vhvjfLRMTY5gTOhzrc7d
/AtNX/W4/mXg2D4Tj9qGY78edbqv0te8AZFtkDux8K1MLpqFauh4e2TM5fmP
YHRLysUkXu3acJsl8a21DV8JRjfyJczba7N04m+opqEbi88ykwdbHMHcQm/q
auMRuttMmahj46Gnim48+Mcr5n5vFGkvAAAAoB7MdtiVNSkzNfb7lnDOqgs2
7zrb6kwmOaVOKfDO2RO5ot27JP4fM6u+vtqsLKZxdFq+DGD7nrOFfS2qpc99
J7opQ2WRmZ1d/8bolz9uFv0kTCw43lZHHWx6LVVtLabr2Ix47DXJz/XRjLL7
we05V3sdl+ZbBifg2wsAAACoBROhu7LVJqrdFYa2UBdshF1vUqr/Isz2w0vH
uTN2NnE96LwnIbFj/u5u3yPz3+Z9Kfn9evGVydFmSvzQB952r6bXt1rkb9Mb
EMWVP8xG8MPG7O13dCyUt9oMAAAAgBLhG/OaDgz6l5Hy6gFmie6qUf8XiT/0
2Cw1x//lj/98gAuCPUNTzyW8xOrUUDZrE0gdi5HSFcuWzjLb854uMyVNHMs8
9nbvTV10u/vvRb/nnVX/meTmUPEeT/6us6aLxkELAAAAoDy801WUefXDs6Dj
MLsLGQ+9UO8X2Y56+83Um67w2oL7rezWp5OOSniRLd6/Peick1XqZefz1ln6
b8hM8bnUsfHDYF4Zb37iUbqbrfW2O+eEUtm0+oKy7DZ5KAl+sRcbTwAAAEB5
MsUrPG11RqbMW3/cs6CisiE5i6SePa/fWfX9JqtxqHcEJRRbmedTZzl9g0zH
s5QzmPx+PS5vLODAUJh40FGfLPSenXou+E2/iHhOJjPkmh56SdGOsxyJ0XFP
pIruQyb+9GHA9xeavuwaczgcvxvqPdnZ+WZb2+DnEUkNjAAAAIyCFis/v8xr
ark4hzKvLtiad59IJlfUSU/khVpvwhrzcp1Z6dwvfcT+G9+qFFXvgrs9G0bH
XGGpotfUpIZSOig5icXBkcAzSf8ydeEiVRmZzUjdUfcDRb2MX65PvUtsPw87
gtKuwsjsrHhPk64d8oIQAACAcSj/ys9sBN7fm30nSxddTeUlPfPi+7EDNSpX
/FIC2kOjgUzDV5TuzAbDW+4FKVutdf9A1sChYcD/RNpnSfaI1csXNiTYCY3t
T909IvzW+LBJr6CgNwOnAVZcdpL50dP3fVUpe+OxJ9EEkfA3LjsXSO1uFQ85
QFn5ZWqotbXvo0s3bofCkWj0l1iu5TgTj/0SXQyHAhP0J+91HhqZqpj5OKCq
QeQXpcwrP/9E1WR5t7q+bf3CvAiNs01lojMxGSSNeeutw7fWuDd4PjWU1ShI
TB1f3ncd4kJWqsCANUwr0Yh4xWtP7xj3dnsfS/rS2KRXhKA3DSdgbh0LScuu
hchoJ9Io/vpGILt7Ks0GBOiLRboze44kAHX4tzd+hF01qAgQ+eIox8rPbM9d
bMl+3TWNjm8xdVgfbMw5U2IB8ZmYVPLlmTv3nAe5SmN9J70o5QWf+AcauGCq
HfCL7vMqXdjAQpSpJc7zZTZCf+zqcoVE977tzDkPslcpVTws/FGWvd3ZWq/i
7XIGIPPdJmgcmpLrAgJ0h9hHP2XtcU4vqTmGB4BygsgXRVlW/qeBkSbiK3/d
OSfFpAok2Yz4Rtrq91htH8+sCWxNklNxv/zLtS/vrgiOEuZsb0W1VskgZcy7
e+AFeXtK3W1thl3HstF0yBUWmQ6WLmxIwVMk77ddvCP8PcuGK4krfwrD2zso
3y6ndwgbEAh6KwoRj37qgM3x+exaVQU8qHgQ+WIox8rPn6JVbd3iykDU5QSb
p1YDI6myuohhZ6u+3hqVciqWlDGv7UokNy2MBR1NXEhItOp9ue5/JxtQYg0c
lBA2pOGni6Zaq+2Dy5Nz0ZgKW2fmR09HnTq3Z47MXvF2OX2T9UyWsm8CBoB9
9DeddjgG7ceaeElAfVNH76jLe2f+aTU/9EGlgsgXQTlW/u0luoeYwaWuL1aF
Qnp8CfkVZPUqdR2eH4t/1cmWrNSfjgRUsO1gjXnzj1fYKsGqlzyeMInrg1NI
2JB5Nb7VLYe5qXPA4aL9d2Z/XCs+lFg83O5ActOcMBvTI3sJYa+6Ls06I3ub
UPscM3ArqyDYR392SYnHnvwUjUZ/eqrULQmAPkHki6AMKz+z4DlO7DlU9cWq
WIgxZHWjga0iIUza2B4eCxUvoMajtJ39S1W62Ahj3t3wq7XSrHqJAnUSEbIc
pYQNHMyT6dHWPP4nWWob2v7XiMsbCK+UtuJsL3q6Ut+RROWzGHJ0R9XTzsZs
BR370lct3QAE6JqcRz8AVQIiX5ByrPwvw65DxGMV2gY5EG1fQhavXGOamHN/
roqowq+fNuYdL9S0xRWZ2bA47V2RcnbP64MTzNgVFDYQxB/5R98Q0TZQa7Vf
nFqULZjO7g6k7gxEkKNwoPaOTFdHhykhC6e66WjVtnTIg4lH/+a0H6yxe1e0
/ij5wKNfOsnleG/b8LVwDOL2IlRf5FdaYJRh5ef3HFWItmEntngvSHB3Mabq
RRHjGIQSPCZC28zpv+3wLAp8rJ99valNj+JH57uMeXfDs+qVOmOC++Tsl1JM
EqyssCHntZ8vBq44ug8Jp77mU67ZZ/I+ANc2J3KkhTRyFA573w9ImKpsWMjb
BIJeaezEZj+1mSkTdeTs5E+6jBUkvTKIhd12s4mqb/vAH4XYJy/VGfmVFRhl
WPm37zlbiB42qWMIdAMT+8edG//nwvDpjiazqRBJrfjw712f3w4/UXT/QAp6
hYzFpBnQcc2eSvuVJeUEZp4x7262AiN13HcndbQZUdA2Fe3CU1zYkIeXm0/+
HvTTLsdAZ+HwoJrPTwvZbuR/de6sRJXnOKGcSdI0Eniq/JvoDQh6ZZJ97g9P
PNJrfRxJryyYZ7OuU+bkSnVuogLSG4Wp4sivpMBQf+XP0TYYr6gSXw5d//jM
MWtR9Wa+DKfhaK/j3/xzK0rcHURaIqBYIPUqIpSu2clidkXr/Bth15vCcgLe
jAmpglVyI1DEb00dYUMx4rFoOOj/q/vCWXtzTgJc1+6ak9M6y5XEDzrnlD9i
4ourK0fhwE5a9/7JMWA/ltiJpJqXr4dYczkIeuWRee6bGrrpBb0+919VetKr
jndl+h+kWxUqIb1RkqqPfCMFhrYrf462oebA2PcG6WFj4ivf046e5nqp2W4u
VMPxMxc/vxMpQf9A6FcpGx0t9kKkXkWESjbrN6tg0psy5hUjJ1jy2rkhfdT+
sZCkhI4nCTZ1eRZ3p5NqChvEEF8NT1ywW4mMUp49Apf0qiDqTcBEaRsZ5hWg
cIj/HLz0Tmvy5rW09v3eMzEdnJn0XhxoTaQK3ZdmY88h6JUOE1/y9lkSX+me
5tHbxU5wtGf3oz8ee7IYDiWlaKHw4hM1rAXLhVrelRzxBbo76cdItXw0s14Z
Ms4SQeSnXskIgaH5yp/j22CMsUepdPek5NquAFR9s31ElvKBEPQKjuUilK5i
iupqJL2ZW0MqUgarsWRnAZvyr//lEDYIwsQjdLeZ+6B5k3MhVE56swNK0qg3
m68MMPHo7fFOdj9k7hrnTR3aiT38c6+l1npm7Hxb5noNd/akEcz6HUdL8kur
6fjTD3o3QOIe/Uz8adjvGs4VHVHWYwPj14KP9X4deVDLu5KEWbs1bE28CWXu
pnf5q1cdiHwOfQeGLlZ+/pxT/Y89KpDuUg2tpwZGxlwe+ro/MJNpW8v0sgX8
Xo9rbOTtImLOXNLS38vXfFPJlws+eFIsfshVTmhrz03vEqlXUT7pjS/7Bi0W
+9hVWgR/dg0Q4hfhtjs+WW1G3lW9/MKGQrBij/TnlNUwqHbSmyOQVmHkcblI
rHs3h5vZeyB/5+DOqv+MJXulEPSKg1ny9bMKK3OPZ17/GyL20X/ij5M+R4e5
pr514KI3EH6UMs6OxxZDvgs97CJvMWBPukrelTnsrM981JL8iswdrllJDcaV
BiKfh24DQycrf45WULWZX4oQXw5dOduWFTPIKcwysUhwwjM20NEguUrcOOBf
LvCqxContGsgRjbs6/X9LPyJldb0MqsTg5a9Ns9Dca9VmlUvTx2RM1xDDWFD
fMU3aH3z8oL0dJD4XaQ+fVi4pFeqBEQs5PORjX4BFY1OYVa+Ppta90yFf/oX
348d4Lbi4m6TamczQveyW3rzcXfYCPOcMv25VEvf5dBanpLCVnTiXHNy5aPM
tk9nDZT3quVduQtmNTDKViSodsdMYQeeCgeRvwtdBoZuVv71oKOFeJCKMRPQ
hMQe4WtHB+d/ZWkd+OTLEhvQ4itzX342YhfhZJXCem6qUEsCaUgrsGuIR+nu
TLot0iWDc2+Q6hiWj5Qxb7srvC32VijJqvfV89DY4ex3SBaKVRE2sKOH5fUI
cFmr5GtMorJ7Q5JcWa/eD2Xysf3A05WKJqroT/8sMMJN8zOqmUwZYbbnPV2s
PkfSra0pqWWtadC3WHAZ557diWjp8y7p7qw2P6p5V+Z7gfRZtr41nCqCyC/w
AnoLDP2s/LzefJNeu6S3opMfdaQll7VW+wX/wrqCwc3E/hGgxwc7m4tlv0V3
TMQqJ9jqxWZlKcS2+XPF0tJ9etmDj5qjYyEpytySrHq5cXIs2cM+dYQNWzOO
fZQ8fQGz6OlIfUhZOiJ1fXpT8IZ9mKQ7yGnOxkN3V6bb801XuPBBJJkMqOKG
UVlkJfqHHUGjhMR6aOzE0fFviy/lzBKdiZiGHq+MrLD8qOddmZftJbqHfbs9
LWPf6f9oX2EQ+QXRVWDoaeXn9RmZZLbwqErGfS5J/Rsj1x8UdljYiYWvnbX9
6oxrOirW++VZ+Nq7bdbTdCS5oWCVD1eco7ulv3Vt48Ei70usckK7BkLjyh/W
sPVk7ru5lbz7GuUmsokx5t1NSVa9hCQ5SUqhoZZjQ6rcKivp5cQDtS3Oe9Lv
AVUnsnHkuPUaTNbL6mrSwV/TRRf77bO69+IzTcCrtESffZyYez43ouKlGORD
sPHDoAEcS1TzrixEclWvE04nKhBEflF0Exh6WvmZrcBoNp1R+YEth+wMWcrc
8dGkgPUcp4/a0zx8UyjvTU8qpIokk/En4fQwt+JdbGQqIlCQJ2rCfIOaZBGv
rkAOwxVLpbX37oLt1TL3e6MSczpegVGqVW9OoZgtVqvl2JCWjsiK4l+mhthT
lZoeeknGvm9rwf2WzO9HAtuLni7yfqV0OmczL2Sr4N5u7+NifaFSde/VzMa3
jsbU7WmgYpd4yP5NfR5E8lHPu7IgXE1PKKOoMBD5AugkMHS18nNPal0+Q+OP
JoaPUKkkdsg7LyznZl6Exg9kgqToicBWdPoPnWm9hJgMuShkTiiwdhW0smGT
4RZHML/qgCuWlrApSRnzWkT3r5FwomJZn4FX6k3khLOqOTZkpCOSmzGZeOSK
LfnD1LU578qSTXNKJMVHRZPs2qUWnPehP8hJytRJT6SIFzi5LkHQWxydPNfU
g6ePkmyZWHZU9K4sQjb9KzpTvqJA5ItAD4Ghr5Wf0JeyH0itvnMZZFUNUpJS
oqhYcJedeGX36YzjWckZL2+VEzrP4o4bctMVtkRZZNzAqq83Fbmymh3Yt551
dZjlSv05fQW7wkjWrPJy5tojrYdUGkXBCnrZ317iaU5GGCbf45H50dPB/rJq
N5fxyuYGygmZjcD7e7lPLfCIl6F7r1ayD7WDQ1O/aP1pVIG3adZ7PKjpXVmM
rXn3idQzjTrqnjeQ5kk2iHxRaB4YOlv5c/ti9HOSuBX1nbHKSErJlCBvRTJb
PZb+4vnhT9otIopmVmcc7VkBNZm+Mo+93fuKDZblBhPIq+ylr1qolbgg/BMB
yXVUXs4s1LwpH2KathRf7kxIlDS6kXt+qT1Gga+QNsaBbxLyqE7oEc9tXiDo
FSCx+LydboQyht5VDryQ17tjiZrelUUh+p4q8qw/B0S+WLQODJ2t/LldbLLs
SZWHG49Fmbs881Iqk0Taky/p5WW8Snk/5vQW7e/z/ZTnE6cK11Rz54nX0n9I
GFu9nHcfpYoHJBc5Us0TXm4uTmakyzWNjm/lyNnjy1MjxHwKyYk338BBrVEU
nBccVd+wv16cJIaJ3acHD5c+rDzz/CqD4x+vbK5jj8EcSLtmgUSduIv1sw3X
JS8fuI/WsV+UoVoak+3Dv7M1Weqbexw3HgouZ/k6YfWKut6VRUlWTtIVtdo+
X4VLHBD5Et5U28DQ18rP8181lailV474Q4+N/Zasw35pRrzkMrKr5sbLeE1U
2x9Cirid51bL86RPTOyhf6zLTB0Znnj0gtt2HRgPvWDjLx7x9jUKqZI4uXL9
cY+IOiuzvnD7usf10VCuC7Gltfe868rE3JrQF5u4Pb/6K03/2e18/+1jOePv
aq2d//x71+XkuDbvnUVhPQCpRFVH2JAkdTLC7mXWV1MKFsp60kF/G8k3ypzZ
jN71/cFurU0k8U19/xZaK8W0hKuEt46F1BP0psgpm6vpkKYgvNuk+CNe6WSg
YiFbGJRw8C4X7B6fWy6La/yS8B79OnlIFUBl78riEFOERHyrRgaRL+1ttQwM
fa38OefyOrFu4ExImoenViR2I0XoLm5PQfHUAvyM12R527ukzFdKCnprmo4c
ZqfFJXKt8+4vktOLAxP0J+91WvfUt71Lz/7CfrvcsJX9nWPXA4Gbnw0cpsQM
T8xMKqnp9gprA3Z+cL9uoRpaT3Tm8EZT4hPWn3DNCZX02Vcw5XuJDG+2Nuyp
b/5dwYEd5LeUtsBVS9iQhBUYEDuO7afhG2PdqZzf3NRxeuj8uMuTnLt81X1h
dKAz+T0ksnebg5Y74jwLs+A5zr4Pt5FRkVwDB92rHFnI5VvgpIBIBnh5AxNf
uX+nxHk0FcWzoCMz9kVtUY2S5Dx3BBs/+YMIddR2shu1vSuF4Fo/THVH3Q8M
ExGSQeRLRMPA0NfKT2otWGQ3SSlIWp0uw3aP2Q67CMls00jgaea/PA2NH8v+
FyUH85FhvK/X91P86cOA90+OAfuxpNMvVd90zD445pkMP+XpSxP52FefjfR2
JP6mvrlz6NPbi2LkAhlFek2vVxV5gJq8uOc6ur+h46Mp9XKWJzf6mgc/j+Ts
+pOjzL+iXWMjA/ZUwm+qbWh909b77oVL/xEIr5Sa7rJkRFPyDH4lv1vOMGI5
00vLD/GIF3hOEZUBfsNyUkekL3sZbcn2RBtF4pKGr1QUdAjk7fL0rfFW27tS
COIg21DZoEQQ+VLRMDD0tfLnWDfoYT3JqNNleCkzS77+rLaWsCnYWvK+bcle
ZUM3vaBc4kWMzKO61RabZZIrSxcd0Xx3AjK8iHhOUqIWMWUg+l9SGOKAj5Ai
Fx3TnJ2LZzLbyDgvJRmoQMie6IJWh/qEnaadKgiMXwsJbuDJTJIoZegQ9b0r
hSA7jg2xLMgAkS8DDQNDTys/Z7KUuUu1PzjK7EdEneDz2FmbOmfNXgsnHM0O
5k5do8LH6+QQ53JsoNLHOsYZMl4FbN9zttTKbxKUQa5rWQmznMoHca5UZOnj
HcrwFme2x6EMkmmj8DQw0pT+ngxR6idhdWhivVUJk88a2xWxlixaUA7vSiGI
ViBx3R/GA5EvB+0CQ08rf673kaqTpMSRVp5IdmFi1m6PNmePfGuOX3qYyglZ
c9psWt98flqEAFXC+yY3bun3PDD2fRkE4plib8U6ExqNnVX/meQ5QrnKvEl4
U6H1cecKQ/Se7HMEt/IuupzcPXVLkRY9bDm9HJJpgyBh7JcOYTZC4y1UY583
IlTs2ox47OnrFNP4oCVl8a4UhFgcpNeOjAAiXx6aBYaeVv5cvzLt60XpNFyq
TiAzWcCUGyGx5OSvbMqroJQ3BdEUWb5zt/RFodirC7bnXO2JpaSu3TVXrpR3
t2GIDs5oxMAsentS92nebXtq3as70tmRPrIhK2DJcrqlrF+yviGKigaTNaZJ
FXZq3hr/9ufCa/1ObPZTW+qcjjpydjKfFaSOKI93pSCEQ5ThCqEiQOTLRbvA
0M3KzzuLYdM2NceniiHj5irJRCLHloFqHZ1+khY2JKfucv+hxjp8a03hRXM9
6GgpfxQx63ccLXvU9P4CIkk7jVBtH88q0hEnlhyrXj2o8cXAxJe8fZY8/tvM
ZmTK2WOl9tsu3lnZSO0jTEQr0GaE7jVbzvh1PZWgnEhxCZAIs7k8N/nvF4b/
Z1tDZkNvMjd1/pZtx5X15GF24jv57o7440nHW2bqoP3C/83zyvHV8A1Hhzll
hnP6s9AvsvslynRFZfKuFGQz7DqW+Qjtzjk918ZlgMiXjYaBoZeVP1fdoL0l
ptSkl4mv3LloI5yGzb+6OJPZPW2H3cfNxH/q90aVrhIRgt7ynhfsxEJ/aEtE
ENIATWHWbg1ba0xUh3O2zLvF3BbU4g0CemInFqYHk0okytwxcnliOuPpV0tZ
e5xTEXbrwGyGL9lSs2k6x24E/ub7pL+pJpknGM2yRD2I/lkF121mfcF/gXWu
LkD9GyPXH8QkLXRskafwRPjMO9Yfsg//q/tzfyAYDAb8n7s/6mtlq1L1h3ud
+RID/V1R+bwrBSDPH+s6PD9WVmEEkS8bbQNDDys/+Q2k0H7STXpYhhj/5Nwo
TXyTH01mt9XbUW8/kfIWOX3eiS3c9lx4t9fWPeD4t4CUmVyEoLf8LQMb854e
s4my9HmXdNzZUckwUf9vm5Q2AxFJ7nwKY9kTMZuPg9ddI73HWcvopo7eUdf1
76Kb5AUw8bU538XhU60NFNXQdvp9d2AJGW8Wbii5Se5c8t0vmRlNKMR+m+uu
6Kc/sxH8sFFI/JOqsDlHkz6PaVftY129w3/w+EOL+cbK6PKKyuldKQA5ltQg
Z0CiQeSXgOaBofXKz58Ma9KH/idj0lssl4svh65fHGglTMjMb47S368Qf8+s
TgxaiCguZGwbX5pOltazf0i1jIdEt81mS+XUCfd82YvkzJPp0VZK2p0IlCK1
6ahrGw9q8eXvctjWxVgZUC7YOSxpFNjvMPHo146OfcKP/TSiN3qpaUEaHEiV
/4rK6l0pQHYSgeAoZKOByC+FCg4MUZACDxZdPDfjK5Oj7IkPVd/aP+a5GQje
W4w9W7wbnJny0e5/HeYP1aUajp9xfb2QM02YWQ2MHiL+Kr+XFBO760pLI/Y0
9X78uXuAFVFLKHcza984bQdqGo4PXbmnTdqZ0jNTOPktM6lzyT3Nwzej2pTZ
d+1YFSp6AENAnqSX7tmeY31DYG5qfa0+338wmXvp3CkweV6YLXaVZ2IL/43L
f0Xl9q4sCqlcrBsN5O+XNySI/JKo3MAQx64TUl0kva+SGYX/g7b6oqcN9Yfs
Iy7vnX/kSzVz5rIleN2ZO3I3sb+7OZyO9lTqkrEH0UO5WxLxpenxdGeELn69
yieV8e7rcHytUcb7Kk/SqwNtkpF5Pu/7xKEXPvHNCxw8ks+uUpft7QeeLqIt
or6tb8zjDy2sZE9XX24+fRwO+j47ZyMOxSjL4ISAFU6q2FVOK78UWlxR+b0r
i0I2ulbUyoDIL42KDQxx6FoWyMTmpzzO0YHuzgy23qHzYy6P96vgYtGqavyh
x2YhL4s67uFPL9ud8XL2IHtaxr4zXrMrsz5/fbSt8b0pY6XrBmV9cqjxjeFr
9zWVlOQ4glbnCqYcu3p6tUXoaU5uefa0u/9eQiQSpo5US+8n/qKNMzuxhYmx
zkyeIKDpShW7yjixJY0mV6SJd2URyEZXzU2ZFASRXyKVGhgiyTEVNFADeBHS
FlIEe7u9j8lbgzzRqOn4471o2H8hJeulzLZL4bIaTwEgk11pWqWOHC0LzKMb
/a+J6GQpC9Rr/TceFV2GSEV3KXNJmM3Zj9tSVqDN/0yHn4la+7IWkUUf69oU
u7S6Im28KwtDVrQU9vXSFER+iVRqYIgk1+qzApLetIUUieVdXv2Td6JR23Dk
UEPqUUcdtDv/pt1pNQDS2JX0VuG2vWohn1wlTBTKmDrutpMVgBsGlLO6ZtGo
2KXVFWnmXVmIrQX3W0okh3oDkV8ilRoYIqm4pDdntiN/R8bEFu/O3Lo6nPMH
JqqhY2D8L6EVbQ2KAZAGkt4qRpEzysz4bMvb3iXJqx+zfKM/aY9ToFjELPsH
D5S92KXZFWnqXZkXUgZQe8h1X4vS804s8q3vGk17XGNJpfq5Abuts/P4sZOf
zcmfJ4vILxE9BIaGVETSm8xlv53y/YW+6naO2JtEn1BSTd3nXfRXcyvQQQIj
gqS3iiGXbrm/+8sH7qN1JtOBQb+8wuT2Et1Tk3hwDvjXd792cpYuZRma3P2f
VES7K9LYuzIPvEZXjTrUiaG3JCW1DiHyS0QPgaEhBk16d2KL/89PuxwDv2pt
KDw/JTfHbWh9o4m42hKHmwOgMUh6q5jSH/3Mi9D4AZOppIm3G9Mje6l8EtZn
QcdhE/WmK1zWOacaXpH23pW56CG3YeKxX6JJ5kNXBq3pz1Jz0HmvBONaRH6J
6CEwNCQ36a3p9cmVyJSBrSdzX3nGBo7xE91EMnvCPjDieK+3dfemsrHXfWcx
beHLH9C2fyykJ8doAKSSnl2IpLcaIZfuLs+ijIPUlEl7iT4D7CPe1OII8spa
zBLdVVNaUiGHyruiUmCeT53l/Ge1zm2YrcBoXeahLF+ImwSRXyK6Cozyk5v0
6vMbYGIPv/rsXGd23LC5qXPA4aL9wUhmT83EI3S3OVfZQLV9PMtZMbz4fuwA
0eDW4VnUb1gCIIIo3Ymkt0op3WzzeWjssKTpk/lIFc1ylIHP55yva2HbVXlX
VBJK+tmWCjEGq+Y3vpImlCHyS0VPgVF+cpNe3Q3pjv8cvPROa3pKRa218z2X
95tIbNctwzVU8iAVOy/Xp94lCsGUuefzKJJeYGSYRU8Hkt4qRTcO8+xMWN4R
4frkkIWi2l3hbWOusJVyRTrKbZgFz/HMZyl19C0iv1R0FBgaoGdNLxNfuXMx
PSPY0jrg+mphvUAkbUboXrMpB8rSf4MQqWdaPqkDnec++xLNa8D4QNNbxZBL
d7tzTkMBIduslFWLpXp8LF10RNcP/mJUxhXxhtdonNus+nrTH6VEQe8rRH7J
6CkwNEC/SS8TC4631SU/krlrfHqp8O/CbP7wpw6+Ly+bJg/6lsl/FH8SvOqi
7+SpEgNgTJD0VjFK9LArAzssgDrtXWGX1lRffEELU0NQGVekn34lUkRa+tE/
Ir9E9BMYmqDfpDfdpGM+5ZotNiqFWb/jaNljyoFqHZ1+ou/dFgClgqS3iiHN
oLT93XdWvKepdM1N57b8IqmMK9JPbkMIehWYVYfILxH9BIYm6DfpFUU84u3j
j1FOst/muqsP0xgAVARJbxVDzqXS+Hdn4/DgSODZq1e/TA0d1I1RrXwq4orI
3EbTwVtMhLal5YeUjS65lQaRXyK6CQxtMHLSyzy7d/HELl3Dnubhm8YZJazG
wBpQLexKeg+PhfTVh2oons/7PnHohU9888V/SvLRv6/X93OZvqR8MAvudvbp
ySx7u/Xu1ySKirgi9vBdD7nNun8gbbykyPwvRH6J6CYwtIGc6FeGpJeJr4Su
uxzJ1M7+zvj1+yXUY7eWvG/vsuWlzF2eeX03TvJRY2ANqBZ2Jb2a9jIbnV3f
prYIHTvqqVyTtM5LfIaHbCPP/j7fTwZagvNTCVdEJoepaqQmMFtBx770x8h1
tZUFIr9EdBIYWkFevqiltgS2ov4P2upJK13ZQwB31qbPN+8y5TXbPp01WJ+a
GgNrQJWQUpSRIOktAebRjf7XRM8wVxnqtf4bj4qujS/X/e9kjMspjSftJB/9
1P5/cbuM0cgjgkq4op99vZlk03TMFd6U/gpM/OnDgPdPjgH7sSazqb6po3fU
dT20kj1I3YkLH6ruEvQyG9G7N92OwVOtDZSptqH1V4NjVybDq6JXLkR+iZQe
GEmYzehd/xXn6ID9RPKHTA4J6+wbcX0RjJZkf6w+ZUt686ap8t5tJzb7qS13
DoURM14SBQfWgCqB14/AgqS3iiDn8Wnsr84aUtU2NR0wRiOPCCrgipi/u9sz
Ld6cw4B4sg75lta+33smpoMzk96LA631e6zdl2Zj27G5fx9stZioI2cni5Y3
eYLeq5HlGXdfC0VZj51x0n72NZ19TcmU6WC365sVcbpERH5JlBgYyXQ3cts1
yMYGVd/c43B/MTUTDAYm6E/eS04Qo1r6PDqZxJ2X7UVPVxmSXmbt1rB1t61Y
3VH3A4lbo7wZr7F0vHlRcGANqBJ2Jb3V14hb1ax47dxCqG0vRlYZ0joWqohW
ygq4IlKuI60eysSjt8c72bwy1y90J/bwz72WWuuZP/y+o15U2pkV9NZYT/Wd
su4xdzh886Tl/ouVyd+xBTFzx8WQqGQJkV8K8gMjwfba7NXBZjZnpg4PXr23
xs+7mNjclb7XTKbm4akVvSZk5SkWbYRdb+6q8u5p6v/LgjT9bd6Md7/t4h2R
O0T9ouTAGlAl7Dqm0fioD5SXZMErsxhqu9/hkpCKaUaogCsiMkPK7l0R+88S
Ge/N4VRWk98vdGfVf4ZoRNnT7v574ecVKehN/nHzkHd+94EsE6G72Jekjo6F
RIh+EfmlIDMwXiUVqhPn0uf1Bbxkmc3HQc87ib/hDarTF+SpumpJ784958Ea
U03PZ19fc/Sd7Oy02Qcc7q8eSiyAE184R/0bo/5HlVDcUnJgDagSdiW9BrJe
AQpAavM0VbYklY0mhXrz9YHxr4jQAEh4pjArX59NZbymxn5fASuCF9+PHeDO
bYv3phEnmMXazLMnzrV9vlXhxACRLx95gfHq1cb81X5rKgGrOXHxXr6Md+32
aHNGOKHjY8dyWH2mAqOUrRDzbNZ92srLeKldpyTGRdmBNaBKIFd+9paQtm0H
RofMKDQ1LE0/+uU3xegOw18R2eXaMOB/IuofbT/wdKUSIsrSf6Nwk/mzwMjB
TN5UVIxHCHpN1nNTawX/MpuHiFL3IfJlIysweD1ZDd30Qr589kXEczKbo+m4
9M0sejp4Sa8KFhapwKgbDWzJSVGZ2D1PXws/4T1od/7N4CJeEmUH1oAqIddk
W8d7a6AG5Ga5rsPzo1YLYjpj0fFjTirGvyIiL6W6xdVCNx66u9IFXOpNV7hw
VxaZyhYX4xGC3gNj378o/IdE8U1MEovIl42MwHjFLN/ot6RSMMrcTUfyp16k
/W9du2tuW9kPriDZsEw/OZU3vtuYHtmb+MYa+7wRiQ/lrej0x3Yr+flqrbbf
V0qBN4PCA2tAdUAK25IUF9eBSiQrizLVDvhLt0CVxc6q7zc1hjrhFcL4V0R2
6ItLyZjVicF0YiM0ZOH51FD6tQXOx4mT9OKWRKQLmcXuXRL+uIh8eUgPjFfM
kq8/M/e22G6IiUdvjXcfqq8/1D1+S9c1yVx9gxq/4GaE7k1mdVRLr2ta3Lex
E1v4+pNeXoGXsvZc8EtVAhsBhQfWgOog++hJofFwIqAB5CPsoHNOm2aA9aCj
pbKmARr/irLPFGqfY0bEZFyy2Xxvt/dxkcfszpwzUyssnspuLbjfSv+hgGiB
+EuRZTdEvjwkBwazEfwwk/IaZeScILmHpHUjAeWnRzPPZl2n0tXM+kP2kT/S
/m/CT/K8DxP7x50b7vO2A0S6S9W39o9f+97wFg35UXxgDagO0nIyDo3H0AMt
IMWNb7kXlF+5hUm3NVWQR7Thr4h8pohrEkmfxqaetyc9kSJKBPGpLNF0IGBJ
RE6GFbl5R+TLQHpgMD/5+jhTZKOMnBOE0HikUKsHfGsldM3By2YzOW3TG50J
UnM9eFha+8bpwD90XN0tfWaN4gNrQFVAOrSzGGjtBYrxMuw6lA4AgQKduh+g
ggTlxr8iQl259/2A8IAsZiPw/l5uIRE49SYS1OJ/KVoFkfZ3SiO2cIrIl47U
wHjFLHu7uV+mpte7bJhLLQp5spBK51V1+2TiT+a+ol3pLDEPiRy4c8Dhor+a
e6Lz0q4iM2tUGFgDqgBSBccit1EUGJuX912HMuooDcSNmT175biLG/+KsiFB
7R2ZFjEmjGxBEjr13ppx7EsXp4ofChMqCAGXACZK27h6l/hWbkS+VCQHBu8p
U0ENR2QjpMSoU/BDxJZ/MtIQYeVm1qgxsAZUPrv2qh2eRcRGNaKp90tmqo7G
02AVxPhXxCy4MynsYUdQjBfTktfOjZsQSFCJ+mpxHQJhjSXgEiA7s0LkS0N6
YDwPjR3O/DIVNUGA+CpSGMh0ThMUnFmjzsAaUPnkqpJUkeIDI8BEPMczFpqi
jTcVeuv06WflOIcY/4qIVLDl4pyYmac8dUFxfWw8SndTov6SyJcEzo5Xp4a4
Tqn64x4JdVNEvhSkBwbPCr7c37C65LaBF2/JrHYUnVmj0sAaUOkwP3o66oh7
1kBrL1AaotmkvOsDV6NTwd1dG4x/Rdv3nC210hJI0sFpz9mp50X+ESHo5aWy
THzl/p25FaKeS8yLLN4lRPbQWc74hSdTECDyxSMjMHguB+3OORGCCKOAB6h4
lJ1Zo9bAGlDpbAVGyFvWQGsvUB7CVqimh14qmyv808AIm9hQp70rlbEoGf2K
iEgQn0CSjt/Fe9OImjBfRpus1vInQmaT3qKdXi/Xp97NnIrKmGiAyBeJrMDg
uWpUWKN07lGpdm7POkfpmTVqDawBFU7uIEXDrL1AHTgFVDlnIXEpkJEmUhXF
6FfELPsHD6Se4S3Oe6LDgCjoFa3KEssOfw5a8nur45vMx6O0XTjpzcatiWr5
aGZd+iKGyBeDzMAgT6IlJb1b0eA3YV13aaUGixAY5acsL4rPrFFxYA2oZHY1
n2pmzw50AlHJafwwKMKMSIG3zDSDVIye3OhXxCzR6aKMud8bFZ8AEu4NRZJe
5mlo/FimIswzFmO721rHQmQ1JtuuUvjLJIKWanfMyJMnIPKFkRsYzIvQ+IH0
Ly6+1WsrOnGumWoc8C/L/LhlgWjJTGVqOEPfjeIza9QcWAMqGXIDngRHM4Ao
5li66Ij6z36uVFIxowCNfkXPgo5U75jUmieR2+xzBPM7H6YymcyKwztaehHx
nKQOjIde8P8hJ9YtcNbJxILjbXXsy+23uefkN88j8gWQHRiJ1PCB+2idmJwn
DfM84nuvmdrTPHxT15OIX+2WCBpqsl55UH5mjaoDa0AFQzbVmnKPGkGVwsQj
V2ypek45Sl6ZpnuBxdBAGPqKyF//g4BUnQCz6O1JPWJyCrYpUhlv3ZHODmtq
ySH73ZIdUpZ82VSmTJT3+4wv+gab0hmv625pVpyI/CKUFhivmI3QeAub+FDt
rnAxzwcm/vT+DcdbZtO+DsfXes94k+Q8RtHLloMKM2tUHlgDKhbCHz61Zaqo
vlogH67pQH19o+FkjYIY+oqy1c7m4akV6c9uJr7k7UuK93JNhJjNyJSzx0rt
t128s7Ix52pPVcc4v7LNCN1rLtQbtTnr6jAnm777vEvZLIiJr4Uu97GZFHV4
kL6vhPk8Ir8ApQZGgo2Fz3+bnJBlKlS/fbn55P7k5Q9s1lrK2uOcimwaI3ck
/feS4MCUj/Iza1QfWAMqlFxjbQGXIVBNbIfdx9kWWnMvHVHRbj0ThEKLoXEw
8hXtrAc+YIuPNdbhW2syF4OdWJgeTLpxUuaOkcsT08HABP3Je528TIbZDF+y
mdncuHPsRuBvvk/6m2qODE88KtDjxMRX7ly07U88t6y2Dy6nhpa6ho4lX6HW
ar/gX1hXbOVC5OdBkcB4lSz1T39st9YmB+a29o95bgaCCb6Z8l3zuBwDnc31
if9gPXn+8u0FXTev5ZIr6y2o7alOFJ9ZU4aBNaAiyW07ren1wVYbZGDiEbqb
TUuKeiqWCLcoNY0Enqr0HuXFwFfErN9xtCRPDWUaIJAvtfk4eN010nu8qZ4y
1Td19I66rn8X3STLLEx8bc53cfhUawNFNbSdft8dWBLo6o+vhv2XHAO/am2o
NVENrZ29wxeu+O9Gla4HIvJzUTAwkq+2Gb3rv3JhuLcz8dOzu4umY532gfed
l764PfsoZgA9wy548xRMmMvGQ/mZNeUYWAMqETIekiuPrRy9G8BAxFf8w6z2
sqGbXlDHWzNz8lU5B0+GvSJmdcbRnnzi1HS6fqhyN0tEPgECQ5iM3zIeprtR
fmZNWQbWgMojd3NafAsGqhLm2b2LJ5JRYra7w2o871I9IJRlaLJSVHAGvSIu
zWsa9C1W0vAAmSDy0yAwxJBr/glZbxblZ9aUZ2ANqDRyZUiGaKYA5Sf+aGL4
SPKst/n8dOFRj3Jh5V7U0bFQxTwijHhFzPa8pyt5oF+6AUIFgchHYIgnOyDM
ZIwCfvlQfGZNuQbWgIqCdGw2CQ7yA1VN2hWKMts+nVW4wST+JPTlta/CFfQ8
NdwVMfHozeFk3xkSm11UdeQjMCRB+sGaDCHVLheKz6wp28AaUEGQ462T5DXV
BCBDuuqlxtMfaAkTC11MuoEhsSlAtUY+AkMiPKMA1JEIVJhZU7aBNaBSYJa9
3aSet+XiXDG3cAAST/+l6fEus2lPs+MONkgVwssf6ZP7lTO5rVCqMPIRGDIg
26YS7J4tWLUoP7OmbANrQGUQX/b2EjlvLaGWAaAIWyuh/3ttagEb5wqBWQl9
8cVtBU1uK5Yqi3wEhhxyPBxwfsqhwsya8g2sAcaHeeztzk4FNMgQTAAAAEC3
EOf4rMKh0fEtRpxmUHxmTRkH1gCDwyzRXUSdt6aLXkJwAAAAAKXw8oH7aF32
4br3/cAGHq5ZlJ9ZU6aBNcDQsLLw7G25v8/3EwIEAAAAKI3tJbqHKCkdHJr6
ReuPBEB1k5SFEz2mjR8GsRUFAAAASmd9csiSrSrVdHtVm2QNABCEMK9LgjEl
AAAAgFJkjAXSLTMn3PMYdQqARjDL/kFSaN/rXcZgSQAAAEAZ+F0zMOwFQDNy
bkb0lgIAAACK8izoOJwtLuV13AIAqE4sNNZKlHl76CVIGwAAAAAl4deXICME
QAOY1YnBrMAeZV4AAABADfjFXniXAVBu+Op6lHkBAAAAdWCWb/Rnq0wo9gJQ
Vvhl3j0tY9+VrczLbEbv+q84RwfsJ1obkrNWGlo7+0ZcXwSj2PoCAACoSDYe
ugmNA5S9AJQPbXT1zGbktmuwtT6Z6dY39zjcX0zNBLnhgyaqpc9zD6OxAQAA
VCAb3zoaubS3rs15d1PrTwRANcAX1Vu66Ij6meb22uxVdtB2IuE9PHj13lqc
955MbO5K32smU/Pw1ArSXgAAABXHzqr/jCWrKrR7Ikh7AVAZvjcv1e4Kb6ud
Zm5FJ841p8QU5lOu2We73y85g9vzTuJvanp9qyp/GgAAAEADmCVfPzcPirL0
38CANgDUZGc98EF2BBvV4ZyNqfyOG/NX+62pjLfmxMV7+TLetdujqSJwgnpH
EPMxAAAAVCJM9PMeM9dQg8NNANRk866zra6M/Ws7a9Pn0zVeU0M3vZAvn30R
8ZzM+kgccoVfqvuZAAAAAI3YjNC9Zu6RZz03tYaONgDUIDbr7ODSS6rlo5l1
de81wqSFMnfTkXjeHe3GnLMdRi4AAACqgnjE28eduNZYh2+todoLgMIwm7Mf
t2VTXvWFDaR4iXrTFS5UVGbi0Vvj3Yfq6w91j9+K5k+MAQAAgAqBJ+qDyAEA
xeEJG8zH3WGVC6rMRvDD7Fa2i17CLQ0AAAAk2Ynd+2MHZ6NkHfavoJsFAIVg
Vmcc7ZkqbxGlgYLv+JOvb3/mft7f5/sJOS8AAACQYWvJ+7alnM9lAKqC+Ip/
2MrpGprPT6svm2eWvd3cHram17uMPSwAAABAwDwNjR/L1KPq2saDGM8EQGkw
2/OeLs4gxWx3h9X2KEvwct3/Ti2XZtvoKG5kAAAAIAdeU1vToG8RFSIAZMOs
33G0ZNTyVOvo9JOypJ/PQ2PcmOOag857MGQBAAAAdsPEQhc7Mh5mBdzsAQDC
bD/wdO3XYgv5s693X+Z9Gwb8T8r0tgAAAIDBYOLRm8OcmYO5xzOvsoM+AJUH
89Pk2SMZWcN+m+tuGcVCi3RnfSbpbXfO4f4FAAAACpHIe792dOzLtN6cm4hu
af2RADAOzLNZ1ymzNhlvgif+gYZM0muno9AoAQAAAMVgYnddtv3IewGQhsYZ
b4LNsOuYrKR3Kxr8JhyDBBgAAEDVwcTu04OH03NMj7rnX2r9gQDQO8RUCOrI
8MQjLcqszIvQ+IF00nvMFd4U96+2ohPnmqnGAf+yup8OAAAA0CfxaPD6NZqm
r30VhoMZAEIwyTsmccPQf/XP/aKZsODlA/fROjbp3dvtfSx84zLPI773mqk9
zcM3MYkYAAAAAAAYBGYjNN7CHtJQ7a7wdpE8lok/vX/D8ZbZtK/D8TUyXgAA
AAAAYCg2Fj7/bVMy7y1Uv325+eT+5OUPbNZaytrjnIpsIuEFAAAAAADGYys6
/bHdWmsyUfWt/WOem4Fggm+mfNc8LsdAZ3N94j9YT56/fHsBzWsAAAAAAMDI
MJvRu/4rF4Z7O1sbWL2DuelYp33gfeelL27PPopBzwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAADy8f8BZ2fjYg==
     "], {{0, 156}, {935, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{293.00000000000216`, Automatic},
   ImageSizeRaw->{935, 156},
   PlotRange->{{0, 935}, {0, 156}}]], "Input",ExpressionUUID->
  "90d2371a-6e1c-4dd0-9988-9dbeccc77529"],
 "and\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQl0TVff/yOmBgmJIaGmDKaYYg4xE/NYYoiZmmqoas1jKWouMc9zqFJU
1VJiLsoy01gosVC6yOMtVvV9+iz/z5v973nve4dzz73nDiexv2s9XZ6Tc8/Z
Z+/f/v2+3z38dmjfjz8Y4Ovj4/Ppe/zngz5jGowc2Wdchzz8n7jhnw4eOLz/
h82Hf9Z/YP+R0X0zc7E7/6ubxcfnf/79VkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCIv0g
JSVl3rx5ffv2PX36tLfLIiEhISEhISHhCdy7d2/IkCFz5sxJTk72dlkkJCTs
A82CYMmWLZuPj0/WrFk3b97s7RJJSEhISEhISHgCZ86cyZMnDxQoU6ZMsbGx
p06d+s9//uPtQklISFjB69evFy5cGBQU5JOGKlWq7N+//++///Z2uSQkJCQk
JCQkPAF0yokTJ9q0aZM5c2YxhDt06NDff//d2+WSkJD4P3j48GHjxo2FZilY
sOCWLVv++usvbxdKQkJCQkJCQsLTQL8cOnSobNmygheVLl364sWL3i6UhITE
/8fTp0/r168vumdUVNS1a9e8XSIJCQkJCQkJCW/iX//6V+/evQU7KlKkyLlz
57xdIgkJibdv3rzp37+/6JjVqlV78OCBt0skISEhISEhIeF9vHz5Mj4+XnCk
6OjoJ0+eeLtEEukMjx49QvMaYbfU33//ffLkyd9++83bBdGLI0eO+Pv70yXz
5MnDF3m7OBISEhISEhISRsGvv/5asmRJIV6mTZtmBApqC5Tt4sWL9+/f93ZB
/gcvXrw4evTomzdvvF0Qb+L48eM1atQ4ePCgZ16HNnn48OHt27f//e9/m16k
Ld6mmcemTZsoT7pe+ohFde3aVfTHbt26veMGJiEhISEhISFhCvjeF198IZhS
9erVnz9/7u0SWcdff/01e/bsZs2aPXr0yDNvVOfJr1696tevX+/evVNTUz1T
HqPh3Llz5cuXT0xMVNTu2bNn+/bt26dPn4EDBw5Jw4cffjh58mRRY6bgJzt2
7OjZsyd1OGjQIP7Lzffu3bP1LlphwIABISEhERERMTExZcqUqVOnzoEDByD2
kyZNohXE7nVaZ+7cuRUrVrxx44bbvtu9ePz4cWRkJJ0xc+bMa9as8XZxJCQk
JCQkJCSMhZMnTwYEBECWYIa3bt3ydnGsAEa6cOFChJVp8bzOk589e9a6dete
vXq9fPnSPd9tXFB7VatWpbZNk/Q+efJk06ZNXbt29fX1xZzCw8OnTJny448/
Wk2KdfXqVdorS5Ys2bJl4ydbt261Wo203ebNm4ODg2lrRbRy8YcffqhRo0Zc
XBw/xzaU+1+/fh0fH097PX361NUf7Qn8+uuvhQsXpvb8/Pz279/v7eJISEhI
SEhISBgLyIECBQpAltAvxlxXv3v37tDQ0KNHj5peNAJP/uWXX0qWLAmBN52X
yfBAwaEWK1eubHVTyY0bN/Lnz0+LDBs2TP3wEYytaNGiO3futLVGketbtmzB
LGfPnm35KOyBP/n7+584ccL0+s2bN7GWiRMnpsejT1Au77//PrWXM2fOQ4cO
ebs4EhISEhISEhLGwt27dxWydPjwYW8Xxxz37t0rW7bsyJEjraoDr/PkNWvW
oPuSkpIc/Kx0DORhnjx5Vq5cafWvyJny5cvTIi1atPjzzz9tPeTVq1e9e/ee
P3++SqslJyeHhYW1bdvWqsx88eJFnTp1IiMjHz9+bHqdB06aNClfvnznz5/X
/E1GgVQuEhISEhISEhIqMFUuRiNLsNDRo0dTvJs3b1q9wes8+dmzZ9HR0Y0b
N7ZcpZYh8fr167i4uJIlS6akpNi6oWnTprRIxYoVVbLVrVu3rnPnziqVhpCc
NWuWynaPv/76Kz4+vkuXLpazbFevXg0ODkbtprtpF6lcjAzMafXq1bGxsVFR
UTRT9+7dVXyOhNOg79vKTSEr3Az//ve/rXo5Lhohv8fPP//coUOH6tWrE1vL
li1LkPV2iTIsbDU319NdHMzAkM1kCee8hJHJ0i+//FK0aNF+/frZOkDcCDw5
ISHB39/fYym2vItLly7ly5dvwIABthbIcf2jjz6iRQoUKEDzWb0HHdqgQYML
Fy6ovIiO3L59+yxZsmzcuNHqDTRE165dv/rqK8s/QW/4Lb0A27b3QcaCazsj
bfH777+/s/7QHUAUL1u2rFSpUrTR8OHD02ndPn/+HM/p7VLYBIEM71G7du0J
EyYgFXft2rVixYqRI0eWL1++devWf/zxh7cLaBSIsBUUFNSxY0f+sXXr1h07
dixYsKBHjx6FCxfmH15PFvr06dNt27ZBS+gvNF+6zlpPWLHFQ7wOOgUhNSIi
YvDgwYsWLdq5cydx8/PPP4+NjQ0PD1cPtRIeg2wmq3DOSxhWueB18b3vvffe
7t27bd1jBJ7MewsVKkSwMKxbcyHmzZuXNWvWLVu2qNyzcOFCFXOCMiFFuUc9
qhImWrZsKWbT/vWvf1neAGlMTEy8ffu21Z/Pnz8/W7ZsxHHVrzEcXNIZUehU
b0xMTJ06ddD1JUqUKFeuHPpaUj6XADdbuXJlu73AaKC/HDhwgD5Vs2ZNrKJK
lSqQ26FDh965c8fbRTPHTz/9lDt3bh8L1K1b9+7du94unYGAC4X2WFYUxjlm
zBiDiFMM77PPPhNp3tNpiBR9B8IJ2TDmnlZCJA7f0hKCg4P37NnjdQErISCb
yRac8BKGVS4vX75s1KhR8eLFVfKAvTUAT6acjRs3xq3ZWkCVYSDmMoKCgq5c
uaJyG30Qvenr67tq1SrLv6IN4+Li7C6uo8LHjx8v+nVkZOTSpUsdOk0+KSkp
V65chg00tqC/Mz579qxjx47wFiXDOfbZq1cvntmsWbN0mnLNULh48WJgYGD+
/PmvX7/u7bJoBb1p3rx5zZs3v3btmriCP6Qn+vn5YW9me/e8DpRLwYIFixQp
kiVLFuyWjly7dm10ohGWPxkKNOK0adPy5csnNnsC6q1z584///yzt4v2v8D/
NGjQIFOmTAkJCd4ui2Ogp0+fPh3+UL58ecQg1du/f39jBhRIS7169ejLBA7K
SccpVarUxIkT5fHihoJsJltwwksYVrncunWrUKFCiIJXr16p3OZ1nsxvx44d
Sxn27dun8SfpFL/99lu5cuVKly6tfqrO5cuXoXbU5OjRo82W0yQnJzds2PDc
uXNaXsfNJUqUMB2aKFy4cO/evb///nu7qvzOnTtYNV4ifU006OyMYgwWpjdh
wgTTXgPHFvkDP/3003S6wMk4WLt2bebMmWNiYqwOcRgTp0+fzpMnT8uWLU0T
y79+/bpFixZYReXKlQ0laVEuTZs2/f3337Fndef/jkMcxzZu3Dg6NS7RmMru
9u3b+LTcuXPTrN4ui2M4evTomDFjVq9efffu3fj4eIMrl9atW4sMS/Rr6eSN
CdlMtuCElzCsctm/f7+fn9/AgQPVfYUReLIgMzNnzszY8303btzIly8f0lj9
CJuHDx+WLFmSCmzfvr1pMKWrfvjhh/PmzdNeS9gzdAslbja7ypPV1dOTJ08q
VKhAMRyaqfE6dHZGDLVTp078HJpqOu5KXZUpU4brdttOQh34ItiLT3rb5LJx
40YxfzFjxgyl9/EtgwYNEtZy8eJFR5/Jc44cObJ9+3aXOz1FuWi5GZuHWzpR
fk8C17dmzZpLly659rGmykXL/fiBRYsWaaxYV2H37t3Zs2fHG6ffTS7YWLdu
3VyiXO7du7d48WKXD3qYUmKDwytG6Cje5WZKSkrCq3tYoTvhJQyrXJYsWQJl
nT17tvptRuDJBw4cyJEjR79+/Yw5IPPs2TPIAIVEeuhZaXzixImAgACqSH1w
T0z8UW9Vq1bl1cr1LVu2dOjQwQlvQOWjDbt06SIMVaBnz54qiYZ4S+3atfPm
zWtr95MxoX/OZfPmzTwBizUNDffv3y9WrBiPbdeunTEHZtMLsGesOmvWrFu3
bvV2WRzAzZs3a9SogXo1XRim8LGCBQs6egaxSLNGoHFH7nGHlAvYt29fZGSk
YU9uxRf16tWrY8eOLidCjioX+v5nn33WsGFDHIJrS2ILFIziObR83YBwlXK5
fPlylSpVEhISXD7okS4osYDnjdBRvOPNlJKSUrduXbqtxxI5OucljKlc8MmT
Jk1CRCxfvlz9TiPw5DNnzuTOnbtZs2aGStr55MmTGTNmlCpVKkuWLGFhYXRG
5FW2bNkGDRqkbIIwA9cXL15cv379kJCQIkWKdO/e3ZT5C4HWqVMndevCt/ft
25dKowKVHbWoQpwVFaXni7AKWE2lSpXEpjaEmK07X716xeucG0z2ItzUGX/8
8UceCN9et26dzkc9ePBg5cqVI0aMQBxBhmNjYwcPHvzDDz+YBfQ//vhjypQp
6vuhXA5C4ccff1y8eHEqEDuPiIigeGPHjj179qxz8wJ8VGJiYr169UqUKFGy
ZEk6TlJSUmBgYIECBdLRJhdbEKkGqKvOnTs7tJubysRD4h9od3cUTFEulJBX
LFu2bPfu3ampqSrlQUbRcXBQ7iiPHhCe8KJ16tR5+PChyx+uKBcccnJy8vbt
2wmXJ0+eVPHPdMz4+PiYmBh3lOdt2t4Q6IfoL8TlY8eO8V9fX98lS5a443We
gUuUCx4DfS0ay7XFe2tCienIBNk1a9Zs2LDB0eEI57Bjxw78odkQMdY1bdq0
li1bwuIsF2y72wj1IKM2k0O4du0avHHMmDFuGm1wiZcwpnJBhcGOVJJ9KTAC
TxYr1oyzFAe5AcuCWgwYMOD8+fOK+QkGK9a6mHlg/i+0FoGDZKNnIWEIhUi/
Nm3aKEvNhXIhEKvbM/U2c+ZM3uLv73/8+PG3aVv7Bw4cOHv2bI0EEgWqogH5
ovz58/MhfI6teyhzo0aNUC4a1woaBO7ojFSFyDfYtm1bp08dwrAhq3D4zJkz
Z8qUCZ9DVMKKRo0a9cEHH1DPZcuWPXXqlLgZ88DpYX62Mr+5A9h8rVq1UC5b
t27F/GrXrq0MO1A8J6YGoM0dO3bEhlFqfBEGOXr0aDoIn5++NrlYBT1x1apV
iFmayVF1f+TIkYIFCyYkJLhpcSxelxoeOnQo/yUKzJo1q0WLFjTijBkzbLkF
3BcmRxw0lKKkVJMnTy5WrJjL14kJUP/Tp0+Pi4tr3749VTQ5DaXSoJKl/7ff
fouOju7atatroxUfu3DhQgJEnz59xLapvXv34hb8/PzS4yYXU+hXLk+ePMF5
tmvXzk37LnFHGACdBb/Xs2dPHCAEgC6DYbh1agMG3qpVK2oG5SKuUFfIZ4oR
FRXFddyL1bMJ3GSEOpFRm8kJQD9CQkLQVq518i70Eq4iSxAkykBwb9KkCUZL
EOGxQUFBPDZXrly0DsGufPny8MkhQ4bs3LnTdH7EEigXSAiBddu2bervNQJP
Fsqlbt26Xj+P8s2bN/iQ0NBQQpjZikFqY9GiRTBP6qpmzZqmY5gUu1+/fjTQ
vn37TCtt165dVapUUVbKUb1UMoHSrhLfvn07bacIz8TERPqmyqipKXCG8fHx
33//va0bUFU4PexcRZmK9IM0ytWrV7W81CBwrXKhKW/duoXSpCH4r3qPswV6
4rfffisWZNIRPv30U8tjYYk+2Bsl/+abb8Q6ouzZszds2NBjUYmXQly/+OIL
xXr5BwIcO6fYderUcXQHOjbWvHlzbBh6rzzz4cOHYrsQrikdbXKxBF83f/58
oTcdlfZ3794tXbo03dl9jUu/pmw0qOKWcTgYHpqRoG9ruSOsA7dQv3594yyh
xw0GBAQsW7bMTRJP5BbLmzfvd999p1zEXeO0eS/h2NYP6Rr4xqlTp7rKjHnO
3Llz6S+dOnVSDAOWQiCmv1SoUCFdZ0/SqVwwY8Jr4cKF3TcHLVZHE/JMCfCB
AweI1xiD+7Ke8rqwsDAI3pEjR96mzcj36NHjk08+wcOgnZEA8DdbNuZyI9SJ
DNxMTgA7HzduHBH/2LFjrnqma72EfrJ04cKFXr16Wc3ArwIodNu2bW0t5ODi
xIkTtcy5vDUATxYHENhNg+Zu0B2oUvqFVboOiY2IiFB27iisgN7UpUsXym+2
1gIzGzVqVLNmzZTxh0uXLsEoUKZ215bQrMIeILS3b99Grp4+fVrjV2CQVatW
VRkHRpGVT4PKZi6xEgbDTl+HUbpwGAFvkC9fPl9fX/he7969nZuXpzxt2rTx
STshYsiQISqckA4rjmhMSEgICgriJ2PHjvVYSEJ6x8bGrl+/3vJP6DVHp7yV
TIMtWrQwHXzj84kvWoZTjAmRCTk0NFSkeKUHnTp1yiFSTU0OHjy4QIECbj00
DZeL8Zu1Gs6tRIkSOXLkUCHk+/fvp+Pgc4zAheAhCMOmTZu6Nb3htWvXLF3l
jh07smXLVq5cOVvbM2ELqG+cuatoCSwUhx8SEmI6uyTGE7A0u9P0BodO5bJ7
927Mcv78+e5L4ENV0wRmxI9i9+nTh2Ljut20Axd5QpcsWbIk1v7DDz9AgfhY
jZ/pciPUiQzcTM7h8ePHFStWrFWrlqvGglzrJfSQpbt373bu3BnJ8N5774n5
L8og1pmDatWqzZs3b9q0aaNHj4YbR0VFiYhpCphVXFycVVqFOuOGxYsX2y2G
13myWIWlZTLCfTh+/DgOZPjw4cq8DxHz8uXLIohTsAEDBog6p6iKSEHfdezY
kRacM2eOWbjngcWKFdu1a5dy5cGDB2gfmtXu6D00Q5jBBx98gLefNWuWdi4B
/UDpHz161NYNFJ5PmDJlisoz7927R+HhmcYZgNUCl68We/PmDc8Rs7GzZ892
aHv+uXPnxFRL0aJFsXC7/hw9SzcXNpY9e3ZTy3E3xFiW3TyEGoFfxbtanjUp
TnKBt6ssHE0XoCmTk5MhY6hau+lHTIEt+fv7Dx061PMRFtNt27YtpoW/smXG
CPZ27doh2L2+RpT6GTVqFKTOdDbEY7h16xYGjFdX2dd2/fp1XA2xUv+6RwKN
SK8N9zBtGrEFNb1vcnmrT7lAUwlD8AftvcyFWLVqFfVfuHBhdyzcxY3MmDGD
akEj40aI9Y4eFOtCI9SJDNxMerB8+XLioPb1SypwuZdwjizxITCT4OBgwkRC
QoIywSGO/BDsBRVjxi0p/J49e8Rp9ab6BWZlSQa+/vrrbNmyjR8/3i7p9TpP
3rp1K+1rmZbZY0hKSgoLC/vqq69MC8CnQTMQgDQWPaJQoUKitgnuYm5IHNMp
pmBM135wP83EA/lqUy1G89WvX5/+ZddB4YiQ6jwZSdusWTNbCQEswauRn/xw
woQJVisTD1OnTp3o6Gj17HliFkyF5BgTbtp0Bk0VGzToTVoirzAAcbwd4kX7
PojDhw+LjVQYmyc3HtLK2DBsDamu81Fi74DQa2Z2vn79ehwXEskdcfbs2bNr
1671ZIoPMd3Ml9KbtEzT0/0bN26McNNfyU5A2c+ofp6UshfPu8lSLly4QGTE
9XllGf+DBw9Ehv8BAwbYukesxybCbt68WefrxOo+IqDZAglxqJb6coV0AaeV
C86E+IvTIDR75cSEnTt30sTZs2f/9ttvXf5wupiYkcfnwzQw+FKlSsXFxWk/
NNaFRqgHGbuZ9ACWVbFixfDwcP2SyuVewgmyROOuW7eOAEEUMzt/mafBbHka
NElFQ8GFGjZsaCpe0N1mI/nnz5/nS7VMZHiXJ4vj/9QHuNyK69evlylTBl1s
9gmCvVerVo0KIdZHRkaKqp42bRpl5mZ+QrEDAwOVKSrIDD6EysQFoRzNHiiS
16lv+RGgybp27cq7goKCTp48qf1bkFRNmzbNnDkzpkV9moWJK1euwBvLly9v
dx/uhg0b+DRl22B6AVTZHcqFahw6dKhP2l51LQemHzlyRKz4Cg0NdWjRr5Ku
CoXryTNAsec5c+bwXpS4Tq1KF8CH8Cj+a7oqUjn9ZMSIES4foBAPx3N6eHHj
d9995+fnh6/WssKKXp8rVy4csltFwblz51q1ajV69Ggz+6GKPvroI5//m4nF
EmJxL3buRbYs1tm6JJWf+ltWrVpF3Ny2bZsZ3Xr8+LHw9h06dFB5gshyX7du
XZ1KPCEhAROCuJq5ZXFINMwnXW9yeatDueAPq1SpUqRIEbcO40CchgwZ0r59
e8uwuG/fPpqAeOoOU0xJSYmIiFD4wO+//56YmEhzU1GtW7fWuK3SVUaoBxm7
mfRA5PilQU33kDoHl3sJJ5TL8ePHxeGPI0eONIt3yrmQ6Mfdu3erPOTFixdi
dZ+ybEzMDig3iKMTtJzv7F2eDFPq1KkTr3ZTAhl1pKamNmnS5MMPP7Tce4IG
IXpWqlRJVCA1g3YWo+g09I4dO+Ah/F8Kv2nTpmHDhlWvXj1//vwtWrSgH9lS
i2JIc/r06epmLCQhhoqmc4jmYY0Ub8GCBdgYTV+iRAkKtnDhQp7TsmVLCAk2
Y3fLBu0Ig8UOTU9jTBe4c+dOwYIF9SiX+/fvX7t2zbJ1Vq5cSRcTIl297W7c
uCEGbGnonTt3OvR25ShMz88/wnhpcXygzpNWcDuIfcspYyhxjRo16FBE57dp
oyXwQ72F/gdYLF24UKFCji630AicLX3BchcekTo4OJiPpe+rD/jQsr17986W
Ldv27dvdUUIBKpz+Tnksh+CUOZdSpUqpeABs+8svv3STwNSIe/fuRaTBrfmC
lOUNlpOAypwLTFvlCVhFgwYN6OZ6skkrm8LMluaKnapc79GjB8ZD8+HbjbD/
yAk4rVzwFXSZXr16uXUZuTizWxmTNP2TMpivTsacg1gkj52bbi2nlbnCS7/+
+mtxhV6gsjHWJUaoExm7mXSCwEFg1Tn+4A4vwZ2ITe1k6Y8//oBDcn/x4sUt
d4IrraMlIe3Lly/j4uIU8WJ2IIuYSdQyeuZdnkyY4CH169f3fGIxPhwlSyi3
nMujblu3bk2toumU/kgJ582bV6tWLRyFqHNUG3KmefPmUE1a326GARoI/lan
Th27IyTouPnz5ztaJ1TmN998IwqMGZ86dQqxP2jQoI8++ogvhRJoeYiYYPLW
Ug09oB0R0U4rFxwg1B12bblXXTlFncpUCb6I3Lp16wrb+OSTTxxd1E3vGz58
OE7YUcmjH5iu2AdRrFgxtJvTz0lNTa1Zs6bllPGVK1fy5s0rsqOLadZZs2a5
ammBW5ULvKJ06dLUTJcuXcwohDJFXqZMGfUF3nw1mhqfr7EPOgcRyIjgsAiz
MVv6cqNGjSiq3UkfMdds94vch+XLl+NX3X32opDSISEhGKrV8UO7ywCEGdv1
CepQ1i0QREzbhf4YGxvr6+u7dOnSt2njZu3bt/d67k3n4Jxyoa/hkSy3y7kc
sJeAgIBq1apZMiXCvU9aamKXb6Cg3XGAYnrFtN2JIJUqVVKUCzSVdldxyC4x
Qj3I2M2kHyJNK7xCJTWKXbjDSyibRDSSJRgpNdyxY0erp5OvWLFCDO3Ch7Uk
ebt48aJYTi/Ejtkg+bFjx2hruyP8b73Kk2lQhIBXVkjiJQhec+bMsXz1rl27
MDZ/f3/LlV1wAMxD1LmjeXh40eLFi2mppKQkvaV3G3BBfLjnybN+YP/ULe2C
2WvPMiEgUqSKZh0/fryZSSDPxZ9UdtthCeL4V9F/79y542j5RZ4QKK5V5+Bu
7N69G5sXC72cXnsgJux4CD1auUh0Q1lwke4GY8TP4AC1rLvT/lL3KRdxTq5P
WsoUs4mVq1eviinyBg0aqK/uE2y8TZs27t4/cuTIEQpjKTpEpMiVK5fd4y9F
CjidodZpYCrUEkHQ7hnKOiGGMS2HF+jdhEIKAIFU3wz4Nq22qVKdKo8YitiE
gZjq4sTERMIifphuQpFwO5ZDzekFzimXmzdv4gmRlpZp5F0LDL5x48aWuSDo
0U2aNBFrY1wuCvAD7dq1s1xHJPikMnANpezSpYu6b3GJETqNjN1M+oGfGT16
tH5p6XIv8fDhQ5FBCFe/Z88epwv29p99EIIg1a1bV8tCd+xfHJPnk3bsNV9n
+lc4dqtWrapWrWrYDFFv3rzBp5UqVcorubiRD5GRkcnJyWbXUWRiu0Hfvn3N
mAZWASUTw+8RERFOMCXkEi3SqVMnh87d9hhSU1NhPpiNJ/dZuApwb3q3T9r2
cCe2PCBXc+bMaZnjBRuAaYs9AioH3Fy4cEHM+CBevvzySydohljt45X5x7dp
U4pi9xzlV0+poQ68KHweExJzdoigIUOGREdH4yHFmU0HDhzo2rWrCw3MrcoF
b4CDKlu2LEHTrE3Xrl2bJQ3qZ47g5cTkuAunmWwBW6W2u3fvbprWnn+3b98e
6TR16lS70VNZV2aZIsYDQO8XLlzYucNPHQUuonbt2rSd6WfyXryHetoZBWJd
mXIeh3N49uxZnTp1oH9iTxyF2bhxIzJZ1AMM9vHjx6g5Rw88NQ5QLiKXBZ1U
O3kTCT3q1avngUi0c+fO6tWrm5ocrbB48eKsWbMSDd2xz0gsNYF2mo0k0FUx
Btqd5sZz4ieVZWMqj9JvhE4jYzeTSyAWs+nM1OpyLyESRgntMHfuXKcL9vaf
DD/iUdpHJ8RMGbB6esvhw4eDgoKIsHoK5j6cOXMmODh40aJFXhlN2rRpE8Zg
tqwCdyFoatOmTS0tDQsRK9thdzNmzHCu2Pv374dleTLtrUaIk8GLFSuW7na4
vP1neaToCwhDJwa36cv8sGfPnmbtvmfPHn9/fzTRypUrbbU40Zk+K94O83Fu
ryKfMGfOHPedrq6ClJSUmTNnhoWFiU/InTu309OCFH7fvn3h4eEi0zsem55C
RB43bhyRmm6FinF0RkwdblUu4qgdvsJs+e79+/crVapEXXXu3Fk9aj969Kh0
6dIOLcOmA0JahKshNvXr109Fid++fXvLli1KvBAHm1asWHHixIlcnz17dmRk
JFScrq0xpogZRrsTSe6A2HCqvhnHFATNrVu3Ymk5c+aEwJQvX54obGvVLk2J
aja1Pfpp27ZtGzVqtHDhQupKrK+GHWnMC82LGjdurD4VqwXotebNm4eGhvbp
0wd136VLF5obpYwBVK5cma/jo9LvJperV69WrVpVbCm6efOmFiNUztcbMGCA
RqP97bffMHvkAEQoICCANj148KCtRqHhIEUK1+W2vXv3UtXUP9dXr14NCaTD
4tLV2abTLxUp4nmjJd8+duxY8eLF0QJUF13YbsoUVxmhE8jwzeQSoDUg4TgW
ncd4udZLiC2NYokIrl7PYKlY4uhjL7GYGbZt2ybOebGcc3mb5jdGjhxZoUIF
t+52dA5YSFxcXIsWLbyVFoMoRs2Yro0kXFIe6h/aYGm6z58/p4kFtYuKinJ6
izHW9cUXX/BqT2a+1QJ6VtmyZXXu0fYWKLzYno/KcDqxGAR7zJgxZcqUQcLQ
rzdu3IhXxDfCiHimSly4ceOGkjdbuxs3AmCnU6dOFWekfvvtt7GxseIrcJJ6
iCueB4995swZ04fA4U+cOOHyKWB379Cnw+JmiQ6EvLFjx27YsGH69OlisEuF
JyuABnMnwUtLojkU95QpU3DmPv8X77///qlTpyzvp57h2/PmzTMzzuTkZIT2
8OHDKeoPP/zgUGD6/vvv/fz8ihUr5tZdOZbgE3CMfKzGU4kJamKhiBkwXaup
mR48eIB5m83mUIHYJJ192LBhhF3+qr3zKikR4uPj9e/KSUlJOX78uOmaH0Qo
PYimTI/rxLCikJAQsfqdkJo5c2ZBk7iCMasPjGCuderU4WYUpZZ3YeEiUZIp
xFEaVrkcArlDhw5mnYL4DoMaN27cqFGjCIJ2jV/PS7kBQWeLQuAz0ddiS6Dd
b3etETqEDN9MLoE405A3uoRZudBLIIVE1qn33ntvx44dThcJQxWbVnLlyqVl
qlpADFKJX1mdLoQn4K779u1rqOVJYsdHlSpVvMjexXp7ykCIh7PBSfLlyxcW
FgYzsQxeGLnIY+CTlvlN5zng8JPRo0c3bNjQucPZ3QEsPzo62uxQm/QCvJnY
gExYpJl0Cge6zJYtWyZMmPDRRx/BCemM6jM4Ym28YhsGzHBiC7h9kZqGzigq
Tezw8knLjWZ3T4RB4G7lIgArQL3OmjULq8DGiJ4ax+XEeVUlS5a029kxsxEj
RojYmiVLlhIlSohTUMUVpJPlUnaYdt26dV374SiswMBAz58k4tCyIkwX1y1q
hthXoUKF0NBQ6LG4YmsDi/6832bgmT7WEpRJ6IE4ClnjgbxQoICAANHuaKVK
lSoRx8X/9ff3379/v9n9xP327dvrpJFeeakteMsIZTNpwatXrwQ5MdpWNQqz
evVqMUpWqlQpp6m4WA7nk5Z3VzuhVeZcihQpYit+3b9/v379+jAxLx5Sbwpq
jGJjRWfPnvVuSZCrq1atQmK3aNFi+PDhlgmNYa1xcXFt27Zt0qSJYHQ+adkY
mjVr1jYN7dq1+/LLL52oWH6ydOlSlQVInoRYL4r/0S9bIAb00GrVqkVFRVXU
japVq6Io1Qdg8TY9evQQTePa0RKNeP36tUgY6JO2N9+A85tW8euvv9JG+Bzc
l2KEaMCaNWuKb/n444/ThYz1jHJxDkqeYZGdQP3OhIQEnHlERMSmTZsUgs3X
0THLlCmDKjdLJ8KfoOgTJ050bTMphMTDGlxZes0XqXtF7sT3ZsqUCb997tw5
U+v9/PPP4SrwE7O5lcePH/Nwl6dG2bJlC02mfXmbhBaI0+jglsePH1e/89Kl
S++//z7SdfTo0aYZFa5du0YswEIaN25sFhG+++672NhYPTO/XnmpCrxlhLKZ
tEAZkDHgYgzKM3PmTKEg6tSp48R+cyUzs0/amezax4XEEXI+aTPsKmlsnzx5
QozzwLZHLXj69Om4cePcnYzCJXj06BHhG1avSHViOkzv63+A3kwXH+IxYLpT
pkxBlpZ1BaDWn376qYpygayKow8zZ848bNgwryQWUBIMglatWnn3/HGNgOOJ
lTaDBw829Tam80ee2XepH0ZWLspajqZNm6rPel+5coU4i/O3KnCwsejoaOV4
KYHr16/HxMTYPVjWUYh1y9jAsmXLXPtkdYhlFdQV/lblNkx06dKlOXPmXLRo
kVXJBv0IDAzEb5j+dfny5V26dNGyCM0hHDp0iJLkz5/fK/kAMyrEesW8efPe
uHFD5TYIT7t27fC9Vvcl4YdHjRoFcTVdPIwBYAZ6Mtd55aXq8JYRymbSArwQ
vgi31rJlSwNyA4QV4kVMmkRGRh49etShsXSCWvPmzQX5sZqn19ZLu3fvLhbJ
qHt7CadBF8CeRdMEBARY5uWT8ApoFzi2UJTBwcFr1qzx1oDG6dOnlSlpu8PF
bgJ0d8SIEXXq1ClTpgwE2DJZhynETiucBjLcMtgpeYC9eKiHQzCyclFcdIcO
HVRmZsUZ94Q2lXmZn376ifZSlvDRiBjb8OHDXW72qamptWrVosyff/65HmOm
hKtXr46NjY2KisIme/XqpR64xQhA5syZLQ9UMsXDhw8rV66ssh2VMs+YMaNK
lSrKcj6RUnXfvn3OfopNiL5Pf6F1XP7wdxZiJQk2o96j9+zZU6JECZU1jVhy
w4YNP/nkE8VUkpKS6tWrp8eteeWl6nCVEToURN7KZtIG3NGUKVNwpzExMYZd
U8q3i2PLaND+/ftr38T966+/EpV80rL6aE+8I3Lr8avQ0FADnsKTAYBVI0jF
8uksWbKk3xwvGQxYuxiezZMnD25BfR2OFtDplmnDhg0bzH6rZGO2S7rchzdv
3hw8eHDSpEl+fn45cuTg3yo3X7t2TeQTsLrQSMn0rvFUKa/Dfcrlv//7vzVa
BbA694FaERkj1Y9WTE5OhmmrEw8+c/DgwcoSPkIGHMMdaQD/+OMPIjhlHjdu
nE53d/Xq1aVLlwpzMiUJVnHnzp2CBQva3cq6du3aZs2amaZ9tgQ2XL169e+/
/178XyhW27Zt3bGOVCyYcWhrqmdAVb/Sh9evXzunW1GIGruMrWFAmtjX1xcZ
q7LyFhXctWtXuxk+cc41a9YUi4VwkjgK7SPDBnmpXbjKCB0KIm9lM2mDcuqo
2WHxRgNuf/HixUKGFChQwPIoQ6tQNtoTv7R/3aZNm/DzmTJl0nLcpIQTwAn7
+/uL4fQBAwYYKsvBu4yLFy+GhIT4pG1bpu/oH3aGVvloQ/78+c1+K5YZ+6Tt
aj9w4IBzBcC01MmYFhBrcubMGRYWphJKoDQTJkygtIGBgVZ5rziLkBvQhnYP
43M3bt68KcaCXAIaaMGCBdrf/l//9V/aH251bRUBsVWrVj5ph0OpWCmaBRVp
dy0BTK9p06bYichw4vL95gKYosizOmLECP0DNU+fPo2KiqKDJCYmqt9569Yt
OpdygLhViB15dg+5oKqReGLO6OXLl3FxcW464xtpFhQUpKfjuxxU0dixY8WC
T/395dtvv3W0AOJYKC2IjY21+oQVK1ZQ/hIlSjx48MDWW8QEgd0Dfx8/fowM
F3n5Ll++zL+dOCPYuy+1C9caoZYgIiCbSSMWLlyItVesWNGwh84IIIFbtGjh
k5ap2K6PffvP2dmiL2vfFUtEqFatmk+alPM6wciQgDVFRESIdunUqZNXzgeU
sIXk5OTWrVuL1omJidF5Uhte+idtsNwspmTJCAgIcO6kEkE2dG61VjaDt2zZ
UkVi4zfEQau2Dux49uyZcCxGmN0mBk2fPr1Pnz69bKNnz57h4eHZs2fv0KGD
ym29e/ceMmSI1dzCtkBzaLQKYDUqKXMuFEC/vsZKaTUYPm3UpEkTy9w4LoGS
DMclykUMCBcoUEB9MfzbtDmXkJAQupKeFJ0KEErdunVD2R0/frx+/fpOJ7FX
B4QnMDDQaIn4Dh06hL110IeOHTsOHTrU8qRmu6ChNXYZW1tE16xZ4+vr65I5
Xzrghx9+uHr1apEdFJP2wKJiD7/UhUaoMYgIyGbSCJH8zcjK5e7du/Hx8eKM
9Vq1amnc7ZKamhodHc1P/Pz8NG6joKqnTZuG4MVijTZPnTGgbGEGzZo1c1NW
EAk9wM9AcooWLeqTlvDtq6++8spWlwMHDhA1fNKWrjm3eufRo0c1a9bUOD9r
C8pRturZFyEMYhvL+PHjrfJScXIiN0D1jZYLxSoMvs9FJJbp3Lmz/tSOL1++
/OCDDw4ePEiYwCnpXyRpFS9evKhbty5lHjNmjH7lAjHInDmzlpStIqcZ0XPT
pk06X/o2bVq2adOmCBYIyZQpU9y0JkEc1uOtE8wzKsQsdpEiRVQOYNUOeOPo
0aMfPnyI6j9x4oT+BxrtpS40Qo1BREA2kxaIbXc+aeupjEkjk5KSlL0qS5cu
1R6nzp49i+H5OLI8A7WSL1++9957b926dXKdmMvx6tWrvn37CtmCfnHHeB0U
t0OHDtWrVw8LC6PdM9I2pT/++OP69esXXYFr167ZJTzw1Ro1avj8c7yU58n2
jRs3ChQoINTT4cOHnXjC+vXrW7VqpXNST+x6s7tmIDExMWsabK3eoc6DgoIy
Zcq0aNEiPeXxGIysXChbv379sI127drpX9lFTOFpGzZs6N+//8KFC93k+RFE
YiRt5syZOl+hfL6WtQRig5Wvry9iR89LBdBBjRs3ho3Ur1//0qVL+h9oFTw/
ICDA6SELCavYtWtX9uzZQ0JCXBIWt27dihFCs1H9HkuW6MmXutAINQYRAdlM
WoALnTRpko8hc3VStk2bNqF5fdIOO3ZoEkTZv6N9qdiZM2fQuX5+fgkJCdrH
xEwTRxDlkTzaC/lOAYLx2WefiXXCiAs3bap6+vTptm3b6C+8JSoqyrDTiI7i
5cuXYqmJq1CtWjW7TYDnLFu2rE/a+sxly5Z5WMujrWrXru2TluLPiUSyBIu6
devqz1l35MgRXFDx4sXVjxWmhNi2ysK2HTt2UI158+Z1H99zLYysXJSw1aBB
A5Ws9RohEmyOHDkSNu6+M3wfP34cGRmJMa9cuVLno8SeKY3nRxOhxBDEnDlz
dL73bVqO5SZNmowdO9ZuTjM92Lt373vvvRccHOzFI5UzHqDi/v7+UHGda4AF
IOFt27aNi4vzZPoUT77UhUaoMYgIyGbSApFZBbfWpk0bd2xL1INTp06JQdeg
oCBH125Be2JiYnw0H1qNtWBXvG7Pnj0OMTSROGLy5Mm8CNWj5F2RMAW1NHHi
RJFMDDFuSyMTCmfMmLF06VI9qyn4LSSEF/Xo0cMgh4TqBzZ54cKFVatWLXUF
4E7odC12vn//fmXo4PLlyx74UgUUD64lpG6XLl0c8k60O1z0o48+UvkVcaFb
t24lSpQoWbIkBPjcuXPHjx9ft26d6eEUyvpk2NqGDRuQQuXLly9TpgzMzWwq
BxeNeeOprObCUs4fadGihdXDL/DDiCycMPXM8ytUqDBgwADvHsNnZOUC6Auo
AJcscqZ1xo8fjxngmtznMahGGhcupJJGGEkyZcqUcuXKlSpVCkvjG/nVkiVL
zLa4ik0u+fPn//rrr6EHVAKFb9eunVXbowvAIly1v4YS0ll4nd3MAHpAN6Q3
IfRU5uVTU1MXLFhQrVq1woULU1dVq1ZdtGiR0TiMoQADDwkJcdXuoaSkJDwV
CloLG3cVPPlSLUbo2iAikOGb6fXr14iOokWLmk5mUUs//fQT11u2bIlbs0tO
cNQdOnSgVonyKgtCbty4MXTo0IiIiPDwcKIqTeDubSDEI3yRT1pOVCeSqmE/
IntV9erV1ceWqUbYMqKjdOnSTp8p+eOPP+bMmVOjps6QIGQcO3Zs1qxZGBIE
ACawfPnys2fPYlT0YmgbFJTOOH/+fFvcgCdMmDABg7969aqekogzo2E1UHQ9
z5F4m6YlO3XqJKZp7OZf1QJaWfv+9AcPHmAPPmnpBLUPQIkz9WJiYmx1Rmxy
4cKFWGOfPn3EEYR79+4lmgQEBAQGBl65ckW5k88X65P5U+vWrQWBJDzB55s3
b26atezw4cN4APik1SmVR48e8SGwVqs5hVJSUlq1apU7d+558+aJZz5//pz3
ctGL8+CeVC40GR/ukHWJ89pgrfpXg4tMDtmzZ9+5c6fOR6mAMI15YGC2RgBO
nz5NhMUOxSlvYl1WkSJFMD/cpumdYpNLtmzZMCoEr6g9DJLGwuWaPVZRzXRk
/bqMYEpchqepJD7SCT5n5syZFLhhw4a2JtQOHjwYGhqKxIPdiY+i0qi9r776
6t1Z5o1zcGjaS5xJmiVLFrtHimgB7DRXrlzEek8uJPbYS+0aoTuCiECGbybU
RHBwMLWkxErY/oABA3B3+fPnFwOVdj2VkmSeoGn1Bqp9+vTpBOX4+HiREANP
iH/Ab7h12cOyZcvEED1+0tENOJRw1KhRgm6pZJ+mVjE2pA0x6+OPPzY9RtlR
oK14F3b4Dib4pXoTExNLlSpFS0F16O+LFy/+9NNPGzRoQO/DPsXG5LCwMOzZ
1kMI0x07dqQv69/PdevWLZ4DD1Q5L0lCO8QyJ1qQdnR6FgA3smjRosqVK2MG
EE78CW4H0qVOVjGtNWvWiLfjf7Qc1U2nTkhIqFKlii2lwxvnzp2bNWtWiJwS
kvjVwIEDeUuFChVMx/ChZyVKlPBJ2wmuhBhxDCJPMN3y/Pjx47Jly9rSJitX
ruT+Nm3aWCoRzJU4BafFFyklFKcDww+9OO3iAeVC+x49epSARSXnzZsXd4Eb
+fLLL7XoNcIfYQ4ycPLkSZ3FoMJHjBgRGRnp1hNCt2/fjg1Atq1uusRZUdXF
ixe/du2acnH37t1YlNnyeGWTC0T9woULyvWtW7fyfLqJ5bzDkiVLMmXKFB0d
rT9DOL2jYsWKgwcPdh8R4sm9evXiA4cOHWrVPxBu4EXVqlVTEsxSKpHZD4tN
F+kv9ACn1L9/f0Qrsh2OFBISQnVpSVYGORHZWSdPnqxf36EZg4KCFK/lGXjs
pepG6KYgIpDhm0nsCVV21h85ciQ2NpZ6IL7DHrt166ZldUdKSkp4eDhcwmoq
SOoQKYTTGzlypKLuDx48iN+A7e/atUvHx6mBT0AFCOkxfvx4R5uP0IDxiKFa
U/GrANm7YMECwajR1Kb+3wkQKcTGiqlTp747Az4CfC+sDL5x6NAhs2+ndy9f
vhzTEu1YpEiR0aNHY5Nmt92+fXvs2LHYOTxNPwkB33zzDVzXzHtIOA2xtdxH
X46vVq1a9e7dW3BgDAPPBkkT48DqU6J4eMwGF+Tr6ztmzBj1McanT58OGjQo
JibGlP6Z4fDhw6hawr3pwIuSQd1stEfMpMAQTJc6c/PHH38saJJyUaxto5CQ
CrPxIlQ5oqZYsWKWpSKQ4bR5FN+oxEdxagaPQr94cfWLu5ULtTRt2rRatWpR
yeLbccsiIzeB3nLuwAzPnz+vXr06zG3t2rX6S9KjRw8inftIL+bBx/JpcXFx
lm2K3daoUYNvMZsyEMvjixYtajqvJDa5oPLMPlzk4rOqdsUKhPfff1//wQqI
BSQekkrnc1QgNrjxgVYXySPxgoOD+RzTnIGPHz9GT+GgVFbiZQzQWSpVqoSd
CHXPf2fMmAEZo+kXL15sdyBInDkFXdHvWFDK1LmHh1Y89lJ1I3RTEBHI2M2k
LOYXuwaw3vbt2zuRJBw/QBNQq5Y+TSzPw53iJ01JIBqHhqhWrZr7ToIWiyvE
UjEnAtPOnTuVAyiRV0g/BN28efOwKwJHwYIFfdIyJrVs2RJvrz9a0UBQd1zH
O7jJRSTNwJGaXsRyIB5NmzalkjHLpUuXipPZBWgaftI4DaGhoWIjA53UJQOe
9AtIoI+9w7UltEOsz6dKYQtQIEd/ju9FTVhuOTl//rw49XL48OHqLSWmfcXM
S/Pmza1O9cJjFy5cGB4ezrtUBpZxlWI4q3v37qblefnyZYMGDTBFor9yUcny
0axZM9O5VEorVtB16NDB9OEvXrzgCr5xw4YNCoWAlLZp0wauZblomecvW7aM
4Ej1/vLLL2Z/0jLB5Fa4W7ngpWvWrGm2og/CIMas7EZbijdkyBCXbN/AeOrV
q+eSpMG2IEa3MDCs1OxPtDX+k0iHMzRb+Sam8s3MT9nkYiaEN27cKGzJsr3E
hKBLztTDA9A0LsnXagsQPL4iX758lqOO9NN27dpRJ4QVs0EMemWG3+SCbETh
fvPNN6YXsZ8FCxZgP3geu8KNG/z8/PTvDuOlEydO9HCQ9eRLVYzQrUFEIAM3
k5Icno6MNvz888+dW6e0Zs0abL5JkyaWgRLHSNvhDFetWmX2J96lf8W7CnCM
gizBch2a58JFw5GyZ8+uklUpIiJi/PjxLvS9R48e1Z44IoPh2bNnKBQiacOG
DYkm8fHxdOqiRYtC1YYNG6YMMtCpZ86cKQ68MENMTAyKz645QVQSExMhGGI3
HAQV0bR58+Yff/zRdJRSbHLBe6DlJ0yYgHRFAqOyt2/fbvkKA26LNiCUzuhc
Zvvr168XK1bsk08+MVOmghjzWPSL1Z3FpqCJk5KS6tSp45OWaoxmha9CAhMS
EmjlRo0aUbbY2NjTp0+rT3qeOXMGW0VQmy0hvnPnDt9olhkMaiRoktlcqhj0
5vrAgQPNno/5jRo1CopIYTD4MWPGYK44aqsb6GDpwod37NjRfWmanIZblQvh
hn6H07BMxQYxw4Fr2aeG9kHP6l8EhRbWMsujBykpKcSdwMBAy/l9zEAYdufO
nU2JEP/GMCzNj3BMyK5Vq5bpfjFlvLd06dKWQ0DKAjP960/mzZsHPXPr8cFi
earVE13FSQdwknczh+eSJUugGWvXrjXTaGL8kPZt1aqVOg8Ud+pfY0lAJ+5/
8cUXnlxk4smXqhihu4PI2wzdTL/88osYsaQO/f39CxYsSD1A2h1a248m6t27
Nw+ZPXu22VuUc17MJrk8A4UsOTRMRJ8V2QZMwRPo7ES3vn37QnT1nyFilv5l
5cqVInEEjP0d3OTyNs1Ubt++Daf9+uuvN23ahBbAYKwaLQRj/fr10CHqqkuX
LtQbkUhLn3r69ClBHDuntjFavMHo0aPFIQWwVlPRnZycDNeiOegRNBOdiJhO
tIULzZ071/RdxtwWbUAonTFnzpyHDh1y9Of79u0TE6CWS9CXL1+OxtR+urdI
sAb7aty4MQyNUlWsWJH2mjNnjsZlMCgd3pgvXz4zrbRnzx4KabYHQaSxtUwG
JQa9YY+20ttiSAcPHqRUixYtwsJtqXJ8eP78+a2OwxsBblUuom59rO3loQuL
lJLEJvWHiMluq3LAIaxYsSI8PNyt40779+/38/MjoFv6lhs3bmCQZkO1b/9Z
eGC2kJtGIcr7WGTU4bGwLDGSaVUFi0MirDIx7RA0zK1DuHSWoUOH4tgXLFhg
GRoQs1RU3rx5rS4Cz9hQmt5yoT5CBjfIn+wevM5D+vfvb5XyOQR8V9GiRbUk
5XYhPPZSdSP0QBDJwM0ES0QSVq5cGVLHp8EVp02bhg8XDE3jhAg1TD0TPS0X
YOCjxIxYbGys59ctmCoXOICH364Cy/QvMOfg4GCK+vnnn79rm1w8A3hg8+bN
4berVq1SahjSItYTmh3WI4ZhcRSwYuU6zRQaGoqAVfitYbdFGxA6lcvPP/8s
EoagOMz80oYNGzKnwTOp5kXyWx+LU3fF7LayPpmowSdzM9YSkgazVbgIDSJX
kSJFzJZ4OYpTp04FBAQYdpWpW5XLixcvkJ/Uec2aNc02OimrE62uozCF6LO0
xZdffum076XFoeJmUxiuBTU5aNAgq7tx36ZN2fv7+1tOaIpjHZRNLg8ePHj5
8iWlRTtYHgpz+fJlqBSvWLNmjdUyPHnypFKlSjAEPcfq4Ujxom7dzin0mqmv
VsBL8SE+aTugNR4tnZGg7KTLnTu32apdrEJMz1ldK2gGCBWeXOfE2ZYtW4KC
gmydXeUmeOylKkbosSCSIZuJCvnss8/EqJTpwEtiYiK0DWotMhZSgdSeipMR
ItFqNpLU1FRiiliF7taFYVahkyy5CdrTv0i4CoqjQEebjhYqZ7GZkgElp5zZ
8huiNsFOGaoy8rZoA0J/Z8R7i/zYphfxS4h98djDhw+7qLBqUJgPQtjUPF69
eoU9KHMfJ0+ebN++PfGCDyeylCpVylTJYjzioCjilE7HePXq1bx588JDfvrp
J6s38F4v7nYRW8bMPt+FoCYhYJYLvagNsayUvmz3IefPn4exR0dHP3/+3Lli
wFJKly6NsnDf9nwIf3h4ePny5a3O+AsBy1fcvHnT9PqCBQuwSTFySC21bduW
TkRMhxrhykz3yGPYqAlqjHqwlYeTe+bOnYt/mzRpktO649tvv82TJw+0wbmf
a8G2bdvgMMOGDbPaHILv0QGtykx+QlV7nq54DHzguXPnLOm0cnqdGZ22CsJo
48aNMTmn03iKJFpwe7fm4vPiS1WM0GNBJEM2k3JixfLly02vwyugASgXMWOY
lJTUvXt3W7EPH9izZ09bWcVEQ6hMJdAo7hv3MKByUU//Ehoa+g5ucvEALl26
FBISgkJByJtev3jxYmBgoNk2VWWTi9m6i7t374oEkuvWrTP4tmgDwk2dUVne
X69ePf3JWjVC7KHAs5ku7ExMTMyRIwdfJ/ZMzZ49e9q0afxD7EMpXry4knz1
bdouA6wRM3M0VbsleD7fbvVoQt6OJIeHqCRJ8wCQ8B5rGgE+fPr06VgFvduW
oDOFWEJDFHM6qRSNDj3Qn6DMFviiRYsWYTO2TiUTa9qDgoJM2/r27dtly5al
Hj777DO4DXwVIoQ64wlffPEFT4NcKTffuHGjWLFiaB/1BBpwp3JpcI7JiHEh
XAFlc+LnWvDy5cuWLVvi1cWSBkuILQZWDweEkECZ4uPjbR0Bk4FBT6FaCHwa
dzSgPekyQ4YMcU6tw4UqV67sksxXBnypXSP0WBDJeM2UnJxcsGBBbNVsUyHe
jAqhoujF+Jlx48apHMx0+fJlOCGyzurwhbLPxeoJlfjYWrVqma7ecS2Mplzs
pn/B1N/NTS5uhUJjihYtajYJvn79etSH2RoP0S9y585tNlMp1CUUEVdg8G3R
BoSbOiNSFP8PafTkWqlnz54hlzASsU4eJ7lx40ZxDDfulFAFI2rTpo1yFgwu
jni0YcOGt2nW+N133+XNmxerc9UwBXzb39+/devWpksCqPBhw4YhW9y6Z9yY
gBWLsw8+/fRTjZsp4O34B6tbSOxCCAGa3ukziO0CmYBYUJkNwQinTp2KN0tI
SBDxFONs1KiROKCEKEw9jB07Vgnl4nuh6CLiYIoxMTGYpRbthj1ny5Zt/vz5
TgRuTJS+A91y3zbAvXv3QtVUBqKpik8++YS6Qgwqn8DNR48epca6d++ufzwh
3YEoJk4ewWNonB599eoV4a9AgQLObRDDT9JlZs2a5cnl8R57qV0j9FgQyXjN
JBbzW+ZME9K7QYMGyEZccbNmzWxl0BIpJeF4dHlbZXjw4AHOE9JieqYbT16x
YgWueOnSpe6bXjeacrGb/kXoay+WMEOC0IwN+1hkFBTrxn0sTokSm8HNRuRE
cm9uLlSo0C9pMPK2aAPCHZ3x+vXrERERKJdly5Z5uOPcuXOnefPmoaGhffr0
QcN26dKFDySaBAcH4+5q165tuk+QDs7/5fPp+LGxsUSrSZMmuTax0okTJ3hv
mTJl+vXrx1tq1qxJEKRa3sGhYz4ZQu6TduiJ9krGfpYsWYJxbt++3dE30r7t
2rWLiorScwyxetmQHohTdXkORZk8eTJ+iWhCeWA1P/zwA8SmXr16mCXm2qFD
B9PdQETtsmXLEuixXoyTnyBntJQH0dG2bduSJUs6kVrz1q1b2P/IkSPdtBwr
NTWVL6pUqZJ6Fh2aDNlCSRo2bNi/f/9WrVrRffjvkSNH3sEQzCevXbsWRxoW
FubQyeCXL1/Gcvr27evEgDxUHJP28AZkz7xUoxF6LIhksGYS4/xiHtn0OowO
PxkUFNS+ffuqVauq7LxA46D7RowYoa4+Hj161LNnT5qDOqeNaNMKFSoMHz7c
renc3xpPuainf5GbXNwEgjUsDjMYM2aMqak/f/68Ro0ayiYXdKXwM2vWrPH1
9W3Tpo1ZlvUmTZqISRbkj8G3RRsQLu+MT548wdv7+fmtWLHCW4vSU1JSjh8/
brpsBjs5c+ZMcnKyJf8hypw+ffrnn39237wqdXLs2LFr1669s3usiESwd/ov
4sXRzfIw/x49ekRGRjoamIQDHzhwoJtG4cSxibgvLfNHfDXeCVGvFIbeQeg5
e/aspVVwD9aCzTh64sPNmzdRLnB+Ry1tz5497tvkIo69gJNYHntkFdQMXRUF
R0d+BwWLgqSkJCqNBjUdXtYCKm3Dhg2BgYFff/21Qz8Uw4ae3z3hgZc6aoQe
CCIZrJnElIqtGnjw4IG6Q0NXNmrUKDo6WuNHERfOnTuH2PHYmmejKRf19C9h
YWFiEaNI/+KlMmZAiDQRCMYlS5aYXr9y5UreNPAPsdFbzE4iZLJkyUJQNuUh
kIHcaRDTiwbfFm1AuLYz4sA7d+5coECBvXv3vsuUQ8IUWAIyFgOD5DsnDx8/
fhwTE9OzZ0+HOq84s8zsaD9X4enTpw0aNOjYsaPRsqzTi/lqGJFDHfCrr74q
Xbq0SP7jcsBYKNLy5culT9COS5cuhYeH161b17nsf6jp8ePHwzPNUkOog+7Z
tGlTyxT3boVnXmpMI5TNJMAzp06dGhERcfnyZZc/3FUwmnJRT/8ijn9S0r94
q5AZD8oBagRN5SJVLU4wFCnBYcJwA5F/Q5xT1r17d2WEU6wU9fX1nTZtmhje
N/62aKPBhZ0RXd+7d+/IyEidB3BIZCSIccWQkBCdc3B024oVK06YMEH7aSPY
NtHQHfmQMfUePXo0bNjQk2OeGkGFr1+/PjQ01KHujMPkV+4gddevXy9Xrtzk
yZM9edJ3eoeoNIKd01n13qatHsQhExC1W+mff/45e/ZsDztwD7zUyEYomwm3
s27durCwMCPIARUYTbmop38ReSaV9C9eLGfGA5IkMDAQbSgms+AYQ4YMiY6O
RnqITBQHDhzo2rWrGNUUOoWILM5OReOMGTMma9aso0aNMt2ML7dFOwRXdUZa
Z9CgQTExMaa5iRCntI7TiaEk0jvwnImJieHh4d98840pK969e/e4ceMcfVpy
cnKDBg28PmqKVU+cOPGDDz4w7LEj1M/27dtr1Kjh9QFMqqhp06YQHgMyRsOC
AFe1atURI0aYzjDCUrp16+aoUuYJw4cPj4+PN9rMoCdhfCN8x5sJ4oGzUs+d
aAQYTbk4mv5FwlWgPqG1EJvatWv37NkTZUFtp6amwmpy5MiBt0HFmGYSe/jw
YVxcHDKzd+/e5cuXL1euHIzIciBXbovWDpd0RpQjcRYFahZYnz171qJFCw8f
lSVhHOzatSsqKspsFS4ddvLkydOnT3figa9fv/b6SbJ4rZSUFMOyIAVPnjxx
3/mbGoFncNMKtIyKu3fv1q1bl95hZmDHjh1r3bq1Ew0qzNWTy4qMhnRhhO9y
M/3+++8ezs/vHIymXN46nv5FwoXARSMVz5w5YzrgAAdGgFhNg4kXSkpKsrpR
zhRyW7QW6O+MxIXRo0ejOrdv3/7DP/j+++8Rleh99KO7M35IGBP79u2LiIiY
O3euYhUHDhzYu3dvQkJCZGTk5s2bvV1ACQlj4f79+8iWnj177t+/X+k1/JvO
0qZNm27duhlfL0tIZFQYULkIOJT+RUIiA0BnZ6RfTJgwIXPmzD42oOcAdIn0
CxhXvnz5bFlFQEDAyZMnvV1GCQkD4eHDh+J0BluYPHmyXPUhIeEtGFa5SEi8
a9DZGQ8ePMgPVaJtXFycHCd81/D06dOoqCgVqyhcuLBzGZMkJDIk/v7775Ej
R6p0mSxZsojjDiUkJLwCqVwkJAwC2RklJCQkJCQkJFQgyZKEhEFAZyxcuDCd
MUeOHB4+kFdCQkJCQkJCwviQykVCwiC4f/9+8eLF6Yx+fn779+/3dnEkJCQk
JCQkJIyFO3fuFCpUSCoXCQmv4+nTpyL7d9asWWW6JwkJCQkJCQkJM1y4cCFP
njyQpdy5c//000/eLo6ExLuLP//8s127dmIT6KBBg97NfPISEhISEhISEraw
YsUKkUa1ZMmSXj9WTELiHQf9MUuWLPTH999///r1694ujoSEhISEhISEUfDs
2bOaNWuKMd4JEyZYHoAuISHhSdAl69WrJ7pkx44dTc8DlZCQkJCQkJB4Z/Hv
f/970qRJvr6+YsJFpvSXkDACLly4UKRIESFe+vfv//LlS2+XSEJCQkJCQkLC
m/jzzz/Hjx8v1qXkyZPnwIED3i6RhITE/8eZM2fCwsKEeKlZs+bFixe9XSIJ
CQkJCQkJCe/g4cOHnTt3FrwI2bJjx47//Oc/3i6UhITE/+LevXtxcXGZMmUS
x7uMHDkyJSXF24WSkJCQkJCQkPAcUlNTp06dKpKJgfr1658/f97bhZKQkLCC
v//+e9euXWXKlBG91d/f/7vvvvN2oSQkJCQkJCQkPIEbN26ULFlSsKDChQtv
2rTpr7/+8nahJCQk1EAnRbD07ds3Kipqz5493i6OhISEhISEhIQncPXq1Ro1
asTGxq5du1Zu+5WQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ
kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJBwIf4f
VxOzNQ==
     "], {{0, 92}, {1086, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{603., Automatic},
   ImageSizeRaw->{1086, 92},
   PlotRange->{{0, 1086}, {0, 92}}]], "Input",ExpressionUUID->
  "993a0119-4181-492b-9536-fb52e90cc89b"],
 "with \n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnQlwFVXahkOIEgJBCYYQSBjZl7BDYpSsBAIEBCRAQJYkJBAQZAkIQWSR
cUSGTUAEFZQdNaJx0IFCHIYAEpYKEGGESnDAwqAWiyVYaI1T/I/5avq/c5e+
fbdwyZy3Sivc27f79Olved9zvnO6ydipg8f7+vj4zPDnf4MzZyfm5mbOSX2Y
fwydMmNizpRx2X2nzByXMy43emx1PnyK/3Kq+fj8/vddBQUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF
BQUFBQUFx/Hvf/+7uLj40qVL97ohv+PHH388cODAL7/8cq8boqCgYB2//vrr
kiVL+vTp8+2331bOFe/cuVNaWmp2OT78+eef+eP27dtZWVkZGRk3btyonPYo
KCgYx2+//bZy5cqoqKgLFy5oHxYVFY0dOzYzMzMnJ2dSBbKzs+fPnw8HMPs5
FOW9994bM2YMbj5hwgT+z8H//Oc/bV1r7969PXv2DAoK6ty5c2RkZKtWrUaP
Hl1WVlZeXp6cnLxt2zY58tq1a08++WR6evqtW7c8c98KCgpO4sMPP2zSpAly
wPTD7777bsuWLSNGjPD1/X2DsmbNmi1YsOCzzz6Dk1ieoaSkhJDi5+f34IMP
8pPt27db9XQCzsSJE0NCQtauXatJD45cvHhxdHR0fHx8vXr1zpw5ox3/1Vdf
tWzZkkj1r3/9y503rKCg4AKgBBEREbm5uVYd89y5c8HBwQSNZ599FpKgc55D
hw41btw4Pz8f4mH1AFEcoaGhR48eNfuKM8+dO5erPPbYY9evXzf9asOGDfXr
1//b3/7m4G0pKCh4BHjrrFmzGjVq9I9//MPqAVevXm3fvj3unJKScufOHVvn
ISBkZGQsX75cJ7Bs2rSpZs2acAyrUeXYsWMPP/zwM888Yxa7ECmQEOSMpSxS
UFCofMD/oQcQAKuiA/z888+9e/cmaHTs2BHBYus8b7/9dlpamo5f81VCQkLD
hg1LS0utHgDhad68+ebNmy2/WrNmTWBg4N69e+3djYKCgmdBxl+xYoW/v/+H
H35o6xjyPtmfoIFGIMJYPQaWkpiYePLkSZ1rlZWVETHCwsIuXrxo9QA+79q1
a0lJieVXXJffjh492lZkU1BQqBzcunUrKSnp0UcftTXTIVi5ciVBo1atWvv2
7bP8FioCUeEYW0MZAhw/ODjYz8+PMGX1yB9++OGdd95B5lhtJ/IEHnL58mU7
t6SgoOBJXLhwgQyOP1p1VQ0FBQWwEV9f3zfffNPyWwTF0KFD7Q44XLt2LTIy
kuBD3BgwYMDu3buNT6T+9ttveXl5tOEvf/mLwZ8oKCh4Ap988knNmjVzcnL0
JzRPnz5dt25d/H3WrFlm45znz5/v0aPHsWPHjFyO8FKjRg2f/6B69eqdO3ee
O3ful19+afe3Gzdu5PiXX35Zn88oKCh4FK+99lq1atWWLFmif9iVK1datmz5
+0vinnrKtK4bYZKdnb1s2TKDjsxhH3/8cdOmTX3+GwQu2qBfMf7Xv/41ICAA
HVQlCzbomc8///zdd9/1kpD466+/vvXWW8XFxfe6IQreBexz3rx5BI1169bp
H4mOSExMxLu7deuGytA+37ZtW2pq6s2bNx29LtTlpZdeSkpKql27tsSNBx98
cPv27Tq/Onr06EMPPdSnTx+dad/7FJA3PLRDhw4nTpy41235f6AE27ZtCxe9
1w2xD0LcxYsXT548WV5e7iVRt6oCW502bZqfn5/VWU5TkNzHjh2Lazdq1Eib
+ygtLUWYWJZpOQQiwBtvvPHww7+/ALdfv36y6sQqRCIRu6pYSTlGjvIKDw/f
s2eP566CN3Xv3j0+Pv6HH34w/fzGjRvPPvvsggULLEMxDSOU8cTheJ5rGFc5
fPgwBDI6OpqwGRYWRhqyNUlnBgwY4tqzZ88HHnigfv36/JY/MJLx48ejmj3R
2nPnzpEosfn7aB3l7du36aVZs2YlJyd36tQJycAzDQoKqlWrFikb1wsNDW3f
vj0ZfNKkSfn5+aaswBL0+dSpU+nnHTt26F+XJ/vyyy/j14GBgQcPHrxb4ew5
OTloCiOBnWO+++47W0fyOQLH19e3S5cu33//va2TSNCIi4urYiVeqBKe2po1
azyaImFxPOjIyEgzk3jvvffgeI8//rjVVYEki9mzZ2NmZ8+e9USrrl69OmrU
KBqGLcm8GBb+3HPPkRrMqoItQYMzMjKaNWu2du1arXwIs3z//fdpMKR0/fr1
+gXMTuDAgQO9evXCVhs2bLhhwwYvLwCAeqWnp9MVPo6gevXqAwcOLCoqsmqQ
fPjCCy8YYRoAuc3D1Q7euXPnU089ZXD96ZdffpmSkoKF2DqgsLCwTp06MTEx
Okrniy++4PbtTvR4A2ghubtr166vvfaavt1C21q3bk1PepQ+0QboBPYAXTQd
EZKswefZ2dm2RorwRzhAQkKCGUVxHVeuXImNjcVEFy5caOp9ZCX6pKysTOe3
P/3006gKWG2VnLlGjRp2+98JwDGkbAlfMD6aV8nArtLS0mihv78/bjVmzBiC
/6OPPiphgdxByxctWgT9GD58OPQD1zYLHQTGoUOH0pOWJ1+6dCkHrF692m4z
iDwSsubPn48wgcwcOXLE4C1s3bqVoKHjF59++mnNmjX117Z89tlnECpuxMvD
O4DV87zoK1ifTqjkRiZOnAiv1i+Kcx2E4ieeeAL3NJsx1z5HIer8/JNPPqHn
ee5udEBcb9y4caJJTQ2DPoFp8CFhwdZv8VOiAcfosJHjx4/TsY888gi5xl1t
Nj25TCbCc77++mu3n98V0Dm7du0KCQnh3qGvWlrHDtu1aycBgQBi9ijp7YKC
ApKX2K2GiIgIFJnZJeBysNPnn3/erj1cunRJItXgwYN53IsXLzZoQhw2efJk
S2KsgRw3bdo0tBV8Q+c8QrAt53y9DTw1VJv0+ZQpU3RC3L59+5B7dI6n54Ng
esHBwfSw2UArn2NafI4X6Pwc4jRo0CCONDixbgT4MtflgUJZ71bEEBpDsI2K
iiIzWhqqKcrLy7H/gIAAMogtPUu3Z2Vl8Qhg2m6npkQ5RIqQjbffftu9J3cF
2B7toWcImGbeRHALCwujzdWqVSPk2jpDcXFxjx49TOMG9MDMc7Einp2R9C1Z
iZNAePr06WNXcmog1iGZUR9m6+41IOoxyLy8PB3foTdefPFFb3tGtkDcRsTl
5+frDJdxDFKLh3v69GlPt2fbtm24J3LJjMzDAPlcfyhJIPPdyAG3TF3xNJFv
2BJXb9myJekMhoxRzZkzh0Bq1xSluIifY7o6cUwSIse4OFZvFSRx2S+C7Ow9
03koO6FAubm5ZrlVK7VCtemsGblbsUYsMzPTVKegR0xVGDGkW7duRsyGRzli
xAhOEhQUdOjQIeM3UlJSQkygqVzl1KlTpl8RJbDn0NBQtLYOHb1bkYmGDRvG
pc3OcP8CtVW7dm3CtadNThvQMCtxsTXQYRXkiOjoaHc5ILaE4pYs5gQN2LNn
D3JJWITOqPiZM2fETf74xz+6feThq6++atSoESfHevV5UaUBD0Ky0SQUgeUC
LoORVgCVwjK1uGFWaCFDYUaMgW5H1cJtyPgOCYQtW7Yg/Q4fPrx69eoGDRrE
xsZyHv6ePn06jeET/rY7gfXNN9+QkhISEqrG1Alek5GRQR589913PX0tmJ6R
AQ06VmebR57+K6+8gv0gJF2Xh9w+CdpgvLIEDcBc4ST6AUcj5GYViW6BZDFJ
xLAO957cOZBPw8PDhwwZYnXCev369dpWWkYWcKFTZBcdiTNmAvbvf/872sFI
NKZVy5cvd9Rt0VZFRUXyN7+FNMJCs7OzZ86cyd/6BEPDxx9/DD1+9dVXvXOw
2lGQm8hQdtcJugUyoAGrQQaafn727FkZ6CDvyKz3okWLdLpXZq/atGnj+hay
GsmxNfSNnegMIBuENgpnqcvcAhlk4/wIKy+f0aOTcTqJAHFxcUacDgKcmpoq
PyG7ffDBB6bfQkX69+9P0vdEx7oFRPWRI0e2atWqyixxXbduHSl+wIABlSCH
ZUBDK7AR0KXithIEsIGnn37aLKqYAfPA+/z9/QngrrcKWc2pnnzySctyPqIc
FAj+42KCKC0tDQkJ4R5bt27tib2ysUZZW1GvXj0vr7fncQu1A+PGjTPI7sgj
8hOrVRn79+8PCgrauHGjB9rrBsBFefqrVq2qGjSDJyiCcfHixZ6+Iy2noyu1
tX74KQoxMjISkRsVFXX9+nXCBWRbfzmAVhVsOWHnBAhTEGl4julmC3wIi46I
iIDwGzTs8+fPL126NCsriwiM4sO2tQlcGLVUGjdv3hx562KDLUELIczStwar
HO8Vvv/++86dO9udOjHDjh07hEpZMo27FRozNze3Q4cOXvLGE1NA/HCxlJQU
R1e4VDIuXrwIHUJUwvlpsK2NhgBZj9xndxDbFNj/iBEjJG+i0/ERnfIAMizs
QpxOBjQwFa5Yq1atfv36jRo1CsKA42NICxYsQPQlJydHR0ejUu02Y8WKFTQg
MTHRoKjUBydBoiLTBg0alJmZyWmxQEKcTtdpwEOJNjQbBkW3b9myBR5Ff+LF
MTExUveSn5+PtdNg/MXuOL9z+Oijj+BLXCI+Pt6bR9u0bX5RqbYmMS0hG2LI
r6yyUMhnr169SCU6qz8qH9jG6tWrMXLTFyt4Ic6ePYtvkh9hEXv37sU9cQFb
5bKyFSrUznTTdVtAv+DaYvymaNSo0eHDhy2PJ/5PnTpVq1SUAY26deueOnWK
qFtUVARtMy2munr1amFhoc4ujqaQGrw//OEPbhyKocfw8SNHjhifxCcCpKen
o++wWMs1JjSyb9++aIc//elP0ld4tFuinCWI/23btpWhQk9UkbkLWvxET1kt
8rQKjWmQCm1FcmhGQkLC3LlzvaTkErOn2aQJbRzVO0GKSU1N1RaP4AKYEBnc
1jovGUAz8viIGNOmTdN0ZYsWLaDuMnEGunTpYinVT5w4ERcXpz1iGdDQqaxz
CDKJ+dBDD3mi8sEgysrKpF5o+PDhVpM70unFF19E+kFgpKOcm6MxAk47adIk
uQqKzzsViqwWkUY6NJH05z//WX7Vs2dPnXJuMs706dO9ZIE2CWXOnDm29kh3
COSdtLQ0vKyjy+jUqVNsbOz777+vnZwgMHDgQE09SU0RMD1GgzZ3afmmBssj
CUS4PJIc+q09awx1165dbdq08fX15bGaGipf8fiwEBlz0AY0jI996QOCAc1w
SFi5FwRJ2fwtKipKZ2wTNde7d2+aKip+5cqVnmuSsC9pknGyVJlAO0C9xP3N
DEYHMAeUrMwpG1lmUvVA0IAMtG/fPsJltGvXDn+X4ue7FWN3ZDRtDBnflCUV
qA+rI+qaI2PV+kqQtI4GITVYNUVoIYreTK2jkrp3766tSNUqNNw1xC3jabjh
66+/7pYTOgS6WsoL7a44KC8vJ7yLm9ja2NZdQN916NBBhL93vprn66+/lvgJ
RTS+Xkwqo/hVkyZNbL0+QME54Nr4qTYsqU3DIbet6mgtgBPEdGSg7ACvvyYL
EY0xaLtwEI7gGFOmTNFIhQx/yYCG83doAolCNB7+bzBh0X4UFtwMatSwYUNX
VgFs2rRJJHZGRoY+x9Z2owVt27Ylhjh9UX3IXiiaYJw5c6YXLozSxjO7du1q
XKVCbultEoQn6mn/x4Fjbt26VfNT6WqSu63N0LRiyJEjR+oEjfPnz/OI9cfW
uOjEiROnTp0qhkrgwjdNK/dQE6hRJJ67qkEIg/Hx8TSecxr0DhkZRu8HBATg
XJB55y5NQpdJQ+z/o48+0j+YKCHjk26UZpbAld555x3CMoE6MDDQx96Lge4J
eEyzZ8+WrtBMxS6glBJ1u3Xr5nqVnYIOkBsSEBo3bmyL0eFE/fv3tzs6R7iA
Nth19t27dyNzIAAyzZSVleXRHaW4QaKQj+PF5LKtgSsVsFAUoRkQObtFF7J6
VwoMrI4suQ46nARRp04dSBfpOyYmxqdiq1tv2x0R20DGStuwFiM/4ckuWrQI
jgFHNT4/q+AcTp8+LbPh8GdbLEJjGunp6a5nwEuXLiUmJl64cAG7TU5O9rTF
3r59OykpyYmgIePwffv2dW5Cn0iolTQPGzbMbmCU7cg4uEOHDp5IlEQM6CVh
MDMzkz7R9rUDcD+v2vi6qKhIKtz0t3YxBYGCkAujI1ArYeJR0L1SGKBfaE3Q
ePrppzksLS3N9antW7duDR48GP5PEnFovwLn8OOPP8bFxTlaFIqP00h+tXDh
QueM8MqVK61atTI4FYLPTpgwQQ5+5ZVX3G72nHD79u21a9fu0aOHtvLi5MmT
QUFBXJR2Gi+E8DRo6uLFix3SJkePHg0PD4eWrFmzxgvHZyoZhFmYQLE7QGa3
9Hcc9rHHHrNbf4hJy+YwgwYNcl1KyFYzmzZtQrnbfcOd65AF8jTeobfPiMsH
BAQ4PaCB3BCXJLnv379f/+Bvv/22TZs2PhUrxN0+7M9d79y5MzAwkEuYFhwS
vWF6HhVETuDmzZvdu3enVXS+kW2rCwsL6bT69esXFBQ4ZEvHjx+HCkZFRTVt
2jQiIsJDuzpXMk6dOiVW5y48//zzZpfYt2+fbPIwb948rcOJVGbrH+W1ET4V
xdiu7wtKLpgxY0Zubm5CQkIlFM3KAKOvr6/+9oBmgO6Sl10Z0JC3V/j892b4
trBx40YZ9ofYuDdX8uwQPkSMkJAQyy1lVq1aJWvPEZ5eUh558OBBGaHFnfXn
TZCN8GQIRuvWrZ0o0yJL7tixQySkcR3k5bhz5w56//XXX1/rDpDZzRbpaJTY
dIcT4jx0wnIo6c0338S63DLSjlMQvlq2bAnfqARDxWFxW/2XY8LYFyxY0K5d
O9gF9kN4kWK2lJQUp1colJSUSMy3a5A3btyQ3Arrs+R7PKa8vLzQ0FCzggp5
78zIkSN1VvQQMfLz8+vUqUPWtrp7/9mzZxs0aOBTUdhg6zz0wObNmwcOHNi1
a1fckyPnz5/voT2luannnntOchwBwRZzoE9Q00SVGjVqIGGcXqTD5WbOnOlj
b1pQQcPly5dbtGhBj6FztfKML774AjphaeRSQxgWFub6nrTyilseN/bs4qmM
QNaN1q1b19YWhUeOHGnevDmuLZETapGUlCTr7IyXdliC6CrFWvpbzHH+V199
1c/Pj/RqlY3THvyUb81W5/H4aDYBwepyHjnzBx98ANvh5LZ2xyUxyRA3PMfq
9v6cnFgaHBy8bt06iZ8E4ZiYGLczIoFWdYbcsLrKqaysbMWKFcQusVsXd7eW
96lB8LxkSyLvh0wp0vnabooyP251B2+pucJEHdo10SrkdVdIBk/sF2EJeY0F
lm813SMiGjZsiAwxfTOv7JuhsxLHCLjN6dOnizzRUWHwahoAi4PqWJ3CkC3v
CO9mk7ayA6rOaiDuQuYgxo8fr8OXUEaym/eQIUPMpssJYo888gj+a0pyMJW5
c+fql/k5DfKIVtO1a9cu6MSWLVuWLVuGWQ4dOhS6JfGtX79+3L7rMz6lpaU8
HeKqNy/c8yrwRHhApsN0dF1sbKzVEaHr16/DBt1S3Y2xjR49GkuuhGk+LHzR
okVYGiZnOYQLAUARcFNmu6t9/vnntWvXJr+7uDBWiupxSVsV7KiDNm3akOme
eeYZq35Nq8jpMgRt6tHa56gGq4UxBQUFEjF69+6tPz9F7paCbZpquucelJK2
0TmrV6827RxCPWJq+fLl7h3BLi8vpxNM37RuCZgVwtaN718grnJFD81xV0nA
M5s1awZ5kNp+HCQ5OZmYYNUYtKWRru+3iQ3Hx8eTQVw5iUHIzKnVSU/RBTiF
pZyXCg39F24aAZfYsGEDkTk8PNxsjS19iMVyafImidtWRZy2bstsHvb27dtE
Ax8bU0IIGakTQ3PZHYMlho8ZM8bnvxd5acEWC5GhsJs3byJV5s2bByubPHmy
e8c0uE2tpkUDPIprRUdHjx07duvWrW6vq9e2E1QDGsYhq/jJR8i6CRMmIMD1
956S/Q14iAZfUWcLp06dgmxXztYBIvzr1q1rKX7xAmiVT0XxiSkJ4W+IOp/r
7z5qEFgm4RFlhwukp6cTQ/hnXl6ezHTj1EgAnavIEl3L/WRkPRcsEY1p9hNt
UTmqx+BuAIWFhfXq1fOpeM2QiCBtwQ7UXRY8duvWjY5CyXroZZeVgOLiYuID
toemw+YJrfyfUGl8WzAFAW61vQJ2y3ukdMGqAzqE9evXk78qYXfiu/8ZECAp
Wy7EO3fuHOkYEmK2hlpKJlwc0DADWRI+37NnT8wV1oFgz8nJIVzYFWjSfsuB
C1sDHYJr166Rmh3y7uPHj0PGyBqS0AlKtJOgQbONn8RrQT9zdzzTzMxMGZRG
m8s2L2pAw6OQ+goXSxbhgUR7slglbIQoc8rwf6tS6MCBA4GBgZZJnLTL502b
NhVajld69JW1OtBez2RWU2c20MFt4uPuncsoKyuDqHhV0ZfToGcgSJjBsGHD
tEdJpxG3fSqK9r1tvV4Vw4kTJ8jOKBSna79lr1F8uRJGQSEzUBokgFU5jEKv
U6cOt2O2Y9KKFSsIjP3790dow9LlXeSebqpV0IA+ffr4WBTAawMdUsnAQ7G1
gYnTuHr1Kv2ms5YN5uPlb0DQsH//fuhEgwYNTDdb0BbSjho1Sg1oeBSyYwa2
pFMopQ80OK5aCXvI402rVq0iv9ja90k2bAkKCjKdbC0tLYW1aiWyx44dc7s/
GocMaNCYF154wfQWCgoKIEj+/v78wT+RV7TWvUyDBz1+/Hj0vuW8jyyVRWGZ
9pvXAlmakpIiwcGUrUmFhhrQqBycO3eucePGVkcJ7AJ7e+mllyzf6ewJQGna
tWsHKbL1Zhy8DJLv5+enbZR65syZpKSkLl26SBInAeXl5d3Dd11pLyXUNnym
JZ9++mlUVFR4eLi8FAaFTljzBBcqKSmRyQtTnoYOmjx5MhHjHm646hBop7yz
26x0Df0lFRr3y43c18BuCc61atVy4uWMhHpkeKdOnTy0Ob8GWb2LW+kvN4Ng
z58/Pzg4eMiQITTsiSee2LNnD/k9Pj4+JCQECZCamuqWzY2dgDaggW3Xq1eP
TsvKyoqLi0Mu4c779u3j844dO8bGxnKnHtJ6CLcePXq0aNEiPT09LS3t8ccf
j4yMXLt27b0a5HECZATEJiLUbFhYdgbzwg2IqirwtdGjR7dt29bRMhuZmMjJ
yfH0gIa8qQrRakSuSgUCRqW1ChICoSJ9e3R3IH1oAxrLli2jGbTnwIEDpkmf
p0AL8etKWCZcWFhIpLqHveEcZJWTj8U7LrVZacwYC/HESLKCJbDe7t27jxkz
xqHRMFQw+dHyvVfuBTQGPg958NB7QyoHMqABWVL7UDkNef+7T8VOSqblcxht
r169fH19YU3889ChQ0g8b35vVJUBEQB259AbZ4jnCxcu9OhkK8yZ9AGprpyF
LZ6DDGh41fY49yPIUDVq1CBEmBb37ty5MyAggIAMgyKwLFmyxC2FfApGcP78
eXL6unXrvKTD4ZnQzsGDB9/vSwm0AQ3u5b4TBV6Fa9euxcbGhoaGyppZNMjm
zZsjIyPDwsJkRwg484ABA7z8XdhVDARw70mF+Nrly5erwLQ7vSoThUuXLr3X
bbnvUVZWhjxp0qRJZmZmXFzc8OHDYby7d+8OCQnp0qVLTEwMnawGNBTud8Au
ZsyYgam7cUXn/zjIJgcPHjQVrSjZo0ePwpa9hCcrKCgoKCgoKCgoKCgoKCgo
KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj8D+L/AKfw+7Q=
     "], {{0, 81}, {
     359, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{179.6666666666668, Automatic},
   ImageSizeRaw->{359, 81},
   PlotRange->{{0, 359}, {0, 81}}]], "Input",ExpressionUUID->
  "06e816ee-74a6-451b-af55-1fab416b5e45"]
}], "Subsection",
 CellChangeTimes->{{3.742225210268482*^9, 3.7422252341165237`*^9}, {
   3.742225399065777*^9, 3.742225438530488*^9}, {3.742225588522272*^9, 
   3.7422256174212418`*^9}, {3.7422257454653788`*^9, 3.742225760869822*^9}, {
   3.742225802957129*^9, 3.742225810430195*^9}, {3.7422259174491367`*^9, 
   3.7422260616027184`*^9}, {3.742226120209066*^9, 3.742226127806513*^9}, {
   3.742236515916774*^9, 3.742236703121776*^9}, {3.742236755083893*^9, 
   3.742236801878098*^9}, {3.742317019305887*^9, 3.742317046559519*^9}, {
   3.760966254219942*^9, 3.7609662558084636`*^9}, 3.7609785052617064`*^9, {
   3.7609805881485434`*^9, 3.7609805881485434`*^9}, {3.7609806209044647`*^9, 
   3.7609806501137524`*^9}, {3.760981328856741*^9, 3.760981328856741*^9}, {
   3.7609882016701207`*^9, 3.7609882053971753`*^9}, {3.761331571123936*^9, 
   3.7613316013273287`*^9}, {3.765635034953681*^9, 3.76563503542542*^9}, {
   3.765738814465864*^9, 3.7657388623476086`*^9}, {3.7657388959737577`*^9, 
   3.765738914077015*^9}, {3.76616315572602*^9, 3.76616320762728*^9}, {
   3.7689307149131923`*^9, 
   3.768930733104451*^9}},ExpressionUUID->"68c7e39c-fd44-4942-9218-\
54c779e0448b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FHoloTerms", "[", "mu_", "]"}], "[", 
   RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "]"}], ":=", 
  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.761331744298253*^9, 
   3.7613317470089955`*^9}, {3.7656350519377675`*^9, 3.765635110759773*^9}, 
   3.765738924793767*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"a0c1de7d-ed47-46b7-ad23-295e10996f60"],

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[59]:=",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DEqm", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"I", " ", 
        RowBox[{
         RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"dd", ",", "ee"}], "]"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Lambda]", "[", "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.7657389896959085`*^9, 3.7657390390237417`*^9}, {
  3.7689307470100555`*^9, 3.7689307472535024`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"49bfce85-c3fd-4319-9da6-fc9b18aa2748"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ZHoloTerms", "[", 
   RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["3", "2"]}], 
        RowBox[{"Cmetric", "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{"KroneckerDelta", "[", 
         RowBox[{"cc", ",", "dd"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["3", "2"], " ", 
        RowBox[{"\[Gamma]5down", "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{"\[Gamma]5", "[", 
         RowBox[{"[", 
          RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], " ", "-", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"\[Gamma]5\[Gamma]down", "[", "kp", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "kp", "]"}], ")"}], "[", 
            
            RowBox[{"[", 
             RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"kp", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
     RowBox[{
      RowBox[{"DEqm", "[", "Rep", "]"}], "[", 
      RowBox[{"[", "dd", "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765738931918521*^9, 3.7657389776783905`*^9}, {
   3.7657390483571544`*^9, 3.765739056293897*^9}, 3.7689307431839237`*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"a16eeef2-fe7f-4699-960c-1ffe446b4a54"],

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.765739064064372*^9, 3.7657390774775095`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"283615f2-6e12-413a-84d4-6bd88dfe93f0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"HoloraumyDD", "[", 
       RowBox[{
        RowBox[{"Da", "[", "aa", "]"}], ",", 
        RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "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.76573908614277*^9, 3.765739088045827*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7613317513753138`*^9, 3.765635122474845*^9, 
  3.765739091275436*^9, 3.7661630020875683`*^9, 3.7689307506130834`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"7b88d1aa-fd55-4bec-b781-5233941c737d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Diagonal Lagrangian\n\[ScriptCapitalL] = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", 
     SubscriptBox["F", "\[Mu]\[Nu]"], 
     SuperscriptBox["F", "\[Mu]\[Nu]"]}], "+", " ", 
    RowBox[{"i", " ", 
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{
       SubscriptBox["\[Lambda]", "a"], "(", 
       SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubscriptBox["\[Lambda]", "b"], "   "}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"16eff982-a8c7-4537-b6a2-0fbf7e9c55c9"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["D", "c"], "\[ScriptCapitalL]"}], " ", "=", " ", "0", " "}],
    TraditionalForm]], "None",ExpressionUUID->
  "605cc357-a17e-4002-8ad5-b1968447a64a"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     RowBox[{
      SuperscriptBox["F", "\[Mu]\[Nu]"], "(", 
      RowBox[{
       SubscriptBox["D", "c"], 
       SubscriptBox["U", "\[Nu]"]}], ")"}], " "}]}], TraditionalForm]],
  ExpressionUUID->"a849a8c5-3ce1-4129-a88a-dea63ebba65b"],
 "  -",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{"i", " ", 
    SubscriptBox["\[Lambda]", "a"], 
    SuperscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Mu]"], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["D", "c"], 
       SubscriptBox["\[Lambda]", "b"]}], ")"}], " "}]}]}]],ExpressionUUID->
  "2c4ef662-af04-4a2b-ae0c-eaac04289de4"]
}], "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.7390271186357365`*^9, 3.739027234160344*^9}, {
   3.739101662066658*^9, 3.7391016655628576`*^9}, {3.739197262047496*^9, 
   3.7391973013707447`*^9}, {3.739197331547471*^9, 3.7391973509575815`*^9}, {
   3.7609851365374384`*^9, 3.76098515222647*^9}, {3.7613198292475433`*^9, 
   3.7613198292475433`*^9}},ExpressionUUID->"ed496191-3d25-497b-9db3-\
875240812f9f"],

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->"5651a7e4-d78c-4dc4-a232-\
3f6717faf906"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByParts", "=", 
  RowBox[{"{", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
       "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
       "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "xp", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"efield", "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
       "]"}]}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4542861504375*^9, 3.454286169796875*^9}, {
   3.454458953640625*^9, 3.45445901278125*^9}, {3.455396920765625*^9, 
   3.4553971038125*^9}, {3.45539730815625*^9, 3.4553973101875*^9}, 
   3.455397564921875*^9, {3.5369355292501507`*^9, 3.536935630955968*^9}, {
   3.548502759932888*^9, 3.548502827575757*^9}, {3.559505239252364*^9, 
   3.559505278835628*^9}, {3.7385966269522123`*^9, 3.7385966729018407`*^9}, 
   3.7385971486350513`*^9, {3.7391993748403406`*^9, 3.739199416469722*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"60d195f6-3f56-4da5-b9bb-07353989501b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"efield__", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[Lambda]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "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[{"\[Lambda]", "[", "xp__", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "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.7613317669699087`*^9, 3.7656351264747715`*^9, 
  3.765739095382908*^9, 3.7661630021095095`*^9, 3.7689307567265778`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"0cf93fd0-79f4-492a-bee8-af7a0ce5c1db"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"DLU", " ", "=", "  ", 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{
     SuperscriptBox["F", "\[Mu]\[Nu]"], "(", 
     RowBox[{
      SubscriptBox["D", "c"], 
      SubscriptBox["U", "\[Nu]"]}], ")"}], " "}]}], 
  TraditionalForm]],ExpressionUUID->"34dd8c29-344f-4941-829e-b9719a83fb68"]], \
"Subsection",
 CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, {
  3.739197377993128*^9, 3.739197380159251*^9}, {3.7609851661861486`*^9, 
  3.7609851661861486`*^9}, {3.761319831479032*^9, 
  3.7613198324733543`*^9}},ExpressionUUID->"d29e4cf2-26ed-41c7-ae34-\
02771b72db74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLU", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Sum", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Da", "[", "ci", "]"}], "[", 
        RowBox[{
         RowBox[{"Ufield", "[", "nu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Fmnup", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, {
   3.739198114006225*^9, 3.7391982117248144`*^9}, 3.7391994263992896`*^9, 
   3.7609851679783545`*^9, 3.7613197148613195`*^9, 3.7613198336803102`*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"266e3b3a-427c-44d4-a8e4-6de0612ed23f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "2", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "1", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Ufield", "[", "0", "]"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "1", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "2", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "0", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Ufield", "[", "3", "]"}], 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7613317671324716`*^9, 3.765635126602433*^9, 
  3.765739095532112*^9, 3.766163002193792*^9, 3.7689307568563037`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"9318c743-41da-4c1a-ad3f-0651484d90e1"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "DLlambda =  - ",
 Cell[BoxData[
  RowBox[{"i", " ", 
   SubscriptBox["\[Lambda]", "a"], 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Mu]"], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["D", "c"], 
      SubscriptBox["\[Lambda]", "b"]}], ")"}]}]}]],ExpressionUUID->
  "9bafaa2e-45b7-4bca-ac66-d35e2058e47a"]
}], "Subsection",
 CellChangeTimes->{{3.738597279555539*^9, 3.7385973231010303`*^9}, {
  3.739199638076397*^9, 
  3.739199651260151*^9}},ExpressionUUID->"26085ad7-b363-4243-a0ad-\
8d8ba14a4f0a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLlambda", " ", "=", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", " ", "I"}], " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Lambda]", "[", "ai", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], 
        RowBox[{
         RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"ai", ",", "bi"}], "]"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Da", "[", "ci", "]"}], "[", 
           RowBox[{
            RowBox[{"\[Lambda]", "[", "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}, {
  3.7391996544743347`*^9, 3.7391996652049484`*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"5470bc54-b94e-49f7-8522-efe0fd6624bd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "4", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "2", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        RowBox[{"\[Lambda]", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "0", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "1", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Ufield", "[", "3", "]"}], 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.761331767278157*^9, 3.7656351267560225`*^9, 
  3.7657390956896915`*^9, 3.7661630023613443`*^9, 3.7689307569970512`*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"c64fec45-2b4b-4f2b-af8f-4bb3fd26aaa4"]
}, 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->"868e9f0f-9a20-4b4a-9f98-\
2499255d33aa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DLTotal", "=", 
   RowBox[{"(", 
    RowBox[{"DLU", " ", "+", "DLlambda"}], ")"}]}], ";"}]], "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.7391996975357976`*^9, 3.739199709537484*^9}, {
   3.760985185666038*^9, 3.7609851997782865`*^9}, 3.761319834807931*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"7f54c019-5c83-4fbe-8ce4-8db21cce8111"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DLFinal", " ", "=", " ", 
  RowBox[{"Collect", "[", 
   RowBox[{"DLTotal", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]", "[", "_", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Ufield", "[", "_", "]"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{
       RowBox[{"Ufield", "[", "_", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{
       SuperscriptBox["dfield", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"dfield", "[", 
       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}, {3.739199721975196*^9, 3.739199749168751*^9}, {
   3.739199781743614*^9, 3.739199827669241*^9}, {3.7392004973405437`*^9, 
   3.739200499423663*^9}, 3.76098520970673*^9, 3.760985259586774*^9, {
   3.761319715280205*^9, 3.7613197157421513`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"80d15f9f-9543-4fa0-a8f6-50e451995354"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.7613317673528843`*^9, 3.765635126818201*^9, 
  3.7657390957546616`*^9, 3.7661630024122086`*^9, 3.768930757080683*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"8eaf2919-e5c1-4c4e-8428-a13b60195b8a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LagrangianClosure", " ", "=", " ", 
  RowBox[{"DLFinal", " ", "\[Equal]", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.7609852119437456`*^9, 3.7609852434733653`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"ce9e33f0-e1fb-4f36-b41b-942857baa013"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7613317673678493`*^9, 3.7656351268311634`*^9, 
  3.7657390957666273`*^9, 3.7661630024251733`*^9, 3.768930757130599*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"514c6fe9-65e5-4ec6-87f9-b494c9155138"]
}, 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, 8865, 120, 146, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"],
Cell[CellGroupData[{
Cell[9469, 146, 289, 4, 99, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"],
Cell[CellGroupData[{
Cell[9783, 154, 148, 2, 43, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"],
Cell[9934, 158, 257, 3, 49, "Output",ExpressionUUID->"9f1b42df-ffcd-4b2e-ad06-0838cc7aef6d"]
}, Open  ]],
Cell[10206, 164, 1170, 17, 43, "Input",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"],
Cell[11379, 183, 247, 4, 43, "Input",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"],
Cell[CellGroupData[{
Cell[11651, 191, 214, 3, 43, "Input",ExpressionUUID->"ee9a22d7-408f-43e3-b2dc-2ed014de5ea4"],
Cell[11868, 196, 252, 3, 49, "Output",ExpressionUUID->"17de4c8c-f345-4407-85f5-65bb95648647"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12169, 205, 2194, 49, 275, "Section",ExpressionUUID->"4c5b5cfe-adb3-4e93-a92e-56fcdf2f0a10"],
Cell[CellGroupData[{
Cell[14388, 258, 248, 6, 2049, "Subsection",ExpressionUUID->"35c45c57-b4de-4657-80c8-61a394edd298"],
Cell[CellGroupData[{
Cell[14661, 268, 2038, 42, 1093, "Input",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"],
Cell[16702, 312, 1067, 28, 70, "Output",ExpressionUUID->"cac248f3-8736-4968-bf65-3578f6acab41"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17818, 346, 501, 9, 2049, "Subsection",ExpressionUUID->"8dc47d1e-d238-43ad-b614-8fd7a1d31b4b"],
Cell[CellGroupData[{
Cell[18344, 359, 2393, 58, 2605, "Input",ExpressionUUID->"02d26f17-a193-49ca-87a1-899d6cf2c676"],
Cell[20740, 419, 1808, 50, 70, "Output",ExpressionUUID->"90f4f91b-4653-4dc2-ab8c-edcc71d714f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22585, 474, 544, 11, 1093, "Input",ExpressionUUID->"4075e5c9-bb03-4ae5-827b-cc4bde7d319c"],
Cell[23132, 487, 299, 5, 70, "Output",ExpressionUUID->"7c645d56-a288-460d-84b1-195ff5a9f24a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23468, 497, 206, 3, 1093, "Input",ExpressionUUID->"e586daf5-bcfa-438d-b2ca-0de12bfe9d9a"],
Cell[23677, 502, 267, 4, 70, "Output",ExpressionUUID->"817ec725-0975-412b-a9e7-2a6d0fdbe1a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23981, 511, 449, 10, 1093, "Input",ExpressionUUID->"9c0049b0-1502-4645-a3f9-a81f9269af9a"],
Cell[24433, 523, 270, 4, 70, "Output",ExpressionUUID->"a7419f62-1b3a-4841-8b52-9d4d7f2832ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24740, 532, 520, 12, 1093, "Input",ExpressionUUID->"9a166dd6-65d3-4354-9e54-3f6e295c74a5"],
Cell[25263, 546, 298, 5, 70, "Output",ExpressionUUID->"e6b94a07-6a32-483d-9e15-2f70ba26251c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25610, 557, 1497, 43, 3300, "Subsection",ExpressionUUID->"f7223d3e-780f-46b6-aa53-f17da6eef8b4"],
Cell[CellGroupData[{
Cell[27132, 604, 988, 22, 1093, "Input",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"],
Cell[28123, 628, 689, 17, 70, "Output",ExpressionUUID->"9d8fc868-4318-4450-b92f-66c9b82f4bdc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28849, 650, 1125, 27, 1093, "Input",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"],
Cell[29977, 679, 1077, 29, 70, "Output",ExpressionUUID->"5810f00b-47de-4c07-83a9-fd317c133f28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31091, 713, 232, 4, 1093, "Input",ExpressionUUID->"79460b94-9729-4f3e-8728-f207ac43d16f"],
Cell[31326, 719, 447, 11, 70, "Output",ExpressionUUID->"4a3e62a9-c934-4731-8272-910238101c64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31810, 735, 254, 5, 1093, "Input",ExpressionUUID->"0d5cbf46-6c7e-4ca6-9313-90549d0dfd86"],
Cell[32067, 742, 535, 13, 70, "Output",ExpressionUUID->"71ac0478-523e-49ab-a7cb-4c605e9c19a0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32651, 761, 212, 2, 2049, "Subsection",ExpressionUUID->"934f9f0b-9b24-401e-9416-77c2303ebc8b"],
Cell[CellGroupData[{
Cell[32888, 767, 1689, 36, 1867, "Input",ExpressionUUID->"f16a7014-9edd-4a83-8bb8-ca1541272574"],
Cell[34580, 805, 1233, 29, 70, "Output",ExpressionUUID->"6c438043-7f4e-4334-bbb4-f4537d4536b4"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[35874, 841, 988, 16, 76, "Section",ExpressionUUID->"65102be5-a054-4c68-82da-5d568c24d914"],
Cell[CellGroupData[{
Cell[36887, 861, 427, 10, 2049, "Subsection",ExpressionUUID->"6c41c663-34cc-4984-9ec1-aa5934fb2ff1"],
Cell[37317, 873, 803, 17, 9450, "Input",ExpressionUUID->"a91adb23-7dc4-40aa-afc4-5e6bb69aed24"],
Cell[CellGroupData[{
Cell[38145, 894, 217, 3, 5532, "Input",ExpressionUUID->"3f93f86f-eaee-4ffa-bb22-a47827eb1e6b"],
Cell[38365, 899, 828, 24, 70, "Output",ExpressionUUID->"985f1b3b-bc68-423a-91a0-89469c858d7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39230, 928, 534, 11, 5532, "Input",ExpressionUUID->"a82c1de1-716c-43b3-8a86-ec5a486e94d1"],
Cell[39767, 941, 803, 20, 70, "Output",ExpressionUUID->"e49ce283-492e-4ea1-afbb-4dd99a5f970e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[40619, 967, 361, 6, 1377, "Subsection",ExpressionUUID->"778edc5b-aa18-4a83-ac0d-00833534239a"],
Cell[40983, 975, 1001, 20, 1093, "Input",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"],
Cell[CellGroupData[{
Cell[42009, 999, 526, 11, 1093, "Input",ExpressionUUID->"43687642-1c54-4669-84c2-e03dde360657"],
Cell[42538, 1012, 763, 18, 70, "Output",ExpressionUUID->"0c0ed5c5-ae79-4735-9471-9bb042fc9d72"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43350, 1036, 1327, 33, 2094, "Subsection",ExpressionUUID->"3f1ea2b0-6032-4fee-802d-0bd9d2cf462b"],
Cell[44680, 1071, 1258, 31, 1093, "Input",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"],
Cell[45941, 1104, 1310, 28, 1093, "Input",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"],
Cell[CellGroupData[{
Cell[47276, 1136, 599, 15, 1093, "Input",ExpressionUUID->"f0d625ec-df6a-4218-9b75-c64339bbfd2f"],
Cell[47878, 1153, 8723, 256, 70, "Output",ExpressionUUID->"725f00f5-b4a8-4c26-a571-a3c348887951"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56638, 1414, 650, 16, 1093, "Input",ExpressionUUID->"f4d145fd-2861-4bcf-9e11-4e68e93cc926"],
Cell[57291, 1432, 8719, 256, 70, "Output",ExpressionUUID->"aad49ccc-94dc-41dc-a01e-255eb22f50e8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[66059, 1694, 983, 24, 3118, "Subsection",ExpressionUUID->"ec403595-5c5e-4130-87e6-1d3065f65cb1"],
Cell[CellGroupData[{
Cell[67067, 1722, 216, 3, 5532, "Input",ExpressionUUID->"65e8b7f3-0ca3-456b-bfd4-58abb0bc2ab8"],
Cell[67286, 1727, 248, 3, 70, "Output",ExpressionUUID->"96ec4434-73c6-46dd-9998-609c23feeb72"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67571, 1735, 554, 12, 5532, "Input",ExpressionUUID->"9dbeb415-c297-44bd-a09a-2df894cf21ab"],
Cell[68128, 1749, 499, 12, 70, "Output",ExpressionUUID->"be93a82a-100c-42d0-8c1b-4ec18fb61053"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68664, 1766, 481, 10, 5532, "Input",ExpressionUUID->"ee4c6f59-03e9-42d6-9a14-eff52b913ea1"],
Cell[69148, 1778, 1226, 36, 70, "Output",ExpressionUUID->"d4dfd6eb-7008-4262-bb06-e02f4bb82b34"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70411, 1819, 589, 13, 5532, "Input",ExpressionUUID->"cbbd8308-375a-4a2e-9ba8-f5aa44b2bf32"],
Cell[71003, 1834, 1250, 37, 70, "Output",ExpressionUUID->"961dd7ca-b816-41e7-9d70-1627c05ac082"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72290, 1876, 594, 11, 5532, "Input",ExpressionUUID->"93182930-359a-4f6d-8c9f-c9c311d608a5"],
Cell[72887, 1889, 2874, 90, 70, "Output",ExpressionUUID->"11a92c49-7f1b-4a21-bbc9-1a333501381e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75798, 1984, 610, 10, 5532, "Input",ExpressionUUID->"eb43cfbc-955a-45ee-9174-7bb4f391055f"],
Cell[76411, 1996, 1356, 40, 70, "Output",ExpressionUUID->"b992be22-ea8b-4165-b4ef-34a12a0178c6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[77816, 2042, 159, 3, 1377, "Subsection",ExpressionUUID->"68893c73-8799-44ac-b397-ad8678b9c883"],
Cell[CellGroupData[{
Cell[78000, 2049, 555, 11, 1093, "Input",ExpressionUUID->"5ae39733-84b1-42ef-b5d8-d6e0ffff02fd"],
Cell[78558, 2062, 389, 8, 70, "Output",ExpressionUUID->"62d0e2ac-c11c-4b46-8579-2eb6d2df96c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78984, 2075, 560, 13, 1093, "Input",ExpressionUUID->"8a51f6e7-4290-41a7-8b37-30e4ca96554a"],
Cell[79547, 2090, 505, 11, 70, "Output",ExpressionUUID->"8cd45578-757a-475e-a3c1-be583fcb12b8"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[80113, 2108, 699, 10, 76, "Section",ExpressionUUID->"06494e91-661e-4ca6-95eb-5ee8e28bd4bf"],
Cell[CellGroupData[{
Cell[80837, 2122, 11265, 187, 111, "Subsubsection",ExpressionUUID->"19234059-780f-48ff-9a61-e83dce3908cf"],
Cell[92105, 2311, 3584, 63, 1093, "Input",ExpressionUUID->"93928d44-3a0d-434d-bd9e-2af8f6764f49"],
Cell[95692, 2376, 1303, 31, 1093, "Input",ExpressionUUID->"18e5fb7a-bf0f-401a-af2b-1144ac67e982"],
Cell[CellGroupData[{
Cell[97020, 2411, 1257, 29, 1093, "Input",ExpressionUUID->"29fb3804-04f7-4ee4-b220-858a18c37c46"],
Cell[98280, 2442, 1929, 60, 70, "Output",ExpressionUUID->"34aa6781-f971-460e-8fac-29d113e61ee3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100246, 2507, 289, 6, 1093, "Input",ExpressionUUID->"93db53f6-10cd-4db2-9f98-1417bc96e346"],
Cell[100538, 2515, 1931, 60, 70, "Output",ExpressionUUID->"af6ba180-af68-4842-861e-14d7f9a41afb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[102518, 2581, 13743, 229, 125, "Subsubsection",ExpressionUUID->"6ed7cae2-1661-4972-824b-166c0ca545e2"],
Cell[116264, 2812, 3147, 63, 3172, "Input",ExpressionUUID->"c24cc654-9c08-4540-8fec-0b3f663ce144"],
Cell[119414, 2877, 1620, 38, 1093, "Input",ExpressionUUID->"a460f19b-bf8f-4e28-a426-4ad249e95bcc"],
Cell[CellGroupData[{
Cell[121059, 2919, 1786, 43, 1093, "Input",ExpressionUUID->"a4f911d4-1221-43d7-ac3c-5dcf1b948629"],
Cell[122848, 2964, 2670, 74, 70, "Output",ExpressionUUID->"ccd0ff1d-3082-4e3c-a7c4-fd79b5da2080"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[125567, 3044, 177, 3, 54, "Subsection",ExpressionUUID->"3a6745eb-727d-4c98-abc6-7a66a9408a1e"],
Cell[125747, 3049, 902, 20, 1093, "Input",ExpressionUUID->"388e6d2d-8e02-437a-bb0b-6d47906c1924"],
Cell[126652, 3071, 650, 15, 1093, "Input",ExpressionUUID->"7b9f680f-c308-4d9e-a626-7914b46d1755"],
Cell[127305, 3088, 3320, 85, 4099, "Input",ExpressionUUID->"4e84670a-dbfb-480b-a537-9348d6e913f5"],
Cell[130628, 3175, 484, 11, 1093, "Input",ExpressionUUID->"b529f91b-f8bc-4c3f-b914-a17756fa16c8"],
Cell[131115, 3188, 641, 17, 1093, "Input",ExpressionUUID->"11c95ead-7071-4314-8f58-bb351bc32b52"],
Cell[131759, 3207, 615, 15, 1093, "Input",ExpressionUUID->"3143ffef-6c23-4c86-a440-c6fa01697e43"],
Cell[132377, 3224, 594, 16, 1093, "Input",ExpressionUUID->"702c3f9b-b9e1-45e1-992f-c5a8d032e022"],
Cell[132974, 3242, 604, 15, 1093, "Input",ExpressionUUID->"63e720ea-e678-4804-ad18-044861245642"],
Cell[133581, 3259, 1252, 26, 1093, "Input",ExpressionUUID->"80896f16-b70b-4a73-8b94-784829b0fea0"],
Cell[134836, 3287, 582, 14, 1093, "Input",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"],
Cell[CellGroupData[{
Cell[135443, 3305, 1185, 24, 1093, "Input",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"],
Cell[136631, 3331, 26694, 723, 70, "Output",ExpressionUUID->"297156a5-6d8f-4866-8377-3bbc76ccca97"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[163386, 4061, 429, 7, 99, "Section",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"],
Cell[CellGroupData[{
Cell[163840, 4072, 1950, 52, 82, "Subsection",ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-80eab8b74b10"],
Cell[165793, 4126, 1120, 26, 43, "Input",ExpressionUUID->"276a4bf5-23a0-462c-a40c-58e7dcde8183"],
Cell[CellGroupData[{
Cell[166938, 4156, 2638, 58, 73, "Input",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"],
Cell[169579, 4216, 272, 4, 49, "Output",ExpressionUUID->"371299b3-13ab-4c16-b186-b811b09cb429"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[169900, 4226, 46990, 781, 179, "Subsection",ExpressionUUID->"f8fc6527-d844-4faa-aa47-5379d276b51b"],
Cell[216893, 5009, 2934, 72, 295, "Input",ExpressionUUID->"4274ee51-f776-44e8-a7c2-f96525d83525"],
Cell[CellGroupData[{
Cell[219852, 5085, 2448, 53, 73, "Input",ExpressionUUID->"0c2d19a2-6b8b-4a03-842b-36835efdad3a"],
Cell[222303, 5140, 276, 4, 49, "Output",ExpressionUUID->"6d9c6236-4693-417a-ae22-a9bfd562b6db"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[222640, 5151, 153, 3, 99, "Section",ExpressionUUID->"506208ec-72d0-4aa8-9d9f-54191bcc9604"],
Cell[CellGroupData[{
Cell[222818, 5158, 52762, 877, 134, "Subsection",ExpressionUUID->"d43faaaf-0673-4970-8df8-4e4a3824b78a"],
Cell[275583, 6037, 776, 20, 43, "Input",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"],
Cell[276362, 6059, 910, 24, 43, "Input",ExpressionUUID->"77406683-38ba-46e4-aa8c-df27a8e3453d"],
Cell[CellGroupData[{
Cell[277297, 6087, 1669, 40, 73, "Input",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"],
Cell[278969, 6129, 251, 3, 49, "Output",ExpressionUUID->"72d18927-b1d1-47c4-8441-3e97c182d805"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[279269, 6138, 89610, 1491, 334, "Subsection",ExpressionUUID->"68c7e39c-fd44-4942-9218-54c779e0448b"],
Cell[368882, 7631, 736, 17, 43, "Input",ExpressionUUID->"a0c1de7d-ed47-46b7-ad23-295e10996f60"],
Cell[369621, 7650, 1241, 28, 43, "Input",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"],
Cell[370865, 7680, 1064, 27, 43, "Input",ExpressionUUID->"49bfce85-c3fd-4319-9da6-fc9b18aa2748"],
Cell[371932, 7709, 1781, 49, 147, "Input",ExpressionUUID->"a16eeef2-fe7f-4699-960c-1ffe446b4a54"],
Cell[373716, 7760, 599, 15, 43, "Input",ExpressionUUID->"283615f2-6e12-413a-84d4-6bd88dfe93f0"],
Cell[CellGroupData[{
Cell[374340, 7779, 2353, 56, 102, "Input",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"],
Cell[376696, 7837, 249, 3, 49, "Output",ExpressionUUID->"7b88d1aa-fd55-4bec-b781-5233941c737d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[377006, 7847, 4980, 100, 220, "Section",ExpressionUUID->"ed496191-3d25-497b-9db3-875240812f9f"],
Cell[CellGroupData[{
Cell[382011, 7951, 506, 9, 80, "Subsection",ExpressionUUID->"5651a7e4-d78c-4dc4-a232-3f6717faf906"],
Cell[CellGroupData[{
Cell[382542, 7964, 3875, 103, 8403, "Input",ExpressionUUID->"60d195f6-3f56-4da5-b9bb-07353989501b"],
Cell[386420, 8069, 3768, 110, 70, "Output",ExpressionUUID->"0cf93fd0-79f4-492a-bee8-af7a0ce5c1db"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[390237, 8185, 653, 16, 56, "Subsection",ExpressionUUID->"d29e4cf2-26ed-41c7-ae34-02771b72db74"],
Cell[CellGroupData[{
Cell[390915, 8205, 1169, 28, 1093, "Input",ExpressionUUID->"266e3b3a-427c-44d4-a8e4-6de0612ed23f"],
Cell[392087, 8235, 40708, 1191, 70, "Output",ExpressionUUID->"9318c743-41da-4c1a-ad3f-0651484d90e1"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[432844, 9432, 623, 19, 56, "Subsection",ExpressionUUID->"26085ad7-b363-4243-a0ad-8d8ba14a4f0a"],
Cell[CellGroupData[{
Cell[433492, 9455, 1350, 34, 2459, "Input",ExpressionUUID->"5470bc54-b94e-49f7-8522-efe0fd6624bd"],
Cell[434845, 9491, 93793, 2503, 70, "Output",ExpressionUUID->"c64fec45-2b4b-4f2b-af8f-4bb3fd26aaa4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[528687, 12000, 481, 7, 54, "Subsection",ExpressionUUID->"868e9f0f-9a20-4b4a-9f98-2499255d33aa"],
Cell[529171, 12009, 1438, 22, 43, "Input",ExpressionUUID->"7f54c019-5c83-4fbe-8ce4-8db21cce8111"],
Cell[CellGroupData[{
Cell[530634, 12035, 2599, 51, 50, "Input",ExpressionUUID->"80d15f9f-9543-4fa0-a8f6-50e451995354"],
Cell[533236, 12088, 311, 5, 49, "Output",ExpressionUUID->"8eaf2919-e5c1-4c4e-8428-a13b60195b8a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[533584, 12098, 339, 6, 43, "Input",ExpressionUUID->"ce9e33f0-e1fb-4f36-b41b-942857baa013"],
Cell[533926, 12106, 251, 3, 82, "Output",ExpressionUUID->"514c6fe9-65e5-4ec6-87f9-b494c9155138"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)