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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     73574,       1400]
NotebookOptionsPosition[     72814,       1371]
NotebookOutlinePosition[     73173,       1387]
CellTagsIndexPosition[     73130,       1384]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Exercise :", "Section",
 CellChangeTimes->{{3.6514784366713877`*^9, 3.651478444592558*^9}, {
  3.696247995173765*^9, 3.696247995771352*^9}}],

Cell[TextData[{
 "Open the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook Map.nb (MetroStationMap).The variable called ",
 StyleBox["Metro",
  FontWeight->"Bold"],
 " is a list of 5 graphs with the metro networks in Seoul, New York, Paris, \
Mexico City and London. The vertices of the graphs are labeled with the names \
of the stations. The variable ",
 StyleBox["CityName",
  FontWeight->"Bold"],
 " is a list which contains the names of the cities."
}], "Text",
 CellChangeTimes->{{3.651473125445464*^9, 3.651473194254459*^9}, {
   3.651476055689809*^9, 3.6514760645593643`*^9}, {3.6514773816897383`*^9, 
   3.651477556778808*^9}, {3.651478579565559*^9, 3.651478633494419*^9}, {
   3.651478714327673*^9, 3.65147874669571*^9}, {3.651478978689926*^9, 
   3.651478991357911*^9}, 3.651479180970708*^9, {3.651480531613593*^9, 
   3.651480536102968*^9}, 3.651484158166214*^9, {3.654488222420248*^9, 
   3.654488241635373*^9}, {3.6962479080196533`*^9, 3.696247933857871*^9}}],

Cell[TextData[{
 StyleBox["(a).",
  FontWeight->"Bold"],
 " Write an interactive program using ",
 StyleBox["Manipulate[...]",
  FontWeight->"Bold"],
 " that has a control button with five values 1,2,3,4,5. When the user \
selects a given value, you display the name of the city and the corresponding \
metro map. Because your program uses some global variables  defined outside \
Manipulate (like ",
 StyleBox["Metro",
  FontWeight->"Bold"],
 "), you should also set ",
 StyleBox["SaveDefinitions\[Rule]True",
  FontWeight->"Bold"],
 ". "
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.6205018504224777`*^9, 3.6205019558072147`*^9}, {
  3.620502092122567*^9, 3.620502118642055*^9}, {3.620504107861274*^9, 
  3.620504118677207*^9}, {3.620504650373715*^9, 3.620504654356748*^9}, {
  3.651479172022374*^9, 3.651479205931744*^9}, {3.65148416454828*^9, 
  3.651484169758423*^9}, {3.696247763255722*^9, 3.6962477638969183`*^9}}],

Cell[TextData[{
 StyleBox["(b).",
  FontWeight->"Bold"],
 " Expand the model from part (a) with a second control which gets populated \
with the vertices of the corresponding graph.  When the user selects a vertex \
from the list, you show the corresponding metro station highlighted in green \
(or with increased size) on the metro network. Make the control type a ",
 StyleBox["PopupMenu",
  FontWeight->"Bold"],
 ". When the model is first compiled, the default vertex selected should be \
5, and the label of the control should be \[OpenCurlyDoubleQuote]Metro Node\
\[CloseCurlyDoubleQuote]."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.620454257072255*^9, 3.620454320940864*^9}, {
   3.620459117742785*^9, 3.620459123757498*^9}, {3.620459179741609*^9, 
   3.620459252592271*^9}, {3.620501146329939*^9, 3.620501150841432*^9}, {
   3.620502274706925*^9, 3.620502438138816*^9}, {3.620502893541544*^9, 
   3.6205028981979094`*^9}, {3.6205029373089857`*^9, 3.620502940413299*^9}, {
   3.620504087401848*^9, 3.6205040899771357`*^9}, {3.6205046592762547`*^9, 
   3.620504725990114*^9}, {3.651479573995905*^9, 3.651479739435196*^9}, {
   3.65148036745498*^9, 3.651480374362545*^9}, {3.651482762863699*^9, 
   3.651482764361018*^9}, {3.6514828404851418`*^9, 3.651482879777258*^9}, 
   3.69667772660527*^9, {3.696677759044932*^9, 3.69667781245333*^9}, {
   3.6966780443880177`*^9, 3.696678051851747*^9}, {3.696678116365926*^9, 
   3.6966782168166647`*^9}, {3.6966786985437107`*^9, 3.696678711958235*^9}, {
   3.696678787098136*^9, 3.6966787883605213`*^9}, {3.6966793362979183`*^9, 
   3.696679337320562*^9}},
 TextJustification->1.],

Cell[TextData[{
 StyleBox["(c).",
  FontWeight->"Bold"],
 " Make an interactive model from part (b) with nodes v an u as parameters, \
that highlights the shortest path from v to u, if there exists such a path in \
the graph, otherwise it only highlights the two vertices. Use the function ",
 StyleBox["FindShortestPath[...].\n",
  FontWeight->"Bold"],
 "After you make sure that your model works, please add another control",
 StyleBox[", {mycolor, ColorSlider} ",
  FontWeight->"Bold"],
 "which lets the user select the color that you will use to highlight the \
path (in place of just green)."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.620504056472845*^9, 3.620504071805513*^9}, {
   3.620504206142955*^9, 3.620504340855125*^9}, {3.620504667580283*^9, 
   3.620504669860676*^9}, {3.651482755732914*^9, 3.6514828175540037`*^9}, 
   3.696247840068157*^9, {3.696678790520067*^9, 3.696678816529216*^9}},
 TextJustification->1.],

