(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    525567,       9339]
NotebookOptionsPosition[    520238,       9149]
NotebookOutlinePosition[    520590,       9165]
CellTagsIndexPosition[    520547,       9162]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Mathematica Lecture 4", "Subtitle",
 CellChangeTimes->{{3.419791079257807*^9, 3.419791085867282*^9}}],

Cell["Symbolic capabilities of Mathematica", "Subsubtitle",
 CellChangeTimes->{{3.419348835600596*^9, 3.419348850909992*^9}, {
  3.419348908504895*^9, 3.41934891314219*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "^", "2"}], "-", " ", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "^", "2"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"2", " ", "x"}], "]"}]], "Output",
 CellChangeTimes->{3.419291433928712*^9, 3.419349069186079*^9, 
  3.419349174874481*^9, 3.419349362598303*^9, 3.419701582977085*^9, 
  3.41976904473427*^9, 3.419769091095438*^9, 3.419769222530334*^9, 
  3.4197934737634563`*^9, 3.419949215709931*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"x", "^", "2"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 SqrtBox[
  SuperscriptBox["x", "2"]]], "Output",
 CellChangeTimes->{3.4192914341015263`*^9, 3.4193490698602057`*^9, 
  3.419349174941008*^9, 3.419349362667796*^9, 3.419701583028017*^9, 
  3.4197690448642063`*^9, 3.419769091161077*^9, 3.419769222582488*^9, 
  3.419793473960454*^9, 3.419949215888002*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"x", "^", "2"}], "]"}], ",", " ", 
   RowBox[{"x", " ", ">", " ", "0"}]}], "]"}]], "Input"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.419291434198496*^9, 3.4193490699578447`*^9, 
  3.4193491750082293`*^9, 3.419349362732458*^9, 3.419700340820098*^9, 
  3.419701583078175*^9, 3.41976904498326*^9, 3.4197690912284403`*^9, 
  3.419769222633404*^9, 3.419793474034669*^9, 3.4199492159951468`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"x", "^", "2"}], "]"}], ",", " ", 
   RowBox[{"x", " ", "\[Element]", " ", "Reals"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Abs", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.4192914343110228`*^9, 3.419349070078794*^9, 
  3.419349175075906*^9, 3.4193493627997704`*^9, 3.419700343436954*^9, 
  3.419701583128603*^9, 3.419769045160742*^9, 3.419769091295795*^9, 
  3.419769222715105*^9, 3.419793474108261*^9, 3.419949216092216*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Exp", "[", 
   RowBox[{"x", " ", "+", " ", 
    RowBox[{"I", " ", "y"}]}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "x"], " ", 
   RowBox[{"Cos", "[", "y", "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["\[ExponentialE]", "x"], " ", 
   RowBox[{"Sin", "[", "y", "]"}]}]}]], "Output",
 CellChangeTimes->{3.419291434674209*^9, 3.41934907041046*^9, 
  3.419349175157967*^9, 3.4193493628663607`*^9, 3.4197015834086647`*^9, 
  3.419769045492272*^9, 3.419769091362947*^9, 3.419769222783009*^9, 
  3.4197934741935997`*^9, 3.4199492161985703`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"Cos", "[", 
   RowBox[{"20", "x"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"Cos", "[", "x", "]"}], "20"], "-", 
  RowBox[{"190", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "18"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "2"]}], "+", 
  RowBox[{"4845", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "16"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "4"]}], "-", 
  RowBox[{"38760", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "14"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "6"]}], "+", 
  RowBox[{"125970", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "12"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "8"]}], "-", 
  RowBox[{"184756", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "10"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "10"]}], "+", 
  RowBox[{"125970", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "8"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "12"]}], "-", 
  RowBox[{"38760", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "6"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "14"]}], "+", 
  RowBox[{"4845", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "16"]}], "-", 
  RowBox[{"190", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "18"]}], "+", 
  SuperscriptBox[
   RowBox[{"Sin", "[", "x", "]"}], "20"]}]], "Output",
 CellChangeTimes->{3.419291434747031*^9, 3.419349070510586*^9, 
  3.419349175279014*^9, 3.419349362933214*^9, 3.4197015835112877`*^9, 
  3.4197690455400143`*^9, 3.419769091428732*^9, 3.419769222834097*^9, 
  3.41979347426989*^9, 3.419944663077306*^9, 3.4199492162161407`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"20", " ", "x"}], "]"}]], "Output",
 CellChangeTimes->{3.419291434899149*^9, 3.4193490705762787`*^9, 
  3.419349175346393*^9, 3.419349363003367*^9, 3.419701583563939*^9, 
  3.4197690456094513`*^9, 3.419769091499033*^9, 3.419769222883018*^9, 
  3.419793474350793*^9, 3.419944666600099*^9, 3.4199492163246517`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "-", " ", 
      RowBox[{"3", "x"}], " ", "-", " ", "10"}], " ", "\[Equal]", " ", "0"}], 
    ",", " ", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.419291435053526*^9, 3.4193490707229357`*^9, 
  3.419349175411358*^9, 3.4193493630677757`*^9, 3.419701583614188*^9, 
  3.419769045715213*^9, 3.4197690915629797`*^9, 3.4197692229340477`*^9, 
  3.4197934743743896`*^9, 3.419944734245964*^9, 3.4199492165582542`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", " ", "/.", " ", "sol"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2"}], ",", "5"}], "}"}]], "Output",
 CellChangeTimes->{3.4192914351290903`*^9, 3.4193490707731533`*^9, 
  3.419349175476996*^9, 3.419349363150881*^9, 3.419701583663906*^9, 
  3.419769045775105*^9, 3.4197690916873913`*^9, 3.419769222984352*^9, 
  3.4197934744535723`*^9, 3.419944746532381*^9, 3.4199492166753197`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", " ", "/.", " ", 
  RowBox[{"sol", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input"],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.4192914352125187`*^9, 3.4193490708402853`*^9, 
  3.4193491755436687`*^9, 3.4193493633066807`*^9, 3.419701583714246*^9, 
  3.4197690458405952`*^9, 3.419769091746748*^9, 3.419769223034924*^9, 
  3.419793474472286*^9, 3.419944770641178*^9, 3.419949216982522*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"4", " ", "x"}], "]"}], " ", "/", " ", 
    RowBox[{"(", 
     RowBox[{"1", " ", "-", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"4", "x"}], "]"}]}], ")"}]}], ",", " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{"4", " ", "x"}], "]"}], "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"4", " ", "x"}], "]"}]}], ")"}], "2"]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"4", " ", "x"}], "]"}]}], 
   RowBox[{"1", "-", 
    RowBox[{"Sin", "[", 
     RowBox[{"4", " ", "x"}], "]"}]}]]}]], "Output",
 CellChangeTimes->{3.419291435305697*^9, 3.419349070917508*^9, 
  3.4193491756272717`*^9, 3.419349363368737*^9, 3.4197015837641172`*^9, 
  3.419769045909904*^9, 3.419769091814506*^9, 3.419769223085034*^9, 
  3.419793474556375*^9, 3.419944858377451*^9, 3.419949217206112*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 FractionBox["4", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "x"}], "]"}], "-", 
     RowBox[{"Sin", "[", 
      RowBox[{"2", " ", "x"}], "]"}]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{3.419291435445313*^9, 3.419349071037323*^9, 
  3.41934917571973*^9, 3.419349363477737*^9, 3.4197015838357058`*^9, 
  3.4197690460414057`*^9, 3.419769091905985*^9, 3.419769223135148*^9, 
  3.419793474636538*^9, 3.419944888364861*^9, 3.4199492174304256`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["4", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"Sin", "[", 
     RowBox[{"4", " ", "x"}], "]"}]}]]}]], "Output",
 CellChangeTimes->{3.4192914355131407`*^9, 3.419349071091579*^9, 
  3.419349175777812*^9, 3.419349363535117*^9, 3.419701583881592*^9, 
  3.419769046148774*^9, 3.4197690919643173`*^9, 3.419769223185817*^9, 
  3.419793474657394*^9, 3.4199449205141087`*^9, 3.41994921754464*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "4"], " ", "/", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", "+", " ", 
      SuperscriptBox["x", "2"]}], ")"}]}], ",", " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["a", "2"]}], " ", "x"}], "+", 
  FractionBox[
   SuperscriptBox["x", "3"], "3"], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"ArcTan", "[", 
    FractionBox["x", "a"], "]"}]}]}]], "Output",
 CellChangeTimes->{3.419291435985097*^9, 3.419349071494318*^9, 
  3.419349176083047*^9, 3.419349363741041*^9, 3.4197015844207897`*^9, 
  3.419769046681828*^9, 3.419769092303535*^9, 3.419769223436956*^9, 
  3.4197934749685383`*^9, 3.41994498677724*^9, 3.419949217737041*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"%", ",", " ", "x"}], "]"}], " ", "//", " ", "Simplify"}]], "Input"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["x", "4"], 
  RowBox[{
   SuperscriptBox["a", "2"], "+", 
   SuperscriptBox["x", "2"]}]]], "Output",
 CellChangeTimes->{3.419291436146138*^9, 3.4193490716015053`*^9, 
  3.419349176147396*^9, 3.419349363804234*^9, 3.4197015845400343`*^9, 
  3.419769046745233*^9, 3.419769092366778*^9, 3.4197692234890738`*^9, 
  3.419793474990572*^9, 3.4199450274582148`*^9, 3.419949218015934*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "4"}], " ", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"x", 
       RowBox[{"(", 
        RowBox[{"x", "+", "3"}], ")"}]}], "]"}], " ", "/", " ", 
     RowBox[{"Sqrt", "[", "x", "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["92728", "2835"], "-", 
  RowBox[{"6", " ", 
   SqrtBox["3"], " ", "\[Pi]"}], "+", 
  RowBox[{"36", " ", 
   SqrtBox["3"], " ", 
   RowBox[{"ArcTan", "[", 
    SqrtBox[
     FractionBox["2", "3"]], "]"}]}], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Log", "[", "2", "]"}]}], "9"], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SqrtBox["2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "22153"}], "+", 
      RowBox[{"2520", " ", 
       RowBox[{"Log", "[", "10", "]"}]}]}], ")"}]}], "2835"]}]], "Output",
 CellChangeTimes->{3.4192914385570583`*^9, 3.4193490739795017`*^9, 
  3.419349176367753*^9, 3.419349364025742*^9, 3.41970158694969*^9, 
  3.419769049101943*^9, 3.419769092587166*^9, 3.419769223748947*^9, 
  3.419793477117558*^9, 3.419945103486589*^9, 3.4199492200841007`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"a", " ", "+", " ", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}], " ", "//", 
  "Timing"}]], "Input",
 CellChangeTimes->{{3.419793579080315*^9, 3.4197935809949627`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"44.124292`", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", 
          FractionBox["a", "b"], "]"}], "\[LessEqual]", 
         RowBox[{"-", "1"}]}], "||", 
        RowBox[{
         RowBox[{"Re", "[", 
          FractionBox["a", "b"], "]"}], "\[GreaterEqual]", "1"}], "||", 
        RowBox[{
         RowBox[{"Im", "[", 
          FractionBox["a", "b"], "]"}], "\[NotEqual]", "0"}]}], ")"}], "&&", 
      RowBox[{"a", "\[NotEqual]", "b"}], "&&", 
      RowBox[{
       RowBox[{"a", "+", "b"}], "\[NotEqual]", "0"}]}], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Log", "[", 
         FractionBox[
          RowBox[{"a", "-", "b"}], 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "+", 
            SuperscriptBox["b", "2"]}]]], "]"}]}], "+", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "a"}], "+", "b"}], 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["a", "2"]}], "+", 
           SuperscriptBox["b", "2"]}]]], "]"}]}], 
      SqrtBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], "+", 
        SuperscriptBox["b", "2"]}]]], ",", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Cos", "[", "x", "]"}]}]}]], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
       RowBox[{"Assumptions", "\[Rule]", 
        RowBox[{"!", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Re", "[", 
               FractionBox["a", "b"], "]"}], "\[LessEqual]", 
              RowBox[{"-", "1"}]}], "||", 
             RowBox[{
              RowBox[{"Re", "[", 
               FractionBox["a", "b"], "]"}], "\[GreaterEqual]", "1"}], "||", 
             RowBox[{
              RowBox[{"Im", "[", 
               FractionBox["a", "b"], "]"}], "\[NotEqual]", "0"}]}], ")"}], "&&",
            
           RowBox[{"a", "\[NotEqual]", "b"}], "&&", 
           RowBox[{
            RowBox[{"a", "+", "b"}], "\[NotEqual]", "0"}]}], ")"}]}]}]}], 
      "]"}]}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.419291478284416*^9, 3.419349112108178*^9, 
  3.41934921519267*^9, 3.4193494022497272`*^9, 3.419701627199279*^9, 
  3.4197690576893797`*^9, 3.419769131354591*^9, 3.419769262571225*^9, 
  3.41979352180105*^9, 3.419793663016871*^9, 3.419945263408517*^9, 
  3.419949264664732*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"a", " ", "+", " ", 
         RowBox[{"b", " ", 
          RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}], ",", " ",
     
    RowBox[{"a", " ", ">", " ", "b", " ", ">", " ", "0"}]}], "]"}], " ", "//",
   "Timing"}]], "Input",
 CellChangeTimes->{{3.4197935834321613`*^9, 3.4197935851478453`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"35.854549`", ",", 
   FractionBox["\[Pi]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "-", 
      SuperscriptBox["b", "2"]}]]]}], "}"}]], "Output",
 CellChangeTimes->{3.419291511077333*^9, 3.419349142778637*^9, 
  3.41934924769018*^9, 3.419349434823996*^9, 3.419701659701696*^9, 
  3.419769165054653*^9, 3.419769295245632*^9, 3.419793557853582*^9, 
  3.419793699356735*^9, 3.419945417382785*^9, 3.4199493008422613`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"a", " ", "+", " ", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}], " ", "//",
    " ", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"#", ",", " ", 
      RowBox[{"a", " ", ">", " ", "b", " ", ">", " ", "0"}]}], "]"}], " ", 
    "&"}]}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.4197935876717243`*^9, 3.419793589371545*^9}, 
   3.41994570437228*^9, 3.419945759932746*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"35.84755000000003`", ",", 
   FractionBox["\[Pi]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "-", 
      SuperscriptBox["b", "2"]}]]]}], "}"}]], "Output",
 CellChangeTimes->{3.4192915438405313`*^9, 3.419349164954981*^9, 
  3.419349281084031*^9, 3.419349467354149*^9, 3.419701692181592*^9, 
  3.41976919876007*^9, 3.419769327711906*^9, 3.4197935939861393`*^9, 
  3.4197937356891193`*^9, 3.419945627834906*^9, 3.419945739548998*^9, 
  3.419945804924183*^9, 3.419949336975774*^9}]
}, Open  ]],

Cell[TextData[{
 "Note that in the current version of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " these commands, where you do the general integral and them simplify it, \
are rather inefficient. It is much better to specify that a > b > 0 at the \
start using the ",
 StyleBox["Assusming",
  FontWeight->"Bold"],
 " command:"
}], "Text",
 CellChangeTimes->{{3.419793980205483*^9, 3.419794083740357*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"a", " ", ">", " ", "b", " ", ">", " ", "0"}], ",", " ", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"a", " ", "+", " ", 
         RowBox[{"b", " ", 
          RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}]}], " ", 
   "]"}], " ", "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.41979359197843*^9, 3.419793593507024*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.304649999999981`", ",", 
   FractionBox["\[Pi]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "-", 
      SuperscriptBox["b", "2"]}]]]}], "}"}]], "Output",
 CellChangeTimes->{3.419291546120906*^9, 3.419349165323184*^9, 
  3.41934928301147*^9, 3.419349469031733*^9, 3.419701694038844*^9, 
  3.419769200852929*^9, 3.419769329326557*^9, 3.419793596459319*^9, 
  3.419945672474822*^9, 3.419949339613901*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"n", "^", "2"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 FractionBox["5269", "3600"]], "Output",
 CellChangeTimes->{3.419291546261959*^9, 3.419349165370161*^9, 
  3.419349283763212*^9, 3.419349469145175*^9, 3.419701694099104*^9, 
  3.4197692027289057`*^9, 3.419769329392034*^9, 3.419793596698173*^9, 
  3.4199493398294353`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"n", "^", "2"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "1", ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4199458546603947`*^9, 3.419945878953823*^9}, {
  3.419945916260302*^9, 3.419945918953684*^9}, {3.4199459580508003`*^9, 
  3.419945959713722*^9}}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[Pi]", "2"], "6"]], "Output",
 CellChangeTimes->{
  3.419291546440254*^9, 3.419349165631463*^9, 3.419349283843845*^9, 
   3.419349469213848*^9, 3.419701694285263*^9, 3.419769203464404*^9, 
   3.41976932942723*^9, 3.419793596849518*^9, {3.419945833031604*^9, 
   3.4199458852532997`*^9}, 3.419945922146*^9, 3.419945960557205*^9, 
   3.4199493399478292`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"Sin", "[", "x", "]"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "30"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", "x", "+", 
   FractionBox[
    SuperscriptBox["x", "2"], "2"], "-", 
   FractionBox[
    SuperscriptBox["x", "4"], "8"], "-", 
   FractionBox[
    SuperscriptBox["x", "5"], "15"], "-", 
   FractionBox[
    SuperscriptBox["x", "6"], "240"], "+", 
   FractionBox[
    SuperscriptBox["x", "7"], "90"], "+", 
   FractionBox[
    RowBox[{"31", " ", 
     SuperscriptBox["x", "8"]}], "5760"], "+", 
   FractionBox[
    SuperscriptBox["x", "9"], "5670"], "-", 
   FractionBox[
    RowBox[{"2951", " ", 
     SuperscriptBox["x", "10"]}], "3628800"], "-", 
   FractionBox[
    SuperscriptBox["x", "11"], "3150"], "+", 
   FractionBox[
    RowBox[{"181", " ", 
     SuperscriptBox["x", "12"]}], "14515200"], "+", 
   FractionBox[
    RowBox[{"2417", " ", 
     SuperscriptBox["x", "13"]}], "48648600"], "+", 
   FractionBox[
    RowBox[{"58913", " ", 
     SuperscriptBox["x", "14"]}], "4151347200"], "-", 
   FractionBox[
    RowBox[{"5699", " ", 
     SuperscriptBox["x", "15"]}], "2554051500"], "-", 
   FractionBox[
    RowBox[{"52635599", " ", 
     SuperscriptBox["x", "16"]}], "20922789888000"], "-", 
   FractionBox[
    RowBox[{"19993", " ", 
     SuperscriptBox["x", "17"]}], "43418875500"], "+", 
   FractionBox[
    RowBox[{"1126610929", " ", 
     SuperscriptBox["x", "18"]}], "6402373705728000"], "+", 
   FractionBox[
    RowBox[{"3631", " ", 
     SuperscriptBox["x", "19"]}], "34735100400"], "+", 
   FractionBox[
    RowBox[{"27069353", " ", 
     SuperscriptBox["x", "20"]}], "3283268567040000"], "-", 
   FractionBox[
    RowBox[{"6050353", " ", 
     SuperscriptBox["x", "21"]}], "623668727682000"], "-", 
   FractionBox[
    RowBox[{"118802490419", " ", 
     SuperscriptBox["x", "22"]}], "34060628114472960000"], "+", 
   FractionBox[
    RowBox[{"47438", " ", 
     SuperscriptBox["x", "23"]}], "306265893058125"], "+", 
   FractionBox[
    RowBox[{"11162375477471", " ", 
     SuperscriptBox["x", "24"]}], "26976017466662584320000"], "+", 
   FractionBox[
    RowBox[{"41478716501", " ", 
     SuperscriptBox["x", "25"]}], "473364564310638000000"], "-", 
   FractionBox[
    RowBox[{"8529964147714967", " ", 
     SuperscriptBox["x", "26"]}], "403291461126605635584000000"], "-", 
   FractionBox[
    RowBox[{"3818348299", " ", 
     SuperscriptBox["x", "27"]}], "271488500119336500000"], "-", 
   FractionBox[
    RowBox[{"2610006147952249", " ", 
     SuperscriptBox["x", "28"]}], "2074070371508257554432000000"], "+", 
   FractionBox[
    RowBox[{"36698180928319", " ", 
     SuperscriptBox["x", "29"]}], "33728645300825889414000000"], "+", 
   FractionBox[
    RowBox[{"1446188098724255329", " ", 
     SuperscriptBox["x", "30"]}], "3844244345104218241105920000000"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "31"],
    SeriesData[$CellContext`x, 0, {}, 0, 31, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {1, 1, 
    Rational[1, 2], 0, 
    Rational[-1, 8], 
    Rational[-1, 15], 
    Rational[-1, 240], 
    Rational[1, 90], 
    Rational[31, 5760], 
    Rational[1, 5670], 
    Rational[-2951, 3628800], 
    Rational[-1, 3150], 
    Rational[181, 14515200], 
    Rational[2417, 48648600], 
    Rational[58913, 4151347200], 
    Rational[-5699, 2554051500], 
    Rational[-52635599, 20922789888000], 
    Rational[-19993, 43418875500], 
    Rational[1126610929, 6402373705728000], 
    Rational[3631, 34735100400], 
    Rational[27069353, 3283268567040000], 
    Rational[-6050353, 623668727682000], 
    Rational[-118802490419, 34060628114472960000], 
    Rational[47438, 306265893058125], 
    Rational[11162375477471, 26976017466662584320000], 
    Rational[41478716501, 473364564310638000000], 
    Rational[-8529964147714967, 403291461126605635584000000], 
    Rational[-3818348299, 271488500119336500000], 
    Rational[-2610006147952249, 2074070371508257554432000000], 
    Rational[36698180928319, 33728645300825889414000000], 
    Rational[1446188098724255329, 3844244345104218241105920000000]}, 0, 31, 
   1],
  Editable->False]], "Output",
 CellChangeTimes->{3.419291546555758*^9, 3.419349165689294*^9, 
  3.4193492839292593`*^9, 3.419349469276958*^9, 3.4197016943554087`*^9, 
  3.419769203551409*^9, 3.4197693294630632`*^9, 3.419793597099394*^9, 
  3.419946020036529*^9, 3.419949340061689*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"1", "+", "x"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "4"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox["x", "2"], "-", 
   FractionBox[
    SuperscriptBox["x", "2"], "8"], "+", 
   FractionBox[
    SuperscriptBox["x", "3"], "16"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["x", "4"]}], "128"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "5"],
    SeriesData[$CellContext`x, 0, {}, 0, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {1, 
    Rational[1, 2], 
    Rational[-1, 8], 
    Rational[1, 16], 
    Rational[-5, 128]}, 0, 5, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.419291546645995*^9, 3.419349165731833*^9, 
  3.4193492840173817`*^9, 3.419349469343726*^9, 3.419701694382217*^9, 
  3.41976920363445*^9, 3.4197693294936438`*^9, 3.4197935972308826`*^9, 
  3.419946078500593*^9, 3.41994934008432*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ser", " ", "=", " ", 
  RowBox[{"Normal", "[", "%", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"1", "+", 
  FractionBox["x", "2"], "-", 
  FractionBox[
   SuperscriptBox["x", "2"], "8"], "+", 
  FractionBox[
   SuperscriptBox["x", "3"], "16"], "-", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["x", "4"]}], "128"]}]], "Output",
 CellChangeTimes->{3.419291546746108*^9, 3.419349165781611*^9, 
  3.419349284096859*^9, 3.4193494694111223`*^9, 3.419701694404747*^9, 
  3.419769203717369*^9, 3.419769329527843*^9, 3.419793597417721*^9, 
  3.4199461348602037`*^9, 3.419949340099074*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ser", ",", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", "x"}], "]"}]}], "}"}], " ", "/.", " ", 
   RowBox[{"x", " ", "\[Rule]", " ", "0.7"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.30080859375`", ",", "1.3038404810405297`"}], "}"}]], "Output",
 CellChangeTimes->{3.419291546848907*^9, 3.419349165847558*^9, 
  3.4193492846706743`*^9, 3.419349469476355*^9, 3.419701694428117*^9, 
  3.419769203798963*^9, 3.419769329561193*^9, 3.4197935977447977`*^9, 
  3.419946299216426*^9, 3.419949340113636*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"Tan", "[", "x", "]"}]}], ")"}], "/", 
    RowBox[{"x", "^", "3"}]}], ",", " ", 
   RowBox[{"x", " ", "\[Rule]", " ", "0"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", "2"]}]], "Output",
 CellChangeTimes->{3.4192915469631157`*^9, 3.419349165898387*^9, 
  3.419349284990047*^9, 3.419349469561067*^9, 3.4197016944683647`*^9, 
  3.4197692047354593`*^9, 3.419769329593895*^9, 3.41979359799096*^9, 
  3.419946465332942*^9, 3.419949340245371*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"y", "''"}], "[", "x", "]"}], " ", "+", " ", 
        RowBox[{"8", " ", 
         RowBox[{
          RowBox[{"y", "'"}], "[", "x", "]"}]}], " ", "+", " ", 
        RowBox[{"16", " ", 
         RowBox[{"y", "[", "x", "]"}]}]}], " ", "\[Equal]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"y", "[", "0", "]"}], " ", "\[Equal]", " ", "2"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"y", "'"}], "[", "0", "]"}], " ", "\[Equal]", " ", "1"}]}], 
     "}"}], ",", " ", 
    RowBox[{"y", "[", "x", "]"}], ",", " ", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"y", "[", "x", "]"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", "x"}]], " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"9", " ", "x"}]}], ")"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.419291547145927*^9, 3.419349166045578*^9, 
  3.419349285069858*^9, 3.419349469631102*^9, 3.419701694613014*^9, 
  3.419769204868668*^9, 3.4197693296282883`*^9, 3.419793598252289*^9, 
  3.4199465914417887`*^9, 3.419949340356826*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "x", "]"}], "/.", "\[InvisibleSpace]", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV1Hk41NsfB/BvQrRYc4WQNd2kJNVP9J5CZem6WSqpkYhribgqNVch4jJa
hQxllxBGQ1G2pp2klMqaZA+VSYr5/s794zznef1znud8zvt9NA4E2B8UoSgq
l6z/duuDA821gwc3DgacECNkiJorH+5SskBFiWeR2SyKYXQtObVMyRELh++c
+FuEYtg0tnLTlDzwxHZ2wSNRiqHNVs2h1b3R1pKypE+MYkxbuye56frDRre9
e1qcYuzymLx3USkYkfsYnvKSFINvrlxxP/UovOfUmsnPpRirtMxKJtSPY65s
VuS8eRRDoicic6fuSdSdGIv8NJ9idKyMNo9XikSn7p+2DBmKkXBtUa2OSxTC
a1s4orIUw1r6hml16hn0WnEy64jLRxuMx9T/xax0TOnIUww/JpMb7RaL+mul
exqJNZ+PGSzJioNA5GzioYUU42yRnN4O3bNoS3GsTVagGJaq2dmDXucg332h
Rus3inHyYYpMneN52FZ0VeURO5/8+Ee84DwkIl/d01akGGvW6sc7J17Aqryf
jSnE0qPBz3TWXQQv6v2E5CKKMZRzT/Jr60VsODduEkScrmB3JlYpAUsQv8VA
iWKwGpP4OysT8M64f3EE8c6obhEtl8s4LKa2ponY0GzZprFfl7GoPDpBQZli
zBcEnqpKTYRRRNAWJ+L+wsp70WZJaG7Xtj9LXO8xe9qhMwlrQzpqaonTFtua
LDmVDBvbV0kjxCEtCSEj6lewMM24R1aFYjiwO8pv116B9iz9vFXEBha6gki3
FPz0ejO6jVhy2t9ohwgHQUu21+0h7i2rCFTN4kCtK13Xk7jGlyoZNE/FNf57
XV/iFC2rUV5vKkQ8pp94Ex9tu6AfEZUGsSe04gHiHZfe+/yhexWBJ1sXORLr
22jlKz+6ij8T/FtALDHbr7/P6xo25l631yEO2vf+orNoOlI/uHFEiV3vCEtr
HNPxZF5AeQe5j62CVrNOTjpcYtIKSohNAreOxwnSscW1LCKUWK/RV/qrZQbm
mgeYWxArLDtvsDsxA82JMQJRYpGoW9ur+zLACS5OryHzHu9+66e9LhM2ZWzb
YOJO05m42OhM8EfqKC3iZ8kaBeOtmZg+Pch/Rt7z9oTl0516WRApSEz3J879
02fwbkgWFng7ceYRh0uULf1XKRsPFy6cv4bk4/etF2K4h7MxJ/lIOI/k6WVU
wGDbo2w0M6cMVxFrz9YvMDiaA0akio8syWPDprnzdzfmQHieJRpC8nokbMAv
XDsXSnbhdCvJ88OZbIOWl7lw80oyjZSjGAGmp8/NLMvD4+zFF16QPixiuY3r
hufBw9fQ9zdi7x+q3OMrr0NHPK7lrDTJ07dEY3V2PtQPnjhuRPrGMzySuO1j
PiJ2m/ywJX1kHnaYDDS5gW/+Vyz2k74Wf5a+wx+4gepKtnewBMWwH4gx9bEs
BDvg5jsH8h8kd5ww5wlvwrltoPazgMamxc7ZnU7FuO20//KBbzSG9qwTkygq
RuicG4oN4zTURo67F60oQXXIqFfoMI0A77U6VHsJFt6Smu3STUPOo/h6znou
Rh2crGUe0/A8reZs4sGF/Sd3TiufRlVmvGTTOS7UFY9zEupoeHzw9fnRx0Wr
z92+sUoaPKaevs3lMryOMdm9oojGbueM4vEvt0AHf+x7cY7GWJvj3ExlHi6K
XyrbwKZxhilx0MGch0v/NNtfjaFR5h6gXJ7AQ+6yzettwmlI+ZtFsdaVQzTM
qd8iiMaDiHd7xEMrYFzs863OnsbqQlnxxRKVUGgROhtK0Xhi8GB/46pK+C7o
PlMoSWN/aUjVSedKuOp9HloiRiO+vOvwhxuVSNbYHCH4JcRAbVFb7vYquPHi
pe0Ghbj62qrU8NJdcE/sPN9QL8Q8OnzvVrUaTAQ/DlobKESy9y6m/pYalGZF
JIn7CaHdor9f1r8GTsvfeDR7CrExv9W97V4Nrsr3qezaK8Sd/ERehUEtXM/M
H9HaKsRnh5G7Ns9rMSlwYT1VEcLpetKzvxfUY2tO4KvIuhno7BgduB/Hx4q+
lFZXagbHnv8PyRNPwD36YcM3w19QvCXbOWtWE8TrqgNz3aZQ3mPe0GT6Es5R
FZzIvZOo90lTcR5pwV++rXHVBwQQ6JpJFx1qhbUlLnxP/AaRqQIZFZ33GBaW
bDC68wVr6f3lDjfbsdnKpfAv+XE0RK55/vD3LmSKuCWmqn2G+vnhqfzRbix2
FpF1lhnC8GRX5+tVPXjqXpAZFdCP7KGqp1JnPyJGdml/+ateSKnmjfX29uLz
xkNubmE9YHvzPNO1+7BUr6HxWEw3vjMKev861Y/f3w/oWRl3IHg1/9Zv9wdg
dHfs2qfJd+i6yY9r1hiCsZWp166Xb/DLp4Wz7MQw9vx42/JTtgXLN80RelaN
wEBiDeX/qBlbMzW8ShVHIWia5NdpNuGYqqvmh71j2PYp/iE35Bn0R5zmtW4f
x7h/jF+l5WPIS49L8H+Oo0jarerO6gcQreEUa6V+wSi736Qhvx6+a6reSdp8
BXPB34o5ZrUosDqQXv39K4qvXBg6YncXgmFlmT4yx3S/PrudPbfBc9g6O8Fi
An5T3FCNqzyc2hZ17VYf8Qr/rl1fuNDosH6bFSXAL5nxp5czSmCyLjJBafV3
iB1YVJrWXoi9ak1Ts159R8UslyM7LfIheBrfczh8Epo8bwXN9hwkizKD7bV/
YPvhZEMvhSzId/IyRfg/wJrwWqrGTYdYaLjj/wKnwM5MdfPoTAWVzyzukfsJ
dj+z4syqKwhKKY6Xq/+JDy5m/0jcvox7y2MkZP1/Ia+XmxbHvwhZ6yD9CKlp
cCdkEtuY59G+4sWr43enMWGkQy9bz0bJVWj3Mmcgtv5hRHl8DPYVr5VVFc5A
tFmK1veJQlhURnj7DSHyjfMKrYMjUDSgypGypZGn/vpokFQYdshKrX/0k0bu
/DBrOQ4LsWIiKu3En942uF5MYYE/JZgZJw5+s/+YHPHano77yr9ojJoyi+Su
sKBcVmTnT8xOKVojn8RCj+N2L4VpGq1ll0sWXmIhOJmd6D5DI83cYp9SHAtF
7LDjIcQ9se5VV2JZ6AsL3htPHFL9WEWZeLf3Xs0KYvF6j4/K/7JgZqJ/c66Q
RqxaT/ziaBbE2589KCXmbh+0W3KaBbyouf6QeCL5wMv0CBZC+GVxbcRWBhq7
NIiHCjk7xGgaqVL+XprhLDwP9e3YTWwUa5mlfYqFOUGutYeILecOrMs5yQLD
0yErgtjldNNzHWLuHxu8C4kl1x+avTSUheHNK23riF1dtTLy/mFBe53Wyjf/
nbdLbZMeMXO5otwwsZsC8+N1FgtJ6vMENHHLuZ7oZcT/B6MU2RM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    Thickness[Large], 
    Arrowheads[0.05]],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{0, 2}, {0., 2.013387969542762}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4192915473215313`*^9, 3.419349166149641*^9, 
  3.419349285153523*^9, 3.419349469705338*^9, 3.419701694647773*^9, 
  3.41976920511798*^9, 3.419769329662312*^9, 3.419793598503293*^9, 
  3.4199466690252733`*^9, 3.4199493404761353`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"y", "[", "x", "]"}], " ", "/.", " ", "sol"}], " ", "/.", " ", 
  RowBox[{"x", " ", "\[Rule]", " ", "2"}]}]], "Input",
 CellChangeTimes->{{3.41994668640513*^9, 3.419946689058056*^9}, {
  3.419946723524643*^9, 3.419946735258234*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox["20", 
   SuperscriptBox["\[ExponentialE]", "8"]], "}"}]], "Output",
 CellChangeTimes->{
  3.419291547412546*^9, 3.4193491661815853`*^9, 3.419349285363469*^9, 
   3.419349469763554*^9, 3.419701694679875*^9, 3.4197692052340527`*^9, 
   3.419769329694889*^9, 3.419793598739688*^9, {3.419946676731071*^9, 
   3.419946691563334*^9}, {3.419946724993573*^9, 3.419946736061431*^9}, 
   3.4199493405365267`*^9}]
}, Open  ]],

Cell[TextData[{
 "My preferred way to solve an ODE analytically is to use ",
 StyleBox["DSolve",
  FontWeight->"Bold"],
 " to give a function rather than a replacement rule as follows:"
}], "Text",
 CellChangeTimes->{{3.419700652045841*^9, 3.419700721683634*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ans", "[", "x_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"y", "[", "x", "]"}], " ", "/.", " ", 
   RowBox[{
    RowBox[{"DSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"y", "''"}], "[", "x", "]"}], " ", "+", " ", 
          RowBox[{"8", " ", 
           RowBox[{
            RowBox[{"y", "'"}], "[", "x", "]"}]}], " ", "+", " ", 
          RowBox[{"16", " ", 
           RowBox[{"y", "[", "x", "]"}]}]}], " ", "\[Equal]", "0"}], ",", " ",
         
        RowBox[{
         RowBox[{"y", "[", "0", "]"}], " ", "\[Equal]", " ", "2"}], ",", " ", 
        
        RowBox[{
         RowBox[{
          RowBox[{"y", "'"}], "[", "0", "]"}], " ", "\[Equal]", " ", "1"}]}], 
       "}"}], ",", " ", 
      RowBox[{"y", "[", "x", "]"}], ",", " ", "x"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "4"}], " ", "x"}]], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", 
    RowBox[{"9", " ", "x"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.41929154751719*^9, 3.4193491662333403`*^9, 
  3.419349285444165*^9, 3.419349469832453*^9, 3.4197016947072268`*^9, 
  3.419769206385034*^9, 3.419769329729731*^9, 3.419793598967635*^9, 
  3.4199468204301977`*^9, 3.419949340650073*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ans", "[", "2", "]"}]], "Input"],

Cell[BoxData[
 FractionBox["20", 
  SuperscriptBox["\[ExponentialE]", "8"]]], "Output",
 CellChangeTimes->{3.4192915475967093`*^9, 3.419349166283963*^9, 
  3.419349286618697*^9, 3.4193494698950043`*^9, 3.419701694730014*^9, 
  3.4197692066789227`*^9, 3.419769329761751*^9, 3.4197935990783377`*^9, 
  3.4199468415271263`*^9, 3.41994934078059*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ans", "''"}], "[", "u", "]"}], " ", "+", " ", 
    RowBox[{"8", " ", 
     RowBox[{
      RowBox[{"ans", "'"}], "[", "u", "]"}]}], " ", "+", " ", 
    RowBox[{"16", " ", 
     RowBox[{"ans", "[", "u", "]"}]}]}], " ", "\[Equal]", " ", "0"}], " ", "//",
   "Simplify"}]], "Input"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.419291547696443*^9, 3.419349166333638*^9, 
  3.41934928706008*^9, 3.419349469962081*^9, 3.419701694752859*^9, 
  3.419769210287168*^9, 3.419769329795514*^9, 3.419793599243353*^9, 
  3.419946950622802*^9, 3.419949340797824*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", " ", "=", " ", 
   RowBox[{
    RowBox[{"DSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"x1", "''"}], "[", "t", "]"}], " ", "+", " ", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Omega]", "2"], 
           RowBox[{"x1", "[", "t", "]"}]}], " ", "-", "  ", 
          RowBox[{
           SuperscriptBox["\[Omega]", "2"], " ", 
           RowBox[{"x2", "[", "t", "]"}]}]}], " ", "\[Equal]", " ", "0"}], 
        ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"x2", "''"}], "[", "t", "]"}], " ", "+", " ", 
          RowBox[{"2", 
           SuperscriptBox["\[Omega]", "2"], 
           RowBox[{"x2", "[", "t", "]"}]}], " ", "-", " ", 
          RowBox[{
           SuperscriptBox["\[Omega]", "2"], 
           RowBox[{"x1", "[", "t", "]"}]}]}], " ", "\[Equal]", " ", "0"}], 
        ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"x1", "'"}], "[", "0", "]"}], " ", "\[Equal]", " ", "0"}], 
        ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"x2", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", " ", 
        RowBox[{
         RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "0"}], ",", " ", 
        RowBox[{
         RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "a"}]}], "}"}], ",", " ", 
      
      RowBox[{"{", 
       RowBox[{"x1", ",", " ", "x2"}], "}"}], ",", " ", "t"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xx1", "[", "t_", "]"}], "=", " ", 
  RowBox[{
   RowBox[{"x1", "[", "t", "]"}], " ", "/.", "sol"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "a", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"t", " ", "\[Omega]"}], "]"}], "-", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SqrtBox["3"], " ", "t", " ", "\[Omega]"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.4192915479290047`*^9, 3.419349166731688*^9, 
  3.419349289114669*^9, 3.419349470118122*^9, 3.41970169488022*^9, 
  3.4197692105760603`*^9, 3.419769329847324*^9, 3.41979359948005*^9, 
  3.419947337285431*^9, 3.419949340929413*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xx2", "[", "t_", "]"}], "=", " ", 
  RowBox[{
   RowBox[{"x2", "[", "t", "]"}], " ", "/.", "sol"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "a", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"t", " ", "\[Omega]"}], "]"}], "+", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SqrtBox["3"], " ", "t", " ", "\[Omega]"}], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.419291548013973*^9, 3.419349166789455*^9, 
  3.419349289173936*^9, 3.4193494701806383`*^9, 3.4197016949043922`*^9, 
  3.4197692106307373`*^9, 3.419769329878756*^9, 3.4197935998073387`*^9, 
  3.4199473722862663`*^9, 3.4199493409456053`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx1", "[", "t", "]"}], ",", 
       RowBox[{"xx2", "[", "t", "]"}]}], "}"}], "/.", "\[InvisibleSpace]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Omega]", "\[Rule]", "1"}], ",", 
       RowBox[{"a", "\[Rule]", "1"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "15"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
        RowBox[{"Hue", "[", "0", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
        RowBox[{"Hue", "[", "0.75`", "]"}], ",", 
        RowBox[{"Dashing", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.01`", ",", "0.02`"}], "}"}], "]"}]}], "}"}]}], 
     "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0], AbsoluteThickness[3], LineBox[CompressedData["
1:eJwUWnc4le8bl8omZCXbOThWSJLUc0epkKjMVCrRUFnJLImSKCshRF+rlNWw
PVaSZO+91+EgO+L3/s4/5/pc9/Pc6/O5n/d9rusVv3L3zDV6Ojq6o9vo6P7/
v9T7s4L0PPww3f9/VrKHmuME3I60OyI6uunFeeXRw8Bbd0Wg3QfRwbS1szID
4uviYuY8Gojo+rVnji4LIBfDD21b20MRnYDQQJWSFLr8+deHzaDXiK65QPO3
sTLS55v2WtOOQXTrllsmFtVRjObT1DXPeET351WOzjogLhp/6GrbO0RX+FG7
QlEHPXmb6rGskoToNPcbGHLro3XDA9cWg1IQXV8Tz7WzRsiRvtpgfvw9oqMK
vGdYOofGP1uoz2l/RHQu+3NWZs3QxWtU8Zm4dETHwyJDPnoB3WQt9lvyzETe
NxT/5S1bob5Cg7sLbdmIjuvBa0ZpGxTNy2/ttP0L8o46QRdCdwOdu9Nn9kfl
K+EvlvnPdjtULWqvNRuUQ9SX57p20gH5uarvv1uQi8AzQfUghxOCBjp52nge
KtnqaKE17oy++YTwTmkXIrrbO3S8elyRfZc5yy2HIlSy7sHxZsUdyalKbE7E
FSPvfU465yheqN7RfGHeswRBS/H05xFvpEOa7JlrK0N0qU7RhkxPUKKhgVnW
nXJE1zma+erWU7TFK7vRfnsF8raNBocOf1TY4v5jRuU7KsncUfqr+TlSfsqa
NR30A/ULiwYEk0LQi8935T6RqlD8b2tlfrpQNNXXlGRXUIX6C/k4KvtDUbJ6
TDR1/CcCUa88/6xwJDQp7zuhXYOUYiy/cwVHIne+kI3UzhoEqLteNzwKtWkt
ul53+I2CH4lXP4qNRqFvim6PxdWizImtxxqLY5CvVEraH896JCbdqS4bF49W
2/a/mm1rRP4Vo5mxL5JQrgqTVQqlCSlZc5e6HktGLkHtshc9mtDK+UXbbZvJ
6I+WW8kvkWaUSZ+sI+ieiiY/5VOTr7UgTmudma8v01D340NaF+bbULOuAhun
YBYq2aM985OjB1mqexylxeSiBwE7872tepB6Oav8bpE8pDky5Ls/m8DdnZba
8XkoL9pXMMm4F/GUjFLvp+Sj7O2Vx7xj+tDKTQsHztJC1HibZLCbdwC9MFag
zLwoQeXaKYkN74bQ+iFbi9/K35HSi4yJ5aohFD1seNXR7TuKa89RFJkZQq53
Xgoaln5Hrrercm8eHEY8H0Xr040qkeLriZqtzcNI7ePbmJ/OP1D0pNzivu2j
SM0y+e1c2U9kH5J5LNp2HFW9uRKZ6liLertyA0qCxtFjWrw8XXEt0pMqrRv9
PI7eiofHmTLXIamCBvO9dBPILuZI/sbbOtQ1/Od2TeQEUlrU2eJlU4901PdF
bPycRCUJf/TpQxuQUF/e6BX5aXQxeUkjrbsJ0c07RP40mkYMX7uuNW02oWEG
WV2l+9NIvmWuuVeiGX1SjP70r3Qa3b8Qsf7mejM6/MDdOdKUhiLZ3o1F/GlG
l4QP0tf6zKAM+XNffm22oKPK859VU2dQrvb541isFckcS7v25vcMkrVTVvY/
0opcvwVZq7LNooreQ9ERPq0Iev/92GI6ixrvCTcG0behBoXeFzFTs2jqE2m7
zGobqtifP3Z6cxb1B3AxsfK3o29HImAr9xxidvQf+KrajqKNDf7c2D+HulMW
ay7dbUdXvIqN9/vMoa2uOm+nB9rRn5o4oUb+P6ivUsdJs6ADDbe63/OT/YOc
WLwiD7Z0oNZ+k1r1Q3+Q1nAVXqR1oPwFDu+3V/6g9NtN66/FO9FjoYdDdp/+
oJt23sUPHnciHrtLHxi155H3MSZGhQNdSJbxv0pD03l0TtctQd+wC8G70cGo
W/NouFxnns22C9m1394tHz6PJs3PidqFdaGKo56BhiPzqNIw57/nY12osw+n
Rq3OozmXryuv17rQrPvW74PsCyh1WXLh0I5uJJQV8M9ZbQENnq+9d3ZfN3IW
jroT9XQBOZOuyAV5dqOA3O6AwTcLSEL3n+LpoG4Uf1YsRS5zAfEcuaCWGNuN
ap6l9BW1L6DdDybEtxV1o0ESdY1hegGF3glzYq/pRitYUcBwyyIxVwyJyZ3d
iLT01XCQsogcfz8N8VvqRhohq3ZyhxeRGnfCr59be5Ch/KFnzmcW0YrBf73R
nD3I80pFKYPHItISePS2X6YHhf5j7D39chGl4MedZ1V7UGqk3t/I/xYRJ6WS
yQj1oKbaRhW5mkXk0ytsP3q2B43f4Dvt3L+IeA5t6nhd6EEb2yxuFS0soldV
JfpvbHoQT3zsUwbmJaRiEduC7vYg2YMD/50WXkJlDKv7b97vQdBKKolUXkIG
Itdqdj3sQSYO17sHji0hY/HE6VNPepBPygyP850l1HUuW/9IWA+K1NqrXOSz
hESfiOptRvag9B6XUwyvl1DQsf9MUVwPqnDNv3E6bQmVLu1pp/uvB3Xu3PCL
xEvoP066fdopPWg2/ci7gaYldLMqqn17Wg9i0PUrlh1fQh+zGvecSO9BQiNV
nU7rS8jlbNN75qwepOLNtlzIuYzOZgvmnvzcg07sNtzJQF5Ge+se1TJ+7UEX
v4XtOX1gGYntRle1v/UgZ6M2vchTyyipb4K2RuCAKcHrA5eX0dQbrymlnB4U
//Sir6zLMrppcqFjgLB/k3gX7xSwjLiGTPZxELimaKSwMG4Z/RVO9vn6pQcN
mlE6tn9eRvaCK8faiHNvZd5u0eDHMrqgc4fBKbMHcbzM5IrsWkYdjxJO+X/q
QSTZBYWBmWXELpeUwvehB2l8368ru20F7RFh+U84meDfysPGSWAF+b4fqI9J
6EE2a8U+hfIryOVeSUVYDKGHCPq324+soCirUh7614QelHUKDIxXUOBpf/Ox
4B60p8v8+KHrK+jV3sXp3AAiX9/bTXIeK6jH4ZsXty/Rz/ZwKlPCCgpIVzG3
vNeD/nuUen/58wqyelzPoX+b4FuucOto5Qry3ngeVmbdgzweDO0un1pBdXp1
81pnepCAzHJK1uYKUltiOKl/guhPA4tqPPcqOnUOW3UdIvgjqeh7qa+iW64s
A8+ke5D1L2/P/b6rKHPuQJv4Yjfaci+cSer1KlJc+TR8ZqwbxYmkhvN8WEV9
/N1rjB3dqN2h7uNc3SraaMgK+ZffjU4JiPSk7f6LSopCWrncutFkqfKNaMW/
6LVuW9xF227kf+vYov+Rvyi7nOegonE3Kiu2Y7ex/Yt6Q5k8jfd0I7VrBYfE
Pv9FQ9vYb5f2dKEmjrqfHJV/0UpIzk6Jqi5knzto/K/9Lzrdyty7LbsLfWBl
udO58Re1fnn2ydC3C4lmm8WF664he9e1C3SSXajwvJ3s4wtrqERQ5IADcxey
2O79zcF+DRksTXJYz3SicLOUWoOINUT/wbu4Lq8TMW0ubjANrqGoh2bKJSc6
UVIq8/PlhTXELRXZekSuE2mdEeYfZVxHvo0yrcfYO5Fn0tE95QrriO9Fg2ZL
XQea1Qu75OW2jvjLkwN5TnegjkilkjnOf2i2O9Z2rxpxPjel7XAh/0PjEc75
FeztyIJD+tLfA//Q9e2xOt+H24jnt/AG/dV/qLsY5HlD2lD/HRZNnq//UOPP
koKVwVY0fnQ4R818Aw2Hv2IVtmtB7x9eYiy4vYFCfscs/tRoQTfzO02QzwbS
uvdknsrUgqb2NCweT9tAbmMNjCH/NaNZweK95v820KLX80O3G4n3itnXGR4J
myjmrVbsMF8jypPbubn5dRNZ7tOJEOtpQO42Lwx8qzdRRSnLlc53DWi9y3c6
cH4T6bSrbKuWb0DeQ7m8dRJ0MLzKwfFRox751iad7Xemg+yfVowqD2rQ88SH
dfS7tgD9j/pasf5ypKt6g5tXcguk2/x6FWlUjpgqzhhLK2wBPsVvdTplZch3
iNyld2QLVN33mTqVUIo8JWpGw29sgfpf7b33PhajO/ECG1L5W+DcX9ngBxpf
kVFMlrzeeXooucUdwll1D/GHDz0Li90KbzTmCm4nVeCn504eblzaDiOtgc/b
R3qx4JdaQfotDHC+3Tls5WAfTt95blmZlQE2+3vf9If04dbGi5khogzw62r+
/Uci/Zhk5CxhdIIB7IYva6tW9eOyU28Z6qMYQEev77gm7yD+p7NY+1uTETwm
aVK04GEcnOye9k+HEaIrJC+J5QxjEgOdv4IRI4gma54R6xnG+t9ZjgRdY4SE
FreyJzIjOFpb7LP+C0aY+5BxuatwBKuD3utffYxwqk4ymrtrFDsdSLj004cJ
PPdW2ptPjGPdeI4FvUAm6D6o6ErHMIElGD39a18xAetl88c3JSZwfbNJVlMq
E0R0CDb5WUxgRXu2rb21TPCy/X1lzY8JPJ58P/mPIDP8TjrGqRExiTH7iMY9
EjMkcdyy6k6fxBHOZ+qWFZghf46zWuPHJD6mpbCyDsxw83SJvuzyJH7XM3iS
0ZYZJLZELVadpWJLHoPp3Z+ZobaTny5jk4r3ehQ8iitkBnedjgvDO6cwy6AM
n3glM/T3+VXXSU/hvIytSKqDGRLdd939YTCF+fTygpU2mcGQp8RBKWoKT2dJ
kT8zsUDGkeQatrQpXCEQnrePmwXIyigopnAKO43eGdQgs4C8Mv9Gc+8Urn9E
Uj2mxwLfJzfYE0Snccp4SNWPcyww+nhjY8eeafzg9Kal7kUWmLpXPr3n8DRW
EO70O+3AAvujYxMfnZ/GAbkv28xfs4Bue3CTdeg0viz671Z3PAskN59hPPd2
Gqs/uUl36QMLZKu28/xJm8ZjZ49RrItYwOdmNz5QMY2Pzvx1vzPEAi+qXyXP
zk5jtxPhsqVTLOBss/hIaG0apycodO5cYgH6eNOIlW00LHDO6kAeEyuoRrHH
lvDT8KlPq+Os3Kxgt3JP7qMYDfswhEVe3M0KFlRWueMUGp7K/b68VZEVMv89
LQ04QMPi3JdSTPazAlpdXVc5QsMmt1ZM3gMrpLZl/3l2goZLhOW+GZxlhdqg
xsvaJjS86FJxLcGSFRomjf2TLGlYtv4C78I1VohIsyj/eoWGw3yCnaNcWSE9
cmtP320aruqikKYescJVMzuHVUcaXlctbzr8nBW4V/r9Su7TsPILy8ch4axQ
8unfsqonDduMLaoMxxL+Nl2STbxp+A28HFRLYQVRK0EHsi8N10fJhD7LZAXT
ylr1hKc0vH2+9Eh3Hiv4HnnV9zOAhjX0z88plrPCsP+zE2+DaPhu0kL8oxpW
kHo6aCoeTMOJG0GGzS2s8Gngz5/ToTTcYSpNJ93HClEeFDq5cBrmyCrJcBtn
hZgFLtvsVzSszWJxqWaOFfwljTlHI2jY9eo8h+gaK3wMzBv5/pqGPxUGFjts
Y4P+JslGo0gaHuSVulPBzgYXZV+XPiMw/10szM/PBoa5+xJuE1i/yuz3DTE2
2El/5NI/Yv8j8T+ehRQ2OHxSkKpO4G/uz+V37GUDowmtfWJEPGoTqfuyJhvI
ZFru+UzkJ6ZQ/PzLMTbgVpGtmSPyN35iepDxNBsk73q52UXUF9A3O2luxgZH
nYKLHV7QMFYPiP54mQ20Fs5tZj+n4YUQSd3Nm2xQfYic99afhinUwlUjZza4
vttueL8fDV88avI+0YsNNIq+uXs8IviMnTFbfsIGjdNfXG56EXwu+TPpBrNB
qfaB5m1uNKzyvsB25h0bpJb8Tj14l4Zt6Y35tT6yQX6IinD7DRqOOU+rDP/K
BitiP6ZFrWmYgUNcSqOKDYqj0j9kmdLwQdv8lsAGNmCSdoxdM6Rh+5Kzfn2d
bPCzS2d19iQNdzo+GfadZgMTpRfbezVoeEeNaHjbEhtoBrz83qJCw0fJedqy
dOyQ/QCzu8nScHob9V0dNzs81DhzpUyA6K+m0WVBdXbodo0Pujw3jU9cjPuz
X4sdrKe2rFWPTGMOb+pjY312mJyPftzQMY1jyv2Sg63YIfjO61PfSqZxrm4+
leEZO+y8U0EbeDaNH9oxepHC2IE/aOjcfo9prPPiHIdWLDuEc1j8lrWbxs0N
NCWvLHao13n3Ykp/Gs+aSbrMd7BDQbl2Vx/zNM5xt2fkGmaHYaUaI9mVKfwg
pihSkcYOx8Zr9/GMTmG2ftOCG/Qc4P3+BNePkiksbRtI1y/LAWqiV1bTHabw
xXuLATUeHMC9ufqxoJSKya+1hCb9OEDo55E5/g9UYr5ffmIM5oDBJJI3fygV
u69T6rUSOYBDCr/fcpmKXz2+yJtXwwE+5tKfA/5O4pqQH2+ThHfAnM2Nd7lC
kzjsM49yufQOqAyeLL27OYEtWi6X9SvvAEuKqV/dAHHeC6wP79bZAfaWFt4B
SRN4a7ySbOidHWB1uer0qswE1kiP+vIA7wCxr2m7+MXG8dG22n+0qh2QkD5W
1LU5hg3oth2/1LgDGvmD5S36xvDVM3c60MgOyNxiP+0XO4Z1PMQfem/nhHG3
lob/+MawvejSf0fkOOGKo9vEmfURXGH7drrchROKrqTEekYO4ZPrB7g9PTjB
12TryRP2Q7g2uFlN1ZsTJh2m47uOD+GOPGbvxGecELz8Re/80iCmsTpz+8Vw
QrGc9O0aw0EskHliv04ZJ0Se0j87ttaP7VbmvKvYuYCfY5+Q1YVurOFgwzfK
zQWFIapju1e7MNNkZ9pWAS7Qj1a38Qjvwkld5a2HJbhA1z/inFx1J+4tfiX/
VY0LJLSaOF2VO/BpvwPtCZe4IPCTry33XAtW4X60xyOLC2SZrQ+Ne9XiVTnO
XgVjbkhN1z7T2h6Bl2IFH+214Ibxh9FWUgzBeGEHmXTgEjdMba96MWLrg2nz
B24evcENTNqcavfzHdBgwdUlCy9uiB/PtMl//xZV6+Vw+CdxgzV5riDV9SuK
vnURDS5yg9Xx3uZuvir0uuf64NhfbrDkvnX0xkQVCj/t5De9yQ30AyEeTwp+
ohd7/X+tMO8ETpH1TNuLv5DPWpbpDpGd4LjiXuIcV4tuPd9ur6mzExJjz76I
82lEmmkf4yMidsLvMNkank/tqEss7e2xNzvhzOOxLdoMHcg94n3cwtudQO5z
qBG81IFyHiXHnHm/E76XsW+W7ehEKmbxkRyFOyHmZdLhDrsuRNkeHvxkYCd4
pnb+0uTtRXyXPLxd5HlgcyZ5lidwAH1tdntIVuaB6LfjlWeyB9A5XdcHzft4
wDNwXcekfQCF7rvnqYJ4gGeF9uqj5CBiZ7vrSjPigUhBno6AnEG0Le+Kvc19
HhCzGd/zpWkIzXHrWpmU8UDOwedWQl0jqN1Oov7mDx7Q/CfV07k2gkqIu8LD
Gh4YvFo1pSM0ioLd00RTW3lAv3pDQ8pyFCkNsvWtTvLASmnP7uW2UXQnq+5C
7E5eaHswPRmKx5AJa+rvLAFeaLY3vbTZOYYOX/M+VCnMC6d/ao3sXBpD7LuU
hWekecH6RODKXrlx9NE7tBs0ecEr6pjxiZBxNHna+PywNS9Y/p6Jfao/gRrf
K/xaucELiPyJzvjKBMrfynCQ/S4veIfO3q28P4Ge5XwTVHPjBTELg9TwhAkk
IyrQ+TSIFxzaV492zE4gTrfZkzGhvFD7Jut76dZJtNJYlZf5mhdm31QP6fNN
oqonblEdCbxQYyJ6UVdjEtnSOs3kvvFCfFaHXa/XJDI48bkKFfBC/YLaTFvQ
JFJ791z9XAkv9Dv+t9UpdhIxmGgKeFXzwta2X+5BBZMouSi2rbaXqN/guKTR
/CR6we9yfGiIF2h17B/P0VGRi4NBzvI4YedlEFtlo6Jj5M0IsXle6KzdCCOR
qWg40MrEkZEP6iqOBm0zoqI7k/ISSmx8EB05zGhjQUXLx1enpzn5QMLA2cn5
KhWxbA31uyHIBxGPxQQjnako3OqikbQoH5yZDTf55ElFwsWywiOSfGCZlvrk
ri8VKbmVf7FS4IPDLHcb/oZSUX7rS28RFT64Krm6VB5FRdqqlvrdanxgMVhP
1oinopoQGYHog3ywkGhqcyGZikxmFoZMgQ+ktITLFD5SUb9+aQbvMT4YzejT
TsuiopsfgjyaTvKBXWLAcss3KvK6JrXz9Fk+4L0iJ7u3hIoYyv/0spnxQVFp
R+W1CioKFsMfqi354PNSf/2xKioSfPDcxf8yH9QeY7Vo+kVFiV2mWjo2fJAp
YHCPo46KFA+QOLbd4oMDD36qLTdQUU7EbEfpXT6A5B+fg5qpCBYKkx4680G+
WSF9YysVVRs9czjkxgcK148erGinonMZxofWvPjgjSjZxbqTinrYJJjzfPjg
S5re7+wuKrK5SWt2ecoHIQ9rzmd0U9Hsj/x41UDC/mXwkEUPFbmTn9r9CSb6
bTMT/JnAWx+fVc98xQeBzG5OBQQO7BfddieaDxSLZLc7Epjv8FSd3FuCr+gm
mzbCX/yb3DcT//GB49q1fCoRj7Lqa5uSygfW5UsSGUQ+2SZGe6994oO3bwor
xDuoSPOL8KZENrFfecd37TYqquSarO7/xgfOt2x0eVuoyPDut4i4AkIfb809
IxqpqLPG54plCR/cKI57/IPo11XZ04qC3/kg6gFzQGoNFU093f237ScfqPkE
5B/4SehxZOz7q1o+mLyveMTjOxXRaX8JOdvEBzH7hfVul1JRQLz3Ba52Pljv
jGTgLKIing19Sl03kW/D+ruruVQUe37XYuAAHyTOFBpe/0xFmXzZgUxUPlhS
fpXil0pFGs4PzCpn+CBUjyEn7h0VlTfoknwX+OC82+PEGzFU1Bo4VLD5j1jP
pvyH9yUVWU1mPC2i54fECePS5adUNHHc86wHIz+EptzWD/SmonV6XuoSJz/c
vc3uXWtPRU+sBr594eWHiqtb4z2vU9GO4k8+joL8INP6/WbvJSqScNMRpEny
w4kg5rWiU1R0cub+yRE1wt+nOoEFYt6ElEWeMGnyQ7/zr58XBamI5lhRJneE
WC/0V9+Rg5inJU5NRz0in/kMlVeLk6j333vFzUv8YNNtlNSMJ1EmMrwlcY0f
ivatMwZnTaLHj5ZSjt3kh4QjacrL7yaRzHZt8UBnfvBuGbtd7TuJHNm6d+56
xg+0D497Xh6dREcNfAw1X/ADx6eMsi97JxF/sEzQpTB+YDkomusvMYkKd95j
SI7lh+iSp8FocwIx7OZYVcnmhzsM+dcWv0ygaAr06nfxg51yyvYJrglkd2tU
0L6fHyq5Hr7Ytz6O0KdA07ARfmitskhSHx1Hw0od9R0z/LDQ8cbXOm8cKao7
lttsE4ClbfNuly3HUblOYqq3ggBc/+auZPtqDE1dZXL68lAAvEpTHQPbRhAt
7mgR9hWAup47/UfzR9BMhzfjr2cCIHYuY/ZHzAj6c3r1zUCYABhciTujdHkE
LR+crOBIFYDz70VzoseGET1PDd+NegGIYf46YkkdQrsqXuYLi++C2YOU6cnG
AaRD4qd/WrYLBNkHpXUCOxH3b6kXmTOC8CBgD0vJfCnamFFKql4QBDuPu1bW
l0vRJPfBwuFVQdhgDeq6U1eCysxOTwps2w3WBZxcD80xchq+r/NIYDeYzeFt
Yh35qHmtasPoyG5od9up9XN7Nnote+vufOhuAI/dU0pyTsj31L0n7JG7gc56
l1XX5nFkb/8wVjqWwKaqCRzyN/GJb2G/zqfshpJK0+Vy7yd45UihdEXBbrBv
bxdkXIjGFubs/eHDu8Ew6lH62f8+YiH/DEM1NSH4stEQUHS6EH9I/1S+qiEE
mqTVxsydRVi9JU2tCAmBlcfOAVJrET4nkSp09KQQXH+7Rn5qgnFgYfy4kaUQ
mBRY3XsgUYrXZkO8b/sIAUedncATajn25w+eV3oqBGxDe7/tPFKB+Q6/sFl4
LgSGHjtVml5VYJXnAfoer4RAxE0rc1jzO75JfizwLFUIZo89FD/0qBJ3mjtn
JtYKgYD71BH5wSp83dtR8nqTEJxwLVt9LPsTLyXbR8i1CwE9thHb6vgTcy/Y
eWYPCIHzM6fMexs/se6LaydKFoRA/YWArwj7L9z+5WrB41Uh6JW0P5Ro8Avb
dF1WPL4hBP2R//Cpl7+wj8xFnlpGYbh46EQcC0cNzisz6e8SFAYBxdXdElt+
Y52Jc2ffigoDU+O3C4UHf+PmHWcrr5CEwVeMt/H+vd941vL0xwkFYcgs5jUz
Gv2NZZaPuy6DMATY5U75F9XiSLkDnDtthYFb7fnlBbF6bKz3O7j4ljCkpHVX
NajVY+5bl7lu2gvDsI8pRVu/Hj//8Iy71E0YlIaU+wbu1eMHlE6eu4HCkG4k
93tHRT0+ePLOK8EQYTBNaowLaq3HK9fp+SpfCYP99cn0t+P12CFVll/4rTCo
Lv5u8GZtwNbSHrt+ZQnDqmzhowP6DVj8+I5ol2/CkF2dE3n+fAPutflPUKJA
GMZdf6Zz32zApsm/drtVCAP780pLeNKAeSovxZB+CoNscf7BnLAGXD8yL1T/
WxgavJpTyuMbsC5ZSES6TRiCDPWrY/MaMOOxzLjGLmE4urey9db3BlxhfVT0
Qb8w9A9EC9XXN+DDiXZiLRPCEDkryGs52oDXyukSvGnCwChRJ+8724Bzh8LF
5eeFQURy+rj23wasLFkk8XhdGAR31do8ZWvENC2j/xS3iADzvGUvG28j/nBl
RLJzuwhEP5sEWeFGTHrHTlbeIQKBDlllCvKNeKA0Ial7pwiETepZ8+xtxHED
+6T8BURAyDhxMexAIxYQvyjdJy4CmpFkukvHGnEL/EkJkBIBJtWdLGm6jTjU
6omMmpwINM4eJYecbsQG3oLvB/aIQBXvyziuc42YNT6dEqQqAmLLzyrkzRpx
Fdb6oH5ABOyVgscGzzdi375W2eFDIpDdVmiueqkRH9m8mfZSSwSWUyfuiF9p
xBsim3IHj4tAsuwnzw/WjbjgcNjHUT0RKKw266yzacSuF6UVQg1F4MHCUn/I
9Uas+qDg0yFjEfgrcpI6e6MRz8WeVpwwJ+pv/m48fbMRpxcNpYdfFAG9zxEP
nt5qxDd77u+BqyIQcy3iOyaw9D/WTKqtCLSHGwRGEHhYKF7ptZ0IdDct7mMj
cIKmapaWgwjoP74tLU74u2hZpUy7JwKe6ehHCxFf0NMyO8pdBKwHYrxkbRtx
25tZlWMPRWB92fyL6LVGHF7g+3n2MVH/6HTrV6I+wy4B1Rh/EXjnfvfMNFE/
+9rHL8eDRKCLL+xVpWUjrhY8sm8+hLBfS+XUMm/E9SIZUtteiwA1rSeS0bgR
t0oIC/DGiMATW/+uS4aNuFvqObNUgghshFrf0dMj+JVd/auWLAKdchYT1QR/
o4q2U8fTRODSc7fRXtSIp1RaeswyRcDqy/IWf4LvFY2sEvd8Ecg/7rcjRo7o
/2HR7OdYBDhUwo8ykRrxNu2g/2IqRKBafVWYTagR79C78aS4VgR28CdY9LA0
Yp7TbffrmkRg6eddro9biH6cPXajv10EZo0Sd/KuNGCp8+L69EPEenPfnNyh
Bix/6eWhneMioKRcVbjQ3oBVrv5TJE2LQL92dPPv3w340K0OLp1lERhiCRWw
+NaAz3mEtD1jFQVL4RPXZnwasMXDzapoTlHoj8bWMvcasNXj2/lpvKLAE6x0
eZttA771/GTsb1FReHZi343Ukw3Y582Wq1yqorDb/nzZN5YG7P/27jmJA6LQ
U2r3XvhvPX7xX8+xvYdFYV7AgqowUY+j0vJkjE+IAqv6trpTlfU4s8CBFmkp
Crlh7G/eedbj3q4BNzE/Ucj5WCFe/qUOD/edvqUcIArtYUZXnz2rw5NDRZZa
L4l8P384WHyhDi9So5B1lChwr+/g8NhWh9nWjbanfhKFm1tYzO/p1WINobLg
Pa2ioNORkshbWoMHJUm9E52ixDx0vhEMqcHP5J7IJfaJgsz+AscCqxrcrqFb
KTAhCow/Vva2bfzC980b17asi4L56KBfotovbKHnsHeSUwx8rMP+MET8xBH+
j+IK1cSgYtvc7EfRSsyx9Z3zZR8xUA+/4qL0oAgzrOKzc77E+hvH2jvWC/EG
rUfl0VMxSL7FZBDtUYhnOnfNxQeKAcNVIyFHtwJcnx1yuz9CDA57vXNZccnD
oVce2VxKEwO6WRvRvV5fMV+ZldmFZjFgi2pj7ktNwxy5D/ZPt4rBsGr67rzC
D5ghPYbPq0MMBPK2LjY0vMfLUe3NMb1iYJ3ZrdK/mYLbHQyNusfF4ITEGWRg
l4ijxUH3/D/Cf/oDvQjBNziU/yKFukng91MyTx2icAC7J5MHvTiIvbKXoP16
jT1WcyqjGcUhM873hfnzcGzZsEe7k0scvKsUtz+wC8Qij0Q1zaXEgS6NCxUc
u4LTnZgkemQI3E1uvPRcHx+2mWO8LEfgceIVcOEwuqBX3nRdicBFbBzeHjdQ
DK/tLVcNIh5rf2JuhTeSZzI0WtcUh5Lrd43bjj9GBX/V93sjcehPK+VoK/VD
nX0sW/2PEnb2z4zC0QFo14f06NcGxP4Syb7/pkJQasxr791G4lD/dGjClSkM
qb/0tnl7logXuaPfWjQcmTmfUUkxEwdOQd51k8MRKOLw0s9vV4h6Pvd880bR
SEq5L0PjmjjMstKxT6i8Qd8kq14V24qDIfsxYz7xGNTCFH250o6Ir6YsFDUd
i3iaDq22uIhDPN8XstB/8Sjxu1SfuZs4KAkMs1kxJqC9uTu+93gQOMXdbeB6
AjoTOxA84i0OVvuUU55LvkODL6tdbjwWh8jX+xfTPN8hR5/PltN+4rCimzC4
0vgOhdj6ySwGEPtjnJyY7v+HxCzucLgFicO44W3F8or/UKa+6cL6S8JeuCs3
ekciqlemlGx7ReQbkSATEpOIrEjcyf6vxSH1cOCX1N5ENMO39pyNEEGki6N5
rXAS4livMeV5S+y/Pv9vX1gSiqN9PRSZQMRvKFVx+JmEFAfiJIUSxcHssyD1
43oSKm56yhyfTPhb0ZoZkU9GpyrtZyTf/z/f0V27LJJRd655S0oa0e9Aipm2
bzKyS9MqkEsXB1gsfH85LRmtx8olZGQS9bdPiznUJaPAYJ6nez8T9WzmDN6Z
TUZCj//Z5XwVB9esVikzjhSUdm/0zMFcwp9Ry35ZSgrSuF6njvOJ/e9EnQYh
BVVb5IpoFxF8pXGdfGCcgixOJWz7gcWB6QDjoTWbFDSJAiZ1ywh+Vm+OmNxL
Qe4qTvW1FYSetb9TX3inIGay5bczP8RBwL6aLcE/Bd3chXTTforDCelnnaeD
CP/sEr1ba8RBRi2ZduhlCpKj3+5oWUv4Z74Zf+NFCgpcGtv+tZ7Q31qlcUNA
CpqarI5ibyLsClceO/mmoFN9nxRsWggsEPPRwCMFpTcFlxa3iUPuQOTVy3dT
EEeVkzF/J9Hf2ydOfrBKQXcKTSbudhN2uTvsMqdTUF3mAa+qXnGwf596p0Mj
BSklCXGJDxDz0OmqUSSZgoKjNhPdhgg9Sp081cicgmaDBtUbRwis4BzKP52M
jHy+18iOE3wZ6m0L/J2MuG89X+iaIup9qPFuwy8ZOV664686Q/AnvMG+diEZ
NZ01EgqaI+o/UE+W3JuMwjX5jx5eIvTSmPJgvjkJLSr9bYtYIfrJPH8/OiEJ
mZB7bs38JfR2ZiDo5q0kxM/xX1j8JhEv9rOU71IicqV/Ir26RQK8k5m7anIS
UfvS9QKjbRIArdMch1wSUXSf4hA9swSoj9huhk7+h4Sy8lWucUsA0/HmWK6s
d8gzKbayiEcCDE2pD0LPv0M9Ud4WfPwS4P/vw0ONre9QnI+Oz4/dEuBKWmyg
001AYucaGyhkCaBbLbEYuPkWeZ/4es1HWgKsePko10Pj0IBm5GonhcBZA/xH
v8Sid+SL4oGKElCibce6ZewNIi9P2NP2S4CYRuJIEVMkekKt2XZcQwJm94LX
7q2v0WhfRuRbTSJ/+PCte/kVSq26V2J4RALqT/mEhNWHIdnoLZyfdSWgX2Bg
n/qDF0jx0K6M+xeIfETDq3lOOaPPkjfW6K0IfHHYQbfADqmz5B1/cYXAIhkX
nr+3QlptZv2Jtv+3s/lXSRpiE4dIrkYHon+5fAXFc174YRK/s/wTCeDcVbyS
EPkKbwu0LcnxlwD7uYXO8/df4wDHHDbt54T97KMDTJZROByZJpkHE/uv7ooS
2B+LUzsiWp9EE/4bXQ0io97hena+AwPpRD8e78stE07DxgvX/OyyJEBA3Op0
usZH3Nn5tWH5swS0izA36Fp8wsMpxjc58oh+XV+eeZSQQdwHX705WC4B8THM
fB+ks7G4C8/GqzYJuD6/17aFKwc79nKX69JJwpNNViX5gRJcVWlZ9IFeEugr
FHYJ7yvFIhnJOSzbJeGB6z8Rt2eluPqhxsdqZkmo/5f0n93eMiwhfuWV7k5J
ONGNaPyB5bjhapatrpQkNF7lqaecrsRKE6fZdPUlITc32JmVqwbPzAcan4yU
hIeLd56kcTXj7vYEk9hoSWD2+CQacqQZVxd9M52LkYQxackt9xyaceLTfvOo
BElov0S/vrehGVvsVr048UESAhKZze4Ft+DvWl02z4okwfYre706ext+E0Jx
/TkoCWXuvXKGqx3Y3+Wwm/CIJAReCezaL92JXc6fdXcYkwThuYyLdMad2JDs
5blrShK8TkXLK2V2Yoa8eu8bi5KglLuFdc66Czv033/GzESC/UWf/Sk/uvHx
PZXRJxVIkMNMh7mu92EzhhPn6veQQFyc72pOWB/xvv2T3VSFBGV3E+n5cB9+
8fy3t/V+EjxXner0ZOnHrWPNNg+PkKD75afm2Iv92Dp+SOWrMQmcdu+5ar7Z
j13uX5s6aEaCH58j4rO4B7C/wVhSmQUJfvW0RfSQB/DH9UmB+kskMOd88zJd
bwDPm/3ZmLxBAivF13RSrwawD9eWX2IPSLDyfMRlWWQQh4/7+KZ4k0DDJI35
1J5BnIy3HVZ8TIKA3TYyd9Agrr7NlHXQnwQMYY/5uS4NYq7qHa9NQkkwUNV1
oubNIJZICDHsCScB5wevMvsPg1jVdSeL9WsSCOtfXunOHcRmUvxeDjEk+BNR
VMLSMojjfUSuBiaToPngDEsGyxDONo8X2vmeBBcvTKT48g/hCiWJ1qg0EiSr
v7QVIQ3h8V7yyZRMErjvUA+L0RzCew4q7CnLJ0HfrHxGzs0hDNwZ4yeKSLC3
/9Sdd/eG8JkJpXd1mKjX9OXcKe8h7PJalbenggRC9QUpI+FDuHj+4NpyLQnW
TZ3K2AqGcEJNzpWzDSSY+VHAbFk+hH2T9lanN5Eg76ZFmMOvIXzSVC7qWjsR
n2VGndY5hOWVUuhKO0kw/CGy8NzgEOZglrwu1EMClzz6M94TQ7g5X3B/0wAJ
YnLDA8jLQzgnLCJOcZjgo547Ju7fEI6242YIGCXB9AO6mK6tw/iSCEsLUElQ
eEHuVPyOYay17KcZM02CkO4XTtK8w5hUvyVxeYYEjw2yHB0Eh/Hko1XH9AUS
wBjnjD5pGP+2uNfJvEyCovv24z0ywzhz79yRa6skMHFszVZSGMahbLffl6yR
YNAhiOOY8jC+NzLOKbRB8CVdWSi4bxibFVu73qcjA11c5MMs9WGs8bq/r5Ge
DJUPtwsyaw5jYXvL44rbyZBguHxaHA1jupPt6c8YyfDig/bo6pFhPCR+jm+E
mQy/nT6+Cz06jCv/1nkBGxn0uQf0qDrDOLVJb+QNBxmKoh++33pyGD//+EN/
mZMMEeu8vl26w/iOn/aXMzvJEEWRTHLUH8aGF/HudF4ymGoItFWdGsZ79x98
zCxABvUX5iM9BsOYjzNn0lqQDCfHUUzW6WG8Oq5ypkSIDB+f7vqpbTiMu0vT
83aLkiFXU04jnMDF0bLi98XJUOCWVfyOwAlOyf6NkmSQtxqQuktgX32JWQUp
Msz+nNBeJfzZkONMn8mQwdZgYQwIfHJjFx6WJcO2o1Kjx4j48m2vpECBDFeL
EriZiPx2ZHK9eLOHDFSfJ1pP9YbxH/+gxSVlMqwwzuuVE/U2X2a+cEaVDI6W
2xkKjw/jHA2/ik9qRLxd3Sccjg3j6J1b5JkPkEHz1OvpQa1h7DnlGWZ9kAyW
581rOYHQx/eVv/gQGdoGj1f+JfjQinO+shvI0BQZmBV/YBiT78/+dNEiQ7+4
yW16tWHMZGin3HiUDFvH2ttEVQh9bLGme3aSDIwP/6kFUQh9dPbZDuuRgemg
/HQ3oZ/Qz+frkAEZaCF7WsZECT1cOxu3dIYMrlx7fyoS+jt4uG77GWMycHiw
v71J6FOEX+/2J1Oi/3aOGpeZCf6rtDStLcnw/SDv5QfrQ/iOvEpnwzUy9PKa
bHXpG8L3lgX/XrpOhhqmH0FtrUPYs2yrIO0mGR5+ubAy+nsIPzdrMWexJ8Oy
aYHIDmIeU31dO7TcyUDquNLuEzKEM05fXq33JIN7Rs8joydD+Jug7q5LD8mg
QQoP++0+hL9n7jb38CXDod289b+vDOHB7uL2zy/IUFciSqIpDuGJlJSVIyFk
8PHP9ZAWH8KzjsEC9WFkyHS/JsmxcwhvMl0xm4okg5bFS6ehxUEstG97O+k/
MmR4L/al5wxikyC9tlc5ZLi97y+lWW4QXzBTXZbMJ+zpua/HBAaxtaQwf3Yh
GQLjWo6/3z6InfJoJrWlZAhgpfbv7x3AwSMhrQw1ZOjqq7P1ez6Aqw+1t9zv
J4PRmKI+fVs/bmAqXdw+RIbn/dvNWHA/bm96zxs+Qgaeljmh8uR+PHbDwzhz
kgz0r10Tj9/rx9siRFrGF8iwe3qz+B1HPz5Es242Z5YC+mMChp+u9WK+guPv
ClmloF+ssXhgTy+mPZW1F+WQgoc1Wr9DV3twnPgs6wi3FAyX+uXaPe/BG+c8
tO2FpGDxPXct+/tujAtCsp/skQJjRx5tz5pOfORZcfBnYyn4thkVo5rbigVN
Ei7ymUnBjqG6R7xOrfiPhK+8m4UU6E8tv3yi0IrfFZ6sOnxJCi4knxAXSmjB
9LPNmz+vS8G17kvnZR8343IT6p1+DylwOSbu93hvIz5GEjjF/k4KioO0ePkj
qvGX6e/i1olScKPqcgZa+olJOU5L+clScD7scsl34594m27d2+tpUjAjEB04
x12Fy+4++VP+RQoEH0+cW/P7jg8XLLx2/yEFFg2mi56GJVjtTMPg2JQURDpV
nczYmYxlvANcy/ZLA0tZZcUT0VJUeDBpu76GNNC1vXGsGitFhss4tEVTGjRe
5/HKZZYh1zuLH8ePSIO5Ufad40cqUJWl1QCHvjQUG8X4P7P+ga4fUNM9byUN
1WtbEiI//kbv/wzsXvCXhqZXbD5zfC3ocPp6qtdzafg1MrfrkHsLarzBr8b4
Qhos39mq3uhpQX/79Q0Fw6Sh61bShOV/rUi3LscXYqXBRfOVvL9CO5pMC5oO
zJIGnHXma+z/v7e/dgCTO6VhJDDkunxYP3opYfD3cbc0bJSYdJ4t7kcLfVf2
DfZKg6Ri/6rZRD8qtghMixuShmuR76ZWDw+gM4Z9r/mnpeFHheClJ+MDyO2g
nz0znQzEaTaXn1AdQlVcDeLTZBmIeb9h++TDCFKoG7HUk5GBX4Gpt3TrR1Bo
4N/X72VlILTJ/0zn4giyZCRx2OyRAd2i71/PwyiaWXf526suA5499TdaG0cR
37hQU72eDNh1J3hrTI+ha8XXfb84yEDn0OyV8wsTiHZ78v4xZxlQi3mlpsA7
iVyF7W61usiA4heDkYx9xO3P8+6ZFQ8ZKKMd+/j93iTK1HAR03xC5Ne0xEH6
M4nWvz0uLI8m8i9RKTrQRUVPbLZnnouVgW9DYspdS1S0g+/pfyNvZUBQ7qcT
mXsKSdwLCGBMkoHUBaHg7ONT6PjeEDO9DBk4S7KPfZc+hUIz4hYay2WgQMTt
mvutaSR0SWz8aqUMJMeppjk/mkZJHO+6FqpkoNc0hp3r9TTKvZ1UxlcrAw3e
t9IVS6dRj9zHYIt2GRD5YXdhnpOGbLoUfKmdRP1l8R4LkjQ0G5Bx37OH8Mfn
MBGuRkP0k9kX4wZlQE9X8Wa2BQ3JpObJD07JEOfDtTOmcTSUbXpQzGlGBs7h
3ft002noIGPRzm1/ZKD51eH1jiIaMrAp+UteloEplTHRui4aaufVon1blYF7
D+4u7J2kocvfyweOr8uAyUW7WNUVGnIm/ai6sYUCk9p6d5h2zqCNphOFf7dS
QLV3TrBLdAY9fVyd8ZyBAjefRiadkJ9B0YO/Iz6xUuCOBdl+XnsG4fhm6zle
Ckj/Lpt/dGcG9euLX3IRoEBxhnrw6v0ZRLd623xNkALjXy9KcDyaQVpGjAbb
xQj7Azdv9tAZdPXf2RMBEhQ4dDdhfTlqBvm+j9faQaaAhvlA7YOEGVS5RWP/
LlkKCO9dHrXKmEFjn54ox8lTgEP99ETB1xnEZNEkJ7mHAvyJFfnZBTNIhkFM
KlWZAlPGLoeOlc6gk9l2YgqqFNggcxo7Vc6gmxfzBLPVKMBk/2tU89cMCmBh
4N1/gAJrr+52JNTNoLRvZ3YUHqTAvMcZ3ndNM6jmylvmI4cpIPnPzPdQ2wya
5pjaWgkUoLNY5nLunEEcBeobutoUsHqrnHasZwbtsfVbqTtGgUKGmMPZfTPI
cGfjn3MnKOBy+nxh3sAMcsAi0x26FNjDReazHJpBobdujV08RQEKI6Co4RmU
zZ87MHSaAl/P+co7jMygpvJt3dfPUCC+7HzzEIEX7hq1Tp+jQPZiqeIcgXmE
4uodTSmwL+7ovigC76uarF42J/iJ3zrURfgzcd7/3dOSAmpqWap5RLz7Yr54
yyUKeDOHyigPzqDImvq8J5cpQDvuVazdP4PyXIW/sFpTwDaje3mWqKeTdDM9
2IYCH8M+tql3zaC1+m+pvDcosNDtcWV3+wwS8tr6X/QtCnEfvBUX2TyDNCmG
saJ3KGAxpRSWWT+DLrTEvE60p8C3v5y6V2tm0INHEyEUJwo0Vw//zvwxg+IU
1ALT71HghTi/XFQZoR+/Ou9cdwooSgilaeTMoC0qQh6HvCgwfDWWNp85gyR6
r98re0gBzcEO/RMfZpC1Gv3NGl8KrIyIfCx7M4P8Bg2sjZ5S4D+Wi53jYTMo
+cWbi63PKLB/tcLrw3NCP6OqZ/tfEPwKJr+kcyf0E/bo1LUQCvj0N+1/ZU/o
B9UenwyjANvHl1XfbQi9vLbVXIikgOngXpk1oxn0XPuLmtsbIp9jhw/RHZ9B
H2folDdiKdDvvetHwsEZRDseTWb6jwL2rc9a8yVn0I6FUdGgJEJ/BrHpKvwz
SCl+ryB3KgXqtnrFH2ch9LBSwyH0iQJLAb5PT87Q0ELq5vKeHGJe/vpnZX+h
oVETnfhneRTgZVWalk4m5nlb0ImhAgo4nlK5d+I1DRVYCUZFlBB6+ddMCnSl
IR+BfRr/flJARFPIUnI/Md+VHoMmNRSQ+iemv0Imzh/nsoDMWgpk1vLtdueh
oZP1p7uuNlFgaPdTVb/ZacTpf9OzupsCnV6ZH3DiNKJXyyKR+ijwJyGib0vI
NFoYWq7xGiD6v/zh9x/PadSG/ISVR4l5TbnWNnB2GsUtvy1+PUOBigDxqbV/
U0jetoXuGr0scAozrVzQnkIivELvi7fJAvXsotpH2SnEWX7FSIBRFl4+Nvn8
iWsKzYvMJvxilYX6qb0ffvX+//seFm0VXlk4PhSU5XmPik7ogN+mtCzQehrc
NsMn0VVyGnP0KVlwVk+0F347jty/X7wpZSgLAoWGKWnu4yj4Gvev7DOyYLb5
7/e08TgqTHIL/GUqCzl77EjBrOOIR+rEjn+XZSGwK/O7pdMYqpQa4bFyIeJV
mjJH7htFsjKiYlJvZWHp5+jbPv8hNCcbppY9KwteKYm19GJdKDdxbWDRXw6+
uJvnqONEpKbtvKz7XA7EcuMG63IT0NeBKbb4IDlwtZkuULSJRdkivft1Q+Ug
Min9dt7ZEPQxsiQo7o0clHh9V69bdMfxgX4HjqfLwXpa79IZSMPPnHeERDbJ
Qadyl4z1ozLMtNM/ebpFDlgj7OpZD5TjJ1l0hVrtcmByzFwWzZZjX9rc6FS3
HMj7BV6BC9/xg+vNmkdG5cCqvtjUQbkKO1pGjU+syEF8i75SbslvbHFUEg6K
yIP7z4tjJmrN+F8zE0e5mDxcvH3TfexlM46/RuvSlZSHez+21LNPNOPRJ3n3
LWTkoSD12S7+6Bbs+PN0hpuKPPQL6q6uLbXiAANPkVwdeVC3DXnK86YDK/Rd
nkIn5aHGdqTebboD1989nv9DTx6SV58pXUWdmC+E26TNUB5U7/DwFQ904ndN
qUFLFvKQf19kn6tYN843a1lXvSsP9kzvPSX9evGFifzqQgd5CFo/Xnq2rhfT
ucdHHnWWhwukPaUrAn1Y580t1XNuRP5xGk6xH/pwY88WO6fH8sBnNtARc7Uf
T15R7Mp6LQ+k/K93HzsO4N23n+YplsiDaXBv7IjJEH6xabPveZk8CH5T2vbZ
fgjTh+pkjVXIw5+1lfYDAUN48tv29/E/5QHrW886Fg7hfDrfSO4mefgg+GB7
kPAwtgj3vr80Ig9Dann9+xqHca2U1fyZcaLe6qFHPmPEfS0P3c2YlIe8G21v
/NaHsWzvhs31GXmIP179Xzp5BK9Ke5l0rsjDeGCPlL/zCI4scNtXzKoAJc7K
VYe2jWI2A/MsQQ4FuODRkjHIM4q9+9UV7nMqgEqZoYYmeRRf375CUuJVgBjy
zkm2Y6N4/2kXnnciCqC77NYs8WgUfxgwDt4QU4C4mZDJmy9HsYjzPrbzkgrQ
YPWBbBs7ihmiFrbyyChA1cnwAY/cUdw66Djvp6wAGakML3mpo1j33pm7g3sV
4Lzd0NC/pVFczKhCPaymAEW1WCaafgwny88NLmsoQBfrMy+awBgWxPUXzx1S
AD2XpqBkyTH8wiizMxMpQIJg+wtuxTHs4nK38cZRBfhuomHPoDWGJ5lOG1Tq
KAD/xob5C70xfPGNYrXESQWIMNY7Xn1uDOuUTJd2nVKAWxYf9C7ajGFeFrus
U6YKwJcVzbPiN4bTX+SOdJsrgNWiYUBOELF+53ZBO0sFyLHWkRZ5RcQTivMJ
uKwAcqlr8gPvxjBHwuS3XdYKsOdWeMWh92M4hbyfmmqjAHdfCQ0cyRjD7Yr1
Z3/cUgCt63b8R/LHsP1nIX+TOwrwJEnNThOPYWb1G4Uj9grgEjlf0Fc+Rtx3
vs46OynAM61JabmqMaxxhJ68zUUBdsgONorUjOHG7wbmYa4KUHdWYiC/bgzf
0n0TJOGhAOH77F03G8fwtrqx0iwvBchP4CiZahnDMWdVl8BbAdLTCvt92sew
aru3bL0P0Q+/L9vKOsfwb8vfFy/5KQA2+WD6oXsM2wzsCqM9VQAz1l8Mmr1j
eOOazQ+vAAVQEC6A+31jOGIye40tSAE8jV/ts+wfw4p3N/fEvFQA2tMJPiqB
K+f1rOVCFaBZp4CfNDCGL7lGRuaHE3wHe9sxEnhlfbjm5GsFUL8npveKWB/8
SHlLR5QC2OfOTf4m/MswPNh3PYbA1/N8s4j4JQHVN5bjFOCGw/sz0DOGzXbw
xz1JUABlyqVg964xPBd2tZE3UQGkmgfcrTrGcIBAJkNSMhFfMsHwT+sYlohd
11B9rwDt6U5GSs1jOF/85N3yNAXQvPKqWLDhfxXVfyzUcRgH8Bq1rjCWURYr
WqE+XD8m2uJT66z6I/pl1G7TWE00tS6lWhShixKnJqajQlsnzo1bOR93OefX
1fZ1ddd1V0t8P1+c6FDMRU9/vrbnj2ef5/08H0qO1ZY9O9oA+2B7YW7SU2IL
HjR+b0T4wIa6kZkeSnJfh7hcbEaYiZ/nUy0l63Zex0taEOa0SX/uqClRKHWi
B0qwbiGXaaNkWJ1olakQrpG6+mbIKbkZLfPY04HwaFl2u/4VJV59c4J+Dbz/
wPoThlrIl6GkYVSHcG+UpGqinJKv8d8GM3sRPpPHm3IupeSKdYs3T4+wSGzL
6r1HST3bmbWZQTgovUJy9gYlONVD0WJAOFZ+oTtKRMnnCSEnMCKsLNQU9qRS
snLud2yyBeGC5umtUwmQl1VB/tUs+MdVS/12yEvx5Tj+CMJ6waZK70DIi6dG
TMYQduu2mnb7UtLve2rKOonwbW4sTroc5s0v6vSZR9jyKTfP/pElG4ePJISA
rWpu6UOwzxOvn3vB/GZZWih4mbPUOwVcWSp0TzOwxGKUn2sFm96mFA8xLBFn
mdyPO2CeQuMl5gNL2PcBwqK/cK+eBuqre6A+h/sl/e/9a8IiwUy4LE8BZpOz
75u7WaKqCWv8AubzVK6rwZKMg07BCwhH5zsEOV0s2eeX/rILbGmJqEp8x5Lw
gR2RZnB4BW9xXsOSkIJZZhw83SeMeQxea7/l8FyE+hWP2vVqlkxqJTFJ4PzG
k8aIDujvWsJQBvhQ62kF/GbEEuqXKQaTWXt2OlhXXlfTBDYHtHLP21nSdjht
lxbM3B3LiQLLnbb1m8Dj/jI3s4ol9cqZRBu4ROYoEIGrzr+ZWQS7cGa7G/gf
/RikUA==
     "]]}, 
   {Hue[0.75], AbsoluteThickness[3], Dashing[{0, 0.01, 0.02}], 
    LineBox[CompressedData["
1:eJwUl3k81F8Xx21F2XfZYjDElJSE5B6UJIlKUUKKLCUha8qWhAoJCVFIJbsi
dP2yL8manbFvmSFCKj3fZ/6Z1/t1zj3r595B2vb6STsmBgaGcywMDP//Xhlq
qJaNiNUu+vOP+NBRZ4qIj06PG0q7yJPUQTAIfrUV6QlCtUUj7sYEC/XzbuE5
FIkacnXuu27QkafJm27mnhgk2a4yrPGXji4WNr359yAe2ZpN+bz5TUdGQvP+
v/WS0Lp4k9XnX3SUpHUv6/etVCSa5hMbuEpHvDThmF/dLxB/12fS9DIdhT7P
8lvdk4H+sL3hW1mkoz8mGnY/H7xCRbV2Lm9pdOTG1Gi8NP0aqb6x1mGbo6Pp
wnPqi3rZSH+fagLHFB1Z2c1J01Ny0O2UgoCSUTpyYv90d+VWHkp/NrCFY4iO
hsuNry93F6Bg3X3wpoOOEgWFL7tvKkJseRd5f36ho9Muw+Y/9hSjk+9Um6bq
6Khxu6vuwoMPSGJo+njNRzq6662+/3pZCWqXNT2UV0jMp42BQpsuRTTXa7f1
sunofVC04He9cnThEVXuUhIdufZbbHW+UYHWP2g10h/TkZIq6d9Myie0VH5G
Si6CjlrdLJaXblUiNf8vluHedKQvOzu42P0ZHXgxVax7go7STYzN812qkPxT
zjsih+iI0b+g3XVTNYoYCOdKUKej8i7fOvqeGpTzgl36iRQdqdxjz59/UId+
fHpUEvGdhh4WXld6J1uPInfmmhQN0dD34Y6Mq2X1iLZ9H1dYKw1lqiclzk03
oLPXWz+pFNKQ+CwlZEavGbkZ3Hz22IOGfIWiN7L6mtFLlaXfopdpqFv3p7fD
jS/ouzCb4olTNBTzrOLaVEoLcu116fm0m4ZCyK/e/rjVijqO5Eh+nppHv7r3
P1nobkdh7bsWovTnUckeNptXOzoQV3fiVmXleeT5oEfRyq8DfTtyVc9VeB79
0PWpbJLsRFdHf8cMTn5Hs+8+zmXadSGB+YYHLoHf0UDwQd0LS93os/PtspqM
OZQ4xMkpcLgHgcBOptqwOWSuMdTdGNeDBPNvCLk6z6Eu2u1r6pq96LNEXnCV
8hxqsahM4A/sQwq5rz95FM2iSmU9egPXIDKmfLW9njODbofzfwywGUTpqhnr
+pEzSGtiLGR/wSBK7jpu1+o4g0oTQ0QzzIbQuMjX4XWZGVSwqfZwQNIw2rLX
d7widhq1X5M1FhMcQX3Xttf4OUyhKr1X6W0vxpBkpP4ljsFxtPth7sxq/Rhy
cfjYJFI8jlJ6PuySpI+h+5Kra4uR48j7Wn2J04FxFGUo2sahNY52xc80M3eO
I8u9wZNL8WMocVbp575Nk0iEEimw6cgoco3OO5x4ZRq5pOU+9uIYRuLDpZO2
lHlkb7Qub2HWgQSuWr9h1VtCWQ31i16c+ViR9WWtydklpOs9GKH2tADDi8nR
p85LaI97U/kW2SJ8teeaGCV2CUnZH2rsVvuAqw/dijSZWEI87/+K+phUYA+J
py5P7y2jMO/a5YhX1bijpX2PUvNP1LOY0XFKsBVPOwqd8KD+RGvaYwzmLq14
g+Wcc8XyT+Qn7iW/VtuKFQ+MvDwhsYK0Q6yKWL3acNAruoCHywpSltcO12tv
x3sCOFbLeVbR4n3+P3s8unCMin6Zsdka2qqrqhRp1YeV+y2OHHRYQ8Out6YZ
0/twc8i1DiW/NcQ9T89jnunDm3ti59jS1pC5ccrdrBv92O/2mFjV9zV0fLEr
8ZL/AL7cFHBrf8gvFPA5soPt9hBmvBnLRo7/hXSdrS3my4ZwimRWrMCbX6jD
t8/81K8h3HPja/bi11+oxEXtSprbMD4uIjn4VmwdZfJe7khUpmI1u7KDUoXr
qOenjvUo9wju4PrawFW7jl5xPZTEiiPYtWTU7G/POqqY8LMwPzyC37Bvdenb
WEesoafPYp8RvL3APCXW8DeylIvQsxgewWz/fm6wjf5GRdYD6w+TR3FG1paI
1eXf6PXk692iRaNY96SE8CTrH3QP5xZbNY7iWxmHlKt2/kG35Xm28K+M4oVj
j639ff4gnubwJ7KGY7g3YXflIs9f9P1R+lrz+BhO7HjL7Sn3F2l0ZK2eXxvD
57jkrdc1/qJC78LgJ+zjeCBYYoPp0l/kHHi+hVVlHFNdtmoJFP9FZpXMZya9
xnHa67sRCQ1/UdXg2b7asHFsO87QLz70FynOnlMyfTqOxy1WfeRYNxDIri/Y
lo7j6UPjH9QsNpDC3b9RPj/H8es71qxl1zbQ7KDqSibzBHb62HcGBW2geyYd
Tf68E/i7ctvPI2830PLl2g/ylAn8zsnocDPeQIoBuGFdfQK7ZNTFmnRuIOfv
V/S8Dk/gBdFPey3+biCmX3KeVy9M4HwzjeBB3n8oT/nY/gmHCewWVdR+kfwP
VX0/6MrqMYGXN7294XTiH7rC8s7J4P4EXluIz/VL+4fsRPpxRe4ELlXi//ev
+B9avFXpFlwygX3tHxqHNBLny3JYlyon8J/+kPnIpX9offnbjtbWCWzFHpDC
xsIA4ydWxg72TGCcdbDWkIsByClTvWbDEzhgrETwK4kBNqbyxkK+T2BqgOdB
3p0MsNvp7u6kHxNYR1LV7tR+BtBil1GyWpvAL8oWI5/oMABttG6p8e8EZrLI
Leo+xgA8O3dnjzJNYtuVqwPbzjBAIHrilcE6iaseK7JY2jCAuk+2Lz/HJJZV
mVZKcWIATcXMfgrPJA5pyThF9WCA2x6Uz4v8k3jc+ZIf6Q4DNMrZnrUVnsSH
t0i/vHyfAeLDR2pui07izMyhxszHDLCgUaZxRGISbz6U9GM6mQEc+zyoZdsn
sf2IhahSFgNIU1lnBqQncd1tYd1rBQwwokcNfiMziRXEuxxzyxnAZm//qKzc
JA4rjYlerGWANx8PaxiRJ/H0GZPSvW0MUGLfXyYlP4mPLnOO3OxnAP2R6tQX
BL+JbmIrmWCAnrtx29sJ3qp8f/c6nQG4F4xv5BLs1KxvrrXOAGeDzVo1CW50
ZAm4zcIIrXPe3h5EfEXWz68quRjhbcJ8piWRPyL9zlembYwwqmyUuETUZ6jq
yCcowwgB/LfP65ImMVv1STP5nYwgEvfOSE9qEtee0krQ2M8IPa9Ws1eI/kPG
5PqP6TCChfqnckuxSazrzi1pdYwR2nIzK26KTGIG5l82rmaMEGyb8ENHcBJ/
ihl9GWTNCN4bH5//xzuJb5GaJ2MdGSFxyWPrT85JrFlQvOOVOyPwfXP0Gdgy
idd0nl8t9WcEuTJvVe9Nk/jmRbcfg9GMcP9aQNGX3xNYdfH8voVnjGBKNeUO
W5nAPwIOezNlMkLo3rmR1QXiPqSKbJA/MgJX7yX5X+MTmLKbSUejmhHG0wo1
IoYm8CyeCz7WwghNz7OYOrsn8JXhT1tcRxnhU6kpS0TDBCZfzzIK+s4I7Qmd
E7/+m8DjG9GPYlcYIdw17qvUxwlsI2knWLqVCVb+8ogmvJ7AkjnG5k0CTJCa
9JEykzqBBw6qPxuUZAIn0cC3S/ET2PwCuzTTXiZQ139wQe3uBDZNyqccO88E
4rkCo7csJzAP5dn1C3ZMoJ2ik/TSdAK3lIUUXL/OBN6M23Co/gQ27D+rHhvM
BK4Rh9uClSewruiG3uBbJtB6nGN7eWMcM7yZCqUXM8HhQxNPfBbH8SeNtgbG
Sia4/1PvhvH4OD5gkX6C3MkEfSTZDvWGcayaYHj++h8i/oEv58WjxvEPedWU
wM3MsEn244hm4DjO+yAx8piHGZatmx+Iu43jnd0L9iWyzJCydU5B6dQ4JgvF
uzEeZwZyxwWTIL5xLBw7dv9xMjOcu6hzPih0DIsoFYesZTJDH4XUY3hzDIt+
Dr1zIY8ZfJ57Mk5cGsOSCztuylcxA/uV938ewRiWM3K1KZtmBtpHBqXm1VG8
l+Wv2theFugY1Gk+YDWKT3gIje9pZIHOhsveLFwj2IR9eii+gwW+0H25ulep
+OSL0t4/AyxwhORvdn+Eis+0Wn6tpbPAVpXgtodFVHyB8vLjOcFNcDyGEq1o
QcXO48rRQTabwOLPAllCcxjfO31Uu31lE9g1yGlguQEsWtQiysS4GXgn05Wp
tH6cw396VYV9M7z9Gryv90M//tZulRe9fTO4Mvramx/tx7KmHiRTg82wJf6V
bI5TH/58/Pnm1qebIXH7f9ZfXvXgv/o/W75osUJAo8zFUIEu7K6RZt0QxAaK
4zZTr1absGEq1/KxSDaI+cThGxTVhEmst8JanrDBtJZRfNKOJtzaeSa/I4sN
1GgU/zjLRrzLlYN5qIUNDjGytbfV1OPpTK/MH6JbIF1I6vBkZg22FDCeFyvc
AtX5XOWcVhjv9SsLTCnfAgKTIadImZ/w1lEFIenaLfDHJ/CDBL0Cl+YyI3Lv
FqCcYPbpDC7HQsdKo3b/2wK763leRpeU4tZAWdXDx7ZCHs25osi0CB+ir/u6
jG0Faqf+N/3X6djHIFbxv+9bIZUKiSbBL3FO2s4+/pWtoHA5pivP+gUWOW2j
UcrGDpWb3K1Ctqfi7yU1q8y72IGHCfPVeMXjx0FRHk+92SGAM3XzLjM/XN+/
Q/Z7IMHmLS0RVu74j2pVh3YEwa5hatVr9th+6uee8WR2YHinpx6nYII0jc4v
7qpih9SyuJgPXIFoVJDsUs3JAa7FBsedYuKQ8HUsISzMASZyy+PhBxKQUb35
F0cpDmAI7NysPvwUvfeNoHDv5YDKl9NBZKFkFD68MGthzgHe8NlnITUNYfXw
xOyLHBCVYt7pbf0CLUfLGP5z4oAEke3h+8VeIqtDZ16n+3OAVGbADtPwdLTn
ddkV+gsOcEgNvlSv/wpdYTIT1s3mgFQLR8tvtFco6TytNraYAwz+bvbkis1C
m7mkyZr1RL7NNmxrXa9Rn1voeMg8B4TZaHVH7c9G3M3bY7tXOCCg8tqzr/XZ
6JBcqZ4iAyf0DGpuKJ99h3K651585eMEBu4o35POOShQy/SiqDonWDJeqb+r
nocMrFJ+7NflhMvMD0c+++YhroC5YDMjTrj12nvUqCwPJVXdzYyy4QT1o9vb
9Pfno0sT7ftznDih3CfS/b1bPlJklWpo8uAEtimJK27Z+ajE8OPc5vucEMXG
K/FVtADducrqL/uY4Jubp66fKED6D09z6SZzggDfId4LQQWos4222z+fE5bP
+bBKjBWgBXMZz6VeTvC+lKirEVWIPvi6svKOc4Jsyu6Huh8K0e2kioRdNE7I
ysw+kjhQiDioZ8scmbjgVqFOixqpCHUwZhjd4+ACrdCBp7d0i1CizI/BdCEu
ED9p3sp3sQjJX4lkoCpyAQcP49yep0WIFtYb/VeVCxz4BLZ/KihCRW/IMmKI
C/6INV5IaixCfs3uRepHCbuMlUMLtQjp0ioPnznFBSzbJbea/SxCW3i4ut0v
cEGUvp2IClsxalU57xB9hQtAOs7t0rZiFH8q61fODS5IsBFgmlcoRlY3f4Y3
+3HB8j3tjy1qxUguXld89i4XyF68krBFrxh9L3n0jjWKC9IPfn2ZcrwYFfYN
aMslckHYpuT5h2eKke+fHa266Vxgw98d1X+hGOlIel20yeGCrMHzBXcvFSM2
qP7hX8IFa9f6Ah5eKUYtF3lDnn3mguqMRtVVx2L0JNhKsLSZyGdqx/OfUzGy
zHib+e0bF1SyJlnPE3ZS3dr+ZSoXUPt5vP2J8zPThxt454h43ZylbkT8vK2P
zyn/5IISw1sRLUR+Lwp1zugfMe/R/osxRH3axjv9nbZwQ8gTjRJM1L/J1Zcr
jJ8bsi6QBcyJ/pqj655nSHCDwqd3LBf2F6PHhQIqVfLcUCJuRGrdUYzOdV38
TFXhhvLpca5C0WIkvZpzauMAN/TElNxk3VqMpkX+jIvpc8Pl0+fYv64WoVzN
o54aJtwAdRkP2MeLkKdlHOvZc9xw2rio6lNLEWJO3a0Y48INhzQ8nkQ9L0KN
//mX5XpzQ6W90nzB3SIUNdZo9CWIG1KrEl1PORUhSXm762zx3ODqCN+ElIvQ
hEEBAzmNG4x+vS0/yF2Esp3+Reu95QbVC6Tu2flCpJnztOg25obpFRk+amYh
OtTd8pdWT3D+zpGK4EJkzMByxLqdGyihAmLnrAvRpZMuvWiCOD8vz9/FV4j0
/aTvBGzigaLpJfMtzgWoibv8pfpWHgg7eeoJl3YBMkk/U7/AxQM2vAedR7gL
0PkvEbwXRXhAddFiaTU3H7luX3mpo8QDPdLTB0ijeehnYVT9L2UeMKmrGP7y
Ng/5GijN56vyQBZXRv9Zjzx094aNGkmbB+pPyL3jZspDiVWN9UymPJD6XMX1
mVQOqr7yfL7Kkwcq1T4aii+/Rkf/aPDd8iPqAZbLV+xeo5aoTjXVAB7wjtbq
/9iZhXpLtwSk3+eBtYdiho/evUI0dg++u0k8YBBA3nPHIAOJ5Bns1//MA6cd
PjXIKKSiq2uLAfWcvECNbzvx8lsQ0rxhLzTJxwtSBVs1FHnvILbZvrfMIrxg
k5Qooe7ojTL6q75pk3ihMqTdP3neDg19ekIpViP8Vws+y95wxSfuavSkWfNC
60MeU73DMXgPX6CyXz4vcKk+uBn1+xVmiPhZnfCeFwaOVNtG07JwC7PTufdl
vND4fiGbafQ1dv558u5iDS/kWebE8ze+xek9sv1X+nhBxfZM83pyLhZ6Xh96
mpkP/iPZCz3LLMS/lHiGdprxQaIm6fT04TK8kiwauPccHxRwfizHZWV4mVtO
VsOaD35cdGDVVynHtCUNp0OOfEDlbio1FqvAo2WXVs7588HK4H3JwdlPuPHY
B66wDD7I/UfqUdL8D9dV/Jf/4A0fXK16sS/hxn+4Wrn59ONcPmD8efd0WdZ/
+BP/SGJKKR84/vegVULoMy7o3ypf/IUPOp9lT4jNf8aJzlZo9CcfnAx8kKob
Xo3jBx1Gp9b5YGEw13NneTWOPeF+d/4fHzAI9LzOna/GD/eGNa1t4YfNhtKR
bidqcNDv/LPckvzAk8HqWcFZi50jNrlq6fNDDFvL+3r3Ouzwl5tf9xg/HBs0
zDyaUoftr4u+P2LCD7vf9oQeqq/DNqeU/5w8xw+WvQyCaaL1+LSYRZijCz8c
1Jdvqy6px1pvs1Pj4vjBk95vfaC3AfdLvX1++Bk/eJNU759ea8C+ca9Tlp/z
g+Y2teERoUb8ITAz6eRrftiqLb9y6mQj3mOemsBVzg+XPaqT3D434rYvKfEV
lfwQzJQxtWWwEbvqJcddreEH0Z38TuyrjThnV2JsYws/pGyrP2ZA/L20Y1Ns
VOgIPyjZsD8OC23C9b4xj/ZN8oNKUmaCSVITtl+Iejg+yw/0n9vDfPKbcHr/
g0jdZX7Y1ilaMNPbhPVMIyMW1/jBv9n+4675JjxaGx6e+pcfchZ3G7T+a8JS
BffCNjYLwDeb67myMs0Yy4fee8cuABGStde69jZjq+SQUEseASgodvIb0mvG
z8ICQz5uE4BAizmXnxebsebGnWBHSQEQUXQxZXRtxj3ut4NEZASgrTzu1kX/
Zixk7RfgSRGAigtP6kTjmnFxp88dORUBMAy59edGWjM+beh9u3OfADyM25e+
LbsZL2FP/2BNARD14mvjed+MY/bdvLUHCcDUjoiEM7gZq7x19xvRI+Kl6fLP
1jXjVik33ygDAVAIZL/Q+LUZu8S5+qDjAnDoy/fYlW/NmJPjujfNVAC+xpAH
rw024+zAa17JZwTg+G2188pjzdhw1dnT6LwA6NkN7NecbsYzV51u/rYm6v8s
+fzB92YcNurg8eayAPDLnahUWGjG8uZX3C0cBaDmAVfL1qVmXPvFzo3NRQCi
qkw39vxsxnZ6l298cBMAozi78NSVZsxSautq7yUAxwSWck6uNuOXuy5eF7wl
AAb5zNkGBOumW7tUBwhAufWmmkDCn7rN6pr7XQFISWyBv8vN+M4jy6ukcMJ+
8YXjxx/NWHLTeee2hwLgSFZ9UEJvxuW+Fk4BjwXg3pu3f1bmmvH5hbOOygkC
0PE1i+PmVDNetzvjMJQkAGYWRwT3jDbjp/2nrzxIEwDjZJLbzoFmrG56yl4r
UwC0FSyC7LuacXetqd3cGwG4YxqVNfClGXtqmVxOzBWAZbxq+KimGQsWGF86
WkTYqUYd/uXNuEj+uO1aiQBcNBrKeVXQjBf5DG3OfBaAfUf7yG+TCD1cJbU6
1QnAtu+pp9wfNePK2nV0p1kABpl6H5oGNuMo37fbs74JwH2F86+O2zZj787g
R+X9AlBb9NLIybQZ2+yy/NdKJfq9fSkqETXj3aMcw79mifzKymV7tzVjEa0J
Y64FAahPWot5xtKMGeIqPpF+CkD76fJZAXoT/nrUJeXYPwFo4TRU1fyvCbvk
f72QzC8Ilptvsemda8Jn2LO+5IsIQoAV/xNF7SasbRdwsFZCEE5HbbkgJd2E
ObepSNDlBaG8Ustm33gjzg6IGQAtQRBPaH/516oRx/Y5GZnpCIKRS+6ZEwca
8S1VvXJHfUFwYlkyeUe8B8eml57FmAhCVH9b6IPGBjx7wuz8+GVB4Fuh8w6Q
G3D7651Na46CwJL0ejnydz3+yLz5AOd1QUhcexxw9Gs9vv/hvaiajyB8XCW/
nXCvxwrbRfruPRAEym2yeHZ+HebxWTiaFCMIBvvuLpXdrsNr7fWlefGCcFWZ
W7nHsA7Xh/o87U0TBPs73PFq1Fp8hdZnrvReEHoYfEqj/9VgY4PCelQmCOrD
i6LsNTVY7UWE+ulKQVhX912JuV+DN5/REvFvFAQbw/IHX7lrcGZFcnfLkCCk
vrsXzspbjccjbc64sQpB2I2bU0OT/2GXWQppN4cQPEwerr744j+8euTX/DyP
EFBDpi22XfgPb2WOuesoKgQ201w0hdZKvNunqshmpxBEvdhFL7LA2N+OzH/i
lBAYyDRyqQZ9xELa378qPReC+peX7Zsdc3Hqs5JnMy+FwNwsyrlq9R3e8Svk
yqssIVgTv7CwFJSNtYok/pEKhMB1wtmML/o1vqR4YpdoDZEv73JbReRLnCdU
EMk2JwSpadbqZOFIfJTudXRCTRh2p7EoxA69ROIqkqFsWsLAwPnZd7gmA9Hc
qj8r6QhDVpfnuZzcVyh2hUfL7ZgwJPTah5SEv0VDf1/v+mctDJfbbkV35OQj
N44B/m33haEnT0Jk40MpStwBQ0b9wlCr/W7rom4N+n6Jzb3ojghIFv598zS4
A9FSDlXgEBF42JywubCxA9F7A1ib7otAjJdWeDtvJ/px4tezkccioNb5m217
aidaPTBbzZUlAsuLgqWN5V2ISaBZyLFVBGja3QGmP7vRtupHHyWktwEfF1um
wrkBJPqviWUHeRuco724FvV8AIlrsp1QVdoG297xunSNDyDJvIAxw33bwFPa
8PuiyyCSTbrB4X10G5z41ZdhEjiEdnucsmq/sQ1+eTKN/GdMRfqywkz3Pm+D
6+Mv6mzNRtGM7ZGsA3XbgH/9yZ7HbqMoMs3LeKFpGxg6SZe/eDSKOiR7Ei26
tsHgnTLyhYZRZLPt6V7K9DbQFUk/rnJgDPlwidm1cYqCL/uJ5CnhcSR+/Bh7
KJ8oOOeGkVr2jKPKCL98TWFRCP17cjDi+DjavGXg70spUeBuWd0cETSOYpiT
4zz3ioL4g43G8NlxlL0mWS9mIQrLDL/TyQUT6MT+Ey6tF0SBtGTy6UjjBPpx
847AXVtR6B5rjVYfnUAaS8M2NGdRSHj8KPEe7ySqnU/9VXlbFArzSktbrk2i
4VGSkn06Ec/c/Oxz8SkUJH2qTfS1KNx6UGB0T2UKkW2Cvb6+E4Wsmrdc6vpT
6OrgWJX6B1Fgt7926ofLFFrrTrdkbxQFQ3OD4E8VU4jvC/lhHl0UHkbLzlia
TKMN+u6MxmVRMKn21Oa/NI1m+Q6Uj/8ShfQpD6PAm9Pos/mJWREWMcgs0nof
9HQauY976QeKiAHT9a2/OIemkQ1r0IVnEmJw/tmxQzdp08hIMdKjmCQG0zJv
sqM2ppGsa+qLGYoYlA1Eio9KzKDO3/UbpjpikL0O+WPmM6hSskPwqr4Y1B6t
EKTaz6BsnUFK6DEx6BMuPfzAYwbdvbd47qOZGCgeOOG59nAGqfGLfiA5icF3
o8u2rJUziKQm26J1XQxu76mxvdM0g7gsdk2c8RADJHddKePbDJpM0eWPuC0G
p4/tyV6bm0Hxis7Xl2LEYPx1fHsx3ywKOX4zlDOBiGfo4B4jNotcXe8kyyeL
Qey1NiVR2Vlk8P5x0/lXYqCv75i+Q3UWqfYmj97MFoMCfb/6vAOzSOrPq1+P
8sWgsoveNKI7i9Z0yuWry8QgbMfgETCZReOXa7WHKsXAyVtT+dqZWdR6r9Vs
rYbgvNoOXctZVP6m7ypfkxjcy7mxUHlxFr3+Mh5MaRWDimePdabsZ1HcAi1R
v0sMUn1oIcXOsyiI/1e+TZ8Y+GTl+ii5ziIXNeYG32ExELhyg2rgMYvOWXBS
Y8fFoOGYlh+n9yzSvyW8mjMjBmwfwjh9/GbRnufSXA00MbiKwDLi9iyS/Kwk
N7YkBstCeOehwFm0dWKf1t81MWh17Dr6MngWrbDCKeENMTj7vt4n6+4sGlU0
dFJhFodTkmZhp+7NopbjpwOPsYlDZn6OTnrYLCpztUqw4xSHjfwg98T7syjr
sUPuHT5xWPu69n1f+CyKfe9W+1RYHI5dLLrtSXBA763BQnFxkIzqWj9P8NU/
octfpMUhPXhddZI4b749mn2aLA45gcAkSPAh3WckJoo42G45rDFN5N9tl6Eh
riIOQlPkAuvQWSQelmuipiYOfDr39P1CZtGbnHdVvzTFYeXU8ZlLQbNIveut
WgUSh/44OdU/d2ZR7e/XrwMOicOPMUf2Q/6z6DQpS/zQUXE4GJ10+oAv0a9B
5iNWY3EwEnZcGfEk9HE9nanppDjsKUzv2e8+iyLLU6dNLcUh9EUM86LTLBId
SzkveFEcRt7XSJ8m9pe1Jbmlx04cpu86KdkT+60+87TI+ro4fFP9URJH6OGk
f7y8jIc4FKx+FCsm9EJ9+SRx0lscdql/lg8ynEW/F6IDrgWJA1ei2WaFg7Mo
TDhqafc9cZCI0vqPQW0WCWk/tF+OEIf6YJGVe7uI/UaEG/k9EYfPWTffpknO
osr8MKydKA4K7J0SqkKzyLgndA/Tc3G46j8678E5i5zkgkXuZ4kDTX02nvH3
DFo7Fhhh9E4cDHmNrx1fnEGhbnc2uAvEQSRtf/yRqRn0AvuNx5WJg+Pz5O/6
7TOoz8IjL71FHPLzfvy5kT6DHALcZBw6xMHd2PrL7oQZtJLpGqfUIw4uvpHb
UiJmEN/y1VsFI+KwczrpRMiNGWT40M6gclkcjtopPg/QmEE9RZfKgn+JQ+Lt
qvwixRlk339x15ENcbjRbVIULzaDghSsBFpYJUA3BPU5/ZlGpZ/PUPtFJUBi
PljG4OM00p85fer5dglwq3OQX8maRp3cp2ptZSXgQ5XLwKn4abRgeSJ7ZqcE
5LDqtEm6TyOF1SPeqyABNj35V1fI0yhBSYOH/4oE/E3iCG++M4XMjn2J+uQs
AafNH7atOBLvp/NFXidXCfBdeKr+7dQUinhzn+8/HwkI5d0vUUyeQrd39Alc
j5QAPZOrIWv1k+iyvN+2pnwJ0Bbnc636N4Gkj3Aner6XgJK5QK+zExNoyP6l
KKlMAsA1aP0l8ftwNrNJzKdaArSOG16/EjuBDOXEJeW7JYDvTcOe57ITSEWm
ghT8RwIaMx75cKmPI5qu6ctdjJJg5Pdp6ui2cfTGdkKmb5MkVB7h0tBdH0Oy
LzjlVLgl4em+o5+dysaQiLSV/LC0JJx833IyXXMMbUj+UzpwRBKEHc6XMO8c
RY2iOvuWoiXhamv5d1rdMGqVzCWzxEvCseHhAQePYfSNJCEimCQJPUPRvjZS
w2hE8de6WqYk7OrdK/jFcwitaeZX+n6UBBOjQxkfJQYR+by0EdOYJEg4aV6b
ON2Hgp4xXuJV3Q5NmyWM+1w7kab45yjlb9uhLkA+827aJ8TF/MLjYpAUsL5+
/qwqrg1v/oVPLYZIQUjhe8sgpna8QRvcE3hPCrSLhid5XdoxvW/bYmqkFMQk
rm0kHerArQXR16hxUsR7eZhxP70Tx9gG2lu/lYL/3q+viWr0YKHPNuYXOqXg
5Okrv3pjhzBXye3989+kQL0tbiV3dQhvzkkS8u+VAvmtw1/kzg3j1ac9nUlD
UiBY7/v8JxcV99wwMR2YlgIGuON1rpWKE6XB8PxfKdB8YufDfHQUSwZu17Ig
S0Oq9MtWLs4JnOPORhpUkAbhLXzilmoTWNt+kfWikjTsP/nKwt56Al84VtXh
sFsatsVetc7Nm8BJglecvTWlIWDfnQpmk0m87U1OYryxNJTxcD7WDJzCWUnx
AWKm0mC1KmYukDmF1R8F2D8/JQ3y1gZWLxqnsLnHyT2vzKWBTyVwRy/fNI7T
Xml4bysNFl4Cwy+fT2OBjoO/ujylQbdGY0L3zQxOryEPW/hIw8vhvFJy4wze
W8JdM+gnDeTL9459mJnBJ5NHoiYCpOG0XuGPAflZHH3lrsLPcGloVz2VtSt1
FnP9aT4r8Fwa7JybB2MC5nAKrfhgQpo0CLzbsZ3v2RzeNZIiI54uDW+eUCf3
F8/h47WudJnX0iAU+/btzek5HBklcG9voTTk5LM05hl+x1vkLN+frJOGoMUc
Furf79hpGzJ82yANbl3cYoh3HjdykoaYm6VhYOvbnUay8zhyZWpTcas0JJwz
9bx+dB5z1bubCfdJA+1JjFjXo3nsUn5m5vqANBzSUIpJSZ3HX/M0/OuHpCEp
u+mOQP48jnr6L91nTBp2v+fn39Q2j/mcI5b7v0vDw9oTKcscNOxm7RKmSpeG
y+i/oxJiNNxxylT8wSIxD9KI8qICDcdqCR/SXpGGP6/7ZRL1aPjn7vXuuDVi
nj5uCy4mNHxGbtCZvi4NP3t236RZ0rAw18vHqf+kIe+Plcq8Bw17M4XK/2Ik
gbFZ5+6rATTcs+JQZspCgv94/b2fRNBw4vCuMaYtJMgMOOw/mUrD4vkf99jx
kcAhT2H6Th0N38pIrq0QIIHNvnvZxq00PPg04JyQMAkC9mry1vXQcEqQflCd
GAmKZBf9i6ZpeMNzh5CUJAmUDLmcdizQsLUzxxtvKRK8iCz4dGSVhqVOt7ft
kCOBf2SuZwALHQcYFNsFyRP1HQ6rS9xKxyNaCb/6dpDgA2X6vBUPHeuq+D3Y
SyEBx9CdnU2CdPxCzko6chcJXrLt3D8iSsfMojrF47tJoHtt3SN1Ox1f5pI9
enAvCf5+2z7OJkvH1Uysg0/2kSCRmylYVIGO5VZnXGn7SWD5dY9plxIdh841
sxzRJM5nuZ7QUKbjyeHchOdaJKj8nnlHfw8dH+mMoaxpk2Alen78jyodZ9Xf
rDTRIYEh5/1gy/10zFZhfvq1HglCds7a2GnQsWP+gWlGfRI40d8FCx+g48YM
yVvnDEhQfTx5yU2LjhUTGXkKDUkwzvGu1OsgHYc/HH/JfpwEWYF/h+W06Xgu
qG7/5RMkWDjVd8OfYCOvN03lpiRI0frod5vgbOcH1oKnScCAtdl3EMxh47p0
7QwJvg3uVfYn4l07feperTkJ3jc9WvUl8rUYqIltP0+CrfFuN0lEPbsObsv1
ukCCh21yZe5EvYUyjr+ZbEjQP6R6CBH9qG8tPfLQlgSKV+sSMoh+KxbYYrfZ
kaDF6Wtnpgqxj25zavoVEjza1COot4uO6yqyKLudiP38YvHzVSTqTV/zLrtK
grJxXrnjZDpuCzeo0b9OgsZYU7UyaTo+cyOBt/0GCRoOvWuvFqfj/rPTFy54
kECy/+V2J2E6ttFWfzPtSehB4uiht7x07MTeo/vPj9CbZHsJ4yY6pi/KPwq/
TYIEtU9Wwhs07NHj1S8YSAKLsSthDSs0fCdD2IMSSuj5PMiyTNEwS+SVyg9h
JFiW/r0WOUTD4W4fOPQiSHDO9b5QYRdxv9DZDIsoEuiMGzD1fKbhbeRXi+Mx
JHC854i6Swh9c6wedH1Cgs0emi89cmg4qzfuW2gioY/92V/CE2h4Z+UkiS+Z
BD43bnGzPKDhgky168nPiX0YWLiIB9Jwufs31qJ0EtzK1Q1XcqDhVk4hjZEc
ErCP7atsVKFhs2W7u1fzif5jKXaHZGi4r6+4bbWQBHwT8pbWAjQ8/srMiauU
BNmZzZ6+P+fxms6TZweqCP0dbNplXDiP/RUmpmprSJBm/WhHf9o8ZuLep3qy
ngSfvhpt4YiaxxwDnc0OXwh9eToOnHOex9KeAhtPuklwN5pKfS8xjzMtLxtK
95HgqtyOLde2zGOKXlFc9gAJ8iJ2szQuf8dqPKeVq0ZIcKE3htm38Ts2fPPY
ZmGOBHoCX50qbnzHbkN8VYYMMpDZ9cpod94crq+1rHjDJAOb7Z4xHEyYw5K5
mR+2bpIB9cinS4zE+914RzO7cYsMvN75fft74zlMkrZ9YsgvA5QmzdD26Vnc
din/iiFZBm5Xssiq8czi3TMnOAyNZKBBr7vhza5pHNr2dPMbYxkY7PIKesg1
jQdKxxi2msrAoyFXR3XaFA4L9/rZYCYDW58pFVOzpzBV6fnQUWsZcI7m5YqW
n8JRLrS8o25EfI4RoxG+SUxfijQ7miADPzrLRsarx/BAT9qZ5EQZ2Aj9MXX8
+RhurHh/djFJBhKOffV55DOG0+9RLZ6mycDeY13nU3aO4XNiqlYzb2TgbVg9
7dfjUVyj229/v0IGqp1+7pM6N4KfRe/wbhiVAdrPY2k/ng/iI8q1iUd3ygKv
humAIlMHNt9scLpVWRZ+ydHuRKW3Y6fBBs6ze2ShXKGddV6/HT+M+BJweb8s
pB/iDYmKaMPfpjrt7+jIwutdaWdeC7Tiy6lje4rNZKHC/MPRauNGHMTL2CR1
WxbWb7Q/1rhUgWOng0JeBciCqO3Bda2lMpyJWbR3BcvC5kZLo6/BH3HjNbb8
A2GyYJscp/4+8wPmbeSOPxMjC/VfEtpJy/k4NUjyUmSmLDAoW4ea1CfiT0sH
fq+2yMLuZcuoEr0clNb8wfZUmywonBck7bHOQyEZextzOmTBvPvNzO1n+ejo
WaWndj2ywNMWLEfjKUKdH0X3d4wQ8UJayz/SStBs4C+3nGVZUCUdU7mm8R8S
4vkwe1lUDorSP3i66DaiX9N7TlaKy8HnHb8thL40ooH/ckrFtsvB26QYOtPZ
JpTmnhnWLiMH92VLVNIdmhGl+wkZdsqB+rGCrsGgFqSb4mErBnLQnPuieNWg
DblQ9vS12cnBuYXI5+/YutDNVdF1awc50FlU1c4/3IVufWYWpTnJwQaLStau
oC4UYd5lsdVVDhia61Hsry6UFeLdq+srB2o6btVrI9/Q6MCnnsKHcuD17uKj
Fwk9aObVqzWdaDkQKDiwfb25By24RYm0PpaDH3+a9T8z9KJ/bLbm3xPkoIdv
zv2FfS8S37epR/alHDDFbg57otSHzjw41v3kgxyIKsWozj7tRxfMVVdlPspB
wtCDReGafnRZRkK4oFwObPPvLuXS+5F7Ke1My39ygO09EyT0BlDURPS3zc2E
fw9qnBodQPF5viuxLXLg22O+Yb1lEKX4XRKSaZOD5U+uDqA8iN7x7juDvsnB
f6z23Bo+g6jxYE+XF1UO0M2fL1k2D6E2tv9+bhqTg7UP7S6l8kOop+O1YOyE
HCgnnJPsMhhCU45+ZnmzcnDoP/4yuD+EWOIku6aXifO7Em9PMg0j9ousPz1X
5YAm4z3/dfsw4qMsCGxal4NjQ+jddq1hJPX5v9PS/+Qg6lct5w+3YXSQdrnT
YgsZdh3d7GfbO4yEyo68KGcnQ0t2fPAsfRjR7im6buciw409kmdXmKgoRXqB
fYKPDJd89DuURaho47Sfnqs4GaYu2soGIir6Jm3F2yFJBu7K+bIcAyrKocHw
Pmky/Jpj+vTUlIqswjb7/ZYjgwG/k16WLRXhsuiCUGUyrPlEnH8dSEUJYR4B
Mypk4MsXNqgOoyJXs7PGRqpk+LjxTjv5ERVJ0cVneTUI/7WDOfeTqGit7N8H
jwNkGNZhtUx+QUWtYaN3uw+S4bOVt//1LCoKIGVJJ+uSgdXyVdSJQioyp4fT
/x0iw9yRYnyhhIp2l1+rsD1Chpw7WwYVK6iI7b5JRM1RMqx/nt/y4T8qoprt
tVAwIsNAwwcHploqKiEJyUcYE/529eKcjVQURV9bnjchw+PkcMPuL1Skc/9T
VKEZGcLj/75+00lFomfSrITMyaCknrujqJuKfpBCKD7nyOBpxIf9+6iokW6/
3m9JhqO/3z9mHaSiF+VH67WtydC7oNJuOkxFvvcpcWkXifyWYpmWI1R08gz3
ZZbLZHj0nVNLYYyKFGV+qFyxJ8Peyoz/isapiGmh81+DAxlSLO/YMU1SUV/5
hy8UZzK4Jqid5Z2iooL7ic8eXSOD/F27uhGCw8/4O/64ToY/p15OuU9Tka2M
zX4zNzK8VAuerSNYc0F3U4kHGWgHHjMPEcxXIdch6kUGY4XzV94TPHufLc3f
hwyHDM8fMyW46sycC9WPDGWG7JM5RPwkmRYtvdtkuPyrx+UrUY/HQt7WzAAy
MAvKSxZOUJFRxeMetmDCn9to5zmiftlwz0znu2Rw+hr1rXqUiv6csfBouUcG
didlsyUqFXXKaOmqhJNBcsh0YmKIirIXJHliIwk91vFUJw1QUUgF49DKQzLo
crspixDztQwff2sRTYa6p1fszYn5q56t8yl/TIYI2pesC8R+OGTfHNkeRwbq
oNN+hTYqGl+IFAxKIMMe0vdTJcQ+yyuuj40nkiHp7wRwEfuODT+ZfySZiNfR
pqNI6OGwrMhxzhdkEFL4Fl1M6Kdovkb6cjoZXgj4DGmVEv18cF/5mEnE+6N3
/0ERFbEYfn3u8JYM/BVTbJFviHnw+3vgd2RgCrh3RTODisYGFI8K5ZEh82zf
/sLnVPT5euiPqiIyOJhVH90US0V7NFTrRD8Q/tLWYsMPqCiNafTZjVIyfPXJ
vx1yj9D7k4OHt38iQ/mzMdJeXyrSLluO960j7re9CFnhAnEfQ15cbWsgw6B4
QbW9GRVJGJvoKDSTIUqHw8L9ODFv6tvZrlYyLG+qf7GqRUUfN186qNJHJt63
H8+Lt1GR2sm20anvhJ6ZvE3TYodRptidD9p0MsSOP+dSujOMBCcokU8WyTA0
r3XyvOMwWvYK26e3QoZb14KhgHh/CpJRWMo/Mpgnz9UcHx5CyjPvdprxycPn
LdppwwJDKKXgPFO2gDwYOG39o7A+iLhubelmEpYHl8epebLDg4jGZReQJyYP
vvGuOmpZgyhbVbyDXU4edl/gX+hWG0QKAeHen/fLg/txKYZ6/QFUfiBjk5Gm
PJDVw+JpsgPIZBXHdGnJw7Y5s3/1TAPI2+Vn9rSOPFDJw/7JFf2o3tJmhMtI
Hk7NlG4fU+5HDhpqhudt5OEx37WzHax96PWPEbHlMHmYD0hNYnnQjRTtNLBc
nzyUfVeLPUhpR49IxuvBA/LQOr05joe5HS0P2+4bHZIH+cXDW6i9bejTuci3
KWPyoOW5c9nrXhs6aTIcLzwvD9MP8+MzRluRz4G7rlsYFODN8BPy/b1fUT1v
m/S8nAK4MAy9LyQ1op1fJyyPKSjAf+ylNSvtDSgmcj3+taIC6MlnYOfgBmTJ
Kstlr6wAPbdea/wYr0f0P57rQ+oKoFZ9/EjqmzokNC3e0XpMgei3u/qHTg2y
++QQUnRDAdJb/wjFv61EtGuzXoc9FODyEuf4eetK5C1x1fmbpwLI+olGxvFX
ovBb10+u+SkAg8rXEzPrn1CepqeUVqgC3GrbUcGeU47+vA8ur0pUgHHPNNa/
h0tQqP2mvNPJhP1Irf14xQfELXTv5cRzBfCIlZqZV/uASDfDw1kziHyst4bc
Ke/Rkb3R5sdyFSBsPtsxTa4IxeSmLLdXKUBeoNSs4Kk8JG4tNX2pluAr2e7s
Fbkog+tF/3K9ApR4rjdFfMtBJdcyPgu1KEDUXKVZMO87NKiUHXWuh6i393xo
36vXyL5/Z8hcnwIo+NfJHu/MQgvhuV63BhXAnCty+R5zFmKaLbBKGVUAWD7g
7+CUiRSySimj3xWg8m2asem5l6jg7AEpd7oCsM25iAQlv0AHWCv4WX4ogLfG
45rksTRkbF+5LreqAA5um3MyvFORh2xdvSPjDpD6FLWzJvIZwqmdlxcFd0Dq
26FVw6loRDWStvYU2QG7La123OmIQgy/rln8FiX8UeqoV8QjpGvKarxJagfY
nPe2q/OOQLWMmvu3Ke6AygDOhfGJYDT1LlQlhULY+7tbJ7YHIbZzHUoyyjuA
4cF8po59ADpacFVqpyrhLzMXdHK3L2q2fb5FR5uwq7X/Y9C/iua5vjPXwg4I
KDLgiCy3R1xl6huGegQbjkqft7uITPjbf5w2IPy1q+2uqB9HN7DkfK8hwQb/
nobcUEUxzs5TVscJTnXOvvJDGXdUsQw4nCQ4NIenjNkML183/TZ/mmC0eRFo
llhAPKXV7SzBMcAXr2GL99XPNq5aELw35Me+Bjt8xmN/zS1LgkXd137IOWIv
qRDMaE3Uoxt2uObEVZzQ3FoaepGwuxcezNC/jvtknXKi7HcAeNA3lR13w79b
32cJOhL83eZ3zi13LO7P/DLRmeCDBv1SMR5Ya4dJ8nYXgi32b3A/vIkvdCXF
p7sS8xHht7rl6olvB85E73AneJ49zl7DC6fsVIvMuUn4X3w8+nXaC+PeoNC9
3gQbGkt/vO2NqXe/BpT4EvXUM7fJ//bGjHvE/Q76E8x4n1fcygeThhxufr5D
1P/89cvEVz5YL7z4+pEggoU4Z151++DLakxOzSFEvjSRcQOaD747anzZ9B5h
F2zZHzzngzMfPrP6dp+Id+mV/IWvPrhWc9r8fCSR/6dL/OBTHzw1qXqK+pCw
VwmwcxzzwWyPA4/bRRN25YDMhVFvrIBajsw+JuIVW+2MveiNj86J6l6PI/gk
nYmhzgs7xV/RWk4gzjc07tDm98IRekVqPs+Iep5l6Vnoe+JsOoPKRjLhPycV
bWlzE395dlwpOJWwszkvnrrogWlHEuXYXhL56CKjx466Y+7lye0PMgj2+3rb
VMQN707dK8qXRZz3+h3g1uKKTYwCBOLfEPkEWO/4drvgG2vNXOLvCC6atwyk
OuOY9G1b0nL/3++NCpESB1xgYs9MLiDOJ5n+trGyw8tZ/1aVPxB2b085YWVL
PHlGP/V+KcE5HrHuw6dxD8sDg7Eygu09bUdvGuIyG9GncZX/12cF7e0FBZTN
dVFn4TPBJNbp3HNHUEr5q5mjNQRL3Hrc9eI0ChLZp/m3geCriuZy1ZeQR63f
6JlmIj/LWVpPmQOy9/gcntdC2AP9GmYGrqGjrSf6L3UQnPEp6tBxD8QT5nSr
cYBg5qrXb/7dQUxq+bKyw8R9339e8PKjQLQ8ttrsP0Kw44jxqkIw6kZ3JVQm
ifuezhn31ycUpaw+/xRPJ+aLZjW1Yx4gypUuBjsmRYiq+uStUx+HJAXFX39i
UQSGJjtRg8F4xFNlayrCqgiVH1/dnFlJQEuSC2lN7IqQ+m3Xt6H9z9DHb1v1
9ggqQgBfJUcl/Tky0Ie7/+QVwUau6sdekQykuRy600JREVyfOSuU1GQgyosv
XQUURTCvzWI6ejMTcW+cI9urKIII7Wnz7b5X6FvxzbpmTUVgO34WysrfoEty
b7ckHleE3QXJpkoueci3xsqJbKIIeU5e88MDeSjKjq+p4KQiFM0cKXlmlI/K
M3wim84qgvfQq0Ix5QIkQDbg/ntRETpNdqcP/ytEteQJARtPop+vuuIeXz4g
RYXtUuTnirActdJp/w+jRcXHagULirBL5zJD3UI96mmGw/xLihBbkK10Zl8D
qnShnfL4qQjj8mslMz4N6GHB0Rtq64qgaJBVJcTciBQ1GbI/MitB5w2Bv2aC
Tcj26DXpKiEleN2/16V9/xfUeeUIR6eWEjD0LTj9K2xFZVt+iu5DSnDaa0qn
sbMVvXj7YkecjhJgz2tk35+tyJX+V99cXwmaEu7dvKvWhji9igIHTijBq8mK
2t0f2pB+qPTquK0SzMQ2bXAXtKOS9N8jP8OUoC9K/0vhvU6kpuexahihBOkZ
X6H3RScqHvnOkfpACcz9ouMaKjpRgeTQfsMYJXhvc/A961Inyk6ofJDyTAls
lm5Gjp3rQqmRdzWO5ChB1I+Xuk7bvyFJpQ3jpDwlWG5b8xlW+4aSGzwvLxYo
AZhfIvEbf0OJmx0ePftA2FFBXYHfNxQbYDhBr1QCSvvFtE8d39B9D+7ohA4l
OBDhV2Tn2Y3Y+MMy57uU4CTHTTmn+90oNJ+hXLdHCXL/etyRTupGIbTFye8D
SsDxvFIls7Ib3Xbo1NKZVAKqUW7m8qYe9Gfz8ZNx00rQML/vur9QD/LLqLky
N6sEEktPagrJPch79H3ME7oSmN2Uu0vW70Fulk+nZ9aUoDYl0ZMvkPh/fp13
Q/u3Etzbebv558MedP1pOH/sXyVgeVzxMjCpB1395qetzUQBwwcNDlHve9Cs
x/KpxywUaKvYJcNX1YMc+a85Tm+mANMyeU3jaw+yN7GKjWGnQM4QW6LPZA8a
p317PcVJgfvbwrSjFnvQpQcnsBYPBYT2NGUb/ulBNo0wOylAAY0zJzKyeHrR
kEPpvwPCFLAJu8N3TLQXXWDdIxi9jQKDQWe5H8n0onOHZOCAJAU8n1If/FLt
RX872biqpCjgovq0sOlgL0q1o/UbylCgrFVLkqLfi/RWOl63y1GgSlZPVtS4
F02GlnqdU6CAs7C25BOzXnRf+PnhUUUKJBUM2idZ9iJKVgi/004KbHAsn1O+
1IvcGk7k+uyhwFDNw6qfLr1I8Nw+f8Z9FKhWCfkj79GLSmZFj93fT4G7jH2O
Y9696LwfwzZeTQpsajzsLu/fizbYJycTtCgQ0FgctBTQi9KSmoqkEAV2Rp5m
ORLSiw7tzA/K0qHAolekvfS9XjRVEWey+xAF0EV20aD7vSjc+JZkiT4FXDfV
RjtE9KKdwxe/o6MU6An4rdsZ2Ytarx/5WHeMAuMl6hnVD3qRO8POsBPGFLj5
8fwejYe9SCia70y3CVEvZ7y9CsGl0msy1qcoIPzPozKb8LcsGFycNCPi9/dV
viHi/dOtwi7mxD5lOOYUiXwvOrIerJyjwO7cd9UUop7Dlx+ev32BAh+/1Hfl
hvai6WX3HZttKHDLpCWrMLgXRdy1WH1gS4GxqKeN+4l+dwmhGkE7Ctg6uDce
uNWL2jJlHydfIeJJCGpir17ksX/rRTknCmTqvn33n1svEq6n73p3lfB/2FOm
e60XfTTv+qN6nQJBaSV/da4Qepj52Fh+gwIXa0a5sE0vYvBNTTjkQYHhpKsP
Si160cutofbNnhRIbPi+TeVkL9J/5qx62ofQS4j/WTnDXjSjZMo04EeBdkU8
90SnF0WWq7Veuk2Bok99t4PUe1H7IONV92AKVCT9NW6R7UU3Xab+VzG9RzVd
hnEAt3GJ1BMIMy4qYKBT+r1rHEGux/eVPBwVHQQll8hWeJAII6AzwCRBERCB
iiCHoMJg7DeR21LkZq/oljAIkbXtFy4OBxsBWQKLq8h6+/Pzz/Oc5znfr9+L
CxQyW7WfokgeHUwDr54voJB0m0+gpfVv8LirqLa0mEI5FStPOYukH59wn7Re
ppCqL4h26WFgsdFO5neF3LsITh6RM5CXuyzsqaLQKmfw0ayYgUKJwvZxDYXm
3L7olZxjIGsy5vBMA/mnQW/XGMBASQZyyGii0MhcpapiFwMPvrZzwtRCoZSB
UcVLNgNLPGZzrNso5Gbfb/bWMx3cciq/g3uP9OlMd499mQ6WmOK9L92n0IbG
cVXo1zrIKg1u/VNBHHbVzSZBB6fbLGTVfRSKT3+/Zre/DnauyxXZqkk+wlVh
mNFC7vdx7GQNhfi/Wof4YS0U73jn234dhSLFVnkBEi0sPMwqyNWT/jQdGGWS
tTCmLDt9wUChqOC0zzNMGji4U2AMn6RQ93PY5j2ugUEdMLl5mkLTWZdvf6XQ
QI/RtfiE5xSqceTuE+dr4DIn69jIEoWKPrpUG2ulgaKuTO+fNgB0P/GIldSo
hhv50a1OrwOUVHpSYRpUw+wxX5BuA9C/ot72pzI1TLBYcudtBsgDzO3hH1dD
n1AhW+wM0M2VxZBbPcNQO55qvOAJkNAiVcRKeww3r09qPRoJ0Iq28sQr5r/A
ppJ2gz4aoGAX92bODwMw2M7CKSkWoBOWQ9bHOANQuPXaucKPAfKSTrGGgvsh
wx2KePgZQC37ExNjT/fBqgivBZQNkOuXVJXlbSV88+qqv5eMmFkIibHsgp3b
DyU/aADI3LeqMGCuA0bUl9eGNwHkELG17xt9O8xt5m5M+RGg7l6BT/XNNmjo
EfzeeBegIj43s99fDukJxVnOMNmXIQw9s0MMubxihdMLgBLO5z3ixNVhd8O7
0VxiZLAedhHWYacrb/yzn7iAbcd3uFiHLcyr7T8lFk0ckK9vrsN6nTzxDvFM
SsHu+ZU6XHiWsXlvFSBB6jblWKkETwy6fVj8EqCoclWg7YN6rD8/OVtNfC+g
iO+orcfDvo15t4h537XpXKfq8V3x3pYnxAeNrDBPaykuEx4y81gDaMz+hjby
AykOck6W/UzMy2oAXUYp9lXv2TdCvKuI19RnSWNuwdLw38RR19kSxpHGjnM5
q2wTQPTRO/OLkMYzyrLQOGKeeblrYBGNJ05H/yEkRmkonH+dxvq3nTMLidep
lMsCOY0fVkjFrcRjZVtu5DM07uYn+SiJRe0qeeVfNJabeQ4w/8/jbPJsWaMx
3T4veEac4DXqrtwkw9dOdc6biFv2bi8ZcZfh/wBca25u
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    Thickness[Large], 
    Arrowheads[0.05]],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{0, 15}, {-0.9763786713173379, 0.9999999999999063}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.419291548141123*^9, 3.419349166845999*^9, 
  3.419349289254915*^9, 3.41934947027742*^9, 3.419701694956294*^9, 
  3.419769210722713*^9, 3.4197693299192343`*^9, 3.419793600149808*^9, 
  3.419947594755143*^9, 3.419949341068108*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", " ", "=", " ", "6"}], ";", " ", 
  RowBox[{"y", " ", "=", " ", "36"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", " ", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "\[Equal]", " ", "y"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.419947816603149*^9, 3.419947842154291*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.4192915483811913`*^9, 3.4193491669036617`*^9, 
  3.419349289855781*^9, 3.4193494703955936`*^9, 3.419701695004786*^9, 
  3.419769210839555*^9, 3.419769329977085*^9, 3.419793600353409*^9, 
  3.4199478597970467`*^9, 3.419949341100684*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["p"], "Input"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.419291548481202*^9, 3.419349166953116*^9, 
  3.419349289973946*^9, 3.419349470481662*^9, 3.4197016950401*^9, 
  3.419769210930994*^9, 3.4197693300125647`*^9, 3.4197936006078987`*^9, 
  3.41994786514013*^9, 3.419949341207282*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", " ", "f"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"1", " ", "/;", " ", 
    RowBox[{
     RowBox[{"Abs", "[", "x", "]"}], " ", "<", " ", "1"}]}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"0", " ", "/;", " ", 
    RowBox[{
     RowBox[{"Abs", "[", "x", "]"}], " ", ">", " ", "1"}]}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"1", "/", "2"}], " ", "/;", " ", 
    RowBox[{
     RowBox[{"Abs", "[", "x", "]"}], " ", "\[Equal]", " ", "1"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.419948083558529*^9, 3.419948085645434*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJxN1ns41QcYB/BzcMLhuJXLaYTjOp0Jq2NZHhQWi2fM5WBzXTwjlxQRz8mk
jlZkHgyjNJeGUu7kmkt5kmzW3JdLjORydMJBse158r6/93ne5/t8/nr/+P7z
qvuGOp4UIpFI3P/2/9Q3U5jb3pZuJX2Y0HWNxPUN9P1KQ23+CtpI1873n9do
Y9mE4acDaPOXy0+y7qEduT2ln3qhz/UmBAc0S4GfP5eYe+hDA6u0hu4xVpYE
Vwd1UKT/poK9rxnyhuLFwYLUmMQWMzFwvtQLeubELnCOrWH4n1co4PhTPlEf
24iAY4RLzoUvCIF94no1+38jg9ObpjNzAkngB2O6kncYWy071pAxP+p0YxNc
oZcYOPlSAB7rLFdjsVbB08x0o5YaPliPU7g4W4oO6a0ukbuFFpzuZ/hfRVNr
FXfTvNEGFtl8d3F0jPPNqlWPN+DWonthag5oEUEL09YanZw9XpBrgM4bU0+3
pKAffV8QkVq2DJblFLP0yejLNbpdMms88MbibTf+PHrSqyi2bhBdYZHfdvQ+
Wvs8w0mrCJ1dcWtaNAcdr5En1sNFO1Jy7V290I9MlccPO6NNIn85rfwlmjGT
lTbBQmeo0rU7mGgqO7O2iIHmpCjaXFFC87syhoOk0AFkhVP2IuiaM3qbPm+X
PphndmNKd5/OOPqys47FfDfaxViTG5mP1qGr95Bi0CU6Yu8djRfBTNYSs5A/
D2abLnIOsObAFy0Xfq+PmgHLO5WluClOgitWO6W7NIfBhSPTSa8SnoG/dVCu
GvGrAtdTY/5qi6g02/GhSfK+H9i9YA1ew7pJ2xDYJn+ox549CbaykxNeqZ4B
B/a/fZjKmgNf9xqIM6idB0sdMAi4JrcITt5KtJsNXgJzlJyefJ2FDjFS/aKl
A+3fkkCJGEZ7nphr1+OhS+d1LHhCPLOdvnQq3dW6aej86KTtQiW0qnnrizgN
tGKPVi7rMFp0hkf/9Tv0xbsa67Gh6O0zLoOu59FrpMYMWgp6Zi93d3QD+rG9
Cu0ruWXwHv0JhXBltDetUC1NG73RzTw4aIJm2hzx8PZDpxzzKA6rQrt/lmX1
k8sb8IK6PKcvmw+OOLvf57rCKnhgVMbRv0uA96OPzIie2AS37zf+sZ2yBdYW
b5wtOE4y37FKY5AVJZEMJm0IFYdPCoHXHJo8O7VEwCMHvT7SSqCAw1xlZBmj
u8D0tCm2iIoYuMwj7zY/ShzsanrheFcTFVzuGcwweScBFlCPCdc708COf3zO
UsmUAmcxlMOSV6TBkhIirDqCOfzXmxME+3Y0cA+topn+HjdHCW4uzn6mJ0BP
GdA/ebyBdqGT+TyCu8iv6vZuou/21VmGEBx5lv2N/Du0eN3PV/3eo2PzLjgk
EbyYGKBYS3Cfm3E+dQuds9n/oJxgqanmuBGC454WWVO20SdzI/vYBA9e8syM
J9g2xNrzDsGNLvqa/QR/+C/A/wIZcz79
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    Thickness[Large], 
    Arrowheads[0.05]],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{-4, 4}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.419291548681471*^9, 3.419349167066897*^9, 
  3.419349297186198*^9, 3.4193494706771383`*^9, 3.4197016951511383`*^9, 
  3.419769211110773*^9, 3.4197693300896893`*^9, 3.419793601076014*^9, 
  3.41994802798311*^9, 3.419949341360538*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.419948061111887*^9, 3.419948098000019*^9}}],

