(* 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[    166178,       3208]
NotebookOptionsPosition[    162114,       3141]
NotebookOutlinePosition[    162449,       3156]
CellTagsIndexPosition[    162406,       3153]
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[{"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"}], "}"}]}], "]"}]}], "]"}], "[", "x", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, 
   3.789819474816937*^9},
 CellLabel->"In[9]:=",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[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cf", "[", "dat", "]"}], "[", "x", "]"}], ",", "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}},
 CellLabel->"In[11]:=",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[{"s", "=", 
         RowBox[{
          RowBox[{"Sf", "[", "dat", "]"}], "[", "x", "]"}]}], ",", 
        RowBox[{"n", "=", 
         RowBox[{"dat", "[", "\"\<n\>\"", "]"}]}], ",", "\[Beta]", ",", 
        RowBox[{"xmax", "=", 
         RowBox[{"dat", "[", "\"\<\[Beta]1\>\"", "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"NonlinearModelFit", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "s"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"xmax", "-", "\[CapitalDelta]x"}], ",", "xmax", ",", 
            "\[Delta]x"}], "}"}]}], "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"logZ0", "[", "n", "]"}], "-", 
           RowBox[{
            RowBox[{"logZ", "[", "n", "]"}], "[", "\[Beta]", "]"}]}], ")"}], 
         "/", 
         SuperscriptBox["n", "2"]}], ",", 
        RowBox[{"logN", "[", "n", "]"}], ",", "\[Beta]"}], "]"}]}], 
     "\[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}},
 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[13]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"sample8", "=", 
   RowBox[{"d", "[", 
    RowBox[{"SelectFirst", "[", 
     RowBox[{
      RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sample12", "=", 
   RowBox[{"d", "[", 
    RowBox[{"SelectFirst", "[", 
     RowBox[{
      RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.789831908881502*^9, 3.789831945703508*^9}},
 CellLabel->"In[36]:=",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", "]"}]}], ";"}]}], "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}},ExpressionUUID->"0885a315-6bfe-4916-87e6-\
8a66c95472da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}], ",", 
     RowBox[{"c8", "[", "x", "]"}], ",", 
     RowBox[{"c12", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.0001", ",", "25"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", "\"\<c(\[Beta]) / \[Beta]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<High-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\) expansion\>\"", 
      ",", 
      RowBox[{"n", "\[Equal]", "8"}], ",", 
      RowBox[{"n", "\[Equal]", "12"}]}], "}"}]}]}], "]"}]], "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}},
 CellLabel->"In[68]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAZm4ys7FrIsAYOuJop54owMKKYA2+
aSLAdFYQw7OcKMAep45nymciwNByPh3AmijA1t/qG+NjIsCIq5rR2JYowEdR
o4QUXCLA+RxTOgqPKMAoNBRWd0wiwNr/wwttfyjA6vn1+DwtIsCcxaWuMmAo
wG6FuT7I7iHAIFFp9L0hKMDUSP4EXWchwIYUrrpSmifA6oTeIevoIMCcUI7X
4BsnwJX1ujb0bCDAR8Fq7OmfJsA6JaoM98wfwE/eBDxxGSbAqlAVWfjRHsAH
dDri8ZslwNbU+xr2wR3AHbYtw/ATJcArwtrM6bYcwMgsHZxqjiTA4KDwK9C9
G8AiHKjL3REkwFHYgQCzrxrA2rfwNc+KI8AhAUqCiLMZwELM1Pa5DCPAG5MK
9FO8GMA/FbWvH5EiwNF9RtsbsBfAmgpTowMLIsDmWblv1rUWwKV4jO3gjSHA
t46neY2mFcAOk4NyPAYhwLIsjnM6nBTAC+J27xKBIMAMvKsa2qMTwLipBcPi
BCDAIqREN3aWEsCGO6SiYfwewJh9FAEFmxHA/BR0bPAAHsDKr19AkIoQwC5H
v6t78BzAS5ZG3yL+DsCK4gLb/OQbwMKvO5gKCw3ARW99t3DrGsCxeic86+0K
wLxUcwnh3BnAXyiBOrH0CMCTK6AIROAYwF+oyxhjBQfAk2vF95zoF8DY2Qzi
DewEwFAEZlzy2xbAEO67BZ72AsBsjj1uOuEVwMCzYRQn1wDARHGQ9X7RFMCE
l/AFOIP9v0W922y5xhPABo35l+yf+b+l+l2R5s0SwHnl7/+SaPW/wpBbKxDA
EcBqA8IcBHnxvz4YkHIsxBDAAIzr8pk667/IEXpTfZoPwAzXLVgP2+K/i6TK
rJqCDcAsWk9ONBbWvw0aiWCdjgvABEjiD0WYtL8IQT7/mHAJwF9A3uXNVcU/
wkph+Hl2B8DNP1AqgCzaP84mddFGhgXA1en9BCl/5T9TtH+VDGwDwMYoHIt8
WO0/liT4s7d1AcDs0K8y9uzyP6SMznq3qv6/0OjvX9YZ9z/AdI5N1336vzU7
VNjr/vo/WyIq1cGY9r+qKst6Dzj/P+YyszKeX/K/UCozNLSUAUDfETCKitzs
v/jsD8t0gwNAQQe9Logh5b8o/vV2PJwFQACFSf7SfNm/mSxuyB6RB0DsIhDl
gKvDv7D7o1TbmQdAfzGzIbgfw7/Iytngl6IHQP4/Vl7vk8K/9mhF+RC0B0Ag
XZzXXXzBv1SlHCoD1wdAfC5RlHWavr8QHsuL5xwIQAAXgl7p3bW/iA8oT7Co
CEDrn4/LQ5ORv6DeXdtssQhAvidQYftpir+3rZNnKboIQCERgStvrYG/5kv/
f6LLCEDW/nDxXysav0SI1rCU7ghAOb6sC+1ekT8AAYUSeTQJQAWOdPGOKKo/
GNC6njU9CUAGVOj+sVesPy+f8CryRQlAtRlcDNWGrj9ePVxDa1cJQL/SoZON
crE/vHkzdF16CUCJXomu09C1P9RIaQAagwlAhkFDNWXotj/rF5+M1osJQF0k
/bv2/7c/GrYKpU+dCUA76nDJGS+6PzKFQDEMpglARs0qUKtGuz9JVHa9yK4J
QByw5NY8Xrw/YCOsSYW3CUAIk55dznW9P3jy4dVBwAlACXZY5F+Nvj/Fc2Cm

          "]]}, Annotation[#, "Charting`Private`Tag$19414#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVV3k41Pv3H58Zs9hNjGVkGWSIrrI0RO8P3xC5JEq5VMpStCg3orQopRJl