Cell[TextData[{
 StyleBox["(d).",
  FontWeight->"Bold"],
 " Make an interactive model that highlights a vertex v of G2 together with \
its parents and children (i.e. if there is an edge v",
 StyleBox["\[Rule]",
  FontWeight->"Bold"],
 "u, then v is called a parent node and u a child node). The function \
NeighborhoodGraph[...] might be of help."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.6205029070584927`*^9, 3.620503009132915*^9}, {
  3.620503098625575*^9, 3.620503161638495*^9}, {3.620503648006332*^9, 
  3.620503662445695*^9}, {3.62050436923568*^9, 3.62050437314615*^9}, {
  3.6205044349466553`*^9, 3.6205044354664383`*^9}, {3.620504674724834*^9, 
  3.620504676620702*^9}, {3.620504754604332*^9, 3.620504768330378*^9}, {
  3.620504968099605*^9, 3.620504991866219*^9}, {3.620505033972052*^9, 
  3.620505037762969*^9}, {3.65148045998134*^9, 3.651480475475801*^9}, {
  3.651482627201078*^9, 3.651482630305168*^9}, {3.69667585936942*^9, 
  3.696675886103839*^9}},
 TextJustification->1.],

Cell[TextData[{
 StyleBox["(e). New! (Combined Statistics): Make an interactive model from \
part a) that outputs certain statistics about the metro maps. ",
  FontWeight->"Bold"],
 "Parameters: a control button with 5 values 1,2,3,4,5, and a checkbox \
parameter called ",
 StyleBox["statistics,",
  FontWeight->"Bold"],
 " with two values {True, False}. If \[OpenCurlyDoubleQuote]statistics\
\[CloseCurlyDoubleQuote] is selected, then the model outputs two pie charts: \
for the first pie chart you count the total number of metro nodes for each \
country, and display the 5 values in a pie chart. The second pie chart \
displays the number of ",
 StyleBox["metro hubs",
  FontWeight->"Bold"],
 " for each country. If \[OpenCurlyDoubleQuote]statistics\
\[CloseCurlyDoubleQuote] is not selected, then you output the same thing as \
in part a)."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.620504822508637*^9, 3.620504936927032*^9}, {
   3.620505074629816*^9, 3.6205052702011347`*^9}, {3.6514831088995037`*^9, 
   3.651483145658943*^9}, {3.6514838088733664`*^9, 3.651483814500269*^9}, 
   3.696244701940352*^9, {3.696675897370159*^9, 3.69667590536869*^9}, 
   3.696675951569894*^9, {3.696676491754326*^9, 3.696676503657065*^9}, {
   3.696676649550235*^9, 3.696676676797884*^9}, {3.6966789876309013`*^9, 
   3.696679022670886*^9}, {3.6966790695613403`*^9, 3.696679182315242*^9}, {
   3.6966796529852448`*^9, 3.696679809740458*^9}, {3.696679869918233*^9, 
   3.69667989635106*^9}, {3.696680266962007*^9, 3.696680268344541*^9}, {
   3.696680652861656*^9, 3.696680653179501*^9}, {3.696681005621717*^9, 
   3.696681007236615*^9}},
 TextJustification->1.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "8", ",", "10", ",", " ", "8"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datanames", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\< Name1 \>\"", ",", " ", "\"\< Name2 \>\"", ",", "\"\< Name3 \>\"", 
     ",", "\"\< Name4 \>\"", ",", " ", "\"\<Name 5\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"P", "=", 
  RowBox[{"PieChart3D", "[", 
   RowBox[{"data", ",", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Title of Pie Chart\>\""}], ",", 
    RowBox[{"ChartLabels", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{"datanames", ",", "\"\<RadialCallout\>\""}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.696673750750917*^9, 3.696673799274267*^9}, {
  3.696679926249778*^9, 3.69668003474711*^9}, {3.696680066693625*^9, 
  3.6966801078528976`*^9}, {3.696680152359222*^9, 3.6966801527259274`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 Graphics3DBox[
  {RGBColor[0.5, 0.5, 1.], EdgeForm[{GrayLevel[0], Opacity[0.1]}], {{{}, {
      {RGBColor[0.980722, 0.7110406, 0.2420506], EdgeForm[{GrayLevel[0], 
       Opacity[0.1]}], 
       DynamicModuleBox[{DynamicChart`click$11769 = False}, 
        GeometricTransformation3DBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   RGBColor[
                   0.6666666666666666, 0.6666666666666666, 
                    0.6666666666666666], 
                   AbsoluteThickness[1.5]}], {}, {}], {
                 Polygon3DBox[CompressedData["
1:eJxTTMoPSmVmYGBgAmIOIAax6QM+7GePETFWW7bQBiYi/eiy6dJX7/dv+h/g
+K5ikz1MfHnG0vCNq97vtzVWrpmVcwguPokz50Clw/v9h4U0Dqq1nLZHtwHN
PhzypItjt/eDPXZ3frDH7i+Y+ejh8MEeAETmRoA=
                  "]], 
                 
                 BSplineSurface3DBox[{{{-0.9766205557100867, 
                   0.21497044021102427`, 0.}, {-1., 0.10875655400325322`, 
                   0.}, {-1., 1.1102230246251565`*^-16, 
                   0.}}, {{-0.9766205557100867, 0.21497044021102427`, 
                    1}, {-1., 0.10875655400325322`, 1}, {-1., 
                    1.1102230246251565`*^-16, 1}}}, SplineDegree -> {1, 2}, 
                  SplineWeights -> {{1., 0.9941379571543595, 1.}, {1., 
                   0.9941379571543595, 1.}}, 
                  SplineKnots -> {{0, 0, 1, 1}, {0, 0, 0, 1, 1, 1}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 
                  1.}, {-0.9766205557100867, 0.21497044021102427`, 
                  1.}, {-0.9766205557100867, 0.21497044021102427`, 0.}}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 1.}, {-1., 
                  1.2246467991473532`*^-16, 1.}, {-1., 
                  1.2246467991473532`*^-16, 0.}}}]}},
               
               ImageSizeCache->{{150.3642912557168, 
                326.7393429979577}, {-96.85348537301655, \
-2.599742217424094}}], 
              {GrayLevel[0], Thickness[0.0025], Opacity[1], 
               
               StyleBox[{
                 Line3DBox[{{-0.9941379571543596, 0.10811901842394192`, 
                  0.5}, {-1.0935517528697956`, 0.11893092026633612`, 0.5}}], 
                 Line3DBox[{{-1.0935517528697956`, 0.11893092026633612`, 
                  0.5}, {-1.1935517528697956`, 0.11893092026633612`, 0.5}}]},
                FontFamily->"Arial"]}, 
              {GrayLevel[0], Opacity[1], 
               
               StyleBox[
                SphereBox[{-0.9941379571543596, 0.10811901842394192`, 0.5}, 
                 0.016666666666666666`],
                FontFamily->"Arial"]}, Text3DBox[
               StyleBox["\<\" Name1 \"\>",
                StripOnInput->False,
                LineColor->GrayLevel[0],
                FrontFaceColor->GrayLevel[0],
                BackFaceColor->GrayLevel[0],
                GraphicsColor->GrayLevel[0],
                FontFamily->"Arial",
                FontColor->GrayLevel[0]], {-1.2333172711559701`, 
               0.11893092026633612`, 0.5}, {1, 0}]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {
              GrayLevel[0], FontFamily -> "Arial"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {
              GrayLevel[0], FontFamily -> "Arial"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$11769, 
              FEPrivate`Not[DynamicChart`click$11769]], PassEventsDown -> 
            True, Method -> "Preemptive", PassEventsUp -> True}]], Dynamic[
         If[DynamicChart`click$11769, {{{1., 0, 0}, {0, 1., 0}, {
             0, 0, 1.}}, {-0.19882759143087192`, 0.021623803684788386`, 
             0}}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}, {{1, 0, 0}, {0, 1, 0}, {
           0, 0, 1}}], TrackedSymbols :> {DynamicChart`click$11769}]],
        DynamicModuleValues:>{}]}, 
      {RGBColor[1., 0.487, 0.1], EdgeForm[{GrayLevel[0], Opacity[0.1]}], 
       DynamicModuleBox[{DynamicChart`click$11771 = False}, 
        GeometricTransformation3DBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   RGBColor[
                   0.6666666666666666, 0.6666666666666666, 
                    0.6666666666666666], 
                   AbsoluteThickness[1.5]}], {}, {}], {
                 Polygon3DBox[CompressedData["
1:eJxTTMoPSmVmYGBgAmI+IAaxhwqYxJlzoNLh/f7DQhoH1VpO28PEm0SvGves
ebe/ebLSjhrrS3Dx8Ao+xXXv3+73mcHQPmHONbj4uRqX2be53u4vqT7ZWXb/
Flw82tWI0+3/6/0XcouP1P27Bxdfz9jWG3Tu1f7tDCd6RKoewsWjnllozah8
uT+o4krAtNjHcHHs4AMO+YETx+7+D/bY/fvBHnv4fLDHHp4f7LGH/wd77PH1
wR57/H6wBwB8GIe2
                  "]], 
                 
                 BSplineSurface3DBox[{{{-0.7960930657056438, 
                   0.6051742151937651, 0.}, {-0.9293019836256384, 
                   0.4299408804220483, 0.}, {-0.9766205557100867, 
                   0.21497044021102424`, 
                   0.}}, {{-0.7960930657056438, 0.6051742151937651, 
                    1}, {-0.9293019836256384, 0.4299408804220483, 
                    1}, {-0.9766205557100867, 0.21497044021102424`, 1}}}, 
                  SplineDegree -> {1, 2}, 
                  SplineWeights -> {{1., 0.9766205557100865, 1.}, {1., 
                   0.9766205557100865, 1.}}, 
                  SplineKnots -> {{0, 0, 1, 1}, {0, 0, 0, 1, 1, 1}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 
                  1.}, {-0.7960930657056438, 0.6051742151937651, 
                  1.}, {-0.7960930657056438, 0.6051742151937651, 0.}}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 
                  1.}, {-0.9766205557100867, 0.21497044021102427`, 
                  1.}, {-0.9766205557100867, 0.21497044021102427`, 0.}}}]}},
               
               ImageSizeCache->{{154.14965673757553`, 
                335.10063202525697`}, {-132.75018575006555`, \
-2.5997422174240796`}}], 
              {GrayLevel[0], Thickness[0.0025], Opacity[1], 
               
               StyleBox[{
                 Line3DBox[{{-0.9075754196709569, 0.4198891015602648, 
                  0.5}, {-0.9983329616380526, 0.46187801171629134`, 0.5}}], 
                 Line3DBox[{{-0.9983329616380526, 0.46187801171629134`, 
                  0.5}, {-1.0983329616380526`, 0.46187801171629134`, 0.5}}]},
                FontFamily->"Arial"]}, 
              {GrayLevel[0], Opacity[1], 
               
               StyleBox[
                SphereBox[{-0.9075754196709569, 0.4198891015602648, 0.5}, 
                 0.016666666666666666`],
                FontFamily->"Arial"]}, Text3DBox[
               StyleBox["\<\" Name2 \"\>",
                StripOnInput->False,
                LineColor->GrayLevel[0],
                FrontFaceColor->GrayLevel[0],
                BackFaceColor->GrayLevel[0],
                GraphicsColor->GrayLevel[0],
                FontFamily->"Arial",
                FontColor->GrayLevel[0]], {-1.1346359784248912`, 
               0.46187801171629134`, 0.5}, {1, 0}]},
             StatusArea[#, 2]& ,
             TagBoxNote->"2"],
            StyleBox["2", {
              GrayLevel[0], FontFamily -> "Arial"}, StripOnInput -> False]],
           Annotation[#, 
            Style[2, {
              GrayLevel[0], FontFamily -> "Arial"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$11771, 
              FEPrivate`Not[DynamicChart`click$11771]], PassEventsDown -> 
            True, Method -> "Preemptive", PassEventsUp -> True}]], Dynamic[
         If[DynamicChart`click$11771, {{{1., 0, 0}, {0, 1., 0}, {
             0, 0, 1.}}, {-0.18151508393419138`, 0.08397782031205298, 0}}, {{
           1, 0, 0}, {0, 1, 0}, {0, 0, 1}}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 
           1}}], TrackedSymbols :> {DynamicChart`click$11771}]],
        DynamicModuleValues:>{}]}, 
      {RGBColor[0.757, 0.40959999999999996`, 0.1], EdgeForm[{GrayLevel[0], 
       Opacity[0.1]}], 
       DynamicModuleBox[{DynamicChart`click$11773 = False}, 
        GeometricTransformation3DBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   RGBColor[
                   0.6666666666666666, 0.6666666666666666, 
                    0.6666666666666666], 
                   AbsoluteThickness[1.5]}], {}, {}], {
                 Polygon3DBox[CompressedData["
1:eJztlV9I01EUx7VCKIdoy8hEtmUWM2q2VlkiJ1J8yBoRrTI0TTPwTw0x0KGU
iknSQxpigygisUlkrYzhEr2gG1Q2bKLiMnNubmq5dioE6Y9lD/3uy+k1etiB
C5fPfbr3nvP5ynK1R/KXBwUFLVtaiUvr9z5Qgfqf64Q3MV6vm2Wa8qHDzVlu
+MPvDI4mS7bNsCp1WR2bnxJ4VMhWX9wLL9Ndj7PYyrwCb157vmPjQQ+7VO5y
yV3TAu+Pn8tr73Szwgq1WbNjVuCb1Gk1BeEupg/ueOgreC/w4fB71es0TmYy
rVTer/0g8KeVjx3REePsypoL4tM1cwLXmrSfT2U4WHqvqSck1yfw4167yFs3
zN5KzmkebfgocIlPtt58y85is/oN1/o4X13V+tWf0s8sfTOrFlP8Ap/aPJT7
QNHHJpTG0NIWzl15P4szwkxse+SzH/WTnBsU3zsy9c1MKtflBy9yLtprzNnX
0Aot0gPJXQucq8ob9AvxXaBKiYnstnP+Zf/tb02dVkht14sS6jnvjZnebbXY
YEWW2ZAj4Xyn3x3zfHQQZC+lF3ua+L2iG+WKQ10jMBF7xjo2y9/nasnAp9HL
b8B41GEqlnBuzG58XaR6BxVFtfa0Xfyd5zMTxhonnaB0+hayFfxfbkrPiqU3
XJC5ZaDEFsr/UdlWGSXeMwUjCkN376sZgesiqmOfWD2QNF54rKGU90mYesxz
MmkaUsVt6XeDeV/RhX85D/AA/7ec7lsEus8R6LlAoOcIgZ47BHpOEei5RqA9
gEB7A4H2DALtJQTaYwi09xBoTyLQXkWgPYxAexuB9jwCnQsIdI4g0LmDQOcU
Ap1rCHQOItC5iUDnLAKdywh0jiP8AqnkGEY=
                  "]], 
                 
                 BSplineSurface3DBox[{{{0.7259954919231306, 
                   0.6876994588534235, 0.}, {0.03829603306970708, 
                   1.4136949507765542`, 0.}, {-0.6876994588534235, 
                   0.7259954919231306, 0.}, {-0.7468153398017943, 
                   0.6699979550374023, 0.}, {-0.7960930657056439, 
                   0.6051742151937649, 
                   0.}}, {{0.7259954919231306, 0.6876994588534235, 1}, {
                    0.03829603306970708, 1.4136949507765542`, 
                    1}, {-0.6876994588534235, 0.7259954919231306, 
                    1}, {-0.7468153398017943, 0.6699979550374023, 
                    1}, {-0.7960930657056439, 0.6051742151937649, 1}}}, 
                  SplineDegree -> {1, 2}, 
                  SplineWeights -> {{1., 0.7071067811865475, 1., 
                   0.9967011895602227, 1.}, {1., 0.7071067811865475, 1., 
                   0.9967011895602227, 1.}}, 
                  SplineKnots -> {{0, 0, 1, 1}, {0, 0, 0, 1, 1, 2, 2, 2}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 1.}, {
                  0.7259954919231306, 0.6876994588534235, 1.}, {
                  0.7259954919231306, 0.6876994588534235, 0.}}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 
                  1.}, {-0.7960930657056435, 0.6051742151937655, 
                  1.}, {-0.7960930657056435, 0.6051742151937655, 0.}}}]}},
               
               ImageSizeCache->{{183.37885999473934`, 
                457.35733953771967`}, {-195.82328818353255`, 
                23.345595855790293`}}], 
              {GrayLevel[0], Thickness[0.0025], Opacity[1], 
               
               StyleBox[{
                 Line3DBox[{{-0.05413890858541771, 0.9985334138511238, 
                  0.5}, {-0.059552799443959484`, 1.0983867552362363`, 0.5}}], 
                 Line3DBox[{{-0.059552799443959484`, 1.0983867552362363`, 
                  0.5}, {-0.1595527994439595, 1.0983867552362363`, 0.5}}]},
                FontFamily->"Arial"]}, 
              {GrayLevel[0], Opacity[1], 
               
               StyleBox[
                SphereBox[{-0.05413890858541771, 0.9985334138511238, 0.5}, 
                 0.016666666666666666`],
                FontFamily->"Arial"]}, Text3DBox[
               StyleBox["\<\" Name3 \"\>",
                StripOnInput->False,
                LineColor->GrayLevel[0],
                FrontFaceColor->GrayLevel[0],
                BackFaceColor->GrayLevel[0],
                GraphicsColor->GrayLevel[0],
                FontFamily->"Arial",
                FontColor->GrayLevel[0]], {-0.1617183557873762, 
               1.0983867552362363`, 0.5}, {1, 0}]},
             StatusArea[#, 8]& ,
             TagBoxNote->"8"],
            StyleBox["8", {
              GrayLevel[0], FontFamily -> "Arial"}, StripOnInput -> False]],
           Annotation[#, 
            Style[8, {
              GrayLevel[0], FontFamily -> "Arial"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$11773, 
              FEPrivate`Not[DynamicChart`click$11773]], PassEventsDown -> 
            True, Method -> "Preemptive", PassEventsUp -> True}]], Dynamic[
         If[DynamicChart`click$11773, {{{1., 0, 0}, {0, 1., 0}, {
             0, 0, 1.}}, {-0.010827781717083542`, 0.19970668277022477`, 
             0}}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}, {{1, 0, 0}, {0, 1, 0}, {
           0, 0, 1}}], TrackedSymbols :> {DynamicChart`click$11773}]],
        DynamicModuleValues:>{}]}, 
      {RGBColor[0.6348934, 0.4204, 0.6877891], EdgeForm[{GrayLevel[0], 
       Opacity[0.1]}], 
       DynamicModuleBox[{DynamicChart`click$11775 = False}, 
        GeometricTransformation3DBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   RGBColor[
                   0.6666666666666666, 0.6666666666666666, 
                    0.6666666666666666], 
                   AbsoluteThickness[1.5]}], {}, {}], {
                 Polygon3DBox[CompressedData["
1:eJzt1mtMzWEcB/CT2trZUhJZLpNLNmquI2F9nakmipQlzS2JFdaoRBkmzTGX
sSlleOGSQrcduYvukmuSCHU63U71P/9fl+WyDvKipze/FzZvz7P9t/8+754X
z/f7nbA50j/MXKFQDOn/vPq/v/+mYzqm8//HdkVtU/DCFqjs0pdfNmvGgNtf
nfJZmdyKodP3xcXGNwqPOH3SxuWDHo9zAq6b1zcId8jwKIsytuH8GePWrpla
4Q8s98zOtuyAm1oRYln/VfhchU1aeU8HNBkeo0a41wqflLTk0YsiCTk9zkFv
D34QbqW9sFobZUDJp/TeiRnvhJ9bp47ys5ARsvuJj9X+18K7sw4qjkTLyC2t
vjU6sUz4gR3mmy2LZUQke9REtucLP3OztPdolwzHMX7utmszhRsTTm5//1uG
wf6WW7ND3JMB71sUJmnbZRyeOiXczpArfNcPs/mFd2T82vZqXrddgfCcntmH
MjfJGP7ROmzc+HLhGk3CAqPegCuu6dPt1W+Ery73zHcJMCCmYmN2ZGSV8IvP
QktqLkhQll3LOqGqEZ6Ycrg8v6wDqLO+F/2zVrhTxGg8qmpH0F6HY97JdcK3
UED2y+I21D90PH5NrRW+0iw1d2iqHsmdgfekOTrhFsH6Eo1/KwwFcz1UFY3C
t2sm29p1NyPJN0333adZ+NhT5/tS4pug813zNOFui/CwXt8HFZIOKZXeDuFK
/eB962Kzly5vgPQ78Lm3qk34kViptDCpHl6GUfe169uFf3uzKtjs0hcUxdx2
Um7oEK7ecFbO6/wIpW7B17zFkvAep97o6GnVCJ2lCuizMAhf6xxuP82nEpJf
zolhNwb9vUV13d28F7Aa+dDoNUMWvnPZpKeeecVwTZzsOvLsoPOHYHKTm/zf
nX9fBP49Evj3S+DfO4HPBwKfJwQ+fwh8XhH4fCPweUjg85PA5y2Bz2cCn+cE
Pv8JfF8Q+H7pvy/bRwS+vwh83xH4fiTwfUrg+5fA9zWB73cCvwcI/H4g8HuD
wO8TAr9nCPz+IfB7icDvKwK/xwj8fiP8ASvdq24=
                  "]], 
                 BSplineSurface3DBox[{{{
                   0.16178199655276462`, -0.9868265225415261, 0.}, {
                   1.1486085190942907`, -0.8250445259887615, 0.}, {
                   0.9868265225415261, 0.16178199655276462`, 0.}, {
                   0.937151789058166, 0.4647844662099717, 0.}, {
                   0.7259954919231306, 0.6876994588534235, 
                   0.}}, {{0.16178199655276462`, -0.9868265225415261, 1}, {
                    1.1486085190942907`, -0.8250445259887615, 1}, {
                    0.9868265225415261, 0.16178199655276462`, 1}, {
                    0.937151789058166, 0.4647844662099717, 1}, {
                    0.7259954919231306, 0.6876994588534235, 1}}}, 
                  SplineDegree -> {1, 2}, 
                  SplineWeights -> {{1., 0.7071067811865475, 1., 
                   0.9559521426716114, 1.}, {1., 0.7071067811865475, 1., 
                   0.9559521426716114, 1.}}, 
                  SplineKnots -> {{0, 0, 1, 1}, {0, 0, 0, 1, 1, 2, 2, 2}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 1.}, {
                  0.16178199655276462`, -0.9868265225415261, 1.}, {
                  0.16178199655276462`, -0.9868265225415261, 0.}}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 1.}, {
                  0.725995491923131, 0.6876994588534232, 1.}, {
                  0.725995491923131, 0.6876994588534232, 0.}}}]}},
               
               ImageSizeCache->{{287.2177841536882, 
                515.6353709668181}, {-106.64895093946072`, 155.81958375326}}], 
              {GrayLevel[0], Thickness[0.0025], Opacity[1], 
               
               StyleBox[{
                 Line3DBox[{{0.9476531711828025, -0.3193015301359799, 0.5}, {
                  1.0424184883010827`, -0.3512316831495779, 0.5}}], 
                 Line3DBox[{{1.0424184883010827`, -0.3512316831495779, 0.5}, {
                  1.1424184883010828`, -0.3512316831495779, 0.5}}]},
                FontFamily->"Arial"]}, 
              {GrayLevel[0], Opacity[1], 
               
               StyleBox[
                SphereBox[{0.9476531711828025, -0.3193015301359799, 0.5}, 
                 0.016666666666666666`],
                FontFamily->"Arial"]}, Text3DBox[
               StyleBox["\<\" Name4 \"\>",
                StripOnInput->False,
                LineColor->GrayLevel[0],
                FrontFaceColor->GrayLevel[0],
                BackFaceColor->GrayLevel[0],
                GraphicsColor->GrayLevel[0],
                FontFamily->"Arial",
                FontColor->GrayLevel[0]], {
               1.180324615148395, -0.3512316831495779, 0.5}, {-1, 0}]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {
              GrayLevel[0], FontFamily -> "Arial"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {
              GrayLevel[0], FontFamily -> "Arial"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$11775, 
              FEPrivate`Not[DynamicChart`click$11775]], PassEventsDown -> 
            True, Method -> "Preemptive", PassEventsUp -> True}]], Dynamic[
         If[DynamicChart`click$11775, {{{1., 0, 0}, {0, 1., 0}, {0, 0, 1.}}, {
            0.1895306342365605, -0.06386030602719599, 0}}, {{1, 0, 0}, {0, 1, 
           0}, {0, 0, 1}}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}], 
          TrackedSymbols :> {DynamicChart`click$11775}]],
        DynamicModuleValues:>{}]}, 
      {RGBColor[0.4366, 0.49960000000000004`, 0.8097967], EdgeForm[{GrayLevel[
       0], Opacity[0.1]}], 
       DynamicModuleBox[{DynamicChart`click$11777 = False}, 
        GeometricTransformation3DBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   RGBColor[
                   0.6666666666666666, 0.6666666666666666, 
                    0.6666666666666666], 
                   AbsoluteThickness[1.5]}], {}, {}], {
                 Polygon3DBox[CompressedData["
1:eJzt1VtI1FEQBvDNNU3NKDBdDdMsiySKsHUFjaFy1wspsdKNNMUbYZuWUoKo
9ZCW6VKUIGtWCqHSg6WWGRlj5IN2cUtMtEW8lXfd0YqstDKi84cYevZhBw4c
fo+HM9+3Li5VmyiXyWRWC8d/4fy+W8Yyi3kSw9Y3qR80g3/uBtXqIjP+9Ty7
eZ8Oj0eAfRXd6V2SPxlSrQg4XQ6xWz0vBH6XfOxI2FGV8SZaZ2quhM1Jftel
qdLVrQEjzBFdpSbJQ7VVimzfZize4da53yB5Y/J59a2gl+iWZEp9rJQ8Om2+
enZNO/6wia3xq5kSPu0YdfyiVSfqKjXRkcslD46pq+9/040rXQyHMXhSuPXA
0vGfuT1YU5w4G5owIbyweZs+W9+HBVkK98G4ceH7vO4752kGMM2YBSVBY8KT
99xJDZkYxMttKeE37EeFlzmea7XN/oAnlCk6Vf2w8E17i3LcvwxhtXdsqTFk
SLjh8yfjt0MjqJZPBw4/ey98LmEk36d8FBXXvDMUmwel91ySp9e2jeFDWUuh
U2a/cAjAncrecfSSz6wNOtUrvKDnYFtt+wS2ftVb+b0yCa89o0t/XjmJ8qr8
p28duoRH1mpOXo+ewi0OMWrX7R3CZ5bFWSd9nMKGukt+q3a9Fm7/okJZeMyM
t/vsklrPtggvAZuMq41mPGBwfmeIbxKu9Wjx8TSbMTwn3rRbd0/4nyG0jXLy
3VhR3ij77xBY3OKLx//9twT8Pyfg94KA3yMCfu8I+D0l4PeagM8BAj43CPic
IeBziYDPMQI+9wj4nCTgc5WAz2ECPrcJ+Jwn4HuBgO8RAr53CPieIuB7beE9
2R4k4HuTgO9ZAr6XCfgeJ/gFXVMlwg==
                  "]], 
                 
                 BSplineSurface3DBox[{{{-1., -1.2246467991473532`*^-16, 
                   0.}, {-0.9999999999999999, -1.0000000000000002`, 0.}, {
                   1.2246467991473532`*^-16, -1., 0.}, {
                   0.08142733888302169, -1., 0.}, {
                   0.16178199655276468`, -0.9868265225415261, 
                   0.}}, {{-1., -1.2246467991473532`*^-16, 
                    1}, {-0.9999999999999999, -1.0000000000000002`, 1}, {
                    1.2246467991473532`*^-16, -1., 1}, {
                    0.08142733888302169, -1., 1}, {
                    0.16178199655276468`, -0.9868265225415261, 1}}}, 
                  SplineDegree -> {1, 2}, 
                  SplineWeights -> {{1., 0.7071067811865475, 1., 
                   0.9967011895602227, 1.}, {1., 0.7071067811865475, 1., 
                   0.9967011895602227, 1.}}, 
                  SplineKnots -> {{0, 0, 1, 1}, {0, 0, 0, 1, 1, 2, 2, 2}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 
                  1.}, {-1., -1.2246467991473532`*^-16, 
                  1.}, {-1., -1.2246467991473532`*^-16, 0.}}}], 
                 
                 Polygon3DBox[{{{0., 0., 0.}, {0., 0., 1.}, {
                  0.1617819965527644, -0.9868265225415263, 1.}, {
                  0.1617819965527644, -0.9868265225415263, 0.}}}]}},
               
               ImageSizeCache->{{109.52636056723239`, 
                348.61129499618767`}, {-75.54618182890644, 
                118.91108788964002`}}], 
              {GrayLevel[0], Thickness[0.0025], Opacity[1], 
               
               StyleBox[{
                 Line3DBox[{{-0.6473862847818276, -0.7621620551276365, 
                  0.5}, {-0.7121249132600104, -0.8383782606404002, 0.5}}], 
                 Line3DBox[{{-0.7121249132600104, -0.8383782606404002, 
                  0.5}, {-0.8121249132600104, -0.8383782606404002, 0.5}}]},
                FontFamily->"Arial"]}, 
              {GrayLevel[0], Opacity[1], 
               
               StyleBox[
                SphereBox[{-0.6473862847818276, -0.7621620551276365, 0.5}, 
                 0.016666666666666666`],
                FontFamily->"Arial"]}, Text3DBox[
               StyleBox["\<\"Name 5\"\>",
                StripOnInput->False,
                LineColor->GrayLevel[0],
                FrontFaceColor->GrayLevel[0],
                BackFaceColor->GrayLevel[0],
                GraphicsColor->GrayLevel[0],
                FontFamily->"Arial",
                
                FontColor->GrayLevel[
                 0]], {-0.8380203646512835, -0.8383782606404002, 0.5}, {1, 
               0}]},
             StatusArea[#, 8]& ,
             TagBoxNote->"8"],
            StyleBox["8", {
              GrayLevel[0], FontFamily -> "Arial"}, StripOnInput -> False]],
           Annotation[#, 
            Style[8, {
              GrayLevel[0], FontFamily -> "Arial"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$11777, 
              FEPrivate`Not[DynamicChart`click$11777]], PassEventsDown -> 
            True, Method -> "Preemptive", PassEventsUp -> True}]], Dynamic[
         If[DynamicChart`click$11777, {{{1., 0, 0}, {0, 1., 0}, {
             0, 0, 1.}}, {-0.12947725695636553`, -0.1524324110255273, 0}}, {{
           1, 0, 0}, {0, 1, 0}, {0, 0, 1}}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 
           1}}], TrackedSymbols :> {DynamicChart`click$11777}]],
        DynamicModuleValues:>{}]}}}, {}}, {}},
  BoxRatios->{1, 1, 0.1},
  Boxed->False,
  FaceGridsStyle->Automatic,
  ImageSize->{574.6793721762392, 450.},
  LabelStyle->{
    GrayLevel[0], FontFamily -> "Arial"},
  Lighting->"Neutral",
  PlotLabel->FormBox["\"Title of Pie Chart\"", TraditionalForm],
  PlotRange->{{1.4, -1.4}, {1.4, -1.4}, {0., 1.02}},
  ViewPoint->{0., -2.4, 2.},
  ViewVertical->{-0.19543490848636552`, 0.24287269478970736`, 
   9.501673803443852}]], "Output",
 CellChangeTimes->{
  3.696673800983437*^9, {3.6966799546069317`*^9, 3.6966800356834*^9}, {
   3.696680068920433*^9, 3.6966801086154823`*^9}, 3.696680154716106*^9},
 FontSize->18,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzsvQdYFNnyPjw/guu6OZvFdePdXV13zRlExYiYc8AAKElyzhkxR8Scc1Yw
