incremental-online-statistics-007.nb

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

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

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    342294,       6998]
NotebookOptionsPosition[    325614,       6739]
NotebookOutlinePosition[    326153,       6759]
CellTagsIndexPosition[    326110,       6756]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Windowed Incremental Online Statistics", "Title",
 CellChangeTimes->{{3.6698529556858463`*^9, 3.669852964981929*^9}, {
  3.703627058983081*^9, 3.70362706623743*^9}, {3.703628927030475*^9, 
  3.703628928893201*^9}},ExpressionUUID->"b0744051-821f-478f-bc14-\
6bebce883993"],

Cell["Extracting Models from Data, One Observation at a Time", "Subtitle",
 CellChangeTimes->{
  3.762854478509541*^9, {3.762854525374554*^9, 
   3.762854537420007*^9}},ExpressionUUID->"b3f72312-1f30-4cff-a8b6-\
4689f3a236a9"],

Cell["Brian Beckman", "Subsubtitle",
 CellChangeTimes->{{3.669852973717079*^9, 
  3.6698529760933933`*^9}},ExpressionUUID->"56da506d-a60f-4f33-b478-\
9bef0e27827d"],

Cell["11 May 2024", "Subsubtitle",
 CellChangeTimes->{{3.669916040271191*^9, 3.669916050814829*^9}, {
  3.670568322040224*^9, 3.67056832212545*^9}, {3.703627074282936*^9, 
  3.703627081067047*^9}, {3.7628541692863617`*^9, 3.762854179784972*^9}, {
  3.924467511030157*^9, 
  3.924467519844315*^9}},ExpressionUUID->"381e9851-d168-47b4-94ec-\
14616942eb57"],

Cell[TextData[{
 "We calculate descriptive statistics\[LongDash]count, mean, unbiased \
variance\[LongDash]both overall and in a sliding window, of sequences of \
numerical data. The statistics calculator is written as a ",
 StyleBox["foldable accumulator function",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", decoupling calculation from iteration. Exactly the same stateless \
accumulator function works over data distributed over space in memory or in \
tables, or over time in asynchronous or lazy streams. Foldable accumulator \
functions can be tested independently of data source, say over ground-truth \
test data, then later deployed in harsh asynchronous environments with high \
assurance, often without even being recompiled."
}], "Text",
 CellChangeTimes->{{3.6704315337480507`*^9, 3.670431538810305*^9}, {
  3.670433011092613*^9, 3.670433012117442*^9}, {3.670517974613204*^9, 
  3.670518132702087*^9}, {3.703257038903595*^9, 3.70325709498783*^9}, {
  3.703521036238616*^9, 3.7035211007149377`*^9}, {3.7036271493714*^9, 
  3.703627240750091*^9}, {3.7036273107413287`*^9, 3.703627493470467*^9}, {
  3.7628539631382866`*^9, 3.7628541530644703`*^9}, {3.762854594374955*^9, 
  3.7628546866424217`*^9}, {3.762854747110767*^9, 3.762854749523016*^9}, {
  3.762856715095398*^9, 3.762856836630719*^9}, {3.9244192850425167`*^9, 
  3.924419285724481*^9}, {3.924419362109108*^9, 3.924419417849194*^9}, {
  3.924467598083089*^9, 3.924467635009366*^9}, {3.924467666654786*^9, 
  3.924467857891773*^9}},ExpressionUUID->"7692651a-e82e-447d-ba88-\
f11c8d7ccc78"],

Cell[TextData[{
 "The solution at the end of this notebook has been implemented in C, Python, \
and Clojure and deployed in mission-critical web applications and embedded \
applications. It runs in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"O", "(", "w", ")"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "5a45f08b-0dae-4f22-9c6f-d67b9fdb41e9"],
 " space, where ",
 Cell[BoxData[
  FormBox["w", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "9ac74c9c-f782-456c-b11b-eb6842f3f9e0"],
 " is the width of the window, and in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"O", "(", "1", ")"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "0c82e5e6-0f0b-49fb-872e-be7c5d255a99"],
 " time. Contrast to more obvious solutions that run in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"O", "(", "w", ")"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "6fc183ea-f84b-4420-b7e9-9b83e1e02b92"],
 " time."
}], "Text",
 CellChangeTimes->{{3.924471421171899*^9, 3.9244715706659718`*^9}, {
  3.924505603555684*^9, 
  3.924505646354912*^9}},ExpressionUUID->"13018296-aa0f-4074-b884-\
e74ca9b258a8"],

Cell[CellGroupData[{

Cell["Prelude: Running Count", "Chapter",
 CellChangeTimes->{{3.6704315063231487`*^9, 3.6704315092341843`*^9}, {
  3.703627512012957*^9, 
  3.703627514556757*^9}},ExpressionUUID->"7189fc66-31fb-4cb2-8745-\
c29fa068f25d"],

Cell["\<\
For ground truth, we want a fixed but random sequence of data. The following \
is a sample of length 10 from the standard normal distribution\[LongDash]mean \
zero, standard deviation one:\
\>", "Text",
 CellChangeTimes->{{3.706391457777802*^9, 3.706391483858736*^9}, {
  3.762854718260289*^9, 3.762854722823119*^9}, {3.762854797689057*^9, 
  3.7628548874162083`*^9}, {3.924467869496292*^9, 
  3.924467889375144*^9}},ExpressionUUID->"bb306649-10eb-4b62-a946-\
2a8b77fb5924"],

Cell[BoxData[
 RowBox[{
  RowBox[{"zs", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.178654"}], ",", "0.828305", ",", "0.0592247", ",", 
     RowBox[{"-", "0.0121089"}], ",", 
     RowBox[{"-", "1.48014"}], ",", 
     RowBox[{"-", "0.315044"}], ",", 
     RowBox[{"-", "0.324796"}], ",", 
     RowBox[{"-", "0.676357"}], ",", "0.16301", ",", 
     RowBox[{"-", "0.858164"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.70639144335928*^9, 3.706391452389128*^9}, 
   3.7063914992771873`*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"8ca4ee7b-ccb5-4754-84d6-fd9fc5f93bad"],

Cell[TextData[{
 StyleBox["Fold", "Input"],
 " has three arguments: an accumulator function, an initial state, and a \
sequence of data. All variations of ",
 StyleBox["Fold", "Input"],
 "\[LongDash]over asynchronous streams, over on-demand (lazy) streams, over \
tables, lists, arrays\[LongDash]have exactly the same signature as ",
 StyleBox["Fold", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.670433018774361*^9, 3.670433023108251*^9}, {
  3.670518142496415*^9, 3.670518147005398*^9}, {3.703521108648394*^9, 
  3.703521119744053*^9}, {3.762854740100055*^9, 3.762854784514863*^9}, {
  3.762856879508958*^9, 3.762856916403267*^9}, {3.7628570048641543`*^9, 
  3.762857100752841*^9}, {3.924419362157299*^9, 3.924419362172904*^9}, {
  3.9244194446089*^9, 3.9244196368792753`*^9}, {3.9244679103842688`*^9, 
  3.924468063695854*^9}},ExpressionUUID->"ffa4b7c9-3950-48b1-9915-\
531b1df13028"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "cume", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cume", "[", 
    RowBox[{"n_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"n", "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Fold", "[", 
  RowBox[{"cume", ",", "0", ",", "zs"}], "]"}]}], "Input",
 CellChangeTimes->{{3.670362262676239*^9, 3.670362403112179*^9}, {
  3.670362491967467*^9, 3.670362500108472*^9}, {3.670382335403171*^9, 
  3.670382392568015*^9}, {3.670431573529311*^9, 3.67043161176023*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"9e959217-11b5-422a-a847-02da0de6f86c"],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{{3.670362386860121*^9, 3.670362403451788*^9}, 
   3.670362500750139*^9, {3.670382380701834*^9, 3.670382393646204*^9}, {
   3.6704316052181597`*^9, 3.670431612698892*^9}, 3.6704316598530817`*^9, 
   3.670434305008449*^9, 3.670510828814732*^9, 3.670511021991407*^9, 
   3.6705156383222437`*^9, 3.670532554390843*^9, 3.670533641128706*^9, 
   3.670534990204936*^9, 3.670545241683096*^9, 3.670568332167439*^9, 
   3.670603468588195*^9, 3.670775509237636*^9, 3.6708648250455*^9, 
   3.670872521140728*^9, 3.670956957876609*^9, 3.6709746721071672`*^9, 
   3.670979363897111*^9, 3.671033133935173*^9, 3.671033181090272*^9, 
   3.671033248379916*^9, 3.671039609902426*^9, 3.671042461077897*^9, 
   3.671044042463487*^9, 3.671065160885859*^9, 3.6710834272121267`*^9, 
   3.671208538711453*^9, 3.671213360851935*^9, 3.67121764635679*^9, 
   3.671218311528186*^9, 3.671380182639037*^9, 3.671467523124352*^9, 
   3.67149460139983*^9, 3.671551662821696*^9, 3.6715632502793937`*^9, 
   3.671587605321035*^9, 3.671654764447816*^9, 3.671663238240183*^9, 
   3.671665733516741*^9, 3.671666441628186*^9, 3.671887645821486*^9, 
   3.671939612530803*^9, 3.671974959421951*^9, 3.672154916974106*^9, 
   3.67222181089568*^9, 3.672306126242933*^9, 3.672308486802026*^9, 
   3.672311740498646*^9, 3.672311893426462*^9, 3.672476728306038*^9, 
   3.672833720310568*^9, 3.672911581556663*^9, 3.673548773060635*^9, 
   3.676478494593018*^9, 3.703191966360875*^9, 3.703238552830134*^9, 
   3.703238745418429*^9, 3.703247642341167*^9, 3.7035209774920697`*^9, 
   3.70352111141931*^9, 3.703626685236958*^9, 3.70639150619586*^9, 
   3.762854892146904*^9, 3.76311091518804*^9, 3.763122795361785*^9, 
   3.924419656908058*^9, {3.924468771760252*^9, 3.924468789953239*^9}, 
   3.924471375790019*^9, 3.924505781087735*^9, 3.9245059765279512`*^9, 
   3.924506614138597*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"cc365850-9c06-4d89-8362-684bf6cdc71c"]
}, Open  ]],

Cell[TextData[{
 "The first argument of the accumulator function, ",
 StyleBox["cume", "Input"],
 ", is a ",
 StyleBox["circulating state",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", kept externally to the function. Above, the circulating state is ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "82a49a9b-3db2-45a8-9ee9-47ad3e72f5c9"],
 ". The caller must feed in two arguments to ",
 StyleBox["cume", "Input"],
 ": the ",
 StyleBox["prior",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " value ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "72a1a6cf-3e74-4bba-8ecd-19e149c6ff19"],
 " of the circulating state and a new observation ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "fdcf5742-02b2-4d65-b5bc-f26bfe6f02fa"],
 ". The caller receives the ",
 StyleBox["posterior",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " value of the state, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "+", "1"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "5cb215fb-0232-494a-b90a-a3c4a01a8235"],
 "."
}], "Text",
 CellChangeTimes->{{3.92442012286875*^9, 3.924420317276824*^9}, {
  3.9244203481831837`*^9, 3.924420375230352*^9}, {3.924468098994392*^9, 
  3.924468173711217*^9}},ExpressionUUID->"c23474ac-c5ba-41da-aca1-\
c695b816f0af"],

Cell[TextData[{
 "To see all intermediate results, use ",
 StyleBox["FoldList", "Code"],
 ":"
}], "Text",
 CellChangeTimes->{{3.7628569426216598`*^9, 
  3.7628569591755505`*^9}},ExpressionUUID->"d6246666-3a29-4921-b4a6-\
4ec5a48b9400"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FoldList", "[", 
  RowBox[{"cume", ",", "0", ",", "zs"}], "]"}]], "Input",
 CellChangeTimes->{{3.7628569869815464`*^9, 3.7628569942567587`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"d6d3e7be-b5de-4b0e-a374-7d4fc03e94b1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", 
   ",", "8", ",", "9", ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{
  3.762856995336447*^9, 3.763110917204025*^9, 3.7631227969459233`*^9, 
   3.924419666092806*^9, {3.9244687717655168`*^9, 3.924468789958175*^9}, 
   3.924471375795555*^9, 3.924505781091956*^9, 3.924505976593852*^9, 
   3.9245066141422167`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"cc88b010-4c0c-44b5-800f-905624ac603f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["LEFT FOLD", "Subsection",
 CellChangeTimes->{{3.762855000301767*^9, 
  3.7628550046819477`*^9}},ExpressionUUID->"d3a92e89-9116-4d74-a1d5-\
328750d8997d"],

Cell[TextData[{
 "Wolfram\[CloseCurlyQuote]s documentation for ",
 StyleBox["Fold", "Input"],
 " includes an example that explains this operator symbolically. The \
following should be self-explanatory:"
}], "Text",
 CellChangeTimes->{{3.703627654696693*^9, 3.703627655361246*^9}, {
  3.703627730638696*^9, 3.703627778906796*^9}, {3.92446820490478*^9, 
  3.9244682463047323`*^9}},ExpressionUUID->"7df49337-3474-47de-8329-\
fe349fd58939"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fold", "[", 
  RowBox[{"f", ",", "z", ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.703627846568565*^9},
 CellLabel->"In[6]:=",
 CellID->12834,ExpressionUUID->"d965aa6c-3c1f-407c-99bd-dc38275b68d1"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"z", ",", "a"}], "]"}], ",", "b"}], "]"}], ",", "c"}], "]"}], 
   ",", "d"}], "]"}]], "Output",
 CellChangeTimes->{
  3.703627785817709*^9, 3.703627847322299*^9, 3.706391509227429*^9, 
   3.706391558600135*^9, 3.7628548959191914`*^9, 3.763110919065629*^9, 
   3.7631227986549664`*^9, 3.924419680465679*^9, {3.924468771779726*^9, 
   3.924468789974491*^9}, 3.924471375810998*^9, 3.924505781106917*^9, 
   3.924505976630115*^9, 3.9245066141514893`*^9},
 ImageSize->{167, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[6]=",ExpressionUUID->"666a56c9-70a3-417c-9b5b-ea185e2b576d"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Fold", "Input"],
 " first computes ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "[", 
    RowBox[{"z", ",", "a"}], "]"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "0b6e7b89-386b-4072-b71f-30c85cb3d9b3"],
 ", then feeds the result\[LongDash]the posterior value of the circulating \
state\[LongDash]back into ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "4397797f-78bb-4557-949e-901cb99c2d59"],
 ", computing ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"z", ",", "a"}], "]"}], ",", "b"}], "]"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "0ecd7888-8f10-45c1-b34a-5d12d67cf4a0"],
 ", and so on. More concisely, ",
 StyleBox["Fold", "Input"],
 " iteratively applies the binary function ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],ExpressionUUID->
  "581dc6b4-6c6f-4278-8965-0efbd45c391c"],
 " to the sequence ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], TraditionalForm]],
  ExpressionUUID->"e031a03f-0b27-4cbd-b71c-a8e7bbe9812b"],
 ". That\[CloseCurlyQuote]s why we say ",
 StyleBox["Fold decouples calculation from iteration",
  FontSlant->"Italic"],
 ". ",
 StyleBox["Fold", "Input"],
 " places no restriction on its accumulator-function argument ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],ExpressionUUID->
  "0ff9a00e-93a3-4cdc-934b-c698c694600c"],
 " other than that it accept an argument of the type ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["T", "z"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "67b81c5c-fa4a-477e-bfc0-3fa099658070"],
 " of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],ExpressionUUID->
  "9e01e919-f2cf-4a0d-b6b8-2e2cfa32180d"],
 " in its first position, an argument of the type ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["T", "a"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "e3cd03cd-e4cb-4e49-a99d-a5947ff34844"],
 " of any of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", ",", "b", ",", "c", ",", "d"}], TraditionalForm]],
  ExpressionUUID->"398020e0-da04-4333-a6fd-2a8db0b2ae38"],
 ", in its second position, and produces a result of type ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["T", "a"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "bb3a7449-fc1a-42a9-8533-66b1a69e5970"],
 "."
}], "Text",
 CellChangeTimes->{{3.703627897564636*^9, 3.7036281013370333`*^9}, {
  3.703628214280526*^9, 3.703628271644765*^9}, {3.706391520184956*^9, 
  3.7063915501904993`*^9}, {3.762854898234641*^9, 3.762854900241898*^9}, {
  3.924419701247325*^9, 3.924419705367957*^9}, {3.924422494352737*^9, 
  3.924422537026087*^9}, {3.924422662922558*^9, 3.9244227332992277`*^9}, {
  3.924422781899427*^9, 3.9244228588494873`*^9}, {3.9244682892136917`*^9, 
  3.924468317386553*^9}},ExpressionUUID->"6ef0c628-82c2-4845-a672-\
48d64ad3bf9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["RIGHT FOLD", "Subsection",
 CellChangeTimes->{{3.7628550272069793`*^9, 
  3.762855028796365*^9}},ExpressionUUID->"87b099e7-f88e-43d8-9198-\
d0803ab83131"],

Cell["\<\
It is important to know that there is a dual: the right fold. Left and Right \
folds can behave differently on lazy lists, so be on the lookout! We use only \
left fold in this document.\
\>", "Text",
 CellChangeTimes->{{3.703628283798584*^9, 3.7036283431829658`*^9}, {
  3.7628549389314346`*^9, 3.762854960735669*^9}, {3.7628550365615587`*^9, 
  3.762855119152248*^9}, {3.7631109324629526`*^9, 3.763110941310856*^9}, {
  3.924419777506917*^9, 3.924419798985585*^9}, {3.924468340891473*^9, 
  3.92446836952428*^9}, {3.9244684058268147`*^9, 
  3.9244684363448763`*^9}},ExpressionUUID->"8ec0345b-1119-4b86-9503-\
9afb895b2d3c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fold", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "\[Function]", 
    RowBox[{"f", "[", 
     RowBox[{"y", ",", "x"}], "]"}]}], ",", "z", ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7036277976045537`*^9, 3.703627798479802*^9}, {
   3.703627828938348*^9, 3.703627875074729*^9}, {3.703628309261767*^9, 
   3.703628311575758*^9}, 3.924419918713853*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"b08724dc-9031-4525-b7f6-4004e64e4bc5"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"d", ",", 
   RowBox[{"f", "[", 
    RowBox[{"c", ",", 
     RowBox[{"f", "[", 
      RowBox[{"b", ",", 
       RowBox[{"f", "[", 
        RowBox[{"a", ",", "z"}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.703627875445041*^9, 3.703628312329408*^9, 3.7063915561834393`*^9, {
   3.7631109228499*^9, 3.763110944530025*^9}, 3.7631228014144764`*^9, 
   3.924419924430501*^9, {3.9244687717942753`*^9, 3.924468789980128*^9}, 
   3.924471375815954*^9, 3.924505781111781*^9, 3.924505976634643*^9, 
   3.924506614155038*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"b04c60e1-2e37-45f5-b2ba-b1b8d65e7586"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Running Mean", "Chapter",
 CellChangeTimes->{{3.670382281644032*^9, 3.6703822840358477`*^9}, {
  3.703417921227977*^9, 
  3.703417921748693*^9}},ExpressionUUID->"2e907cf8-02e7-4eb1-97b9-\
8045ac871b0c"],

Cell[TextData[{
 "Write ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "379bb54f-6d61-4e39-9168-d6671b6574a1"],
 " for the mean-so-far, and write a new accumulator function that computes \
the running mean. Its circulating state includes the running mean ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "638dee21-6102-4fb3-9fc0-c28032f55ef5"],
 ", the running count ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "40cbe654-a80e-4da0-be1d-42c2fe399b23"],
 ", and the running ",
 StyleBox["sum",
  FontSlant->"Italic"],
 ". This new accumulator function computes the new values of all three state \
variables in the obvious way. Note that all three state variables are \
necessary to track the running mean calculated this way. We relieve that \
situation shortly below."
}], "Text",
 CellChangeTimes->{{3.670431465148507*^9, 3.67043148791577*^9}, {
   3.670518308010725*^9, 3.670518363776095*^9}, 3.6714946268792133`*^9, {
   3.7032571068989577`*^9, 3.70325710732666*^9}, {3.762856628754756*^9, 
   3.762856678357593*^9}, {3.924423258815722*^9, 3.924423428307579*^9}, {
   3.92446846781028*^9, 
   3.9244684881920958`*^9}},ExpressionUUID->"487e0667-44b9-4f04-8636-\
162ffad41841"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "cume", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cume", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "n_", ",", "sum_"}], "}"}], ",", "z_"}], "]"}], ":=",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"sum", "+", "z"}], 
      RowBox[{"n", "+", "1"}]], ",", 
     RowBox[{"n", "+", "1"}], ",", 
     RowBox[{"sum", "+", "z"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Fold", "[", 
  RowBox[{"cume", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "zs"}], "]"}]}], "Input",
 CellChangeTimes->{{3.670362262676239*^9, 3.670362403112179*^9}, {
   3.670362491967467*^9, 3.670362500108472*^9}, {3.670382335403171*^9, 
   3.670382392568015*^9}, {3.67043165037262*^9, 3.670431652756393*^9}, 
   3.671494635109106*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"d347849b-80e4-4d80-8107-7605d03bf929"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.27947242`"}], ",", "10", ",", 
   RowBox[{"-", "2.7947242`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.670431662415084*^9, 3.670434305074437*^9, 3.67051082886255*^9, 
   3.670511022041464*^9, 3.6705156383889513`*^9, 3.670532554456192*^9, 
   3.6705336411739407`*^9, 3.670534990271755*^9, 3.67054524174933*^9, 
   3.670568332227562*^9, 3.670603483892761*^9, 3.6707755092871304`*^9, 
   3.670864839781107*^9, 3.670872521194315*^9, 3.670956957925531*^9, 
   3.670974672156477*^9, 3.670979363952009*^9, 3.671033133989717*^9, 
   3.671033181144979*^9, 3.671033258849012*^9, 3.671039609961514*^9, 
   3.671042461126316*^9, 3.671044042496672*^9, 3.671065160943606*^9, 
   3.671083427288986*^9, 3.67120853876979*^9, 3.671213360901175*^9, 
   3.67121764642141*^9, 3.6712183115910378`*^9, 3.671380182692813*^9, 
   3.671467523179121*^9, 3.671494637345128*^9, 3.671551662879143*^9, 
   3.671563250369149*^9, 3.671587605369925*^9, 3.671654764499135*^9, 
   3.671663238288975*^9, 3.6716657335690727`*^9, 3.6716664416776114`*^9, 
   3.671887645883757*^9, 3.671939612591919*^9, 3.671974959482016*^9, 
   3.67215491703415*^9, 3.67222181095736*^9, 3.672306126267756*^9, 
   3.672308486865193*^9, 3.672311740548202*^9, 3.672311893450614*^9, 
   3.672476728374115*^9, 3.672833720334415*^9, 3.67291158160657*^9, 
   3.673548773086753*^9, 3.6764784946474667`*^9, 3.7031919932011847`*^9, 
   3.703238562244113*^9, 3.7032387454674277`*^9, 3.703247642390749*^9, 
   3.703626685283337*^9, 3.706391595494244*^9, 3.7628571431551175`*^9, 
   3.763110947655964*^9, 3.763122804772448*^9, 3.924423111748683*^9, {
   3.92446877180058*^9, 3.924468789995075*^9}, 3.924471375831674*^9, 
   3.9245057811262417`*^9, 3.924505976644505*^9, 3.924506614162052*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"a93caede-585f-4963-a091-9d7d86eb2edd"]
}, Open  ]],

Cell[TextData[{
 "Check against ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " built-in."
}], "Text",
 CellChangeTimes->{{3.670431675634911*^9, 
  3.670431683354504*^9}},ExpressionUUID->"68ed2278-ce54-4449-916c-\
7228ebecc711"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", "zs", "]"}]], "Input",
 CellChangeTimes->{{3.67038269040097*^9, 3.67038269418116*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"4f6889ba-e985-4f05-9d17-8e395df44066"],

Cell[BoxData[
 RowBox[{"-", "0.27947242`"}]], "Output",
 CellChangeTimes->{
  3.670382694530546*^9, 3.670431671612389*^9, 3.670434305123046*^9, 
   3.670510828913335*^9, 3.6705110220913897`*^9, 3.670515638438052*^9, 
   3.670532554523333*^9, 3.670533641228739*^9, 3.6705349903372498`*^9, 
   3.6705452418120737`*^9, 3.6705683322778187`*^9, 3.670603491757264*^9, 
   3.670775509340996*^9, 3.670864839872327*^9, 3.6708725212419643`*^9, 
   3.670956957976015*^9, 3.670974672207356*^9, 3.670979364000894*^9, 
   3.6710331340393667`*^9, 3.671033181194551*^9, 3.671033258939073*^9, 
   3.671039610024391*^9, 3.6710424611766167`*^9, 3.671044042556524*^9, 
   3.6710651609924498`*^9, 3.671083427371612*^9, 3.6712085388181067`*^9, 
   3.671213360947366*^9, 3.6712176464875193`*^9, 3.671218311640046*^9, 
   3.671380182743807*^9, 3.671467523242084*^9, 3.671494642744568*^9, 
   3.671551662928087*^9, 3.671563250449213*^9, 3.671587605418898*^9, 
   3.671654764546013*^9, 3.671663238338449*^9, 3.671665733618338*^9, 
   3.671666441725504*^9, 3.671887645932771*^9, 3.6719396126595182`*^9, 
   3.671974959530513*^9, 3.672154917084886*^9, 3.672221811006852*^9, 
   3.672306126318935*^9, 3.672308486914485*^9, 3.672311740597318*^9, 
   3.672311893509335*^9, 3.672476728440216*^9, 3.67283372037747*^9, 
   3.6729115816559*^9, 3.673548773148225*^9, 3.676478494696026*^9, 
   3.703238608087017*^9, 3.703238745517593*^9, 3.703247642481237*^9, 
   3.7036266853331428`*^9, 3.706391601552067*^9, 3.76311094942712*^9, 
   3.763122806138283*^9, 3.9244231146740627`*^9, {3.924468771814051*^9, 
   3.924468789998789*^9}, 3.924471375838191*^9, 3.9245057811326118`*^9, 
   3.924505976647989*^9, 3.924506614164833*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"f450f52e-4472-4b6a-b3d8-738039e94908"]
}, Open  ]],

Cell["\<\
Notice how the mean stabilizes as data accumulate, here over a longer and \
random sample:\
\>", "Text",
 CellChangeTimes->{{3.762857156081581*^9, 3.762857170812067*^9}, {
  3.762857401452814*^9, 3.762857418179927*^9}, {3.924423204604253*^9, 
  3.924423209718257*^9}, {3.924468513138187*^9, 
  3.9244685145195*^9}},ExpressionUUID->"8ffb72d3-dbb2-4eb0-bb55-5e97fa788022"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
    "&"}], "/@", 
   RowBox[{"FoldList", "[", 
    RowBox[{"cume", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", "]"}], ",", "10000"}], "]"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.762857172632971*^9, 3.762857215053729*^9}, {
   3.762857258492292*^9, 3.76285725938229*^9}, {3.7628573040402527`*^9, 
   3.7628573914448557`*^9}, 3.7628574218163824`*^9, {3.924423084640047*^9, 
   3.924423121730132*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"c0bbb199-ec16-4eb8-a32e-7a3604937ac4"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[2], 
      StyleBox[{
        LineBox[{{1., 0.}, {1.014520858478094, 0.024495187660382146`}}], 
        LineBox[{{15.110163378380461`, -0.01641161101997564}, {
         16., -0.0029843018755220385`}, {16.780382639705667`, 
         0.024495187660382146`}}], 
        LineBox[{{19.968289281993815`, 0.024495187660382146`}, {20., 
         0.021564409640505582`}, {20.1648762403342, 0.024495187660382146`}}], 
        LineBox[{{21.358721085620544`, 0.024495187660382146`}, {
         22., -0.0020426629437883086`}, {23., 0.0198429236295616}, {
         23.79266950827018, -0.01641161101997564}}], 
        LineBox[{{25.52472590355486, 0.024495187660382146`}, {26., 
         0.0014803513920023637`}, {27., 0.008275728056574247}, {28., 
         0.016838947691791274`}, {28.13875306921605, 0.024495187660382146`}}],
         LineBox[{{30.950586718446914`, 0.024495187660382146`}, {31., 
         0.02254596762978318}, {32., -0.0012550464301356885`}, {
         32.70095329971691, 0.024495187660382146`}}], 
        LineBox[{{34.673635831807246`, 0.024495187660382146`}, {35., 
         0.00956842577803914}, {35.55841385068202, -0.01641161101997564}}], 
        LineBox[{{47.54813185407351, -0.01641161101997564}, {48., 
         0.005400314120802287}, {48.57508488733256, -0.01641161101997564}}], 
        LineBox[{{49.42267184295004, -0.01641161101997564}, {50., 
         0.005601612472996889}, {51., 0.0007784611941787511}, {52., 
         0.00548863329500185}, {53., 0.009553344927774708}, {
         53.9765548666106, -0.01641161101997564}}], 
        LineBox[{{54.02542011702231, -0.01641161101997564}, {55., 
         0.007487599040239765}, {56., 0.013479117775701792`}, {
         56.764069788926015`, 0.024495187660382146`}}], 
        LineBox[{{61.21573109248921, 0.024495187660382146`}, {62., 
         0.005760966374328492}, {63., 0.019970106912478112`}, {64., 
         0.0022692154649319412`}, {65., -0.003039567931806891}, {
         66., -0.01519693103943239}, {67., -0.004611633866058191}, {
         67.51596670854234, -0.01641161101997564}}], 
        LineBox[{{84.00299972033167, -0.01641161101997564}, {85., 
         0.0071204787532308704`}, {86., 0.010126571685312483`}, {87., 
         0.014786305907420182`}, {88., 0.000373110257633233}, {
         89., -0.0009047917572636881}, {90., -0.00868582544556653}, {91., 
         0.001998186682500733}, {92., 0.02019403541090505}, {93., 
         0.012830393472714153`}, {94., -0.006254909281102361}, {95., 
         0.008601500152884531}, {96., 0.022664346428030866`}, {
         96.09356359567265, 0.024495187660382146`}}], 
        LineBox[{{515.6882765613503, 0.024495187660382146`}, {516., 
         0.023676151600687863`}, {516.3668569939858, 0.024495187660382146`}}],
         LineBox[{{519.8536070726684, 0.024495187660382146`}, {520., 
         0.023928530033706104`}, {520.4450834619917, 0.024495187660382146`}}],
         LineBox[{{536.6451189500207, 0.024495187660382146`}, {537., 
         0.023700559493736274`}, {537.1781403555344, 0.024495187660382146`}}],
         LineBox[{{1057.5830668257668`, 0.024495187660382146`}, {1058., 
         0.02410939492212678}, {1059., 0.02426152183786589}, {1060., 
         0.024237781966276458`}, {1061., 0.02319359004576142}, {1062., 
         0.022859354588217938`}, {1063., 0.023444345969173778`}, {1064., 
         0.02448860698689813}, {1064.0031990266868`, 0.024495187660382146`}}],
         LineBox[CompressedData["
1:eJw8nXtcTc/3/6MkSULuUVIkISRF8kJIuklyCyEkIRRRklSKUKdTnWvnThFC
FO8kCSEkIZV7CCEphfDb389Z++cfj+djzaxZs2atmdmzz56GrNrstaajhobG
O1MNjf/73yzKdphHThKqucqJTr35UzX+719uErQHxt5a8jdNzflJGFb+aHbC
/nQ1FzBcvMFykoTkRUmYKh45S28NyUuSkHVyY6HJBpKXJuGx0GLnYlvisiQY
+bUZdg1PVXN5Eo6sLDi8MY64Mgmr5/1IdehNXJWEVxcNN/vnENcmwafuZ+JX
KVfNL5MwxDZYz6ApRc11SUgI/xw6cy5HzfVJsDjtYzEyLVnNDUnY7zn5RJ9L
xI1J2KNVMMI6j7g5Ca81vj5uSUhSc1sSPmQv36H8eljN7UnoU9nn9eXeJNdI
hnb52OrhY0iulQxdhd+R18tIrpOMM4rOQeu2Euslg3+1e3LuemKDZKwqF09b
40j1DZPBeT0nNPr8ITX3S0axfc/qwJ1H1GyUjC31vT65HaX6JsngZsx2LltL
bJaMGa89X/m1J6rZIhlJLUn+2gak3yoZQdfu/3t2kPRbM/wwSX/XlANqtklG
ZsLXmrWqeDXbJSOi8/dim2lxanZIhvuqimN1VfvVjGTY8p9v3mFKcqdk9Mq7
9aJwXqyanZOxu+rEyReO0Wp2TcbJ51XF1zxj1OyZDP3sLegr2Kdm72Q0vvoY
6lJN8kXJmPLEucMqJenzTcZdE0enjdnEfsmY0NEgf7uU6vsno2LP176ztpM8
IBktOu/6Fy0ge4OSIbj+OF9lQf0LTkb/Qu+lvmtJHpKMuVu7LNt7I0HNYclo
T5v5w3sglY9Ihnw9R9SHS+WjkvHyo9X0FTwqH5OM+EGNTS8MyJ/xyehcWbju
7qODak5kxm9bq0eHTlQ+KRnzVt3fbVhJzE2G5Lt3qJGMxo+XjA+tkSeEgcSi
ZPSo39byeQjFgzQZqhFZHfijSK5MRlfe6KkxDtReZjLsh2w8fUFA9mQnI+vT
ln2u+6k/OckYt3xmL+lx8lduMkwUA3s1hpI/85l43rOyT70hjW9BMr7n+D0r
cqXyRcmYn5qV2vvfXsp/pj+jOl7bunAP5X8yHNz7dzS9spPyn2kvsXK48csw
yv9k1G7zkBcXh1D+J+P+kC5dx4iJq5IR29k24Z7nFsr/ZOzLle9/kxhK+Z+M
X+Wn+r4VUvm6ZFy9/GJQ/2PE9cz4v+HbFw4OpvxPxpg/Nae4I4Io/5MxzdFW
0v0ryZuT8bU6efyoNWsp/5Pxx8Dco9CUuD0ZLjMfi57W+VP+c6B3u8fVV9Nc
Kf85KJeled0+N4HynwPO8PEHDq6fd+V/rMfBhL6JbreHDKH85yBw3PbYy5U9
KP85+OFbfUUvaR7lPwfSsmb5Lisbyn8O7Cd5G6aZO6r1mXBwZNAVh1mZsyn/
Odi3Lbfs3KeFlP8cFB8tfHj8wHLKfw7MX936tnrGEsp/Du4/dwiYFD2N8p+D
0m3Sz1+TxlH+cxDz/smntkR3yn8OOv19MePRt4Xq9sHBPPf1vBe689XsxEGP
jAuHjHNXq9mZg3VflbXLW1ao2ZWDhX18J2fL16nZk4M5/aflJzwOULM3B4e7
vAg7vnyZmhdxMG5d0jSPkyvV7MuB0/KnCxsc1qjZj4MBsZscZm4OVLM/B0O5
druqv2xQcwAHAc9+f3V8tl7NQRwMi7ke3nP5RjUHc5Dy1+rYgqXBag7hYNdh
jcD7FVvVHMZB93Voz0/epuYIxn7/A78Gft6u5igOEs9s7D7dboeaYzgwbjji
ZnKSOJ6DKT3fv2iIDlVzIgf9Uw7onToYouYkDj5fuNtphma4mrkcvNGX+Lzv
tEvNPA5GrplnvHh/mJpFHLhpehQkHo9Qs5QD09SHM8cWRapZyYHfyovHqjqS
vkwO0mwvvxNnU/1sDl52HHxoiVGUmnM4ONPj3MYh3UhfLgdla2Sfyj1IXz4H
u8esmy36s1vNBRy03dkT/Ttpr5qLmPixHXF5XzhxCQex5QHfWlZHq7mUgxGG
PlzlwH1qLuOgA8dy7epMkpdzUCKe1CaaQ/ZUcrAVP+q61lD7VRzU7mq9WJlM
XMtB3BP3WPsQ4pcc5FYMPe9zlvpbx8Hslvt3Xn8leT0HJpO2eS4/QP5s4KDv
whcnhrwlbuRg1MV/y3P0qP/NjL3Det6rOULcxsH1D5si79WRvnYOlg+/btIj
huzVSMGbsZ3jk08Sa6Wg+7i4iBIRlddJwfrz50yf1ZB/9FIQI3Ncev4glTdI
gXxAy57dp6m8YQrEsYfG3l5E7fdLwV236tUtj4iNUhB+pnTA+cvUX5MUXM6w
0zsXSvFlloK9NX1KFmkSW6Qg2EEzXi9ns5qtUvDQquvqvfuIrVMgbDKTJ28l
tklBjYu9fzdXim+7FFyY8ujliwU71eyQgmk5bq1nbpB+pODX3mKt34eInRj9
K46PnzKZ6junIOHm3MD4zhTvrinY4Wn77GM42e+ZAqPeW6OqV1N8eadA2z5z
xoRIam9RCla9O385cyb13zcFo/xe2FY3Unt+KRi2uC7cUkD55p+CSGuNg/zV
Wyj/U3BiYX3L0VnUv6AUNB0fws2Ko3wPZlhXp+TyJpKHpODP9zWT9+4n+8MY
/Tn+R7n/SH9ECvI37pyzYwFxVAra3gWWfl1P9sSkwGX+jWHbPYjjU+B9aphu
cQub/yn4/FlPf/dKNv9TgItOghuBxNwUNJY57FvVg+znpaBLjl6MTySb/4w/
PpdxpvWk+UiagqI+TSaqUaRfmYLOd9zt56yl+SszBb6bE+wM75G+7BTon2p9
fuEItZeTAuee3fOa2HjJZfx1uPX1HRvqX34KVq+q2HvoBrVfkAKL1B2r+3CJ
i1Jw7rvgtuEbGs+SFJh6euqF1xKXMuy+e86KhXso/1Og27XwYtdtFP/lKbBd
4/G7tgOb/yno/z77rcc2Gu+qFPA0llpVtpE9tSnY//GS8YqdpP8lMx61GtGa
J2i86lJgXDwt1Hcpla9nyg/tMuXaG7K3IQXjXG37ms0gbkzB1q6WncLbiZtT
MH770LI3UtLflgL/5Mr4mCyKz/YUNPTZ16m3DeWzBhfbH5W6+0az+c/F8Ypf
Gt01Sa7DRezzw+bnj1J+63GRvbenxvRhpM+Ai7sLQ5Q9PlB7hlxU9pzVOaSN
yvfj4lTj+OfKc8RGXHTQWvuocim1Z8LFj2tVRZb9aT4z4yLw9b0Vux+Q/yy4
uDSzacC3TGrPiotvJVZv68U0HtZcxPys31VRSe3bcPH339HV7oPIH3Zc6O3c
lNVrNbEDF6UHtjpu2UjxBS7aB5Qsmsql9deJC9Maf2H4lSDKfy6urBua+Po0
rd+uXITL9ox44LKE8p+L4ptrZr9oW0r5z8XLz5Z6/GezKP+56L3szbxHExZR
/nNxZvaa0CiuC+U/098vx84Hb6X9hz8XhcdeW0eco/YCuOi+uZty1ArSH8TF
gsnt7uNbfCn/uRg18lrzso+0Pwjhom75zaZK0P4kjAuHn/JNA1/QfiOCC4Nf
xdcslLS/iWLsCXAfdDl3FeU/F5+nBiiiRxDHczFGFvnE/gyVT+SiwHmd8Qp3
sjeJi0xdcZ2FmPZHXC5El0+bHursQ/nPxekPKx+91plM+c/F/HkbL+ye7zT1
fyzl4tkrDb/DP4mVXFzrJ8wYkzVVzZlcuFauXJtUukjN2Vx0Tnv8990bWzXn
cKGbUCgTqSaqOZeLE63FujrrZ6k5n4uaZ6Fc5a5Vai7gYrBV1dBSn/lqLuJi
nXnDrPDh0yj/mfidqe+dtmQm5T8XfyYOdgo9DXX5Mi5ePTDcPDWmn5rLuRg9
7FCPAeGmlP9M/3pst45PHEr5z8Vq/6Q3ocakv5aLc2PMyw3G0f70JRctU+d8
y/pF9tRxcf3Jhc63Qmm/Ws+F1fwT/w4dmqvmBi48shtPaq7xUnMjF5L1yx9t
VdlT/nNx9tpSfsxGa7W8jYteZcbfpo585/g/bufiv+Ntwdf6eVH+p6Lv0Son
LQ0/yv9UdPYeE3PoAbFOKsLPPeAPnk/xqJeKCK0DI6O3Un4YpOLreoO3yiDa
rxqm4sfdSWmR+jRf90uF06qeYwcupPXKKBUfDc99eMEjNklF+4NCT2E5xadZ
Kg4svmw7Wo/i2SIVdoeVC1depv21VSqWTKjc67SB4tE6FSuXRecui6V8sElF
j7kmoqCtyyn/UzF6S+JeDz7lq0MqzgYJmreG0fMMUmE/c3l1nAf5wykVOrPz
HoaC8tc5FfcfzNqztMNUyv9U6Jsfj+8VNJbyPxWHG33EvSJGU/6n4r8Ty8v6
jKB8WJSKFv6LO7+tF1D+p+J9a9cvUWe9Kf9T4Sx78vLkOLLPPxV3nL6dOlNB
/ghIhYtHxQEvT5qfglIhNuqdXaGi/A5OhTnHzWuc4VrK/1Rcr95uecCX8jMs
FaGxZ5fvX2mpjoeIVHjs392p6zN6fopKhefKWXmf5/uqOSYVt8Yf/zH7J+VL
fCpSXq3ZYCtYqebEVBwpHp6X/G6pmpNSMf/B35FhfGJuKuYuHjh9ny09X/JS
cazXKMfRwzeoWZSKToH/eYj/rqf8T0XwvsgK9yv0/KpMxbRjVgdsZmym/Gfi
6+BWg1MhJM9ORe/lh6KcehHnpGKb4bj3plvo+To3FTtstEMuLttO+Z+KhKMf
Knvb76L8T4XpDWfTp6Pp+booFRaj5xdPf07P4yWpMNnhtq3pyQ41lzL5UXV9
78SvVL6MideunTo8OEjtl6fi1bp705wDN6q5MhWLtSYJxcsC1VyVimHb33PH
6GxSc20q0iVtI2vM11H+pzLPdx+96paTf+pScfWa7oycM+S/esYf2tOlpyvW
UP6n4sLvrLHbO9F4Naai16zi71t70Pg0p+LfqzHRX+5S+bZUrBBnHfa5TuPd
norzv6fe3nnVU80aaShfeMg1qN9iNWul4YNbkAQDqL5OGn52nmhoWUr19dLQ
0mmAsdyA4sMgDROmm5206rxCzYZpGFeptLU4Rfb3S8P9EScnudqQPqM07Pvx
wt7akfprkgbudpvZW7W2qtksDe+WLP3uJ6PxtEhDq97dx6NWkP+t0hBzxSW+
+QGNr3UaTNb+y/u5hMbXJg3rt2zemlxIbJeGMdk8z/exNJ4OaajMnHzi7TNi
pGHF1EcLvX7QeY5TGjJ9QgpGGoar2TkNmsalVpEWFB+uaXB/x337iUvlPdNw
edeUMLv1VN47DUXyNTFD6+m8aFEajhdZlZfKd6vZNw1G5xV9nWMj1OyXhti/
0Q67v0Wp2T8NQQE9plcHEAekofRzyZbFS4mD0pB9+syuBSZ0vhichnklw4bs
jKXzrhCm/bGjRyd9oPOssDR0Mh3x4ZQvySPSsCrS+2jxIzrPjEpD58KXBaqR
JI9Jw4Ok05Vh70genwb+bkmPmb2ovcQ0aC+LzpxcR5yUhvSNEw/+fkv1uWkw
3dTfViGm8zVeGjTc7O4d/EjnjaI0LJYsWGQ2hs7jpGnopX8XR2tInzIN0V2j
eOVnqHxmGqIkFl1tr9N5X3YaZju1fHsZR+eBOWlIqG/y57HnkblpiEza0V2L
T/L8NBzu3GGdjEP6Cph461V2rucA4qI0cDZ4DZL8I/0laQg2Wl3YaSjpK2Xy
o9/5xgRj4rI0NFrye/eQEpenQX5F/+VABZ1fVjL6KoMknYbS+XRVGuZoLV13
WYO4Ng33WlaEh3PpfPNlGr5ZRA9sn0L169JgfLfF0nM2cX0a3k8p2zapnOo3
pGG1gzV3y2Q6D29Mw0KPb42BX6l8cxrmLz05qv8bkrelYfJ5jy3BeiRvT8PD
5Xs/mR4i1kiH5X/njA+PJ3u00nGz09Pi9QvIfzrpiL57RqsqgFgvHdvyfu14
yfrXIB1dL25xzUslfxqmQzbrRvukZhrPfulYOV3a79QkikejdCQdsfUe25fY
JB28sKZBz89SPpilY8xlj9ZfXSjeLdKRMfWT9VEQW6WjrPS4xSUVnc9ap+OP
1fCAf0MjKf/T8Sxm+/drv9n8T8cjP79sPwPS75COcx4RrrO2EyMd/NM7ry96
R+yUjv3D7aRXe1J7zuk4kTzh68wdZK9rOpb83HpPcYrywzMda/1Ov+3cgfrr
nQ7//bV3PpZR/C9Kx8igOjwuoXj3TYfGkdqBOxvY8/90WGfJ3m1pJvZn7Bsx
75bKgPIpIB2dRuUfuWFN8qB07HwfeT54PsmD01E074G+aRXZE5KO+dlNZy1O
sfmfjsf9ijY15rL5z/TH50OEOzu/RDH+7XS9XnM91Y9Jx4LEq98e8ql+fDqk
j/ue+8Kj+onpmGH8uV/6A5InpaOh4ovOdynV56aj/coznegzVJ7H+HP0GHm5
PpUXpQOBu3w7TiSWpoN7bHQHVz6NpzIdtg6y45b9SF9mOt48DbUUhxBnp2NC
6X+fYh+S/hzGXkf7tkdO5N9cZjwFN3ka02g88tPRueLTCX8Z1S9Ih1eoY7fo
eGq/KB3vn09btsaD/FGSjuMXCl1ty4hL06E74auvfDfZV5aOsbqDdLrHUf1y
Jh5nbY0SPyKuZPInz2eLSS61V5WOS3vnnu2yhOytTUfW0HerZvUh+16m47qb
oYXLCxrfunRcXTTpWLf+xPVM/W+9O2lXETekQ7Npg1FwO3FjOgrXOvYuqqf+
N6fjJ+e7t5Ep6W9Lxx7JQCeDWuL2dFQ1v/njsZTqa/CQdSH8UFYcybV4iIng
jFdqklyHh8xrS150iCPW40FhGJZ5tIbaM+AhYu2VsnN3aP405OGMbYpZShbN
B/14aHqyJPCVH8mNeNhj99bixjOSm/Bwe8ivnuvZ91NmPBzr8IIbtofYgoeN
f+wflO4mtuKh4Hfqsv0daP615qElvPjTnN3s+z8eSvMd9N07Edvx4NFzodlk
tn0HHqZc4mQNOUZy8KA7aLLd5SBiJx6erN0bvWUP6XfmQXpTmLrdheZfVx6e
8fuMbl5M86cnDz/mKrpdKif25mHwgJmRO+2o/CLG/hjdmd0aiX152H04tZPt
THr/5ceD2brbnSduJPbn4byzW7t8Br0PDeCh5GH8yGujiIN4kOm0Dun8jTiY
GZ/d2zjm34lDeLj6fLxtaDq9Dw7jocdrzUVpA+l9cgQPSTaC0vsLiaOY8ejQ
UZylSRzDQ5fm/uP3su+f43lo7jb86EcQJzL1Q0MGW9wn/Uk8VC99fE7zOzGX
h+ykgsVLXxHzeKjMD/CaoEH1RYy/+q4qWzeD5FKmvZ09/w7hkv1Kxt5DX953
cCJ5Jg+BsWPPypqIs3lwuWk9udKY3pfn8DAp8+OZ6lTiXB4szQfNmDqDOJ+H
MYOSuhgPofftBTycNPXJmahB7+OLeBgq0AmYWELyEh42XfggcV5GXMpDQuml
jc2exGU8eH0fcrZjJ9JfzoPxzzsr/R2IK3nI2WsctsGQuIqHEZW97ri6Edfy
YFva5r9kMvFLHp7nPnwZ8Yh9/8/DhNyHHJcv1F49D6ah32f3Ye1tYOKz7veE
ce1UvpHJV+17N/ZpEzcz9i3RlHS8T/5uY+Lfw2OlTTxxOw9C04CVR4TEGny8
cqt8WDmW6mvxcbiXMq5NSnIdPqa7Rz888JxYj4+/Di6WnA7EBnzYLKs5d7aZ
2JCP+3X9xw/KJu7HR331EV1NR2IjPtrObIjb1kzjacLHoXWT7/ZcR3IzPnQi
/143G0BswYddM+fJtXBiKz6mHFVuWDaE7LXmY/jYTnbf0slfNnx8tZPcqdlD
bMeHaZYyKeUMlXfgI7ZuqVa9FzH4mL9ggqNPM7ETHz/2CS+ELaf6znzY+7/v
c2Q3sSvTfnhjYoMNjYcnHxuVFsdWR5Pcm4/eD+8Pvc62v4iPwc7Fw6ISiH35
uKxMGXxkJbXnx4deR17Ha3uJ/flI5ny9/+E5cQAfJhM3t37xJQ7iY1bC0fQL
J4iD+dB6NuvfgsvEIXyE/pcyqjSX/BXGR87B94VvLcjfEXw8/Nayxbqc5pso
Rl5Zb29mQvkXw0dScXbfPkOI4/no6O1uf2w5lU/kw3v427QVPUiexIdEf7CH
63qSc/lYfHHu5Tv/SM7jY1pj3RezbyQX8aH7yDWnfCr7/p+PndDu2y+Cff/P
R02tyX/3v7Pv/xn/dAo/IPYgeTYfBTW8o/uFJM/h49Mz+dyHj9n9P9Of/YZi
143E+XwY9ryqcXIXze8FfGy4NP7N/AxaD4r4cBs6/kDvdCpfwsdH+RplmBO7
/+cj31T3aFoou//nQ7wJqycISV85HxM3lk7r14PklXyMnubYYx37fFHFR5qn
wurKf9ReLR9Hp2wd4atL5V/ycXDLkSmdphLX8eE+f9PIwBWkv54PV2/+gK7s
7zka+Ngd7pN9w4r0NTLxdTY6a/pt4mY+rCfah7lnUPk2PiZ1CpRqmpO/2vn4
vvRM5bK7pF9DgDXzB1q3R1B5LQGsQztXWfcl1hEgqn0mJ+sIsZ4AnRfdLbo8
gNhAgA3vdHc/DGP3/wIYW+1NGKBN8n4CPDUx+3foLrGRANM9buZOW0BsIkDF
dI/rw/PY9V8AZcemqJoF7PovwN2M2wuE+9j1X4AeL4vsS1+w678ARotbPuml
EtsIsCBu19HMErLHTgDe2f/elQ6h/joIsG++4n3hCCoPAQq9UwR9Y4mdBAi5
oKeoN2LXfwEKHvb8PVmD2FWAoJzcV1P7kz2eAszsHnlz91faD3kz9kY/DP+0
m93/C/BrYw8lNrC//xFg6OvdTQVlVN5PgEpe9eqGYLLXX4BhoucD1+eTPECA
Gyc2dCvOpf1ZkAAPd8wYmPSGff4XYNCdgQGWg9jnfwFsh4j+3thGHCZASsE1
UQprX4QAgzM/1u65TxwlQHr/Yy06LsQxAnTIP3tgfQ3ZGy/Am3dPrO6wz+uJ
Ahg+rRjwy5bsTRIg7+yG2K5SYq4AbSVbhBvmkX94AowsfXPqE49YJEDrwrXe
YSfJn1IBzmqemN6J/T2PkomnO5yRor/EmQKEuk1qnN2Pff4X4M5R1bHZ5lQ/
R4B3r75G72DjI5epX94w7jPr73xmPG/pig9fJC5g/DO7zxuPKPb5n2mf7/z8
4HaKjxIB9o77mlBRyOa/AK95963KTNj8F2Blh7tHzm9g81+AgDqjEsEGNv8F
yKrK6yRYTPZUCWBg1T5jayO1V8vEX8GiE9d7k/wlMz4r9g2KHcjmPxMPe5eU
dmfzvV6Aub1rPp1+T/nbwIz36bq9bzVpPmwUgL89Zc4WZ7KnWQDPCpvRt1h5
mwBjx8+3rwbtP9sZe9ruxj5qJX0aQvj5a3c/05V9/heipGVFrn4C+/wvRLHm
6BCzm+zzvxDczRWTPFZQeQMhIt8kiRc8JzYUwvHmHTOtEGq/nxAueSE9w9j5
zUiIM9oTZg53Y/Of0Wfi19utjfxjJsSDOXt+HOeQPgum/QdFR9zLqbyVEGKf
pdqvWf9YCzG3rrb17QUqbyNE+IWbmb/uU/t2Qhzr9mtxTTixgxDZPVZyxj6g
8xEIoTko7YdeBfnHSYjlex/WXowldhbin//R0FBLqu/K2DdQdHLIXKrvKcSe
W37HinZQeW/G3lGcrB1zqfwiITLDdm8ZNYLYV4iRfzZsuMX620+IblPnPfe9
S3J/ISofr0P33aQ/QIi2eoc/CzVJf5AQubwxbpnfiIOFkE3oZhB6mzhEiOYx
4ZMitIjDhMho9ujrqE/6I4ToO95v6Y57NJ5RQnjuSnUZuJY4Roh5t5YePHCd
7IsX4vt/78uMV7G//xNiWEmTU44xcZIQjd/fvq5i/cMVYutajeVmjaSPx4z/
9YFKoZjGSyRE9YXk9obubP4LMamzb/Osa1ReKcTvMK8GiyjSlymEf7vugiM6
7PovxGeDbOvP49j1X4iEXhlmzJaM8l+IWT6Wsz8VU//zhVh/MfJghwO03ygQ
ovvV7GHKVvJvkRB/loSMN84iLhHi3k7uspcRVL9UiJpzZisDWsm+MiHc4/+a
czls/guxbW2pgeUfsqdSiJiDXV9dnEH2VDHlvcQ+7h1JXiuEUeKPPWP+I/lL
ISL2C8N+zSR9dUKc/12rc8WDXf+FcJsQuuvUU+IGpj8p/hNC55O+RiGCev1q
dwVxsxD23Z/sHXqVyrcJ8df016vns4nbhRjTZd+Yq3PY/Bfh2urCG5mOZI+W
CK7r/5V81CR/6IiQ/fxJXwN3kuuJ0BjZu33+Azb/RShsVvCfJZPcUIQaj9JD
Gy9Q/X4iuMneZN/RIjYS4WHxWO/y2cQmInB3WbrqG5G/zUT4ei5m89IhxBYi
BO68t054j9hKhF3t1wf0Xsz+/leEi6tKbnkOZfNfhNIffTtPX83mvwhzTN/e
CvxGcgcR4u0WDa/aSgwR5vV9saHsKPv8z7Sv/evRSfY8wVkERdGa1o+/2PVf
hBeCW1NX7iL2FOFA4IKSO/E0n3uLEOE5o9J+Pa2Xi0RY1L01mS9g138RfMr0
jUbUseu/CPz8Uw87s+uxvwhD+r7T5KSzv/8V4fdBs55NNuz5nwjR4yo6tN8k
Dhah9nLLxEffqX6ICN3CL5d+9iV7wkRwcs23fFhJ82uECMbVVd66O0keJcL5
0HG6N6cTx4hgdPHCip1nieNF8NPpWy7MIn8kivDvrbxl7jziJMZ/G64lNrDr
J1cE3eT49g/L2fxn7Ll1ZlPBazb/Rfg449GqZH2SS0XYkT9o2IVLJFeKcNv3
4Od3xiTPFGEx527Hva7s+i/CWq7uDnkl+/tfEeImxkw5PoVd/0XIz73Va0sO
e/4vwsulzT7xMyheCpj2vJx3RnZk85/x56aJe5+uofmhRIROi5RfzfsRl4rQ
fenHZ9a7iMtEOOIhrW1dQs835SIcHZmdkK4geaUIYQOcY47FE1eJsP9PbJsl
+zxVK4LBk4XPTgmJX4qgvUz+LSyVuE4Eqe77cjMpcb0IpkWL5igXEzcw9mlO
F1VsIG4UoX3BKJdRVcTNIqRcdSrALvb3/yJMyXuls2cvcbsIA45Ivw94wv7+
X4zsx+EO7deItcTIM9MIn+rO/v5fjB6DeXFD15C/9MRYkNs0QZf9fbeBGPMe
9ztuHc/mvxjeOz6Zv25gf/8vxqTgJ98cfpDcSAzZbJ2tO/tT/pmI8cAr6FIl
m19mYujrmZzV70njZyFGk8nTke7TqLyVGHM6/fKI9yK2FuOw/XPBiF7s/l+M
V1cC8v5cYM//xJj6MNL/3CV2/y+G9bRkk1lP2fwXQ7dclhyRSewkhvuTGcNM
vxA7izEqLaCtjH1/4sr075LmsSfdSe4pxi+V8UXzSdS+txgv4us3v42h9haJ
caxxWMVWMbGvGKfzOF63r7DrP2PP0er9jcPY9V8M7tpIja+5JA8Q49TQo6e/
XST9QYx9fU9M+nyQ/f2/GC0xIwfXjyJ5iBjF/k1z3rDvy8LESLRdNSDkDskj
GObbDLRnz0ejxMhYuv+LXw77+38xSnvnr7pfQxwvxut8p8FyO3b9F8MualXC
tQx2/RfDbG437dGebP6Lcda+Qb6T3d/zxNCONynruJHd/4vxaZunkd8Zdv1n
mPPrjoc26VMy/uLzvrm8YZ//xbhYMvWwbAC7/ovh1fRmw75Udv0XQzjxk/02
c4rPXDFG6Lb3kGxg138xntjPLTtSQfULGP93v+JYUEL1i5h4WrYx8d824hIx
3vf5smg1u18sFcPWtSGd30ZcJsaMzCfjz6dQe+VixHTdfFfZn33/J8bcT6fu
R7D7lyoxLtu+dD0Twa7/Yuj14vV+VM++/xPjqbVpVtQUsrdOjPqqiaVno2n+
qBdj149VJhYr2fwX4+drt6pT09n8F6Pg0K1rkcVs/jP+qE5/p7Kn8542MWpz
C/9Zb2PzX4yoZ4nrCmez+Z+BP/+uRcj3sfmfgdMLw6pGzGTzPwO5ERonNdjz
WT2m/KQ/J67XsN//ZODXXu1PN0KpPcMMaIzw2WH5kOT9MrC7WH7IppXYKAO2
nv5i/a/s9z8ZGJ8vDy3RpvpmGUhy67W0RUpskYFp9sGBXXnEVhng3Wj13vKG
6ltn4OM0rW6nM8lfNhlQHFxydngMsV0GBi48bGDzh8bLIQOCDUNLpmlQfWSg
dl/cvYAbxE4ZuKQz/vYaK2LnDGzLmXZA3oXqu2agMDuvwSqK3f9nQLPydePM
Enb/n4EBRTNPDA1jz/8z4DrFMSY0mT3/z0BT0qYHxbrEfhlYsWvb+Ej2vMs/
A6Mvex3s+5DiJyAD4rEThAuvsfv/DKy7eqR9WhC1H5yBgBv8KRZ6xCEZ6JXw
aMfqPtT/sAxEj/p8y/MAySMysN+zqIP9W9IXxfjLbK3PgzPUXkwGduhw1yov
svv/DORJfu16yc5fiRlwuBVh/+Mjm/8Z2BKxf8hHHdLHzcAh/ovga/XEvAw8
acn9ONqI2hdloMeJlxsvLyW5NAMd2vWWJFiSXJmBvlFLh9okEGdm4FXy1RVx
bL5lZ+DLLf+nLlo0PjkZaO0hil3sRpybgZdNQ/S2sPmQn4FH20cGhk6l+CnI
wPLOvx2zehIXZeB2r/TLK05R+ZIMnMwbPWFRTzo/Lc1Aw1Tjmie2xGVMPK/4
FtfRnbg8A+2+Bm5tj0hfZQYCZ/r7PD1MXMX469e6p+OmENdmYMkkM85bJfHL
DJgl7nNYspS4LgOqApmolY3/+gwcHFb2vPgYtdeQgbRzQ3uO6cye/2cgTmxm
FudG8uYM8M0zN5k/YM//M6AbeOv+8dvs+X8GCnbY6HnVk34NCfqaT71zejPJ
tSQYMH5Kp5Ve7Pm/BB2by8ZMf0bl9SS4df+I5G8NsYEEJWcmTo3pzOa/BNuS
hr5Q/GTzX4LYB0/mPWW/FzSSwMkp6NkyAZv/EnQ6+FKn7xuKVzMJeC4bTJrG
kdxCgpf3s2Qdb5LcSoLe6PB96QRiawk266XMrl5H5W0Y3nS/IriZ2E6C3JQl
WYV9iB0kMI0Nn/nqMdWHBGLfpLmcGcROEnRfVGmyui+b/xIEz/bbuMKf5K4S
TByU+9P8NZv/EgRoDHP6YEjlvSUob9jSfyF7Xr5Igguvj18/fJTK+0rwo8kj
u1iLff8nwen8nLjGIyT3l0DvjV65CysPkKAff/XCCxfZ/JfAR+PZqBnRbP5L
cGhtqGt3L/b9nwThxxNHdjvG5r8EXVdmX3QxI3mEBFuioo3aXdjzfwkmmIYo
ZDdJX4wE2mfKa/NiSR4vgZfzN9cu7PlGogTVc5tcJl+l+SJJAoeTq+Zb9GDz
X4IewRv2maSz+S/Bt8ETHHaNIRZJcCq+16s0dv6SStC0+cSAL8YkVzLxU955
4W/2PCRTAvOR1f+1nmTXfwnyLLt9Hsa+L8iRwGCOcNWJ1TQ/5UrwqzWvQ4sV
u/+XIK00d/hK9vyhQALjq4LO7ux+sEiC4udlZVnt7Pkfkw+d3r6+uIe4VIKV
dq12o///878EuwuP7C7uSfNfOROfPpn5vQ6yz/8SXH8a1PEwez5RJUGD6OAq
M/b3NLUSDDcd2bXiD3v+x8TXIjPnqc/p+axOgoM1s459ZZ9n6iXQ6fD+RjcP
9vxfgvsPt2QeFBI3ShA3p6Sy5hVxMxPfFgs7dM9iz/8liKjOPpVbR9wuwTMx
L61+CLGGFKENHSaOcibuKIWl3tAzi9j9q5YU5w5mP6m6TKwtxdLwrMDxTdQ/
HSn0b22XFy2n8dCV4tLvjLmD2e839aSYi8Cj+jOJ9aV4d8CzLoTd3xlI4ef8
30W3MOKeUrzQGnPTtw97niiFavv+jp2fEPeRwuvvyqhO0ez5ohT91k7JHp1H
8gFSbJuyyzif/f2UkRS79J0nnWaf7wdLMWRi3tnQdez5oxQ3li/eNvIB+dtU
yjwvnh78agf7PCIFf0fc4qU7qP4wKQblroxNYJ//LaR4YO7444aM5JZSrPGq
njtoEHteKUVxds3h3cEkHy3FRWvbI6VOxNZSTBZfD26ppfEfJ4WzQ+mZg3PJ
HhspqqQ17k84xLZS+GrVZ1sH0vO+nRTWutMdbMOJJzH2Wfz4tbqG9DlI8ZOj
3/PtDWJHKXhP/5Zbs/2HFGuPVEcdEBBPl2Kn4QPLBG/2fQjT/tmEn304xLOk
eOTb9/HKoez5iBQJm3ZK5yeR3EWKSWUXr799SPa6SvFvgtzsgS3J3aXM8/GO
xrb3ZI+nFLe0Pyzfu5Ds95JiqiQx+vJgkntL0ffY6NnO/xH7SDH2yYio4hPs
+YoUKyJHHjAII14iRZRmTwPjrlTelxmPFZrNsxaSPculmP/PYrWVmOR+UlTE
DC86upd4lRTJ4TbdDltTeX8pzl8QBywfT7xWinHRv8bc1aT+B0hh3vT6i3kx
9S+Q6W+XLvae1iQPkqLPeEmCsIbic5MUweWmdbFWxMFSjLjYoduxw1R+qxRF
3/QlNez5XYgUeSZvzSpWEW+X4nr/yLEb7rPPd0x+Jh5pq3tD7e+SoiHPN3Ki
A/u8J8XiO2k6G2KpfKQUQ3MzUhO12PMfKTqM6lRxuj+Vj5aiyaFA791y9nlQ
Cvf8wtp5h4jjmP4najVdyGbPh6TM89CfvbNCyH8HpNi8t+K5yXniRCb+kmMc
TzkTH2bsmc+98XgUjVeSFE7htxUei+k8iyPF4cnX5p/Mp/dbXCZfk/L9Th0m
eRoTb/lf/3s3i/19qRT3O+zIi3xK+gRSHHl0w232MGIR05/Ev4d/sd/3Z0jx
Sm/Pi8z+ZI9UCmw3zUsNIrlcCvm+mmOyeJIrpUjfOGBuXxXJj0ox+L359IC/
ZF+mFO2dZm7rm0Dv244z88XQVv2hRezv1aSw9Rp7zzeHfh92Soplczo/cAoh
zpFiTNCKk58ciM9Ksa+2m46bAf3+LJeJ54vXHAM2El+Q4vaRiJs9r9LvHfOl
CFcF9G6fQ3xJCtGtmW2Se/R74wImHlYc3rv+OskLmfhWqr4NLSZ5kRTPlxen
+I+j3y8XM/klzTg2ZQdxiRRGx/KndvtEfEOKxyGf/rw6S/VLmfF/smXugxWk
/7YUuZNPXgiJIHmZFF3HjRLkWVP9e1JwA49rpdrR76PLpfA8EPfp2Gr6vWaF
FIXulTODfOn31ZVS/NUZUqjdgco/luLkgrnP57L1q6SoEUTpbdej8tVSmEz8
uH3XOfp9dy0zv+suUB6YSL8Xfy7FwFLlhqxB7Pf3UpyN3W7mbk/8WoozVW+E
WsXEdVLst0nUiNEifsfY3/XE1cK99Pv/eqa/J7Vv/ouj369/lGK7/pKmhaeo
fAMTD3t7qQ7NIv4ixYTx2jsK91D5RiZ+Jm9SnR9J3w80SXGtl+J65Uf6fXwz
E+8i5+isQST/wdhzSyHqVk3yNikMM5Z1KztO/EuK2vKYLuag7wvamfW2V/nP
FSL6/uCvFJoZjfVrvOj7Cg0ZknzGRPutoe8VOspw5suwyy29qX9aMnT4erOX
1SlqX1uGK9OvSs40kT4dGcy9zHu830SsK4PjZMN+ujPIHj0Z8q+MsBrKtq8v
w86L7rURk6g9AxkyhakB8weQ/p4yhBzsO+PhQapvKMPZhJ29bdaSvI8M4VND
Zup/C6D1X4bv9YvSHZyJB8igl3grSN6X7kcwksGvy43xwaep/mAZTqn2uVlW
0fcnJjI8XjJRWPeE7DGVIVfw20+UTfclmMlwOrkxb/dq0j9MhvtXZ6+U29P3
DRYy8F5N+e9DIJW3lOH3Ou0dgZak30qGY0+7RdzZQ/pHy1AkfVs/lkPlrWVo
WbDwkOVO4nEyrPTe47adldvIsGBAkQ7c6fsJW6Z/+/pcv/VjNa3/MtSZfM1p
fkjjPUmGCYu6OR05Tv13kCHPzrj3vCJiRxlsD9zqvzKI/AsZ3s9a4+SdSOMz
nfHPr3tZgoXETjIM2uLqVahL/pvF6Bf3880LJXaWIV3rxvb/JBQvLjIsPdQS
Oz+W9Lv+33iGpNorid2Z9lv6PfOYSv7zlGHhoNtc95vkLy9GX6vjUS0hte/N
xNO/AWGn75F+HxnE04wbs+3o+5BFjP0LfpR+60q8hPHH5Q5fGmdSfV8Zjhwe
X/1vE8X7chkOPtj6M5jNNz8Znruv/+I/hniVDDebhJPGthH7y9BQ9O7z0P2k
b60MG4IdX0bPIH8GyKBhV3u9YxONV6AMlyzNDu/YQP0LkiH4X1vXPSNp/DbJ
8K7nNg9ZZ+pvsAxKky49rTSo/lYZRk5f1OfhMyofIkMngaiL7WIqv10GnaUn
uE/mEIfJUDz+w/q4fhRfu2QQQHTs7WmyN4IZP0eP/cEO1P9IGQKLPS5OSaX+
RTHjcyc2f1IwcbQMvWOnXAuaTf2LkWHVRR/b9ez4xcmw5ZrzmV8epD9ehtQt
RYibSuUPyFDLE4f9HUv9SZTBab74c6QD1T8sw7BhPRwk1ZRPSTJk/7P6+nsv
2c+RQXugctxrY4pnrgyFR329vHxo/NNk0BUq9f1G0HjzGPuW5Q+JMSQWyBBX
NbYwbx2VF8nwa0jRvYPjiTOYfLA90XlYMPlDKsP8Q+MORaVQfbkM0mKN2HAl
9U8pw0MHrvSqC/FRxr4zFzmH3pP9mTLMsPWLCayk8TguQ+OjkY6rfxBny3DI
rs8Vm/FU/xQTTw8fN5qw37PlMPF57duvH+nbaP1nxnPEXuP3Y4lzZfjapXvx
n+W0flxg5uuQyLkVo+h7qHxmvtr3c1P5GSp/SQarRXN4SxaQ/gLGfv/vF+zS
qf1Cxh/1J+3iK0heJMOJiff/29aRuFiG8e6+gZvf0niVMOM37UPWoM40vjeY
+UFz+MbEVpKXMuwT2XClgsbrNtOfTdZjhh2j+alMhm5lu0qyVBTP92Roq8z2
LWa/TyuX4Uaz9qZzrZQvFTIYDSm4VnSO4qFSBrf8ur49DlD5xzLExt31WvaT
/F8lQ805r7hdelS/WoYhocL0NieKv1oZFIKI9XbKZbT+y7BY9eiGyWs/Wv9l
8P7z4/ymJPqe7rUM1R9vN45aRVwnQ3LUiaRn0+j7xncyTOU9iIk6R/XrZfi7
e+KlLZr0PdxHGfh8bpejttT/Bhl+eNV8mi8k/iKDvFdt/N4PZG8jE99TckJ2
dKX6TTJExdQEXDxP5ZuZ+Mq6HNowmPgHM3+kzZUlzCBukyFLJpy39j7Z90uG
W/M3h1dPJX3tMry8nbqgvpHkf2UI+JfTv9SC5BpyvMj2H/PrIXFHOX7fFJ++
AvK3lhyPK5WCV7/o+z5tOQ59Ehz/VUTldeS4qckbsjWOWFeOzz2fmSc40vjo
yVFdPjRe8JLiQ1+OPZn/Ok8dTP03kCP4p07/7I/kz55ypB6wf/fmBn2PaCjH
YqN/IW1OJO8jR86Kzj/Np1H/+8lRUWW+qiGUxmuAHBldZ3/05VJ9Izm+qO5P
HW9G3zsOlmPD+MMLApbS99MmcngOscxISKbvxU3lcPXZX/7AwkPNZnLENt4M
EV+h+4yGyVHT2viyux/Vt2Dqiz4banjOULOlHG1TB3x7N46+57aSY5X86Iu7
zsSj5di/2XJP4k3SZy3HNPPAr86rXNQ8jvEn3216gMlMNdvI8d1x3pGKiT5q
tpXjb5ispE+POWq2k2OFTXz4/V50X9MkOR44nT/TcMD8yv/YgdE/cmWY2+E+
anaUw3a1xjXtofS9PORov7bkpH8QfU8/XQ7jd4vfGR3vqy7vJMfIp5PDkh9C
zbPk2F7zrLvKw1PNznKEdzBO63OGvl92kWNp5MlVji50X4GrHCfspsxfXE33
H7jLUbbFe6rTbbp/yVMO9zubAqI+0vfQXnJMNhUbprLfo3vLkdK+yVTzsL+a
feRYnz7GVW86fQ+9SI5So/nL6+bQfUhL5FgneW11sGyTmn0Zfy11OpYxk75H
Xy5H0MAlZh9f0P0jfnLMM+c3P7en+0RWyaFV9UvY5Erl/eVwu19wOvM/ui9i
LRPPPnkb7AuIA+Q47vr+r+Ydqh/IjHfdab/O+0l/kBw6Q5t+6g4m+SY59DeY
+dYcI/3Bchxuedhj5k3St1WOlu+H+p3SpvIhclzzFc+fwN6Hsl2Ooo0Wbze3
UP0wOV7ZzSxcHUHt7ZLjnv3dxpux7H1PciQYJnGPsv2NlOO1zsynO+KIo5jx
2rDXgduf7h+JZvJfWP7Z/iJxjBxDa7S3JnPoPpI4Ocac3OXSI5Put4mX41LD
+gFLA+h+jQNyOMa6Je7/Q+UT5ZA22HSU5tP9HoflyIv5m8Rl7ztKkkP80+7R
nCmkjyPH0041tpxkqs+V479Da/T/u0X+SGPai1pkfTaamCdHp1yrrFEHqD8C
ObyjPBQj2ftpRHIUaOu3/KonzpAjV+q2qWEjsZSJzyl1Sf8mE8vlGCUPe3J6
KPlbyYx3ZNAkSy3Sf5Sx18rPabMeez8NU/6N+diSfnT/znEmX3pPf3C0ie43
yGbmm1WfBxv+IfkpOa7cOD5t2jGK1xw5ui73MY6fT/cbnJVjnEal/eprdL9B
LuPvrLMzxoPuQ7ggh7L/7B8ehfT9f74cay7FVt0rIPklOc5mnz47xZbuYyiQ
w1o2rj8/mNovlMN/TKFP/xCSFzEsCrRyElE+FcvRLyso9PJVsqdEjhGN+4ov
LyN7bshx2zyOG+RO+Vkqh+nbZp8/h+h+iNtyJHoubppbQvlaJsdGzjHfa07E
9+RAvHNG82LSX87E768cyR5n6k+FHDM1G/OjJHT/QaUct/qtadIfTuUfM/k7
qc1//3Pqb5UcA7fF3nzek/RXM/OJp9Ps3a/J3lpmfdGa8+KMnPQ9l6P/nh9a
oj50X8JLObYqx14PmUn6XjP+LPsQWPOE/FHHzIe1jQP/RFJ/3zHz/z1Nu6X/
iOvl6Kg8FLfWgvR9lOPh/XjD3T2ovQamv782zD9RQvIvcmhzGuzDZxM3yjFa
+TR1jzb1v4mpvz574Fh/ar9ZjrFzzvc8xaH57AezfhyfNavzIhrPNmZ8tELy
1k8m/iVHiM/MQQmL6X6Odjlctv9tfH2Z+vdXjukO2gH9X5F+DQVsRga9v11D
7XdUIKvi0jnzRSTXUmBQ3+XfAz+QvdoK9Ah8L+mzh8rrKCCQh5l/LCHWZcp7
nP5il0rt6ymwu2jbyLHPSZ++AqN38aP7fafxMlBgoXxr3yle5M+eCkyqVh7r
MJ78Z6jAzo3zL/+dTfr7KKCtdWsZL5jq91PgyqGjk87vIx7A9KfFp6yjBo2/
kQJRs5J3Hj9J+gcr0Gfux7Q7HFp/TBS4uedvbsJckpsqcP7ia3ctH4pnMwV8
h0VUd5TRfSHDFGjR0r9abUL3eVgo8GZZq+HBBbT+WSpwce2Hof/1pvs/rBQI
vVz22mUk2TNagWIdc9vrPag9a8a+Ve9Wal+i/o5TQKqyvP/bhPpjo4DXzw5J
JtYkt1XggAHHx9id7uexU8Ddo4PY8Au1P0mB/KZ+LvkFdP+ggwLzvhlrTWqi
/jgqcPSR3wBHAd13AgV6rxvcaPyW7guZrsCfCvvLWiLyj5MCVok7NkkOkv5Z
Crh1nlpnOoXscVZgtqpr76UjaXxcFHjybFnqsA6Ur64KGNyX+J86RfOduwKf
7J/XpL+m+PBUoPnf9wuzoik+vRT4qLHhwpbT1D9vJt4OPt177hOxjwJctwjt
1n7Un0UKTNabdd5PSP5eosCOYocXv2KJfRVo2zHlr4WK7odZzsTfjqCbnu40
fn4KlNhF/2tIp/uKVimwPcFWq3Mk7Vf8FXjgs+r672FUf60C4+/Mc+lVxt7P
pEDcwNvLjZbQeAYqMKKDSGzqSuMdpMDid/vaLAtpP7RJAZPTH7dN2ErlgxXY
M9Hm0HJd0rdVgfd9i+93+kvyEAVmuG241lFGvF2BylmeaxyciMMUmGbUeWXw
NuJdCtT6O5ZvyKTxj1Ag9/79lOZYiqdIJj7Lv9UuE5M/oxTYemRc5M9xNN7R
Cnj3mpwzKYrsiVGg3/th8QkG1J84Jv6mfxq44DV7P5QCD/kWsS8/Ex9g4nnj
k7vHbrH3RSlQt6z35SXjyL7DCljI9tXPvU/lk5j5o3VMl+43qDxHgX2jN3Lv
H6J44iow0aud+/AkxVOaAt837fnnqqD44SlwLDNzzHwZzS8CZj4wmfrM7yCx
iJl/sg4+CpxM+jIUWCPdPPrdJfKHVIGVPewyA+uov3IFMtcNtpyQS/GjVMDZ
8n1B6zuy/yjT/3ffFud5kb2ZCmwTeTeNnk35cJyJn8p2nX0KkmcrcNJlmUdi
GclPKXDimUdn60nEOQo8Dm9907qO7DurwFXhKanLBJLnMv39tyQn7hy7/ivw
ZYQkokJO/ctnxqfXj6BTK8k/l5j6ofKiUS1Uv0CB4fUDFxZ0ovuQChWQ7Ney
tulJ/S1SoHzv6HaHR9S/YgV0dse82JlM8V7CzEfKissT79P8cEOBVNXr4dL4
xWouVcCQpzcz+w09D9xWoKgxv/j4X5pfypj5uHp9hI8Z5dM9BYIrT2m7V5H+
cgW6/bDpsSWZ7Klg8vHnjGbrkxQflQoEfWkdMy2I7HusgOhw4j3tUOpPFTO/
nfsuXxdG/q5WIHr90Xm9qql8rQILVMvm9RhF4/lcgVH3vtunJJA/XyrgZDqo
65We5L/XCqjMNVZ8GUH+q2PWh++LTPpYkT3vmHiMunir5zHKr3oFEtyTRi0p
Ins+KmC2ZsVvxxoq38CMT/dZNVL2fqYvCtgf3B2g7UT7r0YmH9qWfv3Ti13/
Fejl3bPvh5vs+s+sL1uLe/3OI3t/KDAyYsS7z8VkbxsjH83/PPgy6fulwOEu
2RlH9Wn/2a5AoMlp3XF76XnhrwKR3wOPh3sSayhhHO7n+qwzle+ohPhWH81p
02m/oaWEday9RctOyjdtJXbf6zz432qS6yhh7/t69GK2P7pKJF1MU24aT/sR
PSXWV2R03LCY9Osr4XK9wWyxmOQGSlRtabiakUPynkocHPBP999k0m+oxKDt
rmcKWX19lLjXUjtnkjV7v5gSYe4L9KN+knyAEv+9u/tjahCtN0ZKHAq7PnBD
PukfrETPEeZLDk0k/SZKzB25ekDpCJKbKnHnRWD4wLfkfzMltN7bp7gOpfEb
poTdoZLZWiryv4US7gl/R4k7UH1LJfJVFaOWvaD2rZRwnuUo796FeLQSkRqr
prc+pPG0VuJA8f6Xef1pPhrH2BNcPu/MN3b9V2LC0m6Xxl+h9myVmP15wSjv
WVTfTom4Ox01N6+h+JmkhG9umf+vTLLXQYkTodpreydRfjgqcTNyW+f5d0kO
JQJk+0w7DaD8m66EZtXbulNDKH6dlNBb83rN0FZaH2YpMUsZvl2rkNZPZyU8
DFb0HSEmdlFiV5xG3vM82i+5MuPZ+5H77XpaX92VyFmTcua22xxa/5nxT9I2
Mkg2n/o/9lLC3HjP7aLllrT+KxGvsWlUwPPxarmPEsXTyiZnvPCg9V+JXh7z
Zuzb6EzrvxIZd4ufVeq70vqvxBq75HnnjMme5cx47nqhP+QnnWf4KTFjpcfm
rrU0X61SYmC+0YvqEnb9V2LLOI73sCkkX6sE/4Nna/gYqh+gxMvZ0gn7P1F/
ApUYl/BxjHYP6m+QEnkWs0vrnGh+3MTkR4tZ13WK2bT+K8Fdk3lI34Xul9uq
hDBnV4HHeWta/5n8/LtL2MvLidZ/JaZP/neyPneQ2h9hSkzuv/rLQV86D9ql
xI2RnO7iTLo/MEKJFYu/mCb+MVNzpBKnh4jXiucMV3OUEt2kWzrNu0/3eUcr
sc+hNlce36K+LzBGif4Xil2Op9H4xCmxp/LqjMJVdN9dvBIf3aJ6b9o/WS0/
oITEfWM3wQQbWv+Z8S25+H2L/I9a32Gm/Tm5Oa+EnWj9V8LAzelBYF/Sz2H8
8U7jhlutrpq5SnzesmREejaNfxqTnx/mlp/K1VMzT4k0D98mx21036FAiYqy
wIDL2yfR+q/Ejo7mgyv96P7FDCX+PDH9Nk17Lq3/Ssj37ZZ4NdN9f3IlJvK3
awpc6P5HJTPf+a252vszjddRJSwfaU1MWk3jmanETlu/dWcvER9XYsMVv8EP
Kyg+s5XwmRAiX5hL9U8pUZvqcrSwgvIpR4nh3zZdXrKc7DnL9LfvhdpZj4xp
/VdiqNuoaa9G0/hcYPQLHLvZbDVWc74SEY/OR06y11LzJSW6/rt3NHK9Ca3/
Svwd3TyyZGWt2v+FjD92boyLtCN/FSkxqv7Wt4V109VczPSv/tWrMd/pvLRE
iX+yt8Uzct3UfEMJs8e5trcD6L71Uma+m6Wa0WUW3U95W4mlxY/yZv61U3MZ
k59/jXvPvD2K1n8lvlit2yZzHEPrvxJX9ojSvvSh+K9QosORZ0X1t+l+zEol
gg6vPBd2j+4PfazEtqxFrQNbp9D6r8R2nc0vXrD7jWolLka/NNhnRfNRrRJD
bhfcn/iY5rfnSvzUcLKa3YX2By+Z9ahRUVz9hOSvGXaM7GB4hbiOyaf/RjnM
nsau/0x/bIxbr/wgeb0SuvGj8u8m0n7hoxJP7WNbB7XR/N3A1O8VK2pJJ/kX
Jr713exWnKP2G/9vPlzmPE+LuEmJb9ddJul6UXvNSnzqkzf461vab/xg5ucz
+lN7t1L5NiVuaV79djaA2vvFrEdvnb0P9KD5vZ2J958/5ixi99d/lbj+MaDP
3TBaLzRU2NFr+xmdSirfUYVPy/9rqetOci0Vat9d1p2iRfW1Vfj4qMzTQESs
o8JKw9uJBRvo+UZXhV6u43kPPel5UU8Fb1XfYZq1NJ/qq9C6/L2NPIHGy0CF
kM1WG/GB8qenCjExtkuGR9J5sKEKEyaVXO01gsr3UUF/hnxT32+Ur/1UWLhn
0ZphbXSf7gAV9nVu7vJxF+1XjVRIyFuyptsUmv8HqzBQK9jLP4TYRAXduRzu
D0NaL0xVmGlqaJgipfw3U+F4wZzbL25OpPVfBafV6fO7xXWn9V8FrbXDA5xd
6H5NSxWWrnG9/OQVzYdWKuw6N+zLtMtmtP6rAOOvrn3sxtP6r4IcW+O2+02n
9V+FWz/eHFz/aTit/yqcGzR0d95syn9bFTws8tp9BlH826ngmK47+HXWBFr/
VfjwQfuNdAatTw4q/CmSWed7D1bXd1Theib/t2YPuq8WKrhPlSw4LLOi9V8F
S6PBWbpfqb6TCvHcR5zupyj/ZqlQNXZt+9YpQ9X6nFUYbLtV89FsezW7qFBy
4IPt/GlT1OyqwjSd6O9b2uj9hrsKvOF5ZQl59D7DU4Xfh6zdlM9pvvFS4fHV
pr6DByxQs7cKU6QDPvWpo/ctPirExbzctIvvreZFKmxzyfAvk9L7oSUqNJYe
mmn/j9hXBdnG3SMe5tP7oeUqCCe1a/rco/dDfow9/Pv5NrPp702sUqG+02Lt
sO0k91ehsPftSSFd6H7NtSqMl3wdWr2F3icGMONddH3Ii01UP1CF0fkfxgyR
Uf+CmPgIGrAsqIze52xi4rt8sNGqBvp7F8EqeHbY4jDhI/VnK+O/J8mtVgX0
9y5CVJiXamSuekntbWfGx+vt9Kxq6l+YClPjQ/UijcjeXSp8X11zbyr7/ilC
Belh3Qdfs0l/pAr+XoWLI2bT/iBKhaLVLiNPnKX3X9EqnPSYrd8cQ++nYlQI
cEZGYTnpi1MhenPUfItP1F48Uz5yWvX042TPARVEq6VXA2vofWMik68xOUd+
ryH/H2bGo8XhyGQf6l+SCn/9B/XmGJL/OCq8LJy5o07DkdZ/FYY94MmcB9H7
qTSm/P7S7nlVlI88FYJE/4+nKw/H8nv62hASkZAkJEmyJUtlkkoqqSQhSQtJ
kiRJkpDkWxIqlWR59uV+SpKQiJC0KS0UQpIoSbZ4z/Vr7vfPz3W2OXNm5pyZ
+5y5FT8FmaM9SM2G03dm7DU9uA73/2zwf/hO6cUvLE/LhmPXigt2KaF8p2cD
VTmn/0Q86mMGkT/RFYklZ5bj/p8Ni986RTmFzsL9PxteKmsnclyM/tHDyoZU
48Gcs8EK/zAnG8wO8ESXl6B+8rJh78MXY3beRCwg8rJuzzFPD8zXTGVD3Xb7
3+kuaH9uZcPURR6V61YhPTnZoN80cwlLA88zudmgdK7r7a46tE952XD0XPGc
X5q4v+YT+XqvxnXXRXtSQNYryuQGM1P5Hy7KhoH2xl8KZ5GeYkJ/6+TOB/On
/sMlxL6cq163ttQO9/9sKJ2l2/GsFuWnPBvOP7qz07wA5bsiG9KeHC8ocsf1
q8qGzWfvzTai17M6G7Y+uR5+Mgjb12SDuJd9KhWP35OfZ8M03jHmc2f8fvwy
Gx4s3P7R7yV+v6/NhixbgXk0fb/mTTac6A7Zr2eM36ffEvsVHlktbEP9eJ8N
cV4pwRozUd7qyf7yub/iXSrak4+kfq9gkYQv0t+YDa+ufHP0uoH2pTkb1uyu
Z58ZxfNMC1nv42mPTm3C804bsaczg197SaJ9b8+GF7sKn1nVo750ZIP9A+Wt
Uz0wX3kn4e+DW/wF9Py7siGJ11xcm4z1f2RDj9axRRopmF+3JxtUKX6yAq3f
vdmgGbN86JE8/f2f2MvD8nWdj5F//dlg4eE3wfEg9j+YDRfMTHYK/0N7OpwN
+5VvNAWrYX71kWzonWk5LnAbfv8VY8ArdpLg1kOc71gGqNS1vg29ivwazwCz
wZJGpVCkV5wB3i2vFk2SRX9DkgEyPrHHaorQnkkx4EPHfParLXhelGGA//vv
qYfaEcsyoP3HakeqEevLMcD16cEYFT/8/9AUBhzSt5LLNMH5KzLAXUbnj2I2
/f2fAb0JBcvfLqXzCzMg+MurB3tmoDyoMmBSdpVRmS/yS40BDs8uVozMRn6p
M+BAshSU+qO8aTBgdZJojfxVtO+aDDjaEt3o0o7ttRmg3TC5pMcV+9dhgOJU
pRSTb0iPLgMKUq40zYpF+dNjQPzWnhO6m5A+fQZMNHfeXnEX5dGAAS/9vKao
s+j/FzEg+kiJymF5xMYMMH6dty3oKtY3ZUDEh2yh2XrEZgyYM7HrmZsJ2k9z
BviFUj+l6PsZlmR8tZqhJ/Nx/MUMKN+aVzV6HulfyoCGMpXcqv2IgQGMrXkf
N0jgfG0YcPH89vlVMYhtGTBQuPierw72v5IB9eP3WbvR8mnHgCSv1wfVjiL9
9gzYc+Tcq0kBqP9rGdDaULZKm84P7sAA3TW/0t2P0/f/iLy4qlzcJY7830jk
KfTYtzh17N+JAVni8saLT+P4zgxYv2jvmZ5Y7M+FAY2StXIrKnE8VwbEbGgs
3kX/P8qdAZJR/FLFyyi/HoS+vOke31moD54MOOH4eszYUvSHvRiQ0CTGXfoY
/eVdDKhyX63j8gTr72HA1vhNkVH2uF/6MKCn4NiGVxm4H/gyQCp94iq7MPSn
/Bgwe4Q/u7oX/SF/BnS8DVozYRzeFwlgQIvPO4+D39G/DST60jXx9vy32D6I
0H8vbqflRl3c/xmgFfznu2Uunq9CGHD41euRhHYl3P8Z8K45cPLdHLT3YQyg
LnPWTr+D+hbOAJHKAmu9KMQRDJj/wPfZhjbsL5Log/+iIVEM6ncU0ad0veUW
lWgfYhgwVbooWeURlseS/kS+JgE38HwXxwC4ueVnymU8X8QzQE773maVsVj/
HAOGzAsKdKLxvJhA6Dv2I9cjDO1DIgOiHk1dMGEW2uMkBuyt1Mp964znjRQG
LD/46GjJAMrHZQaMLJG+KLqL+pBK6DPKkmgvQnm5xoDv49YqXw9A/Ukj+nFA
IXVDPspbOgP4vLqB5iMovxkMeK/ozeyYhuVZxF5EnhkzWojyxmCAqf9g8ekw
tI8sBsyM5dRfmIGYwwCJrqF7rcOIeQxIaTihs68SsYABP62CXSsikV8UkUdj
aYtDS/H+zi0G3ODrtigE4P8mchjA5V7+eXsb8i+XAUWa7Q3fe1Ge88h6VfHV
O+9j/XwGJMeECJdtxP+xFTAgw15vTv5KPM8UMWBcqqbu34sYTypmgN2Cxw98
GjHeVMKASLO5+imzqv/FCx4xYN3SmuT7EXK4/zNgG2PeZ/n+xf/qVxB7xuQO
rdll/A9XEXlOH5YMlcfzRzUDfGY4KtQ8wvNWDQP+fBswqs4y+4efM4BnacNk
DOL/NF4Sejw0EnaF6OP+zwDrgU0bVTLxfPWG7D/8GRm+n9E/esuAJpV3U0tY
eL57z4AxPq8/qzqhP1lP9HnudPuF7Rhf+ciAgNajRYvTcf6NpP/u4+ptbUhv
MwNei32eo/UW+dVC1uPNgYaj0RifaGPAtFbjjhc2qF/txD6NGf3mTvtHHQwY
Xd2zZtOIJu7/DFg8f4/HNnMd3P8ZoP8obmd8M/LrBwPuZG7ya5g9/R/uIfIz
xUL5bqUK7v9kPDNzT9MEnX/lfQwQG6funCSB/lo/AxYV2dx/u1f8Hx5kgCdf
OXbmPqRnmNivcwMzriog/0cYUPnF/OrVLej/iTHhxazRsfYz0D6NZYJnAsOq
KhflYTwTuGNcbnhPx/+ZiDNhglvI412PkX5JJjwTWx4cK4X8k2JCbMqtF71B
GA+VYUKYZZLN1zCHf1iWCbvUFXL0xPG8K8eExQdmvJj0FONlU5jwy2ZTyKZ8
XC9FJrFnUyKeB2N8V4kJBz4r2zQ/RazMBH5uiyjjKtKryoS6+PWKJl6q/7Aa
E9jTOYfeB8z9h9XJfG5T7/jZWF+DCRl2Th1Vy9Bf0GTC0Oj5yzcjUb61meAx
XiXMYgXG73SYoKtZKdM+gvKjy4Q/Vmld0ecx/qHHBKnu68qvviHWZ4KQNdJ4
7yXGgw2Y0Hp83ouQWIz/GTLhonCK1RF5jHcYM2GjSLrnfTTGL0yZsGjldpXJ
eojNCL87n1Afz2H8wpwJgnGfnPPFUd4tCf1fm7scv2K8ZDETPhg6Tak0xvjL
UiacuBPyX4sk/f9DJvTtfe+Tfxa/59kwYWvuZcbzGRi/sWXCHO+6sNMMpH8l
Exp0xP1UV2J/dqT9t8NjSi/g+PZkvtEqP1e8wPprmSD3X/hszg4sdyD0/3xt
2fAX+e3IhPHHFxZpvMP13MiE/O+pKrEVyG8nwt8gh+3HIzC+48yE1IzFOxyT
kH4Xwq+JeWkpDvg90ZUJ86OnLxijhfExdyakdxja7ivG+XkwwbzArrmJ/n7o
yYRX+YEfJnzFeJsXE5jbZ2wMyMH6u5gg3WxZGaBOf/9nQkjYve5t8tjehwlT
NsMr806Mv/kyYUvG93u7TiL2Y8L5FR8aZitj//5MmFW3osW6ENsHMMFrNC3P
SBr7D2QC752HWOE9+vs/E07eYJkctcV4XDDhz4Th22WbMV4XwoQdVKm22DmM
L4YyIUplnqBFmv7fExN65mYc7TDC+uFEf8cpHKw+jP1FMGHptsKn89bi96VI
JsB5h5hFY7A8iglxHy48vrID5xPDhMmLLerWjWD8M5YJI3dalOuykP44or/2
L89BGH5vjWdCkp7u4eIE1IdzpL2/yZKX/rh+CUxYvt3btmQH1k9kgk7zQ9U1
vihfSUxIWH7jVVgHynMK0YfWNztLx6L/e5nMv89p9PcDLE9lQs0RZd1rJzH+
e42s36v8r/uPo36lMUEpY1xjuhrqTzoTDtkP/VznifRlMGFdkd1N+2yU/ywm
rNxhXOEmhfNjMOG2+vSgpekoHywmmIR0H7sgieNxmPD403Ub53KUdx4TmnYq
1TSW4/4kYILVqua5dy/i+BQTnttYV0/XQX24RdYrbN72P5E4vxwm6K85nnJA
FfUhl+iTvpTWAjmcbx4TnC+cGTooj/Y1nwnHlPvb7O/h+AVk/vr7A6NUkb4i
os9P3XcdG8Xxi4k9zPku/e0ijl/ChN+zjfbc2Yb8esQEScP1jgEzcb7lTDj7
a8P0FxrIrwomzExhnHG5i+VVTLjAcmSnKCH/qsl633h/d3kN2oMaJhy+MW3M
5ySU/+dMeGli/PfHFMQvmaC37NOcyjaUh1piT13B9vk55P8bYq8tGrmj0iiP
b5mgstx/5dA3bP+eCZP6a1IvSKK+1TOhcFSs6j9NjFd/ZEL57+8RxUdQfhsJ
/6XXsz3v0fF/JnTOPtTqXIj0tzBhFfNFQw4b5bGNyN/j3rBDd+j7f0zwuxQ5
cep0pLeDCcEXgltG1ZGeTiZcCnRym3gU6e8i87+3s02Fvt/0gwnhIe0JRo/p
+D8TbvFu1u7sRnp6iXyJiclnbUR96WPCte8uss4x2H8/4c+5WQ+PfMP6g8Qe
MX9yb1rh94JhJpSFbzMeZ4b9jzDBoNbT49ww1hdjgbL8jdKN7ojHsqD8s9jR
MB7OZzwLfqtElp31xHJxFkSuGwo9YIvrL8kC5/t8JSsnlC8pFmzyLG89k4X7
lQwL5lbIpyt4IJZlgUbXiN0zJ5RXORbUPZZwWHYC5WMKC+Qlfp4IWotYkQWb
pWbfyf+F5wklFtxP6bbwM8T2yix4b3QzQncpjq/Kgt5xhk6CrSi/aiwY/F2x
/tYb5L86C+b/l183pQ7XU4MFdqZPF9bykV+aLIj9PjN2ZTB9/48FEpkKx/fs
w/Y6LKg6rTWzbyryU5cFe9zULjYvwPp6LJgX9q589jpcH30WzGwxGbU8hf0b
sOCk1byhi/T3JUMWMLbJtsYWIb+NWcD1qTZQLkF5NSX8GahrjAil7/+xgG/x
/cKjCYjNWTAjKKCoZhixJQte8GYFSgux/WIWFErd6pUMQX1ZygLHv3PmP3JA
DCzoCBi9sHcP2n8bFugYzH59n/4eZMuCRPcx55VSsP+VLEhz2+t65i59/4/Q
W7qlOXALYnsWjPF3E4zQ+99aFlg+ZnePicByBxbcuCCvdFqE2JEFguMzWPqf
6Pt/LIiJMGc+dULsxILoIFfjhJlInzMLDiVNrp5Zh/S5kPJ7vGu/j2C5KwuW
hvd8Hn8R+3dnwWpBt8MRDdzPPFiwc5q+XuNtbO9J+DU+eGZ/MWIvFqRoJLiW
HUW8iwXie8Wbf3sg3kPkrcfMd+FkpM+HBZnHK04YtOD9GF8WGDhPGwz3QezH
giXFaVNiAvH+hz8Lgh9uqs81xfIAFqwTuuRvNcXyQBZYbZF+srwVcRALCh4I
Pgqu4/2aYBaA6Z2ppTz6/44s+DlQZHPLG++rhLIgqPdH10Ye3m8JI/TIFcSZ
0/d7wlkwsrhOJugq3p+JYIH0e9vlKxLxPnskC07rPjR+HIk4igXbdT6eU/uA
999jWGDLCtheYovtY8n6i5I36TZi/TgW1DSNHYgYxPrxLBhqnZ+cMxXLz5H1
sjdoa/1G/z+WBTLLnp/49gX/35pI5j+z1OlWCf0/WRY0Zj080rkSy1NYMHDu
1NXYzYgvs8DwROGTU0ewfioLfE6YWN+pou//s2CyX8CeFi/6/j+R990XqtfT
/8dOZ4GNxdQrf2chziD6Un3zRUszzi+LBf/V+gh4rsg/BgvGh/fnPJ6D5SwW
+M6fFVJGYf8cFrjvaOAq1+P8eSzQ9X9CaQcgvQIW5Lqc6N7yBMspFowrHhc3
0o/4FgvOVhruPtuIOIcFX52/vXodjOPlskCtX3J20SfEeSw48qGolqpH+vNZ
8LF47V0+C8sLiH3SmF9QVI30F7HgrufVE1QR1i9mQUOFWYr0DKxfwoLi7VdP
6dPvJx6xwHNj+rbqBUh/OQs6n21VKqLfk1SwIIGam62zCnEV4V9/kfst+v/F
1SzYkj1ssUoZx6sh+8nWmW/rnPC+1nNi31cWenWPQXl/yYKVzKrTCj9RnmtZ
sKxLO/f3bJT/NyxY9bt3scFk1J+3ZL31rOLrQlHe3xP7pWk1tssV+6sn9ueK
VkJuAuKPLCjRmpq5ez+O38gCyZBI68lG2L6ZBV0Rv2YPn6bv/7Pgxy9PzVk9
iNvI/nB43zehC+p/O1lf5rkWnVjEHSyovuGY8mIS2qNOFuyeVLZqogTqaxfp
32Tyuj8n6Pv/xP4kR0aMHkF72UPql3surT2G9ruXBaz1l4Vjm3C/6CPrsbpP
0e837r/9LMj50H7tP/q+9iCh56jd+Xd/cf8cJvZh9udqXj7WH2FBn4/DQgUl
xGJsMFi+o2zTKO6HY9nw3+uY4DdOWD6eDUf/yCaXtWP/4myQGu+r8egX+mOS
bBjqlrywYBD3dyk2tCj5uyyywfOpDBsqW0bvim2i9382bPlQnzx0H/uTY0Ov
zfNmrTGIp7BB23VVilYnnk8V2ZDYNkc6twHPw0psiDBmvXCtxfiBMhvWKtZ0
JbbgeKps0G/aIXOcj/EDNTac9nqidmAzYnU2DHv3eicmoP+uwQbmQqvKqK+I
NdlwMNHx8IzxiLXZsGNN4iIvT4wH6LDh48rC4qtX8fyhy4YEPw3xaDbSq8cG
UUCrvpQLxo/02dBfYvXr/Dc8jxiwQfrF9F+jcvg9z5DQs17y4Iojf4r+h43Z
cOeMvtbdb5Ot/4dN2WCxnrv1zjiMV5ixYeeBw6KhMKTHnA0PLh5O0r2B8RdL
Nuy1KnwuY2iO+z8bBMNlRkcN6fd/bPis//Ds7n6MRwEbJt3PXVwSjfEqGzYc
eWmqo+CH969s2bBnf3r4dHGM96xkQ4/aFuO5JRhPsmODcmDf2t2nMZ5nz4Ya
l8MZCuXor6xlw+6m2CfiR5bi/s+GssHlqnG9OB9HNqjBF/PbhXifbCMbzKen
Omz/Oe7f+E5ssLxtds3QAes7syHbYoF1WkTzv/ikCxv8rs9ue+GF8VNXNnz7
cjvoojvGl93Z4NrfFcS5jfFRDzZELu747VOK8XdPNnw5nu8qbYTxcC82nD0q
cWloBL/X72JDRutNF+ZN/F62hw1iXx+9q72P95d82JDfVvNexQjn58uGD7Mr
BqM9UF792KC00Oy/s1tR/v3Z4BmltllwBv2zADbcuBn2+NNJlN9ANjgorqp3
W431g4j+SRxckJeM/kgwG7S+uM8vXIH6EsKGh++HBqlsbB9K5hs7v+UDA+Ux
jMhDVETLtnLsL5wNQlnjJ1kuOH4EG9z+vD2q/BHPz5FseN0Qq15/HPU/isjb
pIRM4QCeX2PYsOTmtMkz5dDfi2VDVUBCaL03ynccG2bLVYVO34s4ng1G6r+t
b7/E/s+x4b3fCuEK+n/XCWxYvKNrzva9OJ9ENth9m5dyRhLP10ls8P09+86M
JTh+Chu2uT5V816N9vEyGwanfS3RA7SPqWyYo1Pu+/g88usaG5JrJvyqscT+
09jg0fI3eDAZ6Ulnw/NpG5fc/0j7/2yQncbeu0YHcRZZb0WfOQtm4fgMIl8f
kj93FqA/wGLDhIz4OcYmWM5hQ1f17MfWfByPx4bU+PNtf75hfQHRn6dulu+H
kX8UG+Lzr39p+IX2+hbRJ8M7DyePw/Y5bJgxOuzuWIz+Ty5ZH5Hsucf0/6Tz
2NA+qbFTT4g4nw1ZJ62UTolQ/wuIvIfGTLROp+P/bJCUHb/x8W7U32I23L8b
1bbTCdejhA0Klc3jtOsxHvCI2OPiNbzeSlzPciIvZZbcWA2UrwpiP/Z6jIrG
Ij+rCL8/LXwY4ob0VrNhIE044VUz7hc1bIgOrq2PG8B47HOi31yn50uC0d6+
ZEOI41q3V2yU51o2HPfZeqXCA/Ebok/eh05MNUV7/pYN5yUSPlxci+3fE31c
s0tV7ija53o2rJFdFDohD+f3kQ028nv18s/Q9/8IvezuPffp90HNRD+XXq50
lcD1bCHyvnvp1+IFWN7GhvH1rctWT6H9fzbE3S24OfE+lnewwcxr2Vd5B/Tn
Ogk/u3wWHvuM43exgbpw0flpOfLvBxs4FuyYBl/Uxx42lEjdnZ60H/8v3cuG
tKrOlC+UOu7/RP6miOecpb9f9LNhZdsq06O70f4PsuFR2oNFTwZw/sMEy9/Z
IS3A9Rkh+60z65jPRlxPMQ58XrKOyT2G/B3LgX2vrr20qMH64zngv2Ag3ecA
6oM4B8SaFrhruqP8SnJg8Zf2EzF0/FiKA6/OXn2o4o/nCRkOhLad1NusQ9//
40DOzQbXW3YoD3IccI5/aHdaAuVzCgdGPRUkQIj3YxQ5UHq6WavSFvc7JQ48
nTxJst0S5VeZA9Gm8/N1VBRx/+fArYI9H20DkR9qHChsmWexcRryV50D/fd2
PZW8jPPX4MCTbN8z4u9wfTRJuYvKpeJeXB9tDkisjOVU3cT6OhywcF2Qc5mB
/elyICDS3TeIjsfrcWCOz/Eefw20//ocGCj7MefGOpyfAaEnc7P39g2IDTnQ
66RwWz8B5dmYA+YpCy5P1sbxTDnwJo0/6c8BxGYcaC/vHSxUQH6ac2BJ0Gp5
VXH6/R8HpJ7ZrdnTi+WLSXvzpyoWk9G+LOWA2dxvueb/4XyBA0oPpxWtpfXZ
hgPFCRF9Dyfj/Gw5cLC4MTKvCe3LSg7UH7lVobyPfv9P6DeKqJ0ajv3Zc2BG
8fgjrWIoD2s50GLebvZcAu2ZAwderw48WToX9ceRA1a+2bErp2A8bCMHfvyc
V1kyi37/z4GK8nsdapoYT3HmgE8Xs2PSRvr9HwcMzIJHBuj3ga4ciF/rpcXW
ov1/DoT/8UmbcR7P2x4cMI46HW26gvb/OWB4b+LBhn1Y34sDCSs9Ir5doP1/
DjhYbXr0mn5/uYfIr3Xd1FwZPK/7cMBd7PyOKc1Ijy8HrA96txiNRfvhx4Em
pUsFJl9wffw5kLXyUtxFe/r9H5H3S88oaT72F8gBQcbJHm40zieIAwwzOcan
LsTBHEgKUqtdUY/jhXBgl3pcimIC4lAOfLDe1cryxf7DOHD0GJedzcfxwwm9
EmNtUg4gPyM44HlvRbfNT9TvSA5kh+14ZPYU5SWKAz0HkgaWh9D7PwemL9/w
4nwR9h/LgUXXpy9QnEa//yP8KQzTvEi/l4on9qM0fH76b/r9Hwce11g8Uz2D
/EzgwDnZKZY/hxAnEv3aOv9nVTD9/o8D+Zr6x+5ZIk4h8v1p3absJYgvk/Wp
UFBnBOF6pXJgstHORXKlOP41sr4t7dv7C5A/aUQeh35rS9PnhXRin1apHU1T
p9//cSA2XcVpgSOuRxaxj1FLk1dZYP8MDngM+WgPGaB/x+KA7MdG/QlW6J9y
yPyP2Nt+HUX/lMeBtbp3fXQWYbmAA1tLl3VlT0N/kiLzfdHwZtcM+v0/B+Rl
ddLubMP2ORzofGoi9NKn3/9x4ESubuU5P+RXHgeKeHJaP5Yhffkc+F6U71gl
hf0VcIB6++X8nH2IizhwQW3P0S3LERcTe8V6coD5l37/z4G6KQYTt81Ff/gR
B1Zu+W9hTznicg4YWUwp3GOD/n0FB7bHiTWrHMP4QhWxR80FZ9UTaP+fAweG
V3XLmdD+PwfEE6xt9sZi+XMO6H7f8vFpNeKXpP+p5ucs6fhGLbHPf4sKbjhj
+zccmNhkdWDbAow3vCX2dJ35V9ZmxO+J/AbWShkmYfyingPqLcp9N9MRf+RA
t3rO68T/ML9FIwfuL/FNvBuK8Y1msr763wdOuGJ5CwdcA37Gxf3C/BZtHDii
IVc4xxfzVbQT+XvRHSithLiD6KM0c1zmVMSdHOBRu+RqzTD/RRexR/7pb7TG
Iv5B9OGNS+kBdazfw4FLFvxdl7VxvF4OvP1+aNeNJqSvjwNVSS/++lKYH6Of
A1qvFB+JYrD+IAcqJQxr265if8Mc+Nmy0M58A443woGdkBzcOhmxGBcaGnlh
cAbxWC6Mf+2iq26MeDwXNEqul2bYIxbngn37+F3ymTieJBe8vm36KH8a6ZHi
wiIY/8GLgePLcGGp6pDS03DEslzwi//hVBiG7eW4ENk0q7xEBcuncKHlqQr/
+GbEilxIyr3VnpGG9ZW4UHljxPHlNMTKXChSm27YHIXjq3JBk5oQcDcJsRoX
Yg/ML1EYwvVU50JQWpB7gCNiDS7Yzol4c7sM+avJhRuT4g+2TkWszQWtIz5N
Z9/jeDpckN0Gy/KNsX9d0t5hb7HmH+xPjwt1U182ZtHz0+fCEEPlkEsH1jfg
wtekFM12a5yfIReuVjF1d7thuTEXwoOju4Mv4fimXHD5nPFjuzbKrxkX0ovf
zevxw3JzLsSnRXCrTyC25AJ7+R6TSXzsbzEXqIVZo+mzES/lwi+1pMNX/iAG
0v+k7k1xh5EeGy6Evh8qZhbifGy5sGUzs+/KFsQruaBw4tWDzCc4nh0X6qVD
c0dCkD57LtxmbfHkqyFey4XrHs8SU7aiPjtw4fGuUv3e2ajPjlwIyXvB6Q5D
vJELGw71859MQezEhc0Dlkv7TRE7c+E/FceRW3Vob1y48LH/+scVzzGe58qF
uWP2rT+ch/E+dy6kPlP82iCB2IMLQod1d29rYH1PLmxkKe5/moX9eXFh0psL
ZfxqHG8XF3zd7bwibtH5f7jw7nCXafdxtDc+ZL1vN62U+4TlvoR/mUc/6x+l
8/9w4RM1JG/SgOX+XBi9EjbMn4M4gMxf9MVlZhKOH8iF78m/F41PRn4FEfl/
bD9/5CCWB3NhuZPDr9JUnE8IF+7EH0tcaI/7RSgXXrxdN8GDzv8SxgXnR+M9
3+/F8nAu3E9Jc+xNQXsewQVl1hdZnzzkRyQXfOT+pK6QwvGiuLBXJeHsngjE
MVzolY9Znl6GOJbI0xnrBD4dX47jgtubrKN31iCO54LUov11eW44/jkuTPDp
vHQiDPfvBC48aDDIyJbE/SeRCyJj6n3iA6Q/iQvlt44fm9SI803hgvSGRLHn
lfT7fyJPERMG1tDfW1K54DGyzULwCud3jQsymQ7mZY1YnsaFYaO17zQKcLx0
LljbW/lvO4b7awYXuj/2aZm8wP0xiwtv12s8bupDzODCjn122SNuSB+LC1ai
1SPuP+n9n6yn78anJy/T+z8XwmQmHS87i/MVcGFx/Izl4IP9UVwwbu49NM+J
3v+5ULEpv9PwMNKTwwVBhN7Boxux/1wurDw3+a7SNayfR+xH+h2VvgScTz4X
LivmrNu+DtsXcOHE89qgs0P0/k/s75PCfZUSWF5M5j8rXmYbff+jhAv54Zpn
lspi+SPC346Di8ZtRVzOhRWWBzeohiM9FVzYFL1MeLcMy6uI/eryGRLQ9FRz
4bh5UvFlFtav4cLL4qsxq1/jej7nwsie99I7LLH9Sy5kbNG+HmmC/KrlwsHA
eJ3N+zDe84YLHeNb5d36EL/lgv540aVLdfT7fy7cPHWVFyPC+dRzIcHj7zvZ
2Yg/Evvonri/YTKe7xrJfhfFXlaag+fFZi4UPK4LlV6E/bUQeXhzcOP3cYjb
uDD90RnHO/qI27nwLHrFepVD2F8HF8bMLp9QcZt+/8+FgWkDY1YZIu4i/Lp0
N4H7BOMDP7jw6JzXibe3EfcQ+fjur8wRYDyhlwurFK568BTo+D8X2pyb5i+2
oN//EX58n2D4zRbrD3Lhs8bCuWWZeJ4f5kK0uIqMiyme30e4sPpNreTVr/T3
fx7oR0e9W0jnzxnLg9uuTwxK6PeC43nQVt+8ZW4anjfFeXDra83zewb0+z8e
ONd/eH5EFs+fUjwwiLE/ffYT1pfhgfn4I+abF2K5LA86HJLPBWXg+srx4PiE
6a0/6XxLU3jQoCduMv0/lA9FHhx93Hd8zFi0J0o8aP/2ybtvL+q3Mg92x0tf
PCOB9lKVBxP+vpBXVkT7qsYDR9YfS2t1LFfnwfn93otWKSDW4EHcx7k/trmh
vdbkQWKYc+/UQ9hemwdPSiQmnr+BWIcH/nU5PhlXcX/T5cHW/Ytm/mLS+z8P
li2wyLrcj1ifBwW5BfqMifT+z4OMjz/eflBCbMiDn84nhFPp/GrGZH6KOcoj
HxCb8qC+T7534gvsz4wHIVft+ZwOPF+Yk/7bJdwWZSG25EGXwivNW7aIF/Pg
V3fZkQ56/KU80P3Ym2I5EfsDHigaOFel1CK24YF195mSAFOsb8uDrE3a6r/G
I15J1qsk85qkEvZvx4MYdvTqsQmI7Un/AzHP96TjeWItD4aSgl+PbsF8bw48
EG8fp7E5Owz3fx5ovVNduOgIlm8k8rhD8POwKbZ3IvKimda/6jyO70zk417z
ulYpxC48CFq60cAsG8d35UE646DnplWI3XmQ2S3cuDwT5+fBgwOzanu932F7
Tx4sn3z87P5viL144Ba1ZE3CdMS7eLAkUMvR1ADxHh7oHWeeOJ+P2IfMPy7C
8ttF7N+XB1zdH2PSF+D4fjxQbnhXOOMNYn9C/4+Ip32lOL8AHqyjjrbGXMfy
QB7sHa7kbBFDHMSDlCtn9Cd4Yf1gHpS4M4b8eFgewoOnvifcPGh+hRL6/2yb
5WyN/Azjgay2xzKpR4jDecD26w/Yrob8j+CB+4XfZUIlxJE8ELQW3umadQL3
fx4UK/V+NM89jvs/D67XBsZ1jWJ/sTyQK9X6r08Sy+N48MxzMGP0M+J4Hgjl
xX1kBEjfOR7IHM3mF0XR+f+Ivv1ObubEoX+RSOTRfseqaD7WT+JBUeb2wyff
YnkKWa9rnLuvv2D/l3mw8bLtVBc/pDeVByvmb1dUlUN8jcyvUMyu0TQC93/C
f+kThnAMcTpZ3+6PWyYNIM4g/BupdIt6fhL3fx6cZJ7JquEiZvBgeOmhJu5N
xCyy/k6/R7gOiDk8UN0wbJ48gphH5GXa4WbPK4gFxB5aHWH9+IaY4sG0UE6g
xDUc/xYPNIx/9vZEIM7hgemT4d9N18Nx/+fB/kuLKqXFcf55xP6WuppazUOc
z4OcHc0RfwdxPQt4INWVOlqki+VFPFgsbffW9iGWF5PxrZwTH2xEXMKD/hb7
GJt3WP8R4c/ohqHfKjh+OVk/+Xs35ttj/QoeuOicNb5+ANezigfrm8pU7iti
eTUPjHvnRPLv4PrV8KDaYMxXPXHEz3lgdMU7cKEd4pc8uMA7kyL1CHEtD3Z8
u/DMpg77f8ODFwNn2odCsP+3pD9xCQmTtUjfe2IvX740sKPprefBojW6e3fu
Q/yRB02sfUby8YgbeZC9JyM63Qjn28yDw4/32L2Wwv5beFB4atTg617EbWS/
iI08EtiPuJ2sf75J+qgd0tfBg7svOy9NT8XyTmIvtcz/GElh/108mJp1iP/x
CZb/4MFvb651ojfiHh4kTWat1pdA3Evsb3ukT5wt9t/Hg0/s6Ke+U7C8nwe+
CTcpfWXEgzyIPrZboUMc6w+T8SPH2V+g/fkRHnjdCdeZLUL7IcYHq1/erx8V
ob6N5cORda97nf/f/+eDLXtp9MMPWF+cDy9Och38j2F9ST5se9Z40HoH1pfi
w+LlHmejzuL4Mnwoy9QKP/kC5y/LhxtW6/Kd4rG+HB+sWxUbZ4zQ/j8fxGq7
P1S4YrkiHxb4ZXoH1CJW4sNwqX7y7D7EynwI0opeUEXTq0r694zs0TqO/anx
oXLK/RR7f6RHnQ/Tc0ZbfX7gfDT4MFE75FSpP2JNPiy00z3afArba/NhdvJ4
wbq/iHX4sC9rV9VyBcS6fOB+XxSzG3B8PT7Im28W/07vf/qEHq2zS3WrERvw
YZb3n8oKEe3/86HQRKCXao3jG/PhXp8G0ySF3v/5UH7FokLyKJab8eFCdX3j
VSt6/+fDq7IpfdbZ2J8loXeDzcivR/T+z4dc/Ux+SQm9/xP+nWnIygml938+
1Kk3XFCg/XkbPvx5eHjuMQfEtnz473lu9eb5tP/Ph0n3p2k806f9fz5YlG0Z
eOyK2J4PDw6rOfvYIl7Lh64ZVY6xFtjegax35PmLHvR9L0c+HEocWTHFHvFG
PqhLvc2jgvF85cSHh79aYpTeInbmw66NuR3VqXhec+GD9mrLzcta8Tznygef
3OGkBkM8L7rzIUr2TP3nEsQefJDWTKlvcUHsyYekxRab27PR//Xiw+3X71Oa
HuH5chcfssdeNzgyGc+je/jgHRdkqDZA3//jw7zuBxJHhYh9CT2vrYwTdyL2
40NvqOEp7yz0P/wJPaHFHauksTyAD4NvnZ6cf4Dn5UA+1DzdOuWoBdYP4oN5
dBS3aQjPz8GEf1ffMP7S+VJD+HCe/efc8nLEoXwwqxR/kSWHOIysf+Oc2yVa
eL4OJ/L1w3VcSgb2H8GHU4evxC+ZS9//58ObXx39mcVYP4oP3yddLvaXRn82
hg97Fxvdyu7G8liinx0x+xu+Y/s4PqRu8LxrEYj+XjyRF63kc8s7kX/n+DBh
pZhi6TjsL4EPgaVXrDxssH4imb/b2zmH6XxsSXzYvGAJQ+Ukzj+FDwLLj1Kr
c5F/l/ngqdBik91K+/98+Nofs8delc7/x4fL3ZOtqpwRp5H1KbdKO38B+0/n
g3tO712HKbT/zweKe2zKzPvIvyw+rH43ciB0MWIGH8Q3XI9rPo6YxQfW6nHN
mZrYnsOHKcLqZTwmlvP44HxTm2vOovP/8SHmUZ7zf1JYTvHh7u6Px0/R/tMt
Yi+1tPyUWFieQ+RNfujUmXJsn8uHzmfhxzZ3Y/08Yt8ionmx4ei/5fPhkvVP
tdOz0D8r4MPYw6ptPBlsX8SHcXVm5dMNsf9iPsg0jrp9vo70l5D11dKum+2K
/HrEh2Cf60I7ivb/iT5wpCxdFJF/FWS92y9klG+n/X+irzJBsjv20/4/0bca
sf1G73B9avhw/+H8Ta0dqF/P+fBJdF3MbT7q40s+tKW0lhuNQ1xL7HHDjqaR
QsRvyHqV6D5WG0R9fcuHDSe19m1Wx/L3ZL4KfS2qdLysng9yQd7arqpY/yPR
v7wXZee66Pt/fFCWrM07/g7rNxP70jasPK4fcQuxR2MfPpiyA+1NGx88VvtP
sf2B9qidD5vu+n+IOoblHXzgSzr8F7sOcScfdM4nS5pNQP+xiw8GjFODX/di
+Q8+pB9wmPeN7r+H2EvrvaJLq7B+Lx9C2jbzM8WRnj4+ZO1bLrNtBfKzn8jb
wER9azp/8yDZj9rWmaY+Rv4O88F/3e/Tk2Zj+xE+GPImMe7GIhYTgMIk9dyy
u8iPsQLYcrzJOukK2tPxAjBbkhyQkodYXABaRm2PJ8shvZICuJTyWs2R9oel
BDD3l3zHjr9Iv4wABKbCH2cfY3tZAUxew1xm/ZbO/yeA8YtzQ+N7EE8RwDeL
tM6J+5E+RQGsV/E+spX+XqQkgOaY36NXj2D/yqT/A5HS73txfFUB/IkJ5qhN
RfrUBJCeGa5Q54RYXQAD69VnXJLC+hoC+NS87/ISOn+6pgC8vdctPLKe9v8F
sFlsW7L3d9r/F8CukfispgakT1cAE4WBmnIHsFyPjJc1fdM8ZaRXn9D7MFFl
uwDLDQRgenag1bUfyw0FIJ+xTs/TDsuNBaBvZv/KhJYnU8LP64JWhVbEZgKw
3vberNefjv8LgPFgtlkdvT9aCmBRhJ+stwPixQKIO7Q7od0G8VIBBE95sO/a
B8QggKV3YjeFrcX+bQTwo/TIa8U6pMdWACdlFzTM7MT5rhSA/+fXkVd5SL+d
AEaeZRxRTcdyewH83QObVfyxfK0AnpzqF9rS+ScdBMCc88FK5zRiRwEYcE/v
v3Yb228UgLGnLOvERJQHJwHoKm4Tyh9AeXYWwGrjgIk92ljuQsY7GKzVY0fn
/xfA6I3RRa3rUT/cBcBvfbFGazzaKw8ib3U7z3dY4H7jKYB5C9bvdXVH/fES
QODiF/aT1iDeJQDxJybrnELQvu0RQPGWgbz5dP5GHwFM0tyfIL8Y6/sKoNJ9
zI5H6vT9fwFks73X//qD4/kLwP5B0vyHhUhvgADaDr7OHEvHtwMFoPxEaf3Z
A9g+SAAmw3JBkmzEwQKY9eTvQ62HdPxfAHV6wSHaavT9fwE8NrAe89cR64cR
+Rv5sSmGzkcZLoCpU9ZWP5JB/kUIwOE84/CtY8jfSAGoXwmvuKaH7aMEkLF+
aN++/TjfGAEcrNoXNPyB3v/J+l/85Fdeiu3jBDA/76/0DXp+8QJwjMtTDbKh
4/8CAG/l4W76vUWCAN7Mlsx2+UV//xeAc8Cs9XaRWJ5E1jv3cCpLD/e3FAH0
+UTL6ojhel4WwEyD3E91U5G+VAGksR33x9LvK66R/uIOC/tScb5pZPzBqEtl
uihv6QI4+nT4nf5VpD+D8L9G3KvwEK5XFtHPzCtnWL+xP4YA/OZcVO+RxPmx
BHBe7EnF/V7EHAHsbe/m6ZhhfzwBCHt3ONT4IhYIYGtm/9x+WxyfEsCchlSl
Z0HY/pYA2pf7XVunjvTmCEBbSWF64wSsn0v4y44dv/I64jwBLDb21tfgoj7l
E6yTZ1ntQ9//J/LatlvG4hJ9/5/I4xT9g9L+iIsFkPRKYYf0NMQlAki29uVe
8cXxHwmg0cOl8dsf+vu/AI4tT2ti9mJ5hQA2hr06cCeU/v5P9PnS1L/j52N5
tQA2TBo9YB2F7WsEcMdccuyGB/T+T/R3i+wd4+n0/X8BlGnO2xdkgriW0Mu8
OGkLrR9viL2/8sbJyB3xWwF4TtrvEmlI3/8XwEe/Uo0DHxDXE/7eOmWet4De
/wXw6Ml3o0nhWN4ogJoheb4NLZ/NAhB5rO+ISqbv/wugUM/udelLLG8TgGv+
3ibpwygf7QL4vjy/0FYB63eQ+RpK7O6m492dAugS9Cx+NI/O/yeAvFa9A+Xv
6Pd/AlBr6i98dhbPaz0CCL94SHTch77/L4CWn6Ur5mxD+e8TwGkG5Hv1YH/9
xN7cydR5LoF4UACHxByEzfT9kGGiHzN2RWyYhPSMCIA6f3bZ73GIxYRwgCPS
6J2M9ccKwcaPpTbNi47/C2Gr7ynXO0dxfHEhpDw40PHaAOmXFELWb4HyM1v8
fiElhKrkJ+Wn6XyGMkI4mJu9SOoSYlkhfLkk7lJ0HfuXE4JBo59z8Wwcf4oQ
iu5mZFra0/n/hXAl9WFA1mSsrySEF1KzvOdWYbmyECIGhk4/ZSNWFUK/du18
U/p+kZoQdC7ljdoeQawuhNFhMY8E+n2lhhBq+SPFvpbYv6YQFF+ZRGrS+R21
SX2rOYtqh7FcRwi6h9siYun8+7pCsFtvcSptHv3+TwhJg6dHru9CrC8EywV1
vziBiA2EMOGtzeRO+n2hoRDuBmSfP3ANv88YC0Ft9YnYEz7IL1MhlD6R9bv2
FvlrJgSTW8keNSvo+39kPf7bmrPFHO/XWQrB1YIlW6yP9+8WC8FtOHbtp2mI
lwoh0Xnc1r49eJ8QCP1au/dbaOJ9XxsiD7YNEgrmdP4/sh59xW9FX/G9xUqy
XrmHXB7sxPundkIQPeAXV2ng+2Z7Icgx5RzcAvG+4FoyfsUGflEO3vd1EIKe
U7VB7Ce83+8ohMpNnw7a+eP9zY1CGCP/bN6r53h/2Ynwu+eWTOYI5jd0JvOd
ml2RFoD3J12EcMnYVxSWgPVdhbA73h0WvMf7n+5CaFpg2njKFet7kPW1aa5T
KML3CZ5CSF73IyGCzj/qJYSuhRPLJGJ//ntfsEsIVtFObKPjU3D/F8KG0jF6
7DrM/+EjhBXtwUdLT2L+NF8hyES4XlOo1sX9Xwg/5dScGvZhfg9/Mv4V4ygv
DvIjQAhh5by0CnvMpxgoBM8G87M3KsRw/yfy11Q2LBeK+TqChWDcu2mLhuzU
f/VDhGAx6vNa5hjm6w0VgvX2OTebL2P+ojCyvom839f98f5suBDmAIO3fgjn
G0H6cwv/XJ+J9EQSfU+ZnVqdAP/eo0QJIdhbISt7H75HiSH0z7JbZZaq+A/H
CmHflt1HfMoxn2ycEL7KushpX8d8SvFCuPzyV99A4J1//Z0TwiLdhrCNcrge
CUL4kJO35Usdrl+iEDoyazbINuD7mCQhnHFZOEMuGuunCMHPrbpF5yriy0KY
ufhN551mrJ9K9Ef2ZI0Dnd/5mhDml8UIEn1QHtLIfDofpH1RR3lPF8LpaxZ7
vHvwvm6GELJfdvqUVOF91iwhHLcPnTxrGeoXg8hDiRq8ekm//xfCkdGPPqy9
qK8cIZyVOjXPm4v6zRPCyKvBGya/sFwghHHMyosMT8SUENYdWfMtJQTtyS2i
H9JjCjYGYPscIo/pV8IY9HvzXCHk7/aadO8VlucJoWfti2U8+r1xPrFnNS/3
Z9L/UykQwvgHT+PWySAuInhCYbCLDNqTYiE489t8Nhbj9+MSIczbvkPV/hTe
F31E9Ouh550Fl9HelAvh25E9SS/2Yr6WCiGc3HzsXcJc1KcqIZQHPN18aQ3e
Z64Wwo8d0wa+qGE+mhohaO1Ubp+qh/k+ngvh6RRBx1Y/tEcvhdDgPaI++TTy
u5bQK6kkyjuE5W+EED+j71pOEOK3QliTNMntcyzi90JgVVS1Flhg+3oiz2YP
WuVEdP5/wm9ntw0M+n8DjUJYaN3Bb82j3/8T+2bA6la/S7//F4L2Ayqzp4B+
/y+Ebs+jLvUOeD+2neyXCeab8pfhffkOsj893a/c8QZxpxDMblz/trQe71d3
Efs1PT0loRDt6Q8hHCp1VuwaxPcSPUK4s/3m9cAElN9eIQyGX726rgz510fk
V2ex+s7zeD++Xwi3VAXu+yvRHg+S/SeVtV16HOrTsBCCdBI4+6LxfdII0fcv
s9WUx6N9FqNgXbX3nOTPaA/GUCDPm7tqRj7q11gKpJYaNy1Ziv2Po6DK9UFx
LRvpG09BjcPlnBRVLJ9AwRMvWefnRmhvxCnYcea/2Ff0ezcJCjYcs1N2Gx7+
Z68kKRDqe5+IXYL5rieS+qVH7uQewny3UhSEbH7PTUiZ+w9LU+CU4Tw1/T7m
g5KhwOesSTf/DOYvm0RBz6XfbecyMH+ULAX/6VXeWOj14J/9mUzB70qvsnmJ
Ev/Gk6Pg9s3lBXdiMF+5PAU/wyc6VX3EfGpTKKhc+qx5Wx7aWwUK6relX8pe
Y/oPK1LwcehHYPt4zF8+lYIGjf8eGZpO+YeVKHjv0dfPZqC9nEbBmraTA6sP
jPmHlQm/Xp348jkG37epUPAurWdCYQyulyoF28SXDn7yQn5Pp2A0MlvivCmu
jxoFH/6+Mtk/gvZ7BgWlw7J/s1RxPuoUHDso1TBYgus7k4Jil55Z6t/x/ZoG
Ba3VJYaTjuH/AmdRkDc2u7DKdsY/rElB+cHSM3N/4/tALQqmsde7PSuY/g9r
U+D30ErbJA/t/WwKlrib/c69gfnxdCgw31e/cbEn5iubQ0HKsqzOYTPMT6lL
8PXUST/o/yPOpWBP/uync+5huR4FRp/yFBzZWD6PgrsV29pfjcV8l/oUfIGa
B4fcsHw+Wa8Pw2n33mF+TwMKOjOvZT5YgngBBQUXxpkPT8D+DSlIuAgfA2wx
X50RBVM/2WaKz8N8a8YUZDoOrH6mg/+DNKFg/dzOutg3OJ4pBfsnrTt19Rri
hRSoujxTUAnBfHJmFLhpnP107jfmA11EQZ3aoWcSWZjfzpyCU7MPlwbbIb8s
KDjQnnhkawq+T7SkoNrA5N2YDsyPaUUBb1nok3RfzMe3mIILgi3X733D+Syh
QLJbV/nmbaRnKZE//Yg0N0PMr2dNgXTMw1sJ2rgeQEF0YPTGa5OQn8somKRR
k0dFYP5EG6IPh1pShc6IlxP5sNcQpOpi/7YUfDIJTzyQiP2tIPJxf+1v1ydI
70oK9B54zFBche8zV1Ewsv9bTMlNzJ9qR4HaF/2DvVlI/2oyP/67WQd42L89
BTk7a1JslZB/aygwHOvgKbkX8/mtpeAy44TT83dYvo6CksEVzDxPpNeBgtWN
P3at52P+vfUU7LajrpfF4HwdKTjbbb3bUhXxBgp2hoynHq3G9dtIQdScyNSd
PMwnuImC6dZGfSHadH5KYn8Oysvm6WL5ZrJ+UvnTdhzDfKDOFOzzM/ggwcP8
hFso8N4+6NLOQHpdKFis2rzecC7mF9xKwdC9+77aLOzPlQIdjQNihzQxX6Yb
sZ+ijJX/+WB+TncK4qT7xiV0Yn7cbRSIG+wXZNcj9qBAZqt43cJHmO9zO7GH
iX87/T7h/1g9iT78tH8uY4t4BwVWaUmV+X7Y3osC9uoXG2Qm4/g7iTzl2qrs
LsDxd1EQIafqv9QB8W6iv4eGin6bY37VPRRMaBqzJqYJ5+9N7K3mmEMxYnT+
bAoqqk2CoAHxXsKfp18PT6Owvi8F6XuoMIYC8nsfBUdfLWd9XorYj4JE19MS
5ET9D++n4EW6drLZamzvT4H2mg17x/xEeThAgYlXdu2XU5jfOIACpYdj5GYH
4Hvfg0R+HfQyOeNR/wMpiA+8pNNIvw8+REGvaaxF0Q7EQUS+F24/vjUb5fcw
2U/PKm9NnYc4mOwPCgHhm1RQP45Q8ODSktV+STh+CGl/OXHtmuVoX45SoFj2
tWtpKeaHDCX7cRhD8cJk1N9jFBxMnvh0+V3sL4yCl5ZXo+OP4XjHKdjLWjfs
tgftSzgpn2qTemw16tMJwn/nZ81qSlg/goKTvNsO/s9wPicpSFoV7XigCnEk
BZ9/N3X7qGL+41PEvrj8cP1+xvofjiLy62PVt+oY5iuNJu33nV9yYRfmS42h
QH8329a0Ht9fnyb6lxResO4O+jexFEicHrP0vRTm6ztD7OVVx7QXOxHHkfEn
LnrzJnTk3/59loLs/Q15q+fhe8h4Cq6a3r0uvxfPO/9R0HiwS0vpDL5HP0dB
+5LmeX/dsfw8BX0LZprLNzT9O38kUKBlEfqgYwPWv0CBWU2ogepyPM8mEv5z
glvsTuL57CKxhzWKEBWI7yWTyH760jI+lc7Pl0yB9d2GyNAYPB+mUDBDtIC7
nc5HdImcd2bDUOgVfD93mexfN/5LvReN5+krFJStnntvVB/rp1JAfdnVKSNE
f+Mqkcd2qx9hn7D/a+S8tMu9rbsB61+noIudZLRjK55X04h90KwoUK/H8+wN
Ig/QavCS9hfSiT71Se7YpoTn45sUOG6YsTTxKsYjMijwVx6eGmWC9TMpmHi3
p0RdCv2JLLIe9t2hHQcRZ1NwR6rpyeW/9P/SyHmkju37ez76N0wKXre+la5K
RcyiYMsL9ouLdHyETcGioIIY1jks5xD7Y66r+eQcxl+4hF+Cyrb1sfT/1Si4
mamjl0jfp+UTe9eX0TH3LdIvIPawM6eTeQHvwwopuL9bO+tbNs6HomDrqSf3
TyogvSIKfCuy1AVM2h8j9mRl6JmfWTjebbL/fTniuTOd/j5LweHNshNm0N+b
7xD7OkZlzsskjE/nUuASa5ntFIj4LtlvHE6X6DTR/28l5wnbcn7rAiy/R+RJ
11vg7Ef/z5WcpywvHdS+jPHG+8ReVW7W/H4J45EFFDi0Opn9uofx0EIKmga3
9GhV0P97pcDjT4J6jj7GOx9QkOrx+Xl9JdYvpiDLZtPcQXnEDykYDDLy/aRC
fw8m55M7yrHDsxGXUvDrU6/K7rn0/XDCz5+HN/wQIv1lFARFH9a1KsB4Wzmp
n5dzTbIC44ePiT6Ivd4VzcXyCgr+/qrfdzsTyyspWBsdnjfchOtRRcH3RbUj
qYa4vk/I+o5Zc7BbAsurifx6fp41Zx6u51Mi/9L3C8tvof9VQ8Fpr9cGJ17h
e+NnFKyytknzykX/6zmxV2H1vq8sUf9ekP13dKyO1jX0X19SYCGfMOvjL3yP
/YrsD87b/yhkYn7+WnJe+R7VM+iB9uM1kdftxxf7fFD7Z+/eUBDZbPR4Qhvm
V60j8rZ7xdqn1mj/35LzpvQ21W4HtNfvCD8Oykw4dgH3q/fE37o6uUtiEuY/
/kBBsvLDia7SeH6oJ+dd3prS3Bd4fmkg/ol3hv3JV1j+kZz3arf5JfzC88Qn
Ys+00k6ETEfcSM5PKet2jKZivuMmot/byv3uMxE3U/DmzeTwk8cQfyby2rPp
w5sRxC2Ef6aiWg8Z7K+Vgu17Eidez0R624i+N1gvVv6A+As5zz5ekhU1gOfx
djK/RZvLL2Qh/V8pKBz97ndvC57XOsj+wf1Z/Xwunse+UVB0ZU73uQDEnWS8
yGnXlY1wvt+JPhSutdz0FvvvokDD244/FIfnq25ynp86Y4ufJOIfxJ8qjGf5
v8bzxE/CvzEjMEsf59ND5FHn1KdPYlj+i5w/ryxpiszB82cv8TeD30+NE+H8
fpP9zebZbi1/xH2EP8uvLwlZhfT+Ifbw1pmHSt9x/+0n9mFr8q6BJbi/DpDz
09T0l086F//Dg8R/Kn30OuQr7p9DxF9MjL2lNg795WEKdL10BEJN9Pf+UrAx
a+BWTSfudyNE3g7XndTzwXzQo0Sf3J+dbDBGf1xMBKdejVpsUMX/04wRQdAj
7VkVvfj/pbEiSNmUbJP8ccE/PE4E19327A1zw3zn40WQU+Mdd7gd440TRFCm
NbHzqgr6x+IiWDitOW3ZAcxvLiGC5kqHOFExnnckRTDuGaPfchnya6IINI4p
tRQUI7+kRNCvP/bLWy6ul7QIrOetVcv/hfyXEUFXZ/PqICNcn0kimGavtGzG
aSyXFcGF805DRpKIJ4tgxhfBqeRsxHIiCAi5aW7oj1heBB293PGz+Kh/U0Sw
Xmxzga8XyqOCCIzXw7Iza/E8pSiCPx/6pKZ2ov5OFYHuqW8b3ljg+VFJBEs2
uU3XL0H/choZ3+NlmCQT5V2Z8Dv3bGWpKfpLKiL4PTGT/TwP26uKoMXEZ+ua
ZvQHp4vg5d/lKd7vkf9qIrAdO9dpyA//lzdDBJGOUvO6vDA+pC6C+BMBSdLF
GG+bKYJXJ7zHLDHB+KeGCMTmD+dzevF8M0sEixIKzjnEYbxKUwTiuz6tfLkW
7aGWCPZW/ExQN8B4hDaRj2CDkLgDGE+aLQLh3N85LH+MJ+iIYHSqjGkeR+of
nkPqzzQpGNiM8qArgl65HOWO6TifuSLYeWnAoWUuxkP0RDD3aGrZ+W0YH58n
gjP3zn05uQDlUZ+sn2drx1Ao+s/zRWCVW6xtWIv/jzEQwfx5l/bIPMD40QIR
vC98+HHdIozPGIrA3bg/X00P6TESwWe9Zt8j/rgexoS/zblzapPR3zYRwYqN
oQfUeIhNyfyYVcaNY1CeF5L5bXSZ+C0O5ceMrN8tR+vjgyg/i0TgnJB6Zn0X
YnMRfH966FzvHpQPCxEUdofWv+HgfCxFoPL70QXzaaj/ViIoX57klSvC/+Es
FsEvc//9P9zwvL6EzNfpv5hzm9BfWCqCVfVfxVZwkF5rEWhu6a/4nYz2B0Rw
KN1+z8wa2v8XwbGvuy+rDCK2EcHdWM9JejNQP5aLQKruwWD1PdRHW7Le+2UT
nhbgfFeIwMlue2LGV8QrReBntzzrRzja51UimFg8NOVNGvZvJ4LcFxvGzLTA
/leL4LKRla/tIvQn7UXwJG9i1N4wxGtEcLbAoezvUsRriT7WZVyTNUT/dp0I
7mT1q8x7gfbDQQTVweFR4y7g+OtF8HegtmhnFdLvKAJHqzUeI15Yf4MI/De3
nSo4gfvHRhF0ZxnNMdmDeJMIvJkcfctnqO9OIuD0XDTlqeH6byb68unh14tP
kf/OxL4ePPxj0ADXd4sItHy/ODlT9P+riP36/ClbxgP73yqCRIjZKq6C8uEq
gpo032lP6fiEG5HfEZV3t0LQXrqLYJ7UWcbYnTifbSLgr1R67bgN5+MhAokt
pdedVZC/20Uwfcfr5NOT0d/2JPUj3J7KRON67RBBAvfyxYZeHN9LBE9bfsU6
9yPeKYL9H/f+vTcT+blLBDc0PnVLfsTxd4tg2+SOVcbliPeIwDO2wGf/fKTX
WwR1eyI2t7DQP/ch+iHMH56zFe33XhHczmnPdDuN/fsS+lySa86Px/b7iL7U
NTJu0PEmPxFceaz+2dMG+bdfBFuP56XMVUV59xfB/d9lBatt0B89IILs5t60
W5X0/7eIPjku/zHuAcaPD4qgUfdVzt96tLeBIvC65euzRhHtxyERDMO98Z7i
qI9BIlgmDEvM+CjxDx8WwclyLcXPh3v++avBIki/t3Tu0gY8Px4Rwb788WKy
H3B/DiHz0Sjf13kU4/tHRVB5XiJw2VL83hcqgqxVmx03rMDvb8fI/rhc6/SY
Dfh/gDARZPbbfFe4h/Hp40T/PE5OVlHH/G3hIui716snjEd/+QSxj5Kx0ca7
X/3zfyNEcPxd8i7xm/h99SSRx9Qoo8RkjFdHiqC2ZNT6wXyk55QIklcmd946
jfOJIvp2J8sxvAy/n0UTfc7VLRpSx/h0jAg+yKnNqKXz35wWQUPN5sZzbehf
x5L5yX71X1WF7c+IQI4bMtb4NtaPI+cDj5cnF7/HfEZnRcCcFeO/9QPuR/Ei
ELRZWz4cQH/8PxE8O/7Mf/pU9JfPieDrpp64+CH0/86LwOjaosMGr/F7VwKx
hyW3Q0aeI74ggmK29bPAleg/JpL5nP5ivJTO33WR6P/UmduTdbD/JBGcV9u6
akEe9p9M9OXn2IokX/S3U0RwsLDaXvcY7f+LwKJnYK6hJta/LIIv6y2+7L2C
+Arpv8zisos7fr9KJfXlbs7Iu/Z/NJ13XM/fF8dRtpSmNGQlESXJCMdORkVG
USIkWaGEIrMiURklQnYyes9PSXb6ZmREopIyQ4kiMn739+j1/vP5OHffc885
9/2+7/vG84XENIoee849S7kP6yCLt472OXHgD/z1IeYPT64+X/UB6ZPS6O+Q
aTUdkiA/nEbaD8MPDR+t3H/G/O3L5S6juqL+o2nkdX594I0eeH6QzPzdoI6J
XwejPcfSqE1pk0E7W0N+PI2WzR14dNMyyE+kkUPK9CWmgZCfTKNXVTXfzrWD
/FQaJY/qOGj+RMhPp1HWO6M1/9qgP2dYewqCLDMvob0padT7t4vL7mWIX86m
keOB192S9XDeIJWtH/+P5lSJ90/n0ih1rekto+1433uerf/xcZL2ZMQnF5j+
xDzaOS4F5V1k5Ru6Parvg/gnLY0WTD7bvNF5yDkWD0rHomzsEe/wbL1Edplb
rNy/JaSRxmPbGxnbsH5F5j/fuG+ol5FeSiPTRVpD/LRQv5xG6uk+AdUdUZ+K
xafcsJIVJ7AfTU+jplFdS7rtAmek0cFKf611GxCvXUqjiGED0+6kQp8ymf0d
9zkwfwb4chq9r8gtDVTuY8pKoxstNabYOGI8r6RRRueCjP2r0L+rzP//et3W
dRnk19Ko63GVy42jeD51PY3m37qR+U+Avtxg+hBqe0lfeb50k8X/UrOwWQVY
D7fSaLLu6f5VrtifZ7P0Vil1J+9j/36brcf0nwPGPcJ6ykkjjyX/Gtkr/5/+
j9kfm5O+N5X/ream0dHTJWX5l8F30uhmxDCfIF/wXeZfrth3tG2J5zP30qjF
hKzsFXfxfOF+Gl17n952ZhzOO+Uxe6lfd8g1Hc8bHjB/93a3pYs3+GEapc85
4fnNVvkffRqZF+luaDsM/XmcRmmD8gbGvYB9yE+j7s+cVsTnon9P0mhQI6eh
8YXK/+qZfkTtSsz8DXkBi+9qna1E5f+uz1j8GaNrfeETyitk+nzkiKH9YeU+
e2avytoPa7sa8hdpNGDyGt2RH5T/26dRmO2WVc4aKL+YzYfGK92QeMhL2Pg/
taj7Nx38ksUPufkj48dh/EvT6Om44pW7F6P8V0yfrl+N+e4De1DG7Ne8P2dX
rUP68jQqauvVu6Srcj9eGm3tlVjR5hrSv2H+4eaiCTU54Lcsfgx48nflMejH
O9b/W2P29rgIfX3P4oWmT75Ns4D+fWD2LHTUriJX6F8Fy78v4/0T5X8wH9n6
fBk1bKbyP+1PTF87Vqas2Qr5Z6avR8//PT0M66UyjQJHl1W1M0H6KrY/O07F
7kvx/PQLiz8O7LrmXw77VM3iid6ax40Hw35/TaOX+pvanc6A/FsaXU+rtD4f
ivw1bH6bq73Z3wP9q2XzuVPL724O1sv3NNIfWTx5+ALk/8HG09bWJswd41mX
RpbWhxuvi0L+n2w/ZHFkrt0TjO8vFj9WB883yIU+1LN4vv+zfwWnMZ+/WXzU
1PtusQv09U8a6en0rDxSpNz3z+zd8oKlHzzB/5g9MNAonixBXxpxVNm1cLyG
O7gxRxcutb9Wb4P0TTgqzFpiuVm5f02No9iLLjsPvodcnSP3AE3tdtdRf1OO
JjSZRYUPlP8FcLTmiPFytb5YX805Ov6t/1sDH6zPFhxNvxRq7a+P9dmSo2Pj
P6Ze6QF5K44u/5u7abkr1ndrjsoNbnlFfsP6acPRzU6Ow5Lz0R4NjlwNj06a
agX9a8tR6BM14/m1mC9Njl4v99ujk4PnfVocLfxo9KRxW9jLdhx1uvE7QCce
86fNkbV45ErTh9BPHY5+tOu9yGEj7Kcua/+63M5XLsEf6HE0+bWJw6pEsD5H
31uvGfDuO+y5AUfJphFr56xCvNOeo/utN0QvtIb+GnLkcKokK0kN/qsDRz3W
Gw8ZY4XnO0YcGcwzSP81Bc8bjTniHG8OK58Nf2LC0SZuzPDFGfA/pmz853/d
t7Mv9tMdOXJcqffd7BjkZhw1913o5xqP5wWdONrg3mPsvRX4P2hn1r5D7rX2
U8FdOJJzpjibxuO+3q4ctV793H/DHfyPtRtHO1pd3ZH9B/GtOUe35zVzS0uH
vDtHFT8CxRFaOI9gwVHfHNcBV5qhPz04qur96W3COPTfkqNDWd+vaWpjvHpy
dDqr+Q5uJeajF0dfMoZpRRqh/1Ycfd5e0vqpcp6mN0dnfyXdGaIPe9OHo4Pp
L7I1dDC/1qz9nn3XjFf+32LDUbvSS7t+ZGO99uUo3fyT0T7lPlZbjgQhN9C+
P9ZrPzbfa3q6bWgH/bLjSCPmitbPSqTvz1GRRsjLzx1gT+w5St1Vk5fUCutp
AMsfX+9scQ3ygRy9eN/k9Vblvs1BHA24arl2UDl4MEeLJx1pMvYd7IcDRxeb
Phxe3w7yIRwd7no4cc9A5bwnRz1XZBd/OgZ7Mozp47ik8a+9sd6Jrd9+Z+p3
9Uf9w9n6fLnow80DkI/gqPrS5eePW6C+kRwt8nFZ9m0S/P8ojhK9Ok9MboP8
ozlKe9HRJu4/5X9RHM0qyRriehrysRwNDjuxyKkCckeO1t4/cmIkh/aO4yjr
4RxxmynSO3GkvT9i/WHFv4znaM6ZixcnNkZ7JnB0bkjl0P0rMd4TOfJI8oh2
SEJ5kzgq3dpyoDqP+XXmaOqog/UtyrH+XTha/mtxnsU57C9cOfIa8+Tp0r6I
LydzNF5z1pqlKpxnmsJRuHqE371/eN7mxlHO0i2DphngPOtUjmK8v7pH1f1t
2F9N46hf60MJSQU4nzOdo19T2+923Ij/uc3gqMX2g4ZPW2B/5s5Rn/d3DC81
xX7Lg9lbo7TwG8vxf9+ZzH559B8wqgvW0yyO9vbJrWjXFfdzezJ7HqEdUTwD
+b2Y/VrUY9XieuzXZrP10tpF789+nC/y5sh/QmPb0dOx3uZwxN8/mEtjYL/m
Mn9Qa2K7+hHiWx+OIjw2L+s/Afu3eRxtzomYqKYP+zafo6GnN8xvZwx7uoCj
bZ9+dN04B+zLkRk/n3c6jvFfyNG87S+rkvMw3n4c5cbNr/T4i/3AImYPNq3p
O+UV8vsz+145I2hoL8znYo4O/DTU0J6L+V7C0dWnZ+729Ffu2+TIxz9sfbwp
5Ms4WuXe29zUF7ycI8NGmd/X+8B/BHDk2dy45edU6NsKjlol59WUWUDfVjL7
6ro+f4QD5KtY+T/1iv9T1lcgR7+XNpqyo61yXzdH4+ZODjkwG/LVHO3fHPPH
3gEczPR5Rf+HcW9R3hqOnkwcfXahDtbHWsbGw0w7KPHaOo6+/bhy3PAM8odw
VBPpHvlE+T9PKKt/25KT0Uo8vJ6jjSMmbX/4Dv53A7MnIyOW3V8J/xrGUceR
hjp/lP+1bOToUfqqAUbO4E1M3zekHunwFuVvZv44399hkD389RaOtibbd6wy
Q3lbOfJ9V2MwqqvyvzBmT14V/fO+Aw7naN3oTcb9jMERrP1p3dYcV87/RzJ/
U5UT3akJ5NuZv/viucLkBfz9Dqbvw3cVd30LeRRbr44LTg87i/bs5KjDPlvH
fkvwfjWa2QO7F4nrDkC+i6P5urmnrkXhfeVujixVj7zj7ZE+hqMVO5v1afJX
+R6JI6Maw4FDlfLiOJqy5Tu/eCHe9+7hyObD9aReJXgfupfVN37NgT5GkO/j
qHuV+cOVmyHfz+zddavBaZ3wPjee2beR2l1nKt9vJTB/+Lc6a64f5Ac4Ouqi
cfH2OeRPZPbgTafXBxLBBznSb7LpSNAT5D/E0Vs7j8+rbyjfO7PxT7fl1yr/
1znM0bt483+ekejPEY6G2/zNL7oKPsrinxU+pQOV8U/m6H3O7T4BUZj/Y2w+
bJf2U63GfBznqOn53UWNGivv/zk6cu1G2yXpyv/SOLpR2/yhfT38xSmOUtTO
OE9X/i9xmsUvq91GltwFn+HowzKtY41tsH5SONqtMt16ejz4LEdfw6MuvTCH
P0/lyLSk3S2jaNiLc8x+jm8Z1Lsn+Dwbjy6lEzco++ULbH1/k3bvcYX9uciR
zvl34+pNEU+kcWRxIsXGbQn2CxxbTyOrh5sq70N4jrbr1Txqfxj2SuBoyfaY
oPY8/g8vcjTSKPC46Rj4B4nFwxsPhmbb432IzNq/PXFowCDYbxUb370X//X4
hO8L0pn9M8p9O/ML7HkGR94zDi4ZehTx2yU2nlHT54YYmjT4m0zW/77GAb2D
8L7jMtPfjXWnh8Tj/wdZrL6FH6d32YznmVc4yjh5Nvy1Ec7fXWXrt3GjcdmT
8P7lGhufDhaNBry1bODrzD/Nv1hQ7azTUP8Npu9BrZuNnYf3fTc5stsS5nd4
FMq/xfzBfremYybg/V82R/XzlxxpnY/npbdZPOd9euN0L5wXyuFoZuf2kc8K
BzXwf6x99bE3WuqhP7kc2YaWe3aQ8H7mDkcz3k+xL1mn2dCeu8zfHTA2fGeN
8b3H7K1Nm9wrBvB/9zk6M/F+wv5JiG/zOOqdbjInazv82QM239/T4w3OYz4f
clTcXnfdzTj450csHrRd6Ji3Dd97PGbr+9b6gMmNrBrak8/RtcCNdZH6ON/4
hKMtJjO5wv5o71OOZg+1vbGC0P8Ctr57SC9SozA/z9j+6lvtGmsPPF8uZO3J
OTB4WjM8n37O0QLvmLZmRzBeLzja8+nZVGkI3g8VcdTZ/PH6ril4X1jMeE93
J68QnB8rYePx/oXJW308L3/J4uHJSQNUbfC8vJSNn/FA79Wz8Pz/FWvfrPvZ
3Zbi/UEZR0FnjyUO5PC8vpz191j4ue2H8Lz+Nds/OF20Hj0G7xPesHjadKB8
oQvkb5m92FSedOkm3j+8Y/rxtCh9nzOe77/nSK9oZ59r9/E+9QPzH7pr/Azu
4v1UBbPX6zsYffkJ+UeO7NfN3ec9F/yJ6a/O90MfeuJ9zGfmz3u2azl6A+SV
HGXr7b3V9zrkVRz918FKIzUG7zO+sHiwvpOVTUv0r5rFaxdn21y5gfZ+Zfud
keM8n+pjfL4xfr6x8cKf4Bpmbxx9Vq2PQ3m1bD3qbnpp2QTy72y9Cn678tNR
/w+O/IzWWaxapLz/Z+uh8J7V4Cy8L/rJ9nslg2LLWqD9v9h+52efOC07vP+o
50hzWb+nyXE4n/Cb+ffAAtNCc5x//MPkzf4z/zUY4/+XtaeL/ckJIt6X/WP2
dH2nbP0/SN+Ip1jrQ04tsnG+szFPTqm7Fr/xxvnPJjyF3m+82f0K3q+p8bQu
+cjY4LNIr87TWNP9F+YcQvlNeXp5pt2rGC3Im/H0PnrKPO4M6mvOU5epLS0O
dUX6Fjyd+/50892PSN+Sp0d6pl65kUjfirVn7uWJbS+AW/O0NyvrR+QZpG/D
U+Oq7PvVw1CeBk9bLarnpm9Ee9sy+ZvM/WG7INfkacsz298J5ji/osVT/PLu
ZTvUwO1Y+5LttFSzkV6bp91rey7f2hSsw7P9oP33Q/qoX5cnv219dgYVYrz1
eFrktalf5Xm0V58n47jKWRsDwQY89ba/+WrZLHB7ngYvjamf5obyDHnS/zZf
u3Yk6uvA0+tj235YTwQb8bShQ1xN/9+Yf2Oe5u0OOLyTR/tNeJp2RqsubDTK
M+VpxX/Cse/TUV9Hngq7dP/V3RXlmfF0qqZFc3cNpO/EU8f7/lfbK/V35mlH
t1dUYw3uwua35RC7gPHgrjwN2Pv9o2U+xrsbT1ONu47sG4bzxOY87RtV3vnO
AehTd56WfFq1YOYO5Lfgyf11wimDVmhfD55mBVe/5Z0ht+TJY0Su1w9dlN+T
p6j6xU47eqK9vXgqX9z5wrD36L8VT816PTI7agTuzdNm6wtqht8wP314CrzJ
L4qsAFvzZDXmwsAPP1G/DU9eaku+DjmM+vvy5Dil3airnSG35ck/osbHowny
9+Pp2vNjJm3GoD47noJ+NKmsT0L6/jxlTfcMqv6M9toz/T0zrlOzdPAA1v7O
R9reOoD6BvI0ycG1n2wGHsTKa/NQM3010g9m8p3rklLsUJ8DTx3y+HFL1qI9
Q3habt7rVMVV2OOhPH3aU/mzVyTs+TCePm76O/HGIzDx1Ke3hc7FsbB/w3ka
2Xyno7Me7N8InoJbqec7NUf6kTz5DHioOdRFef/P04Q+5gnHlkEfR/M0epDP
XtNxaN8YNn5v59rl5WE8xvLkXNPnekgC5tORp8QhBcWNp0M/xvHUPLD9ENtg
6I8TT7pR858OdlzYwOOZvvgmje6m8mvgCTz1imp2esjeJQ08kacxanN0mq1d
3sCTeGpTOOl5aNHSBnZm5TfvfM24anEDu/DU/8C8ptuskd+Vpycv47P4KqSf
zPR/XpfV/7oi/RSeFsZ+mTL8rX8Du7HxN/RaszgQ+acy/QhOcWujjvTTeGqa
uMvp80vwdJ7e9Ju1qdIX7Z/BU6Ox+m29qjAe7jyZ3J9sMzYD8+3BxturX1GM
sl5n8vRf8/Zj29ViPGfxdPNB9OwvtZh/T6ZP1yeWd7LA+Hux8TK37trND/ln
85Sf+nNMp98o35unp4t3t9mlh/Gfw9P+Pj3s7Pog/VymTyfOzVL7pZz/50nz
wtkTf2ci/TyeqrqMzfcNV87/8/Q87+3bflbgBTytet4hmyqQ35enysoLo4wE
8EKeNs7+3Lb5PbAfT2Q9Wm1XR4zHImbfFrfd4KeH8vyZP4hOfCcr9ncx06du
6odXdYS+LOFp6diPbiOPQl+WMnuWtv662huM9zI2flM/HSzQAS9n+jnrY6tf
RUgfwNMfdX3T/9TAK3gq2PEnsqoFyl/J8nf4/abJhUUNvIqnF6NMJiy0RPpA
Nj6nn988nAd5EE8txk8fUegPXs3WW/D0e/Ge4GCeusXUtH72HPnX8LQ9qtUV
nQi0by1rv65BakxzpF/H7NWvlqO9OkHfQniyPzuvXri0rIFDeRr3pGztXwvo
73qePjxMO57VC+thA0//hnWz2d4FHMZTv8InNvre4I3Mfv8+cnNIEngTT0Zh
9RtfvQpo4M2sf4NsHsdvBW/h6avPrdvnjq9o4K08ubbcb9rWDPJtzD5mTj6c
9Q0czpMvn7sqTYX0EUy/n9u2HeYLeSRPTW63Lzu1BPVv56nkXpRzzUfwDmZf
tvvnzmyF9FFs/lddOmVpDflOnmxym0xe9RD9j2b2KXTe/P1zIN/F01m3dY9T
p4B3M/1zELWEQ+AYnjoPLQwe0gTlx7L+6n/RmhgFeRxr397JXaoTwXt4Kr11
u9y0LdLv5emV6ez5Hcoh38eT5b+3O/Wvgfez+CTiQm3vOrQvnqe6kJRzAcr8
JfDk3WnXHc9QpD/Ak8H7Dekt3cCJTD82zl3eLwrpD/KU0WEev3Mk5IfY+NiP
S/FV5juJxVeRB0zc+oEP87QsO+n1vlrwEab/OVedph1DeUd5OpBa41ljAXky
i/8+9Fg2cyvkx3i6s2D59M6x0L/jbDxO9v5yWkD6E2y+5viMGH0I43GSpyuW
1SY354FPMf9s67BkyxzM/2meDumP1Vicg/xneJpYO2nAg35In8JTkuvma94S
6j/L6g+1fHRF6X8qT9aB6woKVmA8z/GUt7V5t1gzlHeepxuLo3eGKfN9gSe3
IamLYxuDL/Ikj9btWJIN+5zG02Htu7HtMlAex9PJ1ocdfOoh53lykE4t/KhC
/wUWXz36a9atLdojsvbfa3r7lQfKl3hKCT5y+SQHlpm9X5DyuoUu0qt4Ov+8
VY9KR3A6T51Sr3GT9iN9Bkufq+5QHYj2XGL2+c/lqGgTpM9k8efirrXmO9Ge
y8z/zVzXdPMUtDeLp2rTsDrHzsh/henDrvCogxmQX+Vp09gpwwzXwb5cY/FP
+8xyiw7wb9dZPDD1t2vCN9i/G8y/ZbWZdnIA7P9Nnq6XP6vOHQa+xeITi5pT
65fCfmfzdDujo3PcX9jr26x/XRNe7v4FeQ5Pi33KSzanwb7/x1Pk0aVVL8ZA
nsvT/fJBx9b2Bt/h6ffkGo9/E1HfXZ60TS58zFTKu8dThOu31ivjIb/PypMW
9zOJAufx9Gzb9umtu8LePmDr9dxU2ybHIH/I0xHzqx3oMdrziKeZWuoPIwrA
j3kaovHs4bidGI98Nr72H7IXOaG8JzwF1G1yaLUW9vspTxdt/2kG/YfyC1i8
Pbnzzo6K/3zGxnv6mFOD3oELmT5ZD82NCsZ4PefJZcLIH97vwS+YPm86GswP
R/1FPP1w3/LszyX0v5jFKybF2t9nIH0JG9+vV/+9P4b2v2T2eXBAyXVtcCmz
X1NeB80JQPz2isVHx3Nf9rNHfFfG/PnzihL5Cbicp67zvXy7/If48DVPtkWf
23cvA79h+wO30ycsSxF/vuVJw2TR7LQO4Hc8zf5w5U6dK+KV9zxlfz20PO8U
8n9g8WBe4tms20hfwfY7/CrLyIOo/yNPMXcGlIw+BfknntbW/exepq6c/2f7
tx6de3YsBVcyfxd+mruVgv15FYv/f1abvRqL/fQXFh+//1WwKwblVbP5sHtt
372Pcv6f6Uv+sZA9zTCe33iqGee+q7w5xruG2bck++WD3oNrWTw0Zcdl0ymY
n+88LVC/Up40Dfrxg7W//J3T9CPgOp7ijhcNspgAffnJ9kcyv2FuCNbjL54e
bt42cOg2rMd65o9POu6e0gf8mye1dm9iTW4j/x8W/21veWlROsr/y1P4dg+v
pq3Rnn/Mv92xffLiJfStkUCHHofZ1m2AvLFAB+KiPoyLQ3lNBHq6ZcU4nSrI
1QQ6k/WjxtkPcnWB9vvH65dXgZsK1NbpxEl/Du1rJlCro+a2Ny7BPjUXKG9u
q0W+59G/FgIVNumanqBC+pYC9XSK1lhfjPpaCTRxomHM3BCMb2uBLDvUds94
o+z/BWoR3KvVv4Xoj4ZAfOGqsbopiI/bCuQYckd/+Utl/y/Q8PfFy14kozwt
gXq4RN/fYYPy2gk0r6Ki/GQu5NoCnZy1OZBXvr/VESjJyHF5/hnE17oCLf7w
2lfXHfsnPYE8rKp2TzsEfdIXaLNXFl87D/pmINB0i0ehy/Kh7+0Fsm397+ma
78hvKJCJ35x7u39C/zoItO7AEJ37+VgvRgLNeuVs3Psf6jcWaInt2zsJpuiv
iUAjDqhV9ZwGuSnrz/plSVUdlf2/QM8vPWptWYzyzAQKLSo0nzwb8k4C5eYZ
5mUeQ/7OAo1b5N91SS64i0DxIerWxzoo+3+B0trUvZ1xC/JuAvXu+TCySLEv
5qy/L/s2iT6K+ewuUE3HEpeAFOinBZuPRM0j720g78HaJwUMmBUGuSXTh8Ud
bYucoV89Bapc8Ojad8V+9hLI+/y97zfC0H4rgTJGlnhqfkb/egskrfwQkat8
T9yH6VPSKJ1v3TG+1gKtH3iwz39BYBuBPnXyLq/ag/1uX5a/9u8Q/TEoz1ag
Tsvv5IXeUfb/Ak3asnrQ4ijktxPooXAu764TxqM/m58DqgseyvdE9gKNXrni
zvxj4AEClb9/cl9d+b5qoEA/alInJLxFfwYJVNfCrkZXgHywQHr7eza2MkZ/
HAR6c7M2+e926NMQJp8TFjLkK9o/lLXvfWXvuRGQDxNo2qO0viM6gUmgE2OC
OmYkoj/DBSpIThnqqIX6RggUYaRWNukaeKRA45u+yNmhnPceJVBt47ZFr9sh
/2iBLPrP2B2djfLHsPm7ePSsfjbWw1iBOkQftTypj/SOTL+cPJIi3mA8xjH9
+rJU++ktsJNAQ7z7XnK6hfLGC7R229j36fuQf4JACXeOarYfifGYKNCgZ22c
u0xFeycJdMy2vm/BLqR3Fuh6AhdapJxPd2H6+LRufPAbPK91FeiIn3+XozOU
7/+ZPRtUYDRhIfzHFGYP6jL1n3rgPL6bQFeSa23OvYa/mcrma8j3uW7WKG+a
QPqbloabGeB5+3SBtK3NuupcBc8QSEt9+Pk+phgfd4HGbK8ddOIh2uchkOuf
cy5ph8AzmT3ruGOdQ3e0b5ZAg9ssvvn9F8bHU6AXzzkrzZEoz4vZ84AWk6eW
YHxmC9R+y5e0akJ6bzbezwdWNQ1A+XOY/WjdLTRAB+2by/Tr8+3ICZ5gH7Y+
rU8dWzIA/Zsn0MFcue8jNfR/PhsfDc0WE2Xl/L9AbaJe6Pxcjvb4CjTMZPvA
Ml3IF7LxUR+oN91F+f6f2dNr2XpNFqB9iwQ6N/7hoOmvkd6fzeehrLHq2dCP
xQIZb0/1jglXvv8XyCGrxszkHOZ/KbMHhhZl6z6Alwnklj1IfV0F7NNygc5f
f5ox2Qj2PoCt941lX9b/gD1aIdDFtyZVmbKy/xeoSPcE6baAPVol0MyElX1C
s8CBAgk2R1O4Jcr+X6ANur5bfsyFPVvN5vNkd8f0D7BfwQINPbe37anGSL9G
oDvWoxNKOiL9WoFyluVQagzat46tZyvvlVcTkD9EIN9vy3ssd0X6UIHC350r
5zm0Zz3zJwW6r/xegzcINLuD1w49JT4IE8hl4ItejzxR3kaBYicFxP4UwJsE
ujpwVL8dk+H/NgvU1X5tmUs7jPcWgabkGlbsdAdvZeu9N9lNMQBvY/7hu1Gn
opMY73CBzrp+SjUPgDxCoB3zHuiEKs+3I1l5z5+d+sejv9sFOvXrc7dDD9Ce
HQItupGoNsoU8ig2nos1Ty30QP6dzN7+Wvxy2XW0N5qVV3ZqwAI1pN8lUIqB
69RBhyHfLdAfPZsmA7eiPTECma3vlnJDeb4ay/SvZwtjDeX5fZxA24UXjp+j
UN8egayMn3WotYN8r0DPPrf0nWGK/PuYPeJWJv7whHw/iw8yxvD7lPcf8QJV
kFf/1G2QJwhkkBlUMlgD8gMCvT1cWrBa2T8kCrTvdXJq8zbgg2w+L88Yei4M
/TvE7EkqvWgzCvmTBPLzX7VzonIfx2GBDH0tE+6vQv+PMPup6z3CoSPSH2Xr
vXBlottjpE9m4xPa6IXOafTnGIvXdp1u/q4b+Dizp3YtwkznI/0JZo/c10dU
GaH8k0xf5+klJk8EnxJo8rdT4U+TwKeZfj8bofbJBvWfYfUd6tGy5h7KS2H6
abTx1LQXsN9nmb68/5i/ZTs4lenbzNejbJXn+eeYPVm/xuzKcPB5Fq9O1Lux
tBT24oJAmTuLdEI3QX5RoJ0L191Pvwn7mCaQe2Sbe/syEK9xAm399fuMmT3s
G8/se7OIvdc7wR4JzF+oR/nt8kN6UaAnt/TmOYSBJeZvrfi//bYhv8zWa7K6
0Uot5FcJ9Mp39rEVm2Hv0gUqiS10nLQb7clg839n2jU/xd9eYv7VdkqZViXa
n8ni87pdcYPGgS+zeKLPlc/mnZA/i+n7o/PzHWJR/hWBfgdarh32HO25yuK/
YWfv291Ge68JlJjz7cTv57DH1wXq99dOLt2K8m4w+/8n90nWRbTnJvPnbh/7
FtyGP7olUJVZtGGXGMizBWrmNmzyqHKM/22Bxu76tv3GZZSfw+yBf7vDMY/R
/v+YfY3eKzor+71cgU6bzxgzeBT4Doun499ubNYG+e8y/9OiPkf/JvpzT6C/
9SaewWpoz32B+hRmdpmQjPrzmH97Lmc25pD/gUDfrrqujp2B+h+y+G97eEbL
EeBHLH5eF3ywQvke/jFb//tDoovmg/MFuuz2xXa9jPKesHggffOjEzuR/6lA
IeVf2sfORvoCtl+JcE1XKf7oGbPPj0y8u2dD3wuZfvw1qxpxHevhOZvfye8v
vTyg7P8F0pxkH+e1CfIiNl9k4F4UgvzFzH6vbHHlSRDkJQJ1tq3Yot0I9uKl
QJvsPY0d9eHPSgWa080rzJ2H/BWzt+fDDiTagssE6rv8zoQZxbAv5cy+mTwI
XrsT+7XXAi3tkjKssQB+w+LfotYbzqfA37xl8f+IR3m9VsG/vRMof+y91gP8
kP49i+/+7PW1SsXzrA9sv7hLTWOAHp5XVbDxMZrcc7o59o8f2Xo/2aitjrJf
/CRQ+pSeQ4dMQvmfmX7dvpvt8Rj9q2T2x2jSyWbK/qNKoL3b2juYLUL/vrD4
5Mf+V/emoH/VbP/T9/3w6Q+Q/iuzlzXnUtTuo/xvAk11LtyrWwGuYfHKSf35
vlvAtSyePh4U1yUW/F0gU6OXldN0wT+Y/eBTV/Q1RPvrBLrmc6Ww5wL076dA
j6I94938wL+YfRzwxLViJfLXM3/2LKP9jBjwb4FKj446wYegP39Y/FWTkzy0
G/Tlr0B2tXe2ftSEvv0T6IbxTI9YbXAjkSKPH61PUt4nNxZpyahNoSv2gZuI
NLr86I/uF7Ge1ETKetB54N8M2BN1kYLLruSNy4O8qUhzetQ1P1CC9dBMpPqz
bp27XlHe/4s0apTDtKQI5f2/SHna3po3ZmH8W4q0bamN1cpH4FYiVfbtMvxI
HPrTWqSaZwkhqwMgbyOS3jHzzM+vlP2/SFv5UcurNJT3/yJtnv834ooW5lNT
pJhFG0akfFX2/yItqqjVXKzED+1EstuxesuB3xgfbZGM2nfqeD8crCNS4Izi
qkbv0B9dkbzTaZ7xEeTXE8nsV+ug3fPB+iKFrS7znF2H9hmItGLcXvFUGbi9
SOdtEtL/uSAeMxRpr46J74PTkHcQad6JjU1G5KH/RiIlj3i3pLIp+mMskqXU
fl9uOdKbiGTtsEP7xnTUb8rG98RP04uxyN9RpB5J/acNLAGbiXR9351ue5R4
q5NI94PjNKeNR3s6s/HpXz0gagTq6yJS6Ngw/2ciuCubL/vI5pXK+/huIuVn
iwVveoHNRer74ld9lb7y/l+kH6d/hYeLYAuRxH6pf46NRP09RPLQmunwQBfl
W4pk87up0QZlPHqK9Hn2LC7wP+X9v0iP/668/ckVbCXSsN2t5KsHMD+9Rbr9
haPu5RiPPiJNTFsy5EI50luLNOZrlv6Kjcr7f6afk+lbgvI8pK9IPydQbUwH
tM9WpFd7jrWcHYPy+ol0JVo1NVux33YinW30xvJlF8j7M/075prdVNlP24uk
WRhUKir7kwEiObV0/6M+Udn/i7T7/MS89kvhPwaJ9KRMt8neCvi/wSL9OutR
WOCL9eYg0jiNrAXNP8B/DxHpnda7GE8b8FA2XtnxurO3wz8OY+vT59JUklAe
sfl06zbz1VmkHy7ShYMF5hWhkI8QaX3nvIyN35X3/yLNPzIxepwL4oFRIgmJ
2wZWzVX2/yKtLiir1lEp7/9FUr93e1Snccr7f5G0zOqdFp2FfXEUaYvHl4pG
o5F/HOvf9eXlz7xRn5NIX48d9YvXBI9n9aXUvjyzGP2ZINKl+C4tGvVD+yeK
1FGcarAwB/v1SUx/bqak22/DftVZJEpKqJv8EPldRNoTu+fzPhn5XUXKnHBQ
Lfoz8k8Wae3GgseVV3EeawrT9+5ZDjPmKt//i+Qyhp9rtBvnuaaK9GC/1eyq
tng+MI3Zp96TRo/XQvnT2frQ+iY8iQDPEOlkWTPN6hvK/X8iDXbw6psrY7/t
wfRr7IaUnS5o/0xmf5O39PkwUtn/izQhOP9KXD3K82T6oEV7bbcgvRcrv99+
z+IE8GyR7nW3sGq/Ff33Funbovly900ob45Iw7uWtCpWh32fK5K9TUyItBrp
fUR6c6hNgudqjM88kUy02vgdb4f+zxdJcnvp+rAPzrMtYPbfbltxRSHOI/qy
/hf8nbbwCO5LWMja2yUhJrEVxstPpFj9F+nFkSh/kUh/1f+rvhmN8fcXadd3
Y+8pq5Tv/5l/MA1tmXcI93UsYfNrmHFUZwHKX8rs74cT9TPP43zkMpEGvLo4
dtgO3A+wnNmjyxYewnrkDxCpbsSZgaseKN//M3+SMbTZ6jPK/X9sPQZX90rU
wfnWVcwevDrz0ToG5z8DWX25xSH9huA8a5BIN9dE/ho2Duc/V7P1ceZv3of+
PRs4mPnfgt7ZjrNw/nONSO16BVUWrkD+tSIteJKWH33DrIHXidR5wd7HzxJx
33aISJ5JrjlHPuF+qVCRNk24dMl3Oc7Prhdp1umFoWM1cF50g0jNKizPGUVC
HsbmY1iHljPPgTeKFNUi/8PjwzgfvImN95bUIzlZFg28WaSCdTrj+2zHfSxb
RJp7+vLwm9a4T2WrSDe69XwR0BP3E2wTadmXC0MDCn80fA8TztrvN2f1GT3c
fxvB7J1GxuqTh3C+NpLp+3TnnilXNRrk25k+DR28vsuGUtz/J1LusGO7i7Qx
/lEijTiv2fLEItx/vlOkpR7T5Ssb6xo4mvm7NhHbLG/hPPMukQKsHL58mAPe
LZLFWudAZ+ufDeljROrZ1jZW+wLul4ll8zlW6pwZ86+h/ji2/i9pfLj4Sb+h
vXtE6nTwV2inv40a0u8VacrpgIn7L2F+9rHyG1/KSciHfuwX6enCusVVB3B/
SzzTvxkLozwHYL4TmL0SRk6dHoP+HRCpw1gHy3O7cB9Toki3NrxovvEq9Omg
SCOLXbMuxSH/IZHaROpV1z83aGhfEpuvbnvnxT3GefTDzH443pxjl437k4+w
/qU6DDysnCc/KtLFY8nVFRu1GjiZ+f95e93Lb+M+iGMilexP2DpnYcuG8o6z
9g4bvMypHc5Ln2D2L81cb3Q15uOkSPtjtZ+OnPamgU+JdGyK1YhTozE+p5m9
fm4a3sYH56HPMH+dcWjQyp3QxxSW/83a+rNtoL9nmT/rEbhN+zruT0sVybzl
7OB9Q3B/5zmRMs52b+m7FOelz4vk0/+ydYQ57ve4INLiK6+3T22K8b0okna1
leOyu7i/OE2kriaaE487fmqYb475x3wrzSnPtRr6x4s0U6/y5Il5+F5LYOPx
LXO7xkGczxdFmn30POnE4vy+JFLj5yv8Uzfhe0hZpFqHHxONXuK+DZVIjkv9
LjrE4vusdGbv9N7WXbiN9BmsP/b1VboHcH79Euu/5owmC/fg+8ZMNj7/jRx9
sRTfJ1wWaXvIpCzrYeAskS5bheYMO4TvGa6IFKS1bkC7B8r3/yz+LDRqfi4Z
33tdY/bY33Nw2SfIr4vke7ze45wF6rvB/OH+Vkc8x+M+vZvM/34+a6jrj/Pz
t0SqanbWsHAGvifLFqlRRMc59cr98LdFOnzbslfVEXx/liOSrlHL6B7d8D3q
fyItD7swxWogvvfMFWmdSRfXxNa4D+SOSJPbaa2e5Ivy7rL47WNequ9JfO99
j/m31Nmj/kyF/D7zPzVm8fWtUX6eSP4F690fPkV7H4gUffm3mncf5fw/sxdv
w297myv3/zF/Ybe/9Rd1lPeYxUN2sQ+TN+L7gXyRDMcIY35uxPw8EWnNvWqv
zMu47+Epi/fvO0rzNdH+Amav7er3cQ96NfAzZi9mXtfZVIv5LxTp+8G+YV2U
+7SeM39w+H4bXxN8X/KC6V+v+BJ+Pb4HLBJpyJvPH060gT4WM3+YlWG+uAX0
q4T1/7eJmaSW37D+XjJ9K8sUy31hj0rZ+o71itsage85XjF7P6tNof9D/I+j
jM3vvgjvsHLoczkbn+r9zloG+J7xtUgvfkhCkC7uo3sj0u8Ss84hrfA9xluR
xu9OX2L8FN8vvxPpy/rn6t2qYT/fM/vzYNDvDlm4f+6DSL29Dzapy8b3xRUi
qbxkl4IhuE/xI/Nva9Lf7foBe/FJJIcPtrcPV8EefhZplUt0b7cMcKVI/x1z
7DsvAffrVTF79bBP7+VhsCdfmL9v/vLR5k+wF9XMPr6Jn7KyBvb5q0grv7aZ
+TEP6b+JpH8vKK1/OOxJDdPP6uXT19iAa5m/bbfgQaYn0n8XaeCeBcPajMF9
fj9Ye7fsVpv450vDfNSx+Or7wrlqP9o09Pcnsxf7pm7e9hbz8YuV7zzkyd3D
uA+/nq2v/kGbFpbCXv1m+9NVIw7MbwH/8If527CE0Y0q8D3PX5He/y4yPXS7
vsGe/WP+dWnIGatUzF8jiSyfl0T9i4f/bSxRkKscEOaM/5k0kejw59IOX++b
NbCaRDsHjYkxGIr5Updo7VP7AH/XRw3lN5Xo2bCBB8Lv4fuYZhLdvBt8feto
tKe5RH1H7BwbtQTj0UIi+7Axz8paI95qKdGmBb8nnzwMe95KIn/px/SLHOK3
1hKZNztQWHEC491GIotVlxau6Yv505Do6pAeJO9DvNZWonyfeY9tP+P+LU2J
drdfZVdxEvG7lkQddC4tvLQF8WY7iUYM8Hyf8wPxqLZE1zRatJg8TLn/T6L5
ttUTeir3n+tKVPy25wavaKTXk8ggv+2VU8p9aPoS2bm0DT8fgfjZQCLHkL8X
T5cj3m8v0cot/uNjw5T3/xJtcM13/rMD+6EOEg2PWpSc4IPnKUYSLZjn6hLW
HuUbS/Rkgotulg/2CyYSFd5YUzXqO+ozlagssMBObwC4o0QPT9YHapaiPjOJ
Wh3f37tIOd/eSaLXm51PL1K4s0S/4+c3K1Cez3aRaPCFdzd7rAZ3lWhVimuq
ayHK6yaRq2fS6hQPyM0lah18bkqkM+TdJXIxGLvrYx/sLywkKl2cM8byIfrX
Q6KL7yeu+/MG6S0l4r8OLTkyCvKeEn3c99+25DSU30sit/dj1hhOUM7/S3T9
g2CxcLdy/l+iLmsH7vd1B/eRyLl/nNHof+iftUQO36JVX5TvR2wkej9h077c
Bcr+X6JXpiPm/alAfluJOt7Sc1bvBnk/iR5lbooImaLs/yUKN5ybcSpTef8v
UfX1Re4+/yn7f4n+00haPHc30g+QqNmrCatfGivn/yXK3fT3ibpyXm2QRJPv
/JzmGYfnD4MlqriYO7zzRLAD05d9Z7iKSPAQica3ar9M5Yv8QyW6Py3/e1t/
PO8YJtHcwZoROsp5a5Io4ernKC81pB8uUf+y2I7q21HeCIlOdne5Eq4L+UiJ
hLbFTc/1w/OZURLVDTI800kCj5YoY5JTxeALyD9GoqSVJSEHw5F/rESJdWGa
5KOc/2fjYTcuzfE2eJxEw9oY3pqjnAdxkqimxYO3C0PxPHk8Wz87Omee9cDz
zwkSrVHr1bV3Z/BEtn4P62s2u4v6JklUe67n6XbK82xnibaNWxY8vRD1uUi0
9/38Z2+U+/FdmT30nzSr+V+knyxR7JpeKvM/4CkS9RlaWnzeG+1zY/bunerh
zr94XjZVooNpuxrF7wNPk0jfQl9KPgmezuxBROH9tfZo7ww2X6Wbd05YgufB
7hJ5zO5UukYPcg+2/r4UCxvUIZ8pUfSPaZUv94BnSWT4qaNGO+U8qifr373h
t0bqg70kGln6pejZAzxPn814rNuVz8p5LG+J3tK7/lvbgecw+zvxoseTWJwP
nSuR7qu8zgdvg32Yve23ZLfhDczHPInSXUOdu05Ge+cz+6s72vpqN8gXSHSh
le+r9FdgX4l+bbed8GYzxm8hs8db9q9P7Izx9WP25PDlJXPXKuf/Jfp7asR0
1+ZI78/slZ1D74dWyvl/5k9eXvx+/jPWzxKJhrTYcLSmFvmXStRyw6YNM79B
vkyiI8+5QxY5yL9conm2WnbzfMABEonRG1UaVlifKyQKMffetukEeKVEgxJK
xOoc8CqJRjfvd9la+T4sUKKxwcdPlGZCHsTs8609TU77QL5aIg3LVyVfLqG+
YKYP2Vcn174Er5Fohk19faDyfcZaiZYP/5a6xw36s46N39GDCQ/nKe//JbJy
SRo/4Ac4lI33lcZ+vQPA6yUKmzlCs709xm+DRC9Wv2j7wRHyMDa/EUJFN1vI
NzJ72v+059hc5f2/RNYDvwUVtcF4bpYo62eLWjPlee0Wtl5CNuctU56PbmXt
K5gzxs8AvI35w2X5HjXb0J9wlv6fc3CmHcqPYOs9dMVhy2moP1IiPd+yZsfr
kH67ROf+Tar236W8/5co7mfvaWkS9ClKoqldXkZOXIz1sFOiexstDN7fBEdL
ZHSvsU5uLfRzl0SavdZPjB0I3i1RUY5bUV0FyouR6HK7Bx8i+kAeK9Hnsxec
nJLBcRJNyo/dL85G+XuYvzXV6DhmDtbPXokef1midXcoeB+zT6MCp81Yhvdb
+yXSyq+2052E893xEr2JdeuWeBCcING7xKTJL+OU8//Mvq9WC+OmIH8is8c7
aycmzcR6PsjG61L7wpvK+j4k0S7HkLfq3cFJbL1qSgPu6qA9h5k/mh4UOPc+
yjsiUc8K0fXFB8iPMn8oXn0WoZzfTJboxOlWI4QDWP/HJFq0ImutlqCc/5fI
84Z55k4T1HeC2fcl9RNGH0H6kxLFn952un8iyjsl0dJ+f+wL48GnmX1uddMk
0QX5zzD/dKqkbPws9D9Fon3/ltdUngKfZf4kpjY1qBCcKlH3QI1GX0bje4Fz
bD3oLftjEwk+L1HEyufDrH7ie4MLbLz2BIdt3AO+KNG0f9eDLirfe6Qx/Xjq
9On+WZTPsf5Yrv0pl4B5Zq96LcnYYoX0gkRtOlo2HTkUclGignmhyyIilfP/
TH+sSyMLDZBelqjHxpziqZfBKomazsj1SPmB9OlMXk7O3kmYnwymT5taiD+n
Kuf/mT2peVGe5aSc/5eIe7VW3bY/8l+WaOsig/VJM8BZzL9MtOev2oKvsPgl
YM2mBW6o/yrzf5Pdvi//AL4m0fZ+O1sO6YLxuS7RspNOr92bgG9I1F7fLjyo
M/gms4fDXB85PgTfkii4ebzh+JsrGzhbomN5AyJfPgTfZvGZ1bJPrzVXNXAO
szfFn3qOikX+/yRad6Js+NGfaG8uW98nD/as7QH5HWbfLzbaW7QX7b0r0ZTy
kemZCeB7EqkXRkfds0J999n87/pdWaoNzpPobuOKlJujwA9Y/K/S8YmtQnse
sv3CM6MpjdKCGviRRJ1vhTw7uDewgR9LNLFf1MfiM0ifz+LlE46ltYGQP2H6
OuR04LOH4KfMP4SeD0h1BBew/J07+mxKR/5nEl1JXmPr9wHtKZTIZ1aPau0j
SP9cItuzdjV73oBfMHuz3nl4Zji4SKLks1vaxhSubuBiibzyZr4bvzS4gUuY
v3FfsPJ5R/BLFk9oh2rxzZC+lMWbj+zbqh0Ev5Loe4GJEPwJ6ctYfOC8u7LC
Flwu0ZaiDqPjXoFfs/a4/3dcJ2hNA79h9vPgKlXZdfBbtn+7utOn/7i1DfxO
oj220/b43oL8Pat/oK3POVvwB1Z/hPPBigBwBfMnh3/4LXqC+j6y+Dcrc+zx
a+BPbH78Cnf14NH+z8y+xG6QI9PBlRItvOqR9NINXMXWj+pB4u1yzO8XNn7H
LbdNugt5NbN/O3VPzvoJ/srsgdPqPZ3vob5vbH/w9cdTLgLtq2H5B7TLn7wH
XMv0d86STvWRSP+d7X/blHJrDoN/sPh6drMSzz3gOjZfi07WLmmP/D+ZvdF+
Utz3AvgXs/8hP9sNjUf6erYfT8+uCRwL+W+23mI/72+VAPkfiSofHOhiswry
v6z80b3b1yjt/cfa66J3r8YX89FIpp/bSs7croS8sUw311iXTvwP3EQmgxS9
uq5lSK8mU9Ndzc1PvQeryzTi98V7yangpjIN0vY9GNMb3EwmQ/WyriHdwc1l
qrhm814+Cm4h0xLN5SkeG8EtZZr+xLpdKIFbybTCRefyEKW81jL9C7pw4f2U
dQ3cRqbk/GXVtXPBGjLNbtv9tLAE6duy9jukeqx0B2vKVFT5JfbSN/RPS6Zx
Z+58ND8LeTuZ4nfkm1UvAGvLtPfkyimdziC9jkz93vRs2zcecl2Zmq9ptqGb
J1hPpsizfnpnXcH6Mp04URM9PxZsINOB6CKuWSK4vUznh3iuDIsDG8osXnzz
KlxZLx1kurMuxGacOfpnJJNHL/N43gdsLJNFtl1o649gE5lip16YrukANpUp
vNOBKwH3wB1linr6z3quVUgDm8mUX+zbVHdwaAN3kmnyjTXq4xR5Z5msPje6
894I+bvIZHShTfbeGWhfV5nWFL+wtfgG7ibTQpvaTW4PkN5cJnUntZsOj1Fe
d5kyBi9om14FtpBpfYdFLmuao/4eMj06uHSDWybYUqaRu1edOdEb3FOmzs/K
qtY5rW/gXjLJuXfmdOoPtpLJ9sGnor9pGxq4t0wpWx8dtyuBvI9MHY51trK/
Drm1TKFVA6O3tgprYBu2HviInHv9wX1l2nGt6X9TXMC2Mo2tCxx5R39jA/eT
qdgufdH3Y2A7mfwqNlp4KNxfppL+UcFpa8D2MpV+6/YybDR4AFs/qaF/V4wC
D5Rp7ezJC+yLUN8gmWKWr5tiEAj5YJmEQwWxOWPADkx+fdPx9AjwEJmGuted
He4GHsr09eL3vTdng4fJ9MNw+5u6dmCSKe6V35sSP/BwmbbqLVer9gaPkGlq
5g+neQngkaz/tcZGxWPBo2T6tfJg2qwLaO9omeaFz088FwYeI9Mo5/1zCkLA
Y9l4hRufXzEO7CjTltbNYq4NBo+Tqd3RqtS9vcBOzB4F2c+7nof5Gy9TcOMk
B62lmL8JMmmpzc/99hM8UaYQ7VUmLS6DJ8mkauatN4IDO7P2Blt3u24LdpFp
dNfbTkF9wK5MHzuml0zfi/ony/Sybt+IjxshnyKT9oqaLtfCwW4y9R/x70Zd
I6SfysYzPFlM8IJ8mkwzN6ce+50Fni7Tg2iTfh9eoz8zZKIfn2d7akPuzvTV
bpsZFw25B0sfdUUjeyXkM2UK1L1ftjQF62GWTHOznskxNmBPmc5siNuT3RLs
xdbH4g2PzVdjvc1m42HfPcZnMdhbJuN/AXqz+oPnyLQh/lOfijPguTJNEMJ2
tnBAeT7MXtQ7ineHon3zZGrtbTrbKQE8X6a8CT++pqijvQtkGqM5sdxWWa++
Mqk5XY9uUovyF8qU9Tjyfqoxyvdj/iXYbZ6LHniRTBe+/t55cB7S+7P1aXRg
p9928GKmH9cfv9E+jfRLZHpt8mx4i1+obynzP/tq+/e6BF4m0+7qLxqLYpB+
OWtvr7g3t46hvAAmv+3moZ0AXsHWY4/d7XcbgFcy+/TBXTLLAa+SaU6gyaCD
jcGBzF6EzEvkjGH/gmTaPmTTO+1s8GpmD5e0iNs6F+mDmb1edXzfVBV4DVuf
0zyiPFPAa5m9TwtI+rcMvI6tJ6MmezUWorwQmf4uMMjP/Aj7GypTwfiiWncX
yNczfxzUqnzEYfAGmY59am1Z9xDpw9j8l8Tcc7KEfKNMvuW/hvWehfo2yTS8
5YipFS3Am2X6b1Xa502eSL+F6Weesec7E/BWpo824bWjA1H+NraeJ/TxD5PB
4TL98TeYI10FR8jUqV/ROcOV4EgWD+hFX8p/hfK2y2Q3IHqMajN4B/Pfe/h3
rbugPVFsvK7pT0p9At4pU8fS680fa2J+o2V6mG1j+3QQeBfzr5ZmRX2uIf1u
mZKOfs5dlA+OkengmNeXmzsifSyzVx0Pl9h1gP7EyVSoY+eUHQn5Hpl++6e4
61qD9zJ9NjKqSFwB3sf8/fnMCk8Z+fez8SmI+6JaAI5n9jL5b0mmEdZLgkyW
jqruw+9DfkAmjUN7xgSWghOZfTby0lx0H+kPyqTrM/DGgaawP4eYfZtTuHTU
QnAS08c7UslFdfBhmZ65FPe36AA+wuKThR38DYrBR2VKHT+w8Z9wcDJbH6vG
pWW8Rn3HZAr79affgVtoz3Gmv55Gx4viwCeYfc4Z/jk6AHxSpo85u1IDT4FP
ycR5WS852ATlnZYpaPWjscUh4DMypc2bG93UH5wi0yebRT4uz5D/LIsHrJw3
PuHBqTLVm3UbkfQQfI7FQ0XDD3Pzkf+8TB8m2wmn3cEXZDJ5WTyv3SikvyhT
my6/XVJ/Yf7TWHvyarMufwdzMl36qKM++A2YZ/afVy+4X4r5FWS6Umrwwmgg
yhNl0ot02HhAmW9JpkMFy3ybjwDLzF/U5wg6K5FfJZPDM7HvZiX+SWfry+2/
K5NOor4MmXy6J3+pLIP+X2L+7e7dVJ9kcCbTr6dl341bgS8zezenW+GJI1hP
WSy+nfgj7EkHyK/I9M1325U+vcBXZeoiNhl5bjb4GlsvL+o61/mCrzP9PvzV
8NNY8A2ZjqacPBz/CuXfZPHp+VvaB29Dfovph9n8m/O+QJ7N4vHvkwIbXQTf
ZulzRsxKfAbOYfblM40aWwX+T6Zlca/cfIpQXi6Lny5+b9r4BfgOm5/p+r/i
HoHvsvXy8751Z12M1z22P/A9VvDnPsbzPtPnrv2TSxqB81h82KPis/lP8AOZ
1rk/95qu+I+HMvX+V2rqtxf8iOmblG6w/QDm7zGLp12cCkwU/57P/L1OyUaN
veAnzJ5ejntlo4v185TZU8PJ0y2U+KCAxWOSlr3xFKR/JpOTxajZZUPAhSwe
qsvUfWoMfi7TkXUZsV7fUP8L1p4Zfbx0P4KLmH8/WT2tdg7SF8s0oE/Zskpr
yEvY/if21pPECvBLmfwHnTK4Pwb9K5Vp8fwB49UmQv6KrY+sSruzWiivTKav
mgf/OD+CvJz5e8tZvw8Yoj+vZfJa1UMteTPSv5HJdLnrrbuu4LcyffH/XhLm
DX7H4pec/R9sHqC890z/e9S/VU8Hf2D+yeV034t14ApmL1I2Tj6jlPdRJm9T
g56lxqj/k0w2A0/NrB8P/ixTq+e2e3sp9rCS2Ue3a4M1Fa5i9f01CHKuQflf
ZOo13jogyhbyarYe3LU1s3XAX5n/75q0YkAx6v/GyiPDvhbHwDUy6c8evyE/
Aulr2fiticgt10B8/J35x8zbk3KHgn+weKrruTl7l4Dr2HpL5Dhtq00N/JPt
z9YP3Dqg2eYG/sXWW/DKGwnVkNfLtMo/s6tLKfi3TG8yvSJvXQT/kWnjIue4
1hfAf5n9CnigmfUB/I/FI6euntz2ENxIRfqp36ecOg1urKK5t8bHbj0JbqKi
ZtfMMn8mgdVUNHzw7KOh78HqjK3nauplgpuqqDbaKmO40v5mKnrwPLD5VzVw
cxVFBk3oJ0wCt1DRl5MvgrX0wC1VZJiRWfD5CsprpaIjjaK3zcnGeLVWkcaP
RWb7M8FtVOQ0IWxG4S2whoru/llWeqYTuK2K4rXLNFZ0A2uqaFLK6tAxDmAt
Ff26vHXF9duYv3YqsrVI+X3+JVhbRT1n7w1+vRuso6KtibszrnNgXRW91nMy
/KEC66nowueK7lmGKF9fRW8G12QEDwAbqGjthPZhnv7g9irqVuZGrvfAhmz8
n1iEh+8Cd1BRdPS7folmGA8jFa170T5leSTYWEWjr33Z/icYbKIiv32VYxYc
B5uqqMknmzkz+4A7qqjee9CS9yZgMxU5uJfNK4tHfZ1U5FXZcZl9W8g7q6iN
ruPM3OOQd1HR0htHdm54De6qoh5bLoz5fQHcTUXWc/fE6KwAm7Pynp57WPEd
49NdRTvWOM/5qgW5Bev/uMfxhY7gHiqa3byza4cksKWK9P76Pfdsjvb0VFH2
aLt/Va8g76Wio0ODTEMOga1U9HS+eptxe8C9VTTte03oSDXk76Oi8MXX5hv2
BFurqFP4GF/vpUhvo6KHHasNjKrAfZm+aBvcMLoEtlVR/sgtZnveKPt/Fe2T
L99p/1LZ/6toicvoAGmxsv9n6yvP6tADZT9tryKf1SZmgXnK/l9FL63u7wqe
o+z/VTT4bvzCR8rzgkEq6uCzdP+Fn8r+X0VdX04NH3oe7XdQ0fgmsc4flPkf
oqKWszx+aQSAh6robcdZxV8egYepqGOOV+c+98GkosDZv2PN3MHD2fi9N7/6
Zj14hIqq2yxZZ7AAPJLN77B9Taeng0ep6Hj+nzm3QsCj2Xo6MXfh/PngMSpa
nte8uGIReKyKRlkWt8jQBDuqqO2RHVE9PcDjVKS7xX3qEGW+nFSUeX7Jg2XK
+Ixn/a33XL/ODDxBRe5xJf1X9QBPZPp8JXHBcGfwJKZ/vwOXDngB/XNW0X8G
57kZj8EurLyvgXdrLMCuKprZIudtt+PK/l9FJ/KvSUUHwVNU1OtZ2c7OKWA3
Ff3t791apwz+YKqKWsQO9JyuPI+YpqJ3TrNHddRH+ukqyvk6/vi1dPAMFaV7
qrskTwK7s/W1e8P9m7uR30NF/YfsuxFbDH81U0Wvps7qMkKJD2ap6GeTI7Z/
PkDuqaLC279aBFuBvVS0MPdoD+d94NkqChOqnU3d4P+9mX241rhpvrI/n6Mi
16116r2V/cdcxhYjFw7sj/p8VLQiwDjm11Rl/8/s0aL+yTQO8vkqmi9+G9lc
V9n/q+isdeDzZ0/Avqz9HUObHQoFL1SRXctN7xop/thPRcU9mp752QS8SEXd
D/+7aqoD9mfra8VljT19wIvZeBba8x93Kvt/pt+ffQw0HJX9v4pSCgYl6X5B
vLhMRaW3S3N0leeny1Xke2/H18H/wAEqSvj71K/RfvAKpt+Vtzxm5SM+Xami
DwODdtlpgVepKML8XqLpTTwfDlSRfdXfW4YWkAepKGSw2uR/+5T9v4qu9FLX
mWWo7P+Z/uakORQ/hnyNipKcDHf8GgpeqyJj1aztt+tQ/joV2fgPjjFOBIew
/izLGnHCUNn/M3/gurJMtwt4PbPPrzTPHdVB+g0qCtYRQ64+wvuCMBUV3Bz3
2HgxeKOKPFqsKP+aC97E5jvi+Z4Wl5B/s4pWvsn4a6QCb1FRaPjl8RlOqG8r
W+9rzmvd7gT5NhWtGhuTpq28TwpX0fPbN1xc1kMewfQ1+ci3V0mQR/7f/rSt
/dQavF1F54fdG/KV8D5mB/P/429uLvoPHKWiM529huu0R/qdKorpXGJz4Bvk
0Wz9eJmmmAeBd6nIwP2xpqUmeLeKuNfnP7ZV3ofFMH0cNWZ3d1e8H4pl/jfA
tszKCvI4FZnZNjkTsBHyPSpaJF4gL0PI96qo34zLk8fuh3yfilTTe3ydkYj3
dftV9D+ezjysx+Zr4CUVoSIhW4t4VBQJFepkbZFUQlkqiogksiRaREmlCK2W
QotKqHSvX5WyJ0uWQoslpBSypOWd97rO/P78XGfuWc+cmbnnzMyyS3NHHZyG
nFAMWgP1wcwKOZHor/d/g8xicH8wicw/pEbOmtOKnEzGy/5y44KnIqcUg/7u
pu/zPfD71GIo9T2++JI/pn+GzKcGXRVyZiOfLYalmqUax+WRzxH7UDTiXV1/
zP95Ut7Cj90dfzG+NKJvWRk9145h+HTSHqmOafUPkC8Q/Upa7XDqJH5/kbSH
00D3nmKUXyqG8oAZGq+PojyDzH9SPm1K3IKcWQwran5+n07rL4v0d90jYvlt
/D6b6MuYhp+GU5Avk/nZwnvvXbMwfzmkPtquqzS/R84thl8meudC7JHziqF3
wx3+2hbkK8VgPlEp0aYfxpdfDCoaR078GYd8tRjSBxXV1I/E/Fwj6a9/qv5g
LPJ1Ep8PMyTfAMMXEP1XjpRtrcD4C4thXO9s3/1JyEXEPuUPTndeiHyDjDej
pV833EYuLga4knSom0VmiuGJg+6eL3OR2WLYJv/g15nV2N5cMcj0zhvkXo7M
k/FzR9zMEW+RhWIYdeG0ttdhzJ9I5hsDps+6/xPjk5D5Sp7chKk8hr9ZDAsV
fAZfLcb955JiMHCek3r5Et3/L4bcl0mZt6i/QlkxuP09n2V2CvlWMWyRK5VU
P0MuJ+uBC5deLXmMXEH059/rea2/kG+T+eTKxk+bN+L+/p1iuL7qSnWfbuS7
pD6NN8nYGGP4e8Q++Y3al7MP+T5ZXzTm3ih2x/w+IONZ6MU9yh2Y34dkPJ3v
NzTQie7/k/XAH8OEx8lY3kckvdQfz6otsD6qiuFw+bNVwU/o/j9ZjxS/YVoX
Ij8phr2eDx9YHkZ+SuZLj2rVHpVi/M+KIeqV/qBryZh+NWmf2WVeKQcwv8+L
wdt3+bK3w1D+gujn1WizRhvkl8T+JAbfXxiI/IrMj0O+jHcfifHXkPnUcItX
T74j1xZDfvPvmV1xyK+L4d6TZbLrW5DfkPnjvMqHASuQ3xbDybE7hvQkIdeR
/hqsob1rAXJ9MTRvl7t1QAe5oRhazTK+zcnF/DQWw7yUhxO/ySC/I+N5Uf7r
r6eR35P2sZs4Nm47fv+B1N9qlb0WdSj/SOZD3pqDRgcgN5Hx5ffMM+eDsX4+
kf7l9fiHMfV/+VwMZfe+/N3ohPyFzK+knvIDp6C/S3MxSGvU9JnYgPyVjI/1
5dF/+2D4lmIY0umxZij1x2kl/fvL/Rnxhhj+WzHsdnvpP+QRchuZbzWne3il
on9NezG8zuw/btZ69F/6TuafseteOI9Gf6cfZHybOS5ubwryT2L/J17w3H0T
v+8ohrdvo0YnVKD8FxmPnWx+jL+K/JvE12+I9gAa/k8xDJbraXK/iPy3GF5O
q9oR207P/5P1yNYbX4r2Yn7/FYPS8doFkfR+0S5SP84PFv74gvLuYvjx+3ro
rWcYXw8pz/Dqg/fPIPeS9bTupzsHw5GlGKjpm2Sb0ojpSTMgG1PeM3M1ch8G
7LWSar5cxPqQYcDu2S77fTz6w/VlYKvvDOvMRSiXZcAw72Gb8ghkOQYSHIev
9ZiELM9AS9eYN0uPof9XPwakll/4qXCR3v/HwLt1iyy30fu2FRi44nPPPsoF
8zOAgaK8yL1Vi5AHkvzPs62EIORBDITJzr/S3wDrQ5GBoBd7u+dQfVJiwL36
kJfhRWRlBhYGeio6U3+owQxIUu1VbfKRhzBg9CnpzmBq31QYWJ1sOaySQR7K
wJRCTqJL7xdWZSBmdv3aD/T+3GEMvD08X3bnIOThpL7K5YxyUzB/IxjQnfk3
eCK9f1iNgRkb/F5su4U8koGN1x++lrmNPIqBga6qluttkUeT8l03818wAOMb
w8DnQ8PCXyzG9h3LQLX3MhMfTWR1BhzMZhyruIj1pcFApqlQZLUMWZMBvaVV
5kY5WP9aDMjvXXPyxnNsn3EMRIgjPsgFYftrM3Dnof6sX/R+i/EkvxPPvvtQ
iv6qExh4OSbiW1Bfev6fgd9r/Y8Mu0HP/zMQP79S+vtXZB0GVEr8e1adRH9M
XQZuz+xY94D6R+uR8uv8UFzdB9ObxMC8PTWRBiWY38kMuJz8lmp3ClmfgfeJ
ah8yXZENGFDdaRDa9xh+P4WBI609ly3yMb2pDBwePu+sUQXmx5ABR8uvKgk/
kacxUDdhyoAx9H4RIwbKFs+ekN4XeToDkca9Tu8+YPlnMHB+6LaAU+ORZzKQ
VtC2q2ENhjdmwDr2r0NjOaZvwsBJd0O1JH3MnykDweZBO482Ic9ioPTFuFzn
5VgfsxnY+/bLyo5a5DkMiJUxPSsGYHuaMbDc9PL8DW+w/c2JvvafM7VqPTIw
MOpXhLLZU6wfCwacgh2q1d8hz2Vgp9REzTemqF/zGNh9KeDbhm7k+cQe+ARN
mUT9Nxcw8HzQPqssK/x+IQN3z95xn9CJvIgB48lvn8atxPxZMhAwN/dQjyOy
FQPQq7b0czOyNQMH/W6Ej/+B8dswoP2yS6fIDuNbzMAO1Uv2L99j+W2JfVm/
LnovtR9LGBghu1l6kYD1a0fa+85wlfwm5KUMXJj1N+SmB7I90Q++SV+b+iM7
MFC19cN/ObR9HUn5mWOtga7o37yM9Fd2RN9N9D4KJwY2LFDxrOpGf+/lDBw6
feaU8Bn9wVcw4LZggF+fGpSvJPYufMjWInp/iDMDc7P25v33GMO7MFCrrbLs
zAyMfxXJT6z/0Xp6X91qBpIuZNt8c0X9XMPA6daVpk6+KF9L6sv62P0bE1Hu
yoDytsBdH6g+uhF77aMu33kay+dO+mOBzibeGOtjHQOugyaf35qI+reefC8z
atNFWn8epL2cA9bHPcb4PMn3F8N6hGcY3wZi/45M8Ri8md7/z4A0pBVfvYPl
9WJAsMwouTwUeRPRt9sqi/94YPk3M7DpWcrB4fS+R2+iP5ldfRUH4nmaLQx4
/+k48pHeL7OVgbXFUu7j9JF9SP+5YPjeNJDe/8eA5V0XruQGsi8DJXX9JnZe
xvDbSf+JX9385Dj1/2fA/Hbfp/3oezQ7SPsXvq42uo353cmQ9c4US4G+n+PP
gE6Jv3+UGfIuBvwPnnTpFfD73Qy88Td2f74C09/DQNTxu/rb9DC+vQz8ix4/
taMfygNI/zI3uWkxH8u/j4FbUndfB7rj+ahABk58fhFVkoK8n4H8mruzj6/D
81UHGAg1y5rSpwXvdwgi9slNuHtuI54fC2Zg/KuMtcf88PxYCNHf8mOwUILy
UAY+da3YMcwX75c4yECfysD3Dh4YXxhJX6bQ9Ykxnmc7xIBivePX5GMoP8zA
5VHmLtrXkcMZOPPWLXjrN+QIYi9ebw/0MsTvj5DxbKnTyA43PK8WSfRnUV2j
Nb2f8igDv+ZGHVqhjuWNYmBazvgTG7OwvNFEP/VKTT0sUR5D7EP0erPmT3h+
7BgDap4fLz6n97PGMvDl7pn81fR+rziiv90jBpkwWN/HGeA//Lmi3Yj3lZxg
oLLKXEm9EeXxxH4pZD2LpPpykgF9h8rXDNXfUwxYSTtMq95I7/8j5d0eNm7h
Gnr/H0k/5o/0dWo/Ekl9ql+udDRETiL26mCCX99b+H0yA0vf38ryoPcfpTBQ
r6bgnkLfD0ll4Psi5fVVi5HPMJDiqpYR74L9/ywDu7rqJrB/UH6Oga85V2bc
lkf5eQY8nJN0piqhPI2B+w4GUp2OmJ90BvY//HG3kMH8XGAgo7FU2T0U5RcZ
qFiU6DD1OZbvEhnP5H710fiKnEHs1Z8XAUZ/kDOJvfMv9zhH72/KYsAkoqWP
7060J9kk//FPnfefQXtymdiLbPeGog7kHAYezNqcJEPvE84l+nLqepxKN9qn
PAaik8I9yuaj/bpC7NX0jIS0Vhwf8om92MkX5+zE8eUqA86y9brjB+P4do3U
d/eFseFW1P+fgY6GLJsn9H2FAgbSj5+cK7OP+v+T+ZzcAJd/B6j/P4lfZ5rX
0gDq/0/0x/L6Zzm6fi5mYLPqpH3cWGSGjCdj7F1WFiGzZP4UPepl4AFcP3HE
vmR2TZW3RTnPQHHiBXXdT9T/n4GZaVXbuFPU/5+BAWrm5twl6v/PwL33P0qU
aX5vMjDJe9TWphjkEjJ++ByCjfT8Qimp/yXbO34C1kcZsVd+w2UPnMf6u8XA
2H9yYzWdcLwuJ/F5HUuamoX1WUHsQWTzM316PuU2Azf22tbKGSLfYWBo2CQF
xhK/v0vaf9xKDY1h1P+fgUa7ckF3PKZ/n/TftK5hWnT+8oCBWT97bRxe4vcP
GVgScHLv1YEoryTrg+V6Y1uGoPwRyc/4AbtslXC+UMVAX1g9cmA2lucxmf+P
iVweQd/zeULmQxl5yROSkJ+S8Sb57STPWIz/GdGnj/1clOn6qJoBrUvLTOd8
QvlzBhqefWwcdwTz/4IB1qBX1tkYy/eSgeQt75vYOJS/YmB704XUn/T9khpi
n19Ynmi2wPRryXrltGGwwy6Uv2agcMW92Bn0/Yo3DEy/W+CQsxP5LQM5H7l1
36OwvHUMLLrVNO72EeR68v2EyTLeg7G/NJDxpvvrZSlL7F+NDNjOmz5lHD1P
9o6B4WEZH57OwP72nsznXzrnfriD338g803N5PCqSpR/JP3/q13OvVxMr4mB
x7nMv7QZmL9PDDx5wNoph2B5PjOwzbRi1lc1ev8fad8LSde5HHr/HwNj2Pqx
F7Yjf2WgMx6K+ScYXwvpX7PevFXZgOm1kv7T+V5vST/kb2T+HZ3scrQL7UEb
Ax/a3oW37kN5O1kv6G380aWN/J2Bgne1fyEM4/9B1j+F1r6vOun6n7TPNc/Q
8AV0/U/GI129KFuBrv/JeCbTury3Hdv3N9GXPfvvzlbB9v/DQI8j+8eCzqf/
MrDP6Xu+Uw/G18nAwzvH3F3f0/U/mR+kFD3aR/t7FwOzI67Mar+C3M3AxK44
qzj6nkoPWe/FmZ04SMP3MsBs0NX/lIYsxcLKwQU1VneRpVkIFmwm3dNC+9KH
hT9lijkbslAuw0LZHJmz4/2Q+7JwQq9wj9YvZFkWhKaOfceo/ZBj4YvKizka
5hifPAs3Ju6PiNiP9qwfCw9fP1S7bIzcn4XmUt+10fS8kQIL12bIucjS/2UD
WDCf1vbL4BLGN5AF3+Xd0r3TkQex8Kwm/4TUbmRFFlq6Vks1OyArsXD39Zml
462QlUn6kytuvCig638WNpzP0b5Pyz+EhZRmGPNlMF3/s/C0IGHj5KdYvqEs
JKisad8cg+2lysLVAdsrYoOwvYYR/pU3Z6MhXf+zkPdxWXgG/R8xgoVl14Iv
GtPzbWosJMf+yjXSoet/Fkp8i/ML6+j6n4XL95O0m95gfkaT+l/w/vDGIpSP
YeHnF9ZVZximP5YFzVdRjU8nIquzYHWjnH9+DFmDBcnUiY7/0f9JmiyETy0/
Yq6M8WuxMLwhPcEgBOXjWGiaLV2++TuWV5uF162jw+IeYf8Yz0L+14ZzpfQ8
5AQWsnZH+D+QxfD/saDyfPKWvvS9noksyBqZeL5XxfzosPBvxyK1YDp+6LKw
UWmbsx59v0iPhRklrxdUqWH+JrGgr77I0NoV5ZNZSE25fWWOOrI+CzV72X3N
AsZvwBL7cyZ1FH0vagrRrycXn9evR/lUFs61fchwmoNyQxaC+h5z+ELfY5rG
gtOM5Dlqa5CNWHgRe8zuAP1fPZ3kpzHvVJIvymew0F0/kpXSRZ5J9GmYbZXq
FgxvzIJ1lX6fYCnUbxMWOhtScy8WY3hTFpaYjn+5+wvWxywWfu89viEFkGez
YLdtTYyEjndzWBh3vv7o341YHjMWVM09F29Ko+t/FlYPKv8rxGH8QPRH7fcl
Xfr/1IKFTQGdHs70fau5LFS25HUuDESex0Lo2FlLbtLv57OQdC/y5dKryAtY
mLzY+8QSWv6FLLwfvvtVnjSWdxELljVq9zsXYXktWbgfUPb+uRr+P7ZiwWHm
rYTCNcjWLAy6eFCzfBuyDenPK0fnuvvg//jFLEy896/x5T5kWxYu5iZcWbwO
eQkLl7q7R82XRrYj/Tvu8oOGNEx/Kcn/74rZCt2YP3sSf4i2QwD9/+1A9C96
0pX8dmRH0j+cvjT4yWJ+lrEwcvq3Swo+yE6kfpLzc9c3IC9nwct+7JTB15FX
sDBhyPI7A2ZgflYS/Rpwz8hoCbIzC71zj+n2NmN6LqQ//GnaXKSM369iwVR5
RXe9H/JqFhpXCyfLXmH4NSzIvRhesnw58loWHmRfNbDuRnYl9aWwsOulJ37v
xoLHm0gp5yaUu7OgcHTr4Zoo5HUsRLUpn2raiLyehX0/zOLL6XzUg4V188J9
Cjqw/jxZ2Dt3nAUjIm8g8uaRH32ofm9kYaF01s5Kul/ixUJuwXeDDkXkTaR+
xbdJq+yRN7Mw5vDhm8vGY369WfgasmTMv18o38JCzHetOTcbkLeS/p7puN5y
KrIPC6VxvyeeicX8bGPh6NEXLobWyL4spCfs6K58jvq6nQXFjNKBFrNQ7sfC
nbKyCX3o/HkHC/8BM/K3G8p3kvpYrhyZQs8b+7Ow2DBugjW1H7tY2KKQlzry
I/Juos/P/8Un+WP4PSwURI01bKL1uZekt9hrd+Vr5AAWxlaDXQBtv31EP9ve
FLbcQw5koeqi/oWuKcj7WThl+2TMpWPIB1iQb58/ue09chAZT0o2XR2uhPUZ
zMKw+HvRL9yQQ8h43T50rUjP74aykMaN8OqbjXyQtOct5vvCQOQw0t+Wyq9Q
GoR8iIWQPjFKH+l54MMs7FY7aqZD2yec2Kd/Uc2n+2P4CNI+f9L6Dy1CPsLC
oY2lHVm0vSNZ0Lh/69Ntur93lIVj+tO8x1vS9/9YiP+5f9W7H/T9PxZ0LoZ7
fjyM8hhib5nP+4fR9dIxFg7I2hldDEWOZcGiacPZ+XR/M44FV8v2Nv8o+v4f
C22L1hhkPabv/7HwQS5q+dBt9P0/FvpF+nZ3+9L3/4j+Huj5o/of5vcUC5tf
LbrtQM9Tn2bh9p3P+6U5DJ9Axr9s+bBB75ATWXi38+rpbjq/SWKhz/Uiq+H0
/38yC57j86eF0/EvhYUrS27yypuQU1lYm2Jx19QM+QzRJ8VNJ13y6Pt/LPic
X9bX9yM9/0/yVzqtzCAU5edZUAp6NXd0BcrTWFhw1jUwbS19/4+M7ydyfdoB
x/sLLEy9PWmIPJ3PXyTjWZfDqW/0Pu5LZD7X5penwaE8g8z/tJQaRsfR8/8s
1B13CzhB12NZxP74LJSb+hnXE9ksvDkl77blN/JlFgZ/v3Dl5C7kHFL/u+Sf
3Kf30eSyoBV11rlfDK4/8lhYVfv42WYH5CssHEz7WPB3IIbPJ/Pb6VuqO+OR
r7LwS82oUMsTw19jwcD4sVP1OEzvOguL+F37fwgoL2BhxOH+EgW6X1HIQt83
/3m/D0MuIvqpJ9Ve7IJ8g9jT9BU2CsOxfopZ6B+tvdFCDZlhYZLO1SH3kjF+
low/U133WBxC5lh4VanxzKsPxsezsKuzqju7FvMvEPta/WX/6tH0/T8Sf+B9
Oftk+v4fmW++M/pscB/5JgvZjx/PqdmF7VvCgvemCp/ocuRSMh/iy/uZfaLr
f1Lfw5+s7RiF+nKL1O/QoGcr6fuG5UQ//mh+u7yd7v+z8MnEIORdHd3/J/PR
rPRn5V7YH+6w4Nxv9dO7tP/cZeFWTqj4g6X7/2T8rnBLC6H2+z6Zb050i0m7
Rs//E/0NDv7dcQPTf0jsRXGPypLNyJUsON6bZfb4C/IjFuY+uxe1YDKmX0X0
y3bLsAv3kR+T8VF69PFzP5CfsODvPGx/lwXao6fEnh+7HHO2nu7/E/u4NmL1
qgrkamJ/FO0KJifieP6cjIdBfjGXNtLz/8Q+bn5WWjMb+SWZH0XIv3e4heFf
sWDkW+jyj/oH1ZD1iUrsSSkHev6f2COnCedP/cTwr1lwV5BEfYpDfkPmM0Fc
iuYJ5LekPk4On/TJCL+vI/riLpPc+Ai5noVArbBPpRPQX6SBfF+vGL6KR3kj
C2JrYFLjEZS/I/NZheRVLYPQH+Y9C2EFdZbFWsgfSH+3ySubV4HhP5L60zdS
9ruO3ET05cqnxR0y6K/1iQXD0JUrZfWQP7PAJtqE9fPF+L6Q8XRYt064OT3/
z8Jha3Xhxkt6/p+Fj3+DU2e8RW4h9Wczuf7nK+RWMv613p9klYX8jQVjzSV5
uh7IbSzYr738/NAFev6f2OeePt6bJ6D8O1nfBSfqtS6j5/9ZUF601bl3I/JP
Yq+NTL6tXYTfd5D5xY9OKT8bev6fjI/jtK+o36fn/0n/bTdyUG7E8H/I/Meq
qM6wHvkvGV9/lerqdSJ3sqD9wu/Nsxrkf2S9crzlrwP1Z+si8+dfq2xVaH13
k/JeXpv8eCZyDwu6kYsSS8KQe1lQt2pfOC8B21eKA70dBinFe5GlOVjtUO87
fw+G78PB18ifTyz6YnoyHDANIWpLrZD7cuCt7TpujgS/l+UgXrvsUkI8shwH
UuN9ln0uQpbnYO6TNr+4wRh/Pw4+3fC7GVKH8v4c1Jn8N3E6zY8CB9UFq+X6
lCEP4GDYcmk7J1/8fiAH++5/jK34hjyIg74pSt/zqX4qclBwJ7x2bCCyEgdX
Mh2c9jRieGUOxo/+ysRvxvgHc5Bt2h0wNQN5CAcmPb5fo0yQVTjQbLytkj0f
eSipn9jOj6N0MD5VDkIGLmh6dQh5GAfXx9WcNK1FHs7Bx5u3amS1kUeQ9J1N
C55tQFbjwCz6enThBeSRpD7aGx5niZjeKA7mH9ittG468mgS/kC4jx/1BxvD
wf7ZTb0jqH/gWA72nva7aEjtiToHLyOvRo09g6zBwdZBb3U6afk0OTiq7Kmx
9TmyFgf2CTcZB6o/48j3Z5vUL1DW5qDBZ0EDR/0nx3Owc6bn/Q5a/gkcRFi1
5TH0PpX/OGjytFl/5Q/yRJI/je6Er6bIOhz0P27QOYq2ty4H2+3/vDOm7a1H
9CtK59qWX8iTOIj+MHn08JfIkzmAyILcE3nI+hz82up39BD1PzTg4MiYo8sv
VyFP4WBWWP/EsVQfpnKQWyV1LzgX5YZErvX3ejXVr2mkvi0fZIzqRTYi+nhr
T6uiPoafzoH6gecTD59H+QzSP9r6vX75E3kmB+k75o5LvItsTMpnavv93Tlk
Ew60KgIkNo1YflMOpndqFv9tQfksDmQ3PPh1jpZ3NgeVhomLa7Qx/TkcsLu8
ZG5Io70x48BT86xEbymyOQcBamqffg5D/1vg4G621ZbNScgW5PvOH/a7TNCf
dy4Ht1221jrS877zOJAL3JZzagTyfKI/m2crKL/B8As4iOynkV1kjvKFHLRt
d0mfuxX9nRdxwP0Y9ujfK/TXtuRgXJxPRdlrZCtSHi5Tza8O2ZqD/xJnSes9
QrYh/Pykn94B5MUcyCgPrfa+i/HbcvC+Y6aB3yPkJRwkbmC/Gdki23Gwaf3l
Q7qNyEs5WOE3rcnoJLI9B6/S1rqo0fPCDhxs+1XllfwY5Y6kvLVHpo0ZiPJl
HHSoKcgqnEO5EwdjHw413aWO8uUcPM1bMe6kNPIKDkZwkkO14Rh+JQeLGnIt
h+xFuTMHuv+pybDByC6kP9mv9vDYiLyKg7LQ3rZbvfj9ag46YzwenjCh5/+J
PS/sDotzQPlaoj+vld/nU393Vw5uyA4P4XZje7mR8G9NFl5YguxO6q9w3UDz
AuR1HERJpZu478Dv13PQ/WrBtx1yyB4cjKk+qnFkMrInB8mfL+sqfEHewIHa
gPDzYWHIGzkQipOOLFSn5/+JPdg16Njy08ibiH1pdQ0fPIme/+dgdrlT6Sba
vt4c9GzPvHZ4J8q3cLDlXUaI4yDq/8+Bcf7HILe1GN6Hg971tb4+H6j/Pwc2
c3dIr12Fcl8OVsnZXd5eQP3/OThfGDE29hb1/yf6aT4/+agEeQdpr5ST8vYl
yDvJeFE9POzgCmR/Dk6MVxytuZn6/3PQrjYlfPY65N2kPENHna2h5+P3kP64
4JnspPfY//YS/V+QwczRQHkAB0PLRq9b1U39/zlYOeRytgKNP5CDi5vuzl42
hfr/E/1tNfQ8QOM7QPQ/65PhOlfq/8+Bu8eCHypR1P+f2Dfjr7Eny9F+hHDw
1inSd8kB6v/PQdKDsKUe+cgHyfhT0t1H1Q85jIPi516rptH7pQ5x4LJTbVRV
A8Z3mOibOb930nfkcGKPqwt3vNTH8BGkvTJWcQH0+yOkP02+OcBahfr/c3Dt
AG+ntIb6/3Ngbj49eC71P4/iQCP8XOSDMLSX0RxsHvoo5cAWHP9iONgzp/Pp
ywzkY8S+V7hWdFJ/+lgOfNo1rMeGY3xxpD9tcpd+GUX9/zlQdjsxMo1BPkHS
+7Xh0pbRmJ94DvwKDr17NJH6/3OQH/r3dDEdb05x8DekdHb7e+TTHHwbtSe/
WhPLl8DBm/VLA5NTkRM5WNeS7uvjj+2VxMHwkJvejqORkznIhMa00jwMn8LB
KGUpu9XOKE8l853K9UemWyKf4eBS55ixQfT8xVkO/tw4eGB/PsrPcfDi6On9
notRf85zcHjkqbFp9L6mNA7CrAaHrFiGnM5BeWqU44ZC5AscjN47UG+2DOr/
RWLfpGqkT1xEvkTmd5V2zgu1kTOIPsQHz5heit9nkvHE/sj8THr+PIu0/1Of
Kj9AzuagZMenjUvbML+XOdg93jAp8zVyDgevrfPcss4i53JwX+W++yB6viSP
5HdEweo8ZeQrHORpTEvcOgU5n4OZLs0hmubIVzlYWG9j7uqG9XWN9JdlzmOV
QlF+nejHmQlxEZHIBRykhrwP05AgF3LgoHHNaOEv5CJiDy9rqBemId8g4/eD
Z4eZ8xh/MQfL+FP2Im0fhoOY77NXSNP7wliSfvCzkP2jkDkObqVr18ueQH3i
if4unFg3bDeyQOrzps+8eXQ+InLwXX22jiqdf0g4eBJ/LVJeDfkmGU8r2b2W
9PxFCQduzRlte8ZjeqUczFi+dNbDechlxJ6Vyp8v/Ivf3+LgkIdkq5Q+cjmx
j1KhX8xNML4KDgpt5KNOBaL8Nhmv1S3WO15BvsPBoP1z+xqUIt/lQL9v06E4
L/z+HgcSrYfpF5yQ7xP9OWZ3M5ae33nAwY593/LkqfwhBw9jjue+ovOzSjK/
crmwX+8f8iMyvk5XKd+8ErmKg3nFRTb9vPH7x8TeDLk+wI/ep/eEgy5NLrzv
XCz/Uw7sDvJaifR+vWccyFt/uyqvgO1bTcaPv/1Ta+h68zkZD264jF1dgPyC
tLfXBtXNpsgvSX2PHHxTha4/X5HxzewSb0jPG9VwYNDnwNirNP+1HCyW3f+p
aAzKX3Pg7JNy9nIXyt9wkNW+1PjfaXr/HweN1d2KCvT+tzoynps0vH5N9b2e
9Bd3zWGnTyE3cDDyYezffarIjRzUr9pz8zc9P/aOjC+1fT/t2ov8nozvI4vX
5fTQ+/844DPsHfPp+PORzP/KonIbXiI3kfVRidPAE0Ox/38i/ZEtUjqzD/kz
6e+XHk+vovdTfOFA5+13peNeKG/moPZxl+4oOt5+5aA5kNNIy0ZuIfPLwxey
9VSRW8n89sPUrjPqyN/I+FRQM2IiHe/bOHj3uf2RpojczsFa+z4DZ03A+cF3
Dqa5Km590YLyH6S8+mdkEij/5CC4/GmkRQDmr4ODwYOiZvZTRP5F+s+D9tFL
7mP5f3Nwp3a8zSF6nu8PqW+7we+zHtL7/8j41eAW8ncTvf+PlLdAdV2ZNPI/
oi+tuhlt++n9f0R//R+1/B2G6XVzcMbGpl3KFrmHg+faxg1+ufT+P2I/fbgN
NieQpXgQfZ4/W1aP4aV50HY8e/vHLOQ+PMystfYZOA/Dy/Cwy8KssdgOuS8P
U6J3Lr1N9U2Wh/zA5to7Q1Aux0PamSFyK+j8QZ6HUf0kn9RXoLwfD+3p+r3O
CvT+Px7SN0tXcizKFXgYMTP6pBYtzwAeZvOn4w4/RvlAHgKknrlLT0QexMPr
syF9h/YiK/IwYLtdMZzD9JV4EGR2yLpcQVbm4ZPfBMs95ciDeZAEWM4pccH+
NYSHsvHdP1cEolyFh5tyh72O9aX3//HgNnAkZAZieqo8KDcP3hq2BHkYD7HT
XEuuluH3w3n4W2lbY0jbcwQPFZbLKyJ+oVyNhwV6Y3Q30fs1R/KwZKXpkFm2
GH4UDztP27oa3kAezcPhGQtPxLzA8GN4mGO0VHEVLe9YHl416s7Lz0BW56Fx
a4ZC50D8XoOHxatfJa6i7aXJw92nQytrj2N4LR78uIvz5rUgj+PBecfuv3MX
I2vzYHeCiTZRRR7Pw8QfMHXgE6y/CTxs3j37wKP/kP8j+uI5sOyZKvJEHmpK
7iy2o/8DdHiQqxuyOC0AWZcHkMpasV2Lrv95kFe4LPym6+dJPPxZvX6Ez3a6
/ufhuJPemZF/cD6oT/SjTcf+xkOUG/DwTHHIz3336PqfB3+tC1lN3+n6n4fh
ESn/EjKRDXkYnfgy4fVSDD+Nh2kNZWP/mWF5jXjoPJm3ynI7Xf+T9n6y5/VT
er/oDB4afm7fAdF0/c/D9+8OP+MX0PU/D+r9VewVrej6n4duN9mbKwvo+p/E
d2v/vOH0/9osoo8rW6JX2yDP5mGLQ3b59x04n53Dw8mCdVeM7yOb8WBzqfWR
ZymGN+ehzbfBZM1yTA94MChyOBoqoNyCh8iRZwZujEX5XB76+efH/RyJPI/k
x05l/OkpWN75pL/oNGv81kRewMM76z8t8RkYfiGJ39oI6tcjL+IhZUZ2Z8g6
DG/Jg+3UzKBOEeVWpHznZu0oV8b6tebh0kobmetByDYkfO8CV1NP1NfFPGyK
3hzDb0C25eHsFevym/R+2SU8fNkh61azDNmO5C9WcfRT2p+W8uAVW+bp4IBs
z8P1iVMXB03H/u1A0ot6et17HrIjD9Yaq0yq6HpuGQ8XWz5Fa2ghO/Gw7Y/6
h9H0/rflPNRde1IRY4rjyQoefAPbJsfQ+5VW8vA0r2++63VkZx7uVeqPvmCN
4V14eJn+99+QFORVpL3vOh+4e42u/3nYp67ptuoi8hpiXyINvvgcpet/Hj4H
WVvk0v8nrjwkvsjJ+KqK5+PdeHio3vosPoKe/+dh9R+PmPf0/sF1PETtSA4r
q0Bez0PY5rz40fn0/D8pT3B7htdVev8fD8Nk7kWu4jC9DcTezx2avGIJ8kYy
Hjh4pvhQ9uLhiOuwhoXX6f1/pP5XvLC1mEfX/zxYLD656ym9n8mbh/7eRm9e
raDn/3lw3fCOibLG+wS28vBkb+HjriZ6/p+HEM3iEca76f1/JL2ZGmtiaHl8
eTCs+nv8txR+v52HxyHSIY7myH6kvlcNOrnZDnkHDzfWqDQMoPc37eTh/kdN
aXsq9+ehS/V+4xd638EuHlKlZKNPpyDv5uGcOVxYRO8T2sPDmZhHHYZj8f6H
vTx83bfmia42cgAPfdSPxuYaI+/j4Wri+qjN/siBpPwH/9VqFSLvJ/0xMv2D
J73f4gAP406aDesnh/dhBBEe3nfF3CXIwTyEGmT94z9j+BAePry13XKBRQ7l
oXbP3c/d35EPkvLKVc7tpPdhhPFQ2rtuqhNN/xCRx4j8eHp/3GEeTm0yunKd
3o8RzsP6PTXlRfR+qQhi/1ulzB/R+92OEHvxK6zsaiRyJA+8RZ/f/2j4oyS9
kGV1pcUoj+Jho96tP3/p/8NoHiLmRb+Sq6H3/5HxQ2HLOzOR3v/Hw5qJh768
akeOJfXZVTY0eifGF0fsT5bXinhT5OM8GDs/GmlzEMOf4CFJ5nnlI/o/Lp7Y
R+uwzK/0PrqTPLSqhqhN96L3/5H06rQcPtD7JE/z0OLt7/PfXuQEHvbfba6r
uIH9P5HMb5Y4P09ahpzEw9KttxT6GaF9SeYhbqTjevlXaK9SiP3p/7SBkaPr
fzJ+uew3t/REe3mGhwOVUy0s6Hh/lgfp+C3jFtH15znSH23cVjcWofw8sVfl
4/1sRtD1Pw+6/4kadfR/VToZP27frT1F5x8XSP/2ivX0mY58kYeR40dWvH+M
8V8i+un5pW5yL3IGGX9dHSZITmL4TB72pM16/K0W5Vk85BjFLE0GlGfzoN/f
5IHSQEz/Mg+nr55I9emg638y/7EMmB17Ar/P5eH5Zo837rS8ecS+p6w13buV
rv/J/E90u7Mziq7/yfwkpjLqdxdd//NgWqhQNtgA07tG7MXb1hrPBrr+5yFo
ZnqnbR1d/5P+suSrnGYWhi/kwWSsY2M1/f9SxMOj4pioFnqf9Q0ePOxDBrWE
oLyYjEdWH3Us19L1P5mPG79RX7+Srv95cEqufVg7k67/eRjK3x7bRPdbeVLf
SVZ+4Xl0/U/G/5n7Bmpl0/P/PDgGn5/8hf4vk5D5hqFDv+HddP1P+n/PN+lB
e5FLePjv1MGhpkeRS3lQi8+/dXgRchkPxfW78+ctpet/HmaUdPUpUaTrf1J/
zWondej9EhVkvVCvLdNB52u3efjpd9J8lgXm9w5pn5HTv62k+0N3eShJV0o8
oYHzkXs8hKvolClux/nMfTKfCl4v5deD/IAHldF/Ao3kkB/yMNdwnXLWWvy+
koepgQUfNdzo+X9iz2TLPFvy6f3/ZD73Tme302x6/p+MZyFzxj3YRM//k/Hn
kWrXQA96/p/oV/naJKGb7v+T8aBj6PB5a+n+P5kvdO245xGF/JwHxaLGGJ02
5BekfFLbPGSp/9pLMl7qZclcbKTn/3lorjqU9/x/5/952NF408FzBfo71PKQ
HJo2JOAH8uv/H08myepeQH7Dw6RD0+fPtsX43pLxb+XVgDuW9Pw/mZ8HpEsa
XOj5f7J+Md+yoY36VzXwkBtrOkjJmp7/5yG6JeXD71aM/x1Z/3jM+RNP/aXf
k/KO4HR6lyN/4GHV5ZddagnIH0l9Pvc/4mJHz/+T8JX9nc/R/H0i+hAz6Y7j
LOTPPNzx+6ipsgr5Cw/f7sSuWWOM+W0m9r9NI92Z+q995SF46Kws/xnILWS8
yPec2DYDv28l6xPH96UvqH/kNzLfGsK3y/Ygt/HAKv6XOYL6l7eT/tByRHNp
MPJ3Yr8rE63S3ZF/8GD/3iE1kPoz/uShR8JnFD9E7uDh/Jtpi4e/Q/5F7PnU
FDXZiZi/38Re6DaXj56L/IeHyZN6FpxoxfB/yXjUkr3sLPXX6yT299OBTwoF
yP/I+ian+exVf/y+i8xXrEv06naifnbzYP4kpLs5GrmHtN/c6J1LXiD3kvKu
Ud/yqx2/lxKgW9k2bVIJyqUFOODy4onuFOw/fQTYs0Dyb6kLsowAke4ztB6p
IfcVgO2502+yOt3/F6CjKXT2HLo/LSfAiO9S12NnYvzyArysunROtwW5nwDm
YV/KJ0qQ+wtQlvcw4oAe3f8X4KGp/pK381E+QIAxb5d9MqP/9wcK4HU5xs1g
D5ZnkAAayW9UngUhKwrQ6vva0fAsspIAcz/bjlIajKxM5DFvZrb+pP7/AnRe
KDt47iTW9xABjldoLdr/FFlFgEtrPx89QfvHUAEk7ORrF2n/UxXg8pNU4zR6
38kwAfxHjd7yZh+mN1wAtTh3izFd+P0IAbZ15lV/c0a5mgBnWyv276L3cYwk
5fuvbd9n6v87irRP4pOUkceQRwvgJB1uL1OD8Y0RYMGZVV4Rc5HHCrCu9MfH
BQ2YH3UBbuxLt59ohnINAWT1+tcNr0a5JolfSZpL9qL+/wLUtfakai1BHidA
xa6m0uA5yNoCmJiNXhDBo3/VeAFszsp5zfZBnkDar9XZ2pG+z/OfAEaFcivN
rmH6E0n8i6N1r8ZjeXQEyC6RNJz3QtYVYGRvovdQWj96AkxzGDBjSznyJAF+
/D5ecOgn8mSiX573RnidQtYXYElDLpNI+7uBABfXXxugaoI8RYDHtg4P9JWQ
pwpQMlf3w9QPmF9DARYtyrsbSM9/TBNgXIiC13dXZCOiby/EaTOzqf+/AHMu
l4Y4Lsb4ZgjgU/laOZrepzNTAD/7RoWt1L4ZCyB27Aqd94T6/wuwPmvg8f03
kE0FeB25w3/2I+RZpL9efddkQ8eb2QJcyBaKar2R5wigUl9jlhCNbCbAzqB1
JY5/8HtzAUZ13ZP/LIX9BwT4Fei+5ia1HxYCnPxucXjZNOS5Aiw8uOyfGh1f
55H2NSl8/MIdeT7p3+Hrrt4WkBcIAMHjInIfIS8U4Hzsq/aNs7A/LxLg8PdX
pbkyyJYCNK+ZsCPqF4a3EsD61sVddrnI1gIs3xvi1huFbCOAYz835UR9/H4x
0d/nk+61FVH/fwG0hiw6vXkK9f8n9X+CP6Z5AOvDjtTXFX3xHu2PSwX42n/Z
3I4AZHsBVriOO6z+DtmB9Hch/XIYi+xI4vc3GpglQ/3/iT4FVahpU39oJwG0
bbXPlIZhfS8XoMpjYWaGNPIKoj9rh/X9WY+8UoA743Vz4hfi985EvuJ69oM+
yC4CyCc2DpuiieFXCWC7LvNKG/XvXS3AwQztBytuIK8RIN7Vzm7EUeS1AuQX
tMkPMEF2FeBZV8RnowvYP90EaL+z1TqKsrsAdt/22/C7kNcJEF7WzE+i54/W
k/ZPtagsoP7zHgKc8Las+1NI/f8FODf/p8kPfczvBgE+T/lX05ee99hI2vN+
192gSgzvRfp7oV5Q9QDq/y9A6ren6pmO1P+f6MfY8K5oeh7CW4BZRifd/7yh
/v8CxFjclkmm/uZbBVjd6p8XF079/0l/UJrQkGaBvE2AngHtPYfpeQZfAVz6
dOxIo/e9bCf9oUQln6P+134k/Az9oK4ByDsE8Hx+10dBgfr/C3B/xO2t/y3F
+vEn/f/WFQUpel5pF+nfd12KvQvRf3Y36V//FY2VpffT7BEgsPZHXfUa5L0C
TBr/KHD3Dow/gNjbBDvpGfQ88D4BBozX6rNuJHKgAPaNW+o86Hnk/QLcVeF/
M1rIBwQwdntXFDQdOUgAqY27srQDMb1gom9n/DLl5qI/cIgAhwLVyxYk4vmt
UDKe3A6ao07vPzpI+ufL0BfG9P6YMAFKW75veETPQx4SoM+VV6fvP0c+LMD0
strd765i/OFk/Kv13BJehfII0n6yJQ2a5shHiP4pfPwdOBI5UoA1zx4VdNnj
90cFeKr85Yu3Evo3RwnwduLQrgYjDB8tQP81vjajV6A8huiPSu2mEftQfkyA
V3LT75XS892xpL2qxZsF9H6lOAGmnGkJvPcW+bgAQRMLZ7Pp1P9fgBfnv96W
of738UT/5y0+97OW+v+T+pTX8xGmUf9/Yq/Kf86Zk0X9/wW4PTLe70gFcoIA
IdKuXqtkkRMF2DHQdk0wvS8rSYB+o0MzFM3QHiQLIJMyNPwdnQ+mEP1W+1hX
pYDyVBKfXuainS0oPyPAkNBJvqfo/PSsABsOS11QmorhzwmQIi6Vl6H3g50n
7X10wx7fp8hpZH5S9ldrN13vpAvQd51ewZ9etK8XBLA6Ud9smI58UYCf0qWf
VVcgXyL23+xme2sZcoYAwfMeZ/V/jZxJxov5J3JmBaM9zxLgyOqfCxSpP0e2
ANs1jlqqjqb3/wmg32reFLqU3v9H7NeYYbe2X0Z5rgAOev+8frxFzhNgU3pU
h+0QXG9eEeDNZKf4Ono/Yj7R9/rwYZet6f1/JHzD8x+5PPI1AXqrbmnnpCJf
F2C/t5v632CMr4CUb7L2zDi6n10owL6MJfsS6f5skQDpm4KXBWxGviFAWM2V
NToLkItJfU76NtdlDzIjQMJ5m6HcQWRWgF0f54y/RP1lOAHc2PFKr2Lp+l8A
BZ2xBht/Y/qCADdTL7j/ofdlimT+x1sdXplA1/9kvFh2dWpqP5TfJONDe0nK
//bXS8h87V97xKUK5FIy//mxK+GOKXIZ6Q//nJfU0Pstb5H+Pui/dFO6/1JO
1gub7PM8XtP9fzKfyT+6biEt320yHhzccOBfMV3/C7DWPrW+2QDLd1eAGcyN
2LVn6f6/AN6qnh80TtP9f1JfCSXSu+j9hg+I/XzsNtPADPmhAFen7Ip0oPf5
VQrw+/fWQzfP0vW/AMlLKkI78pGriL6bbToyzZyu/8n4GHX/7Rd/uv4XIGnb
zKuey+j6n4xfEW90H2bT9/+I/lbabJ7oS9//E2CY3eWJS+h9kM/J/GtCfubY
Zur/T/RNLsn4nCv1/yfl/TLg3q5NyK/I95fWjDGj/q81pD2UvVz20fcAa4n9
jdi9tW47ff9PgNh5LtlXhyK/IfMPDebXVnnkt0QfO5XfvKnH/NaR/tlHZ9vt
78j1xN49ahhdStNrECDnkFOTrBf1/xfA4FlChA7ld2T+eS+12fga8nsBPJZO
cLyjifX/gazf8gscuun9ih8FONV2/W/cL+QmAWbWR6QF0/9BnwR4NOzXm6wX
yJ+Jvpn8Cq+k+vRFAKGhQTx6H79vFmD4+1m7zAajPnwVYMIiy/RZIfT9PwEC
auzgEPXfaBXgilHAg1qOvv9H5g+W0w420vtt28h6JPvjvdE1yO0CZKSUtEzY
Qf3/SXwXP0Y2BVD/fzK+viuXz32M8f0UoKBdfrruP+r/T+zv5LwBA+j/u18C
NAatLlhN/e1+k/Vk7mWGpf64fwSQrqwZV0jPI/wl8/OsudufZlP/fzL+HR3p
Mb+Z+v+T+avejEO3FTB8lwChZ7QmnTCk7/+R/lV59V/EauQekt6PvsV2JnT/
n9hHY/tfKTPo/r8IQZrxj5fQ/8fSItzpnF89vwu/7yPCkRmRLzbS/XYZEQ6H
lJibvKP7/yLEPrujc4L6q8mKcJEdtFr7KX4vJ4JTT9gZuRy6/y9Cv+MXi+7v
Re4ngmxHzFHZ7cj9RTjmqq/N3cLyKojQqPr4vRn1xxogQp8NnpmV9DzEQBFU
jshJHfZDHiRCZKJsYFsU9f8X4eOsoG1f3aj/vwgGMr1rIrchK4uwVcv/p8sR
5MEidPn/93CAPN3/J/ld/2G5GT3foSLCu643JRGuyENFyEjIUf30FfVTVQTz
4Ia6+mvU/1+ErNHfT7kB9f8XId3nhKbTCww/QoT1W0+4O02i/v8iFOv+F7Bp
GvX/F6HaU73AZRvyKBG8+/X4p95BHi2CRGfkgX70ftoxInyN7N0ZYIc8VoSz
WaNcN0Yiq5P6UTsSH7MRWYPkv5K/XeqDrCmC+i0/eTd/ZC0RfnYXvE6k/kfj
iL5ULN87mu6Pa4tw22fh8dz/+f+LILxTmFm1ivr/izBwyuV3Fsvp/r8I843i
wgeb0f1/EYZN2W3iq4usI8KK0qA5BmHIuiJUZhcV1dLxVU8ES9/g9jQ6Pk4S
IUlrQ2EC5cki1A2uzXBpQ9YX4cDP6M3y/VB/DERwuLkq5Nhh5CkiGD0Pu7n1
AfJUUj75ma4F1J/CUIS77qrPx1H/+GkiHDwbW6RM9w+MRLhZoutg6IM8XYR1
w/J8p91BniGCQnH0baePyDNF4L+kZGxagfsBxiKk+S5rmPcO2USEthJp3YP0
/S5Tou/P5nT7HkKeRfS99opMpyLuH80m9TfpnYNFGcrniBBdkTV2TTWymQgT
Q7/177MW2VyEsdP66e+h72WCCCvf3ej4IcH0LUh5s4/8zU2h/v8i/Pk14W27
L/I8ov8pBxr4IuT5Imyq4M/0mFL/fxGue5zL+n4KeSGxB3tdH8bR/ZJFIkzp
nGRy4DyypQgJ//Vz/0vvT7cSwdXQODuiE9laBMWucQdGlWB8NiL4b9UMy/6A
vFiEN2pmtgb0/UlbEb59WFWe3ITlWyLCSWnFQvVHyHYimPyWiTlF/dmXisCa
np01WRPZXoQrd7ylr1N/VAcRBsTe8E+h7186kvg8y5tjziEvE6F5eIW3E4vs
RPqXZmtXbDLd/yfyo3G+w2h7rBAhe/CUv8qDqP+/CCf6rZyv10r3/0XYkbTk
uKMv3f8n/ffWVFZC3+NbRfqj+v3hZtfp/r8I49Zmttmm0v1/EeTmfj6vV0f3
/0VwC8pY+sqTvv8nwiEbnQORo+j9/6S/7TmtfpmeF3AXQf7ggIlrOzE/60j6
7c/NoytRvp60zyPFf3IL8HsP0l+8/hs8ZBOypwhLOjQUdZbS/X8RfuTsnD/z
It3/F8E5yP/WoFq6/0/6g9XmUab0vaZNJL6Qczl7e+j+P7EfX0sV/nXS/X8R
ctbJba84Qvf/RYhZH1SscgZ5qwia5aE9IfR9MR8R+pZPG+hM3/vaJkKwl2OE
yRa6/y9Cxemt72fQ9w22i/BqctQBfiLK/UTQX7b5zMERyDtEeNyz89Trw8g7
RcifYl2RchrZX4Tnqysfllkh7xJhb6Sm5zZ3zP9uUn9G2zPt6H70HhE67AwN
q+j7c3tFCBzyX+N1et4kQITPBd3XrOh7jftEMM57mDQ0ATmQjNdXJjt1HUbe
T/SpkCk7YIB8gNiLsALjbvo+bJAIc76F5zydivJgEVRLlU51p9L3/0Ro77Ps
zuX3yKEihHlbJ7raIx8UYfz0YOdM+j5wmAja91JzbN8iHxLBNtPkdmIivf9f
hBfv976qof7Y4SK4DNR430L9RSNEmNbjeO3vE+QjIky3OHujfyFypAitX26O
evIc+agIo/RUw1ZdQ44i45X7qLeR1D80WoS5ScMVi1xQHiPCKqZ3oRQ973RM
hJSUCedGPEL7Hkvs/z6P2xpSKI8TYef9bSmz7ZGPi/AlO3dAZDDyCRGsitVk
Pu/H9OKJPuzIjWim752dJPbH5G7pZ2ofTolwP01MZPYhnxbhWXPWz6we5AQR
Ph3bVh9vQff/Sf92UpMzDcX4kkQY4qm6JC2D+v+LsFvlTaWWDt3/J/3Bvl91
D5WnivA2+2Ofhhrq/0/a76HVgzo9jO+sCPNk9l/oOkz9/4l9ezo1WK2A7v+T
8SjUtHIa9a9KI/O3SYxq0Hesr3QRQnofZh0pQr5A7GmnjFx9Kr3/XwT7n1f2
3jdCvkT6w+twy7cadP+fzPcee0UfzKf3/5P+PfvwUiU6P84SIS9QaV4hXX9m
k/qbouLZcA75MpkPvTwS1DYOOUeERZvq5y2h5y9yyXzLRDlvC00vj/Tfuymt
LH3P+4oIenoXnoWeQs4XISLih1PoQQx/VQSLBb9KBlJ/+2sipLryNeb0PMt1
Ut7eQ/axaigvEOHcq7dh1+n8tZDUp5Txp8eX6PpfBC3/hIrw4Si/QeYvl1/K
3KLvqRcTfTA+pJqZQ9f/Imwf/tEhp4mu/0U4fyvmYjVdH3PEHhwe0uPUStf/
xJ6YTkq834FyQYTZN4aeWEf9y0Vin/oMS725AlkiwugvFVMFOr++KUKLnn1J
aQBd/4vQOysH2hWp/z+x/6kn1va7TNf/IhR2Gox5QuO/RfT3Y1vVTEvkciL/
K7VXka4/Koh+pteuvp9A1/9Ev8/dS5Kl7XGH2OOVOmErqf/fXRK+t+ft2mrk
e2R+uwbck+h7HPfJeFXtWyLjTdf/IgSUK594G0PX/yKU9H2xXI7OjyvJ/GRQ
Wd0Ua0zvERl/+1s93knfu68i89FF2bY5F6n/vwiTFIQ/ocGY/yci7JMbmb5m
A/X/J/0/3/VhcTuGfybCa6fkPsdXobxaBOn82Lctf6j/Pxl/D85aabUK+9ML
ETZke0xwVUR+SfSla/bNRg7DvyL995K0stU75BoRhrd0L9XchlxL+j9za+Cn
18ivyXint8TCsg75DbGn6TPmzLtL/f9FmNrOXHxN/YXqRIh3NHRfTueb9SKY
PmzUO/4TuUEEjasbLAxeIzcS/do7Z/y37Wif3olg8+Gsz4Ic5PcilPaGzr6k
hePJBxGs5Xcp9J2N/JHMr6LX5tyuwfBNxN6+DLVJNUH+RMofH7o4mfJnMj7k
xDs8ov74X0So3XF+YUki9f8n9uFE1duvv7E8X8l6q2zWgrgq5BYyv5TxPVI4
B8O3kvna5EBnx1/I34g9nfnC3iQeuY3o7z+j+KwzyO1EH5cGtP6m5+m+i+D3
RFtDfTvyD1I+j/kNh64h/yTzi5xlhRPdqP+/CDM3b6mPUKf+/2S+VZFwcGg4
8m+SfrKxozR9//YPWS+d10uro/73f4m+TljiGBCN3CnCZUXVZPMErI9/Itzq
qa88fgTlXSI8fKZn9r/35bvJ+Lhht/k5DwzfI0J4gqtWgh1yrwie428FH/oP
WUoCq6SU1B8OQZaWgJ1M9WKRjj99JNC6WAtEfWQZCVy1st3llY3cVwJjA0Jb
wqm/rawE3IS4ojnW1P9fAu/kJ3cA9Z+Sl4Ca5Nh5u5H4fT8JaMD0OnV6PqK/
BPwVhn+yMkO5ggR+e4r2t+j7oQMkMLO/b9Q+O+SBEhjZOYNLp/65gySw9bzY
GxaErCiBXvnjM7Z4IytJwHWLy/0oer5EWQKDuT+x/6SQB0sgX1/LcFYK8hAJ
SOXoycyn75WqSCDjoLVXDn2veKgEAp5IC0YbMLyqBHq0dKOvOCAPk0DaY4UF
iWORh0vg4Tp5pdt0vTOC1Edy/o1lDhifmgTSpTYFDJZFHimBfWvuOh35RP3/
JbD2w4/ji+j6c7QE/B4o9W2ZhuHHSODAcMWNuvT8zVgJHLy0dMsiet5NXQKe
A1Nvy/ijfdCQwDiNaFu1CdT/XwJOx313TY2l/v9EH6QGttskUP9/CcwY5ui7
RZv6/0ugal1lpcwxuv6XQHhAVpXCU+r/L4Fhq6d7b1tI1/8SsJrUt/oW9Ref
KIEtvW/7P+ig/v8SSNlSqPqCo/7/EniZaHz/NvU315PA1BX2psH0/NkkCXxq
/yu7fQb1/5fAz8FJfQbdo+f/JXBIdv+zZBqfgQT656/bM2QC9f+XwL2idTMU
LZGnSuD99mvWZp+p/78E9CY3bdVTpP7/EliY+aY9LgPZSAIb1XL9UnZjfUwn
/Wmr7DoVej5sBsnPvTbvS5l0/U/6h7vLSW+q78YSUO3vLq88k67/JaBurWRe
+RXZlKS3Xhi/KhN5lgQ0H+c9bWxCni2BH3ONO14W0vW/BHwTS5MLAO2vGel/
pmvLHiojm0tAUanu2q/ddP1Pvu9S2v9NBdlCAobxBqo/dJDnkvYx8bdSekrX
/xJwfHlnl/Nkuv6XQFTB6eXnJ9H1vwSW/XC4MZT214USeDpS3ukJ7e+LSHjX
LUstHiBbSqCjKH/LUnqfgJUEdMpstPiLKLcm/alz/fqqELr+l8BH8+PyvvT/
wmIJvFo9SvsXtU+2EpC54jU/IYH6/0vg+PKm4jw6ntpJYOiHrdfH0PM1SyXA
aVSrvY9AtpfApZl7xoVS/1MHCciPHqC6M4L6/0sgYvEadZOJdP1P6st3zoch
cdT/XwLflm3x8vqA3y+XQLz83MtD6P+gFcSehCpdb6H9f6UE7EcpD1G/iews
gTvL/9iq0PWNC2mvG0Nnusojr5LASf2/HboLkFdLYM9co8zq35j/NRIo/yLY
cPS811oJKCwTovvYILtKYET/nWkH4jC8mwQKZ6uuNWeR3SVwYp9CiF0H6vc6
CcR+TDkfeRx5PdHPL3MPJxtheA8JmDmOi5w6G9lTAtX7+87spPnZQPrbuvFl
76n/70ZiP7Z0u8vQ87FeEjj/5mK9Cj0vt0kCS3bv+pvliLxZAn0srtX70vso
vCUQtq/Dr43a3y0S8Jab3nye3lewVQLfu4YOKKf9yUcC7MmgCZWjML1tEhiy
98WQm7T+fSXw4WSGPkPPJ26XwIbhmoo8fc/OTwLbtb7CMzq/2CGBv8oFA97Q
+cJOYk/dciyhAtlfAqHVMbtu59Lz/0S/eqe27KL/l3aT8pvu58ek0fP/EpiX
qVlaRuPfK4G+TS0DO+h6OkACnTcrMlpbkPcRfb/Z69XzGTlQAslzV69ZNwh5
Pyl/2mJjJ7o+OSCBOXJPTh6n/4ODJDCpt0/VlLVo34LJ+Bj440wgPV8UIoH5
1437ThyC8lAJXPzX3T2vEOUHyfgvM3OlAb2fJ4zMD97EjE2vRD4kgc9ed5ok
eciHSfu1XnqU2R/jCyflOZOp9/ozyiNIf+zZX2N+D/mIBLrNdE4X6mL4SNIf
Dmn/9q5EPkrqZ8PFLQdssTxRZD5wxidnfg3KoyVQNK0hZj69fyWGlE/tn0c4
vU/nmARyTn0Z40Tte6wEAnn9H6b0fFicBMzNmtL8DmD8x0l9Nqdvz/kP6/ME
0f9Z/YP4EOR4CYx6vvFn0RjkkxJ4wqtct6Xj6ykJ/FlrOU1hKvJpMv9QsOU3
PcL4EyTweNeG8HcCcqIEBnxcXra5BDlJAi3xH8KMviEnk/o+ErnDiq5PUySw
YoXT7uf0vF+qBJ5ZlTxuq6D+/0T/jK/NdqPnz8+S+c7zxksj6X1U5ySwWWEJ
t5Dep3We2Jt9fRXDaH9Jk8DN008XNNH9sXQJVH5ZXrORnne+QOYP66MLTlH7
dZGE157DL6hHviSBWnGsYRb9v5NB7MmD0aNP0/NVmRJYk2hQucUZOUsCY8I2
7bXYiZwtgezyu8ofB1P/fwnsX/hkwSw6P8yRwKJU780LJ2D/yiX6Hb1z8xl3
5DwJuO+XMd60Gse/KxKw8bRulCxAzifjjeqgT0NvIl8l+mn7grNegnyN1HdY
qnrdUuTrZL46S98k9wtyAYk/81TlGW/8n1dI7F1EdPOwo8hFhDVqjrKh+D/w
hgRyBTW5s9r4v7FYAi+Gx32WT0BmJBBT+ijmzAtklujX6bO7NhxD5kj/K/d1
iz+PzEugQq16wPbNyALRF6sh61uk8fyNSMYHo3W/gj+jXCKB6wbR8wpqkW9K
4Fz2v4JlSsglRN//HQp4DMilEsgLPFg1YRNyGbFXDjKP5wrIt0h9w2P/ATXI
5WQ+0bBS6aY7pl9B5ucP24+V9KD8tgQmrN1SGfl/PZ15XA5fG4efypIklFJR
SFERypKlOGnTKltRRFmyhCTJkoaiJEmLXdn3JSLJ0rMkISoqpZCIFBKhSN77
9+l73j+vz/XcZ2bOnDnnzDMz99GGz6XxZ5xCjfVg8IMsNiIhdsjmHuCHVD+n
LttfPI34R1ls38O72zN+gfOy2PbAD5f/eYAfZ7HeTT+iivjxPsliFfIuHj6O
KC8/i2U57y+c4gYuyGIW53xPzB0BLiQe82TLLP790lOan7+wNky5CH5G7fnB
/JlKleCiLFYy54GLTyG4OIslf9K6b1ABLqH5p2kqu7ge/JzGm01NCQlLwaXE
u2zfDogBl2WxVz7GvV1zwC9ovqzgktd0D1xO890zrTv/DQFXZDFp6Lgkc76+
/cssNs6Vva6xBb+i9hc27sow/r3Ya5p/5HXfl+oNrqT5/dYa1Ry+PvEbGk93
nIke+Ab1V0XtKWWM7ckR4Ld0vPWP5jzk6/u+o/G02lpd4RTadzXNF52zgneb
g9/T+Fnn7F7NcD18yGI/o4YsHpSK66cmiy14dq4qkudj+kj903P52gn24Fqa
H+85Y9J6D9dzHY1nees6ZfH8PZ/o/sa+6PfMSeDPdH0/uGZxYRX4C/VX/R2P
24wG12cxxaD8TrOk/Pv/LDZ0cHatbQj//j+LyZT8lviagb/R/UtOYIdznfj3
/3S8HeY6WYzm3//TeKLe0vR+FPhHFqu0Grptnxq29zOLuQdfTb3iDP+Lrp+L
Ebt8EsBN1J7qXJsqJ/H7/yy268qYI6/u8vv/LJYd8epM6Gl+/0/3k/qe94Mz
wC0UPzbguLcx+C+NvzmvvM/y/q+V2lf1+oe5fP76jzhyqH8fPh8XidlstYSQ
pV/aWCD2POVvcI7vr5yYXa/dv+nO2DYWiFN965RH8f9P5MWscqzS0xjcfwrE
WcunbNjC5zcKYvYht0NJoio8cV6NnGZ//v9/OzGTXa+NvYT5lEB8/ua45JKh
2H57MSvZGXb6my22TxyWOP1YCT8/HcTMZeSvLmn43lYgHq4eZvKY/x/fUcwG
HAqoPpsITzzVNT5qgQPOj6KYmX4ednZAh7b2KRBPOn7Lu+gD2msn2j+nSVpl
+F5WIBaO5X4P+gWvJGbjd68NFxLhiQPflR9/WwffWcysPY+ZxUvgifPqRs8v
9Mb1oyxmP5UlxkmyNhaINfo4rfkmhu8iZlfPKvS6eAGeOCG+4PIoI1yvKmKm
O2LsZkv0pwLx4p13O3MWdRWzvgox94QsxBMbBB3avfE3yu8mZnvCGwtzJyCe
2M11WMgsO8R3F7P7PXSX3z0FT5xQ1EF0tCO+H1UVM/lua3Mr0D8KxEdU57vf
lyBeTczuZbeTub2FJ5a36XJl8ATE9xCzdt5iV+/ebSz0+K993fFyKYJXF7NY
750m1bfhic1an80vvwuvIWYVk1+nxIIF4hC5fp8v3YLvSe1h7fA950La1pMX
iHeNLO846Qu8ppi9cxxgNKcR8cSvN2qsUnwEryVmavsHmTjXwxO3dtvxTk0T
69Nri9mjtGSj0OvwxKG6CTN2bEF8LzFr1o+22w8WiEPlE15rT4fvTX7GueVy
QfDE0989TzhiA68jZum9FlZaYz17gfj84dFL9/P17nXFzK9wYIGvCTzxM/MO
ez4OgO8jZj3XuRgs1YAnXu69LciyB3xfMasND+jTaTA8sRdrTLPqDN9PzHqP
7jAzSg2e2MqhPPx+C86vnpjNbzc26lo7eOLOg+Zpj+6L+P5i9rVbjWKhOzzx
xFvT57s0I15fzLyTip7db0D7IDa7q9TcYot4AzHrlWVmvAfHKxArqFg9TnSC
HyBma8W+ocmW8MQOXwtHa/aEHyim+4vxNgNLUT7xv1n3Ixx4vCFdL7lHA9LH
IZ548tbPl0rt4Y3oevwceqIRvxeI9Xvv0bdHfYiMxWz9yNZCtaHwxKmaXuc3
SnF8g8RsiteMj+bXsH3ieLl7v5qmIX4w7Y9Po5ayMeKJQ753jyixgzcRs8fN
U3VzMhBP7JT5JsAkD+UPEbOhP+4NC+2GeOIrMWOak87BD6X+SMnoY/vFiCf+
qZO6LnMT/DAxy/d4dOZNLjxxwNKQPWUCvCldz3PlWysmwxP/9XsfPo3PL8zo
etIJSHGZA0/suebZ5Ccr4YeL2ffq5J4PAuCJ3yxuClufBD9CzDYcfjTC5wQ8
cceCu9rHD8KPpOM7u8l28jR44o4qOfLXN8CPov6jLurP5zJ44jNHyqyV+HzM
XMyGCevKu/D+x/y/8UTF25ahfkeL2Wm/uuq+Yag/YoM7RzQX7YYfI2Zny+SO
5PnDE9+cssJUHAc/lrY/+3BUp3vwxIkrbzsFlMOPE7Nlk8/Zpb2AJw6ZUL5s
TjC8hZitFOakFxyCJ159fODDeN4+LcXs1WL3f+us4YnTdwxwfIDrSTSert/Q
oEohFJ74853bd/PQnkQTqP2U7l8brglPvGHD2Ct7k1E/TMxyvdXki3RQP8Qu
o2e6f4zH+GAlZirD1OrPIh+CQNxuuMbuzvx+ZKKYbb66uCX6Kjyxb7V4fE0K
vLWYWWxoWftiMTyxQr366X/NmB/aiNmlTyomyzbCEw/fUXDu4UTE24qZ8Sn/
+DIpxk9ii5DgQykH4O3ETNle+jGuN/afeMJUPY3sZTg+e5ovHDIzu9gFnvh5
a9jgaH7/MknMbmWvXBv8Gdsnnrb5ZVo/J3gHMVvSUrKrZyG2T3xZcW3igrHw
jtSf+5T6PTBGPHFK0K2m3Ep4JzHLedTL+4kvPPHAeU0pvS3gncUs+/6ddDcB
5RPndNvZP0wO9eNC/a/2LHH9PcxPiFn9dMFzDbwr+btrvAJVEU/8fqNQ/9YM
fjL1t4Lcn95ggTiy3Ygz6n8wP3Gj8fn3DZnBLXjitboeW65XIH4KjYeFRlfX
1cETH19/IXfYLPip/9X/x8xyW3jikhfDnRx6wU8TswPlU7XGdYMn3jZi4FCF
Jp4/VcwO6Scv1hsATxyq4qBpwvM7zBCzrmbCTDk51B+xh350Rd0Q1J+7mP34
MXHCtP7wxAvUXhfsPYF4DzHr91FnWao6PPEUQyPrm2XwM6m99Ks9UOQGT9zJ
c8OLwOnws2h+oFfu9m8gPPH7I9r3evTE9j3FLOq523MNvD8kEPu9TF+i+RTx
XnT96WSr/g3H8RHvf/4yv7MTjn829ecH/QZt9Mb5Ja5Z3yVGaz7P50r9zf7y
2kO4fxKIP9aql6ndhvcWs+rBgwa766J84lsHVpf2wvkQzRUz/9R/j40NsX/E
hWOtIs0uYv/nUf9TNbCboy48sWPxy4j7L3g+GDFbE6rg3+kHtk+ccn6cS9pN
bN9XzLRHnp2VMBzbJ95/Sv5hJn9/aj4df/bUhJJviJ//X//gVLV7Ec8fQ/Pr
6J/Sgv3wxBniTp/z6zE/X0jjkbmjykihjQViN51YjcFP4RfReDL2knavI4gn
Hpp4IkX/L7wftYeiwEiZJzxxyHNp/S9e/4vp+BZMmvwuEp740o/t/vHD+Pto
FO85ebpfX2yf2Pj7tavSN7j/WCpme4Uv3laT4YmNHRIv+/H8v8voeA50P2mv
jfKJJUM7pjb/wP750/jz6XB4Bd6XE4izt8lZ7Hfm+WzpeDRum2viflgg9qpY
4BTM399cIWYNKX2Oa+N9UYF4YMahJ7/W8Xy3NL8ZO7L8SSjiicVWDbP0fsEH
iNki58ZgxT2IJz5iYLkuSJHnw6X7v9MhpYd/4/6MWENdz31WFf9/XMwiTu4M
P6CCeOLjns9j1dvxfLnUvlzn+u/G/bNAnHAx0PfiCJ4/V8w2eb44oWEDT1zq
p7z311ieT5fur1ZkxsthewJxwqCmMiv8XhQsZh3Krx1IxvuwAnFyL40trTzf
81rqL//0z7q3HZ5YejDGuIgffwjdP81lSg/XY/vErZPOnUgaB79OzEbOr/DV
b8H2iWtjS07FfMPxrxczG4ceqg+Qz1AgtlsmSnmL+13RBuo/xtQey0O+PoHY
0/0cW8Pzq24Us4NKt95dcYYnPlT09vy2AvzfGipmD6qNPZbotbFAHPnkg1ZS
Mf4P3kTj1aHcuol4f1sgHuQ7pM5Tyv/vp/l4n7ydPsi3JRA/a94f3nAGXqD5
59tk9ed34Ylnh2RWHtXF9jfT/bH9+GJF/B8sEAc/vTztG8/nt0XM0uybl7+Y
DU88fUZ5pgl/Xyyc7m+iru3ywvcAArHDjt53OmjCR1B9Xui0+v1QbJ+428He
Z5T589itNN+pfrddinzAArGj6La6KBjx26i/Tnk0sgTv+wnE2ZqPSzN4/pVI
uv9dtNRMB98/CMSGPkNbUrYjPkrMtn6rdlvYHp54u0w/bQ2v/+10/eluHmOI
98kE4pABtknZPN9MNN0vHHYf1V2M/SeeOS/I/f537P8OOl/SNNfkmfDEm5Ia
m9by9QliaH4e7n4/BM8nBOKHatUFG3X48wzaHzXlMXU7256PCMRyf3YNW8Xz
tcWK2TpJs1YWvp8RiBeIFvbL59/X7KL52bl9/Wx9EU/sl158O3Qm4uPE7JNV
5zfTkW9OIL6/TL7iXSG+D9otZkGFLHuSPjzxX6V0m1a+/XhqL5YHS/8gv5xA
PN7sp9UVnj8mgfqXkugJcerYP2L1zg+XPI6GT6TrLX21bKEH6ofY7nRgmRz/
niOJ5t/13e+uxftnAvGMgNriYP7+1h4xu9swILRfd5wf4qDZ50sX8vVE9lJ/
NOPSuK0ieGLFxD4/ThTB7xOzwd0OqR9xhCeuOqdS/Zh/77NfzJ6+eWa2+iA8
8fTH0+MP1MAfoP69IeFkEW9fxI8X5fT15e9rHRSzrLTlmxJM4IkXXVBsd0jM
n9/Q/L7+nnw/XC8CcfTicY89x/H3OWl8e2gb+0Af8cQb232d58Of5ybT/P1c
mNwbRXhi1UeG2V8iUH4K3W+qTzJ62Ir6Iz6l+KzM+z7q7wiNF+6Oa1gjPHFe
3tcVPj348yAxU0sPS3qwGPtHHFp0x7TjGPhjNB/++GzTEbz/IBAP6blw5MSb
/HkR3U/1uF6WXwtPPHfvpWFj+ftuJ2h+GiA7e02G/Sfue0lorefvD50Us3nq
Tzt9Rj5NgXjK9e/zt/N8tKfEzP3BTa1+eF9XIO4ZZPa7qIq/b0rzDZGgt8sK
2yeulKpOPWcDf4bmQ+9m2YzKxPH/x88dSnvUon2epf6/uLP7fjO0X2LTEwlJ
eRPgz1H/u1c1qtQfnvhN4aa+R8bx71Xpfi500LZYK3ji0RpZ7p15fvELNL4a
/Oq0HvkhBeJ01+dvW/z496w039xQ1qfABJ54wekyjxcW/PtWMbONindotoYn
Dhm4Sq06GP4y9ffT9Re9CocnrkubNnaADX//lY5n1gmzj/g+SiDepffFx30L
/BUxK75+tNdfrE8jEBvX3Zibbcffj6X5d8z8hAa8fyoQB9SMyRhvCJ9G1+Pm
odPf4/tSgXiAw5nAev791DVqz3cb2PgoeOJt2uGtm3j+4+ti9iE2xeHvbXhi
9T1rxgVJUX463Z/lXD81Bu8rCcRLrTUSLk3h79tSf2dpVKPTFZ44zdT3mW0e
//6W5v9LF1p8uYHyid1ULHe7PeHv44rZ2DnO5mfwfpNArH75ei9nnp8+U8zK
FjQkbePXB/GaJlMdxSX8fV1q34P6b3yE7wMFYqXz4Q5P+fumt8Xsa3VG8kTk
DxWIh10qVuqeDn9HzHbvVVNu5OMfcZXwS6sn/z72LpX3+7tPR3xPJRA3jTFw
dOffv2WJmTCvl0GxNTxxwNxQj91b+fu/YjbisvI+54XwxH1EtdOvePB8YFQ/
MUYjCtvDE3/revb6i2E8Pxi1/8IJ6REV6P+J4yYlTMzj67nIxOyP40+5d/g+
TiB2m6b1K5HnL80Ws9hmQ8XE3LbxRiBOmv0ye3ktxp97NN+bEWfbCfk9BGLd
yvT4vi/hc4j1CqePvgtPPGbTMzP1m/D3aXy+/vBR0ABsn1hl1L+vF3l+olyq
f39/x4N4P0Egfll05PblVvgHNL8fG3N+FPK1CsSrx42cGl7I85OJmcX7eS3T
t6J8Yv8BS8PUmnm+MupPDr9PbY/8KALxMN0zr3735fnL6H6guHFezTp44gWB
gd7z9/F8ZjR//a0mzCpq+/5eIM753OxW2Yzv+Z9Qe9fX+qWOfCQC8ZDGQz7P
eX6jfBpvNqwrHjcZnvjKjUM2vb7y9c+o/1n0KtB0VRsLxMPXrW3o24p8BoVi
tudapMdh5MMSiCV7rp00vM3XR6P5ds65mJ4Fbb8XiEPcWl6+b0b8Mxov9Za8
9bkJTzztVE6DVxZ8kZgdi16Vdq83PPHKP4ntlA3gi+n8zn6xsOO/tvwLAnH5
FI0dj2yQj6GEtp/QQ0VduS1fg0BcYz8j3eIO8kU8F7PvhcO3bylqY4G4x6E3
Kc9jkQ+ilM5v/b3PK73giRMLIm0sGXwZtZ93ricXhbStTygQjyseYuk3AesV
vqD4q85JW7q05ZsQiCNqh95YGABfLmZbHr51XdYe8cTJfa12ag2GrxAzvYKo
1Y/cEE98b+yNMN+zfD13Gk8O342+eAfxxLv0B+ww8uXru1P/HpWe53Yanrhn
atjVFHu+3ju1Vw/VLfL6KJ+4j+reKW8qEV9J/XdDabp+Cjyxi9+nrZf3w78R
s6JOB7zsn6B8YuWIw/uuaqL8Kppvr0w73Mcfnli5cILbaxusZ/hWzML+rut9
Sg+e+NHH4w5H0uHf0fWXszms8UYbC8SSe42nvRqx3mE1la+x7GqGaRsLxDMN
RbvttbD+4Xuar2Ybla7YDk+8Xu/gzhg1xH+g+Yflzfl1hW3rIwrEF9K7PU0a
DF8jZu1qPoz3/tO2vr1A3LK07P06vj7kRzGLuWXQ1+QnPLFz6MKQOY+w/Vox
UxjR6a28IvafePSxgWdPJsLXiVlBgEZScg32j7hP/pjIV7ko/xPNHz80af46
hvKJ379rumD2pI1Fn2l8i/8mN6N+YZsn/jttctjAqAVt/gvdT8jbfRSHt7FA
bH1H3TajZn6br6f7hyXBWZFv2lggToucuzR5QVt5oq/UXhdHvfwYiO0Ty6/6
d3lKKbbfIGajzJQOqjig/oiDU9dknYlE/X0Ts9tVBXmRVTg+4p3RM5er7MXx
f6fx48biTf9Wt7FA3Bqgz1L2ovxGGt+Xaer1WoXtE3uEDT0evgH+B5W3RN/d
YxA88Va5DMkSD/if1F/EJR49MBL7Rxx/qdemy2NQv7/o/GcdDbnfF/tHbBhu
IG+vgv1vovNj0yekYz944qeaMelTDyG+Wcz0E112dusGTywtWHGjny78bzGT
tRbYpY+EJ47aFH7kzmz4PzTejtr1d8k97B9x8hUP/RsHsf8tYtZ7p3LC+Hwc
H3G7IZ6ahw7A/6XjbRhePGAD4om7bU491HQYvpXaX2q+75rO2D7xrOjjt96Y
Y/v/qD3HvDRYL0P7IW5cv6x9BwXEiyRs0CpRF+E62g/x/tt3zLu5oH3ISZiL
//ZfhjGIJ343rMw3/Rfan7yEqc+yGjJWG554f8n2mtEx8AoSFnSo0/DhG33b
PHGjjtLYg1k+bb6dhBkEe2RGf2hjgbi6sn9nT0/49hL2p/fuS58mwRNXPEv2
i94xr813kDCLRecW+SXNafPE6lZVThd92ljUUcJy3aW3Kuxnt3liRe3mzg8T
21ikKGGlFbPfS6K82jxxyU/tWYftEN9JwkzFBqNzjOCJ3b4P8x993bPNK0lY
vODr2D93ZpsnPpbXufDSe48231nCGlRuvVv9eUabJ14TFZg5zbrt9yJlCbPz
+/5omwbKJy6MFPcY3wPld5GwfBW7z+of2lgg/pd0e8SLFYhXkbAtTnqrt/nC
E9cm6YaMvAPfVcImmNX32voK+0csVZ/abux17F83CfvU8uBK8plZbZ549hz3
yZ0+Ib67hKmdXX53lynKJ/aaY920507b70WqVN+u03aV62H/iQ0c9A6mrEb9
qkmY3quX3nGViCeOnt2aUaIxt833kLCI4xYvw9xx/ojXfPJzLxuNeHUJy3li
+/rjGO82T7y2ovmAhjy8hoS1/F6Z3QX1LRA3n3hXNKEb9r+nhGXM2+6oEIbj
Iw6P03yz7Wjb/oo0Jcw2eb77vBVoH8Rrqmt+nrmL8rUkzG+vglHQrLb2JhBP
dFh28Gx+2/6ItCVs087vKkYtOH7iQTHDFmTEw/eSsHWVujvuD0H5xPPsAgST
Odh+bwnT9XxYauKKeOLTvnWegYfgdag9fi3bLtxA/RHPVR81/qEJ9k9Xwo50
fpHW1Ij6IS5T2HWmdSaunz4Slpq/7eu+gLb6FogX95kQM0gOvq+EpQ2+qb14
J46P+MKqumq5DWj//STsYFREjo0iyifua7XLLfclvB5dz/MPyRrMEE8sp5Lp
Z66K8vtL2LaSuuErk3H9Ei/qtOz0+ult/YFIX8Iu7T070vgL4ol1D0/4LN+E
69uA2t9vNZWMOsQTD5o1JczlHvwACduo+NNNMxb7R1xnXXS082+0r4ES1vPU
30i3pyif+M6GS+ZrGfbPUMLupxjUPsD2BOLJay/PNBuH/TOSsLdKNtN7DcP4
SVys47n1x3GMr8YSZh/TY07GPPSfxOnTlQ/Zl6L/GyRhiUVmbvNmo38kNn3Q
dKqkCvGDJSwmL3bXmucon3hz7rWtZ/dh+yYS9jF+05Vxnug/iQv3Pmi8cwbH
P0TCTq336c4OY/+Je0zISdGdAT+U2k/DT2ZaivohVgrI+6PxE+dvGLXHEcPb
p1TBE9dk+b92LkK8KdXf/Kxd+eexfeKxi+U+XDDH+GAmYTdNbct3J+L4ic9l
7+tuaAA/nPrneJUu7fn4QSy/O3vPkgzUzwgJe6Ha/o65JeKJ7/rvGer+Gn6k
hMlGPB3xxxbxxN8iO7xraIfyR0mYw+j62NvvEU8s533vQgB+LzKXsLzXJw2M
6jC+Ek8JWzTqXzzGv9ESVmBRf7BmPcZXYu1FI88NTkT8GAkzn+E6dl9nbJ/Y
9HT86xx/xI+l89HyXK2mCZ7YrGPX4YUKGH/H0fY2nDfb8ADbJ170MUbvXxd4
C+qfvVmY/HCM38QhG/51C/LH/MSSxoditbVjd2D/iG1n5q55uwPzq/F0/dn2
njitFvHEb9ZeCH0djvgJtP2g1vHxv+CJHz+QdSjfhvk3o+snz2T/TR/MX4kX
659wjOqL8q0kTDPiU1yHZ4gnvqr5vaadEfZ/IvUXV4INmwPgicu8s8528oa3
lrCdu/dnh/D6J56/JtqluRL1Z0PzBZuFX9d8gCeODmw9qpsHb0v9jemdCXX3
4ImXtURaV/XC8dlJmNEIDW+JHbZP/GGe6GRxPry9hCXVCf96tKL+iJsubdqo
XYrzO4mu7wDbGBewQDzopqptC59fOkjY+UUL94gHIp74b9xWx2e58I4Sduiu
7reX/eGJu8w65B53Ae3XScJ+aeYmvghG+/yPV49sr/YM23eWMJX0bJ1lp3B8
xC6Juo8vrEb5LhLGel/0V3eGJ44L9a8KD0S8K/WXqptmzOftkzjH/r6VaQi2
P5naT0bq1by/2D7xzmsLbi3eAu9G7UnlWOqNf+h/iEvP3r44Jg5+ioTZvI6V
d7TG9U98Q+PECv1+6D+nUn/Xfm5suj/GF+Kuv79On7gR4980CTtxY/r8jePQ
PxHPOVMjejAU/fN0CdvuLF2bNBCe2NvsCBOfQv8zQ8JutatMsrLD/hGf1xuz
73Qk9s+d5l95Xeb/TIAnvv7MMP2WObwHlR9e9W6EF46feESx//i86fAz6fxt
Eneq6IV44oAABQ/dYhzfLJqfDOoy9NdijD/EC+87TX2hjf7bU8I8tl48OsgD
9UNcq/+9ujsfH7yofwnN7nazGNsnbvXuphhmiPM3W8KEr93nR3/C+SNulpz7
XjIV188cCStS0zeZrIbzT7zhYuoikRzah7eEjRw8q2H+EHhis4Hm3ercET9X
wiKfTheXquL6IP4y8HaD6wn4eRLmbxnf4zXuVwRiaXFOvyxNXP8+tH+5434P
aof7N+JV8buKG7/j+vKVsHFl4eZdnsATX1s5f+v+M4ifL2HvzcWDXNbDE3/o
WBqRtQV+gYSFxl6S+R5H/0PcTfF72OfF8Aupfzz3cc70OHji56nNgTu6ov9a
JGHl2WsLbHC9C8RBe+o/n9JFvJ+Eue5r6K5tDk9cdjD2Rcs9+MW0/dTrEq0Z
8MSpu8Zf8ZqO8pfQ/Grm4ryVb7F94msLNjtp2sMvpd+nPZqbEo//N4hnfXs2
3uQs/h9ZJmE6zkPn93PG/yvELd5dIrWOwPtLmNj69pMMO3hi0eWo5j66+P9l
OdXv4FutBvg/SiC+YFd2eGNX5CddQfH7HA23+eH/K+K/6dXPiiPx/9VKan9R
T+ojbiOeuK5CdKuwBdsPoPLMD3YaeA37T7y6Mjls0nX4VdS/hptEnnmJ4yfO
XP7Qv99kHH+ghPWxXLDryBvUH3HHbpvF2RNQv6vpeD4Nb4pywfknTnxy2uDa
DPggCes1VdHb7CPiibvpi9QavqB9rpEwJ8/wDO/RiCc+N7HByCQUPpjuB1NL
Ije9R/slPjygd3Uk/m8QraXx8JOq8e4fiCc2vT54c9JO+BAJG1bJGguCcHzE
di1X1MevwfGto/nSmYoEt8+oH+Itn88F3VVE/ayXMHdh0AH5Juw/sb/dM/a0
Gfu3gdrDnze6LVfgiQ2jqv3G8P+3NkpY1bBvZ9btgic+bq1lNDEL8aE0Hn4r
du68DcdHvOyTo/LVlfCbqLyg1oUDbiKeeKPFnhzlNSg/jPbnaFDP8e7wxN3n
+020D0e8IGEzE4qkz3+gfOJM2e8oyxT4zdSf3awzDZRDPPHJNRfTxl5A+Vsk
zKdT5z0Nx+CJW9rbTlufDB9O17uLkttT9CcCsc6sZctlMfARNB/sU6f77Qa2
T9zfJ8x0Zir8VgnTSn4WWPUI5ROnV3i1eC7B+dsmYUP7KW/NHojyidccWp1c
ZYj4SAkz+XOsvS72VyC2ePlqYvs3OL4oCVve0/92Y3vEEyu3n9/1TizK3079
panS+7mfsH/E80/1d8z5h/KjaXyqvGatY4144ku9Dyo+Xov2s4P687hwka8p
2hfx1vo+15zfo/wYCasuTO88aDvaF3HJlsrvi3x5PmMJG3PV7q7GQly/xEMU
Z9d+a0T7i6X5+fIM13pXxBPnzFu4/XkO/C4Je338+yaDP4gn1v+6TuF3M8qP
o/FOc0p9bCT6D2JD5UGqk3Xw//luCXt4XG/IOxk8cbd7cYXBnfD/e7yEXe4Z
1BizAP+/Ewdt2yNZWoXyEyTsypyLKcn7EU/8wHVD3d1f8IkSptDXbNeAO9g/
4sV/Xqyz2QufRNdz6MJPon84vqT/7pdm+U26AL9Hwn4f73rkaXv0n8Qt55dd
tdgFv1fCwp5t9HrK+zfiOcU/Zp/xRv+6T8LOdKjamheLeOIUg7SE4X/g99P9
fea5xVGnEE98W3PB77wslH+A5g+rLjyq1Mfx/cdZVQULclB/ByXMs/W8kfQR
jo/YN8x/4cub6L8PSdgSY8VpR7xRf8QGO9TsFmxC/R6m+7kAy7DKW3j+Qbxp
lX+m5Sz4ZIqP8Pr2SxmeWJy4M/D2TfgUuj8MP19W54XnK8R3rBcoFezH85Uj
dH8wtaj75kx44vY6qq4lp+GP0vzGJdyliy6e/xDnn718dshV+GN0P5Bl3PHh
aHjihOVmY1Te4PnQcTqfXequ3jfA8yfi54ah7s2X8HzqBLU342O5U5bDE0fk
nJVMt4U/KWHHRmd19z4LT1wqPfMxD8+zRKckLHu73uNarIchEP/sWvBtFl8P
5jTV5237EY8HwBNPDbYreSyDP0Pt+VTTmCHR8MQ94mK37+frA52l+fF8pTen
9sET3zaIXmBXB39Owgb06RH+YBSe3xF/tcp99bQS/ryEHXW21YrTwPNB4r8r
Htfu5vlxL9B8bmSq1fAT8MTb92Rmj3oPf5HGV+m45G/b4Ym/BSj9jUqHvyRh
erftuirz92uIt33puXfhOfjLVL//gixHpiKe2Fw14YPtJvhUmk9nrzO43Q3x
xCuSzI5a8++3r0jY+LFJ9/l6jgLxsQU1o/q78PzYNJ+9VaFQtRTlE6topRcb
bsXzyzTqDyeMn5LeDvVDXL798bHxCaifa1R/zR1zr99A/RL3G9ZHfqIl4q/T
9a5toCZLgifODKo7NUkbPp3uv9f+vnzkIMonHtp5r8+hEpR/Q8Ji952bW5eP
eGKz/ZO32fVEfAaN/3eeHh21BfHER1tNd7zg/ibdL8dsy8haCk9svEc1RFSG
8jNpfIzR+GdUg/KJ7bwmnq9Og78lYa9eJHwu/ofrg/i7/7QNy4bD35awdvVG
m0qN4YmVVQeNzfLF9XOH+rcpmirfbsETL3zxbLQlX4/mroTJTXF7NG0dPLH1
wx4eG3JwfWZR/6234G6MAjzxzvExxvf4+hBiun+c0ery8weuf+LSpjEnAl/B
S2h8EiV8OPQF/Qvx60+CS0sAvFTCdrluKR6vh3jiOQsSUh/zfPYyuv+e/LDB
rhbbJ04rT6w98gLHny1h77wuKeftgyeW/xdnz2Yj/t5//9fU5xkugCd+0bn+
w2I9xOfQeJe6btKz9/DEUzOVH13yg79P438P134rNHF+iJdEjp8ong2fS/Fj
hOHO2B+BuH7XqsA3AvwDCfPrHCy33wueOGHyt5LBefAPqX9/cX/ZBWu0D2Ir
T/vspzf483/an+fx+47I4/oglmw9biG5wp//S1je3OA5GxL48386/iu5kZF8
fZTH/82Hm0QWcognNpV8S/jw//XNJOxlnjTMZTLiiWs7RHx37MXznUvYj4Od
vxQawhP3Ld+yOOQ+z39O882gFI87WC9WINZZvuOHhK/nVEj9zdmAE+7n4YlF
qvMcok/y/Og0P7nSKXb6LXji1o8tGZrOPF867b9Gxex2/PolvhlZ62FnxddP
kzBHzcLGQ1ifQCDeLO2+MjUE579Ywgar3TsSZw5P/HJG/L+NbvAldL8SE2Ht
vRPtj7jyyDv9lg7wzyXsyc9DriuwvpdArKrhd0EjEe23VMKKm0bI9eXXH/Fk
nahrQTXwZRLmsKbD0XJePnHFTsvMiEEo/wXtf9m/zoVYL0ogrj87Wf7jQBxf
OdWnj8vNNd/giS/b/DHJ+4v4CgnTfqDQ77QJ6oc4vpdeY3414l9KWNezmYUl
i1C/xGv0v1dUmaF+X9F8vMDr6gFHeOLKUUkVptk83zvdryZ6qQqn4Ikvd516
+bU6zm8l9eeRvU3phqHNE7NX0X5HzHg+eOovRp38uZq//0msO/Ne6j/+fmgV
zR+V/dxbGlA+cZTs6v6DfP2wt3S/8n7Ix5uBiCfWVNjSY9p5nj9ewrJexm2S
4++nErumvW8Zz9+fqab7fyd1+euG8MSB/XPGq/Lr4z3NJ16cX7JZBE+sOFYl
0cSH55uXMGF5efXg8fDE6dGjMwrwvpGohvq7Vt2o3lh/TCC2WmDxOGc2/Eea
b6/cGWm+G55Y/MplsvMz+FoaT7NuJuh+hCcuNst0HhbH89VL2OeeOZv7F2P7
xBu6XVjeEg7/ieZzgSm3frvAE7+drRX35xb8Z5oP9FO4t3ojxl9iccWml3qF
GH+/UPt+KJ7c+B6e2Lbr8B9lk+Draf5la1qglQhPXO4wrnq1GvxXCeu8JK37
1HbwxOsvNU+S4H1FUYOETfq7pXTaA+wfsZ7k0ZX+fH3ob9R++3trF/H3F4kn
iY0O9A+C/y5hNdc03aOU4ImPty+uZPz9qUbqP+7arDqej/KJh30+80w9Bv6H
hHk9PezatRc8caPRj6VWfH2onxJ24NEoY/1n8MRVp99Mq7ZG/C8JCz51NjA4
E55Y/nyPtb54X03URNeDY46fjhb2j7j6j5XtLP7+WjPdL+Zbug7pC08sF7/i
/JQXiP8tYQv2dunoUIvyicUm5+9d5vlz/tD91q/NNlmH4IkP3nMpWNkf8S0S
5jbzRMLfJLQf4s1dbw3byNfv+0vzH7kJ03Kw/qRAPHumoafHAb6+n4QtWtHf
96QByid+nG+pVILrQfSPytvdrn2EETzxWl8tIY2/PyeSsth2O+7/8YAnvuLg
9bmXIuLlpOzv31u1OcXYPvGMiu7Bj/n7dfJSNlF+ud7WOHji1U7fvz2ZC68g
Zduvps+t8YYnXlSreWEK3tcTtZOyfz62czzewBNbDslT7fYYvr2UPd1Q9So0
GJ54YXhs4mY+P+wgZcExJpPysL6gQJw941fvEUPQf3aUspSIcTsTO8ITv1/Z
2VV4D68oZSderbSdNgj9L/GFZ1u1V82F7yRlj+96v06/jP6beHiomdtUvv6U
kpRdr9rjpYv1eQRim/SM8vReiO8sZXaxqQ/VsV6dQHxp+n1LN3u+fqGUqRjr
NSxGfyMQJ3odOKiF+hB1kbKXjXdf/8T1IBB/TN8zM1EZ7UtFygItVnmsWoz2
SezX9Xzudn79d5UyuXtJoX+qEE9s1V23wf8vzm83KWu8J6+a8gue+KXS20UR
i+C7S9n8vS5SYz2UT+y8Z4XCEyeUryplzVVB1Xv04YnVYyqsli2BV5Oyob3H
txuF9QsE4kilIzN08D6lqIeUlcz29O2P9REE4rcP43YNfASvLmVHuncI6GMK
T1zdJczRhO+/hpSVmi++u9AQnlg5bIrWMS2+3oKUvXuZapyM9VgE4gnBAxwu
dIDXlLKCMXOP/HgNT+xY3enU4wMoX0vKzK8fsJ/D64+4ybn6vtV3eG1q/wu7
aoejvxOI2aWqAg3ev/Wi6yXpip0W3vcWiEeM+dxJ9SVfv0HKhLigAxV18MQ7
xwx42bQbXkfKdnve8YlGfysQRwxITN4VAa8rZdEjVwesqYcnztOcv8OBv7/d
R8r29TDefMMI7+8SN9y8HK7F8yf3Je5zovLaanjirAzrrGk833A/KUvuMjp0
JPJbCcTOiY573/L1FfSkzPNv+INOCvDEJ8tz3q7i6/X0lzKlMYo91JEPUiC2
++4x//sGnj+Sjl83rqIG6y0I//Gxjflz+PooBnT9DZz6ZQXyUwr/8U39997v
4QdI2XjL6gv11xFP/ELhtMPKP/ADqb7MzR2qcuGJCyIWrxvO8zUaStmfLYE3
Gw1RPnF89YHtZ/B7kZGUrbsvWKTVI554ieXio3d4/ixjKRtdMuvpxc/wxANd
j3i85fnxBtH5d/HulIX8eQLxpR8fR1p95utXUP8qOzz9dzvEE398l3txyzTE
m0hZqO0Cz4vK8MT29tXXfi6FH0LHM1+uXd4seGLN37LRL/j3GUOlrNOG8eXS
RGyfeFRnvexFGvDDqP/rf6n3Z+SvFohP/3btbcDXvzCVssxjBjtVsB6OQNxz
ZcKrS07YfzPq/9KWKA06ivKJL8g5XrXi620Mp/q4U+rWNwTxxK9Cq/ru5utD
jaD2JPlk9Ip/P0I8f9CYu5v4+R1J7XfNnT9uU+GJWzb9sUjk+QpHSdnrqSVD
v/Hvf4ijzjwwucLXIzGXMkW/G5N6Il+cQGzRoNSq5A8/mvpHG7PjfbHejkD8
cvAf/dhS+DFSNva+X8n5x/DEBSFvQur2w4+l/i9ay9ZyALZPHPjsyxzLX/Dj
pGzQAcnzqgLEE89xWFW+4TW8BV0/f+wsvfC9kEA8IKJPwyF8rySylLKiCG9f
iyLEE++Y86nKiucjHy9la+xSfvwwQTxx7nk7T/ctiJ/w3/X3fYEP8o0LxCnO
A15a7IdnUibuGaEa7o72T+z2rOLO0+/4vsZKyr449Z38C/nhBeLl2frqRpHw
E6Xs3oKmlEmL4Yn7OQXalPPvH62pPnJvzDF7gO8jiRsn5c4s5vmUbKg9zn6n
Ngn5RwViozr/cVoW8LbUn9l81JduhCduf73ltpE7vu+0k7JhHpMmD26EJzb0
yRe5ToS3p/Pz505Lh8/YPvHDm+20aqN5/lG6/sN7dBmBfJsC8Ze3q4SRtXw9
EmpfutP+SkzhibsfKu7Tk6/f7kjt2+2Gfk9veOLRqbFTy56gfp2k7PCbItsF
Ctg+8a/Pq+fZvOD5S6Wsl+zM5E/F8MRO9xRVVLryfKa0f+z3lyzkRxWIf/d3
ru5Wydc3kbK16daru8+AJz4+o64qiq8XM1nKCuf6jAkIRvnEG2xn9Bo1CuW7
UXuu/aW6B/kzBeK+mpYhp5/AT5GylSUTU92Rj0ogLu+ZkDxlPF8fRcrG/VVq
ccJ6MQKxd1BN/188P980Op/53q8GLYInnuikv+46X09mupQtPdO84Rf/vo14
WOrtB6V8vZ0ZUtZ/l7Xm8o3wxG+ezM+2i0C8u5SFXFVz/CGgfOKz2yt9gh/y
fKvUX84TL3f6gHhis/y9EX+u8PyrUrZCWFI6Cfk3BeLzVruPxvzg+Vil7Idq
c+q6ASifeMBezUFNN3l+Vim74RI4WHYS8cQ63+4r/ub5Sr2oP9vXbrWGPuKJ
B0e/drbsBj+b+hfdtydCzXH+iKM+zo7L4fmp50hZq9tZ+Z0ZiCduLsufFIPz
KfKWsv1r3bUX3YMnnnrEZdWVifBzaTw8d3mKdzn2j/jMrplftgZg/+dR/ShO
dzZpgCee1+V7yiJvxPtQexv19/IIHK9AfL51SG6/lfC+UpZhMG/KJ35+iRea
bYw2HAc/X8q0w/MUFbAehUBc0sHpcTjPF7xAyoz7by1r4sdHXJeRYNSe54Nf
KGVhB25dM+XflxPvdXS30uLrbyySssquwz8XdIMnPv8oNKxXGeL9pEx2rDD3
mye+/yZ2MgvSHPkZ/cNi2l7DyNaTz+CJxxVO3u+2An4JzX9uaJc9ns6//6f+
5eLY01dE8EulzGvLK6niAv79P/Uv2/MqTebCL6P53MVxw8/9wf4Ry53Q7Kf7
BPvnL2XfX1aHjDgJT3y3RSe+heezWy5lQdfUXt/ew7//l7JH92wevvGGX0Hz
47eFl58849//0/kyeOropA6/kvrXA71n/17Iv/+n+WnJ7otXrOADpExUKc2Y
0cS//6fxWSlg64dG/v2/lJUF/o3TqIcndrAx+fy1CD6Qxo+J/uYjzFE+sck9
057KPih/tZStTxdf7OAHT/zmwDPThXz/g6RsmcoScftr8MTqct4uGRfg19D9
6ZYtqd4H4Inv9Aj/tMAI+RGCab4SHz2ktybyJxDbu78xNeL5OddKWVq/12lT
58ATt46f1np0EV9/h67XRtczx5CvTSAe/Ch60J6tyE+xTsok5WdmfNFGfgvi
TgPeNFxSgV9P46FdVc+YhfDEY6s9FznMh98gZT8/LnReEwxPvHlO3e7FL+E3
Spn79RB1fwfk3yAe+KXJ4eQl5OcIpf1bvfNau0nIX0O84oz8vp7xyG+ziebD
S/0mWN2GJ7a4fmqR91P4MLr/Tssd4oJ8TwLxmI7n7Lobwgt0vieeXlPfD574
iZ9CcZM/tr9ZyjSKDnVIHAdPnGi/LzJCEfFb6PpJHO13TxWe+Gjw4O89deHD
peyWUh/Lnzz/DvG1Hdny503hI+j+LW1y2DM/eOLr8Vs88gPht0rZ1W1r0k4f
gCd+0yc3xZDnr9xG87ur/apn3IAnNtRQmah0Fj6S7v/KspY3JsATn728TWc1
z7cZRdeL962MR5fgiSvDh06Ingu/nc7nl6rQD8rwxEolu2zv8/xW0dRexO8q
J2N/BWKLvz+TD9nA76D2LXg6FN/C+SW+fnDw8H3RqN8YKev860WrxzZ4YoUq
l9LzPL/NTikL8LpdUcDzDxF3v+tj5euD9hNL9/NyXqu+BcATOxda1E9/gfa9
S8o8Vqao9dyG9k3852e19qJR8HFSNrfj4vG9LsMTbzEIzZi2FX43ze9qc9zn
WcITj1Q0ufv0Fq6veLoedxdcU1mN65O4updSwO9P6B8S6PpkX1pFo+CJR3xu
eLe6HeIT6XhmJ5Xf8UP/QvwqYf2hDXx9tiQabztGhdxZDk/8bIl8w+33fH0l
mp/c7N8S9BWe+Ld2n+ZOJ/h6SzSfixj6ygf5twXi4CvXpzTy9bD2Uf+b3Cct
MgP7R7wx/mrnLv1w/Ptp/1j7vXdH4viJpyqaRD6Xwh+QsgN66237IP+vQFyV
PmP8+IfwB+l+b8eQqX4x8MRK31fEWAyFPyRl00emRvW2gCfeWqf38BZfL+yw
lInif87ctgmeePuIgEfzuE+m/se4w5P0EfDEdp36NFjUoH5TpExPXdH8nA48
8eCkYbkvsxB/hMaDBe/9nHh+H+L79cJhB+yv6Chdb7tNdyjz/DnE+yVR7+U/
oPxjUmZb2eFYzRbUH/E+3wkaD/h6MMep/7y8QUcF6/EJxCuDf36O4PP3E1Tf
JwZ+PxmCeGIRi17Z7x38SSn7NLfwRv4EbJ9YZVf/7rdmYf9OSVmHH6vf2R6G
J26NUx21iV8fp6Vs/KOB8/Z64vog/rPjtaPcNfgzVD/pDqeDa+GJ35Z/dXYH
i87SfOZs5rW6ufDEd1SuqX69iu2fo/5rfZjHFKzfJhALxQdMEs9g/89LWfrq
DtY1YfDEapvLRjhehr9A84WU5cc0LOGJve0Do/s85vmspWzbw33DPnmh/oiH
hPvcOq6I+Et0/d+QC31TDk8cetGzg8ExxF+m87Ho7wWzU5hfEa/x+dDTfzbm
T6lStundsGGyHMzPiL/cd3hwlq8vdkXKVh8+PDjOHp7YPOf9wOSV8FelLMf3
390hmC8LxDfWzw78yNd3TKPxo7bnu8SZ2D6xkU59hFI/bP8a9S/f0nyjke9f
IF7728dr1GH461Jm3SAEZvP8r8RRPltyCpHvVZRO858xzafz+PERvy062fUn
z/96Q8oOSlvOm+kgnvhXL7XuES6Iz6D7tTkrb/li/ReBeH37pUkF9xF/k+aD
1kfGVuyGJ36q0PQhE/meRJl0vWTd2/HkKs4f8e2J82wKMJ8U3ZKyLl6K/Z2V
0T6JB2aycTmP4W/T+erpZ/EzD/HEFjbXA4rHwt+h+WevD12VDRBPPCmvZqoX
rgfRXaq/aZV7L+Qinpgp9J1UdQnxWXQ9HPZ5MRr5rgTiXvuL3CeuQLyY6uuX
unzIdXjip2oLPGJ7ov1LqL6lFV+2BMATm8aONArSgJdSf5RkUDJwFK4P4mqh
ZtqcnyhfRu1v58FdISXYP+KwV2quE9dh/7Jp/vJ9Yzu1T/DEfh4jok+FIf4e
zV/vpO5fn4/tEw/yHOn6px+2n0PtedprlStY71Eglt7+u/NyH55vXMqez/L6
mqMKT5zfb63jaR/4XOo/dJTV/g7E+E28If6azYaxPB85+emXJ3vlI55YaZHj
hJVdeH5yGp8iLQfWdEI88eyaIiO77zxfuZQ13uo6YpQzPPHcpuJM+wuIz6P6
U7u9pnUdPHFYk9PUnCnwj6VM9fxtQ097eOJOe/tO2tkX/omU9bAePu9HH3ji
EWVfl8b+P985jU+6BpNl1vDERa7mPb9P4vnPaTzNV23fJQ6euJP3lwOjs3g+
dCn7OGHectEHeOIuBs0rCn7w/OjUn++8fn/SFnjiT2r9r1/V4fnS6fwbrHir
hf0RiKeuuHD8/EKeP13Kcgfdldrdhyde5tkp6EI0z6dO869X8i3Fo+GJdYTf
xvMlqN8S6l/PdDm1CvlIBeIOzwZe0uT545/TfK/jD4kun58SL95j1XrhMOJL
6XoYnWSk/gDtl9h6z8WAKfZoX2VSViE/Q6HeHZ64fcuQuNNO8C+kLDLYsO9I
R3hihbwVG16FwZfTfHltyCffj/DEBs/kFneOga+g/lK879XeKHji3+1FbPIn
+JdS1nuMcefDyK8uEPspqeqMnwf/SsqU65IVGpCvUCA+X6vjmr8H/jX1F426
BjN4fkniwXkfnt24AF8pZS4pj8rtXeCJo0zPa/zk67O+kbJ+U5V0LFfh+iMW
wo+1ZCBfnqiK5nfHWjYPC4YnNg6NP1esB/+W5jMl0/wSC3B9E3f7qn1iMeZb
one0/Q6K9rpYn0EgFo3tXtf3Pvrnapov71K8V5GM/pd45fTe9uP5+Pheysya
HqhZTYQn1lDvJgnk+dE/SJn2O5/Jd7H+pkBcnMTmN4Xz9eekLPNC40bHB/DE
E17lqkU28fXopCyjxnP9PuQLF4jDPeY7isx5fnopq1mj4p+L9b4E4t6Dcie8
ncXz1UuZo2CidQDrMwnEsy2e9pyBfHuiT1KWYlr64C7W1xOIA738ew3m89/P
9HtRuUl4F3jiVIP9StP5+qFfpOyRplOwIua7AvGemJ3ai40xftVL2Zkd6YpJ
IzA+Eu+OVf6bzteb+UrnJ3tK3RUneOLMk9nfbfl6yw1S1j+l3bBBXvDEw9/9
9erA1wv9Rv3zywyV2RL8v0xc2rjy8egr+P/zu5TNs/6o2MKf3xAH2nY07+yG
+EY6Pze2zvQZCE98L3Hhkgt43iD6Qf3lRstL6htRPvF4v74RCvz5zE+6P+ww
InMp1ncViJe9iBn8MBjl/6L5ad9jR11mwBMvuJl+7sVt+Ca6XvoPf6KC9XME
4o2rHFLv8fxczVJ24d3UopdP4Imvdmdv7kQj/reUNRgrJj7WQ/0QOzVsrsnl
6638ofq7pjijEP+3CsTms+IufW3H1++Tsvc9dySexHopAvHWQ67XFn5D/F/q
LzY2noyRRzyxYZb1cgO+vlurlJUtyDw9ZTDiiXPm3Nbf7AL/T8riT476qc7z
axFrF55df2gkvEjG9qy2TbzJ8/MRG1ws+jerO7ycjD08LM2VXwZPPM9nZ9wC
5AsTycvYl1NV+x7y/IHEhuePLTnH8yspyJjvjtNNA/nzDWIhoFrt6mOe/1/G
vro5/V1fCE/cZXdXJ/XpqP/2MnbfK3Pq1BqUT6xT4uu/tz18BxmL+rQ7/00Q
PHF9iOPhjnjeKeooY8PMLwQs9YYnvrh2R7iMr2+vKGOWPovjYlrw/JTY6Vj2
fdde8J1kLKnGJefUdMQTf1t8avSbOHglGdt5b0ux4yt44g7TE5PnIN+UqLOM
SYMPp7YgX6NAfHTHrLgavn6Osow9Kn0T9o4/vyTO/CbcyU9DfBcZ2y/n4nUB
+dQE4gnGScY2fvAqVB9TD5jUvUD5xCkWG3s78vVOu8rYodbbe2Se8MSLV/vn
76jE8+NuMqa1VtH97HAcP7HS1eTeP/j7K91l7EyIbdiGmfz5v4ytD386KTqK
P/+XMQvDLhsj8/nzfxkrqkl+PvI9f/4vY56DLWw74HmzQLw0MCCt01X+/F/G
niwYvjs3lj//l7FZRVElvVSx/+oytiO1T8w//nybePP4fk1j+fp9GjLWbUW7
kfH8+RZxrMOk7hMnon56yljaknkWZePgif+pFVwZzPNzacrYGOGVwwE87xaI
n5Z2q1iCfJkiLRkbNO7NXXXk0xKIjX1W//P+Bq8tYxmj3k/xQL49gTg1YLhG
LF/vt5eMpbsl3ZbH+nICsfq/GwGG/eF7y9ioraO/sGHwxF0HnB1jzNuPjoy1
d/q90RrreQnED7LbCxud4XVl7MDVf+UOWJ9RIFaonLtdeSd8HxmrjMkPeop8
lQJxivNohbR18H1l7O3cbnG5yMcpENsV9Gta2pOvB0nnv/3plkWZ6D+I51/u
YryjCV5PxlxOir2/8OdnxO1nhh393Bu+P52PbU/ljHh+ROLoH/YPL/P17PTp
+n0/y1u7hD//l7GYw88DZ/L1hA1kTM21a00Tz69GXGXCjgu+/Pm/jNmv0jzR
J48//5cx5f2Pmt35et0DqT9I61Uw/CN//i9jl4quaQyRgzeUsd+nvswUy/Hn
/zI2fHZ00DSeH9KI6qefVu+SAv78X8aMlLNfucn4838Zq1i0619uB8QTh3d+
7yFGPlHRIBmbpHVEVq4KT3xaQefBcV6/g6l/XBPY430Nf/4vY4GDU9rVdYM3
oevpZED4E55/kjg/qmqD+AB//i9ji4p98p7k8+f/dP4VH+rahCN+KLXPyGcp
r/A8UyBuPmu4c6cSxp9h5D/3KmqvgfkDcUL2pD+qyCcsMpXRfGvDqWl28MQx
Sy8vW+4Kb0b9i/mHHnPy4IlPqHYYkTQM86PhMiaSv3t/cj7mT8RnI9y6i/nz
kREyJt43ZXZdFjzx6K6Zl5+8gh9J8YajLzQMhie+Va+/LIuv3zOKjnfq2fuT
r2D7xC+03s4awPffXMZeH5325gd/vkpses1+7x++vuZoGn+e/anRxHqaArFf
fbfPp9cgfoyMLbgXWup0A+UTGz/UvfD0HPxY6r++jvOYoIz9Ix4bN9d9D573
iMZRe705d84RPI8RiAcu6ftzEc8/bCFj29892KuI/zMFYjNJ2nIzrFcjspQx
zTX9Snp+gSfO368a1xoGP17Gur+00+2N52UC8VeV2TUz+fOxCTI2ftncW+2y
cXzESp2G6LXy9ROZjP252/dSFdbXFIjN1zVk6/P1jKyof/H2SrvzHeUTdyzq
NnxaEM7PROrfb8eUvuuE4yOWTqv7E1oJby1jEbWfgq3AAvGdjfp6Xwfg/sCG
zs+kJdtMW+Bt/msf54vCjyDelvqff6PiAvn/x8R/JgRrnXmN/bOTsRuPtp1S
5c+/iZcXDwhysuPrjcqY++6Vz/L5/JBYS0d91XM+v5skY+fetrPbko3rh/iF
0d2P7g78+b+MzY0YJ351hj//p/7dQF1xZEe+PqmMJV7+pH9gFX/+T/X7y7Zs
70zEO8nYMa2Aw58mwxOH+vjFn8L7FiJnGfsx0rDTgInwxBdNUp9PQ38ocpGx
7MkuJ0ywHrlA7PhD+KaTDO9K/enDOUe+8PzQxIPf5q6cEAQ/mfp/u727Z/H3
e4hHZbz1sOsA7yZjU2Z13KPF878SN0T12nqf56+dQucjxE22H+UJxFf7LUz6
yPMjT5WxIZ894zochidusNXVnc7H32kyVtMvdJmMvz9EfPrfHYd0Pv5Op/7L
vEdWPe4XBOI11uNy+/P+fwaNJx712jf3whNHdajyvs/zN7vLWP8ZxwSbdHhi
x27tz41V5M//ZWyvv+oa3fc4PuJnGxMqinh+0plUX87JpwvnI544b+zEXjK+
vv0sOp+KCneqUF8C8XD53TcreX5ZTxnbGlIjLcf7HgJxU3FjbSzm0yIv6k/D
3DJv8/ebiL93vLfMD++TiWbT+DgweknMBXjihMEbF1r6Y//nyFifEcqfn/H7
E+Jh6fET1Pvz9V1lLDLEsteREfDEgU9mOJdP4eu9UvtbnrSjko+/xKoZdltV
+f3XPJpvdAxI/8mfzxPvHNL3tX0j9s9Hxj6+3lusYMGf/8uYVfyQnGPF8L4y
5tagcfQ0f3+KWGGM5r6Veny9WBmbKu16/vpmeGJhdY/zX5XhF8jYtm4m1m8x
HxWIdcbpFf/7gvnhQtreV+10JwfEE6+uzT82eiTiF1H/7CWXOkwDnvjS9+wN
e/j6n340311382+dFOUTBz10laoh37RoMc3XS/XZ+xbEE5dmGWXm4X5BtITq
08Ztq34N4olvLK6f2/UMyl8qYzd9rRIH4ns4gVgz89u0j9V4/3MZ9S+lszXS
eH5s4rqUJa7NfD1Uf/q9W9SLGhHiiYfYP5Kt5N/vLaf5zLBPCgX4XkIgbsrY
av5lLfwKGfMaHhvsUApPPPdsxd/Th+FXytiK1MJbjroon1h8adxs4w3YfoCM
lfTRsvr4DZ44w7/D3gfHcPyrZEzvt+vegEGoH2LjZRk2M/vAB9L4orPespbn
DyauEI20L3GHX03jWWLz1Xax8MTJve8czuD1G0T9174hoZJu8MTKCW+++u6B
X0P3g7Fru8xtgCfOUS8L0ebvxwXT/cSEWRO13XH9EK8cU3XpBZ8fraX72xXL
rwbz/xeIm91fH9+N+1lRCLWvQdfHBuF+SiCePzWu+ZQn/DoZ2xC0feLLHdg+
sWJYd+OXuN8TrZcx59lFb3rw9/OIj7ZvWljH82dvkLGDme9NM5FPWCDeWn31
iBbuZ0Ub6fr817KmexY8cdwqIxexP+JDaTzP8hmXyfsX4pNdvkSNnAy/icYL
j7mTN/H+lTh2ht25HTz/b5iMDXX8utoghOf/p+tvZeccY+4Fup/yrPx9zZHn
/6f5/PuUH53xvYZos4xpH2i/7tJEtA/i7hY/czLn8PWBZaxd1Nnex/n1RWyW
MzrtsDHKD5exXzobo2zewhN30lnXOeIp4iPofmxMxujKQzz/v4x5eLytMuD5
n7fKWG30smoPvj4AsdyL+Ek/k+G3ydjxXy5vI3LgiX92viwRGaN+Imm+XmUo
LzcD9UP8b2nilKZ56P+i6HpScDLrfojn/6f21v6AUu9r6yb8Dwiqusc=
         "]], 
        LineBox[{{9.61581933321925, 0.024495187660382146`}, {
         9.806776793766755, -0.01641161101997564}}], 
        LineBox[{{24.125103563230454`, -0.01641161101997564}, {
         24.664777957408987`, 0.024495187660382146`}}]},
       FontFamily->"Arial"]},
     Annotation[#, "Charting`Private`Tag#1"]& ]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  BaseStyle->{FontFamily -> "Arial"},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
    "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
    "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 10001.}, {-0.01641161101997564, 0.024495187660382146`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.762857392602115*^9, 3.762857422873754*^9, 3.763110951317265*^9, 
   3.763122807888977*^9, {3.9244230941984053`*^9, 3.924423122902901*^9}, 
   3.924423215785908*^9, {3.9244687718697453`*^9, 3.924468791050419*^9}, 
   3.924471376870542*^9, 3.924505782139876*^9, 3.9245059770799713`*^9, 
   3.924506614507236*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"6e074f49-8356-4ad4-a7cf-34c2cb6a3246"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Preferable Form", "Section",
 CellChangeTimes->{{3.9244685251554832`*^9, 
  3.924468528509864*^9}},ExpressionUUID->"e5713c8a-acac-4e9d-ad8e-\
6164cd55f704"],

Cell["\<\
Here is a preferable form with one fewer quantity in the circulating state. \
This form is so powerful that we state it as a mantra or slogan:\
\>", "Text",
 CellChangeTimes->{{3.670431692417209*^9, 3.670431753150216*^9}, {
   3.6704330453125353`*^9, 3.670433117666497*^9}, {3.67043363375209*^9, 
   3.6704336988423657`*^9}, {3.670459737889914*^9, 3.670459769456072*^9}, {
   3.670459896870551*^9, 3.670459939759371*^9}, {3.670515581200055*^9, 
   3.6705156053270893`*^9}, {3.6705159594739017`*^9, 3.670516034850823*^9}, {
   3.670516930257908*^9, 3.670517000661891*^9}, {3.6705181671335*^9, 
   3.67051830083702*^9}, {3.703257150897099*^9, 3.703257340578795*^9}, {
   3.703258830996993*^9, 3.703258895832912*^9}, {3.706391614581563*^9, 
   3.7063916215199547`*^9}, {3.706391653622983*^9, 3.7063916830158987`*^9}, 
   3.762857495150259*^9, {3.924423224199602*^9, 3.924423227094082*^9}, {
   3.924423480851907*^9, 3.924423604730739*^9}, {3.9244685549650784`*^9, 
   3.924468621378282*^9}, 
   3.924468806201902*^9},ExpressionUUID->"b205f9bd-e470-4e88-8ed7-\
64f4cd96ccb6"],

Cell[TextData[{
 "compute the new value as sum of the old value and a ",
 StyleBox["correction",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " that depends only on old values and the single observation ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "b16b980c-d6cb-4ec8-90a1-108eb86b25af"],
 ". "
}], "Text",
 CellChangeTimes->{{3.670431692417209*^9, 3.670431753150216*^9}, {
   3.6704330453125353`*^9, 3.670433117666497*^9}, {3.67043363375209*^9, 
   3.6704336988423657`*^9}, {3.670459737889914*^9, 3.670459769456072*^9}, {
   3.670459896870551*^9, 3.670459939759371*^9}, {3.670515581200055*^9, 
   3.6705156053270893`*^9}, {3.6705159594739017`*^9, 3.670516034850823*^9}, {
   3.670516930257908*^9, 3.670517000661891*^9}, {3.6705181671335*^9, 
   3.67051830083702*^9}, {3.703257150897099*^9, 3.703257340578795*^9}, {
   3.703258830996993*^9, 3.703258895832912*^9}, {3.706391614581563*^9, 
   3.7063916215199547`*^9}, {3.706391653622983*^9, 3.7063916830158987`*^9}, 
   3.762857495150259*^9, {3.924423224199602*^9, 3.924423227094082*^9}, {
   3.924423480851907*^9, 3.924423604730739*^9}, {3.9244685549650784`*^9, 
   3.9244685952415524`*^9}, 3.924468630634079*^9},
 Background->RGBColor[
  1, 1, 0],ExpressionUUID->"b1596645-3dd1-496b-b38a-5f7a08771aee"],

Cell["\<\
We will strive for this form in everything that follows. It is the essential \
feature of all recurrent filter algorithms. \
\>", "Text",
 CellChangeTimes->{{3.670431692417209*^9, 3.670431753150216*^9}, {
   3.6704330453125353`*^9, 3.670433117666497*^9}, {3.67043363375209*^9, 
   3.6704336988423657`*^9}, {3.670459737889914*^9, 3.670459769456072*^9}, {
   3.670459896870551*^9, 3.670459939759371*^9}, {3.670515581200055*^9, 
   3.6705156053270893`*^9}, {3.6705159594739017`*^9, 3.670516034850823*^9}, {
   3.670516930257908*^9, 3.670517000661891*^9}, {3.6705181671335*^9, 
   3.67051830083702*^9}, {3.703257150897099*^9, 3.703257340578795*^9}, {
   3.703258830996993*^9, 3.703258895832912*^9}, {3.706391614581563*^9, 
   3.7063916215199547`*^9}, {3.706391653622983*^9, 3.7063916830158987`*^9}, 
   3.762857495150259*^9, {3.924423224199602*^9, 3.924423227094082*^9}, {
   3.924423480851907*^9, 3.924423604730739*^9}, {3.9244685549650784`*^9, 
   3.9244685952415524`*^9}, {3.924468663363427*^9, 
   3.924468714250352*^9}},ExpressionUUID->"b73c060f-a6a6-4f4e-82f7-\
7fddfdfb8133"],

Cell[TextData[{
 "The right-hand side of the ",
 StyleBox["recurrence",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["z", "_"], "\[LeftArrow]", 
    RowBox[{
     OverscriptBox["z", "_"], "+", 
     RowBox[{"K", "\[Times]", 
      RowBox[{"(", 
       RowBox[{"z", "-", 
        OverscriptBox["z", "_"]}], ")"}]}]}]}], TraditionalForm]],
  ExpressionUUID->"5c226b0e-667b-445a-9be3-aea80141a659"],
 ", ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["z", "_"], TraditionalForm]],ExpressionUUID->
  "0b7563f3-7084-4c32-989f-4e3f4a9f6313"],
 " here standing for the running mean, depends only on old values and the new \
observation ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],ExpressionUUID->
  "70522e61-2d83-4de6-a862-2a98bb807b19"],
 ". The recurrence is not an equation, but it\[CloseCurlyQuote]s shorthand \
the following equation:"
}], "Text",
 CellChangeTimes->{{3.670431692417209*^9, 3.670431753150216*^9}, {
   3.6704330453125353`*^9, 3.670433117666497*^9}, {3.67043363375209*^9, 
   3.6704336988423657`*^9}, {3.670459737889914*^9, 3.670459769456072*^9}, {
   3.670459896870551*^9, 3.670459939759371*^9}, {3.670515581200055*^9, 
   3.6705156053270893`*^9}, {3.6705159594739017`*^9, 3.670516034850823*^9}, {
   3.670516930257908*^9, 3.670517000661891*^9}, {3.6705181671335*^9, 
   3.67051830083702*^9}, {3.703257150897099*^9, 3.703257340578795*^9}, {
   3.703258830996993*^9, 3.703258895832912*^9}, {3.706391614581563*^9, 
   3.7063916215199547`*^9}, {3.706391653622983*^9, 3.7063916830158987`*^9}, 
   3.762857495150259*^9, {3.924423224199602*^9, 3.924423227094082*^9}, {
   3.924423480851907*^9, 3.924423604730739*^9}, {3.9244685549650784`*^9, 
   3.9244685952415524`*^9}, {3.924468663363427*^9, 
   3.924468755541307*^9}},ExpressionUUID->"e132a50b-4c6d-42f6-a803-\
90e5a227d1a3"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox[
    OverscriptBox["z", "_"], 
    RowBox[{"n", "+", "1"}]], "=", 
   RowBox[{
    RowBox[{
     SubscriptBox[
      OverscriptBox["z", "_"], "n"], "+", 
     RowBox[{"K", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["z", 
         RowBox[{"n", "+", "1"}]], "-", 
        SubscriptBox[
         OverscriptBox["z", "_"], "n"]}], ")"}]}]}], "=", 
    RowBox[{"x", "+", 
     RowBox[{"K", "\[Times]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["z", 
          RowBox[{"n", "+", "1"}]], "-", "x"}], ")"}], "."}]}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.670431692417209*^9, 3.670431753150216*^9}, {
  3.6704330453125353`*^9, 3.670433117666497*^9}, {3.67043363375209*^9, 
  3.6704336988423657`*^9}, {3.670459737889914*^9, 3.670459769456072*^9}, {
  3.670459896870551*^9, 3.670459939759371*^9}, {3.670515581200055*^9, 
  3.6705156053270893`*^9}, {3.6705159594739017`*^9, 3.670516034850823*^9}, {
  3.670516930257908*^9, 3.670517000661891*^9}, {3.6705181671335*^9, 
  3.67051830083702*^9}, {3.703257150897099*^9, 3.703257340578795*^9}, {
  3.703258830996993*^9, 
  3.703258926808292*^9}},ExpressionUUID->"10e1690b-0ae8-42de-950b-\
f3c9123d926a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "cume", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cume", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "n_"}], "}"}], ",", "z_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"K", "=", 
       FractionBox["1", 
        RowBox[{"n", "+", "1"}]]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "+", 
        RowBox[{"K", 
         RowBox[{"(", 
          RowBox[{"z", "-", "x"}], ")"}]}]}], ",", 
       RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Fold", "[", 
  RowBox[{"cume", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", "zs"}], "]"}]}], "Input",
 CellChangeTimes->{{3.670362262676239*^9, 3.670362403112179*^9}, {
  3.670362444550591*^9, 3.670362471870253*^9}, {3.670362507420605*^9, 
  3.670362513220016*^9}, {3.67037783476613*^9, 3.67037784933753*^9}, {
  3.670378041717937*^9, 3.670378067296968*^9}, {3.6703824020637703`*^9, 
  3.670382402334654*^9}, {3.670431768319312*^9, 3.670431778431525*^9}, {
  3.670515854519878*^9, 3.670515855081403*^9}, {3.671494664327977*^9, 
  3.671494669399404*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"a3c30ce0-f9ae-4f7f-998d-54e48558b2ba"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.27947242`"}], ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{
  3.671380182794004*^9, 3.67146752330802*^9, 3.671494670217632*^9, 
   3.671551662979211*^9, 3.671563250532096*^9, 3.671587605469666*^9, 
   3.671654764595467*^9, 3.671663238388459*^9, 3.671665733669017*^9, 
   3.671666441776033*^9, 3.6718876459843616`*^9, 3.67193961272646*^9, 
   3.671974959583703*^9, 3.672154917135109*^9, 3.672221811052742*^9, 
   3.672306126372289*^9, 3.672308486964917*^9, 3.672311740646706*^9, 
   3.672311893558407*^9, 3.672476728505651*^9, 3.672833720411938*^9, 
   3.672911581705785*^9, 3.673548773210943*^9, 3.67647849474658*^9, 
   3.703192041224015*^9, {3.703238727507362*^9, 3.70323874556763*^9}, 
   3.703247642542169*^9, 3.703626685383574*^9, 3.706391686082145*^9, 
   3.7628603863777113`*^9, 3.763110954755922*^9, 3.763122810269299*^9, {
   3.924468760130071*^9, 3.92446879117522*^9}, 3.924471376990032*^9, 
   3.924505782259604*^9, 3.924505977089445*^9, 3.924506614515695*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"f7b3f835-b0fe-486b-9d03-0020714189ae"]
}, Open  ]],

Cell[TextData[{
 "We prefer this form because (1) it separates old quantities on the right \
(except for the new datum, ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],ExpressionUUID->
  "b0eff3a7-7b89-4d0a-92b9-a1b8a08202be"],
 ") from new quantities on the left, and (2) it is easy to memorize because \
it is an ",
 StyleBox["affine",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " update: the old estimate plus a ",
 StyleBox["correction",
  FontSlant->"Italic"],
 " written as a ",
 StyleBox["gain",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
  FormBox["K", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "e46d4e33-c555-4e31-86de-5ef57e293de5"],
 " times the ",
 StyleBox["residual",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "-", 
    OverscriptBox["z", "_"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "f68dfcc1-4f9b-4142-b032-b116ab39eb19"],
 ". The residual is the difference between the new observation and the old \
mean-so-far. "
}], "Text",
 CellChangeTimes->{{3.670517004197152*^9, 3.670517035862468*^9}, {
  3.670517077032709*^9, 3.67051707851892*^9}, {3.670518388275486*^9, 
  3.670518405641315*^9}, {3.670518522885989*^9, 3.670518555151749*^9}, {
  3.670603643386138*^9, 3.670603773061327*^9}, {3.670630445011032*^9, 
  3.670630450887945*^9}, {3.67063225971425*^9, 3.670632260359024*^9}, {
  3.671494686782105*^9, 3.671494701596708*^9}, {3.703257359193238*^9, 
  3.703257370310305*^9}, {3.7032589438421297`*^9, 3.703259017330193*^9}, {
  3.703259645970358*^9, 3.703259721601274*^9}, {3.7063917252274537`*^9, 
  3.706391783007387*^9}, {3.762860452901226*^9, 3.762860494243023*^9}, {
  3.9244236936840076`*^9, 3.924423744781851*^9}, {3.924468843330882*^9, 
  3.924468849818553*^9}},ExpressionUUID->"1e223bfb-38fa-4bd1-a604-\
4a64e43d8859"],

Cell[TextData[{
 "To prove this formula ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["z", "_"], "+", 
    RowBox[{"K", "\[Times]", 
     RowBox[{"(", 
      RowBox[{"z", "-", 
       OverscriptBox["z", "_"]}], ")"}]}]}], TraditionalForm]],ExpressionUUID->
  "0bf1f81d-0338-4c55-a348-affe9f7f7154"],
 " correct, we need only show that it equals ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"sum", "+", "z"}], 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "7a805db1-8a6c-46bf-809d-65d29610a2c0"],
 ", which is obviously the new mean. Write ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["z", "_"], TraditionalForm]],ExpressionUUID->
  "c703a67d-d3d2-4e7a-9096-32b39f4bc1a2"],
 ", the old mean, as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      OverscriptBox["z", "_"], "(", 
      RowBox[{"n", "+", "1"}], ")"}], 
     RowBox[{"n", "+", "1"}]], "=", 
    FractionBox[
     RowBox[{
      RowBox[{"n", 
       OverscriptBox["z", "_"]}], "+", 
      OverscriptBox["z", "_"]}], 
     RowBox[{"n", "+", "1"}]]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "3463b6bd-ab8f-43f6-b5d2-2d9489bdd700"],
 " and write ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     OverscriptBox["z", "_"], "+", 
     RowBox[{"K", "\[Times]", 
      RowBox[{"(", 
       RowBox[{"z", "-", 
        OverscriptBox["z", "_"]}], ")"}]}]}], "=", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"n", 
         OverscriptBox["z", "_"]}], "+", 
        OverscriptBox["z", "_"]}], 
       RowBox[{"n", "+", "1"}]], "+", 
      FractionBox[
       RowBox[{"z", "-", 
        OverscriptBox["z", "_"]}], 
       RowBox[{"n", "+", "1"}]]}], "=", 
     FractionBox[
      RowBox[{"sum", "+", "z"}], 
      RowBox[{"n", "+", "1"}]]}]}], TraditionalForm]],ExpressionUUID->
  "a7b021a1-a282-4975-ace1-b7115bfd8983"],
 ", noting that the ",
 StyleBox["sum",
  FontSlant->"Italic"],
 " is ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", 
    OverscriptBox["z", "_"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "bc10ff15-77dd-4042-b375-456d6641762b"],
 ". I think this is beautiful. The same reasoning will help us derive many \
more sophisticated formulas, up-to-and-including the Kalman update."
}], "Text",
 CellChangeTimes->{{3.924423820652074*^9, 3.92442396518731*^9}, {
  3.9244240013527527`*^9, 3.9244242948968678`*^9}, {3.924468902314918*^9, 
  3.924469009620726*^9}},ExpressionUUID->"036e152a-4120-4ee2-8820-\
9a31b4a1a9aa"],

Cell[TextData[{
 "For another twist on the proof above, we can let ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " do the work. T",
 "he Kalman-like form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "+", 
    RowBox[{"K", "(", 
     RowBox[{"z", "-", "x"}], ")"}]}], TraditionalForm]],ExpressionUUID->
  "8beb7f8a-3702-4454-88cb-07a3715c5b53"],
 " is equal to the obvious form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "x"}], "+", "z"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"n", "+", "1"}], ")"}]}], TraditionalForm]],ExpressionUUID->
  "80cfb143-ac90-4eaf-b028-aba4eba766fd"],
 " when ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"n", "+", "1"}], "\[NotEqual]", " ", "0"}], TraditionalForm]],
  ExpressionUUID->"6130502a-e848-4d44-9318-d1d81e429d71"],
 "."
}], "Text",
 CellChangeTimes->{{3.703238817945127*^9, 3.703238895548034*^9}, {
  3.703259815601558*^9, 3.703259842487281*^9}, {3.924424326320578*^9, 
  3.9244243494113827`*^9}, {3.924469056736065*^9, 
  3.924469072540946*^9}},ExpressionUUID->"83e10233-a7d3-4614-8a30-\
fee46a5eba9e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "+", 
     RowBox[{"K", 
      RowBox[{"(", 
       RowBox[{"z", "-", "x"}], ")"}]}]}], "\[Equal]", 
    FractionBox[
     RowBox[{
      RowBox[{"n", " ", "x"}], "+", "z"}], 
     RowBox[{"n", "+", "1"}]]}], ",", "K"}], "]"}]], "Input",
 CellChangeTimes->{{3.6712884079266863`*^9, 3.6712884562672377`*^9}, {
  3.671288503604869*^9, 3.671288504362889*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"9162b0d3-2370-459b-8962-281dfe8bd108"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"K", "\[Rule]", 
    FractionBox["1", 
     RowBox[{"1", "+", "n"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.671288458081163*^9, 3.6712885056894503`*^9, 3.6713801831560717`*^9, 
   3.6714675236574497`*^9, 3.671494744314947*^9, 3.671551663079789*^9, 
   3.671563250821769*^9, 3.671587605569391*^9, 3.671654764695631*^9, 
   3.671663238489139*^9, 3.67166573376818*^9, 3.671666441876202*^9, 
   3.671887646083633*^9, 3.671939612859916*^9, 3.6719749596851797`*^9, 
   3.672154917235499*^9, 3.672221811152903*^9, 3.672306126468524*^9, 
   3.672308487069242*^9, 3.672311740746661*^9, 3.672311893658123*^9, 
   3.672476728604815*^9, 3.672833720482343*^9, 3.67291158180684*^9, 
   3.673548773310336*^9, 3.676478494846999*^9, 3.703247642641045*^9, 
   3.703626685484098*^9, 3.706391814606751*^9, 3.762860572579153*^9, 
   3.763110960759236*^9, 3.763122817398223*^9, {3.924468771908974*^9, 
   3.924468791197715*^9}, 3.92447137700718*^9, 3.924505782285024*^9, 
   3.924505977254197*^9, 3.924506614525177*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"902edd84-049c-4760-8f40-4625018ca792"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Running Variance", "Chapter",
 CellChangeTimes->{{3.670382309964444*^9, 3.670382314266637*^9}, {
  3.670395292654766*^9, 3.670395297531091*^9}, {3.6703953494267077`*^9, 
  3.67039535540079*^9}, {3.670431797991806*^9, 
  3.670431803519627*^9}},ExpressionUUID->"98eaf97d-c181-45f7-b379-\
7b39102fdc4e"],

Cell[CellGroupData[{

Cell["Definitions", "Subsection",
 CellChangeTimes->{{3.703255624184164*^9, 
  3.703255626655767*^9}},ExpressionUUID->"5a88b1e0-4efa-4335-954e-\
f55c7e5f3a30"],

Cell[TextData[{
 StyleBox["Variance",
  FontSlant->"Italic"],
 " is the sum of squared residuals against the running mean, divided by the \
count less one. The \[OpenCurlyDoubleQuote]count less one\
\[CloseCurlyDoubleQuote] is ",
 ButtonBox["Bessel's correction",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://en.wikipedia.org/wiki/Bessel's_correction"], None},
  ButtonNote->"https://en.wikipedia.org/wiki/Bessel's_correction"],
 ". "
}], "Text",
 CellChangeTimes->{{3.670431823046796*^9, 3.670431859941572*^9}, {
  3.670433713354093*^9, 3.670433722114554*^9}, {3.6705161644664516`*^9, 
  3.670516219692975*^9}, {3.67053362227778*^9, 3.670533629483571*^9}, {
  3.7032471240364017`*^9, 3.703247146686647*^9}, {3.703257476365257*^9, 
  3.703257482403197*^9}, {3.70325751378489*^9, 3.703257514184754*^9}, {
  3.7032598668148813`*^9, 3.703259881645911*^9}, {3.7063918289966297`*^9, 
  3.70639184675258*^9}, {3.762860624020661*^9, 3.762860626746579*^9}, {
  3.9244245065010138`*^9, 3.924424510672821*^9}, {3.9244245843079767`*^9, 
  3.924424584308503*^9}},ExpressionUUID->"7f05ea6a-5ee0-4848-9294-\
4a4e1b6cda7a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variance", "[", "zs", "]"}]], "Input",
 CellChangeTimes->{{3.670382669592613*^9, 3.670382674246121*^9}, {
  3.6703829206029*^9, 3.670382938545705*^9}, {3.670459965363146*^9, 
  3.670459966610405*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"0eb72b80-4266-4268-b186-c29976871c08"],

Cell[BoxData["0.39518315172008184`"], "Output",
 CellChangeTimes->{
  3.670382674618895*^9, {3.670382921838168*^9, 3.67038293941509*^9}, 
   3.6703954855841722`*^9, 3.670431972098316*^9, 3.670434305457439*^9, 
   3.670459967798513*^9, 3.670510829047138*^9, 3.670511022188486*^9, 
   3.670515638555119*^9, 3.67053255482953*^9, 3.670533722642839*^9, 
   3.670534990454266*^9, 3.6705452419116898`*^9, 3.670568332377552*^9, 
   3.670603843743137*^9, 3.6706304978358097`*^9, 3.670775509436372*^9, 
   3.670872521345413*^9, 3.6709569580752087`*^9, 3.670974672303078*^9, 
   3.670979364100161*^9, 3.671033134135478*^9, 3.671033181293597*^9, 
   3.671033259015767*^9, 3.671039610140358*^9, 3.671042461277085*^9, 
   3.671044042672844*^9, 3.671065161092989*^9, 3.671083427711821*^9, 
   3.671208538918159*^9, 3.671213361048538*^9, 3.6712176466373277`*^9, 
   3.671218311739625*^9, 3.671380183659974*^9, 3.671467524536325*^9, 
   3.671551663129433*^9, 3.671563250902469*^9, 3.671587605794986*^9, 
   3.671654764745378*^9, 3.671663238539227*^9, 3.671665733818348*^9, 
   3.67166644192665*^9, 3.671887646133072*^9, 3.671939613038643*^9, 
   3.671974959900478*^9, 3.672154917458267*^9, 3.672221811203701*^9, 
   3.672306126523012*^9, 3.672308487273673*^9, 3.672311740796954*^9, 
   3.672311893707435*^9, 3.672476728652503*^9, 3.672833720514945*^9, 
   3.672911581857141*^9, 3.673548773359325*^9, 3.676478494897054*^9, 
   3.703192105102125*^9, 3.703238928137909*^9, 3.703626685556292*^9, 
   3.706391850516808*^9, 3.762860634211233*^9, 3.763110967652352*^9, 
   3.763122820617317*^9, {3.924468771912697*^9, 3.9244687912019467`*^9}, 
   3.924471377011551*^9, 3.924505782289196*^9, 3.924505977258237*^9, 
   3.9245066145284443`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"975bfca3-609e-468c-8c79-0a0db1528c57"]
}, Open  ]],

Cell["Variance is also the square of standard deviation.", "Text",
 CellChangeTimes->{{3.670432004874431*^9, 3.670432022187734*^9}, {
  3.924469108221135*^9, 
  3.9244691116952133`*^9}},ExpressionUUID->"69ddb04b-bd34-4617-aaf7-\
ce64b9e92738"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"StandardDeviation", "[", "zs", "]"}], "2"], "\[Equal]", 
  RowBox[{"Variance", "[", "zs", "]"}]}]], "Input",
 CellChangeTimes->{{3.670431982689183*^9, 3.6704319993084106`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"319dd0b2-9ec0-44ec-96ba-b02e4f068626"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.670431999992799*^9, 3.670434305506876*^9, 3.670459971774784*^9, 
   3.670510829113937*^9, 3.6705110222380342`*^9, 3.6705156386050034`*^9, 
   3.670532554888519*^9, 3.670533652245331*^9, 3.670534990521623*^9, 
   3.670545241967238*^9, 3.670568335993546*^9, 3.670603848553243*^9, 
   3.6707755094915457`*^9, 3.670872521396304*^9, 3.670956958122348*^9, 
   3.670974672357337*^9, 3.670979364151259*^9, 3.671033134185029*^9, 
   3.671033181344366*^9, 3.671033259065878*^9, 3.671039610194553*^9, 
   3.6710424613269663`*^9, 3.671044042723815*^9, 3.671065161148191*^9, 
   3.67108342778804*^9, 3.671208538968065*^9, 3.6712133611019588`*^9, 
   3.671217646877671*^9, 3.671218311793585*^9, 3.671380183706223*^9, 
   3.6714675245957537`*^9, 3.6715516631783338`*^9, 3.671563250982243*^9, 
   3.671587605857784*^9, 3.6716547647998257`*^9, 3.671663238589391*^9, 
   3.671665734038441*^9, 3.6716664421778507`*^9, 3.671887646183874*^9, 
   3.671939613113511*^9, 3.671974959951655*^9, 3.672154917517988*^9, 
   3.672221811385256*^9, 3.672306126685816*^9, 3.672308487331737*^9, 
   3.672311740846949*^9, 3.6723118938711576`*^9, 3.672476728703854*^9, 
   3.672833720536037*^9, 3.6729115819062576`*^9, 3.673548773414955*^9, 
   3.6764784949452963`*^9, 3.703192114935299*^9, 3.703238931062398*^9, 
   3.703626685644659*^9, 3.706391855145289*^9, 3.763110969137092*^9, 
   3.7631228220583696`*^9, {3.92446877192266*^9, 3.924468791213393*^9}, 
   3.924471377022841*^9, 3.924505782301445*^9, 3.924505977301309*^9, 
   3.9245066145339117`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"c851e8d4-b2ab-40ef-aa72-3a136e8513e3"]
}, Open  ]],

Cell[TextData[{
 "The ",
 StyleBox["sum of squared residuals",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", "
}], "Text",
 CellChangeTimes->{{3.670432048862856*^9, 3.670432086838054*^9}, 
   3.67046000286861*^9, {3.703257530821227*^9, 3.7032575581033916`*^9}, 
   3.703257766040704*^9},ExpressionUUID->"4bda312c-357c-4436-87be-\
a0e9842b9223"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["\[CapitalSigma]", "n"], 
   OverscriptBox["=", "def"], 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["z", "i"], "-", 
       SubscriptBox[
        OverscriptBox["z", "_"], "n"]}], ")"}], "2"]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.670432048862856*^9, 3.670432086838054*^9}, 
   3.67046000286861*^9, {3.703257530821227*^9, 3.7032575581033916`*^9}, {
   3.703257692174491*^9, 
   3.703257735513049*^9}},ExpressionUUID->"251901b2-0841-43d0-b783-\
e521c2bba640"],

Cell["is the variance times the length-less-one:", "Text",
 CellChangeTimes->{{3.670432048862856*^9, 3.670432086838054*^9}, 
   3.67046000286861*^9, {3.703257530821227*^9, 3.7032575581033916`*^9}, {
   3.703257757111902*^9, 3.70325776030017*^9}, {3.703257798805475*^9, 
   3.703257806650758*^9}},ExpressionUUID->"65650b20-a582-4a27-aebb-\
b186464f3d8d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Variance", "[", "zs", "]"}], "*", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Length", "[", "zs", "]"}], "-", "1"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.670382907632208*^9, 3.670382947009407*^9}, {
  3.670383269166387*^9, 3.670383275524267*^9}, {3.670432027377913*^9, 
  3.670432035537219*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"f1c2c740-6ed0-4868-8984-5003a95784fa"],

Cell[BoxData["3.5566483654807364`"], "Output",
 CellChangeTimes->{
  3.670382913059112*^9, 3.670382947400587*^9, {3.670383272026621*^9, 
   3.670383276358703*^9}, 3.67039548680044*^9, 3.670431969625476*^9, 
   3.670432035825199*^9, 3.670434305558316*^9, 3.670459974344613*^9, 
   3.6704600139723186`*^9, 3.670510829181871*^9, 3.67051102230578*^9, 
   3.6705156386581993`*^9, 3.670532554953255*^9, 3.670533655682394*^9, 
   3.670534990585311*^9, 3.670545242029671*^9, 3.670568337919689*^9, 
   3.670603865380339*^9, 3.6707755095403643`*^9, 3.6708725214421453`*^9, 
   3.670956958175834*^9, 3.670974672407144*^9, 3.670979364202217*^9, 
   3.671033134236342*^9, 3.671033181393914*^9, 3.671033259120215*^9, 
   3.671039610257135*^9, 3.67104246137722*^9, 3.671044042793754*^9, 
   3.6710651612116137`*^9, 3.671083427872038*^9, 3.671208539226793*^9, 
   3.671213361152192*^9, 3.671217646936729*^9, 3.671218311857286*^9, 
   3.671380183760858*^9, 3.6714675246581373`*^9, 3.67155166323343*^9, 
   3.671563251065629*^9, 3.671587605920619*^9, 3.671654764861909*^9, 
   3.6716632387889357`*^9, 3.671665734107753*^9, 3.671666442226992*^9, 
   3.67188764635574*^9, 3.6719396131768227`*^9, 3.671974960015381*^9, 
   3.672154917571679*^9, 3.672221811435433*^9, 3.672306126734855*^9, 
   3.67230848738134*^9, 3.672311741032843*^9, 3.67231189392535*^9, 
   3.672476728758039*^9, 3.6728337205802317`*^9, 3.672911581956385*^9, 
   3.673548773477803*^9, 3.676478494995984*^9, 3.703192126600795*^9, 
   3.703238936549418*^9, 3.703626685704551*^9, 3.706391860918454*^9, 
   3.762860646526548*^9, 3.763110977158243*^9, 3.763122824629202*^9, {
   3.924468771926539*^9, 3.924468791217456*^9}, 3.924471377026903*^9, 
   3.9245057823124256`*^9, 3.9245059773051863`*^9, 3.924506614536511*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"f10a572b-bbb1-46e6-8e9c-4e120f273903"]
}, Open  ]],

Cell["\<\
The sum of squared residuals will be a cornerstone quantity for all future \
calculations. Here is another look at it.\
\>", "Text",
 CellChangeTimes->{{3.92446914829983*^9, 
  3.924469175712153*^9}},ExpressionUUID->"fbf49e86-dae4-421f-bd5c-\
397f9a682f9c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Mu]", "=", 
     RowBox[{"Mean", "[", "zs", "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plus", "@@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"#", "-", "\[Mu]"}], ")"}], "2"], "&"}], "/@", "zs"}], 
     ")"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.762860666145419*^9, 3.7628606798539104`*^9}, 
   3.762860756285201*^9, {3.76286079434844*^9, 3.7628608295890317`*^9}, {
   3.762860867611758*^9, 3.762860892682941*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"ed74cbad-1d05-488d-b420-0ea457c83d6d"],

Cell[BoxData["3.5566483654807355`"], "Output",
 CellChangeTimes->{
  3.762860831879785*^9, {3.7628608830822678`*^9, 3.762860893641707*^9}, 
   3.763122831521037*^9, {3.924468771935968*^9, 3.924468791220837*^9}, 
   3.924471377038994*^9, 3.924505782326135*^9, 3.924505977317313*^9, 
   3.9245066145393467`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"984b8b4b-03df-4b93-9838-cb94c1b4f97d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Requirement", "Subsection",
 CellChangeTimes->{{3.7628611352153263`*^9, 
  3.7628611371722145`*^9}},ExpressionUUID->"166ca573-0770-40cb-938e-\
8115d3d64f6b"],

Cell[TextData[{
 "We require an incremental, running variance that does not refer to future \
observations\[LongDash]even indirectly, through the eventual mean ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["z", "_"], "n"], TraditionalForm]],ExpressionUUID->
  "fab3ae7e-618d-4b86-ba7d-c73fd9b55768"],
 "\[LongDash]and does not store the entire past, only a summary of constant \
size.  "
}], "Text",
 CellChangeTimes->{{3.670604020011711*^9, 3.670604024479059*^9}, {
  3.703257883604397*^9, 3.703257883770673*^9}, {3.703259901741646*^9, 
  3.703259908835472*^9}, {3.762860938615184*^9, 3.762860972105831*^9}, {
  3.924469200964641*^9, 3.924469216863368*^9}, {3.924469369799686*^9, 
  3.92446937577732*^9}},ExpressionUUID->"39080b1f-bd6d-40f4-a6fb-\
666ac4d08441"],

Cell["\<\
The definition explicitly refers to the past history. It seems, at first \
glance, impossible to compute the variance without keeping the entire \
history. But it possible, and we\[CloseCurlyQuote]ll get there in baby steps.\
\
\>", "Text",
 CellChangeTimes->{{3.924424643865715*^9, 3.924424689566022*^9}, {
  3.924424720586241*^9, 3.924424759651313*^9}, {3.924469234486024*^9, 
  3.9244692517674437`*^9}},ExpressionUUID->"c3e45573-f94c-4e3d-854d-\
987ff9aa37c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Brute-Force Variance (doesn\[CloseCurlyQuote]t meet requirements)", \
"Subsection",
 CellChangeTimes->{{3.6705336697324753`*^9, 3.670533675772894*^9}, {
  3.76286114094617*^9, 3.762861151538872*^9}, {3.7628611993614035`*^9, 
  3.762861201163269*^9}},ExpressionUUID->"ca0888ee-e33e-41ce-a9f4-\
1736ca09db56"],

Cell[TextData[{
 "The following accumulates variance directly from the definition, useful for \
numerical checks. However, it assumes we know length and mean of the entire \
sequence ",
 StyleBox["zs",
  FontSlant->"Italic"],
 " ahead of time, so it does not meet the requirement of being incremental. \
It also needs computer memory for the entire sequence ",
 StyleBox["zs",
  FontSlant->"Italic"],
 ", which is of variable,  unknown, or infinite length, so does not meet the \
requirement of constant memory. "
}], "Text",
 CellChangeTimes->{{3.670432100808134*^9, 3.670432206425814*^9}, {
   3.670432649658374*^9, 3.670432667175961*^9}, {3.670515648597191*^9, 
   3.670515704555501*^9}, {3.6705162522000647`*^9, 3.6705163243713717`*^9}, {
   3.67051642781385*^9, 3.670516498787143*^9}, {3.670603885781478*^9, 
   3.67060397961869*^9}, 3.670604012657071*^9, {3.703247687315121*^9, 
   3.703247733464987*^9}, {3.703257610890315*^9, 3.70325761787906*^9}, {
   3.703259918398096*^9, 3.70325993478627*^9}, {3.7628610740858097`*^9, 
   3.7628611029303956`*^9}, {3.7628611694422083`*^9, 3.7628611948056*^9}, {
   3.924469278406563*^9, 3.924469316757422*^9}, {3.924469391779793*^9, 
   3.924469412971191*^9}},ExpressionUUID->"71714606-c700-43ce-a0a3-\
2bc3a7c6bf54"],

Cell[CellGroupData[{

Cell[TextData[{
 "Re-use the variable ",
 StyleBox["zs",
  FontSlant->"Italic"],
 ", now for a shorter sequence of ground-truth data, convenient for checking \
arithmetic in one\[CloseCurlyQuote]s head. "
}], "Item",
 CellChangeTimes->{{3.762861265522763*^9, 3.762861293433267*^9}, {
  3.76311100658438*^9, 3.7631110302889647`*^9}, {3.9244694208140297`*^9, 
  3.9244694279351*^9}, {3.924469458701082*^9, 3.9244694886908817`*^9}},
 FontSlant->"Italic",
 Background->None,ExpressionUUID->"8111ebeb-64e6-40b8-8716-67de9efbc13a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "zs", "]"}], ";", 
  RowBox[{"zs", "=", 
   RowBox[{"{", 
    RowBox[{"55", ",", "89", ",", "144"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.670633040692796*^9, 3.670633053631119*^9}, 
   3.670633688373909*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"6d3f97ac-b104-49e7-b00b-888db4fed247"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Variance", "[", "zs", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.670633089512288*^9, 3.670633096837376*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"b996ff94-7968-434e-83da-6ee49020db93"],

Cell[BoxData["2017.`"], "Output",
 CellChangeTimes->{{3.670633093456658*^9, 3.670633097174734*^9}, 
   3.670633690725699*^9, 3.670775509661017*^9, 3.670872521748149*^9, 
   3.670956958300746*^9, 3.670974672753292*^9, 3.670979364485127*^9, 
   3.6710331345690928`*^9, 3.671033181524482*^9, 3.671033259272795*^9, 
   3.671039610574546*^9, 3.671042461680066*^9, 3.671044043085222*^9, 
   3.671065161517785*^9, 3.671083428079273*^9, 3.671208539364647*^9, 
   3.671213361253249*^9, 3.671217647110773*^9, 3.671218312123784*^9, 
   3.671380183894141*^9, 3.671467524827323*^9, 3.671494785039616*^9, 
   3.6715516633693666`*^9, 3.671563251255499*^9, 3.671587606060575*^9, 
   3.671654764985839*^9, 3.6716632389085093`*^9, 3.671665734259427*^9, 
   3.67166644236049*^9, 3.671887646468121*^9, 3.671939613332908*^9, 
   3.671974960157995*^9, 3.672154917691401*^9, 3.67222181155946*^9, 
   3.6723061268590317`*^9, 3.672308487518257*^9, 3.672311741159417*^9, 
   3.672311894044874*^9, 3.6724767288837547`*^9, 3.672833720783937*^9, 
   3.672911582086088*^9, 3.6735487735928497`*^9, 3.676478495146277*^9, 
   3.703192163424919*^9, 3.7032390294009547`*^9, 3.703239087790371*^9, 
   3.7036266858402643`*^9, 3.762861205749287*^9, 3.76311099684458*^9, 
   3.763122838340469*^9, 3.924424794441353*^9, {3.924468771951704*^9, 
   3.9244687912511053`*^9}, 3.924471377053309*^9, 3.92450578234374*^9, 
   3.924505977323041*^9, 3.9245066145504*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"62733077-cf3f-46ca-8760-97d55132c3f4"]
}, Open  ]]
}, Open  ]],

Cell["Hand-calculated mean:", "Text",
 CellChangeTimes->{{3.903355762021765*^9, 
  3.903355767636771*^9}},ExpressionUUID->"06b2cefd-7dbc-4ca2-9a59-\
16cd0a94dc23"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"55", "+", "89", "+", "144"}], ")"}], "/", "3."}]], "Input",
 CellChangeTimes->{{3.903355709467358*^9, 3.903355718000709*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"ff21b2e9-0356-495c-91f3-e46e1455a6d0"],

Cell[BoxData["96.`"], "Output",
 CellChangeTimes->{
  3.903355718522783*^9, 3.9244248022912498`*^9, {3.924468771959907*^9, 
   3.924468791255295*^9}, 3.924471377057651*^9, 3.924505782348928*^9, 
   3.924505977334336*^9, 3.924506614556117*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"234adf5b-8a85-4c9a-8e4b-5deac045249a"]
}, Open  ]],

Cell[TextData[{
 "Hand-calculated variance = SSR (sum of squared residuals)",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"/", " ", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "22c9db0d-3173-42e5-9665-9d32317d9192"],
 ":"
}], "Text",
 CellChangeTimes->{{3.903355774099918*^9, 3.9033557907692633`*^9}, {
   3.903355847306628*^9, 3.903355856940616*^9}, {3.924424813879525*^9, 
   3.9244248167999163`*^9}, 
   3.924424928800707*^9},ExpressionUUID->"4c971995-df20-46b0-8d69-\
69cbb9dfd3c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"55", "-", "96."}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"89", "-", "96."}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"144", "-", "96."}], ")"}], "^", "2"}]}], ")"}], "/", 
  "2."}]], "Input",
 CellChangeTimes->{{3.903355636387372*^9, 3.903355694945153*^9}, {
  3.903355736584878*^9, 3.903355754014835*^9}, {3.903355831319439*^9, 
  3.9033558399690323`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"51f7f1f4-17ae-4318-9092-f9e77f067628"],

Cell[BoxData["2017.`"], "Output",
 CellChangeTimes->{{3.903355664962429*^9, 3.90335568997959*^9}, {
   3.903355743306755*^9, 3.903355755082504*^9}, 3.90335579288922*^9, {
   3.9033558321835947`*^9, 3.903355840482725*^9}, 3.9244248216817718`*^9, {
   3.9244687719633617`*^9, 3.924468791264678*^9}, 3.924471377068615*^9, 
   3.9245057823615932`*^9, 3.924505977337887*^9, 3.924506614559984*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"f8fc3f1d-4439-4daf-af1f-89de8a1ec0b6"]
}, Open  ]],

Cell[TextData[{
 "Now, we\[CloseCurlyQuote]ll write a truly nasty accumulator function to \
produce the final variance. It\[CloseCurlyQuote]s nasty because it refers to \
the entire sequence through the variable ",
 StyleBox["zs", "Input"],
 StyleBox[".",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.9244248485245457`*^9, 3.924424915444867*^9}, {
  3.924424982747395*^9, 3.9244249834072437`*^9}, {3.9244695162133017`*^9, 
  3.924469518983658*^9}},ExpressionUUID->"97939130-8d88-41bd-bea4-\
8731411935a6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "cume", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cume", "[", 
    RowBox[{"var_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"var", "+", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"z", "-", 
        RowBox[{"Mean", "[", "zs", "]"}]}], ")"}], "2"], 
     RowBox[{
      RowBox[{"Length", "[", "zs", "]"}], "-", "1"}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FoldList", "[", 
  RowBox[{"cume", ",", "0.", ",", "zs"}], "]"}]}], "Input",
 CellChangeTimes->{{3.670431878441489*^9, 3.67043196611762*^9}, {
   3.670432532993738*^9, 3.670432537354947*^9}, {3.670432609940963*^9, 
   3.670432641355281*^9}, 3.670633063383287*^9, {3.703239120069359*^9, 
   3.703239121060824*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"03c47b47-270a-47d5-a4bd-246dcd0b283e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", "840.5`", ",", "865.`", ",", "2017.`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.6704319573089542`*^9, 3.670431966767095*^9}, 
   3.6704326420142603`*^9, 3.670434305670938*^9, 3.670460032828039*^9, 
   3.670510829243762*^9, 3.670511022354578*^9, 3.6705156387093897`*^9, 
   3.670532555004262*^9, 3.670533709693441*^9, 3.670534990651474*^9, 
   3.670545242096092*^9, 3.670568348584985*^9, {3.670633057017488*^9, 
   3.670633063753138*^9}, 3.670633692940551*^9, 3.670775509687465*^9, 
   3.670872521796035*^9, 3.670956958355507*^9, 3.670974672802839*^9, 
   3.670979364534414*^9, 3.671033134618419*^9, 3.671033181577526*^9, 
   3.671033259332559*^9, 3.671039610627647*^9, 3.671042461727104*^9, 
   3.671044043144093*^9, 3.671065161577245*^9, 3.671083428155424*^9, 
   3.671208539418248*^9, 3.6712133613009453`*^9, 3.671217647171185*^9, 
   3.6712183121730947`*^9, 3.6713801839443493`*^9, 3.671467524891789*^9, 
   3.671494785097245*^9, 3.671551663393964*^9, 3.671563251305648*^9, 
   3.671587606087097*^9, 3.67165476504527*^9, 3.671663238934552*^9, 
   3.671665734285263*^9, 3.671666442410055*^9, 3.671887646516275*^9, 
   3.671939613369315*^9, 3.671974960217766*^9, 3.672154917717157*^9, 
   3.672221811584959*^9, 3.672306126883164*^9, 3.672308487544251*^9, 
   3.672311741214449*^9, 3.672311894069637*^9, 3.67247672895965*^9, 
   3.67283372080483*^9, 3.672911582139677*^9, 3.673548773617812*^9, 
   3.676478495196634*^9, 3.703192166000389*^9, 3.703239087839944*^9, 
   3.703239121669447*^9, 3.703626685904263*^9, 3.762861208292376*^9, 
   3.763110999189625*^9, 3.763111033337812*^9, 3.763122839316518*^9, {
   3.9244687719727097`*^9, 3.924468791268977*^9}, 3.924471377073598*^9, 
   3.9245057823697867`*^9, 3.924505977350512*^9, 3.9245066145655727`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"c1dce09a-180c-491e-8595-cf8fc2602a68"]
}, Open  ]],

Cell["\<\
It\[CloseCurlyQuote]s even nastier because the intermediate variances are not \
valid. They do not refer to the \[OpenCurlyDoubleQuote]mean-so-far\
\[CloseCurlyDoubleQuote]\[LongDash]the incremental running mean, but to the \
final mean.\
\>", "Text",
 CellChangeTimes->{{3.7032585213756847`*^9, 3.703258550420412*^9}, 
   3.7628613332304597`*^9, {3.924424958500187*^9, 
   3.9244250267541037`*^9}},ExpressionUUID->"0c52136b-d218-40cb-8105-\
1b667af864f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["School Variance (meets requirements)", "Subsection",
 CellChangeTimes->{{3.670533688721724*^9, 3.670533692209456*^9}, {
   3.670533849344036*^9, 3.670533850096394*^9}, 3.67053480141547*^9, {
   3.762861488018307*^9, 
   3.7628614922933884`*^9}},ExpressionUUID->"0adf919e-896d-456b-acd1-\
62acf4cc0549"],

Cell[TextData[{
 "The following is much better, exploiting the \[OpenCurlyDoubleQuote]school \
formula,\[CloseCurlyDoubleQuote] proved by expanding the square. Letting ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     OverscriptBox["z", "_"], "n"], "=", "x"}], TraditionalForm]],
  ExpressionUUID->"94d392ea-fbdf-42ba-be96-dfdb54648cff"],
 ", incremental running mean, the following yields the sum of squared \
residuals, ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 ":"
}], "Text",
 CellChangeTimes->{{3.670432227885901*^9, 3.670432241591203*^9}, {
  3.670432290397142*^9, 3.670432347981297*^9}, {3.670432678931017*^9, 
  3.670432685303421*^9}, {3.670533861267909*^9, 3.670533862540182*^9}, {
  3.703247773192071*^9, 3.703247785157768*^9}, {3.703255853882349*^9, 
  3.70325586014079*^9}, {3.703255904510639*^9, 3.703255933394547*^9}, {
  3.703257637041223*^9, 3.703257658689611*^9}, {3.703257932953787*^9, 
  3.703257941493486*^9}, {3.703258557851933*^9, 3.703258575426954*^9}, {
  3.762861352716004*^9, 3.762861367375374*^9}, {3.924469557858779*^9, 
  3.924469562269333*^9}},ExpressionUUID->"83d5a2eb-fe27-4398-989d-\
0be745fe91de"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["z", "i"], "-", 
       SubscriptBox[
        OverscriptBox["z", "_"], "n"]}], ")"}], "2"]}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "1"}], "n"], 
      SuperscriptBox[
       SubscriptBox["z", "i"], "2"]}], ")"}], "-", 
    RowBox[{"n", " ", 
     SubsuperscriptBox[
      OverscriptBox["z", "_"], "n", "2"]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.670432254728228*^9, 3.67043228370716*^9}, {
  3.670432355081032*^9, 3.670432415188937*^9}, {3.703247963422719*^9, 
  3.703247963423513*^9}, {3.7032489180287313`*^9, 3.703248945467861*^9}, {
  3.703255866072954*^9, 3.703255880190691*^9}, {3.703256998696159*^9, 
  3.703257014325086*^9}, {3.762861397341242*^9, 
  3.762861404308044*^9}},ExpressionUUID->"e9be28c6-663f-4ef4-8cc7-\
0c656b72886e"],

Cell[TextData[{
 "This is very nice because we can maintain ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    SuperscriptBox[
     SubscriptBox["z", "i"], "2"]}], TraditionalForm]],
  CellChangeTimes->{{3.670432254728228*^9, 3.67043228370716*^9}, {
   3.670432355081032*^9, 3.670432415188937*^9}, {3.703247963422719*^9, 
   3.703247963423513*^9}, {3.7032489180287313`*^9, 3.703248945467861*^9}, {
   3.703255866072954*^9, 3.703255880190691*^9}, {3.703256998696159*^9, 
   3.703257014325086*^9}, {3.762861397341242*^9, 3.762861404308044*^9}},
  ExpressionUUID->"38a49124-c03f-4fef-a21b-32ae62148721"],
 " incrementally, just as we maintain the running sum, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    SubscriptBox["z", "i"]}], TraditionalForm]],
  CellChangeTimes->{{3.670432254728228*^9, 3.67043228370716*^9}, {
   3.670432355081032*^9, 3.670432415188937*^9}, {3.703247963422719*^9, 
   3.703247963423513*^9}, {3.7032489180287313`*^9, 3.703248945467861*^9}, {
   3.703255866072954*^9, 3.703255880190691*^9}, {3.703256998696159*^9, 
   3.703257014325086*^9}, {3.762861397341242*^9, 3.762861404308044*^9}},
  ExpressionUUID->"9585012a-44f0-462b-86ea-6902043d26e0"],
 ", one observation at a time."
}], "Text",
 CellChangeTimes->{{3.703257950540134*^9, 3.703257993897814*^9}, {
  3.7032580295153937`*^9, 3.703258038946787*^9}, {3.703259973785103*^9, 
  3.703259988430207*^9}, {3.762861417624413*^9, 3.762861444761861*^9}, {
  3.924425061298027*^9, 
  3.924425153584734*^9}},ExpressionUUID->"0e2a5f20-8ef6-4f23-a9d1-\
b00705d54f40"],

Cell[TextData[{
 "The Variance is ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 " divided by ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "-", "1"}], TraditionalForm]],ExpressionUUID->
  "42431ed0-4c4a-4708-abad-7374a4556690"],
 " when ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", ">", "1"}], TraditionalForm]],ExpressionUUID->
  "02e40954-e60f-4e77-96cc-0158bec3d0b0"],
 ". When ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "=", "1"}], TraditionalForm]],ExpressionUUID->
  "6d5dd8fd-1fed-4634-9188-9b0eb1585681"],
 ", variance must be zero because there is no dispersion when there is only \
one datum. Concatenate the variance and ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 " to the circulating state, and write:"
}], "Text",
 CellChangeTimes->{{3.703257950540134*^9, 3.703257993897814*^9}, {
  3.7032580295153937`*^9, 3.703258038946787*^9}, {3.703259973785103*^9, 
  3.703259988430207*^9}, {3.762861417624413*^9, 3.762861444761861*^9}, {
  3.924425061298027*^9, 3.924425150626999*^9}, {3.924425205139999*^9, 
  3.9244252382331944`*^9}, {3.924469582171608*^9, 
  3.924469616243754*^9}},ExpressionUUID->"aa70dd44-9926-458a-999b-\
dd8f6117cd76"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "cume", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cume", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"var_", ",", "ssq_", ",", "x_", ",", "n_"}], "}"}], ",", "z_"}],
     "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n2", "=", 
       RowBox[{"n", "+", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"K", "=", 
         FractionBox["1", "n2"]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"With", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x2", "=", 
            RowBox[{"x", "+", 
             RowBox[{"K", 
              RowBox[{"(", 
               RowBox[{"z", "-", "x"}], ")"}]}]}]}], ",", 
           RowBox[{"ssq2", "=", 
            RowBox[{"ssq", "+", 
             SuperscriptBox["z", "2"]}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           FractionBox[
            RowBox[{"ssq2", "-", 
             RowBox[{"n2", " ", 
              SuperscriptBox["x2", "2"]}]}], 
            RowBox[{"Max", "[", 
             RowBox[{"1", ",", "n"}], "]"}]], ",", "ssq2", ",", "x2", ",", 
           "n2"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"FoldList", "[", 
   RowBox[{"cume", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "zs"}], "]"}], "//",
   "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.670382489919759*^9, 3.670382534058661*^9}, {
   3.670382577545076*^9, 3.670382640262185*^9}, {3.670382703652711*^9, 
   3.67038278488776*^9}, {3.670382973817303*^9, 3.670382974121074*^9}, {
   3.670383075858438*^9, 3.670383158001606*^9}, {3.670383198432256*^9, 
   3.670383236222588*^9}, {3.6703838479204636`*^9, 3.670383860621056*^9}, {
   3.670432453710747*^9, 3.670432496718956*^9}, {3.670432693101701*^9, 
   3.670432693586093*^9}, {3.670432762210089*^9, 3.670432850199564*^9}, {
   3.670432885182404*^9, 3.670432892104916*^9}, 3.670515782835994*^9, {
   3.670516540139242*^9, 3.670516580671556*^9}, {3.670516621334449*^9, 
   3.670516770586341*^9}, {3.670517197143936*^9, 3.67051722066914*^9}, {
   3.670545188846354*^9, 3.670545216679405*^9}, {3.671494811438774*^9, 
   3.671494875746448*^9}, {3.703239222240838*^9, 3.703239239804476*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"89ec48f2-26c0-43d0-aad7-dfe5315f6fcd"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", "3025", "55", "1"},
     {"578", "10946", "72", "2"},
     {"2017", "31682", "96", "3"}
    },
    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.671494876614654*^9, 3.671551663445628*^9, 3.671563251381635*^9, 
   3.671587606137301*^9, 3.671654765094388*^9, 3.671663238989916*^9, 
   3.671665734334957*^9, 3.671666442459751*^9, 3.671887646571199*^9, 
   3.671939613443597*^9, 3.671974960285103*^9, 3.672154917767325*^9, 
   3.672221811636629*^9, 3.672306126935803*^9, 3.672308487598626*^9, 
   3.672311741281229*^9, 3.672311894125001*^9, 3.672476729004583*^9, 
   3.672833720846523*^9, 3.672911582189232*^9, 3.673548773681563*^9, 
   3.67647849524619*^9, 3.70319221158162*^9, {3.703239228993883*^9, 
   3.703239240700898*^9}, 3.703626685966742*^9, 3.762861446855614*^9, 
   3.763111067350829*^9, 3.763122848647409*^9, {3.924468771987973*^9, 
   3.924468791282085*^9}, 3.9244713770857058`*^9, 3.924505782388062*^9, 
   3.924505977365299*^9, 3.9245066145724*^9},
 CellLabel->
  "Out[30]//MatrixForm=",ExpressionUUID->"15449ad6-8404-49d1-9a27-\
6dbed0847990"]
}, Open  ]],

Cell[TextData[{
 "The variance computed this way is incremental and runs in constant memory, \
though it is ",
 StyleBox["not yet a recurrence, i.e., old value plus a correction",
  FontSlant->"Italic"],
 ". "
}], "Text",
 CellChangeTimes->{{3.670516801969545*^9, 3.670516846934268*^9}, {
   3.6705186676935873`*^9, 3.670518717333865*^9}, {3.67060406745968*^9, 
   3.670604088392252*^9}, {3.670604119723399*^9, 3.670604140512104*^9}, 
   3.6714948821610208`*^9, {3.703255946060004*^9, 3.703255966637253*^9}, {
   3.703256860329062*^9, 3.70325686516615*^9}, {3.703258585076127*^9, 
   3.703258681637361*^9}, {3.70325877404128*^9, 3.703258781350178*^9}, {
   3.7032599993114033`*^9, 3.703260060591762*^9}, 3.7628614999727764`*^9, {
   3.924425258327104*^9, 3.924425307307661*^9}, {3.924425538842473*^9, 
   3.924425586318364*^9}, {3.924469644772093*^9, 
   3.924469645090351*^9}},ExpressionUUID->"c722a1e7-285a-453b-a3dc-\
9fe1e8717f13"],

Cell[TextData[{
 "This school variance tracks three auxiliary quantities: the sum of squares ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 ", the running mean ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "ddd8a6d7-2b52-46bd-a55c-dafd5656e1c9"],
 ", and the count ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "2f97b20d-d0f4-441a-abc1-6162bd79d753"],
 ". Note, for the future, that ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 " grows quickly, inviting numerical issues. We\[CloseCurlyQuote]ll mitigate \
that shortly. "
}], "Text",
 CellChangeTimes->{{3.670516801969545*^9, 3.670516846934268*^9}, {
   3.6705186676935873`*^9, 3.670518717333865*^9}, {3.67060406745968*^9, 
   3.670604088392252*^9}, {3.670604119723399*^9, 3.670604140512104*^9}, 
   3.6714948821610208`*^9, {3.703255946060004*^9, 3.703255966637253*^9}, {
   3.703256860329062*^9, 3.70325686516615*^9}, {3.703258585076127*^9, 
   3.703258681637361*^9}, {3.70325877404128*^9, 3.703258781350178*^9}, {
   3.7032599993114033`*^9, 3.703260060591762*^9}, 3.7628614999727764`*^9, {
   3.924425258327104*^9, 3.924425307307661*^9}, {3.924425538842473*^9, 
   3.9244256190755177`*^9}, {3.92442570738233*^9, 3.924425740066646*^9}, {
   3.9244696363156652`*^9, 3.924469638555978*^9}, {3.924469669212617*^9, 
   3.9244696715360317`*^9}},ExpressionUUID->"2abe4711-7cf4-4141-8a78-\
e9c87639be62"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Recurrent Variance (meets requirements)", "Subsection",
 CellChangeTimes->{{3.670533745373838*^9, 3.670533756565403*^9}, {
   3.670533824744576*^9, 3.670533827414319*^9}, 3.6705348078591433`*^9, {
   3.762861549859419*^9, 
   3.762861555773288*^9}},ExpressionUUID->"3bfcb222-efcb-41e0-9b69-\
1cdcdcfa2494"],

Cell[TextData[{
 "Though it is incremental, the school variance isn\[CloseCurlyQuote]t a \
recurrence. A recurrence, in our preferred form, expresses the new variance \
as the old variance plus a correction, where the correction depends only on \
old values and the new datum ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "304e46ca-bf33-4a26-9144-ae0afdbc7e36"],
 ". Start with a recurrence for the sum of squared residuals, ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalSigma]", "n"], 
    OverscriptBox["=", "def"], 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["z", "i"], "-", 
        SubscriptBox[
         OverscriptBox["z", "_"], "n"]}], ")"}], "2"]}]}], TraditionalForm]],
  ExpressionUUID->"d07e0069-f6c4-4614-964e-3711b8a05fd7"],
 ": "
}], "Text",
 CellChangeTimes->{{3.67043291550655*^9, 3.670432995110392*^9}, {
   3.670433771943024*^9, 3.670433790635905*^9}, {3.67043397416785*^9, 
   3.67043397504826*^9}, {3.670434087766681*^9, 3.670434120365247*^9}, {
   3.6704343352171803`*^9, 3.670434514855549*^9}, {3.6704600851566477`*^9, 
   3.670460191039601*^9}, {3.670516863822475*^9, 3.670516910862967*^9}, {
   3.670517108709823*^9, 3.670517154741871*^9}, {3.67051736146911*^9, 
   3.670517393995127*^9}, {3.6705187671559353`*^9, 3.670518770577297*^9}, 
   3.6705337696910553`*^9, {3.670533837523154*^9, 3.670533842696903*^9}, {
   3.67053415821358*^9, 3.670534169996565*^9}, 3.670567647627448*^9, {
   3.670604149827219*^9, 3.670604224565207*^9}, {3.670634410120537*^9, 
   3.670634410528471*^9}, {3.703247810925572*^9, 3.703247835377643*^9}, {
   3.7032489621080627`*^9, 3.703248962795863*^9}, {3.703256944949575*^9, 
   3.703256945829395*^9}, {3.703258804095536*^9, 3.703258821013977*^9}, {
   3.703260069528384*^9, 3.703260078118099*^9}, {3.703260113529376*^9, 
   3.703260124992787*^9}, {3.762861565038251*^9, 3.7628616228404884`*^9}, {
   3.7631111083940883`*^9, 3.763111133436595*^9}, {3.924425342742263*^9, 
   3.924425361551675*^9}, {3.924425767929277*^9, 3.92442584100478*^9}, {
   3.92446970920459*^9, 
   3.924469712731675*^9}},ExpressionUUID->"8b5a20c5-c37f-4d45-b28f-\
43b422e49685"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"\[CapitalSigma]", "\[LeftArrow]", 
    RowBox[{"\[CapitalSigma]", "+", 
     RowBox[{
      FractionBox["n", 
       RowBox[{"n", "+", "1"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z", "-", 
         OverscriptBox["z", "_"]}], ")"}], "2"]}]}]}],
   Background->RGBColor[0.94, 0.88, 0.94]], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.670517405781371*^9, 3.670517464217311*^9}, {
  3.703247983166503*^9, 3.703247983167594*^9}, {3.703248975135707*^9, 
  3.703248976465536*^9}, {3.7032569258911457`*^9, 3.703256959008007*^9}, {
  3.703260133306723*^9, 3.703260140162448*^9}, {3.76311155759907*^9, 
  3.763111558036569*^9}},ExpressionUUID->"68802f55-c148-477a-a4c4-\
4ecea0d1f6d4"],

Cell[TextData[{
 "The form in Recurrence 4 is an abbreviation for the upcoming Equation 5. \
The abbreviation is precise under the rule that all accumulated quantities, \
namely ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["z", "_"], TraditionalForm]],ExpressionUUID->
  "985abaa1-aebc-4073-9911-332a2ba74e9e"],
 " and ",
 Cell[BoxData[
  FormBox["\[CapitalSigma]", TraditionalForm]],ExpressionUUID->
  "a5f12ebf-ac8d-4f75-864b-587cea57eb4a"],
 ", on the right of the recurrence arrow, are old\[LongDash]have implicit \
subscript ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],ExpressionUUID->
  "8f8c36e4-4dcc-4a7a-a0d8-7e6be88c3f0a"],
 "; only the datum ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],ExpressionUUID->
  "2ed4559b-461f-4d2d-ade5-79561b73771b"],
 " is new\[LongDash]with subscript ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "+", "1"}], TraditionalForm]],ExpressionUUID->
  "fcf6df44-9c7c-4c59-b19d-9f29c560f9cb"],
 ", on the right of the recurrence arrow."
}], "Text",
 CellChangeTimes->{{3.763111500427975*^9, 3.763111646694759*^9}, {
  3.763111748877591*^9, 3.763112225242215*^9}, {3.9244193621895847`*^9, 
  3.924419362206966*^9}, {3.924469730434011*^9, 
  3.924469737635951*^9}},ExpressionUUID->"2b13113c-f715-4d40-85c9-\
1f2762cc3589"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["\[CapitalSigma]", 
    RowBox[{"n", "+", "1"}]], "=", 
   RowBox[{
    SubscriptBox["\[CapitalSigma]", "n"], "+", 
    RowBox[{
     FractionBox["n", 
      RowBox[{"n", "+", "1"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["z", 
         RowBox[{"n", "+", "1"}]], "-", 
        SubscriptBox[
         OverscriptBox["z", "_"], "n"]}], ")"}], "2"]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.670517405781371*^9, 3.670517464217311*^9}, {
  3.703247983166503*^9, 3.703247983167594*^9}, {3.703248975135707*^9, 
  3.703248976465536*^9}, {3.7032569258911457`*^9, 3.703256959008007*^9}, {
  3.703260133306723*^9, 3.703260140162448*^9}, {3.763111467157321*^9, 
  3.763111488796993*^9}, {3.7631117355464296`*^9, 
  3.7631117371089153`*^9}},ExpressionUUID->"fab2cdc5-6b95-4d0a-945d-\
df9ebda856bf"],

Cell[CellGroupData[{

Cell["Symbolic Proof", "Subsubsection",
 CellChangeTimes->{{3.6797867605232778`*^9, 3.679786764594792*^9}, 
   3.6797929538131933`*^9, {3.9244698108071404`*^9, 
   3.924469812473878*^9}},ExpressionUUID->"daca55ae-a98d-43c1-ab6d-\
69a804d6c3e5"],

Cell[TextData[{
 "Here\[CloseCurlyQuote]s the old ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 " from the School formula:"
}], "Text",
 CellChangeTimes->{{3.6797885917014728`*^9, 3.67978860091299*^9}, {
  3.7032601868640213`*^9, 3.703260187288085*^9}, {3.9244352016673*^9, 
  3.9244352124253597`*^9}, {3.9244697645069237`*^9, 
  3.924469772714753*^9}},ExpressionUUID->"49b02f48-4a96-435f-808c-\
963130601fe6"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    SubscriptBox["S", "n"], "=", 
    RowBox[{
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "1"}], "n"], 
      SuperscriptBox[
       SubscriptBox["z", "i"], "2"]}], "-", 
     RowBox[{"n", 
      SubsuperscriptBox[
       OverscriptBox["z", "_"], "n", "2"], " "}]}]}],
   Background->RGBColor[1, 1, 0]], TraditionalForm]], "DisplayFormulaNumbered",\

 CellChangeTimes->{{3.679788327098647*^9, 3.679788362839613*^9}, {
  3.67978839697793*^9, 3.679788438123828*^9}, {3.679788472073133*^9, 
  3.679788507200264*^9}, {3.679788866413973*^9, 3.679788878543365*^9}, {
  3.679791140914711*^9, 3.679791140914854*^9}, {3.703247993775145*^9, 
  3.703247993776187*^9}, {3.703249033415771*^9, 3.703249033707776*^9}, {
  3.763111315290123*^9, 
  3.763111318073989*^9}},ExpressionUUID->"a6269b32-a4c7-4946-a0a4-\
07363206dca7"],

Cell[TextData[{
 "Here\[CloseCurlyQuote]s the new ",
 StyleBox["ssq",
  FontSlant->"Italic"],
 " via the same formula:"
}], "Text",
 CellChangeTimes->{{3.679788604008292*^9, 3.679788607456854*^9}, {
  3.703260196023636*^9, 3.703260200879109*^9}, {3.924435216427885*^9, 
  3.924435222248*^9}, {3.9244697782107687`*^9, 
  3.924469782240076*^9}},ExpressionUUID->"6e9c2161-dc5d-4a8d-88e4-\
f55e7f24acce"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    SubscriptBox["S", 
     RowBox[{"n", "+", "1"}]], "  ", "=", "  ", 
    RowBox[{
     StyleBox[
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i", "=", "1"}], 
        RowBox[{"n", "+", "1"}]], 
       SuperscriptBox[
        SubscriptBox["z", "i"], "2"]}],
      Background->RGBColor[1, 1, 0]], 
     StyleBox["-",
      Background->RGBColor[1, 1, 0]], 
     RowBox[{
      StyleBox[
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}],
       Background->RGBColor[1, 1, 0]], 
      SubsuperscriptBox[
       StyleBox[
        OverscriptBox["z", "_"],
        Background->RGBColor[1, 1, 0]], 
       RowBox[{"n", "+", "1"}], "2"]}]}]}],
   Background->RGBColor[1, 1, 0]], TraditionalForm]], "DisplayFormulaNumbered",\

 CellChangeTimes->{{3.679788327098647*^9, 3.679788362839613*^9}, {
  3.67978839697793*^9, 3.679788438123828*^9}, {3.679788472073133*^9, 
  3.679788507200264*^9}, {3.679788547360846*^9, 3.6797885749839783`*^9}, {
  3.679788625570135*^9, 3.679788625570238*^9}, {3.679788659630415*^9, 
  3.679788700706221*^9}, {3.679788796189332*^9, 3.6797888502532988`*^9}, {
  3.679788884266634*^9, 3.67978888891328*^9}, {3.679788934530222*^9, 
  3.6797890074012136`*^9}, {3.679790318680511*^9, 3.6797904381014013`*^9}, {
  3.6797904915438337`*^9, 3.67979049154399*^9}, {3.679791088938103*^9, 
  3.679791088938299*^9}, {3.703248001037558*^9, 3.703248001038694*^9}, {
  3.703249045721965*^9, 3.7032490460999336`*^9}, {3.7631113442727823`*^9, 
  3.763111353922832*^9}},ExpressionUUID->"02e0cb8b-fcdb-4aa7-85da-\
4f3e3c7d0f05"],

Cell[TextData[{
 "Let the sum of squares\[LongDash]not the sum of squared residual\[LongDash]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"s", "\[InvisibleSpace]", 
     SubsuperscriptBox["z", "n", "2"]}], "="}], TraditionalForm]],
  ExpressionUUID->"38e2cbe0-6682-484f-9f6c-4462ff4d4812"],
 " ",
 StyleBox["sz2[n]", "Input"],
 " be ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    SuperscriptBox[
     SubscriptBox["z", "i"], "2"]}], TraditionalForm]],
  CellChangeTimes->{{3.679788327098647*^9, 3.679788362839613*^9}, {
   3.67978839697793*^9, 3.679788438123828*^9}, {3.679788472073133*^9, 
   3.679788507200264*^9}, {3.679788866413973*^9, 3.679788878543365*^9}, {
   3.679791140914711*^9, 3.679791140914854*^9}, {3.703247993775145*^9, 
   3.703247993776187*^9}, {3.703249033415771*^9, 3.703249033707776*^9}},
  ExpressionUUID->"4b46fabf-c250-4fad-8015-616f5ffaa031"],
 ". Note that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox[
     StyleBox["sz",
      FontSlant->"Italic"], 
     RowBox[{"n", "+", "1"}], "2"], "=", 
    RowBox[{
     SubsuperscriptBox[
      StyleBox["sz",
       FontSlant->"Italic"], "n", "2"], "+", 
     SuperscriptBox["z", "2"]}]}], TraditionalForm]],ExpressionUUID->
  "dcd8317b-0312-4964-8c9b-510bdd4f843b"],
 ", and also that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}], 
     SubscriptBox[
      OverscriptBox["z", "_"], 
      RowBox[{"n", "+", "1"}]]}], "=", 
    RowBox[{
     RowBox[{"n", " ", 
      SubscriptBox[
       OverscriptBox["z", "_"], "n"]}], "+", "z"}]}], TraditionalForm]],
  CellChangeTimes->{{3.679788327098647*^9, 3.679788362839613*^9}, {
   3.67978839697793*^9, 3.679788438123828*^9}, {3.679788472073133*^9, 
   3.679788507200264*^9}, {3.679788547360846*^9, 3.6797885749839783`*^9}, {
   3.679788625570135*^9, 3.679788625570238*^9}, {3.679788659630415*^9, 
   3.679788700706221*^9}, {3.679788796189332*^9, 3.6797888502532988`*^9}, {
   3.679788884266634*^9, 3.67978888891328*^9}, {3.679788934530222*^9, 
   3.6797890074012136`*^9}, {3.679790318680511*^9, 3.6797904381014013`*^9}, {
   3.6797904915438337`*^9, 3.67979049154399*^9}, {3.679791088938103*^9, 
   3.679791088938299*^9}, {3.703248001037558*^9, 3.703248001038694*^9}, {
   3.703249045721965*^9, 3.7032490460999336`*^9}, {3.7631113442727823`*^9, 
   3.763111353922832*^9}},
  Background->None,ExpressionUUID->"65be200c-29fd-4774-b057-5939b32089c5"],
 ". Those obvious (but beautiful) equalities are enough to effect the proof."
}], "Text",
 CellChangeTimes->{{3.7032663763557878`*^9, 3.703266454361677*^9}, {
  3.703266827912699*^9, 3.703266859057962*^9}, {3.76311401999493*^9, 
  3.763114034039828*^9}, {3.924429800124276*^9, 3.9244298805655107`*^9}, {
  3.9244299891768103`*^9, 3.924430069294033*^9}, {3.924430111176429*^9, 
  3.9244302087100153`*^9}, {3.924430257071497*^9, 3.92443026182649*^9}, {
  3.9244698368924723`*^9, 3.924469837966216*^9}, {3.924469879241458*^9, 
  3.924469970572283*^9}},ExpressionUUID->"5e384edb-3f2d-4be5-b628-\
b53ea8866ccb"],

Cell["Transcribe Equation 6.", "Text",
 CellChangeTimes->{{3.9244302253347893`*^9, 3.924430240590302*^9}, {
  3.924430312291958*^9, 
  3.924430313463582*^9}},ExpressionUUID->"9439716b-cacf-4fd7-9838-\
bec89c35f5e7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", 
   RowBox[{"s", ",", "zb", ",", "zbar"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{"sz2", "[", "n", "]"}], "-", 
   RowBox[{"n", " ", 
    SuperscriptBox[
     RowBox[{"zbar", "[", "n", "]"}], "2"]}]}]}]}], "Input",
 CellChangeTimes->{{3.679791896830236*^9, 3.679791982927135*^9}, {
   3.679792054424214*^9, 3.679792209504294*^9}, {3.679792258720232*^9, 
   3.679792373213146*^9}, {3.679792408587886*^9, 3.679792408667464*^9}, {
   3.67979244724316*^9, 3.679792452961767*^9}, 3.679792576168*^9, {
   3.679792990999525*^9, 3.679793011793882*^9}, {3.6798199457895823`*^9, 
   3.67981995661798*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"37e172c3-0017-493e-a8f2-2d75b9164be8"],

Cell["Transcribe the \[OpenCurlyDoubleQuote]obvious equalities\
\[CloseCurlyDoubleQuote] above.", "Text",
 CellChangeTimes->{{3.9244302759030447`*^9, 
  3.924430297051936*^9}},ExpressionUUID->"435a2623-f18e-4479-8aa8-\
706cfd9eeca2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"rulez$", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"sz2", "[", 
        RowBox[{"1", "+", "n"}], "]"}], "-", 
       RowBox[{"sz2", "[", "n", "]"}]}], "\[Rule]", 
      SuperscriptBox["z", "2"]}], ",", 
     RowBox[{
      RowBox[{"zbar", "[", 
       RowBox[{"1", "+", "n"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{
        FractionBox["n", 
         RowBox[{"n", "+", "1"}]], " ", 
        RowBox[{"zbar", "[", "n", "]"}]}], "+", 
       FractionBox["z", 
        RowBox[{"n", "+", "1"}]]}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.679820010932551*^9, 3.679820013332707*^9}, {
   3.679820047137254*^9, 3.679820074408692*^9}, {3.679820417312467*^9, 
   3.679820450510427*^9}, {3.7032557283434377`*^9, 3.703255744646318*^9}, 
   3.703626698875414*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"a8d7fc8d-2ab2-4d1c-9484-6cf051855dd2"],

Cell[TextData[{
 "Note that the rules don\[CloseCurlyQuote]t do much to the definition of ",
 StyleBox["s[n]", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.9244303191691513`*^9, 
  3.9244303427570143`*^9}},ExpressionUUID->"83278c8f-6b94-4800-8e76-\
191a00179b8d"],

Cell["\<\
The rules instantly yield the correction terms in Recurrence 4 and Equation 5.\
\>", "Text",
 CellChangeTimes->{{3.9244303827422047`*^9, 3.92443042462649*^9}, {
  3.924430463026248*^9, 
  3.924430468262195*^9}},ExpressionUUID->"37266370-99eb-4566-abac-\
2b837504dc45"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"s", "[", 
     RowBox[{"n", "+", "1"}], "]"}], "-", 
    RowBox[{"s", "[", "n", "]"}]}], "//.", "rulez$"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.679792501674736*^9, 3.679792522762968*^9}, {
  3.679792631462207*^9, 3.679792736748521*^9}, {3.679792774831155*^9, 
  3.6797929091061287`*^9}, {3.679819960338203*^9, 3.679819964913546*^9}, {
  3.679820531306859*^9, 3.679820533981334*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[34]:=",ExpressionUUID->"c3dce4bf-be77-41d2-944b-1c083cec6eb2"],

Cell[BoxData[
 FractionBox[
  RowBox[{"n", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"z", "-", 
      RowBox[{"zbar", "[", "n", "]"}]}], ")"}], "2"]}], 
  RowBox[{"1", "+", "n"}]]], "Output",
 CellChangeTimes->{{3.67979250923872*^9, 3.679792523409123*^9}, 
   3.679792580395113*^9, 3.679792678810314*^9, {3.679792831500922*^9, 
   3.679792847744299*^9}, {3.679792890180379*^9, 3.67979291030616*^9}, 
   3.679793019462016*^9, 3.679819981897017*^9, 3.679820535800048*^9, 
   3.703239516400753*^9, 3.703252575371854*^9, 3.7628631945341187`*^9, 
   3.7628632338828773`*^9, 3.763112244795496*^9, {3.924468772015609*^9, 
   3.924468791376224*^9}, 3.924471377175564*^9, 3.924505782492864*^9, 
   3.9245059774318247`*^9, 3.924506614598349*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"Out[34]=",ExpressionUUID->"0ec27c08-0d57-4a2e-b058-f8ad0b79c1d3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Proof by Hand", "Subsubsection",
 CellChangeTimes->{{3.924469827316231*^9, 
  3.9244698308581667`*^9}},ExpressionUUID->"f8f781f3-700b-4933-95af-\
5e08d82b2fe6"],

Cell["Remember the \[OpenCurlyDoubleQuote]obvious equalities.\
\[CloseCurlyDoubleQuote]", "Text",
 CellChangeTimes->{{3.924470037799651*^9, 
  3.924470046624222*^9}},ExpressionUUID->"80694c0f-e416-40e6-b9fe-\
c25ac8e4524a"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"s", "\[InvisibleSpace]", 
    SubsuperscriptBox["z", 
     RowBox[{"n", "+", "1"}], "2"]}], "=", 
   RowBox[{
    RowBox[{"s", "\[InvisibleSpace]", 
     SubsuperscriptBox["z", "n", "2"]}], "+", 
    SuperscriptBox["z", "2"]}]}], 
  TraditionalForm]],ExpressionUUID->"358e4d32-52f4-473e-9edc-d37971c08a2c"]], \
"Text",
 CellChangeTimes->{{3.763113985207023*^9, 3.763114012670891*^9}, {
  3.763114066967048*^9, 3.7631141165513525`*^9}, {3.781872960777607*^9, 
  3.781872968073003*^9}},ExpressionUUID->"6380995e-036e-43dc-a1a6-\
c4a8e91904f7"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"n", "+", "1"}], ")"}], 
    SubscriptBox[
     OverscriptBox["z", "_"], 
     RowBox[{"n", "+", "1"}]]}], "=", 
   RowBox[{
    RowBox[{"n", 
     SubscriptBox[
      OverscriptBox["z", "_"], "n"]}], "+", "z"}]}], 
  TraditionalForm]],ExpressionUUID->"7a4dad9a-786d-4033-aeb8-eecc06d7ed28"]], \
"Text",
 CellChangeTimes->{{3.763114141888034*^9, 
  3.7631142315049953`*^9}},ExpressionUUID->"bbaad7f7-8e8f-41e6-bf60-\
a1b6f2e16c94"],

Cell[TextData[{
 "Expand out the definition of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],ExpressionUUID->
  "c6d2e5ca-b60d-4289-9e61-a7c6053e38fb"],
 " and employ the \[OpenCurlyDoubleQuote]obvious equalities\
\[CloseCurlyDoubleQuote]:"
}], "Text",
 CellChangeTimes->{{3.763123147522369*^9, 3.763123183076138*^9}, {
  3.9244703359810534`*^9, 3.9244703504099216`*^9}, {3.924470585457251*^9, 
  3.924470626635401*^9}},ExpressionUUID->"25c6d94b-fe0c-44a7-a3b2-\
7be7374ec629"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["S", 
    RowBox[{"n", "+", "1"}]], "=", 
   RowBox[{
    RowBox[{"[", 
     RowBox[{
      SubsuperscriptBox[
       StyleBox["sz",
        FontSlant->"Italic"], 
       RowBox[{"n", "+", "1"}], "2"], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}], 
       SubsuperscriptBox[
        OverscriptBox["z", "_"], 
        RowBox[{"n", "+", "1"}], "2"]}]}], "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"[", 
       RowBox[{
        SubsuperscriptBox[
         StyleBox["sz",
          FontSlant->"Italic"], "n", "2"], "+", 
        SuperscriptBox["z", "2"]}], "]"}], "-", 
      SuperscriptBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{"n", "+", "1"}]], "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}], 
         SubscriptBox[
          OverscriptBox["z", "_"], 
          RowBox[{"n", "+", "1"}]]}], "]"}], "2"]}], "    ", "=", "    ", 
     RowBox[{
      RowBox[{"[", 
       StyleBox[
        RowBox[{
         RowBox[{"s", "\[InvisibleSpace]", 
          SubsuperscriptBox["z", "n", "2"]}], "+", 
         SuperscriptBox["z", "2"]}],
        Background->RGBColor[0.94, 0.91, 0.88]], "]"}], 
      StyleBox["-",
       Background->RGBColor[1, 0.85, 0.85]], 
      StyleBox[
       SuperscriptBox[
        RowBox[{
         FractionBox["1", 
          RowBox[{"n", "+", "1"}]], "[", 
         RowBox[{
          RowBox[{"n", 
           SubscriptBox[
            OverscriptBox["z", "_"], "n"]}], "+", "z"}], "]"}], "2"],
       Background->RGBColor[1, 0.85, 0.85]]}]}]}]}], 
  TraditionalForm]],ExpressionUUID->"4a977baf-20ab-451c-ba05-769e96527e7c"]], \
"Text",
 CellChangeTimes->{{3.763114334836421*^9, 3.7631143658383684`*^9}, {
   3.76311440901218*^9, 3.7631144467955523`*^9}, {3.7631144778300242`*^9, 
   3.763114505102928*^9}, {3.763114540381096*^9, 3.763114634856821*^9}, {
   3.763114666210289*^9, 3.7631147053426266`*^9}, {3.7631229334914618`*^9, 
   3.76312293351746*^9}, {3.763123129285167*^9, 3.763123132641252*^9}, 
   3.7631237106856027`*^9, {3.781872989969617*^9, 3.781872997350142*^9}, {
   3.7818731642870283`*^9, 3.781873164734867*^9}, {3.924470196638412*^9, 
   3.92447020373906*^9}, {3.924470248711647*^9, 3.924470249300699*^9}, {
   3.924470401961361*^9, 
   3.924470565429038*^9}},ExpressionUUID->"6fb2f4eb-0224-4c33-8a88-\
e8e30a3d4300"],

Cell["Expand the second term:", "Text",
 CellChangeTimes->{{3.7631247888191204`*^9, 
  3.763124796609857*^9}},ExpressionUUID->"e5d7baaa-4f91-4dbb-a766-\
4852e8395756"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["S", 
    RowBox[{"n", "+", "1"}]], "=", 
   RowBox[{
    StyleBox[
     RowBox[{"s", "\[InvisibleSpace]", 
      SubsuperscriptBox["z", "n", "2"]}],
     Background->RGBColor[0.94, 0.91, 0.88]], 
    StyleBox["+",
     Background->RGBColor[0.94, 0.91, 0.88]], 
    StyleBox[
     SuperscriptBox["z", "2"],
     Background->RGBColor[0.94, 0.91, 0.88]], 
    StyleBox["-",
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     RowBox[{
      FractionBox[
       SuperscriptBox["n", "2"], 
       RowBox[{"n", "+", "1"}]], 
      SubsuperscriptBox[
       OverscriptBox["z", "_"], "n", "2"]}],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox["-",
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     RowBox[{
      FractionBox[
       RowBox[{"2", "n"}], 
       RowBox[{"n", "+", "1"}]], "z", " ", 
      SubscriptBox[
       OverscriptBox["z", "_"], "n"]}],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox["-",
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     RowBox[{
      FractionBox["1", 
       RowBox[{"n", "+", "1"}]], 
      SuperscriptBox["z", "2"]}],
     Background->RGBColor[1, 0.85, 0.85]]}]}], 
  TraditionalForm]],ExpressionUUID->"c89db98e-7f79-4afb-8b9b-3b36679f95d2"]], \
"Text",
 CellChangeTimes->{{3.763123345139453*^9, 3.763123443325126*^9}, {
  3.763123474661329*^9, 3.763123526513621*^9}, {3.763123569573279*^9, 
  3.7631236786527495`*^9}, {3.7631238721247883`*^9, 3.76312391153875*^9}, {
  3.763123968921979*^9, 3.763123980345375*^9}, {3.763124135531244*^9, 
  3.763124164421055*^9}, {3.7631242976417027`*^9, 3.763124313311834*^9}, {
  3.781873007219509*^9, 
  3.78187300770893*^9}},ExpressionUUID->"2fc63a22-c07d-4348-8e8d-\
f13d408eef57"],

Cell[TextData[{
 "Add and subtract a term to isolate the prior value of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "n"], TraditionalForm]],ExpressionUUID->
  "3e03572a-4556-434b-80ea-8cf478c0747d"],
 " and prepare other terms for cancelation:"
}], "Text",
 CellChangeTimes->{{3.763124861262204*^9, 
  3.763124921134224*^9}},ExpressionUUID->"1f130c7e-5fc5-4616-b694-\
30d5661a1d4b"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"=", 
   RowBox[{
    RowBox[{
     RowBox[{"[", 
      RowBox[{
       StyleBox[
        RowBox[{"s", "\[InvisibleSpace]", 
         SubsuperscriptBox["z", "n", "2"]}],
        Background->RGBColor[0.94, 0.91, 0.88]], 
       StyleBox["-",
        Background->RGBColor[0.88, 1, 0.88]], 
       StyleBox[
        RowBox[{"n", " ", 
         SubsuperscriptBox[
          OverscriptBox["z", "_"], "n", "2"]}],
        Background->RGBColor[0.88, 1, 0.88]]}], "]"}], 
     StyleBox[
      RowBox[{"+", "n"}],
      Background->RGBColor[0.88, 1, 0.88]], 
     StyleBox[
      FractionBox[
       RowBox[{"n", "+", "1"}], 
       RowBox[{"n", "+", "1"}]],
      Background->RGBColor[0.88, 1, 0.88]], 
     StyleBox[" ",
      Background->RGBColor[0.88, 1, 0.88]], 
     StyleBox[
      SubsuperscriptBox[
       OverscriptBox["z", "_"], "n", "2"],
      Background->RGBColor[0.88, 1, 0.88]]}], 
    StyleBox["+",
     Background->RGBColor[0.94, 0.91, 0.88]], 
    StyleBox[
     RowBox[{
      FractionBox[
       RowBox[{"n", "+", "1"}], 
       RowBox[{"n", "+", "1"}]], 
      SuperscriptBox["z", "2"]}],
     Background->RGBColor[0.94, 0.91, 0.88]], 
    StyleBox["-",
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     RowBox[{
      FractionBox[
       SuperscriptBox["n", "2"], 
       RowBox[{"n", "+", "1"}]], 
      SubsuperscriptBox[
       OverscriptBox["z", "_"], "n", "2"]}],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox["-",
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     RowBox[{
      FractionBox[
       RowBox[{"2", "n"}], 
       RowBox[{"n", "+", "1"}]], "z", " ", 
      SubscriptBox[
       OverscriptBox["z", "_"], "n"]}],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox["-",
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     RowBox[{
      FractionBox["1", 
       RowBox[{"n", "+", "1"}]], 
      SuperscriptBox["z", "2"]}],
     Background->RGBColor[1, 0.85, 0.85]]}]}], 
  TraditionalForm]],ExpressionUUID->"a6a7da79-7978-418d-8d47-d05bca84216a"]], \
"Text",
 CellChangeTimes->{{3.763123345139453*^9, 3.763123443325126*^9}, {
  3.763123474661329*^9, 3.763123526513621*^9}, {3.763123569573279*^9, 
  3.7631236786527495`*^9}, {3.7631238721247883`*^9, 3.76312391153875*^9}, {
  3.763123968921979*^9, 3.763123980345375*^9}, {3.763124135531244*^9, 
  3.763124164421055*^9}, {3.763124232028204*^9, 3.763124232028204*^9}, {
  3.7631243499518843`*^9, 3.763124349953882*^9}, {3.7631249878968*^9, 
  3.763124993819175*^9}, {3.781873022243321*^9, 
  3.781873022898469*^9}},ExpressionUUID->"513a66de-ff8f-47d2-b751-\
2287137c2fe1"],

Cell["Cancel terms and complete the square:", "Text",
 CellChangeTimes->{{3.763125043119157*^9, 
  3.76312505515884*^9}},ExpressionUUID->"0ed8e9b1-cd0f-46ec-8d0f-\
334a7801524b"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"=", 
   RowBox[{
    RowBox[{
     RowBox[{"[", 
      RowBox[{
       StyleBox[
        RowBox[{"s", "\[InvisibleSpace]", 
         SubsuperscriptBox["z", "n", "2"]}],
        Background->RGBColor[0.94, 0.91, 0.88]], 
       StyleBox["-",
        Background->RGBColor[0.88, 1, 0.88]], 
       StyleBox[
        RowBox[{"n", " ", 
         SubsuperscriptBox[
          OverscriptBox["z", "_"], "n", "2"]}],
        Background->RGBColor[0.88, 1, 0.88]]}], "]"}], 
     StyleBox[
      RowBox[{"+", 
       FractionBox["n", 
        RowBox[{"n", "+", "1"}]]}],
      Background->RGBColor[0.88, 1, 0.88]], 
     StyleBox[" ",
      Background->RGBColor[0.88, 1, 0.88]], 
     StyleBox[
      SubsuperscriptBox[
       OverscriptBox["z", "_"], "n", "2"],
      Background->RGBColor[0.88, 1, 0.88]]}], 
    StyleBox["-",
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     RowBox[{
      FractionBox[
       RowBox[{"2", "n"}], 
       RowBox[{"n", "+", "1"}]], "z", " ", 
      SubscriptBox[
       OverscriptBox["z", "_"], "n"]}],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox["+",
     Background->RGBColor[0.94, 0.91, 0.88]], 
    StyleBox[
     RowBox[{
      FractionBox["n", 
       RowBox[{"n", "+", "1"}]], 
      SuperscriptBox["z", "2"]}],
     Background->RGBColor[0.94, 0.91, 0.88]]}]}], 
  TraditionalForm]],ExpressionUUID->"53d19eab-8f65-4e91-9b45-9b85b34bfbf1"]], \
"Text",
 CellChangeTimes->{{3.763123345139453*^9, 3.763123443325126*^9}, {
  3.763123474661329*^9, 3.763123526513621*^9}, {3.763123569573279*^9, 
  3.7631236786527495`*^9}, {3.7631238721247883`*^9, 3.76312391153875*^9}, {
  3.763123968921979*^9, 3.763123980345375*^9}, {3.763124135531244*^9, 
  3.763124164421055*^9}, {3.7631242112640057`*^9, 3.7631242112640057`*^9}, {
  3.763124376125082*^9, 3.76312455296728*^9}, {3.781873033040261*^9, 
  3.781873033446867*^9}},ExpressionUUID->"2334c98f-30e9-4c2f-841e-\
8c6c9f1f1c3e"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["S", 
    RowBox[{"n", "+", "1"}]], "=", 
   RowBox[{
    SubscriptBox["S", "n"], "+", 
    RowBox[{
     FractionBox["n", 
      RowBox[{"n", "+", "1"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"z", "-", 
        StyleBox[" ",
         Background->RGBColor[0.88, 1, 0.88]], 
        SubscriptBox[
         OverscriptBox["z", "_"], "n"]}], ")"}], "2"]}]}]}], 
  TraditionalForm]],ExpressionUUID->"2d0464ef-1dc5-4348-9736-19c80dcc9079"]], \
"Text",
 CellChangeTimes->{{3.763123345139453*^9, 3.763123443325126*^9}, {
  3.763123474661329*^9, 3.763123526513621*^9}, {3.763123569573279*^9, 
  3.7631236786527495`*^9}, {3.7631238721247883`*^9, 3.76312391153875*^9}, {
  3.763123968921979*^9, 3.763123980345375*^9}, {3.763124135531244*^9, 
  3.763124164421055*^9}, {3.7631242112640057`*^9, 3.7631242112640057`*^9}, {
  3.763124376125082*^9, 3.76312455296728*^9}, {3.76312459606501*^9, 
  3.763124625471106*^9}, {3.763124742412413*^9, 3.763124756716241*^9}, {
  3.7631251498983073`*^9, 3.763125155485047*^9}},
 Background->None,ExpressionUUID->"adc296a9-fde3-4ea0-91ef-fce9b3f25145"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Equivalence to Welford\[CloseCurlyQuote]s", "Subsubsection",
 CellChangeTimes->{{3.679819889056885*^9, 
  3.6798199065512047`*^9}},ExpressionUUID->"be7a33e0-fa04-474d-a79b-\
668bbc427037"],

Cell[TextData[{
 ButtonBox["Welford",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://en.wikipedia.org/wiki/Algorithms_for_calculating_variance#\
Welford's_online_algorithm"], None},
  ButtonNote->
   "https://en.wikipedia.org/wiki/Algorithms_for_calculating_variance#Welford'\
s_online_algorithm"],
 "\[CloseCurlyQuote]s famous recurrence is"
}], "Text",
 CellChangeTimes->{{3.703248679384296*^9, 3.703248686006464*^9}, {
  3.703261214541429*^9, 3.703261216213589*^9}, {3.9244306465480833`*^9, 
  3.924430646548684*^9}},ExpressionUUID->"873b3478-7aa0-46cf-91ab-\
092c676b0ff1"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[CapitalSigma]", "\[LeftArrow]", 
   RowBox[{"\[CapitalSigma]", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"z", "-", 
       SubscriptBox[
        OverscriptBox["z", "_"], "n"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{"z", "-", 
       SubscriptBox[
        OverscriptBox["z", "_"], 
        RowBox[{"n", "+", "1"}]]}], ")"}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.703248694236859*^9, 3.703248755937058*^9}, {
  3.703248786574478*^9, 3.703248815912775*^9}, {3.703249061649577*^9, 
  3.703249088141971*^9}, {3.7032492040301747`*^9, 
  3.703249206716915*^9}},ExpressionUUID->"b4af6a17-c493-44be-a185-\
a82f7d41ca39"],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["z", "_"], "n"], TraditionalForm]],ExpressionUUID->
  "64b6af54-4db7-4ee4-99b2-3a626fce6451"],
 " is the last estimate of the mean and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["z", "_"], 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],ExpressionUUID->
  "c216b471-c9a6-4f35-bbf8-f1fc48cadce2"],
 " is the new or current estimate. The correction term on the right of \
Recurrence 8 is exactly equal to the correction term on the right of \
recurrence 4."
}], "Text",
 CellChangeTimes->{{3.703249214136506*^9, 3.703249263143998*^9}, {
  3.703260271933585*^9, 3.703260329962249*^9}, {3.703260368983484*^9, 
  3.703260403587077*^9}, {3.703260445552938*^9, 3.703260459279965*^9}, {
  3.703261220525724*^9, 3.703261260747072*^9}, {3.703267259307373*^9, 
  3.70326726001997*^9}, {3.9244308649379168`*^9, 
  3.924430869361432*^9}},ExpressionUUID->"83a599be-4e98-4ff9-abf5-\
f33789387a26"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"z", "-", 
    RowBox[{"zbar", "[", "n", "]"}]}], ")"}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "-", 
      RowBox[{"zbar", "[", 
       RowBox[{"n", "+", "1"}], "]"}]}], "//.", "rulez$"}], "//", 
    "FullSimplify"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.679820630305886*^9, 3.679820656654593*^9}, {
  3.6798206907289343`*^9, 3.679820702611136*^9}, {3.7032403367252903`*^9, 
  3.703240342073398*^9}, {3.703261553574235*^9, 3.703261554138556*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"In[35]:=",ExpressionUUID->"57866af4-9d78-450b-a645-9d64fea0325f"],

Cell[BoxData[
 FractionBox[
  RowBox[{"n", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"z", "-", 
      RowBox[{"zbar", "[", "n", "]"}]}], ")"}], "2"]}], 
  RowBox[{"1", "+", "n"}]]], "Output",
 CellChangeTimes->{{3.679820693550693*^9, 3.679820703295051*^9}, 
   3.703239535511255*^9, 3.703240286347039*^9, 3.703240343162298*^9, {
   3.703252599173661*^9, 3.703252616734766*^9}, 3.703261554458452*^9, 
   3.763112268785684*^9, {3.924468772020052*^9, 3.924468791381421*^9}, 
   3.924471377181319*^9, 3.92450578250806*^9, 3.924505977436349*^9, 
   3.9245066146043243`*^9},
 Background->RGBColor[1, 1, 0.85],
 CellLabel->"Out[35]=",ExpressionUUID->"7c1c5079-a25a-488d-9d39-030b1d6e2cd3"]
}, Open  ]],

Cell["\<\
We won\[CloseCurlyQuote]t write out the algebraic manipulations, but it\
\[CloseCurlyQuote]s good practice.\
\>", "Text",
 CellChangeTimes->{{3.7631251124728947`*^9, 
  3.7631251351995683`*^9}},ExpressionUUID->"7c3ad3d8-617f-47a5-9422-\
866e07720359"],

Cell[TextData[{
 ButtonBox["Welford",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://en.wikipedia.org/wiki/Algorithms_for_calculating_variance#\
Welford's_online_algorithm"], None},
  ButtonNote->
   "https://en.wikipedia.org/wiki/Algorithms_for_calculating_variance#Welford'\
s_online_algorithm"],
 "'s is easier to memorize than is Recurrence 4, but its right-hand side \
depends on both the old mean ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["z", "_"], "n"], TraditionalForm]],ExpressionUUID->
  "6377794f-7df3-4258-abca-e19b892f348e"],
 " and the new mean ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["z", "_"], 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],ExpressionUUID->
  "d4b9d992-93d5-404d-9e5a-268e612038e1"],
 ", whereas we always want right-hand sides that depend only on old values \
(except for new datum ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],ExpressionUUID->
  "74a369e4-15b3-4546-a069-5d9b554c4e12"],
 ") because such right-hand sides require fewer intermediate variables. \
Notice the following, using Welford\[CloseCurlyQuote]s, has three levels of \
",
 StyleBox["With", "Input"],
 " because ",
 StyleBox["ssr2", "Input"],
 " depends on two means and we must precompute the new mean ",
 StyleBox["x2", "Input"],
 ":"
}], "Text",
 CellChangeTimes->{{3.670460951286241*^9, 3.6704609694539537`*^9}, {
  3.670461044796092*^9, 3.6704610622435217`*^9}, {3.670517663096448*^9, 
  3.670517880797407*^9}, {3.670519101008147*^9, 3.670519134392939*^9}, {
  3.670534449934505*^9, 3.670534458609086*^9}, {3.6705344969807253`*^9, 
  3.670534511696729*^9}, {3.670604344101742*^9, 3.670604379173748*^9}, {
  3.6706045008285317`*^9, 3.670604537625334*^9}, {3.703248531502921*^9, 
  3.703248540334791*^9}, {3.703249965772615*^9, 3.703249971008437*^9}, {
  3.703261271690031*^9, 3.703261310060121*^9}, {3.703261352367155*^9, 
  3.7032614230694103`*^9}, {3.703626894926373*^9, 3.7036269275964127`*^9}, {
  3.763112285638214*^9, 3.763112382394244*^9}, {3.9244308786176567`*^9, 
  3.924430926017494*^9}},ExpressionUUID->"595c69e1-17f9-4173-9a42-\
ffc79c33c408"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "cume", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cume", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"var_", ",", "x_", ",", "n_"}], "}"}], ",", "z_"}], "]"}], ":=",
    "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"K", "=", 
       FractionBox["1", 
        RowBox[{"n", "+", "1"}]]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x2", "=", 
         RowBox[{"x", "+", 
          RowBox[{"K", 
           RowBox[{"(", 
            RowBox[{"z", "-", "x"}], ")"}]}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"With", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"ssr2", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "-", "1"}], ")"}], "var"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"z", "-", "x"}], ")"}], 
             RowBox[{"(", 
              RowBox[{"z", "-", "x2"}], ")"}]}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["ssr2", 
            RowBox[{"Max", "[", 
             RowBox[{"1", ",", "n"}], "]"}]], ",", "x2", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FoldList", "[", 
   RowBox[{"cume", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "zs"}], "]"}], "//", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.670382489919759*^9, 3.670382534058661*^9}, {
   3.670382577545076*^9, 3.670382640262185*^9}, {3.670382703652711*^9, 
   3.67038278488776*^9}, {3.670382973817303*^9, 3.670382974121074*^9}, {
   3.670383075858438*^9, 3.670383158001606*^9}, {3.670383198432256*^9, 
   3.670383236222588*^9}, 3.670383442872865*^9, {3.670383632720133*^9, 
   3.670383652133376*^9}, {3.670383697975868*^9, 3.670383720509734*^9}, {
   3.670383879092746*^9, 3.670383992863698*^9}, {3.67039483824234*^9, 
   3.67039496251978*^9}, {3.670395013112584*^9, 3.670395020727168*^9}, {
   3.670395056702552*^9, 3.670395069764101*^9}, {3.670395116696306*^9, 
   3.670395130138947*^9}, {3.670397412952667*^9, 3.670397441701043*^9}, {
   3.670398494203236*^9, 3.670398511680945*^9}, {3.670433802787328*^9, 
   3.670433869265651*^9}, {3.670434055249444*^9, 3.67043406900145*^9}, {
   3.6704360152296658`*^9, 3.670436062051489*^9}, {3.670534302371998*^9, 
   3.670534318810552*^9}, {3.670534375204598*^9, 3.670534388908489*^9}, {
   3.671494930567708*^9, 3.671494939646875*^9}, {3.671494971628758*^9, 
   3.6714949797401943`*^9}, {3.703240404030974*^9, 3.703240408109436*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"b8a0701b-3107-4dd2-891d-348b806ba9ac"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0"},
     {"0", "55", "1"},
     {"578", "72", "2"},
     {"2017", "96", "3"}
    },
    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.670534320314945*^9, {3.670534382484077*^9, 3.67053439005846*^9}, 
   3.670534990851276*^9, 3.6705684019690723`*^9, 3.670636578095565*^9, 
   3.670775509840631*^9, 3.6708725219463*^9, 3.670956958508593*^9, 
   3.670974672952998*^9, 3.670979364684286*^9, 3.6710331347722397`*^9, 
   3.671033181741107*^9, 3.67103325948906*^9, 3.671039610807904*^9, 
   3.67104246187684*^9, 3.671044043344769*^9, 3.671065161743618*^9, 
   3.671083428405757*^9, 3.671208539564591*^9, 3.6712133614526453`*^9, 
   3.671217647370623*^9, 3.671218312345184*^9, 3.671380184209981*^9, 
   3.671467525090295*^9, 3.671494980868201*^9, 3.671551663550818*^9, 
   3.671563251548669*^9, 3.671587606236702*^9, 3.6716547651947813`*^9, 
   3.671663239088471*^9, 3.671665734452984*^9, 3.671666442560287*^9, 
   3.671887646701349*^9, 3.67193961357653*^9, 3.671974960418264*^9, 
   3.67215491786742*^9, 3.672221811737325*^9, 3.672306127035213*^9, 
   3.672308487715791*^9, 3.672311741380887*^9, 3.672311894224725*^9, 
   3.672476729104891*^9, 3.672833720916853*^9, 3.67291158229005*^9, 
   3.673548773793584*^9, 3.67647849534662*^9, 3.703240408810563*^9, {
   3.9244687720294538`*^9, 3.924468791391774*^9}, 3.924471377194911*^9, 
   3.924505782517969*^9, 3.924505977474185*^9, 3.9245066146099586`*^9},
 CellLabel->
  "Out[38]//MatrixForm=",ExpressionUUID->"8e0200bd-5744-4c0f-bbd4-\
0c1b9963d532"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Folding It", "Subsubsection",
 CellChangeTimes->{{3.679786846062709*^9, 
  3.679786849934614*^9}},ExpressionUUID->"b1bfc90a-7571-4e7e-888c-\
9ccce46d6bec"],

Cell[TextData[{
 "Recurrence 4 lets us get rid of one level of ",
 StyleBox["With", "Input"],
 ", one level of dependency:"
}], "Text",
 CellChangeTimes->{{3.670517473385745*^9, 3.670517504120408*^9}, {
  3.670518785122587*^9, 3.670518789001274*^9}, {3.670534182439993*^9, 
  3.670534226444575*^9}, {3.670568379067131*^9, 3.670568379498865*^9}, {
  3.670604274737224*^9, 3.670604309163397*^9}, {3.671494900933466*^9, 
  3.671494901373789*^9}, {3.70326042936263*^9, 3.703260436352994*^9}, {
  3.703261450142377*^9, 3.703261488923996*^9}, {3.70326157548839*^9, 
  3.703261582962878*^9}, {3.703626937894216*^9, 
  3.703626958476757*^9}},ExpressionUUID->"3c8e7b54-0ad7-48e2-8512-\
c0e68a4bec23"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "cume", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cume", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"var_", ",", "x_", ",", "n_"}], "}"}], ",", "z_"}], "]"}], ":=",
    "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"K", "=", 
       FractionBox["1", 
        RowBox[{"n", "+", "1"}]]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x2", "=", 
          RowBox[{"x", "+", 
           RowBox[{"K", 
            RowBox[{"(", 
             RowBox[{"z", "-", "x"}], ")"}]}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"ssr2", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], " ", "var"}], "+", 
           RowBox[{"K", " ", "n", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"z", "-", "x"}], ")"}], "2"]}]}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         FractionBox["ssr2", 
          RowBox[{"Max", "[", 
           RowBox[{"1", ",", "n"}], "]"}]], ",", "x2", ",", 
         RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FoldList", "[", 
   RowBox[{"cume", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "zs"}], "]"}], "//", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.670382489919759*^9, 3.670382534058661*^9}, {
   3.670382577545076*^9, 3.670382640262185*^9}, {3.670382703652711*^9, 
   3.67038278488776*^9}, {3.670382973817303*^9, 3.670382974121074*^9}, {
   3.670383075858438*^9, 3.670383158001606*^9}, {3.670383198432256*^9, 
   3.670383236222588*^9}, 3.670383442872865*^9, {3.670383632720133*^9, 
   3.670383652133376*^9}, {3.670383697975868*^9, 3.670383720509734*^9}, {
   3.670383879092746*^9, 3.670383992863698*^9}, {3.67039483824234*^9, 
   3.67039496251978*^9}, {3.670395013112584*^9, 3.670395020727168*^9}, {
   3.670395056702552*^9, 3.670395069764101*^9}, {3.670395116696306*^9, 
   3.670395130138947*^9}, {3.670397412952667*^9, 3.670397441701043*^9}, {
   3.670398494203236*^9, 3.670398511680945*^9}, {3.670433802787328*^9, 
   3.670433869265651*^9}, {3.670434055249444*^9, 3.67043406900145*^9}, {
   3.670461469979292*^9, 3.670461473886261*^9}, {3.670534032594378*^9, 
   3.670534070015553*^9}, {3.670636295973905*^9, 3.670636299492969*^9}, {
   3.6714949062703857`*^9, 3.671494916437475*^9}, {3.671494948502556*^9, 
   3.6714949530058727`*^9}, {3.703240367176049*^9, 3.703240371878964*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"c698ac3b-8ab5-4191-937c-caab0daaa5e7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0"},
     {"0", "55", "1"},
     {"578", "72", "2"},
     {"2017", "96", "3"}
    },
    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.670534045636565*^9, 3.670534070762206*^9}, 
   3.6705349907807817`*^9, 3.670568368870842*^9, 3.670635473396694*^9, 
   3.670636300948153*^9, 3.670775509790032*^9, 3.670872521892135*^9, 
   3.670956958458537*^9, 3.670974672906789*^9, 3.670979364634761*^9, 
   3.671033134719351*^9, 3.6710331816780376`*^9, 3.671033259436142*^9, 
   3.671039610743721*^9, 3.671042461826432*^9, 3.6710440432730913`*^9, 
   3.671065161680806*^9, 3.671083428323134*^9, 3.671208539519224*^9, 
   3.6712133614028473`*^9, 3.671217647304366*^9, 3.6712183122774878`*^9, 
   3.671380184160733*^9, 3.671467525028275*^9, 3.671494919876976*^9, 
   3.671494954177509*^9, 3.671551663495243*^9, 3.671563251465597*^9, 
   3.671587606186479*^9, 3.671654765147256*^9, 3.671663239039567*^9, 
   3.67166573438655*^9, 3.671666442509862*^9, 3.671887646638051*^9, 
   3.671939613509921*^9, 3.671974960351598*^9, 3.672154917817968*^9, 
   3.672221811685923*^9, 3.672306126985049*^9, 3.672308487651388*^9, 
   3.672311741331224*^9, 3.672311894174361*^9, 3.6724767290559587`*^9, 
   3.672833720881247*^9, 3.6729115822391376`*^9, 3.67354877374391*^9, 
   3.676478495295522*^9, 3.70324037293926*^9, {3.9244687720356894`*^9, 
   3.924468791397654*^9}, 3.924471377200258*^9, 3.924505782533264*^9, 
   3.924505977479196*^9, 3.924506614616473*^9},
 CellLabel->
  "Out[41]//MatrixForm=",ExpressionUUID->"6e4116de-80f8-4874-a4cb-\
979a6445df99"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Windowed Statistics", "Chapter",
 CellChangeTimes->{{3.703261632610522*^9, 3.703261635602497*^9}, {
  3.703417901137459*^9, 
  3.703417902885767*^9}},ExpressionUUID->"e75690a7-0bfc-46dd-86ec-\
e06e7d2311a2"],

Cell[TextData[{
 "Sometimes, we want the mean and variance of a limited amount of the past, \
say over a window of length ",
 Cell[BoxData[
  FormBox[
   RowBox[{"w", ">=", "0"}], TraditionalForm]],ExpressionUUID->
  "57c54962-9150-4496-aeef-62e589dd12d2"],
 ". "
}], "Text",
 CellChangeTimes->{{3.703261644395626*^9, 3.703261731354898*^9}, {
   3.7032652214817*^9, 3.703265223273786*^9}, {3.703266149820485*^9, 
   3.703266176603861*^9}, {3.703266948015806*^9, 3.7032669523760147`*^9}, {
   3.703267025361143*^9, 3.703267035230242*^9}, {3.703273181474181*^9, 
   3.7032731858983736`*^9}, 3.703343783440324*^9, {3.7033704399712687`*^9, 
   3.703370455203192*^9}, 3.703417963772582*^9, {3.703418012533387*^9, 
   3.703418016378963*^9}, {3.703626981280672*^9, 3.703626984678591*^9}, {
   3.706398453538974*^9, 3.706398455219461*^9}, {3.924505684001553*^9, 
   3.924505686569725*^9}},ExpressionUUID->"22913697-a433-46a9-9d8e-\
9e9fc05bebb3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"With", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"l", "=", 
           RowBox[{"i", "-", "w", "+", "1"}]}], "}"}], ",", 
         TagBox[GridBox[{
            {"\[Piecewise]", GridBox[{
               {
                RowBox[{"Item", "[", 
                 RowBox[{"j", ",", 
                  RowBox[{"Background", "\[Rule]", "LightBlue"}]}], "]"}], 
                RowBox[{"j", "<", "l"}]},
               {
                RowBox[{"Item", "[", 
                 RowBox[{"j", ",", 
                  RowBox[{"Background", "\[Rule]", "Yellow"}]}], "]"}], 
                RowBox[{"j", "\[LessEqual]", "i"}]},
               {"j", "True"}
              },
              AllowedDimensions->{2, Automatic},
              Editable->True,
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              
              GridBoxItemSize->{
               "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{1.}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.84]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}},
              Selectable->True]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{1.}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.35]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          "Piecewise",
          DeleteWithContents->True,
          Editable->False,
          SelectWithContents->True,
          Selectable->False]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"n", "+", "w"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", 
     RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "10"}], "}"}], ",", 
     RowBox[{"5", "+", 
      RowBox[{"Range", "[", "100", "]"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"w", ",", "3"}], "}"}], ",", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"n", "+", "1"}], "]"}], "-", "1"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.703419031205946*^9, 3.703419055628874*^9}, {
  3.703419091116158*^9, 3.703419177726516*^9}, {3.703419226249543*^9, 
  3.703419425413198*^9}, {3.703419513926243*^9, 3.703419518711793*^9}, {
  3.703419605677984*^9, 3.703419662334645*^9}, {3.703419719571199*^9, 
  3.7034197612021856`*^9}, {3.70341979377089*^9, 3.703419814889722*^9}, {
  3.703419847451044*^9, 3.703419849649909*^9}, {3.703419912169886*^9, 
  3.703419924377324*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"cea29968-3681-4832-9602-56e70f36e939"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 10, $CellContext`w$$ = 3, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 10}, {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
      17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
      35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 
      53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 
      71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 
      89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 
      105}, ControlType -> PopupMenu}, {{
       Hold[$CellContext`w$$], 3}, 
      Dynamic[Range[$CellContext`n$$ + 1] - 1], ControlType -> Automatic}}, 
    Typeset`size$$ = {190., {145.91754150390625`, 153.08245849609375`}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`n$$ = 10, $CellContext`w$$ = 3}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Grid[
        Table[
         With[{$CellContext`l = $CellContext`i - $CellContext`w$$ + 1}, 
          Piecewise[{{
             
             Item[$CellContext`j, Background -> 
              LightBlue], $CellContext`j < $CellContext`l}, {
             
             Item[$CellContext`j, Background -> 
              Yellow], $CellContext`j <= $CellContext`i}, {$CellContext`j, 
             True}}]], {$CellContext`i, $CellContext`n$$ + $CellContext`w$$}, \
{$CellContext`j, $CellContext`n$$}], Frame -> All], 
      "Specifications" :> {{{$CellContext`n$$, 10}, {6, 7, 8, 9, 10, 11, 12, 
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
         30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
         47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 
         64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 
         81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 
         98, 99, 100, 101, 102, 103, 104, 105}}, {{$CellContext`w$$, 3}, 
         Dynamic[Range[$CellContext`n$$ + 1] - 1], Appearance -> "Labeled"}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{356., {218., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.70341981708807*^9, 3.703419850278862*^9, 3.703419924718836*^9, 
   3.762863619698431*^9, {3.924468772099364*^9, 3.924468791436829*^9}, 
   3.924471377223678*^9, 3.924505782567081*^9, 3.924505977821703*^9, 
   3.924506614632332*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"50567890-0689-436e-b236-751c4c26886e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Foldable", "Section",
 CellChangeTimes->{{3.70350107452978*^9, 3.703501079464396*^9}, {
  3.924446415464238*^9, 
  3.924446430671472*^9}},ExpressionUUID->"cb27ec25-2e6a-425e-965f-\
471595d3e02a"],

Cell[TextData[{
 StyleBox["runningStatsFoldable", "Input"],
 " is a a foldable accumulator function that effects windowed statistics. Its \
circulating state carries extra information for pedagogy and convenience. It\
\[CloseCurlyQuote]s possible to make the interface much tighter. The \
derivation of its formulae are written in comments. The specific example data \
in this section are taken from other deployments of this code in C and \
Python. In the next section, we add some checks of the results against \
Mathematica\[CloseCurlyQuote]s built-ins."
}], "Text",
 CellChangeTimes->{{3.924470876314054*^9, 3.924470923220468*^9}, {
  3.9244709546405897`*^9, 3.924470955365794*^9}, {3.924471014450754*^9, 
  3.924471064034058*^9}, {3.9245054671654873`*^9, 3.924505483774029*^9}, {
  3.924505520740261*^9, 
  3.9245055951082582`*^9}},ExpressionUUID->"96404b1a-d4da-4278-9512-\
7346b0685ede"],

Cell[BoxData[
 RowBox[{
  RowBox[{"On", "[", "Assert", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.924434351185859*^9, 3.924434355259363*^9}, {
  3.92444486354739*^9, 3.924444870407768*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"d2dc2e8a-02c7-45d6-a6ed-dfdf6544235f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "runningStatsFoldable", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "u", ",", "j", ",", "mnp1", ",", "mjp1", ",", "mw", ",", "vnp1", ",", 
      "vjp1", ",", "vw", ",", "cbuf", ",", "zj"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       StyleBox["runningStatsFoldable",
        Background->RGBColor[1, 1, 0]], "[", "w_", "]"}], "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{"_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{"j", ",", " ", 
           RowBox[{
           "count", " ", "of", " ", "elements", " ", "left", " ", "of", " ", 
            "the", " ", "window"}], ",", " ", 
           RowBox[{"j", ">=", "0"}]}], " ", "*)"}], "\[IndentingNewLine]", 
         "n_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{
           "index", " ", "of", " ", "the", " ", "current", " ", "datum"}], 
           ";", " ", 
           RowBox[{"start", " ", "at", " ", "0"}]}], " ", "*)"}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", "_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{"u", ",", " ", 
           RowBox[{"elements", " ", "in", " ", "the", " ", "window"}], ",", 
           " ", 
           RowBox[{"0", "<=", "u", "<=", "w"}]}], " ", "*)"}], 
         "\[IndentingNewLine]", "_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{"z", ",", " ", 
           RowBox[{
           "new", " ", "datum", " ", "circulated", " ", "for", " ", 
            "convenience"}]}], " ", "*)"}], "\[IndentingNewLine]", "_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{
           SubscriptBox["z", "j"], ",", " ", 
           RowBox[{
           "datum", " ", "evicted", " ", "from", " ", "the", " ", 
            "window"}]}], " ", "*)"}], "\[IndentingNewLine]", 
         "\[IndentingNewLine]", "mn_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{"mean", " ", "of", " ", "all", " ", "data"}], " ", "*)"}], 
         "\[IndentingNewLine]", "mj_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{
          "mean", " ", "of", " ", "data", " ", "to", " ", "the", " ", "left", 
           " ", "of", " ", "the", " ", "window"}], " ", "*)"}], 
         "\[IndentingNewLine]", "_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{
          "mean", " ", "of", " ", "data", " ", "in", " ", "the", " ", 
           "window"}], " ", "*)"}], "\[IndentingNewLine]", 
         "\[IndentingNewLine]", "vn_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{"variance", " ", "of", " ", "all", " ", "data"}], " ", 
          "*)"}], "\[IndentingNewLine]", "vj_", ",", 
         RowBox[{"(*", " ", 
          RowBox[{
          "variance", " ", "of", " ", "data", " ", "to", " ", "the", " ", 
           "left", " ", "of", " ", "the", " ", "window"}], " ", "*)"}], 
         "\[IndentingNewLine]", "_"}], "}"}], ",", 
       RowBox[{"(*", " ", 
        RowBox[{
        "variance", " ", "of", " ", "data", " ", "in", " ", "the", " ", 
         "window"}], " ", "*)"}], "\[IndentingNewLine]", "z_"}], "]"}], ":=", 
     
     RowBox[{"(", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"cbuf", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", "w"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{
          "there", " ", "are", " ", "five", " ", "recurrent", " ", "inputs", 
           " ", "n"}], ",", " ", "mn", ",", " ", "mj", ",", " ", "vn", ",", 
          " ", "vj"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", "     ", 
         RowBox[{
         "and", " ", "two", " ", "actionable", " ", "outputs", " ", "mw", " ",
           "and", " ", "vw"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", "     ", 
         RowBox[{
          RowBox[{"in", " ", "the", " ", "circulating"}], "-", 
          RowBox[{"state", " ", 
           RowBox[{"vector", ".", " ", "The"}], " ", "rest", " ", "of", " ", 
           "the", " ", "items"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", "     ", 
         RowBox[{
         "are", " ", "auxilaries", " ", "for", " ", "verifying", " ", "and", 
          " ", 
          RowBox[{"debugging", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{
          "window", " ", "starts", " ", "overlapping", " ", "data", " ", "by",
            " ", "1", " ", "cell"}], ",", " ", 
          RowBox[{"then", " ", "by", " ", "2", " ", "cells"}]}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{
          "eventually", " ", "window", " ", "becomes", " ", "flush", " ", 
           "left"}], ",", " ", 
          RowBox[{"then", " ", "advances", " ", "into"}]}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"the", " ", "data"}], ",", " ", 
          RowBox[{
          "leaving", " ", "evicted", " ", "data", " ", "to", " ", "its", " ", 
           "left"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "datum", " ", "at", " ", "the", " ", "right", " ", "of", " ", "the", 
          " ", 
          RowBox[{"window", " ", "--"}], " ", "datum", " ", "to", " ", "be", 
          " ", "evicted"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"zj", "=", 
         RowBox[{
         "cbuf", "\[LeftDoubleBracket]", "w", "\[RightDoubleBracket]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "rotate", " ", "zj", " ", "to", " ", "the", " ", "left", " ", "of", 
          " ", "the", " ", "window"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"cbuf", "=", 
         RowBox[{"RotateRight", "[", 
          RowBox[{"cbuf", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"replace", " ", "zj", " ", "with", " ", "z"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
         "cbuf", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
         "z"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "window", " ", "starts", " ", "containing", " ", "one", " ", "datum",
           " ", "when", " ", "n", " ", "is", " ", "0"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"eventually", ",", " ", 
          RowBox[{
           RowBox[{"when", " ", "n", " ", "is", " ", "w"}], "-", "1"}], ",", 
          " ", 
          RowBox[{"window", " ", "is", " ", "flush", " ", "left"}]}], " ", 
         "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"j", " ", "=", " ", 
           RowBox[{
           "elements", " ", "to", " ", "left", " ", "of", " ", "window"}]}], 
          ",", " ", 
          RowBox[{"0", " ", "when", " ", "flush", " ", "left"}]}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", "     ", 
         RowBox[{"then", " ", ">", " ", 
          RowBox[{"0", " ", "thereafter", " ", "if", " ", "w"}], " ", "<", 
          " ", "N"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"j", "=", 
         RowBox[{"Max", "[", 
          RowBox[{"0", ",", 
           RowBox[{"n", "-", "w", "+", "1"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"u", " ", "=", " ", 
          RowBox[{
          "number", " ", "of", " ", "data", " ", "in", " ", "the", " ", 
           "window"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"starts", " ", "at", " ", "1"}], ",", " ", 
          RowBox[{"becomes", " ", "2"}], ",", " ", "...", ",", " ", "w"}], 
         " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "becomes", " ", "w", " ", "when", " ", "j", " ", "is", " ", "flush", 
          " ", "left", " ", "and", " ", "stays", " ", "w"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"u", "=", 
         RowBox[{"n", "-", "j", "+", "1"}]}], ";", " ", 
        RowBox[{"Assert", "[", 
         RowBox[{"u", "<=", "w"}], "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"mn", " ", "=", " ", 
          RowBox[{
          "prior", " ", "mean", " ", "of", " ", "all", " ", "data", " ", 
           "before", " ", 
           RowBox[{"z", " ", "--"}], " ", "recurrent", " ", "input"}]}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"mnp1", " ", "=", " ", 
          RowBox[{
          "posterior", " ", "mean", " ", "of", " ", "all", " ", "data", " ", 
           "including", " ", "z"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "this", " ", "is", " ", "our", " ", "normal", " ", "gain", " ", 
          "times", " ", "residual", " ", "calc"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"mnp1", "=", 
         RowBox[{"mn", "+", 
          FractionBox[
           RowBox[{"z", "-", "mn"}], 
           RowBox[{"n", "+", "1"}]]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"mj", " ", "=", " ", 
          RowBox[{
          "prior", " ", "mean", " ", "of", " ", "data", " ", "left", " ", 
           "of", " ", 
           RowBox[{"window", " ", "--"}], " ", "recurrent", " ", "input"}]}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"mjp1", " ", "=", " ", 
          RowBox[{
          "posterior", " ", "mean", " ", "of", " ", "data", " ", "left", " ", 
           "of", " ", "the", " ", "window"}]}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"mjp1", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"j", ">", "0"}], ",", 
           RowBox[{"mj", "+", 
            FractionBox[
             RowBox[{"zj", "-", "mj"}], "j"]}], ",", "0"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"mw", " ", "=", " ", 
          RowBox[{
          "posterior", " ", "mean", " ", "of", " ", "data", " ", "in", " ", 
           RowBox[{"window", " ", "--"}], " ", "output"}]}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"mw", "=", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "+", "1"}], ")"}], "mnp1"}], "-", 
           RowBox[{"j", " ", "mjp1"}]}], "u"]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"vn", " ", "=", " ", 
          RowBox[{"prior", " ", "variance", " ", "of", " ", "all", " ", 
           RowBox[{"data", " ", "--"}], " ", "recurrent", " ", "input"}]}], 
         " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "posterior", " ", "variance", " ", "of", " ", "all", " ", "data", 
          " ", "via", " ", "Recurrence", " ", "4"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"vnp1", "=", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "vn"}], "+", 
           RowBox[{
            FractionBox["n", 
             RowBox[{"n", "+", "1"}]], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"z", "-", "mn"}], ")"}], "2"]}]}], 
          RowBox[{"Max", "[", 
           RowBox[{"1", ",", "n"}], "]"}]]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"vj", " ", "=", " ", 
          RowBox[{
          "prior", " ", "variance", " ", "of", " ", "data", " ", "left", " ", 
           "of", " ", 
           RowBox[{"window", " ", "--"}], " ", "recurrent", " ", "input"}]}], 
         " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"vjp1", " ", "=", " ", 
          RowBox[{
          "posterior", " ", "variance", " ", "of", " ", "data", " ", "to", 
           " ", "left", " ", "of", " ", "window"}]}], " ", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "increase", " ", "by", " ", "scaled", " ", "residual", " ", "of", 
          " ", "the", " ", "evicted", " ", "datum", " ", "vj"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "will", " ", "be", " ", "zero", " ", "until", " ", "window", " ", 
          "moves", " ", "off", " ", "of", " ", "flush", " ", "left"}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{
          "so", " ", "it", " ", "is", " ", "safe", " ", "to", " ", "multiply",
            " ", "it", " ", "later", " ", "by", " ", "a", " ", "negative", 
           " ", "n"}], "-", "w"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"vjp1", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"j", ">", "1"}], ",", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"j", "-", "2"}], 
              RowBox[{"j", "-", "1"}]], "vj"}], "+", 
            RowBox[{
             FractionBox["1", "j"], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"zj", "-", "mj"}], ")"}], "2"]}]}], ",", "0"}], 
          "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"vw", " ", "=", " ", 
         RowBox[{
         "posterior", " ", "variance", " ", "of", " ", "data", " ", "in", " ", 
          RowBox[{"window", " ", "--"}], " ", "output"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "by", " ", "three", " ", "applications", " ", "of", " ", "the", " ", 
         "school", " ", "formula"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["n", "Bessel"], 
           SubscriptBox["v", 
            RowBox[{"n", "+", "1"}]]}], " ", "=", " ", 
          RowBox[{
           RowBox[{
            SubsuperscriptBox["\[Sum]", 
             RowBox[{"i", "=", "1"}], 
             RowBox[{"n", "+", "1"}]], 
            SuperscriptBox[
             RowBox[{"(", 
              SubscriptBox["z", "i"], ")"}], "2"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "+", "1"}], ")"}], 
            SubscriptBox[
             OverscriptBox["z", "_"], 
             RowBox[{"n", "+", "1"}]]}]}]}], " ", ";", " ", 
         RowBox[{"ditto", " ", "for", " ", "j"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "The", " ", "first", " ", "two", " ", "terms", " ", "in", " ", "the", 
         " ", "numerator", " ", "combine", " ", "to", " ", "equal"}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", "   ", 
        RowBox[{
        "the", " ", "sum", " ", "of", " ", "squared", " ", "data", " ", 
         RowBox[{"(", 
          RowBox[{"not", " ", "residuals"}], ")"}], " ", "in", " ", "the", 
         " ", "window"}], " ", "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "the", " ", "third", " ", "term", " ", "in", " ", "the", " ", 
         "numerator", " ", "is", " ", "the", " ", "school", " ", 
         "correction"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "for", " ", "the", " ", "window", " ", "TODO", " ", "make", " ", "it",
          " ", 
         RowBox[{"Welford", "'"}], "s", " ", "or", " ", "Recurrence", " ", 
         "4"}], " ", "*)"}], ";", "\[IndentingNewLine]", 
       RowBox[{"vw", "=", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"n", " ", "vnp1"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "+", "1"}], ")"}], 
             SuperscriptBox["mnp1", "2"]}]}], ")"}], "-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "-", "w"}], ")"}], "vjp1"}], "+", 
            RowBox[{"j", " ", 
             SuperscriptBox["mjp1", "2"]}]}], ")"}], "-", 
          RowBox[{"u", " ", 
           SuperscriptBox["mw", "2"], " "}]}], 
         RowBox[{"Max", "[", 
          RowBox[{"1", ",", 
           RowBox[{"u", "-", "1"}]}], "]"}]]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"RETURN", " ", "VALUE"}], " ", "*)"}], "\[IndentingNewLine]", 
       
       RowBox[{"{", 
        RowBox[{"j", ",", 
         RowBox[{"n", "+", "1"}], ",", "u", ",", "z", ",", "zj", ",", 
         "\[IndentingNewLine]", "mnp1", ",", "mjp1", ",", "mw", ",", 
         "\[IndentingNewLine]", "vnp1", ",", "vjp1", ",", "vw"}], 
        "\[IndentingNewLine]", "}"}]}], ")"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"data", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.857454", ",", "0.312454", ",", "0.705325", ",", "0.839363", ",", 
       "1.63781", ",", "0.699257", ",", 
       RowBox[{"-", "0.340016"}], ",", 
       RowBox[{"-", "0.213596"}], ",", 
       RowBox[{"-", "0.0418609"}], ",", "0.054705"}], "}"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Grid", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"FoldList", "[", 
        RowBox[{
         RowBox[{"runningStatsFoldable", "[", "3", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
           ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "data"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<j\>\"", ",", "\"\<n+1\>\"", ",", "\"\<u\>\"", ",", "\"\<z\>\"", 
         ",", "\"\<\!\(\*SubscriptBox[\(z\), \(j\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \('\)]\)\>\"", ",", 
         "\"\<\!\(\*SubsuperscriptBox[\(\[Mu]\), \(j\), \('\)]\)\>\"", ",", 
         "\"\<\!\(\*SubsuperscriptBox[\(\[Mu]\), \(w\), \('\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Upsilon]\), \('\)]\)\>\"", ",", 
         "\"\<\!\(\*SubsuperscriptBox[\(\[Upsilon]\), \(j\), \('\)]\)\>\"", 
         ",", "\"\<\!\(\*SubsuperscriptBox[\(\[Upsilon]\), \(w\), \
\('\)]\)\>\""}], "}"}]}], "]"}], ",", 
     RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.703268989518943*^9, 3.703269072972273*^9}, {
   3.703269113783742*^9, 3.703269280418568*^9}, {3.7032693197294617`*^9, 
   3.703269375792913*^9}, 3.703269413557863*^9, {3.703269479114767*^9, 
   3.703269513505948*^9}, {3.703269554032544*^9, 3.703269618565161*^9}, {
   3.703269732133188*^9, 3.703269808326968*^9}, {3.7032698383808613`*^9, 
   3.703269839957912*^9}, {3.703269887171967*^9, 3.703269887235511*^9}, {
   3.703269928444076*^9, 3.703270291924958*^9}, {3.703270387970851*^9, 
   3.703270424220262*^9}, {3.703270468549842*^9, 3.703270510421548*^9}, {
   3.703270770060587*^9, 3.703270771363405*^9}, {3.703367025389202*^9, 
   3.703367227566185*^9}, {3.703367265832691*^9, 3.703367294972416*^9}, {
   3.703367485983692*^9, 3.7033674862213182`*^9}, {3.7033675169549947`*^9, 
   3.703367524016887*^9}, {3.703367993403796*^9, 3.703368000564758*^9}, {
   3.703368035839067*^9, 3.703368080463689*^9}, {3.703368179492659*^9, 
   3.703368244138129*^9}, {3.703368310133686*^9, 3.7033683378994226`*^9}, {
   3.703368369188278*^9, 3.703368439108266*^9}, {3.703368480482131*^9, 
   3.703368504718116*^9}, {3.703368545223809*^9, 3.703368670008779*^9}, {
   3.703368708158806*^9, 3.703368727077767*^9}, {3.703368790616566*^9, 
   3.703368849906517*^9}, {3.703368885823337*^9, 3.703368889151445*^9}, {
   3.703368923774129*^9, 3.703368996609003*^9}, 3.703369084875177*^9, {
   3.703369121875032*^9, 3.703369164986643*^9}, {3.703369228841666*^9, 
   3.703369239783613*^9}, {3.7033692701294546`*^9, 3.70336928042331*^9}, {
   3.703369607684991*^9, 3.703369609538682*^9}, {3.70336964705497*^9, 
   3.703369648655195*^9}, 3.70336978398275*^9, {3.703369991802328*^9, 
   3.703370017684815*^9}, {3.703370290826145*^9, 3.703370304378044*^9}, {
   3.703370379699179*^9, 3.7033704049808893`*^9}, {3.70337054449664*^9, 
   3.703370622369968*^9}, {3.703370663605978*^9, 3.703370689325618*^9}, 
   3.703370719601869*^9, {3.7033707823306856`*^9, 3.703370836251935*^9}, {
   3.703370885780601*^9, 3.703370899558131*^9}, {3.703370948053884*^9, 
   3.703370989510171*^9}, 3.703371022523325*^9, {3.703371067453608*^9, 
   3.703371089358641*^9}, {3.703371130876107*^9, 3.703371136763305*^9}, {
   3.703371174655154*^9, 3.703371224667871*^9}, {3.7033712726696486`*^9, 
   3.703371281299325*^9}, {3.703371375366611*^9, 3.703371392009431*^9}, {
   3.703371457131094*^9, 3.703371478724214*^9}, {3.70337151540315*^9, 
   3.703371547782555*^9}, {3.703371598571331*^9, 3.70337174170553*^9}, {
   3.703371774717688*^9, 3.703371822484684*^9}, {3.703371877833632*^9, 
   3.703371977890503*^9}, {3.703372037819151*^9, 3.703372238907378*^9}, {
   3.703372279091089*^9, 3.703372281458484*^9}, {3.703372358023865*^9, 
   3.703372394517981*^9}, {3.703372507819048*^9, 3.703372518194002*^9}, {
   3.703372552894614*^9, 3.703372555773505*^9}, {3.703372595301606*^9, 
   3.703372618855631*^9}, {3.703374404036666*^9, 3.703374483212642*^9}, {
   3.703374558743729*^9, 3.703374583943239*^9}, {3.703374631620454*^9, 
   3.70337463180375*^9}, {3.7033747120761447`*^9, 3.703374948412717*^9}, {
   3.703375085208952*^9, 3.703375097455392*^9}, {3.703375242978793*^9, 
   3.703375307366617*^9}, {3.703375531762195*^9, 3.703375540247772*^9}, {
   3.7033755839322586`*^9, 3.703375625457878*^9}, {3.703375672745898*^9, 
   3.703375740021088*^9}, {3.703375791276002*^9, 3.703375791618574*^9}, {
   3.703375851469419*^9, 3.703375853659549*^9}, {3.703375959325323*^9, 
   3.703375960761125*^9}, {3.703375994559292*^9, 3.703375995215526*^9}, {
   3.703376039613257*^9, 3.70337609223081*^9}, {3.703376125945956*^9, 
   3.7033761275029197`*^9}, {3.703376193997048*^9, 3.70337621903168*^9}, {
   3.7033762854101357`*^9, 3.703376319026305*^9}, {3.703376379375229*^9, 
   3.703376436656343*^9}, {3.703376494695354*^9, 3.703376501604978*^9}, {
   3.703376636227668*^9, 3.70337663847777*^9}, {3.703376704066654*^9, 
   3.703376757620416*^9}, {3.7033768448480186`*^9, 3.703376908552975*^9}, 
   3.703376983383205*^9, {3.70337701419207*^9, 3.703377118816912*^9}, {
   3.703377179439653*^9, 3.703377185207201*^9}, {3.703377319478112*^9, 
   3.703377619793895*^9}, {3.703377716178257*^9, 3.703377725126466*^9}, 
   3.703377762473843*^9, {3.703377793532824*^9, 3.703377795026575*^9}, {
   3.703377836867445*^9, 3.70337788483208*^9}, {3.703377924150238*^9, 
   3.703377964713535*^9}, {3.703377996264894*^9, 3.703378009648555*^9}, {
   3.703378053850131*^9, 3.703378056913993*^9}, {3.703378093523732*^9, 
   3.703378100254966*^9}, {3.7033781394893*^9, 3.703378180437558*^9}, {
   3.7033782227871337`*^9, 3.703378334334917*^9}, {3.703378398702692*^9, 
   3.703378404120497*^9}, {3.703378456190261*^9, 3.703378572937104*^9}, {
   3.703378634575725*^9, 3.703378657992735*^9}, {3.703414625151804*^9, 
   3.703414641095087*^9}, {3.703414673141727*^9, 3.703414725427021*^9}, {
   3.703414784753312*^9, 3.703414812540324*^9}, {3.70341485696358*^9, 
   3.703414947737028*^9}, {3.703415024338512*^9, 3.703415057941841*^9}, {
   3.703415112439105*^9, 3.7034151272316647`*^9}, {3.703415172967216*^9, 
   3.703415221374508*^9}, {3.703415282624523*^9, 3.703415299874247*^9}, {
   3.703415352942999*^9, 3.703415382561297*^9}, {3.703415422695839*^9, 
   3.7034154308484287`*^9}, {3.703415633955695*^9, 3.703415673062589*^9}, {
   3.703415708707849*^9, 3.70341577867085*^9}, {3.703415842359622*^9, 
   3.703415856025148*^9}, {3.703416683628128*^9, 3.703416705765451*^9}, {
   3.703416737912208*^9, 3.7034167427140026`*^9}, {3.703416783338208*^9, 
   3.703416788902902*^9}, {3.7034168189943547`*^9, 3.7034169097736683`*^9}, {
   3.703417466982047*^9, 3.703417498014452*^9}, {3.703417533092534*^9, 
   3.703417624936292*^9}, {3.703417655812011*^9, 3.703417698473349*^9}, {
   3.703417738264192*^9, 3.703417763158667*^9}, {3.703500279927259*^9, 
   3.703500281206101*^9}, {3.703500807351095*^9, 3.703500833560404*^9}, {
   3.703500942318065*^9, 3.703500955571727*^9}, {3.703501028737548*^9, 
   3.703501029832074*^9}, {3.7035010852624617`*^9, 3.703501108395568*^9}, {
   3.703505395607588*^9, 3.703505407859939*^9}, {3.7035054928986483`*^9, 
   3.703505587966129*^9}, {3.706454714552134*^9, 3.70645493349917*^9}, {
   3.7064549829485397`*^9, 3.706455007416847*^9}, {3.706455063669949*^9, 
   3.706455084506521*^9}, {3.706455341101519*^9, 3.70645538252534*^9}, {
   3.706455509465259*^9, 3.706455549984294*^9}, 3.706455602690074*^9, {
   3.70645568970265*^9, 3.7064556928555307`*^9}, {3.706455793393874*^9, 
   3.706455799413702*^9}, {3.7064558824299994`*^9, 3.706455906422577*^9}, {
   3.706455953281451*^9, 3.706455976350249*^9}, {3.706456023393758*^9, 
   3.706456054880104*^9}, {3.706456495431777*^9, 3.706456552191613*^9}, {
   3.70645661236302*^9, 3.706456703757053*^9}, {3.70645677243827*^9, 
   3.706456789316438*^9}, {3.706456980273872*^9, 3.70645706195538*^9}, {
   3.706457097140554*^9, 3.7064571547216263`*^9}, {3.706457210307184*^9, 
   3.706457221219531*^9}, {3.706457338876856*^9, 3.706457543166503*^9}, {
   3.7064577292099457`*^9, 3.7064577532136307`*^9}, {3.7064577894977407`*^9, 
   3.706457826152216*^9}, {3.706457864296485*^9, 3.70645789038633*^9}, {
   3.706458003845818*^9, 3.706458057398777*^9}, {3.706458100530679*^9, 
   3.70645811301947*^9}, {3.706459967860987*^9, 3.7064600408382607`*^9}, 
   3.706460390789708*^9, {3.706460439629646*^9, 3.7064604474087048`*^9}, {
   3.706460651966311*^9, 3.706460652137044*^9}, {3.706460715275831*^9, 
   3.706460725878325*^9}, {3.70646079572961*^9, 3.706460804045722*^9}, {
   3.706460918368095*^9, 3.706460921391582*^9}, {3.706461006347452*^9, 
   3.706461088137019*^9}, {3.706461130408814*^9, 3.706461195388827*^9}, {
   3.7064612272536917`*^9, 3.706461269406797*^9}, 3.706461316630554*^9, {
   3.706461357283818*^9, 3.706461359508329*^9}, {3.706461473613313*^9, 
   3.706461511120335*^9}, {3.706461732448345*^9, 3.706461771699544*^9}, {
   3.706461999016508*^9, 3.706462033447167*^9}, {3.7064620956822977`*^9, 
   3.706462107274776*^9}, {3.706462145568462*^9, 3.706462199881575*^9}, {
   3.706462247646921*^9, 3.706462288691921*^9}, {3.706462320638024*^9, 
   3.706462356831675*^9}, {3.706462403894705*^9, 3.7064625514944687`*^9}, {
   3.7064626068107777`*^9, 3.70646274520708*^9}, {3.7064628796544237`*^9, 
   3.706462893423305*^9}, {3.706465823083292*^9, 3.706465971948313*^9}, {
   3.924432573038013*^9, 3.924432580709609*^9}, {3.924432645325984*^9, 
   3.924432649211247*^9}, {3.924432686121578*^9, 3.9244327486018476`*^9}, {
   3.92443290714542*^9, 3.924432987463757*^9}, {3.924433040321041*^9, 
   3.924433085443665*^9}, {3.924433723974867*^9, 3.924433734740303*^9}, {
   3.9244337660656576`*^9, 3.924433768521248*^9}, {3.924433806998293*^9, 
   3.9244338777024927`*^9}, {3.9244339264897747`*^9, 3.924433935378832*^9}, {
   3.9244339742039413`*^9, 3.924434045915132*^9}, 3.924434080650257*^9, {
   3.924434152544219*^9, 3.9244341952421517`*^9}, {3.9244342677646036`*^9, 
   3.924434697349007*^9}, {3.924434747033214*^9, 3.924434784558082*^9}, {
   3.924434826034654*^9, 3.924434846611188*^9}, {3.924434917366427*^9, 
   3.924434926541594*^9}, {3.924435158988188*^9, 3.924435164497471*^9}, {
   3.924435247056685*^9, 3.9244352870700006`*^9}, {3.924435319872167*^9, 
   3.924435489649687*^9}, {3.924435762566763*^9, 3.924435781909878*^9}, {
   3.924435925138901*^9, 3.924435944778841*^9}, {3.924436048616507*^9, 
   3.924436082917886*^9}, {3.924436208247856*^9, 3.924436227467081*^9}, {
   3.9244362593847313`*^9, 3.92443627990235*^9}, {3.924436509857863*^9, 
   3.924436573269271*^9}, {3.924436608383059*^9, 3.924436738962296*^9}, {
   3.924436833287335*^9, 3.9244368987348146`*^9}, {3.924437443860339*^9, 
   3.924437554714665*^9}, {3.924437602432571*^9, 3.924437638149735*^9}, {
   3.924437672577664*^9, 3.924437686466325*^9}, {3.9244377185463066`*^9, 
   3.924437776509026*^9}, {3.924437809737335*^9, 3.924437879365063*^9}, {
   3.92443792808292*^9, 3.924437950630563*^9}, {3.924438003265799*^9, 
   3.924438105924099*^9}, {3.92443813775471*^9, 3.924438186957801*^9}, {
   3.924438231088903*^9, 3.924438239763702*^9}, {3.924438274490381*^9, 
   3.924438278380267*^9}, {3.924438699678629*^9, 3.924438865179636*^9}, {
   3.924439605906596*^9, 3.92443960805256*^9}, {3.924440332371677*^9, 
   3.924440403327427*^9}, {3.924440827212436*^9, 3.924440850066682*^9}, {
   3.924440955661993*^9, 3.924440988687914*^9}, {3.924441095127961*^9, 
   3.924441122336938*^9}, {3.924441178692791*^9, 3.924441243567019*^9}, {
   3.924441274557086*^9, 3.924441381917369*^9}, {3.924441436956156*^9, 
   3.924441495812214*^9}, {3.924441600358828*^9, 3.924441604808217*^9}, {
   3.924444332587141*^9, 3.924444663282233*^9}, {3.924444847277856*^9, 
   3.924444962342778*^9}, {3.924444993387686*^9, 3.924445075813396*^9}, {
   3.92444518695714*^9, 3.924445203522962*^9}, {3.924445409037012*^9, 
   3.9244454319009933`*^9}, {3.9244455533264728`*^9, 3.924445568560031*^9}, {
   3.9244458387514544`*^9, 3.924446008643482*^9}, {3.924446576744911*^9, 
   3.9244467128798027`*^9}, {3.92444734862989*^9, 3.924447592840639*^9}, {
   3.92446582361522*^9, 3.924465836306845*^9}, {3.924467411114307*^9, 
   3.92446741868478*^9}, {3.924470961109577*^9, 3.9244709738940682`*^9}, {
   3.924471004780873*^9, 3.92447100972059*^9}, {3.9244711187792883`*^9, 
   3.924471157407505*^9}, {3.924471197311994*^9, 3.9244713342506104`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"bc80f12f-774d-488a-849d-a7b732e453e8"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"j\"\>", "\<\"n+1\"\>", "\<\"u\"\>", "\<\"z\"\>", \
"\<\"\\!\\(\\*SubscriptBox[\\(z\\), \\(j\\)]\\)\"\>", \
"\<\"\\!\\(\\*SuperscriptBox[\\(\[Mu]\\), \\('\\)]\\)\"\>", \
"\<\"\\!\\(\\*SubsuperscriptBox[\\(\[Mu]\\), \\(j\\), \\('\\)]\\)\"\>", "\<\"\
\\!\\(\\*SubsuperscriptBox[\\(\[Mu]\\), \\(w\\), \\('\\)]\\)\"\>", \
"\<\"\\!\\(\\*SuperscriptBox[\\(\[Upsilon]\\), \\('\\)]\\)\"\>", \
"\<\"\\!\\(\\*SubsuperscriptBox[\\(\[Upsilon]\\), \\(j\\), \\('\\)]\\)\"\>", \
"\<\"\\!\\(\\*SubsuperscriptBox[\\(\[Upsilon]\\), \\(w\\), \\('\\)]\\)\"\>"},
    {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"0", "1", "1", "0.857454`", "0", "0.857454`", "0", "0.857454`", "0.`", 
     "0", "0.`"},
    {"0", "2", "2", "0.312454`", "0", "0.584954`", "0", "0.584954`", 
     "0.14851250000000002`", "0", "0.14851250000000005`"},
    {"0", "3", "3", "0.705325`", "0", "0.6250776666666666`", "0", 
     "0.6250776666666666`", "0.07908597588033334`", "0", 
     "0.07908597588033339`"},
    {"1", "4", "3", "0.839363`", "0", "0.678649`", "0", "0.9048653333333332`",
      "0.06420353494066666`", "0", 
     RowBox[{"-", "0.2107376743896665`"}]},
    {"2", "5", "3", "1.63781`", "0", "0.8704812`", "0", "1.450802`", 
     "0.23215061598970002`", "0", 
     RowBox[{"-", "0.7985946339429999`"}]},
    {"3", "6", "3", "0.699257`", "0", "0.8419438333333333`", "0", 
     "1.6838876666666664`", "0.1906067805693667`", "0", 
     RowBox[{"-", "1.6500913040406657`"}]},
    {"4", "7", "3", 
     RowBox[{"-", "0.340016`"}], "0", "0.6730924285714286`", "0", "1.570549`",
      "0.35841456203828576`", "0", 
     RowBox[{"-", "1.0390055950859995`"}]},
    {"5", "8", "3", 
     RowBox[{"-", "0.213596`"}], "0", "0.562256375`", "0", 
     "1.4993503333333333`", "0.4054895279174107`", "0", 
     RowBox[{"-", "0.6883348604766661`"}]},
    {"6", "9", "3", 
     RowBox[{"-", "0.0418609`"}], "0", "0.49513223333333334`", "0", 
     "1.4853967`", "0.395354190478115`", "0", 
     RowBox[{"-", "0.624986594458429`"}]},
    {"7", "10", "3", "0.054705`", "0", "0.45108950999999997`", "0", 
     "1.5036317`", "0.37082356187782317`", "0", 
     RowBox[{"-", "0.7052476752569294`"}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.924471377381161*^9, 3.9245057827143183`*^9, 
  3.924505978352343*^9, 3.924506614813936*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"9b2f7877-7e33-41f9-a0b3-17d0cabd6d1f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Random Data, Checked", "Section",
 CellChangeTimes->{{3.7064539292082973`*^9, 3.7064539388285227`*^9}, {
  3.924447978187448*^9, 3.9244479803967667`*^9}, {3.9244673848972588`*^9, 
  3.924467390152698*^9}},ExpressionUUID->"26e7757c-ddc7-4f16-bb5f-\
885093bf3fb8"],

Cell["\<\
The solution does not work when the window size is zero, but is robust even \
in the nonsensical case of the window\[CloseCurlyQuote]s being longer than \
the data
.\
\>", "Text",
 CellChangeTimes->{{3.9244716103051977`*^9, 3.924471647023456*^9}, {
  3.924504912619968*^9, 3.924504940843831*^9}, {3.924505391749506*^9, 
  3.924505426897122*^9}, {3.924505727922738*^9, 
  3.9245057771757174`*^9}},ExpressionUUID->"da1816a0-ea99-4a3d-80b0-\
ebd3fddddacf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DynamicModule", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "u", ",", "j", ",", "mnp1", ",", "mjp1", ",", "mw", ",", "vnp1", ",", 
     "vjp1", ",", "vw", ",", "cbuf", ",", "zj", ",", "\[IndentingNewLine]", 
     RowBox[{"ndata", "=", "16"}], ",", 
     RowBox[{"w", "=", "6"}], ",", "data", ",", "cume"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"data", "=", 
     RowBox[{"N", "@", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "100"}], ",", "100"}], "}"}], ",", "ndata"}], 
       "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"cbuf", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", "w"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cume", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "_", ",", "n_", ",", "_", ",", "_", ",", "_", ",", "mn_", ",", "mj_", 
         ",", "_", ",", "vn_", ",", "vj_", ",", "_"}], "}"}], ",", "z_"}], 
      "]"}], ":=", 
     RowBox[{"(", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"zj", "=", 
        RowBox[{
        "cbuf", "\[LeftDoubleBracket]", "w", "\[RightDoubleBracket]"}]}], ";", 
       RowBox[{"cbuf", "=", 
        RowBox[{"RotateRight", "[", 
         RowBox[{"cbuf", ",", "1"}], "]"}]}], ";", 
       RowBox[{
        RowBox[{
        "cbuf", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
        "z"}], ";", "\[IndentingNewLine]", 
       RowBox[{"j", "=", 
        RowBox[{"Max", "[", 
         RowBox[{"0", ",", 
          RowBox[{"n", "-", "w", "+", "1"}]}], "]"}]}], ";", 
       RowBox[{"u", "=", 
        RowBox[{"n", "-", "j", "+", "1"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"mnp1", "=", 
        RowBox[{"mn", "+", 
         FractionBox[
          RowBox[{"z", "-", "mn"}], 
          RowBox[{"n", "+", "1"}]]}]}], ";", 
       RowBox[{"mjp1", "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"j", ">", "0"}], ",", 
          RowBox[{"mj", "+", 
           FractionBox[
            RowBox[{"zj", "-", "mj"}], "j"]}], ",", "0"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"mw", "=", 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "+", "1"}], ")"}], "mnp1"}], "-", 
          RowBox[{"j", " ", "mjp1"}]}], "u"]}], ";", "\[IndentingNewLine]", 
       RowBox[{"vnp1", "=", 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}], "vn"}], "+", 
          RowBox[{
           FractionBox["n", 
            RowBox[{"n", "+", "1"}]], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"z", "-", "mn"}], ")"}], "2"]}]}], 
         RowBox[{"Max", "[", 
          RowBox[{"1", ",", "n"}], "]"}]]}], ";", "\[IndentingNewLine]", 
       RowBox[{"vjp1", "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"j", ">", "1"}], ",", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{"j", "-", "2"}], 
             RowBox[{"j", "-", "1"}]], "vj"}], "+", 
           RowBox[{
            FractionBox["1", "j"], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"zj", "-", "mj"}], ")"}], "2"]}]}], ",", "0"}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"vw", "=", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"n", " ", "vnp1"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "+", "1"}], ")"}], 
             SuperscriptBox["mnp1", "2"]}]}], ")"}], "-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"j", " ", 
             SuperscriptBox["mjp1", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "-", "w"}], ")"}], "vjp1"}]}], ")"}], "-", 
          RowBox[{"u", " ", 
           SuperscriptBox["mw", "2"], " "}]}], 
         RowBox[{"Max", "[", 
          RowBox[{"1", ",", 
           RowBox[{"u", "-", "1"}]}], "]"}]]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Assert", "[", 
        RowBox[{"0", "===", 
         RowBox[{"Chop", "[", 
          RowBox[{"mjp1", "-", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"j", ">", "0"}], ",", 
             RowBox[{"Mean", "[", 
              RowBox[{"data", "\[LeftDoubleBracket]", 
               RowBox[{"1", ";;", "j"}], "\[RightDoubleBracket]"}], "]"}], 
             ",", "0"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"Assert", "[", 
        RowBox[{"0", "===", 
         RowBox[{"Chop", "[", 
          RowBox[{"mw", "-", 
           RowBox[{"Mean", "[", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{"j", "+", "1"}], ";;", 
              RowBox[{"n", "+", "1"}]}], "\[RightDoubleBracket]"}], "]"}]}], 
          "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Assert", "[", 
        RowBox[{"0", "===", 
         RowBox[{"Chop", "[", 
          RowBox[{"vjp1", "-", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"j", ">", "1"}], ",", 
             RowBox[{"Variance", "[", 
              RowBox[{"data", "\[LeftDoubleBracket]", 
               RowBox[{"1", ";;", "j"}], "\[RightDoubleBracket]"}], "]"}], 
             ",", "0"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"Assert", "[", 
        RowBox[{"0", "===", 
         RowBox[{"Chop", "[", 
          RowBox[{"vw", "-", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"u", ">", "1"}], ",", 
             RowBox[{"Variance", "[", 
              RowBox[{"data", "\[LeftDoubleBracket]", 
               RowBox[{
                RowBox[{"j", "+", "1"}], ";;", 
                RowBox[{"n", "+", "1"}]}], "\[RightDoubleBracket]"}], "]"}], 
             ",", "0"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"{", 
        RowBox[{"j", ",", 
         RowBox[{"n", "+", "1"}], ",", "u", ",", "z", ",", "zj", ",", 
         "\[IndentingNewLine]", "mnp1", ",", "mjp1", ",", "mw", ",", 
         "\[IndentingNewLine]", "vnp1", ",", "vjp1", ",", "vw"}], "}"}]}], 
      ")"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ndata", "=", "dataLen"}], ";", 
        RowBox[{"w", "=", "windowLen"}], ";", 
        RowBox[{"cbuf", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", "w"}], "]"}]}], ";", 
        RowBox[{"Grid", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{"FoldList", "[", 
             RowBox[{"cume", ",", 
              RowBox[{"{", 
               RowBox[{
               "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
                "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
              "data"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<j\>\"", ",", "\"\<n+1\>\"", ",", "\"\<u\>\"", ",", 
              "\"\<z\>\"", ",", "\"\<\!\(\*SubscriptBox[\(z\), \(j\)]\)\>\"", 
              ",", "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(n + 1\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(j\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(w\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(\[Upsilon]\), \(n + 1\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(\[Upsilon]\), \(j\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(\[Upsilon]\), \(w\)]\)\>\""}], 
             "}"}]}], "]"}], ",", 
          RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], ")"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"dataLen", ",", 
        RowBox[{"{", 
         RowBox[{"16", ",", 
          RowBox[{"Sequence", "@@", 
           RowBox[{"Range", "[", 
            RowBox[{"10", ",", "40"}], "]"}]}]}], "}"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"windowLen", ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", 
          RowBox[{"Sequence", "@@", 
           RowBox[{"Range", "[", 
            RowBox[{"1", ",", "40"}], "]"}]}]}], "}"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Button", "[", 
       RowBox[{"\"\<RANDOMIZE!\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{"data", "=", 
         RowBox[{"N", "@", 
          RowBox[{"RandomReal", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "100"}], ",", "100"}], "}"}], ",", "ndata"}], 
           "]"}]}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.703268989518943*^9, 3.703269072972273*^9}, {
   3.703269113783742*^9, 3.703269280418568*^9}, {3.7032693197294617`*^9, 
   3.703269375792913*^9}, 3.703269413557863*^9, {3.703269479114767*^9, 
   3.703269513505948*^9}, {3.703269554032544*^9, 3.703269618565161*^9}, {
   3.703269732133188*^9, 3.703269808326968*^9}, {3.7032698383808613`*^9, 
   3.703269839957912*^9}, {3.703269887171967*^9, 3.703269887235511*^9}, {
   3.703269928444076*^9, 3.703270291924958*^9}, {3.703270387970851*^9, 
   3.703270424220262*^9}, {3.703270468549842*^9, 3.703270510421548*^9}, {
   3.703270770060587*^9, 3.703270771363405*^9}, {3.703367025389202*^9, 
   3.703367227566185*^9}, {3.703367265832691*^9, 3.703367294972416*^9}, {
   3.703367485983692*^9, 3.7033674862213182`*^9}, {3.7033675169549947`*^9, 
   3.703367524016887*^9}, {3.703367993403796*^9, 3.703368000564758*^9}, {
   3.703368035839067*^9, 3.703368080463689*^9}, {3.703368179492659*^9, 
   3.703368244138129*^9}, {3.703368310133686*^9, 3.7033683378994226`*^9}, {
   3.703368369188278*^9, 3.703368439108266*^9}, {3.703368480482131*^9, 
   3.703368504718116*^9}, {3.703368545223809*^9, 3.703368670008779*^9}, {
   3.703368708158806*^9, 3.703368727077767*^9}, {3.703368790616566*^9, 
   3.703368849906517*^9}, {3.703368885823337*^9, 3.703368889151445*^9}, {
   3.703368923774129*^9, 3.703368996609003*^9}, 3.703369084875177*^9, {
   3.703369121875032*^9, 3.703369164986643*^9}, {3.703369228841666*^9, 
   3.703369239783613*^9}, {3.7033692701294546`*^9, 3.70336928042331*^9}, {
   3.703369607684991*^9, 3.703369609538682*^9}, {3.70336964705497*^9, 
   3.703369648655195*^9}, 3.70336978398275*^9, {3.703369991802328*^9, 
   3.703370017684815*^9}, {3.703370290826145*^9, 3.703370304378044*^9}, {
   3.703370379699179*^9, 3.7033704049808893`*^9}, {3.70337054449664*^9, 
   3.703370622369968*^9}, {3.703370663605978*^9, 3.703370689325618*^9}, 
   3.703370719601869*^9, {3.7033707823306856`*^9, 3.703370836251935*^9}, {
   3.703370885780601*^9, 3.703370899558131*^9}, {3.703370948053884*^9, 
   3.703370989510171*^9}, 3.703371022523325*^9, {3.703371067453608*^9, 
   3.703371089358641*^9}, {3.703371130876107*^9, 3.703371136763305*^9}, {
   3.703371174655154*^9, 3.703371224667871*^9}, {3.7033712726696486`*^9, 
   3.703371281299325*^9}, {3.703371375366611*^9, 3.703371392009431*^9}, {
   3.703371457131094*^9, 3.703371478724214*^9}, {3.70337151540315*^9, 
   3.703371547782555*^9}, {3.703371598571331*^9, 3.70337174170553*^9}, {
   3.703371774717688*^9, 3.703371822484684*^9}, {3.703371877833632*^9, 
   3.703371977890503*^9}, {3.703372037819151*^9, 3.703372238907378*^9}, {
   3.703372279091089*^9, 3.703372281458484*^9}, {3.703372358023865*^9, 
   3.703372394517981*^9}, {3.703372507819048*^9, 3.703372518194002*^9}, {
   3.703372552894614*^9, 3.703372555773505*^9}, {3.703372595301606*^9, 
   3.703372618855631*^9}, {3.703374404036666*^9, 3.703374483212642*^9}, {
   3.703374558743729*^9, 3.703374583943239*^9}, {3.703374631620454*^9, 
   3.70337463180375*^9}, {3.7033747120761447`*^9, 3.703374948412717*^9}, {
   3.703375085208952*^9, 3.703375097455392*^9}, {3.703375242978793*^9, 
   3.703375307366617*^9}, {3.703375531762195*^9, 3.703375540247772*^9}, {
   3.7033755839322586`*^9, 3.703375625457878*^9}, {3.703375672745898*^9, 
   3.703375740021088*^9}, {3.703375791276002*^9, 3.703375791618574*^9}, {
   3.703375851469419*^9, 3.703375853659549*^9}, {3.703375959325323*^9, 
   3.703375960761125*^9}, {3.703375994559292*^9, 3.703375995215526*^9}, {
   3.703376039613257*^9, 3.70337609223081*^9}, {3.703376125945956*^9, 
   3.7033761275029197`*^9}, {3.703376193997048*^9, 3.70337621903168*^9}, {
   3.7033762854101357`*^9, 3.703376319026305*^9}, {3.703376379375229*^9, 
   3.703376436656343*^9}, {3.703376494695354*^9, 3.703376501604978*^9}, {
   3.703376636227668*^9, 3.70337663847777*^9}, {3.703376704066654*^9, 
   3.703376757620416*^9}, {3.7033768448480186`*^9, 3.703376908552975*^9}, 
   3.703376983383205*^9, {3.70337701419207*^9, 3.703377118816912*^9}, {
   3.703377179439653*^9, 3.703377185207201*^9}, {3.703377319478112*^9, 
   3.703377619793895*^9}, {3.703377716178257*^9, 3.703377725126466*^9}, 
   3.703377762473843*^9, {3.703377793532824*^9, 3.703377795026575*^9}, {
   3.703377836867445*^9, 3.70337788483208*^9}, {3.703377924150238*^9, 
   3.703377964713535*^9}, {3.703377996264894*^9, 3.703378009648555*^9}, {
   3.703378053850131*^9, 3.703378056913993*^9}, {3.703378093523732*^9, 
   3.703378100254966*^9}, {3.7033781394893*^9, 3.703378180437558*^9}, {
   3.7033782227871337`*^9, 3.703378334334917*^9}, {3.703378398702692*^9, 
   3.703378404120497*^9}, {3.703378456190261*^9, 3.703378572937104*^9}, {
   3.703378634575725*^9, 3.703378657992735*^9}, {3.703414625151804*^9, 
   3.703414641095087*^9}, {3.703414673141727*^9, 3.703414725427021*^9}, {
   3.703414784753312*^9, 3.703414812540324*^9}, {3.70341485696358*^9, 
   3.703414947737028*^9}, {3.703415024338512*^9, 3.703415057941841*^9}, {
   3.703415112439105*^9, 3.7034151272316647`*^9}, {3.703415172967216*^9, 
   3.703415221374508*^9}, {3.703415282624523*^9, 3.703415299874247*^9}, {
   3.703415352942999*^9, 3.703415382561297*^9}, {3.703415422695839*^9, 
   3.7034154308484287`*^9}, {3.703415633955695*^9, 3.703415673062589*^9}, {
   3.703415708707849*^9, 3.70341577867085*^9}, {3.703415842359622*^9, 
   3.703415856025148*^9}, {3.703416683628128*^9, 3.703416705765451*^9}, {
   3.703416737912208*^9, 3.7034167427140026`*^9}, {3.703416783338208*^9, 
   3.703416788902902*^9}, {3.7034168189943547`*^9, 3.7034169097736683`*^9}, {
   3.703417466982047*^9, 3.703417498014452*^9}, {3.703417533092534*^9, 
   3.703417624936292*^9}, {3.703417655812011*^9, 3.703417698473349*^9}, {
   3.703417738264192*^9, 3.703417763158667*^9}, {3.703500279927259*^9, 
   3.703500281206101*^9}, {3.703500807351095*^9, 3.703500833560404*^9}, {
   3.703500942318065*^9, 3.703500955571727*^9}, {3.703501028737548*^9, 
   3.703501029832074*^9}, {3.7035010852624617`*^9, 3.703501108395568*^9}, {
   3.703505395607588*^9, 3.703505407859939*^9}, {3.7035054928986483`*^9, 
   3.703505587966129*^9}, {3.706454714552134*^9, 3.70645493349917*^9}, {
   3.7064549829485397`*^9, 3.706455007416847*^9}, {3.706455063669949*^9, 
   3.706455084506521*^9}, {3.706455341101519*^9, 3.70645538252534*^9}, {
   3.706455509465259*^9, 3.706455549984294*^9}, 3.706455602690074*^9, {
   3.70645568970265*^9, 3.7064556928555307`*^9}, {3.706455793393874*^9, 
   3.706455799413702*^9}, {3.7064558824299994`*^9, 3.706455906422577*^9}, {
   3.706455953281451*^9, 3.706455976350249*^9}, {3.706456023393758*^9, 
   3.706456054880104*^9}, {3.706456495431777*^9, 3.706456552191613*^9}, {
   3.70645661236302*^9, 3.706456703757053*^9}, {3.70645677243827*^9, 
   3.706456789316438*^9}, {3.706456980273872*^9, 3.70645706195538*^9}, {
   3.706457097140554*^9, 3.7064571547216263`*^9}, {3.706457210307184*^9, 
   3.706457221219531*^9}, {3.706457338876856*^9, 3.706457543166503*^9}, {
   3.7064577292099457`*^9, 3.7064577532136307`*^9}, {3.7064577894977407`*^9, 
   3.706457826152216*^9}, {3.706457864296485*^9, 3.70645789038633*^9}, {
   3.706458003845818*^9, 3.706458057398777*^9}, {3.706458100530679*^9, 
   3.70645811301947*^9}, {3.706459967860987*^9, 3.7064600408382607`*^9}, 
   3.706460390789708*^9, {3.706460439629646*^9, 3.7064604474087048`*^9}, {
   3.706460651966311*^9, 3.706460652137044*^9}, {3.706460715275831*^9, 
   3.706460725878325*^9}, {3.70646079572961*^9, 3.706460804045722*^9}, {
   3.706460918368095*^9, 3.706460921391582*^9}, {3.706461006347452*^9, 
   3.706461088137019*^9}, {3.706461130408814*^9, 3.706461195388827*^9}, {
   3.7064612272536917`*^9, 3.706461269406797*^9}, 3.706461316630554*^9, {
   3.706461357283818*^9, 3.706461359508329*^9}, {3.706461473613313*^9, 
   3.706461511120335*^9}, {3.706461732448345*^9, 3.706461771699544*^9}, {
   3.706461999016508*^9, 3.706462033447167*^9}, {3.7064620956822977`*^9, 
   3.706462107274776*^9}, {3.706462145568462*^9, 3.706462199881575*^9}, {
   3.706462247646921*^9, 3.706462288691921*^9}, {3.706462320638024*^9, 
   3.706462356831675*^9}, {3.706462403894705*^9, 3.7064625514944687`*^9}, {
   3.7064626068107777`*^9, 3.70646274520708*^9}, {3.7064628796544237`*^9, 
   3.706462893423305*^9}, {3.706463747914687*^9, 3.706463750495197*^9}, {
   3.9244324869486437`*^9, 3.924432508435938*^9}, {3.924446154146577*^9, 
   3.924446190313925*^9}, {3.924446222183947*^9, 3.924446269572813*^9}, 
   3.924466060179233*^9, {3.924466113380856*^9, 3.924466116267971*^9}, {
   3.924466156902876*^9, 3.9244662443252077`*^9}, {3.924466278712512*^9, 
   3.924466281422091*^9}, {3.92446635234766*^9, 3.92446643663391*^9}, {
   3.92446647134198*^9, 3.924466611828755*^9}, 3.92446667106708*^9, {
   3.924466701260044*^9, 3.924466716999512*^9}, {3.924466762584941*^9, 
   3.924466778315012*^9}, {3.924466822556007*^9, 3.92446691810785*^9}, {
   3.92446695720149*^9, 3.924467133930621*^9}, {3.924467234800941*^9, 
   3.924467282036196*^9}, {3.924467312949521*^9, 3.924467335569353*^9}, {
   3.924471678208907*^9, 3.924471687607377*^9}, {3.924471724654516*^9, 
   3.924471729629315*^9}, {3.924471891173614*^9, 3.924471892268923*^9}, {
   3.924471992327649*^9, 3.924472021074974*^9}, {3.924472084947784*^9, 
   3.924472140096003*^9}, {3.924472285193459*^9, 3.924472305605928*^9}, {
   3.924472367865909*^9, 3.9244723791931863`*^9}, 3.924504600233332*^9, {
   3.9245046323756*^9, 3.924504686692197*^9}, {3.924504793368197*^9, 
   3.924504854004382*^9}, {3.924505120378639*^9, 3.924505135338803*^9}, {
   3.924505249722021*^9, 3.924505324473982*^9}, {3.9245053698309603`*^9, 
   3.924505373152889*^9}, {3.924505429733448*^9, 3.924505438539259*^9}, {
   3.92450570025898*^9, 3.924505700375202*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"95dc82da-bc94-44a2-b5f4-1bceb34c12cb"],

Cell[BoxData[
 DynamicModuleBox[{$CellContext`u$$ = 6, $CellContext`j$$ = 
  10, $CellContext`mnp1$$ = 11.71354900034154, $CellContext`mjp1$$ = 
  15.345184741464983`, $CellContext`mw$$ = 
  5.660822765135805, $CellContext`vnp1$$ = 
  4225.699810694367, $CellContext`vjp1$$ = 
  5187.908694009565, $CellContext`vw$$ = 
  3268.523632699458, $CellContext`cbuf$$ = {-67.39153053154473, \
-49.887867866855686`, 61.48413045828653, 5.584820870033525, 74.87666690203667,
   9.298716758858461}, $CellContext`zj$$ = 
  17.03214716368109, $CellContext`ndata$$ = 16, $CellContext`w$$ = 
  6, $CellContext`data$$ = {-11.165814008881796`, -6.489595005814522, 
  87.26802288322244, 14.229625980390836`, 
  91.34402410470568, -98.69582085866048, 64.98698624272151, 
  93.51840598005191, -98.57613506676688, 17.03214716368109, 9.298716758858461,
   74.87666690203667, 5.584820870033525, 
  61.48413045828653, -49.887867866855686`, -67.39153053154473}, \
$CellContext`cume$$}, 
  TagBox[
   StyleBox[
    DynamicModuleBox[{$CellContext`dataLen$$ = 16, $CellContext`windowLen$$ = 
     6, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
     Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
     1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
       Hold[$CellContext`dataLen$$], {16, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
       19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
        37, 38, 39, 40}, ControlType -> PopupMenu}, {
       Hold[$CellContext`windowLen$$], {6, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
       12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40}, ControlType -> 
       PopupMenu}, {
       Hold[
        Button["RANDOMIZE!", $CellContext`data$$ = N[
           RandomReal[{-100, 100}, $CellContext`ndata$$]]]], 
       Manipulate`Dump`ThisIsNotAControl, ControlType -> None}}, 
     Typeset`size$$ = {747., {204.91754150390625`, 212.08245849609375`}}, 
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
     DynamicBox[Manipulate`ManipulateBoxes[
      1, StandardForm, 
       "Variables" :> {$CellContext`dataLen$$ = 16, $CellContext`windowLen$$ = 
         6}, "ControllerVariables" :> {}, 
       "OtherVariables" :> {
        Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
         Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
         Typeset`initDone$$, Typeset`skipInitDone$$}, 
       "Body" :> ($CellContext`ndata$$ = $CellContext`dataLen$$; \
$CellContext`w$$ = $CellContext`windowLen$$; $CellContext`cbuf$$ = 
         ConstantArray[0, $CellContext`w$$]; Grid[
          Prepend[
           
           FoldList[$CellContext`cume$$, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
            0}, $CellContext`data$$], {
           "j", "n+1", "u", "z", "\!\(\*SubscriptBox[\(z\), \(j\)]\)", 
            "\!\(\*SubscriptBox[\(\[Mu]\), \(n + 1\)]\)", 
            "\!\(\*SubscriptBox[\(\[Mu]\), \(j\)]\)", 
            "\!\(\*SubscriptBox[\(\[Mu]\), \(w\)]\)", 
            "\!\(\*SubscriptBox[\(\[Upsilon]\), \(n + 1\)]\)", 
            "\!\(\*SubscriptBox[\(\[Upsilon]\), \(j\)]\)", 
            "\!\(\*SubscriptBox[\(\[Upsilon]\), \(w\)]\)"}], Frame -> All]), 
       "Specifications" :> {{$CellContext`dataLen$$, {16, 10, 11, 12, 13, 14, 
          15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
          32, 33, 34, 35, 36, 37, 38, 39, 40}}, {$CellContext`windowLen$$, {6,
           1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 
          20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
          37, 38, 39, 40}}, 
         Button["RANDOMIZE!", $CellContext`data$$ = N[
            RandomReal[{-100, 100}, $CellContext`ndata$$]]]}, "Options" :> {},
        "DefaultOptions" :> {}],
      ImageSizeCache->{801., {295., 302.}},
      SingleEvaluation->True],
     Deinitialization:>None,
     DynamicModuleValues:>{},
     SynchronousInitialization->True,
     UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
     UnsavedVariables:>{Typeset`initDone$$},
     UntrackedVariables:>{Typeset`size$$}], "Manipulate",
    Deployed->True,
    StripOnInput->False],
   Manipulate`InterpretManipulate[1]],
  DynamicModuleValues:>{{DownValues[$CellContext`cume$$] = {HoldPattern[
         $CellContext`cume$$[{
           Blank[], 
           Pattern[$CellContext`n$, 
            Blank[]], 
           Blank[], 
           Blank[], 
           Blank[], 
           Pattern[$CellContext`mn$, 
            Blank[]], 
           Pattern[$CellContext`mj$, 
            Blank[]], 
           Blank[], 
           Pattern[$CellContext`vn$, 
            Blank[]], 
           Pattern[$CellContext`vj$, 
            Blank[]], 
           Blank[]}, 
          Pattern[$CellContext`z$, 
           Blank[]]]] :> ($CellContext`zj$$ = 
         Part[$CellContext`cbuf$$, $CellContext`w$$]; $CellContext`cbuf$$ = 
         RotateRight[$CellContext`cbuf$$, 1]; 
        Part[$CellContext`cbuf$$, 1] = $CellContext`z$; $CellContext`j$$ = 
         Max[0, $CellContext`n$ - $CellContext`w$$ + 
           1]; $CellContext`u$$ = $CellContext`n$ - $CellContext`j$$ + 
          1; $CellContext`mnp1$$ = $CellContext`mn$ + ($CellContext`z$ - \
$CellContext`mn$)/($CellContext`n$ + 1); $CellContext`mjp1$$ = 
         If[$CellContext`j$$ > 
           0, $CellContext`mj$ + ($CellContext`zj$$ - \
$CellContext`mj$)/$CellContext`j$$, 
           0]; $CellContext`mw$$ = (($CellContext`n$ + 
             1) $CellContext`mnp1$$ - $CellContext`j$$ \
$CellContext`mjp1$$)/$CellContext`u$$; $CellContext`vnp1$$ = \
(($CellContext`n$ - 1) $CellContext`vn$ + ($CellContext`n$/($CellContext`n$ + 
             1)) ($CellContext`z$ - $CellContext`mn$)^2)/Max[
          1, $CellContext`n$]; $CellContext`vjp1$$ = 
         If[$CellContext`j$$ > 
           1, (($CellContext`j$$ - 2)/($CellContext`j$$ - 
             1)) $CellContext`vj$ + (
             1/$CellContext`j$$) ($CellContext`zj$$ - $CellContext`mj$)^2, 
           0]; $CellContext`vw$$ = (($CellContext`n$ $CellContext`vnp1$$ + \
($CellContext`n$ + 
              1) $CellContext`mnp1$$^2) - ($CellContext`j$$ \
$CellContext`mjp1$$^2 + ($CellContext`n$ - $CellContext`w$$) \
$CellContext`vjp1$$) - $CellContext`u$$ $CellContext`mw$$^2)/Max[
          1, $CellContext`u$$ - 1]; 
        Assert[0 === Chop[$CellContext`mjp1$$ - If[$CellContext`j$$ > 0, 
             Mean[
              Part[$CellContext`data$$, 
               Span[1, $CellContext`j$$]]], 0]]]; 
        Assert[0 === Chop[$CellContext`mw$$ - Mean[
             Part[$CellContext`data$$, 
              Span[$CellContext`j$$ + 1, $CellContext`n$ + 1]]]]]; 
        Assert[0 === Chop[$CellContext`vjp1$$ - If[$CellContext`j$$ > 1, 
             Variance[
              Part[$CellContext`data$$, 
               Span[1, $CellContext`j$$]]], 0]]]; 
        Assert[0 === Chop[$CellContext`vw$$ - If[$CellContext`u$$ > 1, 
             Variance[
              Part[$CellContext`data$$, 
               Span[$CellContext`j$$ + 1, $CellContext`n$ + 1]]], 
             0]]]; {$CellContext`j$$, $CellContext`n$ + 
          1, $CellContext`u$$, $CellContext`z$, $CellContext`zj$$, \
$CellContext`mnp1$$, $CellContext`mjp1$$, $CellContext`mw$$, \
$CellContext`vnp1$$, $CellContext`vjp1$$, $CellContext`vw$$})}}}]], "Output",
 CellChangeTimes->{{3.924505303013329*^9, 3.924505325346603*^9}, 
   3.924505707980921*^9, 3.924505782735354*^9, 3.924505978404254*^9, 
   3.924506614829755*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"9cf06a9d-be16-42b3-8e3d-7f448fd1600d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1728, 1051},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->{},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"14.0 for Mac OS X ARM (64-bit) (December 12, 2023)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"11134d00-b1fc-4e79-a298-5465dfd0391a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 277, 4, 121, "Title",ExpressionUUID->"b0744051-821f-478f-bc14-6bebce883993"],
Cell[860, 28, 226, 4, 42, "Subtitle",ExpressionUUID->"b3f72312-1f30-4cff-a8b6-4689f3a236a9"],
Cell[1089, 34, 164, 3, 39, "Subsubtitle",ExpressionUUID->"56da506d-a60f-4f33-b478-9bef0e27827d"],
Cell[1256, 39, 354, 6, 39, "Subsubtitle",ExpressionUUID->"381e9851-d168-47b4-94ec-14616942eb57"],
Cell[1613, 47, 1564, 25, 130, "Text",ExpressionUUID->"7692651a-e82e-447d-ba88-f11c8d7ccc78"],
Cell[3180, 74, 1161, 31, 72, "Text",ExpressionUUID->"13018296-aa0f-4074-b884-e74ca9b258a8"],
Cell[CellGroupData[{
Cell[4366, 109, 220, 4, 86, "Chapter",ExpressionUUID->"7189fc66-31fb-4cb2-8745-c29fa068f25d"],
Cell[4589, 115, 484, 9, 43, "Text",ExpressionUUID->"bb306649-10eb-4b62-a946-2a8b77fb5924"],
Cell[5076, 126, 595, 14, 51, "Input",ExpressionUUID->"8ca4ee7b-ccb5-4754-84d6-fd9fc5f93bad"],
Cell[5674, 142, 891, 17, 72, "Text",ExpressionUUID->"ffa4b7c9-3950-48b1-9915-531b1df13028"],
Cell[CellGroupData[{
Cell[6590, 163, 618, 13, 104, "Input",ExpressionUUID->"9e959217-11b5-422a-a847-02da0de6f86c"],
Cell[7211, 178, 1963, 28, 51, "Output",ExpressionUUID->"cc365850-9c06-4d89-8362-684bf6cdc71c"]
}, Open  ]],
Cell[9189, 209, 1419, 43, 72, "Text",ExpressionUUID->"c23474ac-c5ba-41da-aca1-c695b816f0af"],
Cell[10611, 254, 235, 7, 43, "Text",ExpressionUUID->"d6246666-3a29-4921-b4a6-4ec5a48b9400"],
Cell[CellGroupData[{
Cell[10871, 265, 246, 4, 51, "Input",ExpressionUUID->"d6d3e7be-b5de-4b0e-a374-7d4fc03e94b1"],
Cell[11120, 271, 512, 10, 51, "Output",ExpressionUUID->"cc88b010-4c0c-44b5-800f-905624ac603f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11669, 286, 159, 3, 42, "Subsection",ExpressionUUID->"d3a92e89-9116-4d74-a1d5-328750d8997d"],
Cell[11831, 291, 437, 9, 43, "Text",ExpressionUUID->"7df49337-3474-47de-8329-fe349fd58939"],
Cell[CellGroupData[{
Cell[12293, 304, 295, 7, 51, "Input",ExpressionUUID->"d965aa6c-3c1f-407c-99bd-dc38275b68d1",
 CellID->12834],
Cell[12591, 313, 777, 19, 51, "Output",ExpressionUUID->"666a56c9-70a3-417c-9b5b-ea185e2b576d"]
}, Open  ]],
Cell[13383, 335, 2991, 81, 101, "Text",ExpressionUUID->"6ef0c628-82c2-4845-a672-48d64ad3bf9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16411, 421, 160, 3, 42, "Subsection",ExpressionUUID->"87b099e7-f88e-43d8-9198-d0803ab83131"],
Cell[16574, 426, 635, 11, 43, "Text",ExpressionUUID->"8ec0345b-1119-4b86-9503-9afb895b2d3c"],
Cell[CellGroupData[{
Cell[17234, 441, 568, 13, 51, "Input",ExpressionUUID->"b08724dc-9031-4525-b7f6-4004e64e4bc5"],
Cell[17805, 456, 663, 15, 51, "Output",ExpressionUUID->"b04c60e1-2e37-45f5-b2ba-b1b8d65e7586"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18529, 478, 208, 4, 86, "Chapter",ExpressionUUID->"2e907cf8-02e7-4eb1-97b9-8045ac871b0c"],
Cell[18740, 484, 1340, 31, 101, "Text",ExpressionUUID->"487e0667-44b9-4f04-8636-162ffad41841"],
Cell[CellGroupData[{
Cell[20105, 519, 968, 25, 150, "Input",ExpressionUUID->"d347849b-80e4-4d80-8107-7605d03bf929"],
Cell[21076, 546, 1865, 29, 51, "Output",ExpressionUUID->"a93caede-585f-4963-a091-9d7d86eb2edd"]
}, Open  ]],
Cell[22956, 578, 235, 8, 43, "Text",ExpressionUUID->"68ed2278-ce54-4449-916c-7228ebecc711"],
Cell[CellGroupData[{
Cell[23216, 590, 201, 3, 51, "Input",ExpressionUUID->"4f6889ba-e985-4f05-9d17-8e395df44066"],
Cell[23420, 595, 1767, 26, 51, "Output",ExpressionUUID->"f450f52e-4472-4b6a-b3d8-738039e94908"]
}, Open  ]],
Cell[25202, 624, 380, 7, 43, "Text",ExpressionUUID->"8ffb72d3-dbb2-4eb0-bb55-5e97fa788022"],
Cell[CellGroupData[{
Cell[25607, 635, 765, 18, 51, "Input",ExpressionUUID->"c0bbb199-ec16-4eb8-a32e-7a3604937ac4"],
Cell[26375, 655, 131163, 2185, 287, "Output",ExpressionUUID->"6e074f49-8356-4ad4-a7cf-34c2cb6a3246"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157575, 2845, 162, 3, 87, "Section",ExpressionUUID->"e5713c8a-acac-4e9d-ad8e-6164cd55f704"],
Cell[157740, 2850, 1081, 17, 43, "Text",ExpressionUUID->"b205f9bd-e470-4e88-8ed7-64f4cd96ccb6"],
Cell[158824, 2869, 1310, 25, 63, "Text",ExpressionUUID->"b1596645-3dd1-496b-b38a-5f7a08771aee"],
Cell[160137, 2896, 1088, 17, 43, "Text",ExpressionUUID->"b73c060f-a6a6-4f4e-82f7-7fddfdfb8133"],
Cell[161228, 2915, 1856, 43, 72, "Text",ExpressionUUID->"e132a50b-4c6d-42f6-a803-90e5a227d1a3"],
Cell[163087, 2960, 1284, 34, 33, "DisplayFormulaNumbered",ExpressionUUID->"10e1690b-0ae8-42de-950b-f3c9123d926a"],
Cell[CellGroupData[{
Cell[164396, 2998, 1353, 35, 187, "Input",ExpressionUUID->"a3c30ce0-f9ae-4f7f-998d-54e48558b2ba"],
Cell[165752, 3035, 1114, 18, 51, "Output",ExpressionUUID->"f7b3f835-b0fe-486b-9d03-0020714189ae"]
}, Open  ]],
Cell[166881, 3056, 1883, 48, 72, "Text",ExpressionUUID->"1e223bfb-38fa-4bd1-a604-4a64e43d8859"],
Cell[168767, 3106, 2583, 83, 80, "Text",ExpressionUUID->"036e152a-4120-4ee2-8820-9a31b4a1a9aa"],
Cell[171353, 3191, 1119, 34, 43, "Text",ExpressionUUID->"83e10233-a7d3-4614-8a30-fee46a5eba9e"],
Cell[CellGroupData[{
Cell[172497, 3229, 513, 14, 68, "Input",ExpressionUUID->"9162b0d3-2370-459b-8962-281dfe8bd108"],
Cell[173013, 3245, 1145, 20, 67, "Output",ExpressionUUID->"902edd84-049c-4760-8f40-4625018ca792"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[174219, 3272, 306, 5, 86, "Chapter",ExpressionUUID->"98eaf97d-c181-45f7-b379-7b39102fdc4e"],
Cell[CellGroupData[{
Cell[174550, 3281, 159, 3, 42, "Subsection",ExpressionUUID->"5a88b1e0-4efa-4335-954e-f55c7e5f3a30"],
Cell[174712, 3286, 1122, 22, 43, "Text",ExpressionUUID->"7f05ea6a-5ee0-4848-9294-4a4e1b6cda7a"],
Cell[CellGroupData[{
Cell[175859, 3312, 303, 5, 51, "Input",ExpressionUUID->"0eb72b80-4266-4268-b186-c29976871c08"],
Cell[176165, 3319, 1796, 26, 51, "Output",ExpressionUUID->"975bfca3-609e-468c-8c79-0a0db1528c57"]
}, Open  ]],
Cell[177976, 3348, 243, 4, 43, "Text",ExpressionUUID->"69ddb04b-bd34-4617-aaf7-ce64b9e92738"],
Cell[CellGroupData[{
Cell[178244, 3356, 309, 6, 51, "Input",ExpressionUUID->"319dd0b2-9ec0-44ec-96ba-b02e4f068626"],
Cell[178556, 3364, 1653, 24, 51, "Output",ExpressionUUID->"c851e8d4-b2ab-40ef-aa72-3a136e8513e3"]
}, Open  ]],
Cell[180224, 3391, 348, 10, 43, "Text",ExpressionUUID->"4bda312c-357c-4436-87be-a0e9842b9223"],
Cell[180575, 3403, 658, 19, 62, "DisplayFormulaNumbered",ExpressionUUID->"251901b2-0841-43d0-b783-e521c2bba640"],
Cell[181236, 3424, 353, 5, 43, "Text",ExpressionUUID->"65650b20-a582-4a27-aebb-b186464f3d8d"],
Cell[CellGroupData[{
Cell[181614, 3433, 411, 9, 51, "Input",ExpressionUUID->"f1c2c740-6ed0-4868-8984-5003a95784fa"],
Cell[182028, 3444, 1843, 26, 51, "Output",ExpressionUUID->"f10a572b-bbb1-46e6-8e9c-4e120f273903"]
}, Open  ]],
Cell[183886, 3473, 267, 6, 43, "Text",ExpressionUUID->"fbf49e86-dae4-421f-bd5c-397f9a682f9c"],
Cell[CellGroupData[{
Cell[184178, 3483, 662, 17, 83, "Input",ExpressionUUID->"ed74cbad-1d05-488d-b420-0ea457c83d6d"],
Cell[184843, 3502, 388, 6, 51, "Output",ExpressionUUID->"984b8b4b-03df-4b93-9838-cb94c1b4f97d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[185280, 3514, 163, 3, 42, "Subsection",ExpressionUUID->"166ca573-0770-40cb-938e-8115d3d64f6b"],
Cell[185446, 3519, 781, 16, 72, "Text",ExpressionUUID->"39080b1f-bd6d-40f4-a6fb-666ac4d08441"],
Cell[186230, 3537, 473, 9, 43, "Text",ExpressionUUID->"c3e45573-f94c-4e3d-854d-987ff9aa37c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186740, 3551, 313, 5, 42, "Subsection",ExpressionUUID->"ca0888ee-e33e-41ce-a9f4-1736ca09db56"],
Cell[187056, 3558, 1262, 23, 72, "Text",ExpressionUUID->"71714606-c700-43ce-a0a3-2bc3a7c6bf54"],
Cell[CellGroupData[{
Cell[188343, 3585, 525, 11, 35, "Item",ExpressionUUID->"8111ebeb-64e6-40b8-8716-67de9efbc13a"],
Cell[188871, 3598, 348, 8, 51, "Input",ExpressionUUID->"6d3f97ac-b104-49e7-b00b-888db4fed247"],
Cell[CellGroupData[{
Cell[189244, 3610, 231, 4, 51, "Input",ExpressionUUID->"b996ff94-7968-434e-83da-6ee49020db93"],
Cell[189478, 3616, 1500, 21, 51, "Output",ExpressionUUID->"62733077-cf3f-46ca-8760-97d55132c3f4"]
}, Open  ]]
}, Open  ]],
Cell[191005, 3641, 163, 3, 43, "Text",ExpressionUUID->"06b2cefd-7dbc-4ca2-9a59-16cd0a94dc23"],
Cell[CellGroupData[{
Cell[191193, 3648, 256, 5, 51, "Input",ExpressionUUID->"ff21b2e9-0356-495c-91f3-e46e1455a6d0"],
Cell[191452, 3655, 321, 5, 51, "Output",ExpressionUUID->"234adf5b-8a85-4c9a-8e4b-5deac045249a"]
}, Open  ]],
Cell[191788, 3663, 583, 16, 43, "Text",ExpressionUUID->"4c971995-df20-46b0-8d69-69cbb9dfd3c3"],
Cell[CellGroupData[{
Cell[192396, 3683, 599, 17, 51, "Input",ExpressionUUID->"51f7f1f4-17ae-4318-9092-f9e77f067628"],
Cell[192998, 3702, 470, 6, 51, "Output",ExpressionUUID->"f8fc3f1d-4439-4daf-af1f-89de8a1ec0b6"]
}, Open  ]],
Cell[193483, 3711, 517, 11, 43, "Text",ExpressionUUID->"97939130-8d88-41bd-bea4-8731411935a6"],
Cell[CellGroupData[{
Cell[194025, 3726, 866, 22, 135, "Input",ExpressionUUID->"03c47b47-270a-47d5-a4bd-246dcd0b283e"],
Cell[194894, 3750, 1886, 28, 51, "Output",ExpressionUUID->"c1dce09a-180c-491e-8595-cf8fc2602a68"]
}, Open  ]],
Cell[196795, 3781, 466, 9, 43, "Text",ExpressionUUID->"0c52136b-d218-40cb-8105-1b667af864f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197298, 3795, 308, 5, 42, "Subsection",ExpressionUUID->"0adf919e-896d-456b-acd1-62acf4cc0549"],
Cell[197609, 3802, 1148, 24, 43, "Text",ExpressionUUID->"83d5a2eb-fe27-4398-989d-0be745fe91de"],
Cell[198760, 3828, 1042, 29, 63, "DisplayFormulaNumbered",ExpressionUUID->"e9be28c6-663f-4ef4-8cc7-0c656b72886e"],
Cell[199805, 3859, 1666, 35, 43, "Text",ExpressionUUID->"0e2a5f20-8ef6-4f23-a9d1-b00705d54f40"],
Cell[201474, 3896, 1146, 31, 72, "Text",ExpressionUUID->"aa70dd44-9926-458a-999b-dd8f6117cd76"],
Cell[CellGroupData[{
Cell[202645, 3931, 2529, 60, 279, "Input",ExpressionUUID->"89ec48f2-26c0-43d0-aad7-dfe5315f6fcd"],
Cell[205177, 3993, 1510, 33, 132, "Output",ExpressionUUID->"15449ad6-8404-49d1-9a27-6dbed0847990"]
}, Open  ]],
Cell[206702, 4029, 935, 17, 43, "Text",ExpressionUUID->"c722a1e7-285a-453b-a3dc-9fe1e8717f13"],
Cell[207640, 4048, 1456, 31, 72, "Text",ExpressionUUID->"2abe4711-7cf4-4141-8a78-e9c87639be62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209133, 4084, 312, 5, 42, "Subsection",ExpressionUUID->"3bfcb222-efcb-41e0-9b69-1cdcdcfa2494"],
Cell[209448, 4091, 2351, 49, 76, "Text",ExpressionUUID->"8b5a20c5-c37f-4d45-b28f-43b422e49685"],
Cell[211802, 4142, 774, 19, 48, "DisplayFormulaNumbered",ExpressionUUID->"68802f55-c148-477a-a4c4-4ecea0d1f6d4"],
Cell[212579, 4163, 1268, 32, 72, "Text",ExpressionUUID->"2b13113c-f715-4d40-85c9-1f2762cc3589"],
Cell[213850, 4197, 911, 24, 48, "DisplayFormulaNumbered",ExpressionUUID->"fab2cdc5-6b95-4d0a-945d-df9ebda856bf"],
Cell[CellGroupData[{
Cell[214786, 4225, 244, 4, 41, "Subsubsection",ExpressionUUID->"daca55ae-a98d-43c1-ab6d-69a804d6c3e5"],
Cell[215033, 4231, 409, 10, 43, "Text",ExpressionUUID->"49b02f48-4a96-435f-808c-963130601fe6"],
Cell[215445, 4243, 892, 23, 62, "DisplayFormulaNumbered",ExpressionUUID->"a6269b32-a4c7-4946-a0a4-07363206dca7"],
Cell[216340, 4268, 400, 10, 43, "Text",ExpressionUUID->"6e9c2161-dc5d-4a8d-88e4-f55e7f24acce"],
Cell[216743, 4280, 1609, 40, 64, "DisplayFormulaNumbered",ExpressionUUID->"02e0cb8b-fcdb-4aa7-85da-4f3e3c7d0f05"],
Cell[218355, 4322, 3127, 73, 72, "Text",ExpressionUUID->"5e384edb-3f2d-4be5-b628-b53ea8866ccb"],
Cell[221485, 4397, 215, 4, 43, "Text",ExpressionUUID->"9439716b-cacf-4fd7-9838-bec89c35f5e7"],
Cell[221703, 4403, 797, 17, 78, "Input",ExpressionUUID->"37e172c3-0017-493e-a8f2-2d75b9164be8"],
Cell[222503, 4422, 233, 4, 43, "Text",ExpressionUUID->"435a2623-f18e-4479-8aa8-706cfd9eeca2"],
Cell[222739, 4428, 925, 25, 68, "Input",ExpressionUUID->"a8d7fc8d-2ab2-4d1c-9484-6cf051855dd2"],
Cell[223667, 4455, 267, 7, 43, "Text",ExpressionUUID->"83278c8f-6b94-4800-8e76-191a00179b8d"],
Cell[223937, 4464, 278, 6, 43, "Text",ExpressionUUID->"37266370-99eb-4566-abac-2b837504dc45"],
Cell[CellGroupData[{
Cell[224240, 4474, 579, 13, 51, "Input",ExpressionUUID->"c3dce4bf-be77-41d2-944b-1c083cec6eb2"],
Cell[224822, 4489, 863, 17, 71, "Output",ExpressionUUID->"0ec27c08-0d57-4a2e-b058-f8ad0b79c1d3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[225734, 4512, 166, 3, 41, "Subsubsection",ExpressionUUID->"f8f781f3-700b-4933-95af-5e08d82b2fe6"],
Cell[225903, 4517, 223, 4, 43, "Text",ExpressionUUID->"80694c0f-e416-40e6-b9fe-c25ac8e4524a"],
Cell[226129, 4523, 602, 15, 42, "Text",ExpressionUUID->"6380995e-036e-43dc-a1a6-c4a8e91904f7"],
Cell[226734, 4540, 523, 17, 42, "Text",ExpressionUUID->"bbaad7f7-8e8f-41e6-bf60-a1b6f2e16c94"],
Cell[227260, 4559, 530, 13, 43, "Text",ExpressionUUID->"25c6d94b-fe0c-44a7-a3b2-7be7374ec629"],
Cell[227793, 4574, 2425, 68, 48, "Text",ExpressionUUID->"6fb2f4eb-0224-4c33-8a88-e8e30a3d4300"],
Cell[230221, 4644, 167, 3, 43, "Text",ExpressionUUID->"e5d7baaa-4f91-4dbb-a766-4852e8395756"],
Cell[230391, 4649, 1779, 52, 52, "Text",ExpressionUUID->"2fc63a22-c07d-4348-8e8d-f13d408eef57"],
Cell[232173, 4703, 388, 10, 43, "Text",ExpressionUUID->"1f130c7e-5fc5-4616-b694-30d5661a1d4b"],
Cell[232564, 4715, 2651, 79, 52, "Text",ExpressionUUID->"513a66de-ff8f-47d2-b751-2287137c2fe1"],
Cell[235218, 4796, 178, 3, 43, "Text",ExpressionUUID->"0ed8e9b1-cd0f-46ec-8d0f-334a7801524b"],
Cell[235399, 4801, 1970, 56, 48, "Text",ExpressionUUID->"2334c98f-30e9-4c2f-841e-8c6c9f1f1c3e"],
Cell[237372, 4859, 1158, 27, 48, "Text",ExpressionUUID->"adc296a9-fde3-4ea0-91ef-fce9b3f25145"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238567, 4891, 194, 3, 41, "Subsubsection",ExpressionUUID->"be7a33e0-fa04-474d-a79b-668bbc427037"],
Cell[238764, 4896, 589, 14, 43, "Text",ExpressionUUID->"873b3478-7aa0-46cf-91ab-092c676b0ff1"],
Cell[239356, 4912, 700, 19, 33, "DisplayFormulaNumbered",ExpressionUUID->"b4af6a17-c493-44be-a185-a82f7d41ca39"],
Cell[240059, 4933, 992, 24, 43, "Text",ExpressionUUID->"83a599be-4e98-4ff9-abf5-f33789387a26"],
Cell[CellGroupData[{
Cell[241076, 4961, 637, 16, 51, "Input",ExpressionUUID->"57866af4-9d78-450b-a645-9d64fea0325f"],
Cell[241716, 4979, 696, 15, 71, "Output",ExpressionUUID->"7c1c5079-a25a-488d-9d39-030b1d6e2cd3"]
}, Open  ]],
Cell[242427, 4997, 261, 6, 43, "Text",ExpressionUUID->"7c3ad3d8-617f-47a5-9422-866e07720359"],
Cell[242691, 5005, 2129, 49, 101, "Text",ExpressionUUID->"595c69e1-17f9-4173-9a42-ffc79c33c408"],
Cell[CellGroupData[{
Cell[244845, 5058, 2875, 68, 274, "Input",ExpressionUUID->"b8a0701b-3107-4dd2-891d-348b806ba9ac"],
Cell[247723, 5128, 1926, 39, 132, "Output",ExpressionUUID->"8e0200bd-5744-4c0f-bbd4-0c1b9963d532"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[249698, 5173, 161, 3, 41, "Subsubsection",ExpressionUUID->"b1bfc90a-7571-4e7e-888c-9ccce46d6bec"],
Cell[249862, 5178, 691, 13, 43, "Text",ExpressionUUID->"3c8e7b54-0ad7-48e2-8512-c0e68a4bec23"],
Cell[CellGroupData[{
Cell[250578, 5195, 2765, 64, 268, "Input",ExpressionUUID->"c698ac3b-8ab5-4191-937c-caab0daaa5e7"],
Cell[253346, 5261, 1959, 39, 132, "Output",ExpressionUUID->"6e4116de-80f8-4874-a4cb-979a6445df99"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[255378, 5308, 213, 4, 86, "Chapter",ExpressionUUID->"e75690a7-0bfc-46dd-86ec-e06e7d2311a2"],
Cell[255594, 5314, 938, 18, 43, "Text",ExpressionUUID->"22913697-a433-46a9-9d8e-9e9fc05bebb3"],
Cell[CellGroupData[{
Cell[256557, 5336, 3759, 95, 200, "Input",ExpressionUUID->"cea29968-3681-4832-9602-56e70f36e939"],
Cell[260319, 5433, 3486, 64, 476, "Output",ExpressionUUID->"50567890-0689-436e-b236-751c4c26886e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[263842, 5502, 201, 4, 87, "Section",ExpressionUUID->"cb27ec25-2e6a-425e-965f-471595d3e02a"],
Cell[264046, 5508, 894, 15, 101, "Text",ExpressionUUID->"96404b1a-d4da-4278-9512-7346b0685ede"],
Cell[264943, 5525, 271, 5, 51, "Input",ExpressionUUID->"d2dc2e8a-02c7-45d6-a6ed-dfdf6544235f"],
Cell[CellGroupData[{
Cell[265239, 5534, 30530, 606, 2708, "Input",ExpressionUUID->"bc80f12f-774d-488a-849d-a7b732e453e8"],
Cell[295772, 6142, 2581, 49, 316, "Output",ExpressionUUID->"9b2f7877-7e33-41f9-a0b3-17d0cabd6d1f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[298402, 6197, 268, 4, 87, "Section",ExpressionUUID->"26e7757c-ddc7-4f16-bb5f-885093bf3fb8"],
Cell[298673, 6203, 463, 10, 72, "Text",ExpressionUUID->"da1816a0-ea99-4a3d-80b0-ebd3fddddacf"],
Cell[CellGroupData[{
Cell[299161, 6217, 18703, 366, 1025, "Input",ExpressionUUID->"95dc82da-bc94-44a2-b5f4-1bceb34c12cb"],
Cell[317867, 6585, 7695, 148, 655, "Output",ExpressionUUID->"9cf06a9d-be16-42b3-8e3d-7f448fd1600d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)