Cell[BoxData["2.000000000000086`"], "Output",
 CellChangeTimes->{
  3.419291548781251*^9, 3.419349167167729*^9, 3.4193492972201242`*^9, 
   3.419349470712328*^9, 3.419701695163587*^9, 3.4197692111456537`*^9, 
   3.419769330130157*^9, 3.419793601256789*^9, {3.4199480692097187`*^9, 
   3.419948098769115*^9}, 3.419949341423481*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"Im", "[", 
    SqrtBox[
     RowBox[{"x", "+", 
      RowBox[{"\[ImaginaryI]", " ", "y"}]}]], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.419793466444113*^9, 3.419793467614876*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxM3Xdcze0fx3GUHXeyd7Z02ysZIdlZGdl7E9khuhXZIyvZIyMrezVQVki7
aO9BOyXz59F13u/P76/z6PVwczrjeXe+Xdf1aTJr2Zi5ZUqVKnW6XqlSWn9v
25nUyvjz5483bncOeazbP+qbd5VB2+PO3vrNfnbPzz0t7L55fxnxPcx09i/2
LvdO9bJv9s377fgl75Nr/GRvf3jBl1kvi7zdpsX4OL78zr52S9699wuKvHfM
G/XYYF0x+2Frpzr+lYq8F1g9d39r8I29XpuldZZfK/QetKbLpaWRhezb5qdN
fmZe6N1y08WT/+z5yl6jl+OgwKyv3mW31Tl0q08B+9MDZWrf2vfVO2nPzp0W
OXnsh1K75a3s8NXb5/BPu69nc9kD5gz92S6wwPvcSau1Ry1y5N/d1XdysXWB
d5lhzyJXVMpir99Gr9sXvQLvp5NcX99f+pl9e6DlpaZ38703Ldpx73tAGvuV
kHvnHo3L9+61fum5Pl1S2KfVnPb2Q1Ge9/cdo/dtOZrI7j/ggvFWlzzvh8e6
bnz5PY49PeJX1x+987w/j+kcVMMjiv3uycAQi4Rc73krflw9sSVcnpellkdv
OeZ6xx/w2dp8SBB7vGtaTrd2ud4PZ9X2tmzsxx72qvqbsmE53lNMRyYHWHqz
P96VVdRnc473/i2xznHJF9iXPt//vHSbHG/n/0q6CfqKNtaPw65le8f1L/l7
2M2uJ+b8WzHbe736d9nb/DfSo+vCLO/n6n6yT3k+zKze+0zvQer7YtcpuhPx
s0um9zv1OLDrz9hx6duZL96X1ePGPqFc+wdNqn3xzlCPM3vN6WP+OGz97P2v
el7Yv8w76t76d4a3lXoe5f7MtT2psyHD21097+w9Yr57tvmZ7p03tOR1In++
xZ8Xa/9L93ZRryv24JDBrxIrpXs/Ua9D9qWjboVPck7zjlKvW/YXiyvef2GQ
5v1ra8nrnP35wJcLKnmnejdS7wv2TvfTgnQsU71N1PuIvdQa1143C1K8Z6j3
nfw92qP9gw6leP+n3qfssU4pPycYpXifU+9r9vGRbdIaxSZ7+ygH2B+ZfXYr
vyPZO0m5wR41tfOpvK7J3mWVM+yRZXbvf5qchNcTewWPNXljnNnp0xqbyfp2
98Ur3LoG1r5WdqJ4hb56ZvKDr9+L6BX6siN3rkw4IV6hj1uww7RLb/EK/fXG
Dy8PRxfSK/TyPVfV2W4rXqHv0NJPrtNQvELvGb3Md4KHeIX+amXyxPGTxSv0
+MAs69bfC+gVepse9esmOYtX6Kbjh1092128Qh9zekXEhrB8eoXumTbjxL7V
4hW64RO9Vj9riFfoM2/0u5NwV7xCL7dq/pB548Qr9EOeLayuFubSK3Rv48oe
4c7iFXr6/NyF1XqJV+jXux5/uikuh16hTwq4ZW+2TbxC12/nZLGzrXiF7tfY
v0HcX5fgFbqzc+9l7cqIV+jHa7t8NJ6cRa/QfY6ERfV4mEmv0OcsX2VvWVe8
Qtdd6xPzZNMXeoX+uaDyM7u0z/QKfURq67tPxn+mV+hJ/Rxb27zJoFfo0V7O
oZ59xSv0FxV9+zt6pNMr9NPGb63e9RKv+H5aumbXpmdp9Ap94n9JPjuGptEr
dJfy2mXDwlPpFXpxZptngxam0iv0ecsmXXn6O4Ve8fHvZm6p75xCr9DNH376
MqCreIWe/W2FU+WwZHqFvu+iddGo9cn0Ct1268tbuU3EK/TtDt+c/N4l0St0
66ZxXx6uT6JX6KW0L752MRSv0JvtvFBtZKz8/xsOOZ07VmnSAfECfZDvyk0b
OolXuF1a3NyxMEi8Qv9hGvY7cIV4he6V6tK2lp54he744nLeO3fxCv3CiQnZ
pUeKV+iNHze+8/zLV3qFXq+LfWqjneIV+vnAFetbtxKv0EcMm/wi30e8Qh+p
c/LG0RniFfu4V8/b/sqnV+h7LZ36Bx0Tr9DvfB3V9EI38Qr9yK0NRb7BefQK
PSu4UaCltXiFPqbe8m9b/xGv0FfGXT266oZ4hR5eeHzgiBHiFR+H3u9se2fn
0Cv0S9qT8pccEK/QqzuMSinXVbxCD7kc4bXgbja9QnezHhFrVEa8Qvc75/b5
pUUWveLrzWZR+tgrmfQK/VHb6toNtcQr9A0Fs66OmvmFXqGX7xD9vbbvZ3qF
vnjLC6sDhuIVX5+pfZMDj2bQK/Qmd+2TkyqIV+g9o9o0e78pnV6h/9oxt+PW
4jR6hb7TZZ1lKZs0esX77zjIzvBXKr1Cf7DwarOsran0Cr1bk9b9DauLV+iN
WroPen4hhV6hd5w8OWmfsXiFfj2wfIBVSDK9Qn/33m2t0YpkesX39ciDB19U
F6/Qj38vfSnrYRK9Qi/1ZMii3TOT6BX60ROdm6yrIl6haxtfi93lkUiv0Nua
xHqds6JL7BU6JWgfayZewZvOTjuaxS0Rr9AvPpqbd1RHHEHP6Taq+dGr4hVu
63vdiUscIl6hr5sw893W1EJ6hV72V88e2xzEK/TPwyMsc/TFK3TLpZbWgR7i
Ffri1OXVe1iKV+i2d2uM6pFfQK/QrxS/+JyyR7xCv3OvePfE1uIV+lTHeQlX
n4tX6A2bbfP8MUW8Qt/fpk7DRX8/38Er9E/XDJvVdxKv0E1+dsvr2la8Qn/l
3nFp0utceoXevt/h8DFzxSv0x9+vW9wsI16hmx71MjE4K16h1zSvuDqnr3iF
rl1gGr3AN5teof87cPyzgZXEK/RKRv6Hg/66BK/Q+89IazHtbCa9QvcxPzO3
c/4XeoWePdS66sEhX+gV+pDL6/beufCZXqH/N737+Kfa4hV6xa3eOz4uzKBX
6K4p5/RqhKTTKz6erxdVXG+aTq/Qnyy0WlD5YRq9QjdskVDo1VG8Qm/pUzjR
3j2VXqEfm3TIuG8X8YqPZ9Vuy8M9UugV+ijXts1bDk2hV+h/al5JLBuVTK/Q
7U5+PGb+1x94hf51zhirIB3xCt0lt3DrgqtJ9Ar93mGni4nmSfQKvdm11V61
CxLpFd8vdYaO+XgykV6hh35+E/xraCK9Qs8I65o0+UcCvUJPurJg69sbCfQK
PT+jX6+Wc9npSouQsvHNhohX6NvaTO+5NLVI/j+q6WUbbFiT4SBeoae9vPvp
TBPxCrdlLKJ7HPUUr9C7/HnZIsxSvEIfpWtsuCD/K71CH5jkqTtpj3iFnlfD
qM6TluIV+nq32H4nvcUr9Aa+M/fWtBSv0BMCJvbulZNPr9CN2yzXbrtdvEKv
+u24cXl98Qpd27pPXuYD8Qp9TmaXn+VHiVfo+QUe7zen5dIr9FVrBpna/yde
oS8ZMLynaX3xCr3626Ky+fdy6BX6j77drrwaLV6h24/X/5YZnU2veP932/Rd
Wl+8Qn+049Cb1VOy6BWfx4xxfRf/dQle8XpAozXN3TK+0Cv01oYRXluNxCv0
NtlRCwfu+kyv0DeV0jFrnZhBr9ALU3vPmfT38xq8Qk8d/2Hz73Pp9Aq98+wo
fYPK4hX67NNbeiasS6NX6N2n3Gra8ksqvUKfm7zfM2VOKr3i89UoPVknMYVe
of9b1i3CZl4KvUI3qqLnWiE7mV6h//nWdNe+jcn0Cn3shg194quKV+j7DvmW
83dNolfo9wKnP27eL4leoQ/19XX6+5MFvULvXfArcrBDIr1Cn36/0pY7huIV
unW++2afsAR6hX5uxZlOQ7cm0Cu+bhd9cK7XXbzi/V/2en3FL/H0Cv2O4+ht
mefZ6YdTSsO47i3FK/RNFx5GVfURr9B7jPsepz1dvEL3LTWmeaPv4gt6o1ff
rWYcEq9wW7b48oTgtuIV+vCouY52L8Ur9L7TTLRWTROv0Cee/b3e42sBvUIf
ONHu+OLd4hX6UR/HWUeailfoFfsXLR/3ULxCH68/YMILc/EKfbKZX1i5xDx6
hT7y2PJqJuvEK/Qm+36fPlpFvEK3Mni/rc958Qq9tNW8UvN6iFfouQPW1RoQ
kEOv0Bt23aSlt0C8Qr9WOXxS5dLiFfqPOi3zP3YTr9ANSp/el2qVRa/Qe447
4H7fLZNeoXfOqpz38K9L8Aq99sORRye0F6/Qg8yafs9Z95le8Xl5HT0n7FUG
vUIvjuyyfmgD8Qo9YKFpX7s16fQKfW33KqEuYWn0Cn1Kz7U+13ul0Sv0oWdH
JnpeTqVX/BwwcPfF5/XEK/Q3F8vfvuSUQq/QzU6NPjNCV7xCD598PWD/wWR6
hR6zP8KgXwPxiq83rT1ebd2S6BV/TzUjaVCT3kn0Sq6v9FmWFJJIr9AHbLmZ
3Mc6kV6hH0joO/RbNfEKvfLRVQkR9xPoFfrcr/4GbtMT6BX6mEf3e3fXEa94
f6bXMDT3iKdX6I1XhDd9siyeXqFfWlfDZUxL8Qo9/mfcxNRY+T0TnLA4FpDS
Xlu8Qr+4xv/mgdPiFfoFP62RP3uIV+ieBVvvrAgWr9Ajhg+fVrxY3EFP7ax1
6YiWeMXPhQ2bV7RwEa/Qgy+OsenRQbxCP2S7/fmEF+IV+pAbeeleE8Ur9HFV
/jtqn5lPr9D7vNa287ITr9CNXC3e7a4uXqG/6th/re5F8Qr9qP1ml+VG4hV6
cYNTZz765dIr9PY6LUfbThWv0G1X+rs55eTQK/TFY+fZjXMQr9BfXvnlX7au
eIU+w+3lvvdTs+kVejO73o027M6iV7yOaOe69LRXJr1Cr9SuSTWfgi/0Cn3J
qJmLF7QXr9Cn+E+pX2HZZ3rF18PQ0w+q3M2gV+g7rWbWCv2dTq/QAw1WWFwe
mU6v0MvE6d/yuphGr9BTiq0m9dIWr/j4L00t7LQglV6h759RJftcUAq94utn
7tqutqYp9Ao9wTZ8juvjZHqFbjDfumxB92R6hf67VvVgoydJ9Iq/D+/nkNxr
QBK9Qvfw9bvoG5RIr/h4zhiy68C8RHqFbrYnedvsPwn0Cv1wxecm308k0Cv+
+Qk+ZWqZJNArdPPq/ezWJcfTK/Rq480tk/fF0yt0u01tNzXtE0+v0DcdHLj+
W3YcvUJfuLfGgU6ucfQK/XlSbsipqXRJHjcX51ZV64pX8MDftH68fmIRvUJv
9cw8ubKteIVez2mLcVpN8Qr9fuUbQx9cF694/emRV6WNA8Qr9E/1+g/s+Unc
Qb84+/bXH1biFW69ymafflVGvEIveyT3pdth8Qrdp3Xz6fdaiVfoZkd8R/54
KF6hd6y1sPjQEPEK3Ub3u+fpj3n0Cr1UyGD7PgvFK/S9xxNbunzLpVfome56
4fGO4hW65clp/YfVFq/Q22Q22aN3SbxC39yu7U+b7uIVeqHn4p1OB7LpFXpy
kG+B8/0seoU+M3JUA9eYTHqFbt60W/b4SuIV+hSDunWGG4tX6A0qZ0+r/9cl
eMXHodW9KqOuZNAr9JZGZR7OTU+nV+jpiUVevu3FK/QMrePh3hvT6BV6QC+7
J04BqfQKffzV+hVnGabSK3TPhm5Gvfak0Cv0TV4tV9QvTKZX6CZBOlppc5Pp
Ff//GZ7QfkNUEr1Cv5t/rtm5iUn0Cn16o3d++tGJ9Ap94dui1Xf/+gOv0KdZ
O7etVZhAr9CP17G89nNnAr1Cf3/B9XfDFuIVukXVge86+MbTK/TIJjvHZs6P
p1foMzJPt6qqK16hj52dcmmURxy9Qq826+bU1Uvi6BW677nIln31xSt0u2Pf
D+XciKVX9OTt86yAZrH0Ct1x6qB5nqdi6BXe94cqjIjQ9xGv0B0eLSx1eLJ4
he6yx/lafJ5cB0evc7aGXbkd4hX6ulN9nbUbiVfow3qNjYm5JV6hH3AYP89l
gHiE3r3Nkag+YQX8GrfdNq4uEz5PvEL3vutlbF2YT6/Qa/vfba6/VbxCPx5x
1PSHnniFHnWj943GZ8Qr9PINTni7/yteoU/xvuEZ8VC8Qp/Xo/mCNwPEK/TB
pXSnePz9fAev0JfXMeyWP0W8Qt95LveeVXA2vULPfrbq2O2sLHqFHrL5ftE0
HfEKXW//R12DtuIVek6n3II3o7/QK/79O7VrFK//TK/QH8cHDJz31yV4hf7d
u6Hfneh0eoVu/uXw/eV1xCt0p21319WYlEav+DgbR9z4cS6VXvH/V8v8L8zL
T6FX6Fmrr1nZDEuhV+j7bY1X9b6aTK/Qi6MO1r+gJ16hJ82p3nHnf0n0Cv2V
X++rT4oS6RX6Hveba4pWJdIr9CWHLCvlf0ugV3wd/ujuMtU+gV6hh85yDUqo
Ll6h90lOqtnWLZ5eoZudiuybahZPr9ATF9qX8UqJo1fovec0Dp2xO45eode8
o39lS7c4eoVuY1rx3N03sfQKve680LVm7WLpFXoTo9k1u7nE0Cv0VREf9KpU
iaFX6Ct98gwmboumV+jBgW4p7mXZ+f7ut2hL4sAL4hV62rp9fmY9xSv0A9rV
u2kFilfo18roem6cK16htx3y2eLWN7nehN5+99NzZ3eKV+j3PwYsHlX//35+
0nS/s3W1fdzEI/RG9fNjS/cQr3Dbx7lu17ovxSt0X9Pjt+uOEa/Qz8aeNK8b
nUev0GfrH2/cZb54hb6lyuSRe3Jy6RV6bu01xSNtxCv0EYnbyruXFq/QHVMf
x2TsEK/QL0xPfDVIT7xC/7rmVWT7buIV+nn9Vy6Lh4hX6KOy49LKT8+kV/y+
bmsVh679Qq/QWzkO2Hj90Gd6hd7ZSffu3PsZ9Ar9iV+fi+//ugSv0Be1b9rk
QmXxCt3yiu6U/X3T6BX6h8Fdv9e3TaVX6IO1ksvffJZCr9DrxNfpu7eqeIUe
c7zswcjZyfQKXWfc3hPOz5LoFXq57Vbb3Vol0St0n8MvP8QcTqRX7MPsB+RU
Fq/QQ349L961I4Fe8X6OO/V4XFXxir8XSh2a8PlYPL1Cj5g01SHDMJ5eoZ98
WT4t0yeOXqEHD/aZe2hmHL1Ct6jU23OztniFvifiZuFVy1h6hZ7Y0aqqw60Y
eoVe84R7aKpeDL1Cd34xMbDfxmh6hb5qW3xEucwoeoX++Xz1F/fmRNEr9Kkm
I3+FJUTSK/RzSUtzfsxj5/v4fsWKule3iVd8f9vW7mPUQLxCnz32c/QCd/EK
vVyjiZ2MTMUrdHuHt+7nQsQrdN+4fyddnCNeoX+sfqelab58rkNv1cnNcYOd
eIU+fc+yMuN0xCmuX4g4kRpxRLzC7VB3j9Y19cUr9CEvHM0bXhav0NMnD3Os
3F68Qj+2dUJ06XviFfp2c//5hsbiFXpyufPbPL1y6BV6oFm94m/9xSv0d21v
TBu3N5teoT+9ZjbU8mgWvUJvktegwcuzmfQKPfdTWDe7G1/oFfr6o+kzbbw+
0yv0zqUH594IyqBX6AsfW8U3/pJOr9CX6M1xeF5ZvEJ3zTn1xKZTGr1CDw7c
VlBpZiq9Qs8bE1WnlnMKvUKf0y1vsm5EMr1CXx5TwaJ/k2R6hV5h36Leb1Ym
0Sv07BuLM10+JNIr9FuZdTfv6pJIr9Cn1swttjiXQK/QrV4H1DxWJ4FeoRvs
67k390g8vUIvGnL10ucG8fQKfcz67x7V3OLoFV8/XTYEZPaOo1fo3Z/5L6jj
Hkuv0DNKh4V+z46hV+iWHlt9bxjH0Cv+ntzyxowl+6LpFd/vfw5/WvfXGXiF
3qGKz96WY6PoFV+frm/9Qp5H0iv0gWXKjso2iqRX6DVGhV7LvPeJXqHHPQ7Z
NKbHJ3rFvyfoiZvb84/0Cu/X8cPc+s5bJF6hr5qzdJ7jb1mviT5zcKBWhwPi
FbpfvzLelk3FK/RPVmW6/bglXqH39howQa+veIX+asadDy7v/u86lKY3aGLt
dHCCeIVea3ajzb/j8r3l/4uq11hw0zB+gXiF7jLNM8wsW77G7YVm07f1WiVe
oW87vG9cVFEuveL9bzcta8B68Qq94+ik1md+5NAr9ErjHTybbRSv0BtaXQpv
8S2bXqFvti98v7koi16hX2yZtKtuUSa9Qp/SqN2w8KIv9Ap9/tYTZk++f6ZX
6Ceuf3sQV0q8Qt+lP+joysriFXq9qS3qutYXr9DPNrYIP/nXJXjFfzc66LfV
6FR6hf7eVmuxtk0KvUI/Pzv4QF23ZHqFHjCi6Gan5CR6hZ7a5GywS5skesWf
l92tbOetT6RX6M6n1kXYhCTQK/TMZmvaHjBKoFfoj/uP6TL0Yjy9Qu+ZYdO6
bcN4eoVutTc2/u6JOHqFXq3wxP5xzePoFZ/fMwu1tOfH0iv0LWN9yk0/GEOv
0D2Gte506100veLzGK1j/ataNL1CDyo9c//4WVH0Ct24y7UmcR6R9Aq962nr
I/76kfSK/z8fPCtk3p5P9Aq9UVHblb9Kf6JX6Pret199tf1Ir9BvJeWGPi31
kV6h5xgO7hm1I4JeoQ+Jd2wQWIed78vAJrfKOI0Ur3j95lb3LiMTxCt008NP
uqxdKV6hj5s74dWfMuIVeqlabpNi94tX6BcbzpxapaF4he7bpJXblkviFXpO
2V26xh3EK/Rp25aX7vhAvEJfNWznvAW9xCuuUyiueD3ZW7xCv+bsW/luP/lz
uA16mVc55Zl4hf5pyGnLo33FK/RXV44HZXmKV+jFx0tF6RuLV+j53nfXJy4S
r9Cv6K+IXjZDvEJf83lh/JNx4hX6/F7ztrwcJl7x+7Uc6PnAVLxC131Z92Bk
nwx6hT7B910n5z7p9Aq9frNDLacPSKNX6LPfaK1y+esSvOL+S91674/OT6FX
6Lf0Qv1XOSbTK/QRvVos+ud2Er1CL/SPffczNZFeoWdt/X3T0SCRXqHX9L0y
496aBHqFfnbUuTsjP8TTK74+4y+dyO0UT694P3cZj6pxNo5eoT9cdmBO/bpx
9Ar99ZT3Db26xNIr9Medmo5bMDiGXqEbdfTvmrQ4ml6hL89/dzrzZBS9Qp/0
wuLwmOhIeoX+odPDn19bR9Ir9PGvcz0DNn+iV+gWLfd458Z9pFfoZ6xatbYd
9pFeoY8ue73dVa8IesX3S8WE6y97RNAr3v8VNU4beoTTK/R5B3cfNDMLp1fo
h75t6bk3JIxe8fdd7/to7V7IzvffkjtfJgzuJl6hV7I2HnDtlXiFHvL4dPbU
CeIV+nHnX99GJss6TvSIaL9hq63FK/Sjc7MWP/sh6w/499zX/tTaQbxCt4n4
eORsJfEK/fbhDf7N9olX6N479e65VROv0M3m2J/t6iReoQclzFn5Rle8Ql/X
z37Mij3y53A7sUpeiFkF8Qp9yOP8g3P/E6/QN/5+M0k7L5te8ee1Kue6e8Zk
0Sv0LC/T6ZfeZNIr9Fn2I3dfvPOFXqHrdfA3DT35mV7x+8oLrb9tRwa9Qu/S
Y/wlk3Xp9Aq9Vt7ywbcWp9ErdKM/NvXOzE2lV+hrxscnvPvrErxC174V3SJs
ZTK9Qp/aMbRf/V1J9Ard4lVknOuNRHqFfupNyp2GsQn0Cv378S/PXzVIoFfo
I1ZM8d83P55eoVvmJMyo4x1Hr/j9mta6975pHL1CH9ut3ZKcZrH0iq/D8/Nr
HasdQ6/QR25MdMxpFE2v0Df8SG023iiKXqGv/eZa0GNWJL1CT/Fq26X58U/0
Cv2jjlWPR/Ef6RV6bfN/Yh53+Uiv+H1lhRtVOBhBr9A/GNQedeJHOL1Cr/km
vvvupeH0Cr300dsZ2mlh9Ao9cdzWf4YsCqNXfD38U/n9jfxQesV11hX7epy0
D6VX6J0++GvtqRtKr9D3jC06XfpeiJxfoHmfFV83WH2+kXjF33eZV3B+ckO8
4jruzm8stXuLVzyfwDaneMkb8QrdMyjcOclCvOL+lV02iydFiVfoWlEjannN
Eq/Qf58q1bRUaj69Qq/8X7aL3kLxCn2S84zU9DS5boVeoD0zyXaeeIVudbnC
1Lfx8vMWeq3N7fNDJ4lX6MELUpzcAuXP4fafx613zBooXqHrNfh9csQK8Qo9
Za3BP1ZjxSv0IAOzmsGdxSv0+TvaGy6uJl6hH+q15vmirAx6hV7t4yX/Me/S
6RX6u9z5NtnX0ugV/92kpk7DnVLpFfrxmNDJJzel0Cv0Z+Xzm9RZlUyv0Osn
Vtf1W5VEr9D1h09zXLwlkV6hLwn/Ob/PqQR6xef3sIv5r9fx9Ao9z+SGU3SZ
eHqFPrFupWtnhsXRK/Qmc+t8mGIWS6/Qq37/GjWragy9QrfzPDVnVk4UvUKv
blNxk3l6JL1Cv9RggXvtok/0Cj06dWrsm9qf6BX62feRZfcO+Uiv+Lry3lV8
d2cEvUIff863+cOP4fSK74vIuveMuobTK/Q5RXdH/ToeRq/Qr6X10snWCaNX
6Pet0urUcgylV+jlrnqvPFIxlF6hG8644X3tYAi9Qm905Mb0q81D6BV67YwT
H4ueBNMr9DHjr22pMDGYXqGXvt58xawfcp4I3k+FP+uu9qwgXqHnRdfv63JU
vEL/Ojvy087m4hW6ccfDpTbcFK/QLazv+YwzEq/QN1e+86Cst3jF6z0Bnzqs
NhWv0M+8H3xu7wvxCn10y/YtepuJV+iDf4wxWvpcvEJfXd7xbZXe4hW67swf
7tXuiVfotXdMPGzdRrxCn59geKndSfEKvdjZrMH4KvLf47ZnXtOdlQuz6BV6
wyEvXRPfZdIr9N+z4y6Fn/5Cr/h8zerZI3TZZ3qF3sPI6nTzPuIVekT+98jV
OuIV+pz9/d8nR6XSK/Ryu66nFdxKoVfo+ukHfBfuTaZX6FNH1njfcHUSvUI/
5duk4+MFifQK3WnCmGErFyfQK+6z9Lc1DdkUT6/QtXe/Lrp0Po5eoUfZ6zTW
uhtLr9AX1nnm/Kh/DL1C7z8+PtQpN4peoXfs5DD1X69IeoU+3SFhTLrrJ3qF
bjluzZGWFz/SK/TszZ12TvGIoFfou+w79+iUEk6v0KvfiG60rUk4vUI/fLWg
4/IlYfQK3dnvaZbJi1B6hW7T7qHJujah9IqPW/fEtX4uIfQKPTkgs3a1miH0
Cr1P8YEXQ52D6RV6vztXrhxuFkyv+HvvER2GGt4Polfo21wuJk4ZGUSv+Lrq
+6jn/qxAeoX+5OjyhF4HA+kVukvTLaHpvdj5vvHb1qOUe4Gc24JuYOJWNGeL
eIUe9mHmvWpVxSv0kQOrjT11VLxCr35r8u3cRuIVesMiny2558Ur7gMeZ7Z0
S0vxCr3q6hNDt18Ur9BfDjrokNJMvEKv8NT4qt0p8Qp974dx43rWEq/Q03eE
L/q1U7zi/fnyROv2T/l8iF45IL36sMXiFfqaRvUn77yezfczHwez6fMnbpL/
HrfljVO8hgwRr9CnbfYIj68qXqHfs2+d//tDBr1Ct3c53jF7Tzq9Qq9Ycc2s
XUPT6BX62fUpw4dUEK/Q19pua9TTL5le8X7O9SiXfTCJXqGvLl21TauFifQK
3cVu+I7l5gn0Cl0vxaLrbdN4eoV+5fammhHmcfQK3fHNnqXzPsbQKz7+1pti
mvWNplfo+XsM4ovfR9Ir/n7jtd2CP5s/0Ss+D+HJGYFjPtIr9MKx3jkF/SPo
FfrR/auq/mMeTq/QM/d516hsFUav+Pr8OVSn5flQeoXe7Y7bxNz0EHrF+1m9
8sQRfUPoFfqeT0/j510Iplfo57dYeV2oEUyv0FONphtf2RdEr9AP3NOyMKsR
RK/Qjxs/fLXibCC9Qr/UbEv1Ed0C6RW69Zm4AdWCAugVenDwhJP/rAqgV3w8
p9WJvVU/gF7xfXfQYHrK/g/0Cr15Xqkcj3x/eoX3h3VWQcbBBPEKfc2BuXe6
LxOv0Hs2yLF5WCznI6C/Hr/i3vf/xCv0U/telI4vL16ht0hprzt8l3iF/iDq
87l6OuIV+umbri4GO8Ur9KntDPXHlhWv0Nvf31y80la8Qn8e/15/Vp78XhB9
mPEYr6LZ4hX6kJF37/0TJF6hXy/zR2dHL/EK3aRJj6aHB4pX6Gt9Dtnv1xGv
0K92tF5Z6+0Xfo1bj77pgTZbPtMr9Ei9z2FLOotX6CuerrBtHZtGr9DPHBrV
2sUxlV6hh+966Lm3fQq9Qj/7tUPm609J9Ap99iATm9Q9ifQKfXe5T4FlRiTQ
Kz7vC3fX0dKPp1foNWpvqR9VPo5eoR/61i+/4J8YeoVe7fGmkZ37R9Ernmvo
XBRd5u/PP/AKPd6254KiLh/pFfqnZdrXj2eG0yv0rR07HGzrF0av0A1rX5pS
82UovUJ3dOh9vll0CL1C77x8dvrlyiH0Cv3yT8/cNSOC6RV69T2DfoWdC6JX
6DsddE9tKBdEr9AtnmY/sV4bSK/Q07Psd+oVBNAr9Dou25sXrQ+gV+j9v/l8
zawUQK/QJxgMvJ9o9oFeob/yMNpt5uBPr9ArORyy2PzhPb1Cr1ru1Nf+Ld/T
K/SXzrFNrRzf0Sv0OY0td2jlvaVX6DbfTYxazGXn+8B9drN3dkHiFXrX3tYt
2k4Tr9CNK7RffzJVvEJ/0j7/zm0r8Qo9PaBer2H5sg8Z/eEys9f9V4tX6JV7
1TVYUZBPr9C1hn1vfHO5eIXeKdrc9F26rAdFt1694ZfzdPEKfeFn3cfxgeIV
emHju9OX9xWv0I3atxxU5ap4hZ6TnvHdrpp4hT4h7NvCdqnyuRHde1fMiUHn
MukV+qN3lyfXHCteoTe0nDbf+WeGPF6a26uLz7TvcCKdXvHf3fJ0V2Bn8Yr/
bmbBiFEvUugVet/I3Pn3LJLpFXo1t8Dk7YmJ9Apdz2D3z8j1CfSKn1OdHSZ+
+OsSvEL/s2tvZs7DWHqFfujbU9eMedH0ivsj/4us/mh0JL1C/6lbz7re+o/0
Cr3YbO56p6hweoX+2vHIcuOVYfQKvUHPQT/HdA+lV+i3ay56bdY0hF6hzz/l
37lFu2B6xXUl/Sx1wscF0St+X6GBpfUOB9Ir9Pz9xXMGpQXQK16PbPCrmuPw
AHqFbvssrcnrTR/oFfruPU6/Htr60yu+X7Yt9dnp9J5eoW/1fb1w1eN39Iqv
t90XxzTOf0uv0CObHanjZPyWXqGPa3vnVON9fvSKr6tO8xwmZr+hV+yu/QaV
nfSGXvHx/7Z8S3X/1/QKvVVBmU/OQ1/TK/TLXtV7vPZ/Ra/4eq/0cO9uX/EK
fWVqWo9pI8Ur9HXrH7aJDhev0J+Nf5iTMlW8Qn855WnhuHjxCv1Dvm/r0rPE
K/SjDhMPPIkVr9BDmprnWEwSr9AvFz82PxQoXnFf3eae+/uZiVfoPYyPNK1/
T7xCv2hZyfuTvnjF86U+v9nWZbt4hd5p1s1RN0Oz6RV6ZrV2VeP2i1c8B7Sp
ublFP/EK/V/3SFOrFPn5DD3X5cbRx5vFK/S7aQtuVK0iXuE2ZlhMSsDeVHqF
njB24NmZ5cQr9AOGCWXurEmiV+jrv20/+SMpgV7x+9UaPaDjxHh6hT62Vzvb
IU9i6RX66Q2lf5t/j6JX6M2ts5qMtftEr9A31xyY0nFcBL1Cb5E0d9q2tWH0
Ct2m+4a9QbEh9Ard3OasdW2HYHqFfvh5xtoRk4LoFfq7kJVvDk8MpFfo0z91
+Lz1788n8Iqvz4RrrfpZfaBX6F9fvmjUraY/vUL3iww/NzDhHb1C/225qsmE
D2/pFXrH/Z+/bAr3o1fok8veTPUtfEOv0HNGvrb9bPCGXqEf/Dn6zmCr1/SK
j3/W/g2Xnr2iV+iXdu5v0KHpK3qFrmP3OHXc3pf0Cr29S/KP19ov6RX6m3FP
6ix2eEGv0G9GVPUbqPOCXqG7DJw6Y/txX3rFddA6bUas68jO13XV/PFl3j4U
r9A9OqzaH99fvOL7oHJHuwN+4hW6YfYuy3sjxSv0Njt04poFiVfoGaVuHb85
WrxC3/UgoUdLf/EKvVy9iJSRg8Qr9NyIFtuzPMQrdIOM2TEe7cQrdNNSS/Yu
PSFeoffV61LXrax4hX4pvH1ItUXiFfpmt/N6K5zEK/TnM7IbjDYTr9D39shN
9Pj8hV6h19gYEn3WQbxCDy3O+PK5qniFPne/9vhLO8RB9GoDrS+aFsjfi9uu
28dXrTEymV6hzy6c7drlRCK9Qn95qdqp3Lh4esXPlyOOX5vfKo5eoQdk7B5a
+ncUvULPfnq6nlb+R3qF3rGrRVfTIeH0Ct3PwN2lbaVQeoX+tVl8P5e/P+fA
K/RpGTe2Nb0USK/QIzsvTzWaHUCv0H/XSz1deNmfXqEXzj1YviDmHb1CH56z
Oypm/Ft6xXW4ttvLzNfyo1d8nE/82r7002t6hR7rWb1Zx5BX9Ao9PcVpjHvG
S3qF7n7m66pudV/SK/TqgTv2Vpjygl6h18q1Smrt7kuv0KPz9wW1qe5Lr9Dr
L7LoqGfvQ6/QbSfU1+r5+zm9Qq9U902DQfbP6RV6W9dXbXSrPadX6EPn3P1y
4uIzesX7uWleaB3TZ/QKPaxg3dr3yU/pFfoHbaeRDfey8/U737XhMvOb4hX3
8d+0+OZnJF6hF7ZeaR7oLV6xh3aYYjRAvEI3Ozn/VfAL8Qq9TdVH/VYMEK/Q
n/85+TrKW7xCvxya/jC0u3iF3vRd57u1r4lX6Mv1o4aPbSBeoR94dm1Jp+3i
Ffr+VgULhmfLOlF0wwOeD9qOFq/Qz0clbzozSbxCL3ek8EincuIVurfrq4fX
zotXXL9pmJK8qqN4hT790Yigx9fT6RV66b0Tem6pJV6hr59be53fQvEK3TxA
z/yHaxK/xu0Yn/jBmX4J9Aq9hqmupWFUHL1C/3Piv3+0/aLpFV8/w288tCn+
SK/Qd83f2/MfxzB6hT73guPr/ReC6RV6lNn2RpMnBdIr9MrVYjuWbvaBXqEf
dg9o5jr+Hb3i9zczS3tufT96xfs5YPcdz7+fO+AVn6+zyRe3vHlJr/i67RdT
5/jfnxPgFfptrQ8p1la+9Ap99IHaYzra+tAr9Ku6068cufKcXqHfae6wxzDr
Gb1CN6l6sPGzgc/oFfrMudXCa7o/pVe8n62PGR1t9ZReoXdOH6a3ZLw3veJ+
rPbLc/es8KJX6FO1/O6En/GkV+i7h/85XTbWg15x33yfsladDT3oFeeZNOpn
+Mb+Cb3i/XlYZe+S1Mf0iq//SXv2fx37mF6he4Qd2Dz37SO5fqV5nQ4/OqFj
08v/d/1K0/Mq/Sho0/H/rl9p+s4tV9xuPvi/61eart3OseO2nv93/UrTS8/v
eH2zx/9dv9L0R1XuPptv/H/XrzR9TORlV617/3f9StOHlp3xR/ff/7t+pemO
oYs2DTj9f9evNN15eM1Gg6v+3/UrTY90Dyh8uO7/rl/h/u+7sKF5jHjFf9fo
WoF2n/+7fqXprz47ZNu0F6/Qdze8UrdZaKZcv8Lj1ie8rdli8Qrd/6Zb8+fZ
GXL9StOdHg32KztDvEJfUfPa6/SHqfJ5Hus9x9z1O1mYLNevNP2Qza1t7jXE
K/TNhXamLlXFK9yOKoqclu8TK9evND14bmDaKsNIuX6l6QPG6P4afShMrl9p
ekP9PpcebwmS61fo4Tuv9/D1l+tXWE9hvn/z41F+cv1K0+8F+/s6tngl1680
Pf3E/Z2WAb5y/UrTs8ca9btQ3keuX+H79d/gt+jUM7l+pen5v6L+Pb/uqVy/
0vRbY7MWLKzgLdevNL3T+Qb7fi/0lOtXmv7urr1Zl7Iecv1K08cfONBS2/+x
XL/S9Dnxp4KOPXkk169w/wetuzDm1UO5fqXp+ztX/1P7ywO5fqXpP3JXVc9t
8UCuX+HvP5dw4YH1fbl+penXLrWzTXx3T65fabrhgtlf53S9J9evNP3M3INe
O67cletXmp7auuOrtFZ35fqVptfO+9PS4uYduX6F82vt7l963eeOXL/S9Cvv
7XOsQm/L9StN3+XcwHXnCna+Hl/ZZ84ce168Qo8O2Ta66r/iFfo1y5tLe94W
r9C7FZ9q7d5VvEL/bT4xved98Qq9VviMjpc7i1foNdvF7n9wXbziOZf/Jk9q
3ly8Qj/Yu2+500fEK96fJmX032mLV+heVeq59bMSr9DNVlu52weJV+jWUe9e
/ukgXqGHNT5dXEVPvELP1RvaZdcd8Qq9remPtssGiFfoNeZNHN3huXiFvrP/
yaUHDcQr9H8+6XvMXiNeofdz+K9S2fPiFbr5kk+t3l2Sn9v4vPfeUVhtfTzd
Qc+49+xmRq0Yfo3bE+1Dpv5wiaBX6DNueNq3uhREr9CXtv23nk2iH71Cj9gT
PtFkli+9Qs/KHNbD8OpTesXnZce0jNu3PegV+rHGroWzHB7RK3TDGN1Snds9
oFf8d5vHjl0x4x69Qt8+sF/wk6w79Ao9PPBpt8let+kVut+RbhZ9vG7RK94f
x7x/chLc6RV6C5cyi5Y3d6dX6HMmm37ML75Br9DbH9yyYGfAdXqFHrvjbYuW
L6/RK/QPLRePeBp6lV6hX6zXz372Dzd6hb578bvdyZ3d6BW686Ki7Hsbr9Ar
9KGX+y15HHyZXqGPMe7+u0v3y/QKfbPbAUd310v0iq830wGd8hpeolfol//9
ZJJ16iK94us21XuKdyt2vu56P6ux//MZ8Qp999Vqb2wNxCv0lTvfPtl0U7xC
tx17u/HzTuIVz811fry21h3xCj3g9aR/B3QQr9B71olcpuMmXqFb3A+OaqUv
XqFfX3Xh4QAn8Qr9TU7oY+1S4hV6s6Smbb8vEK/QHSq+b3bhnXiFvv7flVYL
24hX6L4OjaY10xKv0E/fWDdz7TnxCv3O+NdVTncQrzjH73urnGA38Qp9YpeV
+2yqiFfo9g+36D2wEK/QG1kfGvF6jXiFrmfrW8FjiXiF3jl8/Oq0FuIV+tnH
R8bVrhpNj9Br+bg0Mbodxq/5fFVuVH35wnf0iueP7u0zzX7HA3qFnhN2YmD+
muv0iv/u5e0Nmmhfolfodb7aBt/efJ5eod8vHGhysdtZesV9jf7zDYpanaZX
6Dpt19oUup2gV+gLJxqfXHXLhV6hW5Ze+N+d6sfoFbpLeJ9H+Q+P0iv08PPe
w5P2H6FX6HcfLFhgtv8wvUJfMd3jrc7NQ/SKr89/FnQfmXqQXqH30J7Q4XCX
g/QK/eOMJUuXHnSiV+jmbXVGNi/tRK+4j6r94uVOGw7QK96fadH1vpc6QK/4
e5XOvw9n7dtPrzgfaU4Zw/6t9tMr9LXupU7l7tpHr/g+HVCl48awvfQKvfv8
9wZP/t1Lr9BnVA65a7NnD73C60vjlcwt03SNV5yvg67xinMs0DVe8bx4nuet
vOK5zOgar3j+KdcbKq94ziC6xiue54Wu8UrO5dF0jVc8nwK9ufJK9u1rusYr
7rdE13jFfU3oL5RX3D+Afkp5JeuSNf228orr4ThfVHnFdSfok5RX/P0uusYr
/h4FXeMVr1eia7zidQH0Tsor/vyNflp5Jf/f1XRd5RVfT+iVlVcm+JqP254S
r0zgFbpLaIlXJvAK3elSiVcm8Ir3s6DEKxN4hZ7+tcQrE3iF3v59iVcm8Ar9
kWGJVybwio+/ZYlXJvCKf0+pEq9M4BX6f2ElXpnAK/T350q8MoFX6Pful3hl
Aq/QN04r8coEXqF3rVrilQm8Qh+nVeKVCbxC/zm9xCsTeIW+9t8Sr0zgFXrn
diVemcAr9CtTS7wygVc8f1F5ZQKv0Nsqr0zgFXrpmyVemcArdBPTEq9M4BV6
8NwSrzAnlV2rUolXnJ+K15Hm8yC9Qtd8HqRX6NfV50F6hd5VfR6kV+iaz4P0
Cr22+jxIr9A1nwfpFfpO9XmQXqFrPg/SK94f9XlQztnRdM3nQXqFPlB9HqRX
6MvV50F6hR6qPg/SK/Qc9XmQXqEbqs+D9Apd83mQXnE+g/o8SK/Qq6rPg/QK
XfN5kF6hD1efB+kVuq/6PEiv0BPU50F6hb5XfR6kVzznWH0e5OuM54mqz4P8
ms+X+jxIr9Bvqc+D9Ar90/aSz4P0Cr2b+jxIr9ADo0s+D9IrdAf1eZBeoRur
z4P0it+v+jxIr9Dt1edBeoU+QX0epFfoycdKPg/SK/S0SSWfB+kVr/M5lXwe
pFfoVurzIL1Cn6U+D9Ir9J7q8yC94vOiPg/SK/TO6vMgvUJPv1TyeZBeoef1
KPk8SK/Qm6jPg/QKfYn6PEiv0Eeoz4P0Cr0wpeTzIL3C62WYut5Or9A119vp
Fbrmeju9QtdS19vpFbrmeju9Qtdcb6dX6Jrr7fQKXXO9nV6hb1fX2+kV/7+t
rrfTK/RP6no7veL9V9fb6RX6EHW9nV6hv1DX2+kVuuZ6O73iHBh1vZ1eob9X
19vpFfoBdb2dXqFbq+vt9Aq9lLreTq/4eUtdb6dX6OvV9XZ6hT5AXW+nV+i+
6no7vUJvr663y89VeN7V9Xa+/tCTw0qut/NrPs7qeju9QrdX19vpFbqHut5O
r3ielrreTq/Qx6vr7fSKj7+63k6v0Beq6+30Cj37XMn1dnrF94W63k6v0Gur
6+30Ct1AXW+nV+h31PV2esX7r6630yu+DtX1dnrF50Vdb6dX6Dbqeju9Qi+a
X3K9nV6hL1XX2+kV+gN1vZ1eoaflllxvp1foG9X1dnrF/aPqeju9Qp+urrfT
K7wuNOsZ6BX6YLWegV6hF6n1DPQKXbOegV6ha9Yz0Ct0A7WeQeZkaLpmPQO9
Qr+k1jPQK3TNegZ6ha5Zz0Cv0DXrGegVr5eo9Qz0Cl2znoFe8XwmtZ6BXvEc
X7WegV6ha9Yz0Cv0M2o9A71Cn6rWM9Ar9N97StYz0Cv0tWo9A71CH6LWM9Ar
dHO1noFeoVdV6xnoFXqOWs9Ar9DHqvUM9Ap9jVrPQK/QR6j1DHxdovuq9Qz8
GrexuiXrGegV+kK1noFeoT9Q6xnoFXpftZ6BXvHnuDMl6xnoFXoTtZ6BXvH1
o9Yz0Cv0Dmo9A71C363WM9Ar9CNqPQO9Qm+m1jPQK/QBaj0DvUJvo9Yz0Cu+
TtJK1jPQK/Rbaj0DvUL/V61noFfok9R6BnpFB3qXrGegV+h/GpasZ6BX6OXU
egZ6hb5KrWegV3yc1XoGeoXnX7NelF6hP1HrRekVeoZaL0qv0Nuo9aL0Ct1A
rRelV+jpar0ovULfqdaL0iue263Wi8q8AU3XrBelV+it1XpReoWuWS9Kr9D7
qPWicl6Ypl9U60XpFc8JUOtF6RX6M7VelF6ha9aL0it0PbVelF6hB6v1ovQK
fbZaL0qv0Kuo9aL0Cr2DWi9Kr9Cnq/Wi9ArdW60XpVfo+Wq9KL3in1frRekV
eqRaL0qv0Buq9aL0Cv2+Wi/K1yvXW6n1ovwat8PUelF6hf5arRelV+gf1XpR
eoUepNaL0iu+ntV6UXqFfl6tF6VX6DXVelF6xcdHrRelV+jv1HpReoV+SK0X
pVfoRQEl60XpFfrPnJL1ovSK57Cq9aL0iueHqfWi9Ap9jlovSq/4/qpTsl6U
XvH7VetF6RV6J7VelF6hl1LrRekVHx+1XpReoT9W60XpFZ7nB2o/Dr1C1+zH
oVfoa9V+HHrF/7+p/Tj0Cv2F2o9Dr9D91X4ceoV+RO3HoVfowWo/Dr1C1+zH
oVfoA9V+HDlvWtON1H4ceoXuqvbj0Cv0N2o/Dr1C76j249Ar9Ay1H4deoVdS
+3HoFbqB2o9Dr9Az1X4ceoV+S+3Hkf0kmh6p9uPQK/QYtR+HXqHvVvtxZP0Q
nne1H4deoRuq/Tj0ik6o/Tj0Cn2v2o9Dr9Crq/049Ap9sdqPQ6/459V+HHmf
a/p8tR+HX+O2p9qPQ6/QHdR+HHqF/kTtx6FX6OZqPw69Ql+t9uPQK/RQtR+H
XqFfU/tx6BV6gtqPQ6/Qa6r9OPQK3UTtx6FX/HfVfhx6hb5B7cehV+g6aj8O
veLvV9V+HHqFXrC5ZD8OvUKvrfbj0Cv022o/Dr3i70PUfhx6xedF7cehV/RB
7cehV3g+b6r9zvQKvYva70yv0Huq/c70Cv2x2u9Mr9A1+53pFfoDtd+ZXqFX
Uvud6RW6Zr8zvULvqPY70yv05Wq/M71C1+x3plfoX9V+Z3qFrtnvTK/Qs9V+
Z3qFPlbtd6ZX6B5qvzO9Qr+v9jvLfn5Nr6v2O8v+T02/rPY70yt0C7XfmV7x
eVH7nekVurHa70yv0HXUfmdZH4Ou9jvTK/Q1ar8zvULPUfud6RW6vdrvTK/Q
J6j9zvSK+//Ufmd6hZ6i9jvz9c3HU+135te8/2q/M73ieclqvzO9Qh+v9jvT
K/S7ar8zvUJ3UPud6RXnXaj9zvQK/bba70yv0Ker/c70iq9ntd+ZXqHnbi3Z
70yv0Bep/c70Cv2M2u9Mr3jOvdrvTK/Q+6j9zvSKj6va70yv0C+p/c70inOK
1H5neoVeTe13plfoh9R+Z3qF5225Ok+GXqGvVufJ0Ct0Y3WeDL1C15wnQ6/Q
T6rzZOgVuuY8GXqFfl+dJyPzMjVdc54MvULXnCdDr9DbqfNkZI6Ipj9T58nQ
K/Qh6jwZeoU+WJ0nQ6/Qr6rzZOgVem91ngy9Ql+lzpOhV3zfqPNk6BX6I3We
DL1Cj1DnydAr9KXqPBl6hX5CnSdDr9CD1Hky9Ar9uDpPhl5xfaU6T4ZeoW9V
58nQK/Qj6jwZeoWuo86ToVf8e9R5MvQK/c+jkvNk6BV6Q3WeDL1CD1TnyfB1
j/5GnSfDr3G7Rp0nQ6/Q66vzZOgV+lp1ngy94utZnSdDr9Bd1Hky9ApdS50n
Q6/QN6rzZOgVupk6T4ZeoUep82ToFR9ndZ4MvULvps6ToVfoJuo8GXqFfkOd
J0Ov0PPsS86ToVfoRWVLzpOhV+ju6jwZeoU+Qp0nQ6/QZ6nzZOgVnp/X6rw+
eoXeWp3XR6/QNef10Sv0Eeq8PnqFXk2d10ev0Buo8/roFbrmvD56hV5FnddH
r9A15/XRK/Ty6rw+eoW+R53XR6/Q09R5ffQK3U+d10ev0Cup8/roFfoqdV4f
vULXU+f10St0bXVeH71Cn6zO66NX6LfUeX30Ct1OnddHrzhPT53XR6/QT6jz
+ugV+gp1Xh+94rnm6rw+eoW+TJ3XR6/QD6rz+ugVemV1Xh+9Qj+jzuuT67+a
vkad10ev0H8uLzmvj17JPK6S8/roFfpddV4f3w/o7dR5ffwatynqvD56he6o
zuujV+ix6rw+eoX+SJ3XR6/4/lLn9dEr3k91Xh+9Qt+szuujV+hH1Hl99Ar9
kzqvj16hb1Xn9dEr9H3qvD56hX5cnddHr9DnqPP66BU9Uef10Sv+f0Cd10ev
0EPUeX30iu93dV4fvcLz8FWdh0yv0HPVecj0in9enYdMr9B7qPOQ6RX6GHUe
Mr1C15yHTK/Qn6nzkOkVuuY8ZHqFPlKdh0yveH1UnYcsc+M0fZU6D1nmMGl6
VXUeMr1Cr6nOQ6ZX3K+vzkOmV+iF6jxkeoXeXZ2HTK/QG6jzkOkV+k91HjK9
4vOizkOmV+hd1HnI9Ao9WJ2HTK/Qp6vzkOkV5yqo85DpFXo9dR4yvUKfoM5D
pldcX6nOQ5b1Q5q+S52HTK/QX6jzkOkV+q9dJech0yt0f3UeMr1Cn6jOQ6ZX
6J3Vecj0Cr2ZOg+Z7xP0Ueo8ZH6N26HqPGR6xf3Q6jxkeoW+UZ2HTK84f1Wd
h0yv0Ler85DpFR83dR4yvUJfos5Dpld8HXYrOQ+ZXqF/Uuch0yv0Tuo8ZHqF
3k2dh0yveH6hecl5yPQKfYM6D5le8c+blJyHTK/Q3dV5yPQKfZ86D5le4fH+
puZN0CvO2VbzJugV+hU1b4JeoWvmTdAr9Cdq3gS9QvdT8yboFbpm3gS9Qv+j
5k3QK/SKat4EvUKfqOZN0Cv0PDVvgl6hL1XzJugVek01b4JeoQeqeRP0Cr2K
mjdBr9CrqnkT9Ao9Qc2boFfoH9S8CXqFPkvNm6BX3Bei5k3IuSS4P2reBL1C
f6XmTdAr9Pdq3gS9Qj+s5k3QKz6/at4EveLjpuZN0Cv0umreBL1Cn6vmTdAr
dG01b4Je8XOYmjdBr9DHqHkT9ApdV82bkM8nml5KzZugV+jWat6EvK80vZya
N8Gvceui5k3QK/QANW+CXqEfUfMm6BX6CzVvgl6hD1HzJugVer6aN0Gv0Cep
eRP0Cv2MmjdBr9Dd1LwJeoX+w61k3gS9QtdX8yboFbqemjdBr/g6VPMm6BX6
YDVvgl6hF14rmTdBr/C4LlbzvOgVumaeF71C18zzolfomnle9Ao9XM3zolfo
R9Q8L3qFfkzN86JX6OvUPC96hX5LzfOiV+heap6XzA/W9AFqnhe9Qg9U87zo
FfpaNc+LXqFbqnleMq9F0zXzvOgV+gY1z4teoXureV70Cj1NzfOiV+jT1Twv
eoX+j5rnRa/Q36t5XvQKvb2a50Wv0KupeV70Cr2TmudFr9CXqXle9Ar9l3vJ
PC9ZD63pE9Q8L3qFPlzN86JX3Nei5nnRK/QCNc+LXqEPVPO86BX6aDXPS66/
aLqumudFr7geQc3zolfoS9Q8L76v0PupeV78mo+PmudFr/j3qHle9Ao9Us3z
old8HtU8L3qFrqPmedErvn/VPC96he6r5nnRK/SKap4XvUL/eqRknhe9Qo9Q
87zoFb8vNc+LXqGfUfO86BV6azXPi16hb1HzvOgVHr8ANS+VXqG3UPNS6RW6
Zl4qvUK3UPNS6RX675ol81LpFbpmXiq9QtfMS6VX6NlqXiq9Qp+q5qXSK/QV
al4qvULfrual0it0NzUvlV6hB6p5qfQKPULNS6VX6C/UvFSZ86Hp39S8VJnH
oOk5al4qveLjo+al0iv0lWpeqpzPqOmz1LxUeoXuoOal0it0HTUvlV6hj1Hz
UukVem01L1X2/eLxV/NSZX+gprdW81LpFfo1NS+VXnFdkpqXSq/4+Kh5qfSK
163VvFR6hf6PmpdKr9CPq3mpch1c04vjSual0iu+HtS8VHqFfkfNS5WfqzTd
Q81L5fuN36+al8qvcWuo5qXSK/Q5al4qvUIfoeal0ivOi1bzUukV+jA1L5Ve
8XFW81LpFfohNS+VXqEPVPNS6RX6WTUvlV6hz1XzUukV+mQ1L5Veoe9Q81Lp
FedyqHmp9AqP0zg1j55eoWvm0dMr9BlqHj29Qn+j5tHTK/SPah49veI8EDWP
nl6hv1Tz6OkVen01j55eoWvm0dMrdD01j55eoR9T8+jpFfp5NY+eXqE7qHn0
9Ir3X82jp1fo7dU8eplXpOnl1Tx6eoVeT82jp1foG9U8enrF+6nm0dMr9Alq
Hj29Qp+p5tHTKz4Oah49vULfpubR0ys+zmoePb1CP6nm0dMr9FlqHj294vOr
5tHTK/Tjah49vUL3U/Po6RV6gppHL+uoNP33zZJ59PQK/YCaR0+v0FPUPHp6
hX5HzaOnV+jd1Dx6eoW+UM2jp1foOmoePd+H6CvUPHp+jdvVah49vUK/pebR
0yue66Dm0dMrPs5qHj29Qm+n5tHTK3QDNY+eXvH9q+bR0yu+v9Q8enqFXlPN
o6dX6K5qHj29Qk9W8+jpFbqJmkdPr/B43K1YUffqNvEKvZxt7T5GDYroFfqs
sZ+jF7iLV+jajSZ2MjIVr9DtHd66nwsRr9B94/6ddHGOeIUeUf1OS9N88Qq9
RSc3xw124hXPB9qzrMw4nQJ6he4XcSI14oh4hT7U3aN1Tf18eoU+5IWjecPL
4hV6yuRhjpXby5xd9KNbJ0SXvideoW8z959vaCzz5NCTyp3f5uklXqF/MKtX
/K2/zE1Bf932xrRxe7PpFbrXNbOhlkflfHD0hnkNGrw8m0mv0DM/hXWzu/FF
zvHU9NVH02faeIlX6O1KD869ESReoc9+bBXf+It4hb5Ab47D88rp9Ar9dM6p
JzadZJ8w1z8GbiuoNDOVXqF/GRNVp5az7IdBn9Ytb7JuRDK9Ql8UU8Gif5Nk
esV5yPsW9X6zMoleoaffWJzp8kHWMaC7ZdbdvKuL/L4QfULN3GKLcwn0it/v
64Cax+ok0Cv0Zvt67s09Ek+v0HOHXL30uUE8vUIfvv67RzU38RR9S5cNAZm9
5X7z94TP/BfUcY+lV+jRpcNCv2fH0Cv0ER5bfW8Yx9ArPi+WN2Ys2RdNr9B/
/D78aV1mFL1Cb1XFZ2/LsVH0ivuEXN/6hTyPpFfoPcuUHZVtFEmv0CuOCr2W
ee8TvUIPexyyaUyPT/SKf0/QEze35x/pFb5vk0VbEgdeEK/QU9ft8zPrKV6h
H9Cu3k0rULxCdyuj67lxrnjF37sO+Wxx65t4hd5+99NzZ3eKV+j3PgYsHlX/
K71C9ztbV9vHTbxCb1g/P7Z0D/EKvbdz3a51X4pX6D6mx2/XHSNeoZ+JPWle
N1q8Qp+pf7xxl/niFbpdlckj9+SIV+jZtdcUj7QRr9DNE7eVdy8tc+bQHVMf
x2TsEK/Qz01PfDVIT+apoOeseRXZvls2vUI/rf/KZfEQOTec/252XFr56Zn0
Cn3aba3i0LVf6BV6U8cBG68fknPo0Ns66d6dez+DXvH58utz8X20eIU+u33T
Jhf+Ogav0C2u6E7Z31f2D/P5Hdz1e33bVHqFbqqVXP7mM9kng64XX6fv3qqy
Hh394/GyByNnJ9Mr9HLj9p5wfpZErzjXfbvVdrdWSfQK3ePwyw8xh+X3iOhe
w+wH5FSW6/XoH349L961I0Gu32l69XGnHo+rmkCv0C+kDk34fCyeXqEHT5rq
kGEYz/ct+tGX5dMyfeT7wa3/YJ+5h2bG0Sv0EZV6e27WjqNX6FsibhZetYyl
V+gRHa2qOtyKoVfolU+4h6bqxdAr9H0vJgb22xhNr9AXbYuPKPfXPXjF85vP
V39xb04UveLrwWTkr7CESHrF7zdpac6Peew83+tQhRER+j7iFbr9o4WlDk8W
r/j5eI/ztfg88Qq91tkaduV2iFfoa071ddZuVEiv0If2GhsTc0u84nljDuPn
uQwQr9C7tjkS1SdMvGLfuLpM+DzxCt3zrpexdaF4hV7T/25z/a3iFb+viKOm
P/Ty6RX6pxu9bzQ+I16hl2twwtv9X5kXjj7J+4ZnxEPxCn1Oj+YL3gwQr7jf
q5TuFI8A8Qp9aR3DbvlTxCt0x3O596yCxSvORXm26tjtLPEKPWjz/aJpOnKe
OHrV/R91Ddpm0iv0zE65BW9Gf6FX/Pt3atcoXi/n06Hfjw8YOO9KBr1CL/Ru
6HcnWrzi9/vl8P3lddLpFfqebXfX1Zgk+4rRyxhH3PhxLpVeofdf5n9hXr54
hZ6++pqVzTBZp46+y9Z4Ve+ryfQKPT/qYP0Lesn0Cj12TvWOO/9Lolec9+7X
++qTIvEKfYf7zTVFq+Q6Puc/HLKslP9NvEKv9qO7y1T7BHqF/mGWa1BC9QR6
hW6UnFSzrVs838/o/U5F9k01i+fXvP8L7ct4pYhX6N3nNA6dsTuOXvH+3NG/
sqVbHL1CX2Za8dzdN7H0Cr3KvNC1Zu1i6RV6baPZNbu5xNAr9MURH/SqVImh
V+iLfPIMJm6LplfcVxToluJelp3nDr43rR+vnyheobd6Zp5c2Va8Qq/vtMU4
rWYRvUK/X/nG0AfXxSt0v0delTYOEK/QP9brP7DnJ/EK/eLs219/WIlX6F5l
s0+/KvOVXqFrH8l96XZYvOJ+9NbNp99rVUCv0Acc8R3546F4hd6h1sLiQ0PE
K/R1ut89T38Ur9B/Bw+277NQvELfczyxpcs38YrzlNz1wuMdxSv08Sen9R9W
W+Zl8vHPbLJH75J4xbni7dr+tOkuc6H4+x/PxTudDmTTK/TEIN8C5/viFfrU
yFENXGPEK/QhTbtlj6+USa/QLQ3q1hlu/IVeodepnD2t/jI5tw59Z6t7VUb9
dQxeoesblXk4N128Qk9KLPLybZ9Or9CTtY6He2+U/cbob3vZPXEKSJX9dZo+
+mr9irMMU+kV+qOGbka99sj6dXQbr5Yr6heKV+g9gnS00uYm0yv02eEJ7TdE
JdEr9Ov555qdm5hEr9AnNnrnpx8t1/f597wtWn13nlxH45+3dm5bq1C8Qj9c
x/Laz50J9Ar91QXX3w1bJPB9jj6i6sB3HXzj+TVuw5rsHJs5P55e8d/NPN2q
qm48vUIfOTvl0iiPOHqFrjPr5tTVS+LoFbr3uciWffXj6BX6mmPfD+XciKVX
6NXePs8KaBZLr9Btpw6a53kqhl7h/locC0hpr/2NXqFfXON/88Bp8Qr9vJ/W
yJ89xCt0j4Ktd1YEi1foEcOHTyteLF6hp3bWunREq5Beob9t2LyihYt4hR50
cYxNjw7iFfoh2+3PJ7wQr9AH38hL95ooXvH7rfLfUftM8Qq992ttOy878Qq9
u6vFu93V8+kV+ouO/dfqXhSv0I/Yb3ZZbpRHr9CLGpw689FPvEJvp9NytO1U
8Qp9w0p/N6cc8Qp94dh5duMcxCt03yu//MvWlXlR6FPdXu57PzWbXqE3tuvd
aMNumYuAnmbnuvS0l3iFXrZdk2o+BeIV+oJRMxcvaP+FXqFb+k+pX2GZnGfH
53Ho6QdV7mbQK/StVjNrhf4Wr9DfG6ywuDwynV7xc0ys/i2vi7IPmfNeiq0m
9dKW/X7oBUtTCzstSKVX6LtmVMk+FyTr2tEHzF3b1dZU1o+ix9iGz3F9nEyv
0FvOty5b0D2ZXqEX16oebPQkiV6ht+nnkNxrQBK9Qn/g63fRN0iur6FPmDFk
14F58jmW3uxJ3jb7j3jFc44rPjf5fiKB73/++Qk+ZWqZJPBrvl+q97Nblyxe
oeuMN7dM3hdPr3hu1qa2m5r2iadX6DYHB67/li1eoc/eW+NAJ9c4eoXulZQb
cmpqHL3i4+bi3KpqXXae03wgpWFc95biFbrthYdRVX3EK/Tu477HaU8Xr9B9
S41p3ui7eIXe8NV3qxmHxCt07eLLE4Lbilfow6PmOtq9FK/Q+0wz0Vo1TbxC
tzz7e73HV/EKfeBEu+OLd4tX6Ed8HGcdaVpAr9DL9y9aPu6heIU+Tn/AhBfm
4hX6JDO/sHKJ4hW6+bHl1UzWiVfojff9Pn20Sh69Ql9q8H5bn/PiFXopq3ml
5vWQub/o2QPW1RoQIF6h1++6SUtvgXiFfrVy+KTKpWWOFHpRnZb5H7tl0yv0
FqVP70u1knkJ6EbjDrjfd8ukV+jtsyrnPcwQr9D1Ho48OuGvY/AK3d+s6fec
dXLOHbrT6+g5Ya8y6BV6fmSX9UMbZNAr9LcLTfvarUmnV+jW3auEuoSJV+gT
eq71ud5L9gGim50dmeh5OZVeob8auPvi83qp9Ard52L525ecZF0pev9To8+M
0JX1W+jBk68H7D+YTK/QP+6PMOjXIJleoY/W2uPV1i2JXqEbzEga1KR3Er1C
TxvRZ1lSiHy+5c9HW24m97GWnyPRdyf0HfqtmniNXu7oqoSI+wn8Grczv/ob
uE1PoFd8nz6637u7TgK9Qk+dXsPQ3COeXvH1uSK86ZNl8fQK/dy6Gi5jWsbT
K/TIn3ETU2PFK/z7zUPKxjcbIl6hb20zvefSVPEKXbvBhjUZDuIVeurLu5/O
NCmiV+ilLaJ7HPUUr9A7/3nZIsxSvEIfpWtsuCBfvOK5O0meupP2iFfouTWM
6jxp+ZVeodu4xfY76S1eodf3nbm3pqV4xblqARN798oRr9CN2izXbrtdvELX
+XbcuLx+Pr1CL2PdJy/zgXiFPiuzy8/yo8Qrrr8r8Hi/OU28Ql+5ZpCp/X/i
FfqiAcN7mtaXecDo1d4Wlc2/J16hf+vb7cqr0eIVut14/W+Z0eIV+p9dNn2X
1s+mV+h3dxx6s3qKzFFAb58xru/is5n0Cr1iozXN3TLEK/SmhhFeW42+0Cv0
ltlRCwfukvPv0NeV0jFrnShe8XlP7T1nUt8MesXncfyHzb/Ppcv5C7ifs6P0
DSqn0yv0qae39ExYJ/sD+fqccqtpyy/iFfrM5P2eKXNS6RW6daP0ZJ1E8Qq9
VVm3CJt5sq6Lf38VPdcK2eIV+vdvTXft25hMr9BHbtjQJ75qMr1C33XIt5y/
axK9Qr8VOP1x835J9Ap9oK+v05048Yqv84JfkYMdxHH0SfcrbbljKI8Xbpfk
u2/2CROv0E+uONNp6NYEeoW+YNEH53rdE+gV7/+y1+srfhGv0G84jt6WeZ6d
cy06O+1oFrdEvEK/8Ghu3v+4Ou+4nv4vjiMj2SUSycrITkaJN4XIrpCVWdJX
UZKRFQ17JGRvKYSiQnorLVmVtJT2Xp8+n0879fO5957z9vP9p0fP73G6n9fn
3HPf55z3vfdy5zrMV8ArJi0Zcvkxy1fAVUP/qDCP5Svgu1ds+OxayPIV8La/
p+q4ubB8he+1XpBiJhpQg/kK+AobM7v4EJavgFsX7lDSMWP5CrjTy55LdCQs
X+FzL+ojSwtOs3wF3P9V/amVw6WYr4CvdrfMeRzO8hXwvoPd3jWuYfkK+FlN
FTXrWpavgKc8GTm4rwfLV8CnNU0STxwtxnwFPPL5eJu8GJavgI+eeTHZ2ILl
K+CvG56aPGvD3hMMfOblUDLiDstXwBUXdtwlmsHehwe8ldQgwyqC5Svgw+cs
D5ujUIn5Cnj7KV8vJpiw9ysAn76+SMP8Tx6DfAWcLrxtMUHC8hV+70Z2XS/M
K8N8BXz2oz1nAu6z5+IBP7hu8vL3bdnzpzCuXOnx1K0l7DkpAr9ZcFexZyLL
V8A1Y6w77jMoxnwFPHCrrVWnYHbfIPChGjk1oePZ/TnAB36oWXn0eSHmK+AX
VnnqztAuZPs7Qc+uk3Ykh7D9XsDnPxg9ZKgR21cBvEHZJ7ddOstXwPffSL2y
0D4f8xXwqs3Gtgmd8zFfAb9YVeNq9TgP8xXwFxc9HuYuzGPrSOijP9kV2lvK
8hVwPxUj49QbTEf4GVf68ftvo1zMV8DzkibmrW5k+Qqf++5j5frJLwfzFeaZ
kpl6Qy2Q4/t2PO5eUVh1nuUr4HMidh500mL5Cvi2+iHuNQksXwGvN0hqjrdn
+Qr4u8Kro3sp1mK+Au4W+Uj8+TnLV8DvXV9R2Xoxy1c4Z3ijHhBexvIV8D7a
Rwv7n2D5CvN6vP2+4cOqMV8BXzh/daTkA8tXwBd1vuF3eT3LV8iXRYeP/s3y
FfDTZh76CVdYvgL+onrJoPuTJJivgHu+cKqN+M7yFfCy7/3jzexYvgK+VHVH
nWs3MeYr4PZZjy87+LF8BfxHzbU5ixaxfAX8zrTPB6ZVsnwF/EHbVZJt51m+
At7DZUlB+4nsPXnA4x6lhFq9ZPkK/dgtypzSphLzFfCou76lUSbsvQvAz+y1
Ljb1Kcd8BfzVaKW2anLlmK+AO0o3Pl6yoQzzFXC5cRkNvSNYvsL3nx+JtD0/
kj2XCnhN4Yz8+MslmK+A93t5ND9PvoQ930HgE9M1B385WIz5Cv0ctxjvWs/y
FXD3q3vMWu1l9+3g8bsbHh75m+Ur4P5bHw+ucC3EfAVca+Bw/ZFKhZivMM6H
PjcMv8/2W+DzD1avzjury+aawH3iO8TZJrJ8BTz6i+/uKX/yG+Qr4FsXX7gQ
qZSP+Qr4pYbW3hXBeZivgDe9mWd9akMey0cCP399wsA9XfLwd/jZSvdJ5smQ
XMxXwEeQzNC7trmYr/D71cppe2UwcnwPmOPe1QMOB7J8Bfx+fO8n7VayfAXc
YUN+UHUDy1fAbS4F+Ky4zvIVcFOr4wba01i+Ah69/1vUxQyWr4C3n+qgcuwA
y1fAj8kNyFdRq8F8BVw3Y3vEihCWr4BH7cxfuXw1y1f4Xo74CrvhDSxfAR+h
07dPnhfLV8D1l89/fGeyFPMV8CW37FOckli+Av6maP31s7tYvgKu+VZxWFNP
CeYr4OZ+MwNyXrJ8BVzOYcs8y2UsXwE//07D9nENy1fAqW6nkGQvlq+AF2yp
2tpDj73vHPiTidfeH8xi+Qq4WdyLo7PdWL4CrjbGw+TEaPb+PNRZ/Wu/rCcs
XwH38Jq2fcyfPAb5Cvil3ldTdVez9zHg8V9KStcJZvkK+7I7HI6a9SnHfAW8
8+4Pv94eLMN8BbxQ2inscBHLV8DnFQ5/+XY5e14V8JyZ7sP3fmT5CnhKqNeP
d3/qTXyeAhxnxwh995BizFfAb+h+sv2sV4z5CngHG8eTB8PY/Tx4XjjnfThu
xPbNA/fs0LZdUjLLV8Al5ZphhlsLMV8B37R9lc/7Zpav0M+khWYDvNi8E59D
HJxWNmsimysAL62z9+iUxPIV8BMP7WqX7MvHfAV8r2vUi6qB+ZivgB9xqfOI
/czyFeaHQVllwfvy8Hf42ST3MObqyDzMV8DVT9zvsTiT5Sv4/yfmvemun87y
FfA7p5tOaxxm+Qq49qubekcH12G+Aj72olXZxiiWr4DvPiJ+9cWK5SvgF+08
VL4q1GK+Aq6qaaOy4wnLV8DdthStDlvI8hXwnnruhvEVLF8Bf3++Te8XZ1m+
Au5ZOEm8c1w15ivgcZuNmsbEs3yFf/fkjNX1dixfAe+rqTipTFGK+Qr4sXgz
70EvWb4C7pP46u7rZSxfATdXNv/0rZblK+BfZ93Xdb3K8hXw4pTfExuniTFf
AX95Iz7RJIflK/xebMwuv3Bn+Qp49oMi0aQx7D3owJOilT62S2L5CvibkxW1
0w+xfAXcJvxceGtN9l494Paadm+SnrB8BXz201zRqI6VmK+AazovDpm4lb2n
Ad/3Gz5/tuoXlq+Ad64NSGnSLsd8BXzA+uPedbfLMF8BX9F+bNDAHmWYr4Ar
rzNucXFlz7ECXmZ5+fnwZpav8HgsDtzo7FSC+Qq4zq+Gd5pNLF+hvUZL5G7n
YsxXwL8nzo3OVShm98mAnkteJK/yYvvpgUf+1zEwcgTbt4rvZ5gTZaVACzFf
AdcKLErobFaI+Qp4K8cHes+kLF+hn7ZLvyZ4snkD8EyPgqYVU1hfD/jyn5pF
/TNZvgL+enapb4fj+ZivcN/62gk3xRPzMR8B/9nm1Ln3+SxfwU/5EEexsVce
Mebi7SWFn619+mer9E6krbj/voUAz79o82pQ+keqxP9OlNZ9+D7Sok9IUf9n
r071fxXSn4vnFgo/Xbj302HeQd763ZrLiz7WUVX+dwLcm3sPXR7GPfBd24I8
hurl4fFM4P5+BJ2/uv0p2fkGHM4nqY/B4IbH3/DvwfEb/p5WZ2+J+Q752+Bp
7b7fqaFNXFw1Iw8+us4lvryapnPx34R8RGv/Liftq+kbLj4bkW/dJdfHTiql
V7nzrgF5G9PR1xbvlNI9XJzXIa/r2LeltEJCzbjzrhZ5/QQPkdwWCZ3EnS81
zM/Mp6nzf4ppL+53KXLL8f0ats0XUyl33kmQd50yobpNUBVN5M53MfJbPb7e
91Krov7c+StCPqVSo+jeQREdzOlWiXzC7WC5VgGVNJvToQx5+c/L7z6tqqC3
uM9bgrzTm4KD4eIyupb7XIXI45dd0jqyp5T25X7PQ77325fQVsXFNJU7zhzk
JSv775s1409+544nE3lu+puJVXsK6CPu76YhV9cZZux2Mo8O4X5PRF7YuyW0
nU0Oncb5+YZ8V85WefvOWRTiCfgbv96uz64zv/h+8Jv13+fHJ9AkZz7+4f/r
RzRv8rv/HuMQ7G9y8RlOqzn7CLQ/sXyMcoeBrzE+wd8cPj4JxCFwIQ4JxCFw
IQ4JxCFwIQ4JxCFwIQ4JxCFwIQ4JxCFwIQ4JxCH64eOQQBwCF+KQQBwC78bH
IYE4BC7EIYE4BC7EIYE4BC7EIYE4BC7EIYE4BK7AxyGBOAQuxCGBOAQuxCGB
OAQuxCGBOASew8chgTgErsbHIYE4BF7AxyGBOATuwMchgTgE/oKPQ4wb4JWP
uPyM6wHIw5F6/hP6PH0cAnEI9l583ibKvH+0nzb+iufT8ttoh/4/cPGM61jg
Qp7Evwu8fZ/P1MY0AvM15HUh/6Mf4K34/E/gd/j5kM//+Duux5aNVQ4IzUP/
4O9E88CGWX7sOgJcsMfzC87HBweciIsFy/P4HKzoQsXvZSzP43vkvwYpO9mx
PA886GnbQwslLM8D949YkKdsz/I8cJtpxrpXylmex/fzrEnz8rRgeR64ZIGV
39tUlueBL3EJ/Rg4j+V5fO7gEE3TAa9YngceF2Pu7tyX5Xng2yyvdV+0n+V5
4BY6k5aHPGV5Ht9Hfzuz+rMpy/PAN4gGdkgtZXkeuOOj997/7WB5HvjhZf6T
12ayPI/74I5JjI5qszwPfOXEhtKR1izP41x3peI3rT0szwM3LTaLmWbM8jx+
73nTzuVGZ2Kex/eNtAo6kdU1Dd/zDefZWj6e8X26wHslDDDdvSsE4wr+nRBX
mLfxOWp8XGHeBi7EFeZt4EJcYd7G96rzcYV5G7gQV5i38f1OfFxh3gYuxBXm
beBCXGHeRv98XGHeZu+15+IK8zZwIa4wbwPfzMcV5m3gAXxcYd4GLsQV5m3g
Qlxh3gYuxBXmbeDr+LjCvA1ciCvM27gvgI8rzNsYF3xcYd5Gez6uMG8Dj+Lj
CuMG+Dt+/UAgPwMfz68TSKYQb5CfX13ZWVZptpPlccE+ufS4RVLEi3/zIRHy
IeZNyIsO/PqZ9Ios3ajTroX24/x4koJ16ufNDGuI9PPalT8DfyMffiEt7PeX
apKY+G3xAasm5FPNvexFS6uJf/rMOeqqjcjrVR/bt/ouJR55AXphn+qRF3Yb
+7x2iZTsKNOYsOlAHfLGyucjrnySkCXSyyPaja1FnnK0zc1b+hIypqnjAO+s
auSD37nnv30lJl3b7u81z0OKvDZTNcVjiJiUdaroXGogQS7X5HLpzZkq8llp
vdzp6irkeo39mgIlIuLbN6F+jLcI+QnNnVlSYxFR5OqmCuTj09vNcV9RSeK4
+qsM+bAFP9d6NZSTM1wdV4x86Pens+RPl5EFXD1YgHxFH+PAiZ1LiQLXP8lD
rnjgeW6wQzGJ4erTbOSuzYr/tQ8vJJ25fsgv5KHcOjCfuHN5IAV5C7d+yyVt
TsjO3+/Ie3LrrmzSwJ13n5HXceulX+QqFx/PkLtx65A4Ar/Dz/vceuA56XyU
+53Cz1VcnRiB/x54Dbcefo528P+VeXtyl4vzZ+g/Y+3NtMc/7mN8wr8T4pO2
/TjEXMG8GflH2yrfZoUaCnELXIhbtAf/Mbw9yYu7ZPqkG7P3GBK9YMm5agpx
DlyIcwr24EewJ+Ep8vMXhTWi/cPrvnIpitUUzgvgwnlBwR78CPbkbta+mSL7
BrTv4/vg88Y/8Q3nEXDhPKJgD34Ee3K4qGyyxxBm32vyKYOgrlIK5x1w4byj
YA9+evP2ZL3IfIx2Ui3a3z5assvTXULhPAWezJ+nFOzBj2BPptfFDUlyr0F7
z7Dr1s+bxBTOa+CD+POagj34EexJ/1YGfffoMPu4F49mB9qIKeQB4EIeoGAP
fuJ5e9LU4VUP1VIJ2i+Wb1tgkFZFIW8AF/IGBXvwI9iT9G7D5EOui9Feb1in
zwUzqyjkGeR8nqFgj/mHtydvel9pXruI2R+b59JK5b6IQl4CLuQlCvbgR7An
2lyer0T7xMd5Zye1ElHIY8CFPEbBHvwI9kTM9ZHKWfyf2J/f4ltBIe8BF/Ie
BXvwo8vbk+dc/6oE7Qe2tfRXmFNOIU8CF/IkBXvwI9gTW65vVoT2Ft3WGUz5
VkohrwIX8ioFe/BjyduTUVy/Lh/tfy3ZLX/aoIRCHgYu5GEK9piXeHtSwvUJ
c9j34tx6QP9bRRTyNnA3Pm9TsMfrC29PHnH9ySy0/1R2ZsCV9D+fR8jzwN/x
eZ6CPfiJ5e1JLLdu/In227l6P4/CdQF4M39doGAPfmx5ezKbWx8mob08V9fn
ULiOABeuIxTswU9H3p6859aBcWhPuPo9i8J1B/MPf92hYA9+BHviyK33otE+
i6vTf1LgYJ/JczI0zH+L1ZMWCj83jtKa8fJtHR3C/47/37m39u9VB9h1F657
Z4ZHB6+U+4Ac6oJOc8fsGvU+BP3iesDdKKD70Roi4taZ4ex6yvUHUtAvHP85
/nqK9QbqwNX1sfjv4Xo4kj8ePG74HMLnIvA7/DzMfy6se+HfdZnbPeFDQh3+
jnmAP34Kx4/Hwx8/TebWw2/wuMZwfYxEAhzstXiO/uH4XW5dsX/6Rx84Pjgu
u4LpnjaP89Ae1rErbrofmP/HHjisW9VNpmcYRrJ1LPiLXajXzdg67197Ktjj
v4f//4m3pzB3g3X0zVshwx00a3C9Acff5fvjeQ2GjMNxPouX07loiP191Kf0
xLnHL26z5+mBf9dzC/xdn1fjuhr8l81zmeH7lXHwv+r5XofpX9n7ucBPh3nv
b/2cwNbh4CfJn9Y+MmYc/Lx5PebRRGP2PGTw46zVIXbWSymu28FPZcfFu6K+
Mw5+Ft6tDTL6zt5XCH5ssq/KnRjP1vngpzbDueTzUsbBT6txox8b/vX+aPCz
NCe+jc1jCdYF4Gd90xafQ58ZBz/LRK9vVX5i70MEP2tf3JH3HsjqCPDTpjE8
9YoB41jPzvzp9FufPX8e/PiuuTem8IIY6w7wo9nZPvVzIONY5y7pZzQokL1v
EfxILuVPj2vN6hTw47TZdlSoBuPgp7t6h8FyGuz59uAnlaSUVltXYV0Dfg7Y
ZCS2Pcc4+FkU1m//pLPs/Wjgx755wKjUryKsg8CPt/XcNI1qxsGPfNblOzOk
IpzPgp/VbS5vyB3F6ibwM8+005OzpoyDH6PxO9ueNWHvMwI/qkcfnKDylVhn
gZ9ynXXvh61mHPyYvEz0zzVj78MFPyFRDufzHpVjXYZxOM9J6V0z4+DnY278
7qFN5TgvBj8PdbtNU55ShnUc+Dn2ZeWP7+cZBz9FRo+Ufpxh7wcHP90ft7jf
DSjBug/8hD/vUpTSoxQ5+Dka2fOKSVf2fl7ws7L5/ENllWKsE8FPxI3u8k5O
jIOfxB8TQvV3F+P8GvyYPdyf+mN9IdaV4MfBpme4aSzj4Cf0VMBBjchCnHeD
n02Phih7uudjHQp+jLyG+a2tYxz8uHW83eljVT7Ox8GP7ZbDPY2O5mLdCn5W
DhC7VzQxDn7qvXYHaElzcZ4Ofs5N83SymJONdS74mfpsfWx2LOPYh/Ht7nY0
NBvn7+CnTOHR7zeOGVgX4/c1de6y1Vd+IQc/Ho+9T5yy/4XzevBz4pf1/XOH
knE9AH6e3m67zSgoBTn4eV18wW2SbQquM8DPwLvjH+yxj8P1A/jRbVzn2sUy
Hjnmn6i1Fx/cYHU6zgEMuXULXqfguimsB/69LhPhuozHA/0qPf548HoPf1/F
3PZErw2xbH0j/LveqmtsnPWj8XoM/1+4PiJHnbu5tF9wp4ZAnQ482sD5zoNO
jMPnmj1/gdG0Tqx+B3tJntO9NuerkYO9qP3jcRf+qtMx3v5L6HlZiXGMf7vu
fupKrB7H60hwj7HjLkiRg73rPpL07K+6G+zfbP6V4tmNcXxezgCNDQrdWH0N
9n2apx9wOSZBDvbm260PVfxVR4P9JdGUK69+i5Fjn7nDks2Kv1m9DPaHNqoX
fbdlHOy9ngRuG2jL6mKwbzTe1eXgzyrkYH8h1SHs9V/1L9ifeahyWt+AcbD/
9nvPr