ixgQM+aAiIhxdc2K4f2qTncPPcOAYdV77/+78zw9M8wM5/SpeqvqrTqnT7ft
72E/yKm/h8OA/mYt3Pq72jsMcDdr7uJGHxn/n0Zj1Fij+b9UMw2/h0ajPBU8
zPlJ/cn/PvjfB//74H8f/O+D/33w/8YHzcX7Enj69Cny8/PFcffve7h84Qqy
z1wwwYWzORpjZJ3Kxp5NGdi9IYP+4uf3sGdDBtI27MK2lFRxbE/ZgW1rd2Bv
6j76jfR/Oedyceva33j06JHGCPlP8umzZ8+eKWeiOak6lXri/RfA8+d48iQf
9+/fR1ZWLi6cy8Gh9MPYun4btiWnYtOqLZgzegGmxc9CUsxMBA6MgHf/QPjQ
4dHVHy7W3nBq4wmntp7Up1NbLxqeczsv8ZltI0fYNhyKAeJwNMKARo7UpW2j
oejfeIj26NfAAYMsnDGsvS/c+LD2g5uNP7y6BMGvfygCBoYhYEAYIu0SMDNh
PmaNXIDZIxcieeEm6pIEoTHB8cMnWIJ4cP8BD/yQaqR/ivcf4+mTJ7h582+c
pVHuTs9E8oY0zFu4AcPHLMEwn0noOzgKvQfGoI2NNwa1cYatxRD0qDfACL3q
D9SUQp/69ujb0B796LCls7Zt7IgBdAxsQoeFkxjBYAtnI3pyIRkMbuoCOzrs
mw0Th4M43Izg0NyNzndIczc63JXDCENbeBhhSDN+18xD8430RTMPDLWUjiGW
7nCwoKMpH24YbO6CQXQMNneGSxtvuHcIgH9/EpRtGCYEJmHe6MVIXrQJO1J2
4uDOI7iccwWPHj7Cs+fPNHtU0vlVvP+Knp7j8ePHyLl4BXv2ZmJd8g4kTl8D
v5Ap6GcXha59wtCmUwjMW/mgnqUbGjTzRIMWPmjU0heNW/mjSesA1Ccx2DTo
j4HmpG8LR0LfQHo2kcTTVDlYROLJ0kVjCjtLkpOlq3Q0cyVZuZJSSWL0nSwz
Fpk4SGjUJknGRBKXYwtPerLyNIaTFePOycobzi3Vhw9cWvoYwdnKW/MpnFrQ
R3Q4NvMSIrW3cIOdxTD63AveXYIRQOKLdx+NOSMWYv2iFOzaukeYFJsGiS1V
JbUfxfvPyZCf4Nr1mzhw6KSQ2LhJy+HiOR69SAvtqEnzVp6oa+FKEnNHg+Ze
aEQSa2zlgyat/GDe2h8WbfzRtE2AEZq2FU+BJC3zVr5o27gPSUpIURKisVqI
JCASI31GcmQxClEasSj5yZUkZy8kOUyNPo0EPVN96JEo3akpHYGasECNWYb0
e1mK0tGKD1/6vWsrXyN68iPDGtbaD64EAxcrX5KvD5ybeWNIU4avO7wJMgH9
whHvNhrLElcjNXknzh3Pwv17D7ao5PmteP8JOaNnwkbTCYHLVm5BTMI82NpH
omOPIFi09iJZOtPhhvqkvgYtPEmW3mhC50Uyo/GZt6ZzsmjtR6dn0cZPCJcO
+oJErCnJMmYRa48WFkNh28SBhCwEbfRCQTvrC7qEIUFrzVxAlX5DAmbxag9H
cagkbcKSNmIBU1eyiIWYjbRiNmIp85O/Edxa+2s+oucADCPDG9aSpG/lB0dL
L3ISHvBsH4SAPuGYFDwd6xdswP6dB3Hz+i2OOZoUlcgrivcfCaM/fTaH3OFO
JIxZBDunOHQicTdq4Yba5NsYvvUZvqTNRlaeJG4vOq8mBA0TgrG3cAjyITRg
zBowEoI3JsELfLPoNRK+TWHZLhiNze3Rx2KwInqNJHtTPU8hvIVG5S6M1e5C
uAnX1/MVpoZ8hUZfBa6KCuj3pAMB9IKDx+cm9MEG7E4Q+5CeA4Vi3EgxrJSh
lp7Upi/8e4UjYmgcFoxbitSUNGSdPM9haq1KH2XF+w/xkJx05rFzWLl6O6IJ
/n0GhqM5BdnaTYaiNjn7ek1ZH8PQsLkHwd/DmJ48CWSNW3qxauTDW6imiVDJ
S+uFTMKCbKlLEzvSg54Hb/ouPPirasVE0kqBZgoMpEAr/BRoBI+24ilI8z7c
WwfCvWUAXFuQ1ZBT9uoYgoghcVhO4e7ArkO4e/uuZpVKM1/LmnlCBOJ8dh5W
r01FUPg09OgXSjL1QC1iA5KluMiacWPrMaIn9qyNWghF8UHn/WJt0b9wCCCV
8aERHs1Yq7cA2Y0pepPiRbvG/f5L4oVRUXoyZj1RlCZFsZ60h6c4guFJbkN8
Rtpzae4r1O5Pfi4xYoaIKjlnL7KPW6ZS3OfifSniwE9xKe8aNm9NR8LYReg7
KBxWNj6kOAc6HEVUadDM1Zg0N8yI1UdSZfdH+pMPD1ach6Q9tjit9opwhb6v
FIzY8iyb2KP/OwhGQ14qGBkXaXPGak+oUUUkE8nxtZEOrUJLFKVQI9ao5gN4
kV692oWIw6N1MNxbBcK5uQ98iDnEDB2JdXM34PSRs5wraRarlPuJeP8+sbOH
yNh3DOMTl2LQkEi07uiDOk2GoGajIahj7kj+kqVE6qVTb0gCIh3zoTEq0HYJ
NGqu1ra7YrPCubKGvd6ImmmkDRsPosA3SFfN/7lxz0Q/7r2EhzViDVNritGy
mo1ZvWSJ3tYhdIRqlc2G7N0+BJEO8Vg1ax1OHjnFhGSBSs8fynq+desOtu84
gIjY2ejaO4gU54w/KRerQ3GxHomvvqWkZxdjtbKbvaKySUKN1X5Z8s3CJb80
vQlCE8JYd/NB2kRIreaBRav5zcTSN+GMhUrphx5tAhX71Ujh00THIdNhwso0
Zq0S3H2sw+DdLgxebUME//G2odBqH4e1C1Jw/nT2PJVe35ed8+UrN7CektSA
0Mno0N1P2G4N0mttYbusV3LOliShBuzoXqxfU1m/Ou5bo/Lfbzr6+sG6EUVf
i39v9H31HEI/9L7AU5voeGo6TFjnRqxyVnz7MPhah8O7bRiGWfkLTsWRedfG
PcynZqsUX0I26DxS/Jr1O+DlPx6tOniR0gejZkOHAoMm0Zmw+otXvbH22U3R
vKZo6mWsVv6Lg7fQvCFfzn7eiv24+ZB/a8gmhDgSG3HSOdhfvcD8Xy6jkdyA
qSFgaIy00JCcu4nWucuHBI1SEjTah2sPH4KJV+sQuBEFD+kfg2VJq5i8zVRB
xFiGSO6lq1i+aivcfceglY0najQYJPuGIeQbhH+gUyagCJwYa3Ei4r0Rw8RE
x/G3eEdR3pzIXD/zwf+PRnljw4FAC4N2hWFgxCgwZvWTtPzaR8DPJkIAwaNV
EHw7hWEK+YqDOw9z9jtNBQTCwN1797F1ezo8/MaihbW7jAE7yrgcyE2wq2Cj
IzQIINDY61tKQUM5KHhoinAhr0oF3xw76GExWJtkv112oDHRL0C9jbztVYOH
RBhMCAOhgjSwk9BCpBQ9SxBRDv7bqzXxRoJbtMMIbFq+FTev30ySoPJUvJTE
s6fPsP/ACYyduBhdegWgVqPB+LP+YIKKPeV4Q40ZL9QnIUb2HuIwYdwYM1Q0
7EEYMC58vAk2+dJcw0LhGhJ4TNTgUReH6Rfo0HjAG0/2jQsCzovw8upMw5jB
Qh27i8QwUHsQZDSSMzHVdyaMFylrUNEMY3Usoe7o2ZjhwT7FJhL+8uHbLlwk
F8F9orFgwhLkXriUKAElX8U55y/eiEFDY9GgqQOq1xtA+aKd4J51KbbUtRjy
IsC8BDN5FVJaFC/xKYaXGGSkpgIircwHEiaG6NVX3yA30Z/CaiFFIvqYsMJQ
kQ+v/4S803BMkuHko4YT/dRP1/UYM6RIGP4douDfPlIwF//uERKwsnMnScB6
KF7ew6PHj5GadhD+oVNh1d4dfxCw/mwwmIBlTx3UNXfgpyHUs4wwATCjV4RZ
AbF5Cdr75smNBZ12f3O7/zJy8xJF4lfNd/WZjWmhsEVeiZphAJUUAAqQD//2
UfCkcObfLQKLE5fjSu7VCRKQ7suh7Oq1vzB3QTL6DgqlMDZIAKlmIwEk1DF3
MNZiyYihZGIYQe+AERWDrFdhRHRSvSzsDE4HvR4jMmJU/Vsq2P8gjS4yvpnq
xDf/DnxE0Q8IS9RfQIdoQlS0IEhBvaJEQnX10rVxEqLuyK6Ji+D7DxxHTPw0
tLZxQ/W6tsSlB6J248HUMTsoE3p2YGAph7HKWdUr3lm9BtTeMJnSR1sxFMof
HRsP/LdTqKJr7IZz82LL7P8oRzeAu0KBMFLyY8YK+gT2JAS+JxAYSEeATZQI
kCG9Y7F2Vgr+vnFbM0aC4d8yDO/dv4+161MxwCEC9ShF/r1OP5HS1W5sR83V
aWJnIrBozF5OwaHG+BWj5uuy+XdaOzQVSGzRqB+h8B0yNXVYpTZlmiZCq9F/
fvXARD/GqvlZgM4hIGmEwI7RNKQAm2h4tApGxMDhSEvZzZMMmlESMm+KlxJi
gmHeog2UOfqjRv3+FHJtOfQayR6SAMrw5EPzJjD6jhKIf8b1mlBA6Nf4v4Xr
vfNCRXGMz0TtKflgZynhkZ9i6AcBRAO924VihMc4nDhyaqSExxsyHrMvXMbE
Kctg080Hv9eV8dhwkEmReDRR47HYZIOfSJk6UBTVU2qDsMhQVA6RbIgau/Gb
qKK+1Oqghub26P1GC2T/gA6a6NNBIwbdm8KbqT7eOEJrjF+bExqLiGwqub+O
6iOG/jlIwM6vXST8OoRj7piFuHr5aoIEu2vixVTAbsSY+bBs44yqtfrgj/r9
6T/JETLmGnGgHiwQKPlFE4HD2k20WDQuBopvKlcxUecqOtB8Q7XbUvrcUbtM
w4Kw3KnxQAWab4M8vuyCwTc0vfP6BRSdsFxM2aSosCzcoARKU3qOhXebcITb
xiF9UwaeP3+uiZeQeUVG5pmzFxA7YjYsWzujGiGzRn1bgcyBuvAcVABPfrIz
0oHlvzfDMTUE0bc7Od2miTI5PfTFaH2D3PKdzEe9zZLNiwK4QC49dYqlnwYS
v2R6MDN2Pq7lXY+TkJsnJz3Hjp9DNOXdTVo4kE/tzT6VQvkAOga+NIL/o/Oi
t8E+g9DMwgG2TexfOMH+Zqnnf20pyBA+CXzsWQmk4gimw7dtBML7DUf65n2a
WAmnubKHPXr8DIZ5jUSDpvYCp3+K2F+z4QA6HxmvjFY1Zk0UvCrHm0XsG8uS
3nwdvBENqbe5waV875Ckvsa1A2+vhPQKcykvJgXCtRoxZIV/jRHrBeaNWYwb
1/6KlnCbI/tXZgbRcVPR0HIwfqvZC3/W64+aDWwJubZ0ZoxfEwm/jQYqR9GU
9i2lVnoLU4xflre+gQq7zFs7Ny5IqV6DuL6hi12YDbR89/Wl1+cAOlgtkgMI
oPJTHA3Ct00Eou1G4PSRM5ooCarZclbPV4uNm7gQjZvbE1R7UlbP9c/+RoxX
OhVCLONVe9SSfG9xeDVR4/VdpWBvfUHES1/60KZR35cv5f9H8dvXnZIsZrFE
oWqVVLEyeX3+YKzlD+yIVSgnn9w+Bv6dI7By5lq+5DhCAnqWzCVu376HuQtT
0LbjMFSt2QN/1O1DjSlQZ1Zha6R2zQ2LcM3/Dencm54vMEw5+IpFx5e6YvG/
lBC/TjHsVSaqTLUTVeqymLGuDzeW0R3cMQ6+1hEY5TUB169eD5fQfVZGd37+
E2zYnI7uff2FG/+9Th/qpEb9fm8M4v+/y/f4qlA79GlqcNnsKzNqYwFyEwnk
BQB/1SVuXOz1oS5kB646eFB8CZQJo53Brhxvp772GtNehhiKhG5ThHSKQ0jn
OARYRyPWcRTOn8rWhEkQPyMzlb37jqP/4DBUr9Mb1WoTqa7fl45+BSins6rZ
QEu0C9D+n5QrvrHpi1fi2t7o0kSfaxezDcIbJdmvfUXAa/HsV+Eib2rm7AXE
pIQW3CGd4xHQPhphfeJxMPVIqITvU6r5tdDIKeSDbfFbje5EUHpT4tjXiIEu
QE4nUqOBYOfiqFkcSx+ox9Ibv8us8h3NihS5oka6Avkf0PD/7ini1y/bFTdb
Z2wotSypg20+gjrECfNZOz8Fz/E8WML4CZmm3L//ANNnrUTTVkPxy5/dGON0
Vn/WYypOWJd9el8m5mrq8nqJ6MtD/K1noe90nkXy+la63LzohTwq6vK+ZA9N
XaRD0BiJyqjes50I89aLDCZsHUYY2txD3j2IzcFYmAM7fckMXoO0v3i1vnGB
028brPk3FweNizCMkE7x8G4TiqWTV+Lh/YdBkmEclw2DN3/q2c8Pv5JRVKvF
ZZjewiTemGH8V6etb4Lef6lD75sRHsxptH3NB8GWXm35ymjzIfQ6RLy35b14
xHsH9G8yBP0t7NG/mR36NbOHXQsXLpYY8XY3xmIeuwRBVMW5CajD6G+XDkTc
XTsRcXft5KN5Dy423gXeux15cjrYOuxbsDQGWzlpSsHOylnYUwGT8qTfeEq0
qaWXZDmtfMSuB6/A9994EfLFfMhEzYcKDMNYbRj8l3j2bRuOKUGzefM5TaBk
GUfFiwlyci4hMGwCUaKuTIuMRMwwZQOhow+biHz01QiqZPwfl/X+W+aMPhar
OZVLgy34ki4RQcTvxIU89ZrYo3bd7uhjaQ9XghVzFac21L5zR0/yX14dgjGq
bxImD5qLxMHzMWXofCQ6z8VkpzmY77amBFJDM2kUO8KOIk066CTpuSR2hGca
iW/pbWgmtoccxsJhyZjutASTneeIRhKd5iLJfqERptgtINRPtV+M8N7DyU68
MKyDj/DW7mSt9q0owli5CCvQJr9SXuBKOYE7Txv94xrl26FL+klBkG5SYMgM
TBBKccK/XSQm+EzF9Ws3AiRLOCInCLxL4+q122DVbih+rt6ZEmGKE3V7vYJF
vEKGLGLIIMU0BJd6G2bxRlb5kW81kDQoV6vJ8eIb6TP5N2x8dWjM5vRZy07R
aEjG0JiYYqd+k2HvvRl97Oaiv8N8THNPwa7wYwxnpIYdQVpEJnbQsTPiGPbF
ZOFQ3AUcjMumYR+MvUDPB2Kz6fNzfGi+Es/82Xn6Nlv8woifjcW/lBb/vCfq
FBsMHUeEHa313UHWMQ+Ths4hs1gkTJA3rWOzULYcGtKKAkRLdymTkPNjdv4S
MwpS2NELM+J/sv7+n/EjI4a+iQ7qozDcdRyuXb3uL6H+sLL+L/sS3H1GETPq
gqo1uzHqNQz5XsYC9yb6mDd+xXy51r8rXy66Dvp6mXNpYQS8F5R0rZ0n/e2B
RvTegtxos7Z+aNU5Bh16hKDvkNlw8NkKO8+NBPKF8Iw6hugp9xAx4RYiJ95G
/PRnGDUHGDUXGDkLWB+bhQMx50wZzz8iI/osiXBf9DkF6OLYH5MlgVvzBaH7
Av8KaWQ4jG1+XUO4nkK4nky4JqePwG5RcOvoJ1Dm3NoLQ+k8eQaKiRQzfY+2
wbL7fu0i5RucSC2SuxgxeultoHUM4Xcs41fjJwH4oAzgZ8+eY9mq7bBs5YB/
Ve+E32szgBnGxqhetxdDmQ+N2o//WaQfN9L345Ivf4urCt7ZFX06jIdfjcRV
pB+Ka0qbWLkSjfdEy46RsOkWjO4DJ8LeazNc/FPgFXkQUZPvIYYwPHzGMyOM
nAPqjuE7guCbMBPUHT0b07f8Rfy0J1gbfQb7Cck1GanGwlN/ySBmCIuDPfmu
iOMCwNtDjmCW6zJMGTIfcb3Hw60DbxMVCqfWEivXgpacLxdhZC/7bsuOL2YY
EljZ4Q4XgE1gh3vtuq+E1wMyXi/kXIGH7xgi293EUb1OD0bqa+L1HxZx3mSu
+gpTUGqQSs73I3qWvmCK0ri5M6HRC607h6Jz70gM9kyBk99GuIelI3LSXYHE
uKn51MDI2Yw4GYYCih8YQGGDAhR+KrgCU4P0qNMCfVuDD2Ga82IkEh+J6D2S
3KYvwSQcjm094NrGVzBddo9e7ULfBJ810Z+VLD6KFyCLn4azL2wfgxFu43H3
1l2Nj4St/TKFXZe8E83bOOLn3zuhWq1u5At7ML7eBLz+UxM9E3WiJ3Fb+k7z
vvCTTayc0Nw6GO27haDP0MVw8t+o9WaxSQ9k/JhgxGwtfjB8Jj4REDIRsPII
O4SlPmkUoLPMRWz+XBWbs7RgUnjmluADmEIZ2NShiwhMI+BlEwzntt6iaMFu
S4qlYW9hUf3LRlMFRv7W0UgMmIl7t+9rvCUYZcg1gYuXriEobCJ+I074W40u
RoSj7vQfMpqEx3pRhP1vqh0UzKxoPhHup76lqxJm6XCijMYNLTqEoVOvaOGK
XAM3I2T0ZYIQB0RwPGSsSFHwKwU8hClHn21Y4r6RU5TmAjyfaMGjxEIFPNtC
DooYmNB3Ejw7UaJhHQCXNlJSwheN+Vqzh3kXE2rFA4fCW5fh8G0biYVjl/Ht
Brwk7OyVsbMuZSdaWjvix2odUK1mV+PisFPntbDzyvPQbz3foFTUAEMT8a9+
Uxf5O0d67yg8UgubEHQkKNl7b6KItheRk+8SlB6yL5I8kUyqyqqQ5OS7nZC0
iZHUWiDpQxlJEooyKNBxzryE0DnJfjYCu0bBu0OISF05flEe+sJFYTrllpdY
NGMwPEnwCO2SILblWTF9jQyPPXKE4hmq2IRp7Fbwyx9ylKrVzRBMRNRSpaKm
esBQgeMfz9++Vf7+iQ46xCaX/DUBqkkLRzRvH0RoiCLHkgy34B3Eb+6o0SA5
lYqGoWAtoPCRcChKGWRX5HFsJWcy3XGxcCY+HUPhQX24EwyYIDNdoUCjMX7L
IcaIkSD1gi0rtgv9e0hg2C3venL2XA569vPBz9U7omrNLgSGrgogCAndRNzh
px6kQwkVPQsO2Wn0+q/jyUYCFB8KIPBP2bM0tBwCy7ZesOkRjsEe6zEsOFUf
CAIH3xrGQQeBgw8KWAkFlb3sEsKPYZHneoy3mwnvzsHiZgE8LSLR1Te6PvSl
sBBCmVFAxygc3nlUwcIu8WKMTVv3w7KlHX6u1oH+IiQYMRSES2AwdBcO4t8I
hjdAQT7WQUJdC8kH8AZkDS0d0KydP7r0GwtHv80IHpWN2KkPdFT/g2HVdxGq
L6V1AXxwJFjslYz4fuPh00Gq9TOP8LWJeOFqyeKXJWjtvmDmVWOkq2tjWdfB
HeMR3nc4sk5na9wlXafJKTDfg2LcxPmoTt7+l+qdmCeodV5CrXP5eKk85j+O
dH5I3zgKDfPvGzYbAisbP/QanAiXwI0IHp2HuGn5QstyzP+XHnlc7CbIY3eV
fXPhhKt/20MPY5bzCkT0GgFP62Ax5ckJhGTHr55tFjNnwgUN+VC0K5LQYeNx
/+59jZuk3R0yA8yl7MHVcwRZsg1lEJ2MWb1GBdo1ld27jnYFJ+zxD4mhvn7f
FiH8WKtpsXmg+MpexHKr9v7oZZdE7ns7ue/bGD79mUgOWLuUV/4ma3c4/RkZ
eQybAvexSnsJ7ZYU2lU89xqfVEywmwXfDuFCsz42YcZv2CmbyKrkNaHLpq4W
2hsmqTJVdsqHDp+ClfVQ/FjVhg20JqWCb1eZJJw/6/djjUpHg6IKsi/W8EtR
uk/1NSwZaxM2WN5rfjAat3BBm85h6O+0BJ4R6Ygmsj58hqzWmaiuVJtmAolj
rrPuNH0VayWCvl92ydtDj2COy0pE9RoF9/YB8CKLZUsV2yh1iNb847qjjkrZ
WP0pzh7cdURR6XbZOucv3oK6Tfrj5987MOcq0KpwwMINKwRMircvQ8vfRUW9
iK0nPtLRIH/FP2tAfKpVxyD0dVxEWtuP6MT7orgjF3o0NVRqmzT6KtcCNbZC
be8XmGHUaazw2SrM0LszEaf2gYIsBXWI0VfXa7lSRVnBHeIQNWgkblz9S+Mq
KWurrKzH+fmIS5hBmVJHzpaMXqSxbpp/N2cuZh1UKUmBpFTeCKxZW0/0HDSJ
EuBdpJ17au3UNqCcgYpyogtozrawQ0hyWgC/ruFCOcxpgjpKynmNhMVU1gcX
xmYPXyDuoOUi6WOLrI9Ll6/DO2AM+0PKYDubsD6MdPXxTmjrPyQxQhX2sn0N
QmMrF7TvHgEH7xSEjM6lSPVM4iQzUc+AKuzkcLVfLn+mhh8RavDvRqHKRlFD
7D/xYyVkVfi0Dceu5HQhfWdJFZvl0HTi5Dm07+yCH35rT4SxKD28Kyr5itdA
EJD5z1qNBxJNtEfLDoHCU/nHnyBC+FAhhJqGBqTvIKT/nuSlFOk7L4Bv1zAi
CiEyoX+JJQEqT2SqouxRA0cIT1SV5WzERiDtzv+BuB+WcnvRq1ev4to1sYeQ
uKspP1Tfa8Q/0lnyg9fV8Hf84O8vXryIe/fu0WlImnz+/LnShsZMUvIm+auM
/UfRuNkA/FStPTWmKPndMcpXLjV+pKNu3pCcrbJ2owFoYuWMzn1HwSlgB3GI
O5K/kwt9jVV6njjqstDzUD09M93nBSsBRON5EiFQkIZXcG+KTfm1i8LSKSuF
hH8Tz2UxduxYjBwpNiQTj+PHj6Nq1arYv38/Jk6ciGbNmsHOzg5Dhw5Fnz59
xG/8/PywdOlS8T4+Ph5JSWJ7dkyZMgVjxoxBTk4OOnXqhN69e8PS0hKpqanG
sloZPX379sXDhw8VjW+UPWzarkNoZGlL9MSG9N35Pd2I93aU/qpLWgyEv1LC
3fKKLgZFPYtBaEmJnq3TDAQMP4X46fmKQzWXUwBWf8SUBwgeshgZkaectClA
lghtvB4q0X6+KN7xHKPE7eNe1X+yfQd3jcGJQ6dkXVdGREQEgoODha4ePXqE
jh07wtTUlPUDc3NzLF68WJipv78/2rZtK37Hup81a5Z4z5+PGDFCvE9ISEB0
dDQGDx4sMMSPLVu2CCyRiWPbtm1Yt24dpk6dimrVqiE5OVns9FRJUvoGGQ/L
V+8mofbFv6rbaIwMqP2VqGkxTv2fUh1y26zimqRidguNmjuiY5+RlMtvRVSB
SWssVToOJ+IZMHA269hFT8dcpE10mCfp2CaMtfpS3lpRbqBNrLhale+UJt3W
9xtERUUhNFRc+YRRo0ahS5cuaNWqlVDE6tWr0aZNG7i6ugqFdu3aVfzOwcEB
s2eLW/YgKCgIo0ePFu/5lf9u3rw5Bg0axLQqMJDOn9s9efIkfv75ZwwcOFA4
hIoVKyIkJIR9vazbFFm3fE34n2RTv/zBdb2X0e3bIrGqcP2BDmmqQe6drwpr
Qjyox6ApIgyzySrJQnN9fQ6aw/ocJntowYPissXSwtj+Y+BJeQendSGd4jUv
Yavvaevkkdi9UeI6FWVvyKHz9u3b2LhxI86cOfO+HCNZy2x2p0+fFmZ1/vx5
YcabN29GZmYmjhw5gqysLHh4eAgXrGiZTZ8f7u7u8PISMzOIi4sTbVlbW7N+
xf+zy69Ro4aI2rGxscJ8//77b4Ee8tmyy06WT3LK1EX4pXoH/PpnJ0m1pOSS
/wHM+H36e4Dw47VIuc3aeqO/80LhjxNmPhfKHU7KtTKsXHd5HR4bKofgBR5r
4d8lAl7tg19FqZzbxQ4Zzfcp10h3fC3JEkR2draQqq+vL3777TeUL18en332
GTZt2qQomZXCCmHFjh8/XiiL/TGb8qJFi9CuXTtMmjRJxGZWIj/c3NxQv359
xMTEoFatWujcubNQeu3atbF+/XoBkJYtWyIxMVG4BsWns6/u168fFi5cKIBA
ypaVvE5WMt9rJX7ETHLRHTjzMXoJTb997k1dsO2yius0HgCr9n4Y4LIEIWMu
GbEjbm1YtR4Ks4qWiqnbww5jpO1keNgEiGKpZLeF5zZLKklJu3Ckrt0pBPOl
eP5Ia6hbt24VFtO9e3eUKVMGpUuXxrfffiuEzRa3e/duwX+ZHUuKLiOCKPtP
/g23ww+2tA0bRHxEenq6UDQrUOHRp06dEtY/f/587Nq1Cw8ePMCCBQtEgFU4
OlsyK5r61BjLajx27BgaNmyIRo0a8fnKSl6rUnIMyeyHqu1ZycYGlPxOuDcJ
VI+GCQrOuzTzhVq1SdetO4XC0W+TTtxtq6dv/0Ei7nqp/PR+MuWF7utlUw5R
TFhjUrT5xg0l8733QPOpENKHuHv3rhC9Yr7Mk9l8v/jiCzRu3Bj9+/fHnDlz
2F/jzp07H8txcPjw4fjqq69w7tw5Gqn0GZuwrGXNV/JnkydPxq+//srdKNx4
jayeJ0+eknqm48dq7bXVB5PXZsmvML2uquOVlOqy9fqinrktbHpEwsl/myjg
yNHSWk1wEx8gwkEQXB+hhBI6BucuDC6KpV6EqfEtBvftOCBLnp9LCRPYuXOn
kPM333yDr7/+GlWqVBHm4+npKcwlLy/vC1me7GkZ9RBZqfQZx8e//vpLR+5s
efw5Na/IfbUs98ePHiMkYhLJXVR9TIuS+9unqSR+Lo/zjxpYOqBjz2i4hRDr
SHqk5Bcd5FQybtoTrIw8IVY/+sqxjA2AY9lSz40I6xkPv47h+nGrpIpbjvdL
wtMnT0nkUtziHH3evHmCGTDge/ToIYB+9uxZBnpXSWirZKHlk5qCwydxfYYX
e7yn9SXvjv+Rh2Wwius76/ZGnSb9KAMfTQxAl9510lkwelaIzF8WGWfePJs6
begi+JDL4cBvZNhXMDvntQ6Hd/OVWRCrXW7evCliN8fiX375BePGjcOVK1d6
SqJaqbhdctihkZMVt1uyWFG9HRZF7pH3Q6jdsB/adwsToGJxKCSpi0pEa+Q1
tQGyRSsTzyu8tyCoazT8O0bKU/76mGofgwkBSSIBNJUFdOHCBVE8+OGHH1Cn
Th0Rz8jz9VYLyBiJxDC5IEDCIZ2+FebxoaGQRL/rTRDqI5gFz8vHJN0XhkYy
6WZAJEFCJCY4EMPF6YNi+tuvY0RhUSh5+ZljZ+XQXAInTpwQeTSbVosWLQTH
I5PrK4lihSyKaTNXcipFZLszGeZbis+ldITB39egv5u28cBA16WISbyjeJse
BoQQrHgbwgSvRRo5MFHc81m6kENrMO+L61Y9W4Vg3RyRKwqnbmNjg7JlywrS
m5GRobGVRr9cHv36DXvxO50OpRqUw+m44VcdvX74e08LCk7rbZ3mIHRMnrZC
10se6PAZz7EmRvIRISq3mh55CkmO8+FpE0Scggvd2rLq+4joNhJ9G9vhq4+/
wUclP0bVn6rCpr0NypUrJypq5EA1A6WBLpMHevDwSTRoaot//dGRoPlG4k0p
NeqFUnn5RR3zAZTzJiIg4YyYpaYB91ZF8KAROVgZfIB5U6jK3nnJ4Zxhq+Bt
Eyzq+2GdE5QacjgNlq+mLmHyHp2Mhh7GqFevnshReWyDpIEulQfKWyVb8LKf
3ztoPn7NGPGhIccnRskar9mgj/Bp7mF7yO2LxK+vepUFua0lbhvYhYWrcr7V
3qkI6hQjyq00Oo00PFNEdh+NFtXa8sDEEeYTobGThrRIvJhq6+GX8v6CVTtH
/FTNRvPJa/r0UoWGxor9s24PMX/mHLAdcVMfsdL6G14dFKEa0nr/XQjvlSDm
Z8K6JEhLNUmhYV0TxDB/N6sBi39ZId5uLG7dvDVYGtVcmXYxP7p+/TpnqKJ8
yKnlb8RT2Xt37+sjLr2iUXzyEu7546LcszxAOmp1JYJjL8wwbOwVZbLd1vAg
I1XBmqdDYm3Hwr+TepCmYpC8MjWi6yhK4MJwcM8RjTxC6U7EnwpiT+xcBGwX
FxeRNLOJVqpUSThkds4hIaH44MPPhOo/+9IMP/zaQqCyWu1uH73EyEsZ8kdi
5NVqdScn2xPWXUPgF3dM5K8DDQ83SuV3eOX4yIGT9YZrIhbg8nAD2kVjzYxk
eaSustEx4eDSbwEn/lR8xuuy+EFsTvBmZeaGX9Xfq9/z7A21pVBrYt64fPmy
HNOkzzjhVej2+zKX5yKIAicuMnIxkpNgTpirV68u4MWJNCexN27cMJL/ee6C
tSTcTjD7vgFKffgljI1N8cln5VD5x0ZiBSlbzgcvERYLK4IVwLBs0mIIBrmt
QFzSA9bBYMM6iNbRwUkdHZiqkseRLhPx7PkzxetJCiiHo0ePomfPnkIK/GAh
t2/fXtR7eO6lSZMmAm7Dhg0T9R2m2Dt27IC9vb34Pc/L2NqK4CjyTK7dsNJ8
fHzQoUMHWFlZiboPKUrmF6aiPDFo0CDRDyee06dPl2nYh0KhnPxw3d7R0VFo
gqHPrwz9AQMGICUlRRQVSfHSv32ElI275X0jOpMFdBca+P6XZvj08wowMjLB
hx99jQrf1qZw3VGWcVdNyeKjWSl1NBNH1ZpdUbN+L3TpPxaBFKXkkGynv1JO
uswiRqUYvrwwoncC/DpEqIzDWFq42DUOWcfP6yvmwIEDQnhcT+EHZ+MlSpSA
t7e3IO8MSxbW3r17RdLJM1lcnOXkkx9c32EB84MJHVdfucjGAmcr4ioqT5wR
9LXEb/ny5eJ/uM9Lly4JHnzy5ElpevQ9YU0//vijqDNwN+xwZauQrckYZ85m
o2nLweSEO4oiexdZjgzqH35pjs+/rAwT0/dQ8v2PUZ7c/L9+bycrpJsRa6fI
UoKxrDNFKdIK7a4wb+kE58AdGD79CSvEQbWwLSrqODYHiYVtsVplnMeOsEyE
9+Too6sMv7aR2LlaujxgoK4yDh48KCYvWHAsTBYMl66dnJyQm5srEtBevXqJ
iQf2GTwhzf6kW7duQgFcCWAiyQ+esGDpsa9p0KCBsDRWBCuW2tYqgy1SKbLx
g6uha9asUeaq2evxxCZ5PLkgwZ/lo/eAQDFJLVYi0DfVZAD//HsbfF32Z7xX
8kOYlngfX5f5GV98/R29LyUUUrrcr/xb4+KZz3uivao1upAh9EBX2/HETS8q
HFwzxMAStHgl7rPkKSSG9YpHYKdoIfmCJZyxmB4yvyjJcwmS68L8OmPGDJGa
8bQR4U7M8TH0eUqJ81qWPH/G9S/FDFhbiuaUGjaXHtn37du3T6R8TPEVyXOR
JiAgQGCbfY08sfG5LGUKM6IAzURR5ICEIIFGkvJv5F/KlK9qLNPN//s/I1Ss
UkcmVUVEZTkYSA1Z6MLZ0cC6i+EqkrHOb6cghzwryxJVlrfzDF5039G4nveX
IYmyFHjqRnEQ5IHFtAzHTPayXLVn78tVfg7P27dvF1JirLIjsbCwEB6eZ9SH
DBki4ie3FRkZKXDMbfGN7hSPz1LmSTqODmwTJFWNUhbbnnZYeAfOI0XAFPSa
vMWvVjD6PyMtdf+m7C/ic+kXRQRW0t5vNTsTOLuRlx5H4MxVwOlkQJIJSpZM
nHQN02xKhEO6xCuwZMqSnixd0TpALcSyAhoskJ9++kmUYPnByw54FpIfLMi5
c+cKqDJM+cHEg42fhcmeli2Y4cmVLA6J/Lh165aonq9cuZK/l4zdRDhrni3h
ZsnpK6LLzbuGltZDhbMVpI9E/VuNToKHlCjxASpVqcsi05gaEBebMsWzqhw0
CbRNWztiWPA2yksE7jQuBsQ1QiuubCz12givjsFyAarAikPnFxaXsWASPKmU
mJioLX1OmzZNWDHEdLGEE2YMjD/GGOOKmIRc7eay6DO4+4zGD1VtpPxMYyIi
Mg/4lz9s2MZKGEjE2RH+2ZkyzE7o2GeE2l25GhjiSDFEaXeXWa7L4d0xtMCm
OsZhhP1E3LtzX3989+/fF0yIJ1OU8V25ckWBhnZ87KmUaVGGAv9eGd/yVamU
ZHcSpaVPtSjvKqiMpFqdwdG4aHRCd7Uor7R1nov4aY+ZhLip1/CMzBPjGiXP
PPA1npN5pr9DKPsLiZlbRyNz1wllTLPl8zmffQnmVlIkL6sFUAm5b7Yy7tvc
agiGhaRxHYpl6qa3qCTIYRHX3EdplxBlYWfEUYT1iaMgECNOgYtxS0avVrqf
JXfPUwxu3iPFgu9y2u5NVSivVqsT2nSJRfCoHHHxtIfhxQ6j5b7ZXa72SYVv
p3CxjoGXmCXYTRDqtNXte97CddoqX0HfJqq+a9Tvi972SXzptjAXT8MTfGPk
SgX3nTh0HrxtJLGzyI/uOiF3O1Pu9lxWDho07c9rbDXltd0ay90ydeXbjDj4
bBbFHw64XsV3ywUSpp4i1+4YKSx08ejVcrcz5G6ZRQaGjiNJt9dU0HYrrXIT
hJoHzLtx+MWd0pahvA33PFY7uXIea33TxGqSoA4xJGhhN/11e+YlVnIn6p5Z
xEzTO6Fz3zEIG39dqNdXf05NUu84JRoSspOGLoR9c1cE0ThJvBq5u+lydxzJ
etoG4KffbTQVJQchd0ei/bN+H/R3micZEWnUT2/2KHLIEurutNIdi5a3bQjo
FgmfNmFYSgjW627J8o1cNROjqyQb9K/kqOpZDIBL0C7pcsoAVd1yVeRJUc4b
ryqVbAjcC9c2PhjpMBEP7z/S9JP6mCb3cfvOPbTt6CqMtJLsFH/9swPRCAf4
RB/gzX2CDFRGJ6gCXyxlM9zD2UPn9RofPX4ByUoszpfUI3xQZ4oZndDc2hMh
o7KFZoKL6YEJ96bgDLGf7srJ6+Qepso95Fy8ikbNBvKKcp0eGHWtO8fw/LlQ
RoiBHibKPXAFMLbXeIQMiMajB4/66vYwnCRAwBZtl9caMI2hZke07x6LkLHX
RA+hxfTAY9gYmAE7KxecOnhW7iFJZbX1zfuJSrC6h2o1O6Fr/9GIm3pP9BCm
U7g9J3qYJIcbHkN09zGYMWquRq/5iJhE7QDKqZsn78dLhOKnPxYrdMPUtdKE
C1gRtJ9rpZNUY0jxS4ffgBA8uP+wj9TJFLkTvvy1vnlfMQZ1J3/U6YKeg5PE
JBVbfXihcmUKY2iydhjZiOo1Gvv3HNDo9RAZO0U7jLJ6PQwatlhcyMI9RBSq
cmxU97A/Ngsr3Lfx5dxKD4lyD9dv3IRlq8HCe+r20JV6WCKW2nAPkYZ7SJR7
yIg8i7lBy0Re1Vu3h1lz14iZV267jCoYKGPgHniOKqr4HvZHZyE5cDdOZZ5W
epgs93Dn7kO07+LJa1tUPXTGn3ULxsA9RBffAzun7UFHsGPZHv0eUtMO4lep
UKIpreqheq3Oosap9BBTaO8IUZieoowh6jwWh6/F/Qf3Nb10e/AOnMiFZtH2
Nzr20JEAO1ECLPUQq8rUo6NOUKa+n09c2wNRhbU+aTi8N1PpYZLCrK7+BfMW
kqbVPbBf6tp/FNnwQ9FDnIF0NEm2BxbR1sBDWD+Nl/E/76nbw9wFyTQGyfN9
reP5OqNN13jEJD0URhdvgEJO1ar5PGb7LxULzOXmJ6oibt9BQSKD/EZLZSWX
F0oOiZoeXlzLMdKswOGMTP2W9+0/hj/qdhPq/VobD5imOQmeROpMKLJlSSpb
Ag5iy2K+hPJ5D93GR46ZI2aGudmvVI0zK/GNPcqxYIRO49dE49NUmJkftRz5
Tx9r5JYnyC0/fPgINl3dRBgraLkTaje2hVfkAa66j9S2/BwTRl7SbZksamXQ
VuRdzNNv+UjmWdRsIM3TfSm3rPU7bstAefxIvUgf5LCQicU0FRDXeO9AemqG
fuOLl23QOoQvVED8nYypj30itftUAHGkPlkaPFvdg2Kuu1fsU3oYL/dASoCL
R5yYudGePsX3tl2CBPckpIwq1LhgYtOVxiOzsCR+DZ4+f6Lprtv4zVt3YGXt
KOzoC5U+ufAcPDKLo9boFzQelYUZfotwnzCu1/j2tANiaw1G4udawXdCzYb9
4Uzej1Q65gWNk1bXBKfiau41/cYTp6/QCv4zRfA1paDYyy5RVE9Y8Po9yOuw
pqtUm+y3G4fSjyg9jFOZaI9+gfiZPPHnKtm07BhBjPQGy2asHm6ihi4lgZye
rrLSVZ6p2L01Xb/xW3/fRWsbJwH3z1Rwr28xkAzpBBvSeDUvjDol2MJ0Hbxk
YteSDP2W9x88TsGiuyqJlOBevXZnDHBdxqc9wQDTmaENfmT/U3cS6J5puum2
vGRZCtcVRZufqvTZud8YxeEW1zIjZXbwEjx+8ki/5YiYAmrwiaplcysHBI++
yOc8sbiWCeCzQ3VaHiu3zDNCTsNiCuY9hfVw9tYLrkE7WM6TXtRyGLX8tFDL
Dx8+hnVniXd/rAVgF0Erew5mQUgAnGSA9M3Q+sMszPRbjHt37+k3n3f5pnTn
BOLFH6sA0qi5PXHiXBbJJAV9FD79485hRcBe3hlshsolTndfhFvX/9Zv/PjJ
86jdqI9wiR/pYIRJhsDIZB2et02Zlp6hssx5Pqvx17Wb+o2nbNontizmxOoj
ld3wupUY6eJKdeNDfbZirvMqZo4FSDmH1OjDyLtwWb/xteu3UULSXq5sF5w5
524uwXu4xUS9xuc4FWp8R8wRQ41zuqYA/EOVq7WmLCFuquAs+o3PdV79ko2H
RRVg/AMVxus2GURp9WmW+ZQXN76TgqzBxgtShFIqOsGpdW+H2czpklSNDyHi
Pkdf5llYFrABly9pGx+jOEKyoSEuw0XS/IHKhhq3GErJ01U+8yQVk4uJPqVs
JqA2o5nBC/Eo/6F+40+fPUennsHCy5bSikUyo35Dp1Hjz6caIHEzizZ9dctd
eofotdwJTayGIERyKlMNEKGZKmnPCliC/CeP9aXt4Ttay29LKi3zhC/FHlvn
hdzytGJbJlHHrBfxWK9lXnmn6LGkWtTNB9M55xTV8gxVWEilsJC6YI8SFpSW
xZpRnZaNBVvubT9D5KbTDdC2Gao4tsYrDTvW7Squ2fdUQq5nMRj+w89y00rL
ceQAxydcLNTyKq9UwaxepmVyI+17JogFpZSiSKIw1YZfrwHTkR5xgto+VxAp
oymehR3A2ePniuuhhNqX1OsB5wARG6br9eDRL7FwDwSUNSHbcTXvqn4PvOa0
cA9cOvFSFosX7mFK4R6E+SwS5qPXw+y5q9kuC8rDsvkwFPs5zWPDn/GSPWyc
kiqivl4P7HF/rGat1wMxlaZ2CEgQGi6uBzXD3RxwAOnrDygMV+khOSWVpGTN
JlTQA2m6Q6/hFJSfsqb1e3Dvm1ioB6Zy63x34UD6If0e0nbtFw6FOZGJTtTo
IUrX5BNnKh6Meoic8hChdvOxN/KkmuYuC9mAG9f/0m/8+ImzFEyl/MJEJSDL
1i6KkmepKMZqPSrHOdGCmBV4Qt5Ar2UugLdq7ygoholSPiTBdB84CQkznmhm
G2AuanlvIXmnLt+tZIhqTmTT1UU1QS8nRHW7wskvmXl5cS0rct6/56DSssLj
QiImavFupOMN7InHXeJUq9hzJiGvCN+Ev2/9rd/y1Bkr8P2v7fRa7ohWHYlU
TBH7aRTXcnr4GSQn8c4Jz3VbLomVq7eiyr/aKJMs2vJmn6EL2HrmyK0mkPda
K9O3qWpJeO/C7s3pSoFCaTU1bb+ga1KhsYuc9/SBW8ge9iuzVdTNN/Y0lvju
ZOqmbZgEsSRwPaHthn7DOblX0chyAH6RLnATDVu09hL7NmqFIEV5B69NRH5W
cpSfqpLDqvEpFNKf6jecm3cdjbkQqzRMQLPuFo3YqY/0G1ZxkyQdUezE7i3p
Sr1Javg9MWvX2kagWFsFGjhsudi4e07xrTIglodt5BWA+q3yTusdpHqBaLVW
QzLl4K2iGj1b9hZsyxwqbJ2WY/6w9dyyJkkridNaRMhNS6llCcSRS/vhN2sR
eHlTNN4qXysByQdFT3lA4t2MRZ5bRavakhXR4pSgPTiTeVYpTiqtjhq3QGqV
FNbC2lPZZ0Ty/x9Iu/3OkC7D5/OOmQZEkegHOC/FTMcVRHouEv/OEdtGK6XQ
jIizWBC5Ao/zH+n3tnzVFnz3S1vRW+sO3NvdAvr6hbY3sc8w9Rg7jf0qudrp
j+AVuRujJqcgyDcQwbbNsdqpNtJczJHs6o1lwxYgNewYdkee157NeBUEUnzT
sX1NmlLBls7GFGuT08TYeZK2c392Xk81UkJXtmDgBIF4eg2f/AwxU58geGQ2
AqOTMXfResSF2SF5ni2WRf6OHVFm2OT6BTLdvsbDiAq4H14Of4eWxykvMzrN
plhv+DTHqGpyqyO3Ch+jd5bZOVfQkEzru5/MiTTP5z3l5fLBl4UEFp3EZ/oE
seR7XAI2Y+zkdYgLd0fKUkcc3NYbG2fUxPGlNbCBzuzS2Aq4Obo8dg4rjcuB
FXE/wswYd8PNSOsPIirhnnYAlcUAFDnv0JPzCB3PfhDblqYpc0HKCC6xDTcf
hO9+tkBX28liBFI97pvCcp70jGz7CWWOJ+EXsR4TJ0xGQrgtTux2xpENFrh2
uDnunmyGjIXVsSGmCrLHVsH1kRXwLKkScmLLY8vQMrjkL0ZD5vgywzleMBwK
2/EqhSwL2IicCxf1hyN5Did8/y9L9BkyRwxHqhmXe6FCxpBCYsPcsG7BUBxL
7YqTmxsBua2BS1bIP2+FYykNcWDm78gcWQUnI8vh8YSKwFQzPKfjVDgpy6ks
7oSZ4V4ED6zw8E6/YHjRqnpqatBRpMzeyr5Gb4Tsxdp0cBLXdvjGCTIlz05U
FF5AjJDtc7paYSdIYeskhYXZ4vguJxxcZ46/jjTH84tWNMKWwA1rPL1kjTPb
muDY0lrIHPMDjkdVwCMa5fPESsA0MzHah5MrYZdnGex3LcdjpNGZffIag41Q
6XI56TL34iVlKlQqlJogIGQ80a0BYsd80lmInvXLm50jitQYMTkfsUn34RG8
BbMXbEBMqBvWLhiC4zu64sSmRnia3QrPc1oAl1sB16yB6+3xJKcd7pxqhbNr
6yE5+gecjKuEqwnllcEaAUlmvMKUxn1/Eo3ZrSxy/CTwfvmqAyZbDDGg3ed4
rjfmUWPnEjPsi4iJfxdM9JYtpNiIyazYx/CPP4O4MRuQlDQNE+P74+QeJ2SS
JT7Jbo3nF0ixuXRcaUsHjflSO3ptj2e57fDgTGscWtMAaeN+wcH4b3F1VEXk
T65oxBqWBl5CKBvTK+N4WDkc8SqHa0GVePClDY3ds7Af2qUae6C+snMuKasn
lIEvWpqChk37I3rybR64t4xofWVHq5TtLit7eIQHNi61J5vtjtx0Czxnm82x
kpStDJwGLV4vWwshPLrQFmdTzZEy+jfsH14Fx6Mr4KGC9KlmJioZ5NNH+/zL
It1Za97lC8mgnEEZqPXvq9L/DqH/Lax/PTGsWrNFLQZ3HryRmFv7RLhhYdWT
nwrlBww/g9gxKUL5E0j5p2Tl558n5fP4c1tKyr9sTS2TBPhSSLJwXCXwX2yH
rLSmOL6iDlITfsDp+Eq4Mrw8nkngLyHGbyLAf29iJaS6lcFJz/LfGhr3C2KQ
l7I4inS/JCAZebl5yqodZdDHTpyDdWc3RE4UrMlZ6P7zQvwmcoqke67EDAtI
0dH98aJ1byqG/r6Mf3JyNPR7p1rj4Iq62DXxV2wLqIBLwyvgaWIljTCA91SW
fymhAg55l8N5H8JHpJnm+xdJwLUw23FTReFtgYexe12GsrxSkUDupSvo0suH
zF5IYIghtYdNfEKc7CGGBe1C3NhNmDJ5LCbE9UXmtr44sr6RQbWXVNQuw/7h
+ba4sNMC6UnVsDe2Ck5FlcfjiRTGpgi1l9Qz/TOR5bFvmBb2Pxcx+B0uFvLg
5xcavItqkmB5eAovStQfPK+wsbULRviEmzz4QUWoP0qo/7Gs/mTMnr8e8SF2
SFk8GAdTWuLSXktSP6ld+Pk2BHOh/vf1kP+UPMHFdEscXlIbKeFVcH6kGR6M
r6ggv5RKBA/I7Z+NKI8j7uWVUPdbcSJwkfSvbwFD9SanM1L3K+v2FRE8ffoE
/QdrRSBdKPSptD5O5tphk0j9U0j9waz+jZiSyOrvo1X/k/NyiONYflV4ug+0
Q2+nHfo9ingHltfFkRnVcHpEZcHLnkwWTu9DFe7vjK+ELc6lkS1HvD9eNG4D
Xt9elUGuGbdJ5Bx6437+/BkiYmYgdNwNHncvPdUnqCw/espjhI7OhXfoOsxd
SNQ5VFL9oZRWyCXVo7DqPxTj/0DH8d+jyHeQIt+h2dVxcLhE5PLZApKE+jUf
qYSQHVMem1WctVZRQnCW8T9svgj7aiEM1Lq/bCz13YAL5y4oF24pM+RTZ65H
yJjrYuqnuwHNh5Pm46Y+hHvILuKoyZg8cSyWzRiEk7v7E7lpjKcXWksjL9D8
x+qR58khL7utsJHjy2pjXfC3OEKU9dGESgrf0XysQv5TOrLI+DOI5MnGX++l
Bq+L/H46lbz92LJ0h3K1oTL4Zat3Imj0NTH4jmLwnxWt/jEF6h8V5YBjO51w
mCz/2kHZ8gXbacNenlrRxb7C9k6tqUe5yQ/IGv0trhDbezpZjP5TZfCk9kf0
UYZPWYF9Mfhws0aqwd9Xu/1iBt9bHvxeSrmXRK/Bw0cP9Qe/cct++I+4LAbf
Th/7RSBgtIyApTMGFiAgu5UU9fJaSQjIa/e5Aew/OEusb20DpE+uioyYb3F5
ZEXJ9pOE/bPMJOxPN8OFuPJIdS2Di4T9B4T9pi+UQGHH111F+zaF7MOpQ2c0
9roS2H/onCiWcKhrpe/4tWnnU8Qk5SN4xFl4hawm9a/HaK36Wwn1Q1f9POwv
9WIfU77zOyxwZFEtHBz1PU5Eq5KbqWaf69NeGuQeEsAVKf1uoTf+WyEvRkBn
7TI6gr//fmyYJyifnghyLt5AfNLfYvDNDIFgtkR7wybmi6v6XClVHTl+LYZH
eWLZTDuc2tUTJzY2JDdAIrioA4Kv9Y2AAkD27qY4uqwONsT+gDPDzXCZWN9z
Kfx/qRIBG8E5in0HhkkegETQuggR7HA214ogNVQ3BnRQ1Z0WRq7Cnbt3NA66
47937y5Ch+8SIzfX8wBqCEQnPRYQ8A5dg8TEaRge2o8g4IjDyRaSB7jYUp3v
aErr8b7n9HqfvP+x9Q2QkVQVW/wr4GJ8BbYAifd9pYL/AyK9u9wJ/n4S/Nvr
eb+CsbP6faSx68W/dirXv8xvE86fzdYM0R37o0cPEByXKkbdQE/3w/V1P7VA
9wlRXhQCBhfoPrulFAKE7q1Z92UNwD+bqF/K2N+wO6YKzsVXVFO/b1Rx72I8
cR6fctp0t5O+7Yfouv6lBgbfSjVdt9EvA5uXbicipDP4p0/zMWHmccRNe66p
YyDySxWMp6KcHDzyHCl+tVB8Ais+zRFHZMVDq3it7ZczRPr2WCJzaW1Kd37E
uQQz5MVp053SKuA/STLDSa7mOBLvDRehr1tR45dLnMr41bbfXC/dWzUuBY/y
H8siUJYMLlqVieCxItUnilXY9pX6RvikR0L/IuWdn4IR0Z5IWaSn/4s6+q+g
FwBYBHcpAO5fJpG/MzL5eyq5P0EByiggkMmvUuehCEjhrHAAOCMLIUUWgr4D
bKqa71wSnMzXgmocdSWwaetBBI26KiRQ9QUgCEw4h+iR6zB9xnSMj+2Lk3uG
4ujGpsjPaimFP5H5aEFQ0VAIzGqL3D1NsX9GdeyM+lYkQIL+TZVIUDmVBO6T
D9jqUgYXfCsIH9D/NSTQWPEBMeQDvDbh5KHTGiddCRw9cVEscuGx/1wEARal
yokKBjZj1vxkwoAXkhcRDdzZk4ZkTsNsXeD/JQlU1jMDpoC56UwBa4nc58Lo
yurcp7xOCJT471Hv8krlZ1Ax409WjV/tBuprQ2AWNvpnIHUVrxN7rieCv27e
RtS4k2Lw36tDgLypujb9nSJxoOhRyeKaTgGC3Y4EAks8FiBoWQACSn+raBFg
rZMApS+sjbUR3+uSwCRR39RUUPsCufTDNPiuRIMdihWCD5a6FhZCba0vyBIF
gPXTtiD/Sb6zrhAeP36AiBE7BBUyM4SDWRITZl8QNjYXLn7rRA6cEO6A9QsH
4sim1oQDC0M4+M5QInS6NQ6sboDDnAjFkyVQIsR0SCGDlZQSEAHh4SQuAZXG
Sc8KLi8CgYHx19CSgHNYHLUGd+/dVXamnyQngrxkdfn6U4iYJBYFlisSBPky
CHYLEEyfOh7jY3qJJDgzuZEEAqWgLaVCmh/Ug78k10HIELKICx5dXAvrQ5Rc
SFvo1lRWR8PhFQQTPu9DVCDSTONWlAScCySgHw1+1y6aIAkErsfFnFzlXgna
NfY7jyJ4jEiDNV+/SP1jVOqPYPUPQCap/6JQv0wDC/Lgn/SLf5wLneRcqK6g
gaeZBsbLoWCa2bd6TDiLfOQe17K4HCC4kJc+DVSNP0WFAPX4f1VlAiv9t+Dc
8fPKjT2kUkAJcTUkX+XIVxhbt++MYSFiad4X+gmx7Ap49aiEgvUyCnoWh4J/
qUHAZDBXIoNcBE9P/A17oyuLdEjrCQgEVVRyeEix4DSB5LCb5AnIHfoKOXzI
wVFHFme9K2PD0KZY6eiNRc7z9GSR9ZOKGPGat7S1u5U7EEmrLd4Xuyjwbpm8
xzhvm8A7cfLl6JMnTUD8+N3EiJ9rPiqmVBKV+AjhYy/BM3gN5i5ah9ExQ3B0
x1Ac2ah4iEIQ+VW/UJjNbLEpNshs8VRsBTwcr02WvleFydvjK2Gba2lk+0hh
MkhPLndJLn8Fl8PhYWZIdmhMcvEyJJfvVNccbfDfix2rd/HaIlk0Ym93zcdi
IQpvHso7xvJmW7zfCu/0wbsp8o6W8rXO/Gus33gUoeNEHf19gyjKFyjyCN2F
kRPWYuqU8Vg8tT/OpNuKpPpJtl4+ddm6qqF8aldTHCFauWME0coRRCvJkJ5J
nPpHlRe5wPOfjmWQKycUYSopPYw0e1kpmaniKV+JkjyDQsnTfPkGZfHipZSw
Jd63gC8I54vLeU9d3paMr6bnbVzT0tJ4uyBT2fWczcoTl2LET3+qMTaAq/hC
uFotajCMq0zCFbueqweaSrjKlXElRZ5q+iz0omR3R9c1wD5OwgIqiHRDzUJ/
VNndMy5ERZdHKolOTkOjXk9y5fWC8JbZO/E4/7F8G79o8fKBMD2+vJ737uHr
ydn8eIdOxhjvQ8Cf8441vM1mSVl8PCPrFzIHIWOu8uWZsxinTNhCxj8SAPMK
341Rk9YicfIELJxCANurAKylKlCLQt0femZ4/1wb5O5muvq7oKtZw+WkTapW
/qyXsHPV6gKltXLVKu4lJLWwsKRK66Uuq8dt4G0FPCVJhYmXD3Uwxvvr8Dbr
bI2MM956ivfZnzlzptiSin77kWzAs+etg0/cBYSPyaaEbhWmTZuBsbEDcJQy
+ZPb2+HG4WYFxZwCHP1pYP4qL8NSVDK2xfygz2R/0aPxu91JML5SNjuyGKmk
FC2VLxWpRJ8TJb2VMRv5ynz5/rCdZSzw5mm8mwhvEild028qdjaS948SG0am
p6fTd7du3SJx8H4tPP+hbPfA2zvwvhj84H1clPe8E8mhQ4fEPhz0uXInCuUn
vFGSsjUVb3rCexHyPvmGIMwbc/NmTHya9H+fyUHnxPFjmDfFDucyeuNsamMp
pcxVo7OdpqbamplPX5T49OEVdXFqzu+4OPZbacFHYgGf/lVbVamMUxHlcNBT
O5VMAa+wKm7oANSbVDFXXxUfqBbq0jvxl5FaPeGsng24nHfZW60eaeMq3p6E
90rjB+9ZxM6R90vjPZF4o1MGLm8jwXLj7RbYWfJ+2Pzg/ZWUHel5UyveEoW3
Z+DNrFi2vL8Sb3LF25goWzrwTmS8fxIrXNLRe+LGI2wsf/75p76hEPmTYPP4
8RMc2mxPVtBCsQJNLQN1/btE5I+sbYCT8//AydFVkJdQAU8nFRD53wzNZbuU
xZ1Q4U4nvp6TeE+Z3Ik6jbTwo2JZrb4OVsVsYh346OqASR7vUaXogLeN+eST
T8Tm77y9B+uHnQu7Wd6ch7dK4t1PWLb84C0zeFsjfvBv+HO+aYuyVRKbE9/M
g/Ct1QHv3shboRTowFj0z5tTse2Ukz87vHcFrh60EGCvYSBv4PLB5b2WOL2i
NnbHfYfz8RWRT8mRKKKRrKupphG4gLLbsyzPm0vJY7jZlJeRtUshWRsLub7P
MqaPT2K+6xrxytgvkPVGlrXGt7CweeDslxjgvJUl76zGu7Px9jG84zQLjgHP
23Yzf2JhKyBnwDPPUgDPe1DxflW///672K+H2+Gd4Pbt26cjbN73ioX9o/zZ
7b9v4tDGHuzSNX/osaj8C1Jl6uDSOtiR8CPyxlfBrTEVFKFWV7GovBEVcMyv
HHJ8JRY1Qwj0S8MCtVcEWsiBCMnxribxvcdikUeyuAZdeI3YTSSCy36Fhdi6
dWvhpPkWMytWrMCSJUtE2GOB8W0H2HHv2bNH3A2BUcUelq2b0cjemIXLG/Lw
pjaMXt5VjT0P/z9vS8dIVwuRA4WuEE2IDgPH9yYSgbJk4VU1OMXTBpnrGyJz
RjUcG/GtEJjaGVRXT/KRhz4bWR57eYY/VHjkOUKenxaWp5siT85pCuR5KD4X
K722YqnnBsptz2MVye/y5Sv+avmZCfnxRk9s4crtl/iOLSw/3rtI8ZoMLt4Q
TZEl0wgGJm/uw5tGMeBYD7xZFEc53g6QAch5Em+9xdGQE4S1a9eKzaPYk1D7
P8kivXLpPE5sa0+yaqv5xYDs7vPiiDQLHF9SC6cm/IhLlA/mKxVykt2f6nyQ
2NZurzLIcNGuglugZ9z3ZNkdcassZLeKZLfYZQHW+e4UO5zIsgpQy+p9Qal4
20LF8/GDo4MiN4pYhBGKSTJ54AfLgqMQbxzERs4PNkKOXMo+lywbvtMCyUW5
mQLfIIftmFNL8gU/yR8Tm8XhtBF4lNXcUPEgn2J+zh5LnFheB+ljfsLFMZVx
c5TWWmvqMa/tonIiZYZLhYRK6kiIw/1Rt0pYMaABRrqF4OqVa4FqiRgLt1O5
cmXeUFprHbzbFSOD/1J2wGciyptN0lA0P8uf5eWew7mdksq/11M5r4PjItjJ
5AY4Nqsa9kdWwg0aiJgMk8lLLb3VAIcK1sFpVorRmOAh5biXfb/GwVleePTw
XpDu2Ss77hUQQmNBCFlf/NfXCjivXFHunqHRaoLy2ENpCXh8XmjiW0UTeQXB
KIeyz7TEajgyogqujqmEJwW2XlsvjbpAaVS6i3Y2r+D0K1LqXh47Zobj0eMn
wdLpT5dP69rlbJzcxv211VTUD4gKD+dFBYSGg+N/Qt5YHTRo6qoEyFXENPcy
yPEX8+qaVfIZ3Astj3Pe5bFv9VQ8obRJfQYyHHcm4vbxZgUzO7oJ5V1BQesR
Ba2mpaBQabGeamIvJ74CUl0KMCmJwVRg8n5oWRzxr4ajWxaxr9WESmeibDx0
h+Ll/pSeeJ7XWp5c1CVi9yhZu7SnKY7Oqo59sZLvVelD00CPCe+m07gSUEl1
GiZcYca94NLY5VsDOcf3hUtnoOz1dDozGdcPNRP05EsD2niQ1YboSTOcXFYL
aTHfIY9sU9R0ZW00VEHiMXmwM2SAqgle5SToLf7y+xp7Iqxw4dzpCN2TePQo
Hyd2+ZL9tNR8rp1jtdZJCPYvroOtsT+Qc/gWf40UNqVpoq4ZjauI3R6Uk/lJ
WlilAmOuT2mkjhpEniAvUupZ2WHrSt455OztKEjExwYcODPhQ6vr4/jc6jhK
wY9nd7Vre2j4TfTrMUOlesx9PRzcCyuPs94VkTY3jkwiXxMlnYayx9m5o8tx
81hzoYVSBnBwP0uKI8cW10RadBWcia6gnmnVmOvF4NMR5ZFKp8KzjVotmAoo
3A0ug0OBNXB4+2qQM5DLFPKZmJIqnmD/Zj/JQQghWHO7uv6a2NXtE9Iy550j
fkT2SDPcGFFewURTvRKCXlBTIPGAIeH/FdIjrZB95nisdB5z5PO4kncBp9K6
4OLeFjiwurE4D6Mi3C2nKoemVsWh2Mr4a4xcUZQN1VI/bRcQkRRUAJEKOO9Z
GjsmueHG1bw46Uykbb4/xvkTm7FhVkNsmkXu71p7nXk/9pXbJ1TFgbgquJhQ
UVq/L0mhuX6S6qHv52V9hJTFIe+fsHfpGDx++lwuuMm9fwD23/u2j0PWrkZ4
QmjI2W2Jo0trYx/HyVEquRMKWujMM5khw09eYhyqZ4uVSPBki+HNcO7YwQSp
w3nipaTYAmVVUk8cSfoR6SEVcTVBJ35ZqdMReRnvKc/y+sp9GF4e2d5lSaTu
uHElb4TUx3zZAV++mIPMUZQTTS7NDbVS03Hq7ijR8SxvaXWsIio+aRZVZuDv
OLpxDgimcgVXs0A2otxTB5E9mlKBpPIaK5Uo2EfzhEOGvOxUJ1JVQI5PWeyK
7YiL58+MlhpcKDd4fu86nIvk2bsKmuZ64z5NBn3Eo5yShq3QnqZkYQe8SKNL
xuDeg0fypeByqxLlPrw+iUIKYWVaRTVAb4+vqMNu1Kd5kU4zLao9sk8fk64+
0yyWT/PMthm4PbYCTzhrLFSizImtQP6oNHLl9VY65xjC5/gzneNocY7SpSDa
DfuZOvgFhiCi9x+4P76saLqxOvgnScF/b0HwX6F/rtE2fK4TdeHMnJHZF29K
zDybubeZmRnMLSywN2MfTiwNwK2R39D5VyoILfICul1eZSnQa0uRy9XIIJEf
9PlFK/JJ6vhSStSlDh8+LPar5oyAs6jPP/9ccEDe+jg8PJxvymkka+jxk2c4
tCgYN/lEplaqr17DFl8eGx1L44RnRRqpmWa5ypLvhZbDOTrHIxMHIvf8GXm7
LnkmRtr1j1OzAtpWRtwNR7lpMBce+I6jXNfjz5iKczGJdcEP/n/lPVNAeU95
8Z73dWaartxogf+f26PUkPo6duyY3L/8kG5DTKdtQB30+3LlytF3vMk/p0e8
SzGnPrwRWQlZQvmyhP4axdioWEdveu8EkYCt8ipXMuJlQkglJJIeXgHX/Epj
fwxl51tX4eHjJ1PUcqooapKcZikbjnNR5Y8//hC3buQUmAtqXC/gc+OUhotc
fBc/3vuaHywLpbDDqTHv5cpy4+85veN99Xm/V5YV30Tu448/5lTSiDuVSw2K
mExl/LCaeNJDjRvOtHlikW9Kw8ybmPYHWuk8R2byZBGLyMJr6VGkU+Q69pBb
vi255WUyhHhi60ZAacLxr9i7cDj+vnVT3j1QKxou1bLFKKLhu07wdra8BTLf
147LKpwJ8HQWVweUvdiV7b85A1ZqWiwaFsWECRO03zPk+G8eL5dyOMOmlK6U
yivwbuFcClMQ8Zk8Zk4zjqZMwbkoXvJRvobKdpmkbx9WBuckr8YwWKrjisqK
CLJjvCP7YJmly2M2046Zs3A2D94wm7d35tvE8Dly5s6lJVYpj1nZ8ly5lyvD
QSk9qbc8Z0jx/zAk+DMuSymmw3LkrdCfPXtWSR47z/9lpa9F9hgKMIllVJUP
2dmSYzjsI8WtgsRUwrxwDB5fY3t4a2Sm8ZYbmKEepLQXNhd0uXN2SLzbN2/b
zBjne0Xw1sycynG6zeUgZcdxpRzE+GdbYIFwW6w4TvH5poYMAi4H8UxdZmam
RvFyDBQeODs/Eq6Z/PHFkwdwJKE+UZnSPMiqeszyJJn2RrvSuC15/SWqYT4g
074ZWBr7Qhpi76ppuHvnziz1MCtrT411J2+5LKZYuVLDmOPTYX2wybK9sXvi
igOLhHNzvmk2f85i4XovuwGu63Jb/DlXehgbPF3Lw+M2+cGv7DYuXLjA6zDE
OK/mXcS+sZ1xZ0wZjja/6lViUimrTBtaVuE1S2TAcjZxI+Ab7Pf5Demzw3Dr
r+syZZUHWUZMCPD0OtdBFN/OxWQuTSlGpu+veRDs99mXcaDiB5fr+DfKDTD5
NSMjg/dslnVYQpSluKTH5Rou7TA2qI1v5TEylzuwKAxXEshNTyn/Lz0uvMmp
NE57EV4jK2sURd4PrySyxb3DvsWG0UPZIpmxzFWP0Vg4mO+++47vA6AtQfCN
77gcx399IZ8fnxcrmw2KZ/P4Tg2knCpK+KGWT2xfiKyR1fBssmRUP6qiLU/T
7nMvKxZMs1EtVp3kHTrJs37fImP8IGKx+9lA5+ueJAuXAy7/pZwkBxN5Ykxb
5eHZFOV3PyhWcPYYTk1uTVYgKMB3esx6jw+hw7GsYgWLCp1XFTqvwcjKTOcx
SsxPvv8zcYXbN3F0WSiuMQGcUk6MurKa65C/3ORSGplu5RWus9BAB3sLOpCY
oHzzcFPhi8/sXo1jI+vj0fivBXurpENiKmATkZgzpPtHpPvCrUtilVuXbkyl
2SS3fuPyRRyc50WgKsegEqdfTo8AcA2Y59eZADyINJsvOnhPXr9RUSUjbSfy
Dc00m1XQOL17FY2hAR6O4zFUlNeSFnDwk+RX97tqV8/Mk3vhoPKA8o8b/kQz
PL5H+rhBOC/3It0/T7NV7uUvGkvm4iBcG/sdngsAVuLymdar3x5XSdA9yUrM
NAVdVBJe/aI3ubvAOtgzMwQXTmeKLqR7ZGq2ySbAdD/n2G5kTrQhulRO0fgX
ql7Ox5THevKp2fKq0DmKuCIUcZUR1axtQZbIWJWEmzeuy3ch1qTKvTx4+BjH
t83H/riGuDuGPTfnA2af6Hlvjs7svWXOPltHYhVIYl9jn1sVIbFjO9fj3v0H
8j2tNWmyxG7fuoVDS6NwLK4qHo7/RuhFurrRWNJ+kpnyV6EiQBaNj0kPwWCW
0jO7m9CykiADamLn5GE4f/wAQ1iGs2aXPMQrF7NwaHEwziT8QroSPXPrxqrO
70+oJNbeG6uEy9ea7mD2IQJzZcoJpIqxMmbGYrb/t0iLbIt9a6bir2uXWWcS
2jW7xcsHQot5WceROXMQTsdUIbPSnoC8uKuyqObSGWi0l3nPkC75SB/GHkwq
yk1X6tXU+/3wirhH5OcCjf1QwB/YO9kJWYd34cGjxxI+NdKtzz9hwoAcissZ
U4fgTNz3JHhZwzPMcCTsWxwOqSAMO192TTsocP0tsUuikNzj+1KPBFvOzPN8
vsYZv++QFtcF+5Pn4nLuBSHx7VK3GeLlQ8F5cs8excFFoTgaVw33JnyNjKDK
WO5YDvk0aM79M921TipJK1mpl+v+3+AMSX1HsCX2LUrA2cwM5D+FhCSNdDuL
kkKyV3OycGJtAjLiG2O72//X3plHV1VdcTgSgQyEISQkQJgHLTLUxSAoyyqg
FEW7ilhdtY5UZdECVRASMgdQUQHbqmtVaWmXVYhUFKwIIUBUoAEyMSRgYkgM
EoSAKGRgkO7ub997Xh4W2/p3uWu9vJdz7z1n798ezjlv7/1utOxX+qpV4XXv
8Nq3xMVOr2JOgnw473rJf22WlOXnoqaenEJK7K21nD5ZJzveeVm2LbhdquZ6
dzUCtwLyig8IZNJjvW6FUb+dKSNk56szZO/2DfL1Vyft61pPACF7/G4bGpvk
wI5c2fXKVClOGihfJMVLU1ZXtDjkJus21DNai3P1VE3gb6xFJhq8la+cebqX
nNUX/3vxMO8cK+PAZ789qC9r5z7urw/0HWrnaW9SR36ttUX42qXs6U4D50Ee
3c55Q82ud+dmm47zvZLH3T5fEkwbh6srZM+al2V75jipSe0jp9LipUF7UbBG
BzGIOqtP9InwlvXMJiTEcP7jaV3kgynxcjiluxyYnSAnM3tY3QtfbMBIrbZj
kA1+X9yrDNhXFeseiZePpvqVEn5Y56Det/ahONk5vasxDAADfWYbfFNqUlOr
TYyTKp29Pk4eLSXLZsqebeuNWfXLxR6z+31mGxrPSPWe7VLw6kwpyrhBPktM
8LXEqBplnfeWc8/0krfvj5O7BkUaY6APQ13ahsriidHyyk9j5MbeYZJ2Swf5
+Q/byODOraQuvYe8oOfm/Ki9yAu95U93x8rUkVFyYVEveffBOHloWJSUqtnc
0i9cZo5uJxOuCpd5Y9rbWDt0UTG6Z5jMGN1W2yNk0W3RAHC1nyBrIQVfbxtw
HXPi5GBqf9mcdosUrlosFSXbddn9tX2x6yltyCf2Fm7S/erLOtn70d9VDx6T
guRhUqVOGaZ9CfvVqH0u4trp5gND20hMZAtZckdH+dX1beU3SvkpbX9fxTW0
q7cD+E9cP3ZdlN0z96b2cl77r9LJ4Hc/6Wi6/fzt0fLbO3VKfL63iXpgfCun
KiF9g8Rcn9Xd7O3YvDi7bpfOGHlPT5bC915T/1iM5yzzuP7U3iII/siJo7VS
vOlt2fHy41KYNspEjVVgHViJ9uzVIidcxDiEv3pXjInhyRvbSdatHUyHH1em
Juv5+65tI9d1bx1gfPaP2hnjf/5ZrEwbFSX/fK6XrFGdnTIiyq69sVeYPKyi
f3BolEwaGKlq1K2FcdjStGqbmsyQLq3MBGjtERT7dSru7JlvmWoyB8mWjAmy
Z9Vzsntbjqn5uQviiTukyp+3TOon6qRUnVrJshmyLWOMVKX0leqnOpnj8yVv
jnHwt3T+3iGRsl91fZBKo3hmV0kf10EyFYR8nV1W/aKTND3dU16/N1ZGdPNW
EEsmdpTx/SNMugCCHtP+l3ti5VGVfsrY9nLPkDb2LXje453l6k4trR6MfphC
km5uL/1iWkr2fZ3Q+QQHgD9xNajOI/w6FX75LLXz1KskN2WslPxxppTkrZUv
qg9I49nzlR4ANUFzGG67cu9OVZNlUvDSFClKH2XxydqkOIW0i4LQzYEwIAiD
1Q/EmaAmD46UdLVvWdzHaAQDFZ7cdnWECXds33A7/82i3rJscoyM6RMuU4ZH
yQ3KP5aC0EeqoixXi+CXl+7W/h7V++4cEGHXI/1j6jNwkviFqSPbyjMTomn3
fhklyleAHiauJqUYP4f/3JcyWDZm3C67/5omOze8pZv3YmnQTR+TebUHRK0P
xHnf/svyN8red5bKtmcnS1HqCJsbanUea8z0tWG+6V//ICDeezhe2rS6QsYp
oywr5LneZsbJKlA+H1EPvkUFWjCja0Bd8fB49mJdn+95IsGmKN53qQd309px
ZfrDqbpjfjLBvD9jLVfr+fUN7ez6pepq7le3o+eijZy2ge7roVKpbVSFOK0r
uKqn4uRQam8pVFf+kXK2e/VSKdmeK3WfV0rTuW8Oe1jYZlx7Oav4nKw7ImU7
Nknp+3+QwpcekeKM6+Xz9H5SPSfeeqRnFKPewwOie/oaeVbpzPllZ+nbsaXk
61rorCrwhWd7ycLx0fKsOuxv9LObLJR2myTN1FtYSMN+dssAYM5u4Vy7f0Pw
fM90isWgMRN/ECH/0NmBHqICPaIbvmNo1GW0ZxvxUpveV2e10ZKTcYcceCNR
Cj94XSqKt8nXX56QsxckxEsUCPnSX1+y2Tp18rhUlRZISc6bUvFmouRm3iEl
6ddJbUY/KZ/dWY6YjnQJ4GImuYCtX/M3QAiUTUzDgsD6pQWa4K8aaOLiDkHf
/mH4ZepkTmT0MNa8H/GKDkw7tkjOauaQBcmns+OlcnaclKYMlA8SbzabLn1r
gRRuelc+K92lXB6XMypitX3vEashp+ytg3mDM8rtV8ePyqGyXVK0RXfJa38v
RaoAOSm3yoG0ITbxMMKptM7mImGY0aFClSHEw/1SHPmLvwVBiz+7ODYoSaXR
U6Ug/no4/lowFLJlR/IUguwsNen95fP5auTJY2TrorulfEWyFGxYKbvz1khd
TYUZO5vO0x6f3gNsdSmhAlVfKCcOH7QVcvGm1VKRnSYVb8yRzVl3yubUsXJ4
wWBV+P42TIXqzFH1hg1MCZldPEpCzeUa21ndPXHB4vxmtmMd226OWtDTh+fK
AGO8VF9CrcsOhqht/xVhvHhNSi85PH+gbJk7UjakTZDN6eOl/PVZUqS+ulCl
g0oe+6xc1/hNbB5sVe5xGXLBFyo7CBOsTn+4+rqacjm0v0CK896Tgpy3ZO/K
+VK5Yq7ht1GH2Jg8TspSB8mxhQPlyPxrlJQ4omizO6sWV82O1V2wBwSk8lWY
AtLOqNdttu756/1TXMKleksLuztayp+IkZpkXdIuHCRHF14je1KGyIbUH9uo
2FO5wl++MkUKc1aash4s+ViZ+0Rt74Q0KvWopldoAn/25kVqoq1Zr8CZEeGS
Y4cq5VjVfjl6cJ/s/XCNavJai6cUbX5HdmU/L6Ur0qVyZZIyniQHs5PNRnJS
x0dKbvoEldvGdKUo4zZZl3iTbFKFqFiRKJ/qpZUrE/VWnUy0C7qybnP/JlU+
pV9UlcmJ2mrCNkbKmfMXjDTEYvSGBdEew59QW4yGmo/hDn2pjvP3SmPogjS/
ODoFdWDHzZcbLjdcbrjc8P/S0GBv3qNfqExorjpoawE+/wGfdgvBwbVr11qw
n8B5cLCIACFBwK1btwbi9ufOSU5Ojj0OtqyszEVFuJpQE7Uirg6IMBVla/ru
x8HDLI5GDM+VQ9IdsVYyz/Pz871RvOeqU2xK6cW6desIuvgMtLcoF4QSzuVw
XXJAAl1RLeCiZGQ3BN3jKCZpgexcfvvt9MWwEQ8dMGAAPAZGJW+A4DDhH3ok
P5mgIgkhw4YNs4A6zFBwQz0DAUmeME7OgYLjYRJhlxEr52H0hLUIv8IkB0yT
MrFv3z4HIVFXwvOVlZWBVAJwIfQMlbwIefKMaEKYPD6dkKbC63XRzYKJw4cP
txcjMyKRTAJwHDxumnMuJ5uAIJkJBOO6detmD0+mkoh89379+tmQPPMXAFzw
kUgpgEFGdXX1pfAklpmdnR3Ak/IDuCBuCeMUgpGPQrAW8lAQShqISbtkBUgm
rV5F5vCESh5qTZiQAzHRFdE42qC4tLTU4UlqBiVOimsATyLlMIM+oexI0z2t
HL2CeZW6R3gH4xnB+w+GtstgkOQQMguwBFQWDN359evXW+SZfPlJkyb5IERY
hRfDccAswXaHKUWfcKKqW//94KSig2x9ki0wBODkIEzPfaTjvPjii/YOwwq7
g5PoK+FzdzAUEiA7AHv6DjiV1n+DkwP+wMGNSGYII9bV1TkzJB+BhBh+hcXr
Ns7i1uQSIUC0HbgdlPwPTDDG8+lJzFi6dKklcdDuoEQVHZTEtQFEoQz5nlii
mpfCcvHixRa+Jn8nMzPThg8LC2u23QgroXMFEhxoMQ/aJoWGYcFSPah3ebQx
TcUZI+NA8BAE/AnYcwTjmpSUZIF6Rs/KypJZs2ZJeHg4Ps3hil/ikuacqxhT
SwoInXa7LqGGvAHMmlpiyokQGwdTA/04h41a+lj+D1BizYwIlGQyJCQkmNJs
2bLFoIQSGMRTkk7EgTvEKPQeD5tIUz9cGw+bxr7QI9TSxeI5d/FDq6MtJh8b
G2vZIfg0mKP6FBJcwhd+j/7y8vLMfzEncFCEgi0rSw5P1JfLVad8PGMNP2BH
33CBJFFR1wbX5I9BGl6F6nYw5cDdtm7dWlavXm3DMe3iZpmGyev7r66znXFK
ehvmQf4WeocZUL00atSogLskNQ0xTpw40YZXvQ5YKWkUXEvqB5ySF4WI8faR
kZGWaqFsBFfPOUN3QgENBAE5pNu47MAlS5ZYlwyL0ysqKgosCUAMoagD8Nvi
DTmXsYKjxEZAb8yYMaZ5pJ/R9/Tp062/sWPH2kwM6hycZyyMBqsnjQdISN9S
CfiAGiS6bcS8wN4d+BX8g/sNh5iYGMtMY1FCqRcLGocC8xOUshrxdtXhdi9t
bgJy/WAjcIO+XApFl39DbhXyZyLDX/m0uFswN7SeCqsr/TaMCaOaNm2aD2KY
eVoA48DMcYUAy+yvIDj8cTKsg7TJpyDM/DqXUrKNFiJPUPAXgz5+p32LRnHQ
cRQHlFFO0GcVgq8AdRQQXEkUpFesneuU8ECyn1oddVHopS6zWvg6BUL0ivND
xRkF30D6HjSynKTsGa8W4d+D/2AJQHestqCGe/CzzuKc5bb1ccCtU/BIIWP9
xQzi5XFBy5cvt6Q5lpN8RkDUsuFLnANFLeEEIbIo1vZofwTKq/AZq1atCnHc
ITj9334lii7pGu11BsuiBeHhxrxM0JbmQ8jjw82TA9asO6F2PXpKsXC7IOXw
yXO+JKDr37lfCLniX7wgnc0=\
\>"]]
}, Open  ]],

