Much work.

author: Jaron Kent-Dobias <jaron@kent-dobias.com> 2020-07-20 13:26:21 -0400
committer: Jaron Kent-Dobias <jaron@kent-dobias.com> 2020-07-20 13:26:21 -0400
commit: 179ab936289b0a601ca8b64b14add8ad9058a675 (patch)
tree: 31b4bb44d19a5da5654c1e41614b8c50d6a7f455 /tempering_analysis-old.nb
parent: bf880a78ff48e24dd9e7dea688349ee2b480f431 (diff)
download: mma-179ab936289b0a601ca8b64b14add8ad9058a675.tar.gz
mma-179ab936289b0a601ca8b64b14add8ad9058a675.tar.bz2
mma-179ab936289b0a601ca8b64b14add8ad9058a675.zip
1 files changed, 7169 insertions, 0 deletions
diff --git a/tempering_analysis-old.nb b/tempering_analysis-old.nb
new file mode 100644
index 0000000..b5de990
--- /dev/null
+++ b/tempering_analysis-old.nb
@@ -0,0 +1,7169 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[       158,          7]
+NotebookDataLength[    364620,       7161]
+NotebookOptionsPosition[    358256,       7055]
+NotebookOutlinePosition[    358619,       7071]
+CellTagsIndexPosition[    358576,       7068]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"getData", "[", "dir_", "]"}], ":=", 
+  RowBox[{"Dataset", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"With", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"data", "=", 
+          RowBox[{"Import", "[", "#", "]"}]}], ",", 
+         RowBox[{"metadata", "=", 
+          RowBox[{"ToExpression", "/@", 
+           RowBox[{"Rest", "[", 
+            RowBox[{"StringSplit", "[", 
+             RowBox[{
+              RowBox[{"FileBaseName", "[", "#", "]"}], ",", "\"\<_\>\""}], 
+             "]"}], "]"}]}]}]}], "}"}], ",", 
+       RowBox[{"<|", 
+        RowBox[{
+         RowBox[{"\"\<n\>\"", "\[Rule]", 
+          RowBox[{"metadata", "[", 
+           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<\[Beta]0\>\"", "\[Rule]", 
+          RowBox[{"metadata", "[", 
+           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<\[Beta]1\>\"", "\[Rule]", 
+          RowBox[{"metadata", "[", 
+           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<N\>\"", "\[Rule]", 
+          RowBox[{"metadata", "[", 
+           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<\[Beta]s\>\"", "\[Rule]", 
+          RowBox[{"data", "[", 
+           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<f\>\"", "\[Rule]", 
+          RowBox[{"data", "[", 
+           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ps\>\"", "\[Rule]", 
+          RowBox[{"data", "[", 
+           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<Es\>\"", "\[Rule]", 
+          RowBox[{"data", "[", 
+           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<Cs\>\"", "\[Rule]", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"data", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], "2"], 
+           RowBox[{"data", "[", 
+            RowBox[{"[", "5", "]"}], "]"}]}]}], ",", 
+         RowBox[{"\"\<\[Rho]s\>\"", "\[Rule]", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"#", "/", 
+              RowBox[{"Total", "[", "#", "]"}]}], "&"}], ")"}], "/@", 
+           RowBox[{"data", "[", 
+            RowBox[{"[", 
+             RowBox[{"6", ";;"}], "]"}], "]"}]}]}]}], "|>"}]}], "]"}], "&"}], 
+    "/@", 
+    RowBox[{"FileNames", "[", 
+     RowBox[{"FileNameJoin", "[", 
+      RowBox[{"{", 
+       RowBox[{"dir", ",", "\"\<hmm_*.dat\>\""}], "}"}], "]"}], "]"}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.778948155736003*^9, 3.778948220094614*^9}, {
+   3.778948251774682*^9, 3.778948445776267*^9}, 3.7849915996103563`*^9, {
+   3.784991674882406*^9, 3.784991676833317*^9}, {3.785001256798332*^9, 
+   3.785001295499127*^9}, {3.7850013404547863`*^9, 3.785001375744542*^9}, {
+   3.78500144259391*^9, 3.7850014923774643`*^9}, {3.7850917037659607`*^9, 
+   3.785091718086301*^9}, {3.785804403591153*^9, 3.7858046033535*^9}, {
+   3.7858046959527397`*^9, 3.7858046963435593`*^9}, {3.785804895089408*^9, 
+   3.785804919668272*^9}, {3.785870396919524*^9, 3.785870421125996*^9}, {
+   3.789742875252179*^9, 3.7897428826827908`*^9}, {3.789745855694088*^9, 
+   3.7897458585723753`*^9}, 3.789745905309957*^9, {3.789816778074827*^9, 
+   3.789816780007482*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"c", "[", 
+    RowBox[{"\[Beta]i_", ",", "\[Beta]j_"}], "]"}], "[", "A_", "]"}], ":=", 
+  RowBox[{"2", 
+   FractionBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["\[Beta]i", "2"], "+", 
+      SuperscriptBox["\[Beta]j", "2"]}], ")"}], 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"\[Beta]i", "-", "\[Beta]j"}], ")"}], "2"]], 
+   SuperscriptBox[
+    RowBox[{"InverseErfc", "[", "A", "]"}], "2"]}]}]], "Input",
+ CellChangeTimes->{{3.7789451133983593`*^9, 3.778945185413146*^9}, {
+  3.778945446992125*^9, 3.778945447478743*^9}},
+ CellLabel->"In[2]:=",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Ts", "[", "dat_", "]"}], ":=", 
+  RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]], "Input",
+ CellChangeTimes->{{3.778948523412203*^9, 3.778948610089134*^9}, {
+  3.7789486512266293`*^9, 3.778948654153482*^9}, {3.785091924316422*^9, 
+  3.785091992968083*^9}, {3.785804631517852*^9, 3.785804644235256*^9}},
+ CellLabel->"In[3]:=",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Cstmp", "[", "dat_", "]"}], ":=", 
+  RowBox[{"With", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"ts", "=", 
+      RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"#", ",", 
+          RowBox[{"#", "+", 
+           RowBox[{"ts", "[", 
+            RowBox[{"[", "2", "]"}], "]"}], "-", 
+           RowBox[{"ts", "[", 
+            RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "&"}], "/@", "ts"}], 
+      ",", 
+      RowBox[{"dat", "[", "\"\<ps\>\"", "]"}]}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7789537137281647`*^9, 3.7789537203664207`*^9}, {
+  3.785804654584515*^9, 3.785804658431868*^9}},
+ CellLabel->"In[4]:=",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Cs", "[", "dat_", "]"}], ":=", 
+  RowBox[{"With", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"ts", "=", 
+      RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", 
+    RowBox[{"MapThread", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"Mean", "[", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"#1", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], ",", 
+            RowBox[{"#1", "[", 
+             RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{"c", "[", 
+           RowBox[{
+            RowBox[{"#1", "[", 
+             RowBox[{"[", "1", "]"}], "]"}], ",", 
+            RowBox[{"#1", "[", 
+             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", "#2", "]"}]}], 
+        "}"}], "&"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"MapThread", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#1", "+", 
+            RowBox[{"{", 
+             RowBox[{"0", ",", "#2"}], "}"}]}], "&"}], ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"Most", "[", "ts", "]"}], ",", 
+            RowBox[{"Differences", "[", "ts", "]"}]}], "}"}]}], "]"}], ",", 
+        RowBox[{"dat", "[", "\"\<ps\>\"", "]"}]}], "}"}]}], "]"}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.7789479000625353`*^9, 3.7789480157738333`*^9}, {
+  3.778948503834503*^9, 3.778948518745183*^9}, {3.778948666921554*^9, 
+  3.778948688346896*^9}, {3.7789536224795513`*^9, 3.778953623110043*^9}, {
+  3.778953673879937*^9, 3.778953685238799*^9}, {3.778953742582839*^9, 
+  3.778953745606895*^9}, {3.7850922784387903`*^9, 3.785092334045607*^9}, {
+  3.785804672596216*^9, 3.785804675153932*^9}},
+ CellLabel->"In[5]:=",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"logZ0", "[", "n_", "]"}], ":=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"n", "-", "1"}], ")"}], 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"n", "/", "4"}], "+", "1"}], ")"}], 
+    RowBox[{"Log", "[", "2", "]"}]}], "+", 
+   RowBox[{"Sum", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       FractionBox["k", "2"], 
+       RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", 
+      RowBox[{"Log", "[", 
+       RowBox[{"Gamma", "[", 
+        RowBox[{"k", "/", "2"}], "]"}], "]"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "2", ",", "n"}], "}"}]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.784991222937964*^9, 3.784991266472834*^9}, {
+  3.784991403570047*^9, 3.784991404177*^9}, {3.7849915386807756`*^9, 
+  3.784991539440803*^9}, {3.7860403579487467`*^9, 3.7860404711525*^9}, {
+  3.7860406298600283`*^9, 3.7860406306484127`*^9}},
+ CellLabel->"In[6]:=",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"logZ", "[", "n_", "]"}], "[", "\[Beta]_", "]"}], ":=", 
+  RowBox[{
+   RowBox[{"logN", "[", "n", "]"}], "+", 
+   RowBox[{"n", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"n", "-", "1"}], ")"}], "/", "4"}], 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{"2", "\[Pi]", " ", "\[ExponentialE]"}], 
+      RowBox[{"n", " ", "\[Beta]"}]], "]"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.7860366301695232`*^9, 3.78603671133499*^9}, {
+  3.7860405792534246`*^9, 3.786040612454341*^9}, {3.786040708688937*^9, 
+  3.7860407113402042`*^9}, {3.789830910073181*^9, 3.789830910887369*^9}, {
+  3.789831116169219*^9, 3.789831161489019*^9}},
+ CellLabel->"In[7]:=",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[CapitalDelta]Ss", "[", "dat_", "]"}], ":=", 
+  RowBox[{"With", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"ts", "=", 
+       RowBox[{"Ts", "[", "dat", "]"}]}], ",", 
+      RowBox[{"cs", "=", 
+       RowBox[{"Cs", "[", "dat", "]"}]}]}], "}"}], ",", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Mean", "[", "#1", "]"}], ",", 
+        FractionBox[
+         RowBox[{"#2", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"#1", "[", 
+             RowBox[{"[", "2", "]"}], "]"}], "-", 
+            RowBox[{"#1", "[", 
+             RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], 
+         RowBox[{"Mean", "[", "#1", "]"}]]}], "}"}], "&"}], "@@@", 
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Rest", "@", 
+         RowBox[{"Rest", "[", 
+          RowBox[{"FoldList", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"#1", "[", 
+                RowBox[{"[", "2", "]"}], "]"}], ",", "#2"}], "}"}], "&"}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"0", ",", "0"}], "}"}], ",", "ts"}], "]"}], "]"}]}], ",", 
+        RowBox[{
+         RowBox[{"Cs", "[", "dat", "]"}], "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}]}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.779561994673626*^9, 3.7795620342479887`*^9}, {
+  3.779700498628436*^9, 3.779700513292344*^9}, {3.7797005747090063`*^9, 
+  3.779700575188902*^9}, {3.779700627710291*^9, 3.7797006535654173`*^9}, {
+  3.779700716133662*^9, 3.7797008200306168`*^9}, {3.779700857824486*^9, 
+  3.7797008584386597`*^9}, {3.7797008994884863`*^9, 3.779700901055118*^9}, {
+  3.779700939144706*^9, 3.779700939215414*^9}, {3.784991004834445*^9, 
+  3.7849910388807697`*^9}, {3.78499127505939*^9, 3.78499130611341*^9}, {
+  3.784991358538706*^9, 3.784991380665337*^9}, {3.78499900310424*^9, 
+  3.7849990048956738`*^9}, {3.7860344496890173`*^9, 3.786034449949182*^9}, {
+  3.786034500347063*^9, 3.786034500511032*^9}},
+ CellLabel->"In[8]:=",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Cf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
+  RowBox[{
+   RowBox[{"Interpolation", "[", 
+    RowBox[{
+     RowBox[{"Normal", "@", 
+      RowBox[{"Prepend", "[", 
+       RowBox[{
+        RowBox[{"Thread", "[", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"Normal", "@", 
+            RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}], ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"Normal", "@", 
+              RowBox[{"dat", "[", "\"\<Cs\>\"", "]"}]}], "/", 
+             RowBox[{"Normal", "@", 
+              RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]}], "/", 
+            SuperscriptBox[
+             RowBox[{"dat", "[", "\"\<n\>\"", "]"}], "2"]}]}], "}"}], "]"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
+     RowBox[{"Method", "->", "\"\<Spline\>\""}]}], "]"}], "[", "x", 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, 
+   3.789819474816937*^9, {3.790681092801322*^9, 3.790681117801856*^9}, {
+   3.790681180513014*^9, 3.7906811931278267`*^9}, {3.790681242639571*^9, 
+   3.790681258207963*^9}, {3.7906812901132507`*^9, 3.790681290231492*^9}, {
+   3.790681402002227*^9, 3.790681423050158*^9}, {3.790685542851465*^9, 
+   3.790685542953432*^9}, {3.790685591570828*^9, 3.790685622587248*^9}, {
+   3.7906857070679502`*^9, 3.7906857098174353`*^9}, {3.790686466475259*^9, 
+   3.7906865000258904`*^9}, {3.790686531395797*^9, 3.790686531553914*^9}, {
+   3.790881720932847*^9, 3.7908817264181337`*^9}},
+ CellLabel->"In[26]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"oldSs", "[", "dat_", "]"}], ":=", 
+  RowBox[{"With", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"ss", "=", 
+      RowBox[{"\[CapitalDelta]Ss", "[", "dat", "]"}]}], "}"}], ",", 
+    RowBox[{"Thread", "[", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"ss", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+       RowBox[{"Accumulate", "[", 
+        RowBox[{"ss", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->{{3.779700960584425*^9, 3.7797010023114433`*^9}, {
+  3.7849910515540743`*^9, 3.784991075832299*^9}, {3.784991369146078*^9, 
+  3.7849913764007483`*^9}, {3.784991547938244*^9, 3.784991556568716*^9}, {
+  3.7849917900181932`*^9, 3.784991803720964*^9}, {3.784991863633103*^9, 
+  3.784991884800845*^9}, {3.784992068826951*^9, 3.7849920762732773`*^9}, {
+  3.784992122226707*^9, 3.7849921237610617`*^9}, {3.7849921543708973`*^9, 
+  3.784992167089695*^9}, {3.784992239922765*^9, 3.784992242761147*^9}, {
+  3.7849989835196743`*^9, 3.784998984447055*^9}, {3.785000974761281*^9, 
+  3.785000975480179*^9}, {3.789830929032741*^9, 3.789830929207098*^9}},
+ CellLabel->"In[10]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Sf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", "y", "}"}], ",", 
+    RowBox[{"With", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"c", "=", 
+        RowBox[{
+         RowBox[{"Cf", "[", "dat", "]"}], "[", "y", "]"}]}], "}"}], ",", 
+      RowBox[{
+       RowBox[{"Interpolation", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"#", ",", 
+            RowBox[{"NIntegrate", "[", 
+             RowBox[{"c", ",", 
+              RowBox[{"{", 
+               RowBox[{"y", ",", "0", ",", "#"}], "}"}]}], "]"}]}], "}"}], 
+          "&"}], "/@", 
+         RowBox[{"Normal", "[", 
+          RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}], "]"}]}], "]"}], "[", 
+       "x", "]"}]}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.789817903707137*^9, 3.789817918665738*^9}, {
+   3.7898179830831623`*^9, 3.789818070963172*^9}, 3.789818128172594*^9, {
+   3.789818328048049*^9, 3.789818328991467*^9}, {3.78981865828652*^9, 
+   3.789818665814815*^9}, {3.789819419187801*^9, 3.7898194204672337`*^9}, {
+   3.789831192249136*^9, 3.789831192735342*^9}, {3.79088174691607*^9, 
+   3.790881879203828*^9}},
+ CellLabel->"In[38]:=",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ff", "[", 
+   RowBox[{"dat_", ",", "\[CapitalDelta]x_", ",", "\[Delta]x_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", "x", "}"}], ",", 
+    RowBox[{"Module", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"n", "=", 
+         RowBox[{"dat", "[", "\"\<n\>\"", "]"}]}], ",", "\[Beta]", ",", 
+        RowBox[{"xmax", "=", 
+         RowBox[{"dat", "[", "\"\<\[Beta]1\>\"", "]"}]}]}], "}"}], ",", 
+      "\[IndentingNewLine]", 
+      RowBox[{"Solve", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"Sf", "[", "dat", "]"}], "[", "x", "]"}], "/.", 
+           RowBox[{"{", 
+            RowBox[{"x", "\[Rule]", "xmax"}], "}"}]}], ")"}], "==", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"logZ0", "[", "n", "]"}], "-", 
+            RowBox[{
+             RowBox[{"logZ", "[", "n", "]"}], "[", "xmax", "]"}]}], ")"}], 
+          "/", 
+          SuperscriptBox["n", "2"]}]}], ",", 
+        RowBox[{"logN", "[", "n", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
+     "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7898311955449543`*^9, 3.7898312093030577`*^9}, {
+  3.789831243231729*^9, 3.789831244079329*^9}, {3.789831294191235*^9, 
+  3.789831426152293*^9}, {3.789831478986567*^9, 3.789831485824489*^9}, {
+  3.7898315199939957`*^9, 3.789831522392721*^9}, {3.789831606978533*^9, 
+  3.7898316137600183`*^9}, {3.789831690098496*^9, 3.789831713568328*^9}, {
+  3.790686819364822*^9, 3.790686924891573*^9}},
+ CellLabel->"In[12]:=",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"d", "=", 
+   RowBox[{
+   "getData", "[", "\"\<~/doc/research/hadamard/code/monte_carlo\>\"", 
+    "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.778948447393362*^9, 3.778948476191824*^9}, {
+  3.7795618755287123`*^9, 3.779561880399358*^9}, {3.785804692431429*^9, 
+  3.785804692864304*^9}, {3.7858129014364243`*^9, 3.7858129030771227`*^9}, {
+  3.789743002867009*^9, 3.789743004777854*^9}},
+ CellLabel->"In[15]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"d", "[", 
+  RowBox[{"All", ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"#n", ",", "#N", ",", "#\[Beta]1"}], "}"}], "&"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.790500857951195*^9, 3.790500873614827*^9}},
+ CellLabel->"In[16]:=",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"],
+
+Cell[BoxData[
+ TemplateBox[{TagBox[
+    DynamicModuleBox[{
+     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
+      Data`UnorderedAssociation[
+       "RowCount" -> 8, "Length" -> 8, "InitialType" -> TypeSystem`Vector[
+          TypeSystem`Tuple[{
+            TypeSystem`Atom[Integer], 
+            TypeSystem`Atom[Integer], 
+            TypeSystem`Atom[Real]}], 8], "Shape" -> 
+        TypeSystem`PackageScope`Limited[
+          TypeSystem`PackageScope`ColumnShape[
+           TypeSystem`PackageScope`RowShape[{
+             TypeSystem`PackageScope`AtomShape[34], 
+             TypeSystem`PackageScope`AtomShape[34], 
+             TypeSystem`PackageScope`AtomShape[60]}]], 8, {}], "InitialData" -> 
+        TypeSystem`PackageScope`CacheHandle[1978936466], "Type" -> 
+        TypeSystem`Vector[
+          TypeSystem`Tuple[{
+            TypeSystem`Atom[Integer], 
+            TypeSystem`Atom[Integer], 
+            TypeSystem`Atom[Real]}], 8], "HandleQ" -> True, "RowTarget" -> 20,
+         "Data" -> TypeSystem`PackageScope`CacheHandle[1978936466]], 
+      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
+      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
+      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
+      DynamicModule[{
+        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
+           Style[
+            Grid[{{
+               Pane[
+                Annotation[
+                 RawBoxes["12"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[1, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["64"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[1, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["25.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[1, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}, {
+               Pane[
+                Annotation[
+                 RawBoxes["12"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[2, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["128"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[2, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["50.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[2, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}, {
+               Pane[
+                Annotation[
+                 RawBoxes["12"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[3, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["128"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[3, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["50.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[3, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}, {
+               Pane[
+                Annotation[
+                 RawBoxes["16"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[4, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["64"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[4, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["25.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[4, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}, {
+               Pane[
+                Annotation[
+                 RawBoxes["16"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[5, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["64"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[5, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["50.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[5, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}, {
+               Pane[
+                Annotation[
+                 RawBoxes["20"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[6, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["64"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[6, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["25.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[6, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}, {
+               Pane[
+                Annotation[
+                 RawBoxes["8"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[7, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["64"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[7, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["25.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[7, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}, {
+               Pane[
+                Annotation[
+                 RawBoxes["8"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879]
+                 [
+                  GeneralUtilities`Slice[8, 1]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["128"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[8, 2]], "Mouse"], 
+                ImageSize -> {{34, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}], 
+               Pane[
+                Annotation[
+                 RawBoxes["50.0"], 
+                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+                  GeneralUtilities`Slice[8, 3]], "Mouse"], 
+                ImageSize -> {{60, Full}, Automatic}, 
+                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
+                 MenuItem["Copy position to clipboard", 
+                  KernelExecute[
+                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
+                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
+                  MenuEvaluator -> Automatic], 
+                 MenuItem["Copy data to clipboard", 
+                  KernelExecute[
+                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
+                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
+                  MenuEvaluator -> Automatic], Delimiter, 
+                 MenuItem["Paste position in new cell", 
+                  KernelExecute[
+                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
+                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
+                  MenuEvaluator -> Automatic], 
+                 MenuItem["Paste data in new cell", 
+                  KernelExecute[
+                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
+                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
+                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
+               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
+             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
+             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
+            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
+             ShowAutoStyles -> False]], 
+         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
+         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
+        Dynamic[
+         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
+         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
+            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
+            
+            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
+              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
+              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
+                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
+             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
+              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
+                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
+                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
+                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
+                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
+                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
+                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1776548879][
+                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
+               Not[
+                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
+               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
+               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
+          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
+          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
+            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
+            TypeSystem`SparseGrid[
+             TypeSystem`H["(data no longer present)"]], 
+            If[GeneralUtilities`$DebugMode, 
+             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
+               TypeSystem`NestedGrid`PackagePrivate`formatState[
+               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
+                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
+             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
+         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
+        DynamicModuleValues :> {}], 
+      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
+      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
+        TypeSystem`NestedGrid`PackagePrivate`alignBar[
+        TypeSystem`NestedGrid`PackagePrivate`$state$$][
+         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
+          TypeSystem`PackageScope`Pathbar[
+          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
+           TypeSystem`NestedGrid`PackagePrivate`updateState[
+           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
+            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
+            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1776548879]]]], 
+        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
+      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
+        Dynamic[
+         Replace[
+          MouseAnnotation[Null], {
+          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][Null] -> 
+           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1776548879][
+             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
+              Blank[]]] :> (
+            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
+             TypeSystem`NestedGrid`PackagePrivate`path; 
+            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
+             TypeSystem`NestedGrid`PackagePrivate`path, 
+              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
+           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
+        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
+        Top, ImageSize -> {Automatic, 14}]}, 
+     DynamicBox[
+      ToBoxes[
+       Column[
+        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
+          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
+          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
+           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
+          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
+           TypeSystem`NestedGrid`PackagePrivate`alignBar[
+           TypeSystem`NestedGrid`PackagePrivate`$state$$][
+           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
+         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
+          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
+          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
+           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
+          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
+           TypeSystem`NestedGrid`PackagePrivate`alignBar[
+           TypeSystem`NestedGrid`PackagePrivate`$state$$][
+           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
+        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
+          0, {{}, {0, 0.05, 0}}]], StandardForm], 
+      ImageSizeCache -> {153., {89., 94.}}, 
+      TrackedSymbols :> {
+       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
+        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
+     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
+     TypeSystem`NestedGrid`PackagePrivate`deleteState[
+      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
+     DynamicModuleValues :> {}, Initialization :> 
+     Block[{$ContextPath = $ContextPath}, 
+       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
+  "CopyTag",
+  DisplayFunction->(#& ),
+  InterpretationFunction->("Dataset[<>]"& )]], "Output",
+ CellChangeTimes->{3.790500873928317*^9, 3.790680744086668*^9, 
+  3.790681304959074*^9, 3.790881552322233*^9, 3.790881662895382*^9},
+ CellLabel->"Out[16]=",ExpressionUUID->"9128c202-555e-46aa-a242-5149ed47b853"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"sample8", "=", 
+   RowBox[{"d", "[", 
+    RowBox[{"SelectFirst", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"#n", "\[Equal]", "8"}], "&&", 
+       RowBox[{"#N", "\[Equal]", "128"}]}], "&"}], "]"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"sample12", "=", 
+   RowBox[{
+    RowBox[{"d", "[", 
+     RowBox[{"Select", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"#n", "\[Equal]", "12"}], "&&", 
+        RowBox[{"#N", "\[Equal]", "128"}], "&&", 
+        RowBox[{"#\[Beta]1", "\[Equal]", "50"}]}], "&"}], "]"}], "]"}], "[", 
+    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"sample16", "=", 
+   RowBox[{"d", "[", 
+    RowBox[{"SelectFirst", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"#n", "\[Equal]", "16"}], "&&", 
+       RowBox[{"#N", "\[Equal]", "64"}], "&&", 
+       RowBox[{"#\[Beta]1", "\[Equal]", "50"}]}], "&"}], "]"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"sample20", "=", 
+   RowBox[{"d", "[", 
+    RowBox[{"SelectFirst", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"#n", "\[Equal]", "20"}], "&&", 
+       RowBox[{"#N", "\[Equal]", "64"}]}], "&"}], "]"}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.789831908881502*^9, 3.789831945703508*^9}, {
+  3.7898604011843967`*^9, 3.789860408737005*^9}, {3.789864913402884*^9, 
+  3.789864920183464*^9}, {3.789865009416779*^9, 3.789865014802567*^9}, {
+  3.789892804356556*^9, 3.789892813604467*^9}, {3.789893714396906*^9, 
+  3.789893716106145*^9}, {3.7898968668142767`*^9, 3.789896872979452*^9}, {
+  3.789932602730394*^9, 3.789932608991914*^9}, {3.7905000270031652`*^9, 
+  3.790500027298358*^9}, {3.790500832505785*^9, 3.7905008364464607`*^9}, {
+  3.7905008834877453`*^9, 3.790500908670889*^9}, {3.790680745136145*^9, 
+  3.790680750622045*^9}},
+ CellLabel->"In[17]:=",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"c8", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Cf", "[", "sample8", "]"}], "[", "x", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"c12", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Cf", "[", "sample12", "]"}], "[", "x", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"c16", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Cf", "[", "sample16", "]"}], "[", "x", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"c20", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Cf", "[", "sample20", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\
+
+ CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, {
+  3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, 
+  3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, {
+  3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, 
+  3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, {
+  3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, 
+  3.7898194634932632`*^9}, {3.7898319317305803`*^9, 3.789831978527664*^9}, {
+  3.7898649246393833`*^9, 3.789864928959545*^9}, {3.789865019225033*^9, 
+  3.7898650248002462`*^9}, {3.7898928173005323`*^9, 3.789892817580557*^9}, {
+  3.789896880637479*^9, 3.789896886211711*^9}, {3.789932613953886*^9, 
+  3.78993261910413*^9}},
+ CellLabel->"In[27]:=",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        RowBox[{"3", "/", "\[Pi]"}]}], ")"}], 
+      SuperscriptBox["x", "2"]}], ",", 
+     RowBox[{"1", "/", "4"}], ",", 
+     RowBox[{"x", " ", 
+      RowBox[{"c8", "[", "x", "]"}]}], ",", 
+     RowBox[{"x", " ", 
+      RowBox[{"c12", "[", "x", "]"}]}], ",", 
+     RowBox[{"x", " ", 
+      RowBox[{"c16", "[", "x", "]"}]}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"x", ",", "0.0001", ",", "10"}], "}"}], ",", 
+   RowBox[{"AxesLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\[Beta]", ",", "\"\<c(\[Beta])\>\""}], "}"}]}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"All", ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<High-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\) expansion\>\"", 
+      ",", "\"\<Low-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\)\!\(\*\
+StyleBox[\" \",FontSlant->\"Italic\"]\)expansion\>\"", ",", 
+      RowBox[{"n", "\[Equal]", "8"}], ",", 
+      RowBox[{"n", "\[Equal]", "12"}], ",", 
+      RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", 
+   RowBox[{"PlotStyle", "\[Rule]", 
+    RowBox[{"Join", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Black", ",", 
+        RowBox[{"{", 
+         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
+      RowBox[{
+       RowBox[{"ColorData", "[", "97", "]"}], "/@", 
+       RowBox[{"Range", "[", "3", "]"}]}]}], "]"}]}]}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGCQBGIQveXA9HOxNm8cBbfxXwXRSRekHoDog4/DXoDoE1pT
+3oDoV4wb34PofheJryC6K6YUTC8s6ZGJA9LbCvrAtNi/5DAQvSqnNw5EL5Kt
+qGsA0gJh4Z0ges7/W+cagXTJx5MXQXRDcvmLdiDddqvlFYh+dHL/LxCtbPfg
+D4j+XLJBqgNIJ65YpgCiz0Zc1wDROh5huiDaIOj3ialA2s31H5hm0qz5Mx1I
+M//K+guib6wr5JgBpPc0rwLT+xM3z1oKsr93F5jWO1yyEkR/Llq5FkSzzXc8
+DqLX6KicANE80frTlwNp7n99YFpUs2oOiD4WVAOmUxw3cO4E0jMthblA9LMN
+/4VA9CvOkyIguo7zeMh52zeOQf7MYSC6oIU1CkTzKJ4H01/Y7M932L1x5Ns1
+8waIBgDMHsn2
+  "],
+ CellLabel->"In[81]:=",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"],
+
+Cell[BoxData[
+ TemplateBox[{GraphicsBox[{{{{}, {}, 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          GrayLevel[0]], 
+         LineBox[CompressedData["
+1:eJwlkXc41YsDh6WyUpFVZBy5GTfjKjfE+XxpyDWyUigdDmVmpIgKESrKISnX
+zkqyyiyUUcgMJzujY4vTUGT8+j338zzv8z7v3x+SrZuJPSsLC4vPb/5vuWfp
+S/cOCcONt+4LsWNN0/jH4vQK0xFssZPFDPNEcjBl64PpsMuwCuO6JkKtIOeP
+8Ii6cAeBgwHmDcs2spiA8Hlbs5s4aJsR+WSqnxyus6vqZPxdMLj7Bv8NHiOv
+aAiGSX+Jwni1SOIt+XnyPnpcvqTgfcwa7JunLH8nO7uJ94iqP0SodAmjLXeZ
+nMqRtm6HdTx6pU3gKsmK7hQZOf7rSVAdvTpAPsOGsATzx+ymKRiuszYY2LwJ
+u6YeaG5kpGLynK+OlBAPKv/ua2f1TkMIi4QxMbQNlkGiZ1k4M9CwJ7lGe0QA
+tJ2pd37teQwNQml0KXIn9jh+klyszEYRn8TRbjEJ1BftLlkwyoGEsYBpBq8k
+Vg2ffGR65cH5sQ5bvP5uNDUvlHkH5UOvNji35p4MhL8JBV/SL8CqjOJt60U5
+FBOW270GCzE3zphf2KSEDef8Rjwzn2Ej50d5psNfMImIz/Fwf44NrVs2/tGp
+jNmeQcKNtRgvdLddV+tSgdQFqqPT7jKILGUVC1zXgOfD4L2Oc2Xw1T5R129E
+xquq9JVzpeUYERIr+SxIwIp7gmb/z0uELJu9Pcypjah0l3LK+SocfcR1w+Dg
+EcwzjlTnibyCqJXGxViqDgQvn5BWDHgFqv1N5dVbR2GX5MOU130NU4+L/JJz
+/4BlpvzGn33VMHvWWG7DZgRp/3dT2agBb4/R+GKhEQy39R+TS6sBe5adrwTV
+GPGqKztkXWuRpqXSub3FBPtvIHf3Wh1iqb7mxS3HcV6slk7a1QAX23sxab6n
+INXieVQgsgEzSe4X4y6cRu9VUjnHSgOyz742q3S3hs7AtYQ5eiOYOkMc9Qco
+kIhXs6u41YSErLjqp1a2eL8jj3nySyve6izLNKydRe2n3L8yFNvgnX+H/3nC
+OSRrhEyJn21D4+m+tSJNB5jP7DvF19GGIyGPulaDHFGtF4WlnHY82zJ3NU3W
+Bf9yGbDVUzpQeK1sKGnGHZdspaq0YjvA2m1mZqDvAZPyX94vmjuQZtqsw/bU
+AxxO2ZO56p3oKDieG+fhCa8G9uYY/i5Mc9ZeNmD3gkFYdTS1ng52WSGuPjtv
+rG1UJa0p9mJIMpbn/sQ1FAZpF/Tb9qJ9gr1zp40/7NYZaJXH9CLFf7E1vNcf
+9cs2Nhd/9WLubp4qv0MAIr/eTpl+0wcXAWF5aWogJIY/krpPD8C2iNVWzi0I
+EoMHad2Hh3BIV3I5fTAUizt1LXTODEG9fJxxRTYM760MScU+Q0iKnnWu9wpD
+cM/JgugnQ3jhX65fwX0TE52u7Ya8w1DStLAR076F/HexvHX9w9hukE2vqA6H
+Vtk0reDCKNwpzT9LN9Nwvr8sNTl8FArmOeIRajTErYU+u5s+ipT0TqOH9jR8
+OyzV5fphFHnG695bVNKQ8f7UdrkDn2A92HjMzzMKm2aaE1NZGdjaKKZGMKLR
+JZb/JJo2hhdTDdXt3+6DVfvay+vZY7AS6lTOlI6Fgr1+s0fNGPISpJ8+t4xF
+2JOJz8e+jyGwJPuV9+tYqKuSlLktxlEiTqIm0h4gyTiqNFhiAl7VLTGuGnFw
+DPaqu5g3iQPG8oV8LxNQruDUE9g4iWny28WOpQRw9ZyZjWBMQns2VZmulohs
+eT2BDJEpMG+L+ySXJmKGTrKnh07BuF3eRL8sCe6yrRv2U6axnnwsJWA0GT4t
+sod+8swiVcaBa57zEQ6Fu9loqs0jbEW9qrQsEyNy+236D89jl/SRPwsGMxHQ
+sErxM5mHf9SC4Zv1WXjJdodS5vy7FXQqjhhmYV9gzhmVxHkk+2WqJH/Kwq5L
+k6fl1zNh4WQXUySYDVYK1VK0mYmKh608TpE5eL33hOkK5StIyUW/lmfyUVal
+mH26aQHnuu0i2FxLIEWXEn4rvQSVNLHzyl2VWNXVX3HVXUGE84cMBbMayBkX
+plqeYCFGF5XixbbVgzvnBIvo7DriLTWC7P2jCTL6t6dGfdcTlXtbCyyE2xFo
+vZ/dT24jobghYPeqUieikq4MKFWwEU2vYryGDT5gyER9rNiDg/AL8tsi/7kX
+DnohflpiXITL5heuNZWDyPR0bpx6uomoy+KcGT84DCnuBj27M5uJ6QcF9X97
+jOJkZ1XI8tctxIaqD5c1YxmwCxXyVT7OQ5BAOlW7aQJqOoI/HPbwEj0PWfjq
+YqbglDjcpvCdlzgU+sWcxjv7+9/Jmv6WbUSTmv/ZpZE52JtX8AnH8RGH9eyG
+TI2ZeJrc/djChp/wXr2qQin9An4pJYtANQEikSleW2jwDXSymb3qekGCTryJ
+rad/R0nU81sfBgQJoyIpm9XIH1DhPLXg81yIoIpQ7gSYLmKrUFvl4yvbCfuf
+i3ombL/Abh2QXH18BxHe/fNd6+wyrDRWBp0khIl2ZeaV3ppVWARoRRekCRMs
+/434Hz4rlOc=
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$114440#1"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          GrayLevel[0], 
+          Dashing[{Small, Small}]], 
+         LineBox[CompressedData["
+1:eJxTTMoPSmViYGAwAWIQrbV56a8pLlL2DGBwwV6lODkzS20nnJ8nd+SaovJJ
+OP8/q4Xif/1bcL7jztcTNxY/hvMzW0qOlq5/Cee79OQn2lp+gPMPGocH/034
+DOfv3K+/KvbMN4T911Skjqv/gvP/efr8zfX8C+drBW5aFBXO4ADj86wJZ5B9
+ywjna/h0v3pcxQznN8aZs1drscL5k+bX3DXYywbnPwiyeratkAPOz/Buq3aU
+44Lzlxdln3q1lhvOV+E56Z0SzwvnR1zZ3/bnMx+cn9IuXmUUKgDnW7qLfc/Q
+EYTzs+Y9vKD3FcHfpffy8J1zQnB+atheYalZwnD+2gU3VkYmisD5IioGkY2W
+onD+NbuQVAtmMTh/+6QtXdfvIvimnDHfKraIw/n84hf2rayRgPPZ4xoWHAqV
+hPOjbf7ey1KQgvN9bA8miz5H8GPKDzKu2CcN5x/36Ptzsl0Gzg8Mni5wJVEW
+zjf/mtOYqysH5+/c2WnB+RXBj9r+iKP3rDycr63GIn3BWwERfrym+3x3IvhT
+WztbzqgowvnzPV1+CnUi+BZac6vOfkXw68NiVvlHK8H5oiL2fy/tQ/Ct3u2P
+OaWlDOfziizP6uxH8FXYnm88chzBt/6h9vP/fwQfABTa6Dc=
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$114440#2"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]], 
+         LineBox[CompressedData["
+1:eJwV13k4VO8XAHApS0Jjxr7OGFHSprIUzuGrhSiE7GuislVSREiRJVuhRFQk
+UiSyVNbIMsPY95kWbagsKVl/8/vrPp/nee997z3nvOe5h+LiY+bGycHB8WgV
+B8f/r8ovcuZv6UvC6/kSzj+JK9qmf/+NL02dBIOeme5NZfd0rjqtvz1+PQBW
+P7H52vj0jU7RR4KMJ384qBgaCS4FMnRkRSS9XcyjoIpGMf4sMqITe4BabZUe
+D/blHeeG737RWdISva40nQRyLxzXfVOb1NnVm1YkL5oCgRzeRpSVWZ3TPnID
+MnvuQLpP/rR+zqLOA97sVRIO6TB53GrvXxIn9N/fqCx8JRNOJr5sHdLjhusZ
+lnk8R+8Dq5G+5zGTD6hjt7W5Pj8Av38Rr8q+rIcqtaEOzgvZoB0XEL/zKRFs
+wmVOcKx9BNqJG05Fp4tAovSDuAWVPEg9vPuqv6Q0qJwclf9XlQ+n/+3W8X4s
+B02limV/TArAYu/OdRalFFg+/IQ15VcIri5qy/YNG4BG/1NxIbwIfGqrLy/N
+KIHkb7Gr/kbPYfRPxqqNWsrwEm3E/ZjFMN8e7hcjvg3WuF/6eDb3BRz6rSWg
+07sdzG6kF5zxLYGm9yapL1RU4ccAE304X4JM20ZkLO8ChXOuJ08pVkCi3IX6
+yd174eydqztP/qoAPFry3/QHLaipzllyL6+ELUZ9UmN3dMCW/1uim+FroKx8
+z6gS1YWkHM9KJ+9q4NOcKa6e1IfJz/vrCqVqwNlHdGfN7D4QDTimtC20Bu78
+Vf12meMAHM+8OLXFoBYcS/KdJZUMgGOi8trmoTqYG3Q15ik3BqWQ1rF8qIcb
+0r8uqY0dhsPE4SPK2fWwWvBG0R+CCaRrLEls8noL3Wv+BU+YmIL6NXimuNIA
+oge7x4KnjoK37NteCrUZDDu28JcUW4NC29mDIgnNMHp4L0Ev0gYGgymVvEvN
+0BZNUBpysIUDI5czfvW2wBS55qa8mD2Q0zWPv4mmQWdPHA5ZOEGnROGU1XQ7
+uMwZv7XccRzejj7b8WgbA2J/mKmZvzgOWVoRY3InGEB8GDBdq+YGlhO77Ehd
+DHhXx0/+pnsC6g4lwXxBB5wXzEneddID7vIZczc5dcGXxJrVl+c9wd9FoVo3
+tQv2/ae4pjXJC8wqFy68onfButDBS74q3sB7Kv/7sz3dcLH/tVS1qw/4NfPQ
+k4V7YMZBr5Ey5QvG1+tuujb1AsfabKOBuHOwwqVBWdk2CFvri6pO6gVAcbje
+82GXQTjd3eHgmB4Ax1cZ61YmD4J53J7m/j8B0LTo7Hx+YRBc1g/yWDwNhISZ
+mPvjjUMgIByT6UYOAvIHFqXffgSEm+JJwbIhQGb+l9i/7z3kcDPnn7y6AroV
+44nPz30Caf1qKk9dFHgPVzzIiv0ETy90OCcuRkHaSuSL+JxP4KAf9ttYPRp+
+71Po8er7BDkZdHf7p9HwqNNOXHnvKGT+oL5l3I2BdRP0ew84P8PydIzgaNgN
+6JEtenIz8QskRZS/aC9PgJNX/RrOF34H+Ri32ofjt0A/1sdZW3MSug9PlbtL
+ZULtzmNHl5xmwNj5iuhvWjZUVG/Lt6f9AdvJ0NOF3/JBoVdB8p3SPOw3Kbpw
+KbMIlg2MlrwMlmDgLd91yxcvQNm0+IHNMQ6sK1Q0oWwpA/6CYxwyP1Zhrqjs
+t5aMSthoFDP2KXA1rlLd90tJqwrCHNR5Lilz4R+BJl1141qIOJfAbNjOhX+L
+73z6YVEL0de/lxLUuZDToF8/z6EWkorvHn/0Hxe2/l57YqtvLWRzc9R12HEh
+98k3POdu1kLjs6agjfFcyJ/1hvPHYC3wrVhP98xwYTX/SQLLqw6SMoNGtr/h
+Ru4TrgVPcurBMSVzlvMtNxrZjJCfF9WDyo06gZ4WbvTpC2ipelUP7wJ5dQL6
+uXG3DvHXdEc9LFrculc7w42s9JSR6uV6OMFf4GimzIP5t0O8/lq/Bc2AoQ/n
+Unnwp03STg2xBnhvtufLyzO8qCd0IXa6sBHqrsQTTl7kRYPx7tktbxohu3h0
+j1QIL1ovpkX5tTSCBzE+PiSWFw9GuLlTPzfCVMcnjYO5vCi2MHt5rdQ74DS9
+ETMwzIuuc+2mq6PegcKR99sXD6xFxqf09wTvJvA4FHFJV5YPHcY/KF50bAGu
+97XkUAU+lM1WD2j1boEHfksNVcp8qH6HW3vz5RYYzvAjaKnzYWzpZm1CRguY
+TLrkqJnwYbPAsvSZoRbQSIb2zVf4cLKWYpJi0wq8rDl50S98aAuzU09daJB7
+9nTL2NN1+HNZ60NBWhvwf/ctKipZhyK893QHnrXBWUf/FP9X61BwuuKvcH0b
+6BiFuXA2r8Nf2aGWleNt0LshdV5idB1aCj4+/1q7HbgH6pQNJPnRy17rzd3R
+djgBkjG5EfxoNvHC4cc9BijwNx867iiAOr3BhEfrO8GquzpicUYQrzfye7nw
+9MDxSLFAVQsC3mw5s8HxdD+4XllnHm9FQO8O1+rbF/vBJXhly4QtAf9KNhi0
+XesH53NfP+S4ENAqddRPJasfHBzLDCR8Cdjl5sNR1N0P1urHJDhiCPhUfMI6
+X2sADn9NKafXEPCAlkaSKs8gHP4YnaT8loBVqz4IJ5MGwXjksmfkOwKOWX39
++lNuEIy6TpB12wjY1je767rGIBhUq10vGSLgKplzLkdODoJ+au+xu38I+JFk
+livXPAiaB0T/eqgI4bKld49e2BCk+AULxm4TwsNDX6OexAzB9P3RDYWqQpj+
+ipDBlzIEBYvF5rMaQtj45fG9J/lDQC4+Uhy2Twjna68p+XcNAbdMlFeagxB+
+jgquW08dhs7phU+tCUKoevM+y6ViGLaRXRd+3hRCq8q+auu6YYg1biESU4VQ
+2MS/Xa91GPY9vq1rlSGEO2OeTIwND0O5/e7M0TwhTFjs3Bi/Mgz3mrxtluqE
+cMC6oJRHbwRO3fvA2DorhKQlqz99lSPw5PXT68lzQvg0KWO9V90ITAwG4OKC
+ENL7BBx+No+AjxixqJmTiIc26YaW9o+AX4Je/HECEbfWXaRazI7A5SsPjdM2
+E/FT9Ip2tzITqrN8uFZtI6KhtGnWph1M4Kje+8ZdlYjuejTGKXUmhC90qezW
+JOK9HK7wov+YcN1vDT9jPxFpnM1BB22ZkHTCrYXLhYgcn63McyKY0HV1xxVP
+NyJaxwYVlMQwQfjhkmaXBxGjtz7wKUxgQiorOS/Lh4jZdkWy7mlMSLdqvL43
+mIhfKnYFMguYMOKfhA9CiSjFUxZ78DkTZJMd5nivEjHMN+lrRikT7nf8ce+N
+JiI5u+AcXxUTHhkqHThzm4hKwRHdY3QmfPWYWe67S8QjuS/ECzuYsDGy+qVO
+Jvt+j+Ishx4mPKk/psj/iIgtducCQ4aZUKR1nSv3BRHvOwwYNn1nwpSN+RuB
+MiJ+y9z58MsEE1QDyOf9KonIt6tBa/IXE0pLy0d1a4ko9qBLtWGWCZVbv9cP
+txHRwVBVyZ+DBdYhGyvWdhKROL5HvYGTBXPt7s/Ueogo7Cu9g5OLBbvPfLmd
+METEj6tvf9y3lgXdtRvi3jCJeCbnWJrROhacJbqFj30gYrPJXi1dARYUvfjk
+pf+NiAzLeZ3fBBYcXkN1PTNOxFpZ5axiIgt+mLtY3ftJRN5WxQkHYRYo/3mv
+N/ebiNfEfPeFibGgeT9ZY8McO/4rcPSvOAs8Uh23mC0Q0df2k5GtJAtyNJhi
+BatIOHlqfM0PaRboR8kIDKwhYQ9yvpWUZcHHATtObl4Sqreb+KrJsSBMOf2v
+6joSRrbq8CGZBeRLQxOOgiQMb9RMUqewoKpV8mOsEAl1VEp5ZeRZYC9t01ch
+TEJxfWXvSbYXPe/QvoiRsHG7eP1zKgvS3vTXkqRIeGByNa+zAgs0BcXLUJaE
+P20vai+z3e9wrMCLQkLHjdzHozawwL8w5X6aAgkTPv8XxKnIAhGO3pR3SiSs
+X6ZHnGS7xEQk9rcyCRMr91+tYtvsvnkYZSsJK+o/+q9SYsHU1E3/wztIuFTZ
+4K7KdoJe1+lLu0ioarLOxZTtrTeJzo/VSXh8esjXgW36J1PLnj0kjG/xzLRm
+23NX4iFOHRI+eLUyp8c23zUGbtMlYYjLp+uSbOf1rFez0yfhosg5m/fs/Q8q
+HtkcdYCEw19EA26x/cU/jvzSkIQjmf9NqrF97R1d5JMxCR82BLa+Y3+fgrjA
+OoIpCdtSDEUPsF3nYcShbU7CX+sOD5ew4+FcETN78hgJw/pUNgmxzcHXOpZi
+Q8I5t7u8dux43rPhe19vT8LqEZuIZHa8tZ8Y9Ew6kZAqp/nsDTs/gUZN1Ybu
+7HxTmjcPsvMpkcFTeuEUCav2Wd5pY+e7/Mf+/GwvEnLMlb9/LsOC2biGW8vn
+SCjTortlnxQLbrHWRG++QMIpqTzDWQkWqG7XD7EKJKGyk8fZW+z68u2oO1kc
+yo4nZUkoS4QFgvKcjqxwEl7PDHjAz67Pp2d1zfkjSWhLSvf2YNfvGKlG58QN
+Es4PFYz/EGSBm+UbkmQaCe3vv+7fwcOCuHoRonoGCYNHGiwU2OenfLs3wTyL
+hE5vdovyrGbHf52cQNwjEj4/XJOYscyEZ9Wh3Jwv2PG2ONq8nn0++1QG1si9
+JKHkGmLZtWl2f0vbsVqrgoQzTZaGE+zzbOb3ceV8NQn7nzjfjBljwt+N+v++
+t5KQp/r2emEWE8gp6X+520kINaZRBHa/MFw9O0vtJKFuXpbAcj+7f43kTNv3
+k3DTBfeTBZ1MwCSeiY5RErrvXu471sCEqIUWZsUSCRcKX8bN5jKh2IM60ssh
+jMKkjpNrs5kw3HNpaGa1MOoOvA9cn8WErUUq/Vv4hHH1imjjdCoTOo/HddwX
+FUaFtbnlEpFMkGozfRu1TRiJ0hLSPK5MeJrVn2ftLIwlEh90LYjsfrScfLDy
+uDDWldLeBvMzocnu6FdJD2HMtNTHu9xMGBVvUxj2FsbCR5wjpfMjIJlYn+kQ
+JIzhojDo/XEEIsKeJbumCmNH/ZdSiaIRcHK5GuZFF0bOtsY1AfvY/90K263D
+NEWw+/mF90zrYQgpcdr9WEsETYN6PWPMhmFMP1GoHURwRKPywI5Dw1DjNt0s
+vV8Ep0ZvfPDQGgbP3JI95Wbs9VENvpGyw/BWWVP612kRHCZoJ137MATnd+ix
+7O6JYGfQcoCT6xD06pi7aawWxb25L08tOwxCWVJJdN+IKHJstn/ggv2we63d
+n4slYlhfZPVj09Fe8BwIrrhTJoaRt3+u2Bv1QnZeZlBlpRhOm0d8S97XC0TD
+T5yLNWJ46OjCCSGNXpiMPrU+hC6G3zoKD2rI9EIBf8DGa1/E0OvM7s1HvvWA
+PCHFJlFcHIUC3ae/h/XAejFGVV6QOEYMXzVZV98Nyv2W8oKh4uhxmDHx8XU3
+7L8zcu1suDj+2BAZX/2yGy5LjRvtjRbH0NJDPZH53fBTjnuIliqOPlP04aNJ
+3UDfqPX3V7E48le4Puhx6YaYPY+3qX0Xx47xvdb2PN3A4xCaVWchgcoLSrfr
+7Lsg1DRQ94eVBP5YO5xNsu6CeX2/j2J2EigovSfCw7wLJjZ7KHi5SGBEVFCj
+zKEu6Px35LGYjwQGmqZovtTogvRkuSLP6xI4W2bTck+4C3bQq6pFX0lg4cyS
+vXF7J9hqLTFPkSWxqkAvfOlIJzgYEaKuUSXxWv2jJVOjTnCxo+7MUpTEweyL
+vXkHO+FUkEFkj4okSspwpLrqdkLg6+RtqCmJxV8tF5dVO+G21tZQETNJnFs5
+n9Ip2gndWo6UmnBJ3DyYH977vgOMtGtdRb5KIus8Iyc5uAN26Wg+OzcmiYm+
+jzU8AjtAGp7PdfyQRPn9v5q0L3TAD7x/I+63JGYebeuf8u2AOP2wMh5OKcw/
+FukffLwDGId0181LS2FUnFoe2agDzG1qi5lmUug2cTk0QqYD7C7UrnpcJYXx
+or/09zcx4EF+QRStVgoPzlCUJxsY8G0kVWjqrRSGZsbLpdcz4Jy+N2VPqxQe
+cNZRna9iQLSQlC6tTwrbD8SWt5UyoOyJX+jkpBQ2NW8z7XvInrvfK61oUKWR
+kCZKPBbGACsSKdJeURovWqg16oQwIGP/suCVTdJoG/DCaGMwAzY+7ZZt3SaN
+wHuHxhHAAAgM07HXYq+fzwl858sAT+Gh4DALafwjefN+vhN7jj8Yt9gcKY2V
+ukGXanQZMO3JVFCNkcYwkRmZcmCAdOJW47Q4aXSd2PjquTYDfAfaMk4lS6Pe
+lSlWviYDxE+th3UPpVFoV1JeyQ4GnIpJCDOqkkbWBMdPBXkG8Lclcbf/lkbH
+DMGrXmsYoDb9cav6nDReG1eOv8/JACfRnccyF6RR9OEr1z4OBpQ4dOX6cMqg
+i0pYQ8J8O9j/IhkQCDLYlHlFJGSiHZ4RkmNMN8sgT/A3KmdHO5geTSV0O8ug
+4tXIyuj0dujPs/HndJPBoufEiFt32sGJQ3Z4u4cMUt18xO+ntIPv0+zcG94y
+OP5ub1RdQjvE8RTrHLgkg3cXKU6K19qh5RXNs/KWDNqtMub29W4HfQXO5qx3
+MrinUHVlQa8d1Gc9w7y2yKKVZov4xZk2MPQwmIzZLou1YqbDW6bawG5og2P+
+TlkM01pb/flnG4TWMrW+asqipmNNv+1YGzTdMJlz2i+LjYofpZw/tIGV4i4f
+c0dZjKdt76C3t8HFYwt2exNlMW9nzg459nxWURGlsXZWFn96t/wh+7ZBkUzr
+gdNzsti05y1lg3cbPArjP0ZfkEXmc8ddmz3b4JZB/PlETjm8Y/ZgrbZHG3gP
+3CqWIMghrVte/4JTG8j/y1RR3iyHc+MJ5/RN2yBa4yX5kLMcKhV/Nd29qw1s
+yj7y3qDLoemwYN/aFTo8M061KGXIYfK/EPNbS3TgHD30YKRLDmP4jUjkRTrk
+E0r3bh2Uw47zXof3/qPDv5OR3u1f5DDs8Y/Y0Bk6GAmKjvFykPFsSXG5/jc6
+TNRUHjkkQcbmdkfRx5102Ky4RopxiIwFL3bvS82nQ9P3BKEIYzIGTSt2GufR
+4fhTGV6tI2QcPfM3hOsxHdJ3qc/mmpExjjSoeTGHDvz/nWoPsSZjssEcz+ks
+Ovx0ZIRvcyejZECTyLUUOhTfSZ+Iu0LG+1dWk8LD6aApsLvKuIKM6YXLfG5O
+dJB0PFyxUEnGRyoDGY6OdFgsci/Je01GeueZZRsHOlSZp+Vz1ZBx/y4BBXM7
+Ouinr6S8aSSjYTaJdcSKDiabW3y2dJPRNl1GzdOEDu4GjhSBX2QselfstVuX
+DsnXoq7SFCgYHcdRMKtAh0e+dvfsFSm4w9khewvbL223lf9UouD3ij27T1Dp
+0LujZ5ywmYIP56TkBih0EGWSj1rsoODE1y18jbJ0uK1WTmFqU/Awx5bpV+J0
+SPv6peqXJQXHr76+LyJAh0wD/X/EKApmb/lg6/WXBvJPDT41RFNwS+Rvzld/
+aJBNOEK/GEtBLqeyA2vZftxnfZ8ZT0Gf42l5ub9pUOzmY5CfQmHPQ1PN41M0
+aAxLu6ObTUHGpJBF4gQNJiomNX2rKZjiYHPI5CMNvGX+UKm1FKzxjDr8/AMN
+pkIXBHrrKEj46/+dyPafA9wf9zZS0ESh9nMfiwYrPVLRPHQKqgX4THuM0IA4
+vX/w3iAFZey9t+b200BDOSOQPkvBzIdZZUntNPiuaBfu+peCTRVqaevZTqNK
+xf6bo+C2cKWF2DYaLErfydiwSMGMATv1KDoNatcn1wRzyiPPjq83I1tpYDgb
+y711vTzuHr7w4u47GtjVBCXFbZRHJ+2ODeQaGoRY2uUfsZVHR5fBLwHFNPD/
+kFs2YiePKXf8xETY9vSceXvaQR7xzM2Mouc0sLoSzYp0lsfjToK534pooPqs
+XLjGXR4F1J6n2hXSYJRLJGS7nzyKHNHfdbSAvX8p/ajQDXl89Xit1/lHNBAR
+hqXOKnnk8t1saH+XBnt+Vtu1KFPRruq3S/ZVGnRE/7WyV6Ei16pgPzO2PZS2
+WUxuoSLlYMIjDrZTne4Zi+6gouVoord9OA1+dwbpuKhT0Y0rM0P8Cg0KyzTJ
+8/9RcSFOdzY5hAYKYS8+bbKn4hKNGVQUSINXMuOs1w5U9Hrs/9KVbbNK+eEj
+TlT85lUgL8Z22Exi93lXKprpaSdfDqAB0823ofYkFT/H8s8cuUiD24Zbcq39
+qWjx6DZx6TwNBIRzT0XFU9H/lcn01TM0uEf6oH8okYraE/tvqrO9lSQlJ3CT
+/byWtOgxXxqYEOO7ElKo+ORUTogp20mEC1q3M6j4VeVYGtWHBuICBwRzn1BR
+Ie/EoQFP9vtzf33+9h0Vu1JbZWM9aFDKRYmNaKbivdB0I0O293PZnjjYSsXg
+by4MXrbd17RL0tqouOpge2+EOw3yOcvCu3qo+PMCf0vECRpsX4mw+PiJihsu
+bMxKPs6ul+WabdmfqchdernTim2z5fm1J75Ssary3mFpts8teVd9H6MiTWYD
+JduVBi8XLJWmpqg4NZ0iUebC3n8hYdWLGSqKRUddDWK7b75lyG+Wim+nBHfq
+sT33Tydhbo6KCZuKjrU50yDq38VTlfNUdBXfQ7vFtuS/Yv2gRSoqi+wMs2U7
+f25CVmeZimFmHefl2d47p/hvZYWK7/IN87470eB/LVE6Mw==
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$114440#3"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.880722, 0.611041, 0.142051]], 
+         LineBox[CompressedData["
+1:eJwVl3k4lN8bxpGKNsOYwYxlxiCpbEkpeR4lfa2lZMuWpZClqJS0SLImlJRU
+UkmSypItS8g+izX7XpZsaaPIb35/vdfnet/nOfe5zznvdW66k89BVz4eHp5J
+Xh6e/z+Vsp/9ua1HAYdLzxuz+/7tMvs9/3XxmztcfHH6v0jiQ51rjkJ3v4ad
+B547K+lrxIp13gwSpDzXBEOzcf5rNSWOjjSJ4u1kHg7HTu3TTYno1onaxyi1
+SroJr5Z+WyepfdFZ1CaHrZ+NAymVl6+F2qd1NNoS38iS74BGxkzJ0fs/dU74
+yHRI7bgH5lvD0sbkF3RSBJ7yStgnwQ/ddQGWH3mh/bGikujVR+BYuNP+6PBy
+CHtg8WLlocfQe+7er/s+q4AxfnfX8s8poMUSjo89JgQlml2NfP5PYY2YT/Yx
+FxGwCZY6xiOYCh4JewonDUkQK5kS/XfTC1C6sc7SLI8Km9yHZedL0qHdp1ni
+vbYM1OQq5P06kAGcEmEliwt0+Gf6su/b6dfASEyUeRQsDw3MXwX+wW+gepzn
+Y37meqD8ELt21vgtuNRuK0v9vgHeoY346d4siKjZ+epWnTLwH78w6Ps8GzwO
+W8QqZ6rCwRtJGadO5oDYC6G56mXqMNnRiz587yBvQrdtqEUD5Pyc3T0UCmBB
+cKhz/9qd4Hvv2hb36QIwGn75y71QG8pKny0ezy+EhA5eb46fDhxZMxrravge
+OvZdbn2+XBfinnkWOnqXgkGiL6X7sx7MfNYvf00tg9TFmyXjE3uBfN5yvcqV
+MrCtZFRNzuuDy6Nz3zYbfADJfdqN+fIGwDNRGLKxqxxuhcVnFFWYwPrL9ePp
+UAH3Zs//+zhvCqYi3fuVnlZAt9WFtDrKAUjaviixwasSlPmv/NvqYAbbQiBT
+YekjqL/Yrbp5lTl4S1e20Rm1MKWYIrbxizXIsXz/I8XUwu1nxht/ldhA50V6
+ocBiLQRo9nbOJB6BfT2XHky31cFPqfJnx23tgJak5VIc0QASpXqbLl91hCaJ
+19+sZtlwRD3kyNJpF6gczlRLVeGAi5BDlvQfF0jWvj4uc4wD2S0xVu+vuILF
+hIYtsZkDYZ2Ue55xx6DcKA7+ZDRCalzCW/9qN7i/ymRFjWMzlG+M5Eyc9YKz
+TnKlugnNcEsg/woQveFg4V//ImYzOOskjsy98QYBj/SxzB0tMCQ8KJU44wOn
+a1cy40VbAYrO79yGp8AkrPyWc00bbHJ0Lb014wdLy7fTl1Q6oTNcZ1856zxk
+Be9+2+3UCce8KvM8NwaAC6+JbmF8J/hQ9MUfhwVAzcLRo2f+dnL3VUfaM70L
+EPM98vHXqi648oOwgVARCLSBPnq7XQ8sfiosW2y/DLTePbHte/uBcoua90c9
+GHQLvsa+9RuCgTNlm36eiQDv7oKU5Kgh0KAEnQ/NioDEpdDsm8+G4BzTPdd0
+OgJ+7JVr9fo0BNcMbulfcI+E1CZbcaWdwyDnNDa1zzEKVk8wH6bwfQZXO3Wp
+MMtoaJV+8/JW7BdoUvIfebI1Ftyvnf545vUY/Jip1QmNjge9KJ+ju7RmgCK2
+3IUpmAwftlgeWnT8Dke+w6lbl59BQalKul3DL4i/tTtgc99LkGuTo1Sv/wOP
+1++9SNj1Fv4ZGC96GSzCvmLRhdU+OaBklpViY8mDKywanzTO5cGaDEseqUle
+PGu+PirTrAgUjSPHhwKWYT9bgMW+XwJB9ttWXlBajjG96Sr9oh8g7lFgj2rx
+CtztaxNDKSiH/oM7vrw7JYAa09dfKgZUgpvR9Qu60qtQ/95H8u+NVfDc90Td
++KvVuO66bVlRcTXIrak1cnFYi6mzKuZqZ2vBqqX0+sL3dfhMlhBJV66H3bFn
+FNv+rEMR2bfRApr1sMl0Y91rXiF0DRzM/bGrHpaq76x1FhLCnzLH8rtN6iG1
+yOt2rZIQHtr9L27Sqx5+pFBT7hwVQkgr/i77uh5iTvkXq7KF8PVXjV4nzQYI
+UN7ssKpNCAv7KouJ0AAuXwd5hruFULNnx7WGfQ2wzdVUL2FcCCNVVx2xsG4A
+n4y4z//4CGgwUmzIDmwAcrK7p6s0AYOfnHP2/8itDxULUD9MQCM3E9ZreyY4
+X11tftOKgFVXxvafd2OC08WlzRNHCMgOodH3+zLhqN/IwDMnAvYITBrTrjPB
+3iHPQOIkAVflPRS0y2SC9TZLCZ5IAr7ZmvHCmZcFpiN38pllBHxwQrBaLZvL
+gxFxSpUEjGwR9flcwgKTnkueodUE/HRc2jqjjgXGzcdouiwCsjiL86cHWWBQ
+qhmW00VAk88OaXMibNBLaLO8/4uAsXJfRfnPsUFrH/m32yZhLHy/OnO5Egfu
+nL64LkpFGIPLclTaVTkw+3hY/rW6MFrZn9XI28aBjIUs85/bhfFbiFXA/b0c
+oGXtzwraK4x3tlsO8TpxYIVUuFeivTCqSuQNez3ggLPhzLXio8K4Sb+cJfWM
+A2X+lkn9LsLIEuYl9WRw4HyTfL3CCWHcIrrzZMR7DkyElitm+wtjdty7S8+6
+OdA0+3eoPkYYY1UWcQWtEVRozn+nbgmjiHjM3AfFRogyqRMRSRBGXfcnvDFq
+jbA37a6u1QNhpOmfr3Xe0wj5dlsfDb8QxjCO6aXp443wsMbbZrFcGCNiAwor
+cxrB4+EAR/mnMLa7bnms4NAEL9+/CoufE8YLmory8SeaYKLzPC78FcbG/lNH
+ZM81gY+YyJtaPhFc02yFibFNcDpm900XgghKsxqTBaua4NLVJyaJG0XQorqX
+unVrM5Qm+yznVRFB3MP3KH9PM/CU7iw+ri6C4YbFvo4HmyH4b/OmrVoi2ONM
+uCB9shnCTvOv4eiLIHVh1zn7V80Qd8y1brmTCN47Hb3XWKUFmq+pXfV0FcGD
+0hbv9bAFRJ8sajW7iaDAOeJ6N7MWSOiLf5HsI4KqO/MT1U63QJJVVdjOiyJY
+vN/LuquoBVIN1+87dVcE63/QBKYOtUKh8lhFN0sE933eM74rvQ2sLysWCDaJ
+4LMGl/7R0jaYYx/P1GwVwfdrm/WrWttg66kvd2O6RJBR/Z1O4fsEb7KHvPRG
+RfB3zJCRut0neLa9VyyDl4hblFtXhkq1g1641NoOfiISF0Jf39Bsh8EOW74V
+AkQc+yzeztzfDrQLXRMO64i4wVfx3MLVdkgsbv9ApBKRftk+QWaiHWJ2N5+4
+oEHEHdUDCkO1HaB8S+Ro2jYiBrESVuR/6QDmkJlF6w4iFrWt3ctc1gmrQjio
+oktEL9LmwQKdTgipZpKGTIjo2KJVkpLXCQHGNaWGx4nonz17eCK3C1wtiomU
+RCJS8x72bf7SA9EVJJFtD4jY6Z16krOqF/JVvQnmyURc3jK2PF+lF1atllkb
+nUrEfDaPm0VAL2SWXlnBl83tb0PSaBTpg9+KevNj9UT0lrm2ykWxH8L/1vUW
+LBIxaYX4vMeVAchyY/S08YjixxGzM2sTBqC79ULX92WiqO8yP8R5NQDKbza1
+b14livlzubkFXQPQ5BLd+JgsiqZilyfXaA0ClWVWGa4iij0Wp7eGzg/Cq+T2
+F9ZHRVH60yF6ws1hKPwX/1+hiyi658geXZYxDDW2h0YobqIYTBpwCK8ZhmFx
+lly3tyiWrL2n38/7GSixFY/sA0VxtkOnKO3MZ7gelBnvnMDV9/roWZ6jX8DR
+6VqQF1MUb2obEJfpjoJ3mS6NxeHqbXaiUR1G4YL0Uolyiyj+8bF32HRxFO50
+nl+Y7hRFb33dF1sKRoF50Mffd1QUH1WLFT5THYMde2y8/JeR0H7pqeY8dRxE
+5VStg7RIGHxQTb2i5ytcznHcmqZNwjSVrB/MX19hXC9WmA0k7OTP9swUmoAy
+19laSX0SbvW8OziOE+D5PGdH/kESEn7Feao8noBKJS3J6RMkrDF/Oj5nOQkq
+Re5zJB8SPpcX9Gv2moREo8QWbV8SrlJ3Yp8KnoSTnn+jIs6RkDQadP3Hq0mQ
+zCxelA/hjs96MjGyNAln1Hb32T4k4Y7B5bwad6ag/4NvUfBjEv5X/WE48fkU
+GB98kpD+lIT7324VeJM/BbJ+/Afm0kn4wPFI9FDHFLByqspu5ZGQMlhGcBWf
+Bq29v5MKC0mY62jquWX9NDxtXX9+oJiEe8v/43+1dRoCfoWpqVSS8P5DC9dk
+s2lQ2G6UUschYemH71bnQ6YhtubCpW/NXL9eF3+Ki52GBasMG/FPJJyyZlof
+fDANTefXEo/1kHDFO7FlZdnTsGuVznRUPwmd65fOepZMQ1qid332EAlZLmGh
+RTXTcKmIHcw7TsKrKaeIOt3TMGbE46g4SUJVXtN2n8/TYN6tqr1/hoTzsmNM
+nJoGpcXYH0m/SDgutKO7+N80xN8o51TMk9CsVClGY9kM8Eh/zxhfIKFWgU1b
++4oZaNMxd92+jIwKlhsvRa2dAYWysYGUFWT8GW7M6STMwBndy/ZrV5HRsvDx
+piniDFSWi3b5ryWjaq/ZgSryDIjqpVsOEshoe/PEnJPEDLh8hBZjUTKmrf48
+UEGdgWz91gN5YmQ8Yr9QOyo1A3w1Hkw6lYy/zOzvNsrMwEEDHsMoaTK+CGkO
+uUSfgZS6+KpfdDKqeJ5pmZadgW9GG/cclSejsk1ClbzcDCCzrLRekfv+etVD
+mvwMxJhaaGtuImOyQN2jfi73s7/mJ6uQsb0rZc0xhRlQMQvaunoLGQndkYpv
+uXypiZx1RpOMJ6rnNcu5zDqUodyvRcaJXfcv3OOydKvuS8NdZNzIY7JjG5e9
+LD6tz0UyKu1Oe3af2//9J8+nMnpkXKuSXlnF1bPGmo8esY+MXvPPEvIZM2Db
+mfDghyEZ66f+SZ/i6n95ZDPFwZSMYf6KR2ZoM/Cnu/xOrRkZJ8mpxprc+Rva
+WxE1DpNR7sTqH7u5/iT2Td58aEVGnc0LZmSuf2OOwWsEbcm4WW3T8TfiM7B9
+UDzcz4GMda4OGsJc/8OcM5f3OpGR0+JeuJ27Pu3De67+d4yM+U8Elq3nrt/6
+Yx3/stzJyO+fcrZ7zQxUufHPhZ4ko/8habdHy2eAPH7v9KwfGekbFjdl8s6A
+6wmVb7b+ZBRSFDBf+3ca+L1txtUukVFsZX+J8hh3v01PH0sKIqNkeUPl475p
+eHIyZGhFCBk1Vu93fdU6Dbv93nR3RZJRarN6+q2yaYj7sdda/yYZL59Z2Xcy
+d5p7T+9qfRNHxhDzdO2vL6bhyrkV7JB7ZFTzM0zP556Xkou2H1Sec+fnbVxa
+YjsN65a+7UpMJ+ONnzO5N0ynwe5KaCF/Jhnlm032LAD3fF3Nyu7IIWMFNc6u
+gD4NO8IEUoPLyajlw7lR0T8FeXE5EZ96yHhrFU9up+kUxKg6E9QHyLjXI+B1
+2s4p8GAJ34kaJuP0Bo09mopTIL3K57HuVzKeV074eJdnivu/3ZD/co6MRaTL
+7qGZk2Bx8uHny0QxnKxZue/rvwn4ZRKGigZiyBe53ajJ/ytsFbT9dS5HDD8O
+bB/WXT8Knh0XC+7liWFeXmXrxnWj8PTFo8DCQjGc0KLclfw5AiKGQ3wLZWK4
+1YeyV7RiBGYiPIQuM8XwxjJVfTeHEchYc14x5Au3/yqVqmWJX0CWcMcmVlwc
+BRrparson8GmP08qiyqOvBbXnQa4uSX2TUd/k7Q4HvCKeHr/6zDwmEkdF5UX
+R8WVJYHmxcPQE/vUL0FNHMdu0wO/HB2Gu8TsqAeG4hiB7iuHXw+BkBin5EWg
+OCrJpn3zdRgEpXYL2XVXxPFbZeaP2waDoH+vJ8Q3WBzLd7artW4ZhEvUr8Y7
+I8TxX6+F5RuBQZiSWdHVkCCO+VcEK9uyB4CpqP17Okscfx0nxVEIAzA6Vm5j
+/k4cmxJT5jQX+oH/pUFJfoE46ooHE86M9oP2ZsuQoDJxnN58yczyQz9kqPkS
+iSxxbFxfuqrodD9E7khT0RwTx2XZMclelX2Q+lf5VuKEOErHXi4nPe6D8ve5
+v/5Ni+OxJ15nV1zqgz86FcXVv8RRsDPkdOn2PvDY02tkzS+BkY8VPl152wsG
+xqJugTISGERc61fzugdW2l9JLj8sgXY+f5diu7g51CxAd9JKAh19cpatK++C
+P3qnB8VsJVCUMGhdmNYFExvd5LycJHBfob/8k7Nd0DS/P03MRwLJI27/vRbt
+gqR4mTeeYRIYsDe/IMi6E0jhEmYJkRLY1Ih7xnZ3QnQgcfZDtAQWVVa8urip
+E4KcV2qIxUvgNTnQ28TDzc1q03kfHkvgJYzSS3zRAWrMklJykQQ+C/odHMrf
+Aell+Y66JRLIORXjnDLTDnI5WbyeHyQw9saBG1+624F8P3XPh2oJpJqebRnL
+bYcFt+jqEy0SyJsaWNzq3g5V/PbsskkJVLo4nLyu4xMc0V7s9aBRUH3Q95Jp
+cxvYGxPCQxgUnDpQtcGtsg2cbBlbkhUo2Bw4t/g4tw08Ag1CWzdRsC23RvHM
+3TYIeB+vgloU1Nnz712cQxvc1Va+QjpIwQsFavl+31shyVhXSfUwBVuu0eN8
+v7RCsq15i6EVBcP3E57e6GiF54EBilfsKWjytdVbrKwV3r2v4ox7UHDELTXG
+N7oVWrQd6GXBFNxuTiavU22FdmPf+s7rFKw32SacJdcK3bYhZ36GUzBnmHDI
+W6IVhgJf1irFULDw3yK/yrJWmH3/+1R8EgWHa3/GNXxqAcKumHKPXApWyN+P
+OxTSAsa7PjiTRigo9KSIeGymGTR0tDL9xilYNnti3/KRZpCEt3ONkxRk3PMp
+Kuxphkl8fCP6BwXnFcSCjtc3Q7ReUN5KPioai2zRK3/eDBwj3dV/JKno7amz
+z9ClGfKNCw5b0ajoVMeXoG7bDMkmasnvGFTcJfc6YrN5M5zaT9/qp0RFW0Ep
+Xxu9ZhA5xOswsY2Kv9wTa8Llm8Hc5kNW70EqFt6Y3b36axNoH9Fa1Lagokm0
+2yzfcBPI2b7dd9+aikW7HlJX9TTBT7vH3ZaOVFxX1+Cpz26CO0eDVjR6UdFX
+SZ73dE4TtLvp2lSEUfHrCx7fiKAmsPX/wJtWQsXjaf18PfJNkJKeEd7wgYoz
+E8/7RmhNMNqTIPytkopz8gkSi9Qm8NPzpu+op3LznpOevkgTRAhTdRs+UZH/
+MIF9YKkR8l6evjIzQ8W+gA02al2NsNDrIED6QUW/pzkP29oaYbeIUYzWbyqa
+ivvlX2tqBNY5evLVRSpecWGt/FvbCMN7WaWiqySxXVLU2qSgEUT61y9tZ0ji
+LO/bHN97jWBFJIbaKUiigqDI1XvxjfBA/9+6qxskMUv7283q2EZQfNUiXa8i
+iZWjqwS1IhoBAoJ07LQlsW1wQ5XPhUbwFO26GHRYEr0LXe7LOjRC9X/RC7Wh
+ktg9LOVrurERZj175dQjJbH5Yd4sHzfPSsYqmyRGS2KdxymlErlGONnBeuAR
+L4k73XcH/yfdCOIeQrD6iST6n3DXeCnMza+RMUHGJZIYtuuwwf15Dqxhxa1g
+/5DEkXefZAuZHNCcHVTeNieJ+ws0W9fXc8CRvMXy0V9JfHTM2TSxhgM59s3P
+ffik8G1vv/mNCg7YTRMNCAQppMq/mnpRwIFMQnyk2UYp3OufTH2dygGzQwmE
+lqNSqCrM23w7mAPtL2zO8rlKYfS0QvfTIG5/HuluVTcpTL27cyrvMgdOvnr6
+/Ia3FIpWfaWOXOBA9MosnX0XpHCT2h+G+2kO1BU1eBbelkLBgMvEOVcO6Mnx
+1SZXS6HHgL2lrBEHGgI+KrPrpDBiNXyPMODAocaw24tMKeyuNxL8tY8DTpeE
+HG1apDAw4VRssx4HgtolfxMHpDD8CCnmpQ4HSqK2yYf+kUJOLkG1Xp0D2356
+BnltlsYcBXr1c0kOGLoZzESqSqPr+bU0OyoHbLvkHdK3SKMgTfE/UQoHrnzo
+1R7RksaMarvvoWIcqLlxYM5RXxqfyKhsvSbCASsFDR9zB2ns1BiLZApw4Jzl
+X9udsdJ40CjlKGOSDRF1n+qtb0ujWdP36z/H2ZC0K2fHuQRpDIv8HlM3yoYy
+hpd47gPu9894dS4Os0FgprdZOV0aY/QH3Pi72XA3rNxQtkIa46RN7eLr2VBQ
+EL5d8Kc0Luv1JSZlsOGNVP2+E3PS6LGyfc/ddDakBq2xZP6VRvHD+UIJaWy4
+bXDzTCyfDJr2n7JLesoG747bWRIEGfw9+kbgYxIbZOcfbVLaKINyt1LNwm5w
+9W5/RzM6KoNTx0XCnpxkw5Wk3yqvXGRwx6lo8c/ebPDn0QIhNxkkdQYcUfRi
+g0tNkV2ztwz2np2dzXZng47Vh8QjgTKIQ7dN+5zYMOvfIOqZIIMrM1tGQg6z
+wSZvUOAGUwZzTWNmV2uzIdMk4XAuRwYPW7+QTdrBBr5ho5SeZhm0e9f5drMW
+G9IJuTuVO2VwbeXOcXNNNsy7h3qzv8hgzYn6l9mqbDBeRx4X4KGh+g32u7fy
+bJgoK9xvJEFD3f9ezr4gsIG8hnS2j0LDzZ2eTi5CbEBLnyQ/SRryx7BJtHVc
+fyYZY/dlaOiaObDn/mo2aFNuXJ2Qp+Fv27knySvYEOXnkHtDncbNC/PPvyyw
+YKMCP5VjREP7/KNoPc6CmrEY4esmNLwlbewmO8YCl1dSAtr7aaidzRidGGFB
+ksa2n88P0jDzy9JIyGcWrNnjwb5sTcPAMz+zqvtZMOXACVY5TsMH64Orwj6x
+IOte0kT0VRqmU+ZUvn9kgdbarSUmBTQcv1DE+f2MBdzLfsHfQhqOnL3zcjWX
+F94cz3nxnoZ/iGfMaU9ZUGKemL68jIa8nrwCxiks0EtaulNcxa1fCHif8ZAF
+BzbW+WxuoWGvyfuw2AQWHDdwoK+d5vo3WzPZEc6C+JDwaw1ydKz05ROUP8mC
+1JO2D+0U6HhseSDLy4cF746o5E+tp+PJ2y+F8rxZ0KbW+pWwkY62UMFv5MUC
+ci/t0GE1Om6JGH93zoMFdzXz6b276DimYMD46sKCxJEvJdMWdHTzGj+80YYF
+jwz05kXC6bhgxOcros8C2VcGQx8j6Gh2+pCV514WPCXsZ56LomN5/I+qKj0W
+pH2yftx7k46OR320L+7h+uXqY5B+h46fBOlXZ5AFVUGJ93Sf0jFPMkNiZicL
+JgpmtE6W0jGZWCFxQJ0F25UeBDB/0nGEP/CAP40FYwq2wc6/6WhTupA9J8PV
+x6BGzc/R0d9Jyy+AywuS9x7IL9Dx+wrassvSLPggFF92kU8WYwsUbaMkWWD4
+M2qFspAsli5FRueJs8C2LDAuWlEWi3RXVhgLs+CyhW36/iOyeLHA3dh6GQvO
+DjzP67GVxYE8GbMZPhZ4en6vPGEvi4P98ndDuWx1NaIv9KgstkV8mXjHywL1
+zHzRsuOyaO1887U4DwuGl5Muq56WxbDG0cjRBSYY5jIPCd+QxSqMUSn4xQSS
+KCw2lcjizU+DZpSvTLgkVtx5tUwWKy9mdxWMM+ELZWe+erksBt8/kmnN5Xz6
+Nr+4j7IYGFq7OXGMCTYqKmNmDbLYFbk9TnqUCQ8NZVo5HbLYEz3UofGZCYpB
+SxmsH7K4TBBS7vQxYcdUqW2dEgN318hOKLQyoTHit5XdJgYqbFj3ubuFCW7r
+VQ7PbGbgtbRS4i0uJzg+NCGrMVB5531hHi7/aArUcdrGQLKlVnh3ExNe52nR
+/uxhYLY2e9sjDhPkgrKHNthx+8l0Cho2MGGt6HOP8JsMVI2qb1Ws5OojDugZ
+xTJwsvjg7qEKJigTqTJrbzFwwDm97wGXD4jcbI65w8Ap2ZMviVyOI/hr333A
+wMcWrIu85UwQX7tv3fOXDHxvtlD2uZQ73oqRt5XVDKyoFTzMKmJC7nJ61PVa
+BvI1sbZEc1l/+ZFj/9UzMD+xTcuUy8f52ZQGFgMDLE8UsQqZkM6XF9zcysCa
+dey4xgImqC5dPzw4xECDi87BvXlM+PCvTOXpZwZ67TRkJXP54L8/gsdGGHjE
+wQ6cuey36F0yNs7ATu2yW6PvmPDur8X6b98YWKvpv+xnLnf8vzG82d+59all
+F/O5/OlPXdfpnwycXf5EKpDLc/M6MXNzDFynOcJcxuXw+XMehX8YSKQxeqtz
+mECZz9ILXGDgl00ZxCgup89NSOv8YyCPuo/3AS7vnFOYX1piYPOU1ZQol/8H
+7JBLyg==
+          "]]}, Annotation[#, "Charting`Private`Tag$114440#4"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]], 
+         LineBox[CompressedData["
+1:eJwVl3c81e/7x0uhlBJnOefg6MgsoxRlXJdoWA1lJKuikFBpKBWahFIfiZSR
+EUlSmSUiM2fZe1Uifa2Sdfid31/vx/Pxvu/rel3XdT/ux/2SP+pj5Sa0aNGi
+scWLFv3/V/Vtysx/JlTwXuuiVDg9b7D/3/Qv/pgHkMtbHmZteGZ4w2X14193
+/CHd5PQOgtZHw+w+CRmvldfhXeOV85JbOYayRKr30YMhMHqwMjo+pcMwbBfz
+k13cPfi0YV2W4q4fhnx90h2l8QfAPhYcUvJvxFC7KTZ7LekRmG7Mp3u8+Wt4
+0keuVWZbDBzRfXXc1HjOMGlZ8mJppzg4F6Dct6dlMbQkKqsSguPh1rO0KaM5
+Ybjz1CZd9EAibDiddkQ8XAyYQ48NhL8ngf3vKYJR6Goo3tLOFbqQDAzz97W5
+/pJgf13m+KLlqRCv78pf40qESHpSxOz6dJj23JK7rZUG6z2+rZ0uzoBXEfGv
+Y4/JQdV7xbzJfZkQtUcYzkTKw/yel91jfq9hrcv456z4dfC1brLgwvVsMBmv
+zJFgKQH1D/nGeYs3cCHEflMASRVy0Z7i15UDryUzJUT+qsPSE5f7zqS9hYsS
+239f+KIJVuFxmad934F9boqogcxG+N3ahT5CuRDzuHrF0gltUDh7zMNTsQAM
+Hqmek92iB2dibmzyGCmARzH0rA0/9KHkUwr/RH4hHHiTbpKWZAiHV/6MdDP7
+AMGBJZMHGEbwIMWr0MX7E4iuLusqE90Bo993fn5NKwEVv4zZKomdQPK3VdII
+LAGZXSfu8eR2gWv8xbENpqVwTJ93vH2vKSwaLryp1v4Zbo7N8uT+WYLStdqh
+DCiDZjfv48kae2GPZMde1eQy2KRqf35hyz6I0+VLq5wqByPHh09WX90POjch
+S3HhC1j239HLVz8I3rLlTfLMagg30yRUke1BgXVmN/F+NYi6W1y8NW4PbVfk
+C5fxq+F85snia5zDsKvz6tORphrosPzyh/jIERhxW10/hn6F8GsxH4ueuwBP
++vWY3TgbvEK6ddUSXKH8W5ZWqgYHKA97l6YoukGC/q0hueMceB9i++J5lhvY
+DGs7SNVz4Ist6ahK2XH4bP4AZjK5kMb5OKw27w5PxCxFqlzqQVuoWudj4Sk4
+f1Thk1F0PexYO/mBbecNVoWzF4rq6mF9ms+OvVPesMwzYzBrWwMUUJfzKmV8
+wa9atC6K0AiRMoSf5z1Og+Wdzw+PVTWB72zKvQl5P1gQ1pVf0GgDzc6z/72W
+vAQ517e/6TjaBtbPFYdv+V4C18WWRoVRbbBx2w3WEOsSVM0dOXJutg3ce221
+bcIvw/2Ju4m/Ktoh8caj168krgCjt1u+xbETVoa+8fCnBAKjyziyZUcPZAdQ
+9ph6Xgejgl+Rb872Q4/ywMqaylDw7ihISgjrB1213QogfBdiF26/vZfSD/e6
+ZRWGtt+FPzsUGk8198P0juvU3uK7kMpzoKjqfQNenmisZUEYrBiue5Yk9B28
+v7Tjv7wIaJTNfvkw8gc0fzGeTj4VCR43/L6cez0IYlYbzum2RIFJmM8Rg62j
+IB1065D0jgQo3WR7gO8yAVc7ySnZvBQo+KSR4fh1EmLFLtr07c0EhSYFaqXS
+DMya6UTO33gD86YW/FOmfFjJkNRmfnkHqvtzkuxtF6Glmn3EO5d8WJlpu0jm
+92IsMEjwiK8pAmWLu0P9l5ZgkGqLpIXSJwhy0hG9rCqMJk4xFR5upfAgPqBT
+86MIDuKGspOEMuix2vYj9/QyNKnd75zVWw7u5rcuG8mK4c4s+2Wtzyog7czJ
+mqFXK/D721Vyo5urQGFltbmrszge3lQ5t+17Ndg1fLo1N7EKrXu+vLM6VQuu
+t8mXNlpL4OWzqyZ0V9TB1l2kf+7r1yDDkU+5Gc0Cz2e9HPW/a/CLjcVw3CIO
+FKoPlnWwJNEisNs6rJIDh64pFyznSeIDbZ9fUTUcmGKfyNrSKImc4WixxDoO
+bD794/H9dkns/GA1XyQ4x9lv+0+Z/JRE790R7sI9HEjR7SJnLpZCRijp468p
+DtzfXn/ysrYUHm56XLdxPRfUH0oeeaEjha9dmir9NbhQ17/fpnGbFC67+IBc
+tpELYjc5qGEkhZF6/7gOW7lws7KO2G8pheqF1l6vdnLhkkXVJ7MTUqhcc1qy
++ggX3Gw+SlFjpdBfPqtGMZYLEWVESZ2nUujhYtZX8JQL+ZreEgcTpLB5m/DE
+/kRB/BVy4hGpUkgfryA+eMGFrE+BIkJvpXAzx3GJfR4X/imbTA/WSuGh6jL5
+nU1cYDyK+yfClsKZmZT3pm1cMFvy9y+TJ4U9zNxXNl1ciOtMGXdskUKrwH9D
+4T+4gA9Eh7nfpDAx4Mxt/39cCJmt6SrgS2FudAHcpPEgx53Z2bSIgHs3uKMR
+gwcdjZfbJ5YQkD04sm3FOh6oZ69v2SBGwENjVbtr1HnAc43gJpIISBJJXZjb
+zgMaa395iAYBNccWK17w5oGJXsbn1I0EHIkp2bDFjwfeL4RKyzYTkHAqfkT0
+Eg9Kgt9+5OsR8EhiUvO3mzxw1SHmnd5NQKuSg0Vhz3jwKqEl/dARAmZS+k+3
+1vOgcD5qd6ErAZ0dCJuvt/OgyuHAANWdgMyDhIbd/Tz4RmEpdHgT8Lr6N0OV
+CR5QI8vinQIIGKBxQsSMUA+3grKijkUT0H91sdRxh3r4r/ukdnksAefEPojO
+u9VDooFKvcIzAmrNNtrm+9TDh+nnEj+SCaiWGvwu6no9TJyOueueQ0C76Azh
+hcx6cDl6I+hUHQELCTpTgyIN4F1ixGBxCPhwz4WOVskGuCy7UKzeQMBc7XUt
+47IN8KjNf26kTdAvieyviToNUGflc+HMTwKCyfu8Bc8GaMteT6r/RUBXoemj
+Jhcb4OeqoXebRgho9Ncv5v3NBlha6zr+5y8Bu1/4e8olNsA2Y/tTF5YQUeV9
+92Zsa4DdieSVLSJEPPxcWI0w2ADWCw0ZumJE3JqyQ11xqgF8i/b+nJYgonDw
+SJEEuRHSNu04FiBLRMmRqZ82do1AUNA8FLSViK/7yRfdfjXCtXcum1/oEzHO
+X7RQe74Rhkwi17CBiFeND79wW9MEJW7j1fSdRPyc9n1qUrcJvNLebcu3IuLE
+5+xSRngTNOt8J3VbExGJle92Pm+C7VXECeFDRDS552zbX9AElMHzLw84E7El
+VGv33Z9NUK66lT5ykohBm4zP9Zg3g0aRxxTRh4j1R9UviBxvhljz2Ab9M0TU
+cQu+kx/YDL5es2GhF4noxe5Prs1rBnrWR/66m0QM2KudOr2+Bc5pbe92eEbE
+UTI5tmVzK/SUnim6nkjE5zZ1J0XsW8HC6nl0RjIRF/+QYg5fbYW1Z5fum8og
+4t7YGM+hmlZgvasoeZhHxBK/zKpFXm2wdce/uMJCIt53/qak/6gNkhuV/Hs/
+ElH11O++HaVtcGnyjpZGORHdRmXL2NLtoKhrnlTDIWKhdn/7ysZ2iKy6fHWs
+noj53Uc+iYl0wJxdpj2lWZBPp4j7W6cDeP7iUsc7iZi1a9Uyn2cdcLWIfX3x
+EBHT5jeys853QpPhQTfdJSQ0Ob3n5S3bblAsGexNEiGhgz1RSfRZN5wzuuYk
+LkZCMzV43Pe9GwgmGbZ9EiSUPphe06vfA1ami8zCZEnI4Tm/8mntgaSaqIpJ
+eRLW/rzn6ifUC2PmasZH1pFw3bjoAqzvhft7bPS3rCchUSv/rW5wL7AOZKr3
+bCXhpd837cR0+0C20eilmQEJY/sWDiWc6INTNs1K75GEjNpICvlxH6w8JCQf
+uouElXeC29/O9oGZk52UtjUJRW5ZGomw+qHCfenUbV8SftG6fud34ncgDcX4
+jZ8lYfOG1V5rer+D20mNMYcLJNx7aXWmsfwPWOptP6R1lYSP9xQvb0n+AdvP
+Zne03yXh4dDT7N78ASi+4lCqkUbCM+ODT28Th2DVwphBbAYJhafu5sgfHwLH
+wNuFS7NIqDtz1b8zbwjmgnPetr4j4dTKFPWPTr9g251lqdc/k1Cc67bjd8Ew
+5D14F9rcSUIdzYDB1ckjcF/zmMTGXhLejrqdQhUaBU/Wmkdh30goVn2gOn3j
+KMiK+SQa/SIhyeOzjHbUqOC+Ucl/OUVCKbevBk+cx8DG99n3a1Jk/PvmzYY8
+kQmYtLyDyqZk3PGe8IgXOAmcX1sqgi3IeFWst7ArfxIyQr6bd+4l4+nVqVp1
+o5Pg9GW77QMbMhYlM+bVXf5BhT7/1NwxMuLYs/TPelOQ0PZywuYEGXsdu7/k
+nZ6CSxft/d94kvH2X/qQdtoUqL/Lu3H8NBlfJU6fj5GYhkdqZ55wrpLxlP5E
+wq2OafCtZsirBZPxWIbiLpFVM2B2gp168yYZP7nsOjdoOAPzSetztoWR0Xdw
+QYj1bAaOUweqkmPIGF43/irLehYwP2rPQhwZTWroM+uDZoFqY9JwKIGMBywi
+zqa+nAVWZGL3qjQyBp9ac3wffxY2L3eYvPiOjGMq00+XPpwDr9YrBTF5ZHT8
+Wauw4+0cJKfHBxQWklGc+noskDcHkmb9QnMlZGxKNbdqEeeDGVW4gl5OxrMH
+Nof0qvAhaEgxxKCSjJShrPQKEz6MhnquvlZHRup2pa3883xQPhzGi+eQUWV7
+3rdtEXxwVsuKKqknI7s6mL4hmQ+PZtl2vU1kLMyGEVY+H1i1YzShNjLS1MtH
+GF/5IBIn1b22k4yKXaILzC4+GHhtTjLuIeOeq8XzLf/jg5++rZtrPxnNftty
+cZ4PmSv9lW/+IOMatUX2Divn4VtH7K+UQTJy7OID1kvPA+3Vh6yKYTK66Ic/
+faMwD1ZXuk4PjJBxiTanelB9HkItF21eNkHGsLdhTjydeSiVWTulPEnGVsF4
+3WEepn4bF5lOkzGr76hmxo550Cx2u+o5J9A/pL72P7N5OBFx2+juAhmj1Vq/
+M/fMwzOn9KWZQhQMXxPWZbNvHprUayu/ClPwWLzLCbX98yC+MBz6exkFNTtD
+axIE/03Yq/asWknBCzu7DucK9gfEa67RWE1Bv2Gaz0nzeXjrY9WwV5KC5PPj
+tp92zsMQ+EX7EilIZMx7vMF5WCvxyD6SQsHh3P4p3DoP9j15Mjk0CrKzKdXe
+mvMQmd3aw5OloOySIXNUnIeqwNnnE/IUNHAsGyiizsOi/TInCOsoGHI5TeSn
++DzoyIPqZmUKuitpkmoX+OA95vLbWo2CWjoRt0+O8qEzMvlstBYFg8n1lvN1
+fCAcrdiSr03By5Jt3TOFfLDY+HO6RYeC31MysitS+VDIUwukGlJQb6h+C+cS
+H8aTLI31jCgYM64uJHGMDypnfUQcTCgYsN1Ol2nGh8dSb8OemlHQKeriwyoC
+Hzj9DXuLLSlY7Zc+cGRqDkTfTUp276PgHd0DGV1tc3D+4LYYhq2g3i9fPyXG
+zcHBqNKU58comLKbL6JKmIMwt3738uMUPCnxQLloZBbKNguv/+5BQfOjRvK+
+NbOwsWl3jqIvBbvXHvnkfmUWVpM5xekBFKzK5RTdbZsB1RabtasCKWiUcDUw
+KnMGdsZ03jxznYJhBnqUn1dm4Crtl4VeKAWfXDYJDZCdgf/JibR/jabghMyH
+539sp6FOWf/fSA4FRZ9Lsvtz/sHdbS80tgwK9u9vLuGZ/4HUWfWHscMU/Bst
+7/CS+Ac+f3g/OT9CwdeNHppZ3RMwY1j2sXJSUO/5Z48s/SbA07jL/NBSaYyn
+n0t7kzAOphYE9wA5aXymqRYUIDYGruJPanvWSqNeq015QOsoBLLkNXYoSuPd
+yE3kny9GIX+fxqT4Bmk8G5bMEDUdBWVrsxvx26RxZ+mueU2ZERB1Ckz4bC2N
+F5ZdHldxGYbA/ZeMftsJ1ueckXeRHIYZE78+soM06j+WlT3z5RcMq7krnDoq
+jbK5XA8N9V/Am977guwjjatXN9boig1BXJRcttcdaXxNIsfe/j0AxBDp/dF3
+pfHcvyr3yVcDEBEgNV4aIY1C96lpxj4DEHRMVJscJY0p9zXPn/7zA45rjeSV
+JkrjcVndLX3LfoBWXfEnUpE0Fp2M0zhg9w0ySvJdjIqlcVI/fS533TdQeJez
+2KtUGivzxEtbJvqB9CTVuLRSGqObNQYtH/TDnHtE5ckGaUx6LXu7vLkPzjnc
+cX/ULI0fBiwHOjP64H97g5eXtknjp5A9D5Ov9kHvlvPmpF5plLj896iWch9U
+LHVil/yWxqCGba/Er/cCTNn6/hqVxgOqd9HmcC/k/9q/hvRHGjvl6+z0tHvh
+JW/HgZMz0hjeXLOrcaAH7idsaCaKUnHZ+K5fDJseOKzP7/JkUPHENVyT+6QL
+nCwkQm4yqWh7sSn8vXMXHHVgbkpQpOK1t6FbchW6wDPA9Hbjeip+maSqZb/p
+hEsfojRwKxVF1dYpbmsWvGe+vmi116filgqjh5NJHRDcUXT9HFCRONpl/Myn
+A0LmepszdlDxnpeTc/KKDnisrx5ItKLi+k/+RQZ72iHOwkhV05qKKk+HQ0Xk
+2yHB4WCDmR0VNxhr2Cb/aYO0gEvKgU5UtG7rTD3wrA1yP1RwhjypqK6SQtw4
+2woN+s7yJdepGHDf9I9vSwu0WJypbbtFxadnztE257VAh8PNc39DqLjOpik6
+4VEL9Ae8rFa9T0XLxV3jR2xbYPzDv9NRcVQMtjF5oN/TDJNfxejZ8VS8WJVY
+N1jWDDMdMhU1SVTs0DPjK75ohsV8Y+qidCraXJE+teNMM0gY3P/s+Z6K6aSs
+lE8rm4Fg+dzrZj4VJ6wzkmP+CN7DjrmkhCIqJlz/0/KrownkrnR4NpZS8e95
+kR/DWU2g/lFZCllUPJTa5ixu1wQWBqXHiANUnCUcOiX/oRG0DbdmnR0S5NPm
+H4x40Qh0eDPF/S2Y57X3sDeqEX5jYnjEHyq+r5m3/ujTCBEmQXmiQjT8IkaL
+aVdqBI650YoZOg2XH3wdoZLUAPkWBdZ2DBrmhEck7X7QAAmWWgm5TBoaHQyU
+fRTcAKf3ym8+q0rD/d/2mxQdawDJA4udh3VoaGt/ZFJRuQEO2pfmdFnRUP/U
+467dBfWgf3grX9+GhglD6wbUBf5JweHNrieHaLhtkxsN4uvhr2Nih60LDXdy
+pMY7btbDoyNBItxTNDye8vyDiHU9tLgb2ZfdoaF/9HenxhmBf/QoSJYPo2GN
+c5OtwSgPXnhqjVy7R8NjHunE2u888PeSv6H/iIYRuudKbLgCP+i7OOv9cxou
+PtgwrJjBA4cLpYtfFNPw2onpH55HeZCUkRnytZSGvD/+kU/sefCzM3rNWDkN
+/8p6KA1a8eCsibf8tloafj0bzGwz5kHoGprR12YaJt9bm7dSiQccE5Hq0TYa
+bg+9RJEV+GfixbF9xC4aMj3br5hJ8yChq9LF6RsNZ5YlOU2s4EHeS7/A0VEa
+Ttsk5l4d58Jcl/My4h8aPlYMvHBkmAvbJc3vb/1HQ1CfsnAU+HfWRfmEYD4N
+JagxevECv/9tB+sTQYyOf2htpjvKuSDZo7Sgy6SjJPctr+8JF+ykpG47KtKx
+tdbHfGs0F57unF8VrEJH+bLK3uQHXFB+1SBbq0HHX98V3QpDuACXggwd9elY
+PRed3XyRCzdeeVUEAR0Lx8UWc/y4UNNjuyd1uyCeTdiJdl8u2OxSdxrZTccn
+r+77qnpwwYvQfiXImo73Cs5gkj0XcnZVCKfa0dHeQVxivS0Xpi69Ca85TMfD
+g7I/Kg5w4Xrv7adSRwV6V1x8om7Jhdgs7Y8p3nTkvM/pKEYuVO6OmKu+TUf+
+JtPONFUujHt1KWy8S8eX7vPTw0pcoEeqW8ZG0DFB5a6M0Tou+LaynnpG0fGD
+TiGNyOACxXM1rHhOx5SpeIejJEE/I5xPnE2l47luf2kSQaA35/W99nQ6Pg+u
+kGlaw4XSmb09L7PpeKW+IMZfnAued+8HWRTT0TXKKcFEmAv/ve5Jf1dKx0Na
+h9v3LeFCcb0mj/6Fjo1R5g+PLxb0n85d+7uWjv2XA9a84nOgKHNNeXgrHVna
+MUfiJjmwkvVAhP2Hjqqi7Q/eDXJgy3ifus4UHXfG8Bap/+SAC2mTbfwsHcMT
+Tm9++YMD75zq03yEZFA+a9G11/0ccByRMpWQkMGw7YoujZ0cyJKIurtfTQY1
+TO17rHgc2H8gWqLhiAwOLNkz8qGIAy3p9ueF3GTQ8WCmqm+hIP4i2Q5Ndxn0
+SwscZhZwwPdVclq4tyDeoKpweC4HIkRzDHddlsG0/f1Rbm84UFP01avwPxmU
+PNV4TzONAyYKQtUJlTL4a1fWR82HHND56xV0aoMsXh6urBj14oCZu+noXU1Z
+/L0p8RnrJAcc2tc5Z2ySRS2LIolXnhwILO3SH9gqixwLvS8n3TlQFb5vymWn
+LNZeWX9p9BgH7BS1fQ46y2LVh58e5MMcuGg766AXKYsBtbVrukw5UFAQorv8
+ryz2c/5JuKpwIFumdtfJKVnM9lW4bKPMgdSglbZ1s7KoatmYZ6rEgf9M752L
+FJLDl3+KMjau44B363850hJymLXqxI1V8hxYOx2/XlVNDh0+h537H4UDobq5
+DPMjcmgdY/3ZarlAb9w/jVeuctgofea0yzIOXFi0FVa7y+E1ZquQjygHXKuK
+HOu95VBOL5AVIcwBQ7vS2MMBcljbtZTcupgD4xe+Eryi5VD8o3Ce1l822Of1
+LQuvk8OMSPO9ka1syLKMtn7PkcPqrJpbS1rYIPTNPKmzXg6dCYtdLzSxIUPi
+vZ56m0CvR62kaz0bpj1ue7N/yCG33cFufx0bLFaRhpYtYuB2G9gcUMqG4ZLC
+vebSDFydavFgzUs2kFYSz3dTGfjjqX9Zfjob0NYn7iydgWsDpyOOvGDDf7+Z
+g0/kGBimt2U0L4UN+tTw4OF1DHRWsS28kMCGsLPO78M3MgR+2cll+yM2qCku
+pXHMGeilfNltNpgNVYP319yyZGDpuYbmwiA2uL6SWaa/l4Gk0DL+5UA2xGnr
+/E2zYmCwX5/jkqtsWGnsyb52iIHVl92MFP3Z8D9nznWNEwycfqyuUOTDhpyY
+uOGIYAZmtos/JjqxYY+jSr/JDQZerrMzXubIhiFGbuvMTQaGaBp4zR1mA/MF
+u+J4CAPjH9VpDB4S1JMrlGh4n4EyqjkWDdZsOF/vbv2/pww0/m//3hFLNmwV
+31xsWcDAMdMxthqwgeq8p2C2kIH/dYp93WPIhrnsE+/SPzBwonN64YwBG4oP
+xmYIlzBQfH7Lsk96bDCJW3j0sYKBsv9Wu7vpsmGfWo3PhgYGLiOocAe12HDC
+1FlefISBC2OLzpevY8PuJxfpRaMM5J578kNMwKq/I8ke4wysVFc/aKUgmNf9
+cvEvfxm41C5B9ttaNpxpUZkJmGNg6CVDPSkGG66e+MMbXi6P3Yv9vj2lsiHq
+ZsiNrwry+OHnjIWtBBtSfR2eOSrKo/hu//Xlq9mQe1gj/39K8qh2Mu2NloCb
+tBp/SajJo/Ht4NRVqwTnoYtxwFpLHg03U1ZyVrDh8ZZ8+S4DATsGHvARZUPs
+wI/iERt59ImlSREWWBBvajItGSKPEXIG41EjLNBVfXqp7q881kjVVRpzWHDN
+xiFj7+G1uLvw+y6HdywgEoDPK16L6s/PDbTHsmDb/z451KgycaRXOkUomAXc
+0H92juuZKGVoeDoziAXuShrWoxuYeMXM87SNgKNdnlmStJhYNRy06mUgC/7w
+AgyP6jBxa5JZic01FrzO28qYMWai7nK6Un4ACxSC3varODIxKj5COfkCC8QJ
+aZ4h95h4pJfcq+LNgmdSvSbmkUyclRMLbT3FAnUpmpz4QyY6NtwICBHwPsl7
+9fcfCZh02WDIiwUPJC7oP37KRJ9yHbXXJ1lAEd+1Ku0lE9PMBh7u9BDkExl4
+U17JxMQXJcEZrix4LywfdquaiUvVbSWOCXin8OHju2uZyD/v20cT8ImlbOpX
+FhM3JQYdiDjGggyhvOv1jUysHj/jev4oCzQXbln39TPxf+VfaAdcWFA6X6KR
+/J2Jz286da4WsNX8zPLjA0y8/6as56szC87yvYsHh5joscQoc5eAc2dtlMbG
+mAL/wtiPToL8s/cXv51gIjN9M33BkQXNMzXtfn+Z2Bj7WqlYwFPThvenppgY
+t5y6oC/gkOmLnoUzTCwayKqZc2ABdTrHJGCOiWsHRhs/CDhjaljWcJ6JgX1v
+GFcErDelOL2wIKjnQVmGgYD/D/4Bc78=
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$114440#5"]& ]}}, {}}, {
+    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+     AxesOrigin -> {Automatic, 0}, FrameTicks -> {{Automatic, 
+        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
+     GridLines -> {None, None}, DisplayFunction -> Identity, 
+     PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
+     All, DisplayFunction -> Identity, AspectRatio -> 
+     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+     AxesLabel -> {
+       FormBox["\[Beta]", TraditionalForm], 
+       FormBox["\"c(\[Beta])\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
+     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 -> {
+      "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], "ScalingFunctions" -> None,
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+           (Identity[#]& )[
+            Part[#, 1]], 
+           (Identity[#]& )[
+            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+           (Identity[#]& )[
+            Part[#, 1]], 
+           (Identity[#]& )[
+            Part[#, 2]]}& )}}, PlotRange -> {All, {0, 2}}, PlotRangeClipping -> 
+     True, PlotRangePadding -> {{Automatic, Automatic}, {
+       Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[
+    FormBox[
+     TemplateBox[{
+      "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \
+expansion\"", 
+       "\"Low-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\
+\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)expansion\"", 
+       RowBox[{"n", "\[LongEqual]", "8"}], 
+       RowBox[{"n", "\[LongEqual]", "12"}], 
+       RowBox[{"n", "\[LongEqual]", "16"}]}, "LineLegend", 
+      DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
+                    False]], Appearance -> None, BaseStyle -> {}, 
+                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
+                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
+                 "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
+                    False]], Appearance -> None, BaseStyle -> {}, 
+                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
+                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    GrayLevel[0], Editable -> False, Selectable -> False], 
+                   ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.880722, 0.611041, 0.142051]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"], 
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{{3.790882453336982*^9, 3.790882501867523*^9}},
+ CellLabel->"Out[81]=",ExpressionUUID->"02cbb485-3ea1-448d-95e6-96047b6cc94c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Show", "[", 
+  RowBox[{"LogLogPlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}], ",", 
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{"4", "x"}], ")"}]}], ",", 
+      RowBox[{"c8", "[", "x", "]"}], ",", 
+      RowBox[{"c12", "[", "x", "]"}], ",", 
+      RowBox[{"c16", "[", "x", "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"x", ",", "0.00001", ",", "50"}], "}"}], ",", 
+    RowBox[{"AxesLabel", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"\[Beta]", ",", "\"\<c(\[Beta]) / \[Beta]\>\""}], "}"}]}], ",", 
+    
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<High-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\) expansion\>\"", 
+       ",", "\"\<Low-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\)\!\(\*\
+StyleBox[\" \",FontSlant->\"Italic\"]\)expansion\>\"", ",", 
+       RowBox[{"n", "\[Equal]", "8"}], ",", 
+       RowBox[{"n", "\[Equal]", "12"}], ",", 
+       RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"All", ",", 
+       RowBox[{"{", 
+        RowBox[{"Automatic", ",", "1"}], "}"}]}], "}"}]}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"Join", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"Black", ",", 
+         RowBox[{"{", 
+          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
+       RowBox[{
+        RowBox[{"ColorData", "[", "97", "]"}], "/@", 
+        RowBox[{"Range", "[", "3", "]"}]}]}], "]"}]}]}], "]"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.7897457807422733`*^9, 3.789745832490975*^9}, {
+   3.7897459208379374`*^9, 3.789745986715302*^9}, {3.7897460206302223`*^9, 
+   3.7897460455314837`*^9}, {3.789746088758369*^9, 3.7897460916675463`*^9}, {
+   3.789746404389237*^9, 3.7897464044512587`*^9}, {3.7897468671247663`*^9, 
+   3.7897469324195147`*^9}, {3.7898168197536173`*^9, 
+   3.7898169067292557`*^9}, {3.7898195108437023`*^9, 
+   3.7898195343107243`*^9}, {3.789832003730896*^9, 3.789832020151675*^9}, {
+   3.789832149993394*^9, 3.789832167007585*^9}, {3.789832405514276*^9, 
+   3.789832453208054*^9}, {3.78983251872959*^9, 3.78983255469631*^9}, {
+   3.7898604238537827`*^9, 3.789860423945956*^9}, {3.789864931880006*^9, 
+   3.789864939343019*^9}, {3.789865027552593*^9, 3.789865029328581*^9}, {
+   3.789892821605682*^9, 3.789892821829767*^9}, {3.789893469770935*^9, 
+   3.789893523416409*^9}, {3.789896909604662*^9, 3.7898969280516768`*^9}, {
+   3.78993271416635*^9, 3.7899327158509693`*^9}, {3.790501039529852*^9, 
+   3.790501039713043*^9}, {3.790501336673828*^9, 3.7905013914221354`*^9}, 
+   3.790687109212183*^9, {3.790882229195242*^9, 3.790882338816361*^9}, {
+   3.790882392082082*^9, 3.790882410199548*^9}, 3.790882481218687*^9},
+ CellLabel->"In[80]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
+
+Cell[BoxData[
+ TemplateBox[{GraphicsBox[{{{{}, {}, 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          GrayLevel[0]], 
+         LineBox[CompressedData["
+1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAAH5kSIJ4GJ8DRZMLVkzktwN5e/Qwy
+BCfAkCqtwic3LcCcJOj5xQEnwE7wl6+7NC3AGrC90+38JsDMe22J4y8twBbH
+aIc98ybAyJIYPTMmLcAM9b7u3N8mwL7AbqTSEi3A+lBrvRu5JsCsHBtzEews
+wNQIxFqZaybAhtRzEI+eLMC8RvyDisMlwG4SrDmA9ivAOJssup4mJcDqZtxv
+lFkrwHxDL/PGjCTALg/fqLy/KsDzubga5eUjwKWFaNDaGCrA/kY6TyZKI8Cw
+EuoEHH0pwDyiQnJdoSLA7m3yJ1PUKMBDUR2YqPshwPUczU2eLijA3hbwyhZh
+IcCQ4p+ADJQnwKyqSex6uSDAXnb5oXDsJsAOVZsaAh0gwMAgS9D3TybAcaZ+
+lzoHH8DrHm8Bk7YlwCs/1NZcuh3ASOsZISQQJcANBRowxYMcwDjOvE3YdCTA
+VWdtZhkzG8Bcf+ZogswjwC9xZaKV6BnASYTihkAnI8AxqE34V7QYwMuf1rEh
+jSLAmHtDKwZmF8B+iVHL+OUhwCd8KXj6LRbAxYnE8fJJIcAcGR2i2tsUwEBY
+vgbjoCDAol210eKPE8AG9RQ9zvUfwFDPPRsxWhLAtGadhhzAHsBk3dNBawoR
+wMh0M61WcB3APzG0BNehD8ADsLnt1jYcwNv2CZEnOw3A0ZLkM38DG8BC9XrX
+T6AKwAUSHVcTthnA+E3MUQQyCMBgvkWU7X4YwHnfOIaQjwXAIQd8rrMtF8Af
+wO7FbPkCwHT3Vs6h4hXAFPuEOdWPAMDuFCII1q0UwKjdbM4q5Pu/zs76HvZe
+E8DIeZCRwwH3v9a1w09cJhLAL7RGa/w38r9wRDGG6vMQwFnAZnLJC+q/3t5Y
+M8lOD8CTgcHdylngvy2PL45J4gzA5pckxqxcx79GeCGjoUEKwAhjblkdyr8/
+r7vz64XNB8BbBH+15DDbPz1OD0C6ZQXAzVTkIUII6D+UGUZOxskCwBffw4zw
+4vA/PT9dkF5aAMAxIl+UECr2P147Hxmdbfu/BMdnhZBY+z+MlhYoHT/2v5zb
+Vwf8FgBAWKbOnrVp8b/rmuAR2LUCQHRPehP7V+i/6f+I6CcoBUD4drFxdx3d
+v8QV6LMnjgdAO5BxLfLaw7/ILr/W1ssIQAAAAAAAAAAABzanTg==
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$113748#1"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          GrayLevel[0], 
+          Dashing[{Small, Small}]], 
+         LineBox[CompressedData["
+1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAA7zn6/kIu9r8AAAAAAAAAAC+0Rmv8
+N/K//S2cnTSyz79ZwGZyyQvqv4SzjYu8UOK/k4HB3cpZ4L9K8jIguwLsv+aX
+JMasXMe/86Y1Zq1C878IY25ZHcq/PyAgkdTkKvi/WwR/teQw2z8G+1ksfPr8
+v81U5CFCCOg/KzL2BzIZAcAX38OM8OLwP4MM38WZiAPAMSJflBAq9j8QrqzJ
+KSwGwATHZ4WQWPs/egAxwmnDCMCc21cH/BYAQJT41IYdLgvA65rgEdi1AkDj
+t12R+cwNwOn/iOgnKAVAcA4DtKQfEMDEFeizJ44HQF6ZspmkUhHA1PIrxU8o
+CkDmh1SiuJ8SwJV1j6LrlQxARkkGkYbWE8Aa5zo+w6AMQAkC3F7y2xPAnljm
+2ZqrDEDLurEsXuETwKg7PRFKwQxAUCxdyDXsE8C6Aet/qOwMQFkPtP/kARTA
+4I1GXWVDDUBs1WFuQy0UwCum/Rff8A1AkWG9SwCEFMCwF6mztvsNQFQakxls
+iRTANIlUT44GDkAW02jn144UwD5sq4Y9HA5Am0QUg6+ZFMBQMln1m0cOQKQn
+a7perxTAdr600lieDkC37RgpvdoUwPsvYG4wqQ5Aeabu9ijgFMCAoQsKCLQO
+QDxfxMSU5RTAiYRiQbfJDkDA0G9gbPAUwJxKELAV9Q5AyrPGlxsGFcAgvLtL
+7f8OQIxsnGWHCxXApS1n58QKD0BOJXIz8xAVwK4Qvh50IA9A05Ydz8obFcAz
+gmm6SysPQJVP85w2IRXAuPMUViM2D0BYCMlqoiYVwDxlwPH6QA9AGsGeOA4s
+FcDB1muN0ksPQNx5dAZ6MRXAlJkh0w==
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$113748#2"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]], 
+         LineBox[CompressedData["
+1:eJwVlnk41H0bxfmNWTHWsW9Ttuzhlcf2/RVJ5CkllBQKZWlXKlsIMWOPFglP
+hahUVCRuWetFPYXKHrJF2Wfsr/ePc93Xua7733M+h+l5aq8XxsPD076u/1/F
+W6JKWSQ1aM094da6WRt6Dq8I6POpgZTcF7vjutqQqTyyUMerBh+8LEyWtbRB
+pvjtl4llVbA9JyOprK4NEg3HY8xnVGGlZOTTOQVtEJir/N3VqwoeLb1WYvza
+sLjH761smSos1Nno7B3UglZK7cFbfqowOplC/pSuBRXWy5FxNSoweI7dXv1b
+E4zvaJVnqapAg/ymH+0OmhBsqTtTz1KGa2MqhjyvNWCm7LXMz58bgYVvXlUU
+0YBVa5PdqrYbwUbj0M6jgZvALHfbWbecDcCK7I2526QOlg7yN/OXmBBqozM8
+rqoOPRKTHyQ8mPC4r/CyO0sNih7tHL9cpgSV1tHpTYOqQN9/RwaTVwKa+fM5
+NxtVOPMwNMOErAiB6nnZpKcqoIla2w+Vy4OtIievkKICgkQZvbpIOcieK5G4
+FKAM+30CvKUNZKH/X49zNnUbQfeMV+6NEWlIvON/01hpI2zOt+c6l0iBWISk
+n0v0Brh5xVKT5C0JgR+u+cf1MkEteFPQorYE2BSZic9ZMkFOWj63o1Mc9p0t
+7I26owS5bqX/9ieKASZ8MurhuCLs+Wguu/mgKIxYfVapf60Ax7q/bPWjiUDY
+tWXtU37ygDaX8H3NEYI0m5V344Zy0DlPTVYzFYSvbmPb04mysG3u8tfd2TTA
+G0U3HaiUBq59kwOfPgX0c5eNdyZKwaVe4+ikRCKIHA9vVbKVBEX4Xee/gEGy
+vuuolZAEiC9F/dWWyAP5Ol3GN36LQ363f4vG4FLVp6J/YkwqxKDxUlJyDS+n
+itr6gOj/QBR0S6z9lrdMVwURXLNl74jAAfA++55/rKrFSkskLEoYUq9Wd384
+0Fd14zB/o6KsEAxlKNcXHWqoIuaU9xxREwTK0ZMH5D9UobpSVY51CD+48oWV
+Dup1oiCqU0SqBA0mNV4bHI3qRF2eilyOMA2iHKae/fjaiXqvGrW489PgSdbR
+Jz2hXYg3KuIg4qEB9pdN3rembsTYfllMZ4wKbS9jd3kb9qE167SM2koqhPxy
+sDj4qR+5pDv+3e9LhcbQkyHSi/3o2mBEZL0XFURF4yu+bRxAL7pjbJ64UyHP
+uNbE+eIAOrZanRHjRIV/rxltcVQYRPb7ctIObqOCipKs3t/+P9H1Skv2Dhkq
+NDsOMrdRRtCjnwEewe8pcLb/3V1j3RFEdI2xKq6lgNTpHGldpxGE523801dF
+gWPxh0Xk7o+gTSdadhq/pMBi9TeeeTSKHuXvb6zIpYCqbnNvwcUxtLOpt4B4
+hQJNFYWu2Vlj6Ca3h48bSIEztnFf0+vGkIXHeNXAaQpUeO34GCn2C4m1Zeg8
+8KbA3szqSrenv9Cxo/J7wIECodSXd0WGx1EqqVK7TYUCyhlp0hT6BErnP2gl
+o0SB98rnbqwaTqDlVfaWPTIUEMf12L8iJtB57dEZFp0Cjy48Cq5T+I3CbSS2
+mM+ToX0gy/WS0x+kVfmBS3lHhuAzIV9PhfxBrBqnV4pvyMBcc93nff8POval
+eEC+hAz+MtJ2+6b/IPSk2LT5ARmu5u+8K7FjErnFuJ3riyGDZG8Na7J/ErVt
+21EraU0G5V39AoLcSUTwkP0aZkYGvTIe9ibBKRQX/zivXJ8MNqnmbM8tU2hV
+2H7oHwUyXN7xit0aP4VCIwZSlGdJEF3SJjiVPYVE1SeOYaMkSGXOsgVfTiHW
+l7ffC7pJULSkl2DdN4Uc58K2O9SToOfpo4TXhtOo8GEDDKSRYEzuPb1t5zQS
+9jc2n4whAef6cMLU4Wl0znS14e1lEggfU07UuD6NMuV+bL55hARbpbISM7vX
+vTXxlLkqCe6HJyeFR8+giv7RaIk8IhRPPBW+e2cGLbxX/cGfToS3B1uSyopn
+kGFBgGFdFBHaDfmTpztmUMLjLVdYHkQgj0YlH9OdRa8GXgsVSBHB1yEoxebb
+LAqqLFg2COWDC5Xpol4Ts6j49ds2XV8+iNQsTbmKzaH9sqtuYk58kEmcTinX
+mkPfZ+x6i7X5oKXML1Xr6hx6npiTJ99NgM0bjqQJa8yj1DkVKu82AtRabUz7
+YDGP6nfd1/umSwAXn+HUqH3zqMQsSGpGngChRadSucHziMkbtENlCQPRjwap
+z5PnUdxVjsb+MQweTHFS/B/Oo7Cf8tTF7xg0GYWn9H2cR/f+G+7QWo7BkQNW
+KbcH51GdTkikQhEG01coKY4L8yj0WsUsbxYG0tVJyY0bOMhPvVonOxKDogHH
+5IgtHBTfGaPlcREDnCSdbLaLg9yexX1r8MPA2y4nqTiQgwiljawMJwwWAryS
+fOM4qLP4HUfEHgNW0qYk5XscdF761629VhgovZhI7HnBQTqlOYe9zDB40fYs
+8WYjB+USdO86/QcDa25g4t5uDrJ7GKBqoItBh4xJosA0BzXrO/eTNTAIMF9N
+qCdxkfJQhHCnCgY87u8SwmW5SDX8SNjjDRikRkQnmOhxkVv5ae1wJQxUH9gm
+zFpxkQL1VqCjIgblDfSEJwe4SOB5vrDWurcf+8w+fpKLHtoclaSu//cJZLA3
+RHJRqT5xdYKJwXldV3ZXBhe1Frg3diljQN6ryE4v4qKQyPAf7eoY3D4/wNpT
+zUU5NRlr3doYaGfksWjtXNTUJmUwa4ABlPmxase4qOhp6YisKQaOXbqs0DUu
+Mlv69MvZEoPh1Zl4Y/EF9GbN+EThLgwuM1/HT6svIKPk8u9SzhjQrYLji8wX
+0NY01xf3PDHI8cbjvfcuoMGuk7MWpzAwvM4Xr+SzgM4ZZpXPBWPQWNgY13Fl
+AY0Lt5nXxGPg2sKKS0taQOk1Ux8e3sEgQowRRylfQFKxbpceV2LAMPp+/V3L
+AvKwMxJo+heDfJe714MHFhDu9efhn58YfLyrcn1SYBGprpRxBEUI4AmjsY+Y
+i+v9/c/AqBoB5vsfxx4zWkS1Hq8WWIgAcupGsd+OLCK2imfS0GkC+D63joHn
+i8j80/BtiS4CrLTSYi43LCJqKl/aFy4Bkjgt0YZdi2igg8TwluCDV2bO0fnE
+JRS1R9790z4+4GvwuZbksoTyz1tJ/27lg7oh1sYhvyXkPh/GvDvDB9Gk59Wm
+YUto8czOm+6i63m1Xl4ZerCETgZtJejsIQKtLumC+cwSqm83lDBoXuduTZnP
+GHsZZQ56ahc2keBzfw8Rz1lGFi7NzwLGSZCC8d2/UbKMWjbnec7zk0F82999
+eOcyKhr8OWFuSwap6n6XDPUVFBlzi5RWQwaFKn5bq5oVpLAodaYjnwK9PXoj
+t9pXUGZ7rS5pnTfZq/uj/4yuoGfvE8paeijAtMh+d1t4FbWoyC/oi1FB+a2h
+6ZTbKhooW/XyvEgFzTduWlncVRTdGfiGV5cG4x0RH2b415D0EaPDIVY0KFrM
+O75TcQ090xN0eXSABjom0/dnt68hUnh9vFIkDfTLouXtUtdQCHkwK+YzDTI7
+ncnLEjw4LW5BqOUoP9xavXrxIpMHr1Z5+Y/+BX5IZxYNT2vy4InVKhfsY/kh
+2YencRTnwcOMT6PiQn6InsmP/erLg/t85XW/8ocfTvMvUl9U8uD3rBzsB/wF
+wMo0U8DXmxdf4iU/D7YThK2H64N/nubF2TIGNmdcBMHi6uS4+xVenBvC22Pr
+JQh/NVg1Oyfx4kMaV4QehwqCzr4J9vZyXvz8mqP5f4oFQcrPQohJx/BsnhPq
+dsJ0+HW7T+RbKYabSUfONzTSIdTM1CGnCsNpN1mHrL/QQbTnRpLvewy/Jrx4
+u7KbDiZMO6GVLgy/cNYsPn2aDnF5pQIb+Ai4kbthROX6/tEoiSP77yXg58wO
+vnALEALfZsOVtd8EXOdQta8pWRhG12JH1NSJeH7guGXlA2GoZYy8UEsg4wNp
+PrnMDhFondas261Ow9MuUzSi1MTgRmBi7q8bArj6tZL20MPiIDNsYlGTLYBX
+SO8waj8qDlkuQ99vFwrg7yMVnXVOrO85U3MR22oBXC7Y0n7LeXEo5/0Vlj8u
+gHfKLtsz4sShj23t5mUpiL88ErFbsVQcNB+uSPZOCuJif/kKiQowoFiy4MXL
+JUG8OSlKw1+EsZ5/x90JJDruPM71eCrBAAv/wmhzOTr+iqZSZcpkwB79A3N3
+dtDxoB3D28q3MNZ5VfLZJYuOQ5q14mNPBizpup/UK6DjHc0dxWs+DAjP4adR
+Suj4cmwHT3AAA65HeW599Z6OW5mLTcUGMSDTVriYMUfHHyeLzK2wGaBU8cZu
+Yo2Od2qPSvmlMuCBts9wLU0I122hmFveYsAT4UqF80pCuORx/aeE+wwwiDhR
+bqcphB8cOn/HsYABr2fEnTYaCeHHs5wujD5hgJkXTC3iQjgjP3XyQgkDqtv9
+2J/thHDs4pzEozIG/A8btXGo
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$113748#3"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.880722, 0.611041, 0.142051]], 
+         LineBox[CompressedData["
+1:eJwVl2k4lP8Xxsc2zwxjbEO2QpaKbFEk+j4hFVJSCWmxZE1IvzYhWbIbkhaU
+EoqiokLMkWRJ2lGypiwRjW024+//6ry4r+u+znXefD5HzePEHm9BAoEgJEAg
+/H+qXJdWzSOuAvmYU2u3WuhC76EFyjrhVeB/V03xm5ku5GiMsBsFVkHow3bs
+uKkuKJbXfp7gaYFqnM7PK0a6INfkG28xrQW+flPXh9boAmW27u+PPi1YwyrC
+YuR0gbM7oFapSgskYzt+vppcC19Ir12vB2hB1Kszt/A7a+GlDe9SYoMmGBHC
+lNdxdMD05trqPC1N2POIUGfjrgPhVvrTb5I14EdZeuyJBm2Yrnqh+OuXOpg7
+QVSqsjbwbcx2admqg8m+poYPUWvA/I5lqHv+SnCoo58ld60GK8fl14q5avBW
+P6Jh/7rV0Cs31Sp3VA1wx97ypuxVUPpgx/i5KlWIVQnu15/SAuq+m4qCy1Vh
+vYMw/tJJC0IKI7LNMBUo3Oi991C1JuigLx0Hq5dD1UtaKVtGE8RFFA0aLylD
+tWbMUPUZDdjnc/yYgpES3ClX8T3zQR30Q7zvZI0ogO+F7OHdOupgWLyT5Vwh
+Dw7/eIVO9JVw7byVDvHYMhCZ1M45OKYGq8LXnOHoysFbb/PIqw5qoKyw/M73
+bhqcGo4L+XVPFe64V34cTJMBK6mYDH+CKux+b6Fk6CoN9ANVmoFtK8Cr5/OW
+AFEpIFru0UyNWA7IsEK4M18CShNbP1/Ypgzdc2T6qk3iMHE3+vWhZUpgOXuu
+c9dtUaBT7Xor2hWAtbPNUXgdCZQ83CE7Vx7O9pnGpaeJgOKe7V/RvmWgAn8b
+A9mCkBcJL6Tk5IDGjdn4NY0Ankx/XHOKBsU9ge3aQ1yGPcWscvCZDDSfTac3
+CMwzsmPAT/u6NOhX2ATwTJgMaxmKqVyCFLjAsdAWsTEG3C3l7zouCZkX63ta
+XfoZRm4awfuGqPA7W+NN6cEmhivRMjJ8lAIkzyCX5a0MxPsYXtBqLgYD9uXZ
+ApGAfh/UcrmxQQw2+96PnpGvR3UyjdbHDcRgPu/mge/2r9Bvj+gpZQ0x8KdE
+CRdWvEbykSf/FoiJwe7h7QctYloQ4xPYH+kWhVSHCZFn9I/Ixqdxz7ULouAm
+HFk5ZNCNuvp+1Kq+I8OU9gsjz5huFKLF4wQ0kSHG8d/jgc5u9O/4yI6X9WR4
+lOf5qDfiB2p1iKYEPiOD4MbtRV1tPShJYOtd7DYZvj67bH/MuB+1ZHhs0Q4j
+w4U/jptdPwwikXG2FleFDM0RQRcUOINoPtUheUCRDNLSSS+71H+i8h3NFe9k
+yVBk+trM+fRP9PM82eaFGBk+xm4w2btiCBWL9/n2zJNAU1XJwCHwFzIMtLCM
++kiCd3uH1CxJI2js/XgXMYEEoYOvck31R5CqqXwyO4YE8sH5Cvr7R9BlI0My
+M4oEXkmHpJQLRpDTq6yymTMk4NR3EebQKJKPkOq19COBlv67vvunx1CJyfhN
+aTsStL0scbudN4bsv0es8NtGghDbxM6rjWOI/fDk6UYrErz03vb+kswfZLb9
+21iqOQn25NTXuZf9QSMDwTaH9UgQQX6WKzU8jtxibtVxpEmgkX1FgUSdQHYj
+WS4lEiRo0TiZxTeeQF5RermeFBLQcIOUP9ETiKDy0G9chAQP/nsQ3rjiL2L9
+la10Y2PQ8TPP7ez+STS5sdg0dACD8JALnScuTKJ2z7aM1F4M1BbdnI4VTKJ3
+nMsqj7sxCFRUsHNiTqL7eibyoh0YXCzekSu3bQp9dGnvor3FYFlfQ/LU4BQK
+uMkJKXiGgYb9IEWcNYVWP3GTF6jAwKCKkLJG/B96GXLQ2esxBtszLVI8TP4h
+amfYPYtSDM5te57yJekfejtwaLvVHQx6yx6kvjBmIpV7lVt60jAYU26hft3B
+RHkTRR8qUzCYTxhO/XeIiUL5wWFZSRhIemmkaScwkYeg50bfeAy2yOel5fQw
+0clb2WqOkRgURNHTo+KmkXvZoplwMAblE2WSuTenEbyDszpBGNS6tqdXlU8j
+k4eFXvsCl+5jLEZnfl/KIwcry3wxwEZj6F76M2js81p6yFEMaPvvSl20nkEr
+yKe9bx3GQLWhnp7rMoNcdwwym90xMM3l0zsuzaCNTzKFSa4Y+DueydjeNYO6
+arLrCHsw+K/uqrT3xAwKC4gw7tyFwSWdyoyLgrNoYlLb6fpODHJEmBnVa2eR
+UvysWud2DIpDJWU6t8yiEB8lzk4bDCr79DKn988it9MqbwutMGivCshce3EW
+eT7W0py2wOC7VqLMjquzqKKq06rPDIPhzOJM75JZZPBZz+iWCQYzhCaZaJhF
+PHOvaj1jDAhBvzLzvs4i+0NuSQkGGFC6hWg1Y7MoIsTaqmQtBvLbV17pXJxF
+SdkHA9JWY2C48vAVSe05JFBy1yFBBYPX1upXWjfPoVNr5m4XKmJwwGc4M8Zp
+Dk1vagsNkMXgT0JJ5mbfOVQTtmWiXQKDiNITmazwOWS4yUG5mYyB9HujzCf0
+OeT8+SpzpxAG9/7NZwQWzqFlQZU7nXlEaNsQldH/fg79GR8cax4nwmEX64wb
+Q3No4n3QhMwQEZjnSRl72XPo+sC7oZLvRIjLa6NTqfOooyzP5+IHIijUp9Ob
+V86j9SZf5GIbiVD6cy892mQe2axyLS2qIgJOVKCb28+j6SJV+rdSIhyzy08v
+PzWPQpx2TEulE4F93DvdP3EeDRuPHPgdSYTk9DXpGrfmkXRor7l/EBFUn06k
+9T6dRzVE57lYNyI8/fo47VrzPPpr61WxchsRbFin0vb0zKNUpsyn1YZE+K5o
+lkZhziMxjYGd5xSIQDjyKjVKiYV+Dwf5xQ+JQGZ0XKqZAQttDX/yVqxJBLTu
+2abOWLNQRujV9ONFIlDdRE195MJCAmynoqxYEdg59inFN4iF9q6r/eN3VAT6
+KdkpKy+x0Itnfu0fzUQgTN8t5Uc2C6WgfIcXUiJwI+xn8u56FpqjrBhlPBcG
+3eyiZNEOFmI4GEm/iRMGqApIfj3GQs7UdmNpJ2EY5k8nmdLYKOv8aPDRn0Jw
+Tu1FEnM1G4lvffDVu0gIqNbhSaUWbCRs1VPY6CsExgnCSao+bHTG0T1Rb0gQ
+mkuaE7+fZyN3R91HiXmC4NaenHglnY32jXuw2fsFIVpGNpFUzUaWMVnvaA0C
+8D5XM2GKwkFcabrZ/gwCeMDo5QdqHIQfqFn8akOAucGHl702cBBhICFBkr3I
+UF694XLXYQ5iH7Op+fmdzyi35cRnhHFQ8LlBWcG9fIbV8bp4+wQOMnBpZd3+
+ssDoSIuOJ+Zx0A0jBfyo+wLD/4lNPDzhIOFUFz/WXx5j4Yto/LkmDmrf5z1e
+nshjpM+3xxn/4KDH+Rte5hryGBqKmXF/pzjokXzPrbIljj83d44rFuGi7Hbr
+Nvwel2F7WCnOQ5GLBj9MuCiFcRm9F/tilfW56OyGPGt/Ry4jpOBubIcVFz0y
+YNf0W3AZwk0+sekHuOhJ2QVbIzMuo/F3svrvAC5aVr/L/9BWLiOO+KR+UyQX
+5b7a99vvEJdho9V5mJ7BRf6fa0e9YrkMzIa38PseF2EXDacOVHMZzd5qOeZV
+S/sE3bIq53EZl2NtzDLauMhSYd1pD3seY8e9gK7hPi464+VU5XefxxBtTP/P
+YpqL5uq7jjlLLzDeDlXSMok89H36zdaEuAVGsnD3kxEFHhpzGHWoI/IZVGvN
+yUych1jFWNAljUXGe0/blFEnHorL6Qi9ylhkpF86oYN8eOiU8QefvYYEkGqo
+8hlL4SGHhSySWw8BPg32iuD5PPQpNd64aYMAZAgKF2RV8JDlmN6laboA0Cwd
++vFuHmrtS7BaYycI8vWDB7JXL6CYGabln1oh+NaPzY9vWkBOj5dF35MXhhsE
+3SzLXQvo3liuh2eIMCjhpz9OnFpAthvsysjKIrCCIWZr3bCAQpVL0rl7idDX
+azByvWMBWajmCDzJIcJt/r64ydEF1LOrxShlgAhqm2+/uiHJR3452s5nPDAY
+dG88MqXOR1Yz9hVxeRjcuTDG32rCR6brz5Q971ziXa3xpn/ufDQ81nBicgsJ
+fv1w+WYTwkcDtCMRiidJUMiLOJ0Tw0cPCi541OaTYLV5y9NtJXzUfsmTPbbk
+I6Nufx1z6/jonPTGgXdLfvPgvMwU8yMfGT5vu/J6Kxl0atzX5rH4KMzAaadB
+MhnGv0e3TostIgXWV6EPpWQo5RT57lBZRLMbzxt2vyWDnhmzYGbrIrpf35AK
+IqIw6bLMytZlEaWqfaF3q4pC+VnzgVuBiyinvL71k5korKuKW26XuYiO7NL5
+dzVAFKa7SmpuFy6iq+eFoxKjRaGC9cFlrmoR5X8NTCu6JgrrTZWu5vcvouvD
+UwR4JQo53c4YT46Ab57pDCqSEIPr/IunT6sRcK/Dn6+JqIvBVbXSYaYOAc+1
+dPnRtV4M6D6E5lGcgN9dsgMpVzGImy6+3OlPwGsV2aLVuWIQLMYhP60j4Npi
+HJ0WeQoc19M4p9dCwHVz0v1sVlGWeOowdv8zAc/Tl354ZT0FvLPvtN4eIeAm
+s3KmZY4UcFW3S0qVFsC/pZ6MN7tMAetNORT/YwJ4yeDBk/1TFNhy6E34r2AB
+3KkmqStjgQKbL06NHzkvgD8MyNpjICoOG5us3zmnC+Dlmo+sDdTFQc9pImVr
+tQDu6bn7qOdecZAP2CyhRhXEt68z/7WiQhz+3OiX6qoUxKfuxnf4BlAhwnyT
+Yz5DEMdD7YL7T1FBujcr3b9FEG9etS3JMYoKZmp2Egs/BPGYNkRTyaJCYlEl
+ZaWwEC7kGll0tI4K2hWJWOAeIbwRPMSpkhLg/854YfGvEK7V82n9QLkEjC5e
+Hlm1WgTnF3xiNP8nCa9lR56uSsVwSXUv9/gHUvCFqdO4a7UoXmvg84E7Lw1Z
+p9Lu/Mmi4HVF5pbi+jRQHDbb3HCbgr81+5ly2pgGeQd+f7tRQsHFPxdeGdi4
+9J9sspCyrafg4byI3kprGlQL/IksHqfgHwipQt6uNOhPsXH3thLHKTeP3m+P
+pYFO4cKyvilxfKrEUzX3Bw3Kl91/+owrjh9sG2ohDtKWeLB3VyqRiquE134M
+HqbB5sCSOAtlKk78WPZrK5MGu9e5zN7cRsUfSklaTmOyS35U8elAHhUn15fM
+OxnJAlf/SJDBfSpeww++wjCVhah8MVFSBRV/ckpKU2ezLCTEeGx53kLFSy9c
+2y60QxZybCXLZWepeN2tnZO1h2RB9WWN3cQiFe+JOzqu6yUL93R9hl+LSuDX
+miIKcv1k4ZFk3YowVQl8/zWvyHNhsmAU7VdtpyOB4+fxp7/PysKLadp+9Q0S
+eNpn0uvdkbJg7g3/OLjEUj9H90WMLNR3BKR8spPA14yv8VVOlIX/ASxVALg=
+
+          "]]}, Annotation[#, "Charting`Private`Tag$113748#4"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]], 
+         LineBox[CompressedData["
+1:eJwV13k01N8bB/CxzWeMaSyZsmZfIlEpst2PbIUWS0UbyZatkr5liaRkHWNv
+I1qUKIqKtnmELEm7lCUp2aWxjTEzfvP7657Xucs59557z30/aj5HXP2ECQSC
+jBCB8P9W5ZKMaiFRBz5YWD7IMzeA3gM8ylpRHeC97irU22gAVzWH5huFdOCQ
+fnTayw0GoFD54tM4VxvELjwP+LPGAJY1BV6wnNKGXyVbVmzQNQDKzMuJ7h/a
+EH+SnvpF1gA4O4JfKNZqA53W6i87sQo+kxr2XArWBunbTqpZRavguT03IaVe
+C3KyffMT2PpgemXV00JtLejP9V9zca8+xNgYTr1O04Tj6lMTUKcHU7U1CgMD
+GhA4aNv1Q0EP+PZm27UdNaCn2ElCPW4lWFzfFL6/WB0Yp9pu7unQBRsX5Yt3
+FtQgKMO8+baRLvQum2xddlANSsLo5+TydKD87paxqFpV2L7RIvjMhDZQd15R
+EFZWBeHFs6EUV204VhKbb4apgPfASuL9Gi3QR5879j1VhrKj+0o2y2jBEjEF
+o8YEJVC/cG+adFITdgaE+suvUwSS2malxnYNMDzmdz13SB4erNtUf2WlBqy5
+s5W9u1oO1Nar6V3NUIeL0Tb6RP/l8Lg15VbxkBroxKw8xTFYBiYQpvDVWQ2U
+5JWvf++ShRyz49EqN1Xh+v5HH/ozlkJQsv8JE54K7HhnqbhmjwxYxooI1zSv
+AN+eT9bBZGkoeyclURulDGhNtejXYklorzOziLNRgq5Z8Uwd8yXgYI0H6i1V
+hE0zUV+3F5FhffXn3HWt8sDe2uYiupYETd0+47UX5SDyh2kiI0MMvky5GA1s
+Xw4qMNEYMi8MbQTrJG2pZSC7cG7jlwwCZM2FiRUOy8KdnpB2vd8LTC+979OZ
+FUuhOZKRWS80xzQS+Xr6L0MGDKvtg7kmLObuWX5LRZw0eIJ/eIvECDOhMMI9
+2kcKsuPrelo9+5gT4ind3W+o8Cdf83X5vibm+7vdnkNvKUA6FOap3MpEir6X
+7ONXSMBP58p8oThAS20+qzrKSYBVYOnZabk6pB0+Zb1MRgLmCq94fHd+hSLf
+I/8aMQkIopwRLaluQAezxrM1x8mwY3DzPstzLejuAmX/tedkoG8bF3uc+QF9
+bJP3MT5Ahr2icY9+G3Wh6NUGgUnl4jCpV7Pu0LkuZPOO19JSIg7nXP49+Pm1
+C11YFUKVKhaH+4WH7vfGdiP9JTfcynLFQXjj5tudbT1oq9Clfcpx4vDlcZKz
+v3Ef2vBkW+mUqzicHnWx2vO+HxXGCYek8knQHBt2Wp7Tj7R1FMrC50kgI5P6
+vFPjF2rI8w7wmibBbdMGs90nf6F4XnvAlhESfDi/wcR9xW+0OXH1jFcHCbRU
+FY22hQygW0trXC5XkOCt+2+1TaQhpOBbPBzoT4Lw/lcFpoZDKCr2W7WbDwnk
+jhbLG+4aQq69oWM2B0jgm3pAWunmEJqtE6k13kUCTl0nYRYNo+xDLUc87Emg
+bfj2R+nJEaTflxR6T4cEbc/L9hYVjqAO3/SmfxokOOaY8jWvcQStXv/+r7kq
+CZ77ObxLWDqK7Av1mn7KkcD1at3L/RWjyMPmklsEmQSx4o8LpAfHkFfqvvan
+Exho5ufIk6jjyEripZXXKAYtmsdz+cbjyEaCNCQ+hIEsbpQ+enYcfTj4iXfs
+JwZ3/7sb07hiAn313dCT/hmDjl+FeyN3/UXb5Xps559hsPxHfdpk/yQKCL3u
+8SJDsL5zP2UJexKxvYRWcdMwMKolpK9c8g99rk/7vSkFg83Zluk+Jv/QXP0Z
+8tA5DKIcnqR/Tv2HHqauf5AZhUFvxV16jTELXWg/pBsYgMGIUgv1yxYW2sam
+PtLxw2AueZD+7wALtZ1Nj/nrg4GUr2aGXjILzRa/bss/gIG1XGHG1R4WarYu
+7XDahcHNM5mMM4lT6JCvSpmdAwaV4xVSBVemEH7s7PZUOwxe7Gln1FZOocNe
+n259sxHsz1gik/V9Cq03Y+UzcAyw4XOZvobTSEpL+lugmeB8dt2QjredRrvr
+09xnTDFQra/LLPCcRgHC4z0pJhiYFvAzOxKm0YP7kXYfjDEIcjmVtblzGuWG
+349qM8Tgv5d5Mn7j02gis8rj+moMEvQfZcULz6A3tZVe8QYYXBVjZT1dNYNO
+4NyaPfoY3AmXWvrVegY9C9/3z10Pg0c/VmdP7ZpBX7+0rvBYiUF7bXD2qvgZ
+tPc0VyFSB4Pv2ilLt+TNIHfjkOY8bQwGs+9k+5XNIDuqse4LLQwIYQPZhV9m
+kNPMYKWGJgaULhHZZyMz6ABTv/KQBgZym9Vzvi7OoIhif2q5OgZr1L1ypPRm
+0Urt9gs71TBosNXIabWaRXtPDdvUqmLgETCYfc5tFtGlbldoCjyaXJZtFTiL
+skuzHuarYBBbfiSbHTOLSgY+W8gILPNuXfbDzFmk3DSAclZgcOvfXFZIySya
+vLyvXFngtg1nsvrezaLSoG1x9soYeHnaZl3+PYu2//R4NaCEASualOU+P4sU
+vb/rpAmcWNiWSaXOIbuI4isbBZavY2Q2q8+h5zvCSROKGJT/cs88ayLot1vc
+XSowTpTPtHCeQw6kn+HBAn/S7WHMes8h+kc6biywv1Mxo/LEHPJ33nVbROD5
+UD9GUMoccnZyS/umgEEaYyVD89ocqvYK+PRIYNWq8YzeqjlktHaN10WBq748
+yLjYPIf8KkSk4wW2Z5/IcO2ZQ1uFe5qPCPxdwSyDwppDIa7hLr4Ch1ry6a+J
+bORxLfnePoEJ3q/oZxTZSKO4j7xT4OyziXQzIzZ6/Pei3xaBtW850qdt2SiR
+lXJ5vcBPm6j0+55stFPsuT9N4K0jH9MDw9goIGbY/7c8Bn2U/HT1BDaq/KG3
+vFDgCMO96d35bHTi472PlgJjrirpeeVsJLOR/umlHAaXI36l7ahjo1yHt2uV
+BDbIv51G7hCM3xg0tGM5BlAbnNYwwkYFCdfe7F6GgXu3YVrsIhux9jtk69ME
+940/lWoqO4/4iUEdr5cK3rdaTSpLdx4paXApmjIYUG1jUsst59EwvZFhKYVB
+sT+e6u86j1RGzhUuoWJgnCyaqhowjzzcsxfSJDBoLmtO+R49j6xtn5jmkzDY
+256WksOYR80NAQqjohhMTO5I2XZrHtUMKIzaEjA4u5SWQno6j+6tXdvhxSEC
+bcO35Fft86inpc56lkWEOx4FyTG/5lER5ZP1q2EiWEQfTN7AnkeGcRzN2F4i
+vCvQSp6kcNDVWlX5gfdE8IHhpLtqHHTrwcY/VUCE2f57Sb4bOOjAM+9npfeI
+kCwWnrTCiYOSnE+LJ+cTQUl3Q1KnFwep5m31k4slQqUj50JWBAfdyc89rHGQ
+CDahLy84J3PQM9OS3HCcCB0ZZy8QCznILb/izKACEYIe2l+Ahxz0yrFrW+SE
+GPA+ky9ENXHQR5fNcqhWDBhz7YnG3RzUZ7DTnx4pBpoK2YkTkxyU/tdFeclq
+MXhisTvxjtgCajwiZVf3RRQcvRQTfRQWED23ZlHxqCj0xv84r2S4gNpbMq7w
+uCJw7OaN8x02C+jE9ZtDl2NEQLQp4DzDYwFVq9o9eDEhDI1/0jT+BC8guXTJ
+NSsPCEMi8WGdedwC2u+oE6b1Sggwey7vz60FFGKVlRMQTIBmP7WrFrUL6Kj8
++h03AheZSeftzbLaFtAdS/zE8CSPSW5k/Gc5tYBMOtr2Ci1wmG9+P5LNJnLR
+M9HwwtvJ88w00a6HQ/JcRN08dqhTh83cqklwsTLgou3vGh8Ldc8yqbZaf7Nx
+LposCzYvvDfDfHfIMX3YjYssz7MuHS6ZZjISjuijAC5S7FjF1WudYu64kdOS
+E8VFJX4JydGqU0zp+tqAkXQumntS8fnTPRbzY3+vGF7MRVsKhrWdT7KYWcKi
+N3OrueghyyFz42kW00195abRJi7y7Fi811bHYspu2taHd3GRfn3YsXebpphf
+Dh6PzZvgIskIaW/G4hQzL/6i0pgQDzUWeDpWsKaZu4tfPLWm8VBxWZdZxrJZ
+plxdv0e+Lg8deez+Z4f/HPNbHzY3Zs5DCzvf8m91spmXCQa5m7bzkPbXJOaj
+wxymIn7yw/gJHkqPyGQFNfCYK5gSjrb1PPTjxycY2ioMP3qNhi518BA70LPT
+SkEEivg7E/8O85C3vuub790i4L0iWtOOx0NOB/aYOOWIgppV0avLUny0/rw4
+4YaVGPTvb/Se1OCjexX66zS+i8H10yN8OxM+Gt7meu+6HxEOFUgWXHHkI1Ol
+w/INfUTQfGFs/m8/H330NwxWccZgoNvzm/0xPtqAwukepRiUcGNPXj3HR0yr
+ck31BQwClG7SWPl85BAepWNgRwJdi5YqhzI+kuBEkT1SSDC8d8Kl4CUf9def
+oTS2kuBu9NJJ1gc+ivxzpdmNKA5BV0zpmwf4aGyq02faQhz0n+1fVcjmI3b4
+l8U7YeIw9v1s65TEIsrmkFoTr4hDOed24BaVRbQyjx75uF4cQhXeEq+tXUTN
+cG1fxKA4rDZj3Zy2W0QV/waGJDEy/PVcbuPouYieL7caHFEnQ2Wkxc9rIYuo
+jpLndsqcDMcuHYybiVtEczGpUuYuZFhbm6jslL2Igmy1sxp8yTDVWfasqGQR
+VaVeuln1Hxmq2e89Z2sXEU17+njVBUHuN1XMK+5bRMO2IoO0UjJc7dqNcZcR
+8J0K0rvIo2S4xI8/eVKNgMeZeO2t5JIhT618kKVPwB0OZ7aaUiUgM4DQPIwT
+cNNOuYE/RhKQOHUn6WsQAddNVPIJjZCAoxIc8aqXBDzoE59x6Z8EhK7WjFrd
+QsBp9Z2RugSKIH9sGyn9RMCX06vXR1Mp4Jd/vbVoiIBTY+aHjutRYI+GUypd
+RghXzDE4OeNFAVvzq5QgfyGcZaxroNNAAesDr2MGjgrhC8YJm7zeU8AqfnLM
+O1oIj4jUPZ/XTYGNTbZvdzOE8MDVMaeEZyiw2m083e6pEM5MUPnyUmsJyAVb
+SapRhfH+luAmg8QlMHq5T7rzkTD+VJkeEmhFhVgLc5dipjC+grc2+81mKsj0
+5jKCWoTxIyGNoTpuVDBTc5LkdQvjt4r2C7UFUCHl9iOKuqgInrwxqLiXQQW9
+6hQsxFUE15gxUTzfT4Wgt8a8xQkRvDptsr01QRKGF5OGdHTF8N6lbauMvKWg
+gTZUpUPH8OP6j4w6sqXhM0u/cbsuGS+3O0ha91MGck9kXB/NpeCmIgZ/9ORk
+QWHQzKq+iIJvHLO9ka8sC4Uef75dLqPg9B1JrqIagnrM3FLasY6Ck+vUEnsM
+ZOGp0GjcnTEKHvUfLSHDRhb60u33+9kswW/mqdXMhcmCfglv+Y/JJbi2Fm2s
+qlEWKpeXVj1eWIK/KLroq/RGVvD/uW+nE6n4KaLv4XPvZcEqpCzRUomKv3ui
+qeMmqFN3rPWcueJAxbWGzSzGJmUFebL6o0chFbf0aT8tr0SDBUPvMKNSKq4k
+wjh6Ro0GZ4olyKRqKl4U2rJ8SJsGyed8rJ+0UPG3W5p0nq6hwVVHqUraDBXP
+7KEmhznQQPX5M6fxRcH8VX/t+pxpcMsgYLCBLIkHjJnsc3elwX2plysiVCXx
+8ZeiVbb7abDu7OGnTvqSuLTZTHqdDw1qpmR3aWyQxIvqzs9ZB9LAwg/+cXBJ
+/Oh/Rlteh9KgriM4/aOTJB7nX/Vz23Ea/A/zulKG
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$113748#5"]& ]}}, {}}, {
+    DisplayFunction -> Identity, 
+     Method -> {
+      "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], "ScalingFunctions" -> 
+       None}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+     Ticks -> {Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, 
+     AxesOrigin -> {-11.512925150175361`, -14.619668378205503`}, 
+     FrameTicks -> {{Quiet[
+         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+        Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
+         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
+     DisplayFunction -> Identity, PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {
+        Scaled[0.05], 0}}, PlotRangeClipping -> True, ImagePadding -> All, 
+     DisplayFunction -> Identity, 
+     Method -> {
+      "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], "ScalingFunctions" -> None,
+        "ClippingRange" -> {{{-11.512925150175361`, 
+        3.9120226906332793`}, {-14.619668378205503`, 
+        10.12663078905547}}, {{-11.512925150175361`, 
+        3.9120226906332793`}, {-14.619668378205503`, 0.}}}}, DisplayFunction -> 
+     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
+     Axes -> {True, True}, AxesLabel -> {
+       FormBox["\[Beta]", TraditionalForm], 
+       FormBox["\"c(\[Beta]) / \[Beta]\"", TraditionalForm]}, 
+     AxesOrigin -> {0, 0}, CoordinatesToolOptions -> {"DisplayFunction" -> ({
+         Exp[
+          Part[#, 1]], 
+         Exp[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         Exp[
+          Part[#, 1]], 
+         Exp[
+          Part[#, 2]]}& )}, 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 -> {
+      "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], "ScalingFunctions" -> 
+       None}, PlotRange -> {All, {-14.619668378205503`, 0}}, 
+     PlotRangeClipping -> True, 
+     PlotRangePadding -> {{Automatic, Automatic}, {
+        Scaled[0.02], Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[
+    FormBox[
+     TemplateBox[{
+      "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \
+expansion\"", 
+       "\"Low-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\
+\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)expansion\"", 
+       RowBox[{"n", "\[LongEqual]", "8"}], 
+       RowBox[{"n", "\[LongEqual]", "12"}], 
+       RowBox[{"n", "\[LongEqual]", "16"}]}, "LineLegend", 
+      DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    GrayLevel[0], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
+                    False]], Appearance -> None, BaseStyle -> {}, 
+                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
+                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
+                 "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
+                    False]], Appearance -> None, BaseStyle -> {}, 
+                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
+                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    GrayLevel[0], Editable -> False, Selectable -> False], 
+                   ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.880722, 0.611041, 0.142051]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"], 
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{
+  3.790500033011464*^9, 3.79050084055266*^9, 3.7905009114756613`*^9, 
+   3.7905010403939533`*^9, {3.790501365461398*^9, 3.790501391778983*^9}, 
+   3.790680768133603*^9, {3.790681247430805*^9, 3.7906812623349133`*^9}, 
+   3.79068130990163*^9, 3.7906856024308653`*^9, 3.7906857162813396`*^9, {
+   3.790686478844146*^9, 3.7906865357958193`*^9}, 3.790687109731969*^9, 
+   3.7908818555386677`*^9, {3.790882251610034*^9, 3.79088230753218*^9}, 
+   3.79088233976814*^9, 3.790882410673272*^9, 3.790882481813483*^9},
+ CellLabel->"Out[80]=",ExpressionUUID->"927dd89d-4b73-4120-a692-bfd5bafde5d0"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"s8", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Sf", "[", "sample8", "]"}], "[", "x", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"s12", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Sf", "[", "sample12", "]"}], "[", "x", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"s16", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Sf", "[", "sample16", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\
+
+ CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, {
+  3.789818340608953*^9, 3.7898183589082117`*^9}, {3.7898187403625097`*^9, 
+  3.789818745944372*^9}, {3.789818811197695*^9, 3.789818811385725*^9}, {
+  3.789831546161499*^9, 3.789831546839629*^9}, {3.7898320404262114`*^9, 
+  3.7898320553038607`*^9}, {3.789864943007975*^9, 3.7898649514318943`*^9}, {
+  3.789892831115396*^9, 3.789892831435464*^9}, {3.789896963511537*^9, 
+  3.7898969690204773`*^9}},
+ CellLabel->"In[39]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"fit8", "=", 
+   RowBox[{"ff", "[", 
+    RowBox[{"sample8", ",", "1", ",", "0.01"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit12", "=", 
+   RowBox[{"ff", "[", 
+    RowBox[{"sample12", ",", "1", ",", "0.01"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit16", "=", 
+   RowBox[{"ff", "[", 
+    RowBox[{"sample16", ",", "1", ",", "0.01"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, {
+  3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, 
+  3.7898196362971153`*^9}, {3.7898199879787416`*^9, 3.789820000838752*^9}, {
+  3.789820614022482*^9, 3.78982065862674*^9}, {3.789831005306398*^9, 
+  3.7898310300074987`*^9}, {3.789831442674109*^9, 3.789831462231441*^9}, {
+  3.7898317830894527`*^9, 3.789831783399386*^9}, {3.789832066674664*^9, 
+  3.78983207936756*^9}, {3.7898624522781687`*^9, 3.789862458686954*^9}, {
+  3.7898649576818438`*^9, 3.7898649685188828`*^9}, {3.7898928388527813`*^9, 
+  3.789892842756661*^9}, {3.789896975455278*^9, 3.789896979805492*^9}},
+ CellLabel->"In[43]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LogLinearPlot", "[", 
+  RowBox[{
+   RowBox[{"Evaluate", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"s8", "[", "x", "]"}], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"logZ0", "[", "8", "]"}], "-", 
+          RowBox[{
+           RowBox[{"logZ", "[", "8", "]"}], "[", "x", "]"}]}], ")"}], "/", 
+        SuperscriptBox["8", "2"]}], "/.", 
+       RowBox[{"fit8", "[", 
+        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
+      RowBox[{"s12", "[", "x", "]"}], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"logZ0", "[", "12", "]"}], "-", 
+          RowBox[{
+           RowBox[{"logZ", "[", "12", "]"}], "[", "x", "]"}]}], ")"}], "/", 
+        SuperscriptBox["12", "2"]}], "/.", 
+       RowBox[{"fit12", "[", 
+        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
+      RowBox[{"s16", "[", "x", "]"}], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"logZ0", "[", "16", "]"}], "-", 
+          RowBox[{
+           RowBox[{"logZ", "[", "16", "]"}], "[", "x", "]"}]}], ")"}], "/", 
+        SuperscriptBox["16", "2"]}], "/.", 
+       RowBox[{"fit16", "[", 
+        RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
+   RowBox[{"AxesLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\[Beta]", ",", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"s", "[", "0", "]"}], "-", 
+        RowBox[{"s", "[", "\[Beta]", "]"}]}], ")"}]}], "}"}]}], ",", 
+   RowBox[{"PlotStyle", "\[Rule]", 
+    RowBox[{"Thread", "[", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Flatten", "[", 
+        RowBox[{"ConstantArray", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"None", ",", "Dashed"}], "}"}], ",", "3"}], "]"}], "]"}], 
+       ",", 
+       RowBox[{
+        RowBox[{"ColorData", "[", "97", "]"}], "/@", 
+        RowBox[{"Riffle", "[", 
+         RowBox[{
+          RowBox[{"Range", "[", "3", "]"}], ",", 
+          RowBox[{"Range", "[", "3", "]"}]}], "]"}]}]}], "}"}], "]"}]}], ",", 
+   
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"n", "\[Equal]", "8"}], ",", "None", ",", 
+      RowBox[{"n", "\[Equal]", "12"}], ",", "None", ",", 
+      RowBox[{"n", "\[Equal]", "16"}], ",", "None"}], "}"}]}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.7898191382164*^9, 3.78981915322369*^9}, {
+   3.789819203381546*^9, 3.7898192055038*^9}, {3.789819326102756*^9, 
+   3.789819347009884*^9}, {3.789819591195232*^9, 3.789819600655766*^9}, {
+   3.7898196738325663`*^9, 3.789819677929298*^9}, {3.7898197611734333`*^9, 
+   3.78981977649758*^9}, {3.7898322181303864`*^9, 3.789832224367557*^9}, {
+   3.789832474001747*^9, 3.789832488208096*^9}, {3.7898326615380707`*^9, 
+   3.789832728584391*^9}, {3.7898604327260637`*^9, 3.7898604328817043`*^9}, {
+   3.7898649731597443`*^9, 3.789864977151291*^9}, {3.7898928942783813`*^9, 
+   3.789892895301448*^9}, 3.789893744798514*^9, {3.789896988834631*^9, 
+   3.789896988839439*^9}, {3.790501199339796*^9, 3.790501228605167*^9}, {
+   3.790501312814767*^9, 3.790501318389104*^9}, {3.790502626780437*^9, 
+   3.790502637745879*^9}, {3.790687415941184*^9, 3.790687512627081*^9}, {
+   3.790882634773901*^9, 3.7908827218832617`*^9}, {3.790883013752141*^9, 
+   3.790883013839507*^9}},
+ CellLabel->"In[85]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
+
+Cell[BoxData[
+ TemplateBox[{GraphicsBox[{{{{}, {}, 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]], 
+         LineBox[CompressedData["
+1:eJwVj2s0lAkAhseXiLJyqVTYLUNtum0kt7wfGg4rUtpcMg1hUNFSqVg6siUp
+DWZKWZcmKWuzw0iuxeaykbbCmDQfUiIS49JYNdb+eM776znveVb5h+8OJGg0
+2s45/t/bmdevRFmG2NQtkJoJzThYZxZ4j013hL1Es9rEmoNJ7RMWW+n7UBGk
+9FFoy4F3gly+ks6G5uVNLlUuHKhV1fmp06Ow/pS2drc/B/0iupYK/Tya+A83
+Hk/h4OW79qH59KuozOY96B/k4O/DGz0V6fkgPjTelfFT0VzkE/K93gOMM8O7
+9HalQ3y0wLxusBYB+kdbV9B4ePPzQbfz+Y0YSS44p9B0FfekmXu6e5+CiI0v
+MJFkgGJfyxrofA5r/7NPfSdvwIG3WtV4tg2s7iQxn52Fcpkqypd2osYzJFUQ
+lwOXCzlB2tOvsEhpeiatJRe1XlOK5csphLCb+wp38bGu8IszN74HpV8jpPL2
+WzjN2CAbH+1FNa1oNifsNirl1ayo2D58OOd6TdP5Dha55dn5jb3FhHtAWJVh
+AVwfDneHn+3H0VP83AzXQnCd+vzo3wzAqPBk0hT3HoZDN/sidhDPFgUdvBL2
+J0wLJVpxakMIJqb1B2oFSE7otTeMH4bL5icbmEtL0B7D2DS6ZAR5oncrX/CF
+MEjxnGXd/AS3UwK9JOf7sNX1o+smjcLJNn230lQZBmgNRtd3jyFvqObYlU/l
+WPZDR2CzmhQsrYbB5VOVcBrZftWtXooEWlGv1ZoaRFbuNQpKHkewwdrsfvYj
+GLbpSDc5TCCqzWqiuLUW/3y5uDJZfRKnR8McjiX9hV+Kf9pm1T6JOrYotTau
+HsUlLSm/XZrCzYUpawK4jeh5LGWk7v0Mi/OHxDqrn4C36rG55WIZwr4ONjnW
+tsBt4Ue9rY0y+JfU22lEPwNtfgOr7tI0xOMisSOew8LZuYdw/BedGeaXbbNe
+IDQ7trpdfQZho5bzXhNtMCCZIp/mGSSe4fyxeks7uo9w+0zPfsHGsor8CpsO
+pP8eszPH+StCPZiZvTtEeG6qPlGjKIdaYPaJ9QadUGp1l4W3ynHMUI+XpiCG
+zcTQSGT6LFwafCMZrWLMFutwuEY00k6RbXIm4RW6ItO8KpJopPaQd/QJ+y5E
+vzr4yHyARsYo7dFkjnUhU5mV02OvQBqf8zGWX3uNCmvTIvd8BfJClOR9mosE
+mcuY+3UVCbLKccUSgVSCFZZ1gor5BLklwGtf+qQEGfuNlL2UCfLG2kcJUTIJ
+eLkjAq4qQQa/98jdLpcgxThOWV2DIMcOv+5rUqEQj5xiBX2CNLnomdv1HQU2
++82C99sIMv50wy2pK4X+Cw7MXy0IskJkdvKlO4WAwoISAyuCvL5YYiH0oMAa
+i2CybOb+Z8jE494UvKPnCcU7CNInX+DxOZCCSwr9QIs7Qdql1S6UxVB4IkgU
+hu6Z8z+4vhXFUXBqG1ZR2UuQIp3qwrJ4Cg7LS4UMT4I0c76kFpVIAXyG6kMm
+Qf5CMjQm0yjU1N894MsiSI2Sbw+18ShYD6iVzvgR5GJ+QmlJBgXzDR0HzAMJ
+8sdZR92IbAr33SxLO4LmevXbzN1vUtgakaV6PJggjxg4OGzOoyBMJ1haoXP9
+GaU71O9Q2FIWVCo4RJCVHpamIwUU/gPx+Uwz
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$116802#1"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          Dashing[{Small, Small}], 
+          RGBColor[0.368417, 0.506779, 0.709798]], 
+         LineBox[CompressedData["
+1:eJwVkms4lAkAhce3hCkN61bRlkx6Jkm15FbOJ0sPXTxEbmEQcslU2lWytVtJ
+igiDJIko1maNS6F8mkjlEnJPH1IaJbmvYsfqx3nef+c9P46GF8/Oh2AwGHsW
+8p05aalxocb+plWqFYcv70qh1m/1uefH3omL2gOHlmimUFNKvxnpsx3hhMUH
+Y74lUy7nxWI1th9k/FxdYnOTKbmHQk8WOxTc0lnLBOlkarCDrSjLjoSMw7bV
+15/wqVfv2z5JsZPBjX/UkmeSQD0P2ugkyb4D+RV/8BIdo6m6Ald/zsoHqFLR
+UECcP9V1JM9QOPQYZJaj4qqt4Xh71Nsm8k4tUvKu5Wcsv4p742n7evsbILNb
+XFQ+fx20X0q6qLMZRyK5i5qVs2CZtIapPd+KDKf4HTUpd1E2w0SZSidGJTmr
+xBL3sDsqw1fpazemuQYtSyML8dh5WrJsOY0DocKedPNirM+fs+af7cNqlWyT
+zOZShFnozEyM9sN/TfnHWrsyVIgfcUNPDyDd937/YeZDLLHJ3uE59g7aPy/R
+iUyoxF5quJd3bhCN19ncuNwq8K0GPNlLRWi077EdIYQYDtjkhtND+NpMfZay
+eAK9/DeKZ+Q+YVlg8t9umdWIPt9vvvbsMHyfparyRDVoC7fQHVUewW2z+Owq
+q1poxjrNczO/IHcs0zXr9jOYqXuy1S+NosentwKi5xAxnmql2o1BYppFqu+s
+g+rmdp86uXHYWwcFC67Uw2pke7JNzTgC2/qru142IKTCQcs3egLHw3fBbMNL
+rG1dNq5rOYn2kNHNhYZNaJq7rBbNmkKggX57v6gJvwv2G5i0TcEr6cLS1/xm
+CIrqY2/ETONox2e1zQYt6Kset4h3+BdhWjYm6wZbkKRRbWgsP4MUx6e6YVGv
+YLP480r92hmsYFs/4HNawZB6yhXGfAVfXGtn29EKI2vrPmLnN6yrcBX6n2xD
+wM3Tj9pYsxBEDJmv4bRDk3TvcK2bhf2WmFSDhnb0HuYP6J2bg1PY9gjl4A4k
+/hW+J8P6P+xv+vBngnonmvVYk5WSYgTJ3N0XTHViUaPtDK9RjLC9XgZDvC6Y
+Tn4aCUmcx7Aup2DDym7MC5Zd5WsxyOMTUnP1ld14HZLgXH6JQU5W97jIBb/G
+qW7vKkMRg4w58fxKnkIP0qS5GX3mEmRkrXC/vKAH5dv0CmzvSJBh7NJNKtw3
+SFN1P6AuSZAXvKneEwSNFcbCwnIpghy4uXFqjxSNawe0pJ2lCdKs5wZTU4ZG
+0q2RQj6TIGftw/Ub5GjEap+RZikQJM/S6LLGwk/PIkMg8RNBOnOKtr7QpeHn
+91bmgwFBcr7kxKi50RiMsnSPMCLISG2VrFEPGgfz84o0TQjynV/EgxovGtyx
+Y+5cU4K80ec9wDtEw+XUD8VdvxDkjy2rjapDaOyOZXvU2y74i1PfBV2i8aLw
+YnHAPoJ0HJP9ZhZDw6p1WFbWgSBLdE6yVONoWC4vKbZwWtiX42j8mE8DWRZM
+yn3Bl6wUp3yLRmVNrocblyB3tJ7L/phFY5tIrmTWkyBvyk+UUzk0DHXaPQx9
+Fvqjmt/759MotTEuafclyKIacta0gIb+sXTmr4cIUoH4R15JQKM4keAqBhDk
+UdNVWkPFNLbc9y0pDCTI+rArJpX3afwPLXRHcA==
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$116802#2"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.880722, 0.611041, 0.142051]], 
+         LineBox[CompressedData["
+1:eJwVj3k01IsDxflGKllaSOIVDYqnUrLG/UYRWcIjIkslFUrWSouHqPCsY4uS
+6qG87IpCFNkalHVEM6VS9imaYYaf3x/33HPPuefc+5E7ds7aneDj47u9qP/7
+vxnpcUE6p/XzA9Xbt+fEQ1nD/YkHxRiFeXek+/PjMb02UHs35TD4HeRkbxTH
+40j4/PwGigeyyuzMvlXFQ+RFnZsYJQiZDzpdKzvj8bWHsmY5JRKvspe/LSES
+8P5L14ggJQXe1YOiv10S0OS1zV6AkoMF9Utn6RsT0VLgeHqr7DP0XzkYc60v
+CX0+j7Tqvtdiy7F8zTMpyfh0/rhlZM4b8LpUM43OpuIJK8PmI/Mt2ktildyp
+6Rj0SL0z3NuB5HxrG7WXGTBKll+hstAJg4NKCmkH7qKCvQIVkr148Iq2U4Kb
+BbObWSfXcuiQnHjMFbXNRq3DjEDF+kE42vz0dPp2H8r5XFNqKAPcd0SIdPBD
+XNqvyv45ycQj2nKvCfkcPJ+vcg26+hnLdgXfWS+eh5WWDw3cpoawsG3CwIL3
+CBY1ox/PhX1FUmDuMj6d/0A1+exGER2GWmOA/FBSAUbP7DiKq98xIBS2tGqm
+EOr5A2uuiYzgeCSjzd26GNHhTEOF0FEcDvZNuZ5fgq7L+7dPSozjUeWEmfGe
+MmyOtV9wzZ7AlquS9h8Hy7FXxo0ic2sS2b3yvwuvPMMwX4NiuvUUKmbyKpY4
+VmKdWrd7iwgL2wwELKJ2vYDJuF6KZT0LleX7HgzLVMPvua3iyeifuNgga7Ba
+6SUUOqVY241+QfvynfE23Vq0c6M2RItNI2ClnN/4hTpcKbbT1O2ahnXSp2z/
+V69QXNIamxkzA/8UK0OecD0Yr1n7E2x/w4V64VRcTAOS5V5r6YizwRYZOiC1
+qRF69fYUyTVsJLnSNCoUGzF0akyMJcFGqaLYXWfVRuwslPyWt4GNPR8Slj/V
+acRb/dPU9UpsmPG6Au7aNkLASZTF1mOjfuSxkX10I3yT7R8/9WTD1C7wXBiv
+Eet1xpITz7KRPqHMqhdowsuBv0PPnWcj9vw0VXRlE0QVHjsoBbGRYO0XWizd
+hLwSnlBKKBsaoRLVRlpNYLRnnwhMY+N5rZxXgX8TLIXHZHe/YaMp96vuCKsJ
+GufY1pbNi3+MVre9nGuCzPslN06/ZWPD5iCrLIFm/EiXZmW+Z+Mfzt7bVySb
+EaF8oGEpg42CNF50qU4zXpjcP9vLZiPm+Yp72643Y8sNh5pgZQ4cxhPcKJtb
+IDZ64hdVlYPfGvcEfVVbMGPps7VwBweSr58UvtVswat1kYlDGhx4LgyXFZi1
+wDmn1MPckAP3ac8X8kEtSGoQE9/oxIE4y037G60FfIINrnUxHCRtSk4UiGqF
+hOTrYzlxHBwfSFWNTm6FslLdiehEDrKrvl+gZLfiL5PqU3Zpi9l0pCSyohU5
+MeU+Px5wEBfNXy7zvRUWkjkhq19wcHCvGuffg2+RoXQj69gPDp436A/IbKSh
+SCsi23hsce9Ooy+hSkODSfiDPyc5eJrQL8bToWHSMyR3ZnqRL/Zyh9phGgwL
+LxTe4p9FgvDPmIw4Gn5onX5ZLDWLo0vXrI0TaoO2qSmDMJ6FROKmbceWtOOf
+DTUqiqazCJB2TPVf2Y5Po7uCTMxnIR0cdokq0Y7oWFnROJtZyKUaJS7Z0g5G
+56SurOssSpjxsjfN2xHhkpKieXEWEVRjQ93b7XjnP2Th9XgWTfJXAhT2duDM
+3atVXWJz2HvrwSW/4nfYTDr3OLbMoa7m5sPSzC7QZWJ1dWlzSIkxftOd24U4
+Ts1d6Y452OdqjE6VdGG+WO5UX/ccxiqi01Y3L/YVvrDtPs1BXFthnD3dtcjp
+JW3NmQOr4Ad3h1k3+HsuHj2gxEXThHet3VQ3npU8qlVS5qI/3MfFYq4bZ+P6
+FYRUuVCxk/DWEezBBxO98fqdXLRXzapNSPXg2Qu+a4b6XPSGUVTb0AOf7Mgs
+fVsutP1qVRyjevDRm/pZPYyLdSK3yp3W96J7hV68dQQXle7mlVHyvWjNGdL3
+uckFf6L6xXyVXlQyd6U/juXiwiZ5/Vd6vUi2fXdIPoOLggHVa0ZuvTDTE6sW
+K+PiF8GUz3642F95M/XHVy5uba8X3EbpQ1HeDqNlP7jwWOq4JVelD7lGvT8V
+xrjQoJa/kdjVB2qIkqXbTy7iXcrbWvb2wedXvWDvAhdHuhQPPXTug9IHwq9e
+ioea0jnzjcl9SHp82TzLlIfTRkO/P3D7UDEt2XjDnIeQ9E/bowg6BlFkcP4Q
+D5mudUvUltGxpfOLpoEdD9Gcgubja+h4wbWQH3LjobbDYMRjKx2fzeV+K13k
+wWX2euCcDR07J+uzCnJ4mLrp28G5T8dhHdcNqY948FYIFn6VS8fl8FlqyH88
+KAT5KkT8R0eD1PYoqxLeIv+C1mw5HUf2pgb8rOahctWDe7eb6AhNOGOq2c2D
+rH/0+44xOjrUxX5VC8xD2Xb47tOd/dDApmdfhOax2WDXPU3NfqSbqF1eKTyP
+ej7huGLdfpxwthE4smoeJX+w/NP29YMdmbJ2WnYeHUXKkqp2/fijf+NuFc15
+TOkvbb94oR9ef+8ITDk9DyeR635elf1YSrNin6PNI0qqJlV09wfo/xoZ90ta
+QNx7DYNN4gNYKJaKpyrykVFDK18H0wbQ75foUHmLj+TrSPDRoA4imH78pdYw
+H+lS6Wlz1vQjMoRcsxiG/GR3Gc/7FOcjKveoF1jl8JMVe3arxh9hIGOds5OM
+AEF2RpxMOlfEgLROXVGlIEEyv+aAVcxAmpOikIMQQT6zG2T4lzKQfG+8iLqC
+IPfUHxK89JSBWJVrQmKrCDKTdO0Jq2IgFFnF/H8QZC5hmEdtYsDD49Oyb5oE
+Gf4k6K9iJgNfbxo5X9cmSPu/7r/f9ZmBE/mPSjbrEqRooJ5p2RADrlO+zq76
+BOkSOCP77BsDR4KXlPbtI8jygxJuVWMMmMVSXFqtCHJKy+l4A4eB5qIbpWds
+CHKkoNrbeI4Bk87R5cttF/8d3RrQyGXAaH1Z6X57gpQQU/duXmAA9/evqHEm
+yEFqK0ETZKK6Ps/lqCtBRh642mUhxMSeYZGyOTeCLPtdm9W2jAkt1W4XLXeC
+jOJIy3UIM1FuqVPWfZIgQ3z0u61EmNjte2dFwCmC7PtTPPydKBOlSYTrmjME
+WfBPirKNOBM7n54sK/IkyAiJD03vVzHxP/TbxQc=
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$116802#3"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          Dashing[{Small, Small}], 
+          RGBColor[0.880722, 0.611041, 0.142051]], 
+         LineBox[CompressedData["
+1:eJwVkHk4lAkAh8cXTSlNJYuiHhlqeehYMs7ft8nZYU1LdDC2RaxdlaJkKWnl
+Sm2oRKvDkTyunIMYOQopZZzh+1iMxRCRsKz9433ef9/nVfnJm+tKMBiMg0v8
+75SE+Jt+Bh4mdtsCCE09f2jscc10Z1ugKOusoIvyx9QGX31d9hGs4Xhcvhl+
+CUdDFhY2sd1xw9J+YaorADKllS4sth+UPHfOVoQEYaCVLbuSHQoN+4kLmh7B
++NAvHJZi30Hj3ZTTgoJQvPbSdpBkp2LwBjN7evst1Gcd8/hWuQhNaZ3ca2kJ
+aD+dzqkcEmD/qorCK7mP0XvmpE1oai0Gpk0K66fSkDmRcLiHfoOZDJ+1Fs8y
+0e1+94GorQkXzC1lExdzYB63VVpzsRnP7u/an9Wbh+IZaRR/0waj/Tlz5kWF
+OBCW5LbhaweqWcnhG0/wIXCclixW7EZosU/NcsMyaGTMW8cGU+BcKKC0ReXw
+N9OamRyn8eRVrb7YVICShTKeX2AfGmofOtpmV2K1TfJel09/w7Mp/xRXsgqH
+ykd6vK8OIO2gXmPPuWrEWvW5sNeIIPdl2XhWdw1GPHeeQOAQvqZLS2ze+Qo6
+GV2yQTLDCGgKPKXw4DUiQ2hTteAR+BFa5dmTdRAGmO0YlxNDJsXSS+jaANVo
+h0XeozEIfbOERk1v8L2SC1spfBzy3B+097LfQsSoUY/nfsKsTZZ4yOod5He1
+uNbLTEA94EPZlal3sBIb37GpnsCQifIwP7EJPiV26m6Rk5jlJ5oa/Pgeas0K
+EzvMP8PCqOT29YX3eDcfsSmSNYV+XxZLufADfs+11zMUTkHRMkzE9WpG7vOG
+6MSoaYRtTio+IicEVTVh9qfdF1hljuY/ahAiTqWKY7B2BmambU9L/Vpgs2pU
+Wbd2Bu2/ieb8trSCIVXDq4z6Cv7hHRcvCluhb21NERaz6DCWFVsFtcHzr8Ay
+IWsOFrTWDZ5eO1RJp9Zj9XMYD+tXM+9rR8+vsX06V+ex63XlpjcRHYh5FnAw
+yfpfCAQtRvF7O9Gkw/r8QnIBN8tD7faMdmJ5o+2Md+MC0n297ymkfITJ52Gx
+T8winKoCDBOOdWExV+FWrDqDPCS/TSiW7Eanz21HfjiDjFRdER9a2o1LHScr
+OCIGydT9w37MvQcJTF4SZSpBRopjOPNMCnwjnSzbVAnSeEtwp+pJCgnyTseV
+JAky8r3x7O4iChsNKnP4UgR52SLkVWYxhXvH1ZmOTII8V1oXp1FCIe6hOCdW
+miCPpxz5busLCtGaQUzWOoLU9D/jta6KQjCSciU2E2SdSnL32FsK7u69Kwb1
+CHL5mdUvMwYpDISZO13TJ8i5fu6t7UMUfs5If65qSJBjR+85P/mHAu/TWSee
+CUEK96nP3x+lcPTSsrz2fQSZrEDqRkxSOBDNdm6wJUjTCp9Uj0UKdTnX8zwP
+E+QeXf75fgYNq+aRlSvtlnrSGftcCBrmivl5Zg4EuT4minKQooHHZtLlTgTZ
+656qaLmKxovqp84neATZ8nF08OVqGkYimfw5l6V+W50CrKHB0Wpx5rgSZI6h
+gKu3jkaBjUF+ixtBPs5mqjxfT0P37APp86cI8q7aoTHtDTTyYgierCdBRsXH
+lKXL0dhd6Jaf88vST1ZnhLo8jf8A/r9P+w==
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$116802#4"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]], 
+         LineBox[CompressedData["
+1:eJwVV3c41o37fXrISvGWiqRklpZUiDgfGd8os0hINKQoI5KRrCQNo4y8RFMR
+sl6rkooGj709w4OkQqHBsz6/fn/c1/nj3Pd1zrmu88+95oiP3XEqhUL58Xf+
+Hx9lZiQG6Z00FPZdE0BhJEFD+3jhCZX/Icw7TbluKAm/ZM7t2K5yAFTpqZvR
+Y0lwihEI5FVOgEzWr1r4MwkLn792l1IJQmjDY2WdBckY7VFZIq5yGbL2C0eY
+O5LR8anr23yVNCwVJYIvpSfjg/cmR2GVXPxQMjln4XwTjUXOJ9cpVMJJ+tb+
+SPkU9Pnm6b7+Ugej7oiQT6xUDPkdtb6c+w4jbj9EX71IR+F05j4Wmwbr1yrZ
+uyYywDyRfmestw19X33MqhSzYJaqJLGe7ESiu8uivaXZqJqVQNWyXqS/z9ry
+Qfsu9l7J8ZCZ6wfXvWa+Uco91B38LVwlx8TeyqWhKzc9gMZTnkVK1CBCVhwV
+8n//ECGmG2dnfrDh5m3Zsy4oFzWCF25B4cNwfrD7q5/3E0haP9zlPjWCynBn
++8/u+bCqHWf5RI/CVW/+aYXHBUgxH3ZXWTSGf4QLnf8VeYbxU5qHEP4FH/u2
+npHRLca2p4wlFxd+Q0bwnub62yW4FsM2Vo0ah82SjS/JuVJ0hZlu/rF0EkXw
+38lNLIdygiPpdu870vcY5W/Vr4DRSneVlfE/0Jo5l/6RXYkxSoNaht0UElmT
+763eV2P5lu7jjQun4U7duWB53nOYTxqkWddP487l/jmrrJc4W2Ov5nFtBlYe
+TPFJ71dQ7ZSd3mz2E2NHsvNWXa5DK++q/DWpX3h4W4ne9OE1LpQ46Oh3/UJh
+VyhXRvYtSkqbErKu/8b/nu+XGzhcj8G306bJ9n+wSGtr4NquBqSueaurJz2L
+dO0N+uq73sN6wYTC9nez+Ek3l/xW8QGU+Q1ur6/PoUlrz33joEbssLAYpP6P
+g2My/dabNGi4IV+7Xs2CA9OPN2ibttAwNL41yNySA6WnKwy1dGm4lqCwKHEf
+B1e22cHYjIbBzh/6Cm4caFzybEo9QkPs4bQ0nWAOZhbVZVtm0jCgKTnsFMZB
+jkHZuQf3adCkRm4Kv8hBIK0lXiifhr4Hp+rfXuLgXMf1jwNVNGz4ajBjm8xB
+m+J1V0EPDe0BI1be+RxQ9ub0OS1rhrrZwYyEQg5il7WmHl7VjLDlzZ9KijkI
+0vXRSVFvhmp1RdhcBQfzVoo/XaTXjPNkfF7sWw5K93ikM12bsSp+i8hdBgeu
+9PTiR4+bcSo7/EWXFBfD4dqqT3e1YEJhtOvNYi6endn3WXVvC3wzLSeLl3KR
+VZs0r8S+Bedur1x9Q54LM42jW4RPtiDyZnWEmToXAaXzrB8mtiD98m/jCkMu
+Lm39dC96pAXyIq4uD424MJ0NEbrwvQV3YuoDbppwYSxmOXKL04IHkbce+lhw
+oXHowqMksVYUhWqJrnXgwvuOgrWwYisafM58TD/NxRc53uJAu9a/feoaivXl
+okveXGrZwVY0eRtwA85y8ZtxyKzxcCvaT0pusA3mYtb9UVrA6VYwjuZdF7/E
+xc3kMIv2K634eWDUJiSTi7UiPFL7XSuCui1PemZzobTy8e1DLa3g7C+PdLjH
+hUnW6Ju7Pa2g2MWUaD3mYkVuveSlsVZI7lWS+VbKBbOCOPpuQRuUCdce50Yu
+jOr9nzx3bEP/ygR9/WYuLuYNeNGOtCFxrjZ7RRsXrbW+cUKn2yAoWePZ182F
+jdzSpUORf/dVP806DHEhywoOP1/QhuQF3ivs5rhgq5feTpFsh/lYZvgWHhe5
+a7ZZGcm1g1JPG5ImudAdoTetUGvHmfDN+S3CPNh+JUUPEu2wmJrWt5TmAQ9c
+5JcHtWNeT/Ch3eo8vKZKbKubaEdlaV6dugYP5Y5JwUH8v/eJA6qiG3kwDg28
+fHhhB+jmBpP1WjxsXk8Xq9/YgcrnlIvGhjwYRfHWTfh2wPfe5RxDex64cn8S
+rCidYJ1OGd4WzYO/5/I/uYZd6JYwSLKL5SH7rjHpZ9+FptwRQ98rPHgFdKsd
+9O5CNXtrRn4CD1JZ3wqCMrqQat9uo5TJQzzlkU7lny7sNZB6KVXOw8yNts8W
+Zd0w7v/Pa2MlD9p7npSxG7uhF+Qqt6eGh5ceblf9hruxtrggILbub94Yq3y/
+xT0QUt27nk/jQfdGLFnh04NqySvpX0d5+F7JFDmj2oviJ5pmYl952FP43u+K
+fi8em/XOqE7w4Hsm6GmIbS9SItSt3Wd4OH9hIzEQ1gvfn/Xze0keikzuDfm0
+9UKdTj1bL8sHzSRv/kffPqwKzlMcludj8VDUn4roPsgss2umrObj1IkMpldq
+H6g2d9ftVOVjJrjSaE1NH5hvMFiyhQ/H8VUGZfP6cSs/zDLHgg/3AM8d0dH9
+qPq17H2cJR+mC1xaC5L6wUTxLj8bPm5E2a16mN2PtZ2fdHY58HFx/yL12ep+
+POdZKY248zExrvhM73s/2GZfMpuO8dG86ntCK7cfIknRy8tP8PFTrcNSW2wA
+NqqVkrGn+eDvnu90VnEAw5Zr/qgH8xFXqZZUZzUAsfQaP+kwPk4fj9YbOTiA
+DUP247PhfKToy7/sPzaAc+fi2R9i+BB7VXnINGQAEtkzjV6JfCQL7h5ffX8A
+Wj/qc4py+Yg59IKVNDGAA3pu8ul5fNzcd3bO8PcAwmI4KREFfMSGj+p+FAyg
+QXbzVdtSPja15L+9IEWHk1F64MxLPgwLZkO9NtMRlXzKQqebj+nN9lHjJ+nI
+pQvXr+7jQ5Mi87nal44mtWyI0fkoaSS6fYLoWFbTsa2PzUf1Sd17CTF05A3v
+XB06wUc6xUavIouOtm1SP18KC7Dm1+ikRhMd2lCs/CQqwFB1mZdCOx0Z5lvC
+JBcIEDKob8zvoeOY6z5hp38E2Lmhcl3cMB2zl9NkfikI4B/nqMCeo2PVwOrt
+63UESI7aKm+vwkD0J805Wz0BdH2q2RfWMTD23ejFeQMBJnyv/XN3EwMlwsdM
+G4wFCK9NXNKvy8ByqUDxCTMBHN9c+3fKgIEwuVjaEgsBpn57zooYM2C66bG9
+u40AgZ5vFJUtGcjTrZKL2yfANVumfKAtA4uMPzIKHQTwK0uor7BnoPfA+HGe
+iwD1h79dlnZlwDtS81zaSQHcey6kyZ1hoO2qkd5LbwFsH+h3cPwY0E61E4z4
+COB11iOhJZABMi8gVuucAOaPDnL2X2AgubMylRYlQICSPq3vKgNV6kYVQpkC
+SOdbnF+Vy4BIs+2sT/Nf/ZyIlyZ9DGRrbxCLaxPAOcvwkDGdAd1sEdmcTgGM
+E+o/G7EYOOVbo9PaL4C+eKUD8YkB2mLVIM3PAlTrD3RYTjFw68Dsrx+kAHP5
+ZKKIBBMbX7XPFxciQb6IurxtIRMNawuWrhEhoapkxvGUZmJ2zn27rSSJJFEH
+8c/LmHDObAwoliVRFGjTb6zChBL7zozfFhJpPosthggmasyDheK3kbCM7NR5
+asLE/pJ9S+7pkJgmFhdG72YiNlpsa7sBie9pt8QO2TDxRdXfX8uCxMc6tyMN
+bkw8O2U6NX2ExBaO7it6DBPmHavnLfAgMXBGWrPiChND+hxp5ZMkXE9X/Pfo
+BhMyC4s09/mQ0LHwFzSkM1EQeIXw8ifx7jy9ZjaLCTPmUZvoQBJf8t7EGd1n
+IqhI1rc0lMT+rw+sVxQyIS07c7ExnISD7W6L/FImHkfQEoYjSUxYPLe3r2LC
+6EtuNjeGxNKRkhnZWib6baOKlsSRuN7qt3jPWybOVrvUrr9K4tRs4G7Jd0xI
+Kuu0GN8gkSJlyf74gQnDn98mz94iQR8QiiNamJgvUdXokEbi1cJLCh/amGha
+Hft4RwaJb78zCq07mXDao3iEzCbhb9lBPdDHxLl7+7vi80mUyMZr2QwzUWjz
+oubuaxKiHubDnN9MrCq4Edfyg8S9KI0/jxRY+PTa+XjJDImpt4VCUoosPO1d
+uyvlNwnl7SHrgpRY0BN+w3XikXC8+a/4bnUW8gtCdWaEKETzCSuFSU0W3gk/
+ywuXohDmJmpMZxMWyBLZpBQ1CnFBPcLKxJsF6h09FbW1FEJbnZGzwIcFkSsu
+Ff+toxDsP8fGu/xYkDycw+jZQCGCFw32ng1iYcWCtRortlKIbzLRMz1RLGgf
+1XlzBxQixHnejGPGXz9WBx02G1EIpXHDCJcsFgx2hH6p3UUh9Krlnh/LYcFE
+qlaKbUohah8bFEc/YsGuxsxFeS+FWHvRtFRQwsLpJQ6/ch0pxFDatgQqjQVf
+QVCcrhOF8Mqnpbm2shDw5bb8B2cKEf65T7mug4WQWobRV1cKMdowjYx+FuK8
+jt/YcJxCaEXMDWWPsfDgTYB6sR+FmKoNlZQQGsTA2ZsHq+MpxL+y3PJXyoMI
+7T/6SneMQgyeUL2pf3UQmaJuOYPG84ijOv3BHiODqN65rcg2dx4xNLq20cCE
+jczlri4rhalEUbbm22VZbKzQe11cPZ9KtEbVjN+9w8ZtFzXRg6JUgi/6Qmxj
+DhupdyeLUySoxISNt7zxfTYS1l8UlfqHSgg9iSg484SNKOSUzFtFJcQiTFLe
+lLNx4sSQ2GcdKhFfE+Pm2czG6BUz10s7qERZV/fX6RY2jj3NK1XW/8s7E14X
+2v7+PVP+rm6GVKJq4rhVcicbTqFCZX0mVKJe8cCdmn429iaoHG6ypRIx7os8
+JT+z8bE4ruzUPirhlxppnzrGhnnnuLi4PZU4qWqxQ/ErG2Zy5WWmjlTi2rvJ
+4a0TbOC+qUStK5XwHpVpcJph42X9k8OH3KjE/tFXHiM/2dg5trCc604lRHeO
+80//ZkN3Y/dh3eNUYplGr1TkHBv/WeuVd3tQichnD+IluGxs978jEehJJVae
+FOPd5LFRdovqtuQUlfiTLn5MQcCGVoVHebEXlbj1oPD1I5KN/wPFS3Mq
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$116802#5"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          AbsoluteThickness[1.6], 
+          Dashing[{Small, Small}], 
+          RGBColor[0.560181, 0.691569, 0.194885]], 
+         LineBox[CompressedData["
+1:eJwV0/k/1HkAx/Hx3ZFMSS2FTmWattq240EY8f6EUVnlkSIURq6a8lBUrlKP
+0sGySu4okXR40IjakYgy5Sgmxh3zpXXkihC5tv3h9Xj+Ba+Vh72s3CgGg7H7
+Z/97PzHhui/3qNGtPsWayd5YrNvqlunB3gGhgGvHV4/DiOoZfR32AbzqFLS8
+NomDffD09BK2B8ro8q7QhDgo5Rc7K7N9MSQNn1LfGY+OOraKIvsqthUsWKOT
+moDqf6U98uxYlPytEeBpl4TS43/YMtnpGI9VnT9w+C7Ksw4eXbvsH7Q8qTi1
+1jQdDSce6RV3F8HwQojmvaIMtJ10sbya/ha3/Hq8xQuEyBxK3NdKv8fU8Y6c
+FVNP0eIRd7urXoLEfJfF8c+ewSxmFWv9TA00duo4+T4SQTTGgmhRPY6yK5+E
+Xc+HRUiyu+p4IwYP9qwuNi1Ekd0oU6TRgqzODYaZGkVYlzFpHn1RBnnLNf5z
+/IoRwNsw9u0rjYKWYIPgytd4Mf2S7xvUDs+wMM+NpiWYa5lm7Dz4GSIPa+GX
+O2LsKext9brUgRH+O9d69XeI3tXuzJ7XhfiLd27ToaXoFWxyQFA3GiW6X360
+l0E745PKeaUezENAmpl9BcKCaZPVF3vR1nDOO+X5e0jP8jZ+XdiPe5HrszZt
+qYRWhO0MP2UAnaLl+n1WVdi+1Jm9NPQrLLZf0zJnSNDFEHMSrAbxoE7MI/kS
+qG2udStXGoKU2XGi4NhH7Oo3jLUsGYK2ma5TmVo1fF5Yc9zDviE0xuGy18dq
+rK5RH9poNozsc645iRdqUDX515Iw5RFIfMgSF0MpzmXb6BpIR8AO2sN7PipF
+9tOKiKTwUfBWGPrdTK2F7M0QL9L6O/iVjPbZTnWIWflGjzt/DOaL0mxmzauH
+5Zy+ZTpvx3DkZGD4DVE9GPJifnH4OIKaOJO5Pg3QNzeXUTt+wLU52+fwykYI
+7gS9lCpPwLhXRevBp0ZoEce6g+UTGIi0bjod3oRWz+h27UuTqNxdaiPRb0bU
+47O7k82n8FDtV5Z4uBkSbeXhAuY0rPwMxMapnzDrw94xrw/TGO7Uz7Plt8Bo
+uKffJ2oGpccEJyc1WjGTrX4jmsMgnlcCN//2thVNPjft8kIZhFn/JOrMdhkC
+G11e6XUxCFdPdeGyeBkSFfjJMhM5Epoy35c1IEPeNu2svelyxCbq+ylTCxqJ
+ao6HljIpEirZ42ucSmMxt1iYJ08RmfBQp/gejfhDHAU7BYpsjRQc+PM+jZi7
+/cJoFkU+W13R3f+QRsT68wrKCyhiVPPyu1sWjYtIzpZbTpGh2t/9Ql7Q8PBo
+m92pSxHbZpZ/VTWNjhAzx8v6FMnMV+/eL6XhmvHoqZYBRZhJHLuGWhr8QW9H
+vhFFsh2M9dsaaNgH/pLTYEqRua3+499aaVhEsJ0q9lKkgO7yV+ulUSa8liPY
+RxHV4tHuW300dtX0KipaU+R4CtNec4CGmUZuDs+WIuoumty1QzSQymMVOlLE
++/OBH9yxn9+UPHRy4FOk7I2boHCcxrYupdwJZ4popvk0mkzQ0NtQ66TnRpEK
+t4g8i2kazyy5ubXuFFlllrROMkNDx/s26/QRivhxHidYy7UhJ4riqwgoUjVL
+xGqk2rDluXuu8BhFOJ3iAEdmG/4D4bpUqQ==
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$116802#6"]& ]}}, {}}, {
+    DisplayFunction -> Identity, 
+     Method -> {
+      "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], "ScalingFunctions" -> 
+       None}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+     Ticks -> {Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Automatic}, 
+     AxesOrigin -> {0., 0}, FrameTicks -> {{Automatic, 
+        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Quiet[
+         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
+     DisplayFunction -> Identity, PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {
+        Scaled[0.05], 
+        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+     DisplayFunction -> Identity, 
+     Method -> {
+      "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], "ScalingFunctions" -> None,
+        "ClippingRange" -> {{{4.6991532510082564`*^-8, 
+        2.3025850460025135`}, {-0.02372567994350283, 0.5630333326327885}}, {{
+        4.6991532510082564`*^-8, 2.3025850460025135`}, {-0.02372567994350283, 
+        0.5630333326327885}}}}, DisplayFunction -> Identity, AspectRatio -> 
+     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+     AxesLabel -> {
+       FormBox["\[Beta]", TraditionalForm], 
+       FormBox[
+        RowBox[{
+          RowBox[{"s", "(", "0", ")"}], "-", 
+          RowBox[{"s", "(", "\[Beta]", ")"}]}], TraditionalForm]}, 
+     AxesOrigin -> {0, 0}, CoordinatesToolOptions -> {"DisplayFunction" -> ({
+         Exp[
+          Part[#, 1]], 
+         Part[#, 2]}& ), "CopiedValueFunction" -> ({
+         Exp[
+          Part[#, 1]], 
+         Part[#, 2]}& )}, 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 -> {
+      "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], "ScalingFunctions" -> 
+       None}, PlotRange -> NCache[{{0, 
+         Log[10]}, {-0.02372567994350283, 0.5630333326327885}}, {{
+        0, 2.302585092994046}, {-0.02372567994350283, 0.5630333326327885}}], 
+     PlotRangeClipping -> True, PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {
+        Scaled[0.02], 
+        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
+    FormBox[
+     TemplateBox[{
+       RowBox[{"n", "\[LongEqual]", "8"}], "None", 
+       RowBox[{"n", "\[LongEqual]", "12"}], "None", 
+       RowBox[{"n", "\[LongEqual]", "16"}], "None"}, "LineLegend", 
+      DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.880722, 0.611041, 0.142051]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.880722, 0.611041, 0.142051]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
+           ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"], 
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{
+  3.789819154559926*^9, 3.7898192058383102`*^9, {3.789819328973916*^9, 
+   3.789819347233488*^9}, {3.789819586510404*^9, 3.789819601266243*^9}, {
+   3.7898196317659693`*^9, 3.789819637118384*^9}, 3.7898196782312527`*^9, {
+   3.789819743383521*^9, 3.789819776802191*^9}, 3.789820003836022*^9, 
+   3.7898200483861856`*^9, {3.789820594030262*^9, 3.789820707787868*^9}, {
+   3.7898224631465263`*^9, 3.7898224693046827`*^9}, 3.7898317351153708`*^9, {
+   3.789831769123528*^9, 3.7898317873044233`*^9}, 3.7898320868229*^9, {
+   3.789832219182062*^9, 3.7898322246789417`*^9}, 3.789832488485786*^9, {
+   3.7898326687007637`*^9, 3.7898327288395452`*^9}, {3.7898604293463984`*^9, 
+   3.789860433244069*^9}, {3.789862454221322*^9, 3.789862459724276*^9}, 
+   3.78989284423855*^9, 3.789892895680129*^9, {3.7898937316741867`*^9, 
+   3.7898937451922913`*^9}, {3.7898969827585917`*^9, 3.789896989637113*^9}, 
+   3.790500048307528*^9, 3.790500844463442*^9, 3.790500913757571*^9, 
+   3.790501318999692*^9, 3.790502638211178*^9, 3.7906807712547293`*^9, 
+   3.790681264559465*^9, 3.790681313682047*^9, 3.790685724380177*^9, {
+   3.790686481233158*^9, 3.7906865375867577`*^9}, {3.790687438279323*^9, 
+   3.790687513180407*^9}, {3.790881893625595*^9, 3.790881903596817*^9}, {
+   3.7908826353218327`*^9, 3.790882641285583*^9}, 3.7908827224551153`*^9, 
+   3.790883014282462*^9},
+ CellLabel->"Out[85]=",ExpressionUUID->"65690007-8378-4fa0-a374-4d85aa664d2e"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ns", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Import", "[", 
+      RowBox[{
+      "\"\<https://oeis.org/A206711/b206711.txt\>\"", ",", "\"\<Table\>\""}], 
+      "]"}], "[", 
+     RowBox[{"[", 
+      RowBox[{
+       RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "/", "2"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.78982026538109*^9, 3.789820353900846*^9}},
+ CellLabel->"In[47]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Exp", "[", 
+      RowBox[{"logN", "[", "8", "]"}], "]"}], "-", 
+     RowBox[{"ns", "[", 
+      RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", 
+   RowBox[{"ns", "[", 
+    RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
+  RowBox[{"fit8", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7860347589391937`*^9, 3.786034815522037*^9}, {
+  3.7860348927276173`*^9, 3.786034892871313*^9}, {3.786034938992958*^9, 
+  3.786034939228087*^9}, {3.786035027428249*^9, 3.786035027598805*^9}, {
+  3.78603612665457*^9, 3.786036174521947*^9}, {3.786036298387973*^9, 
+  3.786036298558413*^9}, {3.786036391518311*^9, 3.786036392481715*^9}, {
+  3.789817322122814*^9, 3.78981734350443*^9}, {3.78981904967447*^9, 
+  3.789819050028948*^9}, {3.78981989295175*^9, 3.789819900229203*^9}, {
+  3.789820346352702*^9, 3.789820358949071*^9}, {3.789831035088595*^9, 
+  3.789831035495175*^9}, {3.790686939117031*^9, 3.790686939521482*^9}},
+ CellLabel->"In[51]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
+
+Cell[BoxData["0.009051183090343628`"], "Output",
+ CellChangeTimes->{{3.786034765393785*^9, 3.786034815805835*^9}, {
+   3.786034880548635*^9, 3.7860348931752234`*^9}, {3.7860349290857697`*^9, 
+   3.78603493955373*^9}, 3.7860350281548758`*^9, 3.786035066093541*^9, 
+   3.786035221700058*^9, 3.786036062003336*^9, 3.7860360946394253`*^9, {
+   3.786036127322308*^9, 3.786036132430464*^9}, {3.786036162798462*^9, 
+   3.786036197237939*^9}, {3.786036258065976*^9, 3.7860363091693296`*^9}, 
+   3.786036393224642*^9, 3.786036435908414*^9, 3.786036506475976*^9, {
+   3.78981732702774*^9, 3.789817367917185*^9}, {3.789817799899253*^9, 
+   3.789817828202737*^9}, 3.789819050485126*^9, 3.78981908819144*^9, {
+   3.789819607127367*^9, 3.7898196375034018`*^9}, 3.789819744075357*^9, {
+   3.789819893666527*^9, 3.789819900694466*^9}, 3.789820004964889*^9, 
+   3.789820359137393*^9, {3.789820594929513*^9, 3.78982070858637*^9}, {
+   3.789822463806806*^9, 3.789822470222951*^9}, {3.789831035829953*^9, 
+   3.789831039712731*^9}, 3.7898311296448107`*^9, 3.789831173331883*^9, {
+   3.789831771607078*^9, 3.7898317882862673`*^9}, 3.7898321075130663`*^9, 
+   3.789860441009506*^9, {3.789862455358055*^9, 3.7898624604158573`*^9}, 
+   3.7898928491271963`*^9, 3.789895378453265*^9, 3.78989699519963*^9, 
+   3.790500053288452*^9, 3.7905008466582413`*^9, 3.790500915366055*^9, 
+   3.790680774016933*^9, 3.790681267181381*^9, 3.7906813151258707`*^9, 
+   3.790685728199264*^9, {3.790686487552446*^9, 3.790686539072474*^9}, {
+   3.7906869354035*^9, 3.790686939935053*^9}, 3.790687522332919*^9, 
+   3.79088196776464*^9},
+ CellLabel->"Out[51]=",ExpressionUUID->"babae3f6-24e2-4dd7-b0ec-523f55cda669"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Exp", "[", 
+      RowBox[{"logN", "[", "12", "]"}], "]"}], "-", 
+     RowBox[{"ns", "[", 
+      RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", 
+   RowBox[{"ns", "[", 
+    RowBox[{"[", "3", "]"}], "]"}]}], "/.", 
+  RowBox[{"fit12", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.789820082827054*^9, 3.789820111656827*^9}, {
+  3.78982037403331*^9, 3.78982038294141*^9}, {3.789831775865436*^9, 
+  3.78983177611141*^9}, {3.790686943324568*^9, 3.79068694357749*^9}},
+ CellLabel->"In[52]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
+
+Cell[BoxData["0.012502362829926339`"], "Output",
+ CellChangeTimes->{{3.789820091591922*^9, 3.789820112136485*^9}, 
+   3.789820384157509*^9, {3.789820595407804*^9, 3.789820619979476*^9}, {
+   3.7898206520168953`*^9, 3.789820708977715*^9}, {3.789822464040449*^9, 
+   3.789822470632036*^9}, {3.789831772132658*^9, 3.789831789119802*^9}, 
+   3.789832108205226*^9, 3.78986044212982*^9, {3.789862456024865*^9, 
+   3.7898624608924503`*^9}, 3.789892849403596*^9, 3.789895378722474*^9, 
+   3.789896995440785*^9, 3.790500053923429*^9, 3.790500846700687*^9, 
+   3.790500915950795*^9, 3.7906807745707397`*^9, 3.7906812676631613`*^9, 
+   3.790681315798389*^9, 3.790685728471385*^9, {3.7906864883651733`*^9, 
+   3.790686539448419*^9}, 3.790686943835453*^9, 3.790687522603384*^9, 
+   3.7908819681122227`*^9},
+ CellLabel->"Out[52]=",ExpressionUUID->"7ad87dcb-73ba-4fdb-83b2-828491e5f2a6"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Exp", "[", 
+      RowBox[{"logN", "[", "16", "]"}], "]"}], "-", 
+     RowBox[{"ns", "[", 
+      RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "/", 
+   RowBox[{"ns", "[", 
+    RowBox[{"[", "4", "]"}], "]"}]}], "/.", 
+  RowBox[{"fit16", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.78986498754324*^9, 3.789864996472858*^9}, {
+  3.790686947012381*^9, 3.790686947257492*^9}},
+ CellLabel->"In[53]:=",ExpressionUUID->"6c35788f-083e-448b-82aa-5d86bb96b55a"],
+
+Cell[BoxData[
+ RowBox[{"-", "0.038587921004946416`"}]], "Output",
+ CellChangeTimes->{3.78989699778589*^9, 3.790680775155786*^9, 
+  3.790681268587042*^9, 3.790681316297798*^9, 3.790685728795175*^9, 
+  3.7906865399149313`*^9, 3.790686947637628*^9, 3.7906875228290997`*^9, 
+  3.790881968518544*^9},
+ CellLabel->"Out[53]=",ExpressionUUID->"907a5ab6-eb46-4356-afa7-5e2982b3c2f2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ns", "[", 
+  RowBox[{"[", "4", "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.790686194939144*^9, 3.7906862275450993`*^9}},
+ CellLabel->
+  "In[226]:=",ExpressionUUID->"13f9cb8e-33ff-4686-bbb8-4d58374d239f"],
+
+Cell[BoxData["44263406458183601052293529600000"], "Output",
+ CellChangeTimes->{{3.790686196185197*^9, 3.790686228175531*^9}},
+ CellLabel->
+  "Out[226]=",ExpressionUUID->"0d50940b-c5f5-44ca-810a-714e1ad8f681"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Rho]8", "=", 
+   RowBox[{"sample8", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"5000", 
+         RowBox[{
+          RowBox[{"#\[Rho]s", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
+          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]12", "=", 
+   RowBox[{"sample12", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"5000", 
+         RowBox[{
+          RowBox[{"#\[Rho]s", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
+          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]16", "=", 
+   RowBox[{"sample16", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"5000", 
+         RowBox[{
+          RowBox[{"#\[Rho]s", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
+          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Rho]20", "=", 
+   RowBox[{"sample20", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"5000", 
+         RowBox[{
+          RowBox[{"#\[Rho]s", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
+          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.7905019043473682`*^9, 3.7905019700870667`*^9}, {
+  3.790502002763351*^9, 3.790502012968639*^9}, {3.7905024679717703`*^9, 
+  3.790502472800358*^9}, {3.790502738458009*^9, 3.790502748395129*^9}, {
+  3.7905028635862017`*^9, 3.7905028895420027`*^9}},
+ CellLabel->"In[54]:=",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"\[Rho]8", ",", "\[Rho]12", ",", "\[Rho]16"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"0", ",", "10"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0.0001", ",", "0.5"}], "}"}]}], "}"}]}], ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"n", "\[Equal]", "8"}], ",", 
+      RowBox[{"n", "\[Equal]", "12"}], ",", 
+      RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", 
+   RowBox[{"AxesLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\[Beta]", ",", 
+      RowBox[{
+       SubscriptBox["\[Rho]", "0"], "[", "\[Beta]", "]"}]}], "}"}]}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.790501877407139*^9, 3.790501891324082*^9}, {
+  3.790501974222625*^9, 3.7905020566343613`*^9}, {3.7905026457917023`*^9, 
+  3.790502688930539*^9}, {3.79050273258263*^9, 3.790502736403462*^9}, {
+  3.790502791574119*^9, 3.790502816300976*^9}, {3.7905029000440617`*^9, 
+  3.790502900230397*^9}},
+ CellLabel->"In[58]:=",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"],
+
+Cell[BoxData[
+ TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
+        Hue[0.67, 0.6, 0.6], 
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
+1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAA/Knx0k1iUD9Kyvf2hGjwv6Hgvf5/
+93k/3c6Hn95Y8L8P4hRnVgCVPwpTQ4mjVvC/qCEFqtrJqz9+kLwr7Zfwv80E
+w7mGGeU/7qsDbTHg9L8xlumXiLfqPwT5xGavIfa/AcCxZ8/l7T+XPElapcf2
+v64q+64IfvE//m8yLmvn97+GG/D5YQT0P4B0B43RGPm/+kSeJF2z9j+zftQX
+cUf6v34dOGdE6fk/og3e3K2b+79HyatzDMj8P5cjo9Gy1Py/xOv6Bbvh/j9k
+oYcBc7f9v9biUwCMpwBAst1ME9zY/r/rxVBOtOsBQDMlgRe35v+/h4px/iZU
+A0CWhAjVoZsAwIE+kSdJ1wRAD6v0WwpFAcA0aOif4CIGQDlh8cp22QHAOIQq
+NXugB0DIdK2tCYwCwHnpJjEIbAlACz7d43Z4A8DB/1ayY+MKQABKAkqbPQTA
+gosVNZgGDECNqGf9F94EwC+Lic3H9QxAG9uAwCBxBcBcOBCSBcwOQKVea7Sr
+qAbASKeufJYHEEA2uDMt85UHwGN/2T15mBBAMwPMxYt+CMC+9sySADURQCiZ
+cD0QlgnAnnsPlxzXEUDwRtjsFswKwGoYPiKmZBJAZ67k+UTdC8CyEYjX9SsT
+QGkWCPovlg3A/3ivWpnwE0BpgmF5JGQPwHfWbrvQvBRAjj5J28KyEMC2Z5YE
+qEkVQE6E3J08WhHAoUrNHmgFFkCLdtXiTEwSwErvG197BhdAJX8r0/mEE8B8
+1cqEXwoYQD/zC58k0BTAWW5pNSTuGEBRuPOhevEVwLCPTl35zBlAhpkXsyTr
+FsBZbmk1JM4aQL9g6nUFDhjAqrcGtkoQHEDir/GpHoMZwBqLprOTQR1AJZux
+3WLHGsAUP8bctYQeQFJI3FzRIhzAboYb8PkhIEBBkhtulA0ewIguqG+Z0yBA
+SISkrWWOH8AWwf9WsmMhQH/Lb4ezMiDAVMa/z7gQIkBUwbiNvQYhwOlg/Z/D
+7CJAoYOhh4nLIcBWrJ6aaYAjQBVVtbuxayLAA9F1xQ==
+         "]]}, {
+        Hue[0.9060679774997897, 0.6, 0.6], 
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
+1:eJwBIQXe+iFib1JlAgAAAFEAAAACAAAA/Knx0k1iUD/IIVFX4Irvv5maqbXV
+UYo/aSTMNV2077+l7D4R1aWwP9tpUHvCM/C/zM8NTdnpwz8HAJW54dLwv9RJ
+trqcEtE/ass6VvyS8b9UOlj/5zDZP510jK4vbvK/t+7mqQ654D+3cHSZSE3z
+vz3VITfDjeQ/zi2tbSUc9L+wjXiymxnoPwP5EUCW2vS/JH1aRX9o6z/8ffLT
+cY71v0DbatYZ3+4/45lnZstI9r8GnnsPlxzxP0lquVi5/fa/veMUHcnl8j9E
+jtkf1rv3vwZM4NbdvPQ/xHWGz/iE+L9DxTh/E4r2PxrsJyboRvm/XI/C9Shc
++D+frJG2gwz6v2wJ+aBnM/o/sUd5FSzW+r9EozuInSn8P+Hk4dasqPu/vOgr
+SDMW/j/nlKv/MHz8v8U9lj50AQBAkP8rywZN/b8PKJtyhfcAQCXN+SbWHv6/
+bTmX4qryAUBT3Geo9vT+v6A3Fakw9gJA81b0wd/Q/786kst/SP8DQNsp73JA
+WwDACAPPvYcLBUB5cp5NCs8AwDygbMoVHgZAM/CkvtFEAcBgWWlSCjoHQOjN
+nfJNvwHAJEVkWMVbCED6w2XLgzwCwNmUK7zLhQlA00vUjmu+AsDmXIqryr4K
+QCc2VimNRQPAkGtDxTj/C0C3UUMTh9EDwBzw+WGEMA1APXiSmAtXBMBHA3gL
+JGgOQNVQpNHa4QTAraOqCaKuD0CYTqhblXEFwJM16iEafRBAlH2tH8wGBsDH
+155ZEiARQOHqd1+4nQbAOKEQAYewEUDOV36M7CcHwOXQItv5PhJA8C+Ey7G1
+B8BM/bypSMUSQJ+3qNgaSAjAokW28/00E0CeCpFXBswIwJs90AoMmRNAkdVh
+S7xPCcBqMA3DR+QTQM/jdfXbvgnAO1PovMYuFEAPbPUQzTcKwA/W/znMdxRA
+2n7Bkaa8CsDDKt7IPLIUQGHNXGSsMAvAgPEMGvrnFEDB1djFdaYLwPJetTLh
+FxVApd4iXEoXDMD1LXO6LEYVQIWiqwlxjQzAG0zD8BFxFUAR5Ulo0wUNwGGJ
+B5RNmRVAb3UG0G95DcBoXDgQksUVQGo3jod6/g3AqvHSTWLwFUBiK3Y8uIkO
+wIE+kSdJFxZAGTfsXioLD8DN6bKY2DwWQAPQgcEGkg/A4IRCBBxiFkAxYJ5v
+bgsQwAYv+grSjBZACjONPdBaEMDVlc/yPLgWQEjSfpNzrhDALlbUYBrmFkCr
+biY4rwkRwA/uztptFxdADoFWmfRqEcAVkWEVb0QXQJAbel/7xRHAEsKjjSN2
+F0DVXnvqAywSwHkB9tGpqxdA4Zl6KUWWEsCYwK27eeoXQKlm9kC1EhPAqOMx
+A5UxGEDtdngWT5wTwOCEQgQcghhA2tjR6Sw1FMBcPSe9b9wYQLheRhIm0hTA
+s++K4H9LGUDquJ7GgIwVwBlW8Ubm0RlA8lLn9HpaFsCcM6K0N3gaQFORvIxW
+QhfA6LzGLlE9G0AshVfDKD0YwACuZMdGIBxAM3k5dyxBGcAr3sg88icdQBdw
+xhmoYBrAKCfaVUg5HkCaH+TFO4EbwN8yp8tiYh9ATj1yIB2rHMBGsdzSakgg
+QBqekmbn3x3AZcdGIF7nIEB3zxAqWhMfwHKKjuTyjyFAylNHypozIMAgY+5a
+Qj4iQOorNxRj3SDA9RCN7iD2IkCjWbQYjo8hwKm8HeG0wCNAEWoDTRdYIsBL
++Q/akNQjQBVVtbuxayLAmSZp0Q==
+         "]]}, {
+        Hue[0.1421359549995791, 0.6, 0.6], 
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
+1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAA/Knx0k1iUD99aEmv8fvuvxLZB1kW
+TNA/4zJxec0v8b+KBFPNrCXgPxVsGrbe2fK/5KCEmbb/6T+jJVkzA+b0v6Z+
+3lSkQvE/raiftFir9r/PLAlQU8v1P9jH80spkPi/UBn/PuNC+j99H2hdLW36
+v7gBnx9GCP8/fSD6WS5u/L+fdvhrsgYCQEd8sr1yi/6/NGjon+CiBEC0/0SL
+22AAwE/MejGUUwdAYHNx5/qGAcANcayL2ygKQAz62yJyvQLAgPEMGvonDUDd
+io/z+QcEwLQ8D+7OGhBA+t0opitcBcAeG4F4Xb8RQL087Qg7zAbA6xwDsteb
+E0AhhPUwDXIIwPsioS3nMhVABuUIi1frCcDIDFTGvw8WQFKQ7Qnt4ArAhnKi
+XYV0FkB+6BbB4nQLwL/Uz5uKtBZAxhmnfQTpC8ARje4gduYWQNzgav+GVgzA
+dCmuKvsOF0BItfQAZ70MwG7dzVMdMhdA4+Q/N98jDcDhfyvZsVEXQHxo3jbI
+jA3AkiIyrOJtF0AlD5cG//ENwGL4iJgSiRdAC1UqH9NeDsBRa5p3nKIXQPoI
+0REzzQ7Al4v4Tsy6F0BXVWgCiz8PwBjshm2L0hdAODIccwi0D8BE3QcgtekX
+QP+yfy/sFxDAxY8xdy0BGEDUqlA0plkQwH+8V61MGBhAN7k0ab6dEMDImLuW
+kC8YQBa8ecXk5BDA1SZO7ndIGEB+c3FvVTMRwDgyj/zBYBhAycDkD9GCEcC0
+dtuF5noYQJoPof/82RHALc+Du7OWGECJxti9VzkSwGR1q+ektxhArNXTwt6m
+EsAkC5jArdsYQHtIiUPKIBPANKK0N/gCGUDnWTfNJqATwMZQTrSrMBlAREYE
+3TguFMALKT+p9mkZQAfuukXY1hTAdR+A1CbOGUC67vi/j9AVwJrrNNJSmRpA
+aPd4amVGF8DecYqO5LIcQP0/tV0NxBnAgzRj0XT2H0CsXEXcJQcdwOCEQgQc
+oiFAhRJHC7UnIMCsyr4rgm8jQLoynnFe6iHAI0+HMozzI0AVVbW7sWsiwDeW
+c98=
+         "]]}}, {{
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]]}}, {{
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.009166666666666668], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
+    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
+     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+     DisplayFunction -> Identity, AspectRatio -> 
+     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+     AxesLabel -> {
+       FormBox["\[Beta]", TraditionalForm], 
+       FormBox[
+        RowBox[{
+          SubscriptBox["\[Rho]", "0"], "(", "\[Beta]", ")"}], 
+        TraditionalForm]}, AxesOrigin -> {0, -9.210340371976182}, 
+     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
+     FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
+        Charting`ScaledTicks[{Log, Exp}], 
+        Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, 
+     GridLines -> {None, None}, GridLinesStyle -> Directive[
+       GrayLevel[0.5, 0.4]], 
+     Method -> {
+      "OptimizePlotMarkers" -> True, 
+       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+           (Identity[#]& )[
+            Part[#, 1]], 
+           (Exp[#]& )[
+            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+           (Identity[#]& )[
+            Part[#, 1]], 
+           (Exp[#]& )[
+            Part[#, 2]]}& )}}, 
+     PlotRange -> {{0, 10}, {-9.210340371976182, -0.6931471805599453}}, 
+     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
+     Ticks -> {Automatic, 
+       Charting`ScaledTicks[{Log, Exp}]}}],FormBox[
+    FormBox[
+     TemplateBox[{
+       RowBox[{"n", "\[LongEqual]", "8"}], 
+       RowBox[{"n", "\[LongEqual]", "12"}], 
+       RowBox[{"n", "\[LongEqual]", "16"}]}, "PointLegend", 
+      DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
+                   ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
+                   ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.880722, 0.611041, 0.142051]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
+                   ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
+              "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"], 
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{{3.790501975959618*^9, 3.7905020568911247`*^9}, 
+   3.79050247396424*^9, {3.790502647200412*^9, 3.790502689232744*^9}, 
+   3.790502749273424*^9, {3.790502792035192*^9, 3.790502816523964*^9}, {
+   3.790502872347569*^9, 3.790502900553187*^9}, 3.7906808091204977`*^9, 
+   3.790881980395074*^9},
+ CellLabel->"Out[58]=",ExpressionUUID->"3c60a760-b3ac-4d7b-9b04-c7d37b0d7684"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"E8", "=", 
+   RowBox[{"sample8", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"#Es", "/", 
+         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"E12", "=", 
+   RowBox[{"sample12", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"#Es", "/", 
+         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"E16", "=", 
+   RowBox[{"sample16", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"#Es", "/", 
+         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"E20", "=", 
+   RowBox[{"sample20", "[", 
+    RowBox[{
+     RowBox[{"Thread", "[", 
+      RowBox[{"{", 
+       RowBox[{"#\[Beta]s", ",", 
+        RowBox[{"#Es", "/", 
+         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.7905019043473682`*^9, 3.7905019700870667`*^9}, {
+  3.790502002763351*^9, 3.790502012968639*^9}, {3.7905021289101*^9, 
+  3.7905021961735163`*^9}, {3.790502479326455*^9, 3.7905024854037313`*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"E8", ",", "E12", ",", "E16"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"0", ",", "10"}], "}"}], ",", "All"}], "}"}]}], ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"n", "\[Equal]", "8"}], ",", 
+      RowBox[{"n", "\[Equal]", "12"}], ",", 
+      RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", 
+   RowBox[{"AxesLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\[Beta]", ",", 
+      RowBox[{"e", "[", "\[Beta]", "]"}]}], "}"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.790501877407139*^9, 3.790501891324082*^9}, {
+  3.790501974222625*^9, 3.7905020566343613`*^9}, {3.790502159523988*^9, 
+  3.790502162452405*^9}, {3.7905026513955193`*^9, 3.790502656361638*^9}, {
+  3.790502718545635*^9, 3.79050272132894*^9}},
+ CellLabel->"In[63]:=",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"],
+
+Cell[BoxData[
+ TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
+        Hue[0.67, 0.6, 0.6], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
+1:eJwtlQs0VfkXx2/+7vXI5JUQKSKh8kqJy91X3klGYZpQeUTGaKKH6jYqChlN
+KMoqSYnSXw+v5LFDUd70uAhJUe7rh2gQNccsZ62zzvqs31r77PPd3+8+mn77
+3APFaDTaCeqefU7fHmnf7OfGuhTK7PDz4OH1vorvUf8cYVU9O7vYxYuHsv0L
+gzxpF1l5B/vDy715mKtJv9P1Io/1OXTe9fFgHjaJ15SeUR1gqZpnZhus4KNx
+6lBaXAmP1Z7jMRa7jY/znjwIahkQsnpppu+qfudjvv63fMk/R1iSHxUcNC7w
+8Yza8ORu8TFWW8PK1B2P+Dhlm6HtU/CVFX7T1Gi0m49/LjEPsh2aZG3u1o87
+yRCgw4u8CJnn06xj4yOth/UE+JQ/RS97/5119bSVcJgtwDf9W2l/5dBAcXfN
+SwMfAfKfubkW8ufB29ODFomRAow9u//7im3/g7GplInuiwI8aZ2k68QVh606
+9b3uhQJcG/z5Wp8WA5bsf85obxKgeYy+2bFMCUi4PabYzBPgkaEVxpKhUnB9
+j6PSs5+EWPXD86H/B2mQ+n1DWr++EE8lKJldYshAt0Jpn4yNEA0T4pvqxmXg
+a1pPSqyHEL3N5ZLpjQtgJm7ngzPHheiYk89JlZCDqZf2By3Shegf1Wl15JIc
+nLXs/VhSKMTKr43JNDN5sHzKCh1qE2LGMdk0da48eCja9kgMCzFExVrrVoAC
+oPRwz6CUCB/Kx3HHDRSh8BD1xatE+CPy3q+XhxXhNdPhY5mLCA+/CStrLV8I
+NeMrvf8OEWFxUKp4rpMS/MEPy+BxRHjduUkjmL4IPH4ur+9KFqEzUdt5jKEM
+Lh+UfZ3uipDzuj5mp7QKcN1CDLOqRLg9bK+ZtkgFYk65F4a3ifD+364+k42q
+4FnqNsntnTtvXgxMY2oSAhHeKWEUO8upgw6Pfm1wSoSLE24VpLCXQHpL6dtx
+BsGFrNruohgNoLsWn7RUIBg2axDNZeAbXTn2dSnBuDW5+y6/XAZJMhuKM/QI
+LvpvAJqwK99ufqsRwW212PJITgu2h6acrTUnOLRr5lqNQAuSvb9vnGITnJX7
+04PlkJd64EK0E8FsV8oq/trgZxR1unELwa30G8kWbB1YGnOCI+VFsDmuvbdv
+0wrwikxLmPAlmH74StZyVV2I56S5pwUQVBxlt+wp0gV7nYNi6cEEK9xTNc8p
+rQR79vDE1xCCTZaubUlMPZhe9zSyaT/BycygAp6pAcjvj9BX5RDULp2OHbNc
+BSFTghP8EwR9Nz2XsHq7Cv7R6jp3O5pgSRutV8xpDWgXDnifjaf6P1KnZxFu
+CMuDG7V5iQSNL+urXBQ3gmrjhgzx8wQPpqiIe1obgUfFtGtKEsHHTjJiBjlG
+oNvJC3e+QPDFAOvmO2tj0LE+fGomjaCR/m3F1kJjUIqQO1CYTrDu8aNEBphA
+5ZqaqMdXCZbpys4vKjaBmTPxDL1Mgj1FMZzWFFM4ukFQ6X+TYP/QxYcy8mvB
+KqA+NvPWXH+n1kLLjf4f53IJqnN2m3gsM4NgxsjJJXkE3RLTwhRemkHA0Ebl
+V/8n+K5vfsptv3VwY3un9cd7BCXvqv8akLcOJOnZwQP3CbJH/Bt9DNbD5aix
+zekPCf7lzBNfm7QevnwwXM0roPxxY1453cQcNh0KFe8vIsik5PauNIct9y4E
+xpUQvFyWel7WYgNIjxYk8R8RnFaJ4CpUb4BOtk6+/2OCZr6UQlkW0BN5OOBu
+OcGdEs2qPy+2hNPLHbM7KghGBCcJOVGWcAltBusrCcpeMc0qlGBCkdrxRokn
+BIu/zLyKjGcCryl3Ur+KYH7HzkNbRExIiPMbZVQTFDOIXdQZZgXjnfO4SjUE
+cQFV4KkVaNsF/PKM4kdwqr/O0RpWS7ltbXhKMJ6y2/wP1sDd8mP7l2cESxMZ
+w4vMWZBWa1ieXEtQIbuiSrmYBRw9ZvChOoKz7axXAXAzLytyeU6dzwbICuDK
+wkGrZopDyg+kqBwA+PS83jD6BcGr8lSBFgCampxmfj3BdbMGlWJDWDZ3j38D
+wdgcr3oTFzaUflNfurqR4PrFT3Ysi2dDX6dGxXuKnwgymKvK2WAZNtFzoIlg
+3+rzmROqNmBSN5p/tJngWKjn8XxPG+Ddr169tIXgf3smywa2NMh6D1CcZ+21
+48EnG9CYEnmmthJcMmtI3Y3gpnJh79o2Sn+9Brm68I3AiP5N9Lltbp61G2F2
+7d5tJ0ibveRsgZ6lG+j+kmCgav8vyixb+DyuO1JKcQEvokgpwRbStZ4M+bwi
+ODC6tH1fnS1o5G7V6KFYlyqjLm0HV6reGe55TdWfDaynHRTWu+ydoXiQikfl
+OTsoGS7fFvqGIJUO244OO/Axa5GfpPiVAfXGlfZAN721K5FLUO0nSoFd9hCj
+V589QrH5RHXAnfP2EBBBbdwOgpzR+26/VdvDsoKCz1cp3kTZV/67Paj565aL
+dxJ0CJ+UHWI5wJ69OYPhFFN/rUDVZAfoYi6Inuycy+crB5hWlhQL6CIoMJxN
+pCMEBX47X9I152dnR5D3au5VfUv5z+H90YVnHIGZZXMwguJ0SbUM3xeOcPMP
+K2nu2zn9aE5wTE5sVKeb4L/nUiX8
+         "]]}, {
+        Hue[0.9060679774997897, 0.6, 0.6], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
+1:eJwtVAk01fsTvyJbZb+urZBe11L2bOEOcl2lovcqCU/on0opeaHFmld/T6EI
+aZHyL5Q1lKVRUpKIsqaiJO7y+8aLJMvjf96cM2fOzOecmTmfWTR9g7bsXkCj
+0aLmdN5O5Y60bfR1ZY0wwzvpclzMuJRb1u4Wz1LdtWDrHkUu5vBtZdtzilj0
+0NwZfR0uNrUs2dg9XMcimoYWyOHiG+fyystyrSznBhXx3gNc/M3KffaLYTfL
+/MWWLuOLXKygBnOlHvSxbF3+TLGp4aJNu6Z53dkBlpTS47HuD1wsOhtWkqk8
+xBr+T2B75gwXV5z0cIwM4LGyXGl+dio8hLf7OpQ/UKwzJY2/m5rxUPTqcek0
+tRGWwcthoa2uPKz5pLD0+edRlmla0+Y1++dwl76Od9XfWMz3rh7f4njoUG8R
+KR8/ztp0PfmC1TUeeiY+HtP2nGCFhqRH8Cp4GCjxI2uPySRLmxMYKv2Kh+tu
+rD1zRWeKlbLpsQx3iIfVQ3ocE8UZ1nSNX88RGh/rbS7ahgjR4GCXUpEJg4/S
+2pnBcd9pUNShEG64mo8HLNM+5o0KQbDv4ZABez5mmdNzDccXQMe1zpJEdz5a
+nX8RyZkVBnHqxLmRA3wUF26pOb1oIRSE9jt0xfDROiuwkb5MFG4zAz5GpvHR
+Z8feLZJWYlAnfJyrdoePKxz93et3ikNgTuYf/rV87E7Rq34RJwEJtY4KUW/4
+OOgZn9/4UBKK6xcrtQ/xMWn/HAOzi8ApbmVX/xQf1b7+2HXKcAmcszsKm6QF
+6CQctmhFgBRcDi+wjdIU4N0beRLZBdJgYefiM2MiwAtruJoqJ2Wgc0+k7Va2
+AJ91Xt0hpyEL57wSC3XdBWhxXUbodJEsPJI7XKgaIMDPr5a//WErBxV5s3/6
+hQnQZbo6l1MvBwVVDK26MwLMdiz/e9pUHg7l+Cpkpwkw0+aV5OIMeZiMVffx
+/p8A9xkuqXMakAf3iUmPtBIBrv11qPqpvgKc08+fbUcBSnfMWjaFKoDDze3X
+FzcLsE73fYN1iQJEX5rQ39YjwKiRxSqTXxSg4Gi97t5BAY56lxn3M+hgq/20
+Jm9EgGOrj1SuYtMhSW9slfi0AFVd6r7KHqZDsvwTkUExCnf9VyxlYwYd3Nj5
+1TvkKAzwtJA5X0+H/koafl9KYd78uXylQ4KxeIabDoXRtslMZ4YiJE03SmWb
+UPhyuCS9y1oRFrKlVeJsKOw7ZS+i5qsIY/UqJ/WdKBQ1mJRsS1CE0MFcnHKj
+sD21ZdT6viJwz9dybnpSqL/tjY/KoCJMrU8XC9lDoTTV3HOAwYAeuLUkJJhC
+evIuetA6BjT0xdPGj1Mo9/jGWa2jDLBDvdaqOArDhcZbc/MZUFZ1Xy8ykcL0
+2rtV4VwGyEZ2xX7JoPD2JyPhVCMlOC0/2b7/5r/9xShBxYTrSH8BhZ42zJqg
+XiU44SiqKv+AwlIS3xe5QRksJIMTSusoVN42wh5sVQb+VMOliGYKL5tk3zMP
+U4GFuSWlGd0Uzk/LzUYVplq9ZjMHKKQV+D9ja6iBj/qs3RFCod7cuEaZS4Ev
+XvkqaJJCbWbPVo7lMnhffdchTYTgB+NbL3x91YGzrVLyLymC7OLetn0cDfis
+KRLzhEFw91w27y8akJPuVHhTg2Bw/LmB0URNqCxlqrN1CGr4UR72tsshoLD3
+YrgRwTGZs5TG+HLoXJgrdMiSYG710v57tVpwRnh9ZIQdwRG/Jq8NZ1bAnRD/
+tiYOwU65UbsW9i/gKS7z3G4zQf1Zzelx+koY22gR+WQrwfii/uHU0ZWQnO7W
+aOBJkCtiKmvWywTmN0/VcF+C7RIBywO7tMF796KmqgCCy24NcfQ/6IBWccWt
+hwcJmuXbbt/ZqgtW6byJviMEnecLdOhBWe/PJNFwgiq1OzXsRlaBXXDKhF7E
+nO/Wo3pCSB+eVe5tfRpDsM4/z+c3OQPozDymrHCaYOLAqHqbuiHkmHnfiviL
+4KklmwtT6g2hb2z995lEgm77L4Ve9jWCaOnhgL8vEJz49VNOpogx5EUpMzCN
+4PrjsQYu5cZwP6Vv8komQdb2ncUYaAKB5o/MN14jqDee9u4CwxRU0l73xGYT
+HNo3F3lpCh7ql3TLcwh+dGdUtCatASHLWauh2wRD2CnjopvNoF9Ka7A5n6DW
+2x8R+xabQ49peWdMAcGwYzmrHHrN4dDra9OcYoLEwtEp+IEFHJaTOihxj6DO
+/INOt4RQiSKR6+UEDauY0ov+sIJoz48Nwg8I+nv1soXd14KkVexP1yqCe2lB
+0SKO1mAi9NM8uYZgsvQxs3x9G2iti9bPQYLNynMErrIFqwHG1KNHc3zNv38D
+FliH0a4+qyOYZBS6WlMdoNPLv/RRPUGjDF2l1JsA5ofEuCnPCGpHJDzYr2MH
+Cb/33HF+TnAeflNsB3eCvxaQRoKl3CNldAd7cPVf/i21iSBKzV1Ekz28Xpu1
+VKqZ4NPeslMnAhyAmSrseq2FoPgdNQ//nw7wOUjUULiVYKyb85Woi+tg02dF
+g91tBL03NIjZ6DnC9y7NwpzXBLNUDN6teOgID2NM/VrfEPQ6UD9TspMN91ut
+W4Q6/t3/72y4EE9PU+8kOFjwy0DsRSfYdb7C2biLoIMa76OZPQcCfDS2u3QT
+pP1fnMHQs18quIfgP7J2EnM=
+         "]]}, {
+        Hue[0.1421359549995791, 0.6, 0.6], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
+1:eJwdkHs41XccgF3Ok/tEnIs09yMkcxyzNnU+Dk/Oyp0eLG1GWlGK5LYNJSp3
+4bhtD05CbotQTy6fLksekkhDxhhjnHO+P/ZIFmNb7/O8z/v/axB01itETkZG
+Bv7z/27cWh5yDfLg/aoeG5hELaDmmII/3eUF70DMpX9GnBcxjebdX28yxSs+
+XNtWKlzE2fLLxW1bCzwjawe1r8giViVM+lTyl3m27J8DvGzEOLBHycO77w3v
+tv/enT9Gi9GDtXVghv+O95OYIUm9I8Z7smV6BxW3eKlRsYrBlBjLotfCmrfJ
+wVh/RgLXTILck3+WTYloYJHm6380UILuz+Kt870VQPCxb//5fAmqRdSnj+9W
+hqb1rOmmbgkmLavqvDNVg6ualnH2byXYYq9OnutsBxXhotyXxlL8cOfF2GOo
+AdsE3IsiDymKdeWbR0p3gKsgTPXTBCmuG1ZYznO0QV75zUruDSn2qPp0ozod
+egri6bQOKaZGio6lRNEhYbrA2L1Pijg8UJrWQgfK+8jJ8hEpamQS/eg5OqiU
+CP1YM1KMMms0X/+AAUoTJhG/SKUYPtHvvYvDAMXPntQ6rElxOtFirMmTAaYV
+Kyk5cgSvG3Lqfz/DAJU2DfdoVYJBa1eLNK8xwH9cKzudTtAzrCTmBxEDOLez
+Zq7oEyxMX3N7dp8BPtXy/u7mBJmS1DPpQwwQFrBv6nMJOk0o6LcuMGBVGNk1
+up/gk2zrGEtZJrzcIYx94EwwscO3wYXJBF1HmXOnPQn2FLULc6yYIDhnFKJy
+lOArthuJETDhBL1iVDmE4Cec7I2HgUyoy7PRigkn2BI9njIXz4SeuC0901iC
+lgPJ7XeETPg+TnZ18CLB4xfq5ivvMuGen2fyqQyCxipFDxrGmRD6TdHrISFB
+rqjFbk2OBXYb4ff/KCfY7eHWUvcRC7wEnLq3tQRVzHi3Vk+xoE/QWR3ZSvCC
+XtIw+zkLJucy8/iPCZaIuUNexTow2VhYpfiK4GREWtZssy6kR2yytZYIJnOD
+B6NW9UDVqLNmQo3Cqct8mq7IABznesu/MKGwvrfL4tJZI1hY/rZ0cx+F7/cG
+m4BflNh2vwuF2hmHFmn5pmA+rdS5GUDhC6fRpZVFM5jPzHvUEUbhoOH43wlp
+e4DWWxXwdRyFzXvDb8h+ZwU02vmVtRQKD6nKWVw5YQ3bhU0VpbkUNrYFJY5Z
+2gBbNjR0rJTCIw9rKt30bWHk9bqP9k0KM3dL1bo87CBlsP50WQOFyVYuVcpt
++yAlLtvGtZXCx8drA3049mBQEOQ8007hb+6ZheF8Hvg2BxvlPKKwpvuw3TUD
+Bxi8/vTlX08pXGBbK9bP8oFv7Jhl2U/hcMncruolJ7jL98s0GaJQ5j2fg/Nc
+Lq9ojMJ/AaQ1BE8=
+         "]]}}, {{
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]]}}, {{
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]]}, {
+        Directive[
+         PointSize[0.007333333333333334], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
+    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
+     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+     AxesLabel -> {
+       FormBox["\[Beta]", TraditionalForm], 
+       FormBox[
+        RowBox[{"e", "(", "\[Beta]", ")"}], TraditionalForm]}, 
+     AxesOrigin -> {0, -0.8002006004774308}, 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 -> {
+      "OptimizePlotMarkers" -> True, 
+       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+           (Identity[#]& )[
+            Part[#, 1]], 
+           (Identity[#]& )[
+            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+           (Identity[#]& )[
+            Part[#, 1]], 
+           (Identity[#]& )[
+            Part[#, 2]]}& )}}, 
+     PlotRange -> {{0, 10}, {-0.9956235625, -0.81048601953125}}, 
+     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {
+        Scaled[0.05], 
+        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
+    FormBox[
+     TemplateBox[{
+       RowBox[{"n", "\[LongEqual]", "8"}], 
+       RowBox[{"n", "\[LongEqual]", "12"}], 
+       RowBox[{"n", "\[LongEqual]", "16"}]}, "PointLegend", 
+      DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.880722, 0.611041, 0.142051]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
+              "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"], 
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{{3.790501975959618*^9, 3.7905020568911247`*^9}, {
+   3.790502162871426*^9, 3.790502197077286*^9}, 3.7905024866172*^9, {
+   3.790502652323476*^9, 3.7905026569786167`*^9}, 3.790502722784449*^9, 
+   3.790680810877782*^9, 3.790881982342059*^9},
+ CellLabel->"Out[63]=",ExpressionUUID->"995f7987-477c-4037-9f2a-a4db92542026"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[", 
+  RowBox[{
+   RowBox[{"d", "[", 
+    RowBox[{"All", ",", 
+     RowBox[{
+      RowBox[{"Thread", "[", 
+       RowBox[{"{", 
+        RowBox[{"#\[Beta]s", ",", 
+         RowBox[{
+          RowBox[{"Range", "[", "#N", "]"}], "/", 
+          RowBox[{"Sqrt", "[", "#N", "]"}]}]}], "}"}], "]"}], "&"}]}], "]"}], 
+   ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.789860752342498*^9, 3.789860770758177*^9}, {
+  3.78986147356671*^9, 3.789861534004075*^9}, {3.7898617800836077`*^9, 
+  3.789861835680109*^9}},
+ CellLabel->
+  "In[306]:=",ExpressionUUID->"6bf8aea7-b7b9-4d5b-a161-210bee9bd86a"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {{{}, {}, 
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw10H0sFGAcwPFz3q5zzt1xx73fJVkiL5Fo8/xShLpIE2uNaLe1Wl6muKaF
+scno0lg0yvrDy5lFm9goXUNbKUzFXX8Ihxk34ZByvUi/+23Pfvs833+ePfK0
+jHgllUKhwPb5t82alVFFWhyh7IyWsPVn5vw0tegR0jM20dQyokXrSEX93QvB
+DaPoScK+1z/4McSAniED1+Xn8osX0fMk8di05KR0GW0kJMMrPtW4il4m4rlB
+h3anDfQqCZDlvdwybKLXSL5irLnkshm9QaJ+RD+Ptd95/vZsElbboqvxjRX6
+Jylez2ealNZoMymt4USvBdiifxNVR1b/ebMdmgKPxnUeLV00tBWEh83rW7vp
+aCr01DaFzjQy0NZQL42k3cthom3glPpIQ1ECC20LUdemZ26XsNF2kOYTZqtN
+4qDtgck1mBU0ZzQN1PDiaUq7xbtgPPDb4QhPFzQdpAdClqrUFjuAqrps87TR
+Ygas1631rgRx0Y4waeqjTWVZzISkAeHDE70WO8HXRrJ1n8pDs0DBLY9ZOI4u
+YMEDm2aNsszS2eAlbv2TrbN0Nmw45PR1erhi58Cl6uYJgQpdwAF9bsTyq8+W
+7gzeXR0CTqIbdmegszNpCXQ+dheYTX0yFjiMLnABzetAhnRFgJ0LUx2TESmF
+Iuxc8PSntYoEEuw8+CKrLK+zlWHn/f8Prhy7KyymP16ouLobuyvUz97MzM1x
+x+4GmSn2Q/xne7C7gX7o+1mDx17sfOg0/fqk0nhi50Pp0YuzI9R92AWwv4Sn
+H6r2wi6AUPeYvCJfb+xCeL/0ti/8gw92ISR3RzOoZb7YRbB0iwQld/thF0FN
+OqdI+84fuxgkvCsKU28AdjFU+Of6yIcPYpeArjA7ssouCLsE1DeyhI5xh7BL
+IbatSnmnMhi7FO9DcMvgL25oCW4=
+       "]]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJwtlQs0Vfkex4/3I4/jvByv4zzlNUhRCvvrdTxK8opKV5cYRan0FsMSqcvF
+FTPKpBmzZkZJHimkUc3KTRQNalHjelQ35arERMfj0vnvtfba67/2//H7fb+f
+796CqMSgGEUajZa2eC89Zys+/OEftYl6uO6b2AsXr1P1QeovGN6pZNxKWX1S
+rHMv+JHqS/hPx+HpLqqlseX48xtN5P0TSnaYoTfv9YC6rWlKa/V5TgmHX4XY
+03rJ/EFqLm5NzN7fBqjgkKslZzpGqCDPrNBmvRdk/Suqn1+YU6rympKKAlbW
+Hhylwlx28OxfviH7jVERbf/MhfM45TQx3tFn/I46pHhO3ejCe7L/e2r1/gMt
+HoETVPEO77q0qAnKiPEp/POmSXLeR6or9adsLau/KLqPftpZxynqp0saP44r
+TZPz/6I0nzed/6Vphjpt+98Nv2pOU9JIt3M1cbOknhmKr+X8iWczTynp3zBo
+HvhM5S5Tc69No0Fe3yzlZmW381C8Ak7MZ73qrJ2jOravv6+Wogh5vQtUmlVf
+jV62EmQHLvft96BBGFLRp3RFGfL6ach8FD/G6FVBQyzzdvIVBdj+mljS/VIV
+8n4UwTyfF+9xTw2Htib/nKmvhNSKstVsCw3I+1NCPVvWPn5aEys2juTkpSvj
+2ySLKsubyyDvVwU5P5TGhQ1pYdxtfVLJWxWssjFWb1PUgbx/VeTHWp97tFEX
+lx3qtpSHquH+dzeL8xPpkOuhDuEg/VKPtR7iLIxwpUUdFxMesAfu6UGujwYM
+Nn+QvgpkQGKSYXbDQhMTf6u3H7rBgFwvTWzVPp1sbcLEEP2t1p3CZUjv1BWd
+PMUk+mnBZUJNqXOOiQvKwR8fzGlBRd9qt50/i+ipDafHVe4P8ljYNt3U1/O1
+DmQqN//+7C6L6KuLopQw5QUZC9wx4e2Bx7po/zg4XmnCJnrTcfDd0L9GNrLx
+JtErePJ7Osx7XU3yjrGJ/nT8w3DD7+9r2GjbdUw6E6SH+JSCruJuNvFDD1un
+GvvPzLHxS/QVp3m1xb5cqRw6j0P8YYBb1KMRF8VB5vYha6VbDNDXBb9uzuIQ
+v5jYV9Ids6KGg51hbL76ASaaYiceOj7lEP+YKB1SPZE6zYF7oC9TezkLjs63
+gooF+sRPFpJvyUZu+elDsD5FlfF8UYdI8bWXpfrEXzZm+leuV+zRx4JnzQyn
+gI3y0bGd+1hc4jcbr8sGo7z2cPGn68sxIykHrCVDr3GJ/xw4FiZeb9QzQPMa
+g0G+jIN5Ha901wIDwsPiOeFO1+5zDHHO3r9bUq2PI0sNzhoSPriozJ8o3N1i
+hGPW6a2WMVyE2llWMLuMCS9c7Mp5Etgr5iHMrL7R1tAAfKl6nqONKeHHALZL
+E9h8OPBHK1d1GuB0/TSLVs4nPBkCsgKhvbMALEOTi04nF8d9Z62a3woIX4b4
+MOm3JStbiAlmYKGrkxH+FKumF4lEhDcjjN12EvnJRHisnZnlMW4k92tYTPgz
+BjvH743yNQmuqjUe8yk3RlFMdvT2UjPCozH6Kz9H7MlcjlyF/yX4h5tgablw
+gznh0wQiv+QMW2sLJMj4O4K0eagZGi2qtbYkvPKIn1bwmwoJDrvLg96/mxpy
+zawJv6bw/T7N7K70K5i/y5ZGHDHFQfG3C/mpNoRnU1w/eaKrrsQWGQcHSu04
+fJSLGmdPedoRvvmo8h46zhq3Q9L+o5y6fXxQYdtqWkpXEN75+PK5dLVH1F5G
+vkM7Hz9rSiWHhu0J/3wc+UpgOpmzEoHxlRoNEgEm53qOjkpXkTwIcHO57rJ6
+VQcgTpqxNk2AM9WLDf7hQPIhwNolAa46wjZmcLa5XwDbveUKzZmrSV6EuPTl
+97IGplHHD1MOQvRFHg7gqTqR/AihE3D1bEyDE3QiWe/v5AlRYrnoUMVakich
+JhM2p1S1rsPctqpdnm/IuNiZ5EsEWcSee/NBLhgL9xlp9RSh79Gn4BEvV5I3
+ES539m4ei6TwLHQ4wrdMhCV1ZfYg+RNBSeOMaXQV0B504kn7jAgLtckT1eZu
+JI9iKPif1A4oc0NTAGfTxhAxpp49TU+ycSf5FOPpqndrvDrdUbGhuq2rSowX
+GRceXgrzIHkVI0Fj5uLXMg985+vnEawhQcd42+/uuZ4kvxJ0+0fRwzW8cEr6
+ork3WoKUrrotUz94kTxL0GMVYzBsLsURj1TH8N8kCGrgZb69IyX5liBOmHD0
+eKg3YsGt7ueaIYDH2e3/zJvk3QzqLudDy6J9EOpSa7E9yQy0L5cvyb8Z/g9r
+T2rQ
+       "]]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJwtlAs4lPkex0fkfp0xM2YM5mJcYt3v4f0yjBG2dWkpdCS1ko4TbehGB1vr
+yVGbLrodJ9u2EolVaVU2D7tFK53YJRWRkCOmZanksPN/n+d93uf//v/v7//7
+f7/fzytITIvYtIxGo+Uu3kvPDxVTj8ISP6MerMzZfK7sGlV6qqK+K7yQjFup
+C+O+Bl0Xaqie1OftO2cfUu0dOmE9o81kvpt6HHzt5hl6J9WkaUZrlfVRUV4x
+C68cesj6fur6xHCFbkM/FRl1pbSwfZDy6RK4NxcNke+HqZqirNrTnBFKKlrt
+XLtjlDLfuy4wJ/k1qTdO4UlKN+f5BOUpn2jv4b2hVM/t1jvBmyL1J6lbg4Ym
+917KqeMJQXW5iXJKNbS/+2njH2S/t5SkxSOHUThD6cvYuSVu01Rc8d1pq7hZ
+sv8MlaoxV/aF8zvqa/tXod9rzlIB5SsPnrX+QPqZoxpHbGTOrI+UMvs6p/HZ
+O6rF57jvDiUaFP19oPSsTqcX/EnDno9fDXfUzlPbPE+8uCRXgqLfBarMnVnh
+MLMM79Mre7ZLaPD6pi1HtqAMRf80qCt33DqgtRw3NjOadlcpwbss9T7TVBWK
+8yxDwtotEZpeavhy3e7vCtjKMA9MimmJVYfifIt1Smwa2wo04Pjp4KHi/SoY
+jiusvH9bE4rzLsfhrYsKLGhhwi8ko/T1cvAm5zbkO+hAcX5VBClnaZkn66LS
+tW5t+Ro1VJVf0jhfrQeFHuo46jom4O7VR7K1MaruqOPn386tpfMNoNBHAx7/
+0Vc6UGMAsUmexXVrTbx8KHwy50uHQi9NhM43Vsha6BjQf63901EtnA+89nbe
+hUH008Zpn4ea2qUMnFOJfHt/XhspDjrNQUMMoqcOVkaONLbaGSJ29mbP4y90
+ode94NmeaUj01UPzime/eNcawmhc2PSsUw+5U9rcd68Mid76kK+vdxpgMzGW
+Fhj5x1l9TH+ScdNWyiT668M4tHnSYDsT97ZkS+ciDLDha7WSsFIm8cMAyXEe
++t+0MHFxY5XnRzU6Li3hMskk/tCx3/eIZTCbhYL4AVvlW3Q8GK09+bs3i/jF
+QH++vwovkYWkaCZfPZ0BVft3mo8OsYh/DHQd65B732DBPzyYoWNpCLvPHydw
+h1nET0PoTfzau43NhiBkryq9zxDMIxuYaQFs4i8T9LvlRaKdbCwEXJ1jHWEi
+W2mms6KSTfxm4mRT1Y/ZY2w89X05bixl4ftBR+VjjkbEf5aiv38aodGD089/
+z0Kcj+WttD4jkgc26t4U9ueEcHDKKey/4ho2OJ9PSYc7OSQfRjjjfP4H9ywu
+sm33t67YZIQlt8J9jElejECrTvpZyuch2qK+wZ7Lgc2iXXJLE5IfDqwse9fI
+PE3hyh+97NLBwXOni22JiWYkT1xIr/Y9SpHxYcg1KfPM52LTYrX1r/gkX1yk
+F/5rSF4sgJwRftTX0xj8jRPr/H2FJG/GmNYvmuDPCNGpU/CVZMIYFY0mAz80
+iUj+eJja2B4fctAcV9QasmXlPPxGl/t1SMUkjzzYLQjmZ5gWKFL6X2pYjAkK
+awZGj8ktSD5NMKbiYuDWZ4nU9/yECB1TdGkkC1N/tyJ5NYXpxRGZ3XNrrJqO
+ioy+awq3St/o2M4VJL9mCF7aoNsGVm8OSuMyzcBtiuX7TdmSPC+Ow3uN9yjZ
+IW/HszMOLD6aky4lRNHtSb75KB6Smz0yc0DG9ixW3T/4yNdZfaWkxYHknY/w
+racyzyQ6IvHv9MOubXzMRg5eOK3iRPLPx6rdefah15wW113WuCEWgIqOvXon
+1ZnwIIDNzImnR9kuQLI0zytXgJGUxTcPXAgfAryIYV/vPOwK+039Hxp7Bdgh
+LZlRXe1GeBFC9GRuX4q2O8wSd+2kXIXI2nXBVtLnTvgR4o1HYFB6gwd0/2Y4
++VOxENZLP+iTnoQnIRx+tNTT+tIL87HVWwLGhEiK75Mqx6wkfImwhZa2XyXQ
+G+MxssHWABGO6O1yq7TzIbyJ8CtnUUBbXzxZ8yIu+N8i/PX7t6cIfyIcdsz8
+RGAGtEXs6W6bE8GxdIXRsW9BeDSH1b5DDVut/XBzNeuzT6PMsTT9+Kof4dMc
+dWMZ9UyJPypCa+49rDbHHd1FItr9Ca/maO2rz9+TLMHJ4FWSSA0x1C/z1iW9
+lxB+xcgLDz6bezwAB6RDjV0bxVgf8ouaj00g4VmMMq79U/PbgciU7HOLuS1G
+/LaWj7WxUsK3WJH/P6XYDKOaXiMLDFeLh/KOBxHeLSDhvX7h5i/DGp9a6/gM
+C9D+uoIJ/xb4PzQkayU=
+       "]]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw1038s1GEcwPHvIXURd86d474O+dV1LqGY0Z7Pua1hSdSyNMWRcWsTlajV
+jrRYtVXnRivNFWtnq0bNZv2h2aoVCjWnRmfGqK64w4WJqM/zbM8+ez3v7fnv
+E6AuSj/hwDAMrN31uWy0DqSoDxDm33lJzsW17imsM6D7yAgRPVCNjqGHSF3x
+QcfeyW/oUdI9uLTVoLCix0laxHtzVcI8eorUXr2S+TF+EW0hoBGE/n7xBz1D
+dL6SirIGDvy3jXTKK1cf5zmh50iYVdsmMzmj7YSdWcypOsVFL5Dikk5VWrYr
+eomkNee7P690Ry8T2ZT99uspHnqF/LwTzNG0eKAZsE1H7WATPdEcKAovvD7I
+F6Id4GI5x95vpHYEpTW3J0suQjtBtWnepTSXegMIz1xIyq2ldoYaZfZEXxf1
+RugwG7b1TVJvAnIrNMnk6oXmQo9aPVusoN4M/U8S3qUmU7uAVv65lV9A7Qpu
+huReaTX1Fhhk/esfPqJ2gy8ren3IK2p3OBuf3xj5lZoHChX7Y8yO1vJgPGlg
+t85djJ0P6oXqeg8ZWsuHrjTbd1ZFuwc4HXZTtGXR7gGyZ8oQ73LaBRDpqLdO
+62gXAGNMuTf8lHZPON2wN3P7B9o9QSrSpMz+ol0II0rLPoPAG7sQKtpkGWUx
+aEYEmqZmW2ke7SKI1hW1d7TS7gUjA5rE4UAf7F6Qcyg9tPEtmhFDRDtvvDGI
+xS6GWrvz8XqLL3ZvWM9Vsf7YvSH8Wk3vm4kA7D4wXcI319QEYveBjKOtnRZp
+MHYJtKyv185Q7BIQ6z9xCxxk2FkwNu0HQYUcOwsny843h11WYPeFvDhz6g1T
+OHZfCKpbvXnpbgR2KQzNzCUfiY7CLgWu5P4xWfcu7H6w9puKdYnB7ofvsTj9
+4S/zzwJu
+       "]]}, 
+     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw10HlIE3AUwPFtLucx06mbc25uWl7psi3DAun3GhJlNucR0R+CqEUhKoZH
+SOjKo5yZEeIZWEtMcwqtZZHhQSRS3hgpoq0S70TDZKlkZe/34PH48P3veSWm
+x1xkMRgM+Lv/7nbz2ujZRA1h7E43cZ7gXBBEDqOHiY4dO2DwMaPHyczDwpr2
+nQW0mTTmTcc1qNbQM2QoyFYT++Enep5o3HeOf1NtopfJK2a99KTNDnqV1Gdb
+UozWLPjvHyTk8ny9Wc9Gr5Oo/lxFRSwHvUEcMgylk/52aAvRrnFFm34O6E1i
+CnNcGRQ5obeJp8eNa/FdPPRvsiS2Mn6qc0EzYMv7kXxOyUczoY8b19vlKECz
+oPiqPr4ok9oKusaG6nQmajbwylZk2bPUeyAzoO3A1l43tDWkTQ3ESpTUHPiS
+HzjxLJraBu57Kw1fU6ltIdFyu9q5hNoOolNqcx7oqe2hqtSi7n9NzQXhcnFq
+6Si1A4RPcWQvFqj3wrtyRY6cKUQ7Qv6b862RQmon6KvuqLwXjNY6wUdf9UrO
+Kdp5cFRZvt2TQDsPTNmTRbO5tDuDfKig43kl7c6QnNUy1/CSdhfYb1/d3TpJ
+uwuE6E2hFpY7dlfo1ahNLYfQWlewDyDNG1do50OWVDvmO0g7H2qXQkZjakTY
+BTCdobs7YxRjF0BBSNJI5oYUuxuYC1Vssd4LuxsY3ncG3kzfh10Iu+9N8sEu
+BP6diEV2hR92dxgOH19dXwzA7g4j3pO/8nRB2EVgPJj2mHk9GLsIIriswFuX
+FNg9oK09MX9Cfhi7B5zraWpQy45gF0OZ/3eHTk0odjEUBEc22rUfwy6Bt8lP
+E+KUYdgl8DmqrCpNRbB7QlPvmdASrxPYPWHBV2FjmFFhl8JY7azkyWo4dvqX
+03hl8AeS0wb/
+       "]]}, 
+     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw102tI01EYwOG/t9RpzrmbTp3loAUtSlNxlZ2XFBmFqGthUpKOIotihlQY
+4mUomJofiggrbaNZaoYDMZrT0Eyx1BSjYXhJJW0yNW+ZDpXUznvg8PKc37fD
+OXvVGuVlR4ZhYGtvz/WahYE4dQJhdlYreSmVLeSFTlH3E70+V1vCX6QeJM4T
+tza0I07w32Pk/FuL0P0Nm/onqU1VKaWpXGorSWwJN54N5lHPELWlRP/Mip4n
+Ut0943gNn3qRKN+JC22JAuplMtz09NVRA3qFqPWWsN+r6FUiN/3Q708QUttJ
+eaXxo1Mtep0cNkvZHt/QmyQqR/P1+QiagWYXHx6ZQjtA0onupbE5tCMoiruM
+xX/RTnAzcum1nPGldob5tbSCeTe0C1QHbj6p46B3QaNqtCxDhHYF+6ytVS5B
+u0HW9L4QNxnaHeJWq3JGw9AsSL6qZDVFoT3APHsysyIW7QmZhXdMRfHo3RD7
+5UPl7XNoLygdSmc0aWg2sE4f112/hvaGtoCtG8mkzvOGXget/G42dg4csrMG
+Sguxc+Czqq3aUIbdByo4VS1tj7H7QOd4T/2UDjsXojsic7m12LkgbLYeUDRg
+54GE3ynQNmPnQUH+r9H2Dux8ECdETLL6sPPBK/RTV/IgdgEodx4QdgH05xiK
+PG3YhfBieuZSxjJ2IXRfyRIPb2D3BZniiCDO1Y92X5g4FmLr8KZm/GBu+7pF
+2P0gPmVN1ifBLgLr9zr7hYPYRbAsMsf8icDuD5HvV3oeAHZ/aGy/+DD8FPYA
+MNyXWCbOYA+AbhMv6VEK9kCoL89u6L2BPRBSJ/uDh0zYxZAfXa1scBXRLobt
+75WeRM0EgedkjJlVgz2Insvp3AP/AOc0BmI=
+       "]]}, 
+     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw10HtIU1EcwPHb8rGpmZubm3cPZ+lmvuZzKkr3p39IUpKJNUzC1BJF0VDC
+QovCZ5aPkAhTQ1GTCUL5AIl8pAguksXMR8+Jq2E6U9cUJyOa+usHh8PnfP+4
+51zPzMLk6zSCIMC69neLckuTmJlEEQczTk3WMsR5lhr0B8qw3TRfkapEL1Kc
+aLJ674oevURxW99qZfp19A/qRtl6s/d9I3qFUlydXr2k3kYbqJ3ByfSmcDN6
+kyrZzeuPH7GgjZQ6YYOfHn1wPeuYqE9xjeUsCQ29Q5k/h56lsW3Qu5RqOnVx
+1tkOvUe99pfIPRbs0RYqX6LNL9Yx0H+ptFdjhucxTmgCwhZyu7qLnNFHYOYm
+masUuKBpYM5u4c/++e+jYHQi96TDTLQNdOdZPzDAQtuChtfX2at0RdtBPL1B
+Xn+LjbaHrMH6XkkOB02HvoLtVtOoG5oBYx/VLbUmLtoBapgTnXU6HtoRKnzD
+S9uf8NFOcFv0tW3oiwB9DO4MzNT9UonQzmB9zRuhpxh9HAKXo4PXKj3RLuDj
+YHoQE3Xi0PdcgK5f2Sr1O4mdCcZYdfacvRd2JlT3KN6F2HhjZ0FGSrK0PUGC
+nQVT4pdFOUwpdlfI+n057jTdB7sr6OTkeNoSmmCDdKKqR7F6CjsbtOfrnhb0
++2LnQFlGyMWgXj/sHCgtl517UeuP3Q0MF4ZFlQ8DsLtBkoVXvKAJxM4FRy+f
+u4/MMuxcEKwty8nGIOw8GIrYnbhGBmPnAV/2zcvuMZpwh9GgZl+ebQh2d9AQ
+32mMZ2iCBOjSjjoLQrGTULhZqUrpQBN8mHlvHf8w7HwYTxPHbg2gCQHYTjUE
+lySGYxdAalXk/NQImhAe/o84OXYhjOjYQtUcmhDBmf0HKyKwiyCgv22jR48m
+POBnRsd8WGEkdg88j8JdDP8AlekKAA==
+       "]]}, 
+     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
+      AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJwtkws41Okex8f9EhlmjBnjMldyOeuSEcL/O4wxKAnRFikq2vXoRFtZtqtc
+ttqSk9LTytbZVEoit1Kp9rBK0WUrbStx1HFJUjoUOjNn3nmeeeaZ5/3/3/f3
+fr+fDz9xfeQaTRqNtl35Vf1OnXn3YGFiBHV3/ra1pWV11C89V2e2/TeT/G+h
+THqZyTG0Q1RX6ov2TROd1Gm+ztlnbRVk/TF1V/tWYy6nn2o2tKW1KJ5TbsUD
+h/PrB8nzPZRG88Xkjv43VFT0hZIf2/uoSsfPlfpb35H3X1G53NHJVdofKLlw
+0dzqjQPUJ1mpKL7mI9lvmNpq7ZUsG5ikvMdG2rus3lLBbRUZRr9Pkf1Hqd+G
+PulceTlDFa8MrtmeOEY97o2i7S2nQX3ee2roXxHhl4Y0QFdYbP+H5ziV9+OG
+GbtoLajP/0jt8C+0D3mijQKX1wtOG05QHin/Od4j0IV6nknKK8dRklWmBy2L
+ek5T9ycqc8DOTT/VAOr5pqgbX2Kqk/oMkT2T+6qjepraucdcckTXCOp5v1Au
+ewruto4b4XN6RdeGQBrivOgHddpnQz0/DYryyuxiPToa1jKas85rIGlbl1/m
+ETrU99HEtY/tB2kSU3y3LOvUbgstlGaZHLZ6Ykrup4Vv2P6CU6vN4Bbet3f/
+Dm1Um+Y/GXdikPvq4MuWC8tKRhkYkYZllAzpYPPjtCudTUxyf13UJRdrnw4x
+R4Wk5uuTS/TwS+hdmxQdFslDH6FvuQlZuhZIceDi/HV9ZP9xOyfBkE3yMcDX
+aeskohE2xNa77OodDFG1Pzx+sp1D8jJUr9+zxEv6kNGNolk4W69bF0q3IvkZ
+wXLPqZoiqTVKtaPe3542ApNqeV6bY0PyNEaaChA+D8snLnc9Sp6N/K9Ory95
+yCP5moD1/wL4YA8LmrvvmyC65XpHA11A8qZjYOX08VvDAgyuD4r68DMdqrhf
+XxSS/On4NRyMVUkitK3LlE9GKnPVOXnQRyomfZjiXv6D7p4wO5Qnnfee0TPD
+0c3HTgg59qQfMzDGpB1ra+2xO/6ls9ZVM1yNLOb/ZD6H9MVQ5hx+v9DXAatj
+zXn66QxMliXXDM51Iv0xIGqcyvsw3xkBi0MYxvZMrAj7Xc/vT2fSJxP192nd
+miFfgR/2g67ZcybKM1sdfNJdSL/mcCtxZB/SdsUX2cVJVqE5vitia8f4u5K+
+zXE5xEjTqdwVf/n3D3PlLLT1U/984e9G+mfB1fEMo/OSG5q8OD28zyy0Xm7Y
+pwt3woMFrtibzKqtc8dR94UPxVUW+Ks2J7uzaC7hg43egUPVRqYeyHTe0eK4
+hq2eb6cH4YUNq+xV7kt4EsTa1Ta6WHIQse9wmtlDCeGHgxc9s4rOJHpCwhs4
+59HBgf45q2WrKzwJT5aQvktqj3eaB6aldZl3jiX2hg5qexTOI3xZIu2kRpOO
+uxfGGIuL/L258FXGHXfNi/DGRcmV4gMmPt64b7w7N3CEiyl2xhOzm96EPytI
+VigTOuGDC3qNmYqTVkjQu8dZbDmf8GiFjJTCN9nb5mOfxpvUhUutYXJs7olL
+er6ET2vUvZ9+tKXAF6mfeSsjjW1Q+TRh06IRX8KrDTSd8lhdaX4IHY+Oir1p
+g+uzlRv85kf4tUUDdva2Kvwx522+PG6zLQqUuM3q8yc826Jxn+4oy4vCro3d
+x1xZPJj9evWGRR1F+OZBNc48NpCxYQur5u/KdZVAfiC88/BN08Yi9kYgMc3s
+gOQODz+bKjfoAOGfB08VoAZSLP72nEGDmI+88tjb7gukxAc+5lk2L+cVSIEU
++S6f7Xw0D5f6OjdJiR989PztQNkEJwAua3qmmp7x8SE15ofKmADiiwC3xufE
+7T8RANvE7zdREgEq/GOXX3wdQPwRwFoFpH0gZicwR2/sFyDB4Q69NT2Q+CRQ
+99kSiOnlletkgwLQVB+6jPglxBpO71ILSobhpYq+FpkQNYMZteZ7ZMQ3IfrH
+bB+sb5XhzyW9cSHHhbB3UxJmGET8E8JXJWxMEO5EZj++MynEK6Ue134KIj6K
+oLRD9vRpEC4vYkWER4vwyEl54hw58VMErrEygZVynFlQ1dZZKYLXxM3VZw/I
+ia8iZI9VRXx7U44jIaGBUQZihCnxNZ2RE3/FCE6fNBmggpEn/3fTH0li3Hqo
+POBgMPFZrPbzUTA2B271XHpNjGEXlZEK4rdYzXOoAmvBrnrGtkNl8MvvmbkK
+4rsdjupzS1e0KbDEr9ohPsNOnR8thPhvh/8B+XFmqg==
+       "]]}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
+      AbsoluteThickness[1.6]}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
+      AbsoluteThickness[
+      1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
+      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
+     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
+      AbsoluteThickness[
+      1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}}}, {{}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  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->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0, 50.}, {0, 11.313708498984761`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.02], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.789860765434984*^9, 3.78986077096467*^9}, 
+   3.789861476324353*^9, {3.78986152537943*^9, 3.789861534309346*^9}, {
+   3.789861781488509*^9, 3.789861835889407*^9}, 3.790500128363778*^9, 
+   3.790687277934268*^9},
+ CellLabel->
+  "Out[306]=",ExpressionUUID->"79498c18-6a57-441c-9406-458e4e9973ff"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[", 
+  RowBox[{
+   RowBox[{"d", "[", 
+    RowBox[{
+     RowBox[{"SelectFirst", "[", 
+      RowBox[{
+       RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], ",", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"10000", "/", "2"}], 
+       RowBox[{"#\[Rho]s", "[", 
+        RowBox[{"[", 
+         RowBox[{"-", "4"}], "]"}], "]"}]}], "&"}]}], "]"}], ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.78500344089928*^9, 3.7850035247242117`*^9}, {
+   3.78500355492629*^9, 3.785003581869154*^9}, {3.7850037263212214`*^9, 
+   3.785003801241189*^9}, {3.785003858875341*^9, 3.785003870148059*^9}, {
+   3.7850040155105553`*^9, 3.7850040423493967`*^9}, {3.785006116081827*^9, 
+   3.785006116167615*^9}, {3.78505689009816*^9, 3.785056917277814*^9}, {
+   3.785057246856258*^9, 3.785057285467389*^9}, {3.7850576509576273`*^9, 
+   3.785057656673394*^9}, {3.785057728644764*^9, 3.785057728875795*^9}, {
+   3.785063505099409*^9, 3.7850635055000563`*^9}, 3.785064629891938*^9, {
+   3.789820922779374*^9, 3.7898209507203293`*^9}},
+ CellLabel->
+  "In[215]:=",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {{{}, {}, 
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       NCache[
+        Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
+      LineBox[{{1907., -14.0623706358958}, {1908., -14.0623706358958}}], 
+      LineBox[{{1944., -12.96375834722769}, {1945., -13.369223455335854`}}], 
+      LineBox[{{1951., -14.0623706358958}, {1952., -14.0623706358958}}], 
+      LineBox[{{1954., -14.0623706358958}, {1955., -13.369223455335854`}, {
+       1956., -14.0623706358958}}], 
+      LineBox[{{1964., -14.0623706358958}, {1965., -14.0623706358958}}], 
+      LineBox[{{1967., -14.0623706358958}, {1968., -14.0623706358958}}], 
+      LineBox[{{1970., -13.369223455335854`}, {1971., -12.96375834722769}}], 
+      LineBox[{{1973., -13.369223455335854`}, {1974., -12.96375834722769}, {
+       1975., -14.0623706358958}}], 
+      LineBox[{{1977., -14.0623706358958}, {1978., -14.0623706358958}, {
+       1979., -14.0623706358958}, {1980., -14.0623706358958}}], 
+      LineBox[{{1984., -14.0623706358958}, {1985., -14.0623706358958}, {
+       1986., -14.0623706358958}, {1987., -14.0623706358958}, {
+       1988., -14.0623706358958}}], 
+      LineBox[{{1990., -14.0623706358958}, {1991., -14.0623706358958}}], 
+      LineBox[{{1993., -14.0623706358958}, {1994., -14.0623706358958}}], 
+      LineBox[{{1996., -12.96375834722769}, {1997., -14.0623706358958}}], 
+      LineBox[{{2003., -14.0623706358958}, {2004., -14.0623706358958}, {
+       2005., -13.369223455335854`}, {2006., -12.96375834722769}, {
+       2007., -14.0623706358958}, {2008., -12.96375834722769}, {
+       2009., -14.0623706358958}, {2010., -12.676076274775909`}, {
+       2011., -12.96375834722769}, {2012., -12.96375834722769}, {
+       2013., -13.369223455335854`}, {2014., -14.0623706358958}, {
+       2015., -13.369223455335854`}, {2016., -12.96375834722769}, {
+       2017., -13.369223455335854`}, {2018., -12.4529327234617}, {
+       2019., -12.676076274775909`}}], LineBox[CompressedData["
+1:eJxc3Hs4Fd/7OHxJklSSJFFIkiRJQuKuHEoISZK8kZBKJSRJSJKIJEnSPp+3
+KJWQJCEhRZIkCUk5JJWQnvl9972f6/rs/ul6XWtmzazjbWbW2mreh532iYuJ
+if2aJib2//7/v38ZN2GGbl/R0b5lpf/nLBGTbkJg3cbpA4t0BKbdBL1ze7ma
+bpjOEknniaTnijifOD7h74WkBC2BC0SuVyxyfKnI8eU3YfGZiLukdeiqm1Cl
+bFnT/RldI3J+/U14ob39nfRDbYEbRe63WeT8VpH820Xur1PEPSLX+3YTeElX
+Dw4XLhV4UOT6wyLXGxHx+E1YdmJHlvhZPF+M9L/p4qT/zV+C9L/1IyliKZHz
+pUlw6dOxkxt/4/kypP+9/5kix8uS/vf+5USOlyf97/0qiFxfUSRdSSR/ZZHy
+LBQ5XlXkeHWRdA2RdE2RdC3i/rtnuLOXorVF7l+HBG4HQsVyJjQF1iXBkHns
+Vo80tB4JZvQyTWVd0foixxuI1KchCajkx+e9TDHdiAS+EQMR+++iTURsSvrf
+/mZGgutie1UMnTE/IEGKbrmScwgev1EkfwuR8lqRIPZD4tniZkzfLHI9G5H8
+bEXS7UXqy0EkfyeR851F6sNFpL5cRY53E7meOwmCvOouJLcsEdiDBGUdmr6L
+p2G6p8jx3iLl9xFpL1+R/PxF0gNEzj9I9IdNC3WeluPxgSLlOSJSn0Ek+Gy/
+rbl9Lx4fLHK/oSQYdz/W5/gd08NEHC5yfgQJiirj6p9dR0eK3F+USH3GiJwf
+S4LK5n+2Z53QcSTIOLPwRNEGdDwJTr2MDM2YjE4ggU3fBpXj8ehEYrxaFcjo
+/NQQ+KLI8SkkUDtgndR2C50qkp4mcv10kfJkkEBi4uWuU28x/0wSfE9o7D0s
+h+lZIs4WMYkEU1qvrfgWg+dTSGDiOaOuQA3TaSL3zxA5nkWMz5u64+1eaA4J
+Tivnv9D4jOaJ1GeOSHouCb6uCjU1eYS+TYLdiz88uHIbnS9S/nsi5S0gwcZJ
+B006p6ELRdKLSfCnWjVPrwZdQoI9D848PHQRXSriMhL4Zzy4ov15scDlJHD6
+3Fl44Ra6ggQ/7fe1rVDG46tIwN3i1Je6BF0tkl5DAmWNq6QuI3QdCbw2vlRg
+NGF+9STYZG7yXWMlpr8ScSMxXxWrZDeW4PFNJMh/EPaYXoFuJsr3QXfLmzZ0
+i0j+rSSY/TjMVI6FbhMpXzsJHO5mVX4+jO4QOb6TBCVz05LOL0d3k+CL7bfa
+PzvQPSTY59ax7FooupcY30tXRdvuR38jwfOB2tf2a9H9xHxjxPk7VRU9SOQX
+UfFu63r0EAlWuF8qj9iCHiaBcVrFysBhdYF/keBszp/4vaswfUTk/FGR88dJ
+cFX7udeda3j+hEh+YmSgX7d5DDVocTKUyixri+GiJcjwdXFZ3q+HaEkyUPdE
+SIsx0VJk+BNzPkAxCi0tki5Dhg/fpfSWm6BnkiHhkmpfcSJalgzPhp/ts4pF
+y5Hh5IMt9k3H0fJkGFfUDRzcjVYgg6vL2Oo5rmhFkfyVyNC1eS3/5Aa0Mhnm
+pB9u23kFvZAMev+aeXtXolXJcPyqp+xrDbS6yPkaZKjtU4zYJYvWJAO/N731
+6B81gbXI8Kjj8+6zn9DaZLBhj9+Y+wOtQ4aO7E4ycxytK5KuRwZj9Ufe650x
+f30yWElxfh58j+kGZHgbt4hmV4g2FLm+ERmaA+6lKN9Cm4jYlAyTt55e1M5A
+m5Fh0Cr5wMxTaCCD5IjbJff96I1kaIhtd6lOR1uQ4T/trP5PNmgrMtgZuS4+
+tAe9mQz5Rz+GJ4WjbcgwEvdu1QtDtC0Z4luPJNZJo+2J+s57eqFWCu1ABo2Z
+NOPuCVWBnchgf8Pv5pJOtDMZcuYsvvRSBo93IYNEYWLLAgu0Kxm0HVvWeKuh
+3cjgMTEp2v4Bnu9OBtlmRR/rOrQHGa5vCxx79xLtSdQ33frU1Ta0Nxm++Gx+
+dbgd7SOSny8ZHIt6sxXfov3JkPRtYJrEMXQAUd4H0++0k9EHifrJ/++ggTE6
+kAy7ZXeqz4hAHyHDTGsmLykdHUQcf/uWq/whdDAxvq5/eRayBR1KhsS+weyL
+gegw4vqs/pC4o+hwMjB9Cp/Gh6MjyODDTB4Y24SOJMPL5nqbq87oKCL/H8eu
+N9mgY8hQHq2UY/VqkcCxRH2FNS88tgzT48iwnZRnrjOO6fFkOMe5fDZ4NqYn
+kKFyN4W96hmmJxLjrUrnhvhn9EUycG6o/l14E51ChqLZlqWSHHQqGXgRifMo
+Geg0MjzcXvrbhoxOJ8OtBbz7r7aiM0TyyyTqI2qJB1sdnUWGz+cv5s2fj84m
+g8FQdVLDQjSJDOc747tap6MpZEiLybOYN7ZQYBoxfv2d/Cua0AwyHDSbuuPB
+DzSLDBbi0z9+IaE5ZLDVyL5nqonmEf0rYfPOle7oHDL4zT2T//ocOpcMwRW+
+vtqZ6NtE/y+c412qjc4nxuMNR953T/Q9MuTONTpkEIwuIO5/QZzFtL8qAhcS
+/SM19vxEC7qYDFHrlvj/HUKXkGFV3qZbydPx/FIyeKVEPb4QjellZDj7Lqvx
+ZQa6nJif/5RH6JxEVxDzy9H3na890VVEe5/W+pawHl1NpLfLmzFWoWvIMLen
+2NZHHV1HhlOJ+brvHdD1ZNjH2VSdIIF+RYZqs+OT5KehG4n5v+FwXX+5ssBN
+ZGg7Pzn87g90Mxm8r7/QsxhAt4gc30rEN418Od0QdBsZLlcHrvcvQreTAXqG
+FU7R0B1k2CmrbycXie4k4qEx5Y10LLqbDA+unCntWozuIcPUawU2NevQvWQo
+jrj20XEm+hsRnzRUHOgDCwTuJ+pzrerTBBlMHyTD7Bmyfz0+YPoQEd8e7+iL
+eYYeJsOW+TWO32+ifxHjNbVngJOHHiED6V/ytQQyepQMMZnrgt1j0eNkMPFS
+O264Gz1BBsP9+me0E9FiFHB401Bq4ooWp4Bs8QeDxAElgSUo4LVmu2z9P7Qk
+BZZtsX6X8wctRYEFT1XlJwktTYHDIUWupeVoGQr8CdIskx5Dz6RAxrX1Cj1c
+tCwFlpZwVy2vRctRYPEWsteTIrQ8BU6UkRzdI9EKFHgz+8fp60fQihSQlmo4
+8UuYrkSBwJzAE0P6aGUK9N8z9nxgj15IgZNfF3t9nodWJcr7NdFvQhGtTpQ3
+teWEvSxag0KMd4uU/ZPRmhSQOyM9R6p5vsBaRP5r+/89LkVrE+eT3rAON6B1
+KPB17InUs0q0LgVmD/lmK15F61GAHf3eN+skWp8CVreGOE1H0QYUmMFICuG7
+og0pkL4uaedlB7QRBY6QSj41maBNiPLb/LnVOgttSoGnP2amjU9Dm1GAuvuk
+0ZTPigIDBVYNPDEPHkZvpMBQyMG7N7rRFhR4FXHAovoT2ooCegtSpF2r0Jsp
+sBIo2ebFaBsKvJOMNzRPQtsSjtWav+oy2p4ChecLH286jXagQNrpB/GVLmgn
+CvSennPvlRnamQJ+blurxjahXSiwuj46jGaLdqXAdAeXeQFL0W4UmGbXJr9h
+BtqdAuHyQd+Up6A9iPqOb5XI+jRPYE8KuNz82FD7Fe1NAe6m2X/gJdqHAmPS
+l20kaGhfCsyp7O3+7z7anwJid+Pa+46iAyjw88pty75Y9EEKVJvbJBqeRQdS
+QHnvrQuyW9FHKBDxu9xQbRs6iALP3Peu7jZGB1PgEuOG54kV6FAKFKWeG26R
+RodRgPKdlbZNBR1OpL+fXG38R0HgCAo8qpM+196DjqRAec4a8pxv6CgK1Fy2
+rPovBx1DgQ+ZKhuP0tCxFNDaEHRlfwo6jhgPL6ZuunkIHU+BO2dDnUfS0QkU
+eFDts6H0IDqRaK+Y2z+b9qAvUuDA5RqtlhXoFArs4tbEam1CpxL3P1hl9XIz
+Oo1oX77hi0kz0ekUcGxTt5SUQWcQ9zdv7fcLo3MFziTmm9V1Ph860FlE/diN
+Ru5tQGdT4Ebmp4MZtWgSMX69dsd/y0dTiPruynRUYaBpFPjcuS9m7QU0g2i/
+sAsXks+gWRQIU1Y4mRCE5hDz0dhnU+sNaB7R/pbhlsc80DkUSIX/eKPm6FwK
+SK20lkleib5NHO/bslRDHp1PAW1DmSPUyeh7FNh4ar/Y1X55gQso8Pru39as
+VnQhBczoPxwLy9DFFJhQjWzpf4YuIcZDY27YNhq6lAIKal/LS6noMgrktZS5
+SF1Gl1OA5Nx3mRhEAldQwNnPyVwmBF1FgUXH+7+vcURXUwBqN/5YvQNdQwHX
++Ozcd+vRdRTQOUAdvj4PXU8B+12fvs+QQr+igI2tcvcpGXQjBRpyFWNC/s4R
+uIkCpd6XjFe3oZspEBd+vu3TK3QLBdYVbM2cW4hupcAa9eUfxbjoNgrssDHN
+78hHt1MgWybIP/gyuoMCS3YkrZeORndSYO6HvH+RJ9HdRLyqLQ4L3o3uocCt
+35aHFO3RvRSI1jKfM98O/Y0Cda9/tNgtQfdTYEX5lKrNauhBCmS27LS+oYwe
+osC+fzwp9+noYWK8lGeJOX+VE/gXBWj73Qxzv6FHiOtPhD7JbUePUkAj6dnY
+ssfocQr803o4voWDniDKe5uiMTcDLUaFyeYDD8VT0OJUSG6OPVWViJagwiOG
+QXHEXrQkFYwveoT/CUBLUcFboWVytQtamgrn3MeuKK5By1ChMtGPmQvomVT4
+PiTmKqaElqXCn/5Nh5YsRMtR4dZYUNqSP7MFlqcCxVA7vK4NrUAFan1d5c9O
+tCIVHF6rnf3XgVaiQuC17CzTSrQyFY4P24Wo5aIXUiF45O0etTy0KhVO/Zc2
+6dB1tDoVHjSxL9gkozWoUBA3Q2P2cbQmFbxO3v/5dT9aiwpWK5WejHigtamQ
+0EFeEr4FrUOFrGXXYlauRutS4Wqv7Z3A5Wg9KkgtIEWPKaD1qbDpT4nzRxm0
+ARVqXtLFH/fKCmxIhX/knHV+39BGVFBV8Sk1a0abUGHqUZ2Kyy/RplQYi+6K
+UX6KNqPC8oXP1EapaKDC54ASCVcWeiMVwhZWuHrEoS2oMBKS+dTnFNqKqL8/
+bkX9gejNVMgYahqQdEfbUOFTg9SCRTvQtlRoVgg58MMSbU+FFz3f0xpWox2o
+MEh9FmOhhXaiQrxH8BhvBtqZCtv0p+pwxdEuVMjcGvqxp3uWwK5UUFnRdSij
+Hu1GhaRJ523Gc9DuVLB+ui6JnoL2oALvEmjlhqA9qVAk53Rp6060N1G+JSED
+3mvQPlTIk2iw89dD+1JB48irPIuxmQL7E/c3/eDX7NfoACo4uxw4P6kMfZCo
+v6Ru6Vk56EAqHNUZThxPRh+hwvllOp0fPNBBVMgdf0N9COhgoj94JRnn66JD
+qdDOC4i7L4sOo4LJUbW5MT0zBA6nwnTjQku/Z+gIoj6Zar2NJehIKtQpxF9T
+uYmOosKOn68cXc6gY6ggnv47l+mOjiX6b6mv3MO16Dii/k/tLCTpouOJ8UCu
+XRo6BZ1AlF8xx3tkQkbgRCpYhpyRWFWGvkiMl2XrTyRz0ClEe7Uuy8i/iU6l
+wpMsztS/J9FpRPmWvDszzwedToUQ+/xfJbboDCp0DFhd3L8CnUnMF/9evqHN
+QGdRYUNak8Ol79MFzqaCHXPyuornaBIVmCdaGIevoymEl4oZKl1F06iw/XyB
+U1QImkEFnT2xeWKuaBYxfrKvL7u4Cc2hwke7z/s6VqJ5VLh5dvq9IwvROVT4
+MC1ucEWrtMC5VFh0ztqx4Qv6NnH9K87QSkfnE/XnvtXueRr6HhUka1v7IBxd
+QAXdr32JGe7oQirs7TR5QHJFF1Ph64Vy6RUa6BIquO/1+JMniS4l7vfDzmqL
+vmkClxH1pzTi/PUzupwK75UXTx0vRFdQIf2dgWEjHV1FhfXHu90/pqGrif5u
+vPi0yw50DRVIOdGOH+zQdVR4ZnAgvcAAXU+FnfN1eJIy6FdEfJg4JflWDN1I
+BXrQPrflbVICN1Hhr4vfDsX36GYifx/H13fy0C3EfGAwrvPqPLqVCifczWB9
+ELqNCvc7mtcEe6HbiXgSP+bLXo3uoILm8a6j99TQnUT5km+tipVEd1Mh/Pep
+oK1fpwrcQwV23ay6rXXoXip4XjOY9oKP/kaFqB89Z/beQPdTIWb/o6yEU+hB
+KshfeXqP640eooKbqs6+FDP0MBUaszSTFVeif1Fh5t/JjgEa6BFi/uTaNm76
+JCnwKHH9AHib1I4ep8KRld/37XiInqDCuxXM/jQ+WowGFncfqoklo8VpsJ9b
+y8qKQUvQ4P3hA2qDHmhJGqiYKG6jGKOlaJBXO2vBA3W0NA1W7F9dtFAcLUOD
+tKUOXMuhKQLPpMHAvhXbLF6jZYn8OJaXU+6h5Wjw97rG1oUUtDwN5s7aMXzh
+PFqBBttW6jdZB6IVabBznnefmxtaiQbyG8RcX5qhlWkQ/POS3hp19EIazLt+
+QqNHAq1Kg5UG3u5GXyQEVqeB8c21K8Vb0Bo06OJYS6cVoTVp0PprNvNuNlqL
+BiPDW0LyzqK1aVAUct26wQ+tQ4PdqaWDP7ahdYn6rnKQu2mO1qOBek+Gc9Q8
+tD4NaCW+ybZT0QY02GzkWf3j12SBDWmwvqTVO+wD2ogGB1csmKt1B21CA73t
+EWIL6GhTGjzeNi2qNhVtRoNpRc/nfwxCAw0quGkrqqzQG2lQv+vd0XgjtAVR
+3+L7b79ZjLYirqf6NZQ8G72ZBjKaYffsfooLbEOD35dbTI61oW1psMAuJm1t
+FdqeBpUT7w7Np6MdaER8ytzYcxHtRAPP9C/lp0+inWlwyWrTuUpPtAvRHwZa
+nx5Yj3algX2j94sNumg3Gqw5tvV6y2y0Ow3Wvld/rvRnksAeRH84XquyuBPt
+SYOpJ6e9dHuJ9qZB9xeDua+L0T40yN9sqTz/BtqXBuUOjFmFZ9H+NMh1HDJp
+OYgOoAFJmdQ03R59kAYp5DMNu0zRgTTi77nE7GwN9BEaPJDpYh2cig6iwfdS
+g5dzhsQEDqZB6tXnTpR36FAaBO26eeBPJTqMBlkFxuXpPHQ4DValHD3Wm46O
+oMGvG4soXufRkTS4V7/15SJ/dBQNxnZlLlCzRscQ7cE4tm3WWnQs0b+/HDdS
+VUHH0UB29GIUfTI6nqhfyhwx1Zf/Hv2fE2jw1u9k3xUqOpEG96O5WUWn0BeJ
+9lW5YG3rgk6hwU+djRWeGuhU4nqxc05Ej04InEYDqx+5G31q0enE+DVZ9yc7
+Hp1BA0b6pEFfP3QmDSJevNRcuxadRQO+UTyfN/RX4GwaXGNvbU3sRZOI/rXs
+yxbje2gKcf5p26D3p9A0Gli7/vhxyxrNoAE37KXZZ200iwaTE0s3O42PC8wh
+xtcVSbWUCjSPuN6qLde1b6JzaPAvKT/uxV50Lg02/e5wJluhbxPz5UhYF3ke
+Op8GTGqw+a7uMYHv0UBuys++jaXoAhocCmG8+BGFLqTBfO9XDE0fdDENlj5R
+fZ+ujS6hwYGNdTf9JqFLaeASsfurQf+owGXEfHRUTS2NjS6nweKWysjCZHQF
+DZaMO3Fc3dFVNNAP1IOg1ehqGjT9q1huIY2uoYG71mCy9/s/AtfRwHlrViEp
+D11PzFdhU8QMT6Jf0eDDz6Cy4c3oRho8WTj0sUgd3USDrema0Xl/RgRuJsav
+hUq7bCW6hQa3Zm14rs1Et9Lg5fziinMR6DYa7H3/KcRrD7qdBvvuRzibL0B3
+0MDxjx952b/fAnfS4PXvmzfyytHdRH9VE38RmonuoYEtmB+oCUL3Ev3h89zJ
+jtvQ32iwWjv66PRZ6H4aTJq17sDYyC+BB4n5/Vf+qedV6CEafNK7H6eZjR6m
+wcLmw14XgtG/aPC5K1+SYYoeocGprqJJtUroUaL+Ff8dedn1U+BxGlj6+EVV
+PEVPEOWrvL367HW0GB3shmMTn/uixenw9UW8mP8utAQdlLq/ujStQkvSgbeQ
+97trYlhgKTpY9ry0+q8KLU2HjoJ5GwNJaBk6nDadcTXmJHomHdZvjo7X3YmW
+pUNEwpm3KkvQcnT4oDYr33waWp4ON9R+MJXe/BBYgQ78RysP++WhFelw3+py
+94ezaCU6HA/lNh7fjVamQ5X1+blua9EL6SD+wEe8RgytSoeYAw/LJb8OCaxO
+BzPdX9xXhWgNOuyYmNg46zxakw4lvokfV4egtejw7M9as5EtaG06eJlNSelf
+gNahwwGjEzu/934XWJcOW2SX+QQ+ROsRlpBQ5N5A69PBcPEK44oQtAEd5k22
+PW9qhzakw9y4ec/rNdBGdLg9uGr5m+FBgU3osPvYrxDFWrQpHWb6DkQn30eb
+0cFnxpLslktoINpfInX/3X3ojXT4snMa7LNCW9DB/fiDpHkz0FZ0+HvOSdWk
+bUDgzXRoeHf9gvN1tA0dTEctuaFr0bZ0uPt3i7vut36B7emgUr+uvPg22oEO
+TS/ak+Xc0E50uDnt2p/n0mhnwg8cJK/d6RPYhQ7hje5M7YNoVzpELdvZGq2P
+dqNDD0w97/Pqm8DudCDXbz8afB7tQQcWJX5/uQXakw7jG7f66cxEe9NB7rmE
+nRTrq8A+dFBrNrD7fAztS4eBWWtTxRXQ/nRQ/eAfMu9xr8ABRP/eqjljLAh9
+kA5tCuU2s1aiA+ngPWQR/qnti8BHiPvbHbWJzEAH0cEzsezKdVt0MB2MppWU
+s6agQ+ng4uh4mMfrETiMDr0SH+9FHEKHE+0rFz7UqIWOoMO2xUpd4/WfBY6k
+g4Hd/tnUaHQUHQIVtFPSDNAxdDhUoJ/1cTY6lg4VMsyj/g+6BY4j+qOWxNDC
+EHQ8HWyPyYfmq6IT6BC596H9kvYujP90CLWNo27IRF+kw7L+8AfLNqBT6JB5
+cpxU8LcT4z8dwiyPeRU+QafRoWxgKIvqi04n5qNrfkcHjdEZdFB4+D5HsfUT
+xn86aCxP+RCQhc6iw4nI7KrtW9DZdJih+CPo5xw0iQ4XVnVWmz3uwPhPB4ud
+Ry3nH0HTiPF46Zzz8XVoBh3+hKeMZXZ+xPhP3M/1Pb0RPDSHDk89Lz0P9UXz
+6BC/x+GryyJ0Dh1a75i/v/2zHeM/HZ7fq0jeEou+Tcy/B6Qlp1qh8+mQMjYi
+lzEDfY8O1d12pjLJHzD+E/W1r9J/3Rx0IR30+xM8S6LaMP7TodD491Let/cY
+/4n2Sp8yrc8HXUqMlwmZJ/KvWjH+0+Fyvt9GCX90OR3YZpl7/GvfYfwn+oe4
+Q4OtIbqKmN+SSh41ZLdg/KeD7seywPPr0DXEfMGf2/qm+C3Gf6K/7zJdOqqD
+rqfD1XfGvTueNmP8p0Pw/XcFKrPQjUR9zvPPWn/hDcZ/or/cnHWKroxupkOu
+PPu+3dkmjP9Ef/87x/vYFHQrMb7h5PtzZ19j/Cf670Jv8fjhRoz/dNjX/SvK
+ex+6g5g/p3XfqR1swPhPh8c/tpxzcER3E/1B9rNRozi6hw5rKoIrOh1eYfyn
+g82JaQ8ju15i/KdDZ81pzx1e6H46cLw9Yk631GP8p0Ocb/NM8yD0EFG+msym
+k/kvMP7TYRG/wDKlqA7jPx2ObL0WXVpVi/GfDn5NXL1ieg3Gfzq8kN+xeojz
+HOM/Haz1VobZxVZj/KfDydZnG++/e4bxnwFFCTHNiiVVGP8ZMLnsiuqysUqM
+/wzYQapc/PhuBcZ/Bqx6d/b0ffZTjP8MsN/eSDedipZmwHzjd8FVOU8w/jNg
+ffiJ2sqqMoz/DDD9YcFO/PkY4z8DJPIrT6xRRssxQEnyavD4jFKM/wzgK/M4
+pJMlGP8Z8EFC6099QDHGfwa0z9/8c21QIcZ/Btj8Z/vOM6gA4z9Rvh8amhM7
+72H8Z8DQlWqX0jv5GP8ZUF7OCCxuvo3xnwENEm1Wx7JzMf4z4P70gN6Hs3Iw
+/jMgZp525OB7NsZ/BtTm3/thMJOB8Z8B7j++GR89R8b4zwCjCzzPocAbGP8Z
+4DGcrPR+4jLGfwbRHxgab1QTMf4T13+zc/K1pCiM/wwo289Vdyh3Mv8/GzLg
+TvsdsyOt0QIbMaDvKdP7oXSywCYMuOz33Pet/1WBTRkwRb2a/DHvhsBmDDj4
+n8HlU24UgYEB3NgGjr4vQ+CNDHi022RqazZbYAsGnK2xnz64OEdgK6K9nJ+p
+mLJzBd7MAMewDfOdom8LbMOAhPrHltuN8gW2ZYBF8fs1yb/uCmzPgD3f/eR2
+Pb8vsAMDdJO3eTVnPxDYiQFzuxdOHoorEtiZAT6OK3/Xqz4U2IUB22I574LX
+lgjsygCNSXqhxzRLBXZjQNX+siD5aY8FdieuZ7DU9p1GmcAeRH++m8u4+Brt
+yYBRvcr01Z+eCOzNgDoL6+piarnAPgzo33+peTTiqcC+DHgum8L661UhsD8D
+Ihq6cludKwUOYICbqXZivXqVwAcZABPi5o+UnwkcyIB1d4utB1+jjzDgVk/x
+md/V1QIHMcAkTZJblvpc4GAGnH+eFXzbrUbgUOL+ND94m8+pFTiMAWndkYvT
+teoEDmfA07pIMcUedAQDaId91PSYLwSOJM6/0fPkk2G9wFEMmJ1vvSzoCTqG
+AfOah5M3K70UOJYBTa3Jt5ZEouMY0B3JNZb6hI4n+vfesZJ9/q8ETmDASLJh
+y+cqdCIxX9yxb7bc0CDwRQa8f5GtlHkTncKAa98te81+o1MZUHF+g668b6PA
+acT97hDTetqMTmeAmPTphZPVXwucQYz/ByvFmenoTAa83hS8bt93dBYDZP9W
+nbfzaBI4myhPnbJMWR2aRNS/x6ZPvUZvBKYw4MCN6Pm5J9A0BnRNe2U1bWqz
+wAwGbPI9lTpzD5rFgEOr9hour0JziP63lMfM03srMI+YD6eU0v4mo3OI828o
+tG7vQucS/Xsrbcnd/S0C32bA9rcXxE2K0fkM+H7uSpOh+juB7zEgUjYyiH0c
+XcCAYiiuOfccXciAN8kXnN3MWgUuJuYT3i/NoHh0CQNujA1WDP1BlzJA67yK
+xfSD7wUuY4DUoJ+Ywl10OQMuuTwOGtRoE7iCAaTKhXcPRaKriPk1bpb6tc/o
+agak5++8lG32QeAaBvjP9M57RkHXEfNN4N2/xzvR9Qx4mxOgJqvTLvAroj9M
+8grp80I3MmCpNHOVbAq6iQF71e8y/hahmxnE37PPnlD60S3E/BR+eWWVwkeB
+W4n5bCDch74F3Ub0D5WKG18D0O0McLC51vvjJrqDASEqDVWV1ehOIp4MPDTM
+/YnuJubfrbfiZizuELiHAUlr9zUscUX3MuCvzo1Rn/PobwzQs1+ypywf3c+A
+sRiJGc+a0YMMkP5r5XtY8pPAQwyotEw/ZWiIHibiZ9hBmrMH+hfRv84orOhK
+Q48w4Gjy3NneBehRBjwJnuld9Qk9zoDkHK2InBmdAk8wYJKJl8lZa7QYE9J2
+211090WLM8HGdwvp0hW0BBMeRIjr3nuElmRCYmaUQ0A3WooJTn1KG+aodAks
+zYRtlpwXmZvQMkygeDmMrTiAnsmEFc+szlReQcsy4eros+AVD9FyTDgfdPXy
+pu9oeSZ474n1LJ3bLbACE1xvjo38NkErMiHhjaT1Mj+0EhNGwXrb/mS0MhN8
+1TekhReiFzLh4uLahyu70KpMCOmfeWParM8CqzPBY3VwcOUatAYTGjpsyXre
+aE0mSLHgpsU5tBYTDuy5/bqUh9Zmwubb+o+XtKB1mPCqwZ2nP4HWZcLnhvP7
+ivV6BNZjglU+Vb15B1qfCb8UmqwHjqMNmPDhY6X+CibakAmDEwl95MdoIyK/
+O7UylV/RJkxIXXQsepXcF4z/TFD8InbYzxRtxoQlDcsk9DzQwASDVRt6zeLR
+G5kw3pT480kO2oIJjA9vKLof0FZEe+gP714p3ovxnwnZy7eptqihbZhwt/a9
+9jYrtC0TuqYUB/44iLZnAstG/l9WGtqBaH8b07+jj9BOTAj//P3sqXdoZ6L+
+NH7VyE39ivGfCfoLydprl6JdifP/cabut0O7MUEz/Amv7ijanQndu+q3ZWah
+PZgQoPGRff8R2pMJL52sM3w60d5E++32tuv7h/ZhwvwBT9JNnW8Y/5nwODJX
+dv52tD8TOFPCjgYcRgcQ5T01abNZAvogE3xKpbRmlKADmXDmatYs6iv0ESbI
+ThvpNBPvw/jPhJHv43sV1dDBxHjce9c4eiM6lAnrZ0Wotvihw4j7nR4/4JeE
+DmeCkYH+CRsGOoLIL1O+Uus5OpIJ7xxfzkjoQ0cxgf2oYfMkmX6M/0z4EWRt
+L6uPjiX6X+vVksUO6DgmmLQtG608ho5nQlN19dzkNHQCE5pDdi1py0cnMkHL
+YlPA9Ab0RSYYP/I7lzyITmFCX6VHxNsFAxj/mUB6Hlg1yRCdxoSbkjfFvXeh
+05kwrXTEnnUcncGErcPqd21I6Mz/l944ciUXnUXUR574v/JP6GwmPB+J/k9u
+BE1iQknbYPjRWYMY/5lQFfB4z/RFaBoTxPTF3ntroRlM+E935bl569EsIv8Y
+nkK9NZrDBDn66nYzdzSPCV4PC01rfNA5TDhy3HJDWRg6lwn3QpJdXZLQt4ny
+rG04Zp6JzmfC/SclBTuY6HtM2BJceeriHXQBE7K+Hdv07zG6kJhvmXanyK/R
+xUR901WP/2lHlzDhS9n257sG0aXE/OlhNvvFX3QZE4IG/50hT/+O8Z8J4s2B
+X8uU0BVM6BH3XnV6GbqKCbR91otdDdHVxHwS3X3zuSW6hgkuWWXP1rmg64j4
+4Dfbss0bXU+09+/Ee9+OoV8xwf23kmF9FLqRCZu+7gyfkohuYoLZQefM4uvo
+ZiZ0vLrQp81EtzBhjKzYzryNbmVC/LbYsluP0G1McKM+usF7hW5nwnCA196z
+79AdxPUf1d9f2Y/uJOLbgv3iKSPobibMPHUru0Z8COM/Ey5Vz2t8Og/dywQd
+0hh540L0N6L9m1V2duii+5lwyKXasM8YPUjcX9eGz24b0UNMmFOTrp++HT3M
+hIXzH562dUf/ItpjbeKsWwHoESYUJn9j7AhDjzLBds/zB+fOoMeJ8Tynrlsr
+GT1B1GdxkkLldbQYC6hNXY3H2GhxFjyiLNWZuIOWYMEzDdfJyqVoSRbUnZ/+
+m/MCTQTDZU7vo0ab0dIsiFdetCepAy3DgtWpVncm9aNnssDU5cecyHG0LAsO
+XlzWUjTtB8Z/FsjPC75zUg4tz4ILK2MNFi9CK7DgjVLPUfPlaEUWbFt6K/m2
+IVqJBdI33qWs3YhWZkG443nvdVvRC1nA1i5vrNmFVmWB2dVKla69aHXifmJW
+3dh4EK3Bgr3KNq6Gx9GaLDCpfj7V5SxaiwUczYmW6EtobRbwz25dLpuB1mGB
+pe3Y6890tC4L0umT7g1z0HosqLKvF58oQOuz4G2Y/bY7j9EGLLCjnbBm1KAN
+WaByLKTs+Wu0EQtekA7XTWtHm7Dgnu2kUO9vaFMW7L+a7/PpN9qMBRefSe9f
+O2kY4z8LArt9/1ZMRW9kwUKtEt39s9EWLGjcZ33NfBHaigUnM5v1/LTQm1nw
+p2KyfPoqtA0L0tRGljSuQ9uywF55ntRMc7Q9C/yXZ078tkU7sOCsZKbBkZ1o
+J+KPKymJdy570M5Efdfzv0n4ol1YMKPz2vTIY2hXFvwNWdvrcBLtxgJlf+eB
+yjNodxZ0NR5h519Ae7CA1XL1+7FUtCcL5MKf/v51He1NuH4sdoKO9iH6g9Tv
+YAoX7cuCPUFxtw/dRfuzIObwNrWmh+gAFliN3Sy5UoU+yIJ9+U9dXF6gA1nQ
+fixJZ1Yz+ggLOtzuH5/xER3EAqkeVdtlvehgor9snsdwH0CHEuVfvyzH5Tc6
+jAXuJXUjuv/Q4SyQbFu19OG0nxj/ifb5Sz1rIouOZEF08BKKmQI6igU6OSvm
+ctTQMSzQWva9/JMmOpYF3f2pa4qXo+NYkBmcLn93DTqeBQVTHE7amaITWFCt
+nNh5zQKdyAJFKx3xDlv0RRY013aH3HZEp7Ag9VhXd+QudCoLCiVtots80Gks
+UHCMf+Pvg05ngVGJs3vsIXQGC3IOtJo/DkNnsuBdj+vO4XB0FgtapLQ/fjmN
+zmbBcmnTqcnxaBIxn72oWF99EU1hQVi8z6GHV9E0FoRqda4ez0IzWDBnEvWk
+NAnNYkFIsdULIzaaw4LZOacy5/LRPBb0frWRLs5F5xDz067rq3j30bkskPCT
+Grz5BH2bBby1pOaLT9H5LFCbrKP+thp9jwUlOy0e6b9AFxD9bULvdUoDupAY
+n/JRl0Za0MVE/yrdUrr6I7qEBb7b1urd6UGXsuCy+PnS773oMhaQy3du2DOE
+Lifau+M3V+w3uoIFP/K6v9waRVcRXmqnrjSBrmZBv9P673sm/cL4z4LFYec6
+adPQdSzYoLS10WgWup4Fq3wNNw4ooF8R5YsxS41WQjcS/V9e/XC9MrqJKO+c
+qz0bFqGbiXgVfn2vpBa6hWjvOPsIJ210Kwvm7rO9vk8X3caC916rjtutRrcT
+4ynHPn6WIbqDBSnsO1/eG6M7WfB8fvPJ9SbobiL/FZIRjzaie4j53fTCvjxL
+dC8Lzn/oWeJkjf7Ggq1i7y+a26D7WXDiauPSPCf0IAtuLBnyCBR6iJiPnanD
+LbvQwyyICP/TPO6K/kXk9+bz/gce6BEWOMosl2Z7o0eJeJRYsclpL3qcON9a
+4XZ4AHqCBX4p7h6pB9BibHhwTmYF5zBanA3rtj7oOn0ULcEGHwmxJ29C0ZJs
+UOuNPzlxHC3Fhvued1+7nURLs2Gg0KhWIwItw4bpV95stI9Cz2SD48iW48wz
+aFk2sA5EOyucR8ux4aGS6526s2h5NvSpvMqdGY9WYMPycvcPmxPRimzQXDdt
+eV8yWokNJ/I2/bkrtDIbqs8WXVyZgl7IhmfnuSWqqWhVNuTf2ccLuIxWZ8PK
+DZ/O3b+C1mBD3Oj09S6ZaE02WP5b6nhGaC02qKyfTSUJrc2Gtldrw/yvo3XY
+4NY1r/5HNlqXDSE6fxbIkNB6bFhmsv3bdjJanw2vch4WLRbagA2/LXVqvWho
+QzYccdx75bbQRmyIn3g896bQJmxo75JzbRfalA1N1gNfbjHRZmzITJhin81A
+AxuUG3ZtD2ajN7KB7+RypoKDtmDD1rK1e4uEtmJDQUMyb43Qm9ngH51rU5uD
+tmHD0xerDljz0bZscNnZ2th3C23PhpS5KuvzhOkObEglv3hjIkx3YsOZjAWz
+snhoZ6I/tp1dWMtFuxD9sThyTanQrmzoT9x87ZjwfDc2LJa42OouzN+dDV5G
+SRXZQnuwITx6Taq+0J5E+3v+fnxEmJ83G65Rt6z7Iby+DxtiTh2/2iwsry8b
+dm+bfWSZ8Hx/NsyaavedJzw/gA3OE/o2C4T1eZAN7qrpOUeF9R/IBkWbj7Qy
+FvoIG1aX1H5IE6YHscEm/PebDmF6MBuMh1/eSBC2VygbpB67pj4U9p8woj/w
+mRdyKOhwNvgqP4n///tPBBum+h63nC7sf5FsSC6w/fNVeH4UGzquvnwbKOyv
+McR4eeCm8kHoWGJ8Bc7rol9DxxHHR5kpsIWOZ0PZ0SUHg9PRCWxQZdv9fiUc
+T4ls6D7T2P4kDX2RDTqjq84xhOMxhQ3ky09Gai+gU9nQWP2deSQJncaGruuz
+DHfGodPZUOm6dXGCcH7IYAOts8l9gzA9kw2nfczfM4TzSxYb7K98brU+jc5m
+w6d+RXKL0CQ2bFu0L/VsOJrCho2UfSabhfMbjQ0378SHmp9AM9igm6s1tTMI
+zWLDridrHXYdQXPYoG/0aM2pQDSPDRfUxTz3+aNziPtpp5bN80PnsuHsv5+/
+lviib7Oh2blYqlQ4f+cT/Y0z45i9G/oeMZ86tb75vRtdwIZ9pzyXnd2BLmTD
+0NANlzU70cXE+Jxp02dliy4h+s8i91dyduhSNjCnkv0ebUGXsaFkYd22kA3o
+cjaYM496925CV7DB9Knsv4Nm6Co2PMob4DoZoavZ8GeR/LPl+sL4z4bJ/BWV
+2wyE8Z+YD3uulMetEMZ/NjQELrEZF8bvV2zYM/VSmZuGMP4T/dcr5k+mmjD+
+s+Hu3zXGqguE8Z8Ntoqm6yTnC+M/Gx43vk1ZN1sY/9mwyamI3iMrjP9s+DnH
+a2m7lDD+s8F1m92RpZOF8Z8NM6qi45jiwvjPhqVt3ZJHRvDvm26iftmLIhcK
+/z7qIfJXc158YhDdS8SLR+c2ln5Ff2PDbNLsTPsudD8b1m60yS9sRw8S/atO
+/65/M3qIDdEGlQUuQg+zwc/r+K5rL9G/2ODRUXr2aAV6hA01T2Yb0ivRo2yQ
+VpzsmF2KHmfDFr16l30P0BNsyL7yfJFtPlqMAwXU7ydO5KDFOdBZ3ze5nYGW
+4MC8A/KB94R/70pywKvTco5xBlqKA1vd68yL0tHSHFC9QMn6lISW4cCM73eO
+Bwo9kwPvr9U43YlGy3Jg44+J6XeFf7/LccB55c5LPcfQ8hzIWPpYd/9htAIH
+FqvXXE/wRyty4Ey5jjTVE63EgdKm0UvKu9HKHFAeWJJ8Rvi8sZC4/oPmTlPh
+84gqB6LKZE/kWqLVOXBlbcIhdzO0Bgeo7+eJFa5Fa3LAx/WixEx9tBYHDDOd
+31toobU5YLT0XcjFRWgdIv97WxPaldG6HCh5Irb65Ry0HgfKaz7W6s1A63Mg
+adYYmEigDThw6kkbgzaOz3eGHNB/fzB6x0+0EeHUXoWP39AmhCnPJb53oU05
+8O9erK1UG9qMA991NLn7Xwuf/znAHIiZeFkjfP7nwMqnX3fOfSx8/ueAZ8RB
+k/JC4fM/ByiPTZftyxc+/3PgidXqwjTh87ENB25Vaj0PJwuf/zmga6d3TSFL
++PzPgbR1soqxl4TP/xw4HvuZuu2c8PmfA3P0wntORAmf/zmgww3UfSJ83nfh
+gLq51ErHI8Lnfw7kODLqScL3A24cmBwuu/mHm/D5nwN/O64nPHMWPv9zIEty
+yrYAe+HzPwfePSraSV0vfP7nwJfkncsPrBE+/3PAKsmye5mu8PmfA+x/czwf
+qgmf/zlg5jtoFCB8PxLAgZDsx2ts5gqf/4nxUHlw+Nc04fM/B6bVTL5D+4fv
+Y45w4GZmzdtY4fuZIA5I/7KLXdaPDuZAhf0mi5w2dCgH4r3Yxieb0GEcOOvb
+eeznC3Q4B9rOZ9LrnqIjOLBgQcbTPuH7pUgO6IVVDuy9hY4i+nP49KBOGjqG
+A4e1fRIibqBjOeAr2xUnfxEdx4E9H6013ITvv+I5YJDHeRcZiU4g6ndVvwcr
+CJ3IgeeR5+XeeaMvcoDzwvD7mT3oFA4o7SlKYjiiUzlAC1DMK7REp3Hgz3q7
+lfnG6HQOqF08cWClATqDaJ+K7gCKOjqTA4p39U63zkdnccCiV7Z89nR0Ngdm
+rRyfGSyOJnEg87Tki9XC95EUon0qjyiNCt9X0jgQNtN21PgTmsGBH1/VZFya
+0CxiPC1JfKLyDM0h6id7x0Xph2geB+zc5x+LFr5PzeHA2+ZhxRwaOpcD1s4t
+yblZ6Nsc+Lkgfm93AjqfKH/rp32KZ9H3OKB9c0H73lB0AQceHUjee1T4PriQ
+A6ll08OP/4cuJsbznkMyEtvQJcR4sisz+2mNLuXA3OlHY+yE76PLOOAQ+3R4
+SA9dzoHTKspxW1TRFRywyf+hpjgHXcWBvj/DjSxJdDUxH+bmtxSOCt//c6BX
+PnW1t/B9eh0HPDYvdUr6KHz/zwGFG0yrskbh+3+i/eZ7OdyvFL7/5wD9qgf3
+RaHw/T8H9n1SkffhCd//cyBG6+eZWzeE7/+J+eO+pWl3ivD9PwfyKe/flp8R
+vv/nQIBeZBE5VPj+nwOW8c9S1f2F7/+J9tl9c3P/buH7fyL+TE4+9sle+P6f
+A79ox/jzLNA9HNjGLG1J1Ef3cqBnexnlhgb6G9F/3JqndM1F9xPtW2cz+kIK
+PUjEz0GJsJ5x/P4yxIFVvKv1P4TfZ4aJ+1mTvPfFR/QvYvz38ww6XqJHOBDx
+PWSry1P0KBE/Z3W82HgXPc6B0J2bKtJY6AkOrBdbubItAy3GhdEcP6P98Whx
+Luw9dCFvvfD7lAQXrjrPXC0RiJbkwr9yJ83//kNLcWFNvZKYhR1amgvJ54y4
+FYCW4cKOEdZA9yr0TC54X1068kAVLcuFXYNTpw7Ko+W4MJLut/zBZLQ8F1wn
+npYf7sfvdQpc+Lx/a1zUE7QiF95u2H6t/xZaiQvbf/5d/CgWrcyFtQGy/6hB
+6IVceHeUz/pmi1blwpK8PlMLY7Q6F6YsvqRQpIjW4EKB3PPEa9/xe6UmF4rd
+dyaG1aG1uNDi42i6Ow+tzYU90e3VqcloHS6IfQ2v+3YIrcuFOw4vNhwVfk/V
+I/I30TZ7qInW50K2bMBCxzloAy78Lewg3fmE32sNuXBKOaCqox5txIWagtUJ
+DA7ahGgfi58/+1LRplyIO9rapHgQbUZcX/tKBc0SDVw4x0nbr7oMvZELWmYm
+7JopaAsucOfV7U3qwu/VVlwIyGptfFKE3syFOt4p1VIa2oYLFZaLBp5FoW25
+cNHtqvo9T7Q9F6grPkdpm6AduDB39adfs1TQTlxIlTv7Yv4Ifn935kKh5Irc
+3tfC7/9cqNydIlGcK/z+z4XJ6pduTU8Qfv/nQkLRfv/f+4Xf/4n2vQPhZlbC
+7/9csBHPF/dXFH7/58L6MoneRgnh938ujO2dfHLNR1x/4EPU51eTpW6laF8u
+7Jx/d6QoA+1P9MflRx/aH0UHcMHunN7jEmv0QS6odajJztRCB3JhXtDuai1p
+9BEuHHogLze9HddXBBHtuZiizS5ABxP9RzH34OVr6FAuUHJmX/M5gg7jgiN3
+8PWybehwLti7L5PwX4SO4MLDP7eqyX9xfUgkF15W6TXEvEFHcUHj0Fr94AJ0
+DBcuKJNCZlxCx3LBSl3lsJ4vOo4LKsMqDeKW6HgugLLM1hFtdAIxnt/nyB/+
+jetdErlAO2i73eMl+iIXNH9vX6bORqcQ/U9tfsuiGHQqF4p2NHT27kSnEfNB
+z931q83Q6VwIVJE9vUMOnUGUL2SWa8s3XM+TyQVLv/4C8WJ0FhfUk8zb86+j
+s7mgcPLXg+9haBIXTHYHWl43R1OI/pDqczFMDU0j+p93hlPAT1yPxOBC57Cr
+8bxXaBbRX7euVH3ARXOI/t0utc0iFs0j2j8zZFKKMzqHC+WTK5mLddG5XJCb
+Q9kgNhN9m7ifSK2tcR9wfVU+F3wlI+O+FKDvceF4YNnci+fRBVzQKV39aE8A
+upALrY1KX5+sRRdz4Wks1ztPHl1CzJcKt+bf/Yzrw0q5YGFBp0+UoMu4MHWB
+UbjvdXQ5Fwx6Ex5fDURXEOd/MjWWNUZXEfPF/MDXrbPR1UT8+J397HIPrm+r
+4YJPrYqeQjm6jgvM7Q2cliR0PdEerHtfVvuhX3Hh2ru11TMM0I1c6GUkNloo
+oJu44FwfJcX9hOvxmon4NMW8LLES3cKF8XWVpseThev/uHB3WMvuspdw/R/R
+n1zzju+yFK7/40JXbe6zQ9LC9X9c4FTKOZ3qw/WEnVxwcTjZz7+L7uaCjIzV
+213n0D1E/+CeY/S5oXu5sHzquownmuhvXPgTLQbOUuh+LryKVT7PYuH6x0Eu
+fDk+PvPuLvQQF2Lfmvs5/sX1lMNcKMv54n8gF/2LC57Ll9YP7ECPcOGTzL+9
+jAFcrznKhaTz5l0HzqHHudD0U7ncWh89wQV605WllK+4/lOMB3unREurnUCL
+8+Dy3h9mtbpoCR5MOWydoPYI15dK8mBWy5WcbRFoKR6suV/f6yGJlubB+h9+
+cwLu4vpVGR4oXte+LLcGPZMHjyc2HKd/xfWvsjxoIVOlNK+h5Xiw64wWeakF
+Wp4HLnOcNaNacX2tAg90p9SuKkpEK/KANW3J88PT0Eo82MRWIy/OwfW7yjww
+jhkeeWCDXsiDlUuCi6N+NmH858FZ64XKv2lodR4U7tde0rsKrcGD53q66kXV
+uJ5Ykwf/TUv8FhCI1uJBz43t8s8l0do8cPSc9OctH9cr6/DgM2nDbqY5WpcH
+ewYyltz4iuud9XhwY5uXX3YUWp8H/hHXZ/PWoA14sK3XX1PhPq6nNuTBH0Zq
+1zcvtBEPhoqjSVGT0CZEfYcOjkyi4/psUx5cc2AeubIWbcaDrkxadcEHXO8N
+PDjlc1Lu6RH0Rh5IhQwO+cxDW/DgTtlu2vdAXD9uxYOjS+ctMAjF9eWbeRAi
+1duWcRvXo9vw4N/n6i1ZX3G9ui1xP9OnX2Kqou158Oz5U79Twbi+3YGo/78h
+ycfScf27Ew8ibx0erS7E9fHOPEhJMR81GMD19C48aHyfQHFYjnblgQR7zfSV
+9rj+3o2o75Tw8PMXcX2+Ow/mSAyfJD/E9fsePHCfqLFI+4Hr+z158OnL+Mpi
+HbQ3D5ySlijaOeF+AB8eVFd5hilcw/0Cvjx4p7Jwpnkc7i/wJ/rv5mrZun7c
+fxDAgxnWDM6KykcY/3nQWnC+ZdpK3K8QyINccx/fjnPFGP95cCQ186OKLO53
+CCL6H//QJSfA/RDBPNDiv/sTuBX3S4TyYJrsR8m4ftxPEcaDtO8X/ZRdcb9F
+ONH/502bMXgC92NE8MC0Z/OUjCHcrxHJgwMFdi1b5XE/RxQxXsXtnvsPcjD+
+8yBpbOLKMmcmxn8ehF6hpZ7+S8X4zwPav5fGi9JJGP95cGl1u6ab0nWM/zz4
+ZaV2u7UpDeM/cf/5Y67Rthcw/vNA9XAYZ87RYIz/xP3f3r4hXGLXo/9zKg+Y
+7mL9J85FC5zGg+vr5xxLl7oocDoxvgzGw24VpAucwYOxP1UV6xbi/ppMHniL
+HVLIeIX7b7J4cDromtnSO3SBs3lQcvfa0cO/WQKTeJB/WlqxsIUnMIWoryXX
+tdlJuN+HRsxvUU1Vb+rzBGbwINNr27vSiTsCs3iwc6ZZ2PAQ7ifi8MD1qv2y
+XsX7AvN4ANm1y3/fxP1IOTx4oL7tVs8m3K+UywMxtdAEj124n+k2D97Siz40
+O+B+p3xifO3qz7/07ZHA94j+FFO57qAq7pcq4EHDv8vmTyLRhcT97p/S/iQa
+91sVE/OfpXXGuhu4H6uEKP9vudAPJ8sFLuUBZ3HgKN0V92+VEePLw0r9y27c
+71XOA/FK7eNTZXE/WAUP2lvb80Im4X6xKh7wcj/aFGvjfrJqHmRkzYCl39E1
+PNAoDLQT68D9Z3U8OGguMz/6G+5PqyfG55mAiU3luH/tFQ+ir2RXnCnF/W2N
+xHzQqaLedxr3vzXxQJ8Ur8gOxv1xzcR4C9xTq6qH++daiPbTn9X3oBzdSrSv
++2OPQEPcf9fGgwvZn7b2UdDtPOCeerV1wuSVwB086Nh+U/04Hd1JzP/LW+x+
+Txbu/yPyP/Wso+SYcP8fD5pnfBBb9RPdywP6Kcr9GzG4n/AbMf8GJ6wqnIP7
+D/uJ+YSiPs4/iR4k5vfo9SFfJuF+xSEeBG9Taax2RA/zYMmZNIOEb+hfPIiN
+Nxh8eQ73P47wYLlHlvnjr+hRon5YLy8Ee+H+yXEeHG5YteLVAHqCB8k2Sz59
++A/3X4rxwdrMLk/mNVqcD56ScROhK3D/pgQfdngGrzR/gpbkA33/GN/cAvd/
+SvHhYAPn0MbPaGk+pO4KTfA0xv2jMnz4TN3/n2kOeiYffNf2JkVuwf2nsnyw
+X+8k5pyHluPD06lWf8W34f5VeT6UH1i24HoTWoEPMbJQU22B+10V+XAib8B4
+RgVaiQ8PX3e6By/C/bLKfHDxfrEqaj96IR+Kf50m/85Cq/LhlEPG2voetDof
+mKY7lXiGuF9Xgw9dRjuKKgPRmnwwpd43YtLQWnyQX/UrR60Lrc2HUMMbgaeU
+cb+wDh9GdSf9zHRD6/JhztcOeRILrceHfa6zrsSOofX5YFexx5G9AvcnG/BB
+brigweEQ2pAPrwfMnq0hoY344OQm/ZveiTbhA2PrvbLLG3B/tCkfunXMNW8H
+o834MPP26fmNd9HABw/DC4b0f+iNfFBJcoo4sBb3Z1vw4eWLRc0xF9FWfHhV
+I9nkW4LezActteWn3Cbj/m8bPriJhy1esQFty4eCjopni6LR9sT96FWX/a1F
+OxDpz47fmr8Y95s78eFZ6X9Fq+zRzsT1a0P2bU5Du/BByiRvQ1Yf2pUP4gVF
+y1pm4353Nz6UhSlNG/BCu/Oh9lDGrbwctAcfBp6y+Jtb0J580HmmULjbEvfX
+e/Ph9FK/5OzDaB8+1C0eIAU9QvvyQcnHStVlDO1P9B/fE0Yu5sL9/3z4UP04
+1j5JuP+fSP/QsTSgWrj/nw9pL1eMMofRR/gwOLbUUdIPf08giA9F8yY9r6Gj
+g/kQ1qPZ/2oEHcqHkv2QnaCHv1cQRuR/4Khy5zF0OB8mfB+H++SjI4jxZvmf
+ca8s/j5CJNHfHs+QmbQZHcUHh007G29fQcfwgb34jpZyCzqW6F928lI0Nfw9
+hjg+8A4oLMrwQscT41PpuMOeBHQCMZ55s+9KDaIT+XDm6n8/Q8zw9yAu8qHB
+yaFU2gudQrT38dNNTXXoVD48njHhcmoa/t5EGh+u1f47PbYCnc4HUmlDUq4N
+OoMoj8lj3ocgdCYfKlcY7GtLR2fxwXm0SIpchM7mQ+7UFVudOtAkYj7YUzXp
+ziiawod22ZPDh1bh72vQiPY4HJzWZYtmEONngXz5f8Lf52DxwVHzc418BppD
+9K+ZMwLHStE8ory08xNSregcIn/ju8afx9C5fPjVOfesnOoQxn8+VOyWY961
+R+cT9Ul59HN9EPoeH9JzdudLXkUX8EHT+smjayXoQj6Y/H9d3Wk0Vt/bB3Dp
+VyEaVDQgCUmlNBHKRXOaSJpDaRRCaaRZg1QkKpoHDZyzT0kThQpJaUBSSZKh
+REWDkp69Vt97Pet/Xn7WHu599tnDud9c14Kh3ba9hpPiyahDp7O3/kO8k1u8
+f+0omxIjOCWeTj0tSfsyGk7j60Fl+ovCAPguP08fuJ+YfQJOjye1/VamyTfg
+zHiatSLUM6sSzoqn2+0XdknXQPyW7Hj6c94yfrE5/IiPzy7P+/N0+HE8Rfeu
+tx63EX7K1+/xuYHzj8C5fLwVCwPeP4bz42nT4dfdZpTDBfGUeLxxypuuiE9T
+yOfLWa1nwAj4VTw9Fj5lLHSFi+Jpq+j44VswXBxPQWEHv/pehEviabhhdcyk
+Z3Apr/9n3pRvjXAZf57Wt7x8DRFvpyKeVPOyvviPgD/E097IP63beMJV/Pzu
+k+G4MBSujqei57rrMpMU8X/4+3dr4VD3VhH/J57+1j1c+FwD8YLq+HiUmr+9
+Mgj+Hk/PAwTD/AXwz3jqmnGizZ1N8C8+vykhJcYi3MDPL81j9otuwo3xdNre
+vIOeGuIdKQlkeady/nddWFmgL84nXZZbwP8JdHitR/f2q+DmAn074/TZPhJW
+EWhcylVPu8uwmkCfctMPXiyH1QVaFfI2c01TxG9qJdCHisE5TgPhNgKVN+yo
+rnCANQVqmm1dPCUUbi+Q59LYinYirCVQeGzNzNKncEeBfK+kLm6jhHhTnQUq
+W1z2O00f1uH1T43R8LWD9QSq7Z5aa7cW1hdIv/Hgn+oo2ECgS9eevPmUBRsK
+5E7+Xr+/wcYCtTyqLYqdED/LRCDtlfNb5djApgIFxmh+MJkG9xaou3JF5osd
+sJlAL7V9Xi8S4H4Cba50bJhQBPcXaMur3CwrXcT/GijQ7DKn0vc94cEC/dGa
+Ed11JmwpkIGOcZHnWtiKv8/clA+vzsM2Ar12bqFS/ggeJlBR4SHJrQ4mgRLu
+Hz5q2Q7xzOwFcrEse1SgiHc2gpdnW09J9oFHCVTq2c3aNRYew+dz67nAKc/g
+cQKlBNuWK1XB4/n7u3u6pHdXxGObKNBgrYNtNg6BJwu0v3DK3LjZsJNA22uf
+VNfshJ0FGm3xii7ehV0E2lftYJBQCU8XaNmX86rb2iN+3EyBLi/e92aBEzyb
+z8cLP0FzFTxXINtD959YnoTdBOq9MPzm2nR4nkCPP4X4vPoEewg0N1K39Ggb
+xLtbKFDiicSbggm8WKD1h9cpH+sHLxXoiMHWZ+Pt4WUCPf/q9cDIA/YWKLvS
+2L3pCni5QJtOhg4dsQv2E6jFI8Fo6QFF/D8+/53XCpNuK+L/8edzdrbq9VAR
+/0+g5NDAloeLFfH/BOq5oqSm5Lsi/p9A75uUWC9XQ3zBIIHGn+vx53I3eCPf
+P45JqpP7wpsFOtP74aVMRfzCrQKNXdxmyDxPOJi//1+OPnab4B18v7ibXQ3e
+A+8SqP1RsdE1Bt4tUISXy5+B1+E9/PmclKxIEW9xHx+vlUfwixI4XKCM80dq
+1RrhCIFC+9gP7dgO8RwjBbJXGTRnpyLe40GBriZ0CGpqAx8WqLJW/+mzqXAM
+X1+TFq367Qkf5c8f0MkmLQg+LpDddev65ZHwSYEqtq28pXMaPs33V9vjR/rf
+hs8KFNkQIhbnwucEStUJmdz0C3yB93ep8r62CuJjxgnk0WpExYsOsCBQ/oZ+
+gQfMYCbQqZhrpbUT4Et8f+RE/Jk4C04QqHhTmdbxxXAin08qiNy7Hb4m0Mi1
+w+uzz8E3BHp4L6vfhWtwkkAdi3Kae+bAtwRy1hTMRpXDKfw8Pjl5TYgivmia
+QG0T2xXs7Yb4o3cFCukY1krJFE4XaJfGiUOeivilmQLNn/dky6CpcJZAQ79r
+/cp0h7MFcnV1i/UNgR8J5Deizrc0Fn7M75NHEwwLb8BPBRpCpW1S7sG5Ault
++5jUowTO5/vRsejA4t9wAd//O03rdndEPNdCgWqeu6k36wG/4vtnUknBDHu4
+SKA0f7WdVY5wsUBr3+i6//WESwSqC8kM1dsMlwqk6bq51Y+jcJlA9QNSCzPj
+4AqBxLYm+jOfwh8Emp6pMlDpI1wl0NRsWyPtcrhaoB2uyfMDtZr/82eBzvmW
+DLnZCf4q0B2906vaWMJ1fP02vh61eir8nc/vO5Mnh5fDP/n6tHx1oXAN/Ivv
+B1//0pX74QZ+HodUDFt5EW4UaEChwamSPFhJpLkHLre6lg8ri9SY8ya1+1/4
+P5FW5bH2AVqIN9xcpC8V04P29oRVRIqek+plYA+riaQXtePHRWdYXSTdWYkq
+2xfBrUTaMTMuJG433EakUs2vk3ROwpoiDXj8a9/Di3B7kT63Lb106AGsJVJJ
+vYW30Ru4o0gqGj9mqH2GO4skLOl4dZwa4jXriHR6pauhen9YT6Qp3YyaPbGD
+9UWKXTlq+r7xsIFIm19fW5q8ATYU6Yi/sofDHthYpI1ud29anIZN+POaTVNb
+kAqbinS32/ib957BvUX6m5vRtKASNhPpj39MpWFTxLfuJ9L+9AtDNYzh/iIt
+i4m44j0GHijSs/XxvVqNgweLdLVtJnvjBluKlLRtdNylENhKpKlH7vyoj4Jt
+RFoebdxaugAPE2l7syTR4ClM/H228R9wuRS2F+l2t4tRrRvhESIFHBDbRrZE
+vPBRIrG6cWH3h8JjRHKx2D7n1CB4nEg55a8f5LrB40Va+6jV1O7r4YkirUxd
+Yly5G54sUljmrUtTBdhJpKwZs4OSr8HOIvVpWTSlZwnsIlLa1msJYTXwdJG+
+t8iZe1cd8dVniuRxcmiBbx94tkjqb7Y6/7GA54rkHzJtWM4M2I27RXlD4hp4
+nkj/hRW82rwV9hDpp4lzfJOz8EK+Hu712zwxHV4sUrukEtP8EnipSHNqe/W5
+VwovE+lyysdeweqIR+8tUtyy0QdjdeHlIq3P3/S30Ab2E2mPkoV+ox28gs/f
+13hfF084gLdf3jlZNxReLZJjZUjdBEX8/LUiRWn2qMpIgteLlOlZ/tXlHhwk
+0tazu1dWFcIbRfrRNGVFTEtF/H+Rwos80nRbK+L/i2Snu/Buibki/r9IEa6x
+thZjFPH/+fp82r/wka8i/r9ILQ6ax708Be8WyevXkVvOl+E9IvW6ENlFvAHv
+48+frnngfBYcLpLV81i3td/hCJFsdu0NdlBGvoNIkd6T1/q/uvBBkZz8kgIq
+BsKHRdq7TWfPhKFwjEjXB1qXJ82Gj4pkeCw20jcCPi5ShfcSzQGn4JMine8U
+v0b3KnxapKpFa7L1s+GzIm0LH72+uhQ+J1JwUcPK/Yp8EBdESt6/weiMHvJF
+xIm0bn/AyRJrWBDp7Y5m0TGzYSbSYjGj2mstfEkkg7f5Tc5uhxP4+q1d6jIv
+Dk4UqWWtilpjBnyN9xc/av3M1/ANvv5nmFg718FJIuV3fW/fVhP5M26JZLL6
+6Vv1DnCKSNoeZapVZnCaSGvytarLTeG7IvX4al32zg5OF2m38fN0xylwJt+v
+WxYuvDgZzuLzVXDBPHYOnC1SkyHnc4RV8CM+3oPre83eCD/mz5/qsvdWOPxU
+pOfZ/TuEx8C5/Py0iVHSuQ7ni9TXu7XrLgEu4Odb1eq7/W/BhXz9jJJSjufD
+r0SKV//YPeElXMTLE3NXtK+Di0W6v1xzuJcy8q2UiGQ9bXungJZwqUjNqwJW
+aLeFy0TSuFe9e7EeXCGS6YCsln37wx/4+3v0oO8BW7iKj1dLz1xlDFzN53vE
+cvcDjvBnfv9NVtF4twD+KtLBvKpfH/3hOn4/f3tf8Xg9/F0kW4fElJSD8E+R
+XJV2uoyKgX+JtGjZkCkBZ+AGkfr1fHUjUZEPp5GP/+8a/aLLsBKj7J1ayWn3
+4SaMrOe3+b6+HFZmNOzjlx77v8NNGZV7+2VO6KjID8To7vzSTtFqcDNGn1f/
+OZrRSZEviNH7MvW0rWZwC0Zi7rXIneaK/EGMnM2V1mUMhVUZBWxpEHwmKvIJ
+MVqaoDpr5xK4JaPdcfNcShT5iNQZufTMiI5dBmswsp+UnfDDX5FviFG+T/Nj
+7aPg1oxmXB+fuu+iIv8Qo58hNZrKN+G2jGJ+jn1cG6/IR8Trzw5+4J8Ht2P0
+YF3u6L4v4PaM5tWP1rZR5GPqwCjFPvxHTAWsxeiXw4/e6U2Qz0mbUXPTZltr
+W8MdGekoU6VjD7gToxMXFr+vGwp3ZpSW1Pt3mQPchZGuhadL0CRYh9GLIVWT
+PrjAuowOn/QPHrcc1mO08eWQmRM3wl0Z+fY88LnDXlifkVn5fxu9wuBujGJr
+fjb0j4INGB1/euZ56B24O7fnfh/vRNiQkYNlvv7pJ7AR77/i50SN17AxX1/L
+V8zWqYF7MJqbFVD64QtswmhPpmWf4XVwT0YvvzjUG2sh/5cpozvpUQfmmsK9
+GGk0CJZhA+HejIJeBdkdnQD3YXTNvk+m6jjYjFFp//Il72fCfRmNrHY2KJgN
+92OU+7pv4a4g2JzRbJVSq9u74f6MqDhgoP4OeACjBmNrvUciPJCR7fwlxUY3
+4EGMRtxqWPwyGR7M34fnggFdcmELPt+7L3RI/wFb8vFq1Kca1MNDGHU3q+o2
+oQ62YhQ4b4+3hwryv1kzOvkz6kKJDmzDy0cUmR4yhIcyOsAmes3oCQ/j+2Ve
+xmsHd9iWkaZLyhyXyTAxOt1ujmb1MtiO0dC8AeUjvGB7Rublx2qb+MLDGSX1
+9PRoeQAewfezyY2ui8LhkYxU71yO/XEUHsUofv+t6aqKfHujGSlN/usYfxMe
+w2jN9OFjrzyHxzKyu1UcvrcWHsdojLt/gf4H2IHRWPHwlVd/4PF8fwx9q5yj
+gXyAExgZv/5T62ICT2QUXuw2sWwwPInR0zEvPocNgycz+m9+/3PldrAjo+vd
+tyd2nwc7Mfo0svKZgwc8hVG/RUtL+qyAnRktOfT6tlYYPJXRINVPEWPjYBf+
+frwbQyeI8DRGbslu8/Zfh6fz8QUvWrUoD57B30+73q9r78AzGY2+bKui+xie
+xc+Hfq0OD/kFz2Z0o+W00Jz2yP84h5Gl6uPjER3guXw+3LyCunaFXfl5+mxV
+y0/GivyXjIyiZpr62cPu/Hk1enRcO0qRD5NR241GFTQOns9oVPZDyddLkR+T
+0UyX1hMHRsMLGA1fu7HEOECRL5PRqsh7O21PwosYVf+qVX57TZE/U+YljBYf
+DDecnqrIp8nPkxVN73yrgD35ermoPHpJc+TzXMbP+wOtPhR+QLkX30+T28yz
+aoJyb74fcoIF7U6wD6POl7YPvqcNL2fUosfa1v3MYV9+v41Y7WjhAfvx/RZh
+syXOGfZn1OR4go7LdngFo+l5t3T3boZXMnriXFjw8RAcwOffd5VVrwB4FaOI
+2nzPa6fg1fx+qJ++fsIReA0/D42Uzzx6Aq9lNK31/iq3PHgdv3+WRNb8LoHX
+8/Px1xnHdcqd/jmQkc/k/JK6GpQH8fN6knZuVXuUb2D/mz92I6Op9V/ehnaF
+N7H/zSe7ma/f+8Oez3WCtzB6bWZyYtAueCuj2yPDnjf4wNsYraw655y8Hw7m
+62mHmtGVTfB2Rom33tpkHIN3MLr3qon+xkPwTkaD0zvU/boA72L0MLjxXF42
+HMLo6PGgw1QM7+bn5c8TF5xq4FB+fnxueJqviny9exiFZAUtcFOD9/L30St8
+uJsJvI/Pb3ajZ+MYOIyf/+qZh3r0g8P5/Nkbdv7UB97P1/dL2019nOAIRlWf
+9u7z9IEPMApWsXCcshiO5Otl4RqNJtvgKEaOrbJGmQTCBxkJia5zvAT4ED9f
+3qWWxebBhxldlVYYb30HRzNSvqOmFfYFjmH0bPzgcUG9kb/5CL/fvGf4/PyO
+8qP8+8vSIfhGV5Qf4/u95d5rv5rBxxkVd3wQZN8KPsGodonHpIyR8ElGUaNu
+/BzrBJ/iz2Pn03q8F3ya37964uKBc+EzjJrNP+TwZxF8ln9/lLhH2O2AYxkd
+qjAao70PPsff7+fI+ovtkA/7PKNO/WcZmMSi/AK/b8zfb151E77IaEifhcpW
+qXAco1sOwyobVdA+ntFZk/ZW3hqwwOibk3rXK99QX2TUeHPZvj26KGeMdo7L
+/Rs2EZb4eZFR2XHjIvgSo25xbTbcsIEv8/sof+SSYFs4gX8fXyk2/zgLvsLn
+0/BM1NKlcCJfz4sHUIkIX+X7zYH6G6+Cr/HzpbrXMHYBvs6o5O34m0V34BuM
+Pv7NUHf7DN9k5OHne8qkGk7i++vsYINyPeRLT+b3cZ83UW3aKvK98/MxfY2u
+hRp8m39v+pUNjzCFU/j6fvXmyqp+cCr733zuaYx6rVOubnoSvsOo9c73zd7P
+UuSH5+vN5+3w7nbwPUYL/rpq7/ZW5Itn9Pf2EWFiLJzBqEtliWNhB+Sfz+Tf
+C5+PjH2Sj/L7vP/bT9KUEhX55BnVN08N/9Ya9R8wUkm3GOVZp8gvz2jRmwUx
+Zi1Q/pDR877Nzr2ZCj/i+7tdeUGqHpzDqMxywtgJzvBjRoX7lYucteEnfL2G
+ZSTb94afMpo/9ndlB4Kf8fXW065OdSKcy/dfL8vm9YFwHv8+X9Ygel2B8/n9
++cZ44Ito+Dmfr4Kry3duhQv4/w2laOu+wfALft/9UGtY1K7rPxfy75O4Uj/9
+bJS/ZDTwa1boMz2Uv2LkWltTtFkZfs2oZW7cu/7acBHfbwsii7e0hd8w8s+w
+bWtnBhczOhbstvTdWvgtozy/nJ0ZIXAJ73+Dt+/HGfA7RjfbjkxpfgEuZZQ8
+JeXHuBPwe/5/afuCqBFX4TJGGzRmBP7NgcsZZfW2muqTBlcw+r6mRH/1KbiS
+z3+ShlWIuv4/f+DrN7p6zxdd+CO//5RuaXZRg6sYnXm14+EEQ/gTn+/AAclM
+E67m923qpOi6vnCNrL/PjBISXJcNHAJ/4ffZudIP+4bBXxn9UBs2OG4WXMu/
+n1qv+6O6HK5jZPWu74ol0+BvfD06r9C67wh/59/fnz4f3eMN/+D33ZVhIcoB
+8E8+v7tCE+si4Hp+Xqnpu2YHw78Y1bS/5JGwBf7NzzdTizrzBLhB5j+8/ybD
+D6WHwY18f/s5jHSLhv8yKqhdXvw5FVaSyGxcz/Er4+EmEqWW3XQxEGFliSYe
+WXTMqBRuKlF4RYd+w2vh/yTyzLfSP/sRbiZRdhdH6dwzuLlEAX6H3F8rdfvn
+FhLl2fsXprxCuYpElR5jnvoUw6oSHU23a/zcAKtJFBg4vbhME+1bSnS42I2O
+D4TVJVrxdYPg3x/WkLmVRD+DX5rnDIZbS3QurTC1diHcRqI+6m91TtnCbSVS
+dXx0r9cEWFOiz6P2erYKhNtJZOpYOGheN7i9rP8OEo3f+HST5ixYS6Kufqfn
+nMmEtSUy2F6bF+oBd5TIqVN3P5MIuJNEQ3uYXfU5BHeWKNmttHf0ebiLRH9P
+rMswOQ3ryKwrUZTti/oZcbCeRAcC/v4ukeCuEhUsTdynI8L6Eu1JUvpRvQfu
+JpH0btt/NTWwgUTxHyJf+dbD3SXaL7TeyyphQ9nzGUnUQ0tlsN132FiikY+M
+DbW0Df65h0Tdeii3CuwMm0j0/se0/IBi1O8pEWUNemDQFOWmEtnuOqb1eCjc
+S6LLw7/tih0P9+br7za93T0Y7iPR+RbLV3c8Cpvx+TB94H75ENyXj+fdn7vN
+wuB+EqUdfVuW6g+b8+dvGx/VVAPuL9FMG9tOtevgAbL2AyU6bT2iyHsyPEjW
+32CJXL4k/PhTCltIlNl/S9/AHbClRCmm75r5ZcBDZO2tZO2tJRr8LrPnsNbd
+/9lGogc1D/MmWsBDJTo1Z72aUizqD5PoTPS4VMqGbSVSPzsvWUiDSeLfH96T
+7qqivZ1EX38Py25oRLm9RHs/BEV/fQMPl2ibUL9jvjnqj5Bo8pWYjHIfeKSs
+fJREV74tTU+fB4+WaGDnml4Z7eExEtW/MRv7vAgey+e7h/mm8UvgcXx+sr4M
+dQ+EHWQeL2s/QaLi1XeP0VZ4okRJG2p2SpPgSbLyyRK1TV1to3kOdpRozEXX
+cw1Khv/sJKs/RSJ3+ydaZ/NhZ4kSrq9OPZMOT5WVu0ikNr9fW99D8DSJwo6Z
+NRS7o//pEm3OmDbn13h4hkSjDsYb1WnCM2W/P0tWPlv2+3Mk2qCTkGNYjvK5
+EukYRh1/bwm78v1vkejqNA12k8gufO6Gc8tgd4mG21p9MewLz5Oou63FYNuz
+8HzZ83nI+l8gG99CWf+LJLo41ulTuBG8mN8/e7wf5NvDS2Tzs1Qi+ybLrEpV
+YU9+HzwJCjjY1Oifl0m0dH9yswGHUe4ls7dsPnwk8h51Tb33N3g5P3+sj0wt
+WIn+fCWaEhPRZa057CfRs+SiWRdXob6/rP0KiQ5u0Vtz0w71V8raB0j0ZVfu
+Bx9NeJVsfldLZOWm8ehaN5SvkXmtrP06Wfl6iTIK/o7f5gQHSnQzI/jx/Wg4
+SFa+QaLyiZMKiufDG2XlmyT6aB5gY3Ub49ssm58tEo37ZKe7age8VVa+Tfb7
+wbLf2y7RrrwFy/QMjP95h0T9huv1vncX5Ttl9Xfx+8JzdGiRCIfI+t/Nz8sS
+44XdVdFfqEQL19esX3IF3iPR1je7tyUVwHtl9ffx8/JE6k53GzhMoobZ/p8c
+v6D/cNl498vqR0jk5/4oZG8h6h+QOVKifWZ3OzuvRP0omQ/KfEg2vsOy34+W
+lcdIFK00X3ewc49/PsLPb9utDnMjUH5UIo0PsTZtpsPHZD4um58TEsWFRi2r
+u4H+TsrKT/H7S2dkdlm5yT+flpWfkbU/K3sfsbLxnpO1Py+rf4HfB54BSkIj
+fFFWHifrL17WnyBRzzVTY5S3oVyUKKdMY/b5HjCTWZL5kqy/y7L3lSCrf0Xm
+RH6evfNfZ/8Dviqbn2v8fN2y/spxa8zndX6+7PoTEroLviF7/puy50+StU+W
+/d4t2fhvy95fisypfD9un3/ReGbPf06TjfeObHx3Zf3fk7VPl40nQ9Y+U1b/
+vmw8WbL6D2TOltV/yOffdMpLtWTTf34km58cWfvHst9/Iit/Kuvvmex5cmX1
+82T95fP9Zvbppu8n+LmsvEDW/oVsvIWy9i//v/7/AW3m3sE=
+       "]], 
+      LineBox[CompressedData["
+1:eJxTTMoPSmViYGCQAWIQDQZ3NzooN9dsXWCtcQDMv7fR4bxW8G2uvVoQ/n00
+/oONDidkXM88ew5V/3Cjg0F78mq1KE0I/xGa+sdo8k/Q9D/d6DDxcXG103d1
+CP8ZmvzzjQ68em93F76F6n+x0SHvnBP3e3kdCP8lmvmv0PS/RjP/DZr+t0B+
+19/u3i6o+ndo8u/R+B/Q7PuI5r5PaOZ9RpP/gqb/K5p7v6Gp/44Wnj8QfADb
+0aSM
+       "]], 
+      LineBox[{{4602., -13.369223455335854`}, {4603., -12.676076274775909`}}],
+       LineBox[{{4605., -13.369223455335854`}, {4606., -12.96375834722769}}], 
+      LineBox[{{4608., -12.96375834722769}, {4609., -13.369223455335854`}, {
+       4610., -14.0623706358958}, {4611., -12.676076274775909`}, {
+       4612., -13.369223455335854`}, {4613., -14.0623706358958}, {
+       4614., -13.369223455335854`}, {4615., -12.96375834722769}, {
+       4616., -14.0623706358958}, {4617., -13.369223455335854`}}], 
+      LineBox[{{4620., -13.369223455335854`}, {4621., -13.369223455335854`}, {
+       4622., -14.0623706358958}, {4623., -13.369223455335854`}, {
+       4624., -13.369223455335854`}, {4625., -12.96375834722769}, {
+       4626., -13.369223455335854`}, {4627., -14.0623706358958}, {
+       4628., -12.96375834722769}, {4629., -14.0623706358958}, {
+       4630., -14.0623706358958}, {4631., -13.369223455335854`}, {
+       4632., -13.369223455335854`}, {4633., -14.0623706358958}}], 
+      LineBox[{{4635., -13.369223455335854`}, {4636., -14.0623706358958}, {
+       4637., -13.369223455335854`}, {4638., -12.96375834722769}, {
+       4639., -14.0623706358958}, {4640., -13.369223455335854`}, {
+       4641., -14.0623706358958}}], 
+      LineBox[{{4645., -14.0623706358958}, {4646., -14.0623706358958}, {
+       4647., -14.0623706358958}, {4648., -14.0623706358958}, {
+       4649., -14.0623706358958}}], 
+      LineBox[{{4660., -14.0623706358958}, {4661., -14.0623706358958}, {
+       4662., -14.0623706358958}}], 
+      LineBox[{{4664., -14.0623706358958}, {4665., -14.0623706358958}}], 
+      LineBox[{{4667., -14.0623706358958}, {4668., -14.0623706358958}}], 
+      LineBox[{{4678., -13.369223455335854`}, {4679., -14.0623706358958}, {
+       4680., -14.0623706358958}}], 
+      LineBox[{{4688., -14.0623706358958}, {4689., -14.0623706358958}}], 
+      LineBox[{{4695., -13.369223455335854`}, {4696., -14.0623706358958}}], 
+      LineBox[{{4725., -14.0623706358958}, {4726., -14.0623706358958}, {
+       4727., -14.0623706358958}}], 
+      LineBox[{{5295., -14.0623706358958}, {5296., -14.0623706358958}}], 
+      LineBox[{{5306., -13.369223455335854`}, {5307., -14.0623706358958}}], 
+      LineBox[{{5309., -14.0623706358958}, {5310., -14.0623706358958}}], 
+      LineBox[{{5315., -14.0623706358958}, {5316., -14.0623706358958}, {
+       5317., -13.369223455335854`}}], 
+      LineBox[{{5322., -12.96375834722769}, {5323., -13.369223455335854`}, {
+       5324., -13.369223455335854`}, {5325., -14.0623706358958}, {
+       5326., -13.369223455335854`}, {5327., -13.369223455335854`}, {
+       5328., -14.0623706358958}}], 
+      LineBox[{{5332., -14.0623706358958}, {5333., -14.0623706358958}, {
+       5334., -14.0623706358958}, {5335., -13.369223455335854`}}], 
+      LineBox[{{5337., -14.0623706358958}, {5338., -14.0623706358958}, {
+       5339., -12.676076274775909`}, {5340., -13.369223455335854`}}], 
+      LineBox[{{5346., -14.0623706358958}, {5347., -13.369223455335854`}, {
+       5348., -14.0623706358958}}], 
+      LineBox[{{5350., -14.0623706358958}, {5351., -14.0623706358958}, {
+       5352., -13.369223455335854`}, {5353., -13.369223455335854`}}], 
+      LineBox[{{5356., -14.0623706358958}, {5357., -13.369223455335854`}, {
+       5358., -14.0623706358958}, {5359., -14.0623706358958}, {
+       5360., -13.369223455335854`}, {5361., -13.369223455335854`}, {
+       5362., -14.0623706358958}}], 
+      LineBox[{{5364., -14.0623706358958}, {5365., -13.369223455335854`}}], 
+      LineBox[{{5369., -14.0623706358958}, {5370., -14.0623706358958}, {
+       5371., -14.0623706358958}, {5372., -13.369223455335854`}, {
+       5373., -13.369223455335854`}, {5374., -12.676076274775909`}, {
+       5375., -12.96375834722769}}], 
+      LineBox[{{5377., -12.96375834722769}, {5378., -14.0623706358958}, {
+       5379., -12.676076274775909`}, {5380., -14.0623706358958}, {
+       5381., -12.96375834722769}, {5382., -14.0623706358958}}], 
+      LineBox[{{5384., -14.0623706358958}, {5385., -12.676076274775909`}, {
+       5386., -14.0623706358958}, {5387., -12.96375834722769}, {
+       5388., -14.0623706358958}, {5389., -14.0623706358958}, {
+       5390., -12.676076274775909`}, {5391., -13.369223455335854`}, {
+       5392., -13.369223455335854`}, {5393., -12.96375834722769}, {
+       5394., -13.369223455335854`}, {5395., -12.96375834722769}}], 
+      LineBox[CompressedData["
+1:eJxc23lcTc//OPBUdqJIKCoSLVKWSNRLVNp4yxLSYklRRFmiRFlKZCtCRUoi
+S5R71puE9pKokIRUIqmQUuQ338953T9+1z8ez8fMOWfOLK+Z6Z7RXOfr6CEr
+IyOjNEBG5v/+/98/ZRGU6i59MyBT9+H/PELKKiLY+tRiYIu6vuCRUh4llX+0
+lFVFYBi2/qb2ah3BalLpY0Qw2KCZ396M6WOl0tVFkK9mWdzwaZJgDan8mlLp
+46SeN16qvFrEEX+PRUZg/glS6dpSz58o5UlS99eRsq7U/fWk0vWl7jdZBOMP
+BokSTDG/gVT6FKn7GUq9v5HU/adKeZpU/ukiOP3RP9CiY6LgGVL1ZyyVf6YI
+bkXG+PzkMP8sqfKaSD1vtpRNpfLPkUqfK/V8M6l0cymDCGJl1o8xXoblmSd1
+fwup/POl0hdIvY+l1P2spOrbWqp8C6XSbaTubyuV306qPPZS+R2k0heJ4NC7
+44fFr7QFL5Z63n9S1y+RsqNU+y0l/alh8JobE/H9lkl5uVR9rJCqDyep8qyU
+yr9KBElXso+unYPpq0Ww2nuXzJ0etLNUf1sjZRep/K4i2BjUErRJhHYTgc6e
+5XGyhzG/u5TXSl2/TgSnDJ6MXrYTvV7qfTZIXe8hlX+j1P08pfJ7SdXHJqny
+bhZBRIWHz9hxaG+p9/WRun6LVH1uFcGfNf7NS9omCPaVut82ETyq1d44vj96
+u1S6n1R5/aXae4fU++4UwXfzQ3au0ehdUs/fLZU/QOr5e6TKv1fq/QKl6jNI
+qj/vE0G9afzyVzvxecFSz9svVZ4DUvUdIgLb5nljdodjeqhUfRwUQVtE+Rdf
+JUw/RMbHl5Q5Q1di+mEy/uaP1c95gulHRKDpbR1Zk4YOEwGfd+RZQSw6XCr/
+UannR0j5mFR5jku9T6TU+58g9WPFDNJv1xJ8Uur5p6Sef1rqeWek0qOk0qOl
+6uOsCPJe/bM/7Ig+J4LzB8fu4eehY0TQZLRrzuwsLM95qfQLIvhdqHHPsBjT
+L0q9T6wIXNiDmVtOYHqcCOadcd1/3QcdL1WeS1LXX5a6PkEEvasvTP4air4i
+5USp+yWJYLb74KeMJvqqCPar3S/V+oT5k0XQvsijZrIa+poIXmTWON/cjU6R
+Ku91EWyOyuw97SL6hlR7pYpgvvnsNq0p6JsiuGnj2HxmAvqWCNJN3BTmdI4X
+fFsq/x0RWPTymV3XH51G4rv5TGPza+i7Us+/J4KXOXfOaNJ4v3Sp6zNIPJgx
+dMyVFky/LwKv8+xZ3U9oEWm/dwY2L2vQlFQ6LXV/RgQLb7pd/yOD92elzJF4
+Kx5zqfwB5udFYHBia1GlBaaLRaCYHTBH6TqmZ4ogNM/Jpcse0x+I4H7n1aaz
+TzE9S6p8D6XqL1sEDwvb5q7dh34k9f6PpdKfiOB9wJPLcAidIwKP1bU6F3ah
+c6Xy50k5XwTGH/N1zIagC0RQM/mk1f0EdKEI/hPF5X3yRRdJ5S8WwRCNu6lu
+o9ElUvmfiuBHuPf+hxPQpSJI+ZnZPuTuOMHPpO5XJlW+5yJQNdKZqFqG+V+I
+4G/LY9tV8pheLnW/CnK97sfefnnoSqnrX0pd/0rKr8n87xI0QCYF81eJIEa3
+aG3GBfQbEaxou9/xtw5dLYJB19Zl3nmEfiuCgp8FHlaH0DVk/C+ceTtwHvqd
+CAIWnHv1owr9XgTDzvnWOJ1FfxBBLvX99/1h6FryPoN0akJvoj9K3b9OBBoK
+rxw+LUTXiwAKZxSNk0M3iCCQtVlUuRv9iYz/inLfNZroRpI/fsmFV3rozyK4
+p3g7Rm4w+osIqpUeZS+dhG4SQcb89ogUe/RXEYyp/req5Kum4GYS3w/OW+LV
+B9O/icDyqbbWCBV0iwj0Tr9/6leG+VtFUHup7krKH3Qbef7Hw/ItLejvIsiq
+/eR8+CP6B+nv7iOaNr5E/yTjQ7dbticL3U7i06ddPY+Oon+JYOnKxXEj49Ad
+ItgXadJhvBXdSfrrhf5ZD3LQv0XgOGq836RodBdpf/PXv1fdQneLINO9Tj/2
+BvqPCPp0rre6fR/9V+r+PSK42Fr57+hp9D8RtFqd9FbYh5ahILCoY8iwZehe
+FDjMWjl+iwtalgJ57niV6gK0nJTlKbj43h0SpqN7U7B0ufJuG0N0H+r/L09f
+CsJvnQsOGo/uR0HI5sYxcg0agvtT0Pv8sjsRzegBFLzYc6HaphY9kIJEo3rz
+gAfoQVLpgym48nvtpp/5aAWp/EMouJQ7r6f1D3ooBSpX4eiu62hFCgb3CwyN
+P4FWosDAVsd+5230MArUF3ak1YnQw8n7+I3s4xKFViZmB2a8v4IeQUGF/P30
+KUvRKhQ8OmnXOCkZPZKCluHpG+4fRI+i4H562srhW9CjKbg541Pgwd1oVQqs
+PUfrxHqj1ShIbx91smodeoxU/rFS91OnwO+7+N17U7QGBbEBr8b666A1KRh6
+syeGLVEXPI6CJUmXTXVHY/p4CrrtP5UmG6C1KDA3yR9qMhQ9gYLk6vASBy20
+NgXP20JV6/qhJ0rdbxIFa3TKGhTb8Xk6FBTJPFBSHYDpuhR4LvNeG9AHrSdV
+Pn0KYpqvnrQ/iJ4sVR4Dkt/1SukxP0yfQsGb8L/j3s1DG0qlG1HwtTFjpLsu
+eioFZYqL4g1D0NNI+w2z8+ylip5OwQWPc+8PKqJnkPp3r23/2DZWsDEF9Uft
+ZR5oYPpMCu511PVkZGD6LArGMBUr/vTHdBMKVrc+kj36AdNnU7Ajd+NG3Yto
+UwoU32lPfx2LniPluRTkZlmu2XQDbUbBWKs0I3oB2pyCH9WmgfOt0ECB6ufa
+JVXK6HkUKKleX/xcFm1BwZPQ8m+r3dDzKVjEDVv3UBe9gIIR9m/nu/VCW1LA
+TYjf3mcw2oqCaUbbRs44N0awNQWn3ga6z2xAL6TAeY65m1UZ2oaCiL6wf8oj
+tC0FpMLo/zLQdmQ8GRfbyReg7Ul/W2u4PD0B7UDBybUd6yZZoxdRYLSu3KRr
+BXoxGd8ZidoTTdH/kfYfx983nYReQsHPKb41W1ehHSn4za9cnzgYvZSCvPn3
+4271Ri+j4OHxYgXb32qCl5P6EplZHn+KXkFB6PafJUPy0E4kHhZ6uJvVoVdS
+EOzzXWbuRfQqCia7lryZ8BG9mjyvWdHasxjtTOLt0pTfLe3oNaR+dqmMH3If
+7ULBIK+5J2LM0K4UmBjuFL28g3Yj7XFXL+6yA9qdxPNxXO+XLui1/zc+1QNr
+FdHrKOh7gbEtNkWvp0C7cURwgjZ6A+k/bbtaRv9QFexBQXW/M04PX6I3UuDl
+PKvDqRDtScrzctuk2X3xei8KXFn+zcaHmL6JPO/0q6HZD9CbKTDeNPWg7nG0
+NwVH2cpPP2PRPhTobara65SI3kL6t8Xu0Pgg9FYK+KwPUyfbon1J/FJSXvXf
+HPQ2ClwaDwTd0kJvJ/E+8Eby09FoPwp0nr8eY/drtGB/CugkHTPNf+gdpD/e
++t26ZCzm30nBXw+rlMmNmL6LArV7YgjPRu+mQP9444BrqeiA/5uvVBd/LUDv
+oWDig5tGeiXovRT0vz7W1fEuOpCM58T+Xm/XooMosPA2KZ/gid5HQf7r4NLn
+R9DBJJ7oLVH0/w+9n4Ih1r3ltKzQB0i8vbtN5tskdAiZj7PdLFpM0aGk/nel
+bpaxRB8k5a/csqJMDX2IgnJGrBAojz5Mxv/b6651z0YJPvJ/8bvfvcYydBgF
+w/Yvyp3yFR1OwfWraWWf7qCPkvl4qZP56nR0BAV2cu2XC8LRx0i8+77x0sgY
+9HEK5hwpP7jXDR1JQdXKGVcD96FPkP5662fDYz/0SQqYieeDNzijT5HxlRv9
+froL+jQFlUaDR/fRR5+hQK5u/3/d6ugoCg7dcVTXUERHk/VEdnpHh8RnKehx
+2qL39udIweco+L7TRxTfgI6hoNcQbyXNAvR5CuJjnR2VH6EvkPYZv+PCr0T0
+RQoebLvnMS4FHUvmm2Nj3E2PoOMoWBh7tjbgJDqegrA2h/Xvj6MvkXiTYhMQ
+ao6+TEH0fjY8bwU6gYLs1KgBx6air5D+Y7s30GcOOpG8T+evWUPV0UkU7LYx
+y/FUQ18lz7fIixvSF51MwZlVx2QmDUNfoyCNLR9p8kVFcApp34Z/3r2foa+T
+9ZI7N+17MfoGBW+NmLLnuehUMr9M7lwRlY6+SeKV1uodLlfQt0h8/XLLY9sp
+9G2yPnOLDDuyDX2HgsdP3KF4DTqNjGeX3+NuBKHvkutLfYL7LkPfI/N90nr/
+Aw7odDJ+Zl/+0DgPnUGB/6SwuikT0fdJ/yyrjdo5FC2ioN1S4fyerhGCKQrm
+T3WKkv2Opin4fNnp8+wONEOeF/yrn0kWmqVg5TC3d3Oq0BwFE+Sqd55MR/MU
+KOuN7mq8jRZT8F/iw/i7x9CZZP2yyrTW/SL6AQVXbzQ+GnEAnUXmm6jeejP8
+0A8pcHMas+6JNTqbgrNDN1xYvRj9iMTzz0eNb5iiH1OwljmjNVsD/YSC0R/q
+U3KV0TmkfLsO10UroXNJPKjyf3xBBp1Hwex7d3o6e6HzyfsvsVc3L1QWXECe
+X7fTwvM1upCsX6Nf3XnyDF1E6iOp17+Qm+hiYtvq7ua76BIyXlROpm9JQj8l
+64HQgOLxkehSEs9ePPUrPIB+Rp4XObE23xVdRoHZYO30OGf0czLeqR+9NFag
+X1BgyI5fpGKBLqeAtajXLDNHV5Dx8GPX05F66EoynrUmurzQQb+kwHt+4vKM
+AehXFBSknc3N+zBc8GvSn8I7jelf6Coyv4j+VsdVo99QsKrv5w30U3Q1Bf3u
+1swb+hz9lqxPe10v2Maga8h69MTdoq0c+h0pbyLruCAa/Z6CaxcrBvlGoD9Q
+sF1W//IUf3Qt6a8rE8oNN6M/kvLvW3hA1xNdR8EdVctR0yzR9SQezo6ezOqj
+GyjItEqbozgD/YkCyqEq7usEdCMFNWlmV7/Loz9TYGuv1rBvEPoLBUGf9StE
+zcMEN5HxUWRw/eFn9FcKvn0Z7mf2Ct1M3seS+9CnHP2NlMd2y2/ZDHQLGR/y
+vHz1NXQrWQ+yn/zCJW6jYPrZR4plSejvFFgq+p7sdxj9g8Rzfnar3SH0T7L+
+Wm/+3Nsd3U5BZO23F+JV6F8U2HzuVJZZhu4g7SPW726wQ3dSMKm//SGVOejf
+FGj29Rs5RgndRUGhxp1nB4eiuykoSR+t8UfiPyS+9dP4XteuJPgvBbKZn3cv
+/4HuIeuZ978zDGrQ/8j68cXnjmMFaBkaWr+W9HuUj+5Fw9K1f7f7JKFlabhg
+k/LjfCxajoaDTxYYXjqOlqehqnJI9r8z6N40VDx4frPvRnQfGpocuEVDfNF9
+aTj3PAMsdqL70WBxIKFkpCO6Pw17Cluyk0zRA2hoeTjXxns2eiANdcctZ9XP
+Qg+i4VjYNo/TSujBxI93mKj0RivQcJvNnfb8n6LgITQs6998d0MLeigNY5dM
+kX1eiVYk15+x7t3rKVqJhn5z7wdtzUIPoyF8FJiUF6CH07Bg36ZhF9LQyjQ4
+dfea5puIHkHD3T1Wtz5EoVVoaJhtH6sZhh5Jw/mKr11N/uhRNIQMOumr4Yke
+TZ6vp23vbINWpSE6PmNZ0X9oNRq+qRfG75qNHkND7Ax7h/NG6LE03CwqPT5x
+CFqdhshxHoWKmmgNGlISa5u9+6M1aRhsO8rYvBd6HA3jjX4r93wbKng8DZOq
+tLjDNWgtGo5vvLRxVwF6Asl/z2v3sly0Ng0yTo8nJNPoiTTM7WiwvX8dPYmG
+5dqr7jQkonVo0HTbWPv5OFqXBlX9dKvMULQeDWZ9Oit3+6L1yf1GxXZ+2ISe
+TNrPzEsu3h5tQOpn2vjpRxejp9Dw1K1z3UwLtCENJqWeMHkS2ogGWev9xlpj
+0VNpyPca/LhiEHoaDT5ZXjb/VNDTaahPKy/s82OI4Bk0bJwf+3RoJdqYBh31
+uy0BFHomDVZeTxX6nUPPomHzpbGNK2PRJjTce72sI2sXejYNlQpNmwpd0aY0
+DDfedT5+NnoODQ/+eTrlTUDPJe9zvmTZgR4FwWY0aP+cY1bXiDanwVnNY0JQ
+ExpomJyc4LWDQc8j9afpqjMvAW1Bw4arVSO2HEDPJ/2/TeOJ61r0Ahrc8w9+
+yFiOtqTh/llu0RRdtBUNq0pr/H6poa1pmJF/fkiZPHohDWvC1iuVNw8WbEPD
+y+9PTV1eoG1pEKmavU2+graj4YDGtzdnrqLtaehoTBrfGYF2IO39vmDL/rXo
+RTRsD/zYP2QpejENz80MRry2Qv9Hw/rKBepT+qCXkOcv6w7TUkI7kvfv3O7y
+tmqQ4KU0DK3/c/BMA3oZDX5n67Pfs+jlNDzWGqtdegq9goZZVu2vT0WjnWiw
+nrHgGuOHXklDWpnavjgn9CpS3si0yy8s0atp2LVX9ZnRBLQzDf09/Vyr5NBr
+aLD768CybQMFu9Bw4vjaVzLlaFfSfy20x/y4jnajwai47ID7XbQ7DbXyvc7K
+HkavpeHVmaMhZz3R60g8KL4/4Istej0NCzc6fr04E72BhsCNs5umj0F7kPj3
+7mDdmtHojeR920X9VjYPEOxJ+meSEz/rI9qLxP/zewoDH6A3kf78n16gMYXe
+TPpv3ce1zdFobxLPE1qsD+1H+9DQvUm/gFqJ3kLD9chBhwvM0VtJvNBb0+ms
+i/aloXhDGkQPRm+j4axSsk1Wa3/B28n7JT7oSf6A9iP9++XTYa0P0f40VJs8
+G1Z1B72DhqtlDX8yL6B30mBp8CVKJwi9iwa5uF4pJ9eid9OQ0SJ+89YaHUBD
++yHFx+HT0XtIfP9sMOP6aPRe0j5axpo1fdCBNDxqqrUo+9VPcBCZT/6DuTcq
+0ftoGJHW/ELtATqYBso18e3jJPR+Gm5cDL7lcRJ9gIY+75aETQlCh9Aw4Vq3
+wl53dCgN744nOlw0QR8k42NsjG2+LvoQaY+OVx7LR6EP05BZPHnuBjn0ERr2
+yiSN7KjuKziMzD+d2rc+V6HDaVCq/dE0IB19lLTH3D2fNK6gI8h4bu/pSj+M
+PkZDV3m5pcJO9HHS3yaNWH/aFR1Jg5ZzUuxEM/QJGlYobmyIG4k+SYPixOXM
+yhHoUzSIw8Rvstr7CD5NQ0lG/OPNZegzNCQ01hkMe4COoqFT3OBlK0ZH0xC/
+/Npj60T0WRo8UmNOFEagz5F4uPG9UfIWdAyJ9+FDTB3c0edJ+x8vPXRsDvoC
+iZc2Px7/VkdfpGEIDJt/bBA6loa4ny7BD5p6C46jYefrv8bsG3Q8DaO22qeO
+LUJfomFJ2pOmH7fQl2lYPcq62jkVnUCDuk/VjXk70FdIf750SufibnQimb/v
+hxeuW4VOomFer0ld+4zQV2mgS7lRL9TQyTRcuzozuX0g+hqZD6cpJYk65AWn
+0HBKbuTomGr0dRrGJGam2uegb9Cw47LxNPMb6FSyHgpR5B0uoG+S93+n2z8u
+An2LhqBRR342b0PfJvFjSk1FxQr0HTLfbstu0gJ0Gnm+99l5R7XQd0l8Hhc5
+qFgFfY+GmMbnGitk0ek0uLkvsEuqlxOcQQM/dNFhuhh9n/SnF8VX5qSjRaT/
+Q+28l7FoioaAiW/fTj6Opkl/D4o4dXQnmqGheaF6mtk6NEvay7rlQ48VmiPx
+4qP+6iNGaJ6GgsIXnQaaaDENDx9ayyzoh86kwSF+aDX7TVbwAxo2jd+iolyN
+zqLhR0vnppmP0A9p+Pwz5n7pNXQ2DTZn6OL7Z9GPyHpbX3F//xD0YxIPLjvn
+hnujn9BwJEs/13opOoeG9HNparss0blk/T45YvUTfXQeDScv33Z8rIDOp6Fn
+2HerjS29BBfQoB/r1s29RBeS57/reGf/FF1Eg+6MZr0KCl1MQ1haWHFrMrqE
+jLdp/oc2H0c/Je2tHRPSvh1dSuLx5wqHR67oZ2Q9YJuzY9l/6DJSHsrUPdgI
+/ZzMH0EWgw+pol+Q+T/48F75gehyMp49qCVv22QEV5D651b6+1ShK2kwDmkb
+nZWDfkmDa+Cdr9NZ9CsaBuo3L/qbhH5Nw+xVV2XmRaCraIjo/qN+Zy/6DanP
+Gr2utGXoahq8K28Ulc5DvyXzf0Pmj2QTdA0N28y3Wi4ag35H1tc2WU+ch6Lf
+k/X74C4znR//sv7nDzR8/eW2oDwXXUuDwk8vk6uX0B9J+31J0vX3RteR8n0v
+3DRwDrqehlLX3qlt49ANNOhNGazh+q1H8CfSvpMzPG7noxtpKOv66Hr7Kvoz
+WQ/NG234bCv6C1mP9kkOz1iIbiL7U4VXzyu00F9J+4bvvazV+FdwM1kv9x0f
+vegJ+hsZ3wPTo2dcR7fQoNZnyqignehWGkKjGr6eWoduI/vhdxcTeiajv5P1
+RHTa9kHdfwT/IPNRit3j8BfonzR4Lu5dIHcT3U6DL/Vww8Kd6F80TPfpdfrN
+anQHDTlpUcqDTdCdJP/CU6HbZdG/aai5k2UbV9ctuIsG+QOxbYtvobvJ80Xz
+1dTPov+Q8RwZk5/nhf5L2juv6GjLVHQPDRo+8mW9hqH/kf2h06ymH++6BMsw
+4PHoxtfbueheDDznet3OOYWWZUDuksaYyh1oOQY0Z/iFzHFEyzOwpX+S3/ox
+6N4MmH8ZE3v692/BfRjQ9asuYCrQfYnt/4UOEKH7MWAWovw0NRDdn4ExHr/M
+73qhBzDQ8fs3NdoQPZCBog/bKPf+6EEMpCx5ppZe0il4MAPD9t3iB99DKzDg
+2pH7wes4eggDhod0Cm57oIcy4Gje+MvdDK3IwOpPm23S1dFKDCTrv3RL7e4Q
+PIyBWclRNkweejgD47eXOnVwaGUGFuo8DdoSgB7BwAarzO/Dl6JVGFBz3by0
+cCp6JAPhH8NWvhyEHsXAtwFTTq+o+iV4NAM2M87admSgVRk4OHCqw9SjaDUG
+sn5dHZ60AT2GgUcG/g6wED2WAf9T7IqXY9HqDPzR3NKvpLNdsAYD+b5ntS3K
+0JoMDArWMXWh0eMYEE/rkzsyEj2egeIRX2VcXdFaDITKJhaWmaEnMBCrYXgj
+XAmtzUCE6rKWHV9/Cp7IwND8A3/qytGTSHt9PbS73zW0DgOZK/nrj7ajdRmw
+PPkofZErWo/cf/z9TcWGaH0G3gTwh36NRk8m/SuK+pLx6YdgAwZumn6qmfQY
+PYW0T07ukI7LaEPSv2r9o1v2oY0Y8LywzzfcAT2Vgbdxbmu3TUBPY0DlkHrc
+mZ7vgqczsMuAVZZ9h57BwN5fl3a9zUAbk/7Vq3H/8lj0TNK+et3/XvqjZzEw
+XNHhTJgj2oSBw9ErH+bPRM9moFl/xqaif22CTRnYd2Jq248m9BwyHs79DtvL
+oOcyoBGj8UcnCm3GQPb9IaOKtqHNGXh48u+fxzZoIF5yIMdWGz2PgR+znnid
+k0dbMLCxZ6RKak2r4PkMXKSv+OwqRC9ggDYs1Q+/gLZkYN3cA9fag9FWDAR6
+ZD5a/x/amsSPN6+yOgzQC0l82fpzSfBgtA0DQ44siJZlWwTbMvCxuIh/G4a2
+Y2B0x/aiJH20PRkPm8VZhZ++CXZg4L+artO2WehFDCxdtTN5oit6MenPfSdH
+GWug/2OAP236tv5ls+AlDFQfXe+rEoF2ZMAuI2ttsCN6KQMxo32Ltw1EL2Og
+8ZeHWuqrr4KXk/fvqi9/7IVewYBszQk1WR20EwOn5DUuP/vUJHglAwNeduXf
+PYleReLFuu5PakvRqxno9LDf3KqBdmbgjGNEwoPXXwSvYUBRdvaYPhfRLgy8
+fsDu0DFBuzLgc6lXvflQtBsDK+Q891RmfxbszkDuwIzAB/7otQzMmHZo2XJN
+9DoGep2ef6Xfj0bB6xnoor4p5ojQGxh4bGu60TwI7UH657dUC1Nt9EYG/h5j
+PfbVfxLsycC83xvDpyWivRg4l2iq4u6C3kTi//6sC6vHojcz8K6nx/F5SYNg
+bwbW3uMNohPQPgxEy+4NMJ6D3sLAlIEXxkfKorcysFP+WXZxfr1gX9K+SZPl
+zoaitzHQFla6vmMmejsD8T7Dcrd31gn2Y6D15tG31Y/R/gxEtpYvX30YvYOB
+UfPzTIwnoncyELY5JEHc+FHwLgYO3D25SS4TvZsBq4WVtIk3OoDEX82B7MEp
+6D0MTHrGt0XX1Qrey8CIglPjxtxEB5L4Kb4/+PthdBADDv2zLZuGo/cx4L4y
+f33uyw+Cg0n79i9ojU1C72dg7M0+YWFO6ANkvDsp/NHXRIcwoJ3XLRK1vBcc
+SuKrfbjCzQT0QRLfChalrF2LPsTAPffu0l6T0IdJPFu88NzHu+8EHyH94fL7
+4Wumo8NIvJTJXlXI1AgOJ/1b7lk0uwR9lNT/Ys9pnZVvBUcw4LKDe/fPDH2M
+xLf/umbPeFwt+DgDAd/1HOQXoyNJf9lg55ld/EbwCQa88rYvs3FAnyTtqbr/
+rhVfJfgUA0YuM8xWuqJPM/Bg9dTCxW9fCz5D5gPd4gqXZegoBqzf6xiX/nkl
+OJrED/vlBcvc0WcZCJK9fLXs30vB5xgIHlVnM9gLHUPi9Y6xybNaKwWfJ/Nf
+qFGu4Rr0BQaOVmQpKdVXCL7IQL9Zuwfs24qOZeB3TG9rqw/lguMYWLXjeuK2
+QHQ8qd/cAP2w3y8EX2LAIL970rVj6Msk3o9MKeuYjk5g4JKJd5TZueeCrzAQ
+1dj9/fkodCIpv/FSi5yCMsFJZD7bvr/6xlj0VQZyxi2f1VXyTHAymX+dW0VK
+c9HXGBi3ijJPjygVnEKeP1TLbdCVp4KvM6Az37J9aXyJ4BtkPdU4pjCjqFhw
+KgPdtqb3jpYUCb5J+r9a9JtdnYWCbzGglyNrHd5dIPg2A++XD1y6sSJf8B0G
+rm1s6v/HCp1GxueOBzbN0/ME3yXr17a582eo5wq+R+afvsql20NzBKeT8Rq1
+/GJfuyeCMxhY9lPXSGnvY8H3GfjnvGr2+vePBIvI+tAzZpTX9WzBFJm/e4Vr
+qLU/FEwzkFbiSzV8zhLMMPAlsiGl3vKBYJb098K8qJBEsWCOgcRqjqYdOcE8
+WX9N3rlQpocRLCbr24ClI8xbKcGZDPheuqap5ywS/IDMP90r1C+FZQjOIutP
+Ly/jJeJ7gh+S+WZr5LdBv9IEZ5P+ZhTXz3j6LcGPGLiit+TJ/gvXBT8m67HR
+Cl7iEcmCnzCwe9L+Dlr1iuAcUp/fRiosMY8XnEv6u8mLbSv1zgrOI+Nn35eo
+c1eOC84n/X34y4pz3/cILiD9YUSJzuapqwUXkvnHbshAw487zP/nIrKe2OsQ
+2LYqQnAxAz2xi96+tI8SXELi13HD6GWqFwU/JfH/kkLut+wEwaWkfBXjj90x
+uir4GQNrXMyMfJenCC4j/WO7o8smtZuCnzNQ+CF320KPO4JfkPpPeB9g9uCu
+4HKyfvnUnOHpmS64goH2bIO9YVvuC64k68W4QabZN0WCX5L9xN5DXM5OWvAr
+Ei9U6vf7LGIFv2Zgf/y5flOH8IKrGDi7tNnl/Gex4DekPr6uLgmweSC4mgFb
+nQWjK+qzBL8l42ur/u6tLx4KrmFg8MdxQ2yiswW/Y+CT7uSO4V6PBL8n6wmm
+ou/+2Y8Ff2DgevfOZ/zoJ4JrGeizuGbSyJfojwxMDz5QrBWZI7iO7N/UIsZ5
+Hc0VXE/a40+Th+ruPMENJD73zmjZPT9f8CfSvqHMX5+v6EayHllns2R1RYHg
+zwx8L3j9ftzOQsFfGNhsuq554oIiwU0MNG1J80oyLBb8lazn7s556apUIriZ
+rA+HJ+q/z0F/Y2CHXc98H9+nglsY2LOk1VTLvVRwKwOUwvePq4c+E9xG1qc+
+e7/dCkJ/J/194MiuW/noHwysF6V5T5pbJvgnmS9ULni0paLbSf1lH25p6PNc
+8C8GZK4EvDfeiu4g+6FYeerEO3QnA1O1bYdc03gh+DcD6QoJ40NuorvI+ntD
+QFF7I7qbgaf7Y38eXVEu+A/Zv2u4WK9g0H9J/nVx/FbNCsE9ZP3c6PpY7I/+
+R94nJHew9Ru0DAt7YjbOvTulUnAvFn5ddxxudB4ty8KVJNfe3b1eCpZjoTVJ
+YclXD7Q8CxHqz4JOcOjeLMS55ueEjH0luA8LmhMHBNwIRPdlYVlq24ODL9D9
+WJjYYd8nafJrwf1ZuJ5c3lp8CD2ABZn+Iyt216AHsqCeWTYo1rFK8CAWDv1p
++fKaRg9m4bnJn2uacm8EK7DwoHhPez839BAWnm46+9PxJXooC9THbxNnqVcL
+ViTPv306tjYQrcRC//dVDcWf0cNYKKtI/jjb+K3g4Sx06s807H0crcxC7wh1
+iz/16BEsnO/tbB1jVSNYhYULT7On6yahR7IwOnRw/rAf6FEsbNRzOvLd4p3g
+0SwoB38dncSjVVnwCJ5d81P2vWA1FqxO7Zp80RA9hoWSjRRZk6HHsjDUwulC
+XQhanYWGxNvVk++hNVg4teBA7I86tCa535CRu936fxA8joWb8rLBywE9noV9
+kQtnVq1Ba7HwxzRvzu6T6AksvI+e/47i0doseGn3Wefbgp7Igp183KQno2sF
+T2IhKqiv59I5aB0WTNwqloz3ROuS+1usfy93DK3Hgt9nnTR5Cq3PgtaIc2u0
+fqInk/K2Oll+Uf8o2ICFgffXL1MxR09hoVynPsXGE23IwtXkpotVUWgjFp7o
+xUXI8OippH1Oeie0fUZPY+HzPD/jrQp1gqezcGSV7vkPs9AzWJh74V1JmSfa
+mAXjCZ55VifQM1nwHOjdOuo+ehYLBft3ppx9hzZhoc5E1HBLpl7wbBbCJuU2
+VxqiTVmgw478M1iOnsOC89azB9YdRc9lYXyBhdOVW2gzFtI3qw6gS9HmLGxw
+v7SouhsNLLgP3xWXNaFB8DwWttZfVGs0R1uwkHZSdHSlD3o+eR9ze1nTKPQC
+Ul+3J6Za5KItWVjlJT/r9he0FQvTqEdKzkqfBFuzkDCja0KHIXohGU9/tAxD
+PdA2pD4b7F5NO4S2ZeHT3GaDmttoOxYmJac0fipF27OwNK+zfkcX2oGF/FP7
+Z9sMaxS8iIVUz+gJdXPRi1n4uvr12RWb0f+xMKOgf1VrBHoJC9aa+2Ou30M7
+slCcG7m1uBy9lAXtpLmpnT3oZSR+Jr/pe2LiZ8HLWbjfabe6ZjF6BQs5sT8r
+R/minUh9nHO36xuHXkna33D61shM9CoW7uTdK658i17NQn2/mSpqf9HOLKje
+P67eNvGL4DUstAwSly5ejHZhYTLjOGv9TrQrCzcGXe7zMA7tRuKDo3xGM412
+Z+Huk+SxLrXotWQ87Dw29KpMk+B1LKyPCdcI10OvJ+lvZ7UHWqE3kHh/VV72
+nBfag4XG7iOqKZHojSxMdUw130ShPVlY8m3iyF1laC9SXw5tDgbf0ZtY0HiR
+/lth+FfBm0k8aZwDz2eivVnwN53466Qr2ocF1+ft0XkH0VtIvLffa7Y3Fb2V
+hWH+LamFj9C+pP9mhD448Am9jbT3Sv11B/o3C97OQtuz0Svjx6H9WLgnK76f
+uxDtz8Ilxbi7+V7oHWR+DF4oLjyG3kni/SiNZcb30LtY2JTs819VJXo3C2sO
++ar1+ooOYCHafueXucO+Cd5DxtPTmrt7DdF7SX3xY0r7LkUHkv4WPrhF2Rsd
+xMJbFZ+kzOPofSwE1NQW7biLDmahZ2tIyPsy9H4WkkojTLVb0QfIeMm4md7Z
+t0VwCInPbjdumxmgQ1kIvqS1wuI/9EEWYmZc3hjpiz7Egt6RrdTnMPRhMh+f
+VTSMuo4+Qvqzd1RDexE6jIVBudO81zWgw8l4kF2UOqwHfZSF17vNleWGtgqO
+ION/eF6y9jj0MRYWB8vcGDMFfZzEMz+P8zfmoiNJfbko5DvZoU+Q+rr4qtTY
+DX2SxLdRJ4ds90afYmFC6sPnkwPRp1m4Nqy4PDscfYaFiotREW0x6CiyfqmH
+E5Ep6Giy3lh7xed3GvosC11rg70XZKPPkfhyNacyoRQdQ/qr1i0Tk3fo8yws
+f/IyJe4b+gJZf3W8M8zpQV9kIT7nwsjFg9sEx7KQGZA8dYAyOo6F+a/e6p7S
+QseTeJ9P/1MyQl9iYdRNudkD56Mvk/mwovBaoQM6gYXm3GmliW7oKyysMx80
++5o3OpHUn7Ki2jM/dBJZDx3IKT50FH2VBQvF0pbaM+hkMt+zc6a6XkFfY0E0
+wGGI8210CgtBs79NXc+hr7OQZze19Gs++gYLHZYZV0Xl6FQWFn04NyzhA/om
+C4YfGpr9WtG3SDz+ODi+uQd9m9x/w8BTFXLfBd9hwcynMnzTCHQaaU8jyt1n
+HPouCwudVw/bZoi+x0KtRdTIkNnodBZeyGj/W2GJzmCh1+/Egu1L0PdZGK65
+crePO1pExrv7g1ehXmiKhQHpp/f82ImmyXyeUdHf6hCaIfVt+UW1JBLNkvXa
+mg+9G8+jOVKeA29fL76B5lmYt6/gTmsGWsyCr+aUoL5idCYLTbY7otaXoB+w
+8Gy3ZsyUl+gssn4+llzU9AH9kMRvR+O3/q3obBLv1LYvcuxCPyL9deDfkE65
+H4IfszDO1XFc9SD0ExbYP91HjFXROSxwvT8Nl5uIzmXhv0mh2V8no/NI+4hb
+b56Yjc4n98+3DB2xEF3AwgnP+Q1p/6ELSf86+WqFjgu6iMwHCSmn921CF7NQ
+HTxvr/x2dAlZ38ftLD0QhH7KgqJ2femlcHQpC7rjPIqHnEY/Y6F96WPvkXHo
+MhZ2TxNp3ktGP2ehtPRljFM6+gVZD/q+sHjAo8vJeD2hvSkrB11B5ptN+bm9
+StCVJF5drPFvrEC/ZOFvwpPstFr0KxK/PhX9ev0F/ZqFPsb2my3b0VUkHj03
+ubfgH/oNKf/Js8cj+v4UXM3CwennW04MR79l4bBijYunBrqGlH/H6dNaE9Hv
+WJC3LdwzYCr6PYlnhW1XLs9Cf2AhVokbf3MeupYFo9VBs81t0R9ZkNM3CxMv
+RdeR+aSqa7+SM7qelHdCj5GjJ7qB9Jf1b1cP8EV/IuvX/IcaBjvRjSwYXI2y
+23MQ/ZmsL+YvHX31GPoLC2fkM7zGn0M3kfngSNcWi1j0V1L+hFu3tiahm8n7
+/jPt9+cm+huZn7OW1TdnoFtYeNhjq27GoVvJfHZs5pHCR+g2FvbmildrlKC/
+s+AkpxoSU4n+wULfDykfbGrQP0k8yL72n0stup2sZwotRvb9iv7FQuDj9tLE
+H+gOFpR2scp9/6A7WYDNK+fYyLYL/s3Cv7xzwe6D0V1kP7Ou91y14ehuMt9/
+Up7EqaD/sPCGPmI3Uwv9l6xXLQLG5Oqie1i4HVBlvmoa+h/Zb8/+uqXvLLQM
+B78UrjTFmaF7cWBAOYz4uQAty8EpgxURhYvRchwETeibb7AULc/Bhg3sPfNV
+6N4cQFuvvTPd0H04YH/PdEz0RvflQG2i8b+VW9D9ONhSFn/DaRe6PwcO85Nj
+DgWhB3AwsVX9t9VB9EAOjsv/uFQbjh7EQV3GsYaDJ9GDOXjot6Gm4QxagYMk
+xc4I+Tj0EA6W1dRVv7uMHkrKJz8k+3AqWpFc/3vzLItbaCUOxl1WdF0tQg/j
+wKzwRfVvBj2cg8tFVppxmWhlDlQt/n6VyUWP4KDB+MgEcRFahQNr/ZdDF5ah
+R3IwZuaEitOV6FEcpDq7OchUo0eT+y+CMQvfo1U5KEx4MuxbPVqNg9HR8jKj
+vqDHcPDo4NW0h9/QYzmo0h7x9Eg7Wp2DjpVPzz3vRGtwsHzCztNOMr8Ea5L3
+X9B3g7Y8ehwHowandof0RY/nwFv15NPowWgtDnwi6/xXDkVP4GCGbmr7rBFo
+bQ6i2v+Ir6uhJ5L385cvTdJAT+Jg0JPPvyImoHU4sPPt5xyjh9blgIFu15OT
+0XocdLIpHkWGaH0OZiWufhM1Az2Zg13P5e9Wm6ANOLjkn91nBqCnkPI+FtkF
+maENOdDocJ9w3hJtxMHwyuwphTboqRxkfq2PPOaAnsaBe9HvsWkSTyf94cGi
+EmYpegZ536LKAEMntDEHI4a6L3Nbg55J0oMUQ+66oWdxMDdEFOkgsQkHP5Kv
+NQWtR88m9eO1t+aOF9qUg7P5T5S3+6DncJC9bkVzzhb0XHJ9f/OLj/3QZhzY
+ZHkc+b4dbc6BzMC2LQm70MCB4pJOtYK96HkcdA9SVGaC0BYcuO3ZtfDAfvR8
+Dp4o5v47FYJewEHuVNnPeqFoSw6ixzdtcTmMtuLgQavlz44jaGsOEssqwq8e
+Qy/kIGfo9Jx/EWgbDnb4Zis4n0bbkv7qvLpt+ym0HQcj7x3I+yJJtyfjM7jL
+O/As2oG0X8eLCbrn0ItI+x2xZw7GoBdzcHdkWHReHPo/DvSWJA77JPESDpZA
+tXzLRbQjB7sNzurZXEEvJe3N9usMTkQvI+1rmDX0rMTLOQg5/Ekj8yp6BXmf
+Pa9KlCR2Iu0RN1LzUjJ6JQcDfzefsr+GXkXqX1M1Y7rEq0l8XS63MeUG2pmD
+6TrvYupT0GtIff7x69RORbuQ9lAx/rxHcr0rB8Y3oHDkLbQbBx+2T/zASu7n
+zkHNC7PicZLr13LwcssF12WS/Os4iHs2TfbqHfR6DhIGOv1TuoneQN53lPKJ
+K7fRHhyMvfIwrEiSvpGDnnUaK7ol13ty8GYT9zcyDe3Fgd9PG81oSfomDlZl
+J49slly/mYOY12z0X4m9SX9s9HBwkjzPh/TfNVGWnpLrt3AgZ/Ki65Gk/Fs5
+eH6uw3SM5P18SftPOPy2XHK/bRz8Xdj70V9JfW3noOKh5X8+kvr142D9fAOt
+8RL7cyA/wkDvexJ6Bwcb414sHyC5fieJ5+yCVf8k3sXB16Md8VaS/Ls5SD+d
+GfpW0p8CSDwNSeS0JN5Dnv9tj9lXifdycDN1qEfOZXQgBxbTFHJ2SdKDODg9
+1SM/V9J/93GwwEAz6pjEwWR+j9Mx1rqA3k/mE9Z6806JD3AQH1c+/7JkfIRw
+oAMR9CeJQznIO5Bz6XIU+iAHd0z3HXA9gz5E2tcw+lCuZHwe5qD3J+PJG0+i
+j5B4kGL3blc4OowD9ZCdPcqS8R9OxltWL5VASXw4SsazmmNW+QF0BAfF61K8
+0iXpxzhoX+umuVaSfpyDP87Fj17vQ0dykHVGYwUXgD7BwfdniZXFEp8k65ff
+AYtsJfHvFAcq2prcCEl8PE3i8c2iqW8l8fUMiTcDUw//lMTfKBKPtmwLc5c4
+moOPQ/03iDaiz5L2X7mvM8oVfY7EnzpHxd4Sx3CQX3hcbZEz+jwZzy6DA3pW
+oi9wYNR32MktjuiLpL62eFnMWIyO5UBpYxhtYoeOI+PXab7ojy06noMpxpcf
+yVqjL3HADQx2eLUAfZmD140hbfvN0Qkk/iXIyz6ahb5C+t+M4fu/SpzIwUxz
+A+WUKegkDkx+tTqHGqGvcjD7yz7240R0MgeHn9/ItZfM59dI+gsuynccOoXE
+i/+qdxmpo6+T8e32Mb5bsl64wcG9mQmBJUroVA6SVUKff5KsL25yoODY5Llg
+APoWB+P/ZqlX/8P1zG0Snw1Gp/+QxfQ7HEx4v0tp0B9MT+MgzH/fQrlu9F0O
+aocwuyO/o+9xUF8+zijtKzqdvG+WnMKmBnQGiRfrdu5XqkPfJ/095vmwsjdo
+EWlv7eSQ8HI0ReKnudY6s2domvSfMSp3/ArQDInfbX3CXz9Gs2Q85L+69j0L
+zXGgvUe79AaH5jkI8L868M8dtJjMrztsOoMlziT9x+m0X+g19AMOtu42urfv
+CjqLgyZbeYfQePRDDoY01I0oikJnczC1K31Ql2Q9/Yi0V6+R51OPoR+T9Uug
+64rpoegnZP5++GLj/D3oHNIeyt8tIrejc0n9pGxfeWsrOo+DZr20Bde90Pkc
+eMptWdhbsl8o4GBh7KSQPc7oQg4eFxxQSXFEF3EQycRMb7VFF3MweXiIdb4V
+uoSML+ty89Xm6Kdk/aoz9fVkY3QpB6ZBb7kv+uhnHGza1yRjq40u48Bpufnc
+qZro5xy8OK3S1l8V/YKst43ubNUegi4n+RV8ZOne6AoO3lWsDrskg67k4ELf
+Bal/f+N+7yUH/6JGxHm0ol9xsDjp7TGvevRrsr609+bc3qGrONDP25j0/BX6
+DanvKzJWy59K9v8kXi9q212TJ9n/k/brOfwk/6Fk/8/B5lF//l4WSfb/JH6X
+7h824I5k/89B6PLxU/WuSvb/HDxdNKsr+JJk/0/m087CGSvPSvb/HJTEV3+4
+eVyy/yf1oTZR55xk/15P5rc9x39+2CPZ/3Nw9EtumLpkv/+J7CdDjnXv9ZLs
+/0n/+DXl4QE3yf6fgxsPqZVayyX7fxLPXa3DAmwk+3/SXtyZ35vmS/b/HBxb
+FKQ6aY5k/0/WH/cenZ9qJNn/cxARenbQMV3J/p8DZcMRp4PGSPb/ZD95bsPk
+cyMk+38yHuPfL3/SR7L/58DKZZlsvIxk/0/mG4OMrUE/8e8xP4kHZFrfbka3
+c3Bo30nPfZK/7/ziwPx6lP6K1+gOsh/ZPDPL7Cm6k4PzG4fmmOSif3OwzXuH
+dV8K3UX2Pwutx665g+7m4HPSPpOWBPQf0p5X2Uw2Bv2XrN+OaDyrjUT3kPlo
+MeO/+RD6H9mfnnBeM2APWoaH0OmGVXe90b14KD5zf+bndWhZHj4pH9x0ZhVa
+jocTwbMPxzmg5XmImCS36JolujcPQ9/MXxVmgu7Dwy/LvGwVHXRfnoy3Q9en
+jUX346EuTzetYAS6Pw/Hu67sPd0fPYAHt8GXVwf+xb9HDuRhS3Bq57/v6EE8
+VKi2jhtWjx7MQ5zy6oSM12gFHuhoW6OkZ+ghPJiG9E+VzUYP5eG7cnDvOSK0
+Ig+zP7h6a6WglXg4O8UzpX8cehgP2hvfVd85jR7OQ1dBlN3QI2hlHu4YxMJm
+yd97R5Dn//zm4uKDVuFhlOZE8S5X9EgePuipHt4n+XvyKB70Ezat2Sb5e/No
+HsL8ml1TZ6FVyftnTHpwSh+txoOM3Iy4iDHoMTzkeSoZT1RCj+VhSerqe3xv
+tDoPn21rzBPb8e/lGuT+/lVJtl/QmjxMP+P3JakGPY6H9IRZu1xK0eN5WB5V
+pGOSg9biIdp/8ILt99ETeLgh/+SG3g20Ng+3pn48szIWPZHUT/rBWsVT6Ek8
+OL2bLrcwGK3DwxrljP3+vmhdHjaGTKu8uA6tR/J/3bulbClan4cnS3ovHbIA
+PZmHQ+KX7W7GaAMeMruo2NmT0FN40HVZdLxFFW3Iw0DflT97BqKNeDjFJf2r
+/Iu/v0zlYYar1saBbehpPOzZ0yUfVYuezkNBaUDJ8BfoGTykVg0wi3yENibt
+uePZiGwReiYPHwsfV1hLfj+axUNsZ+MyJ8nvSyY8TDN605F8CD2bh5amqYNu
+7EWbkvqLXuRweDN6Dg/jC9rHsSvRc3nYqaqbwdijzXj4GdDQeswYbc5D49Ws
+GQf00MDD18Avl13U0PN42LY2xrJmINqCB4XqNUN2/sLf5+bzcNewlXOvRS/g
+YW7OtLuhDNqSjNe/hwx849BWPAQoFB6sC0Bbk/dfcPuK/TL0QjJ+d8z69mY+
+2oaHw8VTe89TRdvysLXEe5HGX/y90o4HK+fFlYmv0PY8XAvxbKx8gHbgweFI
+6HmnC+hFPFyfsOBg+h70Yh4u5A5cav0f+j8eyjYX6G2Yhl7Cw8TmBSNHK6Ad
+eXiw4PbYK9/x99qlpH33X22YXoBeRuLfHmOHoXfQy3n452iR/eYMegWJpztM
+68u90U4kHna1mA6X/J68ktTHa4XoTjX0KjKedcp/XJBBrybjab1P4tsK/L3a
+mYeruuX/3bmHXsPD/UGxvQ6cQruQ8XHI78zrDWhXHtRiku2MF6PdeDizJH7R
+E320Ow+ewRPXBMqg1/Kw+Ilen5I3kt//ecjZVvIlKF3y+z8PXFFzry1HJb//
+k/7U1Gyh7iv5/Z8HL3vfXt/+k/z+z8OOC9dS9LUlv//zsPtMa/8v//B7Ay8e
+3hX16dhcg97Eg52xeWUCg97Mw3qvJv+Qs2hvEv/muGYq+qJ9SPu+y6lcYofe
+wsM3Vf8++ZrorTz82brlx+HeaF8eLPtPUx4r+b5iGw8+5UUfFTLQ23koV/ba
+MjcM7cdD0djxm7zXov15iIq8yC1fgN5BymdnW/lBGb2TBxNmk+urZvw+ZBcP
+4/6L6dmUjd7Ng7uxuF9HMjqAzH/hCn82BqH38DB1YNaZPkvRe3kY42/T9moM
+OpCM94+D1iv24PcuQTzc3tppl/QKvY+MlzuRkyvvoYN5MPP+I8efQu8n5QOd
+646e6AM8tH/2NF42Cx3Cw/bX5g/O90eHkv6VHtvvkeR7noMk/k3+W2ZJow/x
+0J35jh8n+R7oMGm/UZH9fm1GHyHzzZ7dGoPN0GE8WKS8W6Q3BB3OQ/PGot2i
+Nvwe6SiJ9+surX6ah44g8aEybd79ePQxHoapv7lm6ok+Tuan309nNsxFR/IQ
+GBZ8umcU+gQPWrOa9ul8w++rTvJwOqN+s0ke+hSp3/3HYk6fR5/mIVetzK3F
+G32GB+sYvc3dZugoUh/rPxQqS77/iuZBx0R7UOAn/D7sLA9/G+7cTuLQ58j1
+D+Nn9TmFjuFhc/zxu6ku6PPkeS/P3dSaib7Ag8EOleyAXuiLPOxbcMpb/Aa/
+b4sl8Vgn8KPKHXQcD/IWy46qhKHjeSjJnOT/dzX6Eg9T1o9e5jAFfZmUzx9U
+Gnrwe7wEHmxumUPRM/QV0l5h7a7yF9CJPLyc02SycCc6iYfKcXqiGTboqzwc
+PGz96vIIdDIP/TPHys59h98TXuNhwBv7Q6lidAqJR2vYhImn0NfJ/JD0vuaY
+M/oG6b+bPVOspqFTeZDt4/79wkD0TRKfFmee90zC7yFvkfXcjvwRU63Rt8n6
+ccCX8Q8y8XvKOzxkK34wPBGJTiPr1x+FuRbj0XfJ+m1LUy3k4fea93j4McrU
+w9wZnU7Wb71M53G90BkkPsg/zvkcht+D3uch0m7VEA1TtIiHLAX10OYa/L6U
+4qFpht1p711omsxfgduVMoejGZL/gs8Ok5v4/SpLxudfN1fRejTHg9EoSzau
+Cb9/5Ul8m37/6PAQtJi01+NTKy4YojNJfBidf/F6Fn5f+4CMx4Y1QfdXoLPI
+ePWh+iz5i9/rPiT5N3zxVU5CZ5P+WkVHXNVAP+IhqJ/TD6WqSsGPeXAZcXvx
+puXoJ2Q+6O3atec7fk+cw8PRII24rXfQuTw8d4y1XGuGzuOBeVIWXFuJ3yvn
+k/KceLLXfwe6gIfWkr51anLoQjLfBS/RaUrD75+LSLymLRd3zEAX86BSfuqA
+WgZ+T13CQ1W1d7npUvRT8jy/2pEu7fh9dikPMz31usqPoJ/xsEoc+dJiLLqM
+9O/2193nzuP33s95GGsXdnanKfoFiaeXDXVUXuH34+WkPVcb139tx+/LK8h4
+PnlQZZgxupLM/1cfVb5Zgd+jvyTrUVcr0dPt+P36Kx5+Hxl++YA3ft/+moyX
+gDOtKsfw+/cqHjbIOIFWEX4f/4aH/RcddGoU0dVkPXYhP/XxAPye/i0PNf1d
+dq6Zg9/f1/Cwru9ySPfH7/Pf8XB+YXhl0kX8fv896b9yUQr9z+P3/R94SNi/
+2u4rhecBasn6NbTy+oJGPC/wkYfwJbtUt//B8wR1PFxsW9xwaBq6noxv3sB3
+sQmeP2jg4dV8i9kuNXhe4RNZHwV/Syj3yxTcSNbja/+tiHfC8w6fyfNarf2O
+HcfzEF948E6IuJ2UjOclmsj69t+43x42lOCvPAw33dAY25ohuJmHcwsXhkW4
+4HmMbyS+PAos/1uD5zVaSP0+bRPFbL8tuJWHA1VvCrmpqYLbyPqzdmbhh+5r
+gr+T8s74ETPQNknwDzJf9S2ar/4zXvBPsr+Sje8f6HxOcDspz8mFJ7Krjgn+
+xcMj5bD0lUNCBHeQ+Tp+ufXgy7qCO8n46Gk/8+fVrqz/+TeZf68Gfr9yL1xw
+Fw/5X5fPG1IXLbibrA8KW3wqTfB8zR+yfr/S58ug+ETBf8l+JvFXgt6qa4J7
+eFjxuEA2s+iG4H9kvayuXD137W3BMmL48vBetJz4ruBeYvh5IjJOxyZdsKwY
+Ahddr3aquS9YTgxUn2UZ3YfwvJG8GDpkC6t8NPE8Um8xaGY2psqY4nmlPmIw
+vNc+uqyJF9xXDHqKixdEL8bzTv3EoNpy2yf6I56H6i+G4tlGyjua8bzUADFU
+fL/CdmfheaqBYji3/6913Rc8bzVIDGO392QcLMDzWIPFcMCNeflGEc9vKYjh
+xzyXuYc08HzXEDEEN/wu7XiHHkruN3DnsCWVeB5MUQyv3ujve1+P58WUxDBg
+gs32jJN4vmyYGF4na9WZluP5s+FiuH3wm5/VNTyfpiyGuPwPl7Rr8fzaCDG8
+7BV3bN9xPN+mIobUrJNV3x/g+beRYrjRz177GoPn40aR939hcdx5PZ6fGy2G
+xQrLAq68QauKoSz9cvzPlXj+Tk0MpmZ3b7j8Qo8Rw/RJE9eOWvRc8FgxrJ+v
+VjxoFJ73UxdD5YhnvSfsQGuIYU/R4BXPP6E1xaCSLWf3LADPE44TQ+KjPzOP
+f0OPJ+/7qm9W9j48j6glhjHpxd9G9MbzixPEoF57JKrgPFpbDAsuarTnjsXz
+jxPF4Ddh9wWbM+hJYtBe1T5n5QA8P6kjhsHMjynzItC6YjjxxLTopCaev9QT
+Q/odx2jXWLS+GEINn+mazsHzm5PFsErx0T0lMdpADGlLt83zm4fnP6eI4aDu
+7kO+BWhDMfQ3SQks34znR43EYBFQrHX1I3qqGDbYOx+7vA/Pn04Tgw2Vsuhh
+J3q6GLbduuc8bweeX50hhu7ovX/DW9DGpP9x+criFDz/OlMMnVtzR8yRwfOy
+s8RgF7kr9eNytIkYzrwoKdeIRc8m9zcNOT+oFG0qhqfTu86vGYPndeeIQfRq
+WVb9FvRcMeiye5o8JOd9zcTQmjIvoOsb2lwMzbc69ZWt8bwwiKH6yOWcnmD0
+PDGsqaivN65EW4jBcpbvuykyeD55vhh6qelq7Z+HXiCGkj2NZ++dRFuKYeHW
+5Ekzq9FWYjgr993Ecxqej7Ym7eukvu5NAHqhGEbeMftrwaBtxKDGpPXzlcXz
+2LYkPr2cw1gtRtuJ4Vid3ObcY2h7MSxqGPiBe4B2EMPbTXZxF9Xw/PciMj4y
+lzwYshW9mMS3PetS1qeh/yP99ZdaVKMMnjdfIoa6PY+9GFO0I2l/WuG1///r
+6s7DcnreP4BbyhIhkSXSQoQoRUS6y5pdyhY+yFYhKiVFQpESUokKiSwlSyVx
+ZrJUyC5Lm7Kv0SJLqH7zvbyf63c5f76uOTNnnnNm7pnzx3PPXniaRLrlmwYM
+fAXbSRR7fVzsxZ74v7u9mG/uKe2aOsPTJVI/uCu+PhmeIRH3UAsIaIP/18+U
+aMR02w+J9vAsiWbPHNbiQDg8WyKPK/GRbd/DDmK+DBywzcdY8f9/ifruG/rU
+0k3x/3+JPoyLeVRwV/H/f4neU7hTeFPkD/hPoqz4tbl5tvB8iexPF06+egxe
+IOLni0mJKj/hhRL1kDxsCsYgf4GjRNGJNktGRsKLRHya2+7ZoKfwYol2LW8e
+v7Yd8iMskWi0cqm/1wp4qURX7FLaV6bCyyTKm/Pzg7ca8jE4SdSrcGLncdNh
+Z4nCDV+90oyAXcR4dIyvvl0DL5dI+efHonQz5INYIZHd0lML+u+CV0rUKbDK
+NjgPdpWoNMXWxaQD8k2skui68+LxU83g1eJ5PXJPrF8Iu0nUfZbHm1nBsLuI
+j/rqFm7JsIdEL1JzXjTPh9eI+TBkU1lMQ+TP8BTtTdWe+FIT9hLxoyraabgd
+vFaibz/Wmc11g70l8nqesWt4DLxOIqdtZzqMyIV9xPv7uLRxk2rYV8ynAbxO
+U7fqr9dL/8uX1CR4GLxB3N+m+m3z+bCfREVbK1p+3A9vlEh7hf2k3edgf4lS
+v+6xGFwMb5KobEaEq2cL5D/ZLNGZaR99WhrCWyQ6tMpl38q5cICIL+YZJeZb
+4UCJxpVrdQw6C2+VKGP8RpXEp/A2iTyHhuz8/RsOEvc7bNWy1gD5XLZLpGR0
+M2qBLRwsUdMc8xkz/eAQMf4M9y6algLvkMi9fe3+wbfhUDGfBsXcm1cJ75SI
+2WXfrNJDfppdIv52PNgwczy8W6wngcdvJHnCYWI9Ng2pjouF90h0uTBW/cIt
+OFyipfEOK1IbIL9OhFhfAzxXdekOR4r9yyfSrbGG90q0xNrYNngJHCXRkGLv
+yZcj4X0SJUR+7L0uC94vxntEZJOMP3C0eP/ui1Ketka+oBiJ+rXvfefZcDhW
+xEP6XOq3BD4gnqf/9iK7vfBB0Z+QxNaqOfAhsV41fPpSvQKOk2hQfHLQyw7I
+f3RYxIOuhW/OT4bjJbr0ZOwmt+XwEYniglL6DT8OH5Xo6JaRLtPy4QSJnsf9
+PjHtK3xMxPP3g+7ZmiJ/03GJahJKx16dBZ+Q6L8jNT+NFfmgTkp0YOrYN8ZJ
+cKJEex2K59Rmw0kSPdo4rk2PRsg/dUqi+w+q8jvrwcli/gbsD/zoCJ+W6G3n
+tlGtQ+AzEi34pPk2MBE+K9qbUPxL7Rl8TiKHSKe7v5ojf1aK8PrQbt0Hw6kS
+verp/ruZIv9WmhifBZt8VfbA58X4zvo1sNFtOF3Mx2+xP4NL4Quivc+H1N+o
+If9Xhthvqr1VSR8MXxTjK+XFj9Mb4Uti/HyK1T8dBktifXtmTGeyYCbRTM2Y
+Xa+UkL+Mi/nomLv17EA4UyKTn0d970+GL0vU835ZxWl/+IoY38f7XXp4Dr4q
+nufMJTUXy+BrEqU8HdPgqyryr2WJ9WDWZet2E+Fs4cuT6y5Mh3PE74k7sHNJ
+FHxdomPRr/xsHsI3xP3d8h4f/Q7fFPvzuPApFxT543LFfueB7gb/sfAtiRbO
+bT3bfyN8W6zfDcqNzY/Cd8T+9OEm56RC+K6YL9Ptsia0QL67e2J+3Xwc/EwL
+vi9RuxnZV2Mt4AcS+S+620d3CvxQovl0fUaTZXCemN+r7xhErYcfSbTYN6qt
+6g5F/j+x/y6w9H2drMj/J9Z/m342TbMU+f8kqlW7sMzkmSL/n1jf7jkVLKpW
+5P+TyGK937ObKsgvWCiRRpJrybDucJHY3zQ/9m4UwcUSWTWa+r1gIvxMookn
+jpaNdYFLxPqgsXSdhh9cKvrPWVBBPPxcuHvrZLt0+IVYn1q6TR52C34pvud6
+tpxfWgS/kihKa0dGXRPkb3wtUYhRqrprR/iNeN+ju1bUK/I9vpVoWLstF76N
+gd+J+TdVQ3PwUvi9WN86b+gydQ38QXwvzGtk2mYX/FGiN3YNi9+dhj+J8Wtm
+oWWaBZeJ8fY6bnfaI/iz2M9YtFqfVwN/EfHosa+LRifkxywX9d9pWhn1givE
++1p6QLfDMLhSohuXVy+ocYCrJFrrmnX+5mr4q0SZFqlbQ0PhavH8vzd65RMP
+f5No3ca7Mwyvwd/F/LHt7x35BP4h0XTTTc7pn+GfEtVpZXs0aYp8ozVif3mw
+ze2V2vAviQztjMaeHQj/FuNVq3bBkSnwHxHPF37xuuUE14rr43RuNNoM10nU
+X/9h76/JcL3YH12wbFRxEW7AyMPgt+Pp+3BDRuP2JM0eWAk3YlT10z8wvTny
+uTZmNHLvbc86XViJ0WkbT29vM1iZ0ahnC39NV+SLbcKogXXGqssL4aaM5m+7
++XRCKNyM0eh85V7q8XBzRss2dNyumgOrMDLy4w8TSuAWjAbvGeJbUAm3ZPQj
+MSHHrXGTv1ZlFNqmpGaLIdyKUaq+Uv5UK7g1owH3z5iMnAi3YbRV19jUzBFW
+YxQ4xX7XfkX+3raMKieVze6VCqszumUdV2usyA/cjpGJlpJTj2K4PaP7Kg9K
+jv2GNRh9W7h9Xlpb5BvuwOhFUUq7sT3gjozabjT/EWoJd2LUzLXZ3tolcGdG
+S8zaH1rjBWsyyk83ahEVAXdhdKLq/RxrRf7krkzs3xu5RxfBWoxeB7r55r+F
+uzFqcz4w3LYZ8jNrM3r8fcauie1hHUYqOsE2AyxhXUYxI/NHH14I6zFaunfp
+1rDlcHdGPKa0rfkOuAcjaVnsT5MTsD4jZYcXsSa34J7i965Y+ufkQ7gXo7Gj
++/df9Bw2YKSlrF2dVw/3Fu9Lp6vp5j7If92H0bVIz+Y2lnBfRrFDBtwdsxI2
+ZGS355FaUz+4H6PZkmfv3eFwf0YTlCvmreGwEaM4twd7ay/Axoz2N/meGfoD
+HiCe96hlZuqtkS/chNHvG4Wh5/RhU0bvi375Xh0AD2Rk0X7UtQEr4EGMinZ9
+81XeBJsx+pnkWzozCh7MqPW9+64Vd+AhYvx39Hmgfx02F+9j6KGVfm/hoWI8
+nGtr4/8HHsZoZt/vTsH9kG/dgtGgtIZmg4bCw8X4DSkdenU+bMnoQp1qwzmK
+fO/EaJ51G8dHB2ErMV4tw10/HoatxfP8+dSg6XV4BKO0RXd0n9fDIxl5xsQ9
+sW6EfPSjxHwaF5zm0w0eLeLLl7DjLxT57McwSs9arp/mAI8V8eLIE1WnDbAN
+I+PurcJ09sLjGHUds9Hq0hl4PKP+ycWDBl2GJzAKGdxeKfEjPJGRdjPzglNK
+ivz/jN6cOa2UZ6zI/88oe1+V9MJKkf+f0bFY5/i8mYr8/4zW6MY6P1+hyP/P
+aGq/nsUbI+Fp4nmZzdirymA7RhObz811K4XtGVntanrQtCHON5jOqGPboJfG
+LeEZjIpP99Pe0RGeyejPtCLbd5PgWYxKXt89pu4BzxbjS80w1jICdmD0y88r
+Q/8gPEeMf8rQvFYIz2UUEDbG98treB4jt5EjGx5XxfkQ/4n2VCMDjujD8xmV
+3dB22qXwAkYNRx+PHT4fXijG+76ebpFusKPoX89xBXah8CJRbqZ/fX8UvJjR
+ArtPfb8WwksY2Zu478/+Ay8V4+91VEUTJZyfsUzEIz3dBfbNYCdGp+r8hw/X
+hZ0Z9Qr99FbPEHZh1K56fnN3xfkdyxk5Lz6l1W0cvILR5ZiqsFYL4JWMXJ92
+GcAWwq5iPWnXaWdTd3gVoyYaj2Yr74RXM9qxda2/zhHYjVHT6JwCp6Owu1hP
+PDVHTM2CPRg5/GqyfHsBvIZRyskJphV5sKeYfzlz8l8ozk/xYnSgJONgwHd4
+LaP12lv7ta6HvUV7+ef/G6WC81fWMbqblO2sbQL7iPWv/TDlCMV5L76M/J9n
+d+4zGl7PiK3Yqjl4KrxBxOcCNzUVN9hPPH//A+89t8MbRXyfGdj3WgTsz8gv
+P883W3E+zSZGNlfvVdunwpsZrTtbm5B2Ed4i5l9pxAvzDDhAxOdDuePnlsKB
+jBp97tx21WN4K6MPxS/vfvkGbxPzp+7u6twaOEi8z17BN7QV5/lsZ7S5YN4s
+HwM4mNHH3s9MYwfBIWJ8b1ib9dEa3sGopnO3xrlz4VBGs1L1txUvhXcyuh2a
+e8E4EN4l4r/tmzqT9fBuRtHlR/urKM43ChPtf+1Vm7Qf3sNoTLBSdPdzcDgj
+2j53zjMGRzAamuj9y+8OHMnI8rH/DvMX8F4RXzVnrb5eBkeJeBQ+4VR0I5zn
+tI+RuUpJ6jTF+U77hXMN5i42g6MZZeRt+SQNhGMY6a1f6XnCAo5l5NNr0o1O
+ivOmDjAq99KqsPOCD4p4ZrG5i9Eq+BCjHn10Nb7th+PEfqFxWoDJRvjw/+bv
+xaefzsDxYr/hY3D/50X4iNi/ae/qHnIbPsooOKfdvG2ZcILYjzU4bmP4BT7G
+aFJRafaiP/BxRm+DuNqpGviEGP+qVTr/Kc7/OsmoVbv+5pWmcKLoz439d55b
+wkli/dt24EyRBXxK7DfPNjfJmg0nM9qgc3bfTTf4tJjPs85b7dwIn2F0bmP8
++tqt8FlGLY4o9xgQD58T99/QOKo7h1MYXfU+GrcmDU5ltOpgbW7De3CamP9X
+F6nOrYfPM3K/0vlUzHs4ndGZ7BndU5rh/LcLYr9j2D+qUgPOYORy697yH3rw
+RUaTz16q7zoAvsTo69s/Uf2HwBKjcEOdNb8dYSbWk4q7UsxsmIt4auBzuovi
+PLtMRga3sl69c4cvi/X2QzR98YCviP2s4+AHO8/BV0V8Nz29bupN+Bojxwsm
+mW8y4SxGSlNa5bcog7MZvWv5zmZMBZzDaN/mE49y2inO/2MU9rZZiktLxfl/
+jLYtN0xa3Bq+KZ7/pGud7rSCc8X+qM8099V28C0R/4sDQlRGwbcZedmOuO4z
+D74j4nP92OFHFecb3mU0MFPP8c0x+J74nonL7T0uEr7PyMznu+v4q/AD8T1j
+1Se77BL8kNHhNNNRq9/AeYw+EZ1e9Qh+JOLFC8soz9fwY0Z7JiZMmdMD50E+
+YeQbebNOswX8VMSv6SpHrk6B88V+P3ta02MD4QIxn8f/7hQ4Di4U86Ol2uoU
+R7iI0ZfQ0O/NZsDFoj83Z645tg1+JvYb3g67vcLgEvE+P+daeafApYzOOuxI
+rk2Gn4vvua+vQjbWwC8YLS5zGG73Hn4p4uXD3Nn7SuBXjGaUGE8Y1grne75m
+VD9B51a4KvyGUZ9+D26sMIDfivUj4IZ0URd+x+hByNI9v83g94zigza/zLCH
+P4j9po3r16eK80w/MlKNeF9dvgf+xGiY/46lt6PhMkY5eR0SVx6AP4vvhQth
+Jg6Z8BexP3repk/gZbhcrHeT/1htqoUrGAV5OKkvrIErxX42eISReZNOf10l
+1rfypzqjv6H8q3h/PuWdQnugvFrst6ynLXPpCn8T41Gj9KTLdPi72F95prc6
+sAz+Ifaz3Xz73zKCfzLq98vkqdZRuIaR+nftU80Xwb8YefdsOHrWbvg3I52G
++oN+PIL/iO+35UPz7+XCtYzmKCvtkUrhOkY919k9CVHG+bz14vu18X+jqxrD
+DTht73S0S1Uerm/I6Y1HeOtleihvxOl9J1Pb4eZwY06BzcymTlsGK3GacbvO
+pW4srMz/PZ+4CafJQYfWGnjBTTmdrHU4z0PhZpzOv9+5IWEP3JxTyfWKAKVD
+sAqnkFOhT75zuAWnofQkKv813JKTp59z1qASWJWTUqFetEUV3IrTo1CPwg9d
+cD5za05jdatDojXgNpzMw8q3BC2H1cTve+lhbWUPt+VUVNx6sKcjrM7/PX+6
+HSdNy+drYiLg9pz2+j6Zau4Fa3CKmO42wUBxfQdOtrGLV5e9gDtymjdJs0Dp
+OtyJU5NLffx1iuDO/N/ztTU5jf+8/PEaLZyf3YXT2YBUm3wbuCsnhyUOO/d8
+x/VanGr+SBNLzFHejdOhk9v8Ls6HtTmdyLMMXO0E6/B/zyPX5bQnd6XFskuw
+HqdJRwJWZF6Bu3PqrOEsBb2De3Ba2qaNV8QxWJ9Th+2dwx5Wwz059R7oWmEy
+EOen9+L0n2dPByVT2IBTn2qW4qAO95aV9+FEfc5eOTEb7stp5sWY7BWTYENO
+x5wL2+cFw/04Zb3O7Kq5Be7PKX/1s9eP58NGnCJp9Hf7eNiYUyH1t/i2FR7A
+/z1v3oRTnbeViV4FbCp+37v1vY1K4YGcfqvvGH7HSOuvB3Hq9nHIzwg32IxT
+xyxz3/2z4cGcXjv5TY76jfpDxPuVEh5mzUW5OacnmTWLek+Fh3LKi52aVDkf
+HsZpVH76qqAtsIV4X6HW84KT4eHifaZ1P/woCbYU4+XH67qUFJg4nYqd5lg1
+tNtfW3EyGxlzKqEBbC3m8/ItPwYYwSNkHinmx7Za3VIreBSnb2mZyh+7wKM5
+aRv01TwWBI8Rdox87JIMj+VUG3e7vfFl2IaT+4vqpF5L4HGcPnvwH/lP4PGc
+Wp4IsVd9Dk/gdElt1OUmJ+GJnJImPXrhoqn915M4bZRUzYNbwpM5lXdUu67S
+F57CaY7Bg7dq31B/Kqen/k7ql3VQbsvJOvpLaGVXeJoY752q62aOgu04Fd8s
+KplhCNvL6k/nZMX0L23ygGeI+RFm+LzeHp4pxvfyvFBlb3gWp1fWx9dsmwfP
+FuPVg5o9mgk7cMpuOGJfzm54jnhfvrubJi2D53LaUVbeXMkdnsdp0+a2JVHp
+8H+cEnqbVRunwvPFePLeV2zzEl7AafTRMev3lsALOSUXnE2s/QU7cnJ5Yq6d
+8AleJOJXXUP/SRnwYk6tVw9p6vUYXiLuZ9kqQqefzl8v5aT3u/L8szbwMk77
+n8+nQ6awEyePKr9k9wGwM6d92bfqHEbDLqI/6nq7H7SEl3PScRqSfGAsvILT
++h1DfgxaCa/klN40cMPi6bArp4JDCcdbr4VXybxaZjcxXtqNWetsAbtzOqOt
+9zl8Dewhu98aTjGNgzaF+cGeYv528zfbdQv24jSu4Eni0kJ4LadVvpfX+aTD
+3pzs3vhMLr4Kr5OV+4h44nZk7tEbsC+nO587+s5qo/vX68V4KTS99aErvEHM
+d7VTexurwn6cNGx9Il/Wo/5GTkb1+UmO/VHuL+Jr7sBbuo3hTWI/MNbslI8V
+vFmM58ePXOfowFs4dS2un3WnDO0FcCqtbGbUxxzlgbL2t3I6MnRkycop8Dax
+Xva+tSBlHxwk4vn03ybqM+HtYv3aFOTccSMcLPYru7U/SyFwCCfL7Qc17lvA
+O2Tth3JSj3QtmREB7+Q0Mb3tlTRXeJeIJwkLWfJVeLeIb77zNh5LhcM4Hf6y
+cnJWc72/3sPJrdf9wOQalIeL9dnYoKfmAziC086PG6KrSuFITh8mlN2psUf9
+vZwu51ZaLFgPR4nxlpm+YWg5rt8n5r/eMkONj/B+Ud83p2i8Ba6P5hSQXLPN
+0RiO4bQlekwThxFwLKdBr24YDG8NH+Dkc/5spVkwfJDTlLSY6+9c4UNiP/Lu
+9cXg03Acp3uHbxSPCYMPc0r75pyTsxCOl/XnCKfna7MO0hb4qIgfUad6VLft
+/tcJnBZYP9BIeILyY5xSM9ZeOZoDH+ek4miktnoffIJTv9CVt55Yo/5JTgYD
+23SNK0d5ooiv2clhOulwkux+p2T9SZaVn+aUaGP7OawHfEbEI0uzQZYJ8FlZ
+f86J+Hl9xtxfE1CeIqufyumTsecw80w4Tdb/85xGWJpXdu8Pp4t4y0ocEr3g
+CzJncFIu3mdYtgm+KPan81XvXtDp8deXxHwcGmufvwaWRPx5sMEzqjHMZPW5
+rD+ZnJz3MGWT/fBlWf+vcPLrknqv+zv4qph/udpnjW7D1zjNzdjMVoTCWSKe
+fbbq6rUN98/m9G7S5PznjnCOrH/XZeU3OE2LCddcZwzfFPNrwd3gnYVwLqfr
++fUTAmzhW7L73ZaV35E9n7uy+9+T1b8v9g/XA+/fjIYfcPozx/3z1Er4oez6
+PE7xcVeCFgzT/+tHsv4+5nT1pf4SveYofyLi3witvtlZKH8qay+f0xLfcl+n
+NFxfIOLb48XLtXThQk5Rm7W8L1nh+iJZ/4plfibWQ5cxO0pOwyWcVD8eG9Zm
+JtorlfX3OafoBo5dB9n1/OsXIp6UhgRI+bj+paz/r2R+LWv/Dacqyy3j54XD
+bznt6pfV2W4N/E7m97L7fRDx563qnBM90Z+PnGa7eDZIrkP5JxEPvO1jGgWg
+vEzs93bsXV59Ef4sq/9F9nzLZe1VyFwp63+VrH9fZfevlt3/m3g+Wx0T9Wcb
+/PV32fP9IeLNZt+0Q0N7/fVPTiu31wbv2A7XyPrzS1b/t+x+f2Tt1cr6Vyd7
+HvWy+g0y/71/w0za/crdx/oHyhtl/nt948x/21fK/Pf3KsvKm2T+27+mmXSj
+y6jbb9/BzWT1m8v6oyJzC1n9lpn/Ph9VWX9byX5Pa1n/2mSSar/Pl1Z/xv3V
+xP3uWrco79b3r9vK6qvLytvJ7tdedr2G7Pd3kNXvKOt/J1l/OsusKXteXWTt
+d5W1ryWr3032/LRl7enInreurD092fXdM+le72lFKqz3X/eQ3U///8v/D+G7
+5oM=
+       "]], 
+      LineBox[{{7976., -12.676076274775909`}, {7977., -12.676076274775909`}, {
+       7978., -12.96375834722769}, {7979., -12.4529327234617}, {
+       7980., -13.369223455335854`}, {7981., -14.0623706358958}, {
+       7982., -12.676076274775909`}, {7983., -13.369223455335854`}, {
+       7984., -13.369223455335854`}, {7985., -14.0623706358958}, {
+       7986., -14.0623706358958}}], 
+      LineBox[{{7988., -13.369223455335854`}, {7989., -12.96375834722769}, {
+       7990., -13.369223455335854`}, {7991., -14.0623706358958}, {
+       7992., -13.369223455335854`}, {7993., -13.369223455335854`}, {
+       7994., -12.96375834722769}}], 
+      LineBox[{{7996., -12.96375834722769}, {7997., -14.0623706358958}, {
+       7998., -14.0623706358958}}], 
+      LineBox[{{8001., -13.369223455335854`}, {8002., -13.369223455335854`}, {
+       8003., -13.369223455335854`}, {8004., -12.96375834722769}, {
+       8005., -12.676076274775909`}}], 
+      LineBox[{{8007., -14.0623706358958}, {8008., -13.369223455335854`}, {
+       8009., -14.0623706358958}}], 
+      LineBox[{{8011., -14.0623706358958}, {8012., -14.0623706358958}, {
+       8013., -13.369223455335854`}, {8014., -13.369223455335854`}, {
+       8015., -14.0623706358958}, {8016., -13.369223455335854`}, {
+       8017., -14.0623706358958}, {8018., -14.0623706358958}}], 
+      LineBox[{{8025., -14.0623706358958}, {8026., -13.369223455335854`}, {
+       8027., -14.0623706358958}}], 
+      LineBox[{{8032., -13.369223455335854`}, {8033., -14.0623706358958}}], 
+      LineBox[{{8035., -14.0623706358958}, {8036., -14.0623706358958}, {
+       8037., -14.0623706358958}}], 
+      LineBox[{{8042., -14.0623706358958}, {8043., -14.0623706358958}}], 
+      LineBox[{{8081., -14.0623706358958}, {8082., -14.0623706358958}, {
+       8083., -14.0623706358958}}]}}, 
+    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      NCache[
+       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       NCache[
+        Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
+      1.6]}, {}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       NCache[
+        Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
+      1.6]}, {}}}, {{}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0., -15.273793688306661`},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{
+     Charting`ScaledTicks[{Log, Exp}], 
+     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  Method->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Exp[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Exp[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0., 8142}, {-15.273793688306661`, 1.4179514231559174`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.02], 
+     Scaled[0.05]}},
+  Ticks->FrontEndValueCache[{Automatic, 
+     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-13.815510557964274`, 
+       FormBox[
+        TemplateBox[{"10", 
+          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+        TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {-9.210340371976182, 
+       FormBox[
+        TemplateBox[{"10", 
+          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+        TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+       FormBox[
+        TagBox[
+         InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], 
+         NumberForm[#, {
+           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {0., 
+       FormBox["1", TraditionalForm], {0.01, 0.}, {
+        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {2.302585092994046, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}, {4.605170185988092, 
+       FormBox[
+        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+        AbsoluteThickness[0.1]}}}}]]], "Output",
+ CellChangeTimes->{{3.785003466427495*^9, 3.7850034763522387`*^9}, {
+   3.785003506656761*^9, 3.7850035279403973`*^9}, {3.785003558770405*^9, 
+   3.785003582849557*^9}, 3.7850036590215187`*^9, {3.78500372032237*^9, 
+   3.785003755582879*^9}, {3.785003794389751*^9, 3.785003801551887*^9}, {
+   3.7850038600098743`*^9, 3.7850039066366453`*^9}, {3.785003995477704*^9, 
+   3.7850040433445587`*^9}, 3.78500482809217*^9, 3.7850053303088083`*^9, 
+   3.785006116816091*^9, {3.785056891624435*^9, 3.785056917777589*^9}, {
+   3.7850572794770412`*^9, 3.7850572903202963`*^9}, 3.7850576616058693`*^9, 
+   3.785057733942786*^9, 3.785063510525573*^9, 3.7850646381587*^9, {
+   3.789820924287415*^9, 3.7898209511296062`*^9}},
+ CellLabel->
+  "Out[215]=",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"tData", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"4", ",", 
+       RowBox[{
+        RowBox[{"Quantity", "[", 
+         RowBox[{"13", ",", "\"\<Minutes\>\""}], "]"}], "+", 
+        RowBox[{"Quantity", "[", 
+         RowBox[{"32.95", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"8", ",", 
+       RowBox[{
+        RowBox[{"Quantity", "[", 
+         RowBox[{"42", ",", "\"\<Minutes\>\""}], "]"}], "+", 
+        RowBox[{"Quantity", "[", 
+         RowBox[{"21.57", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"16", ",", 
+       RowBox[{
+        RowBox[{"Quantity", "[", 
+         RowBox[{"2", ",", "\"\<Hours\>\""}], "]"}], "+", 
+        RowBox[{"Quantity", "[", 
+         RowBox[{"55", ",", "\"\<Minutes\>\""}], "]"}], "+", 
+        RowBox[{"Quantity", "[", 
+         RowBox[{"5.77", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"32", ",", 
+       RowBox[{
+        RowBox[{"Quantity", "[", 
+         RowBox[{"14", ",", "\"\<Hours\>\""}], "]"}], "+", 
+        RowBox[{"Quantity", "[", 
+         RowBox[{"31", ",", "\"\<Minutes\>\""}], "]"}], "+", 
+        RowBox[{"Quantity", "[", 
+         RowBox[{"15.87", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}]}], 
+    "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7850582222461777`*^9, 3.785058233197236*^9}, {
+  3.785091499131219*^9, 3.785091529298004*^9}},
+ CellLabel->"In[22]:=",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"tFit", "=", 
+  RowBox[{"LinearModelFit", "[", 
+   RowBox[{
+    RowBox[{"Log2", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"#1", ",", 
+         RowBox[{"#2", "/", 
+          RowBox[{"Quantity", "[", "\"\<Days\>\"", "]"}]}]}], "}"}], "&"}], "@@@",
+       "tData"}], "]"}], ",", "x", ",", "x"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.785058234789083*^9, 3.785058316373475*^9}, {
+   3.785058353021956*^9, 3.785058353982479*^9}, 3.7850583994503117`*^9, {
+   3.78505845364515*^9, 3.785058453928129*^9}},
+ CellLabel->"In[23]:=",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"FittedModel", "[", 
+   TagBox[
+    PanelBox[
+     TagBox[
+      RowBox[{
+       RowBox[{"-", "10.919686950725108`"}], "+", 
+       RowBox[{"2.006789423582779`", " ", "x"}]}],
+      Short[#, 2]& ],
+     FrameMargins->5],
+    Editable -> False], "]"}],
+  InterpretTemplate[
+  FittedModel[{
+    "Linear", {-10.919686950725108`, 
+     2.006789423582779}, {{$CellContext`x}, {1, $CellContext`x}}, {0, 0}}, {{
+    1., 1., 1., 
+    1.}}, {{2, -6.731720879223929}, {3, -5.0872394411908575`}, {
+     4, -3.0398494069726665`}, {5, -0.7248861453540679}}, {{1., 2.}, {1., 
+    3.}, {1., 4.}, {1., 5.}}, 
+    Function[Null, 
+     Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.785058261893118*^9, 3.7850583167277937`*^9}, 
+   3.7850583541983747`*^9, 3.7850584046666822`*^9, 3.785058454267872*^9, 
+   3.785091533090296*^9},
+ CellLabel->"Out[23]=",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Show", "[", 
+  RowBox[{
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"Log2", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"#1", ",", 
+          RowBox[{"#2", "/", 
+           RowBox[{"Quantity", "[", "\"\<Days\>\"", "]"}]}]}], "}"}], "&"}], "@@@",
+        "tData"}], "]"}], ",", 
+     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", 
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"tFit", "[", "x", "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
+     RowBox[{"PlotStyle", "\[Rule]", 
+      RowBox[{
+       RowBox[{"ColorData", "[", "97", "]"}], "[", "2", "]"}]}]}], "]"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.785057971969727*^9, 3.7850580830023727`*^9}, 
+   3.785058221488821*^9, {3.7850583313816633`*^9, 3.785058407210636*^9}, {
+   3.7850584584440813`*^9, 3.785058458720736*^9}, {3.785098280897551*^9, 
+   3.785098288548439*^9}},
+ CellLabel->"In[91]:=",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {{{}, {}, 
+      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       0.012833333333333334`], AbsoluteThickness[1.6], 
+       LineBox[{{2., -6.731720879223929}, {3., -5.0872394411908575`}, {
+        4., -3.0398494069726665`}, {5., -0.7248861453540679}}]}}, 
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {
+      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       0.012833333333333334`], AbsoluteThickness[
+       1.6]}, {}}}, {{}, {}}}, {{{}, {}, 
+     TagBox[
+      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+       Opacity[1.], LineBox[CompressedData["
+1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAnX5iBjFkez582GAu4dYlwMTTIExX
+IFk/gA9r0k3VJcD/xr6DICBpP4VGdXa60yXAncCNHwUgeT+OtIm+k9AlwGw9
+dW33H4k/oZCyTkbKJcDT+2iU8B+ZP8ZIBG+rvSXAB9viJ+0fqT8QuaevdaQl
+wKHKn3HrH7k/pZnuMApyJcCur4nbbC7KP3eEpsi3BCXAZz/Rmexy0z9Y1P38
+o54kwG7lKeO0rtk/JSB4y5A6JMAKIYQn3zjgP5qVHC8CziPAjhDLKqFg4z8f
+cGAvsmgjwGLbVL8DzOY/S3TOxOb6IsBxxYRibyfqP2R0X/QbjyLAsXAMUxhJ
+7T+M2Y/AjyoiwKF7a+owV/A/XGjqIYi9IcCCn/xR9OzxPztc5B+/VyHAANPg
+QLx68z8HTAG49vMgwCZ0ZnhUKvU/emVI5bKHIMDk9ZdWC732P/7jLq+tIiDA
+SuVqfZJx+D9QGH8cWmofwE7kkCseHvo/f2DmDlqTHsDqw2KAyK37P8xyjDrX
+yh3ALhHWHUNf/T9p2IaQXfEcwAo/9WHc8/4/JAjAH2EmHMBH7Vr3IlUAQDCL
+TdltShvA2MJkAVosAUAUBiHHe3IawLWIxF4g9QFAFksz7gapGcBmBXXgzs4C
+QGnjmT+bzhjAY3J7tQyaA0DaRT/KrAIYwC9nK85MYQRAJKAqib86F8DPEiwL
+dTkFQL1NanLbYRbAu66CmywDBkB2xeiUdJcVwHsBKlDM3QZAfpC74Ra8FMAK
+3HpIbrQHQF9T1GK65BPA5aYhlJ98CEBe4Csd2xsTwJQoGQS5VQlArsDXAQVC
+EsCQmmbHYSAKQBprwh+sdhHAWpRdzgznCkBhDfNxVK8QwPhEpfmfvgtA8AXw
+3AuuD8Dj5UJ4wocMQFiFd0hpGg7Aoj0xG81hDUBgq6cI2WQMwK2FdRFnLQ5A
+pGVVO0PMCsCHVWNLA/UOQJoPj9avOwnANdyhqYfND0AyYHHGLokHwJgpm63N
+SxBABEXRKKjzBcB/wI2YS7kQQHTQ2d8zPATATRtVpcokEUCcS27/wYwCwEFu
+x1sRiRFAAFuAkUr6AMCfHGIkzPURQAgidvDKi/6/JMOnlk5bEkCAtuai9Vz7
+v5AtwirSvhJAYCpvJiU++L9m8wTRySoTQIDrSFN52/S/YrHyIImPE0AY1R1l
+wrLxv2yCU/xKkRNA0OmEUqek8b91U7TXDJMTQIj+6z+MlvG/iPV1jpCWE0Dw
+J7oaVnrxv645+fuXnRNAyHpW0OlB8b/5wf/WpqsTQIAgjzsR0fC/kNIMjcTH
+E0DQ1wAkwN7vv5qjbWiGyRNAMAHP/onC77+jdM5DSMsTQKAqndlTpu+/thaQ
++svOE0CAfTmP523vv9xaE2jT1RNAICNy+g797r8n4xlD4uMTQJBu49BdG+6/
+MLR6HqTlE0AAmLGrJ//tvzqF2/ll5xNAcMF/hvHi7b9MJ52w6eoTQFAUHDyF
+qu2/cmsgHvHxE0AAulSnrDntv3w8gfmy8xNAYOMignYd7b+FDeLUdPUTQNAM
+8VxAAe2/mK+ji/j4E0CwX40S1Mjsv6KABGe6+hNAEIlb7Z2s7L+rUWVCfPwT
+QICyKchnkOy/tCLGHT7+E0AA3PeiMXTsv77zJvn//xNAYAXGfftX7L+8GFpU
+
+        "]]},
+      Annotation[#, "Charting`Private`Tag$141775#1"]& ]}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{1.9375000000000002`, 0},
+  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->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{1.9375000000000002`, 5.}, {-6.731720879223929, 0}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.02]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+  3.785058012185809*^9, {3.785058062951374*^9, 3.7850580832349863`*^9}, {
+   3.7850583426184177`*^9, 3.785058408046142*^9}, {3.785058455108177*^9, 
+   3.785058459228675*^9}, 3.785091533739656*^9, 3.785098295086089*^9},
+ CellLabel->"Out[91]=",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"2", "^", 
+  RowBox[{"tFit", "[", "7", "]"}]}]], "Input",
+ CellChangeTimes->{{3.785058386832859*^9, 3.785058477063302*^9}, 
+   3.78506383677318*^9, {3.7850915410821342`*^9, 3.785091541656537*^9}, {
+   3.78509844755682*^9, 3.785098483105493*^9}},
+ CellLabel->"In[97]:=",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],
+
+Cell[BoxData["8.741246451133405`"], "Output",
+ CellChangeTimes->{{3.785058395254241*^9, 3.7850584775526667`*^9}, 
+   3.785063837484005*^9, {3.785091534969634*^9, 3.785091541930415*^9}, {
+   3.7850984450125093`*^9, 3.785098483493142*^9}},
+ CellLabel->"Out[97]=",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"UnitConvert", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"Quantity", "[", 
+       RowBox[{"2", ",", "\"\<Hours\>\""}], "]"}], "+", 
+      RowBox[{"Quantity", "[", 
+       RowBox[{"55", ",", "\"\<Minutes\>\""}], "]"}], "+", 
+      RowBox[{"Quantity", "[", 
+       RowBox[{"5.77", ",", "\"\<Seconds\>\""}], "]"}]}], ")"}], "16", " ", 
+    "2"}], ",", "\"\<Hours\>\""}], "]"}]], "Input",
+ CellChangeTimes->{{3.785098739458117*^9, 3.785098761159773*^9}},
+ CellLabel->
+  "In[100]:=",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],
+
+Cell[BoxData[
+ TemplateBox[{"93.38462222222222`","\"h\"","hours","\"Hours\""},
+  "Quantity"]], "Output",
+ CellChangeTimes->{{3.785098744320797*^9, 3.785098762761623*^9}},
+ CellLabel->
+  "Out[100]=",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"UnitConvert", "[", 
+  RowBox[{
+   RowBox[{"Quantity", "[", 
+    RowBox[{"415330.76", ",", "\"\<Seconds\>\""}], "]"}], ",", 
+   "\"\<Hours\>\""}], "]"}]], "Input",
+ CellChangeTimes->{{3.789864568431135*^9, 3.7898646115539017`*^9}},
+ CellLabel->"In[54]:=",ExpressionUUID->"627962e9-b7e0-4522-91c1-a872c1829f1a"],
+
+Cell[BoxData[
+ TemplateBox[{"115.36965555555555`","\"h\"","hours","\"Hours\""},
+  "Quantity"]], "Output",
+ CellChangeTimes->{3.789864611844674*^9},
+ CellLabel->"Out[54]=",ExpressionUUID->"2ccc1fbf-388f-4931-a956-b768507e520d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"UnitConvert", "[", 
+  RowBox[{
+   RowBox[{"Quantity", "[", 
+    RowBox[{"528330.62", ",", "\"\<Seconds\>\""}], "]"}], ",", 
+   "\"\<Hours\>\""}], "]"}]], "Input",
+ CellChangeTimes->{{3.789864620940146*^9, 3.7898646325142736`*^9}},
+ CellLabel->"In[55]:=",ExpressionUUID->"a8cc9c6c-6fc3-4b82-9191-4d7c4984dc2c"],
+
+Cell[BoxData[
+ TemplateBox[{"146.75850555555556`","\"h\"","hours","\"Hours\""},
+  "Quantity"]], "Output",
+ CellChangeTimes->{3.789864632797861*^9},
+ CellLabel->"Out[55]=",ExpressionUUID->"3e2cba64-6d05-4547-852b-bb9117d96801"]
+}, Open  ]]
+},
+WindowSize->{954, 1055},
+WindowMargins->{{3, Automatic}, {3, Automatic}},
+Magnification:>0.8 Inherited,
+FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 3307, 78, 134, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
+Cell[3868, 100, 668, 18, 49, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
+Cell[4539, 120, 417, 7, 26, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
+Cell[4959, 129, 819, 23, 26, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
+Cell[5781, 154, 1819, 48, 47, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
+Cell[7603, 204, 963, 26, 42, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
+Cell[8569, 232, 756, 18, 43, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
+Cell[9328, 252, 2200, 55, 71, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
+Cell[11531, 309, 1662, 37, 71, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
+Cell[13196, 348, 1306, 28, 26, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
+Cell[14505, 378, 1314, 33, 26, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
+Cell[15822, 413, 1668, 41, 72, "Input",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],
+Cell[17493, 456, 502, 10, 26, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
+Cell[CellGroupData[{
+Cell[18020, 470, 317, 8, 26, "Input",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"],
+Cell[18340, 480, 17054, 332, 199, "Output",ExpressionUUID->"9128c202-555e-46aa-a242-5149ed47b853"]
+}, Open  ]],
+Cell[35409, 815, 1929, 49, 87, "Input",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],
+Cell[37341, 866, 1511, 36, 87, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
+Cell[CellGroupData[{
+Cell[38877, 906, 2174, 56, 71, "Input",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"],
+Cell[41054, 964, 56296, 1031, 210, "Output",ExpressionUUID->"02cbb485-3ea1-448d-95e6-96047b6cc94c"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[97387, 2000, 2952, 64, 67, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
+Cell[100342, 2066, 43583, 830, 199, "Output",ExpressionUUID->"927dd89d-4b73-4120-a692-bfd5bafde5d0"]
+}, Open  ]],
+Cell[143940, 2899, 1050, 26, 67, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
+Cell[144993, 2927, 1183, 24, 67, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
+Cell[CellGroupData[{
+Cell[146201, 2955, 3468, 86, 115, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
+Cell[149672, 3043, 43252, 818, 194, "Output",ExpressionUUID->"65690007-8378-4fa0-a374-4d85aa664d2e"]
+}, Open  ]],
+Cell[192939, 3864, 478, 14, 26, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
+Cell[CellGroupData[{
+Cell[193442, 3882, 1080, 22, 26, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
+Cell[194525, 3906, 1669, 23, 30, "Output",ExpressionUUID->"babae3f6-24e2-4dd7-b0ec-523f55cda669"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[196231, 3934, 646, 16, 26, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
+Cell[196880, 3952, 872, 12, 30, "Output",ExpressionUUID->"7ad87dcb-73ba-4fdb-83b2-828491e5f2a6"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[197789, 3969, 554, 15, 26, "Input",ExpressionUUID->"6c35788f-083e-448b-82aa-5d86bb96b55a"],
+Cell[198346, 3986, 374, 6, 30, "Output",ExpressionUUID->"907a5ab6-eb46-4356-afa7-5e2982b3c2f2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[198757, 3997, 229, 5, 26, "Input",ExpressionUUID->"13f9cb8e-33ff-4686-bbb8-4d58374d239f"],
+Cell[198989, 4004, 208, 3, 30, "Output",ExpressionUUID->"0d50940b-c5f5-44ca-810a-714e1ad8f681"]
+}, Open  ]],
+Cell[199212, 4010, 2099, 61, 87, "Input",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"],
+Cell[CellGroupData[{
+Cell[201336, 4075, 1206, 30, 47, "Input",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"],
+Cell[202545, 4107, 21709, 443, 200, "Output",ExpressionUUID->"3c60a760-b3ac-4d7b-9b04-c7d37b0d7684"]
+}, Open  ]],
+Cell[224269, 4553, 1458, 44, 94, "Input",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"],
+Cell[CellGroupData[{
+Cell[225752, 4601, 1042, 25, 47, "Input",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"],
+Cell[226797, 4628, 24236, 484, 188, "Output",ExpressionUUID->"995f7987-477c-4037-9f2a-a4db92542026"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[251070, 5117, 664, 18, 26, "Input",ExpressionUUID->"6bf8aea7-b7b9-4d5b-a161-210bee9bd86a"],
+Cell[251737, 5137, 17301, 312, 198, "Output",ExpressionUUID->"79498c18-6a57-441c-9406-458e4e9973ff"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[269075, 5454, 1167, 25, 26, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],
+Cell[270245, 5481, 76969, 1284, 190, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
+}, Open  ]],
+Cell[347229, 6768, 1553, 40, 67, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],
+Cell[CellGroupData[{
+Cell[348807, 6812, 632, 15, 26, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],
+Cell[349442, 6829, 1038, 28, 40, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[350517, 6862, 1030, 27, 47, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],
+Cell[351550, 6891, 3907, 81, 193, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[355494, 6977, 347, 6, 26, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],
+Cell[355844, 6985, 316, 4, 30, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[356197, 6994, 589, 15, 26, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],
+Cell[356789, 7011, 253, 5, 32, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[357079, 7021, 333, 7, 26, "Input",ExpressionUUID->"627962e9-b7e0-4522-91c1-a872c1829f1a"],
+Cell[357415, 7030, 226, 4, 32, "Output",ExpressionUUID->"2ccc1fbf-388f-4931-a956-b768507e520d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[357678, 7039, 333, 7, 26, "Input",ExpressionUUID->"a8cc9c6c-6fc3-4b82-9191-4d7c4984dc2c"],
+Cell[358014, 7048, 226, 4, 32, "Output",ExpressionUUID->"3e2cba64-6d05-4547-852b-bb9117d96801"]
+}, Open  ]]
+}
+]
+*)
+
author	Jaron Kent-Dobias <jaron@kent-dobias.com>	2020-07-20 13:26:21 -0400
committer	Jaron Kent-Dobias <jaron@kent-dobias.com>	2020-07-20 13:26:21 -0400
commit	179ab936289b0a601ca8b64b14add8ad9058a675 (patch)
tree	31b4bb44d19a5da5654c1e41614b8c50d6a7f455 /tempering_analysis-old.nb
parent	bf880a78ff48e24dd9e7dea688349ee2b480f431 (diff)
download	mma-179ab936289b0a601ca8b64b14add8ad9058a675.tar.gz mma-179ab936289b0a601ca8b64b14add8ad9058a675.tar.bz2 mma-179ab936289b0a601ca8b64b14add8ad9058a675.zip