V5YsFe7NvmXJociNbipbhG5FluyZxfrz++M85znP6zznPOf1nOd1nqN25PQe
b4xAIHSu2f97n1NbSov9WbDwxMxVr4kNjbcPi784zgKF7/5lJi/ZoPw02veN
LwtqpNOlrRvY0DU4xvx2lAVkO9G2g3VssHHKvi7jzgKRKzSLe+VsYBvK7Au2
Z4F7QtLGucdsGBPM8830WLA/VZL4/AYbTkU8394yqQYXplm1O3ayoWPnCsnD
Vw3+OBNS0gtaMHZ9QG18RBV8TfnmfpZakDBfbfzrhCrc0Z5df655A5hq5ovx
2lTA76fK1AraAPm7ZQ/w3ytDX8rulPBGTejqWFTkNqyH+A9JpRGmmrCxsbdt
tEIJTn2XnCOVa8CXR9Mb2+uYYPjcLeMSRwOceq4SSgsVoXpqUTmkWB3UhOzC
I0sVwLeA03XKQB2YcSK/nGvloT+g2uFrJQveh1n3MYvk4IUbO+LTZhYMH3h+
uqucAUktneL/lqlBZfTTkLtPZCF31wEbOz01KNGNDjRNlQHXd3c+2uWqgljt
X4q92esga/XVrd91VYGVs2NrUCId1Kv7FF/vUoHkMBkh4YfSwHmw/rmwkzK8
KTyE37stBQud4mJRFuthV6L1IGtFAgoPIv99W5WgsXBbsoioOOg3nOv1REwo
DtUyG58QgVdflkdZBopwiH3VtPgXFY7yPtQHmijAodxW+aPCFFhx6OcGWclD
zyexr+I/SSC8VXawxVwOpCZrhNO5GDi7/SOpYssAKPWU0eomgFYeHi+wkIXr
SdPCnGvL9SSJdHN3Sxkg3xUk/cwQ1CulvlQxdl0HIUNTq7HH5utLgvveinjQ
wY/YqEQKmal3ZGrr14RIAyFqfDbFdLze+fEFBpYtBWLdevsl+77Wr7o/ucO9
Kwm6bo4Ohoyu+m+em61VGBJA2vlV0iq5rL6luPxKYowYHMIHht7ubUKX6hOn
BneIwlu0W+eKbi86zYmam9ESgc7RZZL25SFUhVwy38nRoP0Iwzk6fQiNu2wN
EZOhQVvfpsy5uiH054jRQVspGrx6e8j8xdIQ0tCammuk0qCsuOGcc+gwsntu
VVkioEJsSMRw2Lkf6N/D8t4n+6jgQBNv+eA/igjf6k5Ep1HBLlyTwbkzimoG
lGqSU6hgvWjulZY/ivxaFk9mJFDBfOIU4djoKDJV/+NE5l0q6L5v5yz7jCFe
FenGhTAqiKTE52kdGUd/5fk82O9OhWa20p2L+yeQXh7dp0WGCvnGEXbhoRPo
+xdSU6okFaJ3TNIiU9dwtsOqrwgVXA9DZNyXCTSW+Muze5UCI0leN/KPTSLB
po4wiTEKiFKeXe05P4WEtH93u1xDgWkZhsXAgyk0I9HL9iinQAfrMuF77Rr+
2CtNq5ACDhm59cGEaSQh5Zl+JYsCcjWh26/tmEZJVTVuppEUyJ1VNnvQNo2u
LJsxAh0p8CDkIzOtfxpZ3xPa+N2GAlGEyMWMyWk0qCFY5OAUCJCYqX4sNYOm
h7ceuKNPAROdlybFLjOo4CwlvUGSArrFwQpl3jOIccTBCFEooMzRFVQEzSD7
VYN7D1fIgFknVNUmz6Bfnb1eXT/J8MbTd2vL5xmU00MQzXlNhtoRplzrxAwi
O1TsWa4jQ8Hpdu7blRl0NVG2YXMZGWLDTCo+qs6ibTX8cJ1HZPgjRdRo0GsW
dYCdYHcQGX62F27h/pxFxuphVsWKZLB/71WatzyL7tuFtydIkOGv9wqGHhJz
KNPs1U1njAx+H64ZvfptDiXRB4LcR4Vh5KMrJ/bsHJqf131YUi4MQ12r5pv4
c0j1yOSnYRthGPjsaOtDnEevRa+n67uQYHs/6Y2CzDw6czstJmgHCdL6n9u9
1ZhHMXlVr6oNSeA+oG5vaD2PUi5NaFjJkqB3kOeA3ZpHc16KHSJdROj+muGS
LsFFx+Nce+PdiGD8zaXTSYWLLkf9iqzfRYTEb7R9wvpchEYSkxnmRNj3PdD1
hBMXTfHSu3aqEqFjyMbNNJ6LnAk4b3YEA8Phpd6JHC5a6Wne2NyHQdxw8R+Z
5Vy0qYN9ZuhfDPb8YHpQu7moEr1PVajAoH1k6lCXAg8JAi2lOyMxUAx9X+6n
zUNtPa5bD1zG4Khoqegqh4eyZtx/oSAMuHpBlVr7ecgyU22voTcGeL2reK0v
D22vluu39sDg1m6To7uDecilJHV/414MlAKXJEISeWi/32z3ig0GPqQBL/En
PCRxoeNkkwUGhQn11ZnlPKRicEuZYIYBf0OmlHETDyX4xM0XG2NgWRXu86aD
h9abvWuc3oxBlK1X7cHvPHSGvjHqsx4GXb1W9Lk5Hpo9U/xhpw4Gqie0jt0k
8tHFm1atxloYHF+mvmCu46PC1zHNTzUwKIkeW1fE4iPhsM+b01gYLKm0Hd+x
hY9yTaWS5dUwsC5+Vt9jwUdqiaVZTFUM7lnGyJ504iNGiRwzVwWD3o8B/kKe
fDS1O2G8fi1W997TkBDAR9x9I6rea/knuAZyOlf4qPFT3njKWr2Km7InX8Ss
xYzxzMPqGBAUeI17MvjIc2IOajQxsM3vkf9RwEfy61/ur2ZjELut+tSFF3xE
3XVErFwXg89tD19J/stHOQ29GrZr8284GKaY07/W/6GfVtAaP6enDgZwJvjI
Nckgf9saf1VX8Oa2JT6yCjvjnGKJAUZnKXmKCdCjkNKeaFsM7LOJZ+eZAuS7
VW6F6YRBguHQ61sbBSjswfUE/AAGA03N65W3CRBjdCRsyRMDtmtuYImdADXr
B2Q5+mNwduTWP9ZuAmSWXyMwOYdBbYi/St9xAYr/uC6iZm1fHFM3tRJvCVDM
U3ODgkQMkvWk1JKTBSiOneuvmo3B1xczQbq5ApR5OjNOswiDoP/KWHtfC1DF
5ttHv7RikLphW+gT4QW0+tA4vptGhOFKpXZT2QVk/zfdKVORCL/Zrmi+01hA
MjmBBX0bidDo3/Ce978FpDr2svqGIxFGimy0bcMXUOBlhpd3KhGMtrn0jK8s
ICR/82SsLQlmGQM+7ZKLaMzwXkv2ERIUzfrOl6kuosaUQp7MRRLo5l+gX7Jc
RAFyugmUIhJoKGTbS91YRFN7lL3/ZgoDnTcDhuJLKHZ053MNgTC0f7jgqKC8
hDy7byTUyZAhukB4YHnTEkpJaok6rE8GER+FxebdS0hfN8awypcMQp240YH4
JdQU/KbWrosM0yUxeWHMZdTUVXiauabXBdEKnCO6y6hG/Jiu1z8UOOGX3Wxt
vowm3JhSx79R4Ida5TfJQ8uIaR+b0smgwsC9gfVZWcvo6YXIp+2hVHh7Si+2
WXsFtVsePj9pRIPbdpWqf5muIG7hVDbNngY7N1gUxuxaQV1TQYufPNfuZb9L
2/6TK0jqUq/4gyga1NpfJI8XraAWOUfFrAEa5Ou0hkpyVhHVPXdCKVgE9iRd
HeiwWUXaGt4WgzdFYIHIsXzguorODw6IeCWLgF1/Dk0zeBUFxS/3V1aJwGjM
pWTTilU0ff/s+e9cEYhfkO/bokjAX17ac9LJTxRG9H9FybIIuFcF9nI0WBTM
fN9t52sT8FijzyTXCFH4/jEiq86EgPsTa9dVZoiCwbPZ4zsPEPDHRwjiqx9E
4cOhNr5HMgG3K/HRzzUSgw2JT/PxRwS8LPrKjgALMQhtC3dXzyXg8R0amOLv
YsAyMYGRSgLO+a15nbKXGJylP7kZ2E3AQz9uKaPcFwPppsuMWwwhXJODbVMY
FoPdOgaGZfFCOCUjVTPgmji4pUUbn04VwqciAz2eR4mDt9QYRydHCK8rFmjz
EsQhlPvI/FGpEL4HzEvdcsXhcaOETdQHITwjjsRobBOHBbexA15SGE4MUFZp
XicBOXcyL8tEYXhufl2daKoE8H9Ktv55jYiP9ulFfH0kCeyV+SCzVGGcq/pD
Wf+LFKTonmpRvk/BVUtECqX7pKFoMdulL4WCd9//+Nh3UBpa3nz6kpRFwU1j
CkabvkkD95iVQKqMggsa5ZQif0qDy2MlHWI3BXfmbDmjtiINUsqtd34oUfGf
M6IPFdXoECnJdizKpeL3T4xyDH3p8GjAo+9EMRW3l3VCN/3pUPkszle7mopb
u0a9/XSaDsO7Vi9ntVJxK5/IlvDzdNgR2VUUP0nFVYmHg/Vv04EgFEEPMaTh
xndbfW8/o4N8e3W6kTkNX/di73xPMR1+y5jWmbWi4XnDBz+rV9DhoLn7//xd
abgL6cZI+Qv6mr4Y/OkRSsMvZeZnK7XT1/6L4wTFazQ8v+qK4FoHHcblMqK6
7tDw2YdDmyZ66KBYIfLYMY2GT8hMXmr4jw5bIvDNYk9ouFV4U7bOMB1sXYLq
Wgpo+Nlz5Nr7Y3Q4rP63bUQlDb+oEloyP0mH87P/dVoADQ/QHvHZO0eH/wOF
P3E8
          "]]}, Annotation[#, "Charting`Private`Tag$19414#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVl3k01P8Xxscy85mxmyxZIqMyRItUIr0/rdZKKBFKZCkpbaK0kIpEq6Us