Cell[TextData[{
 StyleBox["(f).",
  FontWeight->"Bold"],
 " ",
 StyleBox["New!",
  FontWeight->"Bold"],
 " ",
 StyleBox["(Metro Hubs):",
  FontWeight->"Bold"],
 " A Metro hub is a metro station which has direct connections to five or \
more other metro stations. Make an interactive model where the metro hubs are \
highlighted with VertexSize->",
 StyleBox["1.2\n",
  FontWeight->"Bold"],
 "Use",
 StyleBox[" ",
  FontWeight->"Bold"],
 "for example",
 StyleBox[" VertexInDegree[..] ",
  FontWeight->"Bold"],
 "to count the number of incoming edges for each node.",
 StyleBox[" ",
  FontWeight->"Bold"],
 "You may also need to use the function",
 StyleBox[" Sort[..]",
  FontWeight->"Bold"],
 " (check also the ",
 ButtonBox["Mathematica documentation on Sort)",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://reference.wolfram.com/language/ref/Sort.html?q=Sort"], None},
  
  ButtonNote->"https://reference.wolfram.com/language/ref/Sort.html?q=Sort"],
 "."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.6205029070584927`*^9, 3.620503009132915*^9}, {
   3.620503098625575*^9, 3.620503161638495*^9}, {3.620503648006332*^9, 
   3.620503662445695*^9}, {3.62050436923568*^9, 3.62050437314615*^9}, {
   3.6205044349466553`*^9, 3.6205044354664383`*^9}, {3.620504674724834*^9, 
   3.620504676620702*^9}, {3.620504754604332*^9, 3.620504768330378*^9}, {
   3.620504968099605*^9, 3.620504991866219*^9}, {3.620505033972052*^9, 
   3.620505037762969*^9}, {3.65148045998134*^9, 3.651480475475801*^9}, {
   3.651482627201078*^9, 3.651482630305168*^9}, {3.651893622068612*^9, 
   3.651893623135064*^9}, {3.651894550208815*^9, 3.651894578478957*^9}, {
   3.651894631934848*^9, 3.651894731497615*^9}, {3.65189482964268*^9, 
   3.6518950221747417`*^9}, {3.651895107560074*^9, 3.651895166295683*^9}, {
   3.651895436997015*^9, 3.651895454830983*^9}, {3.6518955775794897`*^9, 
   3.65189561667546*^9}, {3.651896236616704*^9, 3.6518962770802794`*^9}, {
   3.6518963608455753`*^9, 3.651896413421886*^9}, {3.651896479657836*^9, 
   3.651896479658873*^9}, {3.651896851255093*^9, 3.651896867871266*^9}, {
   3.651897111808733*^9, 3.651897261168365*^9}, 3.696680941927864*^9, {
   3.696681009357119*^9, 3.696681034069458*^9}},
 TextJustification->1.],

Cell[TextData[{
 StyleBox["(g). Optional (Combined Interactive Model): ",
  FontWeight->"Bold"],
 "Parameters: nodes v and u, and an extra parameter \
\[OpenCurlyDoubleQuote]option\[CloseCurlyDoubleQuote] with values {b,c,d}. If \
\[OpenCurlyDoubleQuote]option\[CloseCurlyDoubleQuote] b is selected, then the \
model outputs the same thing as part (b), If \[OpenCurlyDoubleQuote]option\
\[CloseCurlyDoubleQuote] c is selected, then the model outputs the same thing \
as part (c) etc. If you skipped some part, say (d), then you should allow \
only two values for \[OpenCurlyDoubleQuote]option\[CloseCurlyDoubleQuote], \
{b,c}."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.620504822508637*^9, 3.620504936927032*^9}, {
   3.620505074629816*^9, 3.6205052702011347`*^9}, {3.6514831088995037`*^9, 
   3.651483145658943*^9}, {3.6514838088733664`*^9, 3.651483814500269*^9}, 
   3.696244701940352*^9, {3.696679811836319*^9, 3.696679812684271*^9}}]
}, Open  ]]
},
WindowSize->{808, 606},
WindowMargins->{{20, Automatic}, {Automatic, 44}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 146, 2, 64, "Section"],
Cell[729, 26, 989, 20, 68, "Text"],
Cell[1721, 48, 943, 22, 87, "Text"],
Cell[2667, 72, 1650, 28, 106, "Text"],
Cell[4320, 102, 952, 19, 106, "Text"],
Cell[5275, 123, 1014, 20, 68, "Text"],
Cell[6292, 145, 1672, 31, 125, "Text"],
Cell[CellGroupData[{
Cell[7989, 180, 975, 24, 112, "Input"],
Cell[8967, 206, 60594, 1088, 465, 24282, 491, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[69576, 1297, 2257, 53, 87, "Text"],
Cell[71836, 1352, 962, 16, 87, "Text"]
}, Open  ]]
}
]
*)