kRaUPb4V5iZKqGzZG0uRPWHGmPXn99c99497znPPee5zXlfn8AmHI+IEAkFO
jED4f/UJNC4qOEaDY67bClP76VAZfUi2wp8Gf399o+T00kHrRaxvrS8NMjv2
eZYy6dDaM6Lxy4sGcSIPhYZOOljueXpNyY0G/hO7A8Wa6UA3UdoXbEeDSdVC
fe+PdBiZY3E2GtGghnokVT+TDoGRbzfVTOjApqyhS8VH6NBiJZR099WBp8r2
ZlZMPRi5xtQZHVoMdr+ylX8c1IOHrHfrZgIWg4/nlsTuX8vAbGm2zGy9NgRx
/Uo83ZdBtr2yC6dRC2Sva77r6VkKrS08dfaHRbCGu3as03kpLK/srB8u0QRS
LYtq37QEep9MLm8o1wDz8m1Py/cugT3tVwlFeerw6sm29S++6YKOmE34zSI1
cOxLu3PTXhc07kvNOJYthP7Pevf7W2jQGLajSyNfFSravLaX7KLBoMvbE61v
VGA866vRlUYdKI19EXL7uTK0uzM7wVoHCg1jT5slK0HrOlH02arFIFOWo975
dAFM66bcXGS1GGiZ29afi6fCGS/nfUfDtSExTEmM+FgRPllL8UOua0Ft3kH8
TrQCRHFsN7ieXQS28Tt6aEI58D/JqJDx14TKPPNEKWlZqH9BkH8UqAEFoXob
R8elIF9jiPfHQx0O0q+aFcyQofG/pUFanmpw8GXdQi8iBv+9npS09VsI7R0y
/bJjkrAbRv2jXFVBYeI9MZUtDuZ8PV3XgyoARZ5Kem0EWCWhZB5hrwzXEiaJ
phECRmiZ/US5lRKQbs8ljKXNMU4unvUL3LcAQgb+iu75sRgZkoyXD5ypcFSi
UlMy5B+jeCo1puy0IhBiRqeSzEYZDJrRTptkBZBpM9ov39XPyI5eXXErVB4M
XXfvMlFpZbhtkTsQMiELklb98tsTixlnHC+rfD4gAwdx5sDXvdWo/7feOgpZ
Gr4ie4Mrhp1IY2qxs3kPBTQnvgV9PtGJXq2wOX6vkwIByTvfyhV1otX1wV1j
PyggNWdjlbKhC93Iuvs5p54CVoXbfd7t6EZWfRNUh3cUqFpinjFziImKAq4c
tounAFNywe1imz50af2ekC/2FCC5Na3aH9CH1NfHP7xtR4EVRXdbeLf70OZA
+zknKwqEeSpobm3sQ4V2KTHjaF5PhWxOo3M/CmSevrd9JQVcg8lfJrx/oaX6
h/7uk6PAj2GBpP7lAZTz+K+tzncyNBxWcYxNHUBpe8qk79SRob5rRfp0+QDy
CTbwEq8hQ9XXgxYV/AH0TOsT/x+Qobjgw1nH0EHUce1TFrGIDPdCIgfDzv5B
br5bdacTyLCLIlvTdGwY0R9m5ed7k8EmfKmK6a1htPCYa1KKJxl28Cy8U7KH
0SJiek+sBxksxgMJfsPD6PrRFuOw/WQwbGwwFfiMINHuucybdmSQSnqQpXd4
FB3IDH/rspYMn+iaty7uH0d7dTdbllPIkL0u0iY8dBx9XlvQNkIiQ+y2CcrN
5HG0HDNasEiSDM6H4Ob93nG0UtiSFyfEYCjB+3q23wRS3VMQnjuNgTT2+mr7
+b9oF/39o04mBpNKKpuZj/6icvZqunM3Bi20y4TfZX/R99593PYODHalvWQE
EybRrua98WMtGKi+D90UsW0Scb9FtzjVYfBySmvjo/pJFJYvxzR+i8GjkGaN
lJ+TaNGXbWXkUgxiCDd5aROTiCb36NtwMQYn5f69e6bwD0VfTQytzMdgg8HH
DQVO/5DY/Q6v0pcY1Hr6rq/p/ocWHWnTTEjCYKwhz5g9NoWGeyfvqlzCwK7R
uyhLMIVYgf0Pr17EIKdRzcRdbhqJrV997m8oBkebItZWrZxG3Nm0a83B8/s3
O5veOzWNfL9dPN0ZhMFAq8hiBWcaxaav7HDwwWBbW3FFH3kGaWg2POnxxiCz
zR89VJtBIx+Vwo96YeDd3ozzzWbQgqmCmvOHMOjveLG1NmwGJUi1REW7YrCl
060qLHYGLXdNqVdywSC9U3H76rQZFCRp8CnBGYNDXRd2JMIMcnz8SCHCCQNm
925rHwkWmgleR6rficGmn5K1akosVJSquGLOFoOUn29tvi5hoR5aylclGwzc
mLp2JjtYSN6kqlNxBwZlzPb6P/tYSKmDfWxyKwYaPbd3PvZlobA3oeFVmzHo
7JndJR7FQoHBXmFJFhiY9b76/iaJha6SL651MccgqdfT3j+bhTTWCkSzphhw
elUaNd+z0OcuUeipdRjs76vb01DHQgrGduuq18znWN+VpohuFjJoqCwaW4XB
wv61juvHWWipbbvvgBEGbf1pTqlybERPkCBt1MNg3S+nH3u02cj91J7H93Qx
iP9F2UdcxUY1pcaMHG0M9v0+7Rywh43O7lmUoKKKQclverv2YTaKSrd9eYiK
gfLAz/3Np9hondRtSQ/ZeT8OWLqaPWCjGzpxYUESGJgM8jvHM9nIRdR695SQ
BPcHCw6kv2EjgdDzrNwcCaYGfbqdPrGRZF9Ljvk0CRz+aLiT29gosfpp9uQY
CQr/NPx8/4eNNLaqMXUHSaA4FOlxgsNGrpzu3DomCRqG/h5sVZtFlsd3/XT4
RgL10MY3R/VnUUvtNLOymgRe0kXSItNZxOy7KJdURoJXyQ8871vNIo+jVX1f
C0nANjpXqrd/Fq20dxl1eUkCnOEsW+Y7i7TmvHrXppAgyn6Dl33wLKKde5Pq
epcEmqf5ciHxs0jCa4x5OJgEPpJMb9nns6hnr2v1Pn8S5D1kvEt/M4vopKiQ
7QdIwFmWrrCuehYNyf9o3m5Hgi3/hfvUtsyiosbkANuNJIix9i7z+D2LlubG
7LJZToLWzu3U6en5eZEzcb0aCfwF5AqNBRy01WKHIPcfEQpjRxbk0ziIWFvi
vqybCHztev9txhwU+Vpp3KuaCHe2xCkf38NB+hMTBOoDInQ2nzwm5slBzi71
a8JDiKB7xOHDw5McRF6TNDDqToSSG8rHK+I4qCJEO/ImjQgEtdlKhzQO+qzZ
9jFHnAjW2e0L/+RyUMaJyWinPknorn9cJf+Ng9Y7uokvfSQJ4lSapqfMHLre
lzvA4UiA3VOJUyyNOZR5NPL223oJeGgy8Dlq+RyqcF+YviBNAujOL08X2syh
q4sboz4gCdidvKJOImoOpUuSvBqCxCHRSEEnMXEOuU727P5jJg79Ff/OGb6c
Q1s4ZqssJcThXF8xbe/nOaQ4gj88dk8MkpeZhz4ncpGImnt2wSsCDJZqNpgp
c9E+t20dDacIsNJauPT7Ei6KcppSRGYEqDz2oXF2KxdV+TelzsSLGDKCDL0Y
Ry7adq3x4dPlIsbe2Gthi724KI0tFur3UcgYyrfUtw7nosc9uRPnBQKG8Rb9
yz/vchHviar92ScCxoVmqR9B6VzUFy00drMSMKq8xwxIBVz0JuHX+WwWnyHH
/nrlEXDRaZGCl1gWn7H/Rl7rigYuSu3M+RJzmM/IWHjX8GMPFznzFc7l0fiM
saxT4c5/uSj937OakWEeY625U/uokIuu2bXb+/zHY0ypMH0a5HnINqMnZMct
HiN/ypdVvJiHHBULQj758hiB3/5FJK3moQXGvaC9i8cwzL5AvbSFhy4Z3Pc6
vonHGIkkph925CFRNk0mZgOP8dIzbqWlNw/xZj4kOCMew8dCrWL5WR4ivLId
Dd3NYyxRe2qncJ2HBgvfONGP8hj9M4ZdM/E8ZKlk7GAex2M8aSjx73jBQ25Y
+JfsCh7D4xXOKf+Ph4pTTm+1nOMxNG7WXs/4wkNbXa9rrdvEZ7R7OSnf6OSh
TV64888YPiMeMZ8eG+Uh6fdHj2f/5jOcNPyM7fk8dCAySHHLdgGDOvsPTGT5
yC5Gq94lV8BoaLqwW02LjwoXOt4/ry1kxOYSmYIVfJQ1Tt9DTxQypHzUeJ/s
+agpa++Z8FQRQ+wHvtblAR+t+PbW9xKbABX5tR8tnvFRxy3D6p/bxeBijJMD
rYSP6C3BdcXxYsDZ6nditI2PpE94vb4777/JwrisMA0BSrCptB4Mk4DcWDXT
w4YCVOiuNxP8VQICjj79tMNCgGqcZlYgTUn4o1P6S/6gAKmrLJvwLJGETAF+
auaEADHLxu/+IBDhcEctoeOKAAXeeLGg0JoIzDvMRRkZAlRaIazUbCVCcoDf
q+tFAjSjurf96Pz9u1pNmR2rEqAXxyybM1zn80FE3G8yKEB5n5ZyTraS4EFX
3ODCWQH6SPqo3a+AgUOp2lkBJkTjg9yTM1YYfA00uvdJX4hirF87/S3AINqm
dHGOmRDlxy0b6+vHwGrZ5rw4WyE6IuWZHK04z1M/ner3HxciUaKTq7cfGcLf
Ml0tLgmRmdFsRPcdMuAP/YZ14oRIWr334qa3ZCizu0gazReiqOqOjmISBULp
pIffPwhR5YXfpe8MKGAqeUe3uEmIlMboAdPzfFj0/ikeNiNEzMM1FgtiKHAy
wei7J1GELss5hchmzfPj6VL3HSoipI6t/HOoigLZBnWh8qYiFHDld4wHmwIO
CVeZLZYidOCbl0S5tBRwJUy3PHIWIamdLQfmtKXA5mcmZWmwCMk3Ew+rWknB
lPWB4yPXRWhDiIBr4i4Fj0oUG/PiRcjW2JkaHSQFw3GXEs1KROhIRVDjcIIU
3OGb8EXVIrTRwWpakCUFpv6jB6t/iNAN04Fbbu+l4OaW/Xr2LBHinlEHpW4p
eMBd2GWsTsDvDAWxPVSkYWjVTIwyjYAfL1fl5upKw0bf75s4+gR8p7enW8Zq
afjdHJlRvoGAR8W3Yvq7pGHN6yl/KxcC/rwxzy8nQhqaDtZz3BMJeKTW2pYL
/dKwLP5FNv6EgHcoyy0JGJeG0PpwN92XBJzy2TLnLEcaaBs2wFApAX+8K0me
Li8Dp6jPb5xuI+BjBk2qOuYyoFh9WSVKRQz/bTju+ee2DNgbrDEpfiCGv2/G
bjnQZcE1JXbdiWQxnBW0Ks99tSwcURgxNcgUw4lvHuh7mMlCKPuJxZOi+V4Q
EbHZThaeVcpZxjSJ4RWn7yb3n5AFruuIi7eCOD4dsbnFtEQWMm+lX1aKEcct
DEk7szfJAWdMvu5MhATuVz1kO7dFHuhC1rmNyUR8mdKXx7YFCpBkGFijdRfD
e/EsKfIrRcjnPXXqSsJw1PbLyCdfEWpqO3oTMjBcPrPLp6pYEdh+2+cUijFc
uWuv+dVyRXB6pmkg0YbhlANfowXfFEFBq+7WH00yPrt5GUVvShFuytN3578k
40WlERUGplR4wnTvCigg4xeDdZ9EbKRC6ev7vvrvyDjNqcajG6fCoK3ockYd
Ga/LKBi7bU2FbTdb8x9MkPFNf2c0iAeoQBCLpIaYUPBcxwciuUtUWNjwLnWt
BQV3a9LmnQinwsq0SYOp7RScwjF63XCdCh4WbluPOVNwrkHC6J04KpSFrDnj
HkrB36WlfpJKp87/+/4E9QgKvvpWRoDvMyqMqqbFtN6i4KriYsYfs6igXiL1
bHcKBe9rI9YHF1LBOBJfLfOcgi82HjrfUEIFa6dz5TW5FLxM5wlL7z0VDum+
so4speAbY6aMLjGocH6q78dmoOC+HyJkmz9S4X9NQnFl
          "]]}, 
        Annotation[#, "Charting`Private`Tag$19414#3"]& ]}}, {}}, {
    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 -> {-9.210340371976182, -12.442617007106682`}, 
     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], 
        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" -> {{{-9.210340118318708, 
        3.2188755712107273`}, {-12.442617007106682`, 
        0.1193447048649078}}, {{-9.210340118318708, 
        3.2188755712107273`}, {-12.442617007106682`, 0.1193447048649078}}}}, 
     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 -> NCache[{{-9.210340371976182, 
         Log[25]}, {-12.442617007106682`, 
        0.1193447048649078}}, {{-9.210340371976182, 
       3.2188758248682006`}, {-12.442617007106682`, 0.1193447048649078}}], 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \
expansion\"", 
       RowBox[{"n", "\[LongEqual]", "8"}], 
       RowBox[{"n", "\[LongEqual]", "12"}]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    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], 
                    Opacity[1.], 
                    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], 
                    Opacity[1.], 
                    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], 
                    Opacity[1.], 
                    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], 
                    Opacity[1.], 
                    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], 
                    Opacity[1.], 
                    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[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   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[{"Opacity", "[", "1.`", "]"}], ",", 
                   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[{"Opacity", "[", "1.`", "]"}], ",", 
                   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]", "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.78983242832556*^9, 3.789832453466649*^9}, {
  3.789832544222557*^9, 3.789832559707768*^9}},
 CellLabel->"Out[68]=",ExpressionUUID->"7b89c7a1-9d18-49a7-bf31-752df41c7067"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"s8", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sf", "[", "sample8", "]"}], "[", "x", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s12", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sf", "[", "sample12", "]"}], "[", "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}},
 CellLabel->"In[46]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fit8", "=", 
   RowBox[{"ff", "[", 
    RowBox[{"sample8", ",", "0.5", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fit12", "=", 
   RowBox[{"ff", "[", 
    RowBox[{"sample12", ",", "0.5", ",", "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}},
 CellLabel->"In[48]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"s8", "[", "x", "]"}], ",", 
     RowBox[{"fit8", "[", "x", "]"}], ",", 
     RowBox[{"s12", "[", "x", "]"}], ",", 
     RowBox[{"fit12", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", 
      RowBox[{
       RowBox[{"s", "[", "0", "]"}], "-", 
       RowBox[{"s", "[", "\[Beta]", "]"}]}]}], "}"}]}]}], "]"}]], "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}},
 CellLabel->"In[65]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Wk8FHoXB/BJtiw3ZN/3cGWnyXWdv1CytRCqS0KMUPaQZaxZC9kqRKRQ
CJM0ZDe4yLUMohhmLBGTCEUez4vzOef7OefdefGTcrp14ToDBoPp3a//d+n7
u0X54oX6+yNdMHJLr45VUcILFwGHGaj3+HNq9VuCKooVcPdBUvtyJnfasP4D
Heo/nPeyQWvrzSdLkXn9TjUfN2bcE6jIeRY+GbWuH8q393avoAgGvjfG+WMw
kJVurL+T8hw4vlMOWTGwQOXh5LatkHLAmBPicMaHoSt50GTDrRIwrKQ1MRde
oMdwzAeVvQYMu2lESbsQhLVVKm4W1AC+5YJncpsEsDFYeQZkEwCFPXVlUZOB
LPSj4ntKHeD/EMl/0ysPMhEPv/nE1ANiuLjgV6cEVY16WvQQIqCvR5OmVlWg
Wze6ftmtCZqXzHekZLWgXO9IuHZlMzhyD8k01ejAtwmXJ/5lLYA8fTb93U9A
uDDrzFpBG0j6EjY9TwG01186qJHbDtPBside6BgA26VyWZ/sDvB2FsghTZ6E
7GxLt9UUEjjSxd5XOZ6CzzoF8SoJXVAVu2lupm8CsuRvpV4x3eDoQGDTVjGF
Kt7M5aWQf8H7U2VxtpEl9KRN+Cy4fQDcqwNjkcVWEJ+T1f1AfQAa3oSzGExY
gzIOLmtWDgAHaVaxW9gGfFnS7viW/Qe8HORKxlo7+G2s9Z5eMATDSq4mHy0c
oJDvk2Wq+DCo7bgS0ruvghEtdko1dxiwYQSRjyWOkBQzirmVPQJBzyU38ced
QLAtxPBryiikUjJ3sYnXgZguM5zMPgbk9cC0P9xdwcGp10U5YQwq4llS583c
oPiAeJxHzDgUj5W1Joq5gzpq6VoMmYDWA2dYaKueYNrIYjnnNgU3RVqynj7z
BfU9pw1++hRcpSq0VoIfJEte7ZfRmwaDKCuFiQk/8Hd6F2DdPg3Lf4bI3hEO
AKM573bCMAUU1J6HOFfdhpmvn64FbczCI9Ijk2HdMCDfSyKknqBCHv2qxbP1
MOhRPXGoNIwKTdhr5qZV4VDtk1E1zkQD8sIp0XB+PERumO7p8s/BnGB9+tu8
SJDcrcvd1VnY/9N8+NBIDPDmX6fz3VkAjo50/1YUC6xwxEilaQFkEqaskl/G
wir+5pLD6UWQvR1TXB4XB+8Z5XSbbb9A0A+XgnWjeLDnSB+NCloGccVCvYyF
JOjj1DnEaE8H/knn+JeUNBg048npD6UDQwuj7F8S6TCWsCL/MJcO+qJJBoL2
6UBlem6kMkmHn7Hh4g3j6bCzK4C3u/INuHY+M+WRH4DSyvaPl5fWoEFOeMn2
cybE9zdSL9qsw/SSAdZN+hGcvG/c/PzsFritMXKl1RQC3rS2dPDmFiR6aAU2
jBfCeyaZB7spW4D/vsnMgHkKuqEYV6veLXC/84V/wvwpaLoT2fdMtoHB5j61
ef4pyBqq29qc/AmMUgcPG0gXA/Om6Aqj9g6M+1ermZWWwHXVn5zqnBi0/Uv6
5tftcrBQvP6N/zQjkuoPeid9thZ+JgUQP9kwIhn98HN/42rhxUpsbLErI0p9
Gy7oElkLjLUlQhpxjKjbVjOTXFML7/QXDCw6GNHb+ojS80IEkLf2SI82ZEJR
6J5c7RwBMBE+mnRgRq5VK4FjSXVQPRwW0I1lRRb0y9pxzER4EeviNHOGFTX8
OGi+J0eEfB2zs78usyKXpdDxVGMiJOYIKh4LY0W4X2lOv2OI4PxPzWRqCytK
EXC4y8bUALzUBUM700PIer2dKs3WCIHfrXjmr7Chvjukk8ZKTeBZrLu358mG
QvzZI20smsDpotSyYDgbanjvXJng3QSWdSsdpgVsKEgxRdG2rgmO3kkIrqCy
odGXk+1mMs0wxtA0HeDFjmqqr+lsE5rhLx6lSsYIDhTtWbqyvdgC/Qcud/fd
50AHuR3JKbst4PgtYTargAO1nksZ0OFuhZiBRQHFVg7E8l/jiS5sK/TfK8Vb
MHEibiHDd1/iW8GRXfFCVhInWnDdEYdjbRDDqLBxNOcP1Kgl4VcV1w5uv9Lz
ntlxISX3vafnw0mQYbncFuzIhS5XmOC6M0nQXGj8xQK37/rm81avSCBosqXz
4zYXCuzR3sudJEFXhv3AqWwuRPk1Z3hQrwsUVRQOLoxwodHi6AL6bhcsOTbi
lKy4Ef7u+Zmi5B641TmvWWnBg/h4xETVO/qgGb30ULbhQQUPx4SdKH3ARfQu
KnXgQWHC5+6n7/ZBVeU2T/EtHvSq55ASXbsf1nLY13LSeFDFFZPO9JJ+CPRQ
rYoa4UF4LPcQ390PEMp1W9nG/ghyfyMV+F/BACReZpbb9eRF1y4f+/TbcBD0
1Th+LPrzIpLpG6ncs4PwjYmHRA7lRV+CPUJUrwyC3Wsx96pkXmS9WqeK9R0E
OVbtV84veRFVov6vgSeD0Exw1u5Z4kWWvIvLXNuD8IOrxTj7Bh9il3HOyCwa
grK5Tv4Y333PvTCjvBoC+4beee8QPsRUNyEi/XYI2t3GEkwT+VDUatKh6N4h
SHu/2rdbyodO95ANWteHQNlT3MZlkQ91doYnYA2HwZl0x1Udx4/Ks16oyo0N
g4uevOWPW/yosyRp+ev0MLi+HtAm3uZHsVJZjS8XhwH3WI7J+C4/Epz0reX4
NQw3b30osivhR+YEzlwbsREIEZChRFD5Ufxmf7+o4wiku/Vc6XcUQEU84wtr
n0cgY9Lf8AFOAN303o7OnhuBzPMSf9p57+8T3gxproxAzl/+PykRAsjOXrnJ
ancE8g+LP9zIF0DUjSg2DREylNX5kEU/CSA8b+VL34tkaGEROu9xSRANTueY
27aTYa5IxXT8miBSw2y8efQvGTiQkeHpG4Ion8NLkjxIBrugW9oydwTRe79l
VW0KGVYXOoQmcgXRZ5aB3cxdMoj1+M6YTgsiQlyfHV1rFIKTe/2U3ITQhYBa
c5/8UVDnxmct+gujI4pzeVlXx+Ad66gCKVQYKepu0BZcxuAkRoVYHCOMdDlC
hY7fGAPr1YmpqxnCqOPSvDPJfwwC+44rkmuE0bQoHvd2P9caElaJrWvCyHQg
c2+megxMGK5SHnuLoMQHDgnJDOPg+P1vZUtPUTRAkXe9kzMOhfkdopsp4uis
YMA/KQ0foeae7sTgBUlEWbZLWyJOgP+7v8/lmUshYqQz13jmJDT1PFtLuCKN
GDzVxc18PoH76RON7nYySD7awRmj/hlyX6gTPG7IouEqpZLG9c+Q9r0x0vu2
HAryUu/AlU3BXFlAIM5XHk3ViLwYlpuG9lPpOVFRR5GRFsVRPXgaDpz9OHMf
r4D0YvrYC9umAWPw5kBBsCLSP6Ph8ewQBeIFNi0G7yqhmcpK7dwLFPC+7Ny6
Gf0nutVaLiqWQQFKpJYLZCojqSWj7ogxCvA+ePgxofAYaprpcjsmNAMlXErB
pMcqKFPGay3QagZafCWMj5aroui5uaxHqTOQL1kg+re1GipLYGOZJM1AY+hP
DG5ADeU/YTjntTMDUmYsOzK26iihzCW3TXMWaj8oJo0Pq6PTEqsz1OuzkNz5
W03SXgN96P/AQ3g0Cw/8Fm84Tmogr63vEc96ZiGUT/yw9CVN1LnZNeu9NQul
ikw9/tOaCJfo2TyoQAXm9QNCLQ5aiB9Yng5aU+G52uvw/HktpCF/sexiNBUU
ncosd720kcyWVOFoJRUmztRXX1zSRvRXX6qvjVFhsCjkGPjpoNkV+fSLB2mw
VXNeT3pNByk3R+rFKNFg760vIe7mcfSIOHVI5BwNzNROGYduHEcua70+zEE0
INmrunv4YZH8deek8Fwa8DjjiHkBWMRaIV8jkUcDB1wh58BtLHrTc6a3ed8/
fI9Ua4Vi0ZHf9YMMT2ggG7/5czcGizRGktXiCmmAr25KTs3ComtZjhqJJTTQ
ZTlXRajHopbRWae7VTSI40hgWCBiUeLVIw3yr2nwH3ertfB7LOJlxLB07hsn
qrUd3opFThlivow1NMhWFzxp8i8WjYZ05OEJNFi/Mj30cRKLPtYSLALf0QBd
E5LnnMKip27G7bxEGiS5XggCChYRNbqUa/Yt7dMuWkzDIg49wtBqAw3Ox724
7rWCRbbWacG4JhrkJlHqntCxKGdaDM/cTIOFVGG2wTUsqrd7F1S8b/zj5Aqd
TSxyGFJH0y006C3owLhvY1GYMe/h8FYaCJT8vvD4FxYRovgGRNpo4FR+/Fnf
LhZxnT0RXb/viirvzb29/Xu/aAXbdhr8D3MPDy0=
       "]]},
     Annotation[#, "Charting`Private`Tag$16381#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVynk4lP0ex/HBWHpQkT2PRAnZJtJt/f4S9YSEqCSSIlLZi/IUsm9Jksp6
krKcsk3FxG1rCElD9rLNzahosmTJcJw/Ptf7el3XZ7urt60bN4lEClvf/8sY
5igcFuwE4w3KbbsjGPiqmU4NO6cTzugnJlG3MPBc8S9WyXJdEBgzy6tL+4Sb
EpFDmhld0PvJO7D3/Cc8PqKH5P3gM0if8dWTq+nApRquH5hK7AFMxHtrnNBH
nJai2JUg2AukCsVH1UHtuLNr23m12F5IodMipyY+4HlcclFeEX2Q7m5s0dre
hlNQXfPk9QEY7PSoTqO14ObV/FbjF4YA03vV7b1KxylrrvMS7CGQH9oVJBBF
xxPkz7QrGg5Ds3n60axNdDzAtSrQrnEYWIrzuqHK73DTcZ9GatcIWKkWt4Z4
N+CjU1/OBs2PwRszs7zTh2rx7qR4arIeE0yP6RlOdeB4i6behoJ/mdAhV7cx
QxzHy3xTS/p4CQhhWVxRya/Gw+bN1/QlxqGs9Imh82gVLs95ncHRZQHTgP03
lUbFxbLc2OI3WODKFrWX2EbFBWCLqQbOgmbxHf3KERX4z9Ar350PTUJjTcoG
o2PleA15p37tiW/QmJzkqUUuxZ2EUnrCg36AGg8uJmxfgH8Q1t1AdmKDT+Vb
RcvAezjDQjS9PYQN7L6x2ZqGu3hv7LTSwww2YLMeGX7iyTiT95mpxuD6f8JD
vzsiFl/hSIaedPwFw/mCiQ68wbjq9NLvYocZcMkoONfYFwQx7dVM++NzEDRW
oTRmlAlJQo/85a/OwWKy+vDyoyxINb/K/f3+HOQEj/TOz2dDNl1DPvTzHNyU
DH7dY5sLr2qyHQvt5gGF39no8/sJEC/CGKu2vyEjwFqyaFMBmNwxq312dBGW
BYf91K1KIdS8ooBxZRHC/2qrb7lfCjW8ivc4iYtA6ueeEfpSCvohJPdjbYsQ
c3Yl8vbFMtD2pAmu/bMEgoql0zZh5bDjAOXEcZNl+F2k814tmwp8C7LT5L0r
IKllPbkptxJMy+J7NO1WwBorut7+tRLCLy/XnvJfAf23tSaHZatgdaznXknp
CgDw0wPTqmChI0XvtAYHDGOdHaqiacAqFIgs37UKrYFbpz2dq8FNc1mYIkxC
jJSxWyzvWrAciH4qJUdCfG+nVuwTa0EnWtyIpElCqVGvi/MKa4E8pHXpozUJ
uVTl5I0za+E/SRdaLqeS0BVFx1aek3UwNNUVVbiVC2X2Ohn0YPXgUPxyTVGV
Gy0MxfO5jjfAERW3XxKHyOirdUEG5Q8dluMDaV+Ok9HL0818M5ub4Pl0ZGSe
OxntuKidnqvUBOSKfOk9UWSUqlaf3m7TBFXGrP1H3pHRnFBav+uzJlCy80q5
fYAXyTipzcUebQbSLV9tNvCh/7LbNQNS30NZ17+B7zEBlCUucVxjvhUMRFVf
km8JoWlzlXeC+zvgwp+UzKcnNyOW1utgD3UGeNMntF8eEUXqUpYv3tR3Qtwp
vp2cS2KIT0TahmXxGc413XCneEggA4W+7ooH3VDHL23j5SCFZHx2H8yr6wGK
SGjaZIAMmtzk3KTwvRdcZo3UrC7JIqocLUzsRx/kZr2TXUiUQybfYzPhZz+U
J+kPMGzlkZlv2N/PBwcgoMrIOtNyO7rT7ZtHKx4EvOXpTKyjAlqw8PwcF/YF
PA/pVXueVESVv4orzxp9hYznFKrXxR1I4aHehOvqV7g7Wx3mc20nuk3lUT1Y
NgTjhYFXPfyUUHXSB0sVlWFoPJiSHh6+C2kaCzuKhAwD19H+0Tuhysi470aU
Mn0YSPtfceUEq6A4Cfmqn4IjECO5cIQRrYr+XYsReGk3Aj6nztUv3N6NOA7G
RVxpIzASpnMe7quhWLXeJd3+ERC797A/NlcdRa3NHK+RGYX8zarBTY810J6k
Uz8m7Eahzm+b2a4iTTT/ddenb3dHIUs+R9bITgvlTR0Q2Ph+FKpDlkkeHVpI
LiFLKpwzCtst+FcUT1CQS19LUrXOGFR8VInv66KgVS/Pbc3uY5BAX9WSd9qD
onI7Zm8+HoN7/pMXXQb3oFl7W1/H1jEIEZfbpOCgjXx+WuwVXRqDAhXeloBh
bXR6dSbkjAoT+Oa4pOucdRBPwuq0lT0TnmmV3sya0EGnJcYnaLeZoOJaaMW5
vBeJNbtoqpUwYeBwZZn9971oY3b0t2e9TGA8ua4O/rqoNTeHFcdDwGK5jaHC
jC6yOP9xpViVgLU3ftSoK/uQAr+Egb41ARZaB81C5vchusxeNekgApqcND29
/DHknf15OSKDANFzHrTMQAyliAixd2YS4OyRK9xxDUPKte3d9HX/9ttSphOC
ofw9PMEC2QTsiFlY5kRg6Crhszk+l4DQMjwhOQ1D3Ws5iYn5BOjzW5dQKzGU
22HQGV1CQJRQLDeLhqFzhrOrSqUEfBKpt5OpwZBaaowsfd0esjpLN+sxZLf5
hDq5nIAHFCmTf1oxJGvz/uktKgFzjsOd/YMY6rtGmfOvIgCdlVYSHsJQqcms
sSiNgHh32yAYwVB6e9WNknUr+DbK5hEYauN3a/3xlgCbqOdul6cxVDZ9seE8
TkBG/MjrbDaG4qjZWdy1BLCSZf5izGDoJ2vKK2fdoY8TXuguYKjBeXhwoI6A
tpx3JM8lDFlGxIYG1xMgmb9q+/gPhpIG7SUkGwhwLdr39AMHQyE9h7Iq1v2i
xGdhbQ1DLsyzUraNBPwPLyX/JQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$16381#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nc4FQ4XB/CbQoXInpeIUrJCNz85J6veRHZalHntPSMzXUVCoYwSJaOo
yPrZm0SyrpHtEhWy8iav94/zfJ/Pc/453//OAQsXA2s6AoHwdXv+n6Ixmxlp
xHRVAgErtETXVIp3Swo7kYPANEhH2z7gvWqN75vMw+QYsHqikEIN/qIarzR5
leV+IngWcDV1r0ypNsq62TKQnwLblkAdRP5SDeDaKtl6lgGuK3LlxlF/VRPi
NFX/RGeBbP5oYwQdA+SzRtWt++eCK3u6Bv0GCzRHdZ1dsc0H5pGjoY4JHLAQ
zkzzzXkLu9bHhu6280JgXb7k2rP3IKjpwWr6nAh76QwdvRKL4E04IdD8rigk
4OqbX9HFsJQ3HaTDLgFiQY8X3cJL4df91J1DM5JQUKGisOBfDgaMNJVZFmlo
UQ4rnbetAvvU2yvk9OOQq8JxSzG/GhS/plIOSCrB4qDVU8+cGnhw4z5/SR8J
bvHvHl96Vgfrm8xH5bJVob700k75lHqQsHnu920KYe+l3INuiQ1Akg8huN9V
g8REXduf0U2Q56bi3MWsBV+VnlGkI5vBmxyQHvTtDBzsXcx2Cm+BtKhSAtPg
f6CA89H8nH8b8HAdmTBY1oHW2EG3GdsOMOv69kk+1BAoSQkt8XKd8Oq91+/p
MiOQIsPl4/mdsMCQKnT3jzG4M8bedM/5DOPOL0e1n5jCX02FyoVnX4BtWqsr
45QZpHMN6z4gdoPvkaKcyXJz0Ji6PSKT0g39Dz1i9NKvw73wPoJLYg9cVR3x
z1WwAN46f/Xv0X2gYHUx8kC0NZTHiXVHMfUD8xyHhbeTDZhZfLSSiuyHH2vR
kd36tpC5gxjhEE6FEc6pmHgJO5DDmuZZ/0GoHW2Td9lyhHMVjLrTtiOwtNGa
8LbQHeS2LFa4F0ZA6u68NPWCB0SJmH8SUxmFrGhn98PfPcDToszLqH4UbiWG
XZOV9gKNadf6ou4x6I6lm6C0+MD49+EbvisTYLTv7tsCi0DovX+v6MHJSagO
mwgfJ96CVpmTe7IDJ+Fgv4TIvuFb8M7tYQGVfgrU2F7EPpcJhpCVc1vK3NMw
byUs4FgRAiKbxSmbSjOwXKjV9Jf+NnCmWS9w3ZyBf6uDgqU9bsNu4NCQrpoB
+8ynLBpjt+FnsPOc2ZlZOBiP1QLVEVC5S1y5+uI30GcSYrxKocA15ri+UN95
CI04IcWrFgXtLEp7dl1bgJx6gb79knHQpc2e9ClgAc6rZ7BcJsdBf+QPiccp
C+BeZtmznBUHk/RZGtJDCyBIVOsUPhwPfzZ5gk2vLEK0hvHCP1IP4ciP36t5
l5YgVY7DT0A9ASifKiaNTZYhMp9qWPPqCajFaFZnXVgH/+Gk8s/CzyH4XGF2
l/M6FN4ISzI/8xwq6cXiN6PX4XFQ/Mk9Ls9BOYBgY/hxHViYd8jnVz6H43bl
TFtnfwN/YEHMafMMOKgud9FEbQMWCl4wXX2RCQxrgj92Kf4B1pPrnJYaWWAt
s8Eix0JAjv78gIbGPNCRtF7kPrML7xTfKZumFsK77kCvFtJu9J9zbHXRKYd/
2I/k7wpixmJ36SePz9aA7X/jUl+YsqHhRdeCi6v18FB3vs7vOhue9wj44LSr
AarTNb/pkNlQqC20LIK9AXjPriut+rDhkMnhuVrpBmh+eK1TK5ENiX8qCh1s
G0BS+vDOmR42PFBhtLOY2gBz1yvIRwz3Yx9XkGVNXSPwFnLH/L28H1ck76jl
dzWCBqNrUZfFfmwKe5ieNdYIKa9F6W66bzt258+SrUY4v3EnuS12P3p/Exe2
VmmC1/EGnxw796Pn7ip30ZImcGmkHc/XYce30bKNXv82QzXmOUiZsKPngLbk
2KdmYCt3zcg2Y8f3Dx79sBtrhoL83+yZLuxYOJkk1sfQAktJTEtJsex4yG3X
gqJhC3g7yBSE9rBjmkpa+OelFmic+kXbGmZHzuSjfwMZW4Hneolw4DQ7uqy3
mF8UbIUSo9MxPmvs6L1o9vaRViv8PmXo7MjHgfU6rqU2qa0QwOYjZXKNA+/1
PkkOMG6Dj3f/sfpizYGLqGD4wKkNhOgJKXrOHKgV1Kc4dbsNKn9TmLSDOLDX
YifFtLgNCBNPvkE6BzIanXKIFfoIYUWVrySnOFDWNKqvcv0jdMuEjb78zoEd
G4dW0rna4WDOGd6DqxzIpMe6OCzfDvVpnXeIjJyYcMGYzca5HRgo4zYckpxo
uD++5OtsO9y9zCC+6ciJ8pqvR5/8+gSqssyrs56cuK9Wk+0CZwcs0rM39QZw
4k0ej0/mih1g+lbIriCKEx/7xhUk+XaA+G7F15Z5nGikt1lbuqMTqossFVvn
OHHBIT316qNOWGWr0Uy058I8MW0Bh+HPkDPdyB3uzoVJxdVmx359hmv/fqS5
+nNhbl2oMuueLqi37Y88d5cLDY6Kh0kpdkFs5c/2zWwulDKdCM263wVSjkQT
q1kuvLqkUGeg+QUsm27ayJG5EdWyL5cUdYOVioTuqgs3chof+r7c1g02bzsV
y3240SRVSoI43g3kZHF6zTvceCDk8ZDsvh5wdunIMH3JjeYbfiPS1j3gzyM2
FjTJje1vDthbs/RCQFR7s8Y8N8q8VSG2H+iFwB2+BXuWuTFMfdljn1IvBM99
DIrfyYPeQ+/n+c16IaLKm5glyoO5Iab2Z/J6Ic629cqn6zwY6Pl73gP74OGQ
p3o8mQebOKjVxwz64JG+8FFTVx48lpThUGrZB0n/eG6MBfGgXJ3KO82IPkhj
JT5eSePBmIICEfmWPsgpdusVHObBvybVt2y0+iFPSrBybJIHi3/MlYJxP7xO
b3zxcp4HLS9Ycsxb9kPBPQEv2T/b9zgdvVAV3A8fzBs4NAR4cVTcPeNSST/U
MPLpO1zixWnmNkqNMBWmM6TPUW/wouxoNjIcowIzaqifsefFryes5ojKVDD1
dVEUu8mLYWZt9B2GVPg508A3mMKLT85eLVO9TQWhVvfxc6O8KEb/rHBtlApq
NpTBkhle5AtN9e6YowKZLq1bYpEXTfz0Em+vUqFQuaWRjo4PwxyzX99nGgDt
XOHcMjE+tCfLzYgpDIBf1EePI7Z8+KY6v20paADSDo87Jrls7+lnlNYoA1Bf
v2bN4MuH3qkUvYnYAWDbFDUdp/BhqmHIfc+MAchy8lN5ksOHKZoy7pSGAejR
laDf+4MPTbgepfTQD4Lc/uCEWU9+fBP6ym7AbxDKdvcdbgrgx89v6ljlggdB
jSBdnhnOj2lxV04GRgyC0c/BEfOH/Mh67/DqatwgeLefkOx9z49D5PPjXrmD
8G/kz/LaJX4k7uk1aBsYhLN05mPJrgIoIhB7qvH4EFz/dUpK11EQawgknYzu
IWBhJ3R2ewqihkmXwSfqEJTJ1npcCRTEp3sIN1a/DgGns1Y5+b4gylCqOlVm
h6B5RvdcWIEgMsWN3kzeHALZr+bkkmVB1N3o2PlSfBgILSGZooFCaGbG/UXM
YxjS0xoE16KJaCxipSXC8BXe31ce7DIQwbMb+e/nWEfAs+yUXur5A/iG3+iv
ya8RqGp9sRR5RRTVnRnIlxxHwe7MyQo7UzE0TJcsy+kchZRXckUO9gcRWTu7
BU6MQeyvihBXH3E8LxoqL5swBtM5Xt5kdwmMULh18eG3MajXiksKDT2Eyb7D
Vf2nx2HHhYHxmODD6Mgb51YeMw6E0x92PPOTxLzV4tS91HGg8KzpdN05gpz1
OxrcxSfA9bJl7VrYUcyqKHq0134CxkIUrOCRFO7pyWXPeDsBnPGPByLTj+EX
e03mS9t/yUu2I35NydLooy/JZiY/CTXuwpqHcmVwT60l9br7JKSJPBM8ZSSL
Bdaiesp5k1ARsEEgd8riyHfrudMTk3BAm/GP2EU59FKV9pIXmoLCDsl71G45
1HcqVMnXn4Koxr+yItfkMcrr7NI6ZQriPWbtrw/JYxdrbe3R8ikI4CKyil46
jrc/xIgQ56YgW5K+1XP0OPrNyUk1CU0Dw/IOvhozBUzOk0wY0J6GLNm3t9Jo
CpjULTpxJ2AaJC1ydDedFFH0xoIPMXcaBv9T+s54ThETGroNH/RMQ1eG/zHw
UMKvVcdeU+hosP5eX0V0SQmVO4/ZxR6lwVaJe1GE8wlMXaDULxjQQFtWSzNg
5QS+W2omVQbQoOmajJ2DBwlXtJtrvj+nAbsluTzVi4SOaurhCRk0MCOns3T6
kJDHIfMEZNJg1Z3jnUIACYf1xN0evKDBQcraxmY4CR+e8ZKRf0WD4HdVUQ8S
SOh3fm7Q/TUNlBn1CopKSehBT79ntpgGEcyRdDPlJBQ9x/IjpoQGn/fXGvFX
kpBl4nK9UikNyIIKv2/VkrCG+lkjvIwGiXK8amfbSKioEvKIWEGD5SujXwaG
SPg4xMdXr5YGeINPgmWEhFefKXqsbvuejYEvjJFQfyfZPKWOBqJu9YKZUyQk
qisyz9TTQD/ilbXTj+2+F+qKbzXRIOXeWPHTBRKOkrxUDzbTYOYB/96uJRIW
Fr370LLt4OSoN0prJFzbO3STs5UGH581EOx+k1D7XXtz6bZ5Xv41SP4vCfXu
mTCat9HAIvfEi/ZNEjoH+J3Y9ZEGbwpc17a2SPjU4eSl7G3/DzlGjN8=
       "]]},
     Annotation[#, "Charting`Private`Tag$16381#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlGk41HscxYdGVLp1XVslTYioMNah+P4iLYoiFSm3iIhKJFkqZEkklLI1
9l1kcGVc/nYuE5K9ZBnmb7k0tgYZrvviPOf5POfNec6Ls9f6rqktL4FA8FvX
/77RmZgzkvwZdDftZxzwb8dc+CO8XLI/QwE5nVPyqB1bNVCrYCd+AcVS/BBp
tg1LEuk3DpfsAK2+l60OUW3YsdGAAaX4DnD2nrL/od2Ghfh3E+6+7YROkvm1
YPFWTLzGU3/qRTecEN0/KB3CwMoipTtCt/SAuVRvkhG7GbOyZtw4GNwDjrul
NaPNm7FUHslAR/9eKL1r2Cmk0oSRUVXjuOdXuD6tlRzJ14gZlvMbs24OgMwj
+ejunbUYec16QZQ9AGb6v7kUxddgoaQ/W6SPDEJBj3tVOqkGu29NdzOrHQSV
JzNaQYrV2DGWc21xxxCYXV9OfXqtEhue6r/+cIEJ0bGLu9qk6VhXWEhxuNYI
OH9SN1++Uoo1KWltyno0AoN5OXnl0R8x2r3XH3r5RuGWsE5Bs1gJ5rtguKYt
ygIr5WG5MypFGIlbEs/VGIMm5vvv+THvMWGqLVvEawwUb01gQSa5mAD8cUwR
GwPjXBvfScEc7IfPnUmrE+OQ0p8YtyksE6sg7tOuvDQBKVEaG9JLUrCrgpHd
fg//hQ1ER0V/tSjs01aNTcSrbGCGMi1uLQVC+2mh6BZvNvjMZe1pDXgOPcHT
sjHxbJi4so9pvSUMRvgyjil+YwOZHnoDfCNhhSvmY245A9lBdKCaxIDC9NLP
XItZ6BT3CihQToFnLeUjFy7Og3H+8YJGlA9hgrGupAfzYCsaaZnKyYfXhg94
J6PmoVu9zJp28QMk1CuSfDrn4ZJtYVHb5gL4qyLBMttsAWxYP/6hOdFgNM+3
fdX0JzDrT67ZiBeD3kuDyoyzizBJ39vLFqeDj2FRVvudRQjg/XaQY0OHCj7p
V9wXi5AqyBWg5tFB25tgd56xCGHCE7s/65WBqkPZlrWTS/DiXoYxy+5vkNEn
X7qotwzuCaeSwqgVsJEjMU1UXwHtjDA8zb4KjtFCupXMVqDekz+Y+6wK/G4v
V152XYEGrYJMclYVrDK7X30oWIE0oz3RyuNVwGmL1LqiyIWjB964R9yshrFs
gYBCuVUYEtZQlbSqAVul5a3krQS0j859p6RWB2e+BqWJSxKQfHx394bzdaAW
JKJDUCIgTbl5Rsm9OiAOKDu1niMgcrPOApZXB8lhN5tuvyagCea8nblcPQxM
dQRm7+JBco/2vxoUagCL3Pw1aQVeFDErVzDQ0QhG8rYzoieIKCFGWw+2MWA5
xK2s/yIRtcYsdQrIMiBzOiAg1Y6IxIrSayqPMIBYlL5DJZCIFKIjdqw4MICu
O3bUqI6IFCu94lJqGCBr5hj5VJ8PUWklEQzXT0B4ck+VDRsRk0PNUWpsAVrH
I7d/KALoeyEZ5pLb4LCQQj7xiSDyaD+oJ8P3BW7+inyXZr4dPT5VLDYn0Al3
63HVfCMhFOwUqxde0AXPL2/cx3USRtTgYD4Pox6wafCyI9uLIuPjRWZCWb1Q
xb/DxNFCHPEPSZWTh/qA/LvPm/H7O1FnYl1Xn/g3uDanc9DYSQIRLH92Ccj2
QxK1ToLzQhJ56lAvhKh/h8Iw7a/tpiTUoL9t/qjiANyn65x7d2Yvivet3rCH
OAhYU9pssKUUeh47XPbWdRAcTmiVO5hLIz9toV0rnYMQn0kudrwlg15nh+4U
OTwEEXPlvs7u+1DDb+bkszFDwMp2e2DvIoucTEZmZKaGoPZ4ZLSfnxx6aeWd
s6Y/DDxn+4Zf+uxHY57YJmrEMBCO/sWT6CGPuvaf/17SNwzPxDhG7UEKaGqg
aG1KlgnOl22qOU8PoClD47krjkwY8lW7AVEHUejEC+wzjQnCr2L6gpMOId6U
CMzxJxPStyt4NMQpogRf0SuXVUegymWPgVyOEiq8n8pr4DoCVFKihI6ZMnoQ
P3tN4P0IlHsvE+zblBFybR74xRyBvaf5V6Qvrb/m2N+pPbtHoahVPqS3g4zk
H+geMTAdhdD6VWXSVRXE2SX4/nHwKLxyHb917ZsK0szUpSaXjYK3iOQ2KQtV
dFTcNzNwchSy5Pma7g+qopiolmqSJAs2zvPsqLJSQ4EhEQy5MyzIUC54TMXV
kMmXmY9N3iyQt8425t5WRyHn8unmOSz4eqqUdmFSHc3oZCxWdbKgPcXzELhq
oP4NrLp8XhwWC02OSM1qoNzIw3jeARzWProUB97RRLGRAZN853E4rXzcwHtB
E9EESGNN3jg0XFVycHSloG25dkWzyTgI2diXvXOjIJWTtefjUnCwsk/a2uZO
QeOzXKZ+Kg4/Xf6gqXlTkIfp9u7XaTjIPOMsc/0pSEmWy6+RiYMPDQsNf0NB
sNvsrdt7HLT5z30oLqUgX4vSx+MlOAQKBvOOlVFQVFeLbvhHHD7/Xm22s4KC
YhZE2BqlONhLqC09rqagI/H6sv50HN6SxfVONlOQ16Lt0O5yHOYtB7/0faOg
PIHtUcbVOKDrO2S3DlBQX5CHw/w6h9iZPoQhCnppo6sUW4OD1L1aidRRCtoV
NBI2WouDSWCm7e1pCpornqB6NeAQHzJUksBe73fBfZXUiMNY+M7N7bMU9P1f
17P16+wTF5qnwaGgcv2Guu1NODAS6wgOS+t77JWeLF5nsfRV07hf633Vl3gs
m3GwztFM+8SlIIstZzYTGDjkfXDmrK2t52RJYto6/wf6AQe0
       "]]},
     Annotation[#, "Charting`Private`Tag$16381#4"]& ]}, {}},
  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},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  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->{{0, 25}, {-0.2893170827593571, 0.743733095422943}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "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},
 CellLabel->"Out[65]=",ExpressionUUID->"8db7b6a9-cb19-4300-b41a-8949de3e6820"]
}, 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[51]:=",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", "[", "\"\<BestFitParameters\>\"", "]"}]}]], "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}},
 CellLabel->"In[52]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],

Cell[BoxData["0.02129579347364968`"], "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},
 CellLabel->"Out[52]=",ExpressionUUID->"5f4c18c9-8e83-4549-bb7d-63032de7adc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"logN", "[", "12", "]"}], "]"}], "-", 
     RowBox[{"ns", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], "/.", 
  RowBox[{"fit12", "[", "\"\<BestFitParameters\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.789820082827054*^9, 3.789820111656827*^9}, {
  3.78982037403331*^9, 3.78982038294141*^9}, {3.789831775865436*^9, 
  3.78983177611141*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],

Cell[BoxData["0.06151301974783064`"], "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},
 CellLabel->"Out[53]=",ExpressionUUID->"f44bda96-870c-49ac-bc9e-91bcd0597cef"]
}, 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  ]]
},
WindowSize->{665, 1180},
WindowMargins->{{583, Automatic}, {2, Automatic}},
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, 269, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
Cell[3868, 100, 668, 18, 59, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
Cell[4539, 120, 417, 7, 31, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
Cell[4959, 129, 819, 23, 55, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
Cell[5781, 154, 1819, 48, 101, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
Cell[7603, 204, 963, 26, 72, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
Cell[8569, 232, 756, 18, 50, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
Cell[9328, 252, 2200, 55, 137, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
Cell[11531, 309, 1026, 28, 200, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
Cell[12560, 339, 1306, 28, 55, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
Cell[13869, 369, 656, 14, 31, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
Cell[14528, 385, 1810, 44, 182, "Input",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],
Cell[16341, 431, 502, 10, 31, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
Cell[16846, 443, 552, 16, 55, "Input",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],
Cell[17401, 461, 905, 21, 55, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
Cell[CellGroupData[{
Cell[18331, 486, 1473, 32, 78, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
Cell[19807, 520, 30051, 577, 246, "Output",ExpressionUUID->"7b89c7a1-9d18-49a7-bf31-752df41c7067"]
}, Open  ]],
Cell[49873, 1100, 732, 18, 55, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
Cell[50608, 1120, 839, 17, 55, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
Cell[CellGroupData[{
Cell[51472, 1141, 1029, 23, 55, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
Cell[52504, 1166, 17744, 317, 238, "Output",ExpressionUUID->"8db7b6a9-cb19-4300-b41a-8949de3e6820"]
}, Open  ]],
Cell[70263, 1486, 478, 14, 55, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
Cell[CellGroupData[{
Cell[70766, 1504, 1034, 21, 31, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
Cell[71803, 1527, 1212, 16, 35, "Output",ExpressionUUID->"5f4c18c9-8e83-4549-bb7d-63032de7adc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73052, 1548, 601, 15, 31, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
Cell[73656, 1565, 438, 6, 35, "Output",ExpressionUUID->"f44bda96-870c-49ac-bc9e-91bcd0597cef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74131, 1576, 1167, 25, 55, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],
Cell[75301, 1603, 76969, 1284, 238, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
}, Open  ]],
Cell[152285, 2890, 1553, 40, 147, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],
Cell[CellGroupData[{
Cell[153863, 2934, 632, 15, 55, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],
Cell[154498, 2951, 1038, 28, 46, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155573, 2984, 1030, 27, 78, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],
Cell[156606, 3013, 3907, 81, 240, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160550, 3099, 347, 6, 31, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],
Cell[160900, 3107, 316, 4, 35, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161253, 3116, 589, 15, 78, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],
Cell[161845, 3133, 253, 5, 35, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
}, Open  ]]
}
